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

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

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[      4653,        141]
NotebookOptionsPosition[      4109,        116]
NotebookOutlinePosition[      4466,        132]
CellTagsIndexPosition[      4423,        129]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"q0", "=", 
   RowBox[{"4.62222", "+", 
    RowBox[{"0.0158333", " ", "t"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"q1", "=", 
   RowBox[{
    RowBox[{"0.0004", "t"}], "-", "0.0573"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"s", "=", 
  RowBox[{"t", "\[Times]", "0.44", "\[Times]", 
   RowBox[{"(", 
    RowBox[{"q0", "-", "q1"}], ")"}]}]}]}], "Input",
 CellChangeTimes->{{3.5881611768035*^9, 3.588161188265156*^9}, {
  3.5881612210200295`*^9, 3.5881612646965275`*^9}}],

Cell[BoxData[
 RowBox[{"0.44`", " ", 
  RowBox[{"(", 
   RowBox[{"4.67952`", "\[VeryThinSpace]", "+", 
    RowBox[{"0.015433300000000002`", " ", "t"}]}], ")"}], " ", 
  "t"}]], "Output",
 CellChangeTimes->{3.588161268562749*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f", "=", 
  RowBox[{"Out", "[", "55", "]"}]}]], "Input",
 CellChangeTimes->{{3.588161292140097*^9, 3.5881613088740544`*^9}}],

Cell[BoxData[
 RowBox[{"0.44`", " ", 
  RowBox[{"(", 
   RowBox[{"4.67952`", "\[VeryThinSpace]", "+", 
    RowBox[{"0.015433300000000002`", " ", "t"}]}], ")"}], " ", 
  "t"}]], "Output",
 CellChangeTimes->{3.5881613110091763`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{"f", ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "840"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.588161314199359*^9, 3.5881613258060226`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVx3081AcAx3HHMkVFmKuEUznnRYlCK+6rkocRL+thlLiQhHnaxXGX63Du
9yvi0pAelEXloY7kfiK21oMelZvMFZGubWyRKw/NrP74vN6vD2NPfGCkpoaG
ht+nPmtSbm/bNjnqxhbJ9NMOabInyPfeawUd7BPz1etjpl+yixy4240FL9kn
j4THjGuMsvdqN+zSEoyw6+VXfD11aNgyogid4mtgiCV6omligA2vI/rf8/Ux
UIzmnNUMNPfZnhvjW8DA9RtRcfwqTD7PF73j20O6r1Lc8todPjsXJKSscIc0
0+NnjuxbOJcPEF1ib1hQW2hBV3cj/6BhQ0VPANx9Ld2INZEIiXnx6iefbZiz
4GVYnmEsmrJtJJ3fB+H477q5r9ITMRJqPvTrUAjKT1sq7NK5kDIq6f0sDlRd
wwlvq3hQs4Qfxp3D4f0q2DDxiQAbF9Q4JiRFglfh5xXvfQjBBaVVGjlRUDM5
fS/KMvHWiGlsUhANJ+uCB42zxUhM1e7NuxMDz1ipuvGOBNeTKvvNuuPg38II
S+YeBs9qi6VkTgLUursuuh7Mg8K46MHNpYkI+vdMTvDDfBzrQKGuTRLUfk9H
+/yl8Eov1M3anAy6p6qmRKsQnFGvMp2AHyDzXxJ87+JxJO6oHGyJ54IR6WbE
zCpCG1vBcCIPIKjwTfb43hIkj3H4TQUp2BSSqapwKYVpUYk4/nIqZlstjXXc
cAosbYda+yYePBvnTbe7nMGB8eJHV1vTMBy6iG18ogxU98XT0cp0/MbVHRM2
nEVY9uIjNoN8cHSyWmW3zmGa4cwy1TqIVNNFj+nvy9EDRmuHaQbc1a4SLvM8
co2dqLsGQuxUtp184FuBC6Ir+93LhGiPiHZcdawS3G1KGyw/hIgfK4Ir7l/A
nui4qLLKT9/y/LjrrEvw4So+0teIUNd69E0NpwqDqqHTJpQIlh3WFgm11eAF
dJes8MqEfjRln21eizZzbvn9h5lgqyz8acLLYNrzWPcCsnC0Y097SsIVEC6B
X/b3ZsGXFrZixlGGUxXKMUF4NsSDt1uD/pGhWu9rF8exbLR0NvuLmuugrJ+Z
8BaKMewxst/2cD2a27h3VVo5oF/QHrnpfxXFt9relkpz0GM7yjNmNcDKvnn5
MxMJInOvb+0bb4BCadadfEICgVeLBLevQZCxfcDamkDv3Yx37pca0S1x+xhe
TcDW9zu1UiTH6lK7mLpaAp3i2NwqsRz5NaZKDRmBr6LSE9JJObyfTjWdaiCQ
RCeMTKVyNC1uTHt2g8ABtwhF2Fk5TtaunPJ5QuBa0ULHiVY5OAqLyVUfCDAz
hLG7p+W4oZofLZwg4Bv35yZnGoVFk/91P5oioEfzi9KfReHpkhfymBkCoQu/
IG/qUdgUVZJ6XofE9rkOnnamFKymDCboi0kINHPL5q2jINKj7YtaQiLEp4w+
7Eah12zkWYM5CaVzbU/7BgpFGx81Bi4jUa3VtF7sQ0Enl0w5YkeidHdBqmYw
hYgzvDc9K0ns7ORhIIRCm2zfDpYDCfnfuwJ/4VDgdW12vu1EwtPQcGtmNIWu
P9ZUGq0lkWam2hgRR8Hh4zKT8HUkPB7XCzwSKeTNNcqRuZKoXc6nMbkU/jLX
Gp9hk6hjsB/r8Cj8D22pPkA=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  ImageSize->{513., Automatic},
  PlotRange->{{0, 840}, {0., 6521.034412332274}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.588161328347168*^9}]
}, Open  ]]
},
WindowSize->{707, 545},
WindowMargins->{{Automatic, 249}, {Automatic, 49}},
FrontEndVersion->"8.0 for Microsoft Windows (32-bit) (2011\:5e7410\:670824\
\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 524, 14, 72, "Input"],
Cell[1106, 38, 228, 6, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1371, 49, 148, 3, 31, "Input"],
Cell[1522, 54, 230, 6, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1789, 65, 209, 5, 31, "Input"],
Cell[2001, 72, 2092, 41, 333, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)

