polynomes.nb

(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    209182,       5874]
NotebookOptionsPosition[    204594,       5722]
NotebookOutlinePosition[    204964,       5738]
CellTagsIndexPosition[    204921,       5735]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Fonctions", "Section",
 CellChangeTimes->{3.7000375852800455`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Voigt", "[", "T_", "]"}], ":=", 
  RowBox[{"(", GridBox[{
     {
      RowBox[{"T", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "]"}], "]"}], 
      RowBox[{"T", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "1", ",", "2", ",", "2"}], "]"}], "]"}], 
      RowBox[{"T", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "1", ",", "3", ",", "3"}], "]"}], "]"}], 
      RowBox[{"T", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "1", ",", "2", ",", "3"}], "]"}], "]"}], 
      RowBox[{"T", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "1", ",", "1", ",", "3"}], "]"}], "]"}], 
      RowBox[{"T", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "1", ",", "1", ",", "2"}], "]"}], "]"}]},
     {
      RowBox[{"T", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "2", ",", "1", ",", "1"}], "]"}], "]"}], 
      RowBox[{"T", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "2", ",", "2", ",", "2"}], "]"}], "]"}], 
      RowBox[{"T", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "2", ",", "3", ",", "3"}], "]"}], "]"}], 
      RowBox[{"T", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "2", ",", "2", ",", "3"}], "]"}], "]"}], 
      RowBox[{"T", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "2", ",", "1", ",", "3"}], "]"}], "]"}], 
      RowBox[{"T", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "2", ",", "1", ",", "2"}], "]"}], "]"}]},
     {
      RowBox[{"T", "[", 
       RowBox[{"[", 
        RowBox[{"3", ",", "3", ",", "1", ",", "1"}], "]"}], "]"}], 
      RowBox[{"T", "[", 
       RowBox[{"[", 
        RowBox[{"3", ",", "3", ",", "2", ",", "2"}], "]"}], "]"}], 
      RowBox[{"T", "[", 
       RowBox[{"[", 
        RowBox[{"3", ",", "3", ",", "3", ",", "3"}], "]"}], "]"}], 
      RowBox[{"T", "[", 
       RowBox[{"[", 
        RowBox[{"3", ",", "3", ",", "2", ",", "3"}], "]"}], "]"}], 
      RowBox[{"T", "[", 
       RowBox[{"[", 
        RowBox[{"3", ",", "3", ",", "1", ",", "3"}], "]"}], "]"}], 
      RowBox[{"T", "[", 
       RowBox[{"[", 
        RowBox[{"3", ",", "3", ",", "1", ",", "2"}], "]"}], "]"}]},
     {
      RowBox[{"T", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "3", ",", "1", ",", "1"}], "]"}], "]"}], 
      RowBox[{"T", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "3", ",", "2", ",", "2"}], "]"}], "]"}], 
      RowBox[{"T", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "3", ",", "3", ",", "3"}], "]"}], "]"}], 
      RowBox[{"T", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "3", ",", "2", ",", "3"}], "]"}], "]"}], 
      RowBox[{"T", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "3", ",", "1", ",", "3"}], "]"}], "]"}], 
      RowBox[{"T", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "3", ",", "1", ",", "2"}], "]"}], "]"}]},
     {
      RowBox[{"T", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "3", ",", "1", ",", "1"}], "]"}], "]"}], 
      RowBox[{"T", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "3", ",", "2", ",", "2"}], "]"}], "]"}], 
      RowBox[{"T", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "3", ",", "3", ",", "3"}], "]"}], "]"}], 
      RowBox[{"T", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "3", ",", "2", ",", "3"}], "]"}], "]"}], 
      RowBox[{"T", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "3", ",", "1", ",", "3"}], "]"}], "]"}], 
      RowBox[{"T", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "3", ",", "1", ",", "2"}], "]"}], "]"}]},
     {
      RowBox[{"T", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "2", ",", "1", ",", "1"}], "]"}], "]"}], 
      RowBox[{"T", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "2", ",", "2", ",", "2"}], "]"}], "]"}], 
      RowBox[{"T", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "2", ",", "3", ",", "3"}], "]"}], "]"}], 
      RowBox[{"T", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "2", ",", "2", ",", "3"}], "]"}], "]"}], 
      RowBox[{"T", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "2", ",", "1", ",", "3"}], "]"}], "]"}], 
      RowBox[{"T", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "2", ",", "1", ",", "2"}], "]"}], "]"}]}
    }], ")"}]}]], "Input",
 CellChangeTimes->{{3.700037566975672*^9, 3.7000375764290724`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Double42", "[", 
   RowBox[{"X_", ",", "Y_", ",", "Z_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"T", "=", "X"}], ",", 
      RowBox[{"s", "=", "Y"}], ",", 
      RowBox[{"a", "=", "Z"}]}], "}"}], ",", 
    RowBox[{
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"Do", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"a", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "j"}], "]"}], "]"}], "=", 
          RowBox[{"Sum", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"T", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "j", ",", "p", ",", "q"}], "]"}], "]"}], 
             RowBox[{"s", "[", 
              RowBox[{"[", 
               RowBox[{"p", ",", "q"}], "]"}], "]"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"p", ",", "1", ",", "3"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"q", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "3"}], "}"}]}], "]"}], ";", "a"}]}], 
   "]"}]}]], "Input"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Formules analytiques", "Section",
 CellChangeTimes->{{3.7000375876029367`*^9, 3.7000376133982086`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"gradu", "=", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Grad", "[", 
       RowBox[{
        RowBox[{"ux", "[", 
         RowBox[{"x", ",", "y", ",", "z"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], "]"}], ",", 
      RowBox[{"Grad", "[", 
       RowBox[{
        RowBox[{"uy", "[", 
         RowBox[{"x", ",", "y", ",", "z"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], "]"}], ",", 
      RowBox[{"Grad", "[", 
       RowBox[{
        RowBox[{"uz", "[", 
         RowBox[{"x", ",", "y", ",", "z"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], "]"}]}], "}"}], "//", 
    "Simplify"}]}], ";", " ", 
  RowBox[{"gradu", "//", "MatrixForm"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Epsilon]0", "=", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], 
     RowBox[{"(", 
      RowBox[{"gradu", "+", 
       RowBox[{"Transpose", "[", "gradu", "]"}]}], ")"}]}], "//", 
    "Simplify"}]}], ";", 
  RowBox[{"\[Epsilon]0", "//", "MatrixForm"}]}]}], "Input",
 CellChangeTimes->{{3.699860822372038*^9, 3.699860856265788*^9}, {
   3.699860906137795*^9, 3.6998609151165276`*^9}, 3.699861219460019*^9, {
   3.699861573725841*^9, 3.6998615947368803`*^9}, {3.699861626463773*^9, 
   3.6998616324220705`*^9}, {3.6998618449716806`*^9, 3.69986186124533*^9}, {
   3.699861905553924*^9, 3.699861911046975*^9}, {3.70003704767837*^9, 
   3.700037167872645*^9}, {3.70003876976201*^9, 3.70003879246962*^9}, {
   3.700282903759219*^9, 3.700282906398953*^9}, {3.7002830251276503`*^9, 
   3.700283029071726*^9}, 3.700283624586463*^9, {3.700283779269577*^9, 
   3.700283781962826*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       SuperscriptBox["ux", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"1", ",", "0", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y", ",", "z"}], "]"}], 
      RowBox[{
       SuperscriptBox["ux", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "1", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y", ",", "z"}], "]"}], 
      RowBox[{
       SuperscriptBox["ux", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "1"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y", ",", "z"}], "]"}]},
     {
      RowBox[{
       SuperscriptBox["uy", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"1", ",", "0", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y", ",", "z"}], "]"}], 
      RowBox[{
       SuperscriptBox["uy", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "1", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y", ",", "z"}], "]"}], 
      RowBox[{
       SuperscriptBox["uy", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "1"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y", ",", "z"}], "]"}]},
     {
      RowBox[{
       SuperscriptBox["uz", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"1", ",", "0", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y", ",", "z"}], "]"}], 
      RowBox[{
       SuperscriptBox["uz", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "1", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y", ",", "z"}], "]"}], 
      RowBox[{
       SuperscriptBox["uz", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "1"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y", ",", "z"}], "]"}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.700302305349415*^9, 3.700358828455821*^9, 
  3.700445719506283*^9, 3.700479297752204*^9, 3.700479387111987*^9}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       SuperscriptBox["ux", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"1", ",", "0", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y", ",", "z"}], "]"}], 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["ux", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y", ",", "z"}], "]"}], "+", 
         RowBox[{
          SuperscriptBox["uy", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["ux", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "0", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y", ",", "z"}], "]"}], "+", 
         RowBox[{
          SuperscriptBox["uz", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]},
     {
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["ux", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y", ",", "z"}], "]"}], "+", 
         RowBox[{
          SuperscriptBox["uy", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
      RowBox[{
       SuperscriptBox["uy", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "1", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y", ",", "z"}], "]"}], 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["uy", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "0", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y", ",", "z"}], "]"}], "+", 
         RowBox[{
          SuperscriptBox["uz", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]},
     {
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["ux", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "0", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y", ",", "z"}], "]"}], "+", 
         RowBox[{
          SuperscriptBox["uz", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["uy", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "0", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y", ",", "z"}], "]"}], "+", 
         RowBox[{
          SuperscriptBox["uz", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], 
      RowBox[{
       SuperscriptBox["uz", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "1"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y", ",", "z"}], "]"}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.700302305349415*^9, 3.700358828455821*^9, 
  3.700445719506283*^9, 3.700479297752204*^9, 3.7004793872109137`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       SuperscriptBox["ux", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"1", ",", "0", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y", ",", "z"}], "]"}], 
      RowBox[{
       SuperscriptBox["ux", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "1", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y", ",", "z"}], "]"}], 
      RowBox[{
       SuperscriptBox["ux", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "1"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y", ",", "z"}], "]"}]},
     {
      RowBox[{
       SuperscriptBox["uy", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"1", ",", "0", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y", ",", "z"}], "]"}], 
      RowBox[{
       SuperscriptBox["uy", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "1", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y", ",", "z"}], "]"}], 
      RowBox[{
       SuperscriptBox["uy", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "1"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y", ",", "z"}], "]"}]},
     {
      RowBox[{
       SuperscriptBox["uz", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"1", ",", "0", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y", ",", "z"}], "]"}], 
      RowBox[{
       SuperscriptBox["uz", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "1", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y", ",", "z"}], "]"}], 
      RowBox[{
       SuperscriptBox["uz", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "1"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y", ",", "z"}], "]"}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Input",
 CellChangeTimes->{3.700291165178935*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      SuperscriptBox["ux", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y", ",", "z"}], "]"}], ",", 
     RowBox[{
      SuperscriptBox["ux", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y", ",", "z"}], "]"}], ",", 
     RowBox[{
      SuperscriptBox["ux", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "0", ",", "1"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      SuperscriptBox["uy", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y", ",", "z"}], "]"}], ",", 
     RowBox[{
      SuperscriptBox["uy", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y", ",", "z"}], "]"}], ",", 
     RowBox[{
      SuperscriptBox["uy", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "0", ",", "1"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      SuperscriptBox["uz", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y", ",", "z"}], "]"}], ",", 
     RowBox[{
      SuperscriptBox["uz", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y", ",", "z"}], "]"}], ",", 
     RowBox[{
      SuperscriptBox["uz", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "0", ",", "1"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.6998612201404405`*^9, {3.699861405385874*^9, 3.6998614350718617`*^9}, {
   3.69986157103426*^9, 3.69986159588249*^9}, 3.6998616334524975`*^9, 
   3.6998618696097956`*^9, 3.699861911782275*^9, {3.700037111963293*^9, 
   3.700037118735715*^9}, {3.7000371557049685`*^9, 3.700037168885048*^9}, 
   3.700037378248556*^9, 3.7000374815102158`*^9, 3.7000377080922337`*^9, 
   3.700038562137972*^9, 3.7000388118837423`*^9, 3.700039036200796*^9, 
   3.700283679525742*^9, 3.70028378659167*^9, 3.700283842847402*^9, 
   3.700302309171565*^9, 3.7003588308922977`*^9, 3.700445721444971*^9, 
   3.700479389398662*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"SS", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "1", ",", "1", ",", "2"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "1", ",", "1", ",", "3"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "1", ",", "1", ",", "2"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "1", ",", "2", ",", "2"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "1", ",", "2", ",", "3"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "1", ",", "1", ",", "3"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "1", ",", "2", ",", "3"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "1", ",", "3", ",", "3"}], "]"}]}], "}"}]}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "1", ",", "1", ",", "2"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "2", ",", "1", ",", "2"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "3", ",", "1", ",", "2"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "2", ",", "1", ",", "2"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "2", ",", "1", ",", "2"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "3", ",", "1", ",", "2"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "3", ",", "1", ",", "2"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "3", ",", "1", ",", "2"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"3", ",", "3", ",", "1", ",", "2"}], "]"}]}], "}"}]}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "1", ",", "1", ",", "3"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "3", ",", "1", ",", "2"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "3", ",", "1", ",", "3"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "3", ",", "1", ",", "2"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "2", ",", "1", ",", "3"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "3", ",", "1", ",", "3"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "3", ",", "1", ",", "3"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "3", ",", "1", ",", "3"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"3", ",", "3", ",", "1", ",", "3"}], "]"}]}], "}"}]}], 
        "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "1", ",", "1", ",", "2"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "2", ",", "1", ",", "2"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "3", ",", "1", ",", "2"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "2", ",", "1", ",", "2"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "2", ",", "1", ",", "2"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "3", ",", "1", ",", "2"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "3", ",", "1", ",", "2"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "3", ",", "1", ",", "2"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"3", ",", "3", ",", "1", ",", "2"}], "]"}]}], "}"}]}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "1", ",", "2", ",", "2"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "2", ",", "1", ",", "2"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "2", ",", "1", ",", "3"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "2", ",", "1", ",", "2"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "2", ",", "2", ",", "2"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "2", ",", "2", ",", "3"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "2", ",", "1", ",", "3"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "2", ",", "2", ",", "3"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "2", ",", "3", ",", "3"}], "]"}]}], "}"}]}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "1", ",", "2", ",", "3"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "3", ",", "1", ",", "2"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "3", ",", "1", ",", "3"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "3", ",", "1", ",", "2"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "2", ",", "2", ",", "3"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "3", ",", "2", ",", "3"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "3", ",", "1", ",", "3"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "3", ",", "2", ",", "3"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"3", ",", "3", ",", "2", ",", "3"}], "]"}]}], "}"}]}], 
        "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "1", ",", "1", ",", "3"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "3", ",", "1", ",", "2"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "3", ",", "1", ",", "3"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "3", ",", "1", ",", "2"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "2", ",", "1", ",", "3"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "3", ",", "1", ",", "3"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "3", ",", "1", ",", "3"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "3", ",", "1", ",", "3"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"3", ",", "3", ",", "1", ",", "3"}], "]"}]}], "}"}]}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "1", ",", "2", ",", "3"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "3", ",", "1", ",", "2"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "3", ",", "1", ",", "3"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "3", ",", "1", ",", "2"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "2", ",", "2", ",", "3"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "3", ",", "2", ",", "3"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "3", ",", "1", ",", "3"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "3", ",", "2", ",", "3"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"3", ",", "3", ",", "2", ",", "3"}], "]"}]}], "}"}]}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "1", ",", "3", ",", "3"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"3", ",", "3", ",", "1", ",", "2"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"3", ",", "3", ",", "1", ",", "3"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"3", ",", "3", ",", "1", ",", "2"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "2", ",", "3", ",", "3"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"3", ",", "3", ",", "2", ",", "3"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"3", ",", "3", ",", "1", ",", "3"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"3", ",", "3", ",", "2", ",", "3"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"3", ",", "3", ",", "3", ",", "3"}], "]"}]}], "}"}]}], 
        "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Voigt", "[", "SS", "]"}], "//", "MatrixForm"}], ";"}]}], "Input",
 CellChangeTimes->{{3.6998609179180193`*^9, 3.699860933121264*^9}, {
   3.69986102185822*^9, 3.699861034685192*^9}, {3.699861066081912*^9, 
   3.6998610664971666`*^9}, 3.700283767906911*^9, 3.700283804315646*^9, 
   3.700284269979076*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Sigma]0", "=", 
   RowBox[{
    RowBox[{"Double42", "[", 
     RowBox[{"SS", ",", "\[Epsilon]0", ",", "\[Epsilon]0"}], "]"}], "//", 
    "Simplify"}]}], ";", 
  RowBox[{"\[Sigma]0", "//", "MatrixForm"}]}]], "Input",
 CellChangeTimes->{{3.699861078708481*^9, 3.6998611055767417`*^9}, {
   3.6998612354086637`*^9, 3.6998612364140615`*^9}, {3.699861523088729*^9, 
   3.699861559458094*^9}, {3.699861665299487*^9, 3.6998616895140357`*^9}, 
   3.6998617257781973`*^9, {3.7000377176729865`*^9, 3.700037725653099*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       RowBox[{
        RowBox[{"S", "[", 
         RowBox[{"1", ",", "1", ",", "3", ",", "3"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["uz", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"S", "[", 
         RowBox[{"1", ",", "1", ",", "2", ",", "2"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["uy", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"S", "[", 
         RowBox[{"1", ",", "1", ",", "2", ",", "3"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["uy", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}], "+", 
          RowBox[{
           SuperscriptBox["uz", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
       RowBox[{
        RowBox[{"S", "[", 
         RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["ux", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"S", "[", 
         RowBox[{"1", ",", "1", ",", "1", ",", "2"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["ux", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}], "+", 
          RowBox[{
           SuperscriptBox["uy", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
       RowBox[{
        RowBox[{"S", "[", 
         RowBox[{"1", ",", "1", ",", "1", ",", "3"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["ux", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}], "+", 
          RowBox[{
           SuperscriptBox["uz", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"S", "[", 
         RowBox[{"3", ",", "3", ",", "1", ",", "2"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["uz", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"S", "[", 
         RowBox[{"2", ",", "2", ",", "1", ",", "2"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["uy", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"S", "[", 
         RowBox[{"2", ",", "3", ",", "1", ",", "2"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["uy", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}], "+", 
          RowBox[{
           SuperscriptBox["uz", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
       RowBox[{
        RowBox[{"S", "[", 
         RowBox[{"1", ",", "1", ",", "1", ",", "2"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["ux", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"S", "[", 
         RowBox[{"1", ",", "2", ",", "1", ",", "2"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["ux", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}], "+", 
          RowBox[{
           SuperscriptBox["uy", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
       RowBox[{
        RowBox[{"S", "[", 
         RowBox[{"1", ",", "3", ",", "1", ",", "2"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["ux", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}], "+", 
          RowBox[{
           SuperscriptBox["uz", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"S", "[", 
         RowBox[{"3", ",", "3", ",", "1", ",", "3"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["uz", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"S", "[", 
         RowBox[{"2", ",", "2", ",", "1", ",", "3"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["uy", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"S", "[", 
         RowBox[{"2", ",", "3", ",", "1", ",", "3"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["uy", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}], "+", 
          RowBox[{
           SuperscriptBox["uz", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
       RowBox[{
        RowBox[{"S", "[", 
         RowBox[{"1", ",", "1", ",", "1", ",", "3"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["ux", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"S", "[", 
         RowBox[{"1", ",", "3", ",", "1", ",", "2"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["ux", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}], "+", 
          RowBox[{
           SuperscriptBox["uy", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
       RowBox[{
        RowBox[{"S", "[", 
         RowBox[{"1", ",", "3", ",", "1", ",", "3"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["ux", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}], "+", 
          RowBox[{
           SuperscriptBox["uz", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}]},
     {
      RowBox[{
       RowBox[{
        RowBox[{"S", "[", 
         RowBox[{"3", ",", "3", ",", "1", ",", "2"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["uz", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"S", "[", 
         RowBox[{"2", ",", "2", ",", "1", ",", "2"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["uy", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"S", "[", 
         RowBox[{"2", ",", "3", ",", "1", ",", "2"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["uy", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}], "+", 
          RowBox[{
           SuperscriptBox["uz", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
       RowBox[{
        RowBox[{"S", "[", 
         RowBox[{"1", ",", "1", ",", "1", ",", "2"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["ux", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"S", "[", 
         RowBox[{"1", ",", "2", ",", "1", ",", "2"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["ux", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}], "+", 
          RowBox[{
           SuperscriptBox["uy", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
       RowBox[{
        RowBox[{"S", "[", 
         RowBox[{"1", ",", "3", ",", "1", ",", "2"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["ux", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}], "+", 
          RowBox[{
           SuperscriptBox["uz", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"S", "[", 
         RowBox[{"2", ",", "2", ",", "3", ",", "3"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["uz", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"S", "[", 
         RowBox[{"2", ",", "2", ",", "2", ",", "2"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["uy", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"S", "[", 
         RowBox[{"2", ",", "2", ",", "2", ",", "3"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["uy", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}], "+", 
          RowBox[{
           SuperscriptBox["uz", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
       RowBox[{
        RowBox[{"S", "[", 
         RowBox[{"1", ",", "1", ",", "2", ",", "2"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["ux", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"S", "[", 
         RowBox[{"2", ",", "2", ",", "1", ",", "2"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["ux", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}], "+", 
          RowBox[{
           SuperscriptBox["uy", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
       RowBox[{
        RowBox[{"S", "[", 
         RowBox[{"2", ",", "2", ",", "1", ",", "3"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["ux", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}], "+", 
          RowBox[{
           SuperscriptBox["uz", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"S", "[", 
         RowBox[{"3", ",", "3", ",", "2", ",", "3"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["uz", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"S", "[", 
         RowBox[{"2", ",", "2", ",", "2", ",", "3"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["uy", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"S", "[", 
         RowBox[{"2", ",", "3", ",", "2", ",", "3"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["uy", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}], "+", 
          RowBox[{
           SuperscriptBox["uz", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
       RowBox[{
        RowBox[{"S", "[", 
         RowBox[{"1", ",", "1", ",", "2", ",", "3"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["ux", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"S", "[", 
         RowBox[{"2", ",", "3", ",", "1", ",", "2"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["ux", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}], "+", 
          RowBox[{
           SuperscriptBox["uy", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
       RowBox[{
        RowBox[{"S", "[", 
         RowBox[{"2", ",", "3", ",", "1", ",", "3"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["ux", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}], "+", 
          RowBox[{
           SuperscriptBox["uz", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}]},
     {
      RowBox[{
       RowBox[{
        RowBox[{"S", "[", 
         RowBox[{"3", ",", "3", ",", "1", ",", "3"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["uz", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"S", "[", 
         RowBox[{"2", ",", "2", ",", "1", ",", "3"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["uy", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"S", "[", 
         RowBox[{"2", ",", "3", ",", "1", ",", "3"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["uy", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}], "+", 
          RowBox[{
           SuperscriptBox["uz", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
       RowBox[{
        RowBox[{"S", "[", 
         RowBox[{"1", ",", "1", ",", "1", ",", "3"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["ux", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"S", "[", 
         RowBox[{"1", ",", "3", ",", "1", ",", "2"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["ux", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}], "+", 
          RowBox[{
           SuperscriptBox["uy", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
       RowBox[{
        RowBox[{"S", "[", 
         RowBox[{"1", ",", "3", ",", "1", ",", "3"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["ux", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}], "+", 
          RowBox[{
           SuperscriptBox["uz", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"S", "[", 
         RowBox[{"3", ",", "3", ",", "2", ",", "3"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["uz", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"S", "[", 
         RowBox[{"2", ",", "2", ",", "2", ",", "3"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["uy", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"S", "[", 
         RowBox[{"2", ",", "3", ",", "2", ",", "3"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["uy", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}], "+", 
          RowBox[{
           SuperscriptBox["uz", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
       RowBox[{
        RowBox[{"S", "[", 
         RowBox[{"1", ",", "1", ",", "2", ",", "3"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["ux", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"S", "[", 
         RowBox[{"2", ",", "3", ",", "1", ",", "2"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["ux", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}], "+", 
          RowBox[{
           SuperscriptBox["uy", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
       RowBox[{
        RowBox[{"S", "[", 
         RowBox[{"2", ",", "3", ",", "1", ",", "3"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["ux", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}], "+", 
          RowBox[{
           SuperscriptBox["uz", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"S", "[", 
         RowBox[{"3", ",", "3", ",", "3", ",", "3"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["uz", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"S", "[", 
         RowBox[{"2", ",", "2", ",", "3", ",", "3"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["uy", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"S", "[", 
         RowBox[{"3", ",", "3", ",", "2", ",", "3"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["uy", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}], "+", 
          RowBox[{
           SuperscriptBox["uz", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
       RowBox[{
        RowBox[{"S", "[", 
         RowBox[{"1", ",", "1", ",", "3", ",", "3"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["ux", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"S", "[", 
         RowBox[{"3", ",", "3", ",", "1", ",", "2"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["ux", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}], "+", 
          RowBox[{
           SuperscriptBox["uy", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
       RowBox[{
        RowBox[{"S", "[", 
         RowBox[{"3", ",", "3", ",", "1", ",", "3"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["ux", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}], "+", 
          RowBox[{
           SuperscriptBox["uz", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.6998610935953083`*^9, 3.6998611068223896`*^9}, {
   3.699861230075671*^9, 3.6998612429625635`*^9}, {3.699861421594683*^9, 
   3.6998614457125273`*^9}, 3.6998615612290688`*^9, {3.6998616697868433`*^9, 
   3.69986169001917*^9}, 3.699861726348564*^9, 3.700037196122175*^9, 
   3.7000373961955013`*^9, 3.7000377260448337`*^9, 3.7000385622976165`*^9, 
   3.7000388188230658`*^9, 3.700039039067918*^9, 3.700283852404522*^9, 
   3.700302316330512*^9, 3.700358834767603*^9, 3.70044572485701*^9, 
   3.7004793924018497`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"div\[Sigma]", "=", 
   RowBox[{
    RowBox[{"Div", "[", 
     RowBox[{"\[Sigma]0", ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], "]"}], "//", 
    "FullSimplify"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Length", "[", "div\[Sigma]", "]"}], "\[IndentingNewLine]", 
 RowBox[{"div\[Sigma]", "//", "MatrixForm"}]}], "Input",
 CellChangeTimes->{{3.699861244693484*^9, 3.6998612486405563`*^9}, {
  3.699861335290431*^9, 3.6998613644329147`*^9}, {3.6998614542470713`*^9, 
  3.699861466123396*^9}, {3.699861708093779*^9, 3.6998617304106627`*^9}, {
  3.700037203526822*^9, 3.700037245300088*^9}, {3.70003871811602*^9, 
  3.7000387579234962`*^9}, {3.7000388974587927`*^9, 3.7000389102595067`*^9}}],

Cell[BoxData["3"], "Output",
 CellChangeTimes->{{3.699861338265339*^9, 3.699861365469701*^9}, {
   3.699861458179166*^9, 3.699861468129465*^9}, {3.699861705052204*^9, 
   3.699861710585108*^9}, 3.6998617424321003`*^9, {3.7000372125799255`*^9, 
   3.700037251047325*^9}, 3.7000374083947067`*^9, 3.700037741489687*^9, 
   3.7000385664586926`*^9, 3.7000388265423822`*^9, 3.70003891134639*^9, 
   3.7000390454726686`*^9, {3.700283859063437*^9, 3.700283859486034*^9}, 
   3.700302361703281*^9, 3.700358840416926*^9, 3.700445732229002*^9, 
   3.700479397568572*^9}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {
       RowBox[{
        RowBox[{
         RowBox[{"S", "[", 
          RowBox[{"1", ",", "3", ",", "1", ",", "3"}], "]"}], " ", 
         RowBox[{
          SuperscriptBox["ux", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "0", ",", "2"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{
         RowBox[{"S", "[", 
          RowBox[{"2", ",", "3", ",", "1", ",", "3"}], "]"}], " ", 
         RowBox[{
          SuperscriptBox["uy", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "0", ",", "2"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{
         RowBox[{"S", "[", 
          RowBox[{"3", ",", "3", ",", "1", ",", "3"}], "]"}], " ", 
         RowBox[{
          SuperscriptBox["uz", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "0", ",", "2"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{"2", " ", 
         RowBox[{"S", "[", 
          RowBox[{"1", ",", "3", ",", "1", ",", "2"}], "]"}], " ", 
         RowBox[{
          SuperscriptBox["ux", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "2", ",", "1", ",", "3"}], "]"}], "+", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "3", ",", "1", ",", "2"}], "]"}]}], ")"}], " ", 
         RowBox[{
          SuperscriptBox["uy", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "3", ",", "1", ",", "3"}], "]"}], "+", 
           RowBox[{"S", "[", 
            RowBox[{"3", ",", "3", ",", "1", ",", "2"}], "]"}]}], ")"}], " ", 
         RowBox[{
          SuperscriptBox["uz", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{
         RowBox[{"S", "[", 
          RowBox[{"2", ",", "2", ",", "1", ",", "2"}], "]"}], " ", 
         RowBox[{
          SuperscriptBox["uy", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "2", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{
         RowBox[{"S", "[", 
          RowBox[{"2", ",", "3", ",", "1", ",", "2"}], "]"}], " ", 
         RowBox[{
          SuperscriptBox["uz", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "2", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "1", ",", "3", ",", "3"}], "]"}], "+", 
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "3", ",", "1", ",", "3"}], "]"}]}], ")"}], " ", 
         RowBox[{
          SuperscriptBox["uz", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{
         RowBox[{"S", "[", 
          RowBox[{"1", ",", "1", ",", "2", ",", "2"}], "]"}], " ", 
         RowBox[{
          SuperscriptBox["uy", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{
         RowBox[{"S", "[", 
          RowBox[{"1", ",", "2", ",", "1", ",", "2"}], "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox["ux", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "2", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", "y", ",", "z"}], "]"}], "+", 
           RowBox[{
            SuperscriptBox["uy", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "1", ",", "2", ",", "3"}], "]"}], "+", 
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "3", ",", "1", ",", "2"}], "]"}]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox["uy", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", "y", ",", "z"}], "]"}], "+", 
           RowBox[{
            SuperscriptBox["uz", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
        RowBox[{
         RowBox[{"S", "[", 
          RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "]"}], " ", 
         RowBox[{
          SuperscriptBox["ux", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"2", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{
         RowBox[{"S", "[", 
          RowBox[{"1", ",", "1", ",", "1", ",", "2"}], "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", 
            RowBox[{
             SuperscriptBox["ux", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+", 
           RowBox[{
            SuperscriptBox["uy", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"2", ",", "0", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
        RowBox[{
         RowBox[{"S", "[", 
          RowBox[{"1", ",", "1", ",", "1", ",", "3"}], "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", 
            RowBox[{
             SuperscriptBox["ux", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+", 
           RowBox[{
            SuperscriptBox["uz", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"2", ",", "0", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}]},
      {
       RowBox[{
        RowBox[{
         RowBox[{"S", "[", 
          RowBox[{"2", ",", "3", ",", "1", ",", "3"}], "]"}], " ", 
         RowBox[{
          SuperscriptBox["ux", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "0", ",", "2"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{
         RowBox[{"S", "[", 
          RowBox[{"2", ",", "3", ",", "2", ",", "3"}], "]"}], " ", 
         RowBox[{
          SuperscriptBox["uy", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "0", ",", "2"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{
         RowBox[{"S", "[", 
          RowBox[{"3", ",", "3", ",", "2", ",", "3"}], "]"}], " ", 
         RowBox[{
          SuperscriptBox["uz", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "0", ",", "2"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "2", ",", "1", ",", "3"}], "]"}], "+", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "3", ",", "1", ",", "2"}], "]"}]}], ")"}], " ", 
         RowBox[{
          SuperscriptBox["ux", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "2", ",", "3", ",", "3"}], "]"}], "+", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "3", ",", "2", ",", "3"}], "]"}]}], ")"}], " ", 
         RowBox[{
          SuperscriptBox["uz", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{
         RowBox[{"S", "[", 
          RowBox[{"2", ",", "2", ",", "2", ",", "2"}], "]"}], " ", 
         RowBox[{
          SuperscriptBox["uy", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "2", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{
         RowBox[{"S", "[", 
          RowBox[{"2", ",", "2", ",", "2", ",", "3"}], "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", 
            RowBox[{
             SuperscriptBox["uy", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+", 
           RowBox[{
            SuperscriptBox["uz", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "2", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "1", ",", "2", ",", "3"}], "]"}], "+", 
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "3", ",", "1", ",", "2"}], "]"}]}], ")"}], " ", 
         RowBox[{
          SuperscriptBox["ux", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{"2", " ", 
         RowBox[{"S", "[", 
          RowBox[{"2", ",", "3", ",", "1", ",", "2"}], "]"}], " ", 
         RowBox[{
          SuperscriptBox["uy", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "3", ",", "1", ",", "3"}], "]"}], "+", 
           RowBox[{"S", "[", 
            RowBox[{"3", ",", "3", ",", "1", ",", "2"}], "]"}]}], ")"}], " ", 
         RowBox[{
          SuperscriptBox["uz", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "1", ",", "2", ",", "2"}], "]"}], "+", 
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "2", ",", "1", ",", "2"}], "]"}]}], ")"}], " ", 
         RowBox[{
          SuperscriptBox["ux", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{
         RowBox[{"S", "[", 
          RowBox[{"2", ",", "2", ",", "1", ",", "2"}], "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox["ux", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "2", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", "y", ",", "z"}], "]"}], "+", 
           RowBox[{"2", " ", 
            RowBox[{
             SuperscriptBox["uy", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "2", ",", "1", ",", "3"}], "]"}], "+", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "3", ",", "1", ",", "2"}], "]"}]}], ")"}], " ", 
         RowBox[{
          SuperscriptBox["uz", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{
         RowBox[{"S", "[", 
          RowBox[{"1", ",", "1", ",", "1", ",", "2"}], "]"}], " ", 
         RowBox[{
          SuperscriptBox["ux", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"2", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{
         RowBox[{"S", "[", 
          RowBox[{"1", ",", "2", ",", "1", ",", "2"}], "]"}], " ", 
         RowBox[{
          SuperscriptBox["uy", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"2", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{
         RowBox[{"S", "[", 
          RowBox[{"1", ",", "3", ",", "1", ",", "2"}], "]"}], " ", 
         RowBox[{
          SuperscriptBox["uz", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"2", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y", ",", "z"}], "]"}]}]}]},
      {
       RowBox[{
        RowBox[{
         RowBox[{"S", "[", 
          RowBox[{"3", ",", "3", ",", "3", ",", "3"}], "]"}], " ", 
         RowBox[{
          SuperscriptBox["uz", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "0", ",", "2"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "2", ",", "3", ",", "3"}], "]"}], "+", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "3", ",", "2", ",", "3"}], "]"}]}], ")"}], " ", 
         RowBox[{
          SuperscriptBox["uy", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{
         RowBox[{"S", "[", 
          RowBox[{"3", ",", "3", ",", "2", ",", "3"}], "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox["uy", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "0", ",", "2"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", "y", ",", "z"}], "]"}], "+", 
           RowBox[{"2", " ", 
            RowBox[{
             SuperscriptBox["uz", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], "+", 
        RowBox[{
         RowBox[{"S", "[", 
          RowBox[{"2", ",", "3", ",", "1", ",", "2"}], "]"}], " ", 
         RowBox[{
          SuperscriptBox["ux", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "2", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{
         RowBox[{"S", "[", 
          RowBox[{"2", ",", "2", ",", "2", ",", "3"}], "]"}], " ", 
         RowBox[{
          SuperscriptBox["uy", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "2", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{
         RowBox[{"S", "[", 
          RowBox[{"2", ",", "3", ",", "2", ",", "3"}], "]"}], " ", 
         RowBox[{
          SuperscriptBox["uz", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "2", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "1", ",", "3", ",", "3"}], "]"}], "+", 
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "3", ",", "1", ",", "3"}], "]"}]}], ")"}], " ", 
         RowBox[{
          SuperscriptBox["ux", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "3", ",", "1", ",", "3"}], "]"}], "+", 
           RowBox[{"S", "[", 
            RowBox[{"3", ",", "3", ",", "1", ",", "2"}], "]"}]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox["ux", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", "y", ",", "z"}], "]"}], "+", 
           RowBox[{
            SuperscriptBox["uy", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", 
        RowBox[{
         RowBox[{"S", "[", 
          RowBox[{"3", ",", "3", ",", "1", ",", "3"}], "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox["ux", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "0", ",", "2"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", "y", ",", "z"}], "]"}], "+", 
           RowBox[{"2", " ", 
            RowBox[{
             SuperscriptBox["uz", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "1", ",", "2", ",", "3"}], "]"}], "+", 
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "3", ",", "1", ",", "2"}], "]"}]}], ")"}], " ", 
         RowBox[{
          SuperscriptBox["ux", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "2", ",", "1", ",", "3"}], "]"}], "+", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "3", ",", "1", ",", "2"}], "]"}]}], ")"}], " ", 
         RowBox[{
          SuperscriptBox["uy", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{"2", " ", 
         RowBox[{"S", "[", 
          RowBox[{"2", ",", "3", ",", "1", ",", "3"}], "]"}], " ", 
         RowBox[{
          SuperscriptBox["uz", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{
         RowBox[{"S", "[", 
          RowBox[{"1", ",", "1", ",", "1", ",", "3"}], "]"}], " ", 
         RowBox[{
          SuperscriptBox["ux", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"2", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{
         RowBox[{"S", "[", 
          RowBox[{"1", ",", "3", ",", "1", ",", "2"}], "]"}], " ", 
         RowBox[{
          SuperscriptBox["uy", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"2", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+", 
        RowBox[{
         RowBox[{"S", "[", 
          RowBox[{"1", ",", "3", ",", "1", ",", "3"}], "]"}], " ", 
         RowBox[{
          SuperscriptBox["uz", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"2", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y", ",", "z"}], "]"}]}]}]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
        "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    Column], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.699861338265339*^9, 3.699861365469701*^9}, {
   3.699861458179166*^9, 3.699861468129465*^9}, {3.699861705052204*^9, 
   3.699861710585108*^9}, 3.6998617424321003`*^9, {3.7000372125799255`*^9, 
   3.700037251047325*^9}, 3.7000374083947067`*^9, 3.700037741489687*^9, 
   3.7000385664586926`*^9, 3.7000388265423822`*^9, 3.70003891134639*^9, 
   3.7000390454726686`*^9, {3.700283859063437*^9, 3.700283859486034*^9}, 
   3.700302361703281*^9, 3.700358840416926*^9, 3.700445732229002*^9, 
   3.700479397604123*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"n", "=", 
   RowBox[{"{", 
    RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Sigma]0", ".", "n"}], "//", "Simplify"}], ";"}]}], "Input",
 CellChangeTimes->{{3.699861483357572*^9, 3.699861513949011*^9}, {
   3.6998617873209753`*^9, 3.69986180575078*^9}, 3.7000372740590982`*^9, {
   3.7000387069727173`*^9, 3.7000387130460634`*^9}, {3.700039054106103*^9, 
   3.7000390819833612`*^9}, {3.700039521219363*^9, 3.700039523080974*^9}, 
   3.700358680147348*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Application a un champ de d\[EAcute]placements polynomial", "Section",
 CellChangeTimes->{{3.700037623063727*^9, 3.7000376422229104`*^9}, 
   3.700293545381851*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"ux", "[", 
    RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"a1", " ", 
     SuperscriptBox[
      RowBox[{"x", " "}], "2"]}], "+", 
    RowBox[{"a2", " ", 
     SuperscriptBox["y", "3"]}], " ", "+", 
    RowBox[{"a3", " ", 
     SuperscriptBox["z", "2"]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"uy", "[", 
    RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"b1", " ", 
     SuperscriptBox["x", "4"]}], " ", "+", " ", 
    RowBox[{"b2", " ", 
     SuperscriptBox["y", "2"]}], " ", "+", " ", 
    RowBox[{"b3", " ", 
     SuperscriptBox["z", "3"]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"uz", "[", 
    RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], ":=", " ", 
   RowBox[{
    RowBox[{"c1", " ", 
     SuperscriptBox["x", "2"]}], "+", 
    RowBox[{"c2", " ", 
     SuperscriptBox["y", "2"]}], " ", "+", " ", 
    RowBox[{"c3", " ", 
     SuperscriptBox["z", "3"]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ListCoeff", "=", 
   RowBox[{"{", 
    RowBox[{
    "a1", ",", "a2", ",", "a3", ",", "b1", ",", "b2", ",", "b3", ",", "c1", 
     ",", "c2", ",", "c3"}], "}"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.6998607651965938`*^9, 3.699860848281434*^9}, {
   3.6998608783425694`*^9, 3.699860890819788*^9}, {3.6998613704619455`*^9, 
   3.6998613961359105`*^9}, {3.7000373329155865`*^9, 3.700037359226394*^9}, {
   3.700037468208477*^9, 3.700037472450465*^9}, {3.7000397462517033`*^9, 
   3.700039763949032*^9}, {3.70028399387621*^9, 3.700283994499984*^9}, 
   3.700285296119135*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"FullSimplify", "[", "\[Epsilon]0", "]"}], "//", 
  "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.7000373007509565`*^9, 3.700037304873582*^9}, {
  3.70003765070693*^9, 3.7000376603742957`*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"2", " ", "a1", " ", "x"}], 
      RowBox[{
       RowBox[{"2", " ", "b2", " ", 
        SuperscriptBox["x", "3"]}], "+", 
       FractionBox[
        RowBox[{"3", " ", "a2", " ", 
         SuperscriptBox["y", "2"]}], "2"]}], 
      RowBox[{
       RowBox[{"c1", " ", "x"}], "+", 
       RowBox[{"a3", " ", "z"}]}]},
     {
      RowBox[{
       RowBox[{"2", " ", "b2", " ", 
        SuperscriptBox["x", "3"]}], "+", 
       FractionBox[
        RowBox[{"3", " ", "a2", " ", 
         SuperscriptBox["y", "2"]}], "2"]}], 
      RowBox[{"2", " ", "b2", " ", "y"}], 
      RowBox[{
       RowBox[{"c2", " ", "y"}], "+", 
       FractionBox[
        RowBox[{"3", " ", "b3", " ", 
         SuperscriptBox["z", "2"]}], "2"]}]},
     {
      RowBox[{
       RowBox[{"c1", " ", "x"}], "+", 
       RowBox[{"a3", " ", "z"}]}], 
      RowBox[{
       RowBox[{"c2", " ", "y"}], "+", 
       FractionBox[
        RowBox[{"3", " ", "b3", " ", 
         SuperscriptBox["z", "2"]}], "2"]}], 
      RowBox[{"3", " ", "c3", " ", 
       SuperscriptBox["z", "2"]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.700037305479724*^9, 3.7000374208965898`*^9, 
  3.700037753144913*^9, 3.7000385687771482`*^9, 3.700038861454889*^9, 
  3.7000389264522886`*^9, 3.7000391548061023`*^9, 3.7000397832698092`*^9, 
  3.700283887443345*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"div\[Sigma]", "=", 
   RowBox[{"FullSimplify", "[", "div\[Sigma]", "]"}]}], ";", 
  RowBox[{"div\[Sigma]", "//", "MatrixForm"}]}]], "Input",
 CellChangeTimes->{{3.7000377589097195`*^9, 3.7000377726021852`*^9}, {
  3.7000385381512346`*^9, 3.7000385438586073`*^9}, {3.7000385783787746`*^9, 
  3.7000385864990454`*^9}, {3.700038867187894*^9, 3.7000388873230844`*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"a1", " ", 
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "]"}]}], "+", 
          RowBox[{"c1", " ", 
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "1", ",", "1", ",", "3"}], "]"}]}], "+", 
          RowBox[{"3", " ", "a2", " ", "y", " ", 
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "2", ",", "1", ",", "2"}], "]"}]}], "+", 
          RowBox[{"a3", " ", 
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "3", ",", "1", ",", "3"}], "]"}]}], "+", 
          RowBox[{"b2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"6", " ", 
              SuperscriptBox["x", "2"], " ", 
              RowBox[{"S", "[", 
               RowBox[{"1", ",", "1", ",", "1", ",", "2"}], "]"}]}], "+", 
             RowBox[{"S", "[", 
              RowBox[{"2", ",", "2", ",", "1", ",", "2"}], "]"}]}], ")"}]}], 
          "+", 
          RowBox[{"c2", " ", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "3", ",", "1", ",", "2"}], "]"}]}], "+", 
          RowBox[{"3", " ", "b3", " ", "z", " ", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "3", ",", "1", ",", "3"}], "]"}]}], "+", 
          RowBox[{"3", " ", "c3", " ", "z", " ", 
           RowBox[{"S", "[", 
            RowBox[{"3", ",", "3", ",", "1", ",", "3"}], "]"}]}]}], ")"}]}]},
      {
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"a1", " ", 
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "1", ",", "1", ",", "2"}], "]"}]}], "+", 
          RowBox[{"c1", " ", 
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "3", ",", "1", ",", "2"}], "]"}]}], "+", 
          RowBox[{"3", " ", "a2", " ", "y", " ", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "2", ",", "1", ",", "2"}], "]"}]}], "+", 
          RowBox[{"b2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"6", " ", 
              SuperscriptBox["x", "2"], " ", 
              RowBox[{"S", "[", 
               RowBox[{"1", ",", "2", ",", "1", ",", "2"}], "]"}]}], "+", 
             RowBox[{"S", "[", 
              RowBox[{"2", ",", "2", ",", "2", ",", "2"}], "]"}]}], ")"}]}], 
          "+", 
          RowBox[{"c2", " ", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "2", ",", "2", ",", "3"}], "]"}]}], "+", 
          RowBox[{"a3", " ", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "3", ",", "1", ",", "3"}], "]"}]}], "+", 
          RowBox[{"3", " ", "b3", " ", "z", " ", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "3", ",", "2", ",", "3"}], "]"}]}], "+", 
          RowBox[{"3", " ", "c3", " ", "z", " ", 
           RowBox[{"S", "[", 
            RowBox[{"3", ",", "3", ",", "2", ",", "3"}], "]"}]}]}], ")"}]}]},
      {
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"a1", " ", 
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "1", ",", "1", ",", "3"}], "]"}]}], "+", 
          RowBox[{"c1", " ", 
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "3", ",", "1", ",", "3"}], "]"}]}], "+", 
          RowBox[{"b2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"6", " ", 
              SuperscriptBox["x", "2"], " ", 
              RowBox[{"S", "[", 
               RowBox[{"1", ",", "3", ",", "1", ",", "2"}], "]"}]}], "+", 
             RowBox[{"S", "[", 
              RowBox[{"2", ",", "2", ",", "2", ",", "3"}], "]"}]}], ")"}]}], 
          "+", 
          RowBox[{"3", " ", "a2", " ", "y", " ", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "3", ",", "1", ",", "2"}], "]"}]}], "+", 
          RowBox[{"c2", " ", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "3", ",", "2", ",", "3"}], "]"}]}], "+", 
          RowBox[{"a3", " ", 
           RowBox[{"S", "[", 
            RowBox[{"3", ",", "3", ",", "1", ",", "3"}], "]"}]}], "+", 
          RowBox[{"3", " ", "b3", " ", "z", " ", 
           RowBox[{"S", "[", 
            RowBox[{"3", ",", "3", ",", "2", ",", "3"}], "]"}]}], "+", 
          RowBox[{"3", " ", "c3", " ", "z", " ", 
           RowBox[{"S", "[", 
            RowBox[{"3", ",", "3", ",", "3", ",", "3"}], "]"}]}]}], ")"}]}]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
        "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    Column], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.7000385877350564`*^9, 3.700038891407699*^9, 
  3.7000389318482943`*^9, 3.700039156604332*^9, 3.7000397846836576`*^9, 
  3.700283890492093*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Coefficient", "[", 
  RowBox[{
   RowBox[{"div\[Sigma]", "[", 
    RowBox[{"[", "1", "]"}], "]"}], ",", "ListCoeff"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Coefficient", "[", 
  RowBox[{
   RowBox[{"div\[Sigma]", "[", 
    RowBox[{"[", "2", "]"}], "]"}], ",", "ListCoeff"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Coefficient", "[", 
  RowBox[{
   RowBox[{"div\[Sigma]", "[", 
    RowBox[{"[", "3", "]"}], "]"}], ",", "ListCoeff"}], "]"}]}], "Input",
 CellChangeTimes->{{3.700038593854847*^9, 3.7000386503134775`*^9}, {
  3.7000397690401635`*^9, 3.7000397781413565`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"2", " ", 
    RowBox[{"S", "[", 
     RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "]"}]}], ",", 
   RowBox[{"6", " ", "y", " ", 
    RowBox[{"S", "[", 
     RowBox[{"1", ",", "2", ",", "1", ",", "2"}], "]"}]}], ",", 
   RowBox[{"2", " ", 
    RowBox[{"S", "[", 
     RowBox[{"1", ",", "3", ",", "1", ",", "3"}], "]"}]}], ",", "0", ",", 
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"6", " ", 
       SuperscriptBox["x", "2"], " ", 
       RowBox[{"S", "[", 
        RowBox[{"1", ",", "1", ",", "1", ",", "2"}], "]"}]}], "+", 
      RowBox[{"S", "[", 
       RowBox[{"2", ",", "2", ",", "1", ",", "2"}], "]"}]}], ")"}]}], ",", 
   RowBox[{"6", " ", "z", " ", 
    RowBox[{"S", "[", 
     RowBox[{"2", ",", "3", ",", "1", ",", "3"}], "]"}]}], ",", 
   RowBox[{"2", " ", 
    RowBox[{"S", "[", 
     RowBox[{"1", ",", "1", ",", "1", ",", "3"}], "]"}]}], ",", 
   RowBox[{"2", " ", 
    RowBox[{"S", "[", 
     RowBox[{"2", ",", "3", ",", "1", ",", "2"}], "]"}]}], ",", 
   RowBox[{"6", " ", "z", " ", 
    RowBox[{"S", "[", 
     RowBox[{"3", ",", "3", ",", "1", ",", "3"}], "]"}]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.700038614970788*^9, 3.700038653346098*^9}, 
   3.7000389379187126`*^9, 3.700039159155419*^9, 3.7000397862509375`*^9, 
   3.70028389231392*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"2", " ", 
    RowBox[{"S", "[", 
     RowBox[{"1", ",", "1", ",", "1", ",", "2"}], "]"}]}], ",", 
   RowBox[{"6", " ", "y", " ", 
    RowBox[{"S", "[", 
     RowBox[{"2", ",", "2", ",", "1", ",", "2"}], "]"}]}], ",", 
   RowBox[{"2", " ", 
    RowBox[{"S", "[", 
     RowBox[{"2", ",", "3", ",", "1", ",", "3"}], "]"}]}], ",", "0", ",", 
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"6", " ", 
       SuperscriptBox["x", "2"], " ", 
       RowBox[{"S", "[", 
        RowBox[{"1", ",", "2", ",", "1", ",", "2"}], "]"}]}], "+", 
      RowBox[{"S", "[", 
       RowBox[{"2", ",", "2", ",", "2", ",", "2"}], "]"}]}], ")"}]}], ",", 
   RowBox[{"6", " ", "z", " ", 
    RowBox[{"S", "[", 
     RowBox[{"2", ",", "3", ",", "2", ",", "3"}], "]"}]}], ",", 
   RowBox[{"2", " ", 
    RowBox[{"S", "[", 
     RowBox[{"1", ",", "3", ",", "1", ",", "2"}], "]"}]}], ",", 
   RowBox[{"2", " ", 
    RowBox[{"S", "[", 
     RowBox[{"2", ",", "2", ",", "2", ",", "3"}], "]"}]}], ",", 
   RowBox[{"6", " ", "z", " ", 
    RowBox[{"S", "[", 
     RowBox[{"3", ",", "3", ",", "2", ",", "3"}], "]"}]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.700038614970788*^9, 3.700038653346098*^9}, 
   3.7000389379187126`*^9, 3.700039159155419*^9, 3.7000397862509375`*^9, 
   3.700283892316236*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"2", " ", 
    RowBox[{"S", "[", 
     RowBox[{"1", ",", "1", ",", "1", ",", "3"}], "]"}]}], ",", 
   RowBox[{"6", " ", "y", " ", 
    RowBox[{"S", "[", 
     RowBox[{"2", ",", "3", ",", "1", ",", "2"}], "]"}]}], ",", 
   RowBox[{"2", " ", 
    RowBox[{"S", "[", 
     RowBox[{"3", ",", "3", ",", "1", ",", "3"}], "]"}]}], ",", "0", ",", 
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"6", " ", 
       SuperscriptBox["x", "2"], " ", 
       RowBox[{"S", "[", 
        RowBox[{"1", ",", "3", ",", "1", ",", "2"}], "]"}]}], "+", 
      RowBox[{"S", "[", 
       RowBox[{"2", ",", "2", ",", "2", ",", "3"}], "]"}]}], ")"}]}], ",", 
   RowBox[{"6", " ", "z", " ", 
    RowBox[{"S", "[", 
     RowBox[{"3", ",", "3", ",", "2", ",", "3"}], "]"}]}], ",", 
   RowBox[{"2", " ", 
    RowBox[{"S", "[", 
     RowBox[{"1", ",", "3", ",", "1", ",", "3"}], "]"}]}], ",", 
   RowBox[{"2", " ", 
    RowBox[{"S", "[", 
     RowBox[{"2", ",", "3", ",", "2", ",", "3"}], "]"}]}], ",", 
   RowBox[{"6", " ", "z", " ", 
    RowBox[{"S", "[", 
     RowBox[{"3", ",", "3", ",", "3", ",", "3"}], "]"}]}]}], "}"}]], "Input",
 CellChangeTimes->{{3.7002936611500597`*^9, 3.700293670798514*^9}, {
  3.7002937271672497`*^9, 3.700293731214781*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Sigma]n", "[", 
   RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], ":=", 
  RowBox[{"Evaluate", "[", 
   RowBox[{"Simplify", "[", 
    RowBox[{"\[Sigma]0", ".", "n"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.700039557782342*^9, 3.7000396025108156`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Coefficient", "[", 
  RowBox[{
   RowBox[{"Part", "[", 
    RowBox[{
     RowBox[{"\[Sigma]n", "[", 
      RowBox[{"1", ",", "2", ",", "3"}], "]"}], ",", "1"}], "]"}], ",", 
   "ListCoeff"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Coefficient", "[", 
  RowBox[{
   RowBox[{"Part", "[", 
    RowBox[{
     RowBox[{"\[Sigma]n", "[", 
      RowBox[{"1", ",", "2", ",", "3"}], "]"}], ",", "2"}], "]"}], ",", 
   "ListCoeff"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Coefficient", "[", 
  RowBox[{
   RowBox[{"Part", "[", 
    RowBox[{
     RowBox[{"\[Sigma]n", "[", 
      RowBox[{"1", ",", "2", ",", "3"}], "]"}], ",", "3"}], "]"}], ",", 
   "ListCoeff"}], "]"}]}], "Input",
 CellChangeTimes->{{3.700039212337869*^9, 3.70003921542426*^9}, {
  3.7000393851416073`*^9, 3.7000394251858473`*^9}, {3.7000396168346386`*^9, 
  3.7000396251565*^9}, {3.7000397959595556`*^9, 3.7000398031075287`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"2", " ", "n1", " ", 
     RowBox[{"S", "[", 
      RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "]"}]}], "+", 
    RowBox[{"2", " ", "n2", " ", 
     RowBox[{"S", "[", 
      RowBox[{"1", ",", "1", ",", "1", ",", "2"}], "]"}]}], "+", 
    RowBox[{"2", " ", "n3", " ", 
     RowBox[{"S", "[", 
      RowBox[{"1", ",", "1", ",", "1", ",", 
       RowBox[{"polynomes2", ".", "nb"}]}], "]"}]}]}], ",", 
   RowBox[{
    RowBox[{"12", " ", "n1", " ", 
     RowBox[{"S", "[", 
      RowBox[{"1", ",", "1", ",", "1", ",", "2"}], "]"}]}], "+", 
    RowBox[{"12", " ", "n2", " ", 
     RowBox[{"S", "[", 
      RowBox[{"1", ",", "2", ",", "1", ",", "2"}], "]"}]}], "+", 
    RowBox[{"12", " ", "n3", " ", 
     RowBox[{"S", "[", 
      RowBox[{"1", ",", "3", ",", "1", ",", "2"}], "]"}]}]}], ",", 
   RowBox[{
    RowBox[{"6", " ", "n1", " ", 
     RowBox[{"S", "[", 
      RowBox[{"1", ",", "1", ",", "1", ",", "3"}], "]"}]}], "+", 
    RowBox[{"6", " ", "n2", " ", 
     RowBox[{"S", "[", 
      RowBox[{"1", ",", "3", ",", "1", ",", "2"}], "]"}]}], "+", 
    RowBox[{"6", " ", "n3", " ", 
     RowBox[{"S", "[", 
      RowBox[{"1", ",", "3", ",", "1", ",", "3"}], "]"}]}]}], ",", "0", ",", 
   RowBox[{
    RowBox[{"4", " ", "n1", " ", 
     RowBox[{"S", "[", 
      RowBox[{"1", ",", "1", ",", "1", ",", "2"}], "]"}]}], "+", 
    RowBox[{"4", " ", "n1", " ", 
     RowBox[{"S", "[", 
      RowBox[{"1", ",", "1", ",", "2", ",", "2"}], "]"}]}], "+", 
    RowBox[{"4", " ", "n2", " ", 
     RowBox[{"S", "[", 
      RowBox[{"1", ",", "2", ",", "1", ",", "2"}], "]"}]}], "+", 
    RowBox[{"4", " ", "n3", " ", 
     RowBox[{"S", "[", 
      RowBox[{"1", ",", "3", ",", "1", ",", "2"}], "]"}]}], "+", 
    RowBox[{"4", " ", "n2", " ", 
     RowBox[{"S", "[", 
      RowBox[{"2", ",", "2", ",", "1", ",", "2"}], "]"}]}], "+", 
    RowBox[{"4", " ", "n3", " ", 
     RowBox[{"S", "[", 
      RowBox[{"2", ",", "2", ",", "1", ",", "3"}], "]"}]}]}], ",", 
   RowBox[{
    RowBox[{"27", " ", "n1", " ", 
     RowBox[{"S", "[", 
      RowBox[{"1", ",", "1", ",", "2", ",", "3"}], "]"}]}], "+", 
    RowBox[{"27", " ", "n2", " ", 
     RowBox[{"S", "[", 
      RowBox[{"2", ",", "3", ",", "1", ",", "2"}], "]"}]}], "+", 
    RowBox[{"27", " ", "n3", " ", 
     RowBox[{"S", "[", 
      RowBox[{"2", ",", "3", ",", "1", ",", "3"}], "]"}]}]}], ",", 
   RowBox[{
    RowBox[{"2", " ", "n1", " ", 
     RowBox[{"S", "[", 
      RowBox[{"1", ",", "1", ",", "1", ",", "3"}], "]"}]}], "+", 
    RowBox[{"2", " ", "n2", " ", 
     RowBox[{"S", "[", 
      RowBox[{"1", ",", "3", ",", "1", ",", "2"}], "]"}]}], "+", 
    RowBox[{"2", " ", "n3", " ", 
     RowBox[{"S", "[", 
      RowBox[{"1", ",", "3", ",", "1", ",", "3"}], "]"}]}]}], ",", 
   RowBox[{
    RowBox[{"4", " ", "n1", " ", 
     RowBox[{"S", "[", 
      RowBox[{"1", ",", "1", ",", "2", ",", "3"}], "]"}]}], "+", 
    RowBox[{"4", " ", "n2", " ", 
     RowBox[{"S", "[", 
      RowBox[{"2", ",", "3", ",", "1", ",", "2"}], "]"}]}], "+", 
    RowBox[{"4", " ", "n3", " ", 
     RowBox[{"S", "[", 
      RowBox[{"2", ",", "3", ",", "1", ",", "3"}], "]"}]}]}], ",", 
   RowBox[{
    RowBox[{"27", " ", "n1", " ", 
     RowBox[{"S", "[", 
      RowBox[{"1", ",", "1", ",", "3", ",", "3"}], "]"}]}], "+", 
    RowBox[{"27", " ", "n2", " ", 
     RowBox[{"S", "[", 
      RowBox[{"3", ",", "3", ",", "1", ",", "2"}], "]"}]}], "+", 
    RowBox[{"27", " ", "n3", " ", 
     RowBox[{"S", "[", 
      RowBox[{"3", ",", "3", ",", "1", ",", "3"}], "]"}]}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.7000392162561736`*^9, 3.700039238496127*^9}, {
   3.700039325953406*^9, 3.7000393777030306`*^9}, 3.7000394268355207`*^9, 
   3.7000396265455046`*^9, {3.7000397899312363`*^9, 3.700039803983179*^9}, 
   3.700283898546749*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"2", " ", "n1", " ", 
     RowBox[{"S", "[", 
      RowBox[{"1", ",", "1", ",", "1", ",", "2"}], "]"}]}], "+", 
    RowBox[{"2", " ", "n2", " ", 
     RowBox[{"S", "[", 
      RowBox[{"1", ",", "1", ",", "2", ",", "2"}], "]"}]}], "+", 
    RowBox[{"2", " ", "n3", " ", 
     RowBox[{"S", "[", 
      RowBox[{"1", ",", "1", ",", "2", ",", "3"}], "]"}]}]}], ",", 
   RowBox[{
    RowBox[{"12", " ", "n1", " ", 
     RowBox[{"S", "[", 
      RowBox[{"1", ",", "2", ",", "1", ",", "2"}], "]"}]}], "+", 
    RowBox[{"12", " ", "n2", " ", 
     RowBox[{"S", "[", 
      RowBox[{"2", ",", "2", ",", "1", ",", "2"}], "]"}]}], "+", 
    RowBox[{"12", " ", "n3", " ", 
     RowBox[{"S", "[", 
      RowBox[{"2", ",", "3", ",", "1", ",", "2"}], "]"}]}]}], ",", 
   RowBox[{
    RowBox[{"6", " ", "n1", " ", 
     RowBox[{"S", "[", 
      RowBox[{"1", ",", "3", ",", "1", ",", "2"}], "]"}]}], "+", 
    RowBox[{"6", " ", "n2", " ", 
     RowBox[{"S", "[", 
      RowBox[{"2", ",", "2", ",", "1", ",", "3"}], "]"}]}], "+", 
    RowBox[{"6", " ", "n3", " ", 
     RowBox[{"S", "[", 
      RowBox[{"2", ",", "3", ",", "1", ",", "3"}], "]"}]}]}], ",", "0", ",", 
   RowBox[{
    RowBox[{"4", " ", "n1", " ", 
     RowBox[{"S", "[", 
      RowBox[{"1", ",", "2", ",", "1", ",", "2"}], "]"}]}], "+", 
    RowBox[{"4", " ", "n1", " ", 
     RowBox[{"S", "[", 
      RowBox[{"2", ",", "2", ",", "1", ",", "2"}], "]"}]}], "+", 
    RowBox[{"4", " ", "n2", " ", 
     RowBox[{"S", "[", 
      RowBox[{"2", ",", "2", ",", "1", ",", "2"}], "]"}]}], "+", 
    RowBox[{"4", " ", "n2", " ", 
     RowBox[{"S", "[", 
      RowBox[{"2", ",", "2", ",", "2", ",", "2"}], "]"}]}], "+", 
    RowBox[{"4", " ", "n3", " ", 
     RowBox[{"S", "[", 
      RowBox[{"2", ",", "2", ",", "2", ",", "3"}], "]"}]}], "+", 
    RowBox[{"4", " ", "n3", " ", 
     RowBox[{"S", "[", 
      RowBox[{"2", ",", "3", ",", "1", ",", "2"}], "]"}]}]}], ",", 
   RowBox[{
    RowBox[{"27", " ", "n2", " ", 
     RowBox[{"S", "[", 
      RowBox[{"2", ",", "2", ",", "2", ",", "3"}], "]"}]}], "+", 
    RowBox[{"27", " ", "n1", " ", 
     RowBox[{"S", "[", 
      RowBox[{"2", ",", "3", ",", "1", ",", "2"}], "]"}]}], "+", 
    RowBox[{"27", " ", "n3", " ", 
     RowBox[{"S", "[", 
      RowBox[{"2", ",", "3", ",", "2", ",", "3"}], "]"}]}]}], ",", 
   RowBox[{
    RowBox[{"2", " ", "n1", " ", 
     RowBox[{"S", "[", 
      RowBox[{"1", ",", "3", ",", "1", ",", "2"}], "]"}]}], "+", 
    RowBox[{"2", " ", "n2", " ", 
     RowBox[{"S", "[", 
      RowBox[{"2", ",", "2", ",", "1", ",", "3"}], "]"}]}], "+", 
    RowBox[{"2", " ", "n3", " ", 
     RowBox[{"S", "[", 
      RowBox[{"2", ",", "3", ",", "1", ",", "3"}], "]"}]}]}], ",", 
   RowBox[{
    RowBox[{"4", " ", "n2", " ", 
     RowBox[{"S", "[", 
      RowBox[{"2", ",", "2", ",", "2", ",", "3"}], "]"}]}], "+", 
    RowBox[{"4", " ", "n1", " ", 
     RowBox[{"S", "[", 
      RowBox[{"2", ",", "3", ",", "1", ",", "2"}], "]"}]}], "+", 
    RowBox[{"4", " ", "n3", " ", 
     RowBox[{"S", "[", 
      RowBox[{"2", ",", "3", ",", "2", ",", "3"}], "]"}]}]}], ",", 
   RowBox[{
    RowBox[{"27", " ", "n2", " ", 
     RowBox[{"S", "[", 
      RowBox[{"2", ",", "2", ",", "3", ",", "3"}], "]"}]}], "+", 
    RowBox[{"27", " ", "n1", " ", 
     RowBox[{"S", "[", 
      RowBox[{"3", ",", "3", ",", "1", ",", "2"}], "]"}]}], "+", 
    RowBox[{"27", " ", "n3", " ", 
     RowBox[{"S", "[", 
      RowBox[{"3", ",", "3", ",", "2", ",", "3"}], "]"}]}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.7000392162561736`*^9, 3.700039238496127*^9}, {
   3.700039325953406*^9, 3.7000393777030306`*^9}, 3.7000394268355207`*^9, 
   3.7000396265455046`*^9, {3.7000397899312363`*^9, 3.700039803983179*^9}, 
   3.700283898550288*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"2", " ", "n1", " ", 
     RowBox[{"S", "[", 
      RowBox[{"1", ",", "1", ",", "1", ",", "3"}], "]"}]}], "+", 
    RowBox[{"2", " ", "n2", " ", 
     RowBox[{"S", "[", 
      RowBox[{"1", ",", "1", ",", "2", ",", "3"}], "]"}]}], "+", 
    RowBox[{"2", " ", "n3", " ", 
     RowBox[{"S", "[", 
      RowBox[{"1", ",", "1", ",", "3", ",", "3"}], "]"}]}]}], ",", 
   RowBox[{
    RowBox[{"12", " ", "n1", " ", 
     RowBox[{"S", "[", 
      RowBox[{"1", ",", "3", ",", "1", ",", "2"}], "]"}]}], "+", 
    RowBox[{"12", " ", "n2", " ", 
     RowBox[{"S", "[", 
      RowBox[{"2", ",", "3", ",", "1", ",", "2"}], "]"}]}], "+", 
    RowBox[{"12", " ", "n3", " ", 
     RowBox[{"S", "[", 
      RowBox[{"3", ",", "3", ",", "1", ",", "2"}], "]"}]}]}], ",", 
   RowBox[{
    RowBox[{"6", " ", "n1", " ", 
     RowBox[{"S", "[", 
      RowBox[{"1", ",", "3", ",", "1", ",", "3"}], "]"}]}], "+", 
    RowBox[{"6", " ", "n2", " ", 
     RowBox[{"S", "[", 
      RowBox[{"2", ",", "3", ",", "1", ",", "3"}], "]"}]}], "+", 
    RowBox[{"6", " ", "n3", " ", 
     RowBox[{"S", "[", 
      RowBox[{"3", ",", "3", ",", "1", ",", "3"}], "]"}]}]}], ",", "0", ",", 
   RowBox[{
    RowBox[{"4", " ", "n1", " ", 
     RowBox[{"S", "[", 
      RowBox[{"1", ",", "3", ",", "1", ",", "2"}], "]"}]}], "+", 
    RowBox[{"4", " ", "n1", " ", 
     RowBox[{"S", "[", 
      RowBox[{"2", ",", "2", ",", "1", ",", "3"}], "]"}]}], "+", 
    RowBox[{"4", " ", "n2", " ", 
     RowBox[{"S", "[", 
      RowBox[{"2", ",", "2", ",", "2", ",", "3"}], "]"}]}], "+", 
    RowBox[{"4", " ", "n3", " ", 
     RowBox[{"S", "[", 
      RowBox[{"2", ",", "2", ",", "3", ",", "3"}], "]"}]}], "+", 
    RowBox[{"4", " ", "n2", " ", 
     RowBox[{"S", "[", 
      RowBox[{"2", ",", "3", ",", "1", ",", "2"}], "]"}]}], "+", 
    RowBox[{"4", " ", "n3", " ", 
     RowBox[{"S", "[", 
      RowBox[{"3", ",", "3", ",", "1", ",", "2"}], "]"}]}]}], ",", 
   RowBox[{
    RowBox[{"27", " ", "n1", " ", 
     RowBox[{"S", "[", 
      RowBox[{"2", ",", "3", ",", "1", ",", "3"}], "]"}]}], "+", 
    RowBox[{"27", " ", "n2", " ", 
     RowBox[{"S", "[", 
      RowBox[{"2", ",", "3", ",", "2", ",", "3"}], "]"}]}], "+", 
    RowBox[{"27", " ", "n3", " ", 
     RowBox[{"S", "[", 
      RowBox[{"3", ",", "3", ",", "2", ",", "3"}], "]"}]}]}], ",", 
   RowBox[{
    RowBox[{"2", " ", "n1", " ", 
     RowBox[{"S", "[", 
      RowBox[{"1", ",", "3", ",", "1", ",", "3"}], "]"}]}], "+", 
    RowBox[{"2", " ", "n2", " ", 
     RowBox[{"S", "[", 
      RowBox[{"2", ",", "3", ",", "1", ",", "3"}], "]"}]}], "+", 
    RowBox[{"2", " ", "n3", " ", 
     RowBox[{"S", "[", 
      RowBox[{"3", ",", "3", ",", "1", ",", "3"}], "]"}]}]}], ",", 
   RowBox[{
    RowBox[{"4", " ", "n1", " ", 
     RowBox[{"S", "[", 
      RowBox[{"2", ",", "3", ",", "1", ",", "3"}], "]"}]}], "+", 
    RowBox[{"4", " ", "n2", " ", 
     RowBox[{"S", "[", 
      RowBox[{"2", ",", "3", ",", "2", ",", "3"}], "]"}]}], "+", 
    RowBox[{"4", " ", "n3", " ", 
     RowBox[{"S", "[", 
      RowBox[{"3", ",", "3", ",", "2", ",", "3"}], "]"}]}]}], ",", 
   RowBox[{
    RowBox[{"27", " ", "n1", " ", 
     RowBox[{"S", "[", 
      RowBox[{"3", ",", "3", ",", "1", ",", "3"}], "]"}]}], "+", 
    RowBox[{"27", " ", "n2", " ", 
     RowBox[{"S", "[", 
      RowBox[{"3", ",", "3", ",", "2", ",", "3"}], "]"}]}], "+", 
    RowBox[{"27", " ", "n3", " ", 
     RowBox[{"S", "[", 
      RowBox[{"3", ",", "3", ",", "3", ",", "3"}], "]"}]}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.7000392162561736`*^9, 3.700039238496127*^9}, {
   3.700039325953406*^9, 3.7000393777030306`*^9}, 3.7000394268355207`*^9, 
   3.7000396265455046`*^9, {3.7000397899312363`*^9, 3.700039803983179*^9}, 
   3.700283898553636*^9}]
}, Open  ]],

Cell[" ", "Text",
 Editable->False,
 Selectable->False,
 CellFrame->{{0, 0}, {0, 2}},
 ShowCellBracket->False,
 CellMargins->{{0, 0}, {1, 1}},
 CellElementSpacings->{"CellMinHeight"->1},
 CellFrameMargins->0,
 CellFrameColor->RGBColor[0, 0, 1],
 CellSize->{Inherited, 4}]
}, Closed]],

Cell[CellGroupData[{

Cell["Milieu isotrope", "Title",
 CellChangeTimes->{{3.70028415358771*^9, 3.700284185227797*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"S", "[", 
     RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "]"}], " ", "=", " ", 
    RowBox[{"1", "/", "E"}]}], ";", " ", 
   RowBox[{
    RowBox[{"S", "[", 
     RowBox[{"1", ",", "1", ",", "2", ",", "2"}], "]"}], " ", "=", " ", 
    RowBox[{
     RowBox[{"-", "nu"}], "/", "E"}]}], ";", " ", 
   RowBox[{
    RowBox[{"S", "[", 
     RowBox[{"1", ",", "1", ",", "3", ",", "3"}], "]"}], " ", "=", " ", 
    RowBox[{
     RowBox[{"-", "nu"}], "/", "E"}]}], ";", " ", 
   RowBox[{
    RowBox[{"S", "[", 
     RowBox[{"1", ",", "1", ",", "2", ",", "3"}], "]"}], " ", "=", " ", "0"}],
    ";", " ", 
   RowBox[{
    RowBox[{"S", "[", 
     RowBox[{"1", ",", "1", ",", "1", ",", "3"}], "]"}], " ", "=", " ", "0"}],
    ";", " ", 
   RowBox[{
    RowBox[{"S", "[", 
     RowBox[{"1", ",", "1", ",", "1", ",", "2"}], "]"}], " ", "=", " ", "0"}],
    ";", " ", 
   RowBox[{
    RowBox[{"S", "[", 
     RowBox[{"2", ",", "2", ",", "2", ",", "2"}], "]"}], " ", "=", " ", 
    RowBox[{"1", "/", "E"}]}], ";", " ", 
   RowBox[{
    RowBox[{"S", "[", 
     RowBox[{"2", ",", "2", ",", "3", ",", "3"}], "]"}], " ", "=", " ", 
    RowBox[{
     RowBox[{"-", "nu"}], "/", "E"}]}], ";", " ", 
   RowBox[{
    RowBox[{"S", "[", 
     RowBox[{"2", ",", "2", ",", "2", ",", "3"}], "]"}], " ", "=", " ", "0"}],
    ";", " ", 
   RowBox[{
    RowBox[{"S", "[", 
     RowBox[{"2", ",", "2", ",", "1", ",", "3"}], "]"}], " ", "=", " ", "0"}],
    ";", 
   RowBox[{
    RowBox[{"S", "[", 
     RowBox[{"2", ",", "2", ",", "1", ",", "2"}], "]"}], " ", "=", " ", "0"}],
    ";"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"S", "[", 
    RowBox[{"3", ",", "3", ",", "3", ",", "3"}], "]"}], " ", "=", " ", 
   RowBox[{"1", "/", "E"}]}], ";", " ", 
  RowBox[{
   RowBox[{"S", "[", 
    RowBox[{"3", ",", "3", ",", "2", ",", "3"}], "]"}], " ", "=", " ", "0"}], 
  ";", " ", 
  RowBox[{
   RowBox[{"S", "[", 
    RowBox[{"3", ",", "3", ",", "1", ",", "3"}], "]"}], " ", "=", " ", "0"}], 
  ";", " ", 
  RowBox[{
   RowBox[{"S", "[", 
    RowBox[{"3", ",", "3", ",", "1", ",", "2"}], "]"}], " ", "=", " ", "0"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"S", "[", 
     RowBox[{"2", ",", "3", ",", "2", ",", "3"}], "]"}], " ", "=", " ", 
    RowBox[{"2", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "+", "nu"}], ")"}], "/", "E"}]}]}], ";", " ", 
   RowBox[{
    RowBox[{"S", "[", 
     RowBox[{"2", ",", "3", ",", "1", ",", "3"}], "]"}], " ", "=", " ", "0"}],
    ";", " ", 
   RowBox[{
    RowBox[{"S", "[", 
     RowBox[{"2", ",", "3", ",", "1", ",", "2"}], "]"}], "=", "0"}], ";", " ", 
   RowBox[{
    RowBox[{"S", "[", 
     RowBox[{"1", ",", "3", ",", "1", ",", "3"}], "]"}], "=", 
    RowBox[{"2", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "+", "nu"}], ")"}], "/", "E"}]}]}], ";", " ", 
   RowBox[{
    RowBox[{"S", "[", 
     RowBox[{"1", ",", "3", ",", "1", ",", "2"}], "]"}], " ", "=", " ", "0"}],
    ";", " ", 
   RowBox[{
    RowBox[{"S", "[", 
     RowBox[{"1", ",", "2", ",", "1", ",", "2"}], "]"}], " ", "=", " ", 
    RowBox[{"2", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "+", "nu"}], ")"}], "/", "E"}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "lambda", "]"}], ";", " ", 
  RowBox[{"Clear", "[", "mu", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"S", "[", 
     RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "]"}], " ", "=", " ", 
    RowBox[{"lambda", "+", 
     RowBox[{"2", "mu"}]}]}], ";", " ", 
   RowBox[{
    RowBox[{"S", "[", 
     RowBox[{"1", ",", "1", ",", "2", ",", "2"}], "]"}], " ", "=", " ", 
    "lambda"}], ";", " ", 
   RowBox[{
    RowBox[{"S", "[", 
     RowBox[{"1", ",", "1", ",", "3", ",", "3"}], "]"}], " ", "=", " ", 
    "lambda"}], ";", " ", 
   RowBox[{
    RowBox[{"S", "[", 
     RowBox[{"1", ",", "1", ",", "2", ",", "3"}], "]"}], " ", "=", " ", "0"}],
    ";", " ", 
   RowBox[{
    RowBox[{"S", "[", 
     RowBox[{"1", ",", "1", ",", "1", ",", "3"}], "]"}], " ", "=", " ", "0"}],
    ";", " ", 
   RowBox[{
    RowBox[{"S", "[", 
     RowBox[{"1", ",", "1", ",", "1", ",", "2"}], "]"}], " ", "=", " ", "0"}],
    ";", " ", 
   RowBox[{
    RowBox[{"S", "[", 
     RowBox[{"2", ",", "2", ",", "2", ",", "2"}], "]"}], " ", "=", " ", 
    RowBox[{"lambda", "+", 
     RowBox[{"2", "mu"}]}]}], ";", " ", 
   RowBox[{
    RowBox[{"S", "[", 
     RowBox[{"2", ",", "2", ",", "3", ",", "3"}], "]"}], " ", "=", " ", 
    "lambda"}], ";", " ", 
   RowBox[{
    RowBox[{"S", "[", 
     RowBox[{"2", ",", "2", ",", "2", ",", "3"}], "]"}], " ", "=", " ", "0"}],
    ";", " ", 
   RowBox[{
    RowBox[{"S", "[", 
     RowBox[{"2", ",", "2", ",", "1", ",", "3"}], "]"}], " ", "=", " ", "0"}],
    ";", 
   RowBox[{
    RowBox[{"S", "[", 
     RowBox[{"2", ",", "2", ",", "1", ",", "2"}], "]"}], " ", "=", " ", "0"}],
    ";"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"S", "[", 
    RowBox[{"3", ",", "3", ",", "3", ",", "3"}], "]"}], " ", "=", " ", 
   RowBox[{"lambda", "+", 
    RowBox[{"2", "mu"}]}]}], ";", " ", 
  RowBox[{
   RowBox[{"S", "[", 
    RowBox[{"3", ",", "3", ",", "2", ",", "3"}], "]"}], " ", "=", " ", "0"}], 
  ";", " ", 
  RowBox[{
   RowBox[{"S", "[", 
    RowBox[{"3", ",", "3", ",", "1", ",", "3"}], "]"}], " ", "=", " ", "0"}], 
  ";", " ", 
  RowBox[{
   RowBox[{"S", "[", 
    RowBox[{"3", ",", "3", ",", "1", ",", "2"}], "]"}], " ", "=", " ", "0"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"S", "[", 
    RowBox[{"2", ",", "3", ",", "2", ",", "3"}], "]"}], " ", "=", " ", "mu"}],
   ";", " ", 
  RowBox[{
   RowBox[{"S", "[", 
    RowBox[{"2", ",", "3", ",", "1", ",", "3"}], "]"}], " ", "=", " ", "0"}], 
  ";", " ", 
  RowBox[{
   RowBox[{"S", "[", 
    RowBox[{"2", ",", "3", ",", "1", ",", "2"}], "]"}], "=", "0"}], ";", " ", 
  RowBox[{
   RowBox[{"S", "[", 
    RowBox[{"1", ",", "3", ",", "1", ",", "3"}], "]"}], "=", "mu"}], ";", " ", 
  RowBox[{
   RowBox[{"S", "[", 
    RowBox[{"1", ",", "3", ",", "1", ",", "2"}], "]"}], " ", "=", " ", "0"}], 
  ";", " ", 
  RowBox[{
   RowBox[{"S", "[", 
    RowBox[{"1", ",", "2", ",", "1", ",", "2"}], "]"}], " ", "=", " ", "mu"}],
   ";"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.700284279624488*^9, 3.700284299276637*^9}, {
  3.700284502358081*^9, 3.700284593502226*^9}, {3.700284633342396*^9, 
  3.700284853943362*^9}, {3.700284884303686*^9, 3.700284985295933*^9}, {
  3.700286940680784*^9, 3.70028700605723*^9}, {3.700287039066587*^9, 
  3.700287085337524*^9}, {3.700359528640439*^9, 3.700359534152156*^9}, {
  3.700371980045533*^9, 3.700371999093717*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"SS", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "1", ",", "1", ",", "2"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "1", ",", "1", ",", "3"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "1", ",", "1", ",", "2"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "1", ",", "2", ",", "2"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "1", ",", "2", ",", "3"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "1", ",", "1", ",", "3"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "1", ",", "2", ",", "3"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "1", ",", "3", ",", "3"}], "]"}]}], "}"}]}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "1", ",", "1", ",", "2"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "2", ",", "1", ",", "2"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "3", ",", "1", ",", "2"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "2", ",", "1", ",", "2"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "2", ",", "1", ",", "2"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "3", ",", "1", ",", "2"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "3", ",", "1", ",", "2"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "3", ",", "1", ",", "2"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"3", ",", "3", ",", "1", ",", "2"}], "]"}]}], "}"}]}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "1", ",", "1", ",", "3"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "3", ",", "1", ",", "2"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "3", ",", "1", ",", "3"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "3", ",", "1", ",", "2"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "2", ",", "1", ",", "3"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "3", ",", "1", ",", "3"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "3", ",", "1", ",", "3"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "3", ",", "1", ",", "3"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"3", ",", "3", ",", "1", ",", "3"}], "]"}]}], "}"}]}], 
        "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "1", ",", "1", ",", "2"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "2", ",", "1", ",", "2"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "3", ",", "1", ",", "2"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "2", ",", "1", ",", "2"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "2", ",", "1", ",", "2"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "3", ",", "1", ",", "2"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "3", ",", "1", ",", "2"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "3", ",", "1", ",", "2"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"3", ",", "3", ",", "1", ",", "2"}], "]"}]}], "}"}]}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "1", ",", "2", ",", "2"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "2", ",", "1", ",", "2"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "2", ",", "1", ",", "3"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "2", ",", "1", ",", "2"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "2", ",", "2", ",", "2"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "2", ",", "2", ",", "3"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "2", ",", "1", ",", "3"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "2", ",", "2", ",", "3"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "2", ",", "3", ",", "3"}], "]"}]}], "}"}]}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "1", ",", "2", ",", "3"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "3", ",", "1", ",", "2"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "3", ",", "1", ",", "3"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "3", ",", "1", ",", "2"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "2", ",", "2", ",", "3"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "3", ",", "2", ",", "3"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "3", ",", "1", ",", "3"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "3", ",", "2", ",", "3"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"3", ",", "3", ",", "2", ",", "3"}], "]"}]}], "}"}]}], 
        "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "1", ",", "1", ",", "3"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "3", ",", "1", ",", "2"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "3", ",", "1", ",", "3"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "3", ",", "1", ",", "2"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "2", ",", "1", ",", "3"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "3", ",", "1", ",", "3"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "3", ",", "1", ",", "3"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "3", ",", "1", ",", "3"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"3", ",", "3", ",", "1", ",", "3"}], "]"}]}], "}"}]}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "1", ",", "2", ",", "3"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "3", ",", "1", ",", "2"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "3", ",", "1", ",", "3"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "3", ",", "1", ",", "2"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "2", ",", "2", ",", "3"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "3", ",", "2", ",", "3"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "3", ",", "1", ",", "3"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "3", ",", "2", ",", "3"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"3", ",", "3", ",", "2", ",", "3"}], "]"}]}], "}"}]}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"1", ",", "1", ",", "3", ",", "3"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"3", ",", "3", ",", "1", ",", "2"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"3", ",", "3", ",", "1", ",", "3"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"3", ",", "3", ",", "1", ",", "2"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "2", ",", "3", ",", "3"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"3", ",", "3", ",", "2", ",", "3"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"3", ",", "3", ",", "1", ",", "3"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"3", ",", "3", ",", "2", ",", "3"}], "]"}], ",", 
           RowBox[{"S", "[", 
            RowBox[{"3", ",", "3", ",", "3", ",", "3"}], "]"}]}], "}"}]}], 
        "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{3.70028431311158*^9, 3.7002843721601267`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Voigt", "[", "SS", "]"}], "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.700284376045019*^9, 3.700284377893154*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"lambda", "+", 
       RowBox[{"2", " ", "mu"}]}], "lambda", "lambda", "0", "0", "0"},
     {"lambda", 
      RowBox[{"lambda", "+", 
       RowBox[{"2", " ", "mu"}]}], "lambda", "0", "0", "0"},
     {"lambda", "lambda", 
      RowBox[{"lambda", "+", 
       RowBox[{"2", " ", "mu"}]}], "0", "0", "0"},
     {"0", "0", "0", "mu", "0", "0"},
     {"0", "0", "0", "0", "mu", "0"},
     {"0", "0", "0", "0", "0", "mu"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.700284390690391*^9, 3.700284586605336*^9, {3.700284644085248*^9, 
   3.700284655174264*^9}, {3.700284772910062*^9, 3.700284791490727*^9}, 
   3.7002848659384108`*^9, 3.7002849903036833`*^9, 3.700287014809888*^9, 
   3.70028709210224*^9, 3.700290757609436*^9, 3.700302363627836*^9, 
   3.70035885359752*^9, 3.700359538681609*^9, 3.70037200256743*^9, 
   3.7003900138627987`*^9, 3.700445747758687*^9, 3.7004794037200737`*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "k", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "z", "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.700299410963174*^9, 3.700299467360326*^9}, {
  3.700299528248946*^9, 3.7002995516807137`*^9}, {3.700301101087645*^9, 
  3.70030110633563*^9}, {3.700358700379321*^9, 3.7003587005550137`*^9}, {
  3.7003719463367023`*^9, 3.700371947452424*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"ux", "[", 
    RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], ":=", 
   RowBox[{"Sum", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"a", "[", 
       RowBox[{"i", ",", "j", ",", "p"}], "]"}], 
      SuperscriptBox[
       RowBox[{"x", " "}], "i"], " ", 
      SuperscriptBox[
       RowBox[{"y", " "}], "j"], " ", 
      SuperscriptBox[
       RowBox[{"z", " "}], "p"]}], " ", ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "0", ",", "k"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "0", ",", "k"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"p", ",", "0", ",", "k"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"uy", "[", 
    RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], ":=", 
   RowBox[{"Sum", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"b", "[", 
       RowBox[{"i", ",", "j", ",", "p"}], "]"}], 
      SuperscriptBox[
       RowBox[{"x", " "}], "i"], " ", 
      SuperscriptBox[
       RowBox[{"y", " "}], "j"], " ", 
      SuperscriptBox[
       RowBox[{"z", " "}], "p"]}], " ", ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "0", ",", "k"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "0", ",", "k"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"p", ",", "0", ",", "k"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"uz", "[", 
    RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], ":=", 
   RowBox[{"Sum", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"c", "[", 
       RowBox[{"i", ",", "j", ",", "p"}], "]"}], 
      SuperscriptBox[
       RowBox[{"x", " "}], "i"], " ", 
      SuperscriptBox[
       RowBox[{"y", " "}], "j"], " ", 
      SuperscriptBox[
       RowBox[{"z", " "}], "p"]}], " ", ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "0", ",", "k"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "0", ",", "k"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"p", ",", "0", ",", "k"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ux", "[", 
   RowBox[{"x", ",", "y", ",", "z"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SuperscriptBox["ux", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"x", ",", "y", ",", "z"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Grad", "[", 
   RowBox[{
    RowBox[{"ux", "[", 
     RowBox[{"x", ",", "y", ",", "z"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"FullSimplify", "[", "gradu", "]"}], "//", "MatrixForm"}], 
  ";"}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGCQAGIQveip1IvdE187Cj3Y8QpEMyk8fg+iJZgz/4PoR8W7
WfaAxEO3sYJojqgznCD66UUtLhAtNyebH0SLnJUTANF6Sd/FQXSQ4CoJEL2o
81cYiHbL9U4A0R9c+1JAdL9rfiqITrt5LA9EM3wWKQTR1Zm80/YB6T1boqeD
6FP7n80G0dcmTp0Loie7930G0RzyqV9AtMi0CX9B9DKrNYz7Qeo3P80F0S9d
4vNAtNChE0Uguiz6YCmI5uqPmQ+iPaTrwXR4juImEL3nidYuEH1POvYciP7k
43oRRM+YFX0TRBfu4rkFotdWed8H0QJ7rj8H0SkndTYdBIXDbNZtIJrt09Wo
Q0D6+OqEOBC9QKV/MYi+af90KYjeU3wv9iiQ/nOsJw5EAwC7Gdjb
  "]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"FullSimplify", "[", "\[Epsilon]0", "]"}], "//", 
  "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.70028635715676*^9, 3.7002863579571877`*^9}, 
   3.700286402318143*^9}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       UnderoverscriptBox["\[Sum]", 
        RowBox[{"i", "=", "0"}], "k"], 
       RowBox[{
        UnderoverscriptBox["\[Sum]", 
         RowBox[{"j", "=", "0"}], "k"], 
        RowBox[{
         UnderoverscriptBox["\[Sum]", 
          RowBox[{"p", "=", "0"}], "k"], 
         RowBox[{"i", " ", 
          SuperscriptBox["x", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "i"}]], " ", 
          SuperscriptBox["y", "j"], " ", 
          SuperscriptBox["z", "p"], " ", 
          RowBox[{"a", "[", 
           RowBox[{"i", ",", "j", ",", "p"}], "]"}]}]}]}]}], 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          UnderoverscriptBox["\[Sum]", 
           RowBox[{"i", "=", "0"}], "k"], 
          RowBox[{
           UnderoverscriptBox["\[Sum]", 
            RowBox[{"j", "=", "0"}], "k"], 
           RowBox[{
            UnderoverscriptBox["\[Sum]", 
             RowBox[{"p", "=", "0"}], "k"], 
            RowBox[{"j", " ", 
             SuperscriptBox["x", "i"], " ", 
             SuperscriptBox["y", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "j"}]], " ", 
             SuperscriptBox["z", "p"], " ", 
             RowBox[{"a", "[", 
              RowBox[{"i", ",", "j", ",", "p"}], "]"}]}]}]}]}], "+", 
         RowBox[{
          UnderoverscriptBox["\[Sum]", 
           RowBox[{"i", "=", "0"}], "k"], 
          RowBox[{
           UnderoverscriptBox["\[Sum]", 
            RowBox[{"j", "=", "0"}], "k"], 
           RowBox[{
            UnderoverscriptBox["\[Sum]", 
             RowBox[{"p", "=", "0"}], "k"], 
            RowBox[{"i", " ", 
             SuperscriptBox["x", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "i"}]], " ", 
             SuperscriptBox["y", "j"], " ", 
             SuperscriptBox["z", "p"], " ", 
             RowBox[{"b", "[", 
              RowBox[{"i", ",", "j", ",", "p"}], "]"}]}]}]}]}]}], ")"}]}], 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          UnderoverscriptBox["\[Sum]", 
           RowBox[{"i", "=", "0"}], "k"], 
          RowBox[{
           UnderoverscriptBox["\[Sum]", 
            RowBox[{"j", "=", "0"}], "k"], 
           RowBox[{
            UnderoverscriptBox["\[Sum]", 
             RowBox[{"p", "=", "0"}], "k"], 
            RowBox[{"p", " ", 
             SuperscriptBox["x", "i"], " ", 
             SuperscriptBox["y", "j"], " ", 
             SuperscriptBox["z", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "p"}]], " ", 
             RowBox[{"a", "[", 
              RowBox[{"i", ",", "j", ",", "p"}], "]"}]}]}]}]}], "+", 
         RowBox[{
          UnderoverscriptBox["\[Sum]", 
           RowBox[{"i", "=", "0"}], "k"], 
          RowBox[{
           UnderoverscriptBox["\[Sum]", 
            RowBox[{"j", "=", "0"}], "k"], 
           RowBox[{
            UnderoverscriptBox["\[Sum]", 
             RowBox[{"p", "=", "0"}], "k"], 
            RowBox[{"i", " ", 
             SuperscriptBox["x", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "i"}]], " ", 
             SuperscriptBox["y", "j"], " ", 
             SuperscriptBox["z", "p"], " ", 
             RowBox[{"c", "[", 
              RowBox[{"i", ",", "j", ",", "p"}], "]"}]}]}]}]}]}], ")"}]}]},
     {
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          UnderoverscriptBox["\[Sum]", 
           RowBox[{"i", "=", "0"}], "k"], 
          RowBox[{
           UnderoverscriptBox["\[Sum]", 
            RowBox[{"j", "=", "0"}], "k"], 
           RowBox[{
            UnderoverscriptBox["\[Sum]", 
             RowBox[{"p", "=", "0"}], "k"], 
            RowBox[{"j", " ", 
             SuperscriptBox["x", "i"], " ", 
             SuperscriptBox["y", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "j"}]], " ", 
             SuperscriptBox["z", "p"], " ", 
             RowBox[{"a", "[", 
              RowBox[{"i", ",", "j", ",", "p"}], "]"}]}]}]}]}], "+", 
         RowBox[{
          UnderoverscriptBox["\[Sum]", 
           RowBox[{"i", "=", "0"}], "k"], 
          RowBox[{
           UnderoverscriptBox["\[Sum]", 
            RowBox[{"j", "=", "0"}], "k"], 
           RowBox[{
            UnderoverscriptBox["\[Sum]", 
             RowBox[{"p", "=", "0"}], "k"], 
            RowBox[{"i", " ", 
             SuperscriptBox["x", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "i"}]], " ", 
             SuperscriptBox["y", "j"], " ", 
             SuperscriptBox["z", "p"], " ", 
             RowBox[{"b", "[", 
              RowBox[{"i", ",", "j", ",", "p"}], "]"}]}]}]}]}]}], ")"}]}], 
      RowBox[{
       UnderoverscriptBox["\[Sum]", 
        RowBox[{"i", "=", "0"}], "k"], 
       RowBox[{
        UnderoverscriptBox["\[Sum]", 
         RowBox[{"j", "=", "0"}], "k"], 
        RowBox[{
         UnderoverscriptBox["\[Sum]", 
          RowBox[{"p", "=", "0"}], "k"], 
         RowBox[{"j", " ", 
          SuperscriptBox["x", "i"], " ", 
          SuperscriptBox["y", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "j"}]], " ", 
          SuperscriptBox["z", "p"], " ", 
          RowBox[{"b", "[", 
           RowBox[{"i", ",", "j", ",", "p"}], "]"}]}]}]}]}], 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          UnderoverscriptBox["\[Sum]", 
           RowBox[{"i", "=", "0"}], "k"], 
          RowBox[{
           UnderoverscriptBox["\[Sum]", 
            RowBox[{"j", "=", "0"}], "k"], 
           RowBox[{
            UnderoverscriptBox["\[Sum]", 
             RowBox[{"p", "=", "0"}], "k"], 
            RowBox[{"p", " ", 
             SuperscriptBox["x", "i"], " ", 
             SuperscriptBox["y", "j"], " ", 
             SuperscriptBox["z", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "p"}]], " ", 
             RowBox[{"b", "[", 
              RowBox[{"i", ",", "j", ",", "p"}], "]"}]}]}]}]}], "+", 
         RowBox[{
          UnderoverscriptBox["\[Sum]", 
           RowBox[{"i", "=", "0"}], "k"], 
          RowBox[{
           UnderoverscriptBox["\[Sum]", 
            RowBox[{"j", "=", "0"}], "k"], 
           RowBox[{
            UnderoverscriptBox["\[Sum]", 
             RowBox[{"p", "=", "0"}], "k"], 
            RowBox[{"j", " ", 
             SuperscriptBox["x", "i"], " ", 
             SuperscriptBox["y", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "j"}]], " ", 
             SuperscriptBox["z", "p"], " ", 
             RowBox[{"c", "[", 
              RowBox[{"i", ",", "j", ",", "p"}], "]"}]}]}]}]}]}], ")"}]}]},
     {
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          UnderoverscriptBox["\[Sum]", 
           RowBox[{"i", "=", "0"}], "k"], 
          RowBox[{
           UnderoverscriptBox["\[Sum]", 
            RowBox[{"j", "=", "0"}], "k"], 
           RowBox[{
            UnderoverscriptBox["\[Sum]", 
             RowBox[{"p", "=", "0"}], "k"], 
            RowBox[{"p", " ", 
             SuperscriptBox["x", "i"], " ", 
             SuperscriptBox["y", "j"], " ", 
             SuperscriptBox["z", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "p"}]], " ", 
             RowBox[{"a", "[", 
              RowBox[{"i", ",", "j", ",", "p"}], "]"}]}]}]}]}], "+", 
         RowBox[{
          UnderoverscriptBox["\[Sum]", 
           RowBox[{"i", "=", "0"}], "k"], 
          RowBox[{
           UnderoverscriptBox["\[Sum]", 
            RowBox[{"j", "=", "0"}], "k"], 
           RowBox[{
            UnderoverscriptBox["\[Sum]", 
             RowBox[{"p", "=", "0"}], "k"], 
            RowBox[{"i", " ", 
             SuperscriptBox["x", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "i"}]], " ", 
             SuperscriptBox["y", "j"], " ", 
             SuperscriptBox["z", "p"], " ", 
             RowBox[{"c", "[", 
              RowBox[{"i", ",", "j", ",", "p"}], "]"}]}]}]}]}]}], ")"}]}], 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          UnderoverscriptBox["\[Sum]", 
           RowBox[{"i", "=", "0"}], "k"], 
          RowBox[{
           UnderoverscriptBox["\[Sum]", 
            RowBox[{"j", "=", "0"}], "k"], 
           RowBox[{
            UnderoverscriptBox["\[Sum]", 
             RowBox[{"p", "=", "0"}], "k"], 
            RowBox[{"p", " ", 
             SuperscriptBox["x", "i"], " ", 
             SuperscriptBox["y", "j"], " ", 
             SuperscriptBox["z", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "p"}]], " ", 
             RowBox[{"b", "[", 
              RowBox[{"i", ",", "j", ",", "p"}], "]"}]}]}]}]}], "+", 
         RowBox[{
          UnderoverscriptBox["\[Sum]", 
           RowBox[{"i", "=", "0"}], "k"], 
          RowBox[{
           UnderoverscriptBox["\[Sum]", 
            RowBox[{"j", "=", "0"}], "k"], 
           RowBox[{
            UnderoverscriptBox["\[Sum]", 
             RowBox[{"p", "=", "0"}], "k"], 
            RowBox[{"j", " ", 
             SuperscriptBox["x", "i"], " ", 
             SuperscriptBox["y", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "j"}]], " ", 
             SuperscriptBox["z", "p"], " ", 
             RowBox[{"c", "[", 
              RowBox[{"i", ",", "j", ",", "p"}], "]"}]}]}]}]}]}], ")"}]}], 
      RowBox[{
       UnderoverscriptBox["\[Sum]", 
        RowBox[{"i", "=", "0"}], "k"], 
       RowBox[{
        UnderoverscriptBox["\[Sum]", 
         RowBox[{"j", "=", "0"}], "k"], 
        RowBox[{
         UnderoverscriptBox["\[Sum]", 
          RowBox[{"p", "=", "0"}], "k"], 
         RowBox[{"p", " ", 
          SuperscriptBox["x", "i"], " ", 
          SuperscriptBox["y", "j"], " ", 
          SuperscriptBox["z", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "p"}]], " ", 
          RowBox[{"c", "[", 
           RowBox[{"i", ",", "j", ",", "p"}], "]"}]}]}]}]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.700286408896852*^9, 3.70028710421621*^9, 
  3.7002914776527233`*^9, 3.70029150924538*^9, 3.700291627930086*^9, 
  3.7002934506195*^9, 3.7002971609415407`*^9, 3.700299024695608*^9, 
  3.7002990640471888`*^9, 3.700299664923196*^9, 3.700300171187517*^9, 
  3.700301056902701*^9, 3.70030224120289*^9, 3.700302278412478*^9, 
  3.700302383809811*^9, 3.700304070307384*^9, 3.700304636765452*^9, 
  3.700304788334565*^9, 3.700358863563505*^9, 3.7003590225193872`*^9, 
  3.700359545252626*^9, 3.7003719512960176`*^9, 3.70037200707491*^9, 
  3.7003900178775597`*^9, 3.700445755791483*^9, 3.700479410371285*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Sigma]0", "=", 
   RowBox[{
    RowBox[{"Double42", "[", 
     RowBox[{"SS", ",", "\[Epsilon]0", ",", "\[Epsilon]0"}], "]"}], "//", 
    "Simplify"}]}], ";", 
  RowBox[{"\[Sigma]0", "//", "MatrixForm"}]}]], "Input"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"lambda", "+", 
          RowBox[{"2", " ", "mu"}]}], ")"}], " ", 
        RowBox[{
         UnderoverscriptBox["\[Sum]", 
          RowBox[{"i", "=", "0"}], "k"], 
         RowBox[{
          UnderoverscriptBox["\[Sum]", 
           RowBox[{"j", "=", "0"}], "k"], 
          RowBox[{
           UnderoverscriptBox["\[Sum]", 
            RowBox[{"p", "=", "0"}], "k"], 
           RowBox[{"i", " ", 
            SuperscriptBox["x", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "i"}]], " ", 
            SuperscriptBox["y", "j"], " ", 
            SuperscriptBox["z", "p"], " ", 
            RowBox[{"a", "[", 
             RowBox[{"i", ",", "j", ",", "p"}], "]"}]}]}]}]}]}], "+", 
       RowBox[{"lambda", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           UnderoverscriptBox["\[Sum]", 
            RowBox[{"i", "=", "0"}], "k"], 
           RowBox[{
            UnderoverscriptBox["\[Sum]", 
             RowBox[{"j", "=", "0"}], "k"], 
            RowBox[{
             UnderoverscriptBox["\[Sum]", 
              RowBox[{"p", "=", "0"}], "k"], 
             RowBox[{"j", " ", 
              SuperscriptBox["x", "i"], " ", 
              SuperscriptBox["y", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "j"}]], " ", 
              SuperscriptBox["z", "p"], " ", 
              RowBox[{"b", "[", 
               RowBox[{"i", ",", "j", ",", "p"}], "]"}]}]}]}]}], "+", 
          RowBox[{
           UnderoverscriptBox["\[Sum]", 
            RowBox[{"i", "=", "0"}], "k"], 
           RowBox[{
            UnderoverscriptBox["\[Sum]", 
             RowBox[{"j", "=", "0"}], "k"], 
            RowBox[{
             UnderoverscriptBox["\[Sum]", 
              RowBox[{"p", "=", "0"}], "k"], 
             RowBox[{"p", " ", 
              SuperscriptBox["x", "i"], " ", 
              SuperscriptBox["y", "j"], " ", 
              SuperscriptBox["z", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "p"}]], " ", 
              RowBox[{"c", "[", 
               RowBox[{"i", ",", "j", ",", "p"}], "]"}]}]}]}]}]}], ")"}]}]}], 
      RowBox[{"mu", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          UnderoverscriptBox["\[Sum]", 
           RowBox[{"i", "=", "0"}], "k"], 
          RowBox[{
           UnderoverscriptBox["\[Sum]", 
            RowBox[{"j", "=", "0"}], "k"], 
           RowBox[{
            UnderoverscriptBox["\[Sum]", 
             RowBox[{"p", "=", "0"}], "k"], 
            RowBox[{"j", " ", 
             SuperscriptBox["x", "i"], " ", 
             SuperscriptBox["y", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "j"}]], " ", 
             SuperscriptBox["z", "p"], " ", 
             RowBox[{"a", "[", 
              RowBox[{"i", ",", "j", ",", "p"}], "]"}]}]}]}]}], "+", 
         RowBox[{
          UnderoverscriptBox["\[Sum]", 
           RowBox[{"i", "=", "0"}], "k"], 
          RowBox[{
           UnderoverscriptBox["\[Sum]", 
            RowBox[{"j", "=", "0"}], "k"], 
           RowBox[{
            UnderoverscriptBox["\[Sum]", 
             RowBox[{"p", "=", "0"}], "k"], 
            RowBox[{"i", " ", 
             SuperscriptBox["x", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "i"}]], " ", 
             SuperscriptBox["y", "j"], " ", 
             SuperscriptBox["z", "p"], " ", 
             RowBox[{"b", "[", 
              RowBox[{"i", ",", "j", ",", "p"}], "]"}]}]}]}]}]}], ")"}]}], 
      RowBox[{"mu", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          UnderoverscriptBox["\[Sum]", 
           RowBox[{"i", "=", "0"}], "k"], 
          RowBox[{
           UnderoverscriptBox["\[Sum]", 
            RowBox[{"j", "=", "0"}], "k"], 
           RowBox[{
            UnderoverscriptBox["\[Sum]", 
             RowBox[{"p", "=", "0"}], "k"], 
            RowBox[{"p", " ", 
             SuperscriptBox["x", "i"], " ", 
             SuperscriptBox["y", "j"], " ", 
             SuperscriptBox["z", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "p"}]], " ", 
             RowBox[{"a", "[", 
              RowBox[{"i", ",", "j", ",", "p"}], "]"}]}]}]}]}], "+", 
         RowBox[{
          UnderoverscriptBox["\[Sum]", 
           RowBox[{"i", "=", "0"}], "k"], 
          RowBox[{
           UnderoverscriptBox["\[Sum]", 
            RowBox[{"j", "=", "0"}], "k"], 
           RowBox[{
            UnderoverscriptBox["\[Sum]", 
             RowBox[{"p", "=", "0"}], "k"], 
            RowBox[{"i", " ", 
             SuperscriptBox["x", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "i"}]], " ", 
             SuperscriptBox["y", "j"], " ", 
             SuperscriptBox["z", "p"], " ", 
             RowBox[{"c", "[", 
              RowBox[{"i", ",", "j", ",", "p"}], "]"}]}]}]}]}]}], ")"}]}]},
     {
      RowBox[{"mu", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          UnderoverscriptBox["\[Sum]", 
           RowBox[{"i", "=", "0"}], "k"], 
          RowBox[{
           UnderoverscriptBox["\[Sum]", 
            RowBox[{"j", "=", "0"}], "k"], 
           RowBox[{
            UnderoverscriptBox["\[Sum]", 
             RowBox[{"p", "=", "0"}], "k"], 
            RowBox[{"j", " ", 
             SuperscriptBox["x", "i"], " ", 
             SuperscriptBox["y", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "j"}]], " ", 
             SuperscriptBox["z", "p"], " ", 
             RowBox[{"a", "[", 
              RowBox[{"i", ",", "j", ",", "p"}], "]"}]}]}]}]}], "+", 
         RowBox[{
          UnderoverscriptBox["\[Sum]", 
           RowBox[{"i", "=", "0"}], "k"], 
          RowBox[{
           UnderoverscriptBox["\[Sum]", 
            RowBox[{"j", "=", "0"}], "k"], 
           RowBox[{
            UnderoverscriptBox["\[Sum]", 
             RowBox[{"p", "=", "0"}], "k"], 
            RowBox[{"i", " ", 
             SuperscriptBox["x", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "i"}]], " ", 
             SuperscriptBox["y", "j"], " ", 
             SuperscriptBox["z", "p"], " ", 
             RowBox[{"b", "[", 
              RowBox[{"i", ",", "j", ",", "p"}], "]"}]}]}]}]}]}], ")"}]}], 
      RowBox[{
       RowBox[{"lambda", " ", 
        RowBox[{
         UnderoverscriptBox["\[Sum]", 
          RowBox[{"i", "=", "0"}], "k"], 
         RowBox[{
          UnderoverscriptBox["\[Sum]", 
           RowBox[{"j", "=", "0"}], "k"], 
          RowBox[{
           UnderoverscriptBox["\[Sum]", 
            RowBox[{"p", "=", "0"}], "k"], 
           RowBox[{"i", " ", 
            SuperscriptBox["x", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "i"}]], " ", 
            SuperscriptBox["y", "j"], " ", 
            SuperscriptBox["z", "p"], " ", 
            RowBox[{"a", "[", 
             RowBox[{"i", ",", "j", ",", "p"}], "]"}]}]}]}]}]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"lambda", "+", 
          RowBox[{"2", " ", "mu"}]}], ")"}], " ", 
        RowBox[{
         UnderoverscriptBox["\[Sum]", 
          RowBox[{"i", "=", "0"}], "k"], 
         RowBox[{
          UnderoverscriptBox["\[Sum]", 
           RowBox[{"j", "=", "0"}], "k"], 
          RowBox[{
           UnderoverscriptBox["\[Sum]", 
            RowBox[{"p", "=", "0"}], "k"], 
           RowBox[{"j", " ", 
            SuperscriptBox["x", "i"], " ", 
            SuperscriptBox["y", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "j"}]], " ", 
            SuperscriptBox["z", "p"], " ", 
            RowBox[{"b", "[", 
             RowBox[{"i", ",", "j", ",", "p"}], "]"}]}]}]}]}]}], "+", 
       RowBox[{"lambda", " ", 
        RowBox[{
         UnderoverscriptBox["\[Sum]", 
          RowBox[{"i", "=", "0"}], "k"], 
         RowBox[{
          UnderoverscriptBox["\[Sum]", 
           RowBox[{"j", "=", "0"}], "k"], 
          RowBox[{
           UnderoverscriptBox["\[Sum]", 
            RowBox[{"p", "=", "0"}], "k"], 
           RowBox[{"p", " ", 
            SuperscriptBox["x", "i"], " ", 
            SuperscriptBox["y", "j"], " ", 
            SuperscriptBox["z", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "p"}]], " ", 
            RowBox[{"c", "[", 
             RowBox[{"i", ",", "j", ",", "p"}], "]"}]}]}]}]}]}]}], 
      RowBox[{"mu", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          UnderoverscriptBox["\[Sum]", 
           RowBox[{"i", "=", "0"}], "k"], 
          RowBox[{
           UnderoverscriptBox["\[Sum]", 
            RowBox[{"j", "=", "0"}], "k"], 
           RowBox[{
            UnderoverscriptBox["\[Sum]", 
             RowBox[{"p", "=", "0"}], "k"], 
            RowBox[{"p", " ", 
             SuperscriptBox["x", "i"], " ", 
             SuperscriptBox["y", "j"], " ", 
             SuperscriptBox["z", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "p"}]], " ", 
             RowBox[{"b", "[", 
              RowBox[{"i", ",", "j", ",", "p"}], "]"}]}]}]}]}], "+", 
         RowBox[{
          UnderoverscriptBox["\[Sum]", 
           RowBox[{"i", "=", "0"}], "k"], 
          RowBox[{
           UnderoverscriptBox["\[Sum]", 
            RowBox[{"j", "=", "0"}], "k"], 
           RowBox[{
            UnderoverscriptBox["\[Sum]", 
             RowBox[{"p", "=", "0"}], "k"], 
            RowBox[{"j", " ", 
             SuperscriptBox["x", "i"], " ", 
             SuperscriptBox["y", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "j"}]], " ", 
             SuperscriptBox["z", "p"], " ", 
             RowBox[{"c", "[", 
              RowBox[{"i", ",", "j", ",", "p"}], "]"}]}]}]}]}]}], ")"}]}]},
     {
      RowBox[{"mu", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          UnderoverscriptBox["\[Sum]", 
           RowBox[{"i", "=", "0"}], "k"], 
          RowBox[{
           UnderoverscriptBox["\[Sum]", 
            RowBox[{"j", "=", "0"}], "k"], 
           RowBox[{
            UnderoverscriptBox["\[Sum]", 
             RowBox[{"p", "=", "0"}], "k"], 
            RowBox[{"p", " ", 
             SuperscriptBox["x", "i"], " ", 
             SuperscriptBox["y", "j"], " ", 
             SuperscriptBox["z", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "p"}]], " ", 
             RowBox[{"a", "[", 
              RowBox[{"i", ",", "j", ",", "p"}], "]"}]}]}]}]}], "+", 
         RowBox[{
          UnderoverscriptBox["\[Sum]", 
           RowBox[{"i", "=", "0"}], "k"], 
          RowBox[{
           UnderoverscriptBox["\[Sum]", 
            RowBox[{"j", "=", "0"}], "k"], 
           RowBox[{
            UnderoverscriptBox["\[Sum]", 
             RowBox[{"p", "=", "0"}], "k"], 
            RowBox[{"i", " ", 
             SuperscriptBox["x", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "i"}]], " ", 
             SuperscriptBox["y", "j"], " ", 
             SuperscriptBox["z", "p"], " ", 
             RowBox[{"c", "[", 
              RowBox[{"i", ",", "j", ",", "p"}], "]"}]}]}]}]}]}], ")"}]}], 
      RowBox[{"mu", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          UnderoverscriptBox["\[Sum]", 
           RowBox[{"i", "=", "0"}], "k"], 
          RowBox[{
           UnderoverscriptBox["\[Sum]", 
            RowBox[{"j", "=", "0"}], "k"], 
           RowBox[{
            UnderoverscriptBox["\[Sum]", 
             RowBox[{"p", "=", "0"}], "k"], 
            RowBox[{"p", " ", 
             SuperscriptBox["x", "i"], " ", 
             SuperscriptBox["y", "j"], " ", 
             SuperscriptBox["z", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "p"}]], " ", 
             RowBox[{"b", "[", 
              RowBox[{"i", ",", "j", ",", "p"}], "]"}]}]}]}]}], "+", 
         RowBox[{
          UnderoverscriptBox["\[Sum]", 
           RowBox[{"i", "=", "0"}], "k"], 
          RowBox[{
           UnderoverscriptBox["\[Sum]", 
            RowBox[{"j", "=", "0"}], "k"], 
           RowBox[{
            UnderoverscriptBox["\[Sum]", 
             RowBox[{"p", "=", "0"}], "k"], 
            RowBox[{"j", " ", 
             SuperscriptBox["x", "i"], " ", 
             SuperscriptBox["y", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "j"}]], " ", 
             SuperscriptBox["z", "p"], " ", 
             RowBox[{"c", "[", 
              RowBox[{"i", ",", "j", ",", "p"}], "]"}]}]}]}]}]}], ")"}]}], 
      RowBox[{
       RowBox[{"lambda", " ", 
        RowBox[{
         UnderoverscriptBox["\[Sum]", 
          RowBox[{"i", "=", "0"}], "k"], 
         RowBox[{
          UnderoverscriptBox["\[Sum]", 
           RowBox[{"j", "=", "0"}], "k"], 
          RowBox[{
           UnderoverscriptBox["\[Sum]", 
            RowBox[{"p", "=", "0"}], "k"], 
           RowBox[{"i", " ", 
            SuperscriptBox["x", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "i"}]], " ", 
            SuperscriptBox["y", "j"], " ", 
            SuperscriptBox["z", "p"], " ", 
            RowBox[{"a", "[", 
             RowBox[{"i", ",", "j", ",", "p"}], "]"}]}]}]}]}]}], "+", 
       RowBox[{"lambda", " ", 
        RowBox[{
         UnderoverscriptBox["\[Sum]", 
          RowBox[{"i", "=", "0"}], "k"], 
         RowBox[{
          UnderoverscriptBox["\[Sum]", 
           RowBox[{"j", "=", "0"}], "k"], 
          RowBox[{
           UnderoverscriptBox["\[Sum]", 
            RowBox[{"p", "=", "0"}], "k"], 
           RowBox[{"j", " ", 
            SuperscriptBox["x", "i"], " ", 
            SuperscriptBox["y", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "j"}]], " ", 
            SuperscriptBox["z", "p"], " ", 
            RowBox[{"b", "[", 
             RowBox[{"i", ",", "j", ",", "p"}], "]"}]}]}]}]}]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"lambda", "+", 
          RowBox[{"2", " ", "mu"}]}], ")"}], " ", 
        RowBox[{
         UnderoverscriptBox["\[Sum]", 
          RowBox[{"i", "=", "0"}], "k"], 
         RowBox[{
          UnderoverscriptBox["\[Sum]", 
           RowBox[{"j", "=", "0"}], "k"], 
          RowBox[{
           UnderoverscriptBox["\[Sum]", 
            RowBox[{"p", "=", "0"}], "k"], 
           RowBox[{"p", " ", 
            SuperscriptBox["x", "i"], " ", 
            SuperscriptBox["y", "j"], " ", 
            SuperscriptBox["z", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "p"}]], " ", 
            RowBox[{"c", "[", 
             RowBox[{"i", ",", "j", ",", "p"}], "]"}]}]}]}]}]}]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.700286791699162*^9, 3.7002871101064796`*^9, 
  3.700291647971023*^9, 3.700293453443666*^9, 3.700297173565648*^9, 
  3.700299067511932*^9, 3.70029966809523*^9, 3.700300173214419*^9, 
  3.7003010588360786`*^9, 3.70030238787492*^9, 3.700304072568911*^9, 
  3.700304640941136*^9, 3.700304789898067*^9, 3.7003588656127157`*^9, 
  3.700359024021977*^9, 3.700359549681888*^9, 3.700371952558572*^9, 
  3.700372008718314*^9, 3.700390020371707*^9, 3.700445768592098*^9, 
  3.700479412808558*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"div\[Sigma]0", " ", "=", " ", 
  RowBox[{
   RowBox[{"Div", "[", 
    RowBox[{"\[Sigma]0", ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], "]"}], "//", 
   "FullSimplify"}]}]], "Input",
 CellChangeTimes->{{3.700287420610671*^9, 3.700287436434407*^9}, {
  3.700290676714561*^9, 3.700290710873291*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"lambda", "+", 
       RowBox[{"2", " ", "mu"}]}], ")"}], " ", 
     RowBox[{
      UnderoverscriptBox["\[Sum]", 
       RowBox[{"i", "=", "0"}], "k"], 
      RowBox[{
       UnderoverscriptBox["\[Sum]", 
        RowBox[{"j", "=", "0"}], "k"], 
       RowBox[{
        UnderoverscriptBox["\[Sum]", 
         RowBox[{"p", "=", "0"}], "k"], 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "i"}], ")"}], " ", "i", " ", 
         SuperscriptBox["x", 
          RowBox[{
           RowBox[{"-", "2"}], "+", "i"}]], " ", 
         SuperscriptBox["y", "j"], " ", 
         SuperscriptBox["z", "p"], " ", 
         RowBox[{"a", "[", 
          RowBox[{"i", ",", "j", ",", "p"}], "]"}]}]}]}]}]}], "+", 
    RowBox[{"mu", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        UnderoverscriptBox["\[Sum]", 
         RowBox[{"i", "=", "0"}], "k"], 
        RowBox[{
         UnderoverscriptBox["\[Sum]", 
          RowBox[{"j", "=", "0"}], "k"], 
         RowBox[{
          UnderoverscriptBox["\[Sum]", 
           RowBox[{"p", "=", "0"}], "k"], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "j"}], ")"}], " ", "j", " ", 
           SuperscriptBox["x", "i"], " ", 
           SuperscriptBox["y", 
            RowBox[{
             RowBox[{"-", "2"}], "+", "j"}]], " ", 
           SuperscriptBox["z", "p"], " ", 
           RowBox[{"a", "[", 
            RowBox[{"i", ",", "j", ",", "p"}], "]"}]}]}]}]}], "+", 
       RowBox[{
        UnderoverscriptBox["\[Sum]", 
         RowBox[{"i", "=", "0"}], "k"], 
        RowBox[{
         UnderoverscriptBox["\[Sum]", 
          RowBox[{"j", "=", "0"}], "k"], 
         RowBox[{
          UnderoverscriptBox["\[Sum]", 
           RowBox[{"p", "=", "0"}], "k"], 
          RowBox[{"i", " ", "j", " ", 
           SuperscriptBox["x", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "i"}]], " ", 
           SuperscriptBox["y", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "j"}]], " ", 
           SuperscriptBox["z", "p"], " ", 
           RowBox[{"b", "[", 
            RowBox[{"i", ",", "j", ",", "p"}], "]"}]}]}]}]}]}], ")"}]}], "+", 
    RowBox[{"mu", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        UnderoverscriptBox["\[Sum]", 
         RowBox[{"i", "=", "0"}], "k"], 
        RowBox[{
         UnderoverscriptBox["\[Sum]", 
          RowBox[{"j", "=", "0"}], "k"], 
         RowBox[{
          UnderoverscriptBox["\[Sum]", 
           RowBox[{"p", "=", "0"}], "k"], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "p"}], ")"}], " ", "p", " ", 
           SuperscriptBox["x", "i"], " ", 
           SuperscriptBox["y", "j"], " ", 
           SuperscriptBox["z", 
            RowBox[{
             RowBox[{"-", "2"}], "+", "p"}]], " ", 
           RowBox[{"a", "[", 
            RowBox[{"i", ",", "j", ",", "p"}], "]"}]}]}]}]}], "+", 
       RowBox[{
        UnderoverscriptBox["\[Sum]", 
         RowBox[{"i", "=", "0"}], "k"], 
        RowBox[{
         UnderoverscriptBox["\[Sum]", 
          RowBox[{"j", "=", "0"}], "k"], 
         RowBox[{
          UnderoverscriptBox["\[Sum]", 
           RowBox[{"p", "=", "0"}], "k"], 
          RowBox[{"i", " ", "p", " ", 
           SuperscriptBox["x", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "i"}]], " ", 
           SuperscriptBox["y", "j"], " ", 
           SuperscriptBox["z", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "p"}]], " ", 
           RowBox[{"c", "[", 
            RowBox[{"i", ",", "j", ",", "p"}], "]"}]}]}]}]}]}], ")"}]}], "+", 
    RowBox[{"lambda", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        UnderoverscriptBox["\[Sum]", 
         RowBox[{"i", "=", "0"}], "k"], 
        RowBox[{
         UnderoverscriptBox["\[Sum]", 
          RowBox[{"j", "=", "0"}], "k"], 
         RowBox[{
          UnderoverscriptBox["\[Sum]", 
           RowBox[{"p", "=", "0"}], "k"], 
          RowBox[{"i", " ", "j", " ", 
           SuperscriptBox["x", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "i"}]], " ", 
           SuperscriptBox["y", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "j"}]], " ", 
           SuperscriptBox["z", "p"], " ", 
           RowBox[{"b", "[", 
            RowBox[{"i", ",", "j", ",", "p"}], "]"}]}]}]}]}], "+", 
       RowBox[{
        UnderoverscriptBox["\[Sum]", 
         RowBox[{"i", "=", "0"}], "k"], 
        RowBox[{
         UnderoverscriptBox["\[Sum]", 
          RowBox[{"j", "=", "0"}], "k"], 
         RowBox[{
          UnderoverscriptBox["\[Sum]", 
           RowBox[{"p", "=", "0"}], "k"], 
          RowBox[{"i", " ", "p", " ", 
           SuperscriptBox["x", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "i"}]], " ", 
           SuperscriptBox["y", "j"], " ", 
           SuperscriptBox["z", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "p"}]], " ", 
           RowBox[{"c", "[", 
            RowBox[{"i", ",", "j", ",", "p"}], "]"}]}]}]}]}]}], ")"}]}]}], 
   ",", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"lambda", "+", "mu"}], ")"}], " ", 
     RowBox[{
      UnderoverscriptBox["\[Sum]", 
       RowBox[{"i", "=", "0"}], "k"], 
      RowBox[{
       UnderoverscriptBox["\[Sum]", 
        RowBox[{"j", "=", "0"}], "k"], 
       RowBox[{
        UnderoverscriptBox["\[Sum]", 
         RowBox[{"p", "=", "0"}], "k"], 
        RowBox[{"i", " ", "j", " ", 
         SuperscriptBox["x", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "i"}]], " ", 
         SuperscriptBox["y", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "j"}]], " ", 
         SuperscriptBox["z", "p"], " ", 
         RowBox[{"a", "[", 
          RowBox[{"i", ",", "j", ",", "p"}], "]"}]}]}]}]}]}], "+", 
    RowBox[{"mu", " ", 
     RowBox[{
      UnderoverscriptBox["\[Sum]", 
       RowBox[{"i", "=", "0"}], "k"], 
      RowBox[{
       UnderoverscriptBox["\[Sum]", 
        RowBox[{"j", "=", "0"}], "k"], 
       RowBox[{
        UnderoverscriptBox["\[Sum]", 
         RowBox[{"p", "=", "0"}], "k"], 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "p"}], ")"}], " ", "p", " ", 
         SuperscriptBox["x", "i"], " ", 
         SuperscriptBox["y", "j"], " ", 
         SuperscriptBox["z", 
          RowBox[{
           RowBox[{"-", "2"}], "+", "p"}]], " ", 
         RowBox[{"b", "[", 
          RowBox[{"i", ",", "j", ",", "p"}], "]"}]}]}]}]}]}], "+", 
    RowBox[{"lambda", " ", 
     RowBox[{
      UnderoverscriptBox["\[Sum]", 
       RowBox[{"i", "=", "0"}], "k"], 
      RowBox[{
       UnderoverscriptBox["\[Sum]", 
        RowBox[{"j", "=", "0"}], "k"], 
       RowBox[{
        UnderoverscriptBox["\[Sum]", 
         RowBox[{"p", "=", "0"}], "k"], 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "j"}], ")"}], " ", "j", " ", 
         SuperscriptBox["x", "i"], " ", 
         SuperscriptBox["y", 
          RowBox[{
           RowBox[{"-", "2"}], "+", "j"}]], " ", 
         SuperscriptBox["z", "p"], " ", 
         RowBox[{"b", "[", 
          RowBox[{"i", ",", "j", ",", "p"}], "]"}]}]}]}]}]}], "+", 
    RowBox[{"2", " ", "mu", " ", 
     RowBox[{
      UnderoverscriptBox["\[Sum]", 
       RowBox[{"i", "=", "0"}], "k"], 
      RowBox[{
       UnderoverscriptBox["\[Sum]", 
        RowBox[{"j", "=", "0"}], "k"], 
       RowBox[{
        UnderoverscriptBox["\[Sum]", 
         RowBox[{"p", "=", "0"}], "k"], 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "j"}], ")"}], " ", "j", " ", 
         SuperscriptBox["x", "i"], " ", 
         SuperscriptBox["y", 
          RowBox[{
           RowBox[{"-", "2"}], "+", "j"}]], " ", 
         SuperscriptBox["z", "p"], " ", 
         RowBox[{"b", "[", 
          RowBox[{"i", ",", "j", ",", "p"}], "]"}]}]}]}]}]}], "+", 
    RowBox[{"mu", " ", 
     RowBox[{
      UnderoverscriptBox["\[Sum]", 
       RowBox[{"i", "=", "0"}], "k"], 
      RowBox[{
       UnderoverscriptBox["\[Sum]", 
        RowBox[{"j", "=", "0"}], "k"], 
       RowBox[{
        UnderoverscriptBox["\[Sum]", 
         RowBox[{"p", "=", "0"}], "k"], 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "i"}], ")"}], " ", "i", " ", 
         SuperscriptBox["x", 
          RowBox[{
           RowBox[{"-", "2"}], "+", "i"}]], " ", 
         SuperscriptBox["y", "j"], " ", 
         SuperscriptBox["z", "p"], " ", 
         RowBox[{"b", "[", 
          RowBox[{"i", ",", "j", ",", "p"}], "]"}]}]}]}]}]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"lambda", "+", "mu"}], ")"}], " ", 
     RowBox[{
      UnderoverscriptBox["\[Sum]", 
       RowBox[{"i", "=", "0"}], "k"], 
      RowBox[{
       UnderoverscriptBox["\[Sum]", 
        RowBox[{"j", "=", "0"}], "k"], 
       RowBox[{
        UnderoverscriptBox["\[Sum]", 
         RowBox[{"p", "=", "0"}], "k"], 
        RowBox[{"j", " ", "p", " ", 
         SuperscriptBox["x", "i"], " ", 
         SuperscriptBox["y", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "j"}]], " ", 
         SuperscriptBox["z", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "p"}]], " ", 
         RowBox[{"c", "[", 
          RowBox[{"i", ",", "j", ",", "p"}], "]"}]}]}]}]}]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"lambda", "+", "mu"}], ")"}], " ", 
     RowBox[{
      UnderoverscriptBox["\[Sum]", 
       RowBox[{"i", "=", "0"}], "k"], 
      RowBox[{
       UnderoverscriptBox["\[Sum]", 
        RowBox[{"j", "=", "0"}], "k"], 
       RowBox[{
        UnderoverscriptBox["\[Sum]", 
         RowBox[{"p", "=", "0"}], "k"], 
        RowBox[{"i", " ", "p", " ", 
         SuperscriptBox["x", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "i"}]], " ", 
         SuperscriptBox["y", "j"], " ", 
         SuperscriptBox["z", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "p"}]], " ", 
         RowBox[{"a", "[", 
          RowBox[{"i", ",", "j", ",", "p"}], "]"}]}]}]}]}]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"lambda", "+", "mu"}], ")"}], " ", 
     RowBox[{
      UnderoverscriptBox["\[Sum]", 
       RowBox[{"i", "=", "0"}], "k"], 
      RowBox[{
       UnderoverscriptBox["\[Sum]", 
        RowBox[{"j", "=", "0"}], "k"], 
       RowBox[{
        UnderoverscriptBox["\[Sum]", 
         RowBox[{"p", "=", "0"}], "k"], 
        RowBox[{"j", " ", "p", " ", 
         SuperscriptBox["x", "i"], " ", 
         SuperscriptBox["y", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "j"}]], " ", 
         SuperscriptBox["z", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "p"}]], " ", 
         RowBox[{"b", "[", 
          RowBox[{"i", ",", "j", ",", "p"}], "]"}]}]}]}]}]}], "+", 
    RowBox[{"lambda", " ", 
     RowBox[{
      UnderoverscriptBox["\[Sum]", 
       RowBox[{"i", "=", "0"}], "k"], 
      RowBox[{
       UnderoverscriptBox["\[Sum]", 
        RowBox[{"j", "=", "0"}], "k"], 
       RowBox[{
        UnderoverscriptBox["\[Sum]", 
         RowBox[{"p", "=", "0"}], "k"], 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "p"}], ")"}], " ", "p", " ", 
         SuperscriptBox["x", "i"], " ", 
         SuperscriptBox["y", "j"], " ", 
         SuperscriptBox["z", 
          RowBox[{
           RowBox[{"-", "2"}], "+", "p"}]], " ", 
         RowBox[{"c", "[", 
          RowBox[{"i", ",", "j", ",", "p"}], "]"}]}]}]}]}]}], "+", 
    RowBox[{"2", " ", "mu", " ", 
     RowBox[{
      UnderoverscriptBox["\[Sum]", 
       RowBox[{"i", "=", "0"}], "k"], 
      RowBox[{
       UnderoverscriptBox["\[Sum]", 
        RowBox[{"j", "=", "0"}], "k"], 
       RowBox[{
        UnderoverscriptBox["\[Sum]", 
         RowBox[{"p", "=", "0"}], "k"], 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "p"}], ")"}], " ", "p", " ", 
         SuperscriptBox["x", "i"], " ", 
         SuperscriptBox["y", "j"], " ", 
         SuperscriptBox["z", 
          RowBox[{
           RowBox[{"-", "2"}], "+", "p"}]], " ", 
         RowBox[{"c", "[", 
          RowBox[{"i", ",", "j", ",", "p"}], "]"}]}]}]}]}]}], "+", 
    RowBox[{"mu", " ", 
     RowBox[{
      UnderoverscriptBox["\[Sum]", 
       RowBox[{"i", "=", "0"}], "k"], 
      RowBox[{
       UnderoverscriptBox["\[Sum]", 
        RowBox[{"j", "=", "0"}], "k"], 
       RowBox[{
        UnderoverscriptBox["\[Sum]", 
         RowBox[{"p", "=", "0"}], "k"], 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "j"}], ")"}], " ", "j", " ", 
         SuperscriptBox["x", "i"], " ", 
         SuperscriptBox["y", 
          RowBox[{
           RowBox[{"-", "2"}], "+", "j"}]], " ", 
         SuperscriptBox["z", "p"], " ", 
         RowBox[{"c", "[", 
          RowBox[{"i", ",", "j", ",", "p"}], "]"}]}]}]}]}]}], "+", 
    RowBox[{"mu", " ", 
     RowBox[{
      UnderoverscriptBox["\[Sum]", 
       RowBox[{"i", "=", "0"}], "k"], 
      RowBox[{
       UnderoverscriptBox["\[Sum]", 
        RowBox[{"j", "=", "0"}], "k"], 
       RowBox[{
        UnderoverscriptBox["\[Sum]", 
         RowBox[{"p", "=", "0"}], "k"], 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "i"}], ")"}], " ", "i", " ", 
         SuperscriptBox["x", 
          RowBox[{
           RowBox[{"-", "2"}], "+", "i"}]], " ", 
         SuperscriptBox["y", "j"], " ", 
         SuperscriptBox["z", "p"], " ", 
         RowBox[{"c", "[", 
          RowBox[{"i", ",", "j", ",", "p"}], "]"}]}]}]}]}]}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.700290716299781*^9, 3.7002907186546497`*^9}, 
   3.70029168680518*^9, 3.700293458903901*^9, 3.700297208327094*^9, 
   3.7002990754580393`*^9, 3.70029967082668*^9, 3.700300177097612*^9, 
   3.7003010616409273`*^9, 3.7003023920221767`*^9, 3.70030407576941*^9, 
   3.700304643303729*^9, 3.7003047924660683`*^9, 3.700358870274376*^9, 
   3.7003590267673273`*^9, 3.7003595597496643`*^9, 3.700371954352705*^9, 
   3.700372011629197*^9, 3.700390022988244*^9, 3.700445773512829*^9, 
   3.700479421013023*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"n", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Sigma]n", "[", 
    RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], ":=", 
   RowBox[{"Evaluate", "[", 
    RowBox[{"Simplify", "[", 
     RowBox[{"\[Sigma]0", ".", "n"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Sigma]n", "[", 
   RowBox[{"x", ",", "y", ",", "z"}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.7002991846001377`*^9, 3.7002992070157747`*^9}, {
   3.700299369968511*^9, 3.700299370872754*^9}, {3.700299810978511*^9, 
   3.700299814522229*^9}, {3.7003002407162313`*^9, 3.700300259700025*^9}, {
   3.700300554006681*^9, 3.700300554621377*^9}, 3.700304078861121*^9, 
   3.700304647903233*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"k", " ", "=", " ", "7"}], ";"}]], "Input",
 CellChangeTimes->{{3.7002990838686113`*^9, 3.700299088167042*^9}, {
   3.700299177511574*^9, 3.700299180087295*^9}, {3.700301071623847*^9, 
   3.7003010720792847`*^9}, {3.700304085420656*^9, 3.700304085892304*^9}, {
   3.7003046524391108`*^9, 3.7003046530708237`*^9}, {3.700304779415682*^9, 
   3.700304779879149*^9}, {3.7003588140356493`*^9, 3.7003588146834583`*^9}, {
   3.700359002133006*^9, 3.700359002484166*^9}, 3.7003595660070677`*^9, 
   3.7003719420687532`*^9, {3.700445696795422*^9, 3.700445697395158*^9}, {
   3.700479250988055*^9, 3.700479251475911*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"ListCoefap", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"a", "[", 
      RowBox[{"i", ",", "j", ",", "p"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "0", ",", "k"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "0", ",", "k"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"p", ",", "0", ",", "k"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ListCoefbp", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"b", "[", 
      RowBox[{"i", ",", "j", ",", "p"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "0", ",", "k"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "0", ",", "k"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"p", ",", "0", ",", "k"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ListCoefcp", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"c", "[", 
      RowBox[{"i", ",", "j", ",", "p"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "0", ",", "k"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "0", ",", "k"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"p", ",", "0", ",", "k"}], "}"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7002938044951773`*^9, 3.700293907311874*^9}, {
  3.700294308665957*^9, 3.7002943643058157`*^9}, {3.7002944051446342`*^9, 
  3.700294410354147*^9}, {3.700294470707102*^9, 3.700294490618531*^9}, {
  3.700294521669627*^9, 3.700294584538909*^9}, {3.700295200079219*^9, 
  3.700295219941728*^9}, {3.700295250085947*^9, 3.700295261309774*^9}, {
  3.700295332798514*^9, 3.700295383902443*^9}, {3.70029543040693*^9, 
  3.70029546415064*^9}, {3.7002954988086777`*^9, 3.700295561682132*^9}, {
  3.7002956409479303`*^9, 3.70029567185602*^9}, {3.700296321410697*^9, 
  3.700296365139166*^9}, {3.700298533765051*^9, 3.700298547148426*^9}, {
  3.7002991214669123`*^9, 3.700299133535726*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"ListCoefa", " ", "=", " ", 
   RowBox[{"Flatten", "[", "ListCoefap", "]"}]}], ";", 
  RowBox[{"ListCoefb", " ", "=", " ", 
   RowBox[{"Flatten", "[", "ListCoefbp", "]"}]}], ";", 
  RowBox[{"ListCoefc", " ", "=", " ", 
   RowBox[{"Flatten", "[", "ListCoefcp", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ListCoef", " ", "=", " ", 
   RowBox[{"Flatten", "[", 
    RowBox[{"{", 
     RowBox[{"ListCoefa", ",", "ListCoefb", ",", "ListCoefc"}], "}"}], 
    "]"}]}], ";", "end"}]}], "Input",
 CellChangeTimes->{{3.70029625131636*^9, 3.700296387491109*^9}, {
   3.7002969093099203`*^9, 3.700296913965321*^9}, {3.7002970179020844`*^9, 
   3.7002970540683203`*^9}, 3.700297218278963*^9, {3.7002996913699303`*^9, 
   3.70029969268153*^9}, {3.7003033670502653`*^9, 3.700303385442196*^9}, {
   3.700304722215728*^9, 3.700304729719149*^9}}],

Cell[BoxData["end"], "Output",
 CellChangeTimes->{
  3.70030473059403*^9, {3.700304774432582*^9, 3.7003047988049603`*^9}, 
   3.70035887676499*^9, 3.700359036751864*^9, 3.7003595705325317`*^9, 
   3.700372024277796*^9, 3.700390030215473*^9, 3.700445776669244*^9, 
   3.700479430102626*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Cd1", " ", "=", " ", 
   RowBox[{"Coefficient", "[", 
    RowBox[{
     RowBox[{"div\[Sigma]0", "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", "ListCoef"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Cd2", " ", "=", " ", 
   RowBox[{"Coefficient", "[", 
    RowBox[{
     RowBox[{"div\[Sigma]0", "[", 
      RowBox[{"[", "2", "]"}], "]"}], ",", "ListCoef"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Cd3", " ", "=", " ", 
   RowBox[{"Coefficient", "[", 
    RowBox[{
     RowBox[{"div\[Sigma]0", "[", 
      RowBox[{"[", "3", "]"}], "]"}], ",", "ListCoef"}], "]"}]}], ";", 
  "end"}]}], "Input",
 CellChangeTimes->{{3.7002970689980297`*^9, 3.700297088574643*^9}, {
  3.700297243071352*^9, 3.70029731829499*^9}, {3.7002976957051687`*^9, 
  3.7002977513767776`*^9}, {3.700297986138546*^9, 3.700297999274081*^9}, {
  3.7002997143142977`*^9, 3.700299746249751*^9}, {3.700300311484872*^9, 
  3.700300313604485*^9}, {3.7003005165734587`*^9, 3.700300531772922*^9}, {
  3.700304733567973*^9, 3.7003047338153133`*^9}}],

Cell[BoxData["end"], "Output",
 CellChangeTimes->{3.70030470100943*^9, 3.700304807251739*^9, 
  3.700358878636451*^9, 3.700359037990864*^9, 3.7003596150792923`*^9, 
  3.700372027376109*^9, 3.700390031878481*^9, 3.7004457859205008`*^9, 
  3.7004794388708153`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "z", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Cn1", " ", "=", " ", 
   RowBox[{"Coefficient", "[", 
    RowBox[{
     RowBox[{"Part", "[", 
      RowBox[{
       RowBox[{"\[Sigma]n", "[", 
        RowBox[{"x", ",", "y", ",", "z"}], "]"}], ",", "1"}], "]"}], ",", 
     "ListCoef"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Cn2", " ", "=", " ", 
   RowBox[{"Coefficient", "[", 
    RowBox[{
     RowBox[{"Part", "[", 
      RowBox[{
       RowBox[{"\[Sigma]n", "[", 
        RowBox[{"x", ",", "y", ",", "z"}], "]"}], ",", "2"}], "]"}], ",", 
     "ListCoef"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Cn3", " ", "=", " ", 
   RowBox[{"Coefficient", "[", 
    RowBox[{
     RowBox[{"Part", "[", 
      RowBox[{
       RowBox[{"\[Sigma]n", "[", 
        RowBox[{"x", ",", "y", ",", "z"}], "]"}], ",", "3"}], "]"}], ",", 
     "ListCoef"}], "]"}]}], ";"}], "\[IndentingNewLine]", "end"}], "Input",
 CellChangeTimes->{{3.7002974324642344`*^9, 3.7002974515195837`*^9}, {
   3.7002975783530407`*^9, 3.700297653769376*^9}, {3.700297810253807*^9, 
   3.700297826291211*^9}, {3.700298097723083*^9, 3.70029809905967*^9}, {
   3.7002981731964397`*^9, 3.700298208131509*^9}, {3.700299335609643*^9, 
   3.700299338144273*^9}, {3.7003002846377783`*^9, 3.700300286995996*^9}, {
   3.700300343349019*^9, 3.70030035743692*^9}, {3.700300424797468*^9, 
   3.7003004385007067`*^9}, {3.7003004814378366`*^9, 3.700300507388763*^9}, {
   3.7003047376319523`*^9, 3.70030473786305*^9}, {3.700372093109655*^9, 
   3.7003721042695227`*^9}, 3.700445792022873*^9}],

Cell[BoxData["end"], "Output",
 CellChangeTimes->{
  3.7003048145049458`*^9, 3.7003588799129868`*^9, 3.700359039178361*^9, 
   3.700359638150711*^9, 3.700372034530035*^9, {3.7003721001904984`*^9, 
   3.700372105991797*^9}, 3.7003900330951767`*^9, {3.70044578800283*^9, 
   3.700445795035412*^9}, 3.700479441354238*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"z", " ", "=", " ", "0"}], ";"}]], "Input",
 CellChangeTimes->{{3.700299585817013*^9, 3.700299604747361*^9}, {
  3.700300448942276*^9, 3.700300456836596*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Cn1pp", " ", "=", " ", 
   RowBox[{"CoefficientList", "[", 
    RowBox[{"Cn1", ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "y"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"k", "+", "1"}], ",", 
       RowBox[{"k", "+", "1"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Cn2pp", " ", "=", " ", 
   RowBox[{"CoefficientList", "[", 
    RowBox[{"Cn2", ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "y"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"k", "+", "1"}], ",", 
       RowBox[{"k", "+", "1"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Cn3pp", " ", "=", " ", 
   RowBox[{"CoefficientList", "[", 
    RowBox[{"Cn3", ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "y"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"k", "+", "1"}], ",", 
       RowBox[{"k", "+", "1"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", "end"}], "Input",
 CellChangeTimes->{{3.700300733405384*^9, 3.700300746613962*^9}, {
   3.70030080565508*^9, 3.700300807670198*^9}, {3.700300978271098*^9, 
   3.7003010192149982`*^9}, {3.7003011343055353`*^9, 
   3.7003011394237623`*^9}, {3.7003017057063828`*^9, 
   3.7003017202043447`*^9}, {3.700301946643927*^9, 3.700301951803213*^9}, 
   3.700302054359617*^9, {3.7003021372606*^9, 3.700302172117983*^9}, {
   3.700302203108852*^9, 3.70030220610826*^9}, {3.700302439573827*^9, 
   3.7003024417013197`*^9}, {3.7003028132313538`*^9, 3.700302836767185*^9}, {
   3.700304740055778*^9, 3.700304740287086*^9}, {3.700307225530572*^9, 
   3.700307227402728*^9}, 3.700371922141527*^9}],

Cell[BoxData["end"], "Output",
 CellChangeTimes->{
  3.700304823036565*^9, 3.7003588826814127`*^9, 3.70035904175686*^9, 
   3.7003596429121857`*^9, {3.70037204027*^9, 3.700372067943508*^9}, 
   3.7003900361449757`*^9, 3.700445802312767*^9, 3.700479455304159*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Cn1p", " ", "=", " ", 
   RowBox[{"Transpose", "[", 
    RowBox[{"Cn1pp", ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "1", ",", "2"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Cn2p", " ", "=", " ", 
   RowBox[{"Transpose", "[", 
    RowBox[{"Cn2pp", ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "1", ",", "2"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Cn3p", " ", "=", " ", 
   RowBox[{"Transpose", "[", 
    RowBox[{"Cn3pp", ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "1", ",", "2"}], "}"}]}], "]"}]}], ";", 
  "end"}]}], "Input",
 CellChangeTimes->{{3.7003024509033737`*^9, 3.700302460933302*^9}, {
   3.7003025338059473`*^9, 3.700302561381721*^9}, {3.700302805495413*^9, 
   3.700302809534978*^9}, {3.7003028421349792`*^9, 3.7003028545191174`*^9}, {
   3.700303314498033*^9, 3.7003033151052322`*^9}, {3.7003036922277603`*^9, 
   3.700303711875408*^9}, 3.700304212589785*^9, {3.700304743039795*^9, 
   3.700304743271228*^9}, {3.70030722883508*^9, 3.700307230754355*^9}}],

Cell[BoxData["end"], "Output",
 CellChangeTimes->{
  3.7003048475417137`*^9, 3.700358884245545*^9, 3.700359043372436*^9, 
   3.70035964456478*^9, {3.700372046115952*^9, 3.7003720691635637`*^9}, 
   3.700390037549264*^9, 3.70044580381317*^9, 3.700479457336088*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Cn1p2", " ", "=", " ", 
   RowBox[{"Flatten", "[", 
    RowBox[{"Cn1p", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Cn2p2", " ", "=", " ", 
   RowBox[{"Flatten", "[", 
    RowBox[{"Cn2p", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Cn3p2", " ", "=", " ", 
   RowBox[{"Flatten", "[", 
    RowBox[{"Cn3p", ",", "1"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", "end"}], "Input",
 CellChangeTimes->{{3.700303699546652*^9, 3.700303718594743*^9}, 
   3.700304202061989*^9, {3.7003047474160767`*^9, 3.700304747647262*^9}, {
   3.7003720726852427`*^9, 3.700372073436818*^9}, 3.700391287503674*^9, {
   3.700391318391358*^9, 3.7003913190813513`*^9}}],

Cell[BoxData["end"], "Output",
 CellChangeTimes->{
  3.700304849060337*^9, 3.7003588856131077`*^9, 3.700359044609123*^9, 
   3.7003596463477287`*^9, {3.700372049085998*^9, 3.700372074931898*^9}, 
   3.7003900388196087`*^9, {3.7003912882183657`*^9, 3.7003913198979807`*^9}, 
   3.70044580520068*^9, 3.700479460559082*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "z", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Cd1pp", " ", "=", " ", 
   RowBox[{"CoefficientList", "[", 
    RowBox[{"Cd1", ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"k", "+", "1"}], ",", 
       RowBox[{"k", "+", "1"}], ",", 
       RowBox[{"k", "+", "1"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Cd2pp", " ", "=", " ", 
   RowBox[{"CoefficientList", "[", 
    RowBox[{"Cd2", ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"k", "+", "1"}], ",", 
       RowBox[{"k", "+", "1"}], ",", 
       RowBox[{"k", "+", "1"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Cd3pp", " ", "=", " ", 
   RowBox[{"CoefficientList", "[", 
    RowBox[{"Cd3", ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"k", "+", "1"}], ",", 
       RowBox[{"k", "+", "1"}], ",", 
       RowBox[{"k", "+", "1"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", "end"}], "Input",
 CellChangeTimes->{{3.700302871398808*^9, 3.700302915720428*^9}, {
  3.70030319156143*^9, 3.7003032128410997`*^9}, {3.700303283169984*^9, 
  3.70030331189985*^9}, {3.700304749495871*^9, 3.7003047497432423`*^9}, {
  3.70030724048342*^9, 3.700307241986925*^9}, {3.700395012951569*^9, 
  3.700395036927414*^9}}],

Cell[BoxData["end"], "Output",
 CellChangeTimes->{
  3.700304850644004*^9, 3.700358887096916*^9, 3.700359045901339*^9, 
   3.7003596480950317`*^9, 3.700372050433041*^9, 3.700390040661437*^9, {
   3.7003950154705877`*^9, 3.70039503812077*^9}, 3.700445806705296*^9, 
   3.700479462379264*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Cd1p", " ", "=", " ", 
   RowBox[{"Transpose", "[", 
    RowBox[{"Cd1pp", ",", 
     RowBox[{"{", 
      RowBox[{"4", ",", "1", ",", "2", ",", "3"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Cd2p", " ", "=", " ", 
   RowBox[{"Transpose", "[", 
    RowBox[{"Cd2pp", ",", 
     RowBox[{"{", 
      RowBox[{"4", ",", "1", ",", "2", ",", "3"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Cd3p", " ", "=", " ", 
   RowBox[{"Transpose", "[", 
    RowBox[{"Cd3pp", ",", 
     RowBox[{"{", 
      RowBox[{"4", ",", "1", ",", "2", ",", "3"}], "}"}]}], "]"}]}], ";", 
  "end"}]}], "Input",
 CellChangeTimes->{{3.70030292983947*^9, 3.700302943168038*^9}, {
   3.700303226721395*^9, 3.700303240344846*^9}, {3.7003032870979357`*^9, 
   3.7003032878971167`*^9}, {3.700303402826499*^9, 3.700303433681489*^9}, {
   3.7003036493871737`*^9, 3.7003036506184807`*^9}, {3.700304752583897*^9, 
   3.700304752871292*^9}, {3.7003072433941193`*^9, 3.7003072453624353`*^9}, 
   3.7003950218800697`*^9}],

Cell[BoxData["end"], "Output",
 CellChangeTimes->{3.7003048523922653`*^9, 3.700358888497908*^9, 
  3.700359047089737*^9, 3.700359650373105*^9, 3.700372051679145*^9, 
  3.700390042426216*^9, 3.7003950398480587`*^9, 3.700445808165308*^9, 
  3.700479464422475*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Cd1p2", " ", "=", " ", 
   RowBox[{"Flatten", "[", 
    RowBox[{"Cd1p", ",", "2"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Cd2p2", " ", "=", " ", 
   RowBox[{"Flatten", "[", 
    RowBox[{"Cd2p", ",", "2"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Cd3p2", " ", "=", " ", 
   RowBox[{"Flatten", "[", 
    RowBox[{"Cd3p", ",", "2"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", "end"}], "Input",
 CellChangeTimes->{{3.700303576784547*^9, 3.700303605074524*^9}, {
   3.7003036614355583`*^9, 3.700303680413571*^9}, 3.700304137501021*^9, {
   3.7003047549837723`*^9, 3.700304755263055*^9}, {3.700395044023363*^9, 
   3.700395044574789*^9}, 3.700445813396124*^9}],

Cell[BoxData["end"], "Output",
 CellChangeTimes->{3.700304853744419*^9, 3.7003588898893013`*^9, 
  3.700359048374385*^9, 3.700359652704372*^9, 3.700372053349473*^9, 
  3.700390043843837*^9, 3.700395045545182*^9, 3.700445814479611*^9, 
  3.70047946571773*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"UltimateMatrix", " ", "=", " ", 
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "Cd1p2", ",", "Cd2p2", ",", "Cd3p2", ",", "Cn1p2", ",", "Cn2p2", ",", 
       "Cn3p2"}], "}"}], ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MatrixForm", "[", "UltimateMatrix", "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.7003037709821987`*^9, 3.700303952533361*^9}, {
   3.700303991316494*^9, 3.700304012308638*^9}, 3.700304196061428*^9, {
   3.7003047589917803`*^9, 3.7003047592392893`*^9}, {3.7003589085345716`*^9, 
   3.700358909252101*^9}, 3.7003596582636213`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"MatrixRank", "[", "UltimateMatrix", "]"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"Dimensions", "[", "UltimateMatrix", "]"}]}]], "Input",
 CellChangeTimes->{{3.700304312859932*^9, 3.700304323277121*^9}, {
   3.700304359302652*^9, 3.7003043642135897`*^9}, {3.700304494430419*^9, 
   3.700304506366231*^9}, {3.7003047664480963`*^9, 3.700304768591708*^9}, {
   3.700304877449211*^9, 3.700304877842812*^9}, 3.700359852728367*^9, {
   3.700359926088498*^9, 3.7003599392804327`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1728", ",", "1536"}], "}"}]], "Output",
 CellChangeTimes->{
  3.700304325217203*^9, 3.700304365419299*^9, 3.7003045085861797`*^9, {
   3.700304859044819*^9, 3.700304886929201*^9}, 3.7003588969571943`*^9, 
   3.700359080997251*^9, {3.7003600563827267`*^9, 3.70036006371496*^9}, 
   3.7003900474566917`*^9, 3.700445824621193*^9, 3.700479469685746*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"Export", "[", 
   RowBox[{"\"\<conditions3.m\>\"", ",", "UltimateMatrix"}], "]"}], 
  "*)"}]], "Input",
 CellChangeTimes->{{3.700304951599416*^9, 3.700304985264173*^9}, {
   3.700305019747216*^9, 3.7003050216965637`*^9}, {3.700306009461708*^9, 
   3.7003060096687937`*^9}, 3.7003070231776543`*^9, {3.700360474819056*^9, 
   3.700360475562654*^9}, {3.7003899748809757`*^9, 3.7003899856250668`*^9}}],

Cell[BoxData["\<\"conditions2.m\"\>"], "Output",
 CellChangeTimes->{{3.700304999436645*^9, 3.700305023750352*^9}, 
   3.700306011797122*^9, 3.700360400087964*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Ee", " ", "=", " ", "210000"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nu", " ", "=", " ", ".3"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"lambda", " ", "=", " ", 
  RowBox[{"nu", "*", 
   RowBox[{"Ee", "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "+", "nu"}], ")"}], "*", 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"2", "nu"}]}], ")"}]}], ")"}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{"mu", " ", "=", " ", 
  RowBox[{"Ee", "/", 
   RowBox[{"(", 
    RowBox[{"2", "*", 
     RowBox[{"(", 
      RowBox[{"1", "+", "nu"}], ")"}]}], ")"}]}]}]}], "Input",
 CellChangeTimes->{{3.70036948639894*^9, 3.7003695888027267`*^9}, {
  3.700369770979982*^9, 3.7003697789474707`*^9}}],

Cell[BoxData["121153.84615384614`"], "Output",
 CellChangeTimes->{{3.700369579929635*^9, 3.700369589768358*^9}, 
   3.700369780178814*^9, 3.7003900528571033`*^9, 3.7004458296770287`*^9, 
   3.700479475387804*^9}],

Cell[BoxData["80769.23076923077`"], "Output",
 CellChangeTimes->{{3.700369579929635*^9, 3.700369589768358*^9}, 
   3.700369780178814*^9, 3.7003900528571033`*^9, 3.7004458296770287`*^9, 
   3.700479475391204*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<conditions7.mat\>\"", ",", "UltimateMatrix"}], "]"}]], "Input",
 CellChangeTimes->{{3.700369627279282*^9, 3.7003696508428297`*^9}, 
   3.700370248549348*^9, 3.700389991489609*^9, {3.700445678171777*^9, 
   3.700445678803543*^9}, {3.700479256396378*^9, 3.7004792569556923`*^9}}],

Cell[BoxData["\<\"conditions7.mat\"\>"], "Output",
 CellChangeTimes->{3.700370260069449*^9, 3.70039005587221*^9, 
  3.70044583252131*^9, 3.700479479923473*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"lambda", "+", 
  RowBox[{"2", "*", "mu"}]}]], "Input",
 CellChangeTimes->{{3.7004660374987707`*^9, 3.700466041457684*^9}}],

Cell[BoxData["282692.3076923077`"], "Output",
 CellChangeTimes->{3.700466044107174*^9, 3.700479485886292*^9}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1920, 1136},
WindowMargins->{{-1, Automatic}, {Automatic, -1}},
Magnification:>1.4 Inherited,
FrontEndVersion->"10.4 for Linux x86 (64-bit) (February 25, 2016)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 72, 1, 91, "Section"],
Cell[655, 25, 4332, 119, 160, "Input"],
Cell[4990, 146, 1243, 37, 72, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6270, 188, 109, 1, 91, "Section"],
Cell[CellGroupData[{
Cell[6404, 193, 1756, 44, 139, "Input"],
Cell[8163, 239, 2928, 92, 120, "Output"],
Cell[11094, 333, 5330, 164, 141, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16461, 502, 2836, 91, 103, "Input"],
Cell[19300, 595, 2994, 90, 84, "Output"]
}, Open  ]],
Cell[22309, 688, 10560, 260, 296, "Input"],
Cell[CellGroupData[{
Cell[32894, 952, 548, 11, 43, "Input"],
Cell[33445, 965, 31161, 899, 138, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[64643, 1869, 758, 15, 100, "Input"],
Cell[65404, 1886, 559, 8, 43, "Output"],
Cell[65966, 1896, 25007, 693, 138, "Output"]
}, Open  ]],
Cell[90988, 2592, 561, 13, 72, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[91586, 2610, 170, 2, 91, "Section"],
Cell[91759, 2614, 1663, 46, 369, "Input"],
Cell[CellGroupData[{
Cell[93447, 2664, 229, 5, 117, "Input"],
Cell[93679, 2671, 1859, 54, 355, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[95575, 2730, 399, 7, 117, "Input"],
Cell[95977, 2739, 5121, 125, 264, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[101135, 2869, 608, 16, 274, "Input"],
Cell[101746, 2887, 1341, 35, 137, "Output"],
Cell[103090, 2924, 1342, 35, 137, "Output"]
}, Open  ]],
Cell[104447, 2962, 1294, 34, 230, "Input"],
Cell[105744, 2998, 295, 7, 117, "Input"],
Cell[CellGroupData[{
Cell[106064, 3009, 917, 24, 274, "Input"],
Cell[106984, 3035, 3819, 97, 427, "Output"],
Cell[110806, 3134, 3781, 96, 427, "Output"],
Cell[114590, 3232, 3781, 96, 427, "Output"]
}, Open  ]],
Cell[118386, 3331, 271, 9, 29, "Text"]
}, Closed]],
Cell[CellGroupData[{
Cell[118694, 3345, 97, 1, 92, "Title"],
Cell[118794, 3348, 6763, 199, 380, "Input"],
Cell[125560, 3549, 10272, 254, 268, "Input"],
Cell[CellGroupData[{
Cell[135857, 3807, 158, 3, 43, "Input"],
Cell[136018, 3812, 1437, 34, 174, "Output"]
}, Open  ]],
Cell[137470, 3849, 419, 8, 72, "Input"],
Cell[137892, 3859, 3204, 99, 236, "Input"],
Cell[CellGroupData[{
Cell[141121, 3962, 204, 5, 43, "Input"],
Cell[141328, 3969, 11286, 306, 141, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[152651, 4280, 252, 7, 43, "Input"],
Cell[152906, 4289, 15602, 423, 138, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[168545, 4717, 351, 9, 43, "Input"],
Cell[168899, 4728, 14356, 420, 553, "Output"]
}, Open  ]],
Cell[183270, 5151, 823, 20, 100, "Input"],
Cell[184096, 5173, 645, 10, 43, "Input"],
Cell[184744, 5185, 1943, 48, 100, "Input"],
Cell[CellGroupData[{
Cell[186712, 5237, 883, 19, 100, "Input"],
Cell[187598, 5258, 289, 5, 43, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[187924, 5268, 1091, 27, 100, "Input"],
Cell[189018, 5297, 262, 4, 43, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[189317, 5306, 1643, 38, 156, "Input"],
Cell[190963, 5346, 318, 5, 43, "Output"]
}, Open  ]],
Cell[191296, 5354, 192, 4, 43, "Input"],
Cell[CellGroupData[{
Cell[191513, 5362, 1689, 43, 128, "Input"],
Cell[193205, 5407, 262, 4, 43, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[193504, 5416, 1088, 27, 100, "Input"],
Cell[194595, 5445, 263, 4, 43, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[194895, 5454, 735, 17, 128, "Input"],
Cell[195633, 5473, 320, 5, 43, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[195990, 5483, 1557, 43, 156, "Input"],
Cell[197550, 5528, 290, 5, 43, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[197877, 5538, 1074, 27, 100, "Input"],
Cell[198954, 5567, 261, 4, 43, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[199252, 5576, 733, 17, 128, "Input"],
Cell[199988, 5595, 258, 4, 43, "Output"]
}, Open  ]],
Cell[200261, 5602, 649, 14, 72, "Input"],
Cell[CellGroupData[{
Cell[200935, 5620, 536, 10, 72, "Input"],
Cell[201474, 5632, 389, 7, 43, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[201900, 5644, 438, 8, 43, "Input"],
Cell[202341, 5654, 162, 2, 43, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[202540, 5661, 772, 22, 128, "Input"],
Cell[203315, 5685, 212, 3, 43, "Output"],
Cell[203530, 5690, 211, 3, 43, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[203778, 5698, 331, 5, 43, "Input"],
Cell[204112, 5705, 159, 2, 43, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[204308, 5712, 146, 3, 43, "Input"],
Cell[204457, 5717, 109, 1, 43, "Output"]
}, Open  ]]
}, Open  ]]
}
]
*)