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

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

(* CreatedBy='Mathematica 10.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     62133,       1850]
NotebookOptionsPosition[     60278,       1779]
NotebookOutlinePosition[     60618,       1794]
CellTagsIndexPosition[     60575,       1791]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["O desvio-padr\[ATilde]o do desvio-padr\[ATilde]o", "Title",
 CellChangeTimes->{{3.6180383859385433`*^9, 3.6180383949541607`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"u", "=", 
  RowBox[{"RandomVariate", "[", 
   RowBox[{
    RowBox[{"NormalDistribution", "[", 
     RowBox[{"20", ",", "3"}], "]"}], " ", ",", "2"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.618038402579173*^9, 3.618038418001031*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"23.111581183031834`", ",", "16.811837785358893`"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.618038414985408*^9, 3.618038418391659*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Mean", "[", "u", "]"}]], "Input",
 CellChangeTimes->{{3.6180384211416583`*^9, 3.6180384227666645`*^9}}],

Cell[BoxData["19.961709484195364`"], "Output",
 CellChangeTimes->{3.6180384235791593`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"StandardDeviation", "[", "u", "]"}]], "Input",
 CellChangeTimes->{{3.6180384245947847`*^9, 3.6180384298916554`*^9}}],

Cell[BoxData["4.454591276229718`"], "Output",
 CellChangeTimes->{3.618038431501029*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", " ", 
  RowBox[{
   RowBox[{"StandardDeviation", "[", " ", 
    RowBox[{"RandomVariate", "[", 
     RowBox[{
      RowBox[{"NormalDistribution", "[", 
       RowBox[{"20", ",", "3"}], "]"}], " ", ",", "2"}], "]"}], " ", "]"}], 
   ",", " ", 
   RowBox[{"{", "10", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.618038438704153*^9, 3.618038467938258*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "2.9364326048784752`", ",", "1.0243151204871737`", ",", 
   "1.8793716612590945`", ",", "1.3702954000578866`", ",", 
   "1.7943760278868226`", ",", "2.8516132577979936`", ",", 
   "1.3076189967594878`", ",", "3.7240818583141824`", ",", 
   "3.0496781885137367`", ",", "1.3117558056537335`"}], "}"}]], "Output",
 CellChangeTimes->{{3.6180384538288813`*^9, 3.6180384685632544`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Histogram", "[", " ", 
  RowBox[{"Table", "[", " ", 
   RowBox[{
    RowBox[{"StandardDeviation", "[", " ", 
     RowBox[{"RandomVariate", "[", 
      RowBox[{
       RowBox[{"NormalDistribution", "[", 
        RowBox[{"20", ",", "3"}], "]"}], " ", ",", "2"}], "]"}], " ", "]"}], 
    ",", " ", 
    RowBox[{"{", "10000", "}"}]}], "]"}], " ", "]"}]], "Input",
 CellChangeTimes->{{3.6180384713288765`*^9, 3.618038484360133*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
    Opacity[0.616], Thickness[Small]}], {}, 
    {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
     Opacity[0.616], Thickness[Small]}], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{0., 0}, {1., 2614}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{33.119895916733384`, 
          60.161128903122496`}, {-100.49788494442605`, 90.69145508924971}}],
        StatusArea[#, 2614]& ,
        TagBoxNote->"2614"],
       StyleBox["2614", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[2614, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{1., 0}, {2., 2336}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{59.661128903122496`, 
          86.70236188951161}, {-80.21799338766941, 90.69145508924971}}],
        StatusArea[#, 2336]& ,
        TagBoxNote->"2336"],
       StyleBox["2336", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[2336, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{2., 0}, {3., 1836}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{86.20236188951161, 
          113.24359487590073`}, {-43.74336828558911, 90.69145508924971}}],
        StatusArea[#, 1836]& ,
        TagBoxNote->"1836"],
       StyleBox["1836", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1836, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{3., 0}, {4., 1355}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{112.74359487590073`, 
          139.78482786228983`}, {-8.654778937387874, 90.69145508924971}}],
        StatusArea[#, 1355]& ,
        TagBoxNote->"1355"],
       StyleBox["1355", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1355, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{4., 0}, {5., 857}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{139.28482786228983`, 166.32606084867894`}, {
          27.673947664284093`, 90.69145508924971}}],
        StatusArea[#, 857]& ,
        TagBoxNote->"857"],
       StyleBox["857", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[857, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{5., 0}, {6., 526}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{165.82606084867894`, 192.86729383506807`}, {
          51.82014948186125, 90.69145508924971}}],
        StatusArea[#, 526]& ,
        TagBoxNote->"526"],
       StyleBox["526", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[526, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{6., 0}, {7., 275}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{192.36729383506807`, 219.40852682145717`}, {
          70.13041128310556, 90.69145508924971}}],
        StatusArea[#, 275]& ,
        TagBoxNote->"275"],
       StyleBox["275", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[275, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{7., 0}, {8., 135}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{218.90852682145717`, 245.94975980784628`}, {
          80.34330631168804, 90.69145508924971}}],
        StatusArea[#, 135]& ,
        TagBoxNote->"135"],
       StyleBox["135", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[135, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{8., 0}, {9., 45}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{245.44975980784628`, 272.49099279423535`}, {
          86.90873883006249, 90.69145508924971}}],
        StatusArea[#, 45]& ,
        TagBoxNote->"45"],
       StyleBox["45", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[45, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{9., 0}, {10., 9}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{271.99099279423535`, 299.03222578062446`}, {
          89.53491183741227, 90.69145508924971}}],
        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[{10., 0}, {11., 8}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{298.53222578062446`, 325.57345876701356`}, {
          89.60786108761643, 90.69145508924971}}],
        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[{11., 0}, {12., 4}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{325.07345876701356`, 352.1146917534028}, {
          89.89965808843307, 90.69145508924971}}],
        StatusArea[#, 4]& ,
        TagBoxNote->"4"],
       StyleBox["4", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[4, {}], 
       "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{-0.24, 0},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  PlotRange->{{0., 12.}, {All, All}},
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.6180384814226213`*^9, 3.618038485282009*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"StandardDeviation", "[", " ", 
  RowBox[{"Table", "[", " ", 
   RowBox[{
    RowBox[{"StandardDeviation", "[", " ", 
     RowBox[{"RandomVariate", "[", 
      RowBox[{
       RowBox[{"NormalDistribution", "[", 
        RowBox[{"20", ",", "3"}], "]"}], " ", ",", "2"}], "]"}], " ", "]"}], 
    ",", " ", 
    RowBox[{"{", "10000", "}"}]}], "]"}], " ", "]"}]], "Input",
 CellChangeTimes->{{3.6180385491413264`*^9, 3.618038557391323*^9}}],

Cell[BoxData["1.8103878947382275`"], "Output",
 CellChangeTimes->{3.6180385580163136`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Histogram", "[", " ", 
  RowBox[{"Table", "[", " ", 
   RowBox[{
    RowBox[{"StandardDeviation", "[", " ", 
     RowBox[{"RandomVariate", "[", 
      RowBox[{
       RowBox[{"NormalDistribution", "[", 
        RowBox[{"20", ",", "3"}], "]"}], " ", ",", "3"}], "]"}], " ", "]"}], 
    ",", " ", 
    RowBox[{"{", "10000", "}"}]}], "]"}], " ", "]"}]], "Input",
 CellChangeTimes->{{3.618038498344493*^9, 3.6180384986413736`*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
    Opacity[0.567], Thickness[Small]}], {}, 
    {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
     Opacity[0.567], Thickness[Small]}], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{0., 0}, {0.5, 249}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{33.119895916733384`, 50.38277990813704}, {
          57.824961791100264`, 90.69145508924971}}],
        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.5, 0}, {1., 736}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{49.88277990813704, 
          67.1456638995407}, {-5.478179719738222, 90.69145508924971}}],
        StatusArea[#, 736]& ,
        TagBoxNote->"736"],
       StyleBox["736", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[736, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{1., 0}, {1.5, 1165}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{66.6456638995407, 
          83.90854789094433}, {-61.2421380526945, 90.69145508924971}}],
        StatusArea[#, 1165]& ,
        TagBoxNote->"1165"],
       StyleBox["1165", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1165, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{1.5, 0}, {2., 1304}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{83.40854789094433, 
          100.67143188234799`}, {-79.3101804962398, 90.69145508924971}}],
        StatusArea[#, 1304]& ,
        TagBoxNote->"1304"],
       StyleBox["1304", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1304, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{2., 0}, {2.5, 1467}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{100.17143188234799`, 
          117.43431587375164`}, {-100.49788494442599`, 90.69145508924971}}],
        StatusArea[#, 1467]& ,
        TagBoxNote->"1467"],
       StyleBox["1467", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1467, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{2.5, 0}, {3., 1321}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{116.93431587375164`, 
          134.19719986515528`}, {-81.51994108286043, 90.69145508924971}}],
        StatusArea[#, 1321]& ,
        TagBoxNote->"1321"],
       StyleBox["1321", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1321, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{3., 0}, {3.5, 1109}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{133.69719986515528`, 
          150.96008385655892`}, {-53.96292670853238, 90.69145508924971}}],
        StatusArea[#, 1109]& ,
        TagBoxNote->"1109"],
       StyleBox["1109", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1109, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{3.5, 0}, {4., 919}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{150.46008385655892`, 
          167.7229678479626}, {-29.265602505125173`, 90.69145508924971}}],
        StatusArea[#, 919]& ,
        TagBoxNote->"919"],
       StyleBox["919", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[919, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{4., 0}, {4.5, 659}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{167.2229678479626, 184.48585183936623`}, {
          4.530735878484691, 90.69145508924971}}],
        StatusArea[#, 659]& ,
        TagBoxNote->"659"],
       StyleBox["659", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[659, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{4.5, 0}, {5., 456}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{183.98585183936623`, 201.2487358307699}, {
          30.917877001072405`, 90.69145508924971}}],
        StatusArea[#, 456]& ,
        TagBoxNote->"456"],
       StyleBox["456", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[456, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{5., 0}, {5.5, 261}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{200.7487358307699, 218.01161982217354`}, {
          56.26513078877981, 90.69145508924971}}],
        StatusArea[#, 261]& ,
        TagBoxNote->"261"],
       StyleBox["261", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[261, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{5.5, 0}, {6., 174}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{217.51161982217354`, 234.77450381357718`}, {
          67.5739055556031, 90.69145508924971}}],
        StatusArea[#, 174]& ,
        TagBoxNote->"174"],
       StyleBox["174", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[174, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{6., 0}, {6.5, 99}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{234.27450381357718`, 251.53738780498085`}, {
          77.32284932010596, 90.69145508924971}}],
        StatusArea[#, 99]& ,
        TagBoxNote->"99"],
       StyleBox["99", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[99, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{6.5, 0}, {7., 52}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{251.03738780498085`, 268.3002717963845}, {
          83.43218741252774, 90.69145508924971}}],
        StatusArea[#, 52]& ,
        TagBoxNote->"52"],
       StyleBox["52", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[52, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{7., 0}, {7.5, 17}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{267.8002717963845, 285.06315578778816`}, {
          87.98169450262907, 90.69145508924971}}],
        StatusArea[#, 17]& ,
        TagBoxNote->"17"],
       StyleBox["17", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[17, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{7.5, 0}, {8., 3}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{284.56315578778816`, 301.8260397791918}, {
          89.8014973386696, 90.69145508924971}}],
        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[{8., 0}, {8.5, 7}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{301.3260397791918, 318.58892377059544`}, {
          89.28155367122945, 90.69145508924971}}],
        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[{8.5, 0}, {9., 1}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{318.08892377059544`, 335.3518077619991}, {
          90.06146917238968, 90.69145508924971}}],
        StatusArea[#, 1]& ,
        TagBoxNote->"1"],
       StyleBox["1", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{9., 0}, {9.5, 1}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{334.8518077619991, 352.1146917534028}, {
          90.06146917238968, 90.69145508924971}}],
        StatusArea[#, 1]& ,
        TagBoxNote->"1"],
       StyleBox["1", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1, {}], 
       "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{-0.19, 0},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  PlotRange->{{0., 9.5}, {All, All}},
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.618038495016369*^9, 3.618038498985116*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"StandardDeviation", "[", " ", 
  RowBox[{"Table", "[", " ", 
   RowBox[{
    RowBox[{"StandardDeviation", "[", " ", 
     RowBox[{"RandomVariate", "[", 
      RowBox[{
       RowBox[{"NormalDistribution", "[", 
        RowBox[{"20", ",", "3"}], "]"}], " ", ",", "3"}], "]"}], " ", "]"}], 
    ",", " ", 
    RowBox[{"{", "10000", "}"}]}], "]"}], " ", "]"}]], "Input",
 CellChangeTimes->{{3.6180385689852247`*^9, 3.618038569750845*^9}}],

