(* 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[     82655,       1852]
NotebookOptionsPosition[     79828,       1747]
NotebookOutlinePosition[     80211,       1763]
CellTagsIndexPosition[     80168,       1760]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Gyakorlati probl\[EAcute]ma: laborat\[OAcute]riumi \
m\[EAcute]r\[EAcute]sek:", "MainSection",
 CellChangeTimes->{{3.494843678640625*^9, 3.494843734265625*^9}}],

Cell["\<\
Egy adott gy\[OAcute]gyszer felsz\[IAcute]v\[OAcute]d\[AAcute]s\[AAcute]t \
\[EAcute]s ki\[UDoubleDot]r\[UDoubleDot]l\[EAcute]s\[EAcute]t \
vizsg\[AAcute]ljuk. M\[EAcute]rj\[UDoubleDot]k a v\[EAcute]rszintg\
\[ODoubleDot]rbe \[EAcute]rt\[EAcute]keit k\[UDoubleDot]l\[ODoubleDot]nb\
\[ODoubleDot]z\[ODoubleAcute] id\[ODoubleAcute]pillanatokban. \
hat\[AAcute]rozzuk meg az adott gy\[OAcute]gyszerre vonatkoz\[OAcute] felsz\
\[IAcute]v\[OAcute]d\[AAcute]si \[EAcute]s elimin\[AAcute]ci\[OAcute]s r\
\[AAcute]t\[AAcute]t:\
\>", "Text",
 CellChangeTimes->{{3.494843736328125*^9, 3.4948438420625*^9}}],

Cell[CellGroupData[{

Cell["A m\[EAcute]r\[EAcute]s \[EAcute]s adatgy\[UDoubleAcute]jt\[EAcute]s", \
"Section",
 CellChangeTimes->{{3.494843847375*^9, 3.49484387084375*^9}, 
   3.49484906728125*^9}],

Cell[TextData[{
 "A beadott d\[OAcute]zis:  ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["x", "0"], "=", "1"}], TraditionalForm]]]
}], "Text",
 CellChangeTimes->{{3.494843872953125*^9, 3.494843950890625*^9}, {
  3.49484462246875*^9, 3.494844649578125*^9}, {3.494845353796875*^9, 
  3.49484535490625*^9}}],

Cell["\<\
A gy\[OAcute]gyszer koncentr\[AAcute]ci\[OAcute]j\[AAcute]t rendszeres v\
\[EAcute]rv\[EAcute]telt k\[ODoubleDot]vet\[ODoubleAcute]en \
laborat\[OAcute]riumban hat\[AAcute]rozzuk meg. Az adatokat Excelben r\
\[ODoubleDot]gz\[IAcute]tj\[UDoubleDot]k:\
\>", "Text",
 CellChangeTimes->{{3.494843872953125*^9, 3.494843950890625*^9}, {
  3.49484462246875*^9, 3.494844649578125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{
    RowBox[{"\"\<FileName\>\"", "/.", "\[InvisibleSpace]", 
     RowBox[{"NotebookInformation", "[", 
      RowBox[{"SelectedNotebook", "[", "]"}], "]"}]}], "/.", 
    "\[InvisibleSpace]", 
    RowBox[{
     RowBox[{"FrontEnd`FileName", "[", 
      RowBox[{"d_List", ",", "nam_", ",", "___"}], "]"}], "\[RuleDelayed]", 
     RowBox[{"ToFileName", "[", "d", "]"}]}]}], "]"}], ";", 
  RowBox[{
   RowBox[{"Hyperlink", "[", 
    RowBox[{"\"\<Az Excel adatok\>\"", ",", "\"\<file://.\\\\adat.xls\>\""}], 
    "]"}], "//", "Framed"}]}]], "Input",
 CellChangeTimes->{{3.49484401590625*^9, 3.49484401965625*^9}, {
   3.494844055625*^9, 3.4948440560625*^9}, 3.494844097265625*^9, {
   3.49484420459375*^9, 3.4948442414375*^9}, {3.494844326859375*^9, 
   3.494844372625*^9}, 3.49484441521875*^9, {3.494844447890625*^9, 
   3.4948444480625*^9}, {3.49484448296875*^9, 3.494844484765625*^9}, {
   3.494844999859375*^9, 3.494845009359375*^9}, {3.49484531321875*^9, 
   3.494845315578125*^9}},
 CellID->17840084],

Cell[BoxData[
 FrameBox[
  TagBox[
   ButtonBox[
    PaneSelectorBox[{False->"\<\"Az Excel adatok\"\>", True->
     StyleBox["\<\"Az Excel adatok\"\>", "HyperlinkActive"]}, Dynamic[
      CurrentValue["MouseOver"]],
     BaseStyle->{"Hyperlink"},
     BaselinePosition->Baseline,
     FrameMargins->0,
     ImageSize->Automatic],
    BaseStyle->"Hyperlink",
    ButtonData->{
      URL["file://.\\adat.xls"], None},
    ButtonNote->"file://.\\adat.xls"],
   Annotation[#, "file://.\\adat.xls", "Hyperlink"]& ],
  StripOnInput->False]], "Output",
 CellChangeTimes->{{3.494845308078125*^9, 3.49484531628125*^9}}]
}, {2}]],

Cell[CellGroupData[{

Cell["Import\[AAcute]ljuk az adatokat :", "Subsection",
 CellChangeTimes->{{3.49484503740625*^9, 3.4948450489375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{
    RowBox[{"\"\<FileName\>\"", "/.", "\[InvisibleSpace]", 
     RowBox[{"NotebookInformation", "[", 
      RowBox[{"SelectedNotebook", "[", "]"}], "]"}]}], "/.", 
    "\[InvisibleSpace]", 
    RowBox[{
     RowBox[{"FrontEnd`FileName", "[", 
      RowBox[{"d_List", ",", "nam_", ",", "___"}], "]"}], "\[RuleDelayed]", 
     RowBox[{"ToFileName", "[", "d", "]"}]}]}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.49484401590625*^9, 3.49484401965625*^9}, {
   3.494844055625*^9, 3.4948440560625*^9}, 3.494844097265625*^9, {
   3.49484420459375*^9, 3.4948442414375*^9}, {3.494844326859375*^9, 
   3.494844372625*^9}, 3.49484441521875*^9, {3.494844447890625*^9, 
   3.4948444480625*^9}, {3.49484448296875*^9, 3.494844484765625*^9}, {
   3.494844999859375*^9, 3.494845009359375*^9}, 3.494845080703125*^9},
 CellID->83503889],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"adat", "=", 
  RowBox[{
   RowBox[{"Import", "[", "\"\<.\\\\adat.xls\>\"", "]"}], "[", 
   RowBox[{"[", "1", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.494845056421875*^9, 3.494845089609375*^9}, {
  3.494845156484375*^9, 3.4948451688125*^9}, {3.494845332671875*^9, 
  3.4948453338125*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0.`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.25`", ",", "0.14632600446509444`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.5`", ",", "0.22679836034427595`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.75`", ",", "0.28638205294744273`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.`", ",", "0.26447117494506045`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.25`", ",", "0.24812786695335073`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.5`", ",", "0.27079648910636145`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.75`", ",", "0.22211080888823884`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.`", ",", "0.19754972800124654`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.25`", ",", "0.18677358383216006`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.5`", ",", "0.15442795125611614`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.75`", ",", "0.14775815883091345`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.`", ",", "0.11548239284027834`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.25`", ",", "0.10207672321038352`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.5`", ",", "0.08764095225985413`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.75`", ",", "0.07735238052230181`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.`", ",", "0.06655555574189452`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.25`", ",", "0.05548976384224743`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.5`", ",", "0.0434558455505058`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.75`", ",", "0.042907044078785865`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5.`", ",", "0.030569911561942623`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5.25`", ",", "0.027025437651593993`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5.5`", ",", "0.025294132045375388`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5.75`", ",", "0.019983860611218235`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6.`", ",", "0.016081176378110164`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6.25`", ",", "0.013631863970799837`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6.5`", ",", "0.012351087940431797`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6.75`", ",", "0.010762855577549971`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7.`", ",", "0.007859726226663175`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7.25`", ",", "0.006970200743723163`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7.5`", ",", "0.00585008183075261`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7.75`", ",", "0.004991069777357822`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8.`", ",", "0.004074764337442719`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.49484517090625*^9, 3.494845334890625*^9, {3.494845432921875*^9, 
   3.4948454495625*^9}, {3.494845496703125*^9, 3.494845522046875*^9}, 
   3.49484613509375*^9, 3.494847329453125*^9, 3.5242420801406317`*^9}]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\[CapitalAAcute]br\[AAcute]zol\[AAcute]s", "Section",
 CellChangeTimes->{{3.494845366625*^9, 3.49484536965625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", "adat", "]"}]], "Input",
 CellChangeTimes->{{3.49484538175*^9, 3.4948453863125*^9}}],

Cell[BoxData[
 GraphicsBox[
  {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGBQBGIQjR1csH++/m7t+V2H7CH8B/asHdZdu9jPQvkv7C+3
PEkWDbkE5X+w13t9vFHi7QUo/4v9ZOunGcsPnYfyf9grhKue2RVyEcr/Y/9/
jWKTQt4ZKJ/BYdnaHit/z5NQPpNDY65GotGL41A+i8O5O7I93kcOQ/lsDsnr
PrnufQlzH4eDjkczj+OEvVA+l8MJsfvWmxV3Qfk8DhpC+/UX52+D8vkctuTM
mRF7djOUL+DQ7uf+/gTnRihf0OG0wbtG9cw1UL6Qww+b12Y37JdB+cIO6+10
6l5+XwrliziUHJrJucN3PpQv6nBpWV1235rZUL6Yg97EleVbns2E8sUdZvSJ
6y8rmwLlSzhwGTVUTS2fAOVLOuywbTzP+robypdyyG8y/Nbm3QnlSzs47djD
eo2rDcqXcTC6eGrGIYkGKF/WwbDxFvPJnhooX84hdoVrkuO3cihf3uHqh2Lx
lsISKF/BYV6huOXmDQX2AKuKjvw=
    "]]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  PlotRange->Automatic,
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{
  3.494845387515625*^9, 3.494845434703125*^9, {3.494845497875*^9, 
   3.494845523609375*^9}, 3.49484613625*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Hat\[AAcute]rozzuk meg az aktu\[AAcute]lis k1, k2 param\[EAcute]tereket \
:", "Section",
 CellChangeTimes->{{3.494845539671875*^9, 3.494845579265625*^9}}],

Cell["Illessz\[UDoubleDot]k a modellt az adatokhoz", "Text",
 CellChangeTimes->{{3.494845539671875*^9, 3.494845579265625*^9}}],

Cell["Ismerj\[UDoubleDot]k a modellt:", "Text",
 CellChangeTimes->{{3.49484553090625*^9, 3.494845536984375*^9}, {
  3.494845616*^9, 3.49484561653125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"x0", "=", "1"}], ";"}]], "Input",
 CellChangeTimes->{{3.494845637484375*^9, 3.49484564009375*^9}, {
   3.49484625703125*^9, 3.49484626109375*^9}, {3.4948464299375*^9, 
   3.494846437515625*^9}, 3.49484677790625*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"model", "=", " ", 
  RowBox[{"-", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "k1"}], " ", "t"}]], "-", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "k2"}], " ", "t"}]]}], ")"}], " ", "k1", " ", "x0"}], 
    RowBox[{"k1", "-", "k2"}]]}]}]], "Input",
 CellChangeTimes->{{3.494845619296875*^9, 3.494845643875*^9}, 
   3.494845727046875*^9, {3.4948459243125*^9, 3.494845929078125*^9}, 
   3.494846823421875*^9, {3.4948473458125*^9, 3.49484734684375*^9}}],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"-", "k1"}], " ", "t"}]], "-", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"-", "k2"}], " ", "t"}]]}], ")"}], " ", "k1"}], 
   RowBox[{"k1", "-", "k2"}]]}]], "Output",
 CellChangeTimes->{
  3.4948456446875*^9, 3.49484572859375*^9, 3.494845800796875*^9, 
   3.494845929984375*^9, {3.4948461269375*^9, 3.494846128515625*^9}, 
   3.49484626459375*^9, 3.4948464395625*^9, 3.49484670353125*^9, 
   3.494846780234375*^9, 3.49484682578125*^9, 3.4948473485625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fitted", "=", 
  RowBox[{"NonlinearModelFit", "[", 
   RowBox[{"adat", ",", "model", ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"k1", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"k2", ",", "1"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", "t", "}"}], ",", 
    RowBox[{"MaxIterations", "\[Rule]", "10000"}], ",", 
    RowBox[{"AccuracyGoal", "\[Rule]", "6"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.49400441725*^9, 3.494004445515625*^9}, {
   3.494004520265625*^9, 3.4940045316875*^9}, {3.4940045911875*^9, 
   3.494004593953125*^9}, {3.494845744296875*^9, 3.494845782515625*^9}, {
   3.49484609003125*^9, 3.49484609153125*^9}, {3.494846274171875*^9, 
   3.494846383421875*^9}, 3.494846419453125*^9, {3.494846449546875*^9, 
   3.494846460015625*^9}}],

Cell[BoxData[
 RowBox[{"FittedModel", "[", 
  PanelBox[
   TagBox[
    RowBox[{"1.4063640767355658`", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "1.276894455872201`"}], " ", "t"}]]}], "+", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "0.746262176153159`"}], " ", "t"}]]}], ")"}]}],
    Short],
   FrameMargins->5], "]"}]], "Output",
 CellChangeTimes->{{3.4948457849375*^9, 3.494845802484375*^9}, 
   3.49484593628125*^9, {3.49484608590625*^9, 3.494846109578125*^9}, {
   3.49484628046875*^9, 3.49484638421875*^9}, {3.49484642025*^9, 
   3.494846461078125*^9}, 3.494846846875*^9, 3.494847350921875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fitted", "[", "t", "]"}]], "Input",
 CellChangeTimes->{{3.4948458339375*^9, 3.494845836359375*^9}}],

