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

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

(* CreatedBy='Mathematica 10.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     36423,        906]
NotebookOptionsPosition[     35010,        856]
NotebookOutlinePosition[     35420,        874]
CellTagsIndexPosition[     35377,        871]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell["MAP30#2", "Subsubsection",
 CellChangeTimes->{{3.728978072142015*^9, 3.728978078436468*^9}, {
  3.7289787758916683`*^9, 3.728978777915042*^9}, {3.728979117073182*^9, 
  3.728979124168069*^9}, {3.72897937739428*^9, 3.7289793834544497`*^9}, {
  3.728980621199177*^9, 3.728980659270624*^9}, {3.72898742841497*^9, 
  3.728987435586033*^9}, {3.887203586315774*^9, 3.8872035919214087`*^9}, {
  3.889075926817493*^9, 3.889075926969419*^9}}],

Cell[CellGroupData[{

Cell["Question 1", "Subsubsection",
 CellChangeTimes->{{3.728978072142015*^9, 3.728978078436468*^9}, {
  3.7289787758916683`*^9, 3.728978777915042*^9}, {3.728979117073182*^9, 
  3.728979124168069*^9}, {3.72897937739428*^9, 3.7289793834544497`*^9}, {
  3.728980621199177*^9, 3.728980659270624*^9}, {3.72898742841497*^9, 
  3.728987435586033*^9}, {3.8872035562635403`*^9, 3.887203571506999*^9}, {
  3.889075948658783*^9, 3.889075948905105*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"ClearAll", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[ScriptCapitalD]", "=", 
   RowBox[{"WeibullDistribution", "[", 
    RowBox[{"2", ",", "1"}], "]"}]}], ";", " ", 
  RowBox[{"(*", " ", 
   RowBox[{"Weibull", " ", 
    RowBox[{"dist", ".", " ", "shape"}], " ", "and", " ", "scale", " ", 
    RowBox[{"param", ".", " ", "2"}], " ", "and", " ", "1"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"SurvivalFunction", "[", 
   RowBox[{"\[ScriptCapitalD]", ",", "t"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"R", "[", "t_", "]"}], "=", 
   RowBox[{"Exp", "[", 
    RowBox[{"-", 
     SuperscriptBox["t", "2"]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 FractionBox[
  RowBox[{"R", "[", 
   RowBox[{"t", "+", "u"}], "]"}], 
  RowBox[{"R", "[", "t", "]"}]], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FullSimplify", "[", 
   FractionBox[
    FractionBox[
     RowBox[{"R", "[", 
      RowBox[{"t", "+", "u"}], "]"}], 
     RowBox[{"R", "[", "t", "]"}]], 
    RowBox[{"R", "[", "u", "]"}]], "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  SuperscriptBox["\[Mu]", "*"], "=", 
  RowBox[{"Mean", "[", "\[ScriptCapitalD]", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  FractionBox[
   SuperscriptBox["\[Mu]", "*"], "3"], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Lower", " ", "limit", " ", "to", " ", "E", 
     RowBox[{"(", "TT", ")"}]}], ";", " ", 
    RowBox[{"not", " ", "requested"}]}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"N", "[", 
   RowBox[{"%", ",", "6"}], "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"Exp", "[", 
          RowBox[{"-", 
           FractionBox["t", 
            SuperscriptBox["\[Mu]", "*"]]}], "]"}]}], ")"}], "2"]}], ")"}], 
    RowBox[{"\[DifferentialD]", "t"}]}]}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"Upper", " ", "limit", " ", "to", " ", "E", 
    RowBox[{"(", "TT", ")"}]}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"N", "[", 
  RowBox[{"%", ",", "6"}], "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.886663255298806*^9, 3.886663265145617*^9}, {
   3.8866633003841133`*^9, 3.886663323350614*^9}, {3.886666547619432*^9, 
   3.886666564208694*^9}, {3.88907604087598*^9, 3.889076053392647*^9}, {
   3.889076442467484*^9, 3.889076493440548*^9}, {3.889076608342888*^9, 
   3.889076613765264*^9}, {3.88907874297992*^9, 3.889078803584547*^9}, {
   3.889080123564246*^9, 3.8890803338583*^9}, {3.889176655926646*^9, 
   3.8891768279544764`*^9}, {3.889230890351398*^9, 3.889230983275075*^9}, {
   3.889231612811893*^9, 3.889231659540691*^9}, 3.8892326676627083`*^9, {
   3.8892327651608143`*^9, 3.88923286672547*^9}, {3.8892330665876083`*^9, 
   3.8892330725229692`*^9}, {3.889233481153637*^9, 3.889233483431973*^9}, {
   3.8892339073828707`*^9, 3.8892339082127943`*^9}}],

