(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[      5136,        133]
NotebookOptionsPosition[      4810,        117]
NotebookOutlinePosition[      5152,        132]
CellTagsIndexPosition[      5109,        129]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"s", "=", 
   RowBox[{"NDSolve", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"y", "'"}], "[", "t", "]"}], "\[Equal]", 
        RowBox[{"2.7", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"y", "[", "t", "]"}]}], ")"}], " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"5", "+", 
            RowBox[{".05", " ", "t"}]}], ")"}], "/", 
          RowBox[{"(", 
           RowBox[{"2500", " ", 
            RowBox[{"y", "[", "t", "]"}]}], ")"}]}]}]}], ",", 
       RowBox[{
        RowBox[{"y", "[", "0", "]"}], "\[Equal]", "0.0001"}]}], "}"}], ",", 
     "y", ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "100"}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Evaluate", "[", 
    RowBox[{
     RowBox[{"y", "[", "t", "]"}], "/.", "s"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "100"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], "\n"}], "Input",
 CellChangeTimes->{{3.3980333919539566`*^9, 3.3980334040749216`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV1Hk41HsbBvDxkiXjWCpLeR0ZEjlFpNLU833JEkaWkWmhcsLYYyg0SaJS
JkVHUcZoIVTWImWZZGSJLJVwTkyMmTOIpLGNeX/98Vz39bnu6/73We8b7u73
HxwOF4/dr9RLE99n6rD3SEt3pWVGG0KVvNHvodRcaMDPFxddTAd2zNMHG6kl
0JUrFmTqZUOG5cgRpWtVoJWeXfTjey5wTCMCZKn1cKut+FFd0D2gr5FUS1iN
sGG7/zqF6w8gM912zxKjGQjK+Dc+5/KhRDm1cS6uDTKSZS16bR/B29Ruh9mA
TpC6Ers8KSyEqST8WExRF1xTOULJPl0MZxtLjESsHjj8UsvdYOIxZKKfT2cY
n4AW8mYX4V4JEM5lTUckfYasjbFlyrRSKK0lWkzFDYAFjaNS8VsZtFhdeDEe
8AXaZ3L66NvKoZi4Kn5byRAEt0/ZPGaXw/TAidyoomEgzZgX5uyrgPi18tzv
rK9wwtd5XtelEm7dcgn4xhgDncrzWmLT5/CPJevy5hQ+7NxomDhz7znof5wu
DE0SgPLSossVtSooXf3XuDBOCDqPLazXC6ug9cZABD/gG1QGqwYoJ7+Ay7cz
WzLMpiB3Yf+mPWMvwIQKh8xLpmD7rfuiQfsaiJS7cSayaBreV/+7VCLzEpZt
LeqmWDPgcff4nf1hr0CzMc5mgiECWtVC4jvFeniZTuhNVZwDuwiVBOPD9eDj
237CJGUO/D0qdxQX1sMDKZ2LwUnzEGgc3aup1wBmiP1WELcI1tScx0tVDeBY
K+fCC5CAh9du56AeNphJfGfVpyTQ1n0V7zHHhlTdox0EIg65zKVFj2m/hijf
mmjyGxz6178sfp3fa9jLO/nmWa8UkogtckenXwN34u/jMbPSaD2/o4m23Ai6
4qq7Ykt5tCvzY2jgeBOsZvpNrTkjjzjhoi0FChyQh1V7N9fLIyNvUW31Bg58
SwgT+tgroGzmPsKhYxyokzGwavBaifJVx7UKuzjgjU//lBiDRxoPTulKPWmG
d0qWCjLeKkh4xFDd3LEFup3UbnfQVZDMsJ7UseMt0JcyuSHrrgrKMwg8ERXT
AiMrCvZuHlRBxC/4p+T8FlgSayRQDquioHMqEwu4VjCenP/5+KAaOm17Kn9N
eStc7qgd8TywGuW6M3zxK9rBOs22oWC/Jgqx1thQfroDEhwrC7vDNFHB6ljG
bEoH1K0gZIgZmihbNVi86W4HWNFx/h7tmsjKoIIS2dAB5oEvFSUOWugo79Wj
APlO0Lcx8zpgvRax27hbFTI7QVakPSmzTRud92Q6+5Dfg9+WBSUzJV0kw2k6
LvTqApKR37S6vT4K0jvzg+HRA+W9Z6NbdmxEtTzhTff5XtilZlwic84EHaJn
hfJvfYSAxfSchxRTVEbM8F6r1AfhnDHzEtJWFG+Zl3zP9TNcOSRrIA6xQM5W
T/KUsvrhz+Yz/mZUS8QbqJMUvBgAtpyWW/DBHeiG3+DDiaZBMFNNyBREWaEE
ltOT1P6/4ejMbhOXECJq7+/Vznj/D7CYTdoixh7UM0n0juz8AuXXrAa63RGK
ko9dDDk6BLSa3a45zv9D4fOJaUWtQ1DX+vB7ymFrVN6TN3jTahio9jtrAyk2
KMFxpGBn7jDceWT2LDhoL1LEO1wLlefC9Zna8ydP2yJy9jcL9RAujBZFn6JG
2iFjYZ+rHIcLjXbptxMT7VFvqtPuCP2vgNvfz01LcECGio/K+mK/ggQ9l2LF
7kNBTrRoQttXuKQhInVfckSLLnSlOt0RCD/052vRBSekMApNbmEjMHTe4gT8
5Yycar2GcA0jsCojqz8lj4Q6Yu6Ec5VG4aGKcWzzHRd07PtvdAZ5FBoif7c1
LN6PbtZLJenmjgJTl6W9m+yKtqc1fhjmjkItfQFHfe+K5GwW8lkEHqx3klsi
eLkhWg/TbhWVB5WdRlc/97qhK4anSKR8HqRylk11vd3R3YnJfgU+DzJogqBj
g+7op/1b0QBhDPu3Osp6Bz2QpNPWTsN7DAqNVrRGDXkgefdmh3tZYyD7Q0qL
7UNGxxmfP9a+H4MC07J45hgZ6ZAc0xdX8sHIt8hFHOqJdl31iXxuzYeBfS/K
PYWeiP2BRIiI5kP3/bg/gHYA7VBapv+3mA9zFW5Eve8HEKddulRqkA+S6shn
F8O8UEaIdFjPSgE4mdrZ0me9UNP9OYVAogCavbcEBtMoSPCpd+FGoAAuiVvv
CxcpyO02KcgrSwDkm1qzi5hDW9uUvDHrbqLa4Zco6A7TtswXcw1lhcAEM/EP
k7lQzOMVsDkM84+vb5KTMLsGVVZPYY6q0WeVYV77KefdrJiC9A2YXYrZAuCF
juvILlNQKut6lCrmCpldJ9Uxx9XFa2hgdt7ap7Yds2iY5K2H+RxDjRKDeai5
ir8D84jNJe4C5utqNct+mEv7P5grSihIrdo/Lxjz2Qj95HWYyTjlvRGY1XPZ
hkTMxrHuKXTM+xYWQ85iPoN/uCrjV3/DsY6Bmfp28/PbmLmGWcpMzFsNKylM
zHRPy/I6zKHvynIKMTuMJ0l3YuatNkYlmNdc6CF/wewkyeFW/tpr6eV/w8xK
VUquwfy09KRIgpn/KsawAfP/AU3u2AQ=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.3980333251168327`*^9, 3.398033326710052*^9}, 
   3.398033406995824*^9}]
}, Open  ]]
},
WindowSize->{615, 750},
WindowMargins->{{144, Automatic}, {Automatic, 0}},
FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (April 20, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 1146, 34, 92, "Input"],
Cell[1739, 59, 3055, 55, 240, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)