Cell[BoxData[
 RowBox[{"1.4063640767355658`", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "1.276894455872201`"}], " ", "t"}]]}], "+", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{"-", "0.746262176153159`"}], " ", "t"}]]}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.494845837734375*^9, 3.494845939375*^9, 3.4948460954375*^9, {
   3.494846288546875*^9, 3.49484629475*^9}, {3.494846332703125*^9, 
   3.4948463856875*^9}, 3.49484642165625*^9, {3.494846452578125*^9, 
   3.494846462578125*^9}, 3.494846584125*^9, {3.4948468314375*^9, 
   3.494846848125*^9}, 3.49484735375*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\[CapitalAAcute]br\[AAcute]zoljuk az illeszked\[ODoubleAcute] f\
\[UDoubleDot]ggv\[EAcute]nyt \[EAcute]s az adatokat:", "Section",
 CellChangeTimes->{{3.494845813*^9, 3.49484582890625*^9}, {
   3.494846012796875*^9, 3.4948460230625*^9}, 3.49484718884375*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", "adat", "]"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"fitted", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "8"}], "}"}]}], "]"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4948460344375*^9, 3.49484605678125*^9}, 
   3.49484614278125*^9, {3.494846396140625*^9, 3.4948464001875*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGBQBGIQjR1csH++/m7t+V2H7CH8B/asHdZdu9jPQvkv7C+3
PEkWDbkE5X+w13t9vFHi7QUo/4v9ZOunGcsPnYfyf9grhKue2RVyEcr/Y/9/
jWKTQt4ZKJ/BYdnaHit/z5NQPpNDY65GotGL41A+i8O5O7I93kcOQ/lsDsnr
PrnufQlzH4eDjkczj+OEvVA+l8MJsfvWmxV3Qfk8DhpC+/UX52+D8vkctuTM
mRF7djOUL+DQ7uf+/gTnRihf0OG0wbtG9cw1UL6Qww+b12Y37JdB+cIO6+10
6l5+XwrliziUHJrJucN3PpQv6nBpWV1235rZUL6Yg97EleVbns2E8sUdZvSJ
6y8rmwLlSzhwGTVUTS2fAOVLOuywbTzP+robypdyyG8y/Nbm3QnlSzs47djD
eo2rDcqXcTC6eGrGIYkGKF/WwbDxFvPJnhooX84hdoVrkuO3cihf3uHqh2Lx
lsISKF/BYV6huOXmDQX2AKuKjvw=
     "]]}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV12k4Vd3/BnBlfJChUMaT0kCSVKTSvaMimVISIpEGOoZ4GpQfKpIhGR5D
RYOSISoOkiHJWIazRcpYMk/nHHOE//6/2Ne+Ptfe+8Va63t/19qKDm7mTku5
uLhmqOv/74ZO/WTJQMDeYsdL4Ses/fby6Mm4d0qfwSbdn7zGI7bY9jjuUba0
F+59feUt0kLH4drmrATp26h0K/BcxfCB5ZnpokjpaPDwOR1nnw9D+5Y7emHS
z3HklJjsfOMjPJE0DQyWZuCUnKv7fE46rtfGlh1/z8AG/1L9KP9XOB7wc+la
mxxs9Tt0Us4oA8KTHr4Fj3KRLzZpJ9yRiauN0VeHafmoWiB1S2bf4EhUi7PJ
+mJIrlGXrfuTDX+B7A13pcvQmpJSVBafDxX9iKAs9zKokFX97Kl8NAS4DbRW
lmHZzuzEiKPvocStmq52uRwv0/x4twkVoGL+uVpjQwUULp6W5vMqhPB4zA5a
aDXsNl+3cFX9gLh2b72chTqMWX8Vk1YoxT45q+cdFvXwPxgccHt/KQattXgF
Muoh3dy+Ntu5FArD1xwzNjPhe2FDv3VuKdwuaK7jamOibSyzptXwE5afeZ3y
YmcDuHdlK7SdL8MJq6ev2ZxGyEw2fYv0rgCr9ZjgM5kmbLhw9lVdbAUC7QSc
juo1YSNPnFkbowLZjm4yudFN6NdXLKePVkDEVSfgutY3fHrKHet6qhLlN39Y
8/k0Q/K+rri4dhU0XonzyQm0oHp1NCFTU41qtXL7WvUWfD860DHwuxr2b68W
/M+qBbX6NX/vz1UjLLfT/VdaC37UxjucVfmM/pKM1mTjVqQtMfTRCPyMxKZD
b7dGtSHsUEuyl+YXCC36n9RX6MRAgXNusXcN4i5Y2qke7ITo228ibmE1UGpU
tRd37URFSOyJ+cc12Jva7Nha1Am5rFFTRlkN8lNjcvLUfqJWIDMnXLgWI0eH
Cw/X/cRXY/OtsjG12P5Ps87erp/4sERNqyC5Ft7FH4vVp36igK1wandeLfiV
Y0skFX5Bykcuoa25FooL+8o66b+g41nun7yyDhYpsV88l3XBIOKY0L8RdXhk
e9PorGIXNt4o6Vj/pA5dy+m1J3Z04U7Oj573mXVw89Gt17Htgl/ZKdHgL3W4
az7SwJ/RhVMVpw9Xcdej6K9uy0Oj35AN1+vpdK3HuiOj/Z9CuqF42LBj4yom
ZHz1d5172o2gqtnZ3QpMiGU8CRHM64Zj0yg1GUzMChxVO9LVjex34T+k1Zlg
luR5duzswbjo7vvS+kx4q/svzPT0ICj/qLDlJSbc7FpMH8314FlSyW+fK0yc
Cd32FOK90FHmDY25wYRpf49e4J5exB6MiEoIZELpieHdFVG9OEmzsuZ5wESd
qISEGtEHqZu8F/WKmfikQ3ciLfqQ4aK1PbyUiXcuFbleLn14xrnVXFvBRFLl
VauCmD7Yteex1tYzcdW3PdFgpA/izcLrdnQysYaVrOz4oB+Ds30Of/4ysVKe
6zrfm34o+xjt9+YiIXzYqia1vB+FGfmzo9wkppOF3NjsftgI8q5lCJKosXNn
+OgPgM/6PM/rlSSu1GkjbmIAtlGSHM8tJETUcnqqBQahIBQiJ6hB4nmYeuic
3CB+XbT1jtlOgjTa8MPuwCAcvq2Zi9AmsemLhOe6mEFojoodkdQjUapyX9oy
bRAVHx+a2h0gcSJYqCSoeBD1s9dbE/RJBBxaumy4dxBJOUOVXEYkOitZyVla
QygYmle2PEbi8gYX4+7DQzCvm6i2OE6N507vuKT9EKSehZgePkFC+2A7cS1o
CJF1U5qyJ0lElX2mwjKEUC3R56aOJFSUDvp7jAzBveVBIp8TiZJbHzckLRlG
WMq/jYyzJEZ033nxqQxjfJea3PQFEvofX4jUeg/DzmgZIeFOomO1Ys7CvWH4
PCjQDvQg4eX3yEY9aRjCCp0fWZdIPEVUStSXYSQM2CSn/ktirshP11puBCG1
Xa353iQi5f/2h6iPIMBU02ngOomNPlfCi/aPoPNuRq2YDwmLPa5tq+kj8H6V
7KjvS+L1e5vLfUUjKL4umHfsFomDMs1y0g0jODLPa7z/Nom2a+afDHtH4OpE
F1MNIPGP9iGxTJFRJB3gHOgOJPEkriy3c80oDLZu+cK4Q0JzBrbiWqPgnpN9
7hNEwjFPM83r1ChehHRenrlLYlYqyyzZcxQKsvdupQWTuH9583TznVHMKj/8
xyKERNEOpf2731Df75R7GRVK4th/jwcvlo1ixpJGbggjMTghE5H4fRTfDR7H
MyivZIh3LFnCwtnVpMq7eyROhs4d65ZiIUmW58XOcBLPzvR8qVBlIaWt5/Eb
yn176nVTdVlQKJtdv/o+CVXJ/PyQEywsESs4cIfypZFn6q6uLOzvi+TvpZxX
HvrS7DYL55y6ruyJIPE34bLCtgcsSCXPPw2mrHvZ/j/JNywkMlUjmJSDTAyF
Z8pZcF/7ykwkkkTt+u23WlpZiFpMH9KjvHxRfraQw4LQhBndg/KroVvv6rnZ
2Fid/TOGcl3zzHiJCBvskF9mDMqcT/QtWdJsmMS3VlVTlnjT5ZykxMbR1Nij
zZQ1H1kmR29h43rL4lwbZaugml8Bu9jIKxyraaF8w2uf/JUDbCSf1COZlBPt
c0+cN2MjxiR/xQfKH402RVvZsBGbL/b4BeXunU/qDc+yccVh1uc2Zb51kkJ7
PNjIzpUtsKGsLB58cPMNNpybRU5vomw0v+CvcIcNzecO3uPU+F0HPItEI9ng
q3ggzqAc0dQ/w5XAxlj+lq10yoyPttvHXrLBab33W4Hyt4wGt99ZbER4yGyr
pub7T7x+emMRG8UMZZWLlOUCC3vLq9jQ7xD4yk/5tF2ybUoHG4pLtzoqU+t5
21A2Pn6ADbmqVrvX1Pona95vDJ5go2G1zA41ysMi3ofpghwoiSXGS1H1IjI3
GmgnyQG/KGu3H1VfW/scS01XczAYMPizi6q/yx+MtTU0OYh0vGkdRdVnfHqp
19p9HHyRadL9RdVvYazWGwkjDk4v7rXYSHmJu+KG6dMc7HM5QntG1X/o6kmJ
wjAOGnRmjx+g8pMp7GyWEcdBucuPRFsqX+RMR0hiEgdW9Qxbt5skpMiqpf75
HIjxiJ319aPy7f+IfaCHA/t6TrL5DRJldHFVLTYHRiVRr7SoPPdaBZ7bOMdB
mnWopxSVd1UN9w5B8TF8aedc+HiFRG6XXk39njEom9yYrKX6xTcDf06Y/hh4
eX0Vgqh+MpVZLGVkTlm19M4eqt9oXdc+XXVuDLFt9nui6STerdgyVRI5Bid4
SnKdJ5G/X2Z1Vv8Y7FaOvGDakGhJszzgPj6GUEvxVA1rKs9i/zmrLYzBwekX
PZzqj7vaRXPSVoxDyirHRtuCxPt/eQ2T9o7jnmHmE1MTav6S2Z7R0eM4P7x4
NRRUfxFWizd/PA4Xc//NiTpUvi65FIuljcOjN18ufTcJHfQKhH0Yxx0776pc
LRLFza0JAYPjSElLpsVQ+8UHgcrKy8QE4syL+K4rUP3fOUHWangCM4ZZc8v+
MJE94OJiNzWBFfMHDD5MMfH8/K4CR65JtG02VKVPMBFwttnaVWISU7Zm9cUs
JgwcxB/c2jOJdQ2/xXb1MlFvFbAqM3QSEaqxI9EN1DnOgC7JvXkKii+SbRdS
mJhcryOaQZ+GzDXlp8+MmdjbpVsZfHUaY/M8anaGTAQmGPievzUNy/nV4iup
/V1K4hhrbfw07BMujvoRTGgucal/UDaNW3HGkTu2Uftta1x4kOwMrmUaN66n
zhN/wydEz1TPYNLh593/Suqx9E+6mOy6WbQv1V1c11QHzUX73KOZf9GSJNkZ
slCDmtvb6ypUFnFLkzWkJPsFtPtDf1JHuQjjWcf1v/irMTTd2dGkvpTIiP6u
slKhEs8HCz6L3OMmPDSJSlfZcojIv2R1d/MQqhpcopbanxB6IefsEyU+Qi47
I2Df/Y+YItK7z/vyE/phjJ3vSz7AS6OMIfVJgIjYmLpH72shOjPLQkhFQcLy
6s100558zDk3PlT2FiJM9l4tfqubh037+BfOFggTqscZ5peX5kD/meK5tytF
CNOVh93IqixckT+15tdJUaJT9lBnUc8bqA5bCDUbixGRyXrBdfRMrBBlC5TN
ihG3HPsLRmnp4Pnw8PXaR+LE2z+N0a8sU+CyveDHP4eXE2bXXnDVPnmB9EMO
T4qnlhOMpgbBHzpJmBySEeuNWUFMxJ/h79F5ipyj+tzR+yWIewb/+yMYlwhf
g4DHjF4J4uVW/X8VTzyEYrvh96QASeJ/Dtmh9tfjsEvrdrS0hhSxLEr4Mzfj
P5xUqP+z5KsUMR7eorTNMQqTn8O63P1XEsunOrjG1kUgjsfOy1xpFWH7fmrD
6ch7WNGR82xp2SpC7lB6Ka9JCHh9/I9pe0gTbxd3NT9bFwSuVLvXXctliPxt
NtP7AgNw6cHrsOWlMsSmmzxmNxZvomhTkIC4qyyh8a1Pz6bWD+KGl1RvisgR
EarD2T2TPlRdM79eK5Qj5rSP8wt5euNNIpS67eSJGptu5y3BV2D7WlNcfkGe
CFn8OFK14AW/gKf+bWkKRFtI38z74EvI6Jd/KGJEIyw0Mqr9brojKCHAvsOE
RozEj6uNX3PHGfORdZlHaMSa/VJ/Lni4Q66w8I2xJY3wuCCcfcbeHcHhNhWh
DjRC7VyR77297jivGc8RvEYjlA8/ojlOu2HNbQkD/mQagS1tH4zGXLGw88ay
5hQaoRjvZqzb5YofI78bktNphPFAtAzR4Ir7ltm2B9/SiO+P2x2OZbliUcXc
M6CQRsgENWl2XnJFGxmeyP2Vet/3ron3JB3vAqcdvzbRiHn3qd+cHjqid59S
TvpOI0rBc8XjG/X/+kKNodtBI+QVawOC8uh4f7W22n+ARuQWizRJetMRs3lH
+JFhGmFr4tZb40yHR9ejY4osGsG7ZFdTiA0dG40udpZM0Iht21ftVtShg2dJ
4/P70zQi49uOtOnNdPzM2e1sP0s97yB7mxToKHRO2qI+TyP+0Z8aLhClI5Ym
NLm4SCNecL9+l8pFx/8BqbGnkw==
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  PlotRange->All,
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{
  3.494846057359375*^9, 3.49484609721875*^9, 3.49484614375*^9, 
   3.494846291578125*^9, {3.494846339140625*^9, 3.49484642315625*^9}, {
   3.4948464545625*^9, 3.494846464515625*^9}, 3.494846585375*^9, {
   3.494846689484375*^9, 3.494846708484375*^9}, {3.494846832421875*^9, 
   3.494846849859375*^9}, 3.4948473559375*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Egy kis statisztikai elemz\[EAcute]s", "Section",
 CellChangeTimes->{{3.494846869015625*^9, 3.494846879515625*^9}, {
  3.494847094640625*^9, 3.49484709825*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fitted", "[", 
  RowBox[{"{", 
   RowBox[{"\"\<ParameterTable\>\"", 
    StyleBox[",", "InlineFormula"], "\"\<RSquared\>\"", ",", 
    "\"\<AdjustedRSquared\>\""}], "}"}], "]"}]], "Input",
 CellChangeTimes->{3.49400467240625*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   StyleBox[
    TagBox[GridBox[{
       {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t \
Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
       {"k1", "0.746262176153159`", "0.013389164296089483`", 
        "55.73627745916276`", "1.1851429829948934`*^-32"},
       {"k2", "1.276894455872201`", "0.014225407931901057`", 
        "89.76153527440948`", "4.98882618076756`*^-39"}
      },
      AutoDelete->False,
      GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}},
      GridBoxDividers->{
       "ColumnsIndexed" -> {2 -> GrayLevel[0.7]}, 
        "RowsIndexed" -> {2 -> GrayLevel[0.7]}},
      GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
      GridBoxSpacings->{
       "ColumnsIndexed" -> {2 -> 1}, "RowsIndexed" -> {2 -> 0.75}}],
     "Grid"], "DialogStyle",
    StripOnInput->False], ",", "0.9969645269461191`", ",", 
   "0.996768689974901`"}], "}"}]], "Output",
 CellChangeTimes->{3.49484688784375*^9, 3.49484735978125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fitted", "[", "\"\<FitResiduals\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.494004722828125*^9, 3.49400472375*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.`", ",", "0.0013423236166625052`", ",", "0.001128767470693931`", ",", 
   "0.022552887123539034`", ",", 
   RowBox[{"-", "0.010098037147496686`"}], ",", 
   RowBox[{"-", "0.020147063604339183`"}], ",", "0.018795280768898637`", ",", 
   RowBox[{"-", "0.008355708374799403`"}], ",", 
   RowBox[{"-", "0.00921120682744292`"}], ",", "0.0039247417491669045`", ",", 
   RowBox[{"-", "0.005496472765479599`"}], ",", "0.009096288426968413`", ",", 
   RowBox[{"-", "0.0039080475627329275`"}], ",", 
   RowBox[{"-", "0.00013935205927806393`"}], ",", "0.0005358308719761312`", 
   ",", "0.0034110698965521546`", ",", "0.003991591982370299`", ",", 
   "0.0026966699147136577`", ",", 
   RowBox[{"-", "0.0009895972457077476`"}], ",", "0.005562741073784197`", ",", 
   RowBox[{"-", "0.0007552251276145144`"}], ",", "0.0007870400658670784`", 
   ",", "0.003343596497724484`", ",", "0.0016400023256985911`", ",", 
   "0.0007654659741469783`", ",", "0.0008545850334051724`", ",", 
   "0.0016988587311317065`", ",", "0.0018875537563627105`", ",", 
   "0.00046877476781601816`", ",", "0.0008181265157796366`", ",", 
   "0.0007312342608012399`", ",", "0.0007333777518096956`", ",", 
   "0.0005344095710537616`"}], "}"}]], "Output",
 CellChangeTimes->{3.4940047250625*^9, 3.494846901890625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"fitted", "[", "\"\<FitResiduals\>\"", "]"}], ",", " ", 
   RowBox[{"Filling", "\[Rule]", "Axis"}]}], "]"}]], "Input",
 CellChangeTimes->{3.494005085953125*^9},
 CellID->131449341],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJzt1MtLG1EUBvCr2BoR2pT4CJJCEoKVMcpEY3wnn3ShFoVgqKCCQnyACDW4