Cell[BoxData[
 TagBox[GridBox[{
    {"\[Piecewise]", GridBox[{
       {
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", 
          SuperscriptBox["t", "2"]}]], 
        RowBox[{"t", ">", "0"}]},
       {"1", 
        TagBox["True",
         "PiecewiseDefault",
         AutoDelete->True]}
      },
      AllowedDimensions->{2, Automatic},
      Editable->True,
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxItemSize->{
       "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.84]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}},
      Selectable->True]}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxItemSize->{
    "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[0.35]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  "Piecewise",
  DeleteWithContents->True,
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{
  3.889176730914851*^9, {3.8891768167960587`*^9, 3.889176828555921*^9}, 
   3.889230909149411*^9, 3.889230945140864*^9, 3.889231660372856*^9, 
   3.889232782631487*^9, 3.889232867523501*^9, 3.889233073194221*^9, 
   3.889233517067259*^9, 3.8892339088243647`*^9}],

Cell[BoxData[
 SuperscriptBox["\[ExponentialE]", 
  RowBox[{
   SuperscriptBox["t", "2"], "-", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"t", "+", "u"}], ")"}], "2"]}]]], "Output",
 CellChangeTimes->{
  3.889176730914851*^9, {3.8891768167960587`*^9, 3.889176828555921*^9}, 
   3.889230909149411*^9, 3.889230945140864*^9, 3.889231660372856*^9, 
   3.889232782631487*^9, 3.889232867523501*^9, 3.889233073194221*^9, 
   3.889233517067259*^9, 3.889233908831134*^9}],

Cell[BoxData[
 SuperscriptBox["\[ExponentialE]", 
  RowBox[{
   RowBox[{"-", "2"}], " ", "t", " ", "u"}]]], "Output",
 CellChangeTimes->{
  3.889176730914851*^9, {3.8891768167960587`*^9, 3.889176828555921*^9}, 
   3.889230909149411*^9, 3.889230945140864*^9, 3.889231660372856*^9, 
   3.889232782631487*^9, 3.889232867523501*^9, 3.889233073194221*^9, 
   3.889233517067259*^9, 3.889233908836063*^9}],

