(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     19421,        494]
NotebookOptionsPosition[     17800,        429]
NotebookOutlinePosition[     18208,        447]
CellTagsIndexPosition[     18165,        444]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Exercise 1.52 (* Mathematica 7.0.0 *)", "Subsubtitle",
 CellChangeTimes->{{3.570276674092516*^9, 3.570276713488222*^9}, {
  3.571146091744033*^9, 3.571146092795353*^9}, {3.571148305950967*^9, 
  3.571148306028195*^9}}],

Cell[CellGroupData[{

Cell["(a) Standard deviation of N(2)", "Subsection",
 CellChangeTimes->{{3.571146103816606*^9, 3.571146126871756*^9}, {
  3.57114618812582*^9, 3.571146194075267*^9}, {3.571146311670328*^9, 
  3.571146355075485*^9}, {3.571147219123814*^9, 3.5711472214115267`*^9}, {
  3.5711486063591022`*^9, 3.571148631571644*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"StandardDeviation", "[", 
  RowBox[{"PoissonDistribution", "[", 
   RowBox[{"15", "\[Times]", "2."}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.571146134156057*^9, 3.571146148412551*^9}, {
  3.571148638446328*^9, 3.57114866485583*^9}}],

Cell[BoxData["5.477225575051661`"], "Output",
 CellChangeTimes->{{3.571146145377923*^9, 3.571146148894524*^9}, 
   3.571146378881734*^9, {3.5711486614624968`*^9, 3.571148665299047*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["(b) P[N (0.5) \[LessEqual]5]", "Subsection",
 CellChangeTimes->{{3.571146103816606*^9, 3.571146126871756*^9}, {
  3.57114618812582*^9, 3.571146194075267*^9}, {3.571146311670328*^9, 
  3.571146355075485*^9}, {3.5711463991892023`*^9, 3.571146399595553*^9}, {
  3.571147212632084*^9, 3.571147216068492*^9}, {3.5711486787175913`*^9, 
  3.571148692683695*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CDF", "[", 
  RowBox[{
   RowBox[{"PoissonDistribution", "[", 
    RowBox[{"15", "\[Times]", "0.5"}], "]"}], ",", "5"}], "]"}]], "Input",
 CellChangeTimes->{{3.571146134156057*^9, 3.571146148412551*^9}, {
  3.571148698941175*^9, 3.571148711701159*^9}}],

Cell[BoxData["0.2414364509702756`"], "Output",
 CellChangeTimes->{{3.571146145377923*^9, 3.571146148894524*^9}, 
   3.571146378881734*^9, 3.571146418009535*^9, 3.571146518167376*^9, 
   3.571148712328493*^9, 3.571149663808846*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "(c) P[",
 Cell[BoxData[
  FormBox[
   FractionBox["1", "6"], TraditionalForm]], "None"],
 "<",
 Cell[BoxData[
  FormBox[
   SubscriptBox["S", "3"], TraditionalForm]], "None"],
 "\[LessEqual]",
 Cell[BoxData[
  FormBox[
   FractionBox["1", "3"], TraditionalForm]], "None"],
 "]=P[N (",
 Cell[BoxData[
  FormBox[
   FractionBox["1", "3"], TraditionalForm]], "None"],
 ") \[GreaterEqual]3]-P[N (",
 Cell[BoxData[
  FormBox[
   FractionBox["1", "6"], TraditionalForm]], "None"],
 ") \[GreaterEqual]3]"
}], "Subsection",
 CellChangeTimes->{{3.571146103816606*^9, 3.571146126871756*^9}, {
  3.57114618812582*^9, 3.571146194075267*^9}, {3.571146311670328*^9, 
  3.571146355075485*^9}, {3.5711463991892023`*^9, 3.571146399595553*^9}, {
  3.571147212632084*^9, 3.571147216068492*^9}, {3.5711486787175913`*^9, 
  3.571148692683695*^9}, {3.5711496747657623`*^9, 3.571149702259939*^9}, {
  3.571149944726387*^9, 3.5711499710518703`*^9}, {3.571150025255176*^9, 
  3.5711500560726137`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"CDF", "[", 
   RowBox[{
    RowBox[{"PoissonDistribution", "[", 
     RowBox[{"15", "\[Times]", 
      FormBox[
       FractionBox["1.", "6"],
       TraditionalForm]}], "]"}], ",", "2"}], "]"}], "-", 
  RowBox[{"CDF", "[", 
   RowBox[{
    RowBox[{"PoissonDistribution", "[", 
     RowBox[{"15", "\[Times]", 
      FormBox[
       FractionBox["1.", "3"],
       TraditionalForm]}], "]"}], ",", "2"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.571149988623295*^9, 3.57115001710992*^9}}],

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

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"CDF", "[", 
   RowBox[{
    RowBox[{"GammaDistribution", "[", 
     RowBox[{"3", ",", 
      FractionBox["1", "15"]}], "]"}], ",", 
    FractionBox["1.", "3"]}], "]"}], "-", 
  RowBox[{"CDF", "[", 
   RowBox[{
    RowBox[{"GammaDistribution", "[", 
     RowBox[{"3", ",", 
      FractionBox["1", "15"]}], "]"}], ",", 
    FractionBox["1.", "6"]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.571146134156057*^9, 3.571146148412551*^9}, {
  3.571148698941175*^9, 3.571148711701159*^9}, {3.5711496824296923`*^9, 
  3.571149694717689*^9}, {3.571149765686638*^9, 3.57114980242179*^9}}],

Cell[BoxData["0.4191610964002485`"], "Output",
 CellChangeTimes->{{3.571146145377923*^9, 3.571146148894524*^9}, 
   3.571146378881734*^9, 3.571146418009535*^9, 3.571146518167376*^9, 
   3.571148712328493*^9, {3.571149663808846*^9, 3.571149695133787*^9}, {
   3.57114978922927*^9, 3.571149803328776*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["(d) P[N (1) \[LessEqual]10]", "Subsection",
 CellChangeTimes->{{3.571146103816606*^9, 3.571146126871756*^9}, {
  3.57114618812582*^9, 3.571146194075267*^9}, {3.571146311670328*^9, 
  3.571146355075485*^9}, {3.5711463991892023`*^9, 3.571146399595553*^9}, {
  3.571147212632084*^9, 3.571147216068492*^9}, {3.5711486787175913`*^9, 
  3.571148692683695*^9}, {3.5711496747657623`*^9, 3.571149680219982*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CDF", "[", 
  RowBox[{
   RowBox[{"PoissonDistribution", "[", 
    RowBox[{"15", "\[Times]", "1."}], "]"}], ",", "10"}], "]"}]], "Input",
 CellChangeTimes->{{3.571146134156057*^9, 3.571146148412551*^9}, {
  3.571148698941175*^9, 3.571148711701159*^9}, {3.5711496824296923`*^9, 
  3.571149694717689*^9}}],

Cell[BoxData["0.11846441152901507`"], "Output",
 CellChangeTimes->{{3.571146145377923*^9, 3.571146148894524*^9}, 
   3.571146378881734*^9, 3.571146418009535*^9, 3.571146518167376*^9, 
   3.571148712328493*^9, {3.571149663808846*^9, 3.571149695133787*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "(e) P(",
 Cell[BoxData[
  FormBox[
   SubscriptBox["S", "3"], TraditionalForm]], "None"],
 "\[LessEqual]0.1)\n(* In ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 ", the 2nd. parameter of the Gamma distribution nis the reciprocal of \
\[Lambda] *)"
}], "Subsection",
 CellChangeTimes->{{3.571146103816606*^9, 3.571146126871756*^9}, {
  3.57114618812582*^9, 3.571146194075267*^9}, {3.571146311670328*^9, 
  3.571146355075485*^9}, {3.5711463991892023`*^9, 3.571146399595553*^9}, {
  3.571147212632084*^9, 3.57114728889163*^9}, {3.571149524997904*^9, 
  3.571149551073989*^9}, {3.571149596709572*^9, 3.57114965130908*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CDF", "[", 
  RowBox[{
   RowBox[{"GammaDistribution", "[", 
    RowBox[{"2", ",", 
     FractionBox["1", "15"]}], "]"}], ",", "0.1"}], "]"}]], "Input",
 CellChangeTimes->{{3.571147291382193*^9, 3.571147333310253*^9}, {
  3.5711475123619432`*^9, 3.5711475292691174`*^9}, {3.571149557391944*^9, 
  3.57114958676546*^9}}],

Cell[BoxData["0.4421745996289253`"], "Output",
 CellChangeTimes->{
  3.571147334652072*^9, {3.571147514956462*^9, 3.571147529775435*^9}, {
   3.571149577934704*^9, 3.5711495872738247`*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["(f) smallest \[Lambda]: P[N(1)\[GreaterEqual]5]\[GreaterEqual]0.95", \
"Subsection",
 CellChangeTimes->{{3.571146103816606*^9, 3.571146126871756*^9}, {
  3.57114618812582*^9, 3.571146194075267*^9}, {3.571146311670328*^9, 
  3.571146355075485*^9}, {3.5711463991892023`*^9, 3.571146399595553*^9}, {
  3.571147212632084*^9, 3.57114728889163*^9}, {3.571149466574079*^9, 
  3.571149490787698*^9}, {3.760843699744879*^9, 3.760843719226758*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"1", "-", 
    RowBox[{"CDF", "[", 
     RowBox[{
      RowBox[{"PoissonDistribution", "[", "\[Lambda]", "]"}], ",", "4"}], 
     "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Lambda]", ",", "0.001", ",", "15"}], "}"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"FindRoot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"1", "-", 
     RowBox[{"CDF", "[", 
      RowBox[{
       RowBox[{"PoissonDistribution", "[", "\[Lambda]", "]"}], ",", "4"}], 
      "]"}]}], "==", "0.95"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Lambda]", ",", "0.001"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.571147291382193*^9, 3.571147333310253*^9}, {
  3.5711475123619432`*^9, 3.5711475292691174`*^9}, {3.571149494429822*^9, 
  3.571149511581336*^9}, {3.760843733657701*^9, 3.760843741594605*^9}, {
  3.760843781335911*^9, 3.760843797786603*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJwt1nk8Fd//B/CLIn1kT1Iky7Ve2aLNvI+lQpLIx1IK7dZbRMqHi5ItKZQt
tIiQkJ2yZE9RCWUPkeWOsiQVv3P7/uafeTwf79eZM3PmzJyz2dHd/CQ7hUK5
wEahsM5ve+/53z5uBpT/P8RU3MMDp73+5yoFHfvvl8r5hq/8z7x0nWf7CbW+
A5F/bV8UrxPUzrDo6I3+67aGEh3lQMfI59Fxf80cfKvTscWg6aHR3b+OPD2i
U8UUZK9fTv1rdZ95nZi6oJRS2wd/He60kjibNLvrSWHaX/N9EyQIj5OfUvkz
WJb0j9lECBp3eMc4Z7JsViiiQIxK7l0bUp/Ncu4MVYOo+FGcf3nzU5bPaOzZ
RRieFs7QfpHLcsXTvQZE/rsWr7yJPJYvqjmYEOLE1d1K65+xPJ3gZkGEPNYR
TttTwPKh/g22xHfh+c8SnoUsr1gmHIgjjJy8uHtFLPfrnTtF1E+cYgi2FrOs
nd3qQqhabToQ8buEZZtqg/NEYk2nOKdiGctahl+9CE6VqEl/q3KW0aNzvgQ9
3rD855UKltfq+gUQn1awhXnkP8eummBYXiUM6KXWU/0vsBljbm2hROdUSfQz
zipWnXcH+w0iQnrtZfrdv75f5H+L0LU550jTrMYeEP3NjCXmI18bjTeznDqc
+CmeyK5VUEt3qGHlTZdNkwmHxauiJxZYjtqWnn2PEFH9vCx54yXL/5QFPSRa
ThKjvbK1rPt7wV+QTgQkJrxJqGDZbPbM7ixC6+18oZVFHXbbulF4SkxwWtwV
HmfZjJ2nI49I3fX0yltGPTb/IR+jAsLy/D8ukesaWPfTMLlURKzOOG2xL4fl
XHXTX6VEZe/LHat2N7La51foPyc8hSSl6rpZjnnS4FZFKBr5cgeeb8I+8U3x
dA3R79c1TXA3YxekTl6vJWIKNLt+pbBsT+X9Uk8Yj0dVlmi9wh6WzTnfRBRY
GkWqn2hh9d/nrdVKnA1Pu0Ausnwxb/uOt4RENZtd9s3X2NmlhovviPfzdgZn
5d9gL1nq97YTIcplStRKlgkloZEOQsdRRGjIshXbzTRP6CPx/c75xZRJlnOO
UJ27iZyA2GGe623YBsxA0wEiJEnf2rmL5byfo88HiePF3141Sb/FTlcX3TNE
EO9SQN6d5SuWMDZMiE7tfxZcxrLwhptpX4gZrt/UkZXvsCPAyH+MeCOVmaB/
kOWGkCyvcSLImjOQMsby2e9pL5mEMTVxtHD7e6Aw9nFQMqYJ/tkt+53DWeZV
62D/TiTfsBHtUGnHXnuGujhLnLRj/hfOYNmpKDBunlBWChpC77ApTQUmBxaI
svrsnKwLH7BLVZVX/yYCYnSFHRpYdv1hxr9EGDp2+Iis7wBKVegyYz0FOv4s
GwRUYDNCE9XPssPdVzGZWrydQEH3Wh9ncMCJeAX+yWPYlEKbBwsr4LumRfe/
HF24Pn78YgsXlLKPIR5L7Cp185CD3MBo831U/YhVn3QL+roaeF0enVM2/ojr
Q741h3jhw/adnYOJ2AORFzOE+SGJq23XnSlsil7zU24BUHjwk4v95ifsx1rW
a4Vgmh7pWvwZ297T47GyMBQR0u9dNLuBklq7aoPZWjD4ZJLc2Yk9wLPzTcU6
sBdI1Xwi0YufZyCxQVsc5Po1Exzp2JK+QifLJICZ3bS8rgabP/mSAFUSfA1n
mgNP9gGF/oAwad0M+iIhqtuKsVFbHV+uFKwe3nh7alU/UKYLRtXjpSHOf4+D
dTb2wGFNt6uycGx/d/2apX7WeLLNhFAhes2224NyA0AxS8/KjZUD2+6WX7d9
sFO1PYpeKcCY13w9m/ggzv9MVMpVgZbeKp+e3dgDah4f2VThqUG4crEbdon2
V8k8VfASlLzlUoVN6TIvkFQHW59xg71fsek3fHQG1UFnoODHZsHP+HrVH2rT
NWBFjpFd53FsVQ//fXu3wpiwMH9+BDZ9SSxMUgteXe6riShk1X2Dd1O04ZaR
h7we1xAeL2/VgvfbYNNI0kx2JrbqrS2r3uwCRkzvzXdt2Blnvnq26MBnfQnV
hXnsRqsit7cEPLyf4qKvPwwUk4MeFd4IFO3vj3zsxh7W2eZXqQcRfENBy2wj
QKn1yzlvqw9TL6SlZOWx26/Jb/qpD7niaUfpntjW++w/6e4Gre70Ts41X4By
SN33ArshxIWNXVDWwM4Vl62rMISf2xWEzW2wYzaJ6182goq4TLO7adhHjJw4
V+4D3X+fNGkQo0ApSOS23G8KJm/zy+3dx4Aym7q0r98cchgzNsGx2BIBiQwH
C+BT1VzIKsd+0XXH8IsFvIss1PzB9RUoXSdT838cAmuTkifXU7G9VEpad1hB
2a+Ffc/qscdIpv87K9iQtX28axK7aJjJ4WoNfdzlVJnt40CJOPsxPdMGjjc8
Tyl7i20eK2tgdARqvZZ0Bn5ghzSZey8cASoVelZKTABFj6elMtMOxq5UiR50
wj51Ny1P9Bi46b28Oco+CZQhU3PGGge49LwxSFhzCig2LxwM7U8Ae/nSzUs2
2Fat/+xqOwGhJZqpA37Y4w6D47onIe5ZakV2E7aAb1uo4ikoenxxzuAYEyg7
A/h3CpyBb7Hypy+EkUARP3O2V9sFLkYfvdD9FPvrT6cjdS5AuRkTpPsB2/py
1IdDrsC1h9LGyT8NlHL+uTofNxDRdZl8ZzsNjGkBG043OmhqG8g6T2P/rjjx
mt0DFrYeU5bg+AaUvLgNhrYeUKF5SePt2m/AcK3705fvAfrqubraO7FjWqfP
nPYEc9rGoxzB2MWlItJ9F4AuPXs7ccN3YJxmV//I4QOaUnzJpirYR1RfLbr6
wIKkYhqb7negHPNq/vejD/hL2D87fQrXBfLs655dgsj1La0aedjdBSdzvX0h
m+/hqpY9M4B8wy5kSjBAqXxbi/DhGWC8knzicJwBmade37BznwGK0vrFzxkM
SH8+L0LemYEqOeZ+Q60AuO9sJCv4FeenJJkVtoEQ38DUtQ6fhao3T/7Te3UF
RD2CVt5LmQXGZa1KCfGrcFtCtOnrs1mgXJp16nC/CjEXdM0u9+A8p6Ncz7pg
iJKOOZpMm4Mqvg7S7vw1CPbffnm4dQ4YYR9qN5iHwUqlNwRteA5QY664fH4Y
XOlwZPdawHm99tebhMIhgBYRyrV5HpDD0kJ7Zzj4dvfdUTw/j+cDfxDd5Tp4
aF8poAv/AMYkmZDoEAX25Jup39YLIPl7pshfJAYkKiXkJpwXwN5C8uW7gzHQ
E+lm/9FvARiFVn/uXI8BKxXe94UPFyB1glvhEmcsmLruL3GbxvUyn3Npf2JB
Z+JV4MC1n5B6QH91B1sciI02rqstWgRK5FY15+NJ0FUkejC/aRGqkv1oIU+S
4HbwmbDUnkVAv5PtNi0kgQB11R9f9l/AGHSXfx55F1ad3Pt5q+kvSNX0GS2v
Tob5z3XZ6SO/IBce1HmnpML7vhrdcOE/gI5yDD3e9wBMDkdo8yn8AdWY/Wv2
+T6A2k5LWrTOH5hOkJzWevIAitrGRBNP/YEq5CJL8j2EhBre6cySP8AvObdh
qOshOD6yTW4+sgRVX/q+j1x8BNOu3xe505ah7di4/v1vj+HsePn09dJliDJy
qMhXyoTPp65+EXizDNPp52T4TmVC+zHRd+t/4PxQSmNWdyb0yKe0x8hQUNSu
m06ezVlQKVaX9dALryYtYw26RU8geInftlaMDUVttS49NJQLJvwz9A4ZNpS7
LP/00oo8EJT6cG1MhQ3xL8QP1srmQfLu+EIefTZE1/P8XHcmD4oiNgtYOrOh
ARelaJ/pPBgRU28cKcfXOze7lMr5DAy0LbS47NjRWLDY6tz9hcBBjxU0TuFA
1lO0eDWDMhgTshzOyeBA8lccP+g5l8GbYuEioXwOZL/Za4x+qwzilqNtems5
0EDcH2vpwTJQuXErlT6O85wxdf3+5WCbc0PlztYVKMMCMR7XVEDeZKjx8KsV
iOJeE8hvVwnHzvoF+i2sRAV6vzye0GtAfDEpwOnKKiRpXrZj65omKBeU3LZy
ZDWyFzJ05ehshdI1C1OPtq9BRU8FrJ/R34NY6koNSjUfivtgyfXkaCeo9Jav
u8IrgPg9i6sO8+B1vuhG75ClIOqykeyJnesDdgqv9N47Qmi+JwPYLAZh9jpR
y/ZSGPFM3HF9O/MZ7oxy00RXiSDJa8p5xvHDoHj12rer2uvQwiG7rbIcX8CN
mfLfAYYoorvYlFifHoWhRsfQjS/Xo3GHSsnbqWNgONo5jabF0IKsU+PKtK9w
9O3opmqtjejA7Xrnw8njcGL5cWbcaXG05QBvxUb8305IFin0uCWB6Ko29DrR
SQjglriW2bEJlUcX8ORWTIJSj7NtUqAkunHMTEUATYH7ehHLm9TNqOb4isSY
0inYdyOWL6RhM/q3aNbTVIIJm+SY3pl2UohnLuyf165MEKmUKN1qL4ViA659
5XZnAo/VgcUqRylUskd3eDedCYvBub6dp6XQUvo69fLzTGj/cj5gxXkp9F33
HJHozYSwRz/CjgZLoS3iMrfUApgwL8uWLPhUCp0MG+8ui2ZCi4xw7SWKNPp1
8PzEkSImGG/+/ewTuzSKhLwIi2ImNIkPP9ixUhrp3bp+xaiECfUiBUGL3NLo
sU2+j0YZE6pWHdK/JCSNSg/lXFl+zoTCyegaH6o08l435XmxjgnJBULVF02k
kYGl+bnp90w4ZyD0witOGhl6U/rXkEx4F7tY0Jwgje6sPyH0EVt9dDBL4q40
YguZK38wzYTZ0Nz4+nvS6MDnWSft70y42Lr/gkiWNGr3v29kPccEhm2IctFz
aWSkKGHB+MWEKPqfhLnP0ujJSPxHZy4ScpJGvT1pMujx8YJ9NeIkPJI+Sv21
RQZFRk5GXZYgITmzvT1AXQZNNAobaW4i4UZJtdoNbRk0Ulgg9FCSBHp74sRj
XRnU+PPexv+kSdDgMTvWbymDtOrYzdYqkFByuWSPsZ8MUggsaxzQIOGlbeha
yVYZ1NnyueTHXhIM9hSfv/xWBq1Xs7IINiShVm2kteO9DLpFuxgsbIS9Sjfs
epcM6lB9U7zFGLtoYWlxUAbVb6aaOpiQUC94ZuzDrAzaHz8RlGdGQnPznvJw
MVm0Tiqsn8uGhLYdKxx+nJRFZdw9kHCGhLHD1ReunpFFTU8vL4qdJWHZ1y9M
yFkWhS4amCZiq1QuPNtCl0XFjf41CU4kXNef4jxzSRZN0MpHYlxIMDbpyO6K
lEV2y11WXnT8PHYZC6XFuD1P+wjpTUIRwyTKl5uK+IeMyJarJPzLWW3R/w8V
aR7mUd0STMJc+NZ1erxUpGJDUG9ia96RSOYSoqLNH6o0Dl0jIf/JdNatjVQ0
6jbW1RGC38+nmIaMLVS073LqxTfhJKRp9i61W1JRVoiJW8hNEmLGXF1p96nI
NHb2vVoSCSIvB7WvPKSijFQJ+wDsuLuW7N2PqCi/Z2tuG3aSuc6dkCwq8q97
n+R2l4QHFTzVQwVU1NJwNDs9GfcflSWc0ICdONbIe4+E1m1fyzmnqKjh6n7h
/DQSVoeeWD2gLYdOz/8MtswhQTr+dMTZHXJo/66HXUnYux478c7skkP9UyLk
ELZ7E12QU08OrUjicT6H91Ht3P+JKZvIoarzGg9Dc/H8CotVvGgvh/ivfdJ7
mk+CekS9MX+oHIoXv3mqrYgEmxvy4egTzgd9ifB4QcIix1B5co8cKmXLCH+M
nXTx7uTvPjm09fCvY/3YfQ6CpqVDOO/VHmpcSYKj5m9+9Sk59DOlcESiigSn
j623pSnySC1O7GNlNQm+0t73OanySO7SpYChWhJSi+tKW87JI/b6pS0lzSR0
OfDdt/OUR8s6EVvGsAV4bMKYXvJo98vylaKvSAi0n7Tl95VHgkLXtLyxT3AL
/bYIlkev5T2faLSQIH/YnuhOkEe3LweuSXtNQu7SYs3Xl/Jo3sL4olMbCZW7
VVs4RRRQx6xRWTDeV34y8CkPF1VAK+Zc07OxZ/VrMvk3KKA114U932Er6h0K
FZNUQP8+M88W7yDhNnFxj4qiAlLpcEvMx3bRrqqyJBSQc2p9WEcnCWIKZoUP
Tymgzw+5j3F9IsGLh56sV6yA5EpeKAj2kbCeTt+VVKqA9rmy56hgV7ynf5or
V0DKXNs37MNmSzwn8rhKAeUk1eUGYUcoeETyNSugCW/D5hns+3u8/Hp6FNCy
Ga2+tZ+ENwzfo17simiTcL619yAJsnMhEpn7FZF/X/jlkGES7CNFPbXMFNFe
3uOF97AT5DKaaswVUVLjSFcZNq9tg2e3lSKa2bi9dxJ7/sXKVzyOivh7lOo9
MEJCQ0igt7uXIurVUWkW+ELC2Y2+bZopikhV6lbn1VESnui7B1ZOK6Knp42v
qo/j+adbFCw5o4i+Jt87uhtbDf6EBcwporaonfLW2IU7wqP1FxXR586zEf9h
P1dLf9jAoYSUTdYkNGC/3tRf3yqihJLX7PpgPUHC1C/TfwZ2KaFfrmWb6JMk
0ApUYiihSsh8UTvCk0nCO84LKZbhSui+9v3gIGwvm/LMzOtKqH482/MW9oul
vdWHbimhma5mpVxsMyMHZkaiEtpvtJ1rAtujL9rwYI4SmnIwuXyUJKF01c/f
994roT3E1oRd0yTstnt5Ul9CGXX9eJXV+Y0Exkic/CtJZVStKNc/jF3h6jZh
Lq2M4ixjOL9ja/qtP+cor4wOLrxW4/lOgkyKu2+AOvbhvkXAZh/cEF25RxmF
GlrZp2G/OOFZtdNdGUmVrH1xeoYELRfZDZpVyqglmbOjZRZ/f9b5EVE1yujI
q6uPOrCf74alyVrc3ivLbQDbYJPNYFqTMtJNXfllBtviXUT6uvfKyNL32Tmx
ObxebJvV+DWijOzGPrCfws5c8dKk5h8aWu+quOMHtsRdez8zKxqK0j90hOMH
CcIriV0zNjS052yMJg82t+uGxdgjNLR3wW7FWuzZXR0Xuh1o6Pf17DAqdnPP
PtdTLjQUXsavYYTttVH7iG8ADQkMpv+MwH6TuGZHRhYNFaw1vsW7gNcTjokf
xjk0JHvExkkEu9S5sXAql4Z+bu3fIYH9cGeQmkYRDeXFO9XRsC91L8i/qKKh
zQy9ABNs6obhde0fsDPm4kOwNwZVf/DqoqEDKOP3DWyBieTo9d00dM+PsL6D
/bvMhu/YAA1ts1ddTMN+Z9vKOT5OQ6uiBr/WYDfWZNdGTNFQ7uGzws3YzxXD
ArdM09A5Me5tb7EzFg2WPOdoKEwh06kfO9lRqmLdAg0V7y3x+YId3bzsU7ZI
Q9mzPwKmsEPUe7Xt/tDQulD3oFlsv4SyueVlGlqwkvX7hf1/WFbkdA==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  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->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None},
  PlotRange->{{0.001, 15}, {0., 0.9991433585917084}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.571147334652072*^9, {3.571147514956462*^9, 3.571147529775435*^9}, {
   3.571149498526079*^9, 3.5711495120912533`*^9}, 3.760843742357246*^9, 
   3.760843798495467*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\[Lambda]", "\[Rule]", "9.153519026637571`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.571147334652072*^9, {3.571147514956462*^9, 3.571147529775435*^9}, {
   3.571149498526079*^9, 3.5711495120912533`*^9}, 3.760843742357246*^9, 
   3.760843798506064*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{640, 750},
WindowMargins->{{4, Automatic}, {Automatic, 4}},
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[CellGroupData[{
Cell[567, 22, 224, 3, 29, "Subsubtitle"],
Cell[CellGroupData[{
Cell[816, 29, 314, 4, 44, "Subsection"],
Cell[CellGroupData[{
Cell[1155, 37, 263, 5, 28, "Input"],
Cell[1421, 44, 185, 2, 28, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[1655, 52, 361, 5, 44, "Subsection"],
Cell[CellGroupData[{
Cell[2041, 61, 276, 6, 28, "Input"],
Cell[2320, 69, 230, 3, 28, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[2599, 78, 994, 29, 51, "Subsection"],
Cell[CellGroupData[{
Cell[3618, 111, 520, 16, 88, "Input"],
Cell[4141, 129, 89, 1, 28, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4267, 135, 612, 16, 88, "Input"],
Cell[4882, 153, 303, 4, 28, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[5234, 163, 408, 5, 44, "Subsection"],
Cell[CellGroupData[{
Cell[5667, 172, 327, 7, 28, "Input"],
Cell[5997, 181, 255, 3, 28, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[6301, 190, 643, 15, 95, "Subsection"],
Cell[CellGroupData[{
Cell[6969, 209, 343, 8, 49, "Input"],
Cell[7315, 219, 189, 3, 28, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[7553, 228, 444, 6, 44, "Subsection"],
Cell[CellGroupData[{
Cell[8022, 238, 891, 24, 63, "Input"],
Cell[8916, 264, 8546, 152, 237, "Output"],
Cell[17465, 418, 295, 6, 28, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)