hausmann-spring-2007.nb

(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    640561,      15587]
NotebookOptionsPosition[    632170,      15319]
NotebookOutlinePosition[    632809,      15341]
CellTagsIndexPosition[    632766,      15338]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Bob Hausmann Spring 2007 study", "Subtitle",
 CellChangeTimes->{{3.402066534349409*^9, 3.402066543551552*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"<<", "\"\<BarCharts`\>\""}], ";", 
  RowBox[{"<<", "\"\<Histograms`\>\""}], ";", 
  RowBox[{"<<", "\"\<PieCharts`\>\""}]}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"flattenhistogram", "[", "x_", "]"}], ":=", 
  RowBox[{"Apply", "[", 
   RowBox[{"Join", ",", 
    RowBox[{"Map", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"#", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "}"}]}], "]"}], "&"}], ",", "x"}], 
     "]"}]}], "]"}]}]], "Input"],

Cell[CellGroupData[{

Cell[" Fall Learning curves", "Subsection"],

Cell[BoxData[
 RowBox[{"<<", "\"\<~/log/hausmann-spring-2007.out\>\""}]], "Input",
 CellChangeTimes->{{3.402066913034067*^9, 3.40206692533526*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", "operators", "]"}]], "Input",
 CellChangeTimes->{{3.402067574934186*^9, 3.402067579104806*^9}}],

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

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Sort", "[", 
  RowBox[{"Map", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"neverFNA", "[", "#", "]"}], ",", "#"}], "}"}], "&"}], ",", 
    "operators"}], "]"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "\<\"DRAW-NET-FORCE-ZERO\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "\<\"WRITE-G-ON-EARTH\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "\<\"WRITE-KNOWN-VALUE-EQN\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "\<\"WRITE-NSL-COMPO\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "\<\"ACCEL-AT-REST\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "\<\"DEFINE-CHARGE\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "\<\"DEFINE-MASS\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "\<\"DRAW-BODY\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "\<\"DRAW-ELECTRIC-FORCE-GIVEN-FIELD-UNKNOWN\"\>"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "\<\"DRAW-FIELD-GIVEN-DIR\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "\<\"DRAW-FIELD-UNKNOWN\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "\<\"DRAW-UNROTATED-AXES\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "\<\"DRAW-VECTOR-ALIGNED-AXES\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "\<\"WRITE-CHARGE-FORCE-EFIELD-COMPO\"\>"}], "}"}], ",",
    
   RowBox[{"{", 
    RowBox[{"1", ",", "\<\"WRITE-NFL-COMPO\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "\<\"WRITE-NSL-NET-COMPO\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "\<\"WRITE-VECTOR-MAGNITUDE\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "\<\"COMPO-GENERAL-CASE\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "\<\"DRAW-WEIGHT\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "\<\"COMPO-ZERO-VECTOR\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "\<\"DRAW-COMPO-FORM-AXES\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "\<\"DRAW-NET-FORCE-FROM-ACCEL\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "\<\"DRAW-VELOCITY-STRAIGHT\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "\<\"WRITE-IMPLICIT-EQN\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "\<\"WRITE-LK-NO-T-COMPO\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "\<\"COMPO-PARALLEL-AXIS\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "\<\"WRITE-CHARGE-FORCE-EFIELD-MAG\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "\<\"WRITE-NET-FORCE-COMPO\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "\<\"DRAW-VELOCITY-MOMENTARILY-AT-REST\"\>"}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", "\<\"DEFINE-DURATION\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", "\<\"WT-LAW\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8", ",", "\<\"DRAW-ACCEL-SPEED-UP\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"9", ",", "\<\"DRAW-NET-FORCE-FROM-FORCES\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"10", ",", "\<\"DRAW-ELECTRIC-FORCE-GIVEN-FIELD-DIR\"\>"}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{"11", ",", "\<\"DRAW-ACCEL-SLOW-DOWN\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"16", ",", "\<\"DRAW-DISPLACEMENT-STRAIGHT\"\>"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.40206694099114*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Sort", "[", 
  RowBox[{"Map", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"N", "[", 
        RowBox[{"Mean", "[", 
         RowBox[{"flattenhistogram", "[", 
          RowBox[{"attemptsbeforeFNA", "[", "#", "]"}], "]"}], "]"}], "]"}], 
       ",", "#"}], "}"}], "&"}], ",", "operators"}], "]"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0.`", ",", "\<\"DRAW-COMPO-FORM-AXES\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.`", ",", "\<\"DRAW-NET-FORCE-FROM-ACCEL\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.`", ",", "\<\"DRAW-NET-FORCE-ZERO\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.`", ",", "\<\"DRAW-VECTOR-ALIGNED-AXES\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.`", ",", "\<\"WRITE-NSL-NET-COMPO\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.07142857142857142`", ",", "\<\"WRITE-NET-FORCE-COMPO\"\>"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.08333333333333333`", ",", "\<\"DRAW-ACCEL-SPEED-UP\"\>"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.1111111111111111`", ",", "\<\"DRAW-ACCEL-SLOW-DOWN\"\>"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.125`", ",", "\<\"COMPO-ZERO-VECTOR\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.13333333333333333`", ",", "\<\"WRITE-IMPLICIT-EQN\"\>"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.16666666666666666`", ",", "\<\"DEFINE-MASS\"\>"}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"0.25`", ",", "\<\"WT-LAW\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.2631578947368421`", ",", "\<\"DRAW-WEIGHT\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.3333333333333333`", ",", "\<\"DRAW-BODY\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.3333333333333333`", ",", "\<\"DRAW-UNROTATED-AXES\"\>"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.3333333333333333`", ",", "\<\"WRITE-G-ON-EARTH\"\>"}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"0.36`", ",", "\<\"WRITE-KNOWN-VALUE-EQN\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.36363636363636365`", ",", "\<\"DRAW-VELOCITY-STRAIGHT\"\>"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.4`", ",", "\<\"DRAW-VELOCITY-MOMENTARILY-AT-REST\"\>"}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{"0.4`", ",", "\<\"WRITE-CHARGE-FORCE-EFIELD-COMPO\"\>"}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"0.5`", ",", "\<\"COMPO-PARALLEL-AXIS\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.5`", ",", "\<\"DEFINE-DURATION\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.5`", ",", "\<\"WRITE-VECTOR-MAGNITUDE\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.7083333333333334`", ",", "\<\"DRAW-FIELD-GIVEN-DIR\"\>"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.75`", ",", "\<\"WRITE-CHARGE-FORCE-EFIELD-MAG\"\>"}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
    "0.7777777777777778`", ",", "\<\"DRAW-DISPLACEMENT-STRAIGHT\"\>"}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{"1.`", ",", "\<\"COMPO-GENERAL-CASE\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.`", ",", "\<\"DRAW-ELECTRIC-FORCE-GIVEN-FIELD-DIR\"\>"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.`", ",", "\<\"WRITE-NSL-COMPO\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.0416666666666667`", ",", "\<\"DEFINE-CHARGE\"\>"}], "}"}], ",",
    
   RowBox[{"{", 
    RowBox[{"2.`", ",", "\<\"WRITE-LK-NO-T-COMPO\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Mean", "[", 
      RowBox[{"{", "}"}], "]"}], ",", "\<\"ACCEL-AT-REST\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Mean", "[", 
      RowBox[{"{", "}"}], "]"}], 
     ",", "\<\"DRAW-ELECTRIC-FORCE-GIVEN-FIELD-UNKNOWN\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Mean", "[", 
      RowBox[{"{", "}"}], "]"}], ",", "\<\"DRAW-FIELD-UNKNOWN\"\>"}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Mean", "[", 
      RowBox[{"{", "}"}], "]"}], ",", "\<\"DRAW-NET-FORCE-FROM-FORCES\"\>"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Mean", "[", 
      RowBox[{"{", "}"}], "]"}], ",", "\<\"WRITE-NFL-COMPO\"\>"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.402066980577195*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"principle", "=", "\"\<DRAW-DISPLACEMENT-STRAIGHT\>\""}], ";", 
  RowBox[{"neverFNA", "[", "principle", "]"}]}]], "Input",
 CellChangeTimes->{{3.402068848466835*^9, 3.402068856808267*^9}}],

Cell[BoxData["16"], "Output",
 CellChangeTimes->{3.402067008584104*^9, 3.402068858048765*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"lc1", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{
    RowBox[{"numberstudents", "[", "principle", "]"}], ",", 
    RowBox[{"Axes", "\[Rule]", "False"}], ",", 
    RowBox[{"Frame", "\[Rule]", "True"}], ",", 
    RowBox[{"BaseStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"FontSize", "\[Rule]", "12"}], "}"}]}], ",", 
    RowBox[{"FrameLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\"\<opportunity\>\"", ",", "\"\<students\>\""}], "}"}]}], ",", 
    
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Hue", "[", "0.6`", "]"}], ",", 
       RowBox[{"PointSize", "[", "0.015`", "]"}]}], "}"}]}], ",", 
    RowBox[{"RotateLabel", "\[Rule]", "False"}], ",", 
    RowBox[{"Epilog", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Hue", "[", "0.6`", "]"}], ",", 
       RowBox[{"Text", "[", 
        RowBox[{
         RowBox[{"\"\<applications of\\n\>\"", "<>", "principle"}], ",", 
         RowBox[{"Scaled", "[", 
          RowBox[{"{", 
           RowBox[{"0.75`", ",", "0.8`"}], "}"}], "]"}]}], "]"}]}], "}"}]}]}],
    "]"}]}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, 
   {Hue[0.6], PointSize[0.015], 
    PointBox[{{1., 25.}, {2., 17.}, {3., 5.}}]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  AxesOrigin->{0, 5.},
  BaseStyle->{FontSize -> 12},
  Epilog->{
    Hue[0.6], 
    InsetBox[
     FormBox[
     "\"applications of\\nDRAW-DISPLACEMENT-STRAIGHT\"", TraditionalForm], 
     Scaled[{0.75, 0.8}]]},
  Frame->True,
  FrameLabel->{
    FormBox["\"opportunity\"", TraditionalForm], 
    FormBox["\"students\"", TraditionalForm]},
  PlotRange->{{0, 3.}, {5., 25.}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]},
  RotateLabel->False]], "Output",
 CellChangeTimes->{3.402067013270381*^9, 3.402068860200863*^9},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztXAm4VcWRLu7yNp6yfWwC76HGqESB+Ok4UTITFQdF+Caun0aJQXTYBAmL
7AMCguyaQAIBIqJhCYiMgqAwBNkFHQIERMK+IyIiyyNsPf33cm6fc/ss98E4
D3jve/fe013d1dVV1dVVdfqcps07t3qhXfPOrVs0r92oY/MOrVq36FT7317q
yKviZYjKtCKi7bUJ14xfqi/G/1lrfKHGfj1f/CRo3Lhx6EPdu3enTZs2JezV
t6rqffv2Ubly5eiRRx6h06dPdzBxxen8+fOi0xdffEFJS11dhQV1S5YsoSNH
jtC7776rsCxQPXRrlJKWuvqqrm/fvuIKn/YSxWzVCcgfffRRGjFihPhFOS5g
WQJVo0aNaPjw4dS/f39q2bIlffvtt7EoYDvmmJrWhAkTRPfevXvT1q1bZfXV
1LRpU6pfvz5NnjxZ1ICltWrVoo4dO9Jbb71Fubm51LNnTzp+/DiNHz9eoOjV
q1eMtm/fzgnil6IK2N98801xPXr06Jjigold1508eZIqVqxI69ato5ckZz4Q
P9l07tw5MfiKFStEzfLly0UZ9SYLPv30U4e5gwcPpmeeeUbPxwcsrgPQxyyi
lHV5om716tUOyqysLFq4cKG4xiRUH5NAjQIfXPM/P7DCHlcEgMdVq1almTNn
ermzY8cO0frUqVOipqioSJR37tzpix108yVhcscCFtcB6MO4452PLhvL6wK4
4/ROCoS33norDRw4kKZOnSp0qf2Fc2nVqlUU438+XFLgTLi0YcMGg0sh8woF
b9y4UVRZwblpvefPn095eXl0+PBh2r17N02aNMnNpbJiKRQUFIglgJply5aJ
MupNyWFNayq6dOlCdevW9cIluNAFDkN/9uxZ0b1Hjx40d+5cOnDgQJDyBJbH
jh3rkDhr1ixHnyMoH0xp27ZtteBatGgheqH0ottmL126lB577DEaOXKk+EVZ
disHe0eVKlUSvOrWrRvde++9VKdOHWfyQfBYKP6bhEmuUaMGLVq0iAoLC2nM
mDE0bNgwMZv27dsLkwH7W7lyZWd2MN1VqlRxyqNGjRI0zJgxQ+wAjz/+OF13
3XU0ceJEAQcToTK6vRc/Fhz+OnToQEePHsWmQ7fffjv16dOnneTUl4qJDz74
oIOlAr5jpn01oZ3dHdesWUMHDx4UpfKqDntw48aNjaXkbqdQfK1AqL7hhhvk
RiZBUbyNknD9gPjJwdYsFGDo0KH08MMP05YtWwRk//79WEFaX2zNCpQ+hqAQ
13v27KGHHnqIOnXqRK+//rpQ/W3btikcObR48WIBwx90AftcRDIKFRkhKALJ
qKUEun79eipTpoxY0zHxnRC+Q0RS/NGU9aKJQE6uWFUNGjSgfv36iZX6wgsv
pHE3iJ6YW9b3338/TZs2TZSwm6GMa+wtHL3GZGtWoOx4CApxDUG8+uqrzgKa
PXu2mAVKBapObcPGQst14cDHNlZt3/7JyDTUUuxo06YNffbZZ8544HyG7AhB
EUpKTTX12267TZhbjQdtYO5MXEH0KEE3Ej/ZdOLECeFAIEDReoYy3Jd4hDY1
I7TJVtPB9BOJhK90kxFwFVr65Vrw6/V15swZevnllwUsKwJ+W788C36tXStX
rqTsbD3DcPxl3OzH0sMfhkMNjw1FGfXxCG1qRmiTUMyFZoEU7FxPPvkk3XLL
LVZ2JiPgtPXLCh1HRrBDhgwRJoxfJyIMVWDvmow42q5du6hhw4YwmFFG88hn
8+bN1qYwofEIbWpGaKPlA5ON0DiZTFK9evVEBBQknyCcQfKxjXOtag8YHEFT
nYPGqW3pFzSfAgV76qmnBI5q1arR22+/LbzvRITxPOJB6I/d01xp8XjcZb2C
2tSM0CahpogdVxvdawPEEoTLXyxu/LUVRu3y4wNLAz84EWGcWgH9k77zSQgx
wA+Hp8o3kyhDKYk8oEa87777nC1nypQpIo5JBsAKQvvFha+iZ6I5jyjWq9g2
HLV927vxao4jioEbjxIiHUQ3Uej37+cep1BRgDzYvHnzRAn7Bf54QBw0VMzN
aVgreG+wiRgBDkUyAFYQoR/Sk/n5+cIPxQfpNb1Tw+lo1qwZVahQQe3odlyF
Ae398SdFWglJOSQQEQPOmTMn0nyC+tnG02sD5qhJkybCC0ay8pVXXnE0yTae
Yv/FiqpE5CjSCjXxJa0V/Uyph4+7r22R1mR8Ypa6rMu4LrsE0XI518k1xPeE
8zL5NWc9w3Xc0rSMW3l1GKPBKowpVd5S5f2+6hIKAuWt108qMP2HvOZ1NrVT
StxQgcxgz6bzNhR1Itb96AL63qTqZq9jYkb4i4mrhKjT7cjZU+4RP/ZIScwv
IfDjqpxinoNcfpIWbDbv3rbCxXd5rzgU7nBx3KNAprdqE7j4rqDIxzAwV+Em
S6M3XTRf9NXC8NgdDl+uBOBrXNL7xB2dqeIU45cI7Zdbn1JZXNp9SuVXcvpc
QbK4S/wkrXfDgm4VFWc/u1uBzMRXXI1hu0txscaQ84hym+PijRWa00/5W5Xw
ZXpXQXjDc9EXbw7hidXijWWm4bT8bbmu4sj/LgUyE086F21L6FyWflmpzbu0
+5TK4tLuUyq/ktPnCpIF3+IOHTokbhngPBzOwuEkkNzOa2V0lBrwBQsW0M03
3yxu0+JOFf5wnlrDcXr7jjvuoCeeeIKef/55+vjjj0W9cQyb5DnsfNc5bLQx
abHQnCMa5fue0crgzkgo03KF76OZgoOD+MO5VAmXh6slEyv6Ha4WZZwaveaa
axxcwGGDT58+XbvWuO2tCdJNJewql0tmkoJrP5Jz1ETT3bmMMvIRmAYHFJoA
pw3Hk6pXry4cw/SZVHQxwXtMFk4Y/o4dO2aFQ3/wx533pJqICdbMIHLOhZlg
PyptfNIpv7Ckb4RliDNYyKxieWFJ7d27tzhHrbUCFRUV2SaHUy34GzBgAA0a
NEicLsvJyfEdSR3TluAcF9hCcK6FRdpbj5BFTotqeDdNMFY86qSFkNYpSEds
ZRzlhoVCWd87N+E33nijc9QOCxbH8k1cqWPZ+a5j2ab+mkw2aA7iTEYZ8SAl
kmnsPn36UNeuXcWZ6DvvvFPUZXK2WqvCpk2bhB1H39atW7uVriqtXbuWnn32
Wed4t34CJexYtpcUG8n+3IqY0A/gkr6TZh7bvsporuvKW9pdrerSo9ELvxOg
6TLPguerOlOZK1jaafptEezFurNQRYGw/eBpHqjHj4uBpyR7Q1ea93ex+swR
32n3z36ZGZbZau343OxrFkVus1Uj80akvMsZd93lfCqKaKMie/p7nef/Ce9L
snaVrtoroM8VJL+fKFD6Izw5ziM8+Fjuodg27ufEdw7t/oZR7/+SpqTTdEav
L2DUbzajFm8xWrZFnZUo62r2u0WMjp/iIx1iVKUTo45/ZvTGfzNqM5nROyuZ
4/b//SCjVu9wK9OK0fD5ctiTp3ls0ZbRnz9zzkncM5xR6z8xNVAGVFVwNfv9
J4y+K+JB6klGj41JdUOX+Rslem/7Xd9oTyzPBes5i9FvFjJ69UNG1/dk1H6q
Mzv9kKd3cue5IR27mFGzPzIaPE/WteTwX4xn9I8z7qF7vCfRD5rLqH5/Rn9c
yqj/HAnD794jklE/eY3HlefktEAu4H3eB4OBrWwkfODa9q9TB4hA5xN/0LsS
6pK05SvugP9F1nV9l9G01VoSWX7sDOoas3DUT2eowWi1XvX9QduTS0FPGNmU
u4Wq27hPjo5dTjPg8HFGdfow+mRz6gEv3U73H8knel0PKVSUP1jLnIPwYAAY
qNt+yHfO7DaMXpyi8SXoq+/4dUtGtw1gdPYcy8+InKw0cr7Yz+g/32cavP8o
9/HbMTp2SoJV8yzPKOeNUVbvYDTzf8yJZLkm8hrX2H8ZyqPzM0y/gOH5SYx2
HnaNAJQ6Z3SAEzGaC/70WQni0xQQKAPWBAwByqACcMwh5kth0opPWwjocqVf
M+VDpfRY481XolF8cvhmMipm6ZeIKH4qaEIuLXU/sBXlQSxbekdrKUjRw2vu
/4GbEhhGUwV4G60Cv5rI6N9Hp8B/3c3o/bXOybY93IAkWzNauCml4225/fr5
76Qt42IWtTBYNV5m9NuFUgHzi0tRHn3N9Rhqr8Gf75QoYGKN5lmWEfSqAbuL
Tnsmk+WaDKxh+Q6MFm9mOlLd9y0TgxuDKJqvEs2x2LTQUQsFK+wuDSmM8zkt
ZI+S2ij04Iur6ll/5XRyE7DoS1HtWCSFMbWxZQeyKW7pp7lvUoOPUgDnKGOl
el5/Qd4Dz/c+yCZqA84MpI4MPOerDHm0ajv/fjFNGQRjvjzAqDI38ROWKgZV
oH8dJvdSbFD/NJDRD3unFhd+a3eXBgMmCvYU9Q1Hyl1iB9+82k1RQ2cDlU1C
mk8+hGnjDYsw5CNGFX8t148mQgpeqg7ck3tHMFq7264MSbWg/CaFLQ5tsYNn
+4gPav7kOGfxaNCkFVxr2zP65gSj6Z8zem+NSzdjUbDluEDr90oTCPdBYbKp
Z4q5Or1o41QUBdUaQL/8iujG50yP/KdqtubTewGnTDIzmUkhL+w8pujjSqZN
RkkupRZzUjAbjiEWdc2u0mPT7i7YBlwQBHYPKCB2KGzqK7dJPA/+RhqDsgHq
aKPJMRxJGvaxNBw/HSplj01P64RGB7LhJMD/BJlnzlkMaq51NoBg+QDNiX+k
HgfQqCVvDCOunRM4JN1mSgQoN5/o2si9q8KDJ+mw4dAxRtf2kO69Y6oM7TTr
tELlB/DGV3UNBdQfJfKAw953qV3C9tgirjM9leSvnHk0eRWjH/dPN5i4hoKB
29ziacWA7QDT4K/BucS2oXUTNsfciCEceOYwotqe9eIBzNItwbrpQ5JmGAwA
uvBIzVkyUCLvDLRRQpCCMiICi37aZqTNfy2ur3/5MvUo7+HjfsPkiO0b4ZmG
A4b9t2w7sbHqnRpxCJZDiOVU2EzLiWANpv1nwyRYExm4sdvYFXexy6bqts3d
UIZQ1bU/B6qFFfWgmzdYMqmFUBFRYjPyi05WbBXc16hBfIMhjJ6ZoCeYTXcM
TBkkfOB3YmPpPCM1FMwqYii5XjIhKS+NJAStOW2Zo0iQ392DmV/zDfvkJqnl
peDZvjOK09TVsg7WWS9ahP4apR5CixgUGZpEdw5i1GWG40HCyMLAewxs+vyz
0zAhCYGlD1urtd8MongwY5plrXv4vDRNv80ix49l4tpBkWNFYcxXj6R0IrVK
U16AVl3bg7ROViHi+UmdxNp2SMY1OkGCzMIrHzB6eoIRSWS7miFHg6i36Sjp
emr0wnfh8CV/1+y8SmxFqMNkNX+Qo0Hdp9tTKjf0I6lHSHbkZkJadZErgVlD
M4TBR4skWnjDcD6Q3kHA/sAbst5ECwd04Icyupv7Nwn34kPMkbRMUU67En20
Qa6+EfNl+Ivo/6Hfpo8FGGjBVLEJwVwBP2Aw63CSJM7yCABEPTYj0BMVD/x3
HgPqe+boBo7p7BjSR/hFd9RhmkAH6XCHQdqOyr6cq9o5sHugkgRY5JKcOr7S
UuWXWp/p4jtB45ZItev+HqNNB1jCXv2rKIKerhqZ6a6kpe7ZKLowQ9cZxj9p
qQujzAN6R3xfLeh55PeM/vk1aX9+0ItRYx5cIfEjOvMhGr0hPQisXKTVubmN
qe4+YAEdvzRleZF+fnOZYxJjyvIhY4DdGEEu7ARu0YZRBHsAHwQutIHS2b9g
WR8dI/viN7WZxB2SYBVjIjWfI65RB4uJfRyWFxa9wzSRwE+Gok240G49xK4p
jiiyhPEDFvAPOx2u1+1x3Gdzw8MH9pF7RZHAeWm+g1mGA1TQjdGYT5zdGplk
3GWx0EOm7JHb9kOJyAK+CMrLt8ryuVQS20uR6YjjGvLFNYZH/W4nS1c2CL0o
m6usRvGkgTTtj/rKtFha+J2VRj0YUe6laOBgaWz/2mF7PAotVwdi0ykInXWG
z4zyzsORBIGMBtbuNOVyV+8ic2s6uAhAb426Mlwaf1KLD2TAS9LOYCpXnM5q
2JRYS19JuMDBkoDGqag0EUrIBYohP627GX+g2y19pY7DZ+IOcOL7kcA7ik+w
jEjMYoUhSgfKzQfdq41bY811Hl5R3X4+4KousJdV5trVZbSFwUUZZgkZeD+K
nOPIATi1xVuu7MeyLbLstR88VtbBF/IcfAWL0i6lGCABZW73tTiCMF80cVQR
BOLOM5L02HOxKeq7gNgMcccOmyPCZzAJSUVNUgDctmiQL0BU4BicSiKIQZCC
eAq9QUkQRXq1wLXHXmmgTL17eIu8141wAL8om7sRKJ7xubyp/fhYeY9w4vLU
HgwvAzfBAecuRTIUbYIGzEmRNWVV6LYtIAtUX89qjUHA+pUaSE57YddbZF/N
wRrg/81XIvGq8JETwi0qr+a5Zhejg9+5QPQDRQ+sBpLqf9sr0i3VM1M5TQA8
YYR/3AsWNRjthl7yBDjvooqidL0aGPk4uFE4S8H3rgwHLslRQ4nqcwVFl1EO
YmXw2NDTSlE9JzHn+RMgM2j+rwlWj99oU2++1td22+IXanH5HCydG0aI+zCE
7e27/qOGn5Kd4z/83Ypznjvc2poHPzqitVOhtb0jyf/dR24Sb7L0rVPMOvwl
DPLkPdNc1z1TfKI+/WHLWJWkN2ddpDdsJS1dSl9+9v9XF/AOLJ3/t9111doa
9rTO5aLVPi89LH2VX8mqi6DN/jdiLc94CWGb72GNck/M9kSWIEV6uvI6gzfC
Upn/BYySTO8=\
\>"]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{
  "\"\<~/log/numberstudents.eps\>\"", ",", "lc1", ",", "\"\<EPSTIFF\>\"", ",",
    
   RowBox[{"ImageSize", "\[Rule]", "432"}]}], "]"}]], "Input"],

Cell[BoxData["\<\"~/log/numberstudents.eps\"\>"], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<~/log/numberstudents.tiff\>\"", ",", "lc1", ",", 
   RowBox[{"ImageSize", "\[Rule]", "432"}]}], "]"}]], "Input"],

Cell[BoxData["\<\"~/log/numberstudents.tiff\"\>"], "Output"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"cutoff", "=", "3"}], ";"}]], "Input",
 CellChangeTimes->{{3.402068998438209*^9, 3.402069001142044*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"pavgerr", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{
    RowBox[{"Take", "[", 
     RowBox[{
      RowBox[{"avgerrors", "[", "principle", "]"}], ",", "cutoff"}], "]"}], 
    ",", 
    RowBox[{"DisplayFunction", "\[Rule]", "Identity"}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Hue", "[", "0.6", "]"}], ",", 
       RowBox[{"PointSize", "[", "0.015", "]"}]}], "}"}]}]}], 
   "]"}]}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, 
   {Hue[0.6], PointSize[0.015], 
    PointBox[{{1., 1.92}, {2., 1.47058823529412}, {3., 2.}}]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 1.5},
  DisplayFunction:>Identity,
  PlotRange->{{0, 3.}, {1.47058823529412, 2.}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.402068890569356*^9, {3.402068984268718*^9, 3.402069003817252*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"pavghint", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{
    RowBox[{"Take", "[", 
     RowBox[{
      RowBox[{"avghints", "[", "principle", "]"}], ",", "cutoff"}], "]"}], 
    ",", 
    RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
    RowBox[{"Frame", "\[Rule]", "True"}], ",", 
    RowBox[{"Axes", "\[Rule]", "False"}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Hue", "[", "0", "]"}], ",", 
       RowBox[{"PointSize", "[", "0.015", "]"}]}], "}"}]}], ",", 
    RowBox[{"DisplayFunction", "\[Rule]", "Identity"}]}], "]"}]}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, 
   {Hue[0], PointSize[0.015], 
    PointBox[{{1., 3.8}, {2., 1.58823529411765}, {3., 1.}}]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  AxesOrigin->{0, 1.},
  DisplayFunction:>Identity,
  Frame->True,
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.402069018620815*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"passist", "=", 
  RowBox[{"Show", "[", 
   RowBox[{"pavghint", ",", "pavgerr", ",", 
    RowBox[{"Axes", "\[Rule]", "False"}], ",", 
    RowBox[{"Frame", "\[Rule]", "True"}], ",", 
    RowBox[{"BaseStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"FontSize", "\[Rule]", "12"}], "}"}]}], ",", 
    RowBox[{"DisplayFunction", "\[Rule]", "$DisplayFunction"}], ",", 
    RowBox[{"RotateLabel", "\[Rule]", "False"}], ",", 
    RowBox[{"FrameLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\"\<opportunity\>\"", ",", "\"\<average\\nnumber\>\""}], 
      "}"}]}], ",", 
    RowBox[{"Epilog", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"PointSize", "[", "0.015`", "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"Text", "[", 
         RowBox[{
          RowBox[{"\"\<before application of\\n\>\"", "<>", "principle"}], 
          ",", 
          RowBox[{"Scaled", "[", 
           RowBox[{"{", 
            RowBox[{"0.5`", ",", "0.74`"}], "}"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "]"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Hue", "[", "0", "]"}], ",", 
         RowBox[{"Point", "[", 
          RowBox[{"Scaled", "[", 
           RowBox[{"{", 
            RowBox[{"0.48`", ",", "0.88`"}], "}"}], "]"}], "]"}], ",", 
         RowBox[{"Text", "[", 
          RowBox[{"\"\<hints received\>\"", ",", 
           RowBox[{"Scaled", "[", 
            RowBox[{"{", 
             RowBox[{"0.5`", ",", "0.9`"}], "}"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Hue", "[", "0.6`", "]"}], ",", 
         RowBox[{"Point", "[", 
          RowBox[{"Scaled", "[", 
           RowBox[{"{", 
            RowBox[{"0.48`", ",", "0.8`"}], "}"}], "]"}], "]"}], ",", 
         RowBox[{"Text", "[", 
          RowBox[{"\"\<errors made\>\"", ",", 
           RowBox[{"Scaled", "[", 
            RowBox[{"{", 
             RowBox[{"0.5`", ",", "0.82`"}], "}"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "]"}]}], "}"}]}], 
      "}"}]}]}], "]"}]}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{{}, 
    {Hue[0], PointSize[0.015], 
     PointBox[{{1., 3.8}, {2., 1.58823529411765}, {3., 1.}}]}, {}}, {{}, 
    {Hue[0.6], PointSize[0.015], 
     PointBox[{{1., 1.92}, {2., 1.47058823529412}, {3., 2.}}]}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->False,
  AxesOrigin->{0, 1.},
  BaseStyle->{FontSize -> 12},
  DisplayFunction->Identity,
  Epilog->{
    PointSize[0.015], {
     InsetBox[
      FormBox[
      "\"before application of\\nDRAW-DISPLACEMENT-STRAIGHT\"", 
       TraditionalForm], 
      Scaled[{0.5, 0.74}], {-1, 1}]}, {
     Hue[0], 
     PointBox[
      Scaled[{0.48, 0.88}]], 
     InsetBox[
      FormBox["\"hints received\"", TraditionalForm], 
      Scaled[{0.5, 0.9}], {-1, 1}]}, {
     Hue[0.6], 
     PointBox[
      Scaled[{0.48, 0.8}]], 
     InsetBox[
      FormBox["\"errors made\"", TraditionalForm], 
      Scaled[{0.5, 0.82}], {-1, 1}]}},
  Frame->True,
  FrameLabel->{
    FormBox["\"opportunity\"", TraditionalForm], 
    FormBox["\"average\\nnumber\"", TraditionalForm]},
  ImageSize->{533., Automatic},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic},
  RotateLabel->False]], "Output",
 CellChangeTimes->{3.402069021066981*^9},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztXQm8V9O3X93fnZulolTKkIyZKs8cGcvMp0zVk4eSMSVKA8qYKVRKxszD
M6sITYQ/oQkNJCIzlYT9znftvc5vn/PbZ/jde3mlzqf76+xp7bXXWnvttdce
Tqfufc4+s3f3Puec0X3LQy/qfsHZ55xx8ZaHnH+RF5WpRlRQn6jaoVsS3hWR
/Cjvn/5piB9Ep4rYlN8L6a677gIc6t+/P82fP7/QHb2Tif7yyy+pdu3adNxx
x9Hvv/8+PQdghv766y8uOW/ePCpyxO1sQCFu6tSp9MMPP9ATTzxhg6pvikkR
hIocca1N3ODBg8k0kaZacGqakqjm+OOPpxEjRvD/CGc4rZjhHXrooXTjjTfS
lVdeSWeddRb9+OOPBWmS3ZALTAPHjRvHxQcOHEgLFy7U0bWoU6dO1Lp1a5ow
YQLHgMJNmjShiy66iO69914qKyujyy+/nH799VcaO3YsgxgwYEABLV682EPI
e+UoQB8/fjy/33777QWGFDZ0iVu1ahVtsskm9MEHH9A0izw1+L2E/vzzT8Zg
5syZHDNjxgwOI96mw1tvveWT+dprr6VTTz1VGhWRzO8x4AscTNVx5Rz39ttv
+yCLi4vp1Vdf5Xe0xJSxERQQ+MO790QlG+gZgwAI3bBhQ3ryySedJFqyZAkX
+e233zhm9erVHP7ss88iqwDyXl+xSeRI5vcY8EkkCjdKwlaXqwSJ/NJFDHCn
nXaiYcOG0cMPP8xSNbWKSDVr1iwq8J4IUpnkfEg1Z84ci1QJjUtMnjt3Lkc5
k8tySk+aNInKy8vpu+++o6VLl9J9993nIFV17hlNmzblHoGY6dOncxjxNg/R
zwWVSy65hHbeeedwuk5uFkhOAv/HH39w8csuu4xefPFFWr58eZwYxYZHjx7t
o/j000/7kp1CDKFee/XqJdw744wzuBRCrzuU+bRp0+iEE06gm266if9HWJet
DUVI9erVY4Jdeuml1L59e9p+++19CsSlFyTC3451dePGjem1116jZs2a0ahR
o+iGG27gJp133nmsRqCY69ev7zcROr1BgwZ+eOTIkYzD448/zkPDiSeeSC1a
tKB77rmH00FJCI/kD8NH/8NzwQUX0E8//YTRiPbYYw8aNGjQGxa5djPkPPzw
w31QdfFbYCteO/UtR+n33nuPvv76aw7VMXEYsI844girewXz2XA6mHSkbbPN
Nhz6j5VeAcNl/YzoyP+V0htvvEEXX3wxcxCcxUiGlK+++gp9U4TQsxdY+K6/
/no69thj6dNPP6WuRsgTQPD7F198QUceeSTnu/nmm7lTLVq0iE4z/Pjwww+p
WrVq3E0L+LeQTYSUqJweCaZ6GEwsOqcbBYo+ss8++9DQoUO535155plcjw0n
Dh89jFMng5YZ2CwJLePxAqBF63To0IEeeeQRfsdwhnC3yPJFgfLgwNVXX+1L
/3PPPcfoI3SaYXTPnj3pnXfe8etDc/G/gSNgXWh0NcNDAoiUqJTRbrvtxhpL
4CAPNIYNKw6fGOpqq7yEVq5cySM05gfCcIRhJHR1lCszcWheYWGhhW6G1q5d
S3379uW04hTwT3eUK3fA727i3nzzTSopKTGhZPgFyc2HDOIBCojxpkYcznbb
YLliUxqcQ1VQqZ07d6Ydd9zR5Nfzo+uuu477i/demLqqnKJFMbV1s4p8/vnn
dPDBB6N3pqktBV0+/vhjZ3H04Ti6oP9jOlVUVES77LIL28rCPqRh7LbZF1eP
q1xhTD1dTVqXLl0YxmabbUb3338/W02FKepLQRZM7aA2bWnLZDKRvaXYxEFt
SifuZiCKqYQ/SDZMh8IU9ZweU77IUd9/G8KBDDBdMJp7yiNNVSGKwDQPM/yg
gw7y1c5DDz3ENmG3yPwZHgAEc6EEDDLYIQjBaIOhVhQDv2tiOVc9xTzXf+ml
lzgEvYHHs/LjqjIatKOBCmV82mmnUd26danEFEOPwnCGfotaoey7xuSHB6ZG
jRo86OIPLgPhKWaxcATAaQHz8vnnn/cpEV1PfLm4+tBtOnbsyEMyHCRDhgzx
Oeuqz5Djn7G8jtAR3vM2fqpZsWauKCJe7Iirtx7GbbIO4VLVccyjahsZud7H
bWTkvySuwozs5YjrmTKfKy4VIvw7M5yzLf9Xqdl5YVRlr/Crl4zZ2+jR+m/R
ohxs2xkAFZ28RiIwWagzfjyp0lJeN+I/vI8fX5QGkTTzvEwUApNMAlPAIJCR
X4TNvDaTDyZxMxMGVMQl8PayQB8zxm98odTvxcmTSVl1nPWfTIQIJCRzQT5E
iLO6/z52pDXgq0wi2xpAae3mSvfF9JpjvcqZ8bvEdD+47mD378u5kd7ras6N
nNng6L2Efwtp0QpFo9/Qf97752nKLubfYho/3bMSe3mZ/kf/4d2L+ywNDBlU
Ub/AyJhfhBHv15UW2Jg3ssgUGmCIC+TLHUort4jkGl4rjFC02Zt+zcVl6lSY
3C6EXMsVrkrzlRNXXXFrA1wzG7aL3NK8yM+QogaX9zvSdMrpY9GQg45j19Qv
HmKSwzc9xDjD0eXQdLVe9EbIZsxLb0QYunnpjSRzPS+9kTQLyemmVQ8skxXj
5MYt9Ev8zdSuDLfX2dF3gx/7N6icG+n9N+SUfdGh8ZYTp0SzQXYZRxgEXHxy
Gi6J2ZNkzmQhJrVIICZZbPw76f8XYtW1Og1DXq2sQDzvTstxM7UxcCu5GyvR
zxbR2Ag/W6X2LkXiIl7HJFbmeB3Fhst3W1Ci/zNJTCM8sRXamRPhkY5CQR5b
K/yXKZPv/pdEOlSQIxXfehKJUcXkNf+dH4n+4aSOKxXnu9Ei/exq3RsBN1oc
62HOfwFnKGMfgyJ9Dqpp4BwU8qU5RjVo0CAOy+E2CUs6zpEhDHjwLR111FHs
HLvqqqvo7LPPzh78KueDXnvuuSeddNJJ1KNHD5o4cSKnhA59Nc6nmfp/fThC
6rG9K/jL8xRUiuQZM2ZIMowKObWFwyGNGjWixx57TMZ77IIMAaYtqrqBNoop
Do/kl2yfuYIY4fFsCNfZwkpyLuHMUO4Zp4h2u+lQM6c4jkhhfMU79vHigdgO
Hz6czbnS0lLfmsYj56PyambuYZ8GUYd9YsOeTHEYxgGeZ599lsMYIvF4xoIG
X4+DMnzjr1+/fryfXcC1bNnSN1XRL3BCTcQXj322qVGCRvQyJB3OSXO4B2Fo
GKDaqlUrOvnkkxkeNNO2225LvXv3tg+fotMBS+y8xsktrzW68dVp9uzZ1LVr
V/8okpygdB1DapSakU0c0r596tLS4W3e7pB36TvvvJPpNH/+/DxKry9D1oY3
SG9lBBp8FaMXRjF2A3uTk+apAbUwOZctW8a5v/nmG19voX/jtB5CNUxcZU8g
pbfINWYlfOB01113ZcWHeRbO4MGQqFWrlqfWdcet7MmdyBlSrlYu5f/RG7Gg
0a5dO96fvvXWW/MZPV+TZmjBggUM78EHHzTwN01rxSRVwe065phjCrhQGQ9E
2223HT366KNc1FVNqUEr6dROHqQo8WmNB+cicQAXDywlAQQJwAl5qGOhjWXs
UJy1I0ZLVB1I/f7773mIePfddwsjwWcC4DXieZ3bya4EMojX/WCQGGDMDjvs
wBNVW2PbGwsx3mFmjF376DJIsYwjM6HNPW0eAVtAY1DCA38MMJ48eXIO6FqG
GGnP5qTvrcJFiNfLL7/sn6LNNr4GPfDAA6wfkAdDLUZipETYT9HHy+s5q0HK
t99+y70B9AW9cIUEDhTFVGN6RvqTOemXQ41QrFixgk8+4yjPmjVruCA8SLox
23IPF1oACfj1kDdfeyuqHuSHXgdhfv75Zw7j8giszkqdjnqELmnP6+RBl+Z+
vcAfmgEDFzw7aBfSMJUUjYgRAH0Rbe/Tpw+n52OqRdUjF4fg7o5zzz2X1UDH
jh0LWG8WR1UjZMn38E76vrSdySlXLuCvWerS64sJ828xxdarnBs8vXljgafy
cU0IdAsesVFxGh6Kfvr06TIjtLPdcccd7K2CgYa5FNTJLbfcwuMIhrYCA/qT
Tz5h7xUsKigHxMINDw+ZZ6GJXXTggQfSOeecYyrKA6u6gWyYAUCpwzSChrIN
btyLghLh/BgJNRrlgTSoqVtvvZUNoK222oqvwDCtk/tOwo2DboV7Art9cAmR
TEIwCccYZIOHDgZ4DL6wCO+++24eoPHgf8xBQKi99tqLB3g0C+jigcVfwNCq
p4IHqsHyESMCeEKt4xFbBSsGcCDggfMAfg/NieIocsYVrbjMNAiQ9Yorrsjh
rjLDJfwiMNJADsBBMzEIyV0gIU4X8DhX7lMRoJEFWR1NKEvTg5aaOPG3ZW+t
yrBtjhnj66+/7pu8Yb8chlK4eMRsgDNKVrFAZXBJ8r7wwgt8dQBGZxmteYbq
2bjwSnmtq5EXOrluQliOHlkkGQY5Ru5ffvmFY0z24lAtQF5qgaEMYyDbkOJA
Q6655hrab7/9MJyLHwqTMtzPZNUAkOJshDGHq3NkWVGMIrALEgLJEYnAkzWy
XRgWOeGJGkKHwYwEj8TZcOWaKUMnn242oQoc5QrzZn9RgGpSTnCCpb/77rtz
b3DVF24/Qq58rjaW5yP3tgNd+DlmzBjW57ZQUfamr27dutHRRx/tJ7///vv0
zDPPCHqYa2LWBbtbek2vXr0ww2cVLHYg9Cxs29tuu41FukZFMSrneRI6kiR7
k2cGgZHByl7sqEH6IQgIyzzQmOJAY6DE69SpA9eLsBguaFRuVWJwrsnZZd4j
tUFkYcdD4WFMkbu0wmx3YRiClzHRcCRhWQdTBKKAXS7TyOpG6OPIlHGUE+qH
F1mMAAj1Dcn8ZJtmOczSLhvM1TCci5GBNmFOhAf3jEl3MkVdjXIhnJfGz5Wz
cl4HwUQ5JGeMDzxg8MyMGzdOZ69L+++/P1sXGLLbtGnD/nlBHf9vueWWrN2g
T6H8EQ9HPcZN3ETXu3dvXXUJQLmYLyyIQExGGqgvuH7gu0TXtOlXYKQSBhvm
05gEuqoqMiSMahQGfTywaUoiJAM9qHPnzvYNg3jDDXY1a9Zk5xa8WE899ZQt
9gVpoJUGkuC4hb6GKWAgRQoJEzdj2uiiVBrZd0pANLFs4RFiyw4f3nZk2gTP
jv2gE1SZ4HOeaHEvYlEQT6nUmjHighs5wICsCipiPqLbogtvscUWbB6LnQiO
ABZ4jFEUso2RGsYN/E/IhfvioMKqx0i6Cydf3RXxwAl1t++++zI6Wc9HdjEY
aMNYglkKNGVfU2AYKHO2BilyRyT4VBLCVKNC2aEHD5oEw0x8kAh37949160Z
CafIJwO8Xs2bN+e5lO0yFHLYccL9GjG0iZag4gAyeAzLM4ncLsnpqjD/RDmU
OtpaaFpse4BdTSnx5baCGhzeL6yvhDU43iGW4JGngqWNwBekht0G0xxDpEg0
+rVtdIClmDxBq0sfxz4SeBHjJDoCJWk+NBIeLHeINED0wi0QLQmTEY/ccBeS
aleLZDzCDpcpU6b4Fio6ibuaUjZVMIOWdDywNapXrw4jQqwSTBUhJAE5z1Xl
BpqtyjGfhvo84IADOFmQpDgjxkWuTIBcLqlyGTJ5CUOuwMvtqFiHk2kSOopM
bqpMiSfMV+0mQzLgOcguFOVOEOFZ9lgoOIECWDbEvh3ZDoq1NtGF+IOhjuES
zmqpChod01jd6fJBqTwHJTgnsHIh0ggh2HvvvaOyY/EEQ78w3aSXRLYow9uL
EYeBQZgNF4+ADM7OtLvEEkdq27YtrsYVkxu8x9gSkHlX+0tyIMErAv0BNS9d
yJ7HWvujbdHA3/nnn29OEpZGkYzffRClThBWewVxIxMBwXSR0cVgMBbjTXZn
bjEvSdnVmnKy593GKqG9JWm6hDhBsayKCSYe8ShhVfKUU07JTulKAtng44ND
A04nGOrSLWS1O3she01/cQ54Cd1ln4FcXg6+YO0L8glnWVk+qG3OzixZKoKH
A5sDkIK5A+wpuAfhVTjssMM43gYLCxSX+2KajSU0VhYheJj8FTmaqJtdj9cg
0auxQA/PBhw72PYQrgtpwAVNxQgJXQr43A89xQm7T8Os428GwEgJfNLCwWzH
m1nKaiuKgWJ44OSB+xH/ozgeNBPgwB3PBtI6qX4k5XBbe0zxCgpJkZOD0oRX
XnmFYUK3wo648MIL6ZBDDgl4O6Wsp3O1t7OGvxIuBExAPVWXWV/WNzau/STk
PNjo1HTf4egXhquPEFX+BuXI1eCDTULSZz0ujcKssrcPR2LWwUqQYce1kzeH
ZnKSJt+LgCO3IulPnxTH7xmvE7nbyt7eLrutHB8WEWvD+V2RIid0TbtasXu3
mCQU85WTWlHJAeRlL33ON0nqsesLBhi8NVDhkIAkjOzvmFggyW6t+8MrruMC
mcBxgcJEGIVhnrQNy5B9FizPe5NDZ8H0XkXth5DvFOAvdjN+TX//WHiPdfLH
XEoC+UPgnfvTZCoSse3N3nwf+Y2YhOT4j5nIXM0bSaUNWHvCKqUDH7Ll1v6E
TEo62QjbGAVmg9VjKR3mzB4+z0MnyCp6y3SCLsolZ+zRh2D2xE+s5EqQvalP
XMux+wMTPpeTkBwvLYKMJxaZNLjEH8ZIpEaCoKT5Ik5wwIpUNhW4eztBTipz
kCRPodHZZeNkDHjZtBa9dTPhA0IJyfHCAwMdz5o1awoTEalyyQlMtKtActqY
eipwZ3mk3WVLTr5Hc2R/iY10RT5TFAG/0DA4budpzkeTEr6p1DCQHOax64gT
8sKWQBhDFFZb4/fcbhILM+1nonjKqZlmn8oS0zYOTB7ClP917wmSlHAMqk7k
3lroDTyYkkNqEef4epOsBri24iLFBb7QyGncluBKfGzK1f2t7z6J4Qz/BEx5
OJtQGpjEYRT+VJT9KSkxnKM/b1USe/qtKLF8YZghOQIUOQne1EoIrokF43Yx
FYXUJn/SqrZJsz9pJWmuI2/psZNbr+1+WdPUBoMPC6cfffQRxradDGPDXdh8
M6uOIaL9uSz5nFZTN8Q2eaNpn60TNLHWgg+GYSujZwMJmvAuSFbEmM90CST7
q11N3JDSo7fRCbR+5VwHOKOXymrT1E8U7TlM0UljFPW4T9HEuTp93DTF94MM
/F9FC1e443yHgQfj+FGKRkzS/yMs9qALzopfFB15m6JhLyi64BFFQ59TelBo
TmNN9kHPKPr1N0V3TQ2GJX3wszr811+KjrtTUbtrdPVbD1B0xK2enf6Drmry
PEWtBinqcpdOR9kBT+uySHc1f2wa+n1u4v74U1GjvooeezdLj/vfVH4+VDjv
K7EUqvthSf/Ta0CTfopmLtThGQt1GPG+TR0qg/cJs/T7j6t0HUu/V7LSGs5u
whpa/UAyLmNBGFC++1W/f/CF8VyYlklNXg2BsrktzwRaPiYNGecZ1Re6FUYc
h4u/1XWuXGP5Hy0cCiKousSU+22tDq/+XYc/+y6aqmv/1GLxyNuK9rlO0eaX
KFr1e0Woilp3GKzoyf9oAXVR/BcjgOF0u8Xj01BwrsEv4mKfYpP8ueHeVc8r
Gv6iop4TOEuBRdQ5X+YSVeLSEbUspwzy7jhYi/TlXr9b9oMwMsiAMBmssIAG
f16e41liE4NZRS6Bjo2GpEe0PF03n2Piki5y0lKyFePdcqCid5bo+FfnK9pp
SLbDoORlTyl68SNFy39yx6HrN71UqwKUm/6pDiM+Co40EqoVeaDjRKcKLdFR
EfPljzr87OygSIrOBIz2I3R9a9bqtI+/zvJl56FaryIMMQ3zzdX+vIiddHuY
zCBmL1XUdbyimyYrOmFUVof29wjT2NNMry1Q1Ky/olGvu+OQd9qnuqzA8MKi
IKKKYCzq94Qe0toOVzIxHjnFw+liPWQhGcPOyWMVPe6R/aJHFW3rkaX3Q0rm
J6AUOIiksx5Q1Gkkc1aS5y/Xgxak/ZwHQ52hyNl0N42ZxGkp296hY+/xoVRB
P5EK7P5+fxWoOVlKwwDUsI9i8qWCGzEArUhTdp21L/+lNus/l1O7Y+qkWvrF
e8QVGOnPAesKa6Ra0cW7ueFChu+kCy60tepN43GjF+JxumfNGn2ds4RxO5eE
b79dlx07Vod5uU8tXgzXgffOceZ2MNWpE6nWrUlNmEBqhddxsCdm2DBS3kxW
DR0qq+1+1QMHksourSo48/bckxTOAvXoQWriRDOKe9jOmkWqbVtSOE/jUVR5
reQaHWU43sJeqKAWLNBx/tUccXV6dieuUmjVilSXLqRGjPBbD+rcHOaaa7Vb
TNekizaWGoXGFVhuahMuSJNcUycFpMt7l2U5pIEpeMeSMtKWLvU94Dmg4epq
1IiUdVOHkqVK+EMh7KNG+S4pNXKkFiJdJqdIFtssN7z+wbJiXRCSW21ZFoak
STNwoNHAvCXMjYh143RXfcyRRgUvJy/9+7gk2bECia4Hdz+68Oabk1q1KppL
XifkuJUrfe+vH+dxOROO868ZqZkLC2sf9eqRgod3yBBS5oqS3DpKNGEQZ05L
KmzyNvBu9MmYYglW+JH2EhIZ+SOuni9xsSCLWyoOeUpt7txoDoFKnrCoJk1I
YdP3smW6DbV0NmvZTeFMHeKuuorU8OGkevbUeNqyu2aNLJ1GZNdIbZqLM86C
ohNCZGbPJmUuEklV6+rVfoezwOaotIj10LSXo4gdmPTRgQABzZV1CqdkETb7
VGwJC4RlLcZj29NPkzJrMTlsE6qsWKHDAwZo8dpCqxUkXXYZKWwHXb5cQ2/Z
kpTcLYUDeuYGFk7DKpVZeVKffEKqW7fkMraQefxs1y7LMyR36KAVa5qqzRU/
6JIGbI4CTLUimXyRi8/DhG9PyBou5/GMHtW3r26GJ37iFmE1iqN5whSMGdA4
nmixJXDiiaRatCBlLgFUN9yg4Z13njY+EDdoEKl+/XR+zxyQTSKqf39SjRuT
gr3UrBmPTZwfXaNrV1Kwlby2qpkzDT5NtDmAIf8Wj3rt22sJiCjD8WH80f/F
isEBMBxJA6vMXTXRdXuUxkoAzAq0EbdBxLIxfi0w7a0z+fEyqBtYXgogoXKI
QR1+uJ+6lZ+6qaNsjl6JmzQmKQsfOUshiDAzA47Q0H00cYORWQJq4chXzwEv
hwtxk9CIoUg6Ewt5gwbMcB9P4GPWe3ZxxPk4wfJp2JDLpsJJJrAhw+Wfm8Bu
UBPDdSDnBk9vf0YZlHhOnJIGgG9+ubsxZ0r1oQrfokpQYJw7ry+HJOlr/nV/
58M6OZsSzstp5Kjq21plbKi0QKwzn9BepxFZl76MvvHr8BsZuU7hV/WMhCqk
t61YqvZ/KJQBNg==\
\>"]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{
  "\"\<~/log/averageassistance.eps\>\"", ",", "passist", ",", 
   "\"\<EPSTIFF\>\"", ",", 
   RowBox[{"ImageSize", "\[Rule]", "432"}]}], "]"}]], "Input"],

Cell[BoxData["\<\"~/log/averageassistance.eps\"\>"], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<~/log/averageassistance.tiff\>\"", ",", "passist", ",", 
   RowBox[{"ImageSize", "\[Rule]", "432"}]}], "]"}]], "Input"],

Cell[BoxData["\<\"~/log/averageassistance.tiff\"\>"], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Column", "[", 
  RowBox[{"Take", "[", 
   RowBox[{
    RowBox[{"problemlist", "[", "principle", "]"}], ",", "cutoff"}], "]"}], 
  "]"}]], "Input"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"elec3a\"\>", ",", "23"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\<\"elec6a\"\>", ",", "2"}], "}"}]}], "}"}]},
    {
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"elec3a\"\>", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\<\"elec6a\"\>", ",", "15"}], "}"}]}], "}"}]},
    {
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"\<\"elec6a\"\>", ",", "5"}], "}"}], "}"}]}
   },
   ColumnsEqual->False,
   GridBoxAlignment->{"Columns" -> {{Left}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   RowsEqual->False],
  "Column"]], "Output",
 CellChangeTimes->{3.402069051759206*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Column", "[", 
  RowBox[{"Take", "[", 
   RowBox[{
    RowBox[{"errornames", "[", "principle", "]"}], ",", "cutoff"}], "]"}], 
  "]"}]], "Input"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"DEFAULT-WRONG-DIR\"\>", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\<\"DISTANCE-TRAVELLED-SHOULD-BE-DISPLACEMENT\"\>", ",", 
         "28"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\<\"NON-EXISTENT-VARIABLE\"\>", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\<\"UNDEFINED-VARIABLES\"\>", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\<\"UNUSED-VARIABLES\"\>", ",", "5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\<\"VECTOR-TIME\"\>", ",", "7"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\<\"VECTOR-WRONG-TIME-AND-DIRECTION\"\>", ",", "1"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"\<\"VELOCITY-NOT-SPEED\"\>", ",", "3"}], "}"}]}], "}"}]},
    {
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"DISTANCE-TRAVELLED-SHOULD-BE-DISPLACEMENT\"\>", ",", 
         "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\<\"MISSING-NEGATION-ON-VECTOR-COMPONENT\"\>", ",", "1"}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\<\"UNDEFINED-VARIABLES\"\>", ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\<\"UNDIAGNOSED-EQN-ERROR\"\>", ",", "9"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\<\"USED-MAGNITUDE-INSTEAD-OF-COMPONENT\"\>", ",", "3"}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\<\"VECTOR-TIME\"\>", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\<\"VELOCITY-SHOULD-BE-ZERO\"\>", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\<\"assoc-error-nil-show-hint\"\>", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\<\"assoc-error-t-show-hint\"\>", ",", "1"}], "}"}]}], 
      "}"}]},
    {
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\<\"DEFAULT-WRONG-DIR\"\>", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\<\"USED-MAGNITUDE-INSTEAD-OF-COMPONENT\"\>", ",", "7"}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\<\"VECTOR-TIME\"\>", ",", "1"}], "}"}]}], "}"}]}
   },
   ColumnsEqual->False,
   GridBoxAlignment->{"Columns" -> {{Left}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   RowsEqual->False],
  "Column"]], "Output",
 CellChangeTimes->{3.402069060120688*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ptc", "=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"data", "=", 
      RowBox[{"Take", "[", 
       RowBox[{
        RowBox[{"avgtime", "[", "principle", "]"}], ",", "cutoff"}], "]"}]}], 
     "}"}], ",", 
    RowBox[{"ListPlot", "[", 
     RowBox[{"data", ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"All", ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", 
           RowBox[{"1.1`", " ", 
            RowBox[{"Max", "[", "data", "]"}]}]}], "}"}]}], "}"}]}], ",", 
      RowBox[{"Frame", "\[Rule]", "True"}], ",", 
      RowBox[{"Axes", "\[Rule]", "False"}], ",", 
      RowBox[{"BaseStyle", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"FontSize", "\[Rule]", "12"}], "}"}]}], ",", 
      RowBox[{"FrameLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"\"\<opportunity\>\"", ",", "\"\<average\\ntime (s)\>\""}], 
        "}"}]}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Hue", "[", "0.6`", "]"}], ",", 
         RowBox[{"PointSize", "[", "0.016`", "]"}]}], "}"}]}], ",", 
      RowBox[{"RotateLabel", "\[Rule]", "False"}], ",", 
      RowBox[{"Epilog", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Hue", "[", "0.6`", "]"}], ",", 
         RowBox[{"Text", "[", 
          RowBox[{
           RowBox[{"\"\<application of\\n\>\"", "<>", "principle"}], ",", 
           RowBox[{"Scaled", "[", 
            RowBox[{"{", 
             RowBox[{"0.75`", ",", "0.8`"}], "}"}], "]"}]}], "]"}]}], 
        "}"}]}]}], "]"}]}], "]"}]}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, 
   {Hue[0.6], PointSize[0.016], 
    PointBox[{{1., 162.16}, {2., 96.2352941176471}, {3., 120.8}}]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  AxesOrigin->{0, 0},
  BaseStyle->{FontSize -> 12},
  Epilog->{
    Hue[0.6], 
    InsetBox[
     FormBox[
     "\"application of\\nDRAW-DISPLACEMENT-STRAIGHT\"", TraditionalForm], 
     Scaled[{0.75, 0.8}]]},
  Frame->True,
  FrameLabel->{
    FormBox["\"opportunity\"", TraditionalForm], 
    FormBox["\"average\\ntime (s)\"", TraditionalForm]},
  PlotRange->{All, {0, 178.376}},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic},
  RotateLabel->False]], "Output",
 CellChangeTimes->{3.402069760954*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{
  "\"\<~/log/averagetime.eps\>\"", ",", "ptc", ",", "\"\<EPSTIFF\>\"", ",", 
   RowBox[{"ImageSize", "\[Rule]", "432"}]}], "]"}]], "Input"],

Cell[BoxData["\<\"~/log/averagetime.eps\"\>"], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<~/log/averagetime.tiff\>\"", ",", "ptc", ",", 
   RowBox[{"ImageSize", "\[Rule]", "432"}]}], "]"}]], "Input"],

Cell[BoxData["\<\"~/log/averagetime.tiff\"\>"], "Output"]
}, Open  ]],

Cell["\<\
Fraction of students applying principle with no hints or errors\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"Take", "[", 
    RowBox[{
     RowBox[{"noassistance", "[", "principle", "]"}], ",", "cutoff"}], "]"}], 
   ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"All", ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", " ", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<opportunity\>\"", ",", "\"\<fraction\>\""}], "}"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Hue", "[", "0.6", "]"}], ",", 
      RowBox[{"PointSize", "[", "0.016", "]"}]}], "}"}]}]}], "]"}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, 
   {Hue[0.6], PointSize[0.016], 
    PointBox[{{1., 0.08}, {2., 0.470588235294118}, {3., 0.2}}]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  AxesOrigin->{0, 0},
  Frame->True,
  FrameLabel->{
    FormBox["\"opportunity\"", TraditionalForm], 
    FormBox["\"fraction\"", TraditionalForm]},
  PlotRange->{All, {0, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.402069780408429*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"attemptsbeforeFNA", "[", "principle", "]"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Hue", "[", "0.6", "]"}], ",", 
      RowBox[{"PointSize", "[", "0.016", "]"}]}], "}"}]}]}], "]"}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, 
   {Hue[0.6], PointSize[0.016], PointBox[{{0., 2.}, {1., 7.}}]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  AxesOrigin->{0, 2.},
  Frame->True,
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.402069787073801*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"binthis", "[", 
   RowBox[{"x_List", ",", "n_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"min", "=", 
       RowBox[{"Max", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Max", "[", "x", "]"}], "/", 
          RowBox[{"(", 
           RowBox[{"2", "*", 
            RowBox[{"(", 
             RowBox[{"n", "+", 
              RowBox[{"1", "/", "2"}]}], ")"}]}], ")"}]}], ",", 
         RowBox[{"Min", "[", "x", "]"}]}], "]"}]}], ",", 
      RowBox[{"width", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"Max", "[", "x", "]"}], "-", "min"}], ")"}], "/", "n"}]}], 
      ",", "h"}], "}"}], ",", 
    RowBox[{"Line", "[", 
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"min", "-", 
           RowBox[{"width", "/", "2"}]}], ",", "0"}], "}"}], "}"}], ",", 
       RowBox[{"Flatten", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"h", "=", 
             RowBox[{"Length", "[", 
              RowBox[{"Select", "[", 
               RowBox[{"x", ",", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"cent", "-", 
                    RowBox[{"width", "/", "2"}]}], "<", "#", "\[LessEqual]", 
                   RowBox[{"cent", "+", 
                    RowBox[{"width", "/", "2"}]}]}], ")"}], "&"}]}], "]"}], 
              "]"}]}], ";", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"cent", "-", 
                 RowBox[{"width", "/", "2"}]}], ",", "h"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"cent", "+", 
                 RowBox[{"width", "/", "2"}]}], ",", "h"}], "}"}]}], "}"}]}], 
           ",", 
           RowBox[{"{", 
            RowBox[{"cent", ",", "min", ",", 
             RowBox[{"Max", "[", "x", "]"}], ",", "width"}], "}"}]}], "]"}], 
         ",", "1"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"Max", "[", "x", "]"}], "+", 
           RowBox[{"width", "/", "2"}]}], ",", "0"}], "}"}], "}"}]}], "]"}], 
     "]"}]}], "]"}]}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"timebeforeFNA", "[", "principle", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "631", ",", "56", ",", "391", ",", "168", ",", "190", ",", "15", ",", "229",
    ",", "304", ",", "88"}], "}"}]], "Output",
 CellChangeTimes->{3.402069931885961*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"binthis", "[", 
  RowBox[{
   RowBox[{"timebeforeFNA", "[", "principle", "]"}], ",", "3"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.402069974686594*^9, 3.402069976168337*^9}}],

Cell[BoxData[
 RowBox[{"Line", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"0", ",", "0"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"0", ",", "4"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      FractionBox["1262", "7"], ",", "4"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      FractionBox["1262", "7"], ",", "3"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      FractionBox["2524", "7"], ",", "3"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      FractionBox["2524", "7"], ",", "1"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      FractionBox["3786", "7"], ",", "1"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      FractionBox["3786", "7"], ",", "1"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      FractionBox["5048", "7"], ",", "1"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      FractionBox["5048", "7"], ",", "0"}], "}"}]}], "}"}], "]"}]], "Output",
 CellChangeTimes->{{3.402069968247177*^9, 3.402069977384887*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"5048.", "/", "7"}]], "Input",
 CellChangeTimes->{{3.402070092482744*^9, 3.402070095972779*^9}}],

Cell[BoxData["721.1428571428571`"], "Output",
 CellChangeTimes->{3.402070096626929*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ptmaster", "=", 
  RowBox[{"Show", "[", 
   RowBox[{
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"binthis", "[", 
        RowBox[{
         RowBox[{"timebeforeFNA", "[", "principle", "]"}], ",", "3"}], "]"}], 
       ",", 
       RowBox[{"Text", "[", 
        RowBox[{
         RowBox[{"Row", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"neverFNA", "[", "principle", "]"}], ",", 
            "\"\< never master\>\""}], "}"}], "]"}], ",", 
         RowBox[{"Scaled", "[", 
          RowBox[{"{", 
           RowBox[{"0.97`", ",", "0.7`"}], "}"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0"}], "}"}]}], "]"}], ",", 
       RowBox[{"Text", "[", 
        RowBox[{
         RowBox[{"\"\<princple \>\"", "<>", "principle"}], ",", 
         RowBox[{"Scaled", "[", 
          RowBox[{"{", 
           RowBox[{"0.97`", ",", "0.85`"}], "}"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0"}], "}"}]}], "]"}]}], "}"}], "]"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "700"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "4"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"RotateLabel", "\[Rule]", "False"}], ",", 
    RowBox[{"Frame", "\[Rule]", "True"}], ",", 
    RowBox[{"BaseStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"FontSize", "\[Rule]", "12"}], "}"}]}], ",", 
    RowBox[{"FrameLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\"\<time (s)\>\"", ",", "\"\<students\>\""}], "}"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.402069835516274*^9, 3.40206987503943*^9}, {
   3.402069912926725*^9, 3.402069913975415*^9}, {3.402070019210738*^9, 
   3.40207012682427*^9}, 3.402070157521493*^9}],

Cell[BoxData[
 GraphicsBox[{
   LineBox[NCache[{{0, 0}, {0, 4}, {Rational[1262, 7], 4}, {
      Rational[1262, 7], 3}, {Rational[2524, 7], 3}, {Rational[2524, 7], 1}, {
      Rational[3786, 7], 1}, {Rational[3786, 7], 1}, {Rational[5048, 7], 1}, {
      Rational[5048, 7], 0}}, {{0, 0}, {0, 4}, {180.28571428571428`, 4}, {
      180.28571428571428`, 3}, {360.57142857142856`, 3}, {
      360.57142857142856`, 1}, {540.8571428571429, 1}, {
      540.8571428571429, 1}, {721.1428571428571, 1}, {
      721.1428571428571, 0}}]], InsetBox[
    InterpretationBox[
     RowBox[{"16", "\[InvisibleSpace]", "\<\" never master\"\>"}],
     Row[{16, " never master"}]], Scaled[{0.97, 0.7}], {1, 0}], 
   InsetBox["\<\"princple DRAW-DISPLACEMENT-STRAIGHT\"\>", 
    Scaled[{0.97, 0.85}], {1, 0}]},
  BaseStyle->{FontSize -> 12},
  Frame->True,
  FrameLabel->{
    FormBox["\"time (s)\"", TraditionalForm], 
    FormBox["\"students\"", TraditionalForm]},
  ImageSize->{614., Automatic},
  PlotRange->{{0, 700}, {0, 4}},
  RotateLabel->False]], "Output",
 CellChangeTimes->{{3.40206981909315*^9, 3.402069837764854*^9}, 
   3.402069876082668*^9, 3.402069915044625*^9, 3.402070038604065*^9, {
   3.402070103420325*^9, 3.402070128171763*^9}, 3.402070159400058*^9},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztmweQlEUWgH9mZmcjYeFIAoo5omICUY8TFRTEnJVDRE4QkWgEI2ZFxYw5
YMSEOWDGVIoi5mwZMCKYA2hff+/v1/vPzP//C7PW1V3VddXOTqfXr1+/frFn
4JAJw4eNGjJhxNAhXfuNGzJm+Iih47v2HT3ONmWbBUHmX0EQ9Owa8N3Yr+6j
oQznI9qS2jBYvmfNggULzB9//CG1Ctf2/fffm19//VVqf0Tm/NP1z5kzx1xx
xRVSy7u2xYsXmzPOOMN8+umnBXMGuf6PP/7Y7LzzzlKrcm0///yz6devH/+D
JZE5veV7RzNw4ECz/vrrmxtuuMFcddVVbNhceOGFMubyyy+X+nHHHWd+/PFH
c9lllxXUtf/444+XOuWpp54yG2+8sdljjz3MgQceaB566CG352qz//77m2uu
ucbT6uuvvzYDBgwwp5xyihkzZow58cQTLcYh3kcccYTsldriErzzsu4LL7zg
YVF/8803M5FuW12a7iVLlpjlllvOzJgxI+MWv+666/xEbeMAW7RoYd5+++1A
wQACwlEWLVokYD/55BOdctttt5kePXqk7mEpkWyk+8MPP5T6Tz/9VBlhBtfk
8YWBOKibb77ZbL755qZjx44whuL7/PPPm5YtW5aHb31B959//plaV+xOOukk
c+qpp5qDDz7YVFVVBTmHyhtvvCH9luoO+wq5Luuss47p0qWLmThxovnss888
u7zyyismm80moN5xqXCzDCD1+fPnS/3uu++W+gcffCB1e+38+NVXX928+OKL
Un/00UdNt27dPO4631La4677heUpkyZN8rg/88wzpnXr1iW4/12+tzZnnXWW
zD300EPlyk2bNs3U1NR4/C+44ALTrl07uZ5cmzXXXNPss88+5tZbbzXjxo0z
q622mhk1alTWoQKpBg8ebM455xyz2267mWeffdZLJUj78ssvSy1EPSe3HbDH
HHMM3KxYc0cQLPEUz5ntttsuyiwZjrKDm3v66afLqRsRC2Hbvvvua+66664E
eBWC1pdffiltCxcuNP3797fnarxg3HPPPbmDXvC99dZbZsSIEVKLCr4+rh9Y
q666quOPsO2HH34wF198MSfshS73GkEMJ0aFrpRl0wf/mw0D5F+Fef/994Vf
zjzzTNEy7733XtDb9T355JNm/Pjxwqaw67x58zzrx81L6wvlZda8+uqrplmz
ZkgkO57PKr0mUmLmNg42LwoI2WeVjVyBYcOGNTY1rW9T6cuhFkQoQYErr7yy
aZvPi6xBNULUc8891wwdOhQ5VC7Ynq7vtddek4sGSGTArFmzyj6nTd053Xvv
vSKOuCDZMmFlClltm222ER1Fuemmm6gH/3DLIVOcUeaXixufSelTcqB1VIpT
LIVT56X16cltsMEG5vHHH/cw77nnHrPRRhuVC7ZXzLabiiK39eSTTy5A0V6J
csGG1KwzPXv2NC+99JL0ffTRR3JZf//9d6nHzEsDqbzF4bBrK5jLPmzHW/3l
XyX2kMlkMqKlKdw06hjIvROJ3SJtXlqfSjNU1OGHH86O3E7KBhmyRL157rnn
TGWl2Hvlggo2cegNGTLEqL+Tlc+W5o477igbruLIAeZyub8Ax7ai9cHxt99+
8/CoWwFSNuyebv/YdGuvvTa2WFNPvFkhv4EdWMIAFG6EwzqF3/JJ8zIyMZ8E
MtxPrewH9wlBz3dKAsRlAYkZu/XWW4s6agLITdx1BdyUKVOk29GgifsPr1ud
iDfOBJ7Za6+9xG9IQXip8G1u3nnnHWnCAocLTjjhBFF9cEOZpAglXQ1+shj4
WspDtIj3FN/ikVYFp8q6lHlpfXrpMamOPPJI6S4TlNNVfzN77723tHXo0EFc
DhdHKRduCDZnrr76anGE3O6buHFFlo3vuuuupqKiwqy33no+QFEmWBXOKFOa
rENnMbWUCFp5LdfEozrqqKPEU2rKURUxHQEG7PaoaMQ1b0zBpsxL61Paq5Sj
oBm5l5QywYZSr43wG440rqKL15ULMlDmA1UIDwNGmK9JBMh6mWy8YVw2SGU8
Tru2tpbjctGNskEqw6G8ccs1FFUOHR3Dqbew1VZb+etw4403EpXw3sLrr79e
4i3Ejc+k9Km3sMIKK2hwxMyePdt06tQpdV5an5riZ599tnnggQekT+0ZH0Fc
drBqN0M1oq+hOdeUbWfFV3OXyzFB+SSER/H7KITVxo4dWzYJ1e3Qdi2PPPKI
hMQoMfMaX84zFjoYDxVDCirgHvZ2VMHFGzRokKmvr/dUiRufSelTqtx+++0S
h8cU2n333fGoU+el9fVwfaie7bffXqh90EEHYap4TlhWmOqDzpw5s8QHLXfP
u+yyi6mrq5N4M38TJ05sMszvvvtOHBlCi8CfPn16E2HWmW233dY0b97c40kK
YOWVVxa2iZnX+HJ/SUwuPJGWwoWdO3eWkyaHQSiagmZRtwvJueWWW0oYeIcd
dhAxZucFiwRGzmd1nCnQKb5ZQNWGq9v9xaVuwv11KUgpUYBAYJlYNNG36upq
CZVpymjWrFkSs8bUQx6y6qRJk9JSStKu6Sdi6RlSIPa4mEebS50V4BKDc5gs
qZVYI9PQOPzHleM7haC043oyOnYpEhVZcRcx9Kyh4WiZjaYWgs4xbQKkzlGx
Oil/ZNwALrGjamuTz+f98c6bN09BSl1TWAoLGHH9PsVVEU1xeezCvuZR6yyK
inxPQNmFy+vN0UcfLW1wH/+hEP/JgcKtSlVg0M6dgisJZFBHvys1I1vw1Iy2
TXV7SYs+x0U8NVFTykDVJQwUl8/UFAgxX8Zef/31rq0mkVmBx1iyKNZoDlHo
sMwpVpgJ0UasjbuyyiqrkAmRSx7D32paFl/JpcSys+fUhMxhDPu0LuC84lyb
5tLItMT1RxKZYU6qNOtY4LJVF3QnYOlzOe3bt5fxVmS6KFet3Kmnn37aMyYS
mzFEL6EsRif1OXPm+FywFReBFuM/WoQAjRORcenKMlK7epd/+eWXuC0nJVKT
VnKJ1bC7qqA7BmFNJsNmDLUqzRGuUm4zGnennXaS6eQIGbPWWmtZ8PbeB+HN
51WBFst3QZbpoQyUr54G/2+LbwszpOFRkqI3JuQ5sqj77befMmVUMqbwWRA0
xNiigh5Hd/nllzeXXHKJMgdWNKrDLSyLnnbaaZLa7d69e4aKWwTxSxeyBxPJ
itywO0tiVmfaWviJKUCb5dhAxx177LGSxrbWqmur1qsloPnDzuFiwunUrUS3
0pyxlSLP1l13XY8lliBaqFevXg5eTuQaF926bqAaTs0GkSUs0zaKoqNhuHsd
pyhCCetbaDcXCdVNupEWt6N8yiqHHHIIroWsknNg3OY8+VdccUWufLah228i
AjKE2FyU2o477ihRUbo4JYbSZk0dPxWyutP02JRiWCcOPG0WXqDw0FiuzfTt
21fiL9QPO+wwnabgdQldVnU331WKTJ48OdxctVJURBzGFt1IZQtZp1jMaM56
PmSmLBt2VHnaF3OQw0UZhGq3bt2U1uHstoFKWBTIhhtuKPwTZXslLNC7du0q
HgPRXHff/Djdne1zdyFXTJVMDE/W8ClNtW4j8S9K1AKPXvvGXuJQZ7dY4RSN
QkT7Y167FMCaNm2aW7vO3HnnnfqISEVOibKK4KwaRuO84TGGW43aqBTkEWPs
jVbLW+qXXnqpf62ChomU/yY53lgbzAEv18nnf76tWj5DeY5RSI3vmM3WPM+E
Uwq6M6VTlMdDGRl2u1CUdA0fPly+Wws1VzjbEwZfw7JQIw/dsjHkVF1Y+kgg
D5eIH9zAl0GDJZSXx4nIQy1z587F9VMLGgMbnrPs71ccOXKkWD/cdI0NkxpC
Opx//vnmiSeeyMUgqY+tEpCMji00dmvMN998Y7766ivfzStRhnOxInvKx6yg
F4Q7a21JGer3l4/uT8zoVq1a4VdpaGv+/PkeL83UhTg3l+FYDyoNKOQHCDRY
rSDzNG3jzjL2oFSC4LLRxisshaf5B8xb1Knmq5UPnKAW2DpH3xBSEsxkT9Dp
06dj/SgBRW27eV63oAkLzOuwI+cp71goaltfdNFFAkdpg0ECiW09nN3Ro2sP
RSJiROuU5Zn2xRdfSB3byJnl/gjihOvo0aMLthiSNsSUcHiE/0X6OL0SNtVL
X9GTP2krfoWIq9i2bVu/PJEdUGw43bzEjRDszFWbwbs57eNeIgoo5HybNm0k
7wIKxERXWmklSdrFoRKDchB9ButcuFB2hcdVKcABQlgMxicqRX3mzJnL4Ofp
MpHXjvZGmBKDvFXiuAofItE/a6D6EIVLEUmbbiJ6iAvcOOUv62w57FuKfYRm
p6gZT3jm/vvvF6ZKsgyStLlaCgQPKO+++66wfGRtjSBFl45cew8m7vlsslis
KIhnUmAyJQc2F3fHmIao9LXXXmsefvhhEU3ER6dMmeL6wlgfsL799lsJQ4wa
NUrIQcyPxCGFY+I9W20iTvk4nEzQkG6BSZFUW2yxhaBjT8CLcQUH2gTGuKqg
qdlV1x+K8eq43cgwzQvzxLuyCFPP77qmSmHrnvvkPHUkaYQTigVzKDcCxcYL
1M8//1w8KXu9ow6onnfYFob0UCUxV9mNaZcoBnhowny8UqQNshrLc8KECdKv
d4P4cnQedWuoZ51KiPCHfyp9wAEHyIPhNdZYQ6xIlten0tal9luBMLhj1Mld
EUdrOMiKEkEJX4rBYgmOZVC8JeDgQxA7QT1aZzuMt/vzizxzVuOwIIJcnzgu
TCYixuBKjWTX19erxCMy5mRJwRAiZAtlTAf56Qeil6ANXNKnTx/hGN6oK20x
byIbiH2PniC+VawQOcUonDp1qiyBWEpZOi7wpRyQ9JS99MrWSPize/fuxVdW
viMKWNZynV5hApyoLX4IQHzaMqCXInh8EWtSrhExZrw/fYqA2z179uxUKZKA
kt4prhlTbrnlFs90eGhFw73G5WdFjCf/FOlXSRKzI8/nhP0ee+wxn81EMMUv
UyXmnZpIyteoCh4LWHNKbU3isAiuAtnSqiS/ADS1ehQa7wR69+4tIVzcYAoP
UbwGL9SvSuJSemWj9AoyMXP1KMrmhsqSHWkwzVrQDt0qkd6o4SKaqkmQjFlh
W5eQQu1cFz4yEsWaWkFXt5GxY8eKJOMPacd0a55VuI2glTCJMA75j90rDFvw
G4046kYsak9JOI7UwowZMzwXRi1vCuLPsoYeHIQlPG8lrdtiGL1TvUZBqBCn
scLeL4V2RhobuczLglJNCUrkriCAcjk3YLPNNksajs2Fca685PpVapfuKCvv
j2nD2VIe4sWAFgfCsx8YKSYsjT6xdlTYnROWwk4ouEutSxBFMPPg0cp9DwmX
G7lE8kXz42gn+uBIKz5VthRLWOtMuPhzVRLJ5LsHURUHIrpfPSTHE66WTMa4
A+aXWthVaK6sWxbPLibRoYpSRVIUu0b27TTzpm5I9EUFP3zyNpHto45KhTyY
8yNHjnQ/Fsrqj5Wk1t61RTV6rdsAp+NihmJXoBt5YOp+GKWiJjqMDADCEbOE
xw56wTQxSTBMTXJ1mjgOPUFcSdpcVkFOmO3B6dZz9Se/VKh1lFSV/gYGbU52
iHLfffeJlX3eeeeJFcWbCkoULDxJGBm+xEGhFMOzmsWr9+gWw223MQ8++KDI
B+wgTAIsDBKixWvRBy5sFR2OsAc+fUh26w04mK18RhRdDj5LCweDaO7cuWrw
MA2K0TV58mQRy/xneuDiDYDjdKx8DqVb20TKIfFTppfJJBVxJ+hdQd5VARMp
jaWDliHQrz/Ki8610jsjhnKdWIhRAjaCurt0ArGfwzT6Uz29QSTKISJ6Twbn
IhOlLPVjmqDZvwFcKxq0\
\>"]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{
  "\"\<~/log/masterytime.eps\>\"", ",", "ptmaster", ",", "\"\<EPSTIFF\>\"", 
   ",", 
   RowBox[{"ImageSize", "\[Rule]", "432"}]}], "]"}]], "Input"],

Cell[BoxData["\<\"~/log/masterytime.eps\"\>"], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<~/log/masterytime.tiff\>\"", ",", "ptmaster", ",", 
   RowBox[{"ImageSize", "\[Rule]", "432"}]}], "]"}]], "Input"],

Cell[BoxData["\<\"~/log/masterytime.tiff\"\>"], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Histogram", "[", 
  RowBox[{
   RowBox[{"timebeforeFNA", "[", "principle", "]"}], ",", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"PlotLabel", "\[Rule]", "principle"}], ","}], "*)"}], 
   RowBox[{"HistogramCategories", "\[Rule]", "6"}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<time (s)\>\"", ",", "\"\<number of students\>\""}], "}"}]}],
    ",", 
   RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.402070188033487*^9, 3.402070195180802*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{0., 0}, {100., 3}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{100., 0}, {200., 2}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{200., 0}, {300., 1}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{300., 0}, {400., 2}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{400., 0}, {500., 0}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{500., 0}, {600., 0}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{600., 0}, {700., 1}]}},
  AlignmentPoint->Center,
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->None,
  AxesOrigin->{0., 0},
  AxesStyle->{},
  Background->None,
  BaseStyle->{},
  BaselinePosition->Automatic,
  ColorOutput->Automatic,
  ContentSelectable->Automatic,
  DisplayFunction:>$DisplayFunction,
  Epilog->{},
  FormatType:>TraditionalForm,
  Frame->True,
  FrameLabel->{
    FormBox["\"time (s)\"", TraditionalForm], 
    FormBox["\"number of students\"", TraditionalForm]},
  FrameStyle->{},
  FrameTicks->Automatic,
  FrameTicksStyle->{},
  GridLines->None,
  GridLinesStyle->{},
  ImageMargins->0.,
  ImagePadding->All,
  ImageSize->Automatic,
  LabelStyle->{},
  Method->Automatic,
  PlotLabel->None,
  PlotRange->{{0., 700.}, All},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]},
  PlotRegion->Automatic,
  PreserveImageOptions->Automatic,
  Prolog->{},
  RotateLabel->True,
  Ticks->{{{0., 
      FormBox["0", TraditionalForm]}, {100., 
      FormBox["100", TraditionalForm]}, {200., 
      FormBox["200", TraditionalForm]}, {300., 
      FormBox["300", TraditionalForm]}, {400., 
      FormBox["400", TraditionalForm]}, {500., 
      FormBox["500", TraditionalForm]}, {600., 
      FormBox["600", TraditionalForm]}, {700., 
      FormBox["700", TraditionalForm]}}, Automatic},
  TicksStyle->{}]], "Output",
 CellChangeTimes->{{3.402070184833377*^9, 3.40207019582179*^9}},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztXWdsFEsSbrO7trENNjnYvCMJYR4HAiEQYMETEtz7wSHC/eIPGDgwwYR3
CIMEIiOCkDDB5CQTBQj5QGSRg4RJIlrknDmCyfH2q50eZtczu9v2jN1jZuRZ
T3fP1HxdU11d3V3d/c/UkWn/Tk8dObBvau1//JU6PG1g3//U7jTsL2+UK4Kx
iDTG2P9qM1z/8F4qPz+8fz8G4gcx+ten6Z+L3bp1i+3cuZNCbiVu37597MaN
GxTK9N1+Skl6+vQpGzBgAIUilbghQ4awx48fU2iO7/Zt9K8Ka9WqFevXrx9R
O3HiBNCxI0eOsD179tD1hg0b2NevX9n69espfPz4cXb48GG63rt3L1HZuHEj
a9OmDRs3bhzd70MZxYYOHcp27NhBIZx9+/Zls2bNIjhlFGigMXjw4ILQ4ukV
Hz58UB/H8eXLlwLX+O/j6s9rH3kPq1mzJmULoQMHDrDv3797X+qD16BBA5Ur
OA8ePMju3LnDIiMjVXjPnz9ndevWLQivkh8EUXi4/vbtG11/+vRJ+VBRrGzZ
ssRtTnPevHmscuXKLCMjQ4WELACiAcf0IOERHDy3r169ovD79+/p2uVyqRyr
V68emz9/PsvKymJRUVF+HIuLi2Pv3r1T6QPGuXPn2Pbt21V4Hz9+pGxo4P2X
/iWwLVu20GtB/uLFi+zYsWPM7XYTxG3btrGqVauy5cuXs2nTprEOHTqwPn36
ULhLly6Q0TJKEdi1axebOHEimzRpEpswYQKXtrZt27IrV66o4CB9s2fPpngO
7urVqyTxBXgXyTp37uzHO3wWb94rKU9CriG72mI1Z84ctmbNmoLUPOz+/fv0
gRECByFDVZTHpk6dyh48eOBXoJ88eUL50RTonUrSs2fPVFCVlbhLly6pcS7l
9/Lly2pcZnDVUlLXyQp3oNJ69epFHxf/b968yepQWgXSX8uWLSNBWbJkiSqz
es8YxScqtFauXEkaAJ8cZ+PGjYVp1VRo5eXlsW7duhG2UaNGsXXr1gnTqqUU
BMjWokWLKI+bN28WpcMhHTp0iMrGihUr2MiRI9np06eLlD3UA2AZSk5ubq4w
rSRFEqHPJ0+eTCFfyYsVolPGX1q6d++uVoColrp27crqGWg8vXuN4rmU4Pn+
/fuTJkTM27dvhWlxNl67do2dOuWri1+/fs0SEhKEaf2NQuXVikLweQ5l7dq1
KhSoo6ZNmxY6W506dWJnzpyh0L1791iTJk2EaXHpmDlzJhs2bJifdIjQCZCO
ChUqsBcvXlDo5cuXLD4+3lA69O41iudw37x5w0aPHq0RzNhC0Imn2iA7O5vV
qVNHGEuiggU1CSpJHC76jaPPIUCrliJcqMZxgKTA41wgYmNjVUsA5SUiIkKU
lMrhR48esY4dO/oJhAgdP4GIJChQsAjBlsLhZX5dRfcGyoTB7UbxSQqZz58/
s549e6o2sCAZzsfdu3dTFL4qV7mCpBTpcFNB4Y0C1QSOEyVXgyIqklytWrWK
LPAZM2aocltIckhesGABCY3XaCMzswjshynGFVIhyEQU1CGw9MPVIYH3GsVz
tCgZuIL5mZiYKEqHqxCQycnJYSkpKcJQaimFbeHChQGNpFghOlxwb9++TfZ5
tWrVWFJSEhnlopg4LTyP2qpGjRrEHmj6wuUvnj7ymDFj1FaUCI2AmqVHjx5+
lQ+sv7oaTcwlg7NR735c68Vz2+PChQvszz//pBBqmvLlyxs+YxTP2chrKoTy
8/NZTEyMMC0uJrBdYJJpxUQck4tsKhR3X6iwdCpQl8HWrVsphFYrzEbRvHGe
axtKaEjBohelFSAqKA2pqanEst69e2saNG5q0KBpV7FiRYgL56beI0jRi+fI
IdTgBPQx2iBoQxg9YxTPOQoJTk9PJ3MM3QuZmZnCtH5TCh1qLo/Ho3K1MHig
ratXr6621aZMmVJoWpC64cOHUxqUFDocRGlxnqN0tmzZUsXVqFEjYVqKtJjV
jG6Af1TH/+GzBCnk6xsob9jSwgfnlbjOPbwnQtvqcOnERerEecK8L9y4otCT
CYvs9GTCUhz09OQ5Qlt69DsbfMU3Su1f0bvHKT6/Hj2ZsEhSfPTa5+6QaaFf
k6wT1zDM+8x+NiQbDPsgXGEkuxEgjUM1fAtKVKp45XBporSMD2zPuEOmGWfs
+KnndCbTr39cQ504vfu0cfwd/wrxDgFZ07PL3SHTbJ1lPePSHTLNlllu4EAv
Kega/VJSgN1+9/ljsj1/HegO9F8FuqNLHNFwoDvQHV0iP38d6A50B7r00B01
6IhGqYIuMnKp4/Nq404ukVEnPX/OUpB1vVGBKOUxrZNiQOe4BBnEQYD8uuJD
dP57dB3rSsl3NBqA0HMWKwVZDjbIoHV8CjWWZoOsBht40PPcsfHXtXFF6piH
jmg40B3ovzh0j1Ixaece48RkiyQ7qEjuuANneH6UwU+S/T8KGm4PHz4kz3mc
mDxu+2y52PTp09Wk3+yeHQ9r3749tcpK2VfC9AjMOC8NBaqskgStxpNq2km7
8aZTKSkymLrDD3QBDBo0yM7i5fF9NhR+X2sWKgEpifbNEy8ymPPiV2TsmR0u
eViKgCtqTKZFFWt3yfP+litXjmkPKG5bmG9czLT2ZykQMyzRwmey4lTNaTtn
y6VOqMdhd5tAa2Rj4RSuFaAhfJNByxsusFLE+WE24Ap62zVFljrn4zSP8Wne
Zsz3sQE7sMQSKnatkOixoyjzN6Rng4u6tf3KvzEPwp25EW7m/46Y342yR6m8
TlGOgna0hwop5kTzh7GsVqjvaNV0EP5scpjfZ1poMcVor1ZMMQIcqzymnYbP
77dy6ofp2XPRonhYf00VvxjlYwXMG+fZs3Kah4nZM2ydygWTF1cs44YlXXyC
5P01ywiwAGulSpVUfeBWtEKLFi382VxoG1kU8JSAt6nlcOnSpeqSWmDtiBEj
TDOtLFAzY8eOVZNwmtmIsgBu8+bNyRsEiv/8+fO05KfEcFG+sLwLNF2zZs3Y
2bNnZYRr1qCHiZC4LwxfTRJn0VrBppVw1LJYxwkHhio2bdok40flcOGOgZVA
YL9hTVgsWSsxXNT9WDGLJ0NBSQx3/PjxLDo6mkL79+83dcTARLjcF4d3ZOB/
Lflgcq6uXr1av8+lpEu/i/oK+GFqv4kFbJw7dy47efKkX1NXYrhYsxYrcPFk
QJYWrstPQM0ayDERpoSVuoSQuJ2h/ZhSaBoPLczO7Yz69etTD4C0xcFDnq7X
r1+n/iGsB4xllSWGixWfeRJOhCWGC+5iBT+4T2P1PvSfiHRtWziBwILcYiuG
hg0bUrspOTmZHT16NKwuaysnC1iQTayur5VBmDl62TR/YoBoZmiJfg9iFCXF
X7p48WJq4eKg9GBdsFbOATDx8/AdF7BjAfZ1QDa8LSjuFcCXwMcZEyS3Vrr/
W5BbtAuxxQlCXj3OUWkXAea9mwX7n63x/Dc9ly51XxCE4pWcG3Q5W+ngb2LO
JDSqiuaQLwqkgAElIUe4TGEZW2wfgw4Z2HfQDxJbHXy9cWzGc/fuXfIgkhgu
9rzBpjxYJBhcxo4eEsKVVj5dtFcRT5KwTctfD9sOOxfhcCm/rVu3Vm8v4bEg
/lLUIIrx4K2AfNYDbB80jXCHWT6FFhQlbFTFk3BqN7qRDq41TrUWcNVKZ1mz
4VrpBGsiVkPn1pIr/sXhoGqBcBo6nsoF10o3UxNhGg5gygVTO2kMnYw40OiR
XFbT0tKoN4F3NrZr166ku219Lcxo6rviLUxMj+ICgIo/KytLQqbytjE6KvhB
fTmyYo1Sqia4ZkusAvgCL0b7MRaT67HFSi1GKZJ6+wkWp0uxBVpGz9OD+2Bq
N8jj91vpKmxB9vQ8Q3j3rXajt6J7ATdGzO9IJe9e0p3a3uRgzh8+hrsDdxMz
262X30e/MaGZp+f4wYuC3vZWZi/RHi5ePc+PWAWL3sZKZq+rLspXw9nrlr7X
pEnnopk1nBUelhnj97bogMdMm6Itmiez5lCLfkBTJjmH+1Kz/LxFM1nU/rlw
32d+R1twYbWyx0xUgM3q+gr3vYXpDhbNk1njDqLvNWsAQfS9hiMBJsiqld/L
oV3KaDvyZgltkaa1Sa5PYtDCaw+b5a8ULrYqSpK28RqtxBXOucjvzdTW0Lbr
qipPF2xNmucMJJZ3w3akWd46omJi3FYsuk+NKJZg7UGzvGFk0B6OZnZoO/JW
inhrV9qOTDi0HZko1hZDXl4e9bljwgRsHO7NbcFgnBg0Dw1k89YA5sElJCRY
NoIWLjZuwcP8y87O1ljpQYa7frYcaLjnp5Bq2wbcHkcXKg4sSJWbmxvOYFOQ
vPI4m+yczNkL6cvJyWEpKSlFWrCGx+m1FmTaZ1smLLLTkwlLcdALUly4puT9
Fwjl5+ezmJiYIg2w2oVdMmGRnZ5MWCQpNqhl0tPTaRQmIyODZWZmhh7v/wGC
f+BHqbiJ9MDg1yzi/8xpDdU=\
\>"]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Function", "[", 
   RowBox[{"principle", ",", 
    RowBox[{"Block", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"cutoff", "=", 
         RowBox[{"Length", "[", 
          RowBox[{"Select", "[", 
           RowBox[{
            RowBox[{"numberstudents", "[", "principle", "]"}], ",", 
            RowBox[{
             RowBox[{"#1", ">", "0"}], "&"}]}], "]"}], "]"}]}], ",", 
        "pavgerr", ",", "pavghint"}], "}"}], ",", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Length", "[", 
          RowBox[{"attemptsbeforeFNA", "[", "principle", "]"}], "]"}], ">", 
         "1"}], ",", 
        RowBox[{
         RowBox[{"pavgerr", "=", 
          RowBox[{"ListPlot", "[", 
           RowBox[{
            RowBox[{"Take", "[", 
             RowBox[{
              RowBox[{"avgerrors", "[", "principle", "]"}], ",", "cutoff"}], 
             "]"}], ",", 
            RowBox[{"DisplayFunction", "\[Rule]", "Identity"}], ",", 
            RowBox[{"PlotStyle", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"Hue", "[", "0.6`", "]"}], ",", 
               RowBox[{"PointSize", "[", "0.015`", "]"}]}], "}"}]}]}], 
           "]"}]}], ";", 
         RowBox[{"pavghint", "=", 
          RowBox[{"ListPlot", "[", 
           RowBox[{
            RowBox[{"Take", "[", 
             RowBox[{
              RowBox[{"avghints", "[", "principle", "]"}], ",", "cutoff"}], 
             "]"}], ",", 
            RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
            RowBox[{"Frame", "\[Rule]", "True"}], ",", 
            RowBox[{"Axes", "\[Rule]", "False"}], ",", 
            RowBox[{"PlotStyle", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"Hue", "[", "0", "]"}], ",", 
               RowBox[{"PointSize", "[", "0.015`", "]"}]}], "}"}]}], ",", 
            RowBox[{"DisplayFunction", "\[Rule]", "Identity"}]}], "]"}]}], 
         ";", 
         RowBox[{"Show", "[", 
          RowBox[{"pavghint", ",", "pavgerr", ",", 
           RowBox[{"Axes", "\[Rule]", "False"}], ",", 
           RowBox[{"Frame", "\[Rule]", "True"}], ",", 
           RowBox[{"BaseStyle", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"FontSize", "\[Rule]", "12"}], "}"}]}], ",", 
           RowBox[{"DisplayFunction", "\[Rule]", "$DisplayFunction"}], ",", 
           RowBox[{"RotateLabel", "\[Rule]", "False"}], ",", 
           RowBox[{"FrameLabel", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"\"\<opportunity\>\"", ",", "\"\<average\\nnumber\>\""}],
              "}"}]}], ",", 
           RowBox[{"Epilog", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"PointSize", "[", "0.015`", "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"Text", "[", 
                RowBox[{
                 RowBox[{
                 "\"\<before application of\\n\>\"", "<>", "principle"}], ",",
                  
                 RowBox[{"Scaled", "[", 
                  RowBox[{"{", 
                   RowBox[{"0.5`", ",", "0.74`"}], "}"}], "]"}], ",", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "]"}], "}"}], ",",
               
              RowBox[{"{", 
               RowBox[{
                RowBox[{"Hue", "[", "0", "]"}], ",", 
                RowBox[{"Point", "[", 
                 RowBox[{"Scaled", "[", 
                  RowBox[{"{", 
                   RowBox[{"0.48`", ",", "0.88`"}], "}"}], "]"}], "]"}], ",", 
                
                RowBox[{"Text", "[", 
                 RowBox[{"\"\<hints received\>\"", ",", 
                  RowBox[{"Scaled", "[", 
                   RowBox[{"{", 
                    RowBox[{"0.5`", ",", "0.9`"}], "}"}], "]"}], ",", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "]"}]}], "}"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"Hue", "[", "0.6`", "]"}], ",", 
                RowBox[{"Point", "[", 
                 RowBox[{"Scaled", "[", 
                  RowBox[{"{", 
                   RowBox[{"0.48`", ",", "0.8`"}], "}"}], "]"}], "]"}], ",", 
                RowBox[{"Text", "[", 
                 RowBox[{"\"\<errors made\>\"", ",", 
                  RowBox[{"Scaled", "[", 
                   RowBox[{"{", 
                    RowBox[{"0.5`", ",", "0.82`"}], "}"}], "]"}], ",", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "]"}]}], "}"}]}],
              "}"}]}]}], "]"}]}]}], "]"}]}], "]"}]}], "]"}], "/@", 
  RowBox[{"Take", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"#1", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], 
       "&"}], ")"}], "/@", 
     RowBox[{"Sort", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"N", "[", 
            RowBox[{"Mean", "[", 
             RowBox[{"attemptsbeforeFNA", "[", "#1", "]"}], "]"}], "]"}], ",",
            "#1"}], "}"}], "&"}], ")"}], "/@", "operators"}], "]"}]}], ",", 
    RowBox[{"-", "25"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.402070281328565*^9, 3.402070282533518*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   GraphicsBox[{{{}, 
      {Hue[0], PointSize[0.015], 
       PointBox[{{1., 0.65}, {2., 0.666666666666667}}]}, {}}, {{}, 
      {Hue[0.6], PointSize[0.015], 
       PointBox[{{1., 0.9}, {2., 0.333333333333333}}]}, {}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->False,
    AxesOrigin->{0, 0.65},
    BaseStyle->{FontSize -> 12},
    DisplayFunction->Identity,
    Epilog->{
      PointSize[0.015], {
       InsetBox[
        FormBox[
        "\"before application of\\nDRAW-ACCEL-SPEED-UP\"", TraditionalForm], 
        Scaled[{0.5, 0.74}], {-1, 1}]}, {
       Hue[0], 
       PointBox[
        Scaled[{0.48, 0.88}]], 
       InsetBox[
        FormBox["\"hints received\"", TraditionalForm], 
        Scaled[{0.5, 0.9}], {-1, 1}]}, {
       Hue[0.6], 
       PointBox[
        Scaled[{0.48, 0.8}]], 
       InsetBox[
        FormBox["\"errors made\"", TraditionalForm], 
        Scaled[{0.5, 0.82}], {-1, 1}]}},
    Frame->True,
    FrameLabel->{
      FormBox["\"opportunity\"", TraditionalForm], 
      FormBox["\"average\\nnumber\"", TraditionalForm]},
    PlotRange->{All, All},
    PlotRangeClipping->True,
    PlotRangePadding->{Automatic, Automatic},
    RotateLabel->False,
    ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztW2eUVEUWbqa7Z2AGGAYkDmlJohJdA7rsckRYREFRwPWg7ICAEkVhyMMy
KIICEgQUZDBgJCioIMcABySIAQFFGJUkWUBEJAfv1ncr9Ovueq/fAJ79s3XO
zHuV7qu699aN1a07Z3fv1qdzdo8unau26Nf50e49uvSv+s++/URTsFAgEFgk
/vpWDeCdxKv6t4hEEZ1Rjyx+hGjmzJkYRUOGDKH8/PyQvbmuat63bx+lp6fT
PffcQ2fPni3nhBWkP/74gydt2bIlELa01VNQ0LZy5Ur69ddf6e2331ZQOqkZ
ajTXwpa2BqotNzeXVAmUkSDuU5MAvG3btjRhwgR+irqYgL5kBtWiRQt65pln
6IknnqCHH36Yjh49muSn2w45SW1r1qxZPH348OG0bds22VycWrduTQ0aNKA3
3niDFwuUVqpUifr160evvPIKFSlShIYNG0bHjx+nvLw8BpGTk5NEO3bsEAsS
r9wE6C+99BK/T5s2LUlhwQE9oNtOnjxJJUuWpG+++SZQVmLmX/xIoQsXLvDH
P/vsM17MmjVruC7aA04UfP755xq59PTTT9MDDzyg9+PSze8e4PXinKSUbanc
9uWXXxqQycnJtGzZMn4Xm9BznAtUILjgXbS5dSvoQbUA4Lhs2bL0zjvvxGJn
586dPPr06dM889SpU1z/6aefXKFj3eJIOLFj6eZ3D/CJsBO7H113HK9LwI6Z
HWaAdevWpdGjR9Nbb70FXtKn61Kw9MUXX1CSKC5YUt0FwdJ3333nwFKCfSXs
3rx5MzdZu4vEzf74448pNTWVfvnlF9q9ezfNnj07GktpfBQqV67MRwBl9erV
XEe7k3LiTJs9DBgwgOrVqxfbL7urRHUnAn/+/HmePnToUFqyZAkdOHDAi3k8
6zNmzDBLXLhwoeFnH8wHUdqrVy9NuC5duvAs1K6Qy9Eye9WqVdSuXTuaOHEi
P0VdfTQd8o5KlSrF8m/w4MHUtGlTuvrqq83mPfoDSQnh12aRnJmZScuXL6cq
VarQ9OnTafz48bybRx55hEUG5G/p0qXN7iC6y5QpY+pTp07lNcyfP581QPv2
7alatWr08ssvc79AIrOMHh8LHwcO9UcffZR+++03KB267rrraMSIEaUlpoYr
JLZs2dLIiAz8T3LKV2dvxeiJ69evp59//plrJVQbdPDtt9/OtSTLOAVikupC
c82aNbn2F9llNS8u66MZPwrTp59+Sv3792c0AX1QDSj79+8H72tKC93LFB43
bhzdfffdtHXr1oC0a9ISgeD3b7/9lgoVKiR2Kxhd/IcqVUWhKOFSpK4J0fff
f8+6HcNefPHFUME2smnTJrr//vtp0qRJlJWVRZ988kmggCDeffdd6tChA4MA
qPfffz+gFaHaJ+8yif+HzF59oFT2BZoraErNOLBUhEU4zpsuzZs3pzlz5vA7
lIuoGxMvfn5y3PyePXvSV199pfl0+/bthjBBVzBBJxjrOPclpMYtoVGjRvT1
11/zOzQVECYs4ZBPEDDy0tLSaNeuXVwXSo2KFi1KJ06cCCrKqk2aL+pdKjCa
JDZcepBE7jEFH2JNC0seZc+ePVyHnrdtIlm1nTt3jgYOHIiVCSjuOOzcuTNp
zyOo/i9YsMDQKcljbZBFaDtz5gwPxlpRjxxg+7wff/yR2zBeIxl1wbWG3s71
J/vARaHEqBTL4jaARhFs4LlciTbp/owdO5bPpHi3cV9Y/QebwBNBUf2GIrYl
/fDDD1pjsxcwcuRIVjpip54YBMZhE48aNYrnwfOB3S62FgjZlx3ygQUfSNQr
jp0O2tlWXES1devWjVW9XJsb34ZY/W7cuFH3uSMvaAxPocEFm5YrV0606RNG
LqIjWUFYtGgRhcNhbi9WrBgcJHNMnEsN+ti2D6yBwyG6nZwbDAYTnOKwtr24
rF27FrxhlX4aexgP4wgYTIA97ASSDY5+YddxyfT777+z3fTqq6+ySIOtdO21
14Y8VqhZzWvXMUiDdxC7+VtvvdXQ880334RtalZvGw9LEKYQCqxHYSFax2s6
Y1ldu3aNOqQ2uDCCoUhRINwfe+wxK1yNsb1793IbMIcCZ0lo61DCZdq3rJRE
M/VF2LwdO3akjIwMtZMwn2moeRx3qH2xSsNWtvHCleZABEQV7N7Fixdbx+vD
C6tE79ILLuxgKJQxY8ZwyOm1117zHD9lyhSmgLZ24OKHPNYY9tivQpN/K5Vt
6C4gfoqjIShVIK854PAwtSK0tIWdbRKUKKE/Fcb/4psFhBGMRW0EAA/KsAAt
cfnaArGfT0JDlnmzr4xrWZa2cEJIN/KjsM32ZhB+XA3f69Afs1iV/K6MT5tu
Cblv4QZ+eBtaWqvGG45hp+FoSNDZfRP6c14mSVBNsFlWDIYhdzRvMTtJbK7E
mRzhglFCfymxio9Tz+FEzGRXCFpXOfWXbdH1FI8g4AWtjT64oJC2jz/+OOu1
1atXy4OcFjXsueee4w2Bl6H8EfuePHky+zoQ6tqthiXfvXt3CoVChjqwRxEj
nzt3ruaVW265hXr06KE+JNsEuGmaJZOjN20T71ppx6kixprOMeiwYCQ8HuSY
H4JLK1asMI5ubPgQ7h6CP9qagdutrRig6d577zVjP/jgA0pJSaHevXubVMLB
gwf5gAjDCJG8tAg1WsXs0SZv6quVOk+pTn+88MILjD5dYqLDnTp1orvuust0
b9iwgd577z29dzAhzNxly5aZvffq1YvatGnDgSwds4X/gYAaFDLwVFTOr+8p
ATXS45edyjYPHJmYZTOCIfkQmZs1a5YcnkFNmjShJ598kg2HG264gWrVqmVo
gWfVqlXBd2wUAP8ozZo1Y76EG9CnTx/56RSAUqvQJepIpSeSz/wOvN1xxx3m
uIAHHEaVT+qF+aDjbDjQYLzsVq1acaycIsoUcWmOVUNcVaxYEWcqoM8nwj+A
deTIETYtxZ45Sgy+g+WNgmAieD/Nsk5FP5VRQU9OTk5Apq0qR6WtUPxkvUaM
GMF1nXzUdd2PjB/qKI0bN6Y777yTY1/wWiE1TJ4ulfN0119/PR80yLSPPvqI
p8Xk6AorXCRQe/yOiJvgKSMH4PJhFYY+CZkYGcCGDRvGMTEKKAAnUXChJjYE
H6ScEB4sIA4fPmyIB+Z2HmNoTzAWGFszOkiAKHeqWVyKIZl6YQbSOHMuB6WA
WTgf3WvWrNHdOC06a4hcRYUKFWjevHmaceEdxgBWXqW3NaHFOgJo6qBYrW99
yByC2xD22LFjnFIVyzFyMVbAI8EpvF39AVAOvCB2ZFx8sJ/WYSiQiYgWZmdn
m0/hnAm5rwgQv8zIGfNDMCfKfeRmCtbtTGSKI87dghK2DH2K+p84QBZmRgYB
Efu77777qE6dOg5zX5sccJOhX7RUgO2A2BacPKOeUqKGIS391FNPsc/n9Buh
LdAfydwXM7mYvn37snpH0V63TnUjHwOmRbRWmDOSG50mopVICTKL8ZlQFxra
aVosbjr0JKxEFJi46Id4hCKEsVW4cGHDfOjTWVRNssT2bZjjWbj7AEOgfv36
4AyrIsuytEUYOj65WMYtuehZF6eU65AGqENaooAXUBfMJcGX4qojoEeDBg1i
C0uDu/LKK03kHYIPeXAUSy7VxJD9ROKg7TUCeJ7dRg9USJhE9JOERB0aFLu7
6qqrOP0DeNC8sIOEnnfehQFPY2Mwf5BcNvmVNLY2kHfSKVN9q8OSLjUhGK8g
G2Do7G9ywRimkgLhFDNl1QCbea8jO4ga4cSCq/AnTA4vh7Wi+ozz1tI1BVup
BvH8888zKfLz8yWIS/LyE6cEL7err+WXS8IrYvHEbcm/1++d8rHpbY99+ff+
vfMkPObiowDaR02UTbDFwHzszkveOHNdOhSf4k4nr5iAPj+2WPVF8Zv3MXUN
9CYMsiFgxDUZz072dgxKuDoGDh+GzyKK5bKf1p3ajyCK9sR5lTIJkapNXo0Q
b5u3hLF5YzWdx6U6+WUZNVO4qa7WBPmj0Q0zFBcZBd8W526fUcUgouR8MOAE
2mJCzRxbdbv2FmctRpstXtfJFHHJQftqamXaPjt48KCxaKC0EZqRHyE/Yk5v
FHof4IQf5oijNbesF8W/meV7r05SRu81hYfBcYR9BFmD4wIzuHjx4mqf3tLW
eRn3mmuu4XtRNmpKryidVv5IdP1oontfIOo6m+ijzXLArFWi+yGi4e8SbTtk
bVPbzmAYbacTTfhYPgPlGhs66DnlW89kOFhXjTqNqPGoozT6AzF+/C4q23Jq
HArz1Lz0phNp6Yq1NHNlpH7s5AXTH/jrCGNUsZ3OX4BggTbDca5RowZfezLW
YcQxeP3115UkvcJvGCHRJ5jebdq0SWLiFmHWqV27NkKaPNXyGV9OlI7cYlnw
e1CLdZ6CdF6IiQoDieatiwSGXl1reJkxtmW/9pPTdd2UC8JiqzRI+Lxyn7RG
PAMddtHYceON5Yg58z/ZpOBfQQuX59M/HnyeTce72v+b+3cfIT4kWD1WC12D
9tcXrzM383TdHIaH6ECgRG1NTH4a0x4uGdw1vOOusz7LiLLBgRcWrxENDnkb
QYIlyKB9a5dv8FhEzGCFr1u3LuQKPugE7+u6g45dqDv3qhZ/SjVddxyWtDtx
xnFRPkI7EyuKpedONe+0XAKdOivry77Ql7pKxM05J3jouJBZc74kajxWnNwB
RCfPRqHOyUsmphADRtRrx5EThwNSCcFYp+HtvEUGpwj8AkMNKgrFoVfU/uP1
kAtsDRoXPdEEQVmnTh2Y03GgUxXpvCwvTTqYsQjZ4d5MxEKur7Cx64hE0KjF
RGOWEPV8g6hwLzL+uOj6bl887VSblXYnz/wRQ7sicXMwtk6uPMPDFhLt/ZWM
ZIUdgUAw/AonseClWeognpas+hSBlT/88EMTRImQrijH2BEDxxh4k9qUdNGZ
7ve7S9k+w6AOHz7MZAB3gNq4uiSsba/PqEiil+WbHBUoQFm6dCnca/cDWZ2R
dOVwoq92yo5l4gzXHSnfIYSB0KELiJZsIjrwm70NwrbyYClkUQaMX0DBjnto
85Z8Vziarw7J+yGUszBCYKgYXCm+6aabecy8dXLMvqNyzvsbZX37Ia5nBtIy
A9HH89ChQ3yhGuYm+Bs7F2JMfaEW6ztNVxwxGFgYW8CIitt3eDzyYSAyQrMo
CMplZGSYb1q+o2ns7nYk02233ca3tXR0QNhTVL169diTWxMKnzaWrEdZfdfT
xA/PU7vBO+izMo2I/vMfGjL3LGX2PkHLyzehKr2P0fQVRENyN1Dm/Xto+cA8
qjLgHE1/5zDi8bSq3N947kQhZtp1XEWr/t6JCL8LEnsf0mEuZfY4Rsv7TKEq
PY8yHJQR7xENelsYWCPX041thN4WNofQF0ZETM3bSmUePEIzH5hOg7otoauy
j1OHPKGOBaX7PbufamX9tO2Om5/Ny4vYlfLqNmMOFEBkCO4BQqWgDIq+SgAL
B+YnHHVQLzs7m/sLEBty+47JdiIvgig4ghqtWrVKgh0kbRvbZzItJ1BLWPYX
HOJf1ZP8dBeTXY5QLb/rnyWhT/2CSxgFsm/3bpPVjQMNPAqDgIxBIMZogwCO
GzKDAjeSHoYyteXmjIOAWhXDjg3+vG3q4bBLkGKD9ENyq3x5ZODdtykUJbc5
LpiatqNHA5cQ6rJdXXfPl8bsmvWVf6QUJdq82R0pIIawDoS2xMFAbkBKkBJy
mNRUsuBeN9qExhEqB1fWhY6XPohgF9knY11xmCnhKw2Z6Aa5g1GKy8+pADnB
x0Rd2C0xOIquz5hhkCL8TVJefBxS9E4PKUcwJ0dSJ0PyPrrEmRfiXSipAxK6
kNKkb7Yjsai0Affhd00rV2LxNWrER9z8xBJ9XAO3ME5YLlUwGQ0cKJfYs6c6
sqWBDCLcO9C7njqVhDEqpOt8KYjbtyeqJvx0FaAX5omEB28sL0+2CU+dBg2S
42+80fwWRchKErKShKwkISu1OIDQIyH0cItEaIl2SDYaUSm8VOGSdyWaPHnp
0jgs+Ql9el31joQ+ZdA7OQATIapIDpBZDAgylbXEVQGNJBmYv7jbU/ab1LZj
r70gBxsbL0hoKyL1oyazQFyRVT9qKm+BV+A4q/dVZof5EJRcIwYKty6yRqxF
/ZKqppnhIzQbUl/3vBZ8WaOzrtdq/V+B1EkUh4gNNHRfVcJrkf6u3YAoSKHB
uMA4XHERxszFRbDTfYlnxAvwO019CQNuR25u7qXektQOJi54w5+VtQLtwo+Q
0IcQ94ZgU+M6GH6YCKcpElj6U27aXlyeJZldAtyOgX+GAk9fHNwYErON9f9r
2JcVRsBCMT9iEycXIEBNFNj4QowydOf9eT9CEJxRXtio0P0oCMwKo/GRaAhe
wg0/nAabQz6gT6w4oKZ73fYPFPovJ2nlDQ==\
\>"]], ",", 
   GraphicsBox[{{{}, 
      {Hue[0], PointSize[0.015], 
       PointBox[{{1., 0.388888888888889}, {2., 1.14285714285714}, {3., 0.}, {
        4., 0.}, {5., 0.}}]}, {}}, {{}, 
      {Hue[0.6], PointSize[0.015], 
       PointBox[{{1., 0.444444444444444}, {2., 1.14285714285714}, {3., 0.}, {
        4., 0.}, {5., 4.}}]}, {}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->False,
    AxesOrigin->{0, 0},
    BaseStyle->{FontSize -> 12},
    DisplayFunction->Identity,
    Epilog->{
      PointSize[0.015], {
       InsetBox[
        FormBox[
        "\"before application of\\nWRITE-NET-FORCE-COMPO\"", TraditionalForm],
         
        Scaled[{0.5, 0.74}], {-1, 1}]}, {
       Hue[0], 
       PointBox[
        Scaled[{0.48, 0.88}]], 
       InsetBox[
        FormBox["\"hints received\"", TraditionalForm], 
        Scaled[{0.5, 0.9}], {-1, 1}]}, {
       Hue[0.6], 
       PointBox[
        Scaled[{0.48, 0.8}]], 
       InsetBox[
        FormBox["\"errors made\"", TraditionalForm], 
        Scaled[{0.5, 0.82}], {-1, 1}]}},
    Frame->True,
    FrameLabel->{
      FormBox["\"opportunity\"", TraditionalForm], 
      FormBox["\"average\\nnumber\"", TraditionalForm]},
    PlotRange->{All, All},
    PlotRangeClipping->True,
    PlotRangePadding->{Automatic, Automatic},
    RotateLabel->False], ",", 
   GraphicsBox[{{{}, 
      {Hue[0], PointSize[0.015], 
       PointBox[{{1., 0.944444444444444}, {2., 
        1.14285714285714}}]}, {}}, {{}, 
      {Hue[0.6], PointSize[0.015], 
       PointBox[{{1., 0.444444444444444}, {2., 0.571428571428571}}]}, {}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->False,
    AxesOrigin->{0, 0.9500000000000001},
    BaseStyle->{FontSize -> 12},
    DisplayFunction->Identity,
    Epilog->{
      PointSize[0.015], {
       InsetBox[
        FormBox[
        "\"before application of\\nWRITE-IMPLICIT-EQN\"", TraditionalForm], 
        Scaled[{0.5, 0.74}], {-1, 1}]}, {
       Hue[0], 
       PointBox[
        Scaled[{0.48, 0.88}]], 
       InsetBox[
        FormBox["\"hints received\"", TraditionalForm], 
        Scaled[{0.5, 0.9}], {-1, 1}]}, {
       Hue[0.6], 
       PointBox[
        Scaled[{0.48, 0.8}]], 
       InsetBox[
        FormBox["\"errors made\"", TraditionalForm], 
        Scaled[{0.5, 0.82}], {-1, 1}]}},
    Frame->True,
    FrameLabel->{
      FormBox["\"opportunity\"", TraditionalForm], 
      FormBox["\"average\\nnumber\"", TraditionalForm]},
    PlotRange->{All, All},
    PlotRangeClipping->True,
    PlotRangePadding->{Automatic, Automatic},
    RotateLabel->False], ",", 
   GraphicsBox[{{{}, 
      {Hue[0], PointSize[0.015], 
       PointBox[{{1., 0.368421052631579}, {2., 1.4}, {3., 0.}, {4., 0.}, {5., 
        1.}}]}, {}}, {{}, 
      {Hue[0.6], PointSize[0.015], 
       PointBox[{{1., 0.421052631578947}, {2., 0.9}, {3., 0.}, {4., 0.}, {5., 
        2.}}]}, {}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->False,
    AxesOrigin->{0, 0},
    BaseStyle->{FontSize -> 12},
    DisplayFunction->Identity,
    Epilog->{
      PointSize[0.015], {
       InsetBox[
        FormBox[
        "\"before application of\\nCOMPO-ZERO-VECTOR\"", TraditionalForm], 
        Scaled[{0.5, 0.74}], {-1, 1}]}, {
       Hue[0], 
       PointBox[
        Scaled[{0.48, 0.88}]], 
       InsetBox[
        FormBox["\"hints received\"", TraditionalForm], 
        Scaled[{0.5, 0.9}], {-1, 1}]}, {
       Hue[0.6], 
       PointBox[
        Scaled[{0.48, 0.8}]], 
       InsetBox[
        FormBox["\"errors made\"", TraditionalForm], 
        Scaled[{0.5, 0.82}], {-1, 1}]}},
    Frame->True,
    FrameLabel->{
      FormBox["\"opportunity\"", TraditionalForm], 
      FormBox["\"average\\nnumber\"", TraditionalForm]},
    PlotRange->{All, All},
    PlotRangeClipping->True,
    PlotRangePadding->{Automatic, Automatic},
    RotateLabel->False], ",", 
   GraphicsBox[{{{}, 
      {Hue[0], PointSize[0.015], 
       PointBox[{{1., 0.380952380952381}, {2., 0.388888888888889}, {3., 
        0.8}, {4., 6.}}]}, {}}, {{}, 
      {Hue[0.6], PointSize[0.015], 
       PointBox[{{1., 0.523809523809524}, {2., 0.0555555555555556}, {3., 
        0.8}, {4., 1.5}}]}, {}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->False,
    AxesOrigin->{0, 1.},
    BaseStyle->{FontSize -> 12},
    DisplayFunction->Identity,
    Epilog->{
      PointSize[0.015], {
       InsetBox[
        FormBox["\"before application of\\nDRAW-WEIGHT\"", TraditionalForm], 
        Scaled[{0.5, 0.74}], {-1, 1}]}, {
       Hue[0], 
       PointBox[
        Scaled[{0.48, 0.88}]], 
       InsetBox[
        FormBox["\"hints received\"", TraditionalForm], 
        Scaled[{0.5, 0.9}], {-1, 1}]}, {
       Hue[0.6], 
       PointBox[
        Scaled[{0.48, 0.8}]], 
       InsetBox[
        FormBox["\"errors made\"", TraditionalForm], 
        Scaled[{0.5, 0.82}], {-1, 1}]}},
    Frame->True,
    FrameLabel->{
      FormBox["\"opportunity\"", TraditionalForm], 
      FormBox["\"average\\nnumber\"", TraditionalForm]},
    PlotRange->{All, All},
    PlotRangeClipping->True,
    PlotRangePadding->{Automatic, Automatic},
    RotateLabel->False], ",", 
   GraphicsBox[{{{}, 
      {Hue[0], PointSize[0.015], 
       PointBox[{{1., 3.28}, {2., 2.09090909090909}}]}, {}}, {{}, 
      {Hue[0.6], PointSize[0.015], 
       PointBox[{{1., 0.84}, {2., 0.727272727272727}}]}, {}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->False,
    AxesOrigin->{0, 2.2},
    BaseStyle->{FontSize -> 12},
    DisplayFunction->Identity,
    Epilog->{
      PointSize[0.015], {
       InsetBox[
        FormBox[
        "\"before application of\\nDRAW-VELOCITY-MOMENTARILY-AT-REST\"", 
         TraditionalForm], 
        Scaled[{0.5, 0.74}], {-1, 1}]}, {
       Hue[0], 
       PointBox[
        Scaled[{0.48, 0.88}]], 
       InsetBox[
        FormBox["\"hints received\"", TraditionalForm], 
        Scaled[{0.5, 0.9}], {-1, 1}]}, {
       Hue[0.6], 
       PointBox[
        Scaled[{0.48, 0.8}]], 
       InsetBox[
        FormBox["\"errors made\"", TraditionalForm], 
        Scaled[{0.5, 0.82}], {-1, 1}]}},
    Frame->True,
    FrameLabel->{
      FormBox["\"opportunity\"", TraditionalForm], 
      FormBox["\"average\\nnumber\"", TraditionalForm]},
    PlotRange->{All, All},
    PlotRangeClipping->True,
    PlotRangePadding->{Automatic, Automatic},
    RotateLabel->False], ",", 
   GraphicsBox[{{{}, 
      {Hue[0], PointSize[0.015], 
       PointBox[{{1., 1.88}, {2., 0.19047619047619}, {3., 0.75}, {4., 
        0.}}]}, {}}, {{}, 
      {Hue[0.6], PointSize[0.015], 
       PointBox[{{1., 0.76}, {2., 0.285714285714286}, {3., 0.25}, {4., 
        0.}}]}, {}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->False,
    AxesOrigin->{0, 0},
    BaseStyle->{FontSize -> 12},
    DisplayFunction->Identity,
    Epilog->{
      PointSize[0.015], {
       InsetBox[
        FormBox[
        "\"before application of\\nDRAW-VELOCITY-STRAIGHT\"", 
         TraditionalForm], 
        Scaled[{0.5, 0.74}], {-1, 1}]}, {
       Hue[0], 
       PointBox[
        Scaled[{0.48, 0.88}]], 
       InsetBox[
        FormBox["\"hints received\"", TraditionalForm], 
        Scaled[{0.5, 0.9}], {-1, 1}]}, {
       Hue[0.6], 
       PointBox[
        Scaled[{0.48, 0.8}]], 
       InsetBox[
        FormBox["\"errors made\"", TraditionalForm], 
        Scaled[{0.5, 0.82}], {-1, 1}]}},
    Frame->True,
    FrameLabel->{
      FormBox["\"opportunity\"", TraditionalForm], 
      FormBox["\"average\\nnumber\"", TraditionalForm]},
    PlotRange->{All, All},
    PlotRangeClipping->True,
    PlotRangePadding->{Automatic, Automatic},
    RotateLabel->False], ",", "Null", ",", 
   GraphicsBox[{{{}, 
      {Hue[0], PointSize[0.015], 
       PointBox[{{1., 3.96}, {2., 0.9}, {3., 1.}, {4., 1.13333333333333}, {5.,
         0.}, {6., 0.}, {7., 1.}, {8., 0.}}]}, {}}, {{}, 
      {Hue[0.6], PointSize[0.015], 
       PointBox[{{1., 2.36}, {2., 0.65}, {3., 0.894736842105263}, {4., 1.2}, {
        5., 0.4}, {6., 0.333333333333333}, {7., 1.}, {8., 0.}}]}, {}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->False,
    AxesOrigin->{0, 0},
    BaseStyle->{FontSize -> 12},
    DisplayFunction->Identity,
    Epilog->{
      PointSize[0.015], {
       InsetBox[
        FormBox[
        "\"before application of\\nDRAW-ELECTRIC-FORCE-GIVEN-FIELD-DIR\"", 
         TraditionalForm], 
        Scaled[{0.5, 0.74}], {-1, 1}]}, {
       Hue[0], 
       PointBox[
        Scaled[{0.48, 0.88}]], 
       InsetBox[
        FormBox["\"hints received\"", TraditionalForm], 
        Scaled[{0.5, 0.9}], {-1, 1}]}, {
       Hue[0.6], 
       PointBox[
        Scaled[{0.48, 0.8}]], 
       InsetBox[
        FormBox["\"errors made\"", TraditionalForm], 
        Scaled[{0.5, 0.82}], {-1, 1}]}},
    Frame->True,
    FrameLabel->{
      FormBox["\"opportunity\"", TraditionalForm], 
      FormBox["\"average\\nnumber\"", TraditionalForm]},
    PlotRange->{All, All},
    PlotRangeClipping->True,
    PlotRangePadding->{Automatic, Automatic},
    RotateLabel->False,
    ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztWgeQlUUS/tnIBhYRWZIEAQkSDQje6ZWHcoAElVSKIlLAkRXJYZEgwokI
WkABB4gCgkg+4BBQjpMoyQIJS87JJUpcUl9/PTP/m33vf2/fE72ru7qp2n3/
pJ7p7pnub3qmfsvu7dp0btm9fauWxWt1bdmlXftW3Yr/6e2uXBSdw3GcJfzX
p7iDb+JP/W8JceLKLD/N5SeGJk6ciFbUp08fSk9Pj/EurqiLT548Sblz56aG
DRvSzZs3C9u0ounu3bvSaffu3U6sR1klTQVlq1evpgsXLtDcuXM1lTd0D91a
crEeZVV02cCBA0knp6Ai0VR3AvFGjRrRyJEj5Zfz3AF1cUKqVq1a9NFHH9F7
771Hbdu2pYsXL0aFU+1NOUqzNXnyZOnev39/OnDggCpOofr161OVKlVoxowZ
MlmItEiRItS1a1f6/PPPKSEhgfr160dXrlyhSZMmCYm0tLQoOnToEE+IP6UI
1KdMmSLfY8eOjdJSsKg7puzatWt0//330/bt251CSjJN5Cee7ty5I4OvX79e
JrNu3TrJc7lji+D77783wqUPPviAXn/9dcNPkGr5DkHeTM5WpSpLlLJNmza5
JOPi4mjlypXyzUyYPvYENQlJ+OayYNWaerSeAGScP39+mjdvnr90Dh8+LK1v
3LghPa9fvy75I0eOBKWOefOWsKXjUS3fIchnJx1/fkze2l73IB23d6wQrFix
Ig0dOpS+/PJLrCWzu+5FShs3bqQoTkGkpKsjkdLOnTstKWXDV7bVu3btkiLP
6oSA3itWrKDExEQ6d+4cHTt2jKZOnZpVSkmyFYoWLSpbAGnt2rWSR7mtOd7T
Lg89evSgSpUq+der6mJZqrMjf/v2benet29fWrp0KZ0+fTrU4gmZnzBhgjvF
BQsWuOs5jMUHU9qxY0ejuFatWkkv5PKr6RibvWbNGmrcuDGNGjVKfjmvB80N
e0d58+YV+9e7d2+qUaMGPfLIIy7zIeqdqGzplxWTXLhwYVq1ahUVK1aMxo8f
TyNGjBBu3nrrLTEZsL/58uVzuYPpTk1NdfNjxoyROcyZM0c8QJMmTahEiRL0
2WefST0LUZaMae9PHxsO+S5dutClS5fgdOiJJ56gAQMGFFCS6qeFWKdOHddG
5MH/KNu+2rXFsnb84Ycf6MyZM5K7T5fBB7/wwguSi/Jop0mM1FUofvjhhyVX
SlV5wotf9edZrcLvvvuOunXrJmKC+ODfEvXEfvzxR8qRIwfWJvOB/9HiA3Vi
s6UWKNT29NNP0+DBg2UptGnThvbv358s1TG0Z88eccYY4tNPP03UvY4fP051
69aV0T/++GNZxwcPHkzUE9uxYwe99tprUtWiRQv65ptvnGQ9sSVLloje4WGT
dPuFCxdSs2bNpD36LVq0SOMT54+6m7bakkvW3Tp06ECbN282PGEGbJvUDB97
7DFZviYtXrwYyyeXBznDFMT5/vvvZ+nCojHV1atXp61bt0oVbDKkyZgvSVPE
REDx8uXLmmK8QJikpCQ6evSodGOTTcnJyXT16lW9uELwF023bt2inj17grST
W5dt2LCB4uOV9hJ0WcuWLcmg22j9f/78+a6u7SnGxChIm1NPEesdfTMzM6Ux
T03yvAbcfrBQ5cuXF/NhWNu3b5+0Q3sksIo8A71QrOXS6wokhw8fLhrn7ySr
GMJ6/vnnsabMekIRACiSpuYuAmgMyxGMvPLKK1ShQgUtmHjau3evMdgCAgcN
GiRrD/I3Ql6+fLnYHJ9A40UYgERDhgyRfgC+gG2skFDMGR1hD8Hs+kjG0quv
virtChQoQNOmTbOWf4yYxG3bthlahjOQAaaOjY2lypUrAzq5KjeggK0rz4iJ
ctmsWbNclRvu9Hkly1SwrkET/XPlygXwGs5u035KElYhC9LlAF4Whh6mkHGK
rU7MAMy5jCmv5782sdaxVXAuyqPLoIb27duL2NV6jcP2EjcDGQIRwbXwXveb
P8CQ//zhyGDJkeD82MG51gLHl6+//jrLDmAcYyaMY17r1q2tdRctPtO4bjME
GPvwww+FDBsjeueddzSDcbZ2JH377bfwkYavEydOGPMh1UCAbLU1X8/qQWHR
mjdvTnny5NFbKRa4XU492CBwsmxgXVUDbderV08mhZMbbwBGm4oWjK6RkTHE
OMfCQAHR4I9Nv2M2IZwwLM2wYcOk3fTp013mateuLUvJ9EtJSaGSJUuaaYwe
PVrkZ+w7jhqaszDcXTVNhU2LSB3MvPzyy2Ki+mRtUrNmTVfQQOucd8TedXNc
yO88KT/xomiAbGgXCVYEeUB8fThyjIB83WNMmSmP9i4O0jqy4v/TjrDYVS4v
DlndsCtI7KldvyazE91qi52FVrJHWa4wy8LtK+1iPKZtPJb/tOFWoz0IPaPL
yGNAu+xBI7Q/k1sWODqcOECjvSOio6O9doTk3sZ/BNqcHPKlqJnN+Nxzz7mb
cebMmTj7qM0YERUoErsdaAG7HyBPqEShx9vul2bl2bAH8GpZ35RZYioWvHf4
U3jGg3DlsKcVgoHfQgopHpN94x4na9TpdWYJoc7qaoAsgCQ27EHD7W0Y9tpF
thAaRDaKDNLZ/YqQpaIek/q9x6TuuyfWvQWnw4KOCr06KvZaNEvsFSmc0C2f
1yVvIugmb+oRtkYeCQfRBg0ayMIA9m7Xrp0v2JwoweaqVatS06ZNBU4AuiP5
BZoNRrZBoLAuC6uyh1ifcWujXP71hwBSMwFLmJIijMuGUc1HLFMNmGPiyIhe
FSpUiGbPnm3iNwDAfoTd04ENE+M8lF7JYxn9IdhCCEcQNithRMEiq7ZDxrwO
zbHT6y4kjwezQVd4IGPZxD0D47RB+PaWQ66A7gD58K9IOOOiHuseEBvBjZw5
c7pBKNSZGG9EbAZGLVODRS1D5nntSR7gAPlFixZJHgcd5BksKPJ5JWufd3r1
6iUBGUOuTJkybuAG+wcBdiSPIK0yb97OwSmUbZQxnCgl8rBOmGW5cuUkEgV6
sGqlS5emzp0725dl2JeYIGIUiD4zI2o+SXLORbzLxFTNtY9HPNUEHMPQYRFr
BZiFXjzs3g/q3vbF40PBZWqajxs3TgSTnp6umv9iNBExeHlSTyG7EGZU2IMZ
8OEVMIwUkWYNy3lZ11BYJCDyJcN7A4Xf6fHscFLkKNwrbBM5CvcKnoSAbaab
V2wi/MFLyk+crEVzBAAlRDL4oJQ/bEIltOxMkOWnn35y7SrsD+5GSAyj4cPP
OXbyZ1BRjJfLuEcffVQMKs5qCJIA4aSkpDjhz09Ft0RViKwg0oyIVKlSpeQu
wrWs0RKPB70vvvhCr4UHwoVF2Q0h4bSXXnopSk6GCeKYypYtS1999ZV09Rgm
EkckIWvXWeA2B5eF+MYRwFxG42iA63u2va6GLPDjhEI/BpwEGUPanj9/XvzB
li1bYoKSj7bJe8YIQvIIOSJcjsVvW11zeYp6+CyciRGRPnXqlPSzsI2G6oF3
3UFoG9K4qEMRwlgVKlTAxUsA6QfctVxd87d6H1HVoURN/0rUeirR8l1qsMlr
uJp3Qf+FRAcyPMtchYBGo/FEI1eoX867CvGik3GZqO5ooqF/J+rCSGHwYlIK
yUuTdPMBfyO6coNo4uqseVM/cJHKw8A1HEdU/S9q+FJptMSpvcSxtquZJUz3
smXL3MtGn1qSEc+UG2O0gSM3gdwgwCz43Xter2GE1NmzZ2VbQfPQJO4VcCEQ
YhjPLWY85O07RIV6Es3e4lPEtA3uYhEp7T5lvEaSybvpDkuuSC+i9co40LoD
Ks/lvtcWfn3wPWOj+r54TY1x7LxWXlxAc533onYwQ1WDyrkr6nv7cTsupTdU
RkaGXGHjlgF3AhAF23/dqrQYM6MtbApEgdE2QqgZbBxpzy5DVPfzzz9LHi9+
+HjljukxTijNHTqr+L2aaT3q8snGMYjSX5yHdb8bKjxI12+q/JFzwTV2647a
J7M28Ql7OFHBHkTXbv4SjWHU8gOJ5m1Vu86sL0tjD7kSgWQBoeGtgQEgcSRz
nQy3BPeJiztopXv37lIfAYgONo77BA1vzDp16iRgq169elFwXgqzeQ2TzZ24
D+9U0w2PnlcyGLKEaNhSog4ziHJ2JNc0cNXOk4EK1WVhKjQhoA/aVhiotmq/
BUQnLpDPYVjqslTknzfnXayNZWy8RiyXqrLOfWUtbZbVjJinR4oF1TPIBbsX
ulOLvqSMX6Y/0ebDqmJlOlHFQeobpgxz6zufaOkOotOXvMtgsor2VqYKae1+
lb9zNzgdo6YMdbVGaQvIMc7GyIRNqKSTF1V+0TaVN0bq+AWVB40aI9V4mbdU
3d4zZDsbg9vtq3ov3K5WUSptO0bUYgrRKPbVjcf7rHEfZqEwW/dVe4iK9SEa
/0/vMqQ1+1VfQ4PzZgMH6wJ32muu8srVhmlzkEhj/kGU2k15XVSXG0DUbBLR
HBZQV0aCpVmBnWdq6vEiP8gaVW2nE9UfIzqw5WGffKzLfd/JR62P3ECsJGG5
d99l4WYSTZniyyNEaPJjxyoWJk1SeQlRMsjBvUpamirTIUo2CcSIkn3WDDgS
Bh11GXQw2OnShUHHYPO+1x2ajRKZt6qxAL0MjaoyNGrK0Kg1Q6PlLl6gjewF
q7ESX3yRCDfavAEk+fpMnOg4NWs6tjDMycjrPYDX3jGmRiZnAUGdjwqnOpeq
ssJa8m0emKJOv8VlzKzqjh3Ts4kPJA07zniZLDhOBi/jtR1jKDbOrg2mMWOU
NlUfYxy5i2HU8Tsi+70m+DeLxTTHDRwWHeJY7AyoYEF2m9eCi4UhtpQxxDZH
C7fs4kX3hGO3k7KAY8STevJBHiWELQ4xbeGLg1f0rl3BxQEXwCcKKlIELpyd
zgnlclJUM4WAVcJrJ5QxkmUoy26xA7tFdcRlBlRdZma0EaR3c3vTKIl4P2fw
Rfar2/PRwUo6ckTl+XzrJ5Ss+QkTXCnwUZ50bDRACmauGfoYk5am1FFQbQtU
MRxhRMme57SizsCQTMwJdwUagEodHq/CXCDt4xPUm2969eHzcRYb4hVle1z+
J9hRC9/sGf1Qz56KbIcOmkw+ME2UmOjjDjuVD6a8+ZQhbNKEqEQJIh1M5fOM
oofnUrC9SAMGIL6r2lerppd+EuAau53C7HYYIjBaY4ug2jPsYtzFnmoUe6rG
7O3W+yzqnj3Kyn7yCTvZGkqUQfqEloYJ1Vm60wsFJsq8kaQ6ddxawa0hopQu
Rd8CcoE7Q1gi/WbUpY1gmX4zWtylEmLK5mQgSkhNJUpP9w0AQvqVaaXgE/0t
bo0f12WWXXCe+jWmEFHQ1O8ZaojI41NaZPa9Z/gRR6OEwBeV8faLStVYU0f6
j74jyeYtjPfzSd8F9f/Y86D/VtpSbD8JUhYn4HWoKK6bRzu/x5Z9Va15B2A/
YdRVZqvYDwH1e7pQz/GcHP8CiVLKhQ==\
\>"]], ",", 
   GraphicsBox[{{{}, 
      {Hue[0], PointSize[0.015], 
       PointBox[{{1., 1.09090909090909}, {2., 1.125}, {3., 0.}, {4., 
        1.}}]}, {}}, {{}, 
      {Hue[0.6], PointSize[0.015], 
       PointBox[{{1., 0.5}, {2., 1.1875}, {3., 0.}, {4., 2.}}]}, {}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->False,
    AxesOrigin->{0, 0},
    BaseStyle->{FontSize -> 12},
    DisplayFunction->Identity,
    Epilog->{
      PointSize[0.015], {
       InsetBox[
        FormBox["\"before application of\\nWT-LAW\"", TraditionalForm], 
        Scaled[{0.5, 0.74}], {-1, 1}]}, {
       Hue[0], 
       PointBox[
        Scaled[{0.48, 0.88}]], 
       InsetBox[
        FormBox["\"hints received\"", TraditionalForm], 
        Scaled[{0.5, 0.9}], {-1, 1}]}, {
       Hue[0.6], 
       PointBox[
        Scaled[{0.48, 0.8}]], 
       InsetBox[
        FormBox["\"errors made\"", TraditionalForm], 
        Scaled[{0.5, 0.82}], {-1, 1}]}},
    Frame->True,
    FrameLabel->{
      FormBox["\"opportunity\"", TraditionalForm], 
      FormBox["\"average\\nnumber\"", TraditionalForm]},
    PlotRange->{All, All},
    PlotRangeClipping->True,
    PlotRangePadding->{Automatic, Automatic},
    RotateLabel->False,
    ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztG2mUjUf29Xv9ekWjoy0dWgRpO5kknBmzEMYh5HRswXA6ra1NdxuatrRp
LREnIjiDIJqIiMROEJFgWuwRxyBoiZ1G7Dux3al7a3nfe6++73sPmfkzdU73
+6rqu7eq7q26a31tUrL69ExPyeqbmlK5xcCUAX36pg6q/NfMgazJFeJwOFax
v8zKDnwG9ij+rQJWWKfXTzL9hMLMmTPxLRg2bBgUFhaG6pvriOYzZ85ATEwM
tG3bFu7du1fOiMsFjx49IqCDBw863Jq2ugILtm3atAmuXLkCS5YsEVjeEhDi
baq5NW31RduoUaNAFEccR9FJACHydu3awYQJE+iX1RkA9oURqhYtWsAHH3wA
b7/9NvTu3RuuXr3qDKRbj9kpljVr1iwCHzlyJBw5coQ3l4A2bdpA/fr1Yf78
+TRZJGnFihVh4MCB8Mknn0BkZCSMGDECbt68Cfn5+YQiJyfHCceOHWMTYo/U
hNg//vhjep46dapTUMGA3SHbbt++DaVLl4a9e/c6ynLKvEk/4fDw4UMafNu2
bTSZrVu3Up21O4wk2LFjhyQuvPfee9C1a1e5HpNuerZALydnZCVvi6K2nTt3
KpRhYWGwYcMGemaLkDDGCQoUVPCZtZl1C+wuMQGkcdmyZWHp0qW+1Dl+/Di9
fffuXYK8c+cO1U+cOGGKHefNjoSROppuerZAb0cd3/XIuuF4PQF1FLSbENap
Uwfeffdd+OKLL3AvydP1JFT6/vvvwcmKCZVEdzBU2r9/v4FKNuuy7T5w4AA1
absj/aC//fZbiIqKgkuXLsGpU6dg7ty53lSKpqNQqVIlOgJYtmzZQnVsN3KO
nWm1hsGDB0PdunV9+3l3gle3HfoHDx4Q+PDhw2HNmjVw7tw5q81jWZ8xY4aa
4vLly9V+DmDzoSjt16+fZFxqaipBYe0ZPh0pszdv3gzt27eHiRMn0i+ri0Fj
UN5BbGwsyb+hQ4dC06ZNoWbNmmrxFv0Opy3+RBLJ8fHxUFBQAAkJCTB9+nQY
P348rSYjI4NEBsrfMmXKqNWh6I6Li1P1KVOm0BwWL15MGqBDhw5QpUoVmDNn
DvUzItKWke/74scDh/UBAwbAtWvXUOnASy+9BLm5uWU4pUYKIrZs2VLJiFL4
32mUr8beZ70Bd+/eDb/88gvVSoo21MGtWrWimlPznkAxSXRhc7Vq1aj2HO/S
mhdP9acZ/UTAd999B4MGDSIyIflQNWA5e/Ys7n0+/bKoe4nD77//Przxxhtw
+PBhes0GnJ5Pnz4Nr732Gr03adIk2rBHjx6Fffv2QUhICKMA2/xM16N69Rs6
XDu0N2isL6jpsDjFxo0bw+jRo2nT9uzZUy1FwAqOldGOixvUBt5qyQ65pkOH
DpF9gmSbPXu2Zny3bnzR52gudo5QQ4aNFkkiHqcmS/PmzWHBggX0jMqH1dWm
9Id3e8Ejd8eMGaP6Vq1aRcvHkpaWBj/88IOy1JCjWAS8U+wvzfBGcEkQH2jN
6C4avVixYihRvGaEJ9oAq4isG/rFF180wEfo4I1jG4cWC1dS20A8/4W7Leiu
ZR+3yqPg1q1bpLXRK5A7Cetof2IRMFFiEoyEEBpKHgbcv38fhgwZgm1hAWAz
vB4lJmTApqi+fft2CA8PFzVOWQu0DpcGLtwHf0pKClswOlLRsGzZMjAWK9wh
9vTD04htuDoszKOiujylAiZcADEe0wgosjt16gS1a9dWOxqV6rhx4+gAs2dO
lmK2I/iAyYlpRlKvnzx5Epo1a4ZiIphRDGBWo+Br6HoZlu8WbLEYJRBi//TT
T1pwFF0aYqO0RAfP7XZDvXr10I53hAr02IdmhnGbWaBX28wIFyqmpRkHOnfu
TLDlypWDTz/9FLW7JLXVKjRgbotRsKBxsmfPHl9SWy0mAFKjJ8s0ntexcLlc
vnJBnjRUOKIIUrmlkUgFTyeznATJIizRMzijMECDy0Nt3VChZDGj0YZmDZOL
ktJ2i/ABc1uMgItBExMpbaCyxQi+VEZnR1I5TJDo1VdfVUL7888/R1NbCUL/
912kn6XtLcmMxi5ae1jQQGZGsJhetA4/PZvDRBnHoIJhkq+//pqeUVjinJi/
ZDWECYgKBRmXIdmKFOzRowdJaXvyCHvSReZ+t27doFSpUmIzRpKUQQsGpSIO
JZW9/7vRFAVDJY/+EP6hlYRl6dKlFJdBQYZuwOrVqxVVzfCbw0T6jdO9e3do
3bo1WVsYn8rLy3NILarDj6fd531JJc0SlLhasWKFz9F269BLqgZgyDeknwhT
C93LmtZblRnemMxMtgAMHNo8qQ4liByv0E8gFkNAVoVD0s6hoi+hsk22B9fs
ehpIBEmMzU80y6eHKbj1hvk2y18fblqZDa5A3yFmlqC3XV7jFg+wrZhs6+WZ
qymsS7MMe/siIBvEa7BkTZvbe1grHeUK+J2Ah20oKjrh7bboo7PsRIzJ6inc
G6VOcllJtdDgZt7qMV7XT/h/i8mnqx1vI6sHExULFy5U+qFJkybQt29fqknD
g1Gyn9zfYUYGxNgJfXo2i0V4+NteDPTVV1+Ry9a/f3/lBJ0/f56EMDrODx48
cHrWE6KdU7Sd+qBnnWsv/Wvd9uYki8SwJyQlJVGAT8ayMQiIgcbJkyfDxo0b
tfA+J9BK0/j6qmZTakv/o8huqly5MsybN48MDiQiFnTMMB2Foff09PQAZmUl
MUMFgM5fpT7C3FawAMNjOPfLly/DjRs3cHwKVuMa0YTHgjFNzFAZBaPI5OCg
OTk5Dp4uq+SVLsMSSLYtNzeX6jLpKeuyHzONWMeCnH/99dcpOvfOO+9Anz59
PPnBKMoPvvzyy9CxY0eySL/55hsC88kNylCDlcSWZLTwREnVMpViYHI0kR2P
piwpKSl0lpDx0jZHKnkC4FpO841Es8HcrVygbyQpyFRdAN1bt26V3SgqZGoR
ExoVKlSARYsWSasOnVwfxMwkBFulpPMGwzSUaCtwIUNlUAILnmKM4mZlZang
Hm5VJouk1HB479RAKGmkRQCZleC6jWlIdlCom0kWXX49QqzIXAd7O2FEOafn
SMeo1EZmZiZlyLAUFRVRm8wcY3oD2YvOR4kSJXJYX7odzWzSdP5pRROS6klc
3A8cs5K4Z7BgYAr78cyPHTuWYsIRERFKK2CfTElKClqZHDrHK0iTw3C7wpOh
izPL0FnW2aGiOp4WrK9cuZLq6D1inZ0ejj6WqnJbYMnOziaFK9G98MILpI+w
oGDAZDIWTULSUSHIBVewzbIFkqXDOop6nHmNGjWgS5cuhA9VRPXq1T0akJ8q
3KU4aVSSmH1VmYBoCugkJyernKK89qDJJ/K16u20ioY9JE9hzeBI86xAYbxu
U+vxUEybNo1IVFhYyFE8FeNSOuwB5fD0rn+Qx6ORWM/jJp4sfAodahnVCyIy
8DgrCCQa7nFZu6mnAGYerPvYTbQBb+sR4DCP6S6GWBAo0PCorZuoiwnauoeS
AI56YgKWNmJJUxvRYM6qrITmvpnldTO3DruKnKN0QMXTqFEjwli1alVK/jMW
2JzsSt68phqPh0RJo022W1ttxZXV5quL7K+mhftpaAN6pYkNVqFKnUo9hlYH
WiT4LCSPYeHPC/6hBJT8RrsPY6bscDyn9kyCpFAvNRMvaphdAPOzvLxft735
5E8AA0axijACr1WrFnl4RivHsNIqglbSKmOes6IfKm28PIO1ypqtUE/w8fGt
pSBXHWU0rqzQSwmDAmzt2rXKDpU61Y8A4TRYgwYNyGhCeYc3b9D9YyapuN+i
W3wDcJRrDM9nXYKOHzHBNxfgzUH5ZAXN2sy62a6IbTEVVvxrHwENzj9IbSNX
ABy5AGpKm34GaDvtEZT602j4y5iLVJfXuPI3PSKYnOXst0QVMkAWrFgPzcbf
hTGrGUyrOdDnoyLCb7Sy8sX4uV8CnCi6CIlJ4zmeZcz6CmXO4ZJzWB/l+F2u
MrXJXLWSDXJn4E0QnPxnn30mJPUzgTq8dkMQ95OSkpzEpUjaSImJiRhvIlCd
VIvHDtrVnCvV4cFD9tO1CLrlrlAmW8Wmw5Q9ipRYXlDoZbNh28GzQHsJJ5ye
kQmx6bdg2xGe3mrSaTiUTLsO7dp3oLrE02vIBGXjVajZFFLHrqO+LTt/5BwY
N1PahGobi6GQDjg9rL/ZO5fyPmQe94I8R8lEyRf6NRNdKgqHxhReAGbWqzrC
/mJR7yzLiVmIR4rLoEW9a9euUFP03lK3vObg1BXvHbvIybd73yHP7W5BF1AS
O9rYRtNZv+Mwtd3ltgncucfxnLhkuChrgMFyn22Hm0yoLNgJ0HgcQPnBALfv
AV9GmN/roq48ul6QyLghXjayxETAelmX6KSg2ZGXl0e2LRajsNbJfwvcEjXe
TMQmtCjxvsS6dev8UEtd7U/+MEYuLlcy55yHsWsA0uYDRPQzrhn2n/HnhGgj
fbx2SyHn4N4DJpyI9IKhVTGu1R7F4LMBRiwHKLriuS1gZAOGFDT1RM+pkNtZ
I+NFXzEKb6IQxXfQRUODBIuJ2jC/VRxrpkrg4sWLJKOQxcgy/FQA711YDCPC
AjFPcg/RYMFymfc8fPjhNHB1/hmWbDxOkBsKAerkcfKRPGTkHL4MYM2PAOeu
+bfNnPclZA74O4SnnIOxswsIbsthgEpDmUn2yBzPycu87cIN/k7OcpmPj1Zs
XLSL9525yusr9/D60QtUj3dExzu8pd2FCxfo9i4ag7/++ivRiJlegh/VSXVI
duLxQMcN3w0y8mA2Dr2PaQTk7fXr16mOISvmDqgxNeNEii0U3CVF+1wCP7bV
UJ3CntJ1ITlzN0xc+wDaDz0G2+KY+/OPf8Cwhfcgvv8tKCj/Z0jofx2mbwQY
NurfEP+301AwJB8SBt+H6UsvYtAXNpf7A8FOZFKjfbfNsPmPbwHgdymMHMO6
LIT4vtehIH0yJKRdJTxY0JTIXsLMl7zd0DBpO3sYyeyYI0o+TMk/DHHdL8PM
rtMhu+caqJF1E7rkAyxmzB/4z7NQPfkEpHddlZ/vsb64aaX0IAZe0MaWehCL
vHGK9gMaaZhEQIZmZWVRfxChF7NxVN4Iv8zB2C0etNatWzvRyuAiXzeMjtey
zS4RIz1EcqMMUl/UnYF0F+ddhigoPcvPZ7BPfGnE9DnvO3VKHM1wf9RIb6bL
Qely9o7U5fgtAQokRkPwtp8TxRKl0S4m5kcY6Y1b54J+Q7LI1zGmgSkcjAjg
gSvPjBSVCtCQhelTamP6VLGTt8XEsBnbRYPkum2SN2qmWgqQGA2cAsUADhww
pwByCu9xMhUOeFGpqIhr4JL8NYN7xTQYb2MKjGkwvADNrATuJrC9xPuY0BR7
wpYM9pkWvvwSHLOIRTMHkNfZtvEhh3d9xgy1fubFgfC1/dYvF8VEHZWcHM6I
UvwMYBeTEUxDMP12jmNngh6EoAfMcQmFQn34HQ5zSlipWtWfCHYX8DxJE/45
o5tPgAkgGDKED5yWpq73syUC4FVGuZYpU5iLGctk7GIujjt0AKhSBe9z8n5m
VRC+jAwMK/E25tVCdjZ/v2FDpauZxAQmMfGGG97tk4cdRR8w0QeAqovNnIk+
JTCZJ8jc3h4ZGQ7H+vUBhdACTXfwmHWYMbJi5CQnGwomeQ0cWraUZNH6HX63
JOpJQM92Uo4IE08A4mMYNQBedRQfw5RTWCxCZdLTISbFxQEUFnoGQETi85nq
NrP9za6AyLyAMZbX4KlN5hWxVPHZC3304rT6asYi2G8Vqo2Qn2XICei/6rC4
+xds8sJl/AxBnOrfIN5vcpn/v3FLzfLmmu97xrTC7wWBHvNmvEROFsb/r0o+
7fXaXZWUV+TML90HkLVJ1SA0vyquz89keIOb34nW52QEuNUNZEfIfwBwdlhr
\
\>"]], ",", 
   GraphicsBox[{{{}, 
      {Hue[0], PointSize[0.015], 
       PointBox[{{1., 1.875}, {2., 0.9}, {3., 0.235294117647059}, {4., 
        0.666666666666667}, {5., 0.6}}]}, {}}, {{}, 
      {Hue[0.6], PointSize[0.015], 
       PointBox[{{1., 0.916666666666667}, {2., 0.7}, {3., 
        0.411764705882353}, {4., 0.333333333333333}, {5., 0.6}}]}, {}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->False,
    AxesOrigin->{0, 0.5},
    BaseStyle->{FontSize -> 12},
    DisplayFunction->Identity,
    Epilog->{
      PointSize[0.015], {
       InsetBox[
        FormBox[
        "\"before application of\\nWRITE-CHARGE-FORCE-EFIELD-MAG\"", 
         TraditionalForm], 
        Scaled[{0.5, 0.74}], {-1, 1}]}, {
       Hue[0], 
       PointBox[
        Scaled[{0.48, 0.88}]], 
       InsetBox[
        FormBox["\"hints received\"", TraditionalForm], 
        Scaled[{0.5, 0.9}], {-1, 1}]}, {
       Hue[0.6], 
       PointBox[
        Scaled[{0.48, 0.8}]], 
       InsetBox[
        FormBox["\"errors made\"", TraditionalForm], 
        Scaled[{0.5, 0.82}], {-1, 1}]}},
    Frame->True,
    FrameLabel->{
      FormBox["\"opportunity\"", TraditionalForm], 
      FormBox["\"average\\nnumber\"", TraditionalForm]},
    PlotRange->{All, All},
    PlotRangeClipping->True,
    PlotRangePadding->{Automatic, Automatic},
    RotateLabel->False], ",", 
   GraphicsBox[{{{}, 
      {Hue[0], PointSize[0.015], 
       PointBox[{{1., 0.12}, {2., 0.333333333333333}, {3., 
        0.0869565217391304}, {4., 1.}}]}, {}}, {{}, 
      {Hue[0.6], PointSize[0.015], 
       PointBox[{{1., 0.16}, {2., 0.375}, {3., 0.0869565217391304}, {4., 
        1.}}]}, {}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->False,
    AxesOrigin->{0, 0.2},
    BaseStyle->{FontSize -> 12},
    DisplayFunction->Identity,
    Epilog->{
      PointSize[0.015], {
       InsetBox[
        FormBox["\"before application of\\nDEFINE-MASS\"", TraditionalForm], 
        Scaled[{0.5, 0.74}], {-1, 1}]}, {
       Hue[0], 
       PointBox[
        Scaled[{0.48, 0.88}]], 
       InsetBox[
        FormBox["\"hints received\"", TraditionalForm], 
        Scaled[{0.5, 0.9}], {-1, 1}]}, {
       Hue[0.6], 
       PointBox[
        Scaled[{0.48, 0.8}]], 
       InsetBox[
        FormBox["\"errors made\"", TraditionalForm], 
        Scaled[{0.5, 0.82}], {-1, 1}]}},
    Frame->True,
    FrameLabel->{
      FormBox["\"opportunity\"", TraditionalForm], 
      FormBox["\"average\\nnumber\"", TraditionalForm]},
    PlotRange->{All, All},
    PlotRangeClipping->True,
    PlotRangePadding->{Automatic, Automatic},
    RotateLabel->False], ",", 
   GraphicsBox[{{{}, 
      {Hue[0], PointSize[0.015], 
       PointBox[{{1., 0.72}, {2., 0.347826086956522}, {3., 0.1875}, {4., 
        0.}}]}, {}}, {{}, 
      {Hue[0.6], PointSize[0.015], 
       PointBox[{{1., 0.36}, {2., 0.0434782608695652}, {3., 0.0625}, {4., 
        0.25}}]}, {}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->False,
    AxesOrigin->{0, 0},
    BaseStyle->{FontSize -> 12},
    DisplayFunction->Identity,
    Epilog->{
      PointSize[0.015], {
       InsetBox[
        FormBox[
        "\"before application of\\nDRAW-UNROTATED-AXES\"", TraditionalForm], 
        Scaled[{0.5, 0.74}], {-1, 1}]}, {
       Hue[0], 
       PointBox[
        Scaled[{0.48, 0.88}]], 
       InsetBox[
        FormBox["\"hints received\"", TraditionalForm], 
        Scaled[{0.5, 0.9}], {-1, 1}]}, {
       Hue[0.6], 
       PointBox[
        Scaled[{0.48, 0.8}]], 
       InsetBox[
        FormBox["\"errors made\"", TraditionalForm], 
        Scaled[{0.5, 0.82}], {-1, 1}]}},
    Frame->True,
    FrameLabel->{
      FormBox["\"opportunity\"", TraditionalForm], 
      FormBox["\"average\\nnumber\"", TraditionalForm]},
    PlotRange->{All, All},
    PlotRangeClipping->True,
    PlotRangePadding->{Automatic, Automatic},
    RotateLabel->False,
    ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztXHl4VEW2b9LZSCAYGcJOeGwGZdNxwXn4+anwFEFFBUdZJoRF2VEMm8AE
3FcQBQ0YXFBREREVjYogyCagAiqICoIgi4DIrqzn1e/cqurq23Vv3w4z37w/
Xn0f6VtVt05VnTp19st1BYV9eg8sKOzbs6Du1UMK7uzTt+fddf9n8BDRFC4X
CoXmin+D6obwTOJR/plLoojOqJ98/kmm5557Dm/RyJEjacOGDcn25qayeceO
HVSpUiW66aab6Pjx49VMWGE6ffo0D/ruu+9CKZa2ZhIK2hYvXky///47vfXW
WxJKdzlCvs21FEtbC9k2duxYkiWU44C4VQ4C8JtvvpnGjx/Pv6IuBqAvlUFd
ffXV9MQTT9B9991Hd9xxB+3fvz8pSLcdcpLc1rRp03j4mDFjaNOmTU5zFl13
3XXUokULmjFjBi8WKK1duzYNGTKEXnrpJSpfvjyNGjWKDh8+TCUlJQxi9OjR
SbR582axIPHITYD+wgsv8PPkyZOTJBYM6CHVdvToUTr77LPp66+/DlV1MPN3
/kmjU6dO8eTLly/nxSxbtozroj1komDFihUKufTII49Q165d1X48uvnZB7xa
nHmUTlsGt61atUqDTE1NpQULFvCz2IQaYy5QguCCZ9Hm1S2hh+UCgOOqVavS
7Nmz3djZsmULv/3nn3/yyD/++IPrP//8syd0rFtcCRM7lm5+9gEfDzvu/ai6
cb3OADt6dAoDbNq0KT344IP0+uuvg5bU7ToTLK1cuZKSRPHAkuxOBEvr1q0z
sBRnX3G7169fz03W7vIxo+fNm0cZGRn022+/0bZt22j69OnRWMrkq1CnTh2+
AihLly7lOtrNkxN3Wu9h6NCh1KxZM3e/050b1R0P/MmTJ3n4PffcQ6WlpbRr
1y4/4vGtT5kyRS9xzpw5mp4DEB9Yaf/+/dXB9ezZk0eh9hdnOYpnL1myhDp2
7EgTJkzgX1GXk1YCv6PKlSsz/xsxYgRdeeWVdO655+rN+/SHkuLCz2OWXLNm
TVq4cCHl5uZScXExPf7447ybQYMGMcsA/61SpYreHVh3Tk6Ork+aNInXMGvW
LJYAnTp1onr16tGLL77I/QKJTDLqfTd8XDjU77zzTjpw4ACEDl144YVUVFRU
xcHUGInEtm3bah6Rjb9JJn81e2tFD1y9ejX9+uuvXDtLtkEGX3vttVxLsrwn
QTwpu9DcsGFDrv2X02VVL/6lP635J50+++wzuvvuuxlNQB9EA8rOnTtB+87y
q0L28gk/9thjdOONN9LGjRv5tTjD+fmXX36hdu3a8XtPPvkkE+xPP/1E33zz
DZUrV05gQBC/kPUQrzFTp1mnjh5a2T3Uc1ossVWrVnTvvfcy0fbu3VtvRY6V
J1bFOi8INM54vy2H1J6+//571k+Atueff94yf4ptftkXaiMpR4ohg9DKM4vH
0lRp06YNvfHGG/wM4SPqmihjx6dEjcfpPvDAA7pv7ty5vH2Ufv360RdffKE1
NZwoihyfJOnLMr05XCHENdoye5hnr1ChAjhK1Ipwo42xGsm2qS+44AJjfLpt
vDm3ObXcuObaBvJiN57ig3fr8TlaeQYdOXKEpTasAkVJqEP/RJFjMuQiBAop
OZktDDpx4gQNGzYMbakBoBmvZ8gFGdA01j///HNKS0uTNQezPmBDYcu4NBf8
goICsWEYUpn09ttvk1n8YJeLjz/cRrRhdyjCouK6uqVyTJocJM6YZwDLvvXW
W6lJkyaaoiFUH330Ub7A4tlBS4W4M7iGqYVZZtKvb926lVq3bg02kcgsxjC/
WfAaTC9j+ynyWHxmCYLsH374wTocrMuCbHBLGHgpKSnUvHlz6PGhZAkefVAz
TDLzAa/JzByXLJdlmYduu+02HlutWjV6+eWXId0Vqv12YRmW4jMLCpSTtWvX
ulHtt5kAqIYlKyRe1LUIh8NuvqBuGgSOLBJVKUpJ5ILbKTQnibJ0X/BinMkM
oHBFsG2bKpk1ZihtUGsEX1SYjrcJ17AUnxmwGaiYwLSBZZ8Z3FiGsaOwnCpR
dNVVV2mm/dprr0HV1oww9v0wy2eleys0Q9mFtocCBVkowXJ5mTb4/Ow9JsOc
gwvcJB9++CE/g1liTcJe8pvCY4h2BZnbUMcKDPbq1Yu5dHz0SH0yzOp+t27d
KDs7WxJjeeYy0GDAFTGVEvax72ayFwxCHvYQ/kFLQpk9ezb7ZcDIYAa8//77
Gqte8L3HlI+Zp0ePHtS+fXvWtuCfGjduXEhJURt83HbX+wpLli1odvXOO++4
rnaKDbzCanB9/hL+SfdU1KOUartyOSgakpfmFkDPYRrqGdL8KHQx/wRRHAK8
Ew5p10tyyNDAEm8O/yuASESYzarrPwwpsf2Go5rDltPz0xbCgd/R8/C+sixz
VzyDtgrx3wtZthZf1QjwThIA5+sn1xR+oikc+J3oneVb2hy2Iq+xnWen+PQl
6/XnKuC3kwZ+mXt3ilt8+umn7O6B1avcPiguvoNZIN2xYLjdSktLjRljcBeQ
FynuGqs4RaPmMsuOci3vpUSfnB9HUiI0Zmp/YvC7Jp4geZHd9FMCJOwJMjg9
BSFjf2Q0l4cJ5y68eXhDOUjgUIGat3TpUodUMqNee+aZZ3hiiC04CBHnmThx
InsRXnnlFW3O//jjj9SnTx82MpXJA+US8aCZM2cqOrniiiuob9++ciIrzdkv
h9L7TF3Qhsfm8j3lAo+EgsLs34YjddGiRdpp43aVww0BR6fS+9577z2pmKUx
mm655Rb97gcffMCG9oABA7Tpunv3bqZQuDtOnjwpmWKSD5uwKSHqOE09LVWj
S8UMzcNWAcGpU6cyklVxxUu6d+9ON9xwg+5es2YNvfvuuwpDIClYVQsWLNAY
6t+/P3Xo0IFduyqKAfcveM3TTz/N2MyMnERdtaJUc5uZ8dQjfo52Loa1cxEQ
kgJsP4NDL9JMMrfPxwnXH3ze06ZNc17Ppssvv5wN94ceeoguvvhiatSokT55
/NatWxdUzvosThsFdj9uASI7AwcOdKZOAyi5ClHyEuekik9L95zeAcghOYJe
jQ9F6LFYSGHTTPmmJBacOJP4C9UZQSiNU/H+9OnTOQgEBlarVi1c4JBiBjgT
wNq3bx8dOnQIW+bwC4gcRikKvPS4aJIM8srI0ZUBZPjHAlF9Bkejzz///Jhj
R8Gi4acQ56bwA8YELiQuN1/gvXv36v2CHMwLVFBQwHwSpKBIA1FsRFwyIueS
5yJ7GZpFq3g75MS/60TFv1GChM+Lioq4rrIYVF31I3UAdRS4Sq+//np2t99/
//3MknXAP4MD/hdddBFzMZiYH3/8MQ9zBfuV7zC+rLT76sIRoRM2OazmxAcP
HuQ4/5tvvqlZk4sTt1wunjMzMxVR4Aixu65du2qlDVtRwgYFbAk8o7CwMMqL
Khg019I1MYXCjS1E6gDmVeDKKKy5/c0JBvQDdC9btkx1gz+qBASEPWvUqAE0
qasKV5gLsLOtOHqIck/Fevui2UoziShY2uD4iuAg84WlTV26dIkIjLSo15A6
8fDDD7PhD9VAnRz4Lvoj2SUVdbxw8ODBLJZRtm/fzm0qHQMxQ2ADFr1QQ4Qo
cuAJ9eS+2NsW5OBM1AcI9ybWbeZGiMvO3YLb2ZJ+1P3y0+iS5YF7+g7taq4V
E3EyAmIzGDwQZUdcxZjhkMLYBwp84OgHN4KYhXxLT0/X9xN9KvshXe7Zz3Ky
Oexs8jHf0ha55rHJADleyQC+dXEzuY4TRB0SBQX3AnVxog74ylxVm0IZPnw4
a4kK3DnnnKMFP7gL8lZQLLkP2q/vrTumWH1wfoRTI27QP0jSAOoQVNhd48aN
qXPnzgwPAg7alVAfzNw13G9sDEoVrFIdmMxkJSY/P1+nOKgsLEt6g9xDpUBK
pkck2cDNPxTp3O54LAws1TaoVt3mqnLBcRQ8fo6OgobNKGiiboZacpCZk+gs
xV/LUpIgJrxopws1zbPPPsuHu2HDBj1NUP3AHWUruzmtuKIlOpQoFwhuVtuj
Kn5+Ex8HjyB8j6BAAKi2+65QYvGLJ+ppCOjKVpEgVy5FrP+K3B6gMniYlBZh
qv3GSSuPUpCTDhI8h7oPEKwj8t9kd6C87P4lZX9Y4sKGn6m1JBNfXf4vnrq8
YXbocLAl0ddZdSjUQ+424UuYbI+3Rp+As5cMpeRqHPpquRW1lusWu/ETfsPk
QwDx9S17eJPPuY2xFa+c2Bi9L1o38kkGVcdBBknVl4QA1qtuPcgGt1ucT5bc
op+7zIwlurdyJnrbGe2rnlycUvh3796tTw+aD3x0ziTkyfWU3DLDejYB0NpY
boLal3WrATNVo7eaxhiBgwI6Jq4SciJhVmVlZclATDDlxSu9LcJ7W0hoi38k
uuhBolumEvWaTvTxemfj05aIbsEzx7xDtGmPtU1uvC7DuLmYaPw85zdUrZXW
2M698XEe06t4h4azaMU6qtVrDbUbtYQa/mMu9X52K7eDhoBEWIq3j1/B43pM
3kodOnahvxfN0/XDgnxKnLUcCP21SGmm6fqUEOBt2bIl87EGDRpwrqdWsSOW
5quvvip5rTebdLk84k3BtN2hQ4ckPt3yfE3y8vLg2+ahlmmkORNMMbSl3Km8
N287PUwnBdnVGEb05pcRd97Ln2syZ9R+t1PByFR1XU4J67L2cKLlDgZomfgN
dd5K69Yr4/GsmDF4nrHSed5/1Jlj2z45n3FX5DhtP7vAiHpe6Kw8dcr8qw0n
GP9wDOAZX34o+QzCh+dI2BMaV4YACfn5SZRbwGMOfhduTtg4X375ZbIn+LAJ
XmfABFG6zTy/iNKtXGWb9zpIO3LM+FgogjXto3Rjcosc96cjq+nosdNcX7By
o+chnhCEg/v2xiqiVo8SVR8qxh13+iBS4ff99ttvy3SIIOzzzjuPTVDTPDEz
ZWFoQlrBqQQOh2KIT52E45ZRHrAVaCS7owmIRwreJ598EgM6Qx6Yn6qmtGpb
mmLEhmkmsbJ1n3MA979P9FApUb8ZROn9SaskomvdjtgzlG3WM3xq8lSuf7pq
k8abewzebTLWucCj5hBt/5200AJjQvb9pZdeGnVocCcZ9XKhUDl1iEpoqTsE
vHz00UfaWRc5wgocFYFQwjtQlSAWUDzUBu9vXSrbpmFQe/fuZTYLKsGp4wM2
2Hs+02jPWhAb0icp0sJq6zPmzhlD9MUWp2PBBqKm45xnsGFg9R5hKZR+S7Tr
gL0N7LbOCIfNoizd6NRPnfaGo4hrzyHnndFzlKqTqU9TsH8uO/Y79ffWOvWf
9nC9ZiizZij6ju7Zs4e/LIHicuzYMcaOwJo8lUYsA9Wh4p5BaOHdBF1VXvPw
+wiW4oQRDkCB5zc7O1vPaZknuOs0OnsxEkdymG1DaAC09uxmlD94NU346CR1
HLGZlue0JPrnP2nkzONUc8ARWlj9csodcJCKFxGNHLuGanb5hRYOK6HcoSeo
ePZeRIJoSbX/5rETBKPp2G0JLbmsuxCPM4BhGtl5JtXse5AWDnyacvvtZzgo
Re8KDfQtoXCNW02XdBDiWighgjY1c5hUspFyeuyj57oW0/DepdS48DB1LiGa
JY55yFM7qVH+z5va/e2pkpKIpul8wMJoA/rhb4OdAA8gjgVF2epQeaCQgqfh
6AoLC7k/AY+b1zw6Do6IHMIuUFLbt2+fBMXIOQTbNPEdv9Gpku6oYCqxq8EQ
E7KeFKS7otNluMf5WX3CiT75tatQGZy+bdt0VkAMaGBbqAtkaCOk1AVYCVDl
i4tDpvMgT+5RGVBEKp/K38drS3j0Dhb/W7CkXgejRRASpwe9tXp1JIB4Y0nI
Y24T8lgxZN0GLJPje3U5iwImWUJxQaQK1AdSE1pAjInk2i5z0uDYEKezfr03
NnCO+MxAKFKEPNrt250jy3JecySgU4Qk4zYhyYQow/c5QndwTB5BZk7fsWNl
8JypfYCTf/XVV9wFSx0RUiEPI+pnC3NpMqBBMN1RF3zVhZ/o+pQpGiHCtiXp
CIlBiNrlHmkqjh7tnHq2c1/QJbiJkBpC5u1yoAvmTyoRAtFWKWS4D9+NLl6M
xTdoEOu8CpLsCuaHKwKZhKIcsZZ0Sa41l6TFSxVkRcOGOUvs109/uCaQQYTs
E7XrSZNIKLqCb89yWHynTkT16uFLBadfaDwMT9jFVFLitBUVwTvhvH/JJVrS
Cy5MggsjdxtZ62AhzvuCmwoaR+aSkD8dhSW3XDNhYRALA70X0cSJ8+eXKalU
6VGIrCNrAto68mugRkdSgs9zKM3M7jMpwOHWYH7qcydq21YhyQkmJBoHUOag
8jzNmjVL7Fpoh6LNcPNYE2yV6WyQtBYygiyI5AekerGINsoPSKtb4CXgZFTL
xpYyMzNZo+ZdR5mBTDY5OUQbNkQWhgXIT1Ub6hEBgg5KVEAZUvocDOC77ror
fv6nv/SBEwv+cijgkERG0D8KQfneSEso4hBGDJPJD/7eiDuziYRvcGOHp51B
QivUTqz30KFDQbJKgySqQnmB5YrvuMuYAup3ZZXLFw4uONqIyLBUyxRtU14L
+f+myFrUKllI/x9JJfe7eWorYPdI/RLb/f9vGv6N+/X+piE+s0qN8tSjzJ8/
H9kFPGNPCyxvLpVK11xzDVWsWFHryFlZWVS/fv2BDgS/L3tC5f4XaftCvg==
\
\>"]], ",", 
   GraphicsBox[{{{}, 
      {Hue[0], PointSize[0.015], 
       PointBox[{{1., 0.92}, {2., 0.68}, {3., 0.44}, {4., 
        0.0416666666666667}, {5., 0.434782608695652}, {6., 
        0.333333333333333}, {7., 0.166666666666667}, {8., 
        0.333333333333333}, {9., 0.}, {10., 0.}, {11., 0.}}]}, {}}, {{}, 
      {Hue[0.6], PointSize[0.015], 
       PointBox[{{1., 0.36}, {2., 0.6}, {3., 0.08}, {4., 
        0.0833333333333333}, {5., 0.304347826086957}, {6., 
        0.222222222222222}, {7., 0.5}, {8., 0.666666666666667}, {9., 0.5}, {
        10., 0.}, {11., 2.}}]}, {}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->False,
    AxesOrigin->{0, 0},
    BaseStyle->{FontSize -> 12},
    DisplayFunction->Identity,
    Epilog->{
      PointSize[0.015], {
       InsetBox[
        FormBox[
        "\"before application of\\nWRITE-KNOWN-VALUE-EQN\"", TraditionalForm],
         
        Scaled[{0.5, 0.74}], {-1, 1}]}, {
       Hue[0], 
       PointBox[
        Scaled[{0.48, 0.88}]], 
       InsetBox[
        FormBox["\"hints received\"", TraditionalForm], 
        Scaled[{0.5, 0.9}], {-1, 1}]}, {
       Hue[0.6], 
       PointBox[
        Scaled[{0.48, 0.8}]], 
       InsetBox[
        FormBox["\"errors made\"", TraditionalForm], 
        Scaled[{0.5, 0.82}], {-1, 1}]}},
    Frame->True,
    FrameLabel->{
      FormBox["\"opportunity\"", TraditionalForm], 
      FormBox["\"average\\nnumber\"", TraditionalForm]},
    PlotRange->{All, All},
    PlotRangeClipping->True,
    PlotRangePadding->{Automatic, Automatic},
    RotateLabel->False,
    ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztW3dwlcUWv8lNDyECEgI8Egbp0oUBRt/wrAzVIEWH8oAXUEggtFAFA6OC
FRQQ4wMUaSIdaQM4DCUUEeSBlEiHIKD03jlvf2d3v3z33r3fvRGc8Q93BvJt
O3v2nLOn7d4WXTN7dO/dNbNnateyjft37dujZ+qAsi/16S+a3CEul2u5+Deg
rAvfJD7Vf8tJFNHp8SeV/4TR5MmTMYqGDh1Kubm5Yebm6qr51KlTFB8fT6+8
8grduXOnuB2Wmx48eMCT9u/f7wo3tNVQUNC2ceNGunjxIi1YsEBB6aZmqNFc
Cze01VJtI0eOJFVcxSSIjmoSgLdu3ZrGjh3Lf0VdTEBfBINq3Lgxffzxx/T2
22/TG2+8QZcuXQoNptsMOVRta+rUqTx9xIgRdPjwYdlcmFq0aEG1atWi2bNn
M7IgaZkyZah///709ddfU3R0NL355pt07do1mjJlCoMYPnx4KB09elQgJD65
CdC/+uor/v7ss89CFRVs0F267caNG1S0aFHavXu363FJmQ78J5Lu37/Pi2/Z
soWR2bx5M9dFu8tOgh9++EETl95//33q2LGj3o+fbv52AK+Rs7NStsVw248/
/miBjIiIoLVr1/K32ISeY0dQgeCCb9Hmr1tBdysEQOMSJUrQwoULvalz7Ngx
Hn3r1i2eefPmTa4fP37cL3TgLY6EnTqGbv52AB+IOt770XXb8XoI6lizwxlg
9erVafTo0TRnzhzIkj5dD0Olbdu2UagofqikugtCpb1799qoFGBfAbv37dvH
TcbuaJ/Za9asoZiYGDp//jzl5eXR9OnTPakUy0chKSmJjwDKpk2buI52O+fE
mbb2MHDgQKpRo4Z3v+xO9ugOBP7evXs8fdiwYbRy5Uo6c+aMk/A41r/44gsL
xcWLF1vyHITwQZWmp6drxqWmpvIs1IpIdLTOzsnJoTZt2tC4ceP4r6irReOh
76hYsWKs/4YMGULPPfccVa1a1dq8Q78rNCD8yqySS5cuTevWraPk5GTKzs6m
jz76iHeTkZHBKgP6t3jx4tbuoLoTEhKs+sSJExmH+fPnswVo27YtlStXjqZN
m8b9gogsMnq8N3wcONT79u1Lly9fhtGhunXrUlZWVlFJqVGKiE2aNLF0BBMx
1K5f7b0lPSfu3LmTfvvtN649ptpgg5s2bcq1UMM4BWKi6kJzhQoVuJYku4zu
xSP901ot/vPPP1NISAjkT+CK/91s51RxsVQKQ/zLL7+wRQU5v/zyy3glAXv2
7KEOHTrQJ598Qp07d6bvv//epfuWLFlC7du35z6MWbp0qauQ6tuwYQMNGDCA
wYFrMKtaqoSdZ2n68MMPqVWrVnTo0CGhIRnrNmpIWloabd++3ToSR44ccRVV
O1K62YZ9BDVo0IB++uknHgtdiB0KXyuOuyPZTYiNjaUTJ07wEKEWqVChQnT9
+nWFsSdYt0LjxRdfpG+//ZbnQLGLuiembrp79y4NGjQI2KrT6aauXbuS9iTd
6v9FixZZNI9VaEGOMO727dvcIdDhOgiiUT948CC3oQ8FW0FdENGIeqiah/Gw
DvA+UU6ePMl12KYIuYW2ivVQLh988AHzUXxr9oJY8OhQ1AqK3pF04MABreXY
cxo1ahQfVBBUY45dwWd45513eAw8Q/g1gmKOmIvdcxsoiyL4aFFFYf6qmt69
e3fWXXZBhu7YtWuXBh2vhmoLKVSNWCkxMVG0adZiRJza9bJlyyg8PJzHxsXF
wWtTfWZsNSW8sQV/IjyFWilxLlu3bgXBlEqRPIBGBeY2rAEVgotIoIiS9atX
r7ISnTFjBtt7KM46deo4IQmhgRKwC4Pb7bYLg0YSqhy6DAXqX6h4S64xvVu3
biwJj6nxsE44yCjilFK/fv2EryIx/fXXXxkVYIwCj0VoII0pvBHvE/f8889b
bPnmm29gC711g/BB2YOHbMJgLF++3NINUEmeuiGcDQNO5JgxYzgGmzlzptU3
YcIE3pFWYfBvtWzCsHXq1ImKFCniClPjIZtQWTguUGHQSwq9IHRyA/4TZVKA
vOHTp0/DH3HSkxmekAwKir8hF8Joa0gmPcYUTwMrQyTM+kpYnDSHO4gxyiK6
NB9QwjzbbCz3bAv9u+3PbnMZWO6kct1BjOEleIUYAwJFHnFbpLWa1zacdLE7
iDEm6qWoNvJGAONeJ5828k9lJy3sDmKMCb0yBvRewv8hNgSktjAr13CHPrdF
6GIOO7a3sfYJNSxtUpzhDn0m5fC6976aBj2IxzxtoFUlb4RNMGsbdlrnIZHp
HszClQwLPxPMwhpjMhwle1uSNzDJr/hAJoq/IZvNmjVjPx8GFK6AxTvzJiX4
2EB2i78RQrz77rtWhAXP7JlnePvGo1BXjYOvifzg3LlzlRiVoGeffZZ69uxp
URH5B/hNmD9p0iQ+dtgy/CrkGO39n3/+OV25coXngQwIWtE+ePBg7EHhEuUx
BxmE8ePHs8+BTOOsWbOiFXpqmElBOFlVddo4KgoLC/NLBX1SA3FeKWpasWIF
RUZGUq9evayk7O+//87rCq8SORGdU/PO94BRiNa1X6v6la33yGLrNg1C9Fl8
RZYFyQjUmEghGBZioI+TCdIempAYphtiq9dee42qVatmE8i6apX09HRKSUnh
RILOmSGWQUIDPuH69eut7I3NoebSpUsXevnllzX6dn9bb9Nly0i6DeP0XGxE
JZ+EAFnMrOxSpQD2Te8fIRGS7IhhatasiVyqUZk+pZgKLpUtWxZeMXvWkAeU
F154ASch2dX+GPXu3dubGJiGlAGyO1OnTg2CGFBi1oWCN02RrxTcYjCR1KhR
o1ApCGKcXRAkTN+Mf5JHxh8lmAuDrKwsrut7G13X/bgsQR0Fiqdly5acy0BA
26NHj/wrjhi+4qhXrx61a9eO44nVq1fzNK/rjUjFSCcrr8kGbaqZFe6XgXGc
4IFCuHDhAgdagll8pHCAEWWiIL+lk5xghUxKRFDz5s2Z9LootphukLzFGAB4
RKyRU0Em1gt4aRFE9+bNm3U3bJe+ZEFqt1SpUjRv3jwdFCF+9gIs9Y+jp+Rm
s6jzsdzGfJHsKMr6B9ZGF0SeMI44Y1pRQlgRW9sIwt9gH9IZ4uwVTLv4Hiio
BiHvkjnQJ3+AOfbuINLWBeu23/GII6xzXCbRi1KkdvIhEdgjoweQ+Cf2blR7
0brN5lFJLyuSD7BOeKHAICCRmJmZaeUucaKEqeR+ZcwseuECD8kaXVS/nqr9
GhsxLIvbp08f+xR92JDP9sDcxzT6o7bH2gGYEeOP02bOx/lAQ14H6gsFWUP0
Q0nC+0EmNyoqyjJ56NPXUKUMDGK/2lXZSvWDMrgxQtH5JH2TCvLgkIPxyC7C
mqMft6vvvfceZ4lg11Dgdun8NrwNZIWQncQ8eGpoRz+4hDWhmZDP0jDRjnFY
T5xv7T4psHZrrYyU7SJI7j3B3z2QY10oLK7DVKC+dOlSrgM31IXpkOCLcdWW
0mQHFS6cBlepUiUrqQ6liytLFMO1l7zCYM7oE2N3HhtqxtlOEUeidl/fVZo7
At3xBHNHhDqsNHZUpUoVvnUAPFj3ihUrwuZ5vFUAk7AbODG4/BO7lkSK5QQr
LjL0lZa+dTdcZ6l7nAAhXZJNsLXGqhLMRBW6e/jJVS2y+4ROejjCEdAjNzdX
Dn90UXKgQTrraLjc4RlB5C8dYkMlVAZHOdojLkTxm9C05bkAxGcLpkWkDSlQ
UtNMHyfgwaXPullfQYAsaCqrQPgWNBHlF7g9yx+hlnBONvnJGnhm5CMVqGCT
R60VAo6OfCG/jrwt5GC5ZrwsBMsr4DibGhl4EngIJbhU1i8+Mdpn1e3OTmuU
5bR6mwu8RcrH5wlFMG0wRUBvGWBoftzzo5Zs0dyOjr+nOD5uWrh9eLJLFQ8c
Ijm+qF27Nhs/SCgMLyKtwoULu/wT5mGcDA+0cPFnR0tfiYGAcBpxc4yHaeXL
l+c7fSHnFqkQ4ALUrFmzlEw9HmykZzHJzxqs0VJSUkJJ2ljsrHLlykha8VTD
MkZ3yU6tAtp+I7WUHHm7l9rbgMcFbwzfQutrPxXGAGkuYY8t4tmE11rJFHJp
H9TPEjwWsS18hB07doT5Be+2g3clWqItI7N42niQqN5oonb/Jeo2nWj1Pjl0
ao5UXyOWEB0+a2yzNgAYrbOJxq6Rf0Vd9f3DCOfsVaJmE4hGr4DXNI4aD83x
dkxoiprXY/IZ6tD5dXo1aw3XUyfl0bVbRK2GLuN6/bQVNG3mvBBzLAd5evLJ
JzmH4+OySwMKLwzaFpf1MNUotjOtVL+vDggAGg9/0ARTWa1aNTwR8QGtryns
oltHc/I+UalBRPN25NN5xlZrdd77/tM61I3VdavcF0F1mcFEW+Sho82HZV20
5z8H9JqD79nbFPyIeO7Pu0Bhipjew1XdOjCiunyTXO7IWbIfGH2PDZu8atUq
K4zJl/RCHJIgh44xcEf19bkfreb/AV8x0zIM6ty5c6xSwG6wD1FOYmKi0zIO
0Zibjp6TRLh+2/a+OJ9ILu1dexPumJp3S3oodPOOrB8/7583d4U8QO7nbBMM
bLmRive7SzfuFIQ33204wA+Xdu7eZ1JmZ8+e5dduyIjhkQo2LKy07K7I2lqz
BOIOXxNDCxhC+VuGxyPDDv7oewVEtMKrsdY0rCOzIPGBnG/+DnwzU0fR4sQF
ScF3lhONWUmUNpsoKp0smRNde0/58li1BcnjaJ85GFttJFGR9KsU+69xtGH7
ISVXcR4MRsLMVP93xmhq2LBhKy+fQy4nE21gBeJD+GBIBIBFKDoJAEMN3wQX
BWBjZmYm9xcgQPS3js7q4PU6kkVgQfPmzUNhzaUPbFpFXxD5xj/hD3UvJln9
BNOu0gii7cdkx9pcouqj5Dd0MOg6bBHRyj1EZy6b26Brk4ZIHYuy6ZCs33/g
H44WsbPyERANX6xTmYUtfgrdz+XUJVlfukvWhXbl+smLsi5g2NitwmzrBkfK
jy8VNWUD3Z1JSlWAM0e7itagzn120rhV96jNkKO0JUFEIW+9RUPn3qHSva7T
upKNKLnXFcpeL0Rj5P+odIeTtG7QFEoeeJeyF55DkpdyEp/mueOEQWzTKYdy
/tlFmB1xwoRmGNp+LpXueYXW9Z5AyWmXGA5K1nfCeVsgvIhRO6l+ijCDQkzJ
CugK08QphyjhPxdocsdsGtx9JVXJvEbtpxDNFxTsP/40Vex8nHp3XCbch1QS
okHSXjtFfDooc745e0qPxSybc6DqocF0x8kuW5qav/WPGNCnfu9BSHyiLy9P
yUqkL2gcaOEBks3BJO0B4rIDyjA7W3M6Pd3liojw1BdO5CjYRdqfQhg9HPE9
7qHg3+OglyxJZN0UGQgjHC9uE46XdpettkuX5C5C0BQoGRCh2oK7i/LaJJ/t
4GlQCElr/zTAERfOJZUpAxWOXLBEpLAcJv0iWfDIF23CvxEOjrBpacKmRcm+
vDzZd/u2psKJE8FlLZwvfhQaKllLx4/LujhOXrTwrOvcsNi8CI9JBdo+m9c7
OqvCiuHDJV8fl4cAXcIKCc9DaNwzErpwIEg/oMYFm3JUuA8/hxDxJZeDB3Gj
HRLicS6cEi7B3rQ8pemENmEAadAgiVVamjqSxbF/opiY/I1OnEgiTBHabL5U
fG3bEpUrR6RyxcLhkfAyMpCSkW1ZWQh35fj69ZXEx8JgkzDYJDZBwmBDFcjx
wvIK04vnC0IrtxFxwxYrKSAifhEbdiP69FMSvpukKnk4+KZEaU0pJvZ0uJ2H
LD+h0En61oCaNNF7FoEj+XsjpL1vm/hY3rdQ00TqNwgWWLzbVb9B4OR7oPdF
1gKge0ICUW5u/gIApH61UMWI4yN+7FRTtdlUgHyvUeCF66st+P72Icz67cPD
5ap1JtzwOwX+G+z72+Ay7p6/MpDq6JGlq33e/2uz8hd+8Kle8nm8//8DDzz5
XP/9NPkv0+Zrgsw/mtASGvCOIs0A0PQDB6dHsBme002/PnB6yKqmO/0swBXy
f7Pkf7A=\
\>"]], ",", 
   GraphicsBox[{{{}, 
      {Hue[0], PointSize[0.015], 
       PointBox[{{1., 0.52}, {2., 0.32}, {3., 1.}, {4., 0.333333333333333}, {
        5., 0.5}, {6., 0.}, {7., 0.}}]}, {}}, {{}, 
      {Hue[0.6], PointSize[0.015], 
       PointBox[{{1., 0.36}, {2., 0.2}, {3., 0.565217391304348}, {4., 
        0.111111111111111}, {5., 0.166666666666667}, {6., 0.25}, {7., 
        0.}}]}, {}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->False,
    AxesOrigin->{0, 0},
    BaseStyle->{FontSize -> 12},
    DisplayFunction->Identity,
    Epilog->{
      PointSize[0.015], {
       InsetBox[
        FormBox["\"before application of\\nDRAW-BODY\"", TraditionalForm], 
        Scaled[{0.5, 0.74}], {-1, 1}]}, {
       Hue[0], 
       PointBox[
        Scaled[{0.48, 0.88}]], 
       InsetBox[
        FormBox["\"hints received\"", TraditionalForm], 
        Scaled[{0.5, 0.9}], {-1, 1}]}, {
       Hue[0.6], 
       PointBox[
        Scaled[{0.48, 0.8}]], 
       InsetBox[
        FormBox["\"errors made\"", TraditionalForm], 
        Scaled[{0.5, 0.82}], {-1, 1}]}},
    Frame->True,
    FrameLabel->{
      FormBox["\"opportunity\"", TraditionalForm], 
      FormBox["\"average\\nnumber\"", TraditionalForm]},
    PlotRange->{All, All},
    PlotRangeClipping->True,
    PlotRangePadding->{Automatic, Automatic},
    RotateLabel->False,
    ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztWwm0jlXbfs57RmcMGeqE8xFRiPNp+Nbn+1uVPhkqFa1CC5mHg8yKDg2a
k8+pTjqaU4RkTIOlItEgCkekzIoQIsT97+vew9nv++73eZ+j31r/v9a/1zrn
ffbez7733te+9z3t/dzQbVifngXdhvXt3i2v5ZBug/v07T4079+DhoiixATP
8xaIv6F5Hp5JPKp/C0gkURn2cxf/JNELL7yAt2j06NFUWlqa5C5upIp37dpF
OTk5dMstt9CJEyeq2rQS6fTp09xow4YNXrKjrLGigrJPP/2UDhw4QLNmzVJU
uqsW6m3OJTvKmqiycePGkUreuZJEJ9UIxG+99VZ66qmn+FfkRQPUpTCpli1b
0pNPPkkPPPAA9e7dmw4ePBgKUu2mHFLTmjp1KjcfO3Ys/fDDD7I4m2644QZq
0qQJTZs2jQcLSGvUqEFDhgyhV155hSpUqED33nsvHTlyhEpKSpjEmDFjQvTj
jz+KAYlHLgL1l156iZ+feeaZkELBou7psqNHj1KlSpVo7dq1XhWJTEf+SaVT
p05x5ytWrODBfPbZZ5wX5Z4NwcqVKzW49Oijj1Lnzp31fGJU87MPeT04eyll
WTqXffHFF4ZkSkoKLVmyhJ/FJHQbe4CKBCc8i7JY1Yp6ohoAMK5WrRrNnj07
Ep2ffvqJ3/7jjz+45bFjxzi/devWmNQxbrElbHQc1fzsQz4eOpHz0Xlre/0F
dEzrZCbYqFEjmjBhAr311lvgJb27/gpKq1atopBIMVBS1eVBad26dRZKceYV
t3r9+vVc5KyuENX6gw8+oPT0dPr1119p+/bt9Oqrr4ajlMFboWbNmrwFkJYv
X855lNsrJ/a0mcPw4cOpcePGkfWyulZYdTzyf/75Jze/5557aNGiRbRnzx4/
5vHNP//882aIc+bMMfwcgPkgSvv3768Xrnv37twKuUpyOFpmL1u2jNq3b08T
J07kX5FXneZA3lHlypVZ/o0aNYquueYauvjii83kfeq9UFz69Vkk5+bm0tKl
S6lWrVpUXFxMTzzxBM9m4MCBLDIgf6tUqWJmB9FdtWpVky8qKuIxzJw5kzVA
hw4dqHbt2vTyyy9zvQCRWUa/H0kfGw75wYMH02+//QalQ82aNaPCwsLKEqlx
CsRWrVoZGVER/0O2fLVrzw9vuHr1avr55585d44qgw5u3bo150KO9xSJyaoK
xXXr1lUMSdF2xdn4aa2W8JNPPqGhQ4cyTIAP+i1DDezbb7+lhIQE8KaYB/4n
sg5UyUtTDIpla968Od1///3MCj179qTNmzdncXUSbdy4kZUxunjxxRfTVasd
O3ZQmzZtuPenn36a+XjLli2ZamDfffcdderUiau6dOlCH374oZelBrZgwQJe
d2hYqYK8NqpKSWbOZSlS/fr1oy+//NJsINGLp0eRn5/PLKrT/PnzwSLZDnK6
CSB76KGHwpqI6Weq6iuvvJK+/vprroLcBWLCrstUFDEQUDx8+HD8sSfSyZMn
acSIEWhm+Ovzzz+n1NRUa1CJ1K1bN9LWaaL6/84775i1yrC6T0pKstqmMr+i
7fHjx/nl33//nfNiDT09bEiYSy65hLe/z7Cz1Zrj9ccee4xXTzxnWsXbtm2j
Fi1aYL0z1AKhCMYhkqLmaT4A0mAVDPL222+nhg0bqsmk0vfff6+FKRto48eP
Z74QEzAAvv/++ywPyGxG58A1tuBdiLsyfJLpjjvu4PeqV69Or732GrOdnhFE
0Zo1azQtPWqQgS2bnJxMl156KUwWswRaGQupJkYkiIqy6dOnm6XSI1d+AucS
4nO50gGcwCECCDNKaDAIUYgZYQPYy4FeMAEzeKlRIgcDPszIyGCfo5IqA7/0
7dsXdZEDhCUROUBoAYhBJGgOoR3MnoLt/95774WxnzACdO/wkXr06GExRiIr
HK33slUXGPnjjz/OZMQup7vvvtvT+9KCmNNHH30EBaMG3lpRhSy48847qWLF
ioaqsGrZJwCLQgUJ8WN4A7Zo27ZtuVf4NYIFvRxF69133zUgaFaHl5eZmcn6
Hn9CMBqmgYrCPn744Yf5vddff92M/vrrr6esrCzTLjs7m+rUqaNGH1zuX8k/
aXCmGEGM++abb8ZeZ1R2794Nm0dreMdr3sBwStddd53BFtYt8kiwNYU20JQc
r0lB0tczlrR3Bf+kMgvAdsW6I0EAIA/LOTHAO0rrehp9KQ+Z6XWZLg+5i33f
TraLTQf/hyj9T3ee6qIUQdEsLlgN1RApSEI5GnWTGOAdJsdrq4R22JiyHGXZ
ActcbbP0vHvJyagUMSetiSLHK/aPmZPfOyFHzz3xHyEoKVwTwntEaAPGmc3+
iYmJYVvE753gPcqNnkzXXnut2cFvvvkm/BAVTHLX8ShCoNbTPIXCSWKZIVZg
KkDMwDJL9qlLDDzo1uV70z1MF5EmuqwXmbL8vzgECUdGPKHMz8ooF1DAIE+y
DfJ4eAeW1S6D2QX91Q4s/uacYRDBLo3ScJM3OTCGQaSLpBZlnfLUuI8cx4Sa
KewQk4ATCmLaZ4HHA5tj+fLlIbWG9mvPPvss70GsK/xahCcnTZrE+EK561DI
pk2bqE+fPmyYazv4KCDxvA5nIHBSFZC2Leva7i3VezpQUxawTOQoDNz9jz/+
2AwzMqADXw/uuLY8582bpxYxjVG57bbbzLsLFy5kn2XAgAGO2fgJKknRbd+6
mFLPyraRdaB6ypQpdPXVVxs6EXG8rl270k033WSqv/nmG5o7d67GBKOCQb9k
yRIToO7fvz+1a9cOLoZDvvmJTJc5XCYyr485i3SO7MHNiZgFIwRnGyGVqVOn
ytcz6aqrrmIvCmbl5ZdfTvXq1TNg4jcvLw/ceHM4o0nco6PnNcOi50hBgu+F
hYWc12cgOq/rcfCAPBJCCTfeeCOHIx588EHeGea4IJ2PCy677DLmLvgEcPCQ
Io4K0hTMfirGZdiXj6WS2XdSDrVeDOOAwzFAqJXMBkxGWJNDndi4F1xwAfo2
dZDtoLV//36OD1jLETASXc4of4Bq4fDraqglfSqBWOj5559Pb7/9th49XOMI
wl5uudBM5wOdpk2bRrE2kkCExVmLFi00+HD64YEKycPSZd++fQZMsLy1188A
TLs6QFy2fNX2IYbYV1wttKPrdI7jhWFSwZLERmIfOnSIT63EipgZREpsnCEJ
L15rWqCJ3SYWVfM9by2lg7xQAMxUF4FmnR4LUjfEWVHUIPmgF5AQNEI9RARE
G5RqWlqawcOzDjRkxDWcDf/N/9M4ToAAkRZLUNAIJCH4aIR/athrOJ575JFH
WHZAj2s8IXxRX3aCmWJi0oMGDWKlqlgxXMpapwKyomqsQwHfvFh6zkONIo9t
gYSxIy8UmCRfmbN2RGTkyJEcC9XkLrroImMCQqDg/ArJcQbinedAV1tSZJXV
dJS5TWcpN+LG/4OcHyAPrYMJNmjQgDp27Mj0oK2gCQsKCsLOsSHkMDmEKHEw
JEDQph1EPULR+rhDn8g6jjqUDRY3zqK86sgYuY/rVNNiby0gqqnO4pj3mk2j
Ba8VKekVy8Cuod63bx/IjoPEa1wR6qSwCLVIvX07fu6553g1S0tLTcfxYwnu
6DJDwbPubp7KYWHrKx0R0d+kcDA5d+ZevO4kIkobvBM/KzRFgWpHVpNic52f
w67dDTvceXYd9WtUG1uQ5EUO2UXYcUMndgtmVd3C5vpIWAJHU11nWmVbvYdC
TjzW91Q6E/895hGUywfM02WWx5ujyPga4ufENMQtl4GBQXLc8fG94pPsoq5Y
P4MXAwFyzBMUL7zwQj5wxe6RgPGFIxvBC9WcIEQ0A0MoIGYvdrqM8gULPPsd
l7kgZhWnbB99uo7ka05nGXM6UtnHv26UGmU3WeSNfWSZ68ZY0YYCDsphrOBZ
uBG2SbVy5Uob1zqqaufOnVz9yy+/mB5gNyCGgFymGlmQ4K/fsV5Z8NeGNdbt
oCjDOvz1uNdiopG0KCrBl8LNcTYKdzLKiHXu5zqKOjqEuwNjD0jgBAg2aHZ2
tqdZMn5o2XWkmBx53sXdN1O8FTmr4HZ1OQFMt81wP/LaJccsFy9ebMxmyNuI
i1w2kHqZfCSCaa6t8zfeeEMBd27QYAKX+UkdANCuXbsQw1yBsaxfvz7NmDGD
m7qEWaoaevxAfvjpq9LcDhGTdSZWvacdjkgZU96bUDHoa5m9d+9evkMEEpCc
aA7W1kNDHve2ohY3plTS4CAYC8dXWPRmraMFnjs+obk0Rhf8LqIx8DK++uqr
pJjkw+VpiurSL/7nOqsuMwb+zm81I696c6oxcDc1KFhLuXcspNr/1ZsRnrpM
VAud3WvKHrql6zD2SZp1epbLxr5LNGRcEU8CLuu44g/p1mKigilbKLfrCip4
aLq+rmXo/HPQR1St7j/Yh6lRtyk1Gr6VJiwk6vzMXmpy16won6dEtSucS3T4
2GlqPWQ25//eax61vrEDTfnkFOfb3LeKKlWt0U2Yco6V9ZWcFbga/h+ggxKA
OYVkC2GXXEeKQxrX0VAE5d6wYUOYYlGk9Zm9XwjRdWbvMn6bas4RG8jrvJOe
nrujjDE/N6NmzDbs1gZ0hs4bpl23fgPVGEm0Qsok+kz8In/qtHW51WqDhOdp
q+TzwaOyj+37KUktQuTrKq9HZ1dv2Uv2BtUeVmyhnQlAWHTgHXgwmuVj6AFX
9EbHLBzdMKl9+/axxASbYNlxxxx3dXy6cUaE9Bpt2XuaZ736241lt+XLUPB0
PMBGBhbY4uWlst3a9Vx27IQEc+uvsdfmpOCHI0J5Tv+CqPljROcNJzp64kzW
5o+T5BKeMeSurK7HykwvCbYJPAq8Ws4YkK94FzYhrw8ilEi46V6xYkXTp6Of
spBnvprHhP+8xtMd/MpeengRUb9pRGn9yfCLqFq3K3p9VBlr4rsGjuey6TPn
xFifCmFtFKrUcJzcY/eKZjsP6C8owtcf5yk+eUcoNY/nDgwRioIfgnAisEXS
wSAYILCq4HQA/2HDhnF9OWJRsfrRDhhi7gMGDGCvtG3btiFYKVKDuXqJvXHq
8KQvGkv05U+yYkkpUaPx8pkFnwDknneIFn1HtOc3d5kQZFRzlBRsSMs3y/yp
07HpbNsvy/Yelu+MmUPKV8w2C/H2V7Ju10GZn7dG5oVI4/yOAzIvaFhL1UCx
lzZwkdNhzGgE6sJwpDWVGlOXQatp4uI/qf2oH2lFVeG+33cfjZ5xgnIH/E5L
z7uKag04RMUfi+Ua9w3ldtpBS0eUUK3hJ6l49j4x/DG0rPo/ue1EoZXa37mM
lv2rq5DhguXFNhvdcQbl9j1ESwsmU61+B5kOElTxyFlC/Y9fTVe0EzpFsA6Z
uyXZVFSymaretZ9e6FxMI3suogbDjlDHEqKZApkh/9lN9bpspYLO84lw/W/+
fJJK8wxDHQgGIdQKpkLIA2fDkdZNCnEAx1LaKh8KUp0lq6zTDX7Wn7ygTn0d
JKw6Wbd9u2KL1GjS2HfCoiPLYCRt0cHqxfWL4mJj7VFRUUpKuFMnETonXpCG
n2H0w6CHekISDhNfCxRmR+wQwlnBS78O7xIHsBh48+ZCEZ2HOwix8RJ2EpcJ
O0lbxabs4EHjuYgyPROvHHdBdCgANyOUOWZw085vYKBYBAQHKhOHWrGBgiQQ
BqPQ+JDSQiPslPogW75mubqExUWZsD2E8SF0Vj+hs9Jk3fbtsu74cQPVtm2x
oAoSNYHWxTdYsHQQNYEVBKsEt3MjoyZqrOq4SHCfzKvwmQVYeF6fTgmE5ghd
qIIsUQjpaQtZxWnMGMkh58pdhiqhjYTpIKT3HkldWACkLxzh+FpZGlyHr3OE
/8xp0ya4iAkJYRsveMQ+mS/r4w4HynGfFuEsl72er97n0QoZRiNGyFH266e6
rQI8iHAPQ0+8qIiEvyIk6kwpfDt0IKpdm0gdVwnDVdLDdfSSEllWWAg3Xb5/
xRUmxCkUOQlFToRvE4QeF7JHvi80slDJuHwjNEN7HOmaIAht3EjUowfRpEkk
jDGJMpELqvhBhxQ+b8d5CxxbyC6YIvn5+S605FeoKXYU2WYLNiZCkKP6cwVq
1UrD5l2A/+U6vNDWsQ46YqRICGPl5OSU6Zl83V0ZRxuLXphUROorHTMs3MdR
X+nkGioBzkC0Ozh58mQO8Gi1hw8i/dxBZhmBMZWWlg0MA1DfAzVwYnPWLjc2
VmWW8JMxw798uTHN9aURNwtw49znOPQfCjT7TNMOH2iFixTzCnqgebh6kktW
rrvoZ9jD/54L0dmmN58l0MMux51nFlP/f0n/7HUe6JK+32LGvU7e10HI/hLI
Lywa9lVJ+Hc4qaqZS/CqZn6fvHgJ/w3LE4RK\
\>"]], ",", 
   GraphicsBox[{{{}, 
      {Hue[0], PointSize[0.015], 
       PointBox[{{1., 2.}, {2., 1.}, {3., 3.}, {4., 0.333333333333333}, {5., 
        0.}, {6., 0.}}]}, {}}, {{}, 
      {Hue[0.6], PointSize[0.015], 
       PointBox[{{1., 1.8}, {2., 1.}, {3., 2.}, {4., 0.333333333333333}, {5., 
        0.}, {6., 0.}}]}, {}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->False,
    AxesOrigin->{0, 0},
    BaseStyle->{FontSize -> 12},
    DisplayFunction->Identity,
    Epilog->{
      PointSize[0.015], {
       InsetBox[
        FormBox[
        "\"before application of\\nCOMPO-GENERAL-CASE\"", TraditionalForm], 
        Scaled[{0.5, 0.74}], {-1, 1}]}, {
       Hue[0], 
       PointBox[
        Scaled[{0.48, 0.88}]], 
       InsetBox[
        FormBox["\"hints received\"", TraditionalForm], 
        Scaled[{0.5, 0.9}], {-1, 1}]}, {
       Hue[0.6], 
       PointBox[
        Scaled[{0.48, 0.8}]], 
       InsetBox[
        FormBox["\"errors made\"", TraditionalForm], 
        Scaled[{0.5, 0.82}], {-1, 1}]}},
    Frame->True,
    FrameLabel->{
      FormBox["\"opportunity\"", TraditionalForm], 
      FormBox["\"average\\nnumber\"", TraditionalForm]},
    PlotRange->{All, All},
    PlotRangeClipping->True,
    PlotRangePadding->{Automatic, Automatic},
    RotateLabel->False,
    ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzlW3u0z1UW/7q/+3K5rkduHl2kQg8qamgyNSuallerh5pCywiTbihvikEv
vdWkFUPpqZKKiZRaMpHkkVHoKiXyKiWJynPP/uxz9rnn9/t9f6+rWfPHnMX9
fc8537PPOfu99znfLr2G9us7oNfQG3v3anTJ4F639Lux95BGf7p5MDdFKgVB
MJf/D2kU4Jn40f6ZS1y4M+rnevnJpqlTp+ItGjVqFJWVlWWHNze3zdu3b6ei
oiK64oor6ODBg7V9WBE6evSoDPr000+DnJC2FhYK2hYvXkw//PADvfLKKxZK
bzvCvi21nJC2s2zbuHHjyJaglgHR3Q4C8CuvvJIeeugh+eU6D0BfroC65JJL
6MEHH6Q77riDbrjhBtqzZ09WOt3hkLPstp544gkZPmbMGPriiy9MczXq0qUL
nXXWWTRjxgxZLFBaUlJCgwcPpqeffpoqV65Mt912G+3bt4+mTZsmIEaPHp1F
mzZt4gXxozQB+vTp0+X5sccey7JY8KAH2vbzzz9TzZo16eOPPw6OM5jpJj95
dOTIEZn8gw8+kMUsXbpU6twe+Cj48MMPFbl07733Uo8ePXQ/CbrlOQl4XZxP
StNWIG0rVqxwIHNzc2nhwoXyzJvQMf4CLQgpeOa2RN0WesQuADg+/vjj6dVX
X43FzldffSVv//rrrzLyl19+kfrmzZsTQse6WSR87IR0y3MS8KmwE7sfrXvi
dQzYcaNzBGDz5s3p7rvvphdffBG8pNJ1LFhavnw5ZXFJgCXbnQmW1q1b52Ep
xb5Sdq9fv16aQrsrx41+++23qaCggL7//nv6+uuv6ZlnnonGUhURhQYNGogI
oLz//vtSR7tPOZZpt4dhw4ZRixYtYvtNd8Oo7lTgDx8+LMNvvfVWmj9/Pu3c
uTMZ8yStT5kyxS1x9uzZjp/TYD6o0ptuukkJ17t3bxmFWg2zHNXZS5Ysoa5d
u9LEiRPll+t20iLoO6pVq5bov5EjR9JFF11Ep512mtt8kv4gKyX8ZqKS69ev
T4sWLaKGDRvS5MmT6YEHHpDdDBw4UFQG9G/t2rXd7qC6i4uLXX3SpEmyhlmz
ZokFuOqqq6hx48b01FNPST8jUVhG34+FD4FD/ZZbbqEff/wRRofOOeccGjt2
bE2DqXEWiR06dHA6QpCY5etXv7du9MDVq1fTN998I7Xqtg02uGPHjlLLCnnP
gnjUdqH5lFNOkVoD0xXqXvymPx0tCd977z0aMmSIoAnog30rtAv75JNPqFKl
SuBN3gf+RsQG2hJUtQwKsrVt25Zuv/12YYW+ffvSxo0bDTqyacOGDWKMMcWT
Tz5ZzY7aunUrderUSWZ/+OGHhY+//PLLIruwtWvXUvfu3aWrZ8+e9M4771hk
Bp3s+qwWtgxthpWWltLKlSudsDDEQGds2bKlsKOWuXPngh1qhIDTIUDPXXfd
FTWEt1pku9u0aUMfffSRdEHHAjvsw1VKtc4IHTp0iIYPH461WosZoWXLllFe
Xp7UlAa9evUi9Toj9u9rr73maKDwsOfs7GxvbJ7wIcYeOHBAXt6/f7/UmTZB
kiUq3aBU7rvvPqEAP/vNW7Zsofbt24Nm1Szi0QQHD8VCs5ByBIMgNxZ0zTXX
0BlnnGExnEefffaZKkRxssaPHy8yzYtNtsiatg28BvVUTrQcuvbaa+W9OnXq
0LPPPiuOWJFdPVTHmjVrFJauEGDge+bk5NCZZ54JF8OCizjjyVqIOZCBVqKX
XnpJ1paS0DmqmqWAwLw3h2EYFug2SD+bZl0jhkB9Yp1ujUbRK9m1DWxUpUoV
Lzxwi4Exj10MFDE0EQqUNytox+pwv998880oTmE7rDMhTOnTp49H14jo/GjT
kyOrvP/++wUMCx8NGjRI5bajHQYZvO6666hGjRqOAOw5it8NFoKanzdvnqMn
/L3OnTsLWMQOzCKO/nPmzInbJSKpqlWrik3Ff1Y+rg9mADI1YcIEee+5557T
5aWvPFvLTz4iEsEBFnb55ZdDsGTfO3bsgOOgZjLktWBgNKSLL74YTCWj4SKi
jgKHjVWqQgp5LRCZ7xc4dzT4nfzkCRHhAIJyKJBA1OF+RtJ+JxIoeo3ykYVo
m+PHVH1ZFRz3/9EXjeMYMoKp0A1RR2H74rR4JN13ZIaa0ZNJrcaxtkVClqw6
PXY5LAhuyanfiZ6sD/4iIRP4mldnRKAPV8Xn40gkEsXrKd/JAvQ+7sluyoho
DrVr187J3gsvvAA33Krc8L7stDehM4CK0A8wutAX8F1ykvRlJ150x7Qn75hq
50Wp1JxDZog3F4qF32vbX8m1NU2CmSqp1KM8W1fNedzWVbO1hJtMR1vmWSC+
k5U5jyYT0mxL5jBPSfpkouvdUwYCp6DDXJz0eTQdQVPE+I5KrsN3K6lXFYcB
zh48AOS5YPFh1bt16+Y8VbyDdGm/fv2yEJYwE8L3AElRsAgkErFs/G7btk18
x/POO09QsHfvXnr88celn2M9xhY7Mrw8xJBoQx/7q7peb7bATBfxpzPIzkwl
RPtGuSFobmnfu+eee+iCCy4AK7t8KibfvHmzvAi3DI6KC0eLJHuDMFbRodRG
fgIFYTPYlH0bh83A5otVOrzkjFuyN5V7z5vLLK9C2ivMIyvXXooKkK569eqQ
ZMe14LPvvvtO9oboCvGS6auGDJGQ3N+j4gOeLpNeuErzN4GfV4n21pUV4qfJ
jpqGUqvZsy0oaE20QzIsA4hDHJg8nNsF/HEb9blVomDawsJC2r17N7388ssu
6ovaRYHbBf4j7Y08DQIHFG+6bMtasbNdeOGFi8r3Y1O5gUmXByZf3iAqX46S
TrodyEddTz20rv04akAdBWr60ksvlQTEnXfeCUEsPyAokAOCc889l66++moR
jQULFsiwmMOB+nEMpZEbYslMSQCmQb7LBpdSR+AQl6ArJwFkBdlL5CBOOOEE
4ec4EmTHzubzkxGxGGEt8DlVSoa5/DS6ly5dqt2w8nr2AHGoV68e+E9DEATU
MYCDylLJD0smyXtpxENhlkglCSgHu7377rtOLwDPukIIbLk1yxeW9ARWloMc
KwLlb7/9Vs+WoLmRdE5ATS0wJtZM+7OpxvAmM/SKU5BpEtUnSxpZ4My6/SMT
lmmVirCzwMq2zVePmrP3/S2UhPGoZ/Ej0gMRZ/lwJg7WXwvsDvjAmbh8seat
WrVCGiAKIa1bt0bKPmJJCKGEtEXttkrcyQNSITA/8PFiJow64LMzxhv8UBKm
OOGIP5FJQOFwihfGDceBDlwtFGTb0A9tiVQGkJCfn+92gz49zQkjqCF8RvG/
1FrZnb/11lvUv39/wSQYAmqZ3X+dHruBdi73qPLF/3zjjTcEzk8//SQHDAAN
Vbhz585sSztV6rA5OAaCAkU+H23YKXL6l112GQ5ggsTTRfzpEjgu3kl6+WlM
caLTmKR12GcUoBH1119/Xeqq/RmtBnwtqarIoIwYMUIS0wquadOmLoENHY+D
Q5SQwydGamLKZpgS8EKxLq5Xub9eypOYdE5yUIc3gB2feuqp4poBHryIJk2a
0IABA/wLBbAO2CzyzDihY6SofMO/wZmAnjvp0XjImVNSHP02OYgSO4OvROsk
mbWCeYgTPGZXRVTXtvm53lw72bHlJHQ2hEogXFlZmduUn7/Ns7P9L/MTKdwO
h+R08xPhC2kTQlL1aH6DPEQYeNXcFcs7hEFU5sgwz5AM1LHlFRJDTpRHSIi5
eCFIHYUnS8iFM3ryULa9nSlpRFM9YUTjBV/iJaOEXI9Kejsq0pablisi7I5O
suuCOKuYauKFteCJIahpJ38LNDzQ9uTxQaGLD2JNZepbUnlxHo8F39UjdmNL
GqR88Dr7807SYC4RsqHWKIYk8Vd+krrE0a+nvD4Tv3QLsSBu6Xky+uyzzxZH
AxYHR1KIjqtVq5bk6D3bHb1XMJpqZwlUcbeyQkixXqgP/jbft8h33ALJwoE6
GP3kk0+WKxTOcYrINQIAfP75560SPC7dzECqKWQP7FRmYRBrXaCjWbNmNHPm
TBkaMo31K/LDLhzIb7ondx6PFlbEOQx8x9IXtkxvMjH8Mm5r5RMnz20Jb+P6
DOJuPOOeiN7+g03FfUl25JwseprBWcmw1IFyVoI55F1kwOBcrlq1Kjsh+IgP
3ul//5pFruXKTGMek00qosWfE517N9HV/yDq8wzRgvXmhSeWcDf7z2PmEH2x
K7TNrrExO4ZtqfngDdR+0Dwq7v4enXR+T0dQHXNm7zk0+r4nRajnv7uCOj3K
gfawhRScN5HalM4TZw5Fb1/9eewCGXf9Y1toH8vi1MUGTuEfH6Q331lMtc4f
LvVxHJMsW/nJU2zroukLVj399NPlDD4+V2yifjj/mBjXM6CAUDytGYSpzSSw
FTRuhaEJ+GcfBLd84kCba0Zx91GyLTnTC3SaKGG9QEdDg8MsFPWGE728qtyj
e3YZlb/IYz7doa5XFa27coT9i6DbFnpx4VdSX8oKp2SEtJdrzpgxeJ6xXLm1
SPq/3k2apo193dbV8HO1WVC9GTZ2YlB4oiWnrh2YQICu1+HKaVlVzgSgCfAO
wii9qpFA8ye+HVorbBoBhXQ9NCjYBeTHCQ2u4iSZhpFq5vGv81T0pFjThpu+
M3jbf8C79F6O10CjyVhcb9p1VNrWrC2T+i8HDZzN3ycec4hZCLL30gqivKuW
U+1Bh2jVmvXAmUt5paapducFkbxoEd21a5dk9qHAcUiG/TJe7HqaiFFTUkJO
YG7wboYZhUTzyPvsagldkRBFwYV19ozdnCHz5FuODLsEpfKbXjjc0iJxy26D
uDvnEU2YT1Q6gyj/JnJ8yl3rtsfT17ZJueuR56Tt43UbktLXH/Mrs94Z44xY
XzFhPfW9eaxkfXHh3dA3WsSx3wT1qLziiQ57oAIyIfDIcRFKD/P05iRcGbhY
iNhAwaFDh0p/BrmQRPO4ry3wOQWyetCwnTt3zoLDY8xm2DRK3LBLZZlejDAy
e5LgqekYopVGk9JCFsHm480z1DRweOtrRPPXEu38MbwN6rjBSKOGUd7faOpH
jiaGo2y16yfzzujZeiZY6GjH5kHK9j2m/ro5ZKMvd5n61h+kelyQf5zSt5ll
S/WRifTWbPiNt/RuexhZOAVuLq2p2YJ63ryaJr51mLqO3EQfFHM4/Le/0aiZ
B6l+//20qO6F1LD/Xpr8L2aJcf+m+t230qLh06jhsEM0+VXWkBxpLqlzvoyd
yLa363VLaMkf/sLGaQa0Do3qNpPq37iXFg14lBqW7hE4KGP/yd7pK+zgjF9N
rS9jY8nsyRo50DBw0rSNVHz9bpraYzKN6DufTh26j7pNI5rFSBz89x3UpOdm
GtBjLnGQ36kTeyT4lyQ3pOJPaPPcC1vPSqe70HR5+Xp51m9k0Gc/J2Iv1PTJ
rQESNRUHGvLJHih5Di6pBwo3G4mnyZOdd0qTJuXmRgfl5aktTav/F7anr8N4
4rgVwohsVN26RO7ORsj22AGTNnbAXOJJ2/bs0W1h8Y0aRW/rd/b1+Bi2SmwM
K8+ZpOZC+UAENH1EsQCuX58YURBV9kSppATKl2jbNiOV1cxrXjjL3oxpY2eG
vRk2RqVsjExAy6xj+g4cMKcPJSXhV5tSxI/ynF5KsZW/THsgQbhFgjrjOAZX
0fUpUxxyZs8msnmROOTojnfZOGf0aEOlWkYe0MX2hd0JVqs7DXT2Ckj3hzNr
631IHz684dhayuefT5/OKKoUxOR3o4O4AtuWKiVqGCXHLImZigGYpZSWWvC1
sWliV6R8d5MmEQc6rKRmGX3GWpkaNyayhxzs6Rp4AwciVWfaxo5FmG7eb906
0GMstr/ElpAI3xuwgWRVYN7H1Qy2owTSsmZnQ+qOE2kDOyR9+hA98gixFwZU
xqU548IgNRnJM7rmM9FcP/zxiWuyq9Bbil/q0EHxYk4Z/HSwvcAX5a1nes1M
vXSPI52Xzpsgsh/QuAXBw7Af0MhNj4QXkcKcTYUcnlLW+yLCAMXFRGVl5WvB
nPbrnKZuRMxFsMQu0LGloJN7CclT0WmdubSwbZ42NHokk3MYo/ArJ/oOSKBa
he9MZbpZy2S3ESsn+qJHnq0CdTMmz8DFbUp53P8opwK35pNswhdo74OazPIa
//U73cqIYR/V6FIziNDxW+Hb8lkVHPf/0Rf6FYEyWcynRmkH3/EfliT8UihZ
zDfQhxD+RY+eJ4bFPnZ4sm9ygkr/AUVymgo=\
\>"]], ",", 
   GraphicsBox[{{{}, 
      {Hue[0], PointSize[0.015], 
       PointBox[{{1., 1.44}, {2., 0.56}, {3., 0.36}, {4., 
        0.217391304347826}, {5., 0.}}]}, {}}, {{}, 
      {Hue[0.6], PointSize[0.015], 
       PointBox[{{1., 1.}, {2., 0.68}, {3., 0.28}, {4., 0.217391304347826}, {
        5., 0.}}]}, {}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->False,
    AxesOrigin->{0, 0},
    BaseStyle->{FontSize -> 12},
    DisplayFunction->Identity,
    Epilog->{
      PointSize[0.015], {
       InsetBox[
        FormBox["\"before application of\\nDEFINE-CHARGE\"", TraditionalForm],
         
        Scaled[{0.5, 0.74}], {-1, 1}]}, {
       Hue[0], 
       PointBox[
        Scaled[{0.48, 0.88}]], 
       InsetBox[
        FormBox["\"hints received\"", TraditionalForm], 
        Scaled[{0.5, 0.9}], {-1, 1}]}, {
       Hue[0.6], 
       PointBox[
        Scaled[{0.48, 0.8}]], 
       InsetBox[
        FormBox["\"errors made\"", TraditionalForm], 
        Scaled[{0.5, 0.82}], {-1, 1}]}},
    Frame->True,
    FrameLabel->{
      FormBox["\"opportunity\"", TraditionalForm], 
      FormBox["\"average\\nnumber\"", TraditionalForm]},
    PlotRange->{All, All},
    PlotRangeClipping->True,
    PlotRangePadding->{Automatic, Automatic},
    RotateLabel->False,
    ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztW3dwVcUaP+TmphKUFoIZiihN6eqIT96zyxDAsaCjgIMISA0igoACIRYc
K4LwjBjEBgoCIkVEfQ4qRbEgKBAE0UhVBBERpH5vf9/unrvn3j3nnqhvfH+4
M8m9277d/fr37d7OPYf161PYc1j/Xj3rtx/ac0i//r3urH/l7UNFU6SS4ziL
xd8d9R18J/FV/VtMoohOz0cv/kilZ555BqNo1KhRVFZWlmpvbq6ad+7cSaec
cgpde+21dPTo0ZomrAidPHmSJ23cuNGJWtpaKCho++CDD+inn36iuXPnKii9
1Qw1mmtRS1sr1TZu3DhSxakuQXRXkwD8uuuuo8cff5w/RV1MQF8ag2rfvj09
9thjdN9991Hfvn1p//79KWG67ZBT1LGmTZvG08eMGUNff/21bK5CnTt3plat
WtHMmTN5s0BpnTp1aOjQofT8889TZmYm3XPPPXTw4EEqLS1lEKNHj06hb775
RmxIfOUmQJ8+fTp/nzJlSorCggHd0W2HDh2iatWq0bp165waEjPd+COdTpw4
wYuvWrWKN7Ny5Uqui3bHRMFHH32kkUsPPfQQde/eXZ/Hp5u/B4DXmzNJKduy
uO3jjz92QaalpdG7777L38Uh9BxzgwoEF3wXbX7dCnpEbQA4rlWrFs2bNy8e
O99++y2P/u2333jm4cOHuV5eXu4LHfsWImFix9LN3wPAJ8NO/Hl03RCvP4Ad
d3aUATZv3pzGjx9Pr7zyCnhJS9cfwdLq1aspRRQfLKnuimBp/fr1BpaSnCtp
94YNG7jJ2p2ZMPvtt9+mrKws2rt3L23bto1eeOEFL5ayWRTq1q3LIoCyYsUK
rqPdpJyQafcMw4cPpxYtWsT3y+56nu5k4I8fP87T7777blqyZAnt3r07iHkC
608//bS7xfnz57v8HIL5oEoHDhyoCderVy+ehVpVuR2ts5cvX05dunShCRMm
8Keoq0VPgb6j6tWrs/4bOXIkXXrppXTWWWe5hw/od1KSwm/CKjk/P5+WLVtG
9erVo5KSEnr00Uf5NIMHD2aVAf1bs2ZN93RQ3bm5uW598uTJvIc5c+awBbj+
+uupQYMG9Nxzz3G/QCKzjB4fDx8Ch/qQIUPo559/htGhc889l4qKiqpJTBUr
JHbo0MHVEYzEFFO/mr21vRPXrFlD33//PddOVW2wwQUFBVxLsYxTICarLjQ3
bNiQa3Vll9W9+FM/ChQJ33//fbrzzjsZTUAf7Ft1tbEvvviCKlWqBN4U58D/
CNtAVRS3pTHZ2rVrR/feey+zQp8+fWjLli3SB0mlTZs2sTHGEs8++2x1NWv7
9u3UsWNHXv2JJ55gPt66datEmNNR7UFpWq7VVHseMGAAffLJJ65AiFmOhtqm
TRtmOV0WLVoEkudawOkpQMEDDzzgmSKOk3QjETp27Bjddddd2IwiaoQ+/PBD
Sk9P51o11dazZ0/SrmNE/X/ttddcRNZQ43Co1FTpL1byXz5XIRZS//DDDzP2
xPeaRvN3331Hl19+OZBaXWENTfDAUBQ0F6M4PugBzr3xxhupWbNmTsD581Qb
CA3dEMNmlG666SYel5eXRy+++CJ7QTXUziC3a9eu1bD06gADxy8ajVLLli1h
34NW19OU0uMCrAtN4GgcQGVDa0CuhNHTG8AUKCZswt2AVKGaFqnehWES4xeG
OoM8o0AFCjXnMhOc2DfffJP7fv31V54rrJleCc5+7969DeRHWHNqBa5WL1Bd
4OSbb76ZqlatqqgehY/FHipoCYW4ePFiF/nwjDp16kSPPPIIe9nFxcVOLQXr
9ddfd09SQ41HzFG5cmW2PvgTYqoxH16VtOWPDPjnfBYsfs0110AFMBp27doF
M6qNhmWYM9gL6YorrqBZs2bxbDhMqKPAfREKRkOyDJMhSX/Hdc6c8/kjnYkB
dwgUQAG7ow5nLBJijFLkjkYhSqq3jWspf7f9FW2OheRgQHRDTaOI6Jrr4LhI
iDEMjlfIs2wgN2SbUkmOc5vcpCpxe/3qq6+s+xDS4u41aIwNRX3wHzkMaUwq
eVdEbAzrbjJ7JBLxCETQmBh2OMuQYhxKynGULrvsMldAX375ZXiuKv1g74uE
PoReAeSDEoEZhFKBKxAN6Isk23R2MjXG35VnJMDBK4qaXpEEJkrfgI2HVnE2
VyfgDGGUnVJaHuclWmHuCZIbCS3BP4ntu5f7rQJSkK72bTodNq7voNtui9Gj
duBZgrg8VRHC5mwkZaZgCbC5EX+uBNhchdimW1sQlcb/MzgAR8SFfWgHHe49
PCURFstT5niGISqeNGkSPfjgg5w9mzFjhqd/4sSJyHGpI2Z6+p566imOppEd
RB1LIVWXoigE7N9www1uOkHMvTdOkYb0QiKKN+OCEhveL1QMp/MYsXxehJMU
iIbfe+89t02PE5t1I2QcCpE0iupXOE5PyI9oZj9+/LjmA0YIIuDYQXkd1+pV
TKto0Te96Rg/XOjXK3Y8depUuuSSS9y9qjERdUzIq86S6NhC9/3yyy/x09yj
6GwHubKcytkQJCvh+8aGNlHUNk8d3rWzhWCpnhBMlHMUD5DBA1rp2HCCBBuy
D3GH02kb5NgQSwV0QyatGM3wMAasDbx0SInarEYgrgDisCJVVmLau64n7Y0S
JmteVFTEdX15oeu6HzcGqKMgB3DVVVdxHuH++++nfv36xfL8WZznP++881iQ
EQO99dZbPC0ux5+uEJ/ce7PHtHz8JAwd5QhQhdp6tmj1YtbLMPEdMZ6NutTa
s2cPnX766dS/f//4PsDRTKx1Vsj0cgVT9yG6V65cqbuhJ/VVAxKcp512Gr36
6qt69wjh4wAL7qSk1lpfesWF/LaIKUjv4IKndevWfpjBiuDYgO6xY8fGd5sy
duTIEbrooovo4osv5uEoSisFyNjvuBcIkditWLd5CyLkm7uFJrRd72mRSu7o
JKRIEqXJMFsuig4cOMA2XzBOgjmMjYtyAlYXbQ61RGotYvaZNyiABY1Sv359
yJmHyMpsoqVpOBFTK4TCdZYfIe2EzUmABksBPKNAZaEfChKuEjz8jIwMF23o
0/cwGer4Ni8yTY03M0o26fqHgiT8Qs6LayUOd6y4uJi6detGCxYskMvX9gxD
LhceHVSENv5+/VdeeSX3w6vTfhUcH2wPn6jDWH7++eeuVwdY2AL64Oh8+eWX
gG2STxkz49ZEduT6XZoE1gV7ch2bQn3hwoXuoVAX8iDBs8PlohxlxIgRnFvW
4Bo3buwGZtDNuN9DsdwRKfGzu+rawTCzcwFxhZPPqyS7GAlzsYI6rDpO1rRp
U+ratSvDgzfQqFEjKiws9Fzwg8o4FdLKuDETp5ebymZd0aNHD/ceSF9VW+6A
dJ7cw6P2CKeuIRFak9VS3Bwy1wiOAoMjfMEG33nnnQqEWHXUBsz3FnlqA6Hi
9zRq27YtffbZZ9yFS1gkCoTCSswsmU5nh3iq643AAQTZysrKFCbC5TWR1tfG
DkUnpt0k158W+senqnBDh6cTEHOIv1jZSBz9rjyA9uj1nbbgWTE9Ly9P0NuU
WJI+l08eJnwWTGZKsrOzmf5p7pZ/V8yP+Bk8iwKtc8cdd1gZ0k04GrF5gfUg
YfIAuPtEAAR7g5T/Sy+9lDx5EVrIoLqgPCBkEDahVSucxzg1mUDxdxALhIAN
RSkvL+fASHBVHFOJDaiIxbGwVxiZ2bx5s3ap3LU1C9pkJu7Blm3ZMIIDEcVL
GrgHEBzYRcRoYk684KgN+CyW3DmP8k0nLt3QnpOTY6RnvGeTkXFacIB3qm+A
Z4SizFMolkdfOgFgffMVtUFXB8lipIOxoW4B8cwzz+QbeBBWosVE0ZnqOFCn
WmQQReLGTKAtR2EwuWpI4+QGNDLCJHAq9izchJhwnaN26MioS6M0OOzKccOu
eE8m+Vuz9ATv0wDveplGWOf6wNoLgpOO/Ba+i3DTcEw1U+gw6AzVtWPHDh79
ww8/uCvAKUKGTJ6HfDVjqlpdw9DpIvjMwr/zZ8fER1yBEZF3eNIHUYloNCAq
ry2Np5999tmcaE2IAwJQls4LIrCFGwvRhIqGW16lShWnikJXkEp/8sknWQq0
0sXLu3iu+yOBSAXRlWXGLUHg9f6hlpYuXeo+2YFtDUCbmQj2EXR3OlK7mD5j
xgwlpzXC5p64LUiZAAFXX311Cu8xk3HZpEkTmj17Nk+16SgZxGXYXtrwnBDX
4/5CkPN7AhVHx1DxmqWij9984GutjGwYno0BBOwapsMs6a15tXISNaSdMaAQ
qQYRprgUT9Rw9sSV5lWfJXjsvn37OHT69NNPU33BexWoLUksx2V63BcU3zcL
htyeI/y/dlRn8C5qWriO8m96gxr8qy8jedpy0S1cwtum7qZrbxnGkM/t9m9u
G/M60dBxk3kHiNDHlbxD15UQFU7dSvm3rKLCB2bpR3ounAtv/w/VangBB2h1
Gram5sPLafwbRN2n7KFWt85NCOhK1byiBUS/HD5JBUPncf2c2xZSwVXX09T3
T3C949jVe53UbBt5A1WmxBciW5gHBA2QDhRT+9oUOkoS0HiBiCZ4es2aNUMw
mAC6soWUUUXkCrwO4VobzT5CgJzuO+iJBdtj3Pmhu2tG2MZdOueZresu567f
sJHqjCBaJdUTrRSfqJ84abxnNuag4PvM1fL7/kNyjW37SBvb+OGqrj0wo9ug
oHnZY1fdlRFZsNbAGGQFdKzjYw1sSS+dgbEsw6B+/PFH1rvgEFAcHjIemwUs
I4jvT9ZwL0A0MbfuOcnoWfPFptgvKQx06ZSIiWE4aEtXlMl56zZw2+GjEuvl
e/2JeEwwzkFhcGd9TNTuYaLaw4kOHa0AEZs4p/pdOfjoZtndiG2fph1ECWoL
QyuY+go0AcJbZEIieYyCH0BUrVrVXdOyThAdK/A6ht/itFGYGD/pRUbdkOf3
0INLiAbMJMoYSC5riq71OxOJq9rY9N86uJjbZs2Z70PcTM8clN/ELpuNk5J8
j5i24yd9lMoeyuLdQUA9gbT1GXegARJ5CGnwAkAlx93ULPwdOHHIDIF+w4YN
4/4KZPL81tH8h6ubQYMGsYfaqVOnFDhFMn1iWyWIsuFeIUl6nsEIajyG6JNv
JcLeLSNqXiy/syoWyLv7NaIlXxLt/tneJlQr1R0pVS3Kii2yfuKkP5zv9sm2
Peq6e/R8/Zwz2yXaq5/Kvp37ZX3hWlnfukfWtwsmMDMxTRVWtN9NbjDlfZma
pvAV9lGVxFVD+L+0tloL6nH7Gpqw9Dh1GfkNrcptSzR2LI2afZTyB/1Ky2pf
RPUGHaCS9wQbjPuc8rttp2V3lVK94ceoZN6P4qCjaXnehTx3grCoXW5eTsv/
eYuwPzNxIUqjus6m/P4HaFnhk1RvwH6GgwIfYsRc4bcUr6Hzrxb2ULAkubKa
Q5NLt1Durfvome4lNKLPEmo67CB1LSWaI3A4dNIuatSjnAq7LyLC491Fi0wl
11ahyHw+G5SEj3fA0ojTsYZroeopYbpzZFcM3fK7/i0W+tTP1gjXYejbtk2x
SnoiaEiucD7J8G1JO5/wzfEkraREq7iBAxODpwILB/wPD6qHQw/jTg/82K6d
MF+1hfk65H9Q4YZxm3DDtOfttu3fL4nkkz7MThZd8fcwr/bOsx2cxTc8Xirj
etEfL5Bl4X4KtwD6WGj+HVLRVZHDjBiakOdEm3BnhD8jbNMAYZsyZN+2bbLv
yBE7Zi5QOEyMStISohL1zFCrbsRHRjEkQ+1R3aOJ+F/WVZrNQJS3rq/tBGbm
C1uncjQJmNHHFVqDy+jRkhGqSylAl7A3wrkQGne3hC58BNLvI/FEQvki3Ief
dYmAnMvmzdOnez0hG370pWqyt5Et+X+mmZ6PnUbYOzFZbm3AALVcTSCBCM+F
9GknTyYR6giFNkfqPjwGatCASN3hCTaW8EQsR6Wlsq2oCBG+HH/++a59EfaZ
hH0mwi9fhHkWCkGOF4ZWWFoi0FooO2FpXR6gTZuIevcmmjiRhI8G1CbBTrpi
D993neoFlUlUib4UqKos3duhg9tb250bsK72DZK9/NQ+usGGro8uPB0i9Zss
dyN4fKl+k8X3qqFkSNva4Beh7l5A5dxcorKy2F6wpvrBV2NGjwUBNvP+Z7wY
tVvF4JeiLdUaFI9s261REk1cgQeY9mP467WIqdfc2zv7Y8eESy8bWE2wEI8H
7beM/kCTvV1LuBr1Z8VQj6zC41ID9X0I9PevXv7iNhtbmOpC5yMDngY5fxPy
/6rNMUhq09PaBCY8EzJ/6hb0Iz2n0n8B6nxuwg==\
\>"]], ",", 
   GraphicsBox[{{{}, 
      {Hue[0], PointSize[0.015], 
       PointBox[{{1., 0.84}, {2., 2.76}, {3., 1.16}, {4., 0.625}, {5., 
        0.333333333333333}, {6., 1.}, {7., 0.}, {8., 0.}, {9., 
        2.}}]}, {}}, {{}, 
      {Hue[0.6], PointSize[0.015], 
       PointBox[{{1., 0.44}, {2., 1.36}, {3., 1.04}, {4., 0.625}, {5., 
        0.333333333333333}, {6., 1.}, {7., 0.}, {8., 0.}, {9., 2.}}]}, {}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->False,
    AxesOrigin->{0, 0},
    BaseStyle->{FontSize -> 12},
    DisplayFunction->Identity,
    Epilog->{
      PointSize[0.015], {
       InsetBox[
        FormBox[
        "\"before application of\\nDRAW-FIELD-GIVEN-DIR\"", TraditionalForm], 
        
        Scaled[{0.5, 0.74}], {-1, 1}]}, {
       Hue[0], 
       PointBox[
        Scaled[{0.48, 0.88}]], 
       InsetBox[
        FormBox["\"hints received\"", TraditionalForm], 
        Scaled[{0.5, 0.9}], {-1, 1}]}, {
       Hue[0.6], 
       PointBox[
        Scaled[{0.48, 0.8}]], 
       InsetBox[
        FormBox["\"errors made\"", TraditionalForm], 
        Scaled[{0.5, 0.82}], {-1, 1}]}},
    Frame->True,
    FrameLabel->{
      FormBox["\"opportunity\"", TraditionalForm], 
      FormBox["\"average\\nnumber\"", TraditionalForm]},
    PlotRange->{All, All},
    PlotRangeClipping->True,
    PlotRangePadding->{Automatic, Automatic},
    RotateLabel->False,
    ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztW3dwVVUaf8lLIyG0QAidQbp0QdiRXca2DE1RkGUoAyygEKoQOhhQBEUF
WaJGCBZQlN5hAIcBqVIElCqd0KT3Dt+e33dK7rvvvvfuQ3f8Z88MvHvKPeWr
v++7J806pXXr2qtTWvfOnUo37Nepb7funfuX/meffqLJG+HxeJaKf71Le/BM
4lH9t5REEZ0+P535J4qmTJmCUTRkyBDav39/lHNzVdV8+vRpyps3L7366qt0
7969Qta5vPTo0SN+ad++fZ5oh7Zqaha0rVu3ji5fvkxz585Vs3RRb6jRXIt2
aKuh2kaOHEmqeJLkFO3US5i8RYsWNH78eP4VdfEC+mJ4qoYNG9JHH31E77zz
Dr3xxht05cqVSDfdzjNHqmNNnTqVXx8xYgQdPnxYNuehZs2aUY0aNWjGjBm8
WZC0RIkS1K9fP/r6668pV65cNGzYMLpx4wZlZWXxFMOHD4+ko0ePig2JR27C
7F9++SU/f/LJJ5GKCpbZPbrt1q1bVKBAAfrll188BSVl2vJPLD18+JAX37Rp
E29m48aNXBftHisJfvrpJ01cev/996ldu3b6PAG6+TnI9HpzVlbKtnhu27p1
q5kyJiaGVq9ezc/iEPod6wbVFFzwLNoCdavZvWoDoHHhwoVp3rx5duocO3aM
R9+5c4ffvH37NtePHz8ecHbsW6iElToO3fwcZPpQ1LGfR9ct6vUHqGPejuYJ
q1atSmPGjKHvv/8esqS1649QacuWLRQpSgAqqe5wqLRnzx4LlUKcK2T33r17
ucmxO5ff26tWraL4+Hi6ePEiZWdn07Rp03yplMCqULJkSVYBlA0bNnAd7VbO
CZ02ZxgwYABVq1bN3i+7S/l0h5r+wYMH/PrQoUNp+fLldPbs2WDCE7T++eef
my0uWLDAyLML4YMp7dGjh2Zc586d+S3U8svtaJu9fv16atmyJU2YMIF/RV0t
mhf2jpKSktj+DR48mJ577jmqXLmyOXyQfk9kyPkrskkuVqwYrVmzhkqVKkWZ
mZn04Ycf8ml69+7NJgP2t1ChQuZ0MN3JycmmnpGRwXuYM2cOe4DXXnuNypQp
Q1999RX3CyKyyOjx9vmhcKj37duXrl69CqdDtWvXpvT09AKSUqMUERs1amRs
BBMx0mpfrb1FfF/csWMH/f7771zLp9rggxs3bsy1SIdxaooM1YXmcuXKca2k
7HKEF3/qTyu1+K+//koRERGQP7FX/O9lP6eK0sAoOnDgAHtUkPOLL74oqCRg
9+7d1LZtW/r444+pQ4cO9MMPP3h038KFC6lNmzbchzGLFy8WZopX/5cakpqa
Stu2bTOifeTIEU+y2pmysVyTU8ZQvXr16Oeff+axsGnYqcBMkpmx7O4TEhLo
xIkTPESYN8qdOzfdvHnTk2hd2Uv379+ngQMHYnVPIdXWqVMn0gjPq/6fP3++
oUU+tQz4i3F3797lDjE91w8dOuTRWzl48CC3oQ8FW0NdgBi9ldaKtFDecePG
MZ3Ec5KiDQ4BxISiaKHoEEu//fabtiKMTEaNGsWKgIPqHWB38MmjR4/mMUBe
wA3i5HoHbdTBu3btyjpuZTh0bNeuXXrpgmqo9iRCJYW8pKSkiLaZM2caGhVQ
u1+yZAlFR0fz2MTERKAbO/OV0eKyefNmHEAtI2kCC4IdWFYH18BgIN9kJRPX
r19nozF9+nT2bzAUtWrVsi0GEwQdRIHZEqbJ8B0IvEuXLkzhQmo8rOoHH3yg
pZLefPNNRZoYOnXqFJ8LK6PA0wrNsa0osBAjSfAQhmvp0qVGtqEavrIdzQYK
Ejh27FiOBb755hvTN2nSJN6hViXgLLWce5Wvxz9xEEG21jjeK6+8ArHlY5w5
cwbuTht3h2Ge3r4zvfjii4b5ADaoo4ANwifomRyGydAhFRSPkHPWVWILhQFs
AVNQTp48yXWAJq+LMcrgejR5UWJ82xQTHr8t6i969y/Yi8eBRRAYdEMbUYQF
NvbP62IMs4hXyO2wgWSXbbl02+tk2uIdxsWb1WzH0EbUvkWYaK+LMZEOi/Fe
IhwWg/2Hn7WKrNfr9RHrYGN4sUhM/Lp5UktIbYym559/3qjZd999B5yogn3n
PieJ8Nu/nhz8hBWAo4JVgKeODtLnDbzfxm7WdT8oGFHyhjJ2hs5NmjSh/v37
s4WF7TdnsO2hpm6zSF0tZ6IlhLKP/Pzjjz/Su+++a4AiHGf9+vW5FoTpbsxl
rJoSCCsqKipnSqt6vx5EaIMpcZRivtg7LwpQ1Lp1a6pSpYokHK/RxTyFoXx6
asASJISAI6pXr46435EnTH/hjhA1wvujT/Py7bffZn6KWC5SccU67NNPP2W1
g5gARCCBNHHiRAamcMCRamrAuW7dujEZNSgDqEKiadasWToP8uyzz1L37t3V
QvIU1uXE1E4GNZjiKxvNh9AHjjbSUFv16lg7J+fk5UAaEdvatWs9Oui2x+SQ
QkRUGosBo0epXWHFVq1ambHLli2j2NhY6tmzp8nPnTt3jsVNAC6Ex7lVs1pG
F9eGysu6qqPZaAdel9NtFv1LUO9aIwadmpw8eTJzRRdb5qZjx4708ssvm+6d
O3fSokWLNAnBCEjf6tWrDQlF6E3NmzfnIFPnU4DDEewCp4Hcmg7WHYVnU4EA
EbogL4B/Ivay2FTNdv8TxzMaRSxgOzFTFVEcAm4ReMvh+alBgwasw4CdTz/9
NJUvX95IA35Lly4NTWA4CwlAeeGFF1hTEAz06tVLLh2LqbRc6IDFVwCcjPpT
AY8SzehfGS59FBOYNW3alNNYZIxaNFJGnEaCUSlevDg01aO1HoEu5rp06RID
d7FvTuBAehF9oCDOhwYl2NjnewqpIP555ZI+eWUUN2np9PR0ruuvA7qu+5GS
Rx0FfuGll17iPAfCOlgkk0iP50R6nTp1WGkRLaxcuZJfsyXRi4bFhXhOstes
WdNPoFBASUSOQiI002AWYQOFKWFzceHCBcMECJpVGxHvwEpDyLTQgYhIJNmZ
4KtDLjOzYWa9XXRv3LhRdwNT6Cw9coNFixal2bNna2lEQGqb2FMMFUfLnSPH
Xrp27Rp/gBCTmZPYLTc+B4hQWLsHMAHiIfZj8CRkQTsrFFgpZEzS0tLMUhB9
YdAVqymI9X6MXLiLZGZ43dbMv1A5nWFx+qQVp/4HvgIYQB/0BlKA4iLatYdC
mENjDeQE4AG0ygI0IAuD6Nw4kFifYfio895773FSANhCsw5GGf05370STSaz
T58+7MdRdNpBfyhCNhPbhZsQOEYFRNE+awr/7oaHiuOuuBAfiMXOLE/0mw0O
CugGBUku9MOawQMBd8XFxRnxRJ/+KqECPh+DoJ2yFVGjBEw5OKNpZdItyXk5
cXKg3HzQulBbrgPOoQ5LiALGoC5QhZw+iauW9BkNGjSIsZSerkKFCiZBCjuG
z0goDp8ilMT70idayWEYGROu+YUE0nKFzMi7yeijDm+Hs1aqVIlzxJgPXhLo
wyAKJYmQcZwTqAOfagQ9tD8BQEDaWX+A0N9IHT4+BCWPu2zFPzShLNjzCdOr
CFXSIrnaFqUEWTrcDEOKwyaa2LlVQi1ovSlQJMgmHjPzoJf57LPPmKv79+83
y0Br9TIxarE/mIXwMj/bt29P+fPnV9FtqOyD2g5st5k+J23wV2QkQjgkQ3+3
GYkEB4Fobd/X3xyYr13fn5CNcJpem+sg2QdnGjpNpiUozGxDsKncZhcaqbeC
gu98AcG3JUxgkIHicOPF4cKLq3MESgxIaY3XkNWIRlDMmmgwq921hb7jwhav
okcVte+yaqcwEFpHgUhxA0gYvrzqTX9bEToR0MhywECXQ/wgou9w93dHrGd6
QnVpOHbu3DlDArhopFwkMSmgzQoe3TdW7z8+cHqcc1a28U6eM5ZHI/wDEoJz
wncqIN48efJ4SgdkTOLjQBtzOcEuei5vZVi3rxE4lgK58ekY+la2bFn+OC+s
iGGbRuDffvutMgEF3QbT5jgB1mCiN2/ePJIjqlzMv4oVKyJpyK86LONxCtC1
FQoKiPIFBEQQE7yKuACeF8Xh9oa2Qhb85EfSGINjEYAgOMGz8GI6CQqnhehV
4DlDYYupMX7HKT7W4htgCR6LDA4w5vbt26MCTu+1Ti9BkyXszkvrDhLVGUPU
ajJRl2lEK/fKoVPXS5c0YiHR4fOObWqF/DxHi0yi8avkL+pacp3mOX+dqMkk
ojHLiPoKxXh7iU6ySIkfPecMv5O+iOiGUNUp68innqXmHLmY68JnRvhLfAxL
3JNPPskZO79wTIZKgPAQA0SswB0oFmPpcbKWKCGmxh0fNCGyEJ4Zt0H8plaf
6BwunkSZiyfhx+Zcq6WlQRiGogOJZm/PATnTN5tDMA33nbHQXtZNeSi8TolB
RJukdtPGw7LuiYg01NBzaKLj/Rlb5Pgrt2R/9iXSCgVfiROjecn6Q+YOnG1l
a/3IebJyV6fXECesWLHCZAhytCY352lhGjEGlkBfYAjgLAJf/UtyWoanunDh
AtswSA+kAbdKUlJSgi1jUjEOt32MVLm5LsAKrDOVRy9Ict28a7nSnEO+HFdi
I/Ex9d4dGW7R7XuynlSqJuIXR+befygVcOZWovrjiIoMILp1zzAXthxXzPDa
pOmrXDA31uONdVLd8+fP80U7+Dbc3wE1BU6S3eXZv2ieQv1AKQwNM1MQaBke
jy86YDBykCjINgnoYtZ0WEdH1tY7VRLGhZ94qKUoceKSJNjopURjlxOlziCK
60FGZEXXntNWTidY24Jy+vjFnLyR/R2MrTJSqvuwBUSnLlOOMbTwE8A0QJ2n
jvBjrkxwgwvIcwAAIw8I7qDoq3VAFQBciG/AwbS0NO4PI9ERaB0trUjnI+OL
uLJp06aRgB6SXU6r5FJv2S6p6W+E7hInkqlPMJUqjCDadkxSbbVQt6qj5DOM
Nig4dD7R8t1EZ686t8E4lxwsjTLKhkOy/vBR4Hm0MJ2X97Vo+AJ99yWP4Zxw
FlxOX5H1xbtkXZhh1IvhQ7koBT1xBS28raTkUUNrYpsj26y36h73PomkXDnA
TtpVoBp16LODJqx4QC0HH6VNyfWI3nqLhsy6R8V63qQ1RRpQqZ7XKHOtkIuR
O6lY25O0ZmAWlRpwnzLnXcCXFVqf8gy/O0E45pbt19P6v3cUfkvolrAIQ9rM
omLdr9GaXpOoVOoVngcF8GPQXAFlRu2gus2FHxUySma/eSgj6xAl//sSTWmX
SYO6LqdKaTeoTRbRHEHRfv85Q+U7HKde7ZYQIVBdsoQkbrB/DHW6DailzF16
SkK7GOJUjwW0qHqkm+5E2WX5zsLP+u8o0Kf+5ERAU9mXnW326Tc1tFvAUrKg
XtKwFOEL0j2ZmQayUkZGTIxvFKbJ43R/MdzLPU/97wikh0Os8bESu0HaqEgR
3JMITCABDLlNAEON5U3blSvyFBFocrqT5HTD0t2dJEdRYUvgnhK58dkkMCVg
EAQEFsgP1h1fb+TW8shhEm7JgtvKaBOwSeAm4etSha+Lk33Z2bLv7l1JixIl
FOoP+UldLaS+RYhgX9aF6thO61vXnz7E8UTATyqT4nc8vefzKrYZPlzyr6AU
enQJFyQQh7DAZ+XsAjiQRn/4JKsACvfhLzBEJMzloAijOnZEe4hzVuf/c1kz
nzkbFX5KgBG5amqqUrFCOB8Rbkfog2RkCOyXJKzVHGnYhBxRmTJE6oOGAMBy
PhE4U1aWbEtPRzpDjq9bV0luArwxCcUk4Y1JKCxUW44XblX4Vdy2EVa3Jb7d
mvQEHTggAtAuRBMnksBkkmrkg/xzcsr6m7GFEyrlB3OiIytq1Mj05nxv9rly
5BR+JdjDL34OJxOt4y+LbBloLhANUWOdlVRtsGfqbyKK43+nO3QhggZ+dpe1
1pEDszw5mQTcz9ketqH+BqOinWb664MV3+ozPGZ22w9QabsVPMFdXa1Adqpb
k97PqK1Z8Ue4V+oC3gN1ctOaiM6Z6ID3VQO7tNDZ34D7C+YTgmdd/7x7qvqL
jNRimdYu7DDO7U3n3I6L8pj/32wP812rojAZrX+D4In4LzJ/CuA=\
\>"]], ",", "Null", ",", 
   GraphicsBox[{{{}, 
      {Hue[0], PointSize[0.015], 
       PointBox[{{1., 0.9}, {2., 0.9}, {3., 1.25}, {4., 0.909090909090909}, {
        5., 0.}, {6., 0.5}, {7., 0.5}, {8., 0.}, {9., 1.}, {10., 0.}, {11., 
        0.}}]}, {}}, {{}, 
      {Hue[0.6], PointSize[0.015], 
       PointBox[{{1., 0.6}, {2., 0.6}, {3., 0.916666666666667}, {4., 
        0.454545454545455}, {5., 0.}, {6., 0.5}, {7., 0.5}, {8., 0.}, {9., 
        2.}, {10., 0.}, {11., 1.}}]}, {}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->False,
    AxesOrigin->{0, 0},
    BaseStyle->{FontSize -> 12},
    DisplayFunction->Identity,
    Epilog->{
      PointSize[0.015], {
       InsetBox[
        FormBox[
        "\"before application of\\nCOMPO-PARALLEL-AXIS\"", TraditionalForm], 
        Scaled[{0.5, 0.74}], {-1, 1}]}, {
       Hue[0], 
       PointBox[
        Scaled[{0.48, 0.88}]], 
       InsetBox[
        FormBox["\"hints received\"", TraditionalForm], 
        Scaled[{0.5, 0.9}], {-1, 1}]}, {
       Hue[0.6], 
       PointBox[
        Scaled[{0.48, 0.8}]], 
       InsetBox[
        FormBox["\"errors made\"", TraditionalForm], 
        Scaled[{0.5, 0.82}], {-1, 1}]}},
    Frame->True,
    FrameLabel->{
      FormBox["\"opportunity\"", TraditionalForm], 
      FormBox["\"average\\nnumber\"", TraditionalForm]},
    PlotRange->{All, All},
    PlotRangeClipping->True,
    PlotRangePadding->{Automatic, Automatic},
    RotateLabel->False,
    ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztW2eQVUUWvvPeJIYwwMg4xGGRLHlgB8pAlYgUKBZK0CUUsIDCwCA5CQKr
gBldcBkXMKAikllACrCAlSiCiBIGyQzCKDlJ5mx/p7vv9Hvv3vveANb6w66a
ebfDPd19zukT+7bsOqhnj8yug3p161q+2YCu/Xr26jaw/GMvDBBN/ijLspaK
v4HlLTyTeFT/lpIoojPgpxv/RNPUqVMxioYPH07Z2dnRzs01VfOxY8coMTGR
nn76abp27VoJE5afbt26xS/t3r3binFoq6WgoG3t2rV05swZmjdvnoLSXb2h
RnMtxqGtjmobM2YMqWIlSRAd1UsA3rp1a3r77bf5V9TFC+iLZVDNmjWjt956
i15++WV6/vnn6ezZs75Iup0h+9S2pk+fzq+PGjWK9u/fL5uLUMuWLalOnTo0
c+ZMXixQWrZsWRowYAB9/PHHVKBAAXrxxRfp4sWLNG3aNAYxcuRIHx08eFAs
SDxyE6B/+OGH/Pzee+/5FBYM6JZu++2336h48eL0ww8/WPdIzHTgnzi6efMm
T75x40ZezIYNG7gu2i0TBd98841GLr322mvUsWNHvR+Xbn72AK8XZ5JStiVw
27fffmuDjI2NpVWrVvGz2IR+x1ygAsEFz6LNrVtB96sFAMf33nsvzZ8/Pxg7
hw4d4tFXrlzhNy9fvsz1w4cPu0LHusWRMLHj0M3PHuDDYSd4P7puHK87wI79
dgwDrFmzJo0fP55mzZoFXtKn606wtHnzZvKJ4oIl1Z0fLO3cudPAUph9he3e
tWsXNzl2Fwh5e+XKlZSQkECnTp2inJwcmjFjRiCWCvJRKFeuHB8BlPXr13Md
7SblxJm29zB48GCqVatWcL/sTg3oDgf+xo0b/PqIESNo2bJllJub68U8nvX3
33/fXuLChQttfo6A+SBKe/furQnXrVs3fgu1YnI5WmavW7eO2rRpQxMnTuRf
UVeTJkLeUVJSEsu/YcOG0SOPPELVq1e3N+/Rb/nCwq/KIrl06dK0Zs0aSk1N
paysLHrzzTd5N3379mWRAflbokQJe3cQ3cnJyXZ98uTJvIa5c+eyBmjbti1V
qFCBPvroI+4XSGSW0eOD4ePAod6vXz86d+4clA7Vr1+fRo8eXVxiaqxCYvPm
zW0ZwUj0mfLV7C0Z+OK2bdvol19+4VpR1QYd3KJFC675HMYpEJNVF5orVarE
tXKyy9G8uKs/rdXkP/74I0VFRYH/xFrx3896ThWLuVIo4j179rBGBTo/+OCD
RMUBO3bsoA4dOtA777xDnTt3pq+++srSfYsWLaL27dtzH8YsXrzYKqT6vv76
axo4cCCDA9WgVjVXCT3P3PTGG2/QU089Rfv27RMSklfdRg3JyMigLVu22Efi
wIEDVnG1IyWbjdXHUsOGDem7777jsZCF2KGwtQpzdxybCQULFqQjR47wECEW
qVChQnTp0iW14kCwfrWMpk2b0hdffMHvQLCLeuBK/XT9+nUaMmQIVqtOp5+6
du1K2pL0q/8LFiywcV5QLQt8hHFXr17lDrEcrgMheul79+7lNvShYCuoCyQ6
Lt2n3sN4aAdYnyhHjx7lOnRTrNxCW0V6CJfXX3+d6SieNXmBLFh0KGoGhe84
+umnn7SUY8tp7NixfFCBUL1y7Ao2wyuvvMJjYBnCrhEY81y52D23AbMogo42
VtTKn1Gv9+jRg2WXyciQHdu3b9egE9VQrSGFqBEzpaSkiDZNWoworHa9ZMkS
iomJ4bGFCxeG1ab6nFerMRG8WtAnNpCplRDnsmnTJiBMiRRJA0hUrNxYNaCC
ceEJFFO8fuHCBRain3zyCet7CM569ep5LRJMAyFgMoPf7zeZQS8SohyyDAXi
X4h4m6/xevfu3ZkTiqrx0E44yCjilFL//v2FrSJX+vPPP/NSsGIUWCxCAumV
whoJPnFNmjSxyfL5559DFwbLBmGDsgUP3oTCWLp0qS0bIJICZUMMKwacyAkT
JrAP9umnn9p9kyZN4h1pEQb7VvMmFFunTp2oWLFiVrQaD96EyMJxgQiDXFLL
i0AmN+SfeCcByBs+fvw47BEvOdk3EJKDgOJn8IVQ2hqSkxxjjGeAlFESZrpi
Fi/J4Y9gjNKIlqYDSnRgm0HywDbfn22/d5vlQHIvkeuPYAxPwTMkOCyg2F1u
i7NnC9qGlyz2RzDGCXtVdNtzZLeVdmgr7tAWp9rIHfNektkfwRinJfMKoozJ
pLRwFq4xHn1+G9E98ORzAOkkEGM8+pwOfch6W0Q8yHlxkb//h5hE4jIxnFqw
af/444+zbQ2lBfVr49WLVAXD6Qp+htk+btw426uBNfTggw9yzYnV0vh/ITZf
YAtCXyK2Bd2MKCDcA23dYgxCpD179vTBJxA7hurFFCjgcpiIAI9fGA8wGxs1
asSH9fz58zRlyhTuF/6dWE5OTo5QLDB/0IY+YbIqTWPOZsnp/OZ0UiOZVIhE
/akDza5JdHS0K1rK6jZDGCSpd1999VV6+OGHgXY7voqFwSdBQZQUZortniZy
NAdurUaVllmIV6DAjcZyhGVjY9pS8WNNSSNYY0eIjansccZc7jjy0gXaVBJs
xLiDk/Pss89SjRo1DC6tp6YDhKJFi4Lx7DeB+ZMnT/L24MjBtZJ9RRA0Yo4w
t6lXANNVcAYznQ7pWGaoJdA41pwSOk10wDSUf2WjdwL/BBFvOBS1a9dGYNNR
AtaV0zK/QAqgT/CbNM39f7H+doCbwDIaEbDR4+Li8vhLgcPK4becPn2a5syZ
Y/udAYhIsBGBPwTTEf2B74ECM15Np/ERNJuPGjdubDKGXFZoKL5cQCgeJZJI
PoiIuk6o6LruRxYDdRRIpyeffJKDDPA0xXnPyz0kcO6hQYMG1K5dOz5lK1as
4NeC8g5xiqheqlbzC0SuRnqMAzE1a2uPEz6xoqSJWk9Kgn0RjFPOLdfhw4RE
D/MoiYOL0CpCJ2XKlGG+DKGk35xNsqJJxgjD4flMNUTQvWHDBt0N7adTIzia
pUqVAiNrVwZebxBgq4Dqc7dv/KxYdRSV2wLEEHrAlatXr7YPL5CpFwH5gMMr
++KZcw35wCtBlBe++q+//qqzW1gMwt4uJNMFqk2JT3M2TTJjMkkCX/5JZnZH
EILOX7eZrxGnXnO9UyIyXiHXy26ESkJ0DiDxJ8RDsNSEpFRkD9SyylxnAwei
QZwKW8vCONEFqg/z21o2no2NtLQ0xBMC0JSeno4sgl/RFEcRZywABwVDkiEI
bqgQY/CEATlHNWOornXDvZooItIkuNHdmQ8Kh0BDxAbyDwXxQPRDyiKWAiTE
x8fbu0GfTjCVCiQX1+qrFS9fvpz69OnDGIHdCbEsTFoNBquCdM4z3OJZj375
5ZcMB8Ek5C4AGoIsNzc3WtFAC3XoHGSYIP6QKkAbVox0QatWrZDbsdyn85vT
hdJFqTojzyNBJbuleTzrUNEoUDioL168mOtacgsFJMEncdWIWNLQoUMR97PB
ValSxY6ZQzojI4nikNWSGQpnd0F6t2FTM5GkdlCHDsdKq1WrxoYZ4EH3V65c
mTIzMwOuGED0Y5WPPvoo5+zEbvTxgm2C/IPOROlkuUMWSqVfwjhd5Qyu1cKp
WiQvljUYRyug6u7o1MPhngAf2dnZcvjd808j8y/jnXIy/EYEYcc8w10LXXII
0phtTYMR0UghIjQ+XSDABUVxjVcGbTVJtxkaoFXw9p0mlqomX3FMZ9x6AY8s
YtbKDaH+CKfJb0QrX3u449iTBm4G+2PVFLcVcwoMzMcpUJHGmpqoBXi6DUVd
3QbDweFzguJwvcnzdlO0Cd3YXkW1NEgKvRUdRxE0Lu+6mwRtQut2bxu6sG1D
Byul8BedQm91GODlNvI2dJ+il04DCcPYVrtQUHBwUEu1SW7ux+1CUIiBGTg8
7E2YuBDoBkTLF7L+OAZRt25d1u84XEgowSUtUqSI5U6VOzGm8rmlAqbt5QTe
pIrGAogPSxupc7BuxYoV+VKDOOE2lXApAGA+++wzdZruidSjthnMZQ7ejTDG
fCS1ChBTtWpVmj17Nr/qMI2jValVgCk+axoEyKfFpLZeIuRc5PfeUBD8UArE
2jYebq3A2cSz0Mn6zh1UNW4pCmvJJohx2uzrFE4esWYjlyl4LCJEsOC2bt0a
7Qreb4K3UvCf8S8Dv8m0di9Rg/FE7f5N1H0G0Ypdcuj0dVIZjFpEtP+EexsW
lPGPmVQ1cwdVbj2FEtuspGlLsuXkZWjsrBx+5bERm6j5M71ZMp24QFTlhb1k
1RlOdXqtprYT5H7My0ppHf7F743+D9FFcWpaDJjP9S6TDlG5CtWo07g1XO81
LZc6dH6uv6CNA4HAovfffz9nnEOcJWm1wESG6sIFCNhRKKY8cRJRKGFA4zIV
mmCL1KhRA9duQkDbQWaH2NMNwZilhhDN2Up5fLLJnp33vvu4zsEW1PW8/igf
pQy4RhvlOaYN4rfsUHESbhlXLIPewfPMzZKkm7/fw/05pylaITNkClnXqzO7
D5wIOC/6bgAMHDiP+hZYHqMX4tA3jiTGwFfQVxJc5Kz7pcgkp2kYFELSkFIg
N8iHJEVKSorXNI4SS9Po4EmJhEtXjTvbeViwtOtjYoZZpVAqt12R5h5dvibh
HD7lTpvrN+U5SGrQi+qNuUQl+l+nrdt33QZtxKxOsuzEiRMcQ4ZIRMIHGxZG
i+yuzApAkwR7gIGPofn0W92m4fHCvGD6IJqGgvvWwkS053SYR0ajEsN5Rvwc
PvNWT+HiyGmJwVeWEk1YRpQxkyi+N9k8J7p2HgulsWpj+y8ptV5ENNbvKMpQ
jTGCxpmX6K+9V1DaQy0hXqKNKfLYiLzqVmiAsTyjEKSA8w6TFFdwdAJKXxyE
7od1gpwPyDho0CDuz4f37jaPtp3xRQCiRyDBE0884WMjOtZtFuWtOjidMXeU
95Skvo8RV2UU0ZZDsmNVNlHNsfIZMhhIHbGAaNkOotxzzm1CplK5YVLGoqzf
J+s3b7nD0Sx2Ql6sopELyc4naGIK2c/l2FlZXyyzO5CuXD96RtYFDIPcKgZi
G5tE5Hj/TWM2XCpUYqoS7EPaXrwWdX5hG01cfoPaDDtIG5OFS/fSSzR89jUq
3ecSrSnZmFL7nKes/wrWGPM9le5wlNYMmUapg69T1nwhLoXXtS7lAX53olCI
bTqto3UPdRFqR5wwIRmGt59NpXudpzWZkyg14yzDQYEVMHSeMDzGbqP0VkIN
CjYl2zsuQpOn7aPkv5+mqR2zaGiPZVRt0EVqP41orsDggH8ep8qdD1NmxyVE
yPwIzpD62st91h6udxI0TY/FW4ZxoOq+SLoLyy4j8szP+sMQ9KlvaIQRKPs4
bU7sBISAxoEWBiAZ9iVpAxDWLoRhVpamdO/elhUba1lWhOiINB/6OyJGD0ew
BClEuAc46CVLEtlJPgfECMOL24Thpa1lu+3sWZVKQ1O4yIpOBYZLIzrigM92
5DgohHSBOw5wxIVxKXx8iHASjrpcSBE5zPAnCRen0SbsG2HgCJ2WIXRavOzL
yZF9V69qLBw5ElkIyC0tl2YuQ0XICfcjUBfHKQgXgXUdkBebFw47qbBByOb1
jk4oT2TkSEnXe+QhQJfQQsLyEBI3V0IXBgTpS+lIfypDhfvwiYlwWbnsFU5R
ly5RUQHnwit6FUHGy+CJGLk6oQBpyBC5qowM23EV+ydKSMjb6OTJwiYQbvLc
uVLwtW1LVKECkQrkC4NHwuvbF/Et2TZ6NLxlOT493dI2hFDYJBQ2iU2QUNgQ
BXI8bg4IzUtQp4KiQvXacQbas0e4ht2J3n2XhO0msUoBRqRTFLu2ZBMztGvS
kPnHB5mkbhwSNW+u9ywcR3K7x6Wtb4N9bOtbiGnhKsrV2GBxF1p918GZkXB3
wOwJgPfkZKLs7LwJAEh9CVLNcY13+UJabdVmRkfq39bE6WoLod+TRNvfk+Qr
keAS3o13+vaDfyO90xxZOiTwyw0pju5aPiDkmwqtVv4/l2j1PVSnu6kh48y0
wwMKVeZ3FrdxkZbP+p9XwP8wbaFqyfnjFM21YZNAGQ4AnT4k8bps3Dfwdaev
PLwuFqvXvT6/sKL+B7BFhlc=\
\>"]], ",", "Null", ",", "Null", ",", "Null", ",", "Null", ",", "Null"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.402070284144375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Function", "[", 
   RowBox[{"principle", ",", 
    RowBox[{"Block", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"cutoff", "=", 
         RowBox[{"Length", "[", 
          RowBox[{"numberstudents", "[", "principle", "]"}], "]"}]}], ",", 
        "pavgerr", ",", "pavghint"}], "}"}], ",", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Length", "[", 
          RowBox[{"attemptsbeforeFNA", "[", "principle", "]"}], "]"}], ">", 
         "1"}], ",", 
        RowBox[{"ListPlot", "[", 
         RowBox[{
          RowBox[{"Take", "[", 
           RowBox[{
            RowBox[{"noassistance", "[", "principle", "]"}], ",", "cutoff"}], 
           "]"}], ",", 
          RowBox[{"PlotRange", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"All", ",", 
             RowBox[{"{", 
              RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", 
          RowBox[{"Frame", "\[Rule]", "True"}], ",", 
          RowBox[{"BaseStyle", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"FontSize", "\[Rule]", "12"}], "}"}]}], ",", 
          RowBox[{"Axes", "\[Rule]", "False"}], ",", 
          RowBox[{"FrameLabel", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"\"\<opportunity\>\"", ",", "\"\<fraction\>\""}], "}"}]}],
           ",", 
          RowBox[{"PlotStyle", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Hue", "[", "0.6`", "]"}], ",", 
             RowBox[{"PointSize", "[", "0.016`", "]"}]}], "}"}]}], ",", 
          RowBox[{"Epilog", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"PointSize", "[", "0.015`", "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"Text", "[", 
               RowBox[{
                RowBox[{"\"\<applying\\n\>\"", "<>", "principle"}], ",", 
                RowBox[{"Scaled", "[", 
                 RowBox[{"{", 
                  RowBox[{"0.9`", ",", "0.1`"}], "}"}], "]"}], ",", 
                RowBox[{"{", 
                 RowBox[{"1", ",", 
                  RowBox[{"-", "1"}]}], "}"}]}], "]"}], "}"}]}], "}"}]}]}], 
         "]"}]}], "]"}]}], "]"}]}], "]"}], "/@", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"#1", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], 
     "&"}], ")"}], "/@", 
   RowBox[{"Sort", "[", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"N", "[", 
          RowBox[{"Mean", "[", 
           RowBox[{"attemptsbeforeFNA", "[", "#1", "]"}], "]"}], "]"}], ",", 
         "#1"}], "}"}], "&"}], ")"}], "/@", "operators"}], "]"}]}]}]], "Input",\

 CellChangeTimes->{{3.402070294857188*^9, 3.402070296046735*^9}, {
  3.402070430902287*^9, 3.402070471953133*^9}, {3.402070527234885*^9, 
  3.402070550625898*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"Null", ",", "Null", ",", "Null", ",", "Null", ",", "Null", ",", 
   GraphicsBox[{{}, 
     {Hue[0.6], PointSize[0.016], 
      PointBox[{{1., 0.333333333333333}, {2., 1.}, {3., 1.}, {4., 1.}}]}, {}},
    
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    AxesOrigin->{0, 0},
    BaseStyle->{FontSize -> 12},
    Epilog->{
      PointSize[0.015], {
       InsetBox[
        FormBox["\"applying\\nWRITE-VECTOR-MAGNITUDE\"", TraditionalForm], 
        Scaled[{0.9, 0.1}], {1, -1}]}},
    Frame->True,
    FrameLabel->{
      FormBox["\"opportunity\"", TraditionalForm], 
      FormBox["\"fraction\"", TraditionalForm]},
    PlotRange->{All, {0, 1}},
    PlotRangeClipping->True,
    PlotRangePadding->{Automatic, Automatic}], ",", 
   GraphicsBox[{{}, 
     {Hue[0.6], PointSize[0.016], 
      PointBox[{{1., 0.666666666666667}, {2., 1.}}]}, {}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    AxesOrigin->{0, 0},
    BaseStyle->{FontSize -> 12},
    Epilog->{
      PointSize[0.015], {
       InsetBox[
        FormBox["\"applying\\nWRITE-G-ON-EARTH\"", TraditionalForm], 
        Scaled[{0.9, 0.1}], {1, -1}]}},
    Frame->True,
    FrameLabel->{
      FormBox["\"opportunity\"", TraditionalForm], 
      FormBox["\"fraction\"", TraditionalForm]},
    PlotRange->{All, {0, 1}},
    PlotRangeClipping->True,
    PlotRangePadding->{Automatic, Automatic}], ",", 
   GraphicsBox[{{}, 
     {Hue[0.6], PointSize[0.016], 
      PointBox[{{1., 0.5}, {2., 0.75}, {3., 0.}, {4., 1.}, {5., 0.}, {6., 
       1.}, {7., 1.}, {8., 1.}, {9., 1.}, {10., 1.}}]}, {}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    AxesOrigin->{0, 0},
    BaseStyle->{FontSize -> 12},
    Epilog->{
      PointSize[0.015], {
       InsetBox[
        FormBox[
        "\"applying\\nWRITE-CHARGE-FORCE-EFIELD-COMPO\"", TraditionalForm], 
        Scaled[{0.9, 0.1}], {1, -1}]}},
    Frame->True,
    FrameLabel->{
      FormBox["\"opportunity\"", TraditionalForm], 
      FormBox["\"fraction\"", TraditionalForm]},
    PlotRange->{All, {0, 1}},
    PlotRangeClipping->True,
    PlotRangePadding->{Automatic, Automatic}], ",", 
   GraphicsBox[{{}, 
     {Hue[0.6], PointSize[0.016], PointBox[{{1., 0.25}, {2., 0.75}}]}, {}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    AxesOrigin->{0, 0},
    BaseStyle->{FontSize -> 12},
    Epilog->{
      PointSize[0.015], {
       InsetBox[
        FormBox["\"applying\\nDEFINE-DURATION\"", TraditionalForm], 
        Scaled[{0.9, 0.1}], {1, -1}]}},
    Frame->True,
    FrameLabel->{
      FormBox["\"opportunity\"", TraditionalForm], 
      FormBox["\"fraction\"", TraditionalForm]},
    PlotRange->{All, {0, 1}},
    PlotRangeClipping->True,
    PlotRangePadding->{Automatic, Automatic}], ",", 
   GraphicsBox[{{}, 
     {Hue[0.6], PointSize[0.016], 
      PointBox[{{1., 0.4}, {2., 0.666666666666667}}]}, {}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    AxesOrigin->{0, 0},
    BaseStyle->{FontSize -> 12},
    Epilog->{
      PointSize[0.015], {
       InsetBox[
        FormBox["\"applying\\nDRAW-ACCEL-SLOW-DOWN\"", TraditionalForm], 
        Scaled[{0.9, 0.1}], {1, -1}]}},
    Frame->True,
    FrameLabel->{
      FormBox["\"opportunity\"", TraditionalForm], 
      FormBox["\"fraction\"", TraditionalForm]},
    PlotRange->{All, {0, 1}},
    PlotRangeClipping->True,
    PlotRangePadding->{Automatic, Automatic}], ",", 
   GraphicsBox[{{}, 
     {Hue[0.6], PointSize[0.016], 
      PointBox[{{1., 0.08}, {2., 0.470588235294118}, {3., 0.2}}]}, {}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    AxesOrigin->{0, 0},
    BaseStyle->{FontSize -> 12},
    Epilog->{
      PointSize[0.015], {
       InsetBox[
        FormBox["\"applying\\nDRAW-DISPLACEMENT-STRAIGHT\"", TraditionalForm],
         
        Scaled[{0.9, 0.1}], {1, -1}]}},
    Frame->True,
    FrameLabel->{
      FormBox["\"opportunity\"", TraditionalForm], 
      FormBox["\"fraction\"", TraditionalForm]},
    PlotRange->{All, {0, 1}},
    PlotRangeClipping->True,
    PlotRangePadding->{Automatic, Automatic}], ",", 
   GraphicsBox[{{}, 
     {Hue[0.6], PointSize[0.016], 
      PointBox[{{1., 0.55}, {2., 0.333333333333333}}]}, {}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    AxesOrigin->{0, 0},
    BaseStyle->{FontSize -> 12},
    Epilog->{
      PointSize[0.015], {
       InsetBox[
        FormBox["\"applying\\nDRAW-ACCEL-SPEED-UP\"", TraditionalForm], 
        Scaled[{0.9, 0.1}], {1, -1}]}},
    Frame->True,
    FrameLabel->{
      FormBox["\"opportunity\"", TraditionalForm], 
      FormBox["\"fraction\"", TraditionalForm]},
    PlotRange->{All, {0, 1}},
    PlotRangeClipping->True,
    PlotRangePadding->{Automatic, Automatic}], ",", 
   GraphicsBox[{{}, 
     {Hue[0.6], PointSize[0.016], 
      PointBox[{{1., 0.722222222222222}, {2., 0.428571428571429}, {3., 1.}, {
       4., 1.}, {5., 0.}}]}, {}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    AxesOrigin->{0, 0},
    BaseStyle->{FontSize -> 12},
    Epilog->{
      PointSize[0.015], {
       InsetBox[
        FormBox["\"applying\\nWRITE-NET-FORCE-COMPO\"", TraditionalForm], 
        Scaled[{0.9, 0.1}], {1, -1}]}},
    Frame->True,
    FrameLabel->{
      FormBox["\"opportunity\"", TraditionalForm], 
      FormBox["\"fraction\"", TraditionalForm]},
    PlotRange->{All, {0, 1}},
    PlotRangeClipping->True,
    PlotRangePadding->{Automatic, Automatic}], ",", 
   GraphicsBox[{{}, 
     {Hue[0.6], PointSize[0.016], 
      PointBox[{{1., 0.722222222222222}, {2., 0.714285714285714}}]}, {}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    AxesOrigin->{0, 0},
    BaseStyle->{FontSize -> 12},
    Epilog->{
      PointSize[0.015], {
       InsetBox[
        FormBox["\"applying\\nWRITE-IMPLICIT-EQN\"", TraditionalForm], 
        Scaled[{0.9, 0.1}], {1, -1}]}},
    Frame->True,
    FrameLabel->{
      FormBox["\"opportunity\"", TraditionalForm], 
      FormBox["\"fraction\"", TraditionalForm]},
    PlotRange->{All, {0, 1}},
    PlotRangeClipping->True,
    PlotRangePadding->{Automatic, Automatic}], ",", 
   GraphicsBox[{{}, 
     {Hue[0.6], PointSize[0.016], 
      PointBox[{{1., 0.736842105263158}, {2., 0.5}, {3., 1.}, {4., 1.}, {5., 
       0.}}]}, {}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    AxesOrigin->{0, 0},
    BaseStyle->{FontSize -> 12},
    Epilog->{
      PointSize[0.015], {
       InsetBox[
        FormBox["\"applying\\nCOMPO-ZERO-VECTOR\"", TraditionalForm], 
        Scaled[{0.9, 0.1}], {1, -1}]}},
    Frame->True,
    FrameLabel->{
      FormBox["\"opportunity\"", TraditionalForm], 
      FormBox["\"fraction\"", TraditionalForm]},
    PlotRange->{All, {0, 1}},
    PlotRangeClipping->True,
    PlotRangePadding->{Automatic, Automatic}], ",", 
   GraphicsBox[{{}, 
     {Hue[0.6], PointSize[0.016], 
      PointBox[{{1., 0.666666666666667}, {2., 0.833333333333333}, {3., 0.6}, {
       4., 0.}}]}, {}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    AxesOrigin->{0, 0},
    BaseStyle->{FontSize -> 12},
    Epilog->{
      PointSize[0.015], {
       InsetBox[
        FormBox["\"applying\\nDRAW-WEIGHT\"", TraditionalForm], 
        Scaled[{0.9, 0.1}], {1, -1}]}},
    Frame->True,
    FrameLabel->{
      FormBox["\"opportunity\"", TraditionalForm], 
      FormBox["\"fraction\"", TraditionalForm]},
    PlotRange->{All, {0, 1}},
    PlotRangeClipping->True,
    PlotRangePadding->{Automatic, Automatic}], ",", 
   GraphicsBox[{{}, 
     {Hue[0.6], PointSize[0.016], 
      PointBox[{{1., 0.48}, {2., 0.818181818181818}}]}, {}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    AxesOrigin->{0, 0},
    BaseStyle->{FontSize -> 12},
    Epilog->{
      PointSize[0.015], {
       InsetBox[
        FormBox[
        "\"applying\\nDRAW-VELOCITY-MOMENTARILY-AT-REST\"", TraditionalForm], 
        
        Scaled[{0.9, 0.1}], {1, -1}]}},
    Frame->True,
    FrameLabel->{
      FormBox["\"opportunity\"", TraditionalForm], 
      FormBox["\"fraction\"", TraditionalForm]},
    PlotRange->{All, {0, 1}},
    PlotRangeClipping->True,
    PlotRangePadding->{Automatic, Automatic},
    ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztWweMlcUW/rltd+/uUjTCosIiPOGBgaAxRKPG/hAVfYgtluAGeYKGBcEu
sBDESlFQQRAL9oJtQUN2Y0Gl2UXAvopd7Ih19bz5zj/nZ+6988//34ua9xIn
uff+/5QzZ86cOW3OHVx3zsgRo+vOGTW8rtvAcXVjR44aPr7bv8aMU1XJNp7n
LVGfad08PJN61F9LSBXVmPPzb/5J0YIFC9CLLrzwQnr99ddT9uq+uvrjjz+m
du3a0THHHEO//PJLLxNWkn7//XcetGHDBi9tqeunoaDu6aefpq+//poWL16s
oQzRI3Rvfktb6vrrusmTJ5Mu3q4+iEF6EIAPHTqUZs6cyb/qXQ1AW4ZBDRw4
kGbMmEFTp06lM844g7755ptEnGY75IRe1sKFC3n4xIkT6Z133vGr29LgwYOp
f//+dOeddzKyIGmXLl1o3LhxdOutt1JFRQVdfPHF9P3339ONN97IICZMmJCg
lpYWhZB65CpAv/nmm/n5uuuuS2gqGNA9qfvhhx9ou+22o1dffdXr6VPmMP4p
o99++40nX7lyJSOzYsUKflf1nkmC1atXC3HpiiuuoFNOOUXWE9LMzw7wgpy5
lX5dluuee+65AGQmk6HHH3+cn9UiZIyJoAbBBc+qLqxZQ09qBEDjTp060QMP
PJBPnffee497//TTTzzyxx9/5Pf3338/FDrwVkfCpI6lmZ8d4KOok78eeTeO
1zZQJxidZoB9+/alSy+9lO6++27wkpyubaHSmjVrKKFKCJV0czFUWrdunUGl
iHVFNq9fv56rrM0VBaObmpoom83Sl19+SR988AEtWrQol0qVfBS6du3KRwDl
2Wef5XfUmzunznSwhnPPPZf69euX3+431+Y0R4FvbW3l4RdddBE99thj9Omn
n7qYx/l+ww03BCg+9NBDAT/HYD6I0rPOOks2bvjw4TwKbz18dERmP/PMM3Ts
scfSrFmz+Fe960nbQd7R9ttvz/LvggsuoIMOOoj69OkTLN7R7iUi4f+TRfJO
O+1ETz75JNXW1tK8efNo+vTpvJr6+noWGZC/O+ywQ7A6iO6OHTsG79deey3j
cP/997MGOO6446h79+50yy23cLsiIrOM9M+HjwOH97Fjx9K3334LpUN77rkn
NTQ0/MOnVL0m4qBBgwIZ0QHfCVO+mq275Q586aWX6LPPPuO39roOOvjwww/n
t4SlnwYxRTehetddfVb3FbFnNS/+0B9fSpfT8uXLafz48UwmkA+qAeWTTz4B
78tOK93LO3zVVVfRkCFD6O2331ZSlPhURoDg57Vr11KbNm3UahWjq2+oUl0U
ErFQ8XVNit544w3W7eh20003ZYtbyGuvvUYnn3wyXX311TRs2DBqbm72igTx
8MMP00knncQgAKqxsVGJM38v9Tp5lQn+TgVrjUFSv83rpaFpNWMwUgWLcJw3
KYceeijdc889/Azlot7VnoSNzxSMP/PMM+n5558XPn333XeDjakIBZM0wXhJ
S79wFLIFKOy111704osv8jM0FQimLOFsTBAw8iorK2njxo38rpQaVVVV0ZYt
Wyr0zupFBjPKKjUY2RIbLR1b4lvSZZiINS0seZQPP/yQ36HnbYvI6Lpff/2V
zjvvPGDmVYfCT1JdXR2J55HU3w8++GCwT+UO3CCLUPfzzz9zZ+CK960H2D7u
rbfe4jr0FyLjXXFtwBcm/pkYtGgTTUqFFtcBNIpiAye6Zfztuz9XXnkln0n1
bOO+tP4Gm8ATQdHtXpUDpTfffFM0NnsBU6ZMYaWjVuqkICgOm/iSSy7hcfB8
YLerpelxBWinYlAhBhEF4/zh2DsbxrKfI0aMYFVPfMTC+DbF6veVV16RtnDi
JQPDU2lwdZJqampUnZwwc+rCadK0ZMkSSqfTXF9dXQ0HKTgmJqrJGMuOQTVw
OES3ybnJZDLiFKfF9uKyatUq8IZV+gn10B/GESgYQT2sBJINjn7b0H4Z2rx5
M9tNt912G4s02Ep77LFH1oGhsJpr1XlEg3eQv/iDDz442M+77roLtmmweFt/
WIIwhVBgPSoL0dq/TNcBrdNPPz3nkNrgwgiGIkWBcD/77LOtcIViH330EdeB
cihwlpS2zjrQFPlhW7JWEj31jLB5Tz31VOrQoYNeSZrPNNQ8jjvUvsIyYCtb
f+VKcyACogp279KlS6395QTBKpFVuuDCDoZCueyyyzjkdPvttzv7z5kzh3dA
rB24+FkHjmnHejWZXHZpDf+U26wjpngMI2pGLiSLUufnGLpfQ+qkWdKl25Ix
+kzPBeeS8sm4fabiZGRyAbsEYRxhqe05T9gJJZ1bx28pS11yG+r+hucam8qp
K9x1lyRPxu6Tu+s1Fmw6bnNd2Er82ewS1iV9bXRsCKV3MI1NQrmkFw9PAOIk
PCUNzHcrDoO/oPv/N57+FlVGaQF+doUWEsVhVKTKsHiVYldNBPSWlpagDTbY
8ccfz+wu47EahLjQ9/zzz8eUgX99zTXXMHyoZ7+uC/tkI0eOpFQqRZMmTWIz
D2Ovv/56PtmgFsxA3IIggirtc+fOpe+++y6nDhGU2bNn07Rp06hHjx701FNP
0eeff85hP7TDQkVspDIUn4ocfGAC2Nbjj++YM3cUvoivAjeYKLiHueOOOzh0
B05AfAamCAy+pqYmFynbhW90HI2upYrNy00aILnAt0OgEnNJNMS8pRNYjY2N
ebzpm67gDBQdMg+CNQhxIOApFrxulykkwq6agyG4HIFdJkynUagOxaAsB4O8
YdrhqiwI5odgZqCS4vg4+Akui+JXYW0cXsRnlO0dsLs5ZfvofXOZRWk9wOZb
M1DVhog7LsRg8HKFj4XGQL/hO0svv/wyPfLII8HCwSLwSuUuLe8q6LTTTqOj
jz466K6bbSEyGQJEcSFj3bEyFwIBWBPxKg3WmIqLxiwRikmKyYnLji+++ALC
QLq+8MIL3HXjxo3WGasD0mrxndEoIPRhFqxuwYIFlXplLhtUHECLox8wBiQ/
GAnyzZ/YvpUpjeX+++/P8g5yZcCAAdSzZ8+Af4UceEeEGdcSCxcu9MLJZXfZ
tX8NV9yftwzTykV5CAY2oiaDwcInISjmN0sBS5144olJjR5OHY4D1CMYFAfV
Nq9Dakr3++67jyNZ/o6rL9lQl3mZ0niEByN8s3DTpk20yy670KhRo8yrSUHF
dqkroBctWsS3iOCnnXfeGTrJy6eOfI488khQqLjtTbElACoig0B50tWOmW2c
mH82I7Dx1YlhMeBWAnJrv/324zlbW1ut80RuYgoREj5AGFJfX59i0ZvkhckI
cfNd9rgtUqJtoAxmB8cfcMABfLZRtIBznNM0R0vV9rOuKisrgzgq2EcUBG8g
Gw455JC4+yhTQHp37tyZp4K0mzx5slftmD7OZlpRyhacS1AC1hcKDiXa7r33
XsFWAu5hzB5ja3GfgnsuvV+CO8yt/K11+UC26I6GNVfN3qJPa6A9RHzjmtyw
kg3kuYwZMyaQJCDVvvvui1wXT2RkvqWBvJfKykqhhdHs2eoENPQY7nqV+g/6
zZ8/nw3drbuXi4KgbF5OiVUiMBT6QVN5qShn2Z5FwW95eTlnPaDgfOyzzz78
HEFElrqm2hVRv3jxYp4TBXY8pISZqSPod+Hv9lsAHFaGFARQccuBeli2sNHx
C5tcfAeQCKRQ0khAQyeheWv+VicGhdt41COp6fLLL2eeUm4ETwWzXy5zYSoi
OplfB7dESAWppeuDHYE7AaE7b968YFcLcSnnyxjHMvxAartIlM12DAc4+KcH
HnigJ7k4jz76KI0ePZrbYF0fdhinsEShoI1029mWO8Mdd9wxVzXUWsY0RMN5
4okn2M9at26dwrpQ9ncpDSzMAqTGkHE6TbnDYO0+v4CANSeZEt1LwcK3qGFH
oMAMwpapupJIlRF5zsq9d+/eTP6hQ4eWCA3OLmTTsmXL+BIXF7R77713bRRh
Muxq41IRRgBWCJGhmMdn+ciIeUj6RJGxM9kkGCzChgnNjDBmpbukVEREUkQ1
FarooukKrQOHAqDwQfLGEUccIaZpdOzeds+eNu/Z/fm8IHHHho2ESwBemio0
CtHxfvvldDpgiIn5rGFef0NsIuKkmKtKz+hysCQrOe8yV/sx49ANeboKRBzq
g6uQ4igGLYJza9asie8YFNyLmhcOsNb69OkTBxFIW9ihOChQGJAmyh6q0vS1
mbLC0+Zdo569LWZqaGigtm3bxjkWiJJJk4i/o446KqhzmV3i8ZoXefostKr3
DdpOLGQCmVwpIA7JmZODHDK5L9LTAf6bNhPNaOJfH6ibstgbnBApuBhUeq7W
h7oWI5ubm2lWs3r9D+E3Gqrv0ZgFtko3v20ChtXU1DCiM6MRFWECdwQZe+iT
0ocZCjyXDskBquErIXQBUQUYNJF2kXw5pb4RYtt99925R1e/XyMAIYamPnEY
xTTDZK/Aj3k4BiCUvHSBFfEBUwkKBQX5KqaTr4R9KHhyy1jRHb169YJMZf2l
/PZ0YH/YFZfERNBdi+WAhjDsZBZRFjHvfG0pfCVdAcUM9GfCEtRsd3WOSUVY
gxyAgo8hrOPcLruyuYrERo41/n2hgzmB5FYCVCR3nEtqV4ZUMmCKELmV4f98
wGMC0fFBBrJigzhRQuHtqDSjIu+B5JTiHyl5IEzfMNDsMa5Vc3J5ykrbKhAK
xIFJiw/y0xWhXLpNfHlbfkyJhlYIwwgWroiCLffEcatqHhgkdeKjnrsVh3eR
t5Ky97hNkrR62Xv8g0u6l+ggQXR4Bf6b2yNCvBWhCz8M4ctPiSBtAyq4QpQm
WaFxZVkq2BNOOOHPAIuYMEyj9evXhxPBTUf8lQH/swhoH9N1ciV+F3mIxD8w
9b+v/tpHKSN+duQ6Fyn/i0lqciUDlzhtHL3iyqDdqlcmaPBfbfG9M12KyImS
oLAt4dS2vzKjaeoWzhitFEITN12TqmXS/OUky42ROpPSk4XkPP4J2TO2nMG/
s2f+MjzFut2G//YUyRSd/aaS/7CSNx0f4L8298y2gjj/7/g7V/J/EV4pu1xU
qq0LkEvVTI8e7tIbecPjZuTnZETHT0/Xw1zp2l6b/wK3V2BJ\
\>"]], ",", 
   GraphicsBox[{{}, 
     {Hue[0.6], PointSize[0.016], 
      PointBox[{{1., 0.56}, {2., 0.80952380952381}, {3., 0.75}, {4., 
       1.}}]}, {}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    AxesOrigin->{0, 0},
    BaseStyle->{FontSize -> 12},
    Epilog->{
      PointSize[0.015], {
       InsetBox[
        FormBox["\"applying\\nDRAW-VELOCITY-STRAIGHT\"", TraditionalForm], 
        Scaled[{0.9, 0.1}], {1, -1}]}},
    Frame->True,
    FrameLabel->{
      FormBox["\"opportunity\"", TraditionalForm], 
      FormBox["\"fraction\"", TraditionalForm]},
    PlotRange->{All, {0, 1}},
    PlotRangeClipping->True,
    PlotRangePadding->{Automatic, Automatic},
    ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztWweQFEUXXnZn9yJZ4ECCCBIkiGhZWqZSEUSCAmah9Ar5BZVsVjgOxHiA
WUQxoGU+jBjqwIABRTFjVgSzKIqIWd/f35t+fT17vTOzh1pFlV21OzMdXr9+
/fql7h5SfurYMePLTx03uny7AVPKJ40dN3rqdv0nTlFZqQaJRGKJ+s3eLoF3
Uq/6bwmppAoDj2H88Oi6665DLTrrrLPonXfe8dzZvXT2559/To0bN6bhw4fT
b7/91tWGlaK//vqLG7399tuJtCOvt4aCvKeffpq+++47qq6u1lCG6xa6Nn+l
HXl9dN6MGTNIp8QOPoiDdSMAHzFiBM2dO5ef6ls1QFmGQQ0YMIDmzJlDs2bN
ohNPPJG+//77ZJxiN+SkHtbChQu5+bRp0+jDDz/0sxvRkCFDqE+fPnTbbbcx
siBpu3btaMqUKXTzzTdTUVERnXPOOfTjjz/S9ddfzyDOPffcJK1Zs0YhpF45
C9BvvPFGfr/qqquSmgoW9ITk/fTTT9SsWTN6/fXXE118ygzkRwH9+eef3PmK
FSsYmeeee46/VX7CJsELL7wgxKWLLrqIRo4cKePJUczvIeAFOXsq/bxiznvx
xRcNyEwmQ48//ji/q0FIGxtBDYIT3lVermINPaURAI1btWpFixcvzqbOxx9/
zLV/+eUXbvnzzz/z99q1a3NCB95qSdjUcRTzewj4KOpkj0e+reW1BdQxrdMM
sFevXnT++efTHXfcAV6S1bUlVFq5ciUlVcpBJV2cD5VWr15tUSliXJHFb731
Fmc5i4vqtK6pqaHi4mL69ttv6ZNPPqFFixYFqVTCS6F9+/a8BJCeffZZ/ka+
PXNqTZsxnHbaadS7d+/scr+4Q6A4Cvwff/zBzc8++2x65JFH6MsvvwxjntDv
a6+91qB43333GX6OwXwQpSeffLJM3OjRo7kVvjr56IjMfuaZZ+iwww6jefPm
8VN9604bQ95R8+bNWf6deeaZtP/++9OOO+5oBh9SnkhGwu/GInnbbbelJ598
kjp06EDz58+nqqoqHs2ECRNYZED+tmjRwowOortly5bm+8orr2Qc7rnnHtYA
hx9+OG2//fZ00003cbkiIrOM1M+GjwWH70mTJtHGjRuhdGjXXXelioqKzj6l
JmoiDhw40MiIpvhP2vLVLu0RbPjKK6/QV199xV9NdB508MEH+5OQdNTTIGbq
ImTvsIPP6r4iTjjNi7/14RsIhbR8+XKaOnUqkwnkg2pA+uKLL8D7MtNK9/IM
X3LJJTRs2DD64IMPFGf6nBQBgt8//fRTGjRoENe79NJLmWk/+ugjY4y88cYb
1KBBAywDRTL8e6xuY6Li5QRTkg0mBjpFzIh77bUXzZw5k5l7zJgx6MeGkwjD
J635IQacMHwKGEwBvfvuu2zOgMI33HBDbDT8MrUYfeporWXxZRFrBGAm6cAD
D6Q777yT36Gr1HeiIGf7dKA9GGH27NmG5x966CEePRmrs5BOOukkeumll0x/
apT81HAErAsNH0RJFIhIVDw99L59+7J0koQ6kA4WrEQ0PqVx4Ng4uVDyKZyx
KRyXKiFznNawN2/ezJYAPA0kcBu+YYdkHO2KdB6I7HmeBStFv//+O51++uko
023D4XuOdsUO+IU67/nnn6eCAuG4aPiudgUO+IJHeXk5iRfHRo9iqHvvvZfs
FNZfg2hyY4EjD0NGUk4df9fKzGC7jG6teIO7gvo46qijqGfPnnoovnt38cUX
s3BQ716MrtLupumYva1bt4769esHURSnt4y7aVhvUobqcA2RNF1i0TLGVLz3
3nvO5kpYhk4F5DRc0XQ6TTvttBM8DrMqUAaDyObQsH4KHO28kH4Eh6OPPpph
lJWV0S233MLupBejv3RI+3Rkvx4bV6+99prQJQ4pY8wEPHFoZntNpVKpnDJI
8qAJddJrPS3WLiese2UCGsqE9eOFtE87+ivSFIH9DxMURpqSyHG6yribunop
1FWBFYxm0N6ie1gvWXSH+5bNyQcccIBRGbfffjucB8ORdeun2IQQb0LoDfMd
9isSTH5l1htOcsFPR7YL9iPaDwGgRx99lOtDBgM35QlGdxXRNNibrGMQ9IQT
TmBxE0YtrWC76mbQ9KNGjaKmTZtqxNMspWBzQcyiK5iSmZD6CPWVlpay04ef
su0MCosXL+YAFCQi/J0lS5YYgrr6Scdo5+pPyhBMGTx4MNuNCMxVVlYaXML6
C2vn6k8U9f33358lHNz9aLKH+TCtNZc6TF+ewRiOw5wgJIeBxe8x7DANqUxz
dJgNEceuqQqCC9ODqRh1GPNZYPWCIOAwsR5Hu+lAbcKyWn3TiillZ0uRLksF
miQj6+df5v0HMw79Ew6uCFM6qRh1cnDFNsGe+auZI69pzHox8uzR+as8XGe5
ylwMW+HISwe7CZOerjLuhiFOx1vSwrxHfhj8C9W3bjz9KSqJ0hz8rmNKanoQ
T0qbeJL0hlSZG4s8VYsjuKH5z4+YIwx0+eWXs0PVqVMneuqpp9iywebi2LFj
1cqrqqpSLWDZIMJARrg253oImcIcwQ4TTAWo7mOOOYZ+/fVXjrojzIp+rrnm
Gvrhhx8YB1AFoVjkn3HGGRiGCB/6+uuvOVSMMlivS5cuVXRFWYbDraCuHdWq
qamRobrAJvXE2KhcffXVLGwwWYgOY5PvsssuY1Ldeuutuk1Lev/990ECdvmn
T5/uHApIAAcHzk9FRQXDQXAOlpMOz2aTIYm4f6KYwSALoFElB2Ua5WaFOLaB
K14iUUmAtH0XmGAw+2D8wuSq3XBM8Q4PglCKB0zehRdeSPvssw9Yzswf+GTt
2rUMT2/YGByi9p5L9Xjgt4EqkrB6YP5t2rTJ9G23kwBc9gYRAmUI78sYH3zw
QeOzgXeOOOKIAJ6y+4ig8y677IJJdvYneVZ/znopR17j6OmsRxDG76nQFx5+
MuwJVoeMUTPv6YW0aNEi2mOPPbgKemnSpAmiiUIb8NE333zDxcEASnDz0zWv
Modoj7UsadWqVVxn3bp1hi42LNn6z45YHn/88XTIIYfIPuurr75KDzzwgCkG
qyPoIDvRgY1Un+uVowQpofMKGVuEjdALduSEO3RTLydywTweaMrSAeJ1nnfe
eWQnLU1LNGHyDe3Y+6nCMJKHSDXysQBlbuEg68AlSziUK0Hgirm7hip5Oo6B
SI+fV0D77ruvrHKsSLAf+ErNDsYYa1ZBC2w+YJNu4cKFoogUZFZAF1xwAe22
227UpUuX7GkxY5bVoYSemVIYVgk/CMs/TG89pjRE1AqIu+++mw9LoA7vpMq0
1jdOZOOR7/TKLrwiRX7T67G1gAnEyZWNGzeWagwh+XCwY++992YhAU2Vm3q1
8yo/OPBKUwibAAS24cHrbdu2hYGgB1dQZ6FDaWheNb69BV6h4Ytoa+c6sDZi
T6JHkydPZisMTSZMmOBpYQ1aSIti3S7fcFTYdGK7HwsGwVGZTmzoiSQGe4C3
nnjiCeEYnF2QFCaJheAQg61bt+bTRZDAM2bM0Bya4jWLNnfddZdBCZZDGDFd
UllpYRZO/fr1k27R3bhx46BgmTlV1znnWQ5FKH1jqAD+AHWyhvq3rVuPdt99
d3rzzTdlHgUyBGT2lOcbFLMwMknyYEkBlm1JgViwLtBW8mDAY+9OrR0zl7Cq
JYmFIqauvcMatEo8mjhxIhMZ1poyD6SLBQsWsHFPJCHLQjaoCwsLDZuBA/fc
c09+Nz5EoU1rTujBwkp6wIGykhJhN/8fjIKBjRw50uS5zCbIVQid2oCAr0jt
bnU7mVIbK8vhcSDrLwHbX5P1VV1dzWCR4G1A3tln0ITEbWvnmL0TZdkErDsc
PLG9JSjwhx9+2CJFK3rsscfolFNOYZ7A/MFSxh49Eux/2ZAHfBwuwfk3nG6E
d5bQnhragfqQ0ZBiur4hI1wbCNr58+drfm7BeIwfP57hwOo96KCDuM8o+NA+
OPiCMnh3sPbB+3CRZP1Al6O89ohl2jUWXVZKy5YtY5hYPzBdMYb+/fsHXCVp
qzxL31Uq5bM+yIKERpUI1H1t5pQHoifbtGljNAtPa3tHm4poOEpW8/Gt1atX
q0HW1SNt6wcWagAnwshaIrasYrDuUISAgHspB4Q61geLDHP2+vXruQz+HzhC
5dWLVBnRGSzsu3fvzuRXbnM9ocFph5TDqsJ+O0w+pUjbRxEmwy49ohOwdTBC
CD/FPD7TRAb//dXsZR+hyTOkJ5MEe0nYMKmZEcavVC/WSEUEe2Q52tZfvTDK
sBqGiwJQ+OHwlZJSYuZGb0O4jkR49pEIZITEt/TiZchSVKR7j961cO/+e4Yr
ppk3zRX2bilEy5o1a8BX4saGeWuiiLI2uD3H2HIc2c+RLThlneRvoqcIK1sM
FAm5KTyHRE8umBYHh/XssB22cuXK+D5MnV3l3IONDvcUWSCtqwY6QkKfffYZ
V4WuFRkI+xaHRvE1OHq8UHewzLHcYeuAcsoSFG/HZdzLNqu9m+sapMsKd+WJ
OWTfhGio6Q2ZuvPOO/N5XTAWtD6CiI0aNUpEzmaKY41SJAQaOnSoyQszaAWG
vXvqr6BGuKRSrX4rkA9jpXPnznz8VFYk8nNevyjJVcxN5e4ERqm4zXkbQhwH
6yJFoK1Srwn/4kU6cPECsvDQQw81chSc261bN/Z3mFdcWnK//fbjOK9NQ/sw
ha+/Mx1lxWAgUBh4V8jGuo4RUey6UBC8AWFfiwk5H297Whs2bOAgy6pVq4ZF
cVKGFzSktqQrrrgCZqOvmjMFaNmjRw/2fmKcJw/ctogornts33W5IdYFgaI6
rqaYjVBQPXv25L2EoVHU8IMgdoIN2sHHICG6AGaHnA4PIUXgSkVEcbwbDDFJ
YYfCEQjAYoCIwyLBoiwrKwsjhUgyhDdwWN2Xgv66gg8g1f3lUbyNKlgGEwag
IGzxhOqUCcW3uSQRcYciWFxnbGm5r2CK1XpVZEEIMkgW62qEkMW+GYHoNMgi
WzlYoDhUw6OzZYUQA9a0Dhn5tpb6BzNDhKNGO/5vCfnJPgFMVAg/EEyiG1tw
S8IfQ4vAEEMuJNS5zBBy+cHEDnD/DT4qfDNlmyaxRRJDE9musggwcFuQTYIg
Wuh6tvBjw4dvSogRIBeM8DUoNyLiz2NOJfiL8dtxaTnoXotQ7XGG9ZuI5tTw
Uzb8A6aKBCTtmxijotDxqGvXruziw1FRU5E2jia3wuD/RzRvqd9WH1JgYxDb
ksoQNP3aVzr4Fp/Nn2KyoBdtthv+FOVJVOtMxDzehHDZsccey7xw3HHHsfTM
PiICus3VdJuWmx557VlnOFj38ssvcxFi3LAMlH2UdHRQkbtTsaJBFkDBz7Ls
4xyokm0iiDQkOQlYexcib/8Khq7eQDAmuDJRxQSPcy5LfBIwOAynyspKXuhm
R8Tt6QgG2KpGqA5Exw+iR7FDnP0pWUqy8aBEieoRuiRt5lXGjRTi5onogIEp
RSI6rOimcf2iTxD5u30IQIL1M/WbHhAHBIFpjh82CBVxwjwGiQ3DbMSSQkKk
ZPLkyfV1wnMwiWARFqGGFoAph600+I2I1oUcBLIXCXZg8FPvHfLDO8+DNDL3
0EhyilbmHtJPqtczeAZxkagT2wuPliH+jAi5H0j3ZSfCO1uIinWKwYwQEYYw
sCN0vQ2blQ5bTngmukd3deSRR9a7K6ggrYridNWxY0d2HJWRmZtYDMEeywI9
lm655gA2D4wzM28xQ3KisIASjh5BYUFx4bhHngtQgk+2QeOrzSZRyovfIaUg
gRCEQsJywskVJZrz1Bf5nPuFAwsQspsHLERku7rVUxywekZEoxJHN0FTwm3F
3g10E3wNSDLVxtJNgoDNd8NMaR4nisXuw8k0HANBfsOGDWHLO6feHvnc+COP
Vj4Z3haF2YarMWAJmNh9+/at51lPl6KR3VIJjKFHJHiRat38A6dKEQdAEExW
lAlGbN2nNbcWPMVs3oI71XkyRRu/qN43e/XuSAB04t85p+239VjFIF8/C3IP
LM511v+uI2x1MCWWAaWCcv2MwQh5XXgJAxSmsqqim4epm6zmca/oBe4lxb90
ppuFXZpKNPg/zjOuTw==\
\>"]], ",", "Null", ",", 
   GraphicsBox[{{}, 
     {Hue[0.6], PointSize[0.016], 
      PointBox[{{1., 0.12}, {2., 0.55}, {3., 0.578947368421053}, {4., 
       0.333333333333333}, {5., 0.6}, {6., 0.666666666666667}, {7., 0.}, {8., 
       1.}}]}, {}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    AxesOrigin->{0, 0},
    BaseStyle->{FontSize -> 12},
    Epilog->{
      PointSize[0.015], {
       InsetBox[
        FormBox[
        "\"applying\\nDRAW-ELECTRIC-FORCE-GIVEN-FIELD-DIR\"", 
         TraditionalForm], 
        Scaled[{0.9, 0.1}], {1, -1}]}},
    Frame->True,
    FrameLabel->{
      FormBox["\"opportunity\"", TraditionalForm], 
      FormBox["\"fraction\"", TraditionalForm]},
    PlotRange->{All, {0, 1}},
    PlotRangeClipping->True,
    PlotRangePadding->{Automatic, Automatic},
    ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztWweQVMUWfUwEZgMLKsEPu4AoWQzlx1LLRF7Q0kVEgdIV+YL6V1jUMqCr
JDEABlAUMSAGzAqYwIRiLgMIZjHH8pvzSv8+9/Xt6femXxhEy//LrpqZ9zrc
vn3v7Zu6Z1jtiePH/bv2xAlja6sG1tdOHD9h7OSqASfUy6pkE8dxVsjPrCoH
z0I+qq8VQhbZ6PmpoZ+UWLhwIXqJU089Vbz66qspe3UvVf3RRx+J8vJycfDB
B4tffvmliwkrKTZt2kSDXnnlFSdtqeutoKDuscceE19++aW47bbbFJThaoTq
TW9pS10fVXfWWWcJVZzOLoihahCA19TUiDlz5tCvfJcD0JYhUAMHDhSzZ88W
06ZNE8ccc4z46quvEnGa7ZATalmLFi2i4WeccYZ466233OoyMWzYMNGnTx9x
ww03ELIgafv27UV9fb249tprRbNmzcTpp58uvvvuO3HllVcSiClTpiTExo0b
JULykaoA/eqrr6bn+fPnJxQVDOgO1/3www+iZcuWYu3atc52LmWq6Scrfvvt
N5r8ySefJGSeeOIJepf1jkmCp59+mokrzj33XDF69GheT0AzPYeAZ+RMVrp1
zanu2Wef1SAzmYx46KGH6FkugseYCCoQVPAs64KaFfSkQgA0bt26tbj99tv9
1HnnnXeo908//UQjf/zxR3p/9913A6EDb7klTOpYmuk5BHwUdfzr4Xdje/0O
6ujRaQLYq1cvMXPmTHHTTTdBlnh3/R4qPfPMMyIhSwCVVHMxVFq/fr1BpYh1
RTZv2LCBqqzNzQpGr1y5UjRv3lx88cUX4v333xeLFy/2UilHW6FDhw60BVDW
rFlD76g3OSf3tF7DSSedJHr37u1vd5srPc1R4BsbG2n4aaedJu69917xySef
hAlP6Pvll1+uUbzzzju1PMcQPqjS4447jhk3duxYGoW3ji46rLMff/xxMXz4
cDF37lz6le9q0nLoO9GqVSvSf6eccorYb7/9RPfu3fXiQ9qdRCT8rqSSt912
W/HII4+IyspKsWDBAnHBBRfQaurq6khlQP9uvfXWenVQ3dtss41+nzdvHuFw
6623kgU45JBDRKdOncQ111xD7ZKIJDLc3w8fGw7vEydOFF9//TWMjth1111F
Q0NDJ5dSkxQRBw8erHVEBb4Tpn41W7t5B77wwgvi008/pbcWqg42eMiQIfSW
sPRTIKarJlR36eJabNecO1b3Yov+9FQsXL16tZg8eTKRCeSDfStRiK1bt040
adIEsinXge8k2UBV5IZ0BRRs23PPPcXUqVNJFMaNGyfefPPNMmpOiddee42M
Maa46qqrStWoDz74QFRXV9PsF154Icnx22+/XaoQe/nll8WoUaOo6YgjjhCr
Vq1yyhViK1asIL7Dwpap/nfddZc4/PDDqT/GLVu2TPknTi81TGlteuNhxx57
rHjuuef05pIYOIzhzjvvTOLLZfny5RCfcgs4HgJyzpgxwzNEkoab+/btK55/
/nlqgk4GNaXPV6YgAhFA/PbbbxXELLkwuVxOvPfeezRMqmxRUlIivv/+eyVc
IetLil9//VWcfPLJAO20UnVPPfWUyGazBg+Tora2VrB3m1Tfd9xxh+a1iWIq
lTLGZkneMfbnn3+mzhI1epcyoMdBQ/Xo0YPUBy/tjTfeoH7oj4Kl4l06emFL
K1dyBZDnnXcecVw+m9UgVr9+/SBTJYrRqIIDiqKgKUhp4hjEEQsZOXKk6Nmz
p9oEWfH666+zwiYn8OyzzybZA/1ZEh544AHSOXjjcSAGXKLp06fTODi+cNsk
Q8IWV6HqsIegdvPClRaHHXYY9WvTpo247rrrSPxL1aqhEl966SWGxSsDGPjU
6XRa7LjjjnCd9PZmp0BqV4mRBCrrli5dqlnOq1PxirG6NMk1YGJ8aWkpnNc4
u03ZKSqQQklIzU5YWSh6qELpp/DCMAQYYHF6Ya7V88smZB1bBXHRVqoObJgw
YQKRnfWV3F5kZkBDeEQwLXKv+/CHM+THH4YMmhwFxk8aOL31Eb7cd999nh0g
/RhGDmHe0Ucfbchdkmwmm27mGBZ2/vnnExipjMSkSZPU9BmTO1QefPBB2Ehe
14cffsjqg5rhAUqtrdbVU00KjTZmzBhRUVGhJ5V+O0U92CAwslLBaqmDtz10
6FBCCpGb3ADa0kHp+mmEOBYKCh4NPlL1a1gwwtA055xzDvVbsmSJXtygQYNI
lHhcWVmZ6Ny5M0vcJZdcQvRj/Y5QQ63MauDa0E9TKBOiM9A/6KCDoJSIOB9/
/DGcO3ZlLN2cOV5I/fv31xyAG493FIiQNHsMydKNIbWmnyyJB1xzyAQKdA/e
ERgkY/SZ7QWHJYELkH8UaVG0/k3G7TPL0QGNBsy6zz8ICjoZu0/KMaKA/Cxp
s5qb1BB7W/S4gql+H7g/BY0/HfOMblu+Vr7+i9rwnNhcTAI4rOUIhh2OpCnL
yWTSI+/Rff6Wo7+qHMGErVjnypF83uJy5GrgtNh///21ar3xxhsRCat0pr3N
dVOTHqgUdSGx6zShJ+8MUJNQ//ArYQ4QDqRD2uLP0AM/CdRO108Joyk+kD+i
p0IHTEwKw0lzGuzIulxU+oM+8tmZGoLK5o5QskUf5EZCRtip67I2F+UI0LOK
eCUNCqPdRGyKFukw2EJQV65aGDtsE7n48OUbGhrERRddROE2nDaVVqCkGVxZ
jLnsssvEN998w/nZ66+/nnwrWaXWUeLpjozWxRdfTH4ZMt8yTKeABW2YZuPG
jZzIACYjRoyg7ZlTKzBBAbN8NPAPG1ahUwNVsx2ZA7QjRpPuoM4FoY1TB0AR
fvOaNWtyivYmCEs3dzWlkdhdeumlZJkgPAgZ6uvrXWe2gOlxfDulLTxBecaQ
dRQkYXbZZReDVd4DH64zsqsaLnTgHnvsgdydk/T1kzB03g6JS+T32FdrbGzU
/cF25NyAUIllrrSlzo9Tfq6MngvFaGdUEF0g+uCm/KFJkjLBSDk++uijOk8R
1c9GnoRijT8hjVwV0olAN5ypYd5zWrHAl45Qp36AiK//oPvKlSsTSj7Rm/Mm
yDNzZKyi5pQij9x45BXhxOaoo44yKOsNsPm8DAgikFYSo3wCyjDjAAixn8HX
QghpHTwayGjZsPXnGQv7uyTBUYNnUUlxxRVXiH333ZfemltA87Gi0c8Ez83G
ECpHHnmkOPDAA2lxScMAxIlmsmpiM+1iOlQsAHJ3MwfhZDhuxow+4KaFg2ee
eabYZ599qGnx4sWI2fXe8K8AtBo5ciTPYDbBMiGqhpJyl+XilxV77713GDwZ
zgcLTAQK3iEpSx1zGqkGZMVUMbCys9bXP4i1ECCkj3FIsGjRIkoVBG7SsAiC
uWFLQBk7lbKr+JVjmoZQDSdBSObdcsstmmpSdPwrdveClsS0pvTnn38uOnbs
iMyU3s6mX+HfFT5ANqRidg5mYpJSbJzbDduXRr8w5vEHySNJIDvzMmoQ0qRm
AaMWLlzI2Z8wz9+WlDN5ysd6q1evTqnZoALAQ+sKkuKee+6hJKvUEJp1yEHC
CzC6a1cKmgR+iuaf4ybD5SagvY92XpRWv4V7D92kuihmu6qZi+U07k3stNNO
kZw2+oVxGgV2A5qzX79+dk7z3Ngz2Dtoz+TJER572RKUtEDy9BXUvfbay0gX
uDJlHpwq+8+IAB64mqdvmpTN8ccfb3bXGQqcHhpcFOPHjxdVVVXYzHqrmR6V
32Ux54Gu8qFV4LGZ/Xlus3+YJwY/Ft60JEsIHt5+wa5T4Vk+LqPkcrlSzYKE
yeQUstZkskD+urq6FLmuSbp4o4rTnr63ckywSGjjIAVshh8FMAMGDPCEOHyU
CKcS+WT0hdrHuM8++4yvQ9x8882ibdu2dKUJTRgChw+xBEJAOBaQWYBBG6zR
iy++yARH6h1HPWiCSywZ5jSjtnbUZgMJTIOwDBrD/o1/jF5JU89Qjv2AGrLg
d999dy5eNzPsC0MOV49mzZpFu2PJkiVhezlF55k4qEWRaplVDuvJPJvjhM0q
P4TrayRvKNifZnSCU/3iIWfU6Hbt2nktZKWW34K0AY95+OGHKUZdv369bAoS
42KwgPLD9RFh7MMoiu2mCO7LhgwJnQi+It856BQC1JeUCQOaIe0H9wUFbg9k
R9ZVbin4yoaQie7WrRvxq6amJs+pf9pJMdjOwAzdCYQLcP/999OJNvz03Xff
3bU6kedDLOm+Swzx836MBqwFfALE96AhglapCBiNiFyRzZgXi0OSPDGW/4Ta
Bdtvv70e7Sq4OOdTtgsDafPCgDuxLDNDqQInDHEZ1oUP4tzq6mq+WRB9smU/
2FemsV4+LpCfLqijxKEZF7JdxOr8FAiLFfk+r+/IPW2wAxctu3fvHsCOrAIA
MYA6RpAvJZRvDkTHMQWn4mruMtb9ZWVlEeIIecadRMVCcpBlUBbmb7MUmSfZ
auJGgOjatSusbsTESMDBS8degFcDJSXNSJgTyMG5edqcd/4CNTcMIPOV9ewB
Bxyg65SeXQeQq1atorfw/QNjjUsrJkTzIoKCOAUQET9EQcwQD7GTuOCUW0Yf
lS6g3QCooqIiElCa1IpZYDSrXCjL5JClgDRixAhnmp9arFkQQeGeG5pSalfD
B/CtTWsbqZgCUGKIMD3K/3M1l/xGuo8Djw4+iNH0N60/0x/SGYQj3lziFZiL
E6wTsU6R3pfO5+DiD9JurPiQG/dMSNRsqabx2bo6P7nZnuywww50+w2WSbqe
ae2NBKDvg8t363yrGmNdFQcKmEspWs0QTs2ihxsJxr4yYbuhZ7NJARzgJfhW
Zl9CUUcqgffskhbsOtvR6GhHuq8VO1boIDCmw8dQ6HGue4TdoQtD24dfR/tq
7GizEsIfMFRErm2BVNHxjXD4LTnqQ9gPsmO3m+7gc91w2oVIE9zFB3eTpWDm
fJMGXz2JvuRmO9VjNGPxnnUTrn/5gFKgx3XsWUTfc/BeZMtaEAy3KaAaKAXv
HB8cL0iqxUml2S6fFe/qBshTnDyP7YJY3tSPtjNmO91ByY+5H5HRxUc+V1lW
Msoukl2sC7QdqhcFgIUFF9v54h8LC/4exkBthown8i0+fCIoPqfIiBepNBy9
uKeNrpkwspubEfHiDIR78nLh9G4+xEMPPXQLQ0Q6Hg7mhg0bglcdTjj8VQI3
FzWxY8aYbFBtV9jj7z4OZ0wnybXoLaLMJj2HXDS3GSA7EsXccAy7/l38jHGs
VNid7LyVKggU4xwg8gGT7WJ0fB7GvzAXeIu5+DtPwTenAq8Ub9mLVbarvSHx
3V/gutT/y42vgMtSTW1/CyKIMW5Nx5eNtm5Py0FXM49mQrHdqjYP+XgmWSos
CLSw1JVv4X75PzkQGvrGmkFe24rdXRBHZf59ATYU3P8C5jnbEHpYvtZ95puR
MaWmqHv9YYDCjNvs6OFhFss33PxjDaevbDbI8/cL7/9WsmqYzaqoYWF/fnSa
/BfrJHbR\
\>"]], ",", 
   GraphicsBox[{{}, 
     {Hue[0.6], PointSize[0.016], 
      PointBox[{{1., 0.590909090909091}, {2., 0.5625}, {3., 1.}, {4., 
       0.}}]}, {}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    AxesOrigin->{0, 0},
    BaseStyle->{FontSize -> 12},
    Epilog->{
      PointSize[0.015], {
       InsetBox[
        FormBox["\"applying\\nWT-LAW\"", TraditionalForm], 
        Scaled[{0.9, 0.1}], {1, -1}]}},
    Frame->True,
    FrameLabel->{
      FormBox["\"opportunity\"", TraditionalForm], 
      FormBox["\"fraction\"", TraditionalForm]},
    PlotRange->{All, {0, 1}},
    PlotRangeClipping->True,
    PlotRangePadding->{Automatic, Automatic}], ",", 
   GraphicsBox[{{}, 
     {Hue[0.6], PointSize[0.016], 
      PointBox[{{1., 0.375}, {2., 0.65}, {3., 0.705882352941177}, {4., 
       0.666666666666667}, {5., 0.6}}]}, {}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    AxesOrigin->{0, 0},
    BaseStyle->{FontSize -> 12},
    Epilog->{
      PointSize[0.015], {
       InsetBox[
        FormBox[
        "\"applying\\nWRITE-CHARGE-FORCE-EFIELD-MAG\"", TraditionalForm], 
        Scaled[{0.9, 0.1}], {1, -1}]}},
    Frame->True,
    FrameLabel->{
      FormBox["\"opportunity\"", TraditionalForm], 
      FormBox["\"fraction\"", TraditionalForm]},
    PlotRange->{All, {0, 1}},
    PlotRangeClipping->True,
    PlotRangePadding->{Automatic, Automatic}], ",", 
   GraphicsBox[{{}, 
     {Hue[0.6], PointSize[0.016], 
      PointBox[{{1., 0.84}, {2., 0.833333333333333}, {3., 0.91304347826087}, {
       4., 0.}}]}, {}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    AxesOrigin->{0, 0},
    BaseStyle->{FontSize -> 12},
    Epilog->{
      PointSize[0.015], {
       InsetBox[
        FormBox["\"applying\\nDEFINE-MASS\"", TraditionalForm], 
        Scaled[{0.9, 0.1}], {1, -1}]}},
    Frame->True,
    FrameLabel->{
      FormBox["\"opportunity\"", TraditionalForm], 
      FormBox["\"fraction\"", TraditionalForm]},
    PlotRange->{All, {0, 1}},
    PlotRangeClipping->True,
    PlotRangePadding->{Automatic, Automatic}], ",", 
   GraphicsBox[{{}, 
     {Hue[0.6], PointSize[0.016], 
      PointBox[{{1., 0.68}, {2., 0.826086956521739}, {3., 0.875}, {4., 
       0.75}}]}, {}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    AxesOrigin->{0, 0},
    BaseStyle->{FontSize -> 12},
    Epilog->{
      PointSize[0.015], {
       InsetBox[
        FormBox["\"applying\\nDRAW-UNROTATED-AXES\"", TraditionalForm], 
        Scaled[{0.9, 0.1}], {1, -1}]}},
    Frame->True,
    FrameLabel->{
      FormBox["\"opportunity\"", TraditionalForm], 
      FormBox["\"fraction\"", TraditionalForm]},
    PlotRange->{All, {0, 1}},
    PlotRangeClipping->True,
    PlotRangePadding->{Automatic, Automatic},
    ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztWweQFcUWHfaFDW9Zgh/YL2GRj4AkES1LSy0TSBIkiagYKOQDKtlMWFfE
SDAHzJgDiIKpoFBRTIgZxYhgRBQDYkT797nTt1/Pez098xb9v/xlV+2+menu
27dv376xu+/wU0aPHDv8lDEjhrfsMWn4hNFjRkxuecj4SfJToo7neUvk38yW
Hp6FfFT/lghZZGXgpz/9JMV1112HVuLMM88Ua9euTdo/d1KfP/30U1GvXj0x
cOBA8csvv7Q1YSXE77//Tp3eeustL2X51llBwbennnpKfP3112LBggUKygDV
Q7Wmt5TlWxf17eyzzxaqeDv7IHqpTgA+aNAgMWfOHPqV77ID6tIEqkePHmL2
7NlixowZYtSoUeKbb74pilNth1ykpnXDDTdQ92nTpon333/f/1wh+vbtK7p0
6SLuuOMOQhYkbd68uZg0aZK45ZZbRGlpqZgyZYr4/vvvxfXXX08gpk6dWiTW
rVsnEZKP9AnQb7rpJnq+8sorixQVDOgef/vhhx9Ew4YNxWuvvea18SnTk36K
xW+//UaDP/vss4TMM888Q+/yu2eS4Pnnn2fiigsvvFAMGzaM5xNSTc8O8Iyc
uZT+tzL6tmrVKg0ynU6L5cuX07OcBPcxEVQgqOBZfgurVtATCgHQuEmTJmLh
woW51Pnwww+p9U8//UQ9f/zxR3pfv359KHTgLbeESR1LNT07wEdRJ3c+/G5s
r+2gju6dIoCdOnUS5513nrjrrrvAS7y7todKL7zwgiiSJYRKqroQKq1Zs8ag
UsS8IqvffPNN+mStLs3rvXTpUlFWVia++uor8dFHH4n58+cHqZShrdCiRQva
AigrV66kd3w3V07uaT2HU089VXTu3Dm33q+uClRHgd+2bRt1P+uss8Qjjzwi
Pv/8cxfzON+vvfZajeKiRYs0P8dgPojSk046iRduxIgR1Atv//LRYZn99NNP
i8GDB4u5c+fSr3xXg9aDvBM77LADyb8zzjhDHHTQQaJ9+/Z68o56rygSfjsS
yU2bNhVPPPGEqKqqEtdcc42YNWsWzWbcuHEkMiB/GzVqpGcH0d24cWP9fsUV
VxAO9913H2mAww8/XLRq1UrcfPPNVC+JSCzD7XPhY8PhfcKECeLbb7+F0hF7
7LGHqK6ubu1TapwiYq9evbSMaID/RaZ8NWs7BDu+/PLLYuPGjfRWX32DDu7d
uze9FVnaKRA1qgqfd97ZZ3VfEXtW8+IP/fGldIlYsWKFmDx5MpEJ5INqQPns
s8/A+7zSUvfSCl988cViwIAB4r333pOc6XNSBAh6/vjjj0WfPn2o3SWXXEJM
+8EHH2hj5PXXXxd16tTBNpAkw/8kqduYqISDyeSCcaLjm2qlxIj77ruvOOec
c4i5R44ciXFMOF40PvXjwHHhU0xgisXbb79N5gwofOONN8ZGw6/z2irqKK1l
8GUpaQRgxqV79+7i7rvvpmfoKvnuFYf2TwX6gxFmzpypeX7JkiU0e6GtzhJx
4oknihdffFGPJ2dJvwoOg7Wh4fNbJgpEJCoJNfWuXbuSdOKCNpAOBizPhY8/
pfI4cEycbCj5FE6bFI5LFccapxTsrVu3kiUATwMF3IZ32CFpS79S9Q1ETiaT
BqyE+PXXX8Vpp52GOtXXDd/Wr8wCn3nsueeeE8XF/BYNv8TSr9gCP6m+DR8+
XLAXR0aPZKj7779fmMU1Xp1ocmOD4xumjCKdOnrPysxgv7TqLXmDhoL6GDp0
qOjYsaOaiu/eXXTRRSQc5HMy9lB5XVOO0cwuGzZsEN26dYMoKnQ0o6trNK5D
c7iGKIousWgZYyneeecda3cpLJ1LATkNVzSVSoldd90VHofeFaiDQWRyqGuc
Eku/pGMcJsuRRx5JMCorK8Wtt95K7mQyxniu/inHuLyCMK5effVVpkscUsZY
CXji0MzmnkokEqEyiL9BE6qiKJlia5cK9r00ATVlXOOkHP1ToeMlyf6HCQoj
TUrkOEOl7V1dowArGM2gvUF31yg5dIf7lsvJBx98sFYZd955J5wHLR/z2yfI
hGBvgukN8x32KwpMfmnWa1ra4Kcj+wXHSav/CAA9+uij1B4yGLhJT9A1VCpO
1+BovI9B0BNOOIHEjYtaSsG2Ud2g6Y855hjRoEEDRcgUSSnYXBCzGAqmZNrR
HqG+8vJycvrwJ207jcLChQspAAWJCH/noYce0sQOH8fdzzYeiyAEUw499FCy
GxGYq6mp0TBt46Vi9LONx2LwgQceyBEO9nEU2V0+TKXiUovpSysYw3GYHYRk
MbDoOYYdpiA1oR+3zRLHrpkVBOfSg4m4bWZkWV0Ddon1ONpNRQA9XlLfriIy
8TcuVJd01Ln6/Q3zj4WpvBCzTsHSrOHSPInYbYKs8Q/LsA1jfmtQUN9k4FuW
8f2t7tIm9rqkZaTqcCLyMC4Raquj7kWAOB1PCQPzDoVh8F9o/tfG01+iTJT6
oGcVWJI8jaBSQgeVAMG2lRwYFahrLNEOBSmzCNAR48Rfv379xEsvvURtsCuR
aEM9Qk/Ievnw6pMZNGTIEB1mQKgdsVW8X3XVVdQXFEEcFuk0FPRB9nL06NFF
CPFJAsByQgQjSwCfnxGyBajTTz8ds9MBmEsvvZSmctttt+nY07vvvguQ5KPD
bAnvXz+AJuLvl112mTj//PMpT3f77bcH6jmKhqnD0l65cmUmFI10AA2sPxwm
OUm/uoG4/PLLCWq7du2IRVxYIMAMVjLjeEuXLvUqwtkhjsHAwYv84EtZP1O4
I5Cx00476YQFK+pt27Zxpg5sgZB6Vgdk8hI1CFghzM5+EoxrmHTZhGaCMkgI
ckkeYEEfyEszyosXL87ZKMVEFbAgF1s/xknW6YVCvgVpCRSuN6L0SBwhQ/Hk
k096mdDhKwLDY8cce+yxeqrgg0wmozMKBhqckmYs0GT69Ok8OqQFbN4tW7Z4
daOX22WspVQHa9CntNzLFspq4Hf9+vUmKdWSJCm1hMwvvBC94mV5ccbjjz9e
HHbYYfSMLBfEm2QyXoz58+eLvffeW735/71sVkpbA6+88op48MEHNVjwMEIM
y5cvd/SzB5ZBGOZjjgoxPvPmzRMHHnigmkz02AxT7noKb8AZxXhIMRaF4pDU
OHz55Zfiiy++4KarV6+mphs2bPAZzdQq7Myee+65wixKhmYUui6bmv3z/EhT
OmDL5eUKSwKLCp0Fjrz66qt9Fsxff0BAcgFJOCTjUBBOR52OdPjJq2BQNriO
STXn/fffnyJ9EIl77rmnaNOmDYYIX/r8iDfkytChQ22rwjyNxDayfqoUY9hE
PAwQX2ndujX4PQoDZTzTvsYmxJbAFoFAcuxvHunee++lUxo+Z3iexwvvspjZ
Jw8PcAUZQK2qedaAqzdt2kSqYMyYMZqdza6yS0IhBy8ek96uxU+RkEAOHxzd
rFkzaHS9YV2b3hdXmjlta56goBiH8jMxBpTTpvYbN26MGjBFSUsIyf3224+A
Sgno0tjMhxMnTqQ9Brjjxo1Lkv5K0OEi7lGmRnA5G7YoWazF9nf7zz//TFx/
wAEHkBBBUYLBJu2leiKZgvg8Ckv7VatWMe2QtHRJe15wHIkCnaFjwSBSSjoW
PH+jAdspU6a4lh3nu3bbbbfAstuG5SWBgMehg8cffxzGa8JCAGNkesb+Rt09
99zDmMAUY4KXR/PBXnvtJd544w1eXCYBjOhcPnB5g7YAXtYb9EGEHieB3dKy
ZUtse7aWDOOPmipTho0wHCeDpcMFRh5Qyxp5Pql33313oEJtzIyoiQXK+PHj
9bKBwZDaHDZsmG5vJpnZ2GPBJPuaKLLohTXNRVXpIb777juyuqWcZXEcGJaZ
DgsDiQ8th4ITjrIPL7Vh+nq8q3hY/JaUlJBdybTeZ599iCNMjc/oLliwgOCh
QNFAjJgH5Hjyzel/ZpQyX+kPOhrvcC7Wrl1LBibeoeekZaNNdcjnmpoaqoMp
j+nhtAvecWjwggsuICbK+je+WQ7lLnnE8923cjItHn74YU1eHN4DPDg0gIXd
gRXDykjRyNMAFVGdPaJZGdWVUGYU8R3t4EcpAy5QX11dTS4apnj00UfDoKsI
HboenSkC1x933HH63BKcUvA1hnIMrfkSVBg7dizVwTPo2bOnS/hzWH/HHXcM
KpMqS5/qaDiQVPAk16xZI1HK1yDNawcWpgeOqGX5OiiQCKw9LMIgwJJ8YqlV
bbBIE+fBEEGBhYH1kN9qRaq0VlvQ97vssguRf9CgQbWEhtgGdt5jjz1GfjMy
01LrVUURJk2yFloXZgNmCPkgucvXFJHZCNYaOWd6Cgwv8iLBdmM2LFLMCJuX
m5cppCKCTayzTB1cK4zSpG7g3AAU/nAarE+fPmz+RudFbGc0UrlnNEgl1oRj
w/4/wHNVqUIhOpfiOJNAo03LZQ3zmAYiUevWrQNzlasRXc4eH0+xpt2Dc8uo
pvHuF3BeOed+QX21TtjebIpgpsjhSTwPiV5hcC6OM6slohip9MniOzghuW7b
ZKMvQJQaII0LEPVU008++YSaSvddC0Icg0egCG/do+cLrQDDHHseNgEoJ22+
csUq4RnwYI7ZNkllXQbMZdv9DCaGeT+jrqI3BCtsZIR6wFgICUGPVlRUeJGr
6UdEuYoJhFgyf3OZruwUmjndrMnqT6SCVgbMBzsZVibMMRyP5b2JnqHXQzJh
1dSV73ZgvpLvrLc12OA1LnoE+kpt6/kXQ1KBiyEQjf3799diFTyMGLB0FDzy
nWxKE0YN4skmNc3DHjZ1ztET9r0xOegUPMsJxLpCElFtuwQRvLVhXuVxnOk3
PanNmzdT4Gj16tW9o/gsTdsdgp0LwurS9qpyEAQr0KFDB/KMYpyLD9waiajO
v35gu6QR66JDaZ57CbMU79BrHTt2FMuWLfN6RFHID0OYBf5DS0s3dhihTWC9
8Kn3rEcVcVckojre1YyYtDFzCwijYhdBSmJtsZsrKytdtDGDUDiFjzZJtSHh
53DzrD3rU6eM7E7cWYCNB8kN4NDDvNZ41/dAIq6JBKvzZpniKxm6Wm55SSCE
CoMEMm5/MIHMyx9SSRGB4NyiYD/j3BApKVPcMFlgn6vwk2+9yf/gc46ZtAil
bGPCBZ4HDGHIVJCTYwXbcTnEn1ejwLQd9zDy7nA47nzoeAHCQieffDIlRqQF
XIR0TgxVZzrhLAPBiwEmygHRTLUz5SdZVnRBhK0MvleFt27hiLB1iXWGnYKC
+YNR2Pjl8/1hCDVV7UwbiM9WmRdPhkShkRRt27alWwfYInIJUtqNpY3EM4dZ
iWSwNCn1QOaVlcH4bzInGzAAq7wAzZysfIXI+iYxj28h1IGYABYdDj+kaq0O
ZcRMvafJYOGUOm7QwaKQFlaisEHZNwA5AAV/hm8Q56AY1tVTsV4UPuGY9VgK
dtNgKqv8hDbipZHLRnyc82bs1YCDYXAhaIOdLLHz29h9JcYA548RhATR8QfZ
ItkgToKM9wpfa5SyQm5oqJKEXlchCj6ZwXICRmoOCDN8qR3JGIefCH2VUGZz
udClAqFAHBj6+MO1REkol//BJgJMT2wrFJiXEydOrK1fH8IwjIUrsg2RD9MP
STk4AghOOs45mRsGeW38yWffFMqeZtu0RYjZS+nXZzLXeaFst7nL5Ou/6dfV
jXkB6ohPDjMvQCJy8+YWrOZEY8XgIVK8vDCiOzCH1CIy4L6958tVzmZkUSqY
66dPn66reKaIY7jATlWANm+VimyFwK8F4SOOOKLWkM3lyoeMDCecT2llhpOi
SIshH1PPKDnwYM/AGNPLETOoxzoKuBx11FGko6CrFi9eXOh+Y1ffNFZ8TVk/
Sm/RM4QSBA4iWCjYPTgFIKVygaqikKPM8HkBglNnwCJHWhc6bBwVBIUIDxaH
LaCC4FFASMk+hgpqp0hqSoyBuraAA9Gc+USOAWdL8L1u3bqw063LzAObTDw4
eubReiVNeVxYZbjZg+WHqdy1a1cXFqZocmDhOiDLnjlH1YAFCvxHuW/+hDOy
CBMggsY7CrGKrO4YpKZmyp92uStrOzE60LIy7cMxdYHA2PPU2AWCcNDm/+Z8
7XZdMS+Qof6plqS2F51zhiMN8b8/sW6bVZyrvX9fzfhrwnRczXCxQkHXf1yA
XBpwVnR3l/bK6R73wmLgllb8K3iqm+sKmVfnP8WeaQY=\
\>"]], ",", 
   GraphicsBox[{{}, 
     {Hue[0.6], PointSize[0.016], 
      PointBox[{{1., 0.68}, {2., 0.76}, {3., 0.8}, {4., 0.916666666666667}, {
       5., 0.826086956521739}, {6., 0.888888888888889}, {7., 0.5}, {8., 
       0.666666666666667}, {9., 0.5}, {10., 1.}, {11., 0.}}]}, {}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    AxesOrigin->{0, 0},
    BaseStyle->{FontSize -> 12},
    Epilog->{
      PointSize[0.015], {
       InsetBox[
        FormBox["\"applying\\nWRITE-KNOWN-VALUE-EQN\"", TraditionalForm], 
        Scaled[{0.9, 0.1}], {1, -1}]}},
    Frame->True,
    FrameLabel->{
      FormBox["\"opportunity\"", TraditionalForm], 
      FormBox["\"fraction\"", TraditionalForm]},
    PlotRange->{All, {0, 1}},
    PlotRangeClipping->True,
    PlotRangePadding->{Automatic, Automatic},
    ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztW3eQFUUT33vp8pGPO+IRBBShUNQCpEowfJRKDmqBlnUicqgIEiwzKCB1
CGbLnDAHjKBlmXNOIOacc8Ac+5tf7/Tc7L7ZffuE+ur7w6m6e7sTenp6ejpN
75jGBU0zZjcumDW9sWHUvMa5TbOmz2/4z5x5qipd4nneOvXX3ODhmdSj/reO
VFGNrp/J/JOhiy66CJ3pmGOOoddeey3jrh6gqz/55BNq1aoVTZw4kX7//ffe
Nqw0/f333zzo1Vdf9bKOuoEaCuoeeeQR+vbbb2nNmjUayhQ9Qvfmt6yjbpCu
W7x4Meni9fRBjNGDAHzSpEl02mmn8a96VwPQlmNQo0aNolWrVtGSJUto5syZ
9N1336WSNLshp/SyLrnkEh5+wgkn0Ntvv+1X19CYMWNo0KBBdM011zCyIGnX
rl1p3rx5dMUVV1B5eTkdd9xx9OOPP9LFF1/MII4//vgUvfvuuwoh9chVgH7Z
ZZfx87nnnpvSVLCge1L3888/U9u2bWn9+vVeL58yo/mnlP766y+e/IknnmBk
Hn/8cX5X9Z5NgqeeekqIS83NzbT//vvLeiKa+TkGvCBnb6VfV8F1zzzzjAGZ
y+Xo/vvv52e1CBljI6hBcMGzqotq1tDTGgHQuGPHjnTzzTeHqfPee+9x719/
/ZVH/vLLL/z+/vvvR0IH3upI2NRxNPNzDPhC1AmvR96t47UZ1DGjswxwwIAB
dMopp9B1110HXpLTtTlUevrppymlSgSVdHMxVNq4caNFpQLrKtj8yiuvcJWz
uTxv9D333EMVFRX09ddf04cffkirV68OUqmSj0K3bt34CKA89thj/I56e+fU
mTZrWLhwIQ0cODDc7jd3DzQXAv/nn3/y8GOPPZbuuusu+uyzz+KYJ/b9ggsu
MCjeeuuthp8TMB9E6WGHHSYbN336dB6FtwYfHZHZjz76KE2ePJlOP/10/lXv
etJWkHfUrl07ln9HH3007brrrrTNNtuYxce0e6mC8PuxSO7cuTM9+OCD1L17
dzr//PNp5cqVvJojjjiCRQbkb4cOHczqILpra2vN+znnnMM43HTTTawBpkyZ
Qj179qTLL7+c2xURmWWkfxg+Dhze586dS99//z2UDu2www60aNGiHj6l5mki
7rnnnkZGtMH/lC1f7dZ+wYEvvPACff755/zWWtdBB++11178lnL00yCW6SZU
b7XVVvzmGwVu82KL/gzRk2/YsIFKSkrAfwpX/E+zntPFa8//M/T666+zRgU5
L7300g6aA15++WWaNm0anXHGGXTggQfSvffe60nbbbfdRlOnTuU29Lnjjju8
trrt4Ycfpvnz5zM47BrUqnCV0vPMTaeeeipNmDCB3nrrLXX2Geuhusuhhx5K
zz77rDkS77zzjtdRr0jLZn7zUcnRkCFD6Pnnn+e+kIVYobK12nFzKZsJlZWV
9MEHH3AXJRapqqqKfvrpJ41xEGxao7HHHnvQ9ddfz2Mg2NV7ENM0/fHHH3TU
UUcBW69W1zU2NpIYlGn9/5ZbbjE0b6PRAh+h32+//cYNCh1+B0EE9TfffJPr
0IaCpeBdEdGJekqPQ39oB1ifKB999BG/QzdV+EsYprcewmXFihW8j+q5vV48
iAWLDkXPoOldSm+88YZIObacTjrpJD6oIKhgjlXBZli6dCn3gWUIu0ZRLBZz
tXquA2VR1D4aqmjMh+vhM2bMYNllMzJkx0svvSSgO+iuoiGVqFEz1dXVqTrZ
WvRop1e9du1aymaz3Le6uhpWm25zYyuUCGOL/akIMrUW4lyefPJJEEyj5+8B
JCowt7AGVDAuPIGOmtd/+OEHFqJXXnkl63sIzu233z4OSTANhIDNDOl02mYG
QRKiHLIMBeJfiXjD1xh+8MEHMyfU6v7QTjjIKOqU0pFHHqm3Ikcff/wxowKM
UWCxKAkkmMIaCZ+43XbbzWzLtddeC10Ylg3KBmULHrwJhbFu3TojGyCSgrIh
y4oBJ3L58uXsg1111VWm7eyzz+YViQiDfSu8CcV2wAEHUJs2bbyM7g/ehMjC
cYEIg1zS6DmlcD3/lLlEHi/x008/hQUSJxlXBSE5RBI/gxOUmhZILsmlIdVp
poiTEOkEfVYGwcUd23SCPox5M1irJAg47oSlE/TRrqZnmap4zvnbHKhOO+oy
//bb4v1aHCeidRt4O8i3i/N2P050pRP0STmmr3bUddzCdTxHibWger1ml4TL
xrS5aLosCrhLPmVj2hg4w16Kp5QFsn+Sebdwp/8fTEKdmvh/hj1CWP6wEJqb
m+ujVzFTUx2SaPDgwVRTU0N33nknFL3P2/YK/e2rLKQm+Fkb9GrrYMxnbWPe
B6bKLH8JMORZDEJFdg7jWqRGcZnkdnxQCiwZREKbmppSMP1VJ2hY2FXUIiLY
IkQU74YbbtB1ZTRy5EiaNYuR5zMNixGgTz75ZAT2xNXCDPvssw8vtUbXXX31
1Wyubdq0ybhkZ555JmMNhS9BFJjTCjPKZDJ04oknsvGEKeD6nHXWWbRs2TLq
1asXPfTQQ4wGnIpx48al4Gp6VTR27FjjZ6AgjiEgEDUACNgZiC4qlMp51tpC
3RgUghBYMLAD/eBPI0QIP7cIgrQKb3MSda9ldMCZyTr2FhFcmFCW64xIE1xu
tb9mb8HnpaWldPjhh2vCl9EXX3zB0ylLleMsKKKl1bsMxQoREbD3FlJx5513
RsTCTKF8TcPxEkeBKQoyoEhsSpFGGBhRRdiOEgVStqJhFXhnPXr0sEK6aRuE
qcP5R+AEb+WR/XJ2PwQj2I40qJQynYcNGwbODBPCc1EiclPjDCp/A/PcO7G0
Pb9AWLEMwZ4LH6xevZqGDh1qUbcKESkaP348x14kzAj3DzEgmNFyYnSAK61n
R+wLoWlY06q6Ws+uuJdVNiLVBx10kEW8CnrxxRfp9ttvN1wHToXAlei29nBk
IZgQXAiQnu9tmP2C7e8FwqwuB8lnfB0FNPua3y9r+oHOiOgpVI1vgLsKcLdF
hFgqpB37GWfHlmq8bKdX8JJDCg/M8+PAGq8a9uZwGqUAt4aGBmY+nAecVpTd
d9+d71fgKc+ePVsOrn3+oXsQNznvvPPIR9xfYSntsssush8QqyNGjOAOYKT7
7rtP06Ec3VjEQvjttNNO1KdPH+MWS4xB7q9c+2TfjMlZs/pxAS/st99+KYOY
8FVER36G5vX8UIzsJ9gQbCcFuAm9HYSIPqRx5qlM5ooNWCc1YnM75G0uEINu
++abb9jtVhvJwgiiF3BREO2UkLfA/vLLL1kAKvVriG0bQBWa2BDdCOLceOON
hoaKIQVV7Dfi/ODfLl26wEd3nruMo85ebuguxq+tDA3yDxj+MzgjABROGc1v
0NVlZWX2HiZabp71XqrXj2CWXbS1U6VxjzPuXZGV8BaDvBDGSldpGuU4aK6F
MRecH2Up+Wi35tAGRDuOtHAR7j8xhSwZoTgcPRxLiBTBXLVV6dVDCtTV1aHZ
kxscBKRwMKTAZoN9BuULpvvqq6+K3N0CN21pxg62GBmeyz+3Vh8mWPv27RFa
8met4gAgzAV7z2MIkHdsBXuwOFgdTbkWUsU7Wa7glLX0tNa6bEkBhmVJgbrw
FDBEDIUdd9zRxGBRoHDBHwsWLDB9cKyVpWVkIwxIMIPi8QBZxcCQYwQ0scNk
yVfcAgCWXQddM3z4cBijxjixrv4Mvey6aHnt7oeLG9musF3V0i9n92MjGgaJ
IWE527hQwaLSkpKEj3sqjwcyiGaySAULKsMnwwtJ8/kSdLtYjA2bDdIe8+Lu
y/hA7VlrC1oocpU1Z84cvhFFkXipZApgtXAFEQGGokIbouxKM4kigk5A8N2a
XRMww4wDvQOLTZnfsnDlcVF9fT2MtsC+A0RLakaWnRa5EYItq0CYtA20SZKF
clT4Mk0xFtQhquDroAuww+yowx0itgwLUuJLn+7S2D7+dNVMT/iySCwB4dAO
p1IICk0HFC0CeXEUyhPvst+4R8KVF4qS38LalhDU+10ghiBqfc2aNczHKDhr
toEvjl1ioGIAdurUKaj/ODDgjp3ImAceeIA9z40bNyrKRHFxQgQgFXE/TtYJ
LppEAgw8IxenPZIPzDFTQI+jwAzBRqu6gsTIsUSDtQsrZeutt2ZiTpo0qVsx
s8NShhF19913s/eIuzylpX0dUTDgL35B6NY1UaxPMIBQg17DgQAtIEXUARIM
CoR1onV0wn0bPXq04cKU5kWY8zLQl0JJrhlcF6aZwIWpKsujyAALAG4TFoI/
eJR77713pZ6+8LWE+6YzY9gop/cqWdZfma4OZf211tiC28V2wJSQaAr7cWY2
vToxy0CtMEXjnETBKnQL6grC6wuQghmIok5CGYitdFdRWi3qIc2eOnJJ8DY+
vHFlFjwoCZjt6iRV6dUV9pbybktdqxM2texNZ2akWEN2ZmS1hgCpst1227H3
DiIjmoBoTk1NjTchih9xpJEMpvmZQ03KOo3zEGQn7PtVf02tzZqwZPASNBSM
x969e3MkWhgE/SJzMCujmnmoJFBiadCOrpRIMTatbMrAWKVLPD/7MhvIvoS0
UUaakRDYyX79+nHYN5KECOTBfYF0A5I4NGrdcfa3bLd9AczHm+W/l+sh2wF4
kJR4VgtLlL9ZoNmVgRhMmYxyfvS7K5IBBx6pU88999xks46QCEaAWyDJtIhQ
S52vh8sMD2Ez+vfvz05Kgjy0QJZmgeb8dD9XUmSixMLyPIcPoXC8Q21su+22
nIQ00c08ab5EQJTfJgoYKoooKJCkUORilMcQJZCUWaA5WQ5kQqLY2ZbK8eaT
BAGCTcWJRkpLJ+6bkXtV/lPPte7qTm4S5li0QiVLQXhXmdq+fVRlKAfjC1mD
MINwVFEP3SS7j3eTiVkgUTPYnLf8rCRFmma1pYpyCBsHKWflXwrl7PRLXEOA
cps2beJ3HGokeAjl1q5XP4f4f+q51l0dQbksM5BdYO93x4Mvhmoxhu1wmI+Q
wXDC5TpkMzI2/aV2CFAiJjkyL7EyJhHT+HyIbyM2gGCTMv5SuGupL4ps9YYS
mmyikBEWQ1TSV3y+pgBlhBVcDoWk/Niyl00LdkbFOpGbipYR//h0CLJwVnQ8
wLef1X/IQlgK6NHVgaxkUNl2VZmus7NJG92MFXQWRarh9MdRSCaFhYqEMWWd
mkntnNS8ScV7xWEBdijgGJw2Mdnhjgcmd7tcYrH17dsXVjnLCsV42ZZ4WuLk
KFcqaiKPRcwrzK29BLNxYsegR4XGJ9GFeGTOqSvhJA+lYnKw4rJEE00mBjfW
D0TxZxncSRK34vI9U2b3l5inkEKB26BDqcYmVgZeZQh6dIaXK38za+dv+vN5
MX4ivjzCJzbYRfxBqiquExwK5xkFszFd6WORvjIMdukkpxexriDnxV8fuBIt
i4oXgABYNLwa/OHrB0WAJFFtVwqla+6pmtNCorRvFEoRfNESwhGAIUXCUQZb
zNgsjuRu/Knn7iEcIX1TnHGWJuvCTX9GlzdNHt7h1CDVB57NIYCHsWF4yeiQ
ZvUrn3gIf0BqC7ywdI+ad3HUBJBNnjtk6KLHojB9BQ7uRC688EIdz/dFqFzF
uBCluFOBi2LpJKtGMOAfAdt3332LBlbl3qaFUXPgxhAOpjLFo1fPUwjkEEMt
iKIrTDqYqGZ/itSNrk8xXAc0Aq+8FUv4yTY7fCHVupB65OeYDy5cKivpRhSj
NuM+nHDhUO/GoSkKhyRqM+4TiBa1GWFEH2I6FJEkIqab6zMGF0MUMOBDxBgb
RYzC2jPyu4U4rCIs9RCyeVjFpdrKrXrEtwkubAYXOW2cJnV9cNCShCszhdbN
jtAWyYgd4Z5gZDFjQ2RINLZPURvqBskQ+7hHRPDriCSEiwA5bTPWlWhsMSnQ
kqvr+KyOgSX4jiSRreiHQVy5V+UB+Y7i+sTENcmWzra39prrNc3z7nRda/GP
YbwC+fd7kf9ZPwktrV3vb6U+eq6uoTov4UYX9cVRHKA4pbuy8PA4BRkabn8W
l9NAXJos8GFY8HM1CUe6NJEeFvftsFfyX49mDOU=\
\>"]], ",", 
   GraphicsBox[{{}, 
     {Hue[0.6], PointSize[0.016], 
      PointBox[{{1., 0.72}, {2., 0.84}, {3., 0.782608695652174}, {4., 
       0.833333333333333}, {5., 0.833333333333333}, {6., 0.75}, {7., 
       1.}}]}, {}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    AxesOrigin->{0, 0},
    BaseStyle->{FontSize -> 12},
    Epilog->{
      PointSize[0.015], {
       InsetBox[
        FormBox["\"applying\\nDRAW-BODY\"", TraditionalForm], 
        Scaled[{0.9, 0.1}], {1, -1}]}},
    Frame->True,
    FrameLabel->{
      FormBox["\"opportunity\"", TraditionalForm], 
      FormBox["\"fraction\"", TraditionalForm]},
    PlotRange->{All, {0, 1}},
    PlotRangeClipping->True,
    PlotRangePadding->{Automatic, Automatic},
    ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztXAeQFsUS3vvDHRe4444cjyjpQAS01Ocry8BDOTAdYsLSE3mCgEQt8yki
IoKhTBgwoGXGCGYxYsIIYlbEnHMWnTdfb/fc7N78u/uLVvnec6r++3cn9PT0
9HSa/m9U/awJ46fUz5o4rr7r8Bn10yZMHDez67+mztBV6QLP85brz7yuHp6V
fuQ/y5UuujHwVUdfGXXRRRehlzrqqKPUyy+/nHFXD+Dq999/X1VUVKg99thD
/fzzz71sWGn122+/0aCXXnrJyzrqBjIU1D388MPqiy++UEuXLmUoo3kE96a3
rKNuENedcMIJiovXwwcxkgcBeF1dnTr99NPpW7/rAWgrJFDDhw9XCxcuVCed
dJI65JBD1JdffplK0uyGnOJlLV68mIYfd9xx6o033vCry9WoUaPUoEGD1FVX
XUXIgqSdO3dWM2bMUJdffrkqLi5WxxxzjPr222/VxRdfTCCOPfbYlFq3bp1G
SD9SFaBfeuml9HzuueemmAoWdE/qvv/+e1VVVaVWr17t9fQpU0tfRerXX3+l
yR977DFC5tFHH6V3Xe/ZJHjiiSeEuOrUU09VY8eOlfXkaKbnCPCCnL2Vfl0J
1a1atcqALCwsVCtWrKBnvQgZYyPIIKjgWdflamboaUYANG7btq268cYbw9R5
6623qPePP/5II3/44Qd6X79+fU7owFsfCZs6jmZ6jgAfR53weuTdOl4bQR0z
OksABwwYoObOnauuueYa8JKcro2h0pNPPqlSuuSgEjfnQ6W1a9daVIpZV2zz
iy++SFXO5uImo++55x5VUlKiPvvsM/XOO++oJUuWBKlUSkehS5cudARQVq5c
Se+ot3dOn2mzhsMPP1wNHDgw3O43Vwea48Bv2LCBhh999NHqjjvuUB9++GEU
80S+X3DBBQbFm2++2fBzAuaDKJ00aZJs3Lhx42gU3rr56IjMfuSRR9To0aPV
GWecQd/6nSetgLxTLVu2JPl35JFHqu23317169fPLD6i3UvFwu9DIrljx47q
gQceUNXV1WrRokVqwYIFtJrDDjuMRAbkb+vWrc3qILrbtGlj3s855xzC4YYb
biANsOeee6ru3buryy67jNo1EYllpH8YPg4c3qdNm6a++uorKB01dOhQ1dDQ
0N2n1HQm4s4772xkRCX+pmz5arf2DQ589tln1UcffURvLbgOOnjEiBH0lnL0
YxBzuAnVvXr5GttX557TvPhDv2p4Cx966CE1c+ZMIhPIB/1WwYitWbNGFRQU
gDf1OvA3TTqQi5Y5PoNi27bZZhs1e/ZsYoXx48er119/nTpqHf7KK6+QMsYU
l1xySQWPevfdd1VtbS3NfuaZZxIfv/nmm5WM2AsvvKD2228/ajrggAPUvffe
61UxYsuXL6d9h4b1VZA3gJtYMjdupAZ16KGHqqeeesocID0L71WhGjx4MLGo
lGXLloFFWjrACeIg2cknnxwYopdfyc1bbrmleuaZZ6gJchcU03ZdJUMEIoD4
zTffxOOeVr/88os64ogjMMxrw3WPP/64KioqspBKq/r6eiXWaZr/3nTTTWav
WljTZzIZa2wR8SvG/vTTT9T5u+++o3e9hwYPSJj+/fvT8Y9AW/Yc3efPn0+7
p5/t6rffflvtuOOO2O8WvEGognGIwtDM5oHSYBUguffee6uamhpeTJF69dVX
RZiSgXbiiScSX+gFGF65++67SR4ocxidiLfiOvAuxF0jzbJqn332oX7t2rVT
V1xxBbFdJa8Iouj5558XWII1wMCWzWazatNNN4XJYrZAlLGWahojDVTXXXvt
tWarBHP2E+itIJ7LWQdQAYdoQpjtgAaDEIWY0TaAII8hmAULMMj7GiWMDPiw
tLSUfI62XAd+mThxItrCCMKSCCMILQAxiALNobWDOYaw/e+8884A+2kjQGaH
j3TwwQdbjJEmhSN6ryVPAcxPO+00AqNPuZo+fbon59IiMZX77rsPCoYRr2Go
kAX777+/qqys5LVnYdWSTwAWhQrS4sfwBmzRkSNH0qzwazQLGl665ZZbDBGk
P7y8srIy0vf4aMFoCAQVhXN8yimnUL8rr7zSYL/TTjup5s2bm3Hl5eWqR48e
jL1TxLenr2bwm4hYQHH33XfHsSYCfPDBBzBvRJk7unkLg5CGDRtmyAhDFu8o
MCu14BdIjm4CqR19FdEewzjFxqLghOMdpnE6QZ8FQXBYEigNLkXR8tZIsHSC
PoT5PM+Y9AawSJjwIE0sAziqD/uxnmUH+7KZOCRQzdSz66Q793e3ZWLH5TvP
3/3z72/qPAcXIQwBQ8rm5HQ6HeD2qD5/c9H/SX8nF/nSN6t22GEHI1avvvpq
+IEczHO3uaYhnwNhTV9hFwRngIiE6IflBlUAQzkb0ZZ8hv74SqF2jnlKWU3J
gfwZPf/LEPO3qzROsdMz+3B6q+C/ZW3/zQemy1wnAnkqfZeT5eKPHgwWIR74
9GgTFxAOJEy4lStXpniNdrfzzjuPxCTWjTABor1nnXUWTQ1bKcWgX3vtNTVh
wgTyc8StgHuAqPB1110nQcvtttuOzFd/IkVS2J4ObgBIC1MMgU1x5WF0Ipav
p9B12mn2ysg4hR8oJWZ1LInVxx9/TIEWdIMhDie3wrkbSQynDCNo+4xZxxb0
5H4SoGsMVKcp+oYwz4MPPuhJpC4cyIOPjzCMeBy33XYbz11ECxwzZozpe/vt
t5OvOnnyZBPUx6qBM3zvDRs2lPEOyDQCdt26dbRl2HIU+AjYCxtdBDIR0dG0
N3Vxy5L9t69RWkQSPcp0zPKiQh4vTUJkF2rbPptcnFx44YXEhlJCceUDDzxQ
7brrrqb5ueeeU7feeqssCnsPB3PFihVmryZNmqR22203cnkl2gv3GKG4s88+
mwjgE7zExogKwmOeb7hSrBOyQvNQhrFZsmSJ2mqrrcLICtdZawkcFSFxuaFI
HjZ2EQOy3fKQqqS33EQuoUA4ogIhvAk5xKYQgVy8eLHfvVJtu+22FHSAF7bF
FluoTTbZxLAkvrt27QppQ14huBsF8QxII7j2U6ZM8acuAii5cLAnRdz4oIMO
IhmNRcNT9fzovNAafjKHeFy0tpZkaM0+PyIUMewcZWqyHeiMJrjEeW7CZyms
wLEmWYSJTcFnxuFtXEGWGAy3AKBJp06dILs90QPQY4D1+eefI3QGKhMdIUeA
HwrCtDj0pSGaywfxKzAbSv40t1ZjJBl0IQ49LhS19+4W3UUMf86cOcourEfK
ePVR5p0rdJLfbpTQXelmm20WXh49g6I4XpqPZfOgMKEdtXAnqnz66admM3A8
bLGFoAXkHo6GMA5IgvuA8GagHbE8aMVddtmF+oqwWbVqlWwGYso5hU1xk8Xg
ZrN9+/aEtcYUF9k5FKls5/XXX0/XqGinOxbZhygj2BUJIoKRedaLQVv60pzO
r7/+mu6U9bRGvIf1Km54S0tLBUNsCMLqY8eONV7i5ptvbkwaFIh2UG7WrFkB
QaDVLdM991Rat8oQqFas2VaZIOWQIUNojWHV2riyIntlBBqxRqhkzRBmHHSD
1jz0VmbolbJ3JINgHR1zbLVWXxmWF2AkLl4nH57ToMSJhtZDW0NDA1mGCAjj
EsEozaJAN1yzz5s3j7YUBqRQHloB7Y2ZCM3N3dLUqVPJmkB57733qE6u7qFA
YTEiwKeNVc2n7jmhWiA6Gi8BfVWJ+7BGq7KStJ6oGJSYJRocQEn00aalgQ/j
GUJ10aJFejW5T0aGLjBw+4KiBZEQBVZB1D643RjRJ0uXLiXuQYGlq4+8McRw
VZc/ZDENOnToIBLe1y5dDIM18ZxkzP3330+3uGvXrtVNyfgsGguIEtwJK+vM
/z6KCcTzzz/f3Bh2y3N0IbHTJ598Ql2hZ8E6uq5L3oBYLZBS7tu3L5G6rq4u
lsiFZBBBGNx11110FQWpr0W6L2djw9I+czS5PUwechA04AnipgIHGFTB4dUe
jKAR494K9zfVqPnsJawd4dEUcyrsShktgiI+LO666csEbvq8XA69EATaFmYQ
loQPsoFqa2vFBY6Ppbsv7IhSRJSteeuS5cE14+pQHpzcDOEYiDrGlLhk0dh3
MLMx15UxeUCyMFmjPAzBKnSRl3Hs8dY8RVxOXjGDDOXkyVWtaA3tBhtRAfsF
/ineOjp3r5kFFNEFeMf6dJXxEuNt+ibXfa4l/oPx4aXwdjetK+U6O2GwOaMC
cQPbDGktoDSutaCtysvLfTGYkzNx1pEoJQY7HCTt6kRZyIWMiH1D6FrYEPpb
TjQAh0HJwerp2bMn5WoI22BMzlzF0lzNNFQSDbFWvR3O1EGxQqysw8BYrYQ8
P0sxG8hShDTSbr0RHtjaPn36IJwVQ1MEZOAyQAQCU5wnvfgoa1ekln1/2Wjl
DmXA4kEBKGQqnvUSE2U8xjS7cvaCSYZ25mlECprt48BzhKv/9NNPV5vFhOwC
GFQCSaYVJ0Xl0OJDeC5sETxM+AgJsrgCOY4xzU2T5VwphYnS8oqbRH2QmIV3
6JmamhqKQXZGQ05tBtcPMVabSnbOgItKPtdkSQTDIBBzGvIyUYJjTHOyfMKE
JLK9JXiTOG0QONhinHrkbESRqJDELBS1FITetCXvMr98/ikhaw1JdjCZcFjR
R6IVTRIXY/Iag81NVpiVHELTrLdPE0fDCRHHSlcU4tjZiojkgjjwAVFwopE5
EUWcLO29XeALVOPBki9taGrY6DAjIWbhpMF0QdmI5EV/Ga0Dq4zIE2ySYxiR
k2jCQohOwANHTESbfilExDuaBbLMEbWKuA4iV77m8sU71iob5zpNtTzWFpNk
IFDaohgaEv/FWwfnjggO8DPY7fZtXf0XEohDLP5+hnAYwWNty6cZ19kZkDUR
vBD0/USW4KhFrV5mhiGJeyBtRJqZ7WRK98zikYJ3gScKNhnMLza2djSCGLg9
HTGsevfuTamMOLqaV7LGC03kJIgJg9Fsk5tNEPtAKYnlJM7ncSVQ5nslnPD2
L2fSoytU755PzFsQAQDwsczbJPlCUWmMyRERCQ7DneODxhbVdlRyLyk6PZEQ
Inxmm6eQ/4z8QcTpQGp8INz0vpeGoOdOTXKlGmbDeXCYONJh9KOD0lvOKO4A
pU7crPg0l2AeYWHemwKSgAxwMfBBhr4mSZIQuis1MP9gQg6uSBI7dmX3NVrV
TWSLfSDWr19PH/1cnRjl5KkGss9QbZJRKfsMGSuj849hQQx47thcSi1f46sP
ZYA1hIkgcBBbRgzZtxZ90YigUBAzP9tm2Wr9+G//o5/985UTw+OPP95AkTXD
td54yHvttVdiyCCCJgd9oE79pIRMuL515ITdunUjl01br7mJRNSdzOBDC2qV
i/wwo2DymW1MGMMTVQSs9t13X1JFUElIGHCdvX7uZf/Tja6bGhIHsg0LX3O2
iFNm9AwhBgGFEBcKzh3i+Vpou5SIoBzCTVBOtIH5JMXC78L86CvoitTPA78x
kYgkUW7QsvDGcasJ5Qa/CJIRyeCNyi3Hjo42HfLIBRDDDXk2SHtAPVKitdOR
hyRPnpNZSNeiMDCR9A8egb0/ePBg12St3Avt7a6uclf3d2Iclf8n16USUwTG
KPCN9YmNwjTEEb3d1VXu6mhMo9QgPGEE6kQWmGgOCZ7WfwRy/Qy4iEy+P3HD
/rKJg39ZxMTbcPwajSAm+KlCcgnQwe8ZuNKR4IatCVBcP2Xgm6nATLq0ciDQ
MmFdVcJ+jb/1IRYU28GzSOlanX/2ohXM3znm/4P9mwXaWExS3TL6DwBJmCav
381EAYrS7Qvih0cp7NBw+9dnhQzEpT0DP28K/vZLYpUuVcbDon5e6xX8B1fG
T48=\
\>"]], ",", 
   GraphicsBox[{{}, 
     {Hue[0.6], PointSize[0.016], 
      PointBox[{{1., 0.4}, {2., 0.4}, {3., 0.}, {4., 0.666666666666667}, {5., 
       1.}, {6., 1.}}]}, {}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    AxesOrigin->{0, 0},
    BaseStyle->{FontSize -> 12},
    Epilog->{
      PointSize[0.015], {
       InsetBox[
        FormBox["\"applying\\nCOMPO-GENERAL-CASE\"", TraditionalForm], 
        Scaled[{0.9, 0.1}], {1, -1}]}},
    Frame->True,
    FrameLabel->{
      FormBox["\"opportunity\"", TraditionalForm], 
      FormBox["\"fraction\"", TraditionalForm]},
    PlotRange->{All, {0, 1}},
    PlotRangeClipping->True,
    PlotRangePadding->{Automatic, Automatic},
    ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztWweQFEUXntu93Usc+cKPwh1JUYIIlKVlIoMCBsCMpVeIggo/QS1zQFRU
MGfFgDlgBEOZs6KYELMiYs6CWbT//t6819sz2zszK5S/v/VP1d7tdHjdL/RL
/XZU0yETJ0xuOmTS+KbGYdObpk6cNH5G49B/T9dN6RLP8xbqz+xGD9+V/sp/
Fir96M7AvzH0r1RdeumlGKWOOOII9cYbb5S6m3ty88cff6xatGihRo8erX79
9dcuNqy0+uOPP2jS66+/7mUcbb0YCtoef/xx9c0336gFCxYwlLE8g0fTW8bR
1pvbjj/+eMWP18kHMZInAfiYMWPUGWecQf/1u56AviyBGjZsmJo7d6468cQT
1QEHHKC+/fbbVJJuN+QUozVv3jyafswxx6h3333Xb26uRo0apXr37q2uu+46
2ixI2r59ezV9+nR11VVXqYqKCnXUUUep77//Xl122WUE4uijj06p5cuX6w3p
r9QE6FdccQV9P//881NMBQu6J20//vijat26tXrllVe8zj5lRtC/MvX777/T
4k8//TRt5qmnnqJ33e7ZJHj22WeFuOrUU09V48aNE3wKdNP3CPCyOZuVflsl
tT333HMGZDabVQ899BB910jIHHuDDIIefNdthboZepo3ABrX1dWpW2+9NUyd
999/n0b//PPPNPOnn36i9xUrVhSEjn3rI2FTx9FN3yPAx1EnjI+8W8drLahj
ZmcIYM+ePdXJJ5+sbrjhBsiSnK61odLixYtVSj8FqMTdxVBp2bJlFpVi8Irt
fu2116jJ2V2RN/v+++9XlZWV6quvvlIrV65U8+fPD1Kpio5Chw4d6AjgefLJ
J+kd7Tbn9Jk2OBx66KGqV69e4X6/uyHQHQd+zZo1NP3II49U99xzj/r000+j
hCfy/eKLLzZbvP322408JxA+qNKDDjpIGDd+/HiahbdGfzuis5944gk1duxY
deaZZ9J//c6LtoC+U23atCH9d/jhh6uBAweqjTfe2CAf0e+lYuF3I5W83nrr
qUceeUQ1NDSoiy66SM2ZM4ewmTJlCqkM6N+amhqDHVR3bW2teT/vvPNoD7fc
cgtZgF122UV16tRJXXnlldSviUgiI+PD8HHg8D516lT13Xffweiofv36qeOO
O66jT6lpTMTtttvO6IhW+Juy9avd2y048cUXX1SfffYZvbXkNtjg7bffnt5S
jnEMYhZ3oblr16705jsFntO9WKf/ujMLH3vsMTVjxgwiE8gH+9aWN7Z06VJV
UlIC2dR44G+abCA/XmsWULBtq622UjNnziRRmDBhgnrnnXdqqbtUvfnmm2SM
scTll1/elmd9+OGHasSIEbT6WWedRXL83nvv1fDGXn31VbXXXntR1z777KMe
eOABJqbXg/fHWpjeannagQceqJ5//nlzWDRET1bs06cPiaM8CxcuhDjUOcDJ
FJDnpJNOCkzRqNZw9+abb65eeOEF6oKOBXW0D1cSt8+0+u2339Rhhx2GvXrt
uO2ZZ55RZWVl9NaG25qampR4nWn+e9tttxke1PA44FxaWmrNLSM5xNxffvmF
Bv/www/0rnnjRWyxjvkGpXLaaacRB/T3Wqv5gw8+UIMHDwbP2jLh0QQHDw9D
M0wBBcFubGj33XdXPXr0YAqXqbfeeksUIjlZJ5xwAp1pvdmoTf6L2yBrUE85
pmXUHnvsQePq6+vV1VdfTY5YDe8equPll18WWLJDgIHvmclk1CabbAIXwxwD
MZ5aC2kJ1EBL1I033kh7i2V0RlQzPWCwxs0TUsKwQLfh9GvTLHvEFKhP7NPs
0Vf0wnZbjKqqqqzwwGwGxjy8GShiaCI8UN5aQRtRh/t97733BiRF22FZCWHK
fvvtZ/E1TTpfTE8dL4Fdnn766QRGHz41bdo0ObfdeRrO4N57761atWplpmnP
kfxuiBDU/KJFiww/4e+NHDmSwCJ20CLi1TOsO+64w2ApqgORVLNmzcim4qOV
j+mDGcCZOuWUU2jcNddcI9tz6kl/nXIEH4Qu9rDzzjvjDBGKn3zyCXwEsYiO
Yd7cIKQhQ4ZAfmg2vEG844FvprWnQHIME0h1fHTAJXh4YA0eHDG8w79MJxgz
JwgOKIGUkCk8WpEZdZFOOmY25KMkCFiOeHiSJpYBHD8m7Qmf8ZQG21ga8ttS
67ituDXK7TZ6FlLkpfX5/vR97Zf4b6H2V6xRGmjLFyyE93BQbOFOp9OBAxA/
5p8hWH7c4KlFS+n7/wXrzwiWr6MzatCgQUb5Xn/99Qi52Ly6+1xCQ+59iQM4
dChsA3wr2Aq4qJmIvkTAybam0DDLfLO7Es1fd4P+7jvxeVEVZ9bpO4dBWsTy
QyCXiBVgfGLL7wphfBnIBk49PC/klCdOnJhC7Ka3BgcNIYqPHP7W0DB4vXBv
deCrzj77bIrU4G1xREr5FgTYHmc3zjnnHPKQkAXVIRtlbdGHeUih+lutI9i7
7rqrSfNEwbn22msD/RdccAEpZ7AAQT9yt9gb0M95ZVXq7bffBooU3Rx77LFm
PkJKwEdw0blzZ/Xoo496lTwH+0JAAS8TuVR4lfAc99xzT4qG8tdpHVgHMCEW
dmyK/FQCHKvD3E/irfERD0SFWQfL4aPDa7VyE0jlIaeh2c4sT1Mg37dvX7Vq
1SqTgLAvDaRNMnS6z+R0kNRC7kccsDVr1ohyJTFAPgZ7SgIDD/ebPiQIkMOR
uOiuu+4S6SYyQ5yseRgnSyEOQJyAtwpumz17ttpmm21whnibpXQKVqxYIeDl
/kWgI0rTgpRivuCoI1pYvXp1eGGDpIWQ16wQg6N84wzvIRRT09ZIL3lpKBHS
LWC+CMT8+fPVFltsEUAZ8HXoBIEUb4DgSriPtKVQlyNSoQymIuhkYZBmJCBx
P4DAzGKtHc4K+wSCBdzkMffdd1+14447Gml96aWX1J133indEHjE13ILEdib
L6AQZh+hHKotW7ZEGoZJkqHz8+WXX9ormN3ZS2DM559/bna3ZMkSwgaJCsfy
FmK+Gkk7WBwVpZQxIDsj4QPP9JIzjIAY3yGtIpaIxznrg6dMbbvttn6nkSit
OoTR8Dg8Px9EHzDdwkYIAUIi0yKPfQJhzyDwF154Yagva7OcHoYT7gavkNZD
8nbevHlplk+9c1KdUIebbbaZ2mCDDcKS6Ks1G0nof8DUerCclykAR2iAE4tD
hMMCeQstYWtGpoFXUCtHhQcica4UDvetFGnI52za5qw5vNBLjK2RcqEqqQGb
i8KJL774QnXs2FFNmjTJ3IzaXNIAMsrBRfkgeaKpwdJISgXWDPtef/31YR2d
Z76a2yQBhpRceSyMDJkfqJOtt96axsGEhOEbXJuHOcN2T82aNUvZD7s7zXiR
KBfdleYSZrJGpsscCBAyfcIwJLLD2lYuhXIqKEtIY75F/xz5m5FWgHcij8c5
WIh1//79qV8wijh7DMbVDVsFHTN48GBhKnKnWj5g8EjotPqLZCoWxzXyww8/
zHhV09Wb/ThgUjsOIODddNNNhulwb0L0MOtbBMk/iaKAb775ZtqQryT0H+F0
VLzkShsyl1ZrEJVCMDhOgGE5TkAOThKmVFl7gNTmkgO+HNrXb+wfSH4Bd0oW
M8mFbGxsxJk1nLV8qXwQGQPC6jKkw60/ErzKWJM0cR73LePGjTNt1mWrf6R0
G2IMjNNH34yDRyximXLAky1jT+Xl5UYkgN6WW24Z9vpsMBYaPkFTeVwuRTqY
DBAoOmXKlFLyR9NUkSFz2/tbGB6OdXBbaMU6sLN33303DfZFpa168MEH6fIP
4gAXC6sNHTrUxDnQ0ugHaDii8N0R+g0YMIDOFHw89OECQvsWPmZtaBruJdAF
Hxh3U4XAhJdB+AEnFVKKcEN0Dcwn+nPVLhkKLeSmDFuB+9KcGXLfffepgw8+
mCQZa8LJHTFihAucT+tqos7kyZNpe3B+hw8fHkeFfHUsjMNVF/DGo/WtrAvr
HWRcTDAsQr9gwQKSIjy47LDjDNzdFgU0yxPbtWsXtC4NRg7zUgAyRytAiuOW
LVumGVFIHBNuAAoMpQHKOhdFk0iAwUGTO+NOySdm6bTAZ8ADLwgM120NxcBg
80K2bqONNiKyjhkzJpagWQrkYTUhsbiqhIuqrap/RmNvUkTeQrfGiZJgsgPo
YBhcOCKgBZSYFnTZQUweRkTbtprsPXi+86soy8qZVi93MRpon1iIrfDGREhT
LKrwcAUt3/NIcr3juh7O2tfD/sK6n64avP0xRX81XW1562jDjQTfShTYepYM
GGIgkAYfFJJpJVTFO46/QXLfE5M1J94CCX8PNLwVTwqVTtItio9PhsaG+tlL
zautbMlo4GCJRyGpIY1Wf7MNRlvMLigf5k5UKCihXeiyORMhRK0Z0/x6IWCq
R7GAWf0VRu4CpZ8teNMfffQRjczFwGmKi1HEg7cBYSaXWfBgiZYvX45z3IwR
jo+U8m6uudQ0cGilYMFC0lmSKrS3S1KreSvQaZtuuinlLUB3XOoitdm8eXNv
YCHZhUJBFR4fF3LqFy9eHBVPyIm1775dOPn7ak7oQ9RgK2Gnu3TpQoVAIj+Y
U7AQtqpQN02VKlagqTnhrEuVjJZV0hqYq62a55fAZgIlsNB7O+20k1FG4Gq3
bt3IvS9ITjgUiK2gZ7FJnCmNd5TTLhkS+84+lwETR0ciaQCF4sZ3jZ1dDVew
kjam21ULGixetSuaI0ob7Vjs66+/pjzIkiVLhhhkQiof+WaBJMvusMMOps3l
FlTzWuBO9+7dKdRJUB0YqJ2N6c4vwnSVqiYq96zIC19R8Id3mKwePXpQAdcg
dLhsIjxnJOBtAtn1Li4C+QLjpyTha0j1Xy7DHVMzG9OdrEQ1IXXsYliE0Thj
UDPgLs56fX19IepkSaXC0stz7rnnwrlvcBDFl5pKcv9QsglHDEcUY2CyhMl4
N2WwMVWywe485DJSkWq6Nec0XZBAD9LFKn4Vuti1r9pSEV1WrVpF7zjHqBEq
QBc/0WQ/iCGoBNZSKLW0Khx8+KVQqYjEJBJfiypYH4OaAIIRBad5xaoRxa0m
yYffNyDoQyyr3cYU7i8GGASZGna6EZWq6CplVQ5chWeuM9SV59p6kZwnqn8V
V0LKxvHWP8wMWR6RCkf1vvPMNzYw1BjRwbF8F55rX05JVtSuoh3tloBgpCh6
A8cqCmdZFE4jLh5zDmOwFjdvUXFhIaeSdwdXIejikOO2NLC4O1aSKGfDDTek
IlgcUy0cGROzxoU64jJhInvjhupi95Xiq4zk9WuuqtsiihsS3nEXLJx1VXHk
LSV+KlDHXHwsPzVJVVxUZWyiPYhmht/NSUvjVGqvKHlAFF0AS2NoKzPNt9AO
cK2PJCEIjA80l2Z0VQh6RF1dfoGrbhMeKpWwyEFOJPze0ERKMkmbxE8J6rIC
1a1lxbAFRAEhECjggytRTZQkdweu+tWikg8FRCJJNttVnJpzkEmT5+cZ+poB
jvOB6yZ89PdGBxIjeWgo/u8Xxs1VbpN0rggG7J0UC4tgQAULPJeqljVCKBdc
A2rEKzL/h5z/JZdcwm6jr0Gt25viUnYoUJFBgiTi6D8FbLfddlt3wHB/iMBL
O6KF0YymFJwg+GqGuglTemJcsDwqcGBcYGRypR8xOEguwLb2vmFrGWdw6Dt0
DfSIXP3jROAGXKvYRNq+mIJrRDGef1lq1g4p3GSLJbEdsF8IXXFHBduBSAK6
R8+Jsh1JyhnkvhTlZCipQHt1dTWc8mRMS16km6W7F7hi+LUGGAd/uE+fPkWV
VRauy8yaXJjU+CDO05K8zso2EZAhQSSSjVRCTnH/Leog/0Flm+WuX60RsAS/
xkjEc/l1UX4FVEVAseBx/VAjtAj+C8zAwnUJ26wrBmpnO5j7jVGg2YvBxJfa
RBcMAQz+N0rj/75rFLfun/rtSHFLVMQtkVSSivpZUBSgKIs0J356lK0JTbd/
Hif5JJcJCfx6K/jbtTKe5rIMPC3qJ7heyX8AoWA1ig==\
\>"]], ",", 
   GraphicsBox[{{}, 
     {Hue[0.6], PointSize[0.016], 
      PointBox[{{1., 0.28}, {2., 0.56}, {3., 0.76}, {4., 0.782608695652174}, {
       5., 1.}}]}, {}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    AxesOrigin->{0, 0},
    BaseStyle->{FontSize -> 12},
    Epilog->{
      PointSize[0.015], {
       InsetBox[
        FormBox["\"applying\\nDEFINE-CHARGE\"", TraditionalForm], 
        Scaled[{0.9, 0.1}], {1, -1}]}},
    Frame->True,
    FrameLabel->{
      FormBox["\"opportunity\"", TraditionalForm], 
      FormBox["\"fraction\"", TraditionalForm]},
    PlotRange->{All, {0, 1}},
    PlotRangeClipping->True,
    PlotRangePadding->{Automatic, Automatic}], ",", 
   GraphicsBox[{{}, 
     {Hue[0.6], PointSize[0.016], 
      PointBox[{{1., 0.56}, {2., 0.44}, {3., 0.6}, {4., 0.666666666666667}, {
       5., 0.733333333333333}, {6., 0.5}, {7., 1.}, {8., 1.}, {9., 
       0.}}]}, {}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    AxesOrigin->{0, 0},
    BaseStyle->{FontSize -> 12},
    Epilog->{
      PointSize[0.015], {
       InsetBox[
        FormBox["\"applying\\nDRAW-FIELD-GIVEN-DIR\"", TraditionalForm], 
        Scaled[{0.9, 0.1}], {1, -1}]}},
    Frame->True,
    FrameLabel->{
      FormBox["\"opportunity\"", TraditionalForm], 
      FormBox["\"fraction\"", TraditionalForm]},
    PlotRange->{All, {0, 1}},
    PlotRangeClipping->True,
    PlotRangePadding->{Automatic, Automatic}], ",", "Null", ",", 
   GraphicsBox[{{}, 
     {Hue[0.6], PointSize[0.016], 
      PointBox[{{1., 0.65}, {2., 0.65}, {3., 0.5}, {4., 0.636363636363636}, {
       5., 1.}, {6., 0.5}, {7., 0.5}, {8., 1.}, {9., 0.}, {10., 1.}, {11., 
       0.}}]}, {}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    AxesOrigin->{0, 0},
    BaseStyle->{FontSize -> 12},
    Epilog->{
      PointSize[0.015], {
       InsetBox[
        FormBox["\"applying\\nCOMPO-PARALLEL-AXIS\"", TraditionalForm], 
        Scaled[{0.9, 0.1}], {1, -1}]}},
    Frame->True,
    FrameLabel->{
      FormBox["\"opportunity\"", TraditionalForm], 
      FormBox["\"fraction\"", TraditionalForm]},
    PlotRange->{All, {0, 1}},
    PlotRangeClipping->True,
    PlotRangePadding->{Automatic, Automatic}], ",", "Null", ",", "Null", ",", 
   "Null", ",", "Null", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{3.402070255648913*^9, 3.402070297342013*^9, 
  3.402070446682023*^9, 3.402070552349665*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Map", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Length", "[", 
        RowBox[{"timebeforeFNA", "[", 
         RowBox[{"#", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}], ">", "1"}], ",", 
      RowBox[{"Histogram", "[", 
       RowBox[{
        RowBox[{"timebeforeFNA", "[", 
         RowBox[{"#", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "]"}], ",", 
        RowBox[{"PlotLabel", "\[Rule]", 
         RowBox[{"#", "[", 
          RowBox[{"[", "2", "]"}], "]"}]}]}], "]"}], ",", 
      RowBox[{"{", "}"}]}], "]"}], "&"}], ",", 
   RowBox[{"Sort", "[", 
    RowBox[{"Map", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"N", "[", 
          RowBox[{"Mean", "[", 
           RowBox[{"timebeforeFNA", "[", "#", "]"}], "]"}], "]"}], ",", "#"}],
         "}"}], "&"}], ",", "operators"}], "]"}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.402070401694099*^9, 3.402070406116932*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   GraphicsBox[{
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{0., 0}, {50., 14}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{50., 0}, {100., 0}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{100., 0}, {150., 0}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{150., 0}, {200., 1}]}},
    AlignmentPoint->Center,
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->None,
    AxesOrigin->{0., 0},
    AxesStyle->{},
    Background->None,
    BaseStyle->{},
    BaselinePosition->Automatic,
    ColorOutput->Automatic,
    ContentSelectable->Automatic,
    DisplayFunction:>$DisplayFunction,
    Epilog->{},
    FormatType:>TraditionalForm,
    Frame->False,
    FrameLabel->None,
    FrameStyle->{},
    FrameTicks->Automatic,
    FrameTicksStyle->{},
    GridLines->None,
    GridLinesStyle->{},
    ImageMargins->0.,
    ImagePadding->All,
    ImageSize->Automatic,
    LabelStyle->{},
    Method->Automatic,
    PlotLabel->FormBox["\"WRITE-IMPLICIT-EQN\"", TraditionalForm],
    PlotRange->{{0., 200.}, All},
    PlotRangeClipping->True,
    PlotRangePadding->{
      Scaled[0.02], 
      Scaled[0.02]},
    PlotRegion->Automatic,
    PreserveImageOptions->Automatic,
    Prolog->{},
    RotateLabel->True,
    Ticks->{{{0., 
        FormBox["0", TraditionalForm]}, {50., 
        FormBox["50", TraditionalForm]}, {100., 
        FormBox["100", TraditionalForm]}, {150., 
        FormBox["150", TraditionalForm]}, {200., 
        FormBox["200", TraditionalForm]}}, Automatic},
    TicksStyle->{}], ",", 
   GraphicsBox[{
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{10., 0}, {20., 1}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{20., 0}, {30., 0}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{30., 0}, {40., 1}]}},
    AlignmentPoint->Center,
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->None,
    AxesOrigin->{10., 0},
    AxesStyle->{},
    Background->None,
    BaseStyle->{},
    BaselinePosition->Automatic,
    ColorOutput->Automatic,
    ContentSelectable->Automatic,
    DisplayFunction:>$DisplayFunction,
    Epilog->{},
    FormatType:>TraditionalForm,
    Frame->False,
    FrameLabel->None,
    FrameStyle->{},
    FrameTicks->Automatic,
    FrameTicksStyle->{},
    GridLines->None,
    GridLinesStyle->{},
    ImageMargins->0.,
    ImagePadding->All,
    ImageSize->Automatic,
    LabelStyle->{},
    Method->Automatic,
    PlotLabel->FormBox["\"WRITE-NSL-NET-COMPO\"", TraditionalForm],
    PlotRange->{{10., 40.}, All},
    PlotRangeClipping->True,
    PlotRangePadding->{
      Scaled[0.02], 
      Scaled[0.02]},
    PlotRegion->Automatic,
    PreserveImageOptions->Automatic,
    Prolog->{},
    RotateLabel->True,
    Ticks->{{{10., 
        FormBox["10", TraditionalForm]}, {15., 
        FormBox["15", TraditionalForm]}, {20., 
        FormBox["20", TraditionalForm]}, {25., 
        FormBox["25", TraditionalForm]}, {30., 
        FormBox["30", TraditionalForm]}, {35., 
        FormBox["35", TraditionalForm]}, {40., 
        FormBox["40", TraditionalForm]}}, Automatic},
    TicksStyle->{}], ",", 
   GraphicsBox[{
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{0., 0}, {20., 9}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{20., 0}, {40., 2}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{40., 0}, {60., 3}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{60., 0}, {80., 2}]}},
    AlignmentPoint->Center,
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->None,
    AxesOrigin->{0., 0},
    AxesStyle->{},
    Background->None,
    BaseStyle->{},
    BaselinePosition->Automatic,
    ColorOutput->Automatic,
    ContentSelectable->Automatic,
    DisplayFunction:>$DisplayFunction,
    Epilog->{},
    FormatType:>TraditionalForm,
    Frame->False,
    FrameLabel->None,
    FrameStyle->{},
    FrameTicks->Automatic,
    FrameTicksStyle->{},
    GridLines->None,
    GridLinesStyle->{},
    ImageMargins->0.,
    ImagePadding->All,
    ImageSize->Automatic,
    LabelStyle->{},
    Method->Automatic,
    PlotLabel->FormBox["\"COMPO-ZERO-VECTOR\"", TraditionalForm],
    PlotRange->{{0., 80.}, All},
    PlotRangeClipping->True,
    PlotRangePadding->{
      Scaled[0.02], 
      Scaled[0.02]},
    PlotRegion->Automatic,
    PreserveImageOptions->Automatic,
    Prolog->{},
    RotateLabel->True,
    Ticks->{{{0., 
        FormBox["0", TraditionalForm]}, {20., 
        FormBox["20", TraditionalForm]}, {40., 
        FormBox["40", TraditionalForm]}, {60., 
        FormBox["60", TraditionalForm]}, {80., 
        FormBox["80", TraditionalForm]}}, Automatic},
    TicksStyle->{}], ",", 
   GraphicsBox[{
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{0., 0}, {20., 8}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{20., 0}, {40., 1}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{40., 0}, {60., 3}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{60., 0}, {80., 2}]}},
    AlignmentPoint->Center,
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->None,
    AxesOrigin->{0., 0},
    AxesStyle->{},
    Background->None,
    BaseStyle->{},
    BaselinePosition->Automatic,
    ColorOutput->Automatic,
    ContentSelectable->Automatic,
    DisplayFunction:>$DisplayFunction,
    Epilog->{},
    FormatType:>TraditionalForm,
    Frame->False,
    FrameLabel->None,
    FrameStyle->{},
    FrameTicks->Automatic,
    FrameTicksStyle->{},
    GridLines->None,
    GridLinesStyle->{},
    ImageMargins->0.,
    ImagePadding->All,
    ImageSize->Automatic,
    LabelStyle->{},
    Method->Automatic,
    PlotLabel->FormBox["\"WRITE-NET-FORCE-COMPO\"", TraditionalForm],
    PlotRange->{{0., 80.}, All},
    PlotRangeClipping->True,
    PlotRangePadding->{
      Scaled[0.02], 
      Scaled[0.02]},
    PlotRegion->Automatic,
    PreserveImageOptions->Automatic,
    Prolog->{},
    RotateLabel->True,
    Ticks->{{{0., 
        FormBox["0", TraditionalForm]}, {20., 
        FormBox["20", TraditionalForm]}, {40., 
        FormBox["40", TraditionalForm]}, {60., 
        FormBox["60", TraditionalForm]}, {80., 
        FormBox["80", TraditionalForm]}}, Automatic},
    TicksStyle->{}], ",", 
   GraphicsBox[{
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{0., 0}, {20., 5}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{20., 0}, {40., 6}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{40., 0}, {60., 6}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{60., 0}, {80., 0}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{80., 0}, {100., 1}]}},
    AlignmentPoint->Center,
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->None,
    AxesOrigin->{0., 0},
    AxesStyle->{},
    Background->None,
    BaseStyle->{},
    BaselinePosition->Automatic,
    ColorOutput->Automatic,
    ContentSelectable->Automatic,
    DisplayFunction:>$DisplayFunction,
    Epilog->{},
    FormatType:>TraditionalForm,
    Frame->False,
    FrameLabel->None,
    FrameStyle->{},
    FrameTicks->Automatic,
    FrameTicksStyle->{},
    GridLines->None,
    GridLinesStyle->{},
    ImageMargins->0.,
    ImagePadding->All,
    ImageSize->Automatic,
    LabelStyle->{},
    Method->Automatic,
    PlotLabel->FormBox["\"DRAW-COMPO-FORM-AXES\"", TraditionalForm],
    PlotRange->{{0., 100.}, All},
    PlotRangeClipping->True,
    PlotRangePadding->{
      Scaled[0.02], 
      Scaled[0.02]},
    PlotRegion->Automatic,
    PreserveImageOptions->Automatic,
    Prolog->{},
    RotateLabel->True,
    Ticks->{{{0., 
        FormBox["0", TraditionalForm]}, {20., 
        FormBox["20", TraditionalForm]}, {40., 
        FormBox["40", TraditionalForm]}, {60., 
        FormBox["60", TraditionalForm]}, {80., 
        FormBox["80", TraditionalForm]}, {100., 
        FormBox["100", TraditionalForm]}}, Automatic},
    TicksStyle->{}], ",", 
   RowBox[{"{", "}"}], ",", 
   GraphicsBox[{
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{0., 0}, {20., 5}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{20., 0}, {40., 10}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{40., 0}, {60., 5}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{60., 0}, {80., 2}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{80., 0}, {100., 0}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{100., 0}, {120., 2}]}},
    AlignmentPoint->Center,
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->None,
    AxesOrigin->{0., 0},
    AxesStyle->{},
    Background->None,
    BaseStyle->{},
    BaselinePosition->Automatic,
    ColorOutput->Automatic,
    ContentSelectable->Automatic,
    DisplayFunction:>$DisplayFunction,
    Epilog->{},
    FormatType:>TraditionalForm,
    Frame->False,
    FrameLabel->None,
    FrameStyle->{},
    FrameTicks->Automatic,
    FrameTicksStyle->{},
    GridLines->None,
    GridLinesStyle->{},
    ImageMargins->0.,
    ImagePadding->All,
    ImageSize->Automatic,
    LabelStyle->{},
    Method->Automatic,
    PlotLabel->FormBox["\"DEFINE-MASS\"", TraditionalForm],
    PlotRange->{{0., 120.}, All},
    PlotRangeClipping->True,
    PlotRangePadding->{
      Scaled[0.02], 
      Scaled[0.02]},
    PlotRegion->Automatic,
    PreserveImageOptions->Automatic,
    Prolog->{},
    RotateLabel->True,
    Ticks->{{{0., 
        FormBox["0", TraditionalForm]}, {20., 
        FormBox["20", TraditionalForm]}, {40., 
        FormBox["40", TraditionalForm]}, {60., 
        FormBox["60", TraditionalForm]}, {80., 
        FormBox["80", TraditionalForm]}, {100., 
        FormBox["100", TraditionalForm]}, {120., 
        FormBox["120", TraditionalForm]}}, Automatic},
    TicksStyle->{}], ",", 
   RowBox[{"{", "}"}], ",", 
   GraphicsBox[{
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{0., 0}, {50., 7}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{50., 0}, {100., 1}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{100., 0}, {150., 1}]}},
    AlignmentPoint->Center,
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->None,
    AxesOrigin->{0., 0},
    AxesStyle->{},
    Background->None,
    BaseStyle->{},
    BaselinePosition->Automatic,
    ColorOutput->Automatic,
    ContentSelectable->Automatic,
    DisplayFunction:>$DisplayFunction,
    Epilog->{},
    FormatType:>TraditionalForm,
    Frame->False,
    FrameLabel->None,
    FrameStyle->{},
    FrameTicks->Automatic,
    FrameTicksStyle->{},
    GridLines->None,
    GridLinesStyle->{},
    ImageMargins->0.,
    ImagePadding->All,
    ImageSize->Automatic,
    LabelStyle->{},
    Method->Automatic,
    PlotLabel->FormBox["\"DRAW-ACCEL-SLOW-DOWN\"", TraditionalForm],
    PlotRange->{{0., 150.}, All},
    PlotRangeClipping->True,
    PlotRangePadding->{
      Scaled[0.02], 
      Scaled[0.02]},
    PlotRegion->Automatic,
    PreserveImageOptions->Automatic,
    Prolog->{},
    RotateLabel->True,
    Ticks->{{{0., 
        FormBox["0", TraditionalForm]}, {25., 
        FormBox["25", TraditionalForm]}, {50., 
        FormBox["50", TraditionalForm]}, {75., 
        FormBox["75", TraditionalForm]}, {100., 
        FormBox["100", TraditionalForm]}, {125., 
        FormBox["125", TraditionalForm]}, {150., 
        FormBox["150", TraditionalForm]}}, Automatic},
    TicksStyle->{}], ",", 
   GraphicsBox[{
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{0., 0}, {100., 14}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{100., 0}, {200., 1}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{200., 0}, {300., 0}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{300., 0}, {400., 1}]}},
    AlignmentPoint->Center,
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->None,
    AxesOrigin->{0., 0},
    AxesStyle->{},
    Background->None,
    BaseStyle->{},
    BaselinePosition->Automatic,
    ColorOutput->Automatic,
    ContentSelectable->Automatic,
    DisplayFunction:>$DisplayFunction,
    Epilog->{},
    FormatType:>TraditionalForm,
    Frame->False,
    FrameLabel->None,
    FrameStyle->{},
    FrameTicks->Automatic,
    FrameTicksStyle->{},
    GridLines->None,
    GridLinesStyle->{},
    ImageMargins->0.,
    ImagePadding->All,
    ImageSize->Automatic,
    LabelStyle->{},
    Method->Automatic,
    PlotLabel->FormBox["\"COMPO-PARALLEL-AXIS\"", TraditionalForm],
    PlotRange->{{0., 400.}, All},
    PlotRangeClipping->True,
    PlotRangePadding->{
      Scaled[0.02], 
      Scaled[0.02]},
    PlotRegion->Automatic,
    PreserveImageOptions->Automatic,
    Prolog->{},
    RotateLabel->True,
    Ticks->{{{0., 
        FormBox["0", TraditionalForm]}, {100., 
        FormBox["100", TraditionalForm]}, {200., 
        FormBox["200", TraditionalForm]}, {300., 
        FormBox["300", TraditionalForm]}, {400., 
        FormBox["400", TraditionalForm]}}, Automatic},
    TicksStyle->{}], ",", 
   GraphicsBox[{
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{0., 0}, {50., 5}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{50., 0}, {100., 2}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{100., 0}, {150., 0}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{150., 0}, {200., 1}]}},
    AlignmentPoint->Center,
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->None,
    AxesOrigin->{0., 0},
    AxesStyle->{},
    Background->None,
    BaseStyle->{},
    BaselinePosition->Automatic,
    ColorOutput->Automatic,
    ContentSelectable->Automatic,
    DisplayFunction:>$DisplayFunction,
    Epilog->{},
    FormatType:>TraditionalForm,
    Frame->False,
    FrameLabel->None,
    FrameStyle->{},
    FrameTicks->Automatic,
    FrameTicksStyle->{},
    GridLines->None,
    GridLinesStyle->{},
    ImageMargins->0.,
    ImagePadding->All,
    ImageSize->Automatic,
    LabelStyle->{},
    Method->Automatic,
    PlotLabel->FormBox["\"DRAW-NET-FORCE-FROM-ACCEL\"", TraditionalForm],
    PlotRange->{{0., 200.}, All},
    PlotRangeClipping->True,
    PlotRangePadding->{
      Scaled[0.02], 
      Scaled[0.02]},
    PlotRegion->Automatic,
    PreserveImageOptions->Automatic,
    Prolog->{},
    RotateLabel->True,
    Ticks->{{{0., 
        FormBox["0", TraditionalForm]}, {50., 
        FormBox["50", TraditionalForm]}, {100., 
        FormBox["100", TraditionalForm]}, {150., 
        FormBox["150", TraditionalForm]}, {200., 
        FormBox["200", TraditionalForm]}}, Automatic},
    TicksStyle->{}], ",", 
   GraphicsBox[{
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{0., 0}, {50., 16}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{50., 0}, {100., 6}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{100., 0}, {150., 1}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{150., 0}, {200., 0}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{200., 0}, {250., 1}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{250., 0}, {300., 1}]}},
    AlignmentPoint->Center,
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->None,
    AxesOrigin->{0., 0},
    AxesStyle->{},
    Background->None,
    BaseStyle->{},
    BaselinePosition->Automatic,
    ColorOutput->Automatic,
    ContentSelectable->Automatic,
    DisplayFunction:>$DisplayFunction,
    Epilog->{},
    FormatType:>TraditionalForm,
    Frame->False,
    FrameLabel->None,
    FrameStyle->{},
    FrameTicks->Automatic,
    FrameTicksStyle->{},
    GridLines->None,
    GridLinesStyle->{},
    ImageMargins->0.,
    ImagePadding->All,
    ImageSize->Automatic,
    LabelStyle->{},
    Method->Automatic,
    PlotLabel->FormBox["\"WRITE-KNOWN-VALUE-EQN\"", TraditionalForm],
    PlotRange->{{0., 300.}, All},
    PlotRangeClipping->True,
    PlotRangePadding->{
      Scaled[0.02], 
      Scaled[0.02]},
    PlotRegion->Automatic,
    PreserveImageOptions->Automatic,
    Prolog->{},
    RotateLabel->True,
    Ticks->{{{0., 
        FormBox["0", TraditionalForm]}, {50., 
        FormBox["50", TraditionalForm]}, {100., 
        FormBox["100", TraditionalForm]}, {150., 
        FormBox["150", TraditionalForm]}, {200., 
        FormBox["200", TraditionalForm]}, {250., 
        FormBox["250", TraditionalForm]}, {300., 
        FormBox["300", TraditionalForm]}}, Automatic},
    TicksStyle->{}], ",", 
   GraphicsBox[{
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{0., 0}, {50., 6}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{50., 0}, {100., 4}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{100., 0}, {150., 1}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{150., 0}, {200., 0}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{200., 0}, {250., 1}]}},
    AlignmentPoint->Center,
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->None,
    AxesOrigin->{0., 0},
    AxesStyle->{},
    Background->None,
    BaseStyle->{},
    BaselinePosition->Automatic,
    ColorOutput->Automatic,
    ContentSelectable->Automatic,
    DisplayFunction:>$DisplayFunction,
    Epilog->{},
    FormatType:>TraditionalForm,
    Frame->False,
    FrameLabel->None,
    FrameStyle->{},
    FrameTicks->Automatic,
    FrameTicksStyle->{},
    GridLines->None,
    GridLinesStyle->{},
    ImageMargins->0.,
    ImagePadding->All,
    ImageSize->Automatic,
    LabelStyle->{},
    Method->Automatic,
    PlotLabel->FormBox["\"DRAW-ACCEL-SPEED-UP\"", TraditionalForm],
    PlotRange->{{0., 250.}, All},
    PlotRangeClipping->True,
    PlotRangePadding->{
      Scaled[0.02], 
      Scaled[0.02]},
    PlotRegion->Automatic,
    PreserveImageOptions->Automatic,
    Prolog->{},
    RotateLabel->True,
    Ticks->{{{0., 
        FormBox["0", TraditionalForm]}, {50., 
        FormBox["50", TraditionalForm]}, {100., 
        FormBox["100", TraditionalForm]}, {150., 
        FormBox["150", TraditionalForm]}, {200., 
        FormBox["200", TraditionalForm]}, {250., 
        FormBox["250", TraditionalForm]}}, Automatic},
    TicksStyle->{}], ",", 
   GraphicsBox[{
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{0., 0}, {50., 8}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{50., 0}, {100., 6}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{100., 0}, {150., 0}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{150., 0}, {200., 0}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{200., 0}, {250., 0}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{250., 0}, {300., 2}]}},
    AlignmentPoint->Center,
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->None,
    AxesOrigin->{0., 0},
    AxesStyle->{},
    Background->None,
    BaseStyle->{},
    BaselinePosition->Automatic,
    ColorOutput->Automatic,
    ContentSelectable->Automatic,
    DisplayFunction:>$DisplayFunction,
    Epilog->{},
    FormatType:>TraditionalForm,
    Frame->False,
    FrameLabel->None,
    FrameStyle->{},
    FrameTicks->Automatic,
    FrameTicksStyle->{},
    GridLines->None,
    GridLinesStyle->{},
    ImageMargins->0.,
    ImagePadding->All,
    ImageSize->Automatic,
    LabelStyle->{},
    Method->Automatic,
    PlotLabel->FormBox["\"WT-LAW\"", TraditionalForm],
    PlotRange->{{0., 300.}, All},
    PlotRangeClipping->True,
    PlotRangePadding->{
      Scaled[0.02], 
      Scaled[0.02]},
    PlotRegion->Automatic,
    PreserveImageOptions->Automatic,
    Prolog->{},
    RotateLabel->True,
    Ticks->{{{0., 
        FormBox["0", TraditionalForm]}, {50., 
        FormBox["50", TraditionalForm]}, {100., 
        FormBox["100", TraditionalForm]}, {150., 
        FormBox["150", TraditionalForm]}, {200., 
        FormBox["200", TraditionalForm]}, {250., 
        FormBox["250", TraditionalForm]}, {300., 
        FormBox["300", TraditionalForm]}}, Automatic},
    TicksStyle->{}], ",", 
   GraphicsBox[{
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{0., 0}, {50., 3}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{50., 0}, {100., 0}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{100., 0}, {150., 1}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{150., 0}, {200., 1}]}},
    AlignmentPoint->Center,
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->None,
    AxesOrigin->{0., 0},
    AxesStyle->{},
    Background->None,
    BaseStyle->{},
    BaselinePosition->Automatic,
    ColorOutput->Automatic,
    ContentSelectable->Automatic,
    DisplayFunction:>$DisplayFunction,
    Epilog->{},
    FormatType:>TraditionalForm,
    Frame->False,
    FrameLabel->None,
    FrameStyle->{},
    FrameTicks->Automatic,
    FrameTicksStyle->{},
    GridLines->None,
    GridLinesStyle->{},
    ImageMargins->0.,
    ImagePadding->All,
    ImageSize->Automatic,
    LabelStyle->{},
    Method->Automatic,
    PlotLabel->FormBox[
     "\"WRITE-CHARGE-FORCE-EFIELD-COMPO\"", TraditionalForm],
    PlotRange->{{0., 200.}, All},
    PlotRangeClipping->True,
    PlotRangePadding->{
      Scaled[0.02], 
      Scaled[0.02]},
    PlotRegion->Automatic,
    PreserveImageOptions->Automatic,
    Prolog->{},
    RotateLabel->True,
    Ticks->{{{0., 
        FormBox["0", TraditionalForm]}, {50., 
        FormBox["50", TraditionalForm]}, {100., 
        FormBox["100", TraditionalForm]}, {150., 
        FormBox["150", TraditionalForm]}, {200., 
        FormBox["200", TraditionalForm]}}, Automatic},
    TicksStyle->{}], ",", 
   GraphicsBox[{
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{0., 0}, {25., 1}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{25., 0}, {50., 7}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{50., 0}, {75., 4}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{75., 0}, {100., 2}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{100., 0}, {125., 2}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{125., 0}, {150., 0}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{150., 0}, {175., 3}]}},
    AlignmentPoint->Center,
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->None,
    AxesOrigin->{0., 0},
    AxesStyle->{},
    Background->None,
    BaseStyle->{},
    BaselinePosition->Automatic,
    ColorOutput->Automatic,
    ContentSelectable->Automatic,
    DisplayFunction:>$DisplayFunction,
    Epilog->{},
    FormatType:>TraditionalForm,
    Frame->False,
    FrameLabel->None,
    FrameStyle->{},
    FrameTicks->Automatic,
    FrameTicksStyle->{},
    GridLines->None,
    GridLinesStyle->{},
    ImageMargins->0.,
    ImagePadding->All,
    ImageSize->Automatic,
    LabelStyle->{},
    Method->Automatic,
    PlotLabel->FormBox["\"DRAW-WEIGHT\"", TraditionalForm],
    PlotRange->{{0., 175.}, All},
    PlotRangeClipping->True,
    PlotRangePadding->{
      Scaled[0.02], 
      Scaled[0.02]},
    PlotRegion->Automatic,
    PreserveImageOptions->Automatic,
    Prolog->{},
    RotateLabel->True,
    Ticks->{{{0., 
        FormBox["0", TraditionalForm]}, {25., 
        FormBox["25", TraditionalForm]}, {50., 
        FormBox["50", TraditionalForm]}, {75., 
        FormBox["75", TraditionalForm]}, {100., 
        FormBox["100", TraditionalForm]}, {125., 
        FormBox["125", TraditionalForm]}, {150., 
        FormBox["150", TraditionalForm]}, {175., 
        FormBox["175", TraditionalForm]}}, Automatic},
    TicksStyle->{}], ",", 
   GraphicsBox[{
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{0., 0}, {25., 3}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{25., 0}, {50., 5}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{50., 0}, {75., 4}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{75., 0}, {100., 2}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{100., 0}, {125., 6}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{125., 0}, {150., 3}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{150., 0}, {175., 0}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{175., 0}, {200., 1}]}},
    AlignmentPoint->Center,
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->None,
    AxesOrigin->{0., 0},
    AxesStyle->{},
    Background->None,
    BaseStyle->{},
    BaselinePosition->Automatic,
    ColorOutput->Automatic,
    ContentSelectable->Automatic,
    DisplayFunction:>$DisplayFunction,
    Epilog->{},
    FormatType:>TraditionalForm,
    Frame->False,
    FrameLabel->None,
    FrameStyle->{},
    FrameTicks->Automatic,
    FrameTicksStyle->{},
    GridLines->None,
    GridLinesStyle->{},
    ImageMargins->0.,
    ImagePadding->All,
    ImageSize->Automatic,
    LabelStyle->{},
    Method->Automatic,
    PlotLabel->FormBox["\"DRAW-UNROTATED-AXES\"", TraditionalForm],
    PlotRange->{{0., 200.}, All},
    PlotRangeClipping->True,
    PlotRangePadding->{
      Scaled[0.02], 
      Scaled[0.02]},
    PlotRegion->Automatic,
    PreserveImageOptions->Automatic,
    Prolog->{},
    RotateLabel->True,
    Ticks->{{{0., 
        FormBox["0", TraditionalForm]}, {50., 
        FormBox["50", TraditionalForm]}, {100., 
        FormBox["100", TraditionalForm]}, {150., 
        FormBox["150", TraditionalForm]}, {200., 
        FormBox["200", TraditionalForm]}}, Automatic},
    TicksStyle->{}], ",", 
   GraphicsBox[{
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{0., 0}, {50., 12}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{50., 0}, {100., 5}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{100., 0}, {150., 0}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{150., 0}, {200., 1}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{200., 0}, {250., 0}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{250., 0}, {300., 3}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{300., 0}, {350., 1}]}},
    AlignmentPoint->Center,
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->None,
    AxesOrigin->{0., 0},
    AxesStyle->{},
    Background->None,
    BaseStyle->{},
    BaselinePosition->Automatic,
    ColorOutput->Automatic,
    ContentSelectable->Automatic,
    DisplayFunction:>$DisplayFunction,
    Epilog->{},
    FormatType:>TraditionalForm,
    Frame->False,
    FrameLabel->None,
    FrameStyle->{},
    FrameTicks->Automatic,
    FrameTicksStyle->{},
    GridLines->None,
    GridLinesStyle->{},
    ImageMargins->0.,
    ImagePadding->All,
    ImageSize->Automatic,
    LabelStyle->{},
    Method->Automatic,
    PlotLabel->FormBox["\"DRAW-VELOCITY-STRAIGHT\"", TraditionalForm],
    PlotRange->{{0., 350.}, All},
    PlotRangeClipping->True,
    PlotRangePadding->{
      Scaled[0.02], 
      Scaled[0.02]},
    PlotRegion->Automatic,
    PreserveImageOptions->Automatic,
    Prolog->{},
    RotateLabel->True,
    Ticks->{{{0., 
        FormBox["0", TraditionalForm]}, {50., 
        FormBox["50", TraditionalForm]}, {100., 
        FormBox["100", TraditionalForm]}, {150., 
        FormBox["150", TraditionalForm]}, {200., 
        FormBox["200", TraditionalForm]}, {250., 
        FormBox["250", TraditionalForm]}, {300., 
        FormBox["300", TraditionalForm]}, {350., 
        FormBox["350", TraditionalForm]}}, Automatic},
    TicksStyle->{}], ",", 
   GraphicsBox[{
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{0., 0}, {100., 13}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{100., 0}, {200., 5}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{200., 0}, {300., 1}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{300., 0}, {400., 0}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{400., 0}, {500., 1}]}},
    AlignmentPoint->Center,
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->None,
    AxesOrigin->{0., 0},
    AxesStyle->{},
    Background->None,
    BaseStyle->{},
    BaselinePosition->Automatic,
    ColorOutput->Automatic,
    ContentSelectable->Automatic,
    DisplayFunction:>$DisplayFunction,
    Epilog->{},
    FormatType:>TraditionalForm,
    Frame->False,
    FrameLabel->None,
    FrameStyle->{},
    FrameTicks->Automatic,
    FrameTicksStyle->{},
    GridLines->None,
    GridLinesStyle->{},
    ImageMargins->0.,
    ImagePadding->All,
    ImageSize->Automatic,
    LabelStyle->{},
    Method->Automatic,
    PlotLabel->FormBox[
     "\"DRAW-VELOCITY-MOMENTARILY-AT-REST\"", TraditionalForm],
    PlotRange->{{0., 500.}, All},
    PlotRangeClipping->True,
    PlotRangePadding->{
      Scaled[0.02], 
      Scaled[0.02]},
    PlotRegion->Automatic,
    PreserveImageOptions->Automatic,
    Prolog->{},
    RotateLabel->True,
    Ticks->{{{0., 
        FormBox["0", TraditionalForm]}, {100., 
        FormBox["100", TraditionalForm]}, {200., 
        FormBox["200", TraditionalForm]}, {300., 
        FormBox["300", TraditionalForm]}, {400., 
        FormBox["400", TraditionalForm]}, {500., 
        FormBox["500", TraditionalForm]}}, Automatic},
    TicksStyle->{}], ",", 
   GraphicsBox[{
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{0., 0}, {100., 1}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{100., 0}, {200., 1}]}},
    AlignmentPoint->Center,
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->None,
    AxesOrigin->{0., 0},
    AxesStyle->{},
    Background->None,
    BaseStyle->{},
    BaselinePosition->Automatic,
    ColorOutput->Automatic,
    ContentSelectable->Automatic,
    DisplayFunction:>$DisplayFunction,
    Epilog->{},
    FormatType:>TraditionalForm,
    Frame->False,
    FrameLabel->None,
    FrameStyle->{},
    FrameTicks->Automatic,
    FrameTicksStyle->{},
    GridLines->None,
    GridLinesStyle->{},
    ImageMargins->0.,
    ImagePadding->All,
    ImageSize->Automatic,
    LabelStyle->{},
    Method->Automatic,
    PlotLabel->FormBox["\"WRITE-VECTOR-MAGNITUDE\"", TraditionalForm],
    PlotRange->{{0., 200.}, All},
    PlotRangeClipping->True,
    PlotRangePadding->{
      Scaled[0.02], 
      Scaled[0.02]},
    PlotRegion->Automatic,
    PreserveImageOptions->Automatic,
    Prolog->{},
    RotateLabel->True,
    Ticks->{{{0., 
        FormBox["0", TraditionalForm]}, {50., 
        FormBox["50", TraditionalForm]}, {100., 
        FormBox["100", TraditionalForm]}, {150., 
        FormBox["150", TraditionalForm]}, {200., 
        FormBox["200", TraditionalForm]}}, Automatic},
    TicksStyle->{}], ",", 
   GraphicsBox[{
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{0., 0}, {100., 1}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{100., 0}, {200., 2}]}},
    AlignmentPoint->Center,
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->None,
    AxesOrigin->{0., 0},
    AxesStyle->{},
    Background->None,
    BaseStyle->{},
    BaselinePosition->Automatic,
    ColorOutput->Automatic,
    ContentSelectable->Automatic,
    DisplayFunction:>$DisplayFunction,
    Epilog->{},
    FormatType:>TraditionalForm,
    Frame->False,
    FrameLabel->None,
    FrameStyle->{},
    FrameTicks->Automatic,
    FrameTicksStyle->{},
    GridLines->None,
    GridLinesStyle->{},
    ImageMargins->0.,
    ImagePadding->All,
    ImageSize->Automatic,
    LabelStyle->{},
    Method->Automatic,
    PlotLabel->FormBox["\"WRITE-G-ON-EARTH\"", TraditionalForm],
    PlotRange->{{0., 200.}, All},
    PlotRangeClipping->True,
    PlotRangePadding->{
      Scaled[0.02], 
      Scaled[0.02]},
    PlotRegion->Automatic,
    PreserveImageOptions->Automatic,
    Prolog->{},
    RotateLabel->True,
    Ticks->{{{0., 
        FormBox["0", TraditionalForm]}, {50., 
        FormBox["50", TraditionalForm]}, {100., 
        FormBox["100", TraditionalForm]}, {150., 
        FormBox["150", TraditionalForm]}, {200., 
        FormBox["200", TraditionalForm]}}, Automatic},
    TicksStyle->{}], ",", 
   GraphicsBox[{
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{0., 0}, {100., 12}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{100., 0}, {200., 6}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{200., 0}, {300., 0}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{300., 0}, {400., 0}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{400., 0}, {500., 1}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{500., 0}, {600., 1}]}},
    AlignmentPoint->Center,
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->None,
    AxesOrigin->{0., 0},
    AxesStyle->{},
    Background->None,
    BaseStyle->{},
    BaselinePosition->Automatic,
    ColorOutput->Automatic,
    ContentSelectable->Automatic,
    DisplayFunction:>$DisplayFunction,
    Epilog->{},
    FormatType:>TraditionalForm,
    Frame->False,
    FrameLabel->None,
    FrameStyle->{},
    FrameTicks->Automatic,
    FrameTicksStyle->{},
    GridLines->None,
    GridLinesStyle->{},
    ImageMargins->0.,
    ImagePadding->All,
    ImageSize->Automatic,
    LabelStyle->{},
    Method->Automatic,
    PlotLabel->FormBox["\"WRITE-CHARGE-FORCE-EFIELD-MAG\"", TraditionalForm],
    PlotRange->{{0., 600.}, All},
    PlotRangeClipping->True,
    PlotRangePadding->{
      Scaled[0.02], 
      Scaled[0.02]},
    PlotRegion->Automatic,
    PreserveImageOptions->Automatic,
    Prolog->{},
    RotateLabel->True,
    Ticks->{{{0., 
        FormBox["0", TraditionalForm]}, {100., 
        FormBox["100", TraditionalForm]}, {200., 
        FormBox["200", TraditionalForm]}, {300., 
        FormBox["300", TraditionalForm]}, {400., 
        FormBox["400", TraditionalForm]}, {500., 
        FormBox["500", TraditionalForm]}, {600., 
        FormBox["600", TraditionalForm]}}, Automatic},
    TicksStyle->{}], ",", 
   RowBox[{"{", "}"}], ",", 
   GraphicsBox[{
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{0., 0}, {100., 14}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{100., 0}, {200., 8}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{200., 0}, {300., 0}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{300., 0}, {400., 1}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{400., 0}, {500., 0}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{500., 0}, {600., 0}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{600., 0}, {700., 0}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{700., 0}, {800., 1}]}},
    AlignmentPoint->Center,
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->None,
    AxesOrigin->{0., 0},
    AxesStyle->{},
    Background->None,
    BaseStyle->{},
    BaselinePosition->Automatic,
    ColorOutput->Automatic,
    ContentSelectable->Automatic,
    DisplayFunction:>$DisplayFunction,
    Epilog->{},
    FormatType:>TraditionalForm,
    Frame->False,
    FrameLabel->None,
    FrameStyle->{},
    FrameTicks->Automatic,
    FrameTicksStyle->{},
    GridLines->None,
    GridLinesStyle->{},
    ImageMargins->0.,
    ImagePadding->All,
    ImageSize->Automatic,
    LabelStyle->{},
    Method->Automatic,
    PlotLabel->FormBox["\"DRAW-BODY\"", TraditionalForm],
    PlotRange->{{0., 800.}, All},
    PlotRangeClipping->True,
    PlotRangePadding->{
      Scaled[0.02], 
      Scaled[0.02]},
    PlotRegion->Automatic,
    PreserveImageOptions->Automatic,
    Prolog->{},
    RotateLabel->True,
    Ticks->{{{0., 
        FormBox["0", TraditionalForm]}, {200., 
        FormBox["200", TraditionalForm]}, {400., 
        FormBox["400", TraditionalForm]}, {600., 
        FormBox["600", TraditionalForm]}, {800., 
        FormBox["800", TraditionalForm]}}, Automatic},
    TicksStyle->{}], ",", 
   RowBox[{"{", "}"}], ",", 
   GraphicsBox[{
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{0., 0}, {100., 2}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{100., 0}, {200., 2}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{200., 0}, {300., 1}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{300., 0}, {400., 1}]}},
    AlignmentPoint->Center,
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->None,
    AxesOrigin->{0., 0},
    AxesStyle->{},
    Background->None,
    BaseStyle->{},
    BaselinePosition->Automatic,
    ColorOutput->Automatic,
    ContentSelectable->Automatic,
    DisplayFunction:>$DisplayFunction,
    Epilog->{},
    FormatType:>TraditionalForm,
    Frame->False,
    FrameLabel->None,
    FrameStyle->{},
    FrameTicks->Automatic,
    FrameTicksStyle->{},
    GridLines->None,
    GridLinesStyle->{},
    ImageMargins->0.,
    ImagePadding->All,
    ImageSize->Automatic,
    LabelStyle->{},
    Method->Automatic,
    PlotLabel->FormBox["\"DEFINE-DURATION\"", TraditionalForm],
    PlotRange->{{0., 400.}, All},
    PlotRangeClipping->True,
    PlotRangePadding->{
      Scaled[0.02], 
      Scaled[0.02]},
    PlotRegion->Automatic,
    PreserveImageOptions->Automatic,
    Prolog->{},
    RotateLabel->True,
    Ticks->{{{0., 
        FormBox["0", TraditionalForm]}, {100., 
        FormBox["100", TraditionalForm]}, {200., 
        FormBox["200", TraditionalForm]}, {300., 
        FormBox["300", TraditionalForm]}, {400., 
        FormBox["400", TraditionalForm]}}, Automatic},
    TicksStyle->{}], ",", 
   GraphicsBox[{
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{0., 0}, {100., 11}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{100., 0}, {200., 6}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{200., 0}, {300., 3}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{300., 0}, {400., 2}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{400., 0}, {500., 2}]}},
    AlignmentPoint->Center,
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->None,
    AxesOrigin->{0., 0},
    AxesStyle->{},
    Background->None,
    BaseStyle->{},
    BaselinePosition->Automatic,
    ColorOutput->Automatic,
    ContentSelectable->Automatic,
    DisplayFunction:>$DisplayFunction,
    Epilog->{},
    FormatType:>TraditionalForm,
    Frame->False,
    FrameLabel->None,
    FrameStyle->{},
    FrameTicks->Automatic,
    FrameTicksStyle->{},
    GridLines->None,
    GridLinesStyle->{},
    ImageMargins->0.,
    ImagePadding->All,
    ImageSize->Automatic,
    LabelStyle->{},
    Method->Automatic,
    PlotLabel->FormBox["\"DRAW-FIELD-GIVEN-DIR\"", TraditionalForm],
    PlotRange->{{0., 500.}, All},
    PlotRangeClipping->True,
    PlotRangePadding->{
      Scaled[0.02], 
      Scaled[0.02]},
    PlotRegion->Automatic,
    PreserveImageOptions->Automatic,
    Prolog->{},
    RotateLabel->True,
    Ticks->{{{0., 
        FormBox["0", TraditionalForm]}, {100., 
        FormBox["100", TraditionalForm]}, {200., 
        FormBox["200", TraditionalForm]}, {300., 
        FormBox["300", TraditionalForm]}, {400., 
        FormBox["400", TraditionalForm]}, {500., 
        FormBox["500", TraditionalForm]}}, Automatic},
    TicksStyle->{}], ",", 
   GraphicsBox[{
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{0., 0}, {100., 9}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{100., 0}, {200., 7}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{200., 0}, {300., 3}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{300., 0}, {400., 4}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{400., 0}, {500., 1}]}},
    AlignmentPoint->Center,
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->None,
    AxesOrigin->{0., 0},
    AxesStyle->{},
    Background->None,
    BaseStyle->{},
    BaselinePosition->Automatic,
    ColorOutput->Automatic,
    ContentSelectable->Automatic,
    DisplayFunction:>$DisplayFunction,
    Epilog->{},
    FormatType:>TraditionalForm,
    Frame->False,
    FrameLabel->None,
    FrameStyle->{},
    FrameTicks->Automatic,
    FrameTicksStyle->{},
    GridLines->None,
    GridLinesStyle->{},
    ImageMargins->0.,
    ImagePadding->All,
    ImageSize->Automatic,
    LabelStyle->{},
    Method->Automatic,
    PlotLabel->FormBox["\"DEFINE-CHARGE\"", TraditionalForm],
    PlotRange->{{0., 500.}, All},
    PlotRangeClipping->True,
    PlotRangePadding->{
      Scaled[0.02], 
      Scaled[0.02]},
    PlotRegion->Automatic,
    PreserveImageOptions->Automatic,
    Prolog->{},
    RotateLabel->True,
    Ticks->{{{0., 
        FormBox["0", TraditionalForm]}, {100., 
        FormBox["100", TraditionalForm]}, {200., 
        FormBox["200", TraditionalForm]}, {300., 
        FormBox["300", TraditionalForm]}, {400., 
        FormBox["400", TraditionalForm]}, {500., 
        FormBox["500", TraditionalForm]}}, Automatic},
    TicksStyle->{}], ",", 
   GraphicsBox[{
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{0., 0}, {100., 3}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{100., 0}, {200., 5}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{200., 0}, {300., 2}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{300., 0}, {400., 3}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{400., 0}, {500., 1}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{500., 0}, {600., 1}]}},
    AlignmentPoint->Center,
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->None,
    AxesOrigin->{0., 0},
    AxesStyle->{},
    Background->None,
    BaseStyle->{},
    BaselinePosition->Automatic,
    ColorOutput->Automatic,
    ContentSelectable->Automatic,
    DisplayFunction:>$DisplayFunction,
    Epilog->{},
    FormatType:>TraditionalForm,
    Frame->False,
    FrameLabel->None,
    FrameStyle->{},
    FrameTicks->Automatic,
    FrameTicksStyle->{},
    GridLines->None,
    GridLinesStyle->{},
    ImageMargins->0.,
    ImagePadding->All,
    ImageSize->Automatic,
    LabelStyle->{},
    Method->Automatic,
    PlotLabel->FormBox[
     "\"DRAW-ELECTRIC-FORCE-GIVEN-FIELD-DIR\"", TraditionalForm],
    PlotRange->{{0., 600.}, All},
    PlotRangeClipping->True,
    PlotRangePadding->{
      Scaled[0.02], 
      Scaled[0.02]},
    PlotRegion->Automatic,
    PreserveImageOptions->Automatic,
    Prolog->{},
    RotateLabel->True,
    Ticks->{{{0., 
        FormBox["0", TraditionalForm]}, {100., 
        FormBox["100", TraditionalForm]}, {200., 
        FormBox["200", TraditionalForm]}, {300., 
        FormBox["300", TraditionalForm]}, {400., 
        FormBox["400", TraditionalForm]}, {500., 
        FormBox["500", TraditionalForm]}, {600., 
        FormBox["600", TraditionalForm]}}, Automatic},
    TicksStyle->{}], ",", 
   GraphicsBox[{
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{0., 0}, {200., 5}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{200., 0}, {400., 3}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{400., 0}, {600., 0}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{600., 0}, {800., 1}]}},
    AlignmentPoint->Center,
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->None,
    AxesOrigin->{0., 0},
    AxesStyle->{},
    Background->None,
    BaseStyle->{},
    BaselinePosition->Automatic,
    ColorOutput->Automatic,
    ContentSelectable->Automatic,
    DisplayFunction:>$DisplayFunction,
    Epilog->{},
    FormatType:>TraditionalForm,
    Frame->False,
    FrameLabel->None,
    FrameStyle->{},
    FrameTicks->Automatic,
    FrameTicksStyle->{},
    GridLines->None,
    GridLinesStyle->{},
    ImageMargins->0.,
    ImagePadding->All,
    ImageSize->Automatic,
    LabelStyle->{},
    Method->Automatic,
    PlotLabel->FormBox["\"DRAW-DISPLACEMENT-STRAIGHT\"", TraditionalForm],
    PlotRange->{{0., 800.}, All},
    PlotRangeClipping->True,
    PlotRangePadding->{
      Scaled[0.02], 
      Scaled[0.02]},
    PlotRegion->Automatic,
    PreserveImageOptions->Automatic,
    Prolog->{},
    RotateLabel->True,
    Ticks->{{{0., 
        FormBox["0", TraditionalForm]}, {200., 
        FormBox["200", TraditionalForm]}, {400., 
        FormBox["400", TraditionalForm]}, {600., 
        FormBox["600", TraditionalForm]}, {800., 
        FormBox["800", TraditionalForm]}}, Automatic},
    TicksStyle->{}], ",", 
   GraphicsBox[{
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{0., 0}, {250., 2}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{250., 0}, {500., 0}]}, 
     {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
      EdgeForm[GrayLevel[0]], RectangleBox[{500., 0}, {750., 1}]}},
    AlignmentPoint->Center,
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->None,
    AxesOrigin->{0., 0},
    AxesStyle->{},
    Background->None,
    BaseStyle->{},
    BaselinePosition->Automatic,
    ColorOutput->Automatic,
    ContentSelectable->Automatic,
    DisplayFunction:>$DisplayFunction,
    Epilog->{},
    FormatType:>TraditionalForm,
    Frame->False,
    FrameLabel->None,
    FrameStyle->{},
    FrameTicks->Automatic,
    FrameTicksStyle->{},
    GridLines->None,
    GridLinesStyle->{},
    ImageMargins->0.,
    ImagePadding->All,
    ImageSize->Automatic,
    LabelStyle->{},
    Method->Automatic,
    PlotLabel->FormBox["\"COMPO-GENERAL-CASE\"", TraditionalForm],
    PlotRange->{{0., 750.}, All},
    PlotRangeClipping->True,
    PlotRangePadding->{
      Scaled[0.02], 
      Scaled[0.02]},
    PlotRegion->Automatic,
    PreserveImageOptions->Automatic,
    Prolog->{},
    RotateLabel->True,
    Ticks->{{{0., 
        FormBox["0", TraditionalForm]}, {200., 
        FormBox["200", TraditionalForm]}, {400., 
        FormBox["400", TraditionalForm]}, {600., 
        FormBox["600", TraditionalForm]}}, Automatic},
    TicksStyle->{}], ",", 
   RowBox[{"{", "}"}], ",", 
   RowBox[{"{", "}"}], ",", 
   RowBox[{"{", "}"}], ",", 
   RowBox[{"{", "}"}], ",", 
   RowBox[{"{", "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.40207030980912*^9, 3.402070408872556*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Fall linear model", "Subsection"],

Cell[BoxData[
 RowBox[{"<<", "\"\<LinearRegression`\>\""}]], "Input"],

Cell[BoxData[
 RowBox[{"<<", "\"\<~/log/Fall2005-linear.out\>\""}]], "Input"],

Cell[BoxData[
 RowBox[{"<<", "\"\<~/log/junk.out\>\""}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"mat", "=", 
   RowBox[{"SparseArray", "[", 
    RowBox[{
     RowBox[{"Map", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"Take", "[", 
           RowBox[{"#", ",", "2"}], "]"}], "\[Rule]", 
          RowBox[{"#", "[", 
           RowBox[{"[", 
            RowBox[{"-", "1"}], "]"}], "]"}]}], ")"}], "&"}], ",", 
       RowBox[{"Flatten", "[", 
        RowBox[{"operatorinstances", ",", "1"}], "]"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Length", "[", "operatorinstances", "]"}], ",", 
       RowBox[{"Length", "[", "operators", "]"}]}], "}"}]}], "]"}]}], ";", 
  RowBox[{"tmat", "=", 
   RowBox[{"Transpose", "[", "mat", "]"}]}], ";"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Length", "[", "operators", "]"}], ",", 
   RowBox[{"MatrixRank", "[", "mat", "]"}]}], "}"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"244", ",", "237"}], "}"}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Map", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"#", "\[GreaterEqual]", "0"}], ")"}], "&"}], ",", 
   RowBox[{"Map", "[", 
    RowBox[{"t", ",", "operators"}], "]"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"t", "[", "\<\"ACCEL-AT-REST\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"ACCEL-CONSTANT-SPEED\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"APPLY-NET-WORK\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"AREA-OF-CIRCLE\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"AVG-ACCEL-UNKNOWN\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"BERNOULLI\"\>", "]"}], "\[GreaterEqual]", "0"}], 
   ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"CIRCUMFERENCE-OF-CIRCLE-R\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"COMPO-GENERAL-CASE\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"COMPO-GENERAL-CASE-UNKNOWN\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"COMPO-PARALLEL-AXIS\"\>", "]"}], "\[GreaterEqual]",
     "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"COMPO-PERPENDICULAR\"\>", "]"}], "\[GreaterEqual]",
     "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"COMPO-Z-AXIS\"\>", "]"}], "\[GreaterEqual]", "0"}],
    ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"COMPO-ZERO-VECTOR\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"CONTINUITY\"\>", "]"}], "\[GreaterEqual]", "0"}], 
   ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DEFINE-AMPLITUDE\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DEFINE-AMPLITUDE-MAX-ABS-ACCELERATION\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DEFINE-AMPLITUDE-MAX-SPEED\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DEFINE-ANGLE-BETWEEN-KNOWN\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DEFINE-ANGULAR-FREQUENCY\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DEFINE-AREA\"\>", "]"}], "\[GreaterEqual]", "0"}], 
   ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DEFINE-AREA-AT\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DEFINE-CHANGING-MASS\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DEFINE-CHANGING-MOMENT-OF-INERTIA\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DEFINE-CIRCUMFERENCE-OF-CIRCLE\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DEFINE-COEF-FRICTION\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DEFINE-COMPRESSION\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DEFINE-DB-INTENSITY\"\>", "]"}], "\[GreaterEqual]",
     "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DEFINE-DISTANCE\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DEFINE-DURATION\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DEFINE-FREQUENCY\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DEFINE-GRAV-ENERGY\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DEFINE-HEIGHT\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DEFINE-INTENSITY\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DEFINE-KINETIC-ENERGY\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DEFINE-MASS\"\>", "]"}], "\[GreaterEqual]", "0"}], 
   ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DEFINE-MASS-CHANGE-MAGNITUDE\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DEFINE-MASS-DENSITY\"\>", "]"}], "\[GreaterEqual]",
     "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DEFINE-MOMENT-OF-INERTIA\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DEFINE-NET-DB-INTENSITY\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DEFINE-NET-INTENSITY\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DEFINE-NET-POWER-OUT\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DEFINE-NET-POWER-VAR\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DEFINE-NET-WORK\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DEFINE-OBSERVED-FREQUENCY\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DEFINE-PERIOD-VAR\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DEFINE-POWER-VAR\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DEFINE-PRESSURE\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DEFINE-RADIUS-OF-CIRCLE\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DEFINE-REVOLUTION-RADIUS\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DEFINE-ROTATIONAL-ENERGY\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DEFINE-SHAPE-LENGTH\"\>", "]"}], "\[GreaterEqual]",
     "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DEFINE-SPEED\"\>", "]"}], "\[GreaterEqual]", "0"}],
    ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DEFINE-SPRING-CONSTANT\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DEFINE-SPRING-ENERGY\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DEFINE-STRING-TENSION\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DEFINE-TOTAL-ENERGY\"\>", "]"}], "\[GreaterEqual]",
     "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DEFINE-VOLUME\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DEFINE-WAVE-SPEED\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DEFINE-WAVELENGTH\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DEFINE-WAVENUMBER\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DEFINE-WIDTH\"\>", "]"}], "\[GreaterEqual]", "0"}],
    ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DEFINE-WNC\"\>", "]"}], "\[GreaterEqual]", "0"}], 
   ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DEFINE-WORK\"\>", "]"}], "\[GreaterEqual]", "0"}], 
   ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-ACCEL-CURVED-UNKNOWN\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-ACCEL-FREE-FALL\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-ACCEL-GIVEN-DIR\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-ACCEL-UNKNOWN-NET-FORCE\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-ACCELERATING\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-ANG-ACCEL-UNKNOWN-DIR\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-ANG-ACCELERATING\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-ANG-DECELERATING\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-ANG-DISPLACEMENT-ROTATING\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-ANG-MOMENTUM-ROTATING\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-ANG-VELOCITY-AT-REST\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-ANG-VELOCITY-ROTATING\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-APPLIED-FORCE\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-AVG-VEL-FROM-DISPLACEMENT\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-AVG-VEL-UNKNOWN\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-BODY\"\>", "]"}], "\[GreaterEqual]", "0"}], 
   ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-BUOYANT-FORCE\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-CENTRIPETAL-ACCELERATION\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-COMPO-FORM-AXES\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-DECELERATING\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-DISPLACEMENT-GIVEN-DIR\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-DISPLACEMENT-PROJECTILE\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-DISPLACEMENT-STRAIGHT\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-DISPLACEMENT-UNKNOWN\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-DISPLACEMENT-ZERO\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-DRAG\"\>", "]"}], "\[GreaterEqual]", "0"}], 
   ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-ENERGY-AXES\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-FORCE-COMPOUND\"\>", "]"}], "\[GreaterEqual]",
     "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-GRAV-FORCE\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-IMPULSE-GIVEN-DIR\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-IMPULSE-GIVEN-FORCE\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-IMPULSE-GIVEN-MOMENTA-UNKNOWN-DIR\"\>", "]"}],
     "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-KINETIC-FRICTION\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-MOMENTUM-AT-REST\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-MOMENTUM-STRAIGHT\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-MOMENTUM-STRAIGHT-UNKNOWN\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-NET-FORCE-FROM-ACCEL\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-NET-TORQUE-FROM-ANG-ACCEL\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-NET-TORQUE-NON-ROTATING\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-NET-TORQUE-UNKNOWN-DIR\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-NORMAL\"\>", "]"}], "\[GreaterEqual]", "0"}], 
   ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-OPPOSITE-RELATIVE-POSITION\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-PRESSURE\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-REACTION-FORCE\"\>", "]"}], "\[GreaterEqual]",
     "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-REL-VEL-VECTOR-UNKNOWN\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-RELATIVE-POSITION\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-RELATIVE-POSITION-UNKNOWN\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-RELATIVE-VEL-GIVEN-DIR\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-ROTATE-AXES\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-SOUGHT-VECTOR-UNKNOWN\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-SPRING-FORCE\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-STATIC-FRICTION\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-TENSION\"\>", "]"}], "\[GreaterEqual]", "0"}],
    ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-THRUST-FORCE\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-THRUST-FORCE-GIVEN-RELATIVE-VEL\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-TORQUE\"\>", "]"}], "\[GreaterEqual]", "0"}], 
   ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-UNROTATED-AXES\"\>", "]"}], "\[GreaterEqual]",
     "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-UNROTATED-AXES-FOR-ZCOMPS\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-VECTOR-GIVEN-COMPOS\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-VELOCITY-AT-REST\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-VELOCITY-CURVED\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-VELOCITY-CURVED-UNKNOWN\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-VELOCITY-MOMENTARILY-AT-REST\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-VELOCITY-STRAIGHT\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-VELOCITY-STRAIGHT-UNKNOWN\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-WEIGHT\"\>", "]"}], "\[GreaterEqual]", "0"}], 
   ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-WEIGHT-AT-CM\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-ZERO-RELATIVE-POSITION\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"DRAW-ZERO-RELATIVE-VEL\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"FREQUENCY-OF-WAVE\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"GIVEN-FRACTION\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"KINETIC-FRICTION-LAW\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"MAKE-DOPPLER-FREQUENCY\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"MASS-PER-LENGTH\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"MASS-PER-LENGTH-EQUATION\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"MAX-TRANSVERSE-ABS-ACCELERATION-WAVE\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"MAX-TRANSVERSE-SPEED-WAVE\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"NTL\"\>", "]"}], "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"OPPOSITE-RELATIVE-POSITION\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"PENDULUM-OSCILLATION\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"PERIOD-OF-WAVE\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"PRESSURE-AT-OPEN-TO-ATMOSPHERE\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"PRESSURE-FORCE\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"PRESSURE-HEIGHT-FLUID\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"SDD-CONSTVEL-COMPO\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"SELECT-MC-ANSWER\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"SPEED-EQUALS-WAVE-SPEED\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"SPRING-LAW-COMPRESSION\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"SPRING-MASS-OSCILLATION\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"STATIC-FRICTION-LAW\"\>", "]"}], "\[GreaterEqual]",
     "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"USE-CONST-VX\"\>", "]"}], "\[GreaterEqual]", "0"}],
    ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WAVE-SPEED-STRING\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WAVENUMBER-LAMBDA-WAVE\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-ANG-MOMENTUM\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-ANG-SDD\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-ARCHIMEDES\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-AVG-ACCEL-COMPO\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-AVG-VEL-COMPO\"\>", "]"}], "\[GreaterEqual]",
     "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-BEAT-FREQUENCY\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-CENTER-OF-MASS-COMPO\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-CENTRIPETAL-ACCEL\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-CHANGE-ME-TOP\"\>", "]"}], "\[GreaterEqual]",
     "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-CONNECTED-ACCELS\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-CONNECTED-VELOCITIES\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-CONS-ANGMOM\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-CONS-ANGMOM-JOIN\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-CONS-KE-ELASTIC\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-CONS-LINMOM-COMPO\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-CONS-LINMOM-COMPO-JOIN\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-CONS-LINMOM-COMPO-SPLIT\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-DENSITY\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-DISPLACEMENT-DISTANCE\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-ENERGY-CONS\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-EQUALITY\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-FORCE-COMPOUND\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-FREE-FALL-ACCEL\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-G-ON-EARTH\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-GRAV-ENERGY\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-HARMONIC-OF\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-HEIGHT-DY-COMPO\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-I-COMPOUND\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-I-HOOP-CM\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-I-RECT-CM\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-I-ROD-CM\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-I-ROD-END\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-IMPLICIT-EQN\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-IMPULSE-COMPO\"\>", "]"}], "\[GreaterEqual]",
     "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-IMPULSE-MOMENTUM-COMPO\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-INST-POWER\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-INTENSITY-TO-DECIBELS\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-INTENSITY-TO-POWER\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-KINETIC-ENERGY\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-KNOWN-VALUE-EQN\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-LINEAR-VEL\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-LK-NO-S-COMPO\"\>", "]"}], "\[GreaterEqual]",
     "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-LK-NO-T-COMPO\"\>", "]"}], "\[GreaterEqual]",
     "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-LK-NO-VF-COMPO\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-MAG-TORQUE\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-MASS-COMPOUND\"\>", "]"}], "\[GreaterEqual]",
     "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-MOMENTUM-COMPO\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-NET-INTENSITY\"\>", "]"}], "\[GreaterEqual]",
     "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-NET-POWER\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-NET-TORQUE\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-NFL-COMPO\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-NL-ROTATION\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-NSL-COMPO\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-NSL-NET-COMPO\"\>", "]"}], "\[GreaterEqual]",
     "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-NTL-VECTOR\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-NULL-SPRING-ENERGY\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-PERIOD-CIRCULAR\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-POWER\"\>", "]"}], "\[GreaterEqual]", "0"}], 
   ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-PYTH-THM\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-RELATIVE-VEL-COMPO\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-RK-NO-S\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-RK-NO-T\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-RK-NO-VF\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-ROLLING-VEL\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-ROTATIONAL-ENERGY\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-SDD\"\>", "]"}], "\[GreaterEqual]", "0"}], 
   ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-SPEED-OF-WAVE\"\>", "]"}], "\[GreaterEqual]",
     "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-SPRING-ENERGY\"\>", "]"}], "\[GreaterEqual]",
     "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-SUM-DISP-COMPO\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-SUM-DISTANCES\"\>", "]"}], "\[GreaterEqual]",
     "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-SUM-TIMES\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-TENSIONS-EQUAL\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-THRUST-FORCE\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-THRUST-FORCE-COMPO\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-TIMELESS-BEAT-FREQUENCY\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-TORQUE-ZC\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-TOTAL-ENERGY-TOP\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-UG\"\>", "]"}], "\[GreaterEqual]", "0"}], 
   ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-UG-CIRCULAR\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-VALUE-OF-ATMOSPHERE\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-VOLUME-COMPOUND\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-WAVE-SPEED-LIGHT\"\>", "]"}], 
    "\[GreaterEqual]", "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-WNC\"\>", "]"}], "\[GreaterEqual]", "0"}], 
   ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-WORK\"\>", "]"}], "\[GreaterEqual]", "0"}], 
   ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-WORK-DELTA-KE\"\>", "]"}], "\[GreaterEqual]",
     "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WRITE-ZERO-WORK\"\>", "]"}], "\[GreaterEqual]", 
    "0"}], ",", 
   RowBox[{
    RowBox[{"t", "[", "\<\"WT-LAW\"\>", "]"}], "\[GreaterEqual]", "0"}], ",", 
   
   RowBox[{
    RowBox[{"t", "[", "\<\"WT-LAW-CM\"\>", "]"}], "\[GreaterEqual]", "0"}]}], 
  "}"}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"tt", "=", 
      RowBox[{"Map", "[", 
       RowBox[{"t", ",", "operators"}], "]"}]}], ",", "expr", ",", "expr2"}], 
    "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"NMinimize", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"expr", "=", 
         RowBox[{
          RowBox[{"mat", ".", "tt"}], "-", 
          RowBox[{"N", "[", "eachtime", "]"}]}]}], ";", 
        RowBox[{"expr2", "=", 
         RowBox[{"expr", ".", "expr"}]}]}], ",", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"#", "\[GreaterEqual]", "0"}], ")"}], "&"}], ",", "tt"}], 
        "]"}]}], "}"}], ",", "tt", ",", 
     RowBox[{"StepMonitor", "\[RuleDelayed]", 
      RowBox[{"Print", "[", "expr2", "]"}]}]}], "]"}]}], "]"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData["5.885366031579585`*^9"], "Print"],

Cell[BoxData["5.821129815004961`*^9"], "Print"],

Cell[BoxData["5.821129815004961`*^9"], "Print"],

Cell[BoxData["5.821129815004961`*^9"], "Print"],

Cell[BoxData["5.821129815004961`*^9"], "Print"],

Cell[BoxData["5.821129815004961`*^9"], "Print"],

Cell[BoxData["5.821129815004961`*^9"], "Print"],

Cell[BoxData["5.821129815004961`*^9"], "Print"],

Cell[BoxData["5.821129815004961`*^9"], "Print"],

Cell[BoxData["5.821129815004961`*^9"], "Print"],

Cell[BoxData["5.821129815004961`*^9"], "Print"],

Cell[BoxData["5.821129815004961`*^9"], "Print"],

Cell[BoxData["5.821129815004961`*^9"], "Print"],

Cell[BoxData["5.821129815004961`*^9"], "Print"],

Cell[BoxData["5.821129815004961`*^9"], "Print"],

Cell[BoxData["5.821129815004961`*^9"], "Print"],

Cell[BoxData["5.821129815004961`*^9"], "Print"],

Cell[BoxData["5.821129815004961`*^9"], "Print"],

Cell[BoxData["5.821129815004961`*^9"], "Print"],

Cell[BoxData["5.821129815004961`*^9"], "Print"],

Cell[BoxData["5.821129815004961`*^9"], "Print"],

Cell[BoxData["5.821129815004961`*^9"], "Print"],

Cell[BoxData["5.821129815004961`*^9"], "Print"],

Cell[BoxData["5.821129815004961`*^9"], "Print"],

Cell[BoxData["5.821129815004961`*^9"], "Print"],

Cell[BoxData["5.821129815004961`*^9"], "Print"],

Cell[BoxData["5.821129815004961`*^9"], "Print"],

Cell[BoxData["5.821129815004961`*^9"], "Print"],

Cell[BoxData["5.821129815004961`*^9"], "Print"],

Cell[BoxData["5.821129815004961`*^9"], "Print"],

Cell[BoxData["5.821129815004961`*^9"], "Print"],

Cell[BoxData["5.821129815004961`*^9"], "Print"]
}, Open  ]],

Cell[BoxData["$Aborted"], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Length", "[", "mat", "]"}], "-", "9295"}]], "Input"],

Cell[BoxData["244"], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"NullSpace", "[", "mat", "]"}], ".", "operators"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "\<\"DEFINE-ROTATIONAL-ENERGY\"\>"}], "-", 
    RowBox[{"2", " ", "\<\"WRITE-I-ROD-END\"\>"}], "-", 
    RowBox[{"2", " ", "\<\"WRITE-ROLLING-VEL\"\>"}], "+", 
    RowBox[{"2", " ", "\<\"WRITE-ROTATIONAL-ENERGY\"\>"}]}], ",", 
   RowBox[{
    RowBox[{"-", "\<\"DEFINE-NET-INTENSITY\"\>"}], 
    "+", "\<\"WRITE-NET-INTENSITY\"\>"}], ",", 
   RowBox[{
    RowBox[{"-", "\<\"DEFINE-WIDTH\"\>"}], "+", "\<\"WRITE-I-RECT-CM\"\>"}], 
   ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "3"}], " ", "\<\"DRAW-AVG-VEL-UNKNOWN\"\>"}], 
    "+", "\<\"WRITE-DISPLACEMENT-DISTANCE\"\>"}], ",", 
   RowBox[{
    RowBox[{"-", "\<\"DEFINE-AMPLITUDE-MAX-ABS-ACCELERATION\"\>"}], 
    "+", "\<\"MAX-TRANSVERSE-ABS-ACCELERATION-WAVE\"\>"}], ",", 
   RowBox[{
    RowBox[{"-", "\<\"DEFINE-WIDTH\"\>"}], 
    "+", "\<\"DRAW-ANG-ACCEL-UNKNOWN-DIR\"\>"}], ",", 
   RowBox[{
    RowBox[{"-", "\<\"CIRCUMFERENCE-OF-CIRCLE-R\"\>"}], 
    "+", "\<\"DEFINE-CIRCUMFERENCE-OF-CIRCLE\"\>"}]}], "}"}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Regress", "[", 
  RowBox[{
   RowBox[{"Transpose", "[", 
    RowBox[{"Append", "[", 
     RowBox[{"tmat", ",", "eachtime"}], "]"}], "]"}], ",", 
   RowBox[{"Map", "[", 
    RowBox[{"t", ",", "operators"}], "]"}], ",", 
   RowBox[{"Map", "[", 
    RowBox[{"t", ",", "operators"}], "]"}], ",", 
   RowBox[{"IncludeConstant", "\[Rule]", "False"}], ",", 
   RowBox[{"RegressionReport", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"ParameterTable", ",", "RSquared", ",", "EstimatedVariance"}], 
     "}"}]}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"DesignedRegress", "::", "\<\"rank\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Warning: the rank of the design matrix is \\!\\(237\\), \
less than full rank \\!\\(244\\). Only \\!\\(237\\) of the \\!\\(244\\) basis \
functions \\!\\(\\\"are\\\"\\) needed to provide this fit. Try using a \
different model or greater precision.\"\>"}]], "Message"],

Cell[BoxData[
 RowBox[{
  RowBox[{"DesignedRegress", "::", "\<\"rsqr\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Warning: the RSquared and AdjustedRSquared diagnostics are \
redefined when there is no constant term in the model.\"\>"}]], "Message"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"ParameterTable", "\[Rule]", 
    TagBox[GridBox[{
       {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"SE\"\>", "\<\"TStat\"\>", \
"\<\"PValue\"\>"},
       {
        RowBox[{"t", "[", "\<\"ACCEL-AT-REST\"\>", "]"}], 
        "80.96703397054436`", "25.310412419894224`", "3.198961464053565`", 
        "0.0013838643727068778`"},
       {
        RowBox[{"t", "[", "\<\"ACCEL-CONSTANT-SPEED\"\>", "]"}], 
        RowBox[{"-", "67.88131978997791`"}], "55.59110745996332`", 
        RowBox[{"-", "1.2210823437699274`"}], "0.2220858159834812`"},
       {
        RowBox[{"t", "[", "\<\"APPLY-NET-WORK\"\>", "]"}], 
        RowBox[{"-", "4.0794893271437624`"}], "78.23589610610433`", 
        RowBox[{"-", "0.05214344732002707`"}], "0.9584155145803291`"},
       {
        RowBox[{"t", "[", "\<\"AREA-OF-CIRCLE\"\>", "]"}], 
        "177.76545137259902`", "116.28935287763296`", "1.5286476962310998`", 
        "0.1263858328710783`"},
       {
        RowBox[{"t", "[", "\<\"AVG-ACCEL-UNKNOWN\"\>", "]"}], 
        "328.52896286800893`", "424.5615073157997`", "0.7738076985477648`", 
        "0.4390641989570354`"},
       {
        RowBox[{"t", "[", "\<\"BERNOULLI\"\>", "]"}], 
        RowBox[{"-", "107.20313248462128`"}], "98.3688761875163`", 
        RowBox[{"-", "1.0898074334026608`"}], "0.2758262309372834`"},
       {
        RowBox[{"t", "[", "\<\"CIRCUMFERENCE-OF-CIRCLE-R\"\>", "]"}], 
        "228.27593917797407`", "167.32247117788157`", "1.3642874000784537`", 
        "0.17251016026668387`"},
       {
        RowBox[{"t", "[", "\<\"COMPO-GENERAL-CASE\"\>", "]"}], 
        "69.2122774368411`", "7.945409868507436`", "8.710976347635894`", 
        "0.`"},
       {
        RowBox[{"t", "[", "\<\"COMPO-GENERAL-CASE-UNKNOWN\"\>", "]"}], 
        "37.09789060723381`", "22.172778811170758`", "1.6731277086723881`", 
        "0.09433580853885459`"},
       {
        RowBox[{"t", "[", "\<\"COMPO-PARALLEL-AXIS\"\>", "]"}], 
        "30.37846599976986`", "5.689802742859298`", "5.339107060942461`", 
        "9.56094097226412`*^-8"},
       {
        RowBox[{"t", "[", "\<\"COMPO-PERPENDICULAR\"\>", "]"}], 
        "92.40756309611751`", "13.05030194655271`", "7.080875482772056`", 
        "1.5365486660812167`*^-12"},
       {
        RowBox[{"t", "[", "\<\"COMPO-Z-AXIS\"\>", "]"}], "34.85097035618636`",
         "19.05175437655872`", "1.8292787985481798`", "0.0673898716345398`"},
       {
        RowBox[{"t", "[", "\<\"COMPO-ZERO-VECTOR\"\>", "]"}], 
        "18.55438998335798`", "29.511419109931083`", "0.6287190024390972`", 
        "0.5295484846181715`"},
       {
        RowBox[{"t", "[", "\<\"CONTINUITY\"\>", "]"}], 
        RowBox[{"-", "204.75085647254227`"}], "256.6668168422753`", 
        RowBox[{"-", "0.7977301428815553`"}], "0.42504748619448673`"},
       {
        RowBox[{"t", "[", "\<\"DEFINE-AMPLITUDE\"\>", "]"}], 
        "128.8780086416256`", "93.74545512316917`", "1.3747654056647`", 
        "0.16923732537297087`"},
       {
        RowBox[{
        "t", "[", "\<\"DEFINE-AMPLITUDE-MAX-ABS-ACCELERATION\"\>", "]"}], 
        "96.89875113794348`", "211.209956332589`", "0.4587792773620886`", 
        "0.6464034043829014`"},
       {
        RowBox[{"t", "[", "\<\"DEFINE-AMPLITUDE-MAX-SPEED\"\>", "]"}], 
        RowBox[{"-", "392.8806222730533`"}], "527.634458588882`", 
        RowBox[{"-", "0.744607589359843`"}], "0.456527803279721`"},
       {
        RowBox[{"t", "[", "\<\"DEFINE-ANGLE-BETWEEN-KNOWN\"\>", "]"}], 
        "103.56741828884724`", "19.725314556960925`", "5.250482469609035`", 
        "1.5505403450077893`*^-7"},
       {
        RowBox[{"t", "[", "\<\"DEFINE-ANGULAR-FREQUENCY\"\>", "]"}], 
        "114.01813593515206`", "100.4212571664505`", "1.135398412172479`", 
        "0.2562377002852192`"},
       {
        RowBox[{"t", "[", "\<\"DEFINE-AREA\"\>", "]"}], 
        RowBox[{"-", "122.43211048731237`"}], "129.50819767274055`", 
        RowBox[{"-", "0.9453618588430284`"}], "0.3444987407935822`"},
       {
        RowBox[{"t", "[", "\<\"DEFINE-AREA-AT\"\>", "]"}], 
        "123.76011400405899`", "130.83695153253933`", "0.9459110179075036`", 
        "0.3442185616623781`"},
       {
        RowBox[{"t", "[", "\<\"DEFINE-CHANGING-MASS\"\>", "]"}], 
        RowBox[{"-", "4.662240636794669`"}], "81.98070986504287`", 
        RowBox[{"-", "0.05686997153927647`"}], "0.9546499972198019`"},
       {
        RowBox[{"t", "[", "\<\"DEFINE-CHANGING-MOMENT-OF-INERTIA\"\>", "]"}], 
        "70.23174950331779`", "64.6606388201576`", "1.0861592273880136`", 
        "0.2774367194321845`"},
       {
        RowBox[{"t", "[", "\<\"DEFINE-CIRCUMFERENCE-OF-CIRCLE\"\>", "]"}], 
        "228.27593917799763`", "167.32247117788143`", "1.3642874000785958`", 
        "0.17251016026668387`"},
       {
        RowBox[{"t", "[", "\<\"DEFINE-COEF-FRICTION\"\>", "]"}], 
        RowBox[{"-", "54.77106958463481`"}], "257.4004103179267`", 
        RowBox[{"-", "0.2127854789236141`"}], "0.8314989567499933`"},
       {
        RowBox[{"t", "[", "\<\"DEFINE-COMPRESSION\"\>", "]"}], 
        "151.52434803777405`", "68.73489789558408`", "2.204474767212956`", 
        "0.02751538383239982`"},
       {
        RowBox[{"t", "[", "\<\"DEFINE-DB-INTENSITY\"\>", "]"}], 
        "40.98462050903687`", "301.722851342563`", "0.13583532147687652`", 
        "0.891954408852847`"},
       {
        RowBox[{"t", "[", "\<\"DEFINE-DISTANCE\"\>", "]"}], 
        "189.4922899639841`", "60.375602490719785`", "3.138557333537344`", 
        "0.0017031281849493318`"},
       {
        RowBox[{"t", "[", "\<\"DEFINE-DURATION\"\>", "]"}], 
        "57.23501027815985`", "29.356682133459014`", "1.949641652893968`", 
        "0.051248874392466615`"},
       {
        RowBox[{"t", "[", "\<\"DEFINE-FREQUENCY\"\>", "]"}], 
        "55.41452600816517`", "23.60889485998046`", "2.347188478614413`", 
        "0.018936550587077328`"},
       {
        RowBox[{"t", "[", "\<\"DEFINE-GRAV-ENERGY\"\>", "]"}], 
        RowBox[{"-", "74.19316306187912`"}], "52.33523717370406`", 
        RowBox[{"-", "1.4176521798425634`"}], "0.15632585826949885`"},
       {
        RowBox[{"t", "[", "\<\"DEFINE-HEIGHT\"\>", "]"}], 
        "54.21954851110596`", "27.370948187374186`", "1.9809159748479828`", 
        "0.04763012425010427`"},
       {
        RowBox[{"t", "[", "\<\"DEFINE-INTENSITY\"\>", "]"}], 
        RowBox[{"-", "27.068274872205016`"}], "318.1583906872035`", 
        RowBox[{"-", "0.08507798525677454`"}], "0.9322012243835798`"},
       {
        RowBox[{"t", "[", "\<\"DEFINE-KINETIC-ENERGY\"\>", "]"}], 
        "104.20184525294263`", "34.9182718261204`", "2.9841638719071737`", 
        "0.0028509381742942708`"},
       {
        RowBox[{"t", "[", "\<\"DEFINE-MASS\"\>", "]"}], 
        RowBox[{"-", "16.16483052351791`"}], "16.700615649042476`", 
        RowBox[{"-", "0.9679182410526713`"}], "0.3331103872619743`"},
       {
        RowBox[{"t", "[", "\<\"DEFINE-MASS-CHANGE-MAGNITUDE\"\>", "]"}], 
        "45.791024444760666`", "133.76642660211613`", "0.34232075721783745`", 
        "0.73211725607172`"},
       {
        RowBox[{"t", "[", "\<\"DEFINE-MASS-DENSITY\"\>", "]"}], 
        "88.6640127645956`", "67.02305043894559`", "1.322888352349223`", 
        "0.18590505288406733`"},
       {
        RowBox[{"t", "[", "\<\"DEFINE-MOMENT-OF-INERTIA\"\>", "]"}], 
        "46.9011431535456`", "68.04587102793418`", "0.689257738126267`", 
        "0.49067829319783596`"},
       {
        RowBox[{"t", "[", "\<\"DEFINE-NET-DB-INTENSITY\"\>", "]"}], 
        "441.76345220044993`", "454.6497945374416`", "0.9716565530396815`", 
        "0.3312467216857222`"},
       {
        RowBox[{"t", "[", "\<\"DEFINE-NET-INTENSITY\"\>", "]"}], 
        "2.520214570623845`", "156.68915628972152`", "0.016084167087886514`", 
        "0.98716758992182`"},
       {
        RowBox[{"t", "[", "\<\"DEFINE-NET-POWER-OUT\"\>", "]"}], 
        "235.95723737231427`", "117.70017683861218`", "2.004731375177571`", 
        "0.04502072043558991`"},
       {
        RowBox[{"t", "[", "\<\"DEFINE-NET-POWER-VAR\"\>", "]"}], 
        "222.0281005241719`", "215.6852374620771`", "1.0294079610488411`", 
        "0.303314795180305`"},
       {
        RowBox[{"t", "[", "\<\"DEFINE-NET-WORK\"\>", "]"}], 
        "152.3398807200636`", "61.760685360268575`", "2.466615773957485`", 
        "0.013657567251182057`"},
       {
        RowBox[{"t", "[", "\<\"DEFINE-OBSERVED-FREQUENCY\"\>", "]"}], 
        "123.79989443510246`", "50.77942849177343`", "2.4379930635721663`", 
        "0.014787664431705316`"},
       {
        RowBox[{"t", "[", "\<\"DEFINE-PERIOD-VAR\"\>", "]"}], 
        "118.31400154201744`", "62.580299940798334`", "1.8905949900199233`", 
        "0.058709504448944294`"},
       {
        RowBox[{"t", "[", "\<\"DEFINE-POWER-VAR\"\>", "]"}], 
        "189.1267732054014`", "88.7835936349909`", "2.130199572490202`", 
        "0.033181325992941435`"},
       {
        RowBox[{"t", "[", "\<\"DEFINE-PRESSURE\"\>", "]"}], 
        RowBox[{"-", "11.069340177868451`"}], "49.756719567162676`", 
        RowBox[{"-", "0.22246925187515268`"}], "0.8239534949301321`"},
       {
        RowBox[{"t", "[", "\<\"DEFINE-RADIUS-OF-CIRCLE\"\>", "]"}], 
        "55.239598326059586`", "92.8854365121278`", "0.5947067742836855`", 
        "0.5520539685537524`"},
       {
        RowBox[{"t", "[", "\<\"DEFINE-REVOLUTION-RADIUS\"\>", "]"}], 
        "120.2223817057052`", "80.57447616727929`", "1.4920653217293474`", 
        "0.13571595951464532`"},
       {
        RowBox[{"t", "[", "\<\"DEFINE-ROTATIONAL-ENERGY\"\>", "]"}], 
        "781.1909377251743`", "207.52010794870196`", "3.7644108103407556`", 
        "0.00016797047671479604`"},
       {
        RowBox[{"t", "[", "\<\"DEFINE-SHAPE-LENGTH\"\>", "]"}], 
        "117.06200271363869`", "60.82388068091225`", "1.9246059508724358`", 
        "0.0543091622541243`"},
       {
        RowBox[{"t", "[", "\<\"DEFINE-SPEED\"\>", "]"}], "140.0420119642894`",
         "56.421984087950754`", "2.482046922454756`", 
        "0.013080535920965808`"},
       {
        RowBox[{"t", "[", "\<\"DEFINE-SPRING-CONSTANT\"\>", "]"}], 
        "40.1465077876298`", "88.58781650569405`", "0.453183173162975`", 
        "0.6504274265194088`"},
       {
        RowBox[{"t", "[", "\<\"DEFINE-SPRING-ENERGY\"\>", "]"}], 
        RowBox[{"-", "43.86436929876587`"}], "71.00731752006145`", 
        RowBox[{"-", "0.6177443512969354`"}], "0.5367590052392679`"},
       {
        RowBox[{"t", "[", "\<\"DEFINE-STRING-TENSION\"\>", "]"}], 
        "97.94434658934105`", "90.79977009429491`", "1.078684962391717`", 
        "0.2807561824846503`"},
       {
        RowBox[{"t", "[", "\<\"DEFINE-TOTAL-ENERGY\"\>", "]"}], 
        "6.946473895121784`", "45.17856821142446`", "0.15375595487254076`", 
        "0.8778055015705117`"},
       {
        RowBox[{"t", "[", "\<\"DEFINE-VOLUME\"\>", "]"}], 
        "9.924883422799683`", "79.13011620156362`", "0.1254248559109732`", 
        "0.9001899238306708`"},
       {
        RowBox[{"t", "[", "\<\"DEFINE-WAVE-SPEED\"\>", "]"}], 
        "55.387015887744255`", "43.429653194631705`", "1.2753271512329412`", 
        "0.20222534492787747`"},
       {
        RowBox[{"t", "[", "\<\"DEFINE-WAVELENGTH\"\>", "]"}], 
        "79.62690809063837`", "39.01170988936905`", "2.041102743674848`", 
        "0.04126880139465117`"},
       {
        RowBox[{"t", "[", "\<\"DEFINE-WAVENUMBER\"\>", "]"}], 
        "70.7438736597909`", "121.20870154338988`", "0.5836534238795245`", 
        "0.5594676711306965`"},
       {
        RowBox[{"t", "[", "\<\"DEFINE-WIDTH\"\>", "]"}], 
        RowBox[{"-", "188.16900796075754`"}], "148.3691013772712`", 
        RowBox[{"-", "1.2682492932425575`"}], "0.20474070276479228`"},
       {
        RowBox[{"t", "[", "\<\"DEFINE-WNC\"\>", "]"}], "278.88127403774695`", 
        "64.89241118197945`", "4.297594571662209`", 
        "0.000017442068436679392`"},
       {
        RowBox[{"t", "[", "\<\"DEFINE-WORK\"\>", "]"}], "96.40056030298304`", 
        "36.819049669652784`", "2.6182251081412047`", 
        "0.008853181641492514`"},
       {
        RowBox[{"t", "[", "\<\"DRAW-ACCEL-CURVED-UNKNOWN\"\>", "]"}], 
        "31.295031826910094`", "82.55369925936812`", "0.3790869713613562`", 
        "0.7046319399753822`"},
       {
        RowBox[{"t", "[", "\<\"DRAW-ACCEL-FREE-FALL\"\>", "]"}], 
        "257.7176738463202`", "70.62006116557141`", "3.6493550075252887`", 
        "0.00026434031790545376`"},
       {
        RowBox[{"t", "[", "\<\"DRAW-ACCEL-GIVEN-DIR\"\>", "]"}], 
        RowBox[{"-", "61.82530270252872`"}], "22.30788853557374`", 
        RowBox[{"-", "2.7714547077791654`"}], "0.005591740647673953`"},
       {
        RowBox[{"t", "[", "\<\"DRAW-ACCEL-UNKNOWN-NET-FORCE\"\>", "]"}], 
        "148.70964494285133`", "75.25068333738284`", "1.9761899606428655`", 
        "0.04816278648984573`"},
       {
        RowBox[{"t", "[", "\<\"DRAW-ACCELERATING\"\>", "]"}], 
        "154.38234582328957`", "25.716837478121246`", "6.003162167767762`", 
        "2.0075576756539704`*^-9"},
       {
        RowBox[{"t", "[", "\<\"DRAW-ANG-ACCEL-UNKNOWN-DIR\"\>", "]"}], 
        RowBox[{"-", "188.1690079607395`"}], "148.36910137727142`", 
        RowBox[{"-", "1.2682492932424339`"}], "0.20474070276479228`"},
       {
        RowBox[{"t", "[", "\<\"DRAW-ANG-ACCELERATING\"\>", "]"}], 
        RowBox[{"-", "58.78544809578513`"}], "86.18626136182252`", 
        RowBox[{"-", "0.6820744648499746`"}], "0.49520886172091494`"},
       {
        RowBox[{"t", "[", "\<\"DRAW-ANG-DECELERATING\"\>", "]"}], 
        RowBox[{"-", "39.37318033071433`"}], "92.35745805550923`", 
        RowBox[{"-", "0.42631294926989033`"}], "0.6698896954547864`"},
       {
        RowBox[{"t", "[", "\<\"DRAW-ANG-DISPLACEMENT-ROTATING\"\>", "]"}], 
        "116.22313333949585`", "78.12642188450012`", "1.4876290317162717`", 
        "0.1368826743855054`"},
       {
        RowBox[{"t", "[", "\<\"DRAW-ANG-MOMENTUM-ROTATING\"\>", "]"}], 
        "50.61109702114785`", "58.48927937883897`", "0.8653055322042248`", 
        "0.386893447244526`"},
       {
        RowBox[{"t", "[", "\<\"DRAW-ANG-VELOCITY-AT-REST\"\>", "]"}], 
        "100.1870123184064`", "106.4146480921434`", "0.9414776453675386`", 
        "0.3464846070287739`"},
       {
        RowBox[{"t", "[", "\<\"DRAW-ANG-VELOCITY-ROTATING\"\>", "]"}], 
        "57.162998405785224`", "40.92259233058911`", "1.3968567275503858`", 
        "0.16249000759368926`"},
       {
        RowBox[{"t", "[", "\<\"DRAW-APPLIED-FORCE\"\>", "]"}], 
        RowBox[{"-", "45.033464753913655`"}], "13.822566179677825`", 
        RowBox[{"-", "3.2579670206334503`"}], "0.0011261630744913748`"},
       {
        RowBox[{"t", "[", "\<\"DRAW-AVG-VEL-FROM-DISPLACEMENT\"\>", "]"}], 
        RowBox[{"-", "166.31397699151742`"}], "192.52686536323324`", 
        RowBox[{"-", "0.8638481527122932`"}], "0.3876936020565277`"},
       {
        RowBox[{"t", "[", "\<\"DRAW-AVG-VEL-UNKNOWN\"\>", "]"}], 
        "325.92849621218437`", "232.49311385177873`", "1.4018845152548194`", 
        "0.1609831271886717`"},
       {
        RowBox[{"t", "[", "\<\"DRAW-BODY\"\>", "]"}], "31.103843024973056`", 
        "14.507675438897504`", "2.1439577385070563`", 
        "0.032062136192073876`"},
       {
        RowBox[{"t", "[", "\<\"DRAW-BUOYANT-FORCE\"\>", "]"}], 
        "28.903320042656627`", "78.27000036610956`", "0.36927711648729716`", 
        "0.7119295921553033`"},
       {
        RowBox[{"t", "[", "\<\"DRAW-CENTRIPETAL-ACCELERATION\"\>", "]"}], 
        "76.4552158138157`", "149.86337383442847`", "0.510166119029755`", 
        "0.6099472002664521`"},
       {
        RowBox[{"t", "[", "\<\"DRAW-COMPO-FORM-AXES\"\>", "]"}], 
        "179.07586486264753`", "28.718727820785034`", "6.235508271123426`", 
        "4.699174382949423`*^-10"},
       {
        RowBox[{"t", "[", "\<\"DRAW-DECELERATING\"\>", "]"}], 
        "175.55044021908463`", "53.288741532264886`", "3.2943251270588485`", 
        "0.0009902736287479286`"},
       {
        RowBox[{"t", "[", "\<\"DRAW-DISPLACEMENT-GIVEN-DIR\"\>", "]"}], 
        RowBox[{"-", "42.02211542765745`"}], "15.759124209344986`", 
        RowBox[{"-", "2.6665260625802287`"}], "0.0076772337853531995`"},
       {
        RowBox[{"t", "[", "\<\"DRAW-DISPLACEMENT-PROJECTILE\"\>", "]"}], 
        "202.06831733470182`", "51.777263182338004`", "3.9026457737463094`", 
        "0.00009581848249284874`"},
       {
        RowBox[{"t", "[", "\<\"DRAW-DISPLACEMENT-STRAIGHT\"\>", "]"}], 
        "344.5398557677212`", "36.14095826741122`", "9.533224139172793`", 
        "0.`"},
       {
        RowBox[{"t", "[", "\<\"DRAW-DISPLACEMENT-UNKNOWN\"\>", "]"}], 
        "334.66471321767415`", "95.778474519493`", "3.494153721873724`", 
        "0.000477781791591525`"},
       {
        RowBox[{"t", "[", "\<\"DRAW-DISPLACEMENT-ZERO\"\>", "]"}], 
        "348.90670969321803`", "423.2704130228712`", "0.8243115959876105`", 
        "0.4097836828635102`"},
       {
        RowBox[{"t", "[", "\<\"DRAW-DRAG\"\>", "]"}], 
        RowBox[{"-", "96.77979218262035`"}], "55.71299159631909`", 
        RowBox[{"-", "1.7371135422750215`"}], "0.08240025725792288`"},
       {
        RowBox[{"t", "[", "\<\"DRAW-ENERGY-AXES\"\>", "]"}], 
        RowBox[{"-", "118.1298989472657`"}], "48.727870354024155`", 
        RowBox[{"-", "2.4242778945398755`"}], "0.015357808685055863`"},
       {
        RowBox[{"t", "[", "\<\"DRAW-FORCE-COMPOUND\"\>", "]"}], 
        "174.37172362556777`", "80.13260783826809`", "2.176039546566397`", 
        "0.029577403023953508`"},
       {
        RowBox[{"t", "[", "\<\"DRAW-GRAV-FORCE\"\>", "]"}], 
        "297.31006955133626`", "101.71518812923617`", "2.922966324100815`", 
        "0.0034754998701471695`"},
       {
        RowBox[{"t", "[", "\<\"DRAW-IMPULSE-GIVEN-DIR\"\>", "]"}], 
        "513.4104794056527`", "129.23051290438093`", "3.9728270658921763`", 
        "0.0000715609707602205`"},
       {
        RowBox[{"t", "[", "\<\"DRAW-IMPULSE-GIVEN-FORCE\"\>", "]"}], 
        "57.85928858109701`", "128.18660692746187`", "0.4513676581972279`", 
        "0.6517351193597816`"},
       {
        RowBox[{
        "t", "[", "\<\"DRAW-IMPULSE-GIVEN-MOMENTA-UNKNOWN-DIR\"\>", "]"}], 
        "78.43286994975695`", "160.95262749748844`", "0.4873040668502342`", 
        "0.6260543580188882`"},
       {
        RowBox[{"t", "[", "\<\"DRAW-KINETIC-FRICTION\"\>", "]"}], 
        RowBox[{"-", "34.50823453710953`"}], "52.60086426970077`", 
        RowBox[{"-", "0.656039306886199`"}], "0.5118150723463603`"},
       {
        RowBox[{"t", "[", "\<\"DRAW-MOMENTUM-AT-REST\"\>", "]"}], 
        RowBox[{"-", "3.6540140261959273`"}], "59.96712042368924`", 
        RowBox[{"-", "0.06093362496613154`"}], "0.9514133803833874`"},
       {
        RowBox[{"t", "[", "\<\"DRAW-MOMENTUM-STRAIGHT\"\>", "]"}], 
        RowBox[{"-", "23.113027008998575`"}], "24.952250385072926`", 
        RowBox[{"-", "0.9262902805281795`"}], "0.35431919481153296`"},
       {
        RowBox[{"t", "[", "\<\"DRAW-MOMENTUM-STRAIGHT-UNKNOWN\"\>", "]"}], 
        "540.2253582954079`", "101.11667427889233`", "5.342594207612083`", 
        "9.379319454438928`*^-8"},
       {
        RowBox[{"t", "[", "\<\"DRAW-NET-FORCE-FROM-ACCEL\"\>", "]"}], 
        RowBox[{"-", "49.990398186152866`"}], "95.24673691946654`", 
        RowBox[{"-", "0.5248515571554013`"}], "0.5996989048060588`"},
       {
        RowBox[{"t", "[", "\<\"DRAW-NET-TORQUE-FROM-ANG-ACCEL\"\>", "]"}], 
        "47.99274507831575`", "114.39162876287507`", "0.4195477028987932`", 
        "0.6748255956825435`"},
       {
        RowBox[{"t", "[", "\<\"DRAW-NET-TORQUE-NON-ROTATING\"\>", "]"}], 
        RowBox[{"-", "142.13486744070775`"}], "90.70583747047104`", 
        RowBox[{"-", "1.5669869922867892`"}], "0.11715177286529643`"},
       {
        RowBox[{"t", "[", "\<\"DRAW-NET-TORQUE-UNKNOWN-DIR\"\>", "]"}], 
        RowBox[{"-", "91.25897828240885`"}], "98.34509499272757`", 
        RowBox[{"-", "0.9279464145024953`"}], "0.35345946137063633`"},
       {
        RowBox[{"t", "[", "\<\"DRAW-NORMAL\"\>", "]"}], "98.53849158348635`", 
        "20.0736482498864`", "4.908848175320796`", "9.317101077321865`*^-7"},
       {
        RowBox[{"t", "[", "\<\"DRAW-OPPOSITE-RELATIVE-POSITION\"\>", "]"}], 
        RowBox[{"-", "314.1456256899616`"}], "310.52637940974284`", 
        RowBox[{"-", "1.011655197497547`"}], "0.3117292773946956`"},
       {
        RowBox[{"t", "[", "\<\"DRAW-PRESSURE\"\>", "]"}], 
        "229.8182325737409`", "62.36835444536435`", "3.6848532339435898`", 
        "0.00023013498495538798`"},
       {
        RowBox[{"t", "[", "\<\"DRAW-REACTION-FORCE\"\>", "]"}], 
        "286.42351747823795`", "45.14487985306228`", "6.344540475254121`", 
        "2.3349722155785457`*^-10"},
       {
        RowBox[{"t", "[", "\<\"DRAW-REL-VEL-VECTOR-UNKNOWN\"\>", "]"}], 
        "450.92352707461305`", "111.46300776395148`", "4.045499364502591`", 
        "0.000052634096213921566`"},
       {
        RowBox[{"t", "[", "\<\"DRAW-RELATIVE-POSITION\"\>", "]"}], 
        "141.61691578166523`", "30.063090107823236`", "4.710657330093045`", 
        "2.5049932261822505`*^-6"},
       {
        RowBox[{"t", "[", "\<\"DRAW-RELATIVE-POSITION-UNKNOWN\"\>", "]"}], 
        "167.58713463047854`", "83.37167460080839`", "2.0101207686291764`", 
        "0.04444724578123127`"},
       {
        RowBox[{"t", "[", "\<\"DRAW-RELATIVE-VEL-GIVEN-DIR\"\>", "]"}], 
        "12.95398717962727`", "31.378713008252177`", "0.41282723023791784`", 
        "0.6797427214671565`"},
       {
        RowBox[{"t", "[", "\<\"DRAW-ROTATE-AXES\"\>", "]"}], 
        "154.76795600009135`", "22.260295484990998`", "6.952646073563741`", 
        "3.8264946766730645`*^-12"},
       {
        RowBox[{"t", "[", "\<\"DRAW-SOUGHT-VECTOR-UNKNOWN\"\>", "]"}], 
        "289.94425255048117`", "98.19551396626771`", "2.9527240180247265`", 
        "0.00315771425075706`"},
       {
        RowBox[{"t", "[", "\<\"DRAW-SPRING-FORCE\"\>", "]"}], 
        RowBox[{"-", "28.991693478540782`"}], "52.67135598832762`", 
        RowBox[{"-", "0.5504261839198817`"}], "0.5820403207149651`"},
       {
        RowBox[{"t", "[", "\<\"DRAW-STATIC-FRICTION\"\>", "]"}], 
        "121.69284968020598`", "32.60534781851585`", "3.7322972402428816`", 
        "0.00019087294901831697`"},
       {
        RowBox[{"t", "[", "\<\"DRAW-TENSION\"\>", "]"}], 
        RowBox[{"-", "1.041880562857934`"}], "14.63144221770887`", 
        RowBox[{"-", "0.07120832979792757`"}], "0.9432334840038671`"},
       {
        RowBox[{"t", "[", "\<\"DRAW-THRUST-FORCE\"\>", "]"}], 
        "23.635754511344317`", "79.80367209538365`", "0.29617377109031`", 
        "0.7671039950399694`"},
       {
        RowBox[{
        "t", "[", "\<\"DRAW-THRUST-FORCE-GIVEN-RELATIVE-VEL\"\>", "]"}], 
        RowBox[{"-", "92.58596352614104`"}], "102.8517149336221`", 
        RowBox[{"-", "0.9001888163546293`"}], "0.36804309792016654`"},
       {
        RowBox[{"t", "[", "\<\"DRAW-TORQUE\"\>", "]"}], "113.2526653679691`", 
        "51.49686557048506`", "2.1992147310977077`", 
        "0.027887196608659792`"},
       {
        RowBox[{"t", "[", "\<\"DRAW-UNROTATED-AXES\"\>", "]"}], 
        "3.3417271555162835`", "38.21976443592111`", "0.08743453040164575`", 
        "0.9303280066315607`"},
       {
        RowBox[{"t", "[", "\<\"DRAW-UNROTATED-AXES-FOR-ZCOMPS\"\>", "]"}], 
        "22.965821415418077`", "63.0890636210936`", "0.3640222266310438`", 
        "0.715849691762569`"},
       {
        RowBox[{"t", "[", "\<\"DRAW-VECTOR-GIVEN-COMPOS\"\>", "]"}], 
        "114.14234776410501`", "46.828975425907174`", "2.4374299613857895`", 
        "0.014810700335526672`"},
       {
        RowBox[{"t", "[", "\<\"DRAW-VELOCITY-AT-REST\"\>", "]"}], 
        RowBox[{"-", "17.114080944541893`"}], "42.246800299636824`", 
        RowBox[{"-", "0.40509768368633153`"}], "0.685415031728092`"},
       {
        RowBox[{"t", "[", "\<\"DRAW-VELOCITY-CURVED\"\>", "]"}], 
        "1.0068182396422907`", "28.441950603125978`", "0.03539905731822887`", 
        "0.9717622965420558`"},
       {
        RowBox[{"t", "[", "\<\"DRAW-VELOCITY-CURVED-UNKNOWN\"\>", "]"}], 
        "171.7925669584129`", "53.54343760785025`", "3.2084710028633943`", 
        "0.00133895493809022`"},
       {
        RowBox[{"t", "[", "\<\"DRAW-VELOCITY-MOMENTARILY-AT-REST\"\>", "]"}], 
        "64.61697431961359`", "28.007295188351964`", "2.307147972878414`", 
        "0.021068441585193387`"},
       {
        RowBox[{"t", "[", "\<\"DRAW-VELOCITY-STRAIGHT\"\>", "]"}], 
        "54.58520164243349`", "15.945285003840045`", "3.42328165531616`", 
        "0.0006213685728049256`"},
       {
        RowBox[{"t", "[", "\<\"DRAW-VELOCITY-STRAIGHT-UNKNOWN\"\>", "]"}], 
        RowBox[{"-", "176.86651488227494`"}], "80.14866084493103`", 
        RowBox[{"-", "2.2067307552957174`"}], "0.027357231484493025`"},
       {
        RowBox[{"t", "[", "\<\"DRAW-WEIGHT\"\>", "]"}], 
        RowBox[{"-", "54.9102515199832`"}], "24.459315068752016`", 
        RowBox[{"-", "2.2449627622702226`"}], "0.024793940279273556`"},
       {
        RowBox[{"t", "[", "\<\"DRAW-WEIGHT-AT-CM\"\>", "]"}], 
        "13.959044842787812`", "262.8326817203151`", "0.053110004248413355`", 
        "0.9576454017963953`"},
       {
        RowBox[{"t", "[", "\<\"DRAW-ZERO-RELATIVE-POSITION\"\>", "]"}], 
        "99.70006930174071`", "101.47617971278918`", "0.9824972676733059`", 
        "0.32588050053032136`"},
       {
        RowBox[{"t", "[", "\<\"DRAW-ZERO-RELATIVE-VEL\"\>", "]"}], 
        "17.266408343456202`", "35.32189991963252`", "0.4888301134067603`", 
        "0.6249735098346454`"},
       {
        RowBox[{"t", "[", "\<\"FREQUENCY-OF-WAVE\"\>", "]"}], 
        "87.13531000985901`", "102.65879785179608`", "0.8487856066233345`", 
        "0.3960224589676904`"},
       {
        RowBox[{"t", "[", "\<\"GIVEN-FRACTION\"\>", "]"}], 
        RowBox[{"-", "67.37803936995448`"}], "55.61394527291168`", 
        RowBox[{"-", "1.2115313711212794`"}], "0.22572261779079383`"},
       {
        RowBox[{"t", "[", "\<\"KINETIC-FRICTION-LAW\"\>", "]"}], 
        "152.48624928810446`", "394.55644177451904`", "0.3864751228044763`", 
        "0.6991536697377136`"},
       {
        RowBox[{"t", "[", "\<\"MAKE-DOPPLER-FREQUENCY\"\>", "]"}], 
        "29.17955144859935`", "55.95381717900815`", "0.5214934908774457`", 
        "0.6020354636153857`"},
       {
        RowBox[{"t", "[", "\<\"MASS-PER-LENGTH\"\>", "]"}], 
        RowBox[{"-", "279.4653425193224`"}], "158.67141317615497`", 
        RowBox[{"-", "1.7612835035953425`"}], "0.07822330477664467`"},
       {
        RowBox[{"t", "[", "\<\"MASS-PER-LENGTH-EQUATION\"\>", "]"}], 
        "60.27057200889109`", "108.49465804634448`", "0.5555164935691669`", 
        "0.5785548012822499`"},
       {
        RowBox[{
        "t", "[", "\<\"MAX-TRANSVERSE-ABS-ACCELERATION-WAVE\"\>", "]"}], 
        "96.89875113793751`", "211.20995633258562`", "0.4587792773620677`", 
        "0.6464034043829014`"},
       {
        RowBox[{"t", "[", "\<\"MAX-TRANSVERSE-SPEED-WAVE\"\>", "]"}], 
        "219.98447769628373`", "301.4873881351074`", "0.7296639473280413`", 
        "0.46561401049147877`"},
       {
        RowBox[{"t", "[", "\<\"NTL\"\>", "]"}], 
        RowBox[{"-", "183.20880317884843`"}], "113.42084171107709`", 
        RowBox[{"-", "1.6153010365197773`"}], "0.10627945909893255`"},
       {
        RowBox[{"t", "[", "\<\"OPPOSITE-RELATIVE-POSITION\"\>", "]"}], 
        "135.236688095056`", "149.78342886911148`", "0.9028815077616685`", 
        "0.3666121828708335`"},
       {
        RowBox[{"t", "[", "\<\"PENDULUM-OSCILLATION\"\>", "]"}], 
        RowBox[{"-", "78.67963883015751`"}], "89.89479066070773`", 
        RowBox[{"-", "0.8752413599484329`"}], "0.38146520866315226`"},
       {
        RowBox[{"t", "[", "\<\"PERIOD-OF-WAVE\"\>", "]"}], 
        RowBox[{"-", "17.927385316959736`"}], "56.478241084592`", 
        RowBox[{"-", "0.31742109833251453`"}], "0.750931229903744`"},
       {
        RowBox[{"t", "[", "\<\"PRESSURE-AT-OPEN-TO-ATMOSPHERE\"\>", "]"}], 
        "120.78214842520681`", "73.81914636287135`", "1.6361899910286193`", 
        "0.10183368677098725`"},
       {
        RowBox[{"t", "[", "\<\"PRESSURE-FORCE\"\>", "]"}], 
        RowBox[{"-", "165.8104787443245`"}], "69.82699801085897`", 
        RowBox[{"-", "2.374589821526323`"}], "0.017588642986644053`"},
       {
        RowBox[{"t", "[", "\<\"PRESSURE-HEIGHT-FLUID\"\>", "]"}], 
        "125.97057139645449`", "112.02669048480286`", "1.1244692746997038`", 
        "0.26084303537783926`"},
       {
        RowBox[{"t", "[", "\<\"SDD-CONSTVEL-COMPO\"\>", "]"}], 
        "113.24164967521361`", "32.62585656407294`", "3.4709172907942425`", 
        "0.0005210397882753348`"},
       {
        RowBox[{"t", "[", "\<\"SELECT-MC-ANSWER\"\>", "]"}], 
        "19.977677401064547`", "5.983391501319351`", "3.3388551286773436`", 
        "0.0008445517537758462`"},
       {
        RowBox[{"t", "[", "\<\"SPEED-EQUALS-WAVE-SPEED\"\>", "]"}], 
        RowBox[{"-", "142.70364227603187`"}], "119.36584832198037`", 
        RowBox[{"-", "1.1955148334480026`"}], "0.23191644338898587`"},
       {
        RowBox[{"t", "[", "\<\"SPRING-LAW-COMPRESSION\"\>", "]"}], 
        RowBox[{"-", "60.19535876675973`"}], "87.45749721326243`", 
        RowBox[{"-", "0.6882812873089107`"}], "0.4912928398994869`"},
       {
        RowBox[{"t", "[", "\<\"SPRING-MASS-OSCILLATION\"\>", "]"}], 
        "113.86477552438338`", "92.39348827135294`", "1.2323896159215337`", 
        "0.2178347494880728`"},
       {
        RowBox[{"t", "[", "\<\"STATIC-FRICTION-LAW\"\>", "]"}], 
        RowBox[{"-", "254.96542338374277`"}], "389.4776090770996`", 
        RowBox[{"-", "0.6546343549450893`"}], "0.5127193973007974`"},
       {
        RowBox[{"t", "[", "\<\"USE-CONST-VX\"\>", "]"}], 
        RowBox[{"-", "51.427623544893486`"}], "80.9605051968608`", 
        RowBox[{"-", "0.6352186590219989`"}], "0.5253014519586735`"},
       {
        RowBox[{"t", "[", "\<\"WAVE-SPEED-STRING\"\>", "]"}], 
        "258.770687277964`", "130.42188919793753`", "1.984104730190154`", 
        "0.04727352975249177`"},
       {
        RowBox[{"t", "[", "\<\"WAVENUMBER-LAMBDA-WAVE\"\>", "]"}], 
        "158.46416594510222`", "128.8145524121262`", "1.2301728568532828`", 
        "0.2186635147120617`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-ANG-MOMENTUM\"\>", "]"}], 
        RowBox[{"-", "0.9541562910433874`"}], "41.01369014435723`", 
        RowBox[{"-", "0.023264336558963903`"}], "0.981439918681235`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-ANG-SDD\"\>", "]"}], 
        RowBox[{"-", "20.35942133354234`"}], "85.76473606744355`", 
        RowBox[{"-", "0.23738685929765035`"}], "0.8123619150091722`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-ARCHIMEDES\"\>", "]"}], 
        "38.12194138832954`", "91.06013467803582`", "0.4186457830654269`", 
        "0.6754846972886797`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-AVG-ACCEL-COMPO\"\>", "]"}], 
        RowBox[{"-", "78.41954062825346`"}], "29.653132127867014`", 
        RowBox[{"-", "2.644561805144267`"}], "0.008193424280253216`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-AVG-VEL-COMPO\"\>", "]"}], 
        "99.07894741011046`", "113.95350367697318`", "0.8694681972304423`", 
        "0.3846135466557927`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-BEAT-FREQUENCY\"\>", "]"}], 
        RowBox[{"-", "86.13017173628502`"}], "137.11177788102322`", 
        RowBox[{"-", "0.6281748589900369`"}], "0.529904831565679`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-CENTER-OF-MASS-COMPO\"\>", "]"}], 
        RowBox[{"-", "254.72082476879282`"}], "94.22542412695032`", 
        RowBox[{"-", "2.7033131145751743`"}], "0.00687768675900188`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-CENTRIPETAL-ACCEL\"\>", "]"}], 
        "13.730870810228994`", "145.0367088385115`", "0.09467169325744551`", 
        "0.924577643151582`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-CHANGE-ME-TOP\"\>", "]"}], 
        "333.7881369380044`", "116.40400139590787`", "2.8674971043541686`", 
        "0.0041466310912463555`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-CONNECTED-ACCELS\"\>", "]"}], 
        "221.3658857170661`", "146.501816523431`", "1.5110112008861105`", 
        "0.13081959094681528`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-CONNECTED-VELOCITIES\"\>", "]"}], 
        "65.62506804481595`", "128.21863342633083`", "0.5118216150893655`", 
        "0.6087880203497709`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-CONS-ANGMOM\"\>", "]"}], 
        RowBox[{"-", "56.67641859521217`"}], "124.02744028209803`", 
        RowBox[{"-", "0.45696676853366275`"}], "0.6477056102846876`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-CONS-ANGMOM-JOIN\"\>", "]"}], 
        RowBox[{"-", "65.35417105169981`"}], "130.89290649337912`", 
        RowBox[{"-", "0.49929497940368206`"}], "0.6175834086621865`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-CONS-KE-ELASTIC\"\>", "]"}], 
        "304.5657708847064`", "161.3686888372942`", "1.887390751447425`", 
        "0.05913891611212119`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-CONS-LINMOM-COMPO\"\>", "]"}], 
        RowBox[{"-", "93.6079572207382`"}], "61.275331267784736`", 
        RowBox[{"-", "1.527661381570567`"}], "0.1266306594546701`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-CONS-LINMOM-COMPO-JOIN\"\>", "]"}], 
        RowBox[{"-", "267.5777118769303`"}], "110.74002909945007`", 
        RowBox[{"-", "2.416269112920606`"}], "0.01569961157443527`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-CONS-LINMOM-COMPO-SPLIT\"\>", "]"}], 
        RowBox[{"-", "259.4822692207756`"}], "60.91670714411763`", 
        RowBox[{"-", "4.25962402411031`"}], "0.000020678763468578787`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-DENSITY\"\>", "]"}], 
        RowBox[{"-", "138.11796459042034`"}], "78.83365593069128`", 
        RowBox[{"-", "1.7520177512996538`"}], "0.07980372952973264`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-DISPLACEMENT-DISTANCE\"\>", "]"}], 
        "108.64283207073524`", "77.49770461725949`", "1.4018845152549129`", 
        "0.1609831271886717`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-ENERGY-CONS\"\>", "]"}], 
        "104.03929472074425`", "60.058907322840334`", "1.7322875050238922`", 
        "0.08325555818198938`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-EQUALITY\"\>", "]"}], 
        "88.82702552815353`", "30.021900334141634`", "2.9587409370997504`", 
        "0.0030967718848133874`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-FORCE-COMPOUND\"\>", "]"}], 
        RowBox[{"-", "153.91860672942565`"}], "77.0469108399478`", 
        RowBox[{"-", "1.9977258666368347`"}], "0.045775478939206346`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-FREE-FALL-ACCEL\"\>", "]"}], 
        RowBox[{"-", "425.2527667111303`"}], "84.45990425392385`", 
        RowBox[{"-", "5.034966241882447`"}], "4.869035524628001`*^-7"},
       {
        RowBox[{"t", "[", "\<\"WRITE-G-ON-EARTH\"\>", "]"}], 
        "13.246584243276601`", "26.9870036555232`", "0.4908505002023645`", 
        "0.623543777173563`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-GRAV-ENERGY\"\>", "]"}], 
        "201.76204375347308`", "40.43835058435359`", "4.989373721675455`", 
        "6.16728101920927`*^-7"},
       {
        RowBox[{"t", "[", "\<\"WRITE-HARMONIC-OF\"\>", "]"}], 
        "17.07425846518249`", "31.491607701045805`", "0.5421844012306641`", 
        "0.5877044775011091`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-HEIGHT-DY-COMPO\"\>", "]"}], 
        RowBox[{"-", "312.4160415439741`"}], "64.5463024555112`", 
        RowBox[{"-", "4.840184947221541`"}], "1.3180733209385376`*^-6"},
       {
        RowBox[{"t", "[", "\<\"WRITE-I-COMPOUND\"\>", "]"}], 
        "61.47784595715481`", "156.67765571776053`", "0.3923842597434642`", 
        "0.6947833113241362`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-I-HOOP-CM\"\>", "]"}], 
        RowBox[{"-", "21.842952487710416`"}], "120.25972329986752`", 
        RowBox[{"-", "0.18163148798575757`"}], "0.8558758965038675`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-I-RECT-CM\"\>", "]"}], 
        RowBox[{"-", "188.1690079607532`"}], "148.36910137727136`", 
        RowBox[{"-", "1.2682492932425267`"}], "0.20474070276479228`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-I-ROD-CM\"\>", "]"}], 
        "48.079958148732025`", "102.06734775300083`", "0.4710611102101303`", 
        "0.6376081506522207`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-I-ROD-END\"\>", "]"}], 
        RowBox[{"-", "2154.6937765458`"}], "625.818621162438`", 
        RowBox[{"-", "3.443000421661352`"}], "0.0005778340982338068`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-IMPLICIT-EQN\"\>", "]"}], 
        "36.62672675478278`", "9.268601880535728`", "3.951699212769051`", 
        "0.0000781725014409318`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-IMPULSE-COMPO\"\>", "]"}], 
        "247.88053984480354`", "156.85740754704065`", "1.5802922139361864`", 
        "0.11407398806337854`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-IMPULSE-MOMENTUM-COMPO\"\>", "]"}], 
        RowBox[{"-", "305.30400480795424`"}], "83.45673234039985`", 
        RowBox[{"-", "3.658230992829829`"}], "0.0002553666310216523`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-INST-POWER\"\>", "]"}], 
        "129.98779421272337`", "106.69620520766799`", "1.2182981949519371`", 
        "0.2231415976699025`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-INTENSITY-TO-DECIBELS\"\>", "]"}], 
        RowBox[{"-", "16.50416303698225`"}], "78.7796509962078`", 
        RowBox[{"-", "0.20949779325344695`"}], "0.8340642491176975`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-INTENSITY-TO-POWER\"\>", "]"}], 
        RowBox[{"-", "89.74192529919029`"}], "138.4660942591922`", 
        RowBox[{"-", "0.6481148022504627`"}], "0.5169267098641117`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-KINETIC-ENERGY\"\>", "]"}], 
        RowBox[{"-", "99.5629556100257`"}], "31.928957645915947`", 
        RowBox[{"-", "3.1182651408214968`"}], "0.0018247472258962995`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-KNOWN-VALUE-EQN\"\>", "]"}], 
        "39.18697542039597`", "8.058351989359522`", "4.862901927359287`", 
        "1.1757414335455962`*^-6"},
       {
        RowBox[{"t", "[", "\<\"WRITE-LINEAR-VEL\"\>", "]"}], 
        "67.14495995400334`", "76.48332784268663`", "0.8779032221520127`", 
        "0.3800189316260567`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-LK-NO-S-COMPO\"\>", "]"}], 
        "33.49843439619126`", "35.571074544148644`", "0.941732427976418`", 
        "0.34635412234648166`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-LK-NO-T-COMPO\"\>", "]"}], 
        "350.9433036599756`", "47.922163853925724`", "7.323194017901734`", 
        "2.62234678416462`*^-13"},
       {
        RowBox[{"t", "[", "\<\"WRITE-LK-NO-VF-COMPO\"\>", "]"}], 
        "95.05976462674579`", "53.584741300548444`", "1.7740080911013534`", 
        "0.07609454217734646`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-MAG-TORQUE\"\>", "]"}], 
        RowBox[{"-", "28.130415906844693`"}], "38.91776400393648`", 
        RowBox[{"-", "0.7228168582346954`"}], "0.46981059503347133`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-MASS-COMPOUND\"\>", "]"}], 
        "245.53101089573167`", "59.00334549840226`", "4.161306597477262`", 
        "0.000031928228250377444`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-MOMENTUM-COMPO\"\>", "]"}], 
        "93.43381259011788`", "20.94393778998374`", "4.461138756571451`", 
        "8.248375684694054`*^-6"},
       {
        RowBox[{"t", "[", "\<\"WRITE-NET-INTENSITY\"\>", "]"}], 
        "2.5202145706212065`", "156.68915628972172`", "0.016084167087869652`",
         "0.98716758992182`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-NET-POWER\"\>", "]"}], 
        RowBox[{"-", "295.6446699858031`"}], "228.66820646220495`", 
        RowBox[{"-", "1.2928980139382353`"}], "0.19607846901600867`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-NET-TORQUE\"\>", "]"}], 
        "73.5505365283352`", "95.43846500506938`", "0.7706592569822706`", 
        "0.44092851525236343`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-NFL-COMPO\"\>", "]"}], 
        "38.4279578064109`", "15.243323382661483`", "2.5209697939047055`", 
        "0.011719781239571736`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-NL-ROTATION\"\>", "]"}], 
        RowBox[{"-", "55.46927590199965`"}], "135.70666533292544`", 
        RowBox[{"-", "0.4087439313752084`"}], "0.6827370070671468`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-NSL-COMPO\"\>", "]"}], 
        RowBox[{"-", "93.62983915961644`"}], "22.69538781890273`", 
        RowBox[{"-", "4.1255007363933744`"}], "0.000037315327303485324`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-NSL-NET-COMPO\"\>", "]"}], 
        "101.96227728513794`", "110.93480985889276`", "0.9191188718386254`", 
        "0.35805724961361984`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-NTL-VECTOR\"\>", "]"}], 
        "169.54183426447955`", "85.43274108673542`", "1.9845065499227346`", 
        "0.04722875448120667`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-NULL-SPRING-ENERGY\"\>", "]"}], 
        "228.35734490145322`", "65.82679312520106`", "3.4690637969728035`", 
        "0.0005246430613996544`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-PERIOD-CIRCULAR\"\>", "]"}], 
        "140.31363850799394`", "105.43884485809457`", "1.3307584950957665`", 
        "0.18330113192050046`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-POWER\"\>", "]"}], 
        RowBox[{"-", "38.891349705856626`"}], "101.8105072482504`", 
        RowBox[{"-", "0.3819974063288538`"}], "0.7024720212614919`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-PYTH-THM\"\>", "]"}], 
        RowBox[{"-", "157.87546941435804`"}], "112.20153756304309`", 
        RowBox[{"-", "1.4070704630553923`"}], "0.1594399313371404`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-RELATIVE-VEL-COMPO\"\>", "]"}], 
        RowBox[{"-", "23.646694616028004`"}], "52.29127685621926`", 
        RowBox[{"-", "0.45221107683117484`"}], "0.6511274818583029`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-RK-NO-S\"\>", "]"}], 
        "10.35899367652795`", "80.31101776888515`", "0.128985959390261`", 
        "0.8973715495496659`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-RK-NO-T\"\>", "]"}], 
        RowBox[{"-", "17.034760016968693`"}], "122.34513601107386`", 
        RowBox[{"-", "0.13923528611245176`"}], "0.8892672422771223`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-RK-NO-VF\"\>", "]"}], 
        "63.516788716938294`", "127.76324568638825`", "0.497144451643383`", 
        "0.6190989485719482`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-ROLLING-VEL\"\>", "]"}], 
        RowBox[{"-", "1256.2223758072132`"}], "607.7291588011443`", 
        RowBox[{"-", "2.067076028218457`"}], "0.038754611013837335`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-ROTATIONAL-ENERGY\"\>", "]"}], 
        "141.80327488866715`", "58.806403712073255`", "2.4113577083026794`", 
        "0.01591251818654027`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-SDD\"\>", "]"}], 
        RowBox[{"-", "33.4898684049487`"}], "64.34725541488469`", 
        RowBox[{"-", "0.5204552733293717`"}], "0.6027586902027565`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-SPEED-OF-WAVE\"\>", "]"}], 
        RowBox[{"-", "24.926538365403466`"}], "40.93758607808634`", 
        RowBox[{"-", "0.6088912599257166`"}], "0.542611398170628`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-SPRING-ENERGY\"\>", "]"}], 
        "54.981525639599994`", "32.58243702279669`", "1.6874589706451828`", 
        "0.09154868434909247`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-SUM-DISP-COMPO\"\>", "]"}], 
        RowBox[{"-", "104.2662782769095`"}], "43.90962590350519`", 
        RowBox[{"-", "2.3745653972557808`"}], "0.017589805984734648`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-SUM-DISTANCES\"\>", "]"}], 
        RowBox[{"-", "151.80153817110977`"}], "162.45280274504992`", 
        RowBox[{"-", "0.9344347133816089`"}], "0.35010397225364387`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-SUM-TIMES\"\>", "]"}], 
        "273.6057150473389`", "80.9611041307471`", "3.3794711421608437`", 
        "0.0007292409125279065`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-TENSIONS-EQUAL\"\>", "]"}], 
        RowBox[{"-", "146.99272139557524`"}], "110.90816082083627`", 
        RowBox[{"-", "1.3253553237893003`"}], "0.18508590263138092`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-THRUST-FORCE\"\>", "]"}], 
        "114.51779788251626`", "121.12666352080348`", "0.9454383911338221`", 
        "0.3444596855475264`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-THRUST-FORCE-COMPO\"\>", "]"}], 
        "168.63129101917556`", "124.31811962532737`", "1.3564498202466397`", 
        "0.17498903619882578`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-TIMELESS-BEAT-FREQUENCY\"\>", "]"}], 
        RowBox[{"-", "5.930290998968702`"}], "90.5296965053038`", 
        RowBox[{"-", "0.0655065821260239`"}], "0.9477720745762531`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-TORQUE-ZC\"\>", "]"}], 
        RowBox[{"-", "6.432478081094094`"}], "41.055526167966036`", 
        RowBox[{"-", "0.1566775214322572`"}], "0.875502406336968`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-TOTAL-ENERGY-TOP\"\>", "]"}], 
        "18.783650580568374`", "41.27613348148692`", "0.4550729197780401`", 
        "0.6490674080283843`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-UG\"\>", "]"}], 
        RowBox[{"-", "154.063933953398`"}], "107.3529349529954`", 
        RowBox[{"-", "1.435116180296841`"}], "0.15128763991925298`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-UG-CIRCULAR\"\>", "]"}], 
        RowBox[{"-", "82.90638915170156`"}], "112.55309911644758`", 
        RowBox[{"-", "0.736598012871476`"}], "0.46138543376340246`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-VALUE-OF-ATMOSPHERE\"\>", "]"}], 
        "119.2595358497188`", "98.80943507344564`", "1.2069650611914995`", 
        "0.22747631421764924`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-VOLUME-COMPOUND\"\>", "]"}], 
        "126.77313685044054`", "151.96881764954773`", "0.834204929742821`", 
        "0.40418695148212125`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-WAVE-SPEED-LIGHT\"\>", "]"}], 
        "83.44235470231928`", "132.23092347685775`", "0.6310351051652668`", 
        "0.5280330869824996`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-WNC\"\>", "]"}], 
        RowBox[{"-", "329.05391649683975`"}], "106.47415629117515`", 
        RowBox[{"-", "3.0904580788315914`"}], "0.0020043867821533425`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-WORK\"\>", "]"}], 
        RowBox[{"-", "104.81621114510921`"}], "43.04025888110711`", 
        RowBox[{"-", "2.435306242805133`"}], "0.014897864201702964`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-WORK-DELTA-KE\"\>", "]"}], 
        "118.85621428035596`", "62.53414110200698`", "1.9006611778112577`", 
        "0.057377312332718144`"},
       {
        RowBox[{"t", "[", "\<\"WRITE-ZERO-WORK\"\>", "]"}], 
        RowBox[{"-", "12.454158325021035`"}], "62.415645164823886`", 
        RowBox[{"-", "0.1995358422096377`"}], "0.8418479736973942`"},
       {
        RowBox[{"t", "[", "\<\"WT-LAW\"\>", "]"}], "70.81055487826384`", 
        "30.27136650551624`", "2.339192545713465`", "0.01934653795624941`"},
       {
        RowBox[{"t", "[", "\<\"WT-LAW-CM\"\>", "]"}], "238.35840779790874`", 
        "258.57103750960937`", "0.9218294906251847`", "0.3566414478039186`"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[2.0999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     Function[BoxForm`e$, 
      TableForm[BoxForm`e$, TableHeadings -> {{
          t["ACCEL-AT-REST"], 
          t["ACCEL-CONSTANT-SPEED"], 
          t["APPLY-NET-WORK"], 
          t["AREA-OF-CIRCLE"], 
          t["AVG-ACCEL-UNKNOWN"], 
          t["BERNOULLI"], 
          t["CIRCUMFERENCE-OF-CIRCLE-R"], 
          t["COMPO-GENERAL-CASE"], 
          t["COMPO-GENERAL-CASE-UNKNOWN"], 
          t["COMPO-PARALLEL-AXIS"], 
          t["COMPO-PERPENDICULAR"], 
          t["COMPO-Z-AXIS"], 
          t["COMPO-ZERO-VECTOR"], 
          t["CONTINUITY"], 
          t["DEFINE-AMPLITUDE"], 
          t["DEFINE-AMPLITUDE-MAX-ABS-ACCELERATION"], 
          t["DEFINE-AMPLITUDE-MAX-SPEED"], 
          t["DEFINE-ANGLE-BETWEEN-KNOWN"], 
          t["DEFINE-ANGULAR-FREQUENCY"], 
          t["DEFINE-AREA"], 
          t["DEFINE-AREA-AT"], 
          t["DEFINE-CHANGING-MASS"], 
          t["DEFINE-CHANGING-MOMENT-OF-INERTIA"], 
          t["DEFINE-CIRCUMFERENCE-OF-CIRCLE"], 
          t["DEFINE-COEF-FRICTION"], 
          t["DEFINE-COMPRESSION"], 
          t["DEFINE-DB-INTENSITY"], 
          t["DEFINE-DISTANCE"], 
          t["DEFINE-DURATION"], 
          t["DEFINE-FREQUENCY"], 
          t["DEFINE-GRAV-ENERGY"], 
          t["DEFINE-HEIGHT"], 
          t["DEFINE-INTENSITY"], 
          t["DEFINE-KINETIC-ENERGY"], 
          t["DEFINE-MASS"], 
          t["DEFINE-MASS-CHANGE-MAGNITUDE"], 
          t["DEFINE-MASS-DENSITY"], 
          t["DEFINE-MOMENT-OF-INERTIA"], 
          t["DEFINE-NET-DB-INTENSITY"], 
          t["DEFINE-NET-INTENSITY"], 
          t["DEFINE-NET-POWER-OUT"], 
          t["DEFINE-NET-POWER-VAR"], 
          t["DEFINE-NET-WORK"], 
          t["DEFINE-OBSERVED-FREQUENCY"], 
          t["DEFINE-PERIOD-VAR"], 
          t["DEFINE-POWER-VAR"], 
          t["DEFINE-PRESSURE"], 
          t["DEFINE-RADIUS-OF-CIRCLE"], 
          t["DEFINE-REVOLUTION-RADIUS"], 
          t["DEFINE-ROTATIONAL-ENERGY"], 
          t["DEFINE-SHAPE-LENGTH"], 
          t["DEFINE-SPEED"], 
          t["DEFINE-SPRING-CONSTANT"], 
          t["DEFINE-SPRING-ENERGY"], 
          t["DEFINE-STRING-TENSION"], 
          t["DEFINE-TOTAL-ENERGY"], 
          t["DEFINE-VOLUME"], 
          t["DEFINE-WAVE-SPEED"], 
          t["DEFINE-WAVELENGTH"], 
          t["DEFINE-WAVENUMBER"], 
          t["DEFINE-WIDTH"], 
          t["DEFINE-WNC"], 
          t["DEFINE-WORK"], 
          t["DRAW-ACCEL-CURVED-UNKNOWN"], 
          t["DRAW-ACCEL-FREE-FALL"], 
          t["DRAW-ACCEL-GIVEN-DIR"], 
          t["DRAW-ACCEL-UNKNOWN-NET-FORCE"], 
          t["DRAW-ACCELERATING"], 
          t["DRAW-ANG-ACCEL-UNKNOWN-DIR"], 
          t["DRAW-ANG-ACCELERATING"], 
          t["DRAW-ANG-DECELERATING"], 
          t["DRAW-ANG-DISPLACEMENT-ROTATING"], 
          t["DRAW-ANG-MOMENTUM-ROTATING"], 
          t["DRAW-ANG-VELOCITY-AT-REST"], 
          t["DRAW-ANG-VELOCITY-ROTATING"], 
          t["DRAW-APPLIED-FORCE"], 
          t["DRAW-AVG-VEL-FROM-DISPLACEMENT"], 
          t["DRAW-AVG-VEL-UNKNOWN"], 
          t["DRAW-BODY"], 
          t["DRAW-BUOYANT-FORCE"], 
          t["DRAW-CENTRIPETAL-ACCELERATION"], 
          t["DRAW-COMPO-FORM-AXES"], 
          t["DRAW-DECELERATING"], 
          t["DRAW-DISPLACEMENT-GIVEN-DIR"], 
          t["DRAW-DISPLACEMENT-PROJECTILE"], 
          t["DRAW-DISPLACEMENT-STRAIGHT"], 
          t["DRAW-DISPLACEMENT-UNKNOWN"], 
          t["DRAW-DISPLACEMENT-ZERO"], 
          t["DRAW-DRAG"], 
          t["DRAW-ENERGY-AXES"], 
          t["DRAW-FORCE-COMPOUND"], 
          t["DRAW-GRAV-FORCE"], 
          t["DRAW-IMPULSE-GIVEN-DIR"], 
          t["DRAW-IMPULSE-GIVEN-FORCE"], 
          t["DRAW-IMPULSE-GIVEN-MOMENTA-UNKNOWN-DIR"], 
          t["DRAW-KINETIC-FRICTION"], 
          t["DRAW-MOMENTUM-AT-REST"], 
          t["DRAW-MOMENTUM-STRAIGHT"], 
          t["DRAW-MOMENTUM-STRAIGHT-UNKNOWN"], 
          t["DRAW-NET-FORCE-FROM-ACCEL"], 
          t["DRAW-NET-TORQUE-FROM-ANG-ACCEL"], 
          t["DRAW-NET-TORQUE-NON-ROTATING"], 
          t["DRAW-NET-TORQUE-UNKNOWN-DIR"], 
          t["DRAW-NORMAL"], 
          t["DRAW-OPPOSITE-RELATIVE-POSITION"], 
          t["DRAW-PRESSURE"], 
          t["DRAW-REACTION-FORCE"], 
          t["DRAW-REL-VEL-VECTOR-UNKNOWN"], 
          t["DRAW-RELATIVE-POSITION"], 
          t["DRAW-RELATIVE-POSITION-UNKNOWN"], 
          t["DRAW-RELATIVE-VEL-GIVEN-DIR"], 
          t["DRAW-ROTATE-AXES"], 
          t["DRAW-SOUGHT-VECTOR-UNKNOWN"], 
          t["DRAW-SPRING-FORCE"], 
          t["DRAW-STATIC-FRICTION"], 
          t["DRAW-TENSION"], 
          t["DRAW-THRUST-FORCE"], 
          t["DRAW-THRUST-FORCE-GIVEN-RELATIVE-VEL"], 
          t["DRAW-TORQUE"], 
          t["DRAW-UNROTATED-AXES"], 
          t["DRAW-UNROTATED-AXES-FOR-ZCOMPS"], 
          t["DRAW-VECTOR-GIVEN-COMPOS"], 
          t["DRAW-VELOCITY-AT-REST"], 
          t["DRAW-VELOCITY-CURVED"], 
          t["DRAW-VELOCITY-CURVED-UNKNOWN"], 
          t["DRAW-VELOCITY-MOMENTARILY-AT-REST"], 
          t["DRAW-VELOCITY-STRAIGHT"], 
          t["DRAW-VELOCITY-STRAIGHT-UNKNOWN"], 
          t["DRAW-WEIGHT"], 
          t["DRAW-WEIGHT-AT-CM"], 
          t["DRAW-ZERO-RELATIVE-POSITION"], 
          t["DRAW-ZERO-RELATIVE-VEL"], 
          t["FREQUENCY-OF-WAVE"], 
          t["GIVEN-FRACTION"], 
          t["KINETIC-FRICTION-LAW"], 
          t["MAKE-DOPPLER-FREQUENCY"], 
          t["MASS-PER-LENGTH"], 
          t["MASS-PER-LENGTH-EQUATION"], 
          t["MAX-TRANSVERSE-ABS-ACCELERATION-WAVE"], 
          t["MAX-TRANSVERSE-SPEED-WAVE"], 
          t["NTL"], 
          t["OPPOSITE-RELATIVE-POSITION"], 
          t["PENDULUM-OSCILLATION"], 
          t["PERIOD-OF-WAVE"], 
          t["PRESSURE-AT-OPEN-TO-ATMOSPHERE"], 
          t["PRESSURE-FORCE"], 
          t["PRESSURE-HEIGHT-FLUID"], 
          t["SDD-CONSTVEL-COMPO"], 
          t["SELECT-MC-ANSWER"], 
          t["SPEED-EQUALS-WAVE-SPEED"], 
          t["SPRING-LAW-COMPRESSION"], 
          t["SPRING-MASS-OSCILLATION"], 
          t["STATIC-FRICTION-LAW"], 
          t["USE-CONST-VX"], 
          t["WAVE-SPEED-STRING"], 
          t["WAVENUMBER-LAMBDA-WAVE"], 
          t["WRITE-ANG-MOMENTUM"], 
          t["WRITE-ANG-SDD"], 
          t["WRITE-ARCHIMEDES"], 
          t["WRITE-AVG-ACCEL-COMPO"], 
          t["WRITE-AVG-VEL-COMPO"], 
          t["WRITE-BEAT-FREQUENCY"], 
          t["WRITE-CENTER-OF-MASS-COMPO"], 
          t["WRITE-CENTRIPETAL-ACCEL"], 
          t["WRITE-CHANGE-ME-TOP"], 
          t["WRITE-CONNECTED-ACCELS"], 
          t["WRITE-CONNECTED-VELOCITIES"], 
          t["WRITE-CONS-ANGMOM"], 
          t["WRITE-CONS-ANGMOM-JOIN"], 
          t["WRITE-CONS-KE-ELASTIC"], 
          t["WRITE-CONS-LINMOM-COMPO"], 
          t["WRITE-CONS-LINMOM-COMPO-JOIN"], 
          t["WRITE-CONS-LINMOM-COMPO-SPLIT"], 
          t["WRITE-DENSITY"], 
          t["WRITE-DISPLACEMENT-DISTANCE"], 
          t["WRITE-ENERGY-CONS"], 
          t["WRITE-EQUALITY"], 
          t["WRITE-FORCE-COMPOUND"], 
          t["WRITE-FREE-FALL-ACCEL"], 
          t["WRITE-G-ON-EARTH"], 
          t["WRITE-GRAV-ENERGY"], 
          t["WRITE-HARMONIC-OF"], 
          t["WRITE-HEIGHT-DY-COMPO"], 
          t["WRITE-I-COMPOUND"], 
          t["WRITE-I-HOOP-CM"], 
          t["WRITE-I-RECT-CM"], 
          t["WRITE-I-ROD-CM"], 
          t["WRITE-I-ROD-END"], 
          t["WRITE-IMPLICIT-EQN"], 
          t["WRITE-IMPULSE-COMPO"], 
          t["WRITE-IMPULSE-MOMENTUM-COMPO"], 
          t["WRITE-INST-POWER"], 
          t["WRITE-INTENSITY-TO-DECIBELS"], 
          t["WRITE-INTENSITY-TO-POWER"], 
          t["WRITE-KINETIC-ENERGY"], 
          t["WRITE-KNOWN-VALUE-EQN"], 
          t["WRITE-LINEAR-VEL"], 
          t["WRITE-LK-NO-S-COMPO"], 
          t["WRITE-LK-NO-T-COMPO"], 
          t["WRITE-LK-NO-VF-COMPO"], 
          t["WRITE-MAG-TORQUE"], 
          t["WRITE-MASS-COMPOUND"], 
          t["WRITE-MOMENTUM-COMPO"], 
          t["WRITE-NET-INTENSITY"], 
          t["WRITE-NET-POWER"], 
          t["WRITE-NET-TORQUE"], 
          t["WRITE-NFL-COMPO"], 
          t["WRITE-NL-ROTATION"], 
          t["WRITE-NSL-COMPO"], 
          t["WRITE-NSL-NET-COMPO"], 
          t["WRITE-NTL-VECTOR"], 
          t["WRITE-NULL-SPRING-ENERGY"], 
          t["WRITE-PERIOD-CIRCULAR"], 
          t["WRITE-POWER"], 
          t["WRITE-PYTH-THM"], 
          t["WRITE-RELATIVE-VEL-COMPO"], 
          t["WRITE-RK-NO-S"], 
          t["WRITE-RK-NO-T"], 
          t["WRITE-RK-NO-VF"], 
          t["WRITE-ROLLING-VEL"], 
          t["WRITE-ROTATIONAL-ENERGY"], 
          t["WRITE-SDD"], 
          t["WRITE-SPEED-OF-WAVE"], 
          t["WRITE-SPRING-ENERGY"], 
          t["WRITE-SUM-DISP-COMPO"], 
          t["WRITE-SUM-DISTANCES"], 
          t["WRITE-SUM-TIMES"], 
          t["WRITE-TENSIONS-EQUAL"], 
          t["WRITE-THRUST-FORCE"], 
          t["WRITE-THRUST-FORCE-COMPO"], 
          t["WRITE-TIMELESS-BEAT-FREQUENCY"], 
          t["WRITE-TORQUE-ZC"], 
          t["WRITE-TOTAL-ENERGY-TOP"], 
          t["WRITE-UG"], 
          t["WRITE-UG-CIRCULAR"], 
          t["WRITE-VALUE-OF-ATMOSPHERE"], 
          t["WRITE-VOLUME-COMPOUND"], 
          t["WRITE-WAVE-SPEED-LIGHT"], 
          t["WRITE-WNC"], 
          t["WRITE-WORK"], 
          t["WRITE-WORK-DELTA-KE"], 
          t["WRITE-ZERO-WORK"], 
          t["WT-LAW"], 
          t["WT-LAW-CM"]}, {"Estimate", "SE", "TStat", "PValue"}}]]]}], ",", 
   RowBox[{"RSquared", "\[Rule]", "0.7342914716002911`"}], ",", 
   RowBox[{"EstimatedVariance", "\[Rule]", "175193.69814225324`"}]}], 
  "}"}]], "Output"]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"pt", "=", 
  RowBox[{"ParameterTable", "/.", 
   RowBox[{"Regress", "[", 
    RowBox[{
     RowBox[{"Transpose", "[", 
      RowBox[{"Append", "[", 
       RowBox[{"tmat", ",", "eachtime"}], "]"}], "]"}], ",", 
     RowBox[{"Map", "[", 
      RowBox[{"t", ",", "operators"}], "]"}], ",", 
     RowBox[{"Map", "[", 
      RowBox[{"t", ",", "operators"}], "]"}], ",", 
     RowBox[{"IncludeConstant", "\[Rule]", "False"}]}], "]"}]}]}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"DesignedRegress", "::", "\<\"rank\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Warning: the rank of the design matrix is \\!\\(237\\), \
less than full rank \\!\\(244\\). Only \\!\\(237\\) of the \\!\\(244\\) basis \
functions \\!\\(\\\"are\\\"\\) needed to provide this fit. Try using a \
different model or greater precision.\"\>"}]], "Message"],

Cell[BoxData[
 RowBox[{
  RowBox[{"DesignedRegress", "::", "\<\"tsos\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Warning: the total sum of squares in the ANOVATable is \
uncorrected (not centered on the response mean) when there is no constant \
term in the model; it is designated U Total.\"\>"}]], "Message"],

Cell[BoxData[
 RowBox[{
  RowBox[{"DesignedRegress", "::", "\<\"rsqr\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Warning: the RSquared and AdjustedRSquared diagnostics are \
redefined when there is no constant term in the model.\"\>"}]], "Message"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"SE\"\>", "\<\"TStat\"\>", \
"\<\"PValue\"\>"},
    {
     RowBox[{"t", "[", "\<\"ACCEL-AT-REST\"\>", "]"}], "80.96703397054436`", 
     "25.310412419894224`", "3.198961464053565`", "0.0013838643727068778`"},
    {
     RowBox[{"t", "[", "\<\"ACCEL-CONSTANT-SPEED\"\>", "]"}], 
     RowBox[{"-", "67.88131978997791`"}], "55.59110745996332`", 
     RowBox[{"-", "1.2210823437699274`"}], "0.2220858159834812`"},
    {
     RowBox[{"t", "[", "\<\"APPLY-NET-WORK\"\>", "]"}], 
     RowBox[{"-", "4.0794893271437624`"}], "78.23589610610433`", 
     RowBox[{"-", "0.05214344732002707`"}], "0.9584155145803291`"},
    {
     RowBox[{"t", "[", "\<\"AREA-OF-CIRCLE\"\>", "]"}], "177.76545137259902`",
      "116.28935287763296`", "1.5286476962310998`", "0.1263858328710783`"},
    {
     RowBox[{"t", "[", "\<\"AVG-ACCEL-UNKNOWN\"\>", "]"}], 
     "328.52896286800893`", "424.5615073157997`", "0.7738076985477648`", 
     "0.4390641989570354`"},
    {
     RowBox[{"t", "[", "\<\"BERNOULLI\"\>", "]"}], 
     RowBox[{"-", "107.20313248462128`"}], "98.3688761875163`", 
     RowBox[{"-", "1.0898074334026608`"}], "0.2758262309372834`"},
    {
     RowBox[{"t", "[", "\<\"CIRCUMFERENCE-OF-CIRCLE-R\"\>", "]"}], 
     "228.27593917797407`", "167.32247117788157`", "1.3642874000784537`", 
     "0.17251016026668387`"},
    {
     RowBox[{"t", "[", "\<\"COMPO-GENERAL-CASE\"\>", "]"}], 
     "69.2122774368411`", "7.945409868507436`", "8.710976347635894`", "0.`"},
    {
     RowBox[{"t", "[", "\<\"COMPO-GENERAL-CASE-UNKNOWN\"\>", "]"}], 
     "37.09789060723381`", "22.172778811170758`", "1.6731277086723881`", 
     "0.09433580853885459`"},
    {
     RowBox[{"t", "[", "\<\"COMPO-PARALLEL-AXIS\"\>", "]"}], 
     "30.37846599976986`", "5.689802742859298`", "5.339107060942461`", 
     "9.56094097226412`*^-8"},
    {
     RowBox[{"t", "[", "\<\"COMPO-PERPENDICULAR\"\>", "]"}], 
     "92.40756309611751`", "13.05030194655271`", "7.080875482772056`", 
     "1.5365486660812167`*^-12"},
    {
     RowBox[{"t", "[", "\<\"COMPO-Z-AXIS\"\>", "]"}], "34.85097035618636`", 
     "19.05175437655872`", "1.8292787985481798`", "0.0673898716345398`"},
    {
     RowBox[{"t", "[", "\<\"COMPO-ZERO-VECTOR\"\>", "]"}], 
     "18.55438998335798`", "29.511419109931083`", "0.6287190024390972`", 
     "0.5295484846181715`"},
    {
     RowBox[{"t", "[", "\<\"CONTINUITY\"\>", "]"}], 
     RowBox[{"-", "204.75085647254227`"}], "256.6668168422753`", 
     RowBox[{"-", "0.7977301428815553`"}], "0.42504748619448673`"},
    {
     RowBox[{"t", "[", "\<\"DEFINE-AMPLITUDE\"\>", "]"}], 
     "128.8780086416256`", "93.74545512316917`", "1.3747654056647`", 
     "0.16923732537297087`"},
    {
     RowBox[{"t", "[", "\<\"DEFINE-AMPLITUDE-MAX-ABS-ACCELERATION\"\>", "]"}],
      "96.89875113794348`", "211.209956332589`", "0.4587792773620886`", 
     "0.6464034043829014`"},
    {
     RowBox[{"t", "[", "\<\"DEFINE-AMPLITUDE-MAX-SPEED\"\>", "]"}], 
     RowBox[{"-", "392.8806222730533`"}], "527.634458588882`", 
     RowBox[{"-", "0.744607589359843`"}], "0.456527803279721`"},
    {
     RowBox[{"t", "[", "\<\"DEFINE-ANGLE-BETWEEN-KNOWN\"\>", "]"}], 
     "103.56741828884724`", "19.725314556960925`", "5.250482469609035`", 
     "1.5505403450077893`*^-7"},
    {
     RowBox[{"t", "[", "\<\"DEFINE-ANGULAR-FREQUENCY\"\>", "]"}], 
     "114.01813593515206`", "100.4212571664505`", "1.135398412172479`", 
     "0.2562377002852192`"},
    {
     RowBox[{"t", "[", "\<\"DEFINE-AREA\"\>", "]"}], 
     RowBox[{"-", "122.43211048731237`"}], "129.50819767274055`", 
     RowBox[{"-", "0.9453618588430284`"}], "0.3444987407935822`"},
    {
     RowBox[{"t", "[", "\<\"DEFINE-AREA-AT\"\>", "]"}], "123.76011400405899`",
      "130.83695153253933`", "0.9459110179075036`", "0.3442185616623781`"},
    {
     RowBox[{"t", "[", "\<\"DEFINE-CHANGING-MASS\"\>", "]"}], 
     RowBox[{"-", "4.662240636794669`"}], "81.98070986504287`", 
     RowBox[{"-", "0.05686997153927647`"}], "0.9546499972198019`"},
    {
     RowBox[{"t", "[", "\<\"DEFINE-CHANGING-MOMENT-OF-INERTIA\"\>", "]"}], 
     "70.23174950331779`", "64.6606388201576`", "1.0861592273880136`", 
     "0.2774367194321845`"},
    {
     RowBox[{"t", "[", "\<\"DEFINE-CIRCUMFERENCE-OF-CIRCLE\"\>", "]"}], 
     "228.27593917799763`", "167.32247117788143`", "1.3642874000785958`", 
     "0.17251016026668387`"},
    {
     RowBox[{"t", "[", "\<\"DEFINE-COEF-FRICTION\"\>", "]"}], 
     RowBox[{"-", "54.77106958463481`"}], "257.4004103179267`", 
     RowBox[{"-", "0.2127854789236141`"}], "0.8314989567499933`"},
    {
     RowBox[{"t", "[", "\<\"DEFINE-COMPRESSION\"\>", "]"}], 
     "151.52434803777405`", "68.73489789558408`", "2.204474767212956`", 
     "0.02751538383239982`"},
    {
     RowBox[{"t", "[", "\<\"DEFINE-DB-INTENSITY\"\>", "]"}], 
     "40.98462050903687`", "301.722851342563`", "0.13583532147687652`", 
     "0.891954408852847`"},
    {
     RowBox[{"t", "[", "\<\"DEFINE-DISTANCE\"\>", "]"}], "189.4922899639841`",
      "60.375602490719785`", "3.138557333537344`", "0.0017031281849493318`"},
    {
     RowBox[{"t", "[", "\<\"DEFINE-DURATION\"\>", "]"}], "57.23501027815985`",
      "29.356682133459014`", "1.949641652893968`", "0.051248874392466615`"},
    {
     RowBox[{"t", "[", "\<\"DEFINE-FREQUENCY\"\>", "]"}], 
     "55.41452600816517`", "23.60889485998046`", "2.347188478614413`", 
     "0.018936550587077328`"},
    {
     RowBox[{"t", "[", "\<\"DEFINE-GRAV-ENERGY\"\>", "]"}], 
     RowBox[{"-", "74.19316306187912`"}], "52.33523717370406`", 
     RowBox[{"-", "1.4176521798425634`"}], "0.15632585826949885`"},
    {
     RowBox[{"t", "[", "\<\"DEFINE-HEIGHT\"\>", "]"}], "54.21954851110596`", 
     "27.370948187374186`", "1.9809159748479828`", "0.04763012425010427`"},
    {
     RowBox[{"t", "[", "\<\"DEFINE-INTENSITY\"\>", "]"}], 
     RowBox[{"-", "27.068274872205016`"}], "318.1583906872035`", 
     RowBox[{"-", "0.08507798525677454`"}], "0.9322012243835798`"},
    {
     RowBox[{"t", "[", "\<\"DEFINE-KINETIC-ENERGY\"\>", "]"}], 
     "104.20184525294263`", "34.9182718261204`", "2.9841638719071737`", 
     "0.0028509381742942708`"},
    {
     RowBox[{"t", "[", "\<\"DEFINE-MASS\"\>", "]"}], 
     RowBox[{"-", "16.16483052351791`"}], "16.700615649042476`", 
     RowBox[{"-", "0.9679182410526713`"}], "0.3331103872619743`"},
    {
     RowBox[{"t", "[", "\<\"DEFINE-MASS-CHANGE-MAGNITUDE\"\>", "]"}], 
     "45.791024444760666`", "133.76642660211613`", "0.34232075721783745`", 
     "0.73211725607172`"},
    {
     RowBox[{"t", "[", "\<\"DEFINE-MASS-DENSITY\"\>", "]"}], 
     "88.6640127645956`", "67.02305043894559`", "1.322888352349223`", 
     "0.18590505288406733`"},
    {
     RowBox[{"t", "[", "\<\"DEFINE-MOMENT-OF-INERTIA\"\>", "]"}], 
     "46.9011431535456`", "68.04587102793418`", "0.689257738126267`", 
     "0.49067829319783596`"},
    {
     RowBox[{"t", "[", "\<\"DEFINE-NET-DB-INTENSITY\"\>", "]"}], 
     "441.76345220044993`", "454.6497945374416`", "0.9716565530396815`", 
     "0.3312467216857222`"},
    {
     RowBox[{"t", "[", "\<\"DEFINE-NET-INTENSITY\"\>", "]"}], 
     "2.520214570623845`", "156.68915628972152`", "0.016084167087886514`", 
     "0.98716758992182`"},
    {
     RowBox[{"t", "[", "\<\"DEFINE-NET-POWER-OUT\"\>", "]"}], 
     "235.95723737231427`", "117.70017683861218`", "2.004731375177571`", 
     "0.04502072043558991`"},
    {
     RowBox[{"t", "[", "\<\"DEFINE-NET-POWER-VAR\"\>", "]"}], 
     "222.0281005241719`", "215.6852374620771`", "1.0294079610488411`", 
     "0.303314795180305`"},
    {
     RowBox[{"t", "[", "\<\"DEFINE-NET-WORK\"\>", "]"}], "152.3398807200636`",
      "61.760685360268575`", "2.466615773957485`", "0.013657567251182057`"},
    {
     RowBox[{"t", "[", "\<\"DEFINE-OBSERVED-FREQUENCY\"\>", "]"}], 
     "123.79989443510246`", "50.77942849177343`", "2.4379930635721663`", 
     "0.014787664431705316`"},
    {
     RowBox[{"t", "[", "\<\"DEFINE-PERIOD-VAR\"\>", "]"}], 
     "118.31400154201744`", "62.580299940798334`", "1.8905949900199233`", 
     "0.058709504448944294`"},
    {
     RowBox[{"t", "[", "\<\"DEFINE-POWER-VAR\"\>", "]"}], 
     "189.1267732054014`", "88.7835936349909`", "2.130199572490202`", 
     "0.033181325992941435`"},
    {
     RowBox[{"t", "[", "\<\"DEFINE-PRESSURE\"\>", "]"}], 
     RowBox[{"-", "11.069340177868451`"}], "49.756719567162676`", 
     RowBox[{"-", "0.22246925187515268`"}], "0.8239534949301321`"},
    {
     RowBox[{"t", "[", "\<\"DEFINE-RADIUS-OF-CIRCLE\"\>", "]"}], 
     "55.239598326059586`", "92.8854365121278`", "0.5947067742836855`", 
     "0.5520539685537524`"},
    {
     RowBox[{"t", "[", "\<\"DEFINE-REVOLUTION-RADIUS\"\>", "]"}], 
     "120.2223817057052`", "80.57447616727929`", "1.4920653217293474`", 
     "0.13571595951464532`"},
    {
     RowBox[{"t", "[", "\<\"DEFINE-ROTATIONAL-ENERGY\"\>", "]"}], 
     "781.1909377251743`", "207.52010794870196`", "3.7644108103407556`", 
     "0.00016797047671479604`"},
    {
     RowBox[{"t", "[", "\<\"DEFINE-SHAPE-LENGTH\"\>", "]"}], 
     "117.06200271363869`", "60.82388068091225`", "1.9246059508724358`", 
     "0.0543091622541243`"},
    {
     RowBox[{"t", "[", "\<\"DEFINE-SPEED\"\>", "]"}], "140.0420119642894`", 
     "56.421984087950754`", "2.482046922454756`", "0.013080535920965808`"},
    {
     RowBox[{"t", "[", "\<\"DEFINE-SPRING-CONSTANT\"\>", "]"}], 
     "40.1465077876298`", "88.58781650569405`", "0.453183173162975`", 
     "0.6504274265194088`"},
    {
     RowBox[{"t", "[", "\<\"DEFINE-SPRING-ENERGY\"\>", "]"}], 
     RowBox[{"-", "43.86436929876587`"}], "71.00731752006145`", 
     RowBox[{"-", "0.6177443512969354`"}], "0.5367590052392679`"},
    {
     RowBox[{"t", "[", "\<\"DEFINE-STRING-TENSION\"\>", "]"}], 
     "97.94434658934105`", "90.79977009429491`", "1.078684962391717`", 
     "0.2807561824846503`"},
    {
     RowBox[{"t", "[", "\<\"DEFINE-TOTAL-ENERGY\"\>", "]"}], 
     "6.946473895121784`", "45.17856821142446`", "0.15375595487254076`", 
     "0.8778055015705117`"},
    {
     RowBox[{"t", "[", "\<\"DEFINE-VOLUME\"\>", "]"}], "9.924883422799683`", 
     "79.13011620156362`", "0.1254248559109732`", "0.9001899238306708`"},
    {
     RowBox[{"t", "[", "\<\"DEFINE-WAVE-SPEED\"\>", "]"}], 
     "55.387015887744255`", "43.429653194631705`", "1.2753271512329412`", 
     "0.20222534492787747`"},
    {
     RowBox[{"t", "[", "\<\"DEFINE-WAVELENGTH\"\>", "]"}], 
     "79.62690809063837`", "39.01170988936905`", "2.041102743674848`", 
     "0.04126880139465117`"},
    {
     RowBox[{"t", "[", "\<\"DEFINE-WAVENUMBER\"\>", "]"}], 
     "70.7438736597909`", "121.20870154338988`", "0.5836534238795245`", 
     "0.5594676711306965`"},
    {
     RowBox[{"t", "[", "\<\"DEFINE-WIDTH\"\>", "]"}], 
     RowBox[{"-", "188.16900796075754`"}], "148.3691013772712`", 
     RowBox[{"-", "1.2682492932425575`"}], "0.20474070276479228`"},
    {
     RowBox[{"t", "[", "\<\"DEFINE-WNC\"\>", "]"}], "278.88127403774695`", 
     "64.89241118197945`", "4.297594571662209`", "0.000017442068436679392`"},
    {
     RowBox[{"t", "[", "\<\"DEFINE-WORK\"\>", "]"}], "96.40056030298304`", 
     "36.819049669652784`", "2.6182251081412047`", "0.008853181641492514`"},
    {
     RowBox[{"t", "[", "\<\"DRAW-ACCEL-CURVED-UNKNOWN\"\>", "]"}], 
     "31.295031826910094`", "82.55369925936812`", "0.3790869713613562`", 
     "0.7046319399753822`"},
    {
     RowBox[{"t", "[", "\<\"DRAW-ACCEL-FREE-FALL\"\>", "]"}], 
     "257.7176738463202`", "70.62006116557141`", "3.6493550075252887`", 
     "0.00026434031790545376`"},
    {
     RowBox[{"t", "[", "\<\"DRAW-ACCEL-GIVEN-DIR\"\>", "]"}], 
     RowBox[{"-", "61.82530270252872`"}], "22.30788853557374`", 
     RowBox[{"-", "2.7714547077791654`"}], "0.005591740647673953`"},
    {
     RowBox[{"t", "[", "\<\"DRAW-ACCEL-UNKNOWN-NET-FORCE\"\>", "]"}], 
     "148.70964494285133`", "75.25068333738284`", "1.9761899606428655`", 
     "0.04816278648984573`"},
    {
     RowBox[{"t", "[", "\<\"DRAW-ACCELERATING\"\>", "]"}], 
     "154.38234582328957`", "25.716837478121246`", "6.003162167767762`", 
     "2.0075576756539704`*^-9"},
    {
     RowBox[{"t", "[", "\<\"DRAW-ANG-ACCEL-UNKNOWN-DIR\"\>", "]"}], 
     RowBox[{"-", "188.1690079607395`"}], "148.36910137727142`", 
     RowBox[{"-", "1.2682492932424339`"}], "0.20474070276479228`"},
    {
     RowBox[{"t", "[", "\<\"DRAW-ANG-ACCELERATING\"\>", "]"}], 
     RowBox[{"-", "58.78544809578513`"}], "86.18626136182252`", 
     RowBox[{"-", "0.6820744648499746`"}], "0.49520886172091494`"},
    {
     RowBox[{"t", "[", "\<\"DRAW-ANG-DECELERATING\"\>", "]"}], 
     RowBox[{"-", "39.37318033071433`"}], "92.35745805550923`", 
     RowBox[{"-", "0.42631294926989033`"}], "0.6698896954547864`"},
    {
     RowBox[{"t", "[", "\<\"DRAW-ANG-DISPLACEMENT-ROTATING\"\>", "]"}], 
     "116.22313333949585`", "78.12642188450012`", "1.4876290317162717`", 
     "0.1368826743855054`"},
    {
     RowBox[{"t", "[", "\<\"DRAW-ANG-MOMENTUM-ROTATING\"\>", "]"}], 
     "50.61109702114785`", "58.48927937883897`", "0.8653055322042248`", 
     "0.386893447244526`"},
    {
     RowBox[{"t", "[", "\<\"DRAW-ANG-VELOCITY-AT-REST\"\>", "]"}], 
     "100.1870123184064`", "106.4146480921434`", "0.9414776453675386`", 
     "0.3464846070287739`"},
    {
     RowBox[{"t", "[", "\<\"DRAW-ANG-VELOCITY-ROTATING\"\>", "]"}], 
     "57.162998405785224`", "40.92259233058911`", "1.3968567275503858`", 
     "0.16249000759368926`"},
    {
     RowBox[{"t", "[", "\<\"DRAW-APPLIED-FORCE\"\>", "]"}], 
     RowBox[{"-", "45.033464753913655`"}], "13.822566179677825`", 
     RowBox[{"-", "3.2579670206334503`"}], "0.0011261630744913748`"},
    {
     RowBox[{"t", "[", "\<\"DRAW-AVG-VEL-FROM-DISPLACEMENT\"\>", "]"}], 
     RowBox[{"-", "166.31397699151742`"}], "192.52686536323324`", 
     RowBox[{"-", "0.8638481527122932`"}], "0.3876936020565277`"},
    {
     RowBox[{"t", "[", "\<\"DRAW-AVG-VEL-UNKNOWN\"\>", "]"}], 
     "325.92849621218437`", "232.49311385177873`", "1.4018845152548194`", 
     "0.1609831271886717`"},
    {
     RowBox[{"t", "[", "\<\"DRAW-BODY\"\>", "]"}], "31.103843024973056`", 
     "14.507675438897504`", "2.1439577385070563`", "0.032062136192073876`"},
    {
     RowBox[{"t", "[", "\<\"DRAW-BUOYANT-FORCE\"\>", "]"}], 
     "28.903320042656627`", "78.27000036610956`", "0.36927711648729716`", 
     "0.7119295921553033`"},
    {
     RowBox[{"t", "[", "\<\"DRAW-CENTRIPETAL-ACCELERATION\"\>", "]"}], 
     "76.4552158138157`", "149.86337383442847`", "0.510166119029755`", 
     "0.6099472002664521`"},
    {
     RowBox[{"t", "[", "\<\"DRAW-COMPO-FORM-AXES\"\>", "]"}], 
     "179.07586486264753`", "28.718727820785034`", "6.235508271123426`", 
     "4.699174382949423`*^-10"},
    {
     RowBox[{"t", "[", "\<\"DRAW-DECELERATING\"\>", "]"}], 
     "175.55044021908463`", "53.288741532264886`", "3.2943251270588485`", 
     "0.0009902736287479286`"},
    {
     RowBox[{"t", "[", "\<\"DRAW-DISPLACEMENT-GIVEN-DIR\"\>", "]"}], 
     RowBox[{"-", "42.02211542765745`"}], "15.759124209344986`", 
     RowBox[{"-", "2.6665260625802287`"}], "0.0076772337853531995`"},
    {
     RowBox[{"t", "[", "\<\"DRAW-DISPLACEMENT-PROJECTILE\"\>", "]"}], 
     "202.06831733470182`", "51.777263182338004`", "3.9026457737463094`", 
     "0.00009581848249284874`"},
    {
     RowBox[{"t", "[", "\<\"DRAW-DISPLACEMENT-STRAIGHT\"\>", "]"}], 
     "344.5398557677212`", "36.14095826741122`", "9.533224139172793`", 
     "0.`"},
    {
     RowBox[{"t", "[", "\<\"DRAW-DISPLACEMENT-UNKNOWN\"\>", "]"}], 
     "334.66471321767415`", "95.778474519493`", "3.494153721873724`", 
     "0.000477781791591525`"},
    {
     RowBox[{"t", "[", "\<\"DRAW-DISPLACEMENT-ZERO\"\>", "]"}], 
     "348.90670969321803`", "423.2704130228712`", "0.8243115959876105`", 
     "0.4097836828635102`"},
    {
     RowBox[{"t", "[", "\<\"DRAW-DRAG\"\>", "]"}], 
     RowBox[{"-", "96.77979218262035`"}], "55.71299159631909`", 
     RowBox[{"-", "1.7371135422750215`"}], "0.08240025725792288`"},
    {
     RowBox[{"t", "[", "\<\"DRAW-ENERGY-AXES\"\>", "]"}], 
     RowBox[{"-", "118.1298989472657`"}], "48.727870354024155`", 
     RowBox[{"-", "2.4242778945398755`"}], "0.015357808685055863`"},
    {
     RowBox[{"t", "[", "\<\"DRAW-FORCE-COMPOUND\"\>", "]"}], 
     "174.37172362556777`", "80.13260783826809`", "2.176039546566397`", 
     "0.029577403023953508`"},
    {
     RowBox[{"t", "[", "\<\"DRAW-GRAV-FORCE\"\>", "]"}], 
     "297.31006955133626`", "101.71518812923617`", "2.922966324100815`", 
     "0.0034754998701471695`"},
    {
     RowBox[{"t", "[", "\<\"DRAW-IMPULSE-GIVEN-DIR\"\>", "]"}], 
     "513.4104794056527`", "129.23051290438093`", "3.9728270658921763`", 
     "0.0000715609707602205`"},
    {
     RowBox[{"t", "[", "\<\"DRAW-IMPULSE-GIVEN-FORCE\"\>", "]"}], 
     "57.85928858109701`", "128.18660692746187`", "0.4513676581972279`", 
     "0.6517351193597816`"},
    {
     RowBox[{
     "t", "[", "\<\"DRAW-IMPULSE-GIVEN-MOMENTA-UNKNOWN-DIR\"\>", "]"}], 
     "78.43286994975695`", "160.95262749748844`", "0.4873040668502342`", 
     "0.6260543580188882`"},
    {
     RowBox[{"t", "[", "\<\"DRAW-KINETIC-FRICTION\"\>", "]"}], 
     RowBox[{"-", "34.50823453710953`"}], "52.60086426970077`", 
     RowBox[{"-", "0.656039306886199`"}], "0.5118150723463603`"},
    {
     RowBox[{"t", "[", "\<\"DRAW-MOMENTUM-AT-REST\"\>", "]"}], 
     RowBox[{"-", "3.6540140261959273`"}], "59.96712042368924`", 
     RowBox[{"-", "0.06093362496613154`"}], "0.9514133803833874`"},
    {
     RowBox[{"t", "[", "\<\"DRAW-MOMENTUM-STRAIGHT\"\>", "]"}], 
     RowBox[{"-", "23.113027008998575`"}], "24.952250385072926`", 
     RowBox[{"-", "0.9262902805281795`"}], "0.35431919481153296`"},
    {
     RowBox[{"t", "[", "\<\"DRAW-MOMENTUM-STRAIGHT-UNKNOWN\"\>", "]"}], 
     "540.2253582954079`", "101.11667427889233`", "5.342594207612083`", 
     "9.379319454438928`*^-8"},
    {
     RowBox[{"t", "[", "\<\"DRAW-NET-FORCE-FROM-ACCEL\"\>", "]"}], 
     RowBox[{"-", "49.990398186152866`"}], "95.24673691946654`", 
     RowBox[{"-", "0.5248515571554013`"}], "0.5996989048060588`"},
    {
     RowBox[{"t", "[", "\<\"DRAW-NET-TORQUE-FROM-ANG-ACCEL\"\>", "]"}], 
     "47.99274507831575`", "114.39162876287507`", "0.4195477028987932`", 
     "0.6748255956825435`"},
    {
     RowBox[{"t", "[", "\<\"DRAW-NET-TORQUE-NON-ROTATING\"\>", "]"}], 
     RowBox[{"-", "142.13486744070775`"}], "90.70583747047104`", 
     RowBox[{"-", "1.5669869922867892`"}], "0.11715177286529643`"},
    {
     RowBox[{"t", "[", "\<\"DRAW-NET-TORQUE-UNKNOWN-DIR\"\>", "]"}], 
     RowBox[{"-", "91.25897828240885`"}], "98.34509499272757`", 
     RowBox[{"-", "0.9279464145024953`"}], "0.35345946137063633`"},
    {
     RowBox[{"t", "[", "\<\"DRAW-NORMAL\"\>", "]"}], "98.53849158348635`", 
     "20.0736482498864`", "4.908848175320796`", "9.317101077321865`*^-7"},
    {
     RowBox[{"t", "[", "\<\"DRAW-OPPOSITE-RELATIVE-POSITION\"\>", "]"}], 
     RowBox[{"-", "314.1456256899616`"}], "310.52637940974284`", 
     RowBox[{"-", "1.011655197497547`"}], "0.3117292773946956`"},
    {
     RowBox[{"t", "[", "\<\"DRAW-PRESSURE\"\>", "]"}], "229.8182325737409`", 
     "62.36835444536435`", "3.6848532339435898`", "0.00023013498495538798`"},
    {
     RowBox[{"t", "[", "\<\"DRAW-REACTION-FORCE\"\>", "]"}], 
     "286.42351747823795`", "45.14487985306228`", "6.344540475254121`", 
     "2.3349722155785457`*^-10"},
    {
     RowBox[{"t", "[", "\<\"DRAW-REL-VEL-VECTOR-UNKNOWN\"\>", "]"}], 
     "450.92352707461305`", "111.46300776395148`", "4.045499364502591`", 
     "0.000052634096213921566`"},
    {
     RowBox[{"t", "[", "\<\"DRAW-RELATIVE-POSITION\"\>", "]"}], 
     "141.61691578166523`", "30.063090107823236`", "4.710657330093045`", 
     "2.5049932261822505`*^-6"},
    {
     RowBox[{"t", "[", "\<\"DRAW-RELATIVE-POSITION-UNKNOWN\"\>", "]"}], 
     "167.58713463047854`", "83.37167460080839`", "2.0101207686291764`", 
     "0.04444724578123127`"},
    {
     RowBox[{"t", "[", "\<\"DRAW-RELATIVE-VEL-GIVEN-DIR\"\>", "]"}], 
     "12.95398717962727`", "31.378713008252177`", "0.41282723023791784`", 
     "0.6797427214671565`"},
    {
     RowBox[{"t", "[", "\<\"DRAW-ROTATE-AXES\"\>", "]"}], 
     "154.76795600009135`", "22.260295484990998`", "6.952646073563741`", 
     "3.8264946766730645`*^-12"},
    {
     RowBox[{"t", "[", "\<\"DRAW-SOUGHT-VECTOR-UNKNOWN\"\>", "]"}], 
     "289.94425255048117`", "98.19551396626771`", "2.9527240180247265`", 
     "0.00315771425075706`"},
    {
     RowBox[{"t", "[", "\<\"DRAW-SPRING-FORCE\"\>", "]"}], 
     RowBox[{"-", "28.991693478540782`"}], "52.67135598832762`", 
     RowBox[{"-", "0.5504261839198817`"}], "0.5820403207149651`"},
    {
     RowBox[{"t", "[", "\<\"DRAW-STATIC-FRICTION\"\>", "]"}], 
     "121.69284968020598`", "32.60534781851585`", "3.7322972402428816`", 
     "0.00019087294901831697`"},
    {
     RowBox[{"t", "[", "\<\"DRAW-TENSION\"\>", "]"}], 
     RowBox[{"-", "1.041880562857934`"}], "14.63144221770887`", 
     RowBox[{"-", "0.07120832979792757`"}], "0.9432334840038671`"},
    {
     RowBox[{"t", "[", "\<\"DRAW-THRUST-FORCE\"\>", "]"}], 
     "23.635754511344317`", "79.80367209538365`", "0.29617377109031`", 
     "0.7671039950399694`"},
    {
     RowBox[{"t", "[", "\<\"DRAW-THRUST-FORCE-GIVEN-RELATIVE-VEL\"\>", "]"}], 
     
     RowBox[{"-", "92.58596352614104`"}], "102.8517149336221`", 
     RowBox[{"-", "0.9001888163546293`"}], "0.36804309792016654`"},
    {
     RowBox[{"t", "[", "\<\"DRAW-TORQUE\"\>", "]"}], "113.2526653679691`", 
     "51.49686557048506`", "2.1992147310977077`", "0.027887196608659792`"},
    {
     RowBox[{"t", "[", "\<\"DRAW-UNROTATED-AXES\"\>", "]"}], 
     "3.3417271555162835`", "38.21976443592111`", "0.08743453040164575`", 
     "0.9303280066315607`"},
    {
     RowBox[{"t", "[", "\<\"DRAW-UNROTATED-AXES-FOR-ZCOMPS\"\>", "]"}], 
     "22.965821415418077`", "63.0890636210936`", "0.3640222266310438`", 
     "0.715849691762569`"},
    {
     RowBox[{"t", "[", "\<\"DRAW-VECTOR-GIVEN-COMPOS\"\>", "]"}], 
     "114.14234776410501`", "46.828975425907174`", "2.4374299613857895`", 
     "0.014810700335526672`"},
    {
     RowBox[{"t", "[", "\<\"DRAW-VELOCITY-AT-REST\"\>", "]"}], 
     RowBox[{"-", "17.114080944541893`"}], "42.246800299636824`", 
     RowBox[{"-", "0.40509768368633153`"}], "0.685415031728092`"},
    {
     RowBox[{"t", "[", "\<\"DRAW-VELOCITY-CURVED\"\>", "]"}], 
     "1.0068182396422907`", "28.441950603125978`", "0.03539905731822887`", 
     "0.9717622965420558`"},
    {
     RowBox[{"t", "[", "\<\"DRAW-VELOCITY-CURVED-UNKNOWN\"\>", "]"}], 
     "171.7925669584129`", "53.54343760785025`", "3.2084710028633943`", 
     "0.00133895493809022`"},
    {
     RowBox[{"t", "[", "\<\"DRAW-VELOCITY-MOMENTARILY-AT-REST\"\>", "]"}], 
     "64.61697431961359`", "28.007295188351964`", "2.307147972878414`", 
     "0.021068441585193387`"},
    {
     RowBox[{"t", "[", "\<\"DRAW-VELOCITY-STRAIGHT\"\>", "]"}], 
     "54.58520164243349`", "15.945285003840045`", "3.42328165531616`", 
     "0.0006213685728049256`"},
    {
     RowBox[{"t", "[", "\<\"DRAW-VELOCITY-STRAIGHT-UNKNOWN\"\>", "]"}], 
     RowBox[{"-", "176.86651488227494`"}], "80.14866084493103`", 
     RowBox[{"-", "2.2067307552957174`"}], "0.027357231484493025`"},
    {
     RowBox[{"t", "[", "\<\"DRAW-WEIGHT\"\>", "]"}], 
     RowBox[{"-", "54.9102515199832`"}], "24.459315068752016`", 
     RowBox[{"-", "2.2449627622702226`"}], "0.024793940279273556`"},
    {
     RowBox[{"t", "[", "\<\"DRAW-WEIGHT-AT-CM\"\>", "]"}], 
     "13.959044842787812`", "262.8326817203151`", "0.053110004248413355`", 
     "0.9576454017963953`"},
    {
     RowBox[{"t", "[", "\<\"DRAW-ZERO-RELATIVE-POSITION\"\>", "]"}], 
     "99.70006930174071`", "101.47617971278918`", "0.9824972676733059`", 
     "0.32588050053032136`"},
    {
     RowBox[{"t", "[", "\<\"DRAW-ZERO-RELATIVE-VEL\"\>", "]"}], 
     "17.266408343456202`", "35.32189991963252`", "0.4888301134067603`", 
     "0.6249735098346454`"},
    {
     RowBox[{"t", "[", "\<\"FREQUENCY-OF-WAVE\"\>", "]"}], 
     "87.13531000985901`", "102.65879785179608`", "0.8487856066233345`", 
     "0.3960224589676904`"},
    {
     RowBox[{"t", "[", "\<\"GIVEN-FRACTION\"\>", "]"}], 
     RowBox[{"-", "67.37803936995448`"}], "55.61394527291168`", 
     RowBox[{"-", "1.2115313711212794`"}], "0.22572261779079383`"},
    {
     RowBox[{"t", "[", "\<\"KINETIC-FRICTION-LAW\"\>", "]"}], 
     "152.48624928810446`", "394.55644177451904`", "0.3864751228044763`", 
     "0.6991536697377136`"},
    {
     RowBox[{"t", "[", "\<\"MAKE-DOPPLER-FREQUENCY\"\>", "]"}], 
     "29.17955144859935`", "55.95381717900815`", "0.5214934908774457`", 
     "0.6020354636153857`"},
    {
     RowBox[{"t", "[", "\<\"MASS-PER-LENGTH\"\>", "]"}], 
     RowBox[{"-", "279.4653425193224`"}], "158.67141317615497`", 
     RowBox[{"-", "1.7612835035953425`"}], "0.07822330477664467`"},
    {
     RowBox[{"t", "[", "\<\"MASS-PER-LENGTH-EQUATION\"\>", "]"}], 
     "60.27057200889109`", "108.49465804634448`", "0.5555164935691669`", 
     "0.5785548012822499`"},
    {
     RowBox[{"t", "[", "\<\"MAX-TRANSVERSE-ABS-ACCELERATION-WAVE\"\>", "]"}], 
     "96.89875113793751`", "211.20995633258562`", "0.4587792773620677`", 
     "0.6464034043829014`"},
    {
     RowBox[{"t", "[", "\<\"MAX-TRANSVERSE-SPEED-WAVE\"\>", "]"}], 
     "219.98447769628373`", "301.4873881351074`", "0.7296639473280413`", 
     "0.46561401049147877`"},
    {
     RowBox[{"t", "[", "\<\"NTL\"\>", "]"}], 
     RowBox[{"-", "183.20880317884843`"}], "113.42084171107709`", 
     RowBox[{"-", "1.6153010365197773`"}], "0.10627945909893255`"},
    {
     RowBox[{"t", "[", "\<\"OPPOSITE-RELATIVE-POSITION\"\>", "]"}], 
     "135.236688095056`", "149.78342886911148`", "0.9028815077616685`", 
     "0.3666121828708335`"},
    {
     RowBox[{"t", "[", "\<\"PENDULUM-OSCILLATION\"\>", "]"}], 
     RowBox[{"-", "78.67963883015751`"}], "89.89479066070773`", 
     RowBox[{"-", "0.8752413599484329`"}], "0.38146520866315226`"},
    {
     RowBox[{"t", "[", "\<\"PERIOD-OF-WAVE\"\>", "]"}], 
     RowBox[{"-", "17.927385316959736`"}], "56.478241084592`", 
     RowBox[{"-", "0.31742109833251453`"}], "0.750931229903744`"},
    {
     RowBox[{"t", "[", "\<\"PRESSURE-AT-OPEN-TO-ATMOSPHERE\"\>", "]"}], 
     "120.78214842520681`", "73.81914636287135`", "1.6361899910286193`", 
     "0.10183368677098725`"},
    {
     RowBox[{"t", "[", "\<\"PRESSURE-FORCE\"\>", "]"}], 
     RowBox[{"-", "165.8104787443245`"}], "69.82699801085897`", 
     RowBox[{"-", "2.374589821526323`"}], "0.017588642986644053`"},
    {
     RowBox[{"t", "[", "\<\"PRESSURE-HEIGHT-FLUID\"\>", "]"}], 
     "125.97057139645449`", "112.02669048480286`", "1.1244692746997038`", 
     "0.26084303537783926`"},
    {
     RowBox[{"t", "[", "\<\"SDD-CONSTVEL-COMPO\"\>", "]"}], 
     "113.24164967521361`", "32.62585656407294`", "3.4709172907942425`", 
     "0.0005210397882753348`"},
    {
     RowBox[{"t", "[", "\<\"SELECT-MC-ANSWER\"\>", "]"}], 
     "19.977677401064547`", "5.983391501319351`", "3.3388551286773436`", 
     "0.0008445517537758462`"},
    {
     RowBox[{"t", "[", "\<\"SPEED-EQUALS-WAVE-SPEED\"\>", "]"}], 
     RowBox[{"-", "142.70364227603187`"}], "119.36584832198037`", 
     RowBox[{"-", "1.1955148334480026`"}], "0.23191644338898587`"},
    {
     RowBox[{"t", "[", "\<\"SPRING-LAW-COMPRESSION\"\>", "]"}], 
     RowBox[{"-", "60.19535876675973`"}], "87.45749721326243`", 
     RowBox[{"-", "0.6882812873089107`"}], "0.4912928398994869`"},
    {
     RowBox[{"t", "[", "\<\"SPRING-MASS-OSCILLATION\"\>", "]"}], 
     "113.86477552438338`", "92.39348827135294`", "1.2323896159215337`", 
     "0.2178347494880728`"},
    {
     RowBox[{"t", "[", "\<\"STATIC-FRICTION-LAW\"\>", "]"}], 
     RowBox[{"-", "254.96542338374277`"}], "389.4776090770996`", 
     RowBox[{"-", "0.6546343549450893`"}], "0.5127193973007974`"},
    {
     RowBox[{"t", "[", "\<\"USE-CONST-VX\"\>", "]"}], 
     RowBox[{"-", "51.427623544893486`"}], "80.9605051968608`", 
     RowBox[{"-", "0.6352186590219989`"}], "0.5253014519586735`"},
    {
     RowBox[{"t", "[", "\<\"WAVE-SPEED-STRING\"\>", "]"}], 
     "258.770687277964`", "130.42188919793753`", "1.984104730190154`", 
     "0.04727352975249177`"},
    {
     RowBox[{"t", "[", "\<\"WAVENUMBER-LAMBDA-WAVE\"\>", "]"}], 
     "158.46416594510222`", "128.8145524121262`", "1.2301728568532828`", 
     "0.2186635147120617`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-ANG-MOMENTUM\"\>", "]"}], 
     RowBox[{"-", "0.9541562910433874`"}], "41.01369014435723`", 
     RowBox[{"-", "0.023264336558963903`"}], "0.981439918681235`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-ANG-SDD\"\>", "]"}], 
     RowBox[{"-", "20.35942133354234`"}], "85.76473606744355`", 
     RowBox[{"-", "0.23738685929765035`"}], "0.8123619150091722`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-ARCHIMEDES\"\>", "]"}], 
     "38.12194138832954`", "91.06013467803582`", "0.4186457830654269`", 
     "0.6754846972886797`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-AVG-ACCEL-COMPO\"\>", "]"}], 
     RowBox[{"-", "78.41954062825346`"}], "29.653132127867014`", 
     RowBox[{"-", "2.644561805144267`"}], "0.008193424280253216`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-AVG-VEL-COMPO\"\>", "]"}], 
     "99.07894741011046`", "113.95350367697318`", "0.8694681972304423`", 
     "0.3846135466557927`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-BEAT-FREQUENCY\"\>", "]"}], 
     RowBox[{"-", "86.13017173628502`"}], "137.11177788102322`", 
     RowBox[{"-", "0.6281748589900369`"}], "0.529904831565679`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-CENTER-OF-MASS-COMPO\"\>", "]"}], 
     RowBox[{"-", "254.72082476879282`"}], "94.22542412695032`", 
     RowBox[{"-", "2.7033131145751743`"}], "0.00687768675900188`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-CENTRIPETAL-ACCEL\"\>", "]"}], 
     "13.730870810228994`", "145.0367088385115`", "0.09467169325744551`", 
     "0.924577643151582`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-CHANGE-ME-TOP\"\>", "]"}], 
     "333.7881369380044`", "116.40400139590787`", "2.8674971043541686`", 
     "0.0041466310912463555`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-CONNECTED-ACCELS\"\>", "]"}], 
     "221.3658857170661`", "146.501816523431`", "1.5110112008861105`", 
     "0.13081959094681528`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-CONNECTED-VELOCITIES\"\>", "]"}], 
     "65.62506804481595`", "128.21863342633083`", "0.5118216150893655`", 
     "0.6087880203497709`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-CONS-ANGMOM\"\>", "]"}], 
     RowBox[{"-", "56.67641859521217`"}], "124.02744028209803`", 
     RowBox[{"-", "0.45696676853366275`"}], "0.6477056102846876`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-CONS-ANGMOM-JOIN\"\>", "]"}], 
     RowBox[{"-", "65.35417105169981`"}], "130.89290649337912`", 
     RowBox[{"-", "0.49929497940368206`"}], "0.6175834086621865`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-CONS-KE-ELASTIC\"\>", "]"}], 
     "304.5657708847064`", "161.3686888372942`", "1.887390751447425`", 
     "0.05913891611212119`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-CONS-LINMOM-COMPO\"\>", "]"}], 
     RowBox[{"-", "93.6079572207382`"}], "61.275331267784736`", 
     RowBox[{"-", "1.527661381570567`"}], "0.1266306594546701`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-CONS-LINMOM-COMPO-JOIN\"\>", "]"}], 
     RowBox[{"-", "267.5777118769303`"}], "110.74002909945007`", 
     RowBox[{"-", "2.416269112920606`"}], "0.01569961157443527`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-CONS-LINMOM-COMPO-SPLIT\"\>", "]"}], 
     RowBox[{"-", "259.4822692207756`"}], "60.91670714411763`", 
     RowBox[{"-", "4.25962402411031`"}], "0.000020678763468578787`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-DENSITY\"\>", "]"}], 
     RowBox[{"-", "138.11796459042034`"}], "78.83365593069128`", 
     RowBox[{"-", "1.7520177512996538`"}], "0.07980372952973264`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-DISPLACEMENT-DISTANCE\"\>", "]"}], 
     "108.64283207073524`", "77.49770461725949`", "1.4018845152549129`", 
     "0.1609831271886717`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-ENERGY-CONS\"\>", "]"}], 
     "104.03929472074425`", "60.058907322840334`", "1.7322875050238922`", 
     "0.08325555818198938`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-EQUALITY\"\>", "]"}], "88.82702552815353`", 
     "30.021900334141634`", "2.9587409370997504`", "0.0030967718848133874`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-FORCE-COMPOUND\"\>", "]"}], 
     RowBox[{"-", "153.91860672942565`"}], "77.0469108399478`", 
     RowBox[{"-", "1.9977258666368347`"}], "0.045775478939206346`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-FREE-FALL-ACCEL\"\>", "]"}], 
     RowBox[{"-", "425.2527667111303`"}], "84.45990425392385`", 
     RowBox[{"-", "5.034966241882447`"}], "4.869035524628001`*^-7"},
    {
     RowBox[{"t", "[", "\<\"WRITE-G-ON-EARTH\"\>", "]"}], 
     "13.246584243276601`", "26.9870036555232`", "0.4908505002023645`", 
     "0.623543777173563`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-GRAV-ENERGY\"\>", "]"}], 
     "201.76204375347308`", "40.43835058435359`", "4.989373721675455`", 
     "6.16728101920927`*^-7"},
    {
     RowBox[{"t", "[", "\<\"WRITE-HARMONIC-OF\"\>", "]"}], 
     "17.07425846518249`", "31.491607701045805`", "0.5421844012306641`", 
     "0.5877044775011091`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-HEIGHT-DY-COMPO\"\>", "]"}], 
     RowBox[{"-", "312.4160415439741`"}], "64.5463024555112`", 
     RowBox[{"-", "4.840184947221541`"}], "1.3180733209385376`*^-6"},
    {
     RowBox[{"t", "[", "\<\"WRITE-I-COMPOUND\"\>", "]"}], 
     "61.47784595715481`", "156.67765571776053`", "0.3923842597434642`", 
     "0.6947833113241362`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-I-HOOP-CM\"\>", "]"}], 
     RowBox[{"-", "21.842952487710416`"}], "120.25972329986752`", 
     RowBox[{"-", "0.18163148798575757`"}], "0.8558758965038675`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-I-RECT-CM\"\>", "]"}], 
     RowBox[{"-", "188.1690079607532`"}], "148.36910137727136`", 
     RowBox[{"-", "1.2682492932425267`"}], "0.20474070276479228`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-I-ROD-CM\"\>", "]"}], "48.079958148732025`",
      "102.06734775300083`", "0.4710611102101303`", "0.6376081506522207`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-I-ROD-END\"\>", "]"}], 
     RowBox[{"-", "2154.6937765458`"}], "625.818621162438`", 
     RowBox[{"-", "3.443000421661352`"}], "0.0005778340982338068`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-IMPLICIT-EQN\"\>", "]"}], 
     "36.62672675478278`", "9.268601880535728`", "3.951699212769051`", 
     "0.0000781725014409318`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-IMPULSE-COMPO\"\>", "]"}], 
     "247.88053984480354`", "156.85740754704065`", "1.5802922139361864`", 
     "0.11407398806337854`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-IMPULSE-MOMENTUM-COMPO\"\>", "]"}], 
     RowBox[{"-", "305.30400480795424`"}], "83.45673234039985`", 
     RowBox[{"-", "3.658230992829829`"}], "0.0002553666310216523`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-INST-POWER\"\>", "]"}], 
     "129.98779421272337`", "106.69620520766799`", "1.2182981949519371`", 
     "0.2231415976699025`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-INTENSITY-TO-DECIBELS\"\>", "]"}], 
     RowBox[{"-", "16.50416303698225`"}], "78.7796509962078`", 
     RowBox[{"-", "0.20949779325344695`"}], "0.8340642491176975`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-INTENSITY-TO-POWER\"\>", "]"}], 
     RowBox[{"-", "89.74192529919029`"}], "138.4660942591922`", 
     RowBox[{"-", "0.6481148022504627`"}], "0.5169267098641117`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-KINETIC-ENERGY\"\>", "]"}], 
     RowBox[{"-", "99.5629556100257`"}], "31.928957645915947`", 
     RowBox[{"-", "3.1182651408214968`"}], "0.0018247472258962995`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-KNOWN-VALUE-EQN\"\>", "]"}], 
     "39.18697542039597`", "8.058351989359522`", "4.862901927359287`", 
     "1.1757414335455962`*^-6"},
    {
     RowBox[{"t", "[", "\<\"WRITE-LINEAR-VEL\"\>", "]"}], 
     "67.14495995400334`", "76.48332784268663`", "0.8779032221520127`", 
     "0.3800189316260567`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-LK-NO-S-COMPO\"\>", "]"}], 
     "33.49843439619126`", "35.571074544148644`", "0.941732427976418`", 
     "0.34635412234648166`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-LK-NO-T-COMPO\"\>", "]"}], 
     "350.9433036599756`", "47.922163853925724`", "7.323194017901734`", 
     "2.62234678416462`*^-13"},
    {
     RowBox[{"t", "[", "\<\"WRITE-LK-NO-VF-COMPO\"\>", "]"}], 
     "95.05976462674579`", "53.584741300548444`", "1.7740080911013534`", 
     "0.07609454217734646`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-MAG-TORQUE\"\>", "]"}], 
     RowBox[{"-", "28.130415906844693`"}], "38.91776400393648`", 
     RowBox[{"-", "0.7228168582346954`"}], "0.46981059503347133`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-MASS-COMPOUND\"\>", "]"}], 
     "245.53101089573167`", "59.00334549840226`", "4.161306597477262`", 
     "0.000031928228250377444`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-MOMENTUM-COMPO\"\>", "]"}], 
     "93.43381259011788`", "20.94393778998374`", "4.461138756571451`", 
     "8.248375684694054`*^-6"},
    {
     RowBox[{"t", "[", "\<\"WRITE-NET-INTENSITY\"\>", "]"}], 
     "2.5202145706212065`", "156.68915628972172`", "0.016084167087869652`", 
     "0.98716758992182`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-NET-POWER\"\>", "]"}], 
     RowBox[{"-", "295.6446699858031`"}], "228.66820646220495`", 
     RowBox[{"-", "1.2928980139382353`"}], "0.19607846901600867`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-NET-TORQUE\"\>", "]"}], "73.5505365283352`",
      "95.43846500506938`", "0.7706592569822706`", "0.44092851525236343`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-NFL-COMPO\"\>", "]"}], "38.4279578064109`", 
     "15.243323382661483`", "2.5209697939047055`", "0.011719781239571736`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-NL-ROTATION\"\>", "]"}], 
     RowBox[{"-", "55.46927590199965`"}], "135.70666533292544`", 
     RowBox[{"-", "0.4087439313752084`"}], "0.6827370070671468`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-NSL-COMPO\"\>", "]"}], 
     RowBox[{"-", "93.62983915961644`"}], "22.69538781890273`", 
     RowBox[{"-", "4.1255007363933744`"}], "0.000037315327303485324`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-NSL-NET-COMPO\"\>", "]"}], 
     "101.96227728513794`", "110.93480985889276`", "0.9191188718386254`", 
     "0.35805724961361984`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-NTL-VECTOR\"\>", "]"}], 
     "169.54183426447955`", "85.43274108673542`", "1.9845065499227346`", 
     "0.04722875448120667`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-NULL-SPRING-ENERGY\"\>", "]"}], 
     "228.35734490145322`", "65.82679312520106`", "3.4690637969728035`", 
     "0.0005246430613996544`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-PERIOD-CIRCULAR\"\>", "]"}], 
     "140.31363850799394`", "105.43884485809457`", "1.3307584950957665`", 
     "0.18330113192050046`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-POWER\"\>", "]"}], 
     RowBox[{"-", "38.891349705856626`"}], "101.8105072482504`", 
     RowBox[{"-", "0.3819974063288538`"}], "0.7024720212614919`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-PYTH-THM\"\>", "]"}], 
     RowBox[{"-", "157.87546941435804`"}], "112.20153756304309`", 
     RowBox[{"-", "1.4070704630553923`"}], "0.1594399313371404`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-RELATIVE-VEL-COMPO\"\>", "]"}], 
     RowBox[{"-", "23.646694616028004`"}], "52.29127685621926`", 
     RowBox[{"-", "0.45221107683117484`"}], "0.6511274818583029`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-RK-NO-S\"\>", "]"}], "10.35899367652795`", 
     "80.31101776888515`", "0.128985959390261`", "0.8973715495496659`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-RK-NO-T\"\>", "]"}], 
     RowBox[{"-", "17.034760016968693`"}], "122.34513601107386`", 
     RowBox[{"-", "0.13923528611245176`"}], "0.8892672422771223`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-RK-NO-VF\"\>", "]"}], "63.516788716938294`",
      "127.76324568638825`", "0.497144451643383`", "0.6190989485719482`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-ROLLING-VEL\"\>", "]"}], 
     RowBox[{"-", "1256.2223758072132`"}], "607.7291588011443`", 
     RowBox[{"-", "2.067076028218457`"}], "0.038754611013837335`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-ROTATIONAL-ENERGY\"\>", "]"}], 
     "141.80327488866715`", "58.806403712073255`", "2.4113577083026794`", 
     "0.01591251818654027`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-SDD\"\>", "]"}], 
     RowBox[{"-", "33.4898684049487`"}], "64.34725541488469`", 
     RowBox[{"-", "0.5204552733293717`"}], "0.6027586902027565`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-SPEED-OF-WAVE\"\>", "]"}], 
     RowBox[{"-", "24.926538365403466`"}], "40.93758607808634`", 
     RowBox[{"-", "0.6088912599257166`"}], "0.542611398170628`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-SPRING-ENERGY\"\>", "]"}], 
     "54.981525639599994`", "32.58243702279669`", "1.6874589706451828`", 
     "0.09154868434909247`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-SUM-DISP-COMPO\"\>", "]"}], 
     RowBox[{"-", "104.2662782769095`"}], "43.90962590350519`", 
     RowBox[{"-", "2.3745653972557808`"}], "0.017589805984734648`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-SUM-DISTANCES\"\>", "]"}], 
     RowBox[{"-", "151.80153817110977`"}], "162.45280274504992`", 
     RowBox[{"-", "0.9344347133816089`"}], "0.35010397225364387`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-SUM-TIMES\"\>", "]"}], "273.6057150473389`",
      "80.9611041307471`", "3.3794711421608437`", "0.0007292409125279065`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-TENSIONS-EQUAL\"\>", "]"}], 
     RowBox[{"-", "146.99272139557524`"}], "110.90816082083627`", 
     RowBox[{"-", "1.3253553237893003`"}], "0.18508590263138092`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-THRUST-FORCE\"\>", "]"}], 
     "114.51779788251626`", "121.12666352080348`", "0.9454383911338221`", 
     "0.3444596855475264`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-THRUST-FORCE-COMPO\"\>", "]"}], 
     "168.63129101917556`", "124.31811962532737`", "1.3564498202466397`", 
     "0.17498903619882578`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-TIMELESS-BEAT-FREQUENCY\"\>", "]"}], 
     RowBox[{"-", "5.930290998968702`"}], "90.5296965053038`", 
     RowBox[{"-", "0.0655065821260239`"}], "0.9477720745762531`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-TORQUE-ZC\"\>", "]"}], 
     RowBox[{"-", "6.432478081094094`"}], "41.055526167966036`", 
     RowBox[{"-", "0.1566775214322572`"}], "0.875502406336968`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-TOTAL-ENERGY-TOP\"\>", "]"}], 
     "18.783650580568374`", "41.27613348148692`", "0.4550729197780401`", 
     "0.6490674080283843`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-UG\"\>", "]"}], 
     RowBox[{"-", "154.063933953398`"}], "107.3529349529954`", 
     RowBox[{"-", "1.435116180296841`"}], "0.15128763991925298`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-UG-CIRCULAR\"\>", "]"}], 
     RowBox[{"-", "82.90638915170156`"}], "112.55309911644758`", 
     RowBox[{"-", "0.736598012871476`"}], "0.46138543376340246`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-VALUE-OF-ATMOSPHERE\"\>", "]"}], 
     "119.2595358497188`", "98.80943507344564`", "1.2069650611914995`", 
     "0.22747631421764924`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-VOLUME-COMPOUND\"\>", "]"}], 
     "126.77313685044054`", "151.96881764954773`", "0.834204929742821`", 
     "0.40418695148212125`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-WAVE-SPEED-LIGHT\"\>", "]"}], 
     "83.44235470231928`", "132.23092347685775`", "0.6310351051652668`", 
     "0.5280330869824996`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-WNC\"\>", "]"}], 
     RowBox[{"-", "329.05391649683975`"}], "106.47415629117515`", 
     RowBox[{"-", "3.0904580788315914`"}], "0.0020043867821533425`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-WORK\"\>", "]"}], 
     RowBox[{"-", "104.81621114510921`"}], "43.04025888110711`", 
     RowBox[{"-", "2.435306242805133`"}], "0.014897864201702964`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-WORK-DELTA-KE\"\>", "]"}], 
     "118.85621428035596`", "62.53414110200698`", "1.9006611778112577`", 
     "0.057377312332718144`"},
    {
     RowBox[{"t", "[", "\<\"WRITE-ZERO-WORK\"\>", "]"}], 
     RowBox[{"-", "12.454158325021035`"}], "62.415645164823886`", 
     RowBox[{"-", "0.1995358422096377`"}], "0.8418479736973942`"},
    {
     RowBox[{"t", "[", "\<\"WT-LAW\"\>", "]"}], "70.81055487826384`", 
     "30.27136650551624`", "2.339192545713465`", "0.01934653795624941`"},
    {
     RowBox[{"t", "[", "\<\"WT-LAW-CM\"\>", "]"}], "238.35840779790874`", 
     "258.57103750960937`", "0.9218294906251847`", "0.3566414478039186`"}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$, TableHeadings -> {{
       t["ACCEL-AT-REST"], 
       t["ACCEL-CONSTANT-SPEED"], 
       t["APPLY-NET-WORK"], 
       t["AREA-OF-CIRCLE"], 
       t["AVG-ACCEL-UNKNOWN"], 
       t["BERNOULLI"], 
       t["CIRCUMFERENCE-OF-CIRCLE-R"], 
       t["COMPO-GENERAL-CASE"], 
       t["COMPO-GENERAL-CASE-UNKNOWN"], 
       t["COMPO-PARALLEL-AXIS"], 
       t["COMPO-PERPENDICULAR"], 
       t["COMPO-Z-AXIS"], 
       t["COMPO-ZERO-VECTOR"], 
       t["CONTINUITY"], 
       t["DEFINE-AMPLITUDE"], 
       t["DEFINE-AMPLITUDE-MAX-ABS-ACCELERATION"], 
       t["DEFINE-AMPLITUDE-MAX-SPEED"], 
       t["DEFINE-ANGLE-BETWEEN-KNOWN"], 
       t["DEFINE-ANGULAR-FREQUENCY"], 
       t["DEFINE-AREA"], 
       t["DEFINE-AREA-AT"], 
       t["DEFINE-CHANGING-MASS"], 
       t["DEFINE-CHANGING-MOMENT-OF-INERTIA"], 
       t["DEFINE-CIRCUMFERENCE-OF-CIRCLE"], 
       t["DEFINE-COEF-FRICTION"], 
       t["DEFINE-COMPRESSION"], 
       t["DEFINE-DB-INTENSITY"], 
       t["DEFINE-DISTANCE"], 
       t["DEFINE-DURATION"], 
       t["DEFINE-FREQUENCY"], 
       t["DEFINE-GRAV-ENERGY"], 
       t["DEFINE-HEIGHT"], 
       t["DEFINE-INTENSITY"], 
       t["DEFINE-KINETIC-ENERGY"], 
       t["DEFINE-MASS"], 
       t["DEFINE-MASS-CHANGE-MAGNITUDE"], 
       t["DEFINE-MASS-DENSITY"], 
       t["DEFINE-MOMENT-OF-INERTIA"], 
       t["DEFINE-NET-DB-INTENSITY"], 
       t["DEFINE-NET-INTENSITY"], 
       t["DEFINE-NET-POWER-OUT"], 
       t["DEFINE-NET-POWER-VAR"], 
       t["DEFINE-NET-WORK"], 
       t["DEFINE-OBSERVED-FREQUENCY"], 
       t["DEFINE-PERIOD-VAR"], 
       t["DEFINE-POWER-VAR"], 
       t["DEFINE-PRESSURE"], 
       t["DEFINE-RADIUS-OF-CIRCLE"], 
       t["DEFINE-REVOLUTION-RADIUS"], 
       t["DEFINE-ROTATIONAL-ENERGY"], 
       t["DEFINE-SHAPE-LENGTH"], 
       t["DEFINE-SPEED"], 
       t["DEFINE-SPRING-CONSTANT"], 
       t["DEFINE-SPRING-ENERGY"], 
       t["DEFINE-STRING-TENSION"], 
       t["DEFINE-TOTAL-ENERGY"], 
       t["DEFINE-VOLUME"], 
       t["DEFINE-WAVE-SPEED"], 
       t["DEFINE-WAVELENGTH"], 
       t["DEFINE-WAVENUMBER"], 
       t["DEFINE-WIDTH"], 
       t["DEFINE-WNC"], 
       t["DEFINE-WORK"], 
       t["DRAW-ACCEL-CURVED-UNKNOWN"], 
       t["DRAW-ACCEL-FREE-FALL"], 
       t["DRAW-ACCEL-GIVEN-DIR"], 
       t["DRAW-ACCEL-UNKNOWN-NET-FORCE"], 
       t["DRAW-ACCELERATING"], 
       t["DRAW-ANG-ACCEL-UNKNOWN-DIR"], 
       t["DRAW-ANG-ACCELERATING"], 
       t["DRAW-ANG-DECELERATING"], 
       t["DRAW-ANG-DISPLACEMENT-ROTATING"], 
       t["DRAW-ANG-MOMENTUM-ROTATING"], 
       t["DRAW-ANG-VELOCITY-AT-REST"], 
       t["DRAW-ANG-VELOCITY-ROTATING"], 
       t["DRAW-APPLIED-FORCE"], 
       t["DRAW-AVG-VEL-FROM-DISPLACEMENT"], 
       t["DRAW-AVG-VEL-UNKNOWN"], 
       t["DRAW-BODY"], 
       t["DRAW-BUOYANT-FORCE"], 
       t["DRAW-CENTRIPETAL-ACCELERATION"], 
       t["DRAW-COMPO-FORM-AXES"], 
       t["DRAW-DECELERATING"], 
       t["DRAW-DISPLACEMENT-GIVEN-DIR"], 
       t["DRAW-DISPLACEMENT-PROJECTILE"], 
       t["DRAW-DISPLACEMENT-STRAIGHT"], 
       t["DRAW-DISPLACEMENT-UNKNOWN"], 
       t["DRAW-DISPLACEMENT-ZERO"], 
       t["DRAW-DRAG"], 
       t["DRAW-ENERGY-AXES"], 
       t["DRAW-FORCE-COMPOUND"], 
       t["DRAW-GRAV-FORCE"], 
       t["DRAW-IMPULSE-GIVEN-DIR"], 
       t["DRAW-IMPULSE-GIVEN-FORCE"], 
       t["DRAW-IMPULSE-GIVEN-MOMENTA-UNKNOWN-DIR"], 
       t["DRAW-KINETIC-FRICTION"], 
       t["DRAW-MOMENTUM-AT-REST"], 
       t["DRAW-MOMENTUM-STRAIGHT"], 
       t["DRAW-MOMENTUM-STRAIGHT-UNKNOWN"], 
       t["DRAW-NET-FORCE-FROM-ACCEL"], 
       t["DRAW-NET-TORQUE-FROM-ANG-ACCEL"], 
       t["DRAW-NET-TORQUE-NON-ROTATING"], 
       t["DRAW-NET-TORQUE-UNKNOWN-DIR"], 
       t["DRAW-NORMAL"], 
       t["DRAW-OPPOSITE-RELATIVE-POSITION"], 
       t["DRAW-PRESSURE"], 
       t["DRAW-REACTION-FORCE"], 
       t["DRAW-REL-VEL-VECTOR-UNKNOWN"], 
       t["DRAW-RELATIVE-POSITION"], 
       t["DRAW-RELATIVE-POSITION-UNKNOWN"], 
       t["DRAW-RELATIVE-VEL-GIVEN-DIR"], 
       t["DRAW-ROTATE-AXES"], 
       t["DRAW-SOUGHT-VECTOR-UNKNOWN"], 
       t["DRAW-SPRING-FORCE"], 
       t["DRAW-STATIC-FRICTION"], 
       t["DRAW-TENSION"], 
       t["DRAW-THRUST-FORCE"], 
       t["DRAW-THRUST-FORCE-GIVEN-RELATIVE-VEL"], 
       t["DRAW-TORQUE"], 
       t["DRAW-UNROTATED-AXES"], 
       t["DRAW-UNROTATED-AXES-FOR-ZCOMPS"], 
       t["DRAW-VECTOR-GIVEN-COMPOS"], 
       t["DRAW-VELOCITY-AT-REST"], 
       t["DRAW-VELOCITY-CURVED"], 
       t["DRAW-VELOCITY-CURVED-UNKNOWN"], 
       t["DRAW-VELOCITY-MOMENTARILY-AT-REST"], 
       t["DRAW-VELOCITY-STRAIGHT"], 
       t["DRAW-VELOCITY-STRAIGHT-UNKNOWN"], 
       t["DRAW-WEIGHT"], 
       t["DRAW-WEIGHT-AT-CM"], 
       t["DRAW-ZERO-RELATIVE-POSITION"], 
       t["DRAW-ZERO-RELATIVE-VEL"], 
       t["FREQUENCY-OF-WAVE"], 
       t["GIVEN-FRACTION"], 
       t["KINETIC-FRICTION-LAW"], 
       t["MAKE-DOPPLER-FREQUENCY"], 
       t["MASS-PER-LENGTH"], 
       t["MASS-PER-LENGTH-EQUATION"], 
       t["MAX-TRANSVERSE-ABS-ACCELERATION-WAVE"], 
       t["MAX-TRANSVERSE-SPEED-WAVE"], 
       t["NTL"], 
       t["OPPOSITE-RELATIVE-POSITION"], 
       t["PENDULUM-OSCILLATION"], 
       t["PERIOD-OF-WAVE"], 
       t["PRESSURE-AT-OPEN-TO-ATMOSPHERE"], 
       t["PRESSURE-FORCE"], 
       t["PRESSURE-HEIGHT-FLUID"], 
       t["SDD-CONSTVEL-COMPO"], 
       t["SELECT-MC-ANSWER"], 
       t["SPEED-EQUALS-WAVE-SPEED"], 
       t["SPRING-LAW-COMPRESSION"], 
       t["SPRING-MASS-OSCILLATION"], 
       t["STATIC-FRICTION-LAW"], 
       t["USE-CONST-VX"], 
       t["WAVE-SPEED-STRING"], 
       t["WAVENUMBER-LAMBDA-WAVE"], 
       t["WRITE-ANG-MOMENTUM"], 
       t["WRITE-ANG-SDD"], 
       t["WRITE-ARCHIMEDES"], 
       t["WRITE-AVG-ACCEL-COMPO"], 
       t["WRITE-AVG-VEL-COMPO"], 
       t["WRITE-BEAT-FREQUENCY"], 
       t["WRITE-CENTER-OF-MASS-COMPO"], 
       t["WRITE-CENTRIPETAL-ACCEL"], 
       t["WRITE-CHANGE-ME-TOP"], 
       t["WRITE-CONNECTED-ACCELS"], 
       t["WRITE-CONNECTED-VELOCITIES"], 
       t["WRITE-CONS-ANGMOM"], 
       t["WRITE-CONS-ANGMOM-JOIN"], 
       t["WRITE-CONS-KE-ELASTIC"], 
       t["WRITE-CONS-LINMOM-COMPO"], 
       t["WRITE-CONS-LINMOM-COMPO-JOIN"], 
       t["WRITE-CONS-LINMOM-COMPO-SPLIT"], 
       t["WRITE-DENSITY"], 
       t["WRITE-DISPLACEMENT-DISTANCE"], 
       t["WRITE-ENERGY-CONS"], 
       t["WRITE-EQUALITY"], 
       t["WRITE-FORCE-COMPOUND"], 
       t["WRITE-FREE-FALL-ACCEL"], 
       t["WRITE-G-ON-EARTH"], 
       t["WRITE-GRAV-ENERGY"], 
       t["WRITE-HARMONIC-OF"], 
       t["WRITE-HEIGHT-DY-COMPO"], 
       t["WRITE-I-COMPOUND"], 
       t["WRITE-I-HOOP-CM"], 
       t["WRITE-I-RECT-CM"], 
       t["WRITE-I-ROD-CM"], 
       t["WRITE-I-ROD-END"], 
       t["WRITE-IMPLICIT-EQN"], 
       t["WRITE-IMPULSE-COMPO"], 
       t["WRITE-IMPULSE-MOMENTUM-COMPO"], 
       t["WRITE-INST-POWER"], 
       t["WRITE-INTENSITY-TO-DECIBELS"], 
       t["WRITE-INTENSITY-TO-POWER"], 
       t["WRITE-KINETIC-ENERGY"], 
       t["WRITE-KNOWN-VALUE-EQN"], 
       t["WRITE-LINEAR-VEL"], 
       t["WRITE-LK-NO-S-COMPO"], 
       t["WRITE-LK-NO-T-COMPO"], 
       t["WRITE-LK-NO-VF-COMPO"], 
       t["WRITE-MAG-TORQUE"], 
       t["WRITE-MASS-COMPOUND"], 
       t["WRITE-MOMENTUM-COMPO"], 
       t["WRITE-NET-INTENSITY"], 
       t["WRITE-NET-POWER"], 
       t["WRITE-NET-TORQUE"], 
       t["WRITE-NFL-COMPO"], 
       t["WRITE-NL-ROTATION"], 
       t["WRITE-NSL-COMPO"], 
       t["WRITE-NSL-NET-COMPO"], 
       t["WRITE-NTL-VECTOR"], 
       t["WRITE-NULL-SPRING-ENERGY"], 
       t["WRITE-PERIOD-CIRCULAR"], 
       t["WRITE-POWER"], 
       t["WRITE-PYTH-THM"], 
       t["WRITE-RELATIVE-VEL-COMPO"], 
       t["WRITE-RK-NO-S"], 
       t["WRITE-RK-NO-T"], 
       t["WRITE-RK-NO-VF"], 
       t["WRITE-ROLLING-VEL"], 
       t["WRITE-ROTATIONAL-ENERGY"], 
       t["WRITE-SDD"], 
       t["WRITE-SPEED-OF-WAVE"], 
       t["WRITE-SPRING-ENERGY"], 
       t["WRITE-SUM-DISP-COMPO"], 
       t["WRITE-SUM-DISTANCES"], 
       t["WRITE-SUM-TIMES"], 
       t["WRITE-TENSIONS-EQUAL"], 
       t["WRITE-THRUST-FORCE"], 
       t["WRITE-THRUST-FORCE-COMPO"], 
       t["WRITE-TIMELESS-BEAT-FREQUENCY"], 
       t["WRITE-TORQUE-ZC"], 
       t["WRITE-TOTAL-ENERGY-TOP"], 
       t["WRITE-UG"], 
       t["WRITE-UG-CIRCULAR"], 
       t["WRITE-VALUE-OF-ATMOSPHERE"], 
       t["WRITE-VOLUME-COMPOUND"], 
       t["WRITE-WAVE-SPEED-LIGHT"], 
       t["WRITE-WNC"], 
       t["WRITE-WORK"], 
       t["WRITE-WORK-DELTA-KE"], 
       t["WRITE-ZERO-WORK"], 
       t["WT-LAW"], 
       t["WT-LAW-CM"]}, {"Estimate", "SE", "TStat", "PValue"}}]]]], "Output"]
}, Closed]],

Cell["List of significant operators.", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Map", "[", 
  RowBox[{"Last", ",", 
   RowBox[{"Select", "[", 
    RowBox[{
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"pt", ",", 
        RowBox[{"Map", "[", 
         RowBox[{"t", ",", "operators"}], "]"}]}], "}"}], "]"}], ",", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "3"}], "]"}], "]"}], ">", "0.5"}], " ", "&&", 
        " ", 
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ">", "0"}]}], ")"}], 
      "&"}]}], "]"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"t", "[", "\<\"ACCEL-AT-REST\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"AREA-OF-CIRCLE\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"AVG-ACCEL-UNKNOWN\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"CIRCUMFERENCE-OF-CIRCLE-R\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"COMPO-GENERAL-CASE\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"COMPO-GENERAL-CASE-UNKNOWN\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"COMPO-PARALLEL-AXIS\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"COMPO-PERPENDICULAR\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"COMPO-Z-AXIS\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"COMPO-ZERO-VECTOR\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"DEFINE-AMPLITUDE\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"DEFINE-ANGLE-BETWEEN-KNOWN\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"DEFINE-ANGULAR-FREQUENCY\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"DEFINE-AREA-AT\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"DEFINE-CHANGING-MOMENT-OF-INERTIA\"\>", "]"}], ",", 
   
   RowBox[{"t", "[", "\<\"DEFINE-CIRCUMFERENCE-OF-CIRCLE\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"DEFINE-COMPRESSION\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"DEFINE-DISTANCE\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"DEFINE-DURATION\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"DEFINE-FREQUENCY\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"DEFINE-HEIGHT\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"DEFINE-KINETIC-ENERGY\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"DEFINE-MASS-DENSITY\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"DEFINE-MOMENT-OF-INERTIA\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"DEFINE-NET-DB-INTENSITY\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"DEFINE-NET-POWER-OUT\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"DEFINE-NET-POWER-VAR\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"DEFINE-NET-WORK\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"DEFINE-OBSERVED-FREQUENCY\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"DEFINE-PERIOD-VAR\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"DEFINE-POWER-VAR\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"DEFINE-RADIUS-OF-CIRCLE\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"DEFINE-REVOLUTION-RADIUS\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"DEFINE-ROTATIONAL-ENERGY\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"DEFINE-SHAPE-LENGTH\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"DEFINE-SPEED\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"DEFINE-STRING-TENSION\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"DEFINE-WAVE-SPEED\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"DEFINE-WAVELENGTH\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"DEFINE-WAVENUMBER\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"DEFINE-WNC\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"DEFINE-WORK\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"DRAW-ACCEL-FREE-FALL\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"DRAW-ACCEL-UNKNOWN-NET-FORCE\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"DRAW-ACCELERATING\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"DRAW-ANG-DISPLACEMENT-ROTATING\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"DRAW-ANG-MOMENTUM-ROTATING\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"DRAW-ANG-VELOCITY-AT-REST\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"DRAW-ANG-VELOCITY-ROTATING\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"DRAW-AVG-VEL-UNKNOWN\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"DRAW-BODY\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"DRAW-CENTRIPETAL-ACCELERATION\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"DRAW-COMPO-FORM-AXES\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"DRAW-DECELERATING\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"DRAW-DISPLACEMENT-PROJECTILE\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"DRAW-DISPLACEMENT-STRAIGHT\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"DRAW-DISPLACEMENT-UNKNOWN\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"DRAW-DISPLACEMENT-ZERO\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"DRAW-FORCE-COMPOUND\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"DRAW-GRAV-FORCE\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"DRAW-IMPULSE-GIVEN-DIR\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"DRAW-MOMENTUM-STRAIGHT-UNKNOWN\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"DRAW-NORMAL\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"DRAW-PRESSURE\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"DRAW-REACTION-FORCE\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"DRAW-REL-VEL-VECTOR-UNKNOWN\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"DRAW-RELATIVE-POSITION\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"DRAW-RELATIVE-POSITION-UNKNOWN\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"DRAW-ROTATE-AXES\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"DRAW-SOUGHT-VECTOR-UNKNOWN\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"DRAW-STATIC-FRICTION\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"DRAW-TORQUE\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"DRAW-VECTOR-GIVEN-COMPOS\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"DRAW-VELOCITY-CURVED-UNKNOWN\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"DRAW-VELOCITY-MOMENTARILY-AT-REST\"\>", "]"}], ",", 
   
   RowBox[{"t", "[", "\<\"DRAW-VELOCITY-STRAIGHT\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"DRAW-ZERO-RELATIVE-POSITION\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"FREQUENCY-OF-WAVE\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"MAKE-DOPPLER-FREQUENCY\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"MASS-PER-LENGTH-EQUATION\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"MAX-TRANSVERSE-SPEED-WAVE\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"OPPOSITE-RELATIVE-POSITION\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"PRESSURE-AT-OPEN-TO-ATMOSPHERE\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"PRESSURE-HEIGHT-FLUID\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"SDD-CONSTVEL-COMPO\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"SELECT-MC-ANSWER\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"SPRING-MASS-OSCILLATION\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"WAVE-SPEED-STRING\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"WAVENUMBER-LAMBDA-WAVE\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"WRITE-AVG-VEL-COMPO\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"WRITE-CHANGE-ME-TOP\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"WRITE-CONNECTED-ACCELS\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"WRITE-CONNECTED-VELOCITIES\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"WRITE-CONS-KE-ELASTIC\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"WRITE-DISPLACEMENT-DISTANCE\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"WRITE-ENERGY-CONS\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"WRITE-EQUALITY\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"WRITE-GRAV-ENERGY\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"WRITE-HARMONIC-OF\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"WRITE-IMPLICIT-EQN\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"WRITE-IMPULSE-COMPO\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"WRITE-INST-POWER\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"WRITE-KNOWN-VALUE-EQN\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"WRITE-LINEAR-VEL\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"WRITE-LK-NO-S-COMPO\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"WRITE-LK-NO-T-COMPO\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"WRITE-LK-NO-VF-COMPO\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"WRITE-MASS-COMPOUND\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"WRITE-MOMENTUM-COMPO\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"WRITE-NET-TORQUE\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"WRITE-NFL-COMPO\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"WRITE-NSL-NET-COMPO\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"WRITE-NTL-VECTOR\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"WRITE-NULL-SPRING-ENERGY\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"WRITE-PERIOD-CIRCULAR\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"WRITE-ROTATIONAL-ENERGY\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"WRITE-SPRING-ENERGY\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"WRITE-SUM-TIMES\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"WRITE-THRUST-FORCE\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"WRITE-THRUST-FORCE-COMPO\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"WRITE-VALUE-OF-ATMOSPHERE\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"WRITE-VOLUME-COMPOUND\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"WRITE-WAVE-SPEED-LIGHT\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"WRITE-WORK-DELTA-KE\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"WT-LAW\"\>", "]"}], ",", 
   RowBox[{"t", "[", "\<\"WT-LAW-CM\"\>", "]"}]}], "}"}]], "Output"]
}, Closed]],

Cell["\<\
Find pairs of operators where a quadratic term might be significant (this \
takes a while)\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{"Timing", "[", 
   RowBox[{
    RowBox[{"quads", "=", 
     RowBox[{"Select", "[", 
      RowBox[{
       RowBox[{"Flatten", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"i", ",", "j"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"Length", "[", "operators", "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"j", ",", "i", ",", 
             RowBox[{"Length", "[", "operators", "]"}]}], "}"}]}], "]"}], ",",
          "1"}], "]"}], ",", 
       RowBox[{
        RowBox[{"Block", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"i", ",", "j"}], "}"}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"{", 
             RowBox[{"i", ",", "j"}], "}"}], "=", "#"}], ";", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{"i", "\[Equal]", "j"}], ",", 
             RowBox[{
              RowBox[{"Length", "[", 
               RowBox[{"Union", "[", 
                RowBox[{"Normal", "[", 
                 RowBox[{"tmat", "[", 
                  RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "]"}], ">", 
              "2"}], ",", 
             RowBox[{
              RowBox[{"Length", "[", 
               RowBox[{"Union", "[", 
                RowBox[{"Transpose", "[", 
                 RowBox[{"Normal", "[", 
                  RowBox[{"tmat", "[", 
                   RowBox[{"[", "#", "]"}], "]"}], "]"}], "]"}], "]"}], "]"}],
               ">", 
              RowBox[{
               RowBox[{"Length", "[", 
                RowBox[{"Union", "[", 
                 RowBox[{"Normal", "[", 
                  RowBox[{"tmat", "[", 
                   RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "]"}], "+", 
               RowBox[{"Length", "[", 
                RowBox[{"Union", "[", 
                 RowBox[{"Normal", "[", 
                  RowBox[{"tmat", "[", 
                   RowBox[{"[", "j", "]"}], "]"}], "]"}], "]"}], "]"}], "-", 
               "1"}]}]}], "]"}]}]}], "]"}], "&"}]}], "]"}]}], ";"}], 
   "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"507.780806`", " ", "Second"}], ",", "Null"}], "}"}]], "Output"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Save", "[", 
  RowBox[{"\"\<~/log/fallquads.m\>\"", ",", "quads"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"<<", "\"\<~/log/fallquads.m\>\""}]], "Input"],

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{
   RowBox[{
    RowBox[{"newops", "=", 
     RowBox[{"Map", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Apply", "[", 
         RowBox[{"t", ",", 
          RowBox[{"operators", "[", 
           RowBox[{"[", "#", "]"}], "]"}]}], "]"}], "&"}], ",", "quads"}], 
      "]"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{"allops", "=", 
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"Map", "[", 
        RowBox[{"t", ",", "operators"}], "]"}], ",", "newops"}], "]"}]}], 
    ";"}], "\n", 
   RowBox[{
    RowBox[{"moremat", "=", 
     RowBox[{"Map", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Apply", "[", 
         RowBox[{"Times", ",", 
          RowBox[{"tmat", "[", 
           RowBox[{"[", "#", "]"}], "]"}]}], "]"}], "&"}], ",", "quads"}], 
      "]"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{"allmat", "=", 
     RowBox[{"Transpose", "[", 
      RowBox[{"Join", "[", 
       RowBox[{"tmat", ",", "moremat"}], "]"}], "]"}]}], ";"}]}]}]], "Input"],

Cell["This takes a while", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Timing", "[", 
  RowBox[{"MatrixRank", "[", "allmat", "]"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"387.778048`", " ", "Second"}], ",", "2446"}], "}"}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Dimensions", "[", "allmat", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"9539", ",", "4111"}], "}"}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", 
  RowBox[{"Union", "[", "allmat", "]"}], "]"}]], "Input"],

Cell[BoxData["3500"], "Output"]
}, Open  ]],

Cell["\<\
Fortran needs a final newline, hence the \"END\" line at the end\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"els", "=", 
     RowBox[{"Apply", "[", 
      RowBox[{"Append", ",", 
       RowBox[{"Drop", "[", 
        RowBox[{
         RowBox[{"ArrayRules", "[", "mat", "]"}], ",", 
         RowBox[{"-", "1"}]}], "]"}], ",", 
       RowBox[{"{", "1", "}"}]}], "]"}]}], "}"}], ",", 
   RowBox[{"Export", "[", 
    RowBox[{"\"\<~/log/mat.out\>\"", ",", 
     RowBox[{"Append", "[", 
      RowBox[{
       RowBox[{"Prepend", "[", 
        RowBox[{"els", ",", 
         RowBox[{"Append", "[", 
          RowBox[{
           RowBox[{"Dimensions", "[", "mat", "]"}], ",", 
           RowBox[{"Length", "[", "els", "]"}]}], "]"}]}], "]"}], ",", 
       RowBox[{"{", "\"\<END\>\"", "}"}]}], "]"}], ",", "\"\<Table\>\""}], 
    "]"}]}], "]"}]], "Input"],

Cell[BoxData["\<\"~/log/mat.out\"\>"], "Output"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Block", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"els", "=", 
     RowBox[{"Apply", "[", 
      RowBox[{"Append", ",", 
       RowBox[{"Drop", "[", 
        RowBox[{
         RowBox[{"ArrayRules", "[", "allmat", "]"}], ",", 
         RowBox[{"-", "1"}]}], "]"}], ",", 
       RowBox[{"{", "1", "}"}]}], "]"}]}], "}"}], ",", 
   RowBox[{"Export", "[", 
    RowBox[{"\"\<~/log/fallmat.out\>\"", ",", 
     RowBox[{"Append", "[", 
      RowBox[{
       RowBox[{"Prepend", "[", 
        RowBox[{"els", ",", 
         RowBox[{"Append", "[", 
          RowBox[{
           RowBox[{"Dimensions", "[", "allmat", "]"}], ",", 
           RowBox[{"Length", "[", "els", "]"}]}], "]"}]}], "]"}], ",", 
       RowBox[{"{", "\"\<END\>\"", "}"}]}], "]"}], ",", "\"\<Table\>\""}], 
    "]"}]}], "]"}]], "Input"],

Cell["This will need to be renamed \"eachtime.out\" for regress.f", "Text"],

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<~/log/falltime.out\>\"", ",", 
   RowBox[{"Append", "[", 
    RowBox[{
     RowBox[{"Prepend", "[", 
      RowBox[{"eachtime", ",", 
       RowBox[{"Length", "[", "eachtime", "]"}]}], "]"}], ",", 
     "\"\<END\>\""}], "]"}], ",", "\"\<Table\>\""}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"fallreg", "=", 
   RowBox[{"ReadList", "[", 
    RowBox[{"\"\<~/log/fallregress.dat\>\"", ",", "Number", ",", 
     RowBox[{"RecordLists", "\[Rule]", "True"}]}], "]"}]}], ";"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", 
  RowBox[{"sigops", "=", 
   RowBox[{"Select", "[", 
    RowBox[{
     RowBox[{"Transpose", "[", 
      RowBox[{"Prepend", "[", 
       RowBox[{
        RowBox[{"Transpose", "[", "fallreg", "]"}], ",", "allops"}], "]"}], 
      "]"}], ",", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Abs", "[", 
         RowBox[{"#", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "]"}], ">", 
        RowBox[{"#", "[", 
         RowBox[{"[", "3", "]"}], "]"}]}], ")"}], "&"}]}], "]"}]}], 
  "]"}]], "Input"],

Cell[BoxData["905"], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Sort", "[", "sigops", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", "\<\"COMPO-PARALLEL-AXIS\"\>", "]"}], ",", 
     RowBox[{"-", "450.256994`"}], ",", "163.349659`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", "\<\"COMPO-PERPENDICULAR\"\>", "]"}], ",", 
     "535.240703`", ",", "487.808136`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", "\<\"DEFINE-AMPLITUDE\"\>", "]"}], ",", "312.`", ",", 
     "289.432021`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", "\<\"DEFINE-ANGLE-BETWEEN-KNOWN\"\>", "]"}], ",", 
     "2306.111462`", ",", "1248.935424`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", "\<\"DEFINE-COMPRESSION\"\>", "]"}], ",", 
     RowBox[{"-", "753.57335`"}], ",", "538.774115`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", "\<\"DEFINE-DURATION\"\>", "]"}], ",", "322.523857`", 
     ",", "249.064613`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", "\<\"DEFINE-KINETIC-ENERGY\"\>", "]"}], ",", 
     "883.274922`", ",", "598.176083`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", "\<\"DEFINE-MASS-CHANGE-MAGNITUDE\"\>", "]"}], ",", 
     RowBox[{"-", "973.010908`"}], ",", "758.306659`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", "\<\"DEFINE-RADIUS-OF-CIRCLE\"\>", "]"}], ",", 
     RowBox[{"-", "971.304016`"}], ",", "611.210194`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", "\<\"DEFINE-WAVELENGTH\"\>", "]"}], ",", "386.702845`",
      ",", "290.128998`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", "\<\"DRAW-ACCEL-CURVED-UNKNOWN\"\>", "]"}], ",", 
     "4493.184813`", ",", "2787.885996`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", "\<\"DRAW-ACCELERATING\"\>", "]"}], ",", "948.969472`",
      ",", "648.454447`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", "\<\"DRAW-ACCEL-FREE-FALL\"\>", "]"}], ",", 
     "1360.829019`", ",", "988.241772`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", "\<\"DRAW-ANG-VELOCITY-ROTATING\"\>", "]"}], ",", 
     "611.569385`", ",", "433.753535`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", "\<\"DRAW-APPLIED-FORCE\"\>", "]"}], ",", 
     "269.684195`", ",", "202.5881`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", "\<\"DRAW-COMPO-FORM-AXES\"\>", "]"}], ",", 
     "322.187939`", ",", "106.620583`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", "\<\"DRAW-DECELERATING\"\>", "]"}], ",", 
     "1923.150405`", ",", "675.136732`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", "\<\"DRAW-DISPLACEMENT-PROJECTILE\"\>", "]"}], ",", 
     RowBox[{"-", "1375.133745`"}], ",", "1112.037568`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", "\<\"DRAW-DISPLACEMENT-STRAIGHT\"\>", "]"}], ",", 
     RowBox[{"-", "1353.081043`"}], ",", "1208.485338`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", "\<\"DRAW-DISPLACEMENT-ZERO\"\>", "]"}], ",", 
     "1897.03508`", ",", "1724.180002`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", "\<\"DRAW-ENERGY-AXES\"\>", "]"}], ",", "440.`", ",", 
     "409.31869`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", "\<\"DRAW-IMPULSE-GIVEN-DIR\"\>", "]"}], ",", 
     RowBox[{"-", "107.22939`"}], ",", "83.516206`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
     "t", "[", "\<\"DRAW-IMPULSE-GIVEN-MOMENTA-UNKNOWN-DIR\"\>", "]"}], ",", 
     RowBox[{"-", "1380.496562`"}], ",", "706.36035`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", "\<\"DRAW-MOMENTUM-STRAIGHT\"\>", "]"}], ",", 
     "851.191624`", ",", "504.308931`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", "\<\"DRAW-NET-FORCE-FROM-ACCEL\"\>", "]"}], ",", 
     "786.15737`", ",", "697.640276`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", "\<\"DRAW-OPPOSITE-RELATIVE-POSITION\"\>", "]"}], ",", 
     "224.218125`", ",", "115.921977`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", "\<\"DRAW-REACTION-FORCE\"\>", "]"}], ",", 
     "2359.238878`", ",", "1724.697721`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", "\<\"DRAW-RELATIVE-POSITION-UNKNOWN\"\>", "]"}], ",", 
     "837.464837`", ",", "742.804461`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", "\<\"DRAW-RELATIVE-VEL-GIVEN-DIR\"\>", "]"}], ",", 
     "3058.292402`", ",", "1867.160776`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", "\<\"DRAW-ROTATE-AXES\"\>", "]"}], ",", "344.709899`", 
     ",", "145.9244`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", "\<\"DRAW-SOUGHT-VECTOR-UNKNOWN\"\>", "]"}], ",", 
     RowBox[{"-", "2666.992229`"}], ",", "1507.54969`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", "\<\"DRAW-TENSION\"\>", "]"}], ",", "1196.205122`", 
     ",", "674.771507`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", "\<\"DRAW-THRUST-FORCE\"\>", "]"}], ",", 
     RowBox[{"-", "1041.870494`"}], ",", "919.739811`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", "\<\"DRAW-UNROTATED-AXES\"\>", "]"}], ",", 
     "605.023914`", ",", "234.064218`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", "\<\"DRAW-VECTOR-GIVEN-COMPOS\"\>", "]"}], ",", 
     "960.479399`", ",", "874.21887`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", "\<\"DRAW-VELOCITY-CURVED\"\>", "]"}], ",", 
     RowBox[{"-", "782.112004`"}], ",", "758.559382`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", "\<\"DRAW-VELOCITY-CURVED-UNKNOWN\"\>", "]"}], ",", 
     RowBox[{"-", "737.473173`"}], ",", "425.346907`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", "\<\"DRAW-WEIGHT\"\>", "]"}], ",", "868.357141`", ",", 
     "511.134723`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", "\<\"MASS-PER-LENGTH\"\>", "]"}], ",", 
     RowBox[{"-", "414.399783`"}], ",", "258.153773`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", "\<\"SELECT-MC-ANSWER\"\>", "]"}], ",", "90.852036`", 
     ",", "36.140338`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", "\<\"USE-CONST-VX\"\>", "]"}], ",", 
     RowBox[{"-", "240.762667`"}], ",", "199.7946`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", "\<\"WAVE-SPEED-STRING\"\>", "]"}], ",", 
     RowBox[{"-", "368.527643`"}], ",", "216.175256`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", "\<\"WRITE-CHANGE-ME-TOP\"\>", "]"}], ",", 
     RowBox[{"-", "1848.872544`"}], ",", "1303.982082`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", "\<\"WRITE-CONNECTED-VELOCITIES\"\>", "]"}], ",", 
     RowBox[{"-", "300.51602`"}], ",", "190.635049`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", "\<\"WRITE-G-ON-EARTH\"\>", "]"}], ",", "1511.370391`",
      ",", "897.12904`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", "\<\"WRITE-HARMONIC-OF\"\>", "]"}], ",", "137.690436`",
      ",", "130.75153`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", "\<\"WRITE-I-COMPOUND\"\>", "]"}], ",", "2074.701817`",
      ",", "1939.58381`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", "\<\"WRITE-IMPLICIT-EQN\"\>", "]"}], ",", 
     "413.268672`", ",", "267.400682`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", "\<\"WRITE-IMPULSE-COMPO\"\>", "]"}], ",", 
     "1040.467152`", ",", "862.365809`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", "\<\"WRITE-I-ROD-CM\"\>", "]"}], ",", "903.783545`", 
     ",", "894.173054`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", "\<\"WRITE-LK-NO-VF-COMPO\"\>", "]"}], ",", 
     RowBox[{"-", "641.014218`"}], ",", "628.103728`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", "\<\"WRITE-NSL-NET-COMPO\"\>", "]"}], ",", 
     "1159.39338`", ",", "730.724598`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", "\<\"WRITE-RELATIVE-VEL-COMPO\"\>", "]"}], ",", 
     "4102.084449`", ",", "1491.096384`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", "\<\"WRITE-RK-NO-S\"\>", "]"}], ",", "855.753091`", 
     ",", "743.368836`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", "\<\"WRITE-SUM-DISTANCES\"\>", "]"}], ",", 
     RowBox[{"-", "1635.761192`"}], ",", "712.955836`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", "\<\"WRITE-SUM-TIMES\"\>", "]"}], ",", 
     RowBox[{"-", "6737.881111`"}], ",", "2624.359962`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", "\<\"WRITE-THRUST-FORCE\"\>", "]"}], ",", 
     RowBox[{"-", "662.360183`"}], ",", "614.190167`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", "\<\"WRITE-THRUST-FORCE-COMPO\"\>", "]"}], ",", 
     "720.181515`", ",", "669.021883`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", "\<\"WRITE-TORQUE-ZC\"\>", "]"}], ",", "2445.720934`", 
     ",", "1355.323043`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", "\<\"WRITE-UG\"\>", "]"}], ",", 
     RowBox[{"-", "2161.256786`"}], ",", "950.106895`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", "\<\"WRITE-WNC\"\>", "]"}], ",", 
     RowBox[{"-", "1947.499755`"}], ",", "1891.867423`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", "\<\"WT-LAW\"\>", "]"}], ",", "790.453427`", ",", 
     "625.046378`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"ACCEL-AT-REST\"\>", ",", "\<\"COMPO-GENERAL-CASE\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "115.334885`"}], ",", "78.440821`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"ACCEL-AT-REST\"\>", ",", "\<\"COMPO-PERPENDICULAR\"\>"}], 
      "]"}], ",", "221.245802`", ",", "110.671912`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"ACCEL-AT-REST\"\>", ",", "\<\"DEFINE-MASS\"\>"}], "]"}], 
     ",", "488.975383`", ",", "162.10658`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"ACCEL-AT-REST\"\>", 
       ",", "\<\"DEFINE-SPRING-CONSTANT\"\>"}], "]"}], ",", "408.214843`", 
     ",", "243.562815`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"ACCEL-AT-REST\"\>", ",", "\<\"DRAW-APPLIED-FORCE\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "137.367636`"}], ",", "100.022435`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"ACCEL-AT-REST\"\>", ",", "\<\"DRAW-BODY\"\>"}], "]"}], ",",
      
     RowBox[{"-", "689.064918`"}], ",", "469.846`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"ACCEL-AT-REST\"\>", ",", "\<\"DRAW-NORMAL\"\>"}], "]"}], 
     ",", "467.733374`", ",", "197.845708`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"ACCEL-AT-REST\"\>", ",", "\<\"DRAW-ROTATE-AXES\"\>"}], 
      "]"}], ",", "265.631795`", ",", "171.937826`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"ACCEL-AT-REST\"\>", ",", "\<\"DRAW-SPRING-FORCE\"\>"}], 
      "]"}], ",", "408.214843`", ",", "243.562815`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"ACCEL-AT-REST\"\>", ",", "\<\"DRAW-TENSION\"\>"}], "]"}], 
     ",", "568.442381`", ",", "213.202616`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"ACCEL-AT-REST\"\>", ",", "\<\"PRESSURE-FORCE\"\>"}], "]"}],
      ",", 
     RowBox[{"-", "583.73697`"}], ",", "562.817293`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"ACCEL-AT-REST\"\>", ",", "\<\"WRITE-IMPLICIT-EQN\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "118.367571`"}], ",", "99.491308`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"ACCEL-AT-REST\"\>", ",", "\<\"WRITE-KNOWN-VALUE-EQN\"\>"}],
       "]"}], ",", "138.737842`", ",", "93.823349`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"ACCEL-CONSTANT-SPEED\"\>", 
       ",", "\<\"COMPO-GENERAL-CASE\"\>"}], "]"}], ",", 
     RowBox[{"-", "959.923569`"}], ",", "881.955511`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"ACCEL-CONSTANT-SPEED\"\>", ",", "\<\"DEFINE-MASS\"\>"}], 
      "]"}], ",", "1141.386417`", ",", "718.807939`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"ACCEL-CONSTANT-SPEED\"\>", 
       ",", "\<\"WRITE-KNOWN-VALUE-EQN\"\>"}], "]"}], ",", 
     RowBox[{"-", "239.197874`"}], ",", "223.938818`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"APPLY-NET-WORK\"\>", ",", "\<\"COMPO-GENERAL-CASE\"\>"}], 
      "]"}], ",", "5543.013011`", ",", "3025.397105`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"APPLY-NET-WORK\"\>", ",", "\<\"COMPO-PERPENDICULAR\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "3995.495752`"}], ",", "2917.084874`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"APPLY-NET-WORK\"\>", ",", "\<\"DEFINE-DURATION\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "996.620263`"}], ",", "895.618073`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"APPLY-NET-WORK\"\>", ",", "\<\"DEFINE-WNC\"\>"}], "]"}], 
     ",", "5987.726632`", ",", "5002.974006`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"APPLY-NET-WORK\"\>", ",", "\<\"DRAW-ENERGY-AXES\"\>"}], 
      "]"}], ",", "1051.360417`", ",", "933.998838`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"APPLY-NET-WORK\"\>", 
       ",", "\<\"DRAW-VELOCITY-MOMENTARILY-AT-REST\"\>"}], "]"}], ",", 
     "5187.499967`", ",", "4084.558027`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"APPLY-NET-WORK\"\>", ",", "\<\"DRAW-WEIGHT\"\>"}], "]"}], 
     ",", "4684.20501`", ",", "3544.97529`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"APPLY-NET-WORK\"\>", ",", "\<\"WRITE-POWER\"\>"}], "]"}], 
     ",", 
     RowBox[{"-", "1124.692021`"}], ",", "675.979187`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"APPLY-NET-WORK\"\>", 
       ",", "\<\"WRITE-TOTAL-ENERGY-TOP\"\>"}], "]"}], ",", 
     RowBox[{"-", "2646.268331`"}], ",", "2540.323401`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"APPLY-NET-WORK\"\>", ",", "\<\"WRITE-WORK-DELTA-KE\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "2315.368366`"}], ",", "2182.350487`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"AREA-OF-CIRCLE\"\>", ",", "\<\"DRAW-ROTATE-AXES\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "2544.491592`"}], ",", "2212.898729`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"AREA-OF-CIRCLE\"\>", ",", "\<\"WRITE-MASS-COMPOUND\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "1190.239191`"}], ",", "618.426914`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"AREA-OF-CIRCLE\"\>", 
       ",", "\<\"WRITE-VALUE-OF-ATMOSPHERE\"\>"}], "]"}], ",", "1113.30789`", 
     ",", "641.477074`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"BERNOULLI\"\>", ",", "\<\"DEFINE-AREA-AT\"\>"}], "]"}], 
     ",", 
     RowBox[{"-", "2516.789479`"}], ",", "2407.972245`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"BERNOULLI\"\>", 
       ",", "\<\"PRESSURE-AT-OPEN-TO-ATMOSPHERE\"\>"}], "]"}], ",", 
     "3137.262383`", ",", "2405.141385`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"BERNOULLI\"\>", ",", "\<\"WRITE-G-ON-EARTH\"\>"}], "]"}], 
     ",", "4746.613531`", ",", "3707.048038`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-GENERAL-CASE\"\>", 
       ",", "\<\"COMPO-GENERAL-CASE\"\>"}], "]"}], ",", 
     RowBox[{"-", "57.213847`"}], ",", "15.639541`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-GENERAL-CASE\"\>", 
       ",", "\<\"COMPO-GENERAL-CASE-UNKNOWN\"\>"}], "]"}], ",", 
     RowBox[{"-", "387.319472`"}], ",", "210.833117`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-GENERAL-CASE\"\>", 
       ",", "\<\"COMPO-PARALLEL-AXIS\"\>"}], "]"}], ",", 
     RowBox[{"-", "121.439726`"}], ",", "25.946138`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-GENERAL-CASE\"\>", 
       ",", "\<\"COMPO-PERPENDICULAR\"\>"}], "]"}], ",", "147.204817`", ",", 
     "50.304418`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-GENERAL-CASE\"\>", 
       ",", "\<\"COMPO-ZERO-VECTOR\"\>"}], "]"}], ",", "253.00513`", ",", 
     "127.222965`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-GENERAL-CASE\"\>", 
       ",", "\<\"DEFINE-ANGLE-BETWEEN-KNOWN\"\>"}], "]"}], ",", 
     "1766.326887`", ",", "1376.453949`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-GENERAL-CASE\"\>", ",", "\<\"DEFINE-MASS\"\>"}], 
      "]"}], ",", "343.901026`", ",", "90.614925`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-GENERAL-CASE\"\>", 
       ",", "\<\"DRAW-ACCEL-CURVED-UNKNOWN\"\>"}], "]"}], ",", "472.272088`", 
     ",", "321.450296`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-GENERAL-CASE\"\>", 
       ",", "\<\"DRAW-APPLIED-FORCE\"\>"}], "]"}], ",", "71.510671`", ",", 
     "46.741405`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-GENERAL-CASE\"\>", 
       ",", "\<\"DRAW-AVG-VEL-FROM-DISPLACEMENT\"\>"}], "]"}], ",", 
     RowBox[{"-", "113.250591`"}], ",", "93.722569`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-GENERAL-CASE\"\>", ",", "\<\"DRAW-BODY\"\>"}], "]"}],
      ",", "143.546247`", ",", "94.26441`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-GENERAL-CASE\"\>", 
       ",", "\<\"DRAW-DISPLACEMENT-GIVEN-DIR\"\>"}], "]"}], ",", "71.545147`",
      ",", "62.95622`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-GENERAL-CASE\"\>", 
       ",", "\<\"DRAW-MOMENTUM-STRAIGHT-UNKNOWN\"\>"}], "]"}], ",", 
     "1732.188815`", ",", "1162.655546`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-GENERAL-CASE\"\>", 
       ",", "\<\"DRAW-RELATIVE-VEL-GIVEN-DIR\"\>"}], "]"}], ",", 
     "848.459915`", ",", "257.326698`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-GENERAL-CASE\"\>", ",", "\<\"DRAW-TENSION\"\>"}], 
      "]"}], ",", "347.774834`", ",", "115.61887`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-GENERAL-CASE\"\>", 
       ",", "\<\"DRAW-VELOCITY-AT-REST\"\>"}], "]"}], ",", 
     RowBox[{"-", "854.162475`"}], ",", "340.754683`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-GENERAL-CASE\"\>", 
       ",", "\<\"DRAW-VELOCITY-CURVED-UNKNOWN\"\>"}], "]"}], ",", 
     "506.700815`", ",", "321.209304`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-GENERAL-CASE\"\>", ",", "\<\"DRAW-WEIGHT\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "321.746497`"}], ",", "237.855447`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-GENERAL-CASE\"\>", ",", "\<\"USE-CONST-VX\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "542.417986`"}], ",", "418.496436`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-GENERAL-CASE\"\>", 
       ",", "\<\"WRITE-AVG-ACCEL-COMPO\"\>"}], "]"}], ",", "146.514439`", ",",
      "74.446015`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-GENERAL-CASE\"\>", 
       ",", "\<\"WRITE-CONS-LINMOM-COMPO\"\>"}], "]"}], ",", "2087.093876`", 
     ",", "502.582683`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-GENERAL-CASE\"\>", 
       ",", "\<\"WRITE-CONS-LINMOM-COMPO-SPLIT\"\>"}], "]"}], ",", 
     "1170.095115`", ",", "606.044037`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-GENERAL-CASE\"\>", 
       ",", "\<\"WRITE-IMPLICIT-EQN\"\>"}], "]"}], ",", "59.633751`", ",", 
     "25.369753`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-GENERAL-CASE\"\>", 
       ",", "\<\"WRITE-IMPULSE-MOMENTUM-COMPO\"\>"}], "]"}], ",", 
     "1011.166204`", ",", "311.276562`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-GENERAL-CASE\"\>", 
       ",", "\<\"WRITE-LK-NO-S-COMPO\"\>"}], "]"}], ",", "322.757905`", ",", 
     "153.148948`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-GENERAL-CASE\"\>", 
       ",", "\<\"WRITE-MASS-COMPOUND\"\>"}], "]"}], ",", 
     RowBox[{"-", "715.719071`"}], ",", "364.580794`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-GENERAL-CASE\"\>", 
       ",", "\<\"WRITE-MOMENTUM-COMPO\"\>"}], "]"}], ",", 
     RowBox[{"-", "314.777773`"}], ",", "96.350093`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-GENERAL-CASE\"\>", ",", "\<\"WRITE-NFL-COMPO\"\>"}], 
      "]"}], ",", "116.950705`", ",", "27.606198`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-GENERAL-CASE\"\>", 
       ",", "\<\"WRITE-RELATIVE-VEL-COMPO\"\>"}], "]"}], ",", 
     RowBox[{"-", "1417.133353`"}], ",", "300.339102`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-GENERAL-CASE\"\>", 
       ",", "\<\"WRITE-SUM-DISP-COMPO\"\>"}], "]"}], ",", "423.804304`", ",", 
     "239.141407`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-GENERAL-CASE\"\>", 
       ",", "\<\"WRITE-TENSIONS-EQUAL\"\>"}], "]"}], ",", 
     RowBox[{"-", "1425.507806`"}], ",", "573.515363`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-GENERAL-CASE-UNKNOWN\"\>", 
       ",", "\<\"COMPO-PARALLEL-AXIS\"\>"}], "]"}], ",", "507.89307`", ",", 
     "371.831582`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-GENERAL-CASE-UNKNOWN\"\>", 
       ",", "\<\"COMPO-PERPENDICULAR\"\>"}], "]"}], ",", 
     RowBox[{"-", "395.492949`"}], ",", "323.832072`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-GENERAL-CASE-UNKNOWN\"\>", 
       ",", "\<\"COMPO-ZERO-VECTOR\"\>"}], "]"}], ",", "601.826629`", ",", 
     "353.738442`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-GENERAL-CASE-UNKNOWN\"\>", 
       ",", "\<\"DRAW-BODY\"\>"}], "]"}], ",", "604.093588`", ",", 
     "572.220013`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-GENERAL-CASE-UNKNOWN\"\>", 
       ",", "\<\"DRAW-COMPO-FORM-AXES\"\>"}], "]"}], ",", "2558.988443`", ",",
      "1670.693764`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-GENERAL-CASE-UNKNOWN\"\>", 
       ",", "\<\"DRAW-DISPLACEMENT-UNKNOWN\"\>"}], "]"}], ",", "2771.364671`",
      ",", "2136.394387`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-GENERAL-CASE-UNKNOWN\"\>", 
       ",", "\<\"DRAW-MOMENTUM-AT-REST\"\>"}], "]"}], ",", "641.081653`", ",",
      "513.273058`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-GENERAL-CASE-UNKNOWN\"\>", 
       ",", "\<\"DRAW-MOMENTUM-STRAIGHT\"\>"}], "]"}], ",", "615.914528`", 
     ",", "456.457023`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-GENERAL-CASE-UNKNOWN\"\>", 
       ",", "\<\"DRAW-MOMENTUM-STRAIGHT-UNKNOWN\"\>"}], "]"}], ",", 
     "1252.186778`", ",", "1187.8713`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-GENERAL-CASE-UNKNOWN\"\>", 
       ",", "\<\"DRAW-RELATIVE-VEL-GIVEN-DIR\"\>"}], "]"}], ",", 
     RowBox[{"-", "2545.369727`"}], ",", "832.053205`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-GENERAL-CASE-UNKNOWN\"\>", 
       ",", "\<\"DRAW-REL-VEL-VECTOR-UNKNOWN\"\>"}], "]"}], ",", "2144.7513`",
      ",", "2056.852617`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-GENERAL-CASE-UNKNOWN\"\>", 
       ",", "\<\"DRAW-ROTATE-AXES\"\>"}], "]"}], ",", 
     RowBox[{"-", "2538.827264`"}], ",", "1590.074406`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-GENERAL-CASE-UNKNOWN\"\>", 
       ",", "\<\"DRAW-VELOCITY-AT-REST\"\>"}], "]"}], ",", "1730.1767`", ",", 
     "899.719836`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-GENERAL-CASE-UNKNOWN\"\>", 
       ",", "\<\"WRITE-CONS-KE-ELASTIC\"\>"}], "]"}], ",", 
     RowBox[{"-", "1245.187778`"}], ",", "1153.094724`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-GENERAL-CASE-UNKNOWN\"\>", 
       ",", "\<\"WRITE-IMPLICIT-EQN\"\>"}], "]"}], ",", 
     RowBox[{"-", "1039.015006`"}], ",", "465.079963`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-GENERAL-CASE-UNKNOWN\"\>", 
       ",", "\<\"WRITE-KINETIC-ENERGY\"\>"}], "]"}], ",", 
     RowBox[{"-", "917.358821`"}], ",", "648.90943`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-GENERAL-CASE-UNKNOWN\"\>", 
       ",", "\<\"WRITE-MOMENTUM-COMPO\"\>"}], "]"}], ",", 
     RowBox[{"-", "895.952109`"}], ",", "345.622109`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-GENERAL-CASE-UNKNOWN\"\>", 
       ",", "\<\"WRITE-RELATIVE-VEL-COMPO\"\>"}], "]"}], ",", "363.424843`", 
     ",", "334.888532`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-GENERAL-CASE-UNKNOWN\"\>", 
       ",", "\<\"WRITE-SUM-DISP-COMPO\"\>"}], "]"}], ",", 
     RowBox[{"-", "976.107672`"}], ",", "569.137894`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PARALLEL-AXIS\"\>", 
       ",", "\<\"COMPO-PERPENDICULAR\"\>"}], "]"}], ",", 
     RowBox[{"-", "75.58553`"}], ",", "39.470756`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PARALLEL-AXIS\"\>", ",", "\<\"DEFINE-AREA\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "786.390468`"}], ",", "452.608715`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PARALLEL-AXIS\"\>", 
       ",", "\<\"DEFINE-COEF-FRICTION\"\>"}], "]"}], ",", 
     RowBox[{"-", "689.216795`"}], ",", "556.783697`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PARALLEL-AXIS\"\>", ",", "\<\"DEFINE-DURATION\"\>"}],
       "]"}], ",", "178.455592`", ",", "56.108239`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PARALLEL-AXIS\"\>", ",", "\<\"DEFINE-MASS\"\>"}], 
      "]"}], ",", "117.821771`", ",", "68.11329`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PARALLEL-AXIS\"\>", 
       ",", "\<\"DEFINE-RADIUS-OF-CIRCLE\"\>"}], "]"}], ",", 
     RowBox[{"-", "816.123178`"}], ",", "530.591607`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PARALLEL-AXIS\"\>", 
       ",", "\<\"DEFINE-REVOLUTION-RADIUS\"\>"}], "]"}], ",", 
     RowBox[{"-", "989.743412`"}], ",", "670.954404`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PARALLEL-AXIS\"\>", ",", "\<\"DEFINE-WORK\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "840.358367`"}], ",", "469.559615`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PARALLEL-AXIS\"\>", 
       ",", "\<\"DRAW-APPLIED-FORCE\"\>"}], "]"}], ",", "50.593664`", ",", 
     "41.306803`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PARALLEL-AXIS\"\>", 
       ",", "\<\"DRAW-DECELERATING\"\>"}], "]"}], ",", 
     RowBox[{"-", "273.054164`"}], ",", "101.051056`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PARALLEL-AXIS\"\>", 
       ",", "\<\"DRAW-DISPLACEMENT-GIVEN-DIR\"\>"}], "]"}], ",", 
     "270.731522`", ",", "210.083723`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PARALLEL-AXIS\"\>", 
       ",", "\<\"DRAW-DISPLACEMENT-STRAIGHT\"\>"}], "]"}], ",", "545.670528`",
      ",", "117.962074`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PARALLEL-AXIS\"\>", ",", "\<\"DRAW-DRAG\"\>"}], 
      "]"}], ",", "284.957555`", ",", "109.22703`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PARALLEL-AXIS\"\>", 
       ",", "\<\"DRAW-FORCE-COMPOUND\"\>"}], "]"}], ",", "2446.156002`", ",", 
     "2254.584478`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PARALLEL-AXIS\"\>", 
       ",", "\<\"DRAW-IMPULSE-GIVEN-DIR\"\>"}], "]"}], ",", "665.899289`", 
     ",", "331.474975`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PARALLEL-AXIS\"\>", 
       ",", "\<\"DRAW-KINETIC-FRICTION\"\>"}], "]"}], ",", "497.151314`", ",",
      "360.388227`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PARALLEL-AXIS\"\>", 
       ",", "\<\"DRAW-MOMENTUM-AT-REST\"\>"}], "]"}], ",", 
     RowBox[{"-", "433.251038`"}], ",", "141.634802`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PARALLEL-AXIS\"\>", 
       ",", "\<\"DRAW-MOMENTUM-STRAIGHT\"\>"}], "]"}], ",", "135.787455`", 
     ",", "77.145238`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PARALLEL-AXIS\"\>", 
       ",", "\<\"DRAW-MOMENTUM-STRAIGHT-UNKNOWN\"\>"}], "]"}], ",", 
     RowBox[{"-", "2833.244174`"}], ",", "1252.114683`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PARALLEL-AXIS\"\>", ",", "\<\"DRAW-NORMAL\"\>"}], 
      "]"}], ",", "288.18268`", ",", "76.800883`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PARALLEL-AXIS\"\>", 
       ",", "\<\"DRAW-RELATIVE-VEL-GIVEN-DIR\"\>"}], "]"}], ",", 
     "793.529694`", ",", "261.209029`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PARALLEL-AXIS\"\>", 
       ",", "\<\"DRAW-REL-VEL-VECTOR-UNKNOWN\"\>"}], "]"}], ",", 
     RowBox[{"-", "1635.148522`"}], ",", "1067.344396`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PARALLEL-AXIS\"\>", 
       ",", "\<\"DRAW-SPRING-FORCE\"\>"}], "]"}], ",", "189.640784`", ",", 
     "111.020102`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PARALLEL-AXIS\"\>", ",", "\<\"DRAW-TENSION\"\>"}], 
      "]"}], ",", "286.978952`", ",", "78.651007`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PARALLEL-AXIS\"\>", 
       ",", "\<\"DRAW-UNROTATED-AXES\"\>"}], "]"}], ",", 
     RowBox[{"-", "266.134026`"}], ",", "264.260067`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PARALLEL-AXIS\"\>", 
       ",", "\<\"DRAW-VELOCITY-AT-REST\"\>"}], "]"}], ",", "300.562024`", ",",
      "142.141323`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PARALLEL-AXIS\"\>", 
       ",", "\<\"DRAW-VELOCITY-CURVED\"\>"}], "]"}], ",", "867.902317`", ",", 
     "473.756438`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PARALLEL-AXIS\"\>", 
       ",", "\<\"DRAW-VELOCITY-STRAIGHT\"\>"}], "]"}], ",", "105.76395`", ",",
      "42.909033`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PARALLEL-AXIS\"\>", ",", "\<\"DRAW-WEIGHT\"\>"}], 
      "]"}], ",", "102.57681`", ",", "86.43529`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PARALLEL-AXIS\"\>", ",", "\<\"GIVEN-FRACTION\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "189.234803`"}], ",", "137.488923`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PARALLEL-AXIS\"\>", 
       ",", "\<\"OPPOSITE-RELATIVE-POSITION\"\>"}], "]"}], ",", "108.99351`", 
     ",", "96.028289`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PARALLEL-AXIS\"\>", 
       ",", "\<\"WRITE-AVG-ACCEL-COMPO\"\>"}], "]"}], ",", "132.146011`", ",",
      "73.165284`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PARALLEL-AXIS\"\>", 
       ",", "\<\"WRITE-CONNECTED-ACCELS\"\>"}], "]"}], ",", 
     RowBox[{"-", "1021.048816`"}], ",", "348.564458`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PARALLEL-AXIS\"\>", 
       ",", "\<\"WRITE-CONS-LINMOM-COMPO\"\>"}], "]"}], ",", "601.788764`", 
     ",", "213.846535`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PARALLEL-AXIS\"\>", 
       ",", "\<\"WRITE-CONS-LINMOM-COMPO-SPLIT\"\>"}], "]"}], ",", 
     "816.979314`", ",", "246.894858`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PARALLEL-AXIS\"\>", 
       ",", "\<\"WRITE-FREE-FALL-ACCEL\"\>"}], "]"}], ",", 
     RowBox[{"-", "280.531911`"}], ",", "159.993609`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PARALLEL-AXIS\"\>", 
       ",", "\<\"WRITE-IMPLICIT-EQN\"\>"}], "]"}], ",", "31.149205`", ",", 
     "14.574109`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PARALLEL-AXIS\"\>", 
       ",", "\<\"WRITE-LK-NO-T-COMPO\"\>"}], "]"}], ",", "159.850192`", ",", 
     "56.783694`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PARALLEL-AXIS\"\>", 
       ",", "\<\"WRITE-MOMENTUM-COMPO\"\>"}], "]"}], ",", 
     RowBox[{"-", "205.436029`"}], ",", "90.386804`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PARALLEL-AXIS\"\>", ",", "\<\"WRITE-NSL-COMPO\"\>"}],
       "]"}], ",", "63.735932`", ",", "39.056041`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PARALLEL-AXIS\"\>", ",", "\<\"WRITE-PYTH-THM\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "655.423219`"}], ",", "386.519155`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PARALLEL-AXIS\"\>", 
       ",", "\<\"WRITE-RELATIVE-VEL-COMPO\"\>"}], "]"}], ",", 
     RowBox[{"-", "1109.394489`"}], ",", "314.006956`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PARALLEL-AXIS\"\>", 
       ",", "\<\"WRITE-UG-CIRCULAR\"\>"}], "]"}], ",", "330.427152`", ",", 
     "301.33168`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PARALLEL-AXIS\"\>", ",", "\<\"WRITE-WORK\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "840.358367`"}], ",", "469.559615`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PERPENDICULAR\"\>", 
       ",", "\<\"COMPO-ZERO-VECTOR\"\>"}], "]"}], ",", "854.158736`", ",", 
     "404.077345`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PERPENDICULAR\"\>", 
       ",", "\<\"DEFINE-COEF-FRICTION\"\>"}], "]"}], ",", 
     RowBox[{"-", "653.607514`"}], ",", "339.865127`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PERPENDICULAR\"\>", ",", "\<\"DEFINE-MASS\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "145.202822`"}], ",", "144.294874`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PERPENDICULAR\"\>", 
       ",", "\<\"DRAW-ACCEL-FREE-FALL\"\>"}], "]"}], ",", 
     RowBox[{"-", "644.853838`"}], ",", "394.954494`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PERPENDICULAR\"\>", ",", "\<\"DRAW-BODY\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "425.456364`"}], ",", "364.43319`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PERPENDICULAR\"\>", 
       ",", "\<\"DRAW-CENTRIPETAL-ACCELERATION\"\>"}], "]"}], ",", 
     "610.611068`", ",", "575.785516`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PERPENDICULAR\"\>", 
       ",", "\<\"DRAW-COMPO-FORM-AXES\"\>"}], "]"}], ",", "1277.571541`", ",",
      "1106.532826`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PERPENDICULAR\"\>", 
       ",", "\<\"DRAW-DECELERATING\"\>"}], "]"}], ",", 
     RowBox[{"-", "932.560642`"}], ",", "925.652846`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PERPENDICULAR\"\>", 
       ",", "\<\"DRAW-KINETIC-FRICTION\"\>"}], "]"}], ",", "3244.554015`", 
     ",", "1939.359832`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PERPENDICULAR\"\>", 
       ",", "\<\"DRAW-MOMENTUM-STRAIGHT\"\>"}], "]"}], ",", 
     RowBox[{"-", "3316.495835`"}], ",", "2062.329137`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PERPENDICULAR\"\>", ",", "\<\"DRAW-NORMAL\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "612.811139`"}], ",", "216.88897`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PERPENDICULAR\"\>", 
       ",", "\<\"DRAW-REACTION-FORCE\"\>"}], "]"}], ",", "1116.951931`", ",", 
     "955.91146`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PERPENDICULAR\"\>", 
       ",", "\<\"DRAW-RELATIVE-POSITION\"\>"}], "]"}], ",", 
     RowBox[{"-", "629.135668`"}], ",", "515.811478`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PERPENDICULAR\"\>", 
       ",", "\<\"DRAW-RELATIVE-POSITION-UNKNOWN\"\>"}], "]"}], ",", 
     RowBox[{"-", "809.657751`"}], ",", "621.86566`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PERPENDICULAR\"\>", 
       ",", "\<\"DRAW-RELATIVE-VEL-GIVEN-DIR\"\>"}], "]"}], ",", 
     RowBox[{"-", "556.470995`"}], ",", "345.071535`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PERPENDICULAR\"\>", 
       ",", "\<\"DRAW-ROTATE-AXES\"\>"}], "]"}], ",", 
     RowBox[{"-", "202.538998`"}], ",", "127.808554`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PERPENDICULAR\"\>", 
       ",", "\<\"DRAW-STATIC-FRICTION\"\>"}], "]"}], ",", 
     RowBox[{"-", "161.258683`"}], ",", "129.779189`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PERPENDICULAR\"\>", ",", "\<\"DRAW-TENSION\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "881.211158`"}], ",", "202.982747`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PERPENDICULAR\"\>", 
       ",", "\<\"DRAW-THRUST-FORCE\"\>"}], "]"}], ",", 
     RowBox[{"-", "839.375492`"}], ",", "663.864511`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PERPENDICULAR\"\>", 
       ",", "\<\"DRAW-UNROTATED-AXES\"\>"}], "]"}], ",", "4713.291292`", ",", 
     "4675.066909`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PERPENDICULAR\"\>", ",", "\<\"DRAW-WEIGHT\"\>"}], 
      "]"}], ",", "475.607132`", ",", "384.908564`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PERPENDICULAR\"\>", 
       ",", "\<\"DRAW-ZERO-RELATIVE-POSITION\"\>"}], "]"}], ",", 
     RowBox[{"-", "619.56076`"}], ",", "487.14814`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PERPENDICULAR\"\>", ",", "\<\"NTL\"\>"}], "]"}], ",",
      
     RowBox[{"-", "6120.957449`"}], ",", "5199.662366`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PERPENDICULAR\"\>", 
       ",", "\<\"SDD-CONSTVEL-COMPO\"\>"}], "]"}], ",", 
     RowBox[{"-", "539.706547`"}], ",", "477.070777`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PERPENDICULAR\"\>", 
       ",", "\<\"WRITE-CONNECTED-ACCELS\"\>"}], "]"}], ",", "763.728223`", 
     ",", "571.081622`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PERPENDICULAR\"\>", 
       ",", "\<\"WRITE-CONS-KE-ELASTIC\"\>"}], "]"}], ",", 
     RowBox[{"-", "890.47328`"}], ",", "634.860867`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PERPENDICULAR\"\>", 
       ",", "\<\"WRITE-FREE-FALL-ACCEL\"\>"}], "]"}], ",", 
     RowBox[{"-", "644.853838`"}], ",", "394.954494`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PERPENDICULAR\"\>", 
       ",", "\<\"WRITE-INST-POWER\"\>"}], "]"}], ",", 
     RowBox[{"-", "628.821548`"}], ",", "537.529686`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PERPENDICULAR\"\>", 
       ",", "\<\"WRITE-LK-NO-S-COMPO\"\>"}], "]"}], ",", "494.431961`", ",", 
     "430.450749`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PERPENDICULAR\"\>", 
       ",", "\<\"WRITE-LK-NO-VF-COMPO\"\>"}], "]"}], ",", "616.428121`", ",", 
     "458.860046`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PERPENDICULAR\"\>", 
       ",", "\<\"WRITE-MASS-COMPOUND\"\>"}], "]"}], ",", "2033.139912`", ",", 
     "1704.386328`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PERPENDICULAR\"\>", ",", "\<\"WRITE-NFL-COMPO\"\>"}],
       "]"}], ",", "70.129296`", ",", "53.872219`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PERPENDICULAR\"\>", 
       ",", "\<\"WRITE-NTL-VECTOR\"\>"}], "]"}], ",", "2225.910945`", ",", 
     "932.834389`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PERPENDICULAR\"\>", 
       ",", "\<\"WRITE-RELATIVE-VEL-COMPO\"\>"}], "]"}], ",", "862.735572`", 
     ",", "382.355284`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PERPENDICULAR\"\>", 
       ",", "\<\"WRITE-TENSIONS-EQUAL\"\>"}], "]"}], ",", "1949.270763`", ",",
      "521.542239`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PERPENDICULAR\"\>", 
       ",", "\<\"WRITE-TOTAL-ENERGY-TOP\"\>"}], "]"}], ",", 
     RowBox[{"-", "2227.987401`"}], ",", "1933.706762`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-PERPENDICULAR\"\>", ",", "\<\"WRITE-WNC\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "2582.166104`"}], ",", "2236.702153`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-Z-AXIS\"\>", ",", "\<\"COMPO-Z-AXIS\"\>"}], "]"}], 
     ",", "48.865111`", ",", "47.118529`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-Z-AXIS\"\>", 
       ",", "\<\"DEFINE-MOMENT-OF-INERTIA\"\>"}], "]"}], ",", "291.229284`", 
     ",", "266.826034`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-Z-AXIS\"\>", ",", "\<\"DRAW-TORQUE\"\>"}], "]"}], 
     ",", 
     RowBox[{"-", "691.25`"}], ",", "596.679398`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-Z-AXIS\"\>", ",", "\<\"WRITE-CONS-ANGMOM-JOIN\"\>"}],
       "]"}], ",", 
     RowBox[{"-", "516.896187`"}], ",", "109.491272`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-Z-AXIS\"\>", ",", "\<\"WRITE-G-ON-EARTH\"\>"}], 
      "]"}], ",", "2746.682612`", ",", "1070.971468`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-Z-AXIS\"\>", ",", "\<\"WRITE-IMPLICIT-EQN\"\>"}], 
      "]"}], ",", "1156.586239`", ",", "929.476199`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-Z-AXIS\"\>", ",", "\<\"WRITE-KNOWN-VALUE-EQN\"\>"}], 
      "]"}], ",", "123.432563`", ",", "118.489066`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-Z-AXIS\"\>", ",", "\<\"WRITE-NL-ROTATION\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "4309.760161`"}], ",", "3582.014458`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-ZERO-VECTOR\"\>", ",", "\<\"COMPO-ZERO-VECTOR\"\>"}],
       "]"}], ",", 
     RowBox[{"-", "175.725123`"}], ",", "140.990697`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-ZERO-VECTOR\"\>", 
       ",", "\<\"DEFINE-COEF-FRICTION\"\>"}], "]"}], ",", 
     RowBox[{"-", "247.40697`"}], ",", "229.204183`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-ZERO-VECTOR\"\>", ",", "\<\"DEFINE-DURATION\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "1014.584229`"}], ",", "422.590081`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-ZERO-VECTOR\"\>", ",", "\<\"DEFINE-WORK\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "173.057013`"}], ",", "123.306086`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-ZERO-VECTOR\"\>", ",", "\<\"DRAW-BODY\"\>"}], "]"}], 
     ",", 
     RowBox[{"-", "1277.818852`"}], ",", "813.391259`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-ZERO-VECTOR\"\>", 
       ",", "\<\"DRAW-IMPULSE-GIVEN-DIR\"\>"}], "]"}], ",", 
     RowBox[{"-", "1509.765873`"}], ",", "825.538895`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-ZERO-VECTOR\"\>", 
       ",", "\<\"DRAW-KINETIC-FRICTION\"\>"}], "]"}], ",", 
     RowBox[{"-", "247.40697`"}], ",", "229.204183`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-ZERO-VECTOR\"\>", 
       ",", "\<\"DRAW-RELATIVE-POSITION\"\>"}], "]"}], ",", "460.962386`", 
     ",", "339.933115`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-ZERO-VECTOR\"\>", 
       ",", "\<\"DRAW-VELOCITY-STRAIGHT\"\>"}], "]"}], ",", "1120.772646`", 
     ",", "1070.331272`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-ZERO-VECTOR\"\>", ",", "\<\"DRAW-WEIGHT-AT-CM\"\>"}],
       "]"}], ",", "2467.615773`", ",", "1702.271671`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-ZERO-VECTOR\"\>", 
       ",", "\<\"WRITE-CONNECTED-ACCELS\"\>"}], "]"}], ",", "2116.842533`", 
     ",", "581.719128`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-ZERO-VECTOR\"\>", 
       ",", "\<\"WRITE-CONS-KE-ELASTIC\"\>"}], "]"}], ",", 
     RowBox[{"-", "789.534575`"}], ",", "516.202196`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-ZERO-VECTOR\"\>", 
       ",", "\<\"WRITE-CONS-LINMOM-COMPO\"\>"}], "]"}], ",", 
     RowBox[{"-", "2002.595601`"}], ",", "851.831388`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-ZERO-VECTOR\"\>", 
       ",", "\<\"WRITE-IMPLICIT-EQN\"\>"}], "]"}], ",", 
     RowBox[{"-", "129.48666`"}], ",", "68.792243`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-ZERO-VECTOR\"\>", 
       ",", "\<\"WRITE-LK-NO-T-COMPO\"\>"}], "]"}], ",", 
     RowBox[{"-", "735.031077`"}], ",", "280.013885`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-ZERO-VECTOR\"\>", 
       ",", "\<\"WRITE-MASS-COMPOUND\"\>"}], "]"}], ",", 
     RowBox[{"-", "1167.596913`"}], ",", "1130.802888`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-ZERO-VECTOR\"\>", ",", "\<\"WRITE-RK-NO-S\"\>"}], 
      "]"}], ",", "2083.46387`", ",", "1427.610124`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-ZERO-VECTOR\"\>", 
       ",", "\<\"WRITE-TENSIONS-EQUAL\"\>"}], "]"}], ",", "1999.37662`", ",", 
     "541.470471`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-ZERO-VECTOR\"\>", ",", "\<\"WRITE-WORK\"\>"}], "]"}],
      ",", 
     RowBox[{"-", "173.057013`"}], ",", "123.306086`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"COMPO-ZERO-VECTOR\"\>", ",", "\<\"WT-LAW-CM\"\>"}], "]"}], 
     ",", "2785.503788`", ",", "1690.12659`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"CONTINUITY\"\>", ",", "\<\"DEFINE-HEIGHT\"\>"}], "]"}], 
     ",", "1265.791031`", ",", "954.61699`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-ANGLE-BETWEEN-KNOWN\"\>", 
       ",", "\<\"DEFINE-KINETIC-ENERGY\"\>"}], "]"}], ",", "1940.968409`", 
     ",", "1007.358147`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-ANGLE-BETWEEN-KNOWN\"\>", 
       ",", "\<\"DEFINE-MASS\"\>"}], "]"}], ",", 
     RowBox[{"-", "1062.506693`"}], ",", "911.777177`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-ANGLE-BETWEEN-KNOWN\"\>", 
       ",", "\<\"DEFINE-MOMENT-OF-INERTIA\"\>"}], "]"}], ",", 
     RowBox[{"-", "1636.768146`"}], ",", "1526.343601`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-ANGLE-BETWEEN-KNOWN\"\>", 
       ",", "\<\"DEFINE-POWER-VAR\"\>"}], "]"}], ",", 
     RowBox[{"-", "2147.166823`"}], ",", "1134.501064`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-ANGLE-BETWEEN-KNOWN\"\>", 
       ",", "\<\"DEFINE-TOTAL-ENERGY\"\>"}], "]"}], ",", 
     RowBox[{"-", "1202.919439`"}], ",", "1129.386412`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-ANGLE-BETWEEN-KNOWN\"\>", 
       ",", "\<\"DRAW-ANG-ACCELERATING\"\>"}], "]"}], ",", 
     RowBox[{"-", "1636.768146`"}], ",", "1526.343601`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-ANGLE-BETWEEN-KNOWN\"\>", 
       ",", "\<\"DRAW-COMPO-FORM-AXES\"\>"}], "]"}], ",", "5323.743465`", ",",
      "2406.507673`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-ANGLE-BETWEEN-KNOWN\"\>", 
       ",", "\<\"DRAW-DISPLACEMENT-STRAIGHT\"\>"}], "]"}], ",", 
     RowBox[{"-", "1285.165768`"}], ",", "1018.201861`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-ANGLE-BETWEEN-KNOWN\"\>", 
       ",", "\<\"DRAW-ROTATE-AXES\"\>"}], "]"}], ",", 
     RowBox[{"-", "1012.302555`"}], ",", "892.12576`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-ANGLE-BETWEEN-KNOWN\"\>", 
       ",", "\<\"DRAW-UNROTATED-AXES\"\>"}], "]"}], ",", 
     RowBox[{"-", "1886.298722`"}], ",", "1200.867886`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-ANGLE-BETWEEN-KNOWN\"\>", 
       ",", "\<\"WRITE-EQUALITY\"\>"}], "]"}], ",", "1877.594384`", ",", 
     "1616.069324`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-ANGLE-BETWEEN-KNOWN\"\>", 
       ",", "\<\"WRITE-G-ON-EARTH\"\>"}], "]"}], ",", "459.036325`", ",", 
     "430.124478`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-ANGLE-BETWEEN-KNOWN\"\>", 
       ",", "\<\"WRITE-NL-ROTATION\"\>"}], "]"}], ",", 
     RowBox[{"-", "1636.768146`"}], ",", "1526.343601`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-ANGLE-BETWEEN-KNOWN\"\>", 
       ",", "\<\"WRITE-POWER\"\>"}], "]"}], ",", "1033.473832`", ",", 
     "766.05099`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-ANGULAR-FREQUENCY\"\>", 
       ",", "\<\"WAVENUMBER-LAMBDA-WAVE\"\>"}], "]"}], ",", "1614.275332`", 
     ",", "1232.673932`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-AREA\"\>", ",", "\<\"DEFINE-RADIUS-OF-CIRCLE\"\>"}],
       "]"}], ",", "1300.498179`", ",", "1052.683757`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-AREA\"\>", ",", "\<\"DRAW-PRESSURE\"\>"}], "]"}], 
     ",", "1219.950953`", ",", "666.206079`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-AREA\"\>", ",", "\<\"WRITE-MASS-COMPOUND\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "1190.239191`"}], ",", "618.426914`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-CHANGING-MASS\"\>", 
       ",", "\<\"WRITE-IMPLICIT-EQN\"\>"}], "]"}], ",", "749.112188`", ",", 
     "657.197931`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-CHANGING-MOMENT-OF-INERTIA\"\>", 
       ",", "\<\"DRAW-UNROTATED-AXES-FOR-ZCOMPS\"\>"}], "]"}], ",", 
     "1523.591208`", ",", "1410.898565`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-CHANGING-MOMENT-OF-INERTIA\"\>", 
       ",", "\<\"WRITE-ANG-MOMENTUM\"\>"}], "]"}], ",", 
     RowBox[{"-", "578.631786`"}], ",", "549.44159`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-COEF-FRICTION\"\>", 
       ",", "\<\"DRAW-DECELERATING\"\>"}], "]"}], ",", 
     RowBox[{"-", "247.40697`"}], ",", "229.204183`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-COEF-FRICTION\"\>", 
       ",", "\<\"WRITE-IMPLICIT-EQN\"\>"}], "]"}], ",", 
     RowBox[{"-", "531.43444`"}], ",", "379.797526`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-COEF-FRICTION\"\>", 
       ",", "\<\"WRITE-LK-NO-T-COMPO\"\>"}], "]"}], ",", 
     RowBox[{"-", "173.057013`"}], ",", "123.306086`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-COEF-FRICTION\"\>", 
       ",", "\<\"WRITE-NSL-COMPO\"\>"}], "]"}], ",", 
     RowBox[{"-", "375.110782`"}], ",", "249.986403`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-COEF-FRICTION\"\>", ",", "\<\"WRITE-WORK\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "173.057013`"}], ",", "123.306086`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-COMPRESSION\"\>", ",", "\<\"DEFINE-POWER-VAR\"\>"}],
       "]"}], ",", "727.361103`", ",", "668.561046`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-COMPRESSION\"\>", 
       ",", "\<\"DEFINE-SPRING-ENERGY\"\>"}], "]"}], ",", 
     RowBox[{"-", "761.464617`"}], ",", "726.679995`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-DB-INTENSITY\"\>", 
       ",", "\<\"OPPOSITE-RELATIVE-POSITION\"\>"}], "]"}], ",", 
     RowBox[{"-", "244.819865`"}], ",", "162.889015`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-DISTANCE\"\>", ",", "\<\"DEFINE-DURATION\"\>"}], 
      "]"}], ",", "1008.863477`", ",", "730.345128`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-DISTANCE\"\>", ",", "\<\"DEFINE-SPEED\"\>"}], "]"}],
      ",", 
     RowBox[{"-", "772.708971`"}], ",", "279.655163`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-DISTANCE\"\>", ",", "\<\"MASS-PER-LENGTH\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "532.127181`"}], ",", "319.625726`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-DISTANCE\"\>", 
       ",", "\<\"SPEED-EQUALS-WAVE-SPEED\"\>"}], "]"}], ",", "844.583098`", 
     ",", "642.943178`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-DISTANCE\"\>", ",", "\<\"WRITE-EQUALITY\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "1734.639374`"}], ",", "630.714837`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-DISTANCE\"\>", ",", "\<\"WRITE-SDD\"\>"}], "]"}], 
     ",", "988.156173`", ",", "359.793574`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-DISTANCE\"\>", ",", "\<\"WRITE-SUM-DISTANCES\"\>"}],
       "]"}], ",", 
     RowBox[{"-", "6508.357921`"}], ",", "2845.543082`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-DURATION\"\>", ",", "\<\"DEFINE-DURATION\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "148.17931`"}], ",", "103.647886`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-DURATION\"\>", ",", "\<\"DEFINE-SPEED\"\>"}], "]"}],
      ",", 
     RowBox[{"-", "1278.875296`"}], ",", "530.464508`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-DURATION\"\>", ",", "\<\"DRAW-ACCELERATING\"\>"}], 
      "]"}], ",", "423.664418`", ",", "192.32339`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-DURATION\"\>", 
       ",", "\<\"DRAW-ACCEL-FREE-FALL\"\>"}], "]"}], ",", "744.421477`", ",", 
     "468.240516`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-DURATION\"\>", ",", "\<\"DRAW-BODY\"\>"}], "]"}], 
     ",", "717.337424`", ",", "476.439707`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-DURATION\"\>", 
       ",", "\<\"DRAW-COMPO-FORM-AXES\"\>"}], "]"}], ",", 
     RowBox[{"-", "819.079215`"}], ",", "585.63823`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-DURATION\"\>", 
       ",", "\<\"DRAW-MOMENTUM-STRAIGHT\"\>"}], "]"}], ",", 
     RowBox[{"-", "1345.946429`"}], ",", "1042.934319`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-DURATION\"\>", 
       ",", "\<\"DRAW-NET-FORCE-FROM-ACCEL\"\>"}], "]"}], ",", 
     RowBox[{"-", "921.180221`"}], ",", "907.120158`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-DURATION\"\>", ",", "\<\"DRAW-NORMAL\"\>"}], "]"}], 
     ",", "3469.486179`", ",", "1480.155548`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-DURATION\"\>", ",", "\<\"DRAW-ROTATE-AXES\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "949.699319`"}], ",", "575.438716`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-DURATION\"\>", ",", "\<\"DRAW-TENSION\"\>"}], "]"}],
      ",", 
     RowBox[{"-", "1390.096733`"}], ",", "942.423165`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-DURATION\"\>", ",", "\<\"DRAW-UNROTATED-AXES\"\>"}],
       "]"}], ",", 
     RowBox[{"-", "764.101268`"}], ",", "697.376762`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-DURATION\"\>", 
       ",", "\<\"DRAW-VELOCITY-CURVED-UNKNOWN\"\>"}], "]"}], ",", 
     "1090.989438`", ",", "776.211732`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-DURATION\"\>", 
       ",", "\<\"DRAW-VELOCITY-MOMENTARILY-AT-REST\"\>"}], "]"}], ",", 
     "493.070611`", ",", "421.360844`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-DURATION\"\>", 
       ",", "\<\"DRAW-VELOCITY-STRAIGHT\"\>"}], "]"}], ",", 
     RowBox[{"-", "251.036176`"}], ",", "222.236`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-DURATION\"\>", ",", "\<\"DRAW-WEIGHT\"\>"}], "]"}], 
     ",", "2003.177794`", ",", "1269.818865`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-DURATION\"\>", ",", "\<\"SDD-CONSTVEL-COMPO\"\>"}], 
      "]"}], ",", "856.663158`", ",", "725.717845`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-DURATION\"\>", ",", "\<\"WRITE-EQUALITY\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "828.379801`"}], ",", "535.518774`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-DURATION\"\>", 
       ",", "\<\"WRITE-FREE-FALL-ACCEL\"\>"}], "]"}], ",", 
     RowBox[{"-", "3046.114311`"}], ",", "1087.175496`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-DURATION\"\>", ",", "\<\"WRITE-G-ON-EARTH\"\>"}], 
      "]"}], ",", "1575.246478`", ",", "927.83941`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-DURATION\"\>", ",", "\<\"WRITE-LK-NO-S-COMPO\"\>"}],
       "]"}], ",", 
     RowBox[{"-", "628.837614`"}], ",", "325.235638`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-DURATION\"\>", 
       ",", "\<\"WRITE-MOMENTUM-COMPO\"\>"}], "]"}], ",", 
     RowBox[{"-", "2063.855075`"}], ",", "2011.263716`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-DURATION\"\>", ",", "\<\"WRITE-SUM-DISTANCES\"\>"}],
       "]"}], ",", "15551.015247`", ",", "5461.56446`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-DURATION\"\>", ",", "\<\"WRITE-SUM-TIMES\"\>"}], 
      "]"}], ",", "1393.380404`", ",", "693.489877`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-DURATION\"\>", 
       ",", "\<\"WRITE-TENSIONS-EQUAL\"\>"}], "]"}], ",", "317.449568`", ",", 
     "220.773308`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-FREQUENCY\"\>", 
       ",", "\<\"DRAW-RELATIVE-VEL-GIVEN-DIR\"\>"}], "]"}], ",", 
     RowBox[{"-", "2442.403849`"}], ",", "1959.140896`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-FREQUENCY\"\>", ",", "\<\"WRITE-G-ON-EARTH\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "541.77424`"}], ",", "448.086219`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-FREQUENCY\"\>", 
       ",", "\<\"WRITE-MASS-COMPOUND\"\>"}], "]"}], ",", "2114.581205`", ",", 
     "1927.161853`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-FREQUENCY\"\>", ",", "\<\"WRITE-NFL-COMPO\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "265.167482`"}], ",", "221.883349`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-GRAV-ENERGY\"\>", ",", "\<\"DEFINE-WORK\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "1067.521666`"}], ",", "1011.01114`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-HEIGHT\"\>", ",", "\<\"DEFINE-WNC\"\>"}], "]"}], 
     ",", 
     RowBox[{"-", "1144.438632`"}], ",", "830.87936`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-HEIGHT\"\>", ",", "\<\"DRAW-ENERGY-AXES\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "1100.824576`"}], ",", "946.673945`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-HEIGHT\"\>", ",", "\<\"DRAW-NORMAL\"\>"}], "]"}], 
     ",", 
     RowBox[{"-", "819.693856`"}], ",", "420.317176`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-HEIGHT\"\>", ",", "\<\"DRAW-UNROTATED-AXES\"\>"}], 
      "]"}], ",", "1056.341126`", ",", "930.113603`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-HEIGHT\"\>", ",", "\<\"DRAW-WEIGHT\"\>"}], "]"}], 
     ",", "1401.240611`", ",", "1143.52216`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-HEIGHT\"\>", ",", "\<\"WRITE-KNOWN-VALUE-EQN\"\>"}],
       "]"}], ",", "162.77108`", ",", "138.75169`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-HEIGHT\"\>", ",", "\<\"WRITE-WORK-DELTA-KE\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "1592.303541`"}], ",", "1417.889994`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-INTENSITY\"\>", ",", "\<\"DRAW-BODY\"\>"}], "]"}], 
     ",", "488.647567`", ",", "437.995079`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-INTENSITY\"\>", 
       ",", "\<\"DRAW-RELATIVE-POSITION-UNKNOWN\"\>"}], "]"}], ",", 
     "866.182675`", ",", "672.584323`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-INTENSITY\"\>", 
       ",", "\<\"OPPOSITE-RELATIVE-POSITION\"\>"}], "]"}], ",", 
     RowBox[{"-", "244.819865`"}], ",", "162.889015`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-KINETIC-ENERGY\"\>", 
       ",", "\<\"DEFINE-SPRING-ENERGY\"\>"}], "]"}], ",", 
     RowBox[{"-", "1410.007176`"}], ",", "782.640441`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-KINETIC-ENERGY\"\>", 
       ",", "\<\"DRAW-APPLIED-FORCE\"\>"}], "]"}], ",", "1206.970004`", ",", 
     "1199.144538`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-KINETIC-ENERGY\"\>", 
       ",", "\<\"DRAW-KINETIC-FRICTION\"\>"}], "]"}], ",", 
     RowBox[{"-", "869.60809`"}], ",", "640.306354`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-KINETIC-ENERGY\"\>", 
       ",", "\<\"DRAW-MOMENTUM-STRAIGHT-UNKNOWN\"\>"}], "]"}], ",", 
     "2216.640551`", ",", "1064.031581`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-KINETIC-ENERGY\"\>", 
       ",", "\<\"DRAW-VELOCITY-AT-REST\"\>"}], "]"}], ",", "1401.873613`", 
     ",", "1401.547288`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-KINETIC-ENERGY\"\>", ",", "\<\"WRITE-POWER\"\>"}], 
      "]"}], ",", "1093.743181`", ",", "1062.075623`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-MASS\"\>", 
       ",", "\<\"DEFINE-MOMENT-OF-INERTIA\"\>"}], "]"}], ",", 
     RowBox[{"-", "1554.32232`"}], ",", "1517.31879`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-MASS\"\>", ",", "\<\"DEFINE-NET-WORK\"\>"}], "]"}], 
     ",", "4016.276939`", ",", "3439.49447`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-MASS\"\>", ",", "\<\"DEFINE-PRESSURE\"\>"}], "]"}], 
     ",", "3294.656861`", ",", "3214.621412`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-MASS\"\>", ",", "\<\"DEFINE-RADIUS-OF-CIRCLE\"\>"}],
       "]"}], ",", "1003.524236`", ",", "928.131078`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-MASS\"\>", ",", "\<\"DEFINE-WAVELENGTH\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "412.485803`"}], ",", "397.445607`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-MASS\"\>", ",", "\<\"DEFINE-WNC\"\>"}], "]"}], ",", 
     
     RowBox[{"-", "1407.437888`"}], ",", "1346.776776`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-MASS\"\>", ",", "\<\"DRAW-ACCELERATING\"\>"}], 
      "]"}], ",", "489.369354`", ",", "354.107466`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-MASS\"\>", ",", "\<\"DRAW-DECELERATING\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "788.585031`"}], ",", "649.875958`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-MASS\"\>", ",", "\<\"DRAW-DRAG\"\>"}], "]"}], ",", 
     RowBox[{"-", "1259.778612`"}], ",", "615.075211`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-MASS\"\>", ",", "\<\"DRAW-IMPULSE-GIVEN-DIR\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "228.452554`"}], ",", "113.631426`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-MASS\"\>", ",", "\<\"DRAW-MOMENTUM-STRAIGHT\"\>"}], 
      "]"}], ",", "716.093336`", ",", "467.818707`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-MASS\"\>", ",", "\<\"DRAW-NORMAL\"\>"}], "]"}], ",",
      
     RowBox[{"-", "758.989677`"}], ",", "232.552451`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-MASS\"\>", ",", "\<\"DRAW-PRESSURE\"\>"}], "]"}], 
     ",", 
     RowBox[{"-", "2888.149203`"}], ",", "1896.571542`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-MASS\"\>", ",", "\<\"DRAW-SPRING-FORCE\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "929.826003`"}], ",", "622.899265`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-MASS\"\>", ",", "\<\"DRAW-TENSION\"\>"}], "]"}], 
     ",", 
     RowBox[{"-", "999.384657`"}], ",", "281.247698`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-MASS\"\>", ",", "\<\"DRAW-TORQUE\"\>"}], "]"}], ",",
      "2322.170286`", ",", "1175.852965`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-MASS\"\>", ",", "\<\"DRAW-WEIGHT\"\>"}], "]"}], ",",
      "1083.575647`", ",", "297.858738`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-MASS\"\>", 
       ",", "\<\"OPPOSITE-RELATIVE-POSITION\"\>"}], "]"}], ",", "108.99351`", 
     ",", "96.028289`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-MASS\"\>", ",", "\<\"WAVE-SPEED-STRING\"\>"}], 
      "]"}], ",", "402.737741`", ",", "400.352791`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-MASS\"\>", ",", "\<\"WRITE-ARCHIMEDES\"\>"}], "]"}],
      ",", "3652.75049`", ",", "2334.028905`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-MASS\"\>", ",", "\<\"WRITE-CONS-LINMOM-COMPO\"\>"}],
       "]"}], ",", 
     RowBox[{"-", "2395.004663`"}], ",", "1445.932209`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-MASS\"\>", ",", "\<\"WRITE-G-ON-EARTH\"\>"}], "]"}],
      ",", 
     RowBox[{"-", "409.87317`"}], ",", "261.877486`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-MASS\"\>", ",", "\<\"WRITE-IMPLICIT-EQN\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "157.97014`"}], ",", "93.408571`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-MASS\"\>", ",", "\<\"WRITE-I-ROD-CM\"\>"}], "]"}], 
     ",", "496.479155`", ",", "470.290714`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-MASS\"\>", ",", "\<\"WRITE-KNOWN-VALUE-EQN\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "183.677038`"}], ",", "110.536416`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-MASS\"\>", ",", "\<\"WRITE-LK-NO-T-COMPO\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "693.271561`"}], ",", "362.202864`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-MASS\"\>", ",", "\<\"WRITE-MASS-COMPOUND\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "1805.209619`"}], ",", "1137.498328`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-MASS\"\>", ",", "\<\"WRITE-NFL-COMPO\"\>"}], "]"}], 
     ",", 
     RowBox[{"-", "176.050547`"}], ",", "103.422611`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-MASS\"\>", ",", "\<\"WRITE-NSL-COMPO\"\>"}], "]"}], 
     ",", "851.414122`", ",", "768.865176`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-MASS\"\>", ",", "\<\"WRITE-TORQUE-ZC\"\>"}], "]"}], 
     ",", 
     RowBox[{"-", "3366.816989`"}], ",", "1205.780865`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-MASS\"\>", ",", "\<\"WRITE-WORK\"\>"}], "]"}], ",", 
     
     RowBox[{"-", "2056.357695`"}], ",", "1914.64865`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-MASS-CHANGE-MAGNITUDE\"\>", 
       ",", "\<\"DRAW-RELATIVE-VEL-GIVEN-DIR\"\>"}], "]"}], ",", 
     RowBox[{"-", "1130.304279`"}], ",", "942.657086`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-MASS-CHANGE-MAGNITUDE\"\>", 
       ",", "\<\"DRAW-ROTATE-AXES\"\>"}], "]"}], ",", 
     RowBox[{"-", "555.332971`"}], ",", "506.605637`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-MASS-CHANGE-MAGNITUDE\"\>", 
       ",", "\<\"DRAW-THRUST-FORCE-GIVEN-RELATIVE-VEL\"\>"}], "]"}], ",", 
     "894.530516`", ",", "731.939576`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-MASS-CHANGE-MAGNITUDE\"\>", 
       ",", "\<\"WRITE-IMPLICIT-EQN\"\>"}], "]"}], ",", "749.112188`", ",", 
     "657.197931`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-MASS-CHANGE-MAGNITUDE\"\>", 
       ",", "\<\"WRITE-KNOWN-VALUE-EQN\"\>"}], "]"}], ",", "1226.554556`", 
     ",", "955.67978`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-MOMENT-OF-INERTIA\"\>", 
       ",", "\<\"DRAW-NET-TORQUE-FROM-ANG-ACCEL\"\>"}], "]"}], ",", 
     RowBox[{"-", "1453.57721`"}], ",", "1067.529879`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-MOMENT-OF-INERTIA\"\>", 
       ",", "\<\"SELECT-MC-ANSWER\"\>"}], "]"}], ",", 
     RowBox[{"-", "778.004031`"}], ",", "746.101382`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-MOMENT-OF-INERTIA\"\>", 
       ",", "\<\"WRITE-ANG-MOMENTUM\"\>"}], "]"}], ",", 
     RowBox[{"-", "978.181258`"}], ",", "804.056007`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-MOMENT-OF-INERTIA\"\>", 
       ",", "\<\"WRITE-NET-TORQUE\"\>"}], "]"}], ",", 
     RowBox[{"-", "1856.51491`"}], ",", "1782.084407`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-NET-POWER-VAR\"\>", 
       ",", "\<\"DRAW-VELOCITY-STRAIGHT\"\>"}], "]"}], ",", 
     RowBox[{"-", "1024.364816`"}], ",", "973.996162`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-NET-POWER-VAR\"\>", ",", "\<\"WRITE-EQUALITY\"\>"}],
       "]"}], ",", 
     RowBox[{"-", "959.964123`"}], ",", "875.93261`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-NET-WORK\"\>", ",", "\<\"DRAW-WEIGHT\"\>"}], "]"}], 
     ",", "2938.249874`", ",", "2061.981115`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-OBSERVED-FREQUENCY\"\>", 
       ",", "\<\"DRAW-ROTATE-AXES\"\>"}], "]"}], ",", 
     RowBox[{"-", "619.673832`"}], ",", "508.30328`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-OBSERVED-FREQUENCY\"\>", 
       ",", "\<\"DRAW-ZERO-RELATIVE-VEL\"\>"}], "]"}], ",", 
     RowBox[{"-", "879.39592`"}], ",", "545.167966`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-PERIOD-VAR\"\>", 
       ",", "\<\"DRAW-CENTRIPETAL-ACCELERATION\"\>"}], "]"}], ",", 
     RowBox[{"-", "396.626623`"}], ",", "246.562462`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-PERIOD-VAR\"\>", ",", "\<\"DRAW-GRAV-FORCE\"\>"}], 
      "]"}], ",", "929.39393`", ",", "574.509883`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-PERIOD-VAR\"\>", 
       ",", "\<\"DRAW-RELATIVE-POSITION\"\>"}], "]"}], ",", "836.629872`", 
     ",", "604.409041`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-PERIOD-VAR\"\>", 
       ",", "\<\"PENDULUM-OSCILLATION\"\>"}], "]"}], ",", 
     RowBox[{"-", "341.892059`"}], ",", "329.820771`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-PERIOD-VAR\"\>", 
       ",", "\<\"WRITE-CENTRIPETAL-ACCEL\"\>"}], "]"}], ",", 
     RowBox[{"-", "396.626623`"}], ",", "246.562462`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-PERIOD-VAR\"\>", ",", "\<\"WRITE-EQUALITY\"\>"}], 
      "]"}], ",", "836.629872`", ",", "604.409041`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-PERIOD-VAR\"\>", ",", "\<\"WRITE-G-ON-EARTH\"\>"}], 
      "]"}], ",", "575.277479`", ",", "500.450807`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-POWER-VAR\"\>", 
       ",", "\<\"DEFINE-SPRING-ENERGY\"\>"}], "]"}], ",", "813.869258`", ",", 
     "801.336498`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-POWER-VAR\"\>", ",", "\<\"DRAW-DRAG\"\>"}], "]"}], 
     ",", "777.281984`", ",", "323.700791`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-POWER-VAR\"\>", ",", "\<\"WRITE-G-ON-EARTH\"\>"}], 
      "]"}], ",", "1972.081844`", ",", "1685.336626`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-POWER-VAR\"\>", ",", "\<\"WRITE-NFL-COMPO\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "526.064643`"}], ",", "343.693476`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-POWER-VAR\"\>", ",", "\<\"WT-LAW\"\>"}], "]"}], ",",
      
     RowBox[{"-", "1724.511957`"}], ",", "1369.501971`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-PRESSURE\"\>", ",", "\<\"DRAW-PRESSURE\"\>"}], 
      "]"}], ",", "817.588178`", ",", "637.117201`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-PRESSURE\"\>", ",", "\<\"DRAW-ROTATE-AXES\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "1008.527846`"}], ",", "705.123101`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-RADIUS-OF-CIRCLE\"\>", 
       ",", "\<\"DRAW-ANG-MOMENTUM-ROTATING\"\>"}], "]"}], ",", 
     "1319.513152`", ",", "1045.01824`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-RADIUS-OF-CIRCLE\"\>", 
       ",", "\<\"WRITE-MASS-COMPOUND\"\>"}], "]"}], ",", 
     RowBox[{"-", "583.89134`"}], ",", "557.217841`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-RADIUS-OF-CIRCLE\"\>", 
       ",", "\<\"WRITE-VALUE-OF-ATMOSPHERE\"\>"}], "]"}], ",", 
     RowBox[{"-", "1111.361733`"}], ",", "932.050067`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-REVOLUTION-RADIUS\"\>", 
       ",", "\<\"DRAW-TENSION\"\>"}], "]"}], ",", "334.021993`", ",", 
     "330.881511`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-SHAPE-LENGTH\"\>", ",", "\<\"DRAW-BODY\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "594.382928`"}], ",", "489.611035`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-SHAPE-LENGTH\"\>", 
       ",", "\<\"DRAW-UNROTATED-AXES\"\>"}], "]"}], ",", 
     RowBox[{"-", "599.850681`"}], ",", "468.841511`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-SHAPE-LENGTH\"\>", ",", "\<\"GIVEN-FRACTION\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "586.726629`"}], ",", "466.011358`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-SHAPE-LENGTH\"\>", 
       ",", "\<\"WRITE-G-ON-EARTH\"\>"}], "]"}], ",", 
     RowBox[{"-", "1142.880882`"}], ",", "732.695078`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-SHAPE-LENGTH\"\>", ",", "\<\"WRITE-I-ROD-CM\"\>"}], 
      "]"}], ",", "496.479155`", ",", "470.290714`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-SPEED\"\>", ",", "\<\"WRITE-EQUALITY\"\>"}], "]"}], 
     ",", 
     RowBox[{"-", "857.936177`"}], ",", "567.091047`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-SPEED\"\>", ",", "\<\"WRITE-SDD\"\>"}], "]"}], ",", 
     "1621.222385`", ",", "626.679744`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-SPEED\"\>", ",", "\<\"WRITE-SUM-DISTANCES\"\>"}], 
      "]"}], ",", "1515.123107`", ",", "1290.754623`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-SPEED\"\>", ",", "\<\"WRITE-SUM-TIMES\"\>"}], "]"}],
      ",", "1659.378528`", ",", "1334.289371`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-SPRING-CONSTANT\"\>", ",", "\<\"WT-LAW\"\>"}], 
      "]"}], ",", "595.284484`", ",", "590.883354`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-SPRING-ENERGY\"\>", 
       ",", "\<\"DRAW-SPRING-FORCE\"\>"}], "]"}], ",", 
     RowBox[{"-", "1107.171772`"}], ",", "674.064458`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-SPRING-ENERGY\"\>", 
       ",", "\<\"DRAW-VELOCITY-MOMENTARILY-AT-REST\"\>"}], "]"}], ",", 
     RowBox[{"-", "1078.930666`"}], ",", "882.115038`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-SPRING-ENERGY\"\>", 
       ",", "\<\"WRITE-SPRING-ENERGY\"\>"}], "]"}], ",", "1425.165456`", ",", 
     "1378.019271`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-STRING-TENSION\"\>", ",", "\<\"DRAW-BODY\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "938.622267`"}], ",", "607.245454`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-STRING-TENSION\"\>", 
       ",", "\<\"DRAW-UNROTATED-AXES\"\>"}], "]"}], ",", 
     RowBox[{"-", "938.622267`"}], ",", "607.245454`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-STRING-TENSION\"\>", 
       ",", "\<\"MASS-PER-LENGTH-EQUATION\"\>"}], "]"}], ",", 
     RowBox[{"-", "201.027732`"}], ",", "199.642316`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-TOTAL-ENERGY\"\>", ",", "\<\"DRAW-NORMAL\"\>"}], 
      "]"}], ",", "1047.837314`", ",", "908.310565`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-TOTAL-ENERGY\"\>", 
       ",", "\<\"DRAW-VELOCITY-MOMENTARILY-AT-REST\"\>"}], "]"}], ",", 
     RowBox[{"-", "1398.476146`"}], ",", "934.826848`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-TOTAL-ENERGY\"\>", 
       ",", "\<\"DRAW-VELOCITY-STRAIGHT-UNKNOWN\"\>"}], "]"}], ",", 
     RowBox[{"-", "1679.761908`"}], ",", "1139.674646`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-TOTAL-ENERGY\"\>", 
       ",", "\<\"WRITE-IMPLICIT-EQN\"\>"}], "]"}], ",", 
     RowBox[{"-", "977.242342`"}], ",", "700.156441`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-TOTAL-ENERGY\"\>", ",", "\<\"WRITE-WNC\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "827.672086`"}], ",", "730.692388`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-WAVELENGTH\"\>", 
       ",", "\<\"MASS-PER-LENGTH-EQUATION\"\>"}], "]"}], ",", "412.686246`", 
     ",", "265.369162`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-WAVELENGTH\"\>", ",", "\<\"WAVE-SPEED-STRING\"\>"}],
       "]"}], ",", "329.360149`", ",", "312.237108`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-WAVELENGTH\"\>", ",", "\<\"WRITE-EQUALITY\"\>"}], 
      "]"}], ",", "451.001699`", ",", "295.104822`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-WAVE-SPEED\"\>", ",", "\<\"DEFINE-WAVELENGTH\"\>"}],
       "]"}], ",", 
     RowBox[{"-", "223.783982`"}], ",", "185.768375`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-WNC\"\>", ",", "\<\"DEFINE-WORK\"\>"}], "]"}], ",", 
     
     RowBox[{"-", "2456.884438`"}], ",", "1740.561509`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-WNC\"\>", ",", "\<\"DRAW-ENERGY-AXES\"\>"}], "]"}], 
     ",", 
     RowBox[{"-", "1753.894566`"}], ",", "1551.890133`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-WNC\"\>", ",", "\<\"DRAW-KINETIC-FRICTION\"\>"}], 
      "]"}], ",", "3470.356536`", ",", "1933.501435`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-WNC\"\>", ",", "\<\"DRAW-UNROTATED-AXES\"\>"}], 
      "]"}], ",", "2064.982098`", ",", "1965.939508`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-WNC\"\>", ",", "\<\"DRAW-WEIGHT\"\>"}], "]"}], ",", 
     "6732.931103`", ",", "3704.212955`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-WNC\"\>", ",", "\<\"WRITE-EQUALITY\"\>"}], "]"}], 
     ",", "2143.606248`", ",", "1197.358614`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-WNC\"\>", ",", "\<\"WRITE-G-ON-EARTH\"\>"}], "]"}], 
     ",", 
     RowBox[{"-", "3645.574927`"}], ",", "3351.684122`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-WNC\"\>", ",", "\<\"WRITE-KINETIC-ENERGY\"\>"}], 
      "]"}], ",", "3257.630084`", ",", "1676.967078`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-WNC\"\>", ",", "\<\"WRITE-WORK-DELTA-KE\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "6946.08783`"}], ",", "5251.102197`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-WNC\"\>", ",", "\<\"WRITE-ZERO-WORK\"\>"}], "]"}], 
     ",", 
     RowBox[{"-", "9226.979186`"}], ",", "8104.017455`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-WNC\"\>", ",", "\<\"WT-LAW\"\>"}], "]"}], ",", 
     RowBox[{"-", "6174.343279`"}], ",", "4885.286702`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-WORK\"\>", ",", "\<\"DRAW-DECELERATING\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "173.057013`"}], ",", "123.306086`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-WORK\"\>", ",", "\<\"DRAW-NORMAL\"\>"}], "]"}], ",",
      "568.769659`", ",", "531.036834`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-WORK\"\>", 
       ",", "\<\"DRAW-VELOCITY-MOMENTARILY-AT-REST\"\>"}], "]"}], ",", 
     "1726.036033`", ",", "1542.819276`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-WORK\"\>", ",", "\<\"WRITE-CHANGE-ME-TOP\"\>"}], 
      "]"}], ",", "3956.915181`", ",", "3921.481031`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-WORK\"\>", ",", "\<\"WRITE-KNOWN-VALUE-EQN\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "297.635927`"}], ",", "273.949795`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-WORK\"\>", ",", "\<\"WRITE-LK-NO-T-COMPO\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "173.057013`"}], ",", "123.306086`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DEFINE-WORK\"\>", ",", "\<\"WRITE-NSL-COMPO\"\>"}], "]"}], 
     ",", 
     RowBox[{"-", "346.114025`"}], ",", "246.612172`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-ACCEL-CURVED-UNKNOWN\"\>", ",", "\<\"DRAW-BODY\"\>"}],
       "]"}], ",", 
     RowBox[{"-", "2412.146534`"}], ",", "1285.106415`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-ACCEL-CURVED-UNKNOWN\"\>", 
       ",", "\<\"DRAW-COMPO-FORM-AXES\"\>"}], "]"}], ",", 
     RowBox[{"-", "2412.146534`"}], ",", "1285.106415`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-ACCEL-CURVED-UNKNOWN\"\>", 
       ",", "\<\"WRITE-AVG-ACCEL-COMPO\"\>"}], "]"}], ",", 
     RowBox[{"-", "420.629684`"}], ",", "205.208638`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-ACCEL-CURVED-UNKNOWN\"\>", 
       ",", "\<\"WRITE-IMPLICIT-EQN\"\>"}], "]"}], ",", 
     RowBox[{"-", "501.137764`"}], ",", "355.822133`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-ACCEL-CURVED-UNKNOWN\"\>", 
       ",", "\<\"WRITE-KNOWN-VALUE-EQN\"\>"}], "]"}], ",", 
     RowBox[{"-", "435.584257`"}], ",", "275.145281`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-ACCELERATING\"\>", ",", "\<\"DRAW-ACCELERATING\"\>"}],
       "]"}], ",", 
     RowBox[{"-", "349.317363`"}], ",", "331.40693`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-ACCELERATING\"\>", ",", "\<\"DRAW-BODY\"\>"}], "]"}], 
     ",", 
     RowBox[{"-", "815.542281`"}], ",", "423.218255`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-ACCELERATING\"\>", 
       ",", "\<\"DRAW-DISPLACEMENT-STRAIGHT\"\>"}], "]"}], ",", 
     RowBox[{"-", "1598.383928`"}], ",", "855.544457`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-ACCELERATING\"\>", ",", "\<\"DRAW-NORMAL\"\>"}], 
      "]"}], ",", "655.741244`", ",", "335.068724`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-ACCELERATING\"\>", 
       ",", "\<\"DRAW-REACTION-FORCE\"\>"}], "]"}], ",", 
     RowBox[{"-", "2282.056785`"}], ",", "1696.28135`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-ACCELERATING\"\>", ",", "\<\"DRAW-SPRING-FORCE\"\>"}],
       "]"}], ",", 
     RowBox[{"-", "684.151407`"}], ",", "473.007085`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-ACCELERATING\"\>", 
       ",", "\<\"DRAW-STATIC-FRICTION\"\>"}], "]"}], ",", 
     RowBox[{"-", "701.150288`"}], ",", "514.913843`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-ACCELERATING\"\>", 
       ",", "\<\"DRAW-VELOCITY-STRAIGHT\"\>"}], "]"}], ",", 
     RowBox[{"-", "301.970613`"}], ",", "295.981627`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-ACCELERATING\"\>", ",", "\<\"DRAW-WEIGHT\"\>"}], 
      "]"}], ",", "626.759189`", ",", "393.449813`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-ACCELERATING\"\>", ",", "\<\"NTL\"\>"}], "]"}], ",", 
     RowBox[{"-", "8183.413436`"}], ",", "3662.445521`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-ACCELERATING\"\>", 
       ",", "\<\"WRITE-IMPLICIT-EQN\"\>"}], "]"}], ",", 
     RowBox[{"-", "474.522643`"}], ",", "180.931041`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-ACCELERATING\"\>", 
       ",", "\<\"WRITE-KNOWN-VALUE-EQN\"\>"}], "]"}], ",", 
     RowBox[{"-", "173.875419`"}], ",", "115.122566`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-ACCELERATING\"\>", 
       ",", "\<\"WRITE-LK-NO-T-COMPO\"\>"}], "]"}], ",", 
     RowBox[{"-", "1065.721555`"}], ",", "342.132505`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-ACCELERATING\"\>", 
       ",", "\<\"WRITE-LK-NO-VF-COMPO\"\>"}], "]"}], ",", 
     RowBox[{"-", "440.339926`"}], ",", "376.732671`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-ACCEL-FREE-FALL\"\>", 
       ",", "\<\"DRAW-AVG-VEL-FROM-DISPLACEMENT\"\>"}], "]"}], ",", 
     RowBox[{"-", "28.312648`"}], ",", "23.430642`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-ACCEL-FREE-FALL\"\>", ",", "\<\"DRAW-BODY\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "2125.527301`"}], ",", "674.251762`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-ACCEL-FREE-FALL\"\>", 
       ",", "\<\"DRAW-DISPLACEMENT-PROJECTILE\"\>"}], "]"}], ",", 
     "471.009813`", ",", "312.579384`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-ACCEL-FREE-FALL\"\>", 
       ",", "\<\"DRAW-GRAV-FORCE\"\>"}], "]"}], ",", "1323.230471`", ",", 
     "1251.762451`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-ACCEL-FREE-FALL\"\>", 
       ",", "\<\"OPPOSITE-RELATIVE-POSITION\"\>"}], "]"}], ",", "54.496755`", 
     ",", "48.014144`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-ACCEL-FREE-FALL\"\>", 
       ",", "\<\"SDD-CONSTVEL-COMPO\"\>"}], "]"}], ",", "549.643859`", ",", 
     "495.032926`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-ACCEL-FREE-FALL\"\>", ",", "\<\"USE-CONST-VX\"\>"}], 
      "]"}], ",", "715.580866`", ",", "454.096466`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-ACCEL-FREE-FALL\"\>", 
       ",", "\<\"WRITE-IMPLICIT-EQN\"\>"}], "]"}], ",", 
     RowBox[{"-", "544.774006`"}], ",", "241.508102`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-ACCEL-FREE-FALL\"\>", 
       ",", "\<\"WRITE-KNOWN-VALUE-EQN\"\>"}], "]"}], ",", 
     RowBox[{"-", "617.340488`"}], ",", "539.951421`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-ACCEL-FREE-FALL\"\>", 
       ",", "\<\"WRITE-LK-NO-VF-COMPO\"\>"}], "]"}], ",", "492.160962`", ",", 
     "363.133081`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-ACCEL-FREE-FALL\"\>", ",", "\<\"WRITE-UG\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "596.346815`"}], ",", "577.331101`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-ACCEL-GIVEN-DIR\"\>", ",", "\<\"DRAW-BODY\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "184.777141`"}], ",", "122.535042`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-ACCEL-UNKNOWN-NET-FORCE\"\>", 
       ",", "\<\"WRITE-NSL-COMPO\"\>"}], "]"}], ",", 
     RowBox[{"-", "636.565051`"}], ",", "565.629348`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-ANG-ACCELERATING\"\>", ",", "\<\"DRAW-BODY\"\>"}], 
      "]"}], ",", "1734.121626`", ",", "1714.630299`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-ANG-ACCELERATING\"\>", 
       ",", "\<\"WRITE-RK-NO-VF\"\>"}], "]"}], ",", 
     RowBox[{"-", "1083.25634`"}], ",", "1053.243951`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-ANG-DECELERATING\"\>", 
       ",", "\<\"WRITE-RK-NO-VF\"\>"}], "]"}], ",", "779.503204`", ",", 
     "777.484326`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-ANG-DISPLACEMENT-ROTATING\"\>", 
       ",", "\<\"DRAW-UNROTATED-AXES-FOR-ZCOMPS\"\>"}], "]"}], ",", 
     "813.980197`", ",", "782.316015`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-ANG-DISPLACEMENT-ROTATING\"\>", 
       ",", "\<\"WRITE-RK-NO-S\"\>"}], "]"}], ",", "1822.238816`", ",", 
     "1786.71095`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-ANG-MOMENTUM-ROTATING\"\>", 
       ",", "\<\"SELECT-MC-ANSWER\"\>"}], "]"}], ",", "741.126159`", ",", 
     "670.048381`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-ANG-MOMENTUM-ROTATING\"\>", 
       ",", "\<\"WRITE-KNOWN-VALUE-EQN\"\>"}], "]"}], ",", "483.509908`", ",",
      "477.857335`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-ANG-VELOCITY-AT-REST\"\>", 
       ",", "\<\"WRITE-RK-NO-S\"\>"}], "]"}], ",", "1075.38074`", ",", 
     "1073.054886`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-ANG-VELOCITY-ROTATING\"\>", 
       ",", "\<\"DRAW-ANG-VELOCITY-ROTATING\"\>"}], "]"}], ",", 
     RowBox[{"-", "188.1134`"}], ",", "171.716627`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-APPLIED-FORCE\"\>", 
       ",", "\<\"DRAW-COMPO-FORM-AXES\"\>"}], "]"}], ",", 
     RowBox[{"-", "232.940152`"}], ",", "172.591941`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-APPLIED-FORCE\"\>", ",", "\<\"DRAW-ENERGY-AXES\"\>"}],
       "]"}], ",", "603.485002`", ",", "599.572269`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-APPLIED-FORCE\"\>", 
       ",", "\<\"WRITE-IMPULSE-COMPO\"\>"}], "]"}], ",", "1565.158118`", ",", 
     "795.026885`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-APPLIED-FORCE\"\>", 
       ",", "\<\"WRITE-MOMENTUM-COMPO\"\>"}], "]"}], ",", 
     RowBox[{"-", "1014.473144`"}], ",", "894.048756`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-APPLIED-FORCE\"\>", ",", "\<\"WRITE-NFL-COMPO\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "83.93384`"}], ",", "56.527694`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-APPLIED-FORCE\"\>", 
       ",", "\<\"WRITE-WORK-DELTA-KE\"\>"}], "]"}], ",", "603.485002`", ",", 
     "599.572269`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-AVG-VEL-FROM-DISPLACEMENT\"\>", 
       ",", "\<\"DRAW-BODY\"\>"}], "]"}], ",", "1203.635513`", ",", 
     "668.53493`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-AVG-VEL-FROM-DISPLACEMENT\"\>", 
       ",", "\<\"DRAW-DISPLACEMENT-GIVEN-DIR\"\>"}], "]"}], ",", 
     RowBox[{"-", "90.562578`"}], ",", "73.961492`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-AVG-VEL-FROM-DISPLACEMENT\"\>", 
       ",", "\<\"DRAW-VELOCITY-CURVED\"\>"}], "]"}], ",", 
     RowBox[{"-", "78.989872`"}], ",", "56.314188`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-AVG-VEL-FROM-DISPLACEMENT\"\>", 
       ",", "\<\"SDD-CONSTVEL-COMPO\"\>"}], "]"}], ",", 
     RowBox[{"-", "28.312648`"}], ",", "23.430642`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-AVG-VEL-FROM-DISPLACEMENT\"\>", 
       ",", "\<\"WRITE-FREE-FALL-ACCEL\"\>"}], "]"}], ",", 
     RowBox[{"-", "28.312648`"}], ",", "23.430642`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-AVG-VEL-FROM-DISPLACEMENT\"\>", 
       ",", "\<\"WRITE-G-ON-EARTH\"\>"}], "]"}], ",", 
     RowBox[{"-", "28.312648`"}], ",", "23.430642`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-AVG-VEL-FROM-DISPLACEMENT\"\>", 
       ",", "\<\"WRITE-IMPLICIT-EQN\"\>"}], "]"}], ",", 
     RowBox[{"-", "28.312648`"}], ",", "23.430642`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-AVG-VEL-FROM-DISPLACEMENT\"\>", 
       ",", "\<\"WRITE-LK-NO-VF-COMPO\"\>"}], "]"}], ",", 
     RowBox[{"-", "78.989872`"}], ",", "56.314188`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-BODY\"\>", ",", "\<\"DRAW-COMPO-FORM-AXES\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "190.932857`"}], ",", "153.020355`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-BODY\"\>", 
       ",", "\<\"DRAW-DISPLACEMENT-GIVEN-DIR\"\>"}], "]"}], ",", 
     RowBox[{"-", "260.282651`"}], ",", "224.244114`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-BODY\"\>", 
       ",", "\<\"DRAW-DISPLACEMENT-PROJECTILE\"\>"}], "]"}], ",", 
     "978.376804`", ",", "654.69893`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-BODY\"\>", ",", "\<\"DRAW-DISPLACEMENT-UNKNOWN\"\>"}],
       "]"}], ",", "1185.989786`", ",", "648.775053`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-BODY\"\>", ",", "\<\"DRAW-FORCE-COMPOUND\"\>"}], 
      "]"}], ",", "3832.227705`", ",", "3380.201385`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-BODY\"\>", ",", "\<\"DRAW-GRAV-FORCE\"\>"}], "]"}], 
     ",", "819.586206`", ",", "622.366144`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-BODY\"\>", ",", "\<\"DRAW-IMPULSE-GIVEN-DIR\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "221.455667`"}], ",", "111.559684`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-BODY\"\>", 
       ",", "\<\"DRAW-IMPULSE-GIVEN-MOMENTA-UNKNOWN-DIR\"\>"}], "]"}], ",", 
     RowBox[{"-", "1279.42079`"}], ",", "543.331647`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-BODY\"\>", 
       ",", "\<\"DRAW-NET-TORQUE-NON-ROTATING\"\>"}], "]"}], ",", 
     RowBox[{"-", "1664.2`"}], ",", "732.211532`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-BODY\"\>", 
       ",", "\<\"DRAW-OPPOSITE-RELATIVE-POSITION\"\>"}], "]"}], ",", 
     "839.559414`", ",", "331.640006`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-BODY\"\>", ",", "\<\"DRAW-REACTION-FORCE\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "1418.375956`"}], ",", "577.291847`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-BODY\"\>", 
       ",", "\<\"DRAW-RELATIVE-POSITION-UNKNOWN\"\>"}], "]"}], ",", 
     "901.085272`", ",", "723.21316`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-BODY\"\>", ",", "\<\"DRAW-STATIC-FRICTION\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "1335.195627`"}], ",", "1033.403525`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-BODY\"\>", ",", "\<\"DRAW-UNROTATED-AXES\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "479.167535`"}], ",", "257.637813`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-BODY\"\>", 
       ",", "\<\"DRAW-VELOCITY-CURVED-UNKNOWN\"\>"}], "]"}], ",", 
     "718.971357`", ",", "558.280243`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-BODY\"\>", ",", "\<\"DRAW-WEIGHT\"\>"}], "]"}], ",", 
     "1078.951613`", ",", "521.939719`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-BODY\"\>", 
       ",", "\<\"DRAW-ZERO-RELATIVE-POSITION\"\>"}], "]"}], ",", 
     "2651.783563`", ",", "1785.087586`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-BODY\"\>", ",", "\<\"MAKE-DOPPLER-FREQUENCY\"\>"}], 
      "]"}], ",", "282.074366`", ",", "131.090392`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-BODY\"\>", ",", "\<\"MASS-PER-LENGTH\"\>"}], "]"}], 
     ",", "396.914426`", ",", "375.295679`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-BODY\"\>", ",", "\<\"SPEED-EQUALS-WAVE-SPEED\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "789.382725`"}], ",", "617.64977`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-BODY\"\>", ",", "\<\"WAVE-SPEED-STRING\"\>"}], "]"}], 
     ",", 
     RowBox[{"-", "228.529822`"}], ",", "216.645813`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-BODY\"\>", ",", "\<\"WRITE-AVG-VEL-COMPO\"\>"}], 
      "]"}], ",", "1451.555515`", ",", "596.423369`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-BODY\"\>", 
       ",", "\<\"WRITE-CONNECTED-VELOCITIES\"\>"}], "]"}], ",", "560.985723`",
      ",", "331.64084`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-BODY\"\>", ",", "\<\"WRITE-CONS-LINMOM-COMPO\"\>"}], 
      "]"}], ",", "1963.869895`", ",", "1718.006996`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-BODY\"\>", 
       ",", "\<\"WRITE-CONS-LINMOM-COMPO-JOIN\"\>"}], "]"}], ",", 
     "1254.995695`", ",", "1181.254459`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-BODY\"\>", ",", "\<\"WRITE-FORCE-COMPOUND\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "3638.672098`"}], ",", "2493.235666`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-BODY\"\>", ",", "\<\"WRITE-FREE-FALL-ACCEL\"\>"}], 
      "]"}], ",", "1944.595042`", ",", "1212.360318`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-BODY\"\>", ",", "\<\"WRITE-G-ON-EARTH\"\>"}], "]"}], 
     ",", 
     RowBox[{"-", "1427.673384`"}], ",", "879.194869`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-BODY\"\>", ",", "\<\"WRITE-INTENSITY-TO-POWER\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "1168.683096`"}], ",", "782.195504`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-BODY\"\>", ",", "\<\"WRITE-LINEAR-VEL\"\>"}], "]"}], 
     ",", 
     RowBox[{"-", "280.254432`"}], ",", "237.567724`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-BODY\"\>", ",", "\<\"WRITE-NFL-COMPO\"\>"}], "]"}], 
     ",", "977.135886`", ",", "514.042879`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-BODY\"\>", ",", "\<\"WRITE-NSL-COMPO\"\>"}], "]"}], 
     ",", "371.349844`", ",", "310.295687`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-BODY\"\>", ",", "\<\"WRITE-PERIOD-CIRCULAR\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "519.127265`"}], ",", "451.362938`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-BODY\"\>", ",", "\<\"WRITE-PYTH-THM\"\>"}], "]"}], 
     ",", 
     RowBox[{"-", "1547.97144`"}], ",", "1088.490012`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-BODY\"\>", ",", "\<\"WRITE-RELATIVE-VEL-COMPO\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "1456.95059`"}], ",", "694.87319`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-BODY\"\>", ",", "\<\"WRITE-RK-NO-S\"\>"}], "]"}], ",",
      
     RowBox[{"-", "2229.700313`"}], ",", "1981.524039`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-BODY\"\>", ",", "\<\"WRITE-SDD\"\>"}], "]"}], ",", 
     RowBox[{"-", "2492.642927`"}], ",", "1733.667015`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-BODY\"\>", ",", "\<\"WRITE-SUM-DISTANCES\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "3259.960102`"}], ",", "1423.109932`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-BODY\"\>", ",", "\<\"WRITE-SUM-TIMES\"\>"}], "]"}], 
     ",", "2788.031713`", ",", "1952.99963`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-BODY\"\>", ",", "\<\"WRITE-UG\"\>"}], "]"}], ",", 
     "1449.433474`", ",", "812.405349`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-BODY\"\>", ",", "\<\"WRITE-UG-CIRCULAR\"\>"}], "]"}], 
     ",", 
     RowBox[{"-", "862.622625`"}], ",", "713.835002`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-CENTRIPETAL-ACCELERATION\"\>", 
       ",", "\<\"WRITE-UG-CIRCULAR\"\>"}], "]"}], ",", "717.812627`", ",", 
     "536.804232`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-COMPO-FORM-AXES\"\>", 
       ",", "\<\"DRAW-MOMENTUM-AT-REST\"\>"}], "]"}], ",", "2495.424086`", 
     ",", "1629.515503`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-COMPO-FORM-AXES\"\>", 
       ",", "\<\"DRAW-RELATIVE-POSITION-UNKNOWN\"\>"}], "]"}], ",", 
     "1438.851281`", ",", "1427.007501`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-COMPO-FORM-AXES\"\>", 
       ",", "\<\"DRAW-RELATIVE-VEL-GIVEN-DIR\"\>"}], "]"}], ",", 
     RowBox[{"-", "2130.03112`"}], ",", "1471.0752`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-COMPO-FORM-AXES\"\>", 
       ",", "\<\"DRAW-VELOCITY-CURVED\"\>"}], "]"}], ",", "948.587343`", ",", 
     "846.78767`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-COMPO-FORM-AXES\"\>", 
       ",", "\<\"DRAW-VELOCITY-CURVED-UNKNOWN\"\>"}], "]"}], ",", 
     RowBox[{"-", "575.190819`"}], ",", "447.038816`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-COMPO-FORM-AXES\"\>", 
       ",", "\<\"WRITE-AVG-ACCEL-COMPO\"\>"}], "]"}], ",", "1859.39505`", ",",
      "1029.287691`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-COMPO-FORM-AXES\"\>", 
       ",", "\<\"WRITE-CONS-LINMOM-COMPO\"\>"}], "]"}], ",", "2108.933852`", 
     ",", "1615.91206`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-COMPO-FORM-AXES\"\>", ",", "\<\"WRITE-EQUALITY\"\>"}],
       "]"}], ",", "1526.492414`", ",", "1242.019038`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-COMPO-FORM-AXES\"\>", 
       ",", "\<\"WRITE-G-ON-EARTH\"\>"}], "]"}], ",", 
     RowBox[{"-", "1319.699204`"}], ",", "1024.713274`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-COMPO-FORM-AXES\"\>", 
       ",", "\<\"WRITE-IMPLICIT-EQN\"\>"}], "]"}], ",", 
     RowBox[{"-", "687.288983`"}], ",", "242.028296`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-COMPO-FORM-AXES\"\>", 
       ",", "\<\"WRITE-IMPULSE-MOMENTUM-COMPO\"\>"}], "]"}], ",", 
     RowBox[{"-", "508.790757`"}], ",", "251.89027`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-COMPO-FORM-AXES\"\>", 
       ",", "\<\"WRITE-MOMENTUM-COMPO\"\>"}], "]"}], ",", 
     RowBox[{"-", "2065.375129`"}], ",", "1781.972399`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-COMPO-FORM-AXES\"\>", 
       ",", "\<\"WRITE-NSL-COMPO\"\>"}], "]"}], ",", 
     RowBox[{"-", "636.565051`"}], ",", "565.629348`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-COMPO-FORM-AXES\"\>", 
       ",", "\<\"WRITE-RELATIVE-VEL-COMPO\"\>"}], "]"}], ",", 
     RowBox[{"-", "1094.874829`"}], ",", "855.304855`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-DECELERATING\"\>", 
       ",", "\<\"DRAW-KINETIC-FRICTION\"\>"}], "]"}], ",", 
     RowBox[{"-", "247.40697`"}], ",", "229.204183`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-DECELERATING\"\>", 
       ",", "\<\"DRAW-MOMENTUM-STRAIGHT\"\>"}], "]"}], ",", "697.343127`", 
     ",", "459.108484`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-DECELERATING\"\>", ",", "\<\"DRAW-NORMAL\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "490.533051`"}], ",", "393.339453`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-DECELERATING\"\>", ",", "\<\"DRAW-WEIGHT\"\>"}], 
      "]"}], ",", "773.315795`", ",", "704.30684`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-DECELERATING\"\>", 
       ",", "\<\"WRITE-IMPLICIT-EQN\"\>"}], "]"}], ",", 
     RowBox[{"-", "271.846416`"}], ",", "269.848749`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-DECELERATING\"\>", 
       ",", "\<\"WRITE-IMPULSE-COMPO\"\>"}], "]"}], ",", "405.788568`", ",", 
     "349.350969`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-DECELERATING\"\>", ",", "\<\"WRITE-NSL-COMPO\"\>"}], 
      "]"}], ",", "1778.040329`", ",", "1547.886048`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-DECELERATING\"\>", ",", "\<\"WRITE-WORK\"\>"}], "]"}],
      ",", 
     RowBox[{"-", "173.057013`"}], ",", "123.306086`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-DECELERATING\"\>", ",", "\<\"WT-LAW\"\>"}], "]"}], 
     ",", "1016.441876`", ",", "698.14241`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-DISPLACEMENT-GIVEN-DIR\"\>", 
       ",", "\<\"DRAW-VELOCITY-CURVED-UNKNOWN\"\>"}], "]"}], ",", 
     RowBox[{"-", "1085.274566`"}], ",", "557.550558`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-DISPLACEMENT-GIVEN-DIR\"\>", 
       ",", "\<\"SDD-CONSTVEL-COMPO\"\>"}], "]"}], ",", 
     RowBox[{"-", "562.384099`"}], ",", "361.307599`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-DISPLACEMENT-GIVEN-DIR\"\>", 
       ",", "\<\"WRITE-G-ON-EARTH\"\>"}], "]"}], ",", "956.091824`", ",", 
     "604.967701`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-DISPLACEMENT-GIVEN-DIR\"\>", 
       ",", "\<\"WRITE-IMPLICIT-EQN\"\>"}], "]"}], ",", 
     RowBox[{"-", "183.199027`"}], ",", "176.143588`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-DISPLACEMENT-PROJECTILE\"\>", 
       ",", "\<\"WRITE-FREE-FALL-ACCEL\"\>"}], "]"}], ",", "471.009813`", ",",
      "312.579384`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-DISPLACEMENT-PROJECTILE\"\>", 
       ",", "\<\"WRITE-LK-NO-VF-COMPO\"\>"}], "]"}], ",", "1361.359942`", ",",
      "878.422823`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-DISPLACEMENT-STRAIGHT\"\>", 
       ",", "\<\"DRAW-NORMAL\"\>"}], "]"}], ",", "1849.290804`", ",", 
     "1769.069377`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-DISPLACEMENT-STRAIGHT\"\>", 
       ",", "\<\"WRITE-GRAV-ENERGY\"\>"}], "]"}], ",", "2278.034145`", ",", 
     "1665.948244`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-DISPLACEMENT-STRAIGHT\"\>", 
       ",", "\<\"WRITE-IMPLICIT-EQN\"\>"}], "]"}], ",", 
     RowBox[{"-", "249.778524`"}], ",", "241.322185`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-DISPLACEMENT-STRAIGHT\"\>", 
       ",", "\<\"WRITE-KNOWN-VALUE-EQN\"\>"}], "]"}], ",", "365.313913`", ",",
      "221.049093`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-DISPLACEMENT-STRAIGHT\"\>", 
       ",", "\<\"WRITE-LK-NO-S-COMPO\"\>"}], "]"}], ",", 
     RowBox[{"-", "1022.482905`"}], ",", "1002.968376`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-DISPLACEMENT-STRAIGHT\"\>", 
       ",", "\<\"WRITE-LK-NO-T-COMPO\"\>"}], "]"}], ",", "1225.967139`", ",", 
     "1143.940459`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-DISPLACEMENT-STRAIGHT\"\>", ",", "\<\"WT-LAW\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "2190.909863`"}], ",", "1882.890896`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-DISPLACEMENT-UNKNOWN\"\>", 
       ",", "\<\"WRITE-KNOWN-VALUE-EQN\"\>"}], "]"}], ",", 
     RowBox[{"-", "546.428163`"}], ",", "353.935268`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-DRAG\"\>", ",", "\<\"DRAW-NORMAL\"\>"}], "]"}], ",", 
     "505.622283`", ",", "437.841029`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-DRAG\"\>", ",", "\<\"DRAW-VELOCITY-STRAIGHT\"\>"}], 
      "]"}], ",", "777.43194`", ",", "687.99228`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-DRAG\"\>", ",", "\<\"DRAW-WEIGHT\"\>"}], "]"}], ",", 
     RowBox[{"-", "1467.441446`"}], ",", "614.5304`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-DRAG\"\>", ",", "\<\"WRITE-INST-POWER\"\>"}], "]"}], 
     ",", "505.622283`", ",", "437.841029`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-DRAG\"\>", ",", "\<\"WRITE-KNOWN-VALUE-EQN\"\>"}], 
      "]"}], ",", "257.103046`", ",", "222.471809`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-DRAG\"\>", ",", "\<\"WRITE-NSL-COMPO\"\>"}], "]"}], 
     ",", 
     RowBox[{"-", "1662.515741`"}], ",", "1343.119604`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-DRAG\"\>", ",", "\<\"WT-LAW\"\>"}], "]"}], ",", 
     "836.680798`", ",", "555.862858`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-ENERGY-AXES\"\>", ",", "\<\"DRAW-WEIGHT\"\>"}], "]"}],
      ",", "2280.419495`", ",", "1515.402434`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-ENERGY-AXES\"\>", ",", "\<\"WRITE-GRAV-ENERGY\"\>"}], 
      "]"}], ",", "1038.877631`", ",", "818.394573`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-FORCE-COMPOUND\"\>", 
       ",", "\<\"WRITE-ARCHIMEDES\"\>"}], "]"}], ",", 
     RowBox[{"-", "9155.007149`"}], ",", "9126.993051`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-GRAV-FORCE\"\>", 
       ",", "\<\"OPPOSITE-RELATIVE-POSITION\"\>"}], "]"}], ",", "54.496755`", 
     ",", "48.014144`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-GRAV-FORCE\"\>", ",", "\<\"WRITE-IMPLICIT-EQN\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "934.15676`"}], ",", "452.597371`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-GRAV-FORCE\"\>", 
       ",", "\<\"WRITE-KNOWN-VALUE-EQN\"\>"}], "]"}], ",", 
     RowBox[{"-", "840.417234`"}], ",", "647.755154`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-IMPULSE-GIVEN-DIR\"\>", 
       ",", "\<\"DRAW-IMPULSE-GIVEN-DIR\"\>"}], "]"}], ",", "247.995199`", 
     ",", "175.118641`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-IMPULSE-GIVEN-DIR\"\>", 
       ",", "\<\"DRAW-MOMENTUM-AT-REST\"\>"}], "]"}], ",", 
     RowBox[{"-", "1064.472333`"}], ",", "639.885877`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-IMPULSE-GIVEN-DIR\"\>", 
       ",", "\<\"DRAW-MOMENTUM-STRAIGHT\"\>"}], "]"}], ",", 
     RowBox[{"-", "335.681944`"}], ",", "156.116046`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-IMPULSE-GIVEN-DIR\"\>", 
       ",", "\<\"DRAW-VELOCITY-AT-REST\"\>"}], "]"}], ",", 
     RowBox[{"-", "114.226277`"}], ",", "56.815713`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-IMPULSE-GIVEN-DIR\"\>", 
       ",", "\<\"DRAW-VELOCITY-STRAIGHT\"\>"}], "]"}], ",", 
     RowBox[{"-", "342.678831`"}], ",", "170.447138`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-IMPULSE-GIVEN-DIR\"\>", 
       ",", "\<\"WRITE-IMPLICIT-EQN\"\>"}], "]"}], ",", 
     RowBox[{"-", "410.2759`"}], ",", "320.436168`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-IMPULSE-GIVEN-DIR\"\>", 
       ",", "\<\"WRITE-IMPULSE-MOMENTUM-COMPO\"\>"}], "]"}], ",", 
     "800.935891`", ",", "475.871908`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-IMPULSE-GIVEN-DIR\"\>", 
       ",", "\<\"WRITE-MOMENTUM-COMPO\"\>"}], "]"}], ",", 
     RowBox[{"-", "342.678831`"}], ",", "170.447138`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-IMPULSE-GIVEN-MOMENTA-UNKNOWN-DIR\"\>", 
       ",", "\<\"WRITE-IMPULSE-MOMENTUM-COMPO\"\>"}], "]"}], ",", 
     RowBox[{"-", "508.790757`"}], ",", "251.89027`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-IMPULSE-GIVEN-MOMENTA-UNKNOWN-DIR\"\>", 
       ",", "\<\"WRITE-KNOWN-VALUE-EQN\"\>"}], "]"}], ",", "643.456202`", ",",
      "410.956141`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-KINETIC-FRICTION\"\>", 
       ",", "\<\"DRAW-VELOCITY-STRAIGHT\"\>"}], "]"}], ",", "2972.970111`", 
     ",", "2482.568842`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-KINETIC-FRICTION\"\>", 
       ",", "\<\"WRITE-CHANGE-ME-TOP\"\>"}], "]"}], ",", 
     RowBox[{"-", "1933.15708`"}], ",", "1732.225715`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-KINETIC-FRICTION\"\>", 
       ",", "\<\"WRITE-IMPLICIT-EQN\"\>"}], "]"}], ",", 
     RowBox[{"-", "430.617959`"}], ",", "405.987081`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-KINETIC-FRICTION\"\>", 
       ",", "\<\"WRITE-LK-NO-T-COMPO\"\>"}], "]"}], ",", 
     RowBox[{"-", "173.057013`"}], ",", "123.306086`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-KINETIC-FRICTION\"\>", ",", "\<\"WRITE-WNC\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "2129.472137`"}], ",", "1505.688159`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-MOMENTUM-AT-REST\"\>", 
       ",", "\<\"DRAW-MOMENTUM-STRAIGHT-UNKNOWN\"\>"}], "]"}], ",", 
     RowBox[{"-", "1221.078382`"}], ",", "1142.757565`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-MOMENTUM-AT-REST\"\>", 
       ",", "\<\"WRITE-IMPULSE-MOMENTUM-COMPO\"\>"}], "]"}], ",", 
     RowBox[{"-", "494.213668`"}], ",", "417.949513`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-MOMENTUM-AT-REST\"\>", 
       ",", "\<\"WRITE-KNOWN-VALUE-EQN\"\>"}], "]"}], ",", 
     RowBox[{"-", "321.884731`"}], ",", "246.754319`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-MOMENTUM-AT-REST\"\>", 
       ",", "\<\"WRITE-MOMENTUM-COMPO\"\>"}], "]"}], ",", "735.226973`", ",", 
     "305.366299`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-MOMENTUM-STRAIGHT\"\>", 
       ",", "\<\"DRAW-MOMENTUM-STRAIGHT\"\>"}], "]"}], ",", 
     RowBox[{"-", "449.191624`"}], ",", "294.594141`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-MOMENTUM-STRAIGHT\"\>", 
       ",", "\<\"DRAW-MOMENTUM-STRAIGHT-UNKNOWN\"\>"}], "]"}], ",", 
     "1098.146244`", ",", "1097.893701`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-MOMENTUM-STRAIGHT\"\>", 
       ",", "\<\"DRAW-UNROTATED-AXES\"\>"}], "]"}], ",", "1167.055362`", ",", 
     "824.448314`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-MOMENTUM-STRAIGHT\"\>", 
       ",", "\<\"DRAW-VELOCITY-STRAIGHT\"\>"}], "]"}], ",", 
     RowBox[{"-", "573.978233`"}], ",", "385.886751`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-MOMENTUM-STRAIGHT\"\>", 
       ",", "\<\"WRITE-CONS-LINMOM-COMPO\"\>"}], "]"}], ",", 
     RowBox[{"-", "1427.517`"}], ",", "1093.37146`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-MOMENTUM-STRAIGHT\"\>", 
       ",", "\<\"WRITE-IMPLICIT-EQN\"\>"}], "]"}], ",", 
     RowBox[{"-", "195.63162`"}], ",", "114.230078`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-MOMENTUM-STRAIGHT\"\>", 
       ",", "\<\"WRITE-KNOWN-VALUE-EQN\"\>"}], "]"}], ",", 
     RowBox[{"-", "155.991933`"}], ",", "121.160202`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-MOMENTUM-STRAIGHT-UNKNOWN\"\>", 
       ",", "\<\"DRAW-VELOCITY-AT-REST\"\>"}], "]"}], ",", 
     RowBox[{"-", "2269.865359`"}], ",", "1809.949147`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-MOMENTUM-STRAIGHT-UNKNOWN\"\>", 
       ",", "\<\"WRITE-CONS-KE-ELASTIC\"\>"}], "]"}], ",", "498.964293`", ",",
      "222.087035`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-MOMENTUM-STRAIGHT-UNKNOWN\"\>", 
       ",", "\<\"WRITE-EQUALITY\"\>"}], "]"}], ",", "1883.699424`", ",", 
     "892.356782`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-MOMENTUM-STRAIGHT-UNKNOWN\"\>", 
       ",", "\<\"WRITE-KINETIC-ENERGY\"\>"}], "]"}], ",", "1831.68455`", ",", 
     "936.370162`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-NET-TORQUE-FROM-ANG-ACCEL\"\>", 
       ",", "\<\"WRITE-KNOWN-VALUE-EQN\"\>"}], "]"}], ",", "939.947003`", ",",
      "701.050046`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-NET-TORQUE-FROM-ANG-ACCEL\"\>", 
       ",", "\<\"WRITE-NL-ROTATION\"\>"}], "]"}], ",", "1328.161616`", ",", 
     "1064.082062`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-NET-TORQUE-NON-ROTATING\"\>", 
       ",", "\<\"DRAW-NET-TORQUE-NON-ROTATING\"\>"}], "]"}], ",", "718.95`", 
     ",", "310.381264`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-NORMAL\"\>", ",", "\<\"DRAW-NORMAL\"\>"}], "]"}], ",",
      "143.199018`", ",", "123.948001`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-NORMAL\"\>", ",", "\<\"DRAW-PRESSURE\"\>"}], "]"}], 
     ",", "3247.694581`", ",", "2670.016464`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-NORMAL\"\>", ",", "\<\"DRAW-ROTATE-AXES\"\>"}], "]"}],
      ",", "229.460398`", ",", "147.80139`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-NORMAL\"\>", ",", "\<\"DRAW-STATIC-FRICTION\"\>"}], 
      "]"}], ",", "926.64982`", ",", "489.961525`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-NORMAL\"\>", ",", "\<\"DRAW-TENSION\"\>"}], "]"}], 
     ",", "438.912502`", ",", "235.081953`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-NORMAL\"\>", 
       ",", "\<\"DRAW-VELOCITY-MOMENTARILY-AT-REST\"\>"}], "]"}], ",", 
     RowBox[{"-", "1049.563359`"}], ",", "1026.632368`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-NORMAL\"\>", ",", "\<\"DRAW-WEIGHT\"\>"}], "]"}], ",",
      
     RowBox[{"-", "423.024213`"}], ",", "312.858416`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-NORMAL\"\>", ",", "\<\"NTL\"\>"}], "]"}], ",", 
     "4644.588393`", ",", "3056.129208`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-NORMAL\"\>", ",", "\<\"WRITE-CONNECTED-ACCELS\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "2977.791599`"}], ",", "741.258167`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-NORMAL\"\>", ",", "\<\"WRITE-INST-POWER\"\>"}], "]"}],
      ",", "505.622283`", ",", "437.841029`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-NORMAL\"\>", ",", "\<\"WRITE-KNOWN-VALUE-EQN\"\>"}], 
      "]"}], ",", "138.90735`", ",", "103.568672`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-NORMAL\"\>", ",", "\<\"WRITE-LK-NO-T-COMPO\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "379.387236`"}], ",", "140.294454`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-NORMAL\"\>", ",", "\<\"WRITE-LK-NO-VF-COMPO\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "1811.293645`"}], ",", "733.152189`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-NORMAL\"\>", ",", "\<\"WRITE-TENSIONS-EQUAL\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "2655.365672`"}], ",", "893.674077`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-NORMAL\"\>", ",", "\<\"WT-LAW\"\>"}], "]"}], ",", 
     "582.770263`", ",", "276.198159`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-OPPOSITE-RELATIVE-POSITION\"\>", 
       ",", "\<\"DRAW-RELATIVE-POSITION\"\>"}], "]"}], ",", 
     RowBox[{"-", "391.123164`"}], ",", "181.735312`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-OPPOSITE-RELATIVE-POSITION\"\>", 
       ",", "\<\"OPPOSITE-RELATIVE-POSITION\"\>"}], "]"}], ",", "615.341289`",
      ",", "240.974073`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-OPPOSITE-RELATIVE-POSITION\"\>", 
       ",", "\<\"WRITE-NSL-COMPO\"\>"}], "]"}], ",", 
     RowBox[{"-", "391.123164`"}], ",", "181.735312`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-OPPOSITE-RELATIVE-POSITION\"\>", 
       ",", "\<\"WRITE-UG\"\>"}], "]"}], ",", 
     RowBox[{"-", "391.123164`"}], ",", "181.735312`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-PRESSURE\"\>", ",", "\<\"WRITE-KNOWN-VALUE-EQN\"\>"}],
       "]"}], ",", "1860.948146`", ",", "1044.93193`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-PRESSURE\"\>", ",", "\<\"WT-LAW\"\>"}], "]"}], ",", 
     RowBox[{"-", "1559.859337`"}], ",", "966.451175`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-REACTION-FORCE\"\>", 
       ",", "\<\"WRITE-G-ON-EARTH\"\>"}], "]"}], ",", "3435.777443`", ",", 
     "3293.147744`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-REACTION-FORCE\"\>", 
       ",", "\<\"WRITE-IMPLICIT-EQN\"\>"}], "]"}], ",", "793.593095`", ",", 
     "683.334697`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-REACTION-FORCE\"\>", 
       ",", "\<\"WRITE-KNOWN-VALUE-EQN\"\>"}], "]"}], ",", 
     RowBox[{"-", "655.908354`"}], ",", "574.962137`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-REACTION-FORCE\"\>", ",", "\<\"WRITE-NSL-COMPO\"\>"}],
       "]"}], ",", 
     RowBox[{"-", "2066.434569`"}], ",", "1637.901159`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-RELATIVE-POSITION\"\>", 
       ",", "\<\"OPPOSITE-RELATIVE-POSITION\"\>"}], "]"}], ",", 
     RowBox[{"-", "560.844534`"}], ",", "218.851074`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-RELATIVE-POSITION\"\>", 
       ",", "\<\"WRITE-AVG-VEL-COMPO\"\>"}], "]"}], ",", 
     RowBox[{"-", "319.013397`"}], ",", "204.687652`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-RELATIVE-POSITION\"\>", 
       ",", "\<\"WRITE-IMPLICIT-EQN\"\>"}], "]"}], ",", "976.331771`", ",", 
     "515.563721`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-RELATIVE-POSITION\"\>", 
       ",", "\<\"WRITE-MAG-TORQUE\"\>"}], "]"}], ",", 
     RowBox[{"-", "538.560106`"}], ",", "302.38289`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-RELATIVE-POSITION\"\>", 
       ",", "\<\"WRITE-NET-TORQUE\"\>"}], "]"}], ",", 
     RowBox[{"-", "1564.375179`"}], ",", "1498.142446`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-RELATIVE-POSITION\"\>", 
       ",", "\<\"WRITE-TORQUE-ZC\"\>"}], "]"}], ",", "599.922412`", ",", 
     "497.866228`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-RELATIVE-POSITION\"\>", 
       ",", "\<\"WRITE-UG-CIRCULAR\"\>"}], "]"}], ",", 
     RowBox[{"-", "2903.629251`"}], ",", "1342.560647`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-RELATIVE-POSITION-UNKNOWN\"\>", 
       ",", "\<\"DRAW-RELATIVE-POSITION-UNKNOWN\"\>"}], "]"}], ",", 
     RowBox[{"-", "1217.002154`"}], ",", "766.940042`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-RELATIVE-POSITION-UNKNOWN\"\>", 
       ",", "\<\"DRAW-ZERO-RELATIVE-POSITION\"\>"}], "]"}], ",", 
     RowBox[{"-", "4792.40173`"}], ",", "3679.660973`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-RELATIVE-POSITION-UNKNOWN\"\>", 
       ",", "\<\"OPPOSITE-RELATIVE-POSITION\"\>"}], "]"}], ",", "737.117441`",
      ",", "553.979833`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-RELATIVE-POSITION-UNKNOWN\"\>", 
       ",", "\<\"WRITE-AVG-VEL-COMPO\"\>"}], "]"}], ",", 
     RowBox[{"-", "319.013397`"}], ",", "204.687652`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-RELATIVE-POSITION-UNKNOWN\"\>", 
       ",", "\<\"WRITE-IMPLICIT-EQN\"\>"}], "]"}], ",", 
     RowBox[{"-", "1372.477178`"}], ",", "762.797606`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-RELATIVE-VEL-GIVEN-DIR\"\>", 
       ",", "\<\"DRAW-THRUST-FORCE-GIVEN-RELATIVE-VEL\"\>"}], "]"}], ",", 
     RowBox[{"-", "1704.543591`"}], ",", "500.852039`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-RELATIVE-VEL-GIVEN-DIR\"\>", 
       ",", "\<\"SELECT-MC-ANSWER\"\>"}], "]"}], ",", 
     RowBox[{"-", "638.880075`"}], ",", "520.738713`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-RELATIVE-VEL-GIVEN-DIR\"\>", 
       ",", "\<\"WRITE-G-ON-EARTH\"\>"}], "]"}], ",", "783.584724`", ",", 
     "517.560753`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-RELATIVE-VEL-GIVEN-DIR\"\>", 
       ",", "\<\"WRITE-IMPLICIT-EQN\"\>"}], "]"}], ",", 
     RowBox[{"-", "652.740233`"}], ",", "607.932305`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-RELATIVE-VEL-GIVEN-DIR\"\>", 
       ",", "\<\"WRITE-KNOWN-VALUE-EQN\"\>"}], "]"}], ",", 
     RowBox[{"-", "858.331506`"}], ",", "712.878047`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-RELATIVE-VEL-GIVEN-DIR\"\>", 
       ",", "\<\"WRITE-RELATIVE-VEL-COMPO\"\>"}], "]"}], ",", "2104.521323`", 
     ",", "769.308751`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-RELATIVE-VEL-GIVEN-DIR\"\>", 
       ",", "\<\"WRITE-THRUST-FORCE\"\>"}], "]"}], ",", "703.251315`", ",", 
     "669.06707`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-RELATIVE-VEL-GIVEN-DIR\"\>", 
       ",", "\<\"WRITE-THRUST-FORCE-COMPO\"\>"}], "]"}], ",", 
     RowBox[{"-", "825.575398`"}], ",", "750.896679`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-RELATIVE-VEL-GIVEN-DIR\"\>", ",", "\<\"WT-LAW\"\>"}], 
      "]"}], ",", "770.548742`", ",", "556.316136`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-REL-VEL-VECTOR-UNKNOWN\"\>", 
       ",", "\<\"WRITE-RELATIVE-VEL-COMPO\"\>"}], "]"}], ",", 
     RowBox[{"-", "1094.874829`"}], ",", "855.304855`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-ROTATE-AXES\"\>", ",", "\<\"DRAW-ROTATE-AXES\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "173.584369`"}], ",", "85.624742`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-ROTATE-AXES\"\>", ",", "\<\"DRAW-TENSION\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "97.53624`"}], ",", "77.869392`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-ROTATE-AXES\"\>", 
       ",", "\<\"DRAW-VELOCITY-AT-REST\"\>"}], "]"}], ",", 
     RowBox[{"-", "2202.71316`"}], ",", "1865.763624`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-ROTATE-AXES\"\>", 
       ",", "\<\"DRAW-VELOCITY-STRAIGHT-UNKNOWN\"\>"}], "]"}], ",", 
     RowBox[{"-", "1562.330833`"}], ",", "871.891038`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-ROTATE-AXES\"\>", ",", "\<\"NTL\"\>"}], "]"}], ",", 
     RowBox[{"-", "3472.17494`"}], ",", "2547.206723`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-ROTATE-AXES\"\>", 
       ",", "\<\"OPPOSITE-RELATIVE-POSITION\"\>"}], "]"}], ",", "54.496755`", 
     ",", "48.014144`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-ROTATE-AXES\"\>", 
       ",", "\<\"WRITE-CONS-LINMOM-COMPO\"\>"}], "]"}], ",", 
     RowBox[{"-", "4039.841965`"}], ",", "2185.596727`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-ROTATE-AXES\"\>", ",", "\<\"WRITE-DENSITY\"\>"}], 
      "]"}], ",", "1213.249296`", ",", "1051.05797`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-ROTATE-AXES\"\>", ",", "\<\"WRITE-EQUALITY\"\>"}], 
      "]"}], ",", "295.99931`", ",", "267.582825`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-ROTATE-AXES\"\>", 
       ",", "\<\"WRITE-KNOWN-VALUE-EQN\"\>"}], "]"}], ",", "133.628562`", ",",
      "89.784177`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-ROTATE-AXES\"\>", 
       ",", "\<\"WRITE-LK-NO-VF-COMPO\"\>"}], "]"}], ",", 
     RowBox[{"-", "999.222806`"}], ",", "604.496629`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-ROTATE-AXES\"\>", 
       ",", "\<\"WRITE-MOMENTUM-COMPO\"\>"}], "]"}], ",", "3193.934569`", ",",
      "2204.575132`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-ROTATE-AXES\"\>", ",", "\<\"WRITE-NTL-VECTOR\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "1171.540606`"}], ",", "753.172659`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-ROTATE-AXES\"\>", 
       ",", "\<\"WRITE-SUM-DISP-COMPO\"\>"}], "]"}], ",", "2592.902292`", ",",
      "1117.102444`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-SOUGHT-VECTOR-UNKNOWN\"\>", 
       ",", "\<\"DRAW-VECTOR-GIVEN-COMPOS\"\>"}], "]"}], ",", "1730.64942`", 
     ",", "715.120341`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-SOUGHT-VECTOR-UNKNOWN\"\>", 
       ",", "\<\"WRITE-AVG-ACCEL-COMPO\"\>"}], "]"}], ",", 
     RowBox[{"-", "742.608571`"}], ",", "368.63628`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-SPRING-FORCE\"\>", ",", "\<\"DRAW-WEIGHT\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "1222.376097`"}], ",", "1006.372804`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-SPRING-FORCE\"\>", ",", "\<\"WRITE-G-ON-EARTH\"\>"}], 
      "]"}], ",", "553.424822`", ",", "418.619762`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-SPRING-FORCE\"\>", 
       ",", "\<\"WRITE-IMPLICIT-EQN\"\>"}], "]"}], ",", "424.240318`", ",", 
     "245.027103`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-SPRING-FORCE\"\>", 
       ",", "\<\"WRITE-KNOWN-VALUE-EQN\"\>"}], "]"}], ",", "325.741509`", ",",
      "217.952539`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-SPRING-FORCE\"\>", 
       ",", "\<\"WRITE-SPRING-ENERGY\"\>"}], "]"}], ",", 
     RowBox[{"-", "828.829781`"}], ",", "554.789096`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-STATIC-FRICTION\"\>", 
       ",", "\<\"WRITE-G-ON-EARTH\"\>"}], "]"}], ",", 
     RowBox[{"-", "345.413197`"}], ",", "330.866001`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-STATIC-FRICTION\"\>", 
       ",", "\<\"WRITE-KNOWN-VALUE-EQN\"\>"}], "]"}], ",", "285.62906`", ",", 
     "115.346051`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-TENSION\"\>", ",", "\<\"DRAW-TENSION\"\>"}], "]"}], 
     ",", 
     RowBox[{"-", "423.091784`"}], ",", "196.201667`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-TENSION\"\>", ",", "\<\"DRAW-UNROTATED-AXES\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "909.579193`"}], ",", "594.662684`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-TENSION\"\>", ",", "\<\"DRAW-WEIGHT\"\>"}], "]"}], 
     ",", 
     RowBox[{"-", "1219.643958`"}], ",", "336.359627`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-TENSION\"\>", ",", "\<\"WRITE-G-ON-EARTH\"\>"}], 
      "]"}], ",", "547.618127`", ",", "276.803415`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-TENSION\"\>", ",", "\<\"WRITE-LK-NO-S-COMPO\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "211.341017`"}], ",", "185.618163`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-TENSION\"\>", ",", "\<\"WRITE-LK-NO-T-COMPO\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "412.660447`"}], ",", "229.524515`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-TENSION\"\>", ",", "\<\"WRITE-NFL-COMPO\"\>"}], "]"}],
      ",", 
     RowBox[{"-", "141.668056`"}], ",", "140.99617`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-TENSION\"\>", ",", "\<\"WT-LAW\"\>"}], "]"}], ",", 
     "426.726271`", ",", "269.666444`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-THRUST-FORCE\"\>", ",", "\<\"WT-LAW\"\>"}], "]"}], 
     ",", "888.695403`", ",", "778.950639`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-TORQUE\"\>", ",", "\<\"WRITE-KNOWN-VALUE-EQN\"\>"}], 
      "]"}], ",", "255.861528`", ",", "200.1281`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-TORQUE\"\>", ",", "\<\"WRITE-NL-ROTATION\"\>"}], 
      "]"}], ",", "4346.010161`", ",", "3629.039`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-UNROTATED-AXES\"\>", 
       ",", "\<\"DRAW-ZERO-RELATIVE-VEL\"\>"}], "]"}], ",", "739.550522`", 
     ",", "554.654788`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-UNROTATED-AXES\"\>", ",", "\<\"MASS-PER-LENGTH\"\>"}],
       "]"}], ",", "396.914426`", ",", "375.295679`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-UNROTATED-AXES\"\>", 
       ",", "\<\"SPEED-EQUALS-WAVE-SPEED\"\>"}], "]"}], ",", 
     RowBox[{"-", "789.382725`"}], ",", "617.64977`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-UNROTATED-AXES\"\>", 
       ",", "\<\"WAVE-SPEED-STRING\"\>"}], "]"}], ",", 
     RowBox[{"-", "228.529822`"}], ",", "216.645813`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-UNROTATED-AXES\"\>", 
       ",", "\<\"WRITE-CHANGE-ME-TOP\"\>"}], "]"}], ",", 
     RowBox[{"-", "1003.455099`"}], ",", "605.010175`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-UNROTATED-AXES\"\>", ",", "\<\"WRITE-EQUALITY\"\>"}], 
      "]"}], ",", "7129.015918`", ",", "3446.958481`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-UNROTATED-AXES\"\>", 
       ",", "\<\"WRITE-GRAV-ENERGY\"\>"}], "]"}], ",", 
     RowBox[{"-", "1406.5112`"}], ",", "1220.25648`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-UNROTATED-AXES\"\>", 
       ",", "\<\"WRITE-IMPULSE-MOMENTUM-COMPO\"\>"}], "]"}], ",", 
     "431.717528`", ",", "385.470872`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-UNROTATED-AXES\"\>", 
       ",", "\<\"WRITE-KINETIC-ENERGY\"\>"}], "]"}], ",", "1747.788025`", ",",
      "1073.472914`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-UNROTATED-AXES\"\>", 
       ",", "\<\"WRITE-MASS-COMPOUND\"\>"}], "]"}], ",", "2033.139912`", ",", 
     "1704.386328`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-UNROTATED-AXES\"\>", ",", "\<\"WRITE-SUM-TIMES\"\>"}],
       "]"}], ",", 
     RowBox[{"-", "5689.256419`"}], ",", "2432.271901`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-UNROTATED-AXES\"\>", ",", "\<\"WRITE-WNC\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "1107.833204`"}], ",", "752.73819`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-UNROTATED-AXES\"\>", 
       ",", "\<\"WRITE-WORK-DELTA-KE\"\>"}], "]"}], ",", 
     RowBox[{"-", "1078.426474`"}], ",", "760.322087`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-UNROTATED-AXES-FOR-ZCOMPS\"\>", 
       ",", "\<\"WRITE-I-COMPOUND\"\>"}], "]"}], ",", "1087.131687`", ",", 
     "921.070079`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-VECTOR-GIVEN-COMPOS\"\>", 
       ",", "\<\"WRITE-AVG-ACCEL-COMPO\"\>"}], "]"}], ",", 
     RowBox[{"-", "574.092219`"}], ",", "371.621282`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-VECTOR-GIVEN-COMPOS\"\>", 
       ",", "\<\"WRITE-KNOWN-VALUE-EQN\"\>"}], "]"}], ",", 
     RowBox[{"-", "94.239107`"}], ",", "72.619431`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-VELOCITY-AT-REST\"\>", ",", "\<\"DRAW-WEIGHT\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "2846.055932`"}], ",", "1891.389314`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-VELOCITY-AT-REST\"\>", 
       ",", "\<\"WRITE-CONS-LINMOM-COMPO\"\>"}], "]"}], ",", 
     RowBox[{"-", "1091.515663`"}], ",", "907.062571`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-VELOCITY-AT-REST\"\>", 
       ",", "\<\"WRITE-GRAV-ENERGY\"\>"}], "]"}], ",", 
     RowBox[{"-", "1712.677313`"}], ",", "1624.23421`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-VELOCITY-AT-REST\"\>", 
       ",", "\<\"WRITE-IMPULSE-MOMENTUM-COMPO\"\>"}], "]"}], ",", 
     "431.717528`", ",", "385.470872`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-VELOCITY-AT-REST\"\>", 
       ",", "\<\"WRITE-KNOWN-VALUE-EQN\"\>"}], "]"}], ",", "204.145625`", ",",
      "198.271262`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-VELOCITY-AT-REST\"\>", 
       ",", "\<\"WRITE-MOMENTUM-COMPO\"\>"}], "]"}], ",", 
     RowBox[{"-", "527.689113`"}], ",", "269.006918`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-VELOCITY-CURVED\"\>", 
       ",", "\<\"DRAW-VELOCITY-CURVED-UNKNOWN\"\>"}], "]"}], ",", 
     RowBox[{"-", "575.190819`"}], ",", "447.038816`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-VELOCITY-CURVED\"\>", 
       ",", "\<\"SDD-CONSTVEL-COMPO\"\>"}], "]"}], ",", 
     RowBox[{"-", "561.346673`"}], ",", "558.518735`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-VELOCITY-CURVED\"\>", 
       ",", "\<\"WRITE-AVG-ACCEL-COMPO\"\>"}], "]"}], ",", 
     RowBox[{"-", "841.259367`"}], ",", "410.417276`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-VELOCITY-CURVED\"\>", 
       ",", "\<\"WRITE-CONNECTED-VELOCITIES\"\>"}], "]"}], ",", 
     RowBox[{"-", "442.554551`"}], ",", "304.020925`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-VELOCITY-CURVED\"\>", 
       ",", "\<\"WRITE-IMPLICIT-EQN\"\>"}], "]"}], ",", "270.004838`", ",", 
     "218.676682`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-VELOCITY-CURVED\"\>", 
       ",", "\<\"WRITE-LINEAR-VEL\"\>"}], "]"}], ",", "280.243405`", ",", 
     "266.996544`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-VELOCITY-CURVED-UNKNOWN\"\>", 
       ",", "\<\"SDD-CONSTVEL-COMPO\"\>"}], "]"}], ",", "294.934273`", ",", 
     "182.02778`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-VELOCITY-CURVED-UNKNOWN\"\>", 
       ",", "\<\"WRITE-LK-NO-S-COMPO\"\>"}], "]"}], ",", 
     RowBox[{"-", "901.064725`"}], ",", "817.846281`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-VELOCITY-MOMENTARILY-AT-REST\"\>", 
       ",", "\<\"DRAW-WEIGHT\"\>"}], "]"}], ",", 
     RowBox[{"-", "2079.194215`"}], ",", "1838.256739`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-VELOCITY-MOMENTARILY-AT-REST\"\>", 
       ",", "\<\"WRITE-ENERGY-CONS\"\>"}], "]"}], ",", 
     RowBox[{"-", "359.57857`"}], ",", "321.785487`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-VELOCITY-MOMENTARILY-AT-REST\"\>", 
       ",", "\<\"WRITE-LK-NO-T-COMPO\"\>"}], "]"}], ",", "604.749802`", ",", 
     "369.362385`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-VELOCITY-MOMENTARILY-AT-REST\"\>", 
       ",", "\<\"WRITE-LK-NO-VF-COMPO\"\>"}], "]"}], ",", "688.54571`", ",", 
     "637.985565`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-VELOCITY-MOMENTARILY-AT-REST\"\>", 
       ",", "\<\"WRITE-NET-POWER\"\>"}], "]"}], ",", "1235.413181`", ",", 
     "1183.647595`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-VELOCITY-MOMENTARILY-AT-REST\"\>", 
       ",", "\<\"WRITE-SPRING-ENERGY\"\>"}], "]"}], ",", "298.60689`", ",", 
     "132.886726`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-VELOCITY-MOMENTARILY-AT-REST\"\>", 
       ",", "\<\"WRITE-WORK\"\>"}], "]"}], ",", 
     RowBox[{"-", "4105.279431`"}], ",", "3320.437151`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-VELOCITY-STRAIGHT\"\>", 
       ",", "\<\"WRITE-CONS-LINMOM-COMPO\"\>"}], "]"}], ",", 
     RowBox[{"-", "1876.723091`"}], ",", "1527.294106`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-VELOCITY-STRAIGHT\"\>", 
       ",", "\<\"WRITE-EQUALITY\"\>"}], "]"}], ",", "873.980132`", ",", 
     "708.915829`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-VELOCITY-STRAIGHT\"\>", 
       ",", "\<\"WRITE-FREE-FALL-ACCEL\"\>"}], "]"}], ",", "2698.259757`", 
     ",", "2411.381755`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-VELOCITY-STRAIGHT\"\>", 
       ",", "\<\"WRITE-G-ON-EARTH\"\>"}], "]"}], ",", 
     RowBox[{"-", "1637.056792`"}], ",", "1596.793537`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-VELOCITY-STRAIGHT\"\>", 
       ",", "\<\"WRITE-KNOWN-VALUE-EQN\"\>"}], "]"}], ",", 
     RowBox[{"-", "72.545844`"}], ",", "66.5108`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-VELOCITY-STRAIGHT\"\>", 
       ",", "\<\"WRITE-LK-NO-VF-COMPO\"\>"}], "]"}], ",", "2194.726916`", ",",
      "1266.393984`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-VELOCITY-STRAIGHT\"\>", 
       ",", "\<\"WRITE-MASS-COMPOUND\"\>"}], "]"}], ",", "1646.926569`", ",", 
     "1379.945918`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-VELOCITY-STRAIGHT\"\>", 
       ",", "\<\"WRITE-NFL-COMPO\"\>"}], "]"}], ",", 
     RowBox[{"-", "526.064643`"}], ",", "343.693476`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-VELOCITY-STRAIGHT\"\>", 
       ",", "\<\"WRITE-NSL-COMPO\"\>"}], "]"}], ",", 
     RowBox[{"-", "1353.221868`"}], ",", "339.378706`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-VELOCITY-STRAIGHT\"\>", 
       ",", "\<\"WRITE-ZERO-WORK\"\>"}], "]"}], ",", "1721.819424`", ",", 
     "1657.197524`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-VELOCITY-STRAIGHT\"\>", ",", "\<\"WT-LAW\"\>"}], 
      "]"}], ",", "2255.68714`", ",", "1606.778533`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-VELOCITY-STRAIGHT-UNKNOWN\"\>", 
       ",", "\<\"DRAW-VELOCITY-STRAIGHT-UNKNOWN\"\>"}], "]"}], ",", 
     "908.505997`", ",", "631.949935`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-VELOCITY-STRAIGHT-UNKNOWN\"\>", 
       ",", "\<\"WRITE-CONS-LINMOM-COMPO\"\>"}], "]"}], ",", 
     RowBox[{"-", "825.91696`"}], ",", "801.526333`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-VELOCITY-STRAIGHT-UNKNOWN\"\>", 
       ",", "\<\"WRITE-EQUALITY\"\>"}], "]"}], ",", "1544.112587`", ",", 
     "1376.636304`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-VELOCITY-STRAIGHT-UNKNOWN\"\>", 
       ",", "\<\"WRITE-G-ON-EARTH\"\>"}], "]"}], ",", "752.065631`", ",", 
     "533.129493`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-VELOCITY-STRAIGHT-UNKNOWN\"\>", 
       ",", "\<\"WRITE-IMPLICIT-EQN\"\>"}], "]"}], ",", "2346.909802`", ",", 
     "1454.571011`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-VELOCITY-STRAIGHT-UNKNOWN\"\>", 
       ",", "\<\"WRITE-MOMENTUM-COMPO\"\>"}], "]"}], ",", 
     RowBox[{"-", "2597.833581`"}], ",", "2432.756234`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-WEIGHT\"\>", ",", "\<\"DRAW-WEIGHT\"\>"}], "]"}], ",",
      
     RowBox[{"-", "1445.494073`"}], ",", "537.153339`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-WEIGHT\"\>", 
       ",", "\<\"PRESSURE-AT-OPEN-TO-ATMOSPHERE\"\>"}], "]"}], ",", 
     "2069.793564`", ",", "1778.779164`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-WEIGHT\"\>", ",", "\<\"WRITE-CHANGE-ME-TOP\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "5318.826748`"}], ",", "2319.029006`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-WEIGHT\"\>", ",", "\<\"WRITE-EQUALITY\"\>"}], "]"}], 
     ",", "1609.793892`", ",", "1118.540184`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-WEIGHT\"\>", ",", "\<\"WRITE-G-ON-EARTH\"\>"}], "]"}],
      ",", 
     RowBox[{"-", "530.426798`"}], ",", "452.620495`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-WEIGHT\"\>", ",", "\<\"WRITE-INST-POWER\"\>"}], "]"}],
      ",", "1369.458852`", ",", "1072.986734`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-WEIGHT\"\>", ",", "\<\"WRITE-KNOWN-VALUE-EQN\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "238.177818`"}], ",", "159.80549`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-WEIGHT\"\>", ",", "\<\"WRITE-LK-NO-S-COMPO\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "211.341017`"}], ",", "185.618163`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-WEIGHT\"\>", ",", "\<\"WRITE-LK-NO-T-COMPO\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "585.71746`"}], ",", "224.725228`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-WEIGHT\"\>", ",", "\<\"WRITE-NSL-COMPO\"\>"}], "]"}], 
     ",", 
     RowBox[{"-", "633.769559`"}], ",", "522.628632`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-WEIGHT\"\>", ",", "\<\"WRITE-POWER\"\>"}], "]"}], ",",
      
     RowBox[{"-", "1863.58433`"}], ",", "1314.861993`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-WEIGHT\"\>", ",", "\<\"WRITE-TENSIONS-EQUAL\"\>"}], 
      "]"}], ",", "1135.143012`", ",", "462.993633`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-WEIGHT\"\>", ",", "\<\"WRITE-THRUST-FORCE\"\>"}], 
      "]"}], ",", "1063.398507`", ",", "959.351268`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-WEIGHT\"\>", ",", "\<\"WRITE-WNC\"\>"}], "]"}], ",", 
     RowBox[{"-", "2864.001762`"}], ",", "2710.011114`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-WEIGHT\"\>", ",", "\<\"WRITE-WORK-DELTA-KE\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "4540.999825`"}], ",", "2221.784711`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-WEIGHT\"\>", ",", "\<\"WT-LAW\"\>"}], "]"}], ",", 
     RowBox[{"-", "1162.588433`"}], ",", "738.564533`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-ZERO-RELATIVE-POSITION\"\>", 
       ",", "\<\"WRITE-IMPLICIT-EQN\"\>"}], "]"}], ",", "1451.166655`", ",", 
     "679.471334`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-ZERO-RELATIVE-VEL\"\>", 
       ",", "\<\"WRITE-BEAT-FREQUENCY\"\>"}], "]"}], ",", "1048.001044`", ",",
      "1006.867952`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"DRAW-ZERO-RELATIVE-VEL\"\>", 
       ",", "\<\"WRITE-KNOWN-VALUE-EQN\"\>"}], "]"}], ",", 
     RowBox[{"-", "152.207802`"}], ",", "122.499843`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"GIVEN-FRACTION\"\>", ",", "\<\"MASS-PER-LENGTH\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "289.859363`"}], ",", "175.171975`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"GIVEN-FRACTION\"\>", ",", "\<\"WRITE-NSL-COMPO\"\>"}], 
      "]"}], ",", "962.616979`", ",", "407.870648`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"GIVEN-FRACTION\"\>", ",", "\<\"WRITE-SPEED-OF-WAVE\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "283.950911`"}], ",", "263.947594`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"MASS-PER-LENGTH\"\>", 
       ",", "\<\"MASS-PER-LENGTH-EQUATION\"\>"}], "]"}], ",", 
     RowBox[{"-", "201.027732`"}], ",", "199.642316`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"MASS-PER-LENGTH\"\>", 
       ",", "\<\"SPEED-EQUALS-WAVE-SPEED\"\>"}], "]"}], ",", "316.136414`", 
     ",", "306.659257`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"MASS-PER-LENGTH\"\>", ",", "\<\"WRITE-EQUALITY\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "253.528918`"}], ",", "240.292042`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"MASS-PER-LENGTH\"\>", ",", "\<\"WRITE-SDD\"\>"}], "]"}], 
     ",", "316.136414`", ",", "306.659257`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"MASS-PER-LENGTH-EQUATION\"\>", 
       ",", "\<\"SPEED-EQUALS-WAVE-SPEED\"\>"}], "]"}], ",", "244.136458`", 
     ",", "159.298835`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"MASS-PER-LENGTH-EQUATION\"\>", 
       ",", "\<\"WAVE-SPEED-STRING\"\>"}], "]"}], ",", 
     RowBox[{"-", "224.63766`"}], ",", "185.454291`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"MASS-PER-LENGTH-EQUATION\"\>", ",", "\<\"WRITE-SDD\"\>"}], 
      "]"}], ",", "244.136458`", ",", "159.298835`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"MASS-PER-LENGTH-EQUATION\"\>", 
       ",", "\<\"WRITE-SPEED-OF-WAVE\"\>"}], "]"}], ",", "251.170499`", ",", 
     "209.923751`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"NTL\"\>", ",", "\<\"WRITE-IMPLICIT-EQN\"\>"}], "]"}], ",", 
     "2577.22295`", ",", "1491.054055`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"NTL\"\>", ",", "\<\"WRITE-KNOWN-VALUE-EQN\"\>"}], "]"}], 
     ",", "3575.341269`", ",", "1357.22718`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"NTL\"\>", ",", "\<\"WRITE-NSL-COMPO\"\>"}], "]"}], ",", 
     "6171.890281`", ",", "5136.65662`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"NTL\"\>", ",", "\<\"WRITE-NTL-VECTOR\"\>"}], "]"}], ",", 
     RowBox[{"-", "4501.093603`"}], ",", "4105.653255`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"OPPOSITE-RELATIVE-POSITION\"\>", 
       ",", "\<\"WRITE-INTENSITY-TO-DECIBELS\"\>"}], "]"}], ",", 
     RowBox[{"-", "244.819865`"}], ",", "162.889015`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"OPPOSITE-RELATIVE-POSITION\"\>", 
       ",", "\<\"WRITE-INTENSITY-TO-POWER\"\>"}], "]"}], ",", 
     RowBox[{"-", "244.819865`"}], ",", "162.889015`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"OPPOSITE-RELATIVE-POSITION\"\>", ",", "\<\"WRITE-UG\"\>"}],
       "]"}], ",", 
     RowBox[{"-", "560.844534`"}], ",", "218.851074`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"PERIOD-OF-WAVE\"\>", ",", "\<\"WRITE-NFL-COMPO\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "265.167482`"}], ",", "221.883349`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"PRESSURE-AT-OPEN-TO-ATMOSPHERE\"\>", 
       ",", "\<\"PRESSURE-AT-OPEN-TO-ATMOSPHERE\"\>"}], "]"}], ",", 
     RowBox[{"-", "1868.49098`"}], ",", "1074.736287`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"PRESSURE-FORCE\"\>", ",", "\<\"PRESSURE-FORCE\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "1177.340679`"}], ",", "1040.215573`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"PRESSURE-FORCE\"\>", 
       ",", "\<\"WRITE-KNOWN-VALUE-EQN\"\>"}], "]"}], ",", 
     RowBox[{"-", "1223.04603`"}], ",", "1172.339579`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"PRESSURE-FORCE\"\>", ",", "\<\"WT-LAW\"\>"}], "]"}], ",", 
     RowBox[{"-", "809.114471`"}], ",", "716.896068`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"PRESSURE-HEIGHT-FLUID\"\>", 
       ",", "\<\"WRITE-VALUE-OF-ATMOSPHERE\"\>"}], "]"}], ",", "2094.625885`",
      ",", "1797.984505`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"SDD-CONSTVEL-COMPO\"\>", 
       ",", "\<\"SDD-CONSTVEL-COMPO\"\>"}], "]"}], ",", "250.310065`", ",", 
     "186.220477`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"SDD-CONSTVEL-COMPO\"\>", ",", "\<\"WRITE-G-ON-EARTH\"\>"}],
       "]"}], ",", 
     RowBox[{"-", "777.22602`"}], ",", "690.757307`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"SDD-CONSTVEL-COMPO\"\>", 
       ",", "\<\"WRITE-LK-NO-T-COMPO\"\>"}], "]"}], ",", "413.712425`", ",", 
     "392.775319`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"SELECT-MC-ANSWER\"\>", ",", "\<\"SELECT-MC-ANSWER\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "18.630368`"}], ",", "9.225859`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"SELECT-MC-ANSWER\"\>", ",", "\<\"WRITE-I-HOOP-CM\"\>"}], 
      "]"}], ",", "1218.553922`", ",", "1039.786619`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"SPEED-EQUALS-WAVE-SPEED\"\>", 
       ",", "\<\"WAVE-SPEED-STRING\"\>"}], "]"}], ",", "316.136414`", ",", 
     "306.659257`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"SPRING-LAW-COMPRESSION\"\>", ",", "\<\"WT-LAW\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "798.128034`"}], ",", "568.516599`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"SPRING-MASS-OSCILLATION\"\>", 
       ",", "\<\"WRITE-NFL-COMPO\"\>"}], "]"}], ",", 
     RowBox[{"-", "265.167482`"}], ",", "221.883349`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"USE-CONST-VX\"\>", ",", "\<\"WRITE-FREE-FALL-ACCEL\"\>"}], 
      "]"}], ",", "553.298512`", ",", "462.906259`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"USE-CONST-VX\"\>", ",", "\<\"WRITE-KNOWN-VALUE-EQN\"\>"}], 
      "]"}], ",", "456.041546`", ",", "425.452228`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WAVE-SPEED-STRING\"\>", ",", "\<\"WRITE-EQUALITY\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "277.138847`"}], ",", "234.087858`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WAVE-SPEED-STRING\"\>", ",", "\<\"WRITE-SDD\"\>"}], "]"}], 
     ",", "316.136414`", ",", "306.659257`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-ANG-MOMENTUM\"\>", 
       ",", "\<\"WRITE-ANG-MOMENTUM\"\>"}], "]"}], ",", "285.849793`", ",", 
     "221.101721`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-ANG-MOMENTUM\"\>", 
       ",", "\<\"WRITE-CONS-ANGMOM-JOIN\"\>"}], "]"}], ",", "513.846037`", 
     ",", "262.487403`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-AVG-VEL-COMPO\"\>", 
       ",", "\<\"WRITE-KNOWN-VALUE-EQN\"\>"}], "]"}], ",", 
     RowBox[{"-", "1018.765387`"}], ",", "575.696241`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-CENTRIPETAL-ACCEL\"\>", 
       ",", "\<\"WRITE-UG-CIRCULAR\"\>"}], "]"}], ",", "687.694752`", ",", 
     "541.382798`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-CHANGE-ME-TOP\"\>", 
       ",", "\<\"WRITE-TOTAL-ENERGY-TOP\"\>"}], "]"}], ",", "2622.967984`", 
     ",", "1256.147098`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-CONNECTED-ACCELS\"\>", 
       ",", "\<\"WRITE-IMPLICIT-EQN\"\>"}], "]"}], ",", "993.043101`", ",", 
     "475.434164`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-CONNECTED-ACCELS\"\>", 
       ",", "\<\"WRITE-KNOWN-VALUE-EQN\"\>"}], "]"}], ",", 
     RowBox[{"-", "564.700382`"}], ",", "377.784962`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-CONNECTED-ACCELS\"\>", 
       ",", "\<\"WRITE-LK-NO-T-COMPO\"\>"}], "]"}], ",", 
     RowBox[{"-", "206.330224`"}], ",", "114.762258`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-CONNECTED-ACCELS\"\>", 
       ",", "\<\"WRITE-LK-NO-VF-COMPO\"\>"}], "]"}], ",", "692.835254`", ",", 
     "549.419104`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-CONS-KE-ELASTIC\"\>", 
       ",", "\<\"WRITE-EQUALITY\"\>"}], "]"}], ",", "1278.434912`", ",", 
     "784.872407`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-CONS-LINMOM-COMPO\"\>", 
       ",", "\<\"WRITE-IMPULSE-MOMENTUM-COMPO\"\>"}], "]"}], ",", 
     "355.224588`", ",", "174.73382`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-CONS-LINMOM-COMPO\"\>", 
       ",", "\<\"WRITE-KNOWN-VALUE-EQN\"\>"}], "]"}], ",", "817.864309`", ",",
      "436.03439`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-CONS-LINMOM-COMPO-SPLIT\"\>", 
       ",", "\<\"WRITE-IMPLICIT-EQN\"\>"}], "]"}], ",", 
     RowBox[{"-", "503.772694`"}], ",", "231.249622`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-ENERGY-CONS\"\>", ",", "\<\"WRITE-ENERGY-CONS\"\>"}],
       "]"}], ",", 
     RowBox[{"-", "401.164884`"}], ",", "289.065723`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-ENERGY-CONS\"\>", ",", "\<\"WRITE-GRAV-ENERGY\"\>"}],
       "]"}], ",", 
     RowBox[{"-", "3317.617445`"}], ",", "2864.64516`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-EQUALITY\"\>", ",", "\<\"WRITE-EQUALITY\"\>"}], 
      "]"}], ",", "1450.613787`", ",", "672.358451`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-EQUALITY\"\>", ",", "\<\"WRITE-IMPLICIT-EQN\"\>"}], 
      "]"}], ",", "733.964257`", ",", "525.278823`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-EQUALITY\"\>", ",", "\<\"WRITE-KINETIC-ENERGY\"\>"}],
       "]"}], ",", "1262.912448`", ",", "1005.512385`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-EQUALITY\"\>", ",", "\<\"WRITE-NET-POWER\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "959.964123`"}], ",", "875.93261`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-EQUALITY\"\>", ",", "\<\"WRITE-SPEED-OF-WAVE\"\>"}], 
      "]"}], ",", "289.485952`", ",", "182.094702`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-EQUALITY\"\>", ",", "\<\"WRITE-SUM-DISTANCES\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "2181.722286`"}], ",", "1014.472839`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-EQUALITY\"\>", ",", "\<\"WRITE-SUM-TIMES\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "769.574775`"}], ",", "708.717041`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-EQUALITY\"\>", ",", "\<\"WRITE-WORK-DELTA-KE\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "1808.237393`"}], ",", "1035.232307`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-FREE-FALL-ACCEL\"\>", 
       ",", "\<\"WRITE-LK-NO-S-COMPO\"\>"}], "]"}], ",", "859.034408`", ",", 
     "600.333527`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-FREE-FALL-ACCEL\"\>", 
       ",", "\<\"WRITE-LK-NO-T-COMPO\"\>"}], "]"}], ",", 
     RowBox[{"-", "571.652108`"}], ",", "500.081744`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-G-ON-EARTH\"\>", 
       ",", "\<\"WRITE-LK-NO-S-COMPO\"\>"}], "]"}], ",", "788.260655`", ",", 
     "365.274367`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-G-ON-EARTH\"\>", 
       ",", "\<\"WRITE-LK-NO-VF-COMPO\"\>"}], "]"}], ",", 
     RowBox[{"-", "693.778906`"}], ",", "681.108691`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-G-ON-EARTH\"\>", 
       ",", "\<\"WRITE-MASS-COMPOUND\"\>"}], "]"}], ",", 
     RowBox[{"-", "1199.807763`"}], ",", "1193.264614`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-G-ON-EARTH\"\>", ",", "\<\"WRITE-THRUST-FORCE\"\>"}],
       "]"}], ",", 
     RowBox[{"-", "707.434015`"}], ",", "644.044673`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-G-ON-EARTH\"\>", 
       ",", "\<\"WRITE-VALUE-OF-ATMOSPHERE\"\>"}], "]"}], ",", 
     RowBox[{"-", "2926.415687`"}], ",", "2351.087677`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-G-ON-EARTH\"\>", ",", "\<\"WRITE-WNC\"\>"}], "]"}], 
     ",", "4836.280681`", ",", "3048.756411`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-GRAV-ENERGY\"\>", ",", "\<\"WRITE-GRAV-ENERGY\"\>"}],
       "]"}], ",", "1864.289147`", ",", "1724.300996`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-GRAV-ENERGY\"\>", 
       ",", "\<\"WRITE-SPRING-ENERGY\"\>"}], "]"}], ",", 
     RowBox[{"-", "2710.587228`"}], ",", "2152.779733`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-HEIGHT-DY-COMPO\"\>", 
       ",", "\<\"WRITE-KNOWN-VALUE-EQN\"\>"}], "]"}], ",", 
     RowBox[{"-", "484.787058`"}], ",", "327.629526`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-IMPLICIT-EQN\"\>", 
       ",", "\<\"WRITE-IMPLICIT-EQN\"\>"}], "]"}], ",", 
     RowBox[{"-", "30.089693`"}], ",", "14.684232`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-IMPLICIT-EQN\"\>", 
       ",", "\<\"WRITE-LK-NO-T-COMPO\"\>"}], "]"}], ",", "242.722283`", ",", 
     "121.273548`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-IMPLICIT-EQN\"\>", 
       ",", "\<\"WRITE-LK-NO-VF-COMPO\"\>"}], "]"}], ",", "193.866824`", ",", 
     "180.734334`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-IMPLICIT-EQN\"\>", 
       ",", "\<\"WRITE-MASS-COMPOUND\"\>"}], "]"}], ",", "1032.868114`", ",", 
     "418.365583`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-IMPLICIT-EQN\"\>", 
       ",", "\<\"WRITE-MOMENTUM-COMPO\"\>"}], "]"}], ",", "155.781633`", ",", 
     "75.30555`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-IMPLICIT-EQN\"\>", ",", "\<\"WRITE-NFL-COMPO\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "109.64094`"}], ",", "32.428904`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-IMPLICIT-EQN\"\>", ",", "\<\"WRITE-POWER\"\>"}], 
      "]"}], ",", "794.882636`", ",", "751.736152`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-IMPLICIT-EQN\"\>", ",", "\<\"WRITE-RK-NO-S\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "2188.033499`"}], ",", "1884.596052`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-IMPLICIT-EQN\"\>", ",", "\<\"WRITE-UG\"\>"}], "]"}], 
     ",", 
     RowBox[{"-", "934.15676`"}], ",", "452.597371`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-IMPLICIT-EQN\"\>", ",", "\<\"WRITE-WNC\"\>"}], "]"}],
      ",", "2136.018393`", ",", "1894.29604`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-IMPLICIT-EQN\"\>", ",", "\<\"WRITE-WORK\"\>"}], 
      "]"}], ",", "305.118522`", ",", "232.4621`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-IMPLICIT-EQN\"\>", 
       ",", "\<\"WRITE-WORK-DELTA-KE\"\>"}], "]"}], ",", "939.030472`", ",", 
     "555.66331`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-IMPLICIT-EQN\"\>", ",", "\<\"WT-LAW\"\>"}], "]"}], 
     ",", "190.849402`", ",", "190.538697`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-IMPULSE-COMPO\"\>", 
       ",", "\<\"WRITE-MOMENTUM-COMPO\"\>"}], "]"}], ",", 
     RowBox[{"-", "771.640095`"}], ",", "502.096424`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-IMPULSE-MOMENTUM-COMPO\"\>", 
       ",", "\<\"WRITE-IMPULSE-MOMENTUM-COMPO\"\>"}], "]"}], ",", 
     RowBox[{"-", "1341.340102`"}], ",", "1170.168428`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-INTENSITY-TO-POWER\"\>", 
       ",", "\<\"WRITE-KNOWN-VALUE-EQN\"\>"}], "]"}], ",", 
     RowBox[{"-", "473.091995`"}], ",", "391.440085`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-I-ROD-CM\"\>", 
       ",", "\<\"WRITE-KNOWN-VALUE-EQN\"\>"}], "]"}], ",", 
     RowBox[{"-", "2192.885944`"}], ",", "2037.621314`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-KINETIC-ENERGY\"\>", 
       ",", "\<\"WRITE-SPRING-ENERGY\"\>"}], "]"}], ",", "3891.43933`", ",", 
     "2691.367843`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-KINETIC-ENERGY\"\>", 
       ",", "\<\"WRITE-TOTAL-ENERGY-TOP\"\>"}], "]"}], ",", 
     RowBox[{"-", "2348.818031`"}], ",", "1997.990178`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-KNOWN-VALUE-EQN\"\>", 
       ",", "\<\"WRITE-KNOWN-VALUE-EQN\"\>"}], "]"}], ",", "20.097631`", ",", 
     "14.229567`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-KNOWN-VALUE-EQN\"\>", 
       ",", "\<\"WRITE-LK-NO-S-COMPO\"\>"}], "]"}], ",", "207.722385`", ",", 
     "137.002985`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-KNOWN-VALUE-EQN\"\>", 
       ",", "\<\"WRITE-MASS-COMPOUND\"\>"}], "]"}], ",", "585.88083`", ",", 
     "395.807684`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-KNOWN-VALUE-EQN\"\>", 
       ",", "\<\"WRITE-MOMENTUM-COMPO\"\>"}], "]"}], ",", "102.869714`", ",", 
     "79.821541`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-KNOWN-VALUE-EQN\"\>", 
       ",", "\<\"WRITE-NTL-VECTOR\"\>"}], "]"}], ",", "977.365483`", ",", 
     "681.252148`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-KNOWN-VALUE-EQN\"\>", 
       ",", "\<\"WRITE-SPRING-ENERGY\"\>"}], "]"}], ",", "112.848825`", ",", 
     "66.897803`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-KNOWN-VALUE-EQN\"\>", 
       ",", "\<\"WRITE-SUM-DISTANCES\"\>"}], "]"}], ",", "634.499133`", ",", 
     "437.287822`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-KNOWN-VALUE-EQN\"\>", 
       ",", "\<\"WRITE-TOTAL-ENERGY-TOP\"\>"}], "]"}], ",", "664.033106`", 
     ",", "374.737223`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-KNOWN-VALUE-EQN\"\>", ",", "\<\"WRITE-UG\"\>"}], 
      "]"}], ",", "1429.943354`", ",", "881.315396`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-KNOWN-VALUE-EQN\"\>", 
       ",", "\<\"WRITE-UG-CIRCULAR\"\>"}], "]"}], ",", "1601.348295`", ",", 
     "934.927833`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-LK-NO-S-COMPO\"\>", 
       ",", "\<\"WRITE-LK-NO-VF-COMPO\"\>"}], "]"}], ",", "346.259619`", ",", 
     "294.539304`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-LK-NO-S-COMPO\"\>", ",", "\<\"WT-LAW\"\>"}], "]"}], 
     ",", 
     RowBox[{"-", "211.341017`"}], ",", "185.618163`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-LK-NO-T-COMPO\"\>", ",", "\<\"WRITE-NSL-COMPO\"\>"}],
       "]"}], ",", "1701.208265`", ",", "980.648328`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-LK-NO-T-COMPO\"\>", 
       ",", "\<\"WRITE-TENSIONS-EQUAL\"\>"}], "]"}], ",", 
     RowBox[{"-", "206.330224`"}], ",", "114.762258`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-LK-NO-T-COMPO\"\>", ",", "\<\"WRITE-WORK\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "173.057013`"}], ",", "123.306086`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-LK-NO-T-COMPO\"\>", ",", "\<\"WT-LAW\"\>"}], "]"}], 
     ",", 
     RowBox[{"-", "585.71746`"}], ",", "224.725228`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-LK-NO-VF-COMPO\"\>", 
       ",", "\<\"WRITE-NSL-COMPO\"\>"}], "]"}], ",", 
     RowBox[{"-", "2125.685054`"}], ",", "1170.937233`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-LK-NO-VF-COMPO\"\>", 
       ",", "\<\"WRITE-TENSIONS-EQUAL\"\>"}], "]"}], ",", "575.36934`", ",", 
     "511.962712`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-NFL-COMPO\"\>", ",", "\<\"WRITE-NFL-COMPO\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "38.494217`"}], ",", "23.765356`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-NFL-COMPO\"\>", 
       ",", "\<\"WRITE-TENSIONS-EQUAL\"\>"}], "]"}], ",", "901.14797`", ",", 
     "516.771704`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-NFL-COMPO\"\>", ",", "\<\"WT-LAW\"\>"}], "]"}], ",", 
     
     RowBox[{"-", "166.708577`"}], ",", "156.19973`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-NSL-COMPO\"\>", 
       ",", "\<\"WRITE-PERIOD-CIRCULAR\"\>"}], "]"}], ",", 
     RowBox[{"-", "1554.528255`"}], ",", "967.564192`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-NSL-COMPO\"\>", ",", "\<\"WRITE-UG-CIRCULAR\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "1287.761151`"}], ",", "878.18775`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-NSL-COMPO\"\>", ",", "\<\"WRITE-WORK\"\>"}], "]"}], 
     ",", 
     RowBox[{"-", "346.114025`"}], ",", "246.612172`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-NSL-COMPO\"\>", ",", "\<\"WT-LAW\"\>"}], "]"}], ",", 
     
     RowBox[{"-", "1803.119567`"}], ",", "816.531429`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-NTL-VECTOR\"\>", ",", "\<\"WRITE-NTL-VECTOR\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "2199.192421`"}], ",", "1854.471121`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-PERIOD-CIRCULAR\"\>", ",", "\<\"WRITE-UG\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "1330.071793`"}], ",", "732.452007`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-RELATIVE-VEL-COMPO\"\>", 
       ",", "\<\"WRITE-RELATIVE-VEL-COMPO\"\>"}], "]"}], ",", 
     RowBox[{"-", "2373.873726`"}], ",", "556.286007`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-SDD\"\>", ",", "\<\"WRITE-SDD\"\>"}], "]"}], ",", 
     RowBox[{"-", "939.987592`"}], ",", "378.595883`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-SDD\"\>", ",", "\<\"WRITE-SUM-DISTANCES\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "1156.602502`"}], ",", "769.239651`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-SDD\"\>", ",", "\<\"WRITE-SUM-TIMES\"\>"}], "]"}], 
     ",", "2023.139245`", ",", "1700.443682`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-SUM-DISTANCES\"\>", ",", "\<\"WRITE-SUM-TIMES\"\>"}],
       "]"}], ",", 
     RowBox[{"-", "7212.157876`"}], ",", "3002.935455`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-TENSIONS-EQUAL\"\>", 
       ",", "\<\"WRITE-TENSIONS-EQUAL\"\>"}], "]"}], ",", "1265.466697`", ",",
      "425.647433`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-THRUST-FORCE\"\>", ",", "\<\"WT-LAW\"\>"}], "]"}], 
     ",", 
     RowBox[{"-", "678.181516`"}], ",", "604.715992`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-TORQUE-ZC\"\>", ",", "\<\"WT-LAW-CM\"\>"}], "]"}], 
     ",", 
     RowBox[{"-", "2136.832315`"}], ",", "866.612873`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-TOTAL-ENERGY-TOP\"\>", ",", "\<\"WRITE-WORK\"\>"}], 
      "]"}], ",", 
     RowBox[{"-", "2169.753103`"}], ",", "1941.203633`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-TOTAL-ENERGY-TOP\"\>", 
       ",", "\<\"WRITE-WORK-DELTA-KE\"\>"}], "]"}], ",", "2529.49528`", ",", 
     "2108.237352`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-TOTAL-ENERGY-TOP\"\>", 
       ",", "\<\"WRITE-ZERO-WORK\"\>"}], "]"}], ",", "2762.220685`", ",", 
     "1898.238726`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-UG\"\>", ",", "\<\"WRITE-UG-CIRCULAR\"\>"}], "]"}], 
     ",", "1093.258436`", ",", "1070.725698`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"\<\"WRITE-VOLUME-COMPOUND\"\>", ",", "\<\"WT-LAW\"\>"}], "]"}],
      ",", "5481.262226`", ",", "5290.312944`"}], "}"}]}], "}"}]], "Output"]
}, Open  ]]
}, Closed]]
}, Open  ]]
},
WindowSize->{847, 670},
WindowMargins->{{202, Automatic}, {Automatic, 0}},
PrintingPageRange->{Automatic, Automatic},
PrintingOptions->{"Magnification"->1,
"PaperOrientation"->"Portrait",
"PaperSize"->{612, 792},
"PostScriptOutputFile":>FrontEnd`FileName[{$RootDirectory, "home", "bvds", 
   "log"}, "pausehistogram3.pdf", CharacterEncoding -> "iso8859-1"]},
ShowSelection->True,
FrontEndVersion->"6.0 for Linux x86 (32-bit) (April 20, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 116, 1, 53, "Subtitle"],
Cell[709, 26, 168, 4, 32, "Input"],
Cell[880, 32, 469, 15, 32, "Input"],
Cell[CellGroupData[{
Cell[1374, 51, 43, 0, 39, "Subsection"],
Cell[1420, 53, 147, 2, 32, "Input"],
Cell[CellGroupData[{
Cell[1592, 59, 133, 2, 32, "Input"],
Cell[1728, 63, 69, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1834, 69, 237, 8, 32, "Input"],
Cell[2074, 79, 3216, 80, 272, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5327, 164, 372, 11, 32, "Input"],
Cell[5702, 177, 3854, 105, 332, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9593, 287, 222, 4, 32, "Input"],
Cell[9818, 293, 93, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9948, 299, 1125, 30, 99, "Input"],
Cell[11076, 331, 7644, 138, 238, 677, 22, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18757, 474, 196, 5, 32, "Input"],
Cell[18956, 481, 59, 0, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19052, 486, 166, 3, 32, "Input"],
Cell[19221, 491, 60, 0, 31, "Output"]
}, Open  ]],
Cell[19296, 494, 138, 3, 32, "Input"],
Cell[CellGroupData[{
Cell[19459, 501, 471, 14, 55, "Input"],
Cell[19933, 517, 499, 14, 235, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20469, 536, 612, 16, 55, "Input"],
Cell[21084, 554, 408, 11, 243, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21529, 570, 2306, 60, 209, "Input"],
Cell[23838, 632, 10742, 196, 342, 1231, 38, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[34617, 833, 203, 5, 32, "Input"],
Cell[34823, 840, 62, 0, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[34922, 845, 173, 3, 32, "Input"],
Cell[35098, 850, 63, 0, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[35198, 855, 170, 5, 32, "Input"],
Cell[35371, 862, 784, 26, 60, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[36192, 893, 169, 5, 32, "Input"],
Cell[36364, 900, 2415, 64, 190, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[38816, 969, 1628, 44, 121, "Input"],
Cell[40447, 1015, 726, 21, 232, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[41210, 1041, 189, 4, 32, "Input"],
Cell[41402, 1047, 56, 0, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[41495, 1052, 163, 3, 32, "Input"],
Cell[41661, 1057, 57, 0, 31, "Output"]
}, Open  ]],
Cell[41733, 1060, 87, 2, 31, "Text"],
Cell[CellGroupData[{
Cell[41845, 1066, 757, 21, 77, "Input"],
Cell[42605, 1089, 499, 13, 258, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[43141, 1107, 450, 11, 55, "Input"],
Cell[43594, 1120, 351, 9, 249, "Output"]
}, Open  ]],
Cell[43960, 1132, 2397, 71, 143, "Input"],
Cell[CellGroupData[{
Cell[46382, 1207, 74, 1, 32, "Input"],
Cell[46459, 1210, 207, 5, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[46703, 1220, 201, 5, 32, "Input"],
Cell[46907, 1227, 985, 32, 80, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[47929, 1264, 119, 2, 32, "Input"],
Cell[48051, 1268, 87, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[48175, 1274, 1826, 49, 143, "Input"],
Cell[50004, 1325, 7244, 125, 71, 1041, 22, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[57285, 1455, 198, 5, 32, "Input"],
Cell[57486, 1462, 56, 0, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[57579, 1467, 168, 3, 32, "Input"],
Cell[57750, 1472, 57, 0, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[57844, 1477, 538, 13, 55, "Input"],
Cell[58385, 1492, 7042, 141, 253, 2380, 63, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[65464, 1638, 5412, 135, 407, "Input"],
Cell[70879, 1775, 87132, 1741, 1009, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[158048, 3521, 2841, 76, 187, "Input"],
Cell[160892, 3599, 58974, 1160, 1495, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[219903, 4764, 1028, 30, 77, "Input"],
Cell[220934, 4796, 54666, 1487, 1684, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[275649, 6289, 39, 0, 39, "Subsection"],
Cell[275691, 6291, 69, 1, 32, "Input"],
Cell[275763, 6294, 77, 1, 32, "Input"],
Cell[275843, 6297, 66, 1, 32, "Input"],
Cell[275912, 6300, 760, 22, 77, "Input"],
Cell[CellGroupData[{
Cell[276697, 6326, 154, 4, 32, "Input"],
Cell[276854, 6332, 77, 2, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[276968, 6339, 227, 7, 32, "Input"],
Cell[277198, 6348, 26811, 733, 1812, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[304046, 7086, 899, 27, 77, "Input"],
Cell[CellGroupData[{
Cell[304970, 7117, 47, 0, 26, "Print"],
Cell[305020, 7119, 47, 0, 26, "Print"],
Cell[305070, 7121, 47, 0, 26, "Print"],
Cell[305120, 7123, 47, 0, 26, "Print"],
Cell[305170, 7125, 47, 0, 26, "Print"],
Cell[305220, 7127, 47, 0, 26, "Print"],
Cell[305270, 7129, 47, 0, 26, "Print"],
Cell[305320, 7131, 47, 0, 26, "Print"],
Cell[305370, 7133, 47, 0, 26, "Print"],
Cell[305420, 7135, 47, 0, 26, "Print"],
Cell[305470, 7137, 47, 0, 26, "Print"],
Cell[305520, 7139, 47, 0, 26, "Print"],
Cell[305570, 7141, 47, 0, 26, "Print"],
Cell[305620, 7143, 47, 0, 26, "Print"],
Cell[305670, 7145, 47, 0, 26, "Print"],
Cell[305720, 7147, 47, 0, 26, "Print"],
Cell[305770, 7149, 47, 0, 26, "Print"],
Cell[305820, 7151, 47, 0, 26, "Print"],
Cell[305870, 7153, 47, 0, 26, "Print"],
Cell[305920, 7155, 47, 0, 26, "Print"],
Cell[305970, 7157, 47, 0, 26, "Print"],
Cell[306020, 7159, 47, 0, 26, "Print"],
Cell[306070, 7161, 47, 0, 26, "Print"],
Cell[306120, 7163, 47, 0, 26, "Print"],
Cell[306170, 7165, 47, 0, 26, "Print"],
Cell[306220, 7167, 47, 0, 26, "Print"],
Cell[306270, 7169, 47, 0, 26, "Print"],
Cell[306320, 7171, 47, 0, 26, "Print"],
Cell[306370, 7173, 47, 0, 26, "Print"],
Cell[306420, 7175, 47, 0, 26, "Print"],
Cell[306470, 7177, 47, 0, 26, "Print"],
Cell[306520, 7179, 47, 0, 26, "Print"]
}, Open  ]],
Cell[306582, 7182, 35, 0, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[306654, 7187, 87, 2, 32, "Input"],
Cell[306744, 7191, 30, 0, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[306811, 7196, 95, 2, 32, "Input"],
Cell[306909, 7200, 1051, 26, 132, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[307997, 7231, 545, 14, 55, "Input"],
Cell[308545, 7247, 376, 7, 46, "Message"],
Cell[308924, 7256, 243, 5, 33, "Message"],
Cell[309170, 7263, 57747, 1242, 4451, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[366954, 8510, 467, 12, 49, "Input"],
Cell[367424, 8524, 376, 7, 46, "Message"],
Cell[367803, 8533, 305, 6, 33, "Message"],
Cell[368111, 8541, 243, 5, 33, "Message"],
Cell[368357, 8548, 53678, 1212, 4464, "Output"]
}, Closed]],
Cell[422050, 9763, 46, 0, 28, "Text"],
Cell[CellGroupData[{
Cell[422121, 9767, 669, 22, 32, "Input"],
Cell[422793, 9791, 8394, 130, 571, "Output"]
}, Closed]],
Cell[431202, 9924, 114, 3, 28, "Text"],
Cell[CellGroupData[{
Cell[431341, 9931, 2175, 59, 121, "Input"],
Cell[433519, 9992, 115, 3, 31, "Output"]
}, Open  ]],
Cell[433649, 9998, 108, 2, 32, "Input"],
Cell[433760, 10002, 69, 1, 32, "Input"],
Cell[433832, 10005, 1016, 34, 99, "Input"],
Cell[434851, 10041, 34, 0, 31, "Text"],
Cell[CellGroupData[{
Cell[434910, 10045, 101, 2, 32, "Input"],
Cell[435014, 10049, 115, 3, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[435166, 10057, 68, 1, 32, "Input"],
Cell[435237, 10060, 79, 2, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[435353, 10067, 96, 2, 32, "Input"],
Cell[435452, 10071, 31, 0, 31, "Output"]
}, Open  ]],
Cell[435498, 10074, 88, 2, 31, "Text"],
Cell[CellGroupData[{
Cell[435611, 10080, 813, 23, 77, "Input"],
Cell[436427, 10105, 48, 0, 31, "Output"]
}, Open  ]],
Cell[436490, 10108, 823, 23, 77, "Input"],
Cell[437316, 10133, 75, 0, 31, "Text"],
Cell[437394, 10135, 320, 8, 55, "Input"],
Cell[437717, 10145, 222, 5, 32, "Input"],
Cell[CellGroupData[{
Cell[437964, 10154, 556, 18, 55, "Input"],
Cell[438523, 10174, 30, 0, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[438590, 10179, 62, 1, 32, "Input"],
Cell[438655, 10182, 193475, 5132, 17672, "Output"]
}, Open  ]]
}, Closed]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)