Cell[BoxData[
 FractionBox[
  SqrtBox["\[Pi]"], "2"]], "Output",
 CellChangeTimes->{
  3.889176730914851*^9, {3.8891768167960587`*^9, 3.889176828555921*^9}, 
   3.889230909149411*^9, 3.889230945140864*^9, 3.889231660372856*^9, 
   3.889232782631487*^9, 3.889232867523501*^9, 3.889233073194221*^9, 
   3.889233517067259*^9, 3.8892339088409643`*^9}],

Cell[BoxData[
 FractionBox[
  SqrtBox["\[Pi]"], "6"]], "Output",
 CellChangeTimes->{
  3.889176730914851*^9, {3.8891768167960587`*^9, 3.889176828555921*^9}, 
   3.889230909149411*^9, 3.889230945140864*^9, 3.889231660372856*^9, 
   3.889232782631487*^9, 3.889232867523501*^9, 3.889233073194221*^9, 
   3.889233517067259*^9, 3.8892339088458557`*^9}],

Cell[BoxData["0.2954089751509193378830279138901908638`6."], "Output",
 CellChangeTimes->{
  3.889176730914851*^9, {3.8891768167960587`*^9, 3.889176828555921*^9}, 
   3.889230909149411*^9, 3.889230945140864*^9, 3.889231660372856*^9, 
   3.889232782631487*^9, 3.889232867523501*^9, 3.889233073194221*^9, 
   3.889233517067259*^9, 3.8892339088506527`*^9}],

Cell[BoxData[
 FractionBox[
  RowBox[{"3", " ", 
   SqrtBox["\[Pi]"]}], "4"]], "Output",
 CellChangeTimes->{
  3.889176730914851*^9, {3.8891768167960587`*^9, 3.889176828555921*^9}, 
   3.889230909149411*^9, 3.889230945140864*^9, 3.889231660372856*^9, 
   3.889232782631487*^9, 3.889232867523501*^9, 3.889233073194221*^9, 
   3.889233517067259*^9, 3.889233908986492*^9}],

Cell[BoxData["1.3293403881791370204736256125058588871`6."], "Output",
 CellChangeTimes->{
  3.889176730914851*^9, {3.8891768167960587`*^9, 3.889176828555921*^9}, 
   3.889230909149411*^9, 3.889230945140864*^9, 3.889231660372856*^9, 
   3.889232782631487*^9, 3.889232867523501*^9, 3.889233073194221*^9, 
   3.889233517067259*^9, 3.889233908992794*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"ClearAll", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[ScriptCapitalD]", "=", 
   RowBox[{"WeibullDistribution", "[", 
    RowBox[{"2", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"xis", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     SubscriptBox["x", "i"], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "4"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dists", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       SubscriptBox["x", "i"], ",", "\[ScriptCapitalD]"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "4"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[ScriptCapitalR]3OutOf4", "=", 
   RowBox[{"ReliabilityDistribution", "[", 
    RowBox[{
     RowBox[{"BooleanCountingFunction", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"3", ",", "4"}], "}"}], ",", "xis"}], "]"}], ",", "dists"}], 
    "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Mean", "[", "\[ScriptCapitalR]3OutOf4", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"exact", " ", "expected", " ", "value"}], ";", " ", 
    RowBox[{"not", " ", "requested"}]}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"N", "[", 
   RowBox[{"%", ",", "6"}], "]"}], " ", 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "alternative", " ", "way", " ", "of", " ", "obtaining", " ", "the", " ", 
    "exact", " ", "expected", " ", "value"}], " ", "*)"}], 
  RowBox[{
   RowBox[{
    RowBox[{"R3OutOf4", "[", "t_", "]"}], "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{"1", "-", 
      RowBox[{"CDF", "[", 
       RowBox[{
        RowBox[{"BinomialDistribution", "[", 
         RowBox[{"4", ",", 
          RowBox[{"Exp", "[", 
           RowBox[{"-", 
            SuperscriptBox["t", "2"]}], "]"}]}], "]"}], ",", 
        RowBox[{"3", "-", "1"}]}], "]"}]}], "]"}]}], 
   ";"}]}], "\[IndentingNewLine]", 
 RowBox[{
  SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
  RowBox[{
   RowBox[{"R3OutOf4", "[", "t", "]"}], 
   RowBox[{"\[DifferentialD]", "t"}]}]}]}], "Input",
 CellChangeTimes->{{3.728979853872548*^9, 3.728979880886641*^9}, {
   3.728979921471068*^9, 3.728979942575539*^9}, {3.728979985995515*^9, 
   3.728980044998125*^9}, {3.7289801184331503`*^9, 3.72898011944411*^9}, {
   3.728980304135112*^9, 3.728980415878434*^9}, {3.728980453326673*^9, 
   3.7289804668584003`*^9}, {3.728980533634145*^9, 3.728980558335972*^9}, {
   3.7289873363265963`*^9, 3.7289873374658527`*^9}, {3.728988818055292*^9, 
   3.728988879794289*^9}, {3.7289889224036207`*^9, 3.728988964836051*^9}, {
   3.729271114531703*^9, 3.7292712522778788`*^9}, 3.734183429367352*^9, {
   3.889232649669979*^9, 3.889232771296104*^9}, {3.889233081399592*^9, 
   3.8892332745600367`*^9}, {3.8892333075685062`*^9, 3.889233428880288*^9}, {
   3.8892334909921913`*^9, 3.8892334932632008`*^9}, 3.8902224500361*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "12"], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", "9"}], "+", 
    RowBox[{"8", " ", 
     SqrtBox["3"]}]}], ")"}], " ", 
  SqrtBox["\[Pi]"]}]], "Output",
 CellChangeTimes->{
  3.889232621681449*^9, 3.889232746154642*^9, {3.889233147059497*^9, 
   3.889233174453991*^9}, 3.889233281760413*^9, {3.889233313297872*^9, 
   3.8892333368139057`*^9}, {3.8892333915175047`*^9, 3.889233430094584*^9}, 
   3.889233524020568*^9}],

Cell[BoxData["0.71731302771383995648547763727267083431`6."], "Output",
 CellChangeTimes->{
  3.889232621681449*^9, 3.889232746154642*^9, {3.889233147059497*^9, 
   3.889233174453991*^9}, 3.889233281760413*^9, {3.889233313297872*^9, 
   3.8892333368139057`*^9}, {3.8892333915175047`*^9, 3.889233430094584*^9}, 
   3.88923352402949*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "12"], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", "9"}], "+", 
    RowBox[{"8", " ", 
     SqrtBox["3"]}]}], ")"}], " ", 
  SqrtBox["\[Pi]"]}]], "Output",
 CellChangeTimes->{
  3.889232621681449*^9, 3.889232746154642*^9, {3.889233147059497*^9, 
   3.889233174453991*^9}, 3.889233281760413*^9, {3.889233313297872*^9, 
   3.8892333368139057`*^9}, {3.8892333915175047`*^9, 3.889233430094584*^9}, 
   3.8892335241329308`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Question 2", "Subsubsection",
 CellChangeTimes->{{3.728978072142015*^9, 3.728978078436468*^9}, {
  3.7289787758916683`*^9, 3.728978777915042*^9}, {3.728979117073182*^9, 
  3.728979124168069*^9}, {3.72897937739428*^9, 3.7289793834544497`*^9}, {
  3.728980621199177*^9, 3.728980659270624*^9}, {3.72898742841497*^9, 
  3.728987435586033*^9}, {3.8872035562635403`*^9, 3.887203571506999*^9}, {
  3.889075948658783*^9, 3.889075948905105*^9}, {3.889233499580864*^9, 
  3.889233499742189*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"ClearAll", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[ScriptCapitalD]", "=", 
   RowBox[{"WeibullDistribution", "[", 
    RowBox[{"2", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n", "=", "10"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"sorteddata", "=", 
    RowBox[{"Sort", "[", 
     RowBox[{"RandomVariate", "[", 
      RowBox[{"\[ScriptCapitalD]", ",", "n"}], "]"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"t", "=", "sorteddata"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"t", "[", 
    RowBox[{"[", "0", "]"}], "]"}], "=", "0"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"Prepend", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"i", "/", "n"}], ",", 
         FractionBox[
          RowBox[{
           UnderoverscriptBox["\[Sum]", 
            RowBox[{"j", "=", "1"}], "i"], 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"n", "-", "j", "+", "1"}], ")"}], "\[Times]", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"t", "[", 
               RowBox[{"[", "j", "]"}], "]"}], "-", 
              RowBox[{"t", "[", 
               RowBox[{"[", 
                RowBox[{"j", "-", "1"}], "]"}], "]"}]}], ")"}]}]}], 
          RowBox[{
           UnderoverscriptBox["\[Sum]", 
            RowBox[{"j", "=", "1"}], "n"], 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"n", "-", "j", "+", "1"}], ")"}], "\[Times]", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"t", "[", 
               RowBox[{"[", "j", "]"}], "]"}], "-", 
              RowBox[{"t", "[", 
               RowBox[{"[", 
                RowBox[{"j", "-", "1"}], "]"}], "]"}]}], ")"}]}]}]]}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}]}], "]"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"PointSize", "[", "Large", "]"}], ",", "Black"}], "}"}]}]}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.8888354836886997`*^9, 3.888835505801948*^9}, {
   3.88883554425327*^9, 3.888835547752087*^9}, {3.889233626809701*^9, 
   3.8892336720359488`*^9}, {3.8892337244526777`*^9, 3.889233867372076*^9}, {
   3.88923390157498*^9, 3.8892339228691883`*^9}, {3.88923396547701*^9, 
   3.889233992659628*^9}, 3.889234031483694*^9, 3.889234125311685*^9, {
   3.889234260626706*^9, 3.889234269829857*^9}, 3.889248140280731*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {{}, 
    {GrayLevel[0], PointSize[Large], AbsoluteThickness[1.6], 
     PointBox[{{0., 0.}, {0.1, 0.22819097157072143`}, {0.2, 
      0.40289201742757813`}, {0.3, 0.5008025081340982}, {0.4, 
      0.5867192392836431}, {0.5, 0.7195585541549132}, {0.6, 
      0.8618641803812773}, {0.7, 0.8750481419518428}, {0.8, 
      0.914323364984283}, {0.9, 0.9830125459667817}, {1., 1.}}]}, {}}, {}},
  AspectRatio->1,
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{},
  PlotRange->{{0, 1.}, {0, 1.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.889233684157339*^9, 3.88923373301764*^9, 3.8892337742160892`*^9, 
   3.889233808374337*^9, 3.889233870362783*^9, {3.889233927490418*^9, 
   3.889233930556753*^9}, {3.8892340153695*^9, 3.889234032073938*^9}, 
   3.889234095046425*^9, 3.889234126036982*^9, {3.889234261721046*^9, 
   3.889234270435301*^9}, 3.889234303638363*^9, {3.889238960221414*^9, 
   3.889238980835338*^9}, 3.889248141086398*^9, {3.889248185933324*^9, 
   3.8892481880715513`*^9}, {3.889248270564082*^9, 3.889248280838681*^9}, {
   3.889248466080797*^9, 3.889248485367298*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"QuantilePlot", "[", 
     RowBox[{"sorteddata", ",", "\[ScriptCapitalD]", ",", 
      RowBox[{"PlotStyle", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"PointSize", "[", "Large", "]"}], ",", "Black"}], "}"}]}]}], 
     "]"}], "\[IndentingNewLine]", 
    RowBox[{"ProbabilityPlot", "[", 
     RowBox[{"sorteddata", ",", "\[ScriptCapitalD]", ",", 
      RowBox[{"PlotStyle", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"PointSize", "[", "Large", "]"}], ",", "Black"}], "}"}]}]}], 
     "]"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"KolmogorovSmirnovTest", "[", 
    RowBox[{
    "sorteddata", ",", "\[ScriptCapitalD]", ",", 
     "\"\<HypothesisTestData\>\""}], "]"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"\[ScriptCapitalD]estim", "=", 
    RowBox[{"EstimatedDistribution", "[", 
     RowBox[{"sorteddata", ",", 
      RowBox[{"WeibullDistribution", "[", 
       RowBox[{"\[Alpha]", ",", "\[Delta]"}], "]"}]}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"Median", "[", "\[ScriptCapitalD]estim", "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"alphaestim", "=", "2.059"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"deltaestim", "=", "0.962"}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"deltaestim", "\[Times]", 
    RadicalBox[
     RowBox[{"-", 
      RowBox[{"Log", "[", "0.5", "]"}]}], "alphaestim"]}], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{
  3.889233817194682*^9, {3.889233849347568*^9, 3.8892338804269457`*^9}, {
   3.889234000053852*^9, 3.889234009450885*^9}, {3.889234042060933*^9, 
   3.889234113441169*^9}, {3.889234209138648*^9, 3.889234250585215*^9}, {
   3.88923784674092*^9, 3.889237892874805*^9}, {3.8892390150888557`*^9, 
   3.889239030154146*^9}, {3.8892390609124804`*^9, 3.8892391895621557`*^9}, {
   3.889248163862648*^9, 3.88924817044014*^9}, {3.8892482265985193`*^9, 
   3.8892482300277147`*^9}, {3.889248305003709*^9, 3.889248322849828*^9}, {
   3.889248526669374*^9, 3.889248536345892*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox["HypothesisTestData",
    "SummaryHead"], "[", 
   DynamicModuleBox[{Typeset`open$$ = False}, 
    PanelBox[
     PaneSelectorBox[{False->GridBox[{
        {
         PaneBox[
          ButtonBox[
           
           DynamicBox[FEPrivate`FrontEndResource[
            "FEBitmaps", "SquarePlusIconMedium"],
            ImageSizeCache->{12., {0., 12.}}],
           Appearance->None,
           ButtonFunction:>(Typeset`open$$ = True),
           Evaluator->Automatic,
           Method->"Preemptive"],
          Alignment->{Center, Center},
          
          ImageSize->
           Dynamic[{
            Automatic, 3.5 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification]}]], 
         GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGAwA2IQvV+g6N7//+IHyh7/qMr9uMOO7VZyUp+w2IFfkzYn
Sh58Z/f9/5/PG/4KH7htIzfPZbOi/dT38+JNuIUOmB3ymyXb6m1/7+Zl7nol
gQMZNpuWcacV2C9yTOjercBzwDCs3j3VbqL9wyStzVbOHAccTwR7F91faV9i
6/ztoRDLgZ4iRasJkQfs90qxlOq/+b9ffvGd3Q7y5+2dHy5JlXP4sd/n3Lw9
E6Ku2T82OSa5+877/Ru23tpo2nHTfsmXDguHkAf75f3161YvvWYvNsdi39f5
C/f3Rm5wuMtywX7Rd151p+v37C+xnJ1uxHHQnsFk9Sara+/saywuavluXWtf
4Oz1SfLYd/seR+51+6ZPsjdi+tzx8+d/e4sDRVPXWhfZK/ruua11gdlhc3uy
xl9Wf/ur8RuuG3xjd9jltzUx46GivcH9SfKlV7kd4veWPWBI+2Q3J0h42Qlm
AQfhYtWiqpoddl+sTlXzCws56M1lWjdVvMpuQWRF+dd/wg7Ohid4Eh2t7BZJ
16e6i4g5TDt7qs1T4YMtNPwdPDeu6MsQWwLjH0jZLlQ6c4aNPSw+vI9XlDDK
BtjD4iPkrcf+e2ZJ8Pjov7jnbGJEETw+1r3m/37NpBEeH4eOZy+78rofHh/M
fWfi7PfPgsdHX6aSxfEXS+HxwWV2y7Ro8QZ4fLDO/HZputp2eHy0LHnA+J1z
Pzw+rtv/zTtudBgeH51P9674FnoMHh+acsv3TN1wAh4f5z4H3TdoPwmPj/X1
pobmp07A40O35vzB6K5j8PjYe9+N71nBYXh8NH4U7n/EvR8eHwEfWhe9Xbfd
HhYf7kcSN7h3bLCHxUfegdOy63cttYfFR7ef4ONnq2fbw+LDYUfsm8Un+u1h
8dFwaIvgx0+NMP4BBiiAyaPxccoDAAUJngM=
           "], {{{}, 
             {GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.2], EdgeForm[
              None], GraphicsGroupBox[
               PolygonBox[{{1, 53, 54, 25, 24, 23, 22, 21, 20, 19, 18, 17, 16,
                 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2}}]]}, {}, 
             {GrayLevel[0.65], AbsoluteThickness[1.5], Opacity[0.2], EdgeForm[
              None], GraphicsGroupBox[
               PolygonBox[{{26, 51, 52, 50, 49, 48, 47, 46, 45, 44, 43, 42, 
                41, 40, 39, 38, 37, 36, 35, 34, 33, 32, 31, 30, 29, 28, 
                27}}]]}, {}, {}, {}, {}, {}, {}}, {{}, {}, 
             {GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[1.], 
              LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 
               17, 18, 19, 20, 21, 22, 23, 24, 25}]}, 
             {GrayLevel[0.65], AbsoluteThickness[1.5], Opacity[1.], 
              LineBox[{26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39,
                40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50}]}}}],
          AspectRatio->1,
          Axes->{False, False},
          AxesLabel->{None, None},
          AxesOrigin->{0, 0.},
          Background->GrayLevel[0.93],
          BaseStyle->{FontFamily -> "Arial"},
          DisplayFunction->Identity,
          Frame->{{True, True}, {True, True}},
          FrameLabel->{{None, None}, {None, None}},
          FrameStyle->Directive[
            Thickness[Tiny], 
            GrayLevel[0.7]],
          FrameTicks->{{None, None}, {None, None}},
          GridLines->{None, None},
          GridLinesStyle->Directive[
            GrayLevel[0.5, 0.4]],
          ImageSize->{Automatic, 
            Dynamic[
            3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
              Magnification])]},
          LabelStyle->{FontFamily -> "Arial"},
          Method->{"ScalingFunctions" -> None, "AxesInFront" -> True},
          PlotRange->{All, All},
          PlotRangeClipping->True,
          PlotRangePadding->{{0, 0}, {0, 0.1}},
          Ticks->{Automatic, Automatic}], GridBox[{
           {
            RowBox[{
             TagBox["\<\"Type: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["KolmogorovSmirnovTest",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"p-Value: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["0.986354601196041`",
              "SummaryItem"]}]}
          },
          AutoDelete->False,
          
          BaseStyle->{
           ShowStringCharacters -> False, NumberMarks -> False, 
            PrintPrecision -> 3, ShowSyntaxStyles -> False},
          GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}},
          
          GridBoxItemSize->{
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
          GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}
       },
       AutoDelete->False,
       BaselinePosition->{1, 1},
       GridBoxAlignment->{"Rows" -> {{Top}}},
       GridBoxItemSize->{
        "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], True->
      GridBox[{
        {
         PaneBox[
          ButtonBox[
           
           DynamicBox[FEPrivate`FrontEndResource[
            "FEBitmaps", "SquareMinusIconMedium"],
            ImageSizeCache->{12., {0., 12.}}],
           Appearance->None,
           ButtonFunction:>(Typeset`open$$ = False),
           Evaluator->Automatic,
           Method->"Preemptive"],
          Alignment->{Center, Center},
          
          ImageSize->
           Dynamic[{
            Automatic, 3.5 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification]}]], 
         GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGAwA2IQvV+g6N7//+IHyh7/qMr9uMOO7VZyUp+w2IFfkzYn
Sh58Z/f9/5/PG/4KH7htIzfPZbOi/dT38+JNuIUOmB3ymyXb6m1/7+Zl7nol
gQMZNpuWcacV2C9yTOjercBzwDCs3j3VbqL9wyStzVbOHAccTwR7F91faV9i
6/ztoRDLgZ4iRasJkQfs90qxlOq/+b9ffvGd3Q7y5+2dHy5JlXP4sd/n3Lw9
E6Ku2T82OSa5+877/Ru23tpo2nHTfsmXDguHkAf75f3161YvvWYvNsdi39f5
C/f3Rm5wuMtywX7Rd151p+v37C+xnJ1uxHHQnsFk9Sara+/saywuavluXWtf
4Oz1SfLYd/seR+51+6ZPsjdi+tzx8+d/e4sDRVPXWhfZK/ruua11gdlhc3uy
xl9Wf/ur8RuuG3xjd9jltzUx46GivcH9SfKlV7kd4veWPWBI+2Q3J0h42Qlm
AQfhYtWiqpoddl+sTlXzCws56M1lWjdVvMpuQWRF+dd/wg7Ohid4Eh2t7BZJ
16e6i4g5TDt7qs1T4YMtNPwdPDeu6MsQWwLjH0jZLlQ6c4aNPSw+vI9XlDDK
BtjD4iPkrcf+e2ZJ8Pjov7jnbGJEETw+1r3m/37NpBEeH4eOZy+78rofHh/M
fWfi7PfPgsdHX6aSxfEXS+HxwWV2y7Ro8QZ4fLDO/HZputp2eHy0LHnA+J1z
Pzw+rtv/zTtudBgeH51P9674FnoMHh+acsv3TN1wAh4f5z4H3TdoPwmPj/X1
pobmp07A40O35vzB6K5j8PjYe9+N71nBYXh8NH4U7n/EvR8eHwEfWhe9Xbfd
HhYf7kcSN7h3bLCHxUfegdOy63cttYfFR7ef4ONnq2fbw+LDYUfsm8Un+u1h
8dFwaIvgx0+NMP4BBiiAyaPxccoDAAUJngM=
           "], {{{}, 
             {GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.2], EdgeForm[
              None], GraphicsGroupBox[
               PolygonBox[{{1, 53, 54, 25, 24, 23, 22, 21, 20, 19, 18, 17, 16,
                 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2}}]]}, {}, 
             {GrayLevel[0.65], AbsoluteThickness[1.5], Opacity[0.2], EdgeForm[
              None], GraphicsGroupBox[
               PolygonBox[{{26, 51, 52, 50, 49, 48, 47, 46, 45, 44, 43, 42, 
                41, 40, 39, 38, 37, 36, 35, 34, 33, 32, 31, 30, 29, 28, 
                27}}]]}, {}, {}, {}, {}, {}, {}}, {{}, {}, 
             {GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[1.], 
              LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 
               17, 18, 19, 20, 21, 22, 23, 24, 25}]}, 
             {GrayLevel[0.65], AbsoluteThickness[1.5], Opacity[1.], 
              LineBox[{26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39,
                40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50}]}}}],
          AspectRatio->1,
          Axes->{False, False},
          AxesLabel->{None, None},
          AxesOrigin->{0, 0.},
          Background->GrayLevel[0.93],
          BaseStyle->{FontFamily -> "Arial"},
          DisplayFunction->Identity,
          Frame->{{True, True}, {True, True}},
          FrameLabel->{{None, None}, {None, None}},
          FrameStyle->Directive[
            Thickness[Tiny], 
            GrayLevel[0.7]],
          FrameTicks->{{None, None}, {None, None}},
          GridLines->{None, None},
          GridLinesStyle->Directive[
            GrayLevel[0.5, 0.4]],
          ImageSize->{Automatic, 
            Dynamic[
            3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
              Magnification])]},
          LabelStyle->{FontFamily -> "Arial"},
          Method->{"ScalingFunctions" -> None, "AxesInFront" -> True},
          PlotRange->{All, All},
          PlotRangeClipping->True,
          PlotRangePadding->{{0, 0}, {0, 0.1}},
          Ticks->{Automatic, Automatic}], GridBox[{
           {
            RowBox[{
             TagBox["\<\"Type: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["KolmogorovSmirnovTest",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"p-Value: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["0.986354601196041`",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Test: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["\<\"N/A\"\>",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Test statistic: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["0.13109845756468186`",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Data: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["\<\"Univariate\"\>",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Conclusion: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox[
              InterpretationBox[Cell["\<\
The null hypothesis that the data is distributed according to the \
WeibullDistribution[2, 1] is not rejected at the 5 percent level based on the \
Kolmogorov\[Hyphen]Smirnov test.\
\>",
                CellSize->{300, Automatic}],
               TextCell[
               "The null hypothesis that the data is distributed according to \
the WeibullDistribution[2, 1] is not rejected at the 5 percent level based on \
the Kolmogorov\[Hyphen]Smirnov test.", CellSize -> {300, Automatic}]],
              "SummaryItem"]}]}
          },
          AutoDelete->False,
          
          BaseStyle->{
           ShowStringCharacters -> False, NumberMarks -> False, 
            PrintPrecision -> 3, ShowSyntaxStyles -> False},
          GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}},
          
          GridBoxItemSize->{
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
          GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}
       },
       AutoDelete->False,
       BaselinePosition->{1, 1},
       GridBoxAlignment->{"Rows" -> {{Top}}},
       GridBoxItemSize->{
        "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[
      Typeset`open$$],
      ImageSize->Automatic],
     BaselinePosition->Baseline],
    DynamicModuleValues:>{}], "]"}],
  HypothesisTestData[
  KolmogorovSmirnovTest, {{0.1941933629193035, 0.35938532845656546`, 
    0.46353913943176017`, 0.5679908677245681, 0.7564040573816158, 
    0.9986117830336402, 1.0266610723675247`, 1.1380734212373613`, 
    1.4303501699480357`, 1.5749155225314688`}, "SampleToNull", 1, 
    Rational[1, 20], {
     WeibullDistribution[2, 1], Automatic}, Automatic, {}}, {
   "Normality" -> 0, "EqualVariance" -> 0, "Symmetry" -> 0}],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{
  3.889233881395093*^9, 3.889233937859603*^9, {3.8892340103770933`*^9, 
   3.889234037562571*^9}, {3.889234098022204*^9, 3.889234130050836*^9}, {
   3.889234214112239*^9, 3.88923430746096*^9}, {3.88923789001477*^9, 
   3.889237895372003*^9}, {3.889238962571788*^9, 3.889238984858754*^9}, 
   3.8892390309068317`*^9, {3.889239174276945*^9, 3.889239190028845*^9}, {
   3.88924816517556*^9, 3.889248193313669*^9}, 3.8892482306800947`*^9, {
   3.8892482747286377`*^9, 3.8892482838383408`*^9}, 3.889248323539668*^9, {
   3.889248470358526*^9, 3.8892484880066977`*^9}, 3.889248582224606*^9}],

Cell[BoxData[
 RowBox[{"WeibullDistribution", "[", 
  RowBox[{"2.0589929766392365`", ",", "0.9618938973276591`"}], 
  "]"}]], "Output",
 CellChangeTimes->{
  3.889233881395093*^9, 3.889233937859603*^9, {3.8892340103770933`*^9, 
   3.889234037562571*^9}, {3.889234098022204*^9, 3.889234130050836*^9}, {
   3.889234214112239*^9, 3.88923430746096*^9}, {3.88923789001477*^9, 
   3.889237895372003*^9}, {3.889238962571788*^9, 3.889238984858754*^9}, 
   3.8892390309068317`*^9, {3.889239174276945*^9, 3.889239190028845*^9}, {
   3.88924816517556*^9, 3.889248193313669*^9}, 3.8892482306800947`*^9, {
   3.8892482747286377`*^9, 3.8892482838383408`*^9}, 3.889248323539668*^9, {
   3.889248470358526*^9, 3.8892484880066977`*^9}, 3.889248582234735*^9}],

Cell[BoxData["0.8050450509204408`"], "Output",
 CellChangeTimes->{
  3.889233881395093*^9, 3.889233937859603*^9, {3.8892340103770933`*^9, 
   3.889234037562571*^9}, {3.889234098022204*^9, 3.889234130050836*^9}, {
   3.889234214112239*^9, 3.88923430746096*^9}, {3.88923789001477*^9, 
   3.889237895372003*^9}, {3.889238962571788*^9, 3.889238984858754*^9}, 
   3.8892390309068317`*^9, {3.889239174276945*^9, 3.889239190028845*^9}, {
   3.88924816517556*^9, 3.889248193313669*^9}, 3.8892482306800947`*^9, {
   3.8892482747286377`*^9, 3.8892482838383408`*^9}, 3.889248323539668*^9, {
   3.889248470358526*^9, 3.8892484880066977`*^9}, 3.889248582239623*^9}],

Cell[BoxData["0.8051343410908818`"], "Output",
 CellChangeTimes->{
  3.889233881395093*^9, 3.889233937859603*^9, {3.8892340103770933`*^9, 
   3.889234037562571*^9}, {3.889234098022204*^9, 3.889234130050836*^9}, {
   3.889234214112239*^9, 3.88923430746096*^9}, {3.88923789001477*^9, 
   3.889237895372003*^9}, {3.889238962571788*^9, 3.889238984858754*^9}, 
   3.8892390309068317`*^9, {3.889239174276945*^9, 3.889239190028845*^9}, {
   3.88924816517556*^9, 3.889248193313669*^9}, 3.8892482306800947`*^9, {
   3.8892482747286377`*^9, 3.8892482838383408`*^9}, 3.889248323539668*^9, {
   3.889248470358526*^9, 3.8892484880066977`*^9}, 3.889248582243827*^9}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{808, 692},
WindowMargins->{{Automatic, 167}, {Automatic, 0}},
PrintingCopies->1,
PrintingPageRange->{1, Automatic},
FrontEndVersion->"10.3 for Mac OS X x86 (32-bit, 64-bit Kernel) (October 9, \
2015)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 439, 6, 35, "Subsubsection"],
Cell[CellGroupData[{
Cell[1022, 30, 442, 6, 29, "Subsubsection"],
Cell[CellGroupData[{
Cell[1489, 40, 3098, 76, 360, "Input"],
Cell[4590, 118, 1876, 52, 53, "Output"],
Cell[6469, 172, 470, 11, 36, "Output"],
Cell[6942, 185, 398, 8, 32, "Output"],
Cell[7343, 195, 347, 7, 51, "Output"],
Cell[7693, 204, 347, 7, 52, "Output"],
Cell[8043, 213, 352, 5, 28, "Output"],
Cell[8398, 220, 369, 8, 51, "Output"],
Cell[8770, 230, 350, 5, 28, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9157, 240, 3050, 77, 225, "Input"],
Cell[12210, 319, 470, 13, 47, "Output"],
Cell[12683, 334, 334, 5, 28, "Output"],
Cell[13020, 341, 472, 13, 47, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[13541, 360, 491, 7, 35, "Subsubsection"],
Cell[CellGroupData[{
Cell[14057, 371, 2770, 74, 210, "Input"],
Cell[16830, 447, 1569, 36, 374, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18436, 488, 2179, 50, 228, "Input"],
Cell[20618, 540, 12310, 276, 64, "Output"],
Cell[32931, 818, 741, 12, 28, "Output"],
Cell[33675, 832, 652, 9, 28, "Output"],
Cell[34330, 843, 652, 9, 28, "Output"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)