-
Notifications
You must be signed in to change notification settings - Fork 5
/
hausmann-spring-2007.nb
15596 lines (15361 loc) · 626 KB
/
hausmann-spring-2007.nb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
(* 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[{