(* 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[      5144,        124]
NotebookOptionsPosition[      4781,        106]
NotebookOutlinePosition[      5138,        122]
CellTagsIndexPosition[      5095,        119]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"0.0002", "-", 
    RowBox[{"0.1146", "\[Times]", "t"}], "+", 
    RowBox[{"35.9511", "\[Times]", 
     SuperscriptBox["t", "2"]}]}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "840"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.588079513554941*^9, 3.5880796416311665`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVx3k8FHgDx3EipJy5koSVMmty38d8f5GwJZIOx4PcFXI1oyi5Z1JJWsnV
ptBBudat2ZQVkSKEciSVahtHxlHZff74vN6vj/KhkD2+K3h4eHL/6//KFmhp
sBemLJZe8avs+aZOm2d9szWO6aJt42EGuQyuQKZO5D7pmBFafr5Hz+y8Csrz
vwqer/9AO6i0ycHEWx9+AlVufDEc2vOU1tMvBS0xaxZWRcuZpb16bmw2wd6F
M+GaotH187R8/YpS/2BniN7+7Fcz8J0WRykKbaW6w57T47EYzYN27+gKOzFv
XD6rm3oldQVCBPbu8FcKwJBaeo1BDj8oMS6zxm1BUHnIGe+5I4Cfb3e4ewmE
IdB9t0R4vRAiZhae8kRE4v58iblEuzDmjlraLlGjMHdpzeF7A2sQ56D6wkEv
Btve+Yx+ixbHGKU3QWBtPCZ0MriPEiRQX68+VJuSCGZss0hGqiSu8j6pvaqa
gq71KiY6OVI4endS8F3nOYQHOjrw3pBGaYqBWVFwGmSqY/267sjg9uXc6mmh
dLjvGU4PrpfDr7TX3I7jl8FzTfSWefM6lA5WNbjbZeLGF/MHa9rlUb2n0opf
OwuTKTmfbg8oYHeXSt5lw1w0DGtcn4lWQje/d/24VAHOJ1lRB3mUodLod1vw
txvwpLrVPExQRvmhH4tVrJvgO3m282KqCn6PfMuuVCuGnczkomaOKsLr0odN
npdAoZE3SVZpEzqHqIM1TvfwxXudxHLBJujNURVGQ+4jrcxmc+cdNZQH1pw1
FS5H384ip6P1W2A0YlGpx6hC8UzTGyeaOg6rHTD6w+NPnLjaG2jarA7aW5Og
7t+qofhhZaxwOwXtbLePKTq18In3uVs8oAG/1ZK/Ghk3YmEoLW46Wgs+IcqT
3dLN8NQQjAh7pIWAZOHdjxua0XIyxnd6tTZ+P/nijwS/R0iXP2wzfVUbjPmf
4kEPH0PjgKXodI0O3K3apN9lt8Kz+1vW1KweMlUptaEvO9GicvRsqJk+/Jd5
vpNbz0ANG4ueiteHrqurDIfWhUXxZx5TkgY47jb8a7P8c1yyL940pWUIgRSl
SbPRF2h54lLGOWoMj/jkilNlvdBY9/z6sUpjaL74aNmr3YdLATsyOEvGkLlg
2p5R0QdPQT06h2UCdaeSJuv6fixaiZhzik3hyt9mdGpwAFT2g9av4+aYFv4Q
ZeoxDDtXyWP0rQSxewczubXjOJwT9bl/NwEt8C/eLuF3YL0eCTAJJRBPo763
cnuHJx73vH5UELxde0WVn3cCNj47neKNt2HvbFVgv+N7bA9KMrhgZQlvOekN
/eKTwOnF74Uu25F3XEtKfgUHnmyvKKHo7RC9nsBrr8dBLO+Tb4G525HUm63R
5cfBg/jMfzRGtuO8y1qzB085sEjRGyn3tcbKZ2qwyZmC2cXg5qZjO8AMHB5a
aTcDw4IxZm+SLb76ZAZojswhr9LbN63IFmF7tWR+yHMh0DIOu1ZbdNuGcaX3
cdH7YYLbuMoOutZTe9U7uIjY+sn3Zqod3BIHT/Y2zaO8doZEpP8Gnw1eUXb3
F6HRxb8okbcLpFJLN6v9JzJGE1+2N+1Cusekc4fYMpamBcoSh3eBLb7r7s69
y2iTXhWwoGSPmgSRWY03ywh0FekdKbBH6sFGbu0JHlI4IV1+79ZuPJLiaxfJ
4iVpp9ZWFQ44IKeJ0/Vhio9YFnaW+H12gKG8fDOvAj+Z62AWqv10QJUqd8ba
mp+4b+C5UqjsCC/rpxL7svkJpeHzicIAR/g2jJkn71hJmhceo3DOEVvC2fv1
iwXIXATj6U1JJ+SvpqWzWauI+5HXb2/YOcPpg43KpR4x0pIfnKfv6owZWRF5
WT5xotWzfKDliDPS/7zxnrtenKwwV+l8n+oMMj7iMLNLnBSL+tdQnjkjjvec
6/NycTJbxkm977QP4ZaVjpRYCZI6z2fQ4LYfCu8s/tqtvpbUJVJSuoMPIjnf
qiSgSoZwPDZ+evTJHV3CbVLGwRtJunKR3Ki6F2LFqVLW91TJrHrsHNfQG9Rl
yzumX9WJpWSJ7rEwX9TUbxuTVNMiLhez7/Ak+2PURG5yIViXfJXaLC17MRAW
gquTXk0bkFCGwJvzfx/B9EWd0lZZU1IfVjSq2B+ESe43Y/ntNBKlZq+SInwM
2oYtTzwltpEe6cynzb+EQrL6zNnsa1bkUhcyVlPC8Ml309O/KTuIzcmM1QnW
4djQVqibL2NHvKZsrgk5ROB83j/hZfM7Sej+ovHGkEikZ/sFiKg4EDatR9mA
dRzeMb4/KL2OJHzGK7ruIh0FN6KH2LFORCEzKynkHgNG+0v7//ZxJuoCOqVa
dVE4YGsh8dFsPznOvdJZ+eAE9B9/lKpWPEhq+2/lBQ6exFBvdXauhSvxTFyf
ShmPhpcnIuTs3ckPZUN1Bb5TODeiKH4634MMQPlBl8JpdEg3gP+nJzknbVDb
KhGLOjZV96HyIVIcd/8wuRYL25T3Sn0B3iTSeZCCTWfAMApZZ3jDhxwKDPK/
VnQGCVItik/HfIldZM+SnH4c5PPzVIV3+JPxiU95srVxsA3lGXPMDSBRDv1Z
W23ioSF2a4yy/jBhb4wsaO+IR67VBdE3zCNks1aUeptDAkRt9o2OLR4lTKM9
gqNvEhChI1TZcTmY5BYOzsR4J2Iw4Rf3IrFj5O4aEyPdmURYahopOEweI4MV
y/O2sUk4WZLmcrollDSwI1sn+JIR8stsbdeVMHLlMftrdnoyXoZ/8jONCydq
Wg2b+mRTwN9XN6DlFUF6BhX7w6+mQMUqYN0pRJKY0/vGtmxh4paHDFXU6Djp
T7FY8r7LxKqBtiFBVTrRy6YeKS9lguawMkRrC52klSgM8pQxgXNvPA9q0Int
i8W63ComClyDvO/q0Und+uoTfU1MjNh+f7tvO53klGou2j1nYufR4ReNfnTi
1aO0oD3HxFhrnX/3LTppmhALjJ1nwk+u84tgKZ3IL/zs71xk4v7W2G6zcjp5
seF1zZFlJm7eYzcW1dGJlX8W46YQC6J8FSJx7XSitigxL7eehfavbtk2X+gk
bg1vgP8GFqbuuK2Pn6KTN4qcvqqNLIxsXVps/EYnmZad1XtUWVBmSr3S+0kn
QudY9FQqC4oXasQ3izGIT37U+wFNFi6fKT3ns5ZB2GUB+9V1WHhlYnn4uiyD
RPVaG7YYsNDEa7ttoxKD9H7QL5IyZsFLrM78f6oMorOkKuttykLH2ydXcrcw
yHkRqeQycxb4TjOcXmswyORGPu4y7b8ffRy0QZtB/gWbyYQ8
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 840}, {0., 2.536699886081029*^7}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.588079658978397*^9}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.5880795348801785`*^9, 3.5880795381561847`*^9}}]
},
WindowSize->{707, 515},
WindowMargins->{{301, Automatic}, {61, Automatic}},
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, 350, 9, 33, "Input"],
Cell[932, 33, 3734, 67, 227, "Output"]
}, Open  ]],
Cell[4681, 103, 96, 1, 31, "Input"]
}
]
*)

(* End of internal cache information *)

