Permalink
Fetching contributors…
Cannot retrieve contributors at this time
587 lines (546 sloc) 15.6 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[ 15746, 576]
NotebookOptionsPosition[ 14257, 518]
NotebookOutlinePosition[ 14613, 534]
CellTagsIndexPosition[ 14570, 531]
WindowFrame->Normal
ContainsDynamic->False*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
RowBox[{"<<", "\"\<~/log/junk.out\>\""}]], "Input"],
Cell[CellGroupData[{
Cell[BoxData["correct"], "Input"],
Cell[BoxData["133325"], "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"Apply", "[",
RowBox[{"Plus", ",",
RowBox[{"Map", "[",
RowBox[{
RowBox[{
RowBox[{"Length", "[",
RowBox[{"#", "[",
RowBox[{"[", "2", "]"}], "]"}], "]"}], "&"}], ",", "eventually"}],
"]"}]}], "]"}], ",",
RowBox[{"Apply", "[",
RowBox[{"Plus", ",",
RowBox[{"Map", "[",
RowBox[{
RowBox[{
RowBox[{"Length", "[",
RowBox[{"#", "[",
RowBox[{"[", "2", "]"}], "]"}], "]"}], "&"}], ",", "notcorrected"}],
"]"}]}], "]"}]}], "}"}]], "Input"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"30660", ",", "27338"}], "}"}]], "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"(",
RowBox[{"30660.", "+", "27338."}], ")"}], "/",
RowBox[{"(",
RowBox[{"133325.", "+", "30660.", "+", "27338."}], ")"}]}]], "Input"],
Cell[BoxData["0.3031418073101509`"], "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Map", "[",
RowBox[{
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"#", "[",
RowBox[{"[", "1", "]"}], "]"}], ",",
RowBox[{"Length", "[",
RowBox[{"#", "[",
RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "}"}], "&"}], ",",
"eventually"}], "]"}]], "Input"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "12134"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1", ",", "12803"}], "}"}], ",",
RowBox[{"{",
RowBox[{"2", ",", "1908"}], "}"}], ",",
RowBox[{"{",
RowBox[{"3", ",", "1170"}], "}"}], ",",
RowBox[{"{",
RowBox[{"4", ",", "1091"}], "}"}], ",",
RowBox[{"{",
RowBox[{"5", ",", "761"}], "}"}], ",",
RowBox[{"{",
RowBox[{"6", ",", "346"}], "}"}], ",",
RowBox[{"{",
RowBox[{"7", ",", "185"}], "}"}], ",",
RowBox[{"{",
RowBox[{"8", ",", "109"}], "}"}], ",",
RowBox[{"{",
RowBox[{"9", ",", "70"}], "}"}], ",",
RowBox[{"{",
RowBox[{"10", ",", "42"}], "}"}], ",",
RowBox[{"{",
RowBox[{"11", ",", "19"}], "}"}], ",",
RowBox[{"{",
RowBox[{"12", ",", "11"}], "}"}], ",",
RowBox[{"{",
RowBox[{"13", ",", "6"}], "}"}], ",",
RowBox[{"{",
RowBox[{"14", ",", "2"}], "}"}], ",",
RowBox[{"{",
RowBox[{"15", ",", "2"}], "}"}], ",",
RowBox[{"{",
RowBox[{"20", ",", "1"}], "}"}]}], "}"}]], "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Map", "[",
RowBox[{
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"#", "[",
RowBox[{"[", "1", "]"}], "]"}], ",",
RowBox[{"Length", "[",
RowBox[{"#", "[",
RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "}"}], "&"}], ",",
"notcorrected"}], "]"}]], "Input"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "15009"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1", ",", "8900"}], "}"}], ",",
RowBox[{"{",
RowBox[{"2", ",", "1642"}], "}"}], ",",
RowBox[{"{",
RowBox[{"3", ",", "721"}], "}"}], ",",
RowBox[{"{",
RowBox[{"4", ",", "467"}], "}"}], ",",
RowBox[{"{",
RowBox[{"5", ",", "263"}], "}"}], ",",
RowBox[{"{",
RowBox[{"6", ",", "138"}], "}"}], ",",
RowBox[{"{",
RowBox[{"7", ",", "77"}], "}"}], ",",
RowBox[{"{",
RowBox[{"8", ",", "61"}], "}"}], ",",
RowBox[{"{",
RowBox[{"9", ",", "20"}], "}"}], ",",
RowBox[{"{",
RowBox[{"10", ",", "18"}], "}"}], ",",
RowBox[{"{",
RowBox[{"11", ",", "12"}], "}"}], ",",
RowBox[{"{",
RowBox[{"12", ",", "2"}], "}"}], ",",
RowBox[{"{",
RowBox[{"13", ",", "4"}], "}"}], ",",
RowBox[{"{",
RowBox[{"14", ",", "2"}], "}"}], ",",
RowBox[{"{",
RowBox[{"15", ",", "1"}], "}"}], ",",
RowBox[{"{",
RowBox[{"18", ",", "1"}], "}"}]}], "}"}]], "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Map", "[",
RowBox[{
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"#", "[",
RowBox[{"[", "1", "]"}], "]"}], ",",
RowBox[{"Length", "[",
RowBox[{"Select", "[",
RowBox[{
RowBox[{"#", "[",
RowBox[{"[", "2", "]"}], "]"}], ",",
RowBox[{
RowBox[{"(",
RowBox[{"#", ">", "10"}], ")"}], "&"}]}], "]"}], "]"}]}], "}"}],
"&"}], ",", "eventually"}], "]"}]], "Input"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "5763"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1", ",", "7621"}], "}"}], ",",
RowBox[{"{",
RowBox[{"2", ",", "1788"}], "}"}], ",",
RowBox[{"{",
RowBox[{"3", ",", "1144"}], "}"}], ",",
RowBox[{"{",
RowBox[{"4", ",", "1068"}], "}"}], ",",
RowBox[{"{",
RowBox[{"5", ",", "760"}], "}"}], ",",
RowBox[{"{",
RowBox[{"6", ",", "346"}], "}"}], ",",
RowBox[{"{",
RowBox[{"7", ",", "185"}], "}"}], ",",
RowBox[{"{",
RowBox[{"8", ",", "109"}], "}"}], ",",
RowBox[{"{",
RowBox[{"9", ",", "70"}], "}"}], ",",
RowBox[{"{",
RowBox[{"10", ",", "42"}], "}"}], ",",
RowBox[{"{",
RowBox[{"11", ",", "19"}], "}"}], ",",
RowBox[{"{",
RowBox[{"12", ",", "11"}], "}"}], ",",
RowBox[{"{",
RowBox[{"13", ",", "6"}], "}"}], ",",
RowBox[{"{",
RowBox[{"14", ",", "2"}], "}"}], ",",
RowBox[{"{",
RowBox[{"15", ",", "2"}], "}"}], ",",
RowBox[{"{",
RowBox[{"20", ",", "1"}], "}"}]}], "}"}]], "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Map", "[",
RowBox[{
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"#", "[",
RowBox[{"[", "1", "]"}], "]"}], ",",
RowBox[{"Length", "[",
RowBox[{"Select", "[",
RowBox[{
RowBox[{"#", "[",
RowBox[{"[", "2", "]"}], "]"}], ",",
RowBox[{
RowBox[{"(",
RowBox[{"#", ">", "10"}], ")"}], "&"}]}], "]"}], "]"}]}], "}"}],
"&"}], ",", "notcorrected"}], "]"}]], "Input"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "6168"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1", ",", "6130"}], "}"}], ",",
RowBox[{"{",
RowBox[{"2", ",", "1522"}], "}"}], ",",
RowBox[{"{",
RowBox[{"3", ",", "697"}], "}"}], ",",
RowBox[{"{",
RowBox[{"4", ",", "463"}], "}"}], ",",
RowBox[{"{",
RowBox[{"5", ",", "262"}], "}"}], ",",
RowBox[{"{",
RowBox[{"6", ",", "138"}], "}"}], ",",
RowBox[{"{",
RowBox[{"7", ",", "76"}], "}"}], ",",
RowBox[{"{",
RowBox[{"8", ",", "61"}], "}"}], ",",
RowBox[{"{",
RowBox[{"9", ",", "20"}], "}"}], ",",
RowBox[{"{",
RowBox[{"10", ",", "18"}], "}"}], ",",
RowBox[{"{",
RowBox[{"11", ",", "12"}], "}"}], ",",
RowBox[{"{",
RowBox[{"12", ",", "2"}], "}"}], ",",
RowBox[{"{",
RowBox[{"13", ",", "4"}], "}"}], ",",
RowBox[{"{",
RowBox[{"14", ",", "2"}], "}"}], ",",
RowBox[{"{",
RowBox[{"15", ",", "1"}], "}"}], ",",
RowBox[{"{",
RowBox[{"18", ",", "1"}], "}"}]}], "}"}]], "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Map", "[",
RowBox[{
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"#", "[",
RowBox[{"[", "1", "]"}], "]"}], ",",
RowBox[{"1.0", " ",
RowBox[{"Median", "[",
RowBox[{"#", "[",
RowBox[{"[", "2", "]"}], "]"}], "]"}]}]}], "}"}], "&"}], ",",
"eventually"}], "]"}]], "Input"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "10.`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1", ",", "13.`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"2", ",", "27.`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"3", ",", "29.`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"4", ",", "31.`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"5", ",", "42.`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"6", ",", "54.5`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"7", ",", "70.`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"8", ",", "88.`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"9", ",", "103.5`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"10", ",", "105.`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"11", ",", "126.`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"12", ",", "111.`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"13", ",", "146.`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"14", ",", "973.5`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"15", ",", "235.`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"20", ",", "167.`"}], "}"}]}], "}"}]], "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Map", "[",
RowBox[{
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"#", "[",
RowBox[{"[", "1", "]"}], "]"}], ",",
RowBox[{"1.0", " ",
RowBox[{"Median", "[",
RowBox[{"#", "[",
RowBox[{"[", "2", "]"}], "]"}], "]"}]}]}], "}"}], "&"}], ",",
"notcorrected"}], "]"}]], "Input"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "8.`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1", ",", "16.`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"2", ",", "29.`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"3", ",", "37.`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"4", ",", "43.`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"5", ",", "50.`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"6", ",", "71.`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"7", ",", "91.`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"8", ",", "110.`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"9", ",", "96.`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"10", ",", "118.`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"11", ",", "167.5`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"12", ",", "155.`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"13", ",", "156.5`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"14", ",", "265.5`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"15", ",", "135.`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"18", ",", "213.`"}], "}"}]}], "}"}]], "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Map", "[",
RowBox[{
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"#", "[",
RowBox[{"[", "1", "]"}], "]"}], ",",
RowBox[{"1.0", " ",
RowBox[{"Mean", "[",
RowBox[{"#", "[",
RowBox[{"[", "2", "]"}], "]"}], "]"}]}]}], "}"}], "&"}], ",",
"eventually"}], "]"}]], "Input"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "32.265699686830395`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1", ",", "28.594782472857926`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"2", ",", "66.23480083857443`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"3", ",", "50.84615384615385`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"4", ",", "55.99175068744271`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"5", ",", "63.960578186596585`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"6", ",", "66.5`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"7", ",", "108.77837837837838`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"8", ",", "103.93577981651376`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"9", ",", "126.92857142857143`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"10", ",", "137.35714285714286`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"11", ",", "139.26315789473685`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"12", ",", "607.5454545454545`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"13", ",", "152.5`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"14", ",", "973.5`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"15", ",", "235.`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"20", ",", "167.`"}], "}"}]}], "}"}]], "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Map", "[",
RowBox[{
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"#", "[",
RowBox[{"[", "1", "]"}], "]"}], ",",
RowBox[{"1.0", " ",
RowBox[{"Mean", "[",
RowBox[{"#", "[",
RowBox[{"[", "2", "]"}], "]"}], "]"}]}]}], "}"}], "&"}], ",",
"notcorrected"}], "]"}]], "Input"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "21.167832633753083`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1", ",", "33.62842696629213`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"2", ",", "50.28258221680877`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"3", ",", "66.2260748959778`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"4", ",", "83.63383297644539`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"5", ",", "86.84410646387833`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"6", ",", "96.20289855072464`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"7", ",", "123.84415584415585`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"8", ",", "146.88524590163934`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"9", ",", "152.75`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"10", ",", "161.61111111111111`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"11", ",", "497.9166666666667`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"12", ",", "155.`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"13", ",", "156.75`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"14", ",", "265.5`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"15", ",", "135.`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"18", ",", "213.`"}], "}"}]}], "}"}]], "Output"]
}, Open ]]
},
WindowSize->{520, 740},
WindowMargins->{{Automatic, 165}, {Automatic, 53}},
ShowSelection->True,
FrontEndVersion->"6.0 for Linux x86 (32-bit) (April 20, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)
(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[568, 21, 66, 1, 32, "Input"],
Cell[CellGroupData[{
Cell[659, 26, 33, 0, 32, "Input"],
Cell[695, 28, 33, 0, 31, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[765, 33, 604, 20, 55, "Input"],
Cell[1372, 55, 81, 2, 31, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[1490, 62, 179, 5, 32, "Input"],
Cell[1672, 69, 46, 0, 31, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[1755, 74, 321, 11, 32, "Input"],
Cell[2079, 87, 1092, 36, 92, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[3208, 128, 323, 11, 32, "Input"],
Cell[3534, 141, 1086, 36, 92, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[4657, 182, 482, 16, 55, "Input"],
Cell[5142, 200, 1090, 36, 92, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[6269, 241, 484, 16, 55, "Input"],
Cell[6756, 259, 1085, 36, 92, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[7878, 300, 353, 12, 32, "Input"],
Cell[8234, 314, 1125, 36, 92, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[9396, 355, 355, 12, 32, "Input"],
Cell[9754, 369, 1124, 36, 92, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[10915, 410, 351, 12, 32, "Input"],
Cell[11269, 424, 1297, 36, 132, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[12603, 465, 353, 12, 32, "Input"],
Cell[12959, 479, 1282, 36, 132, "Output"]
}, Open ]]
}
]
*)
(* End of internal cache information *)