(***********************************************************************

                    Mathematica-Compatible Notebook

This notebook can be used on any computer system with Mathematica 4.0,
MathReader 4.0, or any compatible application. The data for the notebook 
starts with the line containing stars above.

To get the notebook into a Mathematica-compatible application, do one of 
the following:

* Save the data starting with the line of stars above into a file
  with a name ending in .nb, then open the file inside the application;

* Copy the data starting with the line of stars above to the
  clipboard, then use the Paste menu command inside the application.

Data for notebooks contains only printable 7-bit ASCII and can be
sent directly in email or through ftp in text mode.  Newlines can be
CR, LF or CRLF (Unix, Macintosh or MS-DOS style).

NOTE: If you modify the data for this notebook not in a Mathematica-
compatible application, you must delete the line below containing the 
word CacheID, otherwise Mathematica-compatible applications may try to 
use invalid cache data.

For more information on notebooks and Mathematica-compatible 
applications, contact Wolfram Research:
  web: http://www.wolfram.com
  email: info@wolfram.com
  phone: +1-217-398-0700 (U.S.)

Notebook reader applications are available free of charge from 
Wolfram Research.
***********************************************************************)

(*CacheID: 232*)


(*NotebookFileLineBreakTest
NotebookFileLineBreakTest*)
(*NotebookOptionsPosition[     98749,       2097]*)
(*NotebookOutlinePosition[     99648,       2126]*)
(*  CellTagsIndexPosition[     99604,       2122]*)
(*WindowFrame->Normal*)



