(* 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[ 55024, 1253] NotebookOptionsPosition[ 52715, 1175] NotebookOutlinePosition[ 53125, 1193] CellTagsIndexPosition[ 53082, 1190] 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", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["\[Lambda]", "1"], "=", RowBox[{"1", "/", "10000"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["\[Lambda]", "2"], "=", RowBox[{"1", "/", "100"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", "0.05"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tt", "=", "200"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[ScriptCapitalD]", "=", RowBox[{"ExponentialDistribution", "[", SubscriptBox["\[Lambda]", "1"], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[ScriptCapitalD]\[ScriptCapitalD]", "=", RowBox[{"ExponentialDistribution", "[", SubscriptBox["\[Lambda]", "2"], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"R", "[", "t_", "]"}], "=", RowBox[{"If", "[", RowBox[{ RowBox[{"t", "<", "tt"}], ",", "1", ",", FractionBox[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "p"}], ")"}], "\[Times]", RowBox[{"SurvivalFunction", "[", RowBox[{"\[ScriptCapitalD]", ",", "t"}], "]"}]}], "+", RowBox[{"p", "\[Times]", RowBox[{"SurvivalFunction", "[", RowBox[{"\[ScriptCapitalD]\[ScriptCapitalD]", ",", "t"}], "]"}]}]}], RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "p"}], ")"}], "\[Times]", RowBox[{"SurvivalFunction", "[", RowBox[{"\[ScriptCapitalD]", ",", "tt"}], "]"}]}], "+", RowBox[{"p", "\[Times]", RowBox[{"SurvivalFunction", "[", RowBox[{"\[ScriptCapitalD]\[ScriptCapitalD]", ",", "tt"}], "]"}]}]}]]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"\[Mu]\[Mu]", "=", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"R", "[", "t", "]"}], RowBox[{"\[DifferentialD]", "t"}]}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Round", "[", RowBox[{"\[Mu]\[Mu]", ",", "0.1"}], "]"}], "-", "tt"}], "\[IndentingNewLine]", RowBox[{"\[Mu]\[Mu]", "=", RowBox[{"tt", "+", FractionBox[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "p"}], ")"}], "\[Times]", SubscriptBox["\[Lambda]", "2"], "\[Times]", RowBox[{"SurvivalFunction", "[", RowBox[{"\[ScriptCapitalD]", ",", "tt"}], "]"}]}], "+", RowBox[{"p", "\[Times]", SubscriptBox["\[Lambda]", "1"], "\[Times]", RowBox[{"SurvivalFunction", "[", RowBox[{"\[ScriptCapitalD]\[ScriptCapitalD]", ",", "tt"}], "]"}]}]}], RowBox[{ SubscriptBox["\[Lambda]", "1"], "\[Times]", SubscriptBox["\[Lambda]", "2"], "\[Times]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "p"}], ")"}], "\[Times]", RowBox[{"SurvivalFunction", "[", RowBox[{"\[ScriptCapitalD]", ",", "tt"}], "]"}]}], "+", RowBox[{"p", "\[Times]", RowBox[{"SurvivalFunction", "[", RowBox[{"\[ScriptCapitalD]\[ScriptCapitalD]", ",", "tt"}], "]"}]}]}], ")"}]}]]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Round", "[", RowBox[{"\[Mu]\[Mu]", ",", "0.1"}], "]"}], "-", "tt"}]}], "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}, {3.9213976450084133`*^9, 3.921397910171028*^9}, {3.9213981429688883`*^9, 3.9213981767433043`*^9}, { 3.9213993160335484`*^9, 3.921399336666814*^9}, {3.921399838436822*^9, 3.921399946437703*^9}, {3.921400233691984*^9, 3.921400234004998*^9}, { 3.921400270339252*^9, 3.9214002862892647`*^9}, {3.921474949894003*^9, 3.921474952566752*^9}, {3.921474987731997*^9, 3.921475048282473*^9}, 3.921475145682147*^9, {3.921475337810162*^9, 3.9214753902925167`*^9}, { 3.921475434538467*^9, 3.921475434865622*^9}, {3.92147967804321*^9, 3.921479751228606*^9}}], Cell[BoxData["9928.577672469017`"], "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, 3.921397847830492*^9, 3.921397911507399*^9, 3.921398143942919*^9, 3.921398183425458*^9, 3.9213993393506804`*^9, 3.9213999477733917`*^9, 3.921400235113365*^9, 3.9214002939281797`*^9, 3.9214004922733097`*^9, 3.9214749403301077`*^9, 3.921475056370613*^9, 3.9214753892076683`*^9, 3.921475821341477*^9, 3.921479587895177*^9, {3.921479746520384*^9, 3.921479753625533*^9}, 3.921485616516822*^9, 3.9214884881464767`*^9}], Cell[BoxData["9728.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.8892339088243647`*^9, 3.921397847830492*^9, 3.921397911507399*^9, 3.921398143942919*^9, 3.921398183425458*^9, 3.9213993393506804`*^9, 3.9213999477733917`*^9, 3.921400235113365*^9, 3.9214002939281797`*^9, 3.9214004922733097`*^9, 3.9214749403301077`*^9, 3.921475056370613*^9, 3.9214753892076683`*^9, 3.921475821341477*^9, 3.921479587895177*^9, {3.921479746520384*^9, 3.921479753625533*^9}, 3.921485616516822*^9, 3.921488488154052*^9}], Cell[BoxData["10128.577672469019`"], "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, 3.921397847830492*^9, 3.921397911507399*^9, 3.921398143942919*^9, 3.921398183425458*^9, 3.9213993393506804`*^9, 3.9213999477733917`*^9, 3.921400235113365*^9, 3.9214002939281797`*^9, 3.9214004922733097`*^9, 3.9214749403301077`*^9, 3.921475056370613*^9, 3.9214753892076683`*^9, 3.921475821341477*^9, 3.921479587895177*^9, {3.921479746520384*^9, 3.921479753625533*^9}, 3.921485616516822*^9, 3.921488488159783*^9}], Cell[BoxData["9928.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.8892339088243647`*^9, 3.921397847830492*^9, 3.921397911507399*^9, 3.921398143942919*^9, 3.921398183425458*^9, 3.9213993393506804`*^9, 3.9213999477733917`*^9, 3.921400235113365*^9, 3.9214002939281797`*^9, 3.9214004922733097`*^9, 3.9214749403301077`*^9, 3.921475056370613*^9, 3.9214753892076683`*^9, 3.921475821341477*^9, 3.921479587895177*^9, {3.921479746520384*^9, 3.921479753625533*^9}, 3.921485616516822*^9, 3.921488488165666*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"CF", "[", "t_", "]"}], "=", SuperscriptBox[ RowBox[{"R", "[", "t", "]"}], FractionBox["1", "t"]]}], ";"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"CF", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "10000"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "10000"}], "}"}], ",", RowBox[{"{", RowBox[{".9999", ",", "1"}], "}"}]}], "}"}]}]}], "]"}]}], "Input", CellChangeTimes->{{3.9214753935722847`*^9, 3.921475426939242*^9}, { 3.921475755047348*^9, 3.921475755565445*^9}, {3.921475788733358*^9, 3.921475790452516*^9}, {3.921479569400625*^9, 3.921479616604013*^9}, 3.9214796581743593`*^9, {3.921479758959112*^9, 3.921479919859934*^9}, { 3.921479951961622*^9, 3.921480070414298*^9}, {3.921480170480207*^9, 3.921480220741042*^9}, {3.921485610344873*^9, 3.9214856313967752`*^9}, { 3.92148847045189*^9, 3.9214884969094477`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJxF1Xk0FVoXAHAhU6iIhAwlRKEQrqFtjAYRyVOSoTKVmWSe3+VmusItGVKZ q1vcZB5SiaQvUS/Kq5eMkZA81Tv7rfV931nrrLN+/5x1zj577yPr4nPoJDsb G1sHmbjeUNUbHmhW2s3275jZnbNP/vftVHv4r+lPFQeVqe7/84hewduMr/83 pVLkz2+OHjDJTulb+jW9+4IE7YPjYw84Kn9QZ554OJl9pH2nJygqFb6dJtZY Oje69YonhC7RW8aJkzymx9O4veDo6543H4lVzAenjw56QYZqK3OQOObeodlW M2+Q//Dk1CviPvnOOQWmN5z/vdaijzhsJev714QzwExtS+smftyWxkFT9QFX 0y9/NhFL7OTimmX4wObUA0/qie9ZGXBuY/eF7A0TvbXEfC3VXJnevvAiaKP6 XeLqb9PcHUW+YH6WjXab+LiqMu9ivy+Y6DX9qCJm5hetOm7oB7QBNYUyYof+ Qf6MYD+Y/rtl8AYxp6CY4IMKP1hbNHzjGrF9ROoaJVF/KM2WCSok/nk0TGRh 3B/a+KLf5xKX0lmiW2UCYGsZ15YcYuuuL+uPHQ6AocIPQReJr1HcxduaA+AC QxsyiS39iyXm5wIg5XpabTrxYtlbSUWlQAg3WdJLI9634bB0alYgaG0WdqcR z1mly7R2BoLMXJ9ACnH+712ycz8D4XZvbyOVePaboZyDRxBourymJBHn9qts lTcIhlUzI/mxxEaCnkq/BQRD1kF+WgzxpOl1ZVppMJjVF0dHE++ukVCZFQqB iv0CUZHEI3Qe9aZPIcC7l9V5nji9y1jji+Q5CA43mAgl1uGI0pQ7dA5y+vYL oWn+81rJDeeg6IWmbwixuvV7PbuMUAhe3n0qkFjw7GI9e3sovA6cqwsgHk0W 1L01Fwq2Gy2F0XkPKDo89ufhVU1Ejx8xlzZds04qDA45v/fywfyzLas+ZRUG 80e7/zhLXOfXrC4cGwah6mn70T4VEzu8P4bBfbe92meIX0mZqEhVhkOewRkV L+I7ug5VT4bCgafyM9MTz2vvuy1kdQRcOM3UQhtm5in1+keAmnK9hQdx+cp5 +VidSFjNhMTTxOGT16VHHkZBiUzpYTdiO96G/MzFKFhsfLrgSiwmPJYqLRIN aireDPSs6i+BbrNosCz8/N6FuMRDmX9LeTQcS1qf6Ey8ZiiOZ8A3BjIO6HM5 EUdMCJpXUWPgopNi/XHi8e+MpLirMbCfJeKH7hC9zaXWFwM1HcPvHInPWw1y UrViQdL92uNjxB/aNVbo/oyF0Ib7bQ54P0ZsUpZoHOw6VJqI3uXTK/BZJQ7k meb70Mni3uJFTnHQ7JjR/xvxTr9ide7WOHAxHpuzJ46WEjr1Ii4eioeULI8Q K805TW7Liwcjz6cS6L7OKv/E6nh4/HFuzI5YIcgiSudjPAixOpPQPV3RuQVm CeD9w7LzMLFk6PQTL95ESOQVcrElfmipb90hmwjZ9Wu00L5yKQNSlEQwXwri R7c/k//ruWcifJg4U2tD7Cl//IdWdyLsEB9fh6590a3KmZYEl6uH31oTH1Yp z8pbRwVFtaSbB4njA0/6calSQeyCZAq6uk7G0teCClXbf51GC+3J4TaJpALX 6tJN6B6n+PMTn6ggYOx92ZLYLOP4CUp9MlhZTjEOYPzmhLa9cqaBXJRkxz7i k5QeHqNwGhgtl5Shs6KpHyuyaZCiczoVPcvPVhDVRYMFRqQ9+uaWqbUKmhdA 6gfb9F6M15FH34J4UuHs3Bs5tFhdWLvwrTSIk0m7bY757i/nVPcoDUoY/Hno EuWnSyeG00BTuDwJfdly9YYBnnR4O2DshFZqOWElR0kHatr4avSeYo7mprx0 YH57GLyHONbDIu+rcwYY/li0N8P67tg4bnY2A6xfft2D3rtpVuvS+QxY8YhL C732zaUXQM+A+K2BIujC/ZN8qQ8ywNbr9AtT4kbVtFBFhUzgrE6wQS/O99k5 TmbC5iBPVxPsT3zDz2q/Z8Lh+Tc2aBPpCfN13HSYsnM1QWeYr9DtkqUDa+Xd LWily9uldY7QYUHWesyY2BESP61ro4OVj0sgui1Z61x3Thbo5rbmGhG7Fxh9 UbieBYol+SloweoDnnF3smCmihaJPjrkeozyNAtGpC+7oedU06GU/SI0rY3c gVZ4OcoTf+YivBcz7DHEepG+xNA1zoZS71khdG8OF8veKhte8I5xo0XWBPwn yDEbrBmTy4D3Y9u/6nZINgRoiH9CM//8ES5XmQ1GE/wN6P5i5xMCIjlgGqPv jpZR3KrwbiQHtusZdO4mdiu8aLz8NQfkHpc3o8vE2E9sWJELM09kWeidvG9y bSRyoWJGpRhtOk7je3wwF6xG2iPQnpUzU7drcyFf74kGukattjo2mQGuCUNl Bpi/LpfVmrIZpHnxXUX30yMrv19lgFWrwSX04oLJNd96BugzG5PReo3P6ccn GZB3TNgb3WYx4U+xvATVs+vU0D0uUjtm116GTp/tjfrYv7Piq5wZedCX0z2m R9wQmW97/UYe7F3P8wGd5l779+jdPOB9ZTGI3qU3aeHbkwfPl971oOM/2IxE clwBgYHD1WjpnZul885cgaulJ6LRds9a0/sN8yGqoF4S/YD3V8C+8QIwh+9u usR/Vaadr1oogE7pESc0u2J6S9KKQnCY7HdAy3bJPBoTKIR4ygMr9Im1Rn1V 8oVgtv2pHvrdlfjPmvaFQL+YJYIeZPFuNqsvBF/BwU4K8ctRYdqpmCKgcwfr oTUm+Z3PJRWBZKqNNjpzeuWu5AtFUDmjroG2Wvj2ropRBPwGP5TR3RyD6vPM IugvYUqgH0hdexP3vghWaxb8rYP9yFZDucj4KsyOhTai6S22T96sLIZ1o/nm 6OuF3j52FdegqYHmro3vU36U44rGDZhw8K3RwvxtkP05+rYE9CZsBNCDhutO esSUwfqBaxG7iNd/Gaqr4a6AXzqW3OgbpZEh3LcqIVln+0VN/D+pC5u2UG7C ZtEJTfSmAFNN85FbsPhQ/LUG1qP78OuDHbfhlupyIjqhgpruTGWCfq+lIZov IH9p3vEOWOywXVYnPvRM6piv3F3Qn7NpRUedrPnK+eku5FfMpqD7o+4ZSNZV Q4hpiB16RmVLzIaoGrj3zVARreHyM5hhywKN3o7vO7H+n01dVZe/B5HsJ5+h LZ6bP7w7dg8GWGHlaKcjq6+wGmuhjsWdgNbyN/QqiLsPl7Yau6HnHlJ9rprW gQwHhxl6sEBfQVGsHjImNyigEwUc++mD9aAkPboK7fDrk3YsswGWa9bO7CD+ kvA20+5cI2wMiBxAnzGb2GSq2wSHbAtb0MIprqdYgs2QPCVahg5321Mk0NcM q2J1stDczl2Pvtq2wKWX9yPR7dt+vp5qbAFWfpknerht5NMf0q2gLddrjxaS SDjIm9wKm2/amaFv6L++ozTVCg+eDWqit0Vo7/jNsg2ChV3l0Y8iD/B23muD /guWov/uv1dsSFm8HUS9prjRWRT5vwo12yHajZMTfUpJY0LEuh3Kw+TZ0Fri RrPJ3u3gF2OzrEbMw2f1/VdSO9zfk7KI/gcLgkrv "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0.9999000000000001}, 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->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None}, PlotRange->{{0, 10000}, {0.9999, 1}}, PlotRangeClipping->True, PlotRangePadding->{{0, 0}, {0, 0}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.921475417860949*^9, 3.92147542774625*^9}, 3.921475756387823*^9, 3.9214757916674223`*^9, 3.9214758337777863`*^9, 3.921479617568241*^9, 3.921479659934554*^9, {3.921479812063079*^9, 3.921479920443141*^9}, {3.921479978655223*^9, 3.921480073489152*^9}, { 3.921480175812695*^9, 3.921480221124205*^9}, 3.921485632103641*^9, { 3.921488476174054*^9, 3.9214884977303743`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"10128.6", "/", "3"}]], "Input", CellChangeTimes->{{3.921486905653533*^9, 3.9214869114097967`*^9}, { 3.921487049819907*^9, 3.921487052305615*^9}}], Cell[BoxData["3376.2`"], "Output", CellChangeTimes->{3.921486911838977*^9, 3.921487052846746*^9}] }, Open ]] }, Open ]], 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["- Data", "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}, {3.921209006617927*^9, 3.9212090076324053`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ClearAll", "[", "\"\\"", "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"data", "=", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{ "121.5", ",", "1425.5", ",", "1657.2", ",", "592.1", ",", "848.2", ",", "5296.6", ",", "279.8", ",", "7201.9", ",", "1883.6", ",", "6303.9", ",", "\n", "2951.2", ",", "5637.9", ",", "10609.7", ",", "9068.5", ",", "7.5", ",", "2311.1", ",", "6853.7", ",", "6054.3", ",", "1051.7", ",", "711.5"}], "}"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"n", "=", RowBox[{"Length", "[", "data", "]"}]}], "\[IndentingNewLine]", RowBox[{"Mean", "[", "data", "]"}]}], "Input", CellChangeTimes->{{3.7342737432766933`*^9, 3.734273818082468*^9}, { 3.734273882467085*^9, 3.73427392625457*^9}, {3.734274022758494*^9, 3.734274033251226*^9}, {3.734274134607539*^9, 3.734274254146286*^9}, { 3.7342743381511803`*^9, 3.734274362236154*^9}, {3.734274395431342*^9, 3.7342744386337433`*^9}, {3.734339879648744*^9, 3.7343398912477694`*^9}, { 3.734339944247426*^9, 3.7343399546228857`*^9}, {3.734340013787084*^9, 3.734340027300652*^9}, {3.7343401051519327`*^9, 3.734340131090085*^9}, { 3.734340237544244*^9, 3.734340454287733*^9}, {3.734341776253582*^9, 3.73434177895269*^9}, {3.734341811441153*^9, 3.734341890443857*^9}, 3.734341955895843*^9, {3.734341992213162*^9, 3.734342096311558*^9}, { 3.7343421296377687`*^9, 3.7343422206776237`*^9}, {3.7343422679674397`*^9, 3.734342339843278*^9}, {3.921207638420064*^9, 3.92120781115456*^9}, { 3.921207860872644*^9, 3.921207860970989*^9}, 3.921207894699396*^9, 3.9212081505239563`*^9, {3.9212081820804367`*^9, 3.921208184250073*^9}, { 3.921208922754417*^9, 3.921208967520844*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "7.5`", ",", "121.5`", ",", "279.8`", ",", "592.1`", ",", "711.5`", ",", "848.2`", ",", "1051.7`", ",", "1425.5`", ",", "1657.2`", ",", "1883.6`", ",", "2311.1`", ",", "2951.2`", ",", "5296.6`", ",", "5637.9`", ",", "6054.3`", ",", "6303.9`", ",", "6853.7`", ",", "7201.9`", ",", "9068.5`", ",", "10609.7`"}], "}"}]], "Output", CellChangeTimes->{{3.734273738019651*^9, 3.734273790246482*^9}, { 3.734273900368642*^9, 3.734273952552796*^9}, {3.734274226903056*^9, 3.7342742546296473`*^9}, {3.734274378863583*^9, 3.734274462035705*^9}, { 3.7343398805623713`*^9, 3.734339892296918*^9}, 3.7343399551143513`*^9, { 3.734340020484015*^9, 3.734340041657037*^9}, {3.734340111091549*^9, 3.7343401318082867`*^9}, {3.734340230577241*^9, 3.734340293662273*^9}, { 3.7343403280565434`*^9, 3.734340454743865*^9}, 3.734341779555811*^9, { 3.734341857745047*^9, 3.734341890979355*^9}, {3.734341956450838*^9, 3.734342096897727*^9}, {3.734342132092214*^9, 3.734342368318269*^9}, 3.921207822720216*^9, 3.921207861601323*^9, 3.921207896701276*^9, 3.921208151559062*^9, 3.921208185750375*^9, 3.921208931468651*^9, 3.921208968386076*^9}], Cell[BoxData["20"], "Output", CellChangeTimes->{{3.734273738019651*^9, 3.734273790246482*^9}, { 3.734273900368642*^9, 3.734273952552796*^9}, {3.734274226903056*^9, 3.7342742546296473`*^9}, {3.734274378863583*^9, 3.734274462035705*^9}, { 3.7343398805623713`*^9, 3.734339892296918*^9}, 3.7343399551143513`*^9, { 3.734340020484015*^9, 3.734340041657037*^9}, {3.734340111091549*^9, 3.7343401318082867`*^9}, {3.734340230577241*^9, 3.734340293662273*^9}, { 3.7343403280565434`*^9, 3.734340454743865*^9}, 3.734341779555811*^9, { 3.734341857745047*^9, 3.734341890979355*^9}, {3.734341956450838*^9, 3.734342096897727*^9}, {3.734342132092214*^9, 3.734342368318269*^9}, 3.921207822720216*^9, 3.921207861601323*^9, 3.921207896701276*^9, 3.921208151559062*^9, 3.921208185750375*^9, 3.921208931468651*^9, 3.921208968392722*^9}], Cell[BoxData["3543.37`"], "Output", CellChangeTimes->{{3.734273738019651*^9, 3.734273790246482*^9}, { 3.734273900368642*^9, 3.734273952552796*^9}, {3.734274226903056*^9, 3.7342742546296473`*^9}, {3.734274378863583*^9, 3.734274462035705*^9}, { 3.7343398805623713`*^9, 3.734339892296918*^9}, 3.7343399551143513`*^9, { 3.734340020484015*^9, 3.734340041657037*^9}, {3.734340111091549*^9, 3.7343401318082867`*^9}, {3.734340230577241*^9, 3.734340293662273*^9}, { 3.7343403280565434`*^9, 3.734340454743865*^9}, 3.734341779555811*^9, { 3.734341857745047*^9, 3.734341890979355*^9}, {3.734341956450838*^9, 3.734342096897727*^9}, {3.734342132092214*^9, 3.734342368318269*^9}, 3.921207822720216*^9, 3.921207861601323*^9, 3.921207896701276*^9, 3.921208151559062*^9, 3.921208185750375*^9, 3.921208931468651*^9, 3.92120896839712*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["- Probability paper and TTT plot", "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}, {3.921209006617927*^9, 3.9212090646241827`*^9}, { 3.921209101505725*^9, 3.921209104566885*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"dist", "=", RowBox[{"ExponentialDistribution", "[", "1", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"probpaper", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Quantile", "[", RowBox[{"dist", ",", RowBox[{"i", "/", RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}]}]}], "]"}], ",", RowBox[{"data", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ListPlot", "[", RowBox[{"probpaper", ",", RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"PointSize", "[", "Large", "]"}], ",", "Black"}], "}"}]}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ttt", "=", "data"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"spac", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[Equal]", "1"}], ",", RowBox[{"ttt", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{ RowBox[{"ttt", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"ttt", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}]}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"x", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tau", "=", RowBox[{"{", "0", "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"x", "=", RowBox[{"x", "+", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "i", "+", "1"}], ")"}], "\[Times]", RowBox[{"spac", "[", RowBox[{"[", "i", "]"}], "]"}]}]}]}], ";", RowBox[{"tau", "=", RowBox[{"Append", "[", RowBox[{"tau", ",", "x"}], "]"}]}]}], ",", " ", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"tau", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"list1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ FractionBox["i", "n"], ",", FractionBox[ RowBox[{"tau", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], RowBox[{"tau", "[", RowBox[{"[", RowBox[{"n", "+", "1"}], "]"}], "]"}]]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{"list1", ",", RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"PointSize", "[", "Large", "]"}], ",", "Black"}], "}"}]}]}], "]"}]}], "Input"], Cell[BoxData[ GraphicsBox[{{}, {{}, {GrayLevel[0], PointSize[Large], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAQAWIQ/fL4Jzu23yvsGcBAzmFCQfxZwfk7IfyEOIeVlxwX mO4+bH/2DBDUFDoUfQ5S1+U5DeE3NDnwLVu9Oib9IkS9TZvDBBPhm4c6rtrP mgkEjV0OPjP2v1H+fBOiPm+CA4PwR8/gjfcg6t2mOVxwKIiLf/EQIv9kpsPU uweLtTc+sU8Dgby5DnlpL5M+731ubwwCfIscZq7jSheQfQ2R51vu8I3nQsjH h+8g9m3Y4sDNvLbq1eSPYPlnrNscEmy36gVyfwGb77Nsu4P+hY8G0t++QeTn 73AoVn6qKdXxC2z+5qO7HMKjjNYVKf2HyCvucTBV2Hhl7nkmB5BzHbYddNi4 Ln+KXjSHA8i+mzuOOAAAnnOVSg== "]]}, {}}, {}}, 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, 3.044522437723423}, {0, 10609.7}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.921209115026926*^9}], Cell[BoxData[ GraphicsBox[{{}, {{}, {GrayLevel[0], PointSize[Large], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQjQ5mzQSBlfYNU72nPQlLtIfwd9q/THCT7ti9wN4Y DA7bP3letvvsik1Q+ZP2dn+fT7R/fcgeYsoF+03MD9unxR2Dqr9s37yY32ir 0Cn7NDC4Zl9SeG09l8V5qP6b9lx3X4hX/b9sf/YMCNyxX5Lmt9uj6RrUvAf2 cu8mLOM+dAOq/qF9+iH2npR5d6DmP7Y/FiqZqvTyAVT/E/v8/LsLxZJeQu17 Zv8mijnGqewV1LwX9j2Pg/sFpr+GmvfSvv2uolqI+huoea/t74det+lRfQs1 7419uYTsBp95b6HmvbPPyLx167rve6h5H+A0AMj+lTE= "]]}, {}}, {}}, 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.9212091150745*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["- Goodness-of-fit tests", "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}, {3.921209006617927*^9, 3.9212090646241827`*^9}, { 3.9212091089217587`*^9, 3.921209110271945*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{"\[ScriptCapitalD]estim", "=", RowBox[{"EstimatedDistribution", "[", RowBox[{"data", ",", "\[ScriptCapitalD]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"Mean", "[", "\[ScriptCapitalD]estim", "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[ScriptCapitalD]", "=", RowBox[{"ExponentialDistribution", "[", "\[Lambda]", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"KolmogorovSmirnovTest", "[", RowBox[{ "data", ",", "\[ScriptCapitalD]", ",", "\"\\""}], "]"}], "\[IndentingNewLine]", RowBox[{"AndersonDarlingTest", "[", RowBox[{"data", ",", "\[ScriptCapitalD]", ",", "\"\\""}], "]"}]}]}]], "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}, {3.921208196654735*^9, 3.921208310074789*^9}, {3.9212091418676233`*^9, 3.921209281649331*^9}, { 3.92120938269011*^9, 3.92120939223079*^9}}], Cell[BoxData[ RowBox[{"ExponentialDistribution", "[", "0.0002822172112988483`", "]"}]], "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, 3.921208262376747*^9, {3.9212082953097467`*^9, 3.9212083124994287`*^9}, { 3.9212091729188643`*^9, 3.921209284660018*^9}, 3.921209383300454*^9}], Cell[BoxData["3543.37`"], "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, 3.921208262376747*^9, {3.9212082953097467`*^9, 3.9212083124994287`*^9}, { 3.9212091729188643`*^9, 3.921209284660018*^9}, 3.9212093833065157`*^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.2849195392709582`", "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"]], 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.2849195392709582`", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Test: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"N/A\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Test statistic: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0.17570467524017674`", "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 \ ExponentialDistribution[\[Lambda]] 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 ExponentialDistribution[\[Lambda]] 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, {{7.5, 121.5, 279.8, 592.1, 711.5, 848.2, 1051.7, 1425.5, 1657.2, 1883.6, 2311.1, 2951.2, 5296.6, 5637.9, 6054.3, 6303.9, 6853.7, 7201.9, 9068.5, 10609.7}, "SampleToNull", 1, Rational[1, 20], { ExponentialDistribution[$CellContext`\[Lambda]], 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, 3.921208262376747*^9, {3.9212082953097467`*^9, 3.9212083124994287`*^9}, { 3.9212091729188643`*^9, 3.921209284660018*^9}, 3.921209383338043*^9}], Cell[BoxData[ StyleBox[ TagBox[GridBox[{ {"\<\"\"\>", "\<\"Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"}, {"\<\"Anderson\[Hyphen]Darling\"\>", "0.5884672854518307`", "0.37772156337139323`"} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxDividers->{ "ColumnsIndexed" -> {2 -> GrayLevel[0.7]}, "RowsIndexed" -> {2 -> GrayLevel[0.7]}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "DialogStyle", StripOnInput->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, 3.921208262376747*^9, {3.9212082953097467`*^9, 3.9212083124994287`*^9}, { 3.9212091729188643`*^9, 3.921209284660018*^9}, 3.921209383348537*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Requested confidence interval", "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}, {3.921209006617927*^9, 3.921209085304167*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"\[Lambda]hat", "=", RowBox[{"1", "/", RowBox[{"Mean", "[", "data", "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Total", "[", "data", "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Alpha]", "=", "0.05"}], ";"}], "\[IndentingNewLine]", RowBox[{"a", "=", RowBox[{"Quantile", "[", RowBox[{ RowBox[{"ChiSquareDistribution", "[", RowBox[{"2", "*", "n"}], "]"}], ",", RowBox[{"\[Alpha]", "/", "2"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"b", "=", RowBox[{"Quantile", "[", RowBox[{ RowBox[{"ChiSquareDistribution", "[", RowBox[{"2", "*", "n"}], "]"}], ",", RowBox[{"1", "-", RowBox[{"\[Alpha]", "/", "2"}]}]}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["\[Lambda]", "L"], "=", RowBox[{"\[Lambda]hat", "*", RowBox[{"a", "/", RowBox[{"(", RowBox[{"2", "*", "n"}], ")"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["\[Lambda]", "U"], "=", RowBox[{"\[Lambda]hat", "*", RowBox[{"b", "/", RowBox[{"(", RowBox[{"2", "*", "n"}], ")"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"1", "/", SubscriptBox["\[Lambda]", "U"]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"1", "/", SubscriptBox["\[Lambda]", "L"]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["\[Lambda]", "L"], "=", RowBox[{"24.43", "/", RowBox[{"(", RowBox[{"2", "*", "70867.4"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["\[Lambda]", "U"], "=", RowBox[{"59.34", "/", RowBox[{"(", RowBox[{"2", "*", "70867.4"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"1", "/", SubscriptBox["\[Lambda]", "U"]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"1", "/", SubscriptBox["\[Lambda]", "L"]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"3543.37", "*", "2", "*", RowBox[{"20", "/", "59.34"}]}], "\[IndentingNewLine]", RowBox[{"3543.37", "*", "2", "*", RowBox[{"20", "/", "24.43"}]}]}], "Input", CellChangeTimes->{{3.734364109849209*^9, 3.734364114676902*^9}, { 3.73436538335211*^9, 3.7343654620654182`*^9}, {3.734366737114978*^9, 3.734366846217733*^9}, {3.9212094296306143`*^9, 3.921209522878305*^9}, { 3.921209614759108*^9, 3.9212097275225782`*^9}, {3.921209772414439*^9, 3.921209811853033*^9}, {3.921209909258663*^9, 3.9212099131759453`*^9}, { 3.921210013274426*^9, 3.9212100277500753`*^9}, {3.9212105294984083`*^9, 3.921210557370079*^9}, {3.921211998680358*^9, 3.921212029318589*^9}}], Cell[BoxData["0.0002822172112988483`"], "Output", CellChangeTimes->{ 3.734364117021448*^9, {3.734365406760702*^9, 3.7343654321358643`*^9}, 3.734365462649105*^9, 3.734366779066427*^9, {3.734366824801765*^9, 3.734366846716145*^9}, {3.92120979537368*^9, 3.9212098124822893`*^9}, 3.921209914946578*^9, 3.92121002942041*^9, {3.921210530943919*^9, 3.921210558015873*^9}, 3.9212107581830378`*^9, 3.92121203004274*^9}], Cell[BoxData["70867.4`"], "Output", CellChangeTimes->{ 3.734364117021448*^9, {3.734365406760702*^9, 3.7343654321358643`*^9}, 3.734365462649105*^9, 3.734366779066427*^9, {3.734366824801765*^9, 3.734366846716145*^9}, {3.92120979537368*^9, 3.9212098124822893`*^9}, 3.921209914946578*^9, 3.92121002942041*^9, {3.921210530943919*^9, 3.921210558015873*^9}, 3.9212107581830378`*^9, 3.9212120300476522`*^9}], Cell[BoxData["24.43303917080789`"], "Output", CellChangeTimes->{ 3.734364117021448*^9, {3.734365406760702*^9, 3.7343654321358643`*^9}, 3.734365462649105*^9, 3.734366779066427*^9, {3.734366824801765*^9, 3.734366846716145*^9}, {3.92120979537368*^9, 3.9212098124822893`*^9}, 3.921209914946578*^9, 3.92121002942041*^9, {3.921210530943919*^9, 3.921210558015873*^9}, 3.9212107581830378`*^9, 3.921212030050871*^9}], Cell[BoxData["59.3417071431712`"], "Output", CellChangeTimes->{ 3.734364117021448*^9, {3.734365406760702*^9, 3.7343654321358643`*^9}, 3.734365462649105*^9, 3.734366779066427*^9, {3.734366824801765*^9, 3.734366846716145*^9}, {3.92120979537368*^9, 3.9212098124822893`*^9}, 3.921209914946578*^9, 3.92121002942041*^9, {3.921210530943919*^9, 3.921210558015873*^9}, 3.9212107581830378`*^9, 3.921212030057337*^9}], Cell[BoxData["2388.45167797486`"], "Output", CellChangeTimes->{ 3.734364117021448*^9, {3.734365406760702*^9, 3.7343654321358643`*^9}, 3.734365462649105*^9, 3.734366779066427*^9, {3.734366824801765*^9, 3.734366846716145*^9}, {3.92120979537368*^9, 3.9212098124822893`*^9}, 3.921209914946578*^9, 3.92121002942041*^9, {3.921210530943919*^9, 3.921210558015873*^9}, 3.9212107581830378`*^9, 3.921212030062257*^9}], Cell[BoxData["5800.948421076568`"], "Output", CellChangeTimes->{ 3.734364117021448*^9, {3.734365406760702*^9, 3.7343654321358643`*^9}, 3.734365462649105*^9, 3.734366779066427*^9, {3.734366824801765*^9, 3.734366846716145*^9}, {3.92120979537368*^9, 3.9212098124822893`*^9}, 3.921209914946578*^9, 3.92121002942041*^9, {3.921210530943919*^9, 3.921210558015873*^9}, 3.9212107581830378`*^9, 3.9212120300652943`*^9}], Cell[BoxData["2388.520390967307`"], "Output", CellChangeTimes->{ 3.734364117021448*^9, {3.734365406760702*^9, 3.7343654321358643`*^9}, 3.734365462649105*^9, 3.734366779066427*^9, {3.734366824801765*^9, 3.734366846716145*^9}, {3.92120979537368*^9, 3.9212098124822893`*^9}, 3.921209914946578*^9, 3.92121002942041*^9, {3.921210530943919*^9, 3.921210558015873*^9}, 3.9212107581830378`*^9, 3.921212030068453*^9}], Cell[BoxData["5801.6700777732285`"], "Output", CellChangeTimes->{ 3.734364117021448*^9, {3.734365406760702*^9, 3.7343654321358643`*^9}, 3.734365462649105*^9, 3.734366779066427*^9, {3.734366824801765*^9, 3.734366846716145*^9}, {3.92120979537368*^9, 3.9212098124822893`*^9}, 3.921209914946578*^9, 3.92121002942041*^9, {3.921210530943919*^9, 3.921210558015873*^9}, 3.9212107581830378`*^9, 3.921212030071631*^9}], Cell[BoxData["2388.520390967307`"], "Output", CellChangeTimes->{ 3.734364117021448*^9, {3.734365406760702*^9, 3.7343654321358643`*^9}, 3.734365462649105*^9, 3.734366779066427*^9, {3.734366824801765*^9, 3.734366846716145*^9}, {3.92120979537368*^9, 3.9212098124822893`*^9}, 3.921209914946578*^9, 3.92121002942041*^9, {3.921210530943919*^9, 3.921210558015873*^9}, 3.9212107581830378`*^9, 3.921212030074992*^9}], Cell[BoxData["5801.670077773229`"], "Output", CellChangeTimes->{ 3.734364117021448*^9, {3.734365406760702*^9, 3.7343654321358643`*^9}, 3.734365462649105*^9, 3.734366779066427*^9, {3.734366824801765*^9, 3.734366846716145*^9}, {3.92120979537368*^9, 3.9212098124822893`*^9}, 3.921209914946578*^9, 3.92121002942041*^9, {3.921210530943919*^9, 3.921210558015873*^9}, 3.9212107581830378`*^9, 3.9212120300780163`*^9}] }, Open ]] }, Open ]] }, WindowSize->{749, 701}, WindowMargins->{{Automatic, 147}, {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, 4696, 110, 321, "Input"], Cell[6188, 152, 764, 11, 28, "Output"], Cell[6955, 165, 751, 11, 28, "Output"], Cell[7709, 178, 763, 11, 28, "Output"], Cell[8475, 191, 751, 11, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9263, 207, 1056, 25, 58, "Input"], Cell[10322, 234, 4899, 88, 227, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[15258, 327, 172, 3, 28, "Input"], Cell[15433, 332, 98, 1, 28, "Output"] }, Open ]] }, Open ]], Cell[15558, 337, 491, 7, 35, "Subsubsection"], Cell[CellGroupData[{ Cell[16074, 348, 535, 7, 29, "Subsubsection"], Cell[CellGroupData[{ Cell[16634, 359, 1786, 30, 131, "Input"], Cell[18423, 391, 1209, 19, 46, "Output"], Cell[19635, 412, 853, 12, 28, "Output"], Cell[20491, 426, 858, 12, 28, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[21398, 444, 610, 8, 35, "Subsubsection"], Cell[CellGroupData[{ Cell[22033, 456, 3061, 97, 240, "Input"], Cell[25097, 555, 1187, 32, 359, "Output"], Cell[26287, 589, 1120, 31, 374, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[27456, 626, 603, 8, 35, "Subsubsection"], Cell[CellGroupData[{ Cell[28084, 638, 1535, 30, 131, "Input"], Cell[29622, 670, 857, 13, 28, "Output"], Cell[30482, 685, 793, 11, 28, "Output"], Cell[31278, 698, 12397, 276, 64, "Output"], Cell[43678, 976, 1398, 26, 45, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[45125, 1008, 556, 7, 35, "Subsubsection"], Cell[CellGroupData[{ Cell[45706, 1019, 2693, 72, 335, "Input"], Cell[48402, 1093, 429, 6, 28, "Output"], Cell[48834, 1101, 418, 6, 28, "Output"], Cell[49255, 1109, 426, 6, 28, "Output"], Cell[49684, 1117, 425, 6, 28, "Output"], Cell[50112, 1125, 425, 6, 28, "Output"], Cell[50540, 1133, 428, 6, 28, "Output"], Cell[50971, 1141, 426, 6, 28, "Output"], Cell[51400, 1149, 427, 6, 28, "Output"], Cell[51830, 1157, 426, 6, 28, "Output"], Cell[52259, 1165, 428, 6, 28, "Output"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)