(* 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[ 388769, 9300] NotebookOptionsPosition[ 371366, 9057] NotebookOutlinePosition[ 371913, 9076] CellTagsIndexPosition[ 371870, 9073] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Shell defs 2021", "Section", CellChangeTimes->{{3.542948801634627*^9, 3.5429488340054784`*^9}, { 3.54294888700751*^9, 3.5429488892326374`*^9}, {3.603154693094841*^9, 3.603154707836867*^9}, 3.6044766362316465`*^9, {3.666884612660963*^9, 3.666884616329775*^9}, {3.6991607763526573`*^9, 3.6991607820826654`*^9}, { 3.730426901167432*^9, 3.730426903433354*^9}, 3.761887783998542*^9, { 3.793855433424412*^9, 3.793855433533757*^9}, 3.8266839017004976`*^9},ExpressionUUID->"f80f1a14-5e19-4d5b-b3db-\ 8ffc5f31ec0d"], Cell[CellGroupData[{ Cell["Generic defs", "Subsection", CellChangeTimes->{ 3.4710857577642*^9, {3.4710858112098*^9, 3.4710858239082003`*^9}, { 3.4710859049969997`*^9, 3.4710859061046*^9}, {3.4710892678536*^9, 3.4710892701*^9}, 3.4710893817648*^9, {3.4710894793115997`*^9, 3.4710895039596*^9}, {3.4710905118050003`*^9, 3.471090512741*^9}, { 3.4725252603414*^9, 3.472525264101*^9}, {3.4725253064862003`*^9, 3.4725253370934*^9}, {3.4747629998582*^9, 3.4747630055678*^9}, { 3.4752273878873997`*^9, 3.4752273904926*^9}, {3.4753663741484003`*^9, 3.4753664116352*^9}, {3.4753773567911997`*^9, 3.475377356916*^9}, 3.4753775870472*^9, {3.4754620951394*^9, 3.4754621031266003`*^9}, { 3.4779795207265997`*^9, 3.4779795250576*^9}, 3.537621939388029*^9, 3.537622934627954*^9, {3.5376230222229643`*^9, 3.537623029743394*^9}, { 3.537623460058007*^9, 3.537623470980632*^9}, {3.537624955779557*^9, 3.5376249594157653`*^9}, {3.6000028730424147`*^9, 3.6000028738224154`*^9}, {3.600051011531698*^9, 3.6000510174285083`*^9}, { 3.600051611598405*^9, 3.600051612175606*^9}, {3.601345436806925*^9, 3.6013454383201275`*^9}, {3.601345528035885*^9, 3.6013455313118906`*^9}, { 3.601345570093559*^9, 3.601345572137162*^9}, {3.601345611714432*^9, 3.6013456172368417`*^9}, 3.6016459822022843`*^9, {3.6031079936638145`*^9, 3.603107998499823*^9}, {3.603155726549856*^9, 3.6031557303874626`*^9}, { 3.604483923857771*^9, 3.6044839281321783`*^9}, {3.6044841812582226`*^9, 3.6044841822098246`*^9}, {3.6668845995307226`*^9, 3.666884605295741*^9}, { 3.666884878599985*^9, 3.666884887130411*^9}, {3.667525927678743*^9, 3.6675259326551514`*^9}, {3.667526020327306*^9, 3.6675260219809084`*^9}},ExpressionUUID->"16ef144c-4d13-402e-96b4-\ c4e44eec02f8"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Clear", "[", "EEEE", "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"elastic", " ", "material"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"EEEE", "[", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"e", ",", "ee", ",", "EM", ",", "GM"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ 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[{ 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[{"GM", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}], "*", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}]}]}]}], ";", "\[IndentingNewLine]", 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[{"(*", "prettyprint", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"COMBO", "[", RowBox[{"a_", ",", "b_"}], "]"}], ":=", RowBox[{"ToExpression", "[", RowBox[{ RowBox[{"ToString", "[", "a", "]"}], "<>", RowBox[{"ToString", "[", "b", "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"displayrule", " ", ":=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"F", "[", RowBox[{"a_", ",", "n", ",", "0"}], "]"}], " ", "\[RuleDelayed]", SubscriptBox["Q", "a"]}], ",", RowBox[{ RowBox[{"F", "[", RowBox[{"n", ",", "a_", ",", "0"}], "]"}], " ", "\[RuleDelayed]", SubscriptBox["Q", "a"]}], ",", RowBox[{ RowBox[{"F", "[", RowBox[{"a_", ",", "b_", ",", "0"}], "]"}], " ", "\[RuleDelayed]", SubscriptBox["N", RowBox[{"COMBO", "[", RowBox[{"a", ",", "b"}], "]"}]]}], ",", RowBox[{ RowBox[{"M", "[", RowBox[{"a_", ",", "b_", ",", "0"}], "]"}], " ", "\[RuleDelayed]", SubscriptBox["M", RowBox[{"COMBO", "[", RowBox[{"a", ",", "b"}], "]"}]]}], ",", RowBox[{ RowBox[{"F", "[", RowBox[{"a_", ",", "n", ",", "c_"}], "]"}], " ", "\[RuleDelayed]", SubscriptBox["Q", RowBox[{"a", ",", "c"}]]}], ",", RowBox[{ RowBox[{"F", "[", RowBox[{"n", ",", "a_", ",", "c_"}], "]"}], " ", "\[RuleDelayed]", SubscriptBox["Q", RowBox[{"a", ",", "c"}]]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"F", "[", RowBox[{"a_", ",", "b_", ",", "c_"}], "]"}], " ", "\[RuleDelayed]", SubscriptBox["N", RowBox[{ RowBox[{"COMBO", "[", RowBox[{"a", ",", "b"}], "]"}], ",", "c"}]]}], ",", RowBox[{ RowBox[{"M", "[", RowBox[{"a_", ",", "b_", ",", "c_"}], "]"}], " ", ":>", SubscriptBox["M", RowBox[{ RowBox[{"COMBO", "[", RowBox[{"a", ",", "b"}], "]"}], ",", "c"}]]}], ",", RowBox[{ RowBox[{"b", "[", "a_", "]"}], "\[Rule]", SubscriptBox["b", "a"]}], ",", " ", RowBox[{ RowBox[{"c", "[", "a_", "]"}], "\[Rule]", SubscriptBox["c", "a"]}], ",", " ", RowBox[{ RowBox[{"u", "[", RowBox[{"a_", ",", "0"}], "]"}], " ", "\[Rule]", SubscriptBox["u", "a"]}], ",", " ", RowBox[{ RowBox[{"u", "[", RowBox[{"a_", ",", "b_"}], "]"}], " ", "\[Rule]", SubscriptBox["u", RowBox[{"a", ",", "b"}]]}], ",", " ", RowBox[{ RowBox[{"\[Omega]", "[", RowBox[{"a_", ",", "0"}], "]"}], " ", "\[Rule]", SubscriptBox["\[Omega]", "a"]}], ",", " ", RowBox[{ RowBox[{"\[Omega]", "[", RowBox[{"a_", ",", "b_"}], "]"}], " ", "\[Rule]", SubscriptBox["\[Omega]", RowBox[{"a", ",", "b"}]]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Theta]", "[", RowBox[{"a_", ",", "0"}], "]"}], " ", "\[Rule]", SubscriptBox["\[Theta]", "a"]}], ",", " ", RowBox[{ RowBox[{"\[Theta]", "[", RowBox[{"a_", ",", "b_"}], "]"}], " ", "\[Rule]", SubscriptBox["\[Theta]", RowBox[{"a", ",", "b"}]]}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", InitializationCell->True, CellChangeTimes->{ 3.667525913825918*^9, 3.667525951874385*^9, {3.667526014180895*^9, 3.667526133989105*^9}, {3.6675278740286736`*^9, 3.6675279303758965`*^9}, { 3.6675452156286526`*^9, 3.6675452299144697`*^9}, 3.667559087584382*^9, { 3.7306191461426644`*^9, 3.7306192201817408`*^9}, {3.73061932111433*^9, 3.730619366837903*^9}, 3.730619435892133*^9, 3.7306194715677967`*^9}, CellLabel->"In[1]:=",ExpressionUUID->"718a3088-f79e-4e0f-855c-1eb4a3539f04"] }, Closed]], Cell[CellGroupData[{ Cell["Geometrical quantities defs", "Subsection", CellChangeTimes->{ 3.4710857577642*^9, {3.4710858112098*^9, 3.4710858239082003`*^9}, { 3.4710859049969997`*^9, 3.4710859061046*^9}, {3.4710892678536*^9, 3.4710892701*^9}, 3.4710893817648*^9, {3.4710894793115997`*^9, 3.4710895039596*^9}, {3.4710905118050003`*^9, 3.471090512741*^9}, { 3.4725252603414*^9, 3.472525264101*^9}, {3.4725253064862003`*^9, 3.4725253370934*^9}, {3.4747629998582*^9, 3.4747630055678*^9}, { 3.4752273878873997`*^9, 3.4752273904926*^9}, {3.4753663741484003`*^9, 3.4753664116352*^9}, {3.4753773567911997`*^9, 3.475377356916*^9}, 3.4753775870472*^9, {3.4754620951394*^9, 3.4754621031266003`*^9}, { 3.4779795207265997`*^9, 3.4779795250576*^9}, 3.537621939388029*^9, 3.537622934627954*^9, {3.5376230222229643`*^9, 3.537623029743394*^9}, { 3.537623460058007*^9, 3.537623470980632*^9}, {3.537624955779557*^9, 3.5376249594157653`*^9}, {3.6000028730424147`*^9, 3.6000028738224154`*^9}, {3.600051011531698*^9, 3.6000510174285083`*^9}, { 3.600051611598405*^9, 3.600051612175606*^9}, {3.601345436806925*^9, 3.6013454383201275`*^9}, {3.601345528035885*^9, 3.6013455313118906`*^9}, { 3.601345570093559*^9, 3.601345572137162*^9}, {3.601345611714432*^9, 3.6013456172368417`*^9}, 3.6016459822022843`*^9, {3.6031079936638145`*^9, 3.603107998499823*^9}, {3.603155726549856*^9, 3.6031557303874626`*^9}, { 3.604483923857771*^9, 3.6044839281321783`*^9}, {3.6044841812582226`*^9, 3.6044841822098246`*^9}, {3.6668845995307226`*^9, 3.666884605295741*^9}, { 3.666884878599985*^9, 3.666884887130411*^9}},ExpressionUUID->"48305deb-3086-4712-8fd5-\ 220c4083629f"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"BASIS", ":=", RowBox[{"CompoundExpression", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "}"}], "=", RowBox[{"var", "=", RowBox[{"Drop", "[", RowBox[{"vars", ",", RowBox[{"-", "1"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"e\[Alpha]", " ", "=", RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "r0"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"h\[Alpha]", " ", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"e\[Alpha]", ".", "e\[Alpha]"}], " ", "]"}], ",", "cnd"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"e\[Alpha]", " ", "=", RowBox[{"Simplify", "[", RowBox[{"e\[Alpha]", "/", "h\[Alpha]"}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"e\[Beta]", " ", "=", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "r0"}]}], ";", "\[IndentingNewLine]", RowBox[{"h\[Beta]", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"e\[Beta]", ".", "e\[Beta]"}], " ", "]"}], ",", "cnd"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"e\[Beta]", "=", RowBox[{"Simplify", "[", RowBox[{"e\[Beta]", "/", "h\[Beta]"}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"en", " ", "=", RowBox[{"Simplify", "[", RowBox[{"e\[Alpha]", "\[Cross]", "e\[Beta]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"hn", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"en", ".", "en"}], " ", "]"}], ",", "cnd"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"en", "=", RowBox[{"Simplify", "[", RowBox[{"en", "/", "hn"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"FF", "=", RowBox[{"{", RowBox[{"e\[Alpha]", ",", "e\[Beta]", ",", "en"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"FFINV", "=", RowBox[{"Simplify", "[", RowBox[{"Inverse", "[", "FF", "]"}], "]"}]}]}], "]"}]}], ";"}], " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SHELLKINEMATICS", ":=", RowBox[{"CompoundExpression", "[", "\[IndentingNewLine]", RowBox[{"(*", " ", "variables", " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "}"}], "=", RowBox[{"var", "=", RowBox[{"Drop", "[", RowBox[{"vars", ",", RowBox[{"-", "1"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", "vars"}], " ", "]"}], ";", "\[IndentingNewLine]", RowBox[{"basis", "=", RowBox[{"{", RowBox[{ SubscriptBox["e", "\[Alpha]"], ",", SubscriptBox["e", "\[Beta]"], ",", SubscriptBox["e", "n"]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"MatrixForm", "[", "basis", "]"}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"Shell", " ", "basis"}], " ", "*)"}], "\[IndentingNewLine]", "BASIS", ";", " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"midsurface", " ", "position", " ", "vector"}], "*)"}], "\[IndentingNewLine]", RowBox[{"rr0", " ", "=", " ", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Transpose", "[", "FFINV", "]"}], ".", "r0"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\<\!\(\*SubscriptBox[\(r\), \(0\)]\) =\>\"", ",", RowBox[{ RowBox[{"rr0", ".", "basis"}], " ", "/.", "asm"}]}], " ", "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"basis", " ", "derivatives"}], "*)"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", RowBox[{"DDD", ",", "ddd"}], "]"}], ";", " ", "\[IndentingNewLine]", RowBox[{"comp", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"DDD", "[", RowBox[{"i", ",", "j", ",", "k"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "n"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "n"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "n"}], "}"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"Evaluate", "[", "comp", "]"}], "=", RowBox[{"ddd", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Simplify", "[", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "#"], "FF"}], ")"}], ".", "FFINV"}], "]"}], "&"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "n"}], "}"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", " ", "\[IndentingNewLine]", RowBox[{ "\"\<\!\(\*SubscriptBox[\(\[PartialD]\), \(\[Alpha]\)]\)e =\>\"", ",", RowBox[{"MatrixForm", "[", RowBox[{ RowBox[{ RowBox[{"ddd", "[", RowBox[{"[", "1", "]"}], "]"}], ".", "basis"}], " ", "/.", "asm"}], "]"}], ",", "\"\< \>\"", ",", "\[IndentingNewLine]", "\"\<\!\(\*SubscriptBox[\(\[PartialD]\), \(\[Beta]\)]\)e =\>\"", ",", RowBox[{"MatrixForm", "[", RowBox[{ RowBox[{ RowBox[{"ddd", "[", RowBox[{"[", "2", "]"}], "]"}], ".", "basis"}], "/.", "asm"}], "]"}], ",", "\"\< \>\"", ",", "\[IndentingNewLine]", " ", "\"\<\!\(\*SubscriptBox[\(\[PartialD]\), \(n\)]\)e =\>\"", ",", RowBox[{"MatrixForm", "[", RowBox[{ RowBox[{ RowBox[{"ddd", "[", RowBox[{"[", "3", "]"}], "]"}], ".", "basis"}], "/.", "asm"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", "gradient", "*)"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", RowBox[{"DD", ",", "dd"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"rrr", "=", RowBox[{"r0", "+", RowBox[{"n", "*", "en"}]}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"HH", " ", "=", " ", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"D", "[", RowBox[{"rrr", ",", RowBox[{"{", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "n"}], "}"}], "}"}]}], "]"}], "]"}], ",", "cnd"}], "]"}]}], ";", " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"MatrixForm", "[", "HH", "]"}]}], "]"}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"MatrixForm", "[", RowBox[{"Simplify", "[", RowBox[{"Inverse", "[", "HH", "]"}], "]"}], "]"}]}], "]"}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"comp", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"DD", "[", RowBox[{"i", ",", "j"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "n"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "n"}], "}"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ddn", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Inverse", "[", RowBox[{"HH", ".", RowBox[{"Transpose", "[", "FF", "]"}]}], "]"}], ",", "cnd"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"Evaluate", "[", "comp", "]"}], "=", RowBox[{"dd", "=", RowBox[{"(", RowBox[{"ddn", "/.", RowBox[{"n", "\[Rule]", "0"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\<\[Del] =\>\"", ",", RowBox[{"MatrixForm", "[", RowBox[{"dd", "/.", "asm"}], "]"}], ",", "\"\< \>\"", ",", "\"\<\[Del] =\>\"", ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"basis", ".", "dd"}], "/.", "asm"}], ")"}], ".", RowBox[{"{", RowBox[{ SubscriptBox["\"\<\[PartialD]\>\"", "\[Alpha]"], ",", SubscriptBox["\"\<\[PartialD]\>\"", "\[Beta]"], ",", SubscriptBox["\"\<\[PartialD]\>\"", "n"]}], "}"}]}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", "curvature", "*)"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", RowBox[{"\[Kappa]\[Kappa]", ",", "kk"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"comp", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"\[Kappa]\[Kappa]", "[", RowBox[{"i", ",", "j"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "n"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "n"}], "}"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"Evaluate", "[", "comp", "]"}], "=", RowBox[{"kk", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"dd", ".", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Last", "[", "#", "]"}], "&"}], ",", "ddd"}], "]"}]}], "]"}], ",", "cnd"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\<\[Kappa] =\>\"", ",", RowBox[{"MatrixForm", "[", RowBox[{ RowBox[{"kk", "[", RowBox[{"[", RowBox[{ RowBox[{"1", ";;", "2"}], ",", RowBox[{"1", ";;", "2"}]}], "]"}], "]"}], "/.", "asm"}], "]"}], ",", "\"\< \>\"", ",", "\[IndentingNewLine]", "\"\<\[Kappa] =\>\"", ",", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"kk", "/.", "asm"}], "]"}], ".", RowBox[{"Flatten", "[", RowBox[{"Outer", "[", RowBox[{"CircleTimes", ",", "basis", ",", "basis"}], "]"}], "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"MatrixForm", "[", RowBox[{"Simplify", "[", RowBox[{"Det", "[", RowBox[{"kk", "[", RowBox[{"[", RowBox[{ RowBox[{"1", ";;", "2"}], ",", RowBox[{"1", ";;", "2"}]}], "]"}], "]"}], " ", "]"}], "]"}], "]"}]}], "]"}], ";"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"gradient", " ", "scaling"}], "*)"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", RowBox[{"GG", ",", "gg"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"comp", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GG", "[", RowBox[{"i", ",", "j"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "n"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "n"}], "}"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"Evaluate", "[", "comp", "]"}], "=", RowBox[{"gg", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"ddn", ".", RowBox[{"Inverse", "[", "dd", "]"}]}], ",", "cnd"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"MatrixForm", "[", RowBox[{"gg", " ", "/.", "asm"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"volume", " ", "and", " ", "area", " ", "elements"}], "*)"}], "\[IndentingNewLine]", RowBox[{"J", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"HH", "[", RowBox[{"[", "1", "]"}], "]"}], ".", RowBox[{"(", RowBox[{ RowBox[{"HH", "[", RowBox[{"[", "2", "]"}], "]"}], StyleBox["\[Cross]", "OperatorCharacter"], RowBox[{"HH", "[", RowBox[{"[", "3", "]"}], "]"}]}], ")"}]}], ",", "cnd"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"J\[Alpha]", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"HH", "[", RowBox[{"[", "2", "]"}], "]"}], StyleBox["\[Cross]", "OperatorCharacter"], RowBox[{"HH", "[", RowBox[{"[", "3", "]"}], "]"}]}], ")"}], ".", RowBox[{"(", RowBox[{ RowBox[{"HH", "[", RowBox[{"[", "2", "]"}], "]"}], StyleBox["\[Cross]", "OperatorCharacter"], RowBox[{"HH", "[", RowBox[{"[", "3", "]"}], "]"}]}], ")"}]}], " ", "]"}], ",", "cnd"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"J\[Beta]", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"HH", "[", RowBox[{"[", "3", "]"}], "]"}], StyleBox["\[Cross]", "OperatorCharacter"], RowBox[{"HH", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}], ".", RowBox[{"(", RowBox[{ RowBox[{"HH", "[", RowBox[{"[", "3", "]"}], "]"}], StyleBox["\[Cross]", "OperatorCharacter"], RowBox[{"HH", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}]}], " ", "]"}], ",", "cnd"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Jn", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"HH", "[", RowBox[{"[", "1", "]"}], "]"}], StyleBox["\[Cross]", "OperatorCharacter"], RowBox[{"HH", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], ".", RowBox[{"(", RowBox[{ RowBox[{"HH", "[", RowBox[{"[", "1", "]"}], "]"}], StyleBox["\[Cross]", "OperatorCharacter"], RowBox[{"HH", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}]}], " ", "]"}], ",", "cnd"}], "]"}]}], ";", "\[IndentingNewLine]", " ", RowBox[{"J", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"J", "/", RowBox[{"(", RowBox[{"J", " ", "/.", " ", RowBox[{"n", "\[Rule]", "0"}]}], ")"}]}], ",", "cnd"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"J\[Alpha]", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"J\[Alpha]", "/", RowBox[{"(", RowBox[{"J\[Alpha]", " ", "/.", " ", RowBox[{"n", "\[Rule]", "0"}]}], ")"}]}], ",", "cnd"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"J\[Beta]", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"J\[Beta]", "/", RowBox[{"(", RowBox[{"J\[Beta]", " ", "/.", " ", RowBox[{"n", "\[Rule]", "0"}]}], ")"}]}], ",", "cnd"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Jn", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Jn", "/", RowBox[{"(", RowBox[{"Jn", " ", "/.", " ", RowBox[{"n", "\[Rule]", "0"}]}], ")"}]}], ",", "cnd"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"J", " ", "/.", "asm"}], ",", "\"\< \>\"", ",", "\"\<\!\(\*SubscriptBox[\(J\), \(\[Alpha]\)]\) =\>\"", ",", RowBox[{"J\[Alpha]", " ", "/.", "asm"}], ",", "\"\< \>\"", ",", "\"\<\!\(\*SubscriptBox[\(J\), \(\[Beta]\)]\) =\>\"", ",", " ", RowBox[{"J\[Beta]", " ", "/.", "asm"}], ",", "\"\< \>\"", ",", "\"\<\!\(\*SubscriptBox[\(J\), \(n\)]\) =\>\"", ",", " ", RowBox[{"Jn", " ", "/.", "asm"}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Christoffel", " ", "symbols"}], "*)"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", RowBox[{"\[CapitalGamma]", ",", "\[CapitalGamma]\[CapitalGamma]"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"comp", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"\[CapitalGamma]", "[", RowBox[{"i", ",", "j", ",", "k"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "n"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "n"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "n"}], "}"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"Evaluate", "[", "comp", "]"}], "=", RowBox[{"\[CapitalGamma]\[CapitalGamma]", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"dd", ".", "ddd"}], ",", "cnd"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", " ", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"aa", "=", RowBox[{"\[CapitalGamma]", "[", RowBox[{"ii", ",", "jj", ",", "kk"}], "]"}]}], ")"}], "===", "0"}], ",", "\"\<\>\"", ",", RowBox[{"Print", "[", RowBox[{ SubscriptBox["\"\<\[CapitalGamma]\>\"", RowBox[{"{", RowBox[{"ii", ",", "jj", ",", "kk"}], "}"}]], " ", ",", "\"\< = \>\"", ",", RowBox[{"aa", " ", "/.", "asm"}]}], "]"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"ii", ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "n"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "n"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"kk", ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "n"}], "}"}]}], "}"}]}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "Input", InitializationCell->True, CellChangeTimes->{{3.6044841869366326`*^9, 3.6044842193846893`*^9}, { 3.60448429961563*^9, 3.604484425679452*^9}, 3.604484459219511*^9, { 3.6046620267627306`*^9, 3.604662028993534*^9}, {3.6048381720233164`*^9, 3.6048381756737227`*^9}, {3.666868290197764*^9, 3.6668683122058334`*^9}, { 3.6668683597467775`*^9, 3.6668683818964453`*^9}, {3.66686845639587*^9, 3.666868470308913*^9}, {3.666877098337613*^9, 3.666877181422058*^9}, { 3.6675282960618124`*^9, 3.6675283148698883`*^9}, {3.6675444752493052`*^9, 3.6675444758283386`*^9}, {3.667555712966066*^9, 3.6675557974839*^9}, { 3.6675561975497828`*^9, 3.667556197880801*^9}, {3.668252663901308*^9, 3.6682526700009193`*^9}, {3.6683165093185673`*^9, 3.668316509802168*^9}, 3.668316703897709*^9, {3.7618881447895975`*^9, 3.7618881491945267`*^9}, 3.7618882178660393`*^9, {3.7618882741028605`*^9, 3.761888277789795*^9}, { 3.7618916470099993`*^9, 3.7618916834392595`*^9}, 3.7618917639517007`*^9, { 3.7618919844468417`*^9, 3.761891984649885*^9}, {3.761892018345189*^9, 3.76189208954007*^9}, {3.761901785232708*^9, 3.7619018131345997`*^9}, { 3.761901904392881*^9, 3.761901904785979*^9}, {3.761902018863076*^9, 3.7619020338496556`*^9}, {3.761902399886441*^9, 3.761902402396004*^9}, { 3.7619026504706573`*^9, 3.7619026636835194`*^9}, {3.7619059915496955`*^9, 3.761905994645768*^9}, {3.761906262916795*^9, 3.76190627890534*^9}, { 3.7619064043186855`*^9, 3.761906453396896*^9}}, CellLabel->"In[5]:=",ExpressionUUID->"7761f32d-599e-4183-96ba-1f442d94a242"] }, Closed]], Cell[CellGroupData[{ Cell["Equilibrium equations defs", "Subsection", CellChangeTimes->{ 3.4710857577642*^9, {3.4710858112098*^9, 3.4710858239082003`*^9}, { 3.4710859049969997`*^9, 3.4710859061046*^9}, {3.4710892678536*^9, 3.4710892701*^9}, 3.4710893817648*^9, {3.4710894793115997`*^9, 3.4710895039596*^9}, {3.4710905118050003`*^9, 3.471090512741*^9}, { 3.4725252603414*^9, 3.472525264101*^9}, {3.4725253064862003`*^9, 3.4725253370934*^9}, {3.4747629998582*^9, 3.4747630055678*^9}, { 3.4752273878873997`*^9, 3.4752273904926*^9}, {3.4753663741484003`*^9, 3.4753664116352*^9}, {3.4753773567911997`*^9, 3.475377356916*^9}, 3.4753775870472*^9, {3.4754620951394*^9, 3.4754621031266003`*^9}, { 3.4779795207265997`*^9, 3.4779795250576*^9}, 3.537621939388029*^9, 3.537622934627954*^9, {3.5376230222229643`*^9, 3.537623029743394*^9}, { 3.537623460058007*^9, 3.537623470980632*^9}, {3.537624955779557*^9, 3.5376249594157653`*^9}, {3.6000028730424147`*^9, 3.6000028738224154`*^9}, {3.600051011531698*^9, 3.6000510174285083`*^9}, { 3.600051611598405*^9, 3.600051612175606*^9}, {3.601345436806925*^9, 3.6013454383201275`*^9}, {3.601345528035885*^9, 3.6013455313118906`*^9}, { 3.601345570093559*^9, 3.601345572137162*^9}, {3.601345611714432*^9, 3.6013456172368417`*^9}, 3.6016459822022843`*^9, {3.6031079936638145`*^9, 3.603107998499823*^9}, {3.603155726549856*^9, 3.6031557303874626`*^9}, { 3.604483923857771*^9, 3.6044839281321783`*^9}, {3.6044841812582226`*^9, 3.6044841822098246`*^9}, {3.6668845995307226`*^9, 3.666884605295741*^9}, { 3.666884675174553*^9, 3.6668846890095963`*^9}, 3.6668847640962315`*^9},ExpressionUUID->"87733f31-a2d5-4ed5-9c86-\ ed88d100d0de"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Clear", "[", "SHELLEQUILIBRIUM", "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SHELLEQUILIBRIUM", ":=", RowBox[{"CompoundExpression", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", RowBox[{"F", ",", "M"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"FQ", "[", "i_", "]"}], ":=", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"DD", "[", RowBox[{"j", ",", "l"}], "]"}], "*", RowBox[{"F", "[", RowBox[{"j", ",", "i", ",", "l"}], "]"}]}], ",", RowBox[{"{", RowBox[{"l", ",", "var"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "vars"}], "}"}]}], "]"}], "+", "\[IndentingNewLine]", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalGamma]", "[", RowBox[{"k", ",", "j", ",", "k"}], "]"}], "*", RowBox[{"F", "[", RowBox[{"j", ",", "i", ",", "0"}], "]"}]}], ",", RowBox[{"{", RowBox[{"j", ",", "var"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "vars"}], "}"}]}], "]"}], "+", "\[IndentingNewLine]", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalGamma]", "[", RowBox[{"j", ",", "k", ",", "i"}], "]"}], "*", RowBox[{"F", "[", RowBox[{"j", ",", "k", ",", "0"}], "]"}]}], ",", RowBox[{"{", RowBox[{"j", ",", "vars"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "vars"}], "}"}]}], "]"}], "+", RowBox[{"b", "[", "i", "]"}]}]}], " ", ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"MQ", "[", "i_", "]"}], ":=", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"DD", "[", RowBox[{"j", ",", "l"}], "]"}], "*", RowBox[{"M", "[", RowBox[{"j", ",", "i", ",", "l"}], "]"}]}], ",", RowBox[{"{", RowBox[{"l", ",", "var"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "vars"}], "}"}]}], "]"}], "+", "\[IndentingNewLine]", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalGamma]", "[", RowBox[{"k", ",", "j", ",", "k"}], "]"}], "*", RowBox[{"M", "[", RowBox[{"j", ",", "i", ",", "0"}], "]"}]}], ",", RowBox[{"{", RowBox[{"j", ",", "var"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "vars"}], "}"}]}], "]"}], "+", "\[IndentingNewLine]", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalGamma]", "[", RowBox[{"j", ",", "k", ",", "i"}], "]"}], "*", RowBox[{"M", "[", RowBox[{"j", ",", "k", ",", "0"}], "]"}]}], ",", RowBox[{"{", RowBox[{"j", ",", "vars"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "vars"}], "}"}]}], "]"}], "-", RowBox[{"F", "[", RowBox[{"n", ",", "i", ",", "0"}], "]"}], "+", RowBox[{"c", "[", "i", "]"}]}]}], ";", " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ RowBox[{"TraditionalForm", "[", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"FQ", "[", "\[Alpha]", "]"}], "/.", "asm"}], " ", "/.", " ", "displayrule"}], "]"}], "]"}], ",", "\"\< = 0\>\""}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ RowBox[{"TraditionalForm", "[", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"FQ", "[", "\[Beta]", "]"}], "/.", "asm"}], " ", "/.", " ", "displayrule"}], "]"}], "]"}], ",", "\"\< = 0\>\""}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ RowBox[{"TraditionalForm", "[", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"FQ", "[", "n", "]"}], "/.", "asm"}], " ", "/.", " ", "displayrule"}], "]"}], "]"}], ",", "\"\< = 0\>\""}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ RowBox[{"TraditionalForm", "[", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"MQ", "[", "\[Alpha]", "]"}], "/.", "asm"}], " ", "/.", " ", "displayrule"}], "]"}], "]"}], ",", "\"\< = 0\>\""}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ RowBox[{"TraditionalForm", "[", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"MQ", "[", "\[Beta]", "]"}], "/.", "asm"}], " ", "/.", " ", "displayrule"}], "]"}], "]"}], ",", "\"\< = 0\>\""}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "Input", InitializationCell->True, CellChangeTimes->{{3.60483819688976*^9, 3.604838211616186*^9}, { 3.6048382428318405`*^9, 3.6048382457022457`*^9}, {3.6048382922527275`*^9, 3.6048382968703356`*^9}, 3.604838859578924*^9, {3.6048394860916243`*^9, 3.6048394872616262`*^9}, {3.6048409029173126`*^9, 3.6048409076597214`*^9}, {3.6048410804768248`*^9, 3.604841082957229*^9}, { 3.60484111752689*^9, 3.6048411823762035`*^9}, {3.6048412356034975`*^9, 3.604841283214781*^9}, {3.60484132269845*^9, 3.604841325412855*^9}, { 3.667524568584756*^9, 3.6675245851519847`*^9}, 3.6675255797493315`*^9, { 3.6675258688042393`*^9, 3.667525896400688*^9}, 3.6675259435127707`*^9, { 3.6675261424131203`*^9, 3.667526163036356*^9}, {3.6675279643858414`*^9, 3.667528072766041*^9}, {3.6675281912858195`*^9, 3.667528192294877*^9}, { 3.667528333902977*^9, 3.6675283788645487`*^9}, {3.667531015196511*^9, 3.667531022060523*^9}, {3.7618918072226057`*^9, 3.7618918195793467`*^9}, { 3.7618921530764303`*^9, 3.761892298714347*^9}, 3.761892480843923*^9, { 3.7618927093058233`*^9, 3.7618927465315285`*^9}}, CellLabel->"In[7]:=",ExpressionUUID->"4381ea94-4419-4716-8021-b38e077dcda4"] }, Closed]], Cell[CellGroupData[{ Cell["Constitutive equations defs", "Subsection", CellChangeTimes->{ 3.4710857577642*^9, {3.4710858112098*^9, 3.4710858239082003`*^9}, { 3.4710859049969997`*^9, 3.4710859061046*^9}, {3.4710892678536*^9, 3.4710892701*^9}, 3.4710893817648*^9, {3.4710894793115997`*^9, 3.4710895039596*^9}, {3.4710905118050003`*^9, 3.471090512741*^9}, { 3.4725252603414*^9, 3.472525264101*^9}, {3.4725253064862003`*^9, 3.4725253370934*^9}, {3.4747629998582*^9, 3.4747630055678*^9}, { 3.4752273878873997`*^9, 3.4752273904926*^9}, {3.4753663741484003`*^9, 3.4753664116352*^9}, {3.4753773567911997`*^9, 3.475377356916*^9}, 3.4753775870472*^9, {3.4754620951394*^9, 3.4754621031266003`*^9}, { 3.4779795207265997`*^9, 3.4779795250576*^9}, {3.4781723763912*^9, 3.4781723803691998`*^9}, {3.4781776626736*^9, 3.4781776635628*^9}, { 3.4781800950726*^9, 3.4781800976154003`*^9}, 3.4785220883716*^9, { 3.4802390003438*^9, 3.4802390026214*^9}, {3.5408348290803275`*^9, 3.540834831732332*^9}, {3.5432325668031006`*^9, 3.543232611101634*^9}, 3.5432333554532084`*^9, {3.6043331824613805`*^9, 3.604333183865383*^9}, { 3.60434129392037*^9, 3.6043412996611805`*^9}, {3.604382196343014*^9, 3.604382201115287*^9}, {3.6044845966089525`*^9, 3.6044846149857845`*^9}, { 3.6044896524906187`*^9, 3.6044896655946417`*^9}, {3.6048386837978153`*^9, 3.604838695404236*^9}, {3.605422347601713*^9, 3.605422347835714*^9}, { 3.6675254616571245`*^9, 3.6675254709703407`*^9}},ExpressionUUID->"2c3f9204-d91f-44f0-b73f-\ b4e126dd46bb"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"CONSTITUTIVE", ":=", RowBox[{"CompoundExpression", "[", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"strain", " ", "measures"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", RowBox[{ "u", ",", "\[Omega]", ",", "\[Kappa]\[Kappa]", ",", "\[Epsilon]\[Epsilon]"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"een", "[", "\[Alpha]", "]"}], ",", RowBox[{"een", "[", "\[Beta]", "]"}], ",", RowBox[{"een", "[", "n", "]"}]}], "}"}], "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], ";", " ", RowBox[{ RowBox[{"\[Omega]", "[", RowBox[{"n", ",", "_"}], "]"}], "=", "0"}], ";", "\[IndentingNewLine]", RowBox[{"comp", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"\[Epsilon]\[Epsilon]", "[", RowBox[{"i", ",", "j"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "vars"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "vars"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"Evaluate", "[", "comp", "]"}], "=", RowBox[{"aa", "=", RowBox[{ RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"DD", "[", RowBox[{"i", ",", "k"}], "]"}], "*", RowBox[{"u", "[", RowBox[{"j", ",", "k"}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "var"}], "}"}]}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"k", ",", "0"}], "]"}], "*", RowBox[{"\[CapitalGamma]", "[", RowBox[{"i", ",", "k", ",", "j"}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "vars"}], "}"}]}], "]"}], "+", RowBox[{ RowBox[{"een", "[", "i", "]"}], "*", RowBox[{"\[Omega]", "[", RowBox[{"j", ",", "0"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"i", ",", "vars"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "vars"}], "}"}]}], "]"}], "/.", "asm"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"comp", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"\[Kappa]\[Kappa]", "[", RowBox[{"i", ",", "j"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "vars"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "vars"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"Evaluate", "[", "comp", "]"}], "=", RowBox[{"bb", "=", RowBox[{ RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"DD", "[", RowBox[{"i", ",", "k"}], "]"}], "*", RowBox[{"\[Omega]", "[", RowBox[{"j", ",", "k"}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "var"}], "}"}]}], "]"}], "+", "\[IndentingNewLine]", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"\[Omega]", "[", RowBox[{"k", ",", "0"}], "]"}], "*", RowBox[{"\[CapitalGamma]", "[", RowBox[{"i", ",", "k", ",", "j"}], "]"}]}], " ", ",", RowBox[{"{", RowBox[{"k", ",", "vars"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "vars"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "vars"}], "}"}]}], "]"}], " ", "/.", "asm"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"int", "=", RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Transpose", "[", "gg", "]"}], ".", RowBox[{"EEEE", "[", RowBox[{"EE", ",", "\[Nu]"}], "]"}], ".", "gg"}], ")"}], "*", "J"}], " ", "/.", "asm"}], "]"}]}], ";", " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"AA", "=", RowBox[{"Integrate", "[", RowBox[{"int", ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{ RowBox[{"-", "t"}], "/", "2"}], ",", RowBox[{"t", "/", "2"}]}], "}"}], ",", RowBox[{"GenerateConditions", "\[Rule]", "False"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"BB", "=", RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{"n", "^", "2"}], "*", "int"}], ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{ RowBox[{"-", "t"}], "/", "2"}], ",", RowBox[{"t", "/", "2"}]}], "}"}], ",", " ", RowBox[{"GenerateConditions", "\[Rule]", "False"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"CC", "=", RowBox[{"Integrate", "[", RowBox[{ RowBox[{"n", "*", "int"}], ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{ RowBox[{"-", "t"}], "/", "2"}], ",", RowBox[{"t", "/", "2"}]}], "}"}], ",", RowBox[{"GenerateConditions", "\[Rule]", "False"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Clear", "[", RowBox[{"FD", ",", "MD"}], "]"}], ";", " ", "\[IndentingNewLine]", RowBox[{"comp", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"FD", "[", RowBox[{"i", ",", "j"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "vars"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "vars"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"Evaluate", "[", "comp", "]"}], "=", RowBox[{"fd", "=", "\[IndentingNewLine]", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"AA", "[", RowBox[{"[", RowBox[{";;", ",", ";;", ",", "i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"aa", "[", RowBox[{"[", RowBox[{"j", ",", "i"}], "]"}], "]"}]}], "+", RowBox[{ RowBox[{"CC", "[", RowBox[{"[", RowBox[{";;", ",", ";;", ",", "i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"bb", "[", RowBox[{"[", RowBox[{"j", ",", "i"}], "]"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"comp", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"MD", "[", RowBox[{"i", ",", "j"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "n"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "n"}], "}"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"Evaluate", "[", "comp", "]"}], "=", RowBox[{"md", "=", "\[IndentingNewLine]", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"CC", "[", RowBox[{"[", RowBox[{";;", ",", ";;", ",", "i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"aa", "[", RowBox[{"[", RowBox[{"j", ",", "i"}], "]"}], "]"}]}], "+", RowBox[{ RowBox[{"BB", "[", RowBox[{"[", RowBox[{";;", ",", ";;", ",", "i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"bb", "[", RowBox[{"[", RowBox[{"j", ",", "i"}], "]"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}]}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SHELLCONSTITUTIVE", "[", "nt_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "comp", ",", "\[Kappa]\[Kappa]", ",", "\[Epsilon]\[Epsilon]", ",", "aa", ",", "bb"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ "CONSTITUTIVE", ";", "\[IndentingNewLine]", "\[IndentingNewLine]", " ", RowBox[{ RowBox[{"\[Omega]", "[", RowBox[{ RowBox[{"vars", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "b_"}], "]"}], ":=", " ", RowBox[{"\[Theta]", "[", RowBox[{ RowBox[{"vars", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "b"}], "]"}]}], ";", "\[IndentingNewLine]", " ", RowBox[{ RowBox[{"\[Omega]", "[", RowBox[{ RowBox[{"vars", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "b_"}], "]"}], ":=", " ", RowBox[{"-", RowBox[{"\[Theta]", "[", RowBox[{ RowBox[{"vars", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "b"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{ RowBox[{"TraditionalForm", "[", RowBox[{ RowBox[{ RowBox[{"F", "[", RowBox[{ RowBox[{"vars", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"vars", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "0"}], "]"}], "/.", "asm"}], "/.", "displayrule"}], "]"}], ",", "\"\<=\>\"", ",", RowBox[{"TraditionalForm", "[", RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{ RowBox[{"t", "*", RowBox[{"Normal", "[", RowBox[{"Series", "[", RowBox[{ RowBox[{ RowBox[{"FD", "[", RowBox[{ RowBox[{"vars", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"vars", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], "/", "t"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "nt"}], "}"}]}], "]"}], "]"}]}], " ", "/.", "asm"}], "/.", " ", "displayrule"}], "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{ RowBox[{"TraditionalForm", "[", RowBox[{ RowBox[{ RowBox[{"M", "[", RowBox[{ RowBox[{"vars", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"vars", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "0"}], "]"}], "/.", "asm"}], "/.", "displayrule"}], "]"}], ",", "\"\<=\>\"", ",", RowBox[{"TraditionalForm", "[", RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"t", "^", "3"}], "*", RowBox[{"Normal", "[", RowBox[{"Series", "[", RowBox[{ RowBox[{ RowBox[{"MD", "[", RowBox[{ RowBox[{"vars", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"vars", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], "/", RowBox[{"t", "^", "3"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "nt"}], "}"}]}], "]"}], "]"}]}], " ", "/.", "asm"}], " ", "/.", " ", "displayrule"}], "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}]}]}], "]"}]}], ";"}]}], "Input", InitializationCell->True, CellChangeTimes->{{3.6043398539182405`*^9, 3.6043398897827034`*^9}, { 3.6043400477589817`*^9, 3.604340094122263*^9}, {3.6043401259151187`*^9, 3.6043401829488187`*^9}, {3.6043402812133913`*^9, 3.6043403568579245`*^9}, {3.6043404115360203`*^9, 3.6043405005653768`*^9}, {3.6043406568932514`*^9, 3.6043408066847143`*^9}, {3.6043408599120083`*^9, 3.6043409313445334`*^9}, {3.60434107746999*^9, 3.60434108892041*^9}, { 3.6043411405409007`*^9, 3.60434115710813*^9}, {3.6043413179912124`*^9, 3.604341343762458*^9}, {3.604341459436661*^9, 3.604341501977936*^9}, { 3.6043415321171885`*^9, 3.6043415587776356`*^9}, {3.6043415964829016`*^9, 3.604341631988564*^9}, {3.6043416866666603`*^9, 3.6043417250583277`*^9}, { 3.604341782404028*^9, 3.6043418167864885`*^9}, 3.604341975875568*^9, { 3.6043420445000887`*^9, 3.6043420489460964`*^9}, {3.6043436158440485`*^9, 3.604343619541255*^9}, {3.604382192675804*^9, 3.604382214996081*^9}, { 3.604382316645895*^9, 3.6043823207471294`*^9}, {3.6044844870187597`*^9, 3.604484493570771*^9}, {3.604484579807723*^9, 3.6044845826157274`*^9}, { 3.6044846567314577`*^9, 3.604484662659468*^9}, {3.6045543294378357`*^9, 3.6045545088849506`*^9}, {3.6045546282095604`*^9, 3.60455466223322*^9}, { 3.604554703620093*^9, 3.60455474737817*^9}, {3.604554790949046*^9, 3.604554864737176*^9}, {3.6046629913436246`*^9, 3.6046630375041056`*^9}, { 3.6046630954114075`*^9, 3.6046634052747517`*^9}, {3.604663447067225*^9, 3.6046634688760633`*^9}, {3.6046635530070114`*^9, 3.604663561992627*^9}, 3.604838468533037*^9, {3.604969718691697*^9, 3.6049697290657153`*^9}, { 3.604969768954985*^9, 3.604969772948592*^9}, {3.604969962894526*^9, 3.6049699797269554`*^9}, {3.6675248829877076`*^9, 3.6675249229237776`*^9}, {3.6675250056351233`*^9, 3.6675250673508315`*^9}, {3.667525103964096*^9, 3.6675251131369123`*^9}, { 3.6675251991710634`*^9, 3.667525221260702*^9}, {3.6675253794449797`*^9, 3.667525380677382*^9}, 3.6675255943821573`*^9, {3.667525633382226*^9, 3.66752570977756*^9}, {3.667525741164815*^9, 3.667525771725269*^9}, 3.667526006287281*^9, 3.667526225920067*^9, 3.6675264699834957`*^9, { 3.6675265057699585`*^9, 3.667526572647276*^9}, {3.667526612177745*^9, 3.6675267621876087`*^9}, {3.6675267926388617`*^9, 3.6675268192837086`*^9}, {3.6675268779086123`*^9, 3.6675270063280373`*^9}, {3.6675273700308466`*^9, 3.667527374949128*^9}, { 3.667527422448845*^9, 3.667527488137602*^9}, 3.6675275390695148`*^9, { 3.6675275973858504`*^9, 3.6675276985936394`*^9}, {3.667527731229506*^9, 3.6675278522414274`*^9}, {3.6675310469893665`*^9, 3.667531140529131*^9}, { 3.6675312713051605`*^9, 3.667531317106841*^9}, {3.6675314653071012`*^9, 3.6675315189711957`*^9}, 3.6675315992177367`*^9, {3.667531652635231*^9, 3.6675317380453806`*^9}, {3.6675317845178623`*^9, 3.6675317901806726`*^9}, {3.667531853844384*^9, 3.6675319730441933`*^9}, { 3.6675320110458603`*^9, 3.6675320774083767`*^9}, {3.667532145112496*^9, 3.6675321488721027`*^9}, {3.667544188458902*^9, 3.6675442227708645`*^9}, { 3.6675586328747835`*^9, 3.6675587590478053`*^9}, {3.7304271124398813`*^9, 3.7304271128149347`*^9}, {3.73086350597027*^9, 3.730863573789995*^9}, 3.730863630155381*^9, {3.730863685723797*^9, 3.730863692193108*^9}, { 3.730863745323888*^9, 3.730863789693757*^9}, {3.7308639579619713`*^9, 3.7308640668173094`*^9}, {3.7308641138692036`*^9, 3.730864150810334*^9}, { 3.730864194096489*^9, 3.730864261634941*^9}, {3.7618924917630258`*^9, 3.7618925302230463`*^9}, {3.761892569823065*^9, 3.761892590224506*^9}, { 3.76190448247231*^9, 3.7619044926478167`*^9}, {3.7619045826461086`*^9, 3.7619045863186407`*^9}, {3.7619046258077793`*^9, 3.7619046379962993`*^9}, {3.7619046697818503`*^9, 3.761904675560876*^9}, { 3.7619071906867094`*^9, 3.761907196927573*^9}, {3.7619074316906433`*^9, 3.761907439811471*^9}, {3.761965045990795*^9, 3.7619651377558217`*^9}, { 3.7620068274106174`*^9, 3.7620068398704915`*^9}}, CellLabel->"In[9]:=",ExpressionUUID->"12aa9b31-3a11-4df8-ab3f-a0e8517463af"] }, Closed]], Cell[CellGroupData[{ Cell["Cylindrical membrane defs", "Subsection", CellChangeTimes->{ 3.4710857577642*^9, {3.4710858112098*^9, 3.4710858239082003`*^9}, { 3.4710859049969997`*^9, 3.4710859061046*^9}, {3.4710892678536*^9, 3.4710892701*^9}, 3.4710893817648*^9, {3.4710894793115997`*^9, 3.4710895039596*^9}, {3.4710905118050003`*^9, 3.471090512741*^9}, { 3.4725252603414*^9, 3.472525264101*^9}, {3.4725253064862003`*^9, 3.4725253370934*^9}, {3.4747629998582*^9, 3.4747630055678*^9}, { 3.4752273878873997`*^9, 3.4752273904926*^9}, {3.4753663741484003`*^9, 3.4753664116352*^9}, {3.4753773567911997`*^9, 3.475377356916*^9}, 3.4753775870472*^9, {3.4754620951394*^9, 3.4754621031266003`*^9}, { 3.4779795207265997`*^9, 3.4779795250576*^9}, 3.537621939388029*^9, 3.537622934627954*^9, {3.5376230222229643`*^9, 3.537623029743394*^9}, { 3.537623460058007*^9, 3.537623470980632*^9}, {3.537624955779557*^9, 3.5376249594157653`*^9}, {3.6000028730424147`*^9, 3.6000028738224154`*^9}, 3.601272187572051*^9, {3.601890784270049*^9, 3.6018907857052517`*^9}, { 3.664864799801414*^9, 3.664864802188218*^9}, {3.7298419656682825`*^9, 3.7298419723564906`*^9}, {3.729842839495038*^9, 3.7298428412921534`*^9}, { 3.7299132753746405`*^9, 3.729913287556707*^9}, 3.73042782240559*^9, { 3.73068589024039*^9, 3.7306858917864795`*^9}, {3.7306859297547183`*^9, 3.730685930786157*^9}, {3.730686307697294*^9, 3.730686310691363*^9}, { 3.73068640983685*^9, 3.7306864149500475`*^9}},ExpressionUUID->"a847a516-e420-424e-ac47-\ 83d232563e99"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"equilibrium", "[", "membrane", "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Phi]"], RowBox[{"Nz\[Phi]", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], "/", "R"}], "+", RowBox[{ SubscriptBox["\[PartialD]", "z"], RowBox[{"Nzz", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], "+", "bz"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "z"], RowBox[{"Nz\[Phi]", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], "+", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Phi]"], RowBox[{"N\[Phi]\[Phi]", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], "/", "R"}], "+", "b\[Phi]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"N\[Phi]\[Phi]", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "/", "R"}], "+", "bn"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"constitutive", "[", "membrane", "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"N\[Phi]\[Phi]", "[", "\[Phi]", "]"}], "-", RowBox[{"EE", "*", RowBox[{"t", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"u\[Phi]", "'"}], "[", "\[Phi]", "]"}], "-", RowBox[{"un", "[", "\[Phi]", "]"}]}], ")"}], "/", "R"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Q\[Phi]", "[", "\[Phi]", "]"}], "-", RowBox[{"GG", "*", "t", "*", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"un", "'"}], "[", "\[Phi]", "]"}], "+", RowBox[{"u\[Phi]", "[", "\[Phi]", "]"}]}], ")"}], "/", "R"}], "*", "\[Alpha]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"M\[Phi]\[Phi]", "[", "\[Phi]", "]"}], "-", RowBox[{"DD", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Theta]z", "'"}], "[", "\[Phi]", "]"}]}], "/", "R"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"u\[Phi]", "'"}], "[", "\[Phi]", "]"}], "-", RowBox[{"un", "[", "\[Phi]", "]"}]}], ")"}], "/", RowBox[{"R", "^", "2"}]}]}], ")"}]}]}]}], "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"clamped", "[", "membrane", "]"}], "[", "\[Phi]_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"un", "[", "\[Phi]", "]"}], ",", RowBox[{"u\[Phi]", "[", "\[Phi]", "]"}], ",", RowBox[{"\[Theta]z", "[", "\[Phi]", "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"free", "[", "membrane", "]"}], "[", RowBox[{"z_", ",", "\[Phi]_"}], "]"}], ":=", RowBox[{"{", RowBox[{"Nzz", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"resultants", "[", "membrane", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"Nzz", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], ",", RowBox[{"N\[Phi]\[Phi]", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], ",", RowBox[{"Nz\[Phi]", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], "}"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{ 3.4747630249118*^9, {3.4747631189174*^9, 3.4747632157778*^9}, { 3.4747632855098*^9, 3.4747632963361998`*^9}, {3.4747634024006*^9, 3.474763402697*^9}, {3.474763495517*^9, 3.4747635001814003`*^9}, { 3.4747637730566*^9, 3.474763803851*^9}, {3.4747642087646*^9, 3.4747642600573997`*^9}, {3.4747643726426*^9, 3.4747644737774*^9}, { 3.4752269899314003`*^9, 3.4752270948882*^9}, {3.4752271345902*^9, 3.4752272632434*^9}, {3.475227295551*^9, 3.4752275983314*^9}, { 3.475227632591*^9, 3.4752276649932003`*^9}, {3.4752276971146*^9, 3.4752277780172*^9}, {3.4752278086712*^9, 3.4752279362948*^9}, { 3.4752279825643997`*^9, 3.4752280182416*^9}, {3.4752280573196*^9, 3.4752280750411997`*^9}, {3.4752281205931997`*^9, 3.4752281779231997`*^9}, {3.4752283129412003`*^9, 3.4752284125678*^9}, { 3.4752286421373997`*^9, 3.4752286429174*^9}, {3.4752290214202003`*^9, 3.4752292420810003`*^9}, {3.4752292747942*^9, 3.4752293745874*^9}, { 3.4752294050854*^9, 3.4752295128190002`*^9}, {3.475230037291*^9, 3.4752300676486*^9}, {3.4752302150998*^9, 3.475230248749*^9}, { 3.4753664935702*^9, 3.4753668085810003`*^9}, {3.4753668484702*^9, 3.4753670665114*^9}, {3.4753671011902*^9, 3.4753674723454*^9}, { 3.4753676229322*^9, 3.4753677863733997`*^9}, {3.475367825233*^9, 3.475367848243*^9}, {3.475368029983*^9, 3.4753680589522*^9}, { 3.475369411392*^9, 3.4753695644904003`*^9}, {3.4753696954256*^9, 3.475369726766*^9}, {3.4753698525643997`*^9, 3.4753698555128*^9}, { 3.4753773724536*^9, 3.4753774958652*^9}, 3.4753775502468*^9, { 3.4753776430044003`*^9, 3.4753776659364*^9}, {3.4753777121748*^9, 3.4753777832483997`*^9}, {3.4753778188164*^9, 3.475377922336*^9}, { 3.4753779601348*^9, 3.4753784001952*^9}, {3.4753785090208*^9, 3.475378568722*^9}, {3.4753786124955997`*^9, 3.4753786164112*^9}, { 3.4753786468156*^9, 3.4753786657384*^9}, {3.4753787045355997`*^9, 3.4753787267032003`*^9}, 3.4753910727106*^9, {3.4753931910636*^9, 3.4753932441756*^9}, {3.4754621543882*^9, 3.4754622450397997`*^9}, { 3.4778876497897997`*^9, 3.4778877494737997`*^9}, {3.477887825399*^9, 3.4778878298606*^9}, {3.4778878701085997`*^9, 3.477887883041*^9}, { 3.4778879526482*^9, 3.477887957843*^9}, {3.4778879979974003`*^9, 3.4778880009614*^9}, {3.4778880335654*^9, 3.4778880462326*^9}, { 3.4778880897098*^9, 3.4778881201142*^9}, {3.4778882394908*^9, 3.477888243734*^9}, {3.4778884935368*^9, 3.477888539042*^9}, { 3.477889451995*^9, 3.4778895118416*^9}, {3.4779795395165997`*^9, 3.4779795402136*^9}, {3.4779797634996*^9, 3.4779797999356003`*^9}, 3.4779798372766*^9, {3.4779799820666*^9, 3.4779801217206*^9}, { 3.4779801745425997`*^9, 3.4779801845926*^9}, {3.4779804353096*^9, 3.4779804588506002`*^9}, {3.4779804893566*^9, 3.4779806203556004`*^9}, { 3.4779807300538*^9, 3.4779807467418003`*^9}, {3.4779808817128*^9, 3.4779809449638*^9}, {3.4781573512264*^9, 3.4781573649856*^9}, { 3.478157397808*^9, 3.4781574763227997`*^9}, {3.4781575335436*^9, 3.4781576406532*^9}, {3.4781576880615997`*^9, 3.478157739292*^9}, { 3.478157788042*^9, 3.4781577938452*^9}, {3.4781578276036*^9, 3.4781579446191998`*^9}, {3.4781579974564*^9, 3.4781579980959997`*^9}, 3.47815804396*^9, {3.4781582919532003`*^9, 3.47815834816*^9}, { 3.4781583838694*^9, 3.4781583926366*^9}, 3.4781585049566*^9, { 3.478162407691*^9, 3.4781624349442*^9}, {3.4781624661286*^9, 3.4781624682033997`*^9}, 3.4781626733746*^9, {3.5376219474134884`*^9, 3.537621988198821*^9}, {3.537622048951296*^9, 3.537622120225373*^9}, { 3.5376222446004868`*^9, 3.537622312108348*^9}, 3.537622776495909*^9, { 3.537622908932484*^9, 3.537622917335965*^9}, {3.5376238837162385`*^9, 3.537624004391141*^9}, {3.5376240458145103`*^9, 3.5376242437438307`*^9}, { 3.537624281650999*^9, 3.5376244166457205`*^9}, {3.5376244546488943`*^9, 3.5376248198917847`*^9}, {3.5397503703948455`*^9, 3.5397504308449516`*^9}, 3.5627674253055143`*^9, {3.5781422724253883`*^9, 3.578142305481847*^9}, { 3.5828109510514917`*^9, 3.582810961924711*^9}, {3.6000023977095795`*^9, 3.6000024056343937`*^9}, {3.600002438425651*^9, 3.6000024578788853`*^9}, { 3.600002497565355*^9, 3.600002598559932*^9}, {3.6000027265893574`*^9, 3.6000028178183174`*^9}, {3.600004251273635*^9, 3.6000042647676587`*^9}, { 3.6000479817557764`*^9, 3.6000483859368863`*^9}, {3.600048424453354*^9, 3.6000485077575006`*^9}, {3.600048552451579*^9, 3.600048659342967*^9}, { 3.6000486956130304`*^9, 3.6000487948292046`*^9}, {3.600048827292862*^9, 3.6000488489925*^9}, {3.6000489136546135`*^9, 3.6000492298047686`*^9}, { 3.6000492661060324`*^9, 3.6000494956604357`*^9}, {3.600049563676555*^9, 3.60004964038189*^9}, {3.600049704232802*^9, 3.600049707680408*^9}, { 3.6000498654590855`*^9, 3.600049982756691*^9}, {3.600050061318429*^9, 3.600050183014243*^9}, {3.6000502198459077`*^9, 3.6000503051000576`*^9}, { 3.6000503376105146`*^9, 3.600050450320712*^9}, {3.600050565012114*^9, 3.6000507365032153`*^9}, {3.6000507713224764`*^9, 3.6000507846292996`*^9}, {3.6000509146243277`*^9, 3.6000509929520655`*^9}, {3.600052137070728*^9, 3.600052140487134*^9}, { 3.6009245212614975`*^9, 3.6009245813060026`*^9}, {3.6009246118976564`*^9, 3.6009247053262205`*^9}, {3.6009247454650908`*^9, 3.6009248645557003`*^9}, {3.600924897627758*^9, 3.6009250270923853`*^9}, { 3.60093269343791*^9, 3.6009326961055145`*^9}, {3.6009327283039713`*^9, 3.600932810640916*^9}, {3.600932919607107*^9, 3.6009330596953535`*^9}, { 3.600933106448635*^9, 3.6009331778655605`*^9}, {3.6009332278324485`*^9, 3.6009334194943852`*^9}, {3.600933457277652*^9, 3.600933458978054*^9}, { 3.6009335033445325`*^9, 3.600933546775009*^9}, {3.600933589019883*^9, 3.600933594635893*^9}, {3.6009336332459607`*^9, 3.600933726752525*^9}, { 3.600933764317391*^9, 3.6009337710722027`*^9}, {3.6009338044406614`*^9, 3.600933853081547*^9}, {3.600934005244214*^9, 3.6009340502970934`*^9}, { 3.6009340857403555`*^9, 3.6009341752533126`*^9}, {3.600934250008644*^9, 3.600934354918828*^9}, {3.600934408426922*^9, 3.6009344234341483`*^9}, { 3.600934488111862*^9, 3.6009345709168077`*^9}, {3.600934624736902*^9, 3.600934638932927*^9}, {3.60093468637261*^9, 3.600934760753541*^9}, { 3.6009348210476465`*^9, 3.6009349317766414`*^9}, {3.6009350071247735`*^9, 3.600935160207843*^9}, {3.6009352133259363`*^9, 3.6009352260243583`*^9}, { 3.6009352675828314`*^9, 3.600935273776042*^9}, {3.6009383693050795`*^9, 3.6009386236011257`*^9}, {3.600938695158451*^9, 3.600938845605116*^9}, { 3.6009391629720736`*^9, 3.600939299628313*^9}, {3.600939553393959*^9, 3.6009395861540165`*^9}, {3.600939652407333*^9, 3.6009396642633533`*^9}, { 3.6009397392682853`*^9, 3.600939765398331*^9}, {3.600939855098489*^9, 3.6009398902297506`*^9}, {3.6009399920511293`*^9, 3.6009400593496475`*^9}, {3.6009401208137555`*^9, 3.600940245286374*^9}, { 3.6009402864548464`*^9, 3.6009402976088657`*^9}, {3.600944609222439*^9, 3.600944635477285*^9}, {3.600944687784177*^9, 3.600944710778617*^9}, { 3.6009451493577876`*^9, 3.600945150184589*^9}, 3.6009451913218613`*^9, { 3.600945405229437*^9, 3.6009454072106404`*^9}, {3.600945440610299*^9, 3.600945510482822*^9}, {3.6009457299128075`*^9, 3.6009457335008135`*^9}, { 3.600953140517025*^9, 3.600953181233096*^9}, {3.600953225365574*^9, 3.600953304598113*^9}, {3.6009533714130306`*^9, 3.60095337693544*^9}, { 3.600955624306587*^9, 3.6009556683142643`*^9}, {3.600955704350328*^9, 3.6009557208863573`*^9}, {3.600955931346327*^9, 3.6009559929508348`*^9}, { 3.600956393809139*^9, 3.600956401328352*^9}, {3.601271999654121*^9, 3.6012720126177435`*^9}, {3.601272051820613*^9, 3.601272060572228*^9}, { 3.601272126185943*^9, 3.601272140990369*^9}, 3.6012722043888807`*^9, 3.601272299875179*^9, {3.6012725511195493`*^9, 3.6012725676964974`*^9}, 3.6012728819354706`*^9, {3.601272984077313*^9, 3.6012729861614323`*^9}, { 3.6648646212123003`*^9, 3.664864693830428*^9}, {3.6648651694294634`*^9, 3.664865194810708*^9}, {3.6648653304529457`*^9, 3.6648653472541757`*^9}, { 3.729843343017043*^9, 3.729843359628227*^9}, {3.729912735732216*^9, 3.7299128731556425`*^9}, {3.7299129221669583`*^9, 3.72991294797655*^9}, { 3.7300248525581837`*^9, 3.730024855449114*^9}, {3.7304279745734572`*^9, 3.730428077178316*^9}, {3.730428111666378*^9, 3.7304284640162597`*^9}, { 3.730428499722911*^9, 3.7304285693711977`*^9}, {3.7304286054841323`*^9, 3.730428718980919*^9}, {3.7304290371707726`*^9, 3.7304290376396465`*^9}, { 3.7305215743202953`*^9, 3.730521592387599*^9}, {3.7306859018005486`*^9, 3.730685957368223*^9}, 3.7306863228861523`*^9, 3.7306863605950265`*^9, { 3.7306864034973726`*^9, 3.73068657790843*^9}, {3.7306892443636436`*^9, 3.730689333610838*^9}, {3.730689393161976*^9, 3.73068941497663*^9}, { 3.7306895975502005`*^9, 3.7306896265576987`*^9}, {3.730689678523308*^9, 3.7306896837223816`*^9}, 3.7306900380182543`*^9}, CellLabel->"In[11]:=",ExpressionUUID->"d8daa811-c4f3-49af-94a3-d6e063ca04dd"] }, Closed]], Cell[CellGroupData[{ Cell["Cylindrical shell \[Phi]-strip defs", "Subsection", CellChangeTimes->{ 3.4710857577642*^9, {3.4710858112098*^9, 3.4710858239082003`*^9}, { 3.4710859049969997`*^9, 3.4710859061046*^9}, {3.4710892678536*^9, 3.4710892701*^9}, 3.4710893817648*^9, {3.4710894793115997`*^9, 3.4710895039596*^9}, {3.4710905118050003`*^9, 3.471090512741*^9}, { 3.4725252603414*^9, 3.472525264101*^9}, {3.4725253064862003`*^9, 3.4725253370934*^9}, {3.4747629998582*^9, 3.4747630055678*^9}, { 3.4752273878873997`*^9, 3.4752273904926*^9}, {3.4753663741484003`*^9, 3.4753664116352*^9}, {3.4753773567911997`*^9, 3.475377356916*^9}, 3.4753775870472*^9, {3.4754620951394*^9, 3.4754621031266003`*^9}, { 3.4779795207265997`*^9, 3.4779795250576*^9}, 3.537621939388029*^9, 3.537622934627954*^9, {3.5376230222229643`*^9, 3.537623029743394*^9}, { 3.537623460058007*^9, 3.537623470980632*^9}, {3.537624955779557*^9, 3.5376249594157653`*^9}, {3.6000028730424147`*^9, 3.6000028738224154`*^9}, 3.601272187572051*^9, {3.601890784270049*^9, 3.6018907857052517`*^9}, { 3.664864799801414*^9, 3.664864802188218*^9}, {3.7298419656682825`*^9, 3.7298419723564906`*^9}, {3.729842839495038*^9, 3.7298428412921534`*^9}, { 3.7299132753746405`*^9, 3.729913287556707*^9}, 3.73042782240559*^9, { 3.73068589024039*^9, 3.7306858917864795`*^9}, {3.7306859297547183`*^9, 3.730685930786157*^9}},ExpressionUUID->"d1705dbe-8510-406a-9bdf-\ d12f527657e5"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"equilibrium", "[", "\[Phi]n", "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"N\[Phi]\[Phi]", "'"}], "[", "\[Phi]", "]"}], "/", "R"}], "-", RowBox[{ RowBox[{"Q\[Phi]", "[", "\[Phi]", "]"}], "/", "R"}], "+", "b\[Phi]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Q\[Phi]", "'"}], "[", "\[Phi]", "]"}], "/", "R"}], "+", RowBox[{ RowBox[{"N\[Phi]\[Phi]", "[", "\[Phi]", "]"}], "/", "R"}], "+", "bn"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"M\[Phi]\[Phi]", "'"}], "[", "\[Phi]", "]"}], "/", "R"}], "-", RowBox[{ RowBox[{"M\[Phi]n", "[", "\[Phi]", "]"}], "/", "R"}], "-", RowBox[{"Q\[Phi]", "[", "\[Phi]", "]"}], "+", "c\[Phi]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"DD", ":=", RowBox[{ RowBox[{ RowBox[{"t", "^", "3"}], "/", "12"}], "*", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]", "^", "2"}]}], ")"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"constitutive", "[", "\[Phi]n", "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"N\[Phi]\[Phi]", "[", "\[Phi]", "]"}], "-", RowBox[{"(", RowBox[{ RowBox[{"EE", "*", RowBox[{"t", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"u\[Phi]", "'"}], "[", "\[Phi]", "]"}], "-", RowBox[{"un", "[", "\[Phi]", "]"}]}], ")"}], "/", "R"}]}], "-", RowBox[{"DD", " ", "*", RowBox[{ RowBox[{ RowBox[{"\[Theta]z", "'"}], "[", "\[Phi]", "]"}], "/", RowBox[{"R", "^", "2"}]}]}]}], ")"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Q\[Phi]", "[", "\[Phi]", "]"}], "-", RowBox[{"(", RowBox[{"GG", "*", "t", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"un", "'"}], "[", "\[Phi]", "]"}], "+", RowBox[{"u\[Phi]", "[", "\[Phi]", "]"}]}], ")"}], "/", "R"}], "-", RowBox[{"\[Theta]z", "[", "\[Phi]", "]"}]}], ")"}]}], ")"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"M\[Phi]\[Phi]", "[", "\[Phi]", "]"}], "-", RowBox[{"(", RowBox[{"DD", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Theta]z", "'"}], "[", "\[Phi]", "]"}]}], "/", "R"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"u\[Phi]", "'"}], "[", "\[Phi]", "]"}], "-", RowBox[{"un", "[", "\[Phi]", "]"}]}], ")"}], "/", RowBox[{"R", "^", "2"}]}]}], ")"}]}], ")"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"M\[Phi]n", "[", "\[Phi]", "]"}], "-", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Nu]"}], ")"}], "/", "2"}], "*", "DD", "*", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"un", "'"}], "[", "\[Phi]", "]"}], "+", RowBox[{"u\[Phi]", "[", "\[Phi]", "]"}]}], ")"}], "/", "R"}], "-", RowBox[{"\[Theta]z", "[", "\[Phi]", "]"}]}], ")"}], "/", "R"}], ")"}]}], ")"}]}]}], "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"clamped", "[", "\[Phi]n", "]"}], "[", "\[Phi]_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"un", "[", "\[Phi]", "]"}], ",", RowBox[{"u\[Phi]", "[", "\[Phi]", "]"}], ",", RowBox[{"\[Theta]z", "[", "\[Phi]", "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"free", "[", "\[Phi]n", "]"}], "[", "\[Phi]_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"N\[Phi]\[Phi]", "[", "\[Phi]", "]"}], ",", RowBox[{"Q\[Phi]", "[", "\[Phi]", "]"}], ",", RowBox[{"M\[Phi]\[Phi]", "[", "\[Phi]", "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"functions", "[", "\[Phi]n", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"un", "[", "\[Phi]", "]"}], ",", RowBox[{"u\[Phi]", "[", "\[Phi]", "]"}], ",", RowBox[{"\[Theta]z", "[", "\[Phi]", "]"}], ",", RowBox[{"N\[Phi]\[Phi]", "[", "\[Phi]", "]"}], ",", RowBox[{"Q\[Phi]", "[", "\[Phi]", "]"}], ",", RowBox[{"M\[Phi]\[Phi]", "[", "\[Phi]", "]"}], ",", RowBox[{"M\[Phi]n", "[", "\[Phi]", "]"}]}], "}"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{ 3.4747630249118*^9, {3.4747631189174*^9, 3.4747632157778*^9}, { 3.4747632855098*^9, 3.4747632963361998`*^9}, {3.4747634024006*^9, 3.474763402697*^9}, {3.474763495517*^9, 3.4747635001814003`*^9}, { 3.4747637730566*^9, 3.474763803851*^9}, {3.4747642087646*^9, 3.4747642600573997`*^9}, {3.4747643726426*^9, 3.4747644737774*^9}, { 3.4752269899314003`*^9, 3.4752270948882*^9}, {3.4752271345902*^9, 3.4752272632434*^9}, {3.475227295551*^9, 3.4752275983314*^9}, { 3.475227632591*^9, 3.4752276649932003`*^9}, {3.4752276971146*^9, 3.4752277780172*^9}, {3.4752278086712*^9, 3.4752279362948*^9}, { 3.4752279825643997`*^9, 3.4752280182416*^9}, {3.4752280573196*^9, 3.4752280750411997`*^9}, {3.4752281205931997`*^9, 3.4752281779231997`*^9}, {3.4752283129412003`*^9, 3.4752284125678*^9}, { 3.4752286421373997`*^9, 3.4752286429174*^9}, {3.4752290214202003`*^9, 3.4752292420810003`*^9}, {3.4752292747942*^9, 3.4752293745874*^9}, { 3.4752294050854*^9, 3.4752295128190002`*^9}, {3.475230037291*^9, 3.4752300676486*^9}, {3.4752302150998*^9, 3.475230248749*^9}, { 3.4753664935702*^9, 3.4753668085810003`*^9}, {3.4753668484702*^9, 3.4753670665114*^9}, {3.4753671011902*^9, 3.4753674723454*^9}, { 3.4753676229322*^9, 3.4753677863733997`*^9}, {3.475367825233*^9, 3.475367848243*^9}, {3.475368029983*^9, 3.4753680589522*^9}, { 3.475369411392*^9, 3.4753695644904003`*^9}, {3.4753696954256*^9, 3.475369726766*^9}, {3.4753698525643997`*^9, 3.4753698555128*^9}, { 3.4753773724536*^9, 3.4753774958652*^9}, 3.4753775502468*^9, { 3.4753776430044003`*^9, 3.4753776659364*^9}, {3.4753777121748*^9, 3.4753777832483997`*^9}, {3.4753778188164*^9, 3.475377922336*^9}, { 3.4753779601348*^9, 3.4753784001952*^9}, {3.4753785090208*^9, 3.475378568722*^9}, {3.4753786124955997`*^9, 3.4753786164112*^9}, { 3.4753786468156*^9, 3.4753786657384*^9}, {3.4753787045355997`*^9, 3.4753787267032003`*^9}, 3.4753910727106*^9, {3.4753931910636*^9, 3.4753932441756*^9}, {3.4754621543882*^9, 3.4754622450397997`*^9}, { 3.4778876497897997`*^9, 3.4778877494737997`*^9}, {3.477887825399*^9, 3.4778878298606*^9}, {3.4778878701085997`*^9, 3.477887883041*^9}, { 3.4778879526482*^9, 3.477887957843*^9}, {3.4778879979974003`*^9, 3.4778880009614*^9}, {3.4778880335654*^9, 3.4778880462326*^9}, { 3.4778880897098*^9, 3.4778881201142*^9}, {3.4778882394908*^9, 3.477888243734*^9}, {3.4778884935368*^9, 3.477888539042*^9}, { 3.477889451995*^9, 3.4778895118416*^9}, {3.4779795395165997`*^9, 3.4779795402136*^9}, {3.4779797634996*^9, 3.4779797999356003`*^9}, 3.4779798372766*^9, {3.4779799820666*^9, 3.4779801217206*^9}, { 3.4779801745425997`*^9, 3.4779801845926*^9}, {3.4779804353096*^9, 3.4779804588506002`*^9}, {3.4779804893566*^9, 3.4779806203556004`*^9}, { 3.4779807300538*^9, 3.4779807467418003`*^9}, {3.4779808817128*^9, 3.4779809449638*^9}, {3.4781573512264*^9, 3.4781573649856*^9}, { 3.478157397808*^9, 3.4781574763227997`*^9}, {3.4781575335436*^9, 3.4781576406532*^9}, {3.4781576880615997`*^9, 3.478157739292*^9}, { 3.478157788042*^9, 3.4781577938452*^9}, {3.4781578276036*^9, 3.4781579446191998`*^9}, {3.4781579974564*^9, 3.4781579980959997`*^9}, 3.47815804396*^9, {3.4781582919532003`*^9, 3.47815834816*^9}, { 3.4781583838694*^9, 3.4781583926366*^9}, 3.4781585049566*^9, { 3.478162407691*^9, 3.4781624349442*^9}, {3.4781624661286*^9, 3.4781624682033997`*^9}, 3.4781626733746*^9, {3.5376219474134884`*^9, 3.537621988198821*^9}, {3.537622048951296*^9, 3.537622120225373*^9}, { 3.5376222446004868`*^9, 3.537622312108348*^9}, 3.537622776495909*^9, { 3.537622908932484*^9, 3.537622917335965*^9}, {3.5376238837162385`*^9, 3.537624004391141*^9}, {3.5376240458145103`*^9, 3.5376242437438307`*^9}, { 3.537624281650999*^9, 3.5376244166457205`*^9}, {3.5376244546488943`*^9, 3.5376248198917847`*^9}, {3.5397503703948455`*^9, 3.5397504308449516`*^9}, 3.5627674253055143`*^9, {3.5781422724253883`*^9, 3.578142305481847*^9}, { 3.5828109510514917`*^9, 3.582810961924711*^9}, {3.6000023977095795`*^9, 3.6000024056343937`*^9}, {3.600002438425651*^9, 3.6000024578788853`*^9}, { 3.600002497565355*^9, 3.600002598559932*^9}, {3.6000027265893574`*^9, 3.6000028178183174`*^9}, {3.600004251273635*^9, 3.6000042647676587`*^9}, { 3.6000479817557764`*^9, 3.6000483859368863`*^9}, {3.600048424453354*^9, 3.6000485077575006`*^9}, {3.600048552451579*^9, 3.600048659342967*^9}, { 3.6000486956130304`*^9, 3.6000487948292046`*^9}, {3.600048827292862*^9, 3.6000488489925*^9}, {3.6000489136546135`*^9, 3.6000492298047686`*^9}, { 3.6000492661060324`*^9, 3.6000494956604357`*^9}, {3.600049563676555*^9, 3.60004964038189*^9}, {3.600049704232802*^9, 3.600049707680408*^9}, { 3.6000498654590855`*^9, 3.600049982756691*^9}, {3.600050061318429*^9, 3.600050183014243*^9}, {3.6000502198459077`*^9, 3.6000503051000576`*^9}, { 3.6000503376105146`*^9, 3.600050450320712*^9}, {3.600050565012114*^9, 3.6000507365032153`*^9}, {3.6000507713224764`*^9, 3.6000507846292996`*^9}, {3.6000509146243277`*^9, 3.6000509929520655`*^9}, {3.600052137070728*^9, 3.600052140487134*^9}, { 3.6009245212614975`*^9, 3.6009245813060026`*^9}, {3.6009246118976564`*^9, 3.6009247053262205`*^9}, {3.6009247454650908`*^9, 3.6009248645557003`*^9}, {3.600924897627758*^9, 3.6009250270923853`*^9}, { 3.60093269343791*^9, 3.6009326961055145`*^9}, {3.6009327283039713`*^9, 3.600932810640916*^9}, {3.600932919607107*^9, 3.6009330596953535`*^9}, { 3.600933106448635*^9, 3.6009331778655605`*^9}, {3.6009332278324485`*^9, 3.6009334194943852`*^9}, {3.600933457277652*^9, 3.600933458978054*^9}, { 3.6009335033445325`*^9, 3.600933546775009*^9}, {3.600933589019883*^9, 3.600933594635893*^9}, {3.6009336332459607`*^9, 3.600933726752525*^9}, { 3.600933764317391*^9, 3.6009337710722027`*^9}, {3.6009338044406614`*^9, 3.600933853081547*^9}, {3.600934005244214*^9, 3.6009340502970934`*^9}, { 3.6009340857403555`*^9, 3.6009341752533126`*^9}, {3.600934250008644*^9, 3.600934354918828*^9}, {3.600934408426922*^9, 3.6009344234341483`*^9}, { 3.600934488111862*^9, 3.6009345709168077`*^9}, {3.600934624736902*^9, 3.600934638932927*^9}, {3.60093468637261*^9, 3.600934760753541*^9}, { 3.6009348210476465`*^9, 3.6009349317766414`*^9}, {3.6009350071247735`*^9, 3.600935160207843*^9}, {3.6009352133259363`*^9, 3.6009352260243583`*^9}, { 3.6009352675828314`*^9, 3.600935273776042*^9}, {3.6009383693050795`*^9, 3.6009386236011257`*^9}, {3.600938695158451*^9, 3.600938845605116*^9}, { 3.6009391629720736`*^9, 3.600939299628313*^9}, {3.600939553393959*^9, 3.6009395861540165`*^9}, {3.600939652407333*^9, 3.6009396642633533`*^9}, { 3.6009397392682853`*^9, 3.600939765398331*^9}, {3.600939855098489*^9, 3.6009398902297506`*^9}, {3.6009399920511293`*^9, 3.6009400593496475`*^9}, {3.6009401208137555`*^9, 3.600940245286374*^9}, { 3.6009402864548464`*^9, 3.6009402976088657`*^9}, {3.600944609222439*^9, 3.600944635477285*^9}, {3.600944687784177*^9, 3.600944710778617*^9}, { 3.6009451493577876`*^9, 3.600945150184589*^9}, 3.6009451913218613`*^9, { 3.600945405229437*^9, 3.6009454072106404`*^9}, {3.600945440610299*^9, 3.600945510482822*^9}, {3.6009457299128075`*^9, 3.6009457335008135`*^9}, { 3.600953140517025*^9, 3.600953181233096*^9}, {3.600953225365574*^9, 3.600953304598113*^9}, {3.6009533714130306`*^9, 3.60095337693544*^9}, { 3.600955624306587*^9, 3.6009556683142643`*^9}, {3.600955704350328*^9, 3.6009557208863573`*^9}, {3.600955931346327*^9, 3.6009559929508348`*^9}, { 3.600956393809139*^9, 3.600956401328352*^9}, {3.601271999654121*^9, 3.6012720126177435`*^9}, {3.601272051820613*^9, 3.601272060572228*^9}, { 3.601272126185943*^9, 3.601272140990369*^9}, 3.6012722043888807`*^9, 3.601272299875179*^9, {3.6012725511195493`*^9, 3.6012725676964974`*^9}, 3.6012728819354706`*^9, {3.601272984077313*^9, 3.6012729861614323`*^9}, { 3.6648646212123003`*^9, 3.664864693830428*^9}, {3.6648651694294634`*^9, 3.664865194810708*^9}, {3.6648653304529457`*^9, 3.6648653472541757`*^9}, { 3.729843343017043*^9, 3.729843359628227*^9}, {3.729912735732216*^9, 3.7299128731556425`*^9}, {3.7299129221669583`*^9, 3.72991294797655*^9}, { 3.7300248525581837`*^9, 3.730024855449114*^9}, {3.7304279745734572`*^9, 3.730428077178316*^9}, {3.730428111666378*^9, 3.7304284640162597`*^9}, { 3.730428499722911*^9, 3.7304285693711977`*^9}, {3.7304286054841323`*^9, 3.730428718980919*^9}, {3.7304290371707726`*^9, 3.7304290376396465`*^9}, { 3.7305215743202953`*^9, 3.730521592387599*^9}, {3.7306859018005486`*^9, 3.730685957368223*^9}, {3.794366285926957*^9, 3.7943663018113995`*^9}, { 3.794366527624426*^9, 3.7943665318986015`*^9}, {3.7943666192646875`*^9, 3.79436665071207*^9}, {3.7943666919719515`*^9, 3.79436669565554*^9}, { 3.794366738421635*^9, 3.7943667416286244`*^9}, 3.7943667898619328`*^9, { 3.7943668287991495`*^9, 3.7943668491747446`*^9}, {3.794366955054467*^9, 3.7943671446504145`*^9}, {3.794367175969426*^9, 3.794367254856989*^9}, { 3.7943672898686314`*^9, 3.794367299793826*^9}},ExpressionUUID->"501e552b-a1cf-47ea-af0d-\ 49efafcf7da3"] }, Closed]], Cell[CellGroupData[{ Cell["Cylindrical shell (z\[Phi]n) defs", "Subsection", CellChangeTimes->{ 3.4710857577642*^9, {3.4710858112098*^9, 3.4710858239082003`*^9}, { 3.4710859049969997`*^9, 3.4710859061046*^9}, {3.4710892678536*^9, 3.4710892701*^9}, 3.4710893817648*^9, {3.4710894793115997`*^9, 3.4710895039596*^9}, {3.4710905118050003`*^9, 3.471090512741*^9}, { 3.4725252603414*^9, 3.472525264101*^9}, {3.4725253064862003`*^9, 3.4725253370934*^9}, {3.4747629998582*^9, 3.4747630055678*^9}, { 3.4752273878873997`*^9, 3.4752273904926*^9}, {3.4753663741484003`*^9, 3.4753664116352*^9}, {3.4753773567911997`*^9, 3.475377356916*^9}, 3.4753775870472*^9, {3.4754620951394*^9, 3.4754621031266003`*^9}, { 3.4779795207265997`*^9, 3.4779795250576*^9}, 3.537621939388029*^9, 3.537622934627954*^9, {3.5376230222229643`*^9, 3.537623029743394*^9}, { 3.537623460058007*^9, 3.537623470980632*^9}, {3.537624955779557*^9, 3.5376249594157653`*^9}, {3.6000028730424147`*^9, 3.6000028738224154`*^9}, 3.601272187572051*^9, {3.601890784270049*^9, 3.6018907857052517`*^9}, { 3.664864799801414*^9, 3.664864802188218*^9}, {3.7298419656682825`*^9, 3.7298419723564906`*^9}, {3.729842839495038*^9, 3.7298428412921534`*^9}, { 3.7299132753746405`*^9, 3.729913287556707*^9}, 3.73042782240559*^9, 3.7305111508827944`*^9, {3.7305226686978264`*^9, 3.7305226701952457`*^9}, { 3.793970417848748*^9, 3.7939704367474017`*^9}, {3.7940169678680325`*^9, 3.7940169843896265`*^9}},ExpressionUUID->"b802494d-51b3-4f81-97cd-\ ae25767ead06"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{ "uz", ",", "u\[Phi]", ",", "un", ",", "\[Theta]z", ",", "\[Theta]\[Phi]", ",", "\[Theta]n"}], "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"equilibrium", "[", "z\[Phi]n", "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Phi]"], RowBox[{"F\[Phi]z", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], "/", "R"}], "+", RowBox[{ SubscriptBox["\[PartialD]", "z"], RowBox[{"Fzz", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], "+", "bz"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "z"], RowBox[{"Fz\[Phi]", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], "+", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Phi]"], RowBox[{"F\[Phi]\[Phi]", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], "/", "R"}], "-", RowBox[{ RowBox[{"Fn\[Phi]", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "/", "R"}], "+", "b\[Phi]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Phi]"], RowBox[{"Fn\[Phi]", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], "/", "R"}], "+", RowBox[{ SubscriptBox["\[PartialD]", "z"], RowBox[{"Fnz", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], "+", RowBox[{ RowBox[{"F\[Phi]\[Phi]", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "/", "R"}], "+", "bn"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "z"], RowBox[{"Mzz", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], "+", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Phi]"], RowBox[{"M\[Phi]z", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], "/", "R"}], "-", RowBox[{"Qz", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "+", "cz"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "z"], RowBox[{"Mz\[Phi]", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], "+", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Phi]"], RowBox[{"M\[Phi]\[Phi]", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], "/", "R"}], "-", RowBox[{ RowBox[{"M\[Phi]n", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "/", "R"}], "-", RowBox[{"Q\[Phi]", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "+", "c\[Phi]"}]}], "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"constitutive", "[", "z\[Phi]n", "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Fzz", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "->", RowBox[{"EE", "*", RowBox[{"t", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "z"], RowBox[{"uz", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], "+", RowBox[{"\[Nu]", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Phi]"], RowBox[{"u\[Phi]", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], "-", RowBox[{"un", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], ")"}], "/", "R"}]}], "-", RowBox[{ RowBox[{ RowBox[{"a", "^", "2"}], "/", "12"}], " ", "R", " ", RowBox[{ SubscriptBox["\[PartialD]", "z"], RowBox[{"\[Theta]\[Phi]", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}]}]}], ")"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"F\[Phi]\[Phi]", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "->", RowBox[{"EE", "*", RowBox[{"t", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Phi]"], RowBox[{"u\[Phi]", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], "/", "R"}], "-", " ", RowBox[{ RowBox[{"un", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "/", "R"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "g"}], ")"}], RowBox[{ SubscriptBox["\[PartialD]", "\[Phi]"], RowBox[{"\[Theta]z", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}]}], "+", RowBox[{"\[Nu]", " ", RowBox[{ SubscriptBox["\[PartialD]", "z"], RowBox[{"uz", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}]}]}], ")"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Fz\[Phi]", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "->", RowBox[{"G", " ", "t", " ", "*", "\[IndentingNewLine]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Phi]"], RowBox[{"uz", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], "/", "R"}], "+", RowBox[{ SubscriptBox["\[PartialD]", "z"], RowBox[{"u\[Phi]", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], "+", RowBox[{ RowBox[{ RowBox[{"a", "^", "2"}], "/", "12"}], " ", "R", RowBox[{ SubscriptBox["\[PartialD]", "z"], RowBox[{"\[Theta]z", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}]}]}], ")"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"F\[Phi]z", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "->", RowBox[{"G", " ", "t", " ", "*", "\[IndentingNewLine]", RowBox[{"(", RowBox[{ RowBox[{"g", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Phi]"], RowBox[{"uz", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], "/", "R"}], "+", RowBox[{ SubscriptBox["\[PartialD]", "\[Phi]"], RowBox[{"\[Theta]\[Phi]", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], "+", RowBox[{ SubscriptBox["\[PartialD]", "z"], RowBox[{"u\[Phi]", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], "-", RowBox[{ SubscriptBox["\[PartialD]", "\[Phi]"], RowBox[{"\[Theta]\[Phi]", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}]}], ")"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Fzn", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "->", RowBox[{"G", " ", "t", " ", "*", "\[IndentingNewLine]", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]\[Phi]", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "+", RowBox[{ SubscriptBox["\[PartialD]", "z"], RowBox[{"un", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}]}], ")"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Fnz", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "->", RowBox[{"G", " ", "t", " ", "*", "\[IndentingNewLine]", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]\[Phi]", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "+", RowBox[{ SubscriptBox["\[PartialD]", "z"], RowBox[{"un", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}]}], ")"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"F\[Phi]n", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "->", RowBox[{"G", " ", "t", " ", "*", "\[IndentingNewLine]", "g", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Phi]"], RowBox[{"un", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], "+", RowBox[{"u\[Phi]", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], ")"}], "/", "R"}], "-", RowBox[{"\[Theta]z", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], ")"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Fn\[Phi]", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "->", RowBox[{"G", " ", "t", " ", "*", "\[IndentingNewLine]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Phi]"], RowBox[{"un", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], "+", RowBox[{"u\[Phi]", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], ")"}], "/", "R"}], "-", RowBox[{"\[Theta]z", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], ")"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Fnn", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "\[Rule]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Mzz", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "->", RowBox[{ RowBox[{ RowBox[{"t", "^", "3"}], "/", "12"}], "*", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]", "^", "2"}]}], ")"}]}], "*", "\[IndentingNewLine]", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "z"], RowBox[{"\[Theta]\[Phi]", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], "-", RowBox[{"\[Nu]", " ", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Phi]"], RowBox[{"\[Theta]z", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], "/", "R"}]}], "-", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "z"], RowBox[{"uz", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], "/", "R"}]}], ")"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"M\[Phi]\[Phi]", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "->", RowBox[{ RowBox[{ RowBox[{"t", "^", "3"}], "/", "12"}], "*", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"f", "/", "R"}], RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["\[PartialD]", "\[Phi]"], RowBox[{"\[Theta]z", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}]}], "+", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Phi]"], RowBox[{"u\[Phi]", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], "/", "R"}], "-", RowBox[{ RowBox[{"un", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "/", "R"}]}], ")"}]}], "+", RowBox[{"\[Nu]", RowBox[{ SubscriptBox["\[PartialD]", "z"], RowBox[{"\[Theta]\[Phi]", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}]}]}], ")"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Mz\[Phi]", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "->", RowBox[{ RowBox[{ RowBox[{"t", "^", "3"}], "/", "24"}], "*", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "+", "\[Nu]"}], ")"}]}], "*", "\[IndentingNewLine]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Phi]"], RowBox[{"\[Theta]\[Phi]", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], "-", RowBox[{ SubscriptBox["\[PartialD]", "z"], RowBox[{"u\[Phi]", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}]}], ")"}], "/", "R"}], "-", " ", RowBox[{ SubscriptBox["\[PartialD]", "z"], RowBox[{"\[Theta]z", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}]}], ")"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"M\[Phi]z", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "->", RowBox[{ RowBox[{ RowBox[{"t", "^", "3"}], "/", "24"}], "*", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "+", "\[Nu]"}], ")"}]}], "*", "\[IndentingNewLine]", RowBox[{"(", RowBox[{ RowBox[{"f", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Phi]"], RowBox[{"\[Theta]\[Phi]", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], "+", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Phi]"], RowBox[{"uz", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], "/", "R"}]}], ")"}], "/", "R"}]}], "-", " ", RowBox[{ SubscriptBox["\[PartialD]", "z"], RowBox[{"\[Theta]z", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}]}], ")"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Mzn", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "\[Rule]", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"t", "^", "3"}]}], "/", "24"}], "*", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "+", "\[Nu]"}], ")"}]}], "*", "\[IndentingNewLine]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "z"], RowBox[{"un", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], "+", " ", RowBox[{"\[Theta]\[Phi]", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], ")"}], "/", "R"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Mnz", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "\[Rule]", RowBox[{ RowBox[{ RowBox[{"t", "^", "3"}], "/", "24"}], "*", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "+", "\[Nu]"}], ")"}]}], "*", "\[IndentingNewLine]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "z"], RowBox[{"un", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], "+", " ", RowBox[{"\[Theta]\[Phi]", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], ")"}], "/", "R"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"M\[Phi]n", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "\[Rule]", RowBox[{ RowBox[{ RowBox[{"t", "^", "3"}], "/", "24"}], "*", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "+", "\[Nu]"}], ")"}]}], "*", "\[IndentingNewLine]", "f", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Phi]"], RowBox[{"un", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], "+", RowBox[{"u\[Phi]", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], ")"}], "/", "R"}], "-", " ", RowBox[{"\[Theta]z", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], ")"}], "/", "R"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Mn\[Phi]", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "\[Rule]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Mnn", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "\[Rule]", "0"}]}], "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"resultants", "[", "z\[Phi]n", "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Fzz", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], ",", RowBox[{"F\[Phi]\[Phi]", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], ",", RowBox[{"Fz\[Phi]", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], ",", RowBox[{"F\[Phi]z", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], ",", RowBox[{"Fzn", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Fnz", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], ",", RowBox[{"F\[Phi]n", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], ",", RowBox[{"Fn\[Phi]", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], ",", RowBox[{"Fnn", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Mzz", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], ",", RowBox[{"M\[Phi]\[Phi]", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], ",", RowBox[{"Mz\[Phi]", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], ",", RowBox[{"M\[Phi]z", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], ",", RowBox[{"Mzn", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Mnz", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], ",", RowBox[{"M\[Phi]n", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], ",", RowBox[{"Mn\[Phi]", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], ",", RowBox[{"Mnn", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"functions", "[", "z\[Phi]n", "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"uz", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], ",", RowBox[{"u\[Phi]", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], ",", RowBox[{"un", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"\[Theta]z", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], ",", RowBox[{"\[Theta]\[Phi]", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], ",", RowBox[{"\[Theta]n", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"g", "=", RowBox[{"1", "+", RowBox[{ RowBox[{"a", "^", "2"}], "/", "12"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"f", "=", RowBox[{ RowBox[{"12", "/", RowBox[{"a", "^", "2"}]}], RowBox[{"(", RowBox[{"g", "-", "1"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"G", " ", "=", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", " ", "\[Nu]"}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a", "=", RowBox[{"t", "/", "R"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"constitutive", "[", "z\[Phi]n", "]"}]}]}]], "Input", CellChangeTimes->{ 3.4747630249118*^9, {3.4747631189174*^9, 3.4747632157778*^9}, { 3.4747632855098*^9, 3.4747632963361998`*^9}, {3.4747634024006*^9, 3.474763402697*^9}, {3.474763495517*^9, 3.4747635001814003`*^9}, { 3.4747637730566*^9, 3.474763803851*^9}, {3.4747642087646*^9, 3.4747642600573997`*^9}, {3.4747643726426*^9, 3.4747644737774*^9}, { 3.4752269899314003`*^9, 3.4752270948882*^9}, {3.4752271345902*^9, 3.4752272632434*^9}, {3.475227295551*^9, 3.4752275983314*^9}, { 3.475227632591*^9, 3.4752276649932003`*^9}, {3.4752276971146*^9, 3.4752277780172*^9}, {3.4752278086712*^9, 3.4752279362948*^9}, { 3.4752279825643997`*^9, 3.4752280182416*^9}, {3.4752280573196*^9, 3.4752280750411997`*^9}, {3.4752281205931997`*^9, 3.4752281779231997`*^9}, {3.4752283129412003`*^9, 3.4752284125678*^9}, { 3.4752286421373997`*^9, 3.4752286429174*^9}, {3.4752290214202003`*^9, 3.4752292420810003`*^9}, {3.4752292747942*^9, 3.4752293745874*^9}, { 3.4752294050854*^9, 3.4752295128190002`*^9}, {3.475230037291*^9, 3.4752300676486*^9}, {3.4752302150998*^9, 3.475230248749*^9}, { 3.4753664935702*^9, 3.4753668085810003`*^9}, {3.4753668484702*^9, 3.4753670665114*^9}, {3.4753671011902*^9, 3.4753674723454*^9}, { 3.4753676229322*^9, 3.4753677863733997`*^9}, {3.475367825233*^9, 3.475367848243*^9}, {3.475368029983*^9, 3.4753680589522*^9}, { 3.475369411392*^9, 3.4753695644904003`*^9}, {3.4753696954256*^9, 3.475369726766*^9}, {3.4753698525643997`*^9, 3.4753698555128*^9}, { 3.4753773724536*^9, 3.4753774958652*^9}, 3.4753775502468*^9, { 3.4753776430044003`*^9, 3.4753776659364*^9}, {3.4753777121748*^9, 3.4753777832483997`*^9}, {3.4753778188164*^9, 3.475377922336*^9}, { 3.4753779601348*^9, 3.4753784001952*^9}, {3.4753785090208*^9, 3.475378568722*^9}, {3.4753786124955997`*^9, 3.4753786164112*^9}, { 3.4753786468156*^9, 3.4753786657384*^9}, {3.4753787045355997`*^9, 3.4753787267032003`*^9}, 3.4753910727106*^9, {3.4753931910636*^9, 3.4753932441756*^9}, {3.4754621543882*^9, 3.4754622450397997`*^9}, { 3.4778876497897997`*^9, 3.4778877494737997`*^9}, {3.477887825399*^9, 3.4778878298606*^9}, {3.4778878701085997`*^9, 3.477887883041*^9}, { 3.4778879526482*^9, 3.477887957843*^9}, {3.4778879979974003`*^9, 3.4778880009614*^9}, {3.4778880335654*^9, 3.4778880462326*^9}, { 3.4778880897098*^9, 3.4778881201142*^9}, {3.4778882394908*^9, 3.477888243734*^9}, {3.4778884935368*^9, 3.477888539042*^9}, { 3.477889451995*^9, 3.4778895118416*^9}, {3.4779795395165997`*^9, 3.4779795402136*^9}, {3.4779797634996*^9, 3.4779797999356003`*^9}, 3.4779798372766*^9, {3.4779799820666*^9, 3.4779801217206*^9}, { 3.4779801745425997`*^9, 3.4779801845926*^9}, {3.4779804353096*^9, 3.4779804588506002`*^9}, {3.4779804893566*^9, 3.4779806203556004`*^9}, { 3.4779807300538*^9, 3.4779807467418003`*^9}, {3.4779808817128*^9, 3.4779809449638*^9}, {3.4781573512264*^9, 3.4781573649856*^9}, { 3.478157397808*^9, 3.4781574763227997`*^9}, {3.4781575335436*^9, 3.4781576406532*^9}, {3.4781576880615997`*^9, 3.478157739292*^9}, { 3.478157788042*^9, 3.4781577938452*^9}, {3.4781578276036*^9, 3.4781579446191998`*^9}, {3.4781579974564*^9, 3.4781579980959997`*^9}, 3.47815804396*^9, {3.4781582919532003`*^9, 3.47815834816*^9}, { 3.4781583838694*^9, 3.4781583926366*^9}, 3.4781585049566*^9, { 3.478162407691*^9, 3.4781624349442*^9}, {3.4781624661286*^9, 3.4781624682033997`*^9}, 3.4781626733746*^9, {3.5376219474134884`*^9, 3.537621988198821*^9}, {3.537622048951296*^9, 3.537622120225373*^9}, { 3.5376222446004868`*^9, 3.537622312108348*^9}, 3.537622776495909*^9, { 3.537622908932484*^9, 3.537622917335965*^9}, {3.5376238837162385`*^9, 3.537624004391141*^9}, {3.5376240458145103`*^9, 3.5376242437438307`*^9}, { 3.537624281650999*^9, 3.5376244166457205`*^9}, {3.5376244546488943`*^9, 3.5376248198917847`*^9}, {3.5397503703948455`*^9, 3.5397504308449516`*^9}, 3.5627674253055143`*^9, {3.5781422724253883`*^9, 3.578142305481847*^9}, { 3.5828109510514917`*^9, 3.582810961924711*^9}, {3.6000023977095795`*^9, 3.6000024056343937`*^9}, {3.600002438425651*^9, 3.6000024578788853`*^9}, { 3.600002497565355*^9, 3.600002598559932*^9}, {3.6000027265893574`*^9, 3.6000028178183174`*^9}, {3.600004251273635*^9, 3.6000042647676587`*^9}, { 3.6000479817557764`*^9, 3.6000483859368863`*^9}, {3.600048424453354*^9, 3.6000485077575006`*^9}, {3.600048552451579*^9, 3.600048659342967*^9}, { 3.6000486956130304`*^9, 3.6000487948292046`*^9}, {3.600048827292862*^9, 3.6000488489925*^9}, {3.6000489136546135`*^9, 3.6000492298047686`*^9}, { 3.6000492661060324`*^9, 3.6000494956604357`*^9}, {3.600049563676555*^9, 3.60004964038189*^9}, {3.600049704232802*^9, 3.600049707680408*^9}, { 3.6000498654590855`*^9, 3.600049982756691*^9}, {3.600050061318429*^9, 3.600050183014243*^9}, {3.6000502198459077`*^9, 3.6000503051000576`*^9}, { 3.6000503376105146`*^9, 3.600050450320712*^9}, {3.600050565012114*^9, 3.6000507365032153`*^9}, {3.6000507713224764`*^9, 3.6000507846292996`*^9}, {3.6000509146243277`*^9, 3.6000509929520655`*^9}, {3.600052137070728*^9, 3.600052140487134*^9}, { 3.6009245212614975`*^9, 3.6009245813060026`*^9}, {3.6009246118976564`*^9, 3.6009247053262205`*^9}, {3.6009247454650908`*^9, 3.6009248645557003`*^9}, {3.600924897627758*^9, 3.6009250270923853`*^9}, { 3.60093269343791*^9, 3.6009326961055145`*^9}, {3.6009327283039713`*^9, 3.600932810640916*^9}, {3.600932919607107*^9, 3.6009330596953535`*^9}, { 3.600933106448635*^9, 3.6009331778655605`*^9}, {3.6009332278324485`*^9, 3.6009334194943852`*^9}, {3.600933457277652*^9, 3.600933458978054*^9}, { 3.6009335033445325`*^9, 3.600933546775009*^9}, {3.600933589019883*^9, 3.600933594635893*^9}, {3.6009336332459607`*^9, 3.600933726752525*^9}, { 3.600933764317391*^9, 3.6009337710722027`*^9}, {3.6009338044406614`*^9, 3.600933853081547*^9}, {3.600934005244214*^9, 3.6009340502970934`*^9}, { 3.6009340857403555`*^9, 3.6009341752533126`*^9}, {3.600934250008644*^9, 3.600934354918828*^9}, {3.600934408426922*^9, 3.6009344234341483`*^9}, { 3.600934488111862*^9, 3.6009345709168077`*^9}, {3.600934624736902*^9, 3.600934638932927*^9}, {3.60093468637261*^9, 3.600934760753541*^9}, { 3.6009348210476465`*^9, 3.6009349317766414`*^9}, {3.6009350071247735`*^9, 3.600935160207843*^9}, {3.6009352133259363`*^9, 3.6009352260243583`*^9}, { 3.6009352675828314`*^9, 3.600935273776042*^9}, {3.6009383693050795`*^9, 3.6009386236011257`*^9}, {3.600938695158451*^9, 3.600938845605116*^9}, { 3.6009391629720736`*^9, 3.600939299628313*^9}, {3.600939553393959*^9, 3.6009395861540165`*^9}, {3.600939652407333*^9, 3.6009396642633533`*^9}, { 3.6009397392682853`*^9, 3.600939765398331*^9}, {3.600939855098489*^9, 3.6009398902297506`*^9}, {3.6009399920511293`*^9, 3.6009400593496475`*^9}, {3.6009401208137555`*^9, 3.600940245286374*^9}, { 3.6009402864548464`*^9, 3.6009402976088657`*^9}, {3.600944609222439*^9, 3.600944635477285*^9}, {3.600944687784177*^9, 3.600944710778617*^9}, { 3.6009451493577876`*^9, 3.600945150184589*^9}, 3.6009451913218613`*^9, { 3.600945405229437*^9, 3.6009454072106404`*^9}, {3.600945440610299*^9, 3.600945510482822*^9}, {3.6009457299128075`*^9, 3.6009457335008135`*^9}, { 3.600953140517025*^9, 3.600953181233096*^9}, {3.600953225365574*^9, 3.600953304598113*^9}, {3.6009533714130306`*^9, 3.60095337693544*^9}, { 3.600955624306587*^9, 3.6009556683142643`*^9}, {3.600955704350328*^9, 3.6009557208863573`*^9}, {3.600955931346327*^9, 3.6009559929508348`*^9}, { 3.600956393809139*^9, 3.600956401328352*^9}, {3.601271999654121*^9, 3.6012720126177435`*^9}, {3.601272051820613*^9, 3.601272060572228*^9}, { 3.601272126185943*^9, 3.601272140990369*^9}, 3.6012722043888807`*^9, 3.601272299875179*^9, {3.6012725511195493`*^9, 3.6012725676964974`*^9}, 3.6012728819354706`*^9, {3.601272984077313*^9, 3.6012729861614323`*^9}, { 3.6648646212123003`*^9, 3.664864693830428*^9}, {3.6648651694294634`*^9, 3.664865194810708*^9}, {3.6648653304529457`*^9, 3.6648653472541757`*^9}, { 3.729843343017043*^9, 3.729843359628227*^9}, {3.729912735732216*^9, 3.7299128731556425`*^9}, {3.7299129221669583`*^9, 3.72991294797655*^9}, { 3.7300248525581837`*^9, 3.730024855449114*^9}, {3.7304279745734572`*^9, 3.730428077178316*^9}, {3.730428111666378*^9, 3.7304284640162597`*^9}, { 3.730428499722911*^9, 3.7304285693711977`*^9}, {3.7304286054841323`*^9, 3.730428718980919*^9}, {3.7304290371707726`*^9, 3.7304290376396465`*^9}, { 3.730519712939026*^9, 3.7305198990613127`*^9}, {3.730519936016362*^9, 3.730520032866997*^9}, {3.730520069342738*^9, 3.7305201413837137`*^9}, { 3.7305201819036684`*^9, 3.730520302786532*^9}, {3.7305203639562807`*^9, 3.7305204404735904`*^9}, {3.7305204798600316`*^9, 3.7305206242921004`*^9}, {3.730520661620327*^9, 3.73052086320057*^9}, { 3.7305209143136907`*^9, 3.730521406238872*^9}, {3.7305220693650236`*^9, 3.7305221438897824`*^9}, {3.7305222098554373`*^9, 3.7305222114506407`*^9}, {3.7305222825988903`*^9, 3.7305223710507684`*^9}, 3.730522440356784*^9, {3.7305224750265336`*^9, 3.7305224974238605`*^9}, { 3.7305226775804014`*^9, 3.73052267799199*^9}, {3.730522733805127*^9, 3.7305227660933824`*^9}, {3.730522823223466*^9, 3.730522889600585*^9}, { 3.730523040515712*^9, 3.7305230470304856`*^9}, {3.730685760149651*^9, 3.730685780096732*^9}, {3.7939704405993147`*^9, 3.793970448326908*^9}, { 3.7939705106810703`*^9, 3.793970533596043*^9}, {3.7939705674442396`*^9, 3.7939707035921373`*^9}, {3.7939707722726045`*^9, 3.793970961302946*^9}, { 3.793971034279026*^9, 3.793971051825655*^9}, 3.793971087492222*^9, { 3.7939711310030613`*^9, 3.793971210055024*^9}, {3.7939712590923862`*^9, 3.793971297112995*^9}, {3.7939713539517617`*^9, 3.793971374690854*^9}, { 3.793971743585492*^9, 3.793971889198866*^9}, {3.793971936623559*^9, 3.7939720728138323`*^9}, {3.793972117645915*^9, 3.7939722220143943`*^9}, { 3.7939731076642942`*^9, 3.7939731170134974`*^9}, {3.7939731486712947`*^9, 3.79397317255738*^9}, {3.793973204200966*^9, 3.7939732392583923`*^9}, { 3.7939733263366776`*^9, 3.793973378932726*^9}, {3.7939738932538195`*^9, 3.7939739705960293`*^9}, {3.793974007396006*^9, 3.793974049807906*^9}, { 3.7939741379324656`*^9, 3.793974247851988*^9}, {3.793974426200988*^9, 3.7939744504618373`*^9}, {3.7939744900707893`*^9, 3.793974625342739*^9}, 3.793974665425763*^9, {3.793975186666686*^9, 3.7939753251453657`*^9}, { 3.793975365473321*^9, 3.7939753737830997`*^9}, {3.793975526884291*^9, 3.7939755831200476`*^9}, 3.793975662679941*^9, {3.7939756954638176`*^9, 3.7939758597355595`*^9}, {3.793975899444241*^9, 3.79397601050072*^9}, { 3.7940169396975994`*^9, 3.7940169597866707`*^9}, {3.7940173083859453`*^9, 3.7940173266235275`*^9}, {3.7940174672590017`*^9, 3.794017538889614*^9}, { 3.794017604794012*^9, 3.7940176638789234`*^9}, {3.7940177586801333`*^9, 3.794017810127016*^9}, {3.7940178406435003`*^9, 3.7940178501903777`*^9}, 3.794017881769532*^9, 3.7940179161689615`*^9, 3.7940179926006837`*^9, { 3.7940181361690416`*^9, 3.794018215029153*^9}, {3.7940184618478184`*^9, 3.794018480242144*^9}, {3.7940192257367706`*^9, 3.794019497937438*^9}, { 3.7940196280696983`*^9, 3.794019628696436*^9}, {3.794020015414607*^9, 3.7940200689441547`*^9}, {3.7940202061901674`*^9, 3.7940202458853655`*^9}, {3.794020570046484*^9, 3.7940205751769447`*^9}, { 3.7940206116258507`*^9, 3.7940206726544733`*^9}, {3.7942909151647177`*^9, 3.794290920720368*^9}, {3.794291051983797*^9, 3.794291092582137*^9}, { 3.7942911343934298`*^9, 3.794291213874688*^9}, {3.7942912570703554`*^9, 3.794291260136513*^9}}, CellLabel->"In[21]:=",ExpressionUUID->"54d15173-932c-439e-8150-adbf07012f0b"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Fzz", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "\[Rule]", FractionBox[ RowBox[{"EE", " ", "t", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"\[Nu]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"un", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], "+", RowBox[{ SuperscriptBox["u\[Phi]", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], ")"}]}], "R"], "+", RowBox[{ SuperscriptBox["uz", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "-", FractionBox[ RowBox[{ SuperscriptBox["t", "2"], " ", RowBox[{ SuperscriptBox["\[Theta]\[Phi]", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], RowBox[{"12", " ", "R"}]]}], ")"}]}], RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}]]}], ",", RowBox[{ RowBox[{"F\[Phi]\[Phi]", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "\[Rule]", FractionBox[ RowBox[{"EE", " ", "t", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"un", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "R"]}], "+", FractionBox[ RowBox[{ SuperscriptBox["u\[Phi]", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "R"], "-", FractionBox[ RowBox[{ SuperscriptBox["t", "2"], " ", RowBox[{ SuperscriptBox["\[Theta]z", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], RowBox[{"12", " ", SuperscriptBox["R", "2"]}]], "+", RowBox[{"\[Nu]", " ", RowBox[{ SuperscriptBox["uz", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}]]}], ",", RowBox[{ RowBox[{"Fz\[Phi]", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "\[Rule]", FractionBox[ RowBox[{"EE", " ", "t", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["uz", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "R"], "+", RowBox[{ SuperscriptBox["u\[Phi]", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "+", FractionBox[ RowBox[{ SuperscriptBox["t", "2"], " ", RowBox[{ SuperscriptBox["\[Theta]z", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], RowBox[{"12", " ", "R"}]]}], ")"}]}], RowBox[{"2", "+", RowBox[{"2", " ", "\[Nu]"}]}]]}], ",", RowBox[{ RowBox[{"F\[Phi]z", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "\[Rule]", FractionBox[ RowBox[{"EE", " ", "t", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox["\[Theta]\[Phi]", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "+", FractionBox[ SuperscriptBox["t", "2"], RowBox[{"12", " ", SuperscriptBox["R", "2"]}]]}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["uz", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "R"], "+", RowBox[{ SuperscriptBox["\[Theta]\[Phi]", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["u\[Phi]", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], ")"}]}], RowBox[{"2", "+", RowBox[{"2", " ", "\[Nu]"}]}]]}], ",", RowBox[{ RowBox[{"Fzn", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "\[Rule]", FractionBox[ RowBox[{"EE", " ", "t", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]\[Phi]", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "+", RowBox[{ SuperscriptBox["un", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], ")"}]}], RowBox[{"2", "+", RowBox[{"2", " ", "\[Nu]"}]}]]}], ",", RowBox[{ RowBox[{"Fnz", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "\[Rule]", FractionBox[ RowBox[{"EE", " ", "t", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]\[Phi]", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "+", RowBox[{ SuperscriptBox["un", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], ")"}]}], RowBox[{"2", "+", RowBox[{"2", " ", "\[Nu]"}]}]]}], ",", RowBox[{ RowBox[{"F\[Phi]n", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "\[Rule]", FractionBox[ RowBox[{"EE", " ", "t", " ", RowBox[{"(", RowBox[{"1", "+", FractionBox[ SuperscriptBox["t", "2"], RowBox[{"12", " ", SuperscriptBox["R", "2"]}]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"\[Theta]z", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], "+", FractionBox[ RowBox[{ RowBox[{"u\[Phi]", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "+", RowBox[{ SuperscriptBox["un", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], "R"]}], ")"}]}], RowBox[{"2", "+", RowBox[{"2", " ", "\[Nu]"}]}]]}], ",", RowBox[{ RowBox[{"Fn\[Phi]", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "\[Rule]", FractionBox[ RowBox[{"EE", " ", "t", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"\[Theta]z", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], "+", FractionBox[ RowBox[{ RowBox[{"u\[Phi]", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "+", RowBox[{ SuperscriptBox["un", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], "R"]}], ")"}]}], RowBox[{"2", "+", RowBox[{"2", " ", "\[Nu]"}]}]]}], ",", RowBox[{ RowBox[{"Fnn", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"Mzz", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "\[Rule]", FractionBox[ RowBox[{"EE", " ", SuperscriptBox["t", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"\[Nu]", " ", RowBox[{ SuperscriptBox["\[Theta]z", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], "R"]}], "-", FractionBox[ RowBox[{ SuperscriptBox["uz", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "R"], "+", RowBox[{ SuperscriptBox["\[Theta]\[Phi]", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], ")"}]}], RowBox[{"12", " ", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}], ")"}]}]]}], ",", RowBox[{ RowBox[{"M\[Phi]\[Phi]", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "\[Rule]", FractionBox[ RowBox[{"EE", " ", SuperscriptBox["t", "3"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"un", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "R"]}], "+", FractionBox[ RowBox[{ SuperscriptBox["u\[Phi]", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "R"], "-", RowBox[{ SuperscriptBox["\[Theta]z", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], "R"], "+", RowBox[{"\[Nu]", " ", RowBox[{ SuperscriptBox["\[Theta]\[Phi]", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], RowBox[{"12", " ", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}], ")"}]}]]}], ",", RowBox[{ RowBox[{"Mz\[Phi]", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "\[Rule]", FractionBox[ RowBox[{"EE", " ", SuperscriptBox["t", "3"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{ RowBox[{ SuperscriptBox["\[Theta]\[Phi]", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "-", RowBox[{ SuperscriptBox["u\[Phi]", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], "R"], "-", RowBox[{ SuperscriptBox["\[Theta]z", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], ")"}]}], RowBox[{"24", " ", RowBox[{"(", RowBox[{"1", "+", "\[Nu]"}], ")"}]}]]}], ",", RowBox[{ RowBox[{"M\[Phi]z", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "\[Rule]", FractionBox[ RowBox[{"EE", " ", SuperscriptBox["t", "3"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["uz", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "R"], "+", RowBox[{ SuperscriptBox["\[Theta]\[Phi]", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], "R"], "-", RowBox[{ SuperscriptBox["\[Theta]z", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], ")"}]}], RowBox[{"24", " ", RowBox[{"(", RowBox[{"1", "+", "\[Nu]"}], ")"}]}]]}], ",", RowBox[{ RowBox[{"Mzn", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{"EE", " ", SuperscriptBox["t", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]\[Phi]", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "+", RowBox[{ SuperscriptBox["un", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], ")"}]}], RowBox[{"24", " ", "R", " ", RowBox[{"(", RowBox[{"1", "+", "\[Nu]"}], ")"}]}]]}]}], ",", RowBox[{ RowBox[{"Mnz", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "\[Rule]", FractionBox[ RowBox[{"EE", " ", SuperscriptBox["t", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]\[Phi]", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "+", RowBox[{ SuperscriptBox["un", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], ")"}]}], RowBox[{"24", " ", "R", " ", RowBox[{"(", RowBox[{"1", "+", "\[Nu]"}], ")"}]}]]}], ",", RowBox[{ RowBox[{"M\[Phi]n", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "\[Rule]", FractionBox[ RowBox[{"EE", " ", SuperscriptBox["t", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"\[Theta]z", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], "+", FractionBox[ RowBox[{ RowBox[{"u\[Phi]", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "+", RowBox[{ SuperscriptBox["un", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], "R"]}], ")"}]}], RowBox[{"24", " ", "R", " ", RowBox[{"(", RowBox[{"1", "+", "\[Nu]"}], ")"}]}]]}], ",", RowBox[{ RowBox[{"Mn\[Phi]", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"Mnn", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "\[Rule]", "0"}]}], "}"}]], "Output", CellChangeTimes->{{3.7940206454167557`*^9, 3.7940206736565294`*^9}, 3.794290929454747*^9, 3.7942912159206886`*^9, 3.7942912641025457`*^9}, CellLabel->"Out[30]=",ExpressionUUID->"e9214657-f319-4939-bd5d-71370c294733"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "moments", " ", "balance", " ", "test", " ", "with", " ", "a", " ", "generic", " ", "g"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"Simplify", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Fnz", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "-", RowBox[{"Fzn", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], ")"}], " ", "/.", RowBox[{"constitutive", "[", "z\[Phi]n", "]"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Fz\[Phi]", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "-", RowBox[{"F\[Phi]z", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "+", RowBox[{ RowBox[{"M\[Phi]z", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "/", "R"}]}], ")"}], " ", "/.", RowBox[{"constitutive", "[", "z\[Phi]n", "]"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Fn\[Phi]", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "-", RowBox[{"F\[Phi]n", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "+", RowBox[{ RowBox[{"M\[Phi]n", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], "/", "R"}]}], ")"}], " ", "/.", RowBox[{"constitutive", "[", "z\[Phi]n", "]"}]}], "]"}]}]}]], "Input", CellChangeTimes->{ 3.4747630249118*^9, {3.4747631189174*^9, 3.4747632157778*^9}, { 3.4747632855098*^9, 3.4747632963361998`*^9}, {3.4747634024006*^9, 3.474763402697*^9}, {3.474763495517*^9, 3.4747635001814003`*^9}, { 3.4747637730566*^9, 3.474763803851*^9}, {3.4747642087646*^9, 3.4747642600573997`*^9}, {3.4747643726426*^9, 3.4747644737774*^9}, { 3.4752269899314003`*^9, 3.4752270948882*^9}, {3.4752271345902*^9, 3.4752272632434*^9}, {3.475227295551*^9, 3.4752275983314*^9}, { 3.475227632591*^9, 3.4752276649932003`*^9}, {3.4752276971146*^9, 3.4752277780172*^9}, {3.4752278086712*^9, 3.4752279362948*^9}, { 3.4752279825643997`*^9, 3.4752280182416*^9}, {3.4752280573196*^9, 3.4752280750411997`*^9}, {3.4752281205931997`*^9, 3.4752281779231997`*^9}, {3.4752283129412003`*^9, 3.4752284125678*^9}, { 3.4752286421373997`*^9, 3.4752286429174*^9}, {3.4752290214202003`*^9, 3.4752292420810003`*^9}, {3.4752292747942*^9, 3.4752293745874*^9}, { 3.4752294050854*^9, 3.4752295128190002`*^9}, {3.475230037291*^9, 3.4752300676486*^9}, {3.4752302150998*^9, 3.475230248749*^9}, { 3.4753664935702*^9, 3.4753668085810003`*^9}, {3.4753668484702*^9, 3.4753670665114*^9}, {3.4753671011902*^9, 3.4753674723454*^9}, { 3.4753676229322*^9, 3.4753677863733997`*^9}, {3.475367825233*^9, 3.475367848243*^9}, {3.475368029983*^9, 3.4753680589522*^9}, { 3.475369411392*^9, 3.4753695644904003`*^9}, {3.4753696954256*^9, 3.475369726766*^9}, {3.4753698525643997`*^9, 3.4753698555128*^9}, { 3.4753773724536*^9, 3.4753774958652*^9}, 3.4753775502468*^9, { 3.4753776430044003`*^9, 3.4753776659364*^9}, {3.4753777121748*^9, 3.4753777832483997`*^9}, {3.4753778188164*^9, 3.475377922336*^9}, { 3.4753779601348*^9, 3.4753784001952*^9}, {3.4753785090208*^9, 3.475378568722*^9}, {3.4753786124955997`*^9, 3.4753786164112*^9}, { 3.4753786468156*^9, 3.4753786657384*^9}, {3.4753787045355997`*^9, 3.4753787267032003`*^9}, 3.4753910727106*^9, {3.4753931910636*^9, 3.4753932441756*^9}, {3.4754621543882*^9, 3.4754622450397997`*^9}, { 3.4778876497897997`*^9, 3.4778877494737997`*^9}, {3.477887825399*^9, 3.4778878298606*^9}, {3.4778878701085997`*^9, 3.477887883041*^9}, { 3.4778879526482*^9, 3.477887957843*^9}, {3.4778879979974003`*^9, 3.4778880009614*^9}, {3.4778880335654*^9, 3.4778880462326*^9}, { 3.4778880897098*^9, 3.4778881201142*^9}, {3.4778882394908*^9, 3.477888243734*^9}, {3.4778884935368*^9, 3.477888539042*^9}, { 3.477889451995*^9, 3.4778895118416*^9}, {3.4779795395165997`*^9, 3.4779795402136*^9}, {3.4779797634996*^9, 3.4779797999356003`*^9}, 3.4779798372766*^9, {3.4779799820666*^9, 3.4779801217206*^9}, { 3.4779801745425997`*^9, 3.4779801845926*^9}, {3.4779804353096*^9, 3.4779804588506002`*^9}, {3.4779804893566*^9, 3.4779806203556004`*^9}, { 3.4779807300538*^9, 3.4779807467418003`*^9}, {3.4779808817128*^9, 3.4779809449638*^9}, {3.4781573512264*^9, 3.4781573649856*^9}, { 3.478157397808*^9, 3.4781574763227997`*^9}, {3.4781575335436*^9, 3.4781576406532*^9}, {3.4781576880615997`*^9, 3.478157739292*^9}, { 3.478157788042*^9, 3.4781577938452*^9}, {3.4781578276036*^9, 3.4781579446191998`*^9}, {3.4781579974564*^9, 3.4781579980959997`*^9}, 3.47815804396*^9, {3.4781582919532003`*^9, 3.47815834816*^9}, { 3.4781583838694*^9, 3.4781583926366*^9}, 3.4781585049566*^9, { 3.478162407691*^9, 3.4781624349442*^9}, {3.4781624661286*^9, 3.4781624682033997`*^9}, 3.4781626733746*^9, {3.5376219474134884`*^9, 3.537621988198821*^9}, {3.537622048951296*^9, 3.537622120225373*^9}, { 3.5376222446004868`*^9, 3.537622312108348*^9}, 3.537622776495909*^9, { 3.537622908932484*^9, 3.537622917335965*^9}, {3.5376238837162385`*^9, 3.537624004391141*^9}, {3.5376240458145103`*^9, 3.5376242437438307`*^9}, { 3.537624281650999*^9, 3.5376244166457205`*^9}, {3.5376244546488943`*^9, 3.5376248198917847`*^9}, {3.5397503703948455`*^9, 3.5397504308449516`*^9}, 3.5627674253055143`*^9, {3.5781422724253883`*^9, 3.578142305481847*^9}, { 3.5828109510514917`*^9, 3.582810961924711*^9}, {3.6000023977095795`*^9, 3.6000024056343937`*^9}, {3.600002438425651*^9, 3.6000024578788853`*^9}, { 3.600002497565355*^9, 3.600002598559932*^9}, {3.6000027265893574`*^9, 3.6000028178183174`*^9}, {3.600004251273635*^9, 3.6000042647676587`*^9}, { 3.6000479817557764`*^9, 3.6000483859368863`*^9}, {3.600048424453354*^9, 3.6000485077575006`*^9}, {3.600048552451579*^9, 3.600048659342967*^9}, { 3.6000486956130304`*^9, 3.6000487948292046`*^9}, {3.600048827292862*^9, 3.6000488489925*^9}, {3.6000489136546135`*^9, 3.6000492298047686`*^9}, { 3.6000492661060324`*^9, 3.6000494956604357`*^9}, {3.600049563676555*^9, 3.60004964038189*^9}, {3.600049704232802*^9, 3.600049707680408*^9}, { 3.6000498654590855`*^9, 3.600049982756691*^9}, {3.600050061318429*^9, 3.600050183014243*^9}, {3.6000502198459077`*^9, 3.6000503051000576`*^9}, { 3.6000503376105146`*^9, 3.600050450320712*^9}, {3.600050565012114*^9, 3.6000507365032153`*^9}, {3.6000507713224764`*^9, 3.6000507846292996`*^9}, {3.6000509146243277`*^9, 3.6000509929520655`*^9}, {3.600052137070728*^9, 3.600052140487134*^9}, { 3.6009245212614975`*^9, 3.6009245813060026`*^9}, {3.6009246118976564`*^9, 3.6009247053262205`*^9}, {3.6009247454650908`*^9, 3.6009248645557003`*^9}, {3.600924897627758*^9, 3.6009250270923853`*^9}, { 3.60093269343791*^9, 3.6009326961055145`*^9}, {3.6009327283039713`*^9, 3.600932810640916*^9}, {3.600932919607107*^9, 3.6009330596953535`*^9}, { 3.600933106448635*^9, 3.6009331778655605`*^9}, {3.6009332278324485`*^9, 3.6009334194943852`*^9}, {3.600933457277652*^9, 3.600933458978054*^9}, { 3.6009335033445325`*^9, 3.600933546775009*^9}, {3.600933589019883*^9, 3.600933594635893*^9}, {3.6009336332459607`*^9, 3.600933726752525*^9}, { 3.600933764317391*^9, 3.6009337710722027`*^9}, {3.6009338044406614`*^9, 3.600933853081547*^9}, {3.600934005244214*^9, 3.6009340502970934`*^9}, { 3.6009340857403555`*^9, 3.6009341752533126`*^9}, {3.600934250008644*^9, 3.600934354918828*^9}, {3.600934408426922*^9, 3.6009344234341483`*^9}, { 3.600934488111862*^9, 3.6009345709168077`*^9}, {3.600934624736902*^9, 3.600934638932927*^9}, {3.60093468637261*^9, 3.600934760753541*^9}, { 3.6009348210476465`*^9, 3.6009349317766414`*^9}, {3.6009350071247735`*^9, 3.600935160207843*^9}, {3.6009352133259363`*^9, 3.6009352260243583`*^9}, { 3.6009352675828314`*^9, 3.600935273776042*^9}, {3.6009383693050795`*^9, 3.6009386236011257`*^9}, {3.600938695158451*^9, 3.600938845605116*^9}, { 3.6009391629720736`*^9, 3.600939299628313*^9}, {3.600939553393959*^9, 3.6009395861540165`*^9}, {3.600939652407333*^9, 3.6009396642633533`*^9}, { 3.6009397392682853`*^9, 3.600939765398331*^9}, {3.600939855098489*^9, 3.6009398902297506`*^9}, {3.6009399920511293`*^9, 3.6009400593496475`*^9}, {3.6009401208137555`*^9, 3.600940245286374*^9}, { 3.6009402864548464`*^9, 3.6009402976088657`*^9}, {3.600944609222439*^9, 3.600944635477285*^9}, {3.600944687784177*^9, 3.600944710778617*^9}, { 3.6009451493577876`*^9, 3.600945150184589*^9}, 3.6009451913218613`*^9, { 3.600945405229437*^9, 3.6009454072106404`*^9}, {3.600945440610299*^9, 3.600945510482822*^9}, {3.6009457299128075`*^9, 3.6009457335008135`*^9}, { 3.600953140517025*^9, 3.600953181233096*^9}, {3.600953225365574*^9, 3.600953304598113*^9}, {3.6009533714130306`*^9, 3.60095337693544*^9}, { 3.600955624306587*^9, 3.6009556683142643`*^9}, {3.600955704350328*^9, 3.6009557208863573`*^9}, {3.600955931346327*^9, 3.6009559929508348`*^9}, { 3.600956393809139*^9, 3.600956401328352*^9}, {3.601271999654121*^9, 3.6012720126177435`*^9}, {3.601272051820613*^9, 3.601272060572228*^9}, { 3.601272126185943*^9, 3.601272140990369*^9}, 3.6012722043888807`*^9, 3.601272299875179*^9, {3.6012725511195493`*^9, 3.6012725676964974`*^9}, 3.6012728819354706`*^9, {3.601272984077313*^9, 3.6012729861614323`*^9}, { 3.6648646212123003`*^9, 3.664864693830428*^9}, {3.6648651694294634`*^9, 3.664865194810708*^9}, {3.6648653304529457`*^9, 3.6648653472541757`*^9}, { 3.729843343017043*^9, 3.729843359628227*^9}, {3.729912735732216*^9, 3.7299128731556425`*^9}, {3.7299129221669583`*^9, 3.72991294797655*^9}, { 3.7300248525581837`*^9, 3.730024855449114*^9}, {3.7304279745734572`*^9, 3.730428077178316*^9}, {3.730428111666378*^9, 3.7304284640162597`*^9}, { 3.730428499722911*^9, 3.7304285693711977`*^9}, {3.7304286054841323`*^9, 3.730428718980919*^9}, {3.7304290371707726`*^9, 3.7304290376396465`*^9}, { 3.730519712939026*^9, 3.7305198990613127`*^9}, {3.730519936016362*^9, 3.730520032866997*^9}, {3.730520069342738*^9, 3.7305201413837137`*^9}, { 3.7305201819036684`*^9, 3.730520302786532*^9}, {3.7305203639562807`*^9, 3.7305204404735904`*^9}, {3.7305204798600316`*^9, 3.7305206242921004`*^9}, {3.730520661620327*^9, 3.73052086320057*^9}, { 3.7305209143136907`*^9, 3.730521406238872*^9}, {3.7305220693650236`*^9, 3.7305221438897824`*^9}, {3.7305222098554373`*^9, 3.7305222114506407`*^9}, {3.7305222825988903`*^9, 3.7305223710507684`*^9}, 3.730522440356784*^9, {3.7305224750265336`*^9, 3.7305224974238605`*^9}, { 3.7305226775804014`*^9, 3.73052267799199*^9}, {3.730522733805127*^9, 3.7305227660933824`*^9}, {3.730522823223466*^9, 3.730522889600585*^9}, { 3.730523040515712*^9, 3.7305230470304856`*^9}, {3.730685760149651*^9, 3.730685780096732*^9}, {3.7939704405993147`*^9, 3.793970448326908*^9}, { 3.7939705106810703`*^9, 3.793970533596043*^9}, {3.7939705674442396`*^9, 3.7939707035921373`*^9}, {3.7939707722726045`*^9, 3.793970961302946*^9}, { 3.793971034279026*^9, 3.793971051825655*^9}, 3.793971087492222*^9, { 3.7939711310030613`*^9, 3.793971210055024*^9}, {3.7939712590923862`*^9, 3.793971297112995*^9}, {3.7939713539517617`*^9, 3.793971374690854*^9}, { 3.793971743585492*^9, 3.793971889198866*^9}, {3.793971936623559*^9, 3.7939720728138323`*^9}, {3.793972117645915*^9, 3.7939722220143943`*^9}, { 3.7939731076642942`*^9, 3.7939731170134974`*^9}, {3.7939731486712947`*^9, 3.79397317255738*^9}, {3.793973204200966*^9, 3.7939732392583923`*^9}, { 3.7939733263366776`*^9, 3.793973378932726*^9}, {3.7939738932538195`*^9, 3.7939739705960293`*^9}, {3.793974007396006*^9, 3.793974049807906*^9}, { 3.7939741379324656`*^9, 3.793974247851988*^9}, {3.793974426200988*^9, 3.7939744504618373`*^9}, {3.7939744900707893`*^9, 3.793974625342739*^9}, 3.793974665425763*^9, {3.793975186666686*^9, 3.7939753251453657`*^9}, { 3.793975365473321*^9, 3.7939753737830997`*^9}, {3.793975526884291*^9, 3.7939755831200476`*^9}, 3.793975662679941*^9, {3.7939756954638176`*^9, 3.7939758597355595`*^9}, {3.793975899444241*^9, 3.79397601050072*^9}, { 3.7940169396975994`*^9, 3.7940169423709908`*^9}, {3.7940169979231596`*^9, 3.794017021914877*^9}, {3.7940183214010944`*^9, 3.794018387442067*^9}, { 3.794018505729273*^9, 3.794018617179175*^9}, {3.7940186966430063`*^9, 3.7940190069659386`*^9}}, CellLabel->"In[31]:=",ExpressionUUID->"adacaa7f-8c95-4c29-b528-e8c4894071df"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.794019532386713*^9, 3.7940196081994457`*^9, 3.79402025521603*^9, 3.794020582836877*^9, 3.794291272571209*^9}, CellLabel->"Out[31]=",ExpressionUUID->"b021765e-a347-4b50-96f6-2166c64f9c53"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.794019532386713*^9, 3.7940196081994457`*^9, 3.79402025521603*^9, 3.794020582836877*^9, 3.7942912725752096`*^9}, CellLabel->"Out[32]=",ExpressionUUID->"2ee9eb26-45d5-4b7e-83e9-780737d25d11"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.794019532386713*^9, 3.7940196081994457`*^9, 3.79402025521603*^9, 3.794020582836877*^9, 3.79429127257819*^9}, CellLabel->"Out[33]=",ExpressionUUID->"24467cd9-752d-405b-a06a-d86da1e25793"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"(*", RowBox[{"rigid", " ", "body", " ", "motion", " ", "test"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"U", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"Sin", "[", "\[Phi]", "]"}]}], ",", RowBox[{"Cos", "[", "\[Phi]", "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", "\[Phi]", "]"}]}], ",", RowBox[{"-", RowBox[{"Sin", "[", "\[Phi]", "]"}]}], ",", "0"}], "}"}]}], "}"}], ".", RowBox[{"{", RowBox[{"Ux", ",", "Uy", ",", "Uz"}], "}"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[CapitalOmega]", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"Sin", "[", "\[Phi]", "]"}]}], ",", RowBox[{"Cos", "[", "\[Phi]", "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", "\[Phi]", "]"}]}], ",", RowBox[{"-", RowBox[{"Sin", "[", "\[Phi]", "]"}]}], ",", "0"}], "}"}]}], "}"}], ".", RowBox[{"{", RowBox[{ "\[CapitalOmega]x", ",", "\[CapitalOmega]y", ",", "\[CapitalOmega]z"}], "}"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"r0", "=", RowBox[{"{", RowBox[{"z", ",", "0", ",", RowBox[{"-", "R"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"uz", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], ",", RowBox[{"u\[Phi]", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], ",", RowBox[{"un", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], "}"}], "=", RowBox[{"U", "+", RowBox[{"\[CapitalOmega]", StyleBox["\[Cross]", "OperatorCharacter"], "r0"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Theta]z", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], ",", RowBox[{"\[Theta]\[Phi]", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}], ",", RowBox[{"\[Theta]n", "[", RowBox[{"z", ",", "\[Phi]"}], "]"}]}], "}"}], "=", "\[CapitalOmega]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"resultants", "[", "z\[Phi]n", "]"}], " ", "/.", RowBox[{"constitutive", "[", "z\[Phi]n", "]"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{ 3.4747630249118*^9, {3.4747631189174*^9, 3.4747632157778*^9}, { 3.4747632855098*^9, 3.4747632963361998`*^9}, {3.4747634024006*^9, 3.474763402697*^9}, {3.474763495517*^9, 3.4747635001814003`*^9}, { 3.4747637730566*^9, 3.474763803851*^9}, {3.4747642087646*^9, 3.4747642600573997`*^9}, {3.4747643726426*^9, 3.4747644737774*^9}, { 3.4752269899314003`*^9, 3.4752270948882*^9}, {3.4752271345902*^9, 3.4752272632434*^9}, {3.475227295551*^9, 3.4752275983314*^9}, { 3.475227632591*^9, 3.4752276649932003`*^9}, {3.4752276971146*^9, 3.4752277780172*^9}, {3.4752278086712*^9, 3.4752279362948*^9}, { 3.4752279825643997`*^9, 3.4752280182416*^9}, {3.4752280573196*^9, 3.4752280750411997`*^9}, {3.4752281205931997`*^9, 3.4752281779231997`*^9}, {3.4752283129412003`*^9, 3.4752284125678*^9}, { 3.4752286421373997`*^9, 3.4752286429174*^9}, {3.4752290214202003`*^9, 3.4752292420810003`*^9}, {3.4752292747942*^9, 3.4752293745874*^9}, { 3.4752294050854*^9, 3.4752295128190002`*^9}, {3.475230037291*^9, 3.4752300676486*^9}, {3.4752302150998*^9, 3.475230248749*^9}, { 3.4753664935702*^9, 3.4753668085810003`*^9}, {3.4753668484702*^9, 3.4753670665114*^9}, {3.4753671011902*^9, 3.4753674723454*^9}, { 3.4753676229322*^9, 3.4753677863733997`*^9}, {3.475367825233*^9, 3.475367848243*^9}, {3.475368029983*^9, 3.4753680589522*^9}, { 3.475369411392*^9, 3.4753695644904003`*^9}, {3.4753696954256*^9, 3.475369726766*^9}, {3.4753698525643997`*^9, 3.4753698555128*^9}, { 3.4753773724536*^9, 3.4753774958652*^9}, 3.4753775502468*^9, { 3.4753776430044003`*^9, 3.4753776659364*^9}, {3.4753777121748*^9, 3.4753777832483997`*^9}, {3.4753778188164*^9, 3.475377922336*^9}, { 3.4753779601348*^9, 3.4753784001952*^9}, {3.4753785090208*^9, 3.475378568722*^9}, {3.4753786124955997`*^9, 3.4753786164112*^9}, { 3.4753786468156*^9, 3.4753786657384*^9}, {3.4753787045355997`*^9, 3.4753787267032003`*^9}, 3.4753910727106*^9, {3.4753931910636*^9, 3.4753932441756*^9}, {3.4754621543882*^9, 3.4754622450397997`*^9}, { 3.4778876497897997`*^9, 3.4778877494737997`*^9}, {3.477887825399*^9, 3.4778878298606*^9}, {3.4778878701085997`*^9, 3.477887883041*^9}, { 3.4778879526482*^9, 3.477887957843*^9}, {3.4778879979974003`*^9, 3.4778880009614*^9}, {3.4778880335654*^9, 3.4778880462326*^9}, { 3.4778880897098*^9, 3.4778881201142*^9}, {3.4778882394908*^9, 3.477888243734*^9}, {3.4778884935368*^9, 3.477888539042*^9}, { 3.477889451995*^9, 3.4778895118416*^9}, {3.4779795395165997`*^9, 3.4779795402136*^9}, {3.4779797634996*^9, 3.4779797999356003`*^9}, 3.4779798372766*^9, {3.4779799820666*^9, 3.4779801217206*^9}, { 3.4779801745425997`*^9, 3.4779801845926*^9}, {3.4779804353096*^9, 3.4779804588506002`*^9}, {3.4779804893566*^9, 3.4779806203556004`*^9}, { 3.4779807300538*^9, 3.4779807467418003`*^9}, {3.4779808817128*^9, 3.4779809449638*^9}, {3.4781573512264*^9, 3.4781573649856*^9}, { 3.478157397808*^9, 3.4781574763227997`*^9}, {3.4781575335436*^9, 3.4781576406532*^9}, {3.4781576880615997`*^9, 3.478157739292*^9}, { 3.478157788042*^9, 3.4781577938452*^9}, {3.4781578276036*^9, 3.4781579446191998`*^9}, {3.4781579974564*^9, 3.4781579980959997`*^9}, 3.47815804396*^9, {3.4781582919532003`*^9, 3.47815834816*^9}, { 3.4781583838694*^9, 3.4781583926366*^9}, 3.4781585049566*^9, { 3.478162407691*^9, 3.4781624349442*^9}, {3.4781624661286*^9, 3.4781624682033997`*^9}, 3.4781626733746*^9, {3.5376219474134884`*^9, 3.537621988198821*^9}, {3.537622048951296*^9, 3.537622120225373*^9}, { 3.5376222446004868`*^9, 3.537622312108348*^9}, 3.537622776495909*^9, { 3.537622908932484*^9, 3.537622917335965*^9}, {3.5376238837162385`*^9, 3.537624004391141*^9}, {3.5376240458145103`*^9, 3.5376242437438307`*^9}, { 3.537624281650999*^9, 3.5376244166457205`*^9}, {3.5376244546488943`*^9, 3.5376248198917847`*^9}, {3.5397503703948455`*^9, 3.5397504308449516`*^9}, 3.5627674253055143`*^9, {3.5781422724253883`*^9, 3.578142305481847*^9}, { 3.5828109510514917`*^9, 3.582810961924711*^9}, {3.6000023977095795`*^9, 3.6000024056343937`*^9}, {3.600002438425651*^9, 3.6000024578788853`*^9}, { 3.600002497565355*^9, 3.600002598559932*^9}, {3.6000027265893574`*^9, 3.6000028178183174`*^9}, {3.600004251273635*^9, 3.6000042647676587`*^9}, { 3.6000479817557764`*^9, 3.6000483859368863`*^9}, {3.600048424453354*^9, 3.6000485077575006`*^9}, {3.600048552451579*^9, 3.600048659342967*^9}, { 3.6000486956130304`*^9, 3.6000487948292046`*^9}, {3.600048827292862*^9, 3.6000488489925*^9}, {3.6000489136546135`*^9, 3.6000492298047686`*^9}, { 3.6000492661060324`*^9, 3.6000494956604357`*^9}, {3.600049563676555*^9, 3.60004964038189*^9}, {3.600049704232802*^9, 3.600049707680408*^9}, { 3.6000498654590855`*^9, 3.600049982756691*^9}, {3.600050061318429*^9, 3.600050183014243*^9}, {3.6000502198459077`*^9, 3.6000503051000576`*^9}, { 3.6000503376105146`*^9, 3.600050450320712*^9}, {3.600050565012114*^9, 3.6000507365032153`*^9}, {3.6000507713224764`*^9, 3.6000507846292996`*^9}, {3.6000509146243277`*^9, 3.6000509929520655`*^9}, {3.600052137070728*^9, 3.600052140487134*^9}, { 3.6009245212614975`*^9, 3.6009245813060026`*^9}, {3.6009246118976564`*^9, 3.6009247053262205`*^9}, {3.6009247454650908`*^9, 3.6009248645557003`*^9}, {3.600924897627758*^9, 3.6009250270923853`*^9}, { 3.60093269343791*^9, 3.6009326961055145`*^9}, {3.6009327283039713`*^9, 3.600932810640916*^9}, {3.600932919607107*^9, 3.6009330596953535`*^9}, { 3.600933106448635*^9, 3.6009331778655605`*^9}, {3.6009332278324485`*^9, 3.6009334194943852`*^9}, {3.600933457277652*^9, 3.600933458978054*^9}, { 3.6009335033445325`*^9, 3.600933546775009*^9}, {3.600933589019883*^9, 3.600933594635893*^9}, {3.6009336332459607`*^9, 3.600933726752525*^9}, { 3.600933764317391*^9, 3.6009337710722027`*^9}, {3.6009338044406614`*^9, 3.600933853081547*^9}, {3.600934005244214*^9, 3.6009340502970934`*^9}, { 3.6009340857403555`*^9, 3.6009341752533126`*^9}, {3.600934250008644*^9, 3.600934354918828*^9}, {3.600934408426922*^9, 3.6009344234341483`*^9}, { 3.600934488111862*^9, 3.6009345709168077`*^9}, {3.600934624736902*^9, 3.600934638932927*^9}, {3.60093468637261*^9, 3.600934760753541*^9}, { 3.6009348210476465`*^9, 3.6009349317766414`*^9}, {3.6009350071247735`*^9, 3.600935160207843*^9}, {3.6009352133259363`*^9, 3.6009352260243583`*^9}, { 3.6009352675828314`*^9, 3.600935273776042*^9}, {3.6009383693050795`*^9, 3.6009386236011257`*^9}, {3.600938695158451*^9, 3.600938845605116*^9}, { 3.6009391629720736`*^9, 3.600939299628313*^9}, {3.600939553393959*^9, 3.6009395861540165`*^9}, {3.600939652407333*^9, 3.6009396642633533`*^9}, { 3.6009397392682853`*^9, 3.600939765398331*^9}, {3.600939855098489*^9, 3.6009398902297506`*^9}, {3.6009399920511293`*^9, 3.6009400593496475`*^9}, {3.6009401208137555`*^9, 3.600940245286374*^9}, { 3.6009402864548464`*^9, 3.6009402976088657`*^9}, {3.600944609222439*^9, 3.600944635477285*^9}, {3.600944687784177*^9, 3.600944710778617*^9}, { 3.6009451493577876`*^9, 3.600945150184589*^9}, 3.6009451913218613`*^9, { 3.600945405229437*^9, 3.6009454072106404`*^9}, {3.600945440610299*^9, 3.600945510482822*^9}, {3.6009457299128075`*^9, 3.6009457335008135`*^9}, { 3.600953140517025*^9, 3.600953181233096*^9}, {3.600953225365574*^9, 3.600953304598113*^9}, {3.6009533714130306`*^9, 3.60095337693544*^9}, { 3.600955624306587*^9, 3.6009556683142643`*^9}, {3.600955704350328*^9, 3.6009557208863573`*^9}, {3.600955931346327*^9, 3.6009559929508348`*^9}, { 3.600956393809139*^9, 3.600956401328352*^9}, {3.601271999654121*^9, 3.6012720126177435`*^9}, {3.601272051820613*^9, 3.601272060572228*^9}, { 3.601272126185943*^9, 3.601272140990369*^9}, 3.6012722043888807`*^9, 3.601272299875179*^9, {3.6012725511195493`*^9, 3.6012725676964974`*^9}, 3.6012728819354706`*^9, {3.601272984077313*^9, 3.6012729861614323`*^9}, { 3.6648646212123003`*^9, 3.664864693830428*^9}, {3.6648651694294634`*^9, 3.664865194810708*^9}, {3.6648653304529457`*^9, 3.6648653472541757`*^9}, { 3.729843343017043*^9, 3.729843359628227*^9}, {3.729912735732216*^9, 3.7299128731556425`*^9}, {3.7299129221669583`*^9, 3.72991294797655*^9}, { 3.7300248525581837`*^9, 3.730024855449114*^9}, {3.7304279745734572`*^9, 3.730428077178316*^9}, {3.730428111666378*^9, 3.7304284640162597`*^9}, { 3.730428499722911*^9, 3.7304285693711977`*^9}, {3.7304286054841323`*^9, 3.730428718980919*^9}, {3.7304290371707726`*^9, 3.7304290376396465`*^9}, { 3.730519712939026*^9, 3.7305198990613127`*^9}, {3.730519936016362*^9, 3.730520032866997*^9}, {3.730520069342738*^9, 3.7305201413837137`*^9}, { 3.7305201819036684`*^9, 3.730520302786532*^9}, {3.7305203639562807`*^9, 3.7305204404735904`*^9}, {3.7305204798600316`*^9, 3.7305206242921004`*^9}, {3.730520661620327*^9, 3.73052086320057*^9}, { 3.7305209143136907`*^9, 3.730521406238872*^9}, {3.7305220693650236`*^9, 3.7305221438897824`*^9}, {3.7305222098554373`*^9, 3.7305222114506407`*^9}, {3.7305222825988903`*^9, 3.7305223710507684`*^9}, 3.730522440356784*^9, {3.7305224750265336`*^9, 3.7305224974238605`*^9}, { 3.7305226775804014`*^9, 3.73052267799199*^9}, {3.730522733805127*^9, 3.7305227660933824`*^9}, {3.730522823223466*^9, 3.730522889600585*^9}, { 3.730523040515712*^9, 3.7305230470304856`*^9}, {3.730685760149651*^9, 3.730685780096732*^9}, {3.7939704405993147`*^9, 3.793970448326908*^9}, { 3.7939705106810703`*^9, 3.793970533596043*^9}, {3.7939705674442396`*^9, 3.7939707035921373`*^9}, {3.7939707722726045`*^9, 3.793970961302946*^9}, { 3.793971034279026*^9, 3.793971051825655*^9}, 3.793971087492222*^9, { 3.7939711310030613`*^9, 3.793971210055024*^9}, {3.7939712590923862`*^9, 3.793971297112995*^9}, {3.7939713539517617`*^9, 3.793971374690854*^9}, { 3.793971743585492*^9, 3.793971889198866*^9}, {3.793971936623559*^9, 3.7939720728138323`*^9}, {3.793972117645915*^9, 3.7939722220143943`*^9}, { 3.7939731076642942`*^9, 3.7939731170134974`*^9}, {3.7939731486712947`*^9, 3.79397317255738*^9}, {3.793973204200966*^9, 3.7939732392583923`*^9}, { 3.7939733263366776`*^9, 3.793973378932726*^9}, {3.7939738932538195`*^9, 3.7939739705960293`*^9}, {3.793974007396006*^9, 3.793974049807906*^9}, { 3.7939741379324656`*^9, 3.793974247851988*^9}, {3.793974426200988*^9, 3.7939744504618373`*^9}, {3.7939744900707893`*^9, 3.793974625342739*^9}, 3.793974665425763*^9, {3.793975186666686*^9, 3.7939753251453657`*^9}, { 3.793975365473321*^9, 3.7939753737830997`*^9}, {3.793975526884291*^9, 3.7939755831200476`*^9}, 3.793975662679941*^9, {3.7939756954638176`*^9, 3.7939758597355595`*^9}, {3.793975899444241*^9, 3.79397601050072*^9}, { 3.7940169396975994`*^9, 3.7940169423709908`*^9}, {3.7940169979231596`*^9, 3.794017021914877*^9}, {3.7940183214010944`*^9, 3.794018387442067*^9}, { 3.794018505729273*^9, 3.794018617179175*^9}, {3.7940186966430063`*^9, 3.794019016130739*^9}, {3.7940190623367853`*^9, 3.7940191692284136`*^9}, { 3.794019513733223*^9, 3.794019527330592*^9}, {3.7940196472773743`*^9, 3.794019675094221*^9}, {3.794019811516172*^9, 3.794019819721644*^9}, { 3.79401988716391*^9, 3.7940198904785004`*^9}, {3.794019934892671*^9, 3.794019949800095*^9}, {3.7940201005814033`*^9, 3.794020172944266*^9}, { 3.7942912878446026`*^9, 3.7942912905171957`*^9}}, CellLabel->"In[40]:=",ExpressionUUID->"c75481ae-f046-44f4-9b0f-f95cbb046c91"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output", CellChangeTimes->{ 3.793975874549903*^9, {3.7939759247739286`*^9, 3.7939759972418356`*^9}, 3.7940184093400106`*^9, 3.7940184901524115`*^9, 3.7940191710514603`*^9, { 3.7940196360204244`*^9, 3.7940196771804667`*^9}, 3.794019822055113*^9, 3.794019892913647*^9, 3.7940199507125216`*^9, {3.794020152992793*^9, 3.7940201743917866`*^9}, 3.7940202608008995`*^9, 3.7940205889320908`*^9, { 3.7942912782352133`*^9, 3.794291291519638*^9}}, CellLabel->"Out[45]=",ExpressionUUID->"20dfc340-80a5-41e3-82df-8834b1648b56"] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Generic examples", "Section", CellChangeTimes->{ 3.4710857577642*^9, {3.4710858112098*^9, 3.4710858239082003`*^9}, { 3.4710859049969997`*^9, 3.4710859061046*^9}, {3.4710892678536*^9, 3.4710892701*^9}, 3.4710893817648*^9, {3.4710894793115997`*^9, 3.4710895039596*^9}, {3.4710905118050003`*^9, 3.471090512741*^9}, { 3.4725252603414*^9, 3.472525264101*^9}, {3.4725253064862003`*^9, 3.4725253370934*^9}, {3.4747629998582*^9, 3.4747630055678*^9}, { 3.4752273878873997`*^9, 3.4752273904926*^9}, {3.4753663741484003`*^9, 3.4753664116352*^9}, {3.4753773567911997`*^9, 3.475377356916*^9}, 3.4753775870472*^9, {3.4754620951394*^9, 3.4754621031266003`*^9}, { 3.4779795207265997`*^9, 3.4779795250576*^9}, 3.537621939388029*^9, 3.537622997047524*^9, {3.5376238658302155`*^9, 3.5376238672312956`*^9}, { 3.600002366135124*^9, 3.6000023692707295`*^9}, {3.6000479572325335`*^9, 3.6000479595569377`*^9}, {3.6004096645198383`*^9, 3.600409717357131*^9}, { 3.600571492488657*^9, 3.600571494735061*^9}, {3.6005936284438515`*^9, 3.6005936292394524`*^9}, {3.6006741159692173`*^9, 3.6006741341492577`*^9}, {3.6009244661154003`*^9, 3.6009244668018017`*^9}, {3.6009251420333877`*^9, 3.60092514354659*^9}, 3.600925365035779*^9, 3.6043821695544815`*^9, {3.666877582611085*^9, 3.6668775848264914`*^9}, {3.6682521885528736`*^9, 3.668252217319324*^9}, 3.668252975775611*^9, {3.6682530237788477`*^9, 3.668253025596376*^9}, { 3.7304275902874823`*^9, 3.7304275953971214`*^9}},ExpressionUUID->"a2593288-2234-40c0-9c7b-\ 4f5d46e24461"], Cell[CellGroupData[{ Cell["Plate (x,y,n)", "Subsection", CellChangeTimes->{ 3.4710857577642*^9, {3.4710858112098*^9, 3.4710858239082003`*^9}, { 3.4710859049969997`*^9, 3.4710859061046*^9}, {3.4710892678536*^9, 3.4710892701*^9}, 3.4710893817648*^9, {3.4710894793115997`*^9, 3.4710895039596*^9}, {3.4710905118050003`*^9, 3.471090512741*^9}, { 3.4725252603414*^9, 3.472525264101*^9}, {3.4725253064862003`*^9, 3.4725253370934*^9}, {3.4747629998582*^9, 3.4747630055678*^9}, { 3.4752273878873997`*^9, 3.4752273904926*^9}, {3.4753663741484003`*^9, 3.4753664116352*^9}, {3.4753773567911997`*^9, 3.475377356916*^9}, 3.4753775870472*^9, {3.4754620951394*^9, 3.4754621031266003`*^9}, { 3.4779795207265997`*^9, 3.4779795250576*^9}, 3.537621939388029*^9, 3.537622934627954*^9, {3.5376230222229643`*^9, 3.537623029743394*^9}, { 3.537623460058007*^9, 3.537623470980632*^9}, {3.537624955779557*^9, 3.5376249594157653`*^9}, {3.6000028730424147`*^9, 3.6000028738224154`*^9}, {3.600051011531698*^9, 3.6000510174285083`*^9}, { 3.600051611598405*^9, 3.600051612175606*^9}, {3.601345436806925*^9, 3.6013454383201275`*^9}, {3.601345528035885*^9, 3.6013455313118906`*^9}, { 3.601345570093559*^9, 3.601345572137162*^9}, {3.601345611714432*^9, 3.6013456172368417`*^9}, 3.6016459822022843`*^9, {3.6031080083902407`*^9, 3.6031080231166663`*^9}, {3.6031775802126956`*^9, 3.603177580977097*^9}, { 3.6031844444402394`*^9, 3.603184446780244*^9}, 3.666877628076423*^9, { 3.6675445583700595`*^9, 3.6675445650984445`*^9}, {3.6675457022524858`*^9, 3.6675457103329477`*^9}, 3.6682522745870247`*^9, {3.7308621033421755`*^9, 3.7308621095459256`*^9}, {3.7620692122454004`*^9, 3.7620692207121725`*^9}},ExpressionUUID->"aae38969-696f-4c96-a2e6-\ ad7bef2850e2"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{"x", ",", "y", ",", "n"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"r0", "=", RowBox[{"{", RowBox[{"x", ",", "y", ",", "0"}], "}"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vars", "=", RowBox[{"{", RowBox[{"x", ",", "y", ",", "n"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cnd", "=", RowBox[{ RowBox[{"R", ">", "0"}], "&&", RowBox[{ RowBox[{"R", "-", "n"}], ">", "0"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"asm", " ", "=", RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"SHELLKINEMATICS", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"SHELLEQUILIBRIUM", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SHELLCONSTITUTIVE", "[", "1", "]"}], ";"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.666877671479355*^9, 3.6668776730215592`*^9}, { 3.6668847313643303`*^9, 3.6668847319907327`*^9}, {3.6675246147608366`*^9, 3.667524663479722*^9}, {3.667528409739314*^9, 3.6675284307945185`*^9}, { 3.667531399116185*^9, 3.6675314050129957`*^9}, 3.6675321567813163`*^9, { 3.667544280688177*^9, 3.6675443248827047`*^9}, 3.667544442555435*^9, { 3.6675445775451565`*^9, 3.667544621284658*^9}, {3.6675446547985744`*^9, 3.66754466187998*^9}, 3.667544763739806*^9, {3.6675453712965565`*^9, 3.6675453960919743`*^9}, 3.6682522546189895`*^9, {3.7305352191046295`*^9, 3.730535241935189*^9}, {3.73053530933267*^9, 3.730535340195615*^9}, { 3.730540978991392*^9, 3.7305409840547223`*^9}, {3.730541062364626*^9, 3.7305410823042274`*^9}, {3.7620692323654575`*^9, 3.762069283525633*^9}, { 3.7620693922499976`*^9, 3.762069413901451*^9}}, CellLabel->"In[26]:=",ExpressionUUID->"ebed0d67-b88e-49cc-9053-27d911bd9bf8"], Cell[CellGroupData[{ Cell[BoxData["\<\"KINEMATICS:\"\>"], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.7620735786686344`*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"c664c065-271a-4685-9420-ff7c735b5795"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"vars =\"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"x", ",", "y", ",", "n"}], "}"}]}], SequenceForm["vars =", {$CellContext`x, $CellContext`y, $CellContext`n}], Editable->False]], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.7620735786686344`*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"c1883a94-29b2-4e7b-adc6-57d0542e1d5b"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"e =\"\>", "\[InvisibleSpace]", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { SubscriptBox["e", "x"]}, { SubscriptBox["e", "y"]}, { SubscriptBox["e", "n"]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], SequenceForm["e =", MatrixForm[{ Subscript[$CellContext`e, $CellContext`x], Subscript[$CellContext`e, $CellContext`y], Subscript[$CellContext`e, $CellContext`n]}]], Editable->False]], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.7620735786842537`*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"29de4751-dc32-4593-9a8d-fbd3b34a3292"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(r\\), \\(0\\)]\\) =\"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{"x", " ", SubscriptBox["e", "x"]}], "+", RowBox[{"y", " ", SubscriptBox["e", "y"]}]}]}], SequenceForm[ "\!\(\*SubscriptBox[\(r\), \(0\)]\) =", $CellContext`x Subscript[$CellContext`e, $CellContext`x] + $CellContext`y Subscript[$CellContext`e, $CellContext`y]], Editable->False]], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.762073578699876*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"c61480c1-4430-4542-9300-220161bf9f04"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(\[PartialD]\\), \\(\[Alpha]\\)]\\)e =\ \"\>", "\[InvisibleSpace]", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0"}, {"0"}, {"0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"\\!\\(\\*SubscriptBox[\\(\[PartialD]\\), \\(\ \[Beta]\\)]\\)e =\"\>", "\[InvisibleSpace]", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0"}, {"0"}, {"0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"\\!\\(\\*SubscriptBox[\\(\[PartialD]\\), \ \\(n\\)]\\)e =\"\>", "\[InvisibleSpace]", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0"}, {"0"}, {"0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], SequenceForm["\!\(\*SubscriptBox[\(\[PartialD]\), \(\[Alpha]\)]\)e =", MatrixForm[{0, 0, 0}], " ", "\!\(\*SubscriptBox[\(\[PartialD]\), \(\[Beta]\)]\)e =", MatrixForm[{0, 0, 0}], " ", "\!\(\*SubscriptBox[\(\[PartialD]\), \(n\)]\)e =", MatrixForm[{0, 0, 0}]], Editable->False]], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.762073578699876*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"1a859567-17ae-456f-ba12-8bc81abb2616"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\[Del] =\"\>", "\[InvisibleSpace]", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "0"}, {"0", "1", "0"}, {"0", "0", "1"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"\[Del] =\"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{ SubscriptBox["\<\"\[PartialD]\"\>", "n"], " ", SubscriptBox["e", "n"]}], "+", RowBox[{ SubscriptBox["\<\"\[PartialD]\"\>", "x"], " ", SubscriptBox["e", "x"]}], "+", RowBox[{ SubscriptBox["\<\"\[PartialD]\"\>", "y"], " ", SubscriptBox["e", "y"]}]}]}], SequenceForm["\[Del] =", MatrixForm[{{1, 0, 0}, {0, 1, 0}, {0, 0, 1}}], " ", "\[Del] =", Subscript["\[PartialD]", $CellContext`n] Subscript[$CellContext`e, $CellContext`n] + Subscript["\[PartialD]", $CellContext`x] Subscript[$CellContext`e, $CellContext`x] + Subscript["\[PartialD]", $CellContext`y] Subscript[$CellContext`e, $CellContext`y]], Editable->False]], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.762073578699876*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"b87f311c-4a07-4fdd-9ee5-36eb9a860d5c"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\[Kappa] =\"\>", "\[InvisibleSpace]", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"\[Kappa] =\"\>", "\[InvisibleSpace]", "0"}], SequenceForm["\[Kappa] =", MatrixForm[{{0, 0}, {0, 0}}], " ", "\[Kappa] =", 0], Editable->False]], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.762073578715497*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"f5b1ad16-6d3a-4abd-98d4-3fe6ee0ef590"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"D =\"\>", "\[InvisibleSpace]", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "0"}, {"0", "1", "0"}, {"0", "0", "1"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], SequenceForm["D =", MatrixForm[{{1, 0, 0}, {0, 1, 0}, {0, 0, 1}}]], Editable->False]], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.762073578715497*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"11c62bdc-ed6a-4027-92f6-32b61278d598"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"J =\"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"\\!\\(\\*SubscriptBox[\\(J\\), \ \\(\[Alpha]\\)]\\) =\"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"\\!\\(\\*SubscriptBox[\\(J\\), \\(\[Beta]\\)]\\) \ =\"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"\\!\\(\\*SubscriptBox[\\(J\\), \\(n\\)]\\) \ =\"\>", "\[InvisibleSpace]", "1"}], SequenceForm[ "J =", 1, " ", "\!\(\*SubscriptBox[\(J\), \(\[Alpha]\)]\) =", 1, " ", "\!\(\*SubscriptBox[\(J\), \(\[Beta]\)]\) =", 1, " ", "\!\(\*SubscriptBox[\(J\), \(n\)]\) =", 1], Editable->False]], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.762073578715497*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"0a3b3915-307c-40af-840d-991633e46e49"], Cell[BoxData["\<\"EQUILIBRIUM:\"\>"], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.762073578715497*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"f19607eb-c487-4dec-a95f-f7047b8ea4df"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ RowBox[{ SubscriptBox["N", RowBox[{"xx", ",", "x"}]], "+", SubscriptBox["N", RowBox[{"yx", ",", "y"}]], "+", SubscriptBox["b", "x"]}], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\" = 0\"\>"}], SequenceForm[ TraditionalForm[ Subscript[$CellContext`b, $CellContext`x] + Subscript[N, $CellContext`xx, $CellContext`x] + Subscript[N, $CellContext`yx, $CellContext`y]], " = 0"], Editable->False]], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.762073578715497*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"4352f16e-e15f-42ff-b9ad-dc1fbe11dfb8"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ RowBox[{ SubscriptBox["N", RowBox[{"xy", ",", "x"}]], "+", SubscriptBox["N", RowBox[{"yy", ",", "y"}]], "+", SubscriptBox["b", "y"]}], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\" = 0\"\>"}], SequenceForm[ TraditionalForm[ Subscript[$CellContext`b, $CellContext`y] + Subscript[N, $CellContext`xy, $CellContext`x] + Subscript[N, $CellContext`yy, $CellContext`y]], " = 0"], Editable->False]], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.762073578731118*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"96fe3afa-91cb-4e64-9a9e-3454c04c9a32"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ RowBox[{ SubscriptBox["Q", RowBox[{"x", ",", "x"}]], "+", SubscriptBox["Q", RowBox[{"y", ",", "y"}]], "+", SubscriptBox["b", "n"]}], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\" = 0\"\>"}], SequenceForm[ TraditionalForm[ Subscript[$CellContext`b, $CellContext`n] + Subscript[$CellContext`Q, $CellContext`x, $CellContext`x] + Subscript[$CellContext`Q, $CellContext`y, $CellContext`y]], " = 0"], Editable->False]], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.762073578746751*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"6593c567-6641-44fd-a3ec-737bb8060043"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ RowBox[{ SubscriptBox["M", RowBox[{"xx", ",", "x"}]], "+", SubscriptBox["M", RowBox[{"yx", ",", "y"}]], "+", SubscriptBox["c", "x"], "-", SubscriptBox["Q", "x"]}], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\" = 0\"\>"}], SequenceForm[ TraditionalForm[ Subscript[$CellContext`c, $CellContext`x] - Subscript[$CellContext`Q, $CellContext`x] + Subscript[$CellContext`M, $CellContext`xx, $CellContext`x] + Subscript[$CellContext`M, $CellContext`yx, $CellContext`y]], " = 0"], Editable->False]], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.762073578746751*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"31532f4b-c62c-402d-906f-8c67a974fd6f"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ RowBox[{ SubscriptBox["M", RowBox[{"xy", ",", "x"}]], "+", SubscriptBox["M", RowBox[{"yy", ",", "y"}]], "+", SubscriptBox["c", "y"], "-", SubscriptBox["Q", "y"]}], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\" = 0\"\>"}], SequenceForm[ TraditionalForm[ Subscript[$CellContext`c, $CellContext`y] - Subscript[$CellContext`Q, $CellContext`y] + Subscript[$CellContext`M, $CellContext`xy, $CellContext`x] + Subscript[$CellContext`M, $CellContext`yy, $CellContext`y]], " = 0"], Editable->False]], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.762073578746751*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"e65a03b8-cffd-4992-bd59-4aaa3fdae416"], Cell[BoxData["\<\"CONSTITUTIVE:\"\>"], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.762073578746751*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"ff951b4d-76ae-4025-a572-557b009b81fa"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ SubscriptBox["N", "xx"], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", TagBox[ FormBox[ RowBox[{"-", FractionBox[ RowBox[{"EE", " ", "t", " ", RowBox[{"(", RowBox[{ SubscriptBox["u", RowBox[{"x", ",", "x"}]], "+", RowBox[{"\[Nu]", " ", SubscriptBox["u", RowBox[{"y", ",", "y"}]]}]}], ")"}]}], RowBox[{ SuperscriptBox["\[Nu]", "2"], "-", "1"}]]}], TraditionalForm], TraditionalForm, Editable->True]}], SequenceForm[ TraditionalForm[ Subscript[N, $CellContext`xx]], "=", TraditionalForm[(((-$CellContext`EE) $CellContext`t)/(-1 + $CellContext`\ \[Nu]^2)) ( Subscript[$CellContext`u, $CellContext`x, $CellContext`x] + \ $CellContext`\[Nu] Subscript[$CellContext`u, $CellContext`y, $CellContext`y])]], Editable->False]], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.7620735787779827`*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"f9fea975-813a-436d-8465-679f1cecd123"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ SubscriptBox["N", "xy"], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", TagBox[ FormBox[ FractionBox[ RowBox[{"EE", " ", "t", " ", RowBox[{"(", RowBox[{ SubscriptBox["u", RowBox[{"x", ",", "y"}]], "+", SubscriptBox["u", RowBox[{"y", ",", "x"}]]}], ")"}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"\[Nu]", "+", "1"}], ")"}]}]], TraditionalForm], TraditionalForm, Editable->True]}], SequenceForm[ TraditionalForm[ Subscript[N, $CellContext`xy]], "=", TraditionalForm[(((Rational[1, 2] $CellContext`EE) $CellContext`t)/( 1 + $CellContext`\[Nu])) ( Subscript[$CellContext`u, $CellContext`x, $CellContext`y] + Subscript[$CellContext`u, $CellContext`y, $CellContext`x])]], Editable->False]], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.762073578793605*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"35d2ef65-e306-4340-96b1-861319ad65ac"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ SubscriptBox["Q", "x"], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", TagBox[ FormBox[ FractionBox[ RowBox[{"EE", " ", "t", " ", RowBox[{"(", RowBox[{ SubscriptBox["u", RowBox[{"n", ",", "x"}]], "+", SubscriptBox["\[Theta]", "y"]}], ")"}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"\[Nu]", "+", "1"}], ")"}]}]], TraditionalForm], TraditionalForm, Editable->True]}], SequenceForm[ TraditionalForm[ Subscript[$CellContext`Q, $CellContext`x]], "=", TraditionalForm[(((Rational[1, 2] $CellContext`EE) $CellContext`t)/( 1 + $CellContext`\[Nu])) ( Subscript[$CellContext`\[Theta], $CellContext`y] + Subscript[$CellContext`u, $CellContext`n, $CellContext`x])]], Editable->False]], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.762073578793605*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"7d32b9bd-3629-4fbf-a40b-b571bc29373c"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ SubscriptBox["N", "yx"], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", TagBox[ FormBox[ FractionBox[ RowBox[{"EE", " ", "t", " ", RowBox[{"(", RowBox[{ SubscriptBox["u", RowBox[{"x", ",", "y"}]], "+", SubscriptBox["u", RowBox[{"y", ",", "x"}]]}], ")"}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"\[Nu]", "+", "1"}], ")"}]}]], TraditionalForm], TraditionalForm, Editable->True]}], SequenceForm[ TraditionalForm[ Subscript[N, $CellContext`yx]], "=", TraditionalForm[(((Rational[1, 2] $CellContext`EE) $CellContext`t)/( 1 + $CellContext`\[Nu])) ( Subscript[$CellContext`u, $CellContext`x, $CellContext`y] + Subscript[$CellContext`u, $CellContext`y, $CellContext`x])]], Editable->False]], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.762073578809225*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"acf2a38b-e88a-44ff-ba2b-bfd0de08237a"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ SubscriptBox["N", "yy"], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", TagBox[ FormBox[ RowBox[{"-", FractionBox[ RowBox[{"EE", " ", "t", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Nu]", " ", SubscriptBox["u", RowBox[{"x", ",", "x"}]]}], "+", SubscriptBox["u", RowBox[{"y", ",", "y"}]]}], ")"}]}], RowBox[{ SuperscriptBox["\[Nu]", "2"], "-", "1"}]]}], TraditionalForm], TraditionalForm, Editable->True]}], SequenceForm[ TraditionalForm[ Subscript[N, $CellContext`yy]], "=", TraditionalForm[(((-$CellContext`EE) $CellContext`t)/(-1 + $CellContext`\ \[Nu]^2)) ($CellContext`\[Nu] Subscript[$CellContext`u, $CellContext`x, $CellContext`x] + Subscript[$CellContext`u, $CellContext`y, $CellContext`y])]], Editable->False]], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.7620735788248463`*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"db902499-c31d-4793-b0f0-a5859f2c9908"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ SubscriptBox["Q", "y"], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", TagBox[ FormBox[ FractionBox[ RowBox[{"EE", " ", "t", " ", RowBox[{"(", RowBox[{ SubscriptBox["u", RowBox[{"n", ",", "y"}]], "-", SubscriptBox["\[Theta]", "x"]}], ")"}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"\[Nu]", "+", "1"}], ")"}]}]], TraditionalForm], TraditionalForm, Editable->True]}], SequenceForm[ TraditionalForm[ Subscript[$CellContext`Q, $CellContext`y]], "=", TraditionalForm[(((Rational[1, 2] $CellContext`EE) $CellContext`t)/( 1 + $CellContext`\[Nu])) (- Subscript[$CellContext`\[Theta], $CellContext`x] + Subscript[$CellContext`u, $CellContext`n, $CellContext`y])]], Editable->False]], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.7620735788248463`*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"8a9d64fb-2f05-42c8-bf08-84e17eaffd04"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ SubscriptBox["Q", "x"], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", TagBox[ FormBox[ FractionBox[ RowBox[{"EE", " ", "t", " ", RowBox[{"(", RowBox[{ SubscriptBox["u", RowBox[{"n", ",", "x"}]], "+", SubscriptBox["\[Theta]", "y"]}], ")"}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"\[Nu]", "+", "1"}], ")"}]}]], TraditionalForm], TraditionalForm, Editable->True]}], SequenceForm[ TraditionalForm[ Subscript[$CellContext`Q, $CellContext`x]], "=", TraditionalForm[(((Rational[1, 2] $CellContext`EE) $CellContext`t)/( 1 + $CellContext`\[Nu])) ( Subscript[$CellContext`\[Theta], $CellContext`y] + Subscript[$CellContext`u, $CellContext`n, $CellContext`x])]], Editable->False]], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.7620735788404675`*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"2c5de654-59c3-49a8-abfa-f96df13811c9"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ SubscriptBox["Q", "y"], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", TagBox[ FormBox[ FractionBox[ RowBox[{"EE", " ", "t", " ", RowBox[{"(", RowBox[{ SubscriptBox["u", RowBox[{"n", ",", "y"}]], "-", SubscriptBox["\[Theta]", "x"]}], ")"}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"\[Nu]", "+", "1"}], ")"}]}]], TraditionalForm], TraditionalForm, Editable->True]}], SequenceForm[ TraditionalForm[ Subscript[$CellContext`Q, $CellContext`y]], "=", TraditionalForm[(((Rational[1, 2] $CellContext`EE) $CellContext`t)/( 1 + $CellContext`\[Nu])) (- Subscript[$CellContext`\[Theta], $CellContext`x] + Subscript[$CellContext`u, $CellContext`n, $CellContext`y])]], Editable->False]], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.7620735788404675`*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"7f6ba115-2399-42c1-82d6-ce9e29d4953b"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ SubscriptBox["Q", "n"], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", TagBox[ FormBox["0", TraditionalForm], TraditionalForm, Editable->True]}], SequenceForm[ TraditionalForm[ Subscript[$CellContext`Q, $CellContext`n]], "=", TraditionalForm[0]], Editable->False]], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.7620735788404675`*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"24739951-46f9-42f4-a0c5-733ab2e92cbd"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ SubscriptBox["M", "xx"], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", TagBox[ FormBox[ FractionBox[ RowBox[{"EE", " ", SuperscriptBox["t", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Nu]", " ", SubscriptBox["\[Theta]", RowBox[{"x", ",", "y"}]]}], "-", SubscriptBox["\[Theta]", RowBox[{"y", ",", "x"}]]}], ")"}]}], RowBox[{"12", " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[Nu]", "2"], "-", "1"}], ")"}]}]], TraditionalForm], TraditionalForm, Editable->True]}], SequenceForm[ TraditionalForm[ Subscript[$CellContext`M, $CellContext`xx]], "=", TraditionalForm[((( Rational[ 1, 12] $CellContext`EE) $CellContext`t^3)/(-1 + \ $CellContext`\[Nu]^2)) ($CellContext`\[Nu] Subscript[$CellContext`\[Theta], $CellContext`x, $CellContext`y] - Subscript[$CellContext`\[Theta], $CellContext`y, $CellContext`x])]], Editable->False]], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.762073578871711*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"c56f6821-2c94-4368-9929-77f1b8f9c601"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ SubscriptBox["M", "xy"], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", TagBox[ FormBox[ FractionBox[ RowBox[{"EE", " ", SuperscriptBox["t", "3"], " ", RowBox[{"(", RowBox[{ SubscriptBox["\[Theta]", RowBox[{"y", ",", "y"}]], "-", SubscriptBox["\[Theta]", RowBox[{"x", ",", "x"}]]}], ")"}]}], RowBox[{"24", " ", RowBox[{"(", RowBox[{"\[Nu]", "+", "1"}], ")"}]}]], TraditionalForm], TraditionalForm, Editable->True]}], SequenceForm[ TraditionalForm[ Subscript[$CellContext`M, $CellContext`xy]], "=", TraditionalForm[(((Rational[1, 24] $CellContext`EE) $CellContext`t^3)/( 1 + $CellContext`\[Nu])) (- Subscript[$CellContext`\[Theta], $CellContext`x, $CellContext`x] + Subscript[$CellContext`\[Theta], $CellContext`y, $CellContext`y])]], Editable->False]], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.762073578871711*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"b9a205ac-4d11-4167-83ce-3a0adbf3cdba"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ SubscriptBox["M", "xn"], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", TagBox[ FormBox["0", TraditionalForm], TraditionalForm, Editable->True]}], SequenceForm[ TraditionalForm[ Subscript[$CellContext`M, $CellContext`xn]], "=", TraditionalForm[0]], Editable->False]], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.762073578871711*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"29c97c98-407a-4169-921e-4cace1b89cdd"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ SubscriptBox["M", "yx"], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", TagBox[ FormBox[ FractionBox[ RowBox[{"EE", " ", SuperscriptBox["t", "3"], " ", RowBox[{"(", RowBox[{ SubscriptBox["\[Theta]", RowBox[{"y", ",", "y"}]], "-", SubscriptBox["\[Theta]", RowBox[{"x", ",", "x"}]]}], ")"}]}], RowBox[{"24", " ", RowBox[{"(", RowBox[{"\[Nu]", "+", "1"}], ")"}]}]], TraditionalForm], TraditionalForm, Editable->True]}], SequenceForm[ TraditionalForm[ Subscript[$CellContext`M, $CellContext`yx]], "=", TraditionalForm[(((Rational[1, 24] $CellContext`EE) $CellContext`t^3)/( 1 + $CellContext`\[Nu])) (- Subscript[$CellContext`\[Theta], $CellContext`x, $CellContext`x] + Subscript[$CellContext`\[Theta], $CellContext`y, $CellContext`y])]], Editable->False]], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.762073578887332*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"c6347305-c718-46de-88f5-f22332196255"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ SubscriptBox["M", "yy"], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", TagBox[ FormBox[ FractionBox[ RowBox[{"EE", " ", SuperscriptBox["t", "3"], " ", RowBox[{"(", RowBox[{ SubscriptBox["\[Theta]", RowBox[{"x", ",", "y"}]], "-", RowBox[{"\[Nu]", " ", SubscriptBox["\[Theta]", RowBox[{"y", ",", "x"}]]}]}], ")"}]}], RowBox[{"12", " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[Nu]", "2"], "-", "1"}], ")"}]}]], TraditionalForm], TraditionalForm, Editable->True]}], SequenceForm[ TraditionalForm[ Subscript[$CellContext`M, $CellContext`yy]], "=", TraditionalForm[((( Rational[ 1, 12] $CellContext`EE) $CellContext`t^3)/(-1 + \ $CellContext`\[Nu]^2)) ( Subscript[$CellContext`\[Theta], $CellContext`x, $CellContext`y] - \ $CellContext`\[Nu] Subscript[$CellContext`\[Theta], $CellContext`y, $CellContext`x])]], Editable->False]], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.7620735789029527`*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"1ab56dc2-4f3f-46f6-8f08-4470e6b30876"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ SubscriptBox["M", "yn"], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", TagBox[ FormBox["0", TraditionalForm], TraditionalForm, Editable->True]}], SequenceForm[ TraditionalForm[ Subscript[$CellContext`M, $CellContext`yn]], "=", TraditionalForm[0]], Editable->False]], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.7620735789029527`*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"b279285d-797f-43be-b2e3-f2b9307662c3"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ SubscriptBox["M", "nx"], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", TagBox[ FormBox["0", TraditionalForm], TraditionalForm, Editable->True]}], SequenceForm[ TraditionalForm[ Subscript[$CellContext`M, $CellContext`nx]], "=", TraditionalForm[0]], Editable->False]], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.7620735789185925`*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"981f089e-f9e9-4448-804f-c757677db4ec"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ SubscriptBox["M", "ny"], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", TagBox[ FormBox["0", TraditionalForm], TraditionalForm, Editable->True]}], SequenceForm[ TraditionalForm[ Subscript[$CellContext`M, $CellContext`ny]], "=", TraditionalForm[0]], Editable->False]], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.7620735789185925`*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"7b899993-6d48-4b48-8b45-6e9f4c1257ee"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ SubscriptBox["M", "nn"], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", TagBox[ FormBox["0", TraditionalForm], TraditionalForm, Editable->True]}], SequenceForm[ TraditionalForm[ Subscript[$CellContext`M, $CellContext`nn]], "=", TraditionalForm[0]], Editable->False]], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.7620735789185925`*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"9140bc5a-a9be-4644-b10c-912529da5b0c"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Plate (r,\[Phi],n)", "Subsection", CellChangeTimes->{ 3.4710857577642*^9, {3.4710858112098*^9, 3.4710858239082003`*^9}, { 3.4710859049969997`*^9, 3.4710859061046*^9}, {3.4710892678536*^9, 3.4710892701*^9}, 3.4710893817648*^9, {3.4710894793115997`*^9, 3.4710895039596*^9}, {3.4710905118050003`*^9, 3.471090512741*^9}, { 3.4725252603414*^9, 3.472525264101*^9}, {3.4725253064862003`*^9, 3.4725253370934*^9}, {3.4747629998582*^9, 3.4747630055678*^9}, { 3.4752273878873997`*^9, 3.4752273904926*^9}, {3.4753663741484003`*^9, 3.4753664116352*^9}, {3.4753773567911997`*^9, 3.475377356916*^9}, 3.4753775870472*^9, {3.4754620951394*^9, 3.4754621031266003`*^9}, { 3.4779795207265997`*^9, 3.4779795250576*^9}, 3.537621939388029*^9, 3.537622934627954*^9, {3.5376230222229643`*^9, 3.537623029743394*^9}, { 3.537623460058007*^9, 3.537623470980632*^9}, {3.537624955779557*^9, 3.5376249594157653`*^9}, {3.6000028730424147`*^9, 3.6000028738224154`*^9}, {3.600051011531698*^9, 3.6000510174285083`*^9}, { 3.600051611598405*^9, 3.600051612175606*^9}, {3.601345436806925*^9, 3.6013454383201275`*^9}, {3.601345528035885*^9, 3.6013455313118906`*^9}, { 3.601345570093559*^9, 3.601345572137162*^9}, {3.601345611714432*^9, 3.6013456172368417`*^9}, 3.6016459822022843`*^9, {3.6031080083902407`*^9, 3.6031080231166663`*^9}, {3.6031775802126956`*^9, 3.603177580977097*^9}, { 3.6031844444402394`*^9, 3.603184446780244*^9}, 3.666877628076423*^9, { 3.6675445583700595`*^9, 3.6675445650984445`*^9}, {3.6675457022524858`*^9, 3.6675457103329477`*^9}, 3.6682522745870247`*^9, {3.7308621033421755`*^9, 3.7308621095459256`*^9}, {3.7620692122454004`*^9, 3.7620692207121725`*^9}, {3.762069593921616*^9, 3.76206960198223*^9}},ExpressionUUID->"d59d00c3-acf4-4e84-ad59-\ 8840fcf655ad"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{"r", ",", "\[Phi]", ",", "n"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"r0", "=", RowBox[{"{", RowBox[{ RowBox[{"r", "*", RowBox[{"Cos", "[", "\[Phi]", "]"}]}], ",", RowBox[{"r", "*", RowBox[{"Sin", "[", "\[Phi]", "]"}]}], ",", "0"}], "}"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vars", "=", RowBox[{"{", RowBox[{"r", ",", "\[Phi]", ",", "n"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cnd", "=", RowBox[{"r", ">", "0"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"asm", " ", "=", RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"SHELLKINEMATICS", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"SHELLEQUILIBRIUM", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SHELLCONSTITUTIVE", "[", "1", "]"}], ";"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.666877671479355*^9, 3.6668776730215592`*^9}, { 3.6668847313643303`*^9, 3.6668847319907327`*^9}, {3.6675246147608366`*^9, 3.667524663479722*^9}, {3.667528409739314*^9, 3.6675284307945185`*^9}, { 3.667531399116185*^9, 3.6675314050129957`*^9}, 3.6675321567813163`*^9, { 3.667544280688177*^9, 3.6675443248827047`*^9}, 3.667544442555435*^9, { 3.6675445775451565`*^9, 3.667544621284658*^9}, {3.6675446547985744`*^9, 3.66754466187998*^9}, 3.667544763739806*^9, {3.6675453712965565`*^9, 3.6675453960919743`*^9}, 3.6682522546189895`*^9, {3.7305352191046295`*^9, 3.730535241935189*^9}, {3.73053530933267*^9, 3.730535340195615*^9}, { 3.730540978991392*^9, 3.7305409840547223`*^9}, {3.730541062364626*^9, 3.7305410823042274`*^9}, {3.7620692323654575`*^9, 3.762069283525633*^9}, { 3.7620693922499976`*^9, 3.762069413901451*^9}, {3.762069608121627*^9, 3.7620696912895055`*^9}}, CellLabel->"In[37]:=",ExpressionUUID->"9d30d14f-b65a-44d8-b58b-51994809713b"], Cell[CellGroupData[{ Cell[BoxData["\<\"KINEMATICS:\"\>"], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.762069698209762*^9, 3.762073949503922*^9}, CellLabel-> "During evaluation of \ In[37]:=",ExpressionUUID->"9fc000e4-a30f-4603-8616-2ffd6860aa97"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"vars =\"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"r", ",", "\[Phi]", ",", "n"}], "}"}]}], SequenceForm[ "vars =", {$CellContext`r, $CellContext`\[Phi], $CellContext`n}], Editable->False]], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.762069698209762*^9, 3.762073949503922*^9}, CellLabel-> "During evaluation of \ In[37]:=",ExpressionUUID->"52ffeedf-5b72-40c5-897e-8456ecb30db5"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"e =\"\>", "\[InvisibleSpace]", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { SubscriptBox["e", "r"]}, { SubscriptBox["e", "\[Phi]"]}, { SubscriptBox["e", "n"]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], SequenceForm["e =", MatrixForm[{ Subscript[$CellContext`e, $CellContext`r], Subscript[$CellContext`e, $CellContext`\[Phi]], Subscript[$CellContext`e, $CellContext`n]}]], Editable->False]], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.762069698209762*^9, 3.762073949503922*^9}, CellLabel-> "During evaluation of \ In[37]:=",ExpressionUUID->"27848de2-491f-4c71-a8a6-4d932978433f"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(r\\), \\(0\\)]\\) =\"\>", "\[InvisibleSpace]", RowBox[{"r", " ", SubscriptBox["e", "r"]}]}], SequenceForm[ "\!\(\*SubscriptBox[\(r\), \(0\)]\) =", $CellContext`r Subscript[$CellContext`e, $CellContext`r]], Editable->False]], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.762069698209762*^9, 3.762073949503922*^9}, CellLabel-> "During evaluation of \ In[37]:=",ExpressionUUID->"82eb3d72-e5ee-4d23-81bb-ba8fc63201fb"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(\[PartialD]\\), \\(\[Alpha]\\)]\\)e =\ \"\>", "\[InvisibleSpace]", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0"}, {"0"}, {"0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"\\!\\(\\*SubscriptBox[\\(\[PartialD]\\), \\(\ \[Beta]\\)]\\)e =\"\>", "\[InvisibleSpace]", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { SubscriptBox["e", "\[Phi]"]}, { RowBox[{"-", SubscriptBox["e", "r"]}]}, {"0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"\\!\\(\\*SubscriptBox[\\(\[PartialD]\\), \ \\(n\\)]\\)e =\"\>", "\[InvisibleSpace]", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0"}, {"0"}, {"0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], SequenceForm["\!\(\*SubscriptBox[\(\[PartialD]\), \(\[Alpha]\)]\)e =", MatrixForm[{0, 0, 0}], " ", "\!\(\*SubscriptBox[\(\[PartialD]\), \(\[Beta]\)]\)e =", MatrixForm[{ Subscript[$CellContext`e, $CellContext`\[Phi]], - Subscript[$CellContext`e, $CellContext`r], 0}], " ", "\!\(\*SubscriptBox[\(\[PartialD]\), \(n\)]\)e =", MatrixForm[{0, 0, 0}]], Editable->False]], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.762069698209762*^9, 3.762073949503922*^9}, CellLabel-> "During evaluation of \ In[37]:=",ExpressionUUID->"73b2f4d7-bfc1-4f0c-8827-2aac9a4eb9a8"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\[Del] =\"\>", "\[InvisibleSpace]", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "0"}, {"0", FractionBox["1", "r"], "0"}, {"0", "0", "1"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"\[Del] =\"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{ SubscriptBox["\<\"\[PartialD]\"\>", "n"], " ", SubscriptBox["e", "n"]}], "+", RowBox[{ SubscriptBox["\<\"\[PartialD]\"\>", "r"], " ", SubscriptBox["e", "r"]}], "+", FractionBox[ RowBox[{ SubscriptBox["\<\"\[PartialD]\"\>", "\[Phi]"], " ", SubscriptBox["e", "\[Phi]"]}], "r"]}]}], SequenceForm["\[Del] =", MatrixForm[{{1, 0, 0}, {0, $CellContext`r^(-1), 0}, {0, 0, 1}}], " ", "\[Del] =", Subscript["\[PartialD]", $CellContext`n] Subscript[$CellContext`e, $CellContext`n] + Subscript["\[PartialD]", $CellContext`r] Subscript[$CellContext`e, $CellContext`r] + ($CellContext`r^(-1) Subscript["\[PartialD]", $CellContext`\[Phi]]) Subscript[$CellContext`e, $CellContext`\[Phi]]], Editable->False]], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.762069698209762*^9, 3.7620739495195436`*^9}, CellLabel-> "During evaluation of \ In[37]:=",ExpressionUUID->"9572c3ac-2ef8-4cd0-a19d-fb3f82c8cce6"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\[Kappa] =\"\>", "\[InvisibleSpace]", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"\[Kappa] =\"\>", "\[InvisibleSpace]", "0"}], SequenceForm["\[Kappa] =", MatrixForm[{{0, 0}, {0, 0}}], " ", "\[Kappa] =", 0], Editable->False]], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.762069698209762*^9, 3.7620739495195436`*^9}, CellLabel-> "During evaluation of \ In[37]:=",ExpressionUUID->"a0665e44-d90b-4fcf-af83-4f741efd2d51"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"D =\"\>", "\[InvisibleSpace]", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "0"}, {"0", "1", "0"}, {"0", "0", "1"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], SequenceForm["D =", MatrixForm[{{1, 0, 0}, {0, 1, 0}, {0, 0, 1}}]], Editable->False]], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.762069698209762*^9, 3.7620739495195436`*^9}, CellLabel-> "During evaluation of \ In[37]:=",ExpressionUUID->"5cb392f4-8079-40f0-8f26-1f1524e394b4"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"J =\"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"\\!\\(\\*SubscriptBox[\\(J\\), \ \\(\[Alpha]\\)]\\) =\"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"\\!\\(\\*SubscriptBox[\\(J\\), \\(\[Beta]\\)]\\) \ =\"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"\\!\\(\\*SubscriptBox[\\(J\\), \\(n\\)]\\) \ =\"\>", "\[InvisibleSpace]", "1"}], SequenceForm[ "J =", 1, " ", "\!\(\*SubscriptBox[\(J\), \(\[Alpha]\)]\) =", 1, " ", "\!\(\*SubscriptBox[\(J\), \(\[Beta]\)]\) =", 1, " ", "\!\(\*SubscriptBox[\(J\), \(n\)]\) =", 1], Editable->False]], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.762069698209762*^9, 3.7620739495351667`*^9}, CellLabel-> "During evaluation of \ In[37]:=",ExpressionUUID->"082df33b-a6fc-4765-8584-53a020f4fb6a"], Cell[BoxData[ InterpretationBox[ RowBox[{ SubscriptBox["\<\"\[CapitalGamma]\"\>", RowBox[{"{", RowBox[{"\[Phi]", ",", "r", ",", "\[Phi]"}], "}"}]], "\[InvisibleSpace]", "\<\" = \"\>", "\[InvisibleSpace]", FractionBox["1", "r"]}], SequenceForm[ Subscript[ "\[CapitalGamma]", {$CellContext`\[Phi], $CellContext`r, $CellContext`\ \[Phi]}], " = ", $CellContext`r^(-1)], Editable->False]], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.762069698209762*^9, 3.7620739495351667`*^9}, CellLabel-> "During evaluation of \ In[37]:=",ExpressionUUID->"5680bf73-9d01-478f-8ec1-4aa444a53a1d"], Cell[BoxData[ InterpretationBox[ RowBox[{ SubscriptBox["\<\"\[CapitalGamma]\"\>", RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Phi]", ",", "r"}], "}"}]], "\[InvisibleSpace]", "\<\" = \"\>", "\[InvisibleSpace]", RowBox[{"-", FractionBox["1", "r"]}]}], SequenceForm[ Subscript[ "\[CapitalGamma]", {$CellContext`\[Phi], $CellContext`\[Phi], \ $CellContext`r}], " = ", (-1)/$CellContext`r], Editable->False]], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.762069698209762*^9, 3.7620739495351667`*^9}, CellLabel-> "During evaluation of \ In[37]:=",ExpressionUUID->"7d6adbc8-236e-4bd4-b54a-d6f1402f8046"], Cell[BoxData["\<\"EQUILIBRIUM:\"\>"], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.762069698209762*^9, 3.7620739495351667`*^9}, CellLabel-> "During evaluation of \ In[37]:=",ExpressionUUID->"1501532c-7faa-4f0b-ac56-6d4cc92ea11d"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ FractionBox[ RowBox[{ RowBox[{"r", " ", SubscriptBox["N", RowBox[{"rr", ",", "r"}]]}], "+", SubscriptBox["N", RowBox[{"\[Phi]r", ",", "\[Phi]"}]], "+", RowBox[{"r", " ", SubscriptBox["b", "r"]}], "+", SubscriptBox["N", "rr"], "-", SubscriptBox["N", "\[Phi]\[Phi]"]}], "r"], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\" = 0\"\>"}], SequenceForm[ TraditionalForm[$CellContext`r^(-1) ($CellContext`r Subscript[$CellContext`b, $CellContext`r] + Subscript[N, $CellContext`rr] - Subscript[ N, $CellContext`\[Phi]\[Phi]] + $CellContext`r Subscript[N, $CellContext`rr, $CellContext`r] + Subscript[N, $CellContext`\[Phi]r, $CellContext`\[Phi]])], " = 0"], Editable->False]], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.762069698209762*^9, 3.7620739495351667`*^9}, CellLabel-> "During evaluation of \ In[37]:=",ExpressionUUID->"32b54ca1-3657-4b35-8522-67ac3dcdf5f2"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ FractionBox[ RowBox[{ RowBox[{"r", " ", SubscriptBox["N", RowBox[{"r\[Phi]", ",", "r"}]]}], "+", SubscriptBox["N", RowBox[{"\[Phi]\[Phi]", ",", "\[Phi]"}]], "+", RowBox[{"r", " ", SubscriptBox["b", "\[Phi]"]}], "+", SubscriptBox["N", "r\[Phi]"], "+", SubscriptBox["N", "\[Phi]r"]}], "r"], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\" = 0\"\>"}], SequenceForm[ TraditionalForm[$CellContext`r^(-1) ($CellContext`r Subscript[$CellContext`b, $CellContext`\[Phi]] + Subscript[N, $CellContext`r\[Phi]] + Subscript[N, $CellContext`\[Phi]r] + $CellContext`r Subscript[N, $CellContext`r\[Phi], $CellContext`r] + Subscript[N, $CellContext`\[Phi]\[Phi], $CellContext`\[Phi]])], " = 0"], Editable->False]], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.762069698209762*^9, 3.7620739495507865`*^9}, CellLabel-> "During evaluation of \ In[37]:=",ExpressionUUID->"9329d437-853f-4f9c-b8b6-ef6f9bd2fbba"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ FractionBox[ RowBox[{ RowBox[{"r", " ", SubscriptBox["Q", RowBox[{"r", ",", "r"}]]}], "+", SubscriptBox["Q", RowBox[{"\[Phi]", ",", "\[Phi]"}]], "+", RowBox[{"r", " ", SubscriptBox["b", "n"]}], "+", SubscriptBox["Q", "r"]}], "r"], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\" = 0\"\>"}], SequenceForm[ TraditionalForm[$CellContext`r^(-1) ($CellContext`r Subscript[$CellContext`b, $CellContext`n] + Subscript[$CellContext`Q, $CellContext`r] + $CellContext`r Subscript[$CellContext`Q, $CellContext`r, $CellContext`r] + Subscript[$CellContext`Q, $CellContext`\[Phi], $CellContext`\[Phi]])], " = 0"], Editable->False]], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.762069698209762*^9, 3.7620739495507865`*^9}, CellLabel-> "During evaluation of \ In[37]:=",ExpressionUUID->"d58738bf-b296-416a-9174-73b3f5792410"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ FractionBox[ RowBox[{ RowBox[{"r", " ", SubscriptBox["M", RowBox[{"rr", ",", "r"}]]}], "+", SubscriptBox["M", RowBox[{"\[Phi]r", ",", "\[Phi]"}]], "+", RowBox[{"r", " ", SubscriptBox["c", "r"]}], "+", SubscriptBox["M", "rr"], "-", SubscriptBox["M", "\[Phi]\[Phi]"], "-", RowBox[{"r", " ", SubscriptBox["Q", "r"]}]}], "r"], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\" = 0\"\>"}], SequenceForm[ TraditionalForm[$CellContext`r^(-1) ($CellContext`r Subscript[$CellContext`c, $CellContext`r] + Subscript[$CellContext`M, $CellContext`rr] - Subscript[$CellContext`M, $CellContext`\[Phi]\[Phi]] - $CellContext`r Subscript[$CellContext`Q, $CellContext`r] + $CellContext`r Subscript[$CellContext`M, $CellContext`rr, $CellContext`r] + Subscript[$CellContext`M, $CellContext`\[Phi]r, $CellContext`\[Phi]])], " = 0"], Editable->False]], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.762069698209762*^9, 3.7620739495507865`*^9}, CellLabel-> "During evaluation of \ In[37]:=",ExpressionUUID->"8f5da687-8e1f-4731-b167-9fc90f18ac52"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ FractionBox[ RowBox[{ RowBox[{"r", " ", SubscriptBox["M", RowBox[{"r\[Phi]", ",", "r"}]]}], "+", SubscriptBox["M", RowBox[{"\[Phi]\[Phi]", ",", "\[Phi]"}]], "+", RowBox[{"r", " ", SubscriptBox["c", "\[Phi]"]}], "+", SubscriptBox["M", "r\[Phi]"], "+", SubscriptBox["M", "\[Phi]r"], "-", RowBox[{"r", " ", SubscriptBox["Q", "\[Phi]"]}]}], "r"], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\" = 0\"\>"}], SequenceForm[ TraditionalForm[$CellContext`r^(-1) ($CellContext`r Subscript[$CellContext`c, $CellContext`\[Phi]] + Subscript[$CellContext`M, $CellContext`r\[Phi]] + Subscript[$CellContext`M, $CellContext`\[Phi]r] - $CellContext`r Subscript[$CellContext`Q, $CellContext`\[Phi]] + $CellContext`r Subscript[$CellContext`M, $CellContext`r\[Phi], $CellContext`r] + Subscript[$CellContext`M, $CellContext`\[Phi]\[Phi], \ $CellContext`\[Phi]])], " = 0"], Editable->False]], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.762069698209762*^9, 3.762073949566409*^9}, CellLabel-> "During evaluation of \ In[37]:=",ExpressionUUID->"2cefeb00-5460-4bf6-b8f7-338a46a5171e"], Cell[BoxData["\<\"CONSTITUTIVE:\"\>"], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.762069698209762*^9, 3.762073949566409*^9}, CellLabel-> "During evaluation of \ In[37]:=",ExpressionUUID->"f2024110-397a-4d02-ba90-d20da5f20050"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ SubscriptBox["N", "rr"], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", TagBox[ FormBox[ RowBox[{"-", FractionBox[ RowBox[{"EE", " ", "t", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Nu]", " ", RowBox[{"(", RowBox[{ SubscriptBox["u", RowBox[{"\[Phi]", ",", "\[Phi]"}]], "+", SubscriptBox["u", "r"]}], ")"}]}], "+", RowBox[{"r", " ", SubscriptBox["u", RowBox[{"r", ",", "r"}]]}]}], ")"}]}], RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["\[Nu]", "2"], "-", "1"}], ")"}], " ", "r"}]]}], TraditionalForm], TraditionalForm, Editable->True]}], SequenceForm[ TraditionalForm[ Subscript[N, $CellContext`rr]], "=", TraditionalForm[((((-$CellContext`EE)/$CellContext`r) $CellContext`t)/(-1 + \ $CellContext`\[Nu]^2)) ($CellContext`r Subscript[$CellContext`u, $CellContext`r, $CellContext`r] + \ $CellContext`\[Nu] (Subscript[$CellContext`u, $CellContext`r] + Subscript[$CellContext`u, $CellContext`\[Phi], $CellContext`\[Phi]]))]], Editable->False]], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.762069698209762*^9, 3.76207394959308*^9}, CellLabel-> "During evaluation of \ In[37]:=",ExpressionUUID->"599e4317-d499-4af6-89fe-c0d93805da3d"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ SubscriptBox["N", "r\[Phi]"], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", TagBox[ FormBox[ FractionBox[ RowBox[{"EE", " ", "t", " ", RowBox[{"(", RowBox[{ SubscriptBox["u", RowBox[{"r", ",", "\[Phi]"}]], "+", RowBox[{"r", " ", SubscriptBox["u", RowBox[{"\[Phi]", ",", "r"}]]}], "-", SubscriptBox["u", "\[Phi]"]}], ")"}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"\[Nu]", "+", "1"}], ")"}], " ", "r"}]], TraditionalForm], TraditionalForm, Editable->True]}], SequenceForm[ TraditionalForm[ Subscript[N, $CellContext`r\[Phi]]], "=", TraditionalForm[(((( Rational[1, 2] $CellContext`EE)/$CellContext`r) $CellContext`t)/( 1 + $CellContext`\[Nu])) (- Subscript[$CellContext`u, $CellContext`\[Phi]] + Subscript[$CellContext`u, $CellContext`r, $CellContext`\[Phi]] + \ $CellContext`r Subscript[$CellContext`u, $CellContext`\[Phi], $CellContext`r])]], Editable->False]], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.762069698209762*^9, 3.7620739496243243`*^9}, CellLabel-> "During evaluation of \ In[37]:=",ExpressionUUID->"8430fc65-0a5b-441a-8453-51c92ec8493f"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ SubscriptBox["Q", "r"], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", TagBox[ FormBox[ FractionBox[ RowBox[{"EE", " ", "t", " ", RowBox[{"(", RowBox[{ SubscriptBox["u", RowBox[{"n", ",", "r"}]], "+", SubscriptBox["\[Theta]", "\[Phi]"]}], ")"}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"\[Nu]", "+", "1"}], ")"}]}]], TraditionalForm], TraditionalForm, Editable->True]}], SequenceForm[ TraditionalForm[ Subscript[$CellContext`Q, $CellContext`r]], "=", TraditionalForm[(((Rational[1, 2] $CellContext`EE) $CellContext`t)/( 1 + $CellContext`\[Nu])) ( Subscript[$CellContext`\[Theta], $CellContext`\[Phi]] + Subscript[$CellContext`u, $CellContext`n, $CellContext`r])]], Editable->False]], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.762069698209762*^9, 3.762073949655566*^9}, CellLabel-> "During evaluation of \ In[37]:=",ExpressionUUID->"1cb3abfd-4857-4d23-a4c9-813ca5c5ebc1"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ SubscriptBox["N", "\[Phi]r"], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", TagBox[ FormBox[ FractionBox[ RowBox[{"EE", " ", "t", " ", RowBox[{"(", RowBox[{ SubscriptBox["u", RowBox[{"r", ",", "\[Phi]"}]], "+", RowBox[{"r", " ", SubscriptBox["u", RowBox[{"\[Phi]", ",", "r"}]]}], "-", SubscriptBox["u", "\[Phi]"]}], ")"}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"\[Nu]", "+", "1"}], ")"}], " ", "r"}]], TraditionalForm], TraditionalForm, Editable->True]}], SequenceForm[ TraditionalForm[ Subscript[N, $CellContext`\[Phi]r]], "=", TraditionalForm[(((( Rational[1, 2] $CellContext`EE)/$CellContext`r) $CellContext`t)/( 1 + $CellContext`\[Nu])) (- Subscript[$CellContext`u, $CellContext`\[Phi]] + Subscript[$CellContext`u, $CellContext`r, $CellContext`\[Phi]] + \ $CellContext`r Subscript[$CellContext`u, $CellContext`\[Phi], $CellContext`r])]], Editable->False]], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.762069698209762*^9, 3.762073949655566*^9}, CellLabel-> "During evaluation of \ In[37]:=",ExpressionUUID->"536d9574-c70b-4469-ba5e-0f1631d41846"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ SubscriptBox["N", "\[Phi]\[Phi]"], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", TagBox[ FormBox[ RowBox[{"-", FractionBox[ RowBox[{"EE", " ", "t", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Nu]", " ", "r", " ", SubscriptBox["u", RowBox[{"r", ",", "r"}]]}], "+", SubscriptBox["u", RowBox[{"\[Phi]", ",", "\[Phi]"}]], "+", SubscriptBox["u", "r"]}], ")"}]}], RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["\[Nu]", "2"], "-", "1"}], ")"}], " ", "r"}]]}], TraditionalForm], TraditionalForm, Editable->True]}], SequenceForm[ TraditionalForm[ Subscript[N, $CellContext`\[Phi]\[Phi]]], "=", TraditionalForm[((((-$CellContext`EE)/$CellContext`r) $CellContext`t)/(-1 + \ $CellContext`\[Nu]^2)) ( Subscript[$CellContext`u, $CellContext`r] + ($CellContext`r \ $CellContext`\[Nu]) Subscript[$CellContext`u, $CellContext`r, $CellContext`r] + Subscript[$CellContext`u, $CellContext`\[Phi], $CellContext`\[Phi]])]], Editable->False]], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.762069698209762*^9, 3.7620739496868086`*^9}, CellLabel-> "During evaluation of \ In[37]:=",ExpressionUUID->"7301301a-03eb-4c96-b8ed-967f84bf1035"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ SubscriptBox["Q", "\[Phi]"], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", TagBox[ FormBox[ FractionBox[ RowBox[{"EE", " ", "t", " ", RowBox[{"(", RowBox[{ SubscriptBox["u", RowBox[{"n", ",", "\[Phi]"}]], "-", RowBox[{"r", " ", SubscriptBox["\[Theta]", "r"]}]}], ")"}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"\[Nu]", "+", "1"}], ")"}], " ", "r"}]], TraditionalForm], TraditionalForm, Editable->True]}], SequenceForm[ TraditionalForm[ Subscript[$CellContext`Q, $CellContext`\[Phi]]], "=", TraditionalForm[(((( Rational[1, 2] $CellContext`EE)/$CellContext`r) $CellContext`t)/( 1 + $CellContext`\[Nu])) ((-$CellContext`r) Subscript[$CellContext`\[Theta], $CellContext`r] + Subscript[$CellContext`u, $CellContext`n, $CellContext`\[Phi]])]], Editable->False]], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.762069698209762*^9, 3.7620739496868086`*^9}, CellLabel-> "During evaluation of \ In[37]:=",ExpressionUUID->"48fa2111-8724-4a80-b140-0802e6582013"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ SubscriptBox["Q", "r"], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", TagBox[ FormBox[ FractionBox[ RowBox[{"EE", " ", "t", " ", RowBox[{"(", RowBox[{ SubscriptBox["u", RowBox[{"n", ",", "r"}]], "+", SubscriptBox["\[Theta]", "\[Phi]"]}], ")"}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"\[Nu]", "+", "1"}], ")"}]}]], TraditionalForm], TraditionalForm, Editable->True]}], SequenceForm[ TraditionalForm[ Subscript[$CellContext`Q, $CellContext`r]], "=", TraditionalForm[(((Rational[1, 2] $CellContext`EE) $CellContext`t)/( 1 + $CellContext`\[Nu])) ( Subscript[$CellContext`\[Theta], $CellContext`\[Phi]] + Subscript[$CellContext`u, $CellContext`n, $CellContext`r])]], Editable->False]], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.762069698209762*^9, 3.76207394970243*^9}, CellLabel-> "During evaluation of \ In[37]:=",ExpressionUUID->"19e01703-3374-4d83-9ff8-e0d4baaa63f3"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ SubscriptBox["Q", "\[Phi]"], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", TagBox[ FormBox[ FractionBox[ RowBox[{"EE", " ", "t", " ", RowBox[{"(", RowBox[{ SubscriptBox["u", RowBox[{"n", ",", "\[Phi]"}]], "-", RowBox[{"r", " ", SubscriptBox["\[Theta]", "r"]}]}], ")"}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"\[Nu]", "+", "1"}], ")"}], " ", "r"}]], TraditionalForm], TraditionalForm, Editable->True]}], SequenceForm[ TraditionalForm[ Subscript[$CellContext`Q, $CellContext`\[Phi]]], "=", TraditionalForm[(((( Rational[1, 2] $CellContext`EE)/$CellContext`r) $CellContext`t)/( 1 + $CellContext`\[Nu])) ((-$CellContext`r) Subscript[$CellContext`\[Theta], $CellContext`r] + Subscript[$CellContext`u, $CellContext`n, $CellContext`\[Phi]])]], Editable->False]], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.762069698209762*^9, 3.76207394970243*^9}, CellLabel-> "During evaluation of \ In[37]:=",ExpressionUUID->"8fb5cb7b-f7a3-4469-a4e4-207924d20fcc"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ SubscriptBox["Q", "n"], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", TagBox[ FormBox["0", TraditionalForm], TraditionalForm, Editable->True]}], SequenceForm[ TraditionalForm[ Subscript[$CellContext`Q, $CellContext`n]], "=", TraditionalForm[0]], Editable->False]], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.762069698209762*^9, 3.76207394970243*^9}, CellLabel-> "During evaluation of \ In[37]:=",ExpressionUUID->"39bbfa93-db55-492c-aaf5-385b53d58600"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ SubscriptBox["M", "rr"], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", TagBox[ FormBox[ RowBox[{"-", FractionBox[ RowBox[{"EE", " ", SuperscriptBox["t", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"\[Nu]", " ", SubscriptBox["\[Theta]", RowBox[{"r", ",", "\[Phi]"}]]}]}], "+", RowBox[{"r", " ", SubscriptBox["\[Theta]", RowBox[{"\[Phi]", ",", "r"}]]}], "+", RowBox[{"\[Nu]", " ", SubscriptBox["\[Theta]", "\[Phi]"]}]}], ")"}]}], RowBox[{"12", " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[Nu]", "2"], "-", "1"}], ")"}], " ", "r"}]]}], TraditionalForm], TraditionalForm, Editable->True]}], SequenceForm[ TraditionalForm[ Subscript[$CellContext`M, $CellContext`rr]], "=", TraditionalForm[(((( Rational[-1, 12] $CellContext`EE)/$CellContext`r) $CellContext`t^3)/(-1 + \ $CellContext`\[Nu]^2)) ($CellContext`\[Nu] Subscript[$CellContext`\[Theta], $CellContext`\[Phi]] - $CellContext`\ \[Nu] Subscript[$CellContext`\[Theta], $CellContext`r, $CellContext`\[Phi]] + \ $CellContext`r Subscript[$CellContext`\[Theta], $CellContext`\[Phi], $CellContext`r])]], Editable->False]], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.762069698209762*^9, 3.762073949733672*^9}, CellLabel-> "During evaluation of \ In[37]:=",ExpressionUUID->"1280c15f-d9dd-4e2c-96f5-c0d2f4b98f21"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ SubscriptBox["M", "r\[Phi]"], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", TagBox[ FormBox[ FractionBox[ RowBox[{"EE", " ", SuperscriptBox["t", "3"], " ", RowBox[{"(", RowBox[{ SubscriptBox["\[Theta]", RowBox[{"\[Phi]", ",", "\[Phi]"}]], "-", RowBox[{"r", " ", SubscriptBox["\[Theta]", RowBox[{"r", ",", "r"}]]}], "+", SubscriptBox["\[Theta]", "r"]}], ")"}]}], RowBox[{"24", " ", RowBox[{"(", RowBox[{"\[Nu]", "+", "1"}], ")"}], " ", "r"}]], TraditionalForm], TraditionalForm, Editable->True]}], SequenceForm[ TraditionalForm[ Subscript[$CellContext`M, $CellContext`r\[Phi]]], "=", TraditionalForm[(((( Rational[1, 24] $CellContext`EE)/$CellContext`r) $CellContext`t^3)/( 1 + $CellContext`\[Nu])) ( Subscript[$CellContext`\[Theta], $CellContext`r] - $CellContext`r Subscript[$CellContext`\[Theta], $CellContext`r, $CellContext`r] + Subscript[$CellContext`\[Theta], $CellContext`\[Phi], \ $CellContext`\[Phi]])]], Editable->False]], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.762069698209762*^9, 3.762073949749294*^9}, CellLabel-> "During evaluation of \ In[37]:=",ExpressionUUID->"5a635481-86eb-4daf-8c78-946cde3a8070"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ SubscriptBox["M", "rn"], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", TagBox[ FormBox["0", TraditionalForm], TraditionalForm, Editable->True]}], SequenceForm[ TraditionalForm[ Subscript[$CellContext`M, $CellContext`rn]], "=", TraditionalForm[0]], Editable->False]], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.762069698209762*^9, 3.7620739497649155`*^9}, CellLabel-> "During evaluation of \ In[37]:=",ExpressionUUID->"21841b85-6054-45cf-afd7-c5a40a2618d4"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ SubscriptBox["M", "\[Phi]r"], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", TagBox[ FormBox[ FractionBox[ RowBox[{"EE", " ", SuperscriptBox["t", "3"], " ", RowBox[{"(", RowBox[{ SubscriptBox["\[Theta]", RowBox[{"\[Phi]", ",", "\[Phi]"}]], "-", RowBox[{"r", " ", SubscriptBox["\[Theta]", RowBox[{"r", ",", "r"}]]}], "+", SubscriptBox["\[Theta]", "r"]}], ")"}]}], RowBox[{"24", " ", RowBox[{"(", RowBox[{"\[Nu]", "+", "1"}], ")"}], " ", "r"}]], TraditionalForm], TraditionalForm, Editable->True]}], SequenceForm[ TraditionalForm[ Subscript[$CellContext`M, $CellContext`\[Phi]r]], "=", TraditionalForm[(((( Rational[1, 24] $CellContext`EE)/$CellContext`r) $CellContext`t^3)/( 1 + $CellContext`\[Nu])) ( Subscript[$CellContext`\[Theta], $CellContext`r] - $CellContext`r Subscript[$CellContext`\[Theta], $CellContext`r, $CellContext`r] + Subscript[$CellContext`\[Theta], $CellContext`\[Phi], \ $CellContext`\[Phi]])]], Editable->False]], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.762069698209762*^9, 3.7620739497649155`*^9}, CellLabel-> "During evaluation of \ In[37]:=",ExpressionUUID->"da9ce2f2-9e69-405c-95dd-f5be73d43cd0"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ SubscriptBox["M", "\[Phi]\[Phi]"], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", TagBox[ FormBox[ RowBox[{"-", FractionBox[ RowBox[{"EE", " ", SuperscriptBox["t", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Nu]", " ", "r", " ", SubscriptBox["\[Theta]", RowBox[{"\[Phi]", ",", "r"}]]}], "-", SubscriptBox["\[Theta]", RowBox[{"r", ",", "\[Phi]"}]], "+", SubscriptBox["\[Theta]", "\[Phi]"]}], ")"}]}], RowBox[{"12", " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[Nu]", "2"], "-", "1"}], ")"}], " ", "r"}]]}], TraditionalForm], TraditionalForm, Editable->True]}], SequenceForm[ TraditionalForm[ Subscript[$CellContext`M, $CellContext`\[Phi]\[Phi]]], "=", TraditionalForm[(((( Rational[-1, 12] $CellContext`EE)/$CellContext`r) $CellContext`t^3)/(-1 + \ $CellContext`\[Nu]^2)) (Subscript[$CellContext`\[Theta], $CellContext`\[Phi]] - Subscript[$CellContext`\[Theta], $CellContext`r, $CellContext`\[Phi]] + \ ($CellContext`r $CellContext`\[Nu]) Subscript[$CellContext`\[Theta], $CellContext`\[Phi], $CellContext`r])]], Editable->False]], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.762069698209762*^9, 3.762073949796158*^9}, CellLabel-> "During evaluation of \ In[37]:=",ExpressionUUID->"3619e73a-00d8-4c6f-84ce-c4aa2ff9d806"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ SubscriptBox["M", "\[Phi]n"], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", TagBox[ FormBox["0", TraditionalForm], TraditionalForm, Editable->True]}], SequenceForm[ TraditionalForm[ Subscript[$CellContext`M, $CellContext`\[Phi]n]], "=", TraditionalForm[0]], Editable->False]], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.762069698209762*^9, 3.762073949796158*^9}, CellLabel-> "During evaluation of \ In[37]:=",ExpressionUUID->"f263c2b9-78bd-4c7f-a12b-74aecd47f224"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ SubscriptBox["M", "nr"], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", TagBox[ FormBox["0", TraditionalForm], TraditionalForm, Editable->True]}], SequenceForm[ TraditionalForm[ Subscript[$CellContext`M, $CellContext`nr]], "=", TraditionalForm[0]], Editable->False]], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.762069698209762*^9, 3.762073949796158*^9}, CellLabel-> "During evaluation of \ In[37]:=",ExpressionUUID->"819861c1-597e-4450-9f62-a9fb442f31c5"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ SubscriptBox["M", "n\[Phi]"], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", TagBox[ FormBox["0", TraditionalForm], TraditionalForm, Editable->True]}], SequenceForm[ TraditionalForm[ Subscript[$CellContext`M, $CellContext`n\[Phi]]], "=", TraditionalForm[0]], Editable->False]], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.762069698209762*^9, 3.762073949796158*^9}, CellLabel-> "During evaluation of \ In[37]:=",ExpressionUUID->"726d2563-8c88-442c-a63a-839aeda76a8a"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ SubscriptBox["M", "nn"], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", TagBox[ FormBox["0", TraditionalForm], TraditionalForm, Editable->True]}], SequenceForm[ TraditionalForm[ Subscript[$CellContext`M, $CellContext`nn]], "=", TraditionalForm[0]], Editable->False]], "Print", CellChangeTimes->{3.731052565608408*^9, 3.7313036595949574`*^9, 3.7620692945383887`*^9, 3.762069416197483*^9, 3.762069698209762*^9, 3.762073949796158*^9}, CellLabel-> "During evaluation of \ In[37]:=",ExpressionUUID->"46e5416f-111e-4ab8-8e45-45ea3615645c"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Shallow shell (x,y,n)", "Subsection", CellChangeTimes->{ 3.4710857577642*^9, {3.4710858112098*^9, 3.4710858239082003`*^9}, { 3.4710859049969997`*^9, 3.4710859061046*^9}, {3.4710892678536*^9, 3.4710892701*^9}, 3.4710893817648*^9, {3.4710894793115997`*^9, 3.4710895039596*^9}, {3.4710905118050003`*^9, 3.471090512741*^9}, { 3.4725252603414*^9, 3.472525264101*^9}, {3.4725253064862003`*^9, 3.4725253370934*^9}, {3.4747629998582*^9, 3.4747630055678*^9}, { 3.4752273878873997`*^9, 3.4752273904926*^9}, {3.4753663741484003`*^9, 3.4753664116352*^9}, {3.4753773567911997`*^9, 3.475377356916*^9}, 3.4753775870472*^9, {3.4754620951394*^9, 3.4754621031266003`*^9}, { 3.4779795207265997`*^9, 3.4779795250576*^9}, 3.537621939388029*^9, 3.537622934627954*^9, {3.5376230222229643`*^9, 3.537623029743394*^9}, { 3.537623460058007*^9, 3.537623470980632*^9}, {3.537624955779557*^9, 3.5376249594157653`*^9}, {3.6000028730424147`*^9, 3.6000028738224154`*^9}, {3.600051011531698*^9, 3.6000510174285083`*^9}, { 3.600051611598405*^9, 3.600051612175606*^9}, {3.601345436806925*^9, 3.6013454383201275`*^9}, {3.601345528035885*^9, 3.6013455313118906`*^9}, { 3.601345570093559*^9, 3.601345572137162*^9}, {3.601345611714432*^9, 3.6013456172368417`*^9}, 3.6016459822022843`*^9, {3.6031080083902407`*^9, 3.6031080231166663`*^9}, {3.6031775802126956`*^9, 3.603177580977097*^9}, { 3.6031844444402394`*^9, 3.603184446780244*^9}, 3.666877628076423*^9, { 3.6675445583700595`*^9, 3.6675445650984445`*^9}, {3.6675457022524858`*^9, 3.6675457103329477`*^9}, 3.6682522745870247`*^9, {3.7308621689897556`*^9, 3.7308621734120708`*^9}, {3.7618878176785536`*^9, 3.7618878193499627`*^9}, {3.7622439305886154`*^9, 3.762243932025746*^9}},ExpressionUUID->"9e933469-a032-4e3a-b048-\ da47970bfcf4"], Cell[BoxData[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{"x", ",", "y", ",", "n"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"r0", "=", RowBox[{"{", RowBox[{"x", ",", "y", ",", RowBox[{"f", "[", RowBox[{"x", ",", "y"}], "]"}]}], "}"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vars", "=", RowBox[{"{", RowBox[{"x", ",", "y", ",", "n"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cnd", "=", RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"asm", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["f", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"x", ",", "y"}], "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ SuperscriptBox["f", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"x", ",", "y"}], "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ SuperscriptBox["f", TagBox[ RowBox[{"(", RowBox[{"2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"x", ",", "y"}], "]"}], "\[Rule]", RowBox[{"-", "\[Kappa]xx"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["f", TagBox[ RowBox[{"(", RowBox[{"0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"x", ",", "y"}], "]"}], "\[Rule]", RowBox[{"-", "\[Kappa]yy"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["f", TagBox[ RowBox[{"(", RowBox[{"1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"x", ",", "y"}], "]"}], "\[Rule]", RowBox[{"-", "\[Kappa]xy"}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"SHELLKINEMATICS", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"SHELLEQUILIBRIUM", ";"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.666877671479355*^9, 3.6668776730215592`*^9}, { 3.6668847313643303`*^9, 3.6668847319907327`*^9}, {3.6675246147608366`*^9, 3.667524663479722*^9}, {3.667528409739314*^9, 3.6675284307945185`*^9}, { 3.667531399116185*^9, 3.6675314050129957`*^9}, 3.6675321567813163`*^9, { 3.667544280688177*^9, 3.6675443248827047`*^9}, 3.667544442555435*^9, { 3.6675445775451565`*^9, 3.667544621284658*^9}, {3.6675446547985744`*^9, 3.66754466187998*^9}, 3.667544763739806*^9, {3.6675453712965565`*^9, 3.6675453960919743`*^9}, 3.6682522546189895`*^9, {3.7305352191046295`*^9, 3.730535241935189*^9}, {3.73053530933267*^9, 3.730535340195615*^9}, { 3.730540978991392*^9, 3.7305409840547223`*^9}, {3.730541062364626*^9, 3.7305410823042274`*^9}, {3.730862126594574*^9, 3.7308621571447515`*^9}, { 3.761887833643201*^9, 3.7618879214510803`*^9}, {3.761887986560623*^9, 3.761888009648982*^9}, {3.7618880650425973`*^9, 3.7618881080791273`*^9}, { 3.7618918370127764`*^9, 3.7618918446828594`*^9}, {3.761891944143717*^9, 3.761891959484064*^9}, {3.761892314226612*^9, 3.7618923266297045`*^9}, { 3.761892431948844*^9, 3.7618924711741962`*^9}, {3.761901834075451*^9, 3.7619018464209576`*^9}, {3.7619044015119486`*^9, 3.761904423811055*^9}, { 3.7619056098903093`*^9, 3.7619057110760612`*^9}, {3.761905742303945*^9, 3.7619057561210475`*^9}, {3.7619059534928665`*^9, 3.761905954150169*^9}, { 3.761906146219199*^9, 3.761906191415584*^9}, {3.7619066252423215`*^9, 3.761906685624372*^9}, {3.76190683449772*^9, 3.761906860267619*^9}, { 3.761907474884962*^9, 3.7619074778983583`*^9}, {3.762243956535657*^9, 3.7622439604413013`*^9}, 3.7623133212394915`*^9}, CellLabel->"In[26]:=",ExpressionUUID->"4a002bd3-ae55-4cb7-9c4f-2ec15212434e"] }, Closed]], Cell[CellGroupData[{ Cell["Cylindrical shell (z,\[Phi],n)", "Subsection", CellChangeTimes->{ 3.4710857577642*^9, {3.4710858112098*^9, 3.4710858239082003`*^9}, { 3.4710859049969997`*^9, 3.4710859061046*^9}, {3.4710892678536*^9, 3.4710892701*^9}, 3.4710893817648*^9, {3.4710894793115997`*^9, 3.4710895039596*^9}, {3.4710905118050003`*^9, 3.471090512741*^9}, { 3.4725252603414*^9, 3.472525264101*^9}, {3.4725253064862003`*^9, 3.4725253370934*^9}, {3.4747629998582*^9, 3.4747630055678*^9}, { 3.4752273878873997`*^9, 3.4752273904926*^9}, {3.4753663741484003`*^9, 3.4753664116352*^9}, {3.4753773567911997`*^9, 3.475377356916*^9}, 3.4753775870472*^9, {3.4754620951394*^9, 3.4754621031266003`*^9}, { 3.4779795207265997`*^9, 3.4779795250576*^9}, 3.537621939388029*^9, 3.537622934627954*^9, {3.5376230222229643`*^9, 3.537623029743394*^9}, { 3.537623460058007*^9, 3.537623470980632*^9}, {3.537624955779557*^9, 3.5376249594157653`*^9}, {3.6000028730424147`*^9, 3.6000028738224154`*^9}, {3.600051011531698*^9, 3.6000510174285083`*^9}, { 3.600051611598405*^9, 3.600051612175606*^9}, {3.601345436806925*^9, 3.6013454383201275`*^9}, {3.601345528035885*^9, 3.6013455313118906`*^9}, { 3.601345570093559*^9, 3.601345572137162*^9}, {3.601345611714432*^9, 3.6013456172368417`*^9}, 3.6016459822022843`*^9, {3.6031080083902407`*^9, 3.6031080231166663`*^9}, {3.6031775802126956`*^9, 3.603177580977097*^9}, { 3.6031844444402394`*^9, 3.603184446780244*^9}, 3.666877628076423*^9, { 3.6675445583700595`*^9, 3.6675445650984445`*^9}, {3.6675457022524858`*^9, 3.6675457103329477`*^9}, 3.6682522745870247`*^9, {3.7308621689897556`*^9, 3.7308621734120708`*^9}},ExpressionUUID->"587f0704-1f44-4dbe-bcea-\ 1f647a3dc594"], Cell[BoxData[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{"z", ",", "\[Phi]", ",", "n"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"r0", "=", RowBox[{"{", RowBox[{ RowBox[{"R", "*", RowBox[{"Cos", "[", "\[Phi]", "]"}]}], ",", RowBox[{"R", "*", RowBox[{"Sin", "[", "\[Phi]", "]"}]}], ",", "z"}], "}"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vars", "=", RowBox[{"{", RowBox[{"z", ",", "\[Phi]", ",", "n"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cnd", "=", RowBox[{ RowBox[{"R", ">", "0"}], "&&", RowBox[{ RowBox[{"R", "-", "n"}], ">", "0"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"asm", "=", RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"SHELLKINEMATICS", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"SHELLEQUILIBRIUM", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SHELLCONSTITUTIVE", "[", "2", "]"}], ";"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.666877671479355*^9, 3.6668776730215592`*^9}, { 3.6668847313643303`*^9, 3.6668847319907327`*^9}, {3.6675246147608366`*^9, 3.667524663479722*^9}, {3.667528409739314*^9, 3.6675284307945185`*^9}, { 3.667531399116185*^9, 3.6675314050129957`*^9}, 3.6675321567813163`*^9, { 3.667544280688177*^9, 3.6675443248827047`*^9}, 3.667544442555435*^9, { 3.6675445775451565`*^9, 3.667544621284658*^9}, {3.6675446547985744`*^9, 3.66754466187998*^9}, 3.667544763739806*^9, {3.6675453712965565`*^9, 3.6675453960919743`*^9}, 3.6682522546189895`*^9, {3.7305352191046295`*^9, 3.730535241935189*^9}, {3.73053530933267*^9, 3.730535340195615*^9}, { 3.730540978991392*^9, 3.7305409840547223`*^9}, {3.730541062364626*^9, 3.7305410823042274`*^9}, {3.730862126594574*^9, 3.7308621571447515`*^9}, { 3.762006655604801*^9, 3.7620066649058723`*^9}, {3.762675477923007*^9, 3.762675543844762*^9}, 3.7942768151156416`*^9}, CellLabel->"In[21]:=",ExpressionUUID->"897504cf-f8b4-4d9c-a3e0-7d7327b5ace5"] }, Closed]], Cell[CellGroupData[{ Cell["Cylindrical shell (s,z,n)", "Subsection", CellChangeTimes->{ 3.4710857577642*^9, {3.4710858112098*^9, 3.4710858239082003`*^9}, { 3.4710859049969997`*^9, 3.4710859061046*^9}, {3.4710892678536*^9, 3.4710892701*^9}, 3.4710893817648*^9, {3.4710894793115997`*^9, 3.4710895039596*^9}, {3.4710905118050003`*^9, 3.471090512741*^9}, { 3.4725252603414*^9, 3.472525264101*^9}, {3.4725253064862003`*^9, 3.4725253370934*^9}, {3.4747629998582*^9, 3.4747630055678*^9}, { 3.4752273878873997`*^9, 3.4752273904926*^9}, {3.4753663741484003`*^9, 3.4753664116352*^9}, {3.4753773567911997`*^9, 3.475377356916*^9}, 3.4753775870472*^9, {3.4754620951394*^9, 3.4754621031266003`*^9}, { 3.4779795207265997`*^9, 3.4779795250576*^9}, 3.537621939388029*^9, 3.537622934627954*^9, {3.5376230222229643`*^9, 3.537623029743394*^9}, { 3.537623460058007*^9, 3.537623470980632*^9}, {3.537624955779557*^9, 3.5376249594157653`*^9}, {3.6000028730424147`*^9, 3.6000028738224154`*^9}, {3.600051011531698*^9, 3.6000510174285083`*^9}, { 3.600051611598405*^9, 3.600051612175606*^9}, {3.601345436806925*^9, 3.6013454383201275`*^9}, {3.601345528035885*^9, 3.6013455313118906`*^9}, { 3.601345570093559*^9, 3.601345572137162*^9}, {3.601345611714432*^9, 3.6013456172368417`*^9}, 3.6016459822022843`*^9, {3.6031080083902407`*^9, 3.6031080231166663`*^9}, {3.6031775802126956`*^9, 3.603177580977097*^9}, { 3.6031844444402394`*^9, 3.603184446780244*^9}, 3.666877628076423*^9, { 3.6675445583700595`*^9, 3.6675445650984445`*^9}, {3.6675457022524858`*^9, 3.6675457103329477`*^9}, 3.6682522745870247`*^9, {3.7308621033421755`*^9, 3.7308621095459256`*^9}},ExpressionUUID->"8a2b7322-99f3-4ba0-9b69-\ 29899873c42d"], Cell[BoxData[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{"s", ",", "z", ",", "n"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"r0", "=", RowBox[{"{", RowBox[{ RowBox[{"R", "*", RowBox[{"Cos", "[", RowBox[{"s", "/", "R"}], "]"}]}], ",", RowBox[{"R", "*", RowBox[{"Sin", "[", RowBox[{"s", "/", "R"}], "]"}]}], ",", "z"}], "}"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vars", "=", RowBox[{"{", RowBox[{"s", ",", "z", ",", "n"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cnd", "=", RowBox[{ RowBox[{"R", ">", "0"}], "&&", RowBox[{ RowBox[{"R", "-", "n"}], ">", "0"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"asm", "=", RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"SHELLKINEMATICS", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"SHELLEQUILIBRIUM", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SHELLCONSTITUTIVE", "[", "1", "]"}], ";"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.666877671479355*^9, 3.6668776730215592`*^9}, { 3.6668847313643303`*^9, 3.6668847319907327`*^9}, {3.6675246147608366`*^9, 3.667524663479722*^9}, {3.667528409739314*^9, 3.6675284307945185`*^9}, { 3.667531399116185*^9, 3.6675314050129957`*^9}, 3.6675321567813163`*^9, { 3.667544280688177*^9, 3.6675443248827047`*^9}, 3.667544442555435*^9, { 3.6675445775451565`*^9, 3.667544621284658*^9}, {3.6675446547985744`*^9, 3.66754466187998*^9}, 3.667544763739806*^9, {3.6675453712965565`*^9, 3.6675453960919743`*^9}, 3.6682522546189895`*^9, {3.7305352191046295`*^9, 3.730535241935189*^9}, {3.73053530933267*^9, 3.730535340195615*^9}, { 3.730540978991392*^9, 3.7305409840547223`*^9}, {3.730541062364626*^9, 3.7305410823042274`*^9}, {3.762315359938407*^9, 3.762315360484866*^9}},ExpressionUUID->"f8a34253-1297-4060-ba97-\ 874b6d90a788"] }, Closed]], Cell[CellGroupData[{ Cell["Spherical shell", "Subsection", CellChangeTimes->{ 3.4710857577642*^9, {3.4710858112098*^9, 3.4710858239082003`*^9}, { 3.4710859049969997`*^9, 3.4710859061046*^9}, {3.4710892678536*^9, 3.4710892701*^9}, 3.4710893817648*^9, {3.4710894793115997`*^9, 3.4710895039596*^9}, {3.4710905118050003`*^9, 3.471090512741*^9}, { 3.4725252603414*^9, 3.472525264101*^9}, {3.4725253064862003`*^9, 3.4725253370934*^9}, {3.4747629998582*^9, 3.4747630055678*^9}, { 3.4752273878873997`*^9, 3.4752273904926*^9}, {3.4753663741484003`*^9, 3.4753664116352*^9}, {3.4753773567911997`*^9, 3.475377356916*^9}, 3.4753775870472*^9, {3.4754620951394*^9, 3.4754621031266003`*^9}, { 3.4779795207265997`*^9, 3.4779795250576*^9}, 3.537621939388029*^9, 3.537622934627954*^9, {3.5376230222229643`*^9, 3.537623029743394*^9}, { 3.537623460058007*^9, 3.537623470980632*^9}, {3.537624955779557*^9, 3.5376249594157653`*^9}, {3.6000028730424147`*^9, 3.6000028738224154`*^9}, {3.600051011531698*^9, 3.6000510174285083`*^9}, { 3.600051611598405*^9, 3.600051612175606*^9}, {3.601345436806925*^9, 3.6013454383201275`*^9}, {3.601345528035885*^9, 3.6013455313118906`*^9}, { 3.601345570093559*^9, 3.601345572137162*^9}, {3.601345611714432*^9, 3.6013456172368417`*^9}, 3.6016459822022843`*^9, {3.6031080083902407`*^9, 3.6031080231166663`*^9}, {3.6031775802126956`*^9, 3.603177580977097*^9}, { 3.6031844444402394`*^9, 3.603184446780244*^9}, 3.666877628076423*^9, { 3.6675445583700595`*^9, 3.6675445650984445`*^9}, {3.6675457022524858`*^9, 3.6675457103329477`*^9}, {3.6682522662410097`*^9, 3.6682522774886293`*^9}, 3.66825249395461*^9},ExpressionUUID->"a541e0eb-9c38-4d64-a94f-\ 0362d2c27f0a"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", "sphere", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "R", ",", "n"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"r0", "=", RowBox[{"R", "*", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Sin", "[", "\[Theta]", "]"}], "*", RowBox[{"Cos", "[", "\[Phi]", "]"}]}], ",", RowBox[{ RowBox[{"Sin", "[", "\[Theta]", "]"}], "*", RowBox[{"Sin", "[", "\[Phi]", "]"}]}], ",", RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "}"}]}]}], ";"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"vars", "=", RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "n"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cnd", ":=", RowBox[{ RowBox[{"0", "\[LessEqual]", "\[Theta]", "<", "Pi"}], "&&", RowBox[{"R", ">", "0"}], "&&", RowBox[{ RowBox[{"R", "-", "n"}], ">", "0"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"asm", "=", RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"SHELLKINEMATICS", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"SHELLEQUILIBRIUM", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SHELLCONSTITUTIVE", "[", "2", "]"}], ";"}]}]}]], "Input", CellChangeTimes->{{3.666877671479355*^9, 3.6668776730215592`*^9}, { 3.6668847313643303`*^9, 3.6668847319907327`*^9}, {3.6675246147608366`*^9, 3.667524663479722*^9}, {3.667528409739314*^9, 3.6675284307945185`*^9}, { 3.667531399116185*^9, 3.6675314050129957`*^9}, 3.6675321567813163`*^9, { 3.667544280688177*^9, 3.6675443248827047`*^9}, 3.667544442555435*^9, { 3.6675445775451565`*^9, 3.667544621284658*^9}, {3.6675446547985744`*^9, 3.66754466187998*^9}, 3.667544763739806*^9, {3.6675453712965565`*^9, 3.6675453960919743`*^9}, {3.66825230639548*^9, 3.6682523424783435`*^9}, 3.668252379044808*^9, {3.6682532172593203`*^9, 3.6682532239744234`*^9}, { 3.6682533471288147`*^9, 3.6682533543764257`*^9}, {3.6682533886369524`*^9, 3.668253388739454*^9}, {3.7623153687710876`*^9, 3.762315369281272*^9}, { 3.794055729163209*^9, 3.7940557452421403`*^9}, 3.7940558399167523`*^9}, CellLabel->"In[88]:=",ExpressionUUID->"4f3186bd-e5d9-4d24-b0fa-ca76f4f50360"], Cell[CellGroupData[{ Cell[BoxData["\<\"KINEMATICS:\"\>"], "Print", CellChangeTimes->{ 3.793856146015414*^9, {3.794055779538799*^9, 3.794055803314951*^9}, 3.794055841103549*^9}, CellLabel-> "During evaluation of \ In[88]:=",ExpressionUUID->"da865c20-c596-4268-a607-be024329249a"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"vars =\"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "n"}], "}"}]}], SequenceForm[ "vars =", {$CellContext`\[Phi], $CellContext`\[Theta], $CellContext`n}], Editable->False]], "Print", CellChangeTimes->{ 3.793856146015414*^9, {3.794055779538799*^9, 3.794055803314951*^9}, 3.794055841108535*^9}, CellLabel-> "During evaluation of \ In[88]:=",ExpressionUUID->"57d0d892-1927-4cb2-b7d2-37257bb27957"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"e =\"\>", "\[InvisibleSpace]", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { SubscriptBox["e", "\[Phi]"]}, { SubscriptBox["e", "\[Theta]"]}, { SubscriptBox["e", "n"]} }, 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["e =", MatrixForm[{ Subscript[$CellContext`e, $CellContext`\[Phi]], Subscript[$CellContext`e, $CellContext`\[Theta]], Subscript[$CellContext`e, $CellContext`n]}]], Editable->False]], "Print", CellChangeTimes->{ 3.793856146015414*^9, {3.794055779538799*^9, 3.794055803314951*^9}, 3.7940558411115274`*^9}, CellLabel-> "During evaluation of \ In[88]:=",ExpressionUUID->"0c2689d1-f447-468e-a874-fe62e64e074c"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(r\\), \\(0\\)]\\) =\"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{"-", "R"}], " ", SubscriptBox["e", "n"]}]}], SequenceForm[ "\!\(\*SubscriptBox[\(r\), \(0\)]\) =", -$CellContext`R Subscript[$CellContext`e, $CellContext`n]], Editable->False]], "Print", CellChangeTimes->{ 3.793856146015414*^9, {3.794055779538799*^9, 3.794055803314951*^9}, 3.7940558411155186`*^9}, CellLabel-> "During evaluation of \ In[88]:=",ExpressionUUID->"3e88fe10-ceba-4d77-9d18-8ae58a16d506"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(\[PartialD]\\), \\(\[Alpha]\\)]\\)e =\ \"\>", "\[InvisibleSpace]", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{ RowBox[{ RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", SubscriptBox["e", "n"]}], "-", RowBox[{ RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", SubscriptBox["e", "\[Theta]"]}]}]}, { RowBox[{ RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", SubscriptBox["e", "\[Phi]"]}]}, { RowBox[{ RowBox[{"-", RowBox[{"Sin", "[", "\[Theta]", "]"}]}], " ", SubscriptBox["e", "\[Phi]"]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"\\!\\(\\*SubscriptBox[\\(\[PartialD]\\), \\(\ \[Beta]\\)]\\)e =\"\>", "\[InvisibleSpace]", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0"}, { SubscriptBox["e", "n"]}, { RowBox[{"-", SubscriptBox["e", "\[Theta]"]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"\\!\\(\\*SubscriptBox[\\(\[PartialD]\\), \ \\(n\\)]\\)e =\"\>", "\[InvisibleSpace]", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0"}, {"0"}, {"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$]]]}], SequenceForm["\!\(\*SubscriptBox[\(\[PartialD]\), \(\[Alpha]\)]\)e =", MatrixForm[{ Sin[$CellContext`\[Theta]] Subscript[$CellContext`e, $CellContext`n] - Cos[$CellContext`\[Theta]] Subscript[$CellContext`e, $CellContext`\[Theta]], Cos[$CellContext`\[Theta]] Subscript[$CellContext`e, $CellContext`\[Phi]], - Sin[$CellContext`\[Theta]] Subscript[$CellContext`e, $CellContext`\[Phi]]}], " ", "\!\(\*SubscriptBox[\(\[PartialD]\), \(\[Beta]\)]\)e =", MatrixForm[{0, Subscript[$CellContext`e, $CellContext`n], - Subscript[$CellContext`e, $CellContext`\[Theta]]}], " ", "\!\(\*SubscriptBox[\(\[PartialD]\), \(n\)]\)e =", MatrixForm[{0, 0, 0}]], Editable->False]], "Print", CellChangeTimes->{ 3.793856146015414*^9, {3.794055779538799*^9, 3.794055803314951*^9}, 3.794055841119506*^9}, CellLabel-> "During evaluation of \ In[88]:=",ExpressionUUID->"db6a5b63-c8d6-412f-9015-ab2b4a9894a7"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\[Del] =\"\>", "\[InvisibleSpace]", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { FractionBox[ RowBox[{"Csc", "[", "\[Theta]", "]"}], "R"], "0", "0"}, {"0", FractionBox["1", "R"], "0"}, {"0", "0", "1"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"\[Del] =\"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{ SubscriptBox["\<\"\[PartialD]\"\>", "n"], " ", SubscriptBox["e", "n"]}], "+", FractionBox[ RowBox[{ SubscriptBox["\<\"\[PartialD]\"\>", "\[Theta]"], " ", SubscriptBox["e", "\[Theta]"]}], "R"], "+", FractionBox[ RowBox[{ RowBox[{"Csc", "[", "\[Theta]", "]"}], " ", SubscriptBox["\<\"\[PartialD]\"\>", "\[Phi]"], " ", SubscriptBox["e", "\[Phi]"]}], "R"]}]}], SequenceForm["\[Del] =", MatrixForm[{{$CellContext`R^(-1) Csc[$CellContext`\[Theta]], 0, 0}, { 0, $CellContext`R^(-1), 0}, {0, 0, 1}}], " ", "\[Del] =", Subscript["\[PartialD]", $CellContext`n] Subscript[$CellContext`e, $CellContext`n] + $CellContext`R^(-1) Subscript["\[PartialD]", $CellContext`\[Theta]] Subscript[$CellContext`e, $CellContext`\[Theta]] + $CellContext`R^(-1) Csc[$CellContext`\[Theta]] Subscript["\[PartialD]", $CellContext`\[Phi]] Subscript[$CellContext`e, $CellContext`\[Phi]]], Editable->False]], "Print", CellChangeTimes->{ 3.793856146015414*^9, {3.794055779538799*^9, 3.794055803314951*^9}, 3.7940558411285048`*^9}, CellLabel-> "During evaluation of \ In[88]:=",ExpressionUUID->"2df961bd-8392-4918-8d62-446597b75abe"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\[Kappa] =\"\>", "\[InvisibleSpace]", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", FractionBox["1", "R"]}], "0"}, {"0", RowBox[{"-", FractionBox["1", "R"]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"\[Kappa] =\"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ SubscriptBox["e", "\[Theta]"], "\[CircleTimes]", SubscriptBox["e", "\[Theta]"]}], "R"]}], "-", FractionBox[ RowBox[{ SubscriptBox["e", "\[Phi]"], "\[CircleTimes]", SubscriptBox["e", "\[Phi]"]}], "R"]}]}], SequenceForm["\[Kappa] =", MatrixForm[{{(-1)/$CellContext`R, 0}, {0, (-1)/$CellContext`R}}], " ", "\[Kappa] =", -$CellContext`R^(-1) CircleTimes[ Subscript[$CellContext`e, $CellContext`\[Theta]], Subscript[$CellContext`e, $CellContext`\[Theta]]] - $CellContext`R^(-1) CircleTimes[ Subscript[$CellContext`e, $CellContext`\[Phi]], Subscript[$CellContext`e, $CellContext`\[Phi]]]], Editable->False]], "Print", CellChangeTimes->{ 3.793856146015414*^9, {3.794055779538799*^9, 3.794055803314951*^9}, 3.794055841134494*^9}, CellLabel-> "During evaluation of \ In[88]:=",ExpressionUUID->"5f106f01-85e2-40d7-9c6c-b966f6ae68b3"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"D =\"\>", "\[InvisibleSpace]", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", FractionBox["R", RowBox[{"n", "-", "R"}]]}], "0", "0"}, {"0", FractionBox["R", RowBox[{ RowBox[{"-", "n"}], "+", "R"}]], "0"}, {"0", "0", "1"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], SequenceForm["D =", MatrixForm[{{-($CellContext`n - $CellContext`R)^(-1) $CellContext`R, 0, 0}, {0, $CellContext`R/(-$CellContext`n + $CellContext`R), 0}, {0, 0, 1}}]], Editable->False]], "Print", CellChangeTimes->{ 3.793856146015414*^9, {3.794055779538799*^9, 3.794055803314951*^9}, 3.794055841139453*^9}, CellLabel-> "During evaluation of \ In[88]:=",ExpressionUUID->"8ba6b5cc-1ffb-4b99-8dfd-5e402d9752a6"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"J =\"\>", "\[InvisibleSpace]", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"n", "-", "R"}], ")"}], "2"], SuperscriptBox["R", "2"]], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"\\!\\(\\*SubscriptBox[\\(J\\), \ \\(\[Alpha]\\)]\\) =\"\>", "\[InvisibleSpace]", RowBox[{"1", "-", FractionBox["n", "R"]}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"\\!\\(\\*SubscriptBox[\\(J\\), \\(\[Beta]\\)]\\) \ =\"\>", "\[InvisibleSpace]", RowBox[{"1", "-", FractionBox["n", "R"]}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"\\!\\(\\*SubscriptBox[\\(J\\), \\(n\\)]\\) \ =\"\>", "\[InvisibleSpace]", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"n", "-", "R"}], ")"}], "2"], SuperscriptBox["R", "2"]]}], SequenceForm[ "J =", ($CellContext`n - $CellContext`R)^2 $CellContext`R^(-2), " ", "\!\(\*SubscriptBox[\(J\), \(\[Alpha]\)]\) =", 1 - $CellContext`n/$CellContext`R, " ", "\!\(\*SubscriptBox[\(J\), \(\[Beta]\)]\) =", 1 - $CellContext`n/$CellContext`R, " ", "\!\(\*SubscriptBox[\(J\), \(n\)]\) =", ($CellContext`n - \ $CellContext`R)^2 $CellContext`R^(-2)], Editable->False]], "Print", CellChangeTimes->{ 3.793856146015414*^9, {3.794055779538799*^9, 3.794055803314951*^9}, 3.7940558411444397`*^9}, CellLabel-> "During evaluation of \ In[88]:=",ExpressionUUID->"bb389164-5d36-47aa-bafd-bd48594ea5fc"], Cell[BoxData[ InterpretationBox[ RowBox[{ SubscriptBox["\<\"\[CapitalGamma]\"\>", RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Phi]", ",", "\[Theta]"}], "}"}]], "\[InvisibleSpace]", "\<\" = \"\>", "\[InvisibleSpace]", RowBox[{"-", FractionBox[ RowBox[{"Cot", "[", "\[Theta]", "]"}], "R"]}]}], SequenceForm[ Subscript[ "\[CapitalGamma]", {$CellContext`\[Phi], $CellContext`\[Phi], \ $CellContext`\[Theta]}], " = ", -$CellContext`R^(-1) Cot[$CellContext`\[Theta]]], Editable->False]], "Print", CellChangeTimes->{ 3.793856146015414*^9, {3.794055779538799*^9, 3.794055803314951*^9}, 3.7940558411534157`*^9}, CellLabel-> "During evaluation of \ In[88]:=",ExpressionUUID->"bb77ae21-6d4c-4257-9af4-c272e8ba9726"], Cell[BoxData[ InterpretationBox[ RowBox[{ SubscriptBox["\<\"\[CapitalGamma]\"\>", RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Phi]", ",", "n"}], "}"}]], "\[InvisibleSpace]", "\<\" = \"\>", "\[InvisibleSpace]", FractionBox["1", "R"]}], SequenceForm[ Subscript[ "\[CapitalGamma]", {$CellContext`\[Phi], $CellContext`\[Phi], \ $CellContext`n}], " = ", $CellContext`R^(-1)], Editable->False]], "Print", CellChangeTimes->{ 3.793856146015414*^9, {3.794055779538799*^9, 3.794055803314951*^9}, 3.7940558411554375`*^9}, CellLabel-> "During evaluation of \ In[88]:=",ExpressionUUID->"58df013a-d921-46bd-8104-af6405c94361"], Cell[BoxData[ InterpretationBox[ RowBox[{ SubscriptBox["\<\"\[CapitalGamma]\"\>", RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Phi]"}], "}"}]], "\[InvisibleSpace]", "\<\" = \"\>", "\[InvisibleSpace]", FractionBox[ RowBox[{"Cot", "[", "\[Theta]", "]"}], "R"]}], SequenceForm[ Subscript[ "\[CapitalGamma]", {$CellContext`\[Phi], $CellContext`\[Theta], \ $CellContext`\[Phi]}], " = ", $CellContext`R^(-1) Cot[$CellContext`\[Theta]]], Editable->False]], "Print", CellChangeTimes->{ 3.793856146015414*^9, {3.794055779538799*^9, 3.794055803314951*^9}, 3.794055841157405*^9}, CellLabel-> "During evaluation of \ In[88]:=",ExpressionUUID->"18823e17-4223-4309-bf7b-090af2bd3f00"], Cell[BoxData[ InterpretationBox[ RowBox[{ SubscriptBox["\<\"\[CapitalGamma]\"\>", RowBox[{"{", RowBox[{"\[Phi]", ",", "n", ",", "\[Phi]"}], "}"}]], "\[InvisibleSpace]", "\<\" = \"\>", "\[InvisibleSpace]", RowBox[{"-", FractionBox["1", "R"]}]}], SequenceForm[ Subscript[ "\[CapitalGamma]", {$CellContext`\[Phi], $CellContext`n, $CellContext`\ \[Phi]}], " = ", (-1)/$CellContext`R], Editable->False]], "Print", CellChangeTimes->{ 3.793856146015414*^9, {3.794055779538799*^9, 3.794055803314951*^9}, 3.7940558411603966`*^9}, CellLabel-> "During evaluation of \ In[88]:=",ExpressionUUID->"59e3e5ff-2d0f-4b36-ba19-6086788a2278"], Cell[BoxData[ InterpretationBox[ RowBox[{ SubscriptBox["\<\"\[CapitalGamma]\"\>", RowBox[{"{", RowBox[{"\[Theta]", ",", "\[Theta]", ",", "n"}], "}"}]], "\[InvisibleSpace]", "\<\" = \"\>", "\[InvisibleSpace]", FractionBox["1", "R"]}], SequenceForm[ Subscript[ "\[CapitalGamma]", {$CellContext`\[Theta], $CellContext`\[Theta], \ $CellContext`n}], " = ", $CellContext`R^(-1)], Editable->False]], "Print", CellChangeTimes->{ 3.793856146015414*^9, {3.794055779538799*^9, 3.794055803314951*^9}, 3.794055841162391*^9}, CellLabel-> "During evaluation of \ In[88]:=",ExpressionUUID->"03aa9430-879e-4088-acd8-d11ce834085d"], Cell[BoxData[ InterpretationBox[ RowBox[{ SubscriptBox["\<\"\[CapitalGamma]\"\>", RowBox[{"{", RowBox[{"\[Theta]", ",", "n", ",", "\[Theta]"}], "}"}]], "\[InvisibleSpace]", "\<\" = \"\>", "\[InvisibleSpace]", RowBox[{"-", FractionBox["1", "R"]}]}], SequenceForm[ Subscript[ "\[CapitalGamma]", {$CellContext`\[Theta], $CellContext`n, $CellContext`\ \[Theta]}], " = ", (-1)/$CellContext`R], Editable->False]], "Print", CellChangeTimes->{ 3.793856146015414*^9, {3.794055779538799*^9, 3.794055803314951*^9}, 3.7940558411653833`*^9}, CellLabel-> "During evaluation of \ In[88]:=",ExpressionUUID->"bac53dd9-0c5d-4df3-80c8-6f31c62bb220"], Cell[BoxData["\<\"EQUILIBRIUM:\"\>"], "Print", CellChangeTimes->{ 3.793856146015414*^9, {3.794055779538799*^9, 3.794055803314951*^9}, 3.794055841167378*^9}, CellLabel-> "During evaluation of \ In[88]:=",ExpressionUUID->"8c71a8fa-82af-4df4-a389-dbe95faf2c83"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ FractionBox[ RowBox[{ SubscriptBox["N", RowBox[{"\[Theta]\[Phi]", ",", "\[Theta]"}]], "+", RowBox[{ RowBox[{"csc", "(", "\[Theta]", ")"}], " ", SubscriptBox["N", RowBox[{"\[Phi]\[Phi]", ",", "\[Phi]"}]]}], "+", RowBox[{"R", " ", SubscriptBox["b", "\[Phi]"]}], "+", RowBox[{ RowBox[{"cot", "(", "\[Theta]", ")"}], " ", SubscriptBox["N", "\[Theta]\[Phi]"]}], "+", RowBox[{ RowBox[{"cot", "(", "\[Theta]", ")"}], " ", SubscriptBox["N", "\[Phi]\[Theta]"]}], "-", SubscriptBox["Q", "\[Phi]"]}], "R"], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\" = 0\"\>"}], SequenceForm[ TraditionalForm[$CellContext`R^(-1) ($CellContext`R Subscript[$CellContext`b, $CellContext`\[Phi]] + Cot[$CellContext`\[Theta]] Subscript[N, $CellContext`\[Theta]\[Phi]] + Cot[$CellContext`\[Theta]] Subscript[N, $CellContext`\[Phi]\[Theta]] - Subscript[$CellContext`Q, $CellContext`\[Phi]] + Subscript[N, $CellContext`\[Theta]\[Phi], $CellContext`\[Theta]] + Csc[$CellContext`\[Theta]] Subscript[N, $CellContext`\[Phi]\[Phi], $CellContext`\[Phi]])], " = 0"], Editable->False]], "Print", CellChangeTimes->{ 3.793856146015414*^9, {3.794055779538799*^9, 3.794055803314951*^9}, 3.794055841173371*^9}, CellLabel-> "During evaluation of \ In[88]:=",ExpressionUUID->"ea404d2d-81e0-450a-b306-c21fc059b453"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ FractionBox[ RowBox[{ SubscriptBox["N", RowBox[{"\[Theta]\[Theta]", ",", "\[Theta]"}]], "+", RowBox[{ RowBox[{"csc", "(", "\[Theta]", ")"}], " ", SubscriptBox["N", RowBox[{"\[Phi]\[Theta]", ",", "\[Phi]"}]]}], "+", RowBox[{"R", " ", SubscriptBox["b", "\[Theta]"]}], "+", RowBox[{ RowBox[{"cot", "(", "\[Theta]", ")"}], " ", SubscriptBox["N", "\[Theta]\[Theta]"]}], "-", RowBox[{ RowBox[{"cot", "(", "\[Theta]", ")"}], " ", SubscriptBox["N", "\[Phi]\[Phi]"]}], "-", SubscriptBox["Q", "\[Theta]"]}], "R"], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\" = 0\"\>"}], SequenceForm[ TraditionalForm[$CellContext`R^(-1) ($CellContext`R Subscript[$CellContext`b, $CellContext`\[Theta]] + Cot[$CellContext`\[Theta]] Subscript[N, $CellContext`\[Theta]\[Theta]] - Cot[$CellContext`\[Theta]] Subscript[N, $CellContext`\[Phi]\[Phi]] - Subscript[$CellContext`Q, $CellContext`\[Theta]] + Subscript[N, $CellContext`\[Theta]\[Theta], $CellContext`\[Theta]] + Csc[$CellContext`\[Theta]] Subscript[N, $CellContext`\[Phi]\[Theta], $CellContext`\[Phi]])], " = 0"], Editable->False]], "Print", CellChangeTimes->{ 3.793856146015414*^9, {3.794055779538799*^9, 3.794055803314951*^9}, 3.794055841194306*^9}, CellLabel-> "During evaluation of \ In[88]:=",ExpressionUUID->"18bf6f90-c956-4eed-839b-3b7aa280a4a4"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ FractionBox[ RowBox[{ RowBox[{ RowBox[{"csc", "(", "\[Theta]", ")"}], " ", SubscriptBox["Q", RowBox[{"\[Phi]", ",", "\[Phi]"}]]}], "+", SubscriptBox["Q", RowBox[{"\[Theta]", ",", "\[Theta]"}]], "+", RowBox[{"R", " ", SubscriptBox["b", "n"]}], "+", SubscriptBox["N", "\[Theta]\[Theta]"], "+", SubscriptBox["N", "\[Phi]\[Phi]"], "+", RowBox[{ RowBox[{"cot", "(", "\[Theta]", ")"}], " ", SubscriptBox["Q", "\[Theta]"]}]}], "R"], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\" = 0\"\>"}], SequenceForm[ TraditionalForm[$CellContext`R^(-1) ($CellContext`R Subscript[$CellContext`b, $CellContext`n] + Subscript[N, $CellContext`\[Theta]\[Theta]] + Subscript[N, $CellContext`\[Phi]\[Phi]] + Cot[$CellContext`\[Theta]] Subscript[$CellContext`Q, $CellContext`\[Theta]] + Subscript[$CellContext`Q, $CellContext`\[Theta], $CellContext`\[Theta]] + Csc[$CellContext`\[Theta]] Subscript[$CellContext`Q, $CellContext`\[Phi], $CellContext`\[Phi]])], " = 0"], Editable->False]], "Print", CellChangeTimes->{ 3.793856146015414*^9, {3.794055779538799*^9, 3.794055803314951*^9}, 3.794055841197298*^9}, CellLabel-> "During evaluation of \ In[88]:=",ExpressionUUID->"028e4c81-2369-4afc-96e6-9a9a67614674"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ FractionBox[ RowBox[{ SubscriptBox["M", RowBox[{"\[Theta]\[Phi]", ",", "\[Theta]"}]], "+", RowBox[{ RowBox[{"csc", "(", "\[Theta]", ")"}], " ", SubscriptBox["M", RowBox[{"\[Phi]\[Phi]", ",", "\[Phi]"}]]}], "+", RowBox[{"R", " ", SubscriptBox["c", "\[Phi]"]}], "+", RowBox[{ RowBox[{"cot", "(", "\[Theta]", ")"}], " ", SubscriptBox["M", "\[Theta]\[Phi]"]}], "+", RowBox[{ RowBox[{"cot", "(", "\[Theta]", ")"}], " ", SubscriptBox["M", "\[Phi]\[Theta]"]}], "-", SubscriptBox["M", "\[Phi]n"], "-", RowBox[{"R", " ", SubscriptBox["Q", "\[Phi]"]}]}], "R"], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\" = 0\"\>"}], SequenceForm[ TraditionalForm[$CellContext`R^(-1) ($CellContext`R Subscript[$CellContext`c, $CellContext`\[Phi]] + Cot[$CellContext`\[Theta]] Subscript[$CellContext`M, $CellContext`\[Theta]\[Phi]] - Subscript[$CellContext`M, $CellContext`\[Phi]n] + Cot[$CellContext`\[Theta]] Subscript[$CellContext`M, $CellContext`\[Phi]\[Theta]] - $CellContext`R Subscript[$CellContext`Q, $CellContext`\[Phi]] + Subscript[$CellContext`M, $CellContext`\[Theta]\[Phi], $CellContext`\ \[Theta]] + Csc[$CellContext`\[Theta]] Subscript[$CellContext`M, $CellContext`\[Phi]\[Phi], \ $CellContext`\[Phi]])], " = 0"], Editable->False]], "Print", CellChangeTimes->{ 3.793856146015414*^9, {3.794055779538799*^9, 3.794055803314951*^9}, 3.794055841216247*^9}, CellLabel-> "During evaluation of \ In[88]:=",ExpressionUUID->"4e9acc37-deb5-4171-87e8-0ea805d9c38e"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ FractionBox[ RowBox[{ SubscriptBox["M", RowBox[{"\[Theta]\[Theta]", ",", "\[Theta]"}]], "+", RowBox[{ RowBox[{"csc", "(", "\[Theta]", ")"}], " ", SubscriptBox["M", RowBox[{"\[Phi]\[Theta]", ",", "\[Phi]"}]]}], "+", RowBox[{"R", " ", SubscriptBox["c", "\[Theta]"]}], "+", RowBox[{ RowBox[{"cot", "(", "\[Theta]", ")"}], " ", SubscriptBox["M", "\[Theta]\[Theta]"]}], "-", RowBox[{ RowBox[{"cot", "(", "\[Theta]", ")"}], " ", SubscriptBox["M", "\[Phi]\[Phi]"]}], "-", SubscriptBox["M", "\[Theta]n"], "-", RowBox[{"R", " ", SubscriptBox["Q", "\[Theta]"]}]}], "R"], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\" = 0\"\>"}], SequenceForm[ TraditionalForm[$CellContext`R^(-1) ($CellContext`R Subscript[$CellContext`c, $CellContext`\[Theta]] - Subscript[$CellContext`M, $CellContext`\[Theta]n] + Cot[$CellContext`\[Theta]] Subscript[$CellContext`M, $CellContext`\[Theta]\[Theta]] - Cot[$CellContext`\[Theta]] Subscript[$CellContext`M, $CellContext`\[Phi]\[Phi]] - $CellContext`R Subscript[$CellContext`Q, $CellContext`\[Theta]] + Subscript[$CellContext`M, $CellContext`\[Theta]\[Theta], $CellContext`\ \[Theta]] + Csc[$CellContext`\[Theta]] Subscript[$CellContext`M, $CellContext`\[Phi]\[Theta], $CellContext`\ \[Phi]])], " = 0"], Editable->False]], "Print", CellChangeTimes->{ 3.793856146015414*^9, {3.794055779538799*^9, 3.794055803314951*^9}, 3.7940558412212343`*^9}, CellLabel-> "During evaluation of \ In[88]:=",ExpressionUUID->"87c35cfc-dfa0-4f84-930e-ce93412555f0"], Cell[BoxData["\<\"CONSTITUTIVE:\"\>"], "Print", CellChangeTimes->{ 3.793856146015414*^9, {3.794055779538799*^9, 3.794055803314951*^9}, 3.794055841223256*^9}, CellLabel-> "During evaluation of \ In[88]:=",ExpressionUUID->"b21ff612-a3ef-430b-b3ac-c124fe51bdd6"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ SubscriptBox["N", "\[Phi]\[Phi]"], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", TagBox[ FormBox[ FractionBox[ RowBox[{"EE", " ", "t", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"\[Nu]", "+", "1"}], ")"}], " ", SubscriptBox["u", "n"]}], "-", RowBox[{ RowBox[{"csc", "(", "\[Theta]", ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Nu]", " ", RowBox[{"sin", "(", "\[Theta]", ")"}], " ", SubscriptBox["u", RowBox[{"\[Theta]", ",", "\[Theta]"}]]}], "+", SubscriptBox["u", RowBox[{"\[Phi]", ",", "\[Phi]"}]], "+", RowBox[{ RowBox[{"cos", "(", "\[Theta]", ")"}], " ", SubscriptBox["u", "\[Theta]"]}]}], ")"}]}]}], ")"}]}], RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["\[Nu]", "2"], "-", "1"}], ")"}], " ", "R"}]], TraditionalForm], TraditionalForm, Editable->True]}], SequenceForm[ TraditionalForm[ Subscript[N, $CellContext`\[Phi]\[Phi]]], "=", TraditionalForm[$CellContext`EE $CellContext`R^(-1) $CellContext`t (-1 + \ $CellContext`\[Nu]^2)^(-1) ((1 + $CellContext`\[Nu]) Subscript[$CellContext`u, $CellContext`n] - Csc[$CellContext`\[Theta]] ( Cos[$CellContext`\[Theta]] Subscript[$CellContext`u, $CellContext`\[Theta]] + $CellContext`\[Nu] Sin[$CellContext`\[Theta]] Subscript[$CellContext`u, $CellContext`\[Theta], \ $CellContext`\[Theta]] + Subscript[$CellContext`u, $CellContext`\[Phi], $CellContext`\[Phi]]))]], Editable->False]], "Print", CellChangeTimes->{ 3.793856146015414*^9, {3.794055779538799*^9, 3.794055803314951*^9}, 3.7940558413837996`*^9}, CellLabel-> "During evaluation of \ In[88]:=",ExpressionUUID->"28175114-5f8b-4939-957d-89c3f9619834"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ SubscriptBox["N", "\[Phi]\[Theta]"], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", TagBox[ FormBox[ FractionBox[ RowBox[{"EE", " ", "t", " ", RowBox[{"(", RowBox[{ SubscriptBox["u", RowBox[{"\[Phi]", ",", "\[Theta]"}]], "+", RowBox[{ RowBox[{"csc", "(", "\[Theta]", ")"}], " ", SubscriptBox["u", RowBox[{"\[Theta]", ",", "\[Phi]"}]]}], "-", RowBox[{ RowBox[{"cot", "(", "\[Theta]", ")"}], " ", SubscriptBox["u", "\[Phi]"]}]}], ")"}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"\[Nu]", "+", "1"}], ")"}], " ", "R"}]], TraditionalForm], TraditionalForm, Editable->True]}], SequenceForm[ TraditionalForm[ Subscript[N, $CellContext`\[Phi]\[Theta]]], "=", TraditionalForm[ Rational[1, 2] $CellContext`EE $CellContext`R^(-1) $CellContext`t ( 1 + $CellContext`\[Nu])^(-1) (-Cot[$CellContext`\[Theta]] Subscript[$CellContext`u, $CellContext`\[Phi]] + Csc[$CellContext`\[Theta]] Subscript[$CellContext`u, $CellContext`\[Theta], $CellContext`\[Phi]] + Subscript[$CellContext`u, $CellContext`\[Phi], $CellContext`\[Theta]])]], Editable->False]], "Print", CellChangeTimes->{ 3.793856146015414*^9, {3.794055779538799*^9, 3.794055803314951*^9}, 3.794055841415716*^9}, CellLabel-> "During evaluation of \ In[88]:=",ExpressionUUID->"7419d2e6-56d5-4d1f-9689-119fb48f7e73"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ SubscriptBox["Q", "\[Phi]"], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", TagBox[ FormBox[ FractionBox[ RowBox[{"EE", " ", "t", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"csc", "(", "\[Theta]", ")"}], " ", SubscriptBox["u", RowBox[{"n", ",", "\[Phi]"}]]}], "+", RowBox[{ SubscriptBox["\[Theta]", "\[Theta]"], " ", "R"}], "+", SubscriptBox["u", "\[Phi]"]}], ")"}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"\[Nu]", "+", "1"}], ")"}], " ", "R"}]], TraditionalForm], TraditionalForm, Editable->True]}], SequenceForm[ TraditionalForm[ Subscript[$CellContext`Q, $CellContext`\[Phi]]], "=", TraditionalForm[ Rational[1, 2] $CellContext`EE $CellContext`R^(-1) $CellContext`t ( 1 + $CellContext`\[Nu])^(-1) ( Subscript[$CellContext`u, $CellContext`\[Phi]] + $CellContext`R Subscript[$CellContext`\[Theta], $CellContext`\[Theta]] + Csc[$CellContext`\[Theta]] Subscript[$CellContext`u, $CellContext`n, $CellContext`\[Phi]])]], Editable->False]], "Print", CellChangeTimes->{ 3.793856146015414*^9, {3.794055779538799*^9, 3.794055803314951*^9}, 3.7940558414536448`*^9}, CellLabel-> "During evaluation of \ In[88]:=",ExpressionUUID->"2615d4e5-a500-4e8e-bf89-e171392193b5"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ SubscriptBox["N", "\[Theta]\[Phi]"], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", TagBox[ FormBox[ FractionBox[ RowBox[{"EE", " ", "t", " ", RowBox[{"(", RowBox[{ SubscriptBox["u", RowBox[{"\[Phi]", ",", "\[Theta]"}]], "+", RowBox[{ RowBox[{"csc", "(", "\[Theta]", ")"}], " ", SubscriptBox["u", RowBox[{"\[Theta]", ",", "\[Phi]"}]]}], "-", RowBox[{ RowBox[{"cot", "(", "\[Theta]", ")"}], " ", SubscriptBox["u", "\[Phi]"]}]}], ")"}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"\[Nu]", "+", "1"}], ")"}], " ", "R"}]], TraditionalForm], TraditionalForm, Editable->True]}], SequenceForm[ TraditionalForm[ Subscript[N, $CellContext`\[Theta]\[Phi]]], "=", TraditionalForm[ Rational[1, 2] $CellContext`EE $CellContext`R^(-1) $CellContext`t ( 1 + $CellContext`\[Nu])^(-1) (-Cot[$CellContext`\[Theta]] Subscript[$CellContext`u, $CellContext`\[Phi]] + Csc[$CellContext`\[Theta]] Subscript[$CellContext`u, $CellContext`\[Theta], $CellContext`\[Phi]] + Subscript[$CellContext`u, $CellContext`\[Phi], $CellContext`\[Theta]])]], Editable->False]], "Print", CellChangeTimes->{ 3.793856146015414*^9, {3.794055779538799*^9, 3.794055803314951*^9}, 3.7940558414825354`*^9}, CellLabel-> "During evaluation of \ In[88]:=",ExpressionUUID->"7c841057-b9a8-4537-8128-46fea7f3009e"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ SubscriptBox["N", "\[Theta]\[Theta]"], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", TagBox[ FormBox[ FractionBox[ RowBox[{"EE", " ", "t", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"\[Nu]", " ", RowBox[{"csc", "(", "\[Theta]", ")"}], " ", RowBox[{"(", RowBox[{ SubscriptBox["u", RowBox[{"\[Phi]", ",", "\[Phi]"}]], "+", RowBox[{ RowBox[{"cos", "(", "\[Theta]", ")"}], " ", SubscriptBox["u", "\[Theta]"]}]}], ")"}]}]}], "-", SubscriptBox["u", RowBox[{"\[Theta]", ",", "\[Theta]"}]], "+", RowBox[{ RowBox[{"(", RowBox[{"\[Nu]", "+", "1"}], ")"}], " ", SubscriptBox["u", "n"]}]}], ")"}]}], RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["\[Nu]", "2"], "-", "1"}], ")"}], " ", "R"}]], TraditionalForm], TraditionalForm, Editable->True]}], SequenceForm[ TraditionalForm[ Subscript[N, $CellContext`\[Theta]\[Theta]]], "=", TraditionalForm[$CellContext`EE $CellContext`R^(-1) $CellContext`t (-1 + \ $CellContext`\[Nu]^2)^(-1) ((1 + $CellContext`\[Nu]) Subscript[$CellContext`u, $CellContext`n] - Subscript[$CellContext`u, $CellContext`\[Theta], $CellContext`\[Theta]] - \ $CellContext`\[Nu] Csc[$CellContext`\[Theta]] ( Cos[$CellContext`\[Theta]] Subscript[$CellContext`u, $CellContext`\[Theta]] + Subscript[$CellContext`u, $CellContext`\[Phi], $CellContext`\[Phi]]))]], Editable->False]], "Print", CellChangeTimes->{ 3.793856146015414*^9, {3.794055779538799*^9, 3.794055803314951*^9}, 3.7940558415114584`*^9}, CellLabel-> "During evaluation of \ In[88]:=",ExpressionUUID->"716f28bd-a639-4216-9cd1-b30131ada337"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ SubscriptBox["Q", "\[Theta]"], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", TagBox[ FormBox[ FractionBox[ RowBox[{"EE", " ", "t", " ", RowBox[{"(", RowBox[{ SubscriptBox["u", RowBox[{"n", ",", "\[Theta]"}]], "-", RowBox[{"R", " ", SubscriptBox["\[Theta]", "\[Phi]"]}], "+", SubscriptBox["u", "\[Theta]"]}], ")"}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"\[Nu]", "+", "1"}], ")"}], " ", "R"}]], TraditionalForm], TraditionalForm, Editable->True]}], SequenceForm[ TraditionalForm[ Subscript[$CellContext`Q, $CellContext`\[Theta]]], "=", TraditionalForm[ Rational[1, 2] $CellContext`EE $CellContext`R^(-1) $CellContext`t ( 1 + $CellContext`\[Nu])^(-1) ( Subscript[$CellContext`u, $CellContext`\[Theta]] - $CellContext`R Subscript[$CellContext`\[Theta], $CellContext`\[Phi]] + Subscript[$CellContext`u, $CellContext`n, $CellContext`\[Theta]])]], Editable->False]], "Print", CellChangeTimes->{ 3.793856146015414*^9, {3.794055779538799*^9, 3.794055803314951*^9}, 3.794055841516445*^9}, CellLabel-> "During evaluation of \ In[88]:=",ExpressionUUID->"f5645cc3-c7e3-4891-adb7-8c8ceeb3c9b7"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ SubscriptBox["Q", "\[Phi]"], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", TagBox[ FormBox[ FractionBox[ RowBox[{"EE", " ", "t", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"csc", "(", "\[Theta]", ")"}], " ", SubscriptBox["u", RowBox[{"n", ",", "\[Phi]"}]]}], "+", RowBox[{ SubscriptBox["\[Theta]", "\[Theta]"], " ", "R"}], "+", SubscriptBox["u", "\[Phi]"]}], ")"}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"\[Nu]", "+", "1"}], ")"}], " ", "R"}]], TraditionalForm], TraditionalForm, Editable->True]}], SequenceForm[ TraditionalForm[ Subscript[$CellContext`Q, $CellContext`\[Phi]]], "=", TraditionalForm[ Rational[1, 2] $CellContext`EE $CellContext`R^(-1) $CellContext`t ( 1 + $CellContext`\[Nu])^(-1) ( Subscript[$CellContext`u, $CellContext`\[Phi]] + $CellContext`R Subscript[$CellContext`\[Theta], $CellContext`\[Theta]] + Csc[$CellContext`\[Theta]] Subscript[$CellContext`u, $CellContext`n, $CellContext`\[Phi]])]], Editable->False]], "Print", CellChangeTimes->{ 3.793856146015414*^9, {3.794055779538799*^9, 3.794055803314951*^9}, 3.794055841542409*^9}, CellLabel-> "During evaluation of \ In[88]:=",ExpressionUUID->"e219bcaf-f1e3-4a92-8e9e-ec7a372d574b"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ SubscriptBox["Q", "\[Theta]"], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", TagBox[ FormBox[ FractionBox[ RowBox[{"EE", " ", "t", " ", RowBox[{"(", RowBox[{ SubscriptBox["u", RowBox[{"n", ",", "\[Theta]"}]], "-", RowBox[{"R", " ", SubscriptBox["\[Theta]", "\[Phi]"]}], "+", SubscriptBox["u", "\[Theta]"]}], ")"}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"\[Nu]", "+", "1"}], ")"}], " ", "R"}]], TraditionalForm], TraditionalForm, Editable->True]}], SequenceForm[ TraditionalForm[ Subscript[$CellContext`Q, $CellContext`\[Theta]]], "=", TraditionalForm[ Rational[1, 2] $CellContext`EE $CellContext`R^(-1) $CellContext`t ( 1 + $CellContext`\[Nu])^(-1) ( Subscript[$CellContext`u, $CellContext`\[Theta]] - $CellContext`R Subscript[$CellContext`\[Theta], $CellContext`\[Phi]] + Subscript[$CellContext`u, $CellContext`n, $CellContext`\[Theta]])]], Editable->False]], "Print", CellChangeTimes->{ 3.793856146015414*^9, {3.794055779538799*^9, 3.794055803314951*^9}, 3.79405584154836*^9}, CellLabel-> "During evaluation of \ In[88]:=",ExpressionUUID->"a922bdeb-c6bc-4e75-a5f6-45e8afb0419c"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ SubscriptBox["Q", "n"], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", TagBox[ FormBox["0", TraditionalForm], TraditionalForm, Editable->True]}], SequenceForm[ TraditionalForm[ Subscript[$CellContext`Q, $CellContext`n]], "=", TraditionalForm[0]], Editable->False]], "Print", CellChangeTimes->{ 3.793856146015414*^9, {3.794055779538799*^9, 3.794055803314951*^9}, 3.7940558415513515`*^9}, CellLabel-> "During evaluation of \ In[88]:=",ExpressionUUID->"40e1b645-574b-4c14-84bf-2029f30695fb"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ SubscriptBox["M", "\[Phi]\[Phi]"], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", TagBox[ FormBox[ FractionBox[ RowBox[{"EE", " ", SuperscriptBox["t", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Nu]", " ", SubscriptBox["\[Theta]", RowBox[{"\[Phi]", ",", "\[Theta]"}]]}], "-", RowBox[{ RowBox[{"csc", "(", "\[Theta]", ")"}], " ", SubscriptBox["\[Theta]", RowBox[{"\[Theta]", ",", "\[Phi]"}]]}], "+", RowBox[{ SubscriptBox["\[Theta]", "\[Phi]"], " ", RowBox[{"cot", "(", "\[Theta]", ")"}]}]}], ")"}]}], RowBox[{"12", " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[Nu]", "2"], "-", "1"}], ")"}], " ", "R"}]], TraditionalForm], TraditionalForm, Editable->True]}], SequenceForm[ TraditionalForm[ Subscript[$CellContext`M, $CellContext`\[Phi]\[Phi]]], "=", TraditionalForm[ Rational[1, 12] $CellContext`EE $CellContext`R^(-1) $CellContext`t^3 (-1 + \ $CellContext`\[Nu]^2)^(-1) ( Cot[$CellContext`\[Theta]] Subscript[$CellContext`\[Theta], $CellContext`\[Phi]] - Csc[$CellContext`\[Theta]] Subscript[$CellContext`\[Theta], $CellContext`\[Theta], $CellContext`\ \[Phi]] + $CellContext`\[Nu] Subscript[$CellContext`\[Theta], $CellContext`\[Phi], $CellContext`\ \[Theta]])]], Editable->False]], "Print", CellChangeTimes->{ 3.793856146015414*^9, {3.794055779538799*^9, 3.794055803314951*^9}, 3.794055841554343*^9}, CellLabel-> "During evaluation of \ In[88]:=",ExpressionUUID->"6238aaf2-c855-4cff-b687-dd619d2bc238"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ SubscriptBox["M", "\[Phi]\[Theta]"], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", TagBox[ FormBox[ RowBox[{"-", FractionBox[ RowBox[{"EE", " ", SuperscriptBox["t", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"csc", "(", "\[Theta]", ")"}], " ", SubscriptBox["\[Theta]", RowBox[{"\[Phi]", ",", "\[Phi]"}]]}], "-", SubscriptBox["\[Theta]", RowBox[{"\[Theta]", ",", "\[Theta]"}]], "+", RowBox[{ SubscriptBox["\[Theta]", "\[Theta]"], " ", RowBox[{"cot", "(", "\[Theta]", ")"}]}]}], ")"}]}], RowBox[{"24", " ", RowBox[{"(", RowBox[{"\[Nu]", "+", "1"}], ")"}], " ", "R"}]]}], TraditionalForm], TraditionalForm, Editable->True]}], SequenceForm[ TraditionalForm[ Subscript[$CellContext`M, $CellContext`\[Phi]\[Theta]]], "=", TraditionalForm[ Rational[-1, 24] $CellContext`EE $CellContext`R^(-1) $CellContext`t^3 ( 1 + $CellContext`\[Nu])^(-1) ( Cot[$CellContext`\[Theta]] Subscript[$CellContext`\[Theta], $CellContext`\[Theta]] - Subscript[$CellContext`\[Theta], $CellContext`\[Theta], $CellContext`\ \[Theta]] + Csc[$CellContext`\[Theta]] Subscript[$CellContext`\[Theta], $CellContext`\[Phi], $CellContext`\ \[Phi]])]], Editable->False]], "Print", CellChangeTimes->{ 3.793856146015414*^9, {3.794055779538799*^9, 3.794055803314951*^9}, 3.794055841558361*^9}, CellLabel-> "During evaluation of \ In[88]:=",ExpressionUUID->"7c5dba60-82ac-4ac1-ac77-9784997bb8e5"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ SubscriptBox["M", "\[Phi]n"], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", TagBox[ FormBox["0", TraditionalForm], TraditionalForm, Editable->True]}], SequenceForm[ TraditionalForm[ Subscript[$CellContext`M, $CellContext`\[Phi]n]], "=", TraditionalForm[0]], Editable->False]], "Print", CellChangeTimes->{ 3.793856146015414*^9, {3.794055779538799*^9, 3.794055803314951*^9}, 3.7940558415623493`*^9}, CellLabel-> "During evaluation of \ In[88]:=",ExpressionUUID->"9e7fa0b5-a958-4353-80ff-c18b99efa9c9"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ SubscriptBox["M", "\[Theta]\[Phi]"], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", TagBox[ FormBox[ RowBox[{"-", FractionBox[ RowBox[{"EE", " ", SuperscriptBox["t", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"csc", "(", "\[Theta]", ")"}], " ", SubscriptBox["\[Theta]", RowBox[{"\[Phi]", ",", "\[Phi]"}]]}], "-", SubscriptBox["\[Theta]", RowBox[{"\[Theta]", ",", "\[Theta]"}]], "+", RowBox[{ SubscriptBox["\[Theta]", "\[Theta]"], " ", RowBox[{"cot", "(", "\[Theta]", ")"}]}]}], ")"}]}], RowBox[{"24", " ", RowBox[{"(", RowBox[{"\[Nu]", "+", "1"}], ")"}], " ", "R"}]]}], TraditionalForm], TraditionalForm, Editable->True]}], SequenceForm[ TraditionalForm[ Subscript[$CellContext`M, $CellContext`\[Theta]\[Phi]]], "=", TraditionalForm[ Rational[-1, 24] $CellContext`EE $CellContext`R^(-1) $CellContext`t^3 ( 1 + $CellContext`\[Nu])^(-1) ( Cot[$CellContext`\[Theta]] Subscript[$CellContext`\[Theta], $CellContext`\[Theta]] - Subscript[$CellContext`\[Theta], $CellContext`\[Theta], $CellContext`\ \[Theta]] + Csc[$CellContext`\[Theta]] Subscript[$CellContext`\[Theta], $CellContext`\[Phi], $CellContext`\ \[Phi]])]], Editable->False]], "Print", CellChangeTimes->{ 3.793856146015414*^9, {3.794055779538799*^9, 3.794055803314951*^9}, 3.7940558415673094`*^9}, CellLabel-> "During evaluation of \ In[88]:=",ExpressionUUID->"273e9bf4-2b8f-4c3c-9c91-dbe5be095b32"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ SubscriptBox["M", "\[Theta]\[Theta]"], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", TagBox[ FormBox[ FractionBox[ RowBox[{"EE", " ", SuperscriptBox["t", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"\[Nu]", " ", RowBox[{"csc", "(", "\[Theta]", ")"}], " ", SubscriptBox["\[Theta]", RowBox[{"\[Theta]", ",", "\[Phi]"}]]}]}], "+", SubscriptBox["\[Theta]", RowBox[{"\[Phi]", ",", "\[Theta]"}]], "+", RowBox[{"\[Nu]", " ", SubscriptBox["\[Theta]", "\[Phi]"], " ", RowBox[{"cot", "(", "\[Theta]", ")"}]}]}], ")"}]}], RowBox[{"12", " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[Nu]", "2"], "-", "1"}], ")"}], " ", "R"}]], TraditionalForm], TraditionalForm, Editable->True]}], SequenceForm[ TraditionalForm[ Subscript[$CellContext`M, $CellContext`\[Theta]\[Theta]]], "=", TraditionalForm[ Rational[1, 12] $CellContext`EE $CellContext`R^(-1) $CellContext`t^3 (-1 + \ $CellContext`\[Nu]^2)^(-1) ($CellContext`\[Nu] Cot[$CellContext`\[Theta]] Subscript[$CellContext`\[Theta], $CellContext`\[Phi]] - $CellContext`\ \[Nu] Csc[$CellContext`\[Theta]] Subscript[$CellContext`\[Theta], $CellContext`\[Theta], $CellContext`\ \[Phi]] + Subscript[$CellContext`\[Theta], $CellContext`\[Phi], $CellContext`\ \[Theta]])]], Editable->False]], "Print", CellChangeTimes->{ 3.793856146015414*^9, {3.794055779538799*^9, 3.794055803314951*^9}, 3.794055841595235*^9}, CellLabel-> "During evaluation of \ In[88]:=",ExpressionUUID->"9dfe9822-71d5-44b9-a72c-876b92d0da46"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ SubscriptBox["M", "\[Theta]n"], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", TagBox[ FormBox["0", TraditionalForm], TraditionalForm, Editable->True]}], SequenceForm[ TraditionalForm[ Subscript[$CellContext`M, $CellContext`\[Theta]n]], "=", TraditionalForm[0]], Editable->False]], "Print", CellChangeTimes->{ 3.793856146015414*^9, {3.794055779538799*^9, 3.794055803314951*^9}, 3.7940558415982265`*^9}, CellLabel-> "During evaluation of \ In[88]:=",ExpressionUUID->"270ad7fe-7c17-46c6-bf60-1178c2a8345c"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ SubscriptBox["M", "n\[Phi]"], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", TagBox[ FormBox[ RowBox[{"-", FractionBox[ RowBox[{"EE", " ", SuperscriptBox["t", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"csc", "(", "\[Theta]", ")"}], " ", SubscriptBox["u", RowBox[{"n", ",", "\[Phi]"}]]}], "+", RowBox[{ SubscriptBox["\[Theta]", "\[Theta]"], " ", "R"}], "+", SubscriptBox["u", "\[Phi]"]}], ")"}]}], RowBox[{"24", " ", RowBox[{"(", RowBox[{"\[Nu]", "+", "1"}], ")"}], " ", SuperscriptBox["R", "2"]}]]}], TraditionalForm], TraditionalForm, Editable->True]}], SequenceForm[ TraditionalForm[ Subscript[$CellContext`M, $CellContext`n\[Phi]]], "=", TraditionalForm[ Rational[-1, 24] $CellContext`EE $CellContext`R^(-2) $CellContext`t^3 ( 1 + $CellContext`\[Nu])^(-1) ( Subscript[$CellContext`u, $CellContext`\[Phi]] + $CellContext`R Subscript[$CellContext`\[Theta], $CellContext`\[Theta]] + Csc[$CellContext`\[Theta]] Subscript[$CellContext`u, $CellContext`n, $CellContext`\[Phi]])]], Editable->False]], "Print", CellChangeTimes->{ 3.793856146015414*^9, {3.794055779538799*^9, 3.794055803314951*^9}, 3.794055841636125*^9}, CellLabel-> "During evaluation of \ In[88]:=",ExpressionUUID->"62aa985f-0a8d-4232-a70e-d100095df2b8"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ SubscriptBox["M", "n\[Theta]"], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", TagBox[ FormBox[ RowBox[{"-", FractionBox[ RowBox[{"EE", " ", SuperscriptBox["t", "3"], " ", RowBox[{"(", RowBox[{ SubscriptBox["u", RowBox[{"n", ",", "\[Theta]"}]], "-", RowBox[{"R", " ", SubscriptBox["\[Theta]", "\[Phi]"]}], "+", SubscriptBox["u", "\[Theta]"]}], ")"}]}], RowBox[{"24", " ", RowBox[{"(", RowBox[{"\[Nu]", "+", "1"}], ")"}], " ", SuperscriptBox["R", "2"]}]]}], TraditionalForm], TraditionalForm, Editable->True]}], SequenceForm[ TraditionalForm[ Subscript[$CellContext`M, $CellContext`n\[Theta]]], "=", TraditionalForm[ Rational[-1, 24] $CellContext`EE $CellContext`R^(-2) $CellContext`t^3 ( 1 + $CellContext`\[Nu])^(-1) ( Subscript[$CellContext`u, $CellContext`\[Theta]] - $CellContext`R Subscript[$CellContext`\[Theta], $CellContext`\[Phi]] + Subscript[$CellContext`u, $CellContext`n, $CellContext`\[Theta]])]], Editable->False]], "Print", CellChangeTimes->{ 3.793856146015414*^9, {3.794055779538799*^9, 3.794055803314951*^9}, 3.7940558416620555`*^9}, CellLabel-> "During evaluation of \ In[88]:=",ExpressionUUID->"6d3d1198-f03f-4384-aa8f-620c6072c3c8"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ FormBox[ SubscriptBox["M", "nn"], TraditionalForm], TraditionalForm, Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", TagBox[ FormBox["0", TraditionalForm], TraditionalForm, Editable->True]}], SequenceForm[ TraditionalForm[ Subscript[$CellContext`M, $CellContext`nn]], "=", TraditionalForm[0]], Editable->False]], "Print", CellChangeTimes->{ 3.793856146015414*^9, {3.794055779538799*^9, 3.794055803314951*^9}, 3.7940558416650486`*^9}, CellLabel-> "During evaluation of \ In[88]:=",ExpressionUUID->"1af5be93-0877-4d6a-98b5-2c9947521a65"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Toroidal shell", "Subsection", CellChangeTimes->{ 3.4710857577642*^9, {3.4710858112098*^9, 3.4710858239082003`*^9}, { 3.4710859049969997`*^9, 3.4710859061046*^9}, {3.4710892678536*^9, 3.4710892701*^9}, 3.4710893817648*^9, {3.4710894793115997`*^9, 3.4710895039596*^9}, {3.4710905118050003`*^9, 3.471090512741*^9}, { 3.4725252603414*^9, 3.472525264101*^9}, {3.4725253064862003`*^9, 3.4725253370934*^9}, {3.4747629998582*^9, 3.4747630055678*^9}, { 3.4752273878873997`*^9, 3.4752273904926*^9}, {3.4753663741484003`*^9, 3.4753664116352*^9}, {3.4753773567911997`*^9, 3.475377356916*^9}, 3.4753775870472*^9, {3.4754620951394*^9, 3.4754621031266003`*^9}, { 3.4779795207265997`*^9, 3.4779795250576*^9}, 3.537621939388029*^9, 3.537622934627954*^9, {3.5376230222229643`*^9, 3.537623029743394*^9}, { 3.537623460058007*^9, 3.537623470980632*^9}, {3.537624955779557*^9, 3.5376249594157653`*^9}, {3.6000028730424147`*^9, 3.6000028738224154`*^9}, {3.600051011531698*^9, 3.6000510174285083`*^9}, { 3.600051611598405*^9, 3.600051612175606*^9}, {3.601345436806925*^9, 3.6013454383201275`*^9}, {3.601345528035885*^9, 3.6013455313118906`*^9}, { 3.601345570093559*^9, 3.601345572137162*^9}, {3.601345611714432*^9, 3.6013456172368417`*^9}, 3.6016459822022843`*^9, {3.6031080083902407`*^9, 3.6031080231166663`*^9}, {3.6031775802126956`*^9, 3.603177580977097*^9}, { 3.6031844444402394`*^9, 3.603184446780244*^9}, 3.666877628076423*^9, { 3.6675445583700595`*^9, 3.6675445650984445`*^9}, {3.6675457022524858`*^9, 3.6675457103329477`*^9}, {3.6682522662410097`*^9, 3.6682522774886293`*^9}, {3.66825249395461*^9, 3.66825250523343*^9}, { 3.730427329212906*^9, 3.730427330197385*^9}},ExpressionUUID->"2b22a67b-a7d0-4f15-8d7c-\ f2d207ae9e29"], Cell[BoxData[ RowBox[{ RowBox[{"(*", "torus", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "n"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"r0", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"R", "+", RowBox[{"r", "*", RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}], ")"}], "*", RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", "\[Phi]", "]"}], ",", RowBox[{"Sin", "[", "\[Phi]", "]"}], ",", "0"}], "}"}]}], "+", RowBox[{"r", "*", RowBox[{"Sin", "[", "\[Theta]", "]"}], "*", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}]}]}], ";"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"vars", "=", RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "n"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cnd", " ", "=", RowBox[{ RowBox[{"r", ">", "0"}], "&&", RowBox[{"R", ">", "0"}], "&&", RowBox[{ RowBox[{"(", RowBox[{"R", "+", RowBox[{"r", " ", RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}], ")"}], ">", "0"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"asm", "=", RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"SHELLKINEMATICS", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"SHELLEQUILIBRIUM", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SHELLCONSTITUTIVE", "[", "1", "]"}], ";"}]}]}]], "Input", CellChangeTimes->{{3.666877671479355*^9, 3.6668776730215592`*^9}, { 3.6668847313643303`*^9, 3.6668847319907327`*^9}, {3.6675246147608366`*^9, 3.667524663479722*^9}, {3.667528409739314*^9, 3.6675284307945185`*^9}, { 3.667531399116185*^9, 3.6675314050129957`*^9}, 3.6675321567813163`*^9, { 3.667544280688177*^9, 3.6675443248827047`*^9}, 3.667544442555435*^9, { 3.6675445775451565`*^9, 3.667544621284658*^9}, {3.6675446547985744`*^9, 3.66754466187998*^9}, 3.667544763739806*^9, {3.6675453712965565`*^9, 3.6675453960919743`*^9}, {3.66825230639548*^9, 3.6682523424783435`*^9}, 3.668252379044808*^9, {3.668252528664671*^9, 3.668252533001478*^9}, 3.698999418934826*^9, 3.698999531094983*^9, {3.762315378277131*^9, 3.7623153795073285`*^9}}, CellLabel->"In[26]:=",ExpressionUUID->"cce0ece2-9cdf-42e7-a954-633562d9afc4"] }, Closed]], Cell[CellGroupData[{ Cell["Spherical shell (modified order)", "Subsection", CellChangeTimes->{ 3.4710857577642*^9, {3.4710858112098*^9, 3.4710858239082003`*^9}, { 3.4710859049969997`*^9, 3.4710859061046*^9}, {3.4710892678536*^9, 3.4710892701*^9}, 3.4710893817648*^9, {3.4710894793115997`*^9, 3.4710895039596*^9}, {3.4710905118050003`*^9, 3.471090512741*^9}, { 3.4725252603414*^9, 3.472525264101*^9}, {3.4725253064862003`*^9, 3.4725253370934*^9}, {3.4747629998582*^9, 3.4747630055678*^9}, { 3.4752273878873997`*^9, 3.4752273904926*^9}, {3.4753663741484003`*^9, 3.4753664116352*^9}, {3.4753773567911997`*^9, 3.475377356916*^9}, 3.4753775870472*^9, {3.4754620951394*^9, 3.4754621031266003`*^9}, { 3.4779795207265997`*^9, 3.4779795250576*^9}, 3.537621939388029*^9, 3.537622934627954*^9, {3.5376230222229643`*^9, 3.537623029743394*^9}, { 3.537623460058007*^9, 3.537623470980632*^9}, {3.537624955779557*^9, 3.5376249594157653`*^9}, {3.6000028730424147`*^9, 3.6000028738224154`*^9}, {3.600051011531698*^9, 3.6000510174285083`*^9}, { 3.600051611598405*^9, 3.600051612175606*^9}, {3.601345436806925*^9, 3.6013454383201275`*^9}, {3.601345528035885*^9, 3.6013455313118906`*^9}, { 3.601345570093559*^9, 3.601345572137162*^9}, {3.601345611714432*^9, 3.6013456172368417`*^9}, 3.6016459822022843`*^9, {3.6031080083902407`*^9, 3.6031080231166663`*^9}, {3.6031775802126956`*^9, 3.603177580977097*^9}, { 3.6031844444402394`*^9, 3.603184446780244*^9}, 3.666877628076423*^9, { 3.6675445583700595`*^9, 3.6675445650984445`*^9}, {3.6675457022524858`*^9, 3.6675457103329477`*^9}, {3.6682522662410097`*^9, 3.6682522774886293`*^9}, 3.66825249395461*^9, {3.6687487037626033`*^9, 3.668748709408926*^9}},ExpressionUUID->"09310305-b837-45d7-a692-\ b7a3754ba2cb"], Cell[BoxData[ RowBox[{ RowBox[{"(*", "sphere", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "R", ",", "n"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"r0", "=", RowBox[{"R", "*", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Sin", "[", "\[Theta]", "]"}], "*", RowBox[{"Cos", "[", "\[Phi]", "]"}]}], ",", RowBox[{ RowBox[{"Sin", "[", "\[Theta]", "]"}], "*", RowBox[{"Sin", "[", "\[Phi]", "]"}]}], ",", RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "}"}]}]}], ";"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"vars", "=", RowBox[{"{", RowBox[{"\[Theta]", ",", "\[Phi]", ",", "n"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cnd", ":=", RowBox[{ RowBox[{"0", "\[LessEqual]", "\[Theta]", "<", "Pi"}], "&&", RowBox[{"R", ">", "0"}], "&&", RowBox[{ RowBox[{"R", "-", "n"}], ">", "0"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"asm", "=", RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"SHELLKINEMATICS", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"SHELLEQUILIBRIUM", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SHELLCONSTITUTIVE", "[", "1", "]"}], ";"}]}]}]], "Input", CellChangeTimes->{{3.666877671479355*^9, 3.6668776730215592`*^9}, { 3.6668847313643303`*^9, 3.6668847319907327`*^9}, {3.6675246147608366`*^9, 3.667524663479722*^9}, {3.667528409739314*^9, 3.6675284307945185`*^9}, { 3.667531399116185*^9, 3.6675314050129957`*^9}, 3.6675321567813163`*^9, { 3.667544280688177*^9, 3.6675443248827047`*^9}, 3.667544442555435*^9, { 3.6675445775451565`*^9, 3.667544621284658*^9}, {3.6675446547985744`*^9, 3.66754466187998*^9}, 3.667544763739806*^9, {3.6675453712965565`*^9, 3.6675453960919743`*^9}, {3.66825230639548*^9, 3.6682523424783435`*^9}, 3.668252379044808*^9, {3.6682532172593203`*^9, 3.6682532239744234`*^9}, { 3.6682533471288147`*^9, 3.6682533543764257`*^9}, {3.6682533886369524`*^9, 3.668253388739454*^9}, {3.6687487197625184`*^9, 3.6687487221216536`*^9}, { 3.7623153882488127`*^9, 3.762315388705128*^9}},ExpressionUUID->"dc2fb6cd-34b2-4be4-9fd6-\ 04f729a2a391"] }, Closed]], Cell[CellGroupData[{ Cell["Conical shell", "Subsection", CellChangeTimes->{ 3.4710857577642*^9, {3.4710858112098*^9, 3.4710858239082003`*^9}, { 3.4710859049969997`*^9, 3.4710859061046*^9}, {3.4710892678536*^9, 3.4710892701*^9}, 3.4710893817648*^9, {3.4710894793115997`*^9, 3.4710895039596*^9}, {3.4710905118050003`*^9, 3.471090512741*^9}, { 3.4725252603414*^9, 3.472525264101*^9}, {3.4725253064862003`*^9, 3.4725253370934*^9}, {3.4747629998582*^9, 3.4747630055678*^9}, { 3.4752273878873997`*^9, 3.4752273904926*^9}, {3.4753663741484003`*^9, 3.4753664116352*^9}, {3.4753773567911997`*^9, 3.475377356916*^9}, 3.4753775870472*^9, {3.4754620951394*^9, 3.4754621031266003`*^9}, { 3.4779795207265997`*^9, 3.4779795250576*^9}, 3.537621939388029*^9, 3.537622934627954*^9, {3.5376230222229643`*^9, 3.537623029743394*^9}, { 3.537623460058007*^9, 3.537623470980632*^9}, {3.537624955779557*^9, 3.5376249594157653`*^9}, {3.6000028730424147`*^9, 3.6000028738224154`*^9}, {3.600051011531698*^9, 3.6000510174285083`*^9}, { 3.600051611598405*^9, 3.600051612175606*^9}, {3.601345436806925*^9, 3.6013454383201275`*^9}, {3.601345528035885*^9, 3.6013455313118906`*^9}, { 3.601345570093559*^9, 3.601345572137162*^9}, {3.601345611714432*^9, 3.6013456172368417`*^9}, 3.6016459822022843`*^9, {3.6031080083902407`*^9, 3.6031080231166663`*^9}, {3.6031775802126956`*^9, 3.603177580977097*^9}, 3.6031794543967876`*^9, {3.6660908235146613`*^9, 3.6660908256674647`*^9}, { 3.6667051232233067`*^9, 3.6667051259791145`*^9}, {3.69899920011452*^9, 3.6989992306545625`*^9}},ExpressionUUID->"a67b8714-4c7d-4842-befb-\ d82030e36b91"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"conical", " ", "surface"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"r0", "=", RowBox[{"z", "*", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Tan", "[", "a", "]"}], "*", RowBox[{"Cos", "[", "\[Phi]", "]"}]}], ",", RowBox[{ RowBox[{"Tan", "[", "a", "]"}], "*", RowBox[{"Sin", "[", "\[Phi]", "]"}]}], ",", "1"}], "}"}]}]}], ";"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"vars", "=", RowBox[{"{", RowBox[{"z", ",", "\[Phi]", ",", "n"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cnd", ":=", RowBox[{ RowBox[{"z", ">", "0"}], "&&", RowBox[{"0", "<", "a", "<", RowBox[{"Pi", "/", "2"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"asm", "=", RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"SHELLKINEMATICS", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"SHELLEQUILIBRIUM", ";"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.601313951267284*^9, 3.6013140252114134`*^9}, { 3.601314093711134*^9, 3.601314270787045*^9}, {3.6013143804084377`*^9, 3.601314473337801*^9}, {3.6013149788098884`*^9, 3.6013149882323055`*^9}, { 3.601340614118454*^9, 3.6013407373898706`*^9}, {3.60134077135113*^9, 3.6013409616246643`*^9}, {3.6013410067087436`*^9, 3.601341086268883*^9}, { 3.601341120557743*^9, 3.6013411387473755`*^9}, {3.601341251847574*^9, 3.601341291128443*^9}, {3.6013413215796967`*^9, 3.6013413257449036`*^9}, { 3.601341393651823*^9, 3.6013416705991096`*^9}, {3.6013417051375704`*^9, 3.601341724809205*^9}, {3.601341773980491*^9, 3.6013417869285135`*^9}, { 3.6013418901538954`*^9, 3.6013418908246965`*^9}, {3.601341940869584*^9, 3.601342003316494*^9}, {3.6013420798502283`*^9, 3.6013420878374424`*^9}, { 3.6013421442471414`*^9, 3.601342212278861*^9}, {3.601342248658125*^9, 3.6013422850685887`*^9}, {3.6013423513687053`*^9, 3.601342444157668*^9}, { 3.601342521409004*^9, 3.6013425273526144`*^9}, {3.6013425640594788`*^9, 3.6013425781775036`*^9}, {3.6013426110779614`*^9, 3.601342686145293*^9}, { 3.601342786437869*^9, 3.601342789230274*^9}, {3.6013428577455945`*^9, 3.601342863018404*^9}, {3.6013429094284854`*^9, 3.6013429182581005`*^9}, { 3.601342961048976*^9, 3.6013429880838237`*^9}, {3.6013430210622816`*^9, 3.601343064882758*^9}, {3.6013434076309605`*^9, 3.601343573287651*^9}, { 3.6013436285273485`*^9, 3.6013436334881573`*^9}, {3.601343670600622*^9, 3.6013437385543413`*^9}, {3.6013437701443973`*^9, 3.601343787164027*^9}, { 3.6013438278332987`*^9, 3.6013438388625183`*^9}, {3.601343873104578*^9, 3.6013438948978167`*^9}, 3.6013439274550734`*^9, {3.6013439625551353`*^9, 3.6013440811621437`*^9}, {3.6013441228922167`*^9, 3.601344308672943*^9}, { 3.601344546900962*^9, 3.601344548523364*^9}, {3.6013446565379543`*^9, 3.601344663464366*^9}, 3.6013457077950006`*^9, {3.601345758151889*^9, 3.6013457699143095`*^9}, {3.6013553145229216`*^9, 3.6013553209642897`*^9}, {3.60135565822058*^9, 3.601355667418106*^9}, 3.601355795222416*^9, 3.6013558538517694`*^9, 3.6013558876107006`*^9, { 3.601356829699139*^9, 3.60135692696531*^9}, {3.601356987104416*^9, 3.601356998320835*^9}, {3.6013570424377127`*^9, 3.601357045932119*^9}, { 3.601357118269446*^9, 3.6013571225906534`*^9}, {3.601357369479273*^9, 3.601357370424327*^9}, {3.6013574497938666`*^9, 3.601357453105056*^9}, { 3.601357520199894*^9, 3.6013575282613544`*^9}, {3.601357806887291*^9, 3.601357809292429*^9}, {3.601357884232715*^9, 3.6013579135581255`*^9}, { 3.601357949952989*^9, 3.60135795026499*^9}, {3.601358031993533*^9, 3.6013580320871334`*^9}, {3.601362738657782*^9, 3.6013628080077486`*^9}, { 3.6013628827610245`*^9, 3.6013628841501036`*^9}, {3.6013629148928623`*^9, 3.601362918095045*^9}, {3.6013640636965103`*^9, 3.6013640711065235`*^9}, { 3.6013643582562275`*^9, 3.601364358396628*^9}, {3.6013677590224004`*^9, 3.601367794808863*^9}, {3.601375836845947*^9, 3.6013758526175747`*^9}, { 3.601375998711831*^9, 3.601376186863762*^9}, 3.6013762366902494`*^9, { 3.601376325984806*^9, 3.6013763393852296`*^9}, {3.6013764020037394`*^9, 3.6013765606092176`*^9}, {3.6013766141329117`*^9, 3.6013766244289303`*^9}, {3.6013766900894456`*^9, 3.6013767180602946`*^9}, {3.6013767498843503`*^9, 3.6013768530005317`*^9}, {3.601376884184986*^9, 3.6013769402046847`*^9}, { 3.601378062205456*^9, 3.6013780778678827`*^9}, {3.6013783095906897`*^9, 3.601378350774762*^9}, {3.601378416513278*^9, 3.6013784166380777`*^9}, 3.6013785842915726`*^9, {3.6013798010625095`*^9, 3.60137982408815*^9}, 3.6013804517240524`*^9, {3.601434409144231*^9, 3.6014344404222856`*^9}, { 3.601434482136759*^9, 3.6014345019331937`*^9}, {3.60143459105615*^9, 3.6014346522862577`*^9}, {3.6014346924875283`*^9, 3.601434697541937*^9}, 3.6014347466352234`*^9, 3.601434806554929*^9, {3.601434976907228*^9, 3.601434983474839*^9}, {3.6016460476287994`*^9, 3.601646052932809*^9}, { 3.6016460985940886`*^9, 3.601646257589568*^9}, {3.6016462884620223`*^9, 3.601646289413624*^9}, {3.6016463880837975`*^9, 3.601646389222599*^9}, { 3.601646486894371*^9, 3.601646499015592*^9}, {3.60164653785966*^9, 3.6016468795938606`*^9}, {3.6016469317759523`*^9, 3.6016469762204304`*^9}, {3.6016470902878304`*^9, 3.6016471621415567`*^9}, {3.6016472342604837`*^9, 3.6016472790325623`*^9}, {3.601647315411826*^9, 3.601647376548333*^9}, { 3.6016474226620145`*^9, 3.6016475634210615`*^9}, 3.6016475935447145`*^9, { 3.6016476532772193`*^9, 3.601647668346846*^9}, {3.60164773330536*^9, 3.601647950239341*^9}, {3.601648056647128*^9, 3.6016480580667305`*^9}, { 3.6016480924023905`*^9, 3.601648263472291*^9}, {3.603108065595541*^9, 3.6031084008245296`*^9}, {3.6031086031643734`*^9, 3.6031086308700223`*^9}, {3.603109655452423*^9, 3.603109664016838*^9}, { 3.603177587872309*^9, 3.6031775885431104`*^9}, {3.603177621069167*^9, 3.603177767522225*^9}, {3.6031778017174845`*^9, 3.603177909529274*^9}, { 3.6031784887894917`*^9, 3.6031784909734955`*^9}, {3.603178739715932*^9, 3.603178750495551*^9}, {3.6660895867288885`*^9, 3.666089596572506*^9}, { 3.666090245471246*^9, 3.6660902813045087`*^9}, {3.666090331942198*^9, 3.6660904413919897`*^9}, {3.6660905525733852`*^9, 3.6660905880166473`*^9}, {3.6660906370475335`*^9, 3.6660906732395973`*^9}, {3.666090715968072*^9, 3.6660907183392763`*^9}, { 3.666092770647681*^9, 3.666092788977713*^9}, {3.666096501269251*^9, 3.6660965081020627`*^9}, {3.666096887105728*^9, 3.6660968879481297`*^9}, { 3.6661709822520885`*^9, 3.666171000784921*^9}, {3.666171113448319*^9, 3.6661711137447195`*^9}, {3.6661762425336447`*^9, 3.666176258078533*^9}, { 3.6661763240648456`*^9, 3.666176325437648*^9}, {3.6661763969949737`*^9, 3.6661763978997755`*^9}, {3.6661767092295218`*^9, 3.6661768199273167`*^9}, {3.666176876227815*^9, 3.666176896960252*^9}, { 3.666176931015112*^9, 3.6661770274076805`*^9}, {3.6661772110980034`*^9, 3.6661772174940147`*^9}, {3.6665915144524107`*^9, 3.666591760831503*^9}, { 3.6665917950264587`*^9, 3.666591866062522*^9}, {3.66659189943043*^9, 3.666591920331626*^9}, {3.666591968274368*^9, 3.666592044653736*^9}, { 3.666592092289461*^9, 3.666592138388098*^9}, 3.666592180314496*^9, { 3.6665922983072443`*^9, 3.6665923226526375`*^9}, {3.666705136286146*^9, 3.6667052795457764`*^9}, {3.6668621473095875`*^9, 3.666862148477391*^9}, { 3.666862214638788*^9, 3.6668623292175374`*^9}, {3.666862364114044*^9, 3.6668623672260537`*^9}, 3.6668627476292233`*^9, {3.666924566086275*^9, 3.666924577467926*^9}, {3.666924628030818*^9, 3.666924635875267*^9}, 3.6669333222740993`*^9, {3.6669335629357224`*^9, 3.6669335886289673`*^9}, { 3.666933701370365*^9, 3.6669337829897084`*^9}, {3.698898178026107*^9, 3.6988982339961853`*^9}, 3.6988982945862703`*^9, {3.698898367116371*^9, 3.6988983772263856`*^9}, {3.6989993055646677`*^9, 3.698999306044668*^9}, { 3.698999373264762*^9, 3.6989994099848137`*^9}, {3.76231539519553*^9, 3.7623153957299385`*^9}},ExpressionUUID->"7c54c588-301b-42eb-bdc0-\ ccc43d0f3c6c"], Cell[BoxData["\[IndentingNewLine]"], "Input", CellChangeTimes->{ 3.7939703533987813`*^9},ExpressionUUID->"9fc4db90-ac61-42df-b850-\ ca116c5d8e0b"] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Lecture examples", "Section", CellChangeTimes->{ 3.4710857577642*^9, {3.4710858112098*^9, 3.4710858239082003`*^9}, { 3.4710859049969997`*^9, 3.4710859061046*^9}, {3.4710892678536*^9, 3.4710892701*^9}, 3.4710893817648*^9, {3.4710894793115997`*^9, 3.4710895039596*^9}, {3.4710905118050003`*^9, 3.471090512741*^9}, { 3.4725252603414*^9, 3.472525264101*^9}, {3.4725253064862003`*^9, 3.4725253370934*^9}, {3.4747629998582*^9, 3.4747630055678*^9}, { 3.4752273878873997`*^9, 3.4752273904926*^9}, {3.4753663741484003`*^9, 3.4753664116352*^9}, {3.4753773567911997`*^9, 3.475377356916*^9}, 3.4753775870472*^9, {3.4754620951394*^9, 3.4754621031266003`*^9}, { 3.4779795207265997`*^9, 3.4779795250576*^9}, 3.537621939388029*^9, 3.537622997047524*^9, {3.5376238658302155`*^9, 3.5376238672312956`*^9}, { 3.600002366135124*^9, 3.6000023692707295`*^9}, {3.6000479572325335`*^9, 3.6000479595569377`*^9}, {3.6004096645198383`*^9, 3.600409717357131*^9}, { 3.600571492488657*^9, 3.600571494735061*^9}, {3.6005936284438515`*^9, 3.6005936292394524`*^9}, {3.6006741159692173`*^9, 3.6006741341492577`*^9}, {3.6009244661154003`*^9, 3.6009244668018017`*^9}, {3.6009251420333877`*^9, 3.60092514354659*^9}, 3.600925365035779*^9, 3.6043821695544815`*^9, {3.666877582611085*^9, 3.6668775848264914`*^9}, {3.6682521885528736`*^9, 3.668252217319324*^9}, 3.668252975775611*^9, {3.6682530237788477`*^9, 3.668253025596376*^9}, { 3.7304275902874823`*^9, 3.7304275953971214`*^9}, {3.794054222048941*^9, 3.7940542234552197`*^9}},ExpressionUUID->"a70038ea-6cec-4882-a740-\ cc15b3b2c307"], Cell[CellGroupData[{ Cell["Last example", "Subsection", CellChangeTimes->{ 3.4710857577642*^9, {3.4710858112098*^9, 3.4710858239082003`*^9}, { 3.4710859049969997`*^9, 3.4710859061046*^9}, {3.4710892678536*^9, 3.4710892701*^9}, 3.4710893817648*^9, {3.4710894793115997`*^9, 3.4710895039596*^9}, {3.4710905118050003`*^9, 3.471090512741*^9}, { 3.4725252603414*^9, 3.472525264101*^9}, {3.4725253064862003`*^9, 3.4725253370934*^9}, {3.4747629998582*^9, 3.4747630055678*^9}, { 3.4752273878873997`*^9, 3.4752273904926*^9}, {3.4753663741484003`*^9, 3.4753664116352*^9}, {3.4753773567911997`*^9, 3.475377356916*^9}, 3.4753775870472*^9, {3.4754620951394*^9, 3.4754621031266003`*^9}, { 3.4779795207265997`*^9, 3.4779795250576*^9}, 3.537621939388029*^9, 3.537622934627954*^9, {3.5376230222229643`*^9, 3.537623029743394*^9}, { 3.537623460058007*^9, 3.537623470980632*^9}, {3.537624955779557*^9, 3.5376249594157653`*^9}, {3.6000028730424147`*^9, 3.6000028738224154`*^9}, {3.600051011531698*^9, 3.6000510174285083`*^9}, { 3.600051611598405*^9, 3.600051612175606*^9}, {3.601345436806925*^9, 3.6013454383201275`*^9}, {3.601345528035885*^9, 3.6013455313118906`*^9}, { 3.601345570093559*^9, 3.601345572137162*^9}, {3.601345611714432*^9, 3.6013456172368417`*^9}, 3.6016459822022843`*^9, {3.6031080083902407`*^9, 3.6031080231166663`*^9}, {3.6031775802126956`*^9, 3.603177580977097*^9}, 3.6031794543967876`*^9, {3.6660908235146613`*^9, 3.6660908256674647`*^9}, { 3.6667051232233067`*^9, 3.6667051259791145`*^9}, {3.69899920011452*^9, 3.6989992306545625`*^9}, {3.7940542461386023`*^9, 3.7940542502655706`*^9}},ExpressionUUID->"08469c09-dd7d-471d-b9f4-\ 34062aeb683b"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"u\[Phi]", "[", "r_", "]"}], "=", RowBox[{ RowBox[{"R", "/", "2"}], RowBox[{"(", RowBox[{"1", "+", RowBox[{"t", "/", RowBox[{"(", RowBox[{"2", "R"}], ")"}]}]}], ")"}], "*", RowBox[{"\[Tau]", "/", "G"}], "*", RowBox[{"(", RowBox[{ RowBox[{"r", "/", RowBox[{"R", "^", "3"}]}], "-", RowBox[{"1", "/", RowBox[{"r", "^", "2"}]}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Tau]r\[Phi]", "[", "r_", "]"}], "=", RowBox[{"G", " ", "r", RowBox[{ SubscriptBox["\[PartialD]", "r"], RowBox[{"(", RowBox[{ RowBox[{"u\[Phi]", "[", "r", "]"}], "/", "r"}], ")"}]}]}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FullSimplify", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Tau]r\[Phi]", "[", RowBox[{"R", "+", RowBox[{"t", "/", "2"}]}], "]"}], "/.", "sol"}], ")"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.7942101295771236`*^9, 3.794210323879775*^9}, { 3.7942103542732615`*^9, 3.7942104320116253`*^9}, {3.7942104680201335`*^9, 3.7942105459984264`*^9}, {3.794210600492779*^9, 3.794210702312994*^9}, { 3.7942107412103944`*^9, 3.79421075587252*^9}, {3.794210809145303*^9, 3.794210838599523*^9}, {3.794211590860196*^9, 3.794211687744754*^9}, { 3.7942117279341927`*^9, 3.7942117291440835`*^9}, {3.7942146978297014`*^9, 3.7942147536290703`*^9}, {3.7942148036668615`*^9, 3.794214814813184*^9}, { 3.7942151690469255`*^9, 3.7942151694364967`*^9}, {3.7942152710376754`*^9, 3.7942153401849966`*^9}, {3.7942153797595887`*^9, 3.7942153887407055`*^9}, {3.794215472397422*^9, 3.794215473597968*^9}, { 3.7942155380481634`*^9, 3.7942157136049385`*^9}, {3.7942172294002533`*^9, 3.794217435506812*^9}, 3.794217466821828*^9}, CellLabel-> "In[159]:=",ExpressionUUID->"a6326677-7c2e-45be-9095-016922b06d1b"], Cell[BoxData[ RowBox[{"{", FractionBox[ RowBox[{"6", " ", "\[Tau]"}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "R"}], "+", "t"}], ")"}], "2"]], "}"}]], "Output", CellChangeTimes->{ 3.794210438325713*^9, 3.7942104715754137`*^9, {3.794210518198422*^9, 3.794210546986972*^9}, 3.794210703114232*^9, 3.794210763368395*^9, 3.7942108107233906`*^9, 3.79421084112516*^9, {3.794211656678643*^9, 3.7942116915006623`*^9}, 3.7942117300167046`*^9, {3.79421478859282*^9, 3.794214804634276*^9}, {3.79421527235244*^9, 3.794215279150264*^9}, 3.7942153410748076`*^9, 3.7942153910495296`*^9, 3.794215474609641*^9, { 3.794215540781392*^9, 3.794215600392961*^9}, {3.7942156880438623`*^9, 3.7942157161889596`*^9}, {3.7942174404228334`*^9, 3.7942174697760973`*^9}}, CellLabel-> "Out[161]=",ExpressionUUID->"78bb1d54-3b99-4a30-910f-ac623879bda0"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"u\[Phi]1", "=", " ", RowBox[{ RowBox[{"12", "/", RowBox[{"(", RowBox[{"12", "+", RowBox[{"a", "^", "2"}]}], ")"}]}], "*", "\[Xi]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"u\[Phi]2", "=", RowBox[{ RowBox[{"(", " ", RowBox[{"1", "+", RowBox[{"a", "/", "2"}]}], ")"}], "*", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Xi]", "/", "2"}], "-", RowBox[{"1", "/", "a"}]}], ")"}], "/", RowBox[{"(", RowBox[{"\[Xi]", "-", RowBox[{"1", "/", "a"}]}], ")"}]}], "*", "\[Xi]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"u\[Phi]1", ",", "u\[Phi]2"}], "}"}], " ", "/.", RowBox[{"a", "\[Rule]", RowBox[{"1", "/", "100"}]}]}], ",", RowBox[{"{", RowBox[{"\[Xi]", ",", RowBox[{ RowBox[{"-", "1"}], "/", "2"}], ",", RowBox[{"1", "/", "2"}]}], "}"}], ",", RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.601313951267284*^9, 3.6013140252114134`*^9}, { 3.601314093711134*^9, 3.601314270787045*^9}, {3.6013143804084377`*^9, 3.601314473337801*^9}, {3.6013149788098884`*^9, 3.6013149882323055`*^9}, { 3.601340614118454*^9, 3.6013407373898706`*^9}, {3.60134077135113*^9, 3.6013409616246643`*^9}, {3.6013410067087436`*^9, 3.601341086268883*^9}, { 3.601341120557743*^9, 3.6013411387473755`*^9}, {3.601341251847574*^9, 3.601341291128443*^9}, {3.6013413215796967`*^9, 3.6013413257449036`*^9}, { 3.601341393651823*^9, 3.6013416705991096`*^9}, {3.6013417051375704`*^9, 3.601341724809205*^9}, {3.601341773980491*^9, 3.6013417869285135`*^9}, { 3.6013418901538954`*^9, 3.6013418908246965`*^9}, {3.601341940869584*^9, 3.601342003316494*^9}, {3.6013420798502283`*^9, 3.6013420878374424`*^9}, { 3.6013421442471414`*^9, 3.601342212278861*^9}, {3.601342248658125*^9, 3.6013422850685887`*^9}, {3.6013423513687053`*^9, 3.601342444157668*^9}, { 3.601342521409004*^9, 3.6013425273526144`*^9}, {3.6013425640594788`*^9, 3.6013425781775036`*^9}, {3.6013426110779614`*^9, 3.601342686145293*^9}, { 3.601342786437869*^9, 3.601342789230274*^9}, {3.6013428577455945`*^9, 3.601342863018404*^9}, {3.6013429094284854`*^9, 3.6013429182581005`*^9}, { 3.601342961048976*^9, 3.6013429880838237`*^9}, {3.6013430210622816`*^9, 3.601343064882758*^9}, {3.6013434076309605`*^9, 3.601343573287651*^9}, { 3.6013436285273485`*^9, 3.6013436334881573`*^9}, {3.601343670600622*^9, 3.6013437385543413`*^9}, {3.6013437701443973`*^9, 3.601343787164027*^9}, { 3.6013438278332987`*^9, 3.6013438388625183`*^9}, {3.601343873104578*^9, 3.6013438948978167`*^9}, 3.6013439274550734`*^9, {3.6013439625551353`*^9, 3.6013440811621437`*^9}, {3.6013441228922167`*^9, 3.601344308672943*^9}, { 3.601344546900962*^9, 3.601344548523364*^9}, {3.6013446565379543`*^9, 3.601344663464366*^9}, 3.6013457077950006`*^9, {3.601345758151889*^9, 3.6013457699143095`*^9}, {3.6013553145229216`*^9, 3.6013553209642897`*^9}, {3.60135565822058*^9, 3.601355667418106*^9}, 3.601355795222416*^9, 3.6013558538517694`*^9, 3.6013558876107006`*^9, { 3.601356829699139*^9, 3.60135692696531*^9}, {3.601356987104416*^9, 3.601356998320835*^9}, {3.6013570424377127`*^9, 3.601357045932119*^9}, { 3.601357118269446*^9, 3.6013571225906534`*^9}, {3.601357369479273*^9, 3.601357370424327*^9}, {3.6013574497938666`*^9, 3.601357453105056*^9}, { 3.601357520199894*^9, 3.6013575282613544`*^9}, {3.601357806887291*^9, 3.601357809292429*^9}, {3.601357884232715*^9, 3.6013579135581255`*^9}, { 3.601357949952989*^9, 3.60135795026499*^9}, {3.601358031993533*^9, 3.6013580320871334`*^9}, {3.601362738657782*^9, 3.6013628080077486`*^9}, { 3.6013628827610245`*^9, 3.6013628841501036`*^9}, {3.6013629148928623`*^9, 3.601362918095045*^9}, {3.6013640636965103`*^9, 3.6013640711065235`*^9}, { 3.6013643582562275`*^9, 3.601364358396628*^9}, {3.6013677590224004`*^9, 3.601367794808863*^9}, {3.601375836845947*^9, 3.6013758526175747`*^9}, { 3.601375998711831*^9, 3.601376186863762*^9}, 3.6013762366902494`*^9, { 3.601376325984806*^9, 3.6013763393852296`*^9}, {3.6013764020037394`*^9, 3.6013765606092176`*^9}, {3.6013766141329117`*^9, 3.6013766244289303`*^9}, {3.6013766900894456`*^9, 3.6013767180602946`*^9}, {3.6013767498843503`*^9, 3.6013768530005317`*^9}, {3.601376884184986*^9, 3.6013769402046847`*^9}, { 3.601378062205456*^9, 3.6013780778678827`*^9}, {3.6013783095906897`*^9, 3.601378350774762*^9}, {3.601378416513278*^9, 3.6013784166380777`*^9}, 3.6013785842915726`*^9, {3.6013798010625095`*^9, 3.60137982408815*^9}, 3.6013804517240524`*^9, {3.601434409144231*^9, 3.6014344404222856`*^9}, { 3.601434482136759*^9, 3.6014345019331937`*^9}, {3.60143459105615*^9, 3.6014346522862577`*^9}, {3.6014346924875283`*^9, 3.601434697541937*^9}, 3.6014347466352234`*^9, 3.601434806554929*^9, {3.601434976907228*^9, 3.601434983474839*^9}, {3.6016460476287994`*^9, 3.601646052932809*^9}, { 3.6016460985940886`*^9, 3.601646257589568*^9}, {3.6016462884620223`*^9, 3.601646289413624*^9}, {3.6016463880837975`*^9, 3.601646389222599*^9}, { 3.601646486894371*^9, 3.601646499015592*^9}, {3.60164653785966*^9, 3.6016468795938606`*^9}, {3.6016469317759523`*^9, 3.6016469762204304`*^9}, {3.6016470902878304`*^9, 3.6016471621415567`*^9}, {3.6016472342604837`*^9, 3.6016472790325623`*^9}, {3.601647315411826*^9, 3.601647376548333*^9}, { 3.6016474226620145`*^9, 3.6016475634210615`*^9}, 3.6016475935447145`*^9, { 3.6016476532772193`*^9, 3.601647668346846*^9}, {3.60164773330536*^9, 3.601647950239341*^9}, {3.601648056647128*^9, 3.6016480580667305`*^9}, { 3.6016480924023905`*^9, 3.601648263472291*^9}, {3.603108065595541*^9, 3.6031084008245296`*^9}, {3.6031086031643734`*^9, 3.6031086308700223`*^9}, {3.603109655452423*^9, 3.603109664016838*^9}, { 3.603177587872309*^9, 3.6031775885431104`*^9}, {3.603177621069167*^9, 3.603177767522225*^9}, {3.6031778017174845`*^9, 3.603177909529274*^9}, { 3.6031784887894917`*^9, 3.6031784909734955`*^9}, {3.603178739715932*^9, 3.603178750495551*^9}, {3.6660895867288885`*^9, 3.666089596572506*^9}, { 3.666090245471246*^9, 3.6660902813045087`*^9}, {3.666090331942198*^9, 3.6660904413919897`*^9}, {3.6660905525733852`*^9, 3.6660905880166473`*^9}, {3.6660906370475335`*^9, 3.6660906732395973`*^9}, {3.666090715968072*^9, 3.6660907183392763`*^9}, { 3.666092770647681*^9, 3.666092788977713*^9}, {3.666096501269251*^9, 3.6660965081020627`*^9}, {3.666096887105728*^9, 3.6660968879481297`*^9}, { 3.6661709822520885`*^9, 3.666171000784921*^9}, {3.666171113448319*^9, 3.6661711137447195`*^9}, {3.6661762425336447`*^9, 3.666176258078533*^9}, { 3.6661763240648456`*^9, 3.666176325437648*^9}, {3.6661763969949737`*^9, 3.6661763978997755`*^9}, {3.6661767092295218`*^9, 3.6661768199273167`*^9}, {3.666176876227815*^9, 3.666176896960252*^9}, { 3.666176931015112*^9, 3.6661770274076805`*^9}, {3.6661772110980034`*^9, 3.6661772174940147`*^9}, {3.6665915144524107`*^9, 3.666591760831503*^9}, { 3.6665917950264587`*^9, 3.666591866062522*^9}, {3.66659189943043*^9, 3.666591920331626*^9}, {3.666591968274368*^9, 3.666592044653736*^9}, { 3.666592092289461*^9, 3.666592138388098*^9}, 3.666592180314496*^9, { 3.6665922983072443`*^9, 3.6665923226526375`*^9}, {3.666705136286146*^9, 3.6667052795457764`*^9}, {3.6668621473095875`*^9, 3.666862148477391*^9}, { 3.666862214638788*^9, 3.6668623292175374`*^9}, {3.666862364114044*^9, 3.6668623672260537`*^9}, 3.6668627476292233`*^9, {3.666924566086275*^9, 3.666924577467926*^9}, {3.666924628030818*^9, 3.666924635875267*^9}, 3.6669333222740993`*^9, {3.6669335629357224`*^9, 3.6669335886289673`*^9}, { 3.666933701370365*^9, 3.6669337829897084`*^9}, {3.698898178026107*^9, 3.6988982339961853`*^9}, 3.6988982945862703`*^9, {3.698898367116371*^9, 3.6988983772263856`*^9}, {3.6989993055646677`*^9, 3.698999306044668*^9}, { 3.698999373264762*^9, 3.6989994099848137`*^9}, {3.76231539519553*^9, 3.7623153957299385`*^9}, {3.7940542563805156`*^9, 3.794054262701625*^9}, { 3.7940543117094717`*^9, 3.7940543861330724`*^9}, {3.794054492025605*^9, 3.794054691010707*^9}}, CellLabel->"",ExpressionUUID->"58b26d03-e061-4d05-8d0e-d70e499b4470"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwt1Pk7FHgcwPFxlRVRGz02lCPr2p7IsZ0fS6wjNlLZFYZoPY7IYzItTxG7 TbIPVjYrHXYoU2INJYz5JmlY45oG45pviNSuKB1Iaz89Tz+8n9d/8DYMjfUN V2QwGF7YRzeBzvOlJUqEW7fEvUBj54058wuUSJKWtCbRv6qsTWffUPK0oa1y BLUx8wqd+IcSLaewWSnqsCp9QNxHCdMj73g96jj28u8/KihRDHiXzEF9z7Tf 3BJMiWty/VkjNLEzPeZHoZyIhc7cA6hUuuJ5Y8gw6bxlI69E9e/FrnHQGyKZ +5l1X6K3ox6oaA4PEN2XCj8wUGam9Uz/6X6S/zZVQYzO/ZbEISAj0mpHDz7K XSnXzR/pJYrDwwXn0EIP6/hHZ3sIY/5FuQg9HR3CNneXktr2XWEGaJLSjcT4 KQkJV48xjEBDUjpNeku7SYfSwCkxmtcwnl8Y2UVUpuuKctE6aqZeZtRBgjmv f7+IGms5OvldbiOWxTNWLijfghM5OtZCHufyJFKUNldusLd/SDZHeSyZo+NW eTbkThNZqIo4Wo2uOsmz36TQSHhdzlMmqJX9tFXJrIAUNXwdmIem7Z7qqmXX kIbUw0tlqLZfefb3a/lkjXZQxXco/22zZovJDVKlc72lFi0ZHP/1WfplUlmi NiZDA330qgcPpxP2vvCcLrRWLannPisNSizEtndRu1EFg1T/K2Bpl78UixrP 1M9vu8+DP8NiJ61Qd25/u7c/HzIqNFt3oy5eq5Xe3K6Bs8NrtSbRrOC+lM01 ArhgtlGyARV562vsXd0IU+GH6lw/aqh9UlLQBGsfmrWKUFaCZUiWzkPg7tLw SUP7hrR8j7S0wLdjtq3+KPPEjqfL97QBS4f+N+fZBk2WDhlNKh0gYIlNqlDT zwSTxW5d0GxtoFyI6guiXFQ43fDYNpT//kw3MBYUefGjElDpEPlHoO98GoKa N0ohtvxFYB06aBu8bmN6D0yYOAToonEHtVYZDfVC1vUVedqo7vkn/sr6Mkg+ VvTVOz0ZlAdcvT7L7oeEbn/hOHpw5ym3loYBqGR336r9aFCM0bbFQTC06u23 QOfUnJVq9w9DIWvxQynq273dXj9fDgHLnqSoo2rbVzQKLsnB3LlItQxtLB7w PMSVw9tTQdme6Gb2iZCL5XLImZddyUBXrq/J1G2Wg+jfdqEq2hptM6b9Sg62 j2oWlVFHVfPslXsoaFw9x/7gSWHu2NwX5T4UBofcGJfQikFRiddBCqW6yzg7 UIOKI/WZoRScclMuJKGL+4sn1E5Q+OkX1p15NoUa7vqdy69RGI8Ofv2mhMJR jWnRtZsU+Dy95DzUNFHo61pJIWWiX8kOPe8RGPGzgMI6pt/nCWj8y4JcpUcU fPe527ySULAIiDTgyihsyF5Wl4OOPNjKc5JTmBI3fWON7s2XCVOfUeC47vKJ Q1UVS90NpykcSHsv00RJVKL03msKxvfuMivQ4z2uwcwFCjOLrElv9NO/4NO/ 4H97Ipw9 "]], LineBox[CompressedData[" 1:eJwt1Ps31HkYwPGJLJGiUNQolM01tI1S9nHaKG1U002RW6GkROuW7aJG1GGr jag0OusS6pDpMtHwNAZNKbdmzMXM9zMoK5mQmqWt7O45+8P7vP6Dt1V4LDNC i0aj+f3bfzqD2eDkJEGOujLCU1+FsRM2mROfCS5MO+BWq6vCu/dcbcc+EbQx Lf7G0FGh2xK/8P53BGs8r+a60FTobsySv5AQTDDWTV03RNCrb/T51SqCgvSq wdmNBJkZL28vCyG4IGhi2p2jBJPaWIei6imMt9m0XtZJoUhkMMgPU+K+ldP7 5yQqkf4k1sR9vgL7BasNwl0U+OBgo85MpRxX1FUoJ0fkGJrlOiI7LUPb8BqS ckWG47+nZiJI0fWewFl7qxSLZlDm+T1d+P0pEhvxsQsLNrjGvzonxkhN9lyL AjGejglLtvMV4WDw6FDPbhGmalckxas70Ttoa9mJb50YdqptUVdZBwZoSIZL TQfm1r3JL4hux4X2fbjiWDvWkiXT71i3Ypn1LomNVyvaGHmt2cZuwcW0Pd/p 1bYgxz4zurdPiOr9oeyMr0IkTdULGYxmbPW8v7varxnfOOa64UMBRgnd7pq8 EKDxiXKG8xQ+MvIZ2wxM+OjIGHYsGeMhe5la76RJHZ5Zq26vSebidr5smJbD RdNtlRd3zeHgI+KjUThykKNpmilcVIFtMYUxGWsrsKT7TfZbFhv3PQq42VrB xj1b5t/v3stCWkOqD+c4C2v0U8UNCWdAumLZ3oHfzsDy3imWaQGFYPGs7JIi rRBsRh5PeDSUw9uS4MvU63LwLZK99A/gwHnNvk2pcRzw9pul/ekBF6aOQJy1 hAsXQiSnXLg8iKg9ppmj4sFTf7rh5ll8GOJKFHMd+KC2Mj3ReU0AxaZrx4Rc AST84hB2wawZYneZsevdm0GiMGJGCoXAfBcQ6f9eCKEpq//U3dgCyRkH6lIS W0Dg4H5eoNMKQVYejd7LW8F2Gm+geH07KHdUVojC24HOO+itk9kBl2h9jbeK O4D2Was8vrcTPrmb/dg25RX8taUuuGmxCF6e0/+jfp0Iun8ImbeYJYYe/yv3 dcrFcGSnkbG1ogt4X/MihrUlYJ7zOmAqXQoJVQzDG+ukUBl489ZYsgzMB3XS S0tlsNPz5HphnRx6npiMxL2XQ3XwIWuPL91w1r//Q/dSBYzr/6Rds10J0Wq7 tpIsJTA7VjHo+RR8S7JvcOqkQH+VAZ93gwL5j78mdUso4BfLfw4qouCs7Vzn c0oKXJJTwq5XUiAIdC58PUDBjAXcLPMmCg4kii5en6TgWYxbn+kHCjxc9DjT nAh46dldnLGRgLF49lB/BoHxuHGLyi0ETkfdfp6TTaCq+2mJ304CjxnZFWsu E7CsinycFU7A6MLSw2w2gS/bi/v1UwjUwfDUHQ8IcIsWeOqWEpgVEXikqZfA YcPhp6W3Cdg55e09OkDANqme6VNNwNCLHmD1nkDOhj3703kEHvrqeR+fIBA/ eu2y9isCJ7Wc8iz0VGAfGG1ZJCWgoX/MHdVXQU/jyvI1FAFmeGiu0FAFm/Ol 9WlvCSRFLbmSOFsFelplvlbDBGzsWHl+ZirAg0miJx8JHDVNv7rIXAWJYp+Q 0M8EpI4OBX/PU8H//wJBbGJhp6UK/gHQMIjl "]]}, Annotation[#, "Charting`Private`Tag$6540#1"]& ]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->NCache[{{ Rational[-1, 2], Rational[1, 2]}, {-0.5012499795915828, 0.5037625422005408}}, {{-0.5, 0.5}, {-0.5012499795915828, 0.5037625422005408}}], PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.794054662953647*^9, 3.7940546798116612`*^9}}, CellLabel->"Out[9]=",ExpressionUUID->"1e6bcf71-579e-4208-889f-eeb53d50b16f"] }, Open ]], Cell[BoxData["\[IndentingNewLine]"], "Input", CellChangeTimes->{ 3.7939703533987813`*^9},ExpressionUUID->"a48e452c-94b9-439c-9cb3-\ daff39309a06"] }, Open ]] }, Closed]] }, AutoGeneratedPackage->Automatic, WindowSize->{951., 469.75}, WindowMargins->{{8.75, Automatic}, {Automatic, 1.5}}, PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}}, Magnification:>1.25 Inherited, FrontEndVersion->"12.1 for Microsoft Windows (64-bit) (June 19, 2020)", StyleDefinitions->"Default.nb", ExpressionUUID->"98abd451-4a77-4761-b330-8ed0099b9bd2" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[567, 22, 534, 8, 83, "Section",ExpressionUUID->"f80f1a14-5e19-4d5b-b3db-8ffc5f31ec0d"], Cell[CellGroupData[{ Cell[1126, 34, 1774, 26, 67, "Subsection",ExpressionUUID->"16ef144c-4d13-402e-96b4-c4e44eec02f8"], Cell[2903, 62, 9588, 251, 984, "Input",ExpressionUUID->"718a3088-f79e-4e0f-855c-1eb4a3539f04", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[12528, 318, 1689, 25, 46, "Subsection",ExpressionUUID->"48305deb-3086-4712-8fd5-220c4083629f"], Cell[14220, 345, 21343, 537, 2168, "Input",ExpressionUUID->"7761f32d-599e-4183-96ba-1f442d94a242", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[35600, 887, 1714, 25, 46, "Subsection",ExpressionUUID->"87733f31-a2d5-4ed5-9c86-ed88d100d0de"], Cell[37317, 914, 6258, 154, 906, "Input",ExpressionUUID->"4381ea94-4419-4716-8021-b38e077dcda4", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[43612, 1073, 1550, 23, 46, "Subsection",ExpressionUUID->"2c3f9204-d91f-44f0-b73f-b4e126dd46bb"], Cell[45165, 1098, 17189, 402, 1682, "Input",ExpressionUUID->"12aa9b31-3a11-4df8-ab3f-a0e8517463af", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[62391, 1505, 1554, 23, 46, "Subsection",ExpressionUUID->"a847a516-e420-424e-ac47-83d232563e99"], Cell[63948, 1530, 13228, 240, 61434865, "Input",ExpressionUUID->"d8daa811-c4f3-49af-94a3-d6e063ca04dd", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[77213, 1775, 1463, 21, 46, "Subsection",ExpressionUUID->"d1705dbe-8510-406a-9bdf-d12f527657e5"], Cell[78679, 1798, 14921, 287, 460, "Input",ExpressionUUID->"501e552b-a1cf-47ea-af0d-49efafcf7da3", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[93637, 2090, 1542, 22, 46, "Subsection",ExpressionUUID->"b802494d-51b3-4f81-97cd-ae25767ead06"], Cell[CellGroupData[{ Cell[95204, 2116, 32559, 714, 1522, "Input",ExpressionUUID->"54d15173-932c-439e-8150-adbf07012f0b"], Cell[127766, 2832, 16585, 512, 971, "Output",ExpressionUUID->"e9214657-f319-4939-bd5d-71370c294733"] }, Open ]], Cell[CellGroupData[{ Cell[144388, 3349, 12785, 198, 200, "Input",ExpressionUUID->"adacaa7f-8c95-4c29-b528-e8c4894071df"], Cell[157176, 3549, 241, 3, 40, "Output",ExpressionUUID->"b021765e-a347-4b50-96f6-2166c64f9c53"], Cell[157420, 3554, 243, 3, 40, "Output",ExpressionUUID->"2ee9eb26-45d5-4b7e-83e9-780737d25d11"], Cell[157666, 3559, 240, 3, 40, "Output",ExpressionUUID->"24467cd9-752d-405b-a06a-d86da1e25793"] }, Open ]], Cell[CellGroupData[{ Cell[157943, 3567, 14648, 248, 365, "Input",ExpressionUUID->"c75481ae-f046-44f4-9b0f-f95cbb046c91"], Cell[172594, 3817, 772, 13, 63, "Output",ExpressionUUID->"20dfc340-80a5-41e3-82df-8834b1648b56"] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[173427, 3837, 1584, 24, 83, "Section",ExpressionUUID->"a2593288-2234-40c0-9c7b-4f5d46e24461"], Cell[CellGroupData[{ Cell[175036, 3865, 1783, 26, 67, "Subsection",ExpressionUUID->"aae38969-696f-4c96-a2e6-ad7bef2850e2"], Cell[CellGroupData[{ Cell[176844, 3895, 2188, 51, 22855, "Input",ExpressionUUID->"ebed0d67-b88e-49cc-9053-27d911bd9bf8"], Cell[CellGroupData[{ Cell[179057, 3950, 289, 5, 5427, "Print",ExpressionUUID->"c664c065-271a-4685-9420-ff7c735b5795"], Cell[179349, 3957, 498, 11, 5427, "Print",ExpressionUUID->"c1883a94-29b2-4e7b-adc6-57d0542e1d5b"], Cell[179850, 3970, 1287, 36, 13165, "Print",ExpressionUUID->"29de4751-dc32-4593-9a8d-fbd3b34a3292"], Cell[181140, 4008, 713, 18, 5888, "Print",ExpressionUUID->"c61480c1-4430-4542-9300-220161bf9f04"], Cell[181856, 4028, 2978, 79, 12704, "Print",ExpressionUUID->"1a859567-17ae-456f-ba12-8bc81abb2616"], Cell[184837, 4109, 1789, 45, 12704, "Print",ExpressionUUID->"b87f311c-4a07-4fdd-9ee5-36eb9a860d5c"], Cell[186629, 4156, 1159, 28, 8854, "Print",ExpressionUUID->"f5b1ad16-6d3a-4abd-98d4-3fe6ee0ef590"], Cell[187791, 4186, 1057, 28, 12704, "Print",ExpressionUUID->"11c62bdc-ed6a-4027-92f6-32b61278d598"], Cell[188851, 4216, 1022, 20, 5728, "Print",ExpressionUUID->"0a3b3915-307c-40af-840d-991633e46e49"], Cell[189876, 4238, 288, 5, 5427, "Print",ExpressionUUID->"f19607eb-c487-4dec-a95f-f7047b8ea4df"], Cell[190167, 4245, 818, 24, 5888, "Print",ExpressionUUID->"4352f16e-e15f-42ff-b9ad-dc1fbe11dfb8"], Cell[190988, 4271, 818, 24, 5888, "Print",ExpressionUUID->"96fe3afa-91cb-4e64-9a9e-3454c04c9a32"], Cell[191809, 4297, 840, 24, 5888, "Print",ExpressionUUID->"6593c567-6641-44fd-a3ec-737bb8060043"], Cell[192652, 4323, 929, 26, 5888, "Print",ExpressionUUID->"31532f4b-c62c-402d-906f-8c67a974fd6f"], Cell[193584, 4351, 929, 26, 5888, "Print",ExpressionUUID->"e65a03b8-cffd-4992-bd59-4aaa3fdae416"], Cell[194516, 4379, 289, 5, 5427, "Print",ExpressionUUID->"ff951b4d-76ae-4025-a572-557b009b81fa"], Cell[194808, 4386, 1277, 39, 9013, "Print",ExpressionUUID->"f9fea975-813a-436d-8465-679f1cecd123"], Cell[196088, 4427, 1228, 37, 9419, "Print",ExpressionUUID->"35d2ef65-e306-4340-96b1-861319ad65ac"], Cell[197319, 4466, 1206, 36, 9419, "Print",ExpressionUUID->"7d32b9bd-3629-4fbf-a40b-b571bc29373c"], Cell[198528, 4504, 1228, 37, 9419, "Print",ExpressionUUID->"acf2a38b-e88a-44ff-ba2b-bfd0de08237a"], Cell[199759, 4543, 1275, 38, 9013, "Print",ExpressionUUID->"db902499-c31d-4793-b0f0-a5859f2c9908"], Cell[201037, 4583, 1210, 36, 9419, "Print",ExpressionUUID->"8a9d64fb-2f05-42c8-bf08-84e17eaffd04"], Cell[202250, 4621, 1208, 36, 9419, "Print",ExpressionUUID->"2c5de654-59c3-49a8-abfa-f96df13811c9"], Cell[203461, 4659, 1210, 36, 9419, "Print",ExpressionUUID->"7f6ba115-2399-42c1-82d6-ce9e29d4953b"], Cell[204674, 4697, 701, 23, 5427, "Print",ExpressionUUID->"24739951-46f9-42f4-a0c5-733ab2e92cbd"], Cell[205378, 4722, 1405, 42, 11070, "Print",ExpressionUUID->"c56f6821-2c94-4368-9929-77f1b8f9c601"], Cell[206786, 4766, 1304, 38, 10200, "Print",ExpressionUUID->"b9a205ac-4d11-4167-83ce-3a0adbf3cdba"], Cell[208093, 4806, 701, 23, 5427, "Print",ExpressionUUID->"29c97c98-407a-4169-921e-4cace1b89cdd"], Cell[208797, 4831, 1304, 38, 10200, "Print",ExpressionUUID->"c6347305-c718-46de-88f5-f22332196255"], Cell[210104, 4871, 1408, 43, 11070, "Print",ExpressionUUID->"1ab56dc2-4f3f-46f6-8f08-4470e6b30876"], Cell[211515, 4916, 703, 23, 5888, "Print",ExpressionUUID->"b279285d-797f-43be-b2e3-f2b9307662c3"], Cell[212221, 4941, 703, 23, 5427, "Print",ExpressionUUID->"981f089e-f9e9-4448-804f-c757677db4ec"], Cell[212927, 4966, 703, 23, 5888, "Print",ExpressionUUID->"7b899993-6d48-4b48-8b45-6e9f4c1257ee"], Cell[213633, 4991, 703, 23, 5427, "Print",ExpressionUUID->"9140bc5a-a9be-4644-b10c-912529da5b0c"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[214397, 5021, 1837, 27, 46, "Subsection",ExpressionUUID->"d59d00c3-acf4-4e84-ad59-8840fcf655ad"], Cell[CellGroupData[{ Cell[216259, 5052, 2313, 55, 22855, "Input",ExpressionUUID->"9d30d14f-b65a-44d8-b58b-51994809713b"], Cell[CellGroupData[{ Cell[218597, 5111, 312, 6, 1877, "Print",ExpressionUUID->"9fc000e4-a30f-4603-8616-2ffd6860aa97"], Cell[218912, 5119, 534, 13, 1877, "Print",ExpressionUUID->"52ffeedf-5b72-40c5-897e-8456ecb30db5"], Cell[219449, 5134, 1320, 37, 13022, "Print",ExpressionUUID->"27848de2-491f-4c71-a8a6-4d932978433f"], Cell[220772, 5173, 597, 15, 5427, "Print",ExpressionUUID->"82eb3d72-e5ee-4d23-81bb-ba8fc63201fb"], Cell[221372, 5190, 3190, 85, 13022, "Print",ExpressionUUID->"73b2f4d7-bfc1-4f0c-8827-2aac9a4eb9a8"], Cell[224565, 5277, 1935, 49, 14657, "Print",ExpressionUUID->"9572c3ac-2ef8-4cd0-a19d-fb3f82c8cce6"], Cell[226503, 5328, 1186, 29, 8854, "Print",ExpressionUUID->"a0665e44-d90b-4fcf-af83-4f741efd2d51"], Cell[227692, 5359, 1084, 29, 12704, "Print",ExpressionUUID->"5cb392f4-8079-40f0-8f26-1f1524e394b4"], Cell[228779, 5390, 1049, 21, 5728, "Print",ExpressionUUID->"082df33b-a6fc-4765-8584-53a020f4fb6a"], Cell[229831, 5413, 697, 18, 8707, "Print",ExpressionUUID->"5680bf73-9d01-478f-8ec1-4aa444a53a1d"], Cell[230531, 5433, 717, 19, 8707, "Print",ExpressionUUID->"7d6adbc8-236e-4bd4-b54a-d6f1402f8046"], Cell[231251, 5454, 315, 6, 5427, "Print",ExpressionUUID->"1501532c-7faa-4f0b-ac56-6d4cc92ea11d"], Cell[231569, 5462, 1184, 32, 9013, "Print",ExpressionUUID->"32b54ca1-3657-4b35-8522-67ac3dcdf5f2"], Cell[232756, 5496, 1214, 32, 9013, "Print",ExpressionUUID->"9329d437-853f-4f9c-b8b6-ef6f9bd2fbba"], Cell[233973, 5530, 1125, 31, 9013, "Print",ExpressionUUID->"d58738bf-b296-416a-9174-73b3f5792410"], Cell[235101, 5563, 1371, 36, 8854, "Print",ExpressionUUID->"8f5da687-8e1f-4731-b167-9fc90f18ac52"], Cell[236475, 5601, 1407, 36, 8854, "Print",ExpressionUUID->"2cefeb00-5460-4bf6-b8f7-338a46a5171e"], Cell[237885, 5639, 314, 6, 5427, "Print",ExpressionUUID->"f2024110-397a-4d02-ba90-d20da5f20050"], Cell[238202, 5647, 1595, 46, 10339, "Print",ExpressionUUID->"599e4317-d499-4af6-89fe-c0d93805da3d"], Cell[239800, 5695, 1472, 43, 9419, "Print",ExpressionUUID->"8430fc65-0a5b-441a-8453-51c92ec8493f"], Cell[241275, 5740, 1241, 37, 9419, "Print",ExpressionUUID->"1cb3abfd-4857-4d23-a4c9-813ca5c5ebc1"], Cell[242519, 5779, 1470, 43, 9419, "Print",ExpressionUUID->"536d9574-c70b-4469-ba5e-0f1631d41846"], Cell[243992, 5824, 1530, 43, 10339, "Print",ExpressionUUID->"7301301a-03eb-4c96-b8ed-967f84bf1035"], Cell[245525, 5869, 1339, 39, 9419, "Print",ExpressionUUID->"48fa2111-8724-4a80-b140-0802e6582013"], Cell[246867, 5910, 1240, 37, 9419, "Print",ExpressionUUID->"19e01703-3374-4d83-9ff8-e0d4baaa63f3"], Cell[248110, 5949, 1336, 39, 9419, "Print",ExpressionUUID->"8fb5cb7b-f7a3-4469-a4e4-207924d20fcc"], Cell[249449, 5990, 723, 24, 5427, "Print",ExpressionUUID->"39bbfa93-db55-492c-aaf5-385b53d58600"], Cell[250175, 6016, 1761, 50, 11070, "Print",ExpressionUUID->"1280c15f-d9dd-4e2c-96f5-c0d2f4b98f21"], Cell[251939, 6068, 1545, 44, 10200, "Print",ExpressionUUID->"5a635481-86eb-4daf-8c78-946cde3a8070"], Cell[253487, 6114, 728, 24, 5427, "Print",ExpressionUUID->"21841b85-6054-45cf-afd7-c5a40a2618d4"], Cell[254218, 6140, 1547, 44, 10200, "Print",ExpressionUUID->"da9ce2f2-9e69-405c-95dd-f5be73d43cd0"], Cell[255768, 6186, 1673, 46, 11070, "Print",ExpressionUUID->"3619e73a-00d8-4c6f-84ce-c4aa2ff9d806"], Cell[257444, 6234, 736, 24, 5728, "Print",ExpressionUUID->"f263c2b9-78bd-4c7f-a12b-74aecd47f224"], Cell[258183, 6260, 726, 24, 5427, "Print",ExpressionUUID->"819861c1-597e-4450-9f62-a9fb442f31c5"], Cell[258912, 6286, 736, 24, 5728, "Print",ExpressionUUID->"726d2563-8c88-442c-a63a-839aeda76a8a"], Cell[259651, 6312, 726, 24, 5427, "Print",ExpressionUUID->"46e5416f-111e-4ab8-8e45-45ea3615645c"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[260438, 6343, 1843, 27, 46, "Subsection",ExpressionUUID->"9e933469-a032-4e3a-b048-da47970bfcf4"], Cell[262284, 6372, 4269, 104, 305, "Input",ExpressionUUID->"4a002bd3-ae55-4cb7-9c4f-2ec15212434e"] }, Closed]], Cell[CellGroupData[{ Cell[266590, 6481, 1746, 25, 46, "Subsection",ExpressionUUID->"587f0704-1f44-4dbe-bcea-1f647a3dc594"], Cell[268339, 6508, 2407, 58, 321, "Input",ExpressionUUID->"897504cf-f8b4-4d9c-a3e0-7d7327b5ace5"] }, Closed]], Cell[CellGroupData[{ Cell[270783, 6571, 1741, 25, 46, "Subsection",ExpressionUUID->"8a2b7322-99f3-4ba0-9b69-29899873c42d"], Cell[272527, 6598, 2293, 57, 321, "Input",ExpressionUUID->"f8a34253-1297-4060-ba97-874b6d90a788"] }, Closed]], Cell[CellGroupData[{ Cell[274857, 6660, 1728, 25, 46, "Subsection",ExpressionUUID->"a541e0eb-9c38-4d64-a94f-0362d2c27f0a"], Cell[CellGroupData[{ Cell[276610, 6689, 2709, 62, 318, "Input",ExpressionUUID->"4f3186bd-e5d9-4d24-b0fa-ca76f4f50360"], Cell[CellGroupData[{ Cell[279344, 6755, 267, 6, 27, "Print",ExpressionUUID->"da865c20-c596-4268-a607-be024329249a"], Cell[279614, 6763, 503, 13, 27, "Print",ExpressionUUID->"57d0d892-1927-4cb2-b7d2-37257bb27957"], Cell[280120, 6778, 1182, 35, 64, "Print",ExpressionUUID->"0c2689d1-f447-468e-a874-fe62e64e074c"], Cell[281305, 6815, 575, 16, 27, "Print",ExpressionUUID->"3e88fe10-ceba-4d77-9d18-8ae58a16d506"], Cell[281883, 6833, 3653, 100, 68, "Print",ExpressionUUID->"db6a5b63-c8d6-412f-9015-ab2b4a9894a7"], Cell[285539, 6935, 2051, 51, 80, "Print",ExpressionUUID->"2df961bd-8392-4918-8d62-446597b75abe"], Cell[287593, 6988, 1767, 47, 60, "Print",ExpressionUUID->"5f106f01-85e2-40d7-9c6c-b966f6ae68b3"], Cell[289363, 7037, 1210, 35, 79, "Print",ExpressionUUID->"8ba6b5cc-1ffb-4b99-8dfd-5e402d9752a6"], Cell[290576, 7074, 1530, 37, 46, "Print",ExpressionUUID->"bb389164-5d36-47aa-bafd-bd48594ea5fc"], Cell[292109, 7113, 758, 21, 41, "Print",ExpressionUUID->"bb77ae21-6d4c-4257-9af4-c272e8ba9726"], Cell[292870, 7136, 652, 18, 41, "Print",ExpressionUUID->"58df013a-d921-46bd-8104-af6405c94361"], Cell[293525, 7156, 730, 19, 41, "Print",ExpressionUUID->"18823e17-4223-4309-bf7b-090af2bd3f00"], Cell[294258, 7177, 672, 19, 41, "Print",ExpressionUUID->"59e3e5ff-2d0f-4b36-ba19-6086788a2278"], Cell[294933, 7198, 658, 18, 41, "Print",ExpressionUUID->"03aa9430-879e-4088-acd8-d11ce834085d"], Cell[295594, 7218, 680, 19, 41, "Print",ExpressionUUID->"bac53dd9-0c5d-4df3-80c8-6f31c62bb220"], Cell[296277, 7239, 268, 6, 27, "Print",ExpressionUUID->"8c71a8fa-82af-4df4-a389-dbe95faf2c83"], Cell[296548, 7247, 1579, 40, 43, "Print",ExpressionUUID->"ea404d2d-81e0-450a-b306-c21fc059b453"], Cell[298130, 7289, 1599, 41, 43, "Print",ExpressionUUID->"18bf6f90-c956-4eed-839b-3b7aa280a4a4"], Cell[299732, 7332, 1487, 40, 43, "Print",ExpressionUUID->"028e4c81-2369-4afc-96e6-9a9a67614674"], Cell[301222, 7374, 1792, 47, 43, "Print",ExpressionUUID->"4e9acc37-deb5-4171-87e8-0ea805d9c38e"], Cell[303017, 7423, 1813, 47, 43, "Print",ExpressionUUID->"87c35cfc-dfa0-4f84-930e-ce93412555f0"], Cell[304833, 7472, 269, 6, 27, "Print",ExpressionUUID->"b21ff612-a3ef-430b-b3ac-c124fe51bdd6"], Cell[305105, 7480, 2080, 58, 51, "Print",ExpressionUUID->"28175114-5f8b-4939-957d-89c3f9619834"], Cell[307188, 7540, 1629, 46, 45, "Print",ExpressionUUID->"7419d2e6-56d5-4d1f-9689-119fb48f7e73"], Cell[308820, 7588, 1513, 44, 45, "Print",ExpressionUUID->"2615d4e5-a500-4e8e-bf89-e171392193b5"], Cell[310336, 7634, 1631, 46, 45, "Print",ExpressionUUID->"7c841057-b9a8-4537-8128-46fea7f3009e"], Cell[311970, 7682, 1996, 56, 50, "Print",ExpressionUUID->"716f28bd-a639-4216-9cd1-b30131ada337"], Cell[313969, 7740, 1407, 41, 45, "Print",ExpressionUUID->"f5645cc3-c7e3-4891-adb7-8c8ceeb3c9b7"], Cell[315379, 7783, 1511, 44, 45, "Print",ExpressionUUID->"e219bcaf-f1e3-4a92-8e9e-ec7a372d574b"], Cell[316893, 7829, 1406, 41, 45, "Print",ExpressionUUID->"a922bdeb-c6bc-4e75-a5f6-45e8afb0419c"], Cell[318302, 7872, 681, 24, 27, "Print",ExpressionUUID->"40e1b645-574b-4c14-84bf-2029f30695fb"], Cell[318986, 7898, 1813, 53, 53, "Print",ExpressionUUID->"6238aaf2-c855-4cff-b687-dd619d2bc238"], Cell[320802, 7953, 1769, 51, 49, "Print",ExpressionUUID->"7c5dba60-82ac-4ac1-ac77-9784997bb8e5"], Cell[322574, 8006, 693, 24, 27, "Print",ExpressionUUID->"9e7fa0b5-a958-4353-80ff-c18b99efa9c9"], Cell[323270, 8032, 1771, 51, 49, "Print",ExpressionUUID->"273e9bf4-2b8f-4c3c-9c91-dbe5be095b32"], Cell[325044, 8085, 1850, 52, 53, "Print",ExpressionUUID->"9dfe9822-71d5-44b9-a72c-876b92d0da46"], Cell[326897, 8139, 697, 24, 27, "Print",ExpressionUUID->"270ad7fe-7c17-46c6-bf60-1178c2a8345c"], Cell[327597, 8165, 1613, 47, 50, "Print",ExpressionUUID->"62aa985f-0a8d-4232-a70e-d100095df2b8"], Cell[329213, 8214, 1509, 44, 50, "Print",ExpressionUUID->"6d3d1198-f03f-4384-aa8f-620c6072c3c8"], Cell[330725, 8260, 683, 24, 27, "Print",ExpressionUUID->"1af5be93-0877-4d6a-98b5-2c9947521a65"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[331469, 8291, 1804, 27, 46, "Subsection",ExpressionUUID->"2b22a67b-a7d0-4f15-8d7c-f2d207ae9e29"], Cell[333276, 8320, 2767, 69, 946, "Input",ExpressionUUID->"cce0ece2-9cdf-42e7-a954-633562d9afc4"] }, Closed]], Cell[CellGroupData[{ Cell[336080, 8394, 1797, 26, 46, "Subsection",ExpressionUUID->"09310305-b837-45d7-a692-b7a3754ba2cb"], Cell[337880, 8422, 2669, 63, 327, "Input",ExpressionUUID->"dc2fb6cd-34b2-4be4-9fd6-04f729a2a391"] }, Closed]], Cell[CellGroupData[{ Cell[340586, 8490, 1652, 24, 46, "Subsection",ExpressionUUID->"a67b8714-4c7d-4842-befb-d82030e36b91"], Cell[342241, 8516, 8570, 139, 271, "Input",ExpressionUUID->"7c54c588-301b-42eb-bdc0-ccc43d0f3c6c"], Cell[350814, 8657, 149, 3, 59, "Input",ExpressionUUID->"9fc4db90-ac61-42df-b850-ca116c5d8e0b"] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[351012, 8666, 1632, 24, 83, "Section",ExpressionUUID->"a70038ea-6cec-4882-a740-cc15b3b2c307"], Cell[CellGroupData[{ Cell[352669, 8694, 1705, 25, 67, "Subsection",ExpressionUUID->"08469c09-dd7d-471d-b9f4-34062aeb683b"], Cell[CellGroupData[{ Cell[354399, 8723, 2045, 50, 155, "Input",ExpressionUUID->"a6326677-7c2e-45be-9095-016922b06d1b"], Cell[356447, 8775, 896, 18, 63, "Output",ExpressionUUID->"78bb1d54-3b99-4a30-910f-ac623879bda0"] }, Open ]], Cell[CellGroupData[{ Cell[357380, 8798, 8553, 140, 131, "Input",ExpressionUUID->"58b26d03-e061-4d05-8d0e-d70e499b4470"], Cell[365936, 8940, 5238, 107, 299, "Output",ExpressionUUID->"1e6bcf71-579e-4208-889f-eeb53d50b16f"] }, Open ]], Cell[371189, 9050, 149, 3, 60, "Input",ExpressionUUID->"a48e452c-94b9-439c-9cb3-daff39309a06"] }, Open ]] }, Closed]] } ] *)