9-InterEsferas+1Casca-Classico+AGC.nb

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

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

(* CreatedBy='Mathematica 11.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    540424,      11182]
NotebookOptionsPosition[    528072,      11028]
NotebookOutlinePosition[    528415,      11043]
CellTagsIndexPosition[    528372,      11040]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[TextData[{
 "Carrega pacote ",
 StyleBox["clifford.m",
  FontSlant->"Italic"]
}], "Subchapter",
 CellChangeTimes->{{3.7656278726753297`*^9, 3.7656278925341644`*^9}, 
   3.7656279268074245`*^9, {3.765628114288554*^9, 3.765628115820157*^9}, {
   3.7987573307876263`*^9, 
   3.7987573314880047`*^9}},ExpressionUUID->"26650087-23b0-4378-83f2-\
05d5c650ade8"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"carrega", " ", "o", " ", "pacote", " ", 
    RowBox[{"clifford", ".", "m"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"<<", "\"\<clifford.m\>\""}]}]], "Input",
 CellChangeTimes->{{3.7652802695654383`*^9, 3.765280292507471*^9}, {
  3.7656281096865463`*^9, 3.76562811169895*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"9fef554c-1702-43b7-b301-6e540c06f21a"],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{{3.7994041149371243`*^9, 3.799404117622236*^9}},
 CellLabel->"In[2]:=",ExpressionUUID->"e1d99a6a-43c6-4587-b964-b70b0ca78d81"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Gera inst\[AHat]ncia\n",
 StyleBox["erroMDE, geraEsferas, geraEsferas1Casca", "Text",
  FontSize->15,
  FontSlant->"Italic"]
}], "Subchapter",
 CellChangeTimes->{{3.76562790151978*^9, 3.765627921784216*^9}, {
   3.765627969130299*^9, 3.765627999799953*^9}, {3.765704994232566*^9, 
   3.765705000909377*^9}, 3.7657051420896254`*^9, {3.7990141869129524`*^9, 
   3.7990141869819098`*^9}},ExpressionUUID->"8af60466-166f-4f45-b87d-\
19acdcfce888"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"calcula", " ", "erro", " ", "MDE"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"erroMDE", "[", 
      RowBox[{"x_", ",", "A_", ",", "d_", ",", "m_"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"MDE", ",", "ii"}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"MDE", "=", "0"}], ";", "\[IndentingNewLine]", 
        RowBox[{"For", "[", 
         RowBox[{
          RowBox[{"ii", "=", "1"}], ",", 
          RowBox[{"ii", "\[LessEqual]", "m"}], ",", 
          RowBox[{"ii", "++"}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"MDE", "=", 
            RowBox[{"MDE", "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"1", "/", 
                RowBox[{"d", "[", 
                 RowBox[{"[", "ii", "]"}], "]"}]}], ")"}], "*", 
              RowBox[{"Abs", "[", 
               RowBox[{
                RowBox[{"Norm", "[", 
                 RowBox[{"x", "-", 
                  RowBox[{"A", "[", 
                   RowBox[{"[", 
                    RowBox[{";;", ",", "ii"}], "]"}], "]"}]}], "]"}], "-", 
                RowBox[{"d", "[", 
                 RowBox[{"[", "ii", "]"}], "]"}]}], "]"}]}]}]}], ";"}]}], 
         "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"MDE", "=", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "/", "m"}], ")"}], "*", "MDE"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"Return", "[", "MDE", "]"}], ";"}]}], "\[IndentingNewLine]", 
      "]"}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.7652802867074633`*^9, 3.7652802898774676`*^9}, {
  3.765705117925183*^9, 3.765705125381996*^9}, {3.765708548577239*^9, 
  3.7657085487172394`*^9}, {3.7987573439254847`*^9, 3.798757345133089*^9}, {
  3.799489903865387*^9, 3.799489906061056*^9}},
 CellLabel->"In[76]:=",ExpressionUUID->"f80fbb55-5233-4ed1-9f70-471dbd87b2b2"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"gera", " ", "matriz", " ", 
     RowBox[{"n", "\[Cross]", "m"}], " ", "de", " ", "rank", " ", "k"}], ",", 
    " ", 
    RowBox[{
     RowBox[{
     "cujas", " ", "colunas", " ", "s\[ATilde]o", " ", "os", " ", "centros", 
      " ", "das", " ", "m", " ", "esferas"}], ";", " ", "\[IndentingNewLine]",
      "   ", 
     RowBox[{
     "gera", " ", "vetor", " ", "com", " ", "os", " ", "respectivos", " ", 
      "raios"}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"geraEsferas", "[", 
      RowBox[{"m_", ",", "n_", ",", "kk_"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "A", ",", "ii", ",", "jj", ",", "d", ",", "lambda", ",", "u", ",", 
         "v", ",", "Amin", ",", "Amax", ",", "xstar", ",", "di"}], "}"}], ",",
        "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"A", "=", 
         RowBox[{"Table", "[", 
          RowBox[{"0", ",", 
           RowBox[{"{", 
            RowBox[{"ii", ",", "n"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"jj", ",", "m"}], "}"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"d", "=", 
         RowBox[{"Table", "[", 
          RowBox[{"0", ",", 
           RowBox[{"{", 
            RowBox[{"ii", ",", "m"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"jj", ",", "1"}], "}"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"For", "[", 
         RowBox[{
          RowBox[{"ii", "=", "1"}], ",", 
          RowBox[{"ii", "\[LessEqual]", "kk"}], ",", 
          RowBox[{"ii", "++"}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"SeedRandom", "[", "ii", "]"}], ";", "\[IndentingNewLine]", 
           RowBox[{"lambda", "=", 
            RowBox[{"RandomReal", "[", 
             RowBox[{"{", 
              RowBox[{"0", ",", "10"}], "}"}], "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"SeedRandom", "[", 
            RowBox[{"ii", "+", "1"}], "]"}], ";", "\[IndentingNewLine]", 
           RowBox[{"u", "=", 
            RowBox[{"RandomReal", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"0", ",", "1"}], "}"}], ",", "n"}], "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"SeedRandom", "[", 
            RowBox[{"ii", "+", "2"}], "]"}], ";", "\[IndentingNewLine]", 
           RowBox[{"v", "=", 
            RowBox[{"RandomReal", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"0", ",", "1"}], "}"}], ",", "m"}], "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"A", "=", 
            RowBox[{"A", "+", 
             RowBox[{"lambda", "*", 
              RowBox[{"Outer", "[", 
               RowBox[{"Times", ",", "u", ",", "v"}], "]"}]}]}]}], ";"}]}], 
         "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"Amin", "=", 
         RowBox[{"Min", "[", "A", "]"}]}], ";", 
        RowBox[{"Amax", "=", 
         RowBox[{"Max", "[", "A", "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"SeedRandom", "[", "123", "]"}], ";", 
        RowBox[{"xstar", "=", 
         RowBox[{"RandomReal", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"Amin", ",", "Amax"}], "}"}], ",", "n"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"For", "[", 
         RowBox[{
          RowBox[{"ii", "=", "1"}], ",", 
          RowBox[{"ii", "\[LessEqual]", "kk"}], ",", 
          RowBox[{"ii", "++"}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"di", "=", 
            RowBox[{"Norm", "[", 
             RowBox[{"xstar", "-", 
              RowBox[{"A", "[", 
               RowBox[{"[", 
                RowBox[{";;", ",", "ii"}], "]"}], "]"}]}], "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"d", "[", 
             RowBox[{"[", 
              RowBox[{"ii", ",", "1"}], "]"}], "]"}], "=", "di"}], ";"}]}], 
         "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{
         "inst\[AHat]ncia", " ", "manual", " ", "para", " ", "testes"}], " ", 
         "*)"}], "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{"A", "=", 
           RowBox[{"Transpose", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"0", ",", "0", ",", 
                RowBox[{"-", "0.1"}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"1.6", ",", "0.45", ",", "0.45"}], "}"}]}], "}"}], 
            "]"}]}], ";", "\[IndentingNewLine]", 
          RowBox[{"d", "=", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", "1.0", "}"}], ",", 
             RowBox[{"{", "0.7", "}"}], ",", 
             RowBox[{"{", "0.9", "}"}]}], "}"}]}], ";"}], "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{"Return", "[", 
         RowBox[{"{", 
          RowBox[{"A", ",", "d"}], "}"}], "]"}], ";"}]}], 
      "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{"gera", " ", "matriz", " ", 
      RowBox[{"n", "\[Cross]", "m"}], " ", "de", " ", "rank", " ", "k"}], ",",
      " ", 
     RowBox[{
      RowBox[{
      "cujas", " ", "colunas", " ", "s\[ATilde]o", " ", "os", " ", "centros", 
       " ", "das", " ", "m", " ", "esferas", " ", "e", " ", "uma", " ", 
       "casca"}], ";", "\[IndentingNewLine]", "   ", 
      RowBox[{
      "gera", " ", "vetor", " ", "com", " ", "os", " ", "respectivos", " ", 
       "raios"}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"geraEsferas1Casca", "[", 
      RowBox[{"m_", ",", "n_", ",", "kk_"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "A", ",", "ii", ",", "jj", ",", "d", ",", "lambda", ",", "u", ",", 
         "v", ",", "MatEsferas", ",", "Amin", ",", "Amax", ",", "xstar", ",", 
         "di", ",", "ccasca", ",", "dxcasca", ",", "alpha", ",", "beta", ",", 
         "dcascaint", ",", "dcascaext", ",", "Abar"}], "}"}], ",", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"A", "=", 
         RowBox[{"Table", "[", 
          RowBox[{"0", ",", 
           RowBox[{"{", 
            RowBox[{"ii", ",", "n"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"jj", ",", "m"}], "}"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{"Abar", "=", 
           RowBox[{"Table", "[", 
            RowBox[{"0", ",", 
             RowBox[{"{", 
              RowBox[{"ii", ",", "n"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"jj", ",", 
               RowBox[{"m", "+", "1"}]}], "}"}]}], "]"}]}], ";"}], "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{"d", "=", 
         RowBox[{"Table", "[", 
          RowBox[{"0", ",", 
           RowBox[{"{", 
            RowBox[{"ii", ",", 
             RowBox[{"m", "+", "1"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"jj", ",", "1"}], "}"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{
        "Print", "[", "\"\<___ gera inst\[AHat]ncia cascas + esfera ___\>\"", 
         "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"(*", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"For", "[", 
           RowBox[{
            RowBox[{"ii", "=", "1"}], ",", 
            RowBox[{"ii", "\[LessEqual]", "kk"}], ",", 
            RowBox[{"ii", "++"}], ",", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"SeedRandom", "[", "ii", "]"}], ";", " ", 
             RowBox[{"lambda", "=", 
              RowBox[{"RandomReal", "[", 
               RowBox[{"{", 
                RowBox[{"0", ",", "10"}], "}"}], "]"}]}], ";", 
             "\[IndentingNewLine]", 
             RowBox[{"SeedRandom", "[", 
              RowBox[{"ii", "+", "1"}], "]"}], ";", " ", 
             RowBox[{"u", "=", 
              RowBox[{"RandomReal", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"0", ",", "1"}], "}"}], ",", "n"}], "]"}]}], ";", 
             "\[IndentingNewLine]", 
             RowBox[{"SeedRandom", "[", 
              RowBox[{"ii", "+", "2"}], "]"}], ";", " ", 
             RowBox[{"v", "=", 
              RowBox[{"RandomReal", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"0", ",", "1"}], "}"}], ",", "m"}], "]"}]}], ";", 
             "\[IndentingNewLine]", 
             RowBox[{"A", "=", 
              RowBox[{"A", "+", 
               RowBox[{"lambda", "*", 
                RowBox[{"Outer", "[", 
                 RowBox[{"Times", ",", "u", ",", "v"}], "]"}]}]}]}], ";"}]}], 
           "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
          RowBox[{"Print", "[", 
           RowBox[{"\"\<>> A = \>\"", ",", 
            RowBox[{"Style", "[", 
             RowBox[{"A", ",", "Red"}], "]"}], ",", "\"\<, rank(A)= \>\"", 
            ",", 
            RowBox[{"Style", "[", 
             RowBox[{
              RowBox[{"MatrixRank", "[", "A", "]"}], ",", "Red"}], "]"}], ",",
             " ", "\"\<, A = \>\"", ",", 
            RowBox[{"Style", "[", 
             RowBox[{
              RowBox[{"MatrixForm", "[", "A", "]"}], ",", "Red"}], "]"}]}], 
           "]"}], ";", "\[IndentingNewLine]", 
          RowBox[{"Abar", " ", "=", " ", 
           RowBox[{"Transpose", "[", 
            RowBox[{"Append", "[", 
             RowBox[{
              RowBox[{"Transpose", "[", "A", "]"}], ",", 
              RowBox[{"RandomReal", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"5", "*", 
                   RowBox[{"Max", "[", "A", "]"}]}], ",", 
                  RowBox[{"10", "*", 
                   RowBox[{"Max", "[", "A", "]"}]}]}], "}"}], ",", "n"}], 
               "]"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
          RowBox[{"Print", "[", 
           RowBox[{"\"\<>> \!\(\*OverscriptBox[\(A\), \(_\)]\) = \>\"", ",", 
            RowBox[{"Style", "[", 
             RowBox[{
              RowBox[{"MatrixForm", "[", "Abar", "]"}], ",", "Red"}], "]"}], 
            ",", "\"\<, rank(\!\(\*OverscriptBox[\(A\), \(_\)]\))= \>\"", ",", 
            RowBox[{"Style", "[", 
             RowBox[{
              RowBox[{"MatrixRank", "[", "Abar", "]"}], ",", "Red"}], "]"}]}],
            "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
          RowBox[{"Amin", "=", 
           RowBox[{"Min", "[", "Abar", "]"}]}], ";", 
          RowBox[{"Amax", "=", 
           RowBox[{"Max", "[", "Abar", "]"}]}], ";", "\[IndentingNewLine]", 
          RowBox[{"SeedRandom", "[", "123", "]"}], ";", 
          RowBox[{"xstar", "=", 
           RowBox[{"RandomReal", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"Amin", ",", "Amax"}], "}"}], ",", "n"}], "]"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"For", "[", 
           RowBox[{
            RowBox[{"ii", "=", "1"}], ",", 
            RowBox[{"ii", "\[LessEqual]", " ", "n"}], ",", 
            RowBox[{"ii", "++"}], ",", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"di", "=", 
              RowBox[{"Norm", "[", 
               RowBox[{"xstar", "-", 
                RowBox[{"Abar", "[", 
                 RowBox[{"[", 
                  RowBox[{";;", ",", "ii"}], "]"}], "]"}]}], "]"}]}], ";", 
             "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"d", "[", 
               RowBox[{"[", 
                RowBox[{"ii", ",", "1"}], "]"}], "]"}], "=", "di"}], ";"}]}], 
           "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
          RowBox[{"Print", "[", 
           RowBox[{"\"\<d = \>\"", ",", " ", 
            RowBox[{"Style", "[", 
             RowBox[{"d", ",", "Red"}], "]"}]}], "]"}], ";", 
          "\[IndentingNewLine]", "\[IndentingNewLine]", 
          RowBox[{"(*", 
           RowBox[{
            RowBox[{"Print", "[", 
             RowBox[{"\"\<>> rank(A[i,j])= \>\"", ",", 
              RowBox[{"Style", "[", 
               RowBox[{
                RowBox[{"MatrixRank", "[", "A", "]"}], ",", "Red"}], "]"}]}], 
             "]"}], ";"}], "*)"}], "\[IndentingNewLine]", 
          RowBox[{"(*", 
           RowBox[{
            RowBox[{"Print", "[", 
             RowBox[{"\"\<>> rank(A[i,j])= \>\"", ",", 
              RowBox[{"Style", "[", 
               RowBox[{
                RowBox[{"MatrixRank", "[", 
                 RowBox[{"A", "[", 
                  RowBox[{"[", 
                   RowBox[{";;", ",", 
                    RowBox[{"1", ";;", "2"}]}], "]"}], "]"}], "]"}], ",", 
                "Red"}], "]"}]}], "]"}], ";"}], "*)"}], "\[IndentingNewLine]", 
          RowBox[{"(*", 
           RowBox[{
            RowBox[{"Print", "[", 
             RowBox[{"\"\<>> rank(A[i,j])= \>\"", ",", 
              RowBox[{"Style", "[", 
               RowBox[{
                RowBox[{"MatrixRank", "[", 
                 RowBox[{"A", "[", 
                  RowBox[{"[", 
                   RowBox[{";;", ",", 
                    RowBox[{"1", ";;", "3"}]}], "]"}], "]"}], "]"}], ",", 
                "Red"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
            RowBox[{"Print", "[", 
             RowBox[{"\"\<>> rank(A[i,j])= \>\"", ",", 
              RowBox[{"Style", "[", 
               RowBox[{
                RowBox[{"MatrixRank", "[", 
                 RowBox[{"A", "[", 
                  RowBox[{"[", 
                   RowBox[{";;", ",", 
                    RowBox[{"1", ";;", "4"}]}], "]"}], "]"}], "]"}], ",", 
                "Red"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
            RowBox[{"Print", "[", 
             RowBox[{"\"\<>> rank(A[i,j])= \>\"", ",", 
              RowBox[{"Style", "[", 
               RowBox[{
                RowBox[{"MatrixRank", "[", 
                 RowBox[{"A", "[", 
                  RowBox[{"[", 
                   RowBox[{";;", ",", 
                    RowBox[{"1", ";;", "m"}]}], "]"}], "]"}], "]"}], ",", 
                "Red"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", "*)"}],
           "\[IndentingNewLine]", "\[IndentingNewLine]", 
          RowBox[{"(*", 
           RowBox[{
            RowBox[{"MatEsferas", " ", "=", 
             RowBox[{"Drop", "[", 
              RowBox[{"A", ",", "None", ",", 
               RowBox[{"{", 
                RowBox[{"kk", "+", "1"}], "}"}]}], "]"}]}], ";"}], "*)"}], 
          "\[IndentingNewLine]", 
          RowBox[{"(*", 
           RowBox[{
            RowBox[{"Print", "[", 
             RowBox[{"\"\<>> MatEsferas = \>\"", ",", 
              RowBox[{"Style", "[", 
               RowBox[{
                RowBox[{"MatrixForm", "[", "MatEsferas", "]"}], ",", "Red"}], 
               "]"}], ",", "\"\<, rank(MatEsferas) = \>\"", ",", " ", 
              RowBox[{"Style", "[", 
               RowBox[{
                RowBox[{"MatrixRank", "[", "MatEsferas", "]"}], ",", "Red"}], 
               "]"}]}], "]"}], ";"}], "*)"}], "\[IndentingNewLine]", 
          "\[IndentingNewLine]", 
          RowBox[{"(*", 
           RowBox[{
            RowBox[{"MatEsferas", " ", "=", 
             RowBox[{"Drop", "[", 
              RowBox[{
               RowBox[{"Orthogonalize", "[", "A", "]"}], ",", "None", ",", 
               RowBox[{"{", "kk", "}"}]}], "]"}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"Print", "[", 
             RowBox[{
             "\"\<>> [MatEsferas\!\(\*SubscriptBox[\(]\), \(ortog\)]\) = \
\>\"", ",", 
              RowBox[{"Style", "[", 
               RowBox[{
                RowBox[{"MatrixForm", "[", "MatEsferas", "]"}], ",", "Red"}], 
               "]"}], ",", 
              "\"\<, rank([MatEsferas\!\(\*SubscriptBox[\(]\), \(ortog\)]\)) \
= \>\"", ",", " ", 
              RowBox[{"Style", "[", 
               RowBox[{
                RowBox[{"MatrixRank", "[", "MatEsferas", "]"}], ",", "Red"}], 
               "]"}]}], "]"}], ";"}], "*)"}], "\[IndentingNewLine]", 
          RowBox[{"(*", 
           RowBox[{
            RowBox[{"ccasca", " ", "=", " ", 
             RowBox[{"RandomReal", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"Amin", ",", "Amax"}], "}"}], ",", "n"}], "]"}]}], 
            ";"}], "*)"}], "\[IndentingNewLine]", 
          RowBox[{"ccasca", " ", "=", " ", 
           RowBox[{"Abar", "[", 
            RowBox[{"[", " ", 
             RowBox[{";;", ",", " ", 
              RowBox[{"m", "+", "1"}]}], "]"}], "]"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"dxcasca", "=", 
           RowBox[{"d", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{"m", "+", "1"}], ",", "1"}], "]"}], "]"}]}], ";", 
          "\[IndentingNewLine]", "\[IndentingNewLine]", 
          RowBox[{"(*", 
           RowBox[{
            RowBox[{"A", " ", "=", " ", 
             RowBox[{"A", "[", 
              RowBox[{"[", 
               RowBox[{";;", ",", " ", 
                RowBox[{"1", ";;", "m"}]}], "]"}], "]"}]}], ";"}], "*)"}], 
          "\[IndentingNewLine]", 
          RowBox[{"d", " ", "=", " ", 
           RowBox[{"d", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{"1", ";;", "m"}], ",", "1"}], "]"}], "]"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"(*", 
           RowBox[{
            RowBox[{"Print", "[", "\"\<-----\>\"", "]"}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"Print", "[", 
             RowBox[{"\"\<>> A = \>\"", ",", 
              RowBox[{"Style", "[", 
               RowBox[{
                RowBox[{"MatrixForm", "[", "A", "]"}], ",", "Red"}], "]"}], 
              ",", " ", "\"\<, rank(A) = \>\"", ",", " ", 
              RowBox[{"Style", "[", 
               RowBox[{
                RowBox[{"MatrixRank", "[", "A", "]"}], ",", "Red"}], "]"}]}], 
             "]"}], ";", "\[IndentingNewLine]", 
            RowBox[{"Print", "[", 
             RowBox[{"\"\<>> d = \>\"", ",", " ", 
              RowBox[{"Style", "[", 
               RowBox[{"d", ",", "Red"}], "]"}]}], "]"}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"Print", "[", 
             RowBox[{
             "\"\<>> \!\(\*SubscriptBox[\(c\), \(casca\)]\) = \>\"", ",", " ", 
              RowBox[{"Style", "[", 
               RowBox[{
                RowBox[{"MatrixForm", "[", "ccasca", "]"}], ",", "Red"}], 
               "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
            RowBox[{"Print", "[", 
             RowBox[{"\"\<>> dxcasca = \>\"", ",", "  ", 
              RowBox[{"Style", "[", 
               RowBox[{
                RowBox[{"MatrixForm", "[", "dxcasca", "]"}], ",", "Red"}], 
               "]"}]}], "]"}], ";"}], "*)"}], "\[IndentingNewLine]", 
          RowBox[{"SeedRandom", "[", "567", "]"}], ";", 
          RowBox[{"alpha", "=", 
           RowBox[{"RandomReal", "[", 
            RowBox[{"{", 
             RowBox[{"0", ",", "0.1"}], "}"}], "]"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"SeedRandom", "[", "789", "]"}], ";", 
          RowBox[{"beta", "=", 
           RowBox[{"RandomReal", "[", 
            RowBox[{"{", 
             RowBox[{"0", ",", "0.1"}], "}"}], "]"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"dcascaint", "=", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1", "-", "alpha"}], ")"}], "*", "dxcasca"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"dcascaext", "=", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1", "+", "beta"}], ")"}], "*", "dxcasca"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"Print", "[", 
           RowBox[{"\"\<>> [\>\"", ",", "  ", 
            RowBox[{"Style", "[", 
             RowBox[{
              RowBox[{"MatrixForm", "[", "dcascaint", "]"}], ",", "Red"}], 
             "]"}], ",", " ", "\"\<, \>\"", ",", " ", 
            RowBox[{"Style", "[", 
             RowBox[{
              RowBox[{"MatrixForm", "[", "dcascaext", "]"}], ",", "Red"}], 
             "]"}], ",", "\"\<]\>\""}], "]"}], ";"}], "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{
           RowBox[{"Print", "[", "\"\<-----\>\"", "]"}], ";"}], "*)"}], 
         "\[IndentingNewLine]", "\[IndentingNewLine]", "*)"}], 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{
         "inst\[AHat]ncia", " ", "manual", " ", "para", " ", "testes"}], " ", 
         "*)"}], "\[IndentingNewLine]", 
        RowBox[{"A", "=", 
         RowBox[{"Transpose", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "4"}], ",", "0", ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "3"}], ",", "1.1133", ",", "1.3268"}], "}"}]}], 
           "}"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"d", "=", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", "3.1102", "}"}], ",", 
           RowBox[{"{", "1.30", "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"ccasca", "=", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ";", 
        "\[IndentingNewLine]", " ", 
        RowBox[{"dcascaint", "=", "1.50"}], ";", " ", 
        RowBox[{"(*", " ", 
         RowBox[{"obs", ":", " ", 
          RowBox[{
          "caso", " ", "cuja", " ", "solu\[CCedilla]\[ATilde]o", " ", 
           "\[EAcute]", " ", "apenas", " ", "um", " ", "arco"}]}], " ", 
         "*)"}], "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{"dcascaint", "=", "3.5"}], ";"}], "*)"}], 
        RowBox[{"(*", " ", 
         RowBox[{"obs", ":", " ", 
          RowBox[{
          "caso", " ", "que", " ", "cuja", " ", "solu\[CCedilla]\[ATilde]o", 
           " ", "\[EAcute]", " ", "um", " ", "par", " ", "de", " ", 
           "arcos"}]}], " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{"dcascaext", "=", "3.7"}], ";", "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{"d", "=", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", "3.1102", "}"}], ",", 
             RowBox[{"{", "1.30", "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"dcascaint", "+", "dcascaext"}], ")"}], "/", "2"}], 
              "}"}]}], "}"}]}], ";"}], "*)"}], "\[IndentingNewLine]", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{"Print", "[", 
           RowBox[{"\"\<>> A = \>\"", ",", 
            RowBox[{"Style", "[", 
             RowBox[{
              RowBox[{"MatrixForm", "[", "A", "]"}], ",", "Red"}], "]"}], ",",
             " ", "\"\<, rank(A) = \>\"", ",", " ", 
            RowBox[{"Style", "[", 
             RowBox[{
              RowBox[{"MatrixRank", "[", "A", "]"}], ",", "Red"}], "]"}]}], 
           "]"}], ";", "\[IndentingNewLine]", 
          RowBox[{"Print", "[", 
           RowBox[{"\"\<>> d = \>\"", ",", " ", 
            RowBox[{"Style", "[", 
             RowBox[{"d", ",", "Red"}], "]"}]}], "]"}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"Print", "[", 
           RowBox[{
           "\"\<>> \!\(\*SubscriptBox[\(c\), \(casca\)]\) = \>\"", ",", " ", 
            RowBox[{"Style", "[", 
             RowBox[{
              RowBox[{"MatrixForm", "[", "ccasca", "]"}], ",", "Red"}], 
             "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", "*)"}], 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{
        "Print", "[", 
         "\"\<___ fim gera inst\[AHat]ncia cascas + esfera ___\>\"", "]"}], 
        ";", "\[IndentingNewLine]", 
        RowBox[{"Return", "[", 
         RowBox[{"{", 
          RowBox[{
          "A", ",", "d", ",", "ccasca", ",", "dcascaint", ",", "dcascaext"}], 
          "}"}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], 
    ";"}]}]}]], "Input",
 CellChangeTimes->{{3.7652833632980013`*^9, 3.765283378828023*^9}, {
   3.7652837633905635`*^9, 3.7652837869405966`*^9}, {3.7657050104721937`*^9, 
   3.765705108611966*^9}, {3.7657051784844894`*^9, 3.765705209060543*^9}, {
   3.7657052652674417`*^9, 3.7657053550143995`*^9}, {3.7657054120636997`*^9, 
   3.765705413904503*^9}, {3.765705495492646*^9, 3.7657057149226313`*^9}, {
   3.7657057854347553`*^9, 3.7657059017641597`*^9}, {3.765706125250152*^9, 
   3.765706262998394*^9}, {3.7657065319804115`*^9, 3.7657065715404673`*^9}, {
   3.7657070106310816`*^9, 3.765707043953131*^9}, {3.7657072000633497`*^9, 
   3.7657072009033513`*^9}, {3.7657073367235413`*^9, 
   3.7657073435435505`*^9}, {3.765708524217205*^9, 3.7657085578372517`*^9}, {
   3.7657086810674243`*^9, 3.765708681207425*^9}, {3.7657087509375224`*^9, 
   3.7657088772476993`*^9}, {3.7657089591742373`*^9, 
   3.7657089610462403`*^9}, {3.7657091994302588`*^9, 3.765709204437868*^9}, {
   3.7657093903045683`*^9, 3.7657093904445677`*^9}, {3.7657096415249195`*^9, 
   3.765709647394928*^9}, {3.7657096781149707`*^9, 3.7657096805049744`*^9}, {
   3.765710068138553*^9, 3.7657100682885537`*^9}, {3.7657104238210545`*^9, 
   3.765710625591337*^9}, {3.7657106672213955`*^9, 3.7657107497115107`*^9}, {
   3.76571079884158*^9, 3.7657108260116177`*^9}, {3.7657110066118913`*^9, 
   3.765711019331909*^9}, {3.765711580625695*^9, 3.765711617555747*^9}, {
   3.7657117216158924`*^9, 3.7657117231658945`*^9}, {3.7657118255640383`*^9, 
   3.7657118362740536`*^9}, {3.765712046554348*^9, 3.7657121442044845`*^9}, {
   3.7657122408646197`*^9, 3.76571224807463*^9}, {3.765712311814719*^9, 
   3.7657123178847275`*^9}, {3.7657123830748186`*^9, 3.765712388124826*^9}, {
   3.7657125166250057`*^9, 3.7657125173350067`*^9}, {3.765712579975095*^9, 
   3.7657126044951286`*^9}, {3.765712864337494*^9, 3.7657128710375032`*^9}, {
   3.7657129656696396`*^9, 3.765712969999646*^9}, {3.7657130054796953`*^9, 
   3.765713007229698*^9}, {3.765713134219876*^9, 3.765713165379919*^9}, {
   3.7657132325500135`*^9, 3.7657132749600725`*^9}, {3.7657133730202103`*^9, 
   3.765713383640225*^9}, {3.7657134612303333`*^9, 3.7657134620803347`*^9}, {
   3.7657136029781713`*^9, 3.765713605520976*^9}, {3.765713635738229*^9, 
   3.765713718371574*^9}, {3.7657137552188387`*^9, 3.765713788119296*^9}, 
   3.76571392093793*^9, {3.765714021012103*^9, 3.7657140525721474`*^9}, {
   3.7657149143633537`*^9, 3.7657149234333663`*^9}, {3.765715221783784*^9, 
   3.765715321803924*^9}, {3.7657153535139685`*^9, 3.7657154068040433`*^9}, {
   3.7657154983441715`*^9, 3.7657155948643064`*^9}, {3.765715665438408*^9, 
   3.765715749558525*^9}, {3.7657158295486374`*^9, 3.765715834038644*^9}, {
   3.76571591685876*^9, 3.7657159454187994`*^9}, {3.765716062918964*^9, 
   3.765716085968996*^9}, {3.7657162854972925`*^9, 3.7657163159963465`*^9}, {
   3.7657164146977196`*^9, 3.765716434650155*^9}, 3.765716577671206*^9, {
   3.7657166213824825`*^9, 3.765716650398534*^9}, {3.765716892698159*^9, 
   3.7657169495914593`*^9}, {3.765717001633151*^9, 3.765717003395954*^9}, {
   3.7657175035640326`*^9, 3.7657175121596475`*^9}, {3.7658322519958982`*^9, 
   3.7658323017755857`*^9}, {3.765832337125248*^9, 3.765832479046697*^9}, 
   3.765832570821658*^9, {3.765833066406329*^9, 3.7658330701815357`*^9}, {
   3.7658346869783745`*^9, 3.765834690722381*^9}, {3.7658349670112667`*^9, 
   3.765835012251346*^9}, {3.7987573559820566`*^9, 3.798757367641014*^9}, {
   3.7987581853672314`*^9, 3.7987581878832736`*^9}, {3.7989348670983424`*^9, 
   3.798934867501093*^9}, {3.7989350239882383`*^9, 3.798935032153164*^9}, {
   3.7994043716046944`*^9, 3.799404374214553*^9}, {3.7994044857287345`*^9, 
   3.7994044972433205`*^9}, {3.799404610732224*^9, 3.799404662551908*^9}, {
   3.7994047032866015`*^9, 3.799404716511035*^9}, {3.7994049545390935`*^9, 
   3.799404995838798*^9}, {3.79940507081797*^9, 3.7994050999101076`*^9}, {
   3.7994051760168867`*^9, 3.7994052638659053`*^9}, {3.799405326655692*^9, 
   3.7994053296623125`*^9}, {3.79940539642483*^9, 3.7994053997948723`*^9}, {
   3.7994054373923903`*^9, 3.799405454784382*^9}, 3.7994056776920233`*^9, {
   3.7994059755689077`*^9, 3.799406007915683*^9}, {3.7994061062376757`*^9, 
   3.799406108837864*^9}, {3.7994063517155647`*^9, 3.7994064014849625`*^9}, {
   3.7994064334449186`*^9, 3.7994065703887014`*^9}, {3.7994067274268866`*^9, 
   3.7994067312117805`*^9}, {3.7994506624036236`*^9, 
   3.7994506725082197`*^9}, {3.799450711222809*^9, 3.799450724282673*^9}, {
   3.7994512986673365`*^9, 3.7994514454055686`*^9}, {3.799451532194975*^9, 
   3.799451610774477*^9}, {3.79945177374304*^9, 3.7994517740831614`*^9}, {
   3.7994518870317307`*^9, 3.7994518963270493`*^9}, {3.7994526258646107`*^9, 
   3.7994526477889876`*^9}, {3.7994532404382896`*^9, 3.799453321052631*^9}, {
   3.7994909373526278`*^9, 3.799490946868501*^9}, {3.7994914474962735`*^9, 
   3.799491477121489*^9}, {3.799491534968984*^9, 3.799491535129882*^9}, {
   3.7994916003174706`*^9, 3.7994916119213004`*^9}, {3.7994918992966366`*^9, 
   3.799491934492197*^9}, {3.7994920419507895`*^9, 3.7994920448092575`*^9}, {
   3.799492354600898*^9, 3.799492375852832*^9}, {3.7994924414575143`*^9, 
   3.7994924415714436`*^9}, {3.799492513779925*^9, 3.7994925852378936`*^9}, {
   3.7994935025980573`*^9, 3.799493715409302*^9}, {3.7994937557861834`*^9, 
   3.7994937802541504`*^9}, {3.7994940397219253`*^9, 
   3.7994940795348496`*^9}, {3.799494148923483*^9, 3.7994941490616198`*^9}, {
   3.799494197364001*^9, 3.799494197718463*^9}, {3.7994943047655163`*^9, 
   3.799494307173547*^9}, {3.799494355649942*^9, 3.7994943683266606`*^9}, {
   3.799540570146236*^9, 3.7995405712712035`*^9}, {3.7995406061151977`*^9, 
   3.799540616864834*^9}, {3.7995411621157084`*^9, 3.799541175787137*^9}, {
   3.7995413376826224`*^9, 3.7995413524008956`*^9}, 3.7995414354207525`*^9, {
   3.7995415144382544`*^9, 3.799541529656517*^9}, 3.7995415661397066`*^9, {
   3.799541675822287*^9, 3.799541692713361*^9}, {3.799541760063752*^9, 
   3.79954177237586*^9}, {3.7995418334406595`*^9, 3.7995418374092793`*^9}, {
   3.7995423476435733`*^9, 3.79954235098359*^9}, {3.79954248118217*^9, 
   3.799542485297079*^9}, {3.8002720907035003`*^9, 3.800272094288506*^9}, {
   3.8002721587040467`*^9, 3.800272172094558*^9}, {3.800272290748766*^9, 
   3.800272357685388*^9}, {3.800272403186058*^9, 3.80027240830293*^9}, {
   3.8002725390878973`*^9, 3.80027254398162*^9}, {3.80027260392552*^9, 
   3.800272652470269*^9}, {3.8002726919570103`*^9, 3.8002726930608387`*^9}, {
   3.800272805850863*^9, 3.800272809863989*^9}, {3.800273077941885*^9, 
   3.8002730832117963`*^9}, {3.80027316744945*^9, 3.8002732296958027`*^9}, {
   3.8002733071047106`*^9, 3.8002733102686486`*^9}, {3.80027343302133*^9, 
   3.800273433190675*^9}, {3.80027347367843*^9, 3.8002734766192617`*^9}, {
   3.8002739699034595`*^9, 3.8002739864417353`*^9}},
 CellLabel->"In[85]:=",ExpressionUUID->"10e558f9-db6c-4957-87ab-4bcbc3344637"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Interse\[CCedilla]\[ATilde]o via AGC\n",
 StyleBox["IntersEsferasAGC,IntersEsferas1CascaAGC[", "Text",
  FontSize->15,
  FontSlant->"Italic"]
}], "Subchapter",
 CellChangeTimes->{{3.765628008925969*^9, 3.7656280279112024`*^9}, {
  3.7998551254234056`*^9, 
  3.799855125802861*^9}},ExpressionUUID->"e22e0a9b-a4d4-49b4-9eab-\
f5033191eca7"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "m\[OAcute]dulo", " ", "interse\[CCedilla]\[ATilde]o", " ", "usando", " ", 
    "AGC"}], " ", "*)"}], 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"IntersEsferasAGC", "[", 
      RowBox[{"n_", ",", "m_", ",", "kk_", ",", "e0_", ",", "einf_"}], "]"}], 
     ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "epsilon", ",", "p", ",", "A", ",", "d", ",", "ii", ",", "TEsferas", 
         ",", "ri", ",", "Ci", ",", "ci", ",", "sigmai", ",", "sigma", ",", 
         "a", ",", "aa", ",", "inva", ",", "sigmaN", ",", "a2", ",", "pto1", 
         ",", "Ie", ",", "pto2", ",", "x1", ",", "x2", ",", "X", ",", "x", 
         ",", "y", ",", "z", ",", "pp", ",", "eqSigma", ",", "erro"}], "}"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"epsilon", "=", "5"}], ";", "\[IndentingNewLine]", 
        RowBox[{"p", "=", 
         RowBox[{"n", "+", "1"}]}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{"gera", " ", "m", " ", "esferas", " ", "no", " ", 
          SuperscriptBox["R", "n"]}], " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"A", ",", "d"}], "}"}], "=", 
         RowBox[{"geraEsferas", "[", 
          RowBox[{"m", ",", "n", ",", "kk"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{"Print", "[", 
           RowBox[{"\"\<>> A = \>\"", ",", 
            RowBox[{"Style", "[", 
             RowBox[{"A", ",", "Red"}], "]"}], ",", "\"\<  d = \>\"", ",", 
            RowBox[{"Style", "[", 
             RowBox[{"d", ",", "Red"}], "]"}], ",", "\"\<, rank(A) = \>\"", 
            ",", 
            RowBox[{"Style", "[", 
             RowBox[{
              RowBox[{"MatrixRank", "[", "A", "]"}], ",", "Red"}], "]"}]}], 
           "]"}], ";"}], "*)"}], "\[IndentingNewLine]", 
        RowBox[{"Print", "[", 
         RowBox[{"\"\<>> A = \>\"", ",", 
          RowBox[{"Style", "[", 
           RowBox[{
            RowBox[{"MatrixForm", "[", "A", "]"}], ",", "Red"}], "]"}], ",", 
          "\"\<  d = \>\"", ",", 
          RowBox[{"Style", "[", 
           RowBox[{
            RowBox[{"MatrixForm", "[", "d", "]"}], ",", "Red"}], "]"}], ",", 
          "\"\<, rank(A) = \>\"", ",", 
          RowBox[{"Style", "[", 
           RowBox[{
            RowBox[{"MatrixRank", "[", "A", "]"}], ",", "Red"}], "]"}]}], 
         "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{
         "define", " ", "esferas", " ", "no", " ", "espaco", " ", 
          "conforme"}], " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{"TEsferas", "=", 
         RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"For", "[", 
         RowBox[{
          RowBox[{"ii", "=", "1"}], ",", 
          RowBox[{"ii", "\[LessEqual]", "m"}], ",", 
          RowBox[{"ii", "++"}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"ri", "=", 
            RowBox[{"d", "[", 
             RowBox[{"[", 
              RowBox[{"ii", ",", "1"}], "]"}], "]"}]}], ";", 
           RowBox[{"Ci", "=", 
            RowBox[{"ToBasis", "[", 
             RowBox[{"A", "[", 
              RowBox[{"[", 
               RowBox[{";;", ",", "ii"}], "]"}], "]"}], "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"ci", "=", 
            RowBox[{"e0", "+", "Ci", "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"0.5", "*", 
                RowBox[{
                 RowBox[{"Norm", "[", 
                  RowBox[{"ToVector", "[", 
                   RowBox[{"Ci", ",", 
                    RowBox[{"p", "+", "1"}]}], "]"}], "]"}], "^", "2"}]}], 
               ")"}], "*", "einf"}]}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"sigmai", "=", 
            RowBox[{"ci", "-", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"0.5", "*", 
                RowBox[{"ri", "^", "2"}]}], ")"}], "*", "einf"}]}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"TEsferas", "=", 
            RowBox[{"AppendTo", "[", 
             RowBox[{"TEsferas", ",", "sigmai"}], "]"}]}], ";"}]}], 
         "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{
         "computa", " ", "interse\[CCedilla]\[ATilde]o", " ", "usando", " ", 
          "produto", " ", "exterior"}], " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{"sigma", "=", 
         RowBox[{"TEsferas", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", ";;"}], "]"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"For", "[", 
         RowBox[{
          RowBox[{"ii", "=", "2"}], ",", 
          RowBox[{"ii", "\[LessEqual]", "m"}], ",", 
          RowBox[{"ii", "++"}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"sigma", "=", 
            RowBox[{"Chop", "[", 
             RowBox[{
              RowBox[{"OuterProduct", "[", 
               RowBox[{"sigma", ",", 
                RowBox[{"TEsferas", "[", 
                 RowBox[{"[", 
                  RowBox[{"ii", ",", ";;"}], "]"}], "]"}]}], "]"}], ",", 
              RowBox[{"10", "^", 
               RowBox[{"(", 
                RowBox[{"-", "epsilon"}], ")"}]}]}], "]"}]}], ";"}]}], 
         "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{"normaliza", " ", "sigma"}], " ", "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{"a", "=", 
         RowBox[{"Chop", "[", 
          RowBox[{
           RowBox[{"InnerProduct", "[", 
            RowBox[{"einf", ",", "sigma"}], "]"}], ",", 
           RowBox[{"10", "^", 
            RowBox[{"(", 
             RowBox[{"-", "epsilon"}], ")"}]}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{"calcula", " ", "inversa", " ", "de", " ", "a"}], ",", 
          RowBox[{"obs", ":", 
           RowBox[{"o", " ", "programa", " ", "da", " ", "erro"}]}], ",", 
          RowBox[{"as", " ", "vezes"}]}], "*)"}], "\[IndentingNewLine]", 
        RowBox[{"aa", "=", 
         RowBox[{"Chop", "[", 
          RowBox[{
           RowBox[{"GeometricProduct", "[", 
            RowBox[{"a", ",", "a"}], "]"}], ",", 
           RowBox[{"10", "^", 
            RowBox[{"(", 
             RowBox[{"-", "epsilon"}], ")"}]}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"inva", "=", 
         RowBox[{"Chop", "[", 
          RowBox[{
           RowBox[{"GeometricProduct", "[", 
            RowBox[{"a", ",", 
             RowBox[{"MultivectorInverse", "[", "aa", "]"}]}], "]"}], ",", 
           RowBox[{"10", "^", 
            RowBox[{"(", 
             RowBox[{"-", "epsilon"}], ")"}]}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"sigmaN", "=", 
         RowBox[{"-", 
          RowBox[{"Chop", "[", 
           RowBox[{
            RowBox[{"GeometricProduct", "[", 
             RowBox[{"sigma", ",", "inva"}], "]"}], ",", 
            RowBox[{"10", "^", 
             RowBox[{"(", 
              RowBox[{"-", "epsilon"}], ")"}]}]}], "]"}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"Print", "[", 
         RowBox[{
         "\"\<\!\(\*SuperscriptBox[SubscriptBox[\(\[Sigma]\), \
\(normalizada\)], \(2\)]\) = \>\"", ",", 
          RowBox[{"Style", "[", 
           RowBox[{
            RowBox[{"Chop", "[", 
             RowBox[{
              RowBox[{"GeometricProduct", "[", 
               RowBox[{"sigmaN", ",", "sigmaN"}], "]"}], ",", 
              RowBox[{"10", "^", 
               RowBox[{"(", 
                RowBox[{"-", "2"}], ")"}]}]}], "]"}], ",", "Red"}], "]"}]}], 
         "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"Print", "[", 
         RowBox[{
         "\"\<\!\(\*SubscriptBox[\(e\), \(\[Infinity]\)]\) . \
\!\(\*SubscriptBox[\(\[Sigma]\), \(normalizada\)]\) = \>\"", ",", 
          RowBox[{"Style", "[", 
           RowBox[{
            RowBox[{"Chop", "[", 
             RowBox[{
              RowBox[{"InnerProduct", "[", 
               RowBox[{"einf", ",", "sigmaN"}], "]"}], ",", 
              RowBox[{"10", "^", 
               RowBox[{"(", 
                RowBox[{"-", "2"}], ")"}]}]}], "]"}], ",", "Red"}], "]"}]}], 
         "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{
         "extrai", " ", "pontos", " ", "do", " ", "par", " ", "de", " ", 
          "ptos"}], " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{"a2", "=", 
         RowBox[{"Chop", "[", 
          RowBox[{
           RowBox[{"InnerProduct", "[", 
            RowBox[{"einf", ",", 
             RowBox[{"Dual", "[", 
              RowBox[{"sigma", ",", 
               RowBox[{"p", "+", "1"}]}], "]"}]}], "]"}], ",", 
           RowBox[{"10", "^", 
            RowBox[{"(", 
             RowBox[{"-", "epsilon"}], ")"}]}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"pto1", "=", 
         RowBox[{"Chop", "[", 
          RowBox[{
           RowBox[{"-", 
            RowBox[{"GeometricProduct", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"Sqrt", "[", 
                RowBox[{"InnerProduct", "[", 
                 RowBox[{
                  RowBox[{"Dual", "[", 
                   RowBox[{"sigma", ",", 
                    RowBox[{"p", "+", "1"}]}], "]"}], ",", 
                  RowBox[{"Dual", "[", 
                   RowBox[{"sigma", ",", 
                    RowBox[{"p", "+", "1"}]}], "]"}]}], "]"}], "]"}], "+", 
               RowBox[{"Dual", "[", 
                RowBox[{"sigma", ",", 
                 RowBox[{"p", "+", "1"}]}], "]"}]}], ",", 
              RowBox[{"MultivectorInverse", "[", "a2", "]"}]}], "]"}]}], ",", 
           RowBox[{"10", "^", 
            RowBox[{"(", 
             RowBox[{"-", "epsilon"}], ")"}]}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"Ie", "=", 
         RowBox[{"OuterProduct", "[", 
          RowBox[{"einf", ",", "e0"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"pto2", "=", 
         RowBox[{"Chop", "[", 
          RowBox[{
           RowBox[{"GeometricProduct", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"Sqrt", "[", 
               RowBox[{"InnerProduct", "[", 
                RowBox[{
                 RowBox[{"Dual", "[", 
                  RowBox[{"sigma", ",", 
                   RowBox[{"p", "+", "1"}]}], "]"}], ",", 
                 RowBox[{"Dual", "[", 
                  RowBox[{"sigma", ",", 
                   RowBox[{"p", "+", "1"}]}], "]"}]}], "]"}], "]"}], "-", 
              RowBox[{"Dual", "[", 
               RowBox[{"sigma", ",", 
                RowBox[{"p", "+", "1"}]}], "]"}]}], ",", 
             RowBox[{"MultivectorInverse", "[", "a2", "]"}]}], "]"}], ",", 
           RowBox[{"10", "^", 
            RowBox[{"(", 
             RowBox[{"-", "epsilon"}], ")"}]}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"x1", "=", 
         RowBox[{"GeometricProduct", "[", 
          RowBox[{
           RowBox[{"OuterProduct", "[", 
            RowBox[{"pto1", ",", "Ie"}], "]"}], ",", "Ie"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"x2", "=", 
         RowBox[{"GeometricProduct", "[", 
          RowBox[{
           RowBox[{"OuterProduct", "[", 
            RowBox[{"pto2", ",", "Ie"}], "]"}], ",", "Ie"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"Print", "[", "\"\<\>\"", "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{"Print", "[", 
           RowBox[{"\"\<>> Solu\[CCedilla]\[OTilde]es: x1 = \>\"", ",", 
            RowBox[{"Style", "[", 
             RowBox[{
              RowBox[{"MatrixForm", "[", "x1", "]"}], ",", "Red"}], "]"}], 
            ",", "\"\<,  x2 = \>\"", ",", 
            RowBox[{"Style", "[", 
             RowBox[{
              RowBox[{"MatrixForm", "[", "x2", "]"}], ",", "Red"}], "]"}]}], 
           "]"}], ";"}], "*)"}], "\[IndentingNewLine]", 
        RowBox[{"Print", "[", 
         RowBox[{"\"\<>> Solu\[CCedilla]\[OTilde]es: x1 = \>\"", ",", 
          RowBox[{"Style", "[", 
           RowBox[{
            RowBox[{"MatrixForm", "[", 
             RowBox[{"ToVector", "[", 
              RowBox[{"x1", "[", 
               RowBox[{"[", 
                RowBox[{"2", ";;"}], "]"}], "]"}], "]"}], "]"}], ",", "Red"}],
            "]"}], ",", "\"\<,  x2 = \>\"", ",", 
          RowBox[{"Style", "[", 
           RowBox[{
            RowBox[{"MatrixForm", "[", 
             RowBox[{"ToVector", "[", 
              RowBox[{"x2", "[", 
               RowBox[{"[", 
                RowBox[{"2", ";;"}], "]"}], "]"}], "]"}], "]"}], ",", "Red"}],
            "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{"Print", "[", "\"\<Solucoes: \>\"", "]"}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"Print", "[", 
           RowBox[{"\"\<x_1 =\>\"", ",", 
            RowBox[{"Style", "[", 
             RowBox[{"x1", ",", "Red"}], "]"}], ",", "\"\< \[Element] R^\>\"",
             ",", 
            RowBox[{"Style", "[", 
             RowBox[{"n", ",", "Red"}], "]"}]}], "]"}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"Print", "[", 
           RowBox[{"\"\<x_2 =\>\"", ",", 
            RowBox[{"Style", "[", 
             RowBox[{"x2", ",", "Red"}], "]"}], ",", "\"\< \[Element] R^\>\"",
             ",", 
            RowBox[{"Style", "[", 
             RowBox[{"n", ",", "Red"}], "]"}]}], "]"}], ";"}], "*)"}], 
        RowBox[{"(*", 
         RowBox[{
         "calcula", " ", "erro", " ", "da", " ", "solu\[CCedilla]\[ATilde]o", 
          " ", "encontrada"}], "*)"}], 
        RowBox[{"erro", "=", 
         RowBox[{"erroMDE", "[", 
          RowBox[{
           RowBox[{"ToVector", "[", 
            RowBox[{"x1", "[", 
             RowBox[{"[", 
              RowBox[{"2", ";;"}], "]"}], "]"}], "]"}], ",", "A", ",", "d", 
           ",", "m"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{"Print", "[", 
           RowBox[{"\"\<erro = \>\"", ",", 
            RowBox[{"Style", "[", 
             RowBox[{"erro", ",", "Red"}], "]"}]}], "]"}], ";"}], "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{"Print", "[", 
         RowBox[{"\"\<>> Erro de x1 = \>\"", ",", 
          RowBox[{"Style", "[", 
           RowBox[{"erro", ",", "Red"}], "]"}]}], "]"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"Print", "[", 
         RowBox[{"\"\<>> Erro de x2 = \>\"", ",", 
          RowBox[{"Style", "[", 
           RowBox[{
            RowBox[{"erroMDE", "[", 
             RowBox[{
              RowBox[{"ToVector", "[", 
               RowBox[{"x2", "[", 
                RowBox[{"[", 
                 RowBox[{"2", ";;"}], "]"}], "]"}], "]"}], ",", "A", ",", "d",
               ",", "m"}], "]"}], ",", "Red"}], "]"}]}], "]"}], ";", 
        "\[IndentingNewLine]", " ", "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{"Return", "[", "erro", "]"}], ";"}], "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{"Return", "[", 
         RowBox[{"{", 
          RowBox[{"x1", ",", "x2", ",", " ", "erro", ",", " ", "sigmaN"}], 
          "}"}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.765280455417699*^9, 3.7652805276778*^9}, {
   3.765281915881974*^9, 3.765281944042014*^9}, {3.7652824792067633`*^9, 
   3.7652824851067715`*^9}, {3.7652827118270893`*^9, 
   3.7652827124170895`*^9}, {3.7652830622775793`*^9, 
   3.7652830628675804`*^9}, {3.7652831713177323`*^9, 
   3.7652831798677444`*^9}, {3.765628602757812*^9, 3.765628707496396*^9}, 
   3.765628780052123*^9, {3.7989323029285765`*^9, 3.7989323081471677`*^9}, {
   3.7989323726620283`*^9, 3.7989323952863026`*^9}, {3.798932468018341*^9, 
   3.79893246898702*^9}, {3.7989343458571277`*^9, 3.7989343634043307`*^9}, {
   3.7990179983301196`*^9, 3.7990180210442314`*^9}, {3.799019495165489*^9, 
   3.799019518850645*^9}, 3.7991012534147844`*^9, 3.7991466880288477`*^9, {
   3.799149414565908*^9, 3.799149441215784*^9}, {3.7991654948032517`*^9, 
   3.7991655134432635`*^9}, {3.7991655690976915`*^9, 
   3.7991656328925066`*^9}, {3.7992802112467985`*^9, 3.799280215066538*^9}, {
   3.799280267386045*^9, 3.7992802745461345`*^9}},
 CellLabel->"In[6]:=",ExpressionUUID->"4076adc6-de74-4024-a1f1-f423503db120"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"IntersEsferas1CascaAGC", "[", 
    RowBox[{"n_", ",", "m_", ",", "kk_", ",", "e0_", ",", "einf_"}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "epsilon", ",", "p", ",", "A", ",", "d", ",", "ii", ",", "TEsferas", 
       ",", "ri", ",", "Ci", ",", "ci", ",", "sigmai", ",", "sigma", ",", "a",
        ",", "aa", ",", "inva", ",", "sigmaN", ",", "a2", ",", "pto1", ",", 
       "Ie", ",", "pto2", ",", "x1", ",", "x2", ",", "X", ",", "x", ",", "y", 
       ",", "z", ",", "pp", ",", "eqSigma", ",", "erro", ",", " ", "sigmasol",
        ",", " ", "solucao1", ",", " ", "solucao2", ",", " ", "eerrosol", ",",
        " ", "cc", ",", " ", "dcint", ",", " ", "dcext", ",", " ", "Abar", 
       ",", " ", "rcasca", ",", " ", "ccasca", ",", " ", "ccconf", ",", " ", 
       "sigmacasca", ",", " ", "centroNkEsfera", ",", " ", 
       "centroNkEsferaEuclideano", ",", " ", "dcCasca", ",", " ", "rQuadrado",
        ",", "rQuadradoN", ",", " ", "kappa", ",", " ", "kappaN", ",", 
       "centroNkEsferaN"}], "}"}], ",", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"epsilon", "=", "5"}], ";", "\[IndentingNewLine]", 
      RowBox[{"p", "=", 
       RowBox[{"n", "+", "1"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"A", ",", "d", ",", "cc", ",", "dcint", ",", "dcext"}], "}"}],
        "=", 
       RowBox[{"geraEsferas1Casca", "[", 
        RowBox[{"m", ",", "n", ",", "kk"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Abar", "=", " ", 
       RowBox[{"Transpose", "[", 
        RowBox[{"Append", "[", 
         RowBox[{
          RowBox[{"Transpose", "[", "A", "]"}], ",", "cc"}], "]"}], "]"}]}], 
      ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", "\"\<\>\"", "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{
      "Print", "[", 
       "\"\<__ Interse\[CCedilla]\[ATilde]o entre m esferas e 1 casca esf\
\[EAcute]rica __\>\"", "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", "\"\<----------\>\"", "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"Print", "[", 
         RowBox[{"\"\<>> A = \>\"", ",", 
          RowBox[{"Style", "[", 
           RowBox[{"A", ",", "Red"}], "]"}], ",", "\"\<  d = \>\"", ",", 
          RowBox[{"Style", "[", 
           RowBox[{"d", ",", "Red"}], "]"}], ",", "\"\<, rank(A) = \>\"", ",", 
          RowBox[{"Style", "[", 
           RowBox[{
            RowBox[{"MatrixRank", "[", "A", "]"}], ",", "Red"}], "]"}]}], 
         "]"}], ";"}], "*)"}], "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{"\"\<>> A = [\!\(\*SubscriptBox[\(a\), \(i\)]\)] = \>\"", ",", 
        RowBox[{"Style", "[", 
         RowBox[{
          RowBox[{"MatrixForm", "[", "A", "]"}], ",", "Red"}], "]"}], ",", 
        "\"\<, d = \>\"", ",", 
        RowBox[{"Style", "[", 
         RowBox[{
          RowBox[{"MatrixForm", "[", "d", "]"}], ",", "Red"}], "]"}]}], "]"}],
       ";", 
      RowBox[{"Print", "[", 
       RowBox[{"\"\<>> \!\(\*SubscriptBox[\(c\), \(casca\)]\) = \>\"", ",", 
        RowBox[{"Style", "[", 
         RowBox[{"cc", ",", "Red"}], "]"}], ",", " ", 
        "\"\<, \!\(\*UnderscriptBox[SubscriptBox[\(d\), \(casca\)], \(_\)]\) \
= \>\"", ",", " ", 
        RowBox[{"Style", "[", 
         RowBox[{"dcint", ",", "Red"}], "]"}], ",", " ", 
        "\"\<, \!\(\*OverscriptBox[SubscriptBox[\(d\), \(casca\)], \(_\)]\) = \
\>\"", ",", " ", 
        RowBox[{"Style", "[", 
         RowBox[{"dcext", ",", "Red"}], "]"}]}], "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{
       "\"\<>> \!\(\*OverscriptBox[\(A\), \(_\)]\) = A \[Union] \
\!\(\*SubscriptBox[\(c\), \(casca\)]\)  = \>\"", ",", 
        RowBox[{"Style", "[", 
         RowBox[{
          RowBox[{"MatrixForm", "[", "Abar", "]"}], ",", "Red"}], "]"}]}], 
       "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{
       "\"\<>> rank(A \[Union] \!\(\*SubscriptBox[\(c\), \(casca\)]\))= \>\"",
         ",", 
        RowBox[{"Style", "[", 
         RowBox[{
          RowBox[{"MatrixRank", "[", "Abar", "]"}], ",", "Red"}], "]"}], ",", 
        "\"\<, rank(A) = \>\"", ",", 
        RowBox[{"Style", "[", 
         RowBox[{
          RowBox[{"MatrixRank", "[", "A", "]"}], ",", "Red"}], "]"}], ",", 
        "\"\<, k = \>\"", ",", 
        RowBox[{"Style", "[", 
         RowBox[{"kk", ",", "Red"}], "]"}]}], "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Print", "[", "\"\<----------\>\"", "]"}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "solucao1", ",", "solucao2", ",", " ", "eerrosol", ",", " ", 
           "sigmasol"}], "}"}], "=", 
         RowBox[{"IntersEsferasAGC", "[", 
          RowBox[{"n", ",", "m", ",", "kk", ",", "e0", ",", "einf"}], "]"}]}],
         ";"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
       "define", " ", "esferas", " ", "no", " ", "espa\[CCedilla]o", " ", 
        "conforme"}], " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"TEsferas", "=", 
       RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"ii", "=", "1"}], ",", 
        RowBox[{"ii", "\[LessEqual]", "m"}], ",", 
        RowBox[{"ii", "++"}], ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"ri", "=", 
          RowBox[{"d", "[", 
           RowBox[{"[", "ii", "]"}], "]"}]}], ";", 
         RowBox[{"Ci", "=", 
          RowBox[{"ToBasis", "[", 
           RowBox[{"A", "[", 
            RowBox[{"[", 
             RowBox[{";;", ",", "ii"}], "]"}], "]"}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"ci", "=", 
          RowBox[{"e0", "+", "Ci", "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"0.5", "*", 
              RowBox[{
               RowBox[{"Norm", "[", 
                RowBox[{"ToVector", "[", 
                 RowBox[{"Ci", ",", 
                  RowBox[{"p", "+", "1"}]}], "]"}], "]"}], "^", "2"}]}], 
             ")"}], "*", "einf"}]}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"sigmai", "=", 
          RowBox[{"ci", "-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"0.5", "*", 
              RowBox[{"ri", "^", "2"}]}], ")"}], "*", "einf"}]}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"TEsferas", "=", 
          RowBox[{"AppendTo", "[", 
           RowBox[{"TEsferas", ",", "sigmai"}], "]"}]}], ";"}]}], 
       "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
       "define", " ", "casca", " ", "no", " ", "espa\[CCedilla]o", " ", 
        "conforme"}], " ", "*)"}], "\[IndentingNewLine]", " ", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"rcasca", "=", "dcint"}], ";"}], "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"rcasca", "=", "dcext"}], ";", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"rcasca", "=", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"dcint", "+", "dcext"}], ")"}], "/", "2"}]}], ";"}], 
       "*)"}], "\[IndentingNewLine]", 
      RowBox[{"ccasca", "=", 
       RowBox[{"ToBasis", "[", "cc", "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"ccconf", "=", 
       RowBox[{"e0", "+", "ccasca", "+", 
        RowBox[{"0.5", "*", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Norm", "[", 
            RowBox[{"ToVector", "[", 
             RowBox[{"ccasca", ",", 
              RowBox[{"p", "+", "1"}]}], "]"}], "]"}], "^", "2"}], ")"}], "*",
          "einf"}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"sigmacasca", "=", 
       RowBox[{"ccconf", "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"0.5", "*", 
           RowBox[{"rcasca", "^", "2"}]}], ")"}], "*", "einf"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{
       "\"\<>> \!\(\*SubscriptBox[\(c\), \(casca[conforme]\)]\) = \>\"", ",", 
        RowBox[{"Style", "[", 
         RowBox[{"ccconf", ",", "Red"}], "]"}], ",", " ", 
        "\"\<, \!\(\*SubscriptBox[\(r\), \(casca\)]\) \[Element] [\>\"", ",", 
        " ", 
        RowBox[{"Style", "[", 
         RowBox[{"dcint", ",", "Red"}], "]"}], ",", " ", "\"\<, \>\"", ",", 
        " ", 
        RowBox[{"Style", "[", 
         RowBox[{"dcext", ",", "Red"}], "]"}], ",", " ", "\"\<]\>\""}], "]"}],
       ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{
       "\"\<>> \!\(\*SubscriptBox[\(\[Sigma]\), \(\(casca\)\(\\\ \)\)]\)= \
\>\"", ",", 
        RowBox[{"Style", "[", 
         RowBox[{"sigmacasca", ",", "Red"}], "]"}], ",", " ", 
        "\"\<, \!\(\*SubscriptBox[\(r\), \(\(casca\)\(*\)\)]\) = \>\"", ",", 
        " ", 
        RowBox[{"Style", "[", 
         RowBox[{"rcasca", ",", "Red"}], "]"}]}], "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{
       "\"\<>> \!\(\*SubscriptBox[SubscriptBox[\(c\), \(casca\)], \
\([conforme]\)]\) . \!\(\*SubscriptBox[\(e\), \(\[Infinity]\)]\) = \>\"", ",", 
        RowBox[{"Style", "[", 
         RowBox[{
          RowBox[{"Chop", "[", 
           RowBox[{
            RowBox[{"InnerProduct", "[", 
             RowBox[{"einf", ",", "ccconf"}], "]"}], ",", 
            RowBox[{"10", "^", 
             RowBox[{"(", 
              RowBox[{"-", "2"}], ")"}]}]}], "]"}], ",", "Red"}], "]"}]}], 
       "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{
       "\"\<>> \!\(\*SubscriptBox[\(\[Sigma]\), \(casca\)]\) . \
\!\(\*SubscriptBox[\(e\), \(\[Infinity]\)]\) = \>\"", ",", 
        RowBox[{"Style", "[", 
         RowBox[{
          RowBox[{"Chop", "[", 
           RowBox[{
            RowBox[{"InnerProduct", "[", 
             RowBox[{"einf", ",", "sigmacasca"}], "]"}], ",", 
            RowBox[{"10", "^", 
             RowBox[{"(", 
              RowBox[{"-", "2"}], ")"}]}]}], "]"}], ",", "Red"}], "]"}]}], 
       "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
       "computa", " ", "intersecao", " ", "esferas", " ", "usando", " ", 
        "produto", " ", "exterior"}], "*)"}], "\[IndentingNewLine]", 
      RowBox[{"Print", "[", "\"\<----------\>\"", "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"sigma", "=", 
       RowBox[{"TEsferas", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", ";;"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{"For", "[", 
        RowBox[{
         RowBox[{"ii", "=", "2"}], ",", 
         RowBox[{"ii", "\[LessEqual]", "m"}], ",", 
         RowBox[{"ii", "++"}], ","}]}], "*)"}], "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"ii", "=", "2"}], ",", 
        RowBox[{"ii", "\[LessEqual]", 
         RowBox[{"kk", "+", "1"}]}], ",", 
        RowBox[{"ii", "++"}], ",", "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{"Print", "[", 
           RowBox[{"\"\<__ k = \>\"", ",", " ", 
            RowBox[{"Style", "[", 
             RowBox[{"ii", ",", "Red"}], "]"}]}], "]"}], ";"}], "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"sigma", "=", 
          RowBox[{"Chop", "[", 
           RowBox[{
            RowBox[{"OuterProduct", "[", 
             RowBox[{"sigma", ",", 
              RowBox[{"TEsferas", "[", 
               RowBox[{"[", 
                RowBox[{"ii", ",", ";;"}], "]"}], "]"}]}], "]"}], ",", 
            RowBox[{"10", "^", 
             RowBox[{"(", 
              RowBox[{"-", "epsilon"}], ")"}]}]}], "]"}]}], ";"}]}], 
       "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"Print", "[", 
          RowBox[{
          "\"\<>> \!\(\*SubscriptBox[\(\[Sigma]\), \(\\\ \)]\)= \>\"", ",", 
           RowBox[{"Style", "[", 
            RowBox[{"sigma", ",", "Red"}], "]"}]}], "]"}], ";"}], "*)"}], 
       "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{
       "\"\<>> \!\(\*SubscriptBox[SubscriptBox[\(\[Sigma]\), \([\((n - k)\) - \
esfera]\)], \(\\\ \)]\)= \>\"", ",", 
        RowBox[{"Style", "[", 
         RowBox[{"sigma", ",", "Red"}], "]"}]}], "]"}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"a", "=", 
       RowBox[{"Chop", "[", 
        RowBox[{
         RowBox[{"InnerProduct", "[", 
          RowBox[{"einf", ",", "sigma"}], "]"}], ",", 
         RowBox[{"10", "^", 
          RowBox[{"(", 
           RowBox[{"-", "epsilon"}], ")"}]}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{
       "\"\<>> \!\(\*SubscriptBox[\(e\), \(\[Infinity]\)]\) . \
\!\(\*SubscriptBox[SubscriptBox[\(\[Sigma]\), \([\((n - k)\) - \\\ \
esfera]\)], \(\\\ \)]\)= \>\"", ",", 
        RowBox[{"Style", "[", 
         RowBox[{"a", ",", "Red"}], "]"}]}], "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{
       "\"\<\!\(\*SuperscriptBox[SubscriptBox[\(\[Sigma]\), \([\((n - k)\) - \
esfera]\)], \(2\)]\) = \>\"", ",", 
        RowBox[{"Style", "[", 
         RowBox[{
          RowBox[{"Chop", "[", 
           RowBox[{
            RowBox[{"GeometricProduct", "[", 
             RowBox[{"sigma", ",", "sigma"}], "]"}], ",", 
            RowBox[{"10", "^", 
             RowBox[{"(", 
              RowBox[{"-", "2"}], ")"}]}]}], "]"}], ",", "Red"}], "]"}]}], 
       "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"rQuadrado", " ", "=", " ", 
       RowBox[{"Chop", "[", 
        RowBox[{
         RowBox[{"GeometricProduct", "[", 
          RowBox[{"sigma", ",", "sigma"}], "]"}], ",", 
         RowBox[{"10", "^", 
          RowBox[{"(", 
           RowBox[{"-", "2"}], ")"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{
       "\"\<Raio[\!\(\*SubscriptBox[\(\[Sigma]\), \([\((n - k)\) - \\\ \
esfera]\)]\)] = \>\"", ",", 
        RowBox[{"Style", "[", 
         RowBox[{
          RowBox[{"Sqrt", "[", "rQuadrado", "]"}], ",", "Red"}], "]"}]}], 
       "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", "\"\<----------\>\"", "]"}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
        RowBox[{"normaliza", " ", "a", " ", 
         RowBox[{"(", 
          RowBox[{"n", "-", "k"}], ")"}]}], "-", "esfera"}], " ", "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
        RowBox[{"calcula", " ", "inversa", " ", "de", " ", "a"}], ",", " ", 
        RowBox[{"obs", ":", " ", 
         RowBox[{"pode", " ", "gerar", " ", "erro"}]}]}], " ", "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"aa", "=", 
       RowBox[{"Chop", "[", 
        RowBox[{
         RowBox[{"GeometricProduct", "[", 
          RowBox[{"a", ",", "a"}], "]"}], ",", 
         RowBox[{"10", "^", 
          RowBox[{"(", 
           RowBox[{"-", "epsilon"}], ")"}]}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"inva", "=", 
       RowBox[{"Chop", "[", 
        RowBox[{
         RowBox[{"GeometricProduct", "[", 
          RowBox[{"a", ",", 
           RowBox[{"MultivectorInverse", "[", "aa", "]"}]}], "]"}], ",", 
         RowBox[{"10", "^", 
          RowBox[{"(", 
           RowBox[{"-", "epsilon"}], ")"}]}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"sigmaN", "=", 
       RowBox[{"-", 
        RowBox[{"Chop", "[", 
         RowBox[{
          RowBox[{"GeometricProduct", "[", 
           RowBox[{"sigma", ",", "inva"}], "]"}], ",", 
          RowBox[{"10", "^", 
           RowBox[{"(", 
            RowBox[{"-", "epsilon"}], ")"}]}]}], "]"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"rQuadradoN", " ", "=", " ", 
       RowBox[{"Chop", "[", 
        RowBox[{
         RowBox[{"GeometricProduct", "[", 
          RowBox[{"sigmaN", ",", "sigmaN"}], "]"}], ",", 
         RowBox[{"10", "^", 
          RowBox[{"(", 
           RowBox[{"-", "2"}], ")"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{
       "\"\<>> \!\(\*SubscriptBox[SubscriptBox[\(\[Sigma]\), \(\([\((n - k)\) \
- \\\ esfera]\) N\)], \(\\\ \)]\)= \>\"", ",", 
        RowBox[{"Style", "[", 
         RowBox[{"sigmaN", ",", "Red"}], "]"}]}], "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{
       "\"\<\!\(\*SubscriptBox[\(e\), \(\[Infinity]\)]\) . \
\!\(\*SubscriptBox[\(\[Sigma]\), \(\([\((n - k)\) - \\\ esfera]\) N\)]\) = \>\
\"", ",", 
        RowBox[{"Style", "[", 
         RowBox[{
          RowBox[{"Chop", "[", 
           RowBox[{
            RowBox[{"InnerProduct", "[", 
             RowBox[{"einf", ",", "sigmaN"}], "]"}], ",", 
            RowBox[{"10", "^", 
             RowBox[{"(", 
              RowBox[{"-", "2"}], ")"}]}]}], "]"}], ",", "Red"}], "]"}]}], 
       "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{
       "\"\<\!\(\*SuperscriptBox[SubscriptBox[\(\[Sigma]\), \(\([\((n - k)\) \
- \\\ esfera]\) N\)], \(2\)]\) = \>\"", ",", 
        RowBox[{"Style", "[", 
         RowBox[{"rQuadradoN", ",", "Red"}], "]"}]}], "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{
       "\"\<Raio[\!\(\*SubscriptBox[\(\[Sigma]\), \(\([\((n - k)\) - \\\ \
esfera]\) N\)]\)] = \>\"", ",", 
        RowBox[{"Style", "[", 
         RowBox[{
          RowBox[{"Sqrt", "[", "rQuadradoN", "]"}], ",", "Red"}], "]"}]}], 
       "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
        RowBox[{"calcula", " ", "centro", " ", "da", " ", 
         RowBox[{"(", 
          RowBox[{"n", "-", "k"}], ")"}]}], "-", "esfera"}], " ", "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"Print", "[", "\"\<----------\>\"", "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"centroNkEsfera", " ", "=", 
         RowBox[{"Chop", "[", 
          RowBox[{
           RowBox[{"GeometricProduct", "[", 
            RowBox[{
             RowBox[{"GeometricProduct", "[", 
              RowBox[{"sigmaN", ",", " ", "einf"}], "]"}], ",", " ", 
             "sigmaN"}], "]"}], ",", " ", 
           RowBox[{"10", "^", 
            RowBox[{"(", 
             RowBox[{"-", "epsilon"}], ")"}]}]}], "]"}]}], ";"}], "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"centroNkEsfera", " ", "=", " ", 
         RowBox[{"sigmaN", " ", "+", " ", 
          RowBox[{
           RowBox[{"1", "/", "2"}], "*", "rQuadradoN", "*", "einf"}]}]}], 
        ";"}], "*)"}], "\[IndentingNewLine]", 
      RowBox[{"centroNkEsfera", " ", "=", " ", 
       RowBox[{"Chop", "[", 
        RowBox[{
         RowBox[{"GeometricProduct", "[", 
          RowBox[{"sigma", ",", " ", "einf", ",", " ", "sigma"}], "]"}], ",", 
         " ", 
         RowBox[{"10", "^", 
          RowBox[{"(", 
           RowBox[{"-", "epsilon"}], ")"}]}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{
       "\"\<>> Centro[\!\(\*SubscriptBox[\(\[Sigma]\), \([n - k\\\ esfera]\)]\
\)]= \>\"", ",", 
        RowBox[{"Style", "[", 
         RowBox[{"centroNkEsfera", ",", "Red"}], "]"}]}], "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{
       "\"\<>> Centro[\!\(\*SubscriptBox[\(\[Sigma]\), \([n - k\\\ esfera]\)]\
\)]. \!\(\*SubscriptBox[\(e\), \(\[Infinity]\)]\) = \>\"", ",", 
        RowBox[{"Style", "[", 
         RowBox[{
          RowBox[{"Chop", "[", 
           RowBox[{
            RowBox[{"InnerProduct", "[", 
             RowBox[{"einf", ",", "centroNkEsfera"}], "]"}], ",", 
            RowBox[{"10", "^", 
             RowBox[{"(", 
              RowBox[{"-", "2"}], ")"}]}]}], "]"}], ",", "Red"}], "]"}]}], 
       "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"centroNkEsferaN", " ", "=", " ", 
       RowBox[{"Chop", "[", 
        RowBox[{
         RowBox[{"GeometricProduct", "[", 
          RowBox[{"sigmaN", ",", " ", "einf", ",", " ", "sigmaN"}], "]"}], 
         ",", " ", 
         RowBox[{"10", "^", 
          RowBox[{"(", 
           RowBox[{"-", "epsilon"}], ")"}]}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{
       "\"\<>> Centro[\!\(\*SubscriptBox[\(\[Sigma]\), \(\([n - k\\\ \
esfera]\) N\)]\)]= \>\"", ",", 
        RowBox[{"Style", "[", 
         RowBox[{"centroNkEsferaN", ",", "Red"}], "]"}]}], "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{
       "\"\<>> Centro[\!\(\*SubscriptBox[\(\[Sigma]\), \(\([n - k\\\ \
esfera]\) N\)]\)] . \!\(\*SubscriptBox[\(e\), \(\[Infinity]\)]\) = \>\"", ",", 
        RowBox[{"Style", "[", 
         RowBox[{
          RowBox[{"Chop", "[", 
           RowBox[{
            RowBox[{"InnerProduct", "[", 
             RowBox[{"einf", ",", "centroNkEsferaN"}], "]"}], ",", 
            RowBox[{"10", "^", 
             RowBox[{"(", 
              RowBox[{"-", "2"}], ")"}]}]}], "]"}], ",", "Red"}], "]"}]}], 
       "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", "\"\<----------\>\"", "]"}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
        RowBox[{"normaliza", " ", "centro", " ", "da", " ", 
         RowBox[{"(", 
          RowBox[{"n", "-", "k"}], ")"}]}], "-", "esfera"}], " ", "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"a", "=", 
       RowBox[{"Chop", "[", 
        RowBox[{
         RowBox[{"InnerProduct", "[", 
          RowBox[{"einf", ",", "centroNkEsfera"}], "]"}], ",", 
         RowBox[{"10", "^", 
          RowBox[{"(", 
           RowBox[{"-", "epsilon"}], ")"}]}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"aa", "=", 
       RowBox[{"Chop", "[", 
        RowBox[{
         RowBox[{"GeometricProduct", "[", 
          RowBox[{"a", ",", "a"}], "]"}], ",", 
         RowBox[{"10", "^", 
          RowBox[{"(", 
           RowBox[{"-", "epsilon"}], ")"}]}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"inva", "=", 
       RowBox[{"Chop", "[", 
        RowBox[{
         RowBox[{"GeometricProduct", "[", 
          RowBox[{"a", ",", 
           RowBox[{"MultivectorInverse", "[", "aa", "]"}]}], "]"}], ",", 
         RowBox[{"10", "^", 
          RowBox[{"(", 
           RowBox[{"-", "epsilon"}], ")"}]}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"centroNkEsfera", "=", 
       RowBox[{"-", 
        RowBox[{"Chop", "[", 
         RowBox[{
          RowBox[{"GeometricProduct", "[", 
           RowBox[{"centroNkEsfera", ",", "inva"}], "]"}], ",", 
          RowBox[{"10", "^", 
           RowBox[{"(", 
            RowBox[{"-", "epsilon"}], ")"}]}]}], "]"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{
       "\"\<>> Centro[\!\(\*SubscriptBox[\(\[Sigma]\), \([n - k\\\ esfera]\)]\
\)\!\(\*SubscriptBox[\(]\), \(N\)]\) = \>\"", ",", 
        RowBox[{"Style", "[", 
         RowBox[{"centroNkEsfera", ",", "Red"}], "]"}]}], "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{
       "\"\<>> Centro[\!\(\*SubscriptBox[\(\[Sigma]\), \([n - k\\\ esfera]\)]\
\)\!\(\*SubscriptBox[\(]\), \(N\)]\) . \!\(\*SubscriptBox[\(e\), \
\(\[Infinity]\)]\) = \>\"", ",", 
        RowBox[{"Style", "[", 
         RowBox[{
          RowBox[{"Chop", "[", 
           RowBox[{
            RowBox[{"InnerProduct", "[", 
             RowBox[{"einf", ",", "centroNkEsfera"}], "]"}], ",", 
            RowBox[{"10", "^", 
             RowBox[{"(", 
              RowBox[{"-", "2"}], ")"}]}]}], "]"}], ",", "Red"}], "]"}]}], 
       "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"extrai", " ", "o", " ", "centro"}], " ", "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"Ie", "=", 
       RowBox[{"OuterProduct", "[", 
        RowBox[{"einf", ",", "e0"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"centroNkEsferaEuclideano", " ", "=", " ", 
       RowBox[{"GeometricProduct", "[", 
        RowBox[{
         RowBox[{"OuterProduct", "[", 
          RowBox[{"centroNkEsfera", ",", "Ie"}], "]"}], ",", "Ie"}], "]"}]}], 
      ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{
       "\"\<>> Centro[\!\(\*SubscriptBox[\(\[Sigma]\), \([n - k\\\ esfera]\)]\
\)\!\(\*SubscriptBox[\(]\), \(N\)]\) euclideano = \>\"", ",", 
        RowBox[{"Style", "[", 
         RowBox[{
          RowBox[{"ToVector", "[", 
           RowBox[{"centroNkEsferaEuclideano", "[", 
            RowBox[{"[", 
             RowBox[{"2", ";;"}], "]"}], "]"}], "]"}], ",", " ", "Red"}], 
         "]"}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
        RowBox[{"normaliza", " ", "centro", " ", "da", " ", 
         RowBox[{"(", 
          RowBox[{"n", "-", "k"}], ")"}]}], "-", 
        RowBox[{"esfera", " ", "normalizada"}]}], " ", "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"a", "=", 
       RowBox[{"Chop", "[", 
        RowBox[{
         RowBox[{"InnerProduct", "[", 
          RowBox[{"einf", ",", "centroNkEsferaN"}], "]"}], ",", 
         RowBox[{"10", "^", 
          RowBox[{"(", 
           RowBox[{"-", "epsilon"}], ")"}]}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"aa", "=", 
       RowBox[{"Chop", "[", 
        RowBox[{
         RowBox[{"GeometricProduct", "[", 
          RowBox[{"a", ",", "a"}], "]"}], ",", 
         RowBox[{"10", "^", 
          RowBox[{"(", 
           RowBox[{"-", "epsilon"}], ")"}]}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"inva", "=", 
       RowBox[{"Chop", "[", 
        RowBox[{
         RowBox[{"GeometricProduct", "[", 
          RowBox[{"a", ",", 
           RowBox[{"MultivectorInverse", "[", "aa", "]"}]}], "]"}], ",", 
         RowBox[{"10", "^", 
          RowBox[{"(", 
           RowBox[{"-", "epsilon"}], ")"}]}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"centroNkEsferaN", "=", 
       RowBox[{"-", 
        RowBox[{"Chop", "[", 
         RowBox[{
          RowBox[{"GeometricProduct", "[", 
           RowBox[{"centroNkEsferaN", ",", "inva"}], "]"}], ",", 
          RowBox[{"10", "^", 
           RowBox[{"(", 
            RowBox[{"-", "epsilon"}], ")"}]}]}], "]"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{
       "\"\<>> Centro[\!\(\*SubscriptBox[\(\[Sigma]\), \(N[n - k\\\ \
esfera]\)]\)\!\(\*SubscriptBox[\(]\), \(N\)]\) = \>\"", ",", 
        RowBox[{"Style", "[", 
         RowBox[{"centroNkEsferaN", ",", "Red"}], "]"}]}], "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{
       "\"\<>> Centro[\!\(\*SubscriptBox[\(\[Sigma]\), \(N[n - k\\\ \
esfera]\)]\)\!\(\*SubscriptBox[\(]\), \(N\)]\) . \!\(\*SubscriptBox[\(e\), \(\
\[Infinity]\)]\) = \>\"", ",", 
        RowBox[{"Style", "[", 
         RowBox[{
          RowBox[{"Chop", "[", 
           RowBox[{
            RowBox[{"InnerProduct", "[", 
             RowBox[{"einf", ",", "centroNkEsferaN"}], "]"}], ",", 
            RowBox[{"10", "^", 
             RowBox[{"(", 
              RowBox[{"-", "2"}], ")"}]}]}], "]"}], ",", "Red"}], "]"}]}], 
       "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"extrai", " ", "o", " ", "centro"}], " ", "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"Ie", "=", 
       RowBox[{"OuterProduct", "[", 
        RowBox[{"einf", ",", "e0"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"centroNkEsferaEuclideano", " ", "=", " ", 
       RowBox[{"GeometricProduct", "[", 
        RowBox[{
         RowBox[{"OuterProduct", "[", 
          RowBox[{"centroNkEsferaN", ",", "Ie"}], "]"}], ",", "Ie"}], "]"}]}],
       ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{
       "\"\<>> Centro[\!\(\*SubscriptBox[\(\[Sigma]\), \(N[n - k\\\ \
esfera]\)]\)\!\(\*SubscriptBox[SubscriptBox[\(]\), \(N\)], \(\\\ \
\)]\)euclideano = \>\"", ",", 
        RowBox[{"Style", "[", 
         RowBox[{
          RowBox[{"ToVector", "[", 
           RowBox[{"centroNkEsferaEuclideano", "[", 
            RowBox[{"[", 
             RowBox[{"2", ";;"}], "]"}], "]"}], "]"}], ",", " ", "Red"}], 
         "]"}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"calcula", " ", "dist\[AHat]ncias"}], " ", "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"Print", "[", "\"\<----------\>\"", "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"dcCasca", " ", "=", " ", 
       RowBox[{"Norm", "[", 
        RowBox[{
         RowBox[{"cc", " ", "-", " ", 
          RowBox[{"ToVector", "[", 
           RowBox[{"centroNkEsferaEuclideano", "[", 
            RowBox[{"[", 
             RowBox[{"2", ";;"}], "]"}], "]"}], "]"}]}], ",", "2"}], "]"}]}], 
      ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{
       "\"\<>> \!\(\*SubscriptBox[\(d\), \(\*SubscriptBox[\(c\), \(\((n - \
k)\) - esfera\)], \*SubscriptBox[\(a\), \(m + 1\)]\)]\) = \>\"", ",", 
        RowBox[{"Style", "[", 
         RowBox[{"dcCasca", ",", " ", "Red"}], "]"}]}], "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"dcCasca", " ", "=", " ", 
         RowBox[{"Sqrt", "[", 
          RowBox[{
           RowBox[{"-", "2"}], "*", 
           RowBox[{"InnerProduct", "[", 
            RowBox[{"ccconf", ",", "centroNkEsfera"}], "]"}]}], "]"}]}], 
        ";"}], " ", 
       RowBox[{"(*", " ", 
        RowBox[{"alterado", " ", "para", " ", "testes"}], "*)"}], "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{
       "\"\<>> \!\(\*SubscriptBox[\(d\), \(\*SubscriptBox[\(c\), \(\((n - \
k)\) - esfera\)], \*SubscriptBox[\(a\), \(m + 1\)]\)]\) - \!\(\*SubscriptBox[\
\(raio\), SubscriptBox[\(\[Sigma]\), \(N\)]]\) = \>\"", ",", 
        RowBox[{"Style", "[", 
         RowBox[{
          RowBox[{"dcCasca", " ", "-", " ", 
           RowBox[{"Sqrt", "[", "rQuadradoN", "]"}]}], ",", " ", "Red"}], 
         "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{
       "\"\<>> \!\(\*SubscriptBox[\(d\), \(\*SubscriptBox[\(c\), \(\((n - \
k)\) - esfera\)], \*SubscriptBox[\(a\), \(m + 1\)]\)]\) + \!\(\*SubscriptBox[\
\(raio\), SubscriptBox[\(\[Sigma]\), \(N\)]]\) = \>\"", ",", 
        RowBox[{"Style", "[", 
         RowBox[{
          RowBox[{"dcCasca", " ", "+", " ", 
           RowBox[{"Sqrt", "[", "rQuadradoN", "]"}]}], ",", " ", "Red"}], 
         "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{
       "\"\<>> OBS: (i) \!\(\*SubscriptBox[\(r\), \(casca\)]\) \[Element] [\>\
\"", ",", " ", 
        RowBox[{"Style", "[", 
         RowBox[{"dcint", ",", "Red"}], "]"}], ",", " ", "\"\<, \>\"", ",", 
        " ", 
        RowBox[{"Style", "[", 
         RowBox[{"dcext", ",", "Red"}], "]"}], ",", " ", "\"\<]\>\""}], "]"}],
       ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{
       "\"\<>> (ii) \!\(\*SubscriptBox[\(r\), \(\(casca\)\(*\)\)]\) = \>\"", 
        ",", " ", 
        RowBox[{"Style", "[", 
         RowBox[{"rcasca", ",", "Red"}], "]"}]}], "]"}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
       "define", " ", "casca", " ", "no", " ", "espa\[CCedilla]o", " ", 
        "conforme"}], " ", "*)"}], "\[IndentingNewLine]", " ", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"rcasca", "=", "dcint"}], ";"}], "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"rcasca", "=", "dcext"}], ";", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"rcasca", "=", 
         RowBox[{"dcCasca", " ", "+", " ", 
          RowBox[{"Sqrt", "[", "rQuadradoN", "]"}]}]}], ";"}], "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"Print", "[", "\"\<----------\>\"", "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"sigmacasca", "=", 
       RowBox[{"ccconf", "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"0.5", "*", 
           RowBox[{"rcasca", "^", "2"}]}], ")"}], "*", "einf"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{
       "\"\<>> \!\(\*SubscriptBox[\(c\), \(casca[conforme]\)]\) = \>\"", ",", 
        RowBox[{"Style", "[", 
         RowBox[{"ccconf", ",", "Red"}], "]"}], ",", " ", 
        "\"\<, \!\(\*SubscriptBox[\(r\), \(casca\)]\) \[Element] [\>\"", ",", 
        " ", 
        RowBox[{"Style", "[", 
         RowBox[{"dcint", ",", "Red"}], "]"}], ",", " ", "\"\<, \>\"", ",", 
        " ", 
        RowBox[{"Style", "[", 
         RowBox[{"dcext", ",", "Red"}], "]"}], ",", " ", "\"\<]\>\""}], "]"}],
       ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{
       "\"\<>> \!\(\*SubscriptBox[\(\[Sigma]\), \(\(casca\)\(\\\ \)\)]\)= \
\>\"", ",", 
        RowBox[{"Style", "[", 
         RowBox[{"sigmacasca", ",", "Red"}], "]"}]}], "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{
       "\"\<>> \!\(\*SubscriptBox[\(r\), \(\(casca\)\(*\)\)]\) = \>\"", ",", 
        " ", 
        RowBox[{"Style", "[", 
         RowBox[{"rcasca", ",", "Red"}], "]"}]}], "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{
       "\"\<>> \!\(\*SubscriptBox[SubscriptBox[\(c\), \(casca\)], \
\([conforme]\)]\) . \!\(\*SubscriptBox[\(e\), \(\[Infinity]\)]\) = \>\"", ",", 
        RowBox[{"Style", "[", 
         RowBox[{
          RowBox[{"Chop", "[", 
           RowBox[{
            RowBox[{"InnerProduct", "[", 
             RowBox[{"einf", ",", "ccconf"}], "]"}], ",", 
            RowBox[{"10", "^", 
             RowBox[{"(", 
              RowBox[{"-", "2"}], ")"}]}]}], "]"}], ",", "Red"}], "]"}]}], 
       "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{
       "\"\<>> \!\(\*SubscriptBox[\(\[Sigma]\), \(casca\)]\) . \
\!\(\*SubscriptBox[\(e\), \(\[Infinity]\)]\) = \>\"", ",", 
        RowBox[{"Style", "[", 
         RowBox[{
          RowBox[{"Chop", "[", 
           RowBox[{
            RowBox[{"InnerProduct", "[", 
             RowBox[{"einf", ",", "sigmacasca"}], "]"}], ",", 
            RowBox[{"10", "^", 
             RowBox[{"(", 
              RowBox[{"-", "2"}], ")"}]}]}], "]"}], ",", "Red"}], "]"}]}], 
       "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{
       "\"\<>> \!\(\*SubscriptBox[\(\[Sigma]\), \(casca\)]\) . \
\!\(\*SubscriptBox[\(c\), \(\([n - k]\) N\)]\) = \>\"", ",", 
        RowBox[{"Style", "[", 
         RowBox[{
          RowBox[{"Chop", "[", 
           RowBox[{
            RowBox[{"InnerProduct", "[", 
             RowBox[{"centroNkEsferaN", ",", "sigmacasca"}], "]"}], ",", 
            RowBox[{"10", "^", 
             RowBox[{"(", 
              RowBox[{"-", "2"}], ")"}]}]}], "]"}], ",", "Red"}], "]"}]}], 
       "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", "\"\<----------\>\"", "]"}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
       "computa", " ", "interse\[CCedilla]\[ATilde]o", " ", "entre", " ", 
        "esferas", " ", "e", " ", "casca", " ", "esf\[EAcute]rica"}], " ", 
       "*)"}], "\[IndentingNewLine]", 
      RowBox[{"kappa", "=", 
       RowBox[{"Chop", "[", 
        RowBox[{
         RowBox[{"OuterProduct", "[", 
          RowBox[{"sigma", ",", "sigmacasca"}], "]"}], ",", 
         RowBox[{"10", "^", 
          RowBox[{"(", 
           RowBox[{"-", "epsilon"}], ")"}]}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{
       "\"\<>> \!\(\*SubscriptBox[\(\[Kappa]\), \(\\\ \)]\)= \>\"", ",", 
        RowBox[{"Style", "[", 
         RowBox[{"kappa", ",", "Red"}], "]"}]}], "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{
       "\"\<>> \!\(\*SubscriptBox[\(e\), \(\[Infinity]\)]\).\[Kappa] = \>\"", 
        ",", 
        RowBox[{"Style", "[", 
         RowBox[{
          RowBox[{"InnerProduct", "[", 
           RowBox[{"einf", ",", "kappa"}], "]"}], ",", "Red"}], "]"}]}], 
       "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{
       "\"\<>> \!\(\*SuperscriptBox[\(\[Kappa]\), \(2\)]\) = \>\"", ",", 
        RowBox[{"Style", "[", 
         RowBox[{
          RowBox[{"Chop", "[", 
           RowBox[{
            RowBox[{"GeometricProduct", "[", 
             RowBox[{"kappa", ",", "kappa"}], "]"}], ",", 
            RowBox[{"10", "^", 
             RowBox[{"(", 
              RowBox[{"-", "2"}], ")"}]}]}], "]"}], ",", "Red"}], "]"}]}], 
       "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{"normaliza", " ", "kappa"}], " ", "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"a", "=", 
         RowBox[{"Chop", "[", 
          RowBox[{
           RowBox[{"InnerProduct", "[", 
            RowBox[{"einf", ",", "kappa"}], "]"}], ",", 
           RowBox[{"10", "^", 
            RowBox[{"(", 
             RowBox[{"-", "epsilon"}], ")"}]}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{"calcula", " ", "inversa", " ", "de", " ", "a"}], ",", 
          RowBox[{"obs", ":", 
           RowBox[{"o", " ", "programa", " ", "da", " ", "erro"}]}], ",", 
          RowBox[{"as", " ", "vezes"}]}], "*)"}], "\[IndentingNewLine]", 
        RowBox[{"aa", "=", 
         RowBox[{"Chop", "[", 
          RowBox[{
           RowBox[{"GeometricProduct", "[", 
            RowBox[{"a", ",", "a"}], "]"}], ",", 
           RowBox[{"10", "^", 
            RowBox[{"(", 
             RowBox[{"-", "epsilon"}], ")"}]}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"inva", "=", 
         RowBox[{"Chop", "[", 
          RowBox[{
           RowBox[{"GeometricProduct", "[", 
            RowBox[{"a", ",", 
             RowBox[{"MultivectorInverse", "[", "aa", "]"}]}], "]"}], ",", 
           RowBox[{"10", "^", 
            RowBox[{"(", 
             RowBox[{"-", "epsilon"}], ")"}]}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"kappaN", "=", 
         RowBox[{"-", 
          RowBox[{"Chop", "[", 
           RowBox[{
            RowBox[{"GeometricProduct", "[", 
             RowBox[{"kappa", ",", "inva"}], "]"}], ",", 
            RowBox[{"10", "^", 
             RowBox[{"(", 
              RowBox[{"-", "epsilon"}], ")"}]}]}], "]"}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"Print", "[", 
         RowBox[{
         "\"\<>> \!\(\*SubscriptBox[SubscriptBox[\(\[Kappa]\), \(N\)], \(\\\ \
\)]\)= \>\"", ",", 
          RowBox[{"Style", "[", 
           RowBox[{"kappaN", ",", "Red"}], "]"}]}], "]"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"Print", "[", 
         RowBox[{
         "\"\<>> \!\(\*SubscriptBox[\(e\), \
\(\[Infinity]\)]\).\!\(\*SubscriptBox[\(\[Kappa]\), \(N\)]\) = \>\"", ",", 
          RowBox[{"Style", "[", 
           RowBox[{
            RowBox[{"Chop", "[", 
             RowBox[{
              RowBox[{"InnerProduct", "[", 
               RowBox[{"einf", ",", "kappaN"}], "]"}], ",", 
              RowBox[{"10", "^", 
               RowBox[{"(", 
                RowBox[{"-", "2"}], ")"}]}]}], "]"}], ",", "Red"}], "]"}]}], 
         "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"Print", "[", 
         RowBox[{
         "\"\<>> \!\(\*SuperscriptBox[SubscriptBox[\(\[Kappa]\), \(N\)], \
\(2\)]\) = \>\"", ",", 
          RowBox[{"Style", "[", 
           RowBox[{
            RowBox[{"Chop", "[", 
             RowBox[{
              RowBox[{"GeometricProduct", "[", 
               RowBox[{"kappaN", ",", "kappaN"}], "]"}], ",", 
              RowBox[{"10", "^", 
               RowBox[{"(", 
                RowBox[{"-", "2"}], ")"}]}]}], "]"}], ",", "Red"}], "]"}]}], 
         "]"}], ";"}], "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"sigma", " ", "=", " ", "kappa"}], ";", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
       "extrai", " ", "pontos", " ", "do", " ", "par", " ", "de", " ", 
        "ptos"}], "*)"}], "\[IndentingNewLine]", 
      RowBox[{"a2", "=", 
       RowBox[{"Chop", "[", 
        RowBox[{
         RowBox[{"InnerProduct", "[", 
          RowBox[{"einf", ",", 
           RowBox[{"Dual", "[", 
            RowBox[{"sigma", ",", 
             RowBox[{"p", "+", "1"}]}], "]"}]}], "]"}], ",", 
         RowBox[{"10", "^", 
          RowBox[{"(", 
           RowBox[{"-", "epsilon"}], ")"}]}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"pto1", "=", 
       RowBox[{"Chop", "[", 
        RowBox[{
         RowBox[{"-", 
          RowBox[{"GeometricProduct", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"Sqrt", "[", 
              RowBox[{"InnerProduct", "[", 
               RowBox[{
                RowBox[{"Dual", "[", 
                 RowBox[{"sigma", ",", 
                  RowBox[{"p", "+", "1"}]}], "]"}], ",", 
                RowBox[{"Dual", "[", 
                 RowBox[{"sigma", ",", 
                  RowBox[{"p", "+", "1"}]}], "]"}]}], "]"}], "]"}], "+", 
             RowBox[{"Dual", "[", 
              RowBox[{"sigma", ",", 
               RowBox[{"p", "+", "1"}]}], "]"}]}], ",", 
            RowBox[{"MultivectorInverse", "[", "a2", "]"}]}], "]"}]}], ",", 
         RowBox[{"10", "^", 
          RowBox[{"(", 
           RowBox[{"-", "epsilon"}], ")"}]}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Ie", "=", 
       RowBox[{"OuterProduct", "[", 
        RowBox[{"einf", ",", "e0"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"pto2", "=", 
       RowBox[{"Chop", "[", 
        RowBox[{
         RowBox[{"GeometricProduct", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Sqrt", "[", 
             RowBox[{"InnerProduct", "[", 
              RowBox[{
               RowBox[{"Dual", "[", 
                RowBox[{"sigma", ",", 
                 RowBox[{"p", "+", "1"}]}], "]"}], ",", 
               RowBox[{"Dual", "[", 
                RowBox[{"sigma", ",", 
                 RowBox[{"p", "+", "1"}]}], "]"}]}], "]"}], "]"}], "-", 
            RowBox[{"Dual", "[", 
             RowBox[{"sigma", ",", 
              RowBox[{"p", "+", "1"}]}], "]"}]}], ",", 
           RowBox[{"MultivectorInverse", "[", "a2", "]"}]}], "]"}], ",", 
         RowBox[{"10", "^", 
          RowBox[{"(", 
           RowBox[{"-", "epsilon"}], ")"}]}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"x1", "=", 
       RowBox[{"GeometricProduct", "[", 
        RowBox[{
         RowBox[{"OuterProduct", "[", 
          RowBox[{"pto1", ",", "Ie"}], "]"}], ",", "Ie"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"x2", "=", 
       RowBox[{"GeometricProduct", "[", 
        RowBox[{
         RowBox[{"OuterProduct", "[", 
          RowBox[{"pto2", ",", "Ie"}], "]"}], ",", "Ie"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Print", "[", "\"\<\>\"", "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"Print", "[", 
         RowBox[{"\"\<>> Solu\[CCedilla]\[OTilde]es: x1 = \>\"", ",", 
          RowBox[{"Style", "[", 
           RowBox[{
            RowBox[{"MatrixForm", "[", "x1", "]"}], ",", "Red"}], "]"}], ",", 
          "\"\<,  x2 = \>\"", ",", 
          RowBox[{"Style", "[", 
           RowBox[{
            RowBox[{"MatrixForm", "[", "x2", "]"}], ",", "Red"}], "]"}]}], 
         "]"}], ";"}], "*)"}], "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{"\"\<>> Solu\[CCedilla]\[OTilde]es: x1 = \>\"", ",", 
        RowBox[{"Style", "[", 
         RowBox[{
          RowBox[{"MatrixForm", "[", 
           RowBox[{"ToVector", "[", 
            RowBox[{"x1", "[", 
             RowBox[{"[", 
              RowBox[{"2", ";;"}], "]"}], "]"}], "]"}], "]"}], ",", "Red"}], 
         "]"}], ",", "\"\<,  x2 = \>\"", ",", 
        RowBox[{"Style", "[", 
         RowBox[{
          RowBox[{"MatrixForm", "[", 
           RowBox[{"ToVector", "[", 
            RowBox[{"x2", "[", 
             RowBox[{"[", 
              RowBox[{"2", ";;"}], "]"}], "]"}], "]"}], "]"}], ",", "Red"}], 
         "]"}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"Print", "[", "\"\<Solucoes: \>\"", "]"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"Print", "[", 
         RowBox[{"\"\<x_1 =\>\"", ",", 
          RowBox[{"Style", "[", 
           RowBox[{"x1", ",", "Red"}], "]"}], ",", "\"\< \[Element] R^\>\"", 
          ",", 
          RowBox[{"Style", "[", 
           RowBox[{"n", ",", "Red"}], "]"}]}], "]"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"Print", "[", 
         RowBox[{"\"\<x_2 =\>\"", ",", 
          RowBox[{"Style", "[", 
           RowBox[{"x2", ",", "Red"}], "]"}], ",", "\"\< \[Element] R^\>\"", 
          ",", 
          RowBox[{"Style", "[", 
           RowBox[{"n", ",", "Red"}], "]"}]}], "]"}], ";"}], "*)"}], 
      RowBox[{"(*", 
       RowBox[{
       "calcula", " ", "erro", " ", "da", " ", "solu\[CCedilla]\[ATilde]o", 
        " ", "encontrada"}], "*)"}], "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"erro", "=", 
         RowBox[{"erroMDE", "[", 
          RowBox[{
           RowBox[{"ToVector", "[", 
            RowBox[{"x1", "[", 
             RowBox[{"[", 
              RowBox[{"2", ";;"}], "]"}], "]"}], "]"}], ",", "A", ",", "d", 
           ",", "m"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{"Print", "[", 
           RowBox[{"\"\<erro = \>\"", ",", 
            RowBox[{"Style", "[", 
             RowBox[{"erro", ",", "Red"}], "]"}]}], "]"}], ";"}], "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{"Print", "[", 
         RowBox[{"\"\<>> Erro de x1 = \>\"", ",", 
          RowBox[{"Style", "[", 
           RowBox[{"erro", ",", "Red"}], "]"}]}], "]"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"Print", "[", 
         RowBox[{"\"\<>> Erro de x2 = \>\"", ",", 
          RowBox[{"Style", "[", 
           RowBox[{
            RowBox[{"erroMDE", "[", 
             RowBox[{
              RowBox[{"ToVector", "[", 
               RowBox[{"x2", "[", 
                RowBox[{"[", 
                 RowBox[{"2", ";;"}], "]"}], "]"}], "]"}], ",", "A", ",", "d",
               ",", "m"}], "]"}], ",", "Red"}], "]"}]}], "]"}], ";"}], 
       "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"Print", "[", "\"\<Solucoes: \>\"", "]"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"Print", "[", 
         RowBox[{"\"\<x_1 =\>\"", ",", 
          RowBox[{"Style", "[", 
           RowBox[{"x1", ",", "Red"}], "]"}], ",", "\"\< \[Element] R^\>\"", 
          ",", 
          RowBox[{"Style", "[", 
           RowBox[{"n", ",", "Red"}], "]"}]}], "]"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"Print", "[", 
         RowBox[{"\"\<x_2 =\>\"", ",", 
          RowBox[{"Style", "[", 
           RowBox[{"x2", ",", "Red"}], "]"}], ",", "\"\< \[Element] R^\>\"", 
          ",", 
          RowBox[{"Style", "[", 
           RowBox[{"n", ",", "Red"}], "]"}]}], "]"}], ";"}], "*)"}], 
      RowBox[{"(*", 
       RowBox[{
       "calcula", " ", "erro", " ", "da", " ", "solu\[CCedilla]\[ATilde]o", 
        " ", "encontrada"}], "*)"}], "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"erro", "=", 
         RowBox[{"erroMDE", "[", 
          RowBox[{
           RowBox[{"ToVector", "[", 
            RowBox[{"x1", "[", 
             RowBox[{"[", 
              RowBox[{"2", ";;"}], "]"}], "]"}], "]"}], ",", "A", ",", "d", 
           ",", "m"}], "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"erro", "=", 
         RowBox[{"erroMDE", "[", 
          RowBox[{"sol1", ",", "A", ",", "d", ",", "m"}], "]"}]}], ";"}], 
       "*)"}], "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"Print", "[", 
         RowBox[{"\"\<erro = \>\"", ",", 
          RowBox[{"Style", "[", 
           RowBox[{"erro", ",", "Red"}], "]"}]}], "]"}], ";"}], "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"Print", "[", 
         RowBox[{"\"\<>> Erro de x1 = \>\"", ",", 
          RowBox[{"Style", "[", 
           RowBox[{"erro", ",", "Red"}], "]"}]}], "]"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"Print", "[", 
         RowBox[{"\"\<>> Erro de x2 = \>\"", ",", 
          RowBox[{"Style", "[", 
           RowBox[{
            RowBox[{"erroMDE", "[", 
             RowBox[{
              RowBox[{"ToVector", "[", 
               RowBox[{"x2", "[", 
                RowBox[{"[", 
                 RowBox[{"2", ";;"}], "]"}], "]"}], "]"}], ",", "A", ",", "d",
               ",", "m"}], "]"}], ",", "Red"}], "]"}]}], "]"}], ";"}], "*)"}],
       "\[IndentingNewLine]", " ", "\[IndentingNewLine]", 
      RowBox[{"Return", "[", 
       RowBox[{"{", 
        RowBox[{"x1", ",", "x2", ",", " ", "erro"}], "}"}], "]"}], ";"}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7988491026379023`*^9, 3.7988491378776875`*^9}, {
   3.7989321017142706`*^9, 3.7989321035110836`*^9}, {3.7989339151308336`*^9, 
   3.798933949599201*^9}, {3.798934026475397*^9, 3.79893407373499*^9}, {
   3.7989344305142107`*^9, 3.7989344457192955`*^9}, {3.7989344899651127`*^9, 
   3.7989346064602795`*^9}, {3.798934656989333*^9, 3.798934694740932*^9}, {
   3.7989351336440277`*^9, 3.7989351393504925`*^9}, {3.798935190884212*^9, 
   3.798935301040403*^9}, {3.7989354323390794`*^9, 3.7989354647546015`*^9}, {
   3.7989357585577383`*^9, 3.798935990910859*^9}, {3.7989360252367325`*^9, 
   3.7989360281605253`*^9}, {3.7989360623218827`*^9, 
   3.7989362573476706`*^9}, {3.79893655741893*^9, 3.798936566391*^9}, {
   3.7989366837267485`*^9, 3.79893669830015*^9}, {3.7989367437082243`*^9, 
   3.7989367440989823`*^9}, {3.79893677652629*^9, 3.798936904216214*^9}, {
   3.7989369596863813`*^9, 3.7989370147866893`*^9}, {3.798937071549095*^9, 
   3.7989370904203377`*^9}, 3.7989371473782644`*^9, {3.798937232118904*^9, 
   3.798937241093556*^9}, {3.7989372769911523`*^9, 3.7989372778622627`*^9}, {
   3.7989373120898514`*^9, 3.7989373336306057`*^9}, {3.7989373803105006`*^9, 
   3.798937406317978*^9}, {3.7989375034059334`*^9, 3.7989375258992233`*^9}, {
   3.7989377117582493`*^9, 3.798937716388688*^9}, {3.7989378050522523`*^9, 
   3.798937843982539*^9}, {3.7989380067901225`*^9, 3.798938006962016*^9}, {
   3.7989380464867134`*^9, 3.798938050611435*^9}, {3.798938100150633*^9, 
   3.798938149061598*^9}, {3.7989383976925135`*^9, 3.7989385230323567`*^9}, 
   3.7989386427623444`*^9, {3.798938684929388*^9, 3.7989387008183823`*^9}, {
   3.7989388091434965`*^9, 3.79893883909704*^9}, {3.7989389742061586`*^9, 
   3.798938978225956*^9}, {3.798939012821412*^9, 3.7989390130088997`*^9}, {
   3.798939201833914*^9, 3.7989392036307335`*^9}, {3.798939235035968*^9, 
   3.7989392352703357`*^9}, {3.7989394613747396`*^9, 3.798939528731928*^9}, {
   3.7990172110000772`*^9, 3.7990172405387907`*^9}, {3.7990172830571957`*^9, 
   3.7990173061471705`*^9}, {3.7990173645551395`*^9, 
   3.7990173848124833`*^9}, {3.799017462475121*^9, 3.799017486226227*^9}, {
   3.7990175347038174`*^9, 3.7990176226228933`*^9}, {3.799017688165295*^9, 
   3.7990177212476373`*^9}, {3.7990177781744895`*^9, 3.799017811260968*^9}, {
   3.7990178791634493`*^9, 3.7990180619822855`*^9}, {3.7990181344039145`*^9, 
   3.7990181594308815`*^9}, {3.7990181988926353`*^9, 3.79901835009962*^9}, {
   3.7990184292889175`*^9, 3.7990185149265594`*^9}, {3.7990185750051355`*^9, 
   3.7990186099573803`*^9}, {3.7990186496519012`*^9, 
   3.7990187005859833`*^9}, {3.799018870111719*^9, 3.799018882468713*^9}, {
   3.7990191657316384`*^9, 3.799019191292179*^9}, {3.799019310749214*^9, 
   3.7990193140294886`*^9}, {3.7990193629764013`*^9, 
   3.7990193697201324`*^9}, {3.799019415553768*^9, 3.799019512483132*^9}, {
   3.7990195631977625`*^9, 3.799019580973339*^9}, {3.799019613478673*^9, 
   3.7990196298323097`*^9}, {3.799020176185294*^9, 3.799020183590716*^9}, {
   3.7990208074173884`*^9, 3.7990208080852804`*^9}, {3.7990209808227053`*^9, 
   3.7990209818878765`*^9}, {3.7990212308926153`*^9, 
   3.7990212312813764`*^9}, {3.7990212833202143`*^9, 3.799021284232419*^9}, 
   3.7990215097558737`*^9, {3.7990215664564657`*^9, 3.7990216001279144`*^9}, {
   3.799021855535513*^9, 3.7990219056627073`*^9}, {3.7990219456177006`*^9, 
   3.7990219514176044`*^9}, {3.79902206388367*^9, 3.799022082796544*^9}, {
   3.799022194793467*^9, 3.799022228453129*^9}, {3.7990222904644957`*^9, 
   3.7990223003789883`*^9}, 3.7990224070700965`*^9, {3.7990227965747576`*^9, 
   3.79902280309263*^9}, {3.799022917389024*^9, 3.79902294709509*^9}, {
   3.799023096709427*^9, 3.7990231012122965`*^9}, 3.7990231751997576`*^9, {
   3.799023333859969*^9, 3.7990233491081142`*^9}, {3.7990233926306643`*^9, 
   3.7990234716497765`*^9}, 3.7991012801036177`*^9, {3.799101372529049*^9, 
   3.799101378292694*^9}, {3.7991014306045527`*^9, 3.7991014820119753`*^9}, {
   3.7991015133775473`*^9, 3.7991015175934925`*^9}, {3.79910171594981*^9, 
   3.7991018439453025`*^9}, {3.7991018928707333`*^9, 
   3.7991019999730396`*^9}, {3.7991020746169677`*^9, 
   3.7991022023370867`*^9}, {3.799102273018952*^9, 3.7991024004160957`*^9}, {
   3.7991029200286016`*^9, 3.799102937966505*^9}, {3.7991029951329145`*^9, 
   3.799103053686508*^9}, {3.7991031099307303`*^9, 3.79910313410176*^9}, {
   3.799103255149927*^9, 3.7991033013688517`*^9}, {3.799103371189751*^9, 
   3.799103386476164*^9}, {3.799103574791131*^9, 3.799103745762534*^9}, {
   3.7991039545675726`*^9, 3.7991039586471004`*^9}, {3.7991040622937117`*^9, 
   3.7991040703530884`*^9}, 3.7991041895825467`*^9, 3.7991042325632534`*^9, {
   3.799105297132971*^9, 3.799105353900334*^9}, {3.7991054761886353`*^9, 
   3.7991054910921035`*^9}, {3.7991056138639936`*^9, 
   3.7991056195976524`*^9}, {3.7991057402929983`*^9, 3.799105751349515*^9}, {
   3.7991061895610275`*^9, 3.799106210122859*^9}, {3.799106277964401*^9, 
   3.7991062898858895`*^9}, {3.7991063712760687`*^9, 3.799106375979041*^9}, {
   3.799106443242476*^9, 3.7991064462892594`*^9}, {3.7991065205858016`*^9, 
   3.7991065266481113`*^9}, {3.799106575084031*^9, 3.7991065763652425`*^9}, {
   3.7991066066298747`*^9, 3.79910662862916*^9}, {3.7991066596750245`*^9, 
   3.799106673346457*^9}, {3.7991067553615646`*^9, 3.799106759502058*^9}, {
   3.7991068360912743`*^9, 3.7991068820755143`*^9}, {3.799106925605344*^9, 
   3.79910696094794*^9}, {3.799107149928223*^9, 3.799107232192519*^9}, {
   3.7991073018621273`*^9, 3.79910730603386*^9}, {3.7991073579228015`*^9, 
   3.7991073886874294`*^9}, {3.7991074474061365`*^9, 
   3.7991074853267775`*^9}, {3.799107550934024*^9, 3.7991076074968805`*^9}, {
   3.799107734820859*^9, 3.7991077375551453`*^9}, {3.7991077931961*^9, 
   3.7991077951647825`*^9}, {3.799107985722862*^9, 3.799108067032713*^9}, {
   3.7991083421062226`*^9, 3.799108361777469*^9}, {3.7991088477336426`*^9, 
   3.799108849967946*^9}, {3.7991088970914154`*^9, 3.7991089208406405`*^9}, {
   3.799110436957724*^9, 3.799110528532322*^9}, {3.799110795904142*^9, 
   3.7991108462632055`*^9}, {3.799111211549141*^9, 3.7991112162334013`*^9}, {
   3.7991113399479923`*^9, 3.799111369505171*^9}, {3.7991114575195303`*^9, 
   3.799111459926906*^9}, {3.799111501598691*^9, 3.7991115624410763`*^9}, {
   3.799111611602154*^9, 3.7991116164650393`*^9}, 3.799111738762368*^9, {
   3.7991119171518755`*^9, 3.7991119568119636`*^9}, {3.7991121591448984`*^9, 
   3.7991121941493454`*^9}, {3.79911240199047*^9, 3.799112427005287*^9}, {
   3.799112616436615*^9, 3.7991126542791424`*^9}, {3.7991127790578656`*^9, 
   3.7991127855264*^9}, {3.799146817053045*^9, 3.7991468195528884`*^9}, {
   3.7991468821322246`*^9, 3.799146930681431*^9}, {3.7991471670390863`*^9, 
   3.7991471698190026`*^9}, {3.7991472402622867`*^9, 
   3.7991472476523542`*^9}, {3.799147326911808*^9, 3.799147328251864*^9}, {
   3.7991474265405974`*^9, 3.7991474322705812`*^9}, {3.799148296532433*^9, 
   3.7991482990190077`*^9}, 3.799148373201808*^9, 3.7991484051715317`*^9, {
   3.799148486610537*^9, 3.7991484954059124`*^9}, {3.7991485821026917`*^9, 
   3.799148610369254*^9}, {3.7991487175685406`*^9, 3.7991487189284534`*^9}, {
   3.799148977820029*^9, 3.7991490214845285`*^9}, 3.799149055819508*^9, {
   3.799149362246266*^9, 3.7991494012063403`*^9}, {3.799149434415782*^9, 
   3.799149434855896*^9}, {3.799149532494774*^9, 3.7991495505148*^9}, {
   3.7991496069341135`*^9, 3.799149622504141*^9}, 3.7991578328168125`*^9, {
   3.7991578651366024`*^9, 3.7991579444361515`*^9}, {3.7991579815980597`*^9, 
   3.799158135440191*^9}, {3.799158172498228*^9, 3.799158189085026*^9}, {
   3.799158266945157*^9, 3.7991583058408093`*^9}, {3.7991583424372764`*^9, 
   3.7991584737063894`*^9}, {3.7991585169517756`*^9, 3.799158553528855*^9}, {
   3.7991586103852615`*^9, 3.799158619399809*^9}, {3.799165665768549*^9, 
   3.799165666002917*^9}, {3.799165704986023*^9, 3.799165751640761*^9}, {
   3.799165808873267*^9, 3.799165965683679*^9}, {3.7991660104820657`*^9, 
   3.799166045574664*^9}, {3.799166157836633*^9, 3.7991662069004717`*^9}, {
   3.799166300178688*^9, 3.7991663006630554`*^9}, {3.799166544161049*^9, 
   3.7991666486888995`*^9}, {3.7991666973592014`*^9, 
   3.7991667081713347`*^9}, {3.799166829498968*^9, 3.7991668472015195`*^9}, 
   3.7992803866750555`*^9, 3.799280503584164*^9, {3.7992830535286217`*^9, 
   3.7992830839885488`*^9}, {3.7992839111052885`*^9, 3.7992839141550503`*^9}, 
   3.7992841007589183`*^9, {3.7992848196419535`*^9, 3.7992848685459824`*^9}, {
   3.7992851905797544`*^9, 3.7992851945896273`*^9}, 3.799285349703192*^9, {
   3.799285450052163*^9, 3.799285453923478*^9}, {3.799285488897996*^9, 
   3.799285504802514*^9}, {3.7992856272595553`*^9, 3.799285637479074*^9}, {
   3.799286123944852*^9, 3.79928613628963*^9}, {3.799490618089857*^9, 
   3.7994906182357635`*^9}, {3.7994911674243975`*^9, 3.799491196555968*^9}, {
   3.7994912475169992`*^9, 3.799491255100383*^9}, {3.7994912870751233`*^9, 
   3.7994912901926465`*^9}, {3.7995421902351203`*^9, 
   3.7995422144203196`*^9}, {3.799542571943974*^9, 3.799542594734629*^9}, {
   3.799542757673371*^9, 3.799542768893296*^9}, {3.7998502862499576`*^9, 
   3.7998502915450087`*^9}, {3.7998510522107315`*^9, 
   3.7998510918503733`*^9}, {3.799854941994852*^9, 3.7998549677643733`*^9}, {
   3.7998550837532454`*^9, 3.7998551075930734`*^9}},
 CellLabel->"In[7]:=",ExpressionUUID->"cdb6cbd5-a1fb-4104-8d6d-ef803920c8be"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Interse\[CCedilla]\[ATilde]o via \[AAcute]lgebra linear\n",
 StyleBox["qrd, IntersEsferas, IntersEsferas1Casca", "Text",
  FontSize->15,
  FontSlant->"Italic"]
}], "Subchapter",
 CellChangeTimes->{{3.7656280378640203`*^9, 3.7656280836033*^9}, {
   3.7657049805825415`*^9, 3.7657049844201484`*^9}, 
   3.798934944456683*^9},ExpressionUUID->"ac6ba0bd-0c15-4046-b387-\
911835e7c5f1"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"modulo", " ", "decomposicao", " ", "QR"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"qrd", "[", 
      RowBox[{"mat_", "?", "MatrixQ"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"r", "=", "mat"}], ",", "h", ",", "m", ",", "n", ",", "q", 
         ",", "v"}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{
         "Print", "[", 
          "\"\<... \!\(\*OverscriptBox[\(a\), \(^\)]\) = qr \>\"", "]"}], 
         ";"}], "*)"}], "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{"m", ",", "n"}], "}"}], "=", 
         RowBox[{"Dimensions", "[", "r", "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"q", "=", 
         RowBox[{"IdentityMatrix", "[", "m", "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"Do", "[", "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{
           RowBox[{"Print", "[", 
            RowBox[{"\"\<>> k = \>\"", ",", " ", 
             RowBox[{"Style", "[", 
              RowBox[{"kk", ",", "Red"}], "]"}]}], "]"}], ";"}], "*)"}], 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           RowBox[{"v", "=", 
            RowBox[{"PadLeft", "[", 
             RowBox[{
              RowBox[{"r", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"kk", ";;"}], ",", "kk"}], "]"}], "]"}], ",", "m"}], 
             "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"Norm", "[", 
               RowBox[{"v", "-", 
                RowBox[{"SparseArray", "[", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"kk", "\[Rule]", 
                    RowBox[{"Norm", "[", "v", "]"}]}], "}"}], ",", "m"}], 
                 "]"}]}], "]"}], "\[Equal]", "0"}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"(*", 
              RowBox[{
               RowBox[{"Print", "[", 
                RowBox[{"\"\<>> ||refletction vector|| = \>\"", ",", 
                 RowBox[{"Norm", "[", 
                  RowBox[{"v", "-", 
                   RowBox[{"SparseArray", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"kk", "\[Rule]", 
                    RowBox[{"Norm", "[", "v", "]"}]}], "}"}], ",", "m"}], 
                    "]"}]}], "]"}]}], "]"}], ";"}], "*)"}], 
             "\[IndentingNewLine]", 
             RowBox[{"(*", 
              RowBox[{
               RowBox[{"Print", "[", 
                RowBox[{"\"\<>> q = \>\"", ",", 
                 RowBox[{"Style", "[", 
                  RowBox[{
                   RowBox[{"MatrixForm", "[", 
                    RowBox[{"Chop", "[", 
                    RowBox[{"q", ",", 
                    RowBox[{"10", "^", 
                    RowBox[{"-", "9"}]}]}], "]"}], "]"}], ",", "Red"}], 
                  "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
               RowBox[{"Print", "[", 
                RowBox[{"\"\<>> r = \>\"", ",", 
                 RowBox[{"Style", "[", 
                  RowBox[{
                   RowBox[{"MatrixForm", "[", 
                    RowBox[{"Chop", "[", 
                    RowBox[{"r", ",", 
                    RowBox[{"10", "^", 
                    RowBox[{"-", "9"}]}]}], "]"}], "]"}], ",", "Red"}], 
                  "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
               RowBox[{"Print", "[", 
                RowBox[{"\"\<>> h = \>\"", ",", 
                 RowBox[{"Style", "[", 
                  RowBox[{
                   RowBox[{"MatrixForm", "[", 
                    RowBox[{"Chop", "[", 
                    RowBox[{"h", ",", 
                    RowBox[{"10", "^", 
                    RowBox[{"-", "9"}]}]}], "]"}], "]"}], ",", "Red"}], 
                  "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
               RowBox[{"Print", "[", 
                RowBox[{"\"\<>> q = \>\"", ",", 
                 RowBox[{"Style", "[", 
                  RowBox[{
                   RowBox[{"MatrixForm", "[", 
                    RowBox[{"Chop", "[", 
                    RowBox[{
                    RowBox[{"q", "[", 
                    RowBox[{"[", 
                    RowBox[{
                    RowBox[{"kk", ";;"}], ",", "kk"}], "]"}], "]"}], ",", 
                    RowBox[{"10", "^", 
                    RowBox[{"-", "9"}]}]}], "]"}], "]"}], ",", "Red"}], 
                  "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
               RowBox[{"Print", "[", 
                RowBox[{"\"\<>> r = \>\"", ",", 
                 RowBox[{"Style", "[", 
                  RowBox[{
                   RowBox[{"MatrixForm", "[", 
                    RowBox[{"Chop", "[", 
                    RowBox[{
                    RowBox[{"r", "[", 
                    RowBox[{"[", 
                    RowBox[{
                    RowBox[{"kk", ";;"}], ",", "kk"}], "]"}], "]"}], ",", 
                    RowBox[{"10", "^", 
                    RowBox[{"-", "9"}]}]}], "]"}], "]"}], ",", "Red"}], 
                  "]"}]}], "]"}], ";"}], "*)"}], "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"Return", "[", 
               RowBox[{"{", 
                RowBox[{"q", ",", "r"}], "}"}], "]"}], ";"}]}], 
            "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{
             RowBox[{"Print", "[", 
              RowBox[{"\"\<>> r = \>\"", ",", 
               RowBox[{"Style", "[", 
                RowBox[{
                 RowBox[{"MatrixForm", "[", 
                  RowBox[{"Chop", "[", 
                   RowBox[{"r", ",", 
                    RowBox[{"10", "^", 
                    RowBox[{"-", "9"}]}]}], "]"}], "]"}], ",", "Red"}], 
                "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
             RowBox[{"Print", "[", 
              RowBox[{"\"\<>> v = \>\"", ",", 
               RowBox[{"Style", "[", 
                RowBox[{
                 RowBox[{"MatrixForm", "[", 
                  RowBox[{"Chop", "[", 
                   RowBox[{"v", ",", 
                    RowBox[{"10", "^", 
                    RowBox[{"-", "9"}]}]}], "]"}], "]"}], ",", "Red"}], 
                "]"}]}], "]"}], ";"}], "*)"}], "\[IndentingNewLine]", 
           "\[IndentingNewLine]", 
           RowBox[{"h", "=", 
            RowBox[{"ReflectionMatrix", "[", 
             RowBox[{"v", "-", 
              RowBox[{"SparseArray", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"kk", "\[Rule]", 
                  RowBox[{"Norm", "[", "v", "]"}]}], "}"}], ",", "m"}], 
               "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{
             RowBox[{"Print", "[", 
              RowBox[{"\"\<>> h = \>\"", ",", 
               RowBox[{"Style", "[", 
                RowBox[{
                 RowBox[{"MatrixForm", "[", 
                  RowBox[{"Chop", "[", 
                   RowBox[{"h", ",", 
                    RowBox[{"10", "^", 
                    RowBox[{"-", "9"}]}]}], "]"}], "]"}], ",", "Red"}], 
                "]"}]}], "]"}], ";"}], "*)"}], "\[IndentingNewLine]", 
           RowBox[{"q", "=", 
            RowBox[{"q", ".", "h"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{
             RowBox[{"Print", "[", 
              RowBox[{"\"\<>> q = \>\"", ",", 
               RowBox[{"Style", "[", 
                RowBox[{
                 RowBox[{"MatrixForm", "[", 
                  RowBox[{"Chop", "[", 
                   RowBox[{"q", ",", 
                    RowBox[{"10", "^", 
                    RowBox[{"-", "9"}]}]}], "]"}], "]"}], ",", "Red"}], 
                "]"}]}], "]"}], ";"}], "*)"}], "\[IndentingNewLine]", 
           RowBox[{"r", "=", 
            RowBox[{"h", ".", "r"}]}], ";"}], "\[IndentingNewLine]", 
          RowBox[{"(*", 
           RowBox[{
            RowBox[{"Print", "[", 
             RowBox[{"\"\<>> r = \>\"", ",", 
              RowBox[{"Style", "[", 
               RowBox[{
                RowBox[{"MatrixForm", "[", 
                 RowBox[{"Chop", "[", 
                  RowBox[{"r", ",", 
                   RowBox[{"10", "^", 
                    RowBox[{"-", "9"}]}]}], "]"}], "]"}], ",", "Red"}], 
               "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
            RowBox[{"Print", "[", "\"\<- - - - -\>\"", "]"}], ";"}], "*)"}], 
          "\[IndentingNewLine]", ",", 
          RowBox[{"{", 
           RowBox[{"kk", ",", "n"}], "}"}]}], "]"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"q", ",", "r"}], "}"}]}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "modulo", " ", "que", " ", "gera", " ", "as", " ", "esferas", " ", "e", 
     " ", "computa", " ", "intersecao"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"IntersEsferas", "[", 
      RowBox[{"m_", ",", "n_", ",", "kk_"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "A", ",", "d", ",", "\[CapitalAHat]", ",", "ii", ",", "jj", ",", "Q", 
         ",", "R", ",", "c", ",", "Rhat", ",", "Rhat1", ",", "c1", ",", 
         "Rhat2", ",", "c2", ",", "y", ",", "del", ",", "z", ",", "w", ",", 
         "x1", ",", "x2", ",", "z1", ",", "z2", ",", "w1", ",", "w2", ",", 
         "erro", ",", "aux", ",", "z0"}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Print", "[", "\"\<\>\"", "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{
        "Print", "[", "\"\<_____ in\[IAcute]cio abordagem alg. lin._____\>\"",
          "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"Print", "[", "\"\<\>\"", "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{"testa", " ", "abordagem", " ", "cl\[AAcute]ssica"}], " ", 
         "*)"}], "\[IndentingNewLine]", 
        RowBox[{"Print", "[", "\"\<\>\"", "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"A", ",", "d"}], "}"}], "=", 
         RowBox[{"geraEsferas", "[", 
          RowBox[{"m", ",", "n", ",", "kk"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{"Print", "[", 
           RowBox[{"\"\<>> A = \>\"", ",", 
            RowBox[{"Style", "[", 
             RowBox[{"A", ",", "Red"}], "]"}], ",", "\"\<  d = \>\"", ",", 
            RowBox[{"Style", "[", 
             RowBox[{"d", ",", "Red"}], "]"}], ",", "\"\<, rank(A) = \>\"", 
            ",", 
            RowBox[{"Style", "[", 
             RowBox[{
              RowBox[{"MatrixRank", "[", "A", "]"}], ",", "Red"}], "]"}]}], 
           "]"}], ";"}], "*)"}], "\[IndentingNewLine]", 
        RowBox[{"Print", "[", 
         RowBox[{
         "\"\<>> A = [\!\(\*SubscriptBox[\(a\), \(i\)]\)] = \>\"", ",", 
          RowBox[{"Style", "[", 
           RowBox[{
            RowBox[{"MatrixForm", "[", "A", "]"}], ",", "Red"}], "]"}], ",", 
          "\"\<, d = \>\"", ",", 
          RowBox[{"Style", "[", 
           RowBox[{
            RowBox[{"MatrixForm", "[", "d", "]"}], ",", "Red"}], "]"}], ",", 
          "\"\<, rank(A) = \>\"", ",", 
          RowBox[{"Style", "[", 
           RowBox[{
            RowBox[{"MatrixRank", "[", "A", "]"}], ",", "Red"}], "]"}]}], 
         "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"\[CapitalAHat]", "=", 
         RowBox[{"Table", "[", 
          RowBox[{"0", ",", 
           RowBox[{"{", 
            RowBox[{"ii", ",", "n"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"jj", ",", 
             RowBox[{"m", "-", "1"}]}], "}"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{"For", "[", 
          RowBox[{
           RowBox[{"jj", "=", "1"}], ",", 
           RowBox[{"jj", "\[LessEqual]", 
            RowBox[{"m", "-", "1"}]}], ",", 
           RowBox[{"jj", "++"}], ","}]}], "*)"}], "\[IndentingNewLine]", 
        RowBox[{"For", "[", 
         RowBox[{
          RowBox[{"jj", "=", "1"}], ",", 
          RowBox[{"jj", "\[LessEqual]", 
           RowBox[{"m", "-", "1"}]}], ",", 
          RowBox[{"jj", "++"}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{
            RowBox[{"\[CapitalAHat]", "[", 
             RowBox[{"[", 
              RowBox[{";;", ",", "jj"}], "]"}], "]"}], "=", 
            RowBox[{
             RowBox[{"A", "[", 
              RowBox[{"[", 
               RowBox[{";;", ",", "jj"}], "]"}], "]"}], "-", 
             RowBox[{"A", "[", 
              RowBox[{"[", 
               RowBox[{";;", ",", "m"}], "]"}], "]"}]}]}], ";"}]}], 
         "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"Print", "[", 
         RowBox[{
         "\"\<>> \[CapitalAHat] = [\!\(\*SubscriptBox[\(a\), \(i\)]\) - \
\!\(\*SubscriptBox[\(a\), \(m\)]\)] = \>\"", ",", 
          RowBox[{"Style", "[", 
           RowBox[{
            RowBox[{"MatrixForm", "[", "\[CapitalAHat]", "]"}], ",", "Red"}], 
           "]"}], ",", "\"\<, rank(\[CapitalAHat]) = \>\"", ",", 
          RowBox[{"Style", "[", 
           RowBox[{
            RowBox[{"MatrixRank", "[", "\[CapitalAHat]", "]"}], ",", "Red"}], 
           "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"Print", "[", "\"\<>> ok 1\>\"", "]"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{"resolve", " ", "o", " ", "sistema", " ", 
           RowBox[{"\[CapitalAHat]", "^", "t"}], " ", "xbar"}], "=", 
          RowBox[{
          "c", " ", "via", " ", "decomposicao", " ", "QR", " ", "de", " ", 
           "\[CapitalAHat]"}]}], "*)"}], "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"Q", ",", "R"}], "}"}], "=", 
         RowBox[{"qrd", "[", "\[CapitalAHat]", "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"Print", "[", 
         RowBox[{
         "\"\<>> \!\(\*OverscriptBox[\(A\), \(^\)]\) := \
[\!\(\*SubscriptBox[\(a\), \(i\)]\) - \!\(\*SubscriptBox[\(a\), \(m\)]\)] = \
\>\"", ",", 
          RowBox[{"Style", "[", 
           RowBox[{
            RowBox[{"Chop", "[", 
             RowBox[{
              RowBox[{"MatrixForm", "[", "\[CapitalAHat]", "]"}], ",", 
              RowBox[{"10", "^", 
               RowBox[{"-", "9"}]}]}], "]"}], ",", "Red"}], "]"}], ",", 
          "\"\<, rank(\[CapitalAHat]) = \>\"", ",", 
          RowBox[{"Style", "[", 
           RowBox[{
            RowBox[{"MatrixRank", "[", "\[CapitalAHat]", "]"}], ",", "Red"}], 
           "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"Print", "[", 
         RowBox[{"\"\<>> Q = \>\"", ",", 
          RowBox[{"Style", "[", 
           RowBox[{
            RowBox[{"Chop", "[", 
             RowBox[{
              RowBox[{"MatrixForm", "[", "Q", "]"}], ",", 
              RowBox[{"10", "^", 
               RowBox[{"-", "9"}]}]}], "]"}], ",", "Red"}], "]"}], ",", 
          "\"\<, R = \>\"", ",", 
          RowBox[{"Style", "[", 
           RowBox[{
            RowBox[{"Chop", "[", 
             RowBox[{
              RowBox[{"MatrixForm", "[", "R", "]"}], ",", 
              RowBox[{"10", "^", 
               RowBox[{"-", "9"}]}]}], "]"}], ",", "Red"}], "]"}]}], "]"}], 
        ";", "\[IndentingNewLine]", 
        RowBox[{"Print", "[", "\"\<>> ok 2\>\"", "]"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{
           RowBox[{"*", 
            RowBox[{"{", 
             RowBox[{"Q", ",", "R"}], "}"}]}], "=", 
           RowBox[{"QRDecomposition", "[", "\[CapitalAHat]", "]"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"Print", "[", 
           RowBox[{"\"\<>> Q = \>\"", ",", 
            RowBox[{"Style", "[", 
             RowBox[{
              RowBox[{"Chop", "[", 
               RowBox[{
                RowBox[{"MatrixForm", "[", "Q", "]"}], ",", 
                RowBox[{"10", "^", 
                 RowBox[{"-", "9"}]}]}], "]"}], ",", "Red"}], "]"}], ",", 
            "\"\<, R = \>\"", ",", 
            RowBox[{"Style", "[", 
             RowBox[{
              RowBox[{"Chop", "[", 
               RowBox[{
                RowBox[{"MatrixForm", "[", "R", "]"}], ",", 
                RowBox[{"10", "^", 
                 RowBox[{"-", "9"}]}]}], "]"}], ",", "Red"}], "]"}]}], "]"}], 
          ";", "\[IndentingNewLine]", 
          RowBox[{"Print", "[", 
           RowBox[{"\"\<>> \!\(\*OverscriptBox[\(A\), \(_\)]\) = \>\"", ",", 
            RowBox[{"Style", "[", 
             RowBox[{
              RowBox[{"Chop", "[", 
               RowBox[{
                RowBox[{"MatrixForm", "[", "\[CapitalAHat]", "]"}], ",", 
                RowBox[{"10", "^", 
                 RowBox[{"-", "9"}]}]}], "]"}], ",", "Red"}], "]"}]}], "]"}], 
          ";"}], "\[IndentingNewLine]", "**)"}], "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{"computa", " ", "vetor", " ", "c"}], "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{"c", "=", 
         RowBox[{"Table", "[", 
          RowBox[{"0", ",", 
           RowBox[{"{", 
            RowBox[{"ii", ",", 
             RowBox[{"m", "-", "1"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"jj", ",", "1"}], "}"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"For", "[", 
         RowBox[{
          RowBox[{"ii", "=", "1"}], ",", 
          RowBox[{"ii", "\[LessEqual]", 
           RowBox[{"m", "-", "1"}]}], ",", 
          RowBox[{"ii", "++"}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{
            RowBox[{"c", "[", 
             RowBox[{"[", 
              RowBox[{"ii", ",", "1"}], "]"}], "]"}], "=", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "/", "2"}], ")"}], "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"d", "[", 
                 RowBox[{"[", 
                  RowBox[{"ii", ",", "1"}], "]"}], "]"}], "^", "2"}], "-", 
               RowBox[{
                RowBox[{"d", "[", 
                 RowBox[{"[", 
                  RowBox[{"m", ",", "1"}], "]"}], "]"}], "^", "2"}], "-", 
               RowBox[{
                RowBox[{"Norm", "[", 
                 RowBox[{"\[CapitalAHat]", "[", 
                  RowBox[{"[", 
                   RowBox[{";;", ",", "ii"}], "]"}], "]"}], "]"}], "^", 
                "2"}]}], ")"}]}]}], ";"}]}], "\[IndentingNewLine]", "]"}], 
        ";", "\[IndentingNewLine]", 
        RowBox[{"Rhat", "=", 
         RowBox[{"R", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"1", ";;", "kk"}], ",", ";;"}], "]"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"Rhat1", "=", 
         RowBox[{"Rhat", "[", 
          RowBox[{"[", 
           RowBox[{";;", ",", 
            RowBox[{"1", ";;", "kk"}]}], "]"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"c1", "=", 
         RowBox[{"c", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"1", ";;", "kk"}], ",", "1"}], "]"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"Print", "[", "\"\<\>\"", "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{
        "Print", "[", "\"\<>> \!\(\*UnderscriptBox[\(OBS\), \(_\)]\):\>\"", 
         "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"Print", "[", 
         RowBox[{
         "\"\<  (1) \!\(\*OverscriptBox[\(A\), \(^\)]\):n\[Cross](m-1), \
\!\(\*OverscriptBox[\(A\), \(^\)]\) = QR,   Q:n\[Cross]n,  R:m\[Cross]n,  R = \
[\!\(\*OverscriptBox[\(R\), \(^\)]\)  0\!\(\*SuperscriptBox[\(]\), \(t\)]\),  \
\!\(\*OverscriptBox[\(R\), \(^\)]\):k\[Cross](m-1),  m = \>\"", ",", 
          RowBox[{"Style", "[", 
           RowBox[{"m", ",", "Red"}], "]"}], ",", "\"\<,  n = \>\"", ",", 
          RowBox[{"Style", "[", 
           RowBox[{"n", ",", "Red"}], "]"}], ",", "\"\<  k = \>\"", ",", 
          RowBox[{"Style", "[", 
           RowBox[{"kk", ",", "Red"}], "]"}]}], "]"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{
        "Print", "[", 
         "\"\<  (2) \!\(\*SuperscriptBox[OverscriptBox[\(A\), \(^\)], \
\(t\)]\)\!\(\*OverscriptBox[\(x\), \(_\)]\) = c,  \!\(\*SubscriptBox[\(c\), \
\(i\)]\) = -1/2(\!\(\*SuperscriptBox[SubscriptBox[\(d\), \(i\)], \
\(2\)]\)-\!\(\*SuperscriptBox[SubscriptBox[\(d\), \(m\)], \
\(2\)]\)-||\!\(\*SubscriptBox[\(a\), \(i\)]\)-\!\(\*SubscriptBox[\(a\), \
\(m\)]\)\!\(\*SuperscriptBox[\(||\), \(2\)]\)),  \!\(\*OverscriptBox[\(x\), \
\(_\)]\) := x-\!\(\*SubscriptBox[\(a\), \(m\)]\)\>\"", "]"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{
        "Print", "[", 
         "\"\<  (3) \!\(\*SuperscriptBox[OverscriptBox[\(A\), \(^\)], \
\(t\)]\)\!\(\*OverscriptBox[\(x\), \(_\)]\) = \!\(\*SuperscriptBox[\(R\), \(t\
\)]\)\!\(\*SuperscriptBox[\(Q\), \(t\)]\)\!\(\*OverscriptBox[\(x\), \(_\)]\) \
= c  \[Implies]  \!\(\*SuperscriptBox[\(Q\), \
\(t\)]\)\!\(\*OverscriptBox[\(x\), \(_\)]\) = w,  \!\(\*SuperscriptBox[\(R\), \
\(t\)]\)w = c,  onde w = [y  z\!\(\*SuperscriptBox[\(]\), \(t\)]\),  y\
\[Element]\!\(\*SuperscriptBox[\(\[DoubleStruckCapitalR]\), \(k\)]\),  z\
\[Element]\!\(\*SuperscriptBox[\(\[DoubleStruckCapitalR]\), \(n - k\)]\)\>\"",
          "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{
        "Print", "[", 
         "\"\<  (4) \!\(\*SuperscriptBox[\(R\), \(t\)]\)w = c \[Implies]  \
\!\(\*SuperscriptBox[OverscriptBox[\(R\), \(^\)], \(t\)]\)y = c\>\"", "]"}], 
        ";", "\[IndentingNewLine]", 
        RowBox[{
        "Print", "[", 
         "\"\<  (5)||x-\!\(\*SubscriptBox[\(a\), \
\(i\)]\)\!\(\*SuperscriptBox[\(||\), \(2\)]\) = \
\!\(\*SuperscriptBox[SubscriptBox[\(d\), \(i\)], \(2\)]\), \
\!\(\*OverscriptBox[\(x\), \(_\)]\) = Q[y  z\!\(\*SuperscriptBox[\(]\), \
\(t\)]\)  \[Implies] ||Q[y  z\!\(\*SuperscriptBox[\(]\), \
\(t\)]\)+\!\(\*SubscriptBox[\(a\), \(m\)]\)-\!\(\*SubscriptBox[\(a\), \
\(i\)]\)\!\(\*SuperscriptBox[\(||\), \(2\)]\) = \
\!\(\*SuperscriptBox[SubscriptBox[\(d\), \(i\)], \(2\)]\)  \[Implies] ||[y  z\
\!\(\*SuperscriptBox[\(]\), \(t\)]\)\!\(\*SuperscriptBox[\(||\), \(2\)]\) = \
\!\(\*SuperscriptBox[SubscriptBox[\(d\), \(m\)], \(2\)]\)  \[Implies] ||y\!\(\
\*SuperscriptBox[\(||\), \(2\)]\)+||z\!\(\*SuperscriptBox[\(||\), \(2\)]\) = \
\!\(\*SuperscriptBox[SubscriptBox[\(d\), \(m\)], \(2\)]\)\>\"", "]"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"Print", "[", "\"\<\>\"", "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{"Print", "[", 
           RowBox[{"\"\<>> \!\(\*OverscriptBox[\(R\), \(^\)]\) = \>\"", ",", 
            RowBox[{"Style", "[", 
             RowBox[{
              RowBox[{"MatrixForm", "[", 
               RowBox[{"Chop", "[", 
                RowBox[{"Rhat", ",", 
                 RowBox[{"10", "^", 
                  RowBox[{"-", "9"}]}]}], "]"}], "]"}], ",", "Red"}], "]"}], 
            ",", "\"\<, c = [\!\(\*SubscriptBox[\(c\), \(i\)]\)] = \>\"", ",", 
            RowBox[{"Style", "[", 
             RowBox[{
              RowBox[{"MatrixForm", "[", "c", "]"}], ",", "Red"}], "]"}]}], 
           "]"}], ";", " ", "alterado"}], "*)"}], "\[IndentingNewLine]", 
        RowBox[{"Print", "[", 
         RowBox[{"\"\<>> \!\(\*OverscriptBox[\(R\), \(^\)]\) = \>\"", ",", 
          RowBox[{"Style", "[", 
           RowBox[{
            RowBox[{"MatrixForm", "[", 
             RowBox[{"Chop", "[", 
              RowBox[{"Rhat", ",", 
               RowBox[{"10", "^", 
                RowBox[{"-", "9"}]}]}], "]"}], "]"}], ",", "Red"}], "]"}], 
          ",", "\"\<, c = [\!\(\*SubscriptBox[\(c\), \(i\)]\)] = \>\"", ",", 
          RowBox[{"Style", "[", 
           RowBox[{"c", ",", "Red"}], "]"}]}], "]"}], ";", " ", 
        "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"kk", "\[NotEqual]", 
           RowBox[{"m", "-", "1"}]}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"Rhat2", "=", 
            RowBox[{"Rhat", "[", 
             RowBox[{"[", 
              RowBox[{";;", ",", 
               RowBox[{
                RowBox[{"kk", "+", "1"}], ";;", 
                RowBox[{"m", "-", "1"}]}]}], "]"}], "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"c2", "=", 
            RowBox[{"c", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"kk", "+", "1"}], ";;", 
                RowBox[{"m", "-", "1"}]}], ",", "1"}], "]"}], "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"y", "=", 
            RowBox[{"LinearSolve", "[", 
             RowBox[{
              RowBox[{"Transpose", "[", "Rhat1", "]"}], ",", "c1"}], "]"}]}], 
           ";", "\[IndentingNewLine]", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"Norm", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Transpose", "[", "Rhat2", "]"}], ".", "y"}], "-", 
                "c2"}], "]"}], ">", 
              RowBox[{"10", "^", 
               RowBox[{"(", 
                RowBox[{"-", "6"}], ")"}]}]}], ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"Print", "[", "\"\<\>\"", "]"}], ";", 
              "\[IndentingNewLine]", 
              RowBox[{
              "Print", "[", 
               "\"\<>>>> |\!\(\*UnderscriptBox[OverscriptBox[\(Interse\
\[CCedilla]\[ATilde]o\\\ vazia, \\\ pois\\\ c \[NotElement] Im \
\((\*SuperscriptBox[OverscriptBox[\(R\), \(^\)], \(t\)])\)\), \(_\)], \
\(_\)]\)| <<<<\>\"", "]"}], ";", "\[IndentingNewLine]", 
              RowBox[{"Return", "[", 
               RowBox[{"{", 
                RowBox[{"0", ",", "0"}], "}"}], "]"}], ";"}]}], 
            "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", ",", 
          RowBox[{
           RowBox[{"y", "=", 
            RowBox[{"LinearSolve", "[", 
             RowBox[{
              RowBox[{"Transpose", "[", "Rhat", "]"}], ",", "c"}], "]"}]}], 
           ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
         "computa", " ", "argumento", " ", "da", " ", "raiz", " ", 
          "quadrada"}], "*)"}], "\[IndentingNewLine]", 
        RowBox[{"del", "=", 
         RowBox[{
          RowBox[{
           RowBox[{"d", "[", 
            RowBox[{"[", "m", "]"}], "]"}], "^", "2"}], "-", 
          RowBox[{
           RowBox[{"Norm", "[", "y", "]"}], "^", "2"}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"Print", "[", 
         RowBox[{
         "\"\<>> ||z\!\(\*SuperscriptBox[\(||\), \(2\)]\) = \
\!\(\*SuperscriptBox[SubscriptBox[\(d\), \(m\)], \
\(2\)]\)-||y\!\(\*SuperscriptBox[\(||\), \(2\)]\) = \>\"", ",", 
          RowBox[{"Style", "[", 
           RowBox[{"del", ",", "Red"}], "]"}], ",", 
          "\"\<,  onde z\[Element]\!\(\*SuperscriptBox[\(\
\[DoubleStruckCapitalR]\), \(n - k\)]\),  n = \>\"", ",", 
          RowBox[{"Style", "[", 
           RowBox[{"n", ",", "Red"}], "]"}], ",", "\"\<,  k = \>\"", ",", 
          RowBox[{"Style", "[", 
           RowBox[{"kk", ",", "Red"}], "]"}]}], "]"}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"del", "<", "0"}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"Print", "[", "\"\<\>\"", "]"}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{
           "Print", "[", 
            "\"\<>>>> \
|\!\(\*OverscriptBox[UnderscriptBox[\(Interse\[CCedilla]\[ATilde]o\\\ vazia, \
\\\ pois\\\  || z\*SuperscriptBox[\(||\), \(2\)]\\\  = \\\ \
\(\*SuperscriptBox[SubscriptBox[\(d\), \(m\)], \(2\)]\(-\)\) || \
y\*SuperscriptBox[\(||\), \(2\)]\(\(<\)\(\\\ \)\(0\)\)\), \(_\)], \(_\)]\)| \
<<<<\>\"", "]"}], ";", "\[IndentingNewLine]", 
           RowBox[{"Return", "[", 
            RowBox[{"{", 
             RowBox[{"0", ",", "0"}], "}"}], "]"}], ";"}]}], 
         "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"del", "\[Equal]", "0"}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"z", "=", "0"}], ";", "\[IndentingNewLine]", 
           RowBox[{"w", "=", 
            RowBox[{"AppendTo", "[", 
             RowBox[{"w", ",", "z"}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"x1", "=", 
            RowBox[{"MatrixForm", "[", 
             RowBox[{
              RowBox[{"Q", ".", "w"}], "+", 
              RowBox[{"A", "[", 
               RowBox[{"[", 
                RowBox[{";;", ",", "n"}], "]"}], "]"}]}], "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"x2", "=", "x1"}], ";", "\[IndentingNewLine]", 
           RowBox[{"Print", "[", "\"\<\>\"", "]"}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{
           "Print", "[", 
            "\"\<>> \!\(\*UnderscriptBox[\(A\\\ solu\[CCedilla]\[ATilde]o\\\ \
\[EAcute]\\\ um\\\ ponto, \\\ pois\\\  || z\*SuperscriptBox[\(||\), \(2\)] = \
\\\ \(\(\*SuperscriptBox[SubscriptBox[\(d\), \(m\)], \(2\)]\(-\)\) || \
y\*SuperscriptBox[\(||\), \(2\)] = \\\ 0\)\), \(_\)]\):\>\"", "]"}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"Print", "[", 
            RowBox[{"\"\<  Solu\[CCedilla]\[ATilde]o: x1 = \>\"", ",", 
             RowBox[{"Style", "[", 
              RowBox[{
               RowBox[{"MatrixForm", "[", "x1", "]"}], ",", "Red"}], "]"}]}], 
            "]"}], ";", "\[IndentingNewLine]", 
           RowBox[{"erro", "=", 
            RowBox[{"erroMDE", "[", 
             RowBox[{"x1", ",", "A", ",", "d", ",", "m"}], "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"Print", "[", 
            RowBox[{"\"\<  Erro de x1 = \>\"", ",", 
             RowBox[{"Style", "[", 
              RowBox[{"erro", ",", "Red"}], "]"}]}], "]"}], ";"}]}], 
         "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"del", ">", "0"}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"n", "-", "kk"}], ">", "1"}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"Print", "[", "\"\<\>\"", "]"}], ";", 
              "\[IndentingNewLine]", 
              RowBox[{
              "Print", "[", 
               "\"\<>> \!\(\*UnderscriptBox[\(A\\\ \
solu\[CCedilla]\[ATilde]o\\\ \[EAcute]\\\ uma\\\ \((n - k)\) - esfera, \\\ \
pois\\\  || z\*SuperscriptBox[\(||\), \(2\)]\\\  = \\\ \
\(\*SuperscriptBox[SubscriptBox[\(d\), \(m\)], \(2\)]\(-\)\)\\\  || \
y\*SuperscriptBox[\(||\), \(2\)]\(\(>\)\(\\\ \)\(0\\\ \\\ \\\ e\\\ \\\ \\\ \
k\)\(<\)\(min {m - 1, n}\)\)\), \(_\)]\):\>\"", "]"}], ";", 
              "\[IndentingNewLine]", 
              RowBox[{
              "Print", "[", "\"\<  Solu\[CCedilla]\[ATilde]o:\>\"", "]"}], 
              ";", "\[IndentingNewLine]", 
              RowBox[{"Print", "[", 
               RowBox[{
               "\"\<  { x\[Element]\!\(\*SuperscriptBox[\(\
\[DoubleStruckCapitalR]\), \(n\)]\): x = Q[y  z\!\(\*SuperscriptBox[\(]\), \
\(t\)]\)+\!\(\*SubscriptBox[\(a\), \(m\)]\), onde y = \>\"", ",", 
                RowBox[{"Style", "[", 
                 RowBox[{
                  RowBox[{"MatrixForm", "[", "y", "]"}], ",", "Red"}], "]"}], 
                ",", "\"\<,  \!\(\*SubscriptBox[\(a\), \(m\)]\) = \>\"", ",", 
                RowBox[{"Style", "[", 
                 RowBox[{
                  RowBox[{"MatrixForm", "[", 
                   RowBox[{"A", "[", 
                    RowBox[{"[", 
                    RowBox[{";;", ",", "m"}], "]"}], "]"}], "]"}], ",", 
                  "Red"}], "]"}], ",", 
                "\"\<, z\[Element]\!\(\*SuperscriptBox[\(\
\[DoubleStruckCapitalR]\), \(n - k\)]\) tal que \
||z\!\(\*SuperscriptBox[\(||\), \(2\)]\) = \>\"", ",", 
                RowBox[{"Style", "[", 
                 RowBox[{"del", ",", "Red"}], "]"}], ",", "\"\< }\>\""}], 
               "]"}], ";", "\[IndentingNewLine]", 
              RowBox[{"Print", "[", "\"\<\>\"", "]"}], ";", 
              "\[IndentingNewLine]", 
              RowBox[{
              "Print", "[", 
               "\"\<>> \!\(\*UnderscriptBox[\(OBS\), \(_\)]\): Para cada \
valor de z temos um ponto na interse\[CCedilla]\[ATilde]o das m esferas\>\"", 
               "]"}], ";", "\[IndentingNewLine]", 
              RowBox[{"Print", "[", "\"\<\>\"", "]"}], ";", 
              "\[IndentingNewLine]", 
              RowBox[{"(*", " ", 
               RowBox[{
                RowBox[{
                 RowBox[{"escolhe", " ", "z", " ", "em", " ", 
                  RowBox[{"R", "^", "n"}]}], "-", 
                 RowBox[{"k", " ", "tq", " ", 
                  RowBox[{"z", "^", "2"}]}]}], "=", 
                RowBox[{
                 RowBox[{"del", "^", "2"}], "=", 
                 RowBox[{
                  RowBox[{"d_m", "^", "2"}], "-", 
                  RowBox[{"y", "^", "2"}]}]}]}], "*)"}], 
              "\[IndentingNewLine]", 
              RowBox[{"SeedRandom", "[", "5678", "]"}], ";", 
              "\[IndentingNewLine]", 
              RowBox[{"aux", "=", 
               RowBox[{"RandomReal", "[", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{"Sqrt", "[", "del", "]"}]}], ",", 
                   RowBox[{"Sqrt", "[", "del", "]"}]}], "}"}], ",", 
                 RowBox[{"n", "-", "kk"}]}], "]"}]}], ";", 
              "\[IndentingNewLine]", 
              RowBox[{"(*", 
               RowBox[{
                RowBox[{"Print", "[", 
                 RowBox[{"\"\<>> aux = \>\"", ",", " ", 
                  RowBox[{"Style", "[", 
                   RowBox[{"aux", ",", "Red"}], "]"}]}], "]"}], ";"}], "*)"}],
               "\[IndentingNewLine]", 
              RowBox[{"z0", "=", 
               RowBox[{
                RowBox[{
                 RowBox[{"Sqrt", "[", "del", "]"}], "/", 
                 RowBox[{"Norm", "[", "aux", "]"}]}], "*", "aux"}]}], ";", 
              "\[IndentingNewLine]", "\[IndentingNewLine]", 
              RowBox[{"(*", 
               RowBox[{
                RowBox[{"testesw", "=", 
                 RowBox[{"Join", "[", 
                  RowBox[{"y", ",", "z0", ",", "2"}], "]"}]}], ";"}], "*)"}], 
              "\[IndentingNewLine]", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Length", "[", "y", "]"}], "\[Equal]", "1"}], ",", 
                "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{"w", "=", 
                  RowBox[{"y", "[", 
                   RowBox[{"[", 
                    RowBox[{"1", ",", ";;"}], "]"}], "]"}]}], ";"}], 
                "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{"w", "=", "y"}], ";"}]}], "\[IndentingNewLine]", 
               "]"}], ";", "\[IndentingNewLine]", 
              RowBox[{"For", "[", 
               RowBox[{
                RowBox[{"ii", "=", "1"}], ",", 
                RowBox[{"ii", "\[LessEqual]", 
                 RowBox[{"Length", "[", "z0", "]"}]}], ",", 
                RowBox[{"ii", "++"}], ",", "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{"w", "=", 
                  RowBox[{"AppendTo", "[", 
                   RowBox[{"w", ",", 
                    RowBox[{"z0", "[", 
                    RowBox[{"[", "ii", "]"}], "]"}]}], "]"}]}], ";"}]}], 
               "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
              RowBox[{"Print", "[", 
               RowBox[{"\"\<>> w = \>\"", ",", 
                RowBox[{"Style", "[", 
                 RowBox[{"w", ",", "Red"}], "]"}]}], "]"}], ";", 
              "\[IndentingNewLine]", "\[IndentingNewLine]", 
              RowBox[{"x1", "=", 
               RowBox[{
                RowBox[{"Q", ".", "w"}], "+", 
                RowBox[{"A", "[", 
                 RowBox[{"[", 
                  RowBox[{";;", ",", "m"}], "]"}], "]"}]}]}], ";", 
              "\[IndentingNewLine]", 
              RowBox[{"(*", 
               RowBox[{
                RowBox[{"Print", "[", "\"\<>>> OK\>\"", "]"}], ";"}], "*)"}], 
              "\[IndentingNewLine]", 
              RowBox[{"erro", "=", 
               RowBox[{"erroMDE", "[", 
                RowBox[{"x1", ",", "A", ",", "d", ",", "m"}], "]"}]}], ";", 
              "\[IndentingNewLine]", 
              RowBox[{"(*", 
               RowBox[{
                RowBox[{"erro", "=", "0"}], ";"}], "*)"}], 
              "\[IndentingNewLine]", 
              RowBox[{"Print", "[", 
               RowBox[{
               "\"\<>> \!\(\*SubscriptBox[\(z\), \(0\)]\) = \>\"", ",", 
                RowBox[{"Style", "[", 
                 RowBox[{"z0", ",", "Red"}], "]"}], ",", 
                "\"\<, ||\!\(\*SubscriptBox[\(z\), \
\(0\)]\)\!\(\*SuperscriptBox[\(||\), \(2\)]\) = \>\"", ",", 
                RowBox[{"Style", "[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"Norm", "[", "z0", "]"}], "^", "2"}], ",", "Red"}],
                  "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
              RowBox[{"Print", "[", "\"\<\>\"", "]"}], ";", 
              "\[IndentingNewLine]", 
              RowBox[{"Print", "[", 
               RowBox[{
               "\"\<>> Solu\[CCedilla]\[ATilde]o fixada: \
\!\(\*SubscriptBox[\(x\), \(0\)]\) = Q[y  \!\(\*SubscriptBox[\(z\), \
\(0\)]\)\!\(\*SuperscriptBox[\(]\), \(t\)]\)+\!\(\*SubscriptBox[\(a\), \(m\)]\
\) = \>\"", ",", 
                RowBox[{"Style", "[", 
                 RowBox[{
                  RowBox[{"MatrixForm", "[", "x1", "]"}], ",", "Red"}], 
                 "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
              RowBox[{"Print", "[", 
               RowBox[{
               "\"\<>> Erro de \!\(\*SubscriptBox[\(x\), \(0\)]\) = \>\"", 
                ",", 
                RowBox[{"Style", "[", 
                 RowBox[{"erro", ",", "Red"}], "]"}]}], "]"}], ";"}], 
             "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"Print", "[", "\"\<\>\"", "]"}], ";", 
              "\[IndentingNewLine]", 
              RowBox[{
              "Print", "[", 
               
               "\"\<>> \!\(\*UnderscriptBox[\(A\\\ \
solu\[CCedilla]\[ATilde]o\\\ \[EAcute]\\\ uma\\\ \((n - 1)\) - esfera\\\ no\\\
\ \*SuperscriptBox[\(\[DoubleStruckCapitalR]\), \(n\)], \\\ pois\\\  || \
z\*SuperscriptBox[\(||\), \(2\)]\\\  = \\\ \(\(\*SuperscriptBox[SubscriptBox[\
\(d\), \(m\)], \(2\)]\(-\)\) || y\*SuperscriptBox[\(||\), \(2\)]\(\(>\)\(\\\ \
\)\(0\\\ \\\ \\\ \\\ e\\\ \\\ \\\ k\)\) = min {m - 1, n}\)\), \(_\)]\):\>\"", 
               "]"}], ";", "\[IndentingNewLine]", 
              RowBox[{"z1", "=", 
               RowBox[{"Sqrt", "[", "del", "]"}]}], ";", 
              "\[IndentingNewLine]", 
              RowBox[{"z2", "=", 
               RowBox[{"-", 
                RowBox[{"Sqrt", "[", "del", "]"}]}]}], ";", 
              "\[IndentingNewLine]", 
              RowBox[{"w1", "=", "y"}], ";", "\[IndentingNewLine]", 
              RowBox[{"w1", "=", 
               RowBox[{"AppendTo", "[", 
                RowBox[{"w1", ",", 
                 RowBox[{"{", "z1", "}"}]}], "]"}]}], ";", 
              "\[IndentingNewLine]", 
              RowBox[{"w2", "=", "y"}], ";", "\[IndentingNewLine]", 
              RowBox[{"w2", "=", 
               RowBox[{"AppendTo", "[", 
                RowBox[{"w2", ",", 
                 RowBox[{"{", "z2", "}"}]}], "]"}]}], ";", 
              "\[IndentingNewLine]", 
              RowBox[{"x1", "=", 
               RowBox[{
                RowBox[{"Q", ".", "w1"}], "+", 
                RowBox[{"A", "[", 
                 RowBox[{"[", 
                  RowBox[{";;", ",", "m"}], "]"}], "]"}]}]}], ";", 
              "\[IndentingNewLine]", 
              RowBox[{"x2", "=", 
               RowBox[{
                RowBox[{"Q", ".", "w2"}], "+", 
                RowBox[{"A", "[", 
                 RowBox[{"[", 
                  RowBox[{";;", ",", "m"}], "]"}], "]"}]}]}], ";", 
              "\[IndentingNewLine]", 
              RowBox[{"erro", "=", 
               RowBox[{"erroMDE", "[", 
                RowBox[{"x1", ",", "A", ",", "d", ",", "m"}], "]"}]}], ";", 
              "\[IndentingNewLine]", 
              RowBox[{"Print", "[", "\"\<\>\"", "]"}], ";", 
              "\[IndentingNewLine]", 
              RowBox[{"Print", "[", 
               RowBox[{"\"\<  Solu\[CCedilla]\[OTilde]es: x1 = \>\"", ",", 
                RowBox[{"Style", "[", 
                 RowBox[{
                  RowBox[{"MatrixForm", "[", "x1", "]"}], ",", "Red"}], "]"}],
                 ",", "\"\<,  x2 = \>\"", ",", 
                RowBox[{"Style", "[", 
                 RowBox[{
                  RowBox[{"MatrixForm", "[", "x2", "]"}], ",", "Red"}], 
                 "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
              RowBox[{"Print", "[", 
               RowBox[{"\"\<  Erro de x1 = \>\"", ",", 
                RowBox[{"Style", "[", 
                 RowBox[{"erro", ",", "Red"}], "]"}]}], "]"}], ";", 
              "\[IndentingNewLine]", " ", 
              RowBox[{"Print", "[", 
               RowBox[{"\"\<  Erro de x2 = \>\"", ",", 
                RowBox[{"Style", "[", 
                 RowBox[{
                  RowBox[{"erroMDE", "[", 
                   RowBox[{"x2", ",", "A", ",", "d", ",", "m"}], "]"}], ",", 
                  "Red"}], "]"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", 
            "]"}], ";"}]}], "\[IndentingNewLine]", " ", "]"}], ";", 
        "\[IndentingNewLine]", "  ", "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{"Print", "[", 
           RowBox[{"\"\<Erro de x1: \>\"", ",", "erro"}], "]"}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"Print", "[", 
           RowBox[{"\"\<Erro de x2: \>\"", ",", 
            RowBox[{"erroMDE", "[", 
             RowBox[{"x2", ",", "A", ",", "d", ",", "m"}], "]"}]}], "]"}], 
          ";"}], "*)"}], 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{"Print", "[", "\"\< - - - - - - - - - \>\"", "]"}], ";"}], 
         "*)"}], "\[IndentingNewLine]", 
        RowBox[{"Return", "[", "erro", "]"}], ";"}]}], "\[IndentingNewLine]", 
      "]"}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.7652807086350574`*^9, 3.7652807231450777`*^9}, {
   3.7652808804172993`*^9, 3.765280947537393*^9}, {3.7652810147974873`*^9, 
   3.7652810827475824`*^9}, {3.765281215445986*^9, 3.765281304686117*^9}, {
   3.765281344296173*^9, 3.7652813951162443`*^9}, {3.765281493416382*^9, 
   3.7652815130764093`*^9}, {3.7652815735764937`*^9, 
   3.7652815843565087`*^9}, {3.765281682586646*^9, 3.7652817456567345`*^9}, {
   3.7652817796067824`*^9, 3.765281802926815*^9}, {3.7652819575120325`*^9, 
   3.765281982682068*^9}, {3.7652822312764163`*^9, 3.7652822429964323`*^9}, {
   3.765282326066549*^9, 3.7652823782966223`*^9}, {3.765282503296797*^9, 
   3.765282574346896*^9}, {3.765282682347048*^9, 3.7652827022670755`*^9}, {
   3.765283032057537*^9, 3.765283048927561*^9}, {3.765283189537758*^9, 
   3.765283194487765*^9}, 3.765283443938114*^9, {3.7652840004778976`*^9, 
   3.7652840018978996`*^9}, {3.765284769910989*^9, 3.7652847825310063`*^9}, {
   3.7652848126710486`*^9, 3.7652848419610896`*^9}, {3.7656278567477016`*^9, 
   3.765627856997302*^9}, {3.7656291492267714`*^9, 3.765629328876687*^9}, {
   3.765629416970042*^9, 3.7656294206672487`*^9}, {3.7656297797018795`*^9, 
   3.7656298954696827`*^9}, {3.765629944547369*^9, 3.7656302323834743`*^9}, {
   3.7656304062799797`*^9, 3.7656305074229574`*^9}, 3.7656306823676653`*^9, {
   3.765652597277722*^9, 3.7656526247777605`*^9}, {3.765652698729867*^9, 
   3.765652710009883*^9}, {3.7656527820399837`*^9, 3.7656527864599895`*^9}, {
   3.765652838080062*^9, 3.7656528400700645`*^9}, {3.7656528776001177`*^9, 
   3.7656528971501446`*^9}, {3.7656531884800997`*^9, 
   3.7656532229801474`*^9}, {3.765653308742269*^9, 3.7656533234722896`*^9}, {
   3.7656534197744255`*^9, 3.76565342272443*^9}, {3.765653530652585*^9, 
   3.7656535319725866`*^9}, {3.765653562212629*^9, 3.76565356308263*^9}, {
   3.765653816109562*^9, 3.765653913099698*^9}, {3.7656539432097397`*^9, 
   3.765653969619777*^9}, {3.7656540033398247`*^9, 3.7656540207098484`*^9}, {
   3.7656540619119077`*^9, 3.7656540981719584`*^9}, {3.7656542315641465`*^9, 
   3.7656543713663435`*^9}, 3.7656544543964596`*^9, {3.7656545016865253`*^9, 
   3.7656545165365467`*^9}, {3.7656546021986704`*^9, 3.765654651188739*^9}, {
   3.765654747378874*^9, 3.765654800558948*^9}, {3.765654889959073*^9, 
   3.7656549314791317`*^9}, {3.7656549650791783`*^9, 
   3.7656549866992087`*^9}, {3.7656550236392603`*^9, 
   3.7656550600203114`*^9}, {3.7656550992403665`*^9, 
   3.7656551183463955`*^9}, {3.765655295562072*^9, 3.7656552973120747`*^9}, {
   3.765655340343135*^9, 3.765655342503138*^9}, {3.76565552245339*^9, 
   3.7656556535775757`*^9}, {3.7656557295976825`*^9, 3.765655775017746*^9}, {
   3.765655810727796*^9, 3.7656558573278613`*^9}, {3.7656559067479305`*^9, 
   3.765656033708108*^9}, {3.765656099790202*^9, 3.765656187752326*^9}, {
   3.765656251802416*^9, 3.7656562874224653`*^9}, {3.765656349752553*^9, 
   3.765656549042832*^9}, {3.7656565953428965`*^9, 3.7656566288629436`*^9}, {
   3.76565668362302*^9, 3.765656707683054*^9}, {3.765656786653165*^9, 
   3.7656568904633102`*^9}, {3.7656569265233603`*^9, 
   3.7656569599934072`*^9}, {3.7656570023134665`*^9, 
   3.7656570680235586`*^9}, {3.765657105393611*^9, 3.765657458338106*^9}, {
   3.7656575521982374`*^9, 3.7656575528682384`*^9}, {3.765657633778352*^9, 
   3.765657634128352*^9}, {3.765657680858418*^9, 3.7656577259594812`*^9}, {
   3.765657756699524*^9, 3.765657792859575*^9}, {3.7656578486196527`*^9, 
   3.765657849589654*^9}, {3.765657891369713*^9, 3.7656578920597134`*^9}, {
   3.765698971980276*^9, 3.765698997470312*^9}, {3.7656990380503693`*^9, 
   3.7656990978324556`*^9}, {3.7656991714245596`*^9, 3.765699231014643*^9}, {
   3.7656996473772273`*^9, 3.7657001540099382`*^9}, {3.7657001851299815`*^9, 
   3.7657001891099873`*^9}, {3.7657002200500307`*^9, 3.765700249710072*^9}, {
   3.7657002972901382`*^9, 3.765700301970145*^9}, {3.765700396180277*^9, 
   3.7657005328804684`*^9}, {3.7657005774605308`*^9, 
   3.7657006436106234`*^9}, {3.765700814120862*^9, 3.765700836912895*^9}, {
   3.76570087594295*^9, 3.765701118154128*^9}, 3.765701159702597*^9, {
   3.76570119018264*^9, 3.7657011991126523`*^9}, {3.7657012347427025`*^9, 
   3.7657013315088434`*^9}, {3.765701385178918*^9, 3.7657014003689394`*^9}, 
   3.7657014489290075`*^9, {3.765701483179055*^9, 3.7657015119890957`*^9}, {
   3.765701570879178*^9, 3.765701771649459*^9}, {3.7657018071595087`*^9, 
   3.765701854419575*^9}, {3.765701912289656*^9, 3.765701942821702*^9}, {
   3.765702057143863*^9, 3.765702063483872*^9}, 3.7657021023939266`*^9, {
   3.765702192004052*^9, 3.76570244778441*^9}, {3.7657025213745127`*^9, 
   3.76570252638452*^9}, {3.765702577754592*^9, 3.7657025988446217`*^9}, {
   3.7657026952767577`*^9, 3.76570269702676*^9}, {3.765702743406825*^9, 
   3.765702747996832*^9}, {3.765702806166913*^9, 3.7657028314569483`*^9}, {
   3.765702915477066*^9, 3.7657029620771313`*^9}, {3.7657030390872393`*^9, 
   3.765703046197249*^9}, {3.7657030821772995`*^9, 3.7657031414873824`*^9}, {
   3.765703181287438*^9, 3.765703196527459*^9}, {3.7657033016676064`*^9, 
   3.7657033027576084`*^9}, {3.765703370285313*^9, 3.7657033875233436`*^9}, {
   3.765703423965008*^9, 3.76570342540021*^9}, {3.7657035667364583`*^9, 
   3.7657035976089125`*^9}, {3.7657036513666067`*^9, 
   3.7657036834870634`*^9}, {3.765703750598381*^9, 3.765703776104426*^9}, {
   3.765703890421427*^9, 3.765703896068637*^9}, {3.7657039345383043`*^9, 
   3.765703944491122*^9}, {3.765704108260209*^9, 3.76570410861901*^9}, {
   3.765704146839077*^9, 3.7657041571974955`*^9}, {3.7657049212868376`*^9, 
   3.765704947089283*^9}, {3.7657066312205505`*^9, 3.765706704600653*^9}, {
   3.7657067510107183`*^9, 3.7657068803008995`*^9}, {3.7657069352009764`*^9, 
   3.76570694511099*^9}, {3.7657071055032177`*^9, 3.7657071626932974`*^9}, {
   3.7657072301033916`*^9, 3.7657072367534013`*^9}, {3.76570737150359*^9, 
   3.765707401903632*^9}, {3.765707473533733*^9, 3.7657075642638597`*^9}, {
   3.7657076275939484`*^9, 3.765707633073956*^9}, {3.765707673844013*^9, 
   3.765707847584256*^9}, {3.765707879394301*^9, 3.7657079060343385`*^9}, {
   3.7657079415643883`*^9, 3.765708039004524*^9}, {3.765708072314571*^9, 
   3.765708166996705*^9}, {3.765708202606755*^9, 3.765708221446781*^9}, {
   3.765708387797014*^9, 3.7657083899870167`*^9}, {3.765708438147084*^9, 
   3.7657084398770866`*^9}, {3.76570850639718*^9, 3.765708511217187*^9}, {
   3.765709000030709*^9, 3.7657090362383723`*^9}, {3.7657101002785983`*^9, 
   3.7657101067986073`*^9}, {3.7657101669086914`*^9, 
   3.7657101841687155`*^9}, {3.765710225228773*^9, 3.765710232278783*^9}, {
   3.7657102879288607`*^9, 3.765710303418883*^9}, {3.7657119261041794`*^9, 
   3.7657119464942074`*^9}, {3.7657140679121685`*^9, 3.765714144722276*^9}, {
   3.7657144314926777`*^9, 3.76571443288268*^9}, 3.765714486982755*^9, {
   3.765714523852807*^9, 3.7657145261828103`*^9}, {3.765714586782895*^9, 
   3.765714609712927*^9}, {3.76571481864322*^9, 3.7657148290632343`*^9}, {
   3.7657149669934273`*^9, 3.765714971683434*^9}, {3.7657150727135754`*^9, 
   3.7657151214636436`*^9}, {3.7657170521148396`*^9, 
   3.7657171062001343`*^9}, {3.7657175961189947`*^9, 
   3.7657175979441977`*^9}, {3.7657176590339055`*^9, 
   3.7657176699383245`*^9}, {3.7657179121599503`*^9, 
   3.7657179216291666`*^9}, {3.76571803739697*^9, 3.7657180862562556`*^9}, {
   3.7657182705705795`*^9, 3.7657182897430134`*^9}, {3.765718372797559*^9, 
   3.7657184495652943`*^9}, {3.765718498081379*^9, 3.76571854414826*^9}, {
   3.7657185914631433`*^9, 3.7657185973599534`*^9}, {3.7657186662340746`*^9, 
   3.765718716824963*^9}, {3.7657187515974245`*^9, 3.765718762049443*^9}, {
   3.765718899033283*^9, 3.765718914898511*^9}, {3.7657192210334487`*^9, 
   3.76571923299867*^9}, {3.7657193142280126`*^9, 3.7657193535400815`*^9}, {
   3.7657194248166065`*^9, 3.76571951752757*^9}, {3.7657195675880575`*^9, 
   3.7657196376633806`*^9}, {3.765719668629435*^9, 3.7657196797366543`*^9}, {
   3.765720643888748*^9, 3.7657206779436083`*^9}, {3.7657207100172644`*^9, 
   3.765720751731738*^9}, {3.765720791121807*^9, 3.765720807501836*^9}, {
   3.7657209040660057`*^9, 3.7657209233632393`*^9}, {3.7657209542044935`*^9, 
   3.765721030785028*^9}, {3.7657211028883543`*^9, 3.765721122201188*^9}, {
   3.76572118018649*^9, 3.765721266111441*^9}, {3.7657213152359276`*^9, 
   3.765721321585139*^9}, {3.765783991136448*^9, 3.765784173890768*^9}, 
   3.765784204919223*^9, {3.7657842474760976`*^9, 3.765784250112502*^9}, {
   3.7657842939641795`*^9, 3.765784310359808*^9}, {3.7657843408578615`*^9, 
   3.7657843504050784`*^9}, {3.76578439684636*^9, 3.7657844919597273`*^9}, {
   3.7657845269817886`*^9, 3.7657845378082075`*^9}, {3.765784591877903*^9, 
   3.765784596713911*^9}, {3.7657846740744467`*^9, 3.765784734477753*^9}, {
   3.7657848219003067`*^9, 3.7657848352695303`*^9}, {3.765784870494392*^9, 
   3.7657851218888335`*^9}, {3.765785170514119*^9, 3.7657851719337215`*^9}, {
   3.7657857209134884`*^9, 3.7657860157308064`*^9}, {3.765786063794491*^9, 
   3.765786237984397*^9}, {3.7657862781388674`*^9, 3.7657867903657665`*^9}, {
   3.7657868556996813`*^9, 3.765787095020702*^9}, {3.765787473666567*^9, 
   3.7657875172530437`*^9}, {3.765787564068726*^9, 3.765787619963624*^9}, {
   3.7657878590652437`*^9, 3.7657880559063897`*^9}, {3.7657885567316694`*^9, 
   3.765788629926998*^9}, {3.7657886653858604`*^9, 3.765788666306262*^9}, {
   3.7657892652859144`*^9, 3.765789319090409*^9}, {3.7657893961857443`*^9, 
   3.765789396232544*^9}, {3.7657896412153745`*^9, 3.7657897186539106`*^9}, {
   3.765789802784858*^9, 3.765789875778386*^9}, {3.765789907525442*^9, 
   3.7657899542475243`*^9}, {3.7657899886923847`*^9, 3.765790034774866*^9}, {
   3.765790086691757*^9, 3.765790147656664*^9}, {3.765790181789524*^9, 
   3.76579018522153*^9}, {3.7657902213511934`*^9, 3.765790221772394*^9}, {
   3.7657902606164627`*^9, 3.7657902777764926`*^9}, {3.765790316714161*^9, 
   3.7657903296465836`*^9}, {3.765790391407092*^9, 3.765790403918314*^9}, {
   3.7657904790448465`*^9, 3.7657905658109984`*^9}, {3.765790681251201*^9, 
   3.765790706913246*^9}, {3.7657907372709*^9, 3.765790739142903*^9}, {
   3.7657907980486064`*^9, 3.7657908218698483`*^9}, {3.765792468386443*^9, 
   3.765792675632807*^9}, {3.765792782960995*^9, 3.7657928501815133`*^9}, {
   3.7657929017864037`*^9, 3.765792908026415*^9}, {3.765792966822918*^9, 
   3.7657930892831335`*^9}, {3.765793145115631*^9, 3.7657932028357325`*^9}, {
   3.765793268901849*^9, 3.7657933143915286`*^9}, {3.7657933527987957`*^9, 
   3.7657937059302163`*^9}, {3.765793735991469*^9, 3.76579380494359*^9}, {
   3.765793913722581*^9, 3.765793916670986*^9}, {3.7657939958411255`*^9, 
   3.7657940080871468`*^9}, {3.765794044497611*^9, 3.765794314824886*^9}, {
   3.7657943939794245`*^9, 3.7657944001414356`*^9}, {3.7657944367546997`*^9, 
   3.7657947159951906`*^9}, {3.7657947512824526`*^9, 3.7657947621868715`*^9}, 
   3.765794952008005*^9, {3.765795047183772*^9, 3.765795145651145*^9}, {
   3.765795264180153*^9, 3.765795378419154*^9}, {3.765795415297619*^9, 
   3.765795542515842*^9}, {3.7657956042451506`*^9, 3.765795642059617*^9}, {
   3.7657957654246335`*^9, 3.765795766079835*^9}, {3.765795891379255*^9, 
   3.765796169730544*^9}, {3.7657962021006002`*^9, 3.7657962121626186`*^9}, {
   3.7657962812551394`*^9, 3.765796411140968*^9}, {3.765796717962307*^9, 
   3.7657967981776476`*^9}, {3.7657968894534082`*^9, 
   3.7657969272678747`*^9}, {3.7657969752535586`*^9, 
   3.7657970026784067`*^9}, {3.7657971222058167`*^9, 
   3.7657971334846363`*^9}, {3.765797211001173*^9, 3.7657972113287735`*^9}, {
   3.7657972514520435`*^9, 3.7657972552116504`*^9}, {3.765797310139347*^9, 
   3.7657973110285482`*^9}, {3.765797395034696*^9, 3.765797428652755*^9}, {
   3.7657974603520107`*^9, 3.7657974722548313`*^9}, {3.7657975097228975`*^9, 
   3.765797516259309*^9}, 3.765797555009777*^9, {3.7657976390159245`*^9, 
   3.7657976395307255`*^9}, {3.7657976845212045`*^9, 3.76579768790641*^9}, {
   3.7657977220548706`*^9, 3.7657977315864873`*^9}, {3.765797811115427*^9, 
   3.765797828119457*^9}, {3.7657979806097245`*^9, 3.7657980576582603`*^9}, {
   3.765799555207013*^9, 3.765799579808256*^9}, {3.765799790003025*^9, 
   3.7657998020462465`*^9}, {3.765799865522758*^9, 3.7657999054120283`*^9}, {
   3.7657999753625507`*^9, 3.7657999948937855`*^9}, {3.7658000524266863`*^9, 
   3.7658000960599627`*^9}, {3.76580025376064*^9, 3.7658002741030755`*^9}, {
   3.7658003303567743`*^9, 3.7658003539596157`*^9}, {3.765800403770503*^9, 
   3.765800412912119*^9}, {3.7658004897734547`*^9, 3.7658004920198584`*^9}, {
   3.7658005324395294`*^9, 3.7658006375213137`*^9}, {3.765800733835883*^9, 
   3.7658007375174894`*^9}, {3.765800845422879*^9, 3.7658008594785037`*^9}, {
   3.765832801265263*^9, 3.765832842371335*^9}, {3.7658329954886045`*^9, 
   3.765832997610208*^9}, {3.7658335557167883`*^9, 3.7658335614419985`*^9}, {
   3.7658337071462545`*^9, 3.7658337555219393`*^9}, {3.765834716462426*^9, 
   3.765834728755248*^9}, {3.765835372034778*^9, 3.765835398274024*^9}, 
   3.7658354323444843`*^9, {3.7658354635601387`*^9, 3.765835491624588*^9}, {
   3.765835844076007*^9, 3.7658359035589113`*^9}, {3.7658363841801558`*^9, 
   3.765836427610632*^9}, {3.7658364665327005`*^9, 3.765836506843171*^9}, {
   3.7658366786150727`*^9, 3.765836710454729*^9}, {3.7658367443847885`*^9, 
   3.7658367492987967`*^9}, {3.765836859824991*^9, 3.7658369014614644`*^9}, {
   3.765837020942074*^9, 3.7658370212852745`*^9}, {3.7658371491742992`*^9, 
   3.7658373325682216`*^9}, {3.7658373903039227`*^9, 
   3.7658373946719303`*^9}, {3.7658375471777983`*^9, 3.765837556023014*^9}, {
   3.7658376336643505`*^9, 3.765837686127242*^9}, {3.765837742490142*^9, 
   3.76583775317616*^9}, {3.7658378085586576`*^9, 3.765837817372673*^9}, {
   3.7658379004072266`*^9, 3.765837943307302*^9}, {3.7658380152858286`*^9, 
   3.7658380157070293`*^9}, {3.765838085517152*^9, 3.7658380855795517`*^9}, {
   3.7658381193068113`*^9, 3.765838119353611*^9}, {3.7658381542040725`*^9, 
   3.765838176870912*^9}, {3.7658390411768303`*^9, 3.7658390477912416`*^9}, {
   3.765839355267782*^9, 3.765839362428195*^9}, {3.765839602325416*^9, 
   3.7658396099382296`*^9}, {3.765839687191165*^9, 3.765839696145581*^9}, {
   3.7658403374783077`*^9, 3.7658403664631586`*^9}, {3.76584045867492*^9, 
   3.7658404703281407`*^9}, 3.7987574091609755`*^9, {3.799406881490222*^9, 
   3.7994069689897547`*^9}, {3.799407118278308*^9, 3.7994071244979153`*^9}, {
   3.7994890839126773`*^9, 3.7994891006565533`*^9}, {3.8002749529233685`*^9, 
   3.800274977555715*^9}},
 CellLabel->
  "In[102]:=",ExpressionUUID->"f3c8967c-6488-4b5f-9b9e-da64c402445e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "****)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "modulo", " ", "que", " ", "gera", " ", "as", " ", "esferas", " ", "e", 
    " ", "1", " ", "casca", " ", "esf\[EAcute]rica", " ", "e", " ", "computa",
     " ", "intersecao"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", "****)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"IntersEsferas1Casca", "[", 
     RowBox[{"m_", ",", "n_", ",", "kk_"}], "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "A", ",", "d", ",", "cc", ",", "dcint", ",", "dcext", ",", "cint", ",",
         " ", "cext", ",", "bint", ",", "bext", ",", " ", "\[CapitalAHat]", 
        ",", "\[CapitalAHat]E", ",", "Abar", ",", "ii", ",", "jj", ",", "Q", 
        ",", "R", ",", "c", ",", "Rhat", ",", "Rhat1", ",", "c1", ",", 
        "Rhat2", ",", "c2", ",", "rhat", ",", "y", ",", "del", ",", "yk1", 
        ",", "z", ",", "w", ",", "x1", ",", "x2", ",", "z1", ",", "z2", ",", 
        "w1", ",", "w2", ",", "erro", ",", "aux", ",", "z0"}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Print", "[", "\"\<\>\"", "]"}], ";", "\[IndentingNewLine]", 
       RowBox[{
       "Print", "[", "\"\<_____ in\[IAcute]cio abordagem alg. lin._____\>\"", 
        "]"}], ";", "\[IndentingNewLine]", 
       RowBox[{"Print", "[", "\"\<\>\"", "]"}], ";", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{"testa", " ", "abordagem", " ", "cl\[AAcute]ssica"}], " ", 
        "*)"}], "\[IndentingNewLine]", 
       RowBox[{"Print", "[", "\"\<\>\"", "]"}], ";", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"A", ",", "d", ",", "cc", ",", "dcint", ",", "dcext"}], 
         "}"}], "=", 
        RowBox[{"geraEsferas1Casca", "[", 
         RowBox[{"m", ",", "n", ",", "kk"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"Abar", "=", " ", 
        RowBox[{"Transpose", "[", 
         RowBox[{"Append", "[", 
          RowBox[{
           RowBox[{"Transpose", "[", "A", "]"}], ",", "cc"}], "]"}], "]"}]}], 
       ";", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"Print", "[", 
          RowBox[{"\"\<>> A = \>\"", ",", 
           RowBox[{"Style", "[", 
            RowBox[{"A", ",", "Red"}], "]"}], ",", "\"\<  d = \>\"", ",", 
           RowBox[{"Style", "[", 
            RowBox[{"d", ",", "Red"}], "]"}], ",", "\"\<, rank(A) = \>\"", 
           ",", 
           RowBox[{"Style", "[", 
            RowBox[{
             RowBox[{"MatrixRank", "[", "A", "]"}], ",", "Red"}], "]"}]}], 
          "]"}], ";"}], "*)"}], "\[IndentingNewLine]", 
       RowBox[{"Print", "[", 
        RowBox[{"\"\<>> A = [\!\(\*SubscriptBox[\(a\), \(i\)]\)] = \>\"", ",", 
         RowBox[{"Style", "[", 
          RowBox[{
           RowBox[{"MatrixForm", "[", "A", "]"}], ",", "Red"}], "]"}], ",", 
         "\"\<, d = \>\"", ",", 
         RowBox[{"Style", "[", 
          RowBox[{
           RowBox[{"MatrixForm", "[", "d", "]"}], ",", "Red"}], "]"}]}], 
        "]"}], ";", 
       RowBox[{"Print", "[", 
        RowBox[{"\"\<>> \!\(\*SubscriptBox[\(c\), \(casca\)]\) = \>\"", ",", 
         RowBox[{"Style", "[", 
          RowBox[{"cc", ",", "Red"}], "]"}], ",", " ", 
         "\"\<, \!\(\*UnderscriptBox[SubscriptBox[\(d\), \(casca\)], \(_\)]\) \
= \>\"", ",", " ", 
         RowBox[{"Style", "[", 
          RowBox[{"dcint", ",", "Red"}], "]"}], ",", " ", 
         "\"\<, \!\(\*OverscriptBox[SubscriptBox[\(d\), \(casca\)], \(_\)]\) \
= \>\"", ",", " ", 
         RowBox[{"Style", "[", 
          RowBox[{"dcext", ",", "Red"}], "]"}]}], "]"}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"Print", "[", 
        RowBox[{
        "\"\<>> \!\(\*OverscriptBox[\(A\), \(_\)]\) = A \[Union] \
\!\(\*SubscriptBox[\(c\), \(casca\)]\)  = \>\"", ",", 
         RowBox[{"Style", "[", 
          RowBox[{
           RowBox[{"MatrixForm", "[", "Abar", "]"}], ",", "Red"}], "]"}]}], 
        "]"}], ";", "\[IndentingNewLine]", 
       RowBox[{"Print", "[", 
        RowBox[{
        "\"\<>> rank(A \[Union] \!\(\*SubscriptBox[\(c\), \(casca\)]\))= \
\>\"", ",", 
         RowBox[{"Style", "[", 
          RowBox[{
           RowBox[{"MatrixRank", "[", "Abar", "]"}], ",", "Red"}], "]"}], 
         ",", "\"\<, rank(A) = \>\"", ",", 
         RowBox[{"Style", "[", 
          RowBox[{
           RowBox[{"MatrixRank", "[", "A", "]"}], ",", "Red"}], "]"}], ",", 
         "\"\<, k = \>\"", ",", 
         RowBox[{"Style", "[", 
          RowBox[{"kk", ",", "Red"}], "]"}]}], "]"}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"\[CapitalAHat]", "=", 
        RowBox[{"Table", "[", 
         RowBox[{"0", ",", 
          RowBox[{"{", 
           RowBox[{"ii", ",", "n"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"jj", ",", 
            RowBox[{"m", "-", "1"}]}], "}"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"For", "[", 
        RowBox[{
         RowBox[{"jj", "=", "1"}], ",", 
         RowBox[{"jj", "\[LessEqual]", 
          RowBox[{"m", "-", "1"}]}], ",", 
         RowBox[{"jj", "++"}], ",", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           RowBox[{"\[CapitalAHat]", "[", 
            RowBox[{"[", 
             RowBox[{";;", ",", "jj"}], "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{"A", "[", 
             RowBox[{"[", 
              RowBox[{";;", ",", "jj"}], "]"}], "]"}], "-", 
            RowBox[{"A", "[", 
             RowBox[{"[", 
              RowBox[{";;", ",", "m"}], "]"}], "]"}]}]}], ";"}]}], 
        "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
       RowBox[{"\[CapitalAHat]", " ", "=", " ", 
        RowBox[{"Transpose", "[", 
         RowBox[{"Append", "[", 
          RowBox[{
           RowBox[{"Transpose", "[", "\[CapitalAHat]", "]"}], ",", 
           RowBox[{"cc", "-", 
            RowBox[{"A", "[", 
             RowBox[{"[", 
              RowBox[{";;", ",", "m"}], "]"}], "]"}]}]}], "]"}], "]"}]}], ";",
        "\[IndentingNewLine]", 
       RowBox[{"Print", "[", 
        RowBox[{
        "\"\<>> \!\(\*OverscriptBox[\(A\), \(^\)]\) := \
[\!\(\*SubscriptBox[\(a\), \(i\)]\) - \!\(\*SubscriptBox[\(a\), \(m\)]\)] = \
\>\"", ",", 
         RowBox[{"Style", "[", 
          RowBox[{
           RowBox[{"Chop", "[", 
            RowBox[{
             RowBox[{"MatrixForm", "[", "\[CapitalAHat]", "]"}], ",", 
             RowBox[{"10", "^", 
              RowBox[{"-", "9"}]}]}], "]"}], ",", "Red"}], "]"}], ",", " ", 
         "\"\<, rank(\!\(\*OverscriptBox[\(A\), \(^\)]\)) = \>\"", ",", " ", 
         RowBox[{"Style", "[", 
          RowBox[{
           RowBox[{"MatrixRank", "[", "\[CapitalAHat]", "]"}], ",", "Red"}], 
          "]"}], ",", " ", "\"\<, k = \>\"", ",", " ", 
         RowBox[{"Style", "[", 
          RowBox[{"kk", ",", "Red"}], "]"}]}], "]"}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"resolve", " ", "o", " ", "sistema", " ", 
          RowBox[{"\[CapitalAHat]", "^", "t"}], " ", "xbar"}], "=", 
         RowBox[{
         "c", " ", "via", " ", "decomposicao", " ", "QR", " ", "de", " ", 
          "\[CapitalAHat]"}]}], "*)"}], "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{
         RowBox[{
         "reordena", " ", "as", " ", "colunas", " ", "de", " ", 
          "\[CapitalAHat]"}], ",", " ", 
         RowBox[{"antecipando", " ", "a", " ", "coluna", " ", "m"}], ",", " ", 
         RowBox[{"denotada", " ", "por", " ", 
          SubscriptBox["\[AHat]", "m"]}]}], " ", "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{"E", " ", "=", " ", 
         RowBox[{
          RowBox[{
          "matriz", " ", "de", " ", "permuta\[CCedilla]\[ATilde]o", " ", 
           RowBox[{"tq", ".", " ", "\[CapitalAHat]E"}]}], " ", "=", " ", 
          RowBox[{
           RowBox[{
            RowBox[{"[", 
             RowBox[{
              SubscriptBox["\[CapitalAHat]", 
               RowBox[{"1", ":", "k"}]], " ", 
              SubscriptBox["\[CapitalAHat]", 
               RowBox[{
                RowBox[{"k", "+", "1"}], ":", 
                RowBox[{"m", "-", "1"}]}]], " ", 
              SubscriptBox["\[AHat]", "m"]}], "]"}], "E"}], " ", "=", " ", 
           RowBox[{"[", 
            RowBox[{
             SubscriptBox["\[CapitalAHat]", 
              RowBox[{"1", ":", "k"}]], "  ", 
             SubscriptBox["\[AHat]", "m"], "  ", 
             SubscriptBox["\[CapitalAHat]", 
              RowBox[{
               RowBox[{"k", "+", "1"}], ":", 
               RowBox[{"m", "-", "1"}]}]]}], "]"}]}]}]}], " ", "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{"Abar", "=", " ", 
        RowBox[{"Transpose", "[", 
         RowBox[{"Append", "[", 
          RowBox[{
           RowBox[{"Transpose", "[", "A", "]"}], ",", "cc"}], "]"}], "]"}]}], 
       ";", "\[IndentingNewLine]", 
       RowBox[{"\[CapitalAHat]E", "=", 
        RowBox[{"\[CapitalAHat]", "[", 
         RowBox[{"[", 
          RowBox[{";;", ",", 
           RowBox[{"1", ";;", "kk"}]}], "]"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"Print", "[", 
          RowBox[{"\"\<>> \[CapitalAHat]E = \>\"", ",", 
           RowBox[{"Style", "[", 
            RowBox[{
             RowBox[{"MatrixForm", "[", "\[CapitalAHat]E", "]"}], ",", 
             "Red"}], "]"}]}], "]"}], ";"}], "*)"}], "\[IndentingNewLine]", 
       RowBox[{"\[CapitalAHat]E", " ", "=", " ", 
        RowBox[{"Transpose", "[", 
         RowBox[{"Append", "[", 
          RowBox[{
           RowBox[{"Transpose", "[", "\[CapitalAHat]E", "]"}], ",", 
           RowBox[{"\[CapitalAHat]", "[", 
            RowBox[{"[", 
             RowBox[{";;", ",", "m"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"Print", "[", 
          RowBox[{"\"\<>> \[CapitalAHat]E = \>\"", ",", 
           RowBox[{"Style", "[", 
            RowBox[{
             RowBox[{"MatrixForm", "[", "\[CapitalAHat]E", "]"}], ",", 
             "Red"}], "]"}]}], "]"}], ";"}], "*)"}], "\[IndentingNewLine]", 
       RowBox[{"For", "[", 
        RowBox[{
         RowBox[{"ii", "=", 
          RowBox[{"kk", "+", "1"}]}], ",", 
         RowBox[{"ii", "\[LessEqual]", " ", 
          RowBox[{"m", "-", "1"}]}], ",", 
         RowBox[{"ii", "++"}], ",", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"\[CapitalAHat]E", " ", "=", " ", 
           RowBox[{"Transpose", "[", 
            RowBox[{"Append", "[", 
             RowBox[{
              RowBox[{"Transpose", "[", "\[CapitalAHat]E", "]"}], ",", 
              RowBox[{"\[CapitalAHat]", "[", 
               RowBox[{"[", 
                RowBox[{";;", ",", "ii"}], "]"}], "]"}]}], "]"}], "]"}]}], 
          ";"}]}], "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{"Print", "[", 
           RowBox[{"\"\<>> \[CapitalAHat]E = \>\"", ",", 
            RowBox[{"Style", "[", 
             RowBox[{
              RowBox[{"MatrixForm", "[", "\[CapitalAHat]E", "]"}], ",", 
              "Red"}], "]"}]}], "]"}], ";"}], "*)"}], "\[IndentingNewLine]", 
        "]"}], ";", "\[IndentingNewLine]", 
       RowBox[{"Print", "[", 
        RowBox[{
        "\"\<>> \[CapitalAHat]E = [\!\(\*SubscriptBox[\(\[CapitalAHat]\), \(1 \
: k\)]\) \!\(\*SubscriptBox[\(\[CapitalAHat]\), \(k + 1 : m - 1\)]\) \
\!\(\*SubscriptBox[\(\[AHat]\), \(m\)]\)]E = [\!\(\*SubscriptBox[\(\
\[CapitalAHat]\), \(1 : k\)]\)  \!\(\*SubscriptBox[\(\[AHat]\), \(m\)]\)  \
\!\(\*SubscriptBox[\(\[CapitalAHat]\), \(k + 1 : m - 1\)]\)] = \>\"", ",", 
         RowBox[{"Style", "[", 
          RowBox[{
           RowBox[{"MatrixForm", "[", "\[CapitalAHat]E", "]"}], ",", "Red"}], 
          "]"}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{
        "obt\[EAcute]m", " ", "decomposi\[CCedilla]\[ATilde]o", " ", "QR", "  ",
          "de", " ", "\[CapitalAHat]E"}], " ", "*)"}], "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Q", ",", "R"}], "}"}], "=", 
        RowBox[{"qrd", "[", "\[CapitalAHat]E", "]"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"Print", "[", 
        RowBox[{"\"\<>> Q = \>\"", ",", 
         RowBox[{"Style", "[", 
          RowBox[{
           RowBox[{"Chop", "[", 
            RowBox[{
             RowBox[{"MatrixForm", "[", "Q", "]"}], ",", 
             RowBox[{"10", "^", 
              RowBox[{"-", "9"}]}]}], "]"}], ",", "Red"}], "]"}], ",", 
         "\"\<, R = \>\"", ",", 
         RowBox[{"Style", "[", 
          RowBox[{
           RowBox[{"Chop", "[", 
            RowBox[{
             RowBox[{"MatrixForm", "[", "R", "]"}], ",", 
             RowBox[{"10", "^", 
              RowBox[{"-", "9"}]}]}], "]"}], ",", "Red"}], "]"}]}], "]"}], 
       ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"Print", "[", "\"\<\>\"", "]"}], ";", "\[IndentingNewLine]", 
       RowBox[{
       "Print", "[", "\"\<>> \!\(\*UnderscriptBox[\(OBS\), \(_\)]\):\>\"", 
        "]"}], ";", "\[IndentingNewLine]", 
       RowBox[{"Print", "[", 
        RowBox[{
        "\"\<  (1) \!\(\*OverscriptBox[\(A\), \(^\)]\):n\[Cross]m, \
\!\(\*OverscriptBox[\(A\), \(^\)]\)E = QR, Q:n\[Cross]n, R:m\[Cross]n, R = \
[\!\(\*SubscriptBox[\(R\), \(1\)]\)  0; \!\(\*SubscriptBox[\(r\), \(k + \
1\)]\) 0; \!\(\*SubscriptBox[\(R\), \(2\)]\) 0\!\(\*SuperscriptBox[\(]\), \(t\
\)]\), \!\(\*SubscriptBox[\(R\), \(1\)]\):(k+1)\[Cross]k, \!\(\*SubscriptBox[\
\(r\), \(k + 1\)]\):1\[Cross]k+1, \!\(\*SubscriptBox[\(R\), \(2\)]\):(k+1)\
\[Cross](m-k-1), m = \>\"", ",", 
         RowBox[{"Style", "[", 
          RowBox[{"m", ",", "Red"}], "]"}], ",", "\"\<, n = \>\"", ",", 
         RowBox[{"Style", "[", 
          RowBox[{"n", ",", "Red"}], "]"}], ",", "\"\< k = \>\"", ",", 
         RowBox[{"Style", "[", 
          RowBox[{"kk", ",", "Red"}], "]"}]}], "]"}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
       "Print", "[", 
        "\"\<  (2) \!\(\*OverscriptBox[\(A\), \(^\)]\)E = QR = \
Q[\!\(\*SubscriptBox[OverscriptBox[\(R\), \(^\)], \(1\)]\) 0 0; \
\!\(\*SubscriptBox[OverscriptBox[\(r\), \(^\)], \(k + 1\)]\) \
\!\(\*SubscriptBox[OverscriptBox[\(r\), \(^\)], \(k + 1, k + 1\)]\) 0; \
\!\(\*SubscriptBox[OverscriptBox[\(R\), \(^\)], \(2\)]\) 0 \
0\!\(\*SuperscriptBox[\(]\), \(t\)]\),  \
\!\(\*SubscriptBox[OverscriptBox[\(R\), \(^\)], \(1\)]\):k\[Cross]k,  \
\!\(\*SubscriptBox[OverscriptBox[\(r\), \(^\)], \(k + \
1\)]\)\[Element]\!\(\*SuperscriptBox[\(\[DoubleStruckCapitalR]\), \(k\)]\),  \
\!\(\*SubscriptBox[OverscriptBox[\(r\), \(^\)], \(k + 1, k + 1\)]\)\[Element]\
\[DoubleStruckCapitalR],  \!\(\*SubscriptBox[OverscriptBox[\(R\), \(^\)], \(2\
\)]\):k\[Cross](m-k-1)\>\"", "]"}], ";", "\[IndentingNewLine]", 
       RowBox[{
       "Print", "[", 
        "\"\<  (3) \!\(\*OverscriptBox[\(R\), \(^\)]\) := \
[\!\(\*SubscriptBox[OverscriptBox[\(R\), \(^\)], \(1\)]\)  \
\!\(\*SubscriptBox[OverscriptBox[\(R\), \(^\)], \(2\)]\)],  \
\!\(\*SuperscriptBox[\(Q\), \(t\)]\)\!\(\*OverscriptBox[\(x\), \(_\)]\) = [y  \
\!\(\*SubscriptBox[\(y\), \(k + 1\)]\)  z],  \!\(\*OverscriptBox[\(x\), \
\(_\)]\) = x-\!\(\*SubscriptBox[\(a\), \(m\)]\),  \
y\[Element]\!\(\*SuperscriptBox[\(\[DoubleStruckCapitalR]\), \(k\)]\),  \
\!\(\*SubscriptBox[\(y\), \(k + 1\)]\)\[Element]\[DoubleStruckCapitalR],  z\
\[Element]\!\(\*SuperscriptBox[\(\[DoubleStruckCapitalR]\), \(n - k - 1\)]\)  \
\[Implies]  \!\(\*SuperscriptBox[\(\[CapitalAHat]\), \
\(t\)]\)\!\(\*OverscriptBox[\(x\), \(_\)]\) = \
[\!\(\*SuperscriptBox[OverscriptBox[\(R\), \(^\)], \(t\)]\) \
\!\(\*SuperscriptBox[SubscriptBox[OverscriptBox[\(r\), \(^\)], \(k + 1\)], \
\(t\)]\); 0 \!\(\*SubscriptBox[OverscriptBox[\(r\), \(^\)], \(k + 1, k + 1\)]\
\)][y  \!\(\*SubscriptBox[\(y\), \(k + 1\)]\)]\>\"", "]"}], ";", " ", 
       "\[IndentingNewLine]", 
       RowBox[{
       "Print", "[", 
        "\"\<  (4) \!\(\*SuperscriptBox[\(R\), \(t\)]\)y = c,   \
\!\(\*SubscriptBox[UnderscriptBox[\(c\), \(_\)], \(m + 1\)]\) \[LessEqual] \
[\!\(\*SuperscriptBox[SubscriptBox[OverscriptBox[\(r\), \(^\)], \(k + 1\)], \
\(t\)]\)  \!\(\*SubscriptBox[OverscriptBox[\(r\), \(^\)], \(k + 1, k + \
1\)]\)][y  \!\(\*SubscriptBox[\(y\), \(k + 1\)]\)\!\(\*SuperscriptBox[\(]\), \
\(t\)]\) \[LessEqual] \!\(\*SubscriptBox[OverscriptBox[\(c\), \(_\)], \(m + 1\
\)]\),  onde  c = [\!\(\*SubscriptBox[\(c\), \(1\)]\) ... \!\(\*SubscriptBox[\
\(c\), \(m - 1\)]\)]\>\"", "]"}], ";", "\[IndentingNewLine]", 
       RowBox[{
       "Print", "[", 
        "\"\<  (5) \!\(\*SubscriptBox[UnderscriptBox[\(c\), \(_\)], \(m + \
1\)]\) \[LessEqual] \!\(\*SuperscriptBox[SubscriptBox[\(\[AHat]\), \(m\)], \
\(t\)]\)\!\(\*OverscriptBox[\(x\), \(_\)]\) \[LessEqual] \
\!\(\*SubscriptBox[OverscriptBox[\(c\), \(_\)], \(m + 1\)]\)\>\"", "]"}], ";",
        "\[IndentingNewLine]", 
       RowBox[{
       "Print", "[", 
        "\"\<  (6) \!\(\*SubscriptBox[\(c\), \(i\)]\) := \
-1/2(\!\(\*SuperscriptBox[SubscriptBox[\(d\), \(i\)], \
\(2\)]\)-\!\(\*SuperscriptBox[SubscriptBox[\(d\), \(m\)], \
\(2\)]\)-||\!\(\*SubscriptBox[\(a\), \(i\)]\)-\!\(\*SubscriptBox[\(a\), \
\(m\)]\)\!\(\*SuperscriptBox[\(||\), \(2\)]\)),  i = 1,...,m,\>\"", "]"}], 
       ";", "\[IndentingNewLine]", 
       RowBox[{
       "Print", "[", 
        "\"\<      \!\(\*SubscriptBox[UnderscriptBox[\(c\), \(_\)], \(m + \
1\)]\) := -1/2(\!\(\*SuperscriptBox[SubscriptBox[OverscriptBox[\(d\), \(_\)], \
\(m + 1\)], \(2\)]\)-\!\(\*SuperscriptBox[SubscriptBox[\(d\), \(m\)], \
\(2\)]\)-||\!\(\*SubscriptBox[\(a\), \(m + 1\)]\)-\!\(\*SubscriptBox[\(a\), \
\(m\)]\)\!\(\*SuperscriptBox[\(||\), \(2\)]\)),  \
\!\(\*SubscriptBox[OverscriptBox[\(c\), \(_\)], \(m + 1\)]\) := \
-1/2(\!\(\*SuperscriptBox[SubscriptBox[UnderscriptBox[\(d\), \(_\)], \(m + \
1\)], \(2\)]\)-\!\(\*SuperscriptBox[SubscriptBox[\(d\), \(m\)], \(2\)]\)-||\!\
\(\*SubscriptBox[\(a\), \(m + 1\)]\)-\!\(\*SubscriptBox[\(a\), \
\(m\)]\)\!\(\*SuperscriptBox[\(||\), \(2\)]\))\>\"", "]"}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
       "Print", "[", 
        "\"\<  (7)||x-\!\(\*SubscriptBox[\(a\), \(i\)]\)\!\(\*SuperscriptBox[\
\(||\), \(2\)]\) = \!\(\*SuperscriptBox[SubscriptBox[\(d\), \(i\)], \(2\)]\), \
\!\(\*OverscriptBox[\(x\), \(_\)]\) = Q[y  \!\(\*SubscriptBox[\(y\), \(k + \
1\)]\)  z\!\(\*SuperscriptBox[\(]\), \(t\)]\)  \[Implies] ||Q[y  \
\!\(\*SubscriptBox[\(y\), \(k + 1\)]\)  z\!\(\*SuperscriptBox[\(]\), \
\(t\)]\)+\!\(\*SubscriptBox[\(a\), \(m\)]\)-\!\(\*SubscriptBox[\(a\), \
\(i\)]\)\!\(\*SuperscriptBox[\(||\), \(2\)]\) = \
\!\(\*SuperscriptBox[SubscriptBox[\(d\), \(i\)], \(2\)]\)  \[Implies] ||[y  \
\!\(\*SubscriptBox[\(y\), \(k + 1\)]\)  z\!\(\*SuperscriptBox[\(]\), \(t\)]\)\
\!\(\*SuperscriptBox[\(||\), \(2\)]\) = \!\(\*SuperscriptBox[SubscriptBox[\(d\
\), \(m\)], \(2\)]\)  \[Implies] ||y\!\(\*SuperscriptBox[\(||\), \
\(2\)]\)+\!\(\*SuperscriptBox[SubscriptBox[\(y\), \(k + 1\)], \
\(2\)]\)+||z\!\(\*SuperscriptBox[\(||\), \(2\)]\) = \
\!\(\*SuperscriptBox[SubscriptBox[\(d\), \(m\)], \(2\)]\)\>\"", "]"}], ";", 
       " ", "\[IndentingNewLine]", 
       RowBox[{
       "Print", "[", 
        "\"\<  (8) max{\!\(\*UnderscriptBox[\(b\), \(_\)]\),-\!\(\*SqrtBox[\(\
\(\*SuperscriptBox[SubscriptBox[\(d\), \(m\)], \(2\)]\(-\)\) || \
y\*SuperscriptBox[\(||\), \(2\)]\)]\)} \[LessEqual] \!\(\*SubscriptBox[\(y\), \
\(k + 1\)]\) \[LessEqual] min{\!\(\*OverscriptBox[\(b\), \(_\)]\), \
\!\(\*SqrtBox[\(\(\*SuperscriptBox[SubscriptBox[\(d\), \(m\)], \(2\)]\(-\)\) \
|| y\*SuperscriptBox[\(||\), \(2\)]\)]\)},  onde  \>\"", "]"}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
       "Print", "[", 
        "\"\<      \!\(\*UnderscriptBox[\(b\), \
\(_\)]\):=(\!\(\*SubscriptBox[UnderscriptBox[\(c\), \(_\)], \(m + 1\)]\)-\!\(\
\*SuperscriptBox[SubscriptBox[OverscriptBox[\(r\), \(^\)], \(k + 1\)], \(t\)]\
\)y)/\!\(\*SubscriptBox[OverscriptBox[\(r\), \(^\)], \(k + 1, k + 1\)]\), \
\!\(\*OverscriptBox[\(b\), \(_\)]\):=(\!\(\*SubscriptBox[OverscriptBox[\(c\), \
\(_\)], \(m + 1\)]\)-\!\(\*SuperscriptBox[SubscriptBox[OverscriptBox[\(r\), \
\(^\)], \(k + 1\)], \(t\)]\)y)/\!\(\*SubscriptBox[OverscriptBox[\(r\), \
\(^\)], \(k + 1, k + 1\)]\),  se  \!\(\*SubscriptBox[OverscriptBox[\(r\), \(^\
\)], \(k + 1, k + 1\)]\) > 0 \>\"", "]"}], ";", "\[IndentingNewLine]", 
       RowBox[{
       "Print", "[", 
        "\"\<      \!\(\*UnderscriptBox[\(b\), \
\(_\)]\):=(\!\(\*SubscriptBox[OverscriptBox[\(c\), \(_\)], \(m + \
1\)]\)-\!\(\*SuperscriptBox[SubscriptBox[OverscriptBox[\(r\), \(^\)], \(k + 1\
\)], \(t\)]\)y)/\!\(\*SubscriptBox[OverscriptBox[\(r\), \(^\)], \(k + 1, k + \
1\)]\), \!\(\*OverscriptBox[\(b\), \
\(_\)]\):=(\!\(\*SubscriptBox[UnderscriptBox[\(c\), \(_\)], \(m + 1\)]\)-\!\(\
\*SuperscriptBox[SubscriptBox[OverscriptBox[\(r\), \(^\)], \(k + 1\)], \(t\)]\
\)y)/\!\(\*SubscriptBox[OverscriptBox[\(r\), \(^\)], \(k + 1, k + 1\)]\),  se \
 \!\(\*SubscriptBox[OverscriptBox[\(r\), \(^\)], \(k + 1, k + 1\)]\) < 0 \
\>\"", "]"}], ";", "\[IndentingNewLine]", 
       RowBox[{"Print", "[", "\"\<\>\"", "]"}], ";", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{"computa", " ", "vetor", " ", "c"}], " ", "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{"c", "=", 
        RowBox[{"Table", "[", 
         RowBox[{"0", ",", 
          RowBox[{"{", 
           RowBox[{"ii", ",", 
            RowBox[{"m", "-", "1"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"jj", ",", "1"}], "}"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"Print", "[", 
        RowBox[{"\"\<>> d = \>\"", ",", " ", 
         RowBox[{"Style", "[", 
          RowBox[{"d", ",", "Red"}], "]"}], ",", 
         "\"\<, \[CapitalAHat] = \>\"", ",", " ", 
         RowBox[{"Style", "[", 
          RowBox[{"\[CapitalAHat]", ",", " ", "Red"}], "]"}]}], "]"}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{
          SubscriptBox[
           UnderscriptBox["c", "_"], 
           RowBox[{"m", "+", "1"}]], " ", ":=", " ", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "1"}], "/", "2"}], 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox[
               SubscriptBox[
                OverscriptBox["d", "_"], 
                RowBox[{"m", "+", "1"}]], "2"], "-", 
              SuperscriptBox[
               SubscriptBox["d", "m"], "2"], "-"}], "||", 
             RowBox[{
              SubscriptBox["a", 
               RowBox[{"m", "+", "1"}]], "-", 
              SubscriptBox["a", "m"]}], 
             SuperscriptBox["||", "2"]}], ")"}]}]}], ",", "  ", 
         RowBox[{
          SubscriptBox[
           OverscriptBox["c", "_"], 
           RowBox[{"m", "+", "1"}]], " ", ":=", " ", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "1"}], "/", "2"}], 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox[
               SubscriptBox[
                UnderscriptBox["d", "_"], 
                RowBox[{"m", "+", "1"}]], "2"], "-", 
              SuperscriptBox[
               SubscriptBox["d", "m"], "2"], "-"}], "||", 
             RowBox[{
              SubscriptBox["a", 
               RowBox[{"m", "+", "1"}]], "-", 
              SubscriptBox["a", "m"]}], 
             SuperscriptBox["||", "2"]}], ")"}]}]}]}], "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{"cint", "=", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "/", "2"}], ")"}], "*", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"dcext", "^", "2"}], "-", 
           RowBox[{
            RowBox[{"d", "[", 
             RowBox[{"[", "m", "]"}], "]"}], "^", "2"}], "-", 
           RowBox[{
            RowBox[{"Norm", "[", 
             RowBox[{"\[CapitalAHat]", "[", 
              RowBox[{"[", 
               RowBox[{";;", ",", "m"}], "]"}], "]"}], "]"}], "^", "2"}]}], 
          ")"}]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"cext", "=", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "/", "2"}], ")"}], "*", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"dcint", "^", "2"}], "-", 
           RowBox[{
            RowBox[{"d", "[", 
             RowBox[{"[", "m", "]"}], "]"}], "^", "2"}], "-", 
           RowBox[{
            RowBox[{"Norm", "[", 
             RowBox[{"\[CapitalAHat]", "[", 
              RowBox[{"[", 
               RowBox[{";;", ",", "m"}], "]"}], "]"}], "]"}], "^", "2"}]}], 
          ")"}]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"Print", "[", "\"\<>> ok 1 <<\>\"", "]"}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"For", "[", 
        RowBox[{
         RowBox[{"ii", "=", "1"}], ",", 
         RowBox[{"ii", "\[LessEqual]", 
          RowBox[{"m", "-", "1"}]}], ",", 
         RowBox[{"ii", "++"}], ",", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           RowBox[{"c", "[", 
            RowBox[{"[", 
             RowBox[{"ii", ",", "1"}], "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "/", "2"}], ")"}], "*", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"d", "[", 
                RowBox[{"[", "ii", "]"}], "]"}], "^", "2"}], "-", 
              RowBox[{
               RowBox[{"d", "[", 
                RowBox[{"[", "m", "]"}], "]"}], "^", "2"}], "-", 
              RowBox[{
               RowBox[{"Norm", "[", 
                RowBox[{"\[CapitalAHat]", "[", 
                 RowBox[{"[", 
                  RowBox[{";;", ",", "ii"}], "]"}], "]"}], "]"}], "^", 
               "2"}]}], ")"}]}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";",
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"Rhat1", "=", 
        RowBox[{"R", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"1", ";;", "kk"}], ",", 
           RowBox[{"1", ";;", "kk"}]}], "]"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"Rhat2", "=", 
        RowBox[{"R", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"1", ";;", "kk"}], ",", 
           RowBox[{
            RowBox[{"kk", "+", "2"}], ";;", "m"}]}], "]"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"rhat", "=", 
        RowBox[{"R", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"1", ";;", 
            RowBox[{"kk", "+", "1"}]}], ",", 
           RowBox[{"kk", "+", "1"}]}], "]"}], "]"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"Print", "[", "\"\<>> ok 2 <<\>\"", "]"}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"Rhat", "=", 
        RowBox[{"Join", "[", 
         RowBox[{"Rhat1", ",", "Rhat2", ",", "2"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"For", "[", 
          RowBox[{
           RowBox[{"ii", "=", 
            RowBox[{"kk", "+", "1"}]}], ",", 
           RowBox[{"ii", "\[LessEqual]", " ", 
            RowBox[{"m", "-", "1"}]}], ",", 
           RowBox[{"ii", "++"}], ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"Rhat", " ", "=", " ", 
             RowBox[{"Transpose", "[", 
              RowBox[{"Append", "[", 
               RowBox[{
                RowBox[{"Transpose", "[", "Rhat", "]"}], ",", 
                RowBox[{"Rhat2", "[", 
                 RowBox[{"[", 
                  RowBox[{";;", ",", "ii"}], "]"}], "]"}]}], "]"}], "]"}]}], 
            ";"}]}], "\[IndentingNewLine]", 
          RowBox[{"(*", 
           RowBox[{
            RowBox[{"Print", "[", 
             RowBox[{"\"\<>> \!\(\*OverscriptBox[\(R\), \(^\)]\) = \>\"", ",", 
              RowBox[{"Style", "[", 
               RowBox[{
                RowBox[{"MatrixForm", "[", "Rhat", "]"}], ",", "Red"}], 
               "]"}]}], "]"}], ";"}], "*)"}], "\[IndentingNewLine]", "]"}], 
         ";"}], "*)"}], "\[IndentingNewLine]", 
       RowBox[{"Print", "[", 
        RowBox[{"\"\<>> R = \>\"", ",", 
         RowBox[{"Style", "[", 
          RowBox[{
           RowBox[{"Chop", "[", 
            RowBox[{
             RowBox[{"MatrixForm", "[", "R", "]"}], ",", 
             RowBox[{"10", "^", 
              RowBox[{"-", "9"}]}]}], "]"}], ",", "Red"}], "]"}]}], "]"}], 
       ";", "\[IndentingNewLine]", 
       RowBox[{"Print", "[", 
        RowBox[{"\"\<>> \!\(\*OverscriptBox[\(R\), \(^\)]\) = \>\"", ",", 
         RowBox[{"Style", "[", 
          RowBox[{
           RowBox[{"MatrixForm", "[", 
            RowBox[{"Chop", "[", 
             RowBox[{"Rhat", ",", 
              RowBox[{"10", "^", 
               RowBox[{"-", "9"}]}]}], "]"}], "]"}], ",", "Red"}], "]"}], 
         ",", "\"\<,  c = [\!\(\*SubscriptBox[\(c\), \(i\)]\)] = \>\"", ",", 
         RowBox[{"Style", "[", 
          RowBox[{"c", ",", "Red"}], "]"}]}], "]"}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"Print", "[", 
        RowBox[{
        "\"\<>> \!\(\*SubscriptBox[OverscriptBox[\(R\), \(^\)], \(1\)]\) = \>\
\"", ",", 
         RowBox[{"Style", "[", 
          RowBox[{
           RowBox[{"MatrixForm", "[", 
            RowBox[{"Chop", "[", 
             RowBox[{"Rhat1", ",", 
              RowBox[{"10", "^", 
               RowBox[{"-", "9"}]}]}], "]"}], "]"}], ",", "Red"}], "]"}], 
         ",", "\"\<,  \!\(\*SubscriptBox[OverscriptBox[\(R\), \(^\)], \
\(2\)]\) = \>\"", ",", 
         RowBox[{"Style", "[", 
          RowBox[{
           RowBox[{"MatrixForm", "[", 
            RowBox[{"Chop", "[", 
             RowBox[{"Rhat2", ",", 
              RowBox[{"10", "^", 
               RowBox[{"-", "9"}]}]}], "]"}], "]"}], ",", "Red"}], "]"}]}], 
        "]"}], ";", "  ", "\[IndentingNewLine]", 
       RowBox[{"Print", "[", 
        RowBox[{
        "\"\<>> \!\(\*SubscriptBox[\(r\), \(k + 1\)]\) = \
[\!\(\*SubscriptBox[OverscriptBox[\(r\), \(^\)], \(k + 1\)]\)  \
\!\(\*SubscriptBox[OverscriptBox[\(r\), \(^\)], \(k + 1, k + \
1\)]\)\!\(\*SuperscriptBox[\(]\), \(t\)]\) = \>\"", ",", " ", 
         RowBox[{"Style", "[", 
          RowBox[{
           RowBox[{"MatrixForm", "[", "rhat", "]"}], ",", "Red"}], "]"}], 
         ",", "\"\<, \!\(\*SubscriptBox[OverscriptBox[\(r\), \(^\)], \(k + \
1\)]\) = \>\"", ",", " ", 
         RowBox[{"Style", "[", 
          RowBox[{
           RowBox[{"MatrixForm", "[", 
            RowBox[{"rhat", "[", 
             RowBox[{"[", 
              RowBox[{"1", ";;", "kk"}], "]"}], "]"}], "]"}], ",", "Red"}], 
          "]"}], ",", 
         "\"\<,  \!\(\*SubscriptBox[OverscriptBox[\(r\), \(^\)], \(k + 1, k + \
1\)]\) = \>\"", ",", " ", 
         RowBox[{"Style", "[", 
          RowBox[{
           RowBox[{"MatrixForm", "[", 
            RowBox[{"rhat", "[", 
             RowBox[{"[", 
              RowBox[{"kk", "+", "1"}], "]"}], "]"}], "]"}], ",", "Red"}], 
          "]"}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{
        "verifica", " ", "se", " ", "c", " ", "pertence", " ", "a", " ", "Im", 
         RowBox[{"(", 
          SuperscriptBox[
           OverscriptBox["R", "^"], "t"], ")"}]}], " ", "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{"c1", "=", 
        RowBox[{"c", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"1", ";;", "kk"}], ",", "1"}], "]"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"kk", "\[NotEqual]", 
          RowBox[{"m", "-", "1"}]}], ",", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"c2", "=", 
             RowBox[{"c", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{
                 RowBox[{"kk", "+", "1"}], ";;", 
                 RowBox[{"m", "-", "1"}]}], ",", "1"}], "]"}], "]"}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"Print", "[", "\"\<>> ok 33 <<\>\"", "]"}], ";"}], 
           "\[IndentingNewLine]", ">>", " ", 
           RowBox[{
            RowBox[{"CONTINUAR...", "\[IndentingNewLine]", "y"}], "=", 
            RowBox[{"LinearSolve", "[", 
             RowBox[{
              RowBox[{"Transpose", "[", "Rhat1", "]"}], ",", "c1"}], 
             "]"}]}]}], ";", "\[IndentingNewLine]", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"Norm", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"Transpose", "[", "Rhat2", "]"}], ".", "y"}], "-", 
               "c2"}], "]"}], ">", 
             RowBox[{"10", "^", 
              RowBox[{"(", 
               RowBox[{"-", "6"}], ")"}]}]}], ",", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"Print", "[", "\"\<\>\"", "]"}], ";", 
             "\[IndentingNewLine]", 
             RowBox[{
             "Print", "[", 
              "\"\<>>>> |\!\(\*UnderscriptBox[OverscriptBox[\(Interse\
\[CCedilla]\[ATilde]o\\\ vazia, \\\ pois\\\ c \[NotElement] Im \
\((\*SuperscriptBox[OverscriptBox[\(R\), \(^\)], \(t\)])\)\), \(_\)], \
\(_\)]\)| <<<<\>\"", "]"}], ";", "\[IndentingNewLine]", 
             RowBox[{"Return", "[", 
              RowBox[{"{", 
               RowBox[{"0", ",", "0"}], "}"}], "]"}], ";"}]}], 
           "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", ",", 
         "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{
           RowBox[{
            RowBox[{"alterado", " ", 
             RowBox[{"de", ":", " ", "y"}]}], "=", 
            RowBox[{"LinearSolve", "[", 
             RowBox[{
              RowBox[{"Transpose", "[", "Rhat", "]"}], ",", "c"}], "]"}]}], 
           ";", " ", 
           RowBox[{"para", ":"}]}], "*)"}], "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"y", "=", 
           RowBox[{
            RowBox[{"c", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "/", 
            RowBox[{"Rhat1", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}]}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"Print", "[", 
           RowBox[{"\"\<>> y = \>\"", ",", " ", 
            RowBox[{"Style", "[", 
             RowBox[{"y", ",", "Red"}], "]"}]}], "]"}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"Print", "[", "\"\<>> ok 33b <<\>\"", "]"}], ";"}]}], 
        "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{
         RowBox[{
          RowBox[{
          "computa", " ", "argumento", " ", "da", " ", "raiz", " ", 
           "quadrada", "\[IndentingNewLine]", " ", 
           RowBox[{"obs", ":", " ", 
            RowBox[{"agora", " ", "||", "w", "||"}]}]}], " ", "=", " ", 
          RowBox[{"||", 
           RowBox[{"[", 
            RowBox[{"y", "  ", 
             SubscriptBox["y", 
              RowBox[{"k", "+", "1"}]], "  ", "z"}], "]"}], "||"}]}], ",", 
         " ", 
         RowBox[{
          RowBox[{
           RowBox[{"antes", " ", "tinhamos"}], " ", "||", "w", "||"}], " ", 
          "=", " ", 
          RowBox[{"||", 
           RowBox[{"[", 
            RowBox[{"y", "  ", "z"}], "]"}], "||"}]}], ",", " ", 
         RowBox[{
          RowBox[{"onde", " ", 
           SuperscriptBox["Q", "t"], 
           OverscriptBox["x", "_"]}], " ", "=", " ", "w"}]}], 
        "\[IndentingNewLine]", " ", "*)"}], "\[IndentingNewLine]", 
       RowBox[{"del", "=", 
        RowBox[{
         RowBox[{
          RowBox[{"d", "[", 
           RowBox[{"[", "m", "]"}], "]"}], "^", "2"}], "-", 
         RowBox[{
          RowBox[{"Norm", "[", 
           RowBox[{"y", "[", 
            RowBox[{"[", ";;", "]"}], "]"}], "]"}], "^", "2"}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"Print", "[", 
        RowBox[{
        "\"\<>> \!\(\*SuperscriptBox[SubscriptBox[\(d\), \(m\)], \(2\)]\)-||y\
\!\(\*SuperscriptBox[\(||\), \(2\)]\) = \>\"", ",", 
         RowBox[{"Style", "[", 
          RowBox[{"del", ",", "Red"}], "]"}], ",", 
         "\"\<,  onde y\[Element]\!\(\*SuperscriptBox[\(\
\[DoubleStruckCapitalR]\), \(k\)]\), k = \>\"", ",", 
         RowBox[{"Style", "[", 
          RowBox[{"kk", ",", "Red"}], "]"}]}], "]"}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"del", "\[LessEqual]", " ", "0"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"Print", "[", "\"\<\>\"", "]"}], ";", "\[IndentingNewLine]", 
          RowBox[{
          "Print", "[", 
           "\"\<>>>> |\!\(\*OverscriptBox[UnderscriptBox[\(Interse\[CCedilla]\
\[ATilde]o\\\ vazia, \\\ \(\(pois\\\ \\\ \*SuperscriptBox[SubscriptBox[\(d\), \
\(m\)], \(2\)]\)\(-\)\) || y\*SuperscriptBox[\(||\), \(2\)]\(\(\[LessEqual]\)\
\(\\\ \\\ \)\(0\)\)\\\ \\\ \\\  \[Implies] \\\ \\\ \\\ \
\(\(||\)\(z\)\*SuperscriptBox[\(||\), \(2\)]\)\\\  = \\\ \
\(\*SuperscriptBox[SubscriptBox[\(d\), \(m\)], \(2\)]\(-\)\) || \
y\*SuperscriptBox[\(||\), \(2\)]\\\ \(\(-\\\ \
\*SuperscriptBox[SubscriptBox[\(y\), \(k + 1\)], \(2\)]\)\(\\\ \)\(<\)\(0\)\(\
\\\ \)\)\), \(_\)], \(_\)]\)| <<<<\>\"", "]"}], ";", "\[IndentingNewLine]", 
          RowBox[{"Return", "[", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0"}], "}"}], "]"}], ";"}]}], 
        "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"del", ">", "0"}], ",", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"Print", "[", "\"\<\>\"", "]"}], ";", " ", 
          "\[IndentingNewLine]", 
          RowBox[{
          "Print", "[", 
           "\"\<>> \!\(\*UnderscriptBox[\(OBS\), \(_\)]\): Como \
\!\(\*SuperscriptBox[SubscriptBox[\(d\), \(m\)], \
\(2\)]\)-||y\!\(\*SuperscriptBox[\(||\), \(2\)]\) \[GreaterEqual] 0, ent\
\[ATilde]o para cada \!\(\*SubscriptBox[\(y\), \(k + \
1\)]\)\[Element][max{\!\(\*UnderscriptBox[\(b\), \(_\)]\),-\!\(\*SqrtBox[\(\(\
\*SuperscriptBox[SubscriptBox[\(d\), \(m\)], \(2\)]\(-\)\) || \
y\*SuperscriptBox[\(||\), \(2\)]\)]\)}, min{\!\(\*OverscriptBox[\(b\), \(_\)]\
\), \!\(\*SqrtBox[\(\(\*SuperscriptBox[SubscriptBox[\(d\), \(m\)], \
\(2\)]\(-\)\) || y\*SuperscriptBox[\(||\), \(2\)]\)]\)}] e para cada valor de \
z\[Element]\!\(\*SuperscriptBox[\(\[DoubleStruckCapitalR]\), \(n - k - 1\)]\) \
tq. ||z\!\(\*SuperscriptBox[\(||\), \(2\)]\) = \
\!\(\*SuperscriptBox[SubscriptBox[\(d\), \(m\)], \
\(2\)]\)-||y\!\(\*SuperscriptBox[\(||\), \
\(2\)]\)-\!\(\*SuperscriptBox[SubscriptBox[\(y\), \(k + 1\)], \(2\)]\), temos \
um ponto na interse\[CCedilla]\[ATilde]o das m esferas\>\"", "]"}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"Print", "[", "\"\<\>\"", "]"}], ";", "\[IndentingNewLine]",
           "\[IndentingNewLine]", 
          RowBox[{"(*", " ", 
           RowBox[{
            RowBox[{
             UnderscriptBox["b", "_"], ":=", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                SubscriptBox[
                 UnderscriptBox["c", "_"], 
                 RowBox[{"m", "+", "1"}]], "-", 
                RowBox[{
                 SuperscriptBox[
                  SubscriptBox[
                   OverscriptBox["r", "^"], 
                   RowBox[{"k", "+", "1"}]], "t"], "y"}]}], ")"}], "/", 
              SubscriptBox[
               OverscriptBox["r", "^"], 
               RowBox[{
                RowBox[{"k", "+", "1"}], ",", 
                RowBox[{"k", "+", "1"}]}]]}]}], ",", " ", 
            RowBox[{
             OverscriptBox["b", "_"], ":=", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                SubscriptBox[
                 OverscriptBox["c", "_"], 
                 RowBox[{"m", "+", "1"}]], "-", 
                RowBox[{
                 SuperscriptBox[
                  SubscriptBox[
                   OverscriptBox["r", "^"], 
                   RowBox[{"k", "+", "1"}]], "t"], "y"}]}], ")"}], "/", 
              SubscriptBox[
               OverscriptBox["r", "^"], 
               RowBox[{
                RowBox[{"k", "+", "1"}], ",", 
                RowBox[{"k", "+", "1"}]}]]}]}], ",", "  ", 
            RowBox[{
             RowBox[{
              RowBox[{"se", "  ", 
               SubscriptBox[
                OverscriptBox["r", "^"], 
                RowBox[{
                 RowBox[{"k", "+", "1"}], ",", 
                 RowBox[{"k", "+", "1"}]}]]}], " ", ">", " ", 
              RowBox[{"0", "\[IndentingNewLine]", 
               UnderscriptBox["b", "_"]}]}], ":=", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                SubscriptBox[
                 OverscriptBox["c", "_"], 
                 RowBox[{"m", "+", "1"}]], "-", 
                RowBox[{
                 SuperscriptBox[
                  SubscriptBox[
                   OverscriptBox["r", "^"], 
                   RowBox[{"k", "+", "1"}]], "t"], "y"}]}], ")"}], "/", 
              SubscriptBox[
               OverscriptBox["r", "^"], 
               RowBox[{
                RowBox[{"k", "+", "1"}], ",", 
                RowBox[{"k", "+", "1"}]}]]}]}], ",", " ", 
            RowBox[{
             OverscriptBox["b", "_"], ":=", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                SubscriptBox[
                 UnderscriptBox["c", "_"], 
                 RowBox[{"m", "+", "1"}]], "-", 
                RowBox[{
                 SuperscriptBox[
                  SubscriptBox[
                   OverscriptBox["r", "^"], 
                   RowBox[{"k", "+", "1"}]], "t"], "y"}]}], ")"}], "/", 
              SubscriptBox[
               OverscriptBox["r", "^"], 
               RowBox[{
                RowBox[{"k", "+", "1"}], ",", 
                RowBox[{"k", "+", "1"}]}]]}]}], ",", "  ", 
            RowBox[{
             RowBox[{"se", "  ", 
              SubscriptBox[
               OverscriptBox["r", "^"], 
               RowBox[{
                RowBox[{"k", "+", "1"}], ",", 
                RowBox[{"k", "+", "1"}]}]]}], " ", "<", " ", "0"}]}], "*)"}], 
          "\[IndentingNewLine]", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"rhat", "[", 
              RowBox[{"[", 
               RowBox[{"kk", "+", "1"}], "]"}], "]"}], ">", "0"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"bint", " ", "=", " ", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"cint", " ", "-", " ", 
                 RowBox[{
                  RowBox[{"rhat", "[", 
                   RowBox[{"[", 
                    RowBox[{"1", ";;", "kk"}], "]"}], "]"}], ".", "y"}]}], 
                ")"}], "/", 
               RowBox[{"rhat", "[", 
                RowBox[{"[", 
                 RowBox[{"kk", "+", "1"}], "]"}], "]"}]}]}], ";", 
             "\[IndentingNewLine]", 
             RowBox[{"bext", " ", "=", " ", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"cext", " ", "-", " ", 
                 RowBox[{
                  RowBox[{"rhat", "[", 
                   RowBox[{"[", 
                    RowBox[{"1", ";;", "kk"}], "]"}], "]"}], ".", "y"}]}], 
                ")"}], "/", 
               RowBox[{"rhat", "[", 
                RowBox[{"[", 
                 RowBox[{"kk", "+", "1"}], "]"}], "]"}]}]}], ";", 
             "\[IndentingNewLine]", 
             RowBox[{"Print", "[", 
              RowBox[{
              "\"\<>> \!\(\*SubscriptBox[OverscriptBox[\(r\), \(^\)], \(k + \
1, k + 1\)]\) > 0,  \!\(\*UnderscriptBox[\(b\), \(_\)]\) = \>\"", ",", " ", 
               RowBox[{"Style", "[", 
                RowBox[{"bint", ",", "Red"}], "]"}], ",", 
               "\"\<,  \!\(\*OverscriptBox[\(b\), \(_\)]\) = \>\"", ",", " ", 
               RowBox[{"Style", "[", 
                RowBox[{"bext", ",", "Red"}], "]"}]}], "]"}], ";"}]}], 
           "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"rhat", "[", 
              RowBox[{"[", 
               RowBox[{"kk", "+", "1"}], "]"}], "]"}], "<", "0"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"bint", " ", "=", " ", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"cext", " ", "-", " ", 
                 RowBox[{
                  RowBox[{"rhat", "[", 
                   RowBox[{"[", 
                    RowBox[{"1", ";;", "kk"}], "]"}], "]"}], ".", "y"}]}], 
                ")"}], "/", 
               RowBox[{"rhat", "[", 
                RowBox[{"[", 
                 RowBox[{"kk", "+", "1"}], "]"}], "]"}]}]}], ";", 
             "\[IndentingNewLine]", 
             RowBox[{"bext", " ", "=", " ", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"cint", " ", "-", " ", 
                 RowBox[{
                  RowBox[{"rhat", "[", 
                   RowBox[{"[", 
                    RowBox[{"1", ";;", "kk"}], "]"}], "]"}], ".", "y"}]}], 
                ")"}], "/", 
               RowBox[{"rhat", "[", 
                RowBox[{"[", 
                 RowBox[{"kk", "+", "1"}], "]"}], "]"}]}]}], ";", 
             "\[IndentingNewLine]", 
             RowBox[{"Print", "[", 
              RowBox[{
              "\"\<>> \!\(\*SubscriptBox[OverscriptBox[\(r\), \(^\)], \(k + \
1, k + 1\)]\) < 0,  \!\(\*UnderscriptBox[\(b\), \(_\)]\) = \>\"", ",", " ", 
               RowBox[{"Style", "[", 
                RowBox[{"bint", ",", "Red"}], "]"}], ",", 
               "\"\<,  \!\(\*OverscriptBox[\(b\), \(_\)]\) = \>\"", ",", " ", 
               RowBox[{"Style", "[", 
                RowBox[{"bext", ",", "Red"}], "]"}]}], "]"}], ";"}]}], 
           "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"rhat", "[", 
              RowBox[{"[", 
               RowBox[{"kk", "+", "1"}], "]"}], "]"}], "==", "0"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{
             "Print", "[", 
              "\"\<>>> erro:  \!\(\*SubscriptBox[OverscriptBox[\(r\), \(^\)], \
\(k + 1, k + 1\)]\) = 0 <<<\>\"", "]"}], ";", "\[IndentingNewLine]", 
             RowBox[{"Abort", "[", "]"}], ";"}]}], "\[IndentingNewLine]", 
           "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
          RowBox[{"(*", " ", 
           RowBox[{"escolhe", " ", 
            SubscriptBox["y", 
             RowBox[{"k", "+", "1"}]], " ", "no", " ", "intervalo", " ", 
            "adequado"}], "*)"}], "\[IndentingNewLine]", 
          RowBox[{"SeedRandom", "[", "987", "]"}], ";", "\[IndentingNewLine]", 
          RowBox[{"(*", 
           RowBox[{
            RowBox[{"yk1", "=", 
             RowBox[{"RandomReal", "[", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"Max", "[", 
                 RowBox[{"bint", ",", 
                  RowBox[{"-", 
                   RowBox[{"Sqrt", "[", "del", "]"}]}]}], "]"}], ",", 
                RowBox[{"Min", "[", 
                 RowBox[{"bext", ",", 
                  RowBox[{"Sqrt", "[", "del", "]"}]}], "]"}]}], "}"}], 
              "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]", 
          RowBox[{"(*", 
           RowBox[{
            RowBox[{"yk1", "=", 
             RowBox[{"Min", "[", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"Max", "[", 
                 RowBox[{"bint", ",", 
                  RowBox[{"-", 
                   RowBox[{"Sqrt", "[", "del", "]"}]}]}], "]"}], ",", 
                RowBox[{"Min", "[", 
                 RowBox[{"bext", ",", 
                  RowBox[{"Sqrt", "[", "del", "]"}]}], "]"}]}], "}"}], 
              "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]", 
          RowBox[{"(*", 
           RowBox[{
            RowBox[{"yk1", "=", 
             RowBox[{
              RowBox[{"1", "/", "2"}], "*", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"Min", "[", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"Max", "[", 
                    RowBox[{"bint", ",", 
                    RowBox[{"-", 
                    RowBox[{"Sqrt", "[", "del", "]"}]}]}], "]"}], ",", 
                   RowBox[{"Min", "[", 
                    RowBox[{"bext", ",", 
                    RowBox[{"Sqrt", "[", "del", "]"}]}], "]"}]}], "}"}], 
                 "]"}], "+", 
                RowBox[{"Max", "[", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"Max", "[", 
                    RowBox[{"bint", ",", 
                    RowBox[{"-", 
                    RowBox[{"Sqrt", "[", "del", "]"}]}]}], "]"}], ",", 
                   RowBox[{"Min", "[", 
                    RowBox[{"bext", ",", 
                    RowBox[{"Sqrt", "[", "del", "]"}]}], "]"}]}], "}"}], 
                 "]"}]}], ")"}]}]}], ";"}], "*)"}], "\[IndentingNewLine]", 
          RowBox[{"(*", 
           RowBox[{
            RowBox[{"yk1", "=", 
             RowBox[{"0.5", "*", 
              RowBox[{"Max", "[", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"Max", "[", 
                  RowBox[{"bint", ",", 
                   RowBox[{"-", 
                    RowBox[{"Sqrt", "[", "del", "]"}]}]}], "]"}], ",", 
                 RowBox[{"Min", "[", 
                  RowBox[{"bext", ",", 
                   RowBox[{"Sqrt", "[", "del", "]"}]}], "]"}]}], "}"}], 
               "]"}]}]}], ";"}], "*)"}], "\[IndentingNewLine]", 
          "\[IndentingNewLine]", 
          RowBox[{"(*", " ", 
           RowBox[{
            RowBox[{"obs", ":", " ", 
             RowBox[{"essa", " ", "escolha", " ", "leva", " ", "a", " ", 
              SubscriptBox["y", 
               RowBox[{"k", "+", "1"}]]}]}], " ", "=", " ", 
            SubscriptBox[
             UnderscriptBox["y", "_"], 
             RowBox[{"k", "+", "1"}]]}], " ", "*)"}], "\[IndentingNewLine]", 
          RowBox[{"(*", 
           RowBox[{
            RowBox[{"yk1", "=", 
             RowBox[{"Max", "[", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"Max", "[", 
                 RowBox[{"bint", ",", 
                  RowBox[{"-", 
                   RowBox[{"Sqrt", "[", "del", "]"}]}]}], "]"}], ",", 
                RowBox[{"Min", "[", 
                 RowBox[{"bext", ",", 
                  RowBox[{"Sqrt", "[", "del", "]"}]}], "]"}]}], "}"}], 
              "]"}]}], ";"}], "*)"}], 
          RowBox[{"(*", " ", 
           RowBox[{
            RowBox[{"obs", ":", " ", 
             RowBox[{
             "escolher", " ", "o", " ", "Max", " ", "levou", " ", "a", " ", 
              "z"}]}], "=", "0"}], " ", "*)"}], "\[IndentingNewLine]", 
          "\[IndentingNewLine]", "\[IndentingNewLine]", 
          RowBox[{"(*", " ", 
           RowBox[{
            RowBox[{"obs", ":", " ", 
             RowBox[{"essa", " ", "escolha", " ", "leva", " ", "a", " ", 
              SubscriptBox["y", 
               RowBox[{"k", "+", "1"}]]}]}], " ", "=", " ", 
            SubscriptBox[
             OverscriptBox["y", "_"], 
             RowBox[{"k", "+", "1"}]]}], " ", "*)"}], "\[IndentingNewLine]", 
          RowBox[{"yk1", "=", 
           RowBox[{"Min", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Max", "[", 
               RowBox[{"bint", ",", 
                RowBox[{"-", 
                 RowBox[{"Sqrt", "[", "del", "]"}]}]}], "]"}], ",", 
              RowBox[{"Min", "[", 
               RowBox[{"bext", ",", 
                RowBox[{"Sqrt", "[", "del", "]"}]}], "]"}]}], "}"}], "]"}]}], 
          ";", "\[IndentingNewLine]", 
          RowBox[{"Print", "[", "\"\<>> fixado yk1<<\>\"", "]"}], ";", 
          "\[IndentingNewLine]", "\[IndentingNewLine]", 
          RowBox[{"Print", "[", 
           RowBox[{
           "\"\<>> \!\(\*SubscriptBox[\(y\), \(k + 1\)]\) \[Element] [ \>\"", 
            ",", 
            RowBox[{"Style", "[", 
             RowBox[{
              RowBox[{"Max", "[", 
               RowBox[{"bint", ",", 
                RowBox[{"-", 
                 RowBox[{"Sqrt", "[", "del", "]"}]}]}], "]"}], ",", "Red"}], 
             "]"}], ",", "\"\<, \>\"", ",", 
            RowBox[{"Style", "[", 
             RowBox[{
              RowBox[{"Min", "[", 
               RowBox[{"bext", ",", 
                RowBox[{"Sqrt", "[", "del", "]"}]}], "]"}], ",", "Red"}], 
             "]"}], ",", "\"\< ]\>\"", ",", " ", 
            "\"\<,  \!\(\*SubscriptBox[\(y\), \(k + \(\(1\)\(*\)\)\)]\) = \
\>\"", ",", " ", 
            RowBox[{"Style", "[", 
             RowBox[{"yk1", ",", "Red"}], "]"}]}], "]"}], ";", 
          "\[IndentingNewLine]", "\[IndentingNewLine]", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"n", "-", "kk"}], ">", "1"}], ",", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"Print", "[", "\"\<\>\"", "]"}], ";", 
             "\[IndentingNewLine]", 
             RowBox[{
             "Print", "[", 
              "\"\<>> \!\(\*UnderscriptBox[\(A\\\ solu\[CCedilla]\[ATilde]o\\\
\ \[EAcute]\\\ a\\\ uni\[ATilde]o\\\ de\\\ uma\\\ \((n - k - 1)\) - esferas\\\
\ ou\\\ de\\\ pontos, \\\ pois\\\  || z\*SuperscriptBox[\(||\), \(2\)]\\\  = \
\\\ \(\*SuperscriptBox[SubscriptBox[\(d\), \(m\)], \(2\)]\(-\)\) || \
y\*SuperscriptBox[\(||\), \(2\)]\(-\\\ \*SuperscriptBox[SubscriptBox[\(y\), \
\(k + 1\)], \(2\)]\) \[GreaterEqual] \\\ \\\ 0\\\ \\\ \\\ e\\\ \\\ \\\ k < \
min {m - 1, n}\), \(_\)]\):\>\"", "]"}], ";", "\[IndentingNewLine]", 
             RowBox[{
             "Print", "[", "\"\<  Solu\[CCedilla]\[ATilde]o:\>\"", "]"}], ";",
              "\[IndentingNewLine]", 
             RowBox[{"Print", "[", 
              RowBox[{
              "\"\<  { x\[Element]\!\(\*SuperscriptBox[\(\
\[DoubleStruckCapitalR]\), \(n\)]\): x = Q[y \!\(\*SubscriptBox[\(y\), \(k + \
1\)]\) z\!\(\*SuperscriptBox[\(]\), \(t\)]\)+\!\(\*SubscriptBox[\(a\), \(m\)]\
\), onde y = \>\"", ",", 
               RowBox[{"Style", "[", 
                RowBox[{
                 RowBox[{"MatrixForm", "[", "y", "]"}], ",", "Red"}], "]"}], 
               ",", "\"\<,\>\""}], "]"}], ";", "\[IndentingNewLine]", 
             RowBox[{"Print", "[", 
              RowBox[{
              "\"\<          \!\(\*SubscriptBox[\(a\), \(m\)]\) = \>\"", ",", 
               RowBox[{"Style", "[", 
                RowBox[{
                 RowBox[{"MatrixForm", "[", 
                  RowBox[{"A", "[", 
                   RowBox[{"[", 
                    RowBox[{";;", ",", "m"}], "]"}], "]"}], "]"}], ",", 
                 "Red"}], "]"}], ",", 
               "\"\<,  \!\(\*SubscriptBox[\(y\), \(k + 1\)]\)\[Element][ \
\>\"", ",", 
               RowBox[{"Style", "[", 
                RowBox[{
                 RowBox[{"Max", "[", 
                  RowBox[{"bint", ",", 
                   RowBox[{"-", 
                    RowBox[{"Sqrt", "[", "del", "]"}]}]}], "]"}], ",", 
                 "Red"}], "]"}], ",", "\"\<, \>\"", ",", 
               RowBox[{"Style", "[", 
                RowBox[{
                 RowBox[{"Min", "[", 
                  RowBox[{"bext", ",", 
                   RowBox[{"Sqrt", "[", "del", "]"}]}], "]"}], ",", "Red"}], 
                "]"}], ",", 
               "\"\<], z\[Element]\!\(\*SuperscriptBox[\(\
\[DoubleStruckCapitalR]\), \(n - k - 1\)]\) tal que \
||z\!\(\*SuperscriptBox[\(||\), \(2\)]\) = \>\"", ",", 
               RowBox[{"Style", "[", 
                RowBox[{
                 RowBox[{"del", "-", 
                  RowBox[{"yk1", "^", "2"}]}], ",", "Red"}], "]"}], ",", 
               "\"\< }\>\""}], "]"}], ";", "\[IndentingNewLine]", 
             RowBox[{"Print", "[", "\"\<\>\"", "]"}], ";", " ", 
             "\[IndentingNewLine]", 
             RowBox[{"(*", 
              RowBox[{
               RowBox[{"Print", "[", "\"\<\>\"", "]"}], ";", 
               "\[IndentingNewLine]", 
               RowBox[{
               "Print", "[", 
                "\"\<>> \!\(\*UnderscriptBox[\(OBS\), \(_\)]\): Para cada \
valor de z temos um ponto na interse\[CCedilla]\[ATilde]o das m esferas\>\"", 
                "]"}], ";", "\[IndentingNewLine]", 
               RowBox[{"Print", "[", "\"\<\>\"", "]"}], ";"}], "*)"}], 
             "\[IndentingNewLine]", 
             RowBox[{"(*", " ", 
              RowBox[{
               RowBox[{
                RowBox[{"escolhe", " ", "z", " ", "em", " ", 
                 RowBox[{"R", "^", "n"}]}], "-", 
                RowBox[{"k", " ", "tq", " ", 
                 RowBox[{"z", "^", "2"}]}]}], "=", 
               RowBox[{
                RowBox[{"del", "^", "2"}], "=", 
                RowBox[{
                 RowBox[{"d_m", "^", "2"}], "-", 
                 RowBox[{"y", "^", "2"}]}]}]}], "*)"}], "\[IndentingNewLine]", 
             RowBox[{"SeedRandom", "[", "5678", "]"}], ";", 
             "\[IndentingNewLine]", 
             RowBox[{"aux", "=", 
              RowBox[{"RandomReal", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{"Sqrt", "[", 
                    RowBox[{"del", "-", 
                    RowBox[{"yk1", "^", "2"}]}], "]"}]}], ",", 
                  RowBox[{"Sqrt", "[", 
                   RowBox[{"del", "-", 
                    RowBox[{"yk1", "^", "2"}]}], "]"}]}], "}"}], ",", 
                RowBox[{"n", "-", "kk", "-", "1"}]}], "]"}]}], ";", 
             "\[IndentingNewLine]", "\[IndentingNewLine]", 
             RowBox[{"Print", "[", "\"\<>> ok 3 <<\>\"", "]"}], ";", 
             "\[IndentingNewLine]", 
             RowBox[{"(*", 
              RowBox[{
               RowBox[{"Print", "[", 
                RowBox[{"\"\<>> aux = \>\"", ",", " ", 
                 RowBox[{"Style", "[", 
                  RowBox[{"aux", ",", "Red"}], "]"}]}], "]"}], ";"}], "*)"}], 
             "\[IndentingNewLine]", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{"aux", "\[Equal]", 
                RowBox[{"0", "*", "aux"}]}], ",", "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{"z0", "=", 
                 RowBox[{"0", "*", "aux"}]}], ";", "\[IndentingNewLine]", 
                RowBox[{
                "Print", "[", 
                 "\"\<>> A solu\[CCedilla]\[ATilde]o fixada \[EAcute] um \
\[UAcute]nico ponto\>\"", "]"}], ";"}], "\[IndentingNewLine]", ",", 
               "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{
                "Print", "[", 
                 "\"\<>> A solu\[CCedilla]\[ATilde]o fixada \[EAcute] um par \
de pontos\>\"", "]"}], ";", "\[IndentingNewLine]", 
                RowBox[{"z0", "=", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"Sqrt", "[", 
                    RowBox[{"del", "-", 
                    RowBox[{"yk1", "^", "2"}]}], "]"}], "/", 
                   RowBox[{"Norm", "[", "aux", "]"}]}], "*", "aux"}]}], 
                ";"}]}], 
              RowBox[{"(*", 
               RowBox[{"obs", ":", " ", 
                RowBox[{
                "essa", " ", "escolha", " ", "de", " ", "z0", " ", "leva", 
                 " ", "ao", " ", 
                 SubscriptBox["x", "1"]}]}], "*)"}], "\[IndentingNewLine]", 
              "\[IndentingNewLine]", 
              RowBox[{"(*", 
               RowBox[{
                RowBox[{"z0", "=", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{"Sqrt", "[", 
                    RowBox[{"del", "-", 
                    RowBox[{"yk1", "^", "2"}]}], "]"}]}], "/", 
                   RowBox[{"Norm", "[", "aux", "]"}]}], "*", "aux"}]}], ";"}],
                "*)"}], "\[IndentingNewLine]", "]"}], ";", 
             "\[IndentingNewLine]", "\[IndentingNewLine]", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"Length", "[", "y", "]"}], "\[Equal]", "1"}], ",", 
               "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{"w", "=", 
                 RowBox[{"y", "[", 
                  RowBox[{"[", 
                   RowBox[{";;", ",", "1"}], "]"}], "]"}]}], ";", 
                "\[IndentingNewLine]", 
                RowBox[{"Print", "[", "\"\<>> ok 4 <<\>\"", "]"}], ";"}], 
               "\[IndentingNewLine]", 
               RowBox[{"(*", 
                RowBox[{
                 RowBox[{"w", "=", 
                  RowBox[{"y", "[", 
                   RowBox[{"[", 
                    RowBox[{"1", ",", ";;"}], "]"}], "]"}]}], ";"}], "*)"}], 
               "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
               RowBox[{"(*", 
                RowBox[{
                 RowBox[{"w", "=", "y"}], ";"}], "*)"}], 
               "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{"w", "=", 
                 RowBox[{"y", "[", 
                  RowBox[{"[", 
                   RowBox[{";;", ",", "1"}], "]"}], "]"}]}], ";", 
                "\[IndentingNewLine]", 
                RowBox[{"Print", "[", "\"\<>> ok 4b <<\>\"", "]"}], ";"}]}], 
              "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
             RowBox[{"Print", "[", "\"\<>> ok 5 <<\>\"", "]"}], ";", 
             "\[IndentingNewLine]", 
             RowBox[{"w", "=", 
              RowBox[{"AppendTo", "[", 
               RowBox[{"w", ",", "yk1"}], "]"}]}], ";", "\[IndentingNewLine]", 
             RowBox[{"For", "[", 
              RowBox[{
               RowBox[{"ii", "=", "1"}], ",", 
               RowBox[{"ii", "\[LessEqual]", 
                RowBox[{"Length", "[", "z0", "]"}]}], ",", 
               RowBox[{"ii", "++"}], ",", "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{"w", "=", 
                 RowBox[{"AppendTo", "[", 
                  RowBox[{"w", ",", 
                   RowBox[{"z0", "[", 
                    RowBox[{"[", "ii", "]"}], "]"}]}], "]"}]}], ";"}]}], 
              "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
             "\[IndentingNewLine]", 
             RowBox[{"Print", "[", 
              RowBox[{"\"\<>> \!\(\*SubscriptBox[\(z\), \(*\)]\) = \>\"", ",", 
               RowBox[{"Style", "[", 
                RowBox[{"z0", ",", "Red"}], "]"}], ",", 
               "\"\<, ||\!\(\*SubscriptBox[\(z\), \
\(*\)]\)\!\(\*SuperscriptBox[\(||\), \(2\)]\) = \>\"", ",", 
               RowBox[{"Style", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"Norm", "[", "z0", "]"}], "^", "2"}], ",", "Red"}], 
                "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
             RowBox[{"(*", 
              RowBox[{
               RowBox[{"Print", "[", 
                RowBox[{"\"\<>> w = \>\"", ",", 
                 RowBox[{"Style", "[", 
                  RowBox[{"w", ",", "Red"}], "]"}], ",", " ", 
                 "\"\<,  ||w|| = \>\"", ",", 
                 RowBox[{"Style", "[", 
                  RowBox[{
                   RowBox[{"Norm", "[", "w", "]"}], ",", "Red"}], "]"}]}], 
                "]"}], ";"}], "*)"}], "\[IndentingNewLine]", 
             RowBox[{"Print", "[", 
              RowBox[{"\"\<>> w = \>\"", ",", 
               RowBox[{"Style", "[", 
                RowBox[{"w", ",", "Red"}], "]"}]}], "]"}], ";", 
             "\[IndentingNewLine]", "\[IndentingNewLine]", 
             RowBox[{"x1", "=", 
              RowBox[{
               RowBox[{"Q", ".", "w"}], "+", 
               RowBox[{"A", "[", 
                RowBox[{"[", 
                 RowBox[{";;", ",", "m"}], "]"}], "]"}]}]}], ";", 
             "\[IndentingNewLine]", "\[IndentingNewLine]", 
             RowBox[{"erro", "=", 
              RowBox[{"erroMDE", "[", 
               RowBox[{"x1", ",", "A", ",", "d", ",", "m"}], "]"}]}], ";", 
             "\[IndentingNewLine]", 
             RowBox[{"Print", "[", "\"\<>> ok 6 <<\>\"", "]"}], ";", 
             "\[IndentingNewLine]", 
             RowBox[{"(*", 
              RowBox[{
               RowBox[{"erro", "=", "0"}], ";"}], "*)"}], 
             "\[IndentingNewLine]", 
             RowBox[{"Print", "[", "\"\<\>\"", "]"}], ";", 
             "\[IndentingNewLine]", 
             RowBox[{"Print", "[", 
              RowBox[{
              "\"\<>> Solu\[CCedilla]\[ATilde]o fixada: \
\!\(\*SubscriptBox[\(x\), \(*\)]\) = Q[y \!\(\*SubscriptBox[\(y\), \(k + \
\(\(1\)\(*\)\)\)]\) \!\(\*SubscriptBox[\(z\), \
\(*\)]\)\!\(\*SuperscriptBox[\(]\), \(t\)]\)+\!\(\*SubscriptBox[\(a\), \(m\)]\
\) = \>\"", ",", 
               RowBox[{"Style", "[", 
                RowBox[{
                 RowBox[{"MatrixForm", "[", "x1", "]"}], ",", "Red"}], 
                "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
             RowBox[{"Print", "[", 
              RowBox[{
              "\"\<>> Erro de \!\(\*SubscriptBox[\(x\), \(*\)]\) = \>\"", ",", 
               RowBox[{"Style", "[", 
                RowBox[{"erro", ",", "Red"}], "]"}]}], "]"}], ";", 
             "\[IndentingNewLine]", 
             RowBox[{"Print", "[", "\"\<\>\"", "]"}], ";", 
             "\[IndentingNewLine]", 
             RowBox[{
             "Print", "[", "\"\<>> Testa solu\[CCedilla]\[ATilde]o:\>\"", 
              "]"}], ";", "\[IndentingNewLine]", 
             RowBox[{"Print", "[", 
              RowBox[{
              "\"\<>> Norm[\!\(\*SubscriptBox[\(x\), \(*\)]\) - \
\!\(\*SubscriptBox[\(a\), \(1\)]\)] = \>\"", ",", 
               RowBox[{"Style", "[", 
                RowBox[{
                 RowBox[{"Norm", "[", 
                  RowBox[{"x1", "-", 
                   RowBox[{"A", "[", 
                    RowBox[{"[", 
                    RowBox[{";;", ",", "1"}], "]"}], "]"}]}], "]"}], ",", 
                 "Red"}], " ", "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
             RowBox[{"Print", "[", 
              RowBox[{
              "\"\<>> Norm[\!\(\*SubscriptBox[\(x\), \(*\)]\) - \
\!\(\*SubscriptBox[\(a\), \(2\)]\)] = \>\"", ",", 
               RowBox[{"Style", "[", 
                RowBox[{
                 RowBox[{"Norm", "[", 
                  RowBox[{"x1", "-", 
                   RowBox[{"A", "[", 
                    RowBox[{"[", 
                    RowBox[{";;", ",", "2"}], "]"}], "]"}]}], "]"}], ",", 
                 "Red"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
             RowBox[{"(*", 
              RowBox[{
               RowBox[{"Print", "[", 
                RowBox[{
                "\"\<>> Norm[\!\(\*SubscriptBox[\(x\), \(*\)]\) - \
\!\(\*SubscriptBox[\(a\), \(3\)]\)] = \>\"", ",", 
                 RowBox[{"Style", "[", 
                  RowBox[{
                   RowBox[{"Norm", "[", 
                    RowBox[{"x1", "-", 
                    RowBox[{"A", "[", 
                    RowBox[{"[", 
                    RowBox[{";;", ",", "3"}], "]"}], "]"}]}], "]"}], ",", 
                   "Red"}], " ", "]"}]}], "]"}], ";"}], "*)"}], 
             "\[IndentingNewLine]", 
             RowBox[{"(*", 
              RowBox[{
               RowBox[{"Print", "[", 
                RowBox[{
                "\"\<>> Norm[\!\(\*SubscriptBox[\(x\), \(*\)]\) - \
\!\(\*SubscriptBox[\(a\), \(4\)]\)] = \>\"", ",", 
                 RowBox[{"Style", "[", 
                  RowBox[{
                   RowBox[{"Norm", "[", 
                    RowBox[{"x1", "-", 
                    RowBox[{"A", "[", 
                    RowBox[{"[", 
                    RowBox[{";;", ",", "4"}], "]"}], "]"}]}], "]"}], ",", 
                   "Red"}], " ", "]"}]}], "]"}], ";"}], "*)"}], 
             "\[IndentingNewLine]", 
             RowBox[{"Print", "[", 
              RowBox[{
              "\"\<>> Norm[\!\(\*SubscriptBox[\(x\), \(*\)]\) - \
\!\(\*SubscriptBox[\(c\), \(casca\)]\)] = \>\"", ",", 
               RowBox[{"Style", "[", 
                RowBox[{
                 RowBox[{"Norm", "[", 
                  RowBox[{"x1", "-", "cc"}], "]"}], ",", "Red"}], "]"}]}], 
              "]"}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"Print", "[", "\"\<\>\"", "]"}], ";", 
             "\[IndentingNewLine]", 
             RowBox[{
             "Print", "[", 
              "\"\<>> \!\(\*UnderscriptBox[\(A\\\ solu\[CCedilla]\[ATilde]o\\\
\ \[EAcute]\\\ uma\\\ \((n - 1)\) - esfera\\\ no\\\ \*SuperscriptBox[\(\
\[DoubleStruckCapitalR]\), \(n\)], \\\ pois\\\  || z\*SuperscriptBox[\(||\), \
\(2\)]\\\  = \\\ \(\(\*SuperscriptBox[SubscriptBox[\(d\), \(m\)], \(2\)]\(-\)\
\) || y\*SuperscriptBox[\(||\), \(2\)]\(-\*SuperscriptBox[SubscriptBox[\(y\), \
\(k + 1\)], \(2\)]\) > \\\ 0\\\ \\\ \\\ \\\ e\\\ \\\ \\\ k = min {m - 1, n}\)\
\), \(_\)]\):\>\"", "]"}], ";", "\[IndentingNewLine]", 
             RowBox[{"z1", "=", 
              RowBox[{"Sqrt", "[", 
               RowBox[{"del", "-", 
                RowBox[{"yk1", "^", "2"}]}], "]"}]}], ";", 
             "\[IndentingNewLine]", 
             RowBox[{"z2", "=", 
              RowBox[{"-", 
               RowBox[{"Sqrt", "[", 
                RowBox[{"del", "-", 
                 RowBox[{"yk1", "^", "2"}]}], "]"}]}]}], ";", 
             "\[IndentingNewLine]", 
             RowBox[{"w1", "=", 
              RowBox[{"Append", "[", 
               RowBox[{"y", ",", "yk1"}], "]"}]}], ";", "\[IndentingNewLine]", 
             RowBox[{"w1", "=", 
              RowBox[{"AppendTo", "[", 
               RowBox[{"w1", ",", 
                RowBox[{"{", "z1", "}"}]}], "]"}]}], ";", 
             "\[IndentingNewLine]", 
             RowBox[{"w2", "=", 
              RowBox[{"Append", "[", 
               RowBox[{"y", ",", "yk1"}], "]"}]}], ";", "\[IndentingNewLine]", 
             RowBox[{"w2", "=", 
              RowBox[{"AppendTo", "[", 
               RowBox[{"w2", ",", 
                RowBox[{"{", "z2", "}"}]}], "]"}]}], ";", 
             "\[IndentingNewLine]", 
             RowBox[{"x1", "=", 
              RowBox[{
               RowBox[{"Q", ".", "w1"}], "+", 
               RowBox[{"A", "[", 
                RowBox[{"[", 
                 RowBox[{";;", ",", "m"}], "]"}], "]"}]}]}], ";", 
             "\[IndentingNewLine]", 
             RowBox[{"x2", "=", 
              RowBox[{
               RowBox[{"Q", ".", "w2"}], "+", 
               RowBox[{"A", "[", 
                RowBox[{"[", 
                 RowBox[{";;", ",", "m"}], "]"}], "]"}]}]}], ";", 
             "\[IndentingNewLine]", 
             RowBox[{"erro", "=", 
              RowBox[{"erroMDE", "[", 
               RowBox[{"x1", ",", "A", ",", "d", ",", "m"}], "]"}]}], ";", 
             "\[IndentingNewLine]", 
             RowBox[{"Print", "[", "\"\<\>\"", "]"}], ";", 
             "\[IndentingNewLine]", 
             RowBox[{"Print", "[", 
              RowBox[{"\"\<  Solu\[CCedilla]\[OTilde]es: x1 = \>\"", ",", 
               RowBox[{"Style", "[", 
                RowBox[{
                 RowBox[{"MatrixForm", "[", "x1", "]"}], ",", "Red"}], "]"}], 
               ",", "\"\<,  x2 = \>\"", ",", 
               RowBox[{"Style", "[", 
                RowBox[{
                 RowBox[{"MatrixForm", "[", "x2", "]"}], ",", "Red"}], 
                "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
             RowBox[{"Print", "[", 
              RowBox[{"\"\<  Erro de x1 = \>\"", ",", 
               RowBox[{"Style", "[", 
                RowBox[{"erro", ",", "Red"}], "]"}]}], "]"}], ";", 
             "\[IndentingNewLine]", " ", 
             RowBox[{"Print", "[", 
              RowBox[{"\"\<  Erro de x2 = \>\"", ",", 
               RowBox[{"Style", "[", 
                RowBox[{
                 RowBox[{"erroMDE", "[", 
                  RowBox[{"x2", ",", "A", ",", "d", ",", "m"}], "]"}], ",", 
                 "Red"}], "]"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", 
           "]"}], ";"}]}], "\[IndentingNewLine]", " ", "]"}], ";", 
       "\[IndentingNewLine]", "  ", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"Print", "[", 
          RowBox[{"\"\<Erro de x1: \>\"", ",", "erro"}], "]"}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"Print", "[", 
          RowBox[{"\"\<Erro de x2: \>\"", ",", 
           RowBox[{"erroMDE", "[", 
            RowBox[{"x2", ",", "A", ",", "d", ",", "m"}], "]"}]}], "]"}], 
         ";"}], "*)"}], 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"Print", "[", "\"\< - - - - - - - - - \>\"", "]"}], ";"}], 
        "*)"}], "\[IndentingNewLine]", 
       RowBox[{"Return", "[", "erro", "]"}], ";"}]}], "\[IndentingNewLine]", 
     "]"}]}], ";"}]}]], "Input",
 CellChangeTimes->{{3.7652807086350574`*^9, 3.7652807231450777`*^9}, {
   3.7652808804172993`*^9, 3.765280947537393*^9}, {3.7652810147974873`*^9, 
   3.7652810827475824`*^9}, {3.765281215445986*^9, 3.765281304686117*^9}, {
   3.765281344296173*^9, 3.7652813951162443`*^9}, {3.765281493416382*^9, 
   3.7652815130764093`*^9}, {3.7652815735764937`*^9, 
   3.7652815843565087`*^9}, {3.765281682586646*^9, 3.7652817456567345`*^9}, {
   3.7652817796067824`*^9, 3.765281802926815*^9}, {3.7652819575120325`*^9, 
   3.765281982682068*^9}, {3.7652822312764163`*^9, 3.7652822429964323`*^9}, {
   3.765282326066549*^9, 3.7652823782966223`*^9}, {3.765282503296797*^9, 
   3.765282574346896*^9}, {3.765282682347048*^9, 3.7652827022670755`*^9}, {
   3.765283032057537*^9, 3.765283048927561*^9}, {3.765283189537758*^9, 
   3.765283194487765*^9}, 3.765283443938114*^9, {3.7652840004778976`*^9, 
   3.7652840018978996`*^9}, {3.765284769910989*^9, 3.7652847825310063`*^9}, {
   3.7652848126710486`*^9, 3.7652848419610896`*^9}, {3.7656278567477016`*^9, 
   3.765627856997302*^9}, {3.7656291492267714`*^9, 3.765629328876687*^9}, {
   3.765629416970042*^9, 3.7656294206672487`*^9}, {3.7656297797018795`*^9, 
   3.7656298954696827`*^9}, {3.765629944547369*^9, 3.7656302323834743`*^9}, {
   3.7656304062799797`*^9, 3.7656305074229574`*^9}, 3.7656306823676653`*^9, {
   3.765652597277722*^9, 3.7656526247777605`*^9}, {3.765652698729867*^9, 
   3.765652710009883*^9}, {3.7656527820399837`*^9, 3.7656527864599895`*^9}, {
   3.765652838080062*^9, 3.7656528400700645`*^9}, {3.7656528776001177`*^9, 
   3.7656528971501446`*^9}, {3.7656531884800997`*^9, 
   3.7656532229801474`*^9}, {3.765653308742269*^9, 3.7656533234722896`*^9}, {
   3.7656534197744255`*^9, 3.76565342272443*^9}, {3.765653530652585*^9, 
   3.7656535319725866`*^9}, {3.765653562212629*^9, 3.76565356308263*^9}, {
   3.765653816109562*^9, 3.765653913099698*^9}, {3.7656539432097397`*^9, 
   3.765653969619777*^9}, {3.7656540033398247`*^9, 3.7656540207098484`*^9}, {
   3.7656540619119077`*^9, 3.7656540981719584`*^9}, {3.7656542315641465`*^9, 
   3.7656543713663435`*^9}, 3.7656544543964596`*^9, {3.7656545016865253`*^9, 
   3.7656545165365467`*^9}, {3.7656546021986704`*^9, 3.765654651188739*^9}, {
   3.765654747378874*^9, 3.765654800558948*^9}, {3.765654889959073*^9, 
   3.7656549314791317`*^9}, {3.7656549650791783`*^9, 
   3.7656549866992087`*^9}, {3.7656550236392603`*^9, 
   3.7656550600203114`*^9}, {3.7656550992403665`*^9, 
   3.7656551183463955`*^9}, {3.765655295562072*^9, 3.7656552973120747`*^9}, {
   3.765655340343135*^9, 3.765655342503138*^9}, {3.76565552245339*^9, 
   3.7656556535775757`*^9}, {3.7656557295976825`*^9, 3.765655775017746*^9}, {
   3.765655810727796*^9, 3.7656558573278613`*^9}, {3.7656559067479305`*^9, 
   3.765656033708108*^9}, {3.765656099790202*^9, 3.765656187752326*^9}, {
   3.765656251802416*^9, 3.7656562874224653`*^9}, {3.765656349752553*^9, 
   3.765656549042832*^9}, {3.7656565953428965`*^9, 3.7656566288629436`*^9}, {
   3.76565668362302*^9, 3.765656707683054*^9}, {3.765656786653165*^9, 
   3.7656568904633102`*^9}, {3.7656569265233603`*^9, 
   3.7656569599934072`*^9}, {3.7656570023134665`*^9, 
   3.7656570680235586`*^9}, {3.765657105393611*^9, 3.765657458338106*^9}, {
   3.7656575521982374`*^9, 3.7656575528682384`*^9}, {3.765657633778352*^9, 
   3.765657634128352*^9}, {3.765657680858418*^9, 3.7656577259594812`*^9}, {
   3.765657756699524*^9, 3.765657792859575*^9}, {3.7656578486196527`*^9, 
   3.765657849589654*^9}, {3.765657891369713*^9, 3.7656578920597134`*^9}, {
   3.765698971980276*^9, 3.765698997470312*^9}, {3.7656990380503693`*^9, 
   3.7656990978324556`*^9}, {3.7656991714245596`*^9, 3.765699231014643*^9}, {
   3.7656996473772273`*^9, 3.7657001540099382`*^9}, {3.7657001851299815`*^9, 
   3.7657001891099873`*^9}, {3.7657002200500307`*^9, 3.765700249710072*^9}, {
   3.7657002972901382`*^9, 3.765700301970145*^9}, {3.765700396180277*^9, 
   3.7657005328804684`*^9}, {3.7657005774605308`*^9, 
   3.7657006436106234`*^9}, {3.765700814120862*^9, 3.765700836912895*^9}, {
   3.76570087594295*^9, 3.765701118154128*^9}, 3.765701159702597*^9, {
   3.76570119018264*^9, 3.7657011991126523`*^9}, {3.7657012347427025`*^9, 
   3.7657013315088434`*^9}, {3.765701385178918*^9, 3.7657014003689394`*^9}, 
   3.7657014489290075`*^9, {3.765701483179055*^9, 3.7657015119890957`*^9}, {
   3.765701570879178*^9, 3.765701771649459*^9}, {3.7657018071595087`*^9, 
   3.765701854419575*^9}, {3.765701912289656*^9, 3.765701942821702*^9}, {
   3.765702057143863*^9, 3.765702063483872*^9}, 3.7657021023939266`*^9, {
   3.765702192004052*^9, 3.76570244778441*^9}, {3.7657025213745127`*^9, 
   3.76570252638452*^9}, {3.765702577754592*^9, 3.7657025988446217`*^9}, {
   3.7657026952767577`*^9, 3.76570269702676*^9}, {3.765702743406825*^9, 
   3.765702747996832*^9}, {3.765702806166913*^9, 3.7657028314569483`*^9}, {
   3.765702915477066*^9, 3.7657029620771313`*^9}, {3.7657030390872393`*^9, 
   3.765703046197249*^9}, {3.7657030821772995`*^9, 3.7657031414873824`*^9}, {
   3.765703181287438*^9, 3.765703196527459*^9}, {3.7657033016676064`*^9, 
   3.7657033027576084`*^9}, {3.765703370285313*^9, 3.7657033875233436`*^9}, {
   3.765703423965008*^9, 3.76570342540021*^9}, {3.7657035667364583`*^9, 
   3.7657035976089125`*^9}, {3.7657036513666067`*^9, 
   3.7657036834870634`*^9}, {3.765703750598381*^9, 3.765703776104426*^9}, {
   3.765703890421427*^9, 3.765703896068637*^9}, {3.7657039345383043`*^9, 
   3.765703944491122*^9}, {3.765704108260209*^9, 3.76570410861901*^9}, {
   3.765704146839077*^9, 3.7657041571974955`*^9}, {3.7657049212868376`*^9, 
   3.765704947089283*^9}, {3.7657066312205505`*^9, 3.765706704600653*^9}, {
   3.7657067510107183`*^9, 3.7657068803008995`*^9}, {3.7657069352009764`*^9, 
   3.76570694511099*^9}, {3.7657071055032177`*^9, 3.7657071626932974`*^9}, {
   3.7657072301033916`*^9, 3.7657072367534013`*^9}, {3.76570737150359*^9, 
   3.765707401903632*^9}, {3.765707473533733*^9, 3.7657075642638597`*^9}, {
   3.7657076275939484`*^9, 3.765707633073956*^9}, {3.765707673844013*^9, 
   3.765707847584256*^9}, {3.765707879394301*^9, 3.7657079060343385`*^9}, {
   3.7657079415643883`*^9, 3.765708039004524*^9}, {3.765708072314571*^9, 
   3.765708166996705*^9}, {3.765708202606755*^9, 3.765708221446781*^9}, {
   3.765708387797014*^9, 3.7657083899870167`*^9}, {3.765708438147084*^9, 
   3.7657084398770866`*^9}, {3.76570850639718*^9, 3.765708511217187*^9}, {
   3.765709000030709*^9, 3.7657090362383723`*^9}, {3.7657101002785983`*^9, 
   3.7657101067986073`*^9}, {3.7657101669086914`*^9, 
   3.7657101841687155`*^9}, {3.765710225228773*^9, 3.765710232278783*^9}, {
   3.7657102879288607`*^9, 3.765710303418883*^9}, {3.7657119261041794`*^9, 
   3.7657119464942074`*^9}, {3.7657140679121685`*^9, 3.765714144722276*^9}, {
   3.7657144314926777`*^9, 3.76571443288268*^9}, 3.765714486982755*^9, {
   3.765714523852807*^9, 3.7657145261828103`*^9}, {3.765714586782895*^9, 
   3.765714609712927*^9}, {3.76571481864322*^9, 3.7657148290632343`*^9}, {
   3.7657149669934273`*^9, 3.765714971683434*^9}, {3.7657150727135754`*^9, 
   3.7657151214636436`*^9}, {3.7657170521148396`*^9, 
   3.7657171062001343`*^9}, {3.7657175961189947`*^9, 
   3.7657175979441977`*^9}, {3.7657176590339055`*^9, 
   3.7657176699383245`*^9}, {3.7657179121599503`*^9, 
   3.7657179216291666`*^9}, {3.76571803739697*^9, 3.7657180862562556`*^9}, {
   3.7657182705705795`*^9, 3.7657182897430134`*^9}, {3.765718372797559*^9, 
   3.7657184495652943`*^9}, {3.765718498081379*^9, 3.76571854414826*^9}, {
   3.7657185914631433`*^9, 3.7657185973599534`*^9}, {3.7657186662340746`*^9, 
   3.765718716824963*^9}, {3.7657187515974245`*^9, 3.765718762049443*^9}, {
   3.765718899033283*^9, 3.765718914898511*^9}, {3.7657192210334487`*^9, 
   3.76571923299867*^9}, {3.7657193142280126`*^9, 3.7657193535400815`*^9}, {
   3.7657194248166065`*^9, 3.76571951752757*^9}, {3.7657195675880575`*^9, 
   3.7657196376633806`*^9}, {3.765719668629435*^9, 3.7657196797366543`*^9}, {
   3.765720643888748*^9, 3.7657206779436083`*^9}, {3.7657207100172644`*^9, 
   3.765720751731738*^9}, {3.765720791121807*^9, 3.765720807501836*^9}, {
   3.7657209040660057`*^9, 3.7657209233632393`*^9}, {3.7657209542044935`*^9, 
   3.765721030785028*^9}, {3.7657211028883543`*^9, 3.765721122201188*^9}, {
   3.76572118018649*^9, 3.765721266111441*^9}, {3.7657213152359276`*^9, 
   3.765721321585139*^9}, {3.765783991136448*^9, 3.765784173890768*^9}, 
   3.765784204919223*^9, {3.7657842474760976`*^9, 3.765784250112502*^9}, {
   3.7657842939641795`*^9, 3.765784310359808*^9}, {3.7657843408578615`*^9, 
   3.7657843504050784`*^9}, {3.76578439684636*^9, 3.7657844919597273`*^9}, {
   3.7657845269817886`*^9, 3.7657845378082075`*^9}, {3.765784591877903*^9, 
   3.765784596713911*^9}, {3.7657846740744467`*^9, 3.765784734477753*^9}, {
   3.7657848219003067`*^9, 3.7657848352695303`*^9}, {3.765784870494392*^9, 
   3.7657851218888335`*^9}, {3.765785170514119*^9, 3.7657851719337215`*^9}, {
   3.7657857209134884`*^9, 3.7657860157308064`*^9}, {3.765786063794491*^9, 
   3.765786237984397*^9}, {3.7657862781388674`*^9, 3.7657867903657665`*^9}, {
   3.7657868556996813`*^9, 3.765787095020702*^9}, {3.765787473666567*^9, 
   3.7657875172530437`*^9}, {3.765787564068726*^9, 3.765787619963624*^9}, {
   3.7657878590652437`*^9, 3.7657880559063897`*^9}, {3.7657885567316694`*^9, 
   3.765788629926998*^9}, {3.7657886653858604`*^9, 3.765788666306262*^9}, {
   3.7657892652859144`*^9, 3.765789319090409*^9}, {3.7657893961857443`*^9, 
   3.765789396232544*^9}, {3.7657896412153745`*^9, 3.7657897186539106`*^9}, {
   3.765789802784858*^9, 3.765789875778386*^9}, {3.765789907525442*^9, 
   3.7657899542475243`*^9}, {3.7657899886923847`*^9, 3.765790034774866*^9}, {
   3.765790086691757*^9, 3.765790147656664*^9}, {3.765790181789524*^9, 
   3.76579018522153*^9}, {3.7657902213511934`*^9, 3.765790221772394*^9}, {
   3.7657902606164627`*^9, 3.7657902777764926`*^9}, {3.765790316714161*^9, 
   3.7657903296465836`*^9}, {3.765790391407092*^9, 3.765790403918314*^9}, {
   3.7657904790448465`*^9, 3.7657905658109984`*^9}, {3.765790681251201*^9, 
   3.765790706913246*^9}, {3.7657907372709*^9, 3.765790739142903*^9}, {
   3.7657907980486064`*^9, 3.7657908218698483`*^9}, {3.765792468386443*^9, 
   3.765792675632807*^9}, {3.765792782960995*^9, 3.7657928501815133`*^9}, {
   3.7657929017864037`*^9, 3.765792908026415*^9}, {3.765792966822918*^9, 
   3.7657930892831335`*^9}, {3.765793145115631*^9, 3.7657932028357325`*^9}, {
   3.765793268901849*^9, 3.7657933143915286`*^9}, {3.7657933527987957`*^9, 
   3.7657937059302163`*^9}, {3.765793735991469*^9, 3.76579380494359*^9}, {
   3.765793913722581*^9, 3.765793916670986*^9}, {3.7657939958411255`*^9, 
   3.7657940080871468`*^9}, {3.765794044497611*^9, 3.765794314824886*^9}, {
   3.7657943939794245`*^9, 3.7657944001414356`*^9}, {3.7657944367546997`*^9, 
   3.7657947159951906`*^9}, {3.7657947512824526`*^9, 3.7657947621868715`*^9}, 
   3.765794952008005*^9, {3.765795047183772*^9, 3.765795145651145*^9}, {
   3.765795264180153*^9, 3.765795378419154*^9}, {3.765795415297619*^9, 
   3.765795542515842*^9}, {3.7657956042451506`*^9, 3.765795642059617*^9}, {
   3.7657957654246335`*^9, 3.765795766079835*^9}, {3.765795891379255*^9, 
   3.765796169730544*^9}, {3.7657962021006002`*^9, 3.7657962121626186`*^9}, {
   3.7657962812551394`*^9, 3.765796411140968*^9}, {3.765796717962307*^9, 
   3.7657967981776476`*^9}, {3.7657968894534082`*^9, 
   3.7657969272678747`*^9}, {3.7657969752535586`*^9, 
   3.7657970026784067`*^9}, {3.7657971222058167`*^9, 
   3.7657971334846363`*^9}, {3.765797211001173*^9, 3.7657972113287735`*^9}, {
   3.7657972514520435`*^9, 3.7657972552116504`*^9}, {3.765797310139347*^9, 
   3.7657973110285482`*^9}, {3.765797395034696*^9, 3.765797428652755*^9}, {
   3.7657974603520107`*^9, 3.7657974722548313`*^9}, {3.7657975097228975`*^9, 
   3.765797516259309*^9}, 3.765797555009777*^9, {3.7657976390159245`*^9, 
   3.7657976395307255`*^9}, {3.7657976845212045`*^9, 3.76579768790641*^9}, {
   3.7657977220548706`*^9, 3.7657977315864873`*^9}, {3.765797811115427*^9, 
   3.765797828119457*^9}, {3.7657979806097245`*^9, 3.7657980576582603`*^9}, {
   3.765799555207013*^9, 3.765799579808256*^9}, {3.765799790003025*^9, 
   3.7657998020462465`*^9}, {3.765799865522758*^9, 3.7657999054120283`*^9}, {
   3.7657999753625507`*^9, 3.7657999948937855`*^9}, {3.7658000524266863`*^9, 
   3.7658000960599627`*^9}, {3.76580025376064*^9, 3.7658002741030755`*^9}, {
   3.7658003303567743`*^9, 3.7658003539596157`*^9}, {3.765800403770503*^9, 
   3.765800412912119*^9}, {3.7658004897734547`*^9, 3.7658004920198584`*^9}, {
   3.7658005324395294`*^9, 3.7658006375213137`*^9}, {3.765800733835883*^9, 
   3.7658007375174894`*^9}, {3.765800845422879*^9, 3.7658008594785037`*^9}, {
   3.765832801265263*^9, 3.765832842371335*^9}, {3.7658329954886045`*^9, 
   3.765832997610208*^9}, {3.7658335557167883`*^9, 3.7658335614419985`*^9}, {
   3.7658337071462545`*^9, 3.7658337555219393`*^9}, {3.765834716462426*^9, 
   3.765834728755248*^9}, {3.765835372034778*^9, 3.765835398274024*^9}, 
   3.7658354323444843`*^9, {3.7658354635601387`*^9, 3.765835491624588*^9}, {
   3.765835844076007*^9, 3.7658359035589113`*^9}, {3.7658363841801558`*^9, 
   3.765836427610632*^9}, {3.7658364665327005`*^9, 3.765836506843171*^9}, {
   3.7658366786150727`*^9, 3.765836710454729*^9}, {3.7658367443847885`*^9, 
   3.7658367492987967`*^9}, {3.765836859824991*^9, 3.7658369014614644`*^9}, {
   3.765837020942074*^9, 3.7658370212852745`*^9}, {3.7658371491742992`*^9, 
   3.7658373325682216`*^9}, {3.7658373903039227`*^9, 
   3.7658373946719303`*^9}, {3.7658375471777983`*^9, 3.765837556023014*^9}, {
   3.7658376336643505`*^9, 3.765837686127242*^9}, {3.765837742490142*^9, 
   3.76583775317616*^9}, {3.7658378085586576`*^9, 3.765837817372673*^9}, {
   3.7658379004072266`*^9, 3.765837943307302*^9}, {3.7658380152858286`*^9, 
   3.7658380157070293`*^9}, {3.765838085517152*^9, 3.7658380855795517`*^9}, {
   3.7658381193068113`*^9, 3.765838119353611*^9}, {3.7658381542040725`*^9, 
   3.765838176870912*^9}, {3.7658390411768303`*^9, 3.7658390477912416`*^9}, {
   3.765839355267782*^9, 3.765839362428195*^9}, {3.765839602325416*^9, 
   3.7658396099382296`*^9}, {3.765839687191165*^9, 3.765839696145581*^9}, {
   3.7658403374783077`*^9, 3.7658403664631586`*^9}, {3.76584045867492*^9, 
   3.7658404703281407`*^9}, {3.7987574091609755`*^9, 
   3.7987574322466483`*^9}, {3.798760762995722*^9, 3.798760864648661*^9}, {
   3.7987611181608057`*^9, 3.798761161362527*^9}, 3.798935421128909*^9, {
   3.7989397449324627`*^9, 3.7989398086178913`*^9}, {3.799014252038741*^9, 
   3.7990142649739175`*^9}, {3.799105023744769*^9, 3.7991050699552126`*^9}, {
   3.799105118647947*^9, 3.7991051311228027`*^9}, {3.799105895982009*^9, 
   3.799105901439942*^9}, {3.7991109056552224`*^9, 3.799110923395534*^9}, {
   3.799112540610957*^9, 3.7991125500481496`*^9}, {3.7991126982777033`*^9, 
   3.7991127126834836`*^9}, {3.799281399738042*^9, 3.799281413288266*^9}, {
   3.7992859547864065`*^9, 3.7992859599562206`*^9}, {3.799452367252905*^9, 
   3.7994523852869067`*^9}, {3.7994525531151423`*^9, 
   3.7994525608448467`*^9}, {3.799452922668131*^9, 3.7994529370216503`*^9}, {
   3.7994530415908885`*^9, 3.7994531531992965`*^9}, {3.7994534619463935`*^9, 
   3.7994535122760487`*^9}, {3.799488994061783*^9, 3.7994890259301295`*^9}, {
   3.799489127069338*^9, 3.799489127198258*^9}, {3.7994892652150702`*^9, 
   3.799489282501349*^9}, {3.799489341919857*^9, 3.799489387665595*^9}, {
   3.7994894229923644`*^9, 3.799489433963842*^9}, {3.7994895090142965`*^9, 
   3.799489514135335*^9}, {3.7994895644472384`*^9, 3.799489590899415*^9}, {
   3.7994896211456537`*^9, 3.799489625006397*^9}, 3.799489658687864*^9, {
   3.7994897003307285`*^9, 3.799489701217801*^9}, {3.7994900325513773`*^9, 
   3.799490045555784*^9}, {3.7995419400260224`*^9, 3.799541954650545*^9}, {
   3.799542119705918*^9, 3.7995421387357492`*^9}, {3.799542817612768*^9, 
   3.7995428503224907`*^9}, {3.7998535299381046`*^9, 3.799853547158205*^9}, {
   3.800201914864009*^9, 3.800201956100087*^9}, {3.800273598321886*^9, 
   3.800273608322847*^9}, {3.8002736444276404`*^9, 3.800273677198948*^9}, {
   3.800274061753049*^9, 3.8002740708146477`*^9}, {3.8002741065511804`*^9, 
   3.8002741411393466`*^9}, {3.8002741793804207`*^9, 
   3.8002741821421075`*^9}, {3.800274508981079*^9, 3.8002745304659204`*^9}, {
   3.800274597958658*^9, 3.8002746177074785`*^9}, {3.800274653061323*^9, 
   3.8002746571809664`*^9}, {3.800274819816207*^9, 3.800274844118356*^9}, {
   3.8002750473669014`*^9, 3.800275051031855*^9}, {3.800286898514518*^9, 
   3.8002869046194453`*^9}, {3.8002869531829433`*^9, 3.800286953283205*^9}, {
   3.800286984717792*^9, 3.800286994619907*^9}, {3.8002870258691206`*^9, 
   3.8002870260853577`*^9}, {3.80028708357412*^9, 3.8002870854644604`*^9}, {
   3.800287140764882*^9, 3.80028714542296*^9}, {3.8002873083451157`*^9, 
   3.8002873341373425`*^9}, {3.8002873672831745`*^9, 3.800287413534787*^9}, {
   3.8002876029150004`*^9, 
   3.8002876112420588`*^9}},ExpressionUUID->"fc08b790-8bd8-4f2d-98a4-\
746ee6e9d81f"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Testes", "Subchapter",
 CellChangeTimes->{{3.7656280939149184`*^9, 3.7656281036805353`*^9}, 
   3.765628143145405*^9, 3.765628175437462*^9, {3.7657040230840597`*^9, 
   3.765704024940463*^9}},ExpressionUUID->"6bc15201-2ca1-45df-b02e-\
53ad1a2014a6"],

Cell[CellGroupData[{

Cell["\<\
Exemplo 1[testa interse\[CCedilla]\[ATilde]o entre 7 esferas e 1 casca - \
paper]:\
\>", "Subsection",
 CellChangeTimes->{{3.7657059416690297`*^9, 3.7657059698738794`*^9}, {
  3.765706016283961*^9, 3.7657060383891993`*^9}, {3.7987575131887646`*^9, 
  3.7987575132557163`*^9}, {3.798758001327262*^9, 3.798758027197096*^9}, {
  3.799104742307192*^9, 3.7991047424820833`*^9}, {3.799282121508622*^9, 
  3.7992821215585423`*^9}, {3.799282898955203*^9, 3.7992828990556583`*^9}, {
  3.7994525669352846`*^9, 3.7994525707350535`*^9}, {3.7998548808115463`*^9, 
  3.7998549042806377`*^9}, {3.8002018767259703`*^9, 
  3.8002018778988786`*^9}},ExpressionUUID->"1500e145-85b9-4dec-be37-\
8453da8f36af"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"n", "=", "3"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"m", "=", "2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"kk", "=", "1"}], ";"}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJwd0l1Ik3EYBfDNEBVZX8xYH8S0cmN+LRdaK6y3C7uI5tqUKGaYVJQQCxOV
2daoTE2zQBAKBTFkKrqV2TQQNdMylZCopVP03ZZb0epmaozS+p/n4vC7ORfn
4sQXGnWXIgQCQRILnNf72u5sDHI6fV473OHe6YG73Cpyc6roZhVzvVNMVmrM
89XModQNC1AZtclQwxyp3EqWC72LsNj6lZz5lyatZZaeXU+A/frix8+YvyaU
zVC5+4cDLjpmX8Ku2LlXsKmoaQDGOseGoTfK9gbKVcuy59i3P0zyGf50qFRE
qmCZx5YLLXPH8mFjVmsLzCurboXua/l98LquhZwKhbfUnwpyEjMfB/m3ezOh
dyXlIJxVGx/Wa4JcirPqEcyo4E3vmecPyCpg4tqeWzB0Ukban2obYHSMj9Ta
Ft5NMBNWB8fh1UmHC8rvjZOC6UjJJDM5IoYsGSjPhuHfJtK33dLBM3vDVrLk
b/I+D3PQmUYOq92Z8EngwmF42ezjoNzgJ0cNuYVwxCS6CNtuSG9DoXjtLrT3
6B/A7tIzZF10YgOsEUsb4WrX5xch5vcT6b0w4B07tIzecaEaLol+2qElTuGA
3Uc0U/Dc0T/T8EOz6xN8LdnmgtbARz9st375BuOzs+pWmIoejhyqvW8U5bD/
SDxk55Wk0znaIFfQsUT+B+LHY/s=
  "],
 CellLabel->"In[13]:=",ExpressionUUID->"4395b5d1-0f3b-4e9a-9440-55667ae31ce7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"IntersEsferas1Casca", "[", 
   RowBox[{"m", ",", "n", ",", "kk"}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.765719702138294*^9, 3.765719722324729*^9}, {
   3.765799530153369*^9, 3.765799531167371*^9}, {3.7658006669585657`*^9, 
   3.7658006681285677`*^9}, 3.7994909766912165`*^9, {3.7998550505842376`*^9, 
   3.799855050993927*^9}},
 CellLabel->
  "In[127]:=",ExpressionUUID->"ad945ec3-585a-487e-81d2-2a9bd11a6359"],

Cell[CellGroupData[{

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{
  3.7994514856257553`*^9, 3.799451641053811*^9, 3.7994519015412626`*^9, 
   3.799451948801059*^9, {3.7994521009495296`*^9, 3.7994521272695317`*^9}, 
   3.7994521806190557`*^9, 3.799452402236618*^9, 3.799452451335967*^9, 
   3.7994525811550303`*^9, {3.799452664664345*^9, 3.7994527227434254`*^9}, 
   3.799452784892699*^9, 3.7994528358923736`*^9, 3.7994529497114677`*^9, 
   3.799453052290346*^9, 3.7994531606896048`*^9, 3.799453332157716*^9, 
   3.7994535559802065`*^9, 3.799489050510669*^9, 3.799489171712022*^9, 
   3.7994893041592617`*^9, 3.799489359392127*^9, 3.7994894007065787`*^9, 
   3.799489441095209*^9, 3.7994895207540703`*^9, 3.7994895984455743`*^9, 
   3.799489642926306*^9, 3.7994897127615175`*^9, 3.7994899171204357`*^9, 
   3.799489956801038*^9, 3.799490051896222*^9, 3.799490988019125*^9, 
   3.7994910269011602`*^9, 3.7994912095041313`*^9, 3.7994918177351856`*^9, {
   3.799491953739182*^9, 3.7994919644589467`*^9}, 3.79949205099209*^9, 
   3.799492200747991*^9, 3.799492235328514*^9, 3.799492276273323*^9, {
   3.7994923836294985`*^9, 3.799492426960415*^9}, 3.7994924632637653`*^9, 
   3.7994925289354687`*^9, 3.7994926038623543`*^9, 3.7994926658032045`*^9, 
   3.7994937349826922`*^9, 3.7994941206968756`*^9, 3.7994941551197863`*^9, 
   3.7994942033517075`*^9, 3.7994943244449215`*^9, 3.799494373812835*^9, 
   3.7995406257395496`*^9, 3.799541185614929*^9, 3.7995413616974535`*^9, 
   3.7995415449997582`*^9, 3.799541585092204*^9, 3.7995417165495358`*^9, 
   3.7995417931508565`*^9, 3.7995418441277976`*^9, 3.799541963447136*^9, 
   3.7995421506805525`*^9, 3.7995422292949247`*^9, 3.7995423720431848`*^9, 
   3.799542495996917*^9, 3.7995426016545963`*^9, 3.799542658229248*^9, 
   3.7995428574223404`*^9, 3.799542956436322*^9, 3.7997715843457365`*^9, 
   3.7998502272123175`*^9, 3.7998535528932424`*^9, 3.7998548844105587`*^9, {
   3.800201853819155*^9, 3.8002018827459745`*^9}, 3.800201933355276*^9, 
   3.800201963776552*^9, 3.8002721082824354`*^9, 3.8002721803425293`*^9, 
   3.8002723148054266`*^9, 3.8002725514057407`*^9, 3.8002726577091446`*^9, 
   3.8002726982622633`*^9, 3.8002728149274435`*^9, 3.800273087657186*^9, 
   3.8002732345897837`*^9, 3.8002733338419085`*^9, 3.8002734070296373`*^9, 
   3.8002734913526196`*^9, 3.8002736180153856`*^9, 3.8002736567144127`*^9, 
   3.8002736890767765`*^9, 3.800273726103689*^9, 3.8002737908357534`*^9, 
   3.8002738394706907`*^9, 3.800274009858206*^9, 3.800274087570823*^9, 
   3.800274147305612*^9, 3.800274189566445*^9, 3.800274538091219*^9, 
   3.800274666188002*^9, 3.800274851689474*^9, 3.8002749891931047`*^9, 
   3.800275060631543*^9, 3.8002868193659415`*^9, 3.8002869130239105`*^9, 
   3.8002869620576377`*^9, 3.800287002006309*^9, 3.800287040905095*^9, 
   3.8002870921327343`*^9, 3.8002872199866323`*^9, 3.8002873404693794`*^9, 
   3.8002873777810974`*^9, 3.8002874242818336`*^9},
 CellLabel->
  "During evaluation of \
In[127]:=",ExpressionUUID->"a9b9cec4-7852-4abf-936d-dac412976f37"],

Cell[BoxData["\<\"_____ in\[IAcute]cio abordagem alg. lin._____\"\>"], "Print",
 CellChangeTimes->{
  3.7994514856257553`*^9, 3.799451641053811*^9, 3.7994519015412626`*^9, 
   3.799451948801059*^9, {3.7994521009495296`*^9, 3.7994521272695317`*^9}, 
   3.7994521806190557`*^9, 3.799452402236618*^9, 3.799452451335967*^9, 
   3.7994525811550303`*^9, {3.799452664664345*^9, 3.7994527227434254`*^9}, 
   3.799452784892699*^9, 3.7994528358923736`*^9, 3.7994529497114677`*^9, 
   3.799453052290346*^9, 3.7994531606896048`*^9, 3.799453332157716*^9, 
   3.7994535559802065`*^9, 3.799489050510669*^9, 3.799489171712022*^9, 
   3.7994893041592617`*^9, 3.799489359392127*^9, 3.7994894007065787`*^9, 
   3.799489441095209*^9, 3.7994895207540703`*^9, 3.7994895984455743`*^9, 
   3.799489642926306*^9, 3.7994897127615175`*^9, 3.7994899171204357`*^9, 
   3.799489956801038*^9, 3.799490051896222*^9, 3.799490988019125*^9, 
   3.7994910269011602`*^9, 3.7994912095041313`*^9, 3.7994918177351856`*^9, {
   3.799491953739182*^9, 3.7994919644589467`*^9}, 3.79949205099209*^9, 
   3.799492200747991*^9, 3.799492235328514*^9, 3.799492276273323*^9, {
   3.7994923836294985`*^9, 3.799492426960415*^9}, 3.7994924632637653`*^9, 
   3.7994925289354687`*^9, 3.7994926038623543`*^9, 3.7994926658032045`*^9, 
   3.7994937349826922`*^9, 3.7994941206968756`*^9, 3.7994941551197863`*^9, 
   3.7994942033517075`*^9, 3.7994943244449215`*^9, 3.799494373812835*^9, 
   3.7995406257395496`*^9, 3.799541185614929*^9, 3.7995413616974535`*^9, 
   3.7995415449997582`*^9, 3.799541585092204*^9, 3.7995417165495358`*^9, 
   3.7995417931508565`*^9, 3.7995418441277976`*^9, 3.799541963447136*^9, 
   3.7995421506805525`*^9, 3.7995422292949247`*^9, 3.7995423720431848`*^9, 
   3.799542495996917*^9, 3.7995426016545963`*^9, 3.799542658229248*^9, 
   3.7995428574223404`*^9, 3.799542956436322*^9, 3.7997715843457365`*^9, 
   3.7998502272123175`*^9, 3.7998535528932424`*^9, 3.7998548844105587`*^9, {
   3.800201853819155*^9, 3.8002018827459745`*^9}, 3.800201933355276*^9, 
   3.800201963776552*^9, 3.8002721082824354`*^9, 3.8002721803425293`*^9, 
   3.8002723148054266`*^9, 3.8002725514057407`*^9, 3.8002726577091446`*^9, 
   3.8002726982622633`*^9, 3.8002728149274435`*^9, 3.800273087657186*^9, 
   3.8002732345897837`*^9, 3.8002733338419085`*^9, 3.8002734070296373`*^9, 
   3.8002734913526196`*^9, 3.8002736180153856`*^9, 3.8002736567144127`*^9, 
   3.8002736890767765`*^9, 3.800273726103689*^9, 3.8002737908357534`*^9, 
   3.8002738394706907`*^9, 3.800274009858206*^9, 3.800274087570823*^9, 
   3.800274147305612*^9, 3.800274189566445*^9, 3.800274538091219*^9, 
   3.800274666188002*^9, 3.800274851689474*^9, 3.8002749891931047`*^9, 
   3.800275060631543*^9, 3.8002868193659415`*^9, 3.8002869130239105`*^9, 
   3.8002869620576377`*^9, 3.800287002006309*^9, 3.800287040905095*^9, 
   3.8002870921327343`*^9, 3.8002872199866323`*^9, 3.8002873404693794`*^9, 
   3.8002873777810974`*^9, 3.8002874242878265`*^9},
 CellLabel->
  "During evaluation of \
In[127]:=",ExpressionUUID->"08312e56-359f-4d6f-b95d-516ff0369455"],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{
  3.7994514856257553`*^9, 3.799451641053811*^9, 3.7994519015412626`*^9, 
   3.799451948801059*^9, {3.7994521009495296`*^9, 3.7994521272695317`*^9}, 
   3.7994521806190557`*^9, 3.799452402236618*^9, 3.799452451335967*^9, 
   3.7994525811550303`*^9, {3.799452664664345*^9, 3.7994527227434254`*^9}, 
   3.799452784892699*^9, 3.7994528358923736`*^9, 3.7994529497114677`*^9, 
   3.799453052290346*^9, 3.7994531606896048`*^9, 3.799453332157716*^9, 
   3.7994535559802065`*^9, 3.799489050510669*^9, 3.799489171712022*^9, 
   3.7994893041592617`*^9, 3.799489359392127*^9, 3.7994894007065787`*^9, 
   3.799489441095209*^9, 3.7994895207540703`*^9, 3.7994895984455743`*^9, 
   3.799489642926306*^9, 3.7994897127615175`*^9, 3.7994899171204357`*^9, 
   3.799489956801038*^9, 3.799490051896222*^9, 3.799490988019125*^9, 
   3.7994910269011602`*^9, 3.7994912095041313`*^9, 3.7994918177351856`*^9, {
   3.799491953739182*^9, 3.7994919644589467`*^9}, 3.79949205099209*^9, 
   3.799492200747991*^9, 3.799492235328514*^9, 3.799492276273323*^9, {
   3.7994923836294985`*^9, 3.799492426960415*^9}, 3.7994924632637653`*^9, 
   3.7994925289354687`*^9, 3.7994926038623543`*^9, 3.7994926658032045`*^9, 
   3.7994937349826922`*^9, 3.7994941206968756`*^9, 3.7994941551197863`*^9, 
   3.7994942033517075`*^9, 3.7994943244449215`*^9, 3.799494373812835*^9, 
   3.7995406257395496`*^9, 3.799541185614929*^9, 3.7995413616974535`*^9, 
   3.7995415449997582`*^9, 3.799541585092204*^9, 3.7995417165495358`*^9, 
   3.7995417931508565`*^9, 3.7995418441277976`*^9, 3.799541963447136*^9, 
   3.7995421506805525`*^9, 3.7995422292949247`*^9, 3.7995423720431848`*^9, 
   3.799542495996917*^9, 3.7995426016545963`*^9, 3.799542658229248*^9, 
   3.7995428574223404`*^9, 3.799542956436322*^9, 3.7997715843457365`*^9, 
   3.7998502272123175`*^9, 3.7998535528932424`*^9, 3.7998548844105587`*^9, {
   3.800201853819155*^9, 3.8002018827459745`*^9}, 3.800201933355276*^9, 
   3.800201963776552*^9, 3.8002721082824354`*^9, 3.8002721803425293`*^9, 
   3.8002723148054266`*^9, 3.8002725514057407`*^9, 3.8002726577091446`*^9, 
   3.8002726982622633`*^9, 3.8002728149274435`*^9, 3.800273087657186*^9, 
   3.8002732345897837`*^9, 3.8002733338419085`*^9, 3.8002734070296373`*^9, 
   3.8002734913526196`*^9, 3.8002736180153856`*^9, 3.8002736567144127`*^9, 
   3.8002736890767765`*^9, 3.800273726103689*^9, 3.8002737908357534`*^9, 
   3.8002738394706907`*^9, 3.800274009858206*^9, 3.800274087570823*^9, 
   3.800274147305612*^9, 3.800274189566445*^9, 3.800274538091219*^9, 
   3.800274666188002*^9, 3.800274851689474*^9, 3.8002749891931047`*^9, 
   3.800275060631543*^9, 3.8002868193659415`*^9, 3.8002869130239105`*^9, 
   3.8002869620576377`*^9, 3.800287002006309*^9, 3.800287040905095*^9, 
   3.8002870921327343`*^9, 3.8002872199866323`*^9, 3.8002873404693794`*^9, 
   3.8002873777810974`*^9, 3.8002874242938237`*^9},
 CellLabel->
  "During evaluation of \
In[127]:=",ExpressionUUID->"a14ed013-ebc1-4ec8-b8ec-be9729d7b990"],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{
  3.7994514856257553`*^9, 3.799451641053811*^9, 3.7994519015412626`*^9, 
   3.799451948801059*^9, {3.7994521009495296`*^9, 3.7994521272695317`*^9}, 
   3.7994521806190557`*^9, 3.799452402236618*^9, 3.799452451335967*^9, 
   3.7994525811550303`*^9, {3.799452664664345*^9, 3.7994527227434254`*^9}, 
   3.799452784892699*^9, 3.7994528358923736`*^9, 3.7994529497114677`*^9, 
   3.799453052290346*^9, 3.7994531606896048`*^9, 3.799453332157716*^9, 
   3.7994535559802065`*^9, 3.799489050510669*^9, 3.799489171712022*^9, 
   3.7994893041592617`*^9, 3.799489359392127*^9, 3.7994894007065787`*^9, 
   3.799489441095209*^9, 3.7994895207540703`*^9, 3.7994895984455743`*^9, 
   3.799489642926306*^9, 3.7994897127615175`*^9, 3.7994899171204357`*^9, 
   3.799489956801038*^9, 3.799490051896222*^9, 3.799490988019125*^9, 
   3.7994910269011602`*^9, 3.7994912095041313`*^9, 3.7994918177351856`*^9, {
   3.799491953739182*^9, 3.7994919644589467`*^9}, 3.79949205099209*^9, 
   3.799492200747991*^9, 3.799492235328514*^9, 3.799492276273323*^9, {
   3.7994923836294985`*^9, 3.799492426960415*^9}, 3.7994924632637653`*^9, 
   3.7994925289354687`*^9, 3.7994926038623543`*^9, 3.7994926658032045`*^9, 
   3.7994937349826922`*^9, 3.7994941206968756`*^9, 3.7994941551197863`*^9, 
   3.7994942033517075`*^9, 3.7994943244449215`*^9, 3.799494373812835*^9, 
   3.7995406257395496`*^9, 3.799541185614929*^9, 3.7995413616974535`*^9, 
   3.7995415449997582`*^9, 3.799541585092204*^9, 3.7995417165495358`*^9, 
   3.7995417931508565`*^9, 3.7995418441277976`*^9, 3.799541963447136*^9, 
   3.7995421506805525`*^9, 3.7995422292949247`*^9, 3.7995423720431848`*^9, 
   3.799542495996917*^9, 3.7995426016545963`*^9, 3.799542658229248*^9, 
   3.7995428574223404`*^9, 3.799542956436322*^9, 3.7997715843457365`*^9, 
   3.7998502272123175`*^9, 3.7998535528932424`*^9, 3.7998548844105587`*^9, {
   3.800201853819155*^9, 3.8002018827459745`*^9}, 3.800201933355276*^9, 
   3.800201963776552*^9, 3.8002721082824354`*^9, 3.8002721803425293`*^9, 
   3.8002723148054266`*^9, 3.8002725514057407`*^9, 3.8002726577091446`*^9, 
   3.8002726982622633`*^9, 3.8002728149274435`*^9, 3.800273087657186*^9, 
   3.8002732345897837`*^9, 3.8002733338419085`*^9, 3.8002734070296373`*^9, 
   3.8002734913526196`*^9, 3.8002736180153856`*^9, 3.8002736567144127`*^9, 
   3.8002736890767765`*^9, 3.800273726103689*^9, 3.8002737908357534`*^9, 
   3.8002738394706907`*^9, 3.800274009858206*^9, 3.800274087570823*^9, 
   3.800274147305612*^9, 3.800274189566445*^9, 3.800274538091219*^9, 
   3.800274666188002*^9, 3.800274851689474*^9, 3.8002749891931047`*^9, 
   3.800275060631543*^9, 3.8002868193659415`*^9, 3.8002869130239105`*^9, 
   3.8002869620576377`*^9, 3.800287002006309*^9, 3.800287040905095*^9, 
   3.8002870921327343`*^9, 3.8002872199866323`*^9, 3.8002873404693794`*^9, 
   3.8002873777810974`*^9, 3.8002874242978206`*^9},
 CellLabel->
  "During evaluation of \
In[127]:=",ExpressionUUID->"6ab20fd2-2646-48c9-af2b-b6b9d32ec290"],

Cell[BoxData["\<\"___ gera inst\[AHat]ncia cascas + esfera ___\"\>"], "Print",
 CellChangeTimes->{
  3.7994514856257553`*^9, 3.799451641053811*^9, 3.7994519015412626`*^9, 
   3.799451948801059*^9, {3.7994521009495296`*^9, 3.7994521272695317`*^9}, 
   3.7994521806190557`*^9, 3.799452402236618*^9, 3.799452451335967*^9, 
   3.7994525811550303`*^9, {3.799452664664345*^9, 3.7994527227434254`*^9}, 
   3.799452784892699*^9, 3.7994528358923736`*^9, 3.7994529497114677`*^9, 
   3.799453052290346*^9, 3.7994531606896048`*^9, 3.799453332157716*^9, 
   3.7994535559802065`*^9, 3.799489050510669*^9, 3.799489171712022*^9, 
   3.7994893041592617`*^9, 3.799489359392127*^9, 3.7994894007065787`*^9, 
   3.799489441095209*^9, 3.7994895207540703`*^9, 3.7994895984455743`*^9, 
   3.799489642926306*^9, 3.7994897127615175`*^9, 3.7994899171204357`*^9, 
   3.799489956801038*^9, 3.799490051896222*^9, 3.799490988019125*^9, 
   3.7994910269011602`*^9, 3.7994912095041313`*^9, 3.7994918177351856`*^9, {
   3.799491953739182*^9, 3.7994919644589467`*^9}, 3.79949205099209*^9, 
   3.799492200747991*^9, 3.799492235328514*^9, 3.799492276273323*^9, {
   3.7994923836294985`*^9, 3.799492426960415*^9}, 3.7994924632637653`*^9, 
   3.7994925289354687`*^9, 3.7994926038623543`*^9, 3.7994926658032045`*^9, 
   3.7994937349826922`*^9, 3.7994941206968756`*^9, 3.7994941551197863`*^9, 
   3.7994942033517075`*^9, 3.7994943244449215`*^9, 3.799494373812835*^9, 
   3.7995406257395496`*^9, 3.799541185614929*^9, 3.7995413616974535`*^9, 
   3.7995415449997582`*^9, 3.799541585092204*^9, 3.7995417165495358`*^9, 
   3.7995417931508565`*^9, 3.7995418441277976`*^9, 3.799541963447136*^9, 
   3.7995421506805525`*^9, 3.7995422292949247`*^9, 3.7995423720431848`*^9, 
   3.799542495996917*^9, 3.7995426016545963`*^9, 3.799542658229248*^9, 
   3.7995428574223404`*^9, 3.799542956436322*^9, 3.7997715843457365`*^9, 
   3.7998502272123175`*^9, 3.7998535528932424`*^9, 3.7998548844105587`*^9, {
   3.800201853819155*^9, 3.8002018827459745`*^9}, 3.800201933355276*^9, 
   3.800201963776552*^9, 3.8002721082824354`*^9, 3.8002721803425293`*^9, 
   3.8002723148054266`*^9, 3.8002725514057407`*^9, 3.8002726577091446`*^9, 
   3.8002726982622633`*^9, 3.8002728149274435`*^9, 3.800273087657186*^9, 
   3.8002732345897837`*^9, 3.8002733338419085`*^9, 3.8002734070296373`*^9, 
   3.8002734913526196`*^9, 3.8002736180153856`*^9, 3.8002736567144127`*^9, 
   3.8002736890767765`*^9, 3.800273726103689*^9, 3.8002737908357534`*^9, 
   3.8002738394706907`*^9, 3.800274009858206*^9, 3.800274087570823*^9, 
   3.800274147305612*^9, 3.800274189566445*^9, 3.800274538091219*^9, 
   3.800274666188002*^9, 3.800274851689474*^9, 3.8002749891931047`*^9, 
   3.800275060631543*^9, 3.8002868193659415`*^9, 3.8002869130239105`*^9, 
   3.8002869620576377`*^9, 3.800287002006309*^9, 3.800287040905095*^9, 
   3.8002870921327343`*^9, 3.8002872199866323`*^9, 3.8002873404693794`*^9, 
   3.8002873777810974`*^9, 3.8002874243008223`*^9},
 CellLabel->
  "During evaluation of \
In[127]:=",ExpressionUUID->"1a9b68ec-537a-400a-b4c0-0c22e9b85bbf"],

Cell[BoxData["\<\"___ fim gera inst\[AHat]ncia cascas + esfera ___\"\>"], \
"Print",
 CellChangeTimes->{
  3.7994514856257553`*^9, 3.799451641053811*^9, 3.7994519015412626`*^9, 
   3.799451948801059*^9, {3.7994521009495296`*^9, 3.7994521272695317`*^9}, 
   3.7994521806190557`*^9, 3.799452402236618*^9, 3.799452451335967*^9, 
   3.7994525811550303`*^9, {3.799452664664345*^9, 3.7994527227434254`*^9}, 
   3.799452784892699*^9, 3.7994528358923736`*^9, 3.7994529497114677`*^9, 
   3.799453052290346*^9, 3.7994531606896048`*^9, 3.799453332157716*^9, 
   3.7994535559802065`*^9, 3.799489050510669*^9, 3.799489171712022*^9, 
   3.7994893041592617`*^9, 3.799489359392127*^9, 3.7994894007065787`*^9, 
   3.799489441095209*^9, 3.7994895207540703`*^9, 3.7994895984455743`*^9, 
   3.799489642926306*^9, 3.7994897127615175`*^9, 3.7994899171204357`*^9, 
   3.799489956801038*^9, 3.799490051896222*^9, 3.799490988019125*^9, 
   3.7994910269011602`*^9, 3.7994912095041313`*^9, 3.7994918177351856`*^9, {
   3.799491953739182*^9, 3.7994919644589467`*^9}, 3.79949205099209*^9, 
   3.799492200747991*^9, 3.799492235328514*^9, 3.799492276273323*^9, {
   3.7994923836294985`*^9, 3.799492426960415*^9}, 3.7994924632637653`*^9, 
   3.7994925289354687`*^9, 3.7994926038623543`*^9, 3.7994926658032045`*^9, 
   3.7994937349826922`*^9, 3.7994941206968756`*^9, 3.7994941551197863`*^9, 
   3.7994942033517075`*^9, 3.7994943244449215`*^9, 3.799494373812835*^9, 
   3.7995406257395496`*^9, 3.799541185614929*^9, 3.7995413616974535`*^9, 
   3.7995415449997582`*^9, 3.799541585092204*^9, 3.7995417165495358`*^9, 
   3.7995417931508565`*^9, 3.7995418441277976`*^9, 3.799541963447136*^9, 
   3.7995421506805525`*^9, 3.7995422292949247`*^9, 3.7995423720431848`*^9, 
   3.799542495996917*^9, 3.7995426016545963`*^9, 3.799542658229248*^9, 
   3.7995428574223404`*^9, 3.799542956436322*^9, 3.7997715843457365`*^9, 
   3.7998502272123175`*^9, 3.7998535528932424`*^9, 3.7998548844105587`*^9, {
   3.800201853819155*^9, 3.8002018827459745`*^9}, 3.800201933355276*^9, 
   3.800201963776552*^9, 3.8002721082824354`*^9, 3.8002721803425293`*^9, 
   3.8002723148054266`*^9, 3.8002725514057407`*^9, 3.8002726577091446`*^9, 
   3.8002726982622633`*^9, 3.8002728149274435`*^9, 3.800273087657186*^9, 
   3.8002732345897837`*^9, 3.8002733338419085`*^9, 3.8002734070296373`*^9, 
   3.8002734913526196`*^9, 3.8002736180153856`*^9, 3.8002736567144127`*^9, 
   3.8002736890767765`*^9, 3.800273726103689*^9, 3.8002737908357534`*^9, 
   3.8002738394706907`*^9, 3.800274009858206*^9, 3.800274087570823*^9, 
   3.800274147305612*^9, 3.800274189566445*^9, 3.800274538091219*^9, 
   3.800274666188002*^9, 3.800274851689474*^9, 3.8002749891931047`*^9, 
   3.800275060631543*^9, 3.8002868193659415`*^9, 3.8002869130239105`*^9, 
   3.8002869620576377`*^9, 3.800287002006309*^9, 3.800287040905095*^9, 
   3.8002870921327343`*^9, 3.8002872199866323`*^9, 3.8002873404693794`*^9, 
   3.8002873777810974`*^9, 3.8002874243048177`*^9},
 CellLabel->
  "During evaluation of \
In[127]:=",ExpressionUUID->"196c8cb0-e11d-4471-85ca-502b0c93b341"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\">> A = [\\!\\(\\*SubscriptBox[\\(a\\), \\(i\\)]\\)] = \"\>", 
   "\[InvisibleSpace]", 
   StyleBox[
    TagBox[
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {
         RowBox[{"-", "4"}], 
         RowBox[{"-", "3"}]},
        {"0", "1.1133`"},
        {"0", "1.3268`"}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}], "\[NoBreak]", ")"}],
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]],
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]], "\[InvisibleSpace]", "\<\", d = \"\>", 
   "\[InvisibleSpace]", 
   StyleBox[
    TagBox[
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {"3.1102`"},
        {"1.3`"}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}], "\[NoBreak]", ")"}],
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]],
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]]}],
  SequenceForm[">> A = [\!\(\*SubscriptBox[\(a\), \(i\)]\)] = ", 
   Style[
    MatrixForm[{{-4, -3}, {0, 1.1133}, {0, 1.3268}}], 
    RGBColor[1, 0, 0]], ", d = ", 
   Style[
    MatrixForm[{{3.1102}, {1.3}}], 
    RGBColor[1, 0, 0]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7994514856257553`*^9, 3.799451641053811*^9, 3.7994519015412626`*^9, 
   3.799451948801059*^9, {3.7994521009495296`*^9, 3.7994521272695317`*^9}, 
   3.7994521806190557`*^9, 3.799452402236618*^9, 3.799452451335967*^9, 
   3.7994525811550303`*^9, {3.799452664664345*^9, 3.7994527227434254`*^9}, 
   3.799452784892699*^9, 3.7994528358923736`*^9, 3.7994529497114677`*^9, 
   3.799453052290346*^9, 3.7994531606896048`*^9, 3.799453332157716*^9, 
   3.7994535559802065`*^9, 3.799489050510669*^9, 3.799489171712022*^9, 
   3.7994893041592617`*^9, 3.799489359392127*^9, 3.7994894007065787`*^9, 
   3.799489441095209*^9, 3.7994895207540703`*^9, 3.7994895984455743`*^9, 
   3.799489642926306*^9, 3.7994897127615175`*^9, 3.7994899171204357`*^9, 
   3.799489956801038*^9, 3.799490051896222*^9, 3.799490988019125*^9, 
   3.7994910269011602`*^9, 3.7994912095041313`*^9, 3.7994918177351856`*^9, {
   3.799491953739182*^9, 3.7994919644589467`*^9}, 3.79949205099209*^9, 
   3.799492200747991*^9, 3.799492235328514*^9, 3.799492276273323*^9, {
   3.7994923836294985`*^9, 3.799492426960415*^9}, 3.7994924632637653`*^9, 
   3.7994925289354687`*^9, 3.7994926038623543`*^9, 3.7994926658032045`*^9, 
   3.7994937349826922`*^9, 3.7994941206968756`*^9, 3.7994941551197863`*^9, 
   3.7994942033517075`*^9, 3.7994943244449215`*^9, 3.799494373812835*^9, 
   3.7995406257395496`*^9, 3.799541185614929*^9, 3.7995413616974535`*^9, 
   3.7995415449997582`*^9, 3.799541585092204*^9, 3.7995417165495358`*^9, 
   3.7995417931508565`*^9, 3.7995418441277976`*^9, 3.799541963447136*^9, 
   3.7995421506805525`*^9, 3.7995422292949247`*^9, 3.7995423720431848`*^9, 
   3.799542495996917*^9, 3.7995426016545963`*^9, 3.799542658229248*^9, 
   3.7995428574223404`*^9, 3.799542956436322*^9, 3.7997715843457365`*^9, 
   3.7998502272123175`*^9, 3.7998535528932424`*^9, 3.7998548844105587`*^9, {
   3.800201853819155*^9, 3.8002018827459745`*^9}, 3.800201933355276*^9, 
   3.800201963776552*^9, 3.8002721082824354`*^9, 3.8002721803425293`*^9, 
   3.8002723148054266`*^9, 3.8002725514057407`*^9, 3.8002726577091446`*^9, 
   3.8002726982622633`*^9, 3.8002728149274435`*^9, 3.800273087657186*^9, 
   3.8002732345897837`*^9, 3.8002733338419085`*^9, 3.8002734070296373`*^9, 
   3.8002734913526196`*^9, 3.8002736180153856`*^9, 3.8002736567144127`*^9, 
   3.8002736890767765`*^9, 3.800273726103689*^9, 3.8002737908357534`*^9, 
   3.8002738394706907`*^9, 3.800274009858206*^9, 3.800274087570823*^9, 
   3.800274147305612*^9, 3.800274189566445*^9, 3.800274538091219*^9, 
   3.800274666188002*^9, 3.800274851689474*^9, 3.8002749891931047`*^9, 
   3.800275060631543*^9, 3.8002868193659415`*^9, 3.8002869130239105`*^9, 
   3.8002869620576377`*^9, 3.800287002006309*^9, 3.800287040905095*^9, 
   3.8002870921327343`*^9, 3.8002872199866323`*^9, 3.8002873404693794`*^9, 
   3.8002873777810974`*^9, 3.800287424311817*^9},
 CellLabel->
  "During evaluation of \
In[127]:=",ExpressionUUID->"8271e2cc-6433-40f0-acda-dd09eaed8c81"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\">> \\!\\(\\*SubscriptBox[\\(c\\), \\(casca\\)]\\) = \"\>", 
   "\[InvisibleSpace]", 
   StyleBox[
    RowBox[{"{", 
     RowBox[{"0", ",", "0", ",", "0"}], "}"}],
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]], 
   "\[InvisibleSpace]", "\<\", \\!\\(\\*UnderscriptBox[SubscriptBox[\\(d\\), \
\\(casca\\)], \\(_\\)]\\) = \"\>", "\[InvisibleSpace]", 
   StyleBox["1.5`",
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]], 
   "\[InvisibleSpace]", "\<\", \\!\\(\\*OverscriptBox[SubscriptBox[\\(d\\), \
\\(casca\\)], \\(_\\)]\\) = \"\>", "\[InvisibleSpace]", 
   StyleBox["3.7`",
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]]}],
  SequenceForm[">> \!\(\*SubscriptBox[\(c\), \(casca\)]\) = ", 
   Style[{0, 0, 0}, 
    RGBColor[1, 0, 0]], 
   ", \!\(\*UnderscriptBox[SubscriptBox[\(d\), \(casca\)], \(_\)]\) = ", 
   Style[1.5, 
    RGBColor[1, 0, 0]], 
   ", \!\(\*OverscriptBox[SubscriptBox[\(d\), \(casca\)], \(_\)]\) = ", 
   Style[3.7, 
    RGBColor[1, 0, 0]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7994514856257553`*^9, 3.799451641053811*^9, 3.7994519015412626`*^9, 
   3.799451948801059*^9, {3.7994521009495296`*^9, 3.7994521272695317`*^9}, 
   3.7994521806190557`*^9, 3.799452402236618*^9, 3.799452451335967*^9, 
   3.7994525811550303`*^9, {3.799452664664345*^9, 3.7994527227434254`*^9}, 
   3.799452784892699*^9, 3.7994528358923736`*^9, 3.7994529497114677`*^9, 
   3.799453052290346*^9, 3.7994531606896048`*^9, 3.799453332157716*^9, 
   3.7994535559802065`*^9, 3.799489050510669*^9, 3.799489171712022*^9, 
   3.7994893041592617`*^9, 3.799489359392127*^9, 3.7994894007065787`*^9, 
   3.799489441095209*^9, 3.7994895207540703`*^9, 3.7994895984455743`*^9, 
   3.799489642926306*^9, 3.7994897127615175`*^9, 3.7994899171204357`*^9, 
   3.799489956801038*^9, 3.799490051896222*^9, 3.799490988019125*^9, 
   3.7994910269011602`*^9, 3.7994912095041313`*^9, 3.7994918177351856`*^9, {
   3.799491953739182*^9, 3.7994919644589467`*^9}, 3.79949205099209*^9, 
   3.799492200747991*^9, 3.799492235328514*^9, 3.799492276273323*^9, {
   3.7994923836294985`*^9, 3.799492426960415*^9}, 3.7994924632637653`*^9, 
   3.7994925289354687`*^9, 3.7994926038623543`*^9, 3.7994926658032045`*^9, 
   3.7994937349826922`*^9, 3.7994941206968756`*^9, 3.7994941551197863`*^9, 
   3.7994942033517075`*^9, 3.7994943244449215`*^9, 3.799494373812835*^9, 
   3.7995406257395496`*^9, 3.799541185614929*^9, 3.7995413616974535`*^9, 
   3.7995415449997582`*^9, 3.799541585092204*^9, 3.7995417165495358`*^9, 
   3.7995417931508565`*^9, 3.7995418441277976`*^9, 3.799541963447136*^9, 
   3.7995421506805525`*^9, 3.7995422292949247`*^9, 3.7995423720431848`*^9, 
   3.799542495996917*^9, 3.7995426016545963`*^9, 3.799542658229248*^9, 
   3.7995428574223404`*^9, 3.799542956436322*^9, 3.7997715843457365`*^9, 
   3.7998502272123175`*^9, 3.7998535528932424`*^9, 3.7998548844105587`*^9, {
   3.800201853819155*^9, 3.8002018827459745`*^9}, 3.800201933355276*^9, 
   3.800201963776552*^9, 3.8002721082824354`*^9, 3.8002721803425293`*^9, 
   3.8002723148054266`*^9, 3.8002725514057407`*^9, 3.8002726577091446`*^9, 
   3.8002726982622633`*^9, 3.8002728149274435`*^9, 3.800273087657186*^9, 
   3.8002732345897837`*^9, 3.8002733338419085`*^9, 3.8002734070296373`*^9, 
   3.8002734913526196`*^9, 3.8002736180153856`*^9, 3.8002736567144127`*^9, 
   3.8002736890767765`*^9, 3.800273726103689*^9, 3.8002737908357534`*^9, 
   3.8002738394706907`*^9, 3.800274009858206*^9, 3.800274087570823*^9, 
   3.800274147305612*^9, 3.800274189566445*^9, 3.800274538091219*^9, 
   3.800274666188002*^9, 3.800274851689474*^9, 3.8002749891931047`*^9, 
   3.800275060631543*^9, 3.8002868193659415`*^9, 3.8002869130239105`*^9, 
   3.8002869620576377`*^9, 3.800287002006309*^9, 3.800287040905095*^9, 
   3.8002870921327343`*^9, 3.8002872199866323`*^9, 3.8002873404693794`*^9, 
   3.8002873777810974`*^9, 3.8002874243168106`*^9},
 CellLabel->
  "During evaluation of \
In[127]:=",ExpressionUUID->"a4bddd6b-065f-4d2d-a1c7-ba076550469e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\">> \\!\\(\\*OverscriptBox[\\(A\\), \\(_\\)]\\) = A \[Union] \
\\!\\(\\*SubscriptBox[\\(c\\), \\(casca\\)]\\)  = \"\>", "\[InvisibleSpace]", 
   StyleBox[
    TagBox[
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {
         RowBox[{"-", "4"}], 
         RowBox[{"-", "3"}], "0"},
        {"0", "1.1133`", "0"},
        {"0", "1.3268`", "0"}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}], "\[NoBreak]", ")"}],
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]],
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]]}],
  SequenceForm[
  ">> \!\(\*OverscriptBox[\(A\), \(_\)]\) = A \[Union] \!\(\*SubscriptBox[\(c\
\), \(casca\)]\)  = ", 
   Style[
    MatrixForm[{{-4, -3, 0}, {0, 1.1133, 0}, {0, 1.3268, 0}}], 
    RGBColor[1, 0, 0]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7994514856257553`*^9, 3.799451641053811*^9, 3.7994519015412626`*^9, 
   3.799451948801059*^9, {3.7994521009495296`*^9, 3.7994521272695317`*^9}, 
   3.7994521806190557`*^9, 3.799452402236618*^9, 3.799452451335967*^9, 
   3.7994525811550303`*^9, {3.799452664664345*^9, 3.7994527227434254`*^9}, 
   3.799452784892699*^9, 3.7994528358923736`*^9, 3.7994529497114677`*^9, 
   3.799453052290346*^9, 3.7994531606896048`*^9, 3.799453332157716*^9, 
   3.7994535559802065`*^9, 3.799489050510669*^9, 3.799489171712022*^9, 
   3.7994893041592617`*^9, 3.799489359392127*^9, 3.7994894007065787`*^9, 
   3.799489441095209*^9, 3.7994895207540703`*^9, 3.7994895984455743`*^9, 
   3.799489642926306*^9, 3.7994897127615175`*^9, 3.7994899171204357`*^9, 
   3.799489956801038*^9, 3.799490051896222*^9, 3.799490988019125*^9, 
   3.7994910269011602`*^9, 3.7994912095041313`*^9, 3.7994918177351856`*^9, {
   3.799491953739182*^9, 3.7994919644589467`*^9}, 3.79949205099209*^9, 
   3.799492200747991*^9, 3.799492235328514*^9, 3.799492276273323*^9, {
   3.7994923836294985`*^9, 3.799492426960415*^9}, 3.7994924632637653`*^9, 
   3.7994925289354687`*^9, 3.7994926038623543`*^9, 3.7994926658032045`*^9, 
   3.7994937349826922`*^9, 3.7994941206968756`*^9, 3.7994941551197863`*^9, 
   3.7994942033517075`*^9, 3.7994943244449215`*^9, 3.799494373812835*^9, 
   3.7995406257395496`*^9, 3.799541185614929*^9, 3.7995413616974535`*^9, 
   3.7995415449997582`*^9, 3.799541585092204*^9, 3.7995417165495358`*^9, 
   3.7995417931508565`*^9, 3.7995418441277976`*^9, 3.799541963447136*^9, 
   3.7995421506805525`*^9, 3.7995422292949247`*^9, 3.7995423720431848`*^9, 
   3.799542495996917*^9, 3.7995426016545963`*^9, 3.799542658229248*^9, 
   3.7995428574223404`*^9, 3.799542956436322*^9, 3.7997715843457365`*^9, 
   3.7998502272123175`*^9, 3.7998535528932424`*^9, 3.7998548844105587`*^9, {
   3.800201853819155*^9, 3.8002018827459745`*^9}, 3.800201933355276*^9, 
   3.800201963776552*^9, 3.8002721082824354`*^9, 3.8002721803425293`*^9, 
   3.8002723148054266`*^9, 3.8002725514057407`*^9, 3.8002726577091446`*^9, 
   3.8002726982622633`*^9, 3.8002728149274435`*^9, 3.800273087657186*^9, 
   3.8002732345897837`*^9, 3.8002733338419085`*^9, 3.8002734070296373`*^9, 
   3.8002734913526196`*^9, 3.8002736180153856`*^9, 3.8002736567144127`*^9, 
   3.8002736890767765`*^9, 3.800273726103689*^9, 3.8002737908357534`*^9, 
   3.8002738394706907`*^9, 3.800274009858206*^9, 3.800274087570823*^9, 
   3.800274147305612*^9, 3.800274189566445*^9, 3.800274538091219*^9, 
   3.800274666188002*^9, 3.800274851689474*^9, 3.8002749891931047`*^9, 
   3.800275060631543*^9, 3.8002868193659415`*^9, 3.8002869130239105`*^9, 
   3.8002869620576377`*^9, 3.800287002006309*^9, 3.800287040905095*^9, 
   3.8002870921327343`*^9, 3.8002872199866323`*^9, 3.8002873404693794`*^9, 
   3.8002873777810974`*^9, 3.8002874243248043`*^9},
 CellLabel->
  "During evaluation of \
In[127]:=",ExpressionUUID->"ae7d9bfd-5e3e-4891-9c44-34d67aeafd4b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\">> rank(A \[Union] \\!\\(\\*SubscriptBox[\\(c\\), \\(casca\\)]\
\\))= \"\>", "\[InvisibleSpace]", 
   StyleBox["2",
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]], 
   "\[InvisibleSpace]", "\<\", rank(A) = \"\>", "\[InvisibleSpace]", 
   StyleBox["2",
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]], "\[InvisibleSpace]", "\<\", k = \"\>", 
   "\[InvisibleSpace]", 
   StyleBox["1",
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]]}],
  SequenceForm[">> rank(A \[Union] \!\(\*SubscriptBox[\(c\), \(casca\)]\))= ", 
   Style[2, 
    RGBColor[1, 0, 0]], ", rank(A) = ", 
   Style[2, 
    RGBColor[1, 0, 0]], ", k = ", 
   Style[1, 
    RGBColor[1, 0, 0]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7994514856257553`*^9, 3.799451641053811*^9, 3.7994519015412626`*^9, 
   3.799451948801059*^9, {3.7994521009495296`*^9, 3.7994521272695317`*^9}, 
   3.7994521806190557`*^9, 3.799452402236618*^9, 3.799452451335967*^9, 
   3.7994525811550303`*^9, {3.799452664664345*^9, 3.7994527227434254`*^9}, 
   3.799452784892699*^9, 3.7994528358923736`*^9, 3.7994529497114677`*^9, 
   3.799453052290346*^9, 3.7994531606896048`*^9, 3.799453332157716*^9, 
   3.7994535559802065`*^9, 3.799489050510669*^9, 3.799489171712022*^9, 
   3.7994893041592617`*^9, 3.799489359392127*^9, 3.7994894007065787`*^9, 
   3.799489441095209*^9, 3.7994895207540703`*^9, 3.7994895984455743`*^9, 
   3.799489642926306*^9, 3.7994897127615175`*^9, 3.7994899171204357`*^9, 
   3.799489956801038*^9, 3.799490051896222*^9, 3.799490988019125*^9, 
   3.7994910269011602`*^9, 3.7994912095041313`*^9, 3.7994918177351856`*^9, {
   3.799491953739182*^9, 3.7994919644589467`*^9}, 3.79949205099209*^9, 
   3.799492200747991*^9, 3.799492235328514*^9, 3.799492276273323*^9, {
   3.7994923836294985`*^9, 3.799492426960415*^9}, 3.7994924632637653`*^9, 
   3.7994925289354687`*^9, 3.7994926038623543`*^9, 3.7994926658032045`*^9, 
   3.7994937349826922`*^9, 3.7994941206968756`*^9, 3.7994941551197863`*^9, 
   3.7994942033517075`*^9, 3.7994943244449215`*^9, 3.799494373812835*^9, 
   3.7995406257395496`*^9, 3.799541185614929*^9, 3.7995413616974535`*^9, 
   3.7995415449997582`*^9, 3.799541585092204*^9, 3.7995417165495358`*^9, 
   3.7995417931508565`*^9, 3.7995418441277976`*^9, 3.799541963447136*^9, 
   3.7995421506805525`*^9, 3.7995422292949247`*^9, 3.7995423720431848`*^9, 
   3.799542495996917*^9, 3.7995426016545963`*^9, 3.799542658229248*^9, 
   3.7995428574223404`*^9, 3.799542956436322*^9, 3.7997715843457365`*^9, 
   3.7998502272123175`*^9, 3.7998535528932424`*^9, 3.7998548844105587`*^9, {
   3.800201853819155*^9, 3.8002018827459745`*^9}, 3.800201933355276*^9, 
   3.800201963776552*^9, 3.8002721082824354`*^9, 3.8002721803425293`*^9, 
   3.8002723148054266`*^9, 3.8002725514057407`*^9, 3.8002726577091446`*^9, 
   3.8002726982622633`*^9, 3.8002728149274435`*^9, 3.800273087657186*^9, 
   3.8002732345897837`*^9, 3.8002733338419085`*^9, 3.8002734070296373`*^9, 
   3.8002734913526196`*^9, 3.8002736180153856`*^9, 3.8002736567144127`*^9, 
   3.8002736890767765`*^9, 3.800273726103689*^9, 3.8002737908357534`*^9, 
   3.8002738394706907`*^9, 3.800274009858206*^9, 3.800274087570823*^9, 
   3.800274147305612*^9, 3.800274189566445*^9, 3.800274538091219*^9, 
   3.800274666188002*^9, 3.800274851689474*^9, 3.8002749891931047`*^9, 
   3.800275060631543*^9, 3.8002868193659415`*^9, 3.8002869130239105`*^9, 
   3.8002869620576377`*^9, 3.800287002006309*^9, 3.800287040905095*^9, 
   3.8002870921327343`*^9, 3.8002872199866323`*^9, 3.8002873404693794`*^9, 
   3.8002873777810974`*^9, 3.8002874243318*^9},
 CellLabel->
  "During evaluation of \
In[127]:=",ExpressionUUID->"95159f3a-4ac1-47b5-99bd-76f5a52a7ee9"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\">> \\!\\(\\*OverscriptBox[\\(A\\), \\(^\\)]\\) := \
[\\!\\(\\*SubscriptBox[\\(a\\), \\(i\\)]\\) - \\!\\(\\*SubscriptBox[\\(a\\), \
\\(m\\)]\\)] = \"\>", "\[InvisibleSpace]", 
   StyleBox[
    TagBox[
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {
         RowBox[{"-", "1"}], "3"},
        {
         RowBox[{"-", "1.1133`"}], 
         RowBox[{"-", "1.1133`"}]},
        {
         RowBox[{"-", "1.3268`"}], 
         RowBox[{"-", "1.3268`"}]}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}], "\[NoBreak]", ")"}],
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]],
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]], 
   "\[InvisibleSpace]", "\<\", rank(\\!\\(\\*OverscriptBox[\\(A\\), \
\\(^\\)]\\)) = \"\>", "\[InvisibleSpace]", 
   StyleBox["2",
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]], "\[InvisibleSpace]", "\<\", k = \"\>", 
   "\[InvisibleSpace]", 
   StyleBox["1",
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]]}],
  SequenceForm[
  ">> \!\(\*OverscriptBox[\(A\), \(^\)]\) := [\!\(\*SubscriptBox[\(a\), \
\(i\)]\) - \!\(\*SubscriptBox[\(a\), \(m\)]\)] = ", 
   Style[
    MatrixForm[{{-1, 3}, {-1.1133, -1.1133}, {-1.3268, -1.3268}}], 
    RGBColor[1, 0, 0]], ", rank(\!\(\*OverscriptBox[\(A\), \(^\)]\)) = ", 
   Style[2, 
    RGBColor[1, 0, 0]], ", k = ", 
   Style[1, 
    RGBColor[1, 0, 0]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7994514856257553`*^9, 3.799451641053811*^9, 3.7994519015412626`*^9, 
   3.799451948801059*^9, {3.7994521009495296`*^9, 3.7994521272695317`*^9}, 
   3.7994521806190557`*^9, 3.799452402236618*^9, 3.799452451335967*^9, 
   3.7994525811550303`*^9, {3.799452664664345*^9, 3.7994527227434254`*^9}, 
   3.799452784892699*^9, 3.7994528358923736`*^9, 3.7994529497114677`*^9, 
   3.799453052290346*^9, 3.7994531606896048`*^9, 3.799453332157716*^9, 
   3.7994535559802065`*^9, 3.799489050510669*^9, 3.799489171712022*^9, 
   3.7994893041592617`*^9, 3.799489359392127*^9, 3.7994894007065787`*^9, 
   3.799489441095209*^9, 3.7994895207540703`*^9, 3.7994895984455743`*^9, 
   3.799489642926306*^9, 3.7994897127615175`*^9, 3.7994899171204357`*^9, 
   3.799489956801038*^9, 3.799490051896222*^9, 3.799490988019125*^9, 
   3.7994910269011602`*^9, 3.7994912095041313`*^9, 3.7994918177351856`*^9, {
   3.799491953739182*^9, 3.7994919644589467`*^9}, 3.79949205099209*^9, 
   3.799492200747991*^9, 3.799492235328514*^9, 3.799492276273323*^9, {
   3.7994923836294985`*^9, 3.799492426960415*^9}, 3.7994924632637653`*^9, 
   3.7994925289354687`*^9, 3.7994926038623543`*^9, 3.7994926658032045`*^9, 
   3.7994937349826922`*^9, 3.7994941206968756`*^9, 3.7994941551197863`*^9, 
   3.7994942033517075`*^9, 3.7994943244449215`*^9, 3.799494373812835*^9, 
   3.7995406257395496`*^9, 3.799541185614929*^9, 3.7995413616974535`*^9, 
   3.7995415449997582`*^9, 3.799541585092204*^9, 3.7995417165495358`*^9, 
   3.7995417931508565`*^9, 3.7995418441277976`*^9, 3.799541963447136*^9, 
   3.7995421506805525`*^9, 3.7995422292949247`*^9, 3.7995423720431848`*^9, 
   3.799542495996917*^9, 3.7995426016545963`*^9, 3.799542658229248*^9, 
   3.7995428574223404`*^9, 3.799542956436322*^9, 3.7997715843457365`*^9, 
   3.7998502272123175`*^9, 3.7998535528932424`*^9, 3.7998548844105587`*^9, {
   3.800201853819155*^9, 3.8002018827459745`*^9}, 3.800201933355276*^9, 
   3.800201963776552*^9, 3.8002721082824354`*^9, 3.8002721803425293`*^9, 
   3.8002723148054266`*^9, 3.8002725514057407`*^9, 3.8002726577091446`*^9, 
   3.8002726982622633`*^9, 3.8002728149274435`*^9, 3.800273087657186*^9, 
   3.8002732345897837`*^9, 3.8002733338419085`*^9, 3.8002734070296373`*^9, 
   3.8002734913526196`*^9, 3.8002736180153856`*^9, 3.8002736567144127`*^9, 
   3.8002736890767765`*^9, 3.800273726103689*^9, 3.8002737908357534`*^9, 
   3.8002738394706907`*^9, 3.800274009858206*^9, 3.800274087570823*^9, 
   3.800274147305612*^9, 3.800274189566445*^9, 3.800274538091219*^9, 
   3.800274666188002*^9, 3.800274851689474*^9, 3.8002749891931047`*^9, 
   3.800275060631543*^9, 3.8002868193659415`*^9, 3.8002869130239105`*^9, 
   3.8002869620576377`*^9, 3.800287002006309*^9, 3.800287040905095*^9, 
   3.8002870921327343`*^9, 3.8002872199866323`*^9, 3.8002873404693794`*^9, 
   3.8002873777810974`*^9, 3.800287424337796*^9},
 CellLabel->
  "During evaluation of \
In[127]:=",ExpressionUUID->"de1d1bc2-f1f9-4263-bf3a-8901115f5b0c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\">> \[CapitalAHat]E = \
[\\!\\(\\*SubscriptBox[\\(\[CapitalAHat]\\), \\(1 : k\\)]\\) \
\\!\\(\\*SubscriptBox[\\(\[CapitalAHat]\\), \\(k + 1 : m - 1\\)]\\) \
\\!\\(\\*SubscriptBox[\\(\[AHat]\\), \\(m\\)]\\)]E = \
[\\!\\(\\*SubscriptBox[\\(\[CapitalAHat]\\), \\(1 : k\\)]\\)  \
\\!\\(\\*SubscriptBox[\\(\[AHat]\\), \\(m\\)]\\)  \\!\\(\\*SubscriptBox[\\(\
\[CapitalAHat]\\), \\(k + 1 : m - 1\\)]\\)] = \"\>", "\[InvisibleSpace]", 
   StyleBox[
    TagBox[
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {
         RowBox[{"-", "1"}], "3"},
        {
         RowBox[{"-", "1.1133`"}], 
         RowBox[{"-", "1.1133`"}]},
        {
         RowBox[{"-", "1.3268`"}], 
         RowBox[{"-", "1.3268`"}]}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}], "\[NoBreak]", ")"}],
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]],
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]]}],
  SequenceForm[
  ">> \[CapitalAHat]E = [\!\(\*SubscriptBox[\(\[CapitalAHat]\), \(1 : k\)]\) \
\!\(\*SubscriptBox[\(\[CapitalAHat]\), \(k + 1 : m - 1\)]\) \
\!\(\*SubscriptBox[\(\[AHat]\), \(m\)]\)]E = [\!\(\*SubscriptBox[\(\
\[CapitalAHat]\), \(1 : k\)]\)  \!\(\*SubscriptBox[\(\[AHat]\), \(m\)]\)  \
\!\(\*SubscriptBox[\(\[CapitalAHat]\), \(k + 1 : m - 1\)]\)] = ", 
   Style[
    MatrixForm[{{-1, 3}, {-1.1133, -1.1133}, {-1.3268, -1.3268}}], 
    RGBColor[1, 0, 0]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7994514856257553`*^9, 3.799451641053811*^9, 3.7994519015412626`*^9, 
   3.799451948801059*^9, {3.7994521009495296`*^9, 3.7994521272695317`*^9}, 
   3.7994521806190557`*^9, 3.799452402236618*^9, 3.799452451335967*^9, 
   3.7994525811550303`*^9, {3.799452664664345*^9, 3.7994527227434254`*^9}, 
   3.799452784892699*^9, 3.7994528358923736`*^9, 3.7994529497114677`*^9, 
   3.799453052290346*^9, 3.7994531606896048`*^9, 3.799453332157716*^9, 
   3.7994535559802065`*^9, 3.799489050510669*^9, 3.799489171712022*^9, 
   3.7994893041592617`*^9, 3.799489359392127*^9, 3.7994894007065787`*^9, 
   3.799489441095209*^9, 3.7994895207540703`*^9, 3.7994895984455743`*^9, 
   3.799489642926306*^9, 3.7994897127615175`*^9, 3.7994899171204357`*^9, 
   3.799489956801038*^9, 3.799490051896222*^9, 3.799490988019125*^9, 
   3.7994910269011602`*^9, 3.7994912095041313`*^9, 3.7994918177351856`*^9, {
   3.799491953739182*^9, 3.7994919644589467`*^9}, 3.79949205099209*^9, 
   3.799492200747991*^9, 3.799492235328514*^9, 3.799492276273323*^9, {
   3.7994923836294985`*^9, 3.799492426960415*^9}, 3.7994924632637653`*^9, 
   3.7994925289354687`*^9, 3.7994926038623543`*^9, 3.7994926658032045`*^9, 
   3.7994937349826922`*^9, 3.7994941206968756`*^9, 3.7994941551197863`*^9, 
   3.7994942033517075`*^9, 3.7994943244449215`*^9, 3.799494373812835*^9, 
   3.7995406257395496`*^9, 3.799541185614929*^9, 3.7995413616974535`*^9, 
   3.7995415449997582`*^9, 3.799541585092204*^9, 3.7995417165495358`*^9, 
   3.7995417931508565`*^9, 3.7995418441277976`*^9, 3.799541963447136*^9, 
   3.7995421506805525`*^9, 3.7995422292949247`*^9, 3.7995423720431848`*^9, 
   3.799542495996917*^9, 3.7995426016545963`*^9, 3.799542658229248*^9, 
   3.7995428574223404`*^9, 3.799542956436322*^9, 3.7997715843457365`*^9, 
   3.7998502272123175`*^9, 3.7998535528932424`*^9, 3.7998548844105587`*^9, {
   3.800201853819155*^9, 3.8002018827459745`*^9}, 3.800201933355276*^9, 
   3.800201963776552*^9, 3.8002721082824354`*^9, 3.8002721803425293`*^9, 
   3.8002723148054266`*^9, 3.8002725514057407`*^9, 3.8002726577091446`*^9, 
   3.8002726982622633`*^9, 3.8002728149274435`*^9, 3.800273087657186*^9, 
   3.8002732345897837`*^9, 3.8002733338419085`*^9, 3.8002734070296373`*^9, 
   3.8002734913526196`*^9, 3.8002736180153856`*^9, 3.8002736567144127`*^9, 
   3.8002736890767765`*^9, 3.800273726103689*^9, 3.8002737908357534`*^9, 
   3.8002738394706907`*^9, 3.800274009858206*^9, 3.800274087570823*^9, 
   3.800274147305612*^9, 3.800274189566445*^9, 3.800274538091219*^9, 
   3.800274666188002*^9, 3.800274851689474*^9, 3.8002749891931047`*^9, 
   3.800275060631543*^9, 3.8002868193659415`*^9, 3.8002869130239105`*^9, 
   3.8002869620576377`*^9, 3.800287002006309*^9, 3.800287040905095*^9, 
   3.8002870921327343`*^9, 3.8002872199866323`*^9, 3.8002873404693794`*^9, 
   3.8002873777810974`*^9, 3.800287424343793*^9},
 CellLabel->
  "During evaluation of \
In[127]:=",ExpressionUUID->"d486e179-a5ba-4c6d-bf10-49a62fada5f0"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\">> Q = \"\>", "\[InvisibleSpace]", 
   StyleBox[
    TagBox[
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {
         RowBox[{"-", "0.5000103046935513`"}], "0.8660194542850996`", "0"},
        {
         RowBox[{"-", "0.5566614722153308`"}], 
         RowBox[{"-", "0.32139748241950916`"}], 
         RowBox[{"-", "0.766049387210421`"}]},
        {
         RowBox[{"-", "0.663413672267404`"}], 
         RowBox[{"-", "0.383032587509391`"}], "0.64278171750178`"}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}], "\[NoBreak]", ")"}],
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]],
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]], "\[InvisibleSpace]", "\<\", R = \"\>", 
   "\[InvisibleSpace]", 
   StyleBox[
    TagBox[
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {"1.999958782075271`", 
         RowBox[{"-", "0.00008243669893459593`"}]},
        {"0", "3.4640778171403985`"},
        {"0", "0"}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}], "\[NoBreak]", ")"}],
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]],
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]]}],
  SequenceForm[">> Q = ", 
   Style[
    MatrixForm[{{-0.5000103046935513, 0.8660194542850996, 
       0}, {-0.5566614722153308, -0.32139748241950916`, -0.766049387210421}, \
{-0.663413672267404, -0.383032587509391, 0.64278171750178}}], 
    RGBColor[1, 0, 0]], ", R = ", 
   Style[
    MatrixForm[{{1.999958782075271, -0.00008243669893459593}, {
      0, 3.4640778171403985`}, {0, 0}}], 
    RGBColor[1, 0, 0]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7994514856257553`*^9, 3.799451641053811*^9, 3.7994519015412626`*^9, 
   3.799451948801059*^9, {3.7994521009495296`*^9, 3.7994521272695317`*^9}, 
   3.7994521806190557`*^9, 3.799452402236618*^9, 3.799452451335967*^9, 
   3.7994525811550303`*^9, {3.799452664664345*^9, 3.7994527227434254`*^9}, 
   3.799452784892699*^9, 3.7994528358923736`*^9, 3.7994529497114677`*^9, 
   3.799453052290346*^9, 3.7994531606896048`*^9, 3.799453332157716*^9, 
   3.7994535559802065`*^9, 3.799489050510669*^9, 3.799489171712022*^9, 
   3.7994893041592617`*^9, 3.799489359392127*^9, 3.7994894007065787`*^9, 
   3.799489441095209*^9, 3.7994895207540703`*^9, 3.7994895984455743`*^9, 
   3.799489642926306*^9, 3.7994897127615175`*^9, 3.7994899171204357`*^9, 
   3.799489956801038*^9, 3.799490051896222*^9, 3.799490988019125*^9, 
   3.7994910269011602`*^9, 3.7994912095041313`*^9, 3.7994918177351856`*^9, {
   3.799491953739182*^9, 3.7994919644589467`*^9}, 3.79949205099209*^9, 
   3.799492200747991*^9, 3.799492235328514*^9, 3.799492276273323*^9, {
   3.7994923836294985`*^9, 3.799492426960415*^9}, 3.7994924632637653`*^9, 
   3.7994925289354687`*^9, 3.7994926038623543`*^9, 3.7994926658032045`*^9, 
   3.7994937349826922`*^9, 3.7994941206968756`*^9, 3.7994941551197863`*^9, 
   3.7994942033517075`*^9, 3.7994943244449215`*^9, 3.799494373812835*^9, 
   3.7995406257395496`*^9, 3.799541185614929*^9, 3.7995413616974535`*^9, 
   3.7995415449997582`*^9, 3.799541585092204*^9, 3.7995417165495358`*^9, 
   3.7995417931508565`*^9, 3.7995418441277976`*^9, 3.799541963447136*^9, 
   3.7995421506805525`*^9, 3.7995422292949247`*^9, 3.7995423720431848`*^9, 
   3.799542495996917*^9, 3.7995426016545963`*^9, 3.799542658229248*^9, 
   3.7995428574223404`*^9, 3.799542956436322*^9, 3.7997715843457365`*^9, 
   3.7998502272123175`*^9, 3.7998535528932424`*^9, 3.7998548844105587`*^9, {
   3.800201853819155*^9, 3.8002018827459745`*^9}, 3.800201933355276*^9, 
   3.800201963776552*^9, 3.8002721082824354`*^9, 3.8002721803425293`*^9, 
   3.8002723148054266`*^9, 3.8002725514057407`*^9, 3.8002726577091446`*^9, 
   3.8002726982622633`*^9, 3.8002728149274435`*^9, 3.800273087657186*^9, 
   3.8002732345897837`*^9, 3.8002733338419085`*^9, 3.8002734070296373`*^9, 
   3.8002734913526196`*^9, 3.8002736180153856`*^9, 3.8002736567144127`*^9, 
   3.8002736890767765`*^9, 3.800273726103689*^9, 3.8002737908357534`*^9, 
   3.8002738394706907`*^9, 3.800274009858206*^9, 3.800274087570823*^9, 
   3.800274147305612*^9, 3.800274189566445*^9, 3.800274538091219*^9, 
   3.800274666188002*^9, 3.800274851689474*^9, 3.8002749891931047`*^9, 
   3.800275060631543*^9, 3.8002868193659415`*^9, 3.8002869130239105`*^9, 
   3.8002869620576377`*^9, 3.800287002006309*^9, 3.800287040905095*^9, 
   3.8002870921327343`*^9, 3.8002872199866323`*^9, 3.8002873404693794`*^9, 
   3.8002873777810974`*^9, 3.8002874243507895`*^9},
 CellLabel->
  "During evaluation of \
In[127]:=",ExpressionUUID->"e86e701a-48c5-454a-b85a-b5a2945d012f"],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{
  3.7994514856257553`*^9, 3.799451641053811*^9, 3.7994519015412626`*^9, 
   3.799451948801059*^9, {3.7994521009495296`*^9, 3.7994521272695317`*^9}, 
   3.7994521806190557`*^9, 3.799452402236618*^9, 3.799452451335967*^9, 
   3.7994525811550303`*^9, {3.799452664664345*^9, 3.7994527227434254`*^9}, 
   3.799452784892699*^9, 3.7994528358923736`*^9, 3.7994529497114677`*^9, 
   3.799453052290346*^9, 3.7994531606896048`*^9, 3.799453332157716*^9, 
   3.7994535559802065`*^9, 3.799489050510669*^9, 3.799489171712022*^9, 
   3.7994893041592617`*^9, 3.799489359392127*^9, 3.7994894007065787`*^9, 
   3.799489441095209*^9, 3.7994895207540703`*^9, 3.7994895984455743`*^9, 
   3.799489642926306*^9, 3.7994897127615175`*^9, 3.7994899171204357`*^9, 
   3.799489956801038*^9, 3.799490051896222*^9, 3.799490988019125*^9, 
   3.7994910269011602`*^9, 3.7994912095041313`*^9, 3.7994918177351856`*^9, {
   3.799491953739182*^9, 3.7994919644589467`*^9}, 3.79949205099209*^9, 
   3.799492200747991*^9, 3.799492235328514*^9, 3.799492276273323*^9, {
   3.7994923836294985`*^9, 3.799492426960415*^9}, 3.7994924632637653`*^9, 
   3.7994925289354687`*^9, 3.7994926038623543`*^9, 3.7994926658032045`*^9, 
   3.7994937349826922`*^9, 3.7994941206968756`*^9, 3.7994941551197863`*^9, 
   3.7994942033517075`*^9, 3.7994943244449215`*^9, 3.799494373812835*^9, 
   3.7995406257395496`*^9, 3.799541185614929*^9, 3.7995413616974535`*^9, 
   3.7995415449997582`*^9, 3.799541585092204*^9, 3.7995417165495358`*^9, 
   3.7995417931508565`*^9, 3.7995418441277976`*^9, 3.799541963447136*^9, 
   3.7995421506805525`*^9, 3.7995422292949247`*^9, 3.7995423720431848`*^9, 
   3.799542495996917*^9, 3.7995426016545963`*^9, 3.799542658229248*^9, 
   3.7995428574223404`*^9, 3.799542956436322*^9, 3.7997715843457365`*^9, 
   3.7998502272123175`*^9, 3.7998535528932424`*^9, 3.7998548844105587`*^9, {
   3.800201853819155*^9, 3.8002018827459745`*^9}, 3.800201933355276*^9, 
   3.800201963776552*^9, 3.8002721082824354`*^9, 3.8002721803425293`*^9, 
   3.8002723148054266`*^9, 3.8002725514057407`*^9, 3.8002726577091446`*^9, 
   3.8002726982622633`*^9, 3.8002728149274435`*^9, 3.800273087657186*^9, 
   3.8002732345897837`*^9, 3.8002733338419085`*^9, 3.8002734070296373`*^9, 
   3.8002734913526196`*^9, 3.8002736180153856`*^9, 3.8002736567144127`*^9, 
   3.8002736890767765`*^9, 3.800273726103689*^9, 3.8002737908357534`*^9, 
   3.8002738394706907`*^9, 3.800274009858206*^9, 3.800274087570823*^9, 
   3.800274147305612*^9, 3.800274189566445*^9, 3.800274538091219*^9, 
   3.800274666188002*^9, 3.800274851689474*^9, 3.8002749891931047`*^9, 
   3.800275060631543*^9, 3.8002868193659415`*^9, 3.8002869130239105`*^9, 
   3.8002869620576377`*^9, 3.800287002006309*^9, 3.800287040905095*^9, 
   3.8002870921327343`*^9, 3.8002872199866323`*^9, 3.8002873404693794`*^9, 
   3.8002873777810974`*^9, 3.800287424354786*^9},
 CellLabel->
  "During evaluation of \
In[127]:=",ExpressionUUID->"2ef91ae4-0652-44ee-9067-06da321423bc"],

Cell[BoxData["\<\">> \\!\\(\\*UnderscriptBox[\\(OBS\\), \\(_\\)]\\):\"\>"], \
"Print",
 CellChangeTimes->{
  3.7994514856257553`*^9, 3.799451641053811*^9, 3.7994519015412626`*^9, 
   3.799451948801059*^9, {3.7994521009495296`*^9, 3.7994521272695317`*^9}, 
   3.7994521806190557`*^9, 3.799452402236618*^9, 3.799452451335967*^9, 
   3.7994525811550303`*^9, {3.799452664664345*^9, 3.7994527227434254`*^9}, 
   3.799452784892699*^9, 3.7994528358923736`*^9, 3.7994529497114677`*^9, 
   3.799453052290346*^9, 3.7994531606896048`*^9, 3.799453332157716*^9, 
   3.7994535559802065`*^9, 3.799489050510669*^9, 3.799489171712022*^9, 
   3.7994893041592617`*^9, 3.799489359392127*^9, 3.7994894007065787`*^9, 
   3.799489441095209*^9, 3.7994895207540703`*^9, 3.7994895984455743`*^9, 
   3.799489642926306*^9, 3.7994897127615175`*^9, 3.7994899171204357`*^9, 
   3.799489956801038*^9, 3.799490051896222*^9, 3.799490988019125*^9, 
   3.7994910269011602`*^9, 3.7994912095041313`*^9, 3.7994918177351856`*^9, {
   3.799491953739182*^9, 3.7994919644589467`*^9}, 3.79949205099209*^9, 
   3.799492200747991*^9, 3.799492235328514*^9, 3.799492276273323*^9, {
   3.7994923836294985`*^9, 3.799492426960415*^9}, 3.7994924632637653`*^9, 
   3.7994925289354687`*^9, 3.7994926038623543`*^9, 3.7994926658032045`*^9, 
   3.7994937349826922`*^9, 3.7994941206968756`*^9, 3.7994941551197863`*^9, 
   3.7994942033517075`*^9, 3.7994943244449215`*^9, 3.799494373812835*^9, 
   3.7995406257395496`*^9, 3.799541185614929*^9, 3.7995413616974535`*^9, 
   3.7995415449997582`*^9, 3.799541585092204*^9, 3.7995417165495358`*^9, 
   3.7995417931508565`*^9, 3.7995418441277976`*^9, 3.799541963447136*^9, 
   3.7995421506805525`*^9, 3.7995422292949247`*^9, 3.7995423720431848`*^9, 
   3.799542495996917*^9, 3.7995426016545963`*^9, 3.799542658229248*^9, 
   3.7995428574223404`*^9, 3.799542956436322*^9, 3.7997715843457365`*^9, 
   3.7998502272123175`*^9, 3.7998535528932424`*^9, 3.7998548844105587`*^9, {
   3.800201853819155*^9, 3.8002018827459745`*^9}, 3.800201933355276*^9, 
   3.800201963776552*^9, 3.8002721082824354`*^9, 3.8002721803425293`*^9, 
   3.8002723148054266`*^9, 3.8002725514057407`*^9, 3.8002726577091446`*^9, 
   3.8002726982622633`*^9, 3.8002728149274435`*^9, 3.800273087657186*^9, 
   3.8002732345897837`*^9, 3.8002733338419085`*^9, 3.8002734070296373`*^9, 
   3.8002734913526196`*^9, 3.8002736180153856`*^9, 3.8002736567144127`*^9, 
   3.8002736890767765`*^9, 3.800273726103689*^9, 3.8002737908357534`*^9, 
   3.8002738394706907`*^9, 3.800274009858206*^9, 3.800274087570823*^9, 
   3.800274147305612*^9, 3.800274189566445*^9, 3.800274538091219*^9, 
   3.800274666188002*^9, 3.800274851689474*^9, 3.8002749891931047`*^9, 
   3.800275060631543*^9, 3.8002868193659415`*^9, 3.8002869130239105`*^9, 
   3.8002869620576377`*^9, 3.800287002006309*^9, 3.800287040905095*^9, 
   3.8002870921327343`*^9, 3.8002872199866323`*^9, 3.8002873404693794`*^9, 
   3.8002873777810974`*^9, 3.8002874243577843`*^9},
 CellLabel->
  "During evaluation of \
In[127]:=",ExpressionUUID->"9c4ecfce-cdd0-4024-af0e-969be54e55d1"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"  (1) \\!\\(\\*OverscriptBox[\\(A\\), \\(^\\)]\\):n\[Cross]m, \
\\!\\(\\*OverscriptBox[\\(A\\), \\(^\\)]\\)E = QR, Q:n\[Cross]n, \
R:m\[Cross]n, R = [\\!\\(\\*SubscriptBox[\\(R\\), \\(1\\)]\\)  0; \
\\!\\(\\*SubscriptBox[\\(r\\), \\(k + 1\\)]\\) 0; \
\\!\\(\\*SubscriptBox[\\(R\\), \\(2\\)]\\) 0\\!\\(\\*SuperscriptBox[\\(]\\), \
\\(t\\)]\\), \\!\\(\\*SubscriptBox[\\(R\\), \\(1\\)]\\):(k+1)\[Cross]k, \
\\!\\(\\*SubscriptBox[\\(r\\), \\(k + 1\\)]\\):1\[Cross]k+1, \
\\!\\(\\*SubscriptBox[\\(R\\), \\(2\\)]\\):(k+1)\[Cross](m-k-1), m = \"\>", 
   "\[InvisibleSpace]", 
   StyleBox["2",
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]], "\[InvisibleSpace]", "\<\", n = \"\>", 
   "\[InvisibleSpace]", 
   StyleBox["3",
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]], "\[InvisibleSpace]", "\<\" k = \"\>", 
   "\[InvisibleSpace]", 
   StyleBox["1",
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]]}],
  SequenceForm[
  "  (1) \!\(\*OverscriptBox[\(A\), \(^\)]\):n\[Cross]m, \!\(\*OverscriptBox[\
\(A\), \(^\)]\)E = QR, Q:n\[Cross]n, R:m\[Cross]n, R = \
[\!\(\*SubscriptBox[\(R\), \(1\)]\)  0; \!\(\*SubscriptBox[\(r\), \(k + \
1\)]\) 0; \!\(\*SubscriptBox[\(R\), \(2\)]\) 0\!\(\*SuperscriptBox[\(]\), \(t\
\)]\), \!\(\*SubscriptBox[\(R\), \(1\)]\):(k+1)\[Cross]k, \!\(\*SubscriptBox[\
\(r\), \(k + 1\)]\):1\[Cross]k+1, \!\(\*SubscriptBox[\(R\), \(2\)]\):(k+1)\
\[Cross](m-k-1), m = ", 
   Style[2, 
    RGBColor[1, 0, 0]], ", n = ", 
   Style[3, 
    RGBColor[1, 0, 0]], " k = ", 
   Style[1, 
    RGBColor[1, 0, 0]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7994514856257553`*^9, 3.799451641053811*^9, 3.7994519015412626`*^9, 
   3.799451948801059*^9, {3.7994521009495296`*^9, 3.7994521272695317`*^9}, 
   3.7994521806190557`*^9, 3.799452402236618*^9, 3.799452451335967*^9, 
   3.7994525811550303`*^9, {3.799452664664345*^9, 3.7994527227434254`*^9}, 
   3.799452784892699*^9, 3.7994528358923736`*^9, 3.7994529497114677`*^9, 
   3.799453052290346*^9, 3.7994531606896048`*^9, 3.799453332157716*^9, 
   3.7994535559802065`*^9, 3.799489050510669*^9, 3.799489171712022*^9, 
   3.7994893041592617`*^9, 3.799489359392127*^9, 3.7994894007065787`*^9, 
   3.799489441095209*^9, 3.7994895207540703`*^9, 3.7994895984455743`*^9, 
   3.799489642926306*^9, 3.7994897127615175`*^9, 3.7994899171204357`*^9, 
   3.799489956801038*^9, 3.799490051896222*^9, 3.799490988019125*^9, 
   3.7994910269011602`*^9, 3.7994912095041313`*^9, 3.7994918177351856`*^9, {
   3.799491953739182*^9, 3.7994919644589467`*^9}, 3.79949205099209*^9, 
   3.799492200747991*^9, 3.799492235328514*^9, 3.799492276273323*^9, {
   3.7994923836294985`*^9, 3.799492426960415*^9}, 3.7994924632637653`*^9, 
   3.7994925289354687`*^9, 3.7994926038623543`*^9, 3.7994926658032045`*^9, 
   3.7994937349826922`*^9, 3.7994941206968756`*^9, 3.7994941551197863`*^9, 
   3.7994942033517075`*^9, 3.7994943244449215`*^9, 3.799494373812835*^9, 
   3.7995406257395496`*^9, 3.799541185614929*^9, 3.7995413616974535`*^9, 
   3.7995415449997582`*^9, 3.799541585092204*^9, 3.7995417165495358`*^9, 
   3.7995417931508565`*^9, 3.7995418441277976`*^9, 3.799541963447136*^9, 
   3.7995421506805525`*^9, 3.7995422292949247`*^9, 3.7995423720431848`*^9, 
   3.799542495996917*^9, 3.7995426016545963`*^9, 3.799542658229248*^9, 
   3.7995428574223404`*^9, 3.799542956436322*^9, 3.7997715843457365`*^9, 
   3.7998502272123175`*^9, 3.7998535528932424`*^9, 3.7998548844105587`*^9, {
   3.800201853819155*^9, 3.8002018827459745`*^9}, 3.800201933355276*^9, 
   3.800201963776552*^9, 3.8002721082824354`*^9, 3.8002721803425293`*^9, 
   3.8002723148054266`*^9, 3.8002725514057407`*^9, 3.8002726577091446`*^9, 
   3.8002726982622633`*^9, 3.8002728149274435`*^9, 3.800273087657186*^9, 
   3.8002732345897837`*^9, 3.8002733338419085`*^9, 3.8002734070296373`*^9, 
   3.8002734913526196`*^9, 3.8002736180153856`*^9, 3.8002736567144127`*^9, 
   3.8002736890767765`*^9, 3.800273726103689*^9, 3.8002737908357534`*^9, 
   3.8002738394706907`*^9, 3.800274009858206*^9, 3.800274087570823*^9, 
   3.800274147305612*^9, 3.800274189566445*^9, 3.800274538091219*^9, 
   3.800274666188002*^9, 3.800274851689474*^9, 3.8002749891931047`*^9, 
   3.800275060631543*^9, 3.8002868193659415`*^9, 3.8002869130239105`*^9, 
   3.8002869620576377`*^9, 3.800287002006309*^9, 3.800287040905095*^9, 
   3.8002870921327343`*^9, 3.8002872199866323`*^9, 3.8002873404693794`*^9, 
   3.8002873777810974`*^9, 3.8002874243647804`*^9},
 CellLabel->
  "During evaluation of \
In[127]:=",ExpressionUUID->"062a5a1e-85b0-48b9-8509-14d05fefb18f"],

Cell[BoxData["\<\"  (2) \\!\\(\\*OverscriptBox[\\(A\\), \\(^\\)]\\)E = QR = \
Q[\\!\\(\\*SubscriptBox[OverscriptBox[\\(R\\), \\(^\\)], \\(1\\)]\\) 0 0; \\!\
\\(\\*SubscriptBox[OverscriptBox[\\(r\\), \\(^\\)], \\(k + 1\\)]\\) \
\\!\\(\\*SubscriptBox[OverscriptBox[\\(r\\), \\(^\\)], \\(k + 1, k + 1\\)]\\) \
0; \\!\\(\\*SubscriptBox[OverscriptBox[\\(R\\), \\(^\\)], \\(2\\)]\\) 0 \
0\\!\\(\\*SuperscriptBox[\\(]\\), \\(t\\)]\\),  \
\\!\\(\\*SubscriptBox[OverscriptBox[\\(R\\), \\(^\\)], \
\\(1\\)]\\):k\[Cross]k,  \\!\\(\\*SubscriptBox[OverscriptBox[\\(r\\), \
\\(^\\)], \\(k + 1\\)]\\)\[Element]\\!\\(\\*SuperscriptBox[\\(\
\[DoubleStruckCapitalR]\\), \\(k\\)]\\),  \
\\!\\(\\*SubscriptBox[OverscriptBox[\\(r\\), \\(^\\)], \\(k + 1, k + 1\\)]\\)\
\[Element]\[DoubleStruckCapitalR],  \
\\!\\(\\*SubscriptBox[OverscriptBox[\\(R\\), \\(^\\)], \
\\(2\\)]\\):k\[Cross](m-k-1)\"\>"], "Print",
 CellChangeTimes->{
  3.7994514856257553`*^9, 3.799451641053811*^9, 3.7994519015412626`*^9, 
   3.799451948801059*^9, {3.7994521009495296`*^9, 3.7994521272695317`*^9}, 
   3.7994521806190557`*^9, 3.799452402236618*^9, 3.799452451335967*^9, 
   3.7994525811550303`*^9, {3.799452664664345*^9, 3.7994527227434254`*^9}, 
   3.799452784892699*^9, 3.7994528358923736`*^9, 3.7994529497114677`*^9, 
   3.799453052290346*^9, 3.7994531606896048`*^9, 3.799453332157716*^9, 
   3.7994535559802065`*^9, 3.799489050510669*^9, 3.799489171712022*^9, 
   3.7994893041592617`*^9, 3.799489359392127*^9, 3.7994894007065787`*^9, 
   3.799489441095209*^9, 3.7994895207540703`*^9, 3.7994895984455743`*^9, 
   3.799489642926306*^9, 3.7994897127615175`*^9, 3.7994899171204357`*^9, 
   3.799489956801038*^9, 3.799490051896222*^9, 3.799490988019125*^9, 
   3.7994910269011602`*^9, 3.7994912095041313`*^9, 3.7994918177351856`*^9, {
   3.799491953739182*^9, 3.7994919644589467`*^9}, 3.79949205099209*^9, 
   3.799492200747991*^9, 3.799492235328514*^9, 3.799492276273323*^9, {
   3.7994923836294985`*^9, 3.799492426960415*^9}, 3.7994924632637653`*^9, 
   3.7994925289354687`*^9, 3.7994926038623543`*^9, 3.7994926658032045`*^9, 
   3.7994937349826922`*^9, 3.7994941206968756`*^9, 3.7994941551197863`*^9, 
   3.7994942033517075`*^9, 3.7994943244449215`*^9, 3.799494373812835*^9, 
   3.7995406257395496`*^9, 3.799541185614929*^9, 3.7995413616974535`*^9, 
   3.7995415449997582`*^9, 3.799541585092204*^9, 3.7995417165495358`*^9, 
   3.7995417931508565`*^9, 3.7995418441277976`*^9, 3.799541963447136*^9, 
   3.7995421506805525`*^9, 3.7995422292949247`*^9, 3.7995423720431848`*^9, 
   3.799542495996917*^9, 3.7995426016545963`*^9, 3.799542658229248*^9, 
   3.7995428574223404`*^9, 3.799542956436322*^9, 3.7997715843457365`*^9, 
   3.7998502272123175`*^9, 3.7998535528932424`*^9, 3.7998548844105587`*^9, {
   3.800201853819155*^9, 3.8002018827459745`*^9}, 3.800201933355276*^9, 
   3.800201963776552*^9, 3.8002721082824354`*^9, 3.8002721803425293`*^9, 
   3.8002723148054266`*^9, 3.8002725514057407`*^9, 3.8002726577091446`*^9, 
   3.8002726982622633`*^9, 3.8002728149274435`*^9, 3.800273087657186*^9, 
   3.8002732345897837`*^9, 3.8002733338419085`*^9, 3.8002734070296373`*^9, 
   3.8002734913526196`*^9, 3.8002736180153856`*^9, 3.8002736567144127`*^9, 
   3.8002736890767765`*^9, 3.800273726103689*^9, 3.8002737908357534`*^9, 
   3.8002738394706907`*^9, 3.800274009858206*^9, 3.800274087570823*^9, 
   3.800274147305612*^9, 3.800274189566445*^9, 3.800274538091219*^9, 
   3.800274666188002*^9, 3.800274851689474*^9, 3.8002749891931047`*^9, 
   3.800275060631543*^9, 3.8002868193659415`*^9, 3.8002869130239105`*^9, 
   3.8002869620576377`*^9, 3.800287002006309*^9, 3.800287040905095*^9, 
   3.8002870921327343`*^9, 3.8002872199866323`*^9, 3.8002873404693794`*^9, 
   3.8002873777810974`*^9, 3.800287424369778*^9},
 CellLabel->
  "During evaluation of \
In[127]:=",ExpressionUUID->"a2e311d9-0e15-4544-9b10-d0f1a9ff0bd8"],

Cell[BoxData["\<\"  (3) \\!\\(\\*OverscriptBox[\\(R\\), \\(^\\)]\\) := \
[\\!\\(\\*SubscriptBox[OverscriptBox[\\(R\\), \\(^\\)], \\(1\\)]\\)  \
\\!\\(\\*SubscriptBox[OverscriptBox[\\(R\\), \\(^\\)], \\(2\\)]\\)],  \
\\!\\(\\*SuperscriptBox[\\(Q\\), \\(t\\)]\\)\\!\\(\\*OverscriptBox[\\(x\\), \
\\(_\\)]\\) = [y  \\!\\(\\*SubscriptBox[\\(y\\), \\(k + 1\\)]\\)  z],  \\!\\(\
\\*OverscriptBox[\\(x\\), \\(_\\)]\\) = x-\\!\\(\\*SubscriptBox[\\(a\\), \\(m\
\\)]\\),  y\[Element]\\!\\(\\*SuperscriptBox[\\(\[DoubleStruckCapitalR]\\), \
\\(k\\)]\\),  \\!\\(\\*SubscriptBox[\\(y\\), \\(k + 1\\)]\\)\[Element]\
\[DoubleStruckCapitalR],  z\[Element]\\!\\(\\*SuperscriptBox[\\(\
\[DoubleStruckCapitalR]\\), \\(n - k - 1\\)]\\)  \[Implies]  \
\\!\\(\\*SuperscriptBox[\\(\[CapitalAHat]\\), \
\\(t\\)]\\)\\!\\(\\*OverscriptBox[\\(x\\), \\(_\\)]\\) = \
[\\!\\(\\*SuperscriptBox[OverscriptBox[\\(R\\), \\(^\\)], \\(t\\)]\\) \
\\!\\(\\*SuperscriptBox[SubscriptBox[OverscriptBox[\\(r\\), \\(^\\)], \\(k + \
1\\)], \\(t\\)]\\); 0 \\!\\(\\*SubscriptBox[OverscriptBox[\\(r\\), \\(^\\)], \
\\(k + 1, k + 1\\)]\\)][y  \\!\\(\\*SubscriptBox[\\(y\\), \\(k + \
1\\)]\\)]\"\>"], "Print",
 CellChangeTimes->{
  3.7994514856257553`*^9, 3.799451641053811*^9, 3.7994519015412626`*^9, 
   3.799451948801059*^9, {3.7994521009495296`*^9, 3.7994521272695317`*^9}, 
   3.7994521806190557`*^9, 3.799452402236618*^9, 3.799452451335967*^9, 
   3.7994525811550303`*^9, {3.799452664664345*^9, 3.7994527227434254`*^9}, 
   3.799452784892699*^9, 3.7994528358923736`*^9, 3.7994529497114677`*^9, 
   3.799453052290346*^9, 3.7994531606896048`*^9, 3.799453332157716*^9, 
   3.7994535559802065`*^9, 3.799489050510669*^9, 3.799489171712022*^9, 
   3.7994893041592617`*^9, 3.799489359392127*^9, 3.7994894007065787`*^9, 
   3.799489441095209*^9, 3.7994895207540703`*^9, 3.7994895984455743`*^9, 
   3.799489642926306*^9, 3.7994897127615175`*^9, 3.7994899171204357`*^9, 
   3.799489956801038*^9, 3.799490051896222*^9, 3.799490988019125*^9, 
   3.7994910269011602`*^9, 3.7994912095041313`*^9, 3.7994918177351856`*^9, {
   3.799491953739182*^9, 3.7994919644589467`*^9}, 3.79949205099209*^9, 
   3.799492200747991*^9, 3.799492235328514*^9, 3.799492276273323*^9, {
   3.7994923836294985`*^9, 3.799492426960415*^9}, 3.7994924632637653`*^9, 
   3.7994925289354687`*^9, 3.7994926038623543`*^9, 3.7994926658032045`*^9, 
   3.7994937349826922`*^9, 3.7994941206968756`*^9, 3.7994941551197863`*^9, 
   3.7994942033517075`*^9, 3.7994943244449215`*^9, 3.799494373812835*^9, 
   3.7995406257395496`*^9, 3.799541185614929*^9, 3.7995413616974535`*^9, 
   3.7995415449997582`*^9, 3.799541585092204*^9, 3.7995417165495358`*^9, 
   3.7995417931508565`*^9, 3.7995418441277976`*^9, 3.799541963447136*^9, 
   3.7995421506805525`*^9, 3.7995422292949247`*^9, 3.7995423720431848`*^9, 
   3.799542495996917*^9, 3.7995426016545963`*^9, 3.799542658229248*^9, 
   3.7995428574223404`*^9, 3.799542956436322*^9, 3.7997715843457365`*^9, 
   3.7998502272123175`*^9, 3.7998535528932424`*^9, 3.7998548844105587`*^9, {
   3.800201853819155*^9, 3.8002018827459745`*^9}, 3.800201933355276*^9, 
   3.800201963776552*^9, 3.8002721082824354`*^9, 3.8002721803425293`*^9, 
   3.8002723148054266`*^9, 3.8002725514057407`*^9, 3.8002726577091446`*^9, 
   3.8002726982622633`*^9, 3.8002728149274435`*^9, 3.800273087657186*^9, 
   3.8002732345897837`*^9, 3.8002733338419085`*^9, 3.8002734070296373`*^9, 
   3.8002734913526196`*^9, 3.8002736180153856`*^9, 3.8002736567144127`*^9, 
   3.8002736890767765`*^9, 3.800273726103689*^9, 3.8002737908357534`*^9, 
   3.8002738394706907`*^9, 3.800274009858206*^9, 3.800274087570823*^9, 
   3.800274147305612*^9, 3.800274189566445*^9, 3.800274538091219*^9, 
   3.800274666188002*^9, 3.800274851689474*^9, 3.8002749891931047`*^9, 
   3.800275060631543*^9, 3.8002868193659415`*^9, 3.8002869130239105`*^9, 
   3.8002869620576377`*^9, 3.800287002006309*^9, 3.800287040905095*^9, 
   3.8002870921327343`*^9, 3.8002872199866323`*^9, 3.8002873404693794`*^9, 
   3.8002873777810974`*^9, 3.8002874243757744`*^9},
 CellLabel->
  "During evaluation of \
In[127]:=",ExpressionUUID->"45507aed-9680-4343-8ae5-2163eef0771a"],

Cell[BoxData["\<\"  (4) \\!\\(\\*SuperscriptBox[\\(R\\), \\(t\\)]\\)y = c,   \
\\!\\(\\*SubscriptBox[UnderscriptBox[\\(c\\), \\(_\\)], \\(m + 1\\)]\\) \
\[LessEqual] [\\!\\(\\*SuperscriptBox[SubscriptBox[OverscriptBox[\\(r\\), \
\\(^\\)], \\(k + 1\\)], \\(t\\)]\\)  \\!\\(\\*SubscriptBox[OverscriptBox[\\(r\
\\), \\(^\\)], \\(k + 1, k + 1\\)]\\)][y  \\!\\(\\*SubscriptBox[\\(y\\), \\(k \
+ 1\\)]\\)\\!\\(\\*SuperscriptBox[\\(]\\), \\(t\\)]\\) \[LessEqual] \
\\!\\(\\*SubscriptBox[OverscriptBox[\\(c\\), \\(_\\)], \\(m + 1\\)]\\),  onde \
 c = [\\!\\(\\*SubscriptBox[\\(c\\), \\(1\\)]\\) ... \
\\!\\(\\*SubscriptBox[\\(c\\), \\(m - 1\\)]\\)]\"\>"], "Print",
 CellChangeTimes->{
  3.7994514856257553`*^9, 3.799451641053811*^9, 3.7994519015412626`*^9, 
   3.799451948801059*^9, {3.7994521009495296`*^9, 3.7994521272695317`*^9}, 
   3.7994521806190557`*^9, 3.799452402236618*^9, 3.799452451335967*^9, 
   3.7994525811550303`*^9, {3.799452664664345*^9, 3.7994527227434254`*^9}, 
   3.799452784892699*^9, 3.7994528358923736`*^9, 3.7994529497114677`*^9, 
   3.799453052290346*^9, 3.7994531606896048`*^9, 3.799453332157716*^9, 
   3.7994535559802065`*^9, 3.799489050510669*^9, 3.799489171712022*^9, 
   3.7994893041592617`*^9, 3.799489359392127*^9, 3.7994894007065787`*^9, 
   3.799489441095209*^9, 3.7994895207540703`*^9, 3.7994895984455743`*^9, 
   3.799489642926306*^9, 3.7994897127615175`*^9, 3.7994899171204357`*^9, 
   3.799489956801038*^9, 3.799490051896222*^9, 3.799490988019125*^9, 
   3.7994910269011602`*^9, 3.7994912095041313`*^9, 3.7994918177351856`*^9, {
   3.799491953739182*^9, 3.7994919644589467`*^9}, 3.79949205099209*^9, 
   3.799492200747991*^9, 3.799492235328514*^9, 3.799492276273323*^9, {
   3.7994923836294985`*^9, 3.799492426960415*^9}, 3.7994924632637653`*^9, 
   3.7994925289354687`*^9, 3.7994926038623543`*^9, 3.7994926658032045`*^9, 
   3.7994937349826922`*^9, 3.7994941206968756`*^9, 3.7994941551197863`*^9, 
   3.7994942033517075`*^9, 3.7994943244449215`*^9, 3.799494373812835*^9, 
   3.7995406257395496`*^9, 3.799541185614929*^9, 3.7995413616974535`*^9, 
   3.7995415449997582`*^9, 3.799541585092204*^9, 3.7995417165495358`*^9, 
   3.7995417931508565`*^9, 3.7995418441277976`*^9, 3.799541963447136*^9, 
   3.7995421506805525`*^9, 3.7995422292949247`*^9, 3.7995423720431848`*^9, 
   3.799542495996917*^9, 3.7995426016545963`*^9, 3.799542658229248*^9, 
   3.7995428574223404`*^9, 3.799542956436322*^9, 3.7997715843457365`*^9, 
   3.7998502272123175`*^9, 3.7998535528932424`*^9, 3.7998548844105587`*^9, {
   3.800201853819155*^9, 3.8002018827459745`*^9}, 3.800201933355276*^9, 
   3.800201963776552*^9, 3.8002721082824354`*^9, 3.8002721803425293`*^9, 
   3.8002723148054266`*^9, 3.8002725514057407`*^9, 3.8002726577091446`*^9, 
   3.8002726982622633`*^9, 3.8002728149274435`*^9, 3.800273087657186*^9, 
   3.8002732345897837`*^9, 3.8002733338419085`*^9, 3.8002734070296373`*^9, 
   3.8002734913526196`*^9, 3.8002736180153856`*^9, 3.8002736567144127`*^9, 
   3.8002736890767765`*^9, 3.800273726103689*^9, 3.8002737908357534`*^9, 
   3.8002738394706907`*^9, 3.800274009858206*^9, 3.800274087570823*^9, 
   3.800274147305612*^9, 3.800274189566445*^9, 3.800274538091219*^9, 
   3.800274666188002*^9, 3.800274851689474*^9, 3.8002749891931047`*^9, 
   3.800275060631543*^9, 3.8002868193659415`*^9, 3.8002869130239105`*^9, 
   3.8002869620576377`*^9, 3.800287002006309*^9, 3.800287040905095*^9, 
   3.8002870921327343`*^9, 3.8002872199866323`*^9, 3.8002873404693794`*^9, 
   3.8002873777810974`*^9, 3.800287424385768*^9},
 CellLabel->
  "During evaluation of \
In[127]:=",ExpressionUUID->"1c0a36c3-2678-4a2e-8992-ea96fec3bbb0"],

Cell[BoxData["\<\"  (5) \\!\\(\\*SubscriptBox[UnderscriptBox[\\(c\\), \
\\(_\\)], \\(m + 1\\)]\\) \[LessEqual] \
\\!\\(\\*SuperscriptBox[SubscriptBox[\\(\[AHat]\\), \\(m\\)], \
\\(t\\)]\\)\\!\\(\\*OverscriptBox[\\(x\\), \\(_\\)]\\) \[LessEqual] \
\\!\\(\\*SubscriptBox[OverscriptBox[\\(c\\), \\(_\\)], \\(m + 1\\)]\\)\"\>"], \
"Print",
 CellChangeTimes->{
  3.7994514856257553`*^9, 3.799451641053811*^9, 3.7994519015412626`*^9, 
   3.799451948801059*^9, {3.7994521009495296`*^9, 3.7994521272695317`*^9}, 
   3.7994521806190557`*^9, 3.799452402236618*^9, 3.799452451335967*^9, 
   3.7994525811550303`*^9, {3.799452664664345*^9, 3.7994527227434254`*^9}, 
   3.799452784892699*^9, 3.7994528358923736`*^9, 3.7994529497114677`*^9, 
   3.799453052290346*^9, 3.7994531606896048`*^9, 3.799453332157716*^9, 
   3.7994535559802065`*^9, 3.799489050510669*^9, 3.799489171712022*^9, 
   3.7994893041592617`*^9, 3.799489359392127*^9, 3.7994894007065787`*^9, 
   3.799489441095209*^9, 3.7994895207540703`*^9, 3.7994895984455743`*^9, 
   3.799489642926306*^9, 3.7994897127615175`*^9, 3.7994899171204357`*^9, 
   3.799489956801038*^9, 3.799490051896222*^9, 3.799490988019125*^9, 
   3.7994910269011602`*^9, 3.7994912095041313`*^9, 3.7994918177351856`*^9, {
   3.799491953739182*^9, 3.7994919644589467`*^9}, 3.79949205099209*^9, 
   3.799492200747991*^9, 3.799492235328514*^9, 3.799492276273323*^9, {
   3.7994923836294985`*^9, 3.799492426960415*^9}, 3.7994924632637653`*^9, 
   3.7994925289354687`*^9, 3.7994926038623543`*^9, 3.7994926658032045`*^9, 
   3.7994937349826922`*^9, 3.7994941206968756`*^9, 3.7994941551197863`*^9, 
   3.7994942033517075`*^9, 3.7994943244449215`*^9, 3.799494373812835*^9, 
   3.7995406257395496`*^9, 3.799541185614929*^9, 3.7995413616974535`*^9, 
   3.7995415449997582`*^9, 3.799541585092204*^9, 3.7995417165495358`*^9, 
   3.7995417931508565`*^9, 3.7995418441277976`*^9, 3.799541963447136*^9, 
   3.7995421506805525`*^9, 3.7995422292949247`*^9, 3.7995423720431848`*^9, 
   3.799542495996917*^9, 3.7995426016545963`*^9, 3.799542658229248*^9, 
   3.7995428574223404`*^9, 3.799542956436322*^9, 3.7997715843457365`*^9, 
   3.7998502272123175`*^9, 3.7998535528932424`*^9, 3.7998548844105587`*^9, {
   3.800201853819155*^9, 3.8002018827459745`*^9}, 3.800201933355276*^9, 
   3.800201963776552*^9, 3.8002721082824354`*^9, 3.8002721803425293`*^9, 
   3.8002723148054266`*^9, 3.8002725514057407`*^9, 3.8002726577091446`*^9, 
   3.8002726982622633`*^9, 3.8002728149274435`*^9, 3.800273087657186*^9, 
   3.8002732345897837`*^9, 3.8002733338419085`*^9, 3.8002734070296373`*^9, 
   3.8002734913526196`*^9, 3.8002736180153856`*^9, 3.8002736567144127`*^9, 
   3.8002736890767765`*^9, 3.800273726103689*^9, 3.8002737908357534`*^9, 
   3.8002738394706907`*^9, 3.800274009858206*^9, 3.800274087570823*^9, 
   3.800274147305612*^9, 3.800274189566445*^9, 3.800274538091219*^9, 
   3.800274666188002*^9, 3.800274851689474*^9, 3.8002749891931047`*^9, 
   3.800275060631543*^9, 3.8002868193659415`*^9, 3.8002869130239105`*^9, 
   3.8002869620576377`*^9, 3.800287002006309*^9, 3.800287040905095*^9, 
   3.8002870921327343`*^9, 3.8002872199866323`*^9, 3.8002873404693794`*^9, 
   3.8002873777810974`*^9, 3.8002874243937626`*^9},
 CellLabel->
  "During evaluation of \
In[127]:=",ExpressionUUID->"5707589c-6251-44c0-9072-7be63d799b36"],

Cell[BoxData["\<\"  (6) \\!\\(\\*SubscriptBox[\\(c\\), \\(i\\)]\\) := \
-1/2(\\!\\(\\*SuperscriptBox[SubscriptBox[\\(d\\), \\(i\\)], \
\\(2\\)]\\)-\\!\\(\\*SuperscriptBox[SubscriptBox[\\(d\\), \\(m\\)], \
\\(2\\)]\\)-||\\!\\(\\*SubscriptBox[\\(a\\), \
\\(i\\)]\\)-\\!\\(\\*SubscriptBox[\\(a\\), \
\\(m\\)]\\)\\!\\(\\*SuperscriptBox[\\(||\\), \\(2\\)]\\)),  i = \
1,...,m,\"\>"], "Print",
 CellChangeTimes->{
  3.7994514856257553`*^9, 3.799451641053811*^9, 3.7994519015412626`*^9, 
   3.799451948801059*^9, {3.7994521009495296`*^9, 3.7994521272695317`*^9}, 
   3.7994521806190557`*^9, 3.799452402236618*^9, 3.799452451335967*^9, 
   3.7994525811550303`*^9, {3.799452664664345*^9, 3.7994527227434254`*^9}, 
   3.799452784892699*^9, 3.7994528358923736`*^9, 3.7994529497114677`*^9, 
   3.799453052290346*^9, 3.7994531606896048`*^9, 3.799453332157716*^9, 
   3.7994535559802065`*^9, 3.799489050510669*^9, 3.799489171712022*^9, 
   3.7994893041592617`*^9, 3.799489359392127*^9, 3.7994894007065787`*^9, 
   3.799489441095209*^9, 3.7994895207540703`*^9, 3.7994895984455743`*^9, 
   3.799489642926306*^9, 3.7994897127615175`*^9, 3.7994899171204357`*^9, 
   3.799489956801038*^9, 3.799490051896222*^9, 3.799490988019125*^9, 
   3.7994910269011602`*^9, 3.7994912095041313`*^9, 3.7994918177351856`*^9, {
   3.799491953739182*^9, 3.7994919644589467`*^9}, 3.79949205099209*^9, 
   3.799492200747991*^9, 3.799492235328514*^9, 3.799492276273323*^9, {
   3.7994923836294985`*^9, 3.799492426960415*^9}, 3.7994924632637653`*^9, 
   3.7994925289354687`*^9, 3.7994926038623543`*^9, 3.7994926658032045`*^9, 
   3.7994937349826922`*^9, 3.7994941206968756`*^9, 3.7994941551197863`*^9, 
   3.7994942033517075`*^9, 3.7994943244449215`*^9, 3.799494373812835*^9, 
   3.7995406257395496`*^9, 3.799541185614929*^9, 3.7995413616974535`*^9, 
   3.7995415449997582`*^9, 3.799541585092204*^9, 3.7995417165495358`*^9, 
   3.7995417931508565`*^9, 3.7995418441277976`*^9, 3.799541963447136*^9, 
   3.7995421506805525`*^9, 3.7995422292949247`*^9, 3.7995423720431848`*^9, 
   3.799542495996917*^9, 3.7995426016545963`*^9, 3.799542658229248*^9, 
   3.7995428574223404`*^9, 3.799542956436322*^9, 3.7997715843457365`*^9, 
   3.7998502272123175`*^9, 3.7998535528932424`*^9, 3.7998548844105587`*^9, {
   3.800201853819155*^9, 3.8002018827459745`*^9}, 3.800201933355276*^9, 
   3.800201963776552*^9, 3.8002721082824354`*^9, 3.8002721803425293`*^9, 
   3.8002723148054266`*^9, 3.8002725514057407`*^9, 3.8002726577091446`*^9, 
   3.8002726982622633`*^9, 3.8002728149274435`*^9, 3.800273087657186*^9, 
   3.8002732345897837`*^9, 3.8002733338419085`*^9, 3.8002734070296373`*^9, 
   3.8002734913526196`*^9, 3.8002736180153856`*^9, 3.8002736567144127`*^9, 
   3.8002736890767765`*^9, 3.800273726103689*^9, 3.8002737908357534`*^9, 
   3.8002738394706907`*^9, 3.800274009858206*^9, 3.800274087570823*^9, 
   3.800274147305612*^9, 3.800274189566445*^9, 3.800274538091219*^9, 
   3.800274666188002*^9, 3.800274851689474*^9, 3.8002749891931047`*^9, 
   3.800275060631543*^9, 3.8002868193659415`*^9, 3.8002869130239105`*^9, 
   3.8002869620576377`*^9, 3.800287002006309*^9, 3.800287040905095*^9, 
   3.8002870921327343`*^9, 3.8002872199866323`*^9, 3.8002873404693794`*^9, 
   3.8002873777810974`*^9, 3.8002874244007587`*^9},
 CellLabel->
  "During evaluation of \
In[127]:=",ExpressionUUID->"15afa1ee-f4d8-4d8e-ab9e-49dc0f14e4a0"],

Cell[BoxData["\<\"      \\!\\(\\*SubscriptBox[UnderscriptBox[\\(c\\), \
\\(_\\)], \\(m + 1\\)]\\) := \
-1/2(\\!\\(\\*SuperscriptBox[SubscriptBox[OverscriptBox[\\(d\\), \\(_\\)], \
\\(m + 1\\)], \\(2\\)]\\)-\\!\\(\\*SuperscriptBox[SubscriptBox[\\(d\\), \
\\(m\\)], \\(2\\)]\\)-||\\!\\(\\*SubscriptBox[\\(a\\), \\(m + 1\\)]\\)-\\!\\(\
\\*SubscriptBox[\\(a\\), \\(m\\)]\\)\\!\\(\\*SuperscriptBox[\\(||\\), \
\\(2\\)]\\)),  \\!\\(\\*SubscriptBox[OverscriptBox[\\(c\\), \\(_\\)], \\(m + \
1\\)]\\) := -1/2(\\!\\(\\*SuperscriptBox[SubscriptBox[UnderscriptBox[\\(d\\), \
\\(_\\)], \\(m + 1\\)], \\(2\\)]\\)-\\!\\(\\*SuperscriptBox[SubscriptBox[\\(d\
\\), \\(m\\)], \\(2\\)]\\)-||\\!\\(\\*SubscriptBox[\\(a\\), \\(m + \
1\\)]\\)-\\!\\(\\*SubscriptBox[\\(a\\), \
\\(m\\)]\\)\\!\\(\\*SuperscriptBox[\\(||\\), \\(2\\)]\\))\"\>"], "Print",
 CellChangeTimes->{
  3.7994514856257553`*^9, 3.799451641053811*^9, 3.7994519015412626`*^9, 
   3.799451948801059*^9, {3.7994521009495296`*^9, 3.7994521272695317`*^9}, 
   3.7994521806190557`*^9, 3.799452402236618*^9, 3.799452451335967*^9, 
   3.7994525811550303`*^9, {3.799452664664345*^9, 3.7994527227434254`*^9}, 
   3.799452784892699*^9, 3.7994528358923736`*^9, 3.7994529497114677`*^9, 
   3.799453052290346*^9, 3.7994531606896048`*^9, 3.799453332157716*^9, 
   3.7994535559802065`*^9, 3.799489050510669*^9, 3.799489171712022*^9, 
   3.7994893041592617`*^9, 3.799489359392127*^9, 3.7994894007065787`*^9, 
   3.799489441095209*^9, 3.7994895207540703`*^9, 3.7994895984455743`*^9, 
   3.799489642926306*^9, 3.7994897127615175`*^9, 3.7994899171204357`*^9, 
   3.799489956801038*^9, 3.799490051896222*^9, 3.799490988019125*^9, 
   3.7994910269011602`*^9, 3.7994912095041313`*^9, 3.7994918177351856`*^9, {
   3.799491953739182*^9, 3.7994919644589467`*^9}, 3.79949205099209*^9, 
   3.799492200747991*^9, 3.799492235328514*^9, 3.799492276273323*^9, {
   3.7994923836294985`*^9, 3.799492426960415*^9}, 3.7994924632637653`*^9, 
   3.7994925289354687`*^9, 3.7994926038623543`*^9, 3.7994926658032045`*^9, 
   3.7994937349826922`*^9, 3.7994941206968756`*^9, 3.7994941551197863`*^9, 
   3.7994942033517075`*^9, 3.7994943244449215`*^9, 3.799494373812835*^9, 
   3.7995406257395496`*^9, 3.799541185614929*^9, 3.7995413616974535`*^9, 
   3.7995415449997582`*^9, 3.799541585092204*^9, 3.7995417165495358`*^9, 
   3.7995417931508565`*^9, 3.7995418441277976`*^9, 3.799541963447136*^9, 
   3.7995421506805525`*^9, 3.7995422292949247`*^9, 3.7995423720431848`*^9, 
   3.799542495996917*^9, 3.7995426016545963`*^9, 3.799542658229248*^9, 
   3.7995428574223404`*^9, 3.799542956436322*^9, 3.7997715843457365`*^9, 
   3.7998502272123175`*^9, 3.7998535528932424`*^9, 3.7998548844105587`*^9, {
   3.800201853819155*^9, 3.8002018827459745`*^9}, 3.800201933355276*^9, 
   3.800201963776552*^9, 3.8002721082824354`*^9, 3.8002721803425293`*^9, 
   3.8002723148054266`*^9, 3.8002725514057407`*^9, 3.8002726577091446`*^9, 
   3.8002726982622633`*^9, 3.8002728149274435`*^9, 3.800273087657186*^9, 
   3.8002732345897837`*^9, 3.8002733338419085`*^9, 3.8002734070296373`*^9, 
   3.8002734913526196`*^9, 3.8002736180153856`*^9, 3.8002736567144127`*^9, 
   3.8002736890767765`*^9, 3.800273726103689*^9, 3.8002737908357534`*^9, 
   3.8002738394706907`*^9, 3.800274009858206*^9, 3.800274087570823*^9, 
   3.800274147305612*^9, 3.800274189566445*^9, 3.800274538091219*^9, 
   3.800274666188002*^9, 3.800274851689474*^9, 3.8002749891931047`*^9, 
   3.800275060631543*^9, 3.8002868193659415`*^9, 3.8002869130239105`*^9, 
   3.8002869620576377`*^9, 3.800287002006309*^9, 3.800287040905095*^9, 
   3.8002870921327343`*^9, 3.8002872199866323`*^9, 3.8002873404693794`*^9, 
   3.8002873777810974`*^9, 3.800287424405756*^9},
 CellLabel->
  "During evaluation of \
In[127]:=",ExpressionUUID->"0ae3fe60-3817-44df-a612-b1c98e1dcee3"],

Cell[BoxData["\<\"  (7)||x-\\!\\(\\*SubscriptBox[\\(a\\), \
\\(i\\)]\\)\\!\\(\\*SuperscriptBox[\\(||\\), \\(2\\)]\\) = \
\\!\\(\\*SuperscriptBox[SubscriptBox[\\(d\\), \\(i\\)], \\(2\\)]\\), \
\\!\\(\\*OverscriptBox[\\(x\\), \\(_\\)]\\) = Q[y  \\!\\(\\*SubscriptBox[\\(y\
\\), \\(k + 1\\)]\\)  z\\!\\(\\*SuperscriptBox[\\(]\\), \\(t\\)]\\)  \
\[Implies] ||Q[y  \\!\\(\\*SubscriptBox[\\(y\\), \\(k + 1\\)]\\)  \
z\\!\\(\\*SuperscriptBox[\\(]\\), \\(t\\)]\\)+\\!\\(\\*SubscriptBox[\\(a\\), \
\\(m\\)]\\)-\\!\\(\\*SubscriptBox[\\(a\\), \
\\(i\\)]\\)\\!\\(\\*SuperscriptBox[\\(||\\), \\(2\\)]\\) = \
\\!\\(\\*SuperscriptBox[SubscriptBox[\\(d\\), \\(i\\)], \\(2\\)]\\)  \
\[Implies] ||[y  \\!\\(\\*SubscriptBox[\\(y\\), \\(k + 1\\)]\\)  \
z\\!\\(\\*SuperscriptBox[\\(]\\), \
\\(t\\)]\\)\\!\\(\\*SuperscriptBox[\\(||\\), \\(2\\)]\\) = \
\\!\\(\\*SuperscriptBox[SubscriptBox[\\(d\\), \\(m\\)], \\(2\\)]\\)  \
\[Implies] ||y\\!\\(\\*SuperscriptBox[\\(||\\), \
\\(2\\)]\\)+\\!\\(\\*SuperscriptBox[SubscriptBox[\\(y\\), \\(k + 1\\)], \
\\(2\\)]\\)+||z\\!\\(\\*SuperscriptBox[\\(||\\), \\(2\\)]\\) = \
\\!\\(\\*SuperscriptBox[SubscriptBox[\\(d\\), \\(m\\)], \\(2\\)]\\)\"\>"], \
"Print",
 CellChangeTimes->{
  3.7994514856257553`*^9, 3.799451641053811*^9, 3.7994519015412626`*^9, 
   3.799451948801059*^9, {3.7994521009495296`*^9, 3.7994521272695317`*^9}, 
   3.7994521806190557`*^9, 3.799452402236618*^9, 3.799452451335967*^9, 
   3.7994525811550303`*^9, {3.799452664664345*^9, 3.7994527227434254`*^9}, 
   3.799452784892699*^9, 3.7994528358923736`*^9, 3.7994529497114677`*^9, 
   3.799453052290346*^9, 3.7994531606896048`*^9, 3.799453332157716*^9, 
   3.7994535559802065`*^9, 3.799489050510669*^9, 3.799489171712022*^9, 
   3.7994893041592617`*^9, 3.799489359392127*^9, 3.7994894007065787`*^9, 
   3.799489441095209*^9, 3.7994895207540703`*^9, 3.7994895984455743`*^9, 
   3.799489642926306*^9, 3.7994897127615175`*^9, 3.7994899171204357`*^9, 
   3.799489956801038*^9, 3.799490051896222*^9, 3.799490988019125*^9, 
   3.7994910269011602`*^9, 3.7994912095041313`*^9, 3.7994918177351856`*^9, {
   3.799491953739182*^9, 3.7994919644589467`*^9}, 3.79949205099209*^9, 
   3.799492200747991*^9, 3.799492235328514*^9, 3.799492276273323*^9, {
   3.7994923836294985`*^9, 3.799492426960415*^9}, 3.7994924632637653`*^9, 
   3.7994925289354687`*^9, 3.7994926038623543`*^9, 3.7994926658032045`*^9, 
   3.7994937349826922`*^9, 3.7994941206968756`*^9, 3.7994941551197863`*^9, 
   3.7994942033517075`*^9, 3.7994943244449215`*^9, 3.799494373812835*^9, 
   3.7995406257395496`*^9, 3.799541185614929*^9, 3.7995413616974535`*^9, 
   3.7995415449997582`*^9, 3.799541585092204*^9, 3.7995417165495358`*^9, 
   3.7995417931508565`*^9, 3.7995418441277976`*^9, 3.799541963447136*^9, 
   3.7995421506805525`*^9, 3.7995422292949247`*^9, 3.7995423720431848`*^9, 
   3.799542495996917*^9, 3.7995426016545963`*^9, 3.799542658229248*^9, 
   3.7995428574223404`*^9, 3.799542956436322*^9, 3.7997715843457365`*^9, 
   3.7998502272123175`*^9, 3.7998535528932424`*^9, 3.7998548844105587`*^9, {
   3.800201853819155*^9, 3.8002018827459745`*^9}, 3.800201933355276*^9, 
   3.800201963776552*^9, 3.8002721082824354`*^9, 3.8002721803425293`*^9, 
   3.8002723148054266`*^9, 3.8002725514057407`*^9, 3.8002726577091446`*^9, 
   3.8002726982622633`*^9, 3.8002728149274435`*^9, 3.800273087657186*^9, 
   3.8002732345897837`*^9, 3.8002733338419085`*^9, 3.8002734070296373`*^9, 
   3.8002734913526196`*^9, 3.8002736180153856`*^9, 3.8002736567144127`*^9, 
   3.8002736890767765`*^9, 3.800273726103689*^9, 3.8002737908357534`*^9, 
   3.8002738394706907`*^9, 3.800274009858206*^9, 3.800274087570823*^9, 
   3.800274147305612*^9, 3.800274189566445*^9, 3.800274538091219*^9, 
   3.800274666188002*^9, 3.800274851689474*^9, 3.8002749891931047`*^9, 
   3.800275060631543*^9, 3.8002868193659415`*^9, 3.8002869130239105`*^9, 
   3.8002869620576377`*^9, 3.800287002006309*^9, 3.800287040905095*^9, 
   3.8002870921327343`*^9, 3.8002872199866323`*^9, 3.8002873404693794`*^9, 
   3.8002873777810974`*^9, 3.8002874244137506`*^9},
 CellLabel->
  "During evaluation of \
In[127]:=",ExpressionUUID->"9f2d1418-64d1-4873-99e9-a513772eab75"],

Cell[BoxData["\<\"  (8) max{\\!\\(\\*UnderscriptBox[\\(b\\), \\(_\\)]\\),-\\!\
\\(\\*SqrtBox[\\(\\(\\*SuperscriptBox[SubscriptBox[\\(d\\), \\(m\\)], \
\\(2\\)]\\(-\\)\\) || y\\*SuperscriptBox[\\(||\\), \\(2\\)]\\)]\\)} \
\[LessEqual] \\!\\(\\*SubscriptBox[\\(y\\), \\(k + 1\\)]\\) \[LessEqual] min{\
\\!\\(\\*OverscriptBox[\\(b\\), \\(_\\)]\\), \
\\!\\(\\*SqrtBox[\\(\\(\\*SuperscriptBox[SubscriptBox[\\(d\\), \\(m\\)], \\(2\
\\)]\\(-\\)\\) || y\\*SuperscriptBox[\\(||\\), \\(2\\)]\\)]\\)},  onde  \
\"\>"], "Print",
 CellChangeTimes->{
  3.7994514856257553`*^9, 3.799451641053811*^9, 3.7994519015412626`*^9, 
   3.799451948801059*^9, {3.7994521009495296`*^9, 3.7994521272695317`*^9}, 
   3.7994521806190557`*^9, 3.799452402236618*^9, 3.799452451335967*^9, 
   3.7994525811550303`*^9, {3.799452664664345*^9, 3.7994527227434254`*^9}, 
   3.799452784892699*^9, 3.7994528358923736`*^9, 3.7994529497114677`*^9, 
   3.799453052290346*^9, 3.7994531606896048`*^9, 3.799453332157716*^9, 
   3.7994535559802065`*^9, 3.799489050510669*^9, 3.799489171712022*^9, 
   3.7994893041592617`*^9, 3.799489359392127*^9, 3.7994894007065787`*^9, 
   3.799489441095209*^9, 3.7994895207540703`*^9, 3.7994895984455743`*^9, 
   3.799489642926306*^9, 3.7994897127615175`*^9, 3.7994899171204357`*^9, 
   3.799489956801038*^9, 3.799490051896222*^9, 3.799490988019125*^9, 
   3.7994910269011602`*^9, 3.7994912095041313`*^9, 3.7994918177351856`*^9, {
   3.799491953739182*^9, 3.7994919644589467`*^9}, 3.79949205099209*^9, 
   3.799492200747991*^9, 3.799492235328514*^9, 3.799492276273323*^9, {
   3.7994923836294985`*^9, 3.799492426960415*^9}, 3.7994924632637653`*^9, 
   3.7994925289354687`*^9, 3.7994926038623543`*^9, 3.7994926658032045`*^9, 
   3.7994937349826922`*^9, 3.7994941206968756`*^9, 3.7994941551197863`*^9, 
   3.7994942033517075`*^9, 3.7994943244449215`*^9, 3.799494373812835*^9, 
   3.7995406257395496`*^9, 3.799541185614929*^9, 3.7995413616974535`*^9, 
   3.7995415449997582`*^9, 3.799541585092204*^9, 3.7995417165495358`*^9, 
   3.7995417931508565`*^9, 3.7995418441277976`*^9, 3.799541963447136*^9, 
   3.7995421506805525`*^9, 3.7995422292949247`*^9, 3.7995423720431848`*^9, 
   3.799542495996917*^9, 3.7995426016545963`*^9, 3.799542658229248*^9, 
   3.7995428574223404`*^9, 3.799542956436322*^9, 3.7997715843457365`*^9, 
   3.7998502272123175`*^9, 3.7998535528932424`*^9, 3.7998548844105587`*^9, {
   3.800201853819155*^9, 3.8002018827459745`*^9}, 3.800201933355276*^9, 
   3.800201963776552*^9, 3.8002721082824354`*^9, 3.8002721803425293`*^9, 
   3.8002723148054266`*^9, 3.8002725514057407`*^9, 3.8002726577091446`*^9, 
   3.8002726982622633`*^9, 3.8002728149274435`*^9, 3.800273087657186*^9, 
   3.8002732345897837`*^9, 3.8002733338419085`*^9, 3.8002734070296373`*^9, 
   3.8002734913526196`*^9, 3.8002736180153856`*^9, 3.8002736567144127`*^9, 
   3.8002736890767765`*^9, 3.800273726103689*^9, 3.8002737908357534`*^9, 
   3.8002738394706907`*^9, 3.800274009858206*^9, 3.800274087570823*^9, 
   3.800274147305612*^9, 3.800274189566445*^9, 3.800274538091219*^9, 
   3.800274666188002*^9, 3.800274851689474*^9, 3.8002749891931047`*^9, 
   3.800275060631543*^9, 3.8002868193659415`*^9, 3.8002869130239105`*^9, 
   3.8002869620576377`*^9, 3.800287002006309*^9, 3.800287040905095*^9, 
   3.8002870921327343`*^9, 3.8002872199866323`*^9, 3.8002873404693794`*^9, 
   3.8002873777810974`*^9, 3.8002874244217467`*^9},
 CellLabel->
  "During evaluation of \
In[127]:=",ExpressionUUID->"6ba9e315-148e-4860-97e5-d40a0de94fbc"],

Cell[BoxData["\<\"      \\!\\(\\*UnderscriptBox[\\(b\\), \\(_\\)]\\):=(\\!\\(\
\\*SubscriptBox[UnderscriptBox[\\(c\\), \\(_\\)], \\(m + \
1\\)]\\)-\\!\\(\\*SuperscriptBox[SubscriptBox[OverscriptBox[\\(r\\), \
\\(^\\)], \\(k + 1\\)], \
\\(t\\)]\\)y)/\\!\\(\\*SubscriptBox[OverscriptBox[\\(r\\), \\(^\\)], \\(k + \
1, k + 1\\)]\\), \\!\\(\\*OverscriptBox[\\(b\\), \
\\(_\\)]\\):=(\\!\\(\\*SubscriptBox[OverscriptBox[\\(c\\), \\(_\\)], \\(m + 1\
\\)]\\)-\\!\\(\\*SuperscriptBox[SubscriptBox[OverscriptBox[\\(r\\), \\(^\\)], \
\\(k + 1\\)], \\(t\\)]\\)y)/\\!\\(\\*SubscriptBox[OverscriptBox[\\(r\\), \\(^\
\\)], \\(k + 1, k + 1\\)]\\),  se  \
\\!\\(\\*SubscriptBox[OverscriptBox[\\(r\\), \\(^\\)], \\(k + 1, k + 1\\)]\\) \
> 0 \"\>"], "Print",
 CellChangeTimes->{
  3.7994514856257553`*^9, 3.799451641053811*^9, 3.7994519015412626`*^9, 
   3.799451948801059*^9, {3.7994521009495296`*^9, 3.7994521272695317`*^9}, 
   3.7994521806190557`*^9, 3.799452402236618*^9, 3.799452451335967*^9, 
   3.7994525811550303`*^9, {3.799452664664345*^9, 3.7994527227434254`*^9}, 
   3.799452784892699*^9, 3.7994528358923736`*^9, 3.7994529497114677`*^9, 
   3.799453052290346*^9, 3.7994531606896048`*^9, 3.799453332157716*^9, 
   3.7994535559802065`*^9, 3.799489050510669*^9, 3.799489171712022*^9, 
   3.7994893041592617`*^9, 3.799489359392127*^9, 3.7994894007065787`*^9, 
   3.799489441095209*^9, 3.7994895207540703`*^9, 3.7994895984455743`*^9, 
   3.799489642926306*^9, 3.7994897127615175`*^9, 3.7994899171204357`*^9, 
   3.799489956801038*^9, 3.799490051896222*^9, 3.799490988019125*^9, 
   3.7994910269011602`*^9, 3.7994912095041313`*^9, 3.7994918177351856`*^9, {
   3.799491953739182*^9, 3.7994919644589467`*^9}, 3.79949205099209*^9, 
   3.799492200747991*^9, 3.799492235328514*^9, 3.799492276273323*^9, {
   3.7994923836294985`*^9, 3.799492426960415*^9}, 3.7994924632637653`*^9, 
   3.7994925289354687`*^9, 3.7994926038623543`*^9, 3.7994926658032045`*^9, 
   3.7994937349826922`*^9, 3.7994941206968756`*^9, 3.7994941551197863`*^9, 
   3.7994942033517075`*^9, 3.7994943244449215`*^9, 3.799494373812835*^9, 
   3.7995406257395496`*^9, 3.799541185614929*^9, 3.7995413616974535`*^9, 
   3.7995415449997582`*^9, 3.799541585092204*^9, 3.7995417165495358`*^9, 
   3.7995417931508565`*^9, 3.7995418441277976`*^9, 3.799541963447136*^9, 
   3.7995421506805525`*^9, 3.7995422292949247`*^9, 3.7995423720431848`*^9, 
   3.799542495996917*^9, 3.7995426016545963`*^9, 3.799542658229248*^9, 
   3.7995428574223404`*^9, 3.799542956436322*^9, 3.7997715843457365`*^9, 
   3.7998502272123175`*^9, 3.7998535528932424`*^9, 3.7998548844105587`*^9, {
   3.800201853819155*^9, 3.8002018827459745`*^9}, 3.800201933355276*^9, 
   3.800201963776552*^9, 3.8002721082824354`*^9, 3.8002721803425293`*^9, 
   3.8002723148054266`*^9, 3.8002725514057407`*^9, 3.8002726577091446`*^9, 
   3.8002726982622633`*^9, 3.8002728149274435`*^9, 3.800273087657186*^9, 
   3.8002732345897837`*^9, 3.8002733338419085`*^9, 3.8002734070296373`*^9, 
   3.8002734913526196`*^9, 3.8002736180153856`*^9, 3.8002736567144127`*^9, 
   3.8002736890767765`*^9, 3.800273726103689*^9, 3.8002737908357534`*^9, 
   3.8002738394706907`*^9, 3.800274009858206*^9, 3.800274087570823*^9, 
   3.800274147305612*^9, 3.800274189566445*^9, 3.800274538091219*^9, 
   3.800274666188002*^9, 3.800274851689474*^9, 3.8002749891931047`*^9, 
   3.800275060631543*^9, 3.8002868193659415`*^9, 3.8002869130239105`*^9, 
   3.8002869620576377`*^9, 3.800287002006309*^9, 3.800287040905095*^9, 
   3.8002870921327343`*^9, 3.8002872199866323`*^9, 3.8002873404693794`*^9, 
   3.8002873777810974`*^9, 3.8002874244427314`*^9},
 CellLabel->
  "During evaluation of \
In[127]:=",ExpressionUUID->"b415d29c-c92d-4899-9154-97bf5cc33ccc"],

Cell[BoxData["\<\"      \\!\\(\\*UnderscriptBox[\\(b\\), \\(_\\)]\\):=(\\!\\(\
\\*SubscriptBox[OverscriptBox[\\(c\\), \\(_\\)], \\(m + \
1\\)]\\)-\\!\\(\\*SuperscriptBox[SubscriptBox[OverscriptBox[\\(r\\), \
\\(^\\)], \\(k + 1\\)], \
\\(t\\)]\\)y)/\\!\\(\\*SubscriptBox[OverscriptBox[\\(r\\), \\(^\\)], \\(k + \
1, k + 1\\)]\\), \\!\\(\\*OverscriptBox[\\(b\\), \
\\(_\\)]\\):=(\\!\\(\\*SubscriptBox[UnderscriptBox[\\(c\\), \\(_\\)], \\(m + \
1\\)]\\)-\\!\\(\\*SuperscriptBox[SubscriptBox[OverscriptBox[\\(r\\), \
\\(^\\)], \\(k + 1\\)], \
\\(t\\)]\\)y)/\\!\\(\\*SubscriptBox[OverscriptBox[\\(r\\), \\(^\\)], \\(k + \
1, k + 1\\)]\\),  se  \\!\\(\\*SubscriptBox[OverscriptBox[\\(r\\), \\(^\\)], \
\\(k + 1, k + 1\\)]\\) < 0 \"\>"], "Print",
 CellChangeTimes->{
  3.7994514856257553`*^9, 3.799451641053811*^9, 3.7994519015412626`*^9, 
   3.799451948801059*^9, {3.7994521009495296`*^9, 3.7994521272695317`*^9}, 
   3.7994521806190557`*^9, 3.799452402236618*^9, 3.799452451335967*^9, 
   3.7994525811550303`*^9, {3.799452664664345*^9, 3.7994527227434254`*^9}, 
   3.799452784892699*^9, 3.7994528358923736`*^9, 3.7994529497114677`*^9, 
   3.799453052290346*^9, 3.7994531606896048`*^9, 3.799453332157716*^9, 
   3.7994535559802065`*^9, 3.799489050510669*^9, 3.799489171712022*^9, 
   3.7994893041592617`*^9, 3.799489359392127*^9, 3.7994894007065787`*^9, 
   3.799489441095209*^9, 3.7994895207540703`*^9, 3.7994895984455743`*^9, 
   3.799489642926306*^9, 3.7994897127615175`*^9, 3.7994899171204357`*^9, 
   3.799489956801038*^9, 3.799490051896222*^9, 3.799490988019125*^9, 
   3.7994910269011602`*^9, 3.7994912095041313`*^9, 3.7994918177351856`*^9, {
   3.799491953739182*^9, 3.7994919644589467`*^9}, 3.79949205099209*^9, 
   3.799492200747991*^9, 3.799492235328514*^9, 3.799492276273323*^9, {
   3.7994923836294985`*^9, 3.799492426960415*^9}, 3.7994924632637653`*^9, 
   3.7994925289354687`*^9, 3.7994926038623543`*^9, 3.7994926658032045`*^9, 
   3.7994937349826922`*^9, 3.7994941206968756`*^9, 3.7994941551197863`*^9, 
   3.7994942033517075`*^9, 3.7994943244449215`*^9, 3.799494373812835*^9, 
   3.7995406257395496`*^9, 3.799541185614929*^9, 3.7995413616974535`*^9, 
   3.7995415449997582`*^9, 3.799541585092204*^9, 3.7995417165495358`*^9, 
   3.7995417931508565`*^9, 3.7995418441277976`*^9, 3.799541963447136*^9, 
   3.7995421506805525`*^9, 3.7995422292949247`*^9, 3.7995423720431848`*^9, 
   3.799542495996917*^9, 3.7995426016545963`*^9, 3.799542658229248*^9, 
   3.7995428574223404`*^9, 3.799542956436322*^9, 3.7997715843457365`*^9, 
   3.7998502272123175`*^9, 3.7998535528932424`*^9, 3.7998548844105587`*^9, {
   3.800201853819155*^9, 3.8002018827459745`*^9}, 3.800201933355276*^9, 
   3.800201963776552*^9, 3.8002721082824354`*^9, 3.8002721803425293`*^9, 
   3.8002723148054266`*^9, 3.8002725514057407`*^9, 3.8002726577091446`*^9, 
   3.8002726982622633`*^9, 3.8002728149274435`*^9, 3.800273087657186*^9, 
   3.8002732345897837`*^9, 3.8002733338419085`*^9, 3.8002734070296373`*^9, 
   3.8002734913526196`*^9, 3.8002736180153856`*^9, 3.8002736567144127`*^9, 
   3.8002736890767765`*^9, 3.800273726103689*^9, 3.8002737908357534`*^9, 
   3.8002738394706907`*^9, 3.800274009858206*^9, 3.800274087570823*^9, 
   3.800274147305612*^9, 3.800274189566445*^9, 3.800274538091219*^9, 
   3.800274666188002*^9, 3.800274851689474*^9, 3.8002749891931047`*^9, 
   3.800275060631543*^9, 3.8002868193659415`*^9, 3.8002869130239105`*^9, 
   3.8002869620576377`*^9, 3.800287002006309*^9, 3.800287040905095*^9, 
   3.8002870921327343`*^9, 3.8002872199866323`*^9, 3.8002873404693794`*^9, 
   3.8002873777810974`*^9, 3.800287424451727*^9},
 CellLabel->
  "During evaluation of \
In[127]:=",ExpressionUUID->"75cfa24d-ffe8-4f70-945f-3d1df6110fa6"],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{
  3.7994514856257553`*^9, 3.799451641053811*^9, 3.7994519015412626`*^9, 
   3.799451948801059*^9, {3.7994521009495296`*^9, 3.7994521272695317`*^9}, 
   3.7994521806190557`*^9, 3.799452402236618*^9, 3.799452451335967*^9, 
   3.7994525811550303`*^9, {3.799452664664345*^9, 3.7994527227434254`*^9}, 
   3.799452784892699*^9, 3.7994528358923736`*^9, 3.7994529497114677`*^9, 
   3.799453052290346*^9, 3.7994531606896048`*^9, 3.799453332157716*^9, 
   3.7994535559802065`*^9, 3.799489050510669*^9, 3.799489171712022*^9, 
   3.7994893041592617`*^9, 3.799489359392127*^9, 3.7994894007065787`*^9, 
   3.799489441095209*^9, 3.7994895207540703`*^9, 3.7994895984455743`*^9, 
   3.799489642926306*^9, 3.7994897127615175`*^9, 3.7994899171204357`*^9, 
   3.799489956801038*^9, 3.799490051896222*^9, 3.799490988019125*^9, 
   3.7994910269011602`*^9, 3.7994912095041313`*^9, 3.7994918177351856`*^9, {
   3.799491953739182*^9, 3.7994919644589467`*^9}, 3.79949205099209*^9, 
   3.799492200747991*^9, 3.799492235328514*^9, 3.799492276273323*^9, {
   3.7994923836294985`*^9, 3.799492426960415*^9}, 3.7994924632637653`*^9, 
   3.7994925289354687`*^9, 3.7994926038623543`*^9, 3.7994926658032045`*^9, 
   3.7994937349826922`*^9, 3.7994941206968756`*^9, 3.7994941551197863`*^9, 
   3.7994942033517075`*^9, 3.7994943244449215`*^9, 3.799494373812835*^9, 
   3.7995406257395496`*^9, 3.799541185614929*^9, 3.7995413616974535`*^9, 
   3.7995415449997582`*^9, 3.799541585092204*^9, 3.7995417165495358`*^9, 
   3.7995417931508565`*^9, 3.7995418441277976`*^9, 3.799541963447136*^9, 
   3.7995421506805525`*^9, 3.7995422292949247`*^9, 3.7995423720431848`*^9, 
   3.799542495996917*^9, 3.7995426016545963`*^9, 3.799542658229248*^9, 
   3.7995428574223404`*^9, 3.799542956436322*^9, 3.7997715843457365`*^9, 
   3.7998502272123175`*^9, 3.7998535528932424`*^9, 3.7998548844105587`*^9, {
   3.800201853819155*^9, 3.8002018827459745`*^9}, 3.800201933355276*^9, 
   3.800201963776552*^9, 3.8002721082824354`*^9, 3.8002721803425293`*^9, 
   3.8002723148054266`*^9, 3.8002725514057407`*^9, 3.8002726577091446`*^9, 
   3.8002726982622633`*^9, 3.8002728149274435`*^9, 3.800273087657186*^9, 
   3.8002732345897837`*^9, 3.8002733338419085`*^9, 3.8002734070296373`*^9, 
   3.8002734913526196`*^9, 3.8002736180153856`*^9, 3.8002736567144127`*^9, 
   3.8002736890767765`*^9, 3.800273726103689*^9, 3.8002737908357534`*^9, 
   3.8002738394706907`*^9, 3.800274009858206*^9, 3.800274087570823*^9, 
   3.800274147305612*^9, 3.800274189566445*^9, 3.800274538091219*^9, 
   3.800274666188002*^9, 3.800274851689474*^9, 3.8002749891931047`*^9, 
   3.800275060631543*^9, 3.8002868193659415`*^9, 3.8002869130239105`*^9, 
   3.8002869620576377`*^9, 3.800287002006309*^9, 3.800287040905095*^9, 
   3.8002870921327343`*^9, 3.8002872199866323`*^9, 3.8002873404693794`*^9, 
   3.8002873777810974`*^9, 3.8002874244607215`*^9},
 CellLabel->
  "During evaluation of \
In[127]:=",ExpressionUUID->"15608a09-73d1-46ee-aedc-18e19491cff4"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\">> d = \"\>", "\[InvisibleSpace]", 
   StyleBox[
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", "3.1102`", "}"}], ",", 
      RowBox[{"{", "1.3`", "}"}]}], "}"}],
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]], 
   "\[InvisibleSpace]", "\<\", \[CapitalAHat] = \"\>", "\[InvisibleSpace]", 
   StyleBox[
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1"}], ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1.1133`"}], ",", 
        RowBox[{"-", "1.1133`"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1.3268`"}], ",", 
        RowBox[{"-", "1.3268`"}]}], "}"}]}], "}"}],
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]]}],
  SequenceForm[">> d = ", 
   Style[{{3.1102}, {1.3}}, 
    RGBColor[1, 0, 0]], ", \[CapitalAHat] = ", 
   Style[{{-1, 3}, {-1.1133, -1.1133}, {-1.3268, -1.3268}}, 
    RGBColor[1, 0, 0]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7994514856257553`*^9, 3.799451641053811*^9, 3.7994519015412626`*^9, 
   3.799451948801059*^9, {3.7994521009495296`*^9, 3.7994521272695317`*^9}, 
   3.7994521806190557`*^9, 3.799452402236618*^9, 3.799452451335967*^9, 
   3.7994525811550303`*^9, {3.799452664664345*^9, 3.7994527227434254`*^9}, 
   3.799452784892699*^9, 3.7994528358923736`*^9, 3.7994529497114677`*^9, 
   3.799453052290346*^9, 3.7994531606896048`*^9, 3.799453332157716*^9, 
   3.7994535559802065`*^9, 3.799489050510669*^9, 3.799489171712022*^9, 
   3.7994893041592617`*^9, 3.799489359392127*^9, 3.7994894007065787`*^9, 
   3.799489441095209*^9, 3.7994895207540703`*^9, 3.7994895984455743`*^9, 
   3.799489642926306*^9, 3.7994897127615175`*^9, 3.7994899171204357`*^9, 
   3.799489956801038*^9, 3.799490051896222*^9, 3.799490988019125*^9, 
   3.7994910269011602`*^9, 3.7994912095041313`*^9, 3.7994918177351856`*^9, {
   3.799491953739182*^9, 3.7994919644589467`*^9}, 3.79949205099209*^9, 
   3.799492200747991*^9, 3.799492235328514*^9, 3.799492276273323*^9, {
   3.7994923836294985`*^9, 3.799492426960415*^9}, 3.7994924632637653`*^9, 
   3.7994925289354687`*^9, 3.7994926038623543`*^9, 3.7994926658032045`*^9, 
   3.7994937349826922`*^9, 3.7994941206968756`*^9, 3.7994941551197863`*^9, 
   3.7994942033517075`*^9, 3.7994943244449215`*^9, 3.799494373812835*^9, 
   3.7995406257395496`*^9, 3.799541185614929*^9, 3.7995413616974535`*^9, 
   3.7995415449997582`*^9, 3.799541585092204*^9, 3.7995417165495358`*^9, 
   3.7995417931508565`*^9, 3.7995418441277976`*^9, 3.799541963447136*^9, 
   3.7995421506805525`*^9, 3.7995422292949247`*^9, 3.7995423720431848`*^9, 
   3.799542495996917*^9, 3.7995426016545963`*^9, 3.799542658229248*^9, 
   3.7995428574223404`*^9, 3.799542956436322*^9, 3.7997715843457365`*^9, 
   3.7998502272123175`*^9, 3.7998535528932424`*^9, 3.7998548844105587`*^9, {
   3.800201853819155*^9, 3.8002018827459745`*^9}, 3.800201933355276*^9, 
   3.800201963776552*^9, 3.8002721082824354`*^9, 3.8002721803425293`*^9, 
   3.8002723148054266`*^9, 3.8002725514057407`*^9, 3.8002726577091446`*^9, 
   3.8002726982622633`*^9, 3.8002728149274435`*^9, 3.800273087657186*^9, 
   3.8002732345897837`*^9, 3.8002733338419085`*^9, 3.8002734070296373`*^9, 
   3.8002734913526196`*^9, 3.8002736180153856`*^9, 3.8002736567144127`*^9, 
   3.8002736890767765`*^9, 3.800273726103689*^9, 3.8002737908357534`*^9, 
   3.8002738394706907`*^9, 3.800274009858206*^9, 3.800274087570823*^9, 
   3.800274147305612*^9, 3.800274189566445*^9, 3.800274538091219*^9, 
   3.800274666188002*^9, 3.800274851689474*^9, 3.8002749891931047`*^9, 
   3.800275060631543*^9, 3.8002868193659415`*^9, 3.8002869130239105`*^9, 
   3.8002869620576377`*^9, 3.800287002006309*^9, 3.800287040905095*^9, 
   3.8002870921327343`*^9, 3.8002872199866323`*^9, 3.8002873404693794`*^9, 
   3.8002873777810974`*^9, 3.8002874244657187`*^9},
 CellLabel->
  "During evaluation of \
In[127]:=",ExpressionUUID->"eaec233b-2032-4066-8b12-8410fd8dc6b0"],

Cell[BoxData["\<\">> ok 1 <<\"\>"], "Print",
 CellChangeTimes->{
  3.7994514856257553`*^9, 3.799451641053811*^9, 3.7994519015412626`*^9, 
   3.799451948801059*^9, {3.7994521009495296`*^9, 3.7994521272695317`*^9}, 
   3.7994521806190557`*^9, 3.799452402236618*^9, 3.799452451335967*^9, 
   3.7994525811550303`*^9, {3.799452664664345*^9, 3.7994527227434254`*^9}, 
   3.799452784892699*^9, 3.7994528358923736`*^9, 3.7994529497114677`*^9, 
   3.799453052290346*^9, 3.7994531606896048`*^9, 3.799453332157716*^9, 
   3.7994535559802065`*^9, 3.799489050510669*^9, 3.799489171712022*^9, 
   3.7994893041592617`*^9, 3.799489359392127*^9, 3.7994894007065787`*^9, 
   3.799489441095209*^9, 3.7994895207540703`*^9, 3.7994895984455743`*^9, 
   3.799489642926306*^9, 3.7994897127615175`*^9, 3.7994899171204357`*^9, 
   3.799489956801038*^9, 3.799490051896222*^9, 3.799490988019125*^9, 
   3.7994910269011602`*^9, 3.7994912095041313`*^9, 3.7994918177351856`*^9, {
   3.799491953739182*^9, 3.7994919644589467`*^9}, 3.79949205099209*^9, 
   3.799492200747991*^9, 3.799492235328514*^9, 3.799492276273323*^9, {
   3.7994923836294985`*^9, 3.799492426960415*^9}, 3.7994924632637653`*^9, 
   3.7994925289354687`*^9, 3.7994926038623543`*^9, 3.7994926658032045`*^9, 
   3.7994937349826922`*^9, 3.7994941206968756`*^9, 3.7994941551197863`*^9, 
   3.7994942033517075`*^9, 3.7994943244449215`*^9, 3.799494373812835*^9, 
   3.7995406257395496`*^9, 3.799541185614929*^9, 3.7995413616974535`*^9, 
   3.7995415449997582`*^9, 3.799541585092204*^9, 3.7995417165495358`*^9, 
   3.7995417931508565`*^9, 3.7995418441277976`*^9, 3.799541963447136*^9, 
   3.7995421506805525`*^9, 3.7995422292949247`*^9, 3.7995423720431848`*^9, 
   3.799542495996917*^9, 3.7995426016545963`*^9, 3.799542658229248*^9, 
   3.7995428574223404`*^9, 3.799542956436322*^9, 3.7997715843457365`*^9, 
   3.7998502272123175`*^9, 3.7998535528932424`*^9, 3.7998548844105587`*^9, {
   3.800201853819155*^9, 3.8002018827459745`*^9}, 3.800201933355276*^9, 
   3.800201963776552*^9, 3.8002721082824354`*^9, 3.8002721803425293`*^9, 
   3.8002723148054266`*^9, 3.8002725514057407`*^9, 3.8002726577091446`*^9, 
   3.8002726982622633`*^9, 3.8002728149274435`*^9, 3.800273087657186*^9, 
   3.8002732345897837`*^9, 3.8002733338419085`*^9, 3.8002734070296373`*^9, 
   3.8002734913526196`*^9, 3.8002736180153856`*^9, 3.8002736567144127`*^9, 
   3.8002736890767765`*^9, 3.800273726103689*^9, 3.8002737908357534`*^9, 
   3.8002738394706907`*^9, 3.800274009858206*^9, 3.800274087570823*^9, 
   3.800274147305612*^9, 3.800274189566445*^9, 3.800274538091219*^9, 
   3.800274666188002*^9, 3.800274851689474*^9, 3.8002749891931047`*^9, 
   3.800275060631543*^9, 3.8002868193659415`*^9, 3.8002869130239105`*^9, 
   3.8002869620576377`*^9, 3.800287002006309*^9, 3.800287040905095*^9, 
   3.8002870921327343`*^9, 3.8002872199866323`*^9, 3.8002873404693794`*^9, 
   3.8002873777810974`*^9, 3.8002874244687166`*^9},
 CellLabel->
  "During evaluation of \
In[127]:=",ExpressionUUID->"a6d38f88-9097-44c7-99a6-5461b4a955b7"],

Cell[BoxData["\<\">> ok 2 <<\"\>"], "Print",
 CellChangeTimes->{
  3.7994514856257553`*^9, 3.799451641053811*^9, 3.7994519015412626`*^9, 
   3.799451948801059*^9, {3.7994521009495296`*^9, 3.7994521272695317`*^9}, 
   3.7994521806190557`*^9, 3.799452402236618*^9, 3.799452451335967*^9, 
   3.7994525811550303`*^9, {3.799452664664345*^9, 3.7994527227434254`*^9}, 
   3.799452784892699*^9, 3.7994528358923736`*^9, 3.7994529497114677`*^9, 
   3.799453052290346*^9, 3.7994531606896048`*^9, 3.799453332157716*^9, 
   3.7994535559802065`*^9, 3.799489050510669*^9, 3.799489171712022*^9, 
   3.7994893041592617`*^9, 3.799489359392127*^9, 3.7994894007065787`*^9, 
   3.799489441095209*^9, 3.7994895207540703`*^9, 3.7994895984455743`*^9, 
   3.799489642926306*^9, 3.7994897127615175`*^9, 3.7994899171204357`*^9, 
   3.799489956801038*^9, 3.799490051896222*^9, 3.799490988019125*^9, 
   3.7994910269011602`*^9, 3.7994912095041313`*^9, 3.7994918177351856`*^9, {
   3.799491953739182*^9, 3.7994919644589467`*^9}, 3.79949205099209*^9, 
   3.799492200747991*^9, 3.799492235328514*^9, 3.799492276273323*^9, {
   3.7994923836294985`*^9, 3.799492426960415*^9}, 3.7994924632637653`*^9, 
   3.7994925289354687`*^9, 3.7994926038623543`*^9, 3.7994926658032045`*^9, 
   3.7994937349826922`*^9, 3.7994941206968756`*^9, 3.7994941551197863`*^9, 
   3.7994942033517075`*^9, 3.7994943244449215`*^9, 3.799494373812835*^9, 
   3.7995406257395496`*^9, 3.799541185614929*^9, 3.7995413616974535`*^9, 
   3.7995415449997582`*^9, 3.799541585092204*^9, 3.7995417165495358`*^9, 
   3.7995417931508565`*^9, 3.7995418441277976`*^9, 3.799541963447136*^9, 
   3.7995421506805525`*^9, 3.7995422292949247`*^9, 3.7995423720431848`*^9, 
   3.799542495996917*^9, 3.7995426016545963`*^9, 3.799542658229248*^9, 
   3.7995428574223404`*^9, 3.799542956436322*^9, 3.7997715843457365`*^9, 
   3.7998502272123175`*^9, 3.7998535528932424`*^9, 3.7998548844105587`*^9, {
   3.800201853819155*^9, 3.8002018827459745`*^9}, 3.800201933355276*^9, 
   3.800201963776552*^9, 3.8002721082824354`*^9, 3.8002721803425293`*^9, 
   3.8002723148054266`*^9, 3.8002725514057407`*^9, 3.8002726577091446`*^9, 
   3.8002726982622633`*^9, 3.8002728149274435`*^9, 3.800273087657186*^9, 
   3.8002732345897837`*^9, 3.8002733338419085`*^9, 3.8002734070296373`*^9, 
   3.8002734913526196`*^9, 3.8002736180153856`*^9, 3.8002736567144127`*^9, 
   3.8002736890767765`*^9, 3.800273726103689*^9, 3.8002737908357534`*^9, 
   3.8002738394706907`*^9, 3.800274009858206*^9, 3.800274087570823*^9, 
   3.800274147305612*^9, 3.800274189566445*^9, 3.800274538091219*^9, 
   3.800274666188002*^9, 3.800274851689474*^9, 3.8002749891931047`*^9, 
   3.800275060631543*^9, 3.8002868193659415`*^9, 3.8002869130239105`*^9, 
   3.8002869620576377`*^9, 3.800287002006309*^9, 3.800287040905095*^9, 
   3.8002870921327343`*^9, 3.8002872199866323`*^9, 3.8002873404693794`*^9, 
   3.8002873777810974`*^9, 3.800287424471715*^9},
 CellLabel->
  "During evaluation of \
In[127]:=",ExpressionUUID->"5d743b15-c8c4-4184-9837-32d532eb8761"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\">> R = \"\>", "\[InvisibleSpace]", 
   StyleBox[
    TagBox[
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {"1.999958782075271`", 
         RowBox[{"-", "0.00008243669893459593`"}]},
        {"0", "3.4640778171403985`"},
        {"0", "0"}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}], "\[NoBreak]", ")"}],
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]],
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]]}],
  SequenceForm[">> R = ", 
   Style[
    MatrixForm[{{1.999958782075271, -0.00008243669893459593}, {
      0, 3.4640778171403985`}, {0, 0}}], 
    RGBColor[1, 0, 0]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7994514856257553`*^9, 3.799451641053811*^9, 3.7994519015412626`*^9, 
   3.799451948801059*^9, {3.7994521009495296`*^9, 3.7994521272695317`*^9}, 
   3.7994521806190557`*^9, 3.799452402236618*^9, 3.799452451335967*^9, 
   3.7994525811550303`*^9, {3.799452664664345*^9, 3.7994527227434254`*^9}, 
   3.799452784892699*^9, 3.7994528358923736`*^9, 3.7994529497114677`*^9, 
   3.799453052290346*^9, 3.7994531606896048`*^9, 3.799453332157716*^9, 
   3.7994535559802065`*^9, 3.799489050510669*^9, 3.799489171712022*^9, 
   3.7994893041592617`*^9, 3.799489359392127*^9, 3.7994894007065787`*^9, 
   3.799489441095209*^9, 3.7994895207540703`*^9, 3.7994895984455743`*^9, 
   3.799489642926306*^9, 3.7994897127615175`*^9, 3.7994899171204357`*^9, 
   3.799489956801038*^9, 3.799490051896222*^9, 3.799490988019125*^9, 
   3.7994910269011602`*^9, 3.7994912095041313`*^9, 3.7994918177351856`*^9, {
   3.799491953739182*^9, 3.7994919644589467`*^9}, 3.79949205099209*^9, 
   3.799492200747991*^9, 3.799492235328514*^9, 3.799492276273323*^9, {
   3.7994923836294985`*^9, 3.799492426960415*^9}, 3.7994924632637653`*^9, 
   3.7994925289354687`*^9, 3.7994926038623543`*^9, 3.7994926658032045`*^9, 
   3.7994937349826922`*^9, 3.7994941206968756`*^9, 3.7994941551197863`*^9, 
   3.7994942033517075`*^9, 3.7994943244449215`*^9, 3.799494373812835*^9, 
   3.7995406257395496`*^9, 3.799541185614929*^9, 3.7995413616974535`*^9, 
   3.7995415449997582`*^9, 3.799541585092204*^9, 3.7995417165495358`*^9, 
   3.7995417931508565`*^9, 3.7995418441277976`*^9, 3.799541963447136*^9, 
   3.7995421506805525`*^9, 3.7995422292949247`*^9, 3.7995423720431848`*^9, 
   3.799542495996917*^9, 3.7995426016545963`*^9, 3.799542658229248*^9, 
   3.7995428574223404`*^9, 3.799542956436322*^9, 3.7997715843457365`*^9, 
   3.7998502272123175`*^9, 3.7998535528932424`*^9, 3.7998548844105587`*^9, {
   3.800201853819155*^9, 3.8002018827459745`*^9}, 3.800201933355276*^9, 
   3.800201963776552*^9, 3.8002721082824354`*^9, 3.8002721803425293`*^9, 
   3.8002723148054266`*^9, 3.8002725514057407`*^9, 3.8002726577091446`*^9, 
   3.8002726982622633`*^9, 3.8002728149274435`*^9, 3.800273087657186*^9, 
   3.8002732345897837`*^9, 3.8002733338419085`*^9, 3.8002734070296373`*^9, 
   3.8002734913526196`*^9, 3.8002736180153856`*^9, 3.8002736567144127`*^9, 
   3.8002736890767765`*^9, 3.800273726103689*^9, 3.8002737908357534`*^9, 
   3.8002738394706907`*^9, 3.800274009858206*^9, 3.800274087570823*^9, 
   3.800274147305612*^9, 3.800274189566445*^9, 3.800274538091219*^9, 
   3.800274666188002*^9, 3.800274851689474*^9, 3.8002749891931047`*^9, 
   3.800275060631543*^9, 3.8002868193659415`*^9, 3.8002869130239105`*^9, 
   3.8002869620576377`*^9, 3.800287002006309*^9, 3.800287040905095*^9, 
   3.8002870921327343`*^9, 3.8002872199866323`*^9, 3.8002873404693794`*^9, 
   3.8002873777810974`*^9, 3.8002874244757123`*^9},
 CellLabel->
  "During evaluation of \
In[127]:=",ExpressionUUID->"b73530bf-c207-4c1b-a079-ede5e4485a62"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\">> \\!\\(\\*OverscriptBox[\\(R\\), \\(^\\)]\\) = \"\>", 
   "\[InvisibleSpace]", 
   StyleBox[
    TagBox[
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {"1.999958782075271`"}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}], "\[NoBreak]", ")"}],
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]],
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]], 
   "\[InvisibleSpace]", "\<\",  c = [\\!\\(\\*SubscriptBox[\\(c\\), \
\\(i\\)]\\)] = \"\>", "\[InvisibleSpace]", 
   StyleBox[
    RowBox[{"{", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"-", "1.9917544549999997`"}], "}"}], "}"}], "}"}],
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]]}],
  SequenceForm[">> \!\(\*OverscriptBox[\(R\), \(^\)]\) = ", 
   Style[
    MatrixForm[{{1.999958782075271}}], 
    RGBColor[1, 0, 0]], ",  c = [\!\(\*SubscriptBox[\(c\), \(i\)]\)] = ", 
   Style[{{{-1.9917544549999997`}}}, 
    RGBColor[1, 0, 0]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7994514856257553`*^9, 3.799451641053811*^9, 3.7994519015412626`*^9, 
   3.799451948801059*^9, {3.7994521009495296`*^9, 3.7994521272695317`*^9}, 
   3.7994521806190557`*^9, 3.799452402236618*^9, 3.799452451335967*^9, 
   3.7994525811550303`*^9, {3.799452664664345*^9, 3.7994527227434254`*^9}, 
   3.799452784892699*^9, 3.7994528358923736`*^9, 3.7994529497114677`*^9, 
   3.799453052290346*^9, 3.7994531606896048`*^9, 3.799453332157716*^9, 
   3.7994535559802065`*^9, 3.799489050510669*^9, 3.799489171712022*^9, 
   3.7994893041592617`*^9, 3.799489359392127*^9, 3.7994894007065787`*^9, 
   3.799489441095209*^9, 3.7994895207540703`*^9, 3.7994895984455743`*^9, 
   3.799489642926306*^9, 3.7994897127615175`*^9, 3.7994899171204357`*^9, 
   3.799489956801038*^9, 3.799490051896222*^9, 3.799490988019125*^9, 
   3.7994910269011602`*^9, 3.7994912095041313`*^9, 3.7994918177351856`*^9, {
   3.799491953739182*^9, 3.7994919644589467`*^9}, 3.79949205099209*^9, 
   3.799492200747991*^9, 3.799492235328514*^9, 3.799492276273323*^9, {
   3.7994923836294985`*^9, 3.799492426960415*^9}, 3.7994924632637653`*^9, 
   3.7994925289354687`*^9, 3.7994926038623543`*^9, 3.7994926658032045`*^9, 
   3.7994937349826922`*^9, 3.7994941206968756`*^9, 3.7994941551197863`*^9, 
   3.7994942033517075`*^9, 3.7994943244449215`*^9, 3.799494373812835*^9, 
   3.7995406257395496`*^9, 3.799541185614929*^9, 3.7995413616974535`*^9, 
   3.7995415449997582`*^9, 3.799541585092204*^9, 3.7995417165495358`*^9, 
   3.7995417931508565`*^9, 3.7995418441277976`*^9, 3.799541963447136*^9, 
   3.7995421506805525`*^9, 3.7995422292949247`*^9, 3.7995423720431848`*^9, 
   3.799542495996917*^9, 3.7995426016545963`*^9, 3.799542658229248*^9, 
   3.7995428574223404`*^9, 3.799542956436322*^9, 3.7997715843457365`*^9, 
   3.7998502272123175`*^9, 3.7998535528932424`*^9, 3.7998548844105587`*^9, {
   3.800201853819155*^9, 3.8002018827459745`*^9}, 3.800201933355276*^9, 
   3.800201963776552*^9, 3.8002721082824354`*^9, 3.8002721803425293`*^9, 
   3.8002723148054266`*^9, 3.8002725514057407`*^9, 3.8002726577091446`*^9, 
   3.8002726982622633`*^9, 3.8002728149274435`*^9, 3.800273087657186*^9, 
   3.8002732345897837`*^9, 3.8002733338419085`*^9, 3.8002734070296373`*^9, 
   3.8002734913526196`*^9, 3.8002736180153856`*^9, 3.8002736567144127`*^9, 
   3.8002736890767765`*^9, 3.800273726103689*^9, 3.8002737908357534`*^9, 
   3.8002738394706907`*^9, 3.800274009858206*^9, 3.800274087570823*^9, 
   3.800274147305612*^9, 3.800274189566445*^9, 3.800274538091219*^9, 
   3.800274666188002*^9, 3.800274851689474*^9, 3.8002749891931047`*^9, 
   3.800275060631543*^9, 3.8002868193659415`*^9, 3.8002869130239105`*^9, 
   3.8002869620576377`*^9, 3.800287002006309*^9, 3.800287040905095*^9, 
   3.8002870921327343`*^9, 3.8002872199866323`*^9, 3.8002873404693794`*^9, 
   3.8002873777810974`*^9, 3.80028742448071*^9},
 CellLabel->
  "During evaluation of \
In[127]:=",ExpressionUUID->"df6a1aad-0852-4cc3-8c4a-fae692d6718b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\">> \\!\\(\\*SubscriptBox[OverscriptBox[\\(R\\), \\(^\\)], \\(1\
\\)]\\) = \"\>", "\[InvisibleSpace]", 
   StyleBox[
    TagBox[
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {"1.999958782075271`"}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}], "\[NoBreak]", ")"}],
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]],
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]], 
   "\[InvisibleSpace]", "\<\",  \\!\\(\\*SubscriptBox[OverscriptBox[\\(R\\), \
\\(^\\)], \\(2\\)]\\) = \"\>", "\[InvisibleSpace]", 
   StyleBox[
    TagBox[
     RowBox[{"(", "\[NoBreak]", 
      TagBox[GridBox[{
         {
          RowBox[{"{", "}"}]}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}],
       Column], "\[NoBreak]", ")"}],
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]],
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]]}],
  SequenceForm[
  ">> \!\(\*SubscriptBox[OverscriptBox[\(R\), \(^\)], \(1\)]\) = ", 
   Style[
    MatrixForm[{{1.999958782075271}}], 
    RGBColor[1, 0, 0]], 
   ",  \!\(\*SubscriptBox[OverscriptBox[\(R\), \(^\)], \(2\)]\) = ", 
   Style[
    MatrixForm[{{}}], 
    RGBColor[1, 0, 0]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7994514856257553`*^9, 3.799451641053811*^9, 3.7994519015412626`*^9, 
   3.799451948801059*^9, {3.7994521009495296`*^9, 3.7994521272695317`*^9}, 
   3.7994521806190557`*^9, 3.799452402236618*^9, 3.799452451335967*^9, 
   3.7994525811550303`*^9, {3.799452664664345*^9, 3.7994527227434254`*^9}, 
   3.799452784892699*^9, 3.7994528358923736`*^9, 3.7994529497114677`*^9, 
   3.799453052290346*^9, 3.7994531606896048`*^9, 3.799453332157716*^9, 
   3.7994535559802065`*^9, 3.799489050510669*^9, 3.799489171712022*^9, 
   3.7994893041592617`*^9, 3.799489359392127*^9, 3.7994894007065787`*^9, 
   3.799489441095209*^9, 3.7994895207540703`*^9, 3.7994895984455743`*^9, 
   3.799489642926306*^9, 3.7994897127615175`*^9, 3.7994899171204357`*^9, 
   3.799489956801038*^9, 3.799490051896222*^9, 3.799490988019125*^9, 
   3.7994910269011602`*^9, 3.7994912095041313`*^9, 3.7994918177351856`*^9, {
   3.799491953739182*^9, 3.7994919644589467`*^9}, 3.79949205099209*^9, 
   3.799492200747991*^9, 3.799492235328514*^9, 3.799492276273323*^9, {
   3.7994923836294985`*^9, 3.799492426960415*^9}, 3.7994924632637653`*^9, 
   3.7994925289354687`*^9, 3.7994926038623543`*^9, 3.7994926658032045`*^9, 
   3.7994937349826922`*^9, 3.7994941206968756`*^9, 3.7994941551197863`*^9, 
   3.7994942033517075`*^9, 3.7994943244449215`*^9, 3.799494373812835*^9, 
   3.7995406257395496`*^9, 3.799541185614929*^9, 3.7995413616974535`*^9, 
   3.7995415449997582`*^9, 3.799541585092204*^9, 3.7995417165495358`*^9, 
   3.7995417931508565`*^9, 3.7995418441277976`*^9, 3.799541963447136*^9, 
   3.7995421506805525`*^9, 3.7995422292949247`*^9, 3.7995423720431848`*^9, 
   3.799542495996917*^9, 3.7995426016545963`*^9, 3.799542658229248*^9, 
   3.7995428574223404`*^9, 3.799542956436322*^9, 3.7997715843457365`*^9, 
   3.7998502272123175`*^9, 3.7998535528932424`*^9, 3.7998548844105587`*^9, {
   3.800201853819155*^9, 3.8002018827459745`*^9}, 3.800201933355276*^9, 
   3.800201963776552*^9, 3.8002721082824354`*^9, 3.8002721803425293`*^9, 
   3.8002723148054266`*^9, 3.8002725514057407`*^9, 3.8002726577091446`*^9, 
   3.8002726982622633`*^9, 3.8002728149274435`*^9, 3.800273087657186*^9, 
   3.8002732345897837`*^9, 3.8002733338419085`*^9, 3.8002734070296373`*^9, 
   3.8002734913526196`*^9, 3.8002736180153856`*^9, 3.8002736567144127`*^9, 
   3.8002736890767765`*^9, 3.800273726103689*^9, 3.8002737908357534`*^9, 
   3.8002738394706907`*^9, 3.800274009858206*^9, 3.800274087570823*^9, 
   3.800274147305612*^9, 3.800274189566445*^9, 3.800274538091219*^9, 
   3.800274666188002*^9, 3.800274851689474*^9, 3.8002749891931047`*^9, 
   3.800275060631543*^9, 3.8002868193659415`*^9, 3.8002869130239105`*^9, 
   3.8002869620576377`*^9, 3.800287002006309*^9, 3.800287040905095*^9, 
   3.8002870921327343`*^9, 3.8002872199866323`*^9, 3.8002873404693794`*^9, 
   3.8002873777810974`*^9, 3.800287424486706*^9},
 CellLabel->
  "During evaluation of \
In[127]:=",ExpressionUUID->"9d607a1e-434b-4a6a-bcbc-4c98a73d189a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\">> \\!\\(\\*SubscriptBox[\\(r\\), \\(k + 1\\)]\\) = \
[\\!\\(\\*SubscriptBox[OverscriptBox[\\(r\\), \\(^\\)], \\(k + 1\\)]\\)  \
\\!\\(\\*SubscriptBox[OverscriptBox[\\(r\\), \\(^\\)], \\(k + 1, k + 1\\)]\\)\
\\!\\(\\*SuperscriptBox[\\(]\\), \\(t\\)]\\) = \"\>", "\[InvisibleSpace]", 
   StyleBox[
    TagBox[
     RowBox[{"(", "\[NoBreak]", 
      TagBox[GridBox[{
         {
          RowBox[{"-", "0.00008243669893459593`"}]},
         {"3.4640778171403985`"}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}],
       Column], "\[NoBreak]", ")"}],
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]],
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]], 
   "\[InvisibleSpace]", "\<\", \\!\\(\\*SubscriptBox[OverscriptBox[\\(r\\), \
\\(^\\)], \\(k + 1\\)]\\) = \"\>", "\[InvisibleSpace]", 
   StyleBox[
    TagBox[
     RowBox[{"(", "\[NoBreak]", 
      TagBox[GridBox[{
         {
          RowBox[{"-", "0.00008243669893459593`"}]}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}],
       Column], "\[NoBreak]", ")"}],
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]],
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]], 
   "\[InvisibleSpace]", "\<\",  \\!\\(\\*SubscriptBox[OverscriptBox[\\(r\\), \
\\(^\\)], \\(k + 1, k + 1\\)]\\) = \"\>", "\[InvisibleSpace]", 
   StyleBox[
    TagBox["3.4640778171403985`",
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]],
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]]}],
  SequenceForm[
  ">> \!\(\*SubscriptBox[\(r\), \(k + 1\)]\) = \
[\!\(\*SubscriptBox[OverscriptBox[\(r\), \(^\)], \(k + 1\)]\)  \
\!\(\*SubscriptBox[OverscriptBox[\(r\), \(^\)], \(k + 1, k + \
1\)]\)\!\(\*SuperscriptBox[\(]\), \(t\)]\) = ", 
   Style[
    MatrixForm[{-0.00008243669893459593, 3.4640778171403985`}], 
    RGBColor[1, 0, 0]], 
   ", \!\(\*SubscriptBox[OverscriptBox[\(r\), \(^\)], \(k + 1\)]\) = ", 
   Style[
    MatrixForm[{-0.00008243669893459593}], 
    RGBColor[1, 0, 0]], 
   ",  \!\(\*SubscriptBox[OverscriptBox[\(r\), \(^\)], \(k + 1, k + 1\)]\) = \
", 
   Style[
    MatrixForm[3.4640778171403985`], 
    RGBColor[1, 0, 0]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7994514856257553`*^9, 3.799451641053811*^9, 3.7994519015412626`*^9, 
   3.799451948801059*^9, {3.7994521009495296`*^9, 3.7994521272695317`*^9}, 
   3.7994521806190557`*^9, 3.799452402236618*^9, 3.799452451335967*^9, 
   3.7994525811550303`*^9, {3.799452664664345*^9, 3.7994527227434254`*^9}, 
   3.799452784892699*^9, 3.7994528358923736`*^9, 3.7994529497114677`*^9, 
   3.799453052290346*^9, 3.7994531606896048`*^9, 3.799453332157716*^9, 
   3.7994535559802065`*^9, 3.799489050510669*^9, 3.799489171712022*^9, 
   3.7994893041592617`*^9, 3.799489359392127*^9, 3.7994894007065787`*^9, 
   3.799489441095209*^9, 3.7994895207540703`*^9, 3.7994895984455743`*^9, 
   3.799489642926306*^9, 3.7994897127615175`*^9, 3.7994899171204357`*^9, 
   3.799489956801038*^9, 3.799490051896222*^9, 3.799490988019125*^9, 
   3.7994910269011602`*^9, 3.7994912095041313`*^9, 3.7994918177351856`*^9, {
   3.799491953739182*^9, 3.7994919644589467`*^9}, 3.79949205099209*^9, 
   3.799492200747991*^9, 3.799492235328514*^9, 3.799492276273323*^9, {
   3.7994923836294985`*^9, 3.799492426960415*^9}, 3.7994924632637653`*^9, 
   3.7994925289354687`*^9, 3.7994926038623543`*^9, 3.7994926658032045`*^9, 
   3.7994937349826922`*^9, 3.7994941206968756`*^9, 3.7994941551197863`*^9, 
   3.7994942033517075`*^9, 3.7994943244449215`*^9, 3.799494373812835*^9, 
   3.7995406257395496`*^9, 3.799541185614929*^9, 3.7995413616974535`*^9, 
   3.7995415449997582`*^9, 3.799541585092204*^9, 3.7995417165495358`*^9, 
   3.7995417931508565`*^9, 3.7995418441277976`*^9, 3.799541963447136*^9, 
   3.7995421506805525`*^9, 3.7995422292949247`*^9, 3.7995423720431848`*^9, 
   3.799542495996917*^9, 3.7995426016545963`*^9, 3.799542658229248*^9, 
   3.7995428574223404`*^9, 3.799542956436322*^9, 3.7997715843457365`*^9, 
   3.7998502272123175`*^9, 3.7998535528932424`*^9, 3.7998548844105587`*^9, {
   3.800201853819155*^9, 3.8002018827459745`*^9}, 3.800201933355276*^9, 
   3.800201963776552*^9, 3.8002721082824354`*^9, 3.8002721803425293`*^9, 
   3.8002723148054266`*^9, 3.8002725514057407`*^9, 3.8002726577091446`*^9, 
   3.8002726982622633`*^9, 3.8002728149274435`*^9, 3.800273087657186*^9, 
   3.8002732345897837`*^9, 3.8002733338419085`*^9, 3.8002734070296373`*^9, 
   3.8002734913526196`*^9, 3.8002736180153856`*^9, 3.8002736567144127`*^9, 
   3.8002736890767765`*^9, 3.800273726103689*^9, 3.8002737908357534`*^9, 
   3.8002738394706907`*^9, 3.800274009858206*^9, 3.800274087570823*^9, 
   3.800274147305612*^9, 3.800274189566445*^9, 3.800274538091219*^9, 
   3.800274666188002*^9, 3.800274851689474*^9, 3.8002749891931047`*^9, 
   3.800275060631543*^9, 3.8002868193659415`*^9, 3.8002869130239105`*^9, 
   3.8002869620576377`*^9, 3.800287002006309*^9, 3.800287040905095*^9, 
   3.8002870921327343`*^9, 3.8002872199866323`*^9, 3.8002873404693794`*^9, 
   3.8002873777810974`*^9, 3.8002874244947004`*^9},
 CellLabel->
  "During evaluation of \
In[127]:=",ExpressionUUID->"6449f571-24da-4705-b067-fb8363fa618d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\">> y = \"\>", "\[InvisibleSpace]", 
   StyleBox[
    RowBox[{"{", 
     RowBox[{"{", 
      RowBox[{"-", "0.9958977519192882`"}], "}"}], "}"}],
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]]}],
  SequenceForm[">> y = ", 
   Style[{{-0.9958977519192882}}, 
    RGBColor[1, 0, 0]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7994514856257553`*^9, 3.799451641053811*^9, 3.7994519015412626`*^9, 
   3.799451948801059*^9, {3.7994521009495296`*^9, 3.7994521272695317`*^9}, 
   3.7994521806190557`*^9, 3.799452402236618*^9, 3.799452451335967*^9, 
   3.7994525811550303`*^9, {3.799452664664345*^9, 3.7994527227434254`*^9}, 
   3.799452784892699*^9, 3.7994528358923736`*^9, 3.7994529497114677`*^9, 
   3.799453052290346*^9, 3.7994531606896048`*^9, 3.799453332157716*^9, 
   3.7994535559802065`*^9, 3.799489050510669*^9, 3.799489171712022*^9, 
   3.7994893041592617`*^9, 3.799489359392127*^9, 3.7994894007065787`*^9, 
   3.799489441095209*^9, 3.7994895207540703`*^9, 3.7994895984455743`*^9, 
   3.799489642926306*^9, 3.7994897127615175`*^9, 3.7994899171204357`*^9, 
   3.799489956801038*^9, 3.799490051896222*^9, 3.799490988019125*^9, 
   3.7994910269011602`*^9, 3.7994912095041313`*^9, 3.7994918177351856`*^9, {
   3.799491953739182*^9, 3.7994919644589467`*^9}, 3.79949205099209*^9, 
   3.799492200747991*^9, 3.799492235328514*^9, 3.799492276273323*^9, {
   3.7994923836294985`*^9, 3.799492426960415*^9}, 3.7994924632637653`*^9, 
   3.7994925289354687`*^9, 3.7994926038623543`*^9, 3.7994926658032045`*^9, 
   3.7994937349826922`*^9, 3.7994941206968756`*^9, 3.7994941551197863`*^9, 
   3.7994942033517075`*^9, 3.7994943244449215`*^9, 3.799494373812835*^9, 
   3.7995406257395496`*^9, 3.799541185614929*^9, 3.7995413616974535`*^9, 
   3.7995415449997582`*^9, 3.799541585092204*^9, 3.7995417165495358`*^9, 
   3.7995417931508565`*^9, 3.7995418441277976`*^9, 3.799541963447136*^9, 
   3.7995421506805525`*^9, 3.7995422292949247`*^9, 3.7995423720431848`*^9, 
   3.799542495996917*^9, 3.7995426016545963`*^9, 3.799542658229248*^9, 
   3.7995428574223404`*^9, 3.799542956436322*^9, 3.7997715843457365`*^9, 
   3.7998502272123175`*^9, 3.7998535528932424`*^9, 3.7998548844105587`*^9, {
   3.800201853819155*^9, 3.8002018827459745`*^9}, 3.800201933355276*^9, 
   3.800201963776552*^9, 3.8002721082824354`*^9, 3.8002721803425293`*^9, 
   3.8002723148054266`*^9, 3.8002725514057407`*^9, 3.8002726577091446`*^9, 
   3.8002726982622633`*^9, 3.8002728149274435`*^9, 3.800273087657186*^9, 
   3.8002732345897837`*^9, 3.8002733338419085`*^9, 3.8002734070296373`*^9, 
   3.8002734913526196`*^9, 3.8002736180153856`*^9, 3.8002736567144127`*^9, 
   3.8002736890767765`*^9, 3.800273726103689*^9, 3.8002737908357534`*^9, 
   3.8002738394706907`*^9, 3.800274009858206*^9, 3.800274087570823*^9, 
   3.800274147305612*^9, 3.800274189566445*^9, 3.800274538091219*^9, 
   3.800274666188002*^9, 3.800274851689474*^9, 3.8002749891931047`*^9, 
   3.800275060631543*^9, 3.8002868193659415`*^9, 3.8002869130239105`*^9, 
   3.8002869620576377`*^9, 3.800287002006309*^9, 3.800287040905095*^9, 
   3.8002870921327343`*^9, 3.8002872199866323`*^9, 3.8002873404693794`*^9, 
   3.8002873777810974`*^9, 3.800287424502694*^9},
 CellLabel->
  "During evaluation of \
In[127]:=",ExpressionUUID->"c5bd18ee-09d7-436f-a68e-6794bd105100"],

Cell[BoxData["\<\">> ok 33b <<\"\>"], "Print",
 CellChangeTimes->{
  3.7994514856257553`*^9, 3.799451641053811*^9, 3.7994519015412626`*^9, 
   3.799451948801059*^9, {3.7994521009495296`*^9, 3.7994521272695317`*^9}, 
   3.7994521806190557`*^9, 3.799452402236618*^9, 3.799452451335967*^9, 
   3.7994525811550303`*^9, {3.799452664664345*^9, 3.7994527227434254`*^9}, 
   3.799452784892699*^9, 3.7994528358923736`*^9, 3.7994529497114677`*^9, 
   3.799453052290346*^9, 3.7994531606896048`*^9, 3.799453332157716*^9, 
   3.7994535559802065`*^9, 3.799489050510669*^9, 3.799489171712022*^9, 
   3.7994893041592617`*^9, 3.799489359392127*^9, 3.7994894007065787`*^9, 
   3.799489441095209*^9, 3.7994895207540703`*^9, 3.7994895984455743`*^9, 
   3.799489642926306*^9, 3.7994897127615175`*^9, 3.7994899171204357`*^9, 
   3.799489956801038*^9, 3.799490051896222*^9, 3.799490988019125*^9, 
   3.7994910269011602`*^9, 3.7994912095041313`*^9, 3.7994918177351856`*^9, {
   3.799491953739182*^9, 3.7994919644589467`*^9}, 3.79949205099209*^9, 
   3.799492200747991*^9, 3.799492235328514*^9, 3.799492276273323*^9, {
   3.7994923836294985`*^9, 3.799492426960415*^9}, 3.7994924632637653`*^9, 
   3.7994925289354687`*^9, 3.7994926038623543`*^9, 3.7994926658032045`*^9, 
   3.7994937349826922`*^9, 3.7994941206968756`*^9, 3.7994941551197863`*^9, 
   3.7994942033517075`*^9, 3.7994943244449215`*^9, 3.799494373812835*^9, 
   3.7995406257395496`*^9, 3.799541185614929*^9, 3.7995413616974535`*^9, 
   3.7995415449997582`*^9, 3.799541585092204*^9, 3.7995417165495358`*^9, 
   3.7995417931508565`*^9, 3.7995418441277976`*^9, 3.799541963447136*^9, 
   3.7995421506805525`*^9, 3.7995422292949247`*^9, 3.7995423720431848`*^9, 
   3.799542495996917*^9, 3.7995426016545963`*^9, 3.799542658229248*^9, 
   3.7995428574223404`*^9, 3.799542956436322*^9, 3.7997715843457365`*^9, 
   3.7998502272123175`*^9, 3.7998535528932424`*^9, 3.7998548844105587`*^9, {
   3.800201853819155*^9, 3.8002018827459745`*^9}, 3.800201933355276*^9, 
   3.800201963776552*^9, 3.8002721082824354`*^9, 3.8002721803425293`*^9, 
   3.8002723148054266`*^9, 3.8002725514057407`*^9, 3.8002726577091446`*^9, 
   3.8002726982622633`*^9, 3.8002728149274435`*^9, 3.800273087657186*^9, 
   3.8002732345897837`*^9, 3.8002733338419085`*^9, 3.8002734070296373`*^9, 
   3.8002734913526196`*^9, 3.8002736180153856`*^9, 3.8002736567144127`*^9, 
   3.8002736890767765`*^9, 3.800273726103689*^9, 3.8002737908357534`*^9, 
   3.8002738394706907`*^9, 3.800274009858206*^9, 3.800274087570823*^9, 
   3.800274147305612*^9, 3.800274189566445*^9, 3.800274538091219*^9, 
   3.800274666188002*^9, 3.800274851689474*^9, 3.8002749891931047`*^9, 
   3.800275060631543*^9, 3.8002868193659415`*^9, 3.8002869130239105`*^9, 
   3.8002869620576377`*^9, 3.800287002006309*^9, 3.800287040905095*^9, 
   3.8002870921327343`*^9, 3.8002872199866323`*^9, 3.8002873404693794`*^9, 
   3.8002873777810974`*^9, 3.8002874245076914`*^9},
 CellLabel->
  "During evaluation of \
In[127]:=",ExpressionUUID->"51cee076-4885-45b4-8eca-48023d6e9d63"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\">> \\!\\(\\*SuperscriptBox[SubscriptBox[\\(d\\), \\(m\\)], \
\\(2\\)]\\)-||y\\!\\(\\*SuperscriptBox[\\(||\\), \\(2\\)]\\) = \"\>", 
   "\[InvisibleSpace]", 
   StyleBox[
    RowBox[{"{", "0.698187667722108`", "}"}],
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]], 
   "\[InvisibleSpace]", "\<\",  onde y\[Element]\\!\\(\\*SuperscriptBox[\\(\
\[DoubleStruckCapitalR]\\), \\(k\\)]\\), k = \"\>", "\[InvisibleSpace]", 
   StyleBox["1",
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]]}],
  SequenceForm[
  ">> \!\(\*SuperscriptBox[SubscriptBox[\(d\), \(m\)], \
\(2\)]\)-||y\!\(\*SuperscriptBox[\(||\), \(2\)]\) = ", 
   Style[{0.698187667722108}, 
    RGBColor[1, 0, 0]], 
   ",  onde y\[Element]\!\(\*SuperscriptBox[\(\[DoubleStruckCapitalR]\), \
\(k\)]\), k = ", 
   Style[1, 
    RGBColor[1, 0, 0]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7994514856257553`*^9, 3.799451641053811*^9, 3.7994519015412626`*^9, 
   3.799451948801059*^9, {3.7994521009495296`*^9, 3.7994521272695317`*^9}, 
   3.7994521806190557`*^9, 3.799452402236618*^9, 3.799452451335967*^9, 
   3.7994525811550303`*^9, {3.799452664664345*^9, 3.7994527227434254`*^9}, 
   3.799452784892699*^9, 3.7994528358923736`*^9, 3.7994529497114677`*^9, 
   3.799453052290346*^9, 3.7994531606896048`*^9, 3.799453332157716*^9, 
   3.7994535559802065`*^9, 3.799489050510669*^9, 3.799489171712022*^9, 
   3.7994893041592617`*^9, 3.799489359392127*^9, 3.7994894007065787`*^9, 
   3.799489441095209*^9, 3.7994895207540703`*^9, 3.7994895984455743`*^9, 
   3.799489642926306*^9, 3.7994897127615175`*^9, 3.7994899171204357`*^9, 
   3.799489956801038*^9, 3.799490051896222*^9, 3.799490988019125*^9, 
   3.7994910269011602`*^9, 3.7994912095041313`*^9, 3.7994918177351856`*^9, {
   3.799491953739182*^9, 3.7994919644589467`*^9}, 3.79949205099209*^9, 
   3.799492200747991*^9, 3.799492235328514*^9, 3.799492276273323*^9, {
   3.7994923836294985`*^9, 3.799492426960415*^9}, 3.7994924632637653`*^9, 
   3.7994925289354687`*^9, 3.7994926038623543`*^9, 3.7994926658032045`*^9, 
   3.7994937349826922`*^9, 3.7994941206968756`*^9, 3.7994941551197863`*^9, 
   3.7994942033517075`*^9, 3.7994943244449215`*^9, 3.799494373812835*^9, 
   3.7995406257395496`*^9, 3.799541185614929*^9, 3.7995413616974535`*^9, 
   3.7995415449997582`*^9, 3.799541585092204*^9, 3.7995417165495358`*^9, 
   3.7995417931508565`*^9, 3.7995418441277976`*^9, 3.799541963447136*^9, 
   3.7995421506805525`*^9, 3.7995422292949247`*^9, 3.7995423720431848`*^9, 
   3.799542495996917*^9, 3.7995426016545963`*^9, 3.799542658229248*^9, 
   3.7995428574223404`*^9, 3.799542956436322*^9, 3.7997715843457365`*^9, 
   3.7998502272123175`*^9, 3.7998535528932424`*^9, 3.7998548844105587`*^9, {
   3.800201853819155*^9, 3.8002018827459745`*^9}, 3.800201933355276*^9, 
   3.800201963776552*^9, 3.8002721082824354`*^9, 3.8002721803425293`*^9, 
   3.8002723148054266`*^9, 3.8002725514057407`*^9, 3.8002726577091446`*^9, 
   3.8002726982622633`*^9, 3.8002728149274435`*^9, 3.800273087657186*^9, 
   3.8002732345897837`*^9, 3.8002733338419085`*^9, 3.8002734070296373`*^9, 
   3.8002734913526196`*^9, 3.8002736180153856`*^9, 3.8002736567144127`*^9, 
   3.8002736890767765`*^9, 3.800273726103689*^9, 3.8002737908357534`*^9, 
   3.8002738394706907`*^9, 3.800274009858206*^9, 3.800274087570823*^9, 
   3.800274147305612*^9, 3.800274189566445*^9, 3.800274538091219*^9, 
   3.800274666188002*^9, 3.800274851689474*^9, 3.8002749891931047`*^9, 
   3.800275060631543*^9, 3.8002868193659415`*^9, 3.8002869130239105`*^9, 
   3.8002869620576377`*^9, 3.800287002006309*^9, 3.800287040905095*^9, 
   3.8002870921327343`*^9, 3.8002872199866323`*^9, 3.8002873404693794`*^9, 
   3.8002873777810974`*^9, 3.8002874245116897`*^9},
 CellLabel->
  "During evaluation of \
In[127]:=",ExpressionUUID->"ff6a4e8d-ef2c-4be7-a5e1-8fc53552075c"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Exemplo 1b[testa interse\[CCedilla]\[ATilde]o entre 5 esferas e 1 casca AGC - \
paper]:\
\>", "Subsection",
 CellChangeTimes->{{3.7657059416690297`*^9, 3.7657059698738794`*^9}, {
  3.765706016283961*^9, 3.7657060383891993`*^9}, {3.7987575131887646`*^9, 
  3.7987575132557163`*^9}, {3.798758001327262*^9, 3.798758027197096*^9}, {
  3.7988490506682634`*^9, 3.7988490507283444`*^9}, {3.7989318928277345`*^9, 
  3.7989318938433585`*^9}, {3.799104746009686*^9, 3.7991047493209143`*^9}, {
  3.7992821253138285`*^9, 3.799282125448799*^9}, {3.7992829085349565`*^9, 
  3.7992829086451397`*^9}, {3.799771613539345*^9, 3.799771621004695*^9}, {
  3.799854901221509*^9, 
  3.7998549067606597`*^9}},ExpressionUUID->"f0b9e3a4-e0db-40b9-9099-\
40670d27274d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"executa", " ", "teste", " ", "abordagem", " ", "AGC"}], "*)"}], 
  " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"n", "=", "3"}], ";", " ", 
    RowBox[{"m", "=", "2"}], ";", 
    RowBox[{"kk", "=", "1"}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"define", " ", "assinatura", " ", "de", " ", 
      RowBox[{"R", "^", "p"}]}], ",", 
     RowBox[{"q", " ", "e", " ", "base", " ", "nula"}]}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"$SetSignature", "=", 
     RowBox[{"n", "+", "1"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"p", "=", 
     RowBox[{"n", "+", "1"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"e0", "=", 
     RowBox[{"0.5", "*", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"e", "[", 
         RowBox[{"p", "+", "1"}], "]"}], "-", 
        RowBox[{"e", "[", "p", "]"}]}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"einf", "=", 
     RowBox[{
      RowBox[{"e", "[", 
       RowBox[{"p", "+", "1"}], "]"}], "+", 
      RowBox[{"e", "[", "p", "]"}]}]}], ";"}], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->CompressedData["
1:eJwd0VtI03EcBfClxMrlLSpqljXLv13mWpvloIvOp4LcZGtQK0kKH7qXrFai
FtRQ0WYg1FZbLcEUGW6NmQVpYSVoq/ZQUHPlbkXUUsFZDGL1O9+Hw+f1cI7o
yBlNbRqPxxOzwKA22n01K67UaHW9UBjIC8OVATmZI8lsaGam+paQJlVjsIX5
TJL+BUr52YdamSOmxeTFeZFJWHclRn78t3lNG/PCgVQBfKyts7qZU+NSO5Tm
/3TBSdenAegUTDyBtuO2p1Dw6NVzGOH3vIDr5Ymih+i3JUmGtn2TQenG+XJo
DPfsg00T5dXw5q4uB9QZW7pg4FT1IDyrcZC+2WSuuTKuXN4YWgpDo+tKYWSu
WAFzful3R5k/jr7ZC79bvSaYseI3KRtz2GPM0UXXeyH3wav/ykzIBklVht4E
/wQPkh2nna2w3Xi5DYqm+LdKVXGl+dp2C/xryHsPnYU6csEyT7qCmVC8Je/5
/DYzs0JaZocKbn95BzOrKEhORyrVkAsNkSXiGy7Yv3ahG1YUzgzBds4yDA+n
Ffhh/bvbJJefHYW+ByPkjNh7YozZKZSdhMc2WIywT3CHbHq9acc4c1VKQg7X
5r6cZSojA6TnvDwMDZ/95N3oznOZarazyE3GyoqNsMFqqIcOA9cJLyXvkzXT
ikQ30yPcMwdLVjfXqKvYD1uT5H8vFWA5
  "],
 CellLabel->"In[23]:=",ExpressionUUID->"00d72292-c7fc-47b2-b9b0-723c65514362"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{"sol1", ",", "sol2", ",", " ", "eerrosol"}], "}"}], "=", 
    RowBox[{"IntersEsferas1CascaAGC", "[", 
     RowBox[{"n", ",", "m", ",", "kk", ",", "e0", ",", "einf"}], "]"}]}], 
   ";"}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.765719702138294*^9, 3.765719722324729*^9}, {
   3.765799530153369*^9, 3.765799531167371*^9}, {3.7658006669585657`*^9, 
   3.7658006681285677`*^9}, {3.7989319100302906`*^9, 3.798931913389574*^9}, {
   3.7989320819961643`*^9, 3.79893212519788*^9}, {3.7989323189905624`*^9, 
   3.798932356365723*^9}, {3.7989338208319445`*^9, 3.7989338225180717`*^9}, {
   3.7989339708774805`*^9, 3.798933981004201*^9}, {3.798934387878484*^9, 
   3.798934462286628*^9}, {3.7991046896667027`*^9, 3.7991047170473576`*^9}, {
   3.799105179559946*^9, 3.7991051986890993`*^9}, {3.799112574859889*^9, 
   3.7991125849064074`*^9}, 3.7998550350439167`*^9},
 CellLabel->"In[28]:=",ExpressionUUID->"976be258-0262-455c-bd25-f81d32deca13"],

Cell[CellGroupData[{

Cell[BoxData["\<\"___ gera inst\[AHat]ncia ___\"\>"], "Print",
 CellChangeTimes->{
  3.7994903490351515`*^9, 3.7994906781159983`*^9, 3.7994910364164104`*^9, 
   3.799491229645982*^9, 3.7994912644367647`*^9, 3.7994912975427856`*^9, 
   3.799491505673452*^9, {3.7994915681724916`*^9, 3.7994915888986807`*^9}, 
   3.7994916286532927`*^9, 3.79949170077641*^9, 3.7995418802359977`*^9, 
   3.79954200178498*^9, 3.799542248364467*^9, 3.799542418178048*^9, 
   3.799542509972083*^9, 3.799542608574939*^9, 3.799542672839131*^9, {
   3.7995427217736225`*^9, 3.7995427445234632`*^9}, 3.799542867282419*^9, 
   3.7995429684564657`*^9, 3.7997716258099604`*^9, 3.7998502466302767`*^9, 
   3.799850301039985*^9, 3.799851104398441*^9, 3.799854912650391*^9, 
   3.7998549754993553`*^9, 3.7998550397341785`*^9, 3.8002019952832975`*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"4c2d2685-6598-4a66-af01-ea8e9a3a64b8"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\">> A = \"\>", "\[InvisibleSpace]", 
   StyleBox[
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"2.8251482940371386`", ",", "0.05134235534853816`"}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"0.4281246159824168`", ",", "0.00778045039746035`"}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"1.8412236162733187`", ",", "0.033461166404025404`"}], "}"}]}],
      "}"}],
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]], "\[InvisibleSpace]", "\<\", rank(A)= \"\>",
    "\[InvisibleSpace]", 
   StyleBox["1",
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]], "\[InvisibleSpace]", "\<\", A = \"\>", 
   "\[InvisibleSpace]", 
   StyleBox[
    TagBox[
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {"2.8251482940371386`", "0.05134235534853816`"},
        {"0.4281246159824168`", "0.00778045039746035`"},
        {"1.8412236162733187`", "0.033461166404025404`"}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}], "\[NoBreak]", ")"}],
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]],
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]]}],
  SequenceForm[">> A = ", 
   Style[{{2.8251482940371386`, 0.05134235534853816}, {0.4281246159824168, 
    0.00778045039746035}, {1.8412236162733187`, 0.033461166404025404`}}, 
    RGBColor[1, 0, 0]], ", rank(A)= ", 
   Style[1, 
    RGBColor[1, 0, 0]], ", A = ", 
   Style[
    MatrixForm[{{2.8251482940371386`, 0.05134235534853816}, {
     0.4281246159824168, 0.00778045039746035}, {1.8412236162733187`, 
     0.033461166404025404`}}], 
    RGBColor[1, 0, 0]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7994903490351515`*^9, 3.7994906781159983`*^9, 3.7994910364164104`*^9, 
   3.799491229645982*^9, 3.7994912644367647`*^9, 3.7994912975427856`*^9, 
   3.799491505673452*^9, {3.7994915681724916`*^9, 3.7994915888986807`*^9}, 
   3.7994916286532927`*^9, 3.79949170077641*^9, 3.7995418802359977`*^9, 
   3.79954200178498*^9, 3.799542248364467*^9, 3.799542418178048*^9, 
   3.799542509972083*^9, 3.799542608574939*^9, 3.799542672839131*^9, {
   3.7995427217736225`*^9, 3.7995427445234632`*^9}, 3.799542867282419*^9, 
   3.7995429684564657`*^9, 3.7997716258099604`*^9, 3.7998502466302767`*^9, 
   3.799850301039985*^9, 3.799851104398441*^9, 3.799854912650391*^9, 
   3.7998549754993553`*^9, 3.7998550397341785`*^9, 3.8002019952832975`*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"5eb954e4-5c34-4bdd-bf28-8d60e52c22b4"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\">> \\!\\(\\*OverscriptBox[\\(A\\), \\(_\\)]\\) = \"\>", 
   "\[InvisibleSpace]", 
   StyleBox[
    TagBox[
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {"2.8251482940371386`", "0.05134235534853816`", "19.027787578950097`"},
        {"0.4281246159824168`", "0.00778045039746035`", "16.09317230382735`"},
        {"1.8412236162733187`", "0.033461166404025404`", "16.676888018551008`"}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}], "\[NoBreak]", ")"}],
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]],
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]], 
   "\[InvisibleSpace]", "\<\", rank(\\!\\(\\*OverscriptBox[\\(A\\), \
\\(_\\)]\\))= \"\>", "\[InvisibleSpace]", 
   StyleBox["2",
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]]}],
  SequenceForm[">> \!\(\*OverscriptBox[\(A\), \(_\)]\) = ", 
   Style[
    MatrixForm[{{2.8251482940371386`, 0.05134235534853816, 
     19.027787578950097`}, {0.4281246159824168, 0.00778045039746035, 
     16.09317230382735}, {1.8412236162733187`, 0.033461166404025404`, 
     16.676888018551008`}}], 
    RGBColor[1, 0, 0]], ", rank(\!\(\*OverscriptBox[\(A\), \(_\)]\))= ", 
   Style[2, 
    RGBColor[1, 0, 0]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7994903490351515`*^9, 3.7994906781159983`*^9, 3.7994910364164104`*^9, 
   3.799491229645982*^9, 3.7994912644367647`*^9, 3.7994912975427856`*^9, 
   3.799491505673452*^9, {3.7994915681724916`*^9, 3.7994915888986807`*^9}, 
   3.7994916286532927`*^9, 3.79949170077641*^9, 3.7995418802359977`*^9, 
   3.79954200178498*^9, 3.799542248364467*^9, 3.799542418178048*^9, 
   3.799542509972083*^9, 3.799542608574939*^9, 3.799542672839131*^9, {
   3.7995427217736225`*^9, 3.7995427445234632`*^9}, 3.799542867282419*^9, 
   3.7995429684564657`*^9, 3.7997716258099604`*^9, 3.7998502466302767`*^9, 
   3.799850301039985*^9, 3.799851104398441*^9, 3.799854912650391*^9, 
   3.7998549754993553`*^9, 3.7998550397341785`*^9, 3.8002019952989316`*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"4fde0c9e-9e83-450a-97a1-b53cc1d70a42"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"d = \"\>", "\[InvisibleSpace]", 
   StyleBox[
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", "24.981660302664174`", "}"}], ",", 
      RowBox[{"{", "27.224865474262227`", "}"}], ",", 
      RowBox[{"{", "10.728378501574785`", "}"}]}], "}"}],
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]]}],
  SequenceForm["d = ", 
   Style[{{24.981660302664174`}, {27.224865474262227`}, {
    10.728378501574785`}}, 
    RGBColor[1, 0, 0]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7994903490351515`*^9, 3.7994906781159983`*^9, 3.7994910364164104`*^9, 
   3.799491229645982*^9, 3.7994912644367647`*^9, 3.7994912975427856`*^9, 
   3.799491505673452*^9, {3.7994915681724916`*^9, 3.7994915888986807`*^9}, 
   3.7994916286532927`*^9, 3.79949170077641*^9, 3.7995418802359977`*^9, 
   3.79954200178498*^9, 3.799542248364467*^9, 3.799542418178048*^9, 
   3.799542509972083*^9, 3.799542608574939*^9, 3.799542672839131*^9, {
   3.7995427217736225`*^9, 3.7995427445234632`*^9}, 3.799542867282419*^9, 
   3.7995429684564657`*^9, 3.7997716258099604`*^9, 3.7998502466302767`*^9, 
   3.799850301039985*^9, 3.799851104398441*^9, 3.799854912650391*^9, 
   3.7998549754993553`*^9, 3.7998550397341785`*^9, 3.8002019952989316`*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"e4c91e54-46eb-4368-ac5a-636b1faae87d"],

Cell[BoxData["\<\"-----\"\>"], "Print",
 CellChangeTimes->{
  3.7994903490351515`*^9, 3.7994906781159983`*^9, 3.7994910364164104`*^9, 
   3.799491229645982*^9, 3.7994912644367647`*^9, 3.7994912975427856`*^9, 
   3.799491505673452*^9, {3.7994915681724916`*^9, 3.7994915888986807`*^9}, 
   3.7994916286532927`*^9, 3.79949170077641*^9, 3.7995418802359977`*^9, 
   3.79954200178498*^9, 3.799542248364467*^9, 3.799542418178048*^9, 
   3.799542509972083*^9, 3.799542608574939*^9, 3.799542672839131*^9, {
   3.7995427217736225`*^9, 3.7995427445234632`*^9}, 3.799542867282419*^9, 
   3.7995429684564657`*^9, 3.7997716258099604`*^9, 3.7998502466302767`*^9, 
   3.799850301039985*^9, 3.799851104398441*^9, 3.799854912650391*^9, 
   3.7998549754993553`*^9, 3.7998550397341785`*^9, 3.8002019952989316`*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"be6749f1-6df1-4202-8a7d-3595a18c41ef"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\">> A = \"\>", "\[InvisibleSpace]", 
   StyleBox[
    TagBox[
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {"2.8251482940371386`", "0.05134235534853816`"},
        {"0.4281246159824168`", "0.00778045039746035`"},
        {"1.8412236162733187`", "0.033461166404025404`"}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}], "\[NoBreak]", ")"}],
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]],
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]], 
   "\[InvisibleSpace]", "\<\", rank(A) = \"\>", "\[InvisibleSpace]", 
   StyleBox["1",
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]]}],
  SequenceForm[">> A = ", 
   Style[
    MatrixForm[{{2.8251482940371386`, 0.05134235534853816}, {
     0.4281246159824168, 0.00778045039746035}, {1.8412236162733187`, 
     0.033461166404025404`}}], 
    RGBColor[1, 0, 0]], ", rank(A) = ", 
   Style[1, 
    RGBColor[1, 0, 0]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7994903490351515`*^9, 3.7994906781159983`*^9, 3.7994910364164104`*^9, 
   3.799491229645982*^9, 3.7994912644367647`*^9, 3.7994912975427856`*^9, 
   3.799491505673452*^9, {3.7994915681724916`*^9, 3.7994915888986807`*^9}, 
   3.7994916286532927`*^9, 3.79949170077641*^9, 3.7995418802359977`*^9, 
   3.79954200178498*^9, 3.799542248364467*^9, 3.799542418178048*^9, 
   3.799542509972083*^9, 3.799542608574939*^9, 3.799542672839131*^9, {
   3.7995427217736225`*^9, 3.7995427445234632`*^9}, 3.799542867282419*^9, 
   3.7995429684564657`*^9, 3.7997716258099604`*^9, 3.7998502466302767`*^9, 
   3.799850301039985*^9, 3.799851104398441*^9, 3.799854912650391*^9, 
   3.7998549754993553`*^9, 3.7998550397341785`*^9, 3.800201995314555*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"d8860af7-8429-4eb9-abf7-0b8999aa1191"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\">> d = \"\>", "\[InvisibleSpace]", 
   StyleBox[
    RowBox[{"{", 
     RowBox[{"24.981660302664174`", ",", "27.224865474262227`"}], "}"}],
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]]}],
  SequenceForm[">> d = ", 
   Style[{24.981660302664174`, 27.224865474262227`}, 
    RGBColor[1, 0, 0]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7994903490351515`*^9, 3.7994906781159983`*^9, 3.7994910364164104`*^9, 
   3.799491229645982*^9, 3.7994912644367647`*^9, 3.7994912975427856`*^9, 
   3.799491505673452*^9, {3.7994915681724916`*^9, 3.7994915888986807`*^9}, 
   3.7994916286532927`*^9, 3.79949170077641*^9, 3.7995418802359977`*^9, 
   3.79954200178498*^9, 3.799542248364467*^9, 3.799542418178048*^9, 
   3.799542509972083*^9, 3.799542608574939*^9, 3.799542672839131*^9, {
   3.7995427217736225`*^9, 3.7995427445234632`*^9}, 3.799542867282419*^9, 
   3.7995429684564657`*^9, 3.7997716258099604`*^9, 3.7998502466302767`*^9, 
   3.799850301039985*^9, 3.799851104398441*^9, 3.799854912650391*^9, 
   3.7998549754993553`*^9, 3.7998550397341785`*^9, 3.800201995314555*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"217d464c-2722-4503-b27d-fc5149f9f330"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\">> \\!\\(\\*SubscriptBox[\\(c\\), \\(casca\\)]\\) = \"\>", 
   "\[InvisibleSpace]", 
   StyleBox[
    TagBox[
     RowBox[{"(", "\[NoBreak]", 
      TagBox[GridBox[{
         {"19.027787578950097`"},
         {"16.09317230382735`"},
         {"16.676888018551008`"}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}],
       Column], "\[NoBreak]", ")"}],
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]],
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]]}],
  SequenceForm[">> \!\(\*SubscriptBox[\(c\), \(casca\)]\) = ", 
   Style[
    MatrixForm[{19.027787578950097`, 16.09317230382735, 16.676888018551008`}], 
    RGBColor[1, 0, 0]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7994903490351515`*^9, 3.7994906781159983`*^9, 3.7994910364164104`*^9, 
   3.799491229645982*^9, 3.7994912644367647`*^9, 3.7994912975427856`*^9, 
   3.799491505673452*^9, {3.7994915681724916`*^9, 3.7994915888986807`*^9}, 
   3.7994916286532927`*^9, 3.79949170077641*^9, 3.7995418802359977`*^9, 
   3.79954200178498*^9, 3.799542248364467*^9, 3.799542418178048*^9, 
   3.799542509972083*^9, 3.799542608574939*^9, 3.799542672839131*^9, {
   3.7995427217736225`*^9, 3.7995427445234632`*^9}, 3.799542867282419*^9, 
   3.7995429684564657`*^9, 3.7997716258099604`*^9, 3.7998502466302767`*^9, 
   3.799850301039985*^9, 3.799851104398441*^9, 3.799854912650391*^9, 
   3.7998549754993553`*^9, 3.7998550397341785`*^9, 3.800201995314555*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"668de4a7-8c78-4140-9637-a81e520e0f81"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\">> dxcasca = \"\>", "\[InvisibleSpace]", 
   StyleBox[
    TagBox["10.728378501574785`",
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]],
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]]}],
  SequenceForm[">> dxcasca = ", 
   Style[
    MatrixForm[10.728378501574785`], 
    RGBColor[1, 0, 0]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7994903490351515`*^9, 3.7994906781159983`*^9, 3.7994910364164104`*^9, 
   3.799491229645982*^9, 3.7994912644367647`*^9, 3.7994912975427856`*^9, 
   3.799491505673452*^9, {3.7994915681724916`*^9, 3.7994915888986807`*^9}, 
   3.7994916286532927`*^9, 3.79949170077641*^9, 3.7995418802359977`*^9, 
   3.79954200178498*^9, 3.799542248364467*^9, 3.799542418178048*^9, 
   3.799542509972083*^9, 3.799542608574939*^9, 3.799542672839131*^9, {
   3.7995427217736225`*^9, 3.7995427445234632`*^9}, 3.799542867282419*^9, 
   3.7995429684564657`*^9, 3.7997716258099604`*^9, 3.7998502466302767`*^9, 
   3.799850301039985*^9, 3.799851104398441*^9, 3.799854912650391*^9, 
   3.7998549754993553`*^9, 3.7998550397341785`*^9, 3.800201995330181*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"842a727e-274a-4e3a-9f42-26a5eceed9e0"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\">> [\"\>", "\[InvisibleSpace]", 
   StyleBox[
    TagBox["10.306265047369076`",
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]],
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]], "\[InvisibleSpace]", "\<\", \"\>", 
   "\[InvisibleSpace]", 
   StyleBox[
    TagBox["10.950398474019945`",
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]],
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]], "\[InvisibleSpace]", "\<\"]\"\>"}],
  SequenceForm[">> [", 
   Style[
    MatrixForm[10.306265047369076`], 
    RGBColor[1, 0, 0]], ", ", 
   Style[
    MatrixForm[10.950398474019945`], 
    RGBColor[1, 0, 0]], "]"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7994903490351515`*^9, 3.7994906781159983`*^9, 3.7994910364164104`*^9, 
   3.799491229645982*^9, 3.7994912644367647`*^9, 3.7994912975427856`*^9, 
   3.799491505673452*^9, {3.7994915681724916`*^9, 3.7994915888986807`*^9}, 
   3.7994916286532927`*^9, 3.79949170077641*^9, 3.7995418802359977`*^9, 
   3.79954200178498*^9, 3.799542248364467*^9, 3.799542418178048*^9, 
   3.799542509972083*^9, 3.799542608574939*^9, 3.799542672839131*^9, {
   3.7995427217736225`*^9, 3.7995427445234632`*^9}, 3.799542867282419*^9, 
   3.7995429684564657`*^9, 3.7997716258099604`*^9, 3.7998502466302767`*^9, 
   3.799850301039985*^9, 3.799851104398441*^9, 3.799854912650391*^9, 
   3.7998549754993553`*^9, 3.7998550397341785`*^9, 3.800201995330181*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"0264dbc8-5f71-4714-8126-e7283f0c3329"],

Cell[BoxData["\<\"-----\"\>"], "Print",
 CellChangeTimes->{
  3.7994903490351515`*^9, 3.7994906781159983`*^9, 3.7994910364164104`*^9, 
   3.799491229645982*^9, 3.7994912644367647`*^9, 3.7994912975427856`*^9, 
   3.799491505673452*^9, {3.7994915681724916`*^9, 3.7994915888986807`*^9}, 
   3.7994916286532927`*^9, 3.79949170077641*^9, 3.7995418802359977`*^9, 
   3.79954200178498*^9, 3.799542248364467*^9, 3.799542418178048*^9, 
   3.799542509972083*^9, 3.799542608574939*^9, 3.799542672839131*^9, {
   3.7995427217736225`*^9, 3.7995427445234632`*^9}, 3.799542867282419*^9, 
   3.7995429684564657`*^9, 3.7997716258099604`*^9, 3.7998502466302767`*^9, 
   3.799850301039985*^9, 3.799851104398441*^9, 3.799854912650391*^9, 
   3.7998549754993553`*^9, 3.7998550397341785`*^9, 3.800201995330181*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"95a93663-198c-487c-b5f2-64ed8c81de99"],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{
  3.7994903490351515`*^9, 3.7994906781159983`*^9, 3.7994910364164104`*^9, 
   3.799491229645982*^9, 3.7994912644367647`*^9, 3.7994912975427856`*^9, 
   3.799491505673452*^9, {3.7994915681724916`*^9, 3.7994915888986807`*^9}, 
   3.7994916286532927`*^9, 3.79949170077641*^9, 3.7995418802359977`*^9, 
   3.79954200178498*^9, 3.799542248364467*^9, 3.799542418178048*^9, 
   3.799542509972083*^9, 3.799542608574939*^9, 3.799542672839131*^9, {
   3.7995427217736225`*^9, 3.7995427445234632`*^9}, 3.799542867282419*^9, 
   3.7995429684564657`*^9, 3.7997716258099604`*^9, 3.7998502466302767`*^9, 
   3.799850301039985*^9, 3.799851104398441*^9, 3.799854912650391*^9, 
   3.7998549754993553`*^9, 3.7998550397341785`*^9, 3.800201995330181*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"06d32816-87c4-46f5-9ff5-c103f8f21e49"],

Cell[BoxData["\<\"__ Interse\[CCedilla]\[ATilde]o entre m esferas e 1 casca \
esf\[EAcute]rica __\"\>"], "Print",
 CellChangeTimes->{
  3.7994903490351515`*^9, 3.7994906781159983`*^9, 3.7994910364164104`*^9, 
   3.799491229645982*^9, 3.7994912644367647`*^9, 3.7994912975427856`*^9, 
   3.799491505673452*^9, {3.7994915681724916`*^9, 3.7994915888986807`*^9}, 
   3.7994916286532927`*^9, 3.79949170077641*^9, 3.7995418802359977`*^9, 
   3.79954200178498*^9, 3.799542248364467*^9, 3.799542418178048*^9, 
   3.799542509972083*^9, 3.799542608574939*^9, 3.799542672839131*^9, {
   3.7995427217736225`*^9, 3.7995427445234632`*^9}, 3.799542867282419*^9, 
   3.7995429684564657`*^9, 3.7997716258099604`*^9, 3.7998502466302767`*^9, 
   3.799850301039985*^9, 3.799851104398441*^9, 3.799854912650391*^9, 
   3.7998549754993553`*^9, 3.7998550397341785`*^9, 3.800201995330181*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"dba898d0-baf2-44c7-8265-654714786c54"],

Cell[BoxData["\<\"----------\"\>"], "Print",
 CellChangeTimes->{
  3.7994903490351515`*^9, 3.7994906781159983`*^9, 3.7994910364164104`*^9, 
   3.799491229645982*^9, 3.7994912644367647`*^9, 3.7994912975427856`*^9, 
   3.799491505673452*^9, {3.7994915681724916`*^9, 3.7994915888986807`*^9}, 
   3.7994916286532927`*^9, 3.79949170077641*^9, 3.7995418802359977`*^9, 
   3.79954200178498*^9, 3.799542248364467*^9, 3.799542418178048*^9, 
   3.799542509972083*^9, 3.799542608574939*^9, 3.799542672839131*^9, {
   3.7995427217736225`*^9, 3.7995427445234632`*^9}, 3.799542867282419*^9, 
   3.7995429684564657`*^9, 3.7997716258099604`*^9, 3.7998502466302767`*^9, 
   3.799850301039985*^9, 3.799851104398441*^9, 3.799854912650391*^9, 
   3.7998549754993553`*^9, 3.7998550397341785`*^9, 3.8002019953458056`*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"59534b4c-9d4f-4b3b-865b-5181a13caf7a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\">> A = [\\!\\(\\*SubscriptBox[\\(a\\), \\(i\\)]\\)] = \"\>", 
   "\[InvisibleSpace]", 
   StyleBox[
    TagBox[
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {"2.8251482940371386`", "0.05134235534853816`"},
        {"0.4281246159824168`", "0.00778045039746035`"},
        {"1.8412236162733187`", "0.033461166404025404`"}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}], "\[NoBreak]", ")"}],
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]],
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]], "\[InvisibleSpace]", "\<\", d = \"\>", 
   "\[InvisibleSpace]", 
   StyleBox[
    TagBox[
     RowBox[{"(", "\[NoBreak]", 
      TagBox[GridBox[{
         {"24.981660302664174`"},
         {"27.224865474262227`"}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}],
       Column], "\[NoBreak]", ")"}],
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]],
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]]}],
  SequenceForm[">> A = [\!\(\*SubscriptBox[\(a\), \(i\)]\)] = ", 
   Style[
    MatrixForm[{{2.8251482940371386`, 0.05134235534853816}, {
     0.4281246159824168, 0.00778045039746035}, {1.8412236162733187`, 
     0.033461166404025404`}}], 
    RGBColor[1, 0, 0]], ", d = ", 
   Style[
    MatrixForm[{24.981660302664174`, 27.224865474262227`}], 
    RGBColor[1, 0, 0]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7994903490351515`*^9, 3.7994906781159983`*^9, 3.7994910364164104`*^9, 
   3.799491229645982*^9, 3.7994912644367647`*^9, 3.7994912975427856`*^9, 
   3.799491505673452*^9, {3.7994915681724916`*^9, 3.7994915888986807`*^9}, 
   3.7994916286532927`*^9, 3.79949170077641*^9, 3.7995418802359977`*^9, 
   3.79954200178498*^9, 3.799542248364467*^9, 3.799542418178048*^9, 
   3.799542509972083*^9, 3.799542608574939*^9, 3.799542672839131*^9, {
   3.7995427217736225`*^9, 3.7995427445234632`*^9}, 3.799542867282419*^9, 
   3.7995429684564657`*^9, 3.7997716258099604`*^9, 3.7998502466302767`*^9, 
   3.799850301039985*^9, 3.799851104398441*^9, 3.799854912650391*^9, 
   3.7998549754993553`*^9, 3.7998550397341785`*^9, 3.8002019953458056`*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"c7a9ef39-d98a-4510-b021-2e852b968575"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\">> \\!\\(\\*SubscriptBox[\\(c\\), \\(casca\\)]\\) = \"\>", 
   "\[InvisibleSpace]", 
   StyleBox[
    RowBox[{"{", 
     RowBox[{
     "19.027787578950097`", ",", "16.09317230382735`", ",", 
      "16.676888018551008`"}], "}"}],
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]], 
   "\[InvisibleSpace]", "\<\", \\!\\(\\*UnderscriptBox[SubscriptBox[\\(d\\), \
\\(casca\\)], \\(_\\)]\\) = \"\>", "\[InvisibleSpace]", 
   StyleBox["10.306265047369076`",
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]], 
   "\[InvisibleSpace]", "\<\", \\!\\(\\*OverscriptBox[SubscriptBox[\\(d\\), \
\\(casca\\)], \\(_\\)]\\) = \"\>", "\[InvisibleSpace]", 
   StyleBox["10.950398474019945`",
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]]}],
  SequenceForm[">> \!\(\*SubscriptBox[\(c\), \(casca\)]\) = ", 
   Style[{19.027787578950097`, 16.09317230382735, 16.676888018551008`}, 
    RGBColor[1, 0, 0]], 
   ", \!\(\*UnderscriptBox[SubscriptBox[\(d\), \(casca\)], \(_\)]\) = ", 
   Style[10.306265047369076`, 
    RGBColor[1, 0, 0]], 
   ", \!\(\*OverscriptBox[SubscriptBox[\(d\), \(casca\)], \(_\)]\) = ", 
   Style[10.950398474019945`, 
    RGBColor[1, 0, 0]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7994903490351515`*^9, 3.7994906781159983`*^9, 3.7994910364164104`*^9, 
   3.799491229645982*^9, 3.7994912644367647`*^9, 3.7994912975427856`*^9, 
   3.799491505673452*^9, {3.7994915681724916`*^9, 3.7994915888986807`*^9}, 
   3.7994916286532927`*^9, 3.79949170077641*^9, 3.7995418802359977`*^9, 
   3.79954200178498*^9, 3.799542248364467*^9, 3.799542418178048*^9, 
   3.799542509972083*^9, 3.799542608574939*^9, 3.799542672839131*^9, {
   3.7995427217736225`*^9, 3.7995427445234632`*^9}, 3.799542867282419*^9, 
   3.7995429684564657`*^9, 3.7997716258099604`*^9, 3.7998502466302767`*^9, 
   3.799850301039985*^9, 3.799851104398441*^9, 3.799854912650391*^9, 
   3.7998549754993553`*^9, 3.7998550397341785`*^9, 3.8002019953458056`*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"c7748388-6192-4dd5-98b0-cc3e1bb56740"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\">> \\!\\(\\*OverscriptBox[\\(A\\), \\(_\\)]\\) = A \[Union] \
\\!\\(\\*SubscriptBox[\\(c\\), \\(casca\\)]\\)  = \"\>", "\[InvisibleSpace]", 
   StyleBox[
    TagBox[
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {"2.8251482940371386`", "0.05134235534853816`", "19.027787578950097`"},
        {"0.4281246159824168`", "0.00778045039746035`", "16.09317230382735`"},
        {"1.8412236162733187`", "0.033461166404025404`", "16.676888018551008`"}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}], "\[NoBreak]", ")"}],
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]],
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]]}],
  SequenceForm[
  ">> \!\(\*OverscriptBox[\(A\), \(_\)]\) = A \[Union] \!\(\*SubscriptBox[\(c\
\), \(casca\)]\)  = ", 
   Style[
    MatrixForm[{{2.8251482940371386`, 0.05134235534853816, 
     19.027787578950097`}, {0.4281246159824168, 0.00778045039746035, 
     16.09317230382735}, {1.8412236162733187`, 0.033461166404025404`, 
     16.676888018551008`}}], 
    RGBColor[1, 0, 0]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7994903490351515`*^9, 3.7994906781159983`*^9, 3.7994910364164104`*^9, 
   3.799491229645982*^9, 3.7994912644367647`*^9, 3.7994912975427856`*^9, 
   3.799491505673452*^9, {3.7994915681724916`*^9, 3.7994915888986807`*^9}, 
   3.7994916286532927`*^9, 3.79949170077641*^9, 3.7995418802359977`*^9, 
   3.79954200178498*^9, 3.799542248364467*^9, 3.799542418178048*^9, 
   3.799542509972083*^9, 3.799542608574939*^9, 3.799542672839131*^9, {
   3.7995427217736225`*^9, 3.7995427445234632`*^9}, 3.799542867282419*^9, 
   3.7995429684564657`*^9, 3.7997716258099604`*^9, 3.7998502466302767`*^9, 
   3.799850301039985*^9, 3.799851104398441*^9, 3.799854912650391*^9, 
   3.7998549754993553`*^9, 3.7998550397341785`*^9, 3.8002019953614264`*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"2f76ff6a-34eb-4343-abe7-95e60088562f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\">> rank(A \[Union] \\!\\(\\*SubscriptBox[\\(c\\), \\(casca\\)]\
\\))= \"\>", "\[InvisibleSpace]", 
   StyleBox["2",
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]], 
   "\[InvisibleSpace]", "\<\", rank(A) = \"\>", "\[InvisibleSpace]", 
   StyleBox["1",
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]], "\[InvisibleSpace]", "\<\", k = \"\>", 
   "\[InvisibleSpace]", 
   StyleBox["1",
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]]}],
  SequenceForm[">> rank(A \[Union] \!\(\*SubscriptBox[\(c\), \(casca\)]\))= ", 
   Style[2, 
    RGBColor[1, 0, 0]], ", rank(A) = ", 
   Style[1, 
    RGBColor[1, 0, 0]], ", k = ", 
   Style[1, 
    RGBColor[1, 0, 0]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7994903490351515`*^9, 3.7994906781159983`*^9, 3.7994910364164104`*^9, 
   3.799491229645982*^9, 3.7994912644367647`*^9, 3.7994912975427856`*^9, 
   3.799491505673452*^9, {3.7994915681724916`*^9, 3.7994915888986807`*^9}, 
   3.7994916286532927`*^9, 3.79949170077641*^9, 3.7995418802359977`*^9, 
   3.79954200178498*^9, 3.799542248364467*^9, 3.799542418178048*^9, 
   3.799542509972083*^9, 3.799542608574939*^9, 3.799542672839131*^9, {
   3.7995427217736225`*^9, 3.7995427445234632`*^9}, 3.799542867282419*^9, 
   3.7995429684564657`*^9, 3.7997716258099604`*^9, 3.7998502466302767`*^9, 
   3.799850301039985*^9, 3.799851104398441*^9, 3.799854912650391*^9, 
   3.7998549754993553`*^9, 3.7998550397341785`*^9, 3.8002019953614264`*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"30644275-b9da-47bb-80cc-339a6b41a398"],

Cell[BoxData["\<\"----------\"\>"], "Print",
 CellChangeTimes->{
  3.7994903490351515`*^9, 3.7994906781159983`*^9, 3.7994910364164104`*^9, 
   3.799491229645982*^9, 3.7994912644367647`*^9, 3.7994912975427856`*^9, 
   3.799491505673452*^9, {3.7994915681724916`*^9, 3.7994915888986807`*^9}, 
   3.7994916286532927`*^9, 3.79949170077641*^9, 3.7995418802359977`*^9, 
   3.79954200178498*^9, 3.799542248364467*^9, 3.799542418178048*^9, 
   3.799542509972083*^9, 3.799542608574939*^9, 3.799542672839131*^9, {
   3.7995427217736225`*^9, 3.7995427445234632`*^9}, 3.799542867282419*^9, 
   3.7995429684564657`*^9, 3.7997716258099604`*^9, 3.7998502466302767`*^9, 
   3.799850301039985*^9, 3.799851104398441*^9, 3.799854912650391*^9, 
   3.7998549754993553`*^9, 3.7998550397341785`*^9, 3.8002019953770547`*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"8ed5496f-5aa5-4a17-b3f1-f9fc6af100b4"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\">> \\!\\(\\*SubscriptBox[\\(c\\), \\(casca[conforme]\\)]\\) = \
\"\>", "\[InvisibleSpace]", 
   StyleBox[
    RowBox[{
     RowBox[{"19.027787578950097`", " ", 
      TagBox[
       SubscriptBox["e", "1"],
       DisplayForm]}], "+", 
     RowBox[{"16.09317230382735`", " ", 
      TagBox[
       SubscriptBox["e", "2"],
       DisplayForm]}], "+", 
     RowBox[{"16.676888018551008`", " ", 
      TagBox[
       SubscriptBox["e", "3"],
       DisplayForm]}], "+", 
     RowBox[{"0.5`", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         TagBox[
          SubscriptBox["e", "4"],
          DisplayForm]}], "+", 
        TagBox[
         SubscriptBox["e", "5"],
         DisplayForm]}], ")"}]}], "+", 
     RowBox[{"449.58274446680673`", " ", 
      RowBox[{"(", 
       RowBox[{
        TagBox[
         SubscriptBox["e", "4"],
         DisplayForm], "+", 
        TagBox[
         SubscriptBox["e", "5"],
         DisplayForm]}], ")"}]}]}],
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]], 
   "\[InvisibleSpace]", "\<\", \\!\\(\\*SubscriptBox[\\(r\\), \\(casca\\)]\\) \
\[Element] [\"\>", "\[InvisibleSpace]", 
   StyleBox["10.306265047369076`",
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]], "\[InvisibleSpace]", "\<\", \"\>", 
   "\[InvisibleSpace]", 
   StyleBox["10.950398474019945`",
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]], "\[InvisibleSpace]", "\<\"]\"\>"}],
  SequenceForm[">> \!\(\*SubscriptBox[\(c\), \(casca[conforme]\)]\) = ", 
   Style[19.027787578950097` Clifford`e[1] + 16.09317230382735 Clifford`e[2] + 
    16.676888018551008` Clifford`e[3] + 0.5 (-Clifford`e[4] + Clifford`e[5]) + 
    449.58274446680673` (Clifford`e[4] + Clifford`e[5]), 
    RGBColor[1, 0, 0]], 
   ", \!\(\*SubscriptBox[\(r\), \(casca\)]\) \[Element] [", 
   Style[10.306265047369076`, 
    RGBColor[1, 0, 0]], ", ", 
   Style[10.950398474019945`, 
    RGBColor[1, 0, 0]], "]"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7994903490351515`*^9, 3.7994906781159983`*^9, 3.7994910364164104`*^9, 
   3.799491229645982*^9, 3.7994912644367647`*^9, 3.7994912975427856`*^9, 
   3.799491505673452*^9, {3.7994915681724916`*^9, 3.7994915888986807`*^9}, 
   3.7994916286532927`*^9, 3.79949170077641*^9, 3.7995418802359977`*^9, 
   3.79954200178498*^9, 3.799542248364467*^9, 3.799542418178048*^9, 
   3.799542509972083*^9, 3.799542608574939*^9, 3.799542672839131*^9, {
   3.7995427217736225`*^9, 3.7995427445234632`*^9}, 3.799542867282419*^9, 
   3.7995429684564657`*^9, 3.7997716258099604`*^9, 3.7998502466302767`*^9, 
   3.799850301039985*^9, 3.799851104398441*^9, 3.799854912650391*^9, 
   3.7998549754993553`*^9, 3.7998550397341785`*^9, 3.800201995383565*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"0e4993fd-c0da-40bd-93bf-5d089d69f484"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\">> \\!\\(\\*SubscriptBox[\\(\[Sigma]\\), \\(\\(casca\\)\\(\\\\ \
\\)\\)]\\)= \"\>", "\[InvisibleSpace]", 
   StyleBox[
    RowBox[{
     RowBox[{"19.027787578950097`", " ", 
      TagBox[
       SubscriptBox["e", "1"],
       DisplayForm]}], "+", 
     RowBox[{"16.09317230382735`", " ", 
      TagBox[
       SubscriptBox["e", "2"],
       DisplayForm]}], "+", 
     RowBox[{"16.676888018551008`", " ", 
      TagBox[
       SubscriptBox["e", "3"],
       DisplayForm]}], "+", 
     RowBox[{"0.5`", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         TagBox[
          SubscriptBox["e", "4"],
          DisplayForm]}], "+", 
        TagBox[
         SubscriptBox["e", "5"],
         DisplayForm]}], ")"}]}], "+", 
     RowBox[{"389.6271310968976`", " ", 
      RowBox[{"(", 
       RowBox[{
        TagBox[
         SubscriptBox["e", "4"],
         DisplayForm], "+", 
        TagBox[
         SubscriptBox["e", "5"],
         DisplayForm]}], ")"}]}]}],
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]], 
   "\[InvisibleSpace]", "\<\", \\!\\(\\*SubscriptBox[\\(r\\), \
\\(\\(casca\\)\\(*\\)\\)]\\) = \"\>", "\[InvisibleSpace]", 
   StyleBox["10.950398474019945`",
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]]}],
  SequenceForm[
  ">> \!\(\*SubscriptBox[\(\[Sigma]\), \(\(casca\)\(\\ \)\)]\)= ", 
   Style[19.027787578950097` Clifford`e[1] + 16.09317230382735 Clifford`e[2] + 
    16.676888018551008` Clifford`e[3] + 0.5 (-Clifford`e[4] + Clifford`e[5]) + 
    389.6271310968976 (Clifford`e[4] + Clifford`e[5]), 
    RGBColor[1, 0, 0]], 
   ", \!\(\*SubscriptBox[\(r\), \(\(casca\)\(*\)\)]\) = ", 
   Style[10.950398474019945`, 
    RGBColor[1, 0, 0]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7994903490351515`*^9, 3.7994906781159983`*^9, 3.7994910364164104`*^9, 
   3.799491229645982*^9, 3.7994912644367647`*^9, 3.7994912975427856`*^9, 
   3.799491505673452*^9, {3.7994915681724916`*^9, 3.7994915888986807`*^9}, 
   3.7994916286532927`*^9, 3.79949170077641*^9, 3.7995418802359977`*^9, 
   3.79954200178498*^9, 3.799542248364467*^9, 3.799542418178048*^9, 
   3.799542509972083*^9, 3.799542608574939*^9, 3.799542672839131*^9, {
   3.7995427217736225`*^9, 3.7995427445234632`*^9}, 3.799542867282419*^9, 
   3.7995429684564657`*^9, 3.7997716258099604`*^9, 3.7998502466302767`*^9, 
   3.799850301039985*^9, 3.799851104398441*^9, 3.799854912650391*^9, 
   3.7998549754993553`*^9, 3.7998550397341785`*^9, 3.8002019953991995`*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"5f2b033c-fdf0-4217-834c-2aa6234bb55d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\">> \\!\\(\\*SubscriptBox[SubscriptBox[\\(c\\), \\(casca\\)], \
\\([conforme]\\)]\\) . \\!\\(\\*SubscriptBox[\\(e\\), \\(\[Infinity]\\)]\\) = \
\"\>", "\[InvisibleSpace]", 
   StyleBox[
    RowBox[{"-", "1.`"}],
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]]}],
  SequenceForm[
  ">> \!\(\*SubscriptBox[SubscriptBox[\(c\), \(casca\)], \([conforme]\)]\) . \
\!\(\*SubscriptBox[\(e\), \(\[Infinity]\)]\) = ", 
   Style[-1., 
    RGBColor[1, 0, 0]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7994903490351515`*^9, 3.7994906781159983`*^9, 3.7994910364164104`*^9, 
   3.799491229645982*^9, 3.7994912644367647`*^9, 3.7994912975427856`*^9, 
   3.799491505673452*^9, {3.7994915681724916`*^9, 3.7994915888986807`*^9}, 
   3.7994916286532927`*^9, 3.79949170077641*^9, 3.7995418802359977`*^9, 
   3.79954200178498*^9, 3.799542248364467*^9, 3.799542418178048*^9, 
   3.799542509972083*^9, 3.799542608574939*^9, 3.799542672839131*^9, {
   3.7995427217736225`*^9, 3.7995427445234632`*^9}, 3.799542867282419*^9, 
   3.7995429684564657`*^9, 3.7997716258099604`*^9, 3.7998502466302767`*^9, 
   3.799850301039985*^9, 3.799851104398441*^9, 3.799854912650391*^9, 
   3.7998549754993553`*^9, 3.7998550397341785`*^9, 3.8002019953991995`*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"8000101d-1978-4f0b-8be6-7310ad399e55"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\">> \\!\\(\\*SubscriptBox[\\(\[Sigma]\\), \\(casca\\)]\\) . \\!\
\\(\\*SubscriptBox[\\(e\\), \\(\[Infinity]\\)]\\) = \"\>", 
   "\[InvisibleSpace]", 
   StyleBox[
    RowBox[{"-", "1.`"}],
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]]}],
  SequenceForm[
  ">> \!\(\*SubscriptBox[\(\[Sigma]\), \(casca\)]\) . \
\!\(\*SubscriptBox[\(e\), \(\[Infinity]\)]\) = ", 
   Style[-1., 
    RGBColor[1, 0, 0]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7994903490351515`*^9, 3.7994906781159983`*^9, 3.7994910364164104`*^9, 
   3.799491229645982*^9, 3.7994912644367647`*^9, 3.7994912975427856`*^9, 
   3.799491505673452*^9, {3.7994915681724916`*^9, 3.7994915888986807`*^9}, 
   3.7994916286532927`*^9, 3.79949170077641*^9, 3.7995418802359977`*^9, 
   3.79954200178498*^9, 3.799542248364467*^9, 3.799542418178048*^9, 
   3.799542509972083*^9, 3.799542608574939*^9, 3.799542672839131*^9, {
   3.7995427217736225`*^9, 3.7995427445234632`*^9}, 3.799542867282419*^9, 
   3.7995429684564657`*^9, 3.7997716258099604`*^9, 3.7998502466302767`*^9, 
   3.799850301039985*^9, 3.799851104398441*^9, 3.799854912650391*^9, 
   3.7998549754993553`*^9, 3.7998550397341785`*^9, 3.8002019954148235`*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"d8067653-5e0d-4af4-a142-f8df952324f6"],

Cell[BoxData["\<\"----------\"\>"], "Print",
 CellChangeTimes->{
  3.7994903490351515`*^9, 3.7994906781159983`*^9, 3.7994910364164104`*^9, 
   3.799491229645982*^9, 3.7994912644367647`*^9, 3.7994912975427856`*^9, 
   3.799491505673452*^9, {3.7994915681724916`*^9, 3.7994915888986807`*^9}, 
   3.7994916286532927`*^9, 3.79949170077641*^9, 3.7995418802359977`*^9, 
   3.79954200178498*^9, 3.799542248364467*^9, 3.799542418178048*^9, 
   3.799542509972083*^9, 3.799542608574939*^9, 3.799542672839131*^9, {
   3.7995427217736225`*^9, 3.7995427445234632`*^9}, 3.799542867282419*^9, 
   3.7995429684564657`*^9, 3.7997716258099604`*^9, 3.7998502466302767`*^9, 
   3.799850301039985*^9, 3.799851104398441*^9, 3.799854912650391*^9, 
   3.7998549754993553`*^9, 3.7998550397341785`*^9, 3.8002019954148235`*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"88e436bc-3483-46aa-aeae-3c0f03b1c4be"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\">> \\!\\(\\*SubscriptBox[SubscriptBox[\\(\[Sigma]\\), \
\\([\\((n - k)\\) - esfera]\\)], \\(\\\\ \\)]\\)= \"\>", "\[InvisibleSpace]", 
   StyleBox[
    RowBox[{
     RowBox[{
      RowBox[{"-", "1032.6476781376984`"}], " ", 
      TagBox[
       SubscriptBox["e", "1"],
       DisplayForm], " ", 
      TagBox[
       SubscriptBox["e", "4"],
       DisplayForm]}], "-", 
     RowBox[{"156.48802987827324`", " ", 
      TagBox[
       SubscriptBox["e", "2"],
       DisplayForm], " ", 
      TagBox[
       SubscriptBox["e", "4"],
       DisplayForm]}], "-", 
     RowBox[{"673.0037132174501`", " ", 
      TagBox[
       SubscriptBox["e", "3"],
       DisplayForm], " ", 
      TagBox[
       SubscriptBox["e", "4"],
       DisplayForm]}], "-", 
     RowBox[{"1029.8738721990096`", " ", 
      TagBox[
       SubscriptBox["e", "1"],
       DisplayForm], " ", 
      TagBox[
       SubscriptBox["e", "5"],
       DisplayForm]}], "-", 
     RowBox[{"156.06768571268827`", " ", 
      TagBox[
       SubscriptBox["e", "2"],
       DisplayForm], " ", 
      TagBox[
       SubscriptBox["e", "5"],
       DisplayForm]}], "-", 
     RowBox[{"671.1959507675808`", " ", 
      TagBox[
       SubscriptBox["e", "3"],
       DisplayForm], " ", 
      TagBox[
       SubscriptBox["e", "5"],
       DisplayForm]}], "+", 
     RowBox[{"64.33049518334155`", " ", 
      TagBox[
       SubscriptBox["e", "4"],
       DisplayForm], " ", 
      TagBox[
       SubscriptBox["e", "5"],
       DisplayForm]}]}],
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]]}],
  SequenceForm[
  ">> \!\(\*SubscriptBox[SubscriptBox[\(\[Sigma]\), \([\((n - k)\) - \
esfera]\)], \(\\ \)]\)= ", 
   Style[(-1032.6476781376984`) Clifford`e[1] Clifford`e[4] - 
    156.48802987827324` Clifford`e[2] Clifford`e[4] - 673.0037132174501 
    Clifford`e[3] Clifford`e[4] - 1029.8738721990096` Clifford`e[1] 
    Clifford`e[5] - 156.06768571268827` Clifford`e[2] Clifford`e[5] - 
    671.1959507675808 Clifford`e[3] Clifford`e[5] + 
    64.33049518334155 Clifford`e[4] Clifford`e[5], 
    RGBColor[1, 0, 0]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7994903490351515`*^9, 3.7994906781159983`*^9, 3.7994910364164104`*^9, 
   3.799491229645982*^9, 3.7994912644367647`*^9, 3.7994912975427856`*^9, 
   3.799491505673452*^9, {3.7994915681724916`*^9, 3.7994915888986807`*^9}, 
   3.7994916286532927`*^9, 3.79949170077641*^9, 3.7995418802359977`*^9, 
   3.79954200178498*^9, 3.799542248364467*^9, 3.799542418178048*^9, 
   3.799542509972083*^9, 3.799542608574939*^9, 3.799542672839131*^9, {
   3.7995427217736225`*^9, 3.7995427445234632`*^9}, 3.799542867282419*^9, 
   3.7995429684564657`*^9, 3.7997716258099604`*^9, 3.7998502466302767`*^9, 
   3.799850301039985*^9, 3.799851104398441*^9, 3.799854912650391*^9, 
   3.7998549754993553`*^9, 3.7998550397341785`*^9, 3.8002019954148235`*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"7e66dfc7-f498-4c08-a19c-c9cac13a4490"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\">> \\!\\(\\*SubscriptBox[\\(e\\), \\(\[Infinity]\\)]\\) . \
\\!\\(\\*SubscriptBox[SubscriptBox[\\(\[Sigma]\\), \\([\\((n - k)\\) - \\\\ \
esfera]\\)], \\(\\\\ \\)]\\)= \"\>", "\[InvisibleSpace]", 
   StyleBox[
    RowBox[{
     RowBox[{"2.773805938688838`", " ", 
      TagBox[
       SubscriptBox["e", "1"],
       DisplayForm]}], "+", 
     RowBox[{"0.42034416558496446`", " ", 
      TagBox[
       SubscriptBox["e", "2"],
       DisplayForm]}], "+", 
     RowBox[{"1.8077624498693012`", " ", 
      TagBox[
       SubscriptBox["e", "3"],
       DisplayForm]}], "+", 
     RowBox[{"64.33049518334155`", " ", 
      TagBox[
       SubscriptBox["e", "4"],
       DisplayForm]}], "+", 
     RowBox[{"64.33049518334155`", " ", 
      TagBox[
       SubscriptBox["e", "5"],
       DisplayForm]}]}],
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]]}],
  SequenceForm[
  ">> \!\(\*SubscriptBox[\(e\), \(\[Infinity]\)]\) . \
\!\(\*SubscriptBox[SubscriptBox[\(\[Sigma]\), \([\((n - k)\) - \\ esfera]\)], \
\(\\ \)]\)= ", 
   Style[2.773805938688838 Clifford`e[1] + 0.42034416558496446` Clifford`e[2] + 
    1.8077624498693012` Clifford`e[3] + 64.33049518334155 Clifford`e[4] + 
    64.33049518334155 Clifford`e[5], 
    RGBColor[1, 0, 0]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7994903490351515`*^9, 3.7994906781159983`*^9, 3.7994910364164104`*^9, 
   3.799491229645982*^9, 3.7994912644367647`*^9, 3.7994912975427856`*^9, 
   3.799491505673452*^9, {3.7994915681724916`*^9, 3.7994915888986807`*^9}, 
   3.7994916286532927`*^9, 3.79949170077641*^9, 3.7995418802359977`*^9, 
   3.79954200178498*^9, 3.799542248364467*^9, 3.799542418178048*^9, 
   3.799542509972083*^9, 3.799542608574939*^9, 3.799542672839131*^9, {
   3.7995427217736225`*^9, 3.7995427445234632`*^9}, 3.799542867282419*^9, 
   3.7995429684564657`*^9, 3.7997716258099604`*^9, 3.7998502466302767`*^9, 
   3.799850301039985*^9, 3.799851104398441*^9, 3.799854912650391*^9, 
   3.7998549754993553`*^9, 3.7998550397341785`*^9, 3.800201995430446*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"068ba942-0371-45d4-be09-e6ba30cb34ef"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\\!\\(\\*SuperscriptBox[SubscriptBox[\\(\[Sigma]\\), \\([\\((n \
- k)\\) - esfera]\\)], \\(2\\)]\\) = \"\>", "\[InvisibleSpace]", 
   StyleBox[
    RowBox[{"-", "4143.996563611436`"}],
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]]}],
  SequenceForm[
  "\!\(\*SuperscriptBox[SubscriptBox[\(\[Sigma]\), \([\((n - k)\) - \
esfera]\)], \(2\)]\) = ", 
   Style[-4143.996563611436, 
    RGBColor[1, 0, 0]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7994903490351515`*^9, 3.7994906781159983`*^9, 3.7994910364164104`*^9, 
   3.799491229645982*^9, 3.7994912644367647`*^9, 3.7994912975427856`*^9, 
   3.799491505673452*^9, {3.7994915681724916`*^9, 3.7994915888986807`*^9}, 
   3.7994916286532927`*^9, 3.79949170077641*^9, 3.7995418802359977`*^9, 
   3.79954200178498*^9, 3.799542248364467*^9, 3.799542418178048*^9, 
   3.799542509972083*^9, 3.799542608574939*^9, 3.799542672839131*^9, {
   3.7995427217736225`*^9, 3.7995427445234632`*^9}, 3.799542867282419*^9, 
   3.7995429684564657`*^9, 3.7997716258099604`*^9, 3.7998502466302767`*^9, 
   3.799850301039985*^9, 3.799851104398441*^9, 3.799854912650391*^9, 
   3.7998549754993553`*^9, 3.7998550397341785`*^9, 3.8002019954460726`*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"6ef02424-2266-4939-9959-54f6200785a3"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Raio[\\!\\(\\*SubscriptBox[\\(\[Sigma]\\), \\([\\((n - k)\\) - \
\\\\ esfera]\\)]\\)] = \"\>", "\[InvisibleSpace]", 
   StyleBox[
    RowBox[{"0.`", "\[VeryThinSpace]", "+", 
     RowBox[{"64.37388106686932`", " ", "\[ImaginaryI]"}]}],
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]]}],
  SequenceForm[
  "Raio[\!\(\*SubscriptBox[\(\[Sigma]\), \([\((n - k)\) - \\ esfera]\)]\)] = \
", 
   Style[
    Complex[0., 64.37388106686932], 
    RGBColor[1, 0, 0]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7994903490351515`*^9, 3.7994906781159983`*^9, 3.7994910364164104`*^9, 
   3.799491229645982*^9, 3.7994912644367647`*^9, 3.7994912975427856`*^9, 
   3.799491505673452*^9, {3.7994915681724916`*^9, 3.7994915888986807`*^9}, 
   3.7994916286532927`*^9, 3.79949170077641*^9, 3.7995418802359977`*^9, 
   3.79954200178498*^9, 3.799542248364467*^9, 3.799542418178048*^9, 
   3.799542509972083*^9, 3.799542608574939*^9, 3.799542672839131*^9, {
   3.7995427217736225`*^9, 3.7995427445234632`*^9}, 3.799542867282419*^9, 
   3.7995429684564657`*^9, 3.7997716258099604`*^9, 3.7998502466302767`*^9, 
   3.799850301039985*^9, 3.799851104398441*^9, 3.799854912650391*^9, 
   3.7998549754993553`*^9, 3.7998550397341785`*^9, 3.8002019954460726`*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"438422b5-5f04-4f39-93d6-e93022c8dbeb"],

Cell[BoxData["\<\"----------\"\>"], "Print",
 CellChangeTimes->{
  3.7994903490351515`*^9, 3.7994906781159983`*^9, 3.7994910364164104`*^9, 
   3.799491229645982*^9, 3.7994912644367647`*^9, 3.7994912975427856`*^9, 
   3.799491505673452*^9, {3.7994915681724916`*^9, 3.7994915888986807`*^9}, 
   3.7994916286532927`*^9, 3.79949170077641*^9, 3.7995418802359977`*^9, 
   3.79954200178498*^9, 3.799542248364467*^9, 3.799542418178048*^9, 
   3.799542509972083*^9, 3.799542608574939*^9, 3.799542672839131*^9, {
   3.7995427217736225`*^9, 3.7995427445234632`*^9}, 3.799542867282419*^9, 
   3.7995429684564657`*^9, 3.7997716258099604`*^9, 3.7998502466302767`*^9, 
   3.799850301039985*^9, 3.799851104398441*^9, 3.799854912650391*^9, 
   3.7998549754993553`*^9, 3.7998550397341785`*^9, 3.8002019954460726`*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"8648cad0-3247-43a7-9ba7-07e805a84c15"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\">> \\!\\(\\*SubscriptBox[SubscriptBox[\\(\[Sigma]\\), \
\\(\\([\\((n - k)\\) - \\\\ esfera]\\) N\\)], \\(\\\\ \\)]\\)= \"\>", 
   "\[InvisibleSpace]", 
   StyleBox[
    RowBox[{
     RowBox[{"16.01985966518805`", " ", 
      TagBox[
       SubscriptBox["e", "1"],
       DisplayForm]}], "+", 
     RowBox[{"2.427658853068351`", " ", 
      TagBox[
       SubscriptBox["e", "2"],
       DisplayForm]}], "+", 
     RowBox[{"10.440564839439048`", " ", 
      TagBox[
       SubscriptBox["e", "3"],
       DisplayForm]}], "-", 
     RowBox[{"0.7506556531265005`", " ", 
      TagBox[
       SubscriptBox["e", "4"],
       DisplayForm]}], "+", 
     RowBox[{"0.24934434687344265`", " ", 
      TagBox[
       SubscriptBox["e", "5"],
       DisplayForm]}]}],
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]]}],
  SequenceForm[
  ">> \!\(\*SubscriptBox[SubscriptBox[\(\[Sigma]\), \(\([\((n - k)\) - \\ \
esfera]\) N\)], \(\\ \)]\)= ", 
   Style[16.01985966518805 Clifford`e[1] + 2.427658853068351 Clifford`e[2] + 
    10.440564839439048` Clifford`e[3] - 0.7506556531265005 Clifford`e[4] + 
    0.24934434687344265` Clifford`e[5], 
    RGBColor[1, 0, 0]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7994903490351515`*^9, 3.7994906781159983`*^9, 3.7994910364164104`*^9, 
   3.799491229645982*^9, 3.7994912644367647`*^9, 3.7994912975427856`*^9, 
   3.799491505673452*^9, {3.7994915681724916`*^9, 3.7994915888986807`*^9}, 
   3.7994916286532927`*^9, 3.79949170077641*^9, 3.7995418802359977`*^9, 
   3.79954200178498*^9, 3.799542248364467*^9, 3.799542418178048*^9, 
   3.799542509972083*^9, 3.799542608574939*^9, 3.799542672839131*^9, {
   3.7995427217736225`*^9, 3.7995427445234632`*^9}, 3.799542867282419*^9, 
   3.7995429684564657`*^9, 3.7997716258099604`*^9, 3.7998502466302767`*^9, 
   3.799850301039985*^9, 3.799851104398441*^9, 3.799854912650391*^9, 
   3.7998549754993553`*^9, 3.7998550397341785`*^9, 3.8002019954460726`*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"f93b9ff0-eb4f-40fb-8594-710fcbce2157"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(e\\), \\(\[Infinity]\\)]\\) . \
\\!\\(\\*SubscriptBox[\\(\[Sigma]\\), \\(\\([\\((n - k)\\) - \\\\ esfera]\\) \
N\\)]\\) = \"\>", "\[InvisibleSpace]", 
   StyleBox[
    RowBox[{"-", "0.9999999999999432`"}],
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]]}],
  SequenceForm[
  "\!\(\*SubscriptBox[\(e\), \(\[Infinity]\)]\) . \!\(\*SubscriptBox[\(\
\[Sigma]\), \(\([\((n - k)\) - \\ esfera]\) N\)]\) = ", 
   Style[-0.9999999999999432, 
    RGBColor[1, 0, 0]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7994903490351515`*^9, 3.7994906781159983`*^9, 3.7994910364164104`*^9, 
   3.799491229645982*^9, 3.7994912644367647`*^9, 3.7994912975427856`*^9, 
   3.799491505673452*^9, {3.7994915681724916`*^9, 3.7994915888986807`*^9}, 
   3.7994916286532927`*^9, 3.79949170077641*^9, 3.7995418802359977`*^9, 
   3.79954200178498*^9, 3.799542248364467*^9, 3.799542418178048*^9, 
   3.799542509972083*^9, 3.799542608574939*^9, 3.799542672839131*^9, {
   3.7995427217736225`*^9, 3.7995427445234632`*^9}, 3.799542867282419*^9, 
   3.7995429684564657`*^9, 3.7997716258099604`*^9, 3.7998502466302767`*^9, 
   3.799850301039985*^9, 3.799851104398441*^9, 3.799854912650391*^9, 
   3.7998549754993553`*^9, 3.7998550397341785`*^9, 3.800201995461698*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"fdfd2053-3cf1-4333-a367-7b73b11a827c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\\!\\(\\*SuperscriptBox[SubscriptBox[\\(\[Sigma]\\), \
\\(\\([\\((n - k)\\) - \\\\ esfera]\\) N\\)], \\(2\\)]\\) = \"\>", 
   "\[InvisibleSpace]", 
   StyleBox["372.0361366719841`",
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]]}],
  SequenceForm[
  "\!\(\*SuperscriptBox[SubscriptBox[\(\[Sigma]\), \(\([\((n - k)\) - \\ \
esfera]\) N\)], \(2\)]\) = ", 
   Style[372.0361366719841, 
    RGBColor[1, 0, 0]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7994903490351515`*^9, 3.7994906781159983`*^9, 3.7994910364164104`*^9, 
   3.799491229645982*^9, 3.7994912644367647`*^9, 3.7994912975427856`*^9, 
   3.799491505673452*^9, {3.7994915681724916`*^9, 3.7994915888986807`*^9}, 
   3.7994916286532927`*^9, 3.79949170077641*^9, 3.7995418802359977`*^9, 
   3.79954200178498*^9, 3.799542248364467*^9, 3.799542418178048*^9, 
   3.799542509972083*^9, 3.799542608574939*^9, 3.799542672839131*^9, {
   3.7995427217736225`*^9, 3.7995427445234632`*^9}, 3.799542867282419*^9, 
   3.7995429684564657`*^9, 3.7997716258099604`*^9, 3.7998502466302767`*^9, 
   3.799850301039985*^9, 3.799851104398441*^9, 3.799854912650391*^9, 
   3.7998549754993553`*^9, 3.7998550397341785`*^9, 3.800201995461698*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"65a625ca-a58f-4505-a706-e639ab1bff4b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Raio[\\!\\(\\*SubscriptBox[\\(\[Sigma]\\), \\(\\([\\((n - \
k)\\) - \\\\ esfera]\\) N\\)]\\)] = \"\>", "\[InvisibleSpace]", 
   StyleBox["19.28823829881786`",
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]]}],
  SequenceForm[
  "Raio[\!\(\*SubscriptBox[\(\[Sigma]\), \(\([\((n - k)\) - \\ esfera]\) N\)]\
\)] = ", 
   Style[19.28823829881786, 
    RGBColor[1, 0, 0]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7994903490351515`*^9, 3.7994906781159983`*^9, 3.7994910364164104`*^9, 
   3.799491229645982*^9, 3.7994912644367647`*^9, 3.7994912975427856`*^9, 
   3.799491505673452*^9, {3.7994915681724916`*^9, 3.7994915888986807`*^9}, 
   3.7994916286532927`*^9, 3.79949170077641*^9, 3.7995418802359977`*^9, 
   3.79954200178498*^9, 3.799542248364467*^9, 3.799542418178048*^9, 
   3.799542509972083*^9, 3.799542608574939*^9, 3.799542672839131*^9, {
   3.7995427217736225`*^9, 3.7995427445234632`*^9}, 3.799542867282419*^9, 
   3.7995429684564657`*^9, 3.7997716258099604`*^9, 3.7998502466302767`*^9, 
   3.799850301039985*^9, 3.799851104398441*^9, 3.799854912650391*^9, 
   3.7998549754993553`*^9, 3.7998550397341785`*^9, 3.800201995477322*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"b271205e-0d13-44c9-a93d-94e47da52f2b"],

Cell[BoxData["\<\"----------\"\>"], "Print",
 CellChangeTimes->{
  3.7994903490351515`*^9, 3.7994906781159983`*^9, 3.7994910364164104`*^9, 
   3.799491229645982*^9, 3.7994912644367647`*^9, 3.7994912975427856`*^9, 
   3.799491505673452*^9, {3.7994915681724916`*^9, 3.7994915888986807`*^9}, 
   3.7994916286532927`*^9, 3.79949170077641*^9, 3.7995418802359977`*^9, 
   3.79954200178498*^9, 3.799542248364467*^9, 3.799542418178048*^9, 
   3.799542509972083*^9, 3.799542608574939*^9, 3.799542672839131*^9, {
   3.7995427217736225`*^9, 3.7995427445234632`*^9}, 3.799542867282419*^9, 
   3.7995429684564657`*^9, 3.7997716258099604`*^9, 3.7998502466302767`*^9, 
   3.799850301039985*^9, 3.799851104398441*^9, 3.799854912650391*^9, 
   3.7998549754993553`*^9, 3.7998550397341785`*^9, 3.800201995477322*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"6c3f1d64-e263-466b-af48-d06768e75b2f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\">> Centro[\\!\\(\\*SubscriptBox[\\(\[Sigma]\\), \\([n - k\\\\ \
esfera]\\)]\\)]= \"\>", "\[InvisibleSpace]", 
   StyleBox[
    RowBox[{
     RowBox[{
      RowBox[{"-", "356.88061915669823`"}], " ", 
      TagBox[
       SubscriptBox["e", "1"],
       DisplayForm]}], "-", 
     RowBox[{"54.08189663901794`", " ", 
      TagBox[
       SubscriptBox["e", "2"],
       DisplayForm]}], "-", 
     RowBox[{"232.58850714788423`", " ", 
      TagBox[
       SubscriptBox["e", "3"],
       DisplayForm]}], "-", 
     RowBox[{"4127.273916855728`", " ", 
      TagBox[
       SubscriptBox["e", "4"],
       DisplayForm]}], "-", 
     RowBox[{"4149.551304212135`", " ", 
      TagBox[
       SubscriptBox["e", "5"],
       DisplayForm]}]}],
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]]}],
  SequenceForm[
  ">> Centro[\!\(\*SubscriptBox[\(\[Sigma]\), \([n - k\\ esfera]\)]\)]= ", 
   Style[(-356.88061915669823`) Clifford`e[1] - 54.08189663901794 
    Clifford`e[2] - 232.58850714788423` Clifford`e[3] - 4127.273916855728 
    Clifford`e[4] - 4149.551304212135 Clifford`e[5], 
    RGBColor[1, 0, 0]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7994903490351515`*^9, 3.7994906781159983`*^9, 3.7994910364164104`*^9, 
   3.799491229645982*^9, 3.7994912644367647`*^9, 3.7994912975427856`*^9, 
   3.799491505673452*^9, {3.7994915681724916`*^9, 3.7994915888986807`*^9}, 
   3.7994916286532927`*^9, 3.79949170077641*^9, 3.7995418802359977`*^9, 
   3.79954200178498*^9, 3.799542248364467*^9, 3.799542418178048*^9, 
   3.799542509972083*^9, 3.799542608574939*^9, 3.799542672839131*^9, {
   3.7995427217736225`*^9, 3.7995427445234632`*^9}, 3.799542867282419*^9, 
   3.7995429684564657`*^9, 3.7997716258099604`*^9, 3.7998502466302767`*^9, 
   3.799850301039985*^9, 3.799851104398441*^9, 3.799854912650391*^9, 
   3.7998549754993553`*^9, 3.7998550397341785`*^9, 3.8002019954838314`*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"715a9c59-cc03-4730-a654-88d40e62f142"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\">> Centro[\\!\\(\\*SubscriptBox[\\(\[Sigma]\\), \\([n - k\\\\ \
esfera]\\)]\\)]. \\!\\(\\*SubscriptBox[\\(e\\), \\(\[Infinity]\\)]\\) = \"\>",
    "\[InvisibleSpace]", 
   StyleBox["22.277387356406507`",
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]]}],
  SequenceForm[
  ">> Centro[\!\(\*SubscriptBox[\(\[Sigma]\), \([n - k\\ esfera]\)]\)]. \
\!\(\*SubscriptBox[\(e\), \(\[Infinity]\)]\) = ", 
   Style[22.277387356406507`, 
    RGBColor[1, 0, 0]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7994903490351515`*^9, 3.7994906781159983`*^9, 3.7994910364164104`*^9, 
   3.799491229645982*^9, 3.7994912644367647`*^9, 3.7994912975427856`*^9, 
   3.799491505673452*^9, {3.7994915681724916`*^9, 3.7994915888986807`*^9}, 
   3.7994916286532927`*^9, 3.79949170077641*^9, 3.7995418802359977`*^9, 
   3.79954200178498*^9, 3.799542248364467*^9, 3.799542418178048*^9, 
   3.799542509972083*^9, 3.799542608574939*^9, 3.799542672839131*^9, {
   3.7995427217736225`*^9, 3.7995427445234632`*^9}, 3.799542867282419*^9, 
   3.7995429684564657`*^9, 3.7997716258099604`*^9, 3.7998502466302767`*^9, 
   3.799850301039985*^9, 3.799851104398441*^9, 3.799854912650391*^9, 
   3.7998549754993553`*^9, 3.7998550397341785`*^9, 3.8002019954838314`*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"cd882387-4012-488c-bd40-d8bfdfb97141"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\">> Centro[\\!\\(\\*SubscriptBox[\\(\[Sigma]\\), \\(\\([n - k\\\
\\ esfera]\\) N\\)]\\)]= \"\>", "\[InvisibleSpace]", 
   StyleBox[
    RowBox[{
     RowBox[{
      RowBox[{"-", "32.03971933037428`"}], " ", 
      TagBox[
       SubscriptBox["e", "1"],
       DisplayForm]}], "-", 
     RowBox[{"4.855317706136426`", " ", 
      TagBox[
       SubscriptBox["e", "2"],
       DisplayForm]}], "-", 
     RowBox[{"20.88112967887691`", " ", 
      TagBox[
       SubscriptBox["e", "3"],
       DisplayForm]}], "-", 
     RowBox[{"370.5348253657312`", " ", 
      TagBox[
       SubscriptBox["e", "4"],
       DisplayForm]}], "-", 
     RowBox[{"372.53482536573097`", " ", 
      TagBox[
       SubscriptBox["e", "5"],
       DisplayForm]}]}],
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]]}],
  SequenceForm[
  ">> Centro[\!\(\*SubscriptBox[\(\[Sigma]\), \(\([n - k\\ esfera]\) N\)]\)]= \
", 
   Style[(-32.03971933037428) Clifford`e[1] - 4.855317706136426 Clifford`e[2] - 
    20.88112967887691 Clifford`e[3] - 370.5348253657312 Clifford`e[4] - 
    372.53482536573097` Clifford`e[5], 
    RGBColor[1, 0, 0]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7994903490351515`*^9, 3.7994906781159983`*^9, 3.7994910364164104`*^9, 
   3.799491229645982*^9, 3.7994912644367647`*^9, 3.7994912975427856`*^9, 
   3.799491505673452*^9, {3.7994915681724916`*^9, 3.7994915888986807`*^9}, 
   3.7994916286532927`*^9, 3.79949170077641*^9, 3.7995418802359977`*^9, 
   3.79954200178498*^9, 3.799542248364467*^9, 3.799542418178048*^9, 
   3.799542509972083*^9, 3.799542608574939*^9, 3.799542672839131*^9, {
   3.7995427217736225`*^9, 3.7995427445234632`*^9}, 3.799542867282419*^9, 
   3.7995429684564657`*^9, 3.7997716258099604`*^9, 3.7998502466302767`*^9, 
   3.799850301039985*^9, 3.799851104398441*^9, 3.799854912650391*^9, 
   3.7998549754993553`*^9, 3.7998550397341785`*^9, 3.800201995499465*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"44e31204-6454-44b9-abbe-b263a79306a6"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\">> Centro[\\!\\(\\*SubscriptBox[\\(\[Sigma]\\), \\(\\([n - k\\\
\\ esfera]\\) N\\)]\\)] . \\!\\(\\*SubscriptBox[\\(e\\), \
\\(\[Infinity]\\)]\\) = \"\>", "\[InvisibleSpace]", 
   StyleBox["1.9999999999997726`",
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]]}],
  SequenceForm[
  ">> Centro[\!\(\*SubscriptBox[\(\[Sigma]\), \(\([n - k\\ esfera]\) N\)]\)] \
. \!\(\*SubscriptBox[\(e\), \(\[Infinity]\)]\) = ", 
   Style[1.9999999999997726`, 
    RGBColor[1, 0, 0]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7994903490351515`*^9, 3.7994906781159983`*^9, 3.7994910364164104`*^9, 
   3.799491229645982*^9, 3.7994912644367647`*^9, 3.7994912975427856`*^9, 
   3.799491505673452*^9, {3.7994915681724916`*^9, 3.7994915888986807`*^9}, 
   3.7994916286532927`*^9, 3.79949170077641*^9, 3.7995418802359977`*^9, 
   3.79954200178498*^9, 3.799542248364467*^9, 3.799542418178048*^9, 
   3.799542509972083*^9, 3.799542608574939*^9, 3.799542672839131*^9, {
   3.7995427217736225`*^9, 3.7995427445234632`*^9}, 3.799542867282419*^9, 
   3.7995429684564657`*^9, 3.7997716258099604`*^9, 3.7998502466302767`*^9, 
   3.799850301039985*^9, 3.799851104398441*^9, 3.799854912650391*^9, 
   3.7998549754993553`*^9, 3.7998550397341785`*^9, 3.800201995499465*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"c484acd0-fd27-4712-9a74-c7b6b48ba71e"],

Cell[BoxData["\<\"----------\"\>"], "Print",
 CellChangeTimes->{
  3.7994903490351515`*^9, 3.7994906781159983`*^9, 3.7994910364164104`*^9, 
   3.799491229645982*^9, 3.7994912644367647`*^9, 3.7994912975427856`*^9, 
   3.799491505673452*^9, {3.7994915681724916`*^9, 3.7994915888986807`*^9}, 
   3.7994916286532927`*^9, 3.79949170077641*^9, 3.7995418802359977`*^9, 
   3.79954200178498*^9, 3.799542248364467*^9, 3.799542418178048*^9, 
   3.799542509972083*^9, 3.799542608574939*^9, 3.799542672839131*^9, {
   3.7995427217736225`*^9, 3.7995427445234632`*^9}, 3.799542867282419*^9, 
   3.7995429684564657`*^9, 3.7997716258099604`*^9, 3.7998502466302767`*^9, 
   3.799850301039985*^9, 3.799851104398441*^9, 3.799854912650391*^9, 
   3.7998549754993553`*^9, 3.7998550397341785`*^9, 3.800201995499465*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"7cd3afce-f5eb-4ee5-b8e2-0f1809ac7690"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\">> Centro[\\!\\(\\*SubscriptBox[\\(\[Sigma]\\), \\([n - k\\\\ \
esfera]\\)]\\)\\!\\(\\*SubscriptBox[\\(]\\), \\(N\\)]\\) = \"\>", 
   "\[InvisibleSpace]", 
   StyleBox[
    RowBox[{
     RowBox[{"16.019859665189458`", " ", 
      TagBox[
       SubscriptBox["e", "1"],
       DisplayForm]}], "+", 
     RowBox[{"2.4276588530685634`", " ", 
      TagBox[
       SubscriptBox["e", "2"],
       DisplayForm]}], "+", 
     RowBox[{"10.440564839440055`", " ", 
      TagBox[
       SubscriptBox["e", "3"],
       DisplayForm]}], "+", 
     RowBox[{"185.26741268287958`", " ", 
      TagBox[
       SubscriptBox["e", "4"],
       DisplayForm]}], "+", 
     RowBox[{"186.26741268287958`", " ", 
      TagBox[
       SubscriptBox["e", "5"],
       DisplayForm]}]}],
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]]}],
  SequenceForm[
  ">> Centro[\!\(\*SubscriptBox[\(\[Sigma]\), \([n - k\\ \
esfera]\)]\)\!\(\*SubscriptBox[\(]\), \(N\)]\) = ", 
   Style[16.019859665189458` Clifford`e[1] + 
    2.4276588530685634` Clifford`e[2] + 10.440564839440055` Clifford`e[3] + 
    185.26741268287958` Clifford`e[4] + 186.26741268287958` Clifford`e[5], 
    RGBColor[1, 0, 0]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7994903490351515`*^9, 3.7994906781159983`*^9, 3.7994910364164104`*^9, 
   3.799491229645982*^9, 3.7994912644367647`*^9, 3.7994912975427856`*^9, 
   3.799491505673452*^9, {3.7994915681724916`*^9, 3.7994915888986807`*^9}, 
   3.7994916286532927`*^9, 3.79949170077641*^9, 3.7995418802359977`*^9, 
   3.79954200178498*^9, 3.799542248364467*^9, 3.799542418178048*^9, 
   3.799542509972083*^9, 3.799542608574939*^9, 3.799542672839131*^9, {
   3.7995427217736225`*^9, 3.7995427445234632`*^9}, 3.799542867282419*^9, 
   3.7995429684564657`*^9, 3.7997716258099604`*^9, 3.7998502466302767`*^9, 
   3.799850301039985*^9, 3.799851104398441*^9, 3.799854912650391*^9, 
   3.7998549754993553`*^9, 3.7998550397341785`*^9, 3.800201995515089*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"05e1d470-22a3-4151-988d-cf3a8b8e562f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\">> Centro[\\!\\(\\*SubscriptBox[\\(\[Sigma]\\), \\([n - k\\\\ \
esfera]\\)]\\)\\!\\(\\*SubscriptBox[\\(]\\), \\(N\\)]\\) . \
\\!\\(\\*SubscriptBox[\\(e\\), \\(\[Infinity]\\)]\\) = \"\>", 
   "\[InvisibleSpace]", 
   StyleBox[
    RowBox[{"-", "1.`"}],
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]]}],
  SequenceForm[
  ">> Centro[\!\(\*SubscriptBox[\(\[Sigma]\), \([n - k\\ \
esfera]\)]\)\!\(\*SubscriptBox[\(]\), \(N\)]\) . \!\(\*SubscriptBox[\(e\), \(\
\[Infinity]\)]\) = ", 
   Style[-1., 
    RGBColor[1, 0, 0]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7994903490351515`*^9, 3.7994906781159983`*^9, 3.7994910364164104`*^9, 
   3.799491229645982*^9, 3.7994912644367647`*^9, 3.7994912975427856`*^9, 
   3.799491505673452*^9, {3.7994915681724916`*^9, 3.7994915888986807`*^9}, 
   3.7994916286532927`*^9, 3.79949170077641*^9, 3.7995418802359977`*^9, 
   3.79954200178498*^9, 3.799542248364467*^9, 3.799542418178048*^9, 
   3.799542509972083*^9, 3.799542608574939*^9, 3.799542672839131*^9, {
   3.7995427217736225`*^9, 3.7995427445234632`*^9}, 3.799542867282419*^9, 
   3.7995429684564657`*^9, 3.7997716258099604`*^9, 3.7998502466302767`*^9, 
   3.799850301039985*^9, 3.799851104398441*^9, 3.799854912650391*^9, 
   3.7998549754993553`*^9, 3.7998550397341785`*^9, 3.800201995515089*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"354ca111-33fa-40d4-ae6e-2362c6c5f176"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\">> Centro[\\!\\(\\*SubscriptBox[\\(\[Sigma]\\), \\([n - k\\\\ \
esfera]\\)]\\)\\!\\(\\*SubscriptBox[\\(]\\), \\(N\\)]\\) euclideano = \"\>", 
   "\[InvisibleSpace]", 
   StyleBox[
    RowBox[{"{", 
     RowBox[{
     "16.019859665189458`", ",", "2.4276588530685634`", ",", 
      "10.440564839440055`"}], "}"}],
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]]}],
  SequenceForm[
  ">> Centro[\!\(\*SubscriptBox[\(\[Sigma]\), \([n - k\\ \
esfera]\)]\)\!\(\*SubscriptBox[\(]\), \(N\)]\) euclideano = ", 
   Style[{16.019859665189458`, 2.4276588530685634`, 10.440564839440055`}, 
    RGBColor[1, 0, 0]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7994903490351515`*^9, 3.7994906781159983`*^9, 3.7994910364164104`*^9, 
   3.799491229645982*^9, 3.7994912644367647`*^9, 3.7994912975427856`*^9, 
   3.799491505673452*^9, {3.7994915681724916`*^9, 3.7994915888986807`*^9}, 
   3.7994916286532927`*^9, 3.79949170077641*^9, 3.7995418802359977`*^9, 
   3.79954200178498*^9, 3.799542248364467*^9, 3.799542418178048*^9, 
   3.799542509972083*^9, 3.799542608574939*^9, 3.799542672839131*^9, {
   3.7995427217736225`*^9, 3.7995427445234632`*^9}, 3.799542867282419*^9, 
   3.7995429684564657`*^9, 3.7997716258099604`*^9, 3.7998502466302767`*^9, 
   3.799850301039985*^9, 3.799851104398441*^9, 3.799854912650391*^9, 
   3.7998549754993553`*^9, 3.7998550397341785`*^9, 3.800201995515089*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"2a7eed39-d5ee-4b35-aca0-28ce8b30364d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\">> Centro[\\!\\(\\*SubscriptBox[\\(\[Sigma]\\), \\(N[n - k\\\\ \
esfera]\\)]\\)\\!\\(\\*SubscriptBox[\\(]\\), \\(N\\)]\\) = \"\>", 
   "\[InvisibleSpace]", 
   StyleBox[
    RowBox[{
     RowBox[{"16.019859665188964`", " ", 
      TagBox[
       SubscriptBox["e", "1"],
       DisplayForm]}], "+", 
     RowBox[{"2.427658853068489`", " ", 
      TagBox[
       SubscriptBox["e", "2"],
       DisplayForm]}], "+", 
     RowBox[{"10.440564839439642`", " ", 
      TagBox[
       SubscriptBox["e", "3"],
       DisplayForm]}], "+", 
     RowBox[{"185.26741268288666`", " ", 
      TagBox[
       SubscriptBox["e", "4"],
       DisplayForm]}], "+", 
     RowBox[{"186.26741268288666`", " ", 
      TagBox[
       SubscriptBox["e", "5"],
       DisplayForm]}]}],
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]]}],
  SequenceForm[
  ">> Centro[\!\(\*SubscriptBox[\(\[Sigma]\), \(N[n - k\\ \
esfera]\)]\)\!\(\*SubscriptBox[\(]\), \(N\)]\) = ", 
   Style[16.019859665188964` Clifford`e[1] + 2.427658853068489 Clifford`e[2] + 
    10.440564839439642` Clifford`e[3] + 185.26741268288666` Clifford`e[4] + 
    186.26741268288666` Clifford`e[5], 
    RGBColor[1, 0, 0]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7994903490351515`*^9, 3.7994906781159983`*^9, 3.7994910364164104`*^9, 
   3.799491229645982*^9, 3.7994912644367647`*^9, 3.7994912975427856`*^9, 
   3.799491505673452*^9, {3.7994915681724916`*^9, 3.7994915888986807`*^9}, 
   3.7994916286532927`*^9, 3.79949170077641*^9, 3.7995418802359977`*^9, 
   3.79954200178498*^9, 3.799542248364467*^9, 3.799542418178048*^9, 
   3.799542509972083*^9, 3.799542608574939*^9, 3.799542672839131*^9, {
   3.7995427217736225`*^9, 3.7995427445234632`*^9}, 3.799542867282419*^9, 
   3.7995429684564657`*^9, 3.7997716258099604`*^9, 3.7998502466302767`*^9, 
   3.799850301039985*^9, 3.799851104398441*^9, 3.799854912650391*^9, 
   3.7998549754993553`*^9, 3.7998550397341785`*^9, 3.800201995530714*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"9b8e3f06-bda7-4ba1-a5b8-dae88a1dc281"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\">> Centro[\\!\\(\\*SubscriptBox[\\(\[Sigma]\\), \\(N[n - k\\\\ \
esfera]\\)]\\)\\!\\(\\*SubscriptBox[\\(]\\), \\(N\\)]\\) . \
\\!\\(\\*SubscriptBox[\\(e\\), \\(\[Infinity]\\)]\\) = \"\>", 
   "\[InvisibleSpace]", 
   StyleBox[
    RowBox[{"-", "1.`"}],
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]]}],
  SequenceForm[
  ">> Centro[\!\(\*SubscriptBox[\(\[Sigma]\), \(N[n - k\\ \
esfera]\)]\)\!\(\*SubscriptBox[\(]\), \(N\)]\) . \!\(\*SubscriptBox[\(e\), \(\
\[Infinity]\)]\) = ", 
   Style[-1., 
    RGBColor[1, 0, 0]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7994903490351515`*^9, 3.7994906781159983`*^9, 3.7994910364164104`*^9, 
   3.799491229645982*^9, 3.7994912644367647`*^9, 3.7994912975427856`*^9, 
   3.799491505673452*^9, {3.7994915681724916`*^9, 3.7994915888986807`*^9}, 
   3.7994916286532927`*^9, 3.79949170077641*^9, 3.7995418802359977`*^9, 
   3.79954200178498*^9, 3.799542248364467*^9, 3.799542418178048*^9, 
   3.799542509972083*^9, 3.799542608574939*^9, 3.799542672839131*^9, {
   3.7995427217736225`*^9, 3.7995427445234632`*^9}, 3.799542867282419*^9, 
   3.7995429684564657`*^9, 3.7997716258099604`*^9, 3.7998502466302767`*^9, 
   3.799850301039985*^9, 3.799851104398441*^9, 3.799854912650391*^9, 
   3.7998549754993553`*^9, 3.7998550397341785`*^9, 3.800201995530714*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"f1da9a98-56f5-4962-9326-b24345789461"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\">> Centro[\\!\\(\\*SubscriptBox[\\(\[Sigma]\\), \\(N[n - k\\\\ \
esfera]\\)]\\)\\!\\(\\*SubscriptBox[SubscriptBox[\\(]\\), \\(N\\)], \\(\\\\ \
\\)]\\)euclideano = \"\>", "\[InvisibleSpace]", 
   StyleBox[
    RowBox[{"{", 
     RowBox[{
     "16.019859665188964`", ",", "2.427658853068489`", ",", 
      "10.440564839439642`"}], "}"}],
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]]}],
  SequenceForm[
  ">> Centro[\!\(\*SubscriptBox[\(\[Sigma]\), \(N[n - k\\ \
esfera]\)]\)\!\(\*SubscriptBox[SubscriptBox[\(]\), \(N\)], \(\\ \
\)]\)euclideano = ", 
   Style[{16.019859665188964`, 2.427658853068489, 10.440564839439642`}, 
    RGBColor[1, 0, 0]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7994903490351515`*^9, 3.7994906781159983`*^9, 3.7994910364164104`*^9, 
   3.799491229645982*^9, 3.7994912644367647`*^9, 3.7994912975427856`*^9, 
   3.799491505673452*^9, {3.7994915681724916`*^9, 3.7994915888986807`*^9}, 
   3.7994916286532927`*^9, 3.79949170077641*^9, 3.7995418802359977`*^9, 
   3.79954200178498*^9, 3.799542248364467*^9, 3.799542418178048*^9, 
   3.799542509972083*^9, 3.799542608574939*^9, 3.799542672839131*^9, {
   3.7995427217736225`*^9, 3.7995427445234632`*^9}, 3.799542867282419*^9, 
   3.7995429684564657`*^9, 3.7997716258099604`*^9, 3.7998502466302767`*^9, 
   3.799850301039985*^9, 3.799851104398441*^9, 3.799854912650391*^9, 
   3.7998549754993553`*^9, 3.7998550397341785`*^9, 3.800201995530714*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"e14784d2-0188-4cc5-a725-bfbdae92afd3"],

Cell[BoxData["\<\"----------\"\>"], "Print",
 CellChangeTimes->{
  3.7994903490351515`*^9, 3.7994906781159983`*^9, 3.7994910364164104`*^9, 
   3.799491229645982*^9, 3.7994912644367647`*^9, 3.7994912975427856`*^9, 
   3.799491505673452*^9, {3.7994915681724916`*^9, 3.7994915888986807`*^9}, 
   3.7994916286532927`*^9, 3.79949170077641*^9, 3.7995418802359977`*^9, 
   3.79954200178498*^9, 3.799542248364467*^9, 3.799542418178048*^9, 
   3.799542509972083*^9, 3.799542608574939*^9, 3.799542672839131*^9, {
   3.7995427217736225`*^9, 3.7995427445234632`*^9}, 3.799542867282419*^9, 
   3.7995429684564657`*^9, 3.7997716258099604`*^9, 3.7998502466302767`*^9, 
   3.799850301039985*^9, 3.799851104398441*^9, 3.799854912650391*^9, 
   3.7998549754993553`*^9, 3.7998550397341785`*^9, 3.8002019955463357`*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"e85e867c-430d-4f7f-9ddd-d156a742228b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\">> \\!\\(\\*SubscriptBox[\\(d\\), \\(\\*SubscriptBox[\\(c\\), \
\\(\\((n - k)\\) - esfera\\)], \\*SubscriptBox[\\(a\\), \\(m + 1\\)]\\)]\\) = \
\"\>", "\[InvisibleSpace]", 
   StyleBox["15.319452176940809`",
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]]}],
  SequenceForm[
  ">> \!\(\*SubscriptBox[\(d\), \(\*SubscriptBox[\(c\), \(\((n - k)\) - \
esfera\)], \*SubscriptBox[\(a\), \(m + 1\)]\)]\) = ", 
   Style[15.319452176940809`, 
    RGBColor[1, 0, 0]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7994903490351515`*^9, 3.7994906781159983`*^9, 3.7994910364164104`*^9, 
   3.799491229645982*^9, 3.7994912644367647`*^9, 3.7994912975427856`*^9, 
   3.799491505673452*^9, {3.7994915681724916`*^9, 3.7994915888986807`*^9}, 
   3.7994916286532927`*^9, 3.79949170077641*^9, 3.7995418802359977`*^9, 
   3.79954200178498*^9, 3.799542248364467*^9, 3.799542418178048*^9, 
   3.799542509972083*^9, 3.799542608574939*^9, 3.799542672839131*^9, {
   3.7995427217736225`*^9, 3.7995427445234632`*^9}, 3.799542867282419*^9, 
   3.7995429684564657`*^9, 3.7997716258099604`*^9, 3.7998502466302767`*^9, 
   3.799850301039985*^9, 3.799851104398441*^9, 3.799854912650391*^9, 
   3.7998549754993553`*^9, 3.7998550397341785`*^9, 3.8002019955463357`*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"28001668-4c2a-4d11-8c30-a945575f3350"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\">> \\!\\(\\*SubscriptBox[\\(d\\), \\(\\*SubscriptBox[\\(c\\), \
\\(\\((n - k)\\) - esfera\\)], \\*SubscriptBox[\\(a\\), \\(m + 1\\)]\\)]\\) - \
\\!\\(\\*SubscriptBox[\\(raio\\), SubscriptBox[\\(\[Sigma]\\), \\(N\\)]]\\) = \
\"\>", "\[InvisibleSpace]", 
   StyleBox[
    RowBox[{"-", "3.9687861218770504`"}],
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]]}],
  SequenceForm[
  ">> \!\(\*SubscriptBox[\(d\), \(\*SubscriptBox[\(c\), \(\((n - k)\) - \
esfera\)], \*SubscriptBox[\(a\), \(m + 1\)]\)]\) - \
\!\(\*SubscriptBox[\(raio\), SubscriptBox[\(\[Sigma]\), \(N\)]]\) = ", 
   Style[-3.9687861218770504`, 
    RGBColor[1, 0, 0]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7994903490351515`*^9, 3.7994906781159983`*^9, 3.7994910364164104`*^9, 
   3.799491229645982*^9, 3.7994912644367647`*^9, 3.7994912975427856`*^9, 
   3.799491505673452*^9, {3.7994915681724916`*^9, 3.7994915888986807`*^9}, 
   3.7994916286532927`*^9, 3.79949170077641*^9, 3.7995418802359977`*^9, 
   3.79954200178498*^9, 3.799542248364467*^9, 3.799542418178048*^9, 
   3.799542509972083*^9, 3.799542608574939*^9, 3.799542672839131*^9, {
   3.7995427217736225`*^9, 3.7995427445234632`*^9}, 3.799542867282419*^9, 
   3.7995429684564657`*^9, 3.7997716258099604`*^9, 3.7998502466302767`*^9, 
   3.799850301039985*^9, 3.799851104398441*^9, 3.799854912650391*^9, 
   3.7998549754993553`*^9, 3.7998550397341785`*^9, 3.8002019955463357`*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"82fe0519-3bf8-4848-8168-5b2c0954fda0"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\">> \\!\\(\\*SubscriptBox[\\(d\\), \\(\\*SubscriptBox[\\(c\\), \
\\(\\((n - k)\\) - esfera\\)], \\*SubscriptBox[\\(a\\), \\(m + 1\\)]\\)]\\) + \
\\!\\(\\*SubscriptBox[\\(raio\\), SubscriptBox[\\(\[Sigma]\\), \\(N\\)]]\\) = \
\"\>", "\[InvisibleSpace]", 
   StyleBox["34.607690475758666`",
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]]}],
  SequenceForm[
  ">> \!\(\*SubscriptBox[\(d\), \(\*SubscriptBox[\(c\), \(\((n - k)\) - \
esfera\)], \*SubscriptBox[\(a\), \(m + 1\)]\)]\) + \
\!\(\*SubscriptBox[\(raio\), SubscriptBox[\(\[Sigma]\), \(N\)]]\) = ", 
   Style[34.607690475758666`, 
    RGBColor[1, 0, 0]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7994903490351515`*^9, 3.7994906781159983`*^9, 3.7994910364164104`*^9, 
   3.799491229645982*^9, 3.7994912644367647`*^9, 3.7994912975427856`*^9, 
   3.799491505673452*^9, {3.7994915681724916`*^9, 3.7994915888986807`*^9}, 
   3.7994916286532927`*^9, 3.79949170077641*^9, 3.7995418802359977`*^9, 
   3.79954200178498*^9, 3.799542248364467*^9, 3.799542418178048*^9, 
   3.799542509972083*^9, 3.799542608574939*^9, 3.799542672839131*^9, {
   3.7995427217736225`*^9, 3.7995427445234632`*^9}, 3.799542867282419*^9, 
   3.7995429684564657`*^9, 3.7997716258099604`*^9, 3.7998502466302767`*^9, 
   3.799850301039985*^9, 3.799851104398441*^9, 3.799854912650391*^9, 
   3.7998549754993553`*^9, 3.7998550397341785`*^9, 3.8002019955463357`*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"88d28234-65c5-411b-897c-4f9e098c1117"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\">> OBS: (i) \\!\\(\\*SubscriptBox[\\(r\\), \\(casca\\)]\\) \
\[Element] [\"\>", "\[InvisibleSpace]", 
   StyleBox["10.306265047369076`",
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]], "\[InvisibleSpace]", "\<\", \"\>", 
   "\[InvisibleSpace]", 
   StyleBox["10.950398474019945`",
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]], "\[InvisibleSpace]", "\<\"]\"\>"}],
  SequenceForm[
  ">> OBS: (i) \!\(\*SubscriptBox[\(r\), \(casca\)]\) \[Element] [", 
   Style[10.306265047369076`, 
    RGBColor[1, 0, 0]], ", ", 
   Style[10.950398474019945`, 
    RGBColor[1, 0, 0]], "]"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7994903490351515`*^9, 3.7994906781159983`*^9, 3.7994910364164104`*^9, 
   3.799491229645982*^9, 3.7994912644367647`*^9, 3.7994912975427856`*^9, 
   3.799491505673452*^9, {3.7994915681724916`*^9, 3.7994915888986807`*^9}, 
   3.7994916286532927`*^9, 3.79949170077641*^9, 3.7995418802359977`*^9, 
   3.79954200178498*^9, 3.799542248364467*^9, 3.799542418178048*^9, 
   3.799542509972083*^9, 3.799542608574939*^9, 3.799542672839131*^9, {
   3.7995427217736225`*^9, 3.7995427445234632`*^9}, 3.799542867282419*^9, 
   3.7995429684564657`*^9, 3.7997716258099604`*^9, 3.7998502466302767`*^9, 
   3.799850301039985*^9, 3.799851104398441*^9, 3.799854912650391*^9, 
   3.7998549754993553`*^9, 3.7998550397341785`*^9, 3.800201995561962*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"f356e456-79c0-44e5-8ae2-972966b54c80"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\">> (ii) \\!\\(\\*SubscriptBox[\\(r\\), \
\\(\\(casca\\)\\(*\\)\\)]\\) = \"\>", "\[InvisibleSpace]", 
   StyleBox["10.950398474019945`",
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]]}],
  SequenceForm[">> (ii) \!\(\*SubscriptBox[\(r\), \(\(casca\)\(*\)\)]\) = ", 
   Style[10.950398474019945`, 
    RGBColor[1, 0, 0]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7994903490351515`*^9, 3.7994906781159983`*^9, 3.7994910364164104`*^9, 
   3.799491229645982*^9, 3.7994912644367647`*^9, 3.7994912975427856`*^9, 
   3.799491505673452*^9, {3.7994915681724916`*^9, 3.7994915888986807`*^9}, 
   3.7994916286532927`*^9, 3.79949170077641*^9, 3.7995418802359977`*^9, 
   3.79954200178498*^9, 3.799542248364467*^9, 3.799542418178048*^9, 
   3.799542509972083*^9, 3.799542608574939*^9, 3.799542672839131*^9, {
   3.7995427217736225`*^9, 3.7995427445234632`*^9}, 3.799542867282419*^9, 
   3.7995429684564657`*^9, 3.7997716258099604`*^9, 3.7998502466302767`*^9, 
   3.799850301039985*^9, 3.799851104398441*^9, 3.799854912650391*^9, 
   3.7998549754993553`*^9, 3.7998550397341785`*^9, 3.800201995561962*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"f09877cf-87f1-49ad-a8d6-a29e86153769"],

Cell[BoxData["\<\"----------\"\>"], "Print",
 CellChangeTimes->{
  3.7994903490351515`*^9, 3.7994906781159983`*^9, 3.7994910364164104`*^9, 
   3.799491229645982*^9, 3.7994912644367647`*^9, 3.7994912975427856`*^9, 
   3.799491505673452*^9, {3.7994915681724916`*^9, 3.7994915888986807`*^9}, 
   3.7994916286532927`*^9, 3.79949170077641*^9, 3.7995418802359977`*^9, 
   3.79954200178498*^9, 3.799542248364467*^9, 3.799542418178048*^9, 
   3.799542509972083*^9, 3.799542608574939*^9, 3.799542672839131*^9, {
   3.7995427217736225`*^9, 3.7995427445234632`*^9}, 3.799542867282419*^9, 
   3.7995429684564657`*^9, 3.7997716258099604`*^9, 3.7998502466302767`*^9, 
   3.799850301039985*^9, 3.799851104398441*^9, 3.799854912650391*^9, 
   3.7998549754993553`*^9, 3.7998550397341785`*^9, 3.800201995561962*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"30ae6b31-e35c-4e7d-9072-b4bb75db452a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\">> \\!\\(\\*SubscriptBox[\\(c\\), \\(casca[conforme]\\)]\\) = \
\"\>", "\[InvisibleSpace]", 
   StyleBox[
    RowBox[{
     RowBox[{"19.027787578950097`", " ", 
      TagBox[
       SubscriptBox["e", "1"],
       DisplayForm]}], "+", 
     RowBox[{"16.09317230382735`", " ", 
      TagBox[
       SubscriptBox["e", "2"],
       DisplayForm]}], "+", 
     RowBox[{"16.676888018551008`", " ", 
      TagBox[
       SubscriptBox["e", "3"],
       DisplayForm]}], "+", 
     RowBox[{"0.5`", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         TagBox[
          SubscriptBox["e", "4"],
          DisplayForm]}], "+", 
        TagBox[
         SubscriptBox["e", "5"],
         DisplayForm]}], ")"}]}], "+", 
     RowBox[{"449.58274446680673`", " ", 
      RowBox[{"(", 
       RowBox[{
        TagBox[
         SubscriptBox["e", "4"],
         DisplayForm], "+", 
        TagBox[
         SubscriptBox["e", "5"],
         DisplayForm]}], ")"}]}]}],
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]], 
   "\[InvisibleSpace]", "\<\", \\!\\(\\*SubscriptBox[\\(r\\), \\(casca\\)]\\) \
\[Element] [\"\>", "\[InvisibleSpace]", 
   StyleBox["10.306265047369076`",
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]], "\[InvisibleSpace]", "\<\", \"\>", 
   "\[InvisibleSpace]", 
   StyleBox["10.950398474019945`",
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]], "\[InvisibleSpace]", "\<\"]\"\>"}],
  SequenceForm[">> \!\(\*SubscriptBox[\(c\), \(casca[conforme]\)]\) = ", 
   Style[19.027787578950097` Clifford`e[1] + 16.09317230382735 Clifford`e[2] + 
    16.676888018551008` Clifford`e[3] + 0.5 (-Clifford`e[4] + Clifford`e[5]) + 
    449.58274446680673` (Clifford`e[4] + Clifford`e[5]), 
    RGBColor[1, 0, 0]], 
   ", \!\(\*SubscriptBox[\(r\), \(casca\)]\) \[Element] [", 
   Style[10.306265047369076`, 
    RGBColor[1, 0, 0]], ", ", 
   Style[10.950398474019945`, 
    RGBColor[1, 0, 0]], "]"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7994903490351515`*^9, 3.7994906781159983`*^9, 3.7994910364164104`*^9, 
   3.799491229645982*^9, 3.7994912644367647`*^9, 3.7994912975427856`*^9, 
   3.799491505673452*^9, {3.7994915681724916`*^9, 3.7994915888986807`*^9}, 
   3.7994916286532927`*^9, 3.79949170077641*^9, 3.7995418802359977`*^9, 
   3.79954200178498*^9, 3.799542248364467*^9, 3.799542418178048*^9, 
   3.799542509972083*^9, 3.799542608574939*^9, 3.799542672839131*^9, {
   3.7995427217736225`*^9, 3.7995427445234632`*^9}, 3.799542867282419*^9, 
   3.7995429684564657`*^9, 3.7997716258099604`*^9, 3.7998502466302767`*^9, 
   3.799850301039985*^9, 3.799851104398441*^9, 3.799854912650391*^9, 
   3.7998549754993553`*^9, 3.7998550397341785`*^9, 3.800201995561962*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"2f799f10-1794-4cba-af45-e0a72adc5d11"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\">> \\!\\(\\*SubscriptBox[\\(\[Sigma]\\), \\(\\(casca\\)\\(\\\\ \
\\)\\)]\\)= \"\>", "\[InvisibleSpace]", 
   StyleBox[
    RowBox[{
     RowBox[{"19.027787578950097`", " ", 
      TagBox[
       SubscriptBox["e", "1"],
       DisplayForm]}], "+", 
     RowBox[{"16.09317230382735`", " ", 
      TagBox[
       SubscriptBox["e", "2"],
       DisplayForm]}], "+", 
     RowBox[{"16.676888018551008`", " ", 
      TagBox[
       SubscriptBox["e", "3"],
       DisplayForm]}], "+", 
     RowBox[{"0.5`", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         TagBox[
          SubscriptBox["e", "4"],
          DisplayForm]}], "+", 
        TagBox[
         SubscriptBox["e", "5"],
         DisplayForm]}], ")"}]}], "+", 
     RowBox[{"389.6271310968976`", " ", 
      RowBox[{"(", 
       RowBox[{
        TagBox[
         SubscriptBox["e", "4"],
         DisplayForm], "+", 
        TagBox[
         SubscriptBox["e", "5"],
         DisplayForm]}], ")"}]}]}],
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]]}],
  SequenceForm[
  ">> \!\(\*SubscriptBox[\(\[Sigma]\), \(\(casca\)\(\\ \)\)]\)= ", 
   Style[19.027787578950097` Clifford`e[1] + 16.09317230382735 Clifford`e[2] + 
    16.676888018551008` Clifford`e[3] + 0.5 (-Clifford`e[4] + Clifford`e[5]) + 
    389.6271310968976 (Clifford`e[4] + Clifford`e[5]), 
    RGBColor[1, 0, 0]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7994903490351515`*^9, 3.7994906781159983`*^9, 3.7994910364164104`*^9, 
   3.799491229645982*^9, 3.7994912644367647`*^9, 3.7994912975427856`*^9, 
   3.799491505673452*^9, {3.7994915681724916`*^9, 3.7994915888986807`*^9}, 
   3.7994916286532927`*^9, 3.79949170077641*^9, 3.7995418802359977`*^9, 
   3.79954200178498*^9, 3.799542248364467*^9, 3.799542418178048*^9, 
   3.799542509972083*^9, 3.799542608574939*^9, 3.799542672839131*^9, {
   3.7995427217736225`*^9, 3.7995427445234632`*^9}, 3.799542867282419*^9, 
   3.7995429684564657`*^9, 3.7997716258099604`*^9, 3.7998502466302767`*^9, 
   3.799850301039985*^9, 3.799851104398441*^9, 3.799854912650391*^9, 
   3.7998549754993553`*^9, 3.7998550397341785`*^9, 3.800201995584096*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"d41d100b-19f2-4b75-b38c-f1612a40e98b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\">> \\!\\(\\*SubscriptBox[\\(r\\), \\(\\(casca\\)\\(*\\)\\)]\\) \
= \"\>", "\[InvisibleSpace]", 
   StyleBox["10.950398474019945`",
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]]}],
  SequenceForm[">> \!\(\*SubscriptBox[\(r\), \(\(casca\)\(*\)\)]\) = ", 
   Style[10.950398474019945`, 
    RGBColor[1, 0, 0]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7994903490351515`*^9, 3.7994906781159983`*^9, 3.7994910364164104`*^9, 
   3.799491229645982*^9, 3.7994912644367647`*^9, 3.7994912975427856`*^9, 
   3.799491505673452*^9, {3.7994915681724916`*^9, 3.7994915888986807`*^9}, 
   3.7994916286532927`*^9, 3.79949170077641*^9, 3.7995418802359977`*^9, 
   3.79954200178498*^9, 3.799542248364467*^9, 3.799542418178048*^9, 
   3.799542509972083*^9, 3.799542608574939*^9, 3.799542672839131*^9, {
   3.7995427217736225`*^9, 3.7995427445234632`*^9}, 3.799542867282419*^9, 
   3.7995429684564657`*^9, 3.7997716258099604`*^9, 3.7998502466302767`*^9, 
   3.799850301039985*^9, 3.799851104398441*^9, 3.799854912650391*^9, 
   3.7998549754993553`*^9, 3.7998550397341785`*^9, 3.800201995584096*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"7d6948f1-0aee-42b0-84d9-64fa1168ea2d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\">> \\!\\(\\*SubscriptBox[SubscriptBox[\\(c\\), \\(casca\\)], \
\\([conforme]\\)]\\) . \\!\\(\\*SubscriptBox[\\(e\\), \\(\[Infinity]\\)]\\) = \
\"\>", "\[InvisibleSpace]", 
   StyleBox[
    RowBox[{"-", "1.`"}],
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]]}],
  SequenceForm[
  ">> \!\(\*SubscriptBox[SubscriptBox[\(c\), \(casca\)], \([conforme]\)]\) . \
\!\(\*SubscriptBox[\(e\), \(\[Infinity]\)]\) = ", 
   Style[-1., 
    RGBColor[1, 0, 0]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7994903490351515`*^9, 3.7994906781159983`*^9, 3.7994910364164104`*^9, 
   3.799491229645982*^9, 3.7994912644367647`*^9, 3.7994912975427856`*^9, 
   3.799491505673452*^9, {3.7994915681724916`*^9, 3.7994915888986807`*^9}, 
   3.7994916286532927`*^9, 3.79949170077641*^9, 3.7995418802359977`*^9, 
   3.79954200178498*^9, 3.799542248364467*^9, 3.799542418178048*^9, 
   3.799542509972083*^9, 3.799542608574939*^9, 3.799542672839131*^9, {
   3.7995427217736225`*^9, 3.7995427445234632`*^9}, 3.799542867282419*^9, 
   3.7995429684564657`*^9, 3.7997716258099604`*^9, 3.7998502466302767`*^9, 
   3.799850301039985*^9, 3.799851104398441*^9, 3.799854912650391*^9, 
   3.7998549754993553`*^9, 3.7998550397341785`*^9, 3.800201995584096*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"6a17fec0-dfe7-4b64-81b2-aa603a83498d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\">> \\!\\(\\*SubscriptBox[\\(\[Sigma]\\), \\(casca\\)]\\) . \\!\
\\(\\*SubscriptBox[\\(e\\), \\(\[Infinity]\\)]\\) = \"\>", 
   "\[InvisibleSpace]", 
   StyleBox[
    RowBox[{"-", "1.`"}],
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]]}],
  SequenceForm[
  ">> \!\(\*SubscriptBox[\(\[Sigma]\), \(casca\)]\) . \
\!\(\*SubscriptBox[\(e\), \(\[Infinity]\)]\) = ", 
   Style[-1., 
    RGBColor[1, 0, 0]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7994903490351515`*^9, 3.7994906781159983`*^9, 3.7994910364164104`*^9, 
   3.799491229645982*^9, 3.7994912644367647`*^9, 3.7994912975427856`*^9, 
   3.799491505673452*^9, {3.7994915681724916`*^9, 3.7994915888986807`*^9}, 
   3.7994916286532927`*^9, 3.79949170077641*^9, 3.7995418802359977`*^9, 
   3.79954200178498*^9, 3.799542248364467*^9, 3.799542418178048*^9, 
   3.799542509972083*^9, 3.799542608574939*^9, 3.799542672839131*^9, {
   3.7995427217736225`*^9, 3.7995427445234632`*^9}, 3.799542867282419*^9, 
   3.7995429684564657`*^9, 3.7997716258099604`*^9, 3.7998502466302767`*^9, 
   3.799850301039985*^9, 3.799851104398441*^9, 3.799854912650391*^9, 
   3.7998549754993553`*^9, 3.7998550397341785`*^9, 3.800201995584096*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"987c15e2-c19c-4929-a260-638d38498b14"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\">> \\!\\(\\*SubscriptBox[\\(\[Sigma]\\), \\(casca\\)]\\) . \\!\
\\(\\*SubscriptBox[\\(c\\), \\(\\([n - k]\\) N\\)]\\) = \"\>", 
   "\[InvisibleSpace]", 
   StyleBox[
    RowBox[{"-", "57.387194130875855`"}],
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]]}],
  SequenceForm[
  ">> \!\(\*SubscriptBox[\(\[Sigma]\), \(casca\)]\) . \
\!\(\*SubscriptBox[\(c\), \(\([n - k]\) N\)]\) = ", 
   Style[-57.387194130875855`, 
    RGBColor[1, 0, 0]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7994903490351515`*^9, 3.7994906781159983`*^9, 3.7994910364164104`*^9, 
   3.799491229645982*^9, 3.7994912644367647`*^9, 3.7994912975427856`*^9, 
   3.799491505673452*^9, {3.7994915681724916`*^9, 3.7994915888986807`*^9}, 
   3.7994916286532927`*^9, 3.79949170077641*^9, 3.7995418802359977`*^9, 
   3.79954200178498*^9, 3.799542248364467*^9, 3.799542418178048*^9, 
   3.799542509972083*^9, 3.799542608574939*^9, 3.799542672839131*^9, {
   3.7995427217736225`*^9, 3.7995427445234632`*^9}, 3.799542867282419*^9, 
   3.7995429684564657`*^9, 3.7997716258099604`*^9, 3.7998502466302767`*^9, 
   3.799850301039985*^9, 3.799851104398441*^9, 3.799854912650391*^9, 
   3.7998549754993553`*^9, 3.7998550397341785`*^9, 3.8002019955997305`*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"9bf6f0f1-4b7e-40d7-bc40-f76f1914f0f0"],

Cell[BoxData["\<\"----------\"\>"], "Print",
 CellChangeTimes->{
  3.7994903490351515`*^9, 3.7994906781159983`*^9, 3.7994910364164104`*^9, 
   3.799491229645982*^9, 3.7994912644367647`*^9, 3.7994912975427856`*^9, 
   3.799491505673452*^9, {3.7994915681724916`*^9, 3.7994915888986807`*^9}, 
   3.7994916286532927`*^9, 3.79949170077641*^9, 3.7995418802359977`*^9, 
   3.79954200178498*^9, 3.799542248364467*^9, 3.799542418178048*^9, 
   3.799542509972083*^9, 3.799542608574939*^9, 3.799542672839131*^9, {
   3.7995427217736225`*^9, 3.7995427445234632`*^9}, 3.799542867282419*^9, 
   3.7995429684564657`*^9, 3.7997716258099604`*^9, 3.7998502466302767`*^9, 
   3.799850301039985*^9, 3.799851104398441*^9, 3.799854912650391*^9, 
   3.7998549754993553`*^9, 3.7998550397341785`*^9, 3.8002019955997305`*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"d5a3b4b3-842b-4da4-829e-f5e215a5a6e8"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\">> \\!\\(\\*SubscriptBox[\\(\[Kappa]\\), \\(\\\\ \\)]\\)= \
\"\>", "\[InvisibleSpace]", 
   StyleBox[
    RowBox[{
     RowBox[{"13640.956022245053`", " ", 
      TagBox[
       SubscriptBox["e", "1"],
       DisplayForm], " ", 
      TagBox[
       SubscriptBox["e", "2"],
       DisplayForm], " ", 
      TagBox[
       SubscriptBox["e", "4"],
       DisplayForm]}], "+", 
     RowBox[{"4415.577995972812`", " ", 
      TagBox[
       SubscriptBox["e", "1"],
       DisplayForm], " ", 
      TagBox[
       SubscriptBox["e", "3"],
       DisplayForm], " ", 
      TagBox[
       SubscriptBox["e", "4"],
       DisplayForm]}], "-", 
     RowBox[{"8221.031367400406`", " ", 
      TagBox[
       SubscriptBox["e", "2"],
       DisplayForm], " ", 
      TagBox[
       SubscriptBox["e", "3"],
       DisplayForm], " ", 
      TagBox[
       SubscriptBox["e", "4"],
       DisplayForm]}], "+", 
     RowBox[{"13604.314904829156`", " ", 
      TagBox[
       SubscriptBox["e", "1"],
       DisplayForm], " ", 
      TagBox[
       SubscriptBox["e", "2"],
       DisplayForm], " ", 
      TagBox[
       SubscriptBox["e", "5"],
       DisplayForm]}], "+", 
     RowBox[{"4403.71726483742`", " ", 
      TagBox[
       SubscriptBox["e", "1"],
       DisplayForm], " ", 
      TagBox[
       SubscriptBox["e", "3"],
       DisplayForm], " ", 
      TagBox[
       SubscriptBox["e", "5"],
       DisplayForm]}], "-", 
     RowBox[{"8198.948767388983`", " ", 
      TagBox[
       SubscriptBox["e", "2"],
       DisplayForm], " ", 
      TagBox[
       SubscriptBox["e", "3"],
       DisplayForm], " ", 
      TagBox[
       SubscriptBox["e", "5"],
       DisplayForm]}], "-", 
     RowBox[{"887.943828081945`", " ", 
      TagBox[
       SubscriptBox["e", "1"],
       DisplayForm], " ", 
      TagBox[
       SubscriptBox["e", "4"],
       DisplayForm], " ", 
      TagBox[
       SubscriptBox["e", "5"],
       DisplayForm]}], "+", 
     RowBox[{"715.2263942703794`", " ", 
      TagBox[
       SubscriptBox["e", "2"],
       DisplayForm], " ", 
      TagBox[
       SubscriptBox["e", "4"],
       DisplayForm], " ", 
      TagBox[
       SubscriptBox["e", "5"],
       DisplayForm]}], "-", 
     RowBox[{"303.6206646892533`", " ", 
      TagBox[
       SubscriptBox["e", "3"],
       DisplayForm], " ", 
      TagBox[
       SubscriptBox["e", "4"],
       DisplayForm], " ", 
      TagBox[
       SubscriptBox["e", "5"],
       DisplayForm]}]}],
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]]}],
  SequenceForm[">> \!\(\*SubscriptBox[\(\[Kappa]\), \(\\ \)]\)= ", 
   Style[13640.956022245053` Clifford`e[1] Clifford`e[2] Clifford`e[4] + 
    4415.577995972812 Clifford`e[1] Clifford`e[3] Clifford`e[4] - 
    8221.031367400406 Clifford`e[2] Clifford`e[3] Clifford`e[4] + 
    13604.314904829156` Clifford`e[1] Clifford`e[2] Clifford`e[5] + 
    4403.71726483742 Clifford`e[1] Clifford`e[3] Clifford`e[5] - 
    8198.948767388983 Clifford`e[2] Clifford`e[3] Clifford`e[5] - 
    887.943828081945 Clifford`e[1] Clifford`e[4] Clifford`e[5] + 
    715.2263942703794 Clifford`e[2] Clifford`e[4] Clifford`e[5] - 
    303.6206646892533 Clifford`e[3] Clifford`e[4] Clifford`e[5], 
    RGBColor[1, 0, 0]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7994903490351515`*^9, 3.7994906781159983`*^9, 3.7994910364164104`*^9, 
   3.799491229645982*^9, 3.7994912644367647`*^9, 3.7994912975427856`*^9, 
   3.799491505673452*^9, {3.7994915681724916`*^9, 3.7994915888986807`*^9}, 
   3.7994916286532927`*^9, 3.79949170077641*^9, 3.7995418802359977`*^9, 
   3.79954200178498*^9, 3.799542248364467*^9, 3.799542418178048*^9, 
   3.799542509972083*^9, 3.799542608574939*^9, 3.799542672839131*^9, {
   3.7995427217736225`*^9, 3.7995427445234632`*^9}, 3.799542867282419*^9, 
   3.7995429684564657`*^9, 3.7997716258099604`*^9, 3.7998502466302767`*^9, 
   3.799850301039985*^9, 3.799851104398441*^9, 3.799854912650391*^9, 
   3.7998549754993553`*^9, 3.7998550397341785`*^9, 3.8002019955997305`*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"63b8bcba-9d66-470c-9968-cc2eed59e7a7"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\">> \\!\\(\\*SubscriptBox[\\(e\\), \\(\[Infinity]\\)]\\).\
\[Kappa] = \"\>", "\[InvisibleSpace]", 
   StyleBox[
    RowBox[{"0.`", "\[VeryThinSpace]", "+", 
     RowBox[{"36.64111741589659`", " ", 
      TagBox[
       SubscriptBox["e", "1"],
       DisplayForm], " ", 
      TagBox[
       SubscriptBox["e", "2"],
       DisplayForm]}], "+", 
     RowBox[{"11.860731135391688`", " ", 
      TagBox[
       SubscriptBox["e", "1"],
       DisplayForm], " ", 
      TagBox[
       SubscriptBox["e", "3"],
       DisplayForm]}], "-", 
     RowBox[{"22.082600011422983`", " ", 
      TagBox[
       SubscriptBox["e", "2"],
       DisplayForm], " ", 
      TagBox[
       SubscriptBox["e", "3"],
       DisplayForm]}], "+", 
     RowBox[{"887.943828081945`", " ", 
      TagBox[
       SubscriptBox["e", "1"],
       DisplayForm], " ", 
      TagBox[
       SubscriptBox["e", "4"],
       DisplayForm]}], "-", 
     RowBox[{"715.2263942703794`", " ", 
      TagBox[
       SubscriptBox["e", "2"],
       DisplayForm], " ", 
      TagBox[
       SubscriptBox["e", "4"],
       DisplayForm]}], "+", 
     RowBox[{"303.6206646892533`", " ", 
      TagBox[
       SubscriptBox["e", "3"],
       DisplayForm], " ", 
      TagBox[
       SubscriptBox["e", "4"],
       DisplayForm]}], "+", 
     RowBox[{"887.943828081945`", " ", 
      TagBox[
       SubscriptBox["e", "1"],
       DisplayForm], " ", 
      TagBox[
       SubscriptBox["e", "5"],
       DisplayForm]}], "-", 
     RowBox[{"715.2263942703794`", " ", 
      TagBox[
       SubscriptBox["e", "2"],
       DisplayForm], " ", 
      TagBox[
       SubscriptBox["e", "5"],
       DisplayForm]}], "+", 
     RowBox[{"303.6206646892533`", " ", 
      TagBox[
       SubscriptBox["e", "3"],
       DisplayForm], " ", 
      TagBox[
       SubscriptBox["e", "5"],
       DisplayForm]}]}],
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]]}],
  SequenceForm[">> \!\(\*SubscriptBox[\(e\), \(\[Infinity]\)]\).\[Kappa] = ", 
   Style[0. + 36.64111741589659 Clifford`e[1] Clifford`e[2] + 
    11.860731135391688` Clifford`e[1] Clifford`e[3] - 22.082600011422983` 
    Clifford`e[2] Clifford`e[3] + 
    887.943828081945 Clifford`e[1] Clifford`e[4] - 715.2263942703794 
    Clifford`e[2] Clifford`e[4] + 
    303.6206646892533 Clifford`e[3] Clifford`e[4] + 
    887.943828081945 Clifford`e[1] Clifford`e[5] - 715.2263942703794 
    Clifford`e[2] Clifford`e[5] + 
    303.6206646892533 Clifford`e[3] Clifford`e[5], 
    RGBColor[1, 0, 0]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7994903490351515`*^9, 3.7994906781159983`*^9, 3.7994910364164104`*^9, 
   3.799491229645982*^9, 3.7994912644367647`*^9, 3.7994912975427856`*^9, 
   3.799491505673452*^9, {3.7994915681724916`*^9, 3.7994915888986807`*^9}, 
   3.7994916286532927`*^9, 3.79949170077641*^9, 3.7995418802359977`*^9, 
   3.79954200178498*^9, 3.799542248364467*^9, 3.799542418178048*^9, 
   3.799542509972083*^9, 3.799542608574939*^9, 3.799542672839131*^9, {
   3.7995427217736225`*^9, 3.7995427445234632`*^9}, 3.799542867282419*^9, 
   3.7995429684564657`*^9, 3.7997716258099604`*^9, 3.7998502466302767`*^9, 
   3.799850301039985*^9, 3.799851104398441*^9, 3.799854912650391*^9, 
   3.7998549754993553`*^9, 3.7998550397341785`*^9, 3.8002019956153545`*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"6e561585-7b22-4813-b2d3-6165176c4462"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\">> \\!\\(\\*SuperscriptBox[\\(\[Kappa]\\), \\(2\\)]\\) = \"\>",
    "\[InvisibleSpace]", 
   StyleBox[
    RowBox[{"-", "73317.76955488324`"}],
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]]}],
  SequenceForm[">> \!\(\*SuperscriptBox[\(\[Kappa]\), \(2\)]\) = ", 
   Style[-73317.76955488324, 
    RGBColor[1, 0, 0]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7994903490351515`*^9, 3.7994906781159983`*^9, 3.7994910364164104`*^9, 
   3.799491229645982*^9, 3.7994912644367647`*^9, 3.7994912975427856`*^9, 
   3.799491505673452*^9, {3.7994915681724916`*^9, 3.7994915888986807`*^9}, 
   3.7994916286532927`*^9, 3.79949170077641*^9, 3.7995418802359977`*^9, 
   3.79954200178498*^9, 3.799542248364467*^9, 3.799542418178048*^9, 
   3.799542509972083*^9, 3.799542608574939*^9, 3.799542672839131*^9, {
   3.7995427217736225`*^9, 3.7995427445234632`*^9}, 3.799542867282419*^9, 
   3.7995429684564657`*^9, 3.7997716258099604`*^9, 3.7998502466302767`*^9, 
   3.799850301039985*^9, 3.799851104398441*^9, 3.799854912650391*^9, 
   3.7998549754993553`*^9, 3.7998550397341785`*^9, 3.8002019956153545`*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"30f619fe-5007-4aba-8549-a1eed4a22d47"],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{
  3.7994903490351515`*^9, 3.7994906781159983`*^9, 3.7994910364164104`*^9, 
   3.799491229645982*^9, 3.7994912644367647`*^9, 3.7994912975427856`*^9, 
   3.799491505673452*^9, {3.7994915681724916`*^9, 3.7994915888986807`*^9}, 
   3.7994916286532927`*^9, 3.79949170077641*^9, 3.7995418802359977`*^9, 
   3.79954200178498*^9, 3.799542248364467*^9, 3.799542418178048*^9, 
   3.799542509972083*^9, 3.799542608574939*^9, 3.799542672839131*^9, {
   3.7995427217736225`*^9, 3.7995427445234632`*^9}, 3.799542867282419*^9, 
   3.7995429684564657`*^9, 3.7997716258099604`*^9, 3.7998502466302767`*^9, 
   3.799850301039985*^9, 3.799851104398441*^9, 3.799854912650391*^9, 
   3.7998549754993553`*^9, 3.7998550397341785`*^9, 3.8002019956153545`*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"6bb94c14-558f-4161-9f71-847e4603b764"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\">> Solu\[CCedilla]\[OTilde]es: x1 = \"\>", "\[InvisibleSpace]", 
   StyleBox[
    TagBox[
     RowBox[{"(", "\[NoBreak]", 
      TagBox[GridBox[{
         {"14.503548149077838`"},
         {"21.539282038735408`"},
         {"8.323303573755577`"}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}],
       Column], "\[NoBreak]", ")"}],
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]],
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]], "\[InvisibleSpace]", "\<\",  x2 = \"\>", 
   "\[InvisibleSpace]", 
   StyleBox[
    TagBox[
     RowBox[{"(", "\[NoBreak]", 
      TagBox[GridBox[{
         {"8.435870300403995`"},
         {"18.28028647018529`"},
         {"18.391252836074653`"}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}],
       Column], "\[NoBreak]", ")"}],
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]],
    StripOnInput->False,
    LineColor->RGBColor[1, 0, 0],
    FrontFaceColor->RGBColor[1, 0, 0],
    BackFaceColor->RGBColor[1, 0, 0],
    GraphicsColor->RGBColor[1, 0, 0],
    FontColor->RGBColor[1, 0, 0]]}],
  SequenceForm[">> Solu\[CCedilla]\[OTilde]es: x1 = ", 
   Style[
    MatrixForm[{14.503548149077838`, 21.539282038735408`, 8.323303573755577}], 
    RGBColor[1, 0, 0]], ",  x2 = ", 
   Style[
    MatrixForm[{8.435870300403995, 18.28028647018529, 18.391252836074653`}], 
    RGBColor[1, 0, 0]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7994903490351515`*^9, 3.7994906781159983`*^9, 3.7994910364164104`*^9, 
   3.799491229645982*^9, 3.7994912644367647`*^9, 3.7994912975427856`*^9, 
   3.799491505673452*^9, {3.7994915681724916`*^9, 3.7994915888986807`*^9}, 
   3.7994916286532927`*^9, 3.79949170077641*^9, 3.7995418802359977`*^9, 
   3.79954200178498*^9, 3.799542248364467*^9, 3.799542418178048*^9, 
   3.799542509972083*^9, 3.799542608574939*^9, 3.799542672839131*^9, {
   3.7995427217736225`*^9, 3.7995427445234632`*^9}, 3.799542867282419*^9, 
   3.7995429684564657`*^9, 3.7997716258099604`*^9, 3.7998502466302767`*^9, 
   3.799850301039985*^9, 3.799851104398441*^9, 3.799854912650391*^9, 
   3.7998549754993553`*^9, 3.7998550397341785`*^9, 3.8002019956309767`*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"e07f9794-f723-4f71-b7c0-087faab0be2e"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1366, 695},
WindowMargins->{{-8, Automatic}, {Automatic, -8}},
FrontEndVersion->"12.0 for Microsoft Windows (64-bit) (April 8, 2019)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 359, 9, 79, "Subchapter",ExpressionUUID->"26650087-23b0-4378-83f2-05d5c650ade8"],
Cell[942, 33, 411, 8, 60, "Input",ExpressionUUID->"9fef554c-1702-43b7-b301-6e540c06f21a"],
Cell[1356, 43, 191, 2, 60, "Input",ExpressionUUID->"e1d99a6a-43c6-4587-b964-b70b0ca78d81"]
}, Closed]],
Cell[CellGroupData[{
Cell[1584, 50, 460, 10, 86, "Subchapter",ExpressionUUID->"8af60466-166f-4f45-b87d-19acdcfce888"],
Cell[2047, 62, 2065, 50, 252, "Input",ExpressionUUID->"f80fbb55-5233-4ed1-9f70-471dbd87b2b2"],
Cell[4115, 114, 31548, 682, 2643, "Input",ExpressionUUID->"10e558f9-db6c-4957-87ab-4bcbc3344637"]
}, Closed]],
Cell[CellGroupData[{
Cell[35700, 801, 356, 9, 86, "Subchapter",ExpressionUUID->"e22e0a9b-a4d4-49b4-9eab-f5033191eca7"],
Cell[36059, 812, 16792, 399, 1491, "Input",ExpressionUUID->"4076adc6-de74-4024-a1f1-f423503db120"],
Cell[52854, 1213, 59443, 1368, 4587, "Input",ExpressionUUID->"cdb6cbd5-a1fb-4104-8d6d-ef803920c8be"]
}, Closed]],
Cell[CellGroupData[{
Cell[112334, 2586, 398, 9, 86, "Subchapter",ExpressionUUID->"ac6ba0bd-0c15-4046-b387-911835e7c5f1"],
Cell[112735, 2597, 57682, 1177, 4299, "Input",ExpressionUUID->"f3c8967c-6488-4b5f-9b9e-da64c402445e"],
Cell[170420, 3776, 90607, 1909, 6672, "Input",ExpressionUUID->"fc08b790-8bd8-4f2d-98a4-746ee6e9d81f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[261064, 5690, 255, 4, 79, "Subchapter",ExpressionUUID->"6bc15201-2ca1-45df-b02e-53ad1a2014a6"],
Cell[CellGroupData[{
Cell[261344, 5698, 698, 12, 67, "Subsection",ExpressionUUID->"1500e145-85b9-4dec-be37-8453da8f36af"],
Cell[262045, 5712, 1028, 21, 84, "Input",ExpressionUUID->"4395b5d1-0f3b-4e9a-9440-55667ae31ce7"],
Cell[CellGroupData[{
Cell[263098, 5737, 454, 9, 35, "Input",ExpressionUUID->"ad945ec3-585a-487e-81d2-2a9bd11a6359"],
Cell[CellGroupData[{
Cell[263577, 5750, 3020, 43, 28, "Print",ExpressionUUID->"a9b9cec4-7852-4abf-936d-dac412976f37"],
Cell[266600, 5795, 3065, 43, 28, "Print",ExpressionUUID->"08312e56-359f-4d6f-b95d-516ff0369455"],
Cell[269668, 5840, 3020, 43, 28, "Print",ExpressionUUID->"a14ed013-ebc1-4ec8-b8ec-be9729d7b990"],
Cell[272691, 5885, 3020, 43, 28, "Print",ExpressionUUID->"6ab20fd2-2646-48c9-af2b-b6b9d32ec290"],
Cell[275714, 5930, 3064, 43, 28, "Print",ExpressionUUID->"1a9b68ec-537a-400a-b4c0-0c22e9b85bbf"],
Cell[278781, 5975, 3070, 44, 28, "Print",ExpressionUUID->"196c8cb0-e11d-4471-85ca-502b0c93b341"],
Cell[281854, 6021, 4984, 102, 63, "Print",ExpressionUUID->"8271e2cc-6433-40f0-acda-dd09eaed8c81"],
Cell[286841, 6125, 4506, 83, 32, "Print",ExpressionUUID->"a4bddd6b-065f-4d2d-a1c7-ba076550469e"],
Cell[291350, 6210, 4247, 78, 63, "Print",ExpressionUUID->"ae7d9bfd-5e3e-4891-9c44-34d67aeafd4b"],
Cell[295600, 6290, 4195, 77, 28, "Print",ExpressionUUID->"95159f3a-4ac1-47b5-99bd-76f5a52a7ee9"],
Cell[299798, 6369, 5147, 103, 63, "Print",ExpressionUUID->"de1d1bc2-f1f9-4263-bf3a-8901115f5b0c"],
Cell[304948, 6474, 4857, 89, 63, "Print",ExpressionUUID->"d486e179-a5ba-4c6d-bf10-49a62fada5f0"],
Cell[309808, 6565, 5458, 110, 63, "Print",ExpressionUUID->"e86e701a-48c5-454a-b85a-b5a2945d012f"],
Cell[315269, 6677, 3018, 43, 28, "Print",ExpressionUUID->"2ef91ae4-0652-44ee-9067-06da321423bc"],
Cell[318290, 6722, 3072, 44, 28, "Print",ExpressionUUID->"9c4ecfce-cdd0-4024-af0e-969be54e55d1"],
Cell[321365, 6768, 5060, 91, 32, "Print",ExpressionUUID->"062a5a1e-85b0-48b9-8509-14d05fefb18f"],
Cell[326428, 6861, 3870, 56, 34, "Print",ExpressionUUID->"a2e311d9-0e15-4544-9b10-d0f1a9ff0bd8"],
Cell[330301, 6919, 4146, 59, 35, "Print",ExpressionUUID->"45507aed-9680-4343-8ae5-2163eef0771a"],
Cell[334450, 6980, 3640, 51, 32, "Print",ExpressionUUID->"1c0a36c3-2678-4a2e-8992-ea96fec3bbb0"],
Cell[338093, 7033, 3321, 48, 32, "Print",ExpressionUUID->"5707589c-6251-44c0-9072-7be63d799b36"],
Cell[341417, 7083, 3373, 49, 28, "Print",ExpressionUUID->"15afa1ee-f4d8-4d8e-ab9e-49dc0f14e4a0"],
Cell[344793, 7134, 3811, 54, 30, "Print",ExpressionUUID->"0ae3fe60-3817-44df-a612-b1c98e1dcee3"],
Cell[348607, 7190, 4161, 61, 30, "Print",ExpressionUUID->"9f2d1418-64d1-4873-99e9-a513772eab75"],
Cell[352771, 7253, 3502, 50, 38, "Print",ExpressionUUID->"6ba9e315-148e-4860-97e5-d40a0de94fbc"],
Cell[356276, 7305, 3725, 54, 32, "Print",ExpressionUUID->"b415d29c-c92d-4899-9154-97bf5cc33ccc"],
Cell[360004, 7361, 3723, 54, 32, "Print",ExpressionUUID->"75cfa24d-ffe8-4f70-945f-3d1df6110fa6"],
Cell[363730, 7417, 3020, 43, 28, "Print",ExpressionUUID->"15608a09-73d1-46ee-aedc-18e19491cff4"],
Cell[366753, 7462, 4306, 83, 28, "Print",ExpressionUUID->"eaec233b-2032-4066-8b12-8410fd8dc6b0"],
Cell[371062, 7547, 3030, 43, 28, "Print",ExpressionUUID->"a6d38f88-9097-44c7-99a6-5461b4a955b7"],
Cell[374095, 7592, 3028, 43, 28, "Print",ExpressionUUID->"5d743b15-c8c4-4184-9837-32d532eb8761"],
Cell[377126, 7637, 4097, 75, 63, "Print",ExpressionUUID->"b73530bf-c207-4c1b-a079-ede5e4485a62"],
Cell[381226, 7714, 4571, 87, 32, "Print",ExpressionUUID->"df6a1aad-0852-4cc3-8c4a-fae692d6718b"],
Cell[385800, 7803, 5086, 103, 32, "Print",ExpressionUUID->"9d607a1e-434b-4a6a-bcbc-4c98a73d189a"],
Cell[390889, 7908, 6235, 129, 44, "Print",ExpressionUUID->"6449f571-24da-4705-b067-fb8363fa618d"],
Cell[397127, 8039, 3504, 59, 28, "Print",ExpressionUUID->"c5bd18ee-09d7-436f-a68e-6794bd105100"],
Cell[400634, 8100, 3032, 43, 28, "Print",ExpressionUUID->"51cee076-4885-45b4-8eca-48023d6e9d63"],
Cell[403669, 8145, 4185, 74, 30, "Print",ExpressionUUID->"ff6a4e8d-ef2c-4be7-a5e1-8fc53552075c"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[407915, 8226, 752, 13, 67, "Subsection",ExpressionUUID->"f0b9e3a4-e0db-40b9-9099-40670d27274d"],
Cell[408670, 8241, 2059, 53, 228, "Input",ExpressionUUID->"00d72292-c7fc-47b2-b9b0-723c65514362"],
Cell[CellGroupData[{
Cell[410754, 8298, 1029, 18, 60, "Input",ExpressionUUID->"976be258-0262-455c-bd25-f81d32deca13"],
Cell[CellGroupData[{
Cell[411808, 8320, 922, 14, 28, "Print",ExpressionUUID->"4c2d2685-6598-4a66-af01-ea8e9a3a64b8"],
Cell[412733, 8336, 3242, 78, 63, "Print",ExpressionUUID->"5eb954e4-5c34-4bdd-bf28-8d60e52c22b4"],
Cell[415978, 8416, 2701, 59, 63, "Print",ExpressionUUID->"4fde0c9e-9e83-450a-97a1-b53cc1d70a42"],
Cell[418682, 8477, 1530, 33, 28, "Print",ExpressionUUID->"e4c91e54-46eb-4368-ac5a-636b1faae87d"],
Cell[420215, 8512, 899, 14, 28, "Print",ExpressionUUID->"be6749f1-6df1-4202-8a7d-3595a18c41ef"],
Cell[421117, 8528, 2408, 56, 63, "Print",ExpressionUUID->"d8860af7-8429-4eb9-abf7-0b8999aa1191"],
Cell[423528, 8586, 1393, 29, 28, "Print",ExpressionUUID->"217d464c-2722-4503-b27d-fc5149f9f330"],
Cell[424924, 8617, 2042, 47, 63, "Print",ExpressionUUID->"668de4a7-8c78-4140-9637-a81e520e0f81"],
Cell[426969, 8666, 1401, 31, 28, "Print",ExpressionUUID->"842a727e-274a-4e3a-9f42-26a5eceed9e0"],
Cell[428373, 8699, 1877, 45, 28, "Print",ExpressionUUID->"0264dbc8-5f71-4714-8126-e7283f0c3329"],
Cell[430253, 8746, 897, 14, 28, "Print",ExpressionUUID->"95a93663-198c-487c-b5f2-64ed8c81de99"],
Cell[431153, 8762, 892, 14, 28, "Print",ExpressionUUID->"06d32816-87c4-46f5-9ff5-c103f8f21e49"],
Cell[432048, 8778, 971, 15, 28, "Print",ExpressionUUID->"dba898d0-baf2-44c7-8265-654714786c54"],
Cell[433022, 8795, 904, 14, 28, "Print",ExpressionUUID->"59534b4c-9d4f-4b3b-865b-5181a13caf7a"],
Cell[433929, 8811, 3127, 75, 63, "Print",ExpressionUUID->"c7a9ef39-d98a-4510-b021-2e852b968575"],
Cell[437059, 8888, 2560, 56, 32, "Print",ExpressionUUID->"c7748388-6192-4dd5-98b0-cc3e1bb56740"],
Cell[439622, 8946, 2391, 50, 63, "Print",ExpressionUUID->"2f76ff6a-34eb-4343-abe7-95e60088562f"],
Cell[442016, 8998, 2073, 48, 28, "Print",ExpressionUUID->"30644275-b9da-47bb-80cc-339a6b41a398"],
Cell[444092, 9048, 904, 14, 28, "Print",ExpressionUUID->"8ed5496f-5aa5-4a17-b3f1-f9fc6af100b4"],
Cell[444999, 9064, 3317, 84, 30, "Print",ExpressionUUID->"0e4993fd-c0da-40bd-93bf-5d089d69f484"],
Cell[448319, 9150, 2935, 75, 28, "Print",ExpressionUUID->"5f2b033c-fdf0-4217-834c-2aa6234bb55d"],
Cell[451257, 9227, 1546, 32, 31, "Print",ExpressionUUID->"8000101d-1978-4f0b-8be6-7310ad399e55"],
Cell[452806, 9261, 1500, 32, 28, "Print",ExpressionUUID->"d8067653-5e0d-4af4-a142-f8df952324f6"],
Cell[454309, 9295, 904, 14, 28, "Print",ExpressionUUID->"88e436bc-3483-46aa-aeae-3c0f03b1c4be"],
Cell[455216, 9311, 3162, 86, 30, "Print",ExpressionUUID->"7e66dfc7-f498-4c08-a19c-c9cac13a4490"],
Cell[458381, 9399, 2330, 55, 30, "Print",ExpressionUUID->"068ba942-0371-45d4-be09-e6ba30cb34ef"],
Cell[460714, 9456, 1502, 31, 30, "Print",ExpressionUUID->"6ef02424-2266-4939-9959-54f6200785a3"],
Cell[462219, 9489, 1556, 33, 30, "Print",ExpressionUUID->"438422b5-5f04-4f39-93d6-e93022c8dbeb"],
Cell[463778, 9524, 904, 14, 28, "Print",ExpressionUUID->"8648cad0-3247-43a7-9ba7-07e805a84c15"],
Cell[464685, 9540, 2246, 54, 32, "Print",ExpressionUUID->"f93b9ff0-eb4f-40fb-8594-710fcbce2157"],
Cell[466934, 9596, 1580, 32, 30, "Print",ExpressionUUID->"fdfd2053-3cf1-4333-a367-7b73b11a827c"],
Cell[468517, 9630, 1505, 31, 30, "Print",ExpressionUUID->"65a625ca-a58f-4505-a706-e639ab1bff4b"],
Cell[470025, 9663, 1465, 30, 30, "Print",ExpressionUUID->"b271205e-0d13-44c9-a93d-94e47da52f2b"],
Cell[471493, 9695, 902, 14, 28, "Print",ExpressionUUID->"6c3f1d64-e263-466b-af48-d06768e75b2f"],
Cell[472398, 9711, 2193, 53, 30, "Print",ExpressionUUID->"715a9c59-cc03-4730-a654-88d40e62f142"],
Cell[474594, 9766, 1550, 31, 30, "Print",ExpressionUUID->"cd882387-4012-488c-bd40-d8bfdfb97141"],
Cell[476147, 9799, 2204, 54, 30, "Print",ExpressionUUID->"44e31204-6454-44b9-abbe-b263a79306a6"],
Cell[478354, 9855, 1562, 31, 30, "Print",ExpressionUUID->"c484acd0-fd27-4712-9a74-c7b6b48ba71e"],
Cell[479919, 9888, 902, 14, 28, "Print",ExpressionUUID->"7cd3afce-f5eb-4ee5-b8e2-0f1809ac7690"],
Cell[480824, 9904, 2257, 54, 30, "Print",ExpressionUUID->"05e1d470-22a3-4151-988d-cf3a8b8e562f"],
Cell[483084, 9960, 1616, 34, 30, "Print",ExpressionUUID->"354ca111-33fa-40d4-ae6e-2362c6c5f176"],
Cell[484703, 9996, 1698, 35, 30, "Print",ExpressionUUID->"2a7eed39-d5ee-4b35-aca0-28ce8b30364d"],
Cell[486404, 10033, 2256, 54, 30, "Print",ExpressionUUID->"9b8e3f06-bda7-4ba1-a5b8-dae88a1dc281"],
Cell[488663, 10089, 1618, 34, 30, "Print",ExpressionUUID->"f1da9a98-56f5-4962-9326-b24345789461"],
Cell[490284, 10125, 1745, 36, 30, "Print",ExpressionUUID->"e14784d2-0188-4cc5-a725-bfbdae92afd3"],
Cell[492032, 10163, 904, 14, 28, "Print",ExpressionUUID->"e85e867c-430d-4f7f-9ddd-d156a742228b"],
Cell[492939, 10179, 1558, 31, 34, "Print",ExpressionUUID->"28001668-4c2a-4d11-8c30-a945575f3350"],
Cell[494500, 10212, 1729, 34, 34, "Print",ExpressionUUID->"82fe0519-3bf8-4848-8168-5b2c0954fda0"],
Cell[496232, 10248, 1708, 33, 34, "Print",ExpressionUUID->"88d28234-65c5-411b-897c-4f9e098c1117"],
Cell[497943, 10283, 1832, 39, 28, "Print",ExpressionUUID->"f356e456-79c0-44e5-8ae2-972966b54c80"],
Cell[499778, 10324, 1417, 28, 28, "Print",ExpressionUUID->"f09877cf-87f1-49ad-a8d6-a29e86153769"],
Cell[501198, 10354, 902, 14, 28, "Print",ExpressionUUID->"30ae6b31-e35c-4e7d-9072-b4bb75db452a"],
Cell[502103, 10370, 3317, 84, 30, "Print",ExpressionUUID->"2f799f10-1794-4cba-af45-e0a72adc5d11"],
Cell[505423, 10456, 2448, 63, 28, "Print",ExpressionUUID->"d41d100b-19f2-4b75-b38c-f1612a40e98b"],
Cell[507874, 10521, 1407, 28, 28, "Print",ExpressionUUID->"7d6948f1-0aee-42b0-84d9-64fa1168ea2d"],
Cell[509284, 10551, 1544, 32, 31, "Print",ExpressionUUID->"6a17fec0-dfe7-4b64-81b2-aa603a83498d"],
Cell[510831, 10585, 1498, 32, 28, "Print",ExpressionUUID->"987c15e2-c19c-4929-a260-638d38498b14"],
Cell[512332, 10619, 1539, 32, 30, "Print",ExpressionUUID->"9bf6f0f1-4b7e-40d7-bc40-f76f1914f0f0"],
Cell[513874, 10653, 904, 14, 28, "Print",ExpressionUUID->"d5a3b4b3-842b-4da4-829e-f5e215a5a6e8"],
Cell[514781, 10669, 4293, 127, 28, "Print",ExpressionUUID->"63b8bcba-9d66-470c-9968-cc2eed59e7a7"],
Cell[519077, 10798, 3576, 100, 28, "Print",ExpressionUUID->"6e561585-7b22-4813-b2d3-6165176c4462"],
Cell[522656, 10900, 1417, 29, 28, "Print",ExpressionUUID->"30f619fe-5007-4aba-8549-a1eed4a22d47"],
Cell[524076, 10931, 894, 14, 28, "Print",ExpressionUUID->"6bb94c14-558f-4161-9f71-847e4603b764"],
Cell[524973, 10947, 3047, 75, 63, "Print",ExpressionUUID->"e07f9794-f723-4f71-b7c0-087faab0be2e"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)