(* 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[    533006,      13615]
NotebookOptionsPosition[    504699,      13251]
NotebookOutlinePosition[    505246,      13270]
CellTagsIndexPosition[    505203,      13267]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Shell defs 2023", "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, 
   3.8582093815620637`*^9, {3.889575757927992*^9, 
   3.889575758132743*^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 =\>\"", ",", "vars"}], " ", "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"basis", "=", 
      RowBox[{"{", 
       RowBox[{
        SubscriptBox["e", "\[Alpha]"], ",", 
        SubscriptBox["e", "\[Beta]"], ",", 
        SubscriptBox["e", "n"]}], "}"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Print", "[", 
      RowBox[{"\"\<e =\>\"", ",", 
       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[{"\"\<HH =\>\"", ",", 
         RowBox[{"MatrixForm", "[", "HH", "]"}]}], "]"}], ";"}], "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"Print", "[", 
        RowBox[{"\"\<HHinv =\>\"", ",", 
         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[{"\"\<K =\>\"", ",", 
         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[{"\"\<D =\>\"", ",", 
       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[{"\"\<J  =\>\"", ",", 
       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[{"comp1", "=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"\[Epsilon]\[Epsilon]", "[", 
          RowBox[{"i", ",", "j"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "vars"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "vars"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Evaluate", "[", "comp1", "]"}], "=", 
       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[{"comp2", "=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"\[Kappa]\[Kappa]", "[", 
          RowBox[{"i", ",", "j"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "vars"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "vars"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Evaluate", "[", "comp2", "]"}], "=", 
       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[{"comp3", "=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"FD", "[", 
          RowBox[{"i", ",", "j"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "vars"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "vars"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Evaluate", "[", "comp3", "]"}], "=", 
       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[{"comp4", "=", 
       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", "[", "comp4", "]"}], "=", 
       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[{
      "\[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]", "\[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"}], "}"}]}], "]"}], ";"}]}], 
    "\[IndentingNewLine]", 
    RowBox[{"(*", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"\[Delta]\[Delta]", "[", "exp_", "]"}], ":=", 
       RowBox[{"exp", "/.", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"u", "[", 
            RowBox[{"a_", ",", "b_"}], "]"}], "->", 
           RowBox[{"\[Delta]u", "[", 
            RowBox[{"a", ",", "b"}], "]"}]}], ",", 
          RowBox[{
           RowBox[{"\[Theta]", "[", 
            RowBox[{"a_", ",", "b_"}], "]"}], "->", 
           RowBox[{"\[Delta]\[Theta]", "[", 
            RowBox[{"a", ",", "b"}], "]"}]}]}], "}"}]}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{"MatrixForm", "[", 
        RowBox[{"\[Epsilon]c", "=", "comp1"}], "]"}], "]"}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{"MatrixForm", "[", 
        RowBox[{"\[Kappa]c", "=", "comp2"}], "]"}], "]"}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{"MatrixForm", "[", 
        RowBox[{"\[Delta]\[Epsilon]c", "=", 
         RowBox[{"\[Delta]\[Delta]", "[", "comp1", "]"}]}], "]"}], "]"}], ";",
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{"MatrixForm", "[", 
        RowBox[{"\[Delta]\[Kappa]c", "=", 
         RowBox[{"\[Delta]\[Delta]", "[", "comp2", "]"}]}], "]"}], "]"}], ";",
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{"MatrixForm", "[", "\[IndentingNewLine]", 
        RowBox[{"FullSimplify", "[", 
         RowBox[{"Fc", "=", 
          RowBox[{
           RowBox[{"t", "*", 
            RowBox[{"Normal", "[", 
             RowBox[{"Series", "[", 
              RowBox[{
               RowBox[{"comp3", "/", "t"}], ",", 
               RowBox[{"{", 
                RowBox[{"t", ",", "0", ",", "nt"}], "}"}]}], "]"}], "]"}]}], 
           "  ", "/.", "asm"}]}], "]"}], "]"}], "]"}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{"MatrixForm", "[", "\[IndentingNewLine]", 
        RowBox[{"FullSimplify", "[", 
         RowBox[{"Mc", "=", 
          RowBox[{
           RowBox[{
            RowBox[{"t", "^", "3"}], "*", 
            RowBox[{"Normal", "[", 
             RowBox[{"Series", "[", 
              RowBox[{
               RowBox[{"comp4", "/", 
                RowBox[{"t", "^", "3"}]}], ",", 
               RowBox[{"{", 
                RowBox[{"t", ",", "0", ",", "nt"}], "}"}]}], "]"}], "]"}]}], 
           "  ", "/.", "asm"}]}], "]"}], "]"}], "]"}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{"-", 
        RowBox[{"FullSimplify", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Flatten", "[", "\[Delta]\[Epsilon]c", "]"}], ".", 
           RowBox[{"Flatten", "[", "Fc", "]"}]}], "+", 
          RowBox[{
           RowBox[{"Flatten", "[", "\[Delta]\[Kappa]c", "]"}], ".", 
           RowBox[{"Flatten", "[", "Mc", "]"}]}]}], "]"}]}], "]"}]}], "*)"}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]}], "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}, {3.842317113279628*^9, 
   3.8423171380665517`*^9}, {3.842317232886096*^9, 3.8423172373156385`*^9}, {
   3.8423172847110248`*^9, 3.8423172852246513`*^9}, {3.842317328557578*^9, 
   3.8423173370612793`*^9}, {3.8423174477196217`*^9, 
   3.8423174766146603`*^9}, {3.842318029744364*^9, 3.8423180302885685`*^9}, {
   3.8423181402253447`*^9, 3.842318245716791*^9}, {3.8423247604974566`*^9, 
   3.842324835863346*^9}, 3.8423248728367696`*^9, {3.8423249189661226`*^9, 
   3.8423249380660744`*^9}, 3.8423250624707346`*^9, {3.842325166226944*^9, 
   3.8423252260982265`*^9}, {3.842325312702405*^9, 3.8423253262959523`*^9}, {
   3.8423253746572495`*^9, 3.842325598160455*^9}, {3.8423257518691797`*^9, 
   3.842325789525806*^9}, {3.842325992819614*^9, 3.842326014791526*^9}, 
   3.842326049623048*^9, {3.842326095196203*^9, 3.8423261667567987`*^9}, {
   3.8423262383651977`*^9, 3.84232631260314*^9}, {3.842326355133*^9, 
   3.842326398774784*^9}, {3.8423264294735203`*^9, 3.8423265425487022`*^9}, {
   3.842326574589607*^9, 3.8423266573004484`*^9}, {3.842326710440499*^9, 
   3.8423268122541437`*^9}, {3.8423268522425175`*^9, 3.8423268598422737`*^9}, 
   3.8423269063238*^9, {3.8582095988097095`*^9, 3.858209604164939*^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}},
 CellLabel->"In[16]:=",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]]
}, Closed]],

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[{"R", ">", "0"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"asm", " ", "=", 
    RowBox[{"{", "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", "\"\<KINEMATICS:\>\"", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"SHELLKINEMATICS", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", "\"\<EQUILIBRIUM:\>\"", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"SHELLEQUILIBRIUM", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", "\"\<CONSTITUTIVE:\>\"", "]"}], 
  ";"}], "\[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.8582376462864656`*^9},
 CellLabel->"In[33]:=",ExpressionUUID->"ebed0d67-b88e-49cc-9053-27d911bd9bf8"],

Cell[CellGroupData[{

Cell[BoxData["\<\"KINEMATICS:\"\>"], "Print",
 CellChangeTimes->{3.8896007619441442`*^9},
 CellLabel->
  "During evaluation of \
In[33]:=",ExpressionUUID->"270aa2bc-1827-4e13-8e4f-ba67aca7fa2a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"vars =\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"x", ",", "y", ",", "n"}], "}"}]}],
  SequenceForm["vars =", {$CellContext`x, $CellContext`y, $CellContext`n}],
  Editable->False]], "Print",
 CellChangeTimes->{3.8896007619531193`*^9},
 CellLabel->
  "During evaluation of \
In[33]:=",ExpressionUUID->"962f2fc8-e51d-4df8-bc8b-edee0e727c9d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"e =\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", 
     TagBox[GridBox[{
        {
         SubscriptBox["e", "x"]},
        {
         SubscriptBox["e", "y"]},
        {
         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`x], 
     Subscript[$CellContext`e, $CellContext`y], 
     Subscript[$CellContext`e, $CellContext`n]}]],
  Editable->False]], "Print",
 CellChangeTimes->{3.8896007619640903`*^9},
 CellLabel->
  "During evaluation of \
In[33]:=",ExpressionUUID->"edb42f3b-bb23-4410-b79b-a2ac81a0b45d"],

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.8896007619720683`*^9},
 CellLabel->
  "During evaluation of \
In[33]:=",ExpressionUUID->"a113503f-ff52-40e6-916a-1e37d9752966"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(\[PartialD]\\), \\(\[Alpha]\\)]\\)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$]]], "\[InvisibleSpace]", "\<\"   \"\>", 
   "\[InvisibleSpace]", "\<\"\\!\\(\\*SubscriptBox[\\(\[PartialD]\\), \\(\
\[Beta]\\)]\\)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$]]], "\[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[{0, 0, 0}], "   ", 
   "\!\(\*SubscriptBox[\(\[PartialD]\), \(\[Beta]\)]\)e =", 
   MatrixForm[{0, 0, 0}], "   ", 
   "\!\(\*SubscriptBox[\(\[PartialD]\), \(n\)]\)e =", 
   MatrixForm[{0, 0, 0}]],
  Editable->False]], "Print",
 CellChangeTimes->{3.889600761979054*^9},
 CellLabel->
  "During evaluation of \
In[33]:=",ExpressionUUID->"763a14b9-4585-4d64-bb7b-9c4917123e17"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\[Del] =\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0"},
       {"0", "1", "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"]}], "+", 
    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.8896007619890237`*^9},
 CellLabel->
  "During evaluation of \
In[33]:=",ExpressionUUID->"2b7ab849-4b30-4c74-afee-9cfa528c0f85"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\[Kappa] =\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0"},
       {"0", "0"}
      },
      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]", "0"}],
  SequenceForm["\[Kappa] =", 
   MatrixForm[{{0, 0}, {0, 0}}], "      ", "\[Kappa] =", 0],
  Editable->False]], "Print",
 CellChangeTimes->{3.8896007619940095`*^9},
 CellLabel->
  "During evaluation of \
In[33]:=",ExpressionUUID->"53f0ba3f-6aaf-4180-b6e7-af13c7bbfb18"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"D =\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0"},
       {"0", "1", "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[{{1, 0, 0}, {0, 1, 0}, {0, 0, 1}}]],
  Editable->False]], "Print",
 CellChangeTimes->{3.8896007620039835`*^9},
 CellLabel->
  "During evaluation of \
In[33]:=",ExpressionUUID->"883537bd-f6f3-45f9-96f1-4e240af036d0"],

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.889600762011969*^9},
 CellLabel->
  "During evaluation of \
In[33]:=",ExpressionUUID->"65d4ea2a-9770-454c-9ac4-ecb6ccbb17db"],

Cell[BoxData["\<\"EQUILIBRIUM:\"\>"], "Print",
 CellChangeTimes->{3.889600762018943*^9},
 CellLabel->
  "During evaluation of \
In[33]:=",ExpressionUUID->"4814f0bf-cab9-4ddc-af01-6bf23912033f"],

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.889600762024928*^9},
 CellLabel->
  "During evaluation of \
In[33]:=",ExpressionUUID->"ad86d7b5-9004-413c-942d-a8622f8b55af"],

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.889600762033904*^9},
 CellLabel->
  "During evaluation of \
In[33]:=",ExpressionUUID->"8b7a49aa-f741-4358-b135-886d28ed63d4"],

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.889600762040886*^9},
 CellLabel->
  "During evaluation of \
In[33]:=",ExpressionUUID->"7d5d0435-4e3e-450b-b4d7-7dc772cc47ac"],

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.8896007620478663`*^9},
 CellLabel->
  "During evaluation of \
In[33]:=",ExpressionUUID->"4e129c35-49e8-4eea-83f3-9db04d582369"],

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.8896007620558443`*^9},
 CellLabel->
  "During evaluation of \
In[33]:=",ExpressionUUID->"04270c2d-b8cf-4662-af13-c204f8488d97"],

Cell[BoxData["\<\"CONSTITUTIVE:\"\>"], "Print",
 CellChangeTimes->{3.889600762060831*^9},
 CellLabel->
  "During evaluation of \
In[33]:=",ExpressionUUID->"6a10f0d6-c3f3-4c96-9cb9-1d94cc110abf"],

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)^(-1) (
     Subscript[$CellContext`u, $CellContext`x, $CellContext`x] + \
$CellContext`\[Nu] 
      Subscript[$CellContext`u, $CellContext`y, $CellContext`y])]],
  Editable->False]], "Print",
 CellChangeTimes->{3.8896007620688105`*^9},
 CellLabel->
  "During evaluation of \
In[33]:=",ExpressionUUID->"37d5a86c-51ef-40a4-b4c7-defe171cc18b"],

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])^(-1) (
     Subscript[$CellContext`u, $CellContext`x, $CellContext`y] + 
     Subscript[$CellContext`u, $CellContext`y, $CellContext`x])]],
  Editable->False]], "Print",
 CellChangeTimes->{3.8896007620757914`*^9},
 CellLabel->
  "During evaluation of \
In[33]:=",ExpressionUUID->"1a4c84f6-0f72-4730-8616-c3fa7a6c0be9"],

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])^(-1) (
     Subscript[$CellContext`\[Theta], $CellContext`y] + 
     Subscript[$CellContext`u, $CellContext`n, $CellContext`x])]],
  Editable->False]], "Print",
 CellChangeTimes->{3.8896007620837717`*^9},
 CellLabel->
  "During evaluation of \
In[33]:=",ExpressionUUID->"33d4ae75-ac61-4866-8f5a-0b5bab8de385"],

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])^(-1) (
     Subscript[$CellContext`u, $CellContext`x, $CellContext`y] + 
     Subscript[$CellContext`u, $CellContext`y, $CellContext`x])]],
  Editable->False]], "Print",
 CellChangeTimes->{3.889600762091748*^9},
 CellLabel->
  "During evaluation of \
In[33]:=",ExpressionUUID->"9ee752f4-0f3f-4cde-966d-5615e07562a1"],

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)^(-1) ($CellContext`\[Nu] 
      Subscript[$CellContext`u, $CellContext`x, $CellContext`x] + 
     Subscript[$CellContext`u, $CellContext`y, $CellContext`y])]],
  Editable->False]], "Print",
 CellChangeTimes->{3.88960076209873*^9},
 CellLabel->
  "During evaluation of \
In[33]:=",ExpressionUUID->"6bed575e-ce5a-4d3e-b468-8ce018b089db"],

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])^(-1) (-
      Subscript[$CellContext`\[Theta], $CellContext`x] + 
     Subscript[$CellContext`u, $CellContext`n, $CellContext`y])]],
  Editable->False]], "Print",
 CellChangeTimes->{3.8896007621067085`*^9},
 CellLabel->
  "During evaluation of \
In[33]:=",ExpressionUUID->"80f1f9af-56db-441a-bd13-8f5208ebbff6"],

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])^(-1) (
     Subscript[$CellContext`\[Theta], $CellContext`y] + 
     Subscript[$CellContext`u, $CellContext`n, $CellContext`x])]],
  Editable->False]], "Print",
 CellChangeTimes->{3.889600762112705*^9},
 CellLabel->
  "During evaluation of \
In[33]:=",ExpressionUUID->"6e006495-1e2e-460d-a936-6c1ab1773ec5"],

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])^(-1) (-
      Subscript[$CellContext`\[Theta], $CellContext`x] + 
     Subscript[$CellContext`u, $CellContext`n, $CellContext`y])]],
  Editable->False]], "Print",
 CellChangeTimes->{3.8896007621206713`*^9},
 CellLabel->
  "During evaluation of \
In[33]:=",ExpressionUUID->"f8a3e13d-f55b-4947-9e19-23f253e3d8d6"],

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.8896007621276536`*^9},
 CellLabel->
  "During evaluation of \
In[33]:=",ExpressionUUID->"cf349781-49c9-4a21-abda-010496dad08f"],

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)^(-1) \
($CellContext`\[Nu] 
      Subscript[$CellContext`\[Theta], $CellContext`x, $CellContext`y] - 
     Subscript[$CellContext`\[Theta], $CellContext`y, $CellContext`x])]],
  Editable->False]], "Print",
 CellChangeTimes->{3.8896007621845026`*^9},
 CellLabel->
  "During evaluation of \
In[33]:=",ExpressionUUID->"b2d3f8cd-0504-40df-8ae1-1f8db7ce0368"],

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])^(-1) (-
      Subscript[$CellContext`\[Theta], $CellContext`x, $CellContext`x] + 
     Subscript[$CellContext`\[Theta], $CellContext`y, $CellContext`y])]],
  Editable->False]], "Print",
 CellChangeTimes->{3.889600762206442*^9},
 CellLabel->
  "During evaluation of \
In[33]:=",ExpressionUUID->"3e512b8a-1a88-4bdc-b50c-bec1af94d870"],

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.889600762211429*^9},
 CellLabel->
  "During evaluation of \
In[33]:=",ExpressionUUID->"b66c9ea5-20ed-45d4-aad3-aefa63f2a735"],

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])^(-1) (-
      Subscript[$CellContext`\[Theta], $CellContext`x, $CellContext`x] + 
     Subscript[$CellContext`\[Theta], $CellContext`y, $CellContext`y])]],
  Editable->False]], "Print",
 CellChangeTimes->{3.889600762219408*^9},
 CellLabel->
  "During evaluation of \
In[33]:=",ExpressionUUID->"ba780967-cd5e-4098-81a0-72eb9962bc95"],

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)^(-1) (
     Subscript[$CellContext`\[Theta], $CellContext`x, $CellContext`y] - \
$CellContext`\[Nu] 
     Subscript[$CellContext`\[Theta], $CellContext`y, $CellContext`x])]],
  Editable->False]], "Print",
 CellChangeTimes->{3.889600762226389*^9},
 CellLabel->
  "During evaluation of \
In[33]:=",ExpressionUUID->"8a08d47c-7cf6-4271-9abf-c43ca1daafc1"],

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.889600762232373*^9},
 CellLabel->
  "During evaluation of \
In[33]:=",ExpressionUUID->"f1a593ec-c4c7-40d2-8d14-a80c379a3017"],

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.8896007622393546`*^9},
 CellLabel->
  "During evaluation of \
In[33]:=",ExpressionUUID->"001e074d-12cd-414c-9c11-bf5a3026bb98"],

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.8896007622433434`*^9},
 CellLabel->
  "During evaluation of \
In[33]:=",ExpressionUUID->"d87de9c7-62c1-4041-bfe7-4a59f22f4fb0"],

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.889600762250326*^9},
 CellLabel->
  "During evaluation of \
In[33]:=",ExpressionUUID->"dd94403a-2bc4-48be-8556-182d6eef63ed"]
}, 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", "[", "\"\<KINEMATICS:\>\"", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"SHELLKINEMATICS", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", "\"\<EQUILIBRIUM:\>\"", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"SHELLEQUILIBRIUM", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", "\"\<CONSTITUTIVE:\>\"", "]"}], 
  ";"}], "\[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[44]:=",ExpressionUUID->"9d30d14f-b65a-44d8-b58b-51994809713b"],

Cell[CellGroupData[{

Cell[BoxData["\<\"KINEMATICS:\"\>"], "Print",
 CellChangeTimes->{3.8896008026921797`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"ea98df30-84d8-4015-8b10-a168dea4582c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"vars =\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"r", ",", "\[Phi]", ",", "n"}], "}"}]}],
  SequenceForm[
  "vars =", {$CellContext`r, $CellContext`\[Phi], $CellContext`n}],
  Editable->False]], "Print",
 CellChangeTimes->{3.889600802699164*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"c7cc8af7-5b15-4272-8b04-9ee053ba4a7e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"e =\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", 
     TagBox[GridBox[{
        {
         SubscriptBox["e", "r"]},
        {
         SubscriptBox["e", "\[Phi]"]},
        {
         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`r], 
     Subscript[$CellContext`e, $CellContext`\[Phi]], 
     Subscript[$CellContext`e, $CellContext`n]}]],
  Editable->False]], "Print",
 CellChangeTimes->{3.8896008027111297`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"1c297b61-78f4-47ae-a78e-0af9461abe4c"],

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.889600802718111*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"8f56435a-ae68-4f39-98b3-6f75dbdcb518"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(\[PartialD]\\), \\(\[Alpha]\\)]\\)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$]]], "\[InvisibleSpace]", "\<\"   \"\>", 
   "\[InvisibleSpace]", "\<\"\\!\\(\\*SubscriptBox[\\(\[PartialD]\\), \\(\
\[Beta]\\)]\\)e =\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", 
     TagBox[GridBox[{
        {
         SubscriptBox["e", "\[Phi]"]},
        {
         RowBox[{"-", 
          SubscriptBox["e", "r"]}]},
        {"0"}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.5599999999999999]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}],
      Column], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"   \"\>", 
   "\[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[{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.8896008027270947`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"12efc640-0fc5-45e2-a3b9-fc645ec5675f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\[Del] =\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "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"]}], "+", 
    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.8896008027350726`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"3af0c742-5b00-4f7b-852b-d7a6319f973c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\[Kappa] =\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0"},
       {"0", "0"}
      },
      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]", "0"}],
  SequenceForm["\[Kappa] =", 
   MatrixForm[{{0, 0}, {0, 0}}], "      ", "\[Kappa] =", 0],
  Editable->False]], "Print",
 CellChangeTimes->{3.8896008027428904`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"73a5b82c-51aa-4ec5-a877-79d0ee3884a4"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"D =\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0"},
       {"0", "1", "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[{{1, 0, 0}, {0, 1, 0}, {0, 0, 1}}]],
  Editable->False]], "Print",
 CellChangeTimes->{3.8896008027508693`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"0edaf23e-d489-4f6e-89fc-246c2df3a468"],

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.8896008027598453`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"ee317a25-f743-493f-bf21-94bc1580bf20"],

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.8896008027698183`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"7391e7e5-f141-4a43-83d3-53fa997f47a1"],

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.889600802776799*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"72902b88-8474-4327-b8ac-82e671d0e850"],

Cell[BoxData["\<\"EQUILIBRIUM:\"\>"], "Print",
 CellChangeTimes->{3.889600802780789*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"c1ff2b10-887b-4008-a1c9-06698ed68cb7"],

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.889600802789765*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"105dd3a7-0635-4a00-b024-5258ff0f3b46"],

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.8896008027987537`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"8cde3000-9bfa-40a0-bf38-2d0dc146dee4"],

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.88960080280672*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"078cdbcc-9926-43fa-a708-2ca9863c968a"],

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.8896008028137007`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"3e61aed5-ae84-4a79-9cf2-a2ded4a3143d"],

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.8896008028226767`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"b84f3108-75f1-436d-a0a0-86c37ed3d964"],

Cell[BoxData["\<\"CONSTITUTIVE:\"\>"], "Print",
 CellChangeTimes->{3.88960080282866*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"6bedd6ee-c6d8-4c4b-a383-7bfdefe09eee"],

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^(-1) $CellContext`t (-1 + \
$CellContext`\[Nu]^2)^(-1) ($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.889600802837638*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"afcb5391-587f-4638-8a8b-2600821ab2a3"],

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^(-1) $CellContext`t (
      1 + $CellContext`\[Nu])^(-1) (-
      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.889600802902464*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"c80c1619-0521-44ad-8b95-d1124c785420"],

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])^(-1) (
     Subscript[$CellContext`\[Theta], $CellContext`\[Phi]] + 
     Subscript[$CellContext`u, $CellContext`n, $CellContext`r])]],
  Editable->False]], "Print",
 CellChangeTimes->{3.8896008029254017`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"9d030a18-5d75-46eb-8437-6f5c75564019"],

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^(-1) $CellContext`t (
      1 + $CellContext`\[Nu])^(-1) (-
      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.88960080293438*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"263aec5a-785a-4682-a6e6-7324078069c7"],

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^(-1) $CellContext`t (-1 + \
$CellContext`\[Nu]^2)^(-1) (
     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.8896008029642572`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"5aa9a54e-ac4a-42c7-8ef5-1d11793a9111"],

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^(-1) $CellContext`t (
      1 + $CellContext`\[Nu])^(-1) (-$CellContext`r 
      Subscript[$CellContext`\[Theta], $CellContext`r] + 
     Subscript[$CellContext`u, $CellContext`n, $CellContext`\[Phi]])]],
  Editable->False]], "Print",
 CellChangeTimes->{3.8896008029911857`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"ed8c7f14-8d1b-48d4-93f6-e32d9d1c4912"],

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])^(-1) (
     Subscript[$CellContext`\[Theta], $CellContext`\[Phi]] + 
     Subscript[$CellContext`u, $CellContext`n, $CellContext`r])]],
  Editable->False]], "Print",
 CellChangeTimes->{3.8896008029998198`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"a53203c7-aa11-4d2d-93c3-98e0ebe9bc66"],

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^(-1) $CellContext`t (
      1 + $CellContext`\[Nu])^(-1) (-$CellContext`r 
      Subscript[$CellContext`\[Theta], $CellContext`r] + 
     Subscript[$CellContext`u, $CellContext`n, $CellContext`\[Phi]])]],
  Editable->False]], "Print",
 CellChangeTimes->{3.889600803017766*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"66adf400-a436-4728-a0d6-507fb6e38da0"],

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.889600803026104*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"d6cc9a12-0128-43db-9b37-203046451f1b"],

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^(-1) $CellContext`t^3 (-1 + \
$CellContext`\[Nu]^2)^(-1) ($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.8896008030580616`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"4b6011d2-4780-4eee-8df4-1fc5b143bc2a"],

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^(-1) $CellContext`t^3 (
      1 + $CellContext`\[Nu])^(-1) (
     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.889600803096076*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"2b4a99f5-87c5-4d35-afeb-27b1af0e8359"],

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.88960080310605*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"6767d7cb-b54d-4ba4-b13a-75551a904f4b"],

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^(-1) $CellContext`t^3 (
      1 + $CellContext`\[Nu])^(-1) (
     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.889600803114028*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"d825822e-d48c-42c7-8813-37082220e372"],

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^(-1) $CellContext`t^3 (-1 + \
$CellContext`\[Nu]^2)^(-1) (
     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.8896008031533313`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"5589d458-1f55-4167-8bab-bc13ed7f2272"],

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.8896008031613097`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"616c4980-37b9-4212-91d6-4daa64a3d280"],

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.889600803167295*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"e14c168b-b6d9-43bd-827e-ca64e0b46a5a"],

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.8896008031742754`*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"90b48d4a-a5d6-43cf-9d32-84230738f128"],

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.889600803179268*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"0036539e-f4f2-40aa-90a3-425ca020c108"]
}, 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", "[", "\"\<KINEMATICS:\>\"", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"SHELLKINEMATICS", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", "\"\<EQUILIBRIUM:\>\"", "]"}], 
  ";"}], "\[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[46]:=",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[CellGroupData[{

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", "[", "\"\<KINEMATICS:\>\"", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"SHELLKINEMATICS", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", "\"\<EQUILIBRIUM:\>\"", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"SHELLEQUILIBRIUM", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", "\"\<CONSTITUTIVE:\>\"", "]"}], 
  ";"}], "\[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, 3.858238455599561*^9, 
   3.858238569071186*^9},
 CellLabel->"In[55]:=",ExpressionUUID->"897504cf-f8b4-4d9c-a3e0-7d7327b5ace5"],

