(* Content-type: application/vnd.wolfram.mathematica *)

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

(* CreatedBy='Mathematica 10.4' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     55904,       1601]
NotebookOptionsPosition[     55086,       1568]
NotebookOutlinePosition[     55420,       1583]
CellTagsIndexPosition[     55377,       1580]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"nPoints", "=", "10000"}], ";"}]], "Input",
 CellChangeTimes->{{3.6883707865278883`*^9, 3.688370790887484*^9}, {
   3.688370867638702*^9, 3.688370871057726*^9}, {3.6883719518085337`*^9, 
   3.688371973901113*^9}, 3.688376386502602*^9, {3.6883765294987288`*^9, 
   3.688376549404406*^9}}],

Cell[CellGroupData[{

Cell["Experiment 1 : X = A - B", "Section",
 Evaluatable->False,
 CellChangeTimes->{{3.688372197791321*^9, 3.6883722314506483`*^9}, {
  3.688376388001878*^9, 3.6883763901192503`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"results1", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"A", "=", 
      RowBox[{"N", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"RandomInteger", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "5"}], ",", "5"}], "}"}], "]"}], "/", "10"}], "+", 
        "1"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"B", "=", 
      RowBox[{"N", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"RandomInteger", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "5"}], ",", "5"}], "}"}], "]"}], "/", "10"}], "+", 
        "1"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"X", "=", 
      RowBox[{"A", "-", "B"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"AppendTo", "[", 
      RowBox[{"results1", ",", "X"}], "]"}], ";"}], "\[IndentingNewLine]", 
    ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", "nPoints"}], "}"}]}], "]"}], ";"}]}], "Input",\

 CellChangeTimes->{{3.6883705552442408`*^9, 3.68837059552057*^9}, {
   3.688370637369101*^9, 3.6883706400085363`*^9}, {3.688370694845083*^9, 
   3.688370734470104*^9}, {3.688370769505723*^9, 3.68837077457163*^9}, {
   3.688370813461452*^9, 3.688370864412675*^9}, {3.688371614529625*^9, 
   3.688371630795726*^9}, {3.688371910591824*^9, 3.688371915582357*^9}, {
   3.6883730211643457`*^9, 3.688373023653681*^9}, {3.688376343778872*^9, 
   3.688376359770021*^9}, 3.688376402704852*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"plot1", "=", 
  RowBox[{"Histogram", "[", 
   RowBox[{"results1", ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1"}], ",", "1", ",", " ", "0.1"}], "}"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.688370902655138*^9, 3.6883709085646152`*^9}, {
   3.688370948052507*^9, 3.68837094856257*^9}, 3.688371947816287*^9, {
   3.688372073985548*^9, 3.6883721637431173`*^9}, {3.688372239571599*^9, 
   3.68837224062704*^9}, {3.6883722965546913`*^9, 3.688372297522575*^9}, 
   3.6883728928483467`*^9}],

Cell[BoxData[
 FormBox[
  GraphicsBox[{
    {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
     Opacity[0.5459999999999999], Thickness[Small]}], {}, 
     {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
      Opacity[0.5459999999999999], Thickness[Small]}], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{-1., 0}, {-0.9, 70}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{29.181372549019613`, 45.75980392156862}, {
           75.36809928852453, 91.63076526119916}}],
         StatusArea[#, 70]& ,
         TagBoxNote->"70"],
        StyleBox["70", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[70, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{-0.9, 0}, {-0.8, 163}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{45.25980392156862, 61.83823529411765}, {
           54.42627163911397, 91.63076526119916}}],
         StatusArea[#, 163]& ,
         TagBoxNote->"163"],
        StyleBox["163", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[163, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{-0.8, 0}, {-0.7, 260}, "RoundingRadius" -> 0]},
          ImageSizeCache->{{61.33823529411765, 77.91666666666669}, {
           32.58372021983629, 91.63076526119916}}],
         StatusArea[#, 260]& ,
         TagBoxNote->"260"],
        StyleBox["260", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[260, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{-0.7, 0}, {-0.6, 342}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{77.41666666666669, 93.99509803921569}, {
           14.1188829375603, 91.63076526119916}}],
         StatusArea[#, 342]& ,
         TagBoxNote->"342"],
        StyleBox["342", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[342, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{-0.6, 0}, {-0.5, 406}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{93.49509803921569, 
           110.07352941176471`}, {-0.29269738031364056`, 91.63076526119916}}],
         
         StatusArea[#, 406]& ,
         TagBoxNote->"406"],
        StyleBox["406", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[406, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{-0.5, 0}, {-0.3999999999999999, 514}, 
            "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{109.57352941176471`, 
           126.15196078431374`}, {-24.6122391667259, 91.63076526119916}}],
         StatusArea[#, 514]& ,
         TagBoxNote->"514"],
        StyleBox["514", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[514, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{-0.3999999999999999, 0}, {-0.29999999999999993`, 
             584}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{125.65196078431374`, 
           142.23039215686276`}, {-40.374905139400525`, 91.63076526119916}}],
         StatusArea[#, 584]& ,
         TagBoxNote->"584"],
        StyleBox["584", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[584, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{-0.29999999999999993`, 0}, {-0.19999999999999996`, 
             716}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{141.73039215686276`, 
           158.30882352941177`}, {-70.09878954501552, 91.63076526119916}}],
         StatusArea[#, 716]& ,
         TagBoxNote->"716"],
        StyleBox["716", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[716, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{-0.19999999999999996`, 0}, {-0.09999999999999998, 
             763}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{157.80882352941177`, 
           174.3872549019608}, {-80.68229384095419, 91.63076526119916}}],
         StatusArea[#, 763]& ,
         TagBoxNote->"763"],
        StyleBox["763", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[763, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{-0.09999999999999998, 0}, {0., 805}, 
            "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{173.8872549019608, 
           190.4656862745098}, {-90.13989342455896, 91.63076526119916}}],
         StatusArea[#, 805]& ,
         TagBoxNote->"805"],
        StyleBox["805", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[805, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{0., 0}, {0.10000000000000009`, 855}, 
            "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{189.9656862745098, 
           206.54411764705884`}, {-101.39894054789796`, 91.63076526119916}}],
         StatusArea[#, 855]& ,
         TagBoxNote->"855"],
        StyleBox["855", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[855, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{0.10000000000000009`, 0}, {
            0.20000000000000018`, 804}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{206.04411764705884`, 
           222.62254901960787`}, {-89.91471248209218, 91.63076526119916}}],
         StatusArea[#, 804]& ,
         TagBoxNote->"804"],
        StyleBox["804", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[804, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{0.20000000000000018`, 0}, {
            0.30000000000000004`, 750}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{222.12254901960787`, 
           238.70098039215688`}, {-77.75494158888604, 91.63076526119916}}],
         StatusArea[#, 750]& ,
         TagBoxNote->"750"],
        StyleBox["750", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[750, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{0.30000000000000004`, 0}, {
            0.40000000000000013`, 678}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{238.20098039215688`, 
           254.7794117647059}, {-61.54191373127786, 91.63076526119916}}],
         StatusArea[#, 678]& ,
         TagBoxNote->"678"],
        StyleBox["678", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[678, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{0.40000000000000013`, 0}, {0.5, 561}, 
            "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{254.2794117647059, 
           270.8578431372549}, {-35.19574346266458, 91.63076526119916}}],
         StatusArea[#, 561]& ,
         TagBoxNote->"561"],
        StyleBox["561", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[561, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{0.5, 0}, {0.6000000000000001, 467}, "RoundingRadius" -> 
            0]},
          
          ImageSizeCache->{{270.3578431372549, 
           286.9362745098039}, {-14.028734870787233`, 91.63076526119916}}],
         StatusArea[#, 467]& ,
         TagBoxNote->"467"],
        StyleBox["467", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[467, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{0.6000000000000001, 0}, {0.7000000000000002, 420}, 
            "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{286.4362745098039, 
           303.014705882353}, {-3.4452305748485514`, 91.63076526119916}}],
         StatusArea[#, 420]& ,
         TagBoxNote->"420"],
        StyleBox["420", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[420, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{0.7000000000000002, 0}, {0.8, 331}, "RoundingRadius" -> 
            0]},
          
          ImageSizeCache->{{302.514705882353, 319.093137254902}, {
           16.59587330469489, 91.63076526119916}}],
         StatusArea[#, 331]& ,
         TagBoxNote->"331"],
        StyleBox["331", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[331, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{0.8, 0}, {0.9000000000000001, 249}, "RoundingRadius" -> 
            0]},
          
          ImageSizeCache->{{318.593137254902, 335.171568627451}, {
           35.06071058697087, 91.63076526119916}}],
         StatusArea[#, 249]& ,
         TagBoxNote->"249"],
        StyleBox["249", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[249, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{0.9000000000000001, 0}, {1., 166}, "RoundingRadius" -> 
            0]},
          
          ImageSizeCache->{{334.671568627451, 351.25}, {53.750728811713635`, 
           91.63076526119916}}],
         StatusArea[#, 166]& ,
         TagBoxNote->"166"],
        StyleBox["166", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[166, {}], 
        "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}}},
   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
   Axes->{True, True},
   AxesLabel->{None, None},
   AxesOrigin->{-1.04, 0},
   FrameLabel->{{None, None}, {None, None}},
   FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
   GridLines->{None, None},
   GridLinesStyle->Directive[
     GrayLevel[0.5, 0.4]],
   PlotRange->{{-1., 1.}, {All, All}},
   PlotRangePadding->{{
      Scaled[0.02], 
      Scaled[0.02]}, {
      Scaled[0.02], 
      Scaled[0.05]}},
   Ticks->{Automatic, Automatic}], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.6883709095358763`*^9, 3.68837094914117*^9, 3.6883716226813602`*^9, {
   3.688371941264502*^9, 3.688371980643066*^9}, {3.688372082602359*^9, 
   3.6883721643544483`*^9}, {3.688372242351033*^9, 3.688372244506386*^9}, 
   3.688372880378227*^9, {3.6883730609798937`*^9, 3.688373093168746*^9}, {
   3.688376372494527*^9, 3.688376395291161*^9}, 3.688376557273031*^9, 
   3.6883861101215763`*^9, 
   3.688386891100685*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztnW1MW9cZxy+h7fahachabdM+RdO0L/vaTJraSi2bun2ZqknTtE+TULco
JHOaBLQk5oINTngJNBkoHTSdMrImVNnSkraiSUqUjrVhC22qZEGNSmhSaCG8
EygGY+P737nX164N19c2vja2+SP5Ys49L8/z/51z7sXn3Me/LCrd/gdbUWnx
80Vbfr63aPf24udLtjz7wl6RlJ8nSXnbJUnq2yKp7yHe6gftp1g9SNJO7dcm
QPHgy8uv4KDdDll24eXOQSwo4tz8p2jYdwgfTPkB/yxutjfCYZchl7nQfL4f
bgXSU4nUYZxHKrTAjkAdG4HFL3GmqjaQF/G1vyFcjgL4xi6i2nEKvV/5obj7
cLbShbfueUVxL6YnprDgVzD3SQvsledwR5RXFu6io6YcJ265Iax9UvcmdjWI
lkf3JmlTnokmShwm6KIUab/y1TKYvdEEubRU/FUqjo/hQMNljPug//gxdaUW
zlOD8Gh/ezHc7kL1pXGEsog8c33v41+9M1jS/77fUwv5+B0sAE9oTW2OuyqT
PNLTCdZlYpb0TFCCr1XUBIH0zVj15wVE3BHK7cXQ61U49O6Y3npE6Qe1bA+E
DLAf64/UxbS0/mOaR9dltZaYK2Fao4ESw+0i98XI3I6/D6i5A53vG1gcehMt
xzvx2ZwfSzO30O46gKaPZkRmSOGymFQVksUkT4QsSZoVSyOT6ldo5Md0d7gj
eumAwgFjHoJvvBMH91XjaK0TdrkaLe/cghjLT4aNAJNaQiPAJE+YPMlYFKhF
dK2lSVw5cRIXrvfidOXK8WTSgq7QzmBDY52oEXPXJ3Pq3PWpmLsO4u173vwg
As9d/K3yz7gxq+guxCgS9XRh4g3+NOit8Gh+sBunD5Vg127tQqQNLJPqNkR6
CWUR9/7ditqKcu2Sd/ySGFEK8kOnZ3Dt8G7s+KMNNpv62o+/9C88FW9pw9OF
SbVdqOuhzPfj9erDET5HqVH3+Tt6yW3btgW7ZuCe5bnA+Y2hWgwv5Q/EWTzK
RS9W8YfDeqnJrJ8fdzWmU2Yi1ZjMKvmBoqKWX6mHvJWumAw4IxvC05Y+rlBf
Qlj1mI/Hf/S9YLr0iJ5mlC8X0zLB3yCjh5b3d8OJxqi/k27W0Y0ypa6G7nJv
S373kxX54k0zaiPesuG2mKXF8iPeNDN/k/EjEa2W0TW6FBJfTuAT/z6nHF8y
aatBkCp86UhTeRAf8WWGO8RHfMRHfMRHfKvGp9EjtMz0l2OO+DLHHeIjvtzG
p1YjXqIK9ZhZ7hCfIb5HDUbfWptOVERFVERFVERFVERFVJai0kgR0Nr7y7FE
VERFVERFVERFVERFVERFVERFVERFVNmBih8nZYi/HEtERVQZgEqtRrykTepx
E9msNZsf6GkcMhanFWjdnBzWmsMyBN8mAiIgggACSd2g6sHAyf3YsX2ntEGN
nyJsstn2oLJ9GN5osdDiD3xCoOkFqgXNgm+iC43yi7g46FFDsOlx1B6OGsot
gVA0BJpeoI/pCQrcn3XgaFkdzt78OkSccQCgUYwnFhiIUNMKNTAcv6VR9Y52
44TTidYPpwSdaLGY+nE3sRhNJJpWooGZsgC+yf+gWa7Du6PzUcJhCZIxwmQ9
qIL8PvmlfZpV4BnpxfU7bvj1aXPorBOud4YxbhicbCRKetSgZRyU6YX6qAZ1
vu+vKK+5iC884lbIN44rjWVouDoNr3E8smhxyiTeDWUGUWjxl3vbm+CU1fjL
5ag/9V+MexEtBlm0dBJde6L8EIAIiIAIiIAIiIAIiIAIMgOBRoDCW+PH1q1b
NaHV72x5RD1+l5091ZqHd+wfxpB7s1pDqnbjrDNBH09j/6W0lJbSUlpKS2kp
LaWltJTWMmk1ZSko+yqlpbSUltJSWkpLaSltZkhr9IAdtbSkS/6YMqZDxgJt
PYy6memmyfazFHW6XBJqWQejZJSMklEySkbJKBklS1qywANtBeKwhMmuWrjU
AAFqWvJBAqj8qpS34Gl+Km+qvPpYqHcY56r2Yk9JaSB+1a4dKLaVoqrtc4xY
8/Q9IcSEoIp44QiOnB/CYsQosOyBeUKIDUGbc/BeUz3eGnBjIgxCUs+6F1J6
M+mD0SKWprrRcvgf6LlQo+vux7Q1D6ZrnX9Ve4BzSuPNWh+dufYK5AN74Ahd
ZpN/TvzXFnTxHJE6dDfj/wo3W2U4Q/eRCT28TZUT/gcn5+UxWhFaz3osk+JZ
SkEpKAWloBSrlUJTYj0LwL5AKSjF+pVixYPcv1g/vocj/w3dptt0m27npts5
eZ9LxnTb2O2YSx9Z6NjvE+RJF+kiXaSLdHE9uah5mIuOrQN2dDFTXVzxKdlv
s9+ncETb6A7dSbM7we9+UDwY6mpFTZm6rbwcDa99iCkfEt2GbrhLS1Mn4n/B
zPPfO9SOqsqz6HOr32YyiZ7mChztuQ9vYpvBDf0vNekdmaSEuhfVh9HzLlSc
HsSidtKP+z11cLTesWpXdjaJ4cHnJ/djV/kZ/G/aB//CIC4ftaPhyii+sGZ3
dDaJsYjBNidc7R149UUH7PYqNL3xsZgjktylvDeLJBAufCB4vhrcAKzANzOG
iXmvVRuGs6U/BObMpYku1MsvoXvCB8U7gvfqZDTfcluysze7lFDnzcmPzuCI
0wGHLONwW/Dqmfw3J2WJEka3RTSdptN0mk7T1V+a5dlkcBZrTdNpOk1fM9PV
tsVLmF6y4smhDDZdbTdoyz6aub7NzIjLdZZrSDNTbWYw1qG6NJYhdh3U09RJ
nybRJJq0HkzSLEqlIREL/wfSL0a44zXxNR+8Dd6o3wanofljFnjPpqxvKrhQ
sDSDG280wrHfDrmsAg1tVzGuhumwYJk9lZYrmL1xDHL9ZQx71QXyCVxtllHX
NQGPBQvkqbI8EOFKi2TVGVyGVDBzrQ5yy20MW7OgnUrjFcz1Hodc/TZuu4WM
CwO4dERGU8+YVQvQqTRetd+Nvn9W4QVbKf60ywZ763XM+pNcMG5KqclLk12o
d7Ti5qzQe/621m3PDXusWuDV9I51zx5xpasLG4Vi4I10wOV4DbfnFTE1DODN
ygq0DS5asuR6ykTYcMGaIyyCXzDueAlVcgUc5U40tvcKxrBk6TNBi4ymc1aR
C1VoNVjcdsRnlC9HL6Mdn+P5SBjhqdr74sB7Ke//wdkO8Q==\
\>"]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Experiment 2 : X = A - B + C + D", "Section",
 Evaluatable->False,
 CellChangeTimes->{{3.688372197791321*^9, 3.6883722314506483`*^9}, {
  3.68837226347362*^9, 3.688372267863011*^9}, {3.688376450553854*^9, 
  3.688376460329384*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"results2", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"A", "=", 
      RowBox[{"N", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"RandomInteger", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "5"}], ",", "5"}], "}"}], "]"}], "/", "10"}], "+", 
        "1"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"B", "=", 
      RowBox[{"N", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"RandomInteger", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "5"}], ",", "5"}], "}"}], "]"}], "/", "10"}], "+", 
        "1"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"cC", "=", 
      RowBox[{"N", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"RandomInteger", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "5"}], ",", "5"}], "}"}], "]"}], "/", "100"}], "+", 
        "0.1"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"dD", "=", 
      RowBox[{"N", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"RandomInteger", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "5"}], ",", "5"}], "}"}], "]"}], "/", "1000"}], "+", 
        "0.01"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"X", "=", 
      RowBox[{"A", "-", "B", "+", "cC", "+", "dD"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"AppendTo", "[", 
      RowBox[{"results2", ",", "X"}], "]"}], ";"}], "\[IndentingNewLine]", 
    ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", "nPoints"}], "}"}]}], "]"}], ";"}]}], "Input",\

 CellChangeTimes->{{3.6883705552442408`*^9, 3.68837059552057*^9}, {
   3.688370637369101*^9, 3.6883706400085363`*^9}, {3.688370694845083*^9, 
   3.688370734470104*^9}, {3.688370769505723*^9, 3.68837077457163*^9}, {
   3.688370813461452*^9, 3.688370864412675*^9}, {3.688371614529625*^9, 
   3.688371630795726*^9}, {3.688371910591824*^9, 3.688371915582357*^9}, {
   3.688372270196838*^9, 3.688372305839383*^9}, 3.688372675825612*^9, {
   3.688373031780435*^9, 3.6883730855299892`*^9}, {3.688376408671534*^9, 
   3.688376458257484*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"plot2A", "=", 
  RowBox[{"Histogram", "[", 
   RowBox[{"results2", ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1"}], ",", "1", ",", " ", "0.1"}], "}"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"plot2B", "=", 
  RowBox[{"Histogram", "[", 
   RowBox[{"results2", ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "0.01"}], ",", "0.01", ",", " ", "0.001"}], "}"}]}], 
   "]"}]}]}], "Input",
 CellChangeTimes->{{3.688370902655138*^9, 3.6883709085646152`*^9}, {
   3.688370948052507*^9, 3.68837094856257*^9}, 3.688371947816287*^9, {
   3.688372073985548*^9, 3.6883721637431173`*^9}, {3.688372239571599*^9, 
   3.68837224062704*^9}, {3.6883722829538507`*^9, 3.688372291901313*^9}, 
   3.6883728981113577`*^9, {3.688373097423565*^9, 3.688373126080943*^9}, {
   3.688375257054866*^9, 3.6883752862544117`*^9}, {3.6883860943743362`*^9, 
   3.6883861064325*^9}, 3.688386887106738*^9}],