kCCljlGIIBWphYpIMLabktIKbqQIupEWreJGBEWJ7gTBEYsoSFtLThY5f4MH
huE33+EeuAPH5O1v6k4WQnjvnv/vWKkukVgQU3Ly0z8v6bsGimd9r+tNE1kL
VYws5Og/kDMwn903W/t1bDVmPTSPpLevwu/JBmijJ+oT1zT1GzFf8NH2yzBC
uRnu20/wHAbIFihhz16nzkf9uYC32eofHaQ8D4sDfkkXDlAuQTx8FzxJ8lFu
hVh5rDt+biYXQkimtOhkDfXLiDZu2ccv+sg2RGs6dl63xOcVQU5XFzzZPeRi
GE2hy4jDTefZcX22ff775yDlJUDj0lz9ah3lDqxZbiL5G/WUl8K3P7SU2hWf
VwbfQSQrctRKLof2NPTZlhnvr8Di8LT3h2ggV2L8r/1LcLeNXAW/brP35qyd
XA1MPmhYWXaSnZhannBfbL8gu6AG5VDaVS0ZmOnY/Z6iqYtZAZRn33YuA/H7
ufv/CaVh1jJnMOuZDcxGZjOzhTmXOY9ZYrYyFzLLzDbmIuZiZjtzCbODuZS5
jLmcuYK5krmKuZrZyexiRqIV5vt9cL8PaB/8A1gSGUU=
   "], {{{}, {}, {}, 
     {Hue[0.67, 0.6, 0.6], Opacity[0.2], LineBox[{37, 5}], LineBox[{38, 6}], 
      LineBox[{40, 8}], LineBox[{41, 9}], LineBox[{43, 11}], 
      LineBox[{45, 13}], LineBox[{46, 14}], LineBox[{51, 19}], 
      LineBox[{53, 21}]}, 
     {Hue[0.67, 0.6, 0.6], Opacity[0.2], LineBox[{34, 2}], LineBox[{35, 3}], 
      LineBox[{36, 4}], LineBox[{39, 7}], LineBox[{42, 10}], 
      LineBox[{44, 12}], LineBox[{47, 15}], LineBox[{48, 16}], 
      LineBox[{49, 17}], LineBox[{50, 18}], LineBox[{52, 20}], 
      LineBox[{54, 22}], LineBox[{55, 23}], LineBox[{56, 24}], 
      LineBox[{57, 25}], LineBox[{58, 26}], LineBox[{59, 27}], 
      LineBox[{60, 28}], LineBox[{61, 29}], LineBox[{62, 30}], 
      LineBox[{63, 31}], LineBox[{64, 32}], LineBox[{65, 33}]}}, {{}, 
     {Hue[0.67, 0.6, 0.6], 
      PointBox[{66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 
       81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 
       98}]}, {}}}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0., 33.}, {-0.020147063604339294`, 0.022552887123539145`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.4940050879375*^9, 3.494846903140625*^9, 
  3.494847365265625*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["5 % - os konfidencias\[AAcute]v", "Section",
 CellChangeTimes->{{3.494847073046875*^9, 3.494847081953125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"fitband", "[", "t_", "]"}], "=", 
   RowBox[{"fitted", "[", 
    RowBox[{"\"\<MeanPredictionBands\>\"", ",", 
     RowBox[{"ConfidenceLevel", "\[Rule]", "0.999"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.47730723140625*^9, 3.477307253984375*^9}, 
   3.477307325296875*^9, {3.477307857296875*^9, 3.47730792496875*^9}, {
   3.477308474640625*^9, 3.477308535203125*^9}, {3.477376922734375*^9, 
   3.477376934390625*^9}, {3.477377145140625*^9, 3.47737715278125*^9}, {
   3.477377286703125*^9, 3.477377287421875*^9}, {3.477377452*^9, 
   3.477377453125*^9}, {3.494004775984375*^9, 3.49400478425*^9}, {
   3.494004831359375*^9, 3.4940048323125*^9}, {3.494004908640625*^9, 
   3.49400490965625*^9}, 3.49484707034375*^9, {3.494847136953125*^9, 
   3.494847172453125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fitband", "[", "t", "]"}]], "Input",
 CellChangeTimes->{{3.494004899296875*^9, 3.494004902*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{"-", "2.0231566320253602`"}], " ", "t"}]], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "1.4063640767355658`"}], " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"0.746262176153159`", " ", "t"}]]}], "+", 
      RowBox[{"1.4063640767355658`", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"1.276894455872201`", " ", "t"}]]}], "-", 
      RowBox[{"3.6334563497583443`", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2.0231566320253602`", " ", "t"}]], " ", 
       RowBox[{"\[Sqrt]", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{
            RowBox[{"-", "6.069469896076079`"}], " ", "t"}]], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"4.0463132640507204`", " ", "t"}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "0.008709530871126437`"}], "+", 
               RowBox[{"0.0009442516500583688`", " ", "t"}], "-", 
               RowBox[{"0.00012398634601559332`", " ", 
                SuperscriptBox["t", "2"]}]}], ")"}]}], "+", 
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"4.576945543769762`", " ", "t"}]], " ", 
             RowBox[{"(", 
              RowBox[{"0.004354765435563218`", "\[InvisibleSpace]", "-", 
               RowBox[{"0.0020530063372270722`", " ", "t"}], "+", 
               RowBox[{"0.0003545703944833405`", " ", 
                SuperscriptBox["t", "2"]}]}], ")"}]}], "+", 
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"3.515680984331677`", " ", "t"}]], " ", 
             RowBox[{"(", 
              RowBox[{"0.004354765435563218`", "\[InvisibleSpace]", "+", 
               RowBox[{"0.0011087546871687032`", " ", "t"}], "+", 
               RowBox[{"0.0004002441449362467`", " ", 
                SuperscriptBox["t", "2"]}]}], ")"}]}]}], ")"}]}], ")"}]}]}]}],
      ")"}]}], ",", 
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{"-", "2.0231566320253602`"}], " ", "t"}]], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "1.4063640767355658`"}], " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"0.746262176153159`", " ", "t"}]]}], "+", 
      RowBox[{"1.4063640767355658`", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"1.276894455872201`", " ", "t"}]]}], "+", 
      RowBox[{"3.6334563497583443`", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2.0231566320253602`", " ", "t"}]], " ", 
       RowBox[{"\[Sqrt]", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{
            RowBox[{"-", "6.069469896076079`"}], " ", "t"}]], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"4.0463132640507204`", " ", "t"}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "0.008709530871126437`"}], "+", 
               RowBox[{"0.0009442516500583688`", " ", "t"}], "-", 
               RowBox[{"0.00012398634601559332`", " ", 
                SuperscriptBox["t", "2"]}]}], ")"}]}], "+", 
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"4.576945543769762`", " ", "t"}]], " ", 
             RowBox[{"(", 
              RowBox[{"0.004354765435563218`", "\[InvisibleSpace]", "-", 
               RowBox[{"0.0020530063372270722`", " ", "t"}], "+", 
               RowBox[{"0.0003545703944833405`", " ", 
                SuperscriptBox["t", "2"]}]}], ")"}]}], "+", 
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"3.515680984331677`", " ", "t"}]], " ", 
             RowBox[{"(", 
              RowBox[{"0.004354765435563218`", "\[InvisibleSpace]", "+", 
               RowBox[{"0.0011087546871687032`", " ", "t"}], "+", 
               RowBox[{"0.0004002441449362467`", " ", 
                SuperscriptBox["t", "2"]}]}], ")"}]}]}], ")"}]}], ")"}]}]}]}],
      ")"}]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.494004903484375*^9, 3.4940049146875*^9}, 
   3.494846920625*^9, {3.494847142625*^9, 3.49484716171875*^9}, 
   3.494847372109375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", "adat", "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Evaluate", "[", 
      RowBox[{"Append", "[", 
       RowBox[{
        RowBox[{"fitband", "[", "t", "]"}], ",", 
        RowBox[{"fitted", "[", "t", "]"}]}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "8"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Red", ",", "Red", ",", "Blue"}], "}"}]}]}], "]"}]}], 
  "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.477307264296875*^9, 3.47730730146875*^9}, {
   3.477307382640625*^9, 3.477307499078125*^9}, 3.477307533515625*^9, {
   3.477307610796875*^9, 3.477307619546875*^9}, {3.477307948265625*^9, 
   3.4773080939375*^9}, {3.47730812859375*^9, 3.477308240125*^9}, {
   3.477308541609375*^9, 3.4773086095*^9}, 3.47730867046875*^9, {
   3.477308762234375*^9, 3.477308773625*^9}, {3.477376959515625*^9, 
   3.4773769705*^9}, {3.477377050234375*^9, 3.47737724646875*^9}, {
   3.47737729415625*^9, 3.47737735378125*^9}, {3.477377398890625*^9, 
   3.477377428296875*^9}, {3.477377472640625*^9, 3.477377512140625*^9}, {
   3.477377559453125*^9, 3.477377680546875*^9}, {3.494004838*^9, 
   3.49400489009375*^9}, {3.494846932296875*^9, 3.494846976515625*^9}, {
   3.494847008625*^9, 3.494847060671875*^9}, {3.494847104234375*^9, 
   3.494847123046875*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGBQBGIQjR1csH++/m7t+V2H7CH8B/asHdZdu9jPQvkv7C+3
PEkWDbkE5X+w13t9vFHi7QUo/4v9ZOunGcsPnYfyf9grhKue2RVyEcr/Y/9/
jWKTQt4ZKJ/BYdnaHit/z5NQPpNDY65GotGL41A+i8O5O7I93kcOQ/lsDsnr
PrnufQlzH4eDjkczj+OEvVA+l8MJsfvWmxV3Qfk8DhpC+/UX52+D8vkctuTM
mRF7djOUL+DQ7uf+/gTnRihf0OG0wbtG9cw1UL6Qww+b12Y37JdB+cIO6+10
6l5+XwrliziUHJrJucN3PpQv6nBpWV1235rZUL6Yg97EleVbns2E8sUdZvSJ
6y8rmwLlSzhwGTVUTS2fAOVLOuywbTzP+robypdyyG8y/Nbm3QnlSzs47djD
eo2rDcqXcTC6eGrGIYkGKF/WwbDxFvPJnhooX84hdoVrkuO3cihf3uHqh2Lx
lsISKF/BYV6huOXmDQX2AKuKjvw=
     "]]}, {{}, {}, 
    {RGBColor[1, 0, 0], LineBox[CompressedData["
1:eJwV1nk4ldvbB3BSkSlziDYd1VGmnKL5+8SJjqGQflKRaCMKRaGSjJUhQlEZ
IyWZh2SKTMmwHyIZomQe9zYW4n3eP9a1rs+f91r3/V1L1tLRiL6KjY1tjlr/
v+vQh5rKhv0Ond/dIRr98/ah1ZqSTj0SF6C57o4/feEM/omLis6RcMGK8FAn
c8geug1t2TESvsgVi/Lzqb4JkwvzJWESEdAL/cFn4h2Ib8p3NYMlktC9NHhD
YOkp4kWP+wdI5GKe42Wt/nwKbjZEVv6vMBcP/K5cC8t/jf/5fV/115k8bFwl
dKrXJRW8s1c8i6LzsTCadf7lxBu4tUS4jdHeoU2bu7DnSwYMwzvsjm0tRStb
mK5tSTa8uHK23ZeoRDC7As2SpwDbtR/ey3aqhIsP+wsLqwI0+zkOd9ZUgpO7
I7insAByHAqpSterEKAj/MzC9h2q/yQptTRXI2J0PfftkkLwTj/eTQuqRU34
QmekQQmivt3QzFtuxLGfHQPf+MtxWMo0qfskAxJ2KWbn/inHyGn1NVxpDNwm
Mr69MinHpjF3qzRFEinNe/oj4srheFFtC1sXiUcd/O5tCh8gdCHj1Ys9zUgp
d1Xbe7ACp0wTMpisFrzxOSzzS60Kk53G3M8lWzGZcCZ0wqgK/uZc9BOarRBe
Z6ZV6FCFHCtHyfyIVlwli5SaX1SB3+Gg3031L+A1UQvnEqpGlXf76bUebThz
VUUzt7caqm8E10pxdaDsznEvOeuPqFWqsmhQ6UCWUVGMsMdHWGS5Fd027UC6
hP/6b+EfEZzf4/TjdQfsXw4FrpR9xFBZWmeyfifO8mrx3ZWoRWzrf1k7w7uQ
y24wWVZRC54Vr7Pam3rQLSBxqufPJ0RdNDFX0OqBc/XhtasF6iDXomAh6NAD
fYFL7Vyb63Aopc2qs6QHHN32jjlH6vAu5XHeW6Xv8Ix3+xoSWIfxE2PFuo3f
MUQXU/MSrMeudW0HD/V+x4bhDr63svW4UVpeqjL3HScyItkYO+vBKR9ZJrrp
B3zVCzJfGNZDdvlwZc/lHwjjG73PCqnHyVeRdc58vSjYnLNfmrMB0Wbeetay
vfCt3El6izagV+hyw6ndvVjcn3C6/q8GOHpoMA6a9aKxzKuSh2jAfaPxZs60
Xhxbzc4H1waULGl0PNP7iTXaPHKh3xuwxXBiqCKwD0qtjlPRcY2Q9NTeZ5PQ
B39rvuXk1EYIpMUHcr/tg1F/mlDE20YscJ1QMuztw09Nh44NjEaQZW+du/f0
Y13R3mu1S424oeK1/Ku/HwGk8yLTiAFH847j0Yv9qElcXbrPjIELQf8kQHAA
IY6a9y/aMHB8qF/T/8AA/N94512/yYBcvM594fAB6Fp6lhk9Z6BxvYiIEjGI
rZ7TkgqjDFQcvExvOjmIi/I2r1umGSiwr853sR9EVD+73IUlBhJr3EyLHg9C
rn7dlui1JNw8v8UeHR9EG7/ckS4xEpsnk+Wtng5hY4pIr/huEhuk2W6uzRzC
93NrVFL3kODVNa1PqRpCvIdv684DJOaTeRyZzCH8vjRuJqVJot7cKddDexhs
jwq/2xiQcG3ci6iZYSQYO9P7bEnwK+X113KNQCXWs+WhPYmkYJWgRakRjLpP
tux2INGkt63d/MgIVHe255x3JrGjTsR5y+MRyA608ep4kPiwPVTC5PUIFtK0
t6d5kjgVwFN2r3QEjV9/7OD0JuH33yq+sYERnDY9sjren0RPzWRytvooVtWG
yFmHkLi+zV6/T3cU8sSZ214PqXruDkyLWoyCjaeMNyKcxF6tb4T7vVHs9++e
iI0kEV75qQPto3A7rtqpF0dCu/wFf8ONMVxNHqkXTCPRLSObt/xgDJdelK4k
pZNwuRN9RiVxDIbvNdhVMkkkIPxVeN0YAprSHinmkFgsuaNxWmocwzZXOD8W
kAiTXhoKVBlHcPOFHMlCEn97uIaU/DuODH+GK72IxMkDDl0yl8dh8lbf4WcJ
iYzCM9cHS8ZBMif4vD+Q0JJsk5JoHoepYbv74woSXe5GFToD47BcHjqSWEli
3d7/BNL5J4CVbNnkahLxUZX5PZsnUEKf04iuIaH2C2aC6hPI17syGPCRhNVb
tdcu5ybAWlvTZfiJxIJYtkGy8wTUA0YOba8jEXpdcb7t7gTkl75oLVIu2S33
7/7MCbg/+NfubgMJ40dxI5cqJ8D80fhYo5HEyIzkw9ivE3gStStwjvKGXMFu
dvZJbDA8Nn6UJHE2aNG4T2wSpbdNzWcoP7/QX1etMInEa+IekU0kBg8wNFI0
JqE+LWOs2kxCQfTdu8BTk2jfuDxeSfnq+HMVB4dJiPupnDz+mcTbqqCXBr6T
2EYoRTRR1rhu8Ug0cxJWUcoVJS0k7h3T4f1VNYmcTaM121pJNGzd5dPROQmf
bz8a7lMWWpFeKGZNYsvIyZ6flN+M+hQwOJhYFPJcq/aFRGPbr+kyfibchgP0
71BmVVxWzpZg4mB9dOkHyiKZvXaJckycYjVY/aGsFm2SHKHMBKeTorZKGwnT
e/U//PYx0aFTdvUM5Vsuh6VdjzAR5+7FvE051iL/lK0BE+bT5z89pVyutyPC
9AwT2wqOcmdQ7tsTz9CxZoK9U6iwiPLaLaI8B64wkRsY/rOMsrxggJbiLcoy
EaGllPX+LHttustEpkzLp1zKDsPOJevDmLikty46kfLD1qFfbDFMRL7q4Quk
nFtutmvqJRP77v6Wt6f8Ja3Z8Wc2E74PJ39rUv79RDu1pYQJ4yaDu6KUpfyL
B6o+MjFT+Lyzh6r30NWdm99+ZsJC7TxbIuXz5slmr7qZEExZXjan7Kuz8cmT
YSa0Vn5+F6acrBbaEjDDRFqeU0Y5dd61m9cI3FphIqJ3wdmW8hj/Dd3L3Czc
BEOdizL/4oS/uSgLxqo7VydQ97lz0OrDcRkWZr6c7lWlfP29/l5VNRbKL77/
dZi6/yepH1z+OsyCihOh+Z7ql+JI9UwRPRZC7UUrd1Nmd5LdNn+ehct/eoP4
qX4LkpkVKQ5mwenR32pOVL+m89oZpEWx8FnvhVIB1d9Nv7oDYxNZ2OLXmfS7
noRY08dVXu9YyBK/rXiRmocEr2jmkX4WtlXMPF+k5qvysqCCOpOFZs+WWwKU
B0z9bf5eZGHAOFaCRs2jgqpTN7fgFHiy+krkqXnN79WsZxyYwu3x9TGz76nz
P+rFCtaewn7dyPzuUhJz6aViekZTGCcO8n2g8kD95t7zH22mkKO57qErlRcF
wspzZWFTuCcz8yk2n8S7fyVlsoemMCYynNWXSqLjtckRp+kpDN5h/XPtNTXf
Ao/slJanoNxHXGJLIbHv2/q818LTMCtekuJMJlF4bY1O4qFpiP9toPOFyr/i
ZKZzRMQ03Jwtxb3DqLzhVXpiFDeNfcpPzMtDSSxdtS8VeD2NwXyOhsUHJA5i
gCv4/TS6ZP4ctAwkUdrWGeM3Mo1DZLXynA+J91w1NdeJGXya51EnXKh8t4vZ
aDo2Q9Uh8jzAkETOsL29+dwMMqUV46yOU++F7b4iK7ZZuObwSu7Vp/Leuu20
g8gs1Ir7o9uPkjhqKfjU58Ashn0cLFggwTD1E08PmoXmlbcb71D/tq6jl0U5
FOfgqmxI30+9f7NbD65PuzwPn6fy+trmDBzq1agJcJtH9lxAJscpBvxjjnra
+szjsPwOx0JDBsREjCf/ejKPXIP9WzccYUCN3Z7xtHIeg2bTDx/sYMCtMyrk
3sZf6IvfNeUx34ilkJn1F2p/IeHpdceEwEas+p0qsHHLAj4svvvCSm6A2opF
/on0JYj6lH19116Het9djdXbV/DogKWO6lItaKGjv1Mm2IgS6YC5jrEajM73
dLeqrCLs1JoXotZUI2mk6BP/Aw5C3fn6nPeaSvBLv5zs61tNjD8RS/be+gFB
F/Os4+XWEnP9ir27vcowR6T22XpyEp4/bTN3p5XARbUyV6yCiwgTbeocqCtE
T3plYJMsN1GkurHSbfwtFu1ansnf4CGqvKWylM/mYcdhzmXrIl4iSGn5ZJpi
DrSfy9pkbeAnmnKGzoVzZcFV+tzmH2fXE6+mn5goOadDYewkT5u+ABGiFsPk
OJQK4fVMrsoFAWIhOq6uROoVVr9/lvFXtCDBtmwvuef2C9jvKmpfpytEBBrn
JOydeY7U/yzjS+eECL3axonQ4njMjkoKDDwWJupIcdu1H2OQd0KbI+JfEaJC
/NY/wupP4XnULy53QIR4z9pU9/hwJGS/6XxN9BMlbOyXRDtfR2Cfum+EhKoY
kTXhmbSwIwxnNzF+s38WIwJN5E7QN4Zi9lNwr5PXBkKv6cDYMoIQtdrcxUhO
nNh2pfbi2YV7EO7Oe76qUpyY+mAZsSzjjzUeXsZ7r0gQEqe9QqzoPmBLMc/o
FZIkaN3XKnrlvHD1aUaw0AdJ4mh2UnbbogdKdtzjEnTYSBinnazboHUDgjpX
Fbz5pQhVjoH9zntc0aVIfnYvliLoIqo2bvouyIyFXJ+5NOGUHhyQMXgFZhlq
gtLL0oTI4YcHopIdcccvwavr9SaCJqdlUPzGHmlD0s/49WhEO3tH3aKtLe7F
+Fl0H6MRvsnxWfpnbHHBaHxLuiGNYIYdknupbwup4uJMfRMawauXHuekaouA
kDPVQZY04gV/pIfZkg1s1Z6wuN1pBOKNjj17aIPNviJHOZNpxDG/V66B5dZY
3nOLr+0VjYipd99Tk2uN9vGfzcmpNELmQBgn9ytrhJrkmGll0YiWXQblSQ+s
sbLdyNmvmEY80L2+R+msNbqaQmI5PtOIrUGJg8G/6Cjwn7f63EojVlk8qN4z
RkfE/nPyiV8pf/VzHemhQ/eFUq5GN43I4W4iLGvoKHRrqPUaphG22eXrEh/T
8Vhxd4jhGI1oVh4X9A2g40pvtLHsJI0QuVTZaH+bjr/1LvWUzdAIrVMjJset
6VjN3pIUOk8jBsfnpXRP0/E9b7+dxQKN6ONRvqd/jI5iu0RllT80Qn10+tH/
NOiIpPHMrqzQiB+pbzSs1ej4Pz6GtkE=
      "]]}, 
    {RGBColor[1, 0, 0], LineBox[CompressedData["
1:eJwV1nc8Vf8fB3C0iIwyvoRLkZJVGS29TlQKpaFvaaCURCgkaaCirIxkZSQl
4iIhWckosu49koyQbJd7r9nw5Xd+f5zHeTwf5/F5PM55z6N41vnweT4eHp4Z
6vr/3fj8ILNsyHdH62CT+E8Dnx0LDWUud0mfw+ObhK92txU2JUbHvZF2Q23I
FWm1WmeY1LfkxEvfQ2F15xl6kheOnZspCZeOgPCtwQR/sxB817xvGCz9HDbl
m4uG6Al4KmHmFyCdi3xtHSm6Gx036qMq/y3MRczNFTIRppn417ebb/XJPHjO
eVv/uzoLQlNXvIri8pEkI5tZYJsNjy8RHizaO9BbE1JFl+bg0KM2+wNrSmFq
2DC8STcPPvxvVPylK8F/UPmUytoiqBqFPci5XIkf8qFqPgFFIH2dh9o/VWKZ
bVCWIasISgvU0jXcq9C8dMx5UWYxPv73XOML+RFlrJy1D1VLITQRqUMLqsG1
n7curLpXhujvnoZ5cw14StZuNVevwE5Zi+edRxvBWuVATztageETeov46Y1I
dxSyL7lVAXnWdRu6OgOneSRHFOor4HxRV5mngwFlQTOFbrtKLD+XlfpiM4mL
OWOLvSKqcNwiKYvD/YLHtvbB6qWfwG43X/pMphnWWleqMzs+wc+S//wRw2Yc
midPzP35hDc2zjL5Ec2weu93UkCvGsJO+r439L7iOosR+yWjGlV3Wk8svtWC
T3TzLseQGmzMEFssy9+GjrJv8yIba1GjUWVdr9WGSXMphTLjWli/9ii6bdGG
/qvLh3fZ1CI4v+vyj1dt2D1pvKX+US0Gy+jtKfvbMTm9f/T7eC0Smve93vCo
AxfCzlmuTauD4LzPKSP5LszYFosnzNQj+uIxS7U9XaA/cZBqW9oApS9q1mJO
XdBZUtHClWvAjrQWm/aSLmz2u6KVZ9iAd2mReW81uqF85Wd4SHADRo+wik0a
upGv81AtT6YR2gIt+jt6unFWxsf6/fpGeJZ+KNWa7obqxpSSl9sbsWRdVJmE
/A+8Lvf2X2HZCMW5nZVdjj/A/ZZ4/WRiI46mRtW6LusBa97TsX8ZA3Gn75ja
KvZgIOal+3kJBnqWO9Yf1+nBHSn/gi+yDDjfMmjUP90DqV559XvrGfA/PEou
ofdAb9ePyrV7GSiZNWh7YvoTT0b0m6JuU3k9NDZYEdgLevopw7vdDMh4GW29
kNSLhu9j7s/7GRClPw1c+rYXtAK/0DwWA3/4j2gc6umFh9lg1ctfDDDK3rp2
bu7DGYPW8w0iTHhq+cz96utDTcBorM42Jpwt28zi/lLPp27bWRJMnAvalASx
fuTE2h3x2M2E2WCfod/2frB0z9R5mTGh9NTYf8WjfoQFu5h3nWWiQURcXIMY
QMKusM8cPyYq9B3PM48OIMNg2wrtQCYKHD7muzkMwJOzOP5iCBPJnzwsiiIH
EDN2vjA9igkPr+8Je0cHYJo4tfDhSyZWsVPW2cQOIte06GdrJRNScjw3FmcP
wi320fF91UwImVjUpVUNouX7GC2jlomZFEFnDmcQJS9lB01IJuosL+feMhrC
Uprk2ulOJq41bEH05BD+Id/eXDDNhLBGXl8N/zD4PSLP3fnFxPNgraC/ssNo
tqqlzfxhgmmq0mq5exiRNy4ZlM8zsb5W3FU5chj7pvc97uYnUa4aKn3s1TAC
mtluIoIkjgcIlj0oHQZDVjJQexkJ3318y1j9wxgQCw88I0ai6xM7JUdvBI7C
lzT3SpNwV3HY32syghunHkqoriQhdL9/QsJ6BBpbjoXzyZHYsuc7cf3BCPok
RbyiFEg8qvzchtYRxNFYlw6rkFBV2uNzZXQEvkvsDw6vJVF294NKMi8LlqlV
KtdVSYwaFLgtVmXBSrWl64Y6CaMPL4TrPVkwGtd8I7mJRKeCYt7cQxYCQgpc
L2iTcPOOO6mVzELNzRt3snRIJOFR6qNaFtJ4l75VpubI5kRhs6ouFjKb+8eP
bCHRMOc/NT3BAtNXIe36VhJ/S7wNTsiOQnOTeXb6dhLhcrODgVqj8KlbIlWg
T2LtrWshJbtGIRgcuLp4B4mj2506FBxHkZg0fzydIJFVeNJ9oGQUrxavsVbZ
RWKPTIusNDkKo7SNCuOUO64frjDuH4VHHbctdzcJgS37RDOFx7AwSNN+lRGJ
p9GV+V2rxtA0e+FIPWXdXzgtpjcGk7SP1pf3krB5q/vKzWoMR0V/iSbuI/FH
MudgiusYBDI2VKsakwh1V59puT+GumNWdZmU13xNjReIG4Nvd6zKehMSJTpK
u7ZljyH4x8TPRMrmjxOHL1WO4b96Z8FlpiSGJ2XCEr6NQfq3QKoLZW/zSD0G
awxXE99UMChL5Yp18vKyUcA+Yqeyn8SpoL/mvZJsBBdkjtyk/OxcX+1HNTbS
Dd+U11Ae2N5okGbAxqLHX34vO0BCTeLdu8DjbKxd6BG/j7LL6DMtJyc2XPdN
vbtJ+W1V0MuD99h4HhB58iXl2Xh3+U2xbAjZRT+soWzgbv1YIpuNdn5Vq5+U
HxwwFvpVxYbyWsfWScr1a7TvtrWz8VTRXWCO8vJ5uT/FXDaG/zP5+39njNwt
aFzAgbnXYOEM5YaWXxNlwhzYamw2H6TMrXDUzJHmwMpWpolBWTy7xz5ZiQOz
M2cMX1PWjTuWEqHJwcguMtufssWDuh++WzkI01BWOUH5pttOuWu7OXiNRTmr
KCdY5x+3O8gBI0309E8qHh9M10dYnORgSdG3TXGUezc/bTS25YA19GPnfsqL
lSUEt1+hzv9IDp+m4m3635yP/H0OilW46zZSdhpyLREJ5+AF1O5XUvkLax78
xRPPgWmtl7kZ5a900vlnDgdxh3ZfOkDl/3eMUfqXEg5Uo/nqy6l6kfUr7q+q
5uAJr/NnTcpnLFNOp3ZyoHnS5tMEVW/3jFfGxAxxwAlt6jCmnKIb+iVgkoOJ
wIrC2D0kWMKeJo5LuajtvvRXiapf4b9jfpYSXBSNZLhaUfW9YcCm3EyBi05t
z65wQ2o+vN+/ZaMuF1andxf37iQRk17utnonFzZVFw0WUC6O0ssWN+Vi4yO7
fhmqf3gvK6rMnOFCtPX9ax2qv4IUpsSLg7nY0F97TYbqz0wh+4P0aC7yApaJ
LKD6l/mrMzAhmYsH0g8l+/RISDKr+XzeceHETkp4/P/+94nj7O7jIrp97FWa
Fon8HsO6xu3jaM0c3J+iTMVrrw832GgcDaW2fhuUSExnlkqaHh6HnJQR39tV
JPRubDlTfWEcnlcLBrJpJApWaE6XhY9jj+W41Rlq/r3bJaOQMziOJmluTDE1
P9teHdt9eWIc6hob5DkCVH+KPrbXmBvHo34fZ3lq3m79LpL3asUEmFOOsQ4L
SRReXWScvGMCCxyFZqpnmShO4bhGREzA4nx8aySLiQ4hjZjDiROIvXpx1nOY
iVkXh1LRVxOYlbh86cQgE/ro5w9+PwGduJnDgr1MlLa0x/sOT0DE109Et52J
9/yfPrkTkzhLd/qaR+2bcvv4lRasSWjfOXg07CkTb4YcHCynJ3G1w5Irk0Dt
D7utRTY8U0Dq/R1JT5jwtW054SQ+hbz5Qt7nkUzsPSsWe3f7FM4oWHy4E8RE
o4XvP5lBU+gecH+fdo16372OEgvUp1EjM3v0gwkTU2v0ReiOMxhXKn2iSO3z
HT0GnwI8ZhDsXXm3cJABv/i9XnZ3ZyBgmzF8sI8BSXFz9uqYGViHF+1z72RA
l9ehMbZyBqJ3ktqTGQx4tEeHPFj5C55CPlkPcxmYDZkUOVfzC88klMlKTwb4
fqeLrlT+gz8L+1bQeanz89b5RzJnEV9p33d6dQPq7mk3fFSdxyWtm8FSW+tA
Cx35nTbGQzC/6v87sOozRma6Opu1+Iix8c4Tj3Wr8Xy46LPwwwVE6m+B6BMb
PkJY7iW7t3chYft56Np600oEXcyzfaq0mCC81dftTyzHNJHea+e1hAhY6W1N
Gy6D28bKXMkKfiJym098YlspujIrA5mKS4npkqHwNd+L8Nf+y5N1noJE2++m
2k3r3mH9ziVztkVCRPktezO05MPomeKF11LCRJUn/baIfy6uyVmt+nFKhOjX
rwrvDcuBGuuoYMt+UWKn4FRYXUM2Vohw+Cv/iBJ/123IoK3OxML3T7JWx4kR
p6b0RRQ3pMNBu6hVwGQ5IZ4QZWW9PxXp+84+LZ1eTkj0fF2j+P4FpkZkRPsj
VxDXa4vbPkYlI++I0YKIXeKEyvYyK5+bSfDa65uY2y9OeF1xpmU4JULxu/G3
ZF8J4rGF/YJ+kzhs1bsXIb1RkrDWi2ELbY/BKfnG37xNkoRRdeg0T3okpj4H
91z2kSIc7yYG9q6PQPRCS7fDSv8QhbzLJzZKhGNFZ94zvsp/iOSB6x5++qFY
dMvHfMsVaeLfF5PyPX1B4EmzzOpZLkPs8SfWJw34wyU2K3h5uQyhlZ7/UYj3
PkrWP+AXc1pJpDUrPXt17R7EjF3U7gjLElzV3xIZFnfQoc5oul4sS5RrljQd
MPVGdgKUei3lCG2BbSZZardwOktXTG5OjvC23FayW9UT3r5JPh2v5ImoRRk1
UrgG+qDcE2FTGpFn40i/y3DDg3hf684DNCK6W9IXH91w7vCocuYhGlG1Y5k1
T7EbZIuLs/cfoxH1GTslw166Uf8pJz8GnaURS42yiLHbbrDTjeEuvU4j+P66
eDzWcMOqe+J7l6TQiETWkoX3w1wxt/nmspZUGtGUs/F1531XtI7+JFPSacTm
2lrJbbddEXrszek9r2mEna8OH5+DK+ZVD7v6FtOIU2djZap3uaKDGZKwoIlG
yL57e2LTbxcU+M3YNDXTCMGdWd7NbBdEbLNal/yNRnw+snPbzX4XmLzQyDXo
pBElT86db2lyQaFHfY3PEI2406d+sDLTBZHqOiGHWDTCKd/je8ALF1zpiTNX
ZNOIkc8to0fjXLDW9FJX2ST1PfyrQ377u2Ah75fnoTM04k3Xu5Wktwu687bZ
W/+hETrHC1dlXXNBsX2yptZ/NMLy0GxSqJMLomiCU/PzNCKXfjzK/bwL/gdu
gqKV
      "]]}, 
    {RGBColor[0, 0, 1], LineBox[CompressedData["
1:eJwV12k4Vd3/BnBlfJChUMaT0kCSVKTSvaMimVISIpEGOoZ4GpQfKpIhGR5D
RYOSISoOkiHJWIazRcpYMk/nHHOE//6/2Ne+Ptfe+8Va63t/19qKDm7mTku5
uLhmqOv/74ZO/WTJQMDeYsdL4Ses/fby6Mm4d0qfwSbdn7zGI7bY9jjuUba0
F+59feUt0kLH4drmrATp26h0K/BcxfCB5ZnpokjpaPDwOR1nnw9D+5Y7emHS
z3HklJjsfOMjPJE0DQyWZuCUnKv7fE46rtfGlh1/z8AG/1L9KP9XOB7wc+la
mxxs9Tt0Us4oA8KTHr4Fj3KRLzZpJ9yRiauN0VeHafmoWiB1S2bf4EhUi7PJ
+mJIrlGXrfuTDX+B7A13pcvQmpJSVBafDxX9iKAs9zKokFX97Kl8NAS4DbRW
lmHZzuzEiKPvocStmq52uRwv0/x4twkVoGL+uVpjQwUULp6W5vMqhPB4zA5a
aDXsNl+3cFX9gLh2b72chTqMWX8Vk1YoxT45q+cdFvXwPxgccHt/KQattXgF
Muoh3dy+Ntu5FArD1xwzNjPhe2FDv3VuKdwuaK7jamOibSyzptXwE5afeZ3y
YmcDuHdlK7SdL8MJq6ev2ZxGyEw2fYv0rgCr9ZjgM5kmbLhw9lVdbAUC7QSc
juo1YSNPnFkbowLZjm4yudFN6NdXLKePVkDEVSfgutY3fHrKHet6qhLlN39Y
8/k0Q/K+rri4dhU0XonzyQm0oHp1NCFTU41qtXL7WvUWfD860DHwuxr2b68W
/M+qBbX6NX/vz1UjLLfT/VdaC37UxjucVfmM/pKM1mTjVqQtMfTRCPyMxKZD
b7dGtSHsUEuyl+YXCC36n9RX6MRAgXNusXcN4i5Y2qke7ITo228ibmE1UGpU
tRd37URFSOyJ+cc12Jva7Nha1Am5rFFTRlkN8lNjcvLUfqJWIDMnXLgWI0eH
Cw/X/cRXY/OtsjG12P5Ps87erp/4sERNqyC5Ft7FH4vVp36igK1wandeLfiV
Y0skFX5Bykcuoa25FooL+8o66b+g41nun7yyDhYpsV88l3XBIOKY0L8RdXhk
e9PorGIXNt4o6Vj/pA5dy+m1J3Z04U7Oj573mXVw89Gt17Htgl/ZKdHgL3W4
az7SwJ/RhVMVpw9Xcdej6K9uy0Oj35AN1+vpdK3HuiOj/Z9CuqF42LBj4yom
ZHz1d5172o2gqtnZ3QpMiGU8CRHM64Zj0yg1GUzMChxVO9LVjex34T+k1Zlg
luR5duzswbjo7vvS+kx4q/svzPT0ICj/qLDlJSbc7FpMH8314FlSyW+fK0yc
Cd32FOK90FHmDY25wYRpf49e4J5exB6MiEoIZELpieHdFVG9OEmzsuZ5wESd
qISEGtEHqZu8F/WKmfikQ3ciLfqQ4aK1PbyUiXcuFbleLn14xrnVXFvBRFLl
VauCmD7Yteex1tYzcdW3PdFgpA/izcLrdnQysYaVrOz4oB+Ds30Of/4ysVKe
6zrfm34o+xjt9+YiIXzYqia1vB+FGfmzo9wkppOF3NjsftgI8q5lCJKosXNn
+OgPgM/6PM/rlSSu1GkjbmIAtlGSHM8tJETUcnqqBQahIBQiJ6hB4nmYeuic
3CB+XbT1jtlOgjTa8MPuwCAcvq2Zi9AmsemLhOe6mEFojoodkdQjUapyX9oy
bRAVHx+a2h0gcSJYqCSoeBD1s9dbE/RJBBxaumy4dxBJOUOVXEYkOitZyVla
QygYmle2PEbi8gYX4+7DQzCvm6i2OE6N507vuKT9EKSehZgePkFC+2A7cS1o
CJF1U5qyJ0lElX2mwjKEUC3R56aOJFSUDvp7jAzBveVBIp8TiZJbHzckLRlG
WMq/jYyzJEZ033nxqQxjfJea3PQFEvofX4jUeg/DzmgZIeFOomO1Ys7CvWH4
PCjQDvQg4eX3yEY9aRjCCp0fWZdIPEVUStSXYSQM2CSn/ktirshP11puBCG1
Xa353iQi5f/2h6iPIMBU02ngOomNPlfCi/aPoPNuRq2YDwmLPa5tq+kj8H6V
7KjvS+L1e5vLfUUjKL4umHfsFomDMs1y0g0jODLPa7z/Nom2a+afDHtH4OpE
F1MNIPGP9iGxTJFRJB3gHOgOJPEkriy3c80oDLZu+cK4Q0JzBrbiWqPgnpN9
7hNEwjFPM83r1ChehHRenrlLYlYqyyzZcxQKsvdupQWTuH9583TznVHMKj/8
xyKERNEOpf2731Df75R7GRVK4th/jwcvlo1ixpJGbggjMTghE5H4fRTfDR7H
MyivZIh3LFnCwtnVpMq7eyROhs4d65ZiIUmW58XOcBLPzvR8qVBlIaWt5/Eb
yn176nVTdVlQKJtdv/o+CVXJ/PyQEywsESs4cIfypZFn6q6uLOzvi+TvpZxX
HvrS7DYL55y6ruyJIPE34bLCtgcsSCXPPw2mrHvZ/j/JNywkMlUjmJSDTAyF
Z8pZcF/7ykwkkkTt+u23WlpZiFpMH9KjvHxRfraQw4LQhBndg/KroVvv6rnZ
2Fid/TOGcl3zzHiJCBvskF9mDMqcT/QtWdJsmMS3VlVTlnjT5ZykxMbR1Nij
zZQ1H1kmR29h43rL4lwbZaugml8Bu9jIKxyraaF8w2uf/JUDbCSf1COZlBPt
c0+cN2MjxiR/xQfKH402RVvZsBGbL/b4BeXunU/qDc+yccVh1uc2Zb51kkJ7
PNjIzpUtsKGsLB58cPMNNpybRU5vomw0v+CvcIcNzecO3uPU+F0HPItEI9ng
q3ggzqAc0dQ/w5XAxlj+lq10yoyPttvHXrLBab33W4Hyt4wGt99ZbER4yGyr
pub7T7x+emMRG8UMZZWLlOUCC3vLq9jQ7xD4yk/5tF2ybUoHG4pLtzoqU+t5
21A2Pn6ADbmqVrvX1Pona95vDJ5go2G1zA41ysMi3ofpghwoiSXGS1H1IjI3
GmgnyQG/KGu3H1VfW/scS01XczAYMPizi6q/yx+MtTU0OYh0vGkdRdVnfHqp
19p9HHyRadL9RdVvYazWGwkjDk4v7rXYSHmJu+KG6dMc7HM5QntG1X/o6kmJ
wjAOGnRmjx+g8pMp7GyWEcdBucuPRFsqX+RMR0hiEgdW9Qxbt5skpMiqpf75
HIjxiJ319aPy7f+IfaCHA/t6TrL5DRJldHFVLTYHRiVRr7SoPPdaBZ7bOMdB
mnWopxSVd1UN9w5B8TF8aedc+HiFRG6XXk39njEom9yYrKX6xTcDf06Y/hh4
eX0Vgqh+MpVZLGVkTlm19M4eqt9oXdc+XXVuDLFt9nui6STerdgyVRI5Bid4
SnKdJ5G/X2Z1Vv8Y7FaOvGDakGhJszzgPj6GUEvxVA1rKs9i/zmrLYzBwekX
PZzqj7vaRXPSVoxDyirHRtuCxPt/eQ2T9o7jnmHmE1MTav6S2Z7R0eM4P7x4
NRRUfxFWizd/PA4Xc//NiTpUvi65FIuljcOjN18ufTcJHfQKhH0Yxx0776pc
LRLFza0JAYPjSElLpsVQ+8UHgcrKy8QE4syL+K4rUP3fOUHWangCM4ZZc8v+
MJE94OJiNzWBFfMHDD5MMfH8/K4CR65JtG02VKVPMBFwttnaVWISU7Zm9cUs
JgwcxB/c2jOJdQ2/xXb1MlFvFbAqM3QSEaqxI9EN1DnOgC7JvXkKii+SbRdS
mJhcryOaQZ+GzDXlp8+MmdjbpVsZfHUaY/M8anaGTAQmGPievzUNy/nV4iup
/V1K4hhrbfw07BMujvoRTGgucal/UDaNW3HGkTu2Uftta1x4kOwMrmUaN66n
zhN/wydEz1TPYNLh593/Suqx9E+6mOy6WbQv1V1c11QHzUX73KOZf9GSJNkZ
slCDmtvb6ypUFnFLkzWkJPsFtPtDf1JHuQjjWcf1v/irMTTd2dGkvpTIiP6u
slKhEs8HCz6L3OMmPDSJSlfZcojIv2R1d/MQqhpcopbanxB6IefsEyU+Qi47
I2Df/Y+YItK7z/vyE/phjJ3vSz7AS6OMIfVJgIjYmLpH72shOjPLQkhFQcLy
6s100558zDk3PlT2FiJM9l4tfqubh037+BfOFggTqscZ5peX5kD/meK5tytF
CNOVh93IqixckT+15tdJUaJT9lBnUc8bqA5bCDUbixGRyXrBdfRMrBBlC5TN
ihG3HPsLRmnp4Pnw8PXaR+LE2z+N0a8sU+CyveDHP4eXE2bXXnDVPnmB9EMO
T4qnlhOMpgbBHzpJmBySEeuNWUFMxJ/h79F5ipyj+tzR+yWIewb/+yMYlwhf
g4DHjF4J4uVW/X8VTzyEYrvh96QASeJ/Dtmh9tfjsEvrdrS0hhSxLEr4Mzfj
P5xUqP+z5KsUMR7eorTNMQqTn8O63P1XEsunOrjG1kUgjsfOy1xpFWH7fmrD
6ch7WNGR82xp2SpC7lB6Ka9JCHh9/I9pe0gTbxd3NT9bFwSuVLvXXctliPxt
NtP7AgNw6cHrsOWlMsSmmzxmNxZvomhTkIC4qyyh8a1Pz6bWD+KGl1RvisgR
EarD2T2TPlRdM79eK5Qj5rSP8wt5euNNIpS67eSJGptu5y3BV2D7WlNcfkGe
CFn8OFK14AW/gKf+bWkKRFtI38z74EvI6Jd/KGJEIyw0Mqr9brojKCHAvsOE
RozEj6uNX3PHGfORdZlHaMSa/VJ/Lni4Q66w8I2xJY3wuCCcfcbeHcHhNhWh
DjRC7VyR77297jivGc8RvEYjlA8/ojlOu2HNbQkD/mQagS1tH4zGXLGw88ay
5hQaoRjvZqzb5YofI78bktNphPFAtAzR4Ir7ltm2B9/SiO+P2x2OZbliUcXc
M6CQRsgENWl2XnJFGxmeyP2Vet/3ron3JB3vAqcdvzbRiHn3qd+cHjqid59S
TvpOI0rBc8XjG/X/+kKNodtBI+QVawOC8uh4f7W22n+ARuQWizRJetMRs3lH
+JFhGmFr4tZb40yHR9ejY4osGsG7ZFdTiA0dG40udpZM0Iht21ftVtShg2dJ
4/P70zQi49uOtOnNdPzM2e1sP0s97yB7mxToKHRO2qI+TyP+0Z8aLhClI5Ym
NLm4SCNecL9+l8pFx/8BqbGnkw==
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  PlotRange->Automatic,
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{{3.49400489159375*^9, 3.494004920859375*^9}, {
   3.494846923859375*^9, 3.49484706325*^9}, {3.49484712396875*^9, 
   3.494847175203125*^9}, 3.494847373890625*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["J\[AAcute]t\[EAcute]k a g\[ODoubleDot]rbeilleszt\[EAcute]ssel", \
"Section",
 CellChangeTimes->{{3.49484935259375*^9, 3.494849362828125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Deploy", "[", 
  RowBox[{"Panel", "[", 
   RowBox[{"DynamicModule", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"p", "=", 
        RowBox[{"{", "}"}]}], ",", 
       RowBox[{"l", "=", 
        RowBox[{"{", 
         RowBox[{"{", "}"}], "}"}]}], ",", 
       RowBox[{"regline", "=", 
        RowBox[{"{", "}"}]}], ",", 
       RowBox[{"model", "=", 
        RowBox[{
         RowBox[{"a", " ", "x"}], "+", "b"}]}], ",", 
       RowBox[{"plt", "=", "\"\<Plot\>\""}], ",", 
       RowBox[{"d", "=", "1"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Column", "[", "\[IndentingNewLine]", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Row", "[", "\[IndentingNewLine]", 
         RowBox[{"{", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"Column", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Row", "[", 
               RowBox[{"{", 
                RowBox[{"Button", "[", 
                 RowBox[{"\"\<Reset\>\"", ",", 
                  RowBox[{
                   RowBox[{"p", "=", 
                    RowBox[{"{", "}"}]}], ";", 
                   RowBox[{"l", "=", 
                    RowBox[{"{", 
                    RowBox[{"{", "}"}], "}"}]}], ";", 
                   RowBox[{"regline", "=", 
                    RowBox[{"{", "}"}]}], ";", 
                   RowBox[{"d", "=", "1"}]}]}], "]"}], "}"}], "]"}], ",", 
              "\[IndentingNewLine]", 
              RowBox[{"Row", "[", 
               RowBox[{"{", 
                RowBox[{"\"\<Model:\>\"", ",", 
                 RowBox[{"Spacer", "[", "15", "]"}], ",", 
                 "\[IndentingNewLine]", 
                 RowBox[{"SetterBar", "[", 
                  RowBox[{
                   RowBox[{"Dynamic", "[", "model", "]"}], ",", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"a", " ", "x"}], "+", "b"}], ",", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{
                    RowBox[{"a", " ", "x"}], "+", "b"}]], ",", 
                    RowBox[{"b", "*", 
                    SuperscriptBox["x", 
                    RowBox[{"a", " "}]]}], ",", 
                    RowBox[{
                    RowBox[{"a", " ", 
                    RowBox[{"Log", "[", "x", "]"}]}], "+", "b"}]}], "}"}]}], 
                  "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", 
              RowBox[{"EventHandler", "[", "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{"Dynamic", "@", 
                 RowBox[{"Show", "[", 
                  RowBox[{
                   RowBox[{"l", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], ",", 
                   RowBox[{"Graphics", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"Point", "[", "p", "]"}], "}"}], ",", 
                    RowBox[{"PlotRange", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"0", ",", "d"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "d"}], "}"}]}], "}"}]}]}], "]"}], ",", 
                   RowBox[{"PlotRange", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"0", ",", "d"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "d"}], "}"}]}], "}"}]}], ",", 
                   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
                   RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
                   RowBox[{"ImageSize", "->", 
                    RowBox[{"{", 
                    RowBox[{"300", ",", "300"}], "}"}]}], ",", 
                   RowBox[{"Background", "\[Rule]", "White"}]}], "]"}]}], ",",
                 "\[IndentingNewLine]", 
                RowBox[{"\"\<MouseDown\>\"", "\[RuleDelayed]", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"AppendTo", "[", 
                    RowBox[{"p", ",", 
                    RowBox[{"MousePosition", "[", "\"\<Graphics\>\"", "]"}]}],
                     "]"}], ";", "\[IndentingNewLine]", 
                   RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"Length", "[", "p", "]"}], "\[GreaterEqual]", 
                    "2"}], ",", 
                    RowBox[{"l", "=", 
                    RowBox[{"Dynamic", "@", 
                    RowBox[{"Plot", "[", 
                    RowBox[{
                    RowBox[{"Evaluate", "[", 
                    RowBox[{"regline", "=", 
                    RowBox[{
                    RowBox[{"(", "model", ")"}], "/.", 
                    RowBox[{"FindFit", "[", 
                    RowBox[{"p", ",", "model", ",", 
                    RowBox[{"{", 
                    RowBox[{"a", ",", "b"}], "}"}], ",", 
                    RowBox[{"{", "x", "}"}]}], "]"}]}]}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"x", ",", "0", ",", "d"}], "}"}], ",", 
                    RowBox[{"PlotRange", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "d"}], "}"}]}]}], "]"}]}]}]}], 
                    "\[IndentingNewLine]", "]"}]}], ")"}]}]}], 
               "\[IndentingNewLine]", "]"}]}], "}"}], "\[IndentingNewLine]", 
            "]"}], ",", 
           RowBox[{"Spacer", "[", "15", "]"}], ",", "\[IndentingNewLine]", 
           RowBox[{"Column", "[", 
            RowBox[{"{", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"Row", "[", 
               RowBox[{"{", 
                RowBox[{"\"\<d\>\"", ",", 
                 RowBox[{"Manipulator", "[", 
                  RowBox[{
                   RowBox[{"Dynamic", "[", "d", "]"}], ",", 
                   RowBox[{"{", 
                    RowBox[{"0.0001", ",", "100"}], "}"}]}], "]"}]}], "}"}], 
               "]"}], ",", "\[IndentingNewLine]", 
              RowBox[{"Row", "[", 
               RowBox[{"{", 
                RowBox[{"\"\<Plotting\>\"", ",", 
                 RowBox[{"SetterBar", "[", 
                  RowBox[{
                   RowBox[{"Dynamic", "[", "plt", "]"}], ",", 
                   RowBox[{"{", 
                    RowBox[{
                    "\"\<Plot\>\"", ",", "\"\<LogPlot\>\"", ",", 
                    "\"\<LogLogPlot\>\"", ",", "\"\<LogLinearPlot\>\""}], 
                    "}"}]}], "]"}]}], "}"}], "]"}], ",", 
              "\[IndentingNewLine]", 
              RowBox[{"Dynamic", "@", 
               RowBox[{"Show", "[", "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{"Which", "[", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"Length", "[", "p", "]"}], "\[GreaterEqual]", 
                    "2"}], ",", 
                   RowBox[{
                    RowBox[{"ToExpression", "[", "plt", "]"}], "[", 
                    RowBox[{
                    RowBox[{"Evaluate", "[", 
                    RowBox[{"regline", "=", 
                    RowBox[{
                    RowBox[{"(", "model", ")"}], "/.", 
                    RowBox[{"FindFit", "[", 
                    RowBox[{"p", ",", "model", ",", 
                    RowBox[{"{", 
                    RowBox[{"a", ",", "b"}], "}"}], ",", 
                    RowBox[{"{", "x", "}"}]}], "]"}]}]}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"x", ",", "0.00000001", ",", "d"}], "}"}]}], 
                    "]"}], ",", "\[IndentingNewLine]", "True", ",", 
                   RowBox[{
                    RowBox[{"ToExpression", "[", "plt", "]"}], "[", 
                    RowBox[{
                    RowBox[{"{", "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"x", ",", "0.00000001", ",", "d"}], "}"}]}], 
                    "]"}]}], "\[IndentingNewLine]", "]"}], ",", 
                 "\[IndentingNewLine]", 
                 RowBox[{"Which", "[", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"Length", "[", "p", "]"}], ">", "0"}], ",", " ", 
                   RowBox[{
                    RowBox[{"ToExpression", "[", 
                    RowBox[{"StringJoin", "[", 
                    RowBox[{"\"\<List\>\"", ",", "plt"}], "]"}], "]"}], "[", 
                    "p", "]"}], ",", "True", ",", 
                   RowBox[{"Graphics", "[", "]"}]}], "]"}], 
                 "\[IndentingNewLine]", ",", 
                 RowBox[{"Frame", "\[Rule]", "True"}], ",", 
                 RowBox[{"ImageSize", "->", 
                  RowBox[{"{", 
                   RowBox[{"300", ",", "300"}], "}"}]}], ",", 
                 RowBox[{"Background", "\[Rule]", "White"}], ",", 
                 RowBox[{"Axes", "\[Rule]", "None"}], ",", 
                 RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", 
                 RowBox[{"AspectRatio", "\[Rule]", "Automatic"}]}], "]"}]}]}],
              "\[IndentingNewLine]", "}"}], "\[IndentingNewLine]", "]"}]}], 
          "\[IndentingNewLine]", "}"}], "]"}], ",", "\[IndentingNewLine]", 
        ",", 
        RowBox[{"Row", "[", 
         RowBox[{"{", 
          RowBox[{"\"\<Fitting curve:\>\"", ",", 
           RowBox[{"TraditionalForm", "[", 
            RowBox[{"Dynamic", "[", "regline", "]"}], "]"}]}], "}"}], "]"}]}],
        "\[IndentingNewLine]", "}"}], "]"}]}], "\[IndentingNewLine]", "]"}], 
   "\[IndentingNewLine]", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.404910033086368*^9, 3.40491004790768*^9}, {
   3.4351686670625*^9, 3.435168741828125*^9}, {3.435168800984375*^9, 
   3.435168848296875*^9}, {3.435168935953125*^9, 3.435168938109375*^9}, {
   3.435169013921875*^9, 3.435169020734375*^9}, {3.4351692035625*^9, 
   3.43516920415625*^9}, {3.43516923709375*^9, 3.43516924178125*^9}, {
   3.435169275375*^9, 3.43516939428125*^9}, {3.43516942434375*^9, 
   3.435169469953125*^9}, {3.435169599234375*^9, 3.43516966484375*^9}, {
   3.43516969696875*^9, 3.435169735140625*^9}, {3.435169767453125*^9, 
   3.435169782484375*^9}, {3.435169903796875*^9, 3.435169907046875*^9}, {
   3.4351700695625*^9, 3.43517007225*^9}, {3.435170117859375*^9, 
   3.435170131328125*^9}, {3.43517033915625*^9, 3.435170360203125*^9}, {
   3.4351704440625*^9, 3.43517061946875*^9}, {3.4351706505625*^9, 
   3.435170659984375*^9}, {3.43517071840625*^9, 3.435170763109375*^9}, {
   3.43517080078125*^9, 3.435170801796875*^9}, {3.435170864515625*^9, 
   3.435170870421875*^9}, {3.435170900953125*^9, 3.435170959890625*^9}, {
   3.435171000453125*^9, 3.435171018765625*^9}, {3.43517109771875*^9, 
   3.435171122984375*^9}, {3.43517118465625*^9, 3.435171226265625*^9}, {
   3.43517134440625*^9, 3.435171579828125*^9}, {3.435171625296875*^9, 
   3.435171659375*^9}, {3.43517169225*^9, 3.435171697328125*^9}, {
   3.435171728453125*^9, 3.435171732203125*^9}, {3.43517176459375*^9, 
   3.435171800109375*^9}, {3.435171942734375*^9, 3.43517194590625*^9}, {
   3.435172085828125*^9, 3.43517208775*^9}, {3.435172125390625*^9, 
   3.435172128984375*^9}, {3.435172178828125*^9, 3.435172207203125*^9}, {
   3.435172293265625*^9, 3.435172294578125*^9}, {3.435172327328125*^9, 
   3.435172348015625*^9}, {3.436968998046875*^9, 3.4369690061875*^9}, {
   3.43696908196875*^9, 3.43696916615625*^9}, {3.43696927803125*^9, 
   3.436969336640625*^9}, {3.436969376859375*^9, 3.436969379296875*^9}, {
   3.4369694096875*^9, 3.43696945828125*^9}, {3.4369695218125*^9, 
   3.436969545859375*^9}, {3.436969653421875*^9, 3.436969654078125*^9}, {
   3.43696979478125*^9, 3.436969795703125*^9}, {3.436969834109375*^9, 
   3.436969839828125*^9}, {3.43696989290625*^9, 3.43696989890625*^9}, {
   3.436969983609375*^9, 3.4369699840625*^9}, {3.436970137265625*^9, 
   3.436970158921875*^9}, {3.436970208046875*^9, 3.43697044359375*^9}, {
   3.43697051603125*^9, 3.436970562703125*^9}, {3.43697064453125*^9, 
   3.436970698859375*^9}, {3.43697074790625*^9, 3.436970777265625*^9}, {
   3.436970816984375*^9, 3.436970843765625*^9}, {3.43697134975*^9, 
   3.436971373703125*^9}, {3.436971440859375*^9, 3.436971498125*^9}, 
   3.43697154096875*^9, {3.436971584546875*^9, 3.43697168353125*^9}, {
   3.4369717805*^9, 3.436971787875*^9}, {3.43697182128125*^9, 
   3.436971844203125*^9}, {3.436971913140625*^9, 3.4369719719375*^9}, {
   3.436972024015625*^9, 3.436972070140625*^9}, {3.43697211875*^9, 
   3.43697211928125*^9}, 3.436972153328125*^9, {3.436972192390625*^9, 
   3.436972209359375*^9}, {3.436972257234375*^9, 3.4369722959375*^9}, {
   3.43697236534375*^9, 3.436972366390625*^9}, 3.4369724029375*^9, {
   3.436972443359375*^9, 3.43697248425*^9}, {3.436972853328125*^9, 
   3.436972873671875*^9}, {3.436972979171875*^9, 3.436973043453125*^9}, {
   3.436973091203125*^9, 3.436973139234375*^9}, {3.4369731963125*^9, 
   3.436973251984375*^9}, {3.436973284140625*^9, 3.4369733110625*^9}, {
   3.43697338759375*^9, 3.436973424375*^9}, {3.436973522078125*^9, 
   3.436973542609375*^9}, {3.436973581203125*^9, 3.4369735815*^9}, 
   3.436973673890625*^9, 3.436973717328125*^9, {3.436973765046875*^9, 
   3.43697376528125*^9}, {3.436973862953125*^9, 3.436973863296875*^9}, {
   3.43697400625*^9, 3.43697400934375*^9}, {3.43697408615625*^9, 
   3.436974153296875*^9}, {3.436974223328125*^9, 3.436974251921875*^9}, {
   3.436974291828125*^9, 3.436974339375*^9}, {3.436974373390625*^9, 
   3.4369744015*^9}, 3.436974500546875*^9, {3.436974539390625*^9, 
   3.436974544453125*^9}, {3.436974593515625*^9, 3.43697459496875*^9}, {
   3.4369747569375*^9, 3.43697476025*^9}, {3.436974791*^9, 
   3.43697479165625*^9}, {3.43697496221875*^9, 3.4369749631875*^9}, {
   3.43697500503125*^9, 3.4369750083125*^9}, {3.436975180421875*^9, 
   3.436975180828125*^9}, {3.436975216671875*^9, 3.436975227578125*^9}, {
   3.4369753061875*^9, 3.43697530690625*^9}, {3.436975384703125*^9, 
   3.436975385015625*^9}, {3.436975489015625*^9, 3.4369754943125*^9}, {
   3.43697583590625*^9, 3.436975849234375*^9}, {3.436975917921875*^9, 
   3.436975949390625*^9}, {3.436975993953125*^9, 3.436976007578125*^9}, {
   3.4369762424375*^9, 3.436976264265625*^9}, {3.4369763089375*^9, 
   3.436976367984375*^9}, 3.436976443171875*^9, {3.436976530890625*^9, 
   3.4369765539375*^9}, {3.436976609953125*^9, 3.436976613625*^9}, {
   3.4369766468125*^9, 3.436976652875*^9}, {3.43697672375*^9, 
   3.436976742828125*^9}, {3.4369769531875*^9, 3.43697696228125*^9}, {
   3.436977083765625*^9, 3.4369770945*^9}},
 CellID->176273040],