Cell[CellGroupData[{

Cell[BoxData["\<\"KINEMATICS:\"\>"], "Print",
 CellChangeTimes->{3.889600825859866*^9},
 CellLabel->
  "During evaluation of \
In[55]:=",ExpressionUUID->"5474bd10-a9e5-4041-8a62-39b385cc81ef"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"vars =\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"z", ",", "\[Phi]", ",", "n"}], "}"}]}],
  SequenceForm[
  "vars =", {$CellContext`z, $CellContext`\[Phi], $CellContext`n}],
  Editable->False]], "Print",
 CellChangeTimes->{3.889600825870022*^9},
 CellLabel->
  "During evaluation of \
In[55]:=",ExpressionUUID->"4a0ac9ea-3ef9-4e4f-b1d2-7f880aabe3ee"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"e =\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", 
     TagBox[GridBox[{
        {
         SubscriptBox["e", "z"]},
        {
         SubscriptBox["e", "\[Phi]"]},
        {
         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`z], 
     Subscript[$CellContext`e, $CellContext`\[Phi]], 
     Subscript[$CellContext`e, $CellContext`n]}]],
  Editable->False]], "Print",
 CellChangeTimes->{3.8896008258819833`*^9},
 CellLabel->
  "During evaluation of \
In[55]:=",ExpressionUUID->"df8d7772-04ee-4a6c-9a0e-a7add49f26d1"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(r\\), \\(0\\)]\\) =\"\>", 
   "\[InvisibleSpace]", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "R"}], " ", 
     SubscriptBox["e", "n"]}], "+", 
    RowBox[{"z", " ", 
     SubscriptBox["e", "z"]}]}]}],
  SequenceForm[
  "\!\(\*SubscriptBox[\(r\), \(0\)]\) =", -$CellContext`R 
    Subscript[$CellContext`e, $CellContext`n] + $CellContext`z 
    Subscript[$CellContext`e, $CellContext`z]],
  Editable->False]], "Print",
 CellChangeTimes->{3.889600825888966*^9},
 CellLabel->
  "During evaluation of \
In[55]:=",ExpressionUUID->"f2146617-6943-4670-a90d-b06f3ed86eca"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(\[PartialD]\\), \\(\[Alpha]\\)]\\)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$]]], "\[InvisibleSpace]", "\<\"   \"\>", 
   "\[InvisibleSpace]", "\<\"\\!\\(\\*SubscriptBox[\\(\[PartialD]\\), \\(\
\[Beta]\\)]\\)e =\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", 
     TagBox[GridBox[{
        {"0"},
        {
         SubscriptBox["e", "n"]},
        {
         RowBox[{"-", 
          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]\\), \
\\(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[{0, 0, 0}], "   ", 
   "\!\(\*SubscriptBox[\(\[PartialD]\), \(\[Beta]\)]\)e =", 
   MatrixForm[{0, 
     Subscript[$CellContext`e, $CellContext`n], -
     Subscript[$CellContext`e, $CellContext`\[Phi]]}], "   ", 
   "\!\(\*SubscriptBox[\(\[PartialD]\), \(n\)]\)e =", 
   MatrixForm[{0, 0, 0}]],
  Editable->False]], "Print",
 CellChangeTimes->{3.8896008258989377`*^9},
 CellLabel->
  "During evaluation of \
In[55]:=",ExpressionUUID->"f1c2f28b-e1f0-431a-bbb3-1ac2bf722237"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\[Del] =\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "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"]}], "+", 
    RowBox[{
     SubscriptBox["\<\"\[PartialD]\"\>", "z"], " ", 
     SubscriptBox["e", "z"]}], "+", 
    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`z] 
    Subscript[$CellContext`e, $CellContext`z] + $CellContext`R^(-1) 
    Subscript["\[PartialD]", $CellContext`\[Phi]] 
    Subscript[$CellContext`e, $CellContext`\[Phi]]],
  Editable->False]], "Print",
 CellChangeTimes->{3.8896008259079146`*^9},
 CellLabel->
  "During evaluation of \
In[55]:=",ExpressionUUID->"a3113cbf-c5c1-43e8-96e8-ff849523cb8a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\[Kappa] =\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "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[{"-", 
    FractionBox[
     RowBox[{
      SubscriptBox["e", "\[Phi]"], "\[CircleTimes]", 
      SubscriptBox["e", "\[Phi]"]}], "R"]}]}],
  SequenceForm["\[Kappa] =", 
   MatrixForm[{{0, 0}, {0, (-1)/$CellContext`R}}], "      ", 
   "\[Kappa] =", -$CellContext`R^(-1) CircleTimes[
     Subscript[$CellContext`e, $CellContext`\[Phi]], 
     Subscript[$CellContext`e, $CellContext`\[Phi]]]],
  Editable->False]], "Print",
 CellChangeTimes->{3.889600825914895*^9},
 CellLabel->
  "During evaluation of \
In[55]:=",ExpressionUUID->"12cb01f0-1a6b-408c-b9c6-9350540a8b50"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"D =\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "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[{{1, 0, 0}, {
     0, $CellContext`R/(-$CellContext`n + $CellContext`R), 0}, {0, 0, 1}}]],
  Editable->False]], "Print",
 CellChangeTimes->{3.8896008259228745`*^9},
 CellLabel->
  "During evaluation of \
In[55]:=",ExpressionUUID->"34d42fe9-4754-4b68-bd59-7361aff6b4f9"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"J  =\"\>", "\[InvisibleSpace]", 
   RowBox[{"1", "-", 
    FractionBox["n", "R"]}], "\[InvisibleSpace]", "\<\"    \"\>", 
   "\[InvisibleSpace]", "\<\"\\!\\(\\*SubscriptBox[\\(J\\), \
\\(\[Alpha]\\)]\\) =\"\>", "\[InvisibleSpace]", 
   RowBox[{"1", "-", 
    FractionBox["n", "R"]}], "\[InvisibleSpace]", "\<\"    \"\>", 
   "\[InvisibleSpace]", "\<\"\\!\\(\\*SubscriptBox[\\(J\\), \\(\[Beta]\\)]\\) \
=\"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\"    \"\>", 
   "\[InvisibleSpace]", "\<\"\\!\\(\\*SubscriptBox[\\(J\\), \\(n\\)]\\) \
=\"\>", "\[InvisibleSpace]", 
   RowBox[{"1", "-", 
    FractionBox["n", "R"]}]}],
  SequenceForm[
  "J  =", 1 - $CellContext`n/$CellContext`R, "    ", 
   "\!\(\*SubscriptBox[\(J\), \(\[Alpha]\)]\) =", 
   1 - $CellContext`n/$CellContext`R, "    ", 
   "\!\(\*SubscriptBox[\(J\), \(\[Beta]\)]\) =", 1, "    ", 
   "\!\(\*SubscriptBox[\(J\), \(n\)]\) =", 1 - $CellContext`n/$CellContext`R],
  Editable->False]], "Print",
 CellChangeTimes->{3.8896008259308524`*^9},
 CellLabel->
  "During evaluation of \
In[55]:=",ExpressionUUID->"b1186a69-da34-47e9-a3a4-1644f22bbf9e"],

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.889600825938832*^9},
 CellLabel->
  "During evaluation of \
In[55]:=",ExpressionUUID->"2848620e-7e41-4cfb-aeea-de928acedcfe"],

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.889600825945812*^9},
 CellLabel->
  "During evaluation of \
In[55]:=",ExpressionUUID->"2de81009-b22c-4b1e-8d05-d525048014d3"],

Cell[BoxData["\<\"EQUILIBRIUM:\"\>"], "Print",
 CellChangeTimes->{3.8896008259517965`*^9},
 CellLabel->
  "During evaluation of \
In[55]:=",ExpressionUUID->"3959adfa-ab58-48a5-8d39-790ee65c8cad"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     RowBox[{
      FractionBox[
       SubscriptBox["N", 
        RowBox[{"\[Phi]z", ",", "\[Phi]"}]], "R"], "+", 
      SubscriptBox["N", 
       RowBox[{"zz", ",", "z"}]], "+", 
      SubscriptBox["b", "z"]}],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\" = 0\"\>"}],
  SequenceForm[
   TraditionalForm[
   Subscript[$CellContext`b, $CellContext`z] + 
    Subscript[N, $CellContext`zz, $CellContext`z] + $CellContext`R^(-1) 
     Subscript[N, $CellContext`\[Phi]z, $CellContext`\[Phi]]], " = 0"],
  Editable->False]], "Print",
 CellChangeTimes->{3.889600825958779*^9},
 CellLabel->
  "During evaluation of \
In[55]:=",ExpressionUUID->"bc1c2648-f271-47d5-861a-0019bffa2088"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     FractionBox[
      RowBox[{
       RowBox[{"R", " ", 
        SubscriptBox["N", 
         RowBox[{"z\[Phi]", ",", "z"}]]}], "+", 
       SubscriptBox["N", 
        RowBox[{"\[Phi]\[Phi]", ",", "\[Phi]"}]], "+", 
       RowBox[{"R", " ", 
        SubscriptBox["b", "\[Phi]"]}], "-", 
       SubscriptBox["Q", "\[Phi]"]}], "R"],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\" = 0\"\>"}],
  SequenceForm[
   TraditionalForm[$CellContext`R^(-1) ($CellContext`R 
      Subscript[$CellContext`b, $CellContext`\[Phi]] - 
     Subscript[$CellContext`Q, $CellContext`\[Phi]] + $CellContext`R 
      Subscript[N, $CellContext`z\[Phi], $CellContext`z] + 
     Subscript[N, $CellContext`\[Phi]\[Phi], $CellContext`\[Phi]])], " = 0"],
  Editable->False]], "Print",
 CellChangeTimes->{3.88960082596576*^9},
 CellLabel->
  "During evaluation of \
In[55]:=",ExpressionUUID->"8978ecd8-ab69-4925-99ae-083d813e55eb"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     FractionBox[
      RowBox[{
       RowBox[{"R", " ", 
        SubscriptBox["Q", 
         RowBox[{"z", ",", "z"}]]}], "+", 
       SubscriptBox["Q", 
        RowBox[{"\[Phi]", ",", "\[Phi]"}]], "+", 
       RowBox[{"R", " ", 
        SubscriptBox["b", "n"]}], "+", 
       SubscriptBox["N", "\[Phi]\[Phi]"]}], "R"],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\" = 0\"\>"}],
  SequenceForm[
   TraditionalForm[$CellContext`R^(-1) ($CellContext`R 
      Subscript[$CellContext`b, $CellContext`n] + 
     Subscript[N, $CellContext`\[Phi]\[Phi]] + $CellContext`R 
      Subscript[$CellContext`Q, $CellContext`z, $CellContext`z] + 
     Subscript[$CellContext`Q, $CellContext`\[Phi], $CellContext`\[Phi]])], 
   " = 0"],
  Editable->False]], "Print",
 CellChangeTimes->{3.8896008259737377`*^9},
 CellLabel->
  "During evaluation of \
In[55]:=",ExpressionUUID->"4af5e364-ea6f-475b-8f09-4953d58b4e64"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     RowBox[{
      FractionBox[
       SubscriptBox["M", 
        RowBox[{"\[Phi]z", ",", "\[Phi]"}]], "R"], "+", 
      SubscriptBox["M", 
       RowBox[{"zz", ",", "z"}]], "+", 
      SubscriptBox["c", "z"], "-", 
      SubscriptBox["Q", "z"]}],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\" = 0\"\>"}],
  SequenceForm[
   TraditionalForm[
   Subscript[$CellContext`c, $CellContext`z] - 
    Subscript[$CellContext`Q, $CellContext`z] + 
    Subscript[$CellContext`M, $CellContext`zz, $CellContext`z] + \
$CellContext`R^(-1) 
     Subscript[$CellContext`M, $CellContext`\[Phi]z, $CellContext`\[Phi]]], 
   " = 0"],
  Editable->False]], "Print",
 CellChangeTimes->{3.8896008259807196`*^9},
 CellLabel->
  "During evaluation of \
In[55]:=",ExpressionUUID->"f5206942-f2cd-4354-b916-82fb399de6bd"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     RowBox[{
      FractionBox[
       RowBox[{
        RowBox[{"R", " ", 
         SubscriptBox["M", 
          RowBox[{"z\[Phi]", ",", "z"}]]}], "+", 
        SubscriptBox["M", 
         RowBox[{"\[Phi]\[Phi]", ",", "\[Phi]"}]], "-", 
        SubscriptBox["M", "\[Phi]n"], "-", 
        RowBox[{"R", " ", 
         SubscriptBox["Q", "\[Phi]"]}]}], "R"], "+", 
      SubscriptBox["c", "\[Phi]"]}],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\" = 0\"\>"}],
  SequenceForm[
   TraditionalForm[
   Subscript[$CellContext`c, $CellContext`\[Phi]] + $CellContext`R^(-1) (-
       Subscript[$CellContext`M, $CellContext`\[Phi]n] - $CellContext`R 
      Subscript[$CellContext`Q, $CellContext`\[Phi]] + $CellContext`R 
       Subscript[$CellContext`M, $CellContext`z\[Phi], $CellContext`z] + 
      Subscript[$CellContext`M, $CellContext`\[Phi]\[Phi], \
$CellContext`\[Phi]])], " = 0"],
  Editable->False]], "Print",
 CellChangeTimes->{3.8896008259877076`*^9},
 CellLabel->
  "During evaluation of \
In[55]:=",ExpressionUUID->"7255e405-8306-4184-b4b2-bea8147de15d"],

Cell[BoxData["\<\"CONSTITUTIVE:\"\>"], "Print",
 CellChangeTimes->{3.88960082599568*^9},
 CellLabel->
  "During evaluation of \
In[55]:=",ExpressionUUID->"04645553-7124-416d-b1ae-e5a947947bc6"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     SubscriptBox["N", "zz"],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", 
   TagBox[
    FormBox[
     FractionBox[
      RowBox[{"EE", " ", "t", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          RowBox[{"12", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"R", " ", 
              SubscriptBox["u", 
               RowBox[{"z", ",", "z"}]]}], "+", 
             RowBox[{"\[Nu]", " ", 
              SubscriptBox["u", 
               RowBox[{"\[Phi]", ",", "\[Phi]"}]]}]}], ")"}]}]}], "+", 
         RowBox[{
          SuperscriptBox["t", "2"], " ", 
          SubscriptBox["\[Theta]", 
           RowBox[{"\[Phi]", ",", "z"}]]}], "+", 
         RowBox[{"12", " ", "\[Nu]", " ", 
          SubscriptBox["u", "n"]}]}], ")"}]}], 
      RowBox[{"12", " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Nu]", "2"], "-", "1"}], ")"}], " ", "R"}]],
     TraditionalForm],
    TraditionalForm,
    Editable->True]}],
  SequenceForm[
   TraditionalForm[
    Subscript[N, $CellContext`zz]], "=", 
   TraditionalForm[
   Rational[1, 
      12] $CellContext`EE $CellContext`R^(-1) $CellContext`t (-1 + \
$CellContext`\[Nu]^2)^(-1) (
     12 $CellContext`\[Nu] Subscript[$CellContext`u, $CellContext`n] - 
     12 ($CellContext`R 
       Subscript[$CellContext`u, $CellContext`z, $CellContext`z] + \
$CellContext`\[Nu] 
       Subscript[$CellContext`u, $CellContext`\[Phi], $CellContext`\[Phi]]) + \
$CellContext`t^2 
      Subscript[$CellContext`\[Theta], $CellContext`\[Phi], $CellContext`z])]],
  Editable->False]], "Print",
 CellChangeTimes->{3.8896008288266287`*^9},
 CellLabel->
  "During evaluation of \
In[55]:=",ExpressionUUID->"564d86ae-ea81-46da-ba7e-f9e6d777c383"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     SubscriptBox["N", "z\[Phi]"],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", 
   TagBox[
    FormBox[
     FractionBox[
      RowBox[{"EE", " ", "t", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"12", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"R", " ", 
             SubscriptBox["u", 
              RowBox[{"\[Phi]", ",", "z"}]]}], "+", 
            SubscriptBox["u", 
             RowBox[{"z", ",", "\[Phi]"}]]}], ")"}]}], "+", 
         RowBox[{
          SuperscriptBox["t", "2"], " ", 
          SubscriptBox["\[Theta]", 
           RowBox[{"z", ",", "z"}]]}]}], ")"}]}], 
      RowBox[{"24", " ", 
       RowBox[{"(", 
        RowBox[{"\[Nu]", "+", "1"}], ")"}], " ", "R"}]],
     TraditionalForm],
    TraditionalForm,
    Editable->True]}],
  SequenceForm[
   TraditionalForm[
    Subscript[N, $CellContext`z\[Phi]]], "=", 
   TraditionalForm[
   Rational[1, 24] $CellContext`EE $CellContext`R^(-1) $CellContext`t (
      1 + $CellContext`\[Nu])^(-1) (
     12 (Subscript[$CellContext`u, $CellContext`z, $CellContext`\[Phi]] + \
$CellContext`R 
        Subscript[$CellContext`u, $CellContext`\[Phi], $CellContext`z]) + \
$CellContext`t^2 
      Subscript[$CellContext`\[Theta], $CellContext`z, $CellContext`z])]],
  Editable->False]], "Print",
 CellChangeTimes->{3.8896008288892756`*^9},
 CellLabel->
  "During evaluation of \
In[55]:=",ExpressionUUID->"b2684c4b-26dc-4223-aaf4-c6909c8792a6"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     SubscriptBox["Q", "z"],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", 
   TagBox[
    FormBox[
     FractionBox[
      RowBox[{"EE", " ", "t", " ", 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["u", 
          RowBox[{"n", ",", "z"}]], "+", 
         SubscriptBox["\[Theta]", "\[Phi]"]}], ")"}]}], 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{"\[Nu]", "+", "1"}], ")"}]}]],
     TraditionalForm],
    TraditionalForm,
    Editable->True]}],
  SequenceForm[
   TraditionalForm[
    Subscript[$CellContext`Q, $CellContext`z]], "=", 
   TraditionalForm[
   Rational[1, 2] $CellContext`EE $CellContext`t (
      1 + $CellContext`\[Nu])^(-1) (
     Subscript[$CellContext`\[Theta], $CellContext`\[Phi]] + 
     Subscript[$CellContext`u, $CellContext`n, $CellContext`z])]],
  Editable->False]], "Print",
 CellChangeTimes->{3.8896008289235783`*^9},
 CellLabel->
  "During evaluation of \
In[55]:=",ExpressionUUID->"73ca5e56-49f8-4509-8d26-dd38b95d266f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     SubscriptBox["N", "\[Phi]z"],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", 
   TagBox[
    FormBox[
     FractionBox[
      RowBox[{"EE", " ", "t", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"12", " ", 
          SuperscriptBox["R", "3"], " ", 
          SubscriptBox["u", 
           RowBox[{"\[Phi]", ",", "z"}]]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"12", " ", 
             SuperscriptBox["R", "2"]}], "+", 
            SuperscriptBox["t", "2"]}], ")"}], " ", 
          SubscriptBox["u", 
           RowBox[{"z", ",", "\[Phi]"}]]}], "+", 
         RowBox[{"R", " ", 
          SuperscriptBox["t", "2"], " ", 
          SubscriptBox["\[Theta]", 
           RowBox[{"\[Phi]", ",", "\[Phi]"}]]}]}], ")"}]}], 
      RowBox[{"24", " ", 
       RowBox[{"(", 
        RowBox[{"\[Nu]", "+", "1"}], ")"}], " ", 
       SuperscriptBox["R", "3"]}]],
     TraditionalForm],
    TraditionalForm,
    Editable->True]}],
  SequenceForm[
   TraditionalForm[
    Subscript[N, $CellContext`\[Phi]z]], "=", 
   TraditionalForm[
   Rational[1, 24] $CellContext`EE $CellContext`R^(-3) $CellContext`t (
      1 + $CellContext`\[Nu])^(-1) ((12 $CellContext`R^2 + $CellContext`t^2) 
      Subscript[$CellContext`u, $CellContext`z, $CellContext`\[Phi]] + 
     12 $CellContext`R^3 
      Subscript[$CellContext`u, $CellContext`\[Phi], $CellContext`z] + \
$CellContext`R $CellContext`t^2 
      Subscript[$CellContext`\[Theta], $CellContext`\[Phi], $CellContext`\
\[Phi]])]],
  Editable->False]], "Print",
 CellChangeTimes->{3.8896008290332546`*^9},
 CellLabel->
  "During evaluation of \
In[55]:=",ExpressionUUID->"0817a373-6e89-491a-a707-7b075eb61467"],

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[{
          SuperscriptBox["t", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"R", " ", 
             SubscriptBox["\[Theta]", 
              RowBox[{"z", ",", "\[Phi]"}]]}], "-", 
            SubscriptBox["u", 
             RowBox[{"\[Phi]", ",", "\[Phi]"}]], "+", 
            SubscriptBox["u", "n"]}], ")"}]}], "-", 
         RowBox[{"12", " ", 
          SuperscriptBox["R", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"\[Nu]", " ", "R", " ", 
             SubscriptBox["u", 
              RowBox[{"z", ",", "z"}]]}], "+", 
            SubscriptBox["u", 
             RowBox[{"\[Phi]", ",", "\[Phi]"}]], "-", 
            SubscriptBox["u", "n"]}], ")"}]}]}], ")"}]}], 
      RowBox[{"12", " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Nu]", "2"], "-", "1"}], ")"}], " ", 
       SuperscriptBox["R", "3"]}]],
     TraditionalForm],
    TraditionalForm,
    Editable->True]}],
  SequenceForm[
   TraditionalForm[
    Subscript[N, $CellContext`\[Phi]\[Phi]]], "=", 
   TraditionalForm[
   Rational[1, 
      12] $CellContext`EE $CellContext`R^(-3) $CellContext`t (-1 + \
$CellContext`\[Nu]^2)^(-1) ((-12) $CellContext`R^2 (-
        Subscript[$CellContext`u, $CellContext`n] + $CellContext`R \
$CellContext`\[Nu] Subscript[$CellContext`u, $CellContext`z, $CellContext`z] + 
       Subscript[$CellContext`u, $CellContext`\[Phi], $CellContext`\[Phi]]) + \
$CellContext`t^2 (Subscript[$CellContext`u, $CellContext`n] - 
       Subscript[$CellContext`u, $CellContext`\[Phi], $CellContext`\[Phi]] + \
$CellContext`R 
        Subscript[$CellContext`\[Theta], $CellContext`z, \
$CellContext`\[Phi]]))]],
  Editable->False]], "Print",
 CellChangeTimes->{3.8896008292504935`*^9},
 CellLabel->
  "During evaluation of \
In[55]:=",ExpressionUUID->"f2837872-0ddd-4674-8b84-be92cdd57317"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     SubscriptBox["Q", "\[Phi]"],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", 
   TagBox[
    FormBox[
     RowBox[{"-", 
      FractionBox[
       RowBox[{"EE", " ", "t", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"12", " ", 
           SuperscriptBox["R", "2"]}], "+", 
          SuperscriptBox["t", "2"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           SubscriptBox["u", 
            RowBox[{"n", ",", "\[Phi]"}]]}], "+", 
          RowBox[{"R", " ", 
           SubscriptBox["\[Theta]", "z"]}], "-", 
          SubscriptBox["u", "\[Phi]"]}], ")"}]}], 
       RowBox[{"24", " ", 
        RowBox[{"(", 
         RowBox[{"\[Nu]", "+", "1"}], ")"}], " ", 
        SuperscriptBox["R", "3"]}]]}],
     TraditionalForm],
    TraditionalForm,
    Editable->True]}],
  SequenceForm[
   TraditionalForm[
    Subscript[$CellContext`Q, $CellContext`\[Phi]]], "=", 
   TraditionalForm[
   Rational[-1, 24] $CellContext`EE $CellContext`R^(-3) $CellContext`t (
     12 $CellContext`R^2 + $CellContext`t^2) (1 + $CellContext`\[Nu])^(-1) (-
      Subscript[$CellContext`u, $CellContext`\[Phi]] + $CellContext`R 
      Subscript[$CellContext`\[Theta], $CellContext`z] - 
     Subscript[$CellContext`u, $CellContext`n, $CellContext`\[Phi]])]],
  Editable->False]], "Print",
 CellChangeTimes->{3.8896008293053465`*^9},
 CellLabel->
  "During evaluation of \
In[55]:=",ExpressionUUID->"f0de176c-38cb-47ff-b37d-c42bdd785aab"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     SubscriptBox["Q", "z"],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", 
   TagBox[
    FormBox[
     FractionBox[
      RowBox[{"EE", " ", "t", " ", 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["u", 
          RowBox[{"n", ",", "z"}]], "+", 
         SubscriptBox["\[Theta]", "\[Phi]"]}], ")"}]}], 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{"\[Nu]", "+", "1"}], ")"}]}]],
     TraditionalForm],
    TraditionalForm,
    Editable->True]}],
  SequenceForm[
   TraditionalForm[
    Subscript[$CellContext`Q, $CellContext`z]], "=", 
   TraditionalForm[
   Rational[1, 2] $CellContext`EE $CellContext`t (
      1 + $CellContext`\[Nu])^(-1) (
     Subscript[$CellContext`\[Theta], $CellContext`\[Phi]] + 
     Subscript[$CellContext`u, $CellContext`n, $CellContext`z])]],
  Editable->False]], "Print",
 CellChangeTimes->{3.8896008293133264`*^9},
 CellLabel->
  "During evaluation of \
In[55]:=",ExpressionUUID->"f4ca4259-8e51-4eb4-b073-db33fbd2cb01"],

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]", "z"]}], "+", 
         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`z] + 
     Subscript[$CellContext`u, $CellContext`n, $CellContext`\[Phi]])]],
  Editable->False]], "Print",
 CellChangeTimes->{3.889600829344243*^9},
 CellLabel->
  "During evaluation of \
In[55]:=",ExpressionUUID->"13871a0e-41bb-4683-b0bd-b07195c458ac"],

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.8896008293522224`*^9},
 CellLabel->
  "During evaluation of \
In[55]:=",ExpressionUUID->"f5d8b3cd-0349-43ba-afaf-70e91c562ca5"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     SubscriptBox["M", "zz"],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", 
   TagBox[
    FormBox[
     FractionBox[
      RowBox[{"EE", " ", 
       SuperscriptBox["t", "3"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          RowBox[{"R", " ", 
           SubscriptBox["\[Theta]", 
            RowBox[{"\[Phi]", ",", "z"}]]}]}], "+", 
         SubscriptBox["u", 
          RowBox[{"z", ",", "z"}]], "+", 
         RowBox[{"\[Nu]", " ", 
          SubscriptBox["\[Theta]", 
           RowBox[{"z", ",", "\[Phi]"}]]}]}], ")"}]}], 
      RowBox[{"12", " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Nu]", "2"], "-", "1"}], ")"}], " ", "R"}]],
     TraditionalForm],
    TraditionalForm,
    Editable->True]}],
  SequenceForm[
   TraditionalForm[
    Subscript[$CellContext`M, $CellContext`zz]], "=", 
   TraditionalForm[
   Rational[1, 
      12] $CellContext`EE $CellContext`R^(-1) $CellContext`t^3 (-1 + \
$CellContext`\[Nu]^2)^(-1) (
     Subscript[$CellContext`u, $CellContext`z, $CellContext`z] + \
$CellContext`\[Nu] 
      Subscript[$CellContext`\[Theta], $CellContext`z, $CellContext`\[Phi]] - \
$CellContext`R 
     Subscript[$CellContext`\[Theta], $CellContext`\[Phi], $CellContext`z])]],
  Editable->False]], "Print",
 CellChangeTimes->{3.8896008293875074`*^9},
 CellLabel->
  "During evaluation of \
In[55]:=",ExpressionUUID->"eac41581-6d89-410f-906a-308080cff893"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     SubscriptBox["M", "z\[Phi]"],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", 
   TagBox[
    FormBox[
     RowBox[{"-", 
      FractionBox[
       RowBox[{"EE", " ", 
        SuperscriptBox["t", "3"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           SubscriptBox["\[Theta]", 
            RowBox[{"\[Phi]", ",", "\[Phi]"}]]}], "+", 
          RowBox[{"R", " ", 
           SubscriptBox["\[Theta]", 
            RowBox[{"z", ",", "z"}]]}], "+", 
          SubscriptBox["u", 
           RowBox[{"\[Phi]", ",", "z"}]]}], ")"}]}], 
       RowBox[{"24", " ", 
        RowBox[{"(", 
         RowBox[{"\[Nu]", "+", "1"}], ")"}], " ", "R"}]]}],
     TraditionalForm],
    TraditionalForm,
    Editable->True]}],
  SequenceForm[
   TraditionalForm[
    Subscript[$CellContext`M, $CellContext`z\[Phi]]], "=", 
   TraditionalForm[
   Rational[-1, 24] $CellContext`EE $CellContext`R^(-1) $CellContext`t^3 (
      1 + $CellContext`\[Nu])^(-1) (
     Subscript[$CellContext`u, $CellContext`\[Phi], $CellContext`z] + \
$CellContext`R 
      Subscript[$CellContext`\[Theta], $CellContext`z, $CellContext`z] - 
     Subscript[$CellContext`\[Theta], $CellContext`\[Phi], \
$CellContext`\[Phi]])]],
  Editable->False]], "Print",
 CellChangeTimes->{3.889600829425502*^9},
 CellLabel->
  "During evaluation of \
In[55]:=",ExpressionUUID->"41554a2b-9880-44dc-8c31-ce6ef3eb5a32"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     SubscriptBox["M", "zn"],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", 
   TagBox[
    FormBox[
     RowBox[{"-", 
      FractionBox[
       RowBox[{"EE", " ", 
        SuperscriptBox["t", "3"], " ", 
        RowBox[{"(", 
         RowBox[{
          SubscriptBox["u", 
           RowBox[{"n", ",", "z"}]], "+", 
          SubscriptBox["\[Theta]", "\[Phi]"]}], ")"}]}], 
       RowBox[{"24", " ", 
        RowBox[{"(", 
         RowBox[{"\[Nu]", "+", "1"}], ")"}], " ", "R"}]]}],
     TraditionalForm],
    TraditionalForm,
    Editable->True]}],
  SequenceForm[
   TraditionalForm[
    Subscript[$CellContext`M, $CellContext`zn]], "=", 
   TraditionalForm[
   Rational[-1, 24] $CellContext`EE $CellContext`R^(-1) $CellContext`t^3 (
      1 + $CellContext`\[Nu])^(-1) (
     Subscript[$CellContext`\[Theta], $CellContext`\[Phi]] + 
     Subscript[$CellContext`u, $CellContext`n, $CellContext`z])]],
  Editable->False]], "Print",
 CellChangeTimes->{3.889600829456428*^9},
 CellLabel->
  "During evaluation of \
In[55]:=",ExpressionUUID->"7d4b1225-fab7-4a59-add2-20a683504540"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     SubscriptBox["M", "\[Phi]z"],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", 
   TagBox[
    FormBox[
     FractionBox[
      RowBox[{"EE", " ", 
       SuperscriptBox["t", "3"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          RowBox[{"20", " ", 
           SuperscriptBox["R", "4"], " ", 
           SubscriptBox["\[Theta]", 
            RowBox[{"z", ",", "z"}]]}]}], "+", 
         RowBox[{"R", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"20", " ", 
             SuperscriptBox["R", "2"]}], "+", 
            RowBox[{"3", " ", 
             SuperscriptBox["t", "2"]}]}], ")"}], " ", 
          SubscriptBox["\[Theta]", 
           RowBox[{"\[Phi]", ",", "\[Phi]"}]]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"20", " ", 
             SuperscriptBox["R", "2"]}], "+", 
            RowBox[{"3", " ", 
             SuperscriptBox["t", "2"]}]}], ")"}], " ", 
          SubscriptBox["u", 
           RowBox[{"z", ",", "\[Phi]"}]]}]}], ")"}]}], 
      RowBox[{"480", " ", 
       RowBox[{"(", 
        RowBox[{"\[Nu]", "+", "1"}], ")"}], " ", 
       SuperscriptBox["R", "4"]}]],
     TraditionalForm],
    TraditionalForm,
    Editable->True]}],
  SequenceForm[
   TraditionalForm[
    Subscript[$CellContext`M, $CellContext`\[Phi]z]], "=", 
   TraditionalForm[
   Rational[1, 480] $CellContext`EE $CellContext`R^(-4) $CellContext`t^3 (
      1 + $CellContext`\[Nu])^(-1) ((20 $CellContext`R^2 + 3 $CellContext`t^2)
        Subscript[$CellContext`u, $CellContext`z, $CellContext`\[Phi]] - 
     20 $CellContext`R^4 
     Subscript[$CellContext`\[Theta], $CellContext`z, $CellContext`z] + \
$CellContext`R (20 $CellContext`R^2 + 3 $CellContext`t^2) 
      Subscript[$CellContext`\[Theta], $CellContext`\[Phi], $CellContext`\
\[Phi]])]],
  Editable->False]], "Print",
 CellChangeTimes->{3.889600829562149*^9},
 CellLabel->
  "During evaluation of \
In[55]:=",ExpressionUUID->"82461b8b-b69a-46c5-828f-5bc9344d5751"],

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[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"20", " ", 
             SuperscriptBox["R", "2"]}], "+", 
            RowBox[{"3", " ", 
             SuperscriptBox["t", "2"]}]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"R", " ", 
             SubscriptBox["\[Theta]", 
              RowBox[{"z", ",", "\[Phi]"}]]}], "-", 
            SubscriptBox["u", 
             RowBox[{"\[Phi]", ",", "\[Phi]"}]], "+", 
            SubscriptBox["u", "n"]}], ")"}]}], "-", 
         RowBox[{"20", " ", "\[Nu]", " ", 
          SuperscriptBox["R", "4"], " ", 
          SubscriptBox["\[Theta]", 
           RowBox[{"\[Phi]", ",", "z"}]]}]}], ")"}]}], 
      RowBox[{"240", " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Nu]", "2"], "-", "1"}], ")"}], " ", 
       SuperscriptBox["R", "4"]}]],
     TraditionalForm],
    TraditionalForm,
    Editable->True]}],
  SequenceForm[
   TraditionalForm[
    Subscript[$CellContext`M, $CellContext`\[Phi]\[Phi]]], "=", 
   TraditionalForm[
   Rational[1, 
      240] $CellContext`EE $CellContext`R^(-4) $CellContext`t^3 (-1 + \
$CellContext`\[Nu]^2)^(-1) ((20 $CellContext`R^2 + 3 $CellContext`t^2) (
       Subscript[$CellContext`u, $CellContext`n] - 
       Subscript[$CellContext`u, $CellContext`\[Phi], $CellContext`\[Phi]] + \
$CellContext`R 
        Subscript[$CellContext`\[Theta], $CellContext`z, \
$CellContext`\[Phi]]) - 20 $CellContext`R^4 $CellContext`\[Nu] 
     Subscript[$CellContext`\[Theta], $CellContext`\[Phi], $CellContext`z])]],
  Editable->False]], "Print",
 CellChangeTimes->{3.889600829691803*^9},
 CellLabel->
  "During evaluation of \
In[55]:=",ExpressionUUID->"33db2961-8381-4cad-abf3-2c5b13f8fc0a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     SubscriptBox["M", "\[Phi]n"],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", 
   TagBox[
    FormBox[
     RowBox[{"-", 
      FractionBox[
       RowBox[{"EE", " ", 
        SuperscriptBox["t", "3"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"20", " ", 
           SuperscriptBox["R", "2"]}], "+", 
          RowBox[{"3", " ", 
           SuperscriptBox["t", "2"]}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           SubscriptBox["u", 
            RowBox[{"n", ",", "\[Phi]"}]]}], "+", 
          RowBox[{"R", " ", 
           SubscriptBox["\[Theta]", "z"]}], "-", 
          SubscriptBox["u", "\[Phi]"]}], ")"}]}], 
       RowBox[{"480", " ", 
        RowBox[{"(", 
         RowBox[{"\[Nu]", "+", "1"}], ")"}], " ", 
        SuperscriptBox["R", "4"]}]]}],
     TraditionalForm],
    TraditionalForm,
    Editable->True]}],
  SequenceForm[
   TraditionalForm[
    Subscript[$CellContext`M, $CellContext`\[Phi]n]], "=", 
   TraditionalForm[
   Rational[-1, 480] $CellContext`EE $CellContext`R^(-4) $CellContext`t^3 (
     20 $CellContext`R^2 + 
     3 $CellContext`t^2) (1 + $CellContext`\[Nu])^(-1) (-
      Subscript[$CellContext`u, $CellContext`\[Phi]] + $CellContext`R 
      Subscript[$CellContext`\[Theta], $CellContext`z] - 
     Subscript[$CellContext`u, $CellContext`n, $CellContext`\[Phi]])]],
  Editable->False]], "Print",
 CellChangeTimes->{3.8896008297372775`*^9},
 CellLabel->
  "During evaluation of \
In[55]:=",ExpressionUUID->"3037abb9-ad8d-46ee-abd5-b8999dce3614"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     SubscriptBox["M", "nz"],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", 
   TagBox[
    FormBox[
     RowBox[{"-", 
      FractionBox[
       RowBox[{"EE", " ", 
        SuperscriptBox["t", "3"], " ", 
        RowBox[{"(", 
         RowBox[{
          SubscriptBox["u", 
           RowBox[{"n", ",", "z"}]], "+", 
          SubscriptBox["\[Theta]", "\[Phi]"]}], ")"}]}], 
       RowBox[{"24", " ", 
        RowBox[{"(", 
         RowBox[{"\[Nu]", "+", "1"}], ")"}], " ", "R"}]]}],
     TraditionalForm],
    TraditionalForm,
    Editable->True]}],
  SequenceForm[
   TraditionalForm[
    Subscript[$CellContext`M, $CellContext`nz]], "=", 
   TraditionalForm[
   Rational[-1, 24] $CellContext`EE $CellContext`R^(-1) $CellContext`t^3 (
      1 + $CellContext`\[Nu])^(-1) (
     Subscript[$CellContext`\[Theta], $CellContext`\[Phi]] + 
     Subscript[$CellContext`u, $CellContext`n, $CellContext`z])]],
  Editable->False]], "Print",
 CellChangeTimes->{3.8896008297482505`*^9},
 CellLabel->
  "During evaluation of \
In[55]:=",ExpressionUUID->"d4ae49a0-107b-4854-a1d7-1991092ed68a"],

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.889600829756228*^9},
 CellLabel->
  "During evaluation of \
In[55]:=",ExpressionUUID->"02e5b843-ad7f-48bb-8ed4-d7a222c571d6"],

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.889600829764206*^9},
 CellLabel->
  "During evaluation of \
In[55]:=",ExpressionUUID->"18ebc6f8-0297-42d6-a4cb-d1b50f42cf3f"]
}, Open  ]]
}, Open  ]]
}, 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[CellGroupData[{

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[{"z", ",", "s", ",", "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", "[", "\"\<KINEMATICS:\>\"", "]"}], 
  ";"}], "\[IndentingNewLine]", "SHELLKINEMATICS", "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", "\"\<EQUILIBRIUM:\>\"", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"SHELLEQUILIBRIUM", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", "\"\<CONSTITUTIVE:\>\"", "]"}], 
  ";"}], "\[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}, 
   3.842316941254302*^9, {3.8423251380732856`*^9, 3.8423251392076187`*^9}, 
   3.8423328238802357`*^9, {3.889601053169758*^9, 3.8896010994172497`*^9}, {
   3.889601135990122*^9, 3.8896011414326534`*^9}, {3.8896012825235662`*^9, 
   3.889601295385771*^9}},
 CellLabel->
  "In[132]:=",ExpressionUUID->"f8a34253-1297-4060-ba97-874b6d90a788"],

Cell[CellGroupData[{

Cell[BoxData["\<\"KINEMATICS:\"\>"], "Print",
 CellChangeTimes->{{3.8896010579214926`*^9, 3.8896011004858093`*^9}, 
   3.8896013003996587`*^9},
 CellLabel->
  "During evaluation of \
In[132]:=",ExpressionUUID->"fec85921-f8c8-49f3-a4cd-d47263fa6f68"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"vars =\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"z", ",", "s", ",", "n"}], "}"}]}],
  SequenceForm["vars =", {$CellContext`z, $CellContext`s, $CellContext`n}],
  Editable->False]], "Print",
 CellChangeTimes->{{3.8896010579214926`*^9, 3.8896011004858093`*^9}, 
   3.889601300411628*^9},
 CellLabel->
  "During evaluation of \
In[132]:=",ExpressionUUID->"c9306885-755b-4d5a-a149-1870647a7353"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"e =\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", 
     TagBox[GridBox[{
        {
         SubscriptBox["e", "z"]},
        {
         SubscriptBox["e", "s"]},
        {
         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`z], 
     Subscript[$CellContext`e, $CellContext`s], 
     Subscript[$CellContext`e, $CellContext`n]}]],
  Editable->False]], "Print",
 CellChangeTimes->{{3.8896010579214926`*^9, 3.8896011004858093`*^9}, 
   3.8896013004255896`*^9},
 CellLabel->
  "During evaluation of \
In[132]:=",ExpressionUUID->"e534fe73-7354-4425-9886-ca695bce535a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(r\\), \\(0\\)]\\) =\"\>", 
   "\[InvisibleSpace]", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "R"}], " ", 
     SubscriptBox["e", "n"]}], "+", 
    RowBox[{"z", " ", 
     SubscriptBox["e", "z"]}]}]}],
  SequenceForm[
  "\!\(\*SubscriptBox[\(r\), \(0\)]\) =", -$CellContext`R 
    Subscript[$CellContext`e, $CellContext`n] + $CellContext`z 
    Subscript[$CellContext`e, $CellContext`z]],
  Editable->False]], "Print",
 CellChangeTimes->{{3.8896010579214926`*^9, 3.8896011004858093`*^9}, 
   3.889601300432082*^9},
 CellLabel->
  "During evaluation of \
In[132]:=",ExpressionUUID->"a682ba34-e2c3-4f90-a932-69ce53b79b45"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(\[PartialD]\\), \\(\[Alpha]\\)]\\)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$]]], "\[InvisibleSpace]", "\<\"   \"\>", 
   "\[InvisibleSpace]", "\<\"\\!\\(\\*SubscriptBox[\\(\[PartialD]\\), \\(\
\[Beta]\\)]\\)e =\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", 
     TagBox[GridBox[{
        {"0"},
        {
         FractionBox[
          SubscriptBox["e", "n"], "R"]},
        {
         RowBox[{"-", 
          FractionBox[
           SubscriptBox["e", "s"], "R"]}]}
       },
       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[{0, 0, 0}], "   ", 
   "\!\(\*SubscriptBox[\(\[PartialD]\), \(\[Beta]\)]\)e =", 
   MatrixForm[{
    0, $CellContext`R^(-1) 
     Subscript[$CellContext`e, $CellContext`n], -$CellContext`R^(-1) 
     Subscript[$CellContext`e, $CellContext`s]}], "   ", 
   "\!\(\*SubscriptBox[\(\[PartialD]\), \(n\)]\)e =", 
   MatrixForm[{0, 0, 0}]],
  Editable->False]], "Print",
 CellChangeTimes->{{3.8896010579214926`*^9, 3.8896011004858093`*^9}, 
   3.889601300441058*^9},
 CellLabel->
  "During evaluation of \
In[132]:=",ExpressionUUID->"2d90ad2f-3213-4a92-aaf6-0b79d475b614"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\[Del] =\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0"},
       {"0", "1", "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"]}], "+", 
    RowBox[{
     SubscriptBox["\<\"\[PartialD]\"\>", "s"], " ", 
     SubscriptBox["e", "s"]}], "+", 
    RowBox[{
     SubscriptBox["\<\"\[PartialD]\"\>", "z"], " ", 
     SubscriptBox["e", "z"]}]}]}],
  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`s] 
    Subscript[$CellContext`e, $CellContext`s] + 
   Subscript["\[PartialD]", $CellContext`z] 
    Subscript[$CellContext`e, $CellContext`z]],
  Editable->False]], "Print",
 CellChangeTimes->{{3.8896010579214926`*^9, 3.8896011004858093`*^9}, 
   3.8896013004495535`*^9},
 CellLabel->
  "During evaluation of \
In[132]:=",ExpressionUUID->"ffff4a76-6054-4314-aadb-a1631f25b5bf"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\[Kappa] =\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "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[{"-", 
    FractionBox[
     RowBox[{
      SubscriptBox["e", "s"], "\[CircleTimes]", 
      SubscriptBox["e", "s"]}], "R"]}]}],
  SequenceForm["\[Kappa] =", 
   MatrixForm[{{0, 0}, {0, (-1)/$CellContext`R}}], "      ", 
   "\[Kappa] =", -$CellContext`R^(-1) CircleTimes[
     Subscript[$CellContext`e, $CellContext`s], 
     Subscript[$CellContext`e, $CellContext`s]]],
  Editable->False]], "Print",
 CellChangeTimes->{{3.8896010579214926`*^9, 3.8896011004858093`*^9}, 
   3.8896013004598284`*^9},
 CellLabel->
  "During evaluation of \
In[132]:=",ExpressionUUID->"ed197c1e-ba2f-45bc-b835-41cd1367d586"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"D =\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0"},
       {"0", 
        RowBox[{"-", 
         FractionBox["R", 
          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[{{1, 0, 0}, {
     0, -($CellContext`n - $CellContext`R)^(-1) $CellContext`R, 0}, {0, 0, 
     1}}]],
  Editable->False]], "Print",
 CellChangeTimes->{{3.8896010579214926`*^9, 3.8896011004858093`*^9}, 
   3.889601300466809*^9},
 CellLabel->
  "During evaluation of \
In[132]:=",ExpressionUUID->"2813df35-0825-4299-8bc6-cc13f292e195"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"J  =\"\>", "\[InvisibleSpace]", 
   RowBox[{"1", "-", 
    FractionBox["n", "R"]}], "\[InvisibleSpace]", "\<\"    \"\>", 
   "\[InvisibleSpace]", "\<\"\\!\\(\\*SubscriptBox[\\(J\\), \
\\(\[Alpha]\\)]\\) =\"\>", "\[InvisibleSpace]", 
   RowBox[{"1", "-", 
    FractionBox["n", "R"]}], "\[InvisibleSpace]", "\<\"    \"\>", 
   "\[InvisibleSpace]", "\<\"\\!\\(\\*SubscriptBox[\\(J\\), \\(\[Beta]\\)]\\) \
=\"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\"    \"\>", 
   "\[InvisibleSpace]", "\<\"\\!\\(\\*SubscriptBox[\\(J\\), \\(n\\)]\\) \
=\"\>", "\[InvisibleSpace]", 
   RowBox[{"1", "-", 
    FractionBox["n", "R"]}]}],
  SequenceForm[
  "J  =", 1 - $CellContext`n/$CellContext`R, "    ", 
   "\!\(\*SubscriptBox[\(J\), \(\[Alpha]\)]\) =", 
   1 - $CellContext`n/$CellContext`R, "    ", 
   "\!\(\*SubscriptBox[\(J\), \(\[Beta]\)]\) =", 1, "    ", 
   "\!\(\*SubscriptBox[\(J\), \(n\)]\) =", 1 - $CellContext`n/$CellContext`R],
  Editable->False]], "Print",
 CellChangeTimes->{{3.8896010579214926`*^9, 3.8896011004858093`*^9}, 
   3.8896013004747877`*^9},
 CellLabel->
  "During evaluation of \
In[132]:=",ExpressionUUID->"8653535f-b90e-4331-8059-e63feb442bf4"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox["\<\"\[CapitalGamma]\"\>", 
    RowBox[{"{", 
     RowBox[{"s", ",", "s", ",", "n"}], "}"}]], 
   "\[InvisibleSpace]", "\<\" = \"\>", "\[InvisibleSpace]", 
   FractionBox["1", "R"]}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]", {$CellContext`s, $CellContext`s, $CellContext`n}], 
   " = ", $CellContext`R^(-1)],
  Editable->False]], "Print",
 CellChangeTimes->{{3.8896010579214926`*^9, 3.8896011004858093`*^9}, 
   3.8896013004817696`*^9},
 CellLabel->
  "During evaluation of \
In[132]:=",ExpressionUUID->"4707db56-4486-4d58-9b82-0c68ee14874a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox["\<\"\[CapitalGamma]\"\>", 
    RowBox[{"{", 
     RowBox[{"s", ",", "n", ",", "s"}], "}"}]], 
   "\[InvisibleSpace]", "\<\" = \"\>", "\[InvisibleSpace]", 
   RowBox[{"-", 
    FractionBox["1", "R"]}]}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]", {$CellContext`s, $CellContext`n, $CellContext`s}], 
   " = ", (-1)/$CellContext`R],
  Editable->False]], "Print",
 CellChangeTimes->{{3.8896010579214926`*^9, 3.8896011004858093`*^9}, 
   3.8896013004887514`*^9},
 CellLabel->
  "During evaluation of \
In[132]:=",ExpressionUUID->"c88446fc-8045-4f8f-bde4-b3497993b9ec"],