Cell[BoxData["1.3908743778916037`"], "Output",
 CellChangeTimes->{3.6180385700789657`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Histogram", "[", " ", 
  RowBox[{"Table", "[", " ", 
   RowBox[{
    RowBox[{"StandardDeviation", "[", " ", 
     RowBox[{"RandomVariate", "[", 
      RowBox[{
       RowBox[{"NormalDistribution", "[", 
        RowBox[{"20", ",", "3"}], "]"}], " ", ",", "4"}], "]"}], " ", "]"}], 
    ",", " ", 
    RowBox[{"{", "10000", "}"}]}], "]"}], " ", "]"}]], "Input",
 CellChangeTimes->{{3.6180385032195024`*^9, 3.61803850345387*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
    Opacity[0.588], Thickness[Small]}], {}, 
    {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
     Opacity[0.588], Thickness[Small]}], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{0., 0}, {0.5, 65}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{33.11989591673338, 53.52582065652521}, {
          82.30169881796459, 90.69145508924971}}],
        StatusArea[#, 65]& ,
        TagBoxNote->"65"],
       StyleBox["65", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[65, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{0.5, 0}, {1., 433}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{53.02582065652521, 73.43174539631704}, {
          37.63354023591961, 90.69145508924971}}],
        StatusArea[#, 433]& ,
        TagBoxNote->"433"],
       StyleBox["433", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[433, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{1., 0}, {1.5, 921}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{72.93174539631704, 
          93.33767013610887}, {-21.600322231574822`, 90.69145508924971}}],
        StatusArea[#, 921]& ,
        TagBoxNote->"921"],
       StyleBox["921", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[921, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{1.5, 0}, {2., 1385}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{92.83767013610887, 
          113.2435948759007}, {-77.92104392197938, 90.69145508924971}}],
        StatusArea[#, 1385]& ,
        TagBoxNote->"1385"],
       StyleBox["1385", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1385, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{2., 0}, {2.5, 1562}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{112.7435948759007, 
          133.14951961569253`}, {-99.40545715301731, 90.69145508924971}}],
        StatusArea[#, 1562]& ,
        TagBoxNote->"1562"],
       StyleBox["1562", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1562, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{2.5, 0}, {3., 1571}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{132.64951961569253`, 
          153.05544435548438`}, {-100.49788494442602`, 90.69145508924971}}],
        StatusArea[#, 1571]& ,
        TagBoxNote->"1571"],
       StyleBox["1571", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1571, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{3., 0}, {3.5, 1409}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{152.55544435548438`, 
          172.9613690952762}, {-80.83418469906927, 90.69145508924971}}],
        StatusArea[#, 1409]& ,
        TagBoxNote->"1409"],
       StyleBox["1409", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1409, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{3.5, 0}, {4., 1179}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{172.4613690952762, 
          192.86729383506804`}, {-52.916585585291145`, 90.69145508924971}}],
        StatusArea[#, 1179]& ,
        TagBoxNote->"1179"],
       StyleBox["1179", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1179, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{4., 0}, {4.5, 660}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{192.36729383506804`, 212.77321857485987`}, {
          10.080083719277738`, 90.69145508924971}}],
        StatusArea[#, 660]& ,
        TagBoxNote->"660"],
       StyleBox["660", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[660, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{4.5, 0}, {5., 405}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{212.27321857485987`, 232.6791433146517}, {
          41.03220447585782, 90.69145508924971}}],
        StatusArea[#, 405]& ,
        TagBoxNote->"405"],
       StyleBox["405", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[405, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{5., 0}, {5.5, 247}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{232.1791433146517, 252.58506805444352`}, {
          60.21038125836626, 90.69145508924971}}],
        StatusArea[#, 247]& ,
        TagBoxNote->"247"],
       StyleBox["247", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[247, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{5.5, 0}, {6., 98}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{252.08506805444352`, 272.49099279423535`}, {
          78.29613024946599, 90.69145508924971}}],
        StatusArea[#, 98]& ,
        TagBoxNote->"98"],
       StyleBox["98", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[98, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{6., 0}, {6.5, 47}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{271.99099279423535`, 292.3969175340272}, {
          84.48655440078201, 90.69145508924971}}],
        StatusArea[#, 47]& ,
        TagBoxNote->"47"],
       StyleBox["47", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[47, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{6.5, 0}, {7., 14}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{291.8969175340272, 312.302842273819}, {
          88.49212296928062, 90.69145508924971}}],
        StatusArea[#, 14]& ,
        TagBoxNote->"14"],
       StyleBox["14", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[14, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{7., 0}, {7.5, 3}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{311.802842273819, 332.20876701361084`}, {
          89.82731249211348, 90.69145508924971}}],
        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[{7.5, 0}, {8., 1}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{331.70876701361084`, 352.11469175340267`}, {
          90.07007422353763, 90.69145508924971}}],
        StatusArea[#, 1]& ,
        TagBoxNote->"1"],
       StyleBox["1", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1, {}], 
       "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{-0.16, 0},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  PlotRange->{{0., 8.}, {All, All}},
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.618038504063241*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"StandardDeviation", "[", " ", 
  RowBox[{"Table", "[", " ", 
   RowBox[{
    RowBox[{"StandardDeviation", "[", " ", 
     RowBox[{"RandomVariate", "[", 
      RowBox[{
       RowBox[{"NormalDistribution", "[", 
        RowBox[{"20", ",", "3"}], "]"}], " ", ",", "4"}], "]"}], " ", "]"}], 
    ",", " ", 
    RowBox[{"{", "10000", "}"}]}], "]"}], " ", "]"}]], "Input",
 CellChangeTimes->{{3.6180385786570997`*^9, 3.6180385789696007`*^9}}],

Cell[BoxData["1.164075986837084`"], "Output",
 CellChangeTimes->{3.618038579344588*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Histogram", "[", " ", 
  RowBox[{"Table", "[", " ", 
   RowBox[{
    RowBox[{"StandardDeviation", "[", " ", 
     RowBox[{"RandomVariate", "[", 
      RowBox[{
       RowBox[{"NormalDistribution", "[", 
        RowBox[{"20", ",", "3"}], "]"}], " ", ",", "5"}], "]"}], " ", "]"}], 
    ",", " ", 
    RowBox[{"{", "10000", "}"}]}], "]"}], " ", "]"}]], "Input",
 CellChangeTimes->{{3.618038511422587*^9, 3.618038517406951*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
    Opacity[0.595], Thickness[Small]}], {}, 
    {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
     Opacity[0.595], Thickness[Small]}], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{0., 0}, {0.5, 14}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{33.119895916733384`, 54.85288230584467}, {
          90.7777785712922, 92.66317076665881}}],
        StatusArea[#, 14]& ,
        TagBoxNote->"14"],
       StyleBox["14", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[14, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{0.5, 0}, {1., 191}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{54.35288230584467, 76.08586869495596}, {
          73.2624629584429, 92.66317076665881}}],
        StatusArea[#, 191]& ,
        TagBoxNote->"191"],
       StyleBox["191", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[191, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{1., 0}, {1.5, 671}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{75.58586869495596, 97.31885508406725}, {
          25.763301974444772`, 92.66317076665881}}],
        StatusArea[#, 671]& ,
        TagBoxNote->"671"],
       StyleBox["671", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[671, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{1.5, 0}, {2., 1302}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{96.81885508406725, 
          118.55184147317854`}, {-36.67830340243607, 92.66317076665881}}],
        StatusArea[#, 1302]& ,
        TagBoxNote->"1302"],
       StyleBox["1302", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1302, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{2., 0}, {2.5, 1781}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{118.05184147317854`, 
          139.78482786228983`}, {-84.07850780105086, 92.66317076665881}}],
        StatusArea[#, 1781]& ,
        TagBoxNote->"1781"],
       StyleBox["1781", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1781, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{2.5, 0}, {3., 1927}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{139.28482786228983`, 
          161.01781425140112`}, {-98.52616926701695, 92.66317076665881}}],
        StatusArea[#, 1927]& ,
        TagBoxNote->"1927"],
       StyleBox["1927", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1927, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{3., 0}, {3.5, 1628}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{160.51781425140112`, 
          182.2508006405124}, {-68.93815023740147, 92.66317076665881}}],
        StatusArea[#, 1628]& ,
        TagBoxNote->"1628"],
       StyleBox["1628", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1628, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{3.5, 0}, {4., 1151}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{181.7508006405124, 
          203.4837870296237}, {-21.735859009553337`, 92.66317076665881}}],
        StatusArea[#, 1151]& ,
        TagBoxNote->"1151"],
       StyleBox["1151", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1151, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{4., 0}, {4.5, 726}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{202.9837870296237, 224.716773418735}, {
          20.320689778361654`, 92.66317076665881}}],
        StatusArea[#, 726]& ,
        TagBoxNote->"726"],
       StyleBox["726", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[726, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{4.5, 0}, {5., 369}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{224.216773418735, 245.94975980784628`}, {
          55.648190760210255`, 92.66317076665881}}],
        StatusArea[#, 369]& ,
        TagBoxNote->"369"],
       StyleBox["369", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[369, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{5., 0}, {5.5, 154}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{245.44975980784628`, 267.18274619695757`}, {
          76.92385661762609, 92.66317076665881}}],
        StatusArea[#, 154]& ,
        TagBoxNote->"154"],
       StyleBox["154", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[154, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{5.5, 0}, {6., 56}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{266.68274619695757`, 288.4157325860689}, {
          86.62160198519236, 92.66317076665881}}],
        StatusArea[#, 56]& ,
        TagBoxNote->"56"],
       StyleBox["56", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[56, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{6., 0}, {6.5, 21}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{287.9157325860689, 309.64871897518015`}, {
          90.08508247360889, 92.66317076665881}}],
        StatusArea[#, 21]& ,
        TagBoxNote->"21"],
       StyleBox["21", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[21, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{6.5, 0}, {7., 7}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{309.14871897518015`, 330.8817053642914}, {
          91.4704746689755, 92.66317076665881}}],
        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[{7., 0}, {7.5, 2}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{330.3817053642914, 352.1146917534028}, {
          91.96525759589215, 92.66317076665881}}],
        StatusArea[#, 2]& ,
        TagBoxNote->"2"],
       StyleBox["2", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[2, {}], 
       "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{-0.15, 0},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  PlotRange->{{0., 7.5}, {All, All}},
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.618038507860077*^9, 3.618038512188201*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"StandardDeviation", "[", " ", 
  RowBox[{"Table", "[", " ", 
   RowBox[{
    RowBox[{"StandardDeviation", "[", " ", 
     RowBox[{"RandomVariate", "[", 
      RowBox[{
       RowBox[{"NormalDistribution", "[", 
        RowBox[{"20", ",", "3"}], "]"}], " ", ",", "5"}], "]"}], " ", "]"}], 
    ",", " ", 
    RowBox[{"{", "10000", "}"}]}], "]"}], " ", "]"}]], "Input",
 CellChangeTimes->{{3.6180385849695873`*^9, 3.6180385852664647`*^9}}],

Cell[BoxData["1.0392712521699428`"], "Output",
 CellChangeTimes->{3.618038585750839*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Histogram", "[", " ", 
  RowBox[{"Table", "[", " ", 
   RowBox[{
    RowBox[{"StandardDeviation", "[", " ", 
     RowBox[{"RandomVariate", "[", 
      RowBox[{
       RowBox[{"NormalDistribution", "[", 
        RowBox[{"20", ",", "3"}], "]"}], " ", ",", "6"}], "]"}], " ", "]"}], 
    ",", " ", 
    RowBox[{"{", "10000", "}"}]}], "]"}], " ", "]"}]], "Input",
 CellChangeTimes->{{3.618038526219446*^9, 3.618038526438197*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
    Opacity[0.595], Thickness[Small]}], {}, 
    {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
     Opacity[0.595], Thickness[Small]}], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{0., 0}, {0.5, 7}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{33.11989591673338, 54.852882305844666`}, {
          89.56507058421181, 90.6914550892497}}],
        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.5, 0}, {1., 81}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{54.352882305844666`, 76.08586869495596}, {
          82.94329153095418, 90.6914550892497}}],
        StatusArea[#, 81]& ,
        TagBoxNote->"81"],
       StyleBox["81", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[81, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{1., 0}, {1.5, 491}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{75.58586869495596, 97.31885508406725}, {
          46.25505623587815, 90.6914550892497}}],
        StatusArea[#, 491]& ,
        TagBoxNote->"491"],
       StyleBox["491", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[491, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{1.5, 0}, {2., 1248}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{96.81885508406725, 
          118.55184147317854`}, {-21.48395380893298, 90.6914550892497}}],
        StatusArea[#, 1248]& ,
        TagBoxNote->"1248"],
       StyleBox["1248", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1248, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{2., 0}, {2.5, 1926}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{118.05184147317854`, 
          139.78482786228983`}, {-82.15376729688799, 90.6914550892497}}],
        StatusArea[#, 1926]& ,
        TagBoxNote->"1926"],
       StyleBox["1926", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1926, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{2.5, 0}, {3., 2131}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{139.28482786228983`, 
          161.01781425140112`}, {-100.497884944426, 90.6914550892497}}],
        StatusArea[#, 2131]& ,
        TagBoxNote->"2131"],
       StyleBox["2131", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[2131, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{3., 0}, {3.5, 1725}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{160.51781425140112`, 
          182.2508006405124}, {-64.16758365222876, 90.6914550892497}}],
        StatusArea[#, 1725]& ,
        TagBoxNote->"1725"],
       StyleBox["1725", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1725, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{3.5, 0}, {4., 1241}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{181.7508006405124, 
          203.4837870296237}, {-20.85756930389509, 90.6914550892497}}],
        StatusArea[#, 1241]& ,
        TagBoxNote->"1241"],
       StyleBox["1241", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1241, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{4., 0}, {4.5, 667}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{202.9837870296237, 224.716773418735}, {
          30.505960109211365`, 90.6914550892497}}],
        StatusArea[#, 667]& ,
        TagBoxNote->"667"],
       StyleBox["667", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[667, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{4.5, 0}, {5., 322}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{224.216773418735, 245.94975980784628`}, {
          61.37776785750705, 90.6914550892497}}],
        StatusArea[#, 322]& ,
        TagBoxNote->"322"],
       StyleBox["322", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[322, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{5., 0}, {5.5, 101}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{245.44975980784628`, 267.18274619695757`}, {
          81.15362151656024, 90.6914550892497}}],
        StatusArea[#, 101]& ,
        TagBoxNote->"101"],
       StyleBox["101", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[101, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{5.5, 0}, {6., 47}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{266.68274619695757`, 288.4157325860688}, {
          85.98573055542391, 90.6914550892497}}],
        StatusArea[#, 47]& ,
        TagBoxNote->"47"],
       StyleBox["47", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[47, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{6., 0}, {6.5, 10}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{287.9157325860688, 309.6487189751801}, {
          89.29662008205273, 90.6914550892497}}],
        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[{6.5, 0}, {7., 2}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{309.1487189751801, 330.8817053642914}, {
          90.01248808781031, 90.6914550892497}}],
        StatusArea[#, 2]& ,
        TagBoxNote->"2"],
       StyleBox["2", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[2, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{7., 0}, {7.5, 1}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{330.3817053642914, 352.1146917534027}, {
          90.10197158853, 90.6914550892497}}],
        StatusArea[#, 1]& ,
        TagBoxNote->"1"],
       StyleBox["1", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1, {}], 
       "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{-0.15, 0},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  PlotRange->{{0., 7.5}, {All, All}},
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.618038526860072*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"StandardDeviation", "[", " ", 
  RowBox[{"Table", "[", " ", 
   RowBox[{
    RowBox[{"StandardDeviation", "[", " ", 
     RowBox[{"RandomVariate", "[", 
      RowBox[{
       RowBox[{"NormalDistribution", "[", 
        RowBox[{"20", ",", "3"}], "]"}], " ", ",", "6"}], "]"}], " ", "]"}], 
    ",", " ", 
    RowBox[{"{", "10000", "}"}]}], "]"}], " ", "]"}]], "Input",
 CellChangeTimes->{{3.618038592250847*^9, 3.618038592766471*^9}}],

Cell[BoxData["0.916435472307984`"], "Output",
 CellChangeTimes->{3.6180385934383373`*^9}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1904, 943},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"10.0 for Microsoft Windows (64-bit) (July 1, 2014)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 135, 1, 101, "Title"],
Cell[CellGroupData[{
Cell[740, 27, 258, 6, 31, "Input"],
Cell[1001, 35, 178, 4, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1216, 44, 127, 2, 31, "Input"],
Cell[1346, 48, 90, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1473, 54, 140, 2, 31, "Input"],
Cell[1616, 58, 87, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1740, 64, 392, 10, 31, "Input"],
Cell[2135, 76, 422, 8, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2594, 89, 451, 11, 31, "Input"],
Cell[3048, 102, 8367, 240, 233, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11452, 347, 459, 11, 31, "Input"],
Cell[11914, 360, 90, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12041, 366, 451, 11, 31, "Input"],
Cell[12495, 379, 12712, 366, 233, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[25244, 750, 459, 11, 31, "Input"],
Cell[25706, 763, 90, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[25833, 769, 450, 11, 31, "Input"],
Cell[26286, 782, 10827, 312, 233, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[37150, 1099, 461, 11, 31, "Input"],
Cell[37614, 1112, 87, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[37738, 1118, 449, 11, 31, "Input"],
Cell[38190, 1131, 10227, 294, 236, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[48454, 1430, 461, 11, 31, "Input"],
Cell[48918, 1443, 88, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[49043, 1449, 449, 11, 31, "Input"],
Cell[49495, 1462, 10169, 294, 233, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[59701, 1761, 457, 11, 31, "Input"],
Cell[60161, 1774, 89, 1, 64, "Output"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)