Cell[BoxData[
 StyleBox[
  PanelBox[
   DynamicModuleBox[{$CellContext`p$$ = {}, $CellContext`l$$ = {{}}, \
$CellContext`regline$$ = {}, $CellContext`model$$ = $CellContext`b + \
$CellContext`a $CellContext`x, $CellContext`plt$$ = 
    "LogPlot", $CellContext`d$$ = 1}, 
    TagBox[GridBox[{
       {
        InterpretationBox[
         RowBox[{
          TagBox[GridBox[{
             {
              InterpretationBox[
               ButtonBox["\<\"Reset\"\>",
                Appearance->{Automatic, "DialogBox"},
                
                ButtonFunction:>($CellContext`p$$ = {}; $CellContext`l$$ = \
{{}}; $CellContext`regline$$ = {}; $CellContext`d$$ = 1),
                Evaluator->Automatic,
                Method->"Preemptive"],
               Row[{
                 Button[
                 "Reset", $CellContext`p$$ = {}; $CellContext`l$$ = {{}}; \
$CellContext`regline$$ = {}; $CellContext`d$$ = 1]}]]},
             {
              InterpretationBox[
               RowBox[{"\<\"Model:\"\>", "\[InvisibleSpace]", 
                InterpretationBox[
                 StyleBox[
                  GraphicsBox[{},
                   BaselinePosition->Baseline,
                   ImageSize->{15, 0}],
                  CacheGraphics->False],
                 Spacer[15]], "\[InvisibleSpace]", 
                InterpretationBox[
                 StyleBox[GridBox[{
                    {
                    
                    SetterBox[
                    Dynamic[$CellContext`model$$], {$CellContext`b + \
$CellContext`a $CellContext`x}, 
                    RowBox[{"b", "+", 
                    RowBox[{"a", " ", "x"}]}]], 
                    
                    SetterBox[Dynamic[$CellContext`model$$], {
                    E^($CellContext`b + $CellContext`a $CellContext`x)}, 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"b", "+", 
                    RowBox[{"a", " ", "x"}]}]]], 
                    SetterBox[
                    Dynamic[$CellContext`model$$], {$CellContext`b \
$CellContext`x^$CellContext`a}, 
                    RowBox[{"b", " ", 
                    SuperscriptBox["x", "a"]}]], 
                    
                    SetterBox[
                    Dynamic[$CellContext`model$$], {$CellContext`b + \
$CellContext`a Log[$CellContext`x]}, 
                    RowBox[{"b", "+", 
                    RowBox[{"a", " ", 
                    RowBox[{"Log", "[", "x", "]"}]}]}]]}
                   },
                   BaselinePosition->{1, 1},
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                  Deployed->True],
                 SetterBar[
                  
                  Dynamic[$CellContext`model$$], {$CellContext`b + \
$CellContext`a $CellContext`x, 
                   E^($CellContext`b + $CellContext`a $CellContext`x), \
$CellContext`b $CellContext`x^$CellContext`a, $CellContext`b + $CellContext`a 
                    Log[$CellContext`x]}]]}],
               Row[{"Model:", 
                 Spacer[15], 
                 SetterBar[
                  
                  Dynamic[$CellContext`model$$], {$CellContext`b + \
$CellContext`a $CellContext`x, 
                   E^($CellContext`b + $CellContext`a $CellContext`x), \
$CellContext`b $CellContext`x^$CellContext`a, $CellContext`b + $CellContext`a 
                    Log[$CellContext`x]}]}]]},
             {
              TagBox[
               DynamicBox[ToBoxes[
                 Show[
                  Part[$CellContext`l$$, 1], 
                  Graphics[{
                    Point[$CellContext`p$$]}, 
                   PlotRange -> {{0, $CellContext`d$$}, {
                    0, $CellContext`d$$}}], 
                  PlotRange -> {{0, $CellContext`d$$}, {0, $CellContext`d$$}},
                   Frame -> True, AspectRatio -> Automatic, 
                  ImageSize -> {300, 300}, Background -> White], StandardForm],
                ImageSizeCache->{450., {219., 231.}}],
               EventHandlerTag[{"MouseDown" :> (AppendTo[$CellContext`p$$, 
                    MousePosition["Graphics"]]; 
                  If[Length[$CellContext`p$$] >= 2, $CellContext`l$$ = Dynamic[
                    Plot[
                    
                    Evaluate[$CellContext`regline$$ = 
                    ReplaceAll[$CellContext`model$$, 
                    
                    FindFit[$CellContext`p$$, $CellContext`model$$, \
{$CellContext`a, $CellContext`b}, {$CellContext`x}]]], {$CellContext`x, 
                    0, $CellContext`d$$}, 
                    PlotRange -> {0, $CellContext`d$$}]]]), PassEventsDown -> 
                 Automatic, PassEventsUp -> True}]]}
            },
            ColumnsEqual->False,
            GridBoxAlignment->{"Columns" -> {{Left}}},
            
            GridBoxItemSize->{
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
            RowsEqual->False],
           "Column"], "\[InvisibleSpace]", 
          InterpretationBox[
           StyleBox[
            GraphicsBox[{},
             BaselinePosition->Baseline,
             ImageSize->{15, 0}],
            CacheGraphics->False],
           Spacer[15]], "\[InvisibleSpace]", 
          TagBox[GridBox[{
             {
              InterpretationBox[
               RowBox[{"\<\"d\"\>", "\[InvisibleSpace]", 
                TagBox[
                 PaneBox[
                  
                  DynamicModuleBox[{Typeset`open$$ = False, Typeset`paused$$ =
                    0, Typeset`rate$$ = Automatic, Typeset`dir$$ = Forward}, 
                   StyleBox[
                    
                    DynamicBox[FEPrivate`FrontEndResource[
                    "FEExpressions", "Manipulator04"][
                    Dynamic[$CellContext`d$$], 
                    Dynamic[$CellContext`d$$], {0.0001, 100}, Medium, Small, 
                    Automatic, True, Automatic, False, True, True, All, 
                    False, {}, 
                    Dynamic[Typeset`open$$], 
                    Dynamic[Typeset`paused$$], 
                    Dynamic[Typeset`rate$$], 
                    Dynamic[Typeset`dir$$]],
                    ImageSizeCache->{214., {10., 19.}}],
                    DynamicUpdating->True],
                   DynamicModuleValues:>{}],
                  BaselinePosition->Baseline,
                  ImageMargins->0],
                 Manipulate`InterpretManipulator[
                  Dynamic[$CellContext`d$$], {0.0001, 100}, {}]]}],
               Row[{"d", 
                 Manipulator[
                  Dynamic[$CellContext`d$$], {0.0001, 100}]}]]},
             {
              InterpretationBox[
               RowBox[{"\<\"Plotting\"\>", "\[InvisibleSpace]", 
                InterpretationBox[
                 StyleBox[GridBox[{
                    {
                    
                    SetterBox[Dynamic[$CellContext`plt$$], {
                    "Plot"}, "\<\"Plot\"\>"], 
                    
                    SetterBox[Dynamic[$CellContext`plt$$], {
                    "LogPlot"}, "\<\"LogPlot\"\>"], 
                    
                    SetterBox[Dynamic[$CellContext`plt$$], {
                    "LogLogPlot"}, "\<\"LogLogPlot\"\>"], 
                    
                    SetterBox[Dynamic[$CellContext`plt$$], {
                    "LogLinearPlot"}, "\<\"LogLinearPlot\"\>"]}
                   },
                   BaselinePosition->{1, 1},
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                  Deployed->True],
                 SetterBar[
                  Dynamic[$CellContext`plt$$], {
                  "Plot", "LogPlot", "LogLogPlot", "LogLinearPlot"}]]}],
               Row[{"Plotting", 
                 SetterBar[
                  Dynamic[$CellContext`plt$$], {
                  "Plot", "LogPlot", "LogLogPlot", "LogLinearPlot"}]}]]},
             {
              DynamicBox[ToBoxes[
                Show[
                 Which[Length[$CellContext`p$$] >= 2, 
                  ToExpression[$CellContext`plt$$][
                   
                   Evaluate[$CellContext`regline$$ = 
                    ReplaceAll[$CellContext`model$$, 
                    
                    FindFit[$CellContext`p$$, $CellContext`model$$, \
{$CellContext`a, $CellContext`b}, {$CellContext`x}]]], {$CellContext`x, 
                    1.*^-8, $CellContext`d$$}], True, 
                  
                  ToExpression[$CellContext`plt$$][{}, {$CellContext`x, 
                    1.*^-8, $CellContext`d$$}]], 
                 Which[Length[$CellContext`p$$] > 0, 
                  ToExpression[
                   StringJoin["List", $CellContext`plt$$]][$CellContext`p$$], 
                  True, 
                  Graphics[]], Frame -> True, ImageSize -> {300, 300}, 
                 Background -> White, Axes -> None, GridLines -> Automatic, 
                 AspectRatio -> Automatic], StandardForm],
               ImageSizeCache->{300., {148., 152.}}]}
            },
            ColumnsEqual->False,
            GridBoxAlignment->{"Columns" -> {{Left}}},
            
            GridBoxItemSize->{
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
            RowsEqual->False],
           "Column"]}],
         Row[{
           Column[{
             Row[{
               Button[
               "Reset", $CellContext`p$$ = {}; $CellContext`l$$ = {{}}; \
$CellContext`regline$$ = {}; $CellContext`d$$ = 1]}], 
             Row[{"Model:", 
               Spacer[15], 
               SetterBar[
                
                Dynamic[$CellContext`model$$], {$CellContext`b + \
$CellContext`a $CellContext`x, 
                 E^($CellContext`b + $CellContext`a $CellContext`x), \
$CellContext`b $CellContext`x^$CellContext`a, $CellContext`b + $CellContext`a 
                  Log[$CellContext`x]}]}], 
             EventHandler[
              Dynamic[
               Show[
                Part[$CellContext`l$$, 1], 
                Graphics[{
                  Point[$CellContext`p$$]}, 
                 PlotRange -> {{0, $CellContext`d$$}, {0, $CellContext`d$$}}],
                 PlotRange -> {{0, $CellContext`d$$}, {0, $CellContext`d$$}}, 
                Frame -> True, AspectRatio -> Automatic, 
                ImageSize -> {300, 300}, Background -> White]], 
              "MouseDown" :> (AppendTo[$CellContext`p$$, 
                 MousePosition["Graphics"]]; 
               If[Length[$CellContext`p$$] >= 2, $CellContext`l$$ = Dynamic[
                   Plot[
                    
                    Evaluate[$CellContext`regline$$ = 
                    ReplaceAll[$CellContext`model$$, 
                    
                    FindFit[$CellContext`p$$, $CellContext`model$$, \
{$CellContext`a, $CellContext`b}, {$CellContext`x}]]], {$CellContext`x, 
                    0, $CellContext`d$$}, 
                    PlotRange -> {0, $CellContext`d$$}]]])]}], 
           Spacer[15], 
           Column[{
             Row[{"d", 
               Manipulator[
                Dynamic[$CellContext`d$$], {0.0001, 100}]}], 
             Row[{"Plotting", 
               SetterBar[
                Dynamic[$CellContext`plt$$], {
                "Plot", "LogPlot", "LogLogPlot", "LogLinearPlot"}]}], 
             Dynamic[
              Show[
               Which[Length[$CellContext`p$$] >= 2, 
                ToExpression[$CellContext`plt$$][
                 
                 Evaluate[$CellContext`regline$$ = 
                  ReplaceAll[$CellContext`model$$, 
                    
                    FindFit[$CellContext`p$$, $CellContext`model$$, \
{$CellContext`a, $CellContext`b}, {$CellContext`x}]]], {$CellContext`x, 
                  1.*^-8, $CellContext`d$$}], True, 
                
                ToExpression[$CellContext`plt$$][{}, {$CellContext`x, 
                  1.*^-8, $CellContext`d$$}]], 
               Which[Length[$CellContext`p$$] > 0, 
                ToExpression[
                 StringJoin["List", $CellContext`plt$$]][$CellContext`p$$], 
                True, 
                Graphics[]], Frame -> True, ImageSize -> {300, 300}, 
               Background -> White, Axes -> None, GridLines -> Automatic, 
               AspectRatio -> Automatic]]}]}]]},
       {""},
       {
        InterpretationBox[
         RowBox[{"\<\"Fitting curve:\"\>", "\[InvisibleSpace]", 
          TagBox[
           FormBox[
            DynamicBox[ToBoxes[$CellContext`regline$$, TraditionalForm],
             ImageSizeCache->{12., {3., 12.}}],
            TraditionalForm],
           TraditionalForm,
           Editable->True]}],
         Row[{"Fitting curve:", 
           TraditionalForm[
            Dynamic[$CellContext`regline$$]]}]]}
      },
      ColumnsEqual->False,
      GridBoxAlignment->{"Columns" -> {{Left}}},
      GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
      RowsEqual->False],
     "Column"],
    DynamicModuleValues:>{}]],
  Deployed->True,
  StripOnInput->False]], "Output",
 CellChangeTimes->{
  3.436975950953125*^9, 3.436976009375*^9, 3.436976265140625*^9, {
   3.43697635953125*^9, 3.436976368484375*^9}, 3.436976443828125*^9, {
   3.4369765323125*^9, 3.436976555109375*^9}, 3.43697665490625*^9, 
   3.43697674371875*^9, 3.436976963*^9, 3.436977095171875*^9, 
   3.436977377515625*^9}]
}, {2}]]
}, Closed]],

