StickFigureGymnast.nb

(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    341897,       6561]
NotebookOptionsPosition[    340439,       6511]
NotebookOutlinePosition[    340863,       6527]
CellTagsIndexPosition[    340820,       6524]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[TextData[Cell[BoxData[
 FormBox["Initialization", TraditionalForm]],
 FormatType->"TraditionalForm"]], "Subtitle",
 CellChangeTimes->{{3.50975207892*^9, 3.509752081273*^9}, {
  3.5639046508265724`*^9, 3.5639046570035725`*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"(*", 
    RowBox[{"Body", " ", "Parameters"}], "*)"}],
   FontSize->24], "\n", 
  RowBox[{
   RowBox[{
    RowBox[{"rua", " ", "=", " ", "30.3"}], ";", "      ", 
    RowBox[{"rfa", " ", "=", " ", "36.7"}], ";", "    ", 
    RowBox[{"rth", " ", "=", " ", "47.2"}], ";", "     ", 
    RowBox[{"rca", " ", "=", " ", "53.6"}], ";", "     ", 
    RowBox[{"rft", " ", "=", " ", "21"}], ";", "      ", 
    RowBox[{"rhw", " ", "=", " ", "22.3"}], ";", " ", 
    RowBox[{"rhh", " ", "=", " ", 
     RowBox[{"-", "3.7"}]}], ";", " ", 
    RowBox[{"rsw", " ", "=", " ", "34.8"}], ";", " ", 
    RowBox[{"rsh", " ", "=", " ", "47.2"}], ";"}], "\n", 
   RowBox[{
    RowBox[{"ruacm", " ", "=", " ", "14.9"}], ";", " ", 
    RowBox[{"rfacm", " ", "=", " ", "12.2"}], ";", " ", 
    RowBox[{"rthcm", " ", "=", " ", "21.0"}], ";", " ", 
    RowBox[{"rcacm", " ", "=", " ", "18.3"}], ";", " ", 
    RowBox[{"rftcm", " ", "=", " ", "11.7"}], ";", " ", 
    RowBox[{"rabcm", " ", "=", " ", "12.7"}], ";", " ", 
    RowBox[{"rtxcm", " ", "=", " ", "34.2"}], ";", " ", 
    RowBox[{"rnecm", " ", "=", " ", "59.3"}], ";", " ", 
    RowBox[{"rhecm", " ", "=", " ", "73.5"}], ";"}], "\n", "\n", 
   RowBox[{
    RowBox[{"masses", " ", "=", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"mhe", " ", "=", " ", "4.4"}], ",", " ", 
       RowBox[{"mne", " ", "=", " ", "1.2"}], ",", " ", 
       RowBox[{"mtx", " ", "=", " ", "30.5"}], ",", " ", 
       RowBox[{"mab", " ", "=", " ", "2.9"}], ",", " ", 
       RowBox[{"mpe", " ", "=", " ", "14.6"}], ",", " ", 
       RowBox[{"mua", " ", "=", " ", "2.4"}], ",", " ", "mua", ",", " ", 
       RowBox[{"mla", " ", "=", " ", "1.6"}], ",", " ", "mla", ",", " ", 
       RowBox[{"mha", " ", "=", " ", ".6"}], ",", " ", "mha", ",", " ", 
       RowBox[{"mth", " ", "=", " ", "11.8"}], ",", " ", "mth", ",", " ", 
       RowBox[{"mca", " ", "=", " ", "4.5"}], ",", " ", "mca", ",", " ", 
       RowBox[{"mft", " ", "=", " ", "1.1"}], ",", " ", "mft"}], "}"}]}], 
    ";"}], "\n", 
   RowBox[{
    RowBox[{"M", "=", 
     RowBox[{"Total", "@", "masses"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    StyleBox[
     RowBox[{"(", 
      StyleBox["*",
       FontSize->24]}]], 
    StyleBox["Functions",
     FontSize->24], 
    StyleBox["*)",
     FontSize->24]}], 
   StyleBox["\[IndentingNewLine]",
    FontSize->24], 
   RowBox[{
    RowBox[{
     RowBox[{"rotxyz", "[", 
      RowBox[{"\[Phi]_", ",", "\[Theta]_", ",", "\[Psi]_"}], "]"}], ":=", 
     TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {
          RowBox[{
           RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
           RowBox[{"Cos", "[", "\[Psi]", "]"}]}], 
          RowBox[{
           RowBox[{"-", 
            RowBox[{"Cos", "[", "\[Theta]", "]"}]}], " ", 
           RowBox[{"Sin", "[", "\[Psi]", "]"}]}], 
          RowBox[{"Sin", "[", "\[Theta]", "]"}]},
         {
          RowBox[{
           RowBox[{
            RowBox[{"Cos", "[", "\[Psi]", "]"}], " ", 
            RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
            RowBox[{"Sin", "[", "\[Phi]", "]"}]}], "+", 
           RowBox[{
            RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
            RowBox[{"Sin", "[", "\[Psi]", "]"}]}]}], 
          RowBox[{
           RowBox[{
            RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
            RowBox[{"Cos", "[", "\[Psi]", "]"}]}], "-", 
           RowBox[{
            RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
            RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
            RowBox[{"Sin", "[", "\[Psi]", "]"}]}]}], 
          RowBox[{
           RowBox[{"-", 
            RowBox[{"Cos", "[", "\[Theta]", "]"}]}], " ", 
           RowBox[{"Sin", "[", "\[Phi]", "]"}]}]},
         {
          RowBox[{
           RowBox[{
            RowBox[{"-", 
             RowBox[{"Cos", "[", "\[Phi]", "]"}]}], " ", 
            RowBox[{"Cos", "[", "\[Psi]", "]"}], " ", 
            RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "+", 
           RowBox[{
            RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
            RowBox[{"Sin", "[", "\[Psi]", "]"}]}]}], 
          RowBox[{
           RowBox[{
            RowBox[{"Cos", "[", "\[Psi]", "]"}], " ", 
            RowBox[{"Sin", "[", "\[Phi]", "]"}]}], "+", 
           RowBox[{
            RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
            RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
            RowBox[{"Sin", "[", "\[Psi]", "]"}]}]}], 
          RowBox[{
           RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
           RowBox[{"Cos", "[", "\[Phi]", "]"}]}]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.7]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"CM", "[", "bodycoordinates_", "]"}], ":=", 
     RowBox[{
      RowBox[{"Dot", "[", 
       RowBox[{"masses", ",", 
        RowBox[{"bodycoordinates", "[", 
         RowBox[{"[", 
          RowBox[{"{", 
           RowBox[{
           "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "9", ",", "12", 
            ",", "21", ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", 
            ",", "27", ",", "28", ",", "29", ",", "30"}], "}"}], "]"}], 
         "]"}]}], "]"}], "/", "M"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"moments", "[", "bodycoordinates_", "]"}], ":=", 
    RowBox[{"Block", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"indicies", "=", 
        RowBox[{"{", 
         RowBox[{
         "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "9", ",", "12", 
          ",", "21", ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", 
          ",", "27", ",", "28", ",", "29", ",", "30"}], "}"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"masses", ".", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"Part", "[", 
                  RowBox[{"bodycoordinates", ",", "#", ",", "2"}], "]"}], 
                 "100"], ")"}], "2"], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"Part", "[", 
                  RowBox[{"bodycoordinates", ",", "#", ",", "3"}], "]"}], 
                 "100"], ")"}], "2"]}], ")"}], "&"}], "/@", "indicies"}], 
          ")"}]}], ",", 
        RowBox[{"masses", ".", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"Part", "[", 
                  RowBox[{"bodycoordinates", ",", "#", ",", "1"}], "]"}], 
                 "100"], ")"}], "2"], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"Part", "[", 
                  RowBox[{"bodycoordinates", ",", "#", ",", "3"}], "]"}], 
                 "100"], ")"}], "2"]}], ")"}], "&"}], "/@", "indicies"}], 
          ")"}]}], ",", 
        RowBox[{"masses", ".", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"Part", "[", 
                  RowBox[{"bodycoordinates", ",", "#", ",", "1"}], "]"}], 
                 "100"], ")"}], "2"], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"Part", "[", 
                  RowBox[{"bodycoordinates", ",", "#", ",", "2"}], "]"}], 
                 "100"], ")"}], "2"]}], ")"}], "&"}], "/@", "indicies"}], 
          ")"}]}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Clear", "[", "bodycoordinates", "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"bodycoordinates", "[", 
      RowBox[{"{", 
       RowBox[{
       "\[Phi]ab_", ",", "\[Theta]ab_", ",", "\[Phi]sh_", ",", "\[Phi]shr_", 
        ",", "\[Theta]shr_", ",", "\[Phi]ebr_", ",", "\[Theta]ebr_", ",", 
        "\[Phi]shl_", ",", "\[Theta]shl_", ",", "\[Phi]ebl_", ",", 
        "\[Theta]ebl_", ",", "\[Phi]hir_", ",", "\[Theta]hir_", ",", 
        "\[Phi]knr_", ",", "\[Theta]knr_", ",", "\[Phi]anr_", ",", 
        "\[Phi]hil_", ",", "\[Theta]hil_", ",", "\[Phi]knl_", ",", 
        "\[Theta]knl_", ",", "\[Phi]anl_", ",", "\[Phi]_", ",", "\[Theta]_", 
        ",", "\[Psi]_", ",", "h_"}], "}"}], "]"}], ":=", 
     RowBox[{"Block", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "bc", ",", "rotbc", ",", "mi", ",", "cm", ",", "he", ",", "ne", ",", 
         "tx", ",", "ab", ",", "pe", ",", "shr", ",", "ebr", ",", "har", ",", 
         "shl", ",", "ebl", ",", "hal", ",", "hir", ",", "knr", ",", "anr", 
         ",", "ftr", ",", "hil", ",", "knl", ",", "anl", ",", "ftl", ",", 
         "uar", ",", "ual", ",", "far", ",", "fal", ",", "thr", ",", "thl", 
         ",", "car", ",", "cal", ",", "fcmr", ",", "fcml"}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"pe", "=", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ";", 
        RowBox[{"ab", "=", 
         RowBox[{"pe", "+", 
          RowBox[{
           RowBox[{"rotxyz", "[", 
            RowBox[{
             RowBox[{".5", "\[Phi]ab"}], ",", "0", ",", "\[Theta]ab"}], "]"}],
            ".", 
           RowBox[{"{", 
            RowBox[{"0", ",", "rabcm", " ", ",", "0"}], "}"}]}]}]}], ";", 
        RowBox[{"tx", "=", 
         RowBox[{"ab", "+", 
          RowBox[{
           RowBox[{"rotxyz", "[", 
            RowBox[{"\[Phi]ab", ",", "0", ",", "\[Theta]ab"}], "]"}], ".", 
           RowBox[{"{", 
            RowBox[{"0", ",", 
             RowBox[{"rtxcm", " ", "-", "rabcm"}], ",", "0"}], "}"}]}]}]}], 
        ";", 
        RowBox[{"ne", "=", 
         RowBox[{"tx", "+", 
          RowBox[{
           RowBox[{"rotxyz", "[", 
            RowBox[{"\[Phi]ab", ",", "0", ",", "\[Theta]ab"}], "]"}], ".", 
           RowBox[{"{", 
            RowBox[{"0", ",", 
             RowBox[{"rnecm", " ", "-", "rtxcm"}], ",", "0"}], "}"}]}]}]}], 
        ";", 
        RowBox[{"he", "=", 
         RowBox[{"ne", "+", 
          RowBox[{
           RowBox[{"rotxyz", "[", 
            RowBox[{"\[Phi]ab", ",", "0", ",", "\[Theta]ab"}], "]"}], ".", 
           RowBox[{"{", 
            RowBox[{"0", ",", 
             RowBox[{"rhecm", " ", "-", "rnecm"}], ",", "0"}], "}"}]}]}]}], 
        ";", "\[IndentingNewLine]", 
        RowBox[{"bc", "=", 
         RowBox[{"{", 
          RowBox[{"(*", 
           RowBox[{"1", " ", "Center", " ", "of", " ", "Mass"}], "*)"}], 
          RowBox[{"cm", ",", 
           RowBox[{"(*", 
            RowBox[{"2", " ", "CM", " ", "Head"}], "*)"}], "he", ",", 
           RowBox[{"(*", 
            RowBox[{"3", " ", "CM", " ", "Neck"}], "*)"}], "ne", ",", 
           RowBox[{"(*", 
            RowBox[{"4", " ", "CM", " ", "Thorax"}], "*)"}], "tx", ",", 
           RowBox[{"(*", 
            RowBox[{"5", " ", "CM", " ", "Abdomen"}], "*)"}], "ab", ",", 
           RowBox[{"(*", 
            RowBox[{"6", " ", "CM", " ", "Pelvis"}], "*)"}], "pe", ",", 
           "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{"7", ",", "8", ",", 
             RowBox[{"9", " ", "Right", " ", "Arm"}]}], "*)"}], 
           "\[IndentingNewLine]", "     ", 
           RowBox[{"shr", "=", 
            RowBox[{"tx", "+", 
             RowBox[{
              RowBox[{"rotxyz", "[", " ", 
               RowBox[{"\[Phi]ab", ",", "0", ",", "\[Theta]ab"}], "]"}], ".", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{
                 FractionBox[
                  RowBox[{"-", "rsw"}], "2"], 
                 RowBox[{"Cos", "[", "\[Phi]sh", "]"}]}], ",", 
                RowBox[{"rsh", "-", "rtxcm"}], ",", 
                RowBox[{
                 FractionBox["rsw", "2"], 
                 RowBox[{"Sin", "[", "\[Phi]sh", "]"}]}]}], "}"}]}]}]}], ",", 
           "\[IndentingNewLine]", "      ", 
           RowBox[{"ebr", "=", 
            RowBox[{"shr", "+", 
             RowBox[{
              RowBox[{"rotxyz", "[", " ", 
               RowBox[{"\[Phi]ab", ",", "0", ",", "\[Theta]ab"}], "]"}], ".", 
              RowBox[{"rotxyz", "[", 
               RowBox[{"0", ",", "\[Phi]sh", ",", "0"}], "]"}], ".", 
              RowBox[{"RotationMatrix", "[", 
               RowBox[{"\[Theta]shr", ",", 
                RowBox[{"{", 
                 RowBox[{"0", ",", 
                  RowBox[{"-", "1"}], ",", "0"}], "}"}]}], "]"}], ".", 
              RowBox[{"RotationMatrix", "[", 
               RowBox[{"\[Phi]shr", ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"0", ",", 
                    RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], "]"}],
               ".", 
              RowBox[{"{", 
               RowBox[{"0", ",", 
                RowBox[{"-", "rua"}], ",", "0"}], "}"}]}]}]}], ",", 
           "\[IndentingNewLine]", "      ", 
           RowBox[{"har", "=", 
            RowBox[{"ebr", "+", 
             RowBox[{
              RowBox[{"rotxyz", "[", 
               RowBox[{"\[Phi]ab", ",", "0", ",", "\[Theta]ab"}], "]"}], ".", 
              RowBox[{"rotxyz", "[", 
               RowBox[{"0", ",", "\[Phi]sh", ",", "0"}], "]"}], ".", 
              RowBox[{"RotationMatrix", "[", 
               RowBox[{"\[Theta]shr", ",", 
                RowBox[{"{", 
                 RowBox[{"0", ",", 
                  RowBox[{"-", "1"}], ",", "0"}], "}"}]}], "]"}], ".", 
              RowBox[{"RotationMatrix", "[", 
               RowBox[{"\[Phi]shr", ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"0", ",", 
                    RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], "]"}],
               ".", "\[IndentingNewLine]", 
              RowBox[{"RotationMatrix", "[", 
               RowBox[{"\[Theta]ebr", ",", 
                RowBox[{"{", 
                 RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "]"}], ".", 
              RowBox[{"RotationMatrix", "[", 
               RowBox[{"\[Phi]ebr", ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"0", ",", 
                    RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], "]"}],
               ".", 
              RowBox[{"{", 
               RowBox[{"0", ",", 
                RowBox[{"-", "rfa"}], ",", "0"}], "}"}]}]}]}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{"10", ",", "11", ",", 
             RowBox[{"12", " ", "Left", " ", "Arm"}]}], "*)"}], 
           "\[IndentingNewLine]", "      ", 
           RowBox[{"shl", "=", 
            RowBox[{"tx", "+", 
             RowBox[{
              RowBox[{"rotxyz", "[", 
               RowBox[{"\[Phi]ab", ",", "0", ",", "\[Theta]ab"}], "]"}], ".", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{
                 FractionBox["rsw", "2"], 
                 RowBox[{"Cos", "[", "\[Phi]sh", "]"}]}], ",", 
                RowBox[{"rsh", "-", "rtxcm"}], ",", 
                RowBox[{
                 FractionBox[
                  RowBox[{"-", "rsw"}], "2"], 
                 RowBox[{"Sin", "[", "\[Phi]sh", "]"}]}]}], "}"}]}]}]}], ",", 
           "\[IndentingNewLine]", "      ", 
           RowBox[{"ebl", "=", 
            RowBox[{"shl", "+", 
             RowBox[{
              RowBox[{"rotxyz", "[", " ", 
               RowBox[{"\[Phi]ab", ",", "0", ",", "\[Theta]ab"}], "]"}], ".", 
              RowBox[{"rotxyz", "[", 
               RowBox[{"0", ",", "\[Phi]sh", ",", "0"}], "]"}], ".", 
              RowBox[{"RotationMatrix", "[", 
               RowBox[{"\[Theta]shl", ",", 
                RowBox[{"{", 
                 RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "]"}], ".", 
              RowBox[{"RotationMatrix", "[", 
               RowBox[{"\[Phi]shl", ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"0", ",", 
                    RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], "]"}],
               ".", 
              RowBox[{"{", 
               RowBox[{"0", ",", 
                RowBox[{"-", "rua"}], ",", "0"}], "}"}]}]}]}], ",", 
           "\[IndentingNewLine]", "      ", 
           RowBox[{"hal", "=", 
            RowBox[{"ebl", "+", 
             RowBox[{
              RowBox[{"rotxyz", "[", 
               RowBox[{"\[Phi]ab", ",", "0", ",", "\[Theta]ab"}], "]"}], ".", 
              RowBox[{"rotxyz", "[", 
               RowBox[{"0", ",", "\[Phi]sh", ",", "0"}], "]"}], ".", 
              RowBox[{"RotationMatrix", "[", 
               RowBox[{"\[Theta]shl", ",", 
                RowBox[{"{", 
                 RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "]"}], ".", 
              RowBox[{"RotationMatrix", "[", 
               RowBox[{"\[Phi]shl", ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"0", ",", 
                    RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], "]"}],
               ".", "\[IndentingNewLine]", 
              RowBox[{"RotationMatrix", "[", 
               RowBox[{"\[Theta]ebl", ",", 
                RowBox[{"{", 
                 RowBox[{"0", ",", 
                  RowBox[{"-", "1"}], ",", "0"}], "}"}]}], "]"}], ".", 
              RowBox[{"RotationMatrix", "[", 
               RowBox[{"\[Phi]ebl", ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"0", ",", 
                    RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], "]"}],
               ".", 
              RowBox[{"{", 
               RowBox[{"0", ",", 
                RowBox[{"-", "rfa"}], ",", "0"}], "}"}]}]}]}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{"13", ",", "14", ",", "15", ",", 
             RowBox[{"16", " ", "Right", " ", "Leg"}]}], "*)"}], 
           "\[IndentingNewLine]", "      ", 
           RowBox[{"hir", "=", 
            RowBox[{"pe", "+", 
             RowBox[{"{", 
              RowBox[{
               FractionBox[
                RowBox[{"-", "rhw"}], "2"], ",", "rhh", ",", "0"}], "}"}]}]}],
            ",", "\[IndentingNewLine]", "       ", 
           RowBox[{"knr", "=", 
            RowBox[{"hir", "+", 
             RowBox[{
              RowBox[{"RotationMatrix", "[", 
               RowBox[{"\[Theta]hir", ",", 
                RowBox[{"{", 
                 RowBox[{"0", ",", 
                  RowBox[{"-", "1"}], ",", "0"}], "}"}]}], "]"}], ".", 
              RowBox[{"RotationMatrix", "[", 
               RowBox[{"\[Phi]hir", ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"0", ",", 
                    RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], "]"}],
               ".", 
              RowBox[{"{", 
               RowBox[{"0", ",", 
                RowBox[{"-", "rth"}], ",", "0"}], "}"}]}]}]}], ",", 
           "\[IndentingNewLine]", "       ", 
           RowBox[{"anr", "=", 
            RowBox[{"knr", "+", 
             RowBox[{
              RowBox[{"RotationMatrix", "[", 
               RowBox[{"\[Theta]hir", ",", 
                RowBox[{"{", 
                 RowBox[{"0", ",", 
                  RowBox[{"-", "1"}], ",", "0"}], "}"}]}], "]"}], ".", 
              RowBox[{"RotationMatrix", "[", 
               RowBox[{"\[Phi]hir", ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"0", ",", 
                    RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], "]"}],
               ".", "\[IndentingNewLine]", "    ", 
              RowBox[{"RotationMatrix", "[", 
               RowBox[{"\[Theta]knr", ",", 
                RowBox[{"{", 
                 RowBox[{"0", ",", 
                  RowBox[{"-", "1"}], ",", "0"}], "}"}]}], "]"}], ".", 
              RowBox[{"RotationMatrix", "[", 
               RowBox[{"\[Phi]knr", ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"0", ",", 
                    RowBox[{"-", "1"}], ",", "0"}], "}"}]}], "}"}]}], "]"}], 
              ".", 
              RowBox[{"{", 
               RowBox[{"0", ",", 
                RowBox[{"-", "rca"}], ",", "0"}], "}"}]}]}]}], ",", 
           "\[IndentingNewLine]", "       ", 
           RowBox[{"ftr", "=", 
            RowBox[{"anr", "+", 
             RowBox[{
              RowBox[{"RotationMatrix", "[", 
               RowBox[{"\[Theta]hir", ",", 
                RowBox[{"{", 
                 RowBox[{"0", ",", 
                  RowBox[{"-", "1"}], ",", "0"}], "}"}]}], "]"}], ".", 
              RowBox[{"RotationMatrix", "[", 
               RowBox[{"\[Phi]hir", ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"0", ",", 
                    RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], "]"}],
               ".", "\[IndentingNewLine]", "   ", 
              RowBox[{"RotationMatrix", "[", 
               RowBox[{"\[Theta]knr", ",", 
                RowBox[{"{", 
                 RowBox[{"0", ",", 
                  RowBox[{"-", "1"}], ",", "0"}], "}"}]}], "]"}], ".", 
              RowBox[{"RotationMatrix", "[", 
               RowBox[{"\[Phi]knr", ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"0", ",", 
                    RowBox[{"-", "1"}], ",", "0"}], "}"}]}], "}"}]}], "]"}], 
              ".", "\[IndentingNewLine]", "   ", 
              RowBox[{"RotationMatrix", "[", 
               RowBox[{"\[Phi]anr", ",", 
                RowBox[{"{", 
                 RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}], ".", 
              RowBox[{"{", 
               RowBox[{"0", ",", "0", ",", "rft"}], "}"}]}]}]}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{"17", ",", "18", ",", "19", ",", 
             RowBox[{"20", " ", "Left", " ", "Leg"}]}], "*)"}], 
           "\[IndentingNewLine]", "       ", 
           RowBox[{"hil", "=", 
            RowBox[{"pe", "+", 
             RowBox[{"{", 
              RowBox[{
               FractionBox["rhw", "2"], ",", "rhh", ",", "0"}], "}"}]}]}], 
           ",", "\[IndentingNewLine]", "       ", 
           RowBox[{"knl", "=", 
            RowBox[{"hil", "+", 
             RowBox[{
              RowBox[{"RotationMatrix", "[", 
               RowBox[{"\[Theta]hil", ",", 
                RowBox[{"{", 
                 RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "]"}], ".", 
              RowBox[{"RotationMatrix", "[", 
               RowBox[{"\[Phi]hil", ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"0", ",", 
                    RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], "]"}],
               ".", 
              RowBox[{"{", 
               RowBox[{"0", ",", 
                RowBox[{"-", "rth"}], ",", "0"}], "}"}]}]}]}], ",", 
           "\[IndentingNewLine]", "       ", 
           RowBox[{"anl", "=", 
            RowBox[{"knl", "+", 
             RowBox[{
              RowBox[{"RotationMatrix", "[", 
               RowBox[{"\[Theta]hil", ",", 
                RowBox[{"{", 
                 RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "]"}], ".", 
              RowBox[{"RotationMatrix", "[", 
               RowBox[{"\[Phi]hil", ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"0", ",", 
                    RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], "]"}],
               ".", "\[IndentingNewLine]", "    ", 
              RowBox[{"RotationMatrix", "[", 
               RowBox[{"\[Theta]knl", ",", 
                RowBox[{"{", 
                 RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "]"}], ".", 
              RowBox[{"RotationMatrix", "[", 
               RowBox[{"\[Phi]knl", ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"0", ",", 
                    RowBox[{"-", "1"}], ",", "0"}], "}"}]}], "}"}]}], "]"}], 
              ".", 
              RowBox[{"{", 
               RowBox[{"0", ",", 
                RowBox[{"-", "rca"}], ",", "0"}], "}"}]}]}]}], ",", 
           "\[IndentingNewLine]", "       ", 
           RowBox[{"ftl", "=", 
            RowBox[{"anl", "+", 
             RowBox[{
              RowBox[{"RotationMatrix", "[", 
               RowBox[{"\[Theta]hil", ",", 
                RowBox[{"{", 
                 RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "]"}], ".", 
              RowBox[{"RotationMatrix", "[", 
               RowBox[{"\[Phi]hil", ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"0", ",", 
                    RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], "]"}],
               ".", "\[IndentingNewLine]", "   ", 
              RowBox[{"RotationMatrix", "[", 
               RowBox[{"\[Theta]knl", ",", 
                RowBox[{"{", 
                 RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "]"}], ".", 
              RowBox[{"RotationMatrix", "[", 
               RowBox[{"\[Phi]knl", ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"0", ",", 
                    RowBox[{"-", "1"}], ",", "0"}], "}"}]}], "}"}]}], "]"}], 
              ".", "\[IndentingNewLine]", "   ", 
              RowBox[{"RotationMatrix", "[", 
               RowBox[{"\[Phi]anl", ",", 
                RowBox[{"{", 
                 RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}], ".", 
              RowBox[{"{", 
               RowBox[{"0", ",", "0", ",", "rft"}], "}"}]}]}]}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{"21", ",", 
             RowBox[{"22", " ", "CM", " ", "Upper", " ", "Arm"}]}], "*)"}], 
           "\[IndentingNewLine]", "     ", 
           RowBox[{
            RowBox[{"rotxyz", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "1.38"}], "\[Phi]ab"}], ",", "0", ",", 
              "\[Theta]ab"}], "]"}], ".", 
            RowBox[{"rotxyz", "[", 
             RowBox[{"0", ",", "\[Phi]sh", ",", "0"}], "]"}], ".", 
            RowBox[{"(", 
             RowBox[{"uar", "=", 
              RowBox[{"shr", "+", 
               RowBox[{
                RowBox[{"RotationMatrix", "[", 
                 RowBox[{"\[Theta]shr", ",", 
                  RowBox[{"{", 
                   RowBox[{"0", ",", 
                    RowBox[{"-", "1"}], ",", "0"}], "}"}]}], "]"}], ".", 
                RowBox[{"RotationMatrix", "[", 
                 RowBox[{"\[Phi]shr", ",", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{"0", ",", 
                    RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], 
                 "]"}], ".", 
                RowBox[{"{", 
                 RowBox[{"0", ",", 
                  RowBox[{"-", "ruacm"}], ",", "0"}], "}"}]}]}]}], ")"}]}], 
           ",", "\[IndentingNewLine]", "     ", 
           RowBox[{
            RowBox[{"rotxyz", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "1.38"}], "\[Phi]ab"}], ",", "0", ",", 
              "\[Theta]ab"}], "]"}], ".", 
            RowBox[{"rotxyz", "[", 
             RowBox[{"0", ",", "\[Phi]sh", ",", "0"}], "]"}], ".", 
            RowBox[{"(", 
             RowBox[{"ual", "=", 
              RowBox[{"shl", "+", 
               RowBox[{
                RowBox[{"RotationMatrix", "[", 
                 RowBox[{"\[Theta]shl", ",", 
                  RowBox[{"{", 
                   RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "]"}], ".", 
                RowBox[{"RotationMatrix", "[", 
                 RowBox[{"\[Phi]shl", ",", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{"0", ",", 
                    RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], 
                 "]"}], ".", 
                RowBox[{"{", 
                 RowBox[{"0", ",", 
                  RowBox[{"-", "ruacm"}], ",", "0"}], "}"}]}]}]}], ")"}]}], 
           ",", "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{"23", ",", 
             RowBox[{"24", " ", "CM", " ", "Forearm"}]}], "*)"}], "    ", 
           "\[IndentingNewLine]", "     ", 
           RowBox[{
            RowBox[{"rotxyz", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "1.38"}], "\[Phi]ab"}], ",", "0", ",", 
              "\[Theta]ab"}], "]"}], ".", 
            RowBox[{"rotxyz", "[", 
             RowBox[{"0", ",", "\[Phi]sh", ",", "0"}], "]"}], ".", 
            RowBox[{"(", 
             RowBox[{"fal", "=", 
              RowBox[{"ebl", "+", 
               RowBox[{
                RowBox[{"RotationMatrix", "[", 
                 RowBox[{"\[Theta]shl", ",", 
                  RowBox[{"{", 
                   RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "]"}], ".", 
                RowBox[{"RotationMatrix", "[", 
                 RowBox[{"\[Phi]shl", ",", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{"0", ",", 
                    RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], 
                 "]"}], ".", "\[IndentingNewLine]", 
                RowBox[{"RotationMatrix", "[", 
                 RowBox[{"\[Theta]ebl", ",", 
                  RowBox[{"{", 
                   RowBox[{"0", ",", 
                    RowBox[{"-", "1"}], ",", "0"}], "}"}]}], "]"}], ".", 
                RowBox[{"RotationMatrix", "[", 
                 RowBox[{"\[Phi]ebl", ",", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{"0", ",", 
                    RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], 
                 "]"}], ".", 
                RowBox[{"{", 
                 RowBox[{"0", ",", 
                  RowBox[{"-", "rfacm"}], ",", "0"}], "}"}]}]}]}], ")"}]}], 
           ",", "\[IndentingNewLine]", "     ", 
           RowBox[{
            RowBox[{"rotxyz", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "1.38"}], "\[Phi]ab"}], ",", "0", ",", 
              "\[Theta]ab"}], "]"}], ".", 
            RowBox[{"rotxyz", "[", 
             RowBox[{"0", ",", "\[Phi]sh", ",", "0"}], "]"}], ".", 
            RowBox[{"(", 
             RowBox[{"far", "=", 
              RowBox[{"ebr", "+", 
               RowBox[{
                RowBox[{"RotationMatrix", "[", 
                 RowBox[{"\[Theta]shr", ",", 
                  RowBox[{"{", 
                   RowBox[{"0", ",", 
                    RowBox[{"-", "1"}], ",", "0"}], "}"}]}], "]"}], ".", 
                RowBox[{"RotationMatrix", "[", 
                 RowBox[{"\[Phi]shr", ",", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{"0", ",", 
                    RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], 
                 "]"}], ".", "\[IndentingNewLine]", 
                RowBox[{"RotationMatrix", "[", 
                 RowBox[{"\[Theta]ebr", ",", 
                  RowBox[{"{", 
                   RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "]"}], ".", 
                RowBox[{"RotationMatrix", "[", 
                 RowBox[{"\[Phi]ebr", ",", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{"0", ",", 
                    RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], 
                 "]"}], ".", 
                RowBox[{"{", 
                 RowBox[{"0", ",", 
                  RowBox[{"-", "rfacm"}], ",", "0"}], "}"}]}]}]}], ")"}]}], 
           ",", "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{"25", ",", 
             RowBox[{"26", " ", "CM", " ", "Thigh"}]}], "*)"}], 
           "\[IndentingNewLine]", "      ", 
           RowBox[{"thl", "=", 
            RowBox[{"hil", "+", 
             RowBox[{
              RowBox[{"RotationMatrix", "[", 
               RowBox[{"\[Theta]hil", ",", 
                RowBox[{"{", 
                 RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "]"}], ".", 
              RowBox[{"RotationMatrix", "[", 
               RowBox[{"\[Phi]hil", ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"0", ",", 
                    RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], "]"}],
               ".", 
              RowBox[{"{", 
               RowBox[{"0", ",", 
                RowBox[{"-", "rthcm"}], ",", "0"}], "}"}]}]}]}], ",", 
           "\[IndentingNewLine]", "      ", 
           RowBox[{"thr", "=", 
            RowBox[{"hir", "+", 
             RowBox[{
              RowBox[{"RotationMatrix", "[", 
               RowBox[{"\[Theta]hir", ",", 
                RowBox[{"{", 
                 RowBox[{"0", ",", 
                  RowBox[{"-", "1"}], ",", "0"}], "}"}]}], "]"}], ".", 
              RowBox[{"RotationMatrix", "[", 
               RowBox[{"\[Phi]hir", ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"0", ",", 
                    RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], "]"}],
               ".", 
              RowBox[{"{", 
               RowBox[{"0", ",", 
                RowBox[{"-", "rthcm"}], ",", "0"}], "}"}]}]}]}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{"27", ",", 
             RowBox[{"28", " ", "CM", " ", "Calf"}]}], "*)"}], 
           "\[IndentingNewLine]", "      ", 
           RowBox[{"cal", "=", 
            RowBox[{"knl", "+", 
             RowBox[{
              RowBox[{"RotationMatrix", "[", 
               RowBox[{"\[Theta]hil", ",", 
                RowBox[{"{", 
                 RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "]"}], ".", 
              RowBox[{"RotationMatrix", "[", 
               RowBox[{"\[Phi]hil", ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"0", ",", 
                    RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], "]"}],
               ".", "\[IndentingNewLine]", "    ", 
              RowBox[{"RotationMatrix", "[", 
               RowBox[{"\[Theta]knl", ",", 
                RowBox[{"{", 
                 RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "]"}], ".", 
              RowBox[{"RotationMatrix", "[", 
               RowBox[{"\[Phi]knl", ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"0", ",", 
                    RowBox[{"-", "1"}], ",", "0"}], "}"}]}], "}"}]}], "]"}], 
              ".", 
              RowBox[{"{", 
               RowBox[{"0", ",", 
                RowBox[{"-", "rcacm"}], ",", "0"}], "}"}]}]}]}], ",", 
           "\[IndentingNewLine]", "      ", 
           RowBox[{"car", "=", 
            RowBox[{"knr", "+", 
             RowBox[{
              RowBox[{"RotationMatrix", "[", 
               RowBox[{"\[Theta]hir", ",", 
                RowBox[{"{", 
                 RowBox[{"0", ",", 
                  RowBox[{"-", "1"}], ",", "0"}], "}"}]}], "]"}], ".", 
              RowBox[{"RotationMatrix", "[", 
               RowBox[{"\[Phi]hir", ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"0", ",", 
                    RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], "]"}],
               ".", "\[IndentingNewLine]", "    ", 
              RowBox[{"RotationMatrix", "[", 
               RowBox[{"\[Theta]knr", ",", 
                RowBox[{"{", 
                 RowBox[{"0", ",", 
                  RowBox[{"-", "1"}], ",", "0"}], "}"}]}], "]"}], ".", 
              RowBox[{"RotationMatrix", "[", 
               RowBox[{"\[Phi]knr", ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"0", ",", 
                    RowBox[{"-", "1"}], ",", "0"}], "}"}]}], "}"}]}], "]"}], 
              ".", 
              RowBox[{"{", 
               RowBox[{"0", ",", 
                RowBox[{"-", "rcacm"}], ",", "0"}], "}"}]}]}]}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{"29", ",", 
             RowBox[{"30", " ", "CM", " ", "Foot"}]}], "*)"}], 
           "\[IndentingNewLine]", "      ", 
           RowBox[{"fcml", "=", 
            RowBox[{"anl", "+", 
             RowBox[{
              RowBox[{"RotationMatrix", "[", 
               RowBox[{"\[Theta]hil", ",", 
                RowBox[{"{", 
                 RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "]"}], ".", 
              RowBox[{"RotationMatrix", "[", 
               RowBox[{"\[Phi]hil", ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"0", ",", 
                    RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], "]"}],
               ".", "\[IndentingNewLine]", "   ", 
              RowBox[{"RotationMatrix", "[", 
               RowBox[{"\[Theta]knl", ",", 
                RowBox[{"{", 
                 RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "]"}], ".", 
              RowBox[{"RotationMatrix", "[", 
               RowBox[{"\[Phi]knl", ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"0", ",", 
                    RowBox[{"-", "1"}], ",", "0"}], "}"}]}], "}"}]}], "]"}], 
              ".", "\[IndentingNewLine]", "   ", 
              RowBox[{"RotationMatrix", "[", 
               RowBox[{"\[Phi]anl", ",", 
                RowBox[{"{", 
                 RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}], ".", 
              RowBox[{"{", 
               RowBox[{"0", ",", "3", ",", "rftcm"}], "}"}]}]}]}], ",", 
           "\[IndentingNewLine]", "     ", 
           RowBox[{"fcmr", "=", 
            RowBox[{"anr", "+", 
             RowBox[{
              RowBox[{"RotationMatrix", "[", 
               RowBox[{"\[Theta]hir", ",", 
                RowBox[{"{", 
                 RowBox[{"0", ",", 
                  RowBox[{"-", "1"}], ",", "0"}], "}"}]}], "]"}], ".", 
              RowBox[{"RotationMatrix", "[", 
               RowBox[{"\[Phi]hir", ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"0", ",", 
                    RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], "]"}],
               ".", "\[IndentingNewLine]", "   ", 
              RowBox[{"RotationMatrix", "[", 
               RowBox[{"\[Theta]knr", ",", 
                RowBox[{"{", 
                 RowBox[{"0", ",", 
                  RowBox[{"-", "1"}], ",", "0"}], "}"}]}], "]"}], ".", 
              RowBox[{"RotationMatrix", "[", 
               RowBox[{"\[Phi]knr", ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"0", ",", 
                    RowBox[{"-", "1"}], ",", "0"}], "}"}]}], "}"}]}], "]"}], 
              ".", "\[IndentingNewLine]", "   ", 
              RowBox[{"RotationMatrix", "[", 
               RowBox[{"\[Phi]anr", ",", 
                RowBox[{"{", 
                 RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}], ".", 
              RowBox[{"{", 
               RowBox[{"0", ",", "3", ",", "rftcm"}], "}"}]}]}]}]}], "}"}]}], 
        ";", " ", "\[IndentingNewLine]", 
        RowBox[{"cm", "=", 
         RowBox[{"CM", "[", "bc", "]"}]}], ";", 
        RowBox[{"rotbc", "=", 
         RowBox[{"Map", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"Plus", "[", 
              RowBox[{"Dot", "[", 
               RowBox[{
                RowBox[{"rotxyz", "[", 
                 RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "]"}], 
                ",", 
                RowBox[{"Plus", "[", 
                 RowBox[{
                  RowBox[{"-", "cm"}], ",", "#"}], "]"}]}], "]"}], "]"}], 
             ")"}], "&"}], ",", "bc"}], "]"}]}], ";", 
        RowBox[{"mi", "=", 
         RowBox[{"moments", "[", "rotbc", "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"h", "<", "1"}], ",", 
          RowBox[{"MiN", "=", 
           RowBox[{"Min", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"Part", "[", 
               RowBox[{"#", ",", "2"}], "]"}], "&"}], "/@", "rotbc"}], 
            "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Map", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Plus", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"0", ",", 
                RowBox[{"h", "-", "MiN", "+", "5"}], ",", "0"}], "}"}], ",", 
              "#"}], "]"}], "&"}], ",", "rotbc"}], "]"}], " ", "~", "Join", 
         "~", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "100"}], ",", "0", ",", 
             RowBox[{"-", "100"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"100", ",", "0", ",", 
             RowBox[{"-", "100"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"100", ",", "0", ",", "100"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "100"}], ",", "0", ",", "100"}], "}"}]}], "}"}], 
         "~", "Join", "~", 
         RowBox[{"{", "mi", "}"}]}]}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"frame", "[", 
     RowBox[{"bodycoordinates_", ",", 
      RowBox[{"v_:", 
       RowBox[{"\[Pi]", "/", "6"}]}]}], "]"}], ":=", 
    RowBox[{"Graphics3D", "[", 
     RowBox[{
      RowBox[{"GraphicsComplex", "[", 
       RowBox[{"bodycoordinates", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Sphere", "[", 
           RowBox[{"2", ",", "10.5"}], "]"}], ",", "Blue", ",", 
          RowBox[{"PointSize", "[", ".009", "]"}], ",", 
          RowBox[{"Point", "[", 
           RowBox[{"Table", "[", 
            RowBox[{"i", ",", 
             RowBox[{"{", 
              RowBox[{"i", ",", "7", ",", "20"}], "}"}]}], "]"}], "]"}], ",", 
          "\[IndentingNewLine]", "Black", ",", 
          RowBox[{"Thickness", "[", ".004", "]"}], ",", 
          RowBox[{"Line", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"2", ",", "3"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"6", ",", "13", ",", "17", ",", "6"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"10", ",", "7", ",", "4", ",", "10"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"7", ",", "8", ",", "9"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"10", ",", "11", ",", "12"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"13", ",", "14", ",", "15", ",", "16"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"17", ",", "18", ",", "19", ",", "20"}], "}"}]}], "}"}],
            "]"}], ",", "\[IndentingNewLine]", 
          RowBox[{"BSplineCurve", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"17", ",", "5", ",", "10"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"13", ",", "5", ",", "7"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"3", ",", "4", ",", "5", ",", "6"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"7", ",", "3", ",", "10"}], "}"}]}], "}"}], ",", 
            RowBox[{"SplineWeights", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"1", ",", "1", ",", "3", ",", "1"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"1", ",", "1", ",", "1"}], "}"}]}], "}"}]}]}], "]"}], 
          ",", "\[IndentingNewLine]", "Red", ",", 
          RowBox[{"Point", "[", 
           RowBox[{"{", 
            RowBox[{"2", ",", "3", ",", "4", ",", "5", ",", "6"}], "}"}], 
           "]"}], ",", 
          RowBox[{"PointSize", "[", "Large", "]"}], ",", 
          RowBox[{"Point", "[", "1", "]"}], ",", "\[IndentingNewLine]", 
          RowBox[{"(*", "Ground", "*)"}], 
          RowBox[{"Thickness", "[", ".01", "]"}], ",", "Green", ",", 
          RowBox[{"Polygon", "[", 
           RowBox[{"{", 
            RowBox[{"31", ",", "32", ",", "33", ",", "34"}], "}"}], "]"}]}], 
         "}"}]}], "]"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "130"}], ",", "130"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "30"}], ",", "300"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "100"}], ",", "100"}], "}"}]}], "}"}]}], ",", 
      RowBox[{"ImageSize", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"700", ",", "700"}], "}"}]}], ",", 
      RowBox[{"SphericalRegion", "\[Rule]", "True"}], ",", 
      RowBox[{"ViewVector", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"600", 
            RowBox[{"Sin", "[", "v", "]"}]}], ",", "200", ",", 
           RowBox[{"600", 
            RowBox[{"Cos", "[", "v", "]"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "150", ",", "0"}], "}"}]}], "}"}]}], ",", 
      RowBox[{"ViewVertical", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], ",", 
      RowBox[{"ViewAngle", "\[Rule]", "All"}], ",", 
      RowBox[{"Boxed", "\[Rule]", "False"}]}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"ntable", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"a_:", "1"}], ",", 
         RowBox[{"b_:", "0"}], ",", 
         RowBox[{"c_:", "0"}], ",", 
         RowBox[{"e_:", "1"}]}], "}"}], ",", "min_", ",", "max_", ",", "n_", 
       ",", 
       RowBox[{"i_:", "0"}], ",", 
       RowBox[{"f_:", "1"}]}], "]"}], ":=", 
     RowBox[{"Drop", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"min", "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"max", "-", "min"}], ")"}], 
           RowBox[{"(", 
            RowBox[{
             FractionBox["1", 
              RowBox[{"a", "+", "b", "+", "c"}]], 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"a", " ", 
                SuperscriptBox[
                 RowBox[{"Sin", "[", 
                  RowBox[{
                   RowBox[{"\[Pi]", "/", "2."}], " ", 
                   RowBox[{"(", 
                    RowBox[{"x", "^", "e"}], ")"}]}], "]"}], "2"]}], "+", 
               RowBox[{"b", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{"x", "^", "e"}], ")"}], "2"]}], "+", 
               RowBox[{"c", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"x", "^", "e"}], ")"}], "-", "1."}], ")"}], 
                    "2"]}], " ", "+", "1."}], ")"}]}]}], ")"}]}], ")"}]}]}], 
         ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "i", ",", "f", ",", 
           RowBox[{
            RowBox[{"Abs", "[", 
             RowBox[{"f", "-", "i"}], "]"}], "/", "n"}]}], "}"}]}], "]"}], 
       ",", 
       RowBox[{"-", "1"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"animate", "[", 
     RowBox[{"anim_", ",", "fps_"}], "]"}], ":=", 
    RowBox[{"ListAnimate", "[", 
     RowBox[{
      RowBox[{"Flatten", "[", 
       RowBox[{"frame", "/@", 
        RowBox[{"bodycoordinates", "/@", 
         RowBox[{"Thread", "@", 
          RowBox[{"Flatten", "[", 
           RowBox[{"anim", ",", "1"}], "]"}]}]}]}], "]"}], ",", "fps"}], 
     "]"}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"animatrix", "[", "anim_", "]"}], ":=", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"bodycoordinates", "/@", 
         RowBox[{"Thread", "@", 
          RowBox[{"Flatten", "[", 
           RowBox[{"#", ",", "1"}], "]"}]}]}], ")"}], "&"}], "/@", "anim"}], "//",
      "MatrixForm"}]}]}]}]], "Input",
 CellChangeTimes->{{3.496945210582*^9, 3.4969452389944*^9}, {
   3.4969452969876003`*^9, 3.4969453254968*^9}, {3.4969454118168*^9, 
   3.4969455866042*^9}, 3.496945667142*^9, {3.4969457312794*^9, 
   3.4969458821138*^9}, {3.4969461550824003`*^9, 3.4969462042454*^9}, {
   3.4969462395601997`*^9, 3.4969463003004*^9}, {3.4969463375285997`*^9, 
   3.4969463628761997`*^9}, {3.4969464123487997`*^9, 3.49694660066*^9}, {
   3.4969466958598003`*^9, 3.4969467169574003`*^9}, {3.4969467512732*^9, 
   3.4969467804849997`*^9}, {3.4969468140892*^9, 3.4969468312064*^9}, {
   3.4969468789634*^9, 3.4969468967292*^9}, {3.4969469268676*^9, 
   3.4969469816712*^9}, {3.4969470492614*^9, 3.4969470714432*^9}, {
   3.4969471327122*^9, 3.496947197627*^9}, {3.4969472927005997`*^9, 
   3.4969473660360003`*^9}, {3.4969474228356*^9, 3.4969474423992*^9}, {
   3.4969475170053997`*^9, 3.4969475789918003`*^9}, {3.4969476280222*^9, 
   3.4969476673366003`*^9}, {3.4969477023826*^9, 3.4969477027386*^9}, {
   3.4969478020327997`*^9, 3.4969482304572*^9}, {3.4969485747472*^9, 
   3.4969486295304003`*^9}, {3.4969493116122*^9, 3.4969494035718*^9}, {
   3.4969494684784*^9, 3.4969496262925997`*^9}, {3.4969497290156*^9, 
   3.4969497896436*^9}, {3.4969506238936*^9, 3.4969506334358*^9}, {
   3.4969510675755997`*^9, 3.4969511823796*^9}, {3.4969512453338003`*^9, 
   3.4969512470786*^9}, {3.496951304575*^9, 3.4969513116912003`*^9}, {
   3.4969513986986*^9, 3.4969514308062*^9}, {3.496951522499*^9, 
   3.4969515526398*^9}, {3.4969600378316*^9, 3.4969600702948*^9}, {
   3.496960105916*^9, 3.4969601127194*^9}, {3.496960780362*^9, 
   3.49696082779*^9}, {3.496961250726*^9, 3.4969613011116*^9}, {
   3.4969723807974*^9, 3.4969723821219997`*^9}, {3.4969724404049997`*^9, 
   3.4969724678640003`*^9}, {3.496972694175*^9, 3.4969727050285997`*^9}, 
   3.4969729525848*^9, {3.4969730676236*^9, 3.4969730928052*^9}, {
   3.4969761175502*^9, 3.4969762074*^9}, {3.4969777520341997`*^9, 
   3.496977809507*^9}, {3.4969785507732*^9, 3.4969785567318*^9}, {
   3.4969800647406*^9, 3.496980131499*^9}, {3.4973819017668*^9, 
   3.4973819289518003`*^9}, {3.4973820086798*^9, 3.4973820137348003`*^9}, {
   3.4973821446038*^9, 3.4973821484158*^9}, {3.4973822696638002`*^9, 
   3.4973822698078003`*^9}, {3.4974165777608*^9, 3.4974165844588003`*^9}, {
   3.4974167075341997`*^9, 3.4974167233970003`*^9}, {3.497416800949*^9, 
   3.4974168247972*^9}, {3.4974168883442*^9, 3.4974169723492002`*^9}, 
   3.4974170210072002`*^9, {3.4974170833842*^9, 3.4974170841532*^9}, {
   3.4974172315271997`*^9, 3.4974172636162*^9}, {3.4974180433732*^9, 
   3.4974181262562*^9}, {3.4974182132702*^9, 3.4974182995132*^9}, {
   3.4974183325962*^9, 3.4974184597492*^9}, {3.4974193391782*^9, 
   3.4974193659372*^9}, {3.4974471600643997`*^9, 3.497447169066*^9}, {
   3.4974472433286*^9, 3.4974472453702*^9}, {3.4974476454154*^9, 
   3.497447664729*^9}, {3.497448157807*^9, 3.4974481949576*^9}, {
   3.4974482782958*^9, 3.4974483143898*^9}, {3.4974485057516003`*^9, 
   3.4974486271858*^9}, {3.4974486962158003`*^9, 3.4974487528496*^9}, {
   3.4974488753684*^9, 3.4974488871745996`*^9}, {3.4974501439254*^9, 
   3.4974502993794003`*^9}, {3.4974506378626003`*^9, 3.4974506458076*^9}, {
   3.4974508396833*^9, 3.4974508834007*^9}, {3.4974509856259003`*^9, 
   3.4974510451209*^9}, {3.4974526667655*^9, 3.4974526928663*^9}, {
   3.4974527787579*^9, 3.4974527794459*^9}, {3.4974528298129*^9, 
   3.4974528392969*^9}, {3.4974549935781*^9, 3.4974550308143*^9}, 
   3.4974551309713*^9, {3.4974552781063004`*^9, 3.4974552805483*^9}, {
   3.4974581312563*^9, 3.4974581499783*^9}, {3.4974581993353*^9, 
   3.4974582562393*^9}, {3.4974583123382998`*^9, 3.4974583528583*^9}, {
   3.4974590476403*^9, 3.4974590503733*^9}, {3.4974593363673*^9, 
   3.4974594042223*^9}, {3.4974594390032997`*^9, 3.4974594608712997`*^9}, {
   3.4974595714273*^9, 3.4974595755692997`*^9}, {3.4974598939353*^9, 
   3.4974599628323*^9}, {3.4974600709643*^9, 3.4974600973183002`*^9}, {
   3.4974602672303*^9, 3.4974602842853003`*^9}, {3.4974607461993*^9, 
   3.4974607542983*^9}, {3.4974607853473*^9, 3.4974607907903*^9}, {
   3.4974608826793003`*^9, 3.4974609309553003`*^9}, {3.4974609982643003`*^9, 
   3.4974609992532997`*^9}, {3.4974611704483*^9, 3.4974611781923*^9}, {
   3.4974613379182997`*^9, 3.4974613793413*^9}, {3.4974615527153*^9, 
   3.4974615839023*^9}, {3.4974639238463*^9, 3.4974639392323*^9}, {
   3.497466141434*^9, 3.497466146734*^9}, {3.49748145565*^9, 
   3.49748145841*^9}, {3.497481502567*^9, 3.497481517549*^9}, {
   3.4974815690620003`*^9, 3.497481649238*^9}, 3.4974817377799997`*^9, {
   3.4974818055699997`*^9, 3.497481833561*^9}, {3.4974823338380003`*^9, 
   3.497482336499*^9}, {3.4974823942799997`*^9, 3.49748240196*^9}, {
   3.4974825579519997`*^9, 3.497482575403*^9}, {3.497482645418*^9, 
   3.4974827140699997`*^9}, {3.497482759467*^9, 3.49748276842*^9}, {
   3.4974828023*^9, 3.4974828280179996`*^9}, {3.497482862778*^9, 
   3.497483080141*^9}, {3.498279985826*^9, 3.4982800459368*^9}, {
   3.4982805944783*^9, 3.4982807017897*^9}, {3.4982807538826*^9, 
   3.4982807799034*^9}, {3.4983199337021*^9, 3.4983200254321003`*^9}, 
   3.4983201983131*^9, {3.4983204242960997`*^9, 3.4983204291561003`*^9}, {
   3.4983208475071*^9, 3.4983208707040997`*^9}, {3.4983212604501*^9, 
   3.4983212905961*^9}, {3.4983215961951*^9, 3.4983216225931*^9}, {
   3.4983220791391*^9, 3.4983222568691*^9}, 3.4983224063161*^9, {
   3.4983229388150997`*^9, 3.4983229403880997`*^9}, {3.4983237517761*^9, 
   3.4983237521941*^9}, {3.4983238196341*^9, 3.4983238371171*^9}, {
   3.4983242994201*^9, 3.4983243520201*^9}, {3.4983244289311*^9, 
   3.4983244357551003`*^9}, {3.4983245230201*^9, 3.4983245609031*^9}, {
   3.4983245983921003`*^9, 3.4983246367191*^9}, {3.4983247624221*^9, 
   3.4983247829271*^9}, {3.4983248494681*^9, 3.4983248553321*^9}, {
   3.4983249131301003`*^9, 3.4983249211781*^9}, {3.4983251067571*^9, 
   3.4983251087841*^9}, {3.4983251539761*^9, 3.4983251569431*^9}, {
   3.4984517905726*^9, 3.4984518060146*^9}, {3.4984523359369*^9, 
   3.4984523672534*^9}, {3.4984524208052*^9, 3.4984524436378*^9}, {
   3.4984525199854*^9, 3.4984525718649*^9}, {3.4984527192548*^9, 
   3.4984527229146*^9}, {3.4984528760955*^9, 3.4984529723426*^9}, {
   3.498453010061*^9, 3.4984530404606*^9}, {3.4984530794372997`*^9, 
   3.4984530915923*^9}, {3.4984531230613003`*^9, 3.4984531573127003`*^9}, {
   3.4984532055834*^9, 3.4984534944993*^9}, 3.4984535465737*^9, {
   3.4984537613023*^9, 3.4984538305804*^9}, {3.4984542465787*^9, 
   3.4984542508084*^9}, {3.4984543523908*^9, 3.4984543537461*^9}, {
   3.4984545213726997`*^9, 3.4984545430334*^9}, {3.4984546245951*^9, 
   3.4984546479147997`*^9}, {3.4985144463266*^9, 3.4985145253806*^9}, {
   3.4985147592036*^9, 3.4985148210945997`*^9}, {3.4985149926946*^9, 
   3.4985150110036*^9}, {3.4985150448866*^9, 3.4985150527376003`*^9}, {
   3.4985151158536*^9, 3.4985151441756*^9}, {3.4985152267916*^9, 
   3.4985152385196*^9}, {3.4985153556956*^9, 3.4985153641146*^9}, 
   3.4985154888946*^9, {3.4985157539765997`*^9, 3.4985157652556*^9}, 
   3.4985159670116*^9, {3.4985161697726*^9, 3.4985162326256*^9}, {
   3.4985163400016003`*^9, 3.4985163451745996`*^9}, {3.4985165079625998`*^9, 
   3.4985165187676*^9}, {3.4985165517906*^9, 3.4985165898185997`*^9}, {
   3.4985167015316*^9, 3.4985168455816*^9}, {3.4985168887366*^9, 
   3.4985168911576*^9}, {3.4985178782296*^9, 3.4985178797296*^9}, {
   3.4985179346716003`*^9, 3.4985179729406*^9}, {3.4985208686556*^9, 
   3.4985208712176*^9}, {3.4985211075606003`*^9, 3.4985211137096*^9}, {
   3.4985211791286*^9, 3.4985211792546*^9}, {3.4985212110685997`*^9, 
   3.4985212127186003`*^9}, {3.4985212789116*^9, 3.4985212929146*^9}, {
   3.4985213279835997`*^9, 3.4985213407756*^9}, {3.4985214915425997`*^9, 
   3.4985214933506002`*^9}, {3.4985215249126*^9, 3.4985215297665997`*^9}, {
   3.4985221842125998`*^9, 3.4985222244166*^9}, {3.4985371892525997`*^9, 
   3.4985371932602*^9}, {3.4985372477545*^9, 3.4985372503093*^9}, {
   3.4985374357387*^9, 3.4985374396609*^9}, {3.4985378727562*^9, 
   3.4985378746904*^9}, 3.4985379600534*^9, {3.4985380899491997`*^9, 
   3.4985380995518*^9}, {3.49853822252*^9, 3.4985382326208*^9}, {
   3.4985384525565*^9, 3.4985384584476*^9}, {3.4985386157883997`*^9, 
   3.4985386176707*^9}, {3.4985387551570997`*^9, 3.4985387628092003`*^9}, {
   3.4985387986242*^9, 3.4985388012663*^9}, {3.4985393435731*^9, 
   3.4985393664228*^9}, {3.498539497115*^9, 3.4985395366057997`*^9}, 
   3.4985395773894*^9, {3.4985396122219*^9, 3.4985396192948*^9}, {
   3.4986230545214*^9, 3.4986231101274*^9}, {3.4986235162144003`*^9, 
   3.4986235244094*^9}, {3.4986236206414003`*^9, 3.4986236277724*^9}, {
   3.4986236624224*^9, 3.4986236670074*^9}, {3.4986237039994*^9, 
   3.4986237097654*^9}, {3.4986239644964*^9, 3.4986239651104*^9}, {
   3.4986240860044003`*^9, 3.4986240865824003`*^9}, {3.4986241341484003`*^9, 
   3.4986241533283997`*^9}, 3.4986241922693996`*^9, {3.4986242595824003`*^9, 
   3.4986242688024*^9}, 3.4986244782264*^9, 3.4986245651984*^9, {
   3.4986246100064*^9, 3.4986247417414*^9}, {3.4986247761334*^9, 
   3.4986247795534*^9}, {3.4986248347174*^9, 3.4986248452934*^9}, {
   3.4986248827674*^9, 3.4986248857953997`*^9}, {3.4986250496124*^9, 
   3.4986250695104*^9}, {3.498657821068*^9, 3.498657869349*^9}, {
   3.49865806101*^9, 3.4986581359849997`*^9}, 3.498658335769*^9, {
   3.4986584066879997`*^9, 3.4986584083310003`*^9}, {3.498658442863*^9, 
   3.498658443707*^9}, {3.498658530289*^9, 3.498658531367*^9}, {
   3.498658658483*^9, 3.498658673223*^9}, {3.498658823027*^9, 
   3.498658838115*^9}, {3.4986588848570004`*^9, 3.498658891295*^9}, {
   3.4986591720629997`*^9, 3.498659196559*^9}, {3.498659992742*^9, 
   3.498659996849*^9}, 3.4986600270480003`*^9, {3.4986600660290003`*^9, 
   3.498660148493*^9}, 3.498660572333*^9, {3.498661196737*^9, 
   3.498661223026*^9}, {3.498661270323*^9, 3.498661275403*^9}, {
   3.498661818402*^9, 3.498661834738*^9}, {3.4986619678129997`*^9, 
   3.498661969538*^9}, {3.4986620693120003`*^9, 3.498662107417*^9}, {
   3.498662215341*^9, 3.498662314727*^9}, {3.498662345874*^9, 
   3.498662371334*^9}, {3.498662732227*^9, 3.498662738572*^9}, {
   3.498662772977*^9, 3.498662786729*^9}, {3.498662952882*^9, 
   3.498662966617*^9}, {3.498663007087*^9, 3.498663009637*^9}, {
   3.498663075204*^9, 3.498663087392*^9}, {3.4986825557434998`*^9, 
   3.4986825701629*^9}, {3.4986826036475*^9, 3.4986826056165*^9}, 
   3.4986827083205*^9, 3.4986827425804996`*^9, {3.4986829743592997`*^9, 
   3.4986829797073*^9}, {3.4986830781805*^9, 3.4986831092747*^9}, {
   3.4986838504553003`*^9, 3.4986838616092997`*^9}, {3.4986839378592997`*^9, 
   3.4986839969055*^9}, {3.4986842296127996`*^9, 3.4986842395256*^9}, {
   3.4986963086479*^9, 3.4986963126549*^9}, {3.4986968985184*^9, 
   3.4986969054484*^9}, {3.4986978249540997`*^9, 3.4986978269651003`*^9}, {
   3.4987004745133*^9, 3.4987005194137*^9}, {3.4987005539885*^9, 
   3.4987006009758997`*^9}, {3.4987006696686*^9, 3.4987006779519997`*^9}, {
   3.4987017522873*^9, 3.4987017739143*^9}, {3.4987018113122997`*^9, 
   3.4987018184873*^9}, {3.4987018583522997`*^9, 3.4987018902473*^9}, 
   3.4987034584193*^9, 3.4987045573623*^9, {3.4987065988863*^9, 
   3.4987066822763*^9}, {3.4987069647483*^9, 3.4987069770283003`*^9}, {
   3.4987073707413*^9, 3.4987073909723*^9}, {3.4987075135473003`*^9, 
   3.4987075405323*^9}, {3.4987077948663*^9, 3.4987078322743*^9}, 
   3.4987102742633*^9, {3.4987103203863*^9, 3.4987103314363003`*^9}, {
   3.4987105283293*^9, 3.4987105317003*^9}, {3.4987105874493*^9, 
   3.4987106093893003`*^9}, 3.4987107303183002`*^9, 3.4987108054433002`*^9, {
   3.4987108596612997`*^9, 3.4987108665983*^9}, {3.4987112344163*^9, 
   3.4987112442103*^9}, {3.4987112795303*^9, 3.4987112929442997`*^9}, {
   3.4987113503183002`*^9, 3.4987113871293*^9}, 3.4987114316933002`*^9, {
   3.4987115364263*^9, 3.4987115648963003`*^9}, {3.4987118380263*^9, 
   3.4987118602663*^9}, {3.4987119374953003`*^9, 3.4987120176473*^9}, {
   3.4987120679302998`*^9, 3.4987120790502996`*^9}, {3.4987123636603003`*^9, 
   3.4987123651422997`*^9}, 3.4987128654803*^9, {3.4987129168192997`*^9, 
   3.4987129966523*^9}, {3.4987130401253*^9, 3.4987131896173*^9}, {
   3.4987133023293*^9, 3.4987133782333*^9}, {3.4987134242193003`*^9, 
   3.4987135116043*^9}, {3.4987136552213*^9, 3.4987136974372997`*^9}, {
   3.4987137603013*^9, 3.4987137869873*^9}, {3.4987141348343*^9, 
   3.4987141676313*^9}, {3.4987142285362997`*^9, 3.4987142404493*^9}, {
   3.4987143104543*^9, 3.4987143212932997`*^9}, {3.4987143756133003`*^9, 
   3.4987143789343*^9}, {3.4987144287253*^9, 3.4987144310513*^9}, {
   3.4987146953093*^9, 3.4987147056493*^9}, {3.4989678993388*^9, 
   3.4989679028838*^9}, {3.4989682402146*^9, 3.4989682590986*^9}, {
   3.4989683040084*^9, 3.4989683134178*^9}, {3.4989683734866*^9, 
   3.498968383014*^9}, {3.4989684241647997`*^9, 3.498968433376*^9}, {
   3.498968577479*^9, 3.4989685808780003`*^9}, {3.4989686365726*^9, 
   3.498968714297*^9}, {3.4989687629764*^9, 3.498968794738*^9}, {
   3.4989694442178*^9, 3.498969451519*^9}, {3.498969494248*^9, 
   3.4989695134918003`*^9}, {3.4989698410696*^9, 3.4989698672352*^9}, {
   3.4989698987980003`*^9, 3.4989699545178003`*^9}, {3.4989701157622004`*^9, 
   3.4989701297139997`*^9}, {3.4989701892542*^9, 3.4989701974063997`*^9}, {
   3.4989702938638*^9, 3.4989703072918*^9}, {3.4989703495036*^9, 
   3.4989703522656*^9}, {3.4989704162256002`*^9, 3.4989704271854*^9}, {
   3.4989705770573997`*^9, 3.4989705881642*^9}, {3.4989706785864*^9, 
   3.4989706827394*^9}, {3.4989708166521997`*^9, 3.4989708331666*^9}, {
   3.4989711724955997`*^9, 3.49897119337*^9}, {3.4989715226438*^9, 
   3.4989715247548*^9}, {3.4989716949024*^9, 3.4989717574994*^9}, {
   3.4989720033286*^9, 3.4989720053596*^9}, {3.4989720894144*^9, 
   3.4989721114396*^9}, {3.4989721569351997`*^9, 3.4989722010552*^9}, 
   3.4989722332468*^9, {3.4989723199820004`*^9, 3.4989723531506*^9}, {
   3.498972393399*^9, 3.4989724982236*^9}, {3.498972729245*^9, 
   3.498972732135*^9}, {3.4990387288016*^9, 3.4990387452036*^9}, {
   3.4990387776896*^9, 3.4990387808426*^9}, {3.4990388156916*^9, 
   3.4990388173286*^9}, {3.4990388524516*^9, 3.4990388873686*^9}, {
   3.4990392679746*^9, 3.4990392791126003`*^9}, 3.4990410821982*^9, 
   3.4990411674472*^9, {3.4991030689505997`*^9, 3.4991030857616*^9}, {
   3.4991031301556*^9, 3.4991031566966*^9}, {3.4991031869996*^9, 
   3.4991032402265997`*^9}, {3.4991033154666*^9, 3.4991033354526*^9}, {
   3.4991034309245996`*^9, 3.4991034745436*^9}, {3.4991035145766*^9, 
   3.4991035822776003`*^9}, {3.4991036275186*^9, 3.4991036766146*^9}, {
   3.4991038466956*^9, 3.4991038514216003`*^9}, {3.4991039594726*^9, 
   3.4991039618836*^9}, {3.499127585717*^9, 3.499127588605*^9}, {
   3.499127753119*^9, 3.499127753565*^9}, {3.499127812887*^9, 
   3.499127814653*^9}, {3.499127996424*^9, 3.499128005561*^9}, {
   3.499128048422*^9, 3.499128055571*^9}, {3.4991280895559998`*^9, 
   3.4991280913389997`*^9}, {3.499128192866*^9, 3.499128227012*^9}, 
   3.4991433042766*^9, {3.4991925088780003`*^9, 3.499192589842*^9}, {
   3.499192655301*^9, 3.499192830251*^9}, {3.4991928930179996`*^9, 
   3.4991929560699997`*^9}, {3.499193483517*^9, 3.499193500926*^9}, {
   3.499193544119*^9, 3.4991935563190002`*^9}, {3.4991939526870003`*^9, 
   3.499193974644*^9}, {3.499194686664*^9, 3.499194715229*^9}, {
   3.499194762026*^9, 3.499194774165*^9}, {3.4991948879119997`*^9, 
   3.499194914782*^9}, {3.499194952623*^9, 3.4991950132060003`*^9}, {
   3.499195147176*^9, 3.499195258299*^9}, {3.499195366012*^9, 
   3.499195368092*^9}, {3.499195494005*^9, 3.4991954974049997`*^9}, {
   3.499195671941*^9, 3.499195675337*^9}, {3.499195794078*^9, 
   3.499195807138*^9}, {3.49919585188*^9, 3.499195858736*^9}, {
   3.4991968769519997`*^9, 3.499196877509*^9}, {3.499196978455*^9, 
   3.499196996829*^9}, {3.499197144968*^9, 3.499197217203*^9}, {
   3.499197254619*^9, 3.4991972694119997`*^9}, {3.499197381957*^9, 
   3.4991974114189997`*^9}, {3.4991980161610003`*^9, 3.499198144453*^9}, {
   3.499198395061*^9, 3.4991984102799997`*^9}, {3.499199012656*^9, 
   3.499199123343*^9}, {3.499199376446*^9, 3.499199410606*^9}, {
   3.4992045309931*^9, 3.4992045412887*^9}, {3.499266793257324*^9, 
   3.4992668033817244`*^9}, {3.499266965902524*^9, 3.4992669785385237`*^9}, {
   3.499267868924124*^9, 3.499267888798524*^9}, {3.4992680962005243`*^9, 
   3.499268156946924*^9}, {3.499268986757724*^9, 3.4992689969133244`*^9}, 
   3.499272284028224*^9, {3.499272365625224*^9, 3.499272384403224*^9}, {
   3.499307897578*^9, 3.4993079530875998`*^9}, {3.499307984974*^9, 
   3.4993080306576*^9}, {3.4993083419816*^9, 3.4993084031205997`*^9}, {
   3.4993089529926*^9, 3.4993089683156*^9}, {3.4993499708767*^9, 
   3.4993500323787003`*^9}, {3.4993502683167*^9, 3.4993502705227003`*^9}, {
   3.4997491965297003`*^9, 3.4997491982087*^9}, {3.4997493484697*^9, 
   3.4997493608097*^9}, {3.4997498986417*^9, 3.4997499007476997`*^9}, {
   3.5014521151996*^9, 3.501452174514*^9}, {3.5033565691313*^9, 
   3.5033566501193*^9}, {3.5033597413953*^9, 3.5033597424302998`*^9}, {
   3.5033597896863003`*^9, 3.5033597909163*^9}, {3.5033598488723*^9, 
   3.5033598676703*^9}, {3.5033599436503*^9, 3.5033599650733*^9}, {
   3.5033600306623*^9, 3.5033600541752996`*^9}, {3.5036938597096*^9, 
   3.5036939032186003`*^9}, {3.5036940393746*^9, 3.5036940510996*^9}, {
   3.5036941015106*^9, 3.5036943496226*^9}, {3.5036945827206*^9, 
   3.5036946231616*^9}, {3.5036946581066*^9, 3.5036946654666*^9}, {
   3.5036946955136003`*^9, 3.5036947034826*^9}, {3.5036947436376*^9, 
   3.5036947448876*^9}, {3.5036947896036*^9, 3.5036947956806*^9}, {
   3.5036948334556*^9, 3.5036948359796*^9}, {3.5036989841196003`*^9, 
   3.5036989956696*^9}, {3.5036990590566*^9, 3.5036991338306*^9}, {
   3.5036993336716003`*^9, 3.5036993531745996`*^9}, {3.5037882892408*^9, 
   3.5037883100238*^9}, {3.5037883455388002`*^9, 3.5037883491018*^9}, {
   3.5037883907268*^9, 3.5037883990528*^9}, {3.5037884456848*^9, 
   3.5037884495137997`*^9}, {3.5037885870768003`*^9, 
   3.5037885905248003`*^9}, {3.5037886259038*^9, 3.5037886286968*^9}, {
   3.5037886889118*^9, 3.5037886957538*^9}, {3.5037887436298*^9, 
   3.5037887451048*^9}, {3.5037891212118*^9, 3.5037891365838003`*^9}, {
   3.5037897255748*^9, 3.5037897374618*^9}, {3.5037898571468*^9, 
   3.5037899150368*^9}, {3.5037899728098*^9, 3.5037900194228*^9}, {
   3.5037900939877996`*^9, 3.5037901036898003`*^9}, {3.5037902617567997`*^9, 
   3.5037902835278*^9}, {3.5037903342108*^9, 3.5037903908148003`*^9}, {
   3.5037904427408*^9, 3.5037904597967997`*^9}, {3.5037910307468*^9, 
   3.5037910909398003`*^9}, {3.5037911549488*^9, 3.5037911703487997`*^9}, {
   3.5037913399088*^9, 3.5037913420888*^9}, {3.5037914239217997`*^9, 
   3.5037914341317997`*^9}, {3.5037914664748*^9, 3.5037914668648*^9}, {
   3.5037915252808*^9, 3.5037915260397997`*^9}, {3.5037916233438*^9, 
   3.5037916238198*^9}, {3.504567165458*^9, 3.5045671698059998`*^9}, {
   3.5045674686359997`*^9, 3.5045674771549997`*^9}, {3.504567695184*^9, 
   3.504567770934*^9}, {3.504568004142*^9, 3.504568006256*^9}, {
   3.50456817291*^9, 3.504568173498*^9}, {3.504568204972*^9, 
   3.504568205325*^9}, 3.504568247716*^9, 3.504568321976*^9, {
   3.5045683684049997`*^9, 3.5045683691730003`*^9}, {3.504568553668*^9, 
   3.5045685704820004`*^9}, {3.5046485506244*^9, 3.5046485736851997`*^9}, {
   3.5046486358442*^9, 3.5046486757052*^9}, {3.504648710067*^9, 
   3.5046487384902*^9}, {3.5046489486823997`*^9, 3.5046489799186*^9}, {
   3.504649095264*^9, 3.5046491082392*^9}, {3.504649367825*^9, 
   3.5046493789212*^9}, {3.5046494567024*^9, 3.5046494576944*^9}, {
   3.505688545172*^9, 3.5056885479119997`*^9}, {3.5058483941512003`*^9, 
   3.5058485463562*^9}, 3.5058485829402*^9, {3.5058492728042*^9, 
   3.5058492911932*^9}, {3.5058499085282*^9, 3.5058499935912*^9}, {
   3.5058503278422003`*^9, 3.5058503288182*^9}, {3.5058508072832003`*^9, 
   3.5058508086582003`*^9}, {3.5058510967102003`*^9, 3.5058511050462*^9}, 
   3.5058511868132*^9, {3.5058512817212*^9, 3.5058512821782*^9}, {
   3.5058514092152*^9, 3.5058514107682*^9}, {3.5058517449351997`*^9, 
   3.5058517682952003`*^9}, {3.5058519372441998`*^9, 3.5058519378462*^9}, {
   3.5088174578199997`*^9, 3.50881748495*^9}, {3.508817852117*^9, 
   3.5088178578859997`*^9}, {3.508818083742*^9, 3.5088181014*^9}, {
   3.508818153248*^9, 3.5088182264*^9}, {3.508818306135*^9, 
   3.508818309527*^9}, {3.508818633343*^9, 3.508818670725*^9}, {
   3.508818780359*^9, 3.508818863776*^9}, {3.508818914256*^9, 
   3.508818979325*^9}, {3.508819083277*^9, 3.508819111233*^9}, {
   3.5088192050290003`*^9, 3.508819206528*^9}, {3.50881925926*^9, 
   3.508819259801*^9}, {3.508821415836*^9, 3.508821426028*^9}, {
   3.508821470109*^9, 3.5088215569309998`*^9}, {3.508821628533*^9, 
   3.508821641618*^9}, {3.508821671674*^9, 3.508821728954*^9}, {
   3.508821775922*^9, 3.508821776738*^9}, {3.508821853736*^9, 
   3.5088218545810003`*^9}, 3.508821887785*^9, {3.508906014933*^9, 
   3.508906035494*^9}, {3.508906245087*^9, 3.5089062454709997`*^9}, {
   3.508906290065*^9, 3.508906290335*^9}, {3.508906374182*^9, 
   3.508906380958*^9}, {3.5089064237349997`*^9, 3.508906493697*^9}, {
   3.508906569241*^9, 3.5089065863970003`*^9}, {3.508906682035*^9, 
   3.508906696742*^9}, {3.508906806288*^9, 3.508906819458*^9}, {
   3.508906917584*^9, 3.5089069951800003`*^9}, {3.5089070984700003`*^9, 
   3.508907114118*^9}, {3.508907287824*^9, 3.508907289243*^9}, {
   3.508907343767*^9, 3.508907392001*^9}, {3.50890753519*^9, 
   3.5089075609630003`*^9}, {3.508907989389*^9, 3.508908024328*^9}, {
   3.5089080719189997`*^9, 3.508908072507*^9}, {3.508908598115*^9, 
   3.508908600082*^9}, {3.508942248988*^9, 3.508942250046*^9}, {
   3.508942280164*^9, 3.5089423275620003`*^9}, {3.5089424072980003`*^9, 
   3.508942409027*^9}, 3.508942441149*^9, {3.508942493885*^9, 
   3.5089424982980003`*^9}, {3.50894327198*^9, 3.508943325942*^9}, {
   3.508987417593*^9, 3.508987417851*^9}, {3.508988520276*^9, 
   3.508988524855*^9}, {3.508988565259*^9, 3.5089885700889997`*^9}, {
   3.5097516912720003`*^9, 3.509751731469*^9}, 3.5097519012530003`*^9, {
   3.509758283402*^9, 3.509758315829*^9}, {3.515349246901*^9, 
   3.515349247543*^9}, {3.515349401351*^9, 3.5153494089300003`*^9}, {
   3.515349530391*^9, 3.5153495363710003`*^9}, {3.563978378324*^9, 
   3.5639783842320004`*^9}}],

Cell[BoxData[" "], "Input",
 Editable->False,
 Selectable->False,
 CellFrame->{{0, 0}, {0, 2}},
 ShowCellBracket->False,
 CellMargins->{{0, 0}, {1, 1}},
 CellElementSpacings->{"CellMinHeight"->1},
 CellFrameMargins->0,
 CellFrameColor->RGBColor[0, 0, 1],
 CellSize->{Inherited, 4},
 CellChangeTimes->{3.509751901258*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell["Manipulate Model", "Subtitle",
 CellChangeTimes->{{3.508908555203*^9, 3.508908557091*^9}, {
   3.5089883210480003`*^9, 3.508988322109*^9}, {3.508988370954*^9, 
   3.508988401979*^9}, {3.508988683302*^9, 3.508988687818*^9}, 
   3.509751901258*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", 
  RowBox[{"{", 
   RowBox[{
   "\[Phi]ab", ",", " ", "\[Theta]ab", ",", " ", "\[Phi]sh", ",", " ", 
    "\[Phi]shr", ",", " ", "\[Theta]shr", ",", " ", "\[Phi]ebr", ",", " ", 
    "\[Theta]ebr", ",", " ", "\[Phi]shl", ",", " ", "\[Theta]shl", ",", " ", 
    "\[Phi]ebl", ",", " ", "\[Theta]ebl", ",", " ", "\[Phi]hir", ",", " ", 
    "\[Theta]hir", ",", " ", "\[Phi]knr", ",", " ", "\[Theta]knr", ",", " ", 
    "\[Phi]anr", ",", " ", "\[Phi]hil", ",", " ", "\[Theta]hil", ",", " ", 
    "\[Phi]knl", ",", " ", "\[Theta]knl", ",", " ", "\[Phi]anl", ",", " ", 
    "\[Phi]", ",", " ", "\[Theta]", ",", " ", "\[Psi]", ",", " ", "h"}], 
   "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.563976977401*^9, 3.563976980124*^9}}],

Cell[BoxData["25"], "Output",
 CellChangeTimes->{3.563976980461*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\n", " ", 
  RowBox[{
   RowBox[{"frame", "[", 
    RowBox[{
     RowBox[{"bodycoordinates", "[", 
      RowBox[{"{", 
       RowBox[{
       "\[Phi]ab", ",", " ", "\[Theta]ab", ",", " ", "\[Phi]sh", ",", " ", 
        "\[Phi]shr", ",", " ", "\[Theta]shr", ",", " ", "\[Phi]ebr", ",", " ",
         "\[Theta]ebr", ",", " ", "\[Phi]shl", ",", " ", "\[Theta]shl", ",", 
        " ", "\[Phi]ebl", ",", " ", "\[Theta]ebl", ",", " ", "\[Phi]hir", ",",
         " ", "\[Theta]hir", ",", " ", "\[Phi]knr", ",", " ", "\[Theta]knr", 
        ",", " ", "\[Phi]anr", ",", " ", "\[Phi]hil", ",", " ", "\[Theta]hil",
         ",", " ", "\[Phi]knl", ",", " ", "\[Theta]knl", ",", " ", 
        "\[Phi]anl", ",", " ", "\[Phi]", ",", " ", "\[Theta]", ",", " ", 
        "\[Psi]", ",", " ", "h"}], "}"}], "]"}], ",", " ", "v"}], "]"}], ",", 
   "\n", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\[Phi]ab", ",", " ", "0"}], "}"}], ",", " ", 
     RowBox[{"-", "\[Pi]"}], ",", " ", "\[Pi]"}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\[Theta]ab", ",", "0"}], "}"}], ",", 
     RowBox[{"-", "\[Pi]"}], ",", "\[Pi]"}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\[Phi]sh", ",", "0"}], "}"}], ",", 
     RowBox[{"-", "\[Pi]"}], ",", "\[Pi]"}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"\[Phi]shr", ",", " ", ".001", ",", " ", 
     RowBox[{"2", " ", "\[Pi]"}]}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"\[Theta]shr", ",", " ", "0", ",", " ", 
     RowBox[{"2", " ", "\[Pi]"}]}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"\[Phi]ebr", ",", " ", "0", ",", " ", 
     RowBox[{"2", " ", "\[Pi]"}]}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"\[Theta]ebr", ",", " ", "0", ",", " ", 
     RowBox[{"2", " ", "\[Pi]"}]}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"\[Phi]shl", ",", " ", ".001", ",", " ", 
     RowBox[{"2", " ", "\[Pi]"}]}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"\[Theta]shl", ",", " ", "0", ",", " ", 
     RowBox[{"2", " ", "\[Pi]"}]}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"\[Phi]ebl", ",", " ", "0", ",", " ", 
     RowBox[{"2", " ", "\[Pi]"}]}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"\[Theta]ebl", ",", " ", "0", ",", " ", 
     RowBox[{"2", " ", "\[Pi]"}]}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"\[Phi]hir", ",", " ", ".001", ",", " ", 
     RowBox[{"2", " ", "\[Pi]"}]}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"\[Theta]hir", ",", " ", "0", ",", " ", 
     RowBox[{"2", " ", "\[Pi]"}]}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"\[Phi]knr", ",", " ", "0", ",", " ", "\[Pi]"}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"\[Theta]knr", ",", " ", "0", ",", " ", 
     RowBox[{"2", " ", "\[Pi]"}]}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\[Phi]anr", ",", " ", "0"}], "}"}], ",", " ", 
     RowBox[{
      RowBox[{"-", "\[Pi]"}], "/", "2"}], ",", " ", 
     RowBox[{"\[Pi]", "/", "2"}]}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"\[Phi]hil", ",", " ", ".001", ",", " ", 
     RowBox[{"2", " ", "\[Pi]"}]}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"\[Theta]hil", ",", " ", "0", ",", " ", 
     RowBox[{"2", " ", "\[Pi]"}]}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"\[Phi]knl", ",", " ", "0", ",", " ", "\[Pi]"}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"\[Theta]knl", ",", " ", "0", ",", " ", 
     RowBox[{"2", " ", "\[Pi]"}]}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\[Phi]anl", ",", " ", "0"}], "}"}], ",", " ", 
     RowBox[{
      RowBox[{"-", "\[Pi]"}], "/", "2"}], ",", " ", 
     RowBox[{"\[Pi]", "/", "2"}]}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"\[Phi]", ",", " ", "0", ",", " ", 
     RowBox[{"2", " ", "\[Pi]"}]}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"\[Theta]", ",", " ", "0", ",", " ", 
     RowBox[{"2", " ", "\[Pi]"}]}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"\[Psi]", ",", " ", "0", ",", " ", 
     RowBox[{"2", " ", "\[Pi]"}]}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"h", ",", " ", "0", ",", " ", "50"}], "}"}], ",", "\n", " ", 
   RowBox[{"{", 
    RowBox[{"v", ",", " ", "0", ",", " ", 
     RowBox[{"2", " ", "\[Pi]"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.4973823784927998`*^9, {3.4973824214588003`*^9, 3.4973824224388*^9}, {
   3.4974186875032*^9, 3.4974187113132*^9}, {3.4974187550072002`*^9, 
   3.4974187646762*^9}, {3.4974188422382*^9, 3.4974188423862*^9}, 
   3.4974189382732*^9, 3.4974193117841997`*^9, {3.4974193832282*^9, 
   3.4974194105212*^9}, {3.4974472950052*^9, 3.497447321349*^9}, {
   3.4974503661566*^9, 3.4974504010072002`*^9}, {3.4974504603529997`*^9, 
   3.497450463362*^9}, 3.4974620397293*^9, {3.4974620714833*^9, 
   3.4974623678522997`*^9}, {3.4974624476063004`*^9, 3.4974625990793*^9}, {
   3.4974626489512997`*^9, 3.4974626726483*^9}, {3.497465543486*^9, 
   3.4974655645810003`*^9}, {3.4974670937939997`*^9, 3.49746709751*^9}, {
   3.497481873073*^9, 3.497482123586*^9}, {3.497482168352*^9, 
   3.49748217051*^9}, {3.4984519268106003`*^9, 3.4984519363756*^9}, {
   3.4984535774252*^9, 3.4984536060948*^9}, {3.4984536883316*^9, 
   3.4984536917053003`*^9}, {3.4984537441633997`*^9, 
   3.4984537448283997`*^9}, {3.4984538718648*^9, 3.498453915619*^9}, {
   3.4984539536612*^9, 3.4984539947352*^9}, {3.498454026322*^9, 
   3.4984541377717*^9}, {3.4985156694686003`*^9, 3.4985156799656*^9}, {
   3.4985160310006*^9, 3.4985160347486*^9}, {3.4985169645006*^9, 
   3.4985170333956003`*^9}, {3.4985170637686*^9, 3.4985171329726*^9}, {
   3.4985207739326*^9, 3.4985208311456003`*^9}, {3.4985211138596*^9, 
   3.4985211138996*^9}, {3.4985212129926*^9, 3.4985212130586*^9}, {
   3.498659936558*^9, 3.498659960208*^9}, {3.4987024531583*^9, 
   3.4987024684363003`*^9}, {3.4987028492313004`*^9, 3.4987028591903*^9}, {
   3.4987028903553*^9, 3.4987029046703*^9}, {3.4987029657073*^9, 
   3.4987029855423*^9}, {3.4987031831682997`*^9, 3.4987032057012997`*^9}, {
   3.4987045758843*^9, 3.4987045796263*^9}, 3.4987046563073*^9, {
   3.4987046890083*^9, 3.4987047208712997`*^9}, {3.4987062600053*^9, 
   3.4987062623043003`*^9}, {3.4987068755172997`*^9, 3.4987068809203*^9}, {
   3.4987070572342997`*^9, 3.4987070644873*^9}, {3.4987073606913*^9, 
   3.4987073626743*^9}, {3.4987116236223*^9, 3.4987116248163*^9}, {
   3.4987121061153*^9, 3.4987121072803*^9}, {3.4987137997943*^9, 
   3.4987138071883*^9}, {3.4987138742453003`*^9, 3.4987138787983*^9}, {
   3.4987139452462997`*^9, 3.4987139566163*^9}, {3.4987140207363*^9, 
   3.4987140358493*^9}, {3.4989700029758*^9, 3.4989700300402*^9}, {
   3.4989701621823997`*^9, 3.4989701641334*^9}, {3.499126758568*^9, 
   3.499126759256*^9}, {3.4991268914189997`*^9, 3.499126891722*^9}, {
   3.499126932975*^9, 3.499126975811*^9}, {3.499127018781*^9, 
   3.4991270250959997`*^9}, {3.499127057718*^9, 3.499127058224*^9}, {
   3.499127090275*^9, 3.499127090976*^9}, {3.499127124894*^9, 
   3.499127141848*^9}, {3.499127226822*^9, 3.4991272320810003`*^9}, {
   3.4991281119700003`*^9, 3.499128129883*^9}, {3.4991281829700003`*^9, 
   3.499128188733*^9}, {3.4991936281549997`*^9, 3.4991936533599997`*^9}, {
   3.499193687486*^9, 3.49919371976*^9}, {3.4991939921470003`*^9, 
   3.499194021816*^9}, {3.4991961287349997`*^9, 3.499196162824*^9}, {
   3.499196925516*^9, 3.499196935657*^9}, {3.499199219828*^9, 
   3.4991992275699997`*^9}, {3.4991993096400003`*^9, 3.49919933892*^9}, {
   3.499267004840124*^9, 3.499267027569324*^9}, {3.499268196820524*^9, 
   3.499268249954124*^9}, {3.4993502420087*^9, 3.4993502432476997`*^9}, 
   3.5037888290137997`*^9, {3.5058499993992*^9, 3.5058500576022*^9}, {
   3.5058503761102*^9, 3.5058503762032003`*^9}, {3.5058511114231997`*^9, 
   3.5058511144252*^9}, {3.5058518414072*^9, 3.5058518440732*^9}, {
   3.5058518765582*^9, 3.5058518826172*^9}, {3.508818109799*^9, 
   3.508818113383*^9}, {3.508818258718*^9, 3.5088182589370003`*^9}, {
   3.508819385432*^9, 3.508819385866*^9}, {3.50881941849*^9, 
   3.5088194438970003`*^9}, {3.508988596343*^9, 3.508988615943*^9}, 
   3.509751901266*^9}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`h$$ = 0., $CellContext`v$$ = 
    1.809557368467721, $CellContext`\[Theta]$$ = 
    1.9100883333825942`, $CellContext`\[Theta]ab$$ = -0.2387610416728243, \
$CellContext`\[Theta]ebl$$ = 0, $CellContext`\[Theta]ebr$$ = 
    3.4054864364913358`, $CellContext`\[Theta]hil$$ = 
    4.9637163926718735`, $CellContext`\[Theta]hir$$ = 
    0., $CellContext`\[Theta]knl$$ = 0., $CellContext`\[Theta]knr$$ = 
    0., $CellContext`\[Theta]shl$$ = 
    3.3049554715764624`, $CellContext`\[Theta]shr$$ = 
    3.7699111843077517`, $CellContext`\[Phi]$$ = 
    6.283185307179586, $CellContext`\[Phi]ab$$ = 
    0.025132741228718558`, $CellContext`\[Phi]anl$$ = 
    0.7476990515543709, $CellContext`\[Phi]anr$$ = -0.46495571273128944`, \
$CellContext`\[Phi]ebl$$ = 0, $CellContext`\[Phi]ebr$$ = 
    2.8023006470020957`, $CellContext`\[Phi]hil$$ = 
    0.001, $CellContext`\[Phi]hir$$ = 0.001, $CellContext`\[Phi]knl$$ = 
    0., $CellContext`\[Phi]knr$$ = 
    0., $CellContext`\[Phi]sh$$ = -0.3769911184307755, \
$CellContext`\[Phi]shl$$ = 0.001, $CellContext`\[Phi]shr$$ = 
    0.001, $CellContext`\[Psi]$$ = 0., Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`\[Phi]ab$$], 0}, -Pi, Pi}, {{
       Hold[$CellContext`\[Theta]ab$$], 0}, -Pi, Pi}, {{
       Hold[$CellContext`\[Phi]sh$$], 0}, -Pi, Pi}, {
      Hold[$CellContext`\[Phi]shr$$], 0.001, 2 Pi}, {
      Hold[$CellContext`\[Theta]shr$$], 0, 2 Pi}, {
      Hold[$CellContext`\[Phi]ebr$$], 0, 2 Pi}, {
      Hold[$CellContext`\[Theta]ebr$$], 0, 2 Pi}, {
      Hold[$CellContext`\[Phi]shl$$], 0.001, 2 Pi}, {
      Hold[$CellContext`\[Theta]shl$$], 0, 2 Pi}, {
      Hold[$CellContext`\[Phi]ebl$$], 0, 2 Pi}, {
      Hold[$CellContext`\[Theta]ebl$$], 0, 2 Pi}, {
      Hold[$CellContext`\[Phi]hir$$], 0.001, 2 Pi}, {
      Hold[$CellContext`\[Theta]hir$$], 0, 2 Pi}, {
      Hold[$CellContext`\[Phi]knr$$], 0, Pi}, {
      Hold[$CellContext`\[Theta]knr$$], 0, 2 Pi}, {{
       Hold[$CellContext`\[Phi]anr$$], 0}, Rational[-1, 2] Pi, Rational[1, 2] 
      Pi}, {
      Hold[$CellContext`\[Phi]hil$$], 0.001, 2 Pi}, {
      Hold[$CellContext`\[Theta]hil$$], 0, 2 Pi}, {
      Hold[$CellContext`\[Phi]knl$$], 0, Pi}, {
      Hold[$CellContext`\[Theta]knl$$], 0, 2 Pi}, {{
       Hold[$CellContext`\[Phi]anl$$], 0}, Rational[-1, 2] Pi, Rational[1, 2] 
      Pi}, {
      Hold[$CellContext`\[Phi]$$], 0, 2 Pi}, {
      Hold[$CellContext`\[Theta]$$], 0, 2 Pi}, {
      Hold[$CellContext`\[Psi]$$], 0, 2 Pi}, {
      Hold[$CellContext`h$$], 0, 50}, {
      Hold[$CellContext`v$$], 0, 2 Pi}}, Typeset`size$$ = {
    700., {348., 352.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`\[Phi]ab$29426$$ = 
    0, $CellContext`\[Theta]ab$29427$$ = 0, $CellContext`\[Phi]sh$29428$$ = 
    0, $CellContext`\[Phi]shr$29429$$ = 0, $CellContext`\[Theta]shr$29430$$ = 
    0, $CellContext`\[Phi]ebr$29431$$ = 0, $CellContext`\[Theta]ebr$29432$$ = 
    0, $CellContext`\[Phi]shl$29433$$ = 0, $CellContext`\[Theta]shl$29434$$ = 
    0, $CellContext`\[Phi]ebl$29435$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`h$$ = 0, $CellContext`v$$ = 
        0, $CellContext`\[Theta]$$ = 0, $CellContext`\[Theta]ab$$ = 
        0, $CellContext`\[Theta]ebl$$ = 0, $CellContext`\[Theta]ebr$$ = 
        0, $CellContext`\[Theta]hil$$ = 0, $CellContext`\[Theta]hir$$ = 
        0, $CellContext`\[Theta]knl$$ = 0, $CellContext`\[Theta]knr$$ = 
        0, $CellContext`\[Theta]shl$$ = 0, $CellContext`\[Theta]shr$$ = 
        0, $CellContext`\[Phi]$$ = 0, $CellContext`\[Phi]ab$$ = 
        0, $CellContext`\[Phi]anl$$ = 0, $CellContext`\[Phi]anr$$ = 
        0, $CellContext`\[Phi]ebl$$ = 0, $CellContext`\[Phi]ebr$$ = 
        0, $CellContext`\[Phi]hil$$ = 0.001, $CellContext`\[Phi]hir$$ = 
        0.001, $CellContext`\[Phi]knl$$ = 0, $CellContext`\[Phi]knr$$ = 
        0, $CellContext`\[Phi]sh$$ = 0, $CellContext`\[Phi]shl$$ = 
        0.001, $CellContext`\[Phi]shr$$ = 0.001, $CellContext`\[Psi]$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`\[Phi]ab$$, $CellContext`\[Phi]ab$29426$$, 0], 
        Hold[$CellContext`\[Theta]ab$$, $CellContext`\[Theta]ab$29427$$, 0], 
        Hold[$CellContext`\[Phi]sh$$, $CellContext`\[Phi]sh$29428$$, 0], 
        Hold[$CellContext`\[Phi]shr$$, $CellContext`\[Phi]shr$29429$$, 0], 
        Hold[$CellContext`\[Theta]shr$$, $CellContext`\[Theta]shr$29430$$, 0], 
        Hold[$CellContext`\[Phi]ebr$$, $CellContext`\[Phi]ebr$29431$$, 0], 
        Hold[$CellContext`\[Theta]ebr$$, $CellContext`\[Theta]ebr$29432$$, 0], 
        Hold[$CellContext`\[Phi]shl$$, $CellContext`\[Phi]shl$29433$$, 0], 
        Hold[$CellContext`\[Theta]shl$$, $CellContext`\[Theta]shl$29434$$, 0], 
        Hold[$CellContext`\[Phi]ebl$$, $CellContext`\[Phi]ebl$29435$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> $CellContext`frame[
        $CellContext`bodycoordinates[{$CellContext`\[Phi]ab$$, $CellContext`\
\[Theta]ab$$, $CellContext`\[Phi]sh$$, $CellContext`\[Phi]shr$$, \
$CellContext`\[Theta]shr$$, $CellContext`\[Phi]ebr$$, \
$CellContext`\[Theta]ebr$$, $CellContext`\[Phi]shl$$, \
$CellContext`\[Theta]shl$$, $CellContext`\[Phi]ebl$$, \
$CellContext`\[Theta]ebl$$, $CellContext`\[Phi]hir$$, \
$CellContext`\[Theta]hir$$, $CellContext`\[Phi]knr$$, \
$CellContext`\[Theta]knr$$, $CellContext`\[Phi]anr$$, \
$CellContext`\[Phi]hil$$, $CellContext`\[Theta]hil$$, \
$CellContext`\[Phi]knl$$, $CellContext`\[Theta]knl$$, \
$CellContext`\[Phi]anl$$, $CellContext`\[Phi]$$, $CellContext`\[Theta]$$, \
$CellContext`\[Psi]$$, $CellContext`h$$}], $CellContext`v$$], 
      "Specifications" :> {{{$CellContext`\[Phi]ab$$, 0}, -Pi, 
         Pi}, {{$CellContext`\[Theta]ab$$, 0}, -Pi, 
         Pi}, {{$CellContext`\[Phi]sh$$, 0}, -Pi, 
         Pi}, {$CellContext`\[Phi]shr$$, 0.001, 2 
         Pi}, {$CellContext`\[Theta]shr$$, 0, 2 
         Pi}, {$CellContext`\[Phi]ebr$$, 0, 2 
         Pi}, {$CellContext`\[Theta]ebr$$, 0, 2 
         Pi}, {$CellContext`\[Phi]shl$$, 0.001, 2 
         Pi}, {$CellContext`\[Theta]shl$$, 0, 2 
         Pi}, {$CellContext`\[Phi]ebl$$, 0, 2 
         Pi}, {$CellContext`\[Theta]ebl$$, 0, 2 
         Pi}, {$CellContext`\[Phi]hir$$, 0.001, 2 
         Pi}, {$CellContext`\[Theta]hir$$, 0, 2 
         Pi}, {$CellContext`\[Phi]knr$$, 0, Pi}, {$CellContext`\[Theta]knr$$, 
         0, 2 Pi}, {{$CellContext`\[Phi]anr$$, 0}, Rational[-1, 2] Pi, 
         Rational[1, 2] Pi}, {$CellContext`\[Phi]hil$$, 0.001, 2 
         Pi}, {$CellContext`\[Theta]hil$$, 0, 2 
         Pi}, {$CellContext`\[Phi]knl$$, 0, Pi}, {$CellContext`\[Theta]knl$$, 
         0, 2 Pi}, {{$CellContext`\[Phi]anl$$, 0}, Rational[-1, 2] Pi, 
         Rational[1, 2] Pi}, {$CellContext`\[Phi]$$, 0, 2 
         Pi}, {$CellContext`\[Theta]$$, 0, 2 Pi}, {$CellContext`\[Psi]$$, 0, 
         2 Pi}, {$CellContext`h$$, 0, 50}, {$CellContext`v$$, 0, 2 Pi}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{996., {379., 384.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{3.508988619201*^9, 3.509751902157*^9, 3.515349132355*^9, 
  3.5153491736540003`*^9, 3.5153493011140003`*^9}]
}, Open  ]],

Cell[BoxData[" "], "Input",
 Editable->False,
 Selectable->False,
 CellFrame->{{0, 0}, {0, 2}},
 ShowCellBracket->False,
 CellMargins->{{0, 0}, {1, 1}},
 CellElementSpacings->{"CellMinHeight"->1},
 CellFrameMargins->0,
 CellFrameColor->RGBColor[0, 0, 1],
 CellSize->{Inherited, 4},
 CellChangeTimes->{3.509751902157*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell["Animation Lists", "Subtitle",
 CellChangeTimes->{{3.5089083170369997`*^9, 3.508908326001*^9}, 
   3.509751902157*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"(*", "\[Phi]ab", "*)"}], 
  RowBox[{
   RowBox[{"{", "0", "}"}], ",", 
   RowBox[{"(*", "\[Theta]ab", "*)"}], 
   RowBox[{"{", "0", "}"}], ",", 
   RowBox[{"(*", "\[Phi]sh", "*)"}], 
   RowBox[{"{", "0", "}"}], ",", 
   RowBox[{"(*", 
    RowBox[{"\[Phi]shr", ",", "\[Theta]shr"}], "*)"}], 
   RowBox[{"{", "0", "}"}], ",", " ", 
   RowBox[{"{", "0", "}"}], ",", 
   RowBox[{"(*", 
    RowBox[{"\[Phi]ebr", ",", "\[Theta]ebr"}], "*)"}], 
   RowBox[{"{", "0", "}"}], ",", " ", 
   RowBox[{"{", "0", "}"}], ",", 
   RowBox[{"(*", 
    RowBox[{"\[Phi]shl", ",", "\[Theta]shl"}], "*)"}], 
   RowBox[{"{", "0", "}"}], ",", " ", 
   RowBox[{"{", "0", "}"}], ",", 
   RowBox[{"(*", 
    RowBox[{"\[Phi]ebl", ",", "\[Theta]ebl"}], "*)"}], 
   RowBox[{"{", "0", "}"}], ",", " ", 
   RowBox[{"{", "0", "}"}], ",", 
   RowBox[{"(*", 
    RowBox[{"\[Phi]hir", ",", "\[Theta]hir"}], "*)"}], 
   RowBox[{"{", "0", "}"}], ",", " ", 
   RowBox[{"{", "0", "}"}], ",", 
   RowBox[{"(*", 
    RowBox[{"\[Phi]knr", ",", "\[Theta]knr"}], "*)"}], 
   RowBox[{"{", "0", "}"}], ",", " ", 
   RowBox[{"{", "0", "}"}], ",", 
   RowBox[{"(*", "\[Phi]anr", "*)"}], 
   RowBox[{"{", "0", "}"}], ",", 
   RowBox[{"(*", 
    RowBox[{"\[Phi]hil", ",", "\[Theta]hil"}], "*)"}], 
   RowBox[{"{", "0", "}"}], ",", " ", 
   RowBox[{"{", "0", "}"}], ",", 
   RowBox[{"(*", 
    RowBox[{"\[Phi]knl", ",", "\[Theta]knl"}], "*)"}], 
   RowBox[{"{", "0", "}"}], ",", " ", 
   RowBox[{"{", "0", "}"}], ",", 
   RowBox[{"(*", "\[Phi]anl", "*)"}], 
   RowBox[{"{", "0", "}"}], ",", 
   RowBox[{"(*", "\[Phi]", "*)"}], 
   RowBox[{"{", "0", "}"}], ",", 
   RowBox[{"(*", "\[Theta]", "*)"}], 
   RowBox[{"{", "0", "}"}], ",", 
   RowBox[{"(*", "\[Psi]", "*)"}], 
   RowBox[{"{", "0", "}"}], ",", 
   RowBox[{"(*", "h", "*)"}], 
   RowBox[{"{", "0", "}"}]}], "}"}]], "Input",
 CellChangeTimes->{{3.499267538516124*^9, 3.499267618200924*^9}, {
   3.4992676504149237`*^9, 3.499267788584124*^9}, {3.499268444392524*^9, 
   3.499268676692124*^9}, {3.5019808810032*^9, 3.5019809312574*^9}, 
   3.509751902159*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"backbend", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"(*", "\[Phi]ab", "*)"}], 
    RowBox[{
     RowBox[{
      RowBox[{"-", "3"}], " ", 
      RowBox[{"\[Pi]", "/", "16"}]}], ",", 
     RowBox[{"(*", "\[Theta]ab", "*)"}], "0", ",", 
     RowBox[{"(*", "\[Phi]sh", "*)"}], "0", ",", 
     RowBox[{"(*", 
      RowBox[{"\[Phi]shr", ",", "\[Theta]shr"}], "*)"}], "\[Pi]", ",", " ", 
     "0", ",", 
     RowBox[{"(*", 
      RowBox[{"\[Phi]ebr", ",", "\[Theta]ebr"}], "*)"}], "0", ",", " ", "0", 
     ",", 
     RowBox[{"(*", 
      RowBox[{"\[Phi]shl", ",", "\[Theta]shl"}], "*)"}], "\[Pi]", ",", " ", 
     "0", ",", 
     RowBox[{"(*", 
      RowBox[{"\[Phi]ebl", ",", "\[Theta]ebl"}], "*)"}], "0", ",", " ", "0", 
     ",", 
     RowBox[{"(*", 
      RowBox[{"\[Phi]hir", ",", "\[Theta]hir"}], "*)"}], 
     RowBox[{
      RowBox[{"-", "\[Pi]"}], "/", "12"}], ",", " ", "0", ",", 
     RowBox[{"(*", 
      RowBox[{"\[Phi]knr", ",", "\[Theta]knr"}], "*)"}], 
     RowBox[{"\[Pi]", "/", "2"}], ",", " ", 
     RowBox[{"\[Pi]", "/", "6"}], ",", 
     RowBox[{"(*", "\[Phi]anr", "*)"}], "0", ",", 
     RowBox[{"(*", 
      RowBox[{"\[Phi]hil", ",", "\[Theta]hil"}], "*)"}], 
     RowBox[{
      RowBox[{"-", "\[Pi]"}], "/", "12"}], ",", " ", 
     RowBox[{"\[Pi]", "/", "6"}], ",", 
     RowBox[{"(*", 
      RowBox[{"\[Phi]knl", ",", "\[Theta]knl"}], "*)"}], 
     RowBox[{"\[Pi]", "/", "2"}], ",", " ", "0", ",", 
     RowBox[{"(*", "\[Phi]anl", "*)"}], "0", ",", 
     RowBox[{"(*", "\[Phi]", "*)"}], 
     RowBox[{
      RowBox[{"-", "\[Pi]"}], "/", "2"}], ",", 
     RowBox[{"(*", "\[Theta]", "*)"}], "0", ",", 
     RowBox[{"(*", "\[Psi]", "*)"}], "0", ",", 
     RowBox[{"(*", "h", "*)"}], "0"}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.499266855314124*^9, 3.499266938852124*^9}, {
   3.499267293767724*^9, 3.4992673387113237`*^9}, {3.499267397195724*^9, 
   3.499267422810924*^9}, {3.499267454525724*^9, 3.499267472621724*^9}, {
   3.499268693259324*^9, 3.499268714709324*^9}, {3.499268753756124*^9, 
   3.4992688926429243`*^9}, {3.499268930316924*^9, 3.499268941236924*^9}, {
   3.4993084824206*^9, 3.4993085005526*^9}, {3.4993088022886*^9, 
   3.4993088328016*^9}, {3.4993489790903997`*^9, 3.4993491257177*^9}, {
   3.4993491599677*^9, 3.4993492043617*^9}, {3.4993500736327*^9, 
   3.4993500753547*^9}, {3.5014681098904*^9, 3.5014681108943996`*^9}, {
   3.508908462401*^9, 3.50890846256*^9}, 3.50975190216*^9, {3.563977349373*^9,
    3.563977351021*^9}, {3.5639774934630003`*^9, 3.5639774959379997`*^9}, 
   3.5639775268780003`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"jumpingjack", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"(*", "\[Phi]ab", "*)"}], 
    RowBox[{
     RowBox[{"{", "0", "}"}], ",", 
     RowBox[{"(*", "\[Theta]ab", "*)"}], 
     RowBox[{"{", "0", "}"}], ",", 
     RowBox[{"(*", "\[Phi]sh", "*)"}], 
     RowBox[{"{", "0", "}"}], ",", "\n", "   ", 
     RowBox[{"(*", 
      RowBox[{"\[Phi]shr", ",", "\[Theta]shr"}], "*)"}], 
     RowBox[{"{", 
      RowBox[{"ntable", "[", 
       RowBox[{
        RowBox[{"{", "}"}], ",", " ", "0", ",", " ", 
        RowBox[{"120", "*", "2.", " ", 
         RowBox[{"\[Pi]", "/", "360."}]}], ",", " ", "20"}], "]"}], "}"}], 
     ",", "\n", "   ", 
     RowBox[{"{", 
      RowBox[{"\[Pi]", "/", "2."}], "}"}], ",", "\n", "   ", 
     RowBox[{"(*", 
      RowBox[{"\[Phi]ebr", ",", "\[Theta]ebr"}], "*)"}], 
     RowBox[{"{", 
      RowBox[{"ntable", "[", 
       RowBox[{
        RowBox[{"{", "}"}], ",", " ", "0", ",", " ", 
        RowBox[{"5", " ", 
         RowBox[{"\[Pi]", "/", "8."}]}], ",", " ", "20"}], "]"}], "}"}], ",", 
     "\n", "   ", 
     RowBox[{"{", "0", "}"}], ",", "\n", "   ", 
     RowBox[{"(*", 
      RowBox[{"\[Phi]shl", ",", "\[Theta]shl"}], "*)"}], 
     RowBox[{"{", 
      RowBox[{"ntable", "[", 
       RowBox[{
        RowBox[{"{", "}"}], ",", " ", "0", ",", " ", 
        RowBox[{"120", "*", "2.", " ", 
         RowBox[{"\[Pi]", "/", "360."}]}], ",", " ", "20"}], "]"}], "}"}], 
     ",", "\n", "   ", 
     RowBox[{"{", 
      RowBox[{"\[Pi]", "/", "2."}], "}"}], ",", "\n", "   ", 
     RowBox[{"(*", 
      RowBox[{"\[Phi]ebl", ",", "\[Theta]ebl"}], "*)"}], 
     RowBox[{"{", 
      RowBox[{"ntable", "[", 
       RowBox[{
        RowBox[{"{", "}"}], ",", " ", "0", ",", " ", 
        RowBox[{"5", " ", 
         RowBox[{"\[Pi]", "/", "8."}]}], ",", " ", "20"}], "]"}], "}"}], ",", 
     "\n", "   ", 
     RowBox[{"{", "0", "}"}], ",", "\n", "   ", 
     RowBox[{"(*", 
      RowBox[{"\[Phi]hir", ",", "\[Theta]hir"}], "*)"}], 
     RowBox[{"{", 
      RowBox[{"ntable", "[", 
       RowBox[{
        RowBox[{"{", "}"}], ",", " ", "0.", ",", " ", "0.3", ",", " ", "20"}],
        "]"}], "}"}], ",", "\n", "   ", 
     RowBox[{"{", 
      RowBox[{"\[Pi]", "/", "2."}], "}"}], ",", "\n", "   ", 
     RowBox[{"(*", 
      RowBox[{"\[Phi]knr", ",", "\[Theta]knr"}], "*)"}], 
     RowBox[{"{", "0", "}"}], ",", "\n", "   ", 
     RowBox[{"{", 
      RowBox[{"\[Pi]", "/", "2."}], "}"}], ",", "\n", "   ", 
     RowBox[{"(*", "\[Phi]anr", "*)"}], 
     RowBox[{"{", "0", "}"}], ",", "\n", "   ", 
     RowBox[{"(*", 
      RowBox[{"\[Phi]hil", ",", "\[Theta]hil"}], "*)"}], 
     RowBox[{"{", 
      RowBox[{"ntable", "[", 
       RowBox[{
        RowBox[{"{", "}"}], ",", " ", "0.", ",", " ", "0.3", ",", " ", "20"}],
        "]"}], "}"}], ",", "\n", "   ", 
     RowBox[{"{", 
      RowBox[{"\[Pi]", "/", "2."}], "}"}], ",", "\n", "   ", 
     RowBox[{"(*", 
      RowBox[{"\[Phi]knl", ",", "\[Theta]knl"}], "*)"}], 
     RowBox[{"{", "0", "}"}], ",", "\n", "   ", 
     RowBox[{"{", 
      RowBox[{"\[Pi]", "/", "2."}], "}"}], ",", "\n", "   ", 
     RowBox[{"(*", "\[Phi]anl", "*)"}], 
     RowBox[{"{", "0", "}"}], ",", "\n", "   ", 
     RowBox[{"(*", "\[Phi]", "*)"}], 
     RowBox[{"{", "0", "}"}], ",", 
     RowBox[{"(*", "\[Theta]", "*)"}], 
     RowBox[{"{", "0", "}"}], ",", 
     RowBox[{"(*", "\[Psi]", "*)"}], 
     RowBox[{"{", "0", "}"}], ",", 
     RowBox[{"(*", "h", "*)"}], 
     RowBox[{"{", "0", "}"}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.5014681268993998`*^9, 3.5014681295084*^9}, {
   3.5014682472862*^9, 3.5014682759764*^9}, {3.5014685346624002`*^9, 
   3.5014685536314*^9}, {3.5014686451029997`*^9, 3.5014686640165997`*^9}, {
   3.5014687072320004`*^9, 3.5014687595222*^9}, {3.5014688497567997`*^9, 
   3.5014688712181997`*^9}, {3.5014689033908*^9, 3.5014689088087997`*^9}, {
   3.5014697648288*^9, 3.5014698156028*^9}, {3.5014701321658*^9, 
   3.5014701372806*^9}, {3.501470400067*^9, 3.5014704422256002`*^9}, {
   3.5019817151066*^9, 3.501981749715*^9}, {3.5019819819174*^9, 
   3.5019819945902*^9}, 3.5019829168504*^9, {3.5019830339262*^9, 
   3.5019830705816*^9}, {3.501983121741*^9, 3.5019831366754*^9}, {
   3.5019831788966*^9, 3.501983200619*^9}, {3.5019834125464*^9, 
   3.5019834338378*^9}, 3.5051776797802*^9, 3.5097519021619997`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Slow", " ", "Mo", " ", "running", " ", 
     RowBox[{"video", ":", 
      RowBox[{"http", ":"}]}]}], "//", 
    RowBox[{
     RowBox[{"vimeo", ".", "com"}], "/", "2974573"}]}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"run1", "=", 
    RowBox[{"{", 
     RowBox[{"(*", "\[Phi]ab", "*)"}], 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\[Pi]", "/", "18"}], "}"}], ",", 
      RowBox[{"(*", "\[Theta]ab", "*)"}], 
      RowBox[{"{", "0", "}"}], ",", 
      RowBox[{"(*", "\[Phi]sh", "*)"}], 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"ntable", "[", 
         RowBox[{
          RowBox[{"{", "}"}], ",", 
          RowBox[{"\[Pi]", "/", "6."}], ",", 
          RowBox[{
           RowBox[{"-", "\[Pi]"}], "/", "6."}], ",", "16"}], "]"}], "~", 
        "Join", "~", 
        RowBox[{"ntable", "[", 
         RowBox[{
          RowBox[{"{", "}"}], ",", 
          RowBox[{
           RowBox[{"-", "\[Pi]"}], "/", "6."}], ",", 
          RowBox[{"\[Pi]", "/", "6."}], ",", "16"}], "]"}]}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{"\[Phi]shr", ",", "\[Theta]shr"}], "*)"}], 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"ntable", "[", 
         RowBox[{
          RowBox[{"{", "}"}], ",", 
          RowBox[{"\[Pi]", "/", "18."}], ",", 
          RowBox[{
           RowBox[{"-", "8"}], 
           RowBox[{"\[Pi]", "/", "18."}]}], ",", "16"}], "]"}], "~", "Join", 
        "~", 
        RowBox[{"ntable", "[", 
         RowBox[{
          RowBox[{"{", "}"}], ",", 
          RowBox[{
           RowBox[{"-", "8"}], 
           RowBox[{"\[Pi]", "/", "18."}]}], ",", 
          RowBox[{"\[Pi]", "/", "18."}], ",", "16"}], "]"}]}], "}"}], ",", 
      " ", 
      RowBox[{"{", "0", "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{"\[Phi]ebr", ",", "\[Theta]ebr"}], "*)"}], 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"ntable", "[", 
         RowBox[{
          RowBox[{"{", "}"}], ",", 
          RowBox[{"7", 
           RowBox[{"\[Pi]", "/", "8."}]}], ",", 
          RowBox[{
           RowBox[{"-", "8"}], 
           RowBox[{"\[Pi]", "/", "18."}]}], ",", "16"}], "]"}], "~", "Join", 
        "~", 
        RowBox[{"ntable", "[", 
         RowBox[{
          RowBox[{"{", "}"}], ",", 
          RowBox[{
           RowBox[{"-", "8"}], 
           RowBox[{"\[Pi]", "/", "18."}]}], ",", 
          RowBox[{"\[Pi]", "/", "18."}], ",", "16"}], "]"}]}], "}"}], ",", 
      " ", 
      RowBox[{"{", "0", "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{"\[Phi]shl", ",", "\[Theta]shl"}], "*)"}], 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"ntable", "[", 
         RowBox[{
          RowBox[{"{", "}"}], ",", 
          RowBox[{
           RowBox[{"-", "\[Pi]"}], "/", "4."}], ",", 
          RowBox[{"\[Pi]", "/", "4."}], ",", "16"}], "]"}], "~", "Join", "~", 
        RowBox[{"ntable", "[", 
         RowBox[{
          RowBox[{"{", "}"}], ",", 
          RowBox[{"\[Pi]", "/", "4."}], ",", 
          RowBox[{
           RowBox[{"-", "\[Pi]"}], "/", "4."}], ",", "16"}], "]"}]}], "}"}], 
      ",", " ", 
      RowBox[{"{", "0", "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{"\[Phi]ebl", ",", "\[Theta]ebl"}], "*)"}], 
      RowBox[{"{", 
       RowBox[{"\[Pi]", "/", "2."}], "}"}], ",", " ", 
      RowBox[{"{", "0", "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{"\[Phi]hir", ",", "\[Theta]hir"}], "*)"}], 
      RowBox[{"{", "0", "}"}], ",", " ", 
      RowBox[{"{", "0", "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{"\[Phi]knr", ",", "\[Theta]knr"}], "*)"}], 
      RowBox[{"{", "0", "}"}], ",", " ", 
      RowBox[{"{", "0", "}"}], ",", 
      RowBox[{"(*", "\[Phi]anr", "*)"}], 
      RowBox[{"{", "0", "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{"\[Phi]hil", ",", "\[Theta]hil"}], "*)"}], 
      RowBox[{"{", "0", "}"}], ",", " ", 
      RowBox[{"{", "0", "}"}], ",", 
      RowBox[{"(*", 
       RowBox[{"\[Phi]knl", ",", "\[Theta]knl"}], "*)"}], 
      RowBox[{"{", "0", "}"}], ",", " ", 
      RowBox[{"{", "0", "}"}], ",", 
      RowBox[{"(*", "\[Phi]anl", "*)"}], 
      RowBox[{"{", "0", "}"}], ",", 
      RowBox[{"(*", "\[Phi]", "*)"}], 
      RowBox[{"{", "0", "}"}], ",", 
      RowBox[{"(*", "\[Theta]", "*)"}], 
      RowBox[{"{", "0", "}"}], ",", 
      RowBox[{"(*", "\[Psi]", "*)"}], 
      RowBox[{"{", "0", "}"}], ",", 
      RowBox[{"(*", "h", "*)"}], 
      RowBox[{"{", "0", "}"}]}], "}"}]}], ";"}]}]], "Input",
 CellChangeTimes->{{3.5089878633529997`*^9, 3.508987924539*^9}, 
   3.5089881240039997`*^9, {3.508988246734*^9, 3.5089882958529997`*^9}, {
   3.50898870696*^9, 3.50898871941*^9}, {3.50898877896*^9, 
   3.508988799766*^9}, {3.508988864575*^9, 3.508988956118*^9}, {
   3.508990004369*^9, 3.508990053492*^9}, {3.508990142054*^9, 
   3.508990143645*^9}, 3.509751902165*^9, {3.509758565935*^9, 
   3.509758566651*^9}, 3.517934783758*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"55", " ", "Frames"}], "*)"}], 
  RowBox[{
   RowBox[{
    RowBox[{"backflip", " ", "=", " ", 
     RowBox[{"{", 
      RowBox[{"(*", "\[Phi]ab", "*)"}], 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"Join", "[", 
         RowBox[{
          RowBox[{"ntable", "[", 
           RowBox[{
            RowBox[{"{", "}"}], ",", " ", "0", ",", " ", 
            RowBox[{"20", "*", "2.", " ", 
             RowBox[{"\[Pi]", "/", "360."}]}], ",", " ", "16"}], "]"}], ",", 
          " ", 
          RowBox[{"ntable", "[", 
           RowBox[{
            RowBox[{"{", "}"}], ",", " ", 
            RowBox[{"20", "*", "2.", " ", 
             RowBox[{"\[Pi]", "/", "360."}]}], ",", " ", 
            RowBox[{
             RowBox[{"-", "\[Pi]"}], "/", "24."}], ",", " ", "11"}], "]"}], 
          ",", "\n", "     ", 
          RowBox[{"ntable", "[", 
           RowBox[{
            RowBox[{"{", "}"}], ",", " ", 
            RowBox[{
             RowBox[{"-", "\[Pi]"}], "/", "24."}], ",", " ", 
            RowBox[{
             RowBox[{"-", "\[Pi]"}], "/", "16"}], ",", " ", "4"}], "]"}], ",",
           " ", 
          RowBox[{"ntable", "[", 
           RowBox[{
            RowBox[{"{", "}"}], ",", " ", 
            RowBox[{
             RowBox[{"-", "\[Pi]"}], "/", "16."}], ",", " ", 
            RowBox[{"\[Pi]", "/", "15"}], ",", " ", "6"}], "]"}], ",", " ", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"\[Pi]", "/", "15."}], ",", " ", 
            RowBox[{"{", 
             RowBox[{"i", ",", " ", "1", ",", " ", "10"}], "}"}]}], "]"}], 
          ",", " ", 
          RowBox[{"ntable", "[", 
           RowBox[{
            RowBox[{"{", "}"}], ",", " ", 
            RowBox[{"\[Pi]", "/", "15."}], ",", " ", 
            RowBox[{"\[Pi]", "/", "3"}], ",", " ", "4"}], "]"}], ",", " ", 
          RowBox[{"ntable", "[", 
           RowBox[{
            RowBox[{"{", "}"}], ",", " ", 
            RowBox[{"\[Pi]", "/", "6."}], ",", " ", 
            RowBox[{"\[Pi]", "/", "20."}], ",", " ", "4"}], "]"}]}], "]"}], 
        "}"}], ",", "\n", "   ", 
       RowBox[{"(*", "\[Theta]ab", "*)"}], 
       RowBox[{"{", "0", "}"}], ",", 
       RowBox[{"(*", "\[Phi]sh", "*)"}], 
       RowBox[{"{", "0", "}"}], ",", "\n", "   ", 
       RowBox[{"(*", 
        RowBox[{"\[Phi]shr", ",", "\[Theta]shr"}], "*)"}], 
       RowBox[{"{", 
        RowBox[{"Join", "[", 
         RowBox[{
          RowBox[{"ntable", "[", 
           RowBox[{
            RowBox[{"{", "}"}], ",", " ", "\[Pi]", ",", " ", 
            RowBox[{
             RowBox[{"-", "\[Pi]"}], "/", "2."}], ",", " ", "16"}], "]"}], 
          ",", " ", 
          RowBox[{"ntable", "[", 
           RowBox[{
            RowBox[{"{", "}"}], ",", " ", 
            RowBox[{
             RowBox[{"-", "\[Pi]"}], "/", "2."}], ",", " ", 
            RowBox[{"13", " ", 
             RowBox[{"\[Pi]", "/", "12."}]}], ",", " ", "11"}], "]"}], ",", 
          " ", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"13", " ", 
             RowBox[{"\[Pi]", "/", "12."}]}], ",", " ", 
            RowBox[{"{", 
             RowBox[{"i", ",", " ", "1", ",", " ", "4"}], "}"}]}], "]"}], ",",
           " ", 
          RowBox[{"ntable", "[", 
           RowBox[{
            RowBox[{"{", "}"}], ",", " ", 
            RowBox[{"13", " ", 
             RowBox[{"\[Pi]", "/", "12."}]}], ",", " ", 
            RowBox[{"\[Pi]", "/", "6."}], ",", " ", "6"}], "]"}], ",", " ", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"\[Pi]", "/", "6."}], ",", " ", 
            RowBox[{"{", 
             RowBox[{"i", ",", " ", "1", ",", " ", "10"}], "}"}]}], "]"}], 
          ",", " ", 
          RowBox[{"ntable", "[", 
           RowBox[{
            RowBox[{"{", "}"}], ",", " ", 
            RowBox[{"\[Pi]", "/", "6."}], ",", " ", 
            RowBox[{"\[Pi]", "/", "2."}], ",", " ", "4"}], "]"}], ",", " ", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"\[Pi]", "/", "2."}], ",", " ", 
            RowBox[{"{", 
             RowBox[{"i", ",", " ", "1", ",", " ", "4"}], "}"}]}], "]"}]}], 
         "]"}], "}"}], ",", "\n", "   ", 
       RowBox[{"{", "0", "}"}], ",", "\n", "   ", 
       RowBox[{"(*", 
        RowBox[{"\[Phi]ebr", ",", "\[Theta]ebr"}], "*)"}], 
       RowBox[{"{", "0", "}"}], ",", "\n", "   ", 
       RowBox[{"{", "0", "}"}], ",", "\n", "   ", 
       RowBox[{"(*", 
        RowBox[{"\[Phi]shl", ",", "\[Theta]shl"}], "*)"}], 
       RowBox[{"{", 
        RowBox[{"Join", "[", 
         RowBox[{
          RowBox[{"ntable", "[", 
           RowBox[{
            RowBox[{"{", "}"}], ",", " ", "\[Pi]", ",", " ", 
            RowBox[{
             RowBox[{"-", "\[Pi]"}], "/", "2."}], ",", " ", "16"}], "]"}], 
          ",", " ", 
          RowBox[{"ntable", "[", 
           RowBox[{
            RowBox[{"{", "}"}], ",", " ", 
            RowBox[{
             RowBox[{"-", "\[Pi]"}], "/", "2."}], ",", " ", 
            RowBox[{"13", " ", 
             RowBox[{"\[Pi]", "/", "12."}]}], ",", " ", "11"}], "]"}], ",", 
          " ", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"13", " ", 
             RowBox[{"\[Pi]", "/", "12."}]}], ",", " ", 
            RowBox[{"{", 
             RowBox[{"i", ",", " ", "1", ",", " ", "4"}], "}"}]}], "]"}], ",",
           " ", 
          RowBox[{"ntable", "[", 
           RowBox[{
            RowBox[{"{", "}"}], ",", " ", 
            RowBox[{"13", " ", 
             RowBox[{"\[Pi]", "/", "12."}]}], ",", " ", 
            RowBox[{"\[Pi]", "/", "6."}], ",", " ", "6"}], "]"}], ",", " ", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"\[Pi]", "/", "6."}], ",", " ", 
            RowBox[{"{", 
             RowBox[{"i", ",", " ", "1", ",", " ", "10"}], "}"}]}], "]"}], 
          ",", " ", 
          RowBox[{"ntable", "[", 
           RowBox[{
            RowBox[{"{", "}"}], ",", " ", 
            RowBox[{"\[Pi]", "/", "6."}], ",", " ", 
            RowBox[{"\[Pi]", "/", "2."}], ",", " ", "4"}], "]"}], ",", " ", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"\[Pi]", "/", "2."}], ",", " ", 
            RowBox[{"{", 
             RowBox[{"i", ",", " ", "1", ",", " ", "4"}], "}"}]}], "]"}]}], 
         "]"}], "}"}], ",", "\n", "   ", 
       RowBox[{"{", "0", "}"}], ",", "\n", "   ", 
       RowBox[{"(*", 
        RowBox[{"\[Phi]ebl", ",", "\[Theta]ebl"}], "*)"}], 
       RowBox[{"{", "0", "}"}], ",", "\n", "   ", 
       RowBox[{"{", "0", "}"}], ",", "\n", "   ", 
       RowBox[{"(*", 
        RowBox[{"\[Phi]hir", ",", "\[Theta]hir"}], "*)"}], 
       RowBox[{"{", 
        RowBox[{"Join", "[", 
         RowBox[{
          RowBox[{"ntable", "[", 
           RowBox[{
            RowBox[{"{", "}"}], ",", " ", "0.", ",", " ", 
            RowBox[{"\[Pi]", "/", "4."}], ",", " ", "16"}], "]"}], ",", " ", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"\[Pi]", "/", "4"}], ",", " ", 
            RowBox[{"{", 
             RowBox[{"i", ",", " ", "1", ",", " ", "5"}], "}"}]}], "]"}], ",",
           " ", 
          RowBox[{"ntable", "[", 
           RowBox[{
            RowBox[{"{", "}"}], ",", " ", 
            RowBox[{"\[Pi]", "/", "4."}], ",", " ", "0.", ",", " ", "6"}], 
           "]"}], ",", " ", 
          RowBox[{"ntable", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", " ", "1", ",", " ", "0", ",", " ", "2"}], 
             "}"}], ",", " ", "0", ",", " ", 
            RowBox[{"\[Pi]", "/", "1.3"}], ",", " ", "10"}], "]"}], ",", " ", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"\[Pi]", "/", "1.3"}], ",", " ", 
            RowBox[{"{", 
             RowBox[{"i", ",", " ", "1", ",", " ", "10"}], "}"}]}], "]"}], 
          ",", " ", 
          RowBox[{"ntable", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"1", ",", " ", ".5", ",", " ", "0"}], "}"}], ",", " ", 
            RowBox[{"\[Pi]", "/", "1.3"}], ",", " ", 
            RowBox[{"\[Pi]", "/", "6."}], ",", " ", "4"}], "]"}], ",", " ", 
          RowBox[{"ntable", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", " ", "0", ",", " ", "1"}], "}"}], ",", " ", 
            RowBox[{"\[Pi]", "/", "6."}], ",", " ", 
            RowBox[{"2", " ", 
             RowBox[{"\[Pi]", "/", "6."}]}], ",", " ", "4"}], "]"}]}], "]"}], 
        "}"}], ",", "\n", "   ", 
       RowBox[{"{", "0", "}"}], ",", "\n", "   ", 
       RowBox[{"(*", 
        RowBox[{"\[Phi]knr", ",", "\[Theta]knr"}], "*)"}], 
       RowBox[{"{", 
        RowBox[{"Join", "[", 
         RowBox[{
          RowBox[{"ntable", "[", 
           RowBox[{
            RowBox[{"{", "}"}], ",", " ", "0.", ",", " ", 
            RowBox[{"\[Pi]", "/", "4."}], ",", " ", "16"}], "]"}], ",", " ", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"\[Pi]", "/", "4"}], ",", " ", 
            RowBox[{"{", 
             RowBox[{"i", ",", " ", "1", ",", " ", "5"}], "}"}]}], "]"}], ",",
           " ", 
          RowBox[{"ntable", "[", 
           RowBox[{
            RowBox[{"{", "}"}], ",", " ", 
            RowBox[{"\[Pi]", "/", "4."}], ",", " ", "0.", ",", " ", "6"}], 
           "]"}], ",", " ", 
          RowBox[{"Table", "[", 
           RowBox[{"0", ",", " ", 
            RowBox[{"{", 
             RowBox[{"i", ",", " ", "1", ",", " ", "4"}], "}"}]}], "]"}], ",",
           " ", 
          RowBox[{"ntable", "[", 
           RowBox[{
            RowBox[{"{", "}"}], ",", " ", "0", ",", " ", "2.3", ",", " ", 
            "6"}], "]"}], ",", " ", 
          RowBox[{"Table", "[", 
           RowBox[{"2.3", ",", " ", 
            RowBox[{"{", 
             RowBox[{"i", ",", " ", "1", ",", " ", "10"}], "}"}]}], "]"}], 
          ",", " ", 
          RowBox[{"ntable", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"1", ",", " ", ".5", ",", " ", "0"}], "}"}], ",", " ", 
            "2.3", ",", " ", 
            RowBox[{"\[Pi]", "/", "6."}], ",", " ", "4"}], "]"}], ",", " ", 
          RowBox[{"ntable", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", " ", "0", ",", " ", "1"}], "}"}], ",", " ", 
            RowBox[{"\[Pi]", "/", "6."}], ",", " ", 
            RowBox[{"2", " ", 
             RowBox[{"\[Pi]", "/", "6."}]}], ",", " ", "4"}], "]"}]}], "]"}], 
        "}"}], ",", "\n", "   ", 
       RowBox[{"{", "0", "}"}], ",", "\n", "   ", 
       RowBox[{"(*", "\[Phi]anr", "*)"}], 
       RowBox[{"{", 
        RowBox[{"Join", "[", 
         RowBox[{
          RowBox[{"ntable", "[", 
           RowBox[{
            RowBox[{"{", "}"}], ",", " ", 
            RowBox[{"\[Pi]", "/", "3."}], ",", " ", 
            RowBox[{"\[Pi]", "/", "24."}], ",", " ", "8"}], "]"}], ",", " ", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"\[Pi]", "/", "24."}], ",", " ", 
            RowBox[{"{", 
             RowBox[{"i", ",", " ", "1", ",", " ", "8"}], "}"}]}], "]"}], ",",
           " ", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"\[Pi]", "/", "24"}], ",", " ", 
            RowBox[{"{", 
             RowBox[{"i", ",", " ", "1", ",", " ", "5"}], "}"}]}], "]"}], ",",
           " ", 
          RowBox[{"ntable", "[", 
           RowBox[{
            RowBox[{"{", "}"}], ",", " ", 
            RowBox[{"\[Pi]", "/", "24."}], ",", " ", 
            RowBox[{"2", " ", 
             RowBox[{"\[Pi]", "/", "6"}]}], ",", " ", "6"}], "]"}], ",", " ", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"2", " ", 
             RowBox[{"\[Pi]", "/", "6."}]}], ",", " ", 
            RowBox[{"{", 
             RowBox[{"i", ",", " ", "1", ",", " ", "20"}], "}"}]}], "]"}], 
          ",", " ", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"2", " ", 
             RowBox[{"\[Pi]", "/", "6."}]}], ",", " ", 
            RowBox[{"{", 
             RowBox[{"i", ",", " ", "1", ",", " ", "3"}], "}"}]}], "]"}], ",",
           " ", 
          RowBox[{"ntable", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", " ", "0", ",", " ", "1"}], "}"}], ",", " ", 
            RowBox[{"2", " ", 
             RowBox[{"\[Pi]", "/", "6."}]}], ",", " ", 
            RowBox[{"\[Pi]", "/", "10."}], ",", " ", "5"}], "]"}]}], "]"}], 
        "}"}], ",", "\n", "   ", 
       RowBox[{"(*", 
        RowBox[{"\[Phi]hil", ",", "\[Theta]hil"}], "*)"}], 
       RowBox[{"{", 
        RowBox[{"Join", "[", 
         RowBox[{
          RowBox[{"ntable", "[", 
           RowBox[{
            RowBox[{"{", "}"}], ",", " ", "0.", ",", " ", 
            RowBox[{"\[Pi]", "/", "4."}], ",", " ", "16"}], "]"}], ",", " ", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"\[Pi]", "/", "4"}], ",", " ", 
            RowBox[{"{", 
             RowBox[{"i", ",", " ", "1", ",", " ", "5"}], "}"}]}], "]"}], ",",
           " ", 
          RowBox[{"ntable", "[", 
           RowBox[{
            RowBox[{"{", "}"}], ",", " ", 
            RowBox[{"\[Pi]", "/", "4."}], ",", " ", "0.", ",", " ", "6"}], 
           "]"}], ",", " ", 
          RowBox[{"ntable", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", " ", "1", ",", " ", "0", ",", " ", "2"}], 
             "}"}], ",", " ", "0", ",", " ", 
            RowBox[{"\[Pi]", "/", "1.3"}], ",", " ", "10"}], "]"}], ",", " ", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"\[Pi]", "/", "1.3"}], ",", " ", 
            RowBox[{"{", 
             RowBox[{"i", ",", " ", "1", ",", " ", "10"}], "}"}]}], "]"}], 
          ",", " ", 
          RowBox[{"ntable", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"1", ",", " ", ".5", ",", " ", "0"}], "}"}], ",", " ", 
            RowBox[{"\[Pi]", "/", "1.3"}], ",", " ", 
            RowBox[{"\[Pi]", "/", "6."}], ",", " ", "4"}], "]"}], ",", " ", 
          RowBox[{"ntable", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", " ", "0", ",", " ", "1"}], "}"}], ",", " ", 
            RowBox[{"\[Pi]", "/", "6."}], ",", " ", 
            RowBox[{"2", " ", 
             RowBox[{"\[Pi]", "/", "6."}]}], ",", " ", "4"}], "]"}]}], "]"}], 
        "}"}], ",", "\n", "   ", 
       RowBox[{"{", "0", "}"}], ",", "\n", "   ", 
       RowBox[{"(*", 
        RowBox[{"\[Phi]knl", ",", "\[Theta]knl"}], "*)"}], 
       RowBox[{"{", 
        RowBox[{"Join", "[", 
         RowBox[{
          RowBox[{"ntable", "[", 
           RowBox[{
            RowBox[{"{", "}"}], ",", " ", "0.", ",", " ", 
            RowBox[{"\[Pi]", "/", "4."}], ",", " ", "16"}], "]"}], ",", " ", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"\[Pi]", "/", "4"}], ",", " ", 
            RowBox[{"{", 
             RowBox[{"i", ",", " ", "1", ",", " ", "5"}], "}"}]}], "]"}], ",",
           " ", 
          RowBox[{"ntable", "[", 
           RowBox[{
            RowBox[{"{", "}"}], ",", " ", 
            RowBox[{"\[Pi]", "/", "4."}], ",", " ", "0.", ",", " ", "6"}], 
           "]"}], ",", " ", 
          RowBox[{"Table", "[", 
           RowBox[{"0", ",", " ", 
            RowBox[{"{", 
             RowBox[{"i", ",", " ", "1", ",", " ", "4"}], "}"}]}], "]"}], ",",
           " ", 
          RowBox[{"ntable", "[", 
           RowBox[{
            RowBox[{"{", "}"}], ",", " ", "0", ",", " ", "2.3", ",", " ", 
            "6"}], "]"}], ",", " ", 
          RowBox[{"Table", "[", 
           RowBox[{"2.3", ",", " ", 
            RowBox[{"{", 
             RowBox[{"i", ",", " ", "1", ",", " ", "10"}], "}"}]}], "]"}], 
          ",", " ", 
          RowBox[{"ntable", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"1", ",", " ", ".5", ",", " ", "0"}], "}"}], ",", " ", 
            "2.3", ",", " ", 
            RowBox[{"\[Pi]", "/", "6."}], ",", " ", "4"}], "]"}], ",", " ", 
          RowBox[{"ntable", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", " ", "0", ",", " ", "1"}], "}"}], ",", " ", 
            RowBox[{"\[Pi]", "/", "6."}], ",", " ", 
            RowBox[{"2", " ", 
             RowBox[{"\[Pi]", "/", "6."}]}], ",", " ", "4"}], "]"}]}], "]"}], 
        "}"}], ",", "\n", "   ", 
       RowBox[{"{", "0", "}"}], ",", "\n", "   ", 
       RowBox[{"(*", "\[Phi]anl", "*)"}], 
       RowBox[{"{", 
        RowBox[{"Join", "[", 
         RowBox[{
          RowBox[{"ntable", "[", 
           RowBox[{
            RowBox[{"{", "}"}], ",", " ", 
            RowBox[{"\[Pi]", "/", "3."}], ",", " ", 
            RowBox[{"\[Pi]", "/", "24."}], ",", " ", "8"}], "]"}], ",", " ", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"\[Pi]", "/", "24."}], ",", " ", 
            RowBox[{"{", 
             RowBox[{"i", ",", " ", "1", ",", " ", "8"}], "}"}]}], "]"}], ",",
           " ", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"\[Pi]", "/", "24"}], ",", " ", 
            RowBox[{"{", 
             RowBox[{"i", ",", " ", "1", ",", " ", "5"}], "}"}]}], "]"}], ",",
           " ", 
          RowBox[{"ntable", "[", 
           RowBox[{
            RowBox[{"{", "}"}], ",", " ", 
            RowBox[{"\[Pi]", "/", "24."}], ",", " ", 
            RowBox[{"2", " ", 
             RowBox[{"\[Pi]", "/", "6"}]}], ",", " ", "6"}], "]"}], ",", " ", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"2", " ", 
             RowBox[{"\[Pi]", "/", "6."}]}], ",", " ", 
            RowBox[{"{", 
             RowBox[{"i", ",", " ", "1", ",", " ", "20"}], "}"}]}], "]"}], 
          ",", " ", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"2", " ", 
             RowBox[{"\[Pi]", "/", "6."}]}], ",", " ", 
            RowBox[{"{", 
             RowBox[{"i", ",", " ", "1", ",", " ", "3"}], "}"}]}], "]"}], ",",
           " ", 
          RowBox[{"ntable", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", " ", "0", ",", " ", "1"}], "}"}], ",", " ", 
            RowBox[{"2", " ", 
             RowBox[{"\[Pi]", "/", "6."}]}], ",", " ", 
            RowBox[{"\[Pi]", "/", "10."}], ",", " ", "5"}], "]"}]}], "]"}], 
        "}"}], ",", "\n", "   ", 
       RowBox[{"(*", "\[Phi]", "*)"}], 
       RowBox[{"{", 
        RowBox[{"Join", "[", 
         RowBox[{
          RowBox[{"Table", "[", 
           RowBox[{"0", ",", " ", 
            RowBox[{"{", 
             RowBox[{"i", ",", " ", "1", ",", " ", "16"}], "}"}]}], "]"}], 
          ",", " ", 
          RowBox[{"Table", "[", 
           RowBox[{"0", ",", " ", 
            RowBox[{"{", 
             RowBox[{"i", ",", " ", "1", ",", " ", "5"}], "}"}]}], "]"}], ",",
           " ", 
          RowBox[{"ntable", "[", 
           RowBox[{
            RowBox[{"{", "}"}], ",", " ", "0", ",", " ", 
            RowBox[{"\[Pi]", "/", "24."}], ",", " ", "6"}], "]"}], ",", " ", 
          RowBox[{"ntable", "[", 
           RowBox[{
            RowBox[{"{", "}"}], ",", " ", 
            RowBox[{"\[Pi]", "/", "24."}], ",", " ", 
            RowBox[{
             RowBox[{"-", "\[Pi]"}], "/", "24."}], ",", " ", "3"}], "]"}], 
          ",", " ", 
          RowBox[{"ntable", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"1", ",", " ", "1", ",", " ", "0"}], "}"}], ",", " ", 
            RowBox[{
             RowBox[{"-", "\[Pi]"}], "/", "24."}], ",", " ", 
            RowBox[{
             RowBox[{"-", "5"}], " ", 
             RowBox[{"\[Pi]", "/", "4."}]}], ",", " ", "17"}], "]"}], ",", 
          " ", 
          RowBox[{"ntable", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", " ", "0", ",", " ", "1"}], "}"}], ",", " ", 
            RowBox[{
             RowBox[{"-", "5"}], " ", 
             RowBox[{"\[Pi]", "/", "4."}]}], ",", " ", 
            RowBox[{
             RowBox[{"-", "2."}], " ", "\[Pi]"}], ",", " ", "4"}], "]"}], ",",
           " ", 
          RowBox[{"Table", "[", 
           RowBox[{"0", ",", " ", 
            RowBox[{"{", 
             RowBox[{"i", ",", " ", "1", ",", " ", "4"}], "}"}]}], "]"}]}], 
         "]"}], "}"}], ",", "\n", "   ", 
       RowBox[{"(*", "\[Theta]", "*)"}], 
       RowBox[{"{", 
        RowBox[{"(*", 
         RowBox[{"Join", "[", 
          RowBox[{
           RowBox[{"Table", "[", 
            RowBox[{"0", ",", " ", 
             RowBox[{"{", 
              RowBox[{"i", ",", " ", "1", ",", " ", "30"}], "}"}]}], "]"}], 
           ",", " ", 
           RowBox[{"ntable", "[", 
            RowBox[{
             RowBox[{"{", "}"}], ",", "0", ",", 
             RowBox[{"2.", "\[Pi]"}], ",", "19"}], "]"}], ",", " ", 
           RowBox[{"Table", "[", 
            RowBox[{"0", ",", " ", 
             RowBox[{"{", 
              RowBox[{"i", ",", " ", "1", ",", " ", "6"}], "}"}]}], "]"}]}], 
          "]"}], "*)"}], "0", "}"}], ",", "\n", "   ", 
       RowBox[{"(*", "\[Psi]", "*)"}], 
       RowBox[{"{", "0", "}"}], ",", 
       RowBox[{"(*", "h", "*)"}], 
       RowBox[{"{", 
        RowBox[{"Join", "[", 
         RowBox[{
          RowBox[{"Table", "[", 
           RowBox[{"0", ",", " ", 
            RowBox[{"{", 
             RowBox[{"i", ",", " ", "1", ",", " ", "25"}], "}"}]}], "]"}], 
          ",", " ", 
          RowBox[{"ntable", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", " ", "0", ",", " ", "1"}], "}"}], ",", " ", 
            "0", ",", " ", "64.", ",", " ", "13"}], "]"}], ",", " ", 
          RowBox[{"ntable", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", " ", "1", ",", " ", "0"}], "}"}], ",", " ", 
            "64.", ",", " ", "0", ",", " ", "13"}], "]"}], ",", " ", 
          RowBox[{"Table", "[", 
           RowBox[{"0", ",", " ", 
            RowBox[{"{", 
             RowBox[{"i", ",", " ", "1", ",", " ", "4"}], "}"}]}], "]"}]}], 
         "]"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.505773099193*^9, 3.50577315255*^9}, {
   3.5057731849300003`*^9, 3.505773250442*^9}, {3.505773341072*^9, 
   3.505773372715*^9}, {3.505773809558*^9, 3.505773837474*^9}, 
   3.505773930933*^9, {3.505774014387*^9, 3.5057741382279997`*^9}, {
   3.505774169558*^9, 3.505774175086*^9}, {3.5057742107200003`*^9, 
   3.505774226818*^9}, {3.505774257682*^9, 3.505774310236*^9}, {
   3.5057743526219997`*^9, 3.505774379152*^9}, {3.505774415889*^9, 
   3.505774472362*^9}, {3.505774504433*^9, 3.50577455119*^9}, {
   3.5057745908450003`*^9, 3.505774591559*^9}, {3.5057748508129997`*^9, 
   3.50577487175*^9}, {3.505775056877*^9, 3.5057750607609997`*^9}, 
   3.5058491212482*^9, {3.5058497227981997`*^9, 3.5058497249231997`*^9}, 
   3.5089066545179996`*^9, {3.508909566914*^9, 3.50890960552*^9}, {
   3.5089096617019997`*^9, 3.5089096670690002`*^9}, {3.5089097168640003`*^9, 
   3.5089097223129997`*^9}, {3.508988164204*^9, 3.508988164465*^9}, {
   3.509751223528*^9, 3.509751234053*^9}, 3.509751902178*^9, 
   3.509758682119*^9, {3.509758968829*^9, 3.5097589780439997`*^9}, {
   3.5639047989325724`*^9, 3.5639048007295723`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"Sin", "[", 
         RowBox[{
          RowBox[{"\[Pi]", "/", "2"}], " ", "x"}], "]"}], "2"], ",", 
       SuperscriptBox["x", "2"], ",", 
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"x", "-", "1"}], ")"}], "2"]}], "+", "1"}], ",", 
       RowBox[{
        FractionBox["1", 
         RowBox[{"a", "+", "b", "+", "c"}]], 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"a", " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", 
             RowBox[{
              RowBox[{"\[Pi]", "/", "2"}], " ", 
              RowBox[{"(", 
               RowBox[{"x", "^", "n"}], ")"}]}], "]"}], "2"]}], "+", 
          RowBox[{"b", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"x", "^", "n"}], ")"}], "2"]}], "+", 
          RowBox[{"c", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"x", "^", "n"}], ")"}], "-", "1"}], ")"}], "2"]}], 
             " ", "+", "1"}], ")"}]}]}], ")"}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", "Blue", ",", "Blue", ",", "Red"}], "}"}]}]}], 
    "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"a", ",", ".0001", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"b", ",", "0", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"c", ",", "0", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "0", ",", "3"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`a$$ = 0.0001, $CellContext`b$$ = 
    0., $CellContext`c$$ = 0.026000000000000002`, $CellContext`n$$ = 1.19, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`a$$], 0.0001, 1}, {
      Hold[$CellContext`b$$], 0, 1}, {
      Hold[$CellContext`c$$], 0, 1}, {
      Hold[$CellContext`n$$], 0, 3}}, Typeset`size$$ = {360., {113., 117.}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`a$12484$$ = 0, $CellContext`b$12485$$ = 
    0, $CellContext`c$12486$$ = 0, $CellContext`n$12487$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`a$$ = 0.0001, $CellContext`b$$ = 
        0, $CellContext`c$$ = 0, $CellContext`n$$ = 0}, "ControllerVariables" :> {
        Hold[$CellContext`a$$, $CellContext`a$12484$$, 0], 
        Hold[$CellContext`b$$, $CellContext`b$12485$$, 0], 
        Hold[$CellContext`c$$, $CellContext`c$12486$$, 0], 
        Hold[$CellContext`n$$, $CellContext`n$12487$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      Plot[{Sin[(Pi/2) $CellContext`x]^2, $CellContext`x^2, -($CellContext`x - 
            1)^2 + 1, (
          1/($CellContext`a$$ + $CellContext`b$$ + $CellContext`c$$)) \
($CellContext`a$$ 
           Sin[(Pi/2) $CellContext`x^$CellContext`n$$]^2 + $CellContext`b$$ \
($CellContext`x^$CellContext`n$$)^2 + $CellContext`c$$ \
(-($CellContext`x^$CellContext`n$$ - 1)^2 + 1))}, {$CellContext`x, 0, 1}, 
        PlotStyle -> {Blue, Blue, Blue, Red}], 
      "Specifications" :> {{$CellContext`a$$, 0.0001, 1}, {$CellContext`b$$, 
         0, 1}, {$CellContext`c$$, 0, 1}, {$CellContext`n$$, 0, 3}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{411., {200., 205.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.509758695025*^9}]
}, Open  ]],

Cell[BoxData[" "], "Input",
 Editable->False,
 Selectable->False,
 CellFrame->{{0, 0}, {0, 3}},
 ShowCellBracket->False,
 CellMargins->{{0, 0}, {1, 1}},
 CellElementSpacings->{"CellMinHeight"->1},
 CellFrameMargins->0,
 CellFrameColor->RGBColor[0, 0, 1],
 CellSize->{Inherited, 5},
 CellChangeTimes->{3.509751902222*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell["Stick Figure Gymnast", "Title",
 CellChangeTimes->{{3.5089088693789997`*^9, 3.5089088732320004`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"animate", "[", 
  RowBox[{"backflip", ",", " ", "7.5"}], "]"}]], "Input",
 CellChangeTimes->{{3.5639049700065727`*^9, 3.5639049761085725`*^9}, {
  3.6175632864100575`*^9, 3.6175632979401383`*^9}, {3.6175633845963326`*^9, 
  3.6175634019009514`*^9}, {3.61756343586255*^9, 3.6175634692385645`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`i18$$ = 49, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {
    "\"min\"" :> {$CellContext`i18$$ = 1}, 
     "\"max\"" :> {$CellContext`i18$$ = 55}}, Typeset`bookmarkMode$$ = "Menu",
     Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`i18$$], 1, ""}, 1, 55, 1}}, Typeset`size$$ = 
    Automatic, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`i18$137355$$ = 0}, 
    PaneBox[
     PanelBox[
      DynamicWrapperBox[GridBox[{
         {
          ItemBox[
           ItemBox[
            TagBox[
             StyleBox[GridBox[{
                {"\<\"\"\>", 
                 AnimatorBox[Dynamic[$CellContext`i18$$], {1, 55, 1},
                  AnimationRate->7.5,
                  
                  AppearanceElements->{
                   "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons",
                     "DirectionButton"},
                  AutoAction->False,
                  DisplayAllSteps->True,
                  PausedTime->9.01633399327596]}
               },
               AutoDelete->False,
               
               GridBoxAlignment->{
                "Columns" -> {Right, {Left}}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
               
               GridBoxItemSize->{
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
              "ListAnimateLabel",
              StripOnInput->False],
             {"ControlArea", Top}],
            Alignment->{Automatic, Inherited},
            StripOnInput->False],
           Background->None,
           StripOnInput->False]},
         {
          ItemBox[
           TagBox[
            StyleBox[
             PaneBox[
              TagBox[
               PaneSelectorBox[{1->
                
                Graphics3DBox[
                 GraphicsComplex3DBox[{{0., 144.36694850105712`, 0.}, {0., 
                   197.7865334794732, -0.19042794738706306`}, {0., 
                   186.98653347947322`, -0.19042794738706306`}, {0., 
                   186.58653347947322`, -0.19042794738706306`}, {0., 
                   141.38653347947323`, -0.19042794738706306`}, {0., 
                   127.68653347947321`, -0.19042794738706306`}, {-17.4, 
                   174.88653347947323`, -0.19042794738706306`}, {-17.4, 
                   205.18653347947324`, -0.19042794738705934`}, {-17.4, 
                   241.88653347947323`, -0.19042794738705485`}, {17.4, 
                   174.88653347947323`, -0.19042794738706306`}, {17.4, 
                   205.18653347947324`, -0.19042794738705934`}, {17.4, 
                   241.88653347947323`, -0.19042794738705485`}, {-9.15, 
                   123.98653347947322`, -0.19042794738706306`}, {-9.15, 
                   76.7865334794732, -0.19042794738706306`}, {-9.15, 
                   23.186533479473212`, -0.19042794738706306`}, {-9.15, 5., 
                   10.309572052612939`}, {9.15, 
                   123.98653347947322`, -0.19042794738706306`}, {9.15, 
                   76.7865334794732, -0.19042794738706306`}, {9.15, 
                   23.186533479473212`, -0.19042794738706306`}, {9.15, 5., 
                   10.309572052612939`}, {-17.4, 
                   193.78653347947323`, -0.19042794738706076`}, {17.4, 
                   193.78653347947323`, -0.19042794738706076`}, {17.4, 
                   216.98653347947322`, -0.1904279473870579}, {-17.4, 
                   216.98653347947322`, -0.1904279473870579}, {9.15, 
                   102.98653347947322`, -0.19042794738706306`}, {-9.15, 
                   102.98653347947322`, -0.19042794738706306`}, {9.15, 
                   58.48653347947322, -0.19042794738706306`}, {-9.15, 
                   58.48653347947322, -0.19042794738706306`}, {9.15, 
                   14.554036255195285`, 8.257648263966255}, {-9.15, 
                   14.554036255195285`, 8.257648263966255}, {-100, 0, -100}, {
                   100, 0, -100}, {100, 0, 100}, {-100, 0, 100}, {
                   27.69985874336092, 0.585240973209318, 
                   28.254404770151602`}}, {SphereBox[2, 10.5], 
                   {RGBColor[0, 0, 1], PointSize[0.009], 
                    Point3DBox[{7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
                    19, 20}], 
                    {GrayLevel[0], Thickness[0.004], 
                    Line3DBox[{{2, 3}, {6, 13, 17, 6}, {10, 7, 4, 10}, {7, 8, 
                    9}, {10, 11, 12}, {13, 14, 15, 16}, {17, 18, 19, 20}}], 
                    BSplineCurve3DBox[{{17, 5, 10}, {13, 5, 7}, {3, 4, 5, 
                    6}, {7, 3, 10}},
                    
                    SplineWeights->{{1, 2, 3}, {1, 2, 3}, {1, 1, 3, 1}, {1, 1,
                     1}}], 
                    {RGBColor[1, 0, 0], Point3DBox[{2, 3, 4, 5, 6}], 
                    {PointSize[Large], Point3DBox[1], 
                    {RGBColor[0, 1, 0], Thickness[0.01], 
                    Polygon3DBox[{31, 32, 33, 34}]}}}}}}],
                 Boxed->False,
                 ImageSize->{700, 700},
                 PlotRange->{{-130, 130}, {-30, 300}, {-100, 100}},
                 SphericalRegion->True,
                 ViewAngle->All,
                 
                 ViewVector->
                  NCache[{{300, 200, 300 3^Rational[1, 2]}, {0, 150, 0}}, {{
                    300, 200, 519.6152422706632}, {0, 150, 0}}],
                 ViewVertical->{0, 1, 0}], 2->
                
                Graphics3DBox[
                 GraphicsComplex3DBox[{{0., 143.99048918556113`, 0.}, {0., 
                   197.40768684302122`, -0.3416596018860948}, {0., 
                   186.60774757482642`, -0.3778784271515835}, {0., 
                   186.20774982415253`, -0.37921986512437933`}, {0., 
                   141.00800399800386`, -0.5308023560503136}, {0., 
                   127.30802325787229`, -0.5537745136293869}, {-17.4, 
                   174.5078156169415, -0.41845692582865873`}, {-17.4, 
                   204.7719988900721, 1.0543671676605553`}, {-17.4, 
                   241.42861691396297`, 2.8382828188504616`}, {17.4, 
                   174.5078156169415, -0.41845692582865873`}, {17.4, 
                   204.7719988900721, 1.0543671676605553`}, {17.4, 
                   241.42861691396297`, 2.8382828188504616`}, {-9.15, 
                   123.6080232578723, -0.5537745136293869}, {-9.15, 
                   76.40936694394594, -0.1976254439128466}, {-9.15, 
                   22.809366943945932`, -0.1976254439128466}, {-9.15, 5., 
                   10.930107885740853`}, {9.15, 
                   123.6080232578723, -0.5537745136293869}, {9.15, 
                   76.40936694394594, -0.1976254439128466}, {9.15, 
                   22.809366943945932`, -0.1976254439128466}, {9.15, 5., 
                   10.930107885740853`}, {-17.4, 193.39232649723772`, 
                   0.13109441752408002`}, {17.4, 193.39232649723772`, 
                   0.13109441752408002`}, {17.4, 216.56886586731284`, 
                   1.1753368773947819`}, {-17.4, 216.56886586731284`, 
                   1.1753368773947819`}, {9.15, 
                   102.60862108430337`, -0.3953183597300787}, {-9.15, 
                   102.60862108430337`, -0.3953183597300787}, {9.15, 
                   58.10936694394593, -0.1976254439128466}, {-9.15, 
                   58.10936694394593, -0.1976254439128466}, {9.15, 
                   14.47668155084088, 8.546306974600776}, {-9.15, 
                   14.47668155084088, 8.546306974600776}, {-100, 0, -100}, {
                   100, 0, -100}, {100, 0, 100}, {-100, 0, 100}, {
                   27.67985406598219, 0.591440750828465, 
                   28.22820031515372}}, {SphereBox[2, 10.5], 
                   {RGBColor[0, 0, 1], PointSize[0.009], 
                    Point3DBox[{7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
                    19, 20}], 
                    {GrayLevel[0], Thickness[0.004], 
                    Line3DBox[{{2, 3}, {6, 13, 17, 6}, {10, 7, 4, 10}, {7, 8, 
                    9}, {10, 11, 12}, {13, 14, 15, 16}, {17, 18, 19, 20}}], 
                    BSplineCurve3DBox[{{17, 5, 10}, {13, 5, 7}, {3, 4, 5, 
                    6}, {7, 3, 10}},
                    
                    SplineWeights->{{1, 2, 3}, {1, 2, 3}, {1, 1, 3, 1}, {1, 1,
                     1}}], 
                    {RGBColor[1, 0, 0], Point3DBox[{2, 3, 4, 5, 6}], 
                    {PointSize[Large], Point3DBox[1], 
                    {RGBColor[0, 1, 0], Thickness[0.01], 
                    Polygon3DBox[{31, 32, 33, 34}]}}}}}}],
                 Boxed->False,
                 ImageSize->{700, 700},
                 PlotRange->{{-130, 130}, {-30, 300}, {-100, 100}},
                 SphericalRegion->True,
                 ViewAngle->All,
                 
                 ViewVector->
                  NCache[{{300, 200, 300 3^Rational[1, 2]}, {0, 150, 0}}, {{
                    300, 200, 519.6152422706632}, {0, 150, 0}}],
                 ViewVertical->{0, 1, 0}], 3->
                
                Graphics3DBox[
                 GraphicsComplex3DBox[{{0., 142.73117364074022`, 0.}, {0., 
                   196.19191726978926`, -0.7829414256119763}, {0., 
                   185.39287038412255`, -0.9264209055816841}, {0., 
                   184.9929056846534, -0.931734960395377}, {0., 
                   139.79689464464093`, -1.5322231543426728`}, {0., 
                   126.09719690877088`, -1.6232283508816563`}, {-17.4, 
                   173.29393822518117`, -1.0871710636958938`}, {-17.4, 
                   203.0334547838038, 4.71379048241108}, {-17.4, 
                   239.05458540101336`, 11.740037635616556`}, {17.4, 
                   173.29393822518117`, -1.0871710636958938`}, {17.4, 
                   203.0334547838038, 4.71379048241108}, {17.4, 
                   239.05458540101336`, 11.740037635616556`}, {-9.15, 
                   122.3971969087709, -1.6232283508816563`}, {-9.15, 
                   75.21828330334182, -0.21251540649471634`}, {-9.15, 
                   21.618283303341826`, -0.21251540649471634`}, {-9.15, 5., 
                   12.626201821089609`}, {9.15, 
                   122.3971969087709, -1.6232283508816563`}, {9.15, 
                   75.21828330334182, -0.21251540649471634`}, {9.15, 
                   21.618283303341826`, -0.21251540649471634`}, {9.15, 5., 
                   12.626201821089609`}, {-17.4, 191.95134651307683`, 
                   1.0776363750888724`}, {17.4, 191.95134651307683`, 
                   1.0776363750888724`}, {17.4, 214.7840583743548, 
                   5.194096028222873}, {-17.4, 214.7840583743548, 
                   5.194096028222873}, {9.15, 
                   101.40657856737236`, -0.9955806425739075}, {-9.15, 
                   101.40657856737236`, -0.9955806425739075}, {9.15, 
                   56.91828330334182, -0.21251540649471634`}, {-9.15, 
                   56.91828330334182, -0.21251540649471634`}, {9.15, 
                   14.193627923992011`, 9.31452466363681}, {-9.15, 
                   14.193627923992011`, 9.31452466363681}, {-100, 0, -100}, {
                   100, 0, -100}, {100, 0, 100}, {-100, 0, 100}, {
                   27.572934334636155`, 0.6686755907889075, 
                   28.04404574384725}}, {SphereBox[2, 10.5], 
                   {RGBColor[0, 0, 1], PointSize[0.009], 
                    Point3DBox[{7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
                    19, 20}], 
                    {GrayLevel[0], Thickness[0.004], 
                    Line3DBox[{{2, 3}, {6, 13, 17, 6}, {10, 7, 4, 10}, {7, 8, 
                    9}, {10, 11, 12}, {13, 14, 15, 16}, {17, 18, 19, 20}}], 
                    BSplineCurve3DBox[{{17, 5, 10}, {13, 5, 7}, {3, 4, 5, 
                    6}, {7, 3, 10}},
                    
                    SplineWeights->{{1, 2, 3}, {1, 2, 3}, {1, 1, 3, 1}, {1, 1,
                     1}}], 
                    {RGBColor[1, 0, 0], Point3DBox[{2, 3, 4, 5, 6}], 
                    {PointSize[Large], Point3DBox[1], 
                    {RGBColor[0, 1, 0], Thickness[0.01], 
                    Polygon3DBox[{31, 32, 33, 34}]}}}}}}],
                 Boxed->False,
                 ImageSize->{700, 700},
                 PlotRange->{{-130, 130}, {-30, 300}, {-100, 100}},
                 SphericalRegion->True,
                 ViewAngle->All,
                 
                 ViewVector->
                  NCache[{{300, 200, 300 3^Rational[1, 2]}, {0, 150, 0}}, {{
                    300, 200, 519.6152422706632}, {0, 150, 0}}],
                 ViewVertical->{0, 1, 0}], 4->
                
                Graphics3DBox[
                 GraphicsComplex3DBox[{{0., 140.31493553767086`, 0.}, {0., 
                   194.0045913669476, -1.4539465228536885`}, {0., 
                   183.20926305270655`, -1.7715730137910666`}, {0., 
                   182.80943607810502`, -1.7833369578998584`}, {0., 
                   137.62898794813316`, -3.11266264219333}, {0., 
                   123.93046955822328`, -3.3141419743856977`}, {-17.4, 
                   171.11449707101053`, -2.127432323082018}, {-17.4, 
                   198.70014359055529`, 10.4074033798193}, {-17.4, 
                   232.11246132214907`, 25.58986114537964}, {17.4, 
                   171.11449707101053`, -2.127432323082018}, {17.4, 
                   198.70014359055529`, 10.4074033798193}, {17.4, 
                   232.11246132214907`, 25.58986114537964}, {-9.15, 
                   120.23046955822328`, -3.3141419743856977`}, {-9.15, 
                   73.13380033402522, -0.19264425910911065`}, {-9.15, 
                   19.533800334025244`, -0.19264425910911065`}, {-9.15, 5., 
                   14.965477255468077`}, {9.15, 
                   120.23046955822328`, -3.3141419743856977`}, {9.15, 
                   73.13380033402522, -0.19264425910911065`}, {9.15, 
                   19.533800334025244`, -0.19264425910911065`}, {9.15, 5., 
                   14.965477255468077`}, {-17.4, 188.83543938790052`, 
                   2.552860987414765}, {17.4, 188.83543938790052`, 
                   2.552860987414765}, {17.4, 210.2534471800293, 
                   11.480069788948715`}, {-17.4, 210.2534471800293, 
                   11.480069788948715`}, {9.15, 
                   99.27644299660975, -1.925340024792301}, {-9.15, 
                   99.27644299660975, -1.925340024792301}, {9.15, 
                   54.83380033402523, -0.19264425910911065`}, {-9.15, 
                   54.83380033402523, -0.19264425910911065`}, {9.15, 
                   13.601843221436496`, 10.328852061016068`}, {-9.15, 
                   13.601843221436496`, 10.328852061016068`}, {-100, 
                   0, -100}, {100, 0, -100}, {100, 0, 100}, {-100, 0, 100}, {
                   27.253603197472664`, 0.9642225186995947, 
                   27.429167678773073`}}, {SphereBox[2, 10.5], 
                   {RGBColor[0, 0, 1], PointSize[0.009], 
                    Point3DBox[{7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
                    19, 20}], 
                    {GrayLevel[0], Thickness[0.004], 
                    Line3DBox[{{2, 3}, {6, 13, 17, 6}, {10, 7, 4, 10}, {7, 8, 
                    9}, {10, 11, 12}, {13, 14, 15, 16}, {17, 18, 19, 20}}], 
                    BSplineCurve3DBox[{{17, 5, 10}, {13, 5, 7}, {3, 4, 5, 
                    6}, {7, 3, 10}},
                    
                    SplineWeights->{{1, 2, 3}, {1, 2, 3}, {1, 1, 3, 1}, {1, 1,
                     1}}], 
                    {RGBColor[1, 0, 0], Point3DBox[{2, 3, 4, 5, 6}], 
                    {PointSize[Large], Point3DBox[1], 
                    {RGBColor[0, 1, 0], Thickness[0.01], 
                    Polygon3DBox[{31, 32, 33, 34}]}}}}}}],
                 Boxed->False,
                 ImageSize->{700, 700},
                 PlotRange->{{-130, 130}, {-30, 300}, {-100, 100}},
                 SphericalRegion->True,
                 ViewAngle->All,
                 
                 ViewVector->
                  NCache[{{300, 200, 300 3^Rational[1, 2]}, {0, 150, 0}}, {{
                    300, 200, 519.6152422706632}, {0, 150, 0}}],
                 ViewVertical->{0, 1, 0}], 5->
                
                Graphics3DBox[
                 GraphicsComplex3DBox[{{0., 136.59422765990462`, 0.}, {0., 
                   190.87695516745794`, -2.194192993655486}, {0., 
                   180.0910633981216, -2.7460432814719073`}, {0., 
                   179.69158592518323`, -2.7664821810206637`}, {0., 
                   134.55063148314605`, -5.0760778300301315`}, {0., 
                   120.85510635193052`, -5.4262083488996184`}, {-17.4, 
                   168.00686984173555`, -3.3643199928217866`}, {-17.4, 
                   190.35726091379553`, 17.094175037995637`}, {-17.4, 
                   217.4285266677428, 41.8739363459494}, {17.4, 
                   168.00686984173555`, -3.3643199928217866`}, {17.4, 
                   190.35726091379553`, 17.094175037995637`}, {17.4, 
                   217.4285266677428, 41.8739363459494}, {-9.15, 
                   117.15510635193053`, -5.4262083488996184`}, {-9.15, 
                   70.26697489341166, -0.00927856085044887}, {-9.15, 
                   16.66697489341165, -0.00927856085044887}, {-9.15, 5., 
                   17.451583297503003`}, {9.15, 
                   117.15510635193053`, -5.4262083488996184`}, {9.15, 
                   70.26697489341166, -0.00927856085044887}, {9.15, 
                   16.66697489341165, -0.00927856085044887}, {9.15, 5., 
                   17.451583297503003`}, {-17.4, 183.42196655902953`, 
                   4.2819177358639235`}, {17.4, 183.42196655902953`, 
                   4.2819177358639235`}, {17.4, 201.3784958333971, 
                   18.991272332603028`}, {-17.4, 201.3784958333971, 
                   18.991272332603028`}, {9.15, 
                   96.29386142335221, -3.0161336550641833`}, {-9.15, 
                   96.29386142335221, -3.0161336550641833`}, {9.15, 
                   51.966974893411646`, -0.00927856085044887}, {-9.15, 
                   51.966974893411646`, -0.00927856085044887}, {9.15, 
                   12.661212003989945`, 11.38562660214814}, {-9.15, 
                   12.661212003989945`, 11.38562660214814}, {-100, 0, -100}, {
                   100, 0, -100}, {100, 0, 100}, {-100, 0, 100}, {
                   26.568391744704208`, 1.5875002530281173`, 
                   26.120678491676085`}}, {SphereBox[2, 10.5], 
                   {RGBColor[0, 0, 1], PointSize[0.009], 
                    Point3DBox[{7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
                    19, 20}], 
                    {GrayLevel[0], Thickness[0.004], 
                    Line3DBox[{{2, 3}, {6, 13, 17, 6}, {10, 7, 4, 10}, {7, 8, 
                    9}, {10, 11, 12}, {13, 14, 15, 16}, {17, 18, 19, 20}}], 
                    BSplineCurve3DBox[{{17, 5, 10}, {13, 5, 7}, {3, 4, 5, 
                    6}, {7, 3, 10}},
                    
                    SplineWeights->{{1, 2, 3}, {1, 2, 3}, {1, 1, 3, 1}, {1, 1,
                     1}}], 
                    {RGBColor[1, 0, 0], Point3DBox[{2, 3, 4, 5, 6}], 
                    {PointSize[Large], Point3DBox[1], 
                    {RGBColor[0, 1, 0], Thickness[0.01], 
                    Polygon3DBox[{31, 32, 33, 34}]}}}}}}],
                 Boxed->False,
                 ImageSize->{700, 700},
                 PlotRange->{{-130, 130}, {-30, 300}, {-100, 100}},
                 SphericalRegion->True,
                 ViewAngle->All,
                 
                 ViewVector->
                  NCache[{{300, 200, 300 3^Rational[1, 2]}, {0, 150, 0}}, {{
                    300, 200, 519.6152422706632}, {0, 150, 0}}],
                 ViewVertical->{0, 1, 0}], 6->
                
                Graphics3DBox[
                 GraphicsComplex3DBox[{{0., 131.78810962864338`, 0.}, {0., 
                   187.1455175118398, -2.7110134635841208`}, {0., 
                   176.37799160332918`, -3.5479040236646915`}, {0., 
                   175.97919434745842`, -3.5788999703343425`}, {0., 
                   130.915104434062, -7.0814419440048795`}, {0., 
                   117.22540680434862`, -7.612646995769467}, {-17.4, 
                   164.31437461323856`, -4.485531410421627}, {-17.4, 
                   177.38638776865926`, 22.84965602380877}, {-17.4, 
                   193.21948621103354`, 55.95861242104493}, {17.4, 
                   164.31437461323856`, -4.485531410421627}, {17.4, 
                   177.38638776865926`, 22.84965602380877}, {17.4, 
                   193.21948621103354`, 55.95861242104493}, {-9.15, 
                   113.52540680434862`, -7.612646995769467}, {-9.15, 
                   67.04243362150316, 0.5832790704460571}, {-9.15, 
                   13.44243362150317, 0.5832790704460571}, {-9.15, 
                   4.999999999999986, 19.81152169806319}, {9.15, 
                   113.52540680434862`, -7.612646995769467}, {9.15, 
                   67.04243362150316, 0.5832790704460571}, {9.15, 
                   13.44243362150317, 0.5832790704460571}, {9.15, 
                   4.999999999999986, 19.81152169806319}, {-17.4, 
                   175.52411845117163`, 5.729812450679056}, {17.4, 
                   175.52411845117163`, 5.729812450679056}, {17.4, 
                   187.25496743904012`, 25.777777777525493`}, {-17.4, 
                   187.25496743904012`, 25.777777777525493`}, {9.15, 
                   92.84442297299789, -3.966154466309171}, {-9.15, 
                   92.84442297299789, -3.966154466309171}, {9.15, 
                   48.74243362150317, 0.5832790704460571}, {-9.15, 
                   48.74243362150317, 0.5832790704460571}, {9.15, 
                   11.485683836325265`, 12.50221905176177}, {-9.15, 
                   11.485683836325265`, 12.50221905176177}, {-100, 0, -100}, {
                   100, 0, -100}, {100, 0, 100}, {-100, 0, 100}, {
                   25.42391531469694, 2.3779749349086945`, 
                   24.185727379788247`}}, {SphereBox[2, 10.5], 
                   {RGBColor[0, 0, 1], PointSize[0.009], 
                    Point3DBox[{7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
                    19, 20}], 
                    {GrayLevel[0], Thickness[0.004], 
                    Line3DBox[{{2, 3}, {6, 13, 17, 6}, {10, 7, 4, 10}, {7, 8, 
                    9}, {10, 11, 12}, {13, 14, 15, 16}, {17, 18, 19, 20}}], 
                    BSplineCurve3DBox[{{17, 5, 10}, {13, 5, 7}, {3, 4, 5, 
                    6}, {7, 3, 10}},
                    
                    SplineWeights->{{1, 2, 3}, {1, 2, 3}, {1, 1, 3, 1}, {1, 1,
                     1}}], 
                    {RGBColor[1, 0, 0], Point3DBox[{2, 3, 4, 5, 6}], 
                    {PointSize[Large], Point3DBox[1], 
                    {RGBColor[0, 1, 0], Thickness[0.01], 
                    Polygon3DBox[{31, 32, 33, 34}]}}}}}}],
                 Boxed->False,
                 ImageSize->{700, 700},
                 PlotRange->{{-130, 130}, {-30, 300}, {-100, 100}},
                 SphericalRegion->True,
                 ViewAngle->All,
                 
                 ViewVector->
                  NCache[{{300, 200, 300 3^Rational[1, 2]}, {0, 150, 0}}, {{
                    300, 200, 519.6152422706632}, {0, 150, 0}}],
                 ViewVertical->{0, 1, 0}], 7->
                
                Graphics3DBox[
                 GraphicsComplex3DBox[{{0., 126.531712685881, 0.}, {0., 
                   183.37484369671168`, -2.630348779207126}, {0., 
                   172.6374681863561, -3.7917131275560934`}, {0., 
                   172.2397876118985, -3.8347266219393887`}, {0., 
                   127.30188269818805`, -8.695251487251735}, {0., 
                   113.62175719529382`, -9.432927720475313}, {-17.4, 
                   160.60763080901327`, -5.09287133265077}, {-17.4, 
                   160.86627953042014`, 25.206024700685404`}, {-17.4, 
                   161.17956032499546`, 61.90468755294406}, {17.4, 
                   160.60763080901327`, -5.09287133265077}, {17.4, 
                   160.86627953042014`, 25.206024700685404`}, {17.4, 
                   161.17956032499546`, 61.90468755294406}, {-9.15, 
                   109.92175719529382`, -9.432927720475313}, {-9.15, 
                   64.10188637572689, 1.897537321975454}, {-9.15, 
                   10.501886375726897`, 1.897537321975454}, {-9.15, 5., 
                   22.163993507223793`}, {9.15, 
                   109.92175719529382`, -9.432927720475313}, {9.15, 
                   64.10188637572689, 1.897537321975454}, {9.15, 
                   10.501886375726897`, 1.897537321975454}, {9.15, 5., 
                   22.163993507223793`}, {-17.4, 165.68155282142033`, 
                   6.139339797286377}, {17.4, 165.68155282142033`, 
                   6.139339797286377}, {17.4, 168.56643157052247`, 
                   29.213402393362635`}, {-17.4, 168.56643157052247`, 
                   29.213402393362635`}, {9.15, 
                   89.5357977204865, -4.391830985486624}, {-9.15, 
                   89.5357977204865, -4.391830985486624}, {9.15, 
                   45.801886375726895`, 1.897537321975454}, {-9.15, 
                   45.801886375726895`, 1.897537321975454}, {9.15, 
                   10.331757707143097`, 13.97483239314623}, {-9.15, 
                   10.331757707143097`, 13.97483239314623}, {-100, 0, -100}, {
                   100, 0, -100}, {100, 0, 100}, {-100, 0, 100}, {
                   23.88450912605695, 2.81699994410231, 
                   22.207296181954643`}}, {SphereBox[2, 10.5], 
                   {RGBColor[0, 0, 1], PointSize[0.009], 
                    Point3DBox[{7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
                    19, 20}], 
                    {GrayLevel[0], Thickness[0.004], 
                    Line3DBox[{{2, 3}, {6, 13, 17, 6}, {10, 7, 4, 10}, {7, 8, 
                    9}, {10, 11, 12}, {13, 14, 15, 16}, {17, 18, 19, 20}}], 
                    BSplineCurve3DBox[{{17, 5, 10}, {13, 5, 7}, {3, 4, 5, 
                    6}, {7, 3, 10}},
                    
                    SplineWeights->{{1, 2, 3}, {1, 2, 3}, {1, 1, 3, 1}, {1, 1,
                     1}}], 
                    {RGBColor[1, 0, 0], Point3DBox[{2, 3, 4, 5, 6}], 
                    {PointSize[Large], Point3DBox[1], 
                    {RGBColor[0, 1, 0], Thickness[0.01], 
                    Polygon3DBox[{31, 32, 33, 34}]}}}}}}],
                 Boxed->False,
                 ImageSize->{700, 700},
                 PlotRange->{{-130, 130}, {-30, 300}, {-100, 100}},
                 SphericalRegion->True,
                 ViewAngle->All,
                 
                 ViewVector->
                  NCache[{{300, 200, 300 3^Rational[1, 2]}, {0, 150, 0}}, {{
                    300, 200, 519.6152422706632}, {0, 150, 0}}],
                 ViewVertical->{0, 1, 0}], 8->
                
                Graphics3DBox[
                 GraphicsComplex3DBox[{{0., 121.72279896930891`, 0.}, {0., 
                   180.13758735776003`, -1.6528075543743697`}, {0., 
                   169.4439841226466, -3.1650409523563594`}, {0., 
                   169.04792474356833`, -3.221049596726062}, {0., 
                   124.29321490772335`, -9.550026410502538}, {0., 
                   110.62699812786795`, -10.511545482595439`}, {-17.4, 
                   157.46318790552883`, -4.859302444539884}, {-17.4, 
                   143.84319887304443`, 22.207021627173376`}, {-17.4, 
                   127.34638047396267`, 54.99032504076666}, {17.4, 
                   157.46318790552883`, -4.859302444539884}, {17.4, 
                   143.84319887304443`, 22.207021627173376`}, {17.4, 
                   127.34638047396267`, 54.99032504076666}, {-9.15, 
                   106.92699812786795`, -10.511545482595439`}, {-9.15, 
                   62.06533539615211, 4.160578322286323}, {-9.15, 
                   8.465335396152113, 4.160578322286323}, {-9.15, 5., 
                   24.872687113816347`}, {9.15, 
                   106.92699812786795`, -10.511545482595439`}, {9.15, 
                   62.06533539615211, 4.160578322286323}, {9.15, 
                   8.465335396152113, 4.160578322286323}, {9.15, 5., 
                   24.872687113816347`}, {-17.4, 155.1897697359661, 
                   4.747525868978361}, {17.4, 155.1897697359661, 
                   4.747525868978361}, {17.4, 147.972884747823, 
                   26.892396606067102`}, {-17.4, 147.972884747823, 
                   26.892396606067102`}, {9.15, 
                   86.96736004807912, -3.9836937897455025`}, {-9.15, 
                   86.96736004807912, -3.9836937897455025`}, {9.15, 
                   43.76533539615211, 4.160578322286323}, {-9.15, 
                   43.76533539615211, 4.160578322286323}, {9.15, 
                   9.493521217085942, 16.19522970558907}, {-9.15, 
                   9.493521217085942, 16.19522970558907}, {-100, 0, -100}, {
                   100, 0, -100}, {100, 0, 100}, {-100, 0, 100}, {
                   22.213013158186197`, 2.44793061457556, 
                   20.904869543610637`}}, {SphereBox[2, 10.5], 
                   {RGBColor[0, 0, 1], PointSize[0.009], 
                    Point3DBox[{7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
                    19, 20}], 
                    {GrayLevel[0], Thickness[0.004], 
                    Line3DBox[{{2, 3}, {6, 13, 17, 6}, {10, 7, 4, 10}, {7, 8, 
                    9}, {10, 11, 12}, {13, 14, 15, 16}, {17, 18, 19, 20}}], 
                    BSplineCurve3DBox[{{17, 5, 10}, {13, 5, 7}, {3, 4, 5, 
                    6}, {7, 3, 10}},
                    
                    SplineWeights->{{1, 2, 3}, {1, 2, 3}, {1, 1, 3, 1}, {1, 1,
                     1}}], 
                    {RGBColor[1, 0, 0], Point3DBox[{2, 3, 4, 5, 6}], 
                    {PointSize[Large], Point3DBox[1], 
                    {RGBColor[0, 1, 0], Thickness[0.01], 
                    Polygon3DBox[{31, 32, 33, 34}]}}}}}}],
                 Boxed->False,
                 ImageSize->{700, 700},
                 PlotRange->{{-130, 130}, {-30, 300}, {-100, 100}},
                 SphericalRegion->True,
                 ViewAngle->All,
                 
                 ViewVector->
                  NCache[{{300, 200, 300 3^Rational[1, 2]}, {0, 150, 0}}, {{
                    300, 200, 519.6152422706632}, {0, 150, 0}}],
                 ViewVertical->{0, 1, 0}], 9->
                
                Graphics3DBox[
                 GraphicsComplex3DBox[{{0., 118.26075821645308`, 0.}, {0., 
                   177.83918860489928`, 0.25805934505789274`}, {0., 
                   167.2032648723674, -1.6173409737449536`}, {0., 
                   166.80934177116256`, -1.6868002448117263`}, {0., 
                   122.29603133501075`, -9.535697875356975}, {0., 
                   108.64816397115383`, -10.729731550999892`}, {-17.4, 
                   155.28709106091972`, -3.7184839235148104`}, {-17.4, 
                   130.4667841189633, 13.6608820979219}, {-17.4, 
                   100.40390409355729`, 34.711137312005306`}, {17.4, 
                   155.28709106091972`, -3.7184839235148104`}, {17.4, 
                   130.4667841189633, 13.6608820979219}, {17.4, 
                   100.40390409355729`, 34.711137312005306`}, {-9.15, 
                   104.94816397115383`, -10.729731550999892`}, {-9.15, 
                   61.341050036621084`, 7.332926456632341}, {-9.15, 
                   7.74105003662109, 7.332926456632341}, {-9.15, 5., 
                   28.153268545482355`}, {9.15, 
                   104.94816397115383`, -10.729731550999892`}, {9.15, 
                   61.341050036621084`, 7.332926456632341}, {9.15, 
                   7.74105003662109, 7.332926456632341}, {9.15, 5., 
                   28.153268545482355`}, {-17.4, 145.82253150760312`, 
                   1.1205713455423592`}, {17.4, 145.82253150760312`, 
                   1.1205713455423592`}, {17.4, 129.54223263255633`, 
                   17.845656837943224`}, {-17.4, 129.54223263255633`, 
                   17.845656837943224`}, {9.15, 
                   85.5466937884168, -2.6933794713330084`}, {-9.15, 
                   85.5466937884168, -2.6933794713330084`}, {9.15, 
                   43.04105003662109, 7.332926456632341}, {-9.15, 
                   43.04105003662109, 7.332926456632341}, {9.15, 
                   9.188228171767918, 19.324409911366075`}, {-9.15, 
                   9.188228171767918, 19.324409911366075`}, {-100, 0, -100}, {
                   100, 0, -100}, {100, 0, 100}, {-100, 0, 100}, {
                   20.792351182892567`, 1.5379921949582365`, 
                   20.394145987934337`}}, {SphereBox[2, 10.5], 
                   {RGBColor[0, 0, 1], PointSize[0.009], 
                    Point3DBox[{7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
                    19, 20}], 
                    {GrayLevel[0], Thickness[0.004], 
                    Line3DBox[{{2, 3}, {6, 13, 17, 6}, {10, 7, 4, 10}, {7, 8, 
                    9}, {10, 11, 12}, {13, 14, 15, 16}, {17, 18, 19, 20}}], 
                    BSplineCurve3DBox[{{17, 5, 10}, {13, 5, 7}, {3, 4, 5, 
                    6}, {7, 3, 10}},
                    
                    SplineWeights->{{1, 2, 3}, {1, 2, 3}, {1, 1, 3, 1}, {1, 1,
                     1}}], 
                    {RGBColor[1, 0, 0], Point3DBox[{2, 3, 4, 5, 6}], 
                    {PointSize[Large], Point3DBox[1], 
                    {RGBColor[0, 1, 0], Thickness[0.01], 
                    Polygon3DBox[{31, 32, 33, 34}]}}}}}}],
                 Boxed->False,
                 ImageSize->{700, 700},
                 PlotRange->{{-130, 130}, {-30, 300}, {-100, 100}},
                 SphericalRegion->True,
                 ViewAngle->All,
                 
                 ViewVector->
                  NCache[{{300, 200, 300 3^Rational[1, 2]}, {0, 150, 0}}, {{
                    300, 200, 519.6152422706632}, {0, 150, 0}}],
                 ViewVertical->{0, 1, 0}], 10->
                
                Graphics3DBox[
                 GraphicsComplex3DBox[{{0., 116.04986362833763`, 0.}, {0., 
                   175.94090910893618`, 2.7999346787755517`}, {0., 
                   165.37499477576813`, 0.5635415326239084}, {0., 
                   164.98366461528042`, 0.4807121568405144}, {0., 
                   120.76335648016972`, -8.879007306683038}, {0., 
                   107.13779420636165`, -10.30520950923996}, {-17.4, 
                   153.53725742101506`, -1.9420470848237663`}, {-17.4, 
                   123.44492181804176`, 1.5993280658804832`}, {-17.4, 
                   86.9964493220312, 5.888716449736785}, {17.4, 
                   153.53725742101506`, -1.9420470848237663`}, {17.4, 
                   123.44492181804176`, 1.5993280658804832`}, {17.4, 
                   86.9964493220312, 5.888716449736785}, {-9.15, 
                   103.43779420636164`, -10.30520950923996}, {-9.15, 
                   61.3410500366211, 11.042018186819659`}, {-9.15, 
                   7.74105003662109, 11.042018186819659`}, {-9.15, 5., 
                   31.86236027566968}, {9.15, 
                   103.43779420636164`, -10.30520950923996}, {9.15, 
                   61.3410500366211, 11.042018186819659`}, {9.15, 
                   7.74105003662109, 11.042018186819659`}, {9.15, 5., 
                   31.86236027566968}, {-17.4, 
                   138.54989911995327`, -4.5758099659879345`}, {17.4, 
                   138.54989911995327`, -4.5758099659879345`}, {17.4, 
                   116.50590051595594`, 3.274530053295555}, {-17.4, 
                   116.50590051595594`, 3.274530053295555}, {9.15, 
                   84.70831057151946, -0.8075022715863174}, {-9.15, 
                   84.70831057151946, -0.8075022715863174}, {9.15, 
                   43.04105003662109, 11.042018186819659`}, {-9.15, 
                   43.04105003662109, 11.042018186819659`}, {9.15, 
                   9.188228171767918, 23.0335016415534}, {-9.15, 
                   9.188228171767918, 23.0335016415534}, {-100, 0, -100}, {
                   100, 0, -100}, {100, 0, 100}, {-100, 0, 100}, {
                   19.92554863602669, 1.004620162157324, 
                   20.06071547386937}}, {SphereBox[2, 10.5], 
                   {RGBColor[0, 0, 1], PointSize[0.009], 
                    Point3DBox[{7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
                    19, 20}], 
                    {GrayLevel[0], Thickness[0.004], 
                    Line3DBox[{{2, 3}, {6, 13, 17, 6}, {10, 7, 4, 10}, {7, 8, 
                    9}, {10, 11, 12}, {13, 14, 15, 16}, {17, 18, 19, 20}}], 
                    BSplineCurve3DBox[{{17, 5, 10}, {13, 5, 7}, {3, 4, 5, 
                    6}, {7, 3, 10}},
                    
                    SplineWeights->{{1, 2, 3}, {1, 2, 3}, {1, 1, 3, 1}, {1, 1,
                     1}}], 
                    {RGBColor[1, 0, 0], Point3DBox[{2, 3, 4, 5, 6}], 
                    {PointSize[Large], Point3DBox[1], 
                    {RGBColor[0, 1, 0], Thickness[0.01], 
                    Polygon3DBox[{31, 32, 33, 34}]}}}}}}],
                 Boxed->False,
                 ImageSize->{700, 700},
                 PlotRange->{{-130, 130}, {-30, 300}, {-100, 100}},
                 SphericalRegion->True,
                 ViewAngle->All,
                 
                 ViewVector->
                  NCache[{{300, 200, 300 3^Rational[1, 2]}, {0, 150, 0}}, {{
                    300, 200, 519.6152422706632}, {0, 150, 0}}],
                 ViewVertical->{0, 1, 0}], 11->
                
                Graphics3DBox[
                 GraphicsComplex3DBox[{{0., 114.61921922155807`, 0.}, {0., 
                   173.81849643217066`, 5.450828054622107}, {0., 
                   163.33145389760654`, 2.8697548518161238`}, {0., 
                   162.9430449148449, 2.7741595480084946`}, {0., 
                   119.05282986278029`, -8.028109782253587}, {0., 
                   105.45244007174254`, -9.677169372394648}, {-17.4, 
                   151.58208216906712`, -0.022003088364654033`}, {-17.4, 
                   123.19889622134828`, -10.627886147177582`}, {-17.4, 
                   88.8205818886327, -23.47395572666387}, {17.4, 
                   151.58208216906712`, -0.022003088364654033`}, {17.4, 
                   123.19889622134828`, -10.627886147177582`}, {17.4, 
                   88.8205818886327, -23.47395572666387}, {-9.15, 
                   101.75244007174254`, -9.677169372394648}, {-9.15, 
                   61.34105003662109, 14.710523331698678`}, {-9.15, 
                   7.74105003662109, 14.710523331698678`}, {-9.15, 5., 
                   35.53086542054869}, {9.15, 
                   101.75244007174254`, -9.677169372394648}, {9.15, 
                   61.34105003662109, 14.710523331698678`}, {9.15, 
                   7.74105003662109, 14.710523331698678`}, {9.15, 5., 
                   35.53086542054869}, {-17.4, 
                   133.74613692385768`, -11.56795361656107}, {17.4, 
                   133.74613692385768`, -11.56795361656107}, {17.4, 
                   110.38915969958788`, -13.839405275168502`}, {-17.4, 
                   110.38915969958788`, -13.839405275168502`}, {9.15, 
                   83.77279620018427, 1.1732871273078906`}, {-9.15, 
                   83.77279620018427, 1.1732871273078906`}, {9.15, 
                   43.04105003662109, 14.710523331698678`}, {-9.15, 
                   43.04105003662109, 14.710523331698678`}, {9.15, 
                   9.188228171767918, 26.702006786432417`}, {-9.15, 
                   9.188228171767918, 26.702006786432417`}, {-100, 0, -100}, {
                   100, 0, -100}, {100, 0, 100}, {-100, 0, 100}, {
                   19.696362526826444`, 1.448009262932954, 
                   19.388140263893497`}}, {SphereBox[2, 10.5], 
                   {RGBColor[0, 0, 1], PointSize[0.009], 
                    Point3DBox[{7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
                    19, 20}], 
                    {GrayLevel[0], Thickness[0.004], 
                    Line3DBox[{{2, 3}, {6, 13, 17, 6}, {10, 7, 4, 10}, {7, 8, 
                    9}, {10, 11, 12}, {13, 14, 15, 16}, {17, 18, 19, 20}}], 
                    BSplineCurve3DBox[{{17, 5, 10}, {13, 5, 7}, {3, 4, 5, 
                    6}, {7, 3, 10}},
                    
                    SplineWeights->{{1, 2, 3}, {1, 2, 3}, {1, 1, 3, 1}, {1, 1,
                     1}}], 
                    {RGBColor[1, 0, 0], Point3DBox[{2, 3, 4, 5, 6}], 
                    {PointSize[Large], Point3DBox[1], 
                    {RGBColor[0, 1, 0], Thickness[0.01], 
                    Polygon3DBox[{31, 32, 33, 34}]}}}}}}],
                 Boxed->False,
                 ImageSize->{700, 700},
                 PlotRange->{{-130, 130}, {-30, 300}, {-100, 100}},
                 SphericalRegion->True,
                 ViewAngle->All,
                 
                 ViewVector->
                  NCache[{{300, 200, 300 3^Rational[1, 2]}, {0, 150, 0}}, {{
                    300, 200, 519.6152422706632}, {0, 150, 0}}],
                 ViewVertical->{0, 1, 0}], 12->
                
                Graphics3DBox[
                 GraphicsComplex3DBox[{{0., 113.90089811109085`, 0.}, {0., 
                   171.61291244298846`, 7.715255419101336}, {0., 
                   161.20851437333326`, 4.818964548322771}, {0., 
                   160.82316629667935`, 4.711694516071715}, {0., 
                   117.2788336347891, -7.40981912829783}, {0., 
                   103.70487048344813`, -9.263875321091835}, {-17.4, 
                   149.5517350545529, 1.5740460727282723`}, {-17.4, 
                   128.3359529477789, -20.058812952326385`}, {-17.4, 
                   102.63894953792395`, -46.26098873514836}, {17.4, 
                   149.5517350545529, 1.5740460727282723`}, {17.4, 
                   128.3359529477789, -20.058812952326385`}, {17.4, 
                   102.63894953792395`, -46.26098873514836}, {-9.15, 
                   100.00487048344814`, -9.263875321091835}, {-9.15, 
                   61.3410500366211, 17.809155326686035`}, {-9.15, 
                   7.74105003662109, 17.809155326686035`}, {-9.15, 5., 
                   38.62949741553605}, {9.15, 
                   100.00487048344814`, -9.263875321091835}, {9.15, 
                   61.3410500366211, 17.809155326686035`}, {9.15, 
                   7.74105003662109, 17.809155326686035`}, {9.15, 5., 
                   38.62949741553605}, {-17.4, 
                   131.64690336823554`, -18.76110362190909}, {17.4, 
                   131.64690336823554`, -18.76110362190909}, {17.4, 
                   111.00741284317135`, -30.075332372160773`}, {-17.4, 
                   111.00741284317135`, -30.075332372160773`}, {9.15, 
                   82.80274697956324, 2.7813289925381497`}, {-9.15, 
                   82.80274697956324, 2.7813289925381497`}, {9.15, 
                   43.04105003662109, 17.809155326686035`}, {-9.15, 
                   43.04105003662109, 17.809155326686035`}, {9.15, 
                   9.188228171767918, 29.800638781419774`}, {-9.15, 
                   9.188228171767918, 29.800638781419774`}, {-100, 0, -100}, {
                   100, 0, -100}, {100, 0, 100}, {-100, 0, 100}, {
                   19.96598742848746, 2.5552977068713947`, 
                   18.55047672161606}}, {SphereBox[2, 10.5], 
                   {RGBColor[0, 0, 1], PointSize[0.009], 
                    Point3DBox[{7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
                    19, 20}], 
                    {GrayLevel[0], Thickness[0.004], 
                    Line3DBox[{{2, 3}, {6, 13, 17, 6}, {10, 7, 4, 10}, {7, 8, 
                    9}, {10, 11, 12}, {13, 14, 15, 16}, {17, 18, 19, 20}}], 
                    BSplineCurve3DBox[{{17, 5, 10}, {13, 5, 7}, {3, 4, 5, 
                    6}, {7, 3, 10}},
                    
                    SplineWeights->{{1, 2, 3}, {1, 2, 3}, {1, 1, 3, 1}, {1, 1,
                     1}}], 
                    {RGBColor[1, 0, 0], Point3DBox[{2, 3, 4, 5, 6}], 
                    {PointSize[Large], Point3DBox[1], 
                    {RGBColor[0, 1, 0], Thickness[0.01], 
                    Polygon3DBox[{31, 32, 33, 34}]}}}}}}],
                 Boxed->False,
                 ImageSize->{700, 700},
                 PlotRange->{{-130, 130}, {-30, 300}, {-100, 100}},
                 SphericalRegion->True,
                 ViewAngle->All,
                 
                 ViewVector->
                  NCache[{{300, 200, 300 3^Rational[1, 2]}, {0, 150, 0}}, {{
                    300, 200, 519.6152422706632}, {0, 150, 0}}],
                 ViewVertical->{0, 1, 0}], 13->
                
                Graphics3DBox[
                 GraphicsComplex3DBox[{{0., 113.63268539355366`, 0.}, {0., 
                   169.48966577872022`, 9.32648455883942}, {0., 
                   159.16549895994615`, 6.1560619532355325`}, {0., 
                   158.78312241110268`, 6.038638893768722}, {0., 
                   115.57457239178889`, -7.230166825980882}, {0., 
                   102.02631353444704`, -9.263558557659247}, {-17.4, 
                   147.59860835743075`, 2.604014404364511}, {-17.4, 
                   136.01819550243715`, -25.39570056039716}, {-17.4, 
                   121.9917548496891, -59.30954673883787}, {17.4, 
                   147.59860835743075`, 2.604014404364511}, {17.4, 
                   136.01819550243715`, -25.39570056039716}, {17.4, 
                   121.9917548496891, -59.30954673883787}, {-9.15, 
                   98.32631353444704, -9.263558557659247}, {-9.15, 
                   61.34105003662109, 20.06100936748475}, {-9.15, 
                   7.74105003662109, 20.06100936748475}, {-9.15, 5., 
                   40.88135145633477}, {9.15, 
                   98.32631353444704, -9.263558557659247}, {9.15, 
                   61.34105003662109, 20.06100936748475}, {9.15, 
                   7.74105003662109, 20.06100936748475}, {9.15, 5., 
                   40.88135145633477}, {-17.4, 
                   131.6888447711989, -25.15075464004174}, {17.4, 
                   131.6888447711989, -25.15075464004174}, {17.4, 
                   116.21440301265457`, -42.975970417078635`}, {-17.4, 
                   116.21440301265457`, -42.975970417078635`}, {9.15, 
                   81.87100562227872, 3.7833890361548175`}, {-9.15, 
                   81.87100562227872, 3.7833890361548175`}, {9.15, 
                   43.04105003662109, 20.06100936748475}, {-9.15, 
                   43.04105003662109, 20.06100936748475}, {9.15, 
                   9.188228171767918, 32.05249282221849}, {-9.15, 
                   9.188228171767918, 32.05249282221849}, {-100, 0, -100}, {
                   100, 0, -100}, {100, 0, 100}, {-100, 0, 100}, {
                   20.47017616785454, 3.5988907833780344`, 
                   18.011072384476513`}}, {SphereBox[2, 10.5], 
                   {RGBColor[0, 0, 1], PointSize[0.009], 
                    Point3DBox[{7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
                    19, 20}], 
                    {GrayLevel[0], Thickness[0.004], 
                    Line3DBox[{{2, 3}, {6, 13, 17, 6}, {10, 7, 4, 10}, {7, 8, 
                    9}, {10, 11, 12}, {13, 14, 15, 16}, {17, 18, 19, 20}}], 
                    BSplineCurve3DBox[{{17, 5, 10}, {13, 5, 7}, {3, 4, 5, 
                    6}, {7, 3, 10}},
                    
                    SplineWeights->{{1, 2, 3}, {1, 2, 3}, {1, 1, 3, 1}, {1, 1,
                     1}}], 
                    {RGBColor[1, 0, 0], Point3DBox[{2, 3, 4, 5, 6}], 
                    {PointSize[Large], Point3DBox[1], 
                    {RGBColor[0, 1, 0], Thickness[0.01], 
                    Polygon3DBox[{31, 32, 33, 34}]}}}}}}],
                 Boxed->False,
                 ImageSize->{700, 700},
                 PlotRange->{{-130, 130}, {-30, 300}, {-100, 100}},
                 SphericalRegion->True,
                 ViewAngle->All,
                 
                 ViewVector->
                  NCache[{{300, 200, 300 3^Rational[1, 2]}, {0, 150, 0}}, {{
                    300, 200, 519.6152422706632}, {0, 150, 0}}],
                 ViewVertical->{0, 1, 0}], 14->
                
                Graphics3DBox[
                 GraphicsComplex3DBox[{{0., 113.54707207589064`, 0.}, {0., 
                   167.61910290220393`, 10.284105840365788`}, {0., 
                   157.366177888396, 6.890357372781386}, {0., 
                   156.98643992492163`, 6.764662985093077}, {0., 
                   114.07605005231802`, -7.438802823686087}, {0., 
                   100.5506564182817, -9.619107170416106}, {-17.4, 
                   145.87910449329635`, 3.0881021452099766`}, {-17.4, 
                   143.5350586568622, -27.12109263248471}, {-17.4, 
                   140.69590082857394`, -63.71110742923042}, {17.4, 
                   145.87910449329635`, 3.0881021452099766`}, {17.4, 
                   143.5350586568622, -27.12109263248471}, {17.4, 
                   140.69590082857394`, -63.71110742923042}, {-9.15, 
                   96.85065641828172, -9.619107170416106}, {-9.15, 
                   61.341050036621105`, 21.47603480738372}, {-9.15, 
                   7.74105003662109, 21.47603480738372}, {-9.15, 5., 
                   42.29637689623374}, {9.15, 
                   96.85065641828172, -9.619107170416106}, {9.15, 
                   61.341050036621105`, 21.47603480738372}, {9.15, 
                   7.74105003662109, 21.47603480738372}, {9.15, 5., 
                   42.29637689623374}, {-17.4, 
                   132.9142263260174, -30.12159774310856}, {17.4, 
                   132.9142263260174, -30.12159774310856}, {17.4, 
                   123.17516400875581`, -51.68975771954817}, {-17.4, 
                   123.17516400875581`, -51.68975771954817}, {9.15, 
                   81.05189086711916, 4.215595828181275}, {-9.15, 
                   81.05189086711916, 4.215595828181275}, {9.15, 
                   43.0410500366211, 21.47603480738372}, {-9.15, 
                   43.0410500366211, 21.47603480738372}, {9.15, 
                   9.188228171767918, 33.46751826211746}, {-9.15, 
                   9.188228171767918, 33.46751826211746}, {-100, 0, -100}, {
                   100, 0, -100}, {100, 0, 100}, {-100, 0, 100}, {
                   20.97148241798458, 4.175617838470816, 
                   17.93565157951376}}, {SphereBox[2, 10.5], 
                   {RGBColor[0, 0, 1], PointSize[0.009], 
                    Point3DBox[{7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
                    19, 20}], 
                    {GrayLevel[0], Thickness[0.004], 
                    Line3DBox[{{2, 3}, {6, 13, 17, 6}, {10, 7, 4, 10}, {7, 8, 
                    9}, {10, 11, 12}, {13, 14, 15, 16}, {17, 18, 19, 20}}], 
                    BSplineCurve3DBox[{{17, 5, 10}, {13, 5, 7}, {3, 4, 5, 
                    6}, {7, 3, 10}},
                    
                    SplineWeights->{{1, 2, 3}, {1, 2, 3}, {1, 1, 3, 1}, {1, 1,
                     1}}], 
                    {RGBColor[1, 0, 0], Point3DBox[{2, 3, 4, 5, 6}], 
                    {PointSize[Large], Point3DBox[1], 
                    {RGBColor[0, 1, 0], Thickness[0.01], 
                    Polygon3DBox[{31, 32, 33, 34}]}}}}}}],
                 Boxed->False,
                 ImageSize->{700, 700},
                 PlotRange->{{-130, 130}, {-30, 300}, {-100, 100}},
                 SphericalRegion->True,
                 ViewAngle->All,
                 
                 ViewVector->
                  NCache[{{300, 200, 300 3^Rational[1, 2]}, {0, 150, 0}}, {{
                    300, 200, 519.6152422706632}, {0, 150, 0}}],
                 ViewVertical->{0, 1, 0}], 15->
                
                Graphics3DBox[
                 GraphicsComplex3DBox[{{0., 113.4923260524751, 0.}, {0., 
                   166.1567319502217, 10.754782127299178`}, {0., 
                   155.95987440793613`, 7.196117172244572}, {0., 
                   155.58221301748114`, 7.064314766501807}, {0., 
                   112.90647589606372`, -7.829357082430436}, {0., 
                   99.39910446531789, -10.11866200573605}, {-17.4, 
                   144.53561734667176`, 3.209094398525986}, {-17.4, 
                   149.25601030414842`, -26.720955556778215`}, {-17.4, 
                   154.97344995891387`, -62.97286424851631}, {17.4, 
                   144.53561734667176`, 3.209094398525986}, {17.4, 
                   149.25601030414842`, -26.720955556778215`}, {17.4, 
                   154.97344995891387`, -62.97286424851631}, {-9.15, 
                   95.69910446531789, -10.11866200573605}, {-9.15, 
                   61.341050036621084`, 22.24434304439346}, {-9.15, 
                   7.74105003662109, 22.24434304439346}, {-9.15, 5., 
                   43.06468513324348}, {9.15, 
                   95.69910446531789, -10.11866200573605}, {9.15, 
                   61.341050036621084`, 22.24434304439346}, {9.15, 
                   7.74105003662109, 22.24434304439346}, {9.15, 5., 
                   43.06468513324348}, {-17.4, 
                   134.40465918563535`, -33.49979445967133}, {17.4, 
                   134.40465918563535`, -33.49979445967133}, {17.4, 
                   129.50502928432076`, -56.70027187258679}, {-17.4, 
                   129.50502928432076`, -56.70027187258679}, {9.15, 
                   80.41268194407567, 4.280132614024961}, {-9.15, 
                   80.41268194407567, 4.280132614024961}, {9.15, 
                   43.04105003662109, 22.24434304439346}, {-9.15, 
                   43.04105003662109, 22.24434304439346}, {9.15, 
                   9.188228171767918, 34.23582649912719}, {-9.15, 
                   9.188228171767918, 34.23582649912719}, {-100, 0, -100}, {
                   100, 0, -100}, {100, 0, 100}, {-100, 0, 100}, {
                   21.341101939287213`, 4.341280643908919, 
                   18.139608295378295`}}, {SphereBox[2, 10.5], 
                   {RGBColor[0, 0, 1], PointSize[0.009], 
                    Point3DBox[{7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
                    19, 20}], 
                    {GrayLevel[0], Thickness[0.004], 
                    Line3DBox[{{2, 3}, {6, 13, 17, 6}, {10, 7, 4, 10}, {7, 8, 
                    9}, {10, 11, 12}, {13, 14, 15, 16}, {17, 18, 19, 20}}], 
                    BSplineCurve3DBox[{{17, 5, 10}, {13, 5, 7}, {3, 4, 5, 
                    6}, {7, 3, 10}},
                    
                    SplineWeights->{{1, 2, 3}, {1, 2, 3}, {1, 1, 3, 1}, {1, 1,
                     1}}], 
                    {RGBColor[1, 0, 0], Point3DBox[{2, 3, 4, 5, 6}], 
                    {PointSize[Large], Point3DBox[1], 
                    {RGBColor[0, 1, 0], Thickness[0.01], 
                    Polygon3DBox[{31, 32, 33, 34}]}}}}}}],
                 Boxed->False,
                 ImageSize->{700, 700},
                 PlotRange->{{-130, 130}, {-30, 300}, {-100, 100}},
                 SphericalRegion->True,
                 ViewAngle->All,
                 
                 ViewVector->
                  NCache[{{300, 200, 300 3^Rational[1, 2]}, {0, 150, 0}}, {{
                    300, 200, 519.6152422706632}, {0, 150, 0}}],
                 ViewVertical->{0, 1, 0}], 16->
                
                Graphics3DBox[
                 GraphicsComplex3DBox[{{0., 113.43886262636009`, 0.}, {0., 
                   165.2262681397184, 10.93977629911115}, {0., 
                   155.06525733665137`, 7.280014085530157}, {0., 
                   154.68892360320444`, 7.144467336879009}, {0., 
                   112.16321172370172`, -8.17231526070071}, {0., 
                   98.66737540140153, -10.528668791409311`}, {-17.4, 
                   143.68116189988183`, 3.1797249388329334`}, {-17.4, 
                   152.64812026822474`, -25.76304026458889}, {-17.4, 
                   163.50908964506255`, -60.819128811307735`}, {17.4, 
                   143.68116189988183`, 3.1797249388329334`}, {17.4, 
                   152.64812026822474`, -25.76304026458889}, {17.4, 
                   163.50908964506255`, -60.819128811307735`}, {-9.15, 
                   94.96737540140153, -10.528668791409311`}, {-9.15, 
                   61.34105003662109, 22.59398572875142}, {-9.15, 
                   7.74105003662109, 22.59398572875142}, {-9.15, 5., 
                   43.41432781760144}, {9.15, 
                   94.96737540140153, -10.528668791409311`}, {9.15, 
                   61.34105003662109, 22.59398572875142}, {9.15, 
                   7.74105003662109, 22.59398572875142}, {9.15, 5., 
                   43.41432781760144}, {-17.4, 
                   135.51993599623484`, -35.400455819813125`}, {17.4, 
                   135.51993599623484`, -35.400455819813125`}, {17.4, 
                   133.7377650187144, -59.07576967675485}, {-17.4, 
                   133.7377650187144, -59.07576967675485}, {9.15, 
                   80.00651030266448, 4.208105465441859}, {-9.15, 
                   80.00651030266448, 4.208105465441859}, {9.15, 
                   43.04105003662109, 22.59398572875142}, {-9.15, 
                   43.04105003662109, 22.59398572875142}, {9.15, 
                   9.188228171767918, 34.58546918348515}, {-9.15, 
                   9.188228171767918, 34.58546918348515}, {-100, 0, -100}, {
                   100, 0, -100}, {100, 0, 100}, {-100, 0, 100}, {
                   21.550356834521118`, 4.3255113529064175`, 
                   18.3646324816147}}, {SphereBox[2, 10.5], 
                   {RGBColor[0, 0, 1], PointSize[0.009], 
                    Point3DBox[{7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
                    19, 20}], 
                    {GrayLevel[0], Thickness[0.004], 
                    Line3DBox[{{2, 3}, {6, 13, 17, 6}, {10, 7, 4, 10}, {7, 8, 
                    9}, {10, 11, 12}, {13, 14, 15, 16}, {17, 18, 19, 20}}], 
                    BSplineCurve3DBox[{{17, 5, 10}, {13, 5, 7}, {3, 4, 5, 
                    6}, {7, 3, 10}},
                    
                    SplineWeights->{{1, 2, 3}, {1, 2, 3}, {1, 1, 3, 1}, {1, 1,
                     1}}], 
                    {RGBColor[1, 0, 0], Point3DBox[{2, 3, 4, 5, 6}], 
                    {PointSize[Large], Point3DBox[1], 
                    {RGBColor[0, 1, 0], Thickness[0.01], 
                    Polygon3DBox[{31, 32, 33, 34}]}}}}}}],
                 Boxed->False,
                 ImageSize->{700, 700},
                 PlotRange->{{-130, 130}, {-30, 300}, {-100, 100}},
                 SphericalRegion->True,
                 ViewAngle->All,
                 
                 ViewVector->
                  NCache[{{300, 200, 300 3^Rational[1, 2]}, {0, 150, 0}}, {{
                    300, 200, 519.6152422706632}, {0, 150, 0}}],
                 ViewVertical->{0, 1, 0}], 17->
                
                Graphics3DBox[
                 GraphicsComplex3DBox[{{0., 113.4149053524669, 0.}, {0., 
                   164.90702013721864`, 10.984376360234718`}, {0., 
                   154.75833983273083`, 7.290558812317498}, {0., 
                   154.38246278441645`, 7.153750754987231}, {0., 
                   111.90835632489339`, -8.305559723332996}, {0., 
                   98.41649010862614, -10.684539757369942`}, {-17.4, 
                   143.38805912122132`, 3.1521150780769087`}, {-17.4, 
                   153.7512694639891, -25.32057133173612}, {-17.4, 
                   166.30340872404113`, -59.80729051457896}, {17.4, 
                   143.38805912122132`, 3.1521150780769087`}, {17.4, 
                   153.7512694639891, -25.32057133173612}, {17.4, 
                   166.30340872404113`, -59.80729051457896}, {-9.15, 
                   94.71649010862615, -10.684539757369942`}, {-9.15, 
                   61.3410500366211, 22.6909003146351}, {-9.15, 
                   7.74105003662109, 22.6909003146351}, {-9.15, 5., 
                   43.51124240348512}, {9.15, 
                   94.71649010862615, -10.684539757369942`}, {9.15, 
                   61.3410500366211, 22.6909003146351}, {9.15, 
                   7.74105003662109, 22.6909003146351}, {9.15, 5., 
                   43.51124240348512}, {-17.4, 
                   135.92462779205079`, -36.00684398173459}, {17.4, 
                   135.92462779205079`, -36.00684398173459}, {17.4, 
                   135.206661016611, -59.74862943881468}, {-17.4, 
                   135.206661016611, -59.74862943881468}, {9.15, 
                   79.86724770370864, 4.164702647547555}, {-9.15, 
                   79.86724770370864, 4.164702647547555}, {9.15, 
                   43.04105003662109, 22.6909003146351}, {-9.15, 
                   43.04105003662109, 22.6909003146351}, {9.15, 
                   9.188228171767918, 34.68238376936883}, {-9.15, 
                   9.188228171767918, 34.68238376936883}, {-100, 0, -100}, {
                   100, 0, -100}, {100, 0, 100}, {-100, 0, 100}, {
                   21.616108726636902`, 4.301262556751254, 
                   18.454633169885646`}}, {SphereBox[2, 10.5], 
                   {RGBColor[0, 0, 1], PointSize[0.009], 
                    Point3DBox[{7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
                    19, 20}], 
                    {GrayLevel[0], Thickness[0.004], 
                    Line3DBox[{{2, 3}, {6, 13, 17, 6}, {10, 7, 4, 10}, {7, 8, 
                    9}, {10, 11, 12}, {13, 14, 15, 16}, {17, 18, 19, 20}}], 
                    BSplineCurve3DBox[{{17, 5, 10}, {13, 5, 7}, {3, 4, 5, 
                    6}, {7, 3, 10}},
                    
                    SplineWeights->{{1, 2, 3}, {1, 2, 3}, {1, 1, 3, 1}, {1, 1,
                     1}}], 
                    {RGBColor[1, 0, 0], Point3DBox[{2, 3, 4, 5, 6}], 
                    {PointSize[Large], Point3DBox[1], 
                    {RGBColor[0, 1, 0], Thickness[0.01], 
                    Polygon3DBox[{31, 32, 33, 34}]}}}}}}],
                 Boxed->False,
                 ImageSize->{700, 700},
                 PlotRange->{{-130, 130}, {-30, 300}, {-100, 100}},
                 SphericalRegion->True,
                 ViewAngle->All,
                 
                 ViewVector->
                  NCache[{{300, 200, 300 3^Rational[1, 2]}, {0, 150, 0}}, {{
                    300, 200, 519.6152422706632}, {0, 150, 0}}],
                 ViewVertical->{0, 1, 0}], 18->
                
                Graphics3DBox[
                 GraphicsComplex3DBox[{{0., 113.04271898468149`, 0.}, {0., 
                   165.10343393131743`, 10.659634674116656`}, {0., 
                   154.91932614378987`, 7.064645303893048}, {0., 
                   154.54213696647406`, 6.931497549440323}, {0., 
                   111.91975992978468`, -8.11419870371775}, {0., 
                   98.41649010862614, -10.427573756965415`}, {-17.4, 
                   143.50935352998587`, 3.03692573169808}, {-17.4, 
                   150.67053403396346`, -26.404668888659216`}, {-17.4, 
                   159.34430711963924`, -62.06495016150122}, {17.4, 
                   143.50935352998587`, 3.03692573169808}, {17.4, 
                   150.67053403396346`, -26.404668888659216`}, {17.4, 
                   159.34430711963924`, -62.06495016150122}, {-9.15, 
                   94.71649010862613, -10.427573756965415`}, {-9.15, 
                   61.341050036621084`, 22.947866315039626`}, {-9.15, 
                   7.74105003662109, 22.947866315039626`}, {-9.15, 5., 
                   43.768208403889645`}, {9.15, 
                   94.71649010862613, -10.427573756965415`}, {9.15, 
                   61.341050036621084`, 22.947866315039626`}, {9.15, 
                   7.74105003662109, 22.947866315039626`}, {9.15, 5., 
                   43.768208403889645`}, {-17.4, 
                   134.54824442140932`, -34.687783755242165`}, {17.4, 
                   134.54824442140932`, -34.687783755242165`}, {17.4, 
                   131.4751507808436, -58.21080560398722}, {-17.4, 
                   131.4751507808436, -58.21080560398722}, {9.15, 
                   79.86724770370864, 4.421668647952082}, {-9.15, 
                   79.86724770370864, 4.421668647952082}, {9.15, 
                   43.04105003662109, 22.947866315039626`}, {-9.15, 
                   43.04105003662109, 22.947866315039626`}, {9.15, 
                   9.188228171767918, 34.93934976977336}, {-9.15, 
                   9.188228171767918, 34.93934976977336}, {-100, 0, -100}, {
                   100, 0, -100}, {100, 0, 100}, {-100, 0, 100}, {
                   21.37638763616008, 4.3795606186730005`, 
                   18.136614017487084`}}, {SphereBox[2, 10.5], 
                   {RGBColor[0, 0, 1], PointSize[0.009], 
                    Point3DBox[{7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
                    19, 20}], 
                    {GrayLevel[0], Thickness[0.004], 
                    Line3DBox[{{2, 3}, {6, 13, 17, 6}, {10, 7, 4, 10}, {7, 8, 
                    9}, {10, 11, 12}, {13, 14, 15, 16}, {17, 18, 19, 20}}], 
                    BSplineCurve3DBox[{{17, 5, 10}, {13, 5, 7}, {3, 4, 5, 
                    6}, {7, 3, 10}},
                    
                    SplineWeights->{{1, 2, 3}, {1, 2, 3}, {1, 1, 3, 1}, {1, 1,
                     1}}], 
                    {RGBColor[1, 0, 0], Point3DBox[{2, 3, 4, 5, 6}], 
                    {PointSize[Large], Point3DBox[1], 
                    {RGBColor[0, 1, 0], Thickness[0.01], 
                    Polygon3DBox[{31, 32, 33, 34}]}}}}}}],
                 Boxed->False,
                 ImageSize->{700, 700},
                 PlotRange->{{-130, 130}, {-30, 300}, {-100, 100}},
                 SphericalRegion->True,
                 ViewAngle->All,
                 
                 ViewVector->
                  NCache[{{300, 200, 300 3^Rational[1, 2]}, {0, 150, 0}}, {{
                    300, 200, 519.6152422706632}, {0, 150, 0}}],
                 ViewVertical->{0, 1, 0}], 19->
                
                Graphics3DBox[
                 GraphicsComplex3DBox[{{0., 111.93241265950186`, 0.}, {0., 
                   165.64613002125105`, 9.432891529240996}, {0., 
                   155.3641262256801, 6.128288989166796}, {0., 
                   154.9833112702886, 6.005896302497382}, {0., 
                   111.95122131104728`, -7.824477291146501}, {0., 
                   98.41649010862614, -9.94604540888581}, {-17.4, 
                   143.84447382508677`, 2.425910217416998}, {-17.4, 
                   141.30685585523088`, -27.76764033628676}, {-17.4, 
                   138.23323937028994`, -64.33870651849561}, {17.4, 
                   143.84447382508677`, 2.425910217416998}, {17.4, 
                   141.30685585523088`, -27.76764033628676}, {17.4, 
                   138.23323937028994`, -64.33870651849561}, {-9.15, 
                   94.71649010862615, -9.94604540888581}, {-9.15, 
                   61.3410500366211, 23.429394663119233`}, {-9.15, 
                   7.74105003662109, 23.429394663119233`}, {-9.15, 5., 
                   44.24973675196925}, {9.15, 
                   94.71649010862615, -9.94604540888581}, {9.15, 
                   61.3410500366211, 23.429394663119233`}, {9.15, 
                   7.74105003662109, 23.429394663119233`}, {9.15, 5., 
                   44.24973675196925}, {-17.4, 
                   131.00354636312792`, -30.437134402361266`}, {17.4, 
                   131.00354636312792`, -30.437134402361266`}, {17.4, 
                   121.34313784739666`, -52.01380932094645}, {-17.4, 
                   121.34313784739666`, -52.01380932094645}, {9.15, 
                   79.86724770370864, 4.903196996031687}, {-9.15, 
                   79.86724770370864, 4.903196996031687}, {9.15, 
                   43.0410500366211, 23.429394663119233`}, {-9.15, 
                   43.0410500366211, 23.429394663119233`}, {9.15, 
                   9.188228171767918, 35.420878117852965`}, {-9.15, 
                   9.188228171767918, 35.420878117852965`}, {-100, 0, -100}, {
                   100, 0, -100}, {100, 0, 100}, {-100, 0, 100}, {
                   20.645418115627198`, 4.320602986798776, 
                   17.464602128828425`}}, {SphereBox[2, 10.5], 
                   {RGBColor[0, 0, 1], PointSize[0.009], 
                    Point3DBox[{7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
                    19, 20}], 
                    {GrayLevel[0], Thickness[0.004], 
                    Line3DBox[{{2, 3}, {6, 13, 17, 6}, {10, 7, 4, 10}, {7, 8, 
                    9}, {10, 11, 12}, {13, 14, 15, 16}, {17, 18, 19, 20}}], 
                    BSplineCurve3DBox[{{17, 5, 10}, {13, 5, 7}, {3, 4, 5, 
                    6}, {7, 3, 10}},
                    
                    SplineWeights->{{1, 2, 3}, {1, 2, 3}, {1, 1, 3, 1}, {1, 1,
                     1}}], 
                    {RGBColor[1, 0, 0], Point3DBox[{2, 3, 4, 5, 6}], 
                    {PointSize[Large], Point3DBox[1], 
                    {RGBColor[0, 1, 0], Thickness[0.01], 
                    Polygon3DBox[{31, 32, 33, 34}]}}}}}}],
                 Boxed->False,
                 ImageSize->{700, 700},
                 PlotRange->{{-130, 130}, {-30, 300}, {-100, 100}},
                 SphericalRegion->True,
                 ViewAngle->All,
                 
                 ViewVector->
                  NCache[{{300, 200, 300 3^Rational[1, 2]}, {0, 150, 0}}, {{
                    300, 200, 519.6152422706632}, {0, 150, 0}}],
                 ViewVertical->{0, 1, 0}], 20->
                
                Graphics3DBox[
                 GraphicsComplex3DBox[{{0., 110.3574625844847, 0.}, {0., 
                   166.40816481241376`, 6.686634330778549}, {0., 
                   155.98867667967173`, 3.8451088511025038`}, {0., 
                   155.6027697117924, 3.7398671666700576`}, {0., 
                   111.99528234142763`, -8.15244317419636}, {0., 
                   98.41649010862614, -9.970794487449584}, {-17.4, 
                   144.31499090132186`, 0.6615478970210091}, {-17.4, 
                   127.40302128708083`, -24.47955955207495}, {-17.4, 
                   106.9188864737922, -54.93099992771262}, {17.4, 
                   144.31499090132186`, 0.6615478970210091}, {17.4, 
                   127.40302128708083`, -24.47955955207495}, {17.4, 
                   106.9188864737922, -54.93099992771262}, {-9.15, 
                   94.71649010862613, -9.970794487449584}, {-9.15, 
                   61.34105003662109, 23.404645584555457`}, {-9.15, 
                   7.74105003662109, 23.404645584555457`}, {-9.15, 5., 
                   44.22498767340548}, {9.15, 
                   94.71649010862613, -9.970794487449584}, {9.15, 
                   61.34105003662109, 23.404645584555457`}, {9.15, 
                   7.74105003662109, 23.404645584555457`}, {9.15, 5., 
                   44.22498767340548}, {-17.4, 
                   127.28453308460755`, -22.926517366928195`}, {17.4, 
                   127.28453308460755`, -22.926517366928195`}, {17.4, 
                   109.15225117481747`, -37.91382942561617}, {-17.4, 
                   109.15225117481747`, -37.91382942561617}, {9.15, 
                   79.86724770370864, 4.878447917467913}, {-9.15, 
                   79.86724770370864, 4.878447917467913}, {9.15, 
                   43.04105003662109, 23.404645584555457`}, {-9.15, 
                   43.04105003662109, 23.404645584555457`}, {9.15, 
                   9.188228171767918, 35.39612903928919}, {-9.15, 
                   9.188228171767918, 35.39612903928919}, {-100, 0, -100}, {
                   100, 0, -100}, {100, 0, 100}, {-100, 0, 100}, {
                   19.548929462048203`, 3.41227722834563, 
                   17.27643923370258}}, {SphereBox[2, 10.5], 
                   {RGBColor[0, 0, 1], PointSize[0.009], 
                    Point3DBox[{7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
                    19, 20}], 
                    {GrayLevel[0], Thickness[0.004], 
                    Line3DBox[{{2, 3}, {6, 13, 17, 6}, {10, 7, 4, 10}, {7, 8, 
                    9}, {10, 11, 12}, {13, 14, 15, 16}, {17, 18, 19, 20}}], 
                    BSplineCurve3DBox[{{17, 5, 10}, {13, 5, 7}, {3, 4, 5, 
                    6}, {7, 3, 10}},
                    
                    SplineWeights->{{1, 2, 3}, {1, 2, 3}, {1, 1, 3, 1}, {1, 1,
                     1}}], 
                    {RGBColor[1, 0, 0], Point3DBox[{2, 3, 4, 5, 6}], 
                    {PointSize[Large], Point3DBox[1], 
                    {RGBColor[0, 1, 0], Thickness[0.01], 
                    Polygon3DBox[{31, 32, 33, 34}]}}}}}}],
                 Boxed->False,
                 ImageSize->{700, 700},
                 PlotRange->{{-130, 130}, {-30, 300}, {-100, 100}},
                 SphericalRegion->True,
                 ViewAngle->All,
                 
                 ViewVector->
                  NCache[{{300, 200, 300 3^Rational[1, 2]}, {0, 150, 0}}, {{
                    300, 200, 519.6152422706632}, {0, 150, 0}}],
                 ViewVertical->{0, 1, 0}], 21->
                
                Graphics3DBox[
                 GraphicsComplex3DBox[{{0., 109.2591935282009, 0.}, {0., 
                   167.21721331153526`, 2.0437539274765175`}, {0., 
                   156.65173060849855`, -0.1946774991773701}, {0., 
                   156.260416434312, -0.27758236683121673`}, {0., 
                   112.04191475123235`, -9.645832411716007}, {0., 
                   98.41649010862614, -11.073348894513709`}, {-17.4, 
                   144.81447683935554`, -2.7025497457062624`}, {-17.4, 
                   116.10699277921853`, -12.396380718906682`}, {-17.4, 
                   81.33588172288097, -24.137753547832602`}, {17.4, 
                   144.81447683935554`, -2.7025497457062624`}, {17.4, 
                   116.10699277921853`, -12.396380718906682`}, {17.4, 
                   81.33588172288097, -24.137753547832602`}, {-9.15, 
                   94.71649010862615, -11.073348894513709`}, {-9.15, 
                   61.3410500366211, 22.302091177491334`}, {-9.15, 
                   7.74105003662109, 22.302091177491334`}, {-9.15, 5., 
                   43.12243326634135}, {9.15, 
                   94.71649010862615, -11.073348894513709`}, {9.15, 
                   61.3410500366211, 22.302091177491334`}, {9.15, 
                   7.74105003662109, 22.302091177491334`}, {9.15, 5., 
                   43.12243326634135}, {-17.4, 
                   126.65695694392647`, -13.010646370969424`}, {17.4, 
                   126.65695694392647`, -13.010646370969424`}, {17.4, 
                   103.37447569585467`, -15.357767047335901`}, {-17.4, 
                   103.37447569585467`, -15.357767047335901`}, {9.15, 
                   79.86724770370864, 3.7758935104037885`}, {-9.15, 
                   79.86724770370864, 3.7758935104037885`}, {9.15, 
                   43.04105003662109, 22.302091177491334`}, {-9.15, 
                   43.04105003662109, 22.302091177491334`}, {9.15, 
                   9.188228171767918, 34.29357463222507}, {-9.15, 
                   9.188228171767918, 34.29357463222507}, {-100, 0, -100}, {
                   100, 0, -100}, {100, 0, 100}, {-100, 0, 100}, {
                   18.633005181220067`, 1.8801349951501873`, 
                   17.892657186069883`}}, {SphereBox[2, 10.5], 
                   {RGBColor[0, 0, 1], PointSize[0.009], 
                    Point3DBox[{7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
                    19, 20}], 
                    {GrayLevel[0], Thickness[0.004], 
                    Line3DBox[{{2, 3}, {6, 13, 17, 6}, {10, 7, 4, 10}, {7, 8, 
                    9}, {10, 11, 12}, {13, 14, 15, 16}, {17, 18, 19, 20}}], 
                    BSplineCurve3DBox[{{17, 5, 10}, {13, 5, 7}, {3, 4, 5, 
                    6}, {7, 3, 10}},
                    
                    SplineWeights->{{1, 2, 3}, {1, 2, 3}, {1, 1, 3, 1}, {1, 1,
                     1}}], 
                    {RGBColor[1, 0, 0], Point3DBox[{2, 3, 4, 5, 6}], 
                    {PointSize[Large], Point3DBox[1], 
                    {RGBColor[0, 1, 0], Thickness[0.01], 
                    Polygon3DBox[{31, 32, 33, 34}]}}}}}}],
                 Boxed->False,
                 ImageSize->{700, 700},
                 PlotRange->{{-130, 130}, {-30, 300}, {-100, 100}},
                 SphericalRegion->True,
                 ViewAngle->All,
                 
                 ViewVector->
                  NCache[{{300, 200, 300 3^Rational[1, 2]}, {0, 150, 0}}, {{
                    300, 200, 519.6152422706632}, {0, 150, 0}}],
                 ViewVertical->{0, 1, 0}], 22->
                Graphics3DBox[
                 GraphicsComplex3DBox[{{0., 109.88112274383153`, 0.}, {0., 
                   167.90379067483804`, -3.7174847721013986`}, {0., 
                   157.21439105479053`, -5.259151325843813}, {0., 
                   156.81848736515914`, -5.3162500870935325`}, {0., 
                   112.08137043681212`, -11.768410108311787`}, {0., 
                   98.41649010862614, -12.748739449072142`}, {-17.4, 
                   145.238304443441, -6.9863888536478145`}, {-17.4, 
                   117.56074000886056`, 5.344159673066153}, {-17.4, 
                   84.03708935707502, 20.27918049585172}, {17.4, 
                   145.238304443441, -6.9863888536478145`}, {17.4, 
                   117.56074000886056`, 5.344159673066153}, {17.4, 
                   84.03708935707502, 20.27918049585172}, {-9.15, 
                   94.71649010862613, -12.748739449072142`}, {-9.15, 
                   61.341050036621084`, 20.6267006229329}, {-9.15, 
                   7.74105003662109, 20.6267006229329}, {-9.15, 5., 
                   41.44704271178292}, {9.15, 
                   94.71649010862613, -12.748739449072142`}, {9.15, 
                   61.341050036621084`, 20.6267006229329}, {9.15, 
                   7.74105003662109, 20.6267006229329}, {9.15, 5., 
                   41.44704271178292}, {-17.4, 
                   131.75896339860859`, -3.2727235566399067`}, {17.4, 
                   131.75896339860859`, -3.2727235566399067`}, {17.4, 
                   112.18810597363431`, 9.361663484262616}, {-17.4, 
                   112.18810597363431`, 9.361663484262616}, {9.15, 
                   79.86724770370864, 2.1005029558453554`}, {-9.15, 
                   79.86724770370864, 2.1005029558453554`}, {9.15, 
                   43.04105003662109, 20.6267006229329}, {-9.15, 
                   43.04105003662109, 20.6267006229329}, {9.15, 
                   9.188228171767918, 32.61818407766663}, {-9.15, 
                   9.188228171767918, 32.61818407766663}, {-100, 0, -100}, {
                   100, 0, -100}, {100, 0, 100}, {-100, 0, 100}, {
                   18.726569189489446`, 1.7816892753122056`, 
                   18.084666914177248`}}, {SphereBox[2, 10.5], 
                   {RGBColor[0, 0, 1], PointSize[0.009], 
                    Point3DBox[{7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
                    19, 20}], 
                    {GrayLevel[0], Thickness[0.004], 
                    Line3DBox[{{2, 3}, {6, 13, 17, 6}, {10, 7, 4, 10}, {7, 8, 
                    9}, {10, 11, 12}, {13, 14, 15, 16}, {17, 18, 19, 20}}], 
                    BSplineCurve3DBox[{{17, 5, 10}, {13, 5, 7}, {3, 4, 5, 
                    6}, {7, 3, 10}},
                    
                    SplineWeights->{{1, 2, 3}, {1, 2, 3}, {1, 1, 3, 1}, {1, 1,
                     1}}], 
                    {RGBColor[1, 0, 0], Point3DBox[{2, 3, 4, 5, 6}], 
                    {PointSize[Large], Point3DBox[1], 
                    {RGBColor[0, 1, 0], Thickness[0.01], 
                    Polygon3DBox[{31, 32, 33, 34}]}}}}}}],
                 Boxed->False,
                 ImageSize->{700, 700},
                 PlotRange->{{-130, 130}, {-30, 300}, {-100, 100}},
                 SphericalRegion->True,
                 ViewAngle->All,
                 
                 ViewVector->
                  NCache[{{300, 200, 300 3^Rational[1, 2]}, {0, 150, 0}}, {{
                    300, 200, 519.6152422706632}, {0, 150, 0}}],
                 ViewVertical->{0, 1, 0}], 23->
                
                Graphics3DBox[
                 GraphicsComplex3DBox[{{0., 115.37142619442012`, 0.}, {0., 
                   171.73925207821867`, -7.796587041335022}, {0., 
                   160.97705944651054`, -8.69947671234013}, {0., 
                   160.57845971941023`, -8.732917070525506}, {0., 
                   115.53669055707631`, -12.511677545472812`}, {0., 
                   101.85133013836827`, -13.144852252847892`}, {-17.4, 
                   148.91941770172647`, -9.711047547447706}, {-17.4, 
                   137.5611346943804, 18.379509711621292`}, {-17.4, 
                   123.80374240495465`, 52.40338599570817}, {17.4, 
                   148.91941770172647`, -9.711047547447706}, {17.4, 
                   137.5611346943804, 18.379509711621292`}, {17.4, 
                   123.80374240495465`, 52.40338599570817}, {-9.15, 
                   98.15147238144252, -13.17729571931312}, {-9.15, 
                   62.79157528593186, 18.087983383789382`}, {-9.15, 
                   9.193635888304627, 17.61799154526607}, {-9.15, 5., 
                   38.19500342834384}, {9.15, 
                   98.15147238144252, -13.17729571931312}, {9.15, 
                   62.79157528593186, 18.087983383789382`}, {9.15, 
                   9.193635888304627, 17.61799154526607}, {9.15, 5., 
                   38.19500342834384}, {-17.4, 145.15812630982515`, 
                   3.913012501618144}, {17.4, 145.15812630982515`, 
                   3.913012501618144}, {17.4, 138.21167154707592`, 
                   26.075910521684}, {-17.4, 138.21167154707592`, 
                   26.075910521684}, {9.15, 82.41931477538905, 
                   0.7331038816434999}, {-9.15, 82.41931477538905, 
                   0.7331038816434999}, {9.15, 44.49227881248824, 
                   17.927519752353252`}, {-9.15, 44.49227881248824, 
                   17.927519752353252`}, {9.15, 9.796754733831719, 
                   29.681417578452912`}, {-9.15, 9.796754733831719, 
                   29.681417578452912`}, {-100, 0, -100}, {100, 0, -100}, {
                   100, 0, 100}, {-100, 0, 100}, {20.519605273767024`, 
                   3.024963538480777, 18.634428735286235`}}, {
                   SphereBox[2, 10.5], 
                   {RGBColor[0, 0, 1], PointSize[0.009], 
                    Point3DBox[{7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
                    19, 20}], 
                    {GrayLevel[0], Thickness[0.004], 
                    Line3DBox[{{2, 3}, {6, 13, 17, 6}, {10, 7, 4, 10}, {7, 8, 
                    9}, {10, 11, 12}, {13, 14, 15, 16}, {17, 18, 19, 20}}], 
                    BSplineCurve3DBox[{{17, 5, 10}, {13, 5, 7}, {3, 4, 5, 
                    6}, {7, 3, 10}},
                    
                    SplineWeights->{{1, 2, 3}, {1, 2, 3}, {1, 1, 3, 1}, {1, 1,
                     1}}], 
                    {RGBColor[1, 0, 0], Point3DBox[{2, 3, 4, 5, 6}], 
                    {PointSize[Large], Point3DBox[1], 
                    {RGBColor[0, 1, 0], Thickness[0.01], 
                    Polygon3DBox[{31, 32, 33, 34}]}}}}}}],
                 Boxed->False,
                 ImageSize->{700, 700},
                 PlotRange->{{-130, 130}, {-30, 300}, {-100, 100}},
                 SphericalRegion->True,
                 ViewAngle->All,
                 
                 ViewVector->
                  NCache[{{300, 200, 300 3^Rational[1, 2]}, {0, 150, 0}}, {{
                    300, 200, 519.6152422706632}, {0, 150, 0}}],
                 ViewVertical->{0, 1, 0}], 24->
                
                Graphics3DBox[
                 GraphicsComplex3DBox[{{0., 125.8394713538006, 0.}, {0., 
                   180.42841363914908`, -8.046281244278836}, {0., 
                   169.63799031149145`, -8.5009947914073}, {0., 
                   169.2383450030597, -8.517836033893538}, {0., 
                   124.07842515027038`, -10.420896434838575`}, {0., 
                   110.38801591011718`, -10.933434079434505`}, {-17.4, 
                   157.5487197314306, -9.010442376616036}, {-17.4, 
                   167.55511783285442`, 19.589592536576315`}, {-17.4, 
                   179.67507856956252`, 54.23055891658157}, {17.4, 
                   157.5487197314306, -9.010442376616036}, {17.4, 
                   167.55511783285442`, 19.589592536576315`}, {17.4, 
                   179.67507856956252`, 54.23055891658157}, {-9.15, 
                   106.68999693645462`, -11.054494685875076`}, {-9.15, 
                   66.6076539684001, 13.87030786482229}, {-9.15, 
                   13.03635207966687, 12.11656502557509}, {-9.15, 5., 
                   31.518035208312114`}, {9.15, 
                   106.68999693645462`, -11.054494685875076`}, {9.15, 
                   66.6076539684001, 13.87030786482229}, {9.15, 
                   13.03635207966687, 12.11656502557509}, {9.15, 5., 
                   31.518035208312114`}, {-17.4, 164.2084122590205, 
                   8.073938075786298}, {17.4, 164.2084122590205, 
                   8.073938075786298}, {17.4, 172.0906741087898, 
                   29.894316601580254`}, {-17.4, 172.0906741087898, 
                   29.894316601580254`}, {9.15, 88.85675112439647, 
                   0.03493017778264962}, {-9.15, 88.85675112439647, 
                   0.03493017778264962}, {9.15, 48.317452017582596`, 
                   13.271548649183789`}, {-9.15, 48.317452017582596`, 
                   13.271548649183789`}, {9.15, 11.330594518529182`, 
                   24.074005853052412`}, {-9.15, 11.330594518529182`, 
                   24.074005853052412`}, {-100, 0, -100}, {100, 0, -100}, {
                   100, 0, 100}, {-100, 0, 100}, {23.56584973483016, 
                   2.8601461177267677`, 21.845490617103383`}}, {
                   SphereBox[2, 10.5], 
                   {RGBColor[0, 0, 1], PointSize[0.009], 
                    Point3DBox[{7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
                    19, 20}], 
                    {GrayLevel[0], Thickness[0.004], 
                    Line3DBox[{{2, 3}, {6, 13, 17, 6}, {10, 7, 4, 10}, {7, 8, 
                    9}, {10, 11, 12}, {13, 14, 15, 16}, {17, 18, 19, 20}}], 
                    BSplineCurve3DBox[{{17, 5, 10}, {13, 5, 7}, {3, 4, 5, 
                    6}, {7, 3, 10}},
                    
                    SplineWeights->{{1, 2, 3}, {1, 2, 3}, {1, 1, 3, 1}, {1, 1,
                     1}}], 
                    {RGBColor[1, 0, 0], Point3DBox[{2, 3, 4, 5, 6}], 
                    {PointSize[Large], Point3DBox[1], 
                    {RGBColor[0, 1, 0], Thickness[0.01], 
                    Polygon3DBox[{31, 32, 33, 34}]}}}}}}],
                 Boxed->False,
                 ImageSize->{700, 700},
                 PlotRange->{{-130, 130}, {-30, 300}, {-100, 100}},
                 SphericalRegion->True,
                 ViewAngle->All,
                 
                 ViewVector->
                  NCache[{{300, 200, 300 3^Rational[1, 2]}, {0, 150, 0}}, {{
                    300, 200, 519.6152422706632}, {0, 150, 0}}],
                 ViewVertical->{0, 1, 0}], 25->
                
                Graphics3DBox[
                 GraphicsComplex3DBox[{{0., 136.09468412138918`, 0.}, {0., 
                   189.73614600256911`, -5.217763917519764}, {0., 
                   178.93777666463254`, -5.405432885415692}, {0., 
                   178.53783705952378`, -5.412383587930356}, {0., 
                   133.34466168223366`, -6.1978129720873865`}, {0., 
                   119.6564084229241, -6.76501902723953}, {-17.4, 
                   166.8396036100925, -5.615691636484278}, {-17.4, 
                   191.6057954835918, 11.840703755606759`}, {-17.4, 
                   221.60313019505796`, 32.984258570449704`}, {17.4, 
                   166.8396036100925, -5.615691636484278}, {17.4, 
                   191.6057954835918, 11.840703755606759`}, {17.4, 
                   221.60313019505796`, 32.984258570449704`}, {-9.15, 
                   115.96433040694126`, -7.007010605391059}, {-9.15, 
                   71.26922829477228, 8.16493215691817}, {-9.15, 
                   17.783990009183142`, 4.659324430182504}, {-9.15, 5., 
                   21.31974457629844}, {9.15, 
                   115.96433040694126`, -7.007010605391059}, {9.15, 
                   71.26922829477228, 8.16493215691817}, {9.15, 
                   17.783990009183142`, 4.659324430182504}, {9.15, 5., 
                   21.31974457629844}, {-17.4, 180.76377203622928`, 
                   10.09066179217917}, {17.4, 180.76377203622928`, 
                   10.09066179217917}, {17.4, 199.01990159402624`, 
                   24.424216477539858`}, {-17.4, 199.01990159402624`, 
                   24.424216477539858`}, {9.15, 
                   96.07879768754404, -0.2567818340246637}, {-9.15, 
                   96.07879768754404, -0.2567818340246637}, {9.15, 
                   53.008409999505844`, 6.968054892006553}, {-9.15, 
                   53.008409999505844`, 6.968054892006553}, {9.15, 
                   13.041541310654821`, 15.767842798616119`}, {-9.15, 
                   13.041541310654821`, 15.767842798616119`}, {-100, 
                   0, -100}, {100, 0, -100}, {100, 0, 100}, {-100, 0, 100}, {
                   26.231617704618166`, 1.477623365472299, 
                   25.893781339145868`}}, {SphereBox[2, 10.5], 
                   {RGBColor[0, 0, 1], PointSize[0.009], 
                    Point3DBox[{7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
                    19, 20}], 
                    {GrayLevel[0], Thickness[0.004], 
                    Line3DBox[{{2, 3}, {6, 13, 17, 6}, {10, 7, 4, 10}, {7, 8, 
                    9}, {10, 11, 12}, {13, 14, 15, 16}, {17, 18, 19, 20}}], 
                    BSplineCurve3DBox[{{17, 5, 10}, {13, 5, 7}, {3, 4, 5, 
                    6}, {7, 3, 10}},
                    
                    SplineWeights->{{1, 2, 3}, {1, 2, 3}, {1, 1, 3, 1}, {1, 1,
                     1}}], 
                    {RGBColor[1, 0, 0], Point3DBox[{2, 3, 4, 5, 6}], 
                    {PointSize[Large], Point3DBox[1], 
                    {RGBColor[0, 1, 0], Thickness[0.01], 
                    Polygon3DBox[{31, 32, 33, 34}]}}}}}}],
                 Boxed->False,
                 ImageSize->{700, 700},
                 PlotRange->{{-130, 130}, {-30, 300}, {-100, 100}},
                 SphericalRegion->True,
                 ViewAngle->All,
                 
                 ViewVector->
                  NCache[{{300, 200, 300 3^Rational[1, 2]}, {0, 150, 0}}, {{
                    300, 200, 519.6152422706632}, {0, 150, 0}}],
                 ViewVertical->{0, 1, 0}], 26->
                
                Graphics3DBox[
                 GraphicsComplex3DBox[{{0., 142.30961689602694`, 0.}, {0., 
                   195.73805340136568`, -1.3702360419015855`}, {0., 
                   184.93820920689666`, -1.4282478958117224`}, {0., 
                   184.53821497747188`, -1.4303964829935811`}, {0., 
                   139.33886705247195`, -1.6731868345434162`}, {0., 
                   125.65722408336052`, -2.3821619157441445`}, {-17.4, 
                   172.83838376679714`, -1.4932426580628961`}, {-17.4, 
                   202.84869889596987`, 2.686588181546101}, {-17.4, 
                   239.19782646166755`, 7.749287581336535}, {17.4, 
                   172.83838376679714`, -1.4932426580628961`}, {17.4, 
                   202.84869889596987`, 2.686588181546101}, {17.4, 
                   239.19782646166755`, 7.749287581336535}, {-9.15, 
                   121.97504059467339`, -2.7448253349635188`}, {-9.15, 
                   75.00232149574569, 1.8815836885917472`}, {-9.15, 
                   21.66042014611594, -3.3721350330727002`}, {-9.15, 5., 
                   9.411854976110439}, {9.15, 
                   121.97504059467339`, -2.7448253349635188`}, {9.15, 
                   75.00232149574569, 1.8815836885917472`}, {9.15, 
                   21.66042014611594, -3.3721350330727002`}, {9.15, 5., 
                   9.411854976110439}, {-17.4, 190.03182196549253`, 
                   11.170309964950526`}, {17.4, 190.03182196549253`, 
                   11.170309964950526`}, {17.4, 212.61580966839304`, 
                   16.6525509327863}, {-17.4, 212.61580966839304`, 
                   16.6525509327863}, {9.15, 
                   101.07616133455726`, -0.6864653880427434}, {-9.15, 
                   101.07616133455726`, -0.6864653880427434}, {9.15, 
                   56.79044099764448, 0.08787002056078919}, {-9.15, 
                   56.79044099764448, 0.08787002056078919}, {9.15, 
                   14.204470351734642`, 6.130433707203041}, {-9.15, 
                   14.204470351734642`, 6.130433707203041}, {-100, 0, -100}, {
                   100, 0, -100}, {100, 0, 100}, {-100, 0, 100}, {
                   27.481148601711443`, 0.6977187465186802, 
                   27.92321685519276}}, {SphereBox[2, 10.5], 
                   {RGBColor[0, 0, 1], PointSize[0.009], 
                    Point3DBox[{7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
                    19, 20}], 
                    {GrayLevel[0], Thickness[0.004], 
                    Line3DBox[{{2, 3}, {6, 13, 17, 6}, {10, 7, 4, 10}, {7, 8, 
                    9}, {10, 11, 12}, {13, 14, 15, 16}, {17, 18, 19, 20}}], 
                    BSplineCurve3DBox[{{17, 5, 10}, {13, 5, 7}, {3, 4, 5, 
                    6}, {7, 3, 10}},
                    
                    SplineWeights->{{1, 2, 3}, {1, 2, 3}, {1, 1, 3, 1}, {1, 1,
                     1}}], 
                    {RGBColor[1, 0, 0], Point3DBox[{2, 3, 4, 5, 6}], 
                    {PointSize[Large], Point3DBox[1], 
                    {RGBColor[0, 1, 0], Thickness[0.01], 
                    Polygon3DBox[{31, 32, 33, 34}]}}}}}}],
                 Boxed->False,
                 ImageSize->{700, 700},
                 PlotRange->{{-130, 130}, {-30, 300}, {-100, 100}},
                 SphericalRegion->True,
                 ViewAngle->All,
                 
                 ViewVector->
                  NCache[{{300, 200, 300 3^Rational[1, 2]}, {0, 150, 0}}, {{
                    300, 200, 519.6152422706632}, {0, 150, 0}}],
                 ViewVertical->{0, 1, 0}], 27->
                
                Graphics3DBox[
                 GraphicsComplex3DBox[{{0., 151.7770725173287, 0.}, {0., 
                   205.22263693229246`, 1.5963344792644465`}, {0., 
                   194.42264183015578`, 1.5860488668260064`}, {0., 
                   194.02264201155813`, 1.5856679182171756`}, {0., 
                   148.82266251002304`, 1.54262072541926}, {0., 
                   135.14859790216232`, 0.7000312049225377}, {-17.4, 
                   182.3226473175767, 1.5745251714088662`}, {-17.4, 
                   212.23514036582546`, -3.2558743605624922`}, {-17.4, 
                   248.46578376089906`, -9.10655630192714}, {17.4, 
                   182.3226473175767, 1.5745251714088662`}, {17.4, 
                   212.23514036582546`, -3.2558743605624922`}, {17.4, 
                   248.46578376089906`, -9.10655630192714}, {-9.15, 
                   131.47615821910412`, 0.24926876826730116`}, {-9.15, 
                   84.3901697608652, -3.02940335785245}, {-9.15, 
                   31.189421919805838`, -9.559367305074252}, {-9.15, 
                   12.39894755020265, -0.18290352786668151`}, {9.15, 
                   131.47615821910412`, 0.24926876826730116`}, {9.15, 
                   84.3901697608652, -3.02940335785245}, {9.15, 
                   31.189421919805838`, -9.559367305074252}, {9.15, 
                   12.39894755020265, -0.18290352786668151`}, {-17.4, 
                   200.26367035290457`, 11.832647061711445`}, {17.4, 
                   200.26367035290457`, 11.832647061711445`}, {17.4, 
                   223.52126024281694`, 11.140059451506529`}, {-17.4, 
                   223.52126024281694`, 11.140059451506529`}, {9.15, 
                   110.52688369319276`, -1.2094624742859774`}, {-9.15, 
                   110.52688369319276`, -1.2094624742859774`}, {9.15, 
                   66.22648159871248, -5.258850004012132}, {-9.15, 
                   66.22648159871248, -5.258850004012132}, {9.15, 
                   22.059938167770895`, -1.6509840049724342`}, {-9.15, 
                   22.059938167770895`, -1.6509840049724342`}, {-100, 
                   0, -100}, {100, 0, -100}, {100, 0, 100}, {-100, 0, 100}, {
                   27.62546206302279, 0.7088346504717424, 
                   28.05641441255105}}, {SphereBox[2, 10.5], 
                   {RGBColor[0, 0, 1], PointSize[0.009], 
                    Point3DBox[{7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
                    19, 20}], 
                    {GrayLevel[0], Thickness[0.004], 
                    Line3DBox[{{2, 3}, {6, 13, 17, 6}, {10, 7, 4, 10}, {7, 8, 
                    9}, {10, 11, 12}, {13, 14, 15, 16}, {17, 18, 19, 20}}], 
                    BSplineCurve3DBox[{{17, 5, 10}, {13, 5, 7}, {3, 4, 5, 
                    6}, {7, 3, 10}},
                    
                    SplineWeights->{{1, 2, 3}, {1, 2, 3}, {1, 1, 3, 1}, {1, 1,
                     1}}], 
                    {RGBColor[1, 0, 0], Point3DBox[{2, 3, 4, 5, 6}], 
                    {PointSize[Large], Point3DBox[1], 
                    {RGBColor[0, 1, 0], Thickness[0.01], 
                    Polygon3DBox[{31, 32, 33, 34}]}}}}}}],
                 Boxed->False,
                 ImageSize->{700, 700},
                 PlotRange->{{-130, 130}, {-30, 300}, {-100, 100}},
                 SphericalRegion->True,
                 ViewAngle->All,
                 
                 ViewVector->
                  NCache[{{300, 200, 300 3^Rational[1, 2]}, {0, 150, 0}}, {{
                    300, 200, 519.6152422706632}, {0, 150, 0}}],
                 ViewVertical->{0, 1, 0}], 28->
                
                Graphics3DBox[
                 GraphicsComplex3DBox[{{0., 160.48713168892635`, 0.}, {0., 
                   213.94553011407524`, 2.6736651639504307`}, {0., 
                   203.14553011407523`, 2.6736651639504303`}, {0., 
                   202.74553011407522`, 2.6736651639504303`}, {0., 
                   157.54553011407523`, 2.6736651639504307`}, {0., 
                   143.87486286570638`, 1.7776422934974705`}, {-17.4, 
                   191.04553011407523`, 2.6736651639504307`}, {-17.4, 
                   220.31308265063402`, -5.168551902655935}, {-17.4, 
                   255.76256047544285`, -14.667210857918436`}, {17.4, 
                   191.04553011407523`, 2.6736651639504307`}, {17.4, 
                   220.31308265063402`, -5.168551902655935}, {17.4, 
                   255.76256047544285`, -14.667210857918436`}, {-9.15, 
                   140.20651687862326`, 1.29469538228328}, {-9.15, 
                   93.41031942177943, -4.8661408905031545`}, {-9.15, 
                   40.2688748521432, -11.862344793497918`}, {-9.15, 
                   20.86740466940617, -3.825992713831033}, {9.15, 
                   140.20651687862326`, 1.29469538228328}, {9.15, 
                   93.41031942177943, -4.8661408905031545`}, {9.15, 
                   40.2688748521432, -11.862344793497918`}, {9.15, 
                   20.86740466940617, -3.825992713831033}, {-17.4, 
                   208.9936416558688, 12.073536998955571`}, {17.4, 
                   208.9936416558688, 12.073536998955571`}, {17.4, 
                   232.10269136848157`, 9.264132199839501}, {-17.4, 
                   232.10269136848157`, 9.264132199839501}, {9.15, 
                   119.38617478977326`, -1.446354654337803}, {-9.15, 
                   119.38617478977326`, -1.446354654337803}, {9.15, 
                   75.26687845863869, -7.2547702081300995`}, {-9.15, 
                   75.26687845863869, -7.2547702081300995`}, {9.15, 
                   30.60753461885642, -4.6133100372925036`}, {-9.15, 
                   30.60753461885642, -4.6133100372925036`}, {-100, 
                   0, -100}, {100, 0, -100}, {100, 0, 100}, {-100, 0, 100}, {
                   27.53712681698368, 0.8195802813471744, 
                   27.857333535636503`}}, {SphereBox[2, 10.5], 
                   {RGBColor[0, 0, 1], PointSize[0.009], 
                    Point3DBox[{7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
                    19, 20}], 
                    {GrayLevel[0], Thickness[0.004], 
                    Line3DBox[{{2, 3}, {6, 13, 17, 6}, {10, 7, 4, 10}, {7, 8, 
                    9}, {10, 11, 12}, {13, 14, 15, 16}, {17, 18, 19, 20}}], 
                    BSplineCurve3DBox[{{17, 5, 10}, {13, 5, 7}, {3, 4, 5, 
                    6}, {7, 3, 10}},
                    
                    SplineWeights->{{1, 2, 3}, {1, 2, 3}, {1, 1, 3, 1}, {1, 1,
                     1}}], 
                    {RGBColor[1, 0, 0], Point3DBox[{2, 3, 4, 5, 6}], 
                    {PointSize[Large], Point3DBox[1], 
                    {RGBColor[0, 1, 0], Thickness[0.01], 
                    Polygon3DBox[{31, 32, 33, 34}]}}}}}}],
                 Boxed->False,
                 ImageSize->{700, 700},
                 PlotRange->{{-130, 130}, {-30, 300}, {-100, 100}},
                 SphericalRegion->True,
                 ViewAngle->All,
                 
                 ViewVector->
                  NCache[{{300, 200, 300 3^Rational[1, 2]}, {0, 150, 0}}, {{
                    300, 200, 519.6152422706632}, {0, 150, 0}}],
                 ViewVertical->{0, 1, 0}], 29->
                
                Graphics3DBox[
                 GraphicsComplex3DBox[{{0., 168.43979441081984`, 0.}, {0., 
                   221.94504632192857`, -1.2188377047219796`}, {0., 
                   211.17543521808503`, -0.4092225665421032}, {0., 
                   210.7765607327575, -0.3792368206835892}, {0., 
                   165.70374389074567`, 3.0091524613284886`}, {0., 
                   152.00390121861528`, 3.074808830977533}, {-17.4, 
                   199.109482036927, 0.49784624567794356`}, {-17.4, 
                   227.70679510415204`, -9.51632797565058}, {-17.4, 
                   262.34446472683055`, -21.64570731303529}, {17.4, 
                   199.109482036927, 0.49784624567794356`}, {17.4, 
                   227.70679510415204`, -9.51632797565058}, {17.4, 
                   262.34446472683055`, -21.64570731303529}, {-9.15, 
                   148.31182320263247`, 2.8328172528260036`}, {-9.15, 
                   101.21213738694864`, -0.2428283808375884}, {-9.15, 
                   47.72605349456195, -3.7355107105911554`}, {-9.15, 
                   28.893971034539277`, 5.557103034685577}, {9.15, 
                   148.31182320263247`, 2.8328172528260036`}, {9.15, 
                   101.21213738694864`, -0.2428283808375884}, {9.15, 
                   47.72605349456195, -3.7355107105911554`}, {9.15, 
                   28.893971034539277`, 5.557103034685577}, {-17.4, 
                   217.62342808749656`, 9.57443669167861}, {17.4, 
                   217.62342808749656`, 9.57443669167861}, {17.4, 
                   240.51432457884843`, 5.274940356214152}, {-17.4, 
                   240.51432457884843`, 5.274940356214152}, {9.15, 
                   127.3564545134511, 1.4644155937807621`}, {-9.15, 
                   127.3564545134511, 1.4644155937807621`}, {9.15, 
                   82.95103038637633, -1.4352926837198687`}, {-9.15, 
                   82.95103038637633, -1.4352926837198687`}, {9.15, 
                   38.56140951616027, 4.132100156066262}, {-9.15, 
                   38.56140951616027, 4.132100156066262}, {-100, 0, -100}, {
                   100, 0, -100}, {100, 0, 100}, {-100, 0, 100}, {
                   27.52996739672472, 0.85567772466176, 27.81407667206297}}, {
                   SphereBox[2, 10.5], 
                   {RGBColor[0, 0, 1], PointSize[0.009], 
                    Point3DBox[{7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
                    19, 20}], 
                    {GrayLevel[0], Thickness[0.004], 
                    Line3DBox[{{2, 3}, {6, 13, 17, 6}, {10, 7, 4, 10}, {7, 8, 
                    9}, {10, 11, 12}, {13, 14, 15, 16}, {17, 18, 19, 20}}], 
                    BSplineCurve3DBox[{{17, 5, 10}, {13, 5, 7}, {3, 4, 5, 
                    6}, {7, 3, 10}},
                    
                    SplineWeights->{{1, 2, 3}, {1, 2, 3}, {1, 1, 3, 1}, {1, 1,
                     1}}], 
                    {RGBColor[1, 0, 0], Point3DBox[{2, 3, 4, 5, 6}], 
                    {PointSize[Large], Point3DBox[1], 
                    {RGBColor[0, 1, 0], Thickness[0.01], 
                    Polygon3DBox[{31, 32, 33, 34}]}}}}}}],
                 Boxed->False,
                 ImageSize->{700, 700},
                 PlotRange->{{-130, 130}, {-30, 300}, {-100, 100}},
                 SphericalRegion->True,
                 ViewAngle->All,
                 
                 ViewVector->
                  NCache[{{300, 200, 300 3^Rational[1, 2]}, {0, 150, 0}}, {{
                    300, 200, 519.6152422706632}, {0, 150, 0}}],
                 ViewVertical->{0, 1, 0}], 30->
                
                Graphics3DBox[
                 GraphicsComplex3DBox[{{0., 175.6350606830092, 0.}, {0., 
                   228.35196182718244`, -9.16124699210928}, {0., 
                   217.83409045098722`, -6.708823351338051}, {0., 
                   217.4445396592763, -6.617992846124302}, {0., 
                   173.42530019594082`, 3.645854243029363}, {0., 
                   159.87358200942333`, 5.656061743067818}, {-17.4, 
                   206.0501790017315, -3.9612005686221385`}, {-17.4, 
                   232.77239331148667`, -18.24452169444985}, {-17.4, 
                   265.1389037130713, -35.54478193596395}, {17.4, 
                   206.0501790017315, -3.9612005686221385`}, {17.4, 
                   232.77239331148667`, -18.24452169444985}, {17.4, 
                   265.1389037130713, -35.54478193596395}, {-9.15, 
                   156.1815039934405, 5.898053321219347}, {-9.15, 
                   109.09485108645866`, 9.167169106476836}, {-9.15, 
                   55.62356727683522, 12.879554828718392`}, {-9.15, 
                   38.20794706954803, 24.61395608295926}, {9.15, 
                   156.1815039934405, 5.898053321219347}, {9.15, 
                   109.09485108645866`, 9.167169106476836}, {9.15, 
                   55.62356727683522, 12.879554828718392`}, {9.15, 
                   38.20794706954803, 24.61395608295926}, {-17.4, 
                   225.83399836239875`, 4.707256853521342}, {17.4, 
                   225.83399836239875`, 4.707256853521342}, {17.4, 
                   248.0122343030095, -2.511655148973319}, {-17.4, 
                   248.0122343030095, -2.511655148973319}, {9.15, 
                   135.23193384414773`, 7.352532801948315}, {-9.15, 
                   135.23193384414773`, 7.352532801948315}, {9.15, 
                   90.83879709921781, 10.43464408254065}, {-9.15, 
                   90.83879709921781, 10.43464408254065}, {9.15, 
                   47.59692191195248, 21.90523841426505}, {-9.15, 
                   47.59692191195248, 21.90523841426505}, {-100, 0, -100}, {
                   100, 0, -100}, {100, 0, 100}, {-100, 0, 100}, {
                   27.514737142338266`, 1.7418021265860375`, 
                   26.912722015752227`}}, {SphereBox[2, 10.5], 
                   {RGBColor[0, 0, 1], PointSize[0.009], 
                    Point3DBox[{7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
                    19, 20}], 
                    {GrayLevel[0], Thickness[0.004], 
                    Line3DBox[{{2, 3}, {6, 13, 17, 6}, {10, 7, 4, 10}, {7, 8, 
                    9}, {10, 11, 12}, {13, 14, 15, 16}, {17, 18, 19, 20}}], 
                    BSplineCurve3DBox[{{17, 5, 10}, {13, 5, 7}, {3, 4, 5, 
                    6}, {7, 3, 10}},
                    
                    SplineWeights->{{1, 2, 3}, {1, 2, 3}, {1, 1, 3, 1}, {1, 1,
                     1}}], 
                    {RGBColor[1, 0, 0], Point3DBox[{2, 3, 4, 5, 6}], 
                    {PointSize[Large], Point3DBox[1], 
                    {RGBColor[0, 1, 0], Thickness[0.01], 
                    Polygon3DBox[{31, 32, 33, 34}]}}}}}}],
                 Boxed->False,
                 ImageSize->{700, 700},
                 PlotRange->{{-130, 130}, {-30, 300}, {-100, 100}},
                 SphericalRegion->True,
                 ViewAngle->All,
                 
                 ViewVector->
                  NCache[{{300, 200, 300 3^Rational[1, 2]}, {0, 150, 0}}, {{
                    300, 200, 519.6152422706632}, {0, 150, 0}}],
                 ViewVertical->{0, 1, 0}], 31->
                
                Graphics3DBox[
                 GraphicsComplex3DBox[{{0., 182.07293050549438`, 0.}, {0., 
                   233.79963602575245`, -13.702294254203565`}, {0., 
                   223.53998645383172`, -10.328929367123223`}, {0., 
                   223.15999943264947`, -10.203989926860988`}, {0., 
                   180.22146603905526`, 3.914166822771552}, {0., 
                   166.8645956378819, 6.961134673973632}, {-17.4, 
                   212.04537906306868`, -6.549511299190621}, {-17.4, 
                   237.39909880043172`, -23.141042135109515`}, {-17.4, 
                   268.1080596704391, -43.237054731750554`}, {17.4, 
                   212.04537906306868`, -6.549511299190621}, {17.4, 
                   237.39909880043172`, -23.141042135109515`}, {17.4, 
                   268.1080596704391, -43.237054731750554`}, {-9.15, 
                   163.1962496507988, 7.444081585187824}, {-9.15, 
                   116.52960501114124`, 14.519693083561775`}, {-9.15, 
                   63.5352797423776, 22.554709530867783`}, {-9.15, 
                   47.12827604786733, 35.66234966051455}, {9.15, 
                   163.1962496507988, 7.444081585187824}, {9.15, 
                   116.52960501114124`, 14.519693083561775`}, {9.15, 
                   63.5352797423776, 22.554709530867783`}, {9.15, 
                   47.12827604786733, 35.66234966051455}, {-17.4, 
                   232.72491777827108`, 2.86985276399147}, {17.4, 
                   232.72491777827108`, 2.86985276399147}, {17.4, 
                   254.43479886225663`, -5.755878050370011}, {-17.4, 
                   254.43479886225663`, -5.755878050370011}, {9.15, 
                   142.4335475865444, 10.592129073871147`}, {-9.15, 
                   142.4335475865444, 10.592129073871147`}, {9.15, 
                   98.43639321229098, 17.262991609414385`}, {-9.15, 
                   98.43639321229098, 17.262991609414385`}, {9.15, 
                   56.26675484538569, 32.201395273743884`}, {-9.15, 
                   56.26675484538569, 32.201395273743884`}, {-100, 0, -100}, {
                   100, 0, -100}, {100, 0, 100}, {-100, 0, 100}, {
                   27.512486996431747`, 2.7231223335069514`, 
                   25.929151662924802`}}, {SphereBox[2, 10.5], 
                   {RGBColor[0, 0, 1], PointSize[0.009], 
                    Point3DBox[{7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
                    19, 20}], 
                    {GrayLevel[0], Thickness[0.004], 
                    Line3DBox[{{2, 3}, {6, 13, 17, 6}, {10, 7, 4, 10}, {7, 8, 
                    9}, {10, 11, 12}, {13, 14, 15, 16}, {17, 18, 19, 20}}], 
                    BSplineCurve3DBox[{{17, 5, 10}, {13, 5, 7}, {3, 4, 5, 
                    6}, {7, 3, 10}},
                    
                    SplineWeights->{{1, 2, 3}, {1, 2, 3}, {1, 1, 3, 1}, {1, 1,
                     1}}], 
                    {RGBColor[1, 0, 0], Point3DBox[{2, 3, 4, 5, 6}], 
                    {PointSize[Large], Point3DBox[1], 
                    {RGBColor[0, 1, 0], Thickness[0.01], 
                    Polygon3DBox[{31, 32, 33, 34}]}}}}}}],
                 Boxed->False,
                 ImageSize->{700, 700},
                 PlotRange->{{-130, 130}, {-30, 300}, {-100, 100}},
                 SphericalRegion->True,
                 ViewAngle->All,
                 
                 ViewVector->
                  NCache[{{300, 200, 300 3^Rational[1, 2]}, {0, 150, 0}}, {{
                    300, 200, 519.6152422706632}, {0, 150, 0}}],
                 ViewVertical->{0, 1, 0}], 32->
                
                Graphics3DBox[
                 GraphicsComplex3DBox[{{0., 187.75340387827546`, 0.}, {0., 
                   238.9215670962998, -15.805860569640608`}, {0., 
                   228.7762521168173, -12.1028099398102}, {0., 
                   228.40049971016978`, -11.965659916483151`}, {0., 
                   185.94047775900216`, 3.5322927194737503`}, {0., 
                   172.67250351929385`, 6.945628269113829}, {-17.4, 
                   217.40974181573037`, -7.954021734166872}, {-17.4, 
                   242.21422443741352`, -25.355965357527403`}, {-17.4, 
                   272.2579377118615, -46.433567039947576`}, {17.4, 
                   217.40974181573037`, -7.954021734166872}, {17.4, 
                   242.21422443741352`, -25.355965357527403`}, {17.4, 
                   272.2579377118615, -46.433567039947576`}, {-9.15, 
                   169.01607960577883`, 7.511812130306989}, {-9.15, 
                   122.90774827929305`, 17.604471952524758`}, {-9.15, 
                   70.54743982379223, 29.065628021822903`}, {-9.15, 
                   55.026724077637766`, 43.211559688810155`}, {9.15, 
                   169.01607960577883`, 7.511812130306989}, {9.15, 
                   122.90774827929305`, 17.604471952524758`}, {9.15, 
                   70.54743982379223, 29.065628021822903`}, {9.15, 
                   55.026724077637766`, 43.211559688810155`}, {-17.4, 
                   238.4685954064673, 1.843057991542282}, {17.4, 
                   238.4685954064673, 1.843057991542282}, {17.4, 
                   259.9997976723262, -7.2626904258244345`}, {-17.4, 
                   259.9997976723262, -7.2626904258244345`}, {9.15, 
                   148.5017796511983, 12.00219044103947}, {-9.15, 
                   148.5017796511983, 12.00219044103947}, {9.15, 
                   105.03100117601569`, 21.517515909020204`}, {-9.15, 
                   105.03100117601569`, 21.517515909020204`}, {9.15, 
                   63.921031289075785`, 39.16417791430929}, {-9.15, 
                   63.921031289075785`, 39.16417791430929}, {-100, 0, -100}, {
                   100, 0, -100}, {100, 0, 100}, {-100, 0, 100}, {
                   27.546192151340488`, 3.344578769192694, 
                   25.34140038214779}}, {SphereBox[2, 10.5], 
                   {RGBColor[0, 0, 1], PointSize[0.009], 
                    Point3DBox[{7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
                    19, 20}], 
                    {GrayLevel[0], Thickness[0.004], 
                    Line3DBox[{{2, 3}, {6, 13, 17, 6}, {10, 7, 4, 10}, {7, 8, 
                    9}, {10, 11, 12}, {13, 14, 15, 16}, {17, 18, 19, 20}}], 
                    BSplineCurve3DBox[{{17, 5, 10}, {13, 5, 7}, {3, 4, 5, 
                    6}, {7, 3, 10}},
                    
                    SplineWeights->{{1, 2, 3}, {1, 2, 3}, {1, 1, 3, 1}, {1, 1,
                     1}}], 
                    {RGBColor[1, 0, 0], Point3DBox[{2, 3, 4, 5, 6}], 
                    {PointSize[Large], Point3DBox[1], 
                    {RGBColor[0, 1, 0], Thickness[0.01], 
                    Polygon3DBox[{31, 32, 33, 34}]}}}}}}],
                 Boxed->False,
                 ImageSize->{700, 700},
                 PlotRange->{{-130, 130}, {-30, 300}, {-100, 100}},
                 SphericalRegion->True,
                 ViewAngle->All,
                 
                 ViewVector->
                  NCache[{{300, 200, 300 3^Rational[1, 2]}, {0, 150, 0}}, {{
                    300, 200, 519.6152422706632}, {0, 150, 0}}],
                 ViewVertical->{0, 1, 0}], 33->
                
                Graphics3DBox[
                 GraphicsComplex3DBox[{{0., 192.6764808013524, 0.}, {0., 
                   242.42866935521906`, -19.648166458497357`}, {0., 
                   232.44138696180093`, -15.537912160510398`}, {0., 
                   232.07148761389655`, -15.385680519844215`}, {0., 
                   190.27286130070217`, 1.8164948754345378`}, {0., 
                   177.20861442350125`, 5.941474091327158}, {-17.4, 
                   221.2519316876936, -10.932905030358345`}, {-17.4, 
                   248.4115671653404, -24.36585707826465}, {-17.4, 
                   281.3078913247343, -40.63613233100925}, {17.4, 
                   221.2519316876936, -10.932905030358345`}, {17.4, 
                   248.4115671653404, -24.36585707826465}, {17.4, 
                   281.3078913247343, -40.63613233100925}, {-9.15, 
                   173.59881055154784`, 6.75345685347804}, {-9.15, 
                   129.63222537680053`, 23.922597428116276`}, {-9.15, 
                   77.30341818814126, 35.52673195905495}, {-9.15, 
                   61.8213996936899, 49.71500540360998}, {9.15, 
                   173.59881055154784`, 6.75345685347804}, {9.15, 
                   129.63222537680053`, 23.922597428116276`}, {9.15, 
                   77.30341818814126, 35.52673195905495}, {9.15, 
                   61.8213996936899, 49.71500540360998}, {-17.4, 
                   242.83048983345952`, -1.357352557892506}, {17.4, 
                   242.83048983345952`, -1.357352557892506}, {17.4, 
                   265.27232070733106`, -7.7406137835270385`}, {-17.4, 
                   265.27232070733106`, -7.7406137835270385`}, {9.15, 
                   154.03740613057977`, 14.392269397278948`}, {-9.15, 
                   154.03740613057977`, 14.392269397278948`}, {9.15, 
                   111.7662333702247, 27.88445679222407}, {-9.15, 
                   111.7662333702247, 27.88445679222407}, {9.15, 
                   70.70461837616908, 45.643344091657234`}, {-9.15, 
                   70.70461837616908, 45.643344091657234`}, {-100, 0, -100}, {
                   100, 0, -100}, {100, 0, 100}, {-100, 0, 100}, {
                   27.68027247500261, 3.9905804382266936`, 
                   24.829479036775922`}}, {SphereBox[2, 10.5], 
                   {RGBColor[0, 0, 1], PointSize[0.009], 
                    Point3DBox[{7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
                    19, 20}], 
                    {GrayLevel[0], Thickness[0.004], 
                    Line3DBox[{{2, 3}, {6, 13, 17, 6}, {10, 7, 4, 10}, {7, 8, 
                    9}, {10, 11, 12}, {13, 14, 15, 16}, {17, 18, 19, 20}}], 
                    BSplineCurve3DBox[{{17, 5, 10}, {13, 5, 7}, {3, 4, 5, 
                    6}, {7, 3, 10}},
                    
                    SplineWeights->{{1, 2, 3}, {1, 2, 3}, {1, 1, 3, 1}, {1, 1,
                     1}}], 
                    {RGBColor[1, 0, 0], Point3DBox[{2, 3, 4, 5, 6}], 
                    {PointSize[Large], Point3DBox[1], 
                    {RGBColor[0, 1, 0], Thickness[0.01], 
                    Polygon3DBox[{31, 32, 33, 34}]}}}}}}],
                 Boxed->False,
                 ImageSize->{700, 700},
                 PlotRange->{{-130, 130}, {-30, 300}, {-100, 100}},
                 SphericalRegion->True,
                 ViewAngle->All,
                 
                 ViewVector->
                  NCache[{{300, 200, 300 3^Rational[1, 2]}, {0, 150, 0}}, {{
                    300, 200, 519.6152422706632}, {0, 150, 0}}],
                 ViewVertical->{0, 1, 0}], 34->
                
                Graphics3DBox[
                 GraphicsComplex3DBox[{{0., 196.84216127472516`, 0.}, {0., 
                   244.2666812027947, -25.254350840704696`}, {0., 
                   234.43664815757745`, -20.781046655883756`}, {0., 
                   234.07257285960645`, -20.61536872311261}, {0., 
                   192.93206418888232`, -1.8937623199731182`}, {0., 
                   180.20736192411303`, 3.1828460234954563`}, {-17.4, 
                   223.42337039395443`, -15.769289189556595`}, {-17.4, 
                   253.70872689626367`, -14.827386048020683`}, {-17.4, 
                   290.39099038255904`, -13.686533068008544`}, {17.4, 
                   223.42337039395443`, -15.769289189556595`}, {17.4, 
                   253.70872689626367`, -14.827386048020683`}, {17.4, 
                   290.39099038255904`, -13.686533068008544`}, {-9.15, 
                   176.7095980162396, 4.3893482592074395`}, {-9.15, 
                   139.0019763110411, 32.779051768360944`}, {-9.15, 
                   85.53455188756193, 36.546614046485196`}, {-9.15, 
                   68.1310500140824, 48.29898072472472}, {9.15, 
                   176.7095980162396, 4.3893482592074395`}, {9.15, 
                   139.0019763110411, 32.779051768360944`}, {9.15, 
                   85.53455188756193, 36.546614046485196`}, {9.15, 
                   68.1310500140824, 48.29898072472472}, {-17.4, 
                   243.80772695514548`, -5.160118929389403}, {17.4, 
                   243.80772695514548`, -5.160118929389403}, {17.4, 
                   266.84383614625506`, -2.07567805384398}, {-17.4, 
                   266.84383614625506`, -2.07567805384398}, {9.15, 
                   159.93290191858773`, 17.020360413703703`}, {-9.15, 
                   159.93290191858773`, 17.020360413703703`}, {9.15, 
                   120.74723998735325`, 34.06536500883993}, {-9.15, 
                   120.74723998735325`, 34.06536500883993}, {9.15, 
                   77.51722465494329, 45.580575749144295`}, {-9.15, 
                   77.51722465494329, 45.580575749144295`}, {-100, 0, -100}, {
                   100, 0, -100}, {100, 0, 100}, {-100, 0, 100}, {
                   26.77726130788803, 4.498500650468741, 
                   23.418547657419293`}}, {SphereBox[2, 10.5], 
                   {RGBColor[0, 0, 1], PointSize[0.009], 
                    Point3DBox[{7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
                    19, 20}], 
                    {GrayLevel[0], Thickness[0.004], 
                    Line3DBox[{{2, 3}, {6, 13, 17, 6}, {10, 7, 4, 10}, {7, 8, 
                    9}, {10, 11, 12}, {13, 14, 15, 16}, {17, 18, 19, 20}}], 
                    BSplineCurve3DBox[{{17, 5, 10}, {13, 5, 7}, {3, 4, 5, 
                    6}, {7, 3, 10}},
                    
                    SplineWeights->{{1, 2, 3}, {1, 2, 3}, {1, 1, 3, 1}, {1, 1,
                     1}}], 
                    {RGBColor[1, 0, 0], Point3DBox[{2, 3, 4, 5, 6}], 
                    {PointSize[Large], Point3DBox[1], 
                    {RGBColor[0, 1, 0], Thickness[0.01], 
                    Polygon3DBox[{31, 32, 33, 34}]}}}}}}],
                 Boxed->False,
                 ImageSize->{700, 700},
                 PlotRange->{{-130, 130}, {-30, 300}, {-100, 100}},
                 SphericalRegion->True,
                 ViewAngle->All,
                 
                 ViewVector->
                  NCache[{{300, 200, 300 3^Rational[1, 2]}, {0, 150, 0}}, {{
                    300, 200, 519.6152422706632}, {0, 150, 0}}],
                 ViewVertical->{0, 1, 0}], 35->
                
                Graphics3DBox[
                 GraphicsComplex3DBox[{{0., 200.2504452983938, 0.}, {0., 
                   244.3613340024936, -32.28509273093606}, {0., 
                   234.76748176965725`, -27.325455714530488`}, {0., 
                   234.41215390918182`, -27.141765454663616`}, {0., 
                   194.2601056754592, -6.3847660897069645`}, {0., 
                   182.1107801129913, -0.05358228435392576}, {-17.4, 
                   224.01881399027576`, -21.768825353557585`}, {-17.4, 
                   247.17451005835863`, -2.2264677782144524`}, {-17.4, 
                   275.2211782332313, 21.443648492910725`}, {17.4, 
                   224.01881399027576`, -21.768825353557585`}, {17.4, 
                   247.17451005835863`, -2.2264677782144524`}, {17.4, 
                   275.2211782332313, 21.443648492910725`}, {-9.15, 
                   178.83518853355298`, 1.6670280157177633`}, {-9.15, 
                   155.921031090477, 42.93179977897759}, {-9.15, 
                   102.5195995554086, 38.32234102491503}, {-9.15, 
                   83.49746822365535, 47.21944839740027}, {9.15, 
                   178.83518853355298`, 1.6670280157177633`}, {9.15, 
                   155.921031090477, 42.93179977897759}, {9.15, 
                   102.5195995554086, 38.32234102491503}, {9.15, 
                   83.49746822365535, 47.21944839740027}, {-17.4, 
                   238.45274659750763`, -10.183123186235136`}, {17.4, 
                   238.45274659750763`, -10.183123186235136`}, {17.4, 
                   256.28741186822475`, 4.655135813211807}, {-17.4, 
                   256.28741186822475`, 4.655135813211807}, {9.15, 
                   168.6403303491336, 20.02635443581218}, {-9.15, 
                   168.6403303491336, 20.02635443581218}, {9.15, 
                   137.68882592085478`, 41.35804800287041}, {-9.15, 
                   137.68882592085478`, 41.35804800287041}, {9.15, 
                   93.19257029521539, 45.99674817983584}, {-9.15, 
                   93.19257029521539, 45.99674817983584}, {-100, 0, -100}, {
                   100, 0, -100}, {100, 0, 100}, {-100, 0, 100}, {
                   23.008040170435418`, 6.584689903221383, 
                   17.563137267214035`}}, {SphereBox[2, 10.5], 
                   {RGBColor[0, 0, 1], PointSize[0.009], 
                    Point3DBox[{7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
                    19, 20}], 
                    {GrayLevel[0], Thickness[0.004], 
                    Line3DBox[{{2, 3}, {6, 13, 17, 6}, {10, 7, 4, 10}, {7, 8, 
                    9}, {10, 11, 12}, {13, 14, 15, 16}, {17, 18, 19, 20}}], 
                    BSplineCurve3DBox[{{17, 5, 10}, {13, 5, 7}, {3, 4, 5, 
                    6}, {7, 3, 10}},
                    
                    SplineWeights->{{1, 2, 3}, {1, 2, 3}, {1, 1, 3, 1}, {1, 1,
                     1}}], 
                    {RGBColor[1, 0, 0], Point3DBox[{2, 3, 4, 5, 6}], 
                    {PointSize[Large], Point3DBox[1], 
                    {RGBColor[0, 1, 0], Thickness[0.01], 
                    Polygon3DBox[{31, 32, 33, 34}]}}}}}}],
                 Boxed->False,
                 ImageSize->{700, 700},
                 PlotRange->{{-130, 130}, {-30, 300}, {-100, 100}},
                 SphericalRegion->True,
                 ViewAngle->All,
                 
                 ViewVector->
                  NCache[{{300, 200, 300 3^Rational[1, 2]}, {0, 150, 0}}, {{
                    300, 200, 519.6152422706632}, {0, 150, 0}}],
                 ViewVertical->{0, 1, 0}], 36->
                
                Graphics3DBox[
                 GraphicsComplex3DBox[{{0., 202.9013328723583, 0.}, {0., 
                   241.0730120012226, -38.515099582998175`}, {0., 
                   231.94687259308165`, -32.73984378752234}, {0., 
                   231.60886742981717`, -32.525945424726935`}, {0., 
                   193.4142839809311, -8.355430428846581}, {0., 
                   182.24986384063163`, -0.4152967441485913}, {-17.4, 
                   221.7222164043312, -26.26941831296145}, {-17.4, 
                   228.83503576574446`, 3.1838973022949126`}, {-17.4, 
                   237.45023281405696`, 38.85837529173084}, {17.4, 
                   221.7222164043312, -26.26941831296145}, {17.4, 
                   228.83503576574446`, 3.1838973022949126`}, {17.4, 
                   237.45023281405696`, 38.85837529173084}, {-9.15, 
                   179.35478383233382`, 1.8887240338728244`}, {-9.15, 
                   183.65563479840355`, 48.89236943471017}, {-9.15, 
                   130.16182506069836`, 45.520082414571355`}, {-9.15, 
                   111.3507061157207, 54.8550598670295}, {9.15, 
                   179.35478383233382`, 1.8887240338728244`}, {9.15, 
                   183.65563479840355`, 48.89236943471017}, {9.15, 
                   130.16182506069836`, 45.520082414571355`}, {9.15, 
                   111.3507061157207, 54.8550598670295}, {-17.4, 
                   226.40703524952076`, -15.203065527645398`}, {17.4, 
                   226.40703524952076`, -15.203065527645398`}, {17.4, 
                   234.44784486108864`, 6.616463786926751}, {-17.4, 
                   234.44784486108864`, 6.616463786926751}, {9.15, 
                   181.26829803333942`, 22.801362877465706`}, {-9.15, 
                   181.26829803333942`, 22.801362877465706`}, {9.15, 
                   165.39189005586616`, 47.74101024686427}, {-9.15, 
                   165.39189005586616`, 47.74101024686427}, {9.15, 
                   121.0149127131334, 53.40830113022343}, {-9.15, 
                   121.0149127131334, 53.40830113022343}, {-100, 0, -100}, {
                   100, 0, -100}, {100, 0, 100}, {-100, 0, 100}, {
                   17.35808871385573, 9.308222851634401, 
                   9.189652862221331}}, {SphereBox[2, 10.5], 
                   {RGBColor[0, 0, 1], PointSize[0.009], 
                    Point3DBox[{7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
                    19, 20}], 
                    {GrayLevel[0], Thickness[0.004], 
                    Line3DBox[{{2, 3}, {6, 13, 17, 6}, {10, 7, 4, 10}, {7, 8, 
                    9}, {10, 11, 12}, {13, 14, 15, 16}, {17, 18, 19, 20}}], 
                    BSplineCurve3DBox[{{17, 5, 10}, {13, 5, 7}, {3, 4, 5, 
                    6}, {7, 3, 10}},
                    
                    SplineWeights->{{1, 2, 3}, {1, 2, 3}, {1, 1, 3, 1}, {1, 1,
                     1}}], 
                    {RGBColor[1, 0, 0], Point3DBox[{2, 3, 4, 5, 6}], 
                    {PointSize[Large], Point3DBox[1], 
                    {RGBColor[0, 1, 0], Thickness[0.01], 
                    Polygon3DBox[{31, 32, 33, 34}]}}}}}}],
                 Boxed->False,
                 ImageSize->{700, 700},
                 PlotRange->{{-130, 130}, {-30, 300}, {-100, 100}},
                 SphericalRegion->True,
                 ViewAngle->All,
                 
                 ViewVector->
                  NCache[{{300, 200, 300 3^Rational[1, 2]}, {0, 150, 0}}, {{
                    300, 200, 519.6152422706632}, {0, 150, 0}}],
                 ViewVertical->{0, 1, 0}], 37->
                
                Graphics3DBox[
                 GraphicsComplex3DBox[{{0., 204.79482399661865`, 0.}, {0., 
                   232.9296087020452, -41.182052939270726`}, {0., 
                   224.74694037497025`, -34.13336944168876}, {0., 
                   224.44387858507858`, -33.87230708992646}, {0., 
                   190.19789632732045`, -4.3722613407870945`}, {0., 
                   180.67478627274048`, 5.476615493063438}, {-17.4, 
                   215.57932123074738`, -26.236233300879324`}, {-17.4, 
                   211.25507284136836`, 3.753612911913316}, {-17.4, 
                   206.0174518548928, 40.077948093744666`}, {17.4, 
                   215.57932123074738`, -26.236233300879324`}, {17.4, 
                   211.25507284136836`, 3.753612911913316}, {17.4, 
                   206.0174518548928, 40.077948093744666`}, {-9.15, 
                   178.3555817254916, 8.359546339965622}, {-9.15, 
                   215.56454736013063`, 37.39974049221348}, {-9.15, 
                   164.9081323869556, 54.91794879287848}, {-9.15, 
                   151.1520988104117, 70.78525922158683}, {9.15, 
                   178.3555817254916, 8.359546339965622}, {9.15, 
                   215.56454736013063`, 37.39974049221348}, {9.15, 
                   164.9081323869556, 54.91794879287848}, {9.15, 
                   151.1520988104117, 70.78525922158683}, {-17.4, 
                   212.00347864456919`, -15.817428630836716`}, {17.4, 
                   212.00347864456919`, -15.817428630836716`}, {17.4, 
                   213.2447647057361, 7.502638671583376}, {-17.4, 
                   213.2447647057361, 7.502638671583376}, {9.15, 
                   194.91041813073355`, 21.279971704313187`}, {-9.15, 
                   194.91041813073355`, 21.279971704313187`}, {9.15, 
                   198.26954000921455`, 43.380770565015155`}, {-9.15, 
                   198.26954000921455`, 43.380770565015155`}, {9.15, 
                   159.51081516983947`, 65.72345511409368}, {-9.15, 
                   159.51081516983947`, 65.72345511409368}, {-100, 0, -100}, {
                   100, 0, -100}, {100, 0, 100}, {-100, 0, 100}, {
                   12.236005565865408`, 9.575143163596271, 
                   3.8006494022691424`}}, {SphereBox[2, 10.5], 
                   {RGBColor[0, 0, 1], PointSize[0.009], 
                    Point3DBox[{7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
                    19, 20}], 
                    {GrayLevel[0], Thickness[0.004], 
                    Line3DBox[{{2, 3}, {6, 13, 17, 6}, {10, 7, 4, 10}, {7, 8, 
                    9}, {10, 11, 12}, {13, 14, 15, 16}, {17, 18, 19, 20}}], 
                    BSplineCurve3DBox[{{17, 5, 10}, {13, 5, 7}, {3, 4, 5, 
                    6}, {7, 3, 10}},
                    
                    SplineWeights->{{1, 2, 3}, {1, 2, 3}, {1, 1, 3, 1}, {1, 1,
                     1}}], 
                    {RGBColor[1, 0, 0], Point3DBox[{2, 3, 4, 5, 6}], 
                    {PointSize[Large], Point3DBox[1], 
                    {RGBColor[0, 1, 0], Thickness[0.01], 
                    Polygon3DBox[{31, 32, 33, 34}]}}}}}}],
                 Boxed->False,
                 ImageSize->{700, 700},
                 PlotRange->{{-130, 130}, {-30, 300}, {-100, 100}},
                 SphericalRegion->True,
                 ViewAngle->All,
                 
                 ViewVector->
                  NCache[{{300, 200, 300 3^Rational[1, 2]}, {0, 150, 0}}, {{
                    300, 200, 519.6152422706632}, {0, 150, 0}}],
                 ViewVertical->{0, 1, 0}], 38->
                
                Graphics3DBox[
                 GraphicsComplex3DBox[{{0., 205.93091867117488`, 0.}, {0., 
                   223.2078968146217, -38.91999462145659}, {0., 
                   216.7736866931977, -30.24584105391094}, {0., 
                   216.53538261462643`, -29.924576106964803`}, {0., 
                   189.60702173607413`, 6.378362897948487}, {0., 
                   182.6399794614884, 18.174562368292104`}, {-17.4, 
                   209.5649883164171, -20.52757640879035}, {-17.4, 
                   206.09981120248935`, 9.573628676207687}, {-17.4, 
                   201.90271549024024`, 46.0328440761888}, {17.4, 
                   209.5649883164171, -20.52757640879035}, {17.4, 
                   206.09981120248935`, 9.573628676207687}, {17.4, 
                   201.90271549024024`, 46.0328440761888}, {-9.15, 
                   181.10168758597794`, 21.539626722169828`}, {-9.15, 
                   224.25624475488118`, 2.420939644970657}, {-9.15, 
                   207.7947512437149, 53.43053904921839}, {-9.15, 
                   212.2019021929993, 73.9628798926347}, {9.15, 
                   181.10168758597794`, 21.539626722169828`}, {9.15, 
                   224.25624475488118`, 2.420939644970657}, {9.15, 
                   207.7947512437149, 53.43053904921839}, {9.15, 
                   212.2019021929993, 73.9628798926347}, {-17.4, 
                   204.49530348272424`, -9.071806682946553}, {17.4, 
                   204.49530348272424`, -9.071806682946553}, {17.4, 
                   207.09435851051992`, 14.185173479378111`}, {-17.4, 
                   207.09435851051992`, 14.185173479378111`}, {9.15, 
                   200.3018083602781, 13.033431200534606`}, {-9.15, 
                   200.3018083602781, 13.033431200534606`}, {9.15, 
                   218.6359960374494, 19.836530486346284`}, {-9.15, 
                   218.6359960374494, 19.836530486346284`}, {9.15, 
                   213.18335546451854`, 64.24039309779542}, {-9.15, 
                   213.18335546451854`, 64.24039309779542}, {-100, 0, -100}, {
                   100, 0, -100}, {100, 0, 100}, {-100, 0, 100}, {
                   8.33004605689467, 7.301988097409385, 2.167844959485288}}, {
                   SphereBox[2, 10.5], 
                   {RGBColor[0, 0, 1], PointSize[0.009], 
                    Point3DBox[{7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
                    19, 20}], 
                    {GrayLevel[0], Thickness[0.004], 
                    Line3DBox[{{2, 3}, {6, 13, 17, 6}, {10, 7, 4, 10}, {7, 8, 
                    9}, {10, 11, 12}, {13, 14, 15, 16}, {17, 18, 19, 20}}], 
                    BSplineCurve3DBox[{{17, 5, 10}, {13, 5, 7}, {3, 4, 5, 
                    6}, {7, 3, 10}},
                    
                    SplineWeights->{{1, 2, 3}, {1, 2, 3}, {1, 1, 3, 1}, {1, 1,
                     1}}], 
                    {RGBColor[1, 0, 0], Point3DBox[{2, 3, 4, 5, 6}], 
                    {PointSize[Large], Point3DBox[1], 
                    {RGBColor[0, 1, 0], Thickness[0.01], 
                    Polygon3DBox[{31, 32, 33, 34}]}}}}}}],
                 Boxed->False,
                 ImageSize->{700, 700},
                 PlotRange->{{-130, 130}, {-30, 300}, {-100, 100}},
                 SphericalRegion->True,
                 ViewAngle->All,
                 
                 ViewVector->
                  NCache[{{300, 200, 300 3^Rational[1, 2]}, {0, 150, 0}}, {{
                    300, 200, 519.6152422706632}, {0, 150, 0}}],
                 ViewVertical->{0, 1, 0}], 39->
                
                Graphics3DBox[
                 GraphicsComplex3DBox[{{0., 206.30961689602694`, 0.}, {0., 
                   212.55159113000857`, -42.122413425225986`}, {0., 
                   208.67082847997636`, -32.043738846983324`}, {0., 
                   208.52709652997515`, -31.670454603344705`}, {0., 
                   192.28538617984034`, 10.510664927819045`}, {0., 
                   188.72592948241257`, 23.740187520079758`}, {-17.4, 
                   204.32293699244025`, -20.75189047691515}, {-17.4, 
                   209.0320570774874, 9.179935194510332}, {-17.4, 
                   214.73584279105935`, 45.4339946711214}, {17.4, 
                   204.32293699244025`, -20.75189047691515}, {17.4, 
                   209.0320570774874, 9.179935194510332}, {17.4, 
                   214.73584279105935`, 45.4339946711214}, {-9.15, 
                   188.14335612233728`, 27.394035940598943`}, {-9.15, 
                   224.61507803439133`, -2.5668302146008353`}, {-9.15, 
                   222.39129158231944`, 50.9870190757684}, {-9.15, 
                   232.12771790297379`, 69.59352338212507}, {9.15, 
                   188.14335612233728`, 27.394035940598943`}, {9.15, 
                   224.61507803439133`, -2.5668302146008353`}, {9.15, 
                   222.39129158231944`, 50.9870190757684}, {9.15, 
                   232.12771790297379`, 69.59352338212507}, {-17.4, 
                   202.5007421592451, -8.357699486196491}, {17.4, 
                   202.5007421592451, -8.357699486196491}, {17.4, 
                   211.22338341551435`, 13.357680842563648`}, {-17.4, 
                   211.22338341551435`, 13.357680842563648`}, {9.15, 
                   204.37018154931047`, 14.063989557988876`}, {-9.15, 
                   204.37018154931047`, 14.063989557988876`}, {9.15, 
                   223.8558375106429, 15.717413106551346`}, {-9.15, 
                   223.8558375106429, 15.717413106551346`}, {9.15, 
                   230.47394400473496`, 59.962582000645064`}, {-9.15, 
                   230.47394400473496`, 59.962582000645064`}, {-100, 
                   0, -100}, {100, 0, -100}, {100, 0, 100}, {-100, 0, 100}, {
                   8.33004605689467, 7.902639577607192, 
                   1.5671934792874782`}}, {SphereBox[2, 10.5], 
                   {RGBColor[0, 0, 1], PointSize[0.009], 
                    Point3DBox[{7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
                    19, 20}], 
                    {GrayLevel[0], Thickness[0.004], 
                    Line3DBox[{{2, 3}, {6, 13, 17, 6}, {10, 7, 4, 10}, {7, 8, 
                    9}, {10, 11, 12}, {13, 14, 15, 16}, {17, 18, 19, 20}}], 
                    BSplineCurve3DBox[{{17, 5, 10}, {13, 5, 7}, {3, 4, 5, 
                    6}, {7, 3, 10}},
                    
                    SplineWeights->{{1, 2, 3}, {1, 2, 3}, {1, 1, 3, 1}, {1, 1,
                     1}}], 
                    {RGBColor[1, 0, 0], Point3DBox[{2, 3, 4, 5, 6}], 
                    {PointSize[Large], Point3DBox[1], 
                    {RGBColor[0, 1, 0], Thickness[0.01], 
                    Polygon3DBox[{31, 32, 33, 34}]}}}}}}],
                 Boxed->False,
                 ImageSize->{700, 700},
                 PlotRange->{{-130, 130}, {-30, 300}, {-100, 100}},
                 SphericalRegion->True,
                 ViewAngle->All,
                 
                 ViewVector->
                  NCache[{{300, 200, 300 3^Rational[1, 2]}, {0, 150, 0}}, {{
                    300, 200, 519.6152422706632}, {0, 150, 0}}],
                 ViewVertical->{0, 1, 0}], 40->
                
                Graphics3DBox[
                 GraphicsComplex3DBox[{{0., 205.93091867117488`, 0.}, {0., 
                   200.00303359807856`, -42.16776178152583}, {0., 
                   199.13166124086376`, -31.402971480963455`}, {0., 
                   199.09938819059653`, -31.00427554390559}, {0., 
                   195.45253351040125`, 14.048365343633275`}, {0., 
                   195.78060804370602`, 27.74443657229578}, {-17.4, 
                   198.1554014702805, -19.34241938496301}, {-17.4, 
                   211.1388520211289, 8.034943742147586}, {-17.4, 
                   226.8646815662159, 41.19498422943996}, {17.4, 
                   198.1554014702805, -19.34241938496301}, {17.4, 
                   211.1388520211289, 8.034943742147586}, {17.4, 
                   226.8646815662159, 41.19498422943996}, {-9.15, 
                   196.2553711360109, 31.41385069531121}, {-9.15, 
                   222.76271726160982`, -7.63996603721437}, {-9.15, 
                   235.7782344474804, 44.355767560690644`}, {-9.15, 
                   250.38014381000832`, 59.44829031099714}, {9.15, 
                   196.2553711360109, 31.41385069531121}, {9.15, 
                   222.76271726160982`, -7.63996603721437}, {9.15, 
                   235.7782344474804, 44.355767560690644`}, {9.15, 
                   250.38014381000832`, 59.44829031099714}, {-17.4, 
                   199.91350220025194`, -6.938974454307308}, {17.4, 
                   199.91350220025194`, -6.938974454307308}, {17.4, 
                   214.4224203350881, 11.422221254711632`}, {-17.4, 
                   214.4224203350881, 11.422221254711632`}, {9.15, 
                   208.04889377663753`, 14.038211894823139`}, {-9.15, 
                   208.04889377663753`, 14.038211894823139`}, {9.15, 
                   227.20644794260667`, 10.112308679980812`}, {-9.15, 
                   227.20644794260667`, 10.112308679980812`}, {9.15, 
                   246.06965862807544`, 50.678471755500276`}, {-9.15, 
                   246.06965862807544`, 50.678471755500276`}, {-100, 
                   0, -100}, {100, 0, -100}, {100, 0, 100}, {-100, 0, 100}, {
                   8.330046056894671, 7.551322137861384, 
                   1.9185109190332876`}}, {SphereBox[2, 10.5], 
                   {RGBColor[0, 0, 1], PointSize[0.009], 
                    Point3DBox[{7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
                    19, 20}], 
                    {GrayLevel[0], Thickness[0.004], 
                    Line3DBox[{{2, 3}, {6, 13, 17, 6}, {10, 7, 4, 10}, {7, 8, 
                    9}, {10, 11, 12}, {13, 14, 15, 16}, {17, 18, 19, 20}}], 
                    BSplineCurve3DBox[{{17, 5, 10}, {13, 5, 7}, {3, 4, 5, 
                    6}, {7, 3, 10}},
                    
                    SplineWeights->{{1, 2, 3}, {1, 2, 3}, {1, 1, 3, 1}, {1, 1,
                     1}}], 
                    {RGBColor[1, 0, 0], Point3DBox[{2, 3, 4, 5, 6}], 
                    {PointSize[Large], Point3DBox[1], 
                    {RGBColor[0, 1, 0], Thickness[0.01], 
                    Polygon3DBox[{31, 32, 33, 34}]}}}}}}],
                 Boxed->False,
                 ImageSize->{700, 700},
                 PlotRange->{{-130, 130}, {-30, 300}, {-100, 100}},
                 SphericalRegion->True,
                 ViewAngle->All,
                 
                 ViewVector->
                  NCache[{{300, 200, 300 3^Rational[1, 2]}, {0, 150, 0}}, {{
                    300, 200, 519.6152422706632}, {0, 150, 0}}],
                 ViewVertical->{0, 1, 0}], 41->
                
                Graphics3DBox[
                 GraphicsComplex3DBox[{{0., 204.79482399661865`, 0.}, {0., 
                   186.7885518517685, -38.58800485317869}, {0., 
                   189.10496549803364`, -28.039344852050753`}, {0., 
                   189.19075859604348`, -27.648653740897863`}, {0., 
                   198.88537867115315`, 16.499441819378355`}, {0., 
                   203.20640853584413`, 29.500161065191207`}, {-17.4, 
                   191.70020671283072`, -16.22093873967593}, {-17.4, 
                   212.12578197544613`, 6.1595410405082465`}, {-17.4, 
                   236.86567016481862`, 33.26725087327257}, {17.4, 
                   191.70020671283072`, -16.22093873967593}, {17.4, 
                   212.12578197544613`, 6.1595410405082465`}, {17.4, 
                   236.86567016481862`, 33.26725087327257}, {-9.15, 
                   204.7340234888312, 32.870085775835385`}, {-9.15, 
                   218.65467127869988`, -12.23041937777044}, {-9.15, 
                   246.3139609752923, 33.68171075665019}, {-9.15, 
                   264.69276628307114`, 43.84141131615301}, {9.15, 
                   204.7340234888312, 32.870085775835385`}, {9.15, 
                   218.65467127869988`, -12.23041937777044}, {9.15, 
                   246.3139609752923, 33.68171075665019}, {9.15, 
                   264.69276628307114`, 43.84141131615301}, {-17.4, 
                   197.0104750895797, -4.874687636715333}, {17.4, 
                   197.0104750895797, -4.874687636715333}, {17.4, 
                   216.25673459358606`, 8.437851881074558}, {-17.4, 
                   216.25673459358606`, 8.437851881074558}, {9.15, 
                   210.92753203940836`, 12.804183059188727`}, {-9.15, 
                   210.92753203940836`, 12.804183059188727`}, {9.15, 
                   228.09804817137976`, 3.444804156929141}, {-9.15, 
                   228.09804817137976`, 3.444804156929141}, {9.15, 
                   258.0049668695552, 36.716571738690504`}, {-9.15, 
                   258.0049668695552, 36.716571738690504`}, {-100, 0, -100}, {
                   100, 0, -100}, {100, 0, 100}, {-100, 0, 100}, {
                   8.33004605689467, 6.24205282302634, 3.227780233868333}}, {
                   SphereBox[2, 10.5], 
                   {RGBColor[0, 0, 1], PointSize[0.009], 
                    Point3DBox[{7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
                    19, 20}], 
                    {GrayLevel[0], Thickness[0.004], 
                    Line3DBox[{{2, 3}, {6, 13, 17, 6}, {10, 7, 4, 10}, {7, 8, 
                    9}, {10, 11, 12}, {13, 14, 15, 16}, {17, 18, 19, 20}}], 
                    BSplineCurve3DBox[{{17, 5, 10}, {13, 5, 7}, {3, 4, 5, 
                    6}, {7, 3, 10}},
                    
                    SplineWeights->{{1, 2, 3}, {1, 2, 3}, {1, 1, 3, 1}, {1, 1,
                     1}}], 
                    {RGBColor[1, 0, 0], Point3DBox[{2, 3, 4, 5, 6}], 
                    {PointSize[Large], Point3DBox[1], 
                    {RGBColor[0, 1, 0], Thickness[0.01], 
                    Polygon3DBox[{31, 32, 33, 34}]}}}}}}],
                 Boxed->False,
                 ImageSize->{700, 700},
                 PlotRange->{{-130, 130}, {-30, 300}, {-100, 100}},
                 SphericalRegion->True,
                 ViewAngle->All,
                 
                 ViewVector->
                  NCache[{{300, 200, 300 3^Rational[1, 2]}, {0, 150, 0}}, {{
                    300, 200, 519.6152422706632}, {0, 150, 0}}],
                 ViewVertical->{0, 1, 0}], 42->
                
                Graphics3DBox[
                 GraphicsComplex3DBox[{{0., 202.9013328723583, 0.}, {0., 
                   174.25717052179564`, -31.508283328959024`}, {0., 
                   179.5989574455573, -22.121840314636245`}, {0., 
                   179.7968014056966, -21.774194277068734`}, {0., 
                   202.1531689014398, 17.509807968059974`}, {0., 
                   210.1368115794731, 28.643156502507523`}, {-17.4, 
                   185.58373723977172`, -11.605547678219049`}, {-17.4, 
                   211.72967649418823`, 3.707187560932809}, {-17.4, 
                   243.39819037660027`, 22.254295919905523`}, {17.4, 
                   185.58373723977172`, -11.605547678219049`}, {17.4, 
                   211.72967649418823`, 3.707187560932809}, {17.4, 
                   243.39819037660027`, 22.254295919905523`}, {-9.15, 
                   212.59546408073513`, 31.408120856353328`}, {-9.15, 
                   212.50849730322204`, -15.791799024718602`}, {-9.15, 
                   252.54402950535155`, 19.846890082658113`}, {-9.15, 
                   273.10958514695625`, 24.096351360521627`}, {9.15, 
                   212.59546408073513`, 31.408120856353328`}, {9.15, 
                   212.50849730322204`, -15.791799024718602`}, {9.15, 
                   252.54402950535155`, 19.846890082658113`}, {9.15, 
                   273.10958514695625`, 24.096351360521627`}, {-17.4, 
                   194.02121455725128`, -2.345669663819904}, {17.4, 
                   194.02121455725128`, -2.345669663819904}, {17.4, 
                   216.35057928383927`, 4.657307147171389}, {-17.4, 
                   216.35057928383927`, 4.657307147171389}, {9.15, 
                   212.55677123480768`, 10.408156502486584`}, {-9.15, 
                   212.55677123480768`, 10.408156502486584`}, {9.15, 
                   226.17734505133714`, -3.624112258580654}, {-9.15, 
                   226.17734505133714`, -3.624112258580654}, {9.15, 
                   264.6090478310832, 19.276510560095687`}, {-9.15, 
                   264.6090478310832, 19.276510560095687`}, {-100, 0, -100}, {
                   100, 0, -100}, {100, 0, 100}, {-100, 0, 100}, {
                   8.33004605689467, 4.389543799467331, 5.08028925742734}}, {
                   SphereBox[2, 10.5], 
                   {RGBColor[0, 0, 1], PointSize[0.009], 
                    Point3DBox[{7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
                    19, 20}], 
                    {GrayLevel[0], Thickness[0.004], 
                    Line3DBox[{{2, 3}, {6, 13, 17, 6}, {10, 7, 4, 10}, {7, 8, 
                    9}, {10, 11, 12}, {13, 14, 15, 16}, {17, 18, 19, 20}}], 
                    BSplineCurve3DBox[{{17, 5, 10}, {13, 5, 7}, {3, 4, 5, 
                    6}, {7, 3, 10}},
                    
                    SplineWeights->{{1, 2, 3}, {1, 2, 3}, {1, 1, 3, 1}, {1, 1,
                     1}}], 
                    {RGBColor[1, 0, 0], Point3DBox[{2, 3, 4, 5, 6}], 
                    {PointSize[Large], Point3DBox[1], 
                    {RGBColor[0, 1, 0], Thickness[0.01], 
                    Polygon3DBox[{31, 32, 33, 34}]}}}}}}],
                 Boxed->False,
                 ImageSize->{700, 700},
                 PlotRange->{{-130, 130}, {-30, 300}, {-100, 100}},
                 SphericalRegion->True,
                 ViewAngle->All,
                 
                 ViewVector->
                  NCache[{{300, 200, 300 3^Rational[1, 2]}, {0, 150, 0}}, {{
                    300, 200, 519.6152422706632}, {0, 150, 0}}],
                 ViewVertical->{0, 1, 0}], 43->
                
                Graphics3DBox[
                 GraphicsComplex3DBox[{{0., 200.2504452983938, 0.}, {0., 
                   163.57529976413855`, -21.63778304597184}, {0., 
                   171.45204501322144`, -14.248812597996668`}, {0., 
                   171.74377631874302`, -13.975147025849441`}, {0., 
                   204.70941384268244`, 16.94906262678741}, {0., 
                   215.62622502462298`, 25.226334738894003`}, {-17.4, 
                   180.27691700524946`, -5.970429040543002}, {-17.4, 
                   209.7799897161385, 0.9330990875951306}, {-17.4, 
                   245.51473455077968`, 9.294798173491813}, {17.4, 
                   180.27691700524946`, -5.970429040543002}, {17.4, 
                   209.7799897161385, 0.9330990875951306}, {17.4, 
                   245.51473455077968`, 9.294798173491813}, {-9.15, 
                   218.79207959712522`, 27.141371246579062`}, {-9.15, 
                   204.7625547477077, -17.925384044872487`}, {-9.15, 
                   253.54088307020913`, 4.292507080575369}, {-9.15, 
                   274.4438039270582, 2.2756035994183357`}, {9.15, 
                   218.79207959712522`, 27.141371246579062`}, {9.15, 
                   204.7625547477077, -17.925384044872487`}, {9.15, 
                   253.54088307020913`, 4.292507080575369}, {9.15, 
                   274.4438039270582, 2.2756035994183357`}, {-17.4, 
                   191.07373371101457`, 0.3829254550479697}, {17.4, 
                   191.07373371101457`, 0.3829254550479697}, {17.4, 
                   214.47530750744164`, 0.47543036654130066`}, {-17.4, 
                   214.47530750744164`, 0.47543036654130066`}, {9.15, 
                   212.55012998191827`, 7.0904843584332475`}, {-9.15, 
                   212.55012998191827`, 7.0904843584332475`}, {9.15, 
                   221.416349678711, -10.33979808226622}, {-9.15, 
                   221.416349678711, -10.33979808226622}, {9.15, 
                   264.89866705028834`, 0.18267216152372256`}, {-9.15, 
                   264.89866705028834`, 0.18267216152372256`}, {-100, 
                   0, -100}, {100, 0, -100}, {100, 0, 100}, {-100, 0, 100}, {
                   8.33004605689467, 2.664766691358748, 6.805066365535925}}, {
                   SphereBox[2, 10.5], 
                   {RGBColor[0, 0, 1], PointSize[0.009], 
                    Point3DBox[{7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
                    19, 20}], 
                    {GrayLevel[0], Thickness[0.004], 
                    Line3DBox[{{2, 3}, {6, 13, 17, 6}, {10, 7, 4, 10}, {7, 8, 
                    9}, {10, 11, 12}, {13, 14, 15, 16}, {17, 18, 19, 20}}], 
                    BSplineCurve3DBox[{{17, 5, 10}, {13, 5, 7}, {3, 4, 5, 
                    6}, {7, 3, 10}},
                    
                    SplineWeights->{{1, 2, 3}, {1, 2, 3}, {1, 1, 3, 1}, {1, 1,
                     1}}], 
                    {RGBColor[1, 0, 0], Point3DBox[{2, 3, 4, 5, 6}], 
                    {PointSize[Large], Point3DBox[1], 
                    {RGBColor[0, 1, 0], Thickness[0.01], 
                    Polygon3DBox[{31, 32, 33, 34}]}}}}}}],
                 Boxed->False,
                 ImageSize->{700, 700},
                 PlotRange->{{-130, 130}, {-30, 300}, {-100, 100}},
                 SphericalRegion->True,
                 ViewAngle->All,
                 
                 ViewVector->
                  NCache[{{300, 200, 300 3^Rational[1, 2]}, {0, 150, 0}}, {{
                    300, 200, 519.6152422706632}, {0, 150, 0}}],
                 ViewVertical->{0, 1, 0}], 44->
                
                Graphics3DBox[
                 GraphicsComplex3DBox[{{0., 196.84216127472516`, 0.}, {0., 
                   155.47430222066512`, -10.097533975519552`}, {0., 
                   165.1524187938602, -5.304407689300206}, {0., 
                   165.51086755583037`, -5.1268844935143045`}, {0., 
                   206.0155776584616, 14.933236630292603`}, {0., 
                   218.86074454660425`, 19.696815916476886`}, {-17.4, 
                   175.99549384345838`, 0.06566898322332193}, {-17.4, 
                   206.23393422081014`, -1.864803380044628}, {-17.4, 
                   242.85937190558937`, -4.203032282088646}, {17.4, 
                   175.99549384345838`, 0.06566898322332193}, {17.4, 
                   206.23393422081014`, -1.864803380044628}, {17.4, 
                   242.85937190558937`, -4.203032282088646}, {-9.15, 
                   222.4453502814011, 20.613659265180253`}, {-9.15, 
                   195.973340986212, -18.46411861273169}, {-9.15, 
                   249.09431105478353`, -11.314115887282517`}, {-9.15, 
                   268.5189627195482, -19.294273009955926`}, {9.15, 
                   222.4453502814011, 20.613659265180253`}, {9.15, 
                   195.973340986212, -18.46411861273169}, {9.15, 
                   249.09431105478353`, -11.314115887282517`}, {9.15, 
                   268.5189627195482, -19.294273009955926`}, {-17.4, 
                   188.1689955350163, 3.022393672836921}, {17.4, 
                   188.1689955350163, 3.022393672836921}, {17.4, 
                   210.59585822907908`, -3.6617699255446285`}, {-17.4, 
                   210.59585822907908`, -3.6617699255446285`}, {9.15, 
                   210.66754953566019`, 3.227359785600788}, {-9.15, 
                   210.66754953566019`, 3.227359785600788}, {9.15, 
                   214.10979158798176`, -16.02297962251303}, {-9.15, 
                   214.10979158798176`, -16.02297962251303}, {9.15, 
                   258.77659453619907`, -18.53515366488123}, {-9.15, 
                   258.77659453619907`, -18.53515366488123}, {-100, 
                   0, -100}, {100, 0, -100}, {100, 0, 100}, {-100, 0, 100}, {
                   8.33004605689467, 1.673636913382988, 7.796196143511681}}, {
                   SphereBox[2, 10.5], 
                   {RGBColor[0, 0, 1], PointSize[0.009], 
                    Point3DBox[{7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
                    19, 20}], 
                    {GrayLevel[0], Thickness[0.004], 
                    Line3DBox[{{2, 3}, {6, 13, 17, 6}, {10, 7, 4, 10}, {7, 8, 
                    9}, {10, 11, 12}, {13, 14, 15, 16}, {17, 18, 19, 20}}], 
                    BSplineCurve3DBox[{{17, 5, 10}, {13, 5, 7}, {3, 4, 5, 
                    6}, {7, 3, 10}},
                    
                    SplineWeights->{{1, 2, 3}, {1, 2, 3}, {1, 1, 3, 1}, {1, 1,
                     1}}], 
                    {RGBColor[1, 0, 0], Point3DBox[{2, 3, 4, 5, 6}], 
                    {PointSize[Large], Point3DBox[1], 
                    {RGBColor[0, 1, 0], Thickness[0.01], 
                    Polygon3DBox[{31, 32, 33, 34}]}}}}}}],
                 Boxed->False,
                 ImageSize->{700, 700},
                 PlotRange->{{-130, 130}, {-30, 300}, {-100, 100}},
                 SphericalRegion->True,
                 ViewAngle->All,
                 
                 ViewVector->
                  NCache[{{300, 200, 300 3^Rational[1, 2]}, {0, 150, 0}}, {{
                    300, 200, 519.6152422706632}, {0, 150, 0}}],
                 ViewVertical->{0, 1, 0}], 45->
                
                Graphics3DBox[
                 GraphicsComplex3DBox[{{0., 192.6764808013524, 0.}, {0., 
                   150.13428987788382`, 1.8498504086806307`}, {0., 
                   160.7655954812349, 3.7512554597299688`}, {0., 
                   161.15934754061826`, 3.8216778690280915`}, {0., 
                   205.65333025093946`, 11.779410119716065`}, {0., 
                   219.31757977990227`, 12.768492932345584`}, {-17.4, 
                   172.67659527758192`, 5.881533340998207}, {-17.4, 
                   201.17453996079522`, -4.4120155529701055`}, {-17.4, 
                   235.69185249788853`, -16.879779394839314`}, {17.4, 
                   172.67659527758192`, 5.881533340998207}, {17.4, 
                   201.17453996079522`, -4.4120155529701055`}, {17.4, 
                   235.69185249788853`, -16.879779394839314`}, {-9.15, 
                   223.01563056771818`, 12.64840808428279}, {-9.15, 
                   186.68870235326327`, -17.487853901933082`}, {-9.15, 
                   239.6942520468933, -25.44848840403884}, {-9.15, 
                   256.11963528997114`, -38.53308948003719}, {9.15, 
                   223.01563056771818`, 12.64840808428279}, {9.15, 
                   186.68870235326327`, -17.487853901933082`}, {9.15, 
                   239.6942520468933, -25.44848840403884}, {9.15, 
                   256.11963528997114`, -38.53308948003719}, {-17.4, 
                   185.19156401577277`, 5.323033737917898}, {17.4, 
                   185.19156401577277`, 5.323033737917898}, {17.4, 
                   204.8615717821324, -7.355018469721296}, {-17.4, 
                   204.8615717821324, -7.355018469721296}, {9.15, 
                   206.85322606552424`, -0.7596745790759653}, {-9.15, 
                   206.85322606552424`, -0.7596745790759653}, {9.15, 
                   204.7857463717974, -20.205757099480383`}, {-9.15, 
                   204.7857463717974, -20.205757099480383`}, {9.15, 
                   246.97630827146548`, -35.08496375253476}, {-9.15, 
                   246.97630827146548`, -35.08496375253476}, {-100, 
                   0, -100}, {100, 0, -100}, {100, 0, 100}, {-100, 0, 100}, {
                   8.33004605689467, 1.687843709626208, 7.781989347268464}}, {
                   SphereBox[2, 10.5], 
                   {RGBColor[0, 0, 1], PointSize[0.009], 
                    Point3DBox[{7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
                    19, 20}], 
                    {GrayLevel[0], Thickness[0.004], 
                    Line3DBox[{{2, 3}, {6, 13, 17, 6}, {10, 7, 4, 10}, {7, 8, 
                    9}, {10, 11, 12}, {13, 14, 15, 16}, {17, 18, 19, 20}}], 
                    BSplineCurve3DBox[{{17, 5, 10}, {13, 5, 7}, {3, 4, 5, 
                    6}, {7, 3, 10}},
                    
                    SplineWeights->{{1, 2, 3}, {1, 2, 3}, {1, 1, 3, 1}, {1, 1,
                     1}}], 
                    {RGBColor[1, 0, 0], Point3DBox[{2, 3, 4, 5, 6}], 
                    {PointSize[Large], Point3DBox[1], 
                    {RGBColor[0, 1, 0], Thickness[0.01], 
                    Polygon3DBox[{31, 32, 33, 34}]}}}}}}],
                 Boxed->False,
                 ImageSize->{700, 700},
                 PlotRange->{{-130, 130}, {-30, 300}, {-100, 100}},
                 SphericalRegion->True,
                 ViewAngle->All,
                 
                 ViewVector->
                  NCache[{{300, 200, 300 3^Rational[1, 2]}, {0, 150, 0}}, {{
                    300, 200, 519.6152422706632}, {0, 150, 0}}],
                 ViewVertical->{0, 1, 0}], 46->
                
                Graphics3DBox[
                 GraphicsComplex3DBox[{{0., 187.75340387827546`, 0.}, {0., 
                   147.22654620459187`, 13.07033902392518}, {0., 
                   157.9813233366716, 12.083035200730759`}, {0., 
                   158.37964841563752`, 12.046468392464298`}, {0., 
                   203.39038233878614`, 7.914419058354309}, {0., 
                   216.82736769170492`, 5.242823163491735}, {-17.4, 
                   170.0306569753906, 10.97688925067034}, {-17.4, 
                   194.77638164147962`, -6.508507820889507}, {-17.4, 
                   224.74892603901978`, -27.6871900824818}, {17.4, 
                   170.0306569753906, 10.97688925067034}, {17.4, 
                   194.77638164147962`, -6.508507820889507}, {17.4, 
                   224.74892603901978`, -27.6871900824818}, {-9.15, 
                   220.3610346853601, 4.145919531465653}, {-9.15, 
                   177.34053884251097`, -15.272549446170082`}, {-9.15, 
                   226.3345481356607, -37.010696869139636`}, {-9.15, 
                   238.69985862749482`, -53.98417902338652}, {9.15, 
                   220.3610346853601, 4.145919531465653}, {9.15, 
                   177.34053884251097`, -15.272549446170082`}, {9.15, 
                   226.3345481356607, -37.010696869139636`}, {9.15, 
                   238.69985862749482`, -53.98417902338652}, {-17.4, 
                   181.94896159230223`, 7.118083815948619}, {17.4, 
                   181.94896159230223`, 7.118083815948619}, {17.4, 
                   197.55048201547007`, -10.324243259122222`}, {-17.4, 
                   197.55048201547007`, -10.324243259122222`}, {9.15, 
                   201.2205598400247, -4.493653530618043}, {-9.15, 
                   201.2205598400247, -4.493653530618043}, {9.15, 
                   194.06797111983633`, -22.694342316325734`}, {-9.15, 
                   194.06797111983633`, -22.694342316325734`}, {9.15, 
                   230.7990093876473, -48.23382413962492}, {-9.15, 
                   230.7990093876473, -48.23382413962492}, {-100, 0, -100}, {
                   100, 0, -100}, {100, 0, 100}, {-100, 0, 100}, {
                   8.33004605689467, 2.5834631898306637`, 
                   6.8863698670640066`}}, {SphereBox[2, 10.5], 
                   {RGBColor[0, 0, 1], PointSize[0.009], 
                    Point3DBox[{7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
                    19, 20}], 
                    {GrayLevel[0], Thickness[0.004], 
                    Line3DBox[{{2, 3}, {6, 13, 17, 6}, {10, 7, 4, 10}, {7, 8, 
                    9}, {10, 11, 12}, {13, 14, 15, 16}, {17, 18, 19, 20}}], 
                    BSplineCurve3DBox[{{17, 5, 10}, {13, 5, 7}, {3, 4, 5, 
                    6}, {7, 3, 10}},
                    
                    SplineWeights->{{1, 2, 3}, {1, 2, 3}, {1, 1, 3, 1}, {1, 1,
                     1}}], 
                    {RGBColor[1, 0, 0], Point3DBox[{2, 3, 4, 5, 6}], 
                    {PointSize[Large], Point3DBox[1], 
                    {RGBColor[0, 1, 0], Thickness[0.01], 
                    Polygon3DBox[{31, 32, 33, 34}]}}}}}}],
                 Boxed->False,
                 ImageSize->{700, 700},
                 PlotRange->{{-130, 130}, {-30, 300}, {-100, 100}},
                 SphericalRegion->True,
                 ViewAngle->All,
                 
                 ViewVector->
                  NCache[{{300, 200, 300 3^Rational[1, 2]}, {0, 150, 0}}, {{
                    300, 200, 519.6152422706632}, {0, 150, 0}}],
                 ViewVertical->{0, 1, 0}], 47->
                
                Graphics3DBox[
                 GraphicsComplex3DBox[{{0., 182.0729305054944, 0.}, {0., 
                   146.07420909651165`, 22.745373420144038`}, {0., 
                   156.24486208530288`, 19.112493325564586`}, {0., 
                   156.6215529367396, 18.97794221095053}, {0., 
                   199.18761914908816`, 3.773666259562426}, {0., 
                   211.5368977307663, -2.1580551189335324`}, {-17.4, 
                   167.63976034126347`, 15.04232210848945}, {-17.4, 
                   187.25509326409795`, -8.051588654444693}, {-17.4, 
                   211.01359881749815`, -36.023421162685054`}, {17.4, 
                   167.63976034126347`, 15.04232210848945}, {17.4, 
                   187.25509326409795`, -8.051588654444693}, {17.4, 
                   211.01359881749815`, -36.023421162685054`}, {-9.15, 
                   214.68637938176224`, -4.099900975339189}, {-9.15, 
                   168.18668893100076`, -12.200443425284218`}, {-9.15, 
                   210.2288998892074, -45.44818767576909}, {-9.15, 
                   217.980779786827, -64.96506135094774}, {9.15, 
                   214.68637938176224`, -4.099900975339189}, {9.15, 
                   168.18668893100076`, -12.200443425284218`}, {9.15, 
                   210.2288998892074, -45.44818767576909}, {9.15, 
                   217.980779786827, -64.96506135094774}, {-17.4, 
                   178.2226722777721, 8.338715671008366}, {17.4, 
                   178.2226722777721, 8.338715671008366}, {17.4, 
                   188.9922472673339, -12.4376764087652}, {-17.4, 
                   188.9922472673339, -12.4376764087652}, {9.15, 
                   193.9979577829065, -7.703955878916427}, {-9.15, 
                   193.9979577829065, -7.703955878916427}, {9.15, 
                   182.54065274695563`, -23.551818794386328`}, {-9.15, 
                   182.54065274695563`, -23.551818794386328`}, {9.15, 
                   211.75967959285563`, -57.42928585159999}, {-9.15, 
                   211.75967959285563`, -57.42928585159999}, {-100, 
                   0, -100}, {100, 0, -100}, {100, 0, 100}, {-100, 0, 100}, {
                   8.330046056894671, 3.979365860482214, 5.49046719641246}}, {
                   SphereBox[2, 10.5], 
                   {RGBColor[0, 0, 1], PointSize[0.009], 
                    Point3DBox[{7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
                    19, 20}], 
                    {GrayLevel[0], Thickness[0.004], 
                    Line3DBox[{{2, 3}, {6, 13, 17, 6}, {10, 7, 4, 10}, {7, 8, 
                    9}, {10, 11, 12}, {13, 14, 15, 16}, {17, 18, 19, 20}}], 
                    BSplineCurve3DBox[{{17, 5, 10}, {13, 5, 7}, {3, 4, 5, 
                    6}, {7, 3, 10}},
                    
                    SplineWeights->{{1, 2, 3}, {1, 2, 3}, {1, 1, 3, 1}, {1, 1,
                     1}}], 
                    {RGBColor[1, 0, 0], Point3DBox[{2, 3, 4, 5, 6}], 
                    {PointSize[Large], Point3DBox[1], 
                    {RGBColor[0, 1, 0], Thickness[0.01], 
                    Polygon3DBox[{31, 32, 33, 34}]}}}}}}],
                 Boxed->False,
                 ImageSize->{700, 700},
                 PlotRange->{{-130, 130}, {-30, 300}, {-100, 100}},
                 SphericalRegion->True,
                 ViewAngle->All,
                 
                 ViewVector->
                  NCache[{{300, 200, 300 3^Rational[1, 2]}, {0, 150, 0}}, {{
                    300, 200, 519.6152422706632}, {0, 150, 0}}],
                 ViewVertical->{0, 1, 0}], 48->
                
                Graphics3DBox[
                 GraphicsComplex3DBox[{{0., 175.6350606830092, 0.}, {0., 
                   145.85761814419513`, 30.439511673990047`}, {0., 
                   154.91526027800572`, 24.557410095827755`}, {0., 
                   155.25072850518387`, 24.339554481821743`}, {0., 
                   193.15863817631706`, -0.2781299008574809}, {0., 
                   203.80553784827757`, -8.899819258240253}, {-17.4, 
                   165.06317415014533`, 17.967277772145927`}, {-17.4, 
                   178.81908629225362`, -9.03021991076162}, {-17.4, 
                   195.480537632695, -41.73015934847472}, {17.4, 
                   165.06317415014533`, 17.967277772145927`}, {17.4, 
                   178.81908629225362`, -9.03021991076162}, {17.4, 
                   195.480537632695, -41.73015934847472}, {-9.15, 
                   206.4218329386678, -11.516114348630481`}, {-9.15, 
                   159.3079467793272, -8.666249270298605}, {-9.15, 
                   192.54186976377392`, -50.71938664509936}, {-9.15, 
                   195.5801516774953, -71.49843481898725}, {9.15, 
                   206.4218329386678, -11.516114348630481`}, {9.15, 
                   159.3079467793272, -8.666249270298605}, {9.15, 
                   192.54186976377392`, -50.71938664509936}, {9.15, 
                   195.5801516774953, -71.49843481898725}, {-17.4, 
                   173.81324896628126`, 9.00220359305747}, {17.4, 
                   173.81324896628126`, 9.00220359305747}, {17.4, 
                   179.4970723886934, -13.698817630912004`}, {-17.4, 
                   179.4970723886934, -13.698817630912004`}, {9.15, 
                   185.4601462999781, -10.248165902762485`}, {-9.15, 
                   185.4601462999781, -10.248165902762485`}, {9.15, 
                   170.65460332065882`, -23.02394356057573}, {-9.15, 
                   170.65460332065882`, -23.02394356057573}, {9.15, 
                   191.26619137657755`, -62.7303251867971}, {-9.15, 
                   191.26619137657755`, -62.7303251867971}, {-100, 0, -100}, {
                   100, 0, -100}, {100, 0, 100}, {-100, 0, 100}, {
                   8.33004605689467, 5.447474088756254, 4.022358968138421}}, {
                   SphereBox[2, 10.5], 
                   {RGBColor[0, 0, 1], PointSize[0.009], 
                    Point3DBox[{7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
                    19, 20}], 
                    {GrayLevel[0], Thickness[0.004], 
                    Line3DBox[{{2, 3}, {6, 13, 17, 6}, {10, 7, 4, 10}, {7, 8, 
                    9}, {10, 11, 12}, {13, 14, 15, 16}, {17, 18, 19, 20}}], 
                    BSplineCurve3DBox[{{17, 5, 10}, {13, 5, 7}, {3, 4, 5, 
                    6}, {7, 3, 10}},
                    
                    SplineWeights->{{1, 2, 3}, {1, 2, 3}, {1, 1, 3, 1}, {1, 1,
                     1}}], 
                    {RGBColor[1, 0, 0], Point3DBox[{2, 3, 4, 5, 6}], 
                    {PointSize[Large], Point3DBox[1], 
                    {RGBColor[0, 1, 0], Thickness[0.01], 
                    Polygon3DBox[{31, 32, 33, 34}]}}}}}}],
                 Boxed->False,
                 ImageSize->{700, 700},
                 PlotRange->{{-130, 130}, {-30, 300}, {-100, 100}},
                 SphericalRegion->True,
                 ViewAngle->All,
                 
                 ViewVector->
                  NCache[{{300, 200, 300 3^Rational[1, 2]}, {0, 150, 0}}, {{
                    300, 200, 519.6152422706632}, {0, 150, 0}}],
                 ViewVertical->{0, 1, 0}], 49->
                
                Graphics3DBox[
                 GraphicsComplex3DBox[{{0., 168.43979441081984`, 0.}, {0., 
                   176.17791357019564`, 42.160388629686615`}, {0., 
                   177.11298696956348`, 31.4009445112484}, {0., 
                   177.14761931768822`, 31.00244658093588}, {0., 
                   181.06107465578333`, -14.027819544379607`}, {0., 
                   179.97479562936297`, -27.684685871497226`}, {-17.4, 
                   178.16061550033675`, 19.34638211929448}, {-17.4, 
                   161.29613211930746`, -5.826603406681336}, {-17.4, 
                   140.86951363469447`, -36.31665518236821}, {17.4, 
                   178.16061550033675`, 19.34638211929448}, {17.4, 
                   161.29613211930746`, -5.826603406681336}, {17.4, 
                   140.86951363469447`, -36.31665518236821}, {-9.15, 
                   179.0757689637209, -31.27380150831704}, {-9.15, 
                   148.53171703169056`, 4.7109298589369795`}, {-9.15, 
                   130.24141464789278`, -45.671853298697734`}, {-9.15, 
                   114.1657351738668, -59.18379355346426}, {9.15, 
                   179.0757689637209, -31.27380150831704}, {9.15, 
                   148.53171703169056`, 4.7109298589369795`}, {9.15, 
                   130.24141464789278`, -45.671853298697734`}, {9.15, 
                   114.1657351738668, -59.18379355346426}, {-17.4, 
                   180.59734756760236`, 11.724341889332996`}, {17.4, 
                   180.59734756760236`, 11.724341889332996`}, {17.4, 
                   161.30766190251785`, -2.0474128149339172`}, {-17.4, 
                   161.30766190251785`, -2.0474128149339172`}, {9.15, 
                   165.48625433294467`, -15.263645603394702`}, {-9.15, 
                   165.48625433294467`, -15.263645603394702`}, {9.15, 
                   142.2870802103566, -12.490654689285318`}, {-9.15, 
                   142.2870802103566, -12.490654689285318`}, {9.15, 
                   119.3546874759688, -50.903408658635385`}, {-9.15, 
                   119.3546874759688, -50.903408658635385`}, {-100, 
                   0, -100}, {100, 0, -100}, {100, 0, 100}, {-100, 0, 100}, {
                   9.037440111157508, 7.515760485250977, 
                   2.661466625906527}}, {SphereBox[2, 10.5], 
                   {RGBColor[0, 0, 1], PointSize[0.009], 
                    Point3DBox[{7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
                    19, 20}], 
                    {GrayLevel[0], Thickness[0.004], 
                    Line3DBox[{{2, 3}, {6, 13, 17, 6}, {10, 7, 4, 10}, {7, 8, 
                    9}, {10, 11, 12}, {13, 14, 15, 16}, {17, 18, 19, 20}}], 
                    BSplineCurve3DBox[{{17, 5, 10}, {13, 5, 7}, {3, 4, 5, 
                    6}, {7, 3, 10}},
                    
                    SplineWeights->{{1, 2, 3}, {1, 2, 3}, {1, 1, 3, 1}, {1, 1,
                     1}}], 
                    {RGBColor[1, 0, 0], Point3DBox[{2, 3, 4, 5, 6}], 
                    {PointSize[Large], Point3DBox[1], 
                    {RGBColor[0, 1, 0], Thickness[0.01], 
                    Polygon3DBox[{31, 32, 33, 34}]}}}}}}],
                 Boxed->False,
                 ImageSize->{700, 700},
                 PlotRange->{{-130, 130}, {-30, 300}, {-100, 100}},
                 SphericalRegion->True,
                 ViewAngle->All,
                 
                 ViewVector->
                  NCache[{{300, 200, 300 3^Rational[1, 2]}, {0, 150, 0}}, {{
                    300, 200, 519.6152422706632}, {0, 150, 0}}],
                 ViewVertical->{0, 1, 0}], 50->
                
                Graphics3DBox[
                 GraphicsComplex3DBox[{{0., 160.48713168892635`, 0.}, {0., 
                   189.02866729415624`, 33.234053287598734`}, {0., 
                   185.2906030777193, 23.10158685963591}, {0., 
                   185.15215625488833`, 22.726310325266915`}, {0., 
                   169.50766527498564`, -19.679938058429368`}, {0., 
                   161.0260781694409, -30.43878001149557}, {-17.4, 
                   181.10258668708167`, 11.749471694973856`}, {-17.4, 
                   151.2402380976219, 6.618181728348409}, {-17.4, 
                   115.07033073019045`, 0.4030549370892089}, {17.4, 
                   181.10258668708167`, 11.749471694973856`}, {17.4, 
                   151.2402380976219, 6.618181728348409}, {17.4, 
                   115.07033073019045`, 0.4030549370892089}, {-9.15, 
                   157.9496406039215, -32.4943898736681}, {-9.15, 
                   134.0074813394537, 8.1825447423383}, {-9.15, 
                   87.5197304310246, -18.49795404377606}, {-9.15, 
                   66.51979991729779, -18.443931653556046`}, {9.15, 
                   157.9496406039215, -32.4943898736681}, {9.15, 
                   134.0074813394537, 8.1825447423383}, {9.15, 
                   87.5197304310246, -18.49795404377606}, {9.15, 
                   66.51979991729779, -18.443931653556046`}, {-17.4, 
                   201.58809403731414`, -0.1148144088461045}, {17.4, 
                   201.58809403731414`, -0.1148144088461045}, {17.4, 
                   180.07923054692628`, 12.446281855099041`}, {-17.4, 
                   180.07923054692628`, 12.446281855099041`}, {9.15, 
                   147.29740872778115`, -14.396601167394067`}, {-9.15, 
                   147.29740872778115`, -14.396601167394067`}, {9.15, 
                   118.13573056288183`, -0.9266554029208898}, {-9.15, 
                   118.13573056288183`, -0.9266554029208898}, {9.15, 
                   75.8274866291225, -15.467865781549648`}, {-9.15, 
                   75.8274866291225, -15.467865781549648`}, {-100, 0, -100}, {
                   100, 0, -100}, {100, 0, 100}, {-100, 0, 100}, {
                   11.641708079002768`, 4.721450415896599, 
                   8.06004466310617}}, {SphereBox[2, 10.5], 
                   {RGBColor[0, 0, 1], PointSize[0.009], 
                    Point3DBox[{7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
                    19, 20}], 
                    {GrayLevel[0], Thickness[0.004], 
                    Line3DBox[{{2, 3}, {6, 13, 17, 6}, {10, 7, 4, 10}, {7, 8, 
                    9}, {10, 11, 12}, {13, 14, 15, 16}, {17, 18, 19, 20}}], 
                    BSplineCurve3DBox[{{17, 5, 10}, {13, 5, 7}, {3, 4, 5, 
                    6}, {7, 3, 10}},
                    
                    SplineWeights->{{1, 2, 3}, {1, 2, 3}, {1, 1, 3, 1}, {1, 1,
                     1}}], 
                    {RGBColor[1, 0, 0], Point3DBox[{2, 3, 4, 5, 6}], 
                    {PointSize[Large], Point3DBox[1], 
                    {RGBColor[0, 1, 0], Thickness[0.01], 
                    Polygon3DBox[{31, 32, 33, 34}]}}}}}}],
                 Boxed->False,
                 ImageSize->{700, 700},
                 PlotRange->{{-130, 130}, {-30, 300}, {-100, 100}},
                 SphericalRegion->True,
                 ViewAngle->All,
                 
                 ViewVector->
                  NCache[{{300, 200, 300 3^Rational[1, 2]}, {0, 150, 0}}, {{
                    300, 200, 519.6152422706632}, {0, 150, 0}}],
                 ViewVertical->{0, 1, 0}], 51->
                
                Graphics3DBox[
                 GraphicsComplex3DBox[{{0., 151.77707251732872`, 0.}, {0., 
                   187.8329771077502, 28.61759656197736}, {0., 
                   182.66443944492622`, 19.13465300905193}, {0., 
                   182.4730121240809, 18.783432877462097`}, {0., 
                   160.8417248685583, -20.904441992188787`}, {0., 
                   149.608761682707, -28.747307416592662`}, {-17.4, 
                   176.8737629893549, 8.51024402845955}, {-17.4, 
                   148.36599668891026`, 18.77656082462518}, {-17.4, 
                   113.83678800157301`, 31.211340574436342`}, {17.4, 
                   176.8737629893549, 8.51024402845955}, {17.4, 
                   148.36599668891026`, 18.77656082462518}, {17.4, 
                   113.83678800157301`, 31.211340574436342`}, {-9.15, 
                   145.9488085958373, -29.2902101720775}, {-9.15, 
                   114.34688514654346`, 5.769145701996552}, {-9.15, 
                   61.1251371832991, -0.5873898117008611}, {-9.15, 
                   41.82172815226457, 7.681733465925024}, {9.15, 
                   145.9488085958373, -29.2902101720775}, {9.15, 
                   114.34688514654346`, 5.769145701996552}, {9.15, 
                   61.1251371832991, -0.5873898117008611}, {9.15, 
                   41.82172815226457, 7.681733465925024}, {-17.4, 
                   208.82918493372676`, -33.40062210491917}, {17.4, 
                   208.82918493372676`, -33.40062210491917}, {17.4, 
                   204.48704030588013`, -7.12264010775838}, {-17.4, 
                   204.48704030588013`, -7.12264010775838}, {9.15, 
                   131.88863079000743`, -13.691767939968285`}, {-9.15, 
                   131.88863079000743`, -13.691767939968285`}, {9.15, 
                   96.17602716655517, 3.5989106292229947`}, {-9.15, 
                   96.17602716655517, 3.5989106292229947`}, {9.15, 
                   51.55168404852641, 6.777323018838487}, {-9.15, 
                   51.55168404852641, 6.777323018838487}, {-100, 0, -100}, {
                   100, 0, -100}, {100, 0, 100}, {-100, 0, 100}, {
                   15.691212391056304`, 4.678401509945439, 
                   12.152597881110868`}}, {SphereBox[2, 10.5], 
                   {RGBColor[0, 0, 1], PointSize[0.009], 
                    Point3DBox[{7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
                    19, 20}], 
                    {GrayLevel[0], Thickness[0.004], 
                    Line3DBox[{{2, 3}, {6, 13, 17, 6}, {10, 7, 4, 10}, {7, 8, 
                    9}, {10, 11, 12}, {13, 14, 15, 16}, {17, 18, 19, 20}}], 
                    BSplineCurve3DBox[{{17, 5, 10}, {13, 5, 7}, {3, 4, 5, 
                    6}, {7, 3, 10}},
                    
                    SplineWeights->{{1, 2, 3}, {1, 2, 3}, {1, 1, 3, 1}, {1, 1,
                     1}}], 
                    {RGBColor[1, 0, 0], Point3DBox[{2, 3, 4, 5, 6}], 
                    {PointSize[Large], Point3DBox[1], 
                    {RGBColor[0, 1, 0], Thickness[0.01], 
                    Polygon3DBox[{31, 32, 33, 34}]}}}}}}],
                 Boxed->False,
                 ImageSize->{700, 700},
                 PlotRange->{{-130, 130}, {-30, 300}, {-100, 100}},
                 SphericalRegion->True,
                 ViewAngle->All,
                 
                 ViewVector->
                  NCache[{{300, 200, 300 3^Rational[1, 2]}, {0, 150, 0}}, {{
                    300, 200, 519.6152422706632}, {0, 150, 0}}],
                 ViewVertical->{0, 1, 0}], 52->
                
                Graphics3DBox[
                 GraphicsComplex3DBox[{{0., 127.80417459158336`, 0.}, {0., 
                   180.07152533129425`, 12.015590340488028`}, {0., 
                   170.7184509704223, 6.61559034048803}, {0., 
                   170.37204080890854`, 6.415590340488031}, {0., 
                   131.2276925578519, -16.184409659511967`}, {0., 
                   117.99450873769166`, -19.730230577416503`}, {-17.4, 
                   160.2395435846306, 0.5655903404880327}, {-17.4, 
                   145.0895435846306, 26.80616007515653}, {-17.4, 
                   126.73954358463061`, 58.58929239404543}, {17.4, 
                   160.2395435846306, 0.5655903404880327}, {17.4, 
                   145.0895435846306, 26.80616007515653}, {17.4, 
                   126.73954358463061`, 58.58929239404543}, {-9.15, 
                   114.29450873769166`, -19.730230577416503`}, {-9.15, 
                   73.41810967906615, 3.869769422583495}, {-9.15, 
                   19.81810967906614, 3.869769422583495}, {-9.15, 5., 
                   18.750079417310307`}, {9.15, 
                   114.29450873769166`, -19.730230577416503`}, {9.15, 
                   73.41810967906615, 3.869769422583495}, {9.15, 
                   19.81810967906614, 3.869769422583495}, {9.15, 5., 
                   18.750079417310307`}, {-17.4, 
                   175.6036384574163, -18.266154218935057`}, {17.4, 
                   175.6036384574163, -18.266154218935057`}, {17.4, 
                   176.89734162710593`, 6.1102737777268565`}, {-17.4, 
                   176.89734162710593`, 6.1102737777268565`}, {9.15, 
                   96.10797525821845, -9.230230577416505}, {-9.15, 
                   96.10797525821845, -9.230230577416505}, {9.15, 
                   55.11810967906615, 3.869769422583495}, {-9.15, 
                   55.11810967906615, 3.869769422583495}, {9.15, 
                   13.688064285690274`, 14.277100659512161`}, {-9.15, 
                   13.688064285690274`, 14.277100659512161`}, {-100, 
                   0, -100}, {100, 0, -100}, {100, 0, 100}, {-100, 0, 100}, {
                   20.962297344362106`, 3.4268546872299623`, 
                   18.675229657132146`}}, {SphereBox[2, 10.5], 
                   {RGBColor[0, 0, 1], PointSize[0.009], 
                    Point3DBox[{7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
                    19, 20}], 
                    {GrayLevel[0], Thickness[0.004], 
                    Line3DBox[{{2, 3}, {6, 13, 17, 6}, {10, 7, 4, 10}, {7, 8, 
                    9}, {10, 11, 12}, {13, 14, 15, 16}, {17, 18, 19, 20}}], 
                    BSplineCurve3DBox[{{17, 5, 10}, {13, 5, 7}, {3, 4, 5, 
                    6}, {7, 3, 10}},
                    
                    SplineWeights->{{1, 2, 3}, {1, 2, 3}, {1, 1, 3, 1}, {1, 1,
                     1}}], 
                    {RGBColor[1, 0, 0], Point3DBox[{2, 3, 4, 5, 6}], 
                    {PointSize[Large], Point3DBox[1], 
                    {RGBColor[0, 1, 0], Thickness[0.01], 
                    Polygon3DBox[{31, 32, 33, 34}]}}}}}}],
                 Boxed->False,
                 ImageSize->{700, 700},
                 PlotRange->{{-130, 130}, {-30, 300}, {-100, 100}},
                 SphericalRegion->True,
                 ViewAngle->All,
                 
                 ViewVector->
                  NCache[{{300, 200, 300 3^Rational[1, 2]}, {0, 150, 0}}, {{
                    300, 200, 519.6152422706632}, {0, 150, 0}}],
                 ViewVertical->{0, 1, 0}], 53->
                
                Graphics3DBox[
                 GraphicsComplex3DBox[{{0., 120.1588136120696, 0.}, {0., 
                   171.83384502759603`, 7.920523791845579}, {0., 
                   162.20453234081612`, 3.0300905615254727`}, {0., 
                   161.84789113019463`, 2.848963404846952}, {0., 
                   121.54743432996753`, -17.618405299826094`}, {0., 
                   108.22386551275748`, -20.80784317711236}, {-17.4, 
                   151.41613571951638`, -2.4490059279998313`}, {-17.4, 
                   137.6957536011183, 24.56656577657718}, {-17.4, 
                   121.07733697586386`, 57.28839685109786}, {17.4, 
                   151.41613571951638`, -2.4490059279998313`}, {17.4, 
                   137.6957536011183, 24.56656577657718}, {17.4, 
                   121.07733697586386`, 57.28839685109786}, {-9.15, 
                   104.52386551275748`, -20.80784317711236}, {-9.15, 
                   70.07428128141964, 11.457713478367161`}, {-9.15, 
                   16.47428128141965, 11.457713478367161`}, {-9.15, 5., 
                   29.045802319252132`}, {9.15, 
                   104.52386551275748`, -20.80784317711236}, {9.15, 
                   70.07428128141964, 11.457713478367161`}, {9.15, 
                   16.47428128141965, 11.457713478367161`}, {9.15, 5., 
                   29.045802319252132`}, {-17.4, 
                   165.1517059837142, -17.20033183508875}, {17.4, 
                   165.1517059837142, -17.20033183508875}, {17.4, 
                   166.24538571515745`, 6.95919519753415}, {-17.4, 
                   166.24538571515745`, 6.95919519753415}, {9.15, 
                   89.19671998610295, -6.452404834632066}, {-9.15, 
                   89.19671998610295, -6.452404834632066}, {9.15, 
                   51.77428128141965, 11.457713478367161`}, {-9.15, 
                   51.77428128141965, 11.457713478367161`}, {9.15, 
                   12.594051544755132`, 22.895974587063023`}, {-9.15, 
                   12.594051544755132`, 22.895974587063023`}, {-100, 
                   0, -100}, {100, 0, -100}, {100, 0, 100}, {-100, 0, 100}, {
                   19.599343371923617`, 3.3530645277213207`, 
                   17.386065844202292`}}, {SphereBox[2, 10.5], 
                   {RGBColor[0, 0, 1], PointSize[0.009], 
                    Point3DBox[{7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
                    19, 20}], 
                    {GrayLevel[0], Thickness[0.004], 
                    Line3DBox[{{2, 3}, {6, 13, 17, 6}, {10, 7, 4, 10}, {7, 8, 
                    9}, {10, 11, 12}, {13, 14, 15, 16}, {17, 18, 19, 20}}], 
                    BSplineCurve3DBox[{{17, 5, 10}, {13, 5, 7}, {3, 4, 5, 
                    6}, {7, 3, 10}},
                    
                    SplineWeights->{{1, 2, 3}, {1, 2, 3}, {1, 1, 3, 1}, {1, 1,
                     1}}], 
                    {RGBColor[1, 0, 0], Point3DBox[{2, 3, 4, 5, 6}], 
                    {PointSize[Large], Point3DBox[1], 
                    {RGBColor[0, 1, 0], Thickness[0.01], 
                    Polygon3DBox[{31, 32, 33, 34}]}}}}}}],
                 Boxed->False,
                 ImageSize->{700, 700},
                 PlotRange->{{-130, 130}, {-30, 300}, {-100, 100}},
                 SphericalRegion->True,
                 ViewAngle->All,
                 
                 ViewVector->
                  NCache[{{300, 200, 300 3^Rational[1, 2]}, {0, 150, 0}}, {{
                    300, 200, 519.6152422706632}, {0, 150, 0}}],
                 ViewVertical->{0, 1, 0}], 54->
                
                Graphics3DBox[
                 GraphicsComplex3DBox[{{0., 114.39757563682099`, 0.}, {0., 
                   166.48250528374848`, 1.4307734143234825`}, {0., 
                   156.30197717995293`, -2.1743406654012425`}, {0., 
                   155.92492058351607`, -2.3078634090947503`}, {0., 
                   113.31752518614961`, -17.3959334464612}, {0., 
                   99.81540717705394, -19.716021649192836`}, {-17.4, 
                   144.89601513773758`, -6.213403662129869}, {-17.4, 
                   134.78166730295433`, 22.34863351796314}, {-17.4, 
                   122.53095556907493`, 56.94357624104609}, {17.4, 
                   144.89601513773758`, -6.213403662129869}, {17.4, 
                   134.78166730295433`, 22.34863351796314}, {17.4, 
                   122.53095556907493`, 56.94357624104609}, {-9.15, 
                   96.11540717705394, -19.716021649192836`}, {-9.15, 
                   67.38186772784232, 17.730256012553465`}, {-9.15, 
                   13.781867727842325`, 17.730256012553465`}, {-9.15, 5., 
                   36.80586345270282}, {9.15, 
                   96.11540717705394, -19.716021649192836`}, {9.15, 
                   67.38186772784232, 17.730256012553465`}, {9.15, 
                   13.781867727842325`, 17.730256012553465`}, {9.15, 5., 
                   36.80586345270282}, {-17.4, 
                   154.6797338284147, -11.225054235925064`}, {17.4, 
                   154.6797338284147, -11.225054235925064`}, {17.4, 
                   155.3740931588885, 12.490698696732654`}, {-17.4, 
                   155.3740931588885, 12.490698696732654`}, {9.15, 
                   83.33141716787081, -3.055601503076897}, {-9.15, 
                   83.33141716787081, -3.055601503076897}, {9.15, 
                   49.08186772784232, 17.730256012553465`}, {-9.15, 
                   49.08186772784232, 17.730256012553465`}, {9.15, 
                   11.61419962806579, 29.612646976042722`}, {-9.15, 
                   11.61419962806579, 29.612646976042722`}, {-100, 0, -100}, {
                   100, 0, -100}, {100, 0, 100}, {-100, 0, 100}, {
                   18.955150943881804`, 3.356256401182433, 
                   16.738681542699368`}}, {SphereBox[2, 10.5], 
                   {RGBColor[0, 0, 1], PointSize[0.009], 
                    Point3DBox[{7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
                    19, 20}], 
                    {GrayLevel[0], Thickness[0.004], 
                    Line3DBox[{{2, 3}, {6, 13, 17, 6}, {10, 7, 4, 10}, {7, 8, 
                    9}, {10, 11, 12}, {13, 14, 15, 16}, {17, 18, 19, 20}}], 
                    BSplineCurve3DBox[{{17, 5, 10}, {13, 5, 7}, {3, 4, 5, 
                    6}, {7, 3, 10}},
                    
                    SplineWeights->{{1, 2, 3}, {1, 2, 3}, {1, 1, 3, 1}, {1, 1,
                     1}}], 
                    {RGBColor[1, 0, 0], Point3DBox[{2, 3, 4, 5, 6}], 
                    {PointSize[Large], Point3DBox[1], 
                    {RGBColor[0, 1, 0], Thickness[0.01], 
                    Polygon3DBox[{31, 32, 33, 34}]}}}}}}],
                 Boxed->False,
                 ImageSize->{700, 700},
                 PlotRange->{{-130, 130}, {-30, 300}, {-100, 100}},
                 SphericalRegion->True,
                 ViewAngle->All,
                 
                 ViewVector->
                  NCache[{{300, 200, 300 3^Rational[1, 2]}, {0, 150, 0}}, {{
                    300, 200, 519.6152422706632}, {0, 150, 0}}],
                 ViewVertical->{0, 1, 0}], 55->
                
                Graphics3DBox[
                 GraphicsComplex3DBox[{{0., 110.75954189850094`, 0.}, {0., 
                   163.0729560567573, -4.629970441860388}, {0., 
                   152.51192523771175`, -6.889312832727651}, {0., 
                   152.12077594811745`, -6.972992180537549}, {0., 
                   107.92090622396381`, -16.428758483056093`}, {0., 
                   94.29690120690154, -17.869760667322986`}, {-17.4, 
                   140.6796592274848, -9.420613103977082}, {-17.4, 
                   134.34094863088495`, 20.20894558278964}, {-17.4, 
                   126.66336846932676`, 56.096892903064834`}, {17.4, 
                   140.6796592274848, -9.420613103977082}, {17.4, 
                   134.34094863088495`, 20.20894558278964}, {17.4, 
                   126.66336846932676`, 56.096892903064834`}, {-9.15, 
                   90.59690120690155, -17.869760667322986`}, {-9.15, 
                   65.67209865620417, 22.21258230073154}, {-9.15, 
                   12.072098656204162`, 22.21258230073154}, {-9.15, 5., 
                   41.985933574527174`}, {9.15, 
                   90.59690120690155, -17.869760667322986`}, {9.15, 
                   65.67209865620417, 22.21258230073154}, {9.15, 
                   12.072098656204162`, 22.21258230073154}, {9.15, 5., 
                   41.985933574527174`}, {-17.4, 
                   146.5743256636893, -4.969876706507787}, {17.4, 
                   146.5743256636893, -4.969876706507787}, {17.4, 
                   146.96237780686096`, 18.43118485450036}, {-17.4, 
                   146.96237780686096`, 18.43118485450036}, {9.15, 
                   79.50747634324381, -0.036514855264830004`}, {-9.15, 
                   79.50747634324381, -0.036514855264830004`}, {9.15, 
                   47.37209865620416, 22.21258230073154}, {-9.15, 
                   47.37209865620416, 22.21258230073154}, {9.15, 
                   10.956693872575514`, 34.23946353273256}, {-9.15, 
                   10.956693872575514`, 34.23946353273256}, {-100, 0, -100}, {
                   100, 0, -100}, {100, 0, 100}, {-100, 0, 100}, {
                   18.799856026986433`, 3.538951159739959, 
                   16.40069186724648}}, {SphereBox[2, 10.5], 
                   {RGBColor[0, 0, 1], PointSize[0.009], 
                    Point3DBox[{7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
                    19, 20}], 
                    {GrayLevel[0], Thickness[0.004], 
                    Line3DBox[{{2, 3}, {6, 13, 17, 6}, {10, 7, 4, 10}, {7, 8, 
                    9}, {10, 11, 12}, {13, 14, 15, 16}, {17, 18, 19, 20}}], 
                    BSplineCurve3DBox[{{17, 5, 10}, {13, 5, 7}, {3, 4, 5, 
                    6}, {7, 3, 10}},
                    
                    SplineWeights->{{1, 2, 3}, {1, 2, 3}, {1, 1, 3, 1}, {1, 1,
                     1}}], 
                    {RGBColor[1, 0, 0], Point3DBox[{2, 3, 4, 5, 6}], 
                    {PointSize[Large], Point3DBox[1], 
                    {RGBColor[0, 1, 0], Thickness[0.01], 
                    Polygon3DBox[{31, 32, 33, 34}]}}}}}}],
                 Boxed->False,
                 ImageSize->{700, 700},
                 PlotRange->{{-130, 130}, {-30, 300}, {-100, 100}},
                 SphericalRegion->True,
                 ViewAngle->All,
                 
                 ViewVector->
                  NCache[{{300, 200, 300 3^Rational[1, 2]}, {0, 150, 0}}, {{
                    300, 200, 519.6152422706632}, {0, 150, 0}}],
                 ViewVertical->{0, 1, 0}]}, Dynamic[$CellContext`i18$$],
                Alignment->Automatic,
                ImageSize->All],
               Identity,
               Editable->True,
               Selectable->True],
              ImageMargins->10],
             Deployed->False,
             StripOnInput->False,
             ScriptLevel->0,
             GraphicsBoxOptions->{PreserveImageOptions->True},
             Graphics3DBoxOptions->{PreserveImageOptions->True}],
            Identity,
            Editable->False,
            Selectable->False],
           Alignment->{Left, Center},
           Background->GrayLevel[1],
           Frame->1,
           FrameStyle->GrayLevel[0, 0.2],
           ItemSize->Automatic,
           StripOnInput->False]}
        },
        AutoDelete->False,
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Top}}, 
          "RowsIndexed" -> {}},
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.7], {
             Offset[0.5599999999999999]}, 
            Offset[0.7]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.4], {
             Offset[0.8]}, 
            Offset[0.4]}, "RowsIndexed" -> {}}], If[
        CurrentValue["SelectionOver"], 
        Manipulate`Dump`ReadControllerState[
         Map[Manipulate`Dump`updateOneVar[#, 
           CurrentValue["PreviousFormatTime"], 
           CurrentValue["CurrentFormatTime"]]& , {
           
           Manipulate`Dump`controllerLink[{$CellContext`i18$$, \
$CellContext`i18$137355$$}, "X1", 
            If["DefaultAbsolute", True, "JB1"], False, {1, 55, 1}, 55, 1.]}], 
         CurrentValue[{
          "ControllerData", {
           "Gamepad", "Joystick", "Multi-Axis Controller"}}], {}]],
       ImageSizeCache->{733., {376.75, 381.75}}],
      DefaultBaseStyle->{},
      FrameMargins->{{5, 5}, {5, 5}}],
     BaselinePosition->Automatic,
     ImageMargins->0],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "ListAnimate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.563976779007*^9, 3.563978401146*^9, {3.6175632898703804`*^9, 
   3.6175633216068463`*^9}, {3.6175633869155455`*^9, 
   3.6175634027147045`*^9}, {3.617563437286891*^9, 3.6175634710102715`*^9}}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1250, 901},
WindowMargins->{{147, Automatic}, {19, Automatic}},
PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 231, 4, 49, "Subtitle"],
Cell[801, 28, 75868, 1616, 2154, "Input"],
Cell[76672, 1646, 320, 10, 8, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[77029, 1661, 252, 4, 49, "Subtitle"],
Cell[CellGroupData[{
Cell[77306, 1669, 759, 13, 52, "Input"],
Cell[78068, 1684, 68, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[78173, 1690, 8196, 163, 192, "Input"],
Cell[86372, 1855, 7989, 140, 780, "Output"]
}, Open  ]],
Cell[94376, 1998, 320, 10, 8, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[94733, 2013, 123, 2, 49, "Subtitle"],
Cell[94859, 2017, 2101, 56, 72, "Input"],
Cell[96963, 2075, 2590, 58, 72, "Input"],
Cell[99556, 2135, 4345, 104, 412, "Input"],
Cell[103904, 2241, 5076, 136, 192, "Input"],
Cell[108983, 2379, 23317, 571, 712, "Input"],
Cell[CellGroupData[{
Cell[132325, 2954, 1863, 56, 75, "Input"],
Cell[134191, 3012, 2571, 49, 422, "Output"]
}, Open  ]],
Cell[136777, 3064, 320, 10, 10, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[137134, 3079, 107, 1, 64, "Title"],
Cell[CellGroupData[{
Cell[137266, 3084, 320, 5, 31, "Input"],
Cell[137589, 3091, 202822, 3416, 794, "Output"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)