(* 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[ 72194, 1569] NotebookOptionsPosition[ 69923, 1486] NotebookOutlinePosition[ 70279, 1502] CellTagsIndexPosition[ 70236, 1499] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["BMG", "Section", CellChangeTimes->{{3.417522560038766*^9, 3.4175225606163673`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"BMG", "[", RowBox[{"m_", ",", " ", "s_"}], "]"}], " ", ":=", " ", RowBox[{ RowBox[{"s", "*", RowBox[{"Sqrt", "[", RowBox[{"-", RowBox[{"Log", "[", RowBox[{"RandomReal", "[", "]"}], "]"}]}], "]"}], " ", "*", " ", RowBox[{"Sin", "[", RowBox[{"2", "Pi", "*", " ", RowBox[{"RandomReal", "[", "]"}]}], "]"}]}], "+", "m"}]}]], "Input", CellChangeTimes->{{3.4175208225218763`*^9, 3.417520876796702*^9}, { 3.4175209124461327`*^9, 3.417520960447908*^9}, {3.417521850311019*^9, 3.417521909030304*^9}, {3.41752195485073*^9, 3.417521966633336*^9}, { 3.417522004650577*^9, 3.417522028839345*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a", " ", "=", RowBox[{"2", "Pi", "*", " ", RowBox[{"RandomReal", "[", "]"}]}]}]], "Input", CellChangeTimes->{{3.41752122117735*^9, 3.41752124096065*^9}, { 3.4175212785164223`*^9, 3.4175212842074347`*^9}}], Cell[BoxData["3.8736910656417116`"], "Output", CellChangeTimes->{ 3.417521307221738*^9, {3.4175218038346653`*^9, 3.417521809251131*^9}, 3.417522178396367*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"rand", " ", "=", " ", RowBox[{"RandomReal", "[", "]"}]}]], "Input", CellChangeTimes->{{3.41752128640659*^9, 3.417521294553935*^9}}], Cell[BoxData["0.6887305779860018`"], "Output", CellChangeTimes->{{3.417521295074836*^9, 3.417521307302134*^9}, { 3.4175218039116907`*^9, 3.417521809328548*^9}, 3.417522178433556*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"b", " ", "=", " ", RowBox[{"s", "*", RowBox[{"Sqrt", "[", RowBox[{"-", RowBox[{"Log", "[", "rand", "]"}]}], "]"}]}]}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.4175217523289948`*^9, 3.417521787806057*^9}, { 3.417521838734675*^9, 3.41752184033224*^9}, 3.417522166769209*^9}], Cell[BoxData[ RowBox[{"0.610659576068373`", " ", "s"}]], "Output", CellChangeTimes->{{3.4175217895251913`*^9, 3.4175218093684387`*^9}, 3.4175218440055447`*^9, {3.417522168166934*^9, 3.417522178473463*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BMG", "[", RowBox[{"0", ",", "1"}], "]"}]], "Input", CellChangeTimes->{{3.417522037031288*^9, 3.4175220448184357`*^9}}], Cell[BoxData["1.2022668545309978`"], "Output", CellChangeTimes->{3.417522046063641*^9, 3.417522178514592*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"tbl", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"BMG", "[", RowBox[{"0", ",", "1"}], "]"}], ",", RowBox[{"{", "10000", "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.41752204988978*^9, 3.417522106887431*^9}, 3.4175221856658163`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Histogram", "[", "tbl", "]"}]], "Input", CellChangeTimes->{{3.4175221129870977`*^9, 3.4175221189647217`*^9}}], Cell[BoxData[ GraphicsBox[{ {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-2.8, 0}, {-2.75, 1}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-2.75, 0}, {-2.7, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-2.7, 0}, {-2.6500000000000004`, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-2.6500000000000004`, 0}, {-2.6000000000000005`, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-2.6000000000000005`, 0}, {-2.5500000000000007`, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-2.5500000000000007`, 0}, {-2.500000000000001, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-2.500000000000001, 0}, {-2.450000000000001, 1}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-2.450000000000001, 0}, {-2.4000000000000012`, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-2.4000000000000012`, 0}, {-2.3500000000000014`, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-2.3500000000000014`, 0}, {-2.3000000000000016`, 1}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-2.3000000000000016`, 0}, {-2.2500000000000018`, 3}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-2.2500000000000018`, 0}, {-2.200000000000002, 1}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-2.200000000000002, 0}, {-2.150000000000002, 3}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-2.150000000000002, 0}, {-2.1000000000000023`, 5}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-2.1000000000000023`, 0}, {-2.0500000000000025`, 2}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-2.0500000000000025`, 0}, {-2.0000000000000027`, 5}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-2.0000000000000027`, 0}, {-1.9500000000000028`, 5}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-1.9500000000000028`, 0}, {-1.900000000000003, 10}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-1.900000000000003, 0}, {-1.8500000000000032`, 8}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-1.8500000000000032`, 0}, {-1.8000000000000034`, 16}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-1.8000000000000034`, 0}, {-1.7500000000000036`, 18}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-1.7500000000000036`, 0}, {-1.7000000000000037`, 12}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-1.7000000000000037`, 0}, {-1.650000000000004, 15}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-1.650000000000004, 0}, {-1.600000000000004, 21}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-1.600000000000004, 0}, {-1.5500000000000043`, 26}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-1.5500000000000043`, 0}, {-1.5000000000000044`, 28}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-1.5000000000000044`, 0}, {-1.4500000000000046`, 31}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-1.4500000000000046`, 0}, {-1.4000000000000048`, 34}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-1.4000000000000048`, 0}, {-1.350000000000005, 54}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-1.350000000000005, 0}, {-1.3000000000000052`, 60}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-1.3000000000000052`, 0}, {-1.2500000000000053`, 58}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-1.2500000000000053`, 0}, {-1.2000000000000055`, 82}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-1.2000000000000055`, 0}, {-1.1500000000000057`, 67}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-1.1500000000000057`, 0}, {-1.1000000000000059`, 87}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-1.1000000000000059`, 0}, {-1.050000000000006, 105}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-1.050000000000006, 0}, {-1.0000000000000062`, 99}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-1.0000000000000062`, 0}, {-0.9500000000000064, 116}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-0.9500000000000064, 0}, {-0.9000000000000066, 121}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-0.9000000000000066, 0}, {-0.8500000000000068, 118}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-0.8500000000000068, 0}, {-0.8000000000000069, 154}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-0.8000000000000069, 0}, {-0.7500000000000071, 132}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-0.7500000000000071, 0}, {-0.7000000000000073, 155}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-0.7000000000000073, 0}, {-0.6500000000000075, 178}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-0.6500000000000075, 0}, {-0.6000000000000076, 180}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-0.6000000000000076, 0}, {-0.5500000000000078, 198}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-0.5500000000000078, 0}, {-0.500000000000008, 217}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-0.500000000000008, 0}, {-0.45000000000000817`, 243}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-0.45000000000000817`, 0}, {-0.40000000000000835`, 251}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-0.40000000000000835`, 0}, {-0.3500000000000085, 248}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-0.3500000000000085, 0}, {-0.3000000000000087, 236}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-0.3000000000000087, 0}, {-0.2500000000000089, 257}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-0.2500000000000089, 0}, {-0.20000000000000906`, 263}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-0.20000000000000906`, 0}, {-0.15000000000000924`, 305}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-0.15000000000000924`, 0}, {-0.10000000000000941`, 278}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-0.10000000000000941`, 0}, {-0.05000000000000959, 283}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-0.05000000000000959, 0}, {-9.769962616701378*^-15, 290}]}, \ {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-9.769962616701378*^-15, 0}, {0.04999999999999005, 277}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0.04999999999999005, 0}, {0.09999999999998987, 256}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0.09999999999998987, 0}, {0.1499999999999897, 304}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0.1499999999999897, 0}, {0.19999999999998952`, 281}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0.19999999999998952`, 0}, {0.24999999999998934`, 276}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0.24999999999998934`, 0}, {0.29999999999998916`, 255}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0.29999999999998916`, 0}, {0.349999999999989, 238}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0.349999999999989, 0}, {0.3999999999999888, 255}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0.3999999999999888, 0}, {0.44999999999998863`, 243}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0.44999999999998863`, 0}, {0.49999999999998845`, 224}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0.49999999999998845`, 0}, {0.5499999999999883, 219}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0.5499999999999883, 0}, {0.5999999999999881, 210}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0.5999999999999881, 0}, {0.6499999999999879, 181}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0.6499999999999879, 0}, {0.6999999999999877, 197}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0.6999999999999877, 0}, {0.7499999999999876, 167}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0.7499999999999876, 0}, {0.7999999999999874, 135}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0.7999999999999874, 0}, {0.8499999999999872, 143}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0.8499999999999872, 0}, {0.899999999999987, 118}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0.899999999999987, 0}, {0.9499999999999869, 105}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0.9499999999999869, 0}, {0.9999999999999867, 94}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0.9999999999999867, 0}, {1.0499999999999865`, 97}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{1.0499999999999865`, 0}, {1.0999999999999863`, 97}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{1.0999999999999863`, 0}, {1.1499999999999861`, 59}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{1.1499999999999861`, 0}, {1.199999999999986, 75}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{1.199999999999986, 0}, {1.2499999999999858`, 55}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{1.2499999999999858`, 0}, {1.2999999999999856`, 54}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{1.2999999999999856`, 0}, {1.3499999999999854`, 48}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{1.3499999999999854`, 0}, {1.3999999999999853`, 36}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{1.3999999999999853`, 0}, {1.449999999999985, 30}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{1.449999999999985, 0}, {1.499999999999985, 31}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{1.499999999999985, 0}, {1.5499999999999847`, 33}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{1.5499999999999847`, 0}, {1.5999999999999845`, 23}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{1.5999999999999845`, 0}, {1.6499999999999844`, 23}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{1.6499999999999844`, 0}, {1.6999999999999842`, 19}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{1.6999999999999842`, 0}, {1.749999999999984, 12}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{1.749999999999984, 0}, {1.7999999999999838`, 9}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{1.7999999999999838`, 0}, {1.8499999999999837`, 4}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{1.8499999999999837`, 0}, {1.8999999999999835`, 7}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{1.8999999999999835`, 0}, {1.9499999999999833`, 6}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{1.9499999999999833`, 0}, {1.9999999999999831`, 3}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{1.9999999999999831`, 0}, {2.049999999999983, 2}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{2.049999999999983, 0}, {2.0999999999999828`, 5}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{2.0999999999999828`, 0}, {2.1499999999999826`, 3}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{2.1499999999999826`, 0}, {2.1999999999999824`, 3}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{2.1999999999999824`, 0}, {2.2499999999999822`, 2}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{2.2499999999999822`, 0}, {2.299999999999982, 1}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{2.299999999999982, 0}, {2.349999999999982, 2}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{2.349999999999982, 0}, {2.3999999999999817`, 1}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{2.3999999999999817`, 0}, {2.4499999999999815`, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{2.4499999999999815`, 0}, {2.4999999999999813`, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{2.4999999999999813`, 0}, {2.549999999999981, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{2.549999999999981, 0}, {2.599999999999981, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{2.599999999999981, 0}, {2.649999999999981, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{2.649999999999981, 0}, {2.6999999999999806`, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{2.6999999999999806`, 0}, {2.7499999999999805`, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{2.7499999999999805`, 0}, {2.7999999999999803`, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{2.7999999999999803`, 0}, {2.84999999999998, 1}]}}, AlignmentPoint->Center, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->None, AxesOrigin->{-2.8, 0}, AxesStyle->{}, Background->None, BaseStyle->{}, BaselinePosition->Automatic, ColorOutput->Automatic, ContentSelectable->Automatic, DisplayFunction:>$DisplayFunction, Epilog->{}, FormatType:>TraditionalForm, Frame->False, FrameLabel->None, FrameStyle->{}, FrameTicks->Automatic, FrameTicksStyle->{}, GridLines->None, GridLinesStyle->{}, ImageMargins->0., ImagePadding->All, ImageSize->Automatic, LabelStyle->{}, Method->Automatic, PlotLabel->None, PlotRange->{{-2.8, 2.84999999999998}, All}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}, PlotRegion->Automatic, PreserveImageOptions->Automatic, Prolog->{}, RotateLabel->True, Ticks->{{{-2., FormBox[ RowBox[{"-", "2"}], TraditionalForm]}, {-1., FormBox[ RowBox[{"-", "1"}], TraditionalForm]}, {0., FormBox["0", TraditionalForm]}, {1., FormBox["1", TraditionalForm]}, {2., FormBox["2", TraditionalForm]}}, Automatic}, TicksStyle->{}]], "Output", CellChangeTimes->{ 3.417522119694662*^9, {3.417522178698783*^9, 3.417522196452734*^9}}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"?", "Random"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.4175222262965927`*^9, 3.417522230976879*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Mathematica", "Section", CellChangeTimes->{{3.417522578091447*^9, 3.4175225809129667`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"randNormal", "=", RowBox[{"NormalDistribution", "[", RowBox[{"0", ",", "1"}], "]"}]}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData["randNormal"], "Input", CellChangeTimes->{{3.417522316772213*^9, 3.417522319981649*^9}}], Cell[BoxData[ RowBox[{"NormalDistribution", "[", RowBox[{"0", ",", "1"}], "]"}]], "Output", CellChangeTimes->{3.41752232093637*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Random", "[", "randNormal", "]"}]], "Input", CellChangeTimes->{{3.417522326533551*^9, 3.4175223458541327`*^9}}], Cell[BoxData[ RowBox[{"-", "0.061868785125958996`"}]], "Output", CellChangeTimes->{{3.4175223466785507`*^9, 3.417522359469199*^9}}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"tbl", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Random", "[", "randNormal", "]"}], ",", " ", RowBox[{"{", "10000", "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.417522600457983*^9, 3.417522651244959*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Histogram", "[", "tbl", "]"}]], "Input", CellChangeTimes->{{3.4175221129870977`*^9, 3.4175221189647217`*^9}}], Cell[BoxData[ GraphicsBox[{ {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-3.9000000000000004`, 0}, {-3.8000000000000007`, 1}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-3.8, 0}, {-3.7, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-3.7, 0}, {-3.6000000000000005`, 1}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-3.5999999999999996`, 0}, {-3.5, 1}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-3.5, 0}, {-3.4000000000000004`, 1}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-3.3999999999999995`, 0}, {-3.3, 2}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-3.3, 0}, {-3.2, 2}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-3.1999999999999993`, 0}, {-3.0999999999999996`, 5}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-3.0999999999999996`, 0}, {-3., 3}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-2.999999999999999, 0}, {-2.8999999999999995`, 4}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-2.8999999999999995`, 0}, {-2.8, 8}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-2.799999999999999, 0}, {-2.6999999999999993`, 9}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-2.6999999999999993`, 0}, {-2.5999999999999996`, 15}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-2.5999999999999988`, 0}, {-2.499999999999999, 21}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-2.499999999999999, 0}, {-2.3999999999999995`, 15}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-2.3999999999999986`, 0}, {-2.299999999999999, 16}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-2.299999999999999, 0}, {-2.1999999999999993`, 30}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-2.1999999999999984`, 0}, {-2.0999999999999988`, 33}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-2.0999999999999988`, 0}, {-1.999999999999999, 49}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-1.9999999999999987`, 0}, {-1.8999999999999986`, 50}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-1.8999999999999986`, 0}, {-1.7999999999999985`, 71}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-1.7999999999999985`, 0}, {-1.6999999999999984`, 76}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-1.6999999999999984`, 0}, {-1.5999999999999983`, 108}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-1.5999999999999983`, 0}, {-1.4999999999999982`, 125}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-1.4999999999999982`, 0}, {-1.3999999999999981`, 149}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-1.3999999999999981`, 0}, {-1.299999999999998, 168}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-1.299999999999998, 0}, {-1.199999999999998, 154}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-1.199999999999998, 0}, {-1.0999999999999979`, 216}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-1.0999999999999979`, 0}, {-0.9999999999999978, 245}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-0.9999999999999978, 0}, {-0.8999999999999977, 241}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-0.8999999999999977, 0}, {-0.7999999999999976, 287}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-0.7999999999999976, 0}, {-0.6999999999999975, 304}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-0.6999999999999975, 0}, {-0.5999999999999974, 321}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-0.5999999999999974, 0}, {-0.49999999999999734`, 361}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-0.49999999999999734`, 0}, {-0.39999999999999725`, 375}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-0.39999999999999725`, 0}, {-0.29999999999999716`, 369}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-0.29999999999999716`, 0}, {-0.19999999999999707`, 401}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-0.19999999999999707`, 0}, {-0.09999999999999698, 398}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-0.09999999999999698, 0}, \ {3.1086244689504383`*^-15, 392}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{3.1086244689504383`*^-15, 0}, {0.1000000000000032, 422}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0.1000000000000032, 0}, {0.20000000000000284`, 386}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0.20000000000000284`, 0}, {0.3000000000000034, 362}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0.3000000000000034, 0}, {0.4000000000000039, 379}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0.4000000000000039, 0}, {0.5000000000000036, 328}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0.5000000000000036, 0}, {0.6000000000000032, 354}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0.6000000000000032, 0}, {0.7000000000000037, 309}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0.7000000000000037, 0}, {0.8000000000000043, 287}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0.8000000000000043, 0}, {0.9000000000000039, 270}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0.9000000000000039, 0}, {1.0000000000000036`, 236}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{1.0000000000000036`, 0}, {1.100000000000004, 258}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{1.100000000000004, 0}, {1.2000000000000046`, 223}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{1.2000000000000046`, 0}, {1.3000000000000043`, 187}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{1.3000000000000043`, 0}, {1.400000000000004, 188}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{1.400000000000004, 0}, {1.5000000000000044`, 137}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{1.5000000000000044`, 0}, {1.600000000000005, 134}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{1.600000000000005, 0}, {1.7000000000000046`, 94}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{1.7000000000000046`, 0}, {1.8000000000000043`, 79}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{1.8000000000000043`, 0}, {1.9000000000000048`, 58}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{1.9000000000000048`, 0}, {2.0000000000000053`, 62}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{2.0000000000000053`, 0}, {2.100000000000005, 46}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{2.100000000000005, 0}, {2.2000000000000046`, 30}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{2.2000000000000046`, 0}, {2.300000000000005, 41}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{2.300000000000005, 0}, {2.4000000000000057`, 30}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{2.4000000000000057`, 0}, {2.5000000000000053`, 19}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{2.5000000000000053`, 0}, {2.600000000000005, 14}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{2.600000000000005, 0}, {2.7000000000000055`, 10}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{2.7000000000000055`, 0}, {2.800000000000006, 6}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{2.800000000000006, 0}, {2.9000000000000057`, 5}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{2.9000000000000057`, 0}, {3.0000000000000053`, 3}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{3.0000000000000053`, 0}, {3.100000000000006, 7}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{3.100000000000006, 0}, {3.2000000000000064`, 2}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{3.2000000000000064`, 0}, {3.300000000000006, 3}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{3.300000000000006, 0}, {3.4000000000000057`, 1}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{3.4000000000000057`, 0}, {3.500000000000006, 1}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{3.500000000000006, 0}, {3.6000000000000068`, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{3.6000000000000068`, 0}, {3.7000000000000064`, 1}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{3.7000000000000064`, 0}, {3.800000000000006, 1}]}}, AlignmentPoint->Center, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->None, AxesOrigin->{-3.9000000000000004`, 0}, AxesStyle->{}, Background->None, BaseStyle->{}, BaselinePosition->Automatic, ColorOutput->Automatic, ContentSelectable->Automatic, DisplayFunction:>$DisplayFunction, Epilog->{}, FormatType:>TraditionalForm, Frame->False, FrameLabel->None, FrameStyle->{}, FrameTicks->Automatic, FrameTicksStyle->{}, GridLines->None, GridLinesStyle->{}, ImageMargins->0., ImagePadding->All, ImageSize->Automatic, LabelStyle->{}, Method->Automatic, PlotLabel->None, PlotRange->{{-3.9000000000000004`, 3.800000000000006}, All}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}, PlotRegion->Automatic, PreserveImageOptions->Automatic, Prolog->{}, RotateLabel->True, Ticks->{{{-4., FormBox[ RowBox[{"-", "4"}], TraditionalForm]}, {-2., FormBox[ RowBox[{"-", "2"}], TraditionalForm]}, {0., FormBox["0", TraditionalForm]}, {2., FormBox["2", TraditionalForm]}}, Automatic}, TicksStyle->{}]], "Output", CellChangeTimes->{3.4175226652642603`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Exponential", "Section", CellChangeTimes->{{3.417523703187084*^9, 3.417523706455571*^9}}], Cell[BoxData[ RowBox[{" ", RowBox[{ RowBox[{ RowBox[{"tbl", " ", "=", " ", RowBox[{"Table", "[", " ", RowBox[{ RowBox[{ RowBox[{"Log", "[", RowBox[{"Random", "[", "]"}], "]"}], "/", RowBox[{"-", "2"}]}], ",", RowBox[{"{", "1000", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{ 3.417523712440536*^9, {3.417523798939361*^9, 3.4175238307165213`*^9}, { 3.4175241334866657`*^9, 3.417524157511507*^9}, {3.417524269965255*^9, 3.4175243307036247`*^9}, 3.4175243650168037`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Histogram", "[", "tbl", "]"}]], "Input", CellChangeTimes->{{3.417524337013091*^9, 3.417524342476858*^9}}], Cell[BoxData[ GraphicsBox[{ {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0., 0}, {0.1, 188}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0.10000000000000002`, 0}, {0.2, 155}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0.19999999999999998`, 0}, {0.30000000000000004`, 116}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0.30000000000000004`, 0}, {0.4, 99}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0.4, 0}, {0.5, 60}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0.5, 0}, {0.6000000000000001, 74}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0.6000000000000001, 0}, {0.7000000000000002, 52}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0.7, 0}, {0.8, 40}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0.8, 0}, {0.9000000000000001, 47}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0.8999999999999999, 0}, {1., 35}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{1., 0}, {1.1, 28}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{1.1, 0}, {1.2000000000000002`, 15}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{1.2000000000000002`, 0}, {1.2999999999999998`, 19}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{1.3, 0}, {1.4000000000000001`, 12}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{1.4000000000000004`, 0}, {1.5, 11}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{1.5, 0}, {1.6, 9}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{1.6, 0}, {1.7000000000000002`, 12}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{1.7000000000000002`, 0}, {1.7999999999999998`, 2}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{1.8, 0}, {1.9000000000000001`, 3}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{1.9000000000000004`, 0}, {2., 8}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{1.9999999999999998`, 0}, {2.0999999999999996`, 6}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{2.1000000000000005`, 0}, {2.2, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{2.2, 0}, {2.3, 1}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{2.3000000000000007`, 0}, {2.4000000000000004`, 1}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{2.4000000000000004`, 0}, {2.5, 2}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{2.5, 0}, {2.5999999999999996`, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{2.6000000000000005`, 0}, {2.7, 1}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{2.7, 0}, {2.8, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{2.8000000000000007`, 0}, {2.9000000000000004`, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{2.9000000000000004`, 0}, {3., 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{3., 0}, {3.0999999999999996`, 1}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{3.1000000000000005`, 0}, {3.2, 1}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{3.2, 0}, {3.3, 1}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{3.3000000000000007`, 0}, {3.4000000000000004`, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{3.4000000000000004`, 0}, {3.5, 1}]}}, AlignmentPoint->Center, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->None, AxesOrigin->{0., 0}, AxesStyle->{}, Background->None, BaseStyle->{}, BaselinePosition->Automatic, ColorOutput->Automatic, ContentSelectable->Automatic, DisplayFunction:>$DisplayFunction, Epilog->{}, FormatType:>TraditionalForm, Frame->False, FrameLabel->None, FrameStyle->{}, FrameTicks->Automatic, FrameTicksStyle->{}, GridLines->None, GridLinesStyle->{}, ImageMargins->0., ImagePadding->All, ImageSize->Automatic, LabelStyle->{}, Method->Automatic, PlotLabel->None, PlotRange->{{0., 3.5}, All}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}, PlotRegion->Automatic, PreserveImageOptions->Automatic, Prolog->{}, RotateLabel->True, Ticks->{{{0., FormBox["0", TraditionalForm]}, {0.5, FormBox["0.5`", TraditionalForm]}, {1., FormBox["1", TraditionalForm]}, {1.5, FormBox["1.5`", TraditionalForm]}, {2., FormBox["2", TraditionalForm]}, {2.5, FormBox["2.5`", TraditionalForm]}, {3., FormBox["3", TraditionalForm]}, {3.5, FormBox["3.5`", TraditionalForm]}}, Automatic}, TicksStyle->{}]], "Output", CellChangeTimes->{{3.417524343130001*^9, 3.41752436941938*^9}}] }, Open ]], Cell[BoxData[ RowBox[{" ", RowBox[{ RowBox[{ RowBox[{"tbl", " ", "=", " ", RowBox[{"Table", "[", " ", RowBox[{ RowBox[{ RowBox[{"Log", "[", RowBox[{"Random", "[", "]"}], "]"}], "/", "2"}], ",", RowBox[{"{", "1000", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{ 3.417523712440536*^9, {3.417523798939361*^9, 3.4175238307165213`*^9}, { 3.4175241334866657`*^9, 3.417524157511507*^9}, {3.417524269965255*^9, 3.4175243307036247`*^9}, {3.4175243650168037`*^9, 3.417524394281776*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Histogram", "[", "tbl", "]"}]], "Input", CellChangeTimes->{{3.417524337013091*^9, 3.417524342476858*^9}}], Cell[BoxData[ GraphicsBox[{ {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-3.7, 0}, {-3.6000000000000005`, 1}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-3.5999999999999996`, 0}, {-3.5, 1}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-3.5, 0}, {-3.4000000000000004`, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-3.3999999999999995`, 0}, {-3.3, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-3.3, 0}, {-3.2, 1}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-3.1999999999999993`, 0}, {-3.0999999999999996`, 1}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-3.0999999999999996`, 0}, {-3., 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-2.999999999999999, 0}, {-2.8999999999999995`, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-2.8999999999999995`, 0}, {-2.8, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-2.799999999999999, 0}, {-2.6999999999999993`, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-2.6999999999999993`, 0}, {-2.5999999999999996`, 2}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-2.5999999999999988`, 0}, {-2.499999999999999, 1}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-2.499999999999999, 0}, {-2.3999999999999995`, 4}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-2.3999999999999986`, 0}, {-2.299999999999999, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-2.299999999999999, 0}, {-2.1999999999999993`, 2}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-2.1999999999999984`, 0}, {-2.0999999999999988`, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-2.0999999999999988`, 0}, {-1.999999999999999, 8}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-1.9999999999999987`, 0}, {-1.8999999999999986`, 6}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-1.8999999999999986`, 0}, {-1.7999999999999985`, 8}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-1.7999999999999985`, 0}, {-1.6999999999999984`, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-1.6999999999999984`, 0}, {-1.5999999999999983`, 7}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-1.5999999999999983`, 0}, {-1.4999999999999982`, 6}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-1.4999999999999982`, 0}, {-1.3999999999999981`, 14}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-1.3999999999999981`, 0}, {-1.299999999999998, 9}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-1.299999999999998, 0}, {-1.199999999999998, 14}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-1.199999999999998, 0}, {-1.0999999999999979`, 13}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-1.0999999999999979`, 0}, {-0.9999999999999978, 28}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-0.9999999999999978, 0}, {-0.8999999999999977, 20}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-0.8999999999999977, 0}, {-0.7999999999999976, 36}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-0.7999999999999976, 0}, {-0.6999999999999975, 45}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-0.6999999999999975, 0}, {-0.5999999999999974, 49}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-0.5999999999999974, 0}, {-0.49999999999999734`, 61}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-0.49999999999999734`, 0}, {-0.39999999999999725`, 89}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-0.39999999999999725`, 0}, {-0.29999999999999716`, 103}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-0.29999999999999716`, 0}, {-0.19999999999999707`, 117}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-0.19999999999999707`, 0}, {-0.09999999999999698, 146}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{-0.09999999999999698, 0}, \ {3.1086244689504383`*^-15, 208}]}}, AlignmentPoint->Center, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->None, AxesOrigin->{-3.7, 0}, AxesStyle->{}, Background->None, BaseStyle->{}, BaselinePosition->Automatic, ColorOutput->Automatic, ContentSelectable->Automatic, DisplayFunction:>$DisplayFunction, Epilog->{}, FormatType:>TraditionalForm, Frame->False, FrameLabel->None, FrameStyle->{}, FrameTicks->Automatic, FrameTicksStyle->{}, GridLines->None, GridLinesStyle->{}, ImageMargins->0., ImagePadding->All, ImageSize->Automatic, LabelStyle->{}, Method->Automatic, PlotLabel->None, PlotRange->{{-3.7, 3.1086244689504383`*^-15}, All}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}, PlotRegion->Automatic, PreserveImageOptions->Automatic, Prolog->{}, RotateLabel->True, Ticks->{{{-3., FormBox[ RowBox[{"-", "3"}], TraditionalForm]}, {-2., FormBox[ RowBox[{"-", "2"}], TraditionalForm]}, {-1., FormBox[ RowBox[{"-", "1"}], TraditionalForm]}, {0., FormBox["0", TraditionalForm]}}, Automatic}, TicksStyle->{}]], "Output", CellChangeTimes->{3.417524409174141*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Rejection Method \ \>", "Section", CellChangeTimes->{{3.417522542814748*^9, 3.417522546636355*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], " ", ":=", " ", RowBox[{"2", "Pi", " ", "*", " ", RowBox[{"Sin", "[", RowBox[{"4", "Pi", "*", "x"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.41752271065454*^9, 3.4175227380298643`*^9}, { 3.417523616368595*^9, 3.4175236189384403`*^9}, {3.4175236515213957`*^9, 3.417523652103127*^9}, {3.4175236832586317`*^9, 3.4175236836881332`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", " ", RowBox[{"{", RowBox[{"x", ",", " ", "0", ",", " ", ".25"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.417523448998946*^9, 3.4175235013781357`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwV2Hk4VO0bB3BLimSZscwZqSxZKm+9SSnF/YQWogihhVK0kiyhSMoeKiSV EPXKliyFMeacYUSMLSWVpSTZqUiy/Z7fX+f6XOe6nrPdz31/r6PsdH6/s5CA gMACQQGB/x9Nnfuaqf6NBi4FLee5og8MFhgpuHcxZUFMPY7uw/eFDSmJSYXM ldCuNwaIHw576t8XPGTqQID1C20VfiLYnpgsj2Uaw9jyK0mi/KfQsS7MKJpp DcJH1sc115VAqty+0EjmCWjTkiYk6mogSLRQI4LpBdWFi1QX1bSBnf2jvLEf wcCuXO39jtcP4vNBh3ctvwk3tKNttWV/gZrlSF/ljXjgB/Ai3GWnwKdhCySO 34M7nf3WYZfngVFE6xQUTAG1ApM9OVlC6GW3Eb9xWxpktH13DuCKoIozD5fa Dz2GtgvDxwPyRdGEur5UrmsG0PTvyRsdEEdCU9nSS9Wy4Lnnnw2a8pJo0/zR l1bPcsB14EHZFmNpxA/WaXi1Og8CG4ICb52koRW3BqcyR56DzVM/z8+36Ghw sqvz3b8FcDJiPD0iTgY9HiirlYwpBHfHHXOmCbJIclnGaE9PEZBrl0rbBcih qNMvXFJXvoSVt60WuII8+o2ye04FFoO7x7mSl1PyiP148IFPcDH8d8DKR39G Hl0T1bIKjSiGjmO36yrm5JFkUw43Pa4YxgY9N7wWZiB1x2fJnRnFIJl1ZYYn wUAHAvLtrJuKoX+VlaWvMgO9KC3mg3IJxGq3TvJ3MZCXNq9IvrIE+Bd30NRv MZCLjlLq7RrsO+6mgbEMZLfJ/8aShhL4+H6ooTWegbbq6TgJfSiBikNrSq/e YyAhw8dSIyMlYH1OTJJKY6CblsFnqhRKQal7Km6oiIGy3I2VvDxKIa0vb2j6 PQN1PePdaFZmgeLYaoVBgkBNwwuGtDVYoKkf8ZevQCBKa4dZvBYL9AN8tXIV CZSaVbXEVpcF/lPXg08pEcjpv1fR7WYs2Hc6R7BOg0C9D2tufvdhgcfiWBnY RKDhKH7cbD0LYmk2L7stCdRZt2TcoYUFBbs2RMZYEahhsbk11caC/PGc7M02 BHoWXi97/SsLNg1Nt4bZEcg9uOGO6BQLbIIa62iOBBq/3HRXZmUZHLcakH17 lkDTZ94+WHWpDO7dph+lBRPIetOR22sDy4DRFpLvGkKgHMHe0A3BZRBW+jWk JpRADomTF/RjykBBS7zYL4JA3CqF3ZZpZUD8oTbXxhAoTOnYuG9tGbideZeh eo9AMq3DZjUKbBDUrM8sziHQuUcXDetXsOHAjYj1PbkE4p2b132zkg1Hisq2 SOUR6KIwTbV9LRsamjfXHc0n0Id/daZGDdlwMytl7McLAqXcuPSEcZYNSxuL N/I5BFqzfdGcSxkbdNLvax9tJNDzrGyNNooNVxst2y40EUhH1sLS5BUbarSL S4KaCbTte+LjNc1suK4Kq5JaCLQ3evWesV42nHDRqi57TyCPD+aJfvRyuOal 1fuki0C/DX9yBxjl8KNg4p8Hnwl0OSdh8NCycnDo35EX84VAwYFdBgaa5VDY vtHB/SuBEtQufBMyKIfne7zPLv9OoNIL8dpRp8vBXL9PR22EQAafNh+edSsH bdJQYg67wrgjxM2rHNxPLVv+bpRAtQz1DxaB5UAOy/UH/CBQe3lxoNydcqgT c1NhjRNIYPEnfjJVDshzUq7jL4F2pSmfzGdw4Nch4Ud8ESbSSZRUf6XIAZHJ kO5jC5lIKWa656MyB+yLgu5MYP/1e+e0QIsDQiPkPkKUiXItIxxsEQeebDgs u2cxE8kI/rCZPcWBasWoVmdJJhKY7JClu3Hg/Y3wNd3YQ0O1LeqeHHApu/jj sBQTvWp7bGkRwAH5PrEmc2km8ntuZ55+mwPPWVvfK9KZqMuRMjZhcSClLXWR uxwT8W1yhR1IDmxQPXSqBbtkz/0KDx4HXFMSt2yUZ6JYXS+U1MCB9JHgf8ax d0hpbhvt5kDi4ysHHQkm0haRmxbu48BwZK7BS+zl04IsYpgDNTnr48SZTPSn 95Ou4SQHbK6ujM7Hzubc3HBHnASFHjXegAITJRb5/8yUJqHP+/zqjUuZKDjr dD5HjgTz4F6BK9gOCUbr+laQ0CO1Z26xIhPR3CZXb9UhIU3FW4++jInmjvf0 79tCgv2afGUL7AH75qcnDEgIXjXlG4XN25GtHrObBMulyT4Cy5nIZ5mjypfD JAh9bCt6h+1k8e+B9mMkRKTHaCxcwUR7rwtGvnchwUmAx9yIrd6f/qPenYT3 Fmn+Mdh0RW+11954vaEdwyXYs3t32vMukfDxjEPHF+y3RX0UK5iEsiM9W9cp MRH1vXT8RQQJXevNs6ywsxVuaObHkJD1VDnxIva1q//cykgkgaUn8rMY261w rjLtIQkcV2mHVmz73sbJh2kk9HoEmvzC/tfMwzE+hwS60rVkTWUmUgw0iruZ T0LtXbroduxFBbLVkS9JoAUJ/LDF/tnz7W9IGQkGAab2rtidjOK1QRQJmcaj KAi71jTcyb+KhKf/DWfEYb8IsE/wqSUhNsI45jF26vPVtR6NJLAHfv4qxI76 Oj3r+pYE/87JNi62r3z9+tMfSFC7tV+/Afu4SbLziU4SJAyFlD9g7/U/f8/x Kwlh5guDu7H18lD9wT4Svqs4uAxgq3fTBA8MkxBkIlYzhk2T+6pj+ZOEDMdF mRPYM7uKTplNkvBMwU5sCrvvUkjSrhlcLzun+/5iDxxYc+qRAAUZ1WO7prGP jskIrRCmAO5uVv//+daImQdJIhQIVb+5Pom9R/XbRgVRCrYHkkd/YVPs+sa7 iynYNz/HHsbedODlaTkJCq48vJ3Yi50zmiwcJ0WBUrXPrw5slYiwh9J0CoIF CupbsBNV3HVjZCmY70EaNdiSbLtmcQYFXepqAmXYwTbbz0YwKbh409EuB3tq ZJXIIkUKZOfH1iVhu4XTU4KXUyDq+jE0ErtHeXqzkDIFad8Vj/hgN1nzz82q 4fWf5YeZYe8cKVp4WZMCxxsL23Ww2WEPU/+spuBeXGneUuwMltvbX+soaDZC 73pwvSha27pd0KbAaQNDoxo7dhhER3UomOzY/ycD+4oSbdvAFgpMx+YJZ+zx 0ql3J7dREGvrfWo79hmr7vPfDCj46Wurq4htE1qY/tmIgrlvZ6zqcb1rDdmI vzen4Is1PWQZdom1GRlpQYH9M52Cfry/jMoNPQ2s8PcJaVEowj4Ys+7TEzsK ZL7eSTbCjvhXLNvrOAWnq5LdzfF+lb0376DpQkHnfblL4tipgr/p7acoiI9f TVbj/V/ypvuSkRsFrSsNZ/Swe73YpnQ/CpLmiwyX4H7h0VEwV3WZAh3HzFVs 3F9md2QW+F2h4MUVZ7Mz2LKMBIUv1ykY1zDbwcX9yKj0/EBeDAUhhv4iB3H/ Sp1ViTR/TIHZL6JqE+6HWi5MA8EMCpasuna2VpaJihukfhZlUvBMe/new9gN KTP2inkU/NclUXNJBl9ve+uqwVIKolxybqbR8POGRrwOb6SgINXa+6EEvt+R wIBtbyg45vymWxb7gu3F9WNvKTBpl4iOXMJE4ZrH79l+pEB1rOeuuzgTvazd dlr9GwUuElrhGmJ4HkiNifL+UiCy1qQdLWCiN+WRYSazFBR6aazOEMbf95za wsZ5XD/eyaPi2PTag8IfF3CBVev/pUkQO6RqdlSSC3rC4k675wkkPX3/51JV LvyNN+ganiLQku872j33cGHfuYtyMnge8u98PjhlzgXDgOwzu4cJFGV8+cMV Cy4IbWzb7D9EIPG0560RNlxoKTdFXQMEWnxkaXOKIxeSvP7MxOJ5K9oyVlXn yYVY0e+b8/G8XkA+yFNN4sJX74Clr/H8/7jNeHdXMhcCovqCS3A+yGMNfb7/ iAuJApJq/+H8cPClPp2ewYVG5fdi/vUEys/t8hIo4MJZh7iT9Nc4/ySp6nVU c2Gb/dOQfpJAJX7ZvIRfXFiZ+6R7O843MZNWR/b/5sIPyWVmf7IIdNx7ZkJi igtj7gtHczIJJHnBXCNkjguHOTFfpDMI5HxqNMJTrAKSTjD9Kx8RiG67YZ/F igpYZPooqSWBQGd1yj6I7amAELerBqmBOE82vcspMa+AhMJhhtoVAsm5jgWe tKiANUKHDJ76E4h8oqZeZVMBmpEpHpl+OH8xbnlcPYrXv1Z2+a4ngcqmTohP eleA9rdpDZWT+H2Skvo9qRUQOvA856cZgbJNnFI5vyvgsstIf6gMzk9aygYw VQFhLwaKKRqBOJKfP5HTFbBrVpA+JYXzbssRBlegEtRiRs84L8H58oh9TOXi SrBGDQVaIjjveFj41yzHrllR6P2bgZruG9i92VkJEv1tBj9xfp4YVJDuTaiE MzMjtKQEnOetdgnHG/PAofQo7dyEPArcHZJS1MuDcFtvlbO75JFyh2lbekgV LPqT7XIhTA7p6QbHM7VfgeQh5475FFl0eHnjlGDLK0jWrH2lWyiDJmqju92D quFLNjv7cxIdJS5w8Nq/sgZ8hcovFYbQkEznizQhXg0c1Q34R/C4NBIJCLLe cuE1RMsbhHxZI4kEMh3yuum1ILU/7dqxFHHkcT8vml5RC5XsAKGCclFUviZc lOZWB7e/LTNJqxdBNFMPrWuSfHDeuttc5a8Qav+nqcWPzYcrPkdZfZnz8DwZ VvY41MOHfR1KrzOn4EjeJtqyuXowUhWblc/7BVdDHgW1ZzXAtrr6Cw/1BiC3 b9kDSbNGsN6a/3EL6xNY0iQ3V/9thGc7izs5vAiIFBFa2o5tvNial3MkAnhT E7Nj2LwVoZn3f4fDpu6OSoXpRnBXy/e4qBkOCoW5+9ywb722FFgbFQrd1uYn 5WYawej15sUPra6DV2JUwvHZRlCyHKmZ4PlBbtRVP19sXX2Jq82/faH3qtfh aOyp9ZWbcjV9we70YZVi7NuUYPqJqIugr6f1bPFcI6ipa/q0WHnCwva6qnzs oxPKKk5VpwGayKevsC/6uYYyV50CX17hjU/YOietBpqiXGAg54GlyHwjlN8R ywfr49AQcLbDDrvpaqm33it7WOThSLlix9t5bMmMPgDIxSr9GvafQ/wZho0V FOzdejoHW4jcIDJYbQKDhuvMuNjz+ywjaw4YwUpd1XWt2DLKW5eb1W0BhzUM +iB2WQ1/r+SbVXB3hfjEPPb03VT3//8v+B/cF3CH "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 0.25}, {0., 6.283185123511351}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{{3.417523481815099*^9, 3.417523511239449*^9}, { 3.41752363776845*^9, 3.417523691131195*^9}}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"tbl", " ", "=", " ", RowBox[{"{", "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.417523229042889*^9, 3.417523234249014*^9}, 3.417523305740487*^9}], Cell[BoxData[ RowBox[{ RowBox[{"Do", " ", "[", RowBox[{ RowBox[{ RowBox[{"x", " ", "=", " ", RowBox[{"0.25", " ", "*", " ", RowBox[{"RandomReal", "[", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"y", " ", "=", " ", RowBox[{"2", "Pi", " ", "*", " ", RowBox[{"RandomReal", "[", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"f", "[", "x", "]"}], " ", ">", " ", "y"}], ",", " ", RowBox[{"AppendTo", "[", RowBox[{"tbl", ",", " ", "x"}], "]"}]}], "]"}]}], ",", RowBox[{"{", "1000", "}"}]}], "]"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.417522750409252*^9, 3.417522836740478*^9}, { 3.417523105311541*^9, 3.417523135031435*^9}, {3.4175231694109583`*^9, 3.417523274963703*^9}, {3.417523336838868*^9, 3.417523337829595*^9}, { 3.4175234220841427`*^9, 3.417523432603139*^9}, {3.417523664442926*^9, 3.417523687303145*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Histogram", "[", "tbl", "]"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{3.417523369286478*^9}], Cell[BoxData[ GraphicsBox[{ {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0., 0}, {0.01, 4}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0.009999999999999998, 0}, {0.02, 6}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0.020000000000000004`, 0}, {0.03, 12}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0.030000000000000002`, 0}, {0.04000000000000001, 18}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0.039999999999999994`, 0}, {0.05, 26}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0.05, 0}, {0.06, 26}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0.06, 0}, {0.07, 40}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0.07, 0}, {0.08000000000000002, 41}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0.07999999999999999, 0}, {0.09, 25}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0.09, 0}, {0.1, 40}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0.1, 0}, {0.11000000000000001`, 38}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0.10999999999999999`, 0}, {0.12, 37}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0.12, 0}, {0.13, 41}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0.13, 0}, {0.14, 35}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0.14, 0}, {0.15000000000000002`, 29}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0.15, 0}, {0.16, 44}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0.16, 0}, {0.17, 50}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0.16999999999999998`, 0}, {0.18, 33}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0.18, 0}, {0.19, 30}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0.19, 0}, {0.2, 22}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0.2, 0}, {0.21000000000000002`, 24}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0.21, 0}, {0.22, 16}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0.22, 0}, {0.23, 12}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0.22999999999999998`, 0}, {0.24, 10}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0.24, 0}, {0.25, 3}]}}, AlignmentPoint->Center, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->None, AxesOrigin->{0., 0}, AxesStyle->{}, Background->None, BaseStyle->{}, BaselinePosition->Automatic, ColorOutput->Automatic, ContentSelectable->Automatic, DisplayFunction:>$DisplayFunction, Epilog->{}, FormatType:>TraditionalForm, Frame->False, FrameLabel->None, FrameStyle->{}, FrameTicks->Automatic, FrameTicksStyle->{}, GridLines->None, GridLinesStyle->{}, ImageMargins->0., ImagePadding->All, ImageSize->Automatic, LabelStyle->{}, Method->Automatic, PlotLabel->None, PlotRange->{{0., 0.25}, All}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}, PlotRegion->Automatic, PreserveImageOptions->Automatic, Prolog->{}, RotateLabel->True, Ticks->{{{0., FormBox["0", TraditionalForm]}, {0.05, FormBox["0.05`", TraditionalForm]}, {0.1, FormBox["0.1`", TraditionalForm]}, {0.15000000000000002`, FormBox["0.15000000000000002`", TraditionalForm]}, {0.2, FormBox["0.2`", TraditionalForm]}, {0.25, FormBox["0.25`", TraditionalForm]}}, Automatic}, TicksStyle->{}]], "Output", CellChangeTimes->{{3.4175233708819237`*^9, 3.41752338714791*^9}, { 3.417523426684724*^9, 3.417523437182424*^9}, {3.417523670752103*^9, 3.417523691303007*^9}}] }, Open ]] }, Open ]] }, WindowSize->{640, 720}, WindowMargins->{{4, Automatic}, {Automatic, 4}}, ShowSelection->True, FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (April 20, 2007)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 90, 1, 67, "Section"], Cell[683, 26, 681, 16, 27, "Input"], Cell[CellGroupData[{ Cell[1389, 46, 238, 5, 27, "Input"], Cell[1630, 53, 165, 3, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1832, 61, 159, 3, 27, "Input"], Cell[1994, 66, 186, 2, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2217, 73, 352, 9, 43, "Input"], Cell[2572, 84, 211, 3, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2820, 92, 147, 3, 27, "Input"], Cell[2970, 97, 110, 1, 27, "Output"] }, Open ]], Cell[3095, 101, 320, 9, 27, "Input"], Cell[CellGroupData[{ Cell[3440, 114, 134, 2, 27, "Input"], Cell[3577, 118, 20996, 386, 241, "Output"] }, Open ]], Cell[24588, 507, 153, 3, 43, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[24778, 515, 98, 1, 67, "Section"], Cell[24879, 518, 147, 4, 27, "Input"], Cell[CellGroupData[{ Cell[25051, 526, 102, 1, 27, "Input"], Cell[25156, 529, 136, 3, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[25329, 537, 136, 2, 27, "Input"], Cell[25468, 541, 133, 2, 27, "Output"] }, Open ]], Cell[25616, 546, 283, 7, 27, "Input"], Cell[CellGroupData[{ Cell[25924, 557, 134, 2, 27, "Input"], Cell[26061, 561, 14570, 276, 241, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[40680, 843, 96, 1, 67, "Section"], Cell[40779, 846, 582, 16, 43, "Input"], Cell[CellGroupData[{ Cell[41386, 866, 130, 2, 27, "Input"], Cell[41519, 870, 6864, 145, 241, "Output"] }, Open ]], Cell[48398, 1018, 582, 15, 43, "Input"], Cell[CellGroupData[{ Cell[49005, 1037, 130, 2, 27, "Input"], Cell[49138, 1041, 7622, 158, 241, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[56809, 1205, 110, 4, 89, "Section"], Cell[56922, 1211, 409, 8, 27, "Input"], Cell[CellGroupData[{ Cell[57356, 1223, 253, 6, 27, "Input"], Cell[57612, 1231, 5748, 100, 245, "Output"] }, Open ]], Cell[63375, 1334, 190, 5, 27, "Input"], Cell[63568, 1341, 982, 22, 73, "Input"], Cell[CellGroupData[{ Cell[64575, 1367, 142, 3, 43, "Input"], Cell[64720, 1372, 5175, 110, 244, "Output"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)