Cell[BoxData["\<\"EQUILIBRIUM:\"\>"], "Print",
 CellChangeTimes->{{3.8896010579214926`*^9, 3.8896011004858093`*^9}, 
   3.889601300497727*^9},
 CellLabel->
  "During evaluation of \
In[132]:=",ExpressionUUID->"11c58904-88ff-44b2-90b4-3f9b48b15883"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     RowBox[{
      SubscriptBox["N", 
       RowBox[{"sz", ",", "s"}]], "+", 
      SubscriptBox["N", 
       RowBox[{"zz", ",", "z"}]], "+", 
      SubscriptBox["b", "z"]}],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\" = 0\"\>"}],
  SequenceForm[
   TraditionalForm[
   Subscript[$CellContext`b, $CellContext`z] + 
    Subscript[N, $CellContext`sz, $CellContext`s] + 
    Subscript[N, $CellContext`zz, $CellContext`z]], " = 0"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.8896010579214926`*^9, 3.8896011004858093`*^9}, 
   3.8896013005037117`*^9},
 CellLabel->
  "During evaluation of \
In[132]:=",ExpressionUUID->"3b3e27a6-339d-429c-9bd3-6bb2bce30ca0"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     RowBox[{
      SubscriptBox["N", 
       RowBox[{"ss", ",", "s"}]], "+", 
      SubscriptBox["N", 
       RowBox[{"zs", ",", "z"}]], "+", 
      SubscriptBox["b", "s"], "-", 
      FractionBox[
       SubscriptBox["Q", "s"], "R"]}],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\" = 0\"\>"}],
  SequenceForm[
   TraditionalForm[
   Subscript[$CellContext`b, $CellContext`s] - $CellContext`R^(-1) 
    Subscript[$CellContext`Q, $CellContext`s] + 
    Subscript[N, $CellContext`ss, $CellContext`s] + 
    Subscript[N, $CellContext`zs, $CellContext`z]], " = 0"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.8896010579214926`*^9, 3.8896011004858093`*^9}, 
   3.889601300509694*^9},
 CellLabel->
  "During evaluation of \
In[132]:=",ExpressionUUID->"16e5dc42-508a-4c1d-b53f-0bef00f46e4a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     RowBox[{
      SubscriptBox["Q", 
       RowBox[{"s", ",", "s"}]], "+", 
      SubscriptBox["Q", 
       RowBox[{"z", ",", "z"}]], "+", 
      SubscriptBox["b", "n"], "+", 
      FractionBox[
       SubscriptBox["N", "ss"], "R"]}],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\" = 0\"\>"}],
  SequenceForm[
   TraditionalForm[
   Subscript[$CellContext`b, $CellContext`n] + $CellContext`R^(-1) 
     Subscript[N, $CellContext`ss] + 
    Subscript[$CellContext`Q, $CellContext`s, $CellContext`s] + 
    Subscript[$CellContext`Q, $CellContext`z, $CellContext`z]], " = 0"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.8896010579214926`*^9, 3.8896011004858093`*^9}, 
   3.8896013005156784`*^9},
 CellLabel->
  "During evaluation of \
In[132]:=",ExpressionUUID->"9aa64c61-ea8f-4991-9b51-ff352ee42e5e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     RowBox[{
      SubscriptBox["M", 
       RowBox[{"sz", ",", "s"}]], "+", 
      SubscriptBox["M", 
       RowBox[{"zz", ",", "z"}]], "+", 
      SubscriptBox["c", "z"], "-", 
      SubscriptBox["Q", "z"]}],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\" = 0\"\>"}],
  SequenceForm[
   TraditionalForm[
   Subscript[$CellContext`c, $CellContext`z] - 
    Subscript[$CellContext`Q, $CellContext`z] + 
    Subscript[$CellContext`M, $CellContext`sz, $CellContext`s] + 
    Subscript[$CellContext`M, $CellContext`zz, $CellContext`z]], " = 0"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.8896010579214926`*^9, 3.8896011004858093`*^9}, 
   3.889601300523658*^9},
 CellLabel->
  "During evaluation of \
In[132]:=",ExpressionUUID->"a9253b0c-1d32-4793-8187-b4704c9e6ae2"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     RowBox[{
      SubscriptBox["M", 
       RowBox[{"ss", ",", "s"}]], "+", 
      SubscriptBox["M", 
       RowBox[{"zs", ",", "z"}]], "+", 
      SubscriptBox["c", "s"], "-", 
      FractionBox[
       SubscriptBox["M", "sn"], "R"], "-", 
      SubscriptBox["Q", "s"]}],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\" = 0\"\>"}],
  SequenceForm[
   TraditionalForm[
   Subscript[$CellContext`c, $CellContext`s] - $CellContext`R^(-1) 
    Subscript[$CellContext`M, $CellContext`sn] - 
    Subscript[$CellContext`Q, $CellContext`s] + 
    Subscript[$CellContext`M, $CellContext`ss, $CellContext`s] + 
    Subscript[$CellContext`M, $CellContext`zs, $CellContext`z]], " = 0"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.8896010579214926`*^9, 3.8896011004858093`*^9}, 
   3.889601300532635*^9},
 CellLabel->
  "During evaluation of \
In[132]:=",ExpressionUUID->"834d1d23-ff73-4188-a83d-986fcf132018"],

