Log_Visualizer.nb

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

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

(* CreatedBy='Mathematica 10.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     40960,        898]
NotebookOptionsPosition[     40353,        871]
NotebookOutlinePosition[     40725,        887]
CellTagsIndexPosition[     40682,        884]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Visualization of Logs", "Title",
 CellChangeTimes->{{3.6809687381224813`*^9, 3.680968756965559*^9}, {
  3.6831073320097833`*^9, 3.683107341933569*^9}}],

Cell[CellGroupData[{

Cell["Import Logs", "Section",
 CellChangeTimes->{{3.6808593585256314`*^9, 3.6808593896364107`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"FileAddress", "=", "\"\<D:/log.txt\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Data", " ", "=", " ", 
    RowBox[{"Import", "[", 
     RowBox[{"FileAddress", ",", "\"\<Data\>\""}], "]"}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Data", "=", 
     RowBox[{"Data", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"500", ";;", "505"}], ",", "All"}], "]"}], "]"}]}], ";"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"lenData", "=", 
    RowBox[{"Length", "[", 
     RowBox[{"Data", "[", 
      RowBox[{"[", 
       RowBox[{"All", ",", "1"}], "]"}], "]"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"readArray", " ", "=", " ", 
    RowBox[{"Function", "[", 
     RowBox[{"len", ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"i", "+=", "len"}], ";", "\[IndentingNewLine]", 
       RowBox[{"Data", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{
           RowBox[{"i", "-", "len"}], ";;", 
           RowBox[{"i", "-", "1"}]}]}], "]"}], "]"}]}]}], 
     "\[IndentingNewLine]", "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"read2DArray", " ", "=", " ", 
    RowBox[{"Function", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"i", ",", "j"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"readArray", "[", "j", "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"n", ",", "1", ",", "i"}], "}"}]}], "]"}], 
       "\[Transpose]"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"i", " ", "=", " ", "2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PHD3to0", " ", "=", " ", 
   RowBox[{"readArray", "[", "3", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PLH1to0", " ", "=", " ", 
   RowBox[{"readArray", "[", "3", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PLH5to0", " ", "=", " ", 
   RowBox[{"readArray", "[", "3", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PLH6to0", " ", "=", " ", 
   RowBox[{"readArray", "[", "3", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PRH1to0", " ", "=", " ", 
   RowBox[{"readArray", "[", "3", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PRH5to0", " ", "=", " ", 
   RowBox[{"readArray", "[", "3", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PRH6to0", " ", "=", " ", 
   RowBox[{"readArray", "[", "3", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PLL1to0", " ", "=", " ", 
   RowBox[{"readArray", "[", "3", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PLL4to0", " ", "=", " ", 
   RowBox[{"readArray", "[", "3", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PLL6to0", " ", "=", " ", 
   RowBox[{"readArray", "[", "3", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PLL7to0", " ", "=", " ", 
   RowBox[{"readArray", "[", "3", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PRL1to0", " ", "=", " ", 
   RowBox[{"readArray", "[", "3", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PRL4to0", " ", "=", " ", 
   RowBox[{"readArray", "[", "3", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PRL6to0", " ", "=", " ", 
   RowBox[{"readArray", "[", "3", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PRL7to0", " ", "=", " ", 
   RowBox[{"readArray", "[", "3", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"com", " ", "=", " ", 
   RowBox[{"readArray", "[", "3", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"comHD", " ", "=", 
   RowBox[{"readArray", "[", "3", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"comLH", " ", "=", 
   RowBox[{"readArray", "[", "3", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"comRH", " ", "=", 
   RowBox[{"readArray", "[", "3", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"comLL", " ", "=", 
   RowBox[{"readArray", "[", "3", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"comRL", " ", "=", 
   RowBox[{"readArray", "[", "3", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"saLL", "=", 
   RowBox[{"read2DArray", "[", 
    RowBox[{"10", ",", "3"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"saRL", "=", 
   RowBox[{"read2DArray", "[", 
    RowBox[{"10", ",", "3"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ang", "=", 
    RowBox[{"readArray", "[", "2", "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Rx", "[", "\[Theta]_", "]"}], ":=", 
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {"1", "0", "0"},
      {"0", 
       RowBox[{"Cos", "[", "\[Theta]", "]"}], 
       RowBox[{"-", 
        RowBox[{"Sin", "[", "\[Theta]", "]"}]}]},
      {"0", 
       RowBox[{"Sin", "[", "\[Theta]", "]"}], 
       RowBox[{"Cos", "[", "\[Theta]", "]"}]}
     }], "\[NoBreak]", ")"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Ry", "[", "\[Theta]_", "]"}], ":=", 
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"Cos", "[", "\[Theta]", "]"}], "0", 
       RowBox[{"Sin", "[", "\[Theta]", "]"}]},
      {"0", "1", "0"},
      {
       RowBox[{"-", 
        RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "0", 
       RowBox[{"Cos", "[", "\[Theta]", "]"}]}
     }], "\[NoBreak]", ")"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.680859430148728*^9, 3.680859512194421*^9}, {
   3.680859549035528*^9, 3.680859650111309*^9}, {3.6808743919884963`*^9, 
   3.6808744518369193`*^9}, {3.680964845770851*^9, 3.6809649503428326`*^9}, 
   3.6809803279677954`*^9, {3.6810465177053475`*^9, 3.6810465211495447`*^9}, {
   3.6810467821634736`*^9, 3.6810468110101233`*^9}, {3.6810996186210265`*^9, 
   3.681099619469075*^9}, 3.6811141846927423`*^9, {3.6811154569671307`*^9, 
   3.681115523339107*^9}, 3.681115847339385*^9, {3.6811166674387627`*^9, 
   3.681116890873886*^9}, {3.68111921687115*^9, 3.6811192201524725`*^9}, {
   3.6815443072609773`*^9, 3.681544308511881*^9}, {3.681544490448618*^9, 
   3.6815444992979164`*^9}, {3.681545355960429*^9, 3.681545357320377*^9}, {
   3.681662461047452*^9, 3.681662462131219*^9}, {3.681663825475046*^9, 
   3.6816638259543858`*^9}, {3.6816639480868177`*^9, 
   3.6816639486021824`*^9}, {3.681665139746457*^9, 3.6816651448890905`*^9}, {
   3.6816652562028694`*^9, 3.681665288550758*^9}, 3.681665364810728*^9, 
   3.681666270709754*^9, {3.6817177351483674`*^9, 3.681717746833624*^9}, {
   3.681718108952893*^9, 3.6817181093111477`*^9}, {3.681719800381256*^9, 
   3.681719803267421*^9}, {3.6821737014311943`*^9, 3.6821737018124638`*^9}, {
   3.682181008891034*^9, 3.6821810096105433`*^9}, {3.682181211007276*^9, 
   3.682181212024008*^9}, {3.682181419331439*^9, 3.6821814199769077`*^9}, {
   3.6821814939571686`*^9, 3.682181524946059*^9}, {3.682181698785966*^9, 
   3.6821816991061916`*^9}, {3.6821821513596554`*^9, 
   3.6821821518259974`*^9}, {3.6821824057108603`*^9, 
   3.6821824065404296`*^9}, {3.682182482725247*^9, 3.6821824979930453`*^9}, {
   3.682511913001167*^9, 3.6825119140699368`*^9}, {3.6825173379471283`*^9, 
   3.682517340097648*^9}, {3.6825174220805616`*^9, 3.682517488249303*^9}, {
   3.6826007005555105`*^9, 3.6826007307718515`*^9}, {3.6826007774077816`*^9, 
   3.6826008025405483`*^9}, {3.68260086835703*^9, 3.682600871790468*^9}, {
   3.6826009133267965`*^9, 3.6826009439014044`*^9}, {3.6826009750323853`*^9, 
   3.68260102536195*^9}, {3.6826011495726833`*^9, 3.6826011507775345`*^9}, 
   3.682602751284466*^9, {3.682604818560279*^9, 3.6826050265932355`*^9}, {
   3.68260605526114*^9, 3.682606055612382*^9}, {3.6826125331519804`*^9, 
   3.682612533545263*^9}, {3.6826126393923326`*^9, 3.682612641004464*^9}, {
   3.682674819583457*^9, 3.6826748207242613`*^9}, 3.682675059227436*^9, {
   3.682675803343134*^9, 3.682675804561001*^9}, {3.682676348239354*^9, 
   3.6826763488788185`*^9}, {3.6826764859664707`*^9, 
   3.6826764866929836`*^9}, {3.682677973049058*^9, 3.6826780239419394`*^9}, {
   3.6827565886213627`*^9, 3.68275658901464*^9}, {3.682756852754611*^9, 
   3.6827568539534564`*^9}, {3.6827569228390293`*^9, 
   3.6827569235265136`*^9}, {3.6827589482171936`*^9, 
   3.6827589487235503`*^9}, {3.682759126911195*^9, 3.682759128067999*^9}, {
   3.6827592561873393`*^9, 3.682759256952879*^9}, {3.6827645302099276`*^9, 
   3.6827645306072083`*^9}, {3.6827646343083315`*^9, 3.68276467299561*^9}, {
   3.682764704315696*^9, 3.6827647186838274`*^9}, {3.6827655224025526`*^9, 
   3.682765522827852*^9}, {3.682766243759201*^9, 3.6827662457245874`*^9}, {
   3.6827666120919228`*^9, 3.682766623783167*^9}, {3.6827666569145317`*^9, 
   3.6827666577691326`*^9}, {3.6831075878995333`*^9, 
   3.6831076004784293`*^9}, {3.6831085792275105`*^9, 
   3.6831087335076265`*^9}, {3.6831118762895327`*^9, 3.683111877308253*^9}, {
   3.6831121493556623`*^9, 3.68311244977514*^9}, {3.6831133506220274`*^9, 
   3.683113420761633*^9}, {3.683113510772298*^9, 3.6831135403081837`*^9}, {
   3.6831135936048784`*^9, 3.6831136121550083`*^9}, {3.6831141791390057`*^9, 
   3.683114294257437*^9}, {3.6831143333030424`*^9, 3.68311437030221*^9}, {
   3.6831145046912613`*^9, 3.683114557345499*^9}, 3.6831146665196676`*^9, {
   3.683114712467165*^9, 3.683114749234169*^9}, {3.6831147877404003`*^9, 
   3.683114822542013*^9}, 3.6831148943668127`*^9, 3.683283769150447*^9, 
   3.683283855455491*^9, {3.6832859433160343`*^9, 3.6832860384913473`*^9}, 
   3.6832912476959743`*^9, {3.6832913634298296`*^9, 3.6832913643034472`*^9}, {
   3.68329181364425*^9, 3.683291815943877*^9}, {3.6832918608336253`*^9, 
   3.6832918988224936`*^9}, {3.6832919562421045`*^9, 3.683291986427453*^9}, {
   3.683292018905423*^9, 3.6832920262326064`*^9}, {3.6832920606899767`*^9, 
   3.683292062776452*^9}, {3.6832920929097776`*^9, 3.6832921057468443`*^9}, {
   3.6832921824280777`*^9, 3.6832922849255705`*^9}, {3.683292364728013*^9, 
   3.683292381214673*^9}, {3.683292694666366*^9, 3.6832927188624887`*^9}, {
   3.68329280293496*^9, 3.6832928123946314`*^9}, {3.6832959788491573`*^9, 
   3.683295995699075*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Plot", "Section",
 CellChangeTimes->{{3.677846588657188*^9, 3.6778466171668186`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"plot", " ", "=", " ", 
     RowBox[{"{", "com", "}"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"ListPointPlot3D", "[", "plot", "]"}], "\[IndentingNewLine]", 
      "r"}], " ", "=", " ", 
     RowBox[{
      RowBox[{"0.03", "\[IndentingNewLine]", "mx"}], "=", " ", 
      RowBox[{"Mean", "[", 
       RowBox[{
        RowBox[{"plot", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "All", ",", "1"}], "]"}], "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"my", "=", " ", 
     RowBox[{"Mean", "[", 
      RowBox[{
       RowBox[{"plot", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "All", ",", "2"}], "]"}], "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"mz", "=", " ", 
     RowBox[{"Mean", "[", 
      RowBox[{
       RowBox[{"plot", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "All", ",", "3"}], "]"}], "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"ListLinePlot", "[", 
      RowBox[{
       RowBox[{"plot", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "All", ",", "1"}], "]"}], "]"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"mx", "-", "r"}], ",", 
          RowBox[{"mx", "+", "r"}]}], "}"}]}], ",", 
       RowBox[{"PlotLegends", "\[Rule]", "Automatic"}]}], "]"}], 
     "\[IndentingNewLine]", 
     RowBox[{"ListLinePlot", "[", 
      RowBox[{
       RowBox[{"plot", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "All", ",", "2"}], "]"}], "]"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"my", "-", "r"}], ",", 
          RowBox[{"my", "+", "r"}]}], "}"}]}], ",", 
       RowBox[{"PlotLegends", "\[Rule]", "Automatic"}]}], "]"}], 
     "\[IndentingNewLine]", 
     RowBox[{"ListLinePlot", "[", 
      RowBox[{
       RowBox[{"plot", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "All", ",", "3"}], "]"}], "]"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"mz", "-", "r"}], ",", 
          RowBox[{"mz", "+", "r"}]}], "}"}]}], ",", 
       RowBox[{"PlotLegends", "\[Rule]", "Automatic"}]}], "]"}], 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"ListLinePlot", "[", 
      RowBox[{
       RowBox[{"ang", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
       RowBox[{"PlotLegends", "\[Rule]", "Automatic"}]}], "]"}], 
     "\[IndentingNewLine]", 
     RowBox[{"ListLinePlot", "[", 
      RowBox[{
       RowBox[{"ang", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", 
       RowBox[{"PlotLegends", "\[Rule]", "Automatic"}]}], "]"}]}]}], "*)"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"i", "=", 
      RowBox[{"Floor", "[", "j", "]"}]}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"plot", " ", "=", " ", 
      RowBox[{
       RowBox[{"Reap", "[", "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Sow", "[", 
          RowBox[{"Graphics3D", "[", 
           RowBox[{"{", 
            RowBox[{"Thick", ",", 
             RowBox[{"Line", "[", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
                RowBox[{"PHD3to0", "[", 
                 RowBox[{"[", "i", "]"}], "]"}]}], "}"}], "]"}]}], "}"}], 
           "]"}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
         RowBox[{"Sow", "[", 
          RowBox[{"Graphics3D", "[", 
           RowBox[{"{", 
            RowBox[{"Thick", ",", 
             RowBox[{"Line", "[", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"0", ",", "0", ",", "0.100"}], "}"}], ",", 
                RowBox[{"PRH1to0", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], ",", 
                RowBox[{"PRH5to0", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], ",", 
                RowBox[{"PRH6to0", "[", 
                 RowBox[{"[", "i", "]"}], "]"}]}], "}"}], "]"}]}], "}"}], 
           "]"}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
         RowBox[{"Sow", "[", 
          RowBox[{"Graphics3D", "[", 
           RowBox[{"{", 
            RowBox[{"Thick", ",", 
             RowBox[{"Line", "[", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"0", ",", "0", ",", "0.100"}], "}"}], ",", 
                RowBox[{"PLH1to0", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], ",", 
                RowBox[{"PLH5to0", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], ",", 
                RowBox[{"PLH6to0", "[", 
                 RowBox[{"[", "i", "]"}], "]"}]}], "}"}], "]"}]}], "}"}], 
           "]"}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
         RowBox[{"Sow", "[", 
          RowBox[{"Graphics3D", "[", 
           RowBox[{"{", 
            RowBox[{"Thick", ",", 
             RowBox[{"Line", "[", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
                RowBox[{"PRL1to0", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], ",", 
                RowBox[{"PRL4to0", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], ",", 
                RowBox[{"PRL6to0", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], ",", 
                RowBox[{"PRL7to0", "[", 
                 RowBox[{"[", "i", "]"}], "]"}]}], "}"}], "]"}]}], "}"}], 
           "]"}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
         RowBox[{"Sow", "[", 
          RowBox[{"Graphics3D", "[", 
           RowBox[{"{", 
            RowBox[{"Thick", ",", 
             RowBox[{"Line", "[", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
                RowBox[{"PLL1to0", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], ",", 
                RowBox[{"PLL4to0", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], ",", 
                RowBox[{"PLL6to0", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], ",", 
                RowBox[{"PLL7to0", "[", 
                 RowBox[{"[", "i", "]"}], "]"}]}], "}"}], "]"}]}], "}"}], 
           "]"}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
         RowBox[{"Sow", "[", 
          RowBox[{"Graphics3D", "[", 
           RowBox[{"{", 
            RowBox[{"Red", ",", 
             RowBox[{"Sphere", "[", 
              RowBox[{
               RowBox[{"com", "[", 
                RowBox[{"[", "i", "]"}], "]"}], ",", "0.006"}], "]"}]}], 
            "}"}], "]"}], "]"}], ";", "\[IndentingNewLine]", 
         RowBox[{"Sow", "[", 
          RowBox[{"Graphics3D", "[", 
           RowBox[{"{", 
            RowBox[{"Orange", ",", 
             RowBox[{"Sphere", "[", 
              RowBox[{
               RowBox[{"comHD", "[", 
                RowBox[{"[", "i", "]"}], "]"}], ",", "0.004"}], "]"}]}], 
            "}"}], "]"}], "]"}], ";", "\[IndentingNewLine]", 
         "\[IndentingNewLine]", 
         RowBox[{"Sow", "[", 
          RowBox[{"Graphics3D", "[", 
           RowBox[{"{", 
            RowBox[{"Orange", ",", 
             RowBox[{"Sphere", "[", 
              RowBox[{
               RowBox[{"comRH", "[", 
                RowBox[{"[", "i", "]"}], "]"}], ",", "0.004"}], "]"}]}], 
            "}"}], "]"}], "]"}], ";", "\[IndentingNewLine]", 
         RowBox[{"Sow", "[", 
          RowBox[{"Graphics3D", "[", 
           RowBox[{"{", 
            RowBox[{"Orange", ",", 
             RowBox[{"Sphere", "[", 
              RowBox[{
               RowBox[{"comLH", "[", 
                RowBox[{"[", "i", "]"}], "]"}], ",", "0.004"}], "]"}]}], 
            "}"}], "]"}], "]"}], ";", "\[IndentingNewLine]", 
         "\[IndentingNewLine]", 
         RowBox[{"Sow", "[", 
          RowBox[{"Graphics3D", "[", 
           RowBox[{"{", 
            RowBox[{"Orange", ",", 
             RowBox[{"Sphere", "[", 
              RowBox[{
               RowBox[{"comRL", "[", 
                RowBox[{"[", "i", "]"}], "]"}], ",", "0.004"}], "]"}]}], 
            "}"}], "]"}], "]"}], ";", "\[IndentingNewLine]", 
         RowBox[{"Sow", "[", 
          RowBox[{"Graphics3D", "[", 
           RowBox[{"{", 
            RowBox[{"Orange", ",", 
             RowBox[{"Sphere", "[", 
              RowBox[{
               RowBox[{"comLL", "[", 
                RowBox[{"[", "i", "]"}], "]"}], ",", "0.004"}], "]"}]}], 
            "}"}], "]"}], "]"}], ";", "\[IndentingNewLine]", 
         "\[IndentingNewLine]", 
         RowBox[{"Sow", "[", 
          RowBox[{"Graphics3D", "[", 
           RowBox[{"{", 
            RowBox[{"Orange", ",", 
             RowBox[{"Polygon", "[", 
              RowBox[{"saLL", "[", 
               RowBox[{"[", "i", "]"}], "]"}], "]"}]}], "}"}], "]"}], "]"}], 
         ";", "\[IndentingNewLine]", 
         RowBox[{"Sow", "[", 
          RowBox[{"Graphics3D", "[", 
           RowBox[{"{", 
            RowBox[{"Orange", ",", 
             RowBox[{"Polygon", "[", 
              RowBox[{"saRL", "[", 
               RowBox[{"[", "i", "]"}], "]"}], "]"}]}], "}"}], "]"}], "]"}], 
         ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
         RowBox[{"z", "=", "0"}], ";", "\[IndentingNewLine]", 
         RowBox[{"QGto0", "=", 
          RowBox[{
           RowBox[{"Rx", "[", 
            RowBox[{"-", 
             RowBox[{"ang", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1"}], "]"}], "]"}]}], "]"}], ".", 
           RowBox[{"Ry", "[", 
            RowBox[{"-", 
             RowBox[{"ang", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "]"}]}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"Do", "[", 
          RowBox[{
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{"p", ".", "QGto0"}], ")"}], "[", 
               RowBox[{"[", "3", "]"}], "]"}], "<", "z"}], ",", 
             RowBox[{"z", "=", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"p", ".", "QGto0"}], ")"}], "[", 
               RowBox[{"[", "3", "]"}], "]"}]}]}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"p", ",", 
             RowBox[{"saLL", "[", 
              RowBox[{"[", "i", "]"}], "]"}]}], "}"}]}], "]"}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"Do", "[", 
          RowBox[{
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{"p", ".", "QGto0"}], ")"}], "[", 
               RowBox[{"[", "3", "]"}], "]"}], "<", "z"}], ",", 
             RowBox[{"z", "=", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"p", ".", "QGto0"}], ")"}], "[", 
               RowBox[{"[", "3", "]"}], "]"}]}]}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"p", ",", 
             RowBox[{"saRL", "[", 
              RowBox[{"[", "i", "]"}], "]"}]}], "}"}]}], "]"}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"Sow", "[", 
          RowBox[{"Graphics3D", "[", 
           RowBox[{"{", 
            RowBox[{"Blue", ",", 
             RowBox[{"Sphere", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"com", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], ".", "QGto0"}], ")"}], 
                   "*", 
                   RowBox[{"{", 
                    RowBox[{"1", ",", "1", ",", "0"}], "}"}]}], "+", 
                  RowBox[{"{", 
                   RowBox[{"0", ",", "0", ",", "z"}], "}"}]}], ")"}], ".", 
                RowBox[{"QGto0", "\[Transpose]"}]}], ",", "0.005"}], "]"}]}], 
            "}"}], "]"}], "]"}], ";", "\[IndentingNewLine]", 
         "\[IndentingNewLine]", 
         RowBox[{"ground", "=", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"p", "+", 
               RowBox[{"{", 
                RowBox[{"0", ",", "0", ",", "z"}], "}"}]}], ")"}], ".", 
             RowBox[{"QGto0", "\[Transpose]"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"p", ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"0.2", ",", "0.2", ",", "0"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"-", "0.2"}], ",", "0.2", ",", "0"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"-", "0.2"}], ",", 
                  RowBox[{"-", "0.2"}], ",", "0"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"0.2", ",", 
                  RowBox[{"-", "0.2"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}],
            "]"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"Sow", "[", 
          RowBox[{"Graphics3D", "[", 
           RowBox[{"{", 
            RowBox[{"LightGreen", ",", 
             RowBox[{"Polygon", "[", "ground", "]"}]}], "}"}], "]"}], "]"}], 
         ";"}], "\[IndentingNewLine]", "]"}], "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"Show", "[", 
      RowBox[{"plot", ",", 
       RowBox[{"Boxed", "\[Rule]", "False"}], ",", 
       RowBox[{"Background", "\[Rule]", 
        RowBox[{"RGBColor", "[", 
         RowBox[{"0.84", ",", "0.92", ",", "1"}], "]"}]}]}], "]"}]}], 
    "\[IndentingNewLine]", "\[IndentingNewLine]", ",", 
    RowBox[{"{", 
     RowBox[{"j", ",", "1", ",", "lenData"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.6778466504147205`*^9, 3.67784665512599*^9}, {
   3.677846702246685*^9, 3.6778467320753913`*^9}, {3.677846929777699*^9, 
   3.677846933007884*^9}, {3.6778471960299277`*^9, 3.6778472520041294`*^9}, {
   3.677847371010936*^9, 3.677847378615371*^9}, 3.677847432550456*^9, {
   3.6778474848564477`*^9, 3.6778476222483063`*^9}, {3.6778477135505285`*^9, 
   3.677847752162737*^9}, {3.6778478695454507`*^9, 3.677847922760494*^9}, {
   3.677848672584382*^9, 3.6778487841007605`*^9}, {3.6778488637593164`*^9, 
   3.677848948214147*^9}, {3.6778491141906404`*^9, 3.6778491178298483`*^9}, {
   3.677849171056893*^9, 3.6778491790603504`*^9}, {3.677849735164158*^9, 
   3.677849937099708*^9}, {3.6778500367934103`*^9, 3.6778500572915826`*^9}, {
   3.6778501182520695`*^9, 3.677850126859562*^9}, {3.6778501583383617`*^9, 
   3.677850322981779*^9}, {3.67785035883683*^9, 3.6778504029923553`*^9}, {
   3.6778504608376637`*^9, 3.6778505133726687`*^9}, {3.677850580497508*^9, 
   3.677850616181549*^9}, {3.6778506648933353`*^9, 3.677850666758442*^9}, {
   3.6778507237177*^9, 3.6778507295090313`*^9}, {3.677850791713589*^9, 
   3.6778509643494635`*^9}, {3.6778509974553566`*^9, 
   3.6778510011905704`*^9}, {3.677851095989993*^9, 3.6778511346312027`*^9}, {
   3.677851211220584*^9, 3.677851234485914*^9}, 3.6778512682348447`*^9, {
   3.677851314595496*^9, 3.677851329381342*^9}, {3.6778522523981357`*^9, 
   3.67785228079876*^9}, {3.6779001423262267`*^9, 3.6779001668126273`*^9}, {
   3.6779002172275105`*^9, 3.67790021930363*^9}, {3.677902128002801*^9, 
   3.677902298585558*^9}, 3.6779024854442453`*^9, {3.677914755197035*^9, 
   3.677914770231895*^9}, {3.677914926259819*^9, 3.6779149675431805`*^9}, {
   3.677915001660132*^9, 3.6779150254904947`*^9}, {3.677926513148611*^9, 
   3.67792651504772*^9}, {3.6779267096178484`*^9, 3.677926722021558*^9}, {
   3.6779268447335763`*^9, 3.677926864938732*^9}, {3.677926910786354*^9, 
   3.6779269186228027`*^9}, {3.677926974514*^9, 3.677927097978061*^9}, {
   3.677927164060841*^9, 3.6779271649598923`*^9}, {3.6779279139257307`*^9, 
   3.6779279358639855`*^9}, {3.6804347316026716`*^9, 
   3.6804347393381143`*^9}, {3.680434788514927*^9, 3.68043479556433*^9}, {
   3.6811204723416367`*^9, 3.681120565567625*^9}, {3.681120600124703*^9, 
   3.681120661360738*^9}, {3.6811207273304267`*^9, 3.68112073588748*^9}, {
   3.681120793147992*^9, 3.68112080754318*^9}, {3.6811208718937206`*^9, 
   3.6811209875405626`*^9}, {3.681121152270153*^9, 3.681121157571907*^9}, {
   3.6811216902358904`*^9, 3.6811217065564404`*^9}, {3.681121767295411*^9, 
   3.681121780901041*^9}, {3.681122901983405*^9, 3.681122923121365*^9}, {
   3.6811288363257256`*^9, 3.6811288373084073`*^9}, 3.6815383270511875`*^9, {
   3.6815454455828533`*^9, 3.681545448060602*^9}, {3.681656634255644*^9, 
   3.6816566484306755`*^9}, {3.681662316246977*^9, 3.681662317109587*^9}, {
   3.6816631227657447`*^9, 3.681663123793474*^9}, {3.681664446933153*^9, 
   3.681664463861144*^9}, {3.6816648673456755`*^9, 3.681664947803615*^9}, {
   3.6816655254283943`*^9, 3.6816655539655905`*^9}, {3.6816656718570223`*^9, 
   3.6816656914118614`*^9}, {3.681665743118452*^9, 3.681665780463882*^9}, {
   3.6816658155016785`*^9, 3.6816658244480085`*^9}, 3.6816658797261457`*^9, {
   3.6816659500268807`*^9, 3.6816659833434587`*^9}, 3.682511943074411*^9, {
   3.682601208667429*^9, 3.6826012511464467`*^9}, {3.682601289880811*^9, 
   3.6826013152717476`*^9}, {3.682601381905805*^9, 3.68260143943746*^9}, {
   3.6826014894427834`*^9, 3.682601582792714*^9}, {3.6826016626221066`*^9, 
   3.6826018672906866`*^9}, {3.682601907929407*^9, 3.6826019962317724`*^9}, {
   3.682602108088789*^9, 3.682602184282625*^9}, {3.682602225317613*^9, 
   3.682602234130839*^9}, 3.68260236308392*^9, {3.682602393456693*^9, 
   3.6826023948746943`*^9}, {3.682602425255158*^9, 3.682602476799568*^9}, {
   3.682602511060769*^9, 3.6826025572654085`*^9}, {3.682602646033125*^9, 
   3.682602709241784*^9}, {3.682602769110058*^9, 3.682602771373667*^9}, {
   3.6826030313743362`*^9, 3.682603056201872*^9}, {3.6826033642995186`*^9, 
   3.6826034096675663`*^9}, {3.682603493106496*^9, 3.682603497039274*^9}, {
   3.682603574469985*^9, 3.6826035900880175`*^9}, {3.6826036591808257`*^9, 
   3.6826036728034363`*^9}, {3.6826038862061987`*^9, 
   3.6826039251526976`*^9}, {3.682603968149071*^9, 3.682604073150258*^9}, {
   3.682604103560726*^9, 3.682604308023162*^9}, {3.682604346473341*^9, 
   3.6826045143659244`*^9}, {3.6826045921628933`*^9, 3.682604593354723*^9}, {
   3.6826049610159025`*^9, 3.682604963093373*^9}, {3.6826059399053965`*^9, 
   3.682606027732687*^9}, {3.682606809077637*^9, 3.682606810493636*^9}, {
   3.6826068509332037`*^9, 3.682606874034524*^9}, {3.6826125698314514`*^9, 
   3.682612575357348*^9}, {3.682612612554994*^9, 3.6826126360279555`*^9}, {
   3.682612685983185*^9, 3.6826127556432867`*^9}, {3.682612794171467*^9, 
   3.6826128478192997`*^9}, {3.6826130182469645`*^9, 3.682613020210349*^9}, {
   3.6826130817337294`*^9, 3.6826130941514874`*^9}, {3.682613278163369*^9, 
   3.6826135518120313`*^9}, {3.6826136248695555`*^9, 3.682613699914465*^9}, {
   3.6826745851691656`*^9, 3.682674589026885*^9}, {3.6826746788222113`*^9, 
   3.6826746840358906`*^9}, {3.6826750414829235`*^9, 3.682675050572336*^9}, {
   3.6826753834990892`*^9, 3.6826753916878633`*^9}, {3.6826754229479055`*^9, 
   3.68267550828209*^9}, 3.682675566241959*^9, {3.6826763721682405`*^9, 
   3.6826763730178266`*^9}, {3.6826770652059073`*^9, 
   3.6826770883242135`*^9}, {3.6826779310304255`*^9, 3.682677936840523*^9}, {
   3.6827520123755355`*^9, 3.682752014681159*^9}, {3.6827520712630463`*^9, 
   3.6827520730683317`*^9}, {3.6827550665841312`*^9, 
   3.6827550696733103`*^9}, {3.6827568035238976`*^9, 3.682756823286831*^9}, 
   3.68275688042212*^9, 3.6827599865263386`*^9, {3.682765014246237*^9, 
   3.682765017703675*^9}, {3.6827662256804657`*^9, 3.682766227220538*^9}, {
   3.6827666869977407`*^9, 3.6827666895675583`*^9}, {3.682834717079622*^9, 
   3.6828347175549545`*^9}, {3.6828349511086445`*^9, 3.682834978429905*^9}, {
   3.6828350226820955`*^9, 3.68283519572011*^9}, 3.682835338015446*^9, {
   3.6828353985791645`*^9, 3.6828354923012505`*^9}, {3.683107513623*^9, 
   3.683107513782112*^9}, {3.683108867336278*^9, 3.6831092291333313`*^9}, {
   3.6831122142045326`*^9, 3.6831122161148787`*^9}, {3.683112420389367*^9, 
   3.683112420403365*^9}, {3.6831132882268953`*^9, 3.6831133379110365`*^9}, {
   3.6831144537242146`*^9, 3.6831144582444086`*^9}, {3.6831148310210133`*^9, 
   3.6831148865482826`*^9}, {3.6832853360645494`*^9, 
   3.6832853545316105`*^9}, {3.683285394440833*^9, 3.6832854036113224`*^9}, {
   3.6832855497286625`*^9, 3.6832857054718175`*^9}, {3.683285748477234*^9, 
   3.6832858100367727`*^9}, 3.683286045985651*^9, {3.683286080488054*^9, 
   3.6832860817259293`*^9}, {3.6832861486872864`*^9, 3.683286356944582*^9}, 
   3.6832868680319333`*^9, {3.6832869081833315`*^9, 3.68328714737068*^9}, {
   3.6832874106934915`*^9, 3.683287490084656*^9}, 3.683287624820918*^9, {
   3.683287748505392*^9, 3.683287842363779*^9}, {3.6832879523875914`*^9, 
   3.683287996339678*^9}, {3.683288833234149*^9, 3.6832888419733286`*^9}, {
   3.683288884785709*^9, 3.6832889283215*^9}, 3.683289010619705*^9, 
   3.6832906516451464`*^9, {3.6832907352102385`*^9, 3.6832907693093657`*^9}, {
   3.6832907996718435`*^9, 3.6832908346595936`*^9}, 3.683290888397583*^9, 
   3.683290949217599*^9, {3.683291009020896*^9, 3.6832910428938656`*^9}, {
   3.683291098788386*^9, 3.6832911321649904`*^9}, {3.683291185315649*^9, 
   3.6832911906364*^9}, {3.6832912921684284`*^9, 3.683291298683036*^9}, {
   3.6832928498261156`*^9, 3.683292880411747*^9}, {3.683293456732349*^9, 
   3.683293484105723*^9}, {3.68329352105284*^9, 3.683293531493226*^9}, {
   3.683293664848542*^9, 3.683293858635601*^9}, {3.6832939228159933`*^9, 
   3.683293925229701*^9}, {3.683293959172707*^9, 3.6832940131442833`*^9}, {
   3.6832941722097855`*^9, 3.683294192832388*^9}, {3.683294224874032*^9, 
   3.683294264699199*^9}, {3.683294384629021*^9, 3.683294408650011*^9}, {
   3.6832944529423466`*^9, 3.683294472864428*^9}, {3.683294603636919*^9, 
   3.6832946082141647`*^9}, 3.683294712041602*^9, {3.6832950392401714`*^9, 
   3.683295070836519*^9}, {3.6832951009027853`*^9, 3.683295102314796*^9}, {
   3.6832951776840887`*^9, 3.683295208287746*^9}, {3.6832952505916667`*^9, 
   3.683295252138749*^9}, 3.6832952915196133`*^9, {3.683295336297282*^9, 
   3.6832953518012447`*^9}, {3.683295404590572*^9, 3.683295411939786*^9}, {
   3.683295519013514*^9, 3.683295566914379*^9}, {3.6832958237284584`*^9, 
   3.6832958593016057`*^9}, {3.683295958444727*^9, 3.6832959719953103`*^9}, {
   3.684217689631604*^9, 3.6842177017762985`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`j$$ = 209.5, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`j$$], 1, 295}}, Typeset`size$$ = {708., {380., 383.}},
     Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`j$862$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`j$$ = 1}, 
      "ControllerVariables" :> {
        Hold[$CellContext`j$$, $CellContext`j$862$$, 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`i = Floor[$CellContext`j$$]; $CellContext`plot = 
        Part[
          Reap[Sow[
             Graphics3D[{Thick, 
               Line[{{0, 0, 0}, 
                 Part[$CellContext`PHD3to0, $CellContext`i]}]}]]; Sow[
             Graphics3D[{Thick, 
               Line[{{0, 0, 0}, {0, 0, 0.1}, 
                 Part[$CellContext`PRH1to0, $CellContext`i], 
                 Part[$CellContext`PRH5to0, $CellContext`i], 
                 Part[$CellContext`PRH6to0, $CellContext`i]}]}]]; Sow[
             Graphics3D[{Thick, 
               Line[{{0, 0, 0}, {0, 0, 0.1}, 
                 Part[$CellContext`PLH1to0, $CellContext`i], 
                 Part[$CellContext`PLH5to0, $CellContext`i], 
                 Part[$CellContext`PLH6to0, $CellContext`i]}]}]]; Sow[
             Graphics3D[{Thick, 
               Line[{{0, 0, 0}, 
                 Part[$CellContext`PRL1to0, $CellContext`i], 
                 Part[$CellContext`PRL4to0, $CellContext`i], 
                 Part[$CellContext`PRL6to0, $CellContext`i], 
                 Part[$CellContext`PRL7to0, $CellContext`i]}]}]]; Sow[
             Graphics3D[{Thick, 
               Line[{{0, 0, 0}, 
                 Part[$CellContext`PLL1to0, $CellContext`i], 
                 Part[$CellContext`PLL4to0, $CellContext`i], 
                 Part[$CellContext`PLL6to0, $CellContext`i], 
                 Part[$CellContext`PLL7to0, $CellContext`i]}]}]]; Sow[
             Graphics3D[{Orange, 
               Sphere[
                Part[$CellContext`com, $CellContext`i], 0.005]}]]; Sow[
             Graphics3D[{Orange, 
               Sphere[
                Part[$CellContext`comHD, $CellContext`i], 0.004]}]]; Sow[
             Graphics3D[{Orange, 
               Sphere[
                Part[$CellContext`comRH, $CellContext`i], 0.004]}]]; Sow[
             Graphics3D[{Orange, 
               Sphere[
                Part[$CellContext`comLH, $CellContext`i], 0.004]}]]; Sow[
             Graphics3D[{Orange, 
               Sphere[
                Part[$CellContext`comRL, $CellContext`i], 0.004]}]]; Sow[
             Graphics3D[{Orange, 
               Sphere[
                Part[$CellContext`comLL, $CellContext`i], 0.004]}]]; Sow[
             Graphics3D[{Orange, 
               Polygon[
                Part[$CellContext`saLL, $CellContext`i]]}]]; Sow[
             Graphics3D[{Orange, 
               Polygon[
                Part[$CellContext`saRL, $CellContext`i]]}]]; $CellContext`z = 
            0; $CellContext`QGto0 = Dot[
              $CellContext`Rx[-Part[$CellContext`ang, $CellContext`i, 1]], 
              $CellContext`Ry[-Part[$CellContext`ang, $CellContext`i, 2]]]; Do[
             If[Part[
                Dot[$CellContext`p, $CellContext`QGto0], 
                3] < $CellContext`z, $CellContext`z = Part[
                Dot[$CellContext`p, $CellContext`QGto0], 3]], {$CellContext`p, 
              Part[$CellContext`saLL, $CellContext`i]}]; Do[
             If[Part[
                Dot[$CellContext`p, $CellContext`QGto0], 
                3] < $CellContext`z, $CellContext`z = Part[
                Dot[$CellContext`p, $CellContext`QGto0], 3]], {$CellContext`p, 
              Part[$CellContext`saRL, $CellContext`i]}]; Sow[
             Graphics3D[{Blue, 
               Sphere[
                Dot[Dot[
                    
                    Part[$CellContext`com, $CellContext`i], \
$CellContext`QGto0] {1, 1, 0} + {0, 0, $CellContext`z}, 
                 Transpose[$CellContext`QGto0]], 
                0.005]}]]; $CellContext`ground = Table[
              Dot[$CellContext`p + {0, 0, $CellContext`z}, 
               
               Transpose[$CellContext`QGto0]], {$CellContext`p, {{
                0.2, 0.2, 0}, {-0.2, 0.2, 0}, {-0.2, -0.2, 0}, {
                0.2, -0.2, 0}}}]; Sow[
             Graphics3D[{LightGreen, 
               Polygon[$CellContext`ground]}]]; Null], 2, 1]; 
       Show[$CellContext`plot, Boxed -> False, Background -> 
         RGBColor[0.84, 0.92, 1]]), 
      "Specifications" :> {{$CellContext`j$$, 1, 295}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{755., {422., 429.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.683296001381095*^9, 3.683383418647798*^9, 
  3.6833835185935144`*^9, 3.6834367994399185`*^9, 3.684217298584237*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1920, 998},
WindowMargins->{{-8, Automatic}, {Automatic, -8}},
Magnification:>0.9 Inherited,
FrontEndVersion->"10.0 for Microsoft Windows (64-bit) (July 1, 2014)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 157, 2, 91, "Title"],
Cell[CellGroupData[{
Cell[762, 28, 100, 1, 61, "Section"],
Cell[865, 31, 10336, 224, 908, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11238, 260, 91, 1, 61, "Section"],
Cell[CellGroupData[{
Cell[11354, 265, 23387, 485, 1110, "Input"],
Cell[34744, 752, 5569, 114, 866, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)