(* 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[      4721,        138]
NotebookOptionsPosition[      4238,        116]
NotebookOutlinePosition[      4593,        132]
CellTagsIndexPosition[      4550,        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.21", "\[Times]", 
   RowBox[{"(", 
    RowBox[{"q0", "-", "q1"}], ")"}]}]}]}], "Input",
 CellChangeTimes->{{3.5881605257382617`*^9, 3.588160589994937*^9}, {
  3.5881606877415276`*^9, 3.5881607090847483`*^9}}],

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

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"0.21`", " ", 
  RowBox[{"(", 
   RowBox[{"4.67952`", "\[VeryThinSpace]", "+", 
    RowBox[{"0.015433300000000002`", " ", "t"}]}], ")"}], " ", 
  "t"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fd", "=", 
   RowBox[{"Out", "[", "41", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{"fd", ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "840"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.588160726218728*^9, 3.58816082083214*^9}}],

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

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVyXk4lAkAx3HLbqkI1TzKPbmicoxtlJb5JQmpHW3HVsoxikktYRzTyBjH
mHcpSk2OEPJOhbA8apaa3Q49rlU7y2TWRKtUKqRyVbb++D6fP77U4IjtB9XV
1NS2fumr+mUOq2RTY26W7iM65lfG3CaJ997rErsYwvyYB43OXQwxjbOLktjP
mOf7odFgfT/j0JwGf43EUcYjVXAKxX2UsW1UHjDNU0NQYWSeJVMN7k9DBt7z
dMFiWX330xFdND1eVTrOM0OwfgCvvtwMU/9mC97yHLB/UaOUS3GEz75FkXF2
G2C+SjPUpd0dzmVPRN3p3vj5hxUWOj9uRfaJxQ0VvUzoBlbaN7vtwP7wvv/K
fXbiUFu8/6P2vZCm2Wb8/cse3K+c5UbWBGI0wHT4zvB+pL67HeScHILTVHLp
gE0QzhbpatCTw/DOhv9hwpmFsCsJp+Nij2DjoiqnyKiDsKOTzM38SOzNKbiq
JgwF38CvLrYpCiNLrCn6OWy8kV9s9JzHwbH4OaqTLeHwmF9mfoCMw+9R5ICJ
4ijacnKpb9ZwkWC1bXnG/EiI73JD2YaJkFPE7bfNjyHlo/3h7nl8nOlC7gLb
KPi9Vqe2cpPhdTx3QapnNJL+2pffYJCCoDGvEk1mDOp3Z6c2VKXi2G5ysDmC
g0+OLSGCqHTIGHIqnYhFv4W0NJCRgejxIJ40Jw4jx3upT2dEMBLnpUdci8eY
fdX1pte/wmYOrdpBmoA77xw+cTuyEDtxvrP+Fhe8lfHxbbWncENxuYitPI4t
9NLoiKFsBKYZZtoO8jA79/MohnPwiepsY6RxApSbqqQ+rTPoBfVWl1ESdLRU
m7c65iKLQr9xX48PJ/3rb7d5n4VEUHN4QwkfxilCQR//HDg7lbawTEbAP4Ot
JlfFCGYfDS0hk/FYr2Uipvs8fDjymaVrBGjnmUkXmudj8Nlwkf4NAW6bDyhq
AguQwFTk2XmlgCZ8vHxWVgiZKaesrSMFNSc+FnL0imDtkGDTykxFfdMyrT3B
xRCt3T53QJWKHQc8KrvCS3ChQjmeyEqDi3Pdn3XGF1Gp5bLWaTwNxq3BLN6T
i1D+NjvpzU/Ht3ufXv2DLEWTjHP/mYYQ/hsvn2GzynD+rmyk4LQQHrxEv15a
Oawcmix79DOwMMT6uetkOeRKE0V0fgaax9vyXJsvITFp15MVK0Rw1OtRDpyr
gCLDbYZVKcKguiu77CCJ7wtWh9dVizApHrrsySaRXWWkVKsVoXLK3vHlERLe
D6elFxq+/OX5i2kxJKSGjdyemyIs1pZb3xWQKKy2n/Z5III/Q5U1WUwiSG42
5fhBBC8jX2ZuL4mbz3TY/EkRwjfVhEBFwmDqs6JzWgS79XW3Xg2QeGjcdz18
VoSzmae8PV+Q8AjNi7+kSeDFvWuVHydIWE3rTS41JHApL70mliKBQOubsFBj
Ah2ZLXbWyyRQmYz2NJgSEPtWjPcYSSDe2Nm43YKANs3Vz8VCAs0sIi5zNQFe
btc+dScJQooThnrtCUhezS5soEsgqw3bbUMjwNHr0AxzkSCh29P5Hp3AWxm6
OjdI0P18DblkHYGyLUMXBJskoM1Y6LPWExgtXVlH95bgpPYSYa0rgf572trD
vhK8NNWYmGUQiGzMqi5mSvA/u65H9A==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  ImageSize->{566.9016994374948, Automatic},
  PlotRange->{{0, 840}, {0., 3112.311878613131}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.5881608238653135`*^9}]
}, Open  ]]
},
WindowSize->{1243, 673},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
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, 528, 14, 72, "Input"],
Cell[1110, 38, 228, 6, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1375, 49, 496, 13, 72, InheritFromParent],
Cell[1874, 64, 230, 6, 30, "Output"],
Cell[2107, 72, 2115, 41, 367, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)