Notebook[{

Cell[CellGroupData[{
Cell["POV Data for Spherical 4R Linkage", "Title",
  FontColor->RGBColor[0, 0, 1]],

Cell[BoxData[
    \(Quit[]\)], "Input"],

Cell[CellGroupData[{

Cell["Input Position and Linkage Data", "Section"],

Cell[CellGroupData[{

Cell[BoxData[
    \({sO, \ sA, \ sB, sC} = << "\<SpVertexData\>"\)], "Input"],

Cell[BoxData[
    \({{\(-0.492403876506104`\), \(-0.17364817766693036`\), 
        0.8528685319524433`}, {\(-0.896257275778341`\), \
\(-0.2977914887657769`\), 
        0.3286991402986157`}, {0.033945352941164395`, \
\(-0.9988236917919516`\), 
        0.03462579571354509`}, {0.43301270189221935`, \(-0.5`\), 
        0.7500000000000001`}}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(position = << "\<SpPositionData\>"\)], "Input"],

Cell[BoxData[
    \(General::"spell1" \(\(:\)\(\ \)\) 
      "Possible spelling error: new symbol name \"\!\(position\)\" is similar \
to existing symbol \"\!\(Position\)\"."\)], "Message"],

Cell[BoxData[
    \({{{0.550978533711308`, 
          0.673766337680281`, \(-0.492403876506104`\)}, \
{\(-0.696364240320019`\), 0.6963642403200189`, 
          0.17364817766693036`}, {0.45989074810530794`, 0.24721603308123957`, 
          0.8528685319524433`}}, {{0.8167796745837669`, 
          0.43305517005391536`, \(-0.3812272063696535`\)}, \
{\(-0.4980973490458728`\), 
          0.862729915662821`, \(-0.08715574274765817`\)}, \
{0.2911528706029016`, 0.26107530007642704`, 
          0.9203638919632243`}}, {{0.9176387302670882`, 
          0.015030684689068721`, 
          0.39713126196710286`}, {\(-0.16317591116653485`\), 
          0.9254165783983234`, 
          0.3420201433256687`}, {\(-0.36237105669296626`\), \
\(-0.37865318557133204`\), 0.8516507396391465`}}}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(relative = << "\<SpRelativeData\>"\)], "Input"],

Cell[BoxData[
    \({{{1.`, 0, 0}, {0, 0.9999999999999999`, 0}, {0, 0, 
          1.`}}, {{0.9295238176541111`, \(-0.3334114327522509`\), 
          0.15755090899077157`}, {0.34975325424928766`, 
          0.9324970084943001`, \(-0.09012208547972216`\)}, \
{\(-0.11686801767703722`\), 0.13887456807951715`, 
          0.983389912895677`}}, {{0.32017743858068526`, \
\(-0.5595828460305189`\), 0.7644301447825667`}, {0.3651960701677784`, 
          0.8174480566277952`, 
          0.4454329411364317`}, {\(-0.8741385691970825`\), 
          0.13654930663985534`, 0.46608588124749295`}}}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(npos = Length[position]\)], "Input"],

Cell[BoxData[
    \(3\)], "Output"]
}, Open  ]],

Cell["This data is saved by Sphere3PosCheck.nb.", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
    \({Th, Ph, \ Ps, \ Ze} = << "\<SpPosAngles\>"\)], "Input"],

Cell[BoxData[
    \({{3.9142148192181634`, 4.542668948821883`, 
        0.02452596884381677`}, {1.523077527767737`, 0.9981439181917183`, 
        5.675317615265779`}, {4.83862737714938`, 5.2857726811173125`, 
        5.603349289693622`}, {1.7486734742297638`, 1.3782525421626786`, 
        0.21048995231309625`}}\)], "Output"]
}, Open  ]],

Cell[BoxData[
    \(UnitV[v_] := N[v/Sqrt[Dot[v, v]]]\)], "Input"],

Cell[BoxData[
    \(LinkAngle[a_, b_] := N[ArcCos[Dot[a, b]]]\)], "Input"],

Cell[BoxData[
    \(a = LinkAngle[sO, \ sA]; \ b = LinkAngle[sC, sB]; \ 
    g = LinkAngle[sO, sC]; h = LinkAngle[sA, sB];\)], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
    \({alpha, \ beta, \ gamma, \ eta} = N[180/Pi]*{a, b, g, h}\)], "Input"],

Cell[BoxData[
    \(General::"spell1" \(\(:\)\(\ \)\) 
      "Possible spelling error: new symbol name \"\!\(beta\)\" is similar to \
existing symbol \"\!\(Beta\)\"."\)], "Message"],

Cell[BoxData[
    \(General::"spell1" \(\(:\)\(\ \)\) 
      "Possible spelling error: new symbol name \"\!\(gamma\)\" is similar to \
existing symbol \"\!\(Gamma\)\"."\)], "Message"],

Cell[BoxData[
    \({39.34263716076812`, 57.31091765063057`, 59.118888104780616`, 
      73.83533108494272`}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(eZ = UnitV[sO]\)], "Input"],

Cell[BoxData[
    \({\(-0.492403876506104`\), \(-0.17364817766693036`\), 
      0.8528685319524433`}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(eY\  = \ UnitV[Cross[sO, sC]]\)], "Input"],

Cell[BoxData[
    \({0.3451250823826241`, 0.8606110724635321`, 
      0.3744826557579881`}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(eX\  = \ Cross[eY, eZ]\)], "Input"],

Cell[BoxData[
    \({0.7990163326942374`, \(-0.47874303373116894`\), 
      0.3638378866222269`}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(dispO\  = \ Transpose[{eX, \ eY, \ eZ}]\)], "Input"],

Cell[BoxData[
    \({{0.7990163326942374`, 
        0.3451250823826241`, \(-0.492403876506104`\)}, \
{\(-0.47874303373116894`\), 
        0.8606110724635321`, \(-0.17364817766693036`\)}, \
{0.3638378866222269`, 0.3744826557579881`, 0.8528685319524433`}}\)], "Output"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Linkage Analysis", "Section"],

Cell[CellGroupData[{

Cell[BoxData[
    \(DtoR = N[Pi/180]\)], "Input"],

Cell[BoxData[
    \(0.017453292519943295`\)], "Output"]
}, Open  ]],

Cell[BoxData[
    \(Acoef[t_] := 
      Cos[g]*Cos[t]*Sin[a]*Sin[b] - Cos[a]*Sin[b]*Sin[g]\)], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
    \(Bcoef[t_] := Sin[a]*Sin[b]*Sin[t]\)], "Input"],

Cell[BoxData[
    \(General::"spell1" \(\(:\)\(\ \)\) 
      "Possible spelling error: new symbol name \"\!\(Bcoef\)\" is similar to \
existing symbol \"\!\(Acoef\)\"."\)], "Message"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(Ccoef[t_] := 
      Cos[h] - Cos[a]*Cos[b]*Cos[g] - \ 
        Cos[b]*Cos[t]*Sin[a]*Sin[g]\)], "Input"],

Cell[BoxData[
    \(General::"spell" \(\(:\)\(\ \)\) 
      "Possible spelling error: new symbol name \"\!\(Ccoef\)\" is similar to \
existing symbols \!\({Acoef, Bcoef}\)."\)], "Message"]
}, Open  ]],

Cell[BoxData[
    \(Psi[t_, sgn_] := 
      ArcTan[Acoef[t], Bcoef[t]] + 
        sgn*ArcCos[Ccoef[t]/Sqrt[Acoef[t]^2 + Bcoef[t]^2]]\)], "Input"],

Cell[BoxData[
    \(Phi[t_, p_] := 
      ArcTan[\((Sin[b]*Cos[t]*Cos[g]*Cos[p] + Cos[t]*Sin[g]*Cos[b] + 
              Sin[b]*Sin[t]*Sin[p] - Sin[a]*Cos[h])\)/\((Cos[a]*
              Sin[h])\), \((\(-Sin[b]\)*Sin[t]*Cos[g]*Cos[p] - 
              Sin[t]*Sin[g]*Cos[b] + Sin[b]*Cos[t]*Sin[p])\)/
          Sin[h]]\)], "Input"],

Cell[BoxData[
    \(\((AngleMod[p_] := p /; \((p \[GreaterEqual] 0 && p <= 2*Pi)\); 
      AngleMod[p_] := p + 2*Pi /; p < 0; 
      AngleMod[p_] := p - 2  P /; p > 2*Pi)\)\)], "Input"],

Cell[CellGroupData[{

Cell["Input Angles", "Subsection"],

Cell["Compute limits", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
    \(Cmin = \((Cos[h - b] - Cos[a]*Cos[g])\)/\((Sin[a]*Sin[g])\)\)], "Input"],

Cell[BoxData[
    \(1.0324905026479614`\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(Cmax = \((Cos[h + b] - Cos[a]*Cos[g])\)/\((Sin[a]*Sin[g])\)\)], "Input"],

Cell[BoxData[
    \(\(-1.9388970081081796`\)\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(Tmin = N[180/Pi]*ArcCos[Cmin]\)], "Input"],

Cell[BoxData[
    \(General::"spell1" \(\(:\)\(\ \)\) 
      "Possible spelling error: new symbol name \"\!\(Tmin\)\" is similar to \
existing symbol \"\!\(Cmin\)\"."\)], "Message"],

Cell[BoxData[
    \(\(\(0.`\)\(\[InvisibleSpace]\)\) + 
      14.566221742395765`\ \[ImaginaryI]\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(Tmax = N[180/Pi]*ArcCos[Cmax]\)], "Input"],

Cell[BoxData[
    \(General::"spell1" \(\(:\)\(\ \)\) 
      "Possible spelling error: new symbol name \"\!\(Tmax\)\" is similar to \
existing symbol \"\!\(Cmax\)\"."\)], "Message"],

Cell[BoxData[
    \(\(\(180.`\)\(\[InvisibleSpace]\)\) - 
      73.3923832313449`\ \[ImaginaryI]\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(inc = 5\)], "Input"],

Cell[BoxData[
    \(5\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(len = 360/inc\)], "Input"],

Cell[BoxData[
    \(72\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(theta = Table[N[inc*i*Pi/180], \ {i, len}]\)], "Input"],

Cell[BoxData[
    \({0.08726646259971647`, 0.17453292519943295`, 0.2617993877991494`, 
      0.3490658503988659`, 0.4363323129985824`, 0.5235987755982988`, 
      0.6108652381980153`, 0.6981317007977318`, 0.7853981633974483`, 
      0.8726646259971648`, 0.9599310885968813`, 1.0471975511965976`, 
      1.1344640137963142`, 1.2217304763960306`, 1.3089969389957472`, 
      1.3962634015954636`, 1.48352986419518`, 1.5707963267948966`, 
      1.6580627893946132`, 1.7453292519943295`, 1.8325957145940461`, 
      1.9198621771937625`, 2.007128639793479`, 2.0943951023931953`, 
      2.1816615649929116`, 2.2689280275926285`, 2.356194490192345`, 
      2.443460952792061`, 2.530727415391778`, 2.6179938779914944`, 
      2.705260340591211`, 2.792526803190927`, 2.8797932657906435`, 
      2.96705972839036`, 3.0543261909900767`, 3.141592653589793`, 
      3.2288591161895095`, 3.3161255787892263`, 3.4033920413889422`, 
      3.490658503988659`, 3.5779249665883754`, 3.6651914291880923`, 
      3.752457891787808`, 3.839724354387525`, 3.9269908169872414`, 
      4.014257279586958`, 4.101523742186674`, 4.1887902047863905`, 
      4.276056667386108`, 4.363323129985823`, 4.4505895925855405`, 
      4.537856055185257`, 4.625122517784973`, 4.71238898038469`, 
      4.799655442984406`, 4.886921905584122`, 4.974188368183839`, 
      5.061454830783556`, 5.148721293383272`, 5.235987755982989`, 
      5.323254218582705`, 5.410520681182422`, 5.497787143782138`, 
      5.585053606381854`, 5.672320068981571`, 5.759586531581287`, 
      5.846852994181004`, 5.93411945678072`, 6.021385919380437`, 
      6.1086523819801535`, 6.19591884457987`, 6.283185307179586`}\)], "Output"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Output Angles", "Subsection"],

Cell[CellGroupData[{

Cell[BoxData[
    \(sol = 1\)], "Input"],

Cell[BoxData[
    \(1\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(angledata = 
      Table[{theta[\([i]\)], Psi[theta[\([i]\)], sol]}, \ {i, 
          len}]\)], "Input"],

Cell[BoxData[
    \({{0.08726646259971647`, 5.461669346921298`}, {0.17453292519943295`, 
        5.239267648302505`}, {0.2617993877991494`, 
        5.016483435093647`}, {0.3490658503988659`, 
        4.8140144669249505`}, {0.4363323129985824`, 
        4.639544450267477`}, {0.5235987755982988`, 
        4.49310267022791`}, {0.6108652381980153`, 
        4.371559695870075`}, {0.6981317007977318`, 
        4.271020736502274`}, {0.7853981633974483`, 
        4.187830287641987`}, {0.8726646259971648`, 
        4.1188906411880195`}, {0.9599310885968813`, 
        4.061692737536255`}, {1.0471975511965976`, 
        4.014246286204724`}, {1.1344640137963142`, 
        3.9749872809163342`}, {1.2217304763960306`, 
        3.942691771793533`}, {1.3089969389957472`, 
        3.916404207682361`}, {1.3962634015954636`, 
        3.895380808862665`}, {1.48352986419518`, 
        3.879045871314738`}, {1.5707963267948966`, 
        3.8669584132056536`}, {1.6580627893946132`, 
        3.8587868045656917`}, {1.7453292519943295`, 
        3.854289434486046`}, {1.8325957145940461`, 
        3.853299868052419`}, {1.9198621771937625`, 
        3.855715266411716`}, {2.007128639793479`, 
        3.8614870793764675`}, {2.0943951023931953`, 
        3.870613181003447`}, {2.1816615649929116`, 
        3.883130721032848`}, {2.2689280275926285`, 
        3.899109028285091`}, {2.356194490192345`, 
        3.9186419489601616`}, {2.443460952792061`, 
        3.9418390613558065`}, {2.530727415391778`, 
        3.9688153127942516`}, {2.6179938779914944`, 
        3.999678811765437`}, {2.705260340591211`, 
        4.034516810522879`}, {2.792526803190927`, 
        4.073380341758697`}, {2.8797932657906435`, 
        4.116268496814073`}, {2.96705972839036`, 
        4.163113861778678`}, {3.0543261909900767`, 
        4.213771012151678`}, {3.141592653589793`, 
        4.2680100312428175`}, {3.2288591161895095`, \(-1.957668676969938`\)}, \
{3.3161255787892263`, \(-1.8972857074075795`\)}, {3.4033920413889422`, \
\(-1.8344801330580391`\)}, {3.490658503988659`, \(-1.7697485762918586`\)}, \
{3.5779249665883754`, \(-1.7036078978630884`\)}, {3.6651914291880923`, \
\(-1.6365723866614963`\)}, {3.752457891787808`, \(-1.569133225214833`\)}, \
{3.839724354387525`, \(-1.5017420172011364`\)}, {3.9269908169872414`, \
\(-1.4347992963891656`\)}, {4.014257279586958`, \(-1.368648115652562`\)}, \
{4.101523742186674`, \(-1.3035721946448935`\)}, {4.1887902047863905`, \
\(-1.239797743281414`\)}, {4.276056667386108`, \(-1.1774979557172796`\)}, \
{4.363323129985823`, \(-1.1167992242712792`\)}, {4.4505895925855405`, \
\(-1.057788283267872`\)}, {4.537856055185257`, \(-1.0005196985598142`\)}, \
{4.625122517784973`, \(-0.9450233285266634`\)}, {4.71238898038469`, \
\(-0.8913115753664447`\)}, {4.799655442984406`, \(-0.8393864165420215`\)}, \
{4.886921905584122`, \(-0.7892463627561392`\)}, {4.974188368183839`, \
\(-0.7408936484932931`\)}, {5.061454830783556`, \(-0.6943421528283169`\)}, \
{5.148721293383272`, \(-0.6496268174986195`\)}, {5.235987755982989`, \
\(-0.6068157520254949`\)}, {5.323254218582705`, \(-0.5660269259843962`\)}, \
{5.410520681182422`, \(-0.5274525958718932`\)}, {5.497787143782138`, \
\(-0.49139688251012226`\)}, {5.585053606381854`, \(-0.45833617520794756`\)}, \
{5.672320068981571`, \(-0.42902028197394326`\)}, {5.759586531581287`, \
\(-0.40464856655505743`\)}, {5.846852994181004`, \(-0.38718772417019665`\)}, \
{5.93411945678072`, \(-0.37995860776450163`\)}, {6.021385919380437`, \
\(-0.388704286803391`\)}, {6.1086523819801535`, \(-0.42328479791110496`\)}, \
{6.19591884457987`, \(-0.49892926048737785`\)}, {6.283185307179586`, \
\(-0.6315763416611975`\)}}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(psiout = DeleteCases[angledata, {_Real, _Complex}]\)], "Input"],

Cell[BoxData[
    \({{0.08726646259971647`, 5.461669346921298`}, {0.17453292519943295`, 
        5.239267648302505`}, {0.2617993877991494`, 
        5.016483435093647`}, {0.3490658503988659`, 
        4.8140144669249505`}, {0.4363323129985824`, 
        4.639544450267477`}, {0.5235987755982988`, 
        4.49310267022791`}, {0.6108652381980153`, 
        4.371559695870075`}, {0.6981317007977318`, 
        4.271020736502274`}, {0.7853981633974483`, 
        4.187830287641987`}, {0.8726646259971648`, 
        4.1188906411880195`}, {0.9599310885968813`, 
        4.061692737536255`}, {1.0471975511965976`, 
        4.014246286204724`}, {1.1344640137963142`, 
        3.9749872809163342`}, {1.2217304763960306`, 
        3.942691771793533`}, {1.3089969389957472`, 
        3.916404207682361`}, {1.3962634015954636`, 
        3.895380808862665`}, {1.48352986419518`, 
        3.879045871314738`}, {1.5707963267948966`, 
        3.8669584132056536`}, {1.6580627893946132`, 
        3.8587868045656917`}, {1.7453292519943295`, 
        3.854289434486046`}, {1.8325957145940461`, 
        3.853299868052419`}, {1.9198621771937625`, 
        3.855715266411716`}, {2.007128639793479`, 
        3.8614870793764675`}, {2.0943951023931953`, 
        3.870613181003447`}, {2.1816615649929116`, 
        3.883130721032848`}, {2.2689280275926285`, 
        3.899109028285091`}, {2.356194490192345`, 
        3.9186419489601616`}, {2.443460952792061`, 
        3.9418390613558065`}, {2.530727415391778`, 
        3.9688153127942516`}, {2.6179938779914944`, 
        3.999678811765437`}, {2.705260340591211`, 
        4.034516810522879`}, {2.792526803190927`, 
        4.073380341758697`}, {2.8797932657906435`, 
        4.116268496814073`}, {2.96705972839036`, 
        4.163113861778678`}, {3.0543261909900767`, 
        4.213771012151678`}, {3.141592653589793`, 
        4.2680100312428175`}, {3.2288591161895095`, \(-1.957668676969938`\)}, \
{3.3161255787892263`, \(-1.8972857074075795`\)}, {3.4033920413889422`, \
\(-1.8344801330580391`\)}, {3.490658503988659`, \(-1.7697485762918586`\)}, \
{3.5779249665883754`, \(-1.7036078978630884`\)}, {3.6651914291880923`, \
\(-1.6365723866614963`\)}, {3.752457891787808`, \(-1.569133225214833`\)}, \
{3.839724354387525`, \(-1.5017420172011364`\)}, {3.9269908169872414`, \
\(-1.4347992963891656`\)}, {4.014257279586958`, \(-1.368648115652562`\)}, \
{4.101523742186674`, \(-1.3035721946448935`\)}, {4.1887902047863905`, \
\(-1.239797743281414`\)}, {4.276056667386108`, \(-1.1774979557172796`\)}, \
{4.363323129985823`, \(-1.1167992242712792`\)}, {4.4505895925855405`, \
\(-1.057788283267872`\)}, {4.537856055185257`, \(-1.0005196985598142`\)}, \
{4.625122517784973`, \(-0.9450233285266634`\)}, {4.71238898038469`, \
\(-0.8913115753664447`\)}, {4.799655442984406`, \(-0.8393864165420215`\)}, \
{4.886921905584122`, \(-0.7892463627561392`\)}, {4.974188368183839`, \
\(-0.7408936484932931`\)}, {5.061454830783556`, \(-0.6943421528283169`\)}, \
{5.148721293383272`, \(-0.6496268174986195`\)}, {5.235987755982989`, \
\(-0.6068157520254949`\)}, {5.323254218582705`, \(-0.5660269259843962`\)}, \
{5.410520681182422`, \(-0.5274525958718932`\)}, {5.497787143782138`, \
\(-0.49139688251012226`\)}, {5.585053606381854`, \(-0.45833617520794756`\)}, \
{5.672320068981571`, \(-0.42902028197394326`\)}, {5.759586531581287`, \
\(-0.40464856655505743`\)}, {5.846852994181004`, \(-0.38718772417019665`\)}, \
{5.93411945678072`, \(-0.37995860776450163`\)}, {6.021385919380437`, \
\(-0.388704286803391`\)}, {6.1086523819801535`, \(-0.42328479791110496`\)}, \
{6.19591884457987`, \(-0.49892926048737785`\)}, {6.283185307179586`, \
\(-0.6315763416611975`\)}}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(ndata = Length[angledata]\)], "Input"],

Cell[BoxData[
    \(72\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(phiout = 
      Table[{psiout[\([i, 1]\)], 
          Phi[psiout[\([i, 1]\)], psiout[\([i, 2]\)]]}, \ {i, 
          ndata}]\)], "Input"],

Cell[BoxData[
    \(General::"spell1" \(\(:\)\(\ \)\) 
      "Possible spelling error: new symbol name \"\!\(phiout\)\" is similar \
to existing symbol \"\!\(psiout\)\"."\)], "Message"],

Cell[BoxData[
    \({{0.08726646259971647`, \(-0.7865121857973123`\)}, \
{0.17453292519943295`, \(-1.0531453497647911`\)}, {0.2617993877991494`, \
\(-1.3144516888348605`\)}, {0.3490658503988659`, \(-1.5521016604034203`\)}, \
{0.4363323129985824`, \(-1.7599097447657406`\)}, {0.5235987755982988`, \
\(-1.938744624824628`\)}, {0.6108652381980153`, \(-2.092294698281433`\)}, \
{0.6981317007977318`, \(-2.2248298785824305`\)}, {0.7853981633974483`, \
\(-2.3402806098719413`\)}, {0.8726646259971648`, \(-2.4419646041801992`\)}, \
{0.9599310885968813`, \(-2.5325814144837633`\)}, {1.0471975511965976`, \
\(-2.6142973907023386`\)}, {1.1344640137963142`, \(-2.68884769241238`\)}, \
{1.2217304763960306`, \(-2.757628983559634`\)}, {1.3089969389957472`, \
\(-2.8217758251504845`\)}, {1.3962634015954636`, \(-2.882221033912301`\)}, \
{1.48352986419518`, \(-2.939742507345972`\)}, {1.5707963267948966`, \
\(-2.9949993158485926`\)}, {1.6580627893946132`, \(-3.0485595093377547`\)}, \
{1.7453292519943295`, \(-3.1009215804144405`\)}, {1.8325957145940461`, 
        3.1306542604471637`}, {1.9198621771937625`, 
        3.079392095995077`}, {2.007128639793479`, 
        3.0281024756126445`}, {2.0943951023931953`, 
        2.976434137881179`}, {2.1816615649929116`, 
        2.9240546303274266`}, {2.2689280275926285`, 
        2.8706478888229903`}, {2.356194490192345`, 
        2.815914109355123`}, {2.443460952792061`, 
        2.7595720027679267`}, {2.530727415391778`, 
        2.7013635145856556`}, {2.6179938779914944`, 
        2.641060985925286`}, {2.705260340591211`, 
        2.5784765067206026`}, {2.792526803190927`, 
        2.5134728656413348`}, {2.8797932657906435`, 
        2.4459750654425396`}, {2.96705972839036`, 
        2.375980933459422`}, {3.0543261909900767`, 
        2.303569051127171`}, {3.141592653589793`, 
        2.2289022104638345`}, {3.2288591161895095`, 
        2.1522249942906986`}, {3.3161255787892263`, 
        2.0738548727084973`}, {3.4033920413889422`, 
        1.9941672622486557`}, {3.490658503988659`, 
        1.9135760375525515`}, {3.5779249665883754`, 
        1.832511728624701`}, {3.6651914291880923`, 
        1.7513998869075675`}, {3.752457891787808`, 
        1.6706418371370646`}, {3.839724354387525`, 
        1.5905993851889169`}, {3.9269908169872414`, 
        1.5115842447339818`}, {4.014257279586958`, 
        1.4338521888211242`}, {4.101523742186674`, 
        1.3576013659611486`}, {4.1887902047863905`, 
        1.2829738939421214`}, {4.276056667386108`, 
        1.2100597372815154`}, {4.363323129985823`, 
        1.1389019262370679`}, {4.4505895925855405`, 
        1.0695023182520806`}, {4.537856055185257`, 
        1.0018272781297661`}, {4.625122517784973`, 
        0.9358128198438064`}, {4.71238898038469`, 
        0.8713688859972537`}, {4.799655442984406`, 
        0.808382527787606`}, {4.886921905584122`, 
        0.7467197822292626`}, {4.974188368183839`, 
        0.6862260176855898`}, {5.061454830783556`, 
        0.6267244205473891`}, {5.148721293383272`, 
        0.5680120977830405`}, {5.235987755982989`, 
        0.5098529170314113`}, {5.323254218582705`, 
        0.4519655905647419`}, {5.410520681182422`, 
        0.3940044229298749`}, {5.497787143782138`, 
        0.33552817195509144`}, {5.585053606381854`, 
        0.27594878757519187`}, {5.672320068981571`, 
        0.21444468630694208`}, {5.759586531581287`, 
        0.14980919040797905`}, {5.846852994181004`, 
        0.08017700767208531`}, {5.93411945678072`, 
        0.0025199726462597815`}, {6.021385919380437`, \(-0.08826701913566269`\
\)}, {6.1086523819801535`, \(-0.2008007565565999`\)}, {6.19591884457987`, \
\(-0.3481932609757408`\)}, {6.283185307179586`, \
\(-0.5437597355356114`\)}}\)], "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[" Linkage Transformations", "Section"],

Cell[BoxData[
    \(RotZ[
        t_] := {{Cos[t], \(-Sin[t]\), 0}, {Sin[t], \ Cos[t], 0}, {0, 0, 
          1}}\)], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
    \(RotY[
        s_] := \ {{Cos[s], 0, \ Sin[s]}, {0, 1, 0}, {\(-Sin[s]\), 0, \ 
          Cos[s]}}\)], "Input"],

Cell[BoxData[
    \(General::"spell1" \(\(:\)\(\ \)\) 
      "Possible spelling error: new symbol name \"\!\(RotY\)\" is similar to \
existing symbol \"\!\(RotZ\)\"."\)], "Message"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(dispC = dispO . RotY[g]\)], "Input"],

Cell[BoxData[
    \(General::"spell1" \(\(:\)\(\ \)\) 
      "Possible spelling error: new symbol name \"\!\(dispC\)\" is similar to \
existing symbol \"\!\(dispO\)\"."\)], "Message"],

Cell[BoxData[
    \({{0.8326996322266432`, 0.3451250823826241`, 
        0.43301270189221913`}, {\(-0.09668806520542787`\), 
        0.8606110724635321`, \(-0.4999999999999999`\)}, \
{\(-0.5452180669571066`\), 0.3744826557579881`, 
        0.7500000000000001`}}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(transA = 
      Table[dispO . RotZ[psiout[\([i, 1]\)]] . RotY[a], {i, 
          ndata}]\)], "Input"],

Cell[BoxData[
    \({{{0.9510080756943102`, 0.27417291530457083`, 
          0.14287355415750622`}, {\(-0.20074234832417967`\), 
          0.8990613921973288`, \(-0.3890901215007834`\)}, \
{\(-0.23513006943710757`\), 0.3413470749451256`, 
          0.9100527593897553`}}, {{0.9670572956024087`, 0.20113412679091716`, 
          0.15602964481857548`}, {\(-0.13895965242157782`\), 
          0.9306693118683929`, \(-0.3384447472561603`\)}, \
{\(-0.21328479088071395`\), 0.30561363678093156`, 
          0.9279600761845862`}}, {{0.9781223719454607`, 0.12656458612427843`, 
          0.1651000637158447`}, {\(-0.07528157328581085`\), 
          0.9551942761226435`, \(-0.28624566299972487`\)}, \
{\(-0.19393119971628853`\), 0.2675542943062754`, 
          0.9438248721955107`}}, {{0.9841190928112199`, 
          0.051031812535447314`, 
          0.17001577948463684`}, {\(-0.010192739548977288`\), 
          0.9724496351735277`, \(-0.23289013528133728`\)}, \
{\(-0.17721658845861032`\), 0.22745870209824856`, 
          0.9575264067454599`}}, {{0.9850018195329786`, \
\(-0.024889343960629428`\), 0.1707393805597611`}, {0.055811483462473284`, 
          0.9823040653195974`, \(-0.17878423188388287`\)}, \
{\(-0.16326816539190847`\), 0.18563201182393457`, 
          0.9689604028832959`}}, {{0.9807638340273795`, \(-0.100621077520569`\
\), 0.16726535990011368`}, {0.12222876375698405`, 
          0.9846825683971737`, \(-0.12433973140225413`\)}, \
{\(-0.1521920864380087`\), 0.14239254985196717`, 
          0.9780398409943742`}}, {{0.9714373899230857`, \
\(-0.17558702392390924`\), 0.15962015690058537`}, {0.18855362572766352`, 
          0.9795670425616565`, \(-0.0699709893596044`\)}, \
{\(-0.14407264724566965`\), 0.09806939459665392`, 
          0.9846956210723549`}}, {{0.9570934670911917`, \
\(-0.24921664705284485`\), 0.14786195617230233`}, {0.25428129712686837`, 
          0.9669964200534932`, \(-0.016091784711622165`\)}, \
{\(-0.13897164164979625`\), 0.05299987203254061`, 
          0.9888770886119745`}}, {{0.9378412314455458`, \
\(-0.32094958101658244`\), 0.13208024472260246`}, {0.31891155068779736`, 
          0.9470663709003203`, 
          0.036887829261168036`}, {\(-0.13692789138304456`\), 
          0.007526988440062013`, 
          0.9905524201204177`}}, {{0.9138272041242289`, \
\(-0.39023989487412825`\), 0.11239513090487609`}, {0.3819525111560378`, 
          0.9199285748102863`, 
          0.08856464570646774`}, {\(-0.13795695061899477`\), \
\(-0.0380031800793653`\), 
          0.989708865313312`}}, {{0.8852341463752226`, \(-0.4565602474983911`\
\), 0.08895643032147273`}, {0.4429243987572537`, 0.8857895667978855`, 
          0.13854537284781338`}, {\(-0.14205098759549822`\), \
\(-0.08324412145144117`\), 
          0.9863528441520921`}}, {{0.852279668632957`, \(-0.5194059009605763`\
\), 0.06194252563650644`}, {0.5013631806109675`, 0.8449091653277888`, 
          0.18644962717247104`}, {\(-0.1491788442191168`\), \
\(-0.12785152479509673`\), 
          0.9805098979842158`}}, {{0.8152145743715082`, \
\(-0.5782985618905937`\), 0.03155900897607129`}, {0.5568241023009712`, 
          0.797598494939445`, 
          0.2319128283796506`}, {\(-0.15928627319702715`\), \
\(-0.1714859008362003`\), 
          0.972224495158088`}}, {{0.7743209513387223`, \(-0.6327900215784048`\
\), \(-0.001962882751977576`\)}, {0.6088850727249839`, 0.7442176184014735`, 
          0.2745889740567339`}, {\(-0.17229635089167483`\), \
\(-0.21381516562592234`\), 
          0.9615596925920784`}}, {{0.7299100246981228`, \
\(-0.6824655671129428`\), \(-0.03836802771051821`\)}, {0.6571498764628053`, 
          0.6851727964165824`, 
          0.31415327296655715`}, {\(-0.18811006275610398`\), \
\(-0.25451716790010437`\), 
          0.9485966558732983`}}, {{0.6823197884174959`, \(-0.726947137597775`\
\), \(-0.0773793607643886`\)}, {0.7012511892149053`, 0.6209133957323152`, 
          0.3503046169048395`}, {\(-0.20660705689444597`\), \
\(-0.29328214084489873`\), 
          0.9334340415384732`}}, {{0.6319124329307071`, \
\(-0.7658962014228051`\), \(-0.11869998211336184`\)}, {0.7408533733621396`, 
          0.5519284691887661`, 
          0.3827678723154325`}, {\(-0.22764656001251748`\), \
\(-0.32981505960926494`\), 
          0.9161872462381281`}}, {{0.5790715886498043`, \
\(-0.7990163326942374`\), \(-0.16201541687889898`\)}, {0.7756550323706954`, 
          0.478743033731169`, 
          0.41129597422281206`}, {\(-0.25106844878759094`\), \
\(-0.3638378866222269`\), 
          0.896987528498398`}}, {{0.5241994063059395`, \(-0.8260554672146139`\
\), \(-0.20699600844785965`\)}, {0.8053913046017013`, 0.4019140747139303`, 
          0.435671806545724`}, {\(-0.27669446850356466`\), \
\(-0.39509168762667113`\), 
          0.8759810097643892`}}, {{0.4677134963394792`, \
\(-0.8468078208435588`\), \(-0.2532994273583801`\)}, {0.8298358790682269`, 
          0.32202630690576534`, 
          0.455709854481661`}, {\(-0.3043295896769865`\), \
\(-0.4233386023253928`\), 
          0.85332756232775`}}, {{0.41004375063239273`, \
\(-0.861115455639342`\), \(-0.3005732766337828`\)}, {0.8488027177985449`, 
          0.2396877244572469`, 
          0.4712576163865265`}, {\(-0.3337634923491842`\), \
\(-0.44836365464158134`\), 
          0.8291995926019988`}}, {{0.3516290707714559`, \
\(-0.8688694818619817`\), \(-0.34845777373635106`\)}, {0.8621474716974268`, 
          0.155524973698204`, 
          0.4821967644042291`}, {\(-0.36477216674814594`\), \
\(-0.4699763888165707`\), 
          0.8037807290056153`}}, {{0.2929140277421583`, \
\(-0.8700108866899143`\), \(-0.3965884887296846`\)}, {0.8697685791299195`, 
          0.07017858398077106`, 
          0.4884440450131159`}, {\(-0.39711961813814617`\), \
\(-0.48801231889316365`\), 
          0.7772644244388972`}}, {{0.23434547847506526`, \
\(-0.8645309833432003`\), \(-0.4445991178105638`\)}, {0.8716080388667112`, \
\(-0.015701907135743178`\), 
          0.48995191263554205`}, {\(-0.43055966288218195`\), \
\(-0.5023341805530849`\), 
          0.7498524839905797`}}, {{0.17636916499475636`, \
\(-0.8524714771951646`\), \(-0.4921242711020727`\)}, {0.8676518515085091`, \
\(-0.10146289725788347`\), 
          0.4867088914884258`}, {\(-0.4648378020480998`\), \
\(-0.5128329757813259`\), 
          0.7217535290792568`}}, {{0.11942632205387152`, \
\(-0.8339241483693222`\), \(-0.538802253491191`\)}, {0.8579301260299198`, \
\(-0.18645169346691948`\), 
          
          0.4787396629208859`}, {\(-0.4996931582991413`\), \
\(-0.519428802406854`\), 
          0.6931814097184162`}}, {{0.06395031907022017`, \
\(-0.8090301532372212`\), \(-0.5842778173470009`\)}, {0.8425168506319742`, \
\(-0.2700214797060611`\), 
          0.46610487757427366`}, {\(-0.5348604613279958`\), \
\(-0.5220714622063798`\), 
          0.6643535769887117`}}, {{0.010363361923834085`, \
\(-0.7779789501332224`\), \(-0.6282048661696634`\)}, {0.8215293296472407`, \
\(-0.3515362394412124`\), 
          0.4489006937941684`}, {\(-0.5700720667240159`\), \
\(-0.5207408429431473`\), 
          0.6354894281039375`}}, {{\(-0.04092672028471361`\), \
\(-0.7410068574621758`\), \(-0.6702490885937611`\)}, {0.7951272907830245`, \
\(-0.43037559613083154`\), 
          0.4272580458073071`}, {\(-0.6050599929087895`\), \
\(-0.5154470714331996`\), 
          0.6068086366657561`}}, {{\(-0.08952957906001707`\), \
\(-0.6983952551736684`\), \(-0.7100905026996507`\)}, {0.7635116694970694`, \
\(-0.5059395346660047`\), 
          0.40134164723305776`}, {\(-0.6395579606377626`\), \
\(-0.5062304364741941`\), 
          0.5785294808149478`}}, {{\(-0.13507531729958788`\), \
\(-0.6504684432907046`\), \(-0.7474258912690829`\)}, {0.7269230797573958`, \
\(-0.577652967847726`\), 
          0.3713487375133201`}, {\(-0.6733034195460754`\), \
\(-0.493161082223325`\), 
          0.5508671820029584`}}, {{\(-0.17721730443415434`\), \
\(-0.597591173790714`\), \(-0.7819711094513203`\)}, {0.6856399828247167`, \
\(-0.6449701131477278`\), 
          0.3375075808012749`}, {\(-0.7060395463153706`\), \
\(-0.4763384743579335`\), 
          0.5240322670266995`}}, {{\(-0.2156348144955948`\), \
\(-0.5401658746227597`\), \(-0.8134632472770231`\)}, {0.6399765679941056`, \
\(-0.7073786464430732`\), 
          0.3000757287333502`}, {\(-0.7375171992543198`\), \
\(-0.4558906430816434`\), 
          0.49822896579250536`}}, {{\(-0.2500354670352149`\), \
\(-0.47862958698785363`\), \(-0.8416626305618652`\)}, {0.5902803614247473`, \
\(-0.7644036011120822`\), 
          0.2593380603057531`}, {\(-0.7674968144173315`\), \
\(-0.4319732087372055`\), 
          0.47365365700322737`}}, {{\(-0.2801574523155062`\), \
\(-0.4134506391915233`\), \(-0.8663546449717954`\)}, {0.5369295812560239`, \
\(-0.8156109828171145`\), 
          0.2156046137732941`}, {\(-0.7957502288308284`\), \
\(-0.4047681974417225`\), 
          0.45049337359772906`}}, {{\(-0.30577152384033374`\), \
\(-0.34512508238262424`\), \(-0.8873513693677083`\)}, {0.48033025913910193`, \
\(-0.860611072463532`\), 
          0.16920822707106264`}, {\(-0.8220624169512455`\), \
\(-0.37448265575798817`\), 
          0.42892437931728794`}}, {{\(-0.32668274305919404`\), \
\(-0.274172915304571`\), \(-0.9044930059987821`\)}, {0.42091315009089597`, \
\(-0.8990613921973288`\), 
          0.12050200471676675`}, {\(-0.8462331271392531`\), \
\(-0.34134707494512573`\), 
          0.4091108272320928`}}, {{\(-0.34273196296729264`\), \
\(-0.20113412679091708`\), \(-0.9176490966598515`\)}, {0.3591304541882939`, \
\(-0.9306693118683929`\), 
          0.06985663047214352`}, {\(-0.8680784056956469`\), \
\(-0.3056136367809315`\), 
          0.3912035104372618`}}, {{\(-0.3537970393103446`\), \
\(-0.1265645861242788`\), \(-0.9267195155571207`\)}, {0.29545237505252736`, \
\(-0.9551942761226434`\), 
          0.01765754621570839`}, {\(-0.8874319968600722`\), \
\(-0.2675542943062756`\), 
          0.3753387144263375`}}, {{\(-0.3597937601761037`\), \
\(-0.05103181253544737`\), \(-0.9316352313259129`\)}, {0.2303635413156935`, \
\(-0.9724496351735277`\), \(-0.035697981502679436`\)}, \
{\(-0.9041466081177505`\), \(-0.2274587020982486`\), 
          0.3616371798763882`}}, {{\(-0.3606764868978625`\), 
          0.02488934396062928`, \(-0.9323588324010372`\)}, \
{0.16435931830424305`, \(-0.9823040653195975`\), \(-0.08980388490013373`\)}, \
{\(-0.9180950311844523`\), \(-0.18563201182393466`\), 
          0.3502031837385522`}}, {{\(-0.35643850139226346`\), 
          0.10062107752056913`, \(-0.9288848117413897`\)}, \
{0.09794203800973206`, \(-0.9846825683971736`\), \(-0.14424838538176268`\)}, \
{\(-0.9291711101383521`\), \(-0.14239254985196712`\), 
          0.3411237456274739`}}, {{\(-0.3471120572879696`\), 
          0.17558702392390899`, \(-0.9212396087418614`\)}, \
{0.03161717603905288`, \(-0.9795670425616566`\), \(-0.19861712742441215`\)}, \
{\(-0.9372905493306911`\), \(-0.09806939459665409`\), 
          0.3344679655494932`}}, {{\(-0.3327681344560755`\), 
          0.24921664705284474`, \(-0.9094814080135782`\)}, \
{\(-0.03411049536015211`\), \(-0.9669964200534932`\), \
\(-0.2524963320723945`\)}, {\(-0.9423915549265646`\), \(-0.05299987203254067`\
\), 0.33028649800987353`}}, {{\(-0.3135158988104297`\), 
          0.3209495810165823`, \(-0.8936996965638786`\)}, \
{\(-0.09874074892108096`\), \(-0.9470663709003204`\), \(-0.30547594604518463`\
\)}, {\(-0.9444353051933162`\), \(-0.007526988440062151`\), 
          0.3286111665014304`}}, {{\(-0.28950187148911305`\), 
          0.3902398948741281`, \(-0.8740145827461523`\)}, \
{\(-0.16178170938932143`\), \(-0.9199285748102864`\), \(-0.35715276249048433`\
\)}, {\(-0.9434062459573661`\), 0.03800318007936516`, 
          0.329454721308536`}}, {{\(-0.2609088137401066`\), 
          0.45656024749839075`, \(-0.8505758821627489`\)}, \
{\(-0.22275359699053723`\), \(-0.8857895667978856`\), \
\(-0.4071334896318299`\)}, {\(-0.9393122089808625`\), 0.08324412145144103`, 
          0.3328107424697559`}}, {{\(-0.22795433599784093`\), 
          0.5194059009605759`, \(-0.8235619774777826`\)}, \
{\(-0.2811923788442511`\), \(-0.844909165327789`\), \
\(-0.45503774395648755`\)}, {\(-0.932184352357244`\), 0.12785152479509654`, 
          0.33865368863763223`}}, {{\(-0.19088924173639205`\), 
          0.5782985618905939`, \(-0.7931784608173473`\)}, \
{\(-0.33665330053425535`\), \(-0.7975984949394448`\), \
\(-0.5005009451636675`\)}, {\(-0.9220769233793337`\), 0.17148590083620047`, 
          0.3469390914637602`}}, {{\(-0.1499956187036065`\), 
          0.6327900215784045`, \(-0.7596565690892988`\)}, \
{\(-0.3887142709582674`\), \(-0.7442176184014738`\), \
\(-0.5431770908407504`\)}, {\(-0.9090668456846861`\), 0.21381516562592207`, 
          0.3576038940297696`}}, {{\(-0.10558469206300669`\), 
          0.6824655671129428`, \(-0.7232514241307577`\)}, \
{\(-0.43697907469608915`\), \(-0.6851727964165822`\), \
\(-0.5827413897505739`\)}, {\(-0.8932531338202567`\), 0.2545171679001044`, 
          0.3705669307485498`}}, {{\(-0.05799445578237971`\), 
          0.726947137597775`, \(-0.6842400910768874`\)}, \
{\(-0.4810803874481891`\), \(-0.6209133957323151`\), \
\(-0.6188927336888562`\)}, {\(-0.8747561396819148`\), 0.29328214084489873`, 
          0.3857295450833748`}}, {{\(-0.007587100295591003`\), 
          0.7658962014228052`, \(-0.6429194697279141`\)}, \
{\(-0.5206825715954235`\), \(-0.551928469188766`\), \
\(-0.6513559890994493`\)}, {\(-0.8537166365638432`\), 0.32981505960926494`, 
          0.40297634038372`}}, {{0.045253743985311574`, 
          0.7990163326942373`, \(-0.5996040349623771`\)}, \
{\(-0.5554842306039792`\), \(-0.4787430337311691`\), \
\(-0.6798840910068288`\)}, {\(-0.8302947477887699`\), 0.3638378866222268`, 
          0.42217605812344994`}}, {{0.10012592632917627`, 
          0.8260554672146138`, \(-0.5546234433934166`\)}, \
{\(-0.585220502834985`\), \(-0.40191407471393065`\), \
\(-0.7042599233297406`\)}, {\(-0.8046687280727962`\), 0.39509168762667096`, 
          0.4431825768574588`}}, {{0.1566118362956366`, 
          0.8468078208435587`, \(-0.5083200244828961`\)}, \
{\(-0.6096650773015108`\), \(-0.32202630690576567`\), \
\(-0.7242979712656777`\)}, {\(-0.7770336068993745`\), 0.42333860232539267`, 
          0.465836024294098`}}, {{0.21428158200272293`, 
          0.861115455639342`, \(-0.4610461752074936`\)}, \
{\(-0.6286319160318287`\), \(-0.23968772445724743`\), \
\(-0.7398457331705431`\)}, {\(-0.7475997042271768`\), 0.44836365464158123`, 
          0.489963994019849`}}, {{0.27269626186366036`, 
          0.8688694818619817`, \(-0.4131616781049248`\)}, \
{\(-0.6419766699307107`\), \(-0.15552497369820367`\), \
\(-0.7507848811882458`\)}, {\(-0.7165910298282148`\), 0.46997638881657083`, 
          0.5153828576162328`}}, {{0.33141130489295734`, 
          
          0.8700108866899143`, \(-0.3650309631115918`\)}, \
{\(-0.6495977773632033`\), \(-0.0701785839807716`\), \
\(-0.7570321617971325`\)}, {\(-0.6842435784382148`\), 0.48801231889316354`, 
          0.5418991621829506`}}, {{0.389979854160051`, 
          0.8645309833432004`, \(-0.3170203340307121`\)}, \
{\(-0.6514372370999951`\), 
          0.015701907135743418`, \(-0.7585400294195588`\)}, \
{\(-0.6508035336941788`\), 0.5023341805530849`, 
          0.5693111026312684`}}, {{0.44795616764035995`, 
          0.8524714771951646`, \(-0.26949518073920314`\)}, \
{\(-0.6474810497417929`\), 
          0.10146289725788386`, \(-0.7552970082724424`\)}, \
{\(-0.6165253945282608`\), 0.5128329757813259`, 
          0.5974100575425914`}}, {{0.5048990105812444`, 
          0.8339241483693222`, \(-0.22281719835008507`\)}, \
{\(-0.6377593242632038`\), 
          0.1864516934669193`, \(-0.7473277797049027`\)}, \
{\(-0.5816700382772196`\), 0.519428802406854`, 
          0.6259821769034317`}}, {{0.5603750135648958`, 
          0.8090301532372213`, \(-0.17734163449427523`\)}, \
{\(-0.6223460488652581`\), 
          0.27002147970606094`, \(-0.7346929943582904`\)}, \
{\(-0.546502735248365`\), 0.5220714622063798`, 
          0.6548100096331363`}}, {{0.6139619707112819`, 
          0.7779789501332224`, \(-0.13341458567161274`\)}, \
{\(-0.6013585278805247`\), 
          0.3515362394412122`, \(-0.7174888105781853`\)}, \
{\(-0.5112911298523449`\), 0.5207408429431473`, 
          0.6836741585179105`}}, {{0.6652520529198294`, 
          0.741006857462176`, \(-0.09137036324751523`\)}, \
{\(-0.5749564890163085`\), 
          0.430375596130831`, \(-0.6958461625913239`\)}, \
{\(-0.4763032036675715`\), 0.5154470714331996`, 
          0.7123549499560917`}}, {{0.7138549116951328`, 
          0.6983952551736686`, \(-0.05152894914162558`\)}, \
{\(-0.5433408677303535`\), 
          0.5059395346660043`, \(-0.6699297640170747`\)}, \
{\(-0.4418052359385984`\), 0.5062304364741941`, 
          0.7406341058069`}}, {{0.7594006499347041`, 
          0.6504684432907044`, \(-0.01419356057219305`\)}, \
{\(-0.5067522779906795`\), 
          0.5776529678477262`, \(-0.6399368542973367`\)}, \
{\(-0.40805977703028523`\), 0.49316108222332494`, 
          0.7682964046188898`}}, {{0.8015426370692701`, 0.5975911737907144`, 
          0.020351657610044052`}, {\(-0.4654691810580009`\), 
          0.6449701131477273`, \(-0.6060956975852919`\)}, \
{\(-0.37532365026099046`\), 0.4763384743579336`, 
          0.7951313195951484`}}, {{0.839960147130711`, 0.5401658746227596`, 
          0.051843795435747256`}, {\(-0.41980576622738947`\), 
          0.7073786464430735`, \(-0.5686638455173669`\)}, \
{\(-0.3438459973220408`\), 0.45589064308164334`, 
          0.8209346208293428`}}, {{0.8743607996703311`, 0.47862958698785335`, 
          0.08004317872058915`}, {\(-0.37010955965803083`\), 
          0.7644036011120823`, \(-0.5279261770897696`\)}, \
{\(-0.31386638215902923`\), 0.4319732087372054`, 
          0.8455099296186207`}}, {{0.9044827849506223`, 0.41345063919152336`, 
          0.10473519313051934`}, {\(-0.31675877948930775`\), 
          0.8156109828171144`, \(-0.48419273055731094`\)}, \
{\(-0.28561296774553246`\), 0.40476819744172254`, 
          0.868670213024119`}}, {{0.9300968564754497`, 0.34512508238262435`, 
          0.12573191752643217`}, {\(-0.26015945737238577`\), 
          0.860611072463532`, \(-0.43779634385507943`\)}, \
{\(-0.25930077962511533`\), 0.3744826557579882`, 
          0.8902392073045601`}}}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(transB = 
      Table[dispC . RotZ[psiout[\([i, 2]\)]] . RotY[b], {i, 
          ndata}]\)], "Input"],

Cell[BoxData[
    \(General::"spell1" \(\(:\)\(\ \)\) 
      "Possible spelling error: new symbol name \"\!\(transB\)\" is similar \
to existing symbol \"\!\(transA\)\"."\)], "Message"],

Cell[BoxData[
    \({{{\(-0.19459138149462504`\), 0.8447542058763533`, 
          0.49852234243033167`}, {0.04492365558514901`, 
          0.5153795684307865`, \(-0.8557837142718732`\)}, \
{\(-0.9798551216465015`\), \(-0.14413268920792346`\), \(-0.13823786921394576`\
\)}}, {{\(-0.2994073982014644`\), 0.8933115049356799`, 
          0.33518616476785`}, {\(-0.007214130826114534`\), 
          0.3491724499168605`, \(-0.9370307126959506`\)}, \
{\(-0.9540980904595991`\), \(-0.2829720045668975`\), \
\(-0.09810034868815909`\)}}, {{\(-0.407611818666335`\), 0.8978346781887188`, 
          0.16656979295563318`}, {\(-0.03830225471405322`\), 
          0.16544030068197382`, \(-0.9854757451069396`\)}, \
{\(-0.9123516551019911`\), \(-0.40807155935205514`\), \
\(-0.0330463293065904`\)}}, {{\(-0.5042380439829782`\), 0.8634165431498101`, 
          0.015995874951130577`}, {\(-0.04689152567953279`\), \
\(-0.008879657556521401`\), \(-0.9988605190421355`\)}, \
{\(-0.8622906585483029`\), \(-0.5044135453146664`\), 
          0.044964380162781876`}}, {{\(-0.5830612460175136`\), 
          0.8053730748803265`, \(-0.10683535767859087`\)}, \
{\(-0.03895877276081359`\), \(-0.1590670303661129`\), \
\(-0.9864988058155353`\)}, {\(-0.8114935596894628`\), \
\(-0.5710270484909749`\), 0.12412216753751193`}}, {{\(-0.644190883837239`\), 
          0.7376828097320991`, \(-0.2020944764380076`\)}, \
{\(-0.021501957946959565`\), \(-0.28158404799533754`\), \
\(-0.9592956216511188`\)}, {\(-0.7645624702962106`\), \
\(-0.6136240674389452`\), 0.19725550150563867`}}, {{\(-0.6904315318569513`\), 
          0.6694363621204532`, \(-0.27415188653116535`\)}, \
{0.00019959299430401627`, \(-0.37880177478484905`\), \
\(-0.9254778093409289`\)}, {\(-0.723397719087018`\), \
\(-0.6390337803988001`\), 0.26140307482682373`}}, {{\(-0.7250738611619202`\), 
          0.6054708911260888`, \(-0.32813548399818676`\)}, \
{0.022857522269714898`, \(-0.45505550203011225`\), \(-0.8901696600917219`\)}, \
{\(-0.6882916747538312`\), \(-0.6529391166648713`\), 
          0.31610928552237094`}}, {{\(-0.7509987678496576`\), 
          
          0.5478896732365999`, \(-0.36853460712528435`\)}, \
{0.04465560167602919`, \(-0.5147086506015796`\), \(-0.856201426204636`\)}, \
{\(-0.6587918699614073`\), \(-0.65946335073042`\), 
          0.3620792193928829`}}, {{\(-0.770463890793741`\), 
          0.4972828357233032`, \(-0.39886736426782327`\)}, \
{0.0646980403334569`, \(-0.561462610039026`\), \(-0.8249690303915503`\)}, \
{\(-0.6341920502182131`\), \(-0.6614147857609133`\), 
          0.400413442103115`}}, {{\(-0.7851532894257336`\), 
          0.45349141288954614`, \(-0.4217580473913844`\)}, \
{0.08261533803056738`, \(-0.5982380476884567`\), \(-0.7970482696926194`\)}, {\
\(-0.6137662568323915`\), \(-0.6606487544326007`\), 
          0.4322432246323914`}}, {{\(-0.796296121123277`\), 
          0.41603400864172985`, \(-0.43912206860680153`\)}, \
{0.09831995496337832`, \(-0.6272640534964997`\), \(-0.7725755585359528`\)}, {\
\(-0.5968631953304062`\), \(-0.6583733825456748`\), 
          0.4585834877264379`}}, {{\(-0.8047822565402969`\), 
          0.38432863892899066`, \(-0.4523461250601107`\)}, \
{0.11186490749474366`, \(-0.650216629581066`\), \(-0.7514682808258983`\)}, \
{\(-0.5829337544087666`\), \(-0.655369996196979`\), 
          0.48028991875290444`}}, {{\(-0.8112549878702103`\), 
          0.35780074446718296`, \(-0.46243266743866`\)}, {0.12336521608218`, \
\(-0.6683483603509046`\), \(-0.7335471986704428`\)}, \
{\(-0.5715298488414247`\), \(-0.6521419297016461`\), 
          0.4980607748139894`}}, {{\(-0.8161798609433507`\), 
          0.335931080563941`, \(-0.4701071619339953`\)}, \
{0.1329556888625992`, \(-0.6825932956193734`\), \(-0.7186022387764696`\)}, \
{\(-0.5622928235266429`\), \(-0.6490120968723353`\), 
          0.5124549528727478`}}, {{\(-0.8198940183662421`\), 
          0.3182730972989786`, \(-0.4758949823048894`\)}, \
{0.14076910858355637`, \(-0.6936466540775758`\), \(-0.7064264840417399`\)}, {\
\(-0.5549395072580858`\), \(-0.6461861611197649`\), 
          0.5239137223450577`}}, {{\(-0.8226409891470495`\), 
          0.3044555370554586`, \(-0.4801756230083281`\)}, \
{0.1469256672729868`, \(-0.7020235917723003`\), \(-0.6968326376480267`\)}, \
{\(-0.5492491704787102`\), \(-0.643793214123441`\), 
          0.532781049003301`}}, {{\(-0.8245950120628615`\), 
          0.29417837323975576`, \(-0.48322060262271554`\)}, \
{0.1515285094989756`, \(-0.7081018565624575`\), \(-0.689659968058042`\)}, \
{\(-0.5450524533382711`\), \(-0.6419118673547107`\), 
          0.539320848530001`}}, {{\(-0.8258779377880159`\), 
          0.28720615415537765`, \(-0.4852198026567874`\)}, \
{0.15466254678466387`, \(-0.7121524500220657`\), \(-0.6847761565282854`\)}, {\
\(-0.542222397635044`\), \(-0.6405868504292347`\), 
          0.5437309615610073`}}, {{\(-0.8265708750985697`\), 
          0.28336067464159387`, \(-0.4862996159832386`\)}, \
{0.15639500769885087`, \(-0.7143614853183156`\), \(-0.6820764398956222`\)}, {\
\(-0.5406673561494728`\), \(-0.6398393519942883`\), 
          0.5461542031641506`}}, {{\(-0.8267220894959743`\), 
          0.2825137731571709`, \(-0.48653525536790126`\)}, \
{0.15677692402321344`, \(-0.7148456064898046`\), \(-0.6814812946633553`\)}, {\
\(-0.5403254415935177`\), \(-0.639673140641939`\), 
          0.5466870131144952`}}, {{\(-0.8263521997640302`\), 
          0.2845804574394508`, \(-0.485958851332807`\)}, \
{0.15584517313107785`, \(-0.7136627019358958`\), \(-0.6829332543355178`\)}, {\
\(-0.5411601647912497`\), \(-0.6400777383327041`\), 
          0.5453862529748966`}}, {{\(-0.8254574047691667`\), 
          0.289512240032562`, \(-0.4845644805215092`\)}, \
{0.15362494061880153`, \(-0.7108191953754709`\), \(-0.6863930718659956`\)}, {\
\(-0.5431569299305878`\), \(-0.6410294333001382`\), 
          0.5422746675913251`}}, {{\(-0.8240112711281636`\), 
          0.2972903818991841`, \(-0.48231095144521147`\)}, \
{0.15013261224547683`, \(-0.7062749016071725`\), \(-0.6918352131108447`\)}, {\
\(-0.546320074493055`\), \(-0.6424906164217621`\), 
          0.5373454978092652`}}, {{\(-0.821965494955159`\), 
          0.307918632266754`, \(-0.4791229915231497`\)}, \
{0.14537919039400446`, \(-0.6999462630567536`\), \(-0.6992425329120574`\)}, {\
\(-0.5506701518182225`\), \(-0.6444077472655473`\), 
          0.5305667150892887`}}, {{\(-0.8192499999310294`\), 
          0.3214149901745403`, \(-0.4748913999053977`\)}, \
{0.13937437509861486`, \(-0.6917087126874596`\), \(-0.708599915578691`\)}, \
{\(-0.5562411537983132`\), \(-0.6467081728904913`\), 
          0.52188534941859`}}, {{\(-0.8157727376097675`\), 
          0.3378019988917098`, \(-0.4694727362876682`\)}, \
{0.13213145583277822`, \(-0.6813989189341069`\), \(-0.7198866519494168`\)}, {\
\(-0.5630773649794278`\), \(-0.6492960209489934`\), 
          0.5112323916064285`}}, {{\(-0.8114196040316825`\), 
          0.3570951396391748`, \(-0.4626891909685659`\)}, \
{0.12367311986916353`, \(-0.6688177359001022`\), \(-0.7330673881487899`\)}, {\
\(-0.5712295384649635`\), \(-0.6520474655970525`\), 
          0.4985287524241361`}}, {{\(-0.8060549655037194`\), 
          0.3792890521545079`, \(-0.45432940417997686`\)}, \
{0.11403818171077797`, \(-0.6537347737913329`\), \(-0.748081639026179`\)}, \
{\(-0.5807501060687783`\), \(-0.6548058188896383`\), 
          0.48369272668645025`}}, {{\(-0.7995233722657543`\), 
          0.40434161934250795`, \(-0.44415113651579735`\)}, \
{0.1032890608157034`, \(-0.6358955687794524`\), \(-0.7648321355189428`\)}, \
{\(-0.591687203779671`\), \(-0.6573771219582676`\), 
          0.4666493034488096`}}, {{\(-0.7916530931359679`\), 
          0.4321564438565181`, \(-0.4318867770163179`\)}, \
{0.09151957576607563`, \(-0.6150322936902304`\), \(-0.7831726788963795`\)}, {\
\(-0.6040774349202692`\), \(-0.6595271683194122`\), 
          0.4473414432720556`}}, {{\(-0.7822620724465009`\), 
          0.4625649102108438`, \(-0.4172526259394173`\)}, \
{0.07886229959833287`, \(-0.5908787191892626`\), \(-0.8028966788518427`\)}, {\
\(-0.6179375273551269`\), \(-0.6609811215540806`\), 
          0.4257430789048033`}}, {{\(-0.7711667299702897`\), 
          0.4953097888664277`, \(-0.3999626078023108`\)}, \
{0.06549438883526183`, \(-0.5631896231735237`\), \(-0.8237280700454244`\)}, {\
\(-0.6332553668292324`\), \(-0.6614269887166376`\), 
          0.40187308814999684`}}, {{\(-0.7581936463453042`\), 
          0.530033022425472`, \(-0.3797464809318591`\)}, \
{0.051640558692267434`, \(-0.5317640175029595`\), \(-0.8453166758008874`\)}, \
{\(-0.6499812669143336`\), \(-0.66052405317871`\), 
          0.37580889802239464`}}, {{\(-0.7431936004426759`\), 
          0.5662706729914909`, \(-0.3563717120799798`\)}, \
{0.03757186146856275`, \(-0.4964704863226083`\), \(-0.8672401117547434`\)}, {\
\(-0.6680206789365426`\), \(-0.6579168497008999`\), 
          0.3476978449642796`}}, {{\(-0.7260567339085582`\), 
          0.6034577179551914`, \(-0.32966710752871525`\)}, \
{0.023599254792691333`, \(-0.4572718265884785`\), \(-0.8890138085438638`\)}, \
{\(-0.6872297245603297`\), \(-0.6532543602983059`\), 
          0.3177641364785908`}}, {{\(-0.7067269873300409`\), 
          0.6409442823999244`, \(-0.29954530915747996`\)}, \
{0.010061662398786548`, \(-0.4142453961820371`\), \(-0.9101096168548929`\)}, \
{\(-0.7074148205467404`\), \(-0.6462129514338391`\), 
          0.28630943587312985`}}, {{\(-0.6852136114670628`\), 
          0.6780230648844681`, \(-0.26602073254717806`\)}, \
{\(-0.002690765986169834`\), \(-0.3675954801857404`\), \(-0.9299818937621434`\
\)}, {\(-0.7283371928157126`\), \(-0.6365204524849828`\), 
          0.25370582793787017`}}, {{\(-0.6615976989809425`\), 
          0.7139655404814528`, \(-0.22921974545869533`\)}, \
{\(-0.014316443642240034`\), \(-0.31765480757756187`\), \
\(-0.9480983401864495`\)}, {\(-0.7497222980174464`\), \
\(-0.6239780687074579`\), 0.2203811371863533`}}, {{\(-0.6360323606341199`\), 
          0.7480626276449858`, \(-0.189380942407276`\)}, \
{\(-0.02450266767941676`\), \(-0.26487401590855375`\), \(-0.9639716671007852`\
\)}, {\(-0.7712732690186928`\), \(-0.6084768367139004`\), 
          0.18679797557753341`}}, {{\(-0.6087362440987177`\), 
          0.7796644905971679`, \(-0.1468450449366433`\)}, \
{\(-0.03298373489538257`\), \(-0.20979996786715507`\), \(-0.9771878257097208`\
\)}, {\(-0.7926867340588823`\), \(-0.5900061487686372`\), 
          0.1534290913166842`}}, {{\(-0.5799812666247437`\), 
          0.8082143458809529`, \(-0.10203578527448692`\)}, \
{\(-0.039554526669154356`\), \(-0.15304577617560247`\), \
\(-0.9874271769678948`\)}, {\(-0.8136689558932041`\), \
\(-0.568653287607687`\), 0.12073221901643438`}}, {{\(-0.5500763725366936`\), 
          0.8332724584473291`, \(-0.055434595425753304`\)}, \
{\(-0.04407814372938355`\), \(-0.09525664851573201`\), \(-0.9944763889398893`\
\)}, {\(-0.8339502992518466`\), \(-0.5445945105366878`\), 
          0.08912753486471486`}}, {{\(-0.5193495999184565`\), 
          0.8545284959376914`, \(-0.007552661451825045`\)}, \
{\(-0.04648728652192583`\), \(-0.03707594479051507`\), \(-0.9982305878451727`\
\)}, {\(-0.8532965048893424`\), \(-0.5180795536868421`\), 
          0.058980088125358605`}}, {{\(-0.48813069147584565`\), 
          0.8718024618577491`, 
          0.041096174251147276`}, {\(-0.04678008675777565`\), 
          0.020884792158560594`, \(-0.9986868623044105`\)}, \
{\(-0.8715159502397233`\), \(-0.489412191261376`\), 
          0.030588486763660442`}}, {{\(-0.45673602139434605`\), 
          0.8850360467859678`, 
          0.09001890162809992`}, {\(-0.045011779154252786`\), 
          0.07806929415391477`, \(-0.9959312853042012`\)}, \
{\(-0.8884627997267146`\), \(-0.45892960375179076`\), 
          0.004179988276559081`}}, {{\(-0.42545693228106696`\), 
          0.8942771606108295`, 
          0.13876151766183606`}, {\(-0.04128388236094702`\), 
          0.13399237989672202`, \(-0.9901220546916525`\)}, \
{\(-0.9040365257174021`\), \(-0.42698290614431517`\), \
\(-0.020088753803159328`\)}}, {{\(-0.3945518851702447`\), 
          0.8996606320144194`, 
          0.1869212591227157`}, {\(-0.035732485187057496`\), 
          0.18824822877804084`, \(-0.9814712394483533`\)}, \
{\(-0.9181786315368936`\), \(-0.39392048888747316`\), \
\(-0.042126583337501515`\)}}, {{\(-0.36424226361875583`\), 
          0.9013877522498511`, 
          0.23415314110181337`}, {\(-0.02851693037136453`\), 
          0.24051210134675663`, \(-0.9702271454602588`\)}, \
{\(-0.9308675298215527`\), \(-0.36007506050784543`\), \(-0.06189986045373646`\
\)}}, {{\(-0.3347113047434121`\), 0.8997067323636215`, 
          0.28017162278956337`}, {\(-0.01980978697094919`\), 
          0.2905369587743627`, \(-0.9566586893591202`\)}, \
{\(-0.9421124746107167`\), \(-0.32575461827228025`\), \(-0.07942300584309775`\
\)}}, {{\(-0.3061054549468385`\), 0.8948954495119809`, 
          0.32474849483028967`}, {\(-0.00978861004939911`\), 
          0.3381465481399942`, \(-0.9410425575362186`\)}, \
{\(-0.9519472850767997`\), \(-0.29123709657898383`\), \(-0.09474872036684145`\
\)}}, {{\(-0.27853742651077207`\), 0.8872472278450925`, 
          0.36770811619265986`}, {0.0013703335666277636`, 
          0.3832263892995716`, \(-0.9236534289062804`\)}, \
{\(-0.960424397971372`\), \(-0.25676816630106564`\), \
\(-0.10795871690473158`\)}}, {{\(-0.25209031048671976`\), 
          0.8770599107416085`, 0.408921004998069`}, {0.013496417205434614`, 
          0.42571383342979024`, \(-0.9047571932563616`\)}, \
{\(-0.9676095917679434`\), \(-0.22256155327556992`\), \(-0.11915549891733745`\
\)}}, {{\(-0.22682223298001997`\), 0.8646281563078331`, 
          0.44829658257193383`}, {0.026427254559290143`, 
          0.46558805173325707`, \(-0.8846068993059506`\)}, \
{\(-0.9735775648824371`\), \(-0.1888012643044192`\), \
\(-0.12845546992883128`\)}}, {{\(-0.20277119037806374`\), 
          0.8502387154515638`, 0.48577563864395024`}, {0.040009765291390574`, 
          0.502860513066214`, \(-0.863441094157622`\)}, \
{\(-0.978408433648234`\), \(-0.15564520919725924`\), \
\(-0.13598347627543061`\)}}, {{\(-0.17995984333087114`\), 0.83416840600053`, 
          0.5213228608250966`}, {0.05409990756051821`, 
          0.5375662504778826`, \(-0.8414842401073793`\)}, \
{\(-0.9821851428270902`\), \(-0.1232298534352986`\), \
\(-0.14186877187049718`\)}}, {{\(-0.15840018147791227`\), 
          0.8166845525233831`, 0.5549195655024662`}, {0.0685612157479842`, 
          0.5697560056978528`, \(-0.8189489933239961`\)}, \
{\(-0.984991747276556`\), \(-0.09167570911048246`\), \
\(-0.14624234050427198`\)}}, {{\(-0.13809809404684034`\), 0.798047805747186`, 
          0.5865565754151356`}, {0.08326217695384865`, 
          0.5994891685919111`, \(-0.7960402920894676`\)}, \
{\(-0.986912522116087`\), \(-0.06109366974638719`\), \
\(-0.14923550920402084`\)}}, {{\(-0.11905800851998069`\), 
          0.7785174924009035`, 0.6162269911591548`}, {0.09807232784836085`, 
          0.6268272745609403`, \(-0.7729614391267566`\)}, \
{\(-0.9880318866907383`\), \(-0.03159243409920049`\), \(-0.15097982974565782`\
\)}}, {{\(-0.10128791571689405`\), 0.7583600088976724`, 
          0.6439183605352853`}, {0.11285673109412726`, 
          0.651827652587073`, \(-0.74992270906379`\)}, {\(-0.988435185723614`\
\), \(-0.003287586888336215`\), \(-0.15160829593388503`\)}}, \
{{\(-0.08480533013239161`\), 0.7378613389007205`, 
          0.6696033904758638`}, {0.12746814664958858`, 
          0.6745365736778951`, \(-0.7271535479942353`\)}, \
{\(-0.9882104672441266`\), 
          0.023686606479648018`, \(-0.15125811417118507`\)}}, \
{{\(-0.06964512403031825`\), 0.7173457036032044`, 
          0.6932277390734052`}, {0.14173564639932948`, 
          0.694980830963879`, \(-0.70492031544886`\)}, \
{\(-0.9874515498183016`\), 
          0.04916081889858772`, \(-0.150075483163155`\)}}, \
{{\(-0.05587089148300784`\), 0.6972039515210503`, 
          0.7146923068484274`}, {0.15544743267052605`, 
          0.7131558818757782`, \(-0.6835530585273708`\)}, \
{\(-0.9862629158399074`\), 
          0.07290636549310288`, \(-0.1482232191984436`\)}}, \
{{\(-0.043592899392570335`\), 0.6779381548964493`, 
          0.7338252634368396`}, {0.1683238219522906`, 
          0.7290070507561792`, \(-0.6634876117239499`\)}, \
{\(-0.9847673583572533`\), 
          0.09459692428073627`, \(-0.14589267229954295`\)}}, \
{{\(-0.03299854886743903`\), 0.6602341364926163`, 
          0.7503345792261559`}, {0.1799729707013554`, 
          0.7423967920079263`, \(-0.645334589986674`\)}, \
{\(-0.9831179103187839`\), 
          0.11374483823975863`, \(-0.14332231572312393`\)}}, \
{{\(-0.024407388588997384`\), 0.6450833527421969`, 
          0.763722297302594`}, {0.18981545290779436`, 
          0.7530431421982196`, \(-0.6299969204890139`\)}, \
{\(-0.9815163642139008`\), 
          0.1295897141100259`, \(-0.14082660535995017`\)}}, \
{{\(-0.018376231525545687`\), 0.6339926284904666`, 
          0.7731207286929179`}, {0.1969516895286025`, 
          0.7603959478533757`, \(-0.618876429087419`\)}, \
{\(-0.9802409632874708`\), 
          0.1408948171790411`, \(-0.1388391313187175`\)}}, \
{{\(-0.01590999744024302`\), 0.6293440870075057`, 
          0.7769638937107313`}, {0.19992632758627513`, 
          0.7633724145947965`, \(-0.6142410114715358`\)}, \
{\(-0.9796817521620564`\), 
          0.145562965016515`, \(-0.13796770526570323`\)}}, \
{{\(-0.018895910509613093`\), 0.634963628006752`, 
          0.7723109060958`}, {0.1963291334219439`, 
          0.7597664808479146`, \(-0.6198465664579934`\)}, \
{\(-0.9803559638905662`\), 
          0.13991456567662341`, \(-0.13901833827132504`\)}}, \
{{\(-0.03095885692912376`\), 0.6567036017818059`, 
          0.7535130580052646`}, {0.18227658245163056`, 
          0.7449421493694312`, \(-0.6417448414927898`\)}, \
{\(-0.9827597858415841`\), 
          0.1174800983130983`, \(-0.14276424563926637`\)}}, \
{{\(-0.05871590384039533`\), 0.701487531284399`, 
          0.710258886666492`}, {0.15255380812934446`, 
          0.709434775657983`, \(-0.6880622317147937`\)}, \
{\(-0.9865494302169764`\), 
          0.0679525020851081`, \(-0.14866969832125432`\)}}, \
{{\(-0.11150885927207699`\), 0.7701903443104127`, 
          0.6279909297393139`}, {0.10423532246078067`, 
          0.6375109628258456`, \(-0.7633575635495861`\)}, \
{\(-0.9882817269662215`\), \(-0.019662294064303615`\), \
\(-0.15136915913352922`\)}}}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(handA = 
      Inverse[dispO . RotZ[Th[\([1]\)]] . RotY[a] . RotZ[Ph[\([1]\)]]] . 
        position[\([1]\)]\)], "Input"],

Cell[BoxData[
    \({{0.7994399874973777`, \(-0.47985926863902295`\), \
\(-0.3614288155244606`\)}, {0.5853158352113317`, 0.4866876042094336`, 
        0.6484909783179278`}, {\(-0.1352814822547921`\), \
\(-0.7299796286267884`\), 0.6699467608316667`}}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Coupler Frames", "Subsection",
  FontColor->RGBColor[0, 0, 1]],

Cell[CellGroupData[{

Cell[BoxData[
    \(Gripper = 
      Table[dispO . RotZ[phiout[\([i, 1]\)]] . RotY[a] . 
          RotZ[phiout[\([i, 2]\)]] . handA, {i, ndata}]\)], "Input"],

Cell[BoxData[
    \({{{0.8698984705411362`, 0.08840349842736996`, 
          0.4852437247569451`}, {\(-0.28099655186797123`\), 
          0.8973657177036718`, 
          0.34025829384231676`}, {\(-0.40536105978313014`\), \
\(-0.4323419828746406`\), 0.8054581435776297`}}, {{0.7718576766256893`, 
          0.1977722802511817`, 
          0.6042531358613218`}, {\(-0.4568449325399427`\), 
          0.8335002449601093`, 
          0.31075721916636617`}, {\(-0.4421859729192773`\), \
\(-0.515910328270026`\), 0.7336948265714746`}}, {{0.6506365840106149`, 
          0.2953265466605556`, 
          0.6996100816773219`}, {\(-0.6160716631410559`\), 
          0.743921450510665`, 
          0.2589142355003324`}, {\(-0.4439906997017069`\), \
\(-0.5994690203068539`\), 0.6659648281033538`}}, {{0.5273955403446704`, 
          0.37088707769977425`, 
          0.7643930400127118`}, {\(-0.7412506089450597`\), 
          0.6405413843151865`, 
          0.20063466728898763`}, {\(-0.41521257057455685`\), \
\(-0.6724206351495369`\), 0.612738941688842`}}, {{0.4174105231125143`, 
          0.42560667217135234`, 
          0.8028869259105945`}, {\(-0.8314942436273851`\), 
          0.5353132985542415`, 
          0.14851597626349833`}, {\(-0.3665866582534881`\), \
\(-0.729587988521059`\), 0.5773349019384982`}}, {{0.32721817329213215`, 
          0.46512536315015196`, 
          0.8225488822081031`}, {\(-0.8933931534376544`\), 
          0.43587035082012754`, 
          0.10892984286531707`}, {\(-0.3078586371341298`\), \
\(-0.770503363931903`\), 0.5581645149161112`}}, {{0.2574451279155131`, 
          0.49516486960587475`, 
          0.8297793429706253`}, {\(-0.9345795803673587`\), 
          0.34578871395811034`, 
          0.0836132361505492`}, {\(-0.2455259946990061`\), \
\(-0.7970206504271979`\), 0.5517925957456026`}}, {{0.20595452512962983`, 
          0.5200427071678289`, 
          0.828938065418753`}, {\(-0.9612520792552312`\), 
          0.26613917907701345`, 
          0.07186360335877909`}, {\(-0.18324075339869983`\), \
\(-0.8116190732614468`\), 0.5547047018117904`}}, {{0.16976367957871663`, 
          0.5426031774495619`, 
          0.8226555080454604`}, {\(-0.9778045285375577`\), 
          0.19675823916289423`, 
          0.07200346722874872`}, {\(-0.12279493909497632`\), \
\(-0.8166198547323945`\), 0.5639622467767714`}}, {{0.1459349911830783`, 
          0.5645619028554485`, 
          0.8123871221238249`}, {\(-0.987161486394762`\), 
          0.1369928688429074`, 
          0.08212888447479084`}, {\(-0.06492440317229281`\), \
\(-0.813942757035423`\), 0.5773058202913739`}}, {{0.13189747300299717`, 
          0.5868656907903204`, 
          0.7988690240512671`}, {\(-0.9912147173996947`\), 
          0.08606862654609229`, 
          0.10042696617299875`}, {\(-0.009820418813216554`\), \
\(-0.8050967969739227`\), 0.593062144194572`}}, {{0.12550903950298428`, 
          0.6099650413870583`, 
          0.7824257979442669`}, {\(-0.9911783496100856`\), 
          0.04324722053028827`, 
          0.12528031441783402`}, {0.04257887113657548`, \
\(-0.7912473230299673`\), 0.6100120601518021`}}, {{0.1250195278821708`, 
          0.6339984909386381`, 
          0.7631618643090395`}, {\(-0.9878391884304039`\), 
          0.007880141186180413`, 
          0.15527923613943387`}, {0.09243297814784172`, \
\(-0.7732941334721323`\), 0.6272737262856662`}}, {{0.12900607543498452`, 
          0.6589114891490195`, 
          0.7410756249994226`}, {\(-0.9817228026388927`\), \
\(-0.02058435666086393`\), 
          0.18919995517889432`}, {0.13992058919151396`, \
\(-0.7519387832319067`\), 0.6442129267501697`}}, {{0.13630923217674673`, 
          0.6845316043498978`, 
          0.7161258799048817`}, {\(-0.9732007808484825`\), \
\(-0.04261279155267537`\), 
          0.2259743130357779`}, {0.18520268189011008`, \(-0.7277366506108124`\
\), 0.660378174971332`}}, {{0.14597907495516882`, 0.7106159049315333`, 
          0.6882696748612216`}, {\(-0.9625591848553086`\), \
\(-0.058603572433926825`\), 
          0.2646609849385913`}, {0.228407367057013`, \
\(-0.7011352629531051`\), 0.675454970903141`}}, {{0.15723286355364863`, 
          0.7368809590431207`, 
          0.6574832916648229`}, {\(-0.9500420078334081`\), \
\(-0.0689041684074785`\), 
          0.3044214166709368`}, {0.26962568492372174`, \(-0.6725017976003966`\
\), 0.6892338661540429`}}, {{0.1694230455016449`, 0.7630220459933782`, 
          0.6237733474436261`}, {\(-0.9358786341562199`\), \
\(-0.07382626336888846`\), 
          0.34450089254873567`}, {0.3089126313099477`, \(-0.6421425388222359`\
\), 0.7015881598574036`}}, {{0.18201373123324713`, 0.7887256673351689`, 
          0.5871821040607793`}, {\(-0.9203010069705265`\), \
\(-0.07365836633491521`\), 
          0.38421413513548125`}, {0.3462904246605525`, \
\(-0.610316529970772`\), 0.7124581917788931`}}, {{0.19456384043474229`, 
          0.8136778775291564`, 
          0.547789397136282`}, {\(-0.9035540662565187`\), \
\(-0.06867598431699481`\), 
          0.4229345794912043`}, {0.38175248702083686`, \(-0.5772451132731565`\
\), 0.7218400916100924`}}, {{0.20671542930491074`, 0.8375699906369287`, 
          0.5057126081795288`}, {\(-0.8859016462699435`\), \
\(-0.059149689310800405`\), 
          0.4600864999004418`}, {0.41526738906816413`, \(-0.5431186104700252`\
\), 0.7297774801524223`}}, {{0.21818603791842217`, 0.8601026337390599`, 
          0.46110553270655236`}, {\(-0.8676291371511935`\), \
\(-0.0453514558273234`\), 
          0.49513929941039586`}, {0.44678242268887014`, \
\(-0.5081010774338852`\), 0.7363550515116934`}}, {{0.22876417326070067`, 
          0.880988765779397`, 
          0.4141566703589874`}, {\(-0.8490436350112364`\), \
\(-0.02755961622001485`\), 
          0.5276034243640876`}, {0.47622668854155387`, \(-0.4723338460499104`\
\), 0.7416932512814483`}}, {{0.23830724565990666`, 0.8999560739672184`, 
          0.36508727942164665`}, {\(-0.8304719111042292`\), \
\(-0.006062723567271024`\), 
          0.5570275112145138`}, {0.5035137153374051`, \(-0.43593842261546256`\
\), 0.7459434497029014`}}, {{0.24674140054511676`, 0.9167490450264919`, 
          0.3141494384843774`}, {\(-0.812256254776188`\), 
          0.01883745697842852`, 
          0.5829965066718203`}, {0.5285437142129251`, \(-0.39901922091247843`\
\), 0.7492831264004313`}}, {{0.2540627334420584`, 0.9311309521331004`, 
          0.26162430593439845`}, {\(-0.7947480515702029`\), 
          0.04682368435278809`, 
          0.6051306281366`}, {0.5512056440216441`, \(-0.3616665488586644`\), 
          0.7519106632009871`}}, {{0.26033934306969275`, 0.9428859777349438`, 
          0.20782073871695256`}, {\(-0.7782988379829671`\), 
          0.07756164890021128`, 
          0.6230851542239175`}, {0.571379335682`, \(-0.3239602191792991`\), 
          0.7540394095436239`}}, {{0.2657135655791642`, 0.9518216889581209`, 
          0.15307440509803583`}, {\(-0.7632485405487103`\), 
          0.11069909701291235`, 
          0.6365511568372092`}, {0.5889379987888967`, \(-0.28597409384319455`\
\), 0.7558907667335891`}}, {{0.2704035496366048`, 0.9577720762802828`, 
          0.09774748202220068`}, {\(-0.7499106900302195`\), 
          0.14586583769558897`, 
          0.6452574016404337`}, {0.6037515029565758`, \
\(-0.2477817735248507`\), 0.7576861588986271`}}, {{0.2747031011582497`, 
          0.960601333760542`, 
          0.04222894494903299`}, {\(-0.7385546434978573`\), 
          0.18267492306322683`, 
          0.6489737367964875`}, {0.615690867872663`, \
\(-0.2094634814503766`\), 0.7596379434683965`}}, {{0.2789785004607218`, 
          0.9602084723299655`, \(-0.01306468317414917`\)}, \
{\(-0.729385286025608`\), 0.22072541032915918`, 
          0.647516330114049`}, {0.6246343737019512`, \
\(-0.17111394712523662`\), 0.7619395752218105`}}, {{0.28366086304466426`, 
          0.9565326894844918`, \(-0.06768846817827427`\)}, \
{\(-0.7225213276234828`\), 0.2596071775209649`, 
          0.6407550581218988`}, {0.630475571220611`, \
\(-0.13285077089412523`\), 0.764755664749782`}}, {{0.2892327018541754`, 
          0.9495591556253923`, \(-0.12116870118197053`\)}, \
{\(-0.7179741028122154`\), 0.29890822312382787`, 
          0.6286231477124827`}, {0.6331331865169662`, \(-0.09482238194091107`\
\), 0.7682129158078017`}}, {{0.2962077846971673`, 
          0.9393245376839608`, \(-0.1730039340292877`\)}, \
{\(-0.7156295665520263`\), 0.3382246713453994`, 
          0.6111287877116045`}, {0.6325624647110792`, \
\(-0.057214374051545384`\), 0.7723931923836036`}}, {{0.3051042479401569`, 
          0.9259212325113063`, \(-0.22266851837117593`\)}, \
{\(-0.7152367082062456`\), 0.3771732939207339`, 
          0.588367876066732`}, {0.6287669275042739`, \(-0.020252840238526037`\
\), 0.777330028584454`}}, {{0.3164121860207467`, 
          
          0.9094990456556327`, \(-0.26961975908502295`\)}, \
{\(-0.7164055749943261`\), 0.41540577186476757`, 
          0.5605364366555358`}, {0.6218089583261254`, 0.015796539270679536`, 
          0.7830096351210812`}}, {{0.3305583661458998`, 
          0.8902630690699014`, \(-0.3133094866441058`\)}, \
{\(-0.718617277410318`\), 0.45262327148166337`, 
          0.52794070000391`}, {0.6118172727034886`, 0.05063439506379651`, 
          0.7893768319745572`}}, {{0.34787193351984647`, 
          0.8684668895444692`, \(-0.3532001976699875`\)}, \
{\(-0.7212467243459874`\), 0.48858939522781275`, 
          0.49100261250944804`}, {0.5989893826182117`, 0.0839384574308761`, 
          0.7963454369020888`}}, {{0.3685555377640784`, 
          0.8444009938643908`, \(-0.3887850011822217`\)}, \
{\(-0.7235966930946355`\), 0.5231394078245916`, 
          0.45025879860747164`}, {0.5835877323298863`, 0.11537816752646496`, 
          0.8038116925824706`}}, {{0.3926659233504601`, 
          0.8183771747764341`, \(-0.4196096667669516`\)}, \
{\(-0.7249397282219394`\), 0.5561839724143263`, 
          0.4063517925085611`}, {0.5659292032443909`, 0.1446312159748437`, 
          0.8116686197462654`}}, {{0.42010668170201043`, 
          0.7907106186242018`, \(-0.44529438979652297`\)}, \
{\(-0.7245629004979207`\), 0.5877064395763635`, 
          0.3600135332213422`}, {0.5463689039571759`, 0.17139970383698583`, 
          0.8198189814301863`}}, {{0.4506338920454917`, 
          0.7617018960302513`, \(-0.4655527004796045`\)}, \
{\(-0.7218100712051264`\), 0.6177538155360264`, 
          0.3120423761246721`}, {0.5252802265903241`, 0.1954237574467381`, 
          0.8281849060316281`}}, {{0.48387332537920985`, 
          0.7316211157995886`, \(-0.48020531848640563`\)}, \
{\(-0.7161170606912495`\), 0.6464225932179978`, 
          0.2632758750137284`}, {0.5030337566937139`, 0.21649104806777617`, 
          0.8367130127666986`}}, {{0.5193462843824723`, 
          0.7006960501855425`, \(-0.4891875735875754`\)}, \
{\(-0.7070367080094048`\), 0.6738413797025385`, 
          0.21456208548530342`}, {0.47997763533871385`, 0.23444154976232096`, 
          0.8453748454500511`}}, {{0.5565003294449877`, 
          
          0.6691052644758225`, \(-0.49255002626977856`\)}, \
{\(-0.6942527184468222`\), 0.7001525408300371`, 
          0.1667320679966532`}, {0.4564214568321885`, 0.24916774393966581`, 
          0.8541632684230809`}}, {{0.5947411415434488`, 
          0.6369764247065668`, \(-0.49045286106172825`\)}, \
{\(-0.6775829252726172`\), 0.7254949147774244`, 
          0.1205757355818346`}, {0.43262495759560393`, 0.2606111336841492`, 
          0.8630860229810612`}}, {{0.6334624082569936`, 
          0.6043892277252662`, \(-0.4831552946361097`\)}, \
{\(-0.6569738105992687`\), 0.7499891531944722`, 
          0.07682240739077767`}, {0.4087918657604695`, 0.2687562678344354`, 
          0.8721578291730114`}}, {{0.672071591677076`, 
          0.571381923506427`, \(-0.47100156385168923`\)}, \
{\(-0.6324887312879696`\), 0.773726613510748`, 
          0.03612661538152074`}, {0.38506853994370394`, 0.27362350965384036`, 
          0.8813923045445422`}}, {{0.7100104595926895`, 
          0.5379602068510236`, \(-0.4544050650177456`\)}, \
{\(-0.6042923543961574`\), 
          0.7967621131779448`, \(-0.0009409689499865048`\)}, \
{0.3615465359913252`, 0.2752616043857548`, 
          0.8907946741329643`}}, {{0.7467701329508387`, 
          0.5041072971031729`, \(-0.43383199690654406`\)}, \
{\(-0.5726334939309049`\), 
          0.8191103718808179`, \(-0.03389808705151715`\)}, \
{0.33826801527940875`, 0.27374081114185644`, 
          0.9003558841671044`}}, {{0.7819010268375796`, 
          0.46979421884693445`, \(-0.40978552459590006`\)}, \
{\(-0.5378280432959406`\), 
          0.8407456528806588`, \(-0.0623517682727167`\)}, \
{0.3152328981480173`, 0.26914705850198944`, 
          0.9100483947708102`}}, {{0.8150184287933475`, 
          0.4349895617178891`, \(-0.3827911204870112`\)}, \
{\(-0.5002431671703176`\), 
          0.8616039621042008`, \(-0.08599643123846797`\)}, \
{0.29240679613619147`, 0.26157731874690854`, 
          0.9198236634760741`}}, {{0.8458046092489403`, 
          0.39966827056556026`, \(-0.35338341284839775`\)}, \
{\(-0.4602834501347021`\), 
          0.8815871385548518`, \(-0.10461005050550148`\)}, \
{0.26972895377645717`, 0.251136199377554`, 
          0.9296111557295639`}}, {{0.8740083571038189`, 
          0.36381926060876163`, \(-0.3220946092730784`\)}, \
{\(-0.41837934472121185`\), 
          0.9005682292867895`, \(-0.11804909279577769`\)}, \
{0.2471196382793816`, 0.23793362521793923`, 
          0.9393186223892918`}}, {{0.8994427408731841`, 
          0.3274518512490999`, \(-0.2894443659912404`\)}, \
{\(-0.37497803082049547`\), 
          0.91839764813827`, \(-0.12624276730204412`\)}, \
{0.2244865971333641`, 0.2220834190290484`, 
          0.9488333482228852`}}, {{0.9219817622880322`, 
          0.29060116935180436`, \(-0.25593083124082266`\)}, \
{\(-0.33053668462571906`\), 
          0.934909741417241`, \(-0.12918697890958525`\)}, \
{0.20173034011990465`, 0.20370256693157232`, 
          0.958024078038019`}}, {{0.9415564295104877`, 
          0.25333280235122735`, \(-0.22202247926805968`\)}, \
{\(-0.2855181466933843`\), 
          0.9499295088093201`, \(-0.12693823774599658`\)}, \
{0.1787480851820158`, 0.1829109607053608`, 
          0.9667433488251187`}}, {{0.9581506523484461`, 
          0.21574710665703412`, \(-0.1881502414916474`\)}, \
{\(-0.24038906970171528`\), 
          0.9632793470999196`, \(-0.11960766956469242`\)}, \
{0.1554362331381933`, 0.15983142813561754`, 
          0.9748299810776945`}}, {{0.9717972627349919`, 
          0.17798373056237904`, \(-0.15469929474912042`\)}, \
{\(-0.19562082801302447`\), 
          0.9747857995169233`, \(-0.10735518947704127`\)}, \
{0.1316911985983707`, 0.13458988340603908`, 
          0.9821114964689465`}}, {{0.9825743936432966`, 
          0.1402271426766287`, \(-0.12199962874228866`\)}, \
{\(-0.15169382372991236`\), 
          0.984286413846672`, \(-0.09038384456890622`\)}, \
{0.10740830879734636`, 0.10731544144999047`, 
          0.9884062177200665`}}, {{0.9906024058268925`, 
          0.10271434861135825`, \(-0.09031409723468903`\)}, \
{\(-0.1091064207575193`\), 
          0.9916369554489761`, \(-0.06893429870078284`\)}, \
{0.0824782548278981`, 0.07814033003020869`, 
          0.9935247487120361`}}, {{0.9960415224369671`, 
          0.06574667790351195`, \(-0.05982190172587694`\)}, \
{\(-0.06839077168953415`\), 
          
          0.996719415393951`, \(-0.04327943304215994`\)}, \
{0.056780171971900925`, 0.04719937840049005`, 
          0.9972703899893192`}}, {{0.9990902811399242`, 
          0.029708813997026275`, \(-0.030594059924065543`\)}, \
{\(-0.03013966155966241`\), 
          0.9994515431551068`, \(-0.013719099312450222`\)}, \
{0.030169702232806916`, 0.014628713400909711`, 
          0.9994377368357761`}}, {{0.9999847348432598`, \
\(-0.004899306953803105`\), \(-0.0025547743202642957`\)}, \
{0.004948023875639021`, 0.9997990785515093`, 
          0.01942471588671352`}, {0.0024590933656878505`, \
\(-0.019437060449714362`\), 
          0.999808058349648`}}, {{0.998997695166341`, \(-0.03740730951776454`\
\), 0.02458247845479386`}, {0.03598882256330272`, 0.997792509818273`, 
          0.05581139669510744`}, {\(-0.026615967065755093`\), \
\(-0.05487076220715089`\), 
          0.998138662587499`}}, {{0.9964351706714181`, \
\(-0.06687590513078912`\), 0.05142532413081339`}, {0.06177526335540683`, 
          0.9935509141402643`, 
          0.09508100677009818`}, {\(-0.05745230618862602`\), \
\(-0.09156524626725487`\), 
          0.9941403513536836`}}, {{0.992620093109275`, \
\(-0.09191591275524495`\), 0.07910003627119369`}, {0.08052010106103902`, 
          0.9873151218327475`, 
          0.13684065012088698`}, {\(-0.09067449520595088`\), \
\(-0.1294616359496403`\), 
          0.9874299067459871`}}, {{0.987830093282292`, \
\(-0.11034911282893416`\), 0.10961195237639579`}, {0.08937594242440255`, 
          0.9794854176596374`, 
          0.18061079012029108`}, {\(-0.1272935494109893`\), \
\(-0.16861610210769648`\), 
          0.977427727450147`}}, {{0.982079432457776`, \(-0.11858386272549294`\
\), 0.14648500211459825`}, {0.08354322989899696`, 0.9706204969105062`, 
          0.2256465814393066`}, {\(-0.16893938878028325`\), \
\(-0.2093650364275367`\), 
          0.9631333056437413`}}, {{0.9744040622595205`, \
\(-0.11062169855741995`\), 0.1957027420871153`}, {0.05481770612224319`, 
          0.9611918406368568`, 
          0.27037985240884066`}, {\(-0.2180177574135649`\), \
\(-0.2527312511372553`\), 
          0.9426532618895229`}}, {{0.9608540424309087`, \
\(-0.07739745137626462`\), 
          0.26602470498929237`}, {\(-0.009522197874443666`\), 
          0.950394358305936`, 
          0.31090173921657027`}, {\(-0.27689138103563493`\), \
\(-0.30126433280544046`\), 
          0.9124532672348056`}}, {{0.9310826448853285`, \
\(-0.010112508039424838`\), 
          0.36466813073600757`}, {\(-0.12240866104719247`\), 
          0.9330028682490147`, 
          0.3384106492705945`}, {\(-0.3436585923470775`\), \
\(-0.3597268199902036`\), 0.8674649196859552`}}}\)], "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Generate Data for Animation", "Section"],

Cell[CellGroupData[{

Cell[BoxData[
    \(Reflect = {{1, 0, 0}, {0, 1, 0}, {0, 0, \(-1\)}}\)], "Input"],

Cell[BoxData[
    \({{1, 0, 0}, {0, 1, 0}, {0, 0, \(-1\)}}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(baseO = Reflect . dispO\)], "Input"],

Cell[BoxData[
    \({{0.7990163326942374`, 
        0.3451250823826241`, \(-0.492403876506104`\)}, \
{\(-0.47874303373116894`\), 
        0.8606110724635321`, \(-0.17364817766693036`\)}, \
{\(-0.3638378866222269`\), \(-0.3744826557579881`\), \
\(-0.8528685319524433`\)}}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(baseC = Reflect . dispC\)], "Input"],

Cell[BoxData[
    \(General::"spell1" \(\(:\)\(\ \)\) 
      "Possible spelling error: new symbol name \"\!\(baseC\)\" is similar to \
existing symbol \"\!\(baseO\)\"."\)], "Message"],

Cell[BoxData[
    \({{0.8326996322266432`, 0.3451250823826241`, 
        0.43301270189221913`}, {\(-0.09668806520542787`\), 
        0.8606110724635321`, \(-0.4999999999999999`\)}, {0.5452180669571066`, \
\(-0.3744826557579881`\), \(-0.7500000000000001`\)}}\)], "Output"]
}, Open  ]],

Cell[BoxData[
    \(\(DA = Chop[Table[Reflect . transA[\([i]\)], {i, ndata}]];\)\)], "Input"],

Cell[BoxData[
    \(\(\(GripA = 
        Chop[Table[
            Reflect . Gripper[\([i]\)], {i, 
              ndata}]];\)\(\[IndentingNewLine]\)\)\)], "Input"],

Cell[BoxData[
    \(\(DB = Chop[Table[Reflect . transB[\([i]\)], {i, ndata}]];\)\)], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
    \(testA = 
      Table[transA[\([i]\)] . RotZ[phiout[\([i, 2]\)]] . 
          RotY[h] . {0, 0, 1}, {i, ndata}]\)], "Input"],

Cell[BoxData[
    \({{0.49852234243033167`, \(-0.8557837142718732`\), \
\(-0.13823786921394565`\)}, {0.33518616476785`, \(-0.9370307126959505`\), \
\(-0.09810034868815909`\)}, {0.16656979295563326`, \(-0.9854757451069396`\), \
\(-0.03304632930659044`\)}, {0.01599587495113047`, \(-0.9988605190421356`\), 
        0.04496438016278199`}, {\(-0.10683535767859066`\), \
\(-0.9864988058155353`\), 
        0.1241221675375117`}, {\(-0.20209447643800738`\), \
\(-0.959295621651119`\), 
        0.19725550150563853`}, {\(-0.27415188653116546`\), \
\(-0.9254778093409289`\), 
        0.26140307482682373`}, {\(-0.32813548399818687`\), \
\(-0.8901696600917219`\), 
        0.31610928552237105`}, {\(-0.3685346071252846`\), \
\(-0.8562014262046362`\), 
        0.36207921939288246`}, {\(-0.3988673642678232`\), \
\(-0.8249690303915507`\), 
        0.40041344210311475`}, {\(-0.4217580473913842`\), \
\(-0.7970482696926195`\), 
        0.43224322463239145`}, {\(-0.4391220686068013`\), \
\(-0.7725755585359533`\), 
        0.4585834877264375`}, {\(-0.4523461250601103`\), \
\(-0.7514682808258986`\), 
        0.4802899187529042`}, {\(-0.46243266743865996`\), \
\(-0.7335471986704429`\), 
        0.49806077481398964`}, {\(-0.4701071619339954`\), \
\(-0.7186022387764694`\), 
        0.5124549528727477`}, {\(-0.4758949823048894`\), \
\(-0.7064264840417402`\), 
        0.5239137223450576`}, {\(-0.4801756230083281`\), \
\(-0.6968326376480268`\), 
        0.532781049003301`}, {\(-0.4832206026227156`\), \
\(-0.6896599680580421`\), 
        0.5393208485300008`}, {\(-0.4852198026567871`\), \
\(-0.6847761565282856`\), 
        0.543730961561007`}, {\(-0.4862996159832384`\), \(-0.682076439895622`\
\), 0.5461542031641508`}, {\(-0.48653525536790143`\), \
\(-0.6814812946633552`\), 
        0.5466870131144952`}, {\(-0.4859588513328071`\), \
\(-0.6829332543355178`\), 
        0.5453862529748965`}, {\(-0.48456448052150936`\), \
\(-0.6863930718659955`\), 
        0.542274667591325`}, {\(-0.4823109514452114`\), \
\(-0.6918352131108446`\), 
        0.5373454978092651`}, {\(-0.47912299152314985`\), \
\(-0.6992425329120575`\), 
        0.5305667150892881`}, {\(-0.47489139990539797`\), \
\(-0.7085999155786907`\), 
        0.5218853494185899`}, {\(-0.4694727362876683`\), \
\(-0.719886651949417`\), 
        0.5112323916064281`}, {\(-0.46268919096856603`\), \
\(-0.73306738814879`\), 
        0.4985287524241357`}, {\(-0.45432940417997697`\), \
\(-0.7480816390261791`\), 
        0.4836927266864499`}, {\(-0.44415113651579724`\), \
\(-0.7648321355189429`\), 
        0.46664930344880934`}, {\(-0.4318867770163176`\), \
\(-0.78317267889638`\), 
        0.44734144327205505`}, {\(-0.4172526259394175`\), \
\(-0.8028966788518428`\), 
        0.425743078904803`}, {\(-0.3999626078023108`\), \
\(-0.8237280700454245`\), 
        0.4018730881499965`}, {\(-0.37974648093185903`\), \
\(-0.8453166758008873`\), 
        0.3758088980223946`}, {\(-0.3563717120799798`\), \
\(-0.8672401117547434`\), 
        0.3476978449642796`}, {\(-0.3296671075287155`\), \
\(-0.8890138085438638`\), 
        0.3177641364785907`}, {\(-0.29954530915747996`\), \
\(-0.910109616854893`\), 
        0.2863094358731296`}, {\(-0.26602073254717806`\), \
\(-0.9299818937621434`\), 
        0.25370582793787017`}, {\(-0.22921974545869556`\), \
\(-0.9480983401864495`\), 
        0.22038113718635344`}, {\(-0.18938094240727596`\), \
\(-0.9639716671007853`\), 
        0.18679797557753322`}, {\(-0.14684504493664347`\), \
\(-0.9771878257097207`\), 
        0.15342909131668442`}, {\(-0.10203578527448706`\), \
\(-0.9874271769678948`\), 
        0.12073221901643444`}, {\(-0.055434595425753345`\), \
\(-0.9944763889398893`\), 
        0.08912753486471478`}, {\(-0.007552661451825091`\), \
\(-0.9982305878451725`\), 
        0.05898008812535834`}, {0.04109617425114725`, \
\(-0.9986868623044105`\), 
        0.030588486763660497`}, {0.09001890162809985`, \(-0.9959312853042012`\
\), 0.00417998827655927`}, {0.1387615176618361`, \(-0.9901220546916526`\), \
\(-0.02008875380315949`\)}, {0.18692125912271557`, \(-0.9814712394483535`\), \
\(-0.042126583337501224`\)}, {0.23415314110181337`, \(-0.9702271454602587`\), \
\(-0.06189986045373658`\)}, {0.28017162278956326`, \(-0.9566586893591202`\), \
\(-0.07942300584309779`\)}, {0.32474849483028956`, \(-0.9410425575362186`\), \
\(-0.09474872036684162`\)}, {0.36770811619265986`, \(-0.9236534289062804`\), \
\(-0.10795871690473165`\)}, {0.40892100499806877`, \(-0.9047571932563618`\), \
\(-0.1191554989173369`\)}, {0.4482965825719337`, \(-0.8846068993059507`\), \
\(-0.12845546992883125`\)}, {0.4857756386439501`, \(-0.8634410941576222`\), \
\(-0.13598347627543045`\)}, {0.5213228608250966`, \(-0.8414842401073795`\), \
\(-0.14186877187049685`\)}, {0.5549195655024662`, \(-0.8189489933239963`\), \
\(-0.1462423405042717`\)}, {0.5865565754151355`, \(-0.7960402920894676`\), \
\(-0.14923550920402076`\)}, {0.6162269911591548`, \(-0.7729614391267569`\), \
\(-0.15097982974565774`\)}, {0.6439183605352853`, \(-0.7499227090637901`\), \
\(-0.1516082959338848`\)}, {0.6696033904758637`, \(-0.7271535479942354`\), \
\(-0.15125811417118498`\)}, {0.6932277390734052`, \(-0.7049203154488601`\), \
\(-0.15007548316315494`\)}, {0.7146923068484275`, \(-0.6835530585273708`\), \
\(-0.14822321919844342`\)}, {0.7338252634368398`, \(-0.6634876117239501`\), \
\(-0.14589267229954295`\)}, {0.750334579226156`, \(-0.645334589986674`\), \
\(-0.14332231572312373`\)}, {0.763722297302594`, \(-0.629996920489014`\), \
\(-0.14082660535995012`\)}, {0.773120728692918`, \(-0.618876429087419`\), \
\(-0.1388391313187174`\)}, {0.7769638937107313`, \(-0.6142410114715359`\), \
\(-0.13796770526570304`\)}, {0.7723109060958`, \(-0.6198465664579935`\), \
\(-0.13901833827132506`\)}, {0.7535130580052648`, \(-0.6417448414927897`\), \
\(-0.1427642456392663`\)}, {0.710258886666492`, \(-0.6880622317147939`\), \
\(-0.1486696983212543`\)}, {0.627990929739314`, \(-0.7633575635495858`\), \
\(-0.1513691591335292`\)}}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(testB = transB . {0, 0, 1}\)], "Input"],

Cell[BoxData[
    \(General::"spell1" \(\(:\)\(\ \)\) 
      "Possible spelling error: new symbol name \"\!\(testB\)\" is similar to \
existing symbol \"\!\(testA\)\"."\)], "Message"],

Cell[BoxData[
    \({{0.49852234243033167`, \(-0.8557837142718732`\), \
\(-0.13823786921394576`\)}, {0.33518616476785`, \(-0.9370307126959506`\), \
\(-0.09810034868815909`\)}, {0.16656979295563318`, \(-0.9854757451069396`\), \
\(-0.0330463293065904`\)}, {0.015995874951130577`, \(-0.9988605190421355`\), 
        0.044964380162781876`}, {\(-0.10683535767859087`\), \
\(-0.9864988058155353`\), 
        0.12412216753751193`}, {\(-0.2020944764380076`\), \
\(-0.9592956216511188`\), 
        0.19725550150563867`}, {\(-0.27415188653116535`\), \
\(-0.9254778093409289`\), 
        0.26140307482682373`}, {\(-0.32813548399818676`\), \
\(-0.8901696600917219`\), 
        0.31610928552237094`}, {\(-0.36853460712528435`\), \
\(-0.856201426204636`\), 
        0.3620792193928829`}, {\(-0.39886736426782327`\), \
\(-0.8249690303915503`\), 
        0.400413442103115`}, {\(-0.4217580473913844`\), \
\(-0.7970482696926194`\), 
        0.4322432246323914`}, {\(-0.43912206860680153`\), \
\(-0.7725755585359528`\), 
        0.4585834877264379`}, {\(-0.4523461250601107`\), \
\(-0.7514682808258983`\), 
        0.48028991875290444`}, {\(-0.46243266743866`\), \
\(-0.7335471986704428`\), 
        0.4980607748139894`}, {\(-0.4701071619339953`\), \
\(-0.7186022387764696`\), 
        0.5124549528727478`}, {\(-0.4758949823048894`\), \
\(-0.7064264840417399`\), 
        0.5239137223450577`}, {\(-0.4801756230083281`\), \
\(-0.6968326376480267`\), 
        0.532781049003301`}, {\(-0.48322060262271554`\), \
\(-0.689659968058042`\), 
        0.539320848530001`}, {\(-0.4852198026567874`\), \
\(-0.6847761565282854`\), 
        0.5437309615610073`}, {\(-0.4862996159832386`\), \
\(-0.6820764398956222`\), 
        0.5461542031641506`}, {\(-0.48653525536790126`\), \
\(-0.6814812946633553`\), 
        0.5466870131144952`}, {\(-0.485958851332807`\), \
\(-0.6829332543355178`\), 
        0.5453862529748966`}, {\(-0.4845644805215092`\), \
\(-0.6863930718659956`\), 
        0.5422746675913251`}, {\(-0.48231095144521147`\), \
\(-0.6918352131108447`\), 
        0.5373454978092652`}, {\(-0.4791229915231497`\), \
\(-0.6992425329120574`\), 
        0.5305667150892887`}, {\(-0.4748913999053977`\), \
\(-0.708599915578691`\), 
        0.52188534941859`}, {\(-0.4694727362876682`\), \(-0.7198866519494168`\
\), 0.5112323916064285`}, {\(-0.4626891909685659`\), \
\(-0.7330673881487899`\), 
        0.4985287524241361`}, {\(-0.45432940417997686`\), \
\(-0.748081639026179`\), 
        0.48369272668645025`}, {\(-0.44415113651579735`\), \
\(-0.7648321355189428`\), 
        0.4666493034488096`}, {\(-0.4318867770163179`\), \
\(-0.7831726788963795`\), 
        0.4473414432720556`}, {\(-0.4172526259394173`\), \
\(-0.8028966788518427`\), 
        0.4257430789048033`}, {\(-0.3999626078023108`\), \
\(-0.8237280700454244`\), 
        0.40187308814999684`}, {\(-0.3797464809318591`\), \
\(-0.8453166758008874`\), 
        0.37580889802239464`}, {\(-0.3563717120799798`\), \
\(-0.8672401117547434`\), 
        0.3476978449642796`}, {\(-0.32966710752871525`\), \
\(-0.8890138085438638`\), 
        0.3177641364785908`}, {\(-0.29954530915747996`\), \
\(-0.9101096168548929`\), 
        0.28630943587312985`}, {\(-0.26602073254717806`\), \
\(-0.9299818937621434`\), 
        0.25370582793787017`}, {\(-0.22921974545869533`\), \
\(-0.9480983401864495`\), 
        0.2203811371863533`}, {\(-0.189380942407276`\), \
\(-0.9639716671007852`\), 
        0.18679797557753341`}, {\(-0.1468450449366433`\), \
\(-0.9771878257097208`\), 
        0.1534290913166842`}, {\(-0.10203578527448692`\), \
\(-0.9874271769678948`\), 
        0.12073221901643438`}, {\(-0.055434595425753304`\), \
\(-0.9944763889398893`\), 
        0.08912753486471486`}, {\(-0.007552661451825045`\), \
\(-0.9982305878451727`\), 
        0.058980088125358605`}, {0.041096174251147276`, \
\(-0.9986868623044105`\), 
        0.030588486763660442`}, {0.09001890162809992`, \(-0.9959312853042012`\
\), 0.004179988276559081`}, {0.13876151766183606`, \(-0.9901220546916525`\), \
\(-0.020088753803159328`\)}, {0.1869212591227157`, \(-0.9814712394483533`\), \
\(-0.042126583337501515`\)}, {0.23415314110181337`, \(-0.9702271454602588`\), \
\(-0.06189986045373646`\)}, {0.28017162278956337`, \(-0.9566586893591202`\), \
\(-0.07942300584309775`\)}, {0.32474849483028967`, \(-0.9410425575362186`\), \
\(-0.09474872036684145`\)}, {0.36770811619265986`, \(-0.9236534289062804`\), \
\(-0.10795871690473158`\)}, {0.408921004998069`, \(-0.9047571932563616`\), \
\(-0.11915549891733745`\)}, {0.44829658257193383`, \(-0.8846068993059506`\), \
\(-0.12845546992883128`\)}, {0.48577563864395024`, \(-0.863441094157622`\), \
\(-0.13598347627543061`\)}, {0.5213228608250966`, \(-0.8414842401073793`\), \
\(-0.14186877187049718`\)}, {0.5549195655024662`, \(-0.8189489933239961`\), \
\(-0.14624234050427198`\)}, {0.5865565754151356`, \(-0.7960402920894676`\), \
\(-0.14923550920402084`\)}, {0.6162269911591548`, \(-0.7729614391267566`\), \
\(-0.15097982974565782`\)}, {0.6439183605352853`, \(-0.74992270906379`\), \
\(-0.15160829593388503`\)}, {0.6696033904758638`, \(-0.7271535479942353`\), \
\(-0.15125811417118507`\)}, {0.6932277390734052`, \(-0.70492031544886`\), \
\(-0.150075483163155`\)}, {0.7146923068484274`, \(-0.6835530585273708`\), \
\(-0.1482232191984436`\)}, {0.7338252634368396`, \(-0.6634876117239499`\), \
\(-0.14589267229954295`\)}, {0.7503345792261559`, \(-0.645334589986674`\), \
\(-0.14332231572312393`\)}, {0.763722297302594`, \(-0.6299969204890139`\), \
\(-0.14082660535995017`\)}, {0.7731207286929179`, \(-0.618876429087419`\), \
\(-0.1388391313187175`\)}, {0.7769638937107313`, \(-0.6142410114715358`\), \
\(-0.13796770526570323`\)}, {0.7723109060958`, \(-0.6198465664579934`\), \
\(-0.13901833827132504`\)}, {0.7535130580052646`, \(-0.6417448414927898`\), \
\(-0.14276424563926637`\)}, {0.710258886666492`, \(-0.6880622317147937`\), \
\(-0.14866969832125432`\)}, {0.6279909297393139`, \(-0.7633575635495861`\), \
\(-0.15136915913352922`\)}}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(Chop[testA - testB]\)], "Input"],

Cell[BoxData[
    \({{0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 
        0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 
        0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 
        0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 
        0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 
        0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 
        0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 
        0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 
        0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 
        0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 
        0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 
        0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 0}, {0, 0, 
        0}}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Write Data to File", "Subsection"],

Cell[CellGroupData[{

Cell["Position information", "Subsubsection"],

Cell[CellGroupData[{

Cell[BoxData[
    \(Trans1 = Reflect . position[\([1]\)]\)], "Input"],

Cell[BoxData[
    \({{0.550978533711308`, 
        0.673766337680281`, \(-0.492403876506104`\)}, \
{\(-0.696364240320019`\), 0.6963642403200189`, 
        0.17364817766693036`}, {\(-0.45989074810530794`\), \
\(-0.24721603308123957`\), \(-0.8528685319524433`\)}}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(Trans2 = Reflect . position[\([2]\)]\)], "Input"],

Cell[BoxData[
    \({{0.8167796745837669`, 
        0.43305517005391536`, \(-0.3812272063696535`\)}, \
{\(-0.4980973490458728`\), 
        0.862729915662821`, \(-0.08715574274765817`\)}, \
{\(-0.2911528706029016`\), \(-0.26107530007642704`\), \
\(-0.9203638919632243`\)}}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(Trans3 = Reflect . position[\([3]\)]\)], "Input"],

Cell[BoxData[
    \({{0.9176387302670882`, 0.015030684689068721`, 
        0.39713126196710286`}, {\(-0.16317591116653485`\), 
        0.9254165783983234`, 0.3420201433256687`}, {0.36237105669296626`, 
        0.37865318557133204`, \(-0.8516507396391465`\)}}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(\((PovData = 
        OpenWrite["\<SpFourBar.inc\>"]; \[IndentingNewLine]WriteString[
        PovData, "\< #declare Trans1 = array[3][3]  \>"]; \
\[IndentingNewLine]Write[PovData, \ Trans1]; \[IndentingNewLine]WriteString[
        PovData, "\< #declare Trans2 = array[3][3]  \>"]; \
\[IndentingNewLine]Write[PovData, \ Trans2]; \[IndentingNewLine]WriteString[
        PovData, "\< #declare Trans3 = array[3][3]  \>"]; \
\[IndentingNewLine]Write[PovData, \ Trans3]; \[IndentingNewLine]WriteString[
        PovData, \ "\< #declare baseO = array[3][3]  \>"]; \
\[IndentingNewLine]Write[PovData, \ baseO]; \[IndentingNewLine]WriteString[
        PovData, \ "\< #declare baseC = array[3][3]  \>"]; \
\[IndentingNewLine]Write[PovData, \ baseC]; \[IndentingNewLine]WriteString[
        PovData, "\< #declare DA = array[\>"]; Write[PovData, \ ndata]; 
      WriteString[PovData, "\<][3][3]  \>"]; 
      Write[PovData, \ DA]; \[IndentingNewLine]WriteString[
        PovData, "\< #declare DB = array[\>"]; Write[PovData, \ ndata]; 
      WriteString[PovData, "\<][3][3]  \>"]; 
      Write[PovData, DB]; \[IndentingNewLine]WriteString[
        PovData, "\< #declare GripA = array[\>"]; Write[PovData, \ ndata]; 
      WriteString[PovData, "\<][3][3]  \>"]; 
      Write[PovData, GripA]; \[IndentingNewLine]Close[
        PovData]\ )\)\)], "Input"],

Cell[BoxData[
    \("SpFourBar.inc"\)], "Output"]
}, Open  ]],

Cell[BoxData[""], "Input"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
FrontEndVersion->"4.0 for Macintosh",
ScreenRectangle->{{0, 1152}, {0, 850}},
WindowSize->{675, 760},
WindowMargins->{{89, Automatic}, {Automatic, 16}},
PrintingCopies->1,
PrintingPageRange->{1, Automatic},
MacintoshSystemPageSetup->"\<\
00<0004/0B`000002mT8o?mooh<<H`Ui0fL5:0?l0080004/0B`000000]P2:001
0000I00000400`<300000BL?00400@00000000000000060801T1T00000040000
00000000000000000000000000000000\>"
]


(***********************************************************************
Cached data follows.  If you edit this Notebook file directly, not using
Mathematica, you must remove the line containing CacheID at the top of 
the file.  The cache data will then be recreated when you save this file 
from within Mathematica.
***********************************************************************)

(*CellTagsOutline
CellTagsIndex->{}
*)

(*CellTagsIndex
CellTagsIndex->{}
*)

(*NotebookFileOutline
Notebook[{

Cell[CellGroupData[{
Cell[1739, 51, 82, 1, 98, "Title"],
Cell[1824, 54, 39, 1, 27, "Input"],

Cell[CellGroupData[{
Cell[1888, 59, 50, 0, 50, "Section"],

Cell[CellGroupData[{
Cell[1963, 63, 77, 1, 27, "Input"],
Cell[2043, 66, 352, 7, 41, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[2432, 78, 67, 1, 27, "Input"],
Cell[2502, 81, 189, 3, 35, "Message"],
Cell[2694, 86, 790, 15, 86, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[3521, 106, 67, 1, 27, "Input"],
Cell[3591, 109, 598, 10, 71, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[4226, 124, 56, 1, 27, "Input"],
Cell[4285, 127, 35, 1, 26, "Output"]
}, Open  ]],
Cell[4335, 131, 57, 0, 30, "Text"],

Cell[CellGroupData[{
Cell[4417, 135, 76, 1, 27, "Input"],
Cell[4496, 138, 326, 5, 41, "Output"]
}, Open  ]],
Cell[4837, 146, 66, 1, 27, "Input"],
Cell[4906, 149, 74, 1, 27, "Input"],
Cell[4983, 152, 135, 2, 43, "Input"],

Cell[CellGroupData[{
Cell[5143, 158, 89, 1, 27, "Input"],
Cell[5235, 161, 181, 3, 35, "Message"],
Cell[5419, 166, 183, 3, 35, "Message"],
Cell[5605, 171, 122, 2, 26, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[5764, 178, 47, 1, 27, "Input"],
Cell[5814, 181, 114, 2, 26, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[5965, 188, 62, 1, 27, "Input"],
Cell[6030, 191, 104, 2, 26, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[6171, 198, 55, 1, 27, "Input"],
Cell[6229, 201, 110, 2, 26, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[6376, 208, 72, 1, 27, "Input"],
Cell[6451, 211, 267, 5, 41, "Output"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{
Cell[6767, 222, 35, 0, 50, "Section"],

Cell[CellGroupData[{
Cell[6827, 226, 49, 1, 27, "Input"],
Cell[6879, 229, 55, 1, 26, "Output"]
}, Open  ]],
Cell[6949, 233, 103, 2, 27, "Input"],

Cell[CellGroupData[{
Cell[7077, 239, 66, 1, 27, "Input"],
Cell[7146, 242, 183, 3, 35, "Message"]
}, Open  ]],

Cell[CellGroupData[{
Cell[7366, 250, 123, 3, 27, "Input"],
Cell[7492, 255, 188, 3, 35, "Message"]
}, Open  ]],
Cell[7695, 261, 145, 3, 43, "Input"],
Cell[7843, 266, 327, 6, 107, "Input"],
Cell[8173, 274, 185, 3, 43, "Input"],

Cell[CellGroupData[{
Cell[8383, 281, 34, 0, 46, "Subsection"],
Cell[8420, 283, 30, 0, 30, "Text"],

Cell[CellGroupData[{
Cell[8475, 287, 92, 1, 27, "Input"],
Cell[8570, 290, 53, 1, 26, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[8660, 296, 92, 1, 27, "Input"],
Cell[8755, 299, 58, 1, 26, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[8850, 305, 62, 1, 27, "Input"],
Cell[8915, 308, 181, 3, 35, "Message"],
Cell[9099, 313, 110, 2, 26, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[9246, 320, 62, 1, 27, "Input"],
Cell[9311, 323, 181, 3, 35, "Message"],
Cell[9495, 328, 110, 2, 26, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[9642, 335, 40, 1, 27, "Input"],
Cell[9685, 338, 35, 1, 26, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[9757, 344, 46, 1, 27, "Input"],
Cell[9806, 347, 36, 1, 26, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[9879, 353, 75, 1, 27, "Input"],
Cell[9957, 356, 1668, 24, 146, "Output"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{
Cell[11674, 386, 35, 0, 46, "Subsection"],

Cell[CellGroupData[{
Cell[11734, 390, 40, 1, 27, "Input"],
Cell[11777, 393, 35, 1, 26, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[11849, 399, 124, 3, 27, "Input"],
Cell[11976, 404, 3681, 60, 341, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[15694, 469, 83, 1, 27, "Input"],
Cell[15780, 472, 3681, 60, 341, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[19498, 537, 58, 1, 27, "Input"],
Cell[19559, 540, 36, 1, 26, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[19632, 546, 157, 4, 43, "Input"],
Cell[19792, 552, 185, 3, 35, "Message"],
Cell[19980, 557, 3741, 65, 326, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{
Cell[23782, 629, 43, 0, 50, "Section"],
Cell[23828, 631, 125, 3, 27, "Input"],

Cell[CellGroupData[{
Cell[23978, 638, 129, 3, 27, "Input"],
Cell[24110, 643, 181, 3, 35, "Message"]
}, Open  ]],

Cell[CellGroupData[{
Cell[24328, 651, 56, 1, 27, "Input"],
Cell[24387, 654, 183, 3, 35, "Message"],
Cell[24573, 659, 275, 5, 41, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[24885, 669, 121, 3, 27, "Input"],
Cell[25009, 674, 18275, 326, 1631, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[43321, 1005, 121, 3, 27, "Input"],
Cell[43445, 1010, 185, 3, 35, "Message"],
Cell[43633, 1015, 18455, 306, 1631, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[62125, 1326, 141, 3, 27, "Input"],
Cell[62269, 1331, 263, 4, 41, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[62569, 1340, 68, 1, 46, "Subsection"],

Cell[CellGroupData[{
Cell[62662, 1345, 157, 3, 59, "Input"],
Cell[62822, 1350, 18058, 333, 1631, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{
Cell[80941, 1690, 46, 0, 50, "Section"],

Cell[CellGroupData[{
Cell[81012, 1694, 81, 1, 27, "Input"],
Cell[81096, 1697, 72, 1, 26, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[81205, 1703, 56, 1, 27, "Input"],
Cell[81264, 1706, 284, 6, 41, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[81585, 1717, 56, 1, 27, "Input"],
Cell[81644, 1720, 183, 3, 35, "Message"],
Cell[81830, 1725, 271, 4, 41, "Output"]
}, Open  ]],
Cell[82116, 1732, 93, 1, 27, "Input"],
Cell[82212, 1735, 161, 4, 43, "Input"],
Cell[82376, 1741, 93, 1, 27, "Input"],

Cell[CellGroupData[{
Cell[82494, 1746, 142, 3, 43, "Input"],
Cell[82639, 1751, 5982, 113, 551, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[88658, 1869, 59, 1, 27, "Input"],
Cell[88720, 1872, 183, 3, 35, "Message"],
Cell[88906, 1877, 5983, 113, 551, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[94926, 1995, 52, 1, 27, "Input"],
Cell[94981, 1998, 934, 13, 161, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[95952, 2016, 40, 0, 46, "Subsection"],

Cell[CellGroupData[{
Cell[96017, 2020, 45, 0, 42, "Subsubsection"],

Cell[CellGroupData[{
Cell[96087, 2024, 69, 1, 27, "Input"],
Cell[96159, 2027, 275, 5, 41, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[96471, 2037, 69, 1, 27, "Input"],
Cell[96543, 2040, 285, 6, 41, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[96865, 2051, 69, 1, 27, "Input"],
Cell[96937, 2054, 272, 4, 41, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[97246, 2063, 1358, 22, 331, "Input"],
Cell[98607, 2087, 49, 1, 26, "Output"]
}, Open  ]],
Cell[98671, 2091, 26, 0, 27, "Input"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)




(***********************************************************************
End of Mathematica Notebook file.
***********************************************************************)