Cell[TextData[{
 ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]",
  BaseStyle->"SlidePreviousNextLink",
  Appearance->{Automatic, None},
  ButtonFunction:>FrontEndExecute[{
     FrontEndToken[
      FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}],
  ButtonNote->FEPrivate`FrontEndResource[
   "FEStrings", "SlideshowPrevSlideText"]],
 "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]",
 ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]",
  BaseStyle->"SlidePreviousNextLink",
  Appearance->{Automatic, None},
  ButtonFunction:>FrontEndExecute[{
     FrontEndToken[
      FrontEnd`ButtonNotebook[], "ScrollPageNext"]}],
  ButtonNote->FEPrivate`FrontEndResource[
   "FEStrings", "SlideshowNextSlideText"]]
}], "Section",
 TextAlignment->Right]
}, Open  ]]
},
WindowSize->{960, 747},
WindowMargins->{{95, Automatic}, {Automatic, 28}},
Magnification:>1.5 Inherited,
FrontEndVersion->"10.3 for Microsoft Windows (64-bit) (December 10, 2015)",
StyleDefinitions->"Modelbookstyle.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 166, 2, 60, "MainSection"],
Cell[748, 26, 606, 10, 66, "Text"],
Cell[CellGroupData[{
Cell[1379, 40, 176, 3, 59, "Section"],
Cell[1558, 45, 317, 9, 41, "Text"],
Cell[1878, 56, 387, 7, 66, "Text"],
Cell[CellGroupData[{
Cell[2290, 67, 1066, 23, 136, "Input",
 CellID->17840084],
Cell[3359, 92, 610, 17, 59, "Output"]
}, {2}]],
Cell[CellGroupData[{
Cell[4003, 114, 118, 1, 43, "Subsection"],
Cell[4124, 117, 889, 18, 183, "Input",
 CellID->83503889],
Cell[CellGroupData[{
Cell[5038, 139, 318, 7, 126, "Input"],
Cell[5359, 148, 2959, 72, 574, "Output"]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[8379, 227, 121, 1, 59, "Section"],
Cell[CellGroupData[{
Cell[8525, 232, 124, 2, 51, "Input"],
Cell[8652, 236, 876, 19, 353, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[9577, 261, 160, 2, 59, "Section"],
Cell[9740, 265, 126, 1, 41, "Text"],
Cell[9869, 268, 154, 2, 41, "Text"],
Cell[10026, 272, 250, 5, 51, "Input"],
Cell[CellGroupData[{
Cell[10301, 281, 613, 16, 85, "Input"],
Cell[10917, 299, 647, 17, 68, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11601, 321, 820, 18, 77, "Input"],
Cell[12424, 341, 740, 19, 74, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[13201, 365, 123, 2, 51, "Input"],
Cell[13327, 369, 679, 16, 47, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[14055, 391, 264, 3, 59, "Section"],
Cell[CellGroupData[{
Cell[14344, 398, 457, 11, 51, "Input"],
Cell[14804, 411, 6313, 109, 353, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[21166, 526, 166, 2, 59, "Section"],
Cell[CellGroupData[{
Cell[21357, 532, 253, 6, 51, "Input"],
Cell[21613, 540, 1032, 23, 99, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[22682, 568, 140, 2, 51, "Input"],
Cell[22825, 572, 1318, 22, 167, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24180, 599, 243, 6, 51, "Input",
 CellID->131449341],
Cell[24426, 607, 2063, 39, 337, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[26538, 652, 116, 1, 59, "Section"],
Cell[26657, 655, 823, 16, 51, "Input"],
Cell[CellGroupData[{
Cell[27505, 675, 120, 2, 51, "Input"],
Cell[27628, 679, 4522, 105, 299, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[32187, 789, 1452, 29, 162, "Input"],
Cell[33642, 820, 16510, 279, 703, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[50201, 1105, 147, 2, 40, "Section"],
Cell[CellGroupData[{
Cell[50373, 1111, 14662, 285, 1965, "Input",
 CellID->176273040],
Cell[65038, 1398, 13951, 323, 1339, "Output"]
}, {2}]]
}, Closed]],
Cell[79013, 1725, 799, 19, 40, "Section"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
