MostSuccessful.nb

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

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

(* CreatedBy='Mathematica 12.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    381047,      10914]
NotebookOptionsPosition[    342920,      10295]
NotebookOutlinePosition[    343334,      10312]
CellTagsIndexPosition[    343291,      10309]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"x", "==", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"a", "^", "2"}], "-", 
        RowBox[{"b", " ", "k"}], "+", 
        RowBox[{"a", " ", 
         RowBox[{"(", 
          RowBox[{"b", "+", "k"}], ")"}]}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"a", "+", "b", "+", 
        RowBox[{"a", " ", "nx"}], "-", 
        RowBox[{"b", " ", "nx"}]}], ")"}]}], "-", 
     RowBox[{"2", " ", "a", " ", "b", " ", 
      RowBox[{"(", 
       RowBox[{"a", "+", "b"}], ")"}], " ", 
      RowBox[{"nz", "^", "2"}]}], "+", 
     RowBox[{"2", " ", 
      RowBox[{"Sqrt", "[", 
       RowBox[{
        RowBox[{"-", "a"}], " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "-", "b"}], ")"}], "^", "2"}], " ", "b", " ", 
        RowBox[{"nz", "^", "2"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "k"}], "+", 
             RowBox[{"a", " ", "nx"}]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"a", "+", "b", "+", "k", "-", 
             RowBox[{"b", " ", "nx"}]}], ")"}]}], "-", 
          RowBox[{"a", " ", "b", " ", 
           RowBox[{"nz", "^", "2"}]}]}], ")"}]}], "]"}]}]}], ")"}], "/", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "+", "b", "+", 
        RowBox[{"a", " ", "nx"}], "-", 
        RowBox[{"b", " ", "nx"}]}], ")"}], "^", "2"}], "-", 
     RowBox[{"4", " ", "a", " ", "b", " ", 
      RowBox[{"nz", "^", "2"}]}]}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.841230544376149*^9, 3.8412305443937817`*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"3ad70ca3-780e-460c-a59e-025e029ab748"],

Cell[BoxData[
 RowBox[{"x", "\[Equal]", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["a", "2"], "-", 
        RowBox[{"b", " ", "k"}], "+", 
        RowBox[{"a", " ", 
         RowBox[{"(", 
          RowBox[{"b", "+", "k"}], ")"}]}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"a", "+", "b", "+", 
        RowBox[{"a", " ", "nx"}], "-", 
        RowBox[{"b", " ", "nx"}]}], ")"}]}], "-", 
     RowBox[{"2", " ", "a", " ", "b", " ", 
      RowBox[{"(", 
       RowBox[{"a", "+", "b"}], ")"}], " ", 
      SuperscriptBox["nz", "2"]}], "+", 
     RowBox[{"2", " ", 
      SqrtBox[
       RowBox[{
        RowBox[{"-", "a"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
        SuperscriptBox["nz", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "k"}], "+", 
             RowBox[{"a", " ", "nx"}]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"a", "+", "b", "+", "k", "-", 
             RowBox[{"b", " ", "nx"}]}], ")"}]}], "-", 
          RowBox[{"a", " ", "b", " ", 
           SuperscriptBox["nz", "2"]}]}], ")"}]}]]}]}], ")"}], "/", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", "b", "+", 
        RowBox[{"a", " ", "nx"}], "-", 
        RowBox[{"b", " ", "nx"}]}], ")"}], "2"], "-", 
     RowBox[{"4", " ", "a", " ", "b", " ", 
      SuperscriptBox["nz", "2"]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{3.841230547022633*^9},
 CellLabel->"Out[1]=",ExpressionUUID->"aab7c95b-cbca-4dd0-bb3a-238cf2a67057"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"z", "==", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "2"}], " ", 
        RowBox[{"a", "^", "2"}], " ", "b", " ", "k", " ", 
        RowBox[{"nz", "^", "2"}]}], "+", 
       RowBox[{
        RowBox[{"a", "^", "3"}], " ", "b", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
        RowBox[{"nz", "^", "2"}]}], "+", 
       RowBox[{"b", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
        RowBox[{"Sqrt", "[", 
         RowBox[{"a", " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"a", "-", "b"}], ")"}], "^", "2"}], " ", "b", " ", 
          RowBox[{"nz", "^", "2"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"k", "-", 
               RowBox[{"a", " ", "nx"}]}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{"a", "+", "b", "+", "k", "-", 
               RowBox[{"b", " ", "nx"}]}], ")"}]}], "+", 
            RowBox[{"a", " ", "b", " ", 
             RowBox[{"nz", "^", "2"}]}]}], ")"}]}], "]"}]}], "-", 
       RowBox[{"a", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", 
           RowBox[{"b", "^", "2"}], " ", "k", " ", 
           RowBox[{"nz", "^", "2"}]}], "+", 
          RowBox[{
           RowBox[{"b", "^", "3"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
           RowBox[{"nz", "^", "2"}]}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "+", "nx"}], ")"}], " ", 
           RowBox[{"Sqrt", "[", 
            RowBox[{"a", " ", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"a", "-", "b"}], ")"}], "^", "2"}], " ", "b", " ", 
             RowBox[{"nz", "^", "2"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"k", "-", 
                  RowBox[{"a", " ", "nx"}]}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{"a", "+", "b", "+", "k", "-", 
                  RowBox[{"b", " ", "nx"}]}], ")"}]}], "+", 
               RowBox[{"a", " ", "b", " ", 
                RowBox[{"nz", "^", "2"}]}]}], ")"}]}], "]"}]}]}], ")"}]}]}], 
      ")"}]}], ")"}], "/", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a", "-", "b"}], ")"}], " ", "nz", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "+", "b", "+", 
          RowBox[{"a", " ", "nx"}], "-", 
          RowBox[{"b", " ", "nx"}]}], ")"}], "^", "2"}], "-", 
       RowBox[{"4", " ", "a", " ", "b", " ", 
        RowBox[{"nz", "^", "2"}]}]}], ")"}]}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.841230558446453*^9, 3.8412305584604893`*^9}},
 CellLabel->"In[2]:=",ExpressionUUID->"5439e2ed-af8f-4ff1-921c-0205b91b6700"],

Cell[BoxData[
 RowBox[{"z", "\[Equal]", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "2"}], " ", 
        SuperscriptBox["a", "2"], " ", "b", " ", "k", " ", 
        SuperscriptBox["nz", "2"]}], "+", 
       RowBox[{
        SuperscriptBox["a", "3"], " ", "b", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
        SuperscriptBox["nz", "2"]}], "+", 
       RowBox[{"b", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
        SqrtBox[
         RowBox[{"a", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
          SuperscriptBox["nz", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"k", "-", 
               RowBox[{"a", " ", "nx"}]}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{"a", "+", "b", "+", "k", "-", 
               RowBox[{"b", " ", "nx"}]}], ")"}]}], "+", 
            RowBox[{"a", " ", "b", " ", 
             SuperscriptBox["nz", "2"]}]}], ")"}]}]]}], "-", 
       RowBox[{"a", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", 
           SuperscriptBox["b", "2"], " ", "k", " ", 
           SuperscriptBox["nz", "2"]}], "+", 
          RowBox[{
           SuperscriptBox["b", "3"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
           SuperscriptBox["nz", "2"]}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "+", "nx"}], ")"}], " ", 
           SqrtBox[
            RowBox[{"a", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
             SuperscriptBox["nz", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"k", "-", 
                  RowBox[{"a", " ", "nx"}]}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{"a", "+", "b", "+", "k", "-", 
                  RowBox[{"b", " ", "nx"}]}], ")"}]}], "+", 
               RowBox[{"a", " ", "b", " ", 
                SuperscriptBox["nz", "2"]}]}], ")"}]}]]}]}], ")"}]}]}], 
      ")"}]}], ")"}], "/", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a", "-", "b"}], ")"}], " ", "nz", " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", "b", "+", 
          RowBox[{"a", " ", "nx"}], "-", 
          RowBox[{"b", " ", "nx"}]}], ")"}], "2"], "-", 
       RowBox[{"4", " ", "a", " ", "b", " ", 
        SuperscriptBox["nz", "2"]}]}], ")"}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{3.841230559256516*^9},
 CellLabel->"Out[2]=",ExpressionUUID->"00327c2f-0766-4486-9c04-b58d73b3f698"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"a", " ", "=", " ", "1.2"}], "\n", 
 RowBox[{"b", " ", "=", " ", "1.2426297674778306"}], "\n", 
 RowBox[{"nx", " ", "=", " ", 
  RowBox[{"-", "0.017452406437283508"}]}], "\n", 
 RowBox[{"nz", " ", "=", " ", "0.22491679320871352"}], "\n", 
 RowBox[{"k", " ", "=", " ", "1.2"}]}], "Input",
 CellChangeTimes->{{3.841230694317067*^9, 3.841230694334393*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"ecfba8b6-93ed-4cfe-8e34-0449178fb3e3"],

Cell[BoxData["1.2`"], "Output",
 CellChangeTimes->{3.8412307000970793`*^9},
 CellLabel->"Out[3]=",ExpressionUUID->"cd43edc2-b72a-457d-9e2e-acf82f7e4950"],

Cell[BoxData["1.2426297674778306`"], "Output",
 CellChangeTimes->{3.841230700099419*^9},
 CellLabel->"Out[4]=",ExpressionUUID->"93b8ae50-8d2e-4ab5-bd73-22d61f7ec36c"],

Cell[BoxData[
 RowBox[{"-", "0.017452406437283508`"}]], "Output",
 CellChangeTimes->{3.841230700101172*^9},
 CellLabel->"Out[5]=",ExpressionUUID->"1dad238c-254a-4e23-8c93-25ba73dd3340"],

Cell[BoxData["0.22491679320871352`"], "Output",
 CellChangeTimes->{3.841230700103113*^9},
 CellLabel->"Out[6]=",ExpressionUUID->"e65da80f-24c5-4c88-8dce-8970e3175d9d"],

Cell[BoxData["1.2`"], "Output",
 CellChangeTimes->{3.841230700105035*^9},
 CellLabel->"Out[7]=",ExpressionUUID->"99006c3d-6648-4ec7-bb5a-e3f1d676b8d4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["x"], "Input",
 CellChangeTimes->{3.8412307034638777`*^9},
 CellLabel->"In[8]:=",ExpressionUUID->"c3ae7a4d-7163-497f-b23b-ffc8f5bb389d"],

Cell[BoxData["x"], "Output",
 CellChangeTimes->{3.8412307078064747`*^9},
 CellLabel->"Out[8]=",ExpressionUUID->"15d1fa9e-ad66-42b8-a21e-98e1da195939"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["x"], "Input",
 CellChangeTimes->{3.84123071487829*^9},
 CellLabel->"In[9]:=",ExpressionUUID->"49c5e5d0-c032-4815-9765-500db93e3277"],

Cell[BoxData["x"], "Output",
 CellChangeTimes->{3.84123071565237*^9},
 CellLabel->"Out[9]=",ExpressionUUID->"26cf3aa8-9bf2-48ed-9be3-46266e9eb47c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["z"], "Input",
 CellChangeTimes->{3.841230716364238*^9},
 CellLabel->"In[10]:=",ExpressionUUID->"a91a08f0-fcc6-4190-9f0e-23d3ae743596"],

Cell[BoxData["z"], "Output",
 CellChangeTimes->{3.841230716971875*^9},
 CellLabel->"Out[10]=",ExpressionUUID->"1ef26947-2e7f-4cb8-9ea6-b04afccff4dd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"x", "==", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"a", "^", "2"}], "-", 
        RowBox[{"b", " ", "k"}], "+", 
        RowBox[{"a", " ", 
         RowBox[{"(", 
          RowBox[{"b", "+", "k"}], ")"}]}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"a", "+", "b", "+", 
        RowBox[{"a", " ", "nx"}], "-", 
        RowBox[{"b", " ", "nx"}]}], ")"}]}], "-", 
     RowBox[{"2", " ", "a", " ", "b", " ", 
      RowBox[{"(", 
       RowBox[{"a", "+", "b"}], ")"}], " ", 
      RowBox[{"nz", "^", "2"}]}], "+", 
     RowBox[{"2", " ", 
      RowBox[{"Sqrt", "[", 
       RowBox[{
        RowBox[{"-", "a"}], " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "-", "b"}], ")"}], "^", "2"}], " ", "b", " ", 
        RowBox[{"nz", "^", "2"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "k"}], "+", 
             RowBox[{"a", " ", "nx"}]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"a", "+", "b", "+", "k", "-", 
             RowBox[{"b", " ", "nx"}]}], ")"}]}], "-", 
          RowBox[{"a", " ", "b", " ", 
           RowBox[{"nz", "^", "2"}]}]}], ")"}]}], "]"}]}]}], ")"}], "/", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "+", "b", "+", 
        RowBox[{"a", " ", "nx"}], "-", 
        RowBox[{"b", " ", "nx"}]}], ")"}], "^", "2"}], "-", 
     RowBox[{"4", " ", "a", " ", "b", " ", 
      RowBox[{"nz", "^", "2"}]}]}], ")"}]}]}]], "Input",
 CellLabel->"In[11]:=",ExpressionUUID->"42529c8b-dd04-443b-9b00-f1818ee590e7"],

Cell[BoxData[
 RowBox[{"x", "\[Equal]", "1.1852409397915091`"}]], "Output",
 CellChangeTimes->{3.841230739038405*^9},
 CellLabel->"Out[11]=",ExpressionUUID->"b77ed489-4471-4111-ace9-f1379b6c2ca0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"z", "==", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "2"}], " ", 
        RowBox[{"a", "^", "2"}], " ", "b", " ", "k", " ", 
        RowBox[{"nz", "^", "2"}]}], "+", 
       RowBox[{
        RowBox[{"a", "^", "3"}], " ", "b", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
        RowBox[{"nz", "^", "2"}]}], "+", 
       RowBox[{"b", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
        RowBox[{"Sqrt", "[", 
         RowBox[{"a", " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"a", "-", "b"}], ")"}], "^", "2"}], " ", "b", " ", 
          RowBox[{"nz", "^", "2"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"k", "-", 
               RowBox[{"a", " ", "nx"}]}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{"a", "+", "b", "+", "k", "-", 
               RowBox[{"b", " ", "nx"}]}], ")"}]}], "+", 
            RowBox[{"a", " ", "b", " ", 
             RowBox[{"nz", "^", "2"}]}]}], ")"}]}], "]"}]}], "-", 
       RowBox[{"a", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", 
           RowBox[{"b", "^", "2"}], " ", "k", " ", 
           RowBox[{"nz", "^", "2"}]}], "+", 
          RowBox[{
           RowBox[{"b", "^", "3"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
           RowBox[{"nz", "^", "2"}]}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "+", "nx"}], ")"}], " ", 
           RowBox[{"Sqrt", "[", 
            RowBox[{"a", " ", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"a", "-", "b"}], ")"}], "^", "2"}], " ", "b", " ", 
             RowBox[{"nz", "^", "2"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"k", "-", 
                  RowBox[{"a", " ", "nx"}]}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{"a", "+", "b", "+", "k", "-", 
                  RowBox[{"b", " ", "nx"}]}], ")"}]}], "+", 
               RowBox[{"a", " ", "b", " ", 
                RowBox[{"nz", "^", "2"}]}]}], ")"}]}], "]"}]}]}], ")"}]}]}], 
      ")"}]}], ")"}], "/", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a", "-", "b"}], ")"}], " ", "nz", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "+", "b", "+", 
          RowBox[{"a", " ", "nx"}], "-", 
          RowBox[{"b", " ", "nx"}]}], ")"}], "^", "2"}], "-", 
       RowBox[{"4", " ", "a", " ", "b", " ", 
        RowBox[{"nz", "^", "2"}]}]}], ")"}]}], ")"}]}]}]], "Input",
 CellLabel->"In[12]:=",ExpressionUUID->"418b573d-8296-4907-945e-e2165bb019c5"],

Cell[BoxData[
 RowBox[{"z", "\[Equal]", "1.6673299838563573`"}]], "Output",
 CellChangeTimes->{3.841230750920837*^9},
 CellLabel->"Out[12]=",ExpressionUUID->"f5dba9da-17d4-4296-b38d-7d74e7401344"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Sqrt", "[", 
   RowBox[{
    RowBox[{"x", "^", "2"}], " ", "+", " ", 
    RowBox[{"z", "^", "2"}]}], "]"}], " ", "-", " ", "a"}]], "Input",
 CellChangeTimes->{{3.84123127183807*^9, 3.841231284406249*^9}},
 CellLabel->"In[13]:=",ExpressionUUID->"1be2aff9-4e4e-4403-a81b-1d0c1544c61f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "1.2`"}], "+", 
  SqrtBox[
   RowBox[{
    SuperscriptBox["x", "2"], "+", 
    SuperscriptBox["z", "2"]}]]}]], "Output",
 CellChangeTimes->{3.8412312860506697`*^9},
 CellLabel->"Out[13]=",ExpressionUUID->"ec9476c1-1b47-4abb-b065-d905fedab7d0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Sqrt", "[", 
   RowBox[{
    RowBox[{"1.18524", "^", "2"}], " ", "+", " ", 
    RowBox[{"1.66733", "^", "2"}]}], "]"}], " ", "-", " ", "a"}]], "Input",
 CellChangeTimes->{{3.84123130753625*^9, 3.8412313196561623`*^9}},
 CellLabel->"In[14]:=",ExpressionUUID->"b9be7de7-ab2f-4077-8494-30615b41170c"],

Cell[BoxData["0.8456742620710658`"], "Output",
 CellChangeTimes->{3.841231320480475*^9},
 CellLabel->"Out[14]=",ExpressionUUID->"263bc86e-b811-4a63-a389-ad829c02e7a1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"j", " ", "=", " ", 
  RowBox[{"a", " ", "-", " ", 
   RowBox[{"b", " ", "nx"}], " ", "+", " ", "b", " ", "+", "k"}]}]], "Input",
 CellChangeTimes->{{3.8412313542943783`*^9, 3.841231371558025*^9}},
 CellLabel->"In[15]:=",ExpressionUUID->"277a0bb5-7068-4034-89e5-c03f7b6d9dab"],

Cell[BoxData["3.6643166472309208`"], "Output",
 CellChangeTimes->{3.8412313723317413`*^9},
 CellLabel->"Out[15]=",ExpressionUUID->"151a5cb2-635a-4ba6-b576-ad44724bbab8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"L", " ", "=", " ", 
  RowBox[{"a", " ", "b", "  ", 
   RowBox[{"nz", "^", "2"}], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"a", "-", "b"}], ")"}], "^", "2", " "}]}]}]], "Input",
 CellChangeTimes->{{3.8412314004086113`*^9, 3.841231435682724*^9}, 
   3.8412315016105413`*^9},
 CellLabel->"In[18]:=",ExpressionUUID->"502d414f-48d7-4e91-b4d6-0ce0bc904c80"],

Cell[BoxData["0.00013708586993953345`"], "Output",
 CellChangeTimes->{3.841231436385703*^9, 3.841231503632104*^9},
 CellLabel->"Out[18]=",ExpressionUUID->"a8daf2e7-7dc2-4cab-b5c5-8881f98fe94d"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "L", "]"}]], "Input",
 CellChangeTimes->{{3.841231481644484*^9, 3.841231485198741*^9}},
 CellLabel->"In[17]:=",ExpressionUUID->"fee52620-74dc-4740-9025-863ba800de50"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Ix", "=", 
  RowBox[{"L", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"k", "-", 
        RowBox[{"a", " ", "nx"}]}], ")"}], "j"}], "+", 
     RowBox[{"a", " ", "b", " ", 
      RowBox[{"nz", " ", "^", "2"}]}]}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.841231544080606*^9, 3.841231544098083*^9}, {
  3.841231578822748*^9, 3.84123163230756*^9}},
 CellLabel->"In[24]:=",ExpressionUUID->"0c616689-f9e4-4a00-ad14-14a8392588f4"],

Cell[BoxData["0.0006236523267819524`"], "Output",
 CellChangeTimes->{
  3.841231547988319*^9, {3.8412315810807247`*^9, 3.841231635169209*^9}},
 CellLabel->"Out[24]=",ExpressionUUID->"f04aaf7c-afb7-4bbc-ba27-3b847bc00bc4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["L"], "Input",
 CellChangeTimes->{3.841231619422419*^9},
 CellLabel->"In[23]:=",ExpressionUUID->"4587c355-62ee-4992-8c48-773ead30bc26"],

Cell[BoxData["0.00013708586993953345`"], "Output",
 CellChangeTimes->{3.841231620483576*^9},
 CellLabel->"Out[23]=",ExpressionUUID->"19bfa5ec-266a-4d20-a811-b4f95ab23d6c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"M", "=", 
  RowBox[{"Sqrt", "[", "Ix", "]"}]}]], "Input",
 CellChangeTimes->{{3.841231692387361*^9, 3.841231692401215*^9}},
 CellLabel->"In[25]:=",ExpressionUUID->"e13cd92f-58b3-4085-b753-afd72c6ad523"],

Cell[BoxData["0.02497303199016796`"], "Output",
 CellChangeTimes->{3.841231693473669*^9},
 CellLabel->"Out[25]=",ExpressionUUID->"063db2e2-df59-4456-9659-79433307c10d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["x"], "Input",
 CellChangeTimes->{3.841231894813881*^9},
 CellLabel->"In[26]:=",ExpressionUUID->"f99bb849-9795-474b-be03-dddd93a50a9f"],

Cell[BoxData["x"], "Output",
 CellChangeTimes->{3.841231895983762*^9},
 CellLabel->"Out[26]=",ExpressionUUID->"43b262c8-6051-4a46-9d30-c3e3b2cc901e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SGN2", "=", 
  RowBox[{"-", "1"}]}]], "Input",
 CellChangeTimes->{{3.841232010575191*^9, 3.841232010589424*^9}},
 CellLabel->"In[27]:=",ExpressionUUID->"1723058e-da09-4b62-997f-fe0309df0066"],

Cell[BoxData[
 RowBox[{"-", "1"}]], "Output",
 CellChangeTimes->{3.841232012394814*^9},
 CellLabel->"Out[27]=",ExpressionUUID->"23a55957-d59d-42d4-a445-6b58e26a83bb"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{"R", " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "2"}], "  ", 
     RowBox[{"a", "^", "2"}], "  ", "b", "  ", "k", "  ", 
     RowBox[{"nz", "^", "2"}]}], " ", "+", " ", 
    RowBox[{
     RowBox[{"a", "^", "3"}], "  ", "b", "  ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], " ", "+", " ", "nx"}], ")"}], " ", "*", " ", 
     RowBox[{"nz", "^", "2"}]}], " ", "-", " ", 
    RowBox[{"b", "  ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], " ", "+", " ", "nx"}], ")"}], "  ", "SGN2", "  ", 
     "M"}]}]}]}]], "Input",
 CellChangeTimes->{{3.84123202238348*^9, 3.841232022397573*^9}},
 CellLabel->"In[28]:=",ExpressionUUID->"dcd9494f-b605-439c-8f7d-54efa586de14"],

Cell[BoxData[
 RowBox[{"-", "0.3593441857713494`"}]], "Output",
 CellChangeTimes->{3.841232026195671*^9},
 CellLabel->"Out[28]=",ExpressionUUID->"4a4d0476-13fe-4497-9359-889d85338c57"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{"S", " ", "=", " ", 
   RowBox[{"a", " ", 
    RowBox[{"(", " ", 
     RowBox[{
      RowBox[{"2", "  ", 
       RowBox[{"b", "^", "2"}], "  ", "k", "  ", 
       RowBox[{"nz", "^", "2"}]}], " ", "+", " ", 
      RowBox[{"SGN3", "  ", 
       RowBox[{"b", "^", "3"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], " ", "+", " ", "nx"}], ")"}], " ", 
       RowBox[{"nz", "^", "2"}]}], " ", "+", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", " ", "+", " ", "nx"}], ")"}], "M"}]}], 
     ")"}]}]}]}]], "Input",
 CellChangeTimes->{{3.84123219404496*^9, 3.84123219406069*^9}},
 CellLabel->"In[29]:=",ExpressionUUID->"7b2d33aa-d985-41b7-aa04-90611a9b4828"],

Cell[BoxData[
 RowBox[{"1.2`", " ", 
  RowBox[{"(", 
   RowBox[{"0.21201009937693374`", "\[VeryThinSpace]", "-", 
    RowBox[{"0.09876046545295873`", " ", "SGN3"}]}], ")"}]}]], "Output",
 CellChangeTimes->{3.841232195565296*^9},
 CellLabel->"Out[29]=",ExpressionUUID->"c732755d-680b-4e24-a06c-49e31d81ce4c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SGN3", " ", "=", " ", "1"}]], "Input",
 CellChangeTimes->{{3.841232203173852*^9, 3.841232206832225*^9}},
 CellLabel->"In[30]:=",ExpressionUUID->"554336d3-a41a-4d74-8317-8e0d1862261c"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{3.841232207442354*^9},
 CellLabel->"Out[30]=",ExpressionUUID->"ac8742a3-98a8-4298-a0eb-17639336aea1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"S", " ", "=", " ", 
  RowBox[{"a", " ", 
   RowBox[{"(", " ", 
    RowBox[{
     RowBox[{"2", "  ", 
      RowBox[{"b", "^", "2"}], "  ", "k", "  ", 
      RowBox[{"nz", "^", "2"}]}], " ", "+", " ", 
     RowBox[{"SGN3", "  ", 
      RowBox[{"b", "^", "3"}], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], " ", "+", " ", "nx"}], ")"}], " ", 
      RowBox[{"nz", "^", "2"}]}], " ", "+", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", " ", "+", " ", "nx"}], ")"}], "M"}]}], ")"}]}]}]], "Input",\

 CellLabel->"In[31]:=",ExpressionUUID->"c0eeddc4-c5f3-4d25-b947-bd41e2851d3b"],

Cell[BoxData["0.13589956070877`"], "Output",
 CellChangeTimes->{3.841232216008436*^9},
 CellLabel->"Out[31]=",ExpressionUUID->"f9d904da-7c31-4fde-a0e9-0007376796b8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{"z", " ", "=", " ", 
   RowBox[{"2", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"R", "+", "S"}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{"nz", " ", 
       RowBox[{"(", 
        RowBox[{"a", "-", "b"}], ")"}], "  ", "D"}], ")"}]}]}]}]}]], "Input",
 CellChangeTimes->{{3.841232323223383*^9, 3.8412323389262733`*^9}},
 CellLabel->"In[32]:=",ExpressionUUID->"abb382b0-5446-4396-a20d-b60bec68b09c"],

Cell[BoxData[
 FractionBox["46.60849301797888`", "D"]], "Output",
 CellChangeTimes->{3.841232341118383*^9},
 CellLabel->"Out[32]=",ExpressionUUID->"29cf5eeb-7c3c-42e2-a092-0177a957c52b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Dx", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"a", " ", "nx"}], "+", "a", "-", 
      RowBox[{"b", " ", "nx"}], "+", "b"}], ")"}], "^", "2"}], "-", 
   RowBox[{"4", " ", "a", " ", "b", " ", 
    RowBox[{"(", 
     RowBox[{"nz", "^", "2"}], ")"}]}]}]}]], "Input",
 CellChangeTimes->{{3.8412324028183413`*^9, 3.841232410148267*^9}},
 CellLabel->"In[34]:=",ExpressionUUID->"b2ef08b8-81a2-4fa3-8cab-3502a691f619"],

Cell[BoxData["5.668339587560094`"], "Output",
 CellChangeTimes->{{3.8412324053397093`*^9, 3.841232411795347*^9}},
 CellLabel->"Out[34]=",ExpressionUUID->"d2a4b315-ba0a-4a9d-9016-98ee7909c71f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"z", " ", "=", " ", 
  RowBox[{"2", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"R", "+", "S"}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{"nz", " ", 
      RowBox[{"(", 
       RowBox[{"a", "-", "b"}], ")"}], "  ", "Dx"}], ")"}]}]}]}]], "Input",
 CellChangeTimes->{{3.8412324470632*^9, 3.841232449821618*^9}},
 CellLabel->"In[35]:=",ExpressionUUID->"6eeb14a6-6d48-4df1-998d-85c8dcabe108"],

Cell[BoxData["8.222600692496838`"], "Output",
 CellChangeTimes->{3.8412324507348833`*^9},
 CellLabel->"Out[35]=",ExpressionUUID->"481c3cdc-49e0-44ae-b037-a10625975826"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["z"], "Input",
 CellChangeTimes->{3.841232697597887*^9},
 CellLabel->"In[36]:=",ExpressionUUID->"b360f0be-45f5-4ef6-930a-581cefdbb1c0"],

Cell[BoxData["8.222600692496838`"], "Output",
 CellChangeTimes->{3.841232698241675*^9},
 CellLabel->"Out[36]=",ExpressionUUID->"70092ed6-d802-4696-9c86-c0649a559057"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{"2", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"R", "-", "S"}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{"nz", " ", 
      RowBox[{"(", 
       RowBox[{"a", "-", "b"}], ")"}], "  ", "Dx"}], ")"}]}]}]}]], "Input",
 CellChangeTimes->{{3.841232984685791*^9, 3.841232985152062*^9}},
 CellLabel->"In[37]:=",ExpressionUUID->"d78fb72c-6fc1-4ad8-ab2e-bfa5e8f91b8d"],

Cell[BoxData["18.224611899353913`"], "Output",
 CellChangeTimes->{3.841232986777031*^9},
 CellLabel->"Out[37]=",ExpressionUUID->"9aaa688e-5440-4bac-a0ea-0c8c90ced52e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "2"}], " ", 
       RowBox[{"a", "^", "2"}], " ", "b", " ", "k", " ", 
       RowBox[{"nz", "^", "2"}]}], "+", 
      RowBox[{
       RowBox[{"a", "^", "3"}], " ", "b", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
       RowBox[{"nz", "^", "2"}]}], "+", 
      RowBox[{"b", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
       RowBox[{"Sqrt", "[", 
        RowBox[{"a", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"a", "-", "b"}], ")"}], "^", "2"}], " ", "b", " ", 
         RowBox[{"nz", "^", "2"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"k", "-", 
              RowBox[{"a", " ", "nx"}]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"a", "+", "b", "+", "k", "-", 
              RowBox[{"b", " ", "nx"}]}], ")"}]}], "+", 
           RowBox[{"a", " ", "b", " ", 
            RowBox[{"nz", "^", "2"}]}]}], ")"}]}], "]"}]}], "-", 
      RowBox[{"a", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", 
          RowBox[{"b", "^", "2"}], " ", "k", " ", 
          RowBox[{"nz", "^", "2"}]}], "+", 
         RowBox[{
          RowBox[{"b", "^", "3"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
          RowBox[{"nz", "^", "2"}]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "+", "nx"}], ")"}], " ", 
          RowBox[{"Sqrt", "[", 
           RowBox[{"a", " ", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"a", "-", "b"}], ")"}], "^", "2"}], " ", "b", " ", 
            RowBox[{"nz", "^", "2"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{"k", "-", 
                 RowBox[{"a", " ", "nx"}]}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{"a", "+", "b", "+", "k", "-", 
                 RowBox[{"b", " ", "nx"}]}], ")"}]}], "+", 
              RowBox[{"a", " ", "b", " ", 
               RowBox[{"nz", "^", "2"}]}]}], ")"}]}], "]"}]}]}], ")"}]}]}], 
     ")"}]}], ")"}], "/", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"a", "-", "b"}], ")"}], " ", "nz", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", "b", "+", 
         RowBox[{"a", " ", "nx"}], "-", 
         RowBox[{"b", " ", "nx"}]}], ")"}], "^", "2"}], "-", 
      RowBox[{"4", " ", "a", " ", "b", " ", 
       RowBox[{"nz", "^", "2"}]}]}], ")"}]}], ")"}]}]], "Input",
 CellLabel->"In[38]:=",ExpressionUUID->"99b271ae-2b1b-4cc6-8518-4ef1bcaec16d"],

Cell[BoxData["1.6673299838563573`"], "Output",
 CellChangeTimes->{3.8412332358511744`*^9},
 CellLabel->"Out[38]=",ExpressionUUID->"022cae32-f8e3-4136-9bfc-c207dcde7289"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{"2", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"R", "+", "S"}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{"nz", " ", 
      RowBox[{"(", 
       RowBox[{"a", "-", "b"}], ")"}], "  ", "Dx"}], ")"}]}]}]}]], "Input",
 CellLabel->"In[39]:=",ExpressionUUID->"404fe290-d1f3-44a0-b5d4-7a0568d6187c"],

Cell[BoxData["8.222600692496838`"], "Output",
 CellChangeTimes->{3.841233261018976*^9},
 CellLabel->"Out[39]=",ExpressionUUID->"46a69016-c6fb-4797-bdff-892870998d28"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SGN3", " ", "=", " ", 
  RowBox[{"-", "1"}]}]], "Input",
 CellChangeTimes->{{3.841233299379272*^9, 3.841233302227687*^9}},
 CellLabel->"In[40]:=",ExpressionUUID->"766414d0-a5ca-44ed-8fcf-d6cdffa019c0"],

Cell[BoxData[
 RowBox[{"-", "1"}]], "Output",
 CellChangeTimes->{3.841233304174922*^9},
 CellLabel->"Out[40]=",ExpressionUUID->"097e3936-757f-4ee5-9e8c-cd480b24a0d9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"S", " ", "=", " ", 
  RowBox[{"a", " ", 
   RowBox[{"(", " ", 
    RowBox[{
     RowBox[{"2", "  ", 
      RowBox[{"b", "^", "2"}], "  ", "k", "  ", 
      RowBox[{"nz", "^", "2"}]}], " ", "+", " ", 
     RowBox[{"SGN3", "  ", 
      RowBox[{"b", "^", "3"}], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], " ", "+", " ", "nx"}], ")"}], " ", 
      RowBox[{"nz", "^", "2"}]}], " ", "+", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", " ", "+", " ", "nx"}], ")"}], "M"}]}], ")"}]}]}]], "Input",\

 CellLabel->"In[44]:=",ExpressionUUID->"c06ea37b-890d-4c93-a589-1d3863fd4541"],

Cell[BoxData["0.13589956070877`"], "Output",
 CellChangeTimes->{3.841233315418003*^9, 3.841233357719407*^9},
 CellLabel->"Out[44]=",ExpressionUUID->"757ea935-a4e1-4ca8-b647-1b22b7d449c6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"2", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"R", "+", "S"}], ")"}], "/", 
   RowBox[{"(", 
    RowBox[{"nz", " ", 
     RowBox[{"(", 
      RowBox[{"a", "-", "b"}], ")"}], "  ", "Dx"}], ")"}]}]}]], "Input",
 CellLabel->"In[42]:=",ExpressionUUID->"3133aecc-d0a5-4d3b-b752-af0c1e6dbf7b"],

Cell[BoxData[
 RowBox[{"-", "0.4997522902777567`"}]], "Output",
 CellChangeTimes->{3.8412333254462976`*^9},
 CellLabel->"Out[42]=",ExpressionUUID->"eb4ff139-8038-4bf9-8837-242f0ea30231"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SGN3", " ", "=", " ", "1"}]], "Input",
 CellChangeTimes->{{3.841233348864489*^9, 3.841233352329014*^9}},
 CellLabel->"In[43]:=",ExpressionUUID->"b4a79a10-d57d-4d1b-b9d6-1722c17bbcbe"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{3.841233353070558*^9},
 CellLabel->"Out[43]=",ExpressionUUID->"61cb3fba-09fe-4d79-bc70-2c06b61f9d4d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SGN3", " ", "=", " ", 
  RowBox[{"-", "1"}]}]], "Input",
 CellChangeTimes->{{3.841233580663308*^9, 3.8412335850730667`*^9}},
 CellLabel->"In[45]:=",ExpressionUUID->"092e80cb-d9c6-4296-8b21-08799756fa91"],

Cell[BoxData[
 RowBox[{"-", "1"}]], "Output",
 CellChangeTimes->{3.841233585566593*^9},
 CellLabel->"Out[45]=",ExpressionUUID->"2d533083-fbaa-42f8-ae9f-fa0532f31775"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{"S", " ", "=", " ", 
   RowBox[{"a", " ", 
    RowBox[{"(", " ", 
     RowBox[{
      RowBox[{"SGN3", " ", "*", " ", "2", "  ", 
       RowBox[{"b", "^", "2"}], "  ", "k", "  ", 
       RowBox[{"nz", "^", "2"}]}], " ", "+", "  ", 
      RowBox[{
       RowBox[{"b", "^", "3"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], " ", "+", " ", "nx"}], ")"}], " ", 
       RowBox[{"nz", "^", "2"}]}], " ", "+", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", " ", "+", " ", "nx"}], ")"}], "M"}]}], 
     ")"}]}]}]}]], "Input",
 CellChangeTimes->{{3.8412336139093113`*^9, 3.8412336139264*^9}},
 CellLabel->"In[46]:=",ExpressionUUID->"17f7d039-278f-4526-acab-2c4bdc23e9d0"],

Cell[BoxData[
 RowBox[{"-", "0.31403541582970074`"}]], "Output",
 CellChangeTimes->{3.841233615507722*^9},
 CellLabel->"Out[46]=",ExpressionUUID->"a5a97c70-a5ba-4366-b0d2-3ad1c2b486f3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"2", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"R", " ", "-", " ", "S"}], ")"}], "/", 
   RowBox[{"(", 
    RowBox[{"nz", " ", 
     RowBox[{"(", 
      RowBox[{"a", "-", "b"}], ")"}], "  ", "Dx"}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.84123371811087*^9, 3.841233721709955*^9}},
 CellLabel->"In[48]:=",ExpressionUUID->"5c59c260-1739-4318-b913-4f26c5d585d3"],

Cell[BoxData["1.6673299838563573`"], "Output",
 CellChangeTimes->{3.84123363004139*^9, 3.841233722875782*^9},
 CellLabel->"Out[48]=",ExpressionUUID->"1c3c2187-d792-401b-9ec4-2fae3a683708"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["SGN3"], "Input",
 CellChangeTimes->{{3.841233735869266*^9, 3.841233736543742*^9}},
 CellLabel->"In[49]:=",ExpressionUUID->"e442f152-43a4-4233-bec9-d41f65206d71"],

Cell[BoxData[
 RowBox[{"-", "1"}]], "Output",
 CellChangeTimes->{3.841233737311515*^9},
 CellLabel->"Out[49]=",ExpressionUUID->"f9117720-0888-41f0-8d54-4685ea9fef86"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["R"], "Input",
 CellChangeTimes->{3.8412339782308273`*^9},
 CellLabel->"In[50]:=",ExpressionUUID->"2fc7c4de-2d54-41ea-9d0c-1dd7d4fbeb12"],

Cell[BoxData[
 RowBox[{"-", "0.3593441857713494`"}]], "Output",
 CellChangeTimes->{3.841233979921055*^9},
 CellLabel->"Out[50]=",ExpressionUUID->"f1c0333a-3c3c-4f9a-89af-439cf3bb6e1f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["S"], "Input",
 CellChangeTimes->{3.841233981530571*^9},
 CellLabel->"In[51]:=",ExpressionUUID->"1d97dbad-3830-4526-9d31-0a921b26223b"],

Cell[BoxData[
 RowBox[{"-", "0.31403541582970074`"}]], "Output",
 CellChangeTimes->{3.841233982545355*^9},
 CellLabel->"Out[51]=",ExpressionUUID->"a17e48bb-5096-408a-bbdf-502cde228c4c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["D"], "Input",
 CellChangeTimes->{3.841233986150937*^9},
 CellLabel->"In[52]:=",ExpressionUUID->"c5e3519d-3da7-4adc-a0af-a2a5663788c5"],

Cell[BoxData["D"], "Output",
 CellChangeTimes->{3.841233986792506*^9},
 CellLabel->"Out[52]=",ExpressionUUID->"3fd2f690-58f6-4d83-bb56-457a5119db04"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["Dx"], "Input",
 CellChangeTimes->{{3.841233988821742*^9, 3.8412339891927032`*^9}},
 CellLabel->"In[53]:=",ExpressionUUID->"89eaee5c-6b33-4b6c-91aa-86592a0bc8b6"],

Cell[BoxData["5.668339587560094`"], "Output",
 CellChangeTimes->{3.841233989816476*^9},
 CellLabel->"Out[53]=",ExpressionUUID->"3f01fff8-bb10-4f92-89e4-46ad684c5732"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"2", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"R", " ", "-", " ", "S"}], ")"}], "/", 
   RowBox[{"(", 
    RowBox[{"nz", " ", 
     RowBox[{"(", 
      RowBox[{"a", "-", "b"}], ")"}], "  ", "Dx"}], ")"}]}]}]], "Input",
 CellLabel->"In[54]:=",ExpressionUUID->"0f667960-45a8-4fb8-8a33-b9a40b0ea439"],

Cell[BoxData["1.6673299838563573`"], "Output",
 CellChangeTimes->{3.8412340155135202`*^9},
 CellLabel->"Out[54]=",ExpressionUUID->"811cdfc2-603f-4312-b6ae-e940fe467748"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"a", "^", "2"}], " ", "-", " ", 
       RowBox[{"b", " ", "k"}], " ", "+", " ", 
       RowBox[{"a", " ", 
        RowBox[{"(", 
         RowBox[{"b", " ", "+", " ", "k"}], ")"}]}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"a", " ", "+", " ", "b", " ", "+", " ", 
       RowBox[{"a", " ", "nx"}], " ", "-", " ", 
       RowBox[{"b", " ", "nx"}]}], ")"}]}], " ", "-", "\n", "      ", 
    RowBox[{"2", " ", "a", " ", "b", " ", 
     RowBox[{"(", 
      RowBox[{"a", " ", "+", " ", "b"}], ")"}], " ", 
     RowBox[{"nz", "^", "2"}]}], " ", "-", "\n", "      ", 
    RowBox[{"2", " ", 
     RowBox[{"Sqrt", "[", 
      RowBox[{
       RowBox[{"-", "a"}], " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", " ", "-", " ", "b"}], ")"}], "^", "2"}], " ", "b", " ", 
       
       RowBox[{"nz", "^", "2"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "k"}], " ", "+", " ", 
            RowBox[{"a", " ", "nx"}]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{"a", " ", "+", " ", "b", " ", "+", " ", "k", " ", "-", " ", 
            RowBox[{"b", " ", "nx"}]}], ")"}]}], " ", "-", "\n", "          ", 
         RowBox[{"a", " ", "b", " ", 
          RowBox[{"nz", "^", "2"}]}]}], ")"}]}], "]"}]}]}], ")"}], "/", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a", " ", "+", " ", "b", " ", "+", " ", 
       RowBox[{"a", " ", "nx"}], " ", "-", " ", 
       RowBox[{"b", " ", "nx"}]}], ")"}], "^", "2"}], " ", "-", " ", 
    RowBox[{"4", " ", "a", " ", "b", " ", 
     RowBox[{"nz", "^", "2"}]}]}], ")"}]}]], "Input",
 CellChangeTimes->{{3.841328728474188*^9, 3.841328728490261*^9}},
 CellLabel->"In[55]:=",ExpressionUUID->"2c32f436-1811-4288-b3f1-415101115ed3"],

Cell[BoxData["1.1676181198426308`"], "Output",
 CellChangeTimes->{3.8413287298239*^9},
 CellLabel->"Out[55]=",ExpressionUUID->"5010a8ad-e8a0-49d1-8cfe-484a7d9b5b4a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "2"}], " ", 
       RowBox[{"a", "^", "2"}], " ", "b", " ", "k", " ", 
       RowBox[{"nz", "^", "2"}]}], " ", "+", " ", 
      RowBox[{
       RowBox[{"a", "^", "3"}], " ", "b", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], " ", "+", " ", "nx"}], ")"}], " ", 
       RowBox[{"nz", "^", "2"}]}], " ", "-", "\n", "        ", 
      RowBox[{"b", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], " ", "+", " ", "nx"}], ")"}], " ", 
       RowBox[{"Sqrt", "[", "\n", "         ", 
        RowBox[{"a", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"a", " ", "-", " ", "b"}], ")"}], "^", "2"}], " ", "b", 
         " ", 
         RowBox[{"nz", "^", "2"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"k", " ", "-", " ", 
              RowBox[{"a", " ", "nx"}]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
             "a", " ", "+", " ", "b", " ", "+", " ", "k", " ", "-", " ", 
              RowBox[{"b", " ", "nx"}]}], ")"}]}], " ", "+", "\n", 
           "            ", 
           RowBox[{"a", " ", "b", " ", 
            RowBox[{"nz", "^", "2"}]}]}], ")"}]}], "]"}]}], " ", "+", "\n", 
      "        ", 
      RowBox[{"a", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", 
          RowBox[{"b", "^", "2"}], " ", "k", " ", 
          RowBox[{"nz", "^", "2"}]}], " ", "-", "\n", "           ", 
         RowBox[{
          RowBox[{"b", "^", "3"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], " ", "+", " ", "nx"}], ")"}], " ", 
          RowBox[{"nz", "^", "2"}]}], " ", "+", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", " ", "+", " ", "nx"}], ")"}], " ", 
          RowBox[{"Sqrt", "[", "\n", "            ", 
           RowBox[{"a", " ", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"a", " ", "-", " ", "b"}], ")"}], "^", "2"}], " ", "b", 
            " ", 
            RowBox[{"nz", "^", "2"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{"k", " ", "-", " ", 
                 RowBox[{"a", " ", "nx"}]}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                "a", " ", "+", " ", "b", " ", "+", " ", "k", " ", "-", " ", 
                 RowBox[{"b", " ", "nx"}]}], ")"}]}], " ", "+", "\n", 
              "               ", 
              RowBox[{"a", " ", "b", " ", 
               RowBox[{"nz", "^", "2"}]}]}], ")"}]}], "]"}]}]}], ")"}]}]}], 
     ")"}]}], ")"}], "/", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"a", " ", "-", " ", "b"}], ")"}], " ", "nz", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", " ", "+", " ", "b", " ", "+", " ", 
         RowBox[{"a", " ", "nx"}], " ", "-", " ", 
         RowBox[{"b", " ", "nx"}]}], ")"}], "^", "2"}], " ", "-", "\n", 
      "        ", 
      RowBox[{"4", " ", "a", " ", "b", " ", 
       RowBox[{"nz", "^", "2"}]}]}], ")"}]}], ")"}]}]], "Input",
 CellChangeTimes->{{3.8413287391488256`*^9, 3.841328739165669*^9}},
 CellLabel->"In[56]:=",ExpressionUUID->"a1179a31-0d8b-41be-adb6-8f1e047eaa03"],

Cell[BoxData[
 RowBox[{"-", "2.823539803691403`"}]], "Output",
 CellChangeTimes->{3.8413287397100573`*^9},
 CellLabel->"Out[56]=",ExpressionUUID->"2237e9f6-0438-420b-bbd0-9aa18c1ff2c1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Sqrt", "[", 
   RowBox[{
    RowBox[{"1.16762", "^", "2"}], " ", "+", " ", 
    RowBox[{"2.82354", "^", "2"}]}], "]"}], " ", "-", " ", "a"}]], "Input",
 CellChangeTimes->{{3.84132879728084*^9, 3.84132881216016*^9}},
 CellLabel->"In[57]:=",ExpressionUUID->"a92ba12d-f573-4a57-b459-b177b1264fb2"],

Cell[BoxData["1.8554401640352898`"], "Output",
 CellChangeTimes->{3.84132881408076*^9},
 CellLabel->"Out[57]=",ExpressionUUID->"f618fc73-11a7-433f-899a-38d90c0bac88"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"a", "+", 
   RowBox[{"Abs", "[", 
    RowBox[{
     RowBox[{"nx", "*", "x"}], "+", 
     RowBox[{"nz", "*", "z"}], "-", "k"}], "]"}]}], "==", 
  RowBox[{"Sqrt", "[", 
   RowBox[{
    RowBox[{"x", "^", "2"}], "+", 
    RowBox[{"z", "^", "2"}]}], "]"}]}], "\n", 
 RowBox[{"eqn0", "=", "%"}], "\n", 
 RowBox[{
  RowBox[{"b", "+", 
   RowBox[{"Abs", "[", 
    RowBox[{
     RowBox[{"nx", "*", "x"}], "+", 
     RowBox[{"nz", "*", "z"}], "-", "k"}], "]"}]}], "==", 
  RowBox[{"Sqrt", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a", "+", "b", "-", "x"}], ")"}], "^", "2"}], "+", 
    RowBox[{"z", "^", "2"}]}], "]"}]}], "\n", 
 RowBox[{"eqn1", "=", "%"}]}], "Input",
 CellChangeTimes->{{3.841329378373165*^9, 3.841329384183366*^9}},
 CellLabel->"In[58]:=",ExpressionUUID->"a579b75a-e296-4d8b-9950-9c86541f7c34"],

Cell[BoxData[
 RowBox[{
  RowBox[{"1.2`", "\[VeryThinSpace]", "+", 
   RowBox[{"Abs", "[", 
    RowBox[{"0.649400979592136`", "\[VeryThinSpace]", "-", 
     RowBox[{"0.017452406437283508`", " ", "x"}]}], "]"}]}], "\[Equal]", 
  SqrtBox[
   RowBox[{"67.61116214824949`", "\[VeryThinSpace]", "+", 
    SuperscriptBox["x", "2"]}]]}]], "Output",
 CellChangeTimes->{3.8413293860514383`*^9},
 CellLabel->"Out[58]=",ExpressionUUID->"4278aafd-1ff0-4795-993d-16ff9eac1713"],

Cell[BoxData[
 RowBox[{
  RowBox[{"1.2`", "\[VeryThinSpace]", "+", 
   RowBox[{"Abs", "[", 
    RowBox[{"0.649400979592136`", "\[VeryThinSpace]", "-", 
     RowBox[{"0.017452406437283508`", " ", "x"}]}], "]"}]}], "\[Equal]", 
  SqrtBox[
   RowBox[{"67.61116214824949`", "\[VeryThinSpace]", "+", 
    SuperscriptBox["x", "2"]}]]}]], "Output",
 CellChangeTimes->{3.841329386054883*^9},
 CellLabel->"Out[59]=",ExpressionUUID->"df8c2e0f-1153-44da-b3ce-92dbe35a977f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"1.2426297674778306`", "\[VeryThinSpace]", "+", 
   RowBox[{"Abs", "[", 
    RowBox[{"0.649400979592136`", "\[VeryThinSpace]", "-", 
     RowBox[{"0.017452406437283508`", " ", "x"}]}], "]"}]}], "\[Equal]", 
  SqrtBox[
   RowBox[{"67.61116214824949`", "\[VeryThinSpace]", "+", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"2.442629767477831`", "\[VeryThinSpace]", "-", "x"}], ")"}], 
     "2"]}]]}]], "Output",
 CellChangeTimes->{3.841329386057847*^9},
 CellLabel->"Out[60]=",ExpressionUUID->"341c2c8b-63c2-4f0f-af17-f30d0c26de33"],

Cell[BoxData[
 RowBox[{
  RowBox[{"1.2426297674778306`", "\[VeryThinSpace]", "+", 
   RowBox[{"Abs", "[", 
    RowBox[{"0.649400979592136`", "\[VeryThinSpace]", "-", 
     RowBox[{"0.017452406437283508`", " ", "x"}]}], "]"}]}], "\[Equal]", 
  SqrtBox[
   RowBox[{"67.61116214824949`", "\[VeryThinSpace]", "+", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"2.442629767477831`", "\[VeryThinSpace]", "-", "x"}], ")"}], 
     "2"]}]]}]], "Output",
 CellChangeTimes->{3.8413293860606956`*^9},
 CellLabel->"Out[61]=",ExpressionUUID->"ae32753e-aa43-4fa0-b99b-4daf0e501967"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{"eqn0", " ", "&&", " ", "eqn1"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"x", ",", " ", "z"}], "}"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.8413293988569183`*^9, 3.84132939887106*^9}},
 CellLabel->"In[62]:=",ExpressionUUID->"e667d182-3187-448d-a9ee-981fb1f2a8d6"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "ivar", 
   "\"\\!\\(\\*RowBox[{\\\"8.222600692496838`\\\"}]\\) is not a valid \
variable.\"", 2, 62, 4, 31665523190856943798, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.841329399454392*^9},
 CellLabel->
  "During evaluation of \
In[62]:=",ExpressionUUID->"d3d93e8a-f550-458a-9f08-630ffb2fe68b"],

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"1.2`", "\[VeryThinSpace]", "+", 
      RowBox[{"Abs", "[", 
       RowBox[{"0.649400979592136`", "\[VeryThinSpace]", "-", 
        RowBox[{"0.017452406437283508`", " ", "x"}]}], "]"}]}], "\[Equal]", 
     SqrtBox[
      RowBox[{"67.61116214824949`", "\[VeryThinSpace]", "+", 
       SuperscriptBox["x", "2"]}]]}], "&&", 
    RowBox[{
     RowBox[{"1.2426297674778306`", "\[VeryThinSpace]", "+", 
      RowBox[{"Abs", "[", 
       RowBox[{"0.649400979592136`", "\[VeryThinSpace]", "-", 
        RowBox[{"0.017452406437283508`", " ", "x"}]}], "]"}]}], "\[Equal]", 
     SqrtBox[
      RowBox[{"73.5776023292183`", "\[VeryThinSpace]", "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "4.885259534955662`"}], "+", "x"}], ")"}], " ", 
        "x"}]}]]}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "8.222600692496838`"}], "}"}]}], "]"}]], "Output",
 CellChangeTimes->{3.841329399728245*^9},
 CellLabel->"Out[62]=",ExpressionUUID->"0365dcb6-d414-47fc-9aff-73112eddeac7"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"ClearAll", "[", "]"}]], "Input",
 CellChangeTimes->{{3.8413294212718363`*^9, 3.841329431470984*^9}},
 CellLabel->"In[63]:=",ExpressionUUID->"297353e1-d1e6-4620-996e-48d84e2180bd"],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"Clear", "[", 
   RowBox[{
   "a", ",", "b", ",", "nz", ",", "nx", ",", "x", ",", "z", ",", "k", ",", 
    "c"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.841329433293414*^9, 
  3.841329477761094*^9}},ExpressionUUID->"b2800d1e-b666-4ddd-8564-\
493b54a89b41"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"a", "+", 
   RowBox[{"Abs", "[", 
    RowBox[{
     RowBox[{"nx", "*", "x"}], "+", 
     RowBox[{"nz", "*", "z"}], "-", "k"}], "]"}]}], "==", 
  RowBox[{"Sqrt", "[", 
   RowBox[{
    RowBox[{"x", "^", "2"}], "+", 
    RowBox[{"z", "^", "2"}]}], "]"}]}], "\n", 
 RowBox[{"eqn0", "=", "%"}], "\n", 
 RowBox[{
  RowBox[{"b", "+", 
   RowBox[{"Abs", "[", 
    RowBox[{
     RowBox[{"nx", "*", "x"}], "+", 
     RowBox[{"nz", "*", "z"}], "-", "k"}], "]"}]}], "==", 
  RowBox[{"Sqrt", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a", "+", "b", "-", "x"}], ")"}], "^", "2"}], "+", 
    RowBox[{"z", "^", "2"}]}], "]"}]}], "\n", 
 RowBox[{"eqn1", "=", "%"}]}], "Input",
 CellLabel->"In[65]:=",ExpressionUUID->"1724ae07-1651-45b4-99cc-19469965502c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"a", "+", 
   RowBox[{"Abs", "[", 
    RowBox[{
     RowBox[{"-", "k"}], "+", 
     RowBox[{"nx", " ", "x"}], "+", 
     RowBox[{"0.22491679320871352`", " ", "z"}]}], "]"}]}], "\[Equal]", 
  SqrtBox[
   RowBox[{
    SuperscriptBox["x", "2"], "+", 
    SuperscriptBox["z", "2"]}]]}]], "Output",
 CellChangeTimes->{3.841329466975917*^9},
 CellLabel->"Out[65]=",ExpressionUUID->"c0d6853d-e471-4edb-97c4-d72acf9d7b32"],

Cell[BoxData[
 RowBox[{
  RowBox[{"a", "+", 
   RowBox[{"Abs", "[", 
    RowBox[{
     RowBox[{"-", "k"}], "+", 
     RowBox[{"nx", " ", "x"}], "+", 
     RowBox[{"0.22491679320871352`", " ", "z"}]}], "]"}]}], "\[Equal]", 
  SqrtBox[
   RowBox[{
    SuperscriptBox["x", "2"], "+", 
    SuperscriptBox["z", "2"]}]]}]], "Output",
 CellChangeTimes->{3.841329466979109*^9},
 CellLabel->"Out[66]=",ExpressionUUID->"d198f438-ab24-4b62-a052-040da4e476c4"],

Cell[BoxData[
 RowBox[{
  RowBox[{"b", "+", 
   RowBox[{"Abs", "[", 
    RowBox[{
     RowBox[{"-", "k"}], "+", 
     RowBox[{"nx", " ", "x"}], "+", 
     RowBox[{"0.22491679320871352`", " ", "z"}]}], "]"}]}], "\[Equal]", 
  SqrtBox[
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", "b", "-", "x"}], ")"}], "2"], "+", 
    SuperscriptBox["z", "2"]}]]}]], "Output",
 CellChangeTimes->{3.841329466981572*^9},
 CellLabel->"Out[67]=",ExpressionUUID->"a5a8f759-06c3-4f17-bc74-35caea6a03e9"],

Cell[BoxData[
 RowBox[{
  RowBox[{"b", "+", 
   RowBox[{"Abs", "[", 
    RowBox[{
     RowBox[{"-", "k"}], "+", 
     RowBox[{"nx", " ", "x"}], "+", 
     RowBox[{"0.22491679320871352`", " ", "z"}]}], "]"}]}], "\[Equal]", 
  SqrtBox[
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", "b", "-", "x"}], ")"}], "2"], "+", 
    SuperscriptBox["z", "2"]}]]}]], "Output",
 CellChangeTimes->{3.841329466984153*^9},
 CellLabel->"Out[68]=",ExpressionUUID->"e3473519-2c81-49f5-87aa-ebf9233bba00"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{
  "a", ",", "b", ",", "nz", ",", "nx", ",", "x", ",", "z", ",", "k", ",", 
   "c"}], "]"}]], "Input",
 CellLabel->"In[69]:=",ExpressionUUID->"6bc7422a-aefa-4628-bd61-829f9dab98f6"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"a", "+", 
   RowBox[{"Abs", "[", 
    RowBox[{
     RowBox[{"nx", "*", "x"}], "+", 
     RowBox[{"nz", "*", "z"}], "-", "k"}], "]"}]}], "==", 
  RowBox[{"Sqrt", "[", 
   RowBox[{
    RowBox[{"x", "^", "2"}], "+", 
    RowBox[{"z", "^", "2"}]}], "]"}]}], "\n", 
 RowBox[{"eqn0", "=", "%"}], "\n", 
 RowBox[{
  RowBox[{"b", "+", 
   RowBox[{"Abs", "[", 
    RowBox[{
     RowBox[{"nx", "*", "x"}], "+", 
     RowBox[{"nz", "*", "z"}], "-", "k"}], "]"}]}], "==", 
  RowBox[{"Sqrt", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a", "+", "b", "-", "x"}], ")"}], "^", "2"}], "+", 
    RowBox[{"z", "^", "2"}]}], "]"}]}], "\n", 
 RowBox[{"eqn1", "=", "%"}]}], "Input",
 CellLabel->"In[70]:=",ExpressionUUID->"992ded32-e4e9-4473-951e-5fc39c0f7f43"],

Cell[BoxData[
 RowBox[{
  RowBox[{"a", "+", 
   RowBox[{"Abs", "[", 
    RowBox[{
     RowBox[{"-", "k"}], "+", 
     RowBox[{"nx", " ", "x"}], "+", 
     RowBox[{"nz", " ", "z"}]}], "]"}]}], "\[Equal]", 
  SqrtBox[
   RowBox[{
    SuperscriptBox["x", "2"], "+", 
    SuperscriptBox["z", "2"]}]]}]], "Output",
 CellChangeTimes->{3.84132948901268*^9},
 CellLabel->"Out[70]=",ExpressionUUID->"e37de01a-0769-4f89-89ab-6c79fcd670a2"],

Cell[BoxData[
 RowBox[{
  RowBox[{"a", "+", 
   RowBox[{"Abs", "[", 
    RowBox[{
     RowBox[{"-", "k"}], "+", 
     RowBox[{"nx", " ", "x"}], "+", 
     RowBox[{"nz", " ", "z"}]}], "]"}]}], "\[Equal]", 
  SqrtBox[
   RowBox[{
    SuperscriptBox["x", "2"], "+", 
    SuperscriptBox["z", "2"]}]]}]], "Output",
 CellChangeTimes->{3.841329489016178*^9},
 CellLabel->"Out[71]=",ExpressionUUID->"96f16756-cdec-4713-a91a-2ea633509dbf"],

Cell[BoxData[
 RowBox[{
  RowBox[{"b", "+", 
   RowBox[{"Abs", "[", 
    RowBox[{
     RowBox[{"-", "k"}], "+", 
     RowBox[{"nx", " ", "x"}], "+", 
     RowBox[{"nz", " ", "z"}]}], "]"}]}], "\[Equal]", 
  SqrtBox[
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", "b", "-", "x"}], ")"}], "2"], "+", 
    SuperscriptBox["z", "2"]}]]}]], "Output",
 CellChangeTimes->{3.841329489019107*^9},
 CellLabel->"Out[72]=",ExpressionUUID->"4d0990ee-8e08-4a65-add4-739e2cf07b4e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"b", "+", 
   RowBox[{"Abs", "[", 
    RowBox[{
     RowBox[{"-", "k"}], "+", 
     RowBox[{"nx", " ", "x"}], "+", 
     RowBox[{"nz", " ", "z"}]}], "]"}]}], "\[Equal]", 
  SqrtBox[
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", "b", "-", "x"}], ")"}], "2"], "+", 
    SuperscriptBox["z", "2"]}]]}]], "Output",
 CellChangeTimes->{3.841329489022422*^9},
 CellLabel->"Out[73]=",ExpressionUUID->"cf73f2eb-4a55-4859-8fef-d1a0ad09efef"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{"eqn0", " ", "&&", " ", "eqn1"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"x", ",", " ", "z"}], "}"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.841329587641835*^9, 3.841329587655653*^9}},
 CellLabel->"In[74]:=",ExpressionUUID->"c1b4fef9-fa36-478b-bf71-5c12a550bfee"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "nongen", 
   "\"Solutions may not be valid for all values of parameters.\"", 2, 74, 5, 
   31665523190856943798, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.841329590658432*^9},
 CellLabel->
  "During evaluation of \
In[74]:=",ExpressionUUID->"c03afb15-e459-4796-bd18-af5057520d1e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["a", "2"], "-", 
            RowBox[{"b", " ", "k"}], "+", 
            RowBox[{"a", " ", 
             RowBox[{"(", 
              RowBox[{"b", "+", "k"}], ")"}]}]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{"a", "+", "b", "+", 
            RowBox[{"a", " ", "nx"}], "-", 
            RowBox[{"b", " ", "nx"}]}], ")"}]}], "-", 
         RowBox[{"2", " ", "a", " ", "b", " ", 
          RowBox[{"(", 
           RowBox[{"a", "+", "b"}], ")"}], " ", 
          SuperscriptBox["nz", "2"]}], "-", 
         RowBox[{"2", " ", 
          RowBox[{"\[Sqrt]", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "a"}], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
             SuperscriptBox["nz", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "k"}], "+", 
                  RowBox[{"a", " ", "nx"}]}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{"a", "+", "b", "+", "k", "-", 
                  RowBox[{"b", " ", "nx"}]}], ")"}]}], "-", 
               RowBox[{"a", " ", "b", " ", 
                SuperscriptBox["nz", "2"]}]}], ")"}]}], ")"}]}]}]}], ")"}], 
       "/", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"a", "+", "b", "+", 
            RowBox[{"a", " ", "nx"}], "-", 
            RowBox[{"b", " ", "nx"}]}], ")"}], "2"], "-", 
         RowBox[{"4", " ", "a", " ", "b", " ", 
          SuperscriptBox["nz", "2"]}]}], ")"}]}]}], ",", 
     RowBox[{"z", "\[Rule]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "2"}], " ", 
            SuperscriptBox["a", "2"], " ", "b", " ", "k", " ", 
            SuperscriptBox["nz", "2"]}], "+", 
           RowBox[{
            SuperscriptBox["a", "3"], " ", "b", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
            SuperscriptBox["nz", "2"]}], "-", 
           RowBox[{"b", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
            RowBox[{"\[Sqrt]", 
             RowBox[{"(", 
              RowBox[{"a", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
               SuperscriptBox["nz", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"k", "-", 
                    RowBox[{"a", " ", "nx"}]}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{"a", "+", "b", "+", "k", "-", 
                    RowBox[{"b", " ", "nx"}]}], ")"}]}], "+", 
                 RowBox[{"a", " ", "b", " ", 
                  SuperscriptBox["nz", "2"]}]}], ")"}]}], ")"}]}]}], "+", 
           RowBox[{"a", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               SuperscriptBox["b", "2"], " ", "k", " ", 
               SuperscriptBox["nz", "2"]}], "-", 
              RowBox[{
               SuperscriptBox["b", "3"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
               SuperscriptBox["nz", "2"]}], "+", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"1", "+", "nx"}], ")"}], " ", 
               RowBox[{"\[Sqrt]", 
                RowBox[{"(", 
                 RowBox[{"a", " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
                  SuperscriptBox["nz", "2"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"k", "-", 
                    RowBox[{"a", " ", "nx"}]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{"a", "+", "b", "+", "k", "-", 
                    RowBox[{"b", " ", "nx"}]}], ")"}]}], "+", 
                    RowBox[{"a", " ", "b", " ", 
                    SuperscriptBox["nz", "2"]}]}], ")"}]}], ")"}]}]}]}], 
             ")"}]}]}], ")"}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "-", "b"}], ")"}], " ", "nz", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"a", "+", "b", "+", 
              RowBox[{"a", " ", "nx"}], "-", 
              RowBox[{"b", " ", "nx"}]}], ")"}], "2"], "-", 
           RowBox[{"4", " ", "a", " ", "b", " ", 
            SuperscriptBox["nz", "2"]}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["a", "2"], "-", 
            RowBox[{"b", " ", "k"}], "+", 
            RowBox[{"a", " ", 
             RowBox[{"(", 
              RowBox[{"b", "+", "k"}], ")"}]}]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{"a", "+", "b", "+", 
            RowBox[{"a", " ", "nx"}], "-", 
            RowBox[{"b", " ", "nx"}]}], ")"}]}], "-", 
         RowBox[{"2", " ", "a", " ", "b", " ", 
          RowBox[{"(", 
           RowBox[{"a", "+", "b"}], ")"}], " ", 
          SuperscriptBox["nz", "2"]}], "+", 
         RowBox[{"2", " ", 
          RowBox[{"\[Sqrt]", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "a"}], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
             SuperscriptBox["nz", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "k"}], "+", 
                  RowBox[{"a", " ", "nx"}]}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{"a", "+", "b", "+", "k", "-", 
                  RowBox[{"b", " ", "nx"}]}], ")"}]}], "-", 
               RowBox[{"a", " ", "b", " ", 
                SuperscriptBox["nz", "2"]}]}], ")"}]}], ")"}]}]}]}], ")"}], 
       "/", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"a", "+", "b", "+", 
            RowBox[{"a", " ", "nx"}], "-", 
            RowBox[{"b", " ", "nx"}]}], ")"}], "2"], "-", 
         RowBox[{"4", " ", "a", " ", "b", " ", 
          SuperscriptBox["nz", "2"]}]}], ")"}]}]}], ",", 
     RowBox[{"z", "\[Rule]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "2"}], " ", 
            SuperscriptBox["a", "2"], " ", "b", " ", "k", " ", 
            SuperscriptBox["nz", "2"]}], "+", 
           RowBox[{
            SuperscriptBox["a", "3"], " ", "b", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
            SuperscriptBox["nz", "2"]}], "+", 
           RowBox[{"b", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
            RowBox[{"\[Sqrt]", 
             RowBox[{"(", 
              RowBox[{"a", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
               SuperscriptBox["nz", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"k", "-", 
                    RowBox[{"a", " ", "nx"}]}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{"a", "+", "b", "+", "k", "-", 
                    RowBox[{"b", " ", "nx"}]}], ")"}]}], "+", 
                 RowBox[{"a", " ", "b", " ", 
                  SuperscriptBox["nz", "2"]}]}], ")"}]}], ")"}]}]}], "-", 
           RowBox[{"a", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], " ", 
               SuperscriptBox["b", "2"], " ", "k", " ", 
               SuperscriptBox["nz", "2"]}], "+", 
              RowBox[{
               SuperscriptBox["b", "3"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
               SuperscriptBox["nz", "2"]}], "+", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"1", "+", "nx"}], ")"}], " ", 
               RowBox[{"\[Sqrt]", 
                RowBox[{"(", 
                 RowBox[{"a", " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
                  SuperscriptBox["nz", "2"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"k", "-", 
                    RowBox[{"a", " ", "nx"}]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{"a", "+", "b", "+", "k", "-", 
                    RowBox[{"b", " ", "nx"}]}], ")"}]}], "+", 
                    RowBox[{"a", " ", "b", " ", 
                    SuperscriptBox["nz", "2"]}]}], ")"}]}], ")"}]}]}]}], 
             ")"}]}]}], ")"}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "-", "b"}], ")"}], " ", "nz", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"a", "+", "b", "+", 
              RowBox[{"a", " ", "nx"}], "-", 
              RowBox[{"b", " ", "nx"}]}], ")"}], "2"], "-", 
           RowBox[{"4", " ", "a", " ", "b", " ", 
            SuperscriptBox["nz", "2"]}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      RowBox[{"-", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox["a", "2"], "+", 
              RowBox[{"a", " ", 
               RowBox[{"(", 
                RowBox[{"b", "-", "k"}], ")"}]}], "+", 
              RowBox[{"b", " ", "k"}]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"a", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
              RowBox[{"b", " ", 
               RowBox[{"(", 
                RowBox[{"1", "+", "nx"}], ")"}]}]}], ")"}]}], "+", 
           RowBox[{"2", " ", "a", " ", "b", " ", 
            RowBox[{"(", 
             RowBox[{"a", "+", "b"}], ")"}], " ", 
            SuperscriptBox["nz", "2"]}], "+", 
           RowBox[{"2", " ", 
            RowBox[{"\[Sqrt]", 
             RowBox[{"(", 
              RowBox[{"a", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
               SuperscriptBox["nz", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "k"}], "+", 
                    RowBox[{"a", " ", "nx"}]}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{"a", "+", "b", "-", "k", "+", 
                    RowBox[{"b", " ", "nx"}]}], ")"}]}], "+", 
                 RowBox[{"a", " ", "b", " ", 
                  SuperscriptBox["nz", "2"]}]}], ")"}]}], ")"}]}]}]}], ")"}], 
         "/", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"a", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
              RowBox[{"b", " ", 
               RowBox[{"(", 
                RowBox[{"1", "+", "nx"}], ")"}]}]}], ")"}], "2"], "-", 
           RowBox[{"4", " ", "a", " ", "b", " ", 
            SuperscriptBox["nz", "2"]}]}], ")"}]}], ")"}]}]}], ",", 
     RowBox[{"z", "\[Rule]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "4"}], " ", 
          SuperscriptBox["a", "2"], " ", "b", " ", "k", " ", 
          SuperscriptBox["nz", "2"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["a", "3"], " ", "b", " ", 
          RowBox[{"(", 
           RowBox[{"1", "+", "nx"}], ")"}], " ", 
          SuperscriptBox["nz", "2"]}], "-", 
         RowBox[{"2", " ", "b", " ", 
          RowBox[{"(", 
           RowBox[{"1", "+", "nx"}], ")"}], " ", 
          SqrtBox[
           RowBox[{"a", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
            SuperscriptBox["nz", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "k"}], "+", 
                 RowBox[{"a", " ", "nx"}]}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{"a", "+", "b", "-", "k", "+", 
                 RowBox[{"b", " ", "nx"}]}], ")"}]}], "+", 
              RowBox[{"a", " ", "b", " ", 
               SuperscriptBox["nz", "2"]}]}], ")"}]}]]}], "+", 
         RowBox[{"2", " ", "a", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             SuperscriptBox["b", "2"], " ", "k", " ", 
             SuperscriptBox["nz", "2"]}], "-", 
            RowBox[{
             SuperscriptBox["b", "3"], " ", 
             RowBox[{"(", 
              RowBox[{"1", "+", "nx"}], ")"}], " ", 
             SuperscriptBox["nz", "2"]}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
             RowBox[{"\[Sqrt]", 
              RowBox[{"(", 
               RowBox[{"a", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
                SuperscriptBox["nz", "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "k"}], "+", 
                    RowBox[{"a", " ", "nx"}]}], ")"}], " ", 
                   RowBox[{"(", 
                    RowBox[{"a", "+", "b", "-", "k", "+", 
                    RowBox[{"b", " ", "nx"}]}], ")"}]}], "+", 
                  RowBox[{"a", " ", "b", " ", 
                   SuperscriptBox["nz", "2"]}]}], ")"}]}], ")"}]}]}]}], 
           ")"}]}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "-", "b"}], ")"}], " ", "nz", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"a", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
              RowBox[{"b", " ", 
               RowBox[{"(", 
                RowBox[{"1", "+", "nx"}], ")"}]}]}], ")"}], "2"], "-", 
           RowBox[{"4", " ", "a", " ", "b", " ", 
            SuperscriptBox["nz", "2"]}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox["a", "2"], "+", 
              RowBox[{"a", " ", 
               RowBox[{"(", 
                RowBox[{"b", "-", "k"}], ")"}]}], "+", 
              RowBox[{"b", " ", "k"}]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"a", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
              RowBox[{"b", " ", 
               RowBox[{"(", 
                RowBox[{"1", "+", "nx"}], ")"}]}]}], ")"}]}], ")"}]}], "-", 
         RowBox[{"2", " ", "a", " ", "b", " ", 
          RowBox[{"(", 
           RowBox[{"a", "+", "b"}], ")"}], " ", 
          SuperscriptBox["nz", "2"]}], "+", 
         RowBox[{"2", " ", 
          SqrtBox[
           RowBox[{"a", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
            SuperscriptBox["nz", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "k"}], "+", 
                 RowBox[{"a", " ", "nx"}]}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{"a", "+", "b", "-", "k", "+", 
                 RowBox[{"b", " ", "nx"}]}], ")"}]}], "+", 
              RowBox[{"a", " ", "b", " ", 
               SuperscriptBox["nz", "2"]}]}], ")"}]}]]}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"a", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
            RowBox[{"b", " ", 
             RowBox[{"(", 
              RowBox[{"1", "+", "nx"}], ")"}]}]}], ")"}], "2"], "-", 
         RowBox[{"4", " ", "a", " ", "b", " ", 
          SuperscriptBox["nz", "2"]}]}], ")"}]}]}], ",", 
     RowBox[{"z", "\[Rule]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "2"}], " ", 
            SuperscriptBox["a", "2"], " ", "b", " ", "k", " ", 
            SuperscriptBox["nz", "2"]}], "+", 
           RowBox[{
            SuperscriptBox["a", "3"], " ", "b", " ", 
            RowBox[{"(", 
             RowBox[{"1", "+", "nx"}], ")"}], " ", 
            SuperscriptBox["nz", "2"]}], "+", 
           RowBox[{"b", " ", 
            RowBox[{"(", 
             RowBox[{"1", "+", "nx"}], ")"}], " ", 
            RowBox[{"\[Sqrt]", 
             RowBox[{"(", 
              RowBox[{"a", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
               SuperscriptBox["nz", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "k"}], "+", 
                    RowBox[{"a", " ", "nx"}]}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{"a", "+", "b", "-", "k", "+", 
                    RowBox[{"b", " ", "nx"}]}], ")"}]}], "+", 
                 RowBox[{"a", " ", "b", " ", 
                  SuperscriptBox["nz", "2"]}]}], ")"}]}], ")"}]}]}], "+", 
           RowBox[{"a", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               SuperscriptBox["b", "2"], " ", "k", " ", 
               SuperscriptBox["nz", "2"]}], "-", 
              RowBox[{
               SuperscriptBox["b", "3"], " ", 
               RowBox[{"(", 
                RowBox[{"1", "+", "nx"}], ")"}], " ", 
               SuperscriptBox["nz", "2"]}], "-", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
               RowBox[{"\[Sqrt]", 
                RowBox[{"(", 
                 RowBox[{"a", " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
                  SuperscriptBox["nz", "2"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "k"}], "+", 
                    RowBox[{"a", " ", "nx"}]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{"a", "+", "b", "-", "k", "+", 
                    RowBox[{"b", " ", "nx"}]}], ")"}]}], "+", 
                    RowBox[{"a", " ", "b", " ", 
                    SuperscriptBox["nz", "2"]}]}], ")"}]}], ")"}]}]}]}], 
             ")"}]}]}], ")"}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "-", "b"}], ")"}], " ", "nz", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"a", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
              RowBox[{"b", " ", 
               RowBox[{"(", 
                RowBox[{"1", "+", "nx"}], ")"}]}]}], ")"}], "2"], "-", 
           RowBox[{"4", " ", "a", " ", "b", " ", 
            SuperscriptBox["nz", "2"]}]}], ")"}]}], ")"}]}]}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.8413296026792183`*^9},
 CellLabel->"Out[74]=",ExpressionUUID->"8f8250ac-0118-44da-b644-bdc4d619a3a4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"a", "=", "1.2"}], "\n", 
 RowBox[{"b", "=", "0.9"}], "\n", 
 RowBox[{"nx", "=", "0.1428571428571428"}]}], "Input",
 CellChangeTimes->{{3.8413931153004837`*^9, 3.841393115316553*^9}},
 CellLabel->"In[75]:=",ExpressionUUID->"23a1c5da-967b-4980-9abb-046ecb97e1a3"],

Cell[BoxData["1.2`"], "Output",
 CellChangeTimes->{3.841393116743553*^9},
 CellLabel->"Out[75]=",ExpressionUUID->"f5adbe0f-2f96-4b21-8b99-161e5317a5db"],

Cell[BoxData["0.9`"], "Output",
 CellChangeTimes->{3.841393116746728*^9},
 CellLabel->"Out[76]=",ExpressionUUID->"b25a7c4e-562e-4d83-9dcc-1bf4d338f73d"],

Cell[BoxData["0.1428571428571428`"], "Output",
 CellChangeTimes->{3.841393116749638*^9},
 CellLabel->"Out[77]=",ExpressionUUID->"41c9b268-0467-48c8-a4a6-231d3e655290"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"k", " ", "=", " ", "1.2"}]], "Input",
 CellChangeTimes->{{3.841393125607211*^9, 3.8413931256225443`*^9}},
 CellLabel->"In[78]:=",ExpressionUUID->"b69232a2-cf62-4de4-bec1-ebe94f7aadef"],

Cell[BoxData["1.2`"], "Output",
 CellChangeTimes->{3.841393126128396*^9},
 CellLabel->"Out[78]=",ExpressionUUID->"09a889ee-9637-4fdb-a93a-34b3d5da6318"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{"eqn0", " ", "&&", " ", "eqn1"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"x", ",", " ", "z"}], "}"}]}], "]"}], "]"}]], "Input",
 CellLabel->"In[79]:=",ExpressionUUID->"571a915b-23a2-4dc0-aaaa-700524f28270"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "nongen", 
   "\"Solutions may not be valid for all values of parameters.\"", 2, 79, 6, 
   31665523190856943798, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.8413932263427343`*^9},
 CellLabel->
  "During evaluation of \
In[79]:=",ExpressionUUID->"3ab95365-d36e-4d32-bb4f-d62e83b9a20d"],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{3.841393388716324*^9},
 CellLabel->"Out[79]=",ExpressionUUID->"bfdd159c-4451-4c01-8cc7-15936a3829e1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["eqn0"], "Input",
 CellChangeTimes->{{3.8413933911848183`*^9, 3.841393393194213*^9}},
 CellLabel->"In[80]:=",ExpressionUUID->"27734b46-2d93-42e5-956c-98026541f6ad"],

Cell[BoxData[
 RowBox[{
  RowBox[{"1.2`", "\[VeryThinSpace]", "+", 
   RowBox[{"Abs", "[", 
    RowBox[{
     RowBox[{"-", "1.2`"}], "+", 
     RowBox[{"0.1428571428571428`", " ", "x"}], "+", 
     RowBox[{"nz", " ", "z"}]}], "]"}]}], "\[Equal]", 
  SqrtBox[
   RowBox[{
    SuperscriptBox["x", "2"], "+", 
    SuperscriptBox["z", "2"]}]]}]], "Output",
 CellChangeTimes->{3.841393394028973*^9},
 CellLabel->"Out[80]=",ExpressionUUID->"5afa61f3-4882-48f1-b0a7-902bd18b465f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["a", "2"], "-", 
       RowBox[{"b", " ", "k"}], "+", 
       RowBox[{"a", " ", 
        RowBox[{"(", 
         RowBox[{"b", "+", "k"}], ")"}]}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"a", "+", "b", "+", 
       RowBox[{"a", " ", "nx"}], "-", 
       RowBox[{"b", " ", "nx"}]}], ")"}]}], "-", 
    RowBox[{"2", " ", "a", " ", "b", " ", 
     RowBox[{"(", 
      RowBox[{"a", "+", "b"}], ")"}], " ", 
     SuperscriptBox["nz", "2"]}], "-", 
    RowBox[{"2", " ", 
     RowBox[{"\[Sqrt]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "a"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
        SuperscriptBox["nz", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "k"}], "+", 
             RowBox[{"a", " ", "nx"}]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"a", "+", "b", "+", "k", "-", 
             RowBox[{"b", " ", "nx"}]}], ")"}]}], "-", 
          RowBox[{"a", " ", "b", " ", 
           SuperscriptBox["nz", "2"]}]}], ")"}]}], ")"}]}]}]}], ")"}], "/", 
  RowBox[{"(", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", "b", "+", 
       RowBox[{"a", " ", "nx"}], "-", 
       RowBox[{"b", " ", "nx"}]}], ")"}], "2"], "-", 
    RowBox[{"4", " ", "a", " ", "b", " ", 
     SuperscriptBox["nz", "2"]}]}], ")"}]}]], "Input",
 CellLabel->"In[81]:=",ExpressionUUID->"e9bb7d1b-70d2-4303-820c-4311107f8f4a"],

Cell[BoxData[
 FractionBox[
  RowBox[{"6.171428571428571`", "\[VeryThinSpace]", "-", 
   RowBox[{"4.5360000000000005`", " ", 
    SuperscriptBox["nz", "2"]}], "-", 
   RowBox[{"0.6235382907247957`", " ", 
    SqrtBox[
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["nz", "2"]}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "3.262040816326531`"}], "-", 
        RowBox[{"1.08`", " ", 
         SuperscriptBox["nz", "2"]}]}], ")"}]}]]}]}], 
  RowBox[{"4.591836734693877`", "\[VeryThinSpace]", "-", 
   RowBox[{"4.32`", " ", 
    SuperscriptBox["nz", "2"]}]}]]], "Output",
 CellChangeTimes->{3.841393478328939*^9},
 CellLabel->"Out[81]=",ExpressionUUID->"a946ab2f-1785-4032-9713-2c7b30eca2a4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "2"}], " ", 
       SuperscriptBox["a", "2"], " ", "b", " ", "k", " ", 
       SuperscriptBox["nz", "2"]}], "+", 
      RowBox[{
       SuperscriptBox["a", "3"], " ", "b", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
       SuperscriptBox["nz", "2"]}], "-", 
      RowBox[{"b", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
       RowBox[{"\[Sqrt]", 
        RowBox[{"(", 
         RowBox[{"a", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
          SuperscriptBox["nz", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"k", "-", 
               RowBox[{"a", " ", "nx"}]}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{"a", "+", "b", "+", "k", "-", 
               RowBox[{"b", " ", "nx"}]}], ")"}]}], "+", 
            RowBox[{"a", " ", "b", " ", 
             SuperscriptBox["nz", "2"]}]}], ")"}]}], ")"}]}]}], "+", 
      RowBox[{"a", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", 
          SuperscriptBox["b", "2"], " ", "k", " ", 
          SuperscriptBox["nz", "2"]}], "-", 
         RowBox[{
          SuperscriptBox["b", "3"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
          SuperscriptBox["nz", "2"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "+", "nx"}], ")"}], " ", 
          RowBox[{"\[Sqrt]", 
           RowBox[{"(", 
            RowBox[{"a", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
             SuperscriptBox["nz", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"k", "-", 
                  RowBox[{"a", " ", "nx"}]}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{"a", "+", "b", "+", "k", "-", 
                  RowBox[{"b", " ", "nx"}]}], ")"}]}], "+", 
               RowBox[{"a", " ", "b", " ", 
                SuperscriptBox["nz", "2"]}]}], ")"}]}], ")"}]}]}]}], 
        ")"}]}]}], ")"}]}], ")"}], "/", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"a", "-", "b"}], ")"}], " ", "nz", " ", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"a", "+", "b", "+", 
         RowBox[{"a", " ", "nx"}], "-", 
         RowBox[{"b", " ", "nx"}]}], ")"}], "2"], "-", 
      RowBox[{"4", " ", "a", " ", "b", " ", 
       SuperscriptBox["nz", "2"]}]}], ")"}]}], ")"}]}]], "Input",
 CellLabel->"In[82]:=",ExpressionUUID->"7d13363a-3eb2-414d-9ae8-eda76ed2acad"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   RowBox[{"nz", " ", 
    RowBox[{"(", 
     RowBox[{"4.591836734693877`", "\[VeryThinSpace]", "-", 
      RowBox[{"4.32`", " ", 
       SuperscriptBox["nz", "2"]}]}], ")"}]}]], "6.666666666666668`", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "4.443428571428572`"}], " ", 
     SuperscriptBox["nz", "2"]}], "+", 
    RowBox[{"0.2405076264224212`", " ", 
     SqrtBox[
      RowBox[{
       SuperscriptBox["nz", "2"], " ", 
       RowBox[{"(", 
        RowBox[{"3.262040816326531`", "\[VeryThinSpace]", "+", 
         RowBox[{"1.08`", " ", 
          SuperscriptBox["nz", "2"]}]}], ")"}]}]]}], "+", 
    RowBox[{"1.2`", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2.568857142857143`", " ", 
        SuperscriptBox["nz", "2"]}], "+", 
       RowBox[{"0.35630759469988327`", " ", 
        SqrtBox[
         RowBox[{
          SuperscriptBox["nz", "2"], " ", 
          RowBox[{"(", 
           RowBox[{"3.262040816326531`", "\[VeryThinSpace]", "+", 
            RowBox[{"1.08`", " ", 
             SuperscriptBox["nz", "2"]}]}], ")"}]}]]}]}], ")"}]}]}], 
   ")"}]}]], "Output",
 CellChangeTimes->{3.841393501328438*^9},
 CellLabel->"Out[82]=",ExpressionUUID->"276a5472-8539-442e-ae1b-805ed4f31da4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["a", "2"], "-", 
       RowBox[{"b", " ", "k"}], "+", 
       RowBox[{"a", " ", 
        RowBox[{"(", 
         RowBox[{"b", "+", "k"}], ")"}]}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"a", "+", "b", "+", 
       RowBox[{"a", " ", "nx"}], "-", 
       RowBox[{"b", " ", "nx"}]}], ")"}]}], "-", 
    RowBox[{"2", " ", "a", " ", "b", " ", 
     RowBox[{"(", 
      RowBox[{"a", "+", "b"}], ")"}], " ", 
     SuperscriptBox["nz", "2"]}], "+", 
    RowBox[{"2", " ", 
     RowBox[{"\[Sqrt]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "a"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
        SuperscriptBox["nz", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "k"}], "+", 
             RowBox[{"a", " ", "nx"}]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"a", "+", "b", "+", "k", "-", 
             RowBox[{"b", " ", "nx"}]}], ")"}]}], "-", 
          RowBox[{"a", " ", "b", " ", 
           SuperscriptBox["nz", "2"]}]}], ")"}]}], ")"}]}]}]}], ")"}], "/", 
  RowBox[{"(", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", "b", "+", 
       RowBox[{"a", " ", "nx"}], "-", 
       RowBox[{"b", " ", "nx"}]}], ")"}], "2"], "-", 
    RowBox[{"4", " ", "a", " ", "b", " ", 
     SuperscriptBox["nz", "2"]}]}], ")"}]}]], "Input",
 CellChangeTimes->{3.841393543267049*^9},
 CellLabel->"In[83]:=",ExpressionUUID->"4f2a3b7c-a66c-4904-bddb-5ed656c23039"],

Cell[BoxData[
 FractionBox[
  RowBox[{"6.171428571428571`", "\[VeryThinSpace]", "-", 
   RowBox[{"4.5360000000000005`", " ", 
    SuperscriptBox["nz", "2"]}], "+", 
   RowBox[{"0.6235382907247957`", " ", 
    SqrtBox[
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["nz", "2"]}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "3.262040816326531`"}], "-", 
        RowBox[{"1.08`", " ", 
         SuperscriptBox["nz", "2"]}]}], ")"}]}]]}]}], 
  RowBox[{"4.591836734693877`", "\[VeryThinSpace]", "-", 
   RowBox[{"4.32`", " ", 
    SuperscriptBox["nz", "2"]}]}]]], "Output",
 CellChangeTimes->{3.8413935464950523`*^9},
 CellLabel->"Out[83]=",ExpressionUUID->"0659e68d-75d8-45d7-80bd-32159b4511c8"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "2"}], " ", 
       SuperscriptBox["a", "2"], " ", "b", " ", "k", " ", 
       SuperscriptBox["nz", "2"]}], "+", 
      RowBox[{
       SuperscriptBox["a", "3"], " ", "b", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
       SuperscriptBox["nz", "2"]}], "+", 
      RowBox[{"b", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
       RowBox[{"\[Sqrt]", 
        RowBox[{"(", 
         RowBox[{"a", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
          SuperscriptBox["nz", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"k", "-", 
               RowBox[{"a", " ", "nx"}]}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{"a", "+", "b", "+", "k", "-", 
               RowBox[{"b", " ", "nx"}]}], ")"}]}], "+", 
            RowBox[{"a", " ", "b", " ", 
             SuperscriptBox["nz", "2"]}]}], ")"}]}], ")"}]}]}], "-", 
      RowBox[{"a", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", 
          SuperscriptBox["b", "2"], " ", "k", " ", 
          SuperscriptBox["nz", "2"]}], "+", 
         RowBox[{
          SuperscriptBox["b", "3"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
          SuperscriptBox["nz", "2"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "+", "nx"}], ")"}], " ", 
          RowBox[{"\[Sqrt]", 
           RowBox[{"(", 
            RowBox[{"a", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
             SuperscriptBox["nz", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"k", "-", 
                  RowBox[{"a", " ", "nx"}]}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{"a", "+", "b", "+", "k", "-", 
                  RowBox[{"b", " ", "nx"}]}], ")"}]}], "+", 
               RowBox[{"a", " ", "b", " ", 
                SuperscriptBox["nz", "2"]}]}], ")"}]}], ")"}]}]}]}], 
        ")"}]}]}], ")"}]}], ")"}], "/", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"a", "-", "b"}], ")"}], " ", "nz", " ", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"a", "+", "b", "+", 
         RowBox[{"a", " ", "nx"}], "-", 
         RowBox[{"b", " ", "nx"}]}], ")"}], "2"], "-", 
      RowBox[{"4", " ", "a", " ", "b", " ", 
       SuperscriptBox["nz", "2"]}]}], ")"}]}], ")"}]}]], "Input",
 CellChangeTimes->{3.841393569411875*^9},
 EmphasizeSyntaxErrors->
  True,ExpressionUUID->"c04b921d-fb28-4561-9070-f768512cb6c4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "2"}], " ", 
       SuperscriptBox["a", "2"], " ", "b", " ", "k", " ", 
       SuperscriptBox["nz", "2"]}], "+", 
      RowBox[{
       SuperscriptBox["a", "3"], " ", "b", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
       SuperscriptBox["nz", "2"]}], "+", 
      RowBox[{"b", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
       RowBox[{"\[Sqrt]", 
        RowBox[{"(", 
         RowBox[{"a", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
          SuperscriptBox["nz", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"k", "-", 
               RowBox[{"a", " ", "nx"}]}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{"a", "+", "b", "+", "k", "-", 
               RowBox[{"b", " ", "nx"}]}], ")"}]}], "+", 
            RowBox[{"a", " ", "b", " ", 
             SuperscriptBox["nz", "2"]}]}], ")"}]}], ")"}]}]}], "-", 
      RowBox[{"a", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", 
          SuperscriptBox["b", "2"], " ", "k", " ", 
          SuperscriptBox["nz", "2"]}], "+", 
         RowBox[{
          SuperscriptBox["b", "3"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
          SuperscriptBox["nz", "2"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "+", "nx"}], ")"}], " ", 
          RowBox[{"\[Sqrt]", 
           RowBox[{"(", 
            RowBox[{"a", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
             SuperscriptBox["nz", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"k", "-", 
                  RowBox[{"a", " ", "nx"}]}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{"a", "+", "b", "+", "k", "-", 
                  RowBox[{"b", " ", "nx"}]}], ")"}]}], "+", 
               RowBox[{"a", " ", "b", " ", 
                SuperscriptBox["nz", "2"]}]}], ")"}]}], ")"}]}]}]}], 
        ")"}]}]}], ")"}]}], ")"}], "/", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"a", "-", "b"}], ")"}], " ", "nz", " ", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"a", "+", "b", "+", 
         RowBox[{"a", " ", "nx"}], "-", 
         RowBox[{"b", " ", "nx"}]}], ")"}], "2"], "-", 
      RowBox[{"4", " ", "a", " ", "b", " ", 
       SuperscriptBox["nz", "2"]}]}], ")"}]}], ")"}]}]], "Input",
 CellLabel->"In[84]:=",ExpressionUUID->"bfe6397e-c42c-45f1-8656-ffae632b479a"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   RowBox[{"nz", " ", 
    RowBox[{"(", 
     RowBox[{"4.591836734693877`", "\[VeryThinSpace]", "-", 
      RowBox[{"4.32`", " ", 
       SuperscriptBox["nz", "2"]}]}], ")"}]}]], "6.666666666666668`", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "4.443428571428572`"}], " ", 
     SuperscriptBox["nz", "2"]}], "-", 
    RowBox[{"0.2405076264224212`", " ", 
     SqrtBox[
      RowBox[{
       SuperscriptBox["nz", "2"], " ", 
       RowBox[{"(", 
        RowBox[{"3.262040816326531`", "\[VeryThinSpace]", "+", 
         RowBox[{"1.08`", " ", 
          SuperscriptBox["nz", "2"]}]}], ")"}]}]]}], "-", 
    RowBox[{"1.2`", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "2.568857142857143`"}], " ", 
        SuperscriptBox["nz", "2"]}], "+", 
       RowBox[{"0.35630759469988327`", " ", 
        SqrtBox[
         RowBox[{
          SuperscriptBox["nz", "2"], " ", 
          RowBox[{"(", 
           RowBox[{"3.262040816326531`", "\[VeryThinSpace]", "+", 
            RowBox[{"1.08`", " ", 
             SuperscriptBox["nz", "2"]}]}], ")"}]}]]}]}], ")"}]}]}], 
   ")"}]}]], "Output",
 CellChangeTimes->{3.841393575395768*^9},
 CellLabel->"Out[84]=",ExpressionUUID->"0547ddc6-0382-497b-923b-5c926c63bda1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"nz", " ", "=", " ", "0.22491679320871352"}]], "Input",
 CellChangeTimes->{{3.841393607057393*^9, 3.841393607074128*^9}},
 CellLabel->"In[85]:=",ExpressionUUID->"47d0907c-8366-4d15-9919-11dcf4128e25"],

Cell[BoxData["0.22491679320871352`"], "Output",
 CellChangeTimes->{3.841393607893015*^9},
 CellLabel->"Out[85]=",ExpressionUUID->"f4149d5e-6b9a-4dc5-a239-a62c0331f431"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{"eqn0", " ", "&&", " ", "eqn1"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"x", ",", " ", "z"}], "}"}]}], "]"}], "]"}]], "Input",
 CellLabel->"In[86]:=",ExpressionUUID->"b59ba87d-bdfa-4e09-b1bb-06af9de093ed"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", "1.4170934399867825`"}], ",", 
     RowBox[{"z", "\[Rule]", 
      RowBox[{"-", "2.32128509595631`"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", "1.3002895320293808`"}], ",", 
     RowBox[{"z", "\[Rule]", "1.3881472517331703`"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.841393643365094*^9},
 CellLabel->"Out[86]=",ExpressionUUID->"060d3f4c-bdb3-4a40-980e-1a729278c61c"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "nz", "]"}]], "Input",
 CellChangeTimes->{{3.841393718538217*^9, 3.841393723773258*^9}},
 CellLabel->"In[87]:=",ExpressionUUID->"4701d6a8-a2c6-4459-9365-06cadc063cf8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"nz", " ", "=", " ", 
  RowBox[{"-", "0.22491679320871352"}]}]], "Input",
 CellChangeTimes->{3.841393735728222*^9},
 CellLabel->"In[88]:=",ExpressionUUID->"e1a30d73-c6fa-4120-9d7e-d585663a5628"],

Cell[BoxData[
 RowBox[{"-", "0.22491679320871352`"}]], "Output",
 CellChangeTimes->{3.8413937380783033`*^9},
 CellLabel->"Out[88]=",ExpressionUUID->"53d752d0-ab98-4716-8138-fe5107a9d604"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{"eqn0", " ", "&&", " ", "eqn1"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"x", ",", " ", "z"}], "}"}]}], "]"}], "]"}]], "Input",
 CellLabel->"In[89]:=",ExpressionUUID->"bd3842d8-6c2d-489f-9036-f4538b5ad6bd"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", "1.3002895320293808`"}], ",", 
     RowBox[{"z", "\[Rule]", 
      RowBox[{"-", "1.3881472517331703`"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", "1.4170934399867825`"}], ",", 
     RowBox[{"z", "\[Rule]", "2.32128509595631`"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.8413937445221853`*^9},
 CellLabel->"Out[89]=",ExpressionUUID->"95420439-2b27-4e95-89c7-c72822a36911"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"ClearAll", "[", " ", "eqn1", "]"}]], "Input",
 CellChangeTimes->{{3.841393854210511*^9, 3.841393899509009*^9}},
 CellLabel->"In[93]:=",ExpressionUUID->"6ee82173-ef1a-44fa-a062-625b14edee4f"],

Cell[BoxData[
 RowBox[{"ClearAll", "[", "eqn0", "]"}]], "Input",
 CellChangeTimes->{{3.8413939026771517`*^9, 3.841393909543624*^9}},
 CellLabel->"In[94]:=",ExpressionUUID->"ed12f8d4-1fb4-4f41-abd7-5ba7495bb409"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"a", " ", "+", " ", 
   RowBox[{"-", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"nx", " ", "*", " ", "x"}], " ", "+", " ", 
      RowBox[{"nz", " ", "*", " ", "z"}], " ", "-", " ", "k"}], ")"}]}]}], 
  " ", "==", " ", 
  RowBox[{"Sqrt", "[", 
   RowBox[{
    RowBox[{"x", "^", "2"}], " ", "+", " ", 
    RowBox[{"z", " ", "^", "2"}]}], "]"}]}], "\n", 
 RowBox[{"eqn0", " ", "=", " ", "%"}], "\n", 
 RowBox[{
  RowBox[{"b", " ", "+", " ", 
   RowBox[{"-", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"nx", " ", "*", " ", "x"}], " ", "+", " ", 
      RowBox[{"nz", " ", "*", " ", "z"}], " ", "-", " ", "k"}], ")"}]}]}], 
  " ", "==", " ", 
  RowBox[{"Sqrt", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a", "+", "b", "-", "x"}], ")"}], "^", "2"}], " ", "+", " ", 
    RowBox[{"z", "^", "2"}]}], "]"}]}], "\n", 
 RowBox[{"eqn1", " ", "=", " ", "%"}]}], "Input",
 CellChangeTimes->{{3.841393923532638*^9, 3.841393923553422*^9}},
 CellLabel->"In[95]:=",ExpressionUUID->"67b15499-cf52-4de9-af1a-e5489b3a542c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"2.4`", "\[VeryThinSpace]", "-", 
   RowBox[{"0.1428571428571428`", " ", "x"}], "+", 
   RowBox[{"0.22491679320871352`", " ", "z"}]}], "\[Equal]", 
  SqrtBox[
   RowBox[{
    SuperscriptBox["x", "2"], "+", 
    SuperscriptBox["z", "2"]}]]}]], "Output",
 CellChangeTimes->{3.841393924196785*^9},
 CellLabel->"Out[95]=",ExpressionUUID->"0608856f-2f42-423a-a648-dac875d15947"],

Cell[BoxData[
 RowBox[{
  RowBox[{"2.4`", "\[VeryThinSpace]", "-", 
   RowBox[{"0.1428571428571428`", " ", "x"}], "+", 
   RowBox[{"0.22491679320871352`", " ", "z"}]}], "\[Equal]", 
  SqrtBox[
   RowBox[{
    SuperscriptBox["x", "2"], "+", 
    SuperscriptBox["z", "2"]}]]}]], "Output",
 CellChangeTimes->{3.8413939242013407`*^9},
 CellLabel->"Out[96]=",ExpressionUUID->"83a1f918-1908-4572-b810-1990ded3e90b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"2.1`", "\[VeryThinSpace]", "-", 
   RowBox[{"0.1428571428571428`", " ", "x"}], "+", 
   RowBox[{"0.22491679320871352`", " ", "z"}]}], "\[Equal]", 
  SqrtBox[
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"2.1`", "\[VeryThinSpace]", "-", "x"}], ")"}], "2"], "+", 
    SuperscriptBox["z", "2"]}]]}]], "Output",
 CellChangeTimes->{3.8413939242044764`*^9},
 CellLabel->"Out[97]=",ExpressionUUID->"ed49b887-84db-4c1e-9dc0-ebabe1c772b8"],

Cell[BoxData[
 RowBox[{
  RowBox[{"2.1`", "\[VeryThinSpace]", "-", 
   RowBox[{"0.1428571428571428`", " ", "x"}], "+", 
   RowBox[{"0.22491679320871352`", " ", "z"}]}], "\[Equal]", 
  SqrtBox[
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"2.1`", "\[VeryThinSpace]", "-", "x"}], ")"}], "2"], "+", 
    SuperscriptBox["z", "2"]}]]}]], "Output",
 CellChangeTimes->{3.841393924207871*^9},
 CellLabel->"Out[98]=",ExpressionUUID->"282b3831-7914-42ee-bc24-753e6313babb"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{"eqn0", " ", "&&", " ", "eqn1"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"x", ",", " ", "z"}], "}"}]}], "]"}], "]"}]], "Input",
 CellLabel->"In[99]:=",ExpressionUUID->"93331ef2-157e-4994-bed2-c894eb86011c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", "1.300289532029471`"}], ",", 
     RowBox[{"z", "\[Rule]", 
      RowBox[{"-", "1.3881472517314277`"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", "1.4170934399867527`"}], ",", 
     RowBox[{"z", "\[Rule]", "2.3212850959549907`"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.841393932464246*^9},
 CellLabel->"Out[99]=",ExpressionUUID->"d0a0dfec-6252-40fd-8c79-4d2183d794b4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["0.22491679320871352`"], "Input",
 CellLabel->
  "In[100]:=",ExpressionUUID->"c7ef0746-b54e-493f-a115-cd1d33ce7549"],

Cell[BoxData["0.22491679320871352`"], "Output",
 CellChangeTimes->{3.841393950821393*^9},
 CellLabel->
  "Out[100]=",ExpressionUUID->"a1c5f2aa-37de-4c88-a5f8-ea9a29a3d7d8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"nz", " ", "=", " ", "0.22491679320871352"}]], "Input",
 CellLabel->
  "In[101]:=",ExpressionUUID->"1344cc26-9318-4431-84b7-ee6631fd5594"],

Cell[BoxData["0.22491679320871352`"], "Output",
 CellChangeTimes->{3.841393962837757*^9},
 CellLabel->
  "Out[101]=",ExpressionUUID->"f1f65b6f-fe44-4f8b-96d6-ca88e1bbcbf2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["nz"], "Input",
 CellChangeTimes->{{3.841393964027294*^9, 3.8413939702058496`*^9}},
 CellLabel->
  "In[103]:=",ExpressionUUID->"b1ffc9a2-0e5b-4121-bd1a-44de3403109a"],

Cell[BoxData["0.22491679320871352`"], "Output",
 CellChangeTimes->{{3.8413939658683033`*^9, 3.8413939708803253`*^9}},
 CellLabel->
  "Out[103]=",ExpressionUUID->"a5f5d285-4df2-40e7-87a4-59bfdf1bfe59"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{"eqn0", " ", "&&", " ", "eqn1"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"x", ",", " ", "z"}], "}"}]}], "]"}], "]"}]], "Input",
 CellLabel->
  "In[104]:=",ExpressionUUID->"861a1329-b21a-46fd-9f6b-48b6d32a733f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", "1.300289532029471`"}], ",", 
     RowBox[{"z", "\[Rule]", 
      RowBox[{"-", "1.3881472517314277`"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", "1.4170934399867527`"}], ",", 
     RowBox[{"z", "\[Rule]", "2.3212850959549907`"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.8413939785322638`*^9},
 CellLabel->
  "Out[104]=",ExpressionUUID->"771a03d3-19bb-42ee-b0fc-9ccadd61d456"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"a", "+", 
   RowBox[{"Abs", "[", 
    RowBox[{
     RowBox[{"nx", "*", "x"}], "+", 
     RowBox[{"nz", "*", "z"}], "-", "k"}], "]"}]}], "==", 
  RowBox[{"Sqrt", "[", 
   RowBox[{
    RowBox[{"x", "^", "2"}], "+", 
    RowBox[{"z", "^", "2"}]}], "]"}]}], "\n", 
 RowBox[{"eqn0", "=", "%"}], "\n", 
 RowBox[{
  RowBox[{"b", "+", 
   RowBox[{"Abs", "[", 
    RowBox[{
     RowBox[{"nx", "*", "x"}], "+", 
     RowBox[{"nz", "*", "z"}], "-", "k"}], "]"}]}], "==", 
  RowBox[{"Sqrt", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a", "+", "b", "-", "x"}], ")"}], "^", "2"}], "+", 
    RowBox[{"z", "^", "2"}]}], "]"}]}], "\n", 
 RowBox[{"eqn1", "=", "%"}]}], "Input",
 CellLabel->
  "In[105]:=",ExpressionUUID->"1034048c-e11f-44e2-931a-c7bdf69b7f9e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"1.2`", "\[VeryThinSpace]", "+", 
   RowBox[{"Abs", "[", 
    RowBox[{
     RowBox[{"-", "1.2`"}], "+", 
     RowBox[{"0.1428571428571428`", " ", "x"}], "+", 
     RowBox[{"0.22491679320871352`", " ", "z"}]}], "]"}]}], "\[Equal]", 
  SqrtBox[
   RowBox[{
    SuperscriptBox["x", "2"], "+", 
    SuperscriptBox["z", "2"]}]]}]], "Output",
 CellChangeTimes->{3.841394332035369*^9},
 CellLabel->
  "Out[105]=",ExpressionUUID->"4e0674f9-99c6-4ebb-aa1e-1782b26c036f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"1.2`", "\[VeryThinSpace]", "+", 
   RowBox[{"Abs", "[", 
    RowBox[{
     RowBox[{"-", "1.2`"}], "+", 
     RowBox[{"0.1428571428571428`", " ", "x"}], "+", 
     RowBox[{"0.22491679320871352`", " ", "z"}]}], "]"}]}], "\[Equal]", 
  SqrtBox[
   RowBox[{
    SuperscriptBox["x", "2"], "+", 
    SuperscriptBox["z", "2"]}]]}]], "Output",
 CellChangeTimes->{3.841394332039646*^9},
 CellLabel->
  "Out[106]=",ExpressionUUID->"16a161d0-abcf-4ee1-9501-b7192aceaa11"],

Cell[BoxData[
 RowBox[{
  RowBox[{"0.9`", "\[VeryThinSpace]", "+", 
   RowBox[{"Abs", "[", 
    RowBox[{
     RowBox[{"-", "1.2`"}], "+", 
     RowBox[{"0.1428571428571428`", " ", "x"}], "+", 
     RowBox[{"0.22491679320871352`", " ", "z"}]}], "]"}]}], "\[Equal]", 
  SqrtBox[
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"2.1`", "\[VeryThinSpace]", "-", "x"}], ")"}], "2"], "+", 
    SuperscriptBox["z", "2"]}]]}]], "Output",
 CellChangeTimes->{3.841394332043536*^9},
 CellLabel->
  "Out[107]=",ExpressionUUID->"1b7bd671-62d9-4a51-86fa-98c5a40d9902"],

Cell[BoxData[
 RowBox[{
  RowBox[{"0.9`", "\[VeryThinSpace]", "+", 
   RowBox[{"Abs", "[", 
    RowBox[{
     RowBox[{"-", "1.2`"}], "+", 
     RowBox[{"0.1428571428571428`", " ", "x"}], "+", 
     RowBox[{"0.22491679320871352`", " ", "z"}]}], "]"}]}], "\[Equal]", 
  SqrtBox[
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"2.1`", "\[VeryThinSpace]", "-", "x"}], ")"}], "2"], "+", 
    SuperscriptBox["z", "2"]}]]}]], "Output",
 CellChangeTimes->{3.841394332047566*^9},
 CellLabel->
  "Out[108]=",ExpressionUUID->"791674cb-1141-49de-bca2-6ca019328e48"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{"eqn0", " ", "&&", " ", "eqn1"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"x", ",", " ", "z"}], "}"}]}], "]"}], "]"}]], "Input",
 CellLabel->
  "In[109]:=",ExpressionUUID->"616774a6-090f-417a-95c2-7a06fc46a9aa"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", "1.4170934399867825`"}], ",", 
     RowBox[{"z", "\[Rule]", 
      RowBox[{"-", "2.32128509595631`"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", "1.3002895320293808`"}], ",", 
     RowBox[{"z", "\[Rule]", "1.3881472517331703`"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.8413943407338963`*^9},
 CellLabel->
  "Out[109]=",ExpressionUUID->"c6121e65-bb39-4d4b-b89b-8301b307d491"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"nz", " ", "=", " ", 
  RowBox[{"-", "nz"}]}]], "Input",
 CellChangeTimes->{{3.84139434891506*^9, 3.841394352465777*^9}},
 CellLabel->
  "In[110]:=",ExpressionUUID->"f0b59b31-10e8-4405-8f04-d009f50d5525"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.8413946797707233`*^9, 
  3.841394683579444*^9}},ExpressionUUID->"ce985b0c-e28a-441b-a89e-\
b730003b3557"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{"eqn0", " ", "&&", " ", "eqn1"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"x", ",", " ", "z"}], "}"}]}], "]"}], "]"}]], "Input",
 CellLabel->
  "In[111]:=",ExpressionUUID->"5b177bcf-bd2b-42c6-bbab-5dbf6c9056ad"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", "1.4170934399867825`"}], ",", 
     RowBox[{"z", "\[Rule]", 
      RowBox[{"-", "2.32128509595631`"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", "1.3002895320293808`"}], ",", 
     RowBox[{"z", "\[Rule]", "1.3881472517331703`"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.841394362394026*^9},
 CellLabel->
  "Out[111]=",ExpressionUUID->"ef6d6473-2f30-4f3e-8aa4-56db5124092f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["nz"], "Input",
 CellChangeTimes->{{3.841394374187632*^9, 3.841394374366057*^9}},
 CellLabel->
  "In[112]:=",ExpressionUUID->"88215548-80e0-4079-bea9-e7485f71a0a8"],

Cell[BoxData[
 RowBox[{"-", "0.22491679320871352`"}]], "Output",
 CellChangeTimes->{3.841394375161171*^9},
 CellLabel->
  "Out[112]=",ExpressionUUID->"b2acdd54-2fbd-4cf6-b056-b0d278007a1a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"nz", " ", "=", " ", 
  RowBox[{"-", "nz"}]}]], "Input",
 CellChangeTimes->{{3.841394391378517*^9, 3.841394393914386*^9}},
 CellLabel->
  "In[113]:=",ExpressionUUID->"2d4ceaec-b04c-4e65-9566-3f6aaf84c4b9"],

Cell[BoxData["0.22491679320871352`"], "Output",
 CellChangeTimes->{3.8413943945425386`*^9},
 CellLabel->
  "Out[113]=",ExpressionUUID->"d318e177-1309-4c87-8013-1ad6f89308e6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{"eqn0", " ", "&&", " ", "eqn1"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"x", ",", " ", "z"}], "}"}]}], "]"}], "]"}]], "Input",
 CellLabel->
  "In[114]:=",ExpressionUUID->"e2c1559b-64ce-4029-ad3e-63fba8daa960"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", "1.4170934399867825`"}], ",", 
     RowBox[{"z", "\[Rule]", 
      RowBox[{"-", "2.32128509595631`"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", "1.3002895320293808`"}], ",", 
     RowBox[{"z", "\[Rule]", "1.3881472517331703`"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.841394401685297*^9},
 CellLabel->
  "Out[114]=",ExpressionUUID->"71427092-d942-4d87-a308-eba9cd28d6f0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["eqn0"], "Input",
 CellChangeTimes->{{3.841394422055119*^9, 3.8413944227858686`*^9}},
 CellLabel->
  "In[115]:=",ExpressionUUID->"1b3db456-bdcb-46dc-aa26-12dfa6d7a723"],

Cell[BoxData[
 RowBox[{
  RowBox[{"1.2`", "\[VeryThinSpace]", "+", 
   RowBox[{"Abs", "[", 
    RowBox[{
     RowBox[{"-", "1.2`"}], "+", 
     RowBox[{"0.1428571428571428`", " ", "x"}], "+", 
     RowBox[{"0.22491679320871352`", " ", "z"}]}], "]"}]}], "\[Equal]", 
  SqrtBox[
   RowBox[{
    SuperscriptBox["x", "2"], "+", 
    SuperscriptBox["z", "2"]}]]}]], "Output",
 CellChangeTimes->{3.8413944234648237`*^9},
 CellLabel->
  "Out[115]=",ExpressionUUID->"adc360c3-1cc2-4728-b702-11acc4d1c894"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "nz", "]"}]], "Input",
 CellChangeTimes->{{3.841394435883196*^9, 3.841394440051897*^9}},
 CellLabel->
  "In[116]:=",ExpressionUUID->"2017d469-a359-4043-8361-9ce2fb2a242d"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"a", "+", 
   RowBox[{"Abs", "[", 
    RowBox[{
     RowBox[{"nx", "*", "x"}], "+", 
     RowBox[{"nz", "*", "z"}], "-", "k"}], "]"}]}], "==", 
  RowBox[{"Sqrt", "[", 
   RowBox[{
    RowBox[{"x", "^", "2"}], "+", 
    RowBox[{"z", "^", "2"}]}], "]"}]}], "\n", 
 RowBox[{"eqn0", "=", "%"}], "\n", 
 RowBox[{
  RowBox[{"b", "+", 
   RowBox[{"Abs", "[", 
    RowBox[{
     RowBox[{"nx", "*", "x"}], "+", 
     RowBox[{"nz", "*", "z"}], "-", "k"}], "]"}]}], "==", 
  RowBox[{"Sqrt", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a", "+", "b", "-", "x"}], ")"}], "^", "2"}], "+", 
    RowBox[{"z", "^", "2"}]}], "]"}]}], "\n", 
 RowBox[{"eqn1", "=", "%"}]}], "Input",
 CellLabel->
  "In[117]:=",ExpressionUUID->"2ffe2880-c7b6-40b9-853b-6b26a518d63b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"1.2`", "\[VeryThinSpace]", "+", 
   RowBox[{"Abs", "[", 
    RowBox[{
     RowBox[{"-", "1.2`"}], "+", 
     RowBox[{"0.1428571428571428`", " ", "x"}], "+", 
     RowBox[{"nz", " ", "z"}]}], "]"}]}], "\[Equal]", 
  SqrtBox[
   RowBox[{
    SuperscriptBox["x", "2"], "+", 
    SuperscriptBox["z", "2"]}]]}]], "Output",
 CellChangeTimes->{3.8413944508785667`*^9},
 CellLabel->
  "Out[117]=",ExpressionUUID->"9a2cdd31-3be2-472d-bac2-9309ca6423e0"],

Cell[BoxData[
 RowBox[{
  RowBox[{"1.2`", "\[VeryThinSpace]", "+", 
   RowBox[{"Abs", "[", 
    RowBox[{
     RowBox[{"-", "1.2`"}], "+", 
     RowBox[{"0.1428571428571428`", " ", "x"}], "+", 
     RowBox[{"nz", " ", "z"}]}], "]"}]}], "\[Equal]", 
  SqrtBox[
   RowBox[{
    SuperscriptBox["x", "2"], "+", 
    SuperscriptBox["z", "2"]}]]}]], "Output",
 CellChangeTimes->{3.841394450882723*^9},
 CellLabel->
  "Out[118]=",ExpressionUUID->"205dd724-321b-4053-8fcb-c7a108ce35bd"],

Cell[BoxData[
 RowBox[{
  RowBox[{"0.9`", "\[VeryThinSpace]", "+", 
   RowBox[{"Abs", "[", 
    RowBox[{
     RowBox[{"-", "1.2`"}], "+", 
     RowBox[{"0.1428571428571428`", " ", "x"}], "+", 
     RowBox[{"nz", " ", "z"}]}], "]"}]}], "\[Equal]", 
  SqrtBox[
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"2.1`", "\[VeryThinSpace]", "-", "x"}], ")"}], "2"], "+", 
    SuperscriptBox["z", "2"]}]]}]], "Output",
 CellChangeTimes->{3.841394450886195*^9},
 CellLabel->
  "Out[119]=",ExpressionUUID->"38a463a7-3c2f-43a7-ac35-635cc580c92f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"0.9`", "\[VeryThinSpace]", "+", 
   RowBox[{"Abs", "[", 
    RowBox[{
     RowBox[{"-", "1.2`"}], "+", 
     RowBox[{"0.1428571428571428`", " ", "x"}], "+", 
     RowBox[{"nz", " ", "z"}]}], "]"}]}], "\[Equal]", 
  SqrtBox[
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"2.1`", "\[VeryThinSpace]", "-", "x"}], ")"}], "2"], "+", 
    SuperscriptBox["z", "2"]}]]}]], "Output",
 CellChangeTimes->{3.841394450890239*^9},
 CellLabel->
  "Out[120]=",ExpressionUUID->"30a535d5-4747-4044-902d-4772e5a0aea5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{"eqn0", " ", "&&", " ", "eqn1"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"x", ",", " ", "z"}], "}"}]}], "]"}], "]"}]], "Input",
 CellLabel->
  "In[121]:=",ExpressionUUID->"6a87bc25-4371-4d84-8f2e-e3a7d6339e85"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "nongen", 
   "\"Solutions may not be valid for all values of parameters.\"", 2, 121, 11,
    31665523190856943798, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.8413944684423847`*^9},
 CellLabel->
  "During evaluation of \
In[121]:=",ExpressionUUID->"79724ddf-e6ae-4b1f-9fed-41df0430fd20"],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{3.841394475642948*^9},
 CellLabel->
  "Out[121]=",ExpressionUUID->"655c6ad0-eb93-47ac-974c-89d8447b0de1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"-", "0.22491679320871352`"}]], "Input",
 CellLabel->
  "In[122]:=",ExpressionUUID->"05c411e2-a2d3-4bdb-a296-51ebb3d34acd"],

Cell[BoxData[
 RowBox[{"-", "0.22491679320871352`"}]], "Output",
 CellChangeTimes->{3.841394487376895*^9},
 CellLabel->
  "Out[122]=",ExpressionUUID->"1614821a-3153-441e-aed3-5aec8e49d59c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["eqn0C"], "Input",
 CellChangeTimes->{{3.841395347983665*^9, 3.8413953487039413`*^9}, 
   3.841396122156219*^9},ExpressionUUID->"c246f572-a328-4b66-a22f-\
680bf07b75a9"],

Cell[BoxData[
 RowBox[{
  RowBox[{"1.2`", "\[VeryThinSpace]", "+", 
   RowBox[{"Abs", "[", 
    RowBox[{
     RowBox[{"-", "1.2`"}], "+", 
     RowBox[{"0.1428571428571428`", " ", "x"}], "+", 
     RowBox[{"0.22491679320871352`", " ", "z"}]}], "]"}]}], "\[Equal]", 
  SqrtBox[
   RowBox[{
    SuperscriptBox["x", "2"], "+", 
    SuperscriptBox["z", "2"]}]]}]], "Output",
 CellChangeTimes->{3.8413945068786297`*^9, 3.8413953498273973`*^9},
 CellLabel->
  "Out[128]=",ExpressionUUID->"38bd80e0-082a-4b78-8737-7bb2b3d47946"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"nz", " ", "=", " ", 
  RowBox[{"-", "0.22491679320871352`"}]}]], "Input",
 CellChangeTimes->{{3.8413946934338503`*^9, 3.841394694364707*^9}},
 CellLabel->
  "In[124]:=",ExpressionUUID->"d6d450fd-6bb7-4921-ac3b-24ee1e31a44e"],

Cell[BoxData[
 RowBox[{"-", "0.22491679320871352`"}]], "Output",
 CellChangeTimes->{3.841394695243669*^9},
 CellLabel->
  "Out[124]=",ExpressionUUID->"bd4c53d0-b3e7-4a02-84ea-7c43ef2cf4ad"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{"eqn0", " ", "&&", " ", "eqn1"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"x", ",", " ", "z"}], "}"}]}], "]"}], "]"}]], "Input",
 CellLabel->
  "In[125]:=",ExpressionUUID->"df66bfbc-5c75-489c-8232-7bf623a14b3e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", "1.3002895320293808`"}], ",", 
     RowBox[{"z", "\[Rule]", 
      RowBox[{"-", "1.3881472517331703`"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", "1.4170934399867825`"}], ",", 
     RowBox[{"z", "\[Rule]", "2.32128509595631`"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.841394726987812*^9},
 CellLabel->
  "Out[125]=",ExpressionUUID->"07be9b37-e3b6-480e-9e89-acbca7f2f27b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"nz", " ", "=", " ", "0.22491679320871352`"}]], "Input",
 CellChangeTimes->{{3.841394733548476*^9, 3.841394740446782*^9}},
 CellLabel->
  "In[126]:=",ExpressionUUID->"12b36b50-6515-469f-a050-b5cf1f3e2c38"],

Cell[BoxData["0.22491679320871352`"], "Output",
 CellChangeTimes->{3.8413947411745768`*^9},
 CellLabel->
  "Out[126]=",ExpressionUUID->"28112657-ebb6-421a-971f-ca73cc890a9a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{"eqn0", " ", "&&", " ", "eqn1"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"x", ",", " ", "z"}], "}"}]}], "]"}], "]"}]], "Input",
 CellLabel->
  "In[127]:=",ExpressionUUID->"f9dd032f-979b-4597-a7df-4699caf9dac9"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", "1.4170934399867825`"}], ",", 
     RowBox[{"z", "\[Rule]", 
      RowBox[{"-", "2.32128509595631`"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", "1.3002895320293808`"}], ",", 
     RowBox[{"z", "\[Rule]", "1.3881472517331703`"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.8413947477973833`*^9},
 CellLabel->
  "Out[127]=",ExpressionUUID->"4f014b1b-4430-4f59-aac3-99f2b639b1b4"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "a", "]"}]], "Input",
 CellChangeTimes->{{3.841396124917418*^9, 3.8413961286061068`*^9}},
 CellLabel->
  "In[129]:=",ExpressionUUID->"8ae71ee3-a1b8-4047-94f9-b1b8828a0dbd"],

Cell[BoxData[
 RowBox[{"Clear", "[", "b", "]"}]], "Input",
 CellChangeTimes->{{3.841396129703515*^9, 3.841396131396101*^9}},
 CellLabel->
  "In[130]:=",ExpressionUUID->"ed40d4a8-d3b7-469b-85a9-2017d58c3623"],

Cell[BoxData[
 RowBox[{"Clear", "[", "nx", "]"}]], "Input",
 CellChangeTimes->{{3.8413961325083323`*^9, 3.841396140336475*^9}},
 CellLabel->
  "In[131]:=",ExpressionUUID->"147b807f-3a02-4809-a86c-10792bd0785b"],

Cell[BoxData[
 RowBox[{"Clear", "[", "nz", "]"}]], "Input",
 CellChangeTimes->{{3.8413961414490337`*^9, 3.8413961443714533`*^9}},
 CellLabel->
  "In[132]:=",ExpressionUUID->"5641d07a-9cd8-48d1-b3f3-ab9b7b88fbe5"],

Cell[BoxData[
 RowBox[{"Clear", "[", "k", "]"}]], "Input",
 CellChangeTimes->{{3.841396145439139*^9, 3.841396147926268*^9}},
 CellLabel->
  "In[133]:=",ExpressionUUID->"53675d70-9873-48e7-a864-d3bce587fc1e"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"a", " ", "+", " ", 
   RowBox[{"Abs", "[", 
    RowBox[{
     RowBox[{"nx", " ", "*", " ", "x"}], " ", "+", " ", 
     RowBox[{"nz", " ", "*", " ", "z"}], " ", "-", " ", "a"}], "]"}]}], " ", "==",
   " ", 
  RowBox[{"Sqrt", "[", 
   RowBox[{
    RowBox[{"x", "^", "2"}], " ", "+", " ", 
    RowBox[{"z", " ", "^", "2"}]}], "]"}]}], "\n", 
 RowBox[{"eqn0", " ", "=", " ", "%"}], "\n", 
 RowBox[{
  RowBox[{"b", " ", "+", " ", 
   RowBox[{"Abs", "[", 
    RowBox[{
     RowBox[{"nx", " ", "*", " ", "x"}], " ", "+", " ", 
     RowBox[{"nz", " ", "*", " ", "z"}], " ", "-", " ", "a"}], "]"}]}], " ", "==",
   " ", 
  RowBox[{"Sqrt", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a", "+", "b", "-", "x"}], ")"}], "^", "2"}], " ", "+", " ", 
    RowBox[{"z", "^", "2"}]}], "]"}]}], "\n", 
 RowBox[{"eqn1", " ", "=", " ", "%"}]}], "Input",
 CellChangeTimes->{{3.841396200526425*^9, 3.841396200542804*^9}},
 CellLabel->
  "In[134]:=",ExpressionUUID->"d5d7516b-8fc7-42b3-932f-692148e02e88"],

Cell[BoxData[
 RowBox[{
  RowBox[{"a", "+", 
   RowBox[{"Abs", "[", 
    RowBox[{
     RowBox[{"-", "a"}], "+", 
     RowBox[{"nx", " ", "x"}], "+", 
     RowBox[{"nz", " ", "z"}]}], "]"}]}], "\[Equal]", 
  SqrtBox[
   RowBox[{
    SuperscriptBox["x", "2"], "+", 
    SuperscriptBox["z", "2"]}]]}]], "Output",
 CellChangeTimes->{3.8413962011620893`*^9},
 CellLabel->
  "Out[134]=",ExpressionUUID->"75eb1f01-b442-499d-a909-0d181c791563"],

Cell[BoxData[
 RowBox[{
  RowBox[{"a", "+", 
   RowBox[{"Abs", "[", 
    RowBox[{
     RowBox[{"-", "a"}], "+", 
     RowBox[{"nx", " ", "x"}], "+", 
     RowBox[{"nz", " ", "z"}]}], "]"}]}], "\[Equal]", 
  SqrtBox[
   RowBox[{
    SuperscriptBox["x", "2"], "+", 
    SuperscriptBox["z", "2"]}]]}]], "Output",
 CellChangeTimes->{3.8413962011668053`*^9},
 CellLabel->
  "Out[135]=",ExpressionUUID->"0133e212-814e-4ca8-9e14-0ba635c9165c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"b", "+", 
   RowBox[{"Abs", "[", 
    RowBox[{
     RowBox[{"-", "a"}], "+", 
     RowBox[{"nx", " ", "x"}], "+", 
     RowBox[{"nz", " ", "z"}]}], "]"}]}], "\[Equal]", 
  SqrtBox[
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", "b", "-", "x"}], ")"}], "2"], "+", 
    SuperscriptBox["z", "2"]}]]}]], "Output",
 CellChangeTimes->{3.841396201170454*^9},
 CellLabel->
  "Out[136]=",ExpressionUUID->"6912705f-7e38-48d8-bdf1-339ed123b59c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"b", "+", 
   RowBox[{"Abs", "[", 
    RowBox[{
     RowBox[{"-", "a"}], "+", 
     RowBox[{"nx", " ", "x"}], "+", 
     RowBox[{"nz", " ", "z"}]}], "]"}]}], "\[Equal]", 
  SqrtBox[
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", "b", "-", "x"}], ")"}], "2"], "+", 
    SuperscriptBox["z", "2"]}]]}]], "Output",
 CellChangeTimes->{3.841396201174016*^9},
 CellLabel->
  "Out[137]=",ExpressionUUID->"c39ca149-d7c7-436c-9dc3-1256bc93fbd8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"absrules", " ", "=", " ", 
  RowBox[{"FullSimplify", "[", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{"eqn0", " ", "&&", " ", "eqn1"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"x", ",", " ", "z"}], "}"}]}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.841396790599228*^9, 3.8413968011577044`*^9}},
 CellLabel->
  "In[139]:=",ExpressionUUID->"9c176489-bd74-476e-b577-bccbf83413bf"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "nongen", 
   "\"Solutions may not be valid for all values of parameters.\"", 2, 139, 14,
    31665523190856943798, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.84139621299771*^9, 3.841396803582655*^9},
 CellLabel->
  "During evaluation of \
In[139]:=",ExpressionUUID->"c95eb35d-8395-4fcf-95a4-6a6d606b0391"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      FractionBox[
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", 
         SqrtBox[
          RowBox[{
           SuperscriptBox["b", "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox["a", "2"], "-", 
              RowBox[{"a", " ", "b"}]}], ")"}], "2"], " ", 
           SuperscriptBox["nz", "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", 
             SuperscriptBox["nx", "2"], "+", 
             SuperscriptBox["nz", "2"]}], ")"}]}]]}], "+", 
        RowBox[{"2", " ", "a", " ", "b", " ", 
         RowBox[{"(", 
          RowBox[{"a", "+", "b", "-", 
           RowBox[{"a", " ", "nx"}], "+", 
           RowBox[{"b", " ", "nx"}], "-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"a", "+", "b"}], ")"}], " ", 
            SuperscriptBox["nz", "2"]}]}], ")"}]}]}], 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"a", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
           RowBox[{"b", " ", 
            RowBox[{"(", 
             RowBox[{"1", "+", "nx"}], ")"}]}]}], ")"}], "2"], "-", 
        RowBox[{"4", " ", "a", " ", "b", " ", 
         SuperscriptBox["nz", "2"]}]}]]}], ",", 
     RowBox[{"z", "\[Rule]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"4", " ", 
          SuperscriptBox["a", "2"], " ", 
          SuperscriptBox["b", "2"], " ", 
          SuperscriptBox["nz", "2"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["a", "3"], " ", "b", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
          SuperscriptBox["nz", "2"]}], "-", 
         RowBox[{"2", " ", "a", " ", 
          SuperscriptBox["b", "3"], " ", 
          RowBox[{"(", 
           RowBox[{"1", "+", "nx"}], ")"}], " ", 
          SuperscriptBox["nz", "2"]}], "+", 
         RowBox[{"2", " ", "a", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
          SqrtBox[
           RowBox[{
            SuperscriptBox["a", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"a", "-", "b"}], ")"}], "2"], " ", 
            SuperscriptBox["b", "2"], " ", 
            SuperscriptBox["nz", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SuperscriptBox["nx", "2"], "+", 
              SuperscriptBox["nz", "2"]}], ")"}]}]]}], "-", 
         RowBox[{"2", " ", "b", " ", 
          RowBox[{"(", 
           RowBox[{"1", "+", "nx"}], ")"}], " ", 
          SqrtBox[
           RowBox[{
            SuperscriptBox["a", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"a", "-", "b"}], ")"}], "2"], " ", 
            SuperscriptBox["b", "2"], " ", 
            SuperscriptBox["nz", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SuperscriptBox["nx", "2"], "+", 
              SuperscriptBox["nz", "2"]}], ")"}]}]]}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "-", "b"}], ")"}], " ", "nz", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"a", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
              RowBox[{"b", " ", 
               RowBox[{"(", 
                RowBox[{"1", "+", "nx"}], ")"}]}]}], ")"}], "2"], "-", 
           RowBox[{"4", " ", "a", " ", "b", " ", 
            SuperscriptBox["nz", "2"]}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      FractionBox[
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          SqrtBox[
           RowBox[{
            SuperscriptBox["a", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"a", "-", "b"}], ")"}], "2"], " ", 
            SuperscriptBox["b", "2"], " ", 
            SuperscriptBox["nz", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SuperscriptBox["nx", "2"], "+", 
              SuperscriptBox["nz", "2"]}], ")"}]}]], "+", 
          RowBox[{"a", " ", "b", " ", 
           RowBox[{"(", 
            RowBox[{"a", "+", "b", "-", 
             RowBox[{"a", " ", "nx"}], "+", 
             RowBox[{"b", " ", "nx"}], "-", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"a", "+", "b"}], ")"}], " ", 
              SuperscriptBox["nz", "2"]}]}], ")"}]}]}], ")"}]}], 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"a", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
           RowBox[{"b", " ", 
            RowBox[{"(", 
             RowBox[{"1", "+", "nx"}], ")"}]}]}], ")"}], "2"], "-", 
        RowBox[{"4", " ", "a", " ", "b", " ", 
         SuperscriptBox["nz", "2"]}]}]]}], ",", 
     RowBox[{"z", "\[Rule]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", 
            SuperscriptBox["a", "2"], " ", 
            SuperscriptBox["b", "2"], " ", 
            SuperscriptBox["nz", "2"]}], "+", 
           RowBox[{
            SuperscriptBox["a", "3"], " ", "b", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
            SuperscriptBox["nz", "2"]}], "-", 
           RowBox[{"a", " ", 
            SuperscriptBox["b", "3"], " ", 
            RowBox[{"(", 
             RowBox[{"1", "+", "nx"}], ")"}], " ", 
            SuperscriptBox["nz", "2"]}], "-", 
           RowBox[{"a", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
            SqrtBox[
             RowBox[{
              SuperscriptBox["a", "2"], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"a", "-", "b"}], ")"}], "2"], " ", 
              SuperscriptBox["b", "2"], " ", 
              SuperscriptBox["nz", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", 
                SuperscriptBox["nx", "2"], "+", 
                SuperscriptBox["nz", "2"]}], ")"}]}]]}], "+", 
           RowBox[{"b", " ", 
            RowBox[{"(", 
             RowBox[{"1", "+", "nx"}], ")"}], " ", 
            SqrtBox[
             RowBox[{
              SuperscriptBox["a", "2"], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"a", "-", "b"}], ")"}], "2"], " ", 
              SuperscriptBox["b", "2"], " ", 
              SuperscriptBox["nz", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", 
                SuperscriptBox["nx", "2"], "+", 
                SuperscriptBox["nz", "2"]}], ")"}]}]]}]}], ")"}]}], ")"}], 
       "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "-", "b"}], ")"}], " ", "nz", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"a", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
              RowBox[{"b", " ", 
               RowBox[{"(", 
                RowBox[{"1", "+", "nx"}], ")"}]}]}], ")"}], "2"], "-", 
           RowBox[{"4", " ", "a", " ", "b", " ", 
            SuperscriptBox["nz", "2"]}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "a", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"a", " ", 
             RowBox[{"(", 
              RowBox[{"a", "+", "b", "+", 
               RowBox[{"a", " ", "nx"}], "-", 
               RowBox[{"b", " ", "nx"}]}], ")"}]}], "-", 
            RowBox[{"b", " ", 
             RowBox[{"(", 
              RowBox[{"a", "+", "b"}], ")"}], " ", 
             SuperscriptBox["nz", "2"]}]}], ")"}]}], "-", 
         RowBox[{"2", " ", 
          SqrtBox[
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "2"]}], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
            SuperscriptBox["nz", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", "a", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
              RowBox[{"b", " ", 
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                 SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}]}], ")"}], 
       "/", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"a", "+", "b", "+", 
            RowBox[{"a", " ", "nx"}], "-", 
            RowBox[{"b", " ", "nx"}]}], ")"}], "2"], "-", 
         RowBox[{"4", " ", "a", " ", "b", " ", 
          SuperscriptBox["nz", "2"]}]}], ")"}]}]}], ",", 
     RowBox[{"z", "\[Rule]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", 
            SuperscriptBox["a", "2"], " ", 
            SuperscriptBox["b", "2"], " ", 
            SuperscriptBox["nz", "2"]}], "+", 
           RowBox[{
            SuperscriptBox["a", "3"], " ", "b", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "3"}], "+", "nx"}], ")"}], " ", 
            SuperscriptBox["nz", "2"]}], "-", 
           RowBox[{"a", " ", 
            SuperscriptBox["b", "3"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
            SuperscriptBox["nz", "2"]}], "+", 
           RowBox[{"a", " ", 
            RowBox[{"(", 
             RowBox[{"1", "+", "nx"}], ")"}], " ", 
            SqrtBox[
             RowBox[{
              RowBox[{"-", 
               SuperscriptBox["a", "2"]}], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
              SuperscriptBox["nz", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", "a", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
                RowBox[{"b", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                   SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}], "-", 
           RowBox[{"b", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
            SqrtBox[
             RowBox[{
              SuperscriptBox["a", "2"], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
              SuperscriptBox["nz", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "2"}], " ", "a", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "+", 
                RowBox[{"b", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                   SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}]}], 
          ")"}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "-", "b"}], ")"}], " ", "nz", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"a", "+", "b", "+", 
              RowBox[{"a", " ", "nx"}], "-", 
              RowBox[{"b", " ", "nx"}]}], ")"}], "2"], "-", 
           RowBox[{"4", " ", "a", " ", "b", " ", 
            SuperscriptBox["nz", "2"]}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"a", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"a", " ", 
               RowBox[{"(", 
                RowBox[{"a", "+", "b", "+", 
                 RowBox[{"a", " ", "nx"}], "-", 
                 RowBox[{"b", " ", "nx"}]}], ")"}]}], "-", 
              RowBox[{"b", " ", 
               RowBox[{"(", 
                RowBox[{"a", "+", "b"}], ")"}], " ", 
               SuperscriptBox["nz", "2"]}]}], ")"}]}], "+", 
           SqrtBox[
            RowBox[{
             RowBox[{"-", 
              SuperscriptBox["a", "2"]}], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
             SuperscriptBox["nz", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", "a", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
               RowBox[{"b", " ", 
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                  SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}], ")"}]}],
         ")"}], "/", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"a", "+", "b", "+", 
            RowBox[{"a", " ", "nx"}], "-", 
            RowBox[{"b", " ", "nx"}]}], ")"}], "2"], "-", 
         RowBox[{"4", " ", "a", " ", "b", " ", 
          SuperscriptBox["nz", "2"]}]}], ")"}]}]}], ",", 
     RowBox[{"z", "\[Rule]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"4", " ", 
          SuperscriptBox["a", "2"], " ", 
          SuperscriptBox["b", "2"], " ", 
          SuperscriptBox["nz", "2"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["a", "3"], " ", "b", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "3"}], "+", "nx"}], ")"}], " ", 
          SuperscriptBox["nz", "2"]}], "+", 
         RowBox[{"2", " ", "b", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
          SqrtBox[
           RowBox[{
            SuperscriptBox["a", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
            SuperscriptBox["nz", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], " ", "a", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "+", 
              RowBox[{"b", " ", 
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                 SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}], "-", 
         RowBox[{"2", " ", "a", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox["b", "3"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
             SuperscriptBox["nz", "2"]}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "+", "nx"}], ")"}], " ", 
             SqrtBox[
              RowBox[{
               RowBox[{"-", 
                SuperscriptBox["a", "2"]}], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
               SuperscriptBox["nz", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", "a", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
                 RowBox[{"b", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                    SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}]}], 
           ")"}]}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "-", "b"}], ")"}], " ", "nz", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"a", "+", "b", "+", 
              RowBox[{"a", " ", "nx"}], "-", 
              RowBox[{"b", " ", "nx"}]}], ")"}], "2"], "-", 
           RowBox[{"4", " ", "a", " ", "b", " ", 
            SuperscriptBox["nz", "2"]}]}], ")"}]}], ")"}]}]}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.841396218753056*^9, 3.84139680377462*^9},
 CellLabel->
  "Out[139]=",ExpressionUUID->"2c166f62-3182-4b06-89ac-115b7451753e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"absrules", "[", 
   RowBox[{"[", "1", "]"}], "]"}], "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"a", "->", "0.1"}], ",", 
    RowBox[{"b", "->", "1.2426297674778306"}], ",", 
    RowBox[{"nx", "->", 
     RowBox[{"-", "0.017452406437283508"}]}], ",", 
    RowBox[{"nz", "->", 
     RowBox[{"-", "0.22491679320871352"}]}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.8413968069657793`*^9, 3.841396826076563*^9}, {
  3.8413968561180677`*^9, 3.841396902604554*^9}, {3.841396950757781*^9, 
  3.841396954295888*^9}, {3.841397861438726*^9, 3.841397882093195*^9}},
 CellLabel->
  "In[158]:=",ExpressionUUID->"bc1ae45f-19bf-42d2-998c-5a06a0c3114a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"x", "\[Rule]", 
    RowBox[{"0.1808453520474974`", "\[VeryThinSpace]", "-", 
     RowBox[{"0.03608520689331502`", " ", "\[ImaginaryI]"}]}]}], ",", 
   RowBox[{"z", "\[Rule]", 
    RowBox[{
     RowBox[{"-", "0.036280450530107346`"}], "-", 
     RowBox[{"0.1857202409391961`", " ", "\[ImaginaryI]"}]}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.841396903053647*^9, 3.841396955345787*^9, {3.84139786672224*^9, 
   3.841397882859868*^9}},
 CellLabel->
  "Out[158]=",ExpressionUUID->"7e53fa8a-266c-4c9e-b0ab-600ae6f66974"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"absrules", "[", 
  RowBox[{"[", "1", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.841396847855145*^9, 3.841396850941572*^9}},
 CellLabel->
  "In[142]:=",ExpressionUUID->"acab5df9-338a-42de-87a7-8e7996173fea"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"x", "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{
       RowBox[{"-", "2"}], " ", 
       SqrtBox[
        RowBox[{
         SuperscriptBox["b", "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["a", "2"], "-", 
            RowBox[{"a", " ", "b"}]}], ")"}], "2"], " ", 
         SuperscriptBox["nz", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           SuperscriptBox["nx", "2"], "+", 
           SuperscriptBox["nz", "2"]}], ")"}]}]]}], "+", 
      RowBox[{"2", " ", "a", " ", "b", " ", 
       RowBox[{"(", 
        RowBox[{"a", "+", "b", "-", 
         RowBox[{"a", " ", "nx"}], "+", 
         RowBox[{"b", " ", "nx"}], "-", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"a", "+", "b"}], ")"}], " ", 
          SuperscriptBox["nz", "2"]}]}], ")"}]}]}], 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"a", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
         RowBox[{"b", " ", 
          RowBox[{"(", 
           RowBox[{"1", "+", "nx"}], ")"}]}]}], ")"}], "2"], "-", 
      RowBox[{"4", " ", "a", " ", "b", " ", 
       SuperscriptBox["nz", "2"]}]}]]}], ",", 
   RowBox[{"z", "\[Rule]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"4", " ", 
        SuperscriptBox["a", "2"], " ", 
        SuperscriptBox["b", "2"], " ", 
        SuperscriptBox["nz", "2"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["a", "3"], " ", "b", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
        SuperscriptBox["nz", "2"]}], "-", 
       RowBox[{"2", " ", "a", " ", 
        SuperscriptBox["b", "3"], " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", "nx"}], ")"}], " ", 
        SuperscriptBox["nz", "2"]}], "+", 
       RowBox[{"2", " ", "a", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
        SqrtBox[
         RowBox[{
          SuperscriptBox["a", "2"], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"a", "-", "b"}], ")"}], "2"], " ", 
          SuperscriptBox["b", "2"], " ", 
          SuperscriptBox["nz", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            SuperscriptBox["nx", "2"], "+", 
            SuperscriptBox["nz", "2"]}], ")"}]}]]}], "-", 
       RowBox[{"2", " ", "b", " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", "nx"}], ")"}], " ", 
        SqrtBox[
         RowBox[{
          SuperscriptBox["a", "2"], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"a", "-", "b"}], ")"}], "2"], " ", 
          SuperscriptBox["b", "2"], " ", 
          SuperscriptBox["nz", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            SuperscriptBox["nx", "2"], "+", 
            SuperscriptBox["nz", "2"]}], ")"}]}]]}]}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "-", "b"}], ")"}], " ", "nz", " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"a", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
            RowBox[{"b", " ", 
             RowBox[{"(", 
              RowBox[{"1", "+", "nx"}], ")"}]}]}], ")"}], "2"], "-", 
         RowBox[{"4", " ", "a", " ", "b", " ", 
          SuperscriptBox["nz", "2"]}]}], ")"}]}], ")"}]}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.841396840250609*^9, 3.841396852326962*^9}},
 CellLabel->
  "Out[142]=",ExpressionUUID->"b1bbf9a8-f266-4564-9528-4b2bafb56219"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"absrules", "[", 
   RowBox[{"[", "1", "]"}], "]"}], "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"a", "->", "1.2"}], ",", 
    RowBox[{"b", "->", "1.2426297674778306"}], ",", 
    RowBox[{"nx", "->", 
     RowBox[{"-", "0.017452406437283508"}]}], ",", 
    RowBox[{"nz", "->", "0.22491679320871352"}]}], "}"}]}]], "Input",Expressio\
nUUID->"19b04c50-ee84-4504-92a6-746465cd4260"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["b", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["a", "2"], "-", 
      RowBox[{"a", " ", "b"}]}], ")"}], "2"], " ", 
   SuperscriptBox["nz", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", 
     SuperscriptBox["nx", "2"], "+", 
     SuperscriptBox["nz", "2"]}], ")"}]}], "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"a", "->", "1.2"}], ",", 
    RowBox[{"b", "->", "1.2426297674778306"}], ",", 
    RowBox[{"nx", "->", 
     RowBox[{"-", "0.017452406437283508"}]}], ",", 
    RowBox[{"nz", "->", "0.22491679320871352"}]}], "}"}]}]], "Input",
 CellChangeTimes->{3.8413969924128647`*^9},
 CellLabel->
  "In[148]:=",ExpressionUUID->"2520b8d4-3f87-480e-9699-33b1fe65e8e7"],

Cell[BoxData[
 RowBox[{"-", "0.00019401319011784897`"}]], "Output",
 CellChangeTimes->{3.8413969935201597`*^9},
 CellLabel->
  "Out[148]=",ExpressionUUID->"61b1352e-16b8-41b1-86a7-061f9b485064"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", "1"}], "+", 
    SuperscriptBox["nx", "2"], "+", 
    SuperscriptBox["nz", "2"]}], ")"}], "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"a", "->", "1.2"}], ",", 
    RowBox[{"b", "->", "1.2426297674778306"}], ",", 
    RowBox[{"nx", "->", 
     RowBox[{"-", "0.017452406437283508"}]}], ",", 
    RowBox[{"nz", "->", "0.22491679320871352"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.841397094576508*^9, 3.841397103251418*^9}},
 CellLabel->
  "In[149]:=",ExpressionUUID->"322dfde7-ce27-414b-8403-71b996adfe96"],

Cell[BoxData[
 RowBox[{"-", "0.9491078496422566`"}]], "Output",
 CellChangeTimes->{3.84139710432552*^9},
 CellLabel->
  "Out[149]=",ExpressionUUID->"5bbd4fbe-49e6-4a98-9fbe-f1b865992c45"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"absrules", "[", 
   RowBox[{"[", "3", "]"}], "]"}], "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"a", "->", "1.2"}], ",", 
    RowBox[{"b", "->", "1.2426297674778306"}], ",", 
    RowBox[{"nx", "->", 
     RowBox[{"-", "0.017452406437283508"}]}], ",", 
    RowBox[{"nz", "->", 
     RowBox[{"-", "0.22491679320871352"}]}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.841397148909108*^9, 3.841397168769256*^9}, 
   3.8413972279480124`*^9},
 CellLabel->
  "In[156]:=",ExpressionUUID->"b15d0986-0f8f-4acb-909b-0ec5a7913fa4"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"x", "\[Rule]", "1.1676181198426308`"}], ",", 
   RowBox[{"z", "\[Rule]", "2.8235398036914043`"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.841397151426161*^9, 3.841397171322769*^9}, 
   3.841397228580511*^9},
 CellLabel->
  "Out[156]=",ExpressionUUID->"f1109d58-6fde-4023-9565-822dc356f0a6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"absrules", "[", 
   RowBox[{"[", "4", "]"}], "]"}], "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"a", "->", "1.2"}], ",", 
    RowBox[{"b", "->", "1.2426297674778306"}], ",", 
    RowBox[{"nx", "->", 
     RowBox[{"-", "0.017452406437283508"}]}], ",", 
    RowBox[{"nz", "->", 
     RowBox[{"-", "0.22491679320871352"}]}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.841397190415182*^9, 3.841397196702078*^9}},
 CellLabel->
  "In[154]:=",ExpressionUUID->"f8ed6755-876d-4a55-91f2-f64168d80128"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"x", "\[Rule]", "1.1852409397915091`"}], ",", 
   RowBox[{"z", "\[Rule]", 
    RowBox[{"-", "1.6673299838563582`"}]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.841397193247485*^9, 3.841397199142501*^9}},
 CellLabel->
  "Out[154]=",ExpressionUUID->"964db3c6-4a4a-4343-abc1-95a3655d686f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"absrules", "[", 
   RowBox[{"[", "3", "]"}], "]"}], "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"a", "->", "1.2"}], ",", 
    RowBox[{"b", "->", "1.2426297674778306"}], ",", 
    RowBox[{"nx", "->", 
     RowBox[{"-", "0.017452406437283508"}]}], ",", 
    RowBox[{"nz", "->", "0.22491679320871352"}]}], "}"}]}]], "Input",
 CellLabel->
  "In[155]:=",ExpressionUUID->"e5dabd34-e5aa-4398-a198-13c18cc61875"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"x", "\[Rule]", "1.1676181198426308`"}], ",", 
   RowBox[{"z", "\[Rule]", 
    RowBox[{"-", "2.8235398036914043`"}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.8413972190615673`*^9},
 CellLabel->
  "Out[155]=",ExpressionUUID->"f48ac4d0-d1f4-4268-82f6-f692fe11bbbf"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"nx", "*", "x"}], "+", 
   RowBox[{"nz", "*", "z"}]}], "==", 
  RowBox[{"Sqrt", "[", 
   RowBox[{
    RowBox[{"x", "^", "2"}], "+", 
    RowBox[{"z", "^", "2"}]}], "]"}]}], "\n", 
 RowBox[{"eqn0", "=", "%"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"nx", "*", "x"}], "+", 
   RowBox[{"nz", "*", "z"}]}], "==", 
  RowBox[{"Sqrt", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a", "+", "b", "-", "x"}], ")"}], "^", "2"}], "+", 
    RowBox[{"z", "^", "2"}]}], "]"}]}], "\n", 
 RowBox[{"eqn1", "=", "%"}]}], "Input",
 CellChangeTimes->{{3.841398268138257*^9, 3.8413982681549788`*^9}},
 CellLabel->
  "In[159]:=",ExpressionUUID->"4534f972-a0fb-49e8-8380-d05b41c5d50a"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"nx", " ", "x"}], "+", 
   RowBox[{"nz", " ", "z"}]}], "\[Equal]", 
  SqrtBox[
   RowBox[{
    SuperscriptBox["x", "2"], "+", 
    SuperscriptBox["z", "2"]}]]}]], "Output",
 CellChangeTimes->{3.841398269058848*^9},
 CellLabel->
  "Out[159]=",ExpressionUUID->"010744a8-5617-4560-96a9-789835fcb4e7"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"nx", " ", "x"}], "+", 
   RowBox[{"nz", " ", "z"}]}], "\[Equal]", 
  SqrtBox[
   RowBox[{
    SuperscriptBox["x", "2"], "+", 
    SuperscriptBox["z", "2"]}]]}]], "Output",
 CellChangeTimes->{3.841398269063483*^9},
 CellLabel->
  "Out[160]=",ExpressionUUID->"4bb603f0-7f86-40a9-ae8e-87ba7a27f600"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"nx", " ", "x"}], "+", 
   RowBox[{"nz", " ", "z"}]}], "\[Equal]", 
  SqrtBox[
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", "b", "-", "x"}], ")"}], "2"], "+", 
    SuperscriptBox["z", "2"]}]]}]], "Output",
 CellChangeTimes->{3.841398269066983*^9},
 CellLabel->
  "Out[161]=",ExpressionUUID->"dc25eb2b-b422-431f-ba66-bddbfceb64d4"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"nx", " ", "x"}], "+", 
   RowBox[{"nz", " ", "z"}]}], "\[Equal]", 
  SqrtBox[
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", "b", "-", "x"}], ")"}], "2"], "+", 
    SuperscriptBox["z", "2"]}]]}]], "Output",
 CellChangeTimes->{3.841398269070673*^9},
 CellLabel->
  "Out[162]=",ExpressionUUID->"0a672653-5a2d-4951-9b2d-ce642e059a4e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"posrules", " ", "=", " ", 
  RowBox[{"FullSimplify", "[", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{"eqn0", " ", "&&", " ", "eqn1"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"x", ",", " ", "z"}], "}"}]}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.841398288693676*^9, 3.8413982905536127`*^9}},
 CellLabel->
  "In[163]:=",ExpressionUUID->"db4e6bee-e89a-4dd8-8d30-0a1eb93026cd"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "nongen", 
   "\"Solutions may not be valid for all values of parameters.\"", 2, 163, 16,
    31665523190856943798, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.841398293255114*^9},
 CellLabel->
  "During evaluation of \
In[163]:=",ExpressionUUID->"a853d224-bc24-4279-959e-3434f6245916"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      FractionBox[
       RowBox[{"a", "+", "b"}], "2"]}], ",", 
     RowBox[{"z", "\[Rule]", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "+", "b"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"nx", " ", "nz"}], "+", 
           SqrtBox[
            RowBox[{
             RowBox[{"-", "1"}], "+", 
             SuperscriptBox["nx", "2"], "+", 
             SuperscriptBox["nz", "2"]}]]}], ")"}]}], 
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           SuperscriptBox["nz", "2"]}], ")"}]}]]}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      FractionBox[
       RowBox[{"a", "+", "b"}], "2"]}], ",", 
     RowBox[{"z", "\[Rule]", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "+", "b"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "nx"}], " ", "nz"}], "+", 
          SqrtBox[
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            SuperscriptBox["nx", "2"], "+", 
            SuperscriptBox["nz", "2"]}]]}], ")"}]}], 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          SuperscriptBox["nz", "2"]}], ")"}]}]]}]}], "}"}]}], "}"}]], "Output",\

 CellChangeTimes->{3.841398293308577*^9},
 CellLabel->
  "Out[163]=",ExpressionUUID->"ea00751f-a135-417f-b3b7-52a5edf80ce0"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"a", "+", 
       RowBox[{
        RowBox[{"-", "nx"}], "*", "x"}], "+", 
       RowBox[{
        RowBox[{"-", "nz"}], "*", "z"}], "+", "a"}], "]"}], "==", 
     RowBox[{"Sqrt", "[", 
      RowBox[{
       RowBox[{"x", "^", "2"}], "+", 
       RowBox[{"z", "^", "2"}]}], "]"}]}], "\n", 
    RowBox[{"eqn0", "=", "%"}], "\n", 
    RowBox[{"b", "+", 
     RowBox[{
      RowBox[{"-", "nx"}], "*", "x"}], "+", 
     RowBox[{
      RowBox[{"-", "nz"}], "*", "z"}], "+", "a"}]}], "]"}], "==", 
  RowBox[{"Sqrt", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a", "+", "b", "-", "x"}], ")"}], "^", "2"}], "+", 
    RowBox[{"z", "^", "2"}]}], "]"}]}], "\n", 
 RowBox[{"eqn1", "=", "%"}]}], "Input",
 CellChangeTimes->{{3.841398424663562*^9, 3.841398424678507*^9}},
 EmphasizeSyntaxErrors->True,
 CellLabel->
  "In[164]:=",ExpressionUUID->"97f492a9-3513-457f-9e2d-e261cd5d9f57"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"a", "+", 
   RowBox[{
    RowBox[{"-", "nx"}], "*", "x"}], "+", 
   RowBox[{
    RowBox[{"-", "nz"}], "*", "z"}], "+", "a"}], "==", 
  RowBox[{"Sqrt", "[", 
   RowBox[{
    RowBox[{"x", "^", "2"}], "+", 
    RowBox[{"z", "^", "2"}]}], "]"}]}], "\n", 
 RowBox[{"eqn0", "=", "%"}], "\n", 
 RowBox[{
  RowBox[{"b", "+", 
   RowBox[{
    RowBox[{"-", "nx"}], "*", "x"}], "+", 
   RowBox[{
    RowBox[{"-", "nz"}], "*", "z"}], "+", "a"}], "==", 
  RowBox[{"Sqrt", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a", "+", "b", "-", "x"}], ")"}], "^", "2"}], "+", 
    RowBox[{"z", "^", "2"}]}], "]"}]}], "\n", 
 RowBox[{"eqn1", "=", "%"}]}], "Input",
 CellChangeTimes->{{3.841398438153392*^9, 3.841398438168909*^9}},
 CellLabel->
  "In[164]:=",ExpressionUUID->"e6a977e8-9a42-49ed-a49b-871935c252ee"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"2", " ", "a"}], "-", 
   RowBox[{"nx", " ", "x"}], "-", 
   RowBox[{"nz", " ", "z"}]}], "\[Equal]", 
  SqrtBox[
   RowBox[{
    SuperscriptBox["x", "2"], "+", 
    SuperscriptBox["z", "2"]}]]}]], "Output",
 CellChangeTimes->{3.841398439221198*^9},
 CellLabel->
  "Out[164]=",ExpressionUUID->"54373a41-a40c-49db-9149-0ff97672f0d5"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"2", " ", "a"}], "-", 
   RowBox[{"nx", " ", "x"}], "-", 
   RowBox[{"nz", " ", "z"}]}], "\[Equal]", 
  SqrtBox[
   RowBox[{
    SuperscriptBox["x", "2"], "+", 
    SuperscriptBox["z", "2"]}]]}]], "Output",
 CellChangeTimes->{3.8413984392259493`*^9},
 CellLabel->
  "Out[165]=",ExpressionUUID->"d7b1a23d-55a0-43d7-baf9-eced521b351c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"a", "+", "b", "-", 
   RowBox[{"nx", " ", "x"}], "-", 
   RowBox[{"nz", " ", "z"}]}], "\[Equal]", 
  SqrtBox[
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", "b", "-", "x"}], ")"}], "2"], "+", 
    SuperscriptBox["z", "2"]}]]}]], "Output",
 CellChangeTimes->{3.841398439229814*^9},
 CellLabel->
  "Out[166]=",ExpressionUUID->"de4e3bdd-1033-4368-a58d-b8cc64e6d891"],

Cell[BoxData[
 RowBox[{
  RowBox[{"a", "+", "b", "-", 
   RowBox[{"nx", " ", "x"}], "-", 
   RowBox[{"nz", " ", "z"}]}], "\[Equal]", 
  SqrtBox[
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", "b", "-", "x"}], ")"}], "2"], "+", 
    SuperscriptBox["z", "2"]}]]}]], "Output",
 CellChangeTimes->{3.841398439234376*^9},
 CellLabel->
  "Out[167]=",ExpressionUUID->"8c6b5455-f826-4c3d-b4f7-c268d99d50ba"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"negrules", " ", "=", " ", 
  RowBox[{"FullSimplify", "[", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{"eqn0", " ", "&&", " ", "eqn1"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"x", ",", " ", "z"}], "}"}]}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.841398447651866*^9, 3.841398452241597*^9}},
 CellLabel->
  "In[168]:=",ExpressionUUID->"34977a0a-1f21-498e-b48e-4eb2a95c4c8f"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "nongen", 
   "\"Solutions may not be valid for all values of parameters.\"", 2, 168, 18,
    31665523190856943798, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.841398454522018*^9},
 CellLabel->
  "During evaluation of \
In[168]:=",ExpressionUUID->"31fb26aa-0dec-483e-92ff-1288b0ff4747"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"a", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"a", " ", 
               RowBox[{"(", 
                RowBox[{"a", "+", "b", "+", 
                 RowBox[{"a", " ", "nx"}], "-", 
                 RowBox[{"b", " ", "nx"}]}], ")"}]}], "-", 
              RowBox[{"b", " ", 
               RowBox[{"(", 
                RowBox[{"a", "+", "b"}], ")"}], " ", 
               SuperscriptBox["nz", "2"]}]}], ")"}]}], "+", 
           SqrtBox[
            RowBox[{
             RowBox[{"-", 
              SuperscriptBox["a", "2"]}], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
             SuperscriptBox["nz", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", "a", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
               RowBox[{"b", " ", 
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                  SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}], ")"}]}],
         ")"}], "/", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"a", "+", "b", "+", 
            RowBox[{"a", " ", "nx"}], "-", 
            RowBox[{"b", " ", "nx"}]}], ")"}], "2"], "-", 
         RowBox[{"4", " ", "a", " ", "b", " ", 
          SuperscriptBox["nz", "2"]}]}], ")"}]}]}], ",", 
     RowBox[{"z", "\[Rule]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"4", " ", 
          SuperscriptBox["a", "2"], " ", 
          SuperscriptBox["b", "2"], " ", 
          SuperscriptBox["nz", "2"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["a", "3"], " ", "b", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "3"}], "+", "nx"}], ")"}], " ", 
          SuperscriptBox["nz", "2"]}], "+", 
         RowBox[{"2", " ", "b", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
          SqrtBox[
           RowBox[{
            SuperscriptBox["a", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
            SuperscriptBox["nz", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], " ", "a", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "+", 
              RowBox[{"b", " ", 
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                 SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}], "-", 
         RowBox[{"2", " ", "a", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox["b", "3"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
             SuperscriptBox["nz", "2"]}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "+", "nx"}], ")"}], " ", 
             SqrtBox[
              RowBox[{
               RowBox[{"-", 
                SuperscriptBox["a", "2"]}], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
               SuperscriptBox["nz", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", "a", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
                 RowBox[{"b", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                    SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}]}], 
           ")"}]}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "-", "b"}], ")"}], " ", "nz", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"a", "+", "b", "+", 
              RowBox[{"a", " ", "nx"}], "-", 
              RowBox[{"b", " ", "nx"}]}], ")"}], "2"], "-", 
           RowBox[{"4", " ", "a", " ", "b", " ", 
            SuperscriptBox["nz", "2"]}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "a", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"a", " ", 
             RowBox[{"(", 
              RowBox[{"a", "+", "b", "+", 
               RowBox[{"a", " ", "nx"}], "-", 
               RowBox[{"b", " ", "nx"}]}], ")"}]}], "-", 
            RowBox[{"b", " ", 
             RowBox[{"(", 
              RowBox[{"a", "+", "b"}], ")"}], " ", 
             SuperscriptBox["nz", "2"]}]}], ")"}]}], "-", 
         RowBox[{"2", " ", 
          SqrtBox[
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "2"]}], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
            SuperscriptBox["nz", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", "a", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
              RowBox[{"b", " ", 
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                 SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}]}], ")"}], 
       "/", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"a", "+", "b", "+", 
            RowBox[{"a", " ", "nx"}], "-", 
            RowBox[{"b", " ", "nx"}]}], ")"}], "2"], "-", 
         RowBox[{"4", " ", "a", " ", "b", " ", 
          SuperscriptBox["nz", "2"]}]}], ")"}]}]}], ",", 
     RowBox[{"z", "\[Rule]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", 
            SuperscriptBox["a", "2"], " ", 
            SuperscriptBox["b", "2"], " ", 
            SuperscriptBox["nz", "2"]}], "+", 
           RowBox[{
            SuperscriptBox["a", "3"], " ", "b", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "3"}], "+", "nx"}], ")"}], " ", 
            SuperscriptBox["nz", "2"]}], "-", 
           RowBox[{"a", " ", 
            SuperscriptBox["b", "3"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
            SuperscriptBox["nz", "2"]}], "+", 
           RowBox[{"a", " ", 
            RowBox[{"(", 
             RowBox[{"1", "+", "nx"}], ")"}], " ", 
            SqrtBox[
             RowBox[{
              RowBox[{"-", 
               SuperscriptBox["a", "2"]}], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
              SuperscriptBox["nz", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", "a", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
                RowBox[{"b", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                   SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}], "-", 
           RowBox[{"b", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
            SqrtBox[
             RowBox[{
              SuperscriptBox["a", "2"], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
              SuperscriptBox["nz", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "2"}], " ", "a", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "+", 
                RowBox[{"b", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                   SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}]}], 
          ")"}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "-", "b"}], ")"}], " ", "nz", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"a", "+", "b", "+", 
              RowBox[{"a", " ", "nx"}], "-", 
              RowBox[{"b", " ", "nx"}]}], ")"}], "2"], "-", 
           RowBox[{"4", " ", "a", " ", "b", " ", 
            SuperscriptBox["nz", "2"]}]}], ")"}]}], ")"}]}]}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.8413984546131687`*^9},
 CellLabel->
  "Out[168]=",ExpressionUUID->"f6f6d68d-3298-4ae1-b504-8770134e54ff"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"negrules", "[", 
   RowBox[{"[", "1", "]"}], "]"}], "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"a", "->", "1.2"}], ",", 
    RowBox[{"b", "->", "1.2426297674778306"}], ",", 
    RowBox[{"nx", "->", 
     RowBox[{"-", "0.017452406437283508"}]}], ",", 
    RowBox[{"nz", "->", "0.22491679320871352"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.841398622539177*^9, 3.8413986344356403`*^9}},
 CellLabel->
  "In[169]:=",ExpressionUUID->"4481e5b6-40e7-488e-a8c3-b4d586387e5a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"x", "\[Rule]", "1.1852409397915091`"}], ",", 
   RowBox[{"z", "\[Rule]", "1.6673299838563582`"}]}], "}"}]], "Output",
 CellChangeTimes->{3.841398636599381*^9},
 CellLabel->
  "Out[169]=",ExpressionUUID->"357a34f3-b96c-4c27-b8e0-54d077822c24"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"negrules", "[", 
   RowBox[{"[", "1", "]"}], "]"}], "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"a", "->", "1.2"}], ",", 
    RowBox[{"b", "->", "1.2426297674778306"}], ",", 
    RowBox[{"nx", "->", 
     RowBox[{"-", "0.017452406437283508"}]}], ",", 
    RowBox[{"nz", "->", 
     RowBox[{"-", "0.22491679320871352"}]}]}], "}"}]}]], "Input",
 CellChangeTimes->{3.841398648955904*^9},
 CellLabel->
  "In[170]:=",ExpressionUUID->"1f435bb5-fba3-4f6f-af90-65d30e8b78ca"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"x", "\[Rule]", "1.1852409397915091`"}], ",", 
   RowBox[{"z", "\[Rule]", 
    RowBox[{"-", "1.6673299838563582`"}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.841398651748106*^9},
 CellLabel->
  "Out[170]=",ExpressionUUID->"a4b16a9c-1780-42f1-b671-1c32f7b287b8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"D", "=", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a", "+", "b", "+", 
       RowBox[{"a", " ", "nx"}], "-", 
       RowBox[{"b", " ", "nx"}]}], ")"}], "^", "2"}], "-", 
    RowBox[{"4", " ", "a", " ", "b", " ", 
     RowBox[{"nz", "^", "2"}]}]}], ")"}]}], "\[IndentingNewLine]", 
 RowBox[{"L", "=", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"a", " ", 
     RowBox[{"(", 
      RowBox[{"a", "+", "b", "+", 
       RowBox[{"a", " ", "nx"}], "-", 
       RowBox[{"b", " ", "nx"}]}], ")"}]}], "-", 
    RowBox[{"b", " ", 
     RowBox[{"(", 
      RowBox[{"a", "+", "b"}], ")"}], " ", 
     RowBox[{"nz", "^", "2"}]}]}], ")"}]}], "\n", 
 RowBox[{"G", "=", 
  RowBox[{
   RowBox[{"-", 
    RowBox[{"a", "^", "2"}]}], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"a", "-", "b"}], ")"}], "^", "2"}], " ", "b", " ", 
   RowBox[{"nz", "^", "2"}]}]}], "\n", 
 RowBox[{"H", "=", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"2", " ", "a", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
    RowBox[{"b", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "nx"}], ")"}], "^", "2"}], "+", 
       RowBox[{"nz", "^", "2"}]}], ")"}]}]}], ")"}]}], "\n", 
 RowBox[{"F", "=", 
  RowBox[{"Sqrt", "[", 
   RowBox[{"G", " ", "H"}], "]"}]}], "\n", 
 RowBox[{"K", "=", 
  RowBox[{
   RowBox[{"4", " ", 
    RowBox[{"a", "^", "2"}], " ", 
    RowBox[{"b", "^", "2"}], " ", 
    RowBox[{"nz", "^", "2"}]}], "+", 
   RowBox[{"2", " ", 
    RowBox[{"a", "^", "3"}], " ", "b", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "3"}], "+", "nx"}], ")"}], " ", 
    RowBox[{"nz", "^", "2"}]}]}]}], "\n", 
 RowBox[{"J", "=", 
  RowBox[{
   RowBox[{"b", "^", "3"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
   RowBox[{"nz", "^", "2"}]}]}], "\n", 
 RowBox[{"H", "=", 
  RowBox[{"2", "a", " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", "nx"}], ")"}], " ", "F"}]}]}], "Input",
 CellChangeTimes->{{3.841400462337503*^9, 3.841400485393219*^9}, {
  3.84140051893862*^9, 3.841400519968042*^9}},
 CellLabel->
  "In[179]:=",ExpressionUUID->"abae3d5f-ce39-453b-83cd-8b6ef59e413b"],

Cell[BoxData[
 TemplateBox[{
  "Set", "wrsym", "\"Symbol \\!\\(\\*RowBox[{\\\"D\\\"}]\\) is Protected.\"", 
   2, 179, 22, 31665523190856943798, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.841400486491618*^9, 3.841400522585925*^9},
 CellLabel->
  "During evaluation of \
In[179]:=",ExpressionUUID->"05e6b767-3028-4410-8ec4-9cb4e08e0809"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"a", "+", "b", "+", 
     RowBox[{"a", " ", "nx"}], "-", 
     RowBox[{"b", " ", "nx"}]}], ")"}], "2"], "-", 
  RowBox[{"4", " ", "a", " ", "b", " ", 
   SuperscriptBox["nz", "2"]}]}]], "Output",
 CellChangeTimes->{3.841400486507627*^9, 3.841400522597625*^9},
 CellLabel->
  "Out[179]=",ExpressionUUID->"75b836c6-57c8-4c3e-9da5-7b3788c79707"],

Cell[BoxData[
 RowBox[{
  RowBox[{"a", " ", 
   RowBox[{"(", 
    RowBox[{"a", "+", "b", "+", 
     RowBox[{"a", " ", "nx"}], "-", 
     RowBox[{"b", " ", "nx"}]}], ")"}]}], "-", 
  RowBox[{"b", " ", 
   RowBox[{"(", 
    RowBox[{"a", "+", "b"}], ")"}], " ", 
   SuperscriptBox["nz", "2"]}]}]], "Output",
 CellChangeTimes->{3.841400486507627*^9, 3.8414005226014757`*^9},
 CellLabel->
  "Out[180]=",ExpressionUUID->"e6e25a9a-fc70-4ad9-8bc0-52bb656ed0cf"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   SuperscriptBox["a", "2"]}], " ", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
  SuperscriptBox["nz", "2"]}]], "Output",
 CellChangeTimes->{3.841400486507627*^9, 3.841400522605359*^9},
 CellLabel->
  "Out[181]=",ExpressionUUID->"56c056f2-299a-4a38-b025-2c1e97fe7f4a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"2", " ", "a", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
  RowBox[{"b", " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
     SuperscriptBox["nz", "2"]}], ")"}]}]}]], "Output",
 CellChangeTimes->{3.841400486507627*^9, 3.84140052260918*^9},
 CellLabel->
  "Out[182]=",ExpressionUUID->"36e63269-3b9c-4cef-b741-8dc2a865f75b"],

Cell[BoxData[
 SqrtBox[
  RowBox[{
   RowBox[{"-", 
    SuperscriptBox["a", "2"]}], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
   SuperscriptBox["nz", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"2", " ", "a", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
     RowBox[{"b", " ", 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
        SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]], "Output",
 CellChangeTimes->{3.841400486507627*^9, 3.841400522612852*^9},
 CellLabel->
  "Out[183]=",ExpressionUUID->"3d03743f-eec5-4846-a118-ed29640942c0"],

Cell[BoxData[
 RowBox[{
  RowBox[{"4", " ", 
   SuperscriptBox["a", "2"], " ", 
   SuperscriptBox["b", "2"], " ", 
   SuperscriptBox["nz", "2"]}], "+", 
  RowBox[{"2", " ", 
   SuperscriptBox["a", "3"], " ", "b", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "3"}], "+", "nx"}], ")"}], " ", 
   SuperscriptBox["nz", "2"]}]}]], "Output",
 CellChangeTimes->{3.841400486507627*^9, 3.841400522616334*^9},
 CellLabel->
  "Out[184]=",ExpressionUUID->"ec23a759-5fdd-42a8-b4a1-bba4c0168e22"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["b", "3"], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
  SuperscriptBox["nz", "2"]}]], "Output",
 CellChangeTimes->{3.841400486507627*^9, 3.841400522619638*^9},
 CellLabel->
  "Out[185]=",ExpressionUUID->"588ea7f9-d016-43ee-ab4d-89f06ad9908a"],

Cell[BoxData[
 RowBox[{"2", " ", "a", " ", 
  RowBox[{"(", 
   RowBox[{"1", "+", "nx"}], ")"}], " ", 
  SqrtBox[
   RowBox[{
    RowBox[{"-", 
     SuperscriptBox["a", "2"]}], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
    SuperscriptBox["nz", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", " ", "a", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
      RowBox[{"b", " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
         SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}]], "Output",
 CellChangeTimes->{3.841400486507627*^9, 3.841400522622939*^9},
 CellLabel->
  "Out[186]=",ExpressionUUID->"bc93084e-4aa5-41f2-ac1c-2e10416dcda9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"symrules", " ", "=", " ", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"x", "->", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "L"}], "+", "F"}], ")"}], "/", "D"}]}], ",", 
      RowBox[{"z", "->", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"K", "-", 
          RowBox[{"4", " ", "a", " ", "J"}], "+", 
          RowBox[{"2", " ", "b", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", "F"}], "+", "H"}], 
         ")"}], "/", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"a", "-", "b"}], ")"}], " ", "nz", " ", "D"}], ")"}]}]}]}],
      "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"x", "->", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "a", " ", "L"}], "-", 
          RowBox[{"2", " ", "F"}]}], ")"}], "/", "D"}]}], ",", 
      RowBox[{"z", "->", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"K", "-", 
          RowBox[{"2", " ", "a", " ", "J"}], "-", 
          RowBox[{"b", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", "F"}], "+", "H"}], 
         ")"}], "/", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"a", "-", "b"}], ")"}], " ", "nz", " ", "D"}], ")"}]}]}]}],
      "}"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.8414005516660423`*^9, 3.841400570893338*^9}},
 CellLabel->
  "In[187]:=",ExpressionUUID->"d04275e1-bb39-4292-b2c3-5e3466eb0c3f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      FractionBox[
       RowBox[{
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"a", " ", 
            RowBox[{"(", 
             RowBox[{"a", "+", "b", "+", 
              RowBox[{"a", " ", "nx"}], "-", 
              RowBox[{"b", " ", "nx"}]}], ")"}]}], "-", 
           RowBox[{"b", " ", 
            RowBox[{"(", 
             RowBox[{"a", "+", "b"}], ")"}], " ", 
            SuperscriptBox["nz", "2"]}]}], ")"}]}], "+", 
        SqrtBox[
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox["a", "2"]}], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
          SuperscriptBox["nz", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", "a", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
            RowBox[{"b", " ", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
               SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}], "D"]}], 
     ",", 
     RowBox[{"z", "\[Rule]", 
      RowBox[{
       FractionBox["1", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "-", "b"}], ")"}], " ", "D", " ", "nz"}]], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"4", " ", 
          SuperscriptBox["a", "2"], " ", 
          SuperscriptBox["b", "2"], " ", 
          SuperscriptBox["nz", "2"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["a", "3"], " ", "b", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "3"}], "+", "nx"}], ")"}], " ", 
          SuperscriptBox["nz", "2"]}], "-", 
         RowBox[{"4", " ", "a", " ", 
          SuperscriptBox["b", "3"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
          SuperscriptBox["nz", "2"]}], "+", 
         RowBox[{"2", " ", "b", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
          SqrtBox[
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "2"]}], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
            SuperscriptBox["nz", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", "a", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
              RowBox[{"b", " ", 
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                 SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}], "+", 
         RowBox[{"2", " ", "a", " ", 
          RowBox[{"(", 
           RowBox[{"1", "+", "nx"}], ")"}], " ", 
          SqrtBox[
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "2"]}], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
            SuperscriptBox["nz", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", "a", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
              RowBox[{"b", " ", 
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                 SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}]}], 
        ")"}]}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      RowBox[{
       FractionBox["1", "D"], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "a", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"a", " ", 
             RowBox[{"(", 
              RowBox[{"a", "+", "b", "+", 
               RowBox[{"a", " ", "nx"}], "-", 
               RowBox[{"b", " ", "nx"}]}], ")"}]}], "-", 
            RowBox[{"b", " ", 
             RowBox[{"(", 
              RowBox[{"a", "+", "b"}], ")"}], " ", 
             SuperscriptBox["nz", "2"]}]}], ")"}]}], "-", 
         RowBox[{"2", " ", 
          SqrtBox[
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "2"]}], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
            SuperscriptBox["nz", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", "a", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
              RowBox[{"b", " ", 
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                 SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}]}], 
        ")"}]}]}], ",", 
     RowBox[{"z", "\[Rule]", 
      RowBox[{
       FractionBox["1", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "-", "b"}], ")"}], " ", "D", " ", "nz"}]], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"4", " ", 
          SuperscriptBox["a", "2"], " ", 
          SuperscriptBox["b", "2"], " ", 
          SuperscriptBox["nz", "2"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["a", "3"], " ", "b", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "3"}], "+", "nx"}], ")"}], " ", 
          SuperscriptBox["nz", "2"]}], "-", 
         RowBox[{"2", " ", "a", " ", 
          SuperscriptBox["b", "3"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
          SuperscriptBox["nz", "2"]}], "-", 
         RowBox[{"b", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
          SqrtBox[
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "2"]}], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
            SuperscriptBox["nz", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", "a", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
              RowBox[{"b", " ", 
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                 SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}], "+", 
         RowBox[{"2", " ", "a", " ", 
          RowBox[{"(", 
           RowBox[{"1", "+", "nx"}], ")"}], " ", 
          SqrtBox[
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "2"]}], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
            SuperscriptBox["nz", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", "a", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
              RowBox[{"b", " ", 
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                 SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}]}], 
        ")"}]}]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.841400573097226*^9},
 CellLabel->
  "Out[187]=",ExpressionUUID->"8dfccf00-540a-4ad9-a472-49179973883c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"negrules", "[", 
   RowBox[{"[", "1", "]"}], "]"}], "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"a", "->", "1.2"}], ",", 
    RowBox[{"b", "->", "1.2426297674778306"}], ",", 
    RowBox[{"nx", "->", 
     RowBox[{"-", "0.017452406437283508"}]}], ",", 
    RowBox[{"nz", "->", 
     RowBox[{"-", "0.22491679320871352"}]}]}], "}"}]}]], "Input",
 CellLabel->
  "In[188]:=",ExpressionUUID->"b63d0bbb-6a82-4348-863f-cdb105e4217d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"x", "\[Rule]", "1.1852409397915091`"}], ",", 
   RowBox[{"z", "\[Rule]", 
    RowBox[{"-", "1.6673299838563582`"}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.841400587740204*^9},
 CellLabel->
  "Out[188]=",ExpressionUUID->"fb9eb850-e726-4bce-9e89-873da2415457"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"symrules", "[", 
   RowBox[{"[", "1", "]"}], "]"}], "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"a", "->", "1.2"}], ",", 
    RowBox[{"b", "->", "1.2426297674778306"}], ",", 
    RowBox[{"nx", "->", 
     RowBox[{"-", "0.017452406437283508"}]}], ",", 
    RowBox[{"nz", "->", 
     RowBox[{"-", "0.22491679320871352"}]}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.841400595523747*^9, 3.841400597068667*^9}},
 CellLabel->
  "In[189]:=",ExpressionUUID->"60ecfcac-486e-4d4a-9145-d69673bc33a8"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"x", "\[Rule]", 
    FractionBox["5.581974761854173`", "D"]}], ",", 
   RowBox[{"z", "\[Rule]", 
    FractionBox["27.55339504542229`", "D"]}]}], "}"}]], "Output",
 CellChangeTimes->{3.841400599885476*^9},
 CellLabel->
  "Out[189]=",ExpressionUUID->"c6169ece-5c9f-48b1-8ad1-5e0380abfef4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"D", "=", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a", "+", "b", "+", 
       RowBox[{"a", " ", "nx"}], "-", 
       RowBox[{"b", " ", "nx"}]}], ")"}], "^", "2"}], "-", 
    RowBox[{"4", " ", "a", " ", "b", " ", 
     RowBox[{"nz", "^", "2"}]}]}], ")"}]}]], "Input",
 CellLabel->
  "In[190]:=",ExpressionUUID->"c6ba8c72-936c-43fd-9352-3b19c8613f22"],

Cell[BoxData[
 TemplateBox[{
  "Set", "wrsym", "\"Symbol \\!\\(\\*RowBox[{\\\"D\\\"}]\\) is Protected.\"", 
   2, 190, 23, 31665523190856943798, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.841400624441905*^9},
 CellLabel->
  "During evaluation of \
In[190]:=",ExpressionUUID->"9d437447-d443-488f-9372-2d10735b657b"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"a", "+", "b", "+", 
     RowBox[{"a", " ", "nx"}], "-", 
     RowBox[{"b", " ", "nx"}]}], ")"}], "2"], "-", 
  RowBox[{"4", " ", "a", " ", "b", " ", 
   SuperscriptBox["nz", "2"]}]}]], "Output",
 CellChangeTimes->{3.841400624455405*^9},
 CellLabel->
  "Out[190]=",ExpressionUUID->"4c9b72e3-fe99-4f12-b91b-993d07d08205"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"M", "=", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a", "+", "b", "+", 
       RowBox[{"a", " ", "nx"}], "-", 
       RowBox[{"b", " ", "nx"}]}], ")"}], "^", "2"}], "-", 
    RowBox[{"4", " ", "a", " ", "b", " ", 
     RowBox[{"nz", "^", "2"}]}]}], ")"}]}]], "Input",
 CellChangeTimes->{{3.8414006513377047`*^9, 3.8414006544607487`*^9}},
 CellLabel->
  "In[191]:=",ExpressionUUID->"d234d8d9-cc57-440b-96cc-3303d7f6e084"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"a", "+", "b", "+", 
     RowBox[{"a", " ", "nx"}], "-", 
     RowBox[{"b", " ", "nx"}]}], ")"}], "2"], "-", 
  RowBox[{"4", " ", "a", " ", "b", " ", 
   SuperscriptBox["nz", "2"]}]}]], "Output",
 CellChangeTimes->{3.841400654840836*^9},
 CellLabel->
  "Out[191]=",ExpressionUUID->"3c8077d3-99ec-4b88-bedb-8933cd57ece7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"symrules", " ", "=", " ", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"x", "->", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "L"}], "+", "F"}], ")"}], "/", "M"}]}], ",", 
      RowBox[{"z", "->", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"K", "-", 
          RowBox[{"4", " ", "a", " ", "J"}], "+", 
          RowBox[{"2", " ", "b", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", "F"}], "+", "H"}], 
         ")"}], "/", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"a", "-", "b"}], ")"}], " ", "nz", " ", "M"}], ")"}]}]}]}],
      "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"x", "->", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "a", " ", "L"}], "-", 
          RowBox[{"2", " ", "F"}]}], ")"}], "/", "M"}]}], ",", 
      RowBox[{"z", "->", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"K", "-", 
          RowBox[{"2", " ", "a", " ", "J"}], "-", 
          RowBox[{"b", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", "F"}], "+", "H"}], 
         ")"}], "/", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"a", "-", "b"}], ")"}], " ", "nz", " ", "M"}], ")"}]}]}]}],
      "}"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.8414006710826817`*^9, 3.841400675191131*^9}},
 CellLabel->
  "In[192]:=",ExpressionUUID->"b132f167-ce6b-4e7f-bfbd-de87059485e9"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      FractionBox[
       RowBox[{
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"a", " ", 
            RowBox[{"(", 
             RowBox[{"a", "+", "b", "+", 
              RowBox[{"a", " ", "nx"}], "-", 
              RowBox[{"b", " ", "nx"}]}], ")"}]}], "-", 
           RowBox[{"b", " ", 
            RowBox[{"(", 
             RowBox[{"a", "+", "b"}], ")"}], " ", 
            SuperscriptBox["nz", "2"]}]}], ")"}]}], "+", 
        SqrtBox[
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox["a", "2"]}], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
          SuperscriptBox["nz", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", "a", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
            RowBox[{"b", " ", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
               SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}], 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"a", "+", "b", "+", 
           RowBox[{"a", " ", "nx"}], "-", 
           RowBox[{"b", " ", "nx"}]}], ")"}], "2"], "-", 
        RowBox[{"4", " ", "a", " ", "b", " ", 
         SuperscriptBox["nz", "2"]}]}]]}], ",", 
     RowBox[{"z", "\[Rule]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"4", " ", 
          SuperscriptBox["a", "2"], " ", 
          SuperscriptBox["b", "2"], " ", 
          SuperscriptBox["nz", "2"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["a", "3"], " ", "b", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "3"}], "+", "nx"}], ")"}], " ", 
          SuperscriptBox["nz", "2"]}], "-", 
         RowBox[{"4", " ", "a", " ", 
          SuperscriptBox["b", "3"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
          SuperscriptBox["nz", "2"]}], "+", 
         RowBox[{"2", " ", "b", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
          SqrtBox[
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "2"]}], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
            SuperscriptBox["nz", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", "a", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
              RowBox[{"b", " ", 
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                 SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}], "+", 
         RowBox[{"2", " ", "a", " ", 
          RowBox[{"(", 
           RowBox[{"1", "+", "nx"}], ")"}], " ", 
          SqrtBox[
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "2"]}], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
            SuperscriptBox["nz", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", "a", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
              RowBox[{"b", " ", 
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                 SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}]}], ")"}], 
       "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "-", "b"}], ")"}], " ", "nz", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"a", "+", "b", "+", 
              RowBox[{"a", " ", "nx"}], "-", 
              RowBox[{"b", " ", "nx"}]}], ")"}], "2"], "-", 
           RowBox[{"4", " ", "a", " ", "b", " ", 
            SuperscriptBox["nz", "2"]}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "a", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"a", " ", 
             RowBox[{"(", 
              RowBox[{"a", "+", "b", "+", 
               RowBox[{"a", " ", "nx"}], "-", 
               RowBox[{"b", " ", "nx"}]}], ")"}]}], "-", 
            RowBox[{"b", " ", 
             RowBox[{"(", 
              RowBox[{"a", "+", "b"}], ")"}], " ", 
             SuperscriptBox["nz", "2"]}]}], ")"}]}], "-", 
         RowBox[{"2", " ", 
          SqrtBox[
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "2"]}], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
            SuperscriptBox["nz", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", "a", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
              RowBox[{"b", " ", 
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                 SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}]}], ")"}], 
       "/", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"a", "+", "b", "+", 
            RowBox[{"a", " ", "nx"}], "-", 
            RowBox[{"b", " ", "nx"}]}], ")"}], "2"], "-", 
         RowBox[{"4", " ", "a", " ", "b", " ", 
          SuperscriptBox["nz", "2"]}]}], ")"}]}]}], ",", 
     RowBox[{"z", "\[Rule]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"4", " ", 
          SuperscriptBox["a", "2"], " ", 
          SuperscriptBox["b", "2"], " ", 
          SuperscriptBox["nz", "2"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["a", "3"], " ", "b", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "3"}], "+", "nx"}], ")"}], " ", 
          SuperscriptBox["nz", "2"]}], "-", 
         RowBox[{"2", " ", "a", " ", 
          SuperscriptBox["b", "3"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
          SuperscriptBox["nz", "2"]}], "-", 
         RowBox[{"b", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
          SqrtBox[
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "2"]}], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
            SuperscriptBox["nz", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", "a", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
              RowBox[{"b", " ", 
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                 SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}], "+", 
         RowBox[{"2", " ", "a", " ", 
          RowBox[{"(", 
           RowBox[{"1", "+", "nx"}], ")"}], " ", 
          SqrtBox[
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "2"]}], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
            SuperscriptBox["nz", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", "a", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
              RowBox[{"b", " ", 
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                 SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}]}], ")"}], 
       "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "-", "b"}], ")"}], " ", "nz", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"a", "+", "b", "+", 
              RowBox[{"a", " ", "nx"}], "-", 
              RowBox[{"b", " ", "nx"}]}], ")"}], "2"], "-", 
           RowBox[{"4", " ", "a", " ", "b", " ", 
            SuperscriptBox["nz", "2"]}]}], ")"}]}], ")"}]}]}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.841400675776391*^9},
 CellLabel->
  "Out[192]=",ExpressionUUID->"663d617a-c41e-4a66-ab54-7a882eff9166"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"symrules", "[", 
   RowBox[{"[", "2", "]"}], "]"}], "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"a", "->", "1.2"}], ",", 
    RowBox[{"b", "->", "1.2426297674778306"}], ",", 
    RowBox[{"nx", "->", 
     RowBox[{"-", "0.017452406437283508"}]}], ",", 
    RowBox[{"nz", "->", 
     RowBox[{"-", "0.22491679320871352"}]}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.8414007124823303`*^9, 3.841400712646165*^9}},
 CellLabel->
  "In[194]:=",ExpressionUUID->"14c4bba2-dcc6-4388-82b9-9fb3a04d5b14"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"x", "\[Rule]", "1.1676181198426308`"}], ",", 
   RowBox[{"z", "\[Rule]", "2.242592925337992`"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.841400685042967*^9, 3.841400714295949*^9}},
 CellLabel->
  "Out[194]=",ExpressionUUID->"207d49e1-4d18-46d9-b5e2-d51d9c5da760"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"negrules1", " ", "=", " ", 
  RowBox[{"Replace", "[", 
   RowBox[{"negrules", " ", ",", " ", 
    RowBox[{"{", " ", 
     RowBox[{"M", " ", "->", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "+", "b", "+", 
           RowBox[{"a", " ", "nx"}], "-", 
           RowBox[{"b", " ", "nx"}]}], ")"}], "^", "2"}], "-", 
        RowBox[{"4", " ", "a", " ", "b", " ", 
         RowBox[{"nz", "^", "2"}]}]}], ")"}]}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.841401153176852*^9, 3.841401222329187*^9}},
 CellLabel->
  "In[195]:=",ExpressionUUID->"647fa44d-e7ad-477e-962e-db0e8bf4d6c5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"a", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"a", " ", 
               RowBox[{"(", 
                RowBox[{"a", "+", "b", "+", 
                 RowBox[{"a", " ", "nx"}], "-", 
                 RowBox[{"b", " ", "nx"}]}], ")"}]}], "-", 
              RowBox[{"b", " ", 
               RowBox[{"(", 
                RowBox[{"a", "+", "b"}], ")"}], " ", 
               SuperscriptBox["nz", "2"]}]}], ")"}]}], "+", 
           SqrtBox[
            RowBox[{
             RowBox[{"-", 
              SuperscriptBox["a", "2"]}], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
             SuperscriptBox["nz", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", "a", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
               RowBox[{"b", " ", 
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                  SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}], ")"}]}],
         ")"}], "/", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"a", "+", "b", "+", 
            RowBox[{"a", " ", "nx"}], "-", 
            RowBox[{"b", " ", "nx"}]}], ")"}], "2"], "-", 
         RowBox[{"4", " ", "a", " ", "b", " ", 
          SuperscriptBox["nz", "2"]}]}], ")"}]}]}], ",", 
     RowBox[{"z", "\[Rule]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"4", " ", 
          SuperscriptBox["a", "2"], " ", 
          SuperscriptBox["b", "2"], " ", 
          SuperscriptBox["nz", "2"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["a", "3"], " ", "b", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "3"}], "+", "nx"}], ")"}], " ", 
          SuperscriptBox["nz", "2"]}], "+", 
         RowBox[{"2", " ", "b", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
          SqrtBox[
           RowBox[{
            SuperscriptBox["a", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
            SuperscriptBox["nz", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], " ", "a", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "+", 
              RowBox[{"b", " ", 
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                 SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}], "-", 
         RowBox[{"2", " ", "a", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox["b", "3"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
             SuperscriptBox["nz", "2"]}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "+", "nx"}], ")"}], " ", 
             SqrtBox[
              RowBox[{
               RowBox[{"-", 
                SuperscriptBox["a", "2"]}], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
               SuperscriptBox["nz", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", "a", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
                 RowBox[{"b", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                    SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}]}], 
           ")"}]}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "-", "b"}], ")"}], " ", "nz", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"a", "+", "b", "+", 
              RowBox[{"a", " ", "nx"}], "-", 
              RowBox[{"b", " ", "nx"}]}], ")"}], "2"], "-", 
           RowBox[{"4", " ", "a", " ", "b", " ", 
            SuperscriptBox["nz", "2"]}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "a", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"a", " ", 
             RowBox[{"(", 
              RowBox[{"a", "+", "b", "+", 
               RowBox[{"a", " ", "nx"}], "-", 
               RowBox[{"b", " ", "nx"}]}], ")"}]}], "-", 
            RowBox[{"b", " ", 
             RowBox[{"(", 
              RowBox[{"a", "+", "b"}], ")"}], " ", 
             SuperscriptBox["nz", "2"]}]}], ")"}]}], "-", 
         RowBox[{"2", " ", 
          SqrtBox[
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "2"]}], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
            SuperscriptBox["nz", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", "a", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
              RowBox[{"b", " ", 
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                 SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}]}], ")"}], 
       "/", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"a", "+", "b", "+", 
            RowBox[{"a", " ", "nx"}], "-", 
            RowBox[{"b", " ", "nx"}]}], ")"}], "2"], "-", 
         RowBox[{"4", " ", "a", " ", "b", " ", 
          SuperscriptBox["nz", "2"]}]}], ")"}]}]}], ",", 
     RowBox[{"z", "\[Rule]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", 
            SuperscriptBox["a", "2"], " ", 
            SuperscriptBox["b", "2"], " ", 
            SuperscriptBox["nz", "2"]}], "+", 
           RowBox[{
            SuperscriptBox["a", "3"], " ", "b", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "3"}], "+", "nx"}], ")"}], " ", 
            SuperscriptBox["nz", "2"]}], "-", 
           RowBox[{"a", " ", 
            SuperscriptBox["b", "3"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
            SuperscriptBox["nz", "2"]}], "+", 
           RowBox[{"a", " ", 
            RowBox[{"(", 
             RowBox[{"1", "+", "nx"}], ")"}], " ", 
            SqrtBox[
             RowBox[{
              RowBox[{"-", 
               SuperscriptBox["a", "2"]}], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
              SuperscriptBox["nz", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", "a", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
                RowBox[{"b", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                   SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}], "-", 
           RowBox[{"b", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
            SqrtBox[
             RowBox[{
              SuperscriptBox["a", "2"], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
              SuperscriptBox["nz", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "2"}], " ", "a", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "+", 
                RowBox[{"b", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                   SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}]}], 
          ")"}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "-", "b"}], ")"}], " ", "nz", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"a", "+", "b", "+", 
              RowBox[{"a", " ", "nx"}], "-", 
              RowBox[{"b", " ", "nx"}]}], ")"}], "2"], "-", 
           RowBox[{"4", " ", "a", " ", "b", " ", 
            SuperscriptBox["nz", "2"]}]}], ")"}]}], ")"}]}]}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.841401223287648*^9},
 CellLabel->
  "Out[195]=",ExpressionUUID->"b20c89f1-b1fb-4abe-89f8-ab8ea07089cc"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "a", "]"}]], "Input",
 CellChangeTimes->{{3.8414012486882277`*^9, 3.8414012577137547`*^9}},
 CellLabel->
  "In[196]:=",ExpressionUUID->"493a4f87-c343-4f66-b19f-bfb537d76f20"],

Cell[BoxData[
 RowBox[{"Clear", "[", "b", "]"}]], "Input",
 CellChangeTimes->{{3.841401258931232*^9, 3.8414012606691713`*^9}},
 CellLabel->
  "In[197]:=",ExpressionUUID->"f4fb7235-9c93-4a13-8465-94d80ea0c676"],

Cell[BoxData[
 RowBox[{"Clear", "[", "nx", "]"}]], "Input",
 CellChangeTimes->{{3.841401262322233*^9, 3.8414012654841347`*^9}},
 CellLabel->
  "In[198]:=",ExpressionUUID->"d34ae737-413a-413f-8bdf-f3ca1f337c65"],

Cell[BoxData[
 RowBox[{"Clear", "[", "nz", "]"}]], "Input",
 CellChangeTimes->{{3.84140126649196*^9, 3.841401277784378*^9}},
 CellLabel->
  "In[199]:=",ExpressionUUID->"be79a367-46f8-43c3-a9c7-35e5f274832f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"negrules1", " ", "=", " ", 
  RowBox[{"ReplaceAll", "[", 
   RowBox[{"negrules", " ", ",", " ", 
    RowBox[{"{", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "+", "b", "+", 
           RowBox[{"a", " ", "nx"}], "-", 
           RowBox[{"b", " ", "nx"}]}], ")"}], "^", "2"}], "-", 
        RowBox[{"4", " ", "a", " ", "b", " ", 
         RowBox[{"nz", "^", "2"}]}]}], ")"}], " ", "->", " ", "M"}], "}"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.8414013792923403`*^9, 3.841401392702098*^9}},
 CellLabel->
  "In[202]:=",ExpressionUUID->"3559da47-3477-4c7a-b274-0fe138252051"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"a", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"a", " ", 
               RowBox[{"(", 
                RowBox[{"a", "+", "b", "+", 
                 RowBox[{"a", " ", "nx"}], "-", 
                 RowBox[{"b", " ", "nx"}]}], ")"}]}], "-", 
              RowBox[{"b", " ", 
               RowBox[{"(", 
                RowBox[{"a", "+", "b"}], ")"}], " ", 
               SuperscriptBox["nz", "2"]}]}], ")"}]}], "+", 
           SqrtBox[
            RowBox[{
             RowBox[{"-", 
              SuperscriptBox["a", "2"]}], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
             SuperscriptBox["nz", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", "a", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
               RowBox[{"b", " ", 
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                  SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}], ")"}]}],
         ")"}], "/", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"a", "+", "b", "+", 
            RowBox[{"a", " ", "nx"}], "-", 
            RowBox[{"b", " ", "nx"}]}], ")"}], "2"], "-", 
         RowBox[{"4", " ", "a", " ", "b", " ", 
          SuperscriptBox["nz", "2"]}]}], ")"}]}]}], ",", 
     RowBox[{"z", "\[Rule]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"4", " ", 
          SuperscriptBox["a", "2"], " ", 
          SuperscriptBox["b", "2"], " ", 
          SuperscriptBox["nz", "2"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["a", "3"], " ", "b", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "3"}], "+", "nx"}], ")"}], " ", 
          SuperscriptBox["nz", "2"]}], "+", 
         RowBox[{"2", " ", "b", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
          SqrtBox[
           RowBox[{
            SuperscriptBox["a", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
            SuperscriptBox["nz", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], " ", "a", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "+", 
              RowBox[{"b", " ", 
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                 SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}], "-", 
         RowBox[{"2", " ", "a", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox["b", "3"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
             SuperscriptBox["nz", "2"]}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "+", "nx"}], ")"}], " ", 
             SqrtBox[
              RowBox[{
               RowBox[{"-", 
                SuperscriptBox["a", "2"]}], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
               SuperscriptBox["nz", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", "a", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
                 RowBox[{"b", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                    SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}]}], 
           ")"}]}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "-", "b"}], ")"}], " ", "nz", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"a", "+", "b", "+", 
              RowBox[{"a", " ", "nx"}], "-", 
              RowBox[{"b", " ", "nx"}]}], ")"}], "2"], "-", 
           RowBox[{"4", " ", "a", " ", "b", " ", 
            SuperscriptBox["nz", "2"]}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "a", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"a", " ", 
             RowBox[{"(", 
              RowBox[{"a", "+", "b", "+", 
               RowBox[{"a", " ", "nx"}], "-", 
               RowBox[{"b", " ", "nx"}]}], ")"}]}], "-", 
            RowBox[{"b", " ", 
             RowBox[{"(", 
              RowBox[{"a", "+", "b"}], ")"}], " ", 
             SuperscriptBox["nz", "2"]}]}], ")"}]}], "-", 
         RowBox[{"2", " ", 
          SqrtBox[
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "2"]}], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
            SuperscriptBox["nz", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", "a", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
              RowBox[{"b", " ", 
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                 SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}]}], ")"}], 
       "/", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"a", "+", "b", "+", 
            RowBox[{"a", " ", "nx"}], "-", 
            RowBox[{"b", " ", "nx"}]}], ")"}], "2"], "-", 
         RowBox[{"4", " ", "a", " ", "b", " ", 
          SuperscriptBox["nz", "2"]}]}], ")"}]}]}], ",", 
     RowBox[{"z", "\[Rule]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", 
            SuperscriptBox["a", "2"], " ", 
            SuperscriptBox["b", "2"], " ", 
            SuperscriptBox["nz", "2"]}], "+", 
           RowBox[{
            SuperscriptBox["a", "3"], " ", "b", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "3"}], "+", "nx"}], ")"}], " ", 
            SuperscriptBox["nz", "2"]}], "-", 
           RowBox[{"a", " ", 
            SuperscriptBox["b", "3"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
            SuperscriptBox["nz", "2"]}], "+", 
           RowBox[{"a", " ", 
            RowBox[{"(", 
             RowBox[{"1", "+", "nx"}], ")"}], " ", 
            SqrtBox[
             RowBox[{
              RowBox[{"-", 
               SuperscriptBox["a", "2"]}], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
              SuperscriptBox["nz", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", "a", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
                RowBox[{"b", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                   SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}], "-", 
           RowBox[{"b", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
            SqrtBox[
             RowBox[{
              SuperscriptBox["a", "2"], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
              SuperscriptBox["nz", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "2"}], " ", "a", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "+", 
                RowBox[{"b", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                   SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}]}], 
          ")"}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "-", "b"}], ")"}], " ", "nz", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"a", "+", "b", "+", 
              RowBox[{"a", " ", "nx"}], "-", 
              RowBox[{"b", " ", "nx"}]}], ")"}], "2"], "-", 
           RowBox[{"4", " ", "a", " ", "b", " ", 
            SuperscriptBox["nz", "2"]}]}], ")"}]}], ")"}]}]}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.8414012882086477`*^9, {3.841401387981358*^9, 3.841401395840171*^9}},
 CellLabel->
  "Out[202]=",ExpressionUUID->"56e56b81-d030-43d3-a679-2e94d837f00f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Replace", " ", 
  RowBox[{"All", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"a", "^", "2"}], " ", "+", " ", 
     RowBox[{"b", "^", "2"}], " ", "+", " ", 
     RowBox[{"c", "^", "2"}]}], ",", " ", 
    RowBox[{"{", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"b", "^", "2"}], " ", "+", " ", 
       RowBox[{"c", "^", "2"}]}], " ", "->", " ", "M"}], "}"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.8414014037295713`*^9, 3.8414014436127863`*^9}},
 CellLabel->
  "In[206]:=",ExpressionUUID->"9a057a3a-353c-40e9-afd0-e883fd7b3d99"],

Cell[BoxData[
 RowBox[{"Replace", " ", 
  RowBox[{"All", "[", 
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "+", 
     SuperscriptBox["b", "2"], "+", 
     SuperscriptBox["c", "2"]}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       SuperscriptBox["b", "2"], "+", 
       SuperscriptBox["c", "2"]}], "\[Rule]", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", "b", "+", 
          RowBox[{"a", " ", "nx"}], "-", 
          RowBox[{"b", " ", "nx"}]}], ")"}], "2"], "-", 
       RowBox[{"4", " ", "a", " ", "b", " ", 
        SuperscriptBox["nz", "2"]}]}]}], "}"}]}], "]"}]}]], "Output",
 CellChangeTimes->{{3.841401444015479*^9, 3.841401469038888*^9}},
 CellLabel->
  "Out[206]=",ExpressionUUID->"eecaa3ac-b544-41dd-b59a-2ed601abd1dc"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "c", "]"}]], "Input",
 CellChangeTimes->{{3.841401457190311*^9, 3.841401460188236*^9}},
 CellLabel->
  "In[204]:=",ExpressionUUID->"d4459e59-583f-4c81-aa34-e900c39eb4fe"],

Cell[CellGroupData[{

Cell[BoxData["M"], "Input",
 CellChangeTimes->{3.841401548946157*^9},
 CellLabel->
  "In[207]:=",ExpressionUUID->"7346854a-f7d9-47d5-bcad-08583a74119d"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"a", "+", "b", "+", 
     RowBox[{"a", " ", "nx"}], "-", 
     RowBox[{"b", " ", "nx"}]}], ")"}], "2"], "-", 
  RowBox[{"4", " ", "a", " ", "b", " ", 
   SuperscriptBox["nz", "2"]}]}]], "Output",
 CellChangeTimes->{3.841401549796277*^9},
 CellLabel->
  "Out[207]=",ExpressionUUID->"f8675f30-1687-421a-afe2-31e5808447a3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Equal", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"a", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"a", " ", 
            RowBox[{"(", 
             RowBox[{"a", "+", "b", "+", 
              RowBox[{"a", " ", "nx"}], "-", 
              RowBox[{"b", " ", "nx"}]}], ")"}]}], "-", 
           RowBox[{"b", " ", 
            RowBox[{"(", 
             RowBox[{"a", "+", "b"}], ")"}], " ", 
            SuperscriptBox["nz", "2"]}]}], ")"}]}], "+", 
        SqrtBox[
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox["a", "2"]}], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
          SuperscriptBox["nz", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", "a", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
            RowBox[{"b", " ", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
               SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}], ")"}]}], 
     ")"}], "/", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"a", "+", "b", "+", 
         RowBox[{"a", " ", "nx"}], "-", 
         RowBox[{"b", " ", "nx"}]}], ")"}], "2"], "-", 
      RowBox[{"4", " ", "a", " ", "b", " ", 
       SuperscriptBox["nz", "2"]}]}], ")"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"a", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"a", " ", 
            RowBox[{"(", 
             RowBox[{"a", "+", "b", "+", 
              RowBox[{"a", " ", "nx"}], "-", 
              RowBox[{"b", " ", "nx"}]}], ")"}]}], "-", 
           RowBox[{"b", " ", 
            RowBox[{"(", 
             RowBox[{"a", "+", "b"}], ")"}], " ", 
            SuperscriptBox["nz", "2"]}]}], ")"}]}], "+", 
        SqrtBox[
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox["a", "2"]}], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
          SuperscriptBox["nz", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", "a", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
            RowBox[{"b", " ", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
               SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}], ")"}]}], 
     ")"}], "/", "M"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.841401561095911*^9, 3.841401598867696*^9}},
 CellLabel->
  "In[208]:=",ExpressionUUID->"3fcadb75-a85d-44b6-8176-70e561683cee"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.8414016018924847`*^9},
 CellLabel->
  "Out[208]=",ExpressionUUID->"3cec6c30-0fd4-4f5d-aded-bce217e24cba"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"negrules2", " ", "=", " ", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"x", "\[Rule]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"a", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"a", " ", 
                RowBox[{"(", 
                 RowBox[{"a", "+", "b", "+", 
                  RowBox[{"a", " ", "nx"}], "-", 
                  RowBox[{"b", " ", "nx"}]}], ")"}]}], "-", 
               RowBox[{"b", " ", 
                RowBox[{"(", 
                 RowBox[{"a", "+", "b"}], ")"}], " ", 
                SuperscriptBox["nz", "2"]}]}], ")"}]}], "+", 
            SqrtBox[
             RowBox[{
              RowBox[{"-", 
               SuperscriptBox["a", "2"]}], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
              SuperscriptBox["nz", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", "a", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
                RowBox[{"b", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                   SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}], 
           ")"}]}], ")"}], "/", "M"}]}], ",", 
      RowBox[{"z", "\[Rule]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"4", " ", 
           SuperscriptBox["a", "2"], " ", 
           SuperscriptBox["b", "2"], " ", 
           SuperscriptBox["nz", "2"]}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox["a", "3"], " ", "b", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "3"}], "+", "nx"}], ")"}], " ", 
           SuperscriptBox["nz", "2"]}], "+", 
          RowBox[{"2", " ", "b", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
           SqrtBox[
            RowBox[{
             SuperscriptBox["a", "2"], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
             SuperscriptBox["nz", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "2"}], " ", "a", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "+", 
               RowBox[{"b", " ", 
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                  SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}], "-", 
          RowBox[{"2", " ", "a", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox["b", "3"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
              SuperscriptBox["nz", "2"]}], "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"1", "+", "nx"}], ")"}], " ", 
              SqrtBox[
               RowBox[{
                RowBox[{"-", 
                 SuperscriptBox["a", "2"]}], " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
                SuperscriptBox["nz", "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"2", " ", "a", " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
                  RowBox[{"b", " ", 
                   RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                    SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}]}], 
            ")"}]}]}], ")"}], "/", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"a", "-", "b"}], ")"}], " ", "nz", " ", "M"}], ")"}]}]}]}],
      "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"x", "\[Rule]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "a", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"a", " ", 
              RowBox[{"(", 
               RowBox[{"a", "+", "b", "+", 
                RowBox[{"a", " ", "nx"}], "-", 
                RowBox[{"b", " ", "nx"}]}], ")"}]}], "-", 
             RowBox[{"b", " ", 
              RowBox[{"(", 
               RowBox[{"a", "+", "b"}], ")"}], " ", 
              SuperscriptBox["nz", "2"]}]}], ")"}]}], "-", 
          RowBox[{"2", " ", 
           SqrtBox[
            RowBox[{
             RowBox[{"-", 
              SuperscriptBox["a", "2"]}], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
             SuperscriptBox["nz", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", "a", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
               RowBox[{"b", " ", 
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                  SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}]}], ")"}],
         "/", "M"}]}], ",", 
      RowBox[{"z", "\[Rule]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             SuperscriptBox["a", "2"], " ", 
             SuperscriptBox["b", "2"], " ", 
             SuperscriptBox["nz", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["a", "3"], " ", "b", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "3"}], "+", "nx"}], ")"}], " ", 
             SuperscriptBox["nz", "2"]}], "-", 
            RowBox[{"a", " ", 
             SuperscriptBox["b", "3"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
             SuperscriptBox["nz", "2"]}], "+", 
            RowBox[{"a", " ", 
             RowBox[{"(", 
              RowBox[{"1", "+", "nx"}], ")"}], " ", 
             SqrtBox[
              RowBox[{
               RowBox[{"-", 
                SuperscriptBox["a", "2"]}], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
               SuperscriptBox["nz", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", "a", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
                 RowBox[{"b", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                    SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}], "-", 
            RowBox[{"b", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
             SqrtBox[
              RowBox[{
               SuperscriptBox["a", "2"], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
               SuperscriptBox["nz", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "2"}], " ", "a", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "+", 
                 RowBox[{"b", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                    SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}]}], 
           ")"}]}], ")"}], "/", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"a", "-", "b"}], ")"}], " ", "nz", " ", "M"}], ")"}]}]}]}],
      "}"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.841401645923596*^9, 3.841401663969624*^9}, {
  3.841401704638568*^9, 3.8414017201588383`*^9}},
 CellLabel->
  "In[212]:=",ExpressionUUID->"37eed0a7-1425-434a-8bc7-9670886d0665"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      RowBox[{
       FractionBox["1", "M"], 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"a", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"a", " ", 
              RowBox[{"(", 
               RowBox[{"a", "+", "b", "+", 
                RowBox[{"a", " ", "nx"}], "-", 
                RowBox[{"b", " ", "nx"}]}], ")"}]}], "-", 
             RowBox[{"b", " ", 
              RowBox[{"(", 
               RowBox[{"a", "+", "b"}], ")"}], " ", 
              SuperscriptBox["nz", "2"]}]}], ")"}]}], "+", 
          SqrtBox[
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "2"]}], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
            SuperscriptBox["nz", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", "a", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
              RowBox[{"b", " ", 
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                 SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}], 
         ")"}]}]}]}], ",", 
     RowBox[{"z", "\[Rule]", 
      RowBox[{
       FractionBox["1", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "-", "b"}], ")"}], " ", "M", " ", "nz"}]], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"4", " ", 
          SuperscriptBox["a", "2"], " ", 
          SuperscriptBox["b", "2"], " ", 
          SuperscriptBox["nz", "2"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["a", "3"], " ", "b", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "3"}], "+", "nx"}], ")"}], " ", 
          SuperscriptBox["nz", "2"]}], "+", 
         RowBox[{"2", " ", "b", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
          SqrtBox[
           RowBox[{
            SuperscriptBox["a", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
            SuperscriptBox["nz", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], " ", "a", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "+", 
              RowBox[{"b", " ", 
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                 SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}], "-", 
         RowBox[{"2", " ", "a", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox["b", "3"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
             SuperscriptBox["nz", "2"]}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "+", "nx"}], ")"}], " ", 
             SqrtBox[
              RowBox[{
               RowBox[{"-", 
                SuperscriptBox["a", "2"]}], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
               SuperscriptBox["nz", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", "a", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
                 RowBox[{"b", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                    SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}]}], 
           ")"}]}]}], ")"}]}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      RowBox[{
       FractionBox["1", "M"], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "a", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"a", " ", 
             RowBox[{"(", 
              RowBox[{"a", "+", "b", "+", 
               RowBox[{"a", " ", "nx"}], "-", 
               RowBox[{"b", " ", "nx"}]}], ")"}]}], "-", 
            RowBox[{"b", " ", 
             RowBox[{"(", 
              RowBox[{"a", "+", "b"}], ")"}], " ", 
             SuperscriptBox["nz", "2"]}]}], ")"}]}], "-", 
         RowBox[{"2", " ", 
          SqrtBox[
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "2"]}], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
            SuperscriptBox["nz", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", "a", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
              RowBox[{"b", " ", 
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                 SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}]}], 
        ")"}]}]}], ",", 
     RowBox[{"z", "\[Rule]", 
      RowBox[{
       FractionBox["1", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "-", "b"}], ")"}], " ", "M", " ", "nz"}]], 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", 
           SuperscriptBox["a", "2"], " ", 
           SuperscriptBox["b", "2"], " ", 
           SuperscriptBox["nz", "2"]}], "+", 
          RowBox[{
           SuperscriptBox["a", "3"], " ", "b", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "3"}], "+", "nx"}], ")"}], " ", 
           SuperscriptBox["nz", "2"]}], "-", 
          RowBox[{"a", " ", 
           SuperscriptBox["b", "3"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
           SuperscriptBox["nz", "2"]}], "+", 
          RowBox[{"a", " ", 
           RowBox[{"(", 
            RowBox[{"1", "+", "nx"}], ")"}], " ", 
           SqrtBox[
            RowBox[{
             RowBox[{"-", 
              SuperscriptBox["a", "2"]}], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
             SuperscriptBox["nz", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", "a", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
               RowBox[{"b", " ", 
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                  SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}], "-", 
          RowBox[{"b", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
           SqrtBox[
            RowBox[{
             SuperscriptBox["a", "2"], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
             SuperscriptBox["nz", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "2"}], " ", "a", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "+", 
               RowBox[{"b", " ", 
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                  SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}]}], 
         ")"}]}]}]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.841401727666651*^9, 3.8414019724904623`*^9},
 CellLabel->
  "Out[212]=",ExpressionUUID->"ce59195a-fac6-4a84-b382-99f0f09c0d2b"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.841401735416193*^9, 
  3.841401755168648*^9}},ExpressionUUID->"a1cc09be-0766-4458-9aba-\
c351cead2f25"],

Cell[CellGroupData[{

Cell[BoxData["negrules2"], "Input",
 CellLabel->
  "In[210]:=",ExpressionUUID->"eab21b0d-ef1b-4336-9023-5a7c6c3006c9"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"a", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"a", " ", 
               RowBox[{"(", 
                RowBox[{"a", "+", "b", "+", 
                 RowBox[{"a", " ", "nx"}], "-", 
                 RowBox[{"b", " ", "nx"}]}], ")"}]}], "-", 
              RowBox[{"b", " ", 
               RowBox[{"(", 
                RowBox[{"a", "+", "b"}], ")"}], " ", 
               SuperscriptBox["nz", "2"]}]}], ")"}]}], "+", 
           SqrtBox[
            RowBox[{
             RowBox[{"-", 
              SuperscriptBox["a", "2"]}], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
             SuperscriptBox["nz", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", "a", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
               RowBox[{"b", " ", 
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                  SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}], ")"}]}],
         ")"}], "/", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"a", "+", "b", "+", 
            RowBox[{"a", " ", "nx"}], "-", 
            RowBox[{"b", " ", "nx"}]}], ")"}], "2"], "-", 
         RowBox[{"4", " ", "a", " ", "b", " ", 
          SuperscriptBox["nz", "2"]}]}], ")"}]}]}], ",", 
     RowBox[{"z", "\[Rule]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"4", " ", 
          SuperscriptBox["a", "2"], " ", 
          SuperscriptBox["b", "2"], " ", 
          SuperscriptBox["nz", "2"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["a", "3"], " ", "b", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "3"}], "+", "nx"}], ")"}], " ", 
          SuperscriptBox["nz", "2"]}], "+", 
         RowBox[{"2", " ", "b", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
          SqrtBox[
           RowBox[{
            SuperscriptBox["a", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
            SuperscriptBox["nz", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], " ", "a", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "+", 
              RowBox[{"b", " ", 
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                 SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}], "-", 
         RowBox[{"2", " ", "a", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox["b", "3"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
             SuperscriptBox["nz", "2"]}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "+", "nx"}], ")"}], " ", 
             SqrtBox[
              RowBox[{
               RowBox[{"-", 
                SuperscriptBox["a", "2"]}], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
               SuperscriptBox["nz", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", "a", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
                 RowBox[{"b", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                    SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}]}], 
           ")"}]}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "-", "b"}], ")"}], " ", "nz", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"a", "+", "b", "+", 
              RowBox[{"a", " ", "nx"}], "-", 
              RowBox[{"b", " ", "nx"}]}], ")"}], "2"], "-", 
           RowBox[{"4", " ", "a", " ", "b", " ", 
            SuperscriptBox["nz", "2"]}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "a", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"a", " ", 
             RowBox[{"(", 
              RowBox[{"a", "+", "b", "+", 
               RowBox[{"a", " ", "nx"}], "-", 
               RowBox[{"b", " ", "nx"}]}], ")"}]}], "-", 
            RowBox[{"b", " ", 
             RowBox[{"(", 
              RowBox[{"a", "+", "b"}], ")"}], " ", 
             SuperscriptBox["nz", "2"]}]}], ")"}]}], "-", 
         RowBox[{"2", " ", 
          SqrtBox[
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "2"]}], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
            SuperscriptBox["nz", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", "a", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
              RowBox[{"b", " ", 
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                 SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}]}], ")"}], 
       "/", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"a", "+", "b", "+", 
            RowBox[{"a", " ", "nx"}], "-", 
            RowBox[{"b", " ", "nx"}]}], ")"}], "2"], "-", 
         RowBox[{"4", " ", "a", " ", "b", " ", 
          SuperscriptBox["nz", "2"]}]}], ")"}]}]}], ",", 
     RowBox[{"z", "\[Rule]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", 
            SuperscriptBox["a", "2"], " ", 
            SuperscriptBox["b", "2"], " ", 
            SuperscriptBox["nz", "2"]}], "+", 
           RowBox[{
            SuperscriptBox["a", "3"], " ", "b", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "3"}], "+", "nx"}], ")"}], " ", 
            SuperscriptBox["nz", "2"]}], "-", 
           RowBox[{"a", " ", 
            SuperscriptBox["b", "3"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
            SuperscriptBox["nz", "2"]}], "+", 
           RowBox[{"a", " ", 
            RowBox[{"(", 
             RowBox[{"1", "+", "nx"}], ")"}], " ", 
            SqrtBox[
             RowBox[{
              RowBox[{"-", 
               SuperscriptBox["a", "2"]}], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
              SuperscriptBox["nz", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", "a", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
                RowBox[{"b", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                   SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}], "-", 
           RowBox[{"b", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
            SqrtBox[
             RowBox[{
              SuperscriptBox["a", "2"], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
              SuperscriptBox["nz", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "2"}], " ", "a", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "+", 
                RowBox[{"b", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                   SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}]}], 
          ")"}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "-", "b"}], ")"}], " ", "nz", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"a", "+", "b", "+", 
              RowBox[{"a", " ", "nx"}], "-", 
              RowBox[{"b", " ", "nx"}]}], ")"}], "2"], "-", 
           RowBox[{"4", " ", "a", " ", "b", " ", 
            SuperscriptBox["nz", "2"]}]}], ")"}]}], ")"}]}]}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.841401764899686*^9},
 CellLabel->
  "Out[210]=",ExpressionUUID->"8826db63-605e-4d89-8c00-b9ac13cf0174"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.841401959701816*^9, 
  3.8414019922774143`*^9}},ExpressionUUID->"acd12c17-7025-401a-bad6-\
869f0f5f5420"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"negrules2", "[", 
    RowBox[{"[", "2", "]"}], "]"}], "/.", 
   RowBox[{"{", 
    RowBox[{"M", " ", "->", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "+", "b", "+", 
          RowBox[{"a", " ", "nx"}], "-", 
          RowBox[{"b", " ", "nx"}]}], ")"}], "^", "2"}], "-", 
       RowBox[{"4", " ", "a", " ", "b", " ", 
        RowBox[{"nz", "^", "2"}]}]}], ")"}]}], "}"}]}], " ", "/.", 
  RowBox[{"{", " ", 
   RowBox[{
    RowBox[{"a", "->", "1.2"}], ",", 
    RowBox[{"b", "->", "1.2426297674778306"}], ",", 
    RowBox[{"nx", "->", 
     RowBox[{"-", "0.017452406437283508"}]}], ",", 
    RowBox[{"nz", "->", 
     RowBox[{"-", "0.22491679320871352"}]}]}], " ", "}"}]}]], "Input",
 CellChangeTimes->{{3.841402008403537*^9, 3.841402010231182*^9}, {
  3.841402040414178*^9, 3.8414021077503557`*^9}},
 CellLabel->
  "In[216]:=",ExpressionUUID->"3e5b99aa-482f-44d3-84e2-2aee03133b21"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"x", "\[Rule]", "1.1676181198426308`"}], ",", 
   RowBox[{"z", "\[Rule]", "2.8235398036914043`"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.841402054935102*^9, 3.8414021103729362`*^9}},
 CellLabel->
  "Out[216]=",ExpressionUUID->"70643ecd-07b4-42af-ad8f-9d8ecc9002b1"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.841402063459715*^9, 
  3.841402070502458*^9}},ExpressionUUID->"a7df0f39-8eda-4782-8855-\
c9cb78d0cc38"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"negrules", "[", 
   RowBox[{"[", "2", "]"}], "]"}], " ", "/.", " ", 
  RowBox[{"{", " ", 
   RowBox[{
    RowBox[{"a", "->", "1.2"}], ",", 
    RowBox[{"b", "->", "1.2426297674778306"}], ",", 
    RowBox[{"nx", "->", 
     RowBox[{"-", "0.017452406437283508"}]}], ",", 
    RowBox[{"nz", "->", 
     RowBox[{"-", "0.22491679320871352"}]}]}], " ", "}"}]}]], "Input",
 CellChangeTimes->{{3.841402116496224*^9, 3.841402145356131*^9}},
 CellLabel->
  "In[218]:=",ExpressionUUID->"1a535cfa-3d42-43bf-b52f-133dcea37824"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"x", "\[Rule]", "1.1676181198426308`"}], ",", 
   RowBox[{"z", "\[Rule]", "2.8235398036914043`"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.841402133174597*^9, 3.841402147920216*^9}},
 CellLabel->
  "Out[218]=",ExpressionUUID->"1526cab9-05a9-4e23-acdd-75be063ebf07"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"negrules2", " "}]], "Input",
 CellLabel->
  "In[219]:=",ExpressionUUID->"6f0f9b3e-5c7b-46d1-ae7b-78b60a001a2e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      RowBox[{
       FractionBox["1", "M"], 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"a", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"a", " ", 
              RowBox[{"(", 
               RowBox[{"a", "+", "b", "+", 
                RowBox[{"a", " ", "nx"}], "-", 
                RowBox[{"b", " ", "nx"}]}], ")"}]}], "-", 
             RowBox[{"b", " ", 
              RowBox[{"(", 
               RowBox[{"a", "+", "b"}], ")"}], " ", 
              SuperscriptBox["nz", "2"]}]}], ")"}]}], "+", 
          SqrtBox[
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "2"]}], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
            SuperscriptBox["nz", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", "a", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
              RowBox[{"b", " ", 
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                 SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}], 
         ")"}]}]}]}], ",", 
     RowBox[{"z", "\[Rule]", 
      RowBox[{
       FractionBox["1", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "-", "b"}], ")"}], " ", "M", " ", "nz"}]], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"4", " ", 
          SuperscriptBox["a", "2"], " ", 
          SuperscriptBox["b", "2"], " ", 
          SuperscriptBox["nz", "2"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["a", "3"], " ", "b", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "3"}], "+", "nx"}], ")"}], " ", 
          SuperscriptBox["nz", "2"]}], "+", 
         RowBox[{"2", " ", "b", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
          SqrtBox[
           RowBox[{
            SuperscriptBox["a", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
            SuperscriptBox["nz", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], " ", "a", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "+", 
              RowBox[{"b", " ", 
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                 SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}], "-", 
         RowBox[{"2", " ", "a", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox["b", "3"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
             SuperscriptBox["nz", "2"]}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "+", "nx"}], ")"}], " ", 
             SqrtBox[
              RowBox[{
               RowBox[{"-", 
                SuperscriptBox["a", "2"]}], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
               SuperscriptBox["nz", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", "a", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
                 RowBox[{"b", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                    SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}]}], 
           ")"}]}]}], ")"}]}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      RowBox[{
       FractionBox["1", "M"], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "a", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"a", " ", 
             RowBox[{"(", 
              RowBox[{"a", "+", "b", "+", 
               RowBox[{"a", " ", "nx"}], "-", 
               RowBox[{"b", " ", "nx"}]}], ")"}]}], "-", 
            RowBox[{"b", " ", 
             RowBox[{"(", 
              RowBox[{"a", "+", "b"}], ")"}], " ", 
             SuperscriptBox["nz", "2"]}]}], ")"}]}], "-", 
         RowBox[{"2", " ", 
          SqrtBox[
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "2"]}], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
            SuperscriptBox["nz", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", "a", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
              RowBox[{"b", " ", 
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                 SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}]}], 
        ")"}]}]}], ",", 
     RowBox[{"z", "\[Rule]", 
      RowBox[{
       FractionBox["1", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "-", "b"}], ")"}], " ", "M", " ", "nz"}]], 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", 
           SuperscriptBox["a", "2"], " ", 
           SuperscriptBox["b", "2"], " ", 
           SuperscriptBox["nz", "2"]}], "+", 
          RowBox[{
           SuperscriptBox["a", "3"], " ", "b", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "3"}], "+", "nx"}], ")"}], " ", 
           SuperscriptBox["nz", "2"]}], "-", 
          RowBox[{"a", " ", 
           SuperscriptBox["b", "3"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
           SuperscriptBox["nz", "2"]}], "+", 
          RowBox[{"a", " ", 
           RowBox[{"(", 
            RowBox[{"1", "+", "nx"}], ")"}], " ", 
           SqrtBox[
            RowBox[{
             RowBox[{"-", 
              SuperscriptBox["a", "2"]}], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
             SuperscriptBox["nz", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", "a", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
               RowBox[{"b", " ", 
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                  SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}], "-", 
          RowBox[{"b", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
           SqrtBox[
            RowBox[{
             SuperscriptBox["a", "2"], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
             SuperscriptBox["nz", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "2"}], " ", "a", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "+", 
               RowBox[{"b", " ", 
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                  SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}]}], 
         ")"}]}]}]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.841402168699082*^9},
 CellLabel->
  "Out[219]=",ExpressionUUID->"d6f1c905-c04c-4d47-a4f5-08f1b3568bf6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"negules3", " ", "=", " ", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"x", "\[Rule]", 
       RowBox[{
        FractionBox["1", "M"], "2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"a", " ", "L"}], "+", 
          SqrtBox[
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "2"]}], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
            SuperscriptBox["nz", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", "a", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
              RowBox[{"b", " ", 
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                 SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}], 
         ")"}]}]}], ",", 
      RowBox[{"z", "\[Rule]", 
       RowBox[{
        FractionBox["1", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"a", "-", "b"}], ")"}], " ", "M", " ", "nz"}]], 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"4", " ", 
           SuperscriptBox["a", "2"], " ", 
           SuperscriptBox["b", "2"], " ", 
           SuperscriptBox["nz", "2"]}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox["a", "3"], " ", "b", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "3"}], "+", "nx"}], ")"}], " ", 
           SuperscriptBox["nz", "2"]}], "+", 
          RowBox[{"2", " ", "b", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
           SqrtBox[
            RowBox[{
             SuperscriptBox["a", "2"], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
             SuperscriptBox["nz", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "2"}], " ", "a", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "+", 
               RowBox[{"b", " ", 
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                  SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}], "-", 
          RowBox[{"2", " ", "a", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox["b", "3"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
              SuperscriptBox["nz", "2"]}], "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"1", "+", "nx"}], ")"}], " ", 
              SqrtBox[
               RowBox[{
                RowBox[{"-", 
                 SuperscriptBox["a", "2"]}], " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
                SuperscriptBox["nz", "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"2", " ", "a", " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
                  RowBox[{"b", " ", 
                   RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                    SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}]}], 
            ")"}]}]}], ")"}]}]}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"x", "\[Rule]", 
       RowBox[{
        FractionBox["1", "M"], 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "a", " ", "L"}], "-", 
          RowBox[{"2", " ", 
           SqrtBox[
            RowBox[{
             RowBox[{"-", 
              SuperscriptBox["a", "2"]}], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
             SuperscriptBox["nz", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", "a", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
               RowBox[{"b", " ", 
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                  SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}]}], 
         ")"}]}]}], ",", 
      RowBox[{"z", "\[Rule]", 
       RowBox[{
        FractionBox["1", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"a", "-", "b"}], ")"}], " ", "M", " ", "nz"}]], "2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", 
           SuperscriptBox["a", "2"], " ", 
           SuperscriptBox["b", "2"], " ", 
           SuperscriptBox["nz", "2"]}], "+", 
          RowBox[{
           SuperscriptBox["a", "3"], " ", "b", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "3"}], "+", "nx"}], ")"}], " ", 
           SuperscriptBox["nz", "2"]}], "-", 
          RowBox[{"a", " ", 
           SuperscriptBox["b", "3"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
           SuperscriptBox["nz", "2"]}], "+", 
          RowBox[{"a", " ", 
           RowBox[{"(", 
            RowBox[{"1", "+", "nx"}], ")"}], " ", 
           SqrtBox[
            RowBox[{
             RowBox[{"-", 
              SuperscriptBox["a", "2"]}], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
             SuperscriptBox["nz", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", "a", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
               RowBox[{"b", " ", 
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                  SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}], "-", 
          RowBox[{"b", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
           SqrtBox[
            RowBox[{
             SuperscriptBox["a", "2"], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
             SuperscriptBox["nz", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "2"}], " ", "a", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "+", 
               RowBox[{"b", " ", 
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                  SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}]}], 
         ")"}]}]}]}], "}"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.8414021731109867`*^9, 3.841402177066347*^9}, {
  3.84140220985287*^9, 3.841402249237034*^9}},
 CellLabel->
  "In[223]:=",ExpressionUUID->"2c6902d3-acff-427c-9f58-73b4194ce31d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      FractionBox[
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"a", " ", "L"}], "+", 
          SqrtBox[
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "2"]}], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
            SuperscriptBox["nz", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", "a", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
              RowBox[{"b", " ", 
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                 SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}], ")"}]}], 
       "M"]}], ",", 
     RowBox[{"z", "\[Rule]", 
      RowBox[{
       FractionBox["1", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "-", "b"}], ")"}], " ", "M", " ", "nz"}]], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"4", " ", 
          SuperscriptBox["a", "2"], " ", 
          SuperscriptBox["b", "2"], " ", 
          SuperscriptBox["nz", "2"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["a", "3"], " ", "b", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "3"}], "+", "nx"}], ")"}], " ", 
          SuperscriptBox["nz", "2"]}], "+", 
         RowBox[{"2", " ", "b", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
          SqrtBox[
           RowBox[{
            SuperscriptBox["a", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
            SuperscriptBox["nz", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], " ", "a", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "+", 
              RowBox[{"b", " ", 
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                 SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}], "-", 
         RowBox[{"2", " ", "a", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox["b", "3"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
             SuperscriptBox["nz", "2"]}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "+", "nx"}], ")"}], " ", 
             SqrtBox[
              RowBox[{
               RowBox[{"-", 
                SuperscriptBox["a", "2"]}], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
               SuperscriptBox["nz", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", "a", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
                 RowBox[{"b", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                    SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}]}], 
           ")"}]}]}], ")"}]}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      FractionBox[
       RowBox[{
        RowBox[{"2", " ", "a", " ", "L"}], "-", 
        RowBox[{"2", " ", 
         SqrtBox[
          RowBox[{
           RowBox[{"-", 
            SuperscriptBox["a", "2"]}], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
           SuperscriptBox["nz", "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"2", " ", "a", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
             RowBox[{"b", " ", 
              RowBox[{"(", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}]}], "M"]}], 
     ",", 
     RowBox[{"z", "\[Rule]", 
      RowBox[{
       FractionBox["1", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "-", "b"}], ")"}], " ", "M", " ", "nz"}]], 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", 
           SuperscriptBox["a", "2"], " ", 
           SuperscriptBox["b", "2"], " ", 
           SuperscriptBox["nz", "2"]}], "+", 
          RowBox[{
           SuperscriptBox["a", "3"], " ", "b", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "3"}], "+", "nx"}], ")"}], " ", 
           SuperscriptBox["nz", "2"]}], "-", 
          RowBox[{"a", " ", 
           SuperscriptBox["b", "3"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
           SuperscriptBox["nz", "2"]}], "+", 
          RowBox[{"a", " ", 
           RowBox[{"(", 
            RowBox[{"1", "+", "nx"}], ")"}], " ", 
           SqrtBox[
            RowBox[{
             RowBox[{"-", 
              SuperscriptBox["a", "2"]}], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
             SuperscriptBox["nz", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", "a", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
               RowBox[{"b", " ", 
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                  SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}], "-", 
          RowBox[{"b", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
           SqrtBox[
            RowBox[{
             SuperscriptBox["a", "2"], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
             SuperscriptBox["nz", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "2"}], " ", "a", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "+", 
               RowBox[{"b", " ", 
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                  SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}]}], 
         ")"}]}]}]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.8414022602784443`*^9, 3.841402299537788*^9},
 CellLabel->
  "Out[223]=",ExpressionUUID->"810e0ee9-9bd2-48b5-9284-2f187d4dfec1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["L"], "Input",
 CellChangeTimes->{3.841402289330942*^9},
 CellLabel->
  "In[221]:=",ExpressionUUID->"357070f0-ddf0-4867-a56e-2b477f9668d2"],

Cell[BoxData[
 RowBox[{
  RowBox[{"a", " ", 
   RowBox[{"(", 
    RowBox[{"a", "+", "b", "+", 
     RowBox[{"a", " ", "nx"}], "-", 
     RowBox[{"b", " ", "nx"}]}], ")"}]}], "-", 
  RowBox[{"b", " ", 
   RowBox[{"(", 
    RowBox[{"a", "+", "b"}], ")"}], " ", 
   SuperscriptBox["nz", "2"]}]}]], "Output",
 CellChangeTimes->{3.8414022900154*^9},
 CellLabel->
  "Out[221]=",ExpressionUUID->"79664ff8-b623-470f-b072-eb2a7ea38955"]
}, Open  ]],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{{3.841402292241549*^9, 3.841402309668949*^9}},
 CellLabel->
  "In[224]:=",ExpressionUUID->"e2ad145d-57a8-42d9-b6d9-8c91319772b3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"negules3", "[", 
     RowBox[{"[", "2", "]"}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{"M", " ", "->", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "+", "b", "+", 
           RowBox[{"a", " ", "nx"}], "-", 
           RowBox[{"b", " ", "nx"}]}], ")"}], "^", "2"}], "-", 
        RowBox[{"4", " ", "a", " ", "b", " ", 
         RowBox[{"nz", "^", "2"}]}]}], ")"}]}], "}"}]}], " ", "/.", " ", 
   RowBox[{"{", 
    RowBox[{"L", " ", "->", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"a", " ", 
        RowBox[{"(", 
         RowBox[{"a", "+", "b", "+", 
          RowBox[{"a", " ", "nx"}], "-", 
          RowBox[{"b", " ", "nx"}]}], ")"}]}], "-", 
       RowBox[{"b", " ", 
        RowBox[{"(", 
         RowBox[{"a", "+", "b"}], ")"}], " ", 
        RowBox[{"nz", "^", "2"}]}]}], ")"}]}], "}"}]}], "/.", 
  RowBox[{"{", " ", 
   RowBox[{
    RowBox[{"a", "->", "1.2"}], ",", 
    RowBox[{"b", "->", "1.2426297674778306"}], ",", 
    RowBox[{"nx", "->", 
     RowBox[{"-", "0.017452406437283508"}]}], ",", 
    RowBox[{"nz", "->", 
     RowBox[{"-", "0.22491679320871352"}]}]}], " ", "}"}]}]], "Input",
 CellChangeTimes->{{3.841402330457889*^9, 3.841402376241929*^9}},
 CellLabel->
  "In[227]:=",ExpressionUUID->"b0a318b4-7dd8-4418-b05a-e141bc6c03dd"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"x", "\[Rule]", "1.1676181198426308`"}], ",", 
   RowBox[{"z", "\[Rule]", "2.8235398036914043`"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.8414023524062643`*^9, 3.8414023794826517`*^9}},
 CellLabel->
  "Out[227]=",ExpressionUUID->"b6b97abb-f11b-4d69-aec7-ea0c0dcfe54f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["negules3"], "Input",
 CellLabel->
  "In[228]:=",ExpressionUUID->"58eeccfe-7801-4e87-82e1-ca11529348f0"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      FractionBox[
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"a", " ", "L"}], "+", 
          SqrtBox[
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "2"]}], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
            SuperscriptBox["nz", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", "a", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
              RowBox[{"b", " ", 
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                 SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}], ")"}]}], 
       "M"]}], ",", 
     RowBox[{"z", "\[Rule]", 
      RowBox[{
       FractionBox["1", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "-", "b"}], ")"}], " ", "M", " ", "nz"}]], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"4", " ", 
          SuperscriptBox["a", "2"], " ", 
          SuperscriptBox["b", "2"], " ", 
          SuperscriptBox["nz", "2"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["a", "3"], " ", "b", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "3"}], "+", "nx"}], ")"}], " ", 
          SuperscriptBox["nz", "2"]}], "+", 
         RowBox[{"2", " ", "b", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
          SqrtBox[
           RowBox[{
            SuperscriptBox["a", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
            SuperscriptBox["nz", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], " ", "a", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "+", 
              RowBox[{"b", " ", 
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                 SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}], "-", 
         RowBox[{"2", " ", "a", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox["b", "3"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
             SuperscriptBox["nz", "2"]}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "+", "nx"}], ")"}], " ", 
             SqrtBox[
              RowBox[{
               RowBox[{"-", 
                SuperscriptBox["a", "2"]}], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
               SuperscriptBox["nz", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", "a", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
                 RowBox[{"b", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                    SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}]}], 
           ")"}]}]}], ")"}]}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      FractionBox[
       RowBox[{
        RowBox[{"2", " ", "a", " ", "L"}], "-", 
        RowBox[{"2", " ", 
         SqrtBox[
          RowBox[{
           RowBox[{"-", 
            SuperscriptBox["a", "2"]}], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
           SuperscriptBox["nz", "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"2", " ", "a", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
             RowBox[{"b", " ", 
              RowBox[{"(", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}]}], "M"]}], 
     ",", 
     RowBox[{"z", "\[Rule]", 
      RowBox[{
       FractionBox["1", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "-", "b"}], ")"}], " ", "M", " ", "nz"}]], 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", 
           SuperscriptBox["a", "2"], " ", 
           SuperscriptBox["b", "2"], " ", 
           SuperscriptBox["nz", "2"]}], "+", 
          RowBox[{
           SuperscriptBox["a", "3"], " ", "b", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "3"}], "+", "nx"}], ")"}], " ", 
           SuperscriptBox["nz", "2"]}], "-", 
          RowBox[{"a", " ", 
           SuperscriptBox["b", "3"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
           SuperscriptBox["nz", "2"]}], "+", 
          RowBox[{"a", " ", 
           RowBox[{"(", 
            RowBox[{"1", "+", "nx"}], ")"}], " ", 
           SqrtBox[
            RowBox[{
             RowBox[{"-", 
              SuperscriptBox["a", "2"]}], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
             SuperscriptBox["nz", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", "a", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
               RowBox[{"b", " ", 
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                  SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}], "-", 
          RowBox[{"b", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
           SqrtBox[
            RowBox[{
             SuperscriptBox["a", "2"], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"a", "-", "b"}], ")"}], "2"], " ", "b", " ", 
             SuperscriptBox["nz", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "2"}], " ", "a", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "+", 
               RowBox[{"b", " ", 
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "nx"}], ")"}], "2"], "+", 
                  SuperscriptBox["nz", "2"]}], ")"}]}]}], ")"}]}]]}]}], 
         ")"}]}]}]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.841402397484627*^9},
 CellLabel->
  "Out[228]=",ExpressionUUID->"171de716-dc05-44ef-8345-e6c329738d11"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"negules4", " ", "=", " ", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"x", "\[Rule]", 
       FractionBox[
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"a", " ", "L"}], "+", "F"}], ")"}]}], "M"]}], ",", 
      RowBox[{"z", "\[Rule]", 
       RowBox[{
        FractionBox["1", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"a", "-", "b"}], ")"}], " ", "M", " ", "nz"}]], 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"4", " ", 
           SuperscriptBox["a", "2"], " ", 
           SuperscriptBox["b", "2"], " ", 
           SuperscriptBox["nz", "2"]}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox["a", "3"], " ", "b", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "3"}], "+", "nx"}], ")"}], " ", 
           SuperscriptBox["nz", "2"]}], "+", 
          RowBox[{"2", " ", "b", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", "F"}], "-", 
          RowBox[{"2", " ", "a", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox["b", "3"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
              SuperscriptBox["nz", "2"]}], "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"1", "+", "nx"}], ")"}], " ", "F"}]}], ")"}]}]}], 
         ")"}]}]}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"x", "\[Rule]", 
       FractionBox[
        RowBox[{
         RowBox[{"2", " ", "a", " ", "L"}], "-", 
         RowBox[{"2", " ", "F"}]}], "M"]}], ",", 
      RowBox[{"z", "\[Rule]", 
       RowBox[{
        FractionBox["1", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"a", "-", "b"}], ")"}], " ", "M", " ", "nz"}]], "2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", 
           SuperscriptBox["a", "2"], " ", 
           SuperscriptBox["b", "2"], " ", 
           SuperscriptBox["nz", "2"]}], "+", 
          RowBox[{
           SuperscriptBox["a", "3"], " ", "b", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "3"}], "+", "nx"}], ")"}], " ", 
           SuperscriptBox["nz", "2"]}], "-", 
          RowBox[{"a", " ", 
           SuperscriptBox["b", "3"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
           SuperscriptBox["nz", "2"]}], "+", 
          RowBox[{"a", " ", 
           RowBox[{"(", 
            RowBox[{"1", "+", "nx"}], ")"}], " ", "F"}], "-", 
          RowBox[{"b", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", "F"}]}], 
         ")"}]}]}]}], "}"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.841402468943693*^9, 3.841402477458447*^9}, {
  3.841402732764206*^9, 3.841402761310836*^9}},
 CellLabel->
  "In[231]:=",ExpressionUUID->"7a54b05e-2845-4763-9968-4a4ff4b5f178"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      FractionBox[
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{"F", "+", 
          RowBox[{"a", " ", "L"}]}], ")"}]}], "M"]}], ",", 
     RowBox[{"z", "\[Rule]", 
      FractionBox[
       RowBox[{
        RowBox[{"2", " ", "b", " ", "F", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "+", 
        RowBox[{"4", " ", 
         SuperscriptBox["a", "2"], " ", 
         SuperscriptBox["b", "2"], " ", 
         SuperscriptBox["nz", "2"]}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["a", "3"], " ", "b", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "3"}], "+", "nx"}], ")"}], " ", 
         SuperscriptBox["nz", "2"]}], "-", 
        RowBox[{"2", " ", "a", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"F", " ", 
            RowBox[{"(", 
             RowBox[{"1", "+", "nx"}], ")"}]}], "+", 
           RowBox[{
            SuperscriptBox["b", "3"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
            SuperscriptBox["nz", "2"]}]}], ")"}]}]}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "-", "b"}], ")"}], " ", "M", " ", "nz"}]]}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      FractionBox[
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", "F"}], "+", 
        RowBox[{"2", " ", "a", " ", "L"}]}], "M"]}], ",", 
     RowBox[{"z", "\[Rule]", 
      FractionBox[
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "b"}], " ", "F", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "+", 
          RowBox[{"a", " ", "F", " ", 
           RowBox[{"(", 
            RowBox[{"1", "+", "nx"}], ")"}]}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox["a", "2"], " ", 
           SuperscriptBox["b", "2"], " ", 
           SuperscriptBox["nz", "2"]}], "+", 
          RowBox[{
           SuperscriptBox["a", "3"], " ", "b", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "3"}], "+", "nx"}], ")"}], " ", 
           SuperscriptBox["nz", "2"]}], "-", 
          RowBox[{"a", " ", 
           SuperscriptBox["b", "3"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
           SuperscriptBox["nz", "2"]}]}], ")"}]}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "-", "b"}], ")"}], " ", "M", " ", "nz"}]]}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.841402765240061*^9, 3.841402783454958*^9}},
 CellLabel->
  "Out[231]=",ExpressionUUID->"4a71bf2b-4abe-40be-ba71-485a42c60243"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "F", "]"}]], "Input",
 CellChangeTimes->{{3.841402770476445*^9, 3.841402774284773*^9}},
 CellLabel->
  "In[230]:=",ExpressionUUID->"a136f041-4203-45c6-9f40-5746c426d741"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"negules4", "[", 
      RowBox[{"[", "2", "]"}], "]"}], "/.", 
     RowBox[{"{", 
      RowBox[{"M", " ", "->", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"a", "+", "b", "+", 
            RowBox[{"a", " ", "nx"}], "-", 
            RowBox[{"b", " ", "nx"}]}], ")"}], "^", "2"}], "-", 
         RowBox[{"4", " ", "a", " ", "b", " ", 
          RowBox[{"nz", "^", "2"}]}]}], ")"}]}], "}"}]}], " ", "/.", " ", 
    RowBox[{"{", 
     RowBox[{"L", " ", "->", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"a", " ", 
         RowBox[{"(", 
          RowBox[{"a", "+", "b", "+", 
           RowBox[{"a", " ", "nx"}], "-", 
           RowBox[{"b", " ", "nx"}]}], ")"}]}], "-", 
        RowBox[{"b", " ", 
         RowBox[{"(", 
          RowBox[{"a", "+", "b"}], ")"}], " ", 
         RowBox[{"nz", "^", "2"}]}]}], ")"}]}], "}"}]}], "/.", 
   "\[IndentingNewLine]", 
   RowBox[{"{", " ", 
    RowBox[{"F", " ", "->", " ", 
     RowBox[{"Sqrt", "[", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{"a", "^", "2"}]}], " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "-", "b"}], ")"}], "^", "2"}], " ", "b", " ", 
       RowBox[{"nz", "^", "2"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "a", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
         RowBox[{"b", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "nx"}], ")"}], "^", "2"}], "+", 
            RowBox[{"nz", "^", "2"}]}], ")"}]}]}], ")"}]}], "]"}]}], "}"}]}], 
  " ", "/.", "\[IndentingNewLine]", 
  RowBox[{"{", " ", 
   RowBox[{
    RowBox[{"a", "->", "1.2"}], ",", 
    RowBox[{"b", "->", "1.2426297674778306"}], ",", 
    RowBox[{"nx", "->", 
     RowBox[{"-", "0.017452406437283508"}]}], ",", 
    RowBox[{"nz", "->", 
     RowBox[{"-", "0.22491679320871352"}]}]}], " ", "}"}]}]], "Input",
 CellChangeTimes->{{3.841402800414304*^9, 3.84140288522745*^9}},
 CellLabel->
  "In[233]:=",ExpressionUUID->"178f3421-34a7-46d7-a362-9fa08ae359fc"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"x", "\[Rule]", "1.1676181198426308`"}], ",", 
   RowBox[{"z", "\[Rule]", "2.8235398036914043`"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.8414028634869127`*^9, 3.841402888237651*^9}},
 CellLabel->
  "Out[233]=",ExpressionUUID->"08ba7b93-7e95-480c-a7c2-c0cda770ae35"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["negules4"], "Input",
 CellLabel->
  "In[234]:=",ExpressionUUID->"c7d550dd-55fc-4005-932f-7877375ab2fb"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      FractionBox[
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{"F", "+", 
          RowBox[{"a", " ", "L"}]}], ")"}]}], "M"]}], ",", 
     RowBox[{"z", "\[Rule]", 
      FractionBox[
       RowBox[{
        RowBox[{"2", " ", "b", " ", "F", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "+", 
        RowBox[{"4", " ", 
         SuperscriptBox["a", "2"], " ", 
         SuperscriptBox["b", "2"], " ", 
         SuperscriptBox["nz", "2"]}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["a", "3"], " ", "b", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "3"}], "+", "nx"}], ")"}], " ", 
         SuperscriptBox["nz", "2"]}], "-", 
        RowBox[{"2", " ", "a", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"F", " ", 
            RowBox[{"(", 
             RowBox[{"1", "+", "nx"}], ")"}]}], "+", 
           RowBox[{
            SuperscriptBox["b", "3"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
            SuperscriptBox["nz", "2"]}]}], ")"}]}]}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "-", "b"}], ")"}], " ", "M", " ", "nz"}]]}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      FractionBox[
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", "F"}], "+", 
        RowBox[{"2", " ", "a", " ", "L"}]}], "M"]}], ",", 
     RowBox[{"z", "\[Rule]", 
      FractionBox[
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "b"}], " ", "F", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "+", 
          RowBox[{"a", " ", "F", " ", 
           RowBox[{"(", 
            RowBox[{"1", "+", "nx"}], ")"}]}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox["a", "2"], " ", 
           SuperscriptBox["b", "2"], " ", 
           SuperscriptBox["nz", "2"]}], "+", 
          RowBox[{
           SuperscriptBox["a", "3"], " ", "b", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "3"}], "+", "nx"}], ")"}], " ", 
           SuperscriptBox["nz", "2"]}], "-", 
          RowBox[{"a", " ", 
           SuperscriptBox["b", "3"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
           SuperscriptBox["nz", "2"]}]}], ")"}]}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "-", "b"}], ")"}], " ", "M", " ", "nz"}]]}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.841402936992194*^9},
 CellLabel->
  "Out[234]=",ExpressionUUID->"55cbe003-ccda-4d00-bc5e-54550213b22f"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "K", "]"}], " "}]], "Input",
 CellChangeTimes->{{3.841402973267864*^9, 3.841402983477522*^9}, {
  3.841403070599927*^9, 3.841403076134404*^9}},
 CellLabel->
  "In[235]:=",ExpressionUUID->"597eda42-ffe1-409d-857c-a06c1c672362"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.841403063309741*^9, 
  3.841403067359013*^9}},ExpressionUUID->"8ec7139c-4514-4c8d-ad59-\
61f00fb56152"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"negrules5", " ", "=", " ", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"x", "\[Rule]", 
       FractionBox[
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{"F", "+", 
           RowBox[{"a", " ", "L"}]}], ")"}]}], "M"]}], ",", 
      RowBox[{"z", "\[Rule]", 
       FractionBox[
        RowBox[{
         RowBox[{"2", " ", "b", " ", "F", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "+", "K", "-", 
         RowBox[{"2", " ", "a", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"F", " ", 
             RowBox[{"(", 
              RowBox[{"1", "+", "nx"}], ")"}]}], "+", 
            RowBox[{
             SuperscriptBox["b", "3"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
             SuperscriptBox["nz", "2"]}]}], ")"}]}]}], 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "-", "b"}], ")"}], " ", "M", " ", "nz"}]]}]}], "}"}], 
    ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"x", "\[Rule]", 
       FractionBox[
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", "F"}], "+", 
         RowBox[{"2", " ", "a", " ", "L"}]}], "M"]}], ",", 
      RowBox[{"z", "\[Rule]", 
       FractionBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "b"}], " ", "F", " ", "2", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "+", 
          RowBox[{"2", "a", " ", "F", " ", 
           RowBox[{"(", 
            RowBox[{"1", "+", "nx"}], ")"}]}], "+", "K", "-", 
          RowBox[{"2", "a", " ", 
           SuperscriptBox["b", "3"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
           SuperscriptBox["nz", "2"]}]}], ")"}], 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "-", "b"}], ")"}], " ", "M", " ", "nz"}]]}]}], "}"}]}],
    "}"}]}]], "Input",
 CellChangeTimes->{{3.841403082016741*^9, 3.841403204118207*^9}},
 CellLabel->
  "In[236]:=",ExpressionUUID->"4bcfaa72-0fb9-4499-8670-74de06b6bf95"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      FractionBox[
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{"F", "+", 
          RowBox[{"a", " ", "L"}]}], ")"}]}], "M"]}], ",", 
     RowBox[{"z", "\[Rule]", 
      FractionBox[
       RowBox[{"K", "+", 
        RowBox[{"2", " ", "b", " ", "F", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
        RowBox[{"2", " ", "a", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"F", " ", 
            RowBox[{"(", 
             RowBox[{"1", "+", "nx"}], ")"}]}], "+", 
           RowBox[{
            SuperscriptBox["b", "3"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
            SuperscriptBox["nz", "2"]}]}], ")"}]}]}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "-", "b"}], ")"}], " ", "M", " ", "nz"}]]}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      FractionBox[
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", "F"}], "+", 
        RowBox[{"2", " ", "a", " ", "L"}]}], "M"]}], ",", 
     RowBox[{"z", "\[Rule]", 
      FractionBox[
       RowBox[{"K", "-", 
        RowBox[{"2", " ", "b", " ", "F", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "+", 
        RowBox[{"2", " ", "a", " ", "F", " ", 
         RowBox[{"(", 
          RowBox[{"1", "+", "nx"}], ")"}]}], "-", 
        RowBox[{"2", " ", "a", " ", 
         SuperscriptBox["b", "3"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
         SuperscriptBox["nz", "2"]}]}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "-", "b"}], ")"}], " ", "M", " ", "nz"}]]}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.841403222131331*^9},
 CellLabel->
  "Out[236]=",ExpressionUUID->"398218be-bc6b-483e-8443-6581bcad940a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"negules4", "[", 
       RowBox[{"[", "2", "]"}], "]"}], "/.", 
      RowBox[{"{", 
       RowBox[{"M", " ", "->", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"a", "+", "b", "+", 
             RowBox[{"a", " ", "nx"}], "-", 
             RowBox[{"b", " ", "nx"}]}], ")"}], "^", "2"}], "-", 
          RowBox[{"4", " ", "a", " ", "b", " ", 
           RowBox[{"nz", "^", "2"}]}]}], ")"}]}], "}"}]}], " ", "/.", " ", 
     RowBox[{"{", 
      RowBox[{"L", " ", "->", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"a", " ", 
          RowBox[{"(", 
           RowBox[{"a", "+", "b", "+", 
            RowBox[{"a", " ", "nx"}], "-", 
            RowBox[{"b", " ", "nx"}]}], ")"}]}], "-", 
         RowBox[{"b", " ", 
          RowBox[{"(", 
           RowBox[{"a", "+", "b"}], ")"}], " ", 
          RowBox[{"nz", "^", "2"}]}]}], ")"}]}], "}"}]}], "/.", 
    "\[IndentingNewLine]", 
    RowBox[{"{", " ", 
     RowBox[{"F", " ", "->", " ", 
      RowBox[{"Sqrt", "[", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{"a", "^", "2"}]}], " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "-", "b"}], ")"}], "^", "2"}], " ", "b", " ", 
        RowBox[{"nz", "^", "2"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "a", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
          RowBox[{"b", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "nx"}], ")"}], "^", "2"}], "+", 
             RowBox[{"nz", "^", "2"}]}], ")"}]}]}], ")"}]}], "]"}]}], "}"}]}],
    " ", "/.", "\[IndentingNewLine]", 
   RowBox[{"{", " ", 
    RowBox[{"K", " ", "->", " ", 
     RowBox[{
      RowBox[{"4", " ", 
       RowBox[{"a", "^", "2"}], " ", 
       RowBox[{"b", "^", "2"}], " ", 
       RowBox[{"nz", "^", "2"}]}], "+", 
      RowBox[{"2", " ", 
       RowBox[{"a", "^", "3"}], " ", "b", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "3"}], "+", "nx"}], ")"}], " ", 
       RowBox[{"nz", "^", "2"}]}]}]}], " ", "}"}]}], " ", "/.", 
  "\[IndentingNewLine]", 
  RowBox[{"{", " ", 
   RowBox[{
    RowBox[{"a", "->", "1.2"}], ",", 
    RowBox[{"b", "->", "1.2426297674778306"}], ",", 
    RowBox[{"nx", "->", 
     RowBox[{"-", "0.017452406437283508"}]}], ",", 
    RowBox[{"nz", "->", 
     RowBox[{"-", "0.22491679320871352"}]}]}], " ", "}"}]}]], "Input",
 CellChangeTimes->{{3.841403237958447*^9, 3.841403259137766*^9}},
 CellLabel->
  "In[237]:=",ExpressionUUID->"e01fa4c5-e76a-4e56-a943-6d3462651ba8"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"x", "\[Rule]", "1.1676181198426308`"}], ",", 
   RowBox[{"z", "\[Rule]", "2.8235398036914043`"}]}], "}"}]], "Output",
 CellChangeTimes->{3.841403264029181*^9},
 CellLabel->
  "Out[237]=",ExpressionUUID->"aaaed81f-fed2-4279-91d4-bdce3c75a906"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "J", "]"}]], "Input",
 CellChangeTimes->{{3.8414032753554707`*^9, 3.841403278112973*^9}},
 CellLabel->
  "In[238]:=",ExpressionUUID->"03c417fa-b42d-40db-9048-d0e61c64e5b9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"negrules5", " "}]], "Input",
 CellLabel->
  "In[240]:=",ExpressionUUID->"939029ef-7e18-497d-aee2-70f94e82a087"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      FractionBox[
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{"F", "+", 
          RowBox[{"a", " ", "L"}]}], ")"}]}], "M"]}], ",", 
     RowBox[{"z", "\[Rule]", 
      FractionBox[
       RowBox[{"K", "+", 
        RowBox[{"2", " ", "b", " ", "F", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
        RowBox[{"2", " ", "a", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"F", " ", 
            RowBox[{"(", 
             RowBox[{"1", "+", "nx"}], ")"}]}], "+", 
           RowBox[{
            SuperscriptBox["b", "3"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
            SuperscriptBox["nz", "2"]}]}], ")"}]}]}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "-", "b"}], ")"}], " ", "M", " ", "nz"}]]}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      FractionBox[
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", "F"}], "+", 
        RowBox[{"2", " ", "a", " ", "L"}]}], "M"]}], ",", 
     RowBox[{"z", "\[Rule]", 
      FractionBox[
       RowBox[{"K", "-", 
        RowBox[{"2", " ", "b", " ", "F", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "+", 
        RowBox[{"2", " ", "a", " ", "F", " ", 
         RowBox[{"(", 
          RowBox[{"1", "+", "nx"}], ")"}]}], "-", 
        RowBox[{"2", " ", "a", " ", 
         SuperscriptBox["b", "3"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
         SuperscriptBox["nz", "2"]}]}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "-", "b"}], ")"}], " ", "M", " ", "nz"}]]}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.841403400833281*^9},
 CellLabel->
  "Out[240]=",ExpressionUUID->"1953252b-3539-4509-8e79-b8a0f2a75bbd"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      FractionBox[
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{"F", "+", 
          RowBox[{"a", " ", "L"}]}], ")"}]}], "M"]}], ",", 
     RowBox[{"z", "\[Rule]", 
      FractionBox[
       RowBox[{"K", "+", 
        RowBox[{"2", " ", "b", " ", "F", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
        RowBox[{"2", " ", "a", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"F", " ", 
            RowBox[{"(", 
             RowBox[{"1", "+", "nx"}], ")"}]}], "+", "J"}], ")"}]}]}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "-", "b"}], ")"}], " ", "M", " ", "nz"}]]}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      FractionBox[
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", "F"}], "+", 
        RowBox[{"2", " ", "a", " ", "L"}]}], "M"]}], ",", 
     RowBox[{"z", "\[Rule]", 
      FractionBox[
       RowBox[{"K", "-", 
        RowBox[{"2", " ", "b", " ", "F", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "+", 
        RowBox[{"2", " ", "a", " ", "F", " ", 
         RowBox[{"(", 
          RowBox[{"1", "+", "nx"}], ")"}]}], "-", 
        RowBox[{"2", " ", "a", " ", "J"}]}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "-", "b"}], ")"}], " ", "M", " ", "nz"}]]}]}], "}"}]}], 
  "}"}]], "Input",
 CellChangeTimes->{{3.8414032989846478`*^9, 3.8414033148495483`*^9}, {
  3.841403372585371*^9, 
  3.841403386338497*^9}},ExpressionUUID->"b1d56bf1-e86b-4324-b48e-\
66d1be6720a8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"negrules5", "[", 
        RowBox[{"[", "1", "]"}], "]"}], "/.", 
       RowBox[{"{", 
        RowBox[{"M", " ", "->", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"a", "+", "b", "+", 
              RowBox[{"a", " ", "nx"}], "-", 
              RowBox[{"b", " ", "nx"}]}], ")"}], "^", "2"}], "-", 
           RowBox[{"4", " ", "a", " ", "b", " ", 
            RowBox[{"nz", "^", "2"}]}]}], ")"}]}], "}"}]}], " ", "/.", " ", 
      RowBox[{"{", 
       RowBox[{"L", " ", "->", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"a", " ", 
           RowBox[{"(", 
            RowBox[{"a", "+", "b", "+", 
             RowBox[{"a", " ", "nx"}], "-", 
             RowBox[{"b", " ", "nx"}]}], ")"}]}], "-", 
          RowBox[{"b", " ", 
           RowBox[{"(", 
            RowBox[{"a", "+", "b"}], ")"}], " ", 
           RowBox[{"nz", "^", "2"}]}]}], ")"}]}], "}"}]}], "/.", 
     "\[IndentingNewLine]", 
     RowBox[{"{", " ", 
      RowBox[{"F", " ", "->", " ", 
       RowBox[{"Sqrt", "[", 
        RowBox[{
         RowBox[{"-", 
          RowBox[{"a", "^", "2"}]}], " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"a", "-", "b"}], ")"}], "^", "2"}], " ", "b", " ", 
         RowBox[{"nz", "^", "2"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "a", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
           RowBox[{"b", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "nx"}], ")"}], "^", "2"}], "+", 
              RowBox[{"nz", "^", "2"}]}], ")"}]}]}], ")"}]}], "]"}]}], 
      "}"}]}], " ", "/.", "\[IndentingNewLine]", 
    RowBox[{"{", " ", 
     RowBox[{"K", " ", "->", " ", 
      RowBox[{
       RowBox[{"4", " ", 
        RowBox[{"a", "^", "2"}], " ", 
        RowBox[{"b", "^", "2"}], " ", 
        RowBox[{"nz", "^", "2"}]}], "+", 
       RowBox[{"2", " ", 
        RowBox[{"a", "^", "3"}], " ", "b", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "3"}], "+", "nx"}], ")"}], " ", 
        RowBox[{"nz", "^", "2"}]}]}]}], " ", "}"}]}], " ", "/.", 
   "\[IndentingNewLine]", 
   RowBox[{"{", " ", 
    RowBox[{"J", " ", "->", " ", 
     RowBox[{
      RowBox[{"b", "^", "3"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
      RowBox[{"nz", "^", "2"}]}]}], " ", "}"}]}], " ", "/.", 
  "\[IndentingNewLine]", 
  RowBox[{"{", " ", 
   RowBox[{
    RowBox[{"a", "->", "1.2"}], ",", 
    RowBox[{"b", "->", "1.2426297674778306"}], ",", 
    RowBox[{"nx", "->", 
     RowBox[{"-", "0.017452406437283508"}]}], ",", 
    RowBox[{"nz", "->", 
     RowBox[{"-", "0.22491679320871352"}]}]}], " ", "}"}]}]], "Input",
 CellChangeTimes->{{3.841403461595606*^9, 3.8414034907414427`*^9}, {
  3.841403659419813*^9, 3.841403695016324*^9}},
 CellLabel->
  "In[247]:=",ExpressionUUID->"f89ee31b-c9e1-4481-8150-910baa09cad1"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"x", "\[Rule]", "1.1852409397915091`"}], ",", 
   RowBox[{"z", "\[Rule]", 
    RowBox[{"-", "1.6673299838563582`"}]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.841403493201626*^9, {3.84140365466786*^9, 3.841403697638351*^9}},
 CellLabel->
  "Out[247]=",ExpressionUUID->"a1213983-213c-4dfe-a258-8ce07c041213"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"negrules5", " "}]], "Input",
 CellLabel->
  "In[242]:=",ExpressionUUID->"8012cce8-8932-44ad-b5b0-102e19c11435"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      FractionBox[
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{"F", "+", 
          RowBox[{"a", " ", "L"}]}], ")"}]}], "M"]}], ",", 
     RowBox[{"z", "\[Rule]", 
      FractionBox[
       RowBox[{"K", "+", 
        RowBox[{"2", " ", "b", " ", "F", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
        RowBox[{"2", " ", "a", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"F", " ", 
            RowBox[{"(", 
             RowBox[{"1", "+", "nx"}], ")"}]}], "+", 
           RowBox[{
            SuperscriptBox["b", "3"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
            SuperscriptBox["nz", "2"]}]}], ")"}]}]}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "-", "b"}], ")"}], " ", "M", " ", "nz"}]]}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      FractionBox[
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", "F"}], "+", 
        RowBox[{"2", " ", "a", " ", "L"}]}], "M"]}], ",", 
     RowBox[{"z", "\[Rule]", 
      FractionBox[
       RowBox[{"K", "-", 
        RowBox[{"2", " ", "b", " ", "F", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "+", 
        RowBox[{"2", " ", "a", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"F", " ", 
            RowBox[{"(", 
             RowBox[{"1", "+", "nx"}], ")"}]}], "-", 
           RowBox[{
            SuperscriptBox["b", "3"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
            SuperscriptBox["nz", "2"]}]}], ")"}]}]}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "-", "b"}], ")"}], " ", "M", " ", "nz"}]]}]}], "}"}]}], 
  "}"}]], "Input",
 CellChangeTimes->{{3.841403562835587*^9, 3.841403573950666*^9}},
 CellLabel->
  "In[243]:=",ExpressionUUID->"39169af5-3f41-42f7-add4-f9f553e063d1"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      FractionBox[
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{"F", "+", 
          RowBox[{"a", " ", "L"}]}], ")"}]}], "M"]}], ",", 
     RowBox[{"z", "\[Rule]", 
      FractionBox[
       RowBox[{"K", "+", 
        RowBox[{"2", " ", "b", " ", "F", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "-", 
        RowBox[{"2", " ", "a", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"F", " ", 
            RowBox[{"(", 
             RowBox[{"1", "+", "nx"}], ")"}]}], "+", 
           RowBox[{
            SuperscriptBox["b", "3"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
            SuperscriptBox["nz", "2"]}]}], ")"}]}]}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "-", "b"}], ")"}], " ", "M", " ", "nz"}]]}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      FractionBox[
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", "F"}], "+", 
        RowBox[{"2", " ", "a", " ", "L"}]}], "M"]}], ",", 
     RowBox[{"z", "\[Rule]", 
      FractionBox[
       RowBox[{"K", "-", 
        RowBox[{"2", " ", "b", " ", "F", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "nx"}], ")"}]}], "+", 
        RowBox[{"2", " ", "a", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"F", " ", 
            RowBox[{"(", 
             RowBox[{"1", "+", "nx"}], ")"}]}], "-", 
           RowBox[{
            SuperscriptBox["b", "3"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "nx"}], ")"}], " ", 
            SuperscriptBox["nz", "2"]}]}], ")"}]}]}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "-", "b"}], ")"}], " ", "M", " ", "nz"}]]}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.841403649909257*^9},
 CellLabel->
  "Out[243]=",ExpressionUUID->"b4d87945-b6f0-4bd1-99c6-7e4b64630744"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"Sin", "[", "g", "]"}], "==", 
      RowBox[{"c", "/", 
       RowBox[{"(", 
        RowBox[{"q", "-", "z"}], ")"}]}]}], " ", "&&", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", "c"}], ")"}], "^", "2"}], "==", 
      RowBox[{
       RowBox[{"a", "^", "2"}], "+", 
       RowBox[{"z", "^", "2"}]}]}]}], ",", " ", "c"}], "]"}], "]"}]], "Input",\

 CellChangeTimes->{{3.841498224260573*^9, 3.84149827950235*^9}},
 CellLabel->
  "In[250]:=",ExpressionUUID->"a198d2d4-e0b9-4393-bb21-30879535127d"],

Cell[BoxData[
 RowBox[{"{", "}"}]], "Output",
 CellChangeTimes->{3.841498284593095*^9, 3.841498316819706*^9},
 CellLabel->
  "Out[250]=",ExpressionUUID->"c6b9a5e7-f88b-40e6-bc5a-00033ef7afa0"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "c", "]"}]], "Input",
 CellChangeTimes->{{3.841498309146037*^9, 3.841498311903022*^9}},
 CellLabel->
  "In[249]:=",ExpressionUUID->"7e3c55fe-c472-46f6-85c3-2e1b57006280"],

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  RowBox[{"Solve", "[", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "+", "c"}], ")"}], "^", "2"}], "==", 
     RowBox[{
      RowBox[{"a", "^", "2"}], "+", 
      RowBox[{"z", "^", "2"}]}]}], ",", " ", "c"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.841498331268997*^9, 3.841498337778553*^9}},
 CellLabel->
  "In[251]:=",ExpressionUUID->"5f6b2dab-985c-47e4-9626-c33246ae9c3d"],

Cell[BoxData[{
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"c", "\[Rule]", 
     RowBox[{
      RowBox[{"-", "a"}], "-", 
      SqrtBox[
       RowBox[{
        SuperscriptBox["a", "2"], "+", 
        SuperscriptBox["z", "2"]}]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"c", "\[Rule]", 
     RowBox[{
      RowBox[{"-", "a"}], "+", 
      SqrtBox[
       RowBox[{
        SuperscriptBox["a", "2"], "+", 
        SuperscriptBox["z", "2"]}]]}]}], "}"}]}], 
  "}"}], "\[IndentingNewLine]", 
 RowBox[{"FullSimplify", "[", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Sin", "[", "g", "]"}], "==", 
     RowBox[{
      RowBox[{"-", "a"}], "-", 
      RowBox[{
       SqrtBox[
        RowBox[{
         SuperscriptBox["a", "2"], "+", 
         SuperscriptBox["z", "2"]}]], "/", 
       RowBox[{"(", 
        RowBox[{"q", "-", "z"}], ")"}]}]}]}], " ", ",", " ", "c"}], "]"}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.8414983715169992`*^9, 3.841498400884556*^9}},
 CellLabel->
  "In[252]:=",ExpressionUUID->"8a39f08d-4138-480d-9cba-548c1692abef"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"c", "\[Rule]", 
     RowBox[{
      RowBox[{"-", "a"}], "-", 
      SqrtBox[
       RowBox[{
        SuperscriptBox["a", "2"], "+", 
        SuperscriptBox["z", "2"]}]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"c", "\[Rule]", 
     RowBox[{
      RowBox[{"-", "a"}], "+", 
      SqrtBox[
       RowBox[{
        SuperscriptBox["a", "2"], "+", 
        SuperscriptBox["z", "2"]}]]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.841498401848192*^9},
 CellLabel->
  "Out[252]=",ExpressionUUID->"44957d21-8912-4500-ae69-ca3e10c38fe6"],

Cell[BoxData[
 RowBox[{"{", "}"}]], "Output",
 CellChangeTimes->{3.8414984018818703`*^9},
 CellLabel->
  "Out[253]=",ExpressionUUID->"e199e35d-24d5-4fee-94c2-96d0e2e1552f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Sin", "[", "g", "]"}], "==", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "a"}], "-", 
        SqrtBox[
         RowBox[{
          SuperscriptBox["a", "2"], "+", 
          SuperscriptBox["z", "2"]}]]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"q", "-", "z"}], ")"}]}]}], " ", ",", " ", "c"}], "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.8414984484045258`*^9, 3.8414984536099873`*^9}},
 CellLabel->
  "In[255]:=",ExpressionUUID->"25c5f793-982c-46ff-83b1-fa4b4f8b9664"],

Cell[BoxData[
 RowBox[{"{", "}"}]], "Output",
 CellChangeTimes->{3.841498417594811*^9, 3.8414984548832293`*^9},
 CellLabel->
  "Out[255]=",ExpressionUUID->"2556ddf6-162c-465a-bb65-d424980482c6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Sin", "[", "g", "]"}], " ", "==", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "a"}], " ", "-", " ", 
        RowBox[{"Sqrt", "[", 
         RowBox[{
          RowBox[{"a", "^", "2"}], " ", "+", " ", 
          RowBox[{"z", "^", "2"}]}], "]"}]}], ")"}], "/", " ", 
      RowBox[{"(", 
       RowBox[{"q", " ", "-", " ", "z"}], ")"}]}]}], ",", "c"}], "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.8414984704743347`*^9, 3.84149852007835*^9}},
 CellLabel->
  "In[257]:=",ExpressionUUID->"b62885bd-6d92-46af-bd72-7f8cf9afc604"],

Cell[BoxData[
 RowBox[{"{", "}"}]], "Output",
 CellChangeTimes->{{3.841498514383037*^9, 3.841498522559927*^9}},
 CellLabel->
  "Out[257]=",ExpressionUUID->"d05c432e-0232-47b7-af02-505f73dbeb03"]
}, Open  ]]
},
WindowSize->{1204, 1302},
WindowMargins->{{102, Automatic}, {Automatic, 6}},
Magnification->1.5,
FrontEndVersion->"12.3 for Mac OS X x86 (64-bit) (July 9, 2021)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"9932ceef-b40e-45e1-90a1-9d710e4bf902"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 1751, 51, 140, "Input",ExpressionUUID->"3ad70ca3-780e-460c-a59e-025e029ab748"],
Cell[2334, 75, 1720, 51, 104, "Output",ExpressionUUID->"aab7c95b-cbca-4dd0-bb3a-238cf2a67057"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4091, 131, 3072, 86, 202, "Input",ExpressionUUID->"5439e2ed-af8f-4ff1-921c-0205b91b6700"],
Cell[7166, 219, 3031, 86, 183, "Output",ExpressionUUID->"00327c2f-0766-4486-9c04-b58d73b3f698"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10234, 310, 455, 8, 171, "Input",ExpressionUUID->"ecfba8b6-93ed-4cfe-8e34-0449178fb3e3"],
Cell[10692, 320, 153, 2, 52, "Output",ExpressionUUID->"cd43edc2-b72a-457d-9e2e-acf82f7e4950"],
Cell[10848, 324, 166, 2, 52, "Output",ExpressionUUID->"93b8ae50-8d2e-4ab5-bd73-22d61f7ec36c"],
Cell[11017, 328, 185, 3, 52, "Output",ExpressionUUID->"1dad238c-254a-4e23-8c93-25ba73dd3340"],
Cell[11205, 333, 167, 2, 52, "Output",ExpressionUUID->"e65da80f-24c5-4c88-8dce-8970e3175d9d"],
Cell[11375, 337, 151, 2, 52, "Output",ExpressionUUID->"99006c3d-6648-4ec7-bb5a-e3f1d676b8d4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11563, 344, 149, 2, 46, "Input",ExpressionUUID->"c3ae7a4d-7163-497f-b23b-ffc8f5bb389d"],
Cell[11715, 348, 150, 2, 52, "Output",ExpressionUUID->"15d1fa9e-ad66-42b8-a21e-98e1da195939"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11902, 355, 146, 2, 46, "Input",ExpressionUUID->"49c5e5d0-c032-4815-9765-500db93e3277"],
Cell[12051, 359, 147, 2, 52, "Output",ExpressionUUID->"26cf3aa8-9bf2-48ed-9be3-46266e9eb47c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12235, 366, 148, 2, 46, "Input",ExpressionUUID->"a91a08f0-fcc6-4190-9f0e-23d3ae743596"],
Cell[12386, 370, 149, 2, 52, "Output",ExpressionUUID->"1ef26947-2e7f-4cb8-9ea6-b04afccff4dd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12572, 377, 1684, 50, 140, "Input",ExpressionUUID->"42529c8b-dd04-443b-9b00-f1818ee590e7"],
Cell[14259, 429, 196, 3, 52, "Output",ExpressionUUID->"b77ed489-4471-4111-ace9-f1379b6c2ca0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14492, 437, 3005, 85, 202, "Input",ExpressionUUID->"418b573d-8296-4907-945e-e2165bb019c5"],
Cell[17500, 524, 196, 3, 52, "Output",ExpressionUUID->"f5dba9da-17d4-4296-b38d-7d74e7401344"]
}, Open  ]],
Cell[CellGroupData[{
Cell[17733, 532, 318, 7, 46, "Input",ExpressionUUID->"1be2aff9-4e4e-4403-a81b-1d0c1544c61f"],
Cell[18054, 541, 282, 8, 55, "Output",ExpressionUUID->"ec9476c1-1b47-4abb-b065-d905fedab7d0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18373, 554, 332, 7, 46, "Input",ExpressionUUID->"b9be7de7-ab2f-4077-8494-30615b41170c"],
Cell[18708, 563, 167, 2, 52, "Output",ExpressionUUID->"263bc86e-b811-4a63-a389-ad829c02e7a1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18912, 570, 299, 5, 46, "Input",ExpressionUUID->"277a0bb5-7068-4034-89e5-c03f7b6d9dab"],
Cell[19214, 577, 169, 2, 52, "Output",ExpressionUUID->"151a5cb2-635a-4ba6-b576-ad44724bbab8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19420, 584, 383, 9, 46, "Input",ExpressionUUID->"502d414f-48d7-4e91-b4d6-0ce0bc904c80"],
Cell[19806, 595, 193, 2, 52, "Output",ExpressionUUID->"a8daf2e7-7dc2-4cab-b5c5-8881f98fe94d"]
}, Open  ]],
Cell[20014, 600, 203, 3, 46, "Input",ExpressionUUID->"fee52620-74dc-4740-9025-863ba800de50"],
Cell[CellGroupData[{
Cell[20242, 607, 490, 13, 46, "Input",ExpressionUUID->"0c616689-f9e4-4a00-ad14-14a8392588f4"],
Cell[20735, 622, 221, 3, 52, "Output",ExpressionUUID->"f04aaf7c-afb7-4bbc-ba27-3b847bc00bc4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20993, 630, 148, 2, 46, "Input",ExpressionUUID->"4587c355-62ee-4992-8c48-773ead30bc26"],
Cell[21144, 634, 171, 2, 52, "Output",ExpressionUUID->"19bfa5ec-266a-4d20-a811-b4f95ab23d6c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21352, 641, 226, 4, 46, "Input",ExpressionUUID->"e13cd92f-58b3-4085-b753-afd72c6ad523"],
Cell[21581, 647, 168, 2, 52, "Output",ExpressionUUID->"063db2e2-df59-4456-9659-79433307c10d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21786, 654, 148, 2, 46, "Input",ExpressionUUID->"f99bb849-9795-474b-be03-dddd93a50a9f"],
Cell[21937, 658, 149, 2, 52, "Output",ExpressionUUID->"43b262c8-6051-4a46-9d30-c3e3b2cc901e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[22123, 665, 215, 4, 46, "Input",ExpressionUUID->"1723058e-da09-4b62-997f-fe0309df0066"],
Cell[22341, 671, 166, 3, 52, "Output",ExpressionUUID->"23a55957-d59d-42d4-a445-6b58e26a83bb"]
}, Open  ]],
Cell[CellGroupData[{
Cell[22544, 679, 749, 20, 46, "Input",ExpressionUUID->"dcd9494f-b605-439c-8f7d-54efa586de14"],
Cell[23296, 701, 184, 3, 52, "Output",ExpressionUUID->"4a4d0476-13fe-4497-9359-889d85338c57"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23517, 709, 729, 20, 46, "Input",ExpressionUUID->"7b2d33aa-d985-41b7-aa04-90611a9b4828"],
Cell[24249, 731, 307, 6, 52, "Output",ExpressionUUID->"c732755d-680b-4e24-a06c-49e31d81ce4c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24593, 742, 207, 3, 46, "Input",ExpressionUUID->"554336d3-a41a-4d74-8317-8e0d1862261c"],
Cell[24803, 747, 149, 2, 52, "Output",ExpressionUUID->"ac8742a3-98a8-4298-a0eb-17639336aea1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24989, 754, 628, 18, 46, "Input",ExpressionUUID->"c0eeddc4-c5f3-4d25-b947-bd41e2851d3b"],
Cell[25620, 774, 165, 2, 52, "Output",ExpressionUUID->"f9d904da-7c31-4fde-a0e9-0007376796b8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[25822, 781, 443, 12, 46, "Input",ExpressionUUID->"abb382b0-5446-4396-a20d-b60bec68b09c"],
Cell[26268, 795, 186, 3, 68, "Output",ExpressionUUID->"29cf5eeb-7c3c-42e2-a092-0177a957c52b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26491, 803, 467, 12, 46, "Input",ExpressionUUID->"b2ef08b8-81a2-4fa3-8cab-3502a691f619"],
Cell[26961, 817, 192, 2, 52, "Output",ExpressionUUID->"d2a4b315-ba0a-4a9d-9016-98ee7909c71f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[27190, 824, 414, 11, 46, "Input",ExpressionUUID->"6eeb14a6-6d48-4df1-998d-85c8dcabe108"],
Cell[27607, 837, 168, 2, 52, "Output",ExpressionUUID->"481c3cdc-49e0-44ae-b037-a10625975826"]
}, Open  ]],
Cell[CellGroupData[{
Cell[27812, 844, 148, 2, 46, "Input",ExpressionUUID->"b360f0be-45f5-4ef6-930a-581cefdbb1c0"],
Cell[27963, 848, 166, 2, 52, "Output",ExpressionUUID->"70092ed6-d802-4696-9c86-c0649a559057"]
}, Open  ]],
Cell[CellGroupData[{
Cell[28166, 855, 401, 11, 46, "Input",ExpressionUUID->"d78fb72c-6fc1-4ad8-ab2e-bfa5e8f91b8d"],
Cell[28570, 868, 167, 2, 52, "Output",ExpressionUUID->"9aaa688e-5440-4bac-a0ea-0c8c90ced52e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[28774, 875, 2899, 84, 171, "Input",ExpressionUUID->"99b271ae-2b1b-4cc6-8518-4ef1bcaec16d"],
Cell[31676, 961, 169, 2, 52, "Output",ExpressionUUID->"022cae32-f8e3-4136-9bfc-c207dcde7289"]
}, Open  ]],
Cell[CellGroupData[{
Cell[31882, 968, 335, 10, 46, "Input",ExpressionUUID->"404fe290-d1f3-44a0-b5d4-7a0568d6187c"],
Cell[32220, 980, 166, 2, 52, "Output",ExpressionUUID->"46a69016-c6fb-4797-bdff-892870998d28"]
}, Open  ]],
Cell[CellGroupData[{
Cell[32423, 987, 225, 4, 46, "Input",ExpressionUUID->"766414d0-a5ca-44ed-8fcf-d6cdffa019c0"],
Cell[32651, 993, 166, 3, 52, "Output",ExpressionUUID->"097e3936-757f-4ee5-9e8c-cd480b24a0d9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[32854, 1001, 628, 18, 46, "Input",ExpressionUUID->"c06ea37b-890d-4c93-a589-1d3863fd4541"],
Cell[33485, 1021, 187, 2, 52, "Output",ExpressionUUID->"757ea935-a4e1-4ca8-b647-1b22b7d449c6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[33709, 1028, 310, 9, 46, "Input",ExpressionUUID->"3133aecc-d0a5-4d3b-b752-af0c1e6dbf7b"],
Cell[34022, 1039, 186, 3, 52, "Output",ExpressionUUID->"eb4ff139-8038-4bf9-8837-242f0ea30231"]
}, Open  ]],
Cell[CellGroupData[{
Cell[34245, 1047, 207, 3, 46, "Input",ExpressionUUID->"b4a79a10-d57d-4d1b-b9d6-1722c17bbcbe"],
Cell[34455, 1052, 149, 2, 52, "Output",ExpressionUUID->"61cb3fba-09fe-4d79-bc70-2c06b61f9d4d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[34641, 1059, 227, 4, 46, "Input",ExpressionUUID->"092e80cb-d9c6-4296-8b21-08799756fa91"],
Cell[34871, 1065, 166, 3, 52, "Output",ExpressionUUID->"2d533083-fbaa-42f8-ae9f-fa0532f31775"]
}, Open  ]],
Cell[CellGroupData[{
Cell[35074, 1073, 741, 20, 46, "Input",ExpressionUUID->"17f7d039-278f-4526-acab-2c4bdc23e9d0"],
Cell[35818, 1095, 185, 3, 52, "Output",ExpressionUUID->"a5a97c70-a5ba-4366-b0d2-3ad1c2b486f3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[36040, 1103, 385, 10, 46, "Input",ExpressionUUID->"5c59c260-1739-4318-b913-4f26c5d585d3"],
Cell[36428, 1115, 188, 2, 52, "Output",ExpressionUUID->"1c3c2187-d792-401b-9ec4-2fae3a683708"]
}, Open  ]],
Cell[CellGroupData[{
Cell[36653, 1122, 175, 2, 46, "Input",ExpressionUUID->"e442f152-43a4-4233-bec9-d41f65206d71"],
Cell[36831, 1126, 166, 3, 52, "Output",ExpressionUUID->"f9117720-0888-41f0-8d54-4685ea9fef86"]
}, Open  ]],
Cell[CellGroupData[{
Cell[37034, 1134, 150, 2, 46, "Input",ExpressionUUID->"2fc7c4de-2d54-41ea-9d0c-1dd7d4fbeb12"],
Cell[37187, 1138, 184, 3, 52, "Output",ExpressionUUID->"f1c0333a-3c3c-4f9a-89af-439cf3bb6e1f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[37408, 1146, 148, 2, 46, "Input",ExpressionUUID->"1d97dbad-3830-4526-9d31-0a921b26223b"],
Cell[37559, 1150, 185, 3, 52, "Output",ExpressionUUID->"a17e48bb-5096-408a-bbdf-502cde228c4c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[37781, 1158, 148, 2, 46, "Input",ExpressionUUID->"c5e3519d-3da7-4adc-a0af-a2a5663788c5"],
Cell[37932, 1162, 149, 2, 52, "Output",ExpressionUUID->"3fd2f690-58f6-4d83-bb56-457a5119db04"]
}, Open  ]],
Cell[CellGroupData[{
Cell[38118, 1169, 175, 2, 46, "Input",ExpressionUUID->"89eaee5c-6b33-4b6c-91aa-86592a0bc8b6"],
Cell[38296, 1173, 166, 2, 52, "Output",ExpressionUUID->"3f01fff8-bb10-4f92-89e4-46ad684c5732"]
}, Open  ]],
Cell[CellGroupData[{
Cell[38499, 1180, 320, 9, 46, "Input",ExpressionUUID->"0f667960-45a8-4fb8-8a33-b9a40b0ea439"],
Cell[38822, 1191, 169, 2, 52, "Output",ExpressionUUID->"811cdfc2-603f-4312-b6ae-e940fe467748"]
}, Open  ]],
Cell[CellGroupData[{
Cell[39028, 1198, 1914, 51, 140, "Input",ExpressionUUID->"2c32f436-1811-4288-b3f1-415101115ed3"],
Cell[40945, 1251, 165, 2, 52, "Output",ExpressionUUID->"5010a8ad-e8a0-49d1-8cfe-484a7d9b5b4a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[41147, 1258, 3429, 92, 295, "Input",ExpressionUUID->"a1179a31-0d8b-41be-adb6-8f1e047eaa03"],
Cell[44579, 1352, 185, 3, 52, "Output",ExpressionUUID->"2237e9f6-0438-420b-bbd0-9aa18c1ff2c1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[44801, 1360, 329, 7, 46, "Input",ExpressionUUID->"a92ba12d-f573-4a57-b459-b177b1264fb2"],
Cell[45133, 1369, 166, 2, 52, "Output",ExpressionUUID->"f618fc73-11a7-433f-899a-38d90c0bac88"]
}, Open  ]],
Cell[CellGroupData[{
Cell[45336, 1376, 862, 26, 140, "Input",ExpressionUUID->"a579b75a-e296-4d8b-9950-9c86541f7c34"],
Cell[46201, 1404, 464, 10, 55, "Output",ExpressionUUID->"4278aafd-1ff0-4795-993d-16ff9eac1713"],
Cell[46668, 1416, 462, 10, 55, "Output",ExpressionUUID->"df8c2e0f-1153-44da-b3ce-92dbe35a977f"],
Cell[47133, 1428, 573, 13, 55, "Output",ExpressionUUID->"341c2c8b-63c2-4f0f-af17-f30d0c26de33"],
Cell[47709, 1443, 575, 13, 55, "Output",ExpressionUUID->"ae32753e-aa43-4fa0-b99b-4daf0e501967"]
}, Open  ]],
Cell[CellGroupData[{
Cell[48321, 1461, 370, 8, 46, "Input",ExpressionUUID->"e667d182-3187-448d-a9ee-981fb1f2a8d6"],
Cell[48694, 1471, 364, 9, 41, "Message",ExpressionUUID->"d3d93e8a-f550-458a-9f08-630ffb2fe68b"],
Cell[49061, 1482, 1092, 27, 104, "Output",ExpressionUUID->"0365dcb6-d414-47fc-9aff-73112eddeac7"]
}, Open  ]],
Cell[50168, 1512, 203, 3, 46, "Input",ExpressionUUID->"297353e1-d1e6-4620-996e-48d84e2180bd"],
Cell[50374, 1517, 315, 8, 78, "Input",ExpressionUUID->"b2800d1e-b666-4ddd-8564-493b54a89b41"],
Cell[CellGroupData[{
Cell[50714, 1529, 796, 25, 140, "Input",ExpressionUUID->"1724ae07-1651-45b4-99cc-19469965502c"],
Cell[51513, 1556, 448, 13, 55, "Output",ExpressionUUID->"c0d6853d-e471-4edb-97c4-d72acf9d7b32"],
Cell[51964, 1571, 448, 13, 55, "Output",ExpressionUUID->"d198f438-ab24-4b62-a052-040da4e476c4"],
Cell[52415, 1586, 511, 15, 55, "Output",ExpressionUUID->"a5a8f759-06c3-4f17-bc74-35caea6a03e9"],
Cell[52929, 1603, 511, 15, 55, "Output",ExpressionUUID->"e3473519-2c81-49f5-87aa-ebf9233bba00"]
}, Open  ]],
Cell[53455, 1621, 229, 5, 46, "Input",ExpressionUUID->"6bc7422a-aefa-4628-bd61-829f9dab98f6"],
Cell[CellGroupData[{
Cell[53709, 1630, 796, 25, 140, "Input",ExpressionUUID->"992ded32-e4e9-4473-951e-5fc39c0f7f43"],
Cell[54508, 1657, 429, 13, 55, "Output",ExpressionUUID->"e37de01a-0769-4f89-89ab-6c79fcd670a2"],
Cell[54940, 1672, 430, 13, 55, "Output",ExpressionUUID->"96f16756-cdec-4713-a91a-2ea633509dbf"],
Cell[55373, 1687, 493, 15, 55, "Output",ExpressionUUID->"4d0990ee-8e08-4a65-add4-739e2cf07b4e"],
Cell[55869, 1704, 493, 15, 55, "Output",ExpressionUUID->"cf73f2eb-4a55-4859-8fef-d1a0ad09efef"]
}, Open  ]],
Cell[CellGroupData[{
Cell[56399, 1724, 369, 8, 46, "Input",ExpressionUUID->"c1b4fef9-fa36-478b-bf71-5c12a550bfee"],
Cell[56771, 1734, 351, 9, 41, "Message",ExpressionUUID->"c03afb15-e459-4796-bd18-af5057520d1e"],
Cell[57125, 1745, 21868, 585, 920, "Output",ExpressionUUID->"8f8250ac-0118-44da-b644-bdc4d619a3a4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[79030, 2335, 286, 5, 109, "Input",ExpressionUUID->"23a1c5da-967b-4980-9abb-046ecb97e1a3"],
Cell[79319, 2342, 152, 2, 52, "Output",ExpressionUUID->"f5adbe0f-2f96-4b21-8b99-161e5317a5db"],
Cell[79474, 2346, 152, 2, 52, "Output",ExpressionUUID->"b25a7c4e-562e-4d83-9dcc-1bf4d338f73d"],
Cell[79629, 2350, 167, 2, 52, "Output",ExpressionUUID->"41c9b268-0467-48c8-a4a6-231d3e655290"]
}, Open  ]],
Cell[CellGroupData[{
Cell[79833, 2357, 208, 3, 46, "Input",ExpressionUUID->"b69232a2-cf62-4de4-bec1-ebe94f7aadef"],
Cell[80044, 2362, 152, 2, 52, "Output",ExpressionUUID->"09a889ee-9637-4fdb-a93a-34b3d5da6318"]
}, Open  ]],
Cell[CellGroupData[{
Cell[80233, 2369, 303, 7, 46, "Input",ExpressionUUID->"571a915b-23a2-4dc0-aaaa-700524f28270"],
Cell[80539, 2378, 353, 9, 41, "Message",ExpressionUUID->"3ab95365-d36e-4d32-bb4f-d62e83b9a20d"],
Cell[80895, 2389, 156, 2, 52, "Output",ExpressionUUID->"bfdd159c-4451-4c01-8cc7-15936a3829e1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[81088, 2396, 177, 2, 46, "Input",ExpressionUUID->"27734b46-2d93-42e5-956c-98026541f6ad"],
Cell[81268, 2400, 473, 13, 55, "Output",ExpressionUUID->"5afa61f3-4882-48f1-b0a7-902bd18b465f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[81778, 2418, 1658, 50, 84, "Input",ExpressionUUID->"e9bb7d1b-70d2-4303-820c-4311107f8f4a"],
Cell[83439, 2470, 718, 19, 85, "Output",ExpressionUUID->"a946ab2f-1785-4032-9713-2c7b30eca2a4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[84194, 2494, 2971, 85, 224, "Input",ExpressionUUID->"7d13363a-3eb2-414d-9ae8-eda76ed2acad"],
Cell[87168, 2581, 1274, 36, 123, "Output",ExpressionUUID->"276a5472-8539-442e-ae1b-805ed4f31da4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[88479, 2622, 1700, 51, 84, "Input",ExpressionUUID->"4f2a3b7c-a66c-4904-bddb-5ed656c23039"],
Cell[90182, 2675, 720, 19, 85, "Output",ExpressionUUID->"0659e68d-75d8-45d7-80bd-32159b4511c8"]
}, Open  ]],
Cell[90917, 2697, 3048, 88, 224, "Input",ExpressionUUID->"c04b921d-fb28-4561-9070-f768512cb6c4"],
Cell[CellGroupData[{
Cell[93990, 2789, 2997, 86, 224, "Input",ExpressionUUID->"bfe6397e-c42c-45f1-8656-ffae632b479a"],
Cell[96990, 2877, 1298, 37, 123, "Output",ExpressionUUID->"0547ddc6-0382-497b-923b-5c926c63bda1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[98325, 2919, 223, 3, 46, "Input",ExpressionUUID->"47d0907c-8366-4d15-9919-11dcf4128e25"],
Cell[98551, 2924, 168, 2, 52, "Output",ExpressionUUID->"f4149d5e-6b9a-4dc5-a239-a62c0331f431"]
}, Open  ]],
Cell[CellGroupData[{
Cell[98756, 2931, 303, 7, 46, "Input",ExpressionUUID->"b59ba87d-bdfa-4e09-b1bb-06af9de093ed"],
Cell[99062, 2940, 515, 14, 52, "Output",ExpressionUUID->"060d3f4c-bdb3-4a40-980e-1a729278c61c"]
}, Open  ]],
Cell[99592, 2957, 204, 3, 46, "Input",ExpressionUUID->"4701d6a8-a2c6-4459-9365-06cadc063cf8"],
Cell[CellGroupData[{
Cell[99821, 2964, 217, 4, 46, "Input",ExpressionUUID->"e1a30d73-c6fa-4120-9d7e-d585663a5628"],
Cell[100041, 2970, 187, 3, 52, "Output",ExpressionUUID->"53d752d0-ab98-4716-8138-fe5107a9d604"]
}, Open  ]],
Cell[CellGroupData[{
Cell[100265, 2978, 303, 7, 46, "Input",ExpressionUUID->"bd3842d8-6c2d-489f-9036-f4538b5ad6bd"],
Cell[100571, 2987, 517, 14, 52, "Output",ExpressionUUID->"95420439-2b27-4e95-89c7-c72822a36911"]
}, Open  ]],
Cell[101103, 3004, 214, 3, 46, "Input",ExpressionUUID->"6ee82173-ef1a-44fa-a062-625b14edee4f"],
Cell[101320, 3009, 211, 3, 46, "Input",ExpressionUUID->"ed12f8d4-1fb4-4f41-abd7-5ba7495bb409"],
Cell[CellGroupData[{
Cell[101556, 3016, 1065, 30, 140, "Input",ExpressionUUID->"67b15499-cf52-4de9-af1a-e5489b3a542c"],
Cell[102624, 3048, 407, 10, 55, "Output",ExpressionUUID->"0608856f-2f42-423a-a648-dac875d15947"],
Cell[103034, 3060, 409, 10, 55, "Output",ExpressionUUID->"83a1f918-1908-4572-b810-1990ded3e90b"],
Cell[103446, 3072, 485, 12, 55, "Output",ExpressionUUID->"ed49b887-84db-4c1e-9dc0-ebabe1c772b8"],
Cell[103934, 3086, 483, 12, 55, "Output",ExpressionUUID->"282b3831-7914-42ee-bc24-753e6313babb"]
}, Open  ]],
Cell[CellGroupData[{
Cell[104454, 3103, 303, 7, 46, "Input",ExpressionUUID->"93331ef2-157e-4994-bed2-c894eb86011c"],
Cell[104760, 3112, 516, 14, 52, "Output",ExpressionUUID->"d0a0dfec-6252-40fd-8c79-4d2183d794b4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[105313, 3131, 129, 2, 46, "Input",ExpressionUUID->"c7ef0746-b54e-493f-a115-cd1d33ce7549"],
Cell[105445, 3135, 172, 3, 52, "Output",ExpressionUUID->"a1c5f2aa-37de-4c88-a5f8-ea9a29a3d7d8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[105654, 3143, 161, 3, 46, "Input",ExpressionUUID->"1344cc26-9318-4431-84b7-ee6631fd5594"],
Cell[105818, 3148, 172, 3, 52, "Output",ExpressionUUID->"f1f65b6f-fe44-4f8b-96d6-ca88e1bbcbf2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[106027, 3156, 179, 3, 46, "Input",ExpressionUUID->"b1ffc9a2-0e5b-4121-bd1a-44de3403109a"],
Cell[106209, 3161, 200, 3, 52, "Output",ExpressionUUID->"a5f5d285-4df2-40e7-87a4-59bfdf1bfe59"]
}, Open  ]],
Cell[CellGroupData[{
Cell[106446, 3169, 307, 8, 46, "Input",ExpressionUUID->"861a1329-b21a-46fd-9f6b-48b6d32a733f"],
Cell[106756, 3179, 522, 15, 52, "Output",ExpressionUUID->"771a03d3-19bb-42ee-b0fc-9ccadd61d456"]
}, Open  ]],
Cell[CellGroupData[{
Cell[107315, 3199, 800, 26, 140, "Input",ExpressionUUID->"1034048c-e11f-44e2-931a-c7bdf69b7f9e"],
Cell[108118, 3227, 495, 14, 55, "Output",ExpressionUUID->"4e0674f9-99c6-4ebb-aa1e-1782b26c036f"],
Cell[108616, 3243, 495, 14, 55, "Output",ExpressionUUID->"16a161d0-abcf-4ee1-9501-b7192aceaa11"],
Cell[109114, 3259, 571, 16, 55, "Output",ExpressionUUID->"1b7bd671-62d9-4a51-86fa-98c5a40d9902"],
Cell[109688, 3277, 571, 16, 55, "Output",ExpressionUUID->"791674cb-1141-49de-bca2-6ca019328e48"]
}, Open  ]],
Cell[CellGroupData[{
Cell[110296, 3298, 307, 8, 46, "Input",ExpressionUUID->"616774a6-090f-417a-95c2-7a06fc46a9aa"],
Cell[110606, 3308, 521, 15, 52, "Output",ExpressionUUID->"c6121e65-bb39-4d4b-b89b-8301b307d491"]
}, Open  ]],
Cell[111142, 3326, 227, 5, 46, "Input",ExpressionUUID->"f0b59b31-10e8-4405-8f04-d009f50d5525"],
Cell[111372, 3333, 154, 3, 46, "Input",ExpressionUUID->"ce985b0c-e28a-441b-a89e-b730003b3557"],
Cell[CellGroupData[{
Cell[111551, 3340, 307, 8, 46, "Input",ExpressionUUID->"5b177bcf-bd2b-42c6-bbab-5dbf6c9056ad"],
Cell[111861, 3350, 519, 15, 52, "Output",ExpressionUUID->"ef6d6473-2f30-4f3e-8aa4-56db5124092f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[112417, 3370, 177, 3, 46, "Input",ExpressionUUID->"88215548-80e0-4079-bea9-e7485f71a0a8"],
Cell[112597, 3375, 189, 4, 52, "Output",ExpressionUUID->"b2acdd54-2fbd-4cf6-b056-b0d278007a1a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[112823, 3384, 228, 5, 46, "Input",ExpressionUUID->"2d4ceaec-b04c-4e65-9566-3f6aaf84c4b9"],
Cell[113054, 3391, 174, 3, 52, "Output",ExpressionUUID->"d318e177-1309-4c87-8013-1ad6f89308e6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[113265, 3399, 307, 8, 46, "Input",ExpressionUUID->"e2c1559b-64ce-4029-ad3e-63fba8daa960"],
Cell[113575, 3409, 519, 15, 52, "Output",ExpressionUUID->"71427092-d942-4d87-a308-eba9cd28d6f0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[114131, 3429, 181, 3, 46, "Input",ExpressionUUID->"1b3db456-bdcb-46dc-aa26-12dfa6d7a723"],
Cell[114315, 3434, 497, 14, 55, "Output",ExpressionUUID->"adc360c3-1cc2-4728-b702-11acc4d1c894"]
}, Open  ]],
Cell[114827, 3451, 208, 4, 46, "Input",ExpressionUUID->"2017d469-a359-4043-8361-9ce2fb2a242d"],
Cell[CellGroupData[{
Cell[115060, 3459, 800, 26, 140, "Input",ExpressionUUID->"2ffe2880-c7b6-40b9-853b-6b26a518d63b"],
Cell[115863, 3487, 479, 14, 55, "Output",ExpressionUUID->"9a2cdd31-3be2-472d-bac2-9309ca6423e0"],
Cell[116345, 3503, 477, 14, 55, "Output",ExpressionUUID->"205dd724-321b-4053-8fcb-c7a108ce35bd"],
Cell[116825, 3519, 553, 16, 55, "Output",ExpressionUUID->"38a463a7-3c2f-43a7-ac35-635cc580c92f"],
Cell[117381, 3537, 553, 16, 55, "Output",ExpressionUUID->"30a535d5-4747-4044-902d-4772e5a0aea5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[117971, 3558, 307, 8, 46, "Input",ExpressionUUID->"6a87bc25-4371-4d84-8f2e-e3a7d6339e85"],
Cell[118281, 3568, 356, 9, 41, "Message",ExpressionUUID->"79724ddf-e6ae-4b1f-9fed-41df0430fd20"],
Cell[118640, 3579, 160, 3, 52, "Output",ExpressionUUID->"655c6ad0-eb93-47ac-974c-89d8447b0de1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[118837, 3587, 146, 3, 46, "Input",ExpressionUUID->"05c411e2-a2d3-4bdb-a296-51ebb3d34acd"],
Cell[118986, 3592, 189, 4, 52, "Output",ExpressionUUID->"1614821a-3153-441e-aed3-5aec8e49d59c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[119212, 3601, 182, 3, 46, "Input",ExpressionUUID->"c246f572-a328-4b66-a22f-680bf07b75a9"],
Cell[119397, 3606, 521, 14, 55, "Output",ExpressionUUID->"38bd80e0-082a-4b78-8737-7bb2b3d47946"]
}, Open  ]],
Cell[CellGroupData[{
Cell[119955, 3625, 248, 5, 46, "Input",ExpressionUUID->"d6d450fd-6bb7-4921-ac3b-24ee1e31a44e"],
Cell[120206, 3632, 189, 4, 52, "Output",ExpressionUUID->"bd4c53d0-b3e7-4a02-84ea-7c43ef2cf4ad"]
}, Open  ]],
Cell[CellGroupData[{
Cell[120432, 3641, 307, 8, 46, "Input",ExpressionUUID->"df66bfbc-5c75-489c-8232-7bf623a14b3e"],
Cell[120742, 3651, 519, 15, 52, "Output",ExpressionUUID->"07be9b37-e3b6-480e-9e89-acbca7f2f27b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[121298, 3671, 228, 4, 46, "Input",ExpressionUUID->"12b36b50-6515-469f-a050-b5cf1f3e2c38"],
Cell[121529, 3677, 174, 3, 52, "Output",ExpressionUUID->"28112657-ebb6-421a-971f-ca73cc890a9a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[121740, 3685, 307, 8, 46, "Input",ExpressionUUID->"f9dd032f-979b-4597-a7df-4699caf9dac9"],
Cell[122050, 3695, 521, 15, 52, "Output",ExpressionUUID->"4f014b1b-4430-4f59-aac3-99f2b639b1b4"]
}, Open  ]],
Cell[122586, 3713, 209, 4, 46, "Input",ExpressionUUID->"8ae71ee3-a1b8-4047-94f9-b1b8828a0dbd"],
Cell[122798, 3719, 207, 4, 46, "Input",ExpressionUUID->"ed40d4a8-d3b7-469b-85a9-2017d58c3623"],
Cell[123008, 3725, 210, 4, 46, "Input",ExpressionUUID->"147b807f-3a02-4809-a86c-10792bd0785b"],
Cell[123221, 3731, 212, 4, 46, "Input",ExpressionUUID->"5641d07a-9cd8-48d1-b3f3-ab9b7b88fbe5"],
Cell[123436, 3737, 207, 4, 46, "Input",ExpressionUUID->"53675d70-9873-48e7-a864-d3bce587fc1e"],
Cell[CellGroupData[{
Cell[123668, 3745, 1037, 29, 140, "Input",ExpressionUUID->"d5d7516b-8fc7-42b3-932f-692148e02e88"],
Cell[124708, 3776, 436, 14, 55, "Output",ExpressionUUID->"75eb1f01-b442-499d-a909-0d181c791563"],
Cell[125147, 3792, 436, 14, 55, "Output",ExpressionUUID->"0133e212-814e-4ca8-9e14-0ba635c9165c"],
Cell[125586, 3808, 497, 16, 55, "Output",ExpressionUUID->"6912705f-7e38-48d8-bdf1-339ed123b59c"],
Cell[126086, 3826, 497, 16, 55, "Output",ExpressionUUID->"c39ca149-d7c7-436c-9dc3-1256bc93fbd8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[126620, 3847, 420, 10, 46, "Input",ExpressionUUID->"9c176489-bd74-476e-b577-bccbf83413bf"],
Cell[127043, 3859, 375, 9, 41, "Message",ExpressionUUID->"c95eb35d-8395-4fcf-95a4-6a6d606b0391"],
Cell[127421, 3870, 18352, 512, 927, "Output",ExpressionUUID->"2c166f62-3182-4b06-89ac-115b7451753e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[145810, 4387, 677, 16, 78, "Input",ExpressionUUID->"bc1ae45f-19bf-42d2-998c-5a06a0c3114a"],
Cell[146490, 4405, 577, 15, 52, "Output",ExpressionUUID->"7e53fa8a-266c-4c9e-b0ab-600ae6f66974"]
}, Open  ]],
Cell[CellGroupData[{
Cell[147104, 4425, 233, 5, 46, "Input",ExpressionUUID->"acab5df9-338a-42de-87a7-8e7996173fea"],
Cell[147340, 4432, 3917, 117, 219, "Output",ExpressionUUID->"b1bbf9a8-f266-4564-9528-4b2bafb56219"]
}, Open  ]],
Cell[151272, 4552, 416, 11, 78, "Input",ExpressionUUID->"19b04c50-ee84-4504-92a6-746465cd4260"],
Cell[CellGroupData[{
Cell[151713, 4567, 788, 24, 82, "Input",ExpressionUUID->"2520b8d4-3f87-480e-9699-33b1fe65e8e7"],
Cell[152504, 4593, 194, 4, 52, "Output",ExpressionUUID->"61b1352e-16b8-41b1-86a7-061f9b485064"]
}, Open  ]],
Cell[CellGroupData[{
Cell[152735, 4602, 580, 16, 81, "Input",ExpressionUUID->"322dfde7-ce27-414b-8403-71b996adfe96"],
Cell[153318, 4620, 187, 4, 52, "Output",ExpressionUUID->"5bbd4fbe-49e6-4a98-9fbe-f1b865992c45"]
}, Open  ]],
Cell[CellGroupData[{
Cell[153542, 4629, 557, 15, 78, "Input",ExpressionUUID->"b15d0986-0f8f-4acb-909b-0ec5a7913fa4"],
Cell[154102, 4646, 344, 8, 52, "Output",ExpressionUUID->"f1109d58-6fde-4023-9565-822dc356f0a6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[154483, 4659, 529, 14, 78, "Input",ExpressionUUID->"f8ed6755-876d-4a55-91f2-f64168d80128"],
Cell[155015, 4675, 338, 8, 52, "Output",ExpressionUUID->"964db3c6-4a4a-4343-abc1-95a3655d686f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[155390, 4688, 442, 12, 78, "Input",ExpressionUUID->"e5dabd34-e5aa-4398-a198-13c18cc61875"],
Cell[155835, 4702, 316, 8, 52, "Output",ExpressionUUID->"f48ac4d0-d1f4-4268-82f6-f692fe11bbbf"]
}, Open  ]],
Cell[CellGroupData[{
Cell[156188, 4715, 728, 23, 140, "Input",ExpressionUUID->"4534f972-a0fb-49e8-8380-d05b41c5d50a"],
Cell[156919, 4740, 343, 11, 55, "Output",ExpressionUUID->"010744a8-5617-4560-96a9-789835fcb4e7"],
Cell[157265, 4753, 343, 11, 55, "Output",ExpressionUUID->"4bb603f0-7f86-40a9-ae8e-87ba7a27f600"],
Cell[157611, 4766, 406, 13, 55, "Output",ExpressionUUID->"dc25eb2b-b422-431f-ba66-bddbfceb64d4"],
Cell[158020, 4781, 406, 13, 55, "Output",ExpressionUUID->"0a672653-5a2d-4951-9b2d-ce642e059a4e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[158463, 4799, 420, 10, 46, "Input",ExpressionUUID->"db4e6bee-e89a-4dd8-8d30-0a1eb93026cd"],
Cell[158886, 4811, 354, 9, 41, "Message",ExpressionUUID->"a853d224-bc24-4279-959e-3434f6245916"],
Cell[159243, 4822, 1618, 54, 177, "Output",ExpressionUUID->"ea00751f-a135-417f-b3b7-52a5edf80ce0"]
}, Open  ]],
Cell[160876, 4879, 977, 31, 140, "Input",ExpressionUUID->"97f492a9-3513-457f-9e2d-e261cd5d9f57"],
Cell[CellGroupData[{
Cell[161878, 4914, 846, 27, 140, "Input",ExpressionUUID->"e6a977e8-9a42-49ed-a49b-871935c252ee"],
Cell[162727, 4943, 377, 12, 55, "Output",ExpressionUUID->"54373a41-a40c-49db-9149-0ff97672f0d5"],
Cell[163107, 4957, 379, 12, 55, "Output",ExpressionUUID->"d7b1a23d-55a0-43d7-baf9-eced521b351c"],
Cell[163489, 4971, 426, 13, 55, "Output",ExpressionUUID->"de4e3bdd-1033-4368-a58d-b8cc64e6d891"],
Cell[163918, 4986, 426, 13, 55, "Output",ExpressionUUID->"8c6b5455-f826-4c3d-b4f7-c268d99d50ba"]
}, Open  ]],
Cell[CellGroupData[{
Cell[164381, 5004, 418, 10, 46, "Input",ExpressionUUID->"34977a0a-1f21-498e-b48e-4eb2a95c4c8f"],
Cell[164802, 5016, 354, 9, 41, "Message",ExpressionUUID->"31fb26aa-0dec-483e-92ff-1288b0ff4747"],
Cell[165159, 5027, 10264, 284, 524, "Output",ExpressionUUID->"f6f6d68d-3298-4ae1-b504-8770134e54ff"]
}, Open  ]],
Cell[CellGroupData[{
Cell[175460, 5316, 510, 13, 78, "Input",ExpressionUUID->"4481e5b6-40e7-488e-a8c3-b4d586387e5a"],
Cell[175973, 5331, 294, 7, 52, "Output",ExpressionUUID->"357a34f3-b96c-4c27-b8e0-54d077822c24"]
}, Open  ]],
Cell[CellGroupData[{
Cell[176304, 5343, 505, 14, 78, "Input",ExpressionUUID->"1f435bb5-fba3-4f6f-af90-65d30e8b78ca"],
Cell[176812, 5359, 314, 8, 52, "Output",ExpressionUUID->"a4b16a9c-1780-42f1-b671-1c32f7b287b8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[177163, 5372, 2274, 75, 264, "Input",ExpressionUUID->"abae3d5f-ce39-453b-83cd-8b6ef59e413b"],
Cell[179440, 5449, 365, 8, 41, "Message",ExpressionUUID->"05e6b767-3028-4410-8ec4-9cb4e08e0809"],
Cell[179808, 5459, 413, 11, 52, "Output",ExpressionUUID->"75b836c6-57c8-4c3e-9da5-7b3788c79707"],
Cell[180224, 5472, 453, 13, 52, "Output",ExpressionUUID->"e6e25a9a-fc70-4ad9-8bc0-52bb656ed0cf"],
Cell[180680, 5487, 358, 10, 52, "Output",ExpressionUUID->"56c056f2-299a-4a38-b025-2c1e97fe7f4a"],
Cell[181041, 5499, 507, 16, 55, "Output",ExpressionUUID->"36e63269-3b9c-4cef-b741-8dc2a865f75b"],
Cell[181551, 5517, 782, 25, 60, "Output",ExpressionUUID->"3d03743f-eec5-4846-a118-ed29640942c0"],
Cell[182336, 5544, 491, 14, 52, "Output",ExpressionUUID->"ec23a759-5fdd-42a8-b4a1-bba4c0168e22"],
Cell[182830, 5560, 324, 9, 52, "Output",ExpressionUUID->"588ea7f9-d016-43ee-ab4d-89f06ad9908a"],
Cell[183157, 5571, 894, 28, 60, "Output",ExpressionUUID->"bc93084e-4aa5-41f2-ac1c-2e10416dcda9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[184088, 5604, 1631, 51, 78, "Input",ExpressionUUID->"d04275e1-bb39-4292-b2c3-5e3466eb0c3f"],
Cell[185722, 5657, 8439, 240, 498, "Output",ExpressionUUID->"8dfccf00-540a-4ad9-a472-49179973883c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[194198, 5902, 463, 13, 78, "Input",ExpressionUUID->"b63d0bbb-6a82-4348-863f-cdb105e4217d"],
Cell[194664, 5917, 314, 8, 52, "Output",ExpressionUUID->"fb9eb850-e726-4bce-9e89-873da2415457"]
}, Open  ]],
Cell[CellGroupData[{
Cell[195015, 5930, 529, 14, 78, "Input",ExpressionUUID->"60ecfcac-486e-4d4a-9145-d69673bc33a8"],
Cell[195547, 5946, 338, 9, 68, "Output",ExpressionUUID->"c6169ece-5c9f-48b1-8ad1-5e0380abfef4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[195922, 5960, 407, 12, 46, "Input",ExpressionUUID->"c6ba8c72-936c-43fd-9352-3b19c8613f22"],
Cell[196332, 5974, 343, 8, 41, "Message",ExpressionUUID->"9d437447-d443-488f-9372-2d10735b657b"],
Cell[196678, 5984, 391, 11, 52, "Output",ExpressionUUID->"4c9b72e3-fe99-4f12-b91b-993d07d08205"]
}, Open  ]],
Cell[CellGroupData[{
Cell[197106, 6000, 477, 13, 46, "Input",ExpressionUUID->"d234d8d9-cc57-440b-96cc-3303d7f6e084"],
Cell[197586, 6015, 391, 11, 52, "Output",ExpressionUUID->"3c8077d3-99ec-4b88-bedb-8933cd57ece7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[198014, 6031, 1631, 51, 78, "Input",ExpressionUUID->"b132f167-ce6b-4e7f-bfbd-de87059485e9"],
Cell[199648, 6084, 9714, 274, 554, "Output",ExpressionUUID->"663d617a-c41e-4a66-ab54-7a882eff9166"]
}, Open  ]],
Cell[CellGroupData[{
Cell[209399, 6363, 531, 14, 78, "Input",ExpressionUUID->"14c4bba2-dcc6-4388-82b9-9fb3a04d5b14"],
Cell[209933, 6379, 317, 7, 52, "Output",ExpressionUUID->"207d49e1-4d18-46d9-b5e2-d51d9c5da760"]
}, Open  ]],
Cell[CellGroupData[{
Cell[210287, 6391, 669, 17, 46, "Input",ExpressionUUID->"647fa44d-e7ad-477e-962e-db0e8bf4d6c5"],
Cell[210959, 6410, 10262, 284, 524, "Output",ExpressionUUID->"b20c89f1-b1fb-4abe-89f8-ab8ea07089cc"]
}, Open  ]],
Cell[221236, 6697, 211, 4, 46, "Input",ExpressionUUID->"493a4f87-c343-4f66-b19f-bfb537d76f20"],
Cell[221450, 6703, 209, 4, 46, "Input",ExpressionUUID->"f4fb7235-9c93-4a13-8465-94d80ea0c676"],
Cell[221662, 6709, 210, 4, 46, "Input",ExpressionUUID->"d34ae737-413a-413f-8bdf-f3ca1f337c65"],
Cell[221875, 6715, 207, 4, 46, "Input",ExpressionUUID->"be79a367-46f8-43c3-a9c7-35e5f274832f"],
Cell[CellGroupData[{
Cell[222107, 6723, 678, 18, 46, "Input",ExpressionUUID->"3559da47-3477-4c7a-b274-0fe138252051"],
Cell[222788, 6743, 10313, 285, 524, "Output",ExpressionUUID->"56e56b81-d030-43d3-a679-2e94d837f00f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[233138, 7033, 564, 16, 46, "Input",ExpressionUUID->"9a057a3a-353c-40e9-afd0-e883fd7b3d99"],
Cell[233705, 7051, 795, 23, 55, "Output",ExpressionUUID->"eecaa3ac-b544-41dd-b59a-2ed601abd1dc"]
}, Open  ]],
Cell[234515, 7077, 207, 4, 46, "Input",ExpressionUUID->"d4459e59-583f-4c81-aa34-e900c39eb4fe"],
Cell[CellGroupData[{
Cell[234747, 7085, 152, 3, 46, "Input",ExpressionUUID->"7346854a-f7d9-47d5-bcad-08583a74119d"],
Cell[234902, 7090, 391, 11, 52, "Output",ExpressionUUID->"f8675f30-1687-421a-afe2-31e5808447a3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[235330, 7106, 3192, 94, 228, "Input",ExpressionUUID->"3fcadb75-a85d-44b6-8176-70e561683cee"],
Cell[238525, 7202, 158, 3, 52, "Output",ExpressionUUID->"3cec6c30-0fd4-4f5d-aded-bce217e24cba"]
}, Open  ]],
Cell[CellGroupData[{
Cell[238720, 7210, 9291, 251, 664, "Input",ExpressionUUID->"37eed0a7-1425-434a-8bc7-9670886d0665"],
Cell[248014, 7463, 8830, 247, 482, "Output",ExpressionUUID->"ce59195a-fac6-4a84-b382-99f0f09c0d2b"]
}, Open  ]],
Cell[256859, 7713, 152, 3, 46, "Input",ExpressionUUID->"a1cc09be-0766-4458-9aba-c351cead2f25"],
Cell[CellGroupData[{
Cell[257036, 7720, 118, 2, 46, "Input",ExpressionUUID->"eab21b0d-ef1b-4336-9023-5a7c6c3006c9"],
Cell[257157, 7724, 10262, 284, 524, "Output",ExpressionUUID->"8826db63-605e-4d89-8c00-b9ac13cf0174"]
}, Open  ]],
Cell[267434, 8011, 154, 3, 46, "Input",ExpressionUUID->"acd12c17-7025-401a-bad6-869f0f5f5420"],
Cell[CellGroupData[{
Cell[267613, 8018, 979, 27, 78, "Input",ExpressionUUID->"3e5b99aa-482f-44d3-84e2-2aee03133b21"],
Cell[268595, 8047, 320, 7, 52, "Output",ExpressionUUID->"70643ecd-07b4-42af-ad8f-9d8ecc9002b1"]
}, Open  ]],
Cell[268930, 8057, 152, 3, 46, "Input",ExpressionUUID->"a7df0f39-8eda-4782-8855-c9cb78d0cc38"],
Cell[CellGroupData[{
Cell[269107, 8064, 549, 14, 78, "Input",ExpressionUUID->"1a535cfa-3d42-43bf-b52f-133dcea37824"],
Cell[269659, 8080, 318, 7, 52, "Output",ExpressionUUID->"1526cab9-05a9-4e23-acdd-75be063ebf07"]
}, Open  ]],
Cell[CellGroupData[{
Cell[270014, 8092, 135, 3, 46, "Input",ExpressionUUID->"6f0f9b3e-5c7b-46d1-ae7b-78b60a001a2e"],
Cell[270152, 8097, 8806, 247, 482, "Output",ExpressionUUID->"d6f1c905-c04c-4d47-a4f5-08f1b3568bf6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[278995, 8349, 8173, 225, 560, "Input",ExpressionUUID->"2c6902d3-acff-427c-9f58-73b4194ce31d"],
Cell[287171, 8576, 7901, 222, 430, "Output",ExpressionUUID->"810e0ee9-9bd2-48b5-9284-2f187d4dfec1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[295109, 8803, 152, 3, 46, "Input",ExpressionUUID->"357070f0-ddf0-4867-a56e-2b477f9668d2"],
Cell[295264, 8808, 427, 13, 52, "Output",ExpressionUUID->"79664ff8-b623-470f-b072-eb2a7ea38955"]
}, Open  ]],
Cell[295706, 8824, 194, 3, 78, "Input",ExpressionUUID->"e2ad145d-57a8-42d9-b6d9-8c91319772b3"],
Cell[CellGroupData[{
Cell[295925, 8831, 1381, 40, 109, "Input",ExpressionUUID->"b0a318b4-7dd8-4418-b05a-e141bc6c03dd"],
Cell[297309, 8873, 322, 7, 52, "Output",ExpressionUUID->"b6b97abb-f11b-4d69-aec7-ea0c0dcfe54f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[297668, 8885, 117, 2, 46, "Input",ExpressionUUID->"58eeccfe-7801-4e87-82e1-ca11529348f0"],
Cell[297788, 8889, 7877, 222, 430, "Output",ExpressionUUID->"171de716-dc05-44ef-8345-e6c329738d11"]
}, Open  ]],
Cell[CellGroupData[{
Cell[305702, 9116, 3097, 89, 397, "Input",ExpressionUUID->"7a54b05e-2845-4763-9968-4a4ff4b5f178"],
Cell[308802, 9207, 2903, 87, 246, "Output",ExpressionUUID->"4a71bf2b-4abe-40be-ba71-485a42c60243"]
}, Open  ]],
Cell[311720, 9297, 207, 4, 46, "Input",ExpressionUUID->"a136f041-4203-45c6-9f40-5746c426d741"],
Cell[CellGroupData[{
Cell[311952, 9305, 2264, 67, 140, "Input",ExpressionUUID->"178f3421-34a7-46d7-a362-9fa08ae359fc"],
Cell[314219, 9374, 320, 7, 52, "Output",ExpressionUUID->"08ba7b93-7e95-480c-a7c2-c0cda770ae35"]
}, Open  ]],
Cell[CellGroupData[{
Cell[314576, 9386, 117, 2, 46, "Input",ExpressionUUID->"c7d550dd-55fc-4005-932f-7877375ab2fb"],
Cell[314696, 9390, 2879, 87, 246, "Output",ExpressionUUID->"55cbe003-ccda-4d00-bc5e-54550213b22f"]
}, Open  ]],
Cell[317590, 9480, 274, 6, 46, "Input",ExpressionUUID->"597eda42-ffe1-409d-857c-a06c1c672362"],
Cell[317867, 9488, 152, 3, 46, "Input",ExpressionUUID->"8ec7139c-4514-4c8d-ad59-61f00fb56152"],
Cell[CellGroupData[{
Cell[318044, 9495, 2238, 67, 149, "Input",ExpressionUUID->"4bcfaa72-0fb9-4499-8670-74de06b6bf95"],
Cell[320285, 9564, 2059, 64, 139, "Output",ExpressionUUID->"398218be-bc6b-483e-8443-6581bcad940a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[322381, 9633, 2800, 82, 171, "Input",ExpressionUUID->"e01fa4c5-e76a-4e56-a943-6d3462651ba8"],
Cell[325184, 9717, 294, 7, 52, "Output",ExpressionUUID->"aaaed81f-fed2-4279-91d4-bdce3c75a906"]
}, Open  ]],
Cell[325493, 9727, 209, 4, 46, "Input",ExpressionUUID->"03c417fa-b42d-40db-9048-d0e61c64e5b9"],
Cell[CellGroupData[{
Cell[325727, 9735, 135, 3, 46, "Input",ExpressionUUID->"939029ef-7e18-497d-aee2-70f94e82a087"],
Cell[325865, 9740, 2059, 64, 139, "Output",ExpressionUUID->"1953252b-3539-4509-8e79-b8a0f2a75bbd"]
}, Open  ]],
Cell[327939, 9807, 1731, 54, 135, "Input",ExpressionUUID->"b1d56bf1-e86b-4324-b48e-66d1be6720a8"],
Cell[CellGroupData[{
Cell[329695, 9865, 3220, 93, 202, "Input",ExpressionUUID->"f89ee31b-c9e1-4481-8150-910baa09cad1"],
Cell[332918, 9960, 362, 9, 52, "Output",ExpressionUUID->"a1213983-213c-4dfe-a258-8ce07c041213"]
}, Open  ]],
Cell[333295, 9972, 135, 3, 46, "Input",ExpressionUUID->"8012cce8-8932-44ad-b5b0-102e19c11435"],
Cell[333433, 9977, 2159, 67, 149, "Input",ExpressionUUID->"39169af5-3f41-42f7-add4-f9f553e063d1"],
Cell[335595, 10046, 2136, 67, 143, "Output",ExpressionUUID->"b4d87945-b6f0-4bd1-99c6-7e4b64630744"],
Cell[CellGroupData[{
Cell[337756, 10117, 651, 20, 46, "Input",ExpressionUUID->"a198d2d4-e0b9-4393-bb21-30879535127d"],
Cell[338410, 10139, 192, 4, 52, "Output",ExpressionUUID->"c6b9a5e7-f88b-40e6-bc5a-00033ef7afa0"]
}, Open  ]],
Cell[338617, 10146, 207, 4, 46, "Input",ExpressionUUID->"7e3c55fe-c472-46f6-85c3-2e1b57006280"],
Cell[338827, 10152, 467, 13, 46, "Input",ExpressionUUID->"5f6b2dab-985c-47e4-9626-c33246ae9c3d"],
Cell[339297, 10167, 1076, 37, 103, "Input",ExpressionUUID->"8a39f08d-4138-480d-9cba-548c1692abef"],
Cell[340376, 10206, 612, 21, 63, "Output",ExpressionUUID->"44957d21-8912-4500-ae69-ca3e10c38fe6"],
Cell[340991, 10229, 172, 4, 52, "Output",ExpressionUUID->"e199e35d-24d5-4fee-94c2-96d0e2e1552f"],
Cell[CellGroupData[{
Cell[341188, 10237, 618, 19, 58, "Input",ExpressionUUID->"25c5f793-982c-46ff-83b1-fa4b4f8b9664"],
Cell[341809, 10258, 194, 4, 52, "Output",ExpressionUUID->"2556ddf6-162c-465a-bb65-d424980482c6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[342040, 10267, 667, 19, 46, "Input",ExpressionUUID->"b62885bd-6d92-46af-bd72-7f8cf9afc604"],
Cell[342710, 10288, 194, 4, 52, "Output",ExpressionUUID->"d05c432e-0232-47b7-af02-505f73dbeb03"]
}, Open  ]]
}
]
*)