(************** Content-type: application/mathematica ************** Mathematica-Compatible Notebook This notebook can be used with any Mathematica-compatible application, such as Mathematica, MathReader or Publicon. The data for the notebook starts with the line containing stars above. To get the notebook into a Mathematica-compatible application, do one of the following: * Save the data starting with the line of stars above into a file with a name ending in .nb, then open the file inside the application; * Copy the data starting with the line of stars above to the clipboard, then use the Paste menu command inside the application. Data for notebooks contains only printable 7-bit ASCII and can be sent directly in email or through ftp in text mode. Newlines can be CR, LF or CRLF (Unix, Macintosh or MS-DOS style). NOTE: If you modify the data for this notebook not in a Mathematica- compatible application, you must delete the line below containing the word CacheID, otherwise Mathematica-compatible applications may try to use invalid cache data. For more information on notebooks and Mathematica-compatible applications, contact Wolfram Research: web: http://www.wolfram.com email: info@wolfram.com phone: +1-217-398-0700 (U.S.) Notebook reader applications are available free of charge from Wolfram Research. *******************************************************************) (*CacheID: 232*) (*NotebookFileLineBreakTest NotebookFileLineBreakTest*) (*NotebookOptionsPosition[ 1068390, 25900]*) (*NotebookOutlinePosition[ 1069126, 25925]*) (* CellTagsIndexPosition[ 1069082, 25921]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Mathematica ", FontSlant->"Italic"], "Symbolic Calculations in Non-Linear Continuum Mechanics " }], "Title", CellFrame->True, Evaluatable->False, CellHorizontalScrolling->False, TextAlignment->Left, FontFamily->"Arial", FontWeight->"Bold", FontColor->RGBColor[0, 0, 1], Background->RGBColor[0, 1, 1]], Cell[TextData[Cell[BoxData[ FormBox[ ButtonBox[\(Author : \ A.N.\ Papusha\), ButtonData:>"S5.43.1", ButtonStyle->"Hyperlink"], TraditionalForm]]]], "Subtitle", CellFrame->True, Evaluatable->False, CellHorizontalScrolling->False, TextAlignment->Left, FontFamily->"Arial", FontSize->18, FontSlant->"Italic", FontColor->RGBColor[0.501961, 0, 0.501961], Background->RGBColor[0, 1, 1]], Cell[TextData[{ "Department of Theoretical Mechanics,\n", Cell[BoxData[ FormBox[ ButtonBox[\(Murmansk\ State\ Technical\ University, \), ButtonData:>{ URL[ "http://www.mstu.edu.ru"], None}, ButtonStyle->"Hyperlink"], TraditionalForm]]], "\nSportivnay st., 13\n183010, Murmansk, RUSSIA\n", StyleBox["Email: ", Background->RGBColor[0, 1, 0]], ButtonBox["Alexander.Papusha@mstu.edu.ru", ButtonData:>{ URL[ "mailto: Alexander.Papusha@mstu.edu.ru"], None}, ButtonStyle->"Hyperlink"] }], "Subsubtitle", CellFrame->True, Evaluatable->False, CellHorizontalScrolling->False, TextAlignment->Left, TextJustification->1, FontFamily->"Arial", FontSize->16, FontWeight->"Bold", FontColor->RGBColor[0.501961, 0.501961, 0], Background->GrayLevel[0.849989]], Cell[CellGroupData[{ Cell["Abstract", "Section", Evaluatable->False, FontFamily->"Arial", FontSize->18], Cell[TextData[{ "The main aim of this presentation is to present new symbolic technique in \ Continuum Mechanics under tensor calculation developed in ", StyleBox["Mathematica", FontWeight->"Bold"], "." }], "Text", CellMargins->{{20, Inherited}, {Inherited, Inherited}}, FontFamily->"Arial"], Cell["\<\ In present work the deriving of the equations of the deformations and the \ static equations of stresses of the non-linear theory of elasticity of an \ elastic body are described in any curved line orthonormal basis. The notebook \ includes the deriving of the non-linear equations of balance carried out \ through the package of the Mathematica, thus differing from well known and \ widely used methods described earlier in the famous TextBooks on the theory \ of elasticity [1-3]. \ \>", "Text", Evaluatable->False, TextAlignment->Left, TextJustification->1, FontFamily->"Arial", FontSize->12, FontWeight->"Plain", FontSlant->"Plain", FontTracking->"Plain", FontColor->GrayLevel[0], Background->GrayLevel[1], FontVariations->{"Underline"->False, "Outline"->False, "Shadow"->False}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Part One: Theory of Deformations in Continuum Mechanics\ \>", "Title"], Cell["Curve's liner System Coordinates", "Subtitle"], Cell[TextData[{ "Symbolic calculation in ", "Continuum", " Mechanics under ", StyleBox["Mathematica", FontSlant->"Italic"], " are processing in any curve liner system coordinates." }], "Text", FontFamily->"Arial"], Cell[CellGroupData[{ Cell["Package", "Subtitle"], Cell["\<\ The main aims of the paper presented is realizing Simbolic Technique with \ help of the packeges were developed in computer.\ \>", "Text", TextAlignment->Left, TextJustification->1, FontFamily->"Arial"], Cell[CellGroupData[{ Cell[TextData[StyleBox[ "Creating of the Tensor Deformation in Curve's Liner Coordinates", FontSize->24]], "Section", Evaluatable->False, FontFamily->"Arial", FontSize->16], Cell["<Infinity], Cell["Clear[TensorCurveLinerDeformation];", "Input", PageWidth->Infinity], Cell[CellGroupData[{ Cell["\<\ Tensor Deformation in the arbitrary curve's liner system coordinates\ \>", "Subsection"], Cell[TextData[{ "In order to obtain all elements of the tensor deformation in any curve's \ liner system coordinates it is nessesary to load package ", StyleBox["<< DeformationTensor.m ", FontWeight->"Bold"], ". " }], "Text", CellMargins->{{22, Inherited}, {Inherited, Inherited}}, TextAlignment->Left, TextJustification->1, FontFamily->"Arial"], Cell[BoxData[ \(<< DeformationTensor.m\)], "Input"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Cartesian Coordinates", "Subtitle"], Cell[CellGroupData[{ Cell[TextData[StyleBox[ "Usual Example: Non-Linear elements of the Tensor Deformation in Cartesian \ Coordinates", FontSize->24]], "Section"], Cell["\<\ n=3; SetCoordinates[Cartesian]; NewCoordinatesToCartesian=CoordinatesToCartesian[Coordinates[]]; NewCoordinates=Coordinates[];\ \>", "Input", PageWidth->Infinity, FontFamily->"Courier New", FontSize->12, FontWeight->"Bold", FontColor->GrayLevel[0], Background->GrayLevel[1]], Cell[BoxData[ \(i = 3; j = 2; \n \(TensorCurveLinerDeformation[NewCoordinatesToCartesian, \n NewCoordinates, n]\)[\([i, j]\)]; \)], "Input"], Cell[BoxData[ \(\(\n\(\[Gamma]\_\(i, j\) = \(TensorCurveLinerDeformation[NewCoordinatesToCartesian, \n NewCoordinates, n]\)[\([i, j]\)]; \)\)\)], "Input", PageWidth->Infinity, FontFamily->"Courier New", FontSize->12, FontWeight->"Bold", FontColor->GrayLevel[0], Background->GrayLevel[1]], Cell[TextData[{ "Element ", Cell[BoxData[ StyleBox[\(g\_\(3, 2\)\), FontSize->16]]], " - in cartesian coordinates" }], "Text", CellMargins->{{24, Inherited}, {Inherited, Inherited}}, FontFamily->"Arial"], Cell[CellGroupData[{ Cell[BoxData[ \(\[Gamma]\_\(i, j\) /. {i -> 3, j -> 2}\)], "Input"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(Xx, Yy, Zz\), "]"}], " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(Xx, Yy, Zz\), "]"}]}], "+", RowBox[{ RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(Xx, Yy, Zz\), "]"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(Xx, Yy, Zz\), "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(Xx, Yy, Zz\), "]"}]}], ")"}], " ", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(Xx, Yy, Zz\), "]"}]}]}]], "Output"] }, Open ]], Cell[TextData[{ "Element ", Cell[BoxData[ StyleBox[\(g\_\(1, 3\)\), FontSize->16]]], " - in cartesian coordinates" }], "Text", CellMargins->{{24, Inherited}, {Inherited, Inherited}}, FontFamily->"Arial"], Cell[CellGroupData[{ Cell[BoxData[ \(\[Gamma]\_\(i, j\) /. {i -> 1, j -> 3}\)], "Input"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(Xx, Yy, Zz\), "]"}], " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(Xx, Yy, Zz\), "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(Xx, Yy, Zz\), "]"}]}], ")"}], " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(Xx, Yy, Zz\), "]"}]}], "+", RowBox[{ RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(Xx, Yy, Zz\), "]"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(Xx, Yy, Zz\), "]"}]}], ")"}]}]}]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Traditional Systems Curve's Liner Coordinates: Cylindrical and Spherical\ \>", "Subtitle"], Cell[CellGroupData[{ Cell[TextData[StyleBox["Cylindrical Coordinates", FontSize->24]], "Section"], Cell["\<\ In the first step one should take a system of the curve's liner system \ coordinates. Let us cylindrical coordinates involves in consideration as a \ simple example of evaluation. It is well known that full set of the linear \ elements of the Tensor Deformation in cylindrical coordinates have been \ obtaned [2]. Now new elements of non-linear elements of the Tensor \ Deformations to be obtained by computer in the same system coordinates. \ \>", "Text", CellMargins->{{23, Inherited}, {Inherited, Inherited}}, TextAlignment->Left, TextJustification->1, FontFamily->"Arial"], Cell["\<\ SetCoordinates[Cylindrical]; NewCoordinatesToCartesian=CoordinatesToCartesian[Coordinates[]]; NewCoordinates=Coordinates[];\ \>", "Input", PageWidth->Infinity, FontFamily->"Courier New", FontSize->12, FontWeight->"Bold", FontColor->GrayLevel[0], Background->GrayLevel[1]], Cell["\<\ n=3; TensorCurveLinerDeformation[NewCoordinatesToCartesian, NewCoordinates,n];\ \>", "Input", PageWidth->Infinity, FontFamily->"Courier New", FontSize->12, FontWeight->"Bold", FontColor->GrayLevel[0], Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox[ "Example 0: Row (3) of the Non-Linear Tensor Deformation in Cylindrical \ Coordinates", FontSize->24]], "Section", Evaluatable->False], Cell[CellGroupData[{ Cell[BoxData[ \(TraditionalForm \`row3 = \(TensorCurveLinerDeformation[NewCoordinatesToCartesian, \n NewCoordinates, n]\)[\([3]\)] // ExpandAll\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(Rr, Ttheta, Zz\), "]"}], "+", RowBox[{ RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(Rr, Ttheta, Zz\), "]"}], " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(Rr, Ttheta, Zz\), "]"}]}], "+", RowBox[{ RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(Rr, Ttheta, Zz\), "]"}], " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(Rr, Ttheta, Zz\), "]"}]}], "+", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(Rr, Ttheta, Zz\), "]"}], "+", RowBox[{ RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(Rr, Ttheta, Zz\), "]"}], " ", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(Rr, Ttheta, Zz\), "]"}]}]}], ",", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{\(u\_2[Rr, Ttheta, Zz]\), " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(Rr, Ttheta, Zz\), "]"}]}], "Rr"]}], "+", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(Rr, Ttheta, Zz\), "]"}], "+", FractionBox[ RowBox[{\(u\_1[Rr, Ttheta, Zz]\), " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(Rr, Ttheta, Zz\), "]"}]}], "Rr"], "+", FractionBox[ RowBox[{ RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(Rr, Ttheta, Zz\), "]"}], " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(Rr, Ttheta, Zz\), "]"}]}], "Rr"], "+", FractionBox[ RowBox[{ RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(Rr, Ttheta, Zz\), "]"}], " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(Rr, Ttheta, Zz\), "]"}]}], "Rr"], "+", FractionBox[ RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(Rr, Ttheta, Zz\), "]"}], "Rr"], "+", FractionBox[ RowBox[{ RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(Rr, Ttheta, Zz\), "]"}], " ", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(Rr, Ttheta, Zz\), "]"}]}], "Rr"]}], ",", RowBox[{ RowBox[{\(1\/2\), " ", SuperscriptBox[ RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(Rr, Ttheta, Zz\), "]"}], "2"]}], "+", RowBox[{\(1\/2\), " ", SuperscriptBox[ RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(Rr, Ttheta, Zz\), "]"}], "2"]}], "+", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(Rr, Ttheta, Zz\), "]"}], "+", RowBox[{\(1\/2\), " ", SuperscriptBox[ RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(Rr, Ttheta, Zz\), "]"}], "2"]}]}]}], "}"}], TraditionalForm]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox[ "Example 1: Non-Linear Element (3,2) of the Tensor Deformation in Cylindrical \ Coordinates", FontSize->24]], "Section", Evaluatable->False], Cell[CellGroupData[{ Cell[BoxData[ \(i = 3; j = 2; \n t\_\(i, j\) = Expand[\(TensorCurveLinerDeformation[NewCoordinatesToCartesian, \n NewCoordinates, n]\)\[LeftDoubleBracket]i, j\[RightDoubleBracket]] \)], "Input", PageWidth->Infinity, FontFamily->"Courier New", FontSize->12, FontWeight->"Bold", FontColor->GrayLevel[0], Background->GrayLevel[1]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", FractionBox[ RowBox[{\(u\_2[Rr, Ttheta, Zz]\), " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(Rr, Ttheta, Zz\), ")"}]}], "Rr"]}], "+", FractionBox[ RowBox[{ RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(Rr, Ttheta, Zz\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(Rr, Ttheta, Zz\), ")"}]}], "Rr"], "+", FractionBox[ RowBox[{\(u\_1[Rr, Ttheta, Zz]\), " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(Rr, Ttheta, Zz\), ")"}]}], "Rr"], "+", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(Rr, Ttheta, Zz\), ")"}], "+", FractionBox[ RowBox[{ RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(Rr, Ttheta, Zz\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(Rr, Ttheta, Zz\), ")"}]}], "Rr"], "+", FractionBox[ RowBox[{ RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(Rr, Ttheta, Zz\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(Rr, Ttheta, Zz\), ")"}]}], "Rr"], "+", FractionBox[ RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(Rr, Ttheta, Zz\), ")"}], "Rr"]}], TraditionalForm]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox[ "Example 2: Linear element (3,2) of the Tensor Deformation in Cylindrical \ Coordinates", FontSize->24]], "Section", Evaluatable->False], Cell[BoxData[ \(\(\[Gamma]\_\(3, 2\) = \ DeleteCases[t\_\(3, 2\), \ \((x_)\)*\((y_)\)/\((z_)\)]; \)\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(\[Gamma]\_\(3, 2\)\)], "Input"], Cell[OutputFormData["\<\ Derivative[0, 0, 1][Subscript[u, 2]][Rr, Ttheta, Zz] + Derivative[0, 1, 0][Subscript[u, 3]][Rr, Ttheta, Zz]/Rr\ \>", "\<\ (0,1,0) (u ) [Rr, Ttheta, Zz] (0,0,1) 3 (u ) [Rr, Ttheta, Zz] + --------------------------- 2 Rr\ \>"], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox[ "Example 3: Linear element (3,2) of the Tensor Deformation in Cylindrical \ Coordinates is rewrited in original coordinates ", FontSize->24], "{Rr->r,Ttheta->\[Theta],Zz->z}" }], "Section", Evaluatable->False], Cell[CellGroupData[{ Cell[BoxData[ \(\[Gamma]\_\(3, 2\) /. {Rr -> r, Ttheta -> \[Theta], Zz -> z}\)], "Input"], Cell[OutputFormData["\<\ Derivative[0, 0, 1][Subscript[u, 2]][r, \\[Theta], z] + Derivative[0, 1, 0][Subscript[u, 3]][r, \\[Theta], z]/r\ \>", "\<\ (0,1,0) (u ) [r, \[Theta], z] (0,0,1) 3 (u ) [r, \[Theta], z] + -------------------- 2 r\ \>"], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox[ "Spherical Coordinates\nExample 4: Non-Linear Element (3,2) of the Tensor \ Deformation in Spherical Coordinates", FontSize->24]], "Section", Evaluatable->False], Cell["\<\ SetCoordinates[Spherical]; NewCoordinatesToCartesian=CoordinatesToCartesian[Coordinates[]]; NewCoordinates=Coordinates[];\ \>", "Input", PageWidth->Infinity, FontFamily->"Courier New", FontSize->12, FontWeight->"Bold", FontColor->GrayLevel[0], Background->GrayLevel[1]], Cell[CellGroupData[{ Cell[BoxData[ \(i = 3; j = 2; n = 3; \n t\_\(i, j\) = \(TensorCurveLinerDeformation[NewCoordinatesToCartesian, \n NewCoordinates, n]\)\[LeftDoubleBracket]i, j \[RightDoubleBracket]\)], "Input", PageWidth->Infinity, FontFamily->"Courier New", FontSize->12, FontWeight->"Bold", FontColor->GrayLevel[0], Background->GrayLevel[1]], Cell[BoxData[ FormBox[ RowBox[{\(1\/Rr\^2\), RowBox[{"(", RowBox[{\(csc(Ttheta)\), " ", RowBox[{"(", RowBox[{ RowBox[{"Rr", " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(Rr, Ttheta, Pphi\), ")"}]}], "+", RowBox[{\(u\_1[Rr, Ttheta, Pphi]\), " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(Rr, Ttheta, Pphi\), ")"}]}], "+", RowBox[{ RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(Rr, Ttheta, Pphi\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(Rr, Ttheta, Pphi\), ")"}]}], "+", RowBox[{ RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(Rr, Ttheta, Pphi\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(Rr, Ttheta, Pphi\), ")"}]}], "-", RowBox[{\(u\_3[Rr, Ttheta, Pphi]\), " ", RowBox[{"(", RowBox[{ \(Rr\ \(cos(Ttheta)\)\), "+", \(u\_1[Rr, Ttheta, Pphi]\ \(cos(Ttheta)\)\), "+", RowBox[{ RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(Rr, Ttheta, Pphi \), ")"}], " ", \(cos(Ttheta)\)}], "-", \(\(sin(Ttheta)\)\ u\_2[Rr, Ttheta, Pphi]\), "+", RowBox[{\(sin(Ttheta)\), " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(Rr, Ttheta, Pphi \), ")"}]}]}], ")"}]}], "+", RowBox[{"Rr", " ", \(sin(Ttheta)\), " ", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(Rr, Ttheta, Pphi\), ")"}]}], "+", RowBox[{ \(sin(Ttheta)\), " ", \(u\_1[Rr, Ttheta, Pphi]\), " ", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(Rr, Ttheta, Pphi\), ")"}]}], "+", RowBox[{ RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(Rr, Ttheta, Pphi\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(Rr, Ttheta, Pphi\), ")"}]}], "+", RowBox[{\(u\_2[Rr, Ttheta, Pphi]\), " ", RowBox[{"(", RowBox[{ RowBox[{\(cos(Ttheta)\), " ", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(Rr, Ttheta, Pphi \), ")"}]}], "-", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(Rr, Ttheta, Pphi\), ")"}]}], ")"}]}]}], ")"}]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Exotic System Coordinates: ParabolicCylindrical, EllipticCylindrical, Paraboloidal\ \>", "Subtitle"], Cell[CellGroupData[{ Cell[TextData[StyleBox[ "Exotic Example One: Non-Linear element (3,2) of the Tensor Deformation in \ ParabolicCylindrical Coordinates ", FontSize->24]], "Section"], Cell["\<\ SetCoordinates[ParabolicCylindrical]; NewCoordinatesToCartesian=CoordinatesToCartesian[Coordinates[]]; NewCoordinates=Coordinates[];\ \>", "Input", PageWidth->Infinity, FontFamily->"Courier New", FontSize->12, FontWeight->"Bold", FontColor->GrayLevel[0], Background->GrayLevel[1]], Cell[CellGroupData[{ Cell[BoxData[ \(i = 3; j = 2; \n g\_\(i, j\) = Expand[\(TensorCurveLinerDeformation[NewCoordinatesToCartesian, \n NewCoordinates, n]\)\[LeftDoubleBracket]i, j \[RightDoubleBracket]] // Factor\)], "Input", PageWidth->Infinity, FontFamily->"Courier New", FontSize->12, FontWeight->"Bold", FontColor->GrayLevel[0], Background->GrayLevel[1]], Cell[BoxData[ FormBox[ RowBox[{\(1\/\@\(Uu\^2 + Vv\^2\)\), RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(Uu, Vv, Zz\), ")"}], " ", \(Uu\^2\)}], "+", RowBox[{ RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(Uu, Vv, Zz\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(Uu, Vv, Zz\), ")"}], " ", \(Uu\^2\)}], "+", RowBox[{ RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(Uu, Vv, Zz\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(Uu, Vv, Zz\), ")"}], " ", \(Uu\^2\)}], "-", RowBox[{\(u\_2[Uu, Vv, Zz]\), " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(Uu, Vv, Zz\), ")"}], " ", "Uu"}], "+", RowBox[{\(u\_1[Uu, Vv, Zz]\), " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(Uu, Vv, Zz\), ")"}], " ", "Uu"}], "+", RowBox[{"Vv", " ", \(u\_1[Uu, Vv, Zz]\), " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(Uu, Vv, Zz\), ")"}]}], "+", RowBox[{\(Vv\^2\), " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(Uu, Vv, Zz\), ")"}]}], "+", RowBox[{"Vv", " ", \(u\_2[Uu, Vv, Zz]\), " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(Uu, Vv, Zz\), ")"}]}], "+", RowBox[{\(Vv\^2\), " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(Uu, Vv, Zz\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(Uu, Vv, Zz\), ")"}]}], "+", RowBox[{\(Vv\^2\), " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(Uu, Vv, Zz\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(Uu, Vv, Zz\), ")"}]}], "+", RowBox[{ RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(Uu, Vv, Zz\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(Uu, Vv, Zz\), ")"}]}], "+", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(Uu, Vv, Zz\), ")"}]}], ")"}]}], TraditionalForm]], "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox[ "Exotic Example Two: Non-Linear element (3,2) of the Tensor Deformation in \ EllipticCylindrical Coordinates ", FontSize->24]], "Section"], Cell["\<\ n=3; SetCoordinates[EllipticCylindrical]; NewCoordinatesToCartesian=CoordinatesToCartesian[Coordinates[]]; NewCoordinates=Coordinates[];\ \>", "Input", PageWidth->Infinity, FontFamily->"Courier New", FontSize->12, FontWeight->"Bold", FontColor->GrayLevel[0], Background->GrayLevel[1]], Cell[CellGroupData[{ Cell[BoxData[ \(i = 3; j = 2; \n g\_\(i, j\) = Expand[\(TensorCurveLinerDeformation[NewCoordinatesToCartesian, \n NewCoordinates, n]\)\[LeftDoubleBracket]i, j\[RightDoubleBracket]] \)], "Input", PageWidth->Infinity, FontFamily->"Courier New", FontSize->12, FontWeight->"Bold", FontColor->GrayLevel[0], Background->GrayLevel[1]], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{ \(\@2\), " ", \(sin(2\ Vv)\), " ", \(u\_1[Uu, Vv, Zz]\), " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(Uu, Vv, Zz\), ")"}]}], \(\@\(cosh(2\ Uu) - cos(2\ Vv)\)\)], "-", FractionBox[ RowBox[{ \(\@2\), " ", \(sinh(2\ Uu)\), " ", \(u\_2[Uu, Vv, Zz]\), " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(Uu, Vv, Zz\), ")"}]}], \(\@\(cosh(2\ Uu) - cos(2\ Vv)\)\)], "-", FractionBox[ RowBox[{\(cos(2\ Vv)\), " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(Uu, Vv, Zz\), ")"}]}], \(\@\(cosh(2\ Uu) - cos(2\ Vv)\)\)], "+", FractionBox[ RowBox[{\(cosh(2\ Uu)\), " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(Uu, Vv, Zz\), ")"}]}], \(\@\(cosh(2\ Uu) - cos(2\ Vv)\)\)], "+", FractionBox[ RowBox[{ \(\@2\), " ", \(sinh(2\ Uu)\), " ", \(u\_1[Uu, Vv, Zz]\), " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(Uu, Vv, Zz\), ")"}]}], \(\@\(cosh(2\ Uu) - cos(2\ Vv)\)\)], "+", FractionBox[ RowBox[{ \(\@2\), " ", \(sin(2\ Vv)\), " ", \(u\_2[Uu, Vv, Zz]\), " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(Uu, Vv, Zz\), ")"}]}], \(\@\(cosh(2\ Uu) - cos(2\ Vv)\)\)], "-", FractionBox[ RowBox[{\(\@2\), " ", \(cos(2\ Vv)\), " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(Uu, Vv, Zz\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(Uu, Vv, Zz\), ")"}]}], \(\@\(cosh(2\ Uu) - cos(2\ Vv)\)\)], "+", FractionBox[ RowBox[{\(\@2\), " ", \(cosh(2\ Uu)\), " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(Uu, Vv, Zz\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(Uu, Vv, Zz\), ")"}]}], \(\@\(cosh(2\ Uu) - cos(2\ Vv)\)\)], "-", FractionBox[ RowBox[{\(\@2\), " ", \(cos(2\ Vv)\), " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(Uu, Vv, Zz\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(Uu, Vv, Zz\), ")"}]}], \(\@\(cosh(2\ Uu) - cos(2\ Vv)\)\)], "+", FractionBox[ RowBox[{\(\@2\), " ", \(cosh(2\ Uu)\), " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(Uu, Vv, Zz\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(Uu, Vv, Zz\), ")"}]}], \(\@\(cosh(2\ Uu) - cos(2\ Vv)\)\)], "+", FractionBox[ RowBox[{\(\@2\), " ", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(Uu, Vv, Zz\), ")"}]}], \(\@\(cosh(2\ Uu) - cos(2\ Vv)\)\)], "+", FractionBox[ RowBox[{\(\@2\), " ", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(Uu, Vv, Zz\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(Uu, Vv, Zz\), ")"}]}], \(\@\(cosh(2\ Uu) - cos(2\ Vv)\)\)]}], TraditionalForm]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox[ "Exotic Example Three: Non-Linear element (3,2) of the Tensor Deformation in \ Paraboloidal Coordinates ", FontSize->24]], "Section"], Cell["\<\ n=3; SetCoordinates[Paraboloidal]; NewCoordinatesToCartesian=CoordinatesToCartesian[Coordinates[]]; NewCoordinates=Coordinates[];\ \>", "Input", PageWidth->Infinity, FontFamily->"Courier New", FontSize->12, FontWeight->"Bold", FontColor->GrayLevel[0], Background->GrayLevel[1]], Cell[CellGroupData[{ Cell[BoxData[ \(i = 3; j = 2; \n g\_\(i, j\) = Expand[\(TensorCurveLinerDeformation[NewCoordinatesToCartesian, \n NewCoordinates, n]\)\[LeftDoubleBracket]i, j\[RightDoubleBracket]] \)], "Input", PageWidth->Infinity, FontFamily->"Courier New", FontSize->12, FontWeight->"Bold", FontColor->GrayLevel[0], Background->GrayLevel[1]], Cell[BoxData[ FormBox[ RowBox[{ \(-\(u\_3[Uu, Vv, Pphi]\/\(Vv\ \@\(Uu\^2 + Vv\^2\)\)\)\), "-", \(\(u\_1[Uu, Vv, Pphi]\ u\_3[Uu, Vv, Pphi]\)\/\(Uu\ Vv\ \@\(Uu\^2 + Vv\^2\)\)\), "+", FractionBox[ RowBox[{\(u\_1[Uu, Vv, Pphi]\), " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(Uu, Vv, Pphi\), ")"}]}], \(Uu\ \@\(Uu\^2 + Vv\^2\)\)], "-", FractionBox[ RowBox[{\(u\_2[Uu, Vv, Pphi]\), " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(Uu, Vv, Pphi\), ")"}]}], \(Vv\ \@\(Uu\^2 + Vv\^2\)\)], "+", FractionBox[ RowBox[{"Uu", " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(Uu, Vv, Pphi\), ")"}]}], \(Vv\ \@\(Uu\^2 + Vv\^2\)\)], "+", FractionBox[ RowBox[{"Vv", " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(Uu, Vv, Pphi\), ")"}]}], \(Uu\ \@\(Uu\^2 + Vv\^2\)\)], "+", FractionBox[ RowBox[{\(u\_1[Uu, Vv, Pphi]\), " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(Uu, Vv, Pphi\), ")"}]}], \(Vv\ \@\(Uu\^2 + Vv\^2\)\)], "+", FractionBox[ RowBox[{\(u\_2[Uu, Vv, Pphi]\), " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(Uu, Vv, Pphi\), ")"}]}], \(Uu\ \@\(Uu\^2 + Vv\^2\)\)], "-", FractionBox[ RowBox[{\(u\_3[Uu, Vv, Pphi]\), " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(Uu, Vv, Pphi\), ")"}]}], \(Uu\ \@\(Uu\^2 + Vv\^2\)\)], "+", FractionBox[ RowBox[{"Uu", " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(Uu, Vv, Pphi\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(Uu, Vv, Pphi\), ")"}]}], \(Vv\ \@\(Uu\^2 + Vv\^2\)\)], "+", FractionBox[ RowBox[{"Vv", " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(Uu, Vv, Pphi\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(Uu, Vv, Pphi\), ")"}]}], \(Uu\ \@\(Uu\^2 + Vv\^2\)\)], "-", FractionBox[ RowBox[{\(u\_3[Uu, Vv, Pphi]\), " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(Uu, Vv, Pphi\), ")"}]}], \(Vv\ \@\(Uu\^2 + Vv\^2\)\)], "+", FractionBox[ RowBox[{"Uu", " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(Uu, Vv, Pphi\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(Uu, Vv, Pphi\), ")"}]}], \(Vv\ \@\(Uu\^2 + Vv\^2\)\)], "+", FractionBox[ RowBox[{"Vv", " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(Uu, Vv, Pphi\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(Uu, Vv, Pphi\), ")"}]}], \(Uu\ \@\(Uu\^2 + Vv\^2\)\)], "+", FractionBox[ RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(Uu, Vv, Pphi\), ")"}], \(\@\(Uu\^2 + Vv\^2\)\)], "+", FractionBox[ RowBox[{\(u\_1[Uu, Vv, Pphi]\), " ", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(Uu, Vv, Pphi\), ")"}]}], \(Uu\ \@\(Uu\^2 + Vv\^2\)\)], "+", FractionBox[ RowBox[{\(u\_2[Uu, Vv, Pphi]\), " ", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(Uu, Vv, Pphi\), ")"}]}], \(Vv\ \@\(Uu\^2 + Vv\^2\)\)], "+", FractionBox[ RowBox[{ RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(Uu, Vv, Pphi\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(Uu, Vv, Pphi\), ")"}]}], \(Uu\ Vv\ \@\(Uu\^2 + Vv\^2\)\)]}], TraditionalForm]], "Output"] }, Open ]] }, Closed]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Part Two: Theory of Equlibrium in Continuum Mechanics\ \>", "Title"], Cell[CellGroupData[{ Cell[TextData[StyleBox["Package <24]], "Section"], Cell[TextData[{ "In order to solve problem of finding static's equations of contunue \ mechanics in any curve's liner system coordinates a new package <<", StyleBox["StaticEquations.m", FontWeight->"Bold"], " have been developed." }], "Text", TextAlignment->Left, TextJustification->1, FontFamily->"Arial"], Cell[BoxData[ FormBox[ RowBox[{ StyleBox[\(<< Calculus`VectorAnalysis`\), FontSize->12], "\t"}], TraditionalForm]], "Input"], Cell["<Infinity, CellMargins->{{53, Inherited}, {Inherited, Inherited}}] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Static Equations in Usually curve's liner systems coordinates\ \>", "Subtitle"], Cell[CellGroupData[{ Cell[TextData[StyleBox[ "Non-Linear Static Equations in Cylindrical Coordinates", FontSize->24]], "Section"], Cell["\<\ According to the traditions in Continuum Mechanics let us consider a symbolic \ deriving of the static equations in Cylindrical Coordinates. Cylindrical \ system of coordinates was usually used in well known TextBooks [1,2] in sence \ of example curve's liner coordinates. Ordinary designings of the streses and \ displasements have been assumed.\ \>", "Text", TextAlignment->Left, TextJustification->1, FontFamily->"Arial"], Cell[TextData[{ StyleBox["n = 3; ", FontSize->12], "\nSetCoordinates[Cylindrical];\n", StyleBox[ "NewCoordinatesToCartesian=\nCoordinatesToCartesian[Coordinates[]];\n", FontSize->12], "NewCoordinates=Coordinates[];" }], "Input", PageWidth->Infinity, FontFamily->"Courier New", FontSize->12, FontWeight->"Bold", FontColor->GrayLevel[0], Background->GrayLevel[1]], Cell[CellGroupData[{ Cell["\<\ Example One: First Static's Equation in Cylindrical Coordinates\ \>", "Subsection"], Cell["\<\ In fact, only non-linear static equations in Cartesian coordinates was \ derived and presented in TextBook. No general non-linear static equations of \ elementary part of the elastisity media in Cylindrical coordinates has been \ obtained before.\ \>", "Text", TextAlignment->Left, TextJustification->1, FontFamily->"Arial"], Cell["\<\ Below first general non-linear static equation in Cylindrical coordinates is \ presented. Ordinary desinings in the static's equations are assumed.\ \>", "Text", TextAlignment->Left, TextJustification->1, FontFamily->"Arial"], Cell[CellGroupData[{ Cell[TextData[ "equation1=ContinueStaticEquations[NewCoordinatesToCartesian,\n\ NewCoordinates,n][[1]]/.{Rr->r,Ttheta->\[Theta],Zz->z}\n"], "Input", FontSize->12], Cell[BoxData[ FormBox[ RowBox[{ \(-\(\(\[Sigma]\_\(2, 2\)[r, \[Theta], z]\ u\_1[r, \[Theta], z]\^2\)\/r \^3\)\), "+", FractionBox[ RowBox[{ RowBox[{ SubsuperscriptBox["\[Sigma]", \(2, 1\), TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", \(u\_1[r, \[Theta], z]\^2\)}], \(r\^3\)], "-", \(\(2\ \[Sigma]\_\(2, 2\)[r, \[Theta], z]\ u\_1[r, \[Theta], z]\)\/r \^2\), "-", FractionBox[ RowBox[{\(\[Sigma]\_\(3, 2\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", \(u\_1[r, \[Theta], z]\)}], \(r\^2\)], "+", FractionBox[ RowBox[{ RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["\[Sigma]", \(2, 1\), TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", \(u\_1[r, \[Theta], z]\)}], "r"], "+", FractionBox[ RowBox[{\(\[Sigma]\_\(2, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 0, 2)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", \(u\_1[r, \[Theta], z]\)}], "r"], "+", FractionBox[ RowBox[{"2", " ", \(\[Sigma]\_\(2, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", \(u\_1[r, \[Theta], z]\)}], \(r\^3\)], "-", FractionBox[ RowBox[{"2", " ", \(\[Sigma]\_\(2, 2\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", \(u\_1[r, \[Theta], z]\)}], \(r\^3\)], "+", FractionBox[ RowBox[{"2", " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["\[Sigma]", \(2, 1\), TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", \(u\_1[r, \[Theta], z]\)}], \(r\^3\)], "+", FractionBox[ RowBox[{"2", " ", RowBox[{ SubsuperscriptBox["\[Sigma]", \(2, 1\), TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", \(u\_1[r, \[Theta], z]\)}], \(r\^2\)], "+", FractionBox[ RowBox[{ RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["\[Sigma]", \(3, 1\), TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", \(u\_1[r, \[Theta], z]\)}], \(r\^2\)], "+", FractionBox[ RowBox[{\(\[Sigma]\_\(3, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 1, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", \(u\_1[r, \[Theta], z]\)}], \(r\^2\)], "+", FractionBox[ RowBox[{"2", " ", \(\[Sigma]\_\(2, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 2, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", \(u\_1[r, \[Theta], z]\)}], \(r\^3\)], "-", FractionBox[ RowBox[{\(\[Sigma]\_\(1, 2\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", \(u\_1[r, \[Theta], z]\)}], \(r\^2\)], "+", FractionBox[ RowBox[{ RowBox[{ SubsuperscriptBox["\[Sigma]", \(1, 1\), TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", \(u\_1[r, \[Theta], z]\)}], \(r\^2\)], "+", FractionBox[ RowBox[{ RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["\[Sigma]", \(2, 1\), TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", \(u\_1[r, \[Theta], z]\)}], "r"], "+", FractionBox[ RowBox[{\(\[Sigma]\_\(1, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((1, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", \(u\_1[r, \[Theta], z]\)}], \(r\^2\)], "+", FractionBox[ RowBox[{\(\[Sigma]\_\(2, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((2, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", \(u\_1[r, \[Theta], z]\)}], "r"], "-", FractionBox[ RowBox[{\(\[Sigma]\_\(2, 2\)[r, \[Theta], z]\), " ", SuperscriptBox[ RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], "2"]}], \(r\^3\)], "-", FractionBox[ RowBox[{\(\[Sigma]\_\(2, 2\)[r, \[Theta], z]\), " ", SuperscriptBox[ RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], "2"]}], \(r\^3\)], "-", FractionBox[ RowBox[{\(\[Sigma]\_\(2, 2\)[r, \[Theta], z]\), " ", SuperscriptBox[ RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], "2"]}], \(r\^3\)], "+", FractionBox[ RowBox[{\(\[Sigma]\_\(1, 1\)[r, \[Theta], z]\), " ", SuperscriptBox[ RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], "2"]}], "r"], "+", FractionBox[ RowBox[{\(\[Sigma]\_\(1, 1\)[r, \[Theta], z]\), " ", SuperscriptBox[ RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], "2"]}], "r"], "+", FractionBox[ RowBox[{\(\[Sigma]\_\(1, 1\)[r, \[Theta], z]\), " ", SuperscriptBox[ RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], "2"]}], "r"], "+", \(F\_\(1, 1\)[r, \[Theta], z] \/\(\[ExponentialE]\_\(1, 1\)[r, \[Theta], z] + 1\)\), "+", \(\[Sigma]\_\(1, 1\)[r, \[Theta], z]\/r\), "+", \(\(u\_2[r, \[Theta], z]\ \[Sigma]\_\(1, 2\)[r, \[Theta], z]\)\/r\^2 \), "-", \(\(u\_2[r, \[Theta], z]\^2\ \[Sigma]\_\(2, 2\)[r, \[Theta], z]\)\/r \^3\), "-", \(\[Sigma]\_\(2, 2\)[r, \[Theta], z]\/r\), "+", FractionBox[ RowBox[{\(\[Sigma]\_\(3, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "r"], "+", FractionBox[ RowBox[{ \(u\_2[r, \[Theta], z]\), " ", \(\[Sigma]\_\(3, 2\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], \(r\^2\)], "-", FractionBox[ RowBox[{\(\[Sigma]\_\(3, 2\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "r"], "+", RowBox[{ RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["\[Sigma]", \(1, 1\), TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "-", FractionBox[ RowBox[{\(u\_2[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["\[Sigma]", \(2, 1\), TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "r"], "+", RowBox[{ RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["\[Sigma]", \(2, 1\), TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], "2"], " ", RowBox[{ SubsuperscriptBox["\[Sigma]", \(3, 1\), TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], "2"], " ", RowBox[{ SubsuperscriptBox["\[Sigma]", \(3, 1\), TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], "2"], " ", RowBox[{ SubsuperscriptBox["\[Sigma]", \(3, 1\), TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "+", RowBox[{"2", " ", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["\[Sigma]", \(3, 1\), TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "+", RowBox[{ SubsuperscriptBox["\[Sigma]", \(3, 1\), TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], "+", RowBox[{\(\[Sigma]\_\(1, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 0, 2)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "-", FractionBox[ RowBox[{ \(u\_2[r, \[Theta], z]\), " ", \(\[Sigma]\_\(2, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 0, 2)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "r"], "+", RowBox[{"2", " ", \(\[Sigma]\_\(3, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 0, 2)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "+", RowBox[{\(\[Sigma]\_\(2, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 0, 2)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "+", RowBox[{"2", " ", \(\[Sigma]\_\(3, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 0, 2)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "+", RowBox[{"2", " ", \(\[Sigma]\_\(3, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 0, 2)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "+", RowBox[{"2", " ", \(\[Sigma]\_\(3, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 0, 2)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "-", FractionBox[ RowBox[{\(\[Sigma]\_\(1, 2\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], \(r\^2\)], "+", FractionBox[ RowBox[{"2", " ", \(\[Sigma]\_\(2, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], \(r\^2\)], "+", FractionBox[ RowBox[{ "2", " ", \(u\_2[r, \[Theta], z]\), " ", \(\[Sigma]\_\(2, 2\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], \(r\^3\)], "-", FractionBox[ RowBox[{\(\[Sigma]\_\(3, 2\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], \(r\^2\)], "+", FractionBox[ RowBox[{\(\[Sigma]\_\(3, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], \(r\^2\)], "+", FractionBox[ RowBox[{ RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["\[Sigma]", \(2, 1\), TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "r"], "+", FractionBox[ RowBox[{\(\[Sigma]\_\(2, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 0, 2)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "r"], "-", FractionBox[ RowBox[{\(\[Sigma]\_\(1, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], \(r\^2\)], "+", FractionBox[ RowBox[{ "2", " ", \(u\_2[r, \[Theta], z]\), " ", \(\[Sigma]\_\(2, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], \(r\^3\)], "-", FractionBox[ RowBox[{"2", " ", \(\[Sigma]\_\(2, 2\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], \(r\^2\)], "-", FractionBox[ RowBox[{\(\[Sigma]\_\(3, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], \(r\^2\)], "-", FractionBox[ RowBox[{\(\[Sigma]\_\(3, 2\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], \(r\^2\)], "+", FractionBox[ RowBox[{ RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["\[Sigma]", \(2, 1\), TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "r"], "+", FractionBox[ RowBox[{\(\[Sigma]\_\(2, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 0, 2)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "r"], "-", FractionBox[ RowBox[{\(\[Sigma]\_\(3, 2\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], \(r\^2\)], "-", FractionBox[ RowBox[{\(\[Sigma]\_\(3, 2\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], \(r\^2\)], "+", FractionBox[ RowBox[{ RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["\[Sigma]", \(2, 1\), TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "r"], "+", FractionBox[ RowBox[{ RowBox[{ SubsuperscriptBox["\[Sigma]", \(2, 1\), TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "r"], "+", FractionBox[ RowBox[{\(\[Sigma]\_\(2, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 0, 2)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "r"], "-", FractionBox[ RowBox[{\(u\_2[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["\[Sigma]", \(1, 1\), TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], \(r\^2\)], "+", FractionBox[ RowBox[{ RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["\[Sigma]", \(1, 1\), TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], \(r\^2\)], "+", FractionBox[ RowBox[{\(u\_2[r, \[Theta], z]\^2\), " ", RowBox[{ SubsuperscriptBox["\[Sigma]", \(2, 1\), TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], \(r\^3\)], "+", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], "2"], " ", RowBox[{ SubsuperscriptBox["\[Sigma]", \(2, 1\), TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], \(r\^3\)], "+", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], "2"], " ", RowBox[{ SubsuperscriptBox["\[Sigma]", \(2, 1\), TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], \(r\^3\)], "+", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], "2"], " ", RowBox[{ SubsuperscriptBox["\[Sigma]", \(2, 1\), TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], \(r\^3\)], "-", FractionBox[ RowBox[{"2", " ", \(u\_2[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["\[Sigma]", \(2, 1\), TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], \(r\^3\)], "+", FractionBox[ RowBox[{"2", " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["\[Sigma]", \(2, 1\), TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], \(r\^2\)], "+", FractionBox[ RowBox[{ SubsuperscriptBox["\[Sigma]", \(2, 1\), TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], "r"], "-", FractionBox[ RowBox[{\(u\_2[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["\[Sigma]", \(3, 1\), TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], \(r\^2\)], "+", FractionBox[ RowBox[{ RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["\[Sigma]", \(3, 1\), TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "r"], "+", FractionBox[ RowBox[{ RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["\[Sigma]", \(3, 1\), TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], \(r\^2\)], "+", FractionBox[ RowBox[{ RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["\[Sigma]", \(3, 1\), TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], \(r\^2\)], "+", FractionBox[ RowBox[{ RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["\[Sigma]", \(3, 1\), TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], \(r\^2\)], "+", FractionBox[ RowBox[{ RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["\[Sigma]", \(3, 1\), TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], \(r\^2\)], "-", FractionBox[ RowBox[{ \(u\_2[r, \[Theta], z]\), " ", \(\[Sigma]\_\(3, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 1, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], \(r\^2\)], "+", FractionBox[ RowBox[{\(\[Sigma]\_\(2, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 1, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "r"], "+", FractionBox[ RowBox[{\(\[Sigma]\_\(3, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 1, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], \(r\^2\)], "+", FractionBox[ RowBox[{\(\[Sigma]\_\(3, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 1, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "r"], "+", FractionBox[ RowBox[{\(\[Sigma]\_\(2, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 1, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "r"], "+", FractionBox[ RowBox[{\(\[Sigma]\_\(3, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 1, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], \(r\^2\)], "+", FractionBox[ RowBox[{\(\[Sigma]\_\(2, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 1, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "r"], "+", FractionBox[ RowBox[{\(\[Sigma]\_\(2, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 1, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "r"], "+", FractionBox[ RowBox[{\(\[Sigma]\_\(3, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 1, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], \(r\^2\)], "+", FractionBox[ RowBox[{\(\[Sigma]\_\(1, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 2, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], \(r\^2\)], "-", FractionBox[ RowBox[{ "2", " ", \(u\_2[r, \[Theta], z]\), " ", \(\[Sigma]\_\(2, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 2, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], \(r\^3\)], "+", FractionBox[ RowBox[{\(\[Sigma]\_\(3, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 2, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], \(r\^2\)], "+", FractionBox[ RowBox[{"2", " ", \(\[Sigma]\_\(2, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 2, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], \(r\^3\)], "+", FractionBox[ RowBox[{"2", " ", \(\[Sigma]\_\(2, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 2, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], \(r\^2\)], "+", FractionBox[ RowBox[{\(\[Sigma]\_\(3, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 2, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], \(r\^2\)], "+", FractionBox[ RowBox[{"2", " ", \(\[Sigma]\_\(2, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 2, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], \(r\^3\)], "+", FractionBox[ RowBox[{\(\[Sigma]\_\(3, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 2, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], \(r\^2\)], "+", FractionBox[ RowBox[{\(\[Sigma]\_\(3, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 2, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], \(r\^2\)], "+", FractionBox[ RowBox[{"2", " ", \(\[Sigma]\_\(2, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 2, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], \(r\^3\)], "+", FractionBox[ RowBox[{"2", " ", \(\[Sigma]\_\(1, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "r"], "+", FractionBox[ RowBox[{ \(u\_2[r, \[Theta], z]\), " ", \(\[Sigma]\_\(1, 2\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], \(r\^2\)], "+", FractionBox[ RowBox[{\(\[Sigma]\_\(3, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "r"], "+", RowBox[{ RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["\[Sigma]", \(1, 1\), TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "+", RowBox[{\(\[Sigma]\_\(1, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 0, 2)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "-", FractionBox[ RowBox[{\(\[Sigma]\_\(1, 2\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], \(r\^2\)], "-", FractionBox[ RowBox[{\(\[Sigma]\_\(1, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], \(r\^2\)], "-", FractionBox[ RowBox[{\(u\_2[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["\[Sigma]", \(1, 1\), TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], \(r\^2\)], "+", FractionBox[ RowBox[{ RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["\[Sigma]", \(1, 1\), TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], \(r\^2\)], "+", FractionBox[ RowBox[{\(\[Sigma]\_\(1, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 2, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], \(r\^2\)], "-", FractionBox[ RowBox[{\(\[Sigma]\_\(1, 2\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "r"], "+", FractionBox[ RowBox[{\(\[Sigma]\_\(3, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "r"], "+", RowBox[{ RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["\[Sigma]", \(1, 1\), TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "+", RowBox[{\(\[Sigma]\_\(1, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 0, 2)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "+", FractionBox[ RowBox[{\(\[Sigma]\_\(1, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], \(r\^2\)], "-", FractionBox[ RowBox[{\(\[Sigma]\_\(1, 2\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], \(r\^2\)], "+", FractionBox[ RowBox[{ RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["\[Sigma]", \(1, 1\), TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], \(r\^2\)], "+", FractionBox[ RowBox[{ RowBox[{ SubsuperscriptBox["\[Sigma]", \(1, 1\), TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "r"], "+", FractionBox[ RowBox[{\(\[Sigma]\_\(1, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 2, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], \(r\^2\)], "+", FractionBox[ RowBox[{\(\[Sigma]\_\(3, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "r"], "+", FractionBox[ RowBox[{\(\[Sigma]\_\(3, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "r"], "+", RowBox[{ RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["\[Sigma]", \(1, 1\), TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "+", RowBox[{ RowBox[{ SubsuperscriptBox["\[Sigma]", \(1, 1\), TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "+", RowBox[{\(\[Sigma]\_\(1, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 0, 2)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "-", FractionBox[ RowBox[{\(\[Sigma]\_\(1, 2\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], \(r\^2\)], "+", FractionBox[ RowBox[{ RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["\[Sigma]", \(1, 1\), TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], \(r\^2\)], "+", FractionBox[ RowBox[{\(\[Sigma]\_\(1, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 2, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], \(r\^2\)], "+", RowBox[{ SuperscriptBox[ RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], "2"], " ", RowBox[{ SubsuperscriptBox["\[Sigma]", \(1, 1\), TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], "2"], " ", RowBox[{ SubsuperscriptBox["\[Sigma]", \(1, 1\), TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], "2"], " ", RowBox[{ SubsuperscriptBox["\[Sigma]", \(1, 1\), TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "+", RowBox[{"2", " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["\[Sigma]", \(1, 1\), TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "+", RowBox[{ SubsuperscriptBox["\[Sigma]", \(1, 1\), TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], "-", FractionBox[ RowBox[{\(u\_2[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["\[Sigma]", \(2, 1\), TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "r"], "+", FractionBox[ RowBox[{ RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["\[Sigma]", \(2, 1\), TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "r"], "-", FractionBox[ RowBox[{\(u\_2[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["\[Sigma]", \(2, 1\), TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "r"], "+", FractionBox[ RowBox[{ RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["\[Sigma]", \(2, 1\), TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "r"], "+", FractionBox[ RowBox[{ RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["\[Sigma]", \(2, 1\), TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "r"], "+", RowBox[{ RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["\[Sigma]", \(2, 1\), TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "+", FractionBox[ RowBox[{ RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["\[Sigma]", \(2, 1\), TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "r"], "+", RowBox[{ RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["\[Sigma]", \(3, 1\), TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "+", RowBox[{ RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["\[Sigma]", \(3, 1\), TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "+", RowBox[{ RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["\[Sigma]", \(3, 1\), TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "+", RowBox[{ RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["\[Sigma]", \(3, 1\), TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "+", RowBox[{ RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["\[Sigma]", \(3, 1\), TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "+", RowBox[{\(\[Sigma]\_\(3, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((1, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "+", RowBox[{\(\[Sigma]\_\(1, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((1, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "+", RowBox[{\(\[Sigma]\_\(3, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((1, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "+", RowBox[{\(\[Sigma]\_\(1, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((1, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "+", RowBox[{\(\[Sigma]\_\(3, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((1, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "+", RowBox[{\(\[Sigma]\_\(1, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((1, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "+", RowBox[{\(\[Sigma]\_\(1, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((1, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "+", RowBox[{\(\[Sigma]\_\(3, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((1, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "-", FractionBox[ RowBox[{ \(u\_2[r, \[Theta], z]\), " ", \(\[Sigma]\_\(1, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((1, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], \(r\^2\)], "+", FractionBox[ RowBox[{\(\[Sigma]\_\(2, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((1, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "r"], "+", FractionBox[ RowBox[{\(\[Sigma]\_\(1, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((1, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], \(r\^2\)], "+", FractionBox[ RowBox[{\(\[Sigma]\_\(2, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((1, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "r"], "+", FractionBox[ RowBox[{\(\[Sigma]\_\(1, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((1, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "r"], "+", FractionBox[ RowBox[{\(\[Sigma]\_\(1, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((1, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], \(r\^2\)], "+", FractionBox[ RowBox[{\(\[Sigma]\_\(2, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((1, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "r"], "+", FractionBox[ RowBox[{\(\[Sigma]\_\(1, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((1, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], \(r\^2\)], "+", FractionBox[ RowBox[{\(\[Sigma]\_\(2, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((1, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "r"], "+", RowBox[{"2", " ", \(\[Sigma]\_\(1, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((2, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "-", FractionBox[ RowBox[{ \(u\_2[r, \[Theta], z]\), " ", \(\[Sigma]\_\(2, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((2, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "r"], "+", RowBox[{\(\[Sigma]\_\(3, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((2, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "+", FractionBox[ RowBox[{\(\[Sigma]\_\(2, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((2, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "r"], "+", RowBox[{"2", " ", \(\[Sigma]\_\(1, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "1", TagBox[\((2, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "+", RowBox[{\(\[Sigma]\_\(2, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((2, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "+", RowBox[{\(\[Sigma]\_\(3, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((2, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "+", FractionBox[ RowBox[{\(\[Sigma]\_\(2, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((2, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "r"], "+", RowBox[{"2", " ", \(\[Sigma]\_\(1, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "2", TagBox[\((2, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "+", RowBox[{\(\[Sigma]\_\(3, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((2, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "+", RowBox[{\(\[Sigma]\_\(3, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((2, 0, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}]}], "+", FractionBox[ RowBox[{\(\[Sigma]\_\(2, 1\)[r, \[Theta], z]\), " ", RowBox[{ SubsuperscriptBox["u", "3", TagBox[\((0, 1, 0)\), Derivative], MultilineFunction->None], "(", \(r, \[Theta], z\), ")"}], " ", RowBox[{ SubsuperscriptBox