Cell[BoxData["\<\"CONSTITUTIVE:\"\>"], "Print",
 CellChangeTimes->{{3.8896010579214926`*^9, 3.8896011004858093`*^9}, 
   3.8896013005406127`*^9},
 CellLabel->
  "During evaluation of \
In[132]:=",ExpressionUUID->"cee0b252-a829-4bcf-b61d-e0072a8ad82e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     SubscriptBox["N", "zz"],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", 
   TagBox[
    FormBox[
     FractionBox[
      RowBox[{"EE", " ", "t", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[Nu]", " ", 
          SubscriptBox["u", "n"]}], "-", 
         RowBox[{"R", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"\[Nu]", " ", 
             SubscriptBox["u", 
              RowBox[{"s", ",", "s"}]]}], "+", 
            SubscriptBox["u", 
             RowBox[{"z", ",", "z"}]]}], ")"}]}]}], ")"}]}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Nu]", "2"], "-", "1"}], ")"}], " ", "R"}]],
     TraditionalForm],
    TraditionalForm,
    Editable->True]}],
  SequenceForm[
   TraditionalForm[
    Subscript[N, $CellContext`zz]], "=", 
   TraditionalForm[$CellContext`EE $CellContext`R^(-1) $CellContext`t (-1 + \
$CellContext`\[Nu]^2)^(-1) ($CellContext`\[Nu] 
      Subscript[$CellContext`u, $CellContext`n] - $CellContext`R \
($CellContext`\[Nu] Subscript[$CellContext`u, $CellContext`s, $CellContext`s] + 
      Subscript[$CellContext`u, $CellContext`z, $CellContext`z]))]],
  Editable->False]], "Print",
 CellChangeTimes->{{3.8896010579214926`*^9, 3.8896011004858093`*^9}, 
   3.8896013028804817`*^9},
 CellLabel->
  "During evaluation of \
In[132]:=",ExpressionUUID->"4ccc13c6-769f-4dcd-8bd4-931363cc9492"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     SubscriptBox["N", "zs"],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", 
   TagBox[
    FormBox[
     FractionBox[
      RowBox[{"EE", " ", "t", " ", 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["u", 
          RowBox[{"s", ",", "z"}]], "+", 
         SubscriptBox["u", 
          RowBox[{"z", ",", "s"}]]}], ")"}]}], 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{"\[Nu]", "+", "1"}], ")"}]}]],
     TraditionalForm],
    TraditionalForm,
    Editable->True]}],
  SequenceForm[
   TraditionalForm[
    Subscript[N, $CellContext`zs]], "=", 
   TraditionalForm[
   Rational[1, 2] $CellContext`EE $CellContext`t (
      1 + $CellContext`\[Nu])^(-1) (
     Subscript[$CellContext`u, $CellContext`s, $CellContext`z] + 
     Subscript[$CellContext`u, $CellContext`z, $CellContext`s])]],
  Editable->False]], "Print",
 CellChangeTimes->{{3.8896010579214926`*^9, 3.8896011004858093`*^9}, 
   3.889601302900429*^9},
 CellLabel->
  "During evaluation of \
In[132]:=",ExpressionUUID->"7f0e3bea-3e1e-45a9-b3a1-b4dc5ee0e7c7"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     SubscriptBox["Q", "z"],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", 
   TagBox[
    FormBox[
     FractionBox[
      RowBox[{"EE", " ", "t", " ", 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["u", 
          RowBox[{"n", ",", "z"}]], "+", 
         SubscriptBox["\[Theta]", "s"]}], ")"}]}], 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{"\[Nu]", "+", "1"}], ")"}]}]],
     TraditionalForm],
    TraditionalForm,
    Editable->True]}],
  SequenceForm[
   TraditionalForm[
    Subscript[$CellContext`Q, $CellContext`z]], "=", 
   TraditionalForm[
   Rational[1, 2] $CellContext`EE $CellContext`t (
      1 + $CellContext`\[Nu])^(-1) (
     Subscript[$CellContext`\[Theta], $CellContext`s] + 
     Subscript[$CellContext`u, $CellContext`n, $CellContext`z])]],
  Editable->False]], "Print",
 CellChangeTimes->{{3.8896010579214926`*^9, 3.8896011004858093`*^9}, 
   3.8896013029104013`*^9},
 CellLabel->
  "During evaluation of \
In[132]:=",ExpressionUUID->"a9e4bd94-92ba-44ff-8e8f-88c0cfd556ea"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     SubscriptBox["N", "sz"],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", 
   TagBox[
    FormBox[
     FractionBox[
      RowBox[{"EE", " ", "t", " ", 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["u", 
          RowBox[{"s", ",", "z"}]], "+", 
         SubscriptBox["u", 
          RowBox[{"z", ",", "s"}]]}], ")"}]}], 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{"\[Nu]", "+", "1"}], ")"}]}]],
     TraditionalForm],
    TraditionalForm,
    Editable->True]}],
  SequenceForm[
   TraditionalForm[
    Subscript[N, $CellContext`sz]], "=", 
   TraditionalForm[
   Rational[1, 2] $CellContext`EE $CellContext`t (
      1 + $CellContext`\[Nu])^(-1) (
     Subscript[$CellContext`u, $CellContext`s, $CellContext`z] + 
     Subscript[$CellContext`u, $CellContext`z, $CellContext`s])]],
  Editable->False]], "Print",
 CellChangeTimes->{{3.8896010579214926`*^9, 3.8896011004858093`*^9}, 
   3.8896013029353347`*^9},
 CellLabel->
  "During evaluation of \
In[132]:=",ExpressionUUID->"fe3aed57-43ee-4291-a37d-6735e012aec8"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     SubscriptBox["N", "ss"],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", 
   TagBox[
    FormBox[
     FractionBox[
      RowBox[{"EE", " ", "t", " ", 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["u", "n"], "-", 
         RowBox[{"R", " ", 
          RowBox[{"(", 
           RowBox[{
            SubscriptBox["u", 
             RowBox[{"s", ",", "s"}]], "+", 
            RowBox[{"\[Nu]", " ", 
             SubscriptBox["u", 
              RowBox[{"z", ",", "z"}]]}]}], ")"}]}]}], ")"}]}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Nu]", "2"], "-", "1"}], ")"}], " ", "R"}]],
     TraditionalForm],
    TraditionalForm,
    Editable->True]}],
  SequenceForm[
   TraditionalForm[
    Subscript[N, $CellContext`ss]], "=", 
   TraditionalForm[$CellContext`EE $CellContext`R^(-1) $CellContext`t (-1 + \
$CellContext`\[Nu]^2)^(-1) (
     Subscript[$CellContext`u, $CellContext`n] - $CellContext`R (
      Subscript[$CellContext`u, $CellContext`s, $CellContext`s] + \
$CellContext`\[Nu] 
       Subscript[$CellContext`u, $CellContext`z, $CellContext`z]))]],
  Editable->False]], "Print",
 CellChangeTimes->{{3.8896010579214926`*^9, 3.8896011004858093`*^9}, 
   3.88960130302709*^9},
 CellLabel->
  "During evaluation of \
In[132]:=",ExpressionUUID->"339b000e-65d6-4b20-b2f6-d61751fa19fc"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     SubscriptBox["Q", "s"],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", 
   TagBox[
    FormBox[
     FractionBox[
      RowBox[{"EE", " ", "t", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"R", " ", 
          RowBox[{"(", 
           RowBox[{
            SubscriptBox["u", 
             RowBox[{"n", ",", "s"}]], "-", 
            SubscriptBox["\[Theta]", "z"]}], ")"}]}], "+", 
         SubscriptBox["u", "s"]}], ")"}]}], 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{"\[Nu]", "+", "1"}], ")"}], " ", "R"}]],
     TraditionalForm],
    TraditionalForm,
    Editable->True]}],
  SequenceForm[
   TraditionalForm[
    Subscript[$CellContext`Q, $CellContext`s]], "=", 
   TraditionalForm[
   Rational[1, 2] $CellContext`EE $CellContext`R^(-1) $CellContext`t (
      1 + $CellContext`\[Nu])^(-1) (
     Subscript[$CellContext`u, $CellContext`s] + $CellContext`R (-
        Subscript[$CellContext`\[Theta], $CellContext`z] + 
       Subscript[$CellContext`u, $CellContext`n, $CellContext`s]))]],
  Editable->False]], "Print",
 CellChangeTimes->{{3.8896010579214926`*^9, 3.8896011004858093`*^9}, 
   3.889601303084935*^9},
 CellLabel->
  "During evaluation of \
In[132]:=",ExpressionUUID->"d8b16b2b-acc3-4907-96dd-5661516da3ca"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     SubscriptBox["Q", "z"],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", 
   TagBox[
    FormBox[
     FractionBox[
      RowBox[{"EE", " ", "t", " ", 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["u", 
          RowBox[{"n", ",", "z"}]], "+", 
         SubscriptBox["\[Theta]", "s"]}], ")"}]}], 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{"\[Nu]", "+", "1"}], ")"}]}]],
     TraditionalForm],
    TraditionalForm,
    Editable->True]}],
  SequenceForm[
   TraditionalForm[
    Subscript[$CellContext`Q, $CellContext`z]], "=", 
   TraditionalForm[
   Rational[1, 2] $CellContext`EE $CellContext`t (
      1 + $CellContext`\[Nu])^(-1) (
     Subscript[$CellContext`\[Theta], $CellContext`s] + 
     Subscript[$CellContext`u, $CellContext`n, $CellContext`z])]],
  Editable->False]], "Print",
 CellChangeTimes->{{3.8896010579214926`*^9, 3.8896011004858093`*^9}, 
   3.889601303096903*^9},
 CellLabel->
  "During evaluation of \
In[132]:=",ExpressionUUID->"ec4a38ce-e9fd-4987-8e86-e425fd2b42b8"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     SubscriptBox["Q", "s"],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", 
   TagBox[
    FormBox[
     FractionBox[
      RowBox[{"EE", " ", "t", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"R", " ", 
          RowBox[{"(", 
           RowBox[{
            SubscriptBox["u", 
             RowBox[{"n", ",", "s"}]], "-", 
            SubscriptBox["\[Theta]", "z"]}], ")"}]}], "+", 
         SubscriptBox["u", "s"]}], ")"}]}], 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{"\[Nu]", "+", "1"}], ")"}], " ", "R"}]],
     TraditionalForm],
    TraditionalForm,
    Editable->True]}],
  SequenceForm[
   TraditionalForm[
    Subscript[$CellContext`Q, $CellContext`s]], "=", 
   TraditionalForm[
   Rational[1, 2] $CellContext`EE $CellContext`R^(-1) $CellContext`t (
      1 + $CellContext`\[Nu])^(-1) (
     Subscript[$CellContext`u, $CellContext`s] + $CellContext`R (-
        Subscript[$CellContext`\[Theta], $CellContext`z] + 
       Subscript[$CellContext`u, $CellContext`n, $CellContext`s]))]],
  Editable->False]], "Print",
 CellChangeTimes->{{3.8896010579214926`*^9, 3.8896011004858093`*^9}, 
   3.8896013031038847`*^9},
 CellLabel->
  "During evaluation of \
In[132]:=",ExpressionUUID->"f74b1fee-3aab-44e9-b7c3-3f23ccd13bfb"],

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.8896010579214926`*^9, 3.8896011004858093`*^9}, 
   3.8896013031128607`*^9},
 CellLabel->
  "During evaluation of \
In[132]:=",ExpressionUUID->"77c9a7af-4269-48cd-85c5-6502817efa64"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     SubscriptBox["M", "zz"],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", 
   TagBox[
    FormBox[
     FractionBox[
      RowBox[{"EE", " ", 
       SuperscriptBox["t", "3"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[Nu]", " ", "R", " ", 
          SubscriptBox["\[Theta]", 
           RowBox[{"z", ",", "s"}]]}], "-", 
         RowBox[{"R", " ", 
          SubscriptBox["\[Theta]", 
           RowBox[{"s", ",", "z"}]]}], "+", 
         SubscriptBox["u", 
          RowBox[{"z", ",", "z"}]]}], ")"}]}], 
      RowBox[{"12", " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Nu]", "2"], "-", "1"}], ")"}], " ", "R"}]],
     TraditionalForm],
    TraditionalForm,
    Editable->True]}],
  SequenceForm[
   TraditionalForm[
    Subscript[$CellContext`M, $CellContext`zz]], "=", 
   TraditionalForm[
   Rational[1, 
      12] $CellContext`EE $CellContext`R^(-1) $CellContext`t^3 (-1 + \
$CellContext`\[Nu]^2)^(-1) (
     Subscript[$CellContext`u, $CellContext`z, $CellContext`z] - \
$CellContext`R 
     Subscript[$CellContext`\[Theta], $CellContext`s, $CellContext`z] + \
$CellContext`R $CellContext`\[Nu] 
      Subscript[$CellContext`\[Theta], $CellContext`z, $CellContext`s])]],
  Editable->False]], "Print",
 CellChangeTimes->{{3.8896010579214926`*^9, 3.8896011004858093`*^9}, 
   3.889601303144965*^9},
 CellLabel->
  "During evaluation of \
In[132]:=",ExpressionUUID->"ca5a4ff2-90f5-4546-9d4c-4bf27afcf61e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     SubscriptBox["M", "zs"],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", 
   TagBox[
    FormBox[
     RowBox[{"-", 
      FractionBox[
       RowBox[{"EE", " ", 
        SuperscriptBox["t", "3"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"R", " ", 
           RowBox[{"(", 
            RowBox[{
             SubscriptBox["\[Theta]", 
              RowBox[{"z", ",", "z"}]], "-", 
             SubscriptBox["\[Theta]", 
              RowBox[{"s", ",", "s"}]]}], ")"}]}], "+", 
          SubscriptBox["u", 
           RowBox[{"s", ",", "z"}]]}], ")"}]}], 
       RowBox[{"24", " ", 
        RowBox[{"(", 
         RowBox[{"\[Nu]", "+", "1"}], ")"}], " ", "R"}]]}],
     TraditionalForm],
    TraditionalForm,
    Editable->True]}],
  SequenceForm[
   TraditionalForm[
    Subscript[$CellContext`M, $CellContext`zs]], "=", 
   TraditionalForm[
   Rational[-1, 24] $CellContext`EE $CellContext`R^(-1) $CellContext`t^3 (
      1 + $CellContext`\[Nu])^(-1) (
     Subscript[$CellContext`u, $CellContext`s, $CellContext`z] + \
$CellContext`R (-
        Subscript[$CellContext`\[Theta], $CellContext`s, $CellContext`s] + 
       Subscript[$CellContext`\[Theta], $CellContext`z, $CellContext`z]))]],
  Editable->False]], "Print",
 CellChangeTimes->{{3.8896010579214926`*^9, 3.8896011004858093`*^9}, 
   3.889601303187849*^9},
 CellLabel->
  "During evaluation of \
In[132]:=",ExpressionUUID->"63fca0c3-c4ee-43d5-8d69-8613c4f2ebed"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     SubscriptBox["M", "zn"],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", 
   TagBox[
    FormBox[
     RowBox[{"-", 
      FractionBox[
       RowBox[{"EE", " ", 
        SuperscriptBox["t", "3"], " ", 
        RowBox[{"(", 
         RowBox[{
          SubscriptBox["u", 
           RowBox[{"n", ",", "z"}]], "+", 
          SubscriptBox["\[Theta]", "s"]}], ")"}]}], 
       RowBox[{"24", " ", 
        RowBox[{"(", 
         RowBox[{"\[Nu]", "+", "1"}], ")"}], " ", "R"}]]}],
     TraditionalForm],
    TraditionalForm,
    Editable->True]}],
  SequenceForm[
   TraditionalForm[
    Subscript[$CellContext`M, $CellContext`zn]], "=", 
   TraditionalForm[
   Rational[-1, 24] $CellContext`EE $CellContext`R^(-1) $CellContext`t^3 (
      1 + $CellContext`\[Nu])^(-1) (
     Subscript[$CellContext`\[Theta], $CellContext`s] + 
     Subscript[$CellContext`u, $CellContext`n, $CellContext`z])]],
  Editable->False]], "Print",
 CellChangeTimes->{{3.8896010579214926`*^9, 3.8896011004858093`*^9}, 
   3.88960130321777*^9},
 CellLabel->
  "During evaluation of \
In[132]:=",ExpressionUUID->"af4c990e-3a85-42e7-be21-5224e28f2775"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     SubscriptBox["M", "sz"],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", 
   TagBox[
    FormBox[
     FractionBox[
      RowBox[{"EE", " ", 
       SuperscriptBox["t", "3"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"R", " ", 
          RowBox[{"(", 
           RowBox[{
            SubscriptBox["\[Theta]", 
             RowBox[{"s", ",", "s"}]], "-", 
            SubscriptBox["\[Theta]", 
             RowBox[{"z", ",", "z"}]]}], ")"}]}], "+", 
         SubscriptBox["u", 
          RowBox[{"z", ",", "s"}]]}], ")"}]}], 
      RowBox[{"24", " ", 
       RowBox[{"(", 
        RowBox[{"\[Nu]", "+", "1"}], ")"}], " ", "R"}]],
     TraditionalForm],
    TraditionalForm,
    Editable->True]}],
  SequenceForm[
   TraditionalForm[
    Subscript[$CellContext`M, $CellContext`sz]], "=", 
   TraditionalForm[
   Rational[1, 24] $CellContext`EE $CellContext`R^(-1) $CellContext`t^3 (
      1 + $CellContext`\[Nu])^(-1) (
     Subscript[$CellContext`u, $CellContext`z, $CellContext`s] + \
$CellContext`R (
       Subscript[$CellContext`\[Theta], $CellContext`s, $CellContext`s] - 
       Subscript[$CellContext`\[Theta], $CellContext`z, $CellContext`z]))]],
  Editable->False]], "Print",
 CellChangeTimes->{{3.8896010579214926`*^9, 3.8896011004858093`*^9}, 
   3.8896013032496843`*^9},
 CellLabel->
  "During evaluation of \
In[132]:=",ExpressionUUID->"efcb187c-5250-450c-9c65-f8339ab41bed"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     SubscriptBox["M", "ss"],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", 
   TagBox[
    FormBox[
     FractionBox[
      RowBox[{"EE", " ", 
       SuperscriptBox["t", "3"], " ", 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["u", "n"], "-", 
         RowBox[{"R", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"\[Nu]", " ", "R", " ", 
             SubscriptBox["\[Theta]", 
              RowBox[{"s", ",", "z"}]]}], "-", 
            RowBox[{"R", " ", 
             SubscriptBox["\[Theta]", 
              RowBox[{"z", ",", "s"}]]}], "+", 
            SubscriptBox["u", 
             RowBox[{"s", ",", "s"}]]}], ")"}]}]}], ")"}]}], 
      RowBox[{"12", " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Nu]", "2"], "-", "1"}], ")"}], " ", 
       SuperscriptBox["R", "2"]}]],
     TraditionalForm],
    TraditionalForm,
    Editable->True]}],
  SequenceForm[
   TraditionalForm[
    Subscript[$CellContext`M, $CellContext`ss]], "=", 
   TraditionalForm[
   Rational[1, 
      12] $CellContext`EE $CellContext`R^(-2) $CellContext`t^3 (-1 + \
$CellContext`\[Nu]^2)^(-1) (
     Subscript[$CellContext`u, $CellContext`n] - $CellContext`R (
      Subscript[$CellContext`u, $CellContext`s, $CellContext`s] + \
$CellContext`R $CellContext`\[Nu] 
       Subscript[$CellContext`\[Theta], $CellContext`s, $CellContext`z] - \
$CellContext`R 
      Subscript[$CellContext`\[Theta], $CellContext`z, $CellContext`s]))]],
  Editable->False]], "Print",
 CellChangeTimes->{{3.8896010579214926`*^9, 3.8896011004858093`*^9}, 
   3.889601303387832*^9},
 CellLabel->
  "During evaluation of \
In[132]:=",ExpressionUUID->"a554e40c-ec7a-40aa-a04e-caaf4fb721ce"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     SubscriptBox["M", "sn"],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", 
   TagBox[
    FormBox[
     FractionBox[
      RowBox[{"EE", " ", 
       SuperscriptBox["t", "3"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"R", " ", 
          RowBox[{"(", 
           RowBox[{
            SubscriptBox["u", 
             RowBox[{"n", ",", "s"}]], "-", 
            SubscriptBox["\[Theta]", "z"]}], ")"}]}], "+", 
         SubscriptBox["u", "s"]}], ")"}]}], 
      RowBox[{"24", " ", 
       RowBox[{"(", 
        RowBox[{"\[Nu]", "+", "1"}], ")"}], " ", 
       SuperscriptBox["R", "2"]}]],
     TraditionalForm],
    TraditionalForm,
    Editable->True]}],
  SequenceForm[
   TraditionalForm[
    Subscript[$CellContext`M, $CellContext`sn]], "=", 
   TraditionalForm[
   Rational[1, 24] $CellContext`EE $CellContext`R^(-2) $CellContext`t^3 (
      1 + $CellContext`\[Nu])^(-1) (
     Subscript[$CellContext`u, $CellContext`s] + $CellContext`R (-
        Subscript[$CellContext`\[Theta], $CellContext`z] + 
       Subscript[$CellContext`u, $CellContext`n, $CellContext`s]))]],
  Editable->False]], "Print",
 CellChangeTimes->{{3.8896010579214926`*^9, 3.8896011004858093`*^9}, 
   3.8896013034289503`*^9},
 CellLabel->
  "During evaluation of \
In[132]:=",ExpressionUUID->"2333b266-5581-400e-a97e-de6a6a4deb50"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     SubscriptBox["M", "nz"],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", 
   TagBox[
    FormBox[
     RowBox[{"-", 
      FractionBox[
       RowBox[{"EE", " ", 
        SuperscriptBox["t", "3"], " ", 
        RowBox[{"(", 
         RowBox[{
          SubscriptBox["u", 
           RowBox[{"n", ",", "z"}]], "+", 
          SubscriptBox["\[Theta]", "s"]}], ")"}]}], 
       RowBox[{"24", " ", 
        RowBox[{"(", 
         RowBox[{"\[Nu]", "+", "1"}], ")"}], " ", "R"}]]}],
     TraditionalForm],
    TraditionalForm,
    Editable->True]}],
  SequenceForm[
   TraditionalForm[
    Subscript[$CellContext`M, $CellContext`nz]], "=", 
   TraditionalForm[
   Rational[-1, 24] $CellContext`EE $CellContext`R^(-1) $CellContext`t^3 (
      1 + $CellContext`\[Nu])^(-1) (
     Subscript[$CellContext`\[Theta], $CellContext`s] + 
     Subscript[$CellContext`u, $CellContext`n, $CellContext`z])]],
  Editable->False]], "Print",
 CellChangeTimes->{{3.8896010579214926`*^9, 3.8896011004858093`*^9}, 
   3.8896013034419165`*^9},
 CellLabel->
  "During evaluation of \
In[132]:=",ExpressionUUID->"5c037e65-09a8-4622-9828-b4230e028f53"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     SubscriptBox["M", "ns"],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", 
   TagBox[
    FormBox["0",
     TraditionalForm],
    TraditionalForm,
    Editable->True]}],
  SequenceForm[
   TraditionalForm[
    Subscript[$CellContext`M, $CellContext`ns]], "=", 
   TraditionalForm[0]],
  Editable->False]], "Print",
 CellChangeTimes->{{3.8896010579214926`*^9, 3.8896011004858093`*^9}, 
   3.8896013034488974`*^9},
 CellLabel->
  "During evaluation of \
In[132]:=",ExpressionUUID->"8b85b544-9002-4402-9444-6fb480125d07"],

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.8896010579214926`*^9, 3.8896011004858093`*^9}, 
   3.8896013034548817`*^9},
 CellLabel->
  "During evaluation of \
In[132]:=",ExpressionUUID->"f7918979-1edd-4ba1-ab48-8a6d4f910bdb"]
}, Open  ]]
}, Open  ]]
}, 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[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", "[", "\"\<KINEMATICS:\>\"", "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"SHELLKINEMATICS", ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Print", "[", "\"\<EQUILIBRIUM:\>\"", "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"SHELLEQUILIBRIUM", ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Print", "[", "\"\<CONSTITUTIVE:\>\"", "]"}], ";"}], 
   "\[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"]
}, 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[CellGroupData[{

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", "[", "\"\<KINEMATICS:\>\"", "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"SHELLKINEMATICS", ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Print", "[", "\"\<EQUILIBRIUM:\>\"", "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"SHELLEQUILIBRIUM", ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Print", "[", "\"\<CONSTITUTIVE:\>\"", "]"}], ";"}], 
   "\[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[66]:=",ExpressionUUID->"cce0ece2-9cdf-42e7-a954-633562d9afc4"],

Cell[CellGroupData[{

Cell[BoxData["\<\"KINEMATICS:\"\>"], "Print",
 CellChangeTimes->{3.889600864206654*^9},
 CellLabel->
  "During evaluation of \
In[66]:=",ExpressionUUID->"c2a32ec5-6a04-4eff-97c7-451d15ebe98f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"vars =\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"\[Phi]", ",", "\[Theta]", ",", "n"}], "}"}]}],
  SequenceForm[
  "vars =", {$CellContext`\[Phi], $CellContext`\[Theta], $CellContext`n}],
  Editable->False]], "Print",
 CellChangeTimes->{3.88960086421563*^9},
 CellLabel->
  "During evaluation of \
In[66]:=",ExpressionUUID->"76d90dd3-1fac-459f-8c6d-e87aaec04c30"],

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.8896008642275996`*^9},
 CellLabel->
  "During evaluation of \
In[66]:=",ExpressionUUID->"bb5e5b61-50da-4817-86aa-36e2b6a3b8ee"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(r\\), \\(0\\)]\\) =\"\>", 
   "\[InvisibleSpace]", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"r", "+", 
       RowBox[{"R", " ", 
        RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}], ")"}], " ", 
     SubscriptBox["e", "n"]}], "-", 
    RowBox[{"R", " ", 
     RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
     SubscriptBox["e", "\[Theta]"]}]}]}],
  SequenceForm[
  "\!\(\*SubscriptBox[\(r\), \(0\)]\) =", ($CellContext`r + $CellContext`R 
      Cos[$CellContext`\[Theta]]) 
    Subscript[$CellContext`e, $CellContext`n] - $CellContext`R 
   Sin[$CellContext`\[Theta]] 
   Subscript[$CellContext`e, $CellContext`\[Theta]]],
  Editable->False]], "Print",
 CellChangeTimes->{3.889600864287597*^9},
 CellLabel->
  "During evaluation of \
In[66]:=",ExpressionUUID->"bee43aea-8b43-4d18-b917-41f376292ac4"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(\[PartialD]\\), \\(\[Alpha]\\)]\\)e =\
\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", 
     TagBox[GridBox[{
        {
         RowBox[{
          RowBox[{
           RowBox[{"-", 
            RowBox[{"Cos", "[", "\[Theta]", "]"}]}], " ", 
           SubscriptBox["e", "n"]}], "+", 
          RowBox[{
           RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
           SubscriptBox["e", "\[Theta]"]}]}]},
        {
         RowBox[{
          RowBox[{"-", 
           RowBox[{"Sin", "[", "\[Theta]", "]"}]}], " ", 
          SubscriptBox["e", "\[Phi]"]}]},
        {
         RowBox[{
          RowBox[{"Cos", "[", "\[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"},
        {
         RowBox[{"-", 
          SubscriptBox["e", "n"]}]},
        {
         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[{-Cos[$CellContext`\[Theta]] 
      Subscript[$CellContext`e, $CellContext`n] + 
     Sin[$CellContext`\[Theta]] 
      Subscript[$CellContext`e, $CellContext`\[Theta]], -
     Sin[$CellContext`\[Theta]] 
     Subscript[$CellContext`e, $CellContext`\[Phi]], 
     Cos[$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.8896008642985687`*^9},
 CellLabel->
  "During evaluation of \
In[66]:=",ExpressionUUID->"d8bf155b-c46d-45e3-987e-082df0cd166b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\[Del] =\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        FractionBox["1", 
         RowBox[{"R", "+", 
          RowBox[{"r", " ", 
           RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}]], "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[{
      SubscriptBox["\<\"\[PartialD]\"\>", "\[Phi]"], " ", 
      SubscriptBox["e", "\[Phi]"]}], 
     RowBox[{"R", "+", 
      RowBox[{"r", " ", 
       RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}]]}]}],
  SequenceForm["\[Del] =", 
   MatrixForm[{{($CellContext`R + $CellContext`r 
        Cos[$CellContext`\[Theta]])^(-1), 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 + \
$CellContext`r Cos[$CellContext`\[Theta]])^(-1) 
    Subscript["\[PartialD]", $CellContext`\[Phi]] 
    Subscript[$CellContext`e, $CellContext`\[Phi]]],
  Editable->False]], "Print",
 CellChangeTimes->{3.889600864326988*^9},
 CellLabel->
  "During evaluation of \
In[66]:=",ExpressionUUID->"98d3efe9-036c-475d-8cc7-28e98fa44cab"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\[Kappa] =\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        FractionBox[
         RowBox[{"Cos", "[", "\[Theta]", "]"}], 
         RowBox[{"R", "+", 
          RowBox[{"r", " ", 
           RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}]], "0"},
       {"0", 
        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[{
    FractionBox[
     RowBox[{
      SubscriptBox["e", "\[Theta]"], "\[CircleTimes]", 
      SubscriptBox["e", "\[Theta]"]}], "r"], "+", 
    FractionBox[
     RowBox[{
      RowBox[{
       SubscriptBox["e", "\[Phi]"], "\[CircleTimes]", 
       SubscriptBox["e", "\[Phi]"]}], " ", 
      RowBox[{"Cos", "[", "\[Theta]", "]"}]}], 
     RowBox[{"R", "+", 
      RowBox[{"r", " ", 
       RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}]]}]}],
  SequenceForm["\[Kappa] =", 
   MatrixForm[{{
     Cos[$CellContext`\[Theta]]/($CellContext`R + $CellContext`r 
       Cos[$CellContext`\[Theta]]), 0}, {0, $CellContext`r^(-1)}}], "      ", 
   "\[Kappa] =", $CellContext`r^(-1) CircleTimes[
      Subscript[$CellContext`e, $CellContext`\[Theta]], 
      Subscript[$CellContext`e, $CellContext`\[Theta]]] + CircleTimes[
      Subscript[$CellContext`e, $CellContext`\[Phi]], 
      Subscript[$CellContext`e, $CellContext`\[Phi]]] 
    Cos[$CellContext`\[Theta]]/($CellContext`R + $CellContext`r 
     Cos[$CellContext`\[Theta]])],
  Editable->False]], "Print",
 CellChangeTimes->{3.889600864336319*^9},
 CellLabel->
  "During evaluation of \
In[66]:=",ExpressionUUID->"fb0de910-c263-4025-a672-39a2d2a212fa"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"D =\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        FractionBox[
         RowBox[{"R", "+", 
          RowBox[{"r", " ", 
           RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}], 
         RowBox[{"R", "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"n", "+", "r"}], ")"}], " ", 
           RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}]], "0", "0"},
       {"0", 
        FractionBox["r", 
         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`R + $CellContext`r 
        Cos[$CellContext`\[Theta]])/($CellContext`R + ($CellContext`n + \
$CellContext`r) Cos[$CellContext`\[Theta]]), 0, 0}, {
     0, $CellContext`r/($CellContext`n + $CellContext`r), 0}, {0, 0, 1}}]],
  Editable->False]], "Print",
 CellChangeTimes->{3.889600864346292*^9},
 CellLabel->
  "During evaluation of \
In[66]:=",ExpressionUUID->"348ab35c-31a7-4235-b6da-81030a6d18a9"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"J  =\"\>", "\[InvisibleSpace]", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{"n", "+", "r"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"R", "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"n", "+", "r"}], ")"}], " ", 
        RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}], ")"}]}], 
    RowBox[{"r", " ", 
     RowBox[{"(", 
      RowBox[{"R", "+", 
       RowBox[{"r", " ", 
        RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}], ")"}]}]], 
   "\[InvisibleSpace]", "\<\"    \"\>", 
   "\[InvisibleSpace]", "\<\"\\!\\(\\*SubscriptBox[\\(J\\), \
\\(\[Alpha]\\)]\\) =\"\>", "\[InvisibleSpace]", 
   FractionBox[
    SqrtBox[
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"n", "+", "r"}], ")"}], "2"]], "r"], 
   "\[InvisibleSpace]", "\<\"    \"\>", 
   "\[InvisibleSpace]", "\<\"\\!\\(\\*SubscriptBox[\\(J\\), \\(\[Beta]\\)]\\) \
=\"\>", "\[InvisibleSpace]", 
   FractionBox[
    SqrtBox[
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"R", "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"n", "+", "r"}], ")"}], " ", 
         RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}], ")"}], "2"]], 
    RowBox[{"R", "+", 
     RowBox[{"r", " ", 
      RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}]], 
   "\[InvisibleSpace]", "\<\"    \"\>", 
   "\[InvisibleSpace]", "\<\"\\!\\(\\*SubscriptBox[\\(J\\), \\(n\\)]\\) \
=\"\>", "\[InvisibleSpace]", 
   FractionBox[
    SqrtBox[
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"n", "+", "r"}], ")"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"R", "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"n", "+", "r"}], ")"}], " ", 
          RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}], ")"}], "2"]}]], 
    RowBox[{"r", " ", 
     RowBox[{"(", 
      RowBox[{"R", "+", 
       RowBox[{"r", " ", 
        RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}], ")"}]}]]}],
  SequenceForm[
  "J  =", $CellContext`r^(-1) ($CellContext`n + $CellContext`r) \
($CellContext`R + $CellContext`r 
      Cos[$CellContext`\[Theta]])^(-1) ($CellContext`R + ($CellContext`n + \
$CellContext`r) Cos[$CellContext`\[Theta]]), "    ", 
   "\!\(\*SubscriptBox[\(J\), \(\[Alpha]\)]\) =", $CellContext`r^(-1) \
(($CellContext`n + $CellContext`r)^2)^Rational[1, 2], "    ", 
   "\!\(\*SubscriptBox[\(J\), \(\[Beta]\)]\) =", ($CellContext`R + \
$CellContext`r 
      Cos[$CellContext`\[Theta]])^(-1) (($CellContext`R + ($CellContext`n + \
$CellContext`r) Cos[$CellContext`\[Theta]])^2)^Rational[1, 2], "    ", 
   "\!\(\*SubscriptBox[\(J\), \(n\)]\) =", $CellContext`r^(-1) \
($CellContext`R + $CellContext`r 
      Cos[$CellContext`\[Theta]])^(-1) (($CellContext`n + $CellContext`r)^2 \
($CellContext`R + ($CellContext`n + $CellContext`r) 
        Cos[$CellContext`\[Theta]])^2)^Rational[1, 2]],
  Editable->False]], "Print",
 CellChangeTimes->{3.889600864742716*^9},
 CellLabel->
  "During evaluation of \
In[66]:=",ExpressionUUID->"4ee69525-5ed4-4e1c-a26f-34ec44a37bb5"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox["\<\"\[CapitalGamma]\"\>", 
    RowBox[{"{", 
     RowBox[{"\[Phi]", ",", "\[Phi]", ",", "\[Theta]"}], "}"}]], 
   "\[InvisibleSpace]", "\<\" = \"\>", "\[InvisibleSpace]", 
   FractionBox[
    RowBox[{"Sin", "[", "\[Theta]", "]"}], 
    RowBox[{"R", "+", 
     RowBox[{"r", " ", 
      RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}]]}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]", {$CellContext`\[Phi], $CellContext`\[Phi], \
$CellContext`\[Theta]}], 
   " = ", ($CellContext`R + $CellContext`r Cos[$CellContext`\[Theta]])^(-1) 
   Sin[$CellContext`\[Theta]]],
  Editable->False]], "Print",
 CellChangeTimes->{3.889600864757676*^9},
 CellLabel->
  "During evaluation of \
In[66]:=",ExpressionUUID->"5b8671bf-1fc4-4926-bba5-d4962b0ff382"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox["\<\"\[CapitalGamma]\"\>", 
    RowBox[{"{", 
     RowBox[{"\[Phi]", ",", "\[Phi]", ",", "n"}], "}"}]], 
   "\[InvisibleSpace]", "\<\" = \"\>", "\[InvisibleSpace]", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{"Cos", "[", "\[Theta]", "]"}], 
     RowBox[{"R", "+", 
      RowBox[{"r", " ", 
       RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}]]}]}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]", {$CellContext`\[Phi], $CellContext`\[Phi], \
$CellContext`n}], " = ", -
   Cos[$CellContext`\[Theta]]/($CellContext`R + $CellContext`r 
    Cos[$CellContext`\[Theta]])],
  Editable->False]], "Print",
 CellChangeTimes->{3.889600864766653*^9},
 CellLabel->
  "During evaluation of \
In[66]:=",ExpressionUUID->"3e368327-30ae-4e07-9148-ddf20ffda669"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox["\<\"\[CapitalGamma]\"\>", 
    RowBox[{"{", 
     RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Phi]"}], "}"}]], 
   "\[InvisibleSpace]", "\<\" = \"\>", "\[InvisibleSpace]", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{"Sin", "[", "\[Theta]", "]"}], 
     RowBox[{"R", "+", 
      RowBox[{"r", " ", 
       RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}]]}]}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]", {$CellContext`\[Phi], $CellContext`\[Theta], \
$CellContext`\[Phi]}], 
   " = ", -($CellContext`R + $CellContext`r Cos[$CellContext`\[Theta]])^(-1) 
   Sin[$CellContext`\[Theta]]],
  Editable->False]], "Print",
 CellChangeTimes->{3.889600864773634*^9},
 CellLabel->
  "During evaluation of \
In[66]:=",ExpressionUUID->"7a4fd091-205a-40f6-805c-4d4b09b65053"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox["\<\"\[CapitalGamma]\"\>", 
    RowBox[{"{", 
     RowBox[{"\[Phi]", ",", "n", ",", "\[Phi]"}], "}"}]], 
   "\[InvisibleSpace]", "\<\" = \"\>", "\[InvisibleSpace]", 
   FractionBox[
    RowBox[{"Cos", "[", "\[Theta]", "]"}], 
    RowBox[{"R", "+", 
     RowBox[{"r", " ", 
      RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}]]}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]", {$CellContext`\[Phi], $CellContext`n, $CellContext`\
\[Phi]}], " = ", 
   Cos[$CellContext`\[Theta]]/($CellContext`R + $CellContext`r 
    Cos[$CellContext`\[Theta]])],
  Editable->False]], "Print",
 CellChangeTimes->{3.8896008647816124`*^9},
 CellLabel->
  "During evaluation of \
In[66]:=",ExpressionUUID->"dde963d8-2551-4436-8aac-ed2c17b94b87"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox["\<\"\[CapitalGamma]\"\>", 
    RowBox[{"{", 
     RowBox[{"\[Theta]", ",", "\[Theta]", ",", "n"}], "}"}]], 
   "\[InvisibleSpace]", "\<\" = \"\>", "\[InvisibleSpace]", 
   RowBox[{"-", 
    FractionBox["1", "r"]}]}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]", {$CellContext`\[Theta], $CellContext`\[Theta], \
$CellContext`n}], " = ", (-1)/$CellContext`r],
  Editable->False]], "Print",
 CellChangeTimes->{3.889600864786599*^9},
 CellLabel->
  "During evaluation of \
In[66]:=",ExpressionUUID->"8610ee79-76c7-405d-827d-7123b4a9ac4e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox["\<\"\[CapitalGamma]\"\>", 
    RowBox[{"{", 
     RowBox[{"\[Theta]", ",", "n", ",", "\[Theta]"}], "}"}]], 
   "\[InvisibleSpace]", "\<\" = \"\>", "\[InvisibleSpace]", 
   FractionBox["1", "r"]}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]", {$CellContext`\[Theta], $CellContext`n, $CellContext`\
\[Theta]}], " = ", $CellContext`r^(-1)],
  Editable->False]], "Print",
 CellChangeTimes->{3.889600864794577*^9},
 CellLabel->
  "During evaluation of \
In[66]:=",ExpressionUUID->"9ef3d277-a19e-457a-beab-9dd29fc926be"],

Cell[BoxData["\<\"EQUILIBRIUM:\"\>"], "Print",
 CellChangeTimes->{3.889600864800562*^9},
 CellLabel->
  "During evaluation of \
In[66]:=",ExpressionUUID->"b0092cee-2396-4f68-99aa-b552ee6cfbb0"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     FractionBox[
      RowBox[{
       RowBox[{"r", " ", 
        RowBox[{"cos", "(", "\[Theta]", ")"}], " ", 
        SubscriptBox["N", 
         RowBox[{"\[Theta]\[Phi]", ",", "\[Theta]"}]]}], "+", 
       RowBox[{"r", " ", 
        SubscriptBox["N", 
         RowBox[{"\[Phi]\[Phi]", ",", "\[Phi]"}]]}], "+", 
       RowBox[{"R", " ", 
        SubscriptBox["N", 
         RowBox[{"\[Theta]\[Phi]", ",", "\[Theta]"}]]}], "+", 
       RowBox[{"r", " ", 
        SubscriptBox["b", "\[Phi]"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"r", " ", 
           RowBox[{"cos", "(", "\[Theta]", ")"}]}], "+", "R"}], ")"}]}], "-", 
       RowBox[{"r", " ", 
        RowBox[{"sin", "(", "\[Theta]", ")"}], " ", 
        SubscriptBox["N", "\[Theta]\[Phi]"]}], "-", 
       RowBox[{"r", " ", 
        RowBox[{"sin", "(", "\[Theta]", ")"}], " ", 
        SubscriptBox["N", "\[Phi]\[Theta]"]}], "+", 
       RowBox[{"r", " ", 
        RowBox[{"cos", "(", "\[Theta]", ")"}], " ", 
        SubscriptBox["Q", "\[Phi]"]}]}], 
      RowBox[{"r", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"r", " ", 
          RowBox[{"cos", "(", "\[Theta]", ")"}]}], "+", "R"}], ")"}]}]],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\" = 0\"\>"}],
  SequenceForm[
   TraditionalForm[$CellContext`r^(-1) ($CellContext`R + $CellContext`r 
       Cos[$CellContext`\[Theta]])^(-1) ($CellContext`r ($CellContext`R + \
$CellContext`r Cos[$CellContext`\[Theta]]) 
      Subscript[$CellContext`b, $CellContext`\[Phi]] - $CellContext`r 
     Sin[$CellContext`\[Theta]] 
     Subscript[N, $CellContext`\[Theta]\[Phi]] - $CellContext`r 
     Sin[$CellContext`\[Theta]] 
     Subscript[N, $CellContext`\[Phi]\[Theta]] + $CellContext`r 
      Cos[$CellContext`\[Theta]] 
      Subscript[$CellContext`Q, $CellContext`\[Phi]] + $CellContext`R 
      Subscript[
       N, $CellContext`\[Theta]\[Phi], $CellContext`\[Theta]] + \
$CellContext`r Cos[$CellContext`\[Theta]] 
      Subscript[
       N, $CellContext`\[Theta]\[Phi], $CellContext`\[Theta]] + \
$CellContext`r Subscript[N, $CellContext`\[Phi]\[Phi], $CellContext`\[Phi]])],
    " = 0"],
  Editable->False]], "Print",
 CellChangeTimes->{3.8896008648264923`*^9},
 CellLabel->
  "During evaluation of \
In[66]:=",ExpressionUUID->"d1750515-434b-4304-9641-a93565b234f0"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     RowBox[{
      FractionBox[
       RowBox[{
        RowBox[{"r", " ", 
         RowBox[{"cos", "(", "\[Theta]", ")"}], " ", 
         SubscriptBox["N", 
          RowBox[{"\[Theta]\[Theta]", ",", "\[Theta]"}]]}], "+", 
        RowBox[{"r", " ", 
         SubscriptBox["N", 
          RowBox[{"\[Phi]\[Theta]", ",", "\[Phi]"}]]}], "+", 
        RowBox[{"R", " ", 
         SubscriptBox["N", 
          RowBox[{"\[Theta]\[Theta]", ",", "\[Theta]"}]]}], "-", 
        RowBox[{"r", " ", 
         RowBox[{"sin", "(", "\[Theta]", ")"}], " ", 
         SubscriptBox["N", "\[Theta]\[Theta]"]}], "+", 
        RowBox[{"r", " ", 
         RowBox[{"sin", "(", "\[Theta]", ")"}], " ", 
         SubscriptBox["N", "\[Phi]\[Phi]"]}], "+", 
        RowBox[{"r", " ", 
         RowBox[{"cos", "(", "\[Theta]", ")"}], " ", 
         SubscriptBox["Q", "\[Theta]"]}], "+", 
        RowBox[{"R", " ", 
         SubscriptBox["Q", "\[Theta]"]}]}], 
       RowBox[{"r", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"r", " ", 
           RowBox[{"cos", "(", "\[Theta]", ")"}]}], "+", "R"}], ")"}]}]], "+", 
      SubscriptBox["b", "\[Theta]"]}],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\" = 0\"\>"}],
  SequenceForm[
   TraditionalForm[
   Subscript[$CellContext`b, $CellContext`\[Theta]] + $CellContext`r^(-1) \
($CellContext`R + $CellContext`r 
        Cos[$CellContext`\[Theta]])^(-1) (-$CellContext`r 
       Sin[$CellContext`\[Theta]] 
       Subscript[N, $CellContext`\[Theta]\[Theta]] + $CellContext`r 
       Sin[$CellContext`\[Theta]] 
       Subscript[N, $CellContext`\[Phi]\[Phi]] + $CellContext`R 
       Subscript[$CellContext`Q, $CellContext`\[Theta]] + $CellContext`r 
       Cos[$CellContext`\[Theta]] 
       Subscript[$CellContext`Q, $CellContext`\[Theta]] + $CellContext`R 
       Subscript[
        N, $CellContext`\[Theta]\[Theta], $CellContext`\[Theta]] + \
$CellContext`r Cos[$CellContext`\[Theta]] 
       Subscript[
        N, $CellContext`\[Theta]\[Theta], $CellContext`\[Theta]] + \
$CellContext`r 
       Subscript[N, $CellContext`\[Phi]\[Theta], $CellContext`\[Phi]])], 
   " = 0"],
  Editable->False]], "Print",
 CellChangeTimes->{3.889600864948683*^9},
 CellLabel->
  "During evaluation of \
In[66]:=",ExpressionUUID->"a9ffe410-63ed-424c-b49b-2339392673cb"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     RowBox[{
      FractionBox[
       RowBox[{
        RowBox[{"r", " ", 
         RowBox[{"cos", "(", "\[Theta]", ")"}], " ", 
         SubscriptBox["Q", 
          RowBox[{"\[Theta]", ",", "\[Theta]"}]]}], "+", 
        RowBox[{"r", " ", 
         SubscriptBox["Q", 
          RowBox[{"\[Phi]", ",", "\[Phi]"}]]}], "+", 
        RowBox[{"R", " ", 
         SubscriptBox["Q", 
          RowBox[{"\[Theta]", ",", "\[Theta]"}]]}], "-", 
        RowBox[{"r", " ", 
         RowBox[{"cos", "(", "\[Theta]", ")"}], " ", 
         SubscriptBox["N", "\[Phi]\[Phi]"]}], "-", 
        RowBox[{"(", 
         RowBox[{
          SubscriptBox["N", "\[Theta]\[Theta]"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"r", " ", 
             RowBox[{"cos", "(", "\[Theta]", ")"}]}], "+", "R"}], ")"}]}], 
         ")"}], "-", 
        RowBox[{"r", " ", 
         RowBox[{"sin", "(", "\[Theta]", ")"}], " ", 
         SubscriptBox["Q", "\[Theta]"]}]}], 
       RowBox[{"r", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"r", " ", 
           RowBox[{"cos", "(", "\[Theta]", ")"}]}], "+", "R"}], ")"}]}]], "+", 
      SubscriptBox["b", "n"]}],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\" = 0\"\>"}],
  SequenceForm[
   TraditionalForm[
   Subscript[$CellContext`b, $CellContext`n] + $CellContext`r^(-1) \
($CellContext`R + $CellContext`r 
        Cos[$CellContext`\[Theta]])^(-1) (-($CellContext`R + $CellContext`r 
         Cos[$CellContext`\[Theta]]) 
       Subscript[N, $CellContext`\[Theta]\[Theta]] - $CellContext`r 
      Cos[$CellContext`\[Theta]] 
      Subscript[N, $CellContext`\[Phi]\[Phi]] - $CellContext`r 
      Sin[$CellContext`\[Theta]] 
      Subscript[$CellContext`Q, $CellContext`\[Theta]] + $CellContext`R 
       Subscript[$CellContext`Q, $CellContext`\[Theta], \
$CellContext`\[Theta]] + $CellContext`r Cos[$CellContext`\[Theta]] 
       Subscript[$CellContext`Q, $CellContext`\[Theta], \
$CellContext`\[Theta]] + $CellContext`r 
       Subscript[$CellContext`Q, $CellContext`\[Phi], $CellContext`\[Phi]])], 
   " = 0"],
  Editable->False]], "Print",
 CellChangeTimes->{3.889600865120225*^9},
 CellLabel->
  "During evaluation of \
In[66]:=",ExpressionUUID->"19ab6ffe-6151-4d8f-88c5-673e5976e1d3"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     FractionBox[
      RowBox[{
       RowBox[{
        SubscriptBox["M", 
         RowBox[{"\[Theta]\[Phi]", ",", "\[Theta]"}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"r", " ", 
           RowBox[{"cos", "(", "\[Theta]", ")"}]}], "+", "R"}], ")"}]}], "+", 
       RowBox[{"r", " ", 
        SubscriptBox["M", 
         RowBox[{"\[Phi]\[Phi]", ",", "\[Phi]"}]]}], "+", 
       RowBox[{"r", " ", 
        SubscriptBox["c", "\[Phi]"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"r", " ", 
           RowBox[{"cos", "(", "\[Theta]", ")"}]}], "+", "R"}], ")"}]}], "-", 
       RowBox[{"r", " ", 
        RowBox[{"sin", "(", "\[Theta]", ")"}], " ", 
        SubscriptBox["M", "\[Theta]\[Phi]"]}], "-", 
       RowBox[{"r", " ", 
        RowBox[{"sin", "(", "\[Theta]", ")"}], " ", 
        SubscriptBox["M", "\[Phi]\[Theta]"]}], "+", 
       RowBox[{"r", " ", 
        RowBox[{"cos", "(", "\[Theta]", ")"}], " ", 
        SubscriptBox["M", "\[Phi]n"]}], "-", 
       RowBox[{"r", " ", 
        SubscriptBox["Q", "\[Phi]"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"r", " ", 
           RowBox[{"cos", "(", "\[Theta]", ")"}]}], "+", "R"}], ")"}]}]}], 
      RowBox[{"r", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"r", " ", 
          RowBox[{"cos", "(", "\[Theta]", ")"}]}], "+", "R"}], ")"}]}]],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\" = 0\"\>"}],
  SequenceForm[
   TraditionalForm[$CellContext`r^(-1) ($CellContext`R + $CellContext`r 
       Cos[$CellContext`\[Theta]])^(-1) ($CellContext`r ($CellContext`R + \
$CellContext`r Cos[$CellContext`\[Theta]]) 
      Subscript[$CellContext`c, $CellContext`\[Phi]] - $CellContext`r 
     Sin[$CellContext`\[Theta]] 
     Subscript[$CellContext`M, $CellContext`\[Theta]\[Phi]] + $CellContext`r 
      Cos[$CellContext`\[Theta]] 
      Subscript[$CellContext`M, $CellContext`\[Phi]n] - $CellContext`r 
     Sin[$CellContext`\[Theta]] 
     Subscript[$CellContext`M, $CellContext`\[Phi]\[Theta]] - $CellContext`r \
($CellContext`R + $CellContext`r Cos[$CellContext`\[Theta]]) 
     Subscript[$CellContext`Q, $CellContext`\[Phi]] + ($CellContext`R + \
$CellContext`r Cos[$CellContext`\[Theta]]) 
      Subscript[$CellContext`M, $CellContext`\[Theta]\[Phi], $CellContext`\
\[Theta]] + $CellContext`r 
      Subscript[$CellContext`M, $CellContext`\[Phi]\[Phi], \
$CellContext`\[Phi]])], " = 0"],
  Editable->False]], "Print",
 CellChangeTimes->{3.8896008652281494`*^9},
 CellLabel->
  "During evaluation of \
In[66]:=",ExpressionUUID->"c8217340-f7d4-457a-9175-e14acbbe8c2a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     RowBox[{
      FractionBox[
       RowBox[{
        FractionBox[
         RowBox[{
          RowBox[{
           SubscriptBox["M", 
            RowBox[{"\[Theta]\[Theta]", ",", "\[Theta]"}]], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"r", " ", 
              RowBox[{"cos", "(", "\[Theta]", ")"}]}], "+", "R"}], ")"}]}], 
          "+", 
          RowBox[{"r", " ", 
           SubscriptBox["M", 
            RowBox[{"\[Phi]\[Theta]", ",", "\[Phi]"}]]}], "-", 
          RowBox[{"r", " ", 
           RowBox[{"sin", "(", "\[Theta]", ")"}], " ", 
           SubscriptBox["M", "\[Theta]\[Theta]"]}], "+", 
          RowBox[{"r", " ", 
           RowBox[{"sin", "(", "\[Theta]", ")"}], " ", 
           SubscriptBox["M", "\[Phi]\[Phi]"]}], "-", 
          RowBox[{"r", " ", 
           SubscriptBox["Q", "\[Theta]"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"r", " ", 
              RowBox[{"cos", "(", "\[Theta]", ")"}]}], "+", "R"}], ")"}]}]}], 
         RowBox[{
          RowBox[{"r", " ", 
           RowBox[{"cos", "(", "\[Theta]", ")"}]}], "+", "R"}]], "+", 
        SubscriptBox["M", "\[Theta]n"]}], "r"], "+", 
      SubscriptBox["c", "\[Theta]"]}],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\" = 0\"\>"}],
  SequenceForm[
   TraditionalForm[
   Subscript[$CellContext`c, $CellContext`\[Theta]] + $CellContext`r^(-1) (
      Subscript[$CellContext`M, $CellContext`\[Theta]n] + ($CellContext`R + \
$CellContext`r Cos[$CellContext`\[Theta]])^(-1) (-$CellContext`r 
         Sin[$CellContext`\[Theta]] 
         Subscript[$CellContext`M, $CellContext`\[Theta]\[Theta]] + \
$CellContext`r Sin[$CellContext`\[Theta]] 
         Subscript[$CellContext`M, $CellContext`\[Phi]\[Phi]] - \
$CellContext`r ($CellContext`R + $CellContext`r Cos[$CellContext`\[Theta]]) 
        Subscript[$CellContext`Q, $CellContext`\[Theta]] + ($CellContext`R + \
$CellContext`r Cos[$CellContext`\[Theta]]) 
         Subscript[$CellContext`M, $CellContext`\[Theta]\[Theta], \
$CellContext`\[Theta]] + $CellContext`r 
         Subscript[$CellContext`M, $CellContext`\[Phi]\[Theta], $CellContext`\
\[Phi]]))], " = 0"],
  Editable->False]], "Print",
 CellChangeTimes->{3.8896008655852847`*^9},
 CellLabel->
  "During evaluation of \
In[66]:=",ExpressionUUID->"510f34fe-5a36-48ab-aee0-7d4115bc89b8"],

Cell[BoxData["\<\"CONSTITUTIVE:\"\>"], "Print",
 CellChangeTimes->{3.88960086559825*^9},
 CellLabel->
  "During evaluation of \
In[66]:=",ExpressionUUID->"5d2abc9a-aeb2-429f-aeb0-195dbc4b540d"],

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[{"-", 
          FractionBox[
           RowBox[{
            SubscriptBox["u", 
             RowBox[{"\[Phi]", ",", "\[Phi]"}]], "+", 
            RowBox[{
             RowBox[{"cos", "(", "\[Theta]", ")"}], " ", 
             SubscriptBox["u", "n"]}], "-", 
            RowBox[{
             RowBox[{"sin", "(", "\[Theta]", ")"}], " ", 
             SubscriptBox["u", "\[Theta]"]}]}], 
           RowBox[{
            RowBox[{"r", " ", 
             RowBox[{"cos", "(", "\[Theta]", ")"}]}], "+", "R"}]]}], "-", 
         FractionBox[
          RowBox[{"\[Nu]", " ", 
           RowBox[{"(", 
            RowBox[{
             SubscriptBox["u", 
              RowBox[{"\[Theta]", ",", "\[Theta]"}]], "+", 
             SubscriptBox["u", "n"]}], ")"}]}], "r"]}], ")"}]}], 
      RowBox[{
       SuperscriptBox["\[Nu]", "2"], "-", "1"}]],
     TraditionalForm],
    TraditionalForm,
    Editable->True]}],
  SequenceForm[
   TraditionalForm[
    Subscript[N, $CellContext`\[Phi]\[Phi]]], "=", 
   TraditionalForm[$CellContext`EE $CellContext`t (-1 + \
$CellContext`\[Nu]^2)^(-1) (-$CellContext`r^(-1) $CellContext`\[Nu] (
       Subscript[$CellContext`u, $CellContext`n] + 
       Subscript[$CellContext`u, $CellContext`\[Theta], \
$CellContext`\[Theta]]) - ($CellContext`R + $CellContext`r 
        Cos[$CellContext`\[Theta]])^(-1) (
      Cos[$CellContext`\[Theta]] Subscript[$CellContext`u, $CellContext`n] - 
      Sin[$CellContext`\[Theta]] 
      Subscript[$CellContext`u, $CellContext`\[Theta]] + 
      Subscript[$CellContext`u, $CellContext`\[Phi], $CellContext`\[Phi]]))]],
  Editable->False]], "Print",
 CellChangeTimes->{3.889600888882082*^9},
 CellLabel->
  "During evaluation of \
In[66]:=",ExpressionUUID->"42ce0f7a-9e4d-44a9-9247-178ec8132666"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     SubscriptBox["N", "\[Phi]\[Theta]"],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", 
   TagBox[
    FormBox[
     FractionBox[
      RowBox[{"EE", " ", "t", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SubscriptBox["u", 
           RowBox[{"\[Phi]", ",", "\[Theta]"}]], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"r", " ", 
             RowBox[{"cos", "(", "\[Theta]", ")"}]}], "+", "R"}], ")"}]}], 
         "+", 
         RowBox[{"r", " ", 
          SubscriptBox["u", 
           RowBox[{"\[Theta]", ",", "\[Phi]"}]]}], "+", 
         RowBox[{"r", " ", 
          RowBox[{"sin", "(", "\[Theta]", ")"}], " ", 
          SubscriptBox["u", "\[Phi]"]}]}], ")"}]}], 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{"\[Nu]", "+", "1"}], ")"}], " ", "r", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"r", " ", 
          RowBox[{"cos", "(", "\[Theta]", ")"}]}], "+", "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) ($CellContext`R + $CellContext`r 
       Cos[$CellContext`\[Theta]])^(-1) ($CellContext`r 
      Sin[$CellContext`\[Theta]] 
      Subscript[$CellContext`u, $CellContext`\[Phi]] + $CellContext`r 
      Subscript[$CellContext`u, $CellContext`\[Theta], $CellContext`\[Phi]] + \
($CellContext`R + $CellContext`r Cos[$CellContext`\[Theta]]) 
      Subscript[$CellContext`u, $CellContext`\[Phi], $CellContext`\[Theta]])]],
  Editable->False]], "Print",
 CellChangeTimes->{3.889600889208211*^9},
 CellLabel->
  "During evaluation of \
In[66]:=",ExpressionUUID->"93925300-1f96-4aca-a34b-1a333ba4ae9e"],

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[{
          SubscriptBox["\[Theta]", "\[Theta]"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"r", " ", 
             RowBox[{"cos", "(", "\[Theta]", ")"}]}], "+", "R"}], ")"}]}], 
         "-", 
         RowBox[{
          RowBox[{"cos", "(", "\[Theta]", ")"}], " ", 
          SubscriptBox["u", "\[Phi]"]}]}], ")"}]}], 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{"\[Nu]", "+", "1"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"r", " ", 
          RowBox[{"cos", "(", "\[Theta]", ")"}]}], "+", "R"}], ")"}]}]],
     TraditionalForm],
    TraditionalForm,
    Editable->True]}],
  SequenceForm[
   TraditionalForm[
    Subscript[$CellContext`Q, $CellContext`\[Phi]]], "=", 
   TraditionalForm[
   Rational[1, 2] $CellContext`EE $CellContext`t (
      1 + $CellContext`\[Nu])^(-1) ($CellContext`R + $CellContext`r 
       Cos[$CellContext`\[Theta]])^(-1) (-Cos[$CellContext`\[Theta]] 
      Subscript[$CellContext`u, $CellContext`\[Phi]] + ($CellContext`R + \
$CellContext`r Cos[$CellContext`\[Theta]]) 
      Subscript[$CellContext`\[Theta], $CellContext`\[Theta]] + 
     Subscript[$CellContext`u, $CellContext`n, $CellContext`\[Phi]])]],
  Editable->False]], "Print",
 CellChangeTimes->{3.889600889453556*^9},
 CellLabel->
  "During evaluation of \
In[66]:=",ExpressionUUID->"9d212e02-55a2-42ca-bac7-f8b03f93e9b0"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     SubscriptBox["N", "\[Theta]\[Phi]"],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", 
   TagBox[
    FormBox[
     FractionBox[
      RowBox[{"EE", " ", "t", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SubscriptBox["u", 
           RowBox[{"\[Phi]", ",", "\[Theta]"}]], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"r", " ", 
             RowBox[{"cos", "(", "\[Theta]", ")"}]}], "+", "R"}], ")"}]}], 
         "+", 
         RowBox[{"r", " ", 
          SubscriptBox["u", 
           RowBox[{"\[Theta]", ",", "\[Phi]"}]]}], "+", 
         RowBox[{"r", " ", 
          RowBox[{"sin", "(", "\[Theta]", ")"}], " ", 
          SubscriptBox["u", "\[Phi]"]}]}], ")"}]}], 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{"\[Nu]", "+", "1"}], ")"}], " ", "r", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"r", " ", 
          RowBox[{"cos", "(", "\[Theta]", ")"}]}], "+", "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) ($CellContext`R + $CellContext`r 
       Cos[$CellContext`\[Theta]])^(-1) ($CellContext`r 
      Sin[$CellContext`\[Theta]] 
      Subscript[$CellContext`u, $CellContext`\[Phi]] + $CellContext`r 
      Subscript[$CellContext`u, $CellContext`\[Theta], $CellContext`\[Phi]] + \
($CellContext`R + $CellContext`r Cos[$CellContext`\[Theta]]) 
      Subscript[$CellContext`u, $CellContext`\[Phi], $CellContext`\[Theta]])]],
  Editable->False]], "Print",
 CellChangeTimes->{3.889600889559651*^9},
 CellLabel->
  "During evaluation of \
In[66]:=",ExpressionUUID->"ca2bb49a-6666-4ca8-b312-7eb4a488b707"],

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[{"-", 
          FractionBox[
           RowBox[{"\[Nu]", " ", 
            RowBox[{"(", 
             RowBox[{
              SubscriptBox["u", 
               RowBox[{"\[Phi]", ",", "\[Phi]"}]], "+", 
              RowBox[{
               RowBox[{"cos", "(", "\[Theta]", ")"}], " ", 
               SubscriptBox["u", "n"]}], "-", 
              RowBox[{
               RowBox[{"sin", "(", "\[Theta]", ")"}], " ", 
               SubscriptBox["u", "\[Theta]"]}]}], ")"}]}], 
           RowBox[{
            RowBox[{"r", " ", 
             RowBox[{"cos", "(", "\[Theta]", ")"}]}], "+", "R"}]]}], "-", 
         FractionBox[
          RowBox[{
           SubscriptBox["u", 
            RowBox[{"\[Theta]", ",", "\[Theta]"}]], "+", 
           SubscriptBox["u", "n"]}], "r"]}], ")"}]}], 
      RowBox[{
       SuperscriptBox["\[Nu]", "2"], "-", "1"}]],
     TraditionalForm],
    TraditionalForm,
    Editable->True]}],
  SequenceForm[
   TraditionalForm[
    Subscript[N, $CellContext`\[Theta]\[Theta]]], "=", 
   TraditionalForm[$CellContext`EE $CellContext`t (-1 + \
$CellContext`\[Nu]^2)^(-1) (-$CellContext`r^(-1) (
       Subscript[$CellContext`u, $CellContext`n] + 
       Subscript[$CellContext`u, $CellContext`\[Theta], \
$CellContext`\[Theta]]) - $CellContext`\[Nu] ($CellContext`R + $CellContext`r 
        Cos[$CellContext`\[Theta]])^(-1) (
      Cos[$CellContext`\[Theta]] Subscript[$CellContext`u, $CellContext`n] - 
      Sin[$CellContext`\[Theta]] 
      Subscript[$CellContext`u, $CellContext`\[Theta]] + 
      Subscript[$CellContext`u, $CellContext`\[Phi], $CellContext`\[Phi]]))]],
  Editable->False]], "Print",
 CellChangeTimes->{3.8896008908182893`*^9},
 CellLabel->
  "During evaluation of \
In[66]:=",ExpressionUUID->"ff4ade51-a32d-4715-be2a-aa38e4d70d3f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     SubscriptBox["Q", "\[Theta]"],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", 
   TagBox[
    FormBox[
     RowBox[{"-", 
      FractionBox[
       RowBox[{"EE", " ", "t", " ", 
        RowBox[{"(", 
         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.889600890853196*^9},
 CellLabel->
  "During evaluation of \
In[66]:=",ExpressionUUID->"a07c09b2-2325-4cec-ae77-7c12285bf5fb"],

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[{
          SubscriptBox["\[Theta]", "\[Theta]"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"r", " ", 
             RowBox[{"cos", "(", "\[Theta]", ")"}]}], "+", "R"}], ")"}]}], 
         "-", 
         RowBox[{
          RowBox[{"cos", "(", "\[Theta]", ")"}], " ", 
          SubscriptBox["u", "\[Phi]"]}]}], ")"}]}], 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{"\[Nu]", "+", "1"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"r", " ", 
          RowBox[{"cos", "(", "\[Theta]", ")"}]}], "+", "R"}], ")"}]}]],
     TraditionalForm],
    TraditionalForm,
    Editable->True]}],
  SequenceForm[
   TraditionalForm[
    Subscript[$CellContext`Q, $CellContext`\[Phi]]], "=", 
   TraditionalForm[
   Rational[1, 2] $CellContext`EE $CellContext`t (
      1 + $CellContext`\[Nu])^(-1) ($CellContext`R + $CellContext`r 
       Cos[$CellContext`\[Theta]])^(-1) (-Cos[$CellContext`\[Theta]] 
      Subscript[$CellContext`u, $CellContext`\[Phi]] + ($CellContext`R + \
$CellContext`r Cos[$CellContext`\[Theta]]) 
      Subscript[$CellContext`\[Theta], $CellContext`\[Theta]] + 
     Subscript[$CellContext`u, $CellContext`n, $CellContext`\[Phi]])]],
  Editable->False]], "Print",
 CellChangeTimes->{3.8896008909414377`*^9},
 CellLabel->
  "During evaluation of \
In[66]:=",ExpressionUUID->"8bbdc30f-8f48-48be-b50b-7708d79b3d28"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     SubscriptBox["Q", "\[Theta]"],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", 
   TagBox[
    FormBox[
     RowBox[{"-", 
      FractionBox[
       RowBox[{"EE", " ", "t", " ", 
        RowBox[{"(", 
         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.889600890949422*^9},
 CellLabel->
  "During evaluation of \
In[66]:=",ExpressionUUID->"0a441d90-3aa7-4fc2-bc2e-ef1e8ca28a88"],

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.8896008909564033`*^9},
 CellLabel->
  "During evaluation of \
In[66]:=",ExpressionUUID->"d82e61de-7e13-4c61-b848-212f367e3f06"],

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[{"-", 
          FractionBox[
           RowBox[{"R", " ", 
            RowBox[{"(", 
             RowBox[{
              SubscriptBox["u", 
               RowBox[{"\[Phi]", ",", "\[Phi]"}]], "+", 
              RowBox[{
               RowBox[{"cos", "(", "\[Theta]", ")"}], " ", 
               SubscriptBox["u", "n"]}], "-", 
              RowBox[{
               RowBox[{"sin", "(", "\[Theta]", ")"}], " ", 
               SubscriptBox["u", "\[Theta]"]}]}], ")"}]}], 
           RowBox[{"r", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"r", " ", 
                RowBox[{"cos", "(", "\[Theta]", ")"}]}], "+", "R"}], ")"}], 
             "2"]}]]}], "+", 
         FractionBox[
          RowBox[{"\[Nu]", " ", 
           SubscriptBox["\[Theta]", 
            RowBox[{"\[Phi]", ",", "\[Theta]"}]]}], "r"], "-", 
         FractionBox[
          RowBox[{
           SubscriptBox["\[Theta]", 
            RowBox[{"\[Theta]", ",", "\[Phi]"}]], "+", 
           RowBox[{
            SubscriptBox["\[Theta]", "\[Phi]"], " ", 
            RowBox[{"sin", "(", "\[Theta]", ")"}]}]}], 
          RowBox[{
           RowBox[{"r", " ", 
            RowBox[{"cos", "(", "\[Theta]", ")"}]}], "+", "R"}]]}], ")"}]}], 
      RowBox[{"12", " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Nu]", "2"], "-", "1"}], ")"}]}]],
     TraditionalForm],
    TraditionalForm,
    Editable->True]}],
  SequenceForm[
   TraditionalForm[
    Subscript[$CellContext`M, $CellContext`\[Phi]\[Phi]]], "=", 
   TraditionalForm[
   Rational[1, 
      12] $CellContext`EE $CellContext`t^3 (-1 + $CellContext`\[Nu]^2)^(-1) \
(-$CellContext`r^(-1) $CellContext`R ($CellContext`R + $CellContext`r 
         Cos[$CellContext`\[Theta]])^(-2) (
       Cos[$CellContext`\[Theta]] Subscript[$CellContext`u, $CellContext`n] - 
       Sin[$CellContext`\[Theta]] 
       Subscript[$CellContext`u, $CellContext`\[Theta]] + 
       Subscript[$CellContext`u, $CellContext`\[Phi], $CellContext`\[Phi]]) - \
($CellContext`R + $CellContext`r Cos[$CellContext`\[Theta]])^(-1) (
      Sin[$CellContext`\[Theta]] 
       Subscript[$CellContext`\[Theta], $CellContext`\[Phi]] + 
      Subscript[$CellContext`\[Theta], $CellContext`\[Theta], $CellContext`\
\[Phi]]) + $CellContext`r^(-1) $CellContext`\[Nu] 
      Subscript[$CellContext`\[Theta], $CellContext`\[Phi], $CellContext`\
\[Theta]])]],
  Editable->False]], "Print",
 CellChangeTimes->{3.889600893099471*^9},
 CellLabel->
  "During evaluation of \
In[66]:=",ExpressionUUID->"3bbc0b8f-35aa-4119-b825-e38a8bf170b7"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     SubscriptBox["M", "\[Phi]\[Theta]"],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", 
   TagBox[
    FormBox[
     FractionBox[
      RowBox[{"EE", " ", 
       SuperscriptBox["t", "3"], " ", 
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          SubscriptBox["\[Theta]", 
           RowBox[{"\[Theta]", ",", "\[Theta]"}]], "r"], "+", 
         FractionBox[
          RowBox[{
           RowBox[{
            SubscriptBox["\[Theta]", "\[Theta]"], " ", 
            RowBox[{"sin", "(", "\[Theta]", ")"}]}], "-", 
           SubscriptBox["\[Theta]", 
            RowBox[{"\[Phi]", ",", "\[Phi]"}]]}], 
          RowBox[{
           RowBox[{"r", " ", 
            RowBox[{"cos", "(", "\[Theta]", ")"}]}], "+", "R"}]], "+", 
         FractionBox[
          RowBox[{"R", " ", 
           RowBox[{"(", 
            RowBox[{
             SubscriptBox["u", 
              RowBox[{"\[Theta]", ",", "\[Phi]"}]], "+", 
             RowBox[{
              RowBox[{"sin", "(", "\[Theta]", ")"}], " ", 
              SubscriptBox["u", "\[Phi]"]}]}], ")"}]}], 
          RowBox[{"r", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"r", " ", 
               RowBox[{"cos", "(", "\[Theta]", ")"}]}], "+", "R"}], ")"}], 
            "2"]}]]}], ")"}]}], 
      RowBox[{"24", " ", 
       RowBox[{"(", 
        RowBox[{"\[Nu]", "+", "1"}], ")"}]}]],
     TraditionalForm],
    TraditionalForm,
    Editable->True]}],
  SequenceForm[
   TraditionalForm[
    Subscript[$CellContext`M, $CellContext`\[Phi]\[Theta]]], "=", 
   TraditionalForm[
   Rational[1, 24] $CellContext`EE $CellContext`t^3 (
      1 + $CellContext`\[Nu])^(-1) ($CellContext`r^(-1) $CellContext`R \
($CellContext`R + $CellContext`r Cos[$CellContext`\[Theta]])^(-2) (
       Sin[$CellContext`\[Theta]] 
        Subscript[$CellContext`u, $CellContext`\[Phi]] + 
       Subscript[$CellContext`u, $CellContext`\[Theta], $CellContext`\[Phi]]) + \
$CellContext`r^(-1) 
      Subscript[$CellContext`\[Theta], $CellContext`\[Theta], $CellContext`\
\[Theta]] + ($CellContext`R + $CellContext`r 
         Cos[$CellContext`\[Theta]])^(-1) (
       Sin[$CellContext`\[Theta]] 
        Subscript[$CellContext`\[Theta], $CellContext`\[Theta]] - 
       Subscript[$CellContext`\[Theta], $CellContext`\[Phi], $CellContext`\
\[Phi]]))]],
  Editable->False]], "Print",
 CellChangeTimes->{3.889600894708257*^9},
 CellLabel->
  "During evaluation of \
In[66]:=",ExpressionUUID->"7eb87bd8-19ea-47f6-8f48-b1d5a99234ef"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     SubscriptBox["M", "\[Phi]n"],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", 
   TagBox[
    FormBox[
     FractionBox[
      RowBox[{"EE", " ", "R", " ", 
       SuperscriptBox["t", "3"], " ", 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["u", 
          RowBox[{"n", ",", "\[Phi]"}]], "+", 
         RowBox[{
          SubscriptBox["\[Theta]", "\[Theta]"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"r", " ", 
             RowBox[{"cos", "(", "\[Theta]", ")"}]}], "+", "R"}], ")"}]}], 
         "-", 
         RowBox[{
          RowBox[{"cos", "(", "\[Theta]", ")"}], " ", 
          SubscriptBox["u", "\[Phi]"]}]}], ")"}]}], 
      RowBox[{"24", " ", 
       RowBox[{"(", 
        RowBox[{"\[Nu]", "+", "1"}], ")"}], " ", "r", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"r", " ", 
           RowBox[{"cos", "(", "\[Theta]", ")"}]}], "+", "R"}], ")"}], "2"]}]],
     TraditionalForm],
    TraditionalForm,
    Editable->True]}],
  SequenceForm[
   TraditionalForm[
    Subscript[$CellContext`M, $CellContext`\[Phi]n]], "=", 
   TraditionalForm[
   Rational[1, 
      24] $CellContext`EE $CellContext`r^(-1) $CellContext`R $CellContext`t^3 \
(1 + $CellContext`\[Nu])^(-1) ($CellContext`R + $CellContext`r 
       Cos[$CellContext`\[Theta]])^(-2) (-Cos[$CellContext`\[Theta]] 
      Subscript[$CellContext`u, $CellContext`\[Phi]] + ($CellContext`R + \
$CellContext`r Cos[$CellContext`\[Theta]]) 
      Subscript[$CellContext`\[Theta], $CellContext`\[Theta]] + 
     Subscript[$CellContext`u, $CellContext`n, $CellContext`\[Phi]])]],
  Editable->False]], "Print",
 CellChangeTimes->{3.8896008950334635`*^9},
 CellLabel->
  "During evaluation of \
In[66]:=",ExpressionUUID->"0bb99683-e2e9-4145-8b9d-b25c83cefb75"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     SubscriptBox["M", "\[Theta]\[Phi]"],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", 
   TagBox[
    FormBox[
     FractionBox[
      RowBox[{"EE", " ", 
       SuperscriptBox["t", "3"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"r", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             RowBox[{"r", " ", 
              SubscriptBox["\[Theta]", 
               RowBox[{"\[Phi]", ",", "\[Phi]"}]]}]}], "+", 
            RowBox[{
             SubscriptBox["\[Theta]", 
              RowBox[{"\[Theta]", ",", "\[Theta]"}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"r", " ", 
                RowBox[{"cos", "(", "\[Theta]", ")"}]}], "+", "R"}], ")"}]}], 
            "+", 
            RowBox[{
             SubscriptBox["\[Theta]", "\[Theta]"], " ", "r", " ", 
             RowBox[{"sin", "(", "\[Theta]", ")"}]}]}], ")"}]}], "-", 
         RowBox[{"R", " ", 
          SubscriptBox["u", 
           RowBox[{"\[Phi]", ",", "\[Theta]"}]]}]}], ")"}]}], 
      RowBox[{"24", " ", 
       RowBox[{"(", 
        RowBox[{"\[Nu]", "+", "1"}], ")"}], " ", 
       SuperscriptBox["r", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"r", " ", 
          RowBox[{"cos", "(", "\[Theta]", ")"}]}], "+", "R"}], ")"}]}]],
     TraditionalForm],
    TraditionalForm,
    Editable->True]}],
  SequenceForm[
   TraditionalForm[
    Subscript[$CellContext`M, $CellContext`\[Theta]\[Phi]]], "=", 
   TraditionalForm[
   Rational[1, 24] $CellContext`EE $CellContext`r^(-2) $CellContext`t^3 (
      1 + $CellContext`\[Nu])^(-1) ($CellContext`R + $CellContext`r 
       Cos[$CellContext`\[Theta]])^(-1) (-$CellContext`R 
      Subscript[$CellContext`u, $CellContext`\[Phi], $CellContext`\[Theta]] + \
$CellContext`r ($CellContext`r Sin[$CellContext`\[Theta]] 
        Subscript[$CellContext`\[Theta], $CellContext`\[Theta]] + \
($CellContext`R + $CellContext`r Cos[$CellContext`\[Theta]]) 
        Subscript[$CellContext`\[Theta], $CellContext`\[Theta], $CellContext`\
\[Theta]] - $CellContext`r 
       Subscript[$CellContext`\[Theta], $CellContext`\[Phi], $CellContext`\
\[Phi]]))]],
  Editable->False]], "Print",
 CellChangeTimes->{3.8896008956124964`*^9},
 CellLabel->
  "During evaluation of \
In[66]:=",ExpressionUUID->"66cceb54-03a3-4569-81d8-6afa20f3f194"],

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[{"R", " ", 
          RowBox[{"(", 
           RowBox[{
            SubscriptBox["u", 
             RowBox[{"\[Theta]", ",", "\[Theta]"}]], "+", 
            SubscriptBox["u", "n"]}], ")"}]}], "-", 
         RowBox[{"\[Nu]", " ", 
          SuperscriptBox["r", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            SubscriptBox["\[Theta]", 
             RowBox[{"\[Theta]", ",", "\[Phi]"}]], "+", 
            RowBox[{
             SubscriptBox["\[Theta]", "\[Phi]"], " ", 
             RowBox[{"sin", "(", "\[Theta]", ")"}]}]}], ")"}]}], "+", 
         RowBox[{"r", " ", 
          SubscriptBox["\[Theta]", 
           RowBox[{"\[Phi]", ",", "\[Theta]"}]], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"r", " ", 
             RowBox[{"cos", "(", "\[Theta]", ")"}]}], "+", "R"}], ")"}]}]}], 
        ")"}]}], 
      RowBox[{"12", " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Nu]", "2"], "-", "1"}], ")"}], " ", 
       SuperscriptBox["r", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"r", " ", 
          RowBox[{"cos", "(", "\[Theta]", ")"}]}], "+", "R"}], ")"}]}]],
     TraditionalForm],
    TraditionalForm,
    Editable->True]}],
  SequenceForm[
   TraditionalForm[
    Subscript[$CellContext`M, $CellContext`\[Theta]\[Theta]]], "=", 
   TraditionalForm[
   Rational[1, 
      12] $CellContext`EE $CellContext`r^(-2) $CellContext`t^3 (-1 + \
$CellContext`\[Nu]^2)^(-1) ($CellContext`R + $CellContext`r 
       Cos[$CellContext`\[Theta]])^(-1) ($CellContext`R (
       Subscript[$CellContext`u, $CellContext`n] + 
       Subscript[$CellContext`u, $CellContext`\[Theta], \
$CellContext`\[Theta]]) - $CellContext`r^2 $CellContext`\[Nu] (
      Sin[$CellContext`\[Theta]] 
       Subscript[$CellContext`\[Theta], $CellContext`\[Phi]] + 
      Subscript[$CellContext`\[Theta], $CellContext`\[Theta], $CellContext`\
\[Phi]]) + $CellContext`r ($CellContext`R + $CellContext`r 
        Cos[$CellContext`\[Theta]]) 
      Subscript[$CellContext`\[Theta], $CellContext`\[Phi], $CellContext`\
\[Theta]])]],
  Editable->False]], "Print",
 CellChangeTimes->{3.88960089636397*^9},
 CellLabel->
  "During evaluation of \
In[66]:=",ExpressionUUID->"9519260d-f081-427e-90f0-aa18a84f0121"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     SubscriptBox["M", "\[Theta]n"],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", 
   TagBox[
    FormBox[
     FractionBox[
      RowBox[{"EE", " ", "R", " ", 
       SuperscriptBox["t", "3"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          SubscriptBox["u", 
           RowBox[{"n", ",", "\[Theta]"}]]}], "+", 
         RowBox[{"r", " ", 
          SubscriptBox["\[Theta]", "\[Phi]"]}], "+", 
         SubscriptBox["u", "\[Theta]"]}], ")"}]}], 
      RowBox[{"24", " ", 
       RowBox[{"(", 
        RowBox[{"\[Nu]", "+", "1"}], ")"}], " ", 
       SuperscriptBox["r", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"r", " ", 
          RowBox[{"cos", "(", "\[Theta]", ")"}]}], "+", "R"}], ")"}]}]],
     TraditionalForm],
    TraditionalForm,
    Editable->True]}],
  SequenceForm[
   TraditionalForm[
    Subscript[$CellContext`M, $CellContext`\[Theta]n]], "=", 
   TraditionalForm[
   Rational[1, 
      24] $CellContext`EE $CellContext`r^(-2) $CellContext`R $CellContext`t^3 \
(1 + $CellContext`\[Nu])^(-1) ($CellContext`R + $CellContext`r 
       Cos[$CellContext`\[Theta]])^(-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.8896008965554543`*^9},
 CellLabel->
  "During evaluation of \
In[66]:=",ExpressionUUID->"6d45b2b0-7c03-4f8e-b664-3fd345efc5bc"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     SubscriptBox["M", "n\[Phi]"],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", 
   TagBox[
    FormBox[
     FractionBox[
      RowBox[{"EE", " ", 
       SuperscriptBox["t", "3"], " ", 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["u", 
          RowBox[{"n", ",", "\[Phi]"}]], "+", 
         RowBox[{
          SubscriptBox["\[Theta]", "\[Theta]"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"r", " ", 
             RowBox[{"cos", "(", "\[Theta]", ")"}]}], "+", "R"}], ")"}]}], 
         "-", 
         RowBox[{
          RowBox[{"cos", "(", "\[Theta]", ")"}], " ", 
          SubscriptBox["u", "\[Phi]"]}]}], ")"}]}], 
      RowBox[{"24", " ", 
       RowBox[{"(", 
        RowBox[{"\[Nu]", "+", "1"}], ")"}], " ", "r", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"r", " ", 
          RowBox[{"cos", "(", "\[Theta]", ")"}]}], "+", "R"}], ")"}]}]],
     TraditionalForm],
    TraditionalForm,
    Editable->True]}],
  SequenceForm[
   TraditionalForm[
    Subscript[$CellContext`M, $CellContext`n\[Phi]]], "=", 
   TraditionalForm[
   Rational[1, 24] $CellContext`EE $CellContext`r^(-1) $CellContext`t^3 (
      1 + $CellContext`\[Nu])^(-1) ($CellContext`R + $CellContext`r 
       Cos[$CellContext`\[Theta]])^(-1) (-Cos[$CellContext`\[Theta]] 
      Subscript[$CellContext`u, $CellContext`\[Phi]] + ($CellContext`R + \
$CellContext`r Cos[$CellContext`\[Theta]]) 
      Subscript[$CellContext`\[Theta], $CellContext`\[Theta]] + 
     Subscript[$CellContext`u, $CellContext`n, $CellContext`\[Phi]])]],
  Editable->False]], "Print",
 CellChangeTimes->{3.889600896833211*^9},
 CellLabel->
  "During evaluation of \
In[66]:=",ExpressionUUID->"f258bcfd-b633-4afc-8465-66b14b04c9ba"],

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[{"cos", "(", "\[Theta]", ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           SubscriptBox["u", 
            RowBox[{"n", ",", "\[Theta]"}]]}], "+", 
          RowBox[{"r", " ", 
           SubscriptBox["\[Theta]", "\[Phi]"]}], "+", 
          SubscriptBox["u", "\[Theta]"]}], ")"}]}], 
       RowBox[{"24", " ", 
        RowBox[{"(", 
         RowBox[{"\[Nu]", "+", "1"}], ")"}], " ", "r", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"r", " ", 
           RowBox[{"cos", "(", "\[Theta]", ")"}]}], "+", "R"}], ")"}]}]]}],
     TraditionalForm],
    TraditionalForm,
    Editable->True]}],
  SequenceForm[
   TraditionalForm[
    Subscript[$CellContext`M, $CellContext`n\[Theta]]], "=", 
   TraditionalForm[
   Rational[-1, 24] $CellContext`EE $CellContext`r^(-1) $CellContext`t^3 (
      1 + $CellContext`\[Nu])^(-1) 
    Cos[$CellContext`\[Theta]] ($CellContext`R + $CellContext`r 
       Cos[$CellContext`\[Theta]])^(-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.889600897052932*^9},
 CellLabel->
  "During evaluation of \
In[66]:=",ExpressionUUID->"2a9bef82-d5df-4b01-b0ed-4ff910106f12"],

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.8896008970609074`*^9},
 CellLabel->
  "During evaluation of \
In[66]:=",ExpressionUUID->"57f76408-2916-4351-b786-a061cb82a083"]
}, Open  ]]
}, Open  ]]
}, 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[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[{"\[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", "[", "\"\<KINEMATICS:\>\"", "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"SHELLKINEMATICS", ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Print", "[", "\"\<EQUILIBRIUM:\>\"", "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"SHELLEQUILIBRIUM", ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Print", "[", "\"\<CONSTITUTIVE:\>\"", "]"}], ";"}], 
   "\[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}},
 CellLabel->"In[77]:=",ExpressionUUID->"dc2fb6cd-34b2-4be4-9fd6-04f729a2a391"],

Cell[CellGroupData[{

Cell[BoxData["\<\"KINEMATICS:\"\>"], "Print",
 CellChangeTimes->{3.8896009417519584`*^9},
 CellLabel->
  "During evaluation of \
In[77]:=",ExpressionUUID->"173d5201-4d5b-423e-bc8b-845a1ea26438"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"vars =\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"\[Theta]", ",", "\[Phi]", ",", "n"}], "}"}]}],
  SequenceForm[
  "vars =", {$CellContext`\[Theta], $CellContext`\[Phi], $CellContext`n}],
  Editable->False]], "Print",
 CellChangeTimes->{3.8896009417649183`*^9},
 CellLabel->
  "During evaluation of \
In[77]:=",ExpressionUUID->"b0694c08-31ba-4e38-bb92-319d5ce8d978"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"e =\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", 
     TagBox[GridBox[{
        {
         SubscriptBox["e", "\[Theta]"]},
        {
         SubscriptBox["e", "\[Phi]"]},
        {
         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`\[Theta]], 
     Subscript[$CellContext`e, $CellContext`\[Phi]], 
     Subscript[$CellContext`e, $CellContext`n]}]],
  Editable->False]], "Print",
 CellChangeTimes->{3.889600941782871*^9},
 CellLabel->
  "During evaluation of \
In[77]:=",ExpressionUUID->"aafefd97-63ac-4075-9825-94b12b03d230"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(r\\), \\(0\\)]\\) =\"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"R", " ", 
    SubscriptBox["e", "n"]}]}],
  SequenceForm[
  "\!\(\*SubscriptBox[\(r\), \(0\)]\) =", $CellContext`R 
   Subscript[$CellContext`e, $CellContext`n]],
  Editable->False]], "Print",
 CellChangeTimes->{3.8896009417888546`*^9},
 CellLabel->
  "During evaluation of \
In[77]:=",ExpressionUUID->"3320d6c9-9df7-4911-88e0-c3332d5a9549"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(\[PartialD]\\), \\(\[Alpha]\\)]\\)e =\
\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", 
     TagBox[GridBox[{
        {
         RowBox[{"-", 
          SubscriptBox["e", "n"]}]},
        {"0"},
        {
         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]\\), \\(\
\[Beta]\\)]\\)e =\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", 
     TagBox[GridBox[{
        {
         RowBox[{
          RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
          SubscriptBox["e", "\[Phi]"]}]},
        {
         RowBox[{
          RowBox[{
           RowBox[{"-", 
            RowBox[{"Sin", "[", "\[Theta]", "]"}]}], " ", 
           SubscriptBox["e", "n"]}], "-", 
          RowBox[{
           RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
           SubscriptBox["e", "\[Theta]"]}]}]},
        {
         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]\\), \
\\(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[{-Subscript[$CellContext`e, $CellContext`n], 0, 
     Subscript[$CellContext`e, $CellContext`\[Theta]]}], "   ", 
   "\!\(\*SubscriptBox[\(\[PartialD]\), \(\[Beta]\)]\)e =", 
   MatrixForm[{
    Cos[$CellContext`\[Theta]] 
     Subscript[$CellContext`e, $CellContext`\[Phi]], -
      Sin[$CellContext`\[Theta]] Subscript[$CellContext`e, $CellContext`n] - 
     Cos[$CellContext`\[Theta]] 
     Subscript[$CellContext`e, $CellContext`\[Theta]], 
     Sin[$CellContext`\[Theta]] 
     Subscript[$CellContext`e, $CellContext`\[Phi]]}], "   ", 
   "\!\(\*SubscriptBox[\(\[PartialD]\), \(n\)]\)e =", 
   MatrixForm[{0, 0, 0}]],
  Editable->False]], "Print",
 CellChangeTimes->{3.8896009417998247`*^9},
 CellLabel->
  "During evaluation of \
In[77]:=",ExpressionUUID->"a8b739b5-733d-45de-9c04-2f6421ec4995"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\[Del] =\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        FractionBox["1", "R"], "0", "0"},
       {"0", 
        FractionBox[
         RowBox[{"Csc", "[", "\[Theta]", "]"}], "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), 0, 0}, {
     0, $CellContext`R^(-1) Csc[$CellContext`\[Theta]], 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.8896009418606634`*^9},
 CellLabel->
  "During evaluation of \
In[77]:=",ExpressionUUID->"4cb14cf0-5dd9-4173-ba5d-6645cecb1659"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\[Kappa] =\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        FractionBox["1", "R"], "0"},
       {"0", 
        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[{
    FractionBox[
     RowBox[{
      SubscriptBox["e", "\[Theta]"], "\[CircleTimes]", 
      SubscriptBox["e", "\[Theta]"]}], "R"], "+", 
    FractionBox[
     RowBox[{
      SubscriptBox["e", "\[Phi]"], "\[CircleTimes]", 
      SubscriptBox["e", "\[Phi]"]}], "R"]}]}],
  SequenceForm["\[Kappa] =", 
   MatrixForm[{{$CellContext`R^(-1), 0}, {0, $CellContext`R^(-1)}}], "      ",
    "\[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.889600941868641*^9},
 CellLabel->
  "During evaluation of \
In[77]:=",ExpressionUUID->"20fba9e3-131a-43e2-a9e0-c6a6d7ae38c0"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"D =\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        FractionBox["R", 
         RowBox[{"n", "+", "R"}]], "0", "0"},
       {"0", 
        FractionBox["R", 
         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`R/($CellContext`n + $CellContext`R), 0, 0}, {
     0, $CellContext`R/($CellContext`n + $CellContext`R), 0}, {0, 0, 1}}]],
  Editable->False]], "Print",
 CellChangeTimes->{3.8896009418786163`*^9},
 CellLabel->
  "During evaluation of \
In[77]:=",ExpressionUUID->"1d2289c9-6822-4e32-b48f-869361f95b15"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"J  =\"\>", "\[InvisibleSpace]", 
   FractionBox[
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"n", "+", "R"}], ")"}], "2"], 
    SuperscriptBox["R", "2"]], "\[InvisibleSpace]", "\<\"    \"\>", 
   "\[InvisibleSpace]", "\<\"\\!\\(\\*SubscriptBox[\\(J\\), \
\\(\[Alpha]\\)]\\) =\"\>", "\[InvisibleSpace]", 
   FractionBox[
    RowBox[{"Abs", "[", 
     RowBox[{"n", "+", "R"}], "]"}], "R"], 
   "\[InvisibleSpace]", "\<\"    \"\>", 
   "\[InvisibleSpace]", "\<\"\\!\\(\\*SubscriptBox[\\(J\\), \\(\[Beta]\\)]\\) \
=\"\>", "\[InvisibleSpace]", 
   FractionBox[
    RowBox[{"Abs", "[", 
     RowBox[{"n", "+", "R"}], "]"}], "R"], 
   "\[InvisibleSpace]", "\<\"    \"\>", 
   "\[InvisibleSpace]", "\<\"\\!\\(\\*SubscriptBox[\\(J\\), \\(n\\)]\\) \
=\"\>", "\[InvisibleSpace]", 
   FractionBox[
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"n", "+", "R"}], ")"}], "2"], 
    SuperscriptBox["R", "2"]]}],
  SequenceForm[
  "J  =", $CellContext`R^(-2) ($CellContext`n + $CellContext`R)^2, "    ", 
   "\!\(\*SubscriptBox[\(J\), \(\[Alpha]\)]\) =", $CellContext`R^(-1) 
   Abs[$CellContext`n + $CellContext`R], "    ", 
   "\!\(\*SubscriptBox[\(J\), \(\[Beta]\)]\) =", $CellContext`R^(-1) 
   Abs[$CellContext`n + $CellContext`R], "    ", 
   "\!\(\*SubscriptBox[\(J\), \(n\)]\) =", $CellContext`R^(-2) \
($CellContext`n + $CellContext`R)^2],
  Editable->False]], "Print",
 CellChangeTimes->{3.8896009419344654`*^9},
 CellLabel->
  "During evaluation of \
In[77]:=",ExpressionUUID->"8bba7680-246a-460c-830e-87b16da017a8"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox["\<\"\[CapitalGamma]\"\>", 
    RowBox[{"{", 
     RowBox[{"\[Theta]", ",", "\[Theta]", ",", "n"}], "}"}]], 
   "\[InvisibleSpace]", "\<\" = \"\>", "\[InvisibleSpace]", 
   RowBox[{"-", 
    FractionBox["1", "R"]}]}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]", {$CellContext`\[Theta], $CellContext`\[Theta], \
$CellContext`n}], " = ", (-1)/$CellContext`R],
  Editable->False]], "Print",
 CellChangeTimes->{3.889600941946433*^9},
 CellLabel->
  "During evaluation of \
In[77]:=",ExpressionUUID->"1200b515-98c7-42a7-b634-9c52f2f7a914"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox["\<\"\[CapitalGamma]\"\>", 
    RowBox[{"{", 
     RowBox[{"\[Theta]", ",", "n", ",", "\[Theta]"}], "}"}]], 
   "\[InvisibleSpace]", "\<\" = \"\>", "\[InvisibleSpace]", 
   FractionBox["1", "R"]}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]", {$CellContext`\[Theta], $CellContext`n, $CellContext`\
\[Theta]}], " = ", $CellContext`R^(-1)],
  Editable->False]], "Print",
 CellChangeTimes->{3.889600941953417*^9},
 CellLabel->
  "During evaluation of \
In[77]:=",ExpressionUUID->"780ed338-f158-4413-b544-999c90fa261d"],

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.889600941959402*^9},
 CellLabel->
  "During evaluation of \
In[77]:=",ExpressionUUID->"bb04b1b2-b5bc-41fb-aee5-515bee2e7161"],

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.8896009419673777`*^9},
 CellLabel->
  "During evaluation of \
In[77]:=",ExpressionUUID->"c5452532-6c36-4b2a-a863-c46cb8aa8769"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox["\<\"\[CapitalGamma]\"\>", 
    RowBox[{"{", 
     RowBox[{"\[Phi]", ",", "\[Phi]", ",", "n"}], "}"}]], 
   "\[InvisibleSpace]", "\<\" = \"\>", "\[InvisibleSpace]", 
   RowBox[{"-", 
    FractionBox["1", "R"]}]}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]", {$CellContext`\[Phi], $CellContext`\[Phi], \
$CellContext`n}], " = ", (-1)/$CellContext`R],
  Editable->False]], "Print",
 CellChangeTimes->{3.8896009419733615`*^9},
 CellLabel->
  "During evaluation of \
In[77]:=",ExpressionUUID->"39a7bd6f-2de8-482e-baf2-b8a4ac220298"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox["\<\"\[CapitalGamma]\"\>", 
    RowBox[{"{", 
     RowBox[{"\[Phi]", ",", "n", ",", "\[Phi]"}], "}"}]], 
   "\[InvisibleSpace]", "\<\" = \"\>", "\[InvisibleSpace]", 
   FractionBox["1", "R"]}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]", {$CellContext`\[Phi], $CellContext`n, $CellContext`\
\[Phi]}], " = ", $CellContext`R^(-1)],
  Editable->False]], "Print",
 CellChangeTimes->{3.889600941981341*^9},
 CellLabel->
  "During evaluation of \
In[77]:=",ExpressionUUID->"0fb79af1-ef94-433e-8dd4-4786115610f2"],

Cell[BoxData["\<\"EQUILIBRIUM:\"\>"], "Print",
 CellChangeTimes->{3.8896009419873247`*^9},
 CellLabel->
  "During evaluation of \
In[77]:=",ExpressionUUID->"ec3c570e-3818-440d-bf43-2610ede0eca9"],

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.8896009419943523`*^9},
 CellLabel->
  "During evaluation of \
In[77]:=",ExpressionUUID->"4f289f3a-354c-491d-ade1-9f306a9eaab2"],

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.8896009420371914`*^9},
 CellLabel->
  "During evaluation of \
In[77]:=",ExpressionUUID->"aca37456-c417-4fdd-b922-392b14b398d7"],

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.8896009420790796`*^9},
 CellLabel->
  "During evaluation of \
In[77]:=",ExpressionUUID->"ccfd3639-9151-4673-9b66-d86e593d79a0"],

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.889600942139917*^9},
 CellLabel->
  "During evaluation of \
In[77]:=",ExpressionUUID->"69a72ac5-145a-4e15-bbee-5462ff67da33"],

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.889600942198759*^9},
 CellLabel->
  "During evaluation of \
In[77]:=",ExpressionUUID->"6ade8715-6416-4d10-8ac0-8c1390efbbb6"],

Cell[BoxData["\<\"CONSTITUTIVE:\"\>"], "Print",
 CellChangeTimes->{3.889600942206738*^9},
 CellLabel->
  "During evaluation of \
In[77]:=",ExpressionUUID->"c5945ec2-1511-4ee5-b9e3-4d3930aaf4aa"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     SubscriptBox["N", "\[Theta]\[Theta]"],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", 
   TagBox[
    FormBox[
     RowBox[{"-", 
      FractionBox[
       RowBox[{"EE", " ", "t", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"\[Nu]", " ", 
           RowBox[{"csc", "(", "\[Theta]", ")"}], " ", 
           SubscriptBox["u", 
            RowBox[{"\[Phi]", ",", "\[Phi]"}]]}], "+", 
          SubscriptBox["u", 
           RowBox[{"\[Theta]", ",", "\[Theta]"}]], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"\[Nu]", "+", "1"}], ")"}], " ", 
           SubscriptBox["u", "n"]}], "+", 
          RowBox[{"\[Nu]", " ", 
           RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
           SubscriptBox["u", "\[Theta]"]}]}], ")"}]}], 
       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] + $CellContext`\[Nu] 
      Cot[$CellContext`\[Theta]] 
      Subscript[$CellContext`u, $CellContext`\[Theta]] + 
     Subscript[$CellContext`u, $CellContext`\[Theta], $CellContext`\[Theta]] + \
$CellContext`\[Nu] Csc[$CellContext`\[Theta]] 
      Subscript[$CellContext`u, $CellContext`\[Phi], $CellContext`\[Phi]])]],
  Editable->False]], "Print",
 CellChangeTimes->{3.889600943080405*^9},
 CellLabel->
  "During evaluation of \
In[77]:=",ExpressionUUID->"a92b85d9-ff24-4b56-8a48-4de5c734d3d7"],

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.8896009432769556`*^9},
 CellLabel->
  "During evaluation of \
In[77]:=",ExpressionUUID->"370803e2-d22a-43d1-b1e6-cb4c75b40b30"],

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.8896009433097982`*^9},
 CellLabel->
  "During evaluation of \
In[77]:=",ExpressionUUID->"565c9cf3-8fe9-4386-ab38-42a87540047e"],

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.8896009433227634`*^9},
 CellLabel->
  "During evaluation of \
In[77]:=",ExpressionUUID->"9bbb16de-628d-4e20-a036-4a6585506af8"],

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]", " ", 
           SubscriptBox["u", 
            RowBox[{"\[Theta]", ",", "\[Theta]"}]]}], "+", 
          RowBox[{
           RowBox[{"csc", "(", "\[Theta]", ")"}], " ", 
           SubscriptBox["u", 
            RowBox[{"\[Phi]", ",", "\[Phi]"}]]}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"\[Nu]", "+", "1"}], ")"}], " ", 
           SubscriptBox["u", "n"]}], "+", 
          RowBox[{
           RowBox[{"cot", "(", "\[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] + 
     Cot[$CellContext`\[Theta]] 
      Subscript[$CellContext`u, $CellContext`\[Theta]] + $CellContext`\[Nu] 
      Subscript[$CellContext`u, $CellContext`\[Theta], $CellContext`\[Theta]] + 
     Csc[$CellContext`\[Theta]] 
      Subscript[$CellContext`u, $CellContext`\[Phi], $CellContext`\[Phi]])]],
  Editable->False]], "Print",
 CellChangeTimes->{3.889600943764584*^9},
 CellLabel->
  "During evaluation of \
In[77]:=",ExpressionUUID->"b642bea0-5c79-41a5-8a09-6617169b173b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     SubscriptBox["Q", "\[Phi]"],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", 
   TagBox[
    FormBox[
     RowBox[{"-", 
      FractionBox[
       RowBox[{"EE", " ", "t", " ", 
        RowBox[{"(", 
         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.8896009439361253`*^9},
 CellLabel->
  "During evaluation of \
In[77]:=",ExpressionUUID->"00b40e06-b265-403a-a338-e693d843b117"],

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.8896009439460983`*^9},
 CellLabel->
  "During evaluation of \
In[77]:=",ExpressionUUID->"669e040f-6075-46a0-b1aa-1400ad883b68"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     SubscriptBox["Q", "\[Phi]"],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", 
   TagBox[
    FormBox[
     RowBox[{"-", 
      FractionBox[
       RowBox[{"EE", " ", "t", " ", 
        RowBox[{"(", 
         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.8896009439740386`*^9},
 CellLabel->
  "During evaluation of \
In[77]:=",ExpressionUUID->"ede10157-6212-4b1c-8b18-06631276ed00"],

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.8896009439832554`*^9},
 CellLabel->
  "During evaluation of \
In[77]:=",ExpressionUUID->"ebf14549-91c6-4b5d-b64e-967d07f2260c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     SubscriptBox["M", "\[Theta]\[Theta]"],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", 
   TagBox[
    FormBox[
     RowBox[{"-", 
      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.8896009442867517`*^9},
 CellLabel->
  "During evaluation of \
In[77]:=",ExpressionUUID->"2783a701-69c9-4d4e-b881-7983450f75b1"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     SubscriptBox["M", "\[Theta]\[Phi]"],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", 
   TagBox[
    FormBox[
     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.8896009444951973`*^9},
 CellLabel->
  "During evaluation of \
In[77]:=",ExpressionUUID->"e5faebbd-8f36-44a2-abac-4da52ce8844a"],

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.889600944507164*^9},
 CellLabel->
  "During evaluation of \
In[77]:=",ExpressionUUID->"9aaaf5f9-df04-4182-baa8-2e65f9c3e38f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     SubscriptBox["M", "\[Phi]\[Theta]"],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", 
   TagBox[
    FormBox[
     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.8896009445191326`*^9},
 CellLabel->
  "During evaluation of \
In[77]:=",ExpressionUUID->"b9cbcdbc-b052-4bca-bd4b-78a7206b9dae"],

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]", " ", 
           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.8896009447694626`*^9},
 CellLabel->
  "During evaluation of \
In[77]:=",ExpressionUUID->"ee3cd858-c68b-45dc-87b2-52816ea9d27c"],

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.8896009447794375`*^9},
 CellLabel->
  "During evaluation of \
In[77]:=",ExpressionUUID->"2f759c0d-482f-4dc8-ac78-b320d5970b2e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     SubscriptBox["M", "n\[Theta]"],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", 
   TagBox[
    FormBox[
     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.889600944810895*^9},
 CellLabel->
  "During evaluation of \
In[77]:=",ExpressionUUID->"2f4a8226-fe13-4129-86b9-e791a7d0c917"],

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[{
            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.889600944944502*^9},
 CellLabel->
  "During evaluation of \
In[77]:=",ExpressionUUID->"2d64514f-bcff-42ef-940d-850ee1ea19d9"],

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.8896009449544754`*^9},
 CellLabel->
  "During evaluation of \
In[77]:=",ExpressionUUID->"7d113b37-5588-43a1-af87-f916ee5465a5"]
}, Open  ]]
}, Open  ]]
}, 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", "[", "\"\<KINEMATICS:\>\"", "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"SHELLKINEMATICS", ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Print", "[", "\"\<EQUILIBRIUM:\>\"", "]"}], ";"}], 
   "\[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["Lecture example 6.2", "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}, {3.857794706660185*^9, 
   3.857794733848443*^9}},ExpressionUUID->"32ebbd34-39e0-408b-920f-\
2dc1ce2f7240"],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"EM", "=", 
     RowBox[{
      RowBox[{"EE", "/", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1", ",", "\[Nu]\[Nu]", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"\[Nu]\[Nu]", ",", "1", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0", ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "\[Nu]\[Nu]"}], ")"}], "/", "2"}]}], "}"}]}], 
       "}"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"MM", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", 
         RowBox[{"Cot", "[", "\[Theta]", "]"}], ",", 
         RowBox[{"-", "1"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", 
         RowBox[{"-", "1"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", 
          RowBox[{"Cot", "[", "\[Theta]", "]"}]}], ",", "0", ",", "0"}], 
        "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"FF", "=", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"1", ",", "1", ",", "0"}], "}"}], "*", "\[CapitalDelta]p", " ", 
      RowBox[{"R", "/", "2"}]}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"FullSimplify", "[", 
    RowBox[{
     RowBox[{"R", "/", "t"}], "*", 
     RowBox[{
      RowBox[{"Inverse", "[", 
       RowBox[{"EM", ".", "MM"}], "]"}], ".", "FF"}]}], "]"}]}]}]], "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, 3.85779474357185*^9, {
   3.8577948173693604`*^9, 3.8577950178266068`*^9}, {3.857795052880182*^9, 
   3.857795085450546*^9}},
 CellLabel->"In[9]:=",ExpressionUUID->"269a8208-6126-4c6b-9ab2-c6e9ea7ec632"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{
  3.8583003696723194`*^9},ExpressionUUID->"a8cc3ddf-719e-4b81-91ed-\
89739ab659bb"]
}, Closed]],

Cell[CellGroupData[{

Cell["Calculation example 4", "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}, {3.857794706660185*^9, 3.857794733848443*^9}, {
   3.8582998426715865`*^9, 3.8582998829566603`*^9}, {3.858306390195115*^9, 
   3.8583064127345715`*^9}},ExpressionUUID->"d6944c1f-6972-4f9d-9dad-\
92b4fb652f58"],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"sol", "=", 
     RowBox[{
      RowBox[{"DSolve", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           SubscriptBox["\[PartialD]", "\[Theta]"], 
           RowBox[{"N\[Theta]\[Theta]", "[", "\[Theta]", "]"}]}], "-", 
          RowBox[{
           RowBox[{"(", 
            FractionBox[
             RowBox[{"R", "+", 
              RowBox[{"2", "r", " ", 
               RowBox[{"Cos", "[", "\[Theta]", "]"}], " "}]}], 
             RowBox[{"R", "+", 
              RowBox[{"r", " ", 
               RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}]], ")"}], 
           RowBox[{"Tan", "[", "\[Theta]", "]"}], 
           RowBox[{"N\[Theta]\[Theta]", "[", "\[Theta]", "]"}]}], "+", 
          RowBox[{"r", " ", "\[CapitalDelta]p", " ", 
           RowBox[{"Tan", "[", "\[Theta]", "]"}]}]}], "==", "0"}], ",", 
        "N\[Theta]\[Theta]", ",", "\[Theta]"}], "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"Simplify", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"N\[Theta]\[Theta]", "[", "\[Theta]", "]"}], " ", "/.", "sol"}],
      "/.", 
     RowBox[{
      TemplateBox[{"1"},
       "C"], "->", "0"}]}], "]"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"Simplify", "[", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"r", " ", "\[CapitalDelta]p"}], "-", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"N\[Theta]\[Theta]", "[", "\[Theta]", "]"}], " ", "/.", 
          "sol"}], "/.", 
         RowBox[{
          TemplateBox[{"1"},
           "C"], "->", "0"}]}], ")"}]}], ")"}], "/", 
     RowBox[{"(", 
      FractionBox[
       RowBox[{"r", " ", 
        RowBox[{"Cos", "[", "\[Theta]", "]"}], " "}], 
       RowBox[{"R", "+", 
        RowBox[{"r", " ", 
         RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}]], ")"}]}], "]"}], 
   "\[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, 3.85779474357185*^9, {
   3.8577948173693604`*^9, 3.8577950178266068`*^9}, {3.857795052880182*^9, 
   3.857795085450546*^9}, 3.858299901838546*^9, {3.8582999352092886`*^9, 
   3.858300154253962*^9}, {3.8583002647793083`*^9, 3.858300332920644*^9}, 
   3.8583003737268543`*^9, {3.858300578976832*^9, 3.858300637078454*^9}, {
   3.858300712099968*^9, 3.8583007935500793`*^9}, 
   3.858306362986474*^9},ExpressionUUID->"96aa4a5c-874f-47dc-999f-\
e07cd0cf4da1"]
}, Closed]]
}, Open  ]]
},
AutoGeneratedPackage->Automatic,
WindowSize->{1164, 741},
WindowMargins->{{Automatic, 123.75}, {Automatic, 0}},
PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
Magnification:>1.5 Inherited,
FrontEndVersion->"13.2 for Microsoft Windows (64-bit) (November 18, 2022)",
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, 608, 9, 100, "Section",ExpressionUUID->"f80f1a14-5e19-4d5b-b3db-8ffc5f31ec0d"],
Cell[CellGroupData[{
Cell[1200, 35, 1774, 26, 81, "Subsection",ExpressionUUID->"16ef144c-4d13-402e-96b4-c4e44eec02f8"],
Cell[2977, 63, 9588, 251, 792, "Input",ExpressionUUID->"718a3088-f79e-4e0f-855c-1eb4a3539f04",
 InitializationCell->True]
}, Closed]],
Cell[CellGroupData[{
Cell[12602, 319, 1689, 25, 55, "Subsection",ExpressionUUID->"48305deb-3086-4712-8fd5-220c4083629f"],
Cell[14294, 346, 21343, 537, 2425, "Input",ExpressionUUID->"7761f32d-599e-4183-96ba-1f442d94a242",
 InitializationCell->True]
}, Closed]],
Cell[CellGroupData[{
Cell[35674, 888, 1714, 25, 55, "Subsection",ExpressionUUID->"87733f31-a2d5-4ed5-9c86-ed88d100d0de"],
Cell[37391, 915, 6258, 154, 1087, "Input",ExpressionUUID->"4381ea94-4419-4716-8021-b38e077dcda4",
 InitializationCell->True]
}, Closed]],
Cell[CellGroupData[{
Cell[43686, 1074, 1550, 23, 55, "Subsection",ExpressionUUID->"2c3f9204-d91f-44f0-b73f-b4e126dd46bb"],
Cell[45239, 1099, 21624, 495, 2094, "Input",ExpressionUUID->"12aa9b31-3a11-4df8-ab3f-a0e8517463af",
 InitializationCell->True]
}, Closed]],
Cell[CellGroupData[{
Cell[66900, 1599, 1554, 23, 55, "Subsection",ExpressionUUID->"a847a516-e420-424e-ac47-83d232563e99"],
Cell[68457, 1624, 13228, 240, 525, "Input",ExpressionUUID->"d8daa811-c4f3-49af-94a3-d6e063ca04dd",
 InitializationCell->True]
}, Closed]],
Cell[CellGroupData[{
Cell[81722, 1869, 1463, 21, 55, "Subsection",ExpressionUUID->"d1705dbe-8510-406a-9bdf-d12f527657e5"],
Cell[83188, 1892, 14939, 286, 552, "Input",ExpressionUUID->"501e552b-a1cf-47ea-af0d-49efafcf7da3",
 InitializationCell->True]
}, Closed]],
Cell[CellGroupData[{
Cell[98164, 2183, 1542, 22, 55, "Subsection",ExpressionUUID->"b802494d-51b3-4f81-97cd-ae25767ead06"],
Cell[CellGroupData[{
Cell[99731, 2209, 32559, 714, 1860, "Input",ExpressionUUID->"54d15173-932c-439e-8150-adbf07012f0b"],
Cell[132293, 2925, 16585, 512, 1080, "Output",ExpressionUUID->"e9214657-f319-4939-bd5d-71370c294733"]
}, Open  ]],
Cell[CellGroupData[{
Cell[148915, 3442, 12785, 198, 242, "Input",ExpressionUUID->"adacaa7f-8c95-4c29-b528-e8c4894071df"],
Cell[161703, 3642, 241, 3, 48, "Output",ExpressionUUID->"b021765e-a347-4b50-96f6-2166c64f9c53"],
Cell[161947, 3647, 243, 3, 48, "Output",ExpressionUUID->"2ee9eb26-45d5-4b7e-83e9-780737d25d11"],
Cell[162193, 3652, 240, 3, 48, "Output",ExpressionUUID->"24467cd9-752d-405b-a06a-d86da1e25793"]
}, Open  ]],
Cell[CellGroupData[{
Cell[162470, 3660, 14648, 248, 442, "Input",ExpressionUUID->"c75481ae-f046-44f4-9b0f-f95cbb046c91"],
Cell[177121, 3910, 772, 13, 48, "Output",ExpressionUUID->"20dfc340-80a5-41e3-82df-8834b1648b56"]
}, Open  ]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[177954, 3930, 1584, 24, 77, "Section",ExpressionUUID->"a2593288-2234-40c0-9c7b-4f5d46e24461"],
Cell[CellGroupData[{
Cell[179563, 3958, 1783, 26, 81, "Subsection",ExpressionUUID->"aae38969-696f-4c96-a2e6-ad7bef2850e2"],
Cell[CellGroupData[{
Cell[181371, 3988, 2135, 48, 385, "Input",ExpressionUUID->"ebed0d67-b88e-49cc-9053-27d911bd9bf8"],
Cell[CellGroupData[{
Cell[183531, 4040, 194, 4, 33, "Print",ExpressionUUID->"270aa2bc-1827-4e13-8e4f-ba67aca7fa2a"],
Cell[183728, 4046, 403, 10, 33, "Print",ExpressionUUID->"962f2fc8-e51d-4df8-bc8b-edee0e727c9d"],
Cell[184134, 4058, 1083, 33, 81, "Print",ExpressionUUID->"edb42f3b-bb23-4410-b79b-a2ac81a0b45d"],
Cell[185220, 4093, 620, 17, 35, "Print",ExpressionUUID->"a113503f-ff52-40e6-916a-1e37d9752966"],
Cell[185843, 4112, 2556, 72, 79, "Print",ExpressionUUID->"763a14b9-4585-4d64-bb7b-9c4917123e17"],
Cell[188402, 4186, 1589, 42, 79, "Print",ExpressionUUID->"2b7ab849-4b30-4c74-afee-9cfa528c0f85"],
Cell[189994, 4230, 959, 25, 55, "Print",ExpressionUUID->"53f0ba3f-6aaf-4180-b6e7-af13c7bbfb18"],
Cell[190956, 4257, 857, 25, 79, "Print",ExpressionUUID->"883537bd-f6f3-45f9-96f1-4e240af036d0"],
Cell[191816, 4284, 927, 19, 34, "Print",ExpressionUUID->"65d4ea2a-9770-454c-9ac4-ecb6ccbb17db"],
Cell[192746, 4305, 193, 4, 33, "Print",ExpressionUUID->"4814f0bf-cab9-4ddc-af01-6bf23912033f"],
Cell[192942, 4311, 723, 23, 35, "Print",ExpressionUUID->"ad86d7b5-9004-413c-942d-a8622f8b55af"],
Cell[193668, 4336, 723, 23, 35, "Print",ExpressionUUID->"8b7a49aa-f741-4358-b135-886d28ed63d4"],
Cell[194394, 4361, 745, 23, 35, "Print",ExpressionUUID->"7d5d0435-4e3e-450b-b4d7-7dc772cc47ac"],
Cell[195142, 4386, 836, 25, 35, "Print",ExpressionUUID->"4e129c35-49e8-4eea-83f3-9db04d582369"],
Cell[195981, 4413, 836, 25, 35, "Print",ExpressionUUID->"04270c2d-b8cf-4662-af13-c204f8488d97"],
Cell[196820, 4440, 194, 4, 33, "Print",ExpressionUUID->"6a10f0d6-c3f3-4c96-9cb9-1d94cc110abf"],
Cell[197017, 4446, 1181, 38, 55, "Print",ExpressionUUID->"37d5a86c-51ef-40a4-b4c7-defe171cc18b"],
Cell[198201, 4486, 1139, 37, 57, "Print",ExpressionUUID->"1a4c84f6-0f72-4730-8616-c3fa7a6c0be9"],
Cell[199343, 4525, 1117, 36, 57, "Print",ExpressionUUID->"33d4ae75-ac61-4866-8f5a-0b5bab8de385"],
Cell[200463, 4563, 1137, 37, 57, "Print",ExpressionUUID->"9ee752f4-0f3f-4cde-966d-5615e07562a1"],
Cell[201603, 4602, 1176, 37, 55, "Print",ExpressionUUID->"6bed575e-ce5a-4d3e-b468-8ce018b089db"],
Cell[202782, 4641, 1119, 36, 57, "Print",ExpressionUUID->"80f1f9af-56db-441a-bd13-8f5208ebbff6"],
Cell[203904, 4679, 1115, 36, 57, "Print",ExpressionUUID->"6e006495-1e2e-460d-a936-6c1ab1773ec5"],
Cell[205022, 4717, 1119, 36, 57, "Print",ExpressionUUID->"f8a3e13d-f55b-4947-9e19-23f253e3d8d6"],
Cell[206144, 4755, 606, 22, 33, "Print",ExpressionUUID->"cf349781-49c9-4a21-abda-010496dad08f"],
Cell[206753, 4779, 1305, 41, 66, "Print",ExpressionUUID->"b2d3f8cd-0504-40df-8ae1-1f8db7ce0368"],
Cell[208061, 4822, 1213, 38, 61, "Print",ExpressionUUID->"3e512b8a-1a88-4bdc-b50c-bec1af94d870"],
Cell[209277, 4862, 606, 22, 33, "Print",ExpressionUUID->"b66c9ea5-20ed-45d4-aad3-aefa63f2a735"],
Cell[209886, 4886, 1213, 38, 61, "Print",ExpressionUUID->"ba780967-cd5e-4098-81a0-72eb9962bc95"],
Cell[211102, 4926, 1302, 41, 66, "Print",ExpressionUUID->"8a08d47c-7cf6-4271-9abf-c43ca1daafc1"],
Cell[212407, 4969, 606, 22, 35, "Print",ExpressionUUID->"f1a593ec-c4c7-40d2-8d14-a80c379a3017"],
Cell[213016, 4993, 608, 22, 33, "Print",ExpressionUUID->"001e074d-12cd-414c-9c11-bf5a3026bb98"],
Cell[213627, 5017, 608, 22, 35, "Print",ExpressionUUID->"d87de9c7-62c1-4041-bfe7-4a59f22f4fb0"],
Cell[214238, 5041, 606, 22, 33, "Print",ExpressionUUID->"dd94403a-2bc4-48be-8556-182d6eef63ed"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[214905, 5070, 1837, 27, 55, "Subsection",ExpressionUUID->"d59d00c3-acf4-4e84-ad59-8840fcf655ad"],
Cell[CellGroupData[{
Cell[216767, 5101, 2313, 55, 385, "Input",ExpressionUUID->"9d30d14f-b65a-44d8-b58b-51994809713b"],
Cell[CellGroupData[{
Cell[219105, 5160, 194, 4, 33, "Print",ExpressionUUID->"ea98df30-84d8-4015-8b10-a168dea4582c"],
Cell[219302, 5166, 414, 11, 33, "Print",ExpressionUUID->"c7cc8af7-5b15-4272-8b04-9ee053ba4a7e"],
Cell[219719, 5179, 1093, 33, 80, "Print",ExpressionUUID->"1c297b61-78f4-47ae-a78e-0af9461abe4c"],
Cell[220815, 5214, 477, 13, 33, "Print",ExpressionUUID->"8f56435a-ae68-4f39-98b3-6f75dbdcb518"],
Cell[221295, 5229, 2745, 77, 80, "Print",ExpressionUUID->"12efc640-0fc5-45e2-a3b9-fc645ec5675f"],
Cell[224043, 5308, 1705, 45, 90, "Print",ExpressionUUID->"3af0c742-5b00-4f7b-852b-d7a6319f973c"],
Cell[225751, 5355, 959, 25, 55, "Print",ExpressionUUID->"73a5b82c-51aa-4ec5-a877-79d0ee3884a4"],
Cell[226713, 5382, 857, 25, 79, "Print",ExpressionUUID->"0edaf23e-d489-4f6e-89fc-246c2df3a468"],
Cell[227573, 5409, 929, 19, 34, "Print",ExpressionUUID->"ee317a25-f743-493f-bf21-94bc1580bf20"],
Cell[228505, 5430, 577, 16, 52, "Print",ExpressionUUID->"7391e7e5-f141-4a43-83d3-53fa997f47a1"],
Cell[229085, 5448, 595, 17, 52, "Print",ExpressionUUID->"72902b88-8474-4327-b8ac-82e671d0e850"],
Cell[229683, 5467, 193, 4, 33, "Print",ExpressionUUID->"c1ff2b10-887b-4008-a1c9-06698ed68cb7"],
Cell[229879, 5473, 1062, 30, 54, "Print",ExpressionUUID->"105dd3a7-0635-4a00-b024-5258ff0f3b46"],
Cell[230944, 5505, 1094, 30, 54, "Print",ExpressionUUID->"8cde3000-9bfa-40a0-bf38-2d0dc146dee4"],
Cell[232041, 5537, 1002, 29, 54, "Print",ExpressionUUID->"078cdbcc-9926-43fa-a708-2ca9863c968a"],
Cell[233046, 5568, 1251, 34, 53, "Print",ExpressionUUID->"3e61aed5-ae84-4a79-9cf2-a2ded4a3143d"],
Cell[234300, 5604, 1289, 34, 53, "Print",ExpressionUUID->"b84f3108-75f1-436d-a0a0-86c37ed3d964"],
Cell[235592, 5640, 193, 4, 33, "Print",ExpressionUUID->"6bedd6ee-c6d8-4c4b-a383-7bfdefe09eee"],
Cell[235788, 5646, 1478, 44, 62, "Print",ExpressionUUID->"afcb5391-587f-4638-8a8b-2600821ab2a3"],
Cell[237269, 5692, 1348, 41, 57, "Print",ExpressionUUID->"c80c1619-0521-44ad-8b95-d1124c785420"],
Cell[238620, 5735, 1127, 36, 57, "Print",ExpressionUUID->"9d030a18-5d75-46eb-8437-6f5c75564019"],
Cell[239750, 5773, 1347, 41, 57, "Print",ExpressionUUID->"263aec5a-785a-4682-a6e6-7324078069c7"],
Cell[241100, 5816, 1410, 41, 62, "Print",ExpressionUUID->"5aa9a54e-ac4a-42c7-8ef5-1d11793a9111"],
Cell[242513, 5859, 1215, 37, 57, "Print",ExpressionUUID->"ed8c7f14-8d1b-48d4-93f6-e32d9d1c4912"],
Cell[243731, 5898, 1127, 36, 57, "Print",ExpressionUUID->"a53203c7-aa11-4d2d-93c3-98e0ebe9bc66"],
Cell[244861, 5936, 1213, 37, 57, "Print",ExpressionUUID->"66adf400-a436-4728-a0d6-507fb6e38da0"],
Cell[246077, 5975, 604, 22, 33, "Print",ExpressionUUID->"d6cc9a12-0128-43db-9b37-203046451f1b"],
Cell[246684, 5999, 1636, 48, 66, "Print",ExpressionUUID->"4b6011d2-4780-4eee-8df4-1fc5b143bc2a"],
Cell[248323, 6049, 1423, 42, 61, "Print",ExpressionUUID->"2b4a99f5-87c5-4d35-afeb-27b1af0e8359"],
Cell[249749, 6093, 605, 22, 33, "Print",ExpressionUUID->"6767d7cb-b54d-4ba4-b13a-75551a904f4b"],
Cell[250357, 6117, 1423, 42, 61, "Print",ExpressionUUID->"d825822e-d48c-42c7-8813-37082220e372"],
Cell[251783, 6161, 1552, 45, 66, "Print",ExpressionUUID->"5589d458-1f55-4167-8bab-bc13ed7f2272"],
Cell[253338, 6208, 618, 22, 34, "Print",ExpressionUUID->"616c4980-37b9-4212-91d6-4daa64a3d280"],
Cell[253959, 6232, 606, 22, 33, "Print",ExpressionUUID->"e14c168b-b6d9-43bd-827e-ca64e0b46a5a"],
Cell[254568, 6256, 618, 22, 34, "Print",ExpressionUUID->"90b48d4a-a5d6-43cf-9d32-84230738f128"],
Cell[255189, 6280, 606, 22, 33, "Print",ExpressionUUID->"0036539e-f4f2-40aa-90a3-425ca020c108"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[255856, 6309, 1843, 27, 55, "Subsection",ExpressionUUID->"9e933469-a032-4e3a-b048-da47970bfcf4"],
Cell[257702, 6338, 4269, 104, 365, "Input",ExpressionUUID->"4a002bd3-ae55-4cb7-9c4f-2ec15212434e"]
}, Closed]],
Cell[CellGroupData[{
Cell[262008, 6447, 1746, 25, 55, "Subsection",ExpressionUUID->"587f0704-1f44-4dbe-bcea-1f647a3dc594"],
Cell[CellGroupData[{
Cell[263779, 6476, 2455, 59, 385, "Input",ExpressionUUID->"897504cf-f8b4-4d9c-a3e0-7d7327b5ace5"],
Cell[CellGroupData[{
Cell[266259, 6539, 192, 4, 33, "Print",ExpressionUUID->"5474bd10-a9e5-4041-8a62-39b385cc81ef"],
Cell[266454, 6545, 414, 11, 33, "Print",ExpressionUUID->"4a0ac9ea-3ef9-4e4f-b1d2-7f880aabe3ee"],
Cell[266871, 6558, 1093, 33, 80, "Print",ExpressionUUID->"df8d7772-04ee-4a6c-9a0e-a7add49f26d1"],
Cell[267967, 6593, 640, 18, 33, "Print",ExpressionUUID->"f2146617-6943-4670-a90d-b06f3ed86eca"],
Cell[268610, 6613, 2745, 77, 80, "Print",ExpressionUUID->"f1c2f28b-e1f0-431a-bbb3-1ac2bf722237"],
Cell[271358, 6692, 1705, 45, 90, "Print",ExpressionUUID->"a3113cbf-c5c1-43e8-96e8-ff849523cb8a"],
Cell[273066, 6739, 1313, 35, 66, "Print",ExpressionUUID->"12cb01f0-1a6b-408c-b9c6-9350540a8b50"],
Cell[274382, 6776, 994, 29, 90, "Print",ExpressionUUID->"34d42fe9-4754-4b68-bd59-7361aff6b4f9"],
Cell[275379, 6807, 1166, 25, 49, "Print",ExpressionUUID->"b1186a69-da34-47e9-a3a4-1644f22bbf9e"],
Cell[276548, 6834, 575, 16, 52, "Print",ExpressionUUID->"2848620e-7e41-4cfb-aeea-de928acedcfe"],
Cell[277126, 6852, 595, 17, 52, "Print",ExpressionUUID->"2de81009-b22c-4b1e-8d05-d525048014d3"],
Cell[277724, 6871, 195, 4, 33, "Print",ExpressionUUID->"3959adfa-ab58-48a5-8d39-790ee65c8cad"],
Cell[277922, 6877, 791, 24, 53, "Print",ExpressionUUID->"bc1c2648-f271-47d5-861a-0019bffa2088"],
Cell[278716, 6903, 1016, 28, 54, "Print",ExpressionUUID->"8978ecd8-ab69-4925-99ae-083d813e55eb"],
Cell[279735, 6933, 1014, 29, 54, "Print",ExpressionUUID->"4af5e364-ea6f-475b-8f09-4953d58b4e64"],
Cell[280752, 6964, 910, 28, 53, "Print",ExpressionUUID->"f5206942-f2cd-4354-b916-82fb399de6bd"],
Cell[281665, 6994, 1174, 32, 53, "Print",ExpressionUUID->"7255e405-8306-4184-b4b2-bea8147de15d"],
Cell[282842, 7028, 193, 4, 33, "Print",ExpressionUUID->"04645553-7124-416d-b1ae-e5a947947bc6"],
Cell[283038, 7034, 1883, 56, 67, "Print",ExpressionUUID->"564d86ae-ea81-46da-ba7e-f9e6d777c383"],
Cell[284924, 7092, 1591, 48, 62, "Print",ExpressionUUID->"b2684c4b-26dc-4223-aaf4-c6909c8792a6"],
Cell[286518, 7142, 1127, 36, 57, "Print",ExpressionUUID->"73ca5e56-49f8-4509-8d26-dd38b95d266f"],
Cell[287648, 7180, 1853, 54, 63, "Print",ExpressionUUID->"0817a373-6e89-491a-a707-7b075eb61467"],
Cell[289504, 7236, 2225, 62, 67, "Print",ExpressionUUID->"f2837872-0ddd-4674-8b84-be92cdd57317"],
Cell[291732, 7300, 1615, 47, 63, "Print",ExpressionUUID->"f0de176c-38cb-47ff-b37d-c42bdd785aab"],
Cell[293350, 7349, 1127, 36, 57, "Print",ExpressionUUID->"f4ca4259-8e51-4eb4-b073-db33fbd2cb01"],
Cell[294480, 7387, 1310, 39, 57, "Print",ExpressionUUID->"13871a0e-41bb-4683-b0bd-b07195c458ac"],
Cell[295793, 7428, 606, 22, 33, "Print",ExpressionUUID->"f5d8b3cd-0349-43ba-afaf-70e91c562ca5"],
Cell[296402, 7452, 1570, 48, 66, "Print",ExpressionUUID->"eac41581-6d89-410f-906a-308080cff893"],
Cell[297975, 7502, 1534, 46, 61, "Print",ExpressionUUID->"41554a2b-9880-44dc-8c31-ce6ef3eb5a32"],
Cell[299512, 7550, 1223, 38, 61, "Print",ExpressionUUID->"7d4b1225-fab7-4a59-add2-20a683504540"],
Cell[300738, 7590, 2160, 62, 63, "Print",ExpressionUUID->"82461b8b-b69a-46c5-828f-5bc9344d5751"],
Cell[302901, 7654, 2125, 60, 67, "Print",ExpressionUUID->"33db2961-8381-4cad-abf3-2c5b13f8fc0a"],
Cell[305029, 7716, 1691, 50, 63, "Print",ExpressionUUID->"3037abb9-ad8d-46ee-abd5-b8999dce3614"],
Cell[306723, 7768, 1225, 38, 61, "Print",ExpressionUUID->"d4ae49a0-107b-4854-a1d7-1991092ed68a"],
Cell[307951, 7808, 616, 22, 34, "Print",ExpressionUUID->"02e5b843-ad7f-48bb-8ed4-d7a222c571d6"],
Cell[308570, 7832, 606, 22, 33, "Print",ExpressionUUID->"18ebc6f8-0297-42d6-a4cb-d1b50f42cf3f"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[309237, 7861, 1741, 25, 55, "Subsection",ExpressionUUID->"8a2b7322-99f3-4ba0-9b69-29899873c42d"],
Cell[CellGroupData[{
Cell[311003, 7890, 2554, 60, 385, "Input",ExpressionUUID->"f8a34253-1297-4060-ba97-874b6d90a788"],
Cell[CellGroupData[{
Cell[313582, 7954, 249, 5, 33, "Print",ExpressionUUID->"fec85921-f8c8-49f3-a4cd-d47263fa6f68"],
Cell[313834, 7961, 456, 11, 33, "Print",ExpressionUUID->"c9306885-755b-4d5a-a149-1870647a7353"],
Cell[314293, 7974, 1138, 34, 79, "Print",ExpressionUUID->"e534fe73-7354-4425-9886-ca695bce535a"],
Cell[315434, 8010, 695, 19, 33, "Print",ExpressionUUID->"a682ba34-e2c3-4f90-a932-69ce53b79b45"],
Cell[316132, 8031, 2892, 81, 99, "Print",ExpressionUUID->"2d90ad2f-3213-4a92-aaf6-0b79d475b614"],
Cell[319027, 8114, 1644, 43, 79, "Print",ExpressionUUID->"ffff4a76-6054-4314-aadb-a1631f25b5bf"],
Cell[320674, 8159, 1350, 36, 66, "Print",ExpressionUUID->"ed197c1e-ba2f-45bc-b835-41cd1367d586"],
Cell[322027, 8197, 1058, 31, 90, "Print",ExpressionUUID->"2813df35-0825-4299-8bc6-cc13f292e195"],
Cell[323088, 8230, 1221, 26, 49, "Print",ExpressionUUID->"8653535f-b90e-4331-8059-e63feb442bf4"],
Cell[324312, 8258, 614, 17, 52, "Print",ExpressionUUID->"4707db56-4486-4d58-9b82-0c68ee14874a"],
Cell[324929, 8277, 634, 18, 52, "Print",ExpressionUUID->"c88446fc-8045-4f8f-bde4-b3497993b9ec"],
Cell[325566, 8297, 248, 5, 33, "Print",ExpressionUUID->"11c58904-88ff-44b2-90b4-3f9b48b15883"],
Cell[325817, 8304, 780, 24, 35, "Print",ExpressionUUID->"3b3e27a6-339d-429c-9bd3-6bb2bce30ca0"],
Cell[326600, 8330, 909, 27, 52, "Print",ExpressionUUID->"16e5dc42-508a-4c1d-b53f-0bef00f46e4a"],
Cell[327512, 8359, 923, 27, 52, "Print",ExpressionUUID->"9aa64c61-ea8f-4991-9b51-ff352ee42e5e"],
Cell[328438, 8388, 889, 26, 35, "Print",ExpressionUUID->"a9253b0c-1d32-4793-8187-b4704c9e6ae2"],
Cell[329330, 8416, 1022, 29, 52, "Print",ExpressionUUID->"834d1d23-ff73-4188-a83d-986fcf132018"],
Cell[330355, 8447, 251, 5, 33, "Print",ExpressionUUID->"cee0b252-a829-4bcf-b61d-e0072a8ad82e"],
Cell[330609, 8454, 1535, 45, 62, "Print",ExpressionUUID->"4ccc13c6-769f-4dcd-8bd4-931363cc9492"],
Cell[332147, 8501, 1192, 38, 57, "Print",ExpressionUUID->"7f0e3bea-3e1e-45a9-b3a1-b4dc5ee0e7c7"],
Cell[333342, 8541, 1172, 37, 57, "Print",ExpressionUUID->"a9e4bd94-92ba-44ff-8e8f-88c0cfd556ea"],
Cell[334517, 8580, 1194, 38, 57, "Print",ExpressionUUID->"fe3aed57-43ee-4291-a37d-6735e012aec8"],
Cell[335714, 8620, 1485, 45, 62, "Print",ExpressionUUID->"339b000e-65d6-4b20-b2f6-d61751fa19fc"],
Cell[337202, 8667, 1404, 42, 57, "Print",ExpressionUUID->"d8b16b2b-acc3-4907-96dd-5661516da3ca"],
Cell[338609, 8711, 1170, 37, 57, "Print",ExpressionUUID->"ec4a38ce-e9fd-4987-8e86-e425fd2b42b8"],
Cell[339782, 8750, 1406, 42, 57, "Print",ExpressionUUID->"f74b1fee-3aab-44e9-b7c3-3f23ccd13bfb"],
Cell[341191, 8794, 661, 23, 33, "Print",ExpressionUUID->"77c9a7af-4269-48cd-85c5-6502817efa64"],
Cell[341855, 8819, 1600, 48, 66, "Print",ExpressionUUID->"ca5a4ff2-90f5-4546-9d4c-4bf27afcf61e"],
Cell[343458, 8869, 1591, 47, 61, "Print",ExpressionUUID->"63fca0c3-c4ee-43d5-8d69-8613c4f2ebed"],
Cell[345052, 8918, 1267, 39, 61, "Print",ExpressionUUID->"af4c990e-3a85-42e7-be21-5224e28f2775"],
Cell[346322, 8959, 1552, 46, 61, "Print",ExpressionUUID->"efcb187c-5250-450c-9c65-f8339ab41bed"],
Cell[347877, 9007, 1845, 54, 66, "Print",ExpressionUUID->"a554e40c-ec7a-40aa-a04e-caaf4fb721ce"],
Cell[349725, 9063, 1470, 44, 62, "Print",ExpressionUUID->"2333b266-5581-400e-a97e-de6a6a4deb50"],
Cell[351198, 9109, 1270, 39, 61, "Print",ExpressionUUID->"5c037e65-09a8-4622-9828-b4230e028f53"],
Cell[352471, 9150, 663, 23, 33, "Print",ExpressionUUID->"8b85b544-9002-4402-9444-6fb480125d07"],
Cell[353137, 9175, 663, 23, 33, "Print",ExpressionUUID->"f7918979-1edd-4ba1-ab48-8a6d4f910bdb"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[353861, 9205, 1728, 25, 55, "Subsection",ExpressionUUID->"a541e0eb-9c38-4d64-a94f-0362d2c27f0a"],
Cell[355592, 9232, 2709, 62, 385, "Input",ExpressionUUID->"4f3186bd-e5d9-4d24-b0fa-ca76f4f50360"]
}, Closed]],
Cell[CellGroupData[{
Cell[358338, 9299, 1804, 27, 55, "Subsection",ExpressionUUID->"2b22a67b-a7d0-4f15-8d7c-f2d207ae9e29"],
Cell[CellGroupData[{
Cell[360167, 9330, 2767, 69, 385, "Input",ExpressionUUID->"cce0ece2-9cdf-42e7-a954-633562d9afc4"],
Cell[CellGroupData[{
Cell[362959, 9403, 192, 4, 33, "Print",ExpressionUUID->"c2a32ec5-6a04-4eff-97c7-451d15ebe98f"],
Cell[363154, 9409, 427, 11, 33, "Print",ExpressionUUID->"76d90dd3-1fac-459f-8c6d-e87aaec04c30"],
Cell[363584, 9422, 1107, 33, 80, "Print",ExpressionUUID->"bb5e5b61-50da-4817-86aa-36e2b6a3b8ee"],
Cell[364694, 9457, 889, 24, 33, "Print",ExpressionUUID->"bee43aea-8b43-4d18-b917-41f376292ac4"],
Cell[365586, 9483, 3606, 98, 83, "Print",ExpressionUUID->"d8bf155b-c46d-45e3-987e-082df0cd166b"],
Cell[369195, 9583, 2130, 55, 103, "Print",ExpressionUUID->"98d3efe9-036c-475d-8cc7-28e98fa44cab"],
Cell[371328, 9640, 2092, 54, 80, "Print",ExpressionUUID->"fb0de910-c263-4025-a672-39a2d2a212fa"],
Cell[373423, 9696, 1421, 39, 102, "Print",ExpressionUUID->"348ab35c-31a7-4235-b6da-81030a6d18a9"],
Cell[374847, 9737, 3043, 82, 123, "Print",ExpressionUUID->"4ee69525-5ed4-4e1c-a26f-34ec44a37bb5"],
Cell[377893, 9821, 801, 22, 56, "Print",ExpressionUUID->"5b8671bf-1fc4-4926-bba5-d4962b0ff382"],
Cell[378697, 9845, 808, 23, 55, "Print",ExpressionUUID->"3e368327-30ae-4e07-9148-ddf20ffda669"],
Cell[379508, 9870, 826, 23, 56, "Print",ExpressionUUID->"7a4fd091-205a-40f6-805c-4d4b09b65053"],
Cell[380337, 9895, 785, 22, 55, "Print",ExpressionUUID->"dde963d8-2551-4436-8aac-ed2c17b94b87"],
Cell[381125, 9919, 603, 17, 52, "Print",ExpressionUUID->"8610ee79-76c7-405d-827d-7123b4a9ac4e"],
Cell[381731, 9938, 583, 16, 52, "Print",ExpressionUUID->"9ef3d277-a19e-457a-beab-9dd29fc926be"],
Cell[382317, 9956, 193, 4, 33, "Print",ExpressionUUID->"b0092cee-2396-4f68-99aa-b552ee6cfbb0"],
Cell[382513, 9962, 2429, 62, 58, "Print",ExpressionUUID->"d1750515-434b-4304-9641-a93565b234f0"],
Cell[384945, 10026, 2407, 62, 58, "Print",ExpressionUUID->"a9ffe410-63ed-424c-b49b-2339392673cb"],
Cell[387355, 10090, 2365, 62, 58, "Print",ExpressionUUID->"19ab6ffe-6151-4d8f-88c5-673e5976e1d3"],
Cell[389723, 10154, 2719, 68, 87, "Print",ExpressionUUID->"c8217340-f7d4-457a-9175-e14acbbe8c2a"],
Cell[392445, 10224, 2456, 61, 70, "Print",ExpressionUUID->"510f34fe-5a36-48ab-aee0-7d4115bc89b8"],
Cell[394904, 10287, 193, 4, 33, "Print",ExpressionUUID->"5d2abc9a-aeb2-429f-aeb0-195dbc4b540d"],
Cell[395100, 10293, 2121, 58, 74, "Print",ExpressionUUID->"42ce0f7a-9e4d-44a9-9247-178ec8132666"],
Cell[397224, 10353, 1988, 55, 58, "Print",ExpressionUUID->"93925300-1f96-4aca-a34b-1a333ba4ae9e"],
Cell[399215, 10410, 1818, 52, 57, "Print",ExpressionUUID->"9d212e02-55a2-42ca-bac7-f8b03f93e9b0"],
Cell[401036, 10464, 1988, 55, 58, "Print",ExpressionUUID->"ca2bb49a-6666-4ca8-b312-7eb4a488b707"],
Cell[403027, 10521, 2143, 58, 75, "Print",ExpressionUUID->"ff4ade51-a32d-4715-be2a-aa38e4d70d3f"],
Cell[405173, 10581, 1395, 41, 57, "Print",ExpressionUUID->"a07c09b2-2325-4cec-ae77-7c12285bf5fb"],
Cell[406571, 10624, 1820, 52, 57, "Print",ExpressionUUID->"8bbdc30f-8f48-48be-b50b-7708d79b3d28"],
Cell[408394, 10678, 1395, 41, 57, "Print",ExpressionUUID->"0a441d90-3aa7-4fc2-bc2e-ef1e8ca28a88"],
Cell[409792, 10721, 606, 22, 33, "Print",ExpressionUUID->"d82e61de-7e13-4c61-b848-212f367e3f06"],
Cell[410401, 10745, 2992, 80, 82, "Print",ExpressionUUID->"3bbc0b8f-35aa-4119-b825-e38a8bf170b7"],
Cell[413396, 10827, 2663, 73, 77, "Print",ExpressionUUID->"7eb87bd8-19ea-47f6-8f48-b1d5a99234ef"],
Cell[416062, 10902, 1945, 55, 62, "Print",ExpressionUUID->"0bb99683-e2e9-4145-8b9d-b25c83cefb75"],
Cell[418010, 10959, 2497, 67, 62, "Print",ExpressionUUID->"66cceb54-03a3-4569-81d8-6afa20f3f194"],
Cell[420510, 11028, 2658, 73, 67, "Print",ExpressionUUID->"9519260d-f081-427e-90f0-aa18a84f0121"],
Cell[423171, 11103, 1669, 48, 62, "Print",ExpressionUUID->"6d45b2b0-7c03-4f8e-b664-3fd345efc5bc"],
Cell[424843, 11153, 1883, 53, 61, "Print",ExpressionUUID->"f258bcfd-b633-4afc-8465-66b14b04c9ba"],
Cell[426729, 11208, 1736, 49, 61, "Print",ExpressionUUID->"2a9bef82-d5df-4b01-b0ed-4ff910106f12"],
Cell[428468, 11259, 608, 22, 33, "Print",ExpressionUUID->"57f76408-2916-4351-b786-a061cb82a083"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[429137, 11288, 1797, 26, 55, "Subsection",ExpressionUUID->"09310305-b837-45d7-a692-b7a3754ba2cb"],
Cell[CellGroupData[{
Cell[430959, 11318, 2687, 62, 385, "Input",ExpressionUUID->"dc2fb6cd-34b2-4be4-9fd6-04f729a2a391"],
Cell[CellGroupData[{
Cell[433671, 11384, 194, 4, 33, "Print",ExpressionUUID->"173d5201-4d5b-423e-bc8b-845a1ea26438"],
Cell[433868, 11390, 430, 11, 33, "Print",ExpressionUUID->"b0694c08-31ba-4e38-bb92-319d5ce8d978"],
Cell[434301, 11403, 1105, 33, 80, "Print",ExpressionUUID->"aafefd97-63ac-4075-9825-94b12b03d230"],
Cell[435409, 11438, 479, 13, 33, "Print",ExpressionUUID->"3320d6c9-9df7-4911-88e0-c3332d5a9549"],
Cell[435891, 11453, 3576, 97, 83, "Print",ExpressionUUID->"a8b739b5-733d-45de-9c04-2f6421ec4995"],
Cell[439470, 11552, 1980, 50, 101, "Print",ExpressionUUID->"4cb14cf0-5dd9-4173-ba5d-6645cecb1659"],
Cell[441453, 11604, 1620, 42, 77, "Print",ExpressionUUID->"20fba9e3-131a-43e2-a9e0-c6a6d7ae38c0"],
Cell[443076, 11648, 1071, 30, 101, "Print",ExpressionUUID->"1d2289c9-6822-4e32-b48f-869361f95b15"],
Cell[444150, 11680, 1575, 39, 57, "Print",ExpressionUUID->"8bba7680-246a-460c-830e-87b16da017a8"],
Cell[445728, 11721, 603, 17, 52, "Print",ExpressionUUID->"1200b515-98c7-42a7-b634-9c52f2f7a914"],
Cell[446334, 11740, 583, 16, 52, "Print",ExpressionUUID->"780ed338-f158-4413-b544-999c90fa261d"],
Cell[446920, 11758, 655, 17, 52, "Print",ExpressionUUID->"bb04b1b2-b5bc-41fb-aee5-515bee2e7161"],
Cell[447578, 11777, 683, 19, 52, "Print",ExpressionUUID->"c5452532-6c36-4b2a-a863-c46cb8aa8769"],
Cell[448264, 11798, 597, 17, 52, "Print",ExpressionUUID->"39a7bd6f-2de8-482e-baf2-b8a4ac220298"],
Cell[448864, 11817, 575, 16, 52, "Print",ExpressionUUID->"0fb79af1-ef94-433e-8dd4-4786115610f2"],
Cell[449442, 11835, 195, 4, 33, "Print",ExpressionUUID->"ec3c570e-3818-440d-bf43-2610ede0eca9"],
Cell[449640, 11841, 1526, 39, 54, "Print",ExpressionUUID->"4f289f3a-354c-491d-ade1-9f306a9eaab2"],
Cell[451169, 11882, 1506, 38, 54, "Print",ExpressionUUID->"aca37456-c417-4fdd-b922-392b14b398d7"],
Cell[452678, 11922, 1414, 38, 54, "Print",ExpressionUUID->"ccfd3639-9151-4673-9b66-d86e593d79a0"],
Cell[454095, 11962, 1736, 45, 53, "Print",ExpressionUUID->"69a72ac5-145a-4e15-bbee-5462ff67da33"],
Cell[455834, 12009, 1717, 45, 53, "Print",ExpressionUUID->"6ade8715-6416-4d10-8ac0-8c1390efbbb6"],
Cell[457554, 12056, 194, 4, 33, "Print",ExpressionUUID->"c5945ec2-1511-4ee5-b9e3-4d3930aaf4aa"],
Cell[457751, 12062, 1886, 51, 62, "Print",ExpressionUUID->"a92b85d9-ff24-4b56-8a48-4de5c734d3d7"],
Cell[459640, 12115, 1556, 44, 57, "Print",ExpressionUUID->"370803e2-d22a-43d1-b1e6-cb4c75b40b30"],
Cell[461199, 12161, 1337, 39, 57, "Print",ExpressionUUID->"565c9cf3-8fe9-4386-ab38-42a87540047e"],
Cell[462539, 12202, 1556, 44, 57, "Print",ExpressionUUID->"9bbb16de-628d-4e20-a036-4a6585506af8"],
Cell[464098, 12248, 1872, 52, 62, "Print",ExpressionUUID->"b642bea0-5c79-41a5-8a09-6617169b173b"],
Cell[465973, 12302, 1503, 44, 57, "Print",ExpressionUUID->"00b40e06-b265-403a-a338-e693d843b117"],
Cell[467479, 12348, 1337, 39, 57, "Print",ExpressionUUID->"669e040f-6075-46a0-b1aa-1400ad883b68"],
Cell[468819, 12389, 1503, 44, 57, "Print",ExpressionUUID->"ede10157-6212-4b1c-8b18-06631276ed00"],
Cell[470325, 12435, 606, 22, 33, "Print",ExpressionUUID->"ebf14549-91c6-4b5d-b64e-967d07f2260c"],
Cell[470934, 12459, 1818, 51, 66, "Print",ExpressionUUID->"2783a701-69c9-4d4e-b881-7983450f75b1"],
Cell[472755, 12512, 1657, 48, 61, "Print",ExpressionUUID->"e5faebbd-8f36-44a2-abac-4da52ce8844a"],
Cell[474415, 12562, 620, 22, 33, "Print",ExpressionUUID->"9aaaf5f9-df04-4182-baa8-2e65f9c3e38f"],
Cell[475038, 12586, 1657, 48, 61, "Print",ExpressionUUID->"b9cbcdbc-b052-4bca-bd4b-78a7206b9dae"],
Cell[476698, 12636, 1781, 52, 66, "Print",ExpressionUUID->"ee3cd858-c68b-45dc-87b2-52816ea9d27c"],
Cell[478482, 12690, 618, 22, 34, "Print",ExpressionUUID->"2f759c0d-482f-4dc8-ac78-b320d5970b2e"],
Cell[479103, 12714, 1399, 41, 62, "Print",ExpressionUUID->"2f4a8226-fe13-4129-86b9-e791a7d0c917"],
Cell[480505, 12757, 1567, 46, 62, "Print",ExpressionUUID->"2d64514f-bcff-42ef-940d-850ee1ea19d9"],
Cell[482075, 12805, 608, 22, 33, "Print",ExpressionUUID->"7d113b37-5588-43a1-af87-f916ee5465a5"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[482744, 12834, 1652, 24, 55, "Subsection",ExpressionUUID->"a67b8714-4c7d-4842-befb-d82030e36b91"],
Cell[484399, 12860, 8570, 139, 328, "Input",ExpressionUUID->"7c54c588-301b-42eb-bdc0-ccc43d0f3c6c"],
Cell[492972, 13001, 149, 3, 71, "Input",ExpressionUUID->"9fc4db90-ac61-42df-b850-ca116c5d8e0b"]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[493170, 13010, 1632, 24, 100, "Section",ExpressionUUID->"a70038ea-6cec-4882-a740-cc15b3b2c307"],
Cell[CellGroupData[{
Cell[494827, 13038, 1762, 26, 81, "Subsection",ExpressionUUID->"32ebbd34-39e0-408b-920f-2dc1ce2f7240"],
Cell[496592, 13066, 2704, 65, 186, "Input",ExpressionUUID->"269a8208-6126-4c6b-9ab2-c6e9ea7ec632"],
Cell[499299, 13133, 130, 3, 42, "Input",ExpressionUUID->"a8cc3ddf-719e-4b81-91ed-89739ab659bb"]
}, Closed]],
Cell[CellGroupData[{
Cell[499466, 13141, 1866, 27, 55, "Subsection",ExpressionUUID->"d6944c1f-6972-4f9d-9dad-92b4fb652f58"],
Cell[501335, 13170, 3336, 77, 320, "Input",ExpressionUUID->"96aa4a5c-874f-47dc-999f-e07cd0cf4da1"]
}, Closed]]
}, Open  ]]
}
]
*)