Permalink
Fetching contributors…
Cannot retrieve contributors at this time
15597 lines (15361 sloc) 626 KB
(* 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
jy8