Cell[BoxData[
 FormBox[
  GraphicsBox[{
    {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
     Opacity[0.5459999999999999], Thickness[Small]}], {}, 
     {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
      Opacity[0.5459999999999999], Thickness[Small]}], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{-1., 0}, {-0.9, 34}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{29.181372549019642`, 45.75980392156865}, {
           83.9055886635067, 91.63076526119909}}],
         StatusArea[#, 34]& ,
         TagBoxNote->"34"],
        StyleBox["34", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[34, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{-0.9, 0}, {-0.8, 124}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{45.25980392156865, 61.83823529411768}, {
           64.78012119902687, 91.63076526119909}}],
         StatusArea[#, 124]& ,
         TagBoxNote->"124"],
        StyleBox["124", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[124, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{-0.8, 0}, {-0.7, 175}, "RoundingRadius" -> 0]},
          ImageSizeCache->{{61.33823529411768, 77.9166666666667}, {
           53.94235630248828, 91.63076526119909}}],
         StatusArea[#, 175]& ,
         TagBoxNote->"175"],
        StyleBox["175", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[175, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{-0.7, 0}, {-0.6, 277}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{77.4166666666667, 93.9950980392157}, {
           32.26682650941112, 91.63076526119909}}],
         StatusArea[#, 277]& ,
         TagBoxNote->"277"],
        StyleBox["277", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[277, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{-0.6, 0}, {-0.5, 334}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{93.4950980392157, 110.07352941176472`}, {
           20.15403044857389, 91.63076526119909}}],
         StatusArea[#, 334]& ,
         TagBoxNote->"334"],
        StyleBox["334", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[334, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{-0.5, 0}, {-0.3999999999999999, 464}, 
            "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{109.57352941176472`, 
           126.15196078431376`}, {-7.471644777896998, 91.63076526119909}}],
         StatusArea[#, 464]& ,
         TagBoxNote->"464"],
        StyleBox["464", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[464, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{-0.3999999999999999, 0}, {-0.29999999999999993`, 
             488}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{125.65196078431376`, 
           142.23039215686276`}, {-12.571769435091625`, 91.63076526119909}}],
         StatusArea[#, 488]& ,
         TagBoxNote->"488"],
        StyleBox["488", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[488, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{-0.29999999999999993`, 0}, {-0.19999999999999996`, 
             590}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{141.73039215686276`, 
           158.30882352941177`}, {-34.247299228168785`, 91.63076526119909}}],
         StatusArea[#, 590]& ,
         TagBoxNote->"590"],
        StyleBox["590", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[590, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{-0.19999999999999996`, 0}, {-0.09999999999999998, 
             687}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{157.80882352941177`, 
           174.3872549019608}, {-54.86030305099706, 91.63076526119909}}],
         StatusArea[#, 687]& ,
         TagBoxNote->"687"],
        StyleBox["687", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[687, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{-0.09999999999999998, 0}, {0., 755}, 
            "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{173.8872549019608, 
           190.4656862745098}, {-69.31065624638182, 91.63076526119909}}],
         StatusArea[#, 755]& ,
         TagBoxNote->"755"],
        StyleBox["755", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[755, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{0., 0}, {0.10000000000000009`, 874}, 
            "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{189.9656862745098, 
           206.54411764705884`}, {-94.59877433830519, 91.63076526119909}}],
         StatusArea[#, 874]& ,
         TagBoxNote->"874"],
        StyleBox["874", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[874, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{0.10000000000000009`, 0}, {
            0.20000000000000018`, 906}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{206.04411764705884`, 
           222.62254901960787`}, {-101.39894054789801`, 91.63076526119909}}],
         StatusArea[#, 906]& ,
         TagBoxNote->"906"],
        StyleBox["906", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[906, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{0.20000000000000018`, 0}, {
            0.30000000000000004`, 777}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{222.12254901960787`, 
           238.70098039215685`}, {-73.9857705154769, 91.63076526119909}}],
         StatusArea[#, 777]& ,
         TagBoxNote->"777"],
        StyleBox["777", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[777, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{0.30000000000000004`, 0}, {
            0.40000000000000013`, 730}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{238.20098039215685`, 
           254.7794117647059}, {-63.99802639513743, 91.63076526119909}}],
         StatusArea[#, 730]& ,
         TagBoxNote->"730"],
        StyleBox["730", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[730, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{0.40000000000000013`, 0}, {0.5, 670}, 
            "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{254.2794117647059, 
           270.8578431372549}, {-51.24771475215087, 91.63076526119909}}],
         StatusArea[#, 670]& ,
         TagBoxNote->"670"],
        StyleBox["670", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[670, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{0.5, 0}, {0.6000000000000001, 548}, "RoundingRadius" -> 
            0]},
          
          ImageSizeCache->{{270.3578431372549, 
           286.9362745098039}, {-25.322081078078185`, 91.63076526119909}}],
         StatusArea[#, 548]& ,
         TagBoxNote->"548"],
        StyleBox["548", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[548, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{0.6000000000000001, 0}, {0.7000000000000002, 468}, 
            "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{286.4362745098039, 
           303.0147058823529}, {-8.3216655540961, 91.63076526119909}}],
         StatusArea[#, 468]& ,
         TagBoxNote->"468"],
        StyleBox["468", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[468, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{0.7000000000000002, 0}, {0.8, 380}, "RoundingRadius" -> 
            0]},
          
          ImageSizeCache->{{302.5147058823529, 319.09313725490193`}, {
           10.378791522284189`, 91.63076526119909}}],
         StatusArea[#, 380]& ,
         TagBoxNote->"380"],
        StyleBox["380", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[380, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{0.8, 0}, {0.9000000000000001, 303}, "RoundingRadius" -> 
            0]},
          
          ImageSizeCache->{{318.59313725490193`, 335.17156862745094`}, {
           26.74169146411694, 91.63076526119909}}],
         StatusArea[#, 303]& ,
         TagBoxNote->"303"],
        StyleBox["303", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[303, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{0.9000000000000001, 0}, {1., 237}, "RoundingRadius" -> 
            0]},
          
          ImageSizeCache->{{334.67156862745094`, 351.25}, {40.76703427140216, 
           91.63076526119909}}],
         StatusArea[#, 237]& ,
         TagBoxNote->"237"],
        StyleBox["237", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[237, {}], 
        "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}}},
   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
   Axes->{True, True},
   AxesLabel->{None, None},
   AxesOrigin->{-1.04, 0},
   FrameLabel->{{None, None}, {None, None}},
   FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
   GridLines->{None, None},
   GridLinesStyle->Directive[
     GrayLevel[0.5, 0.4]],
   PlotRange->{{-1., 1.}, {All, All}},
   PlotRangePadding->{{
      Scaled[0.02], 
      Scaled[0.02]}, {
      Scaled[0.02], 
      Scaled[0.05]}},
   Ticks->{Automatic, Automatic}], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.6883709095358763`*^9, 3.68837094914117*^9, 3.6883716226813602`*^9, {
   3.688371941264502*^9, 3.688371980643066*^9}, {3.688372082602359*^9, 
   3.6883721643544483`*^9}, {3.688372242351033*^9, 3.688372244506386*^9}, {
   3.68837306194923*^9, 3.688373127051907*^9}, {3.688375264026119*^9, 
   3.6883752868934317`*^9}, 3.68837646644201*^9, 3.6883765585262814`*^9, 
   3.6883861110774183`*^9, 3.688386891767024*^9}],

Cell[BoxData[
 FormBox[
  GraphicsBox[{
    {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
     Opacity[0.5459999999999999], Thickness[Small]}], {}, 
     {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
      Opacity[0.5459999999999999], Thickness[Small]}], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{-0.01, 0}, {-0.009000000000000001, 5}, 
            "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{22.191176470588232`, 
           38.79411764705881}, {-5.971563386708212, 90.94003472043877}}],
         StatusArea[#, 5]& ,
         TagBoxNote->"5"],
        StyleBox["5", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[5, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{-0.009000000000000001, 0}, {-0.008, 4}, 
            "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{38.29411764705881, 54.89705882352942}, {
           13.310756234721183`, 90.94003472043877}}],
         StatusArea[#, 4]& ,
         TagBoxNote->"4"],
        StyleBox["4", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[4, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{-0.008, 0}, {-0.007, 4}, "RoundingRadius" -> 0]},
          ImageSizeCache->{{54.39705882352942, 71.}, {13.310756234721183`, 
           90.94003472043877}}],
         StatusArea[#, 4]& ,
         TagBoxNote->"4"],
        StyleBox["4", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[4, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{-0.007, 0}, {-0.006, 5}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{70.5, 87.1029411764706}, {-5.971563386708212, 
           90.94003472043877}}],
         StatusArea[#, 5]& ,
         TagBoxNote->"5"],
        StyleBox["5", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[5, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{-0.006, 0}, {-0.005, 3}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{86.6029411764706, 103.20588235294117`}, {
           32.59307585615058, 90.94003472043877}}],
         StatusArea[#, 3]& ,
         TagBoxNote->"3"],
        StyleBox["3", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[3, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{-0.005, 0}, {-0.004, 9}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{102.70588235294117`, 
           119.30882352941177`}, {-83.1008418724258, 90.94003472043877}}],
         StatusArea[#, 9]& ,
         TagBoxNote->"9"],
        StyleBox["9", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[9, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{-0.004, 0}, {-0.003, 6}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{118.80882352941177`, 
           135.41176470588235`}, {-25.25388300813762, 90.94003472043877}}],
         StatusArea[#, 6]& ,
         TagBoxNote->"6"],
        StyleBox["6", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[6, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{-0.003, 0}, {-0.002, 9}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{134.91176470588235`, 
           151.51470588235293`}, {-83.1008418724258, 90.94003472043877}}],
         StatusArea[#, 9]& ,
         TagBoxNote->"9"],
        StyleBox["9", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[9, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{-0.002, 0}, {-0.0009999999999999992, 5}, 
            "RoundingRadius" -> 0]},
          ImageSizeCache->{{151.01470588235293`, 
           167.61764705882354`}, {-5.971563386708212, 90.94003472043877}}],
         StatusArea[#, 5]& ,
         TagBoxNote->"5"],
        StyleBox["5", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[5, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{-0.0009999999999999992, 0}, {0., 8}, 
            "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{167.11764705882354`, 
           183.72058823529412`}, {-63.81852225099641, 90.94003472043877}}],
         StatusArea[#, 8]& ,
         TagBoxNote->"8"],
        StyleBox["8", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[8, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{0., 0}, {0.0009999999999999992, 9}, "RoundingRadius" -> 
            0]},
          
          ImageSizeCache->{{183.22058823529412`, 
           199.8235294117647}, {-83.1008418724258, 90.94003472043877}}],
         StatusArea[#, 9]& ,
         TagBoxNote->"9"],
        StyleBox["9", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[9, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{0.0009999999999999992, 0}, {0.002, 10}, 
            "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{199.3235294117647, 
           215.9264705882353}, {-102.3831614938552, 90.94003472043877}}],
         StatusArea[#, 10]& ,
         TagBoxNote->"10"],
        StyleBox["10", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[10, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{0.002, 0}, {0.003000000000000001, 7}, 
            "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{215.4264705882353, 
           232.02941176470588`}, {-44.536202629567015`, 90.94003472043877}}],
         StatusArea[#, 7]& ,
         TagBoxNote->"7"],
        StyleBox["7", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[7, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{0.003000000000000001, 0}, {0.004, 6}, 
            "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{231.52941176470588`, 
           248.13235294117646`}, {-25.25388300813762, 90.94003472043877}}],
         StatusArea[#, 6]& ,
         TagBoxNote->"6"],
        StyleBox["6", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[6, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.004, 0}, {0.004999999999999999, 4}, 
            "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{247.63235294117646`, 264.2352941176471}, {
           13.310756234721183`, 90.94003472043877}}],
         StatusArea[#, 4]& ,
         TagBoxNote->"4"],
        StyleBox["4", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[4, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{0.004999999999999999, 0}, {0.006, 10}, 
            "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{263.7352941176471, 
           280.3382352941176}, {-102.3831614938552, 90.94003472043877}}],
         StatusArea[#, 10]& ,
         TagBoxNote->"10"],
        StyleBox["10", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[10, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{0.006, 0}, {0.007000000000000001, 6}, 
            "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{279.8382352941176, 
           296.44117647058823`}, {-25.25388300813762, 90.94003472043877}}],
         StatusArea[#, 6]& ,
         TagBoxNote->"6"],
        StyleBox["6", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[6, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{0.007000000000000001, 0}, {0.008000000000000002, 7}, 
            "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{295.94117647058823`, 
           312.54411764705884`}, {-44.536202629567015`, 90.94003472043877}}],
         StatusArea[#, 7]& ,
         TagBoxNote->"7"],
        StyleBox["7", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[7, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{0.008000000000000002, 0}, {0.009, 6}, 
            "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{312.04411764705884`, 
           328.6470588235294}, {-25.25388300813762, 90.94003472043877}}],
         StatusArea[#, 6]& ,
         TagBoxNote->"6"],
        StyleBox["6", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[6, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.009, 0}, {0.01, 6}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{328.1470588235294, 344.75}, {-25.25388300813762, 
           90.94003472043877}}],
         StatusArea[#, 6]& ,
         TagBoxNote->"6"],
        StyleBox["6", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[6, {}], 
        "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}}},
   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
   Axes->{True, True},
   AxesLabel->{None, None},
   AxesOrigin->{-0.0104, 0},
   FrameLabel->{{None, None}, {None, None}},
   FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
   GridLines->{None, None},
   GridLinesStyle->Directive[
     GrayLevel[0.5, 0.4]],
   PlotRange->{{-0.01, 0.01}, {All, All}},
   PlotRangePadding->{{
      Scaled[0.02], 
      Scaled[0.02]}, {
      Scaled[0.02], 
      Scaled[0.05]}},
   Ticks->{Automatic, Automatic}], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.6883709095358763`*^9, 3.68837094914117*^9, 3.6883716226813602`*^9, {
   3.688371941264502*^9, 3.688371980643066*^9}, {3.688372082602359*^9, 
   3.6883721643544483`*^9}, {3.688372242351033*^9, 3.688372244506386*^9}, {
   3.68837306194923*^9, 3.688373127051907*^9}, {3.688375264026119*^9, 
   3.6883752868934317`*^9}, 3.68837646644201*^9, 3.6883765585262814`*^9, 
   3.6883861110774183`*^9, 3.688386891888659*^9}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1022, 691},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"10.4 for Linux x86 (64-bit) (April 11, 2016)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 321, 6, 32, "Input"],
Cell[CellGroupData[{
Cell[904, 30, 183, 3, 65, "Section",
 Evaluatable->False],
Cell[1090, 35, 1567, 40, 165, "Input"],
Cell[CellGroupData[{
Cell[2682, 79, 530, 12, 32, "Input"],
Cell[3215, 93, 18420, 496, 233, 14703, 434, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[21684, 595, 237, 4, 65, "Section",
 Evaluatable->False],
Cell[21924, 601, 2247, 60, 209, "Input"],
Cell[CellGroupData[{
Cell[24196, 665, 927, 21, 55, "Input"],
Cell[25126, 688, 15133, 440, 233, "Output"],
Cell[40262, 1130, 14796, 434, 267, "Output"]
}, Open  ]]
}, Open  ]]
}
]
*)