(* 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[      6097,        175]
NotebookOptionsPosition[      5307,        141]
NotebookOutlinePosition[      5835,        164]
CellTagsIndexPosition[      5751,        159]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 StyleBox[
  RowBox[{"\[Integral]", 
   RowBox[{"3", "\[Times]", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"0.0002", "\[Times]", 
          SuperscriptBox["t", "2"]}], "-", 
         RowBox[{"0.1462", "\[Times]", "t"}], "+", "17.3277"}], ")"}]}], "/", 
      "10800"}]], 
    RowBox[{"\[DifferentialD]", "t"}]}]}],
  FontFamily->"Courier New",
  FontSize->26]], "Input",
 CellChangeTimes->{{3.5882191159242096`*^9, 3.5882192239883904`*^9}}],

Cell[BoxData[
 RowBox[{"19554.228432792574`", " ", 
  RowBox[{"Erf", "[", 
   RowBox[{"3674.2346141747676`", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "0.000013537037037037036`"}], "+", 
      RowBox[{"3.7037037037037036`*^-8", " ", "t"}]}], ")"}]}], 
   "]"}]}]], "Output",
 CellChangeTimes->{3.5882192283246384`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"?", "Erf"}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.5882192451095986`*^9, 3.588219249751864*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox["\<\"\\!\\(\\*RowBox[{\\\"Erf\\\", \\\"[\\\", StyleBox[\\\"z\\\", \
\\\"TI\\\"], \\\"]\\\"}]\\) \:7ed9\:51fa\:8bef\:5dee\:51fd\:6570 \
\\!\\(\\*RowBox[{\\\"erf\\\", \\\"(\\\", StyleBox[\\\"z\\\", \\\"TI\\\"], \
\\\")\\\"}]\\). \\n\\!\\(\\*RowBox[{\\\"Erf\\\", \\\"[\\\", \
RowBox[{SubscriptBox[StyleBox[\\\"z\\\", \\\"TI\\\"], StyleBox[\\\"0\\\", \
\\\"TR\\\"]], \\\",\\\", SubscriptBox[StyleBox[\\\"z\\\", \\\"TI\\\"], \
StyleBox[\\\"1\\\", \\\"TR\\\"]]}], \\\"]\\\"}]\\) \:7ed9\:51fa\:5e7f\:4e49\
\:8bef\:5dee\:51fd\:6570 \\!\\(\\*RowBox[{RowBox[{\\\"erf\\\", \\\"(\\\", \
SubscriptBox[StyleBox[\\\"z\\\", \\\"TI\\\"], \\\"1\\\"], \\\")\\\"}], \
\\\"-\\\", RowBox[{\\\"erf\\\", \\\"(\\\", SubscriptBox[StyleBox[\\\"z\\\", \
\\\"TI\\\"], \\\"0\\\"], \\\")\\\"}]}]\\).\"\>", "MSG"], 
  "\[NonBreakingSpace]", 
  ButtonBox[
   StyleBox["\[RightSkeleton]", "SR"],
   Active->True,
   BaseStyle->"Link",
   ButtonData->"paclet:ref/Erf"]}]], "Print", "PrintUsage",
 CellChangeTimes->{3.588219259035395*^9},
 CellTags->"Info3588248054-7897903"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"a", "=", 
   RowBox[{"Out", "[", "43", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.588219341874133*^9, 3.588219351009656*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{"a", ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "840"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5882193535748024`*^9, 3.5882193865386877`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVjnk41HkAh1kbKnukJBp3jvHkLlN54oNybTTR8azOCcm6SUwNxjDG/NbU
DOaHlGxt6ZB0eKyp+O6T2lYHasq1ZimhPPsYkavdte0f7/P+8/7xWhxMDI36
QkNDI/gz/9vwvPNqMjvueWeWV+FqKSMz1MfA9ZntXqpT11IYZjJS6pq20yCz
32vuPjNQmyEjh7Tr92hlqr2eOC2Y7DaQkRC1cv8cTwPds9955yyUEZ+3kQMf
ed9C1rBW0aaWkrt/rj43wTOHh2qPTVyzlMz+IRV84DljuZ/+2Lk9UhK0Wz8p
3dEbfckOgx16Jwnr/Gvxq/xAbHLRIjU8CZFmLa2/2MNGfLNPbfDkj2RvbN+b
n4N2IKe7iFcWRBGF0L7gRcL3AN9OZ8O9AqLebzbaMroXdkaF3nlfi0iRRfWK
ASYHt3tIe2m0kEwy+VPTrAj0ORVGLuzLJb7619ySUqJQ1bKAZ+UiIOGyiqsa
omho+GZkn/2JT8aW2RoYymKgPxUQ1u2WRZIztFUnfotFYpF124OBY+ROSvWA
aVc8grcz+nMepROuTYhlwaIk7LXWMpbFHSFKg9In962SgQMO0UHmyaS4HSWL
7VOgKZzg3DGKIwHHSxbn+aXievHk7Mn4KMIZD6jSZR+B5JBxm/+hfSR5V/Xg
vcQ08M++zOoaYhPipbRwp44iy5ZMubg6kNQJDk8hS8eXqUPs3fHeYJSW5yde
z8BhtvlWU9OdYGq71joruBAxTNLH2BwcnS57drv5GG7/2inYmhqNxq7LlTG9
x1HXuslMZZyAA8KVhfaDPCz3uWK62S4F/1iwmAytLBg1zb+5KkxDDyya2xnZ
4Lp70AEvMiAxcG98tISPcOqvYPXwcVwS1P3gXcVHtS7zo4lXNtJ29NrDOgfv
OoIcrjjm4GBMfHRVdQ6GL00tVtULEJSm/LRirQCqMM2RkH15GBwarTRsFKDB
I0Xi+14ILrur3DEgF7odOhuTSkUgZmnnHz/NRV1orZu5nRi2zlxmKzsPlq5x
/YN1FMTrQnUGVHnoyyrx7wkvxJmLvROZEULcKqgvCxuRoEZvwzq3CSE+XAor
n6ZPovfW/EwgPx9+2xtWvayU4i5JezSkJYKTp6PjeIQMZQ/IWEWRCFsEnraV
64tg43zXutOwAO+2DRh9rVkMZa9pV+qpArxRTn4QthQjM3vna7vPX7K/Ty+l
ykrQVeD5KaJGDFEUNzd0nxxrKhxib9aKIf29UfSAI4f0GqNX44YY+W791Loo
OQKfzynO1IthFamSmMbJoVjZcKyzSQznzRX577lynK51mgvqEKMtYcxHIJeD
ozSfdZkSg3W15W3dEzmahr6J4c+IscEy4aFVuxzGs/92PZsTgzM9fYF+Icdz
k75fYuc/9zo1HF6PHJuiyzMu6FKQtEof+4/IYTO3ZGbFSgrqLdYxKi0aAj3N
w9EmFCZTmlnbdGioTNWd9WYUcqxYC1oW0Sj1fdYQuorClsSm05eX0NCVUOmF
DhTONNs2HTGjEXmWO9zjREHhfzl32JIGuXF4F9OVQpVaOyDchgb3lR/roTuF
8bEdT70caLwaWVu9bD2F0VG/Ezedabh+WmUY4UFBGbY0xHoNjRNfLRPd2Egh
eU6hV8ai8d5Ma3rei0LRzY2tizxo/Af5bU1i
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  ImageSize->{493., Automatic},
  PlotRange->{{0, 840}, {-1096.5494212653564`, 1422.7605371132126`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.5882193653264747`*^9, 3.5882193898078747`*^9}}]
}, Open  ]]
},
WindowSize->{1243, 673},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
ShowSelection->True,
FrontEndVersion->"8.0 for Microsoft Windows (32-bit) (2011\:5e7410\:670824\
\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "Info3588248054-7897903"->{
  Cell[1646, 59, 1074, 20, 62, "Print",
   CellTags->"Info3588248054-7897903"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"Info3588248054-7897903", 5647, 153}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 541, 16, 74, "Input"],
Cell[1123, 40, 333, 9, 33, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1493, 54, 150, 3, 52, "Input"],
Cell[1646, 59, 1074, 20, 62, "Print",
 CellTags->"Info3588248054-7897903"]
}, Open  ]],
Cell[2735, 82, 165, 4, 31, "Input"],
Cell[CellGroupData[{
Cell[2925, 90, 211, 5, 31, "Input"],
Cell[3139, 97, 2152, 41, 307, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
