(* 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[      4629,        140]
NotebookOptionsPosition[      4086,        115]
NotebookOutlinePosition[      4442,        131]
CellTagsIndexPosition[      4399,        128]
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.35", "\[Times]", 
   RowBox[{"(", 
    RowBox[{"q0", "-", "q1"}], ")"}]}]}]}], "Input",
 CellChangeTimes->{{3.5881616440892277`*^9, 3.5881616460823417`*^9}}],

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

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f", "=", 
  RowBox[{"Out", "[", "65", "]"}]}]], "Input",
 CellChangeTimes->{{3.588161652186691*^9, 3.5881616608321853`*^9}}],

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

Cell[CellGroupData[{

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

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVxX041AcAB3DxPFgqL2NnnbfrRc6oS3krua/pBW25h+jVvL9NFpW4OM4V
d/frCCmkUF6uvCTup/JSXWuL1uLkvNQtcyVsKkrep7b98Xk+tKDDXqGqKioq
3//n/ymlDCvp7Hvnsw8yl7+OWXCeISbdHTkypmhRdD1fQ8HMs4nzNeAMMLXl
Y3yrpaPMMPWGg2qccea9trK0dsN55q5xuf9ckgqm9oVVOjO08O3rEOVkkg48
Wec0bf2paPnT6spEkhlmzN07rO58g9k/sngfkhjY9kihpLGd4HFALyZ+rQsc
Pwb5Bu72hH3pS2FPujuK+bQi0aG9yEr+sqHiOQtB5doLH/oD4Bf14lWZhw8s
d2s/8fcJQ1OapaDrp32YMa2Mb5ZFYdzfdPSXUT8YXk7o3PtVLHJoYkMlPRBJ
zzJUa6KO4SOdOzVtH4w9waGey27Hw1WvZkPMkVB8t/++4jg3EfuzC6tU+OHo
7llPp25KwZj+GgNKdiRi1x9818RPRWyCen9maxQcNvi1rbx5Es1HxEqTvmik
sCseFvamgW2+a4VgcQy8PYe4PBcB5AZ5vz9YGQvGnKe6TjOBszLkalkegY3d
ftE8LQNuiblap7YfhXzfu6q1vWcQ+N6tRJN1DPcnVhQc2pyN2D3iwTuH47Dw
qfzTfTIHUqacZkccR7NJIV+2MRdHJwKTmrLjsSP89Htn8TkY5RWkH65NQJFX
1lbj7Xmgq9tcZzSxMfP4KmeoOx/Hp/PbyXsn4LQqZDA58gIa+64VRSoS8bQ2
OCrE6iIC0qgiy8EkeC/1cjr04hIWaPZ0I7VkJAwbd1OlxXgO2j2ZUQqC/DPD
pF0lyDCwa2zT5aIqosCUcucyrvJu/OhSwoXr25i829IriPNRWGJ1Kjrq7npv
bSxFUGR0eIk4FWccE9tv1pfBI04+b2jLQ6UetVDZWo7BodEiSiMPCW5h/mdl
FWCz+grWup3EtfGQD/QpMaSmcaWPn5zEFn1OjWjZNaxhsOm/sU4BxtKNHmsq
IXTw0lD2n4JyR+ujAz9U4VKFYoITnIaAuq4CeXo1qpdsctgwkQYFy5PV0V4D
heTzjDs3HXVINsmn1KJFGtc2pMbHk6AglrXFDeT/Kh0rzOHDIWfEVav7BswZ
Lat7KQIEdpm9EbDrIFeY9B29IIDJzhQfiXE9OCm+Ly0shPDOFIh0u+rRJ3Ce
D64WIoLnx/NLkWBjoXVU/XUhZr3PZ4TyJMiqMVKo1AnRNCfuik6TwP3pXNOl
BiHaW310Uk5L0ES9daL3rhCbAhQ7y/IkuHh93ZxHpxAriMzHs7USBMrNZtdP
CeH0c+5b2YAEd4e0I7kzQjxzHPEeeCXB8tlPfe1zQlSk60+ODUnw1PjF7ajP
QnQWTw9rv5Vga3hBQrkmgWjZ8BmvWQnM53RnDKkESMuYkZe6JHhLFkWEGxPw
nWT9M6lPot9kvLfBlIDFucU7vzAkkefafstrFYGA3ZoFDBMSmhlEvMiagF6n
9XSqJYmQYvbw83UE7LZ1K89bk5DWReyh2xAQZfpoVDNIsHu22z+0I/CoZEC1
145Ez4itWN+RQH3kaN8bRxI286sowZsJtGl0/KW6hUTmUn1+3RYCOomnbb8G
ib9N1aY/MwkIHpi1rHMl8S84aE7w
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  ImageSize->{548., Automatic},
  PlotRange->{{0, 840}, {0., 5187.186464355218}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.588161679828272*^9, 3.588161687765726*^9}}]
}, Open  ]]
},
WindowSize->{707, 545},
WindowMargins->{{Automatic, -5}, {Automatic, 30}},
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, 477, 13, 72, "Input"],
Cell[1059, 37, 228, 6, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1324, 48, 148, 3, 31, "Input"],
Cell[1475, 53, 228, 6, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1740, 64, 207, 5, 31, "Input"],
Cell[1950, 71, 2120, 41, 355, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)

