(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    185900,       4836]
NotebookOptionsPosition[    172934,       4396]
NotebookOutlinePosition[    174034,       4430]
CellTagsIndexPosition[    173954,       4425]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Random data sets
Curve fitting - regression\
\>", "MainTitle",
 Evaluatable->False,
 CellHorizontalScrolling->False,
 CellChangeTimes->{{3.4351684414375*^9, 3.435168460625*^9}, {
  3.562906639891283*^9, 3.562906642387287*^9}, {3.663076203509945*^9, 
  3.6630762139010606`*^9}},
 TextAlignment->Center],

Cell[CellGroupData[{

Cell["Relation between the coordinates: Examples", "MainSection",
 CellChangeTimes->{{3.435168413953125*^9, 3.43516841540625*^9}, {
  3.5899118750711856`*^9, 3.5899118790033927`*^9}, {3.663076174664831*^9, 
  3.6630762212295303`*^9}}],

Cell[CellGroupData[{

Cell["No relation (Nincs \[ODoubleDot]sszef\[UDoubleDot]gg\[EAcute]s)", \
"Section",
 Evaluatable->False],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"data", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Random", "[", 
        RowBox[{"Real", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "]"}], ",", 
       RowBox[{"Random", "[", 
        RowBox[{"Real", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "]"}]}], "}"}], ",", "\n",
      "\t\t", 
     RowBox[{"{", 
      RowBox[{"i", ",", "0", ",", "100"}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{"ListPlot", "[", "data", "]"}]}], "Input",
 PageWidth->Infinity,
 CellChangeTimes->{{3.5899117011914787`*^9, 3.5899117108020954`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {RGBColor[0.24720000000000014`, 0.24, 0.6], PointBox[CompressedData["
1:eJwVk2s4FIgagCcltCfhqKVNJrZtdzvtantybNTnki2WLZdUotJxGTaysWhX
mrNExFlFzCE1olO5HONSyPDNNK5TJquGGTQ3c2Nucsk92/54n/f3++Pddu6C
b5gegUAI+8BfrnplZnJkqRdNpsN+K9skhbVl4ebzqlFM39k6czpdDTEZy8qR
OhGcbzi7PDyrht6g8ne2ziq8IZyP9j+qQdFQRZ93zWswrGOsOHYokXS17t7y
+9fAOJK7KP68BaJJvnZ+K+MoTqtIai7WIHFn5wlzrQSTSilbU1CAaXNd4aPX
uzA3UXXrzPkx6B8XeRRuksG5ve9d5SE8nAzp3L1xSAZVwcLCgiEJBE0FjQW4
iYDjd4rqzulDE48HPk32j/FO5KWNUywtXDtpPAutDKAdq/zY4AkLRVuLLSle
fOB4KhTKPVokFq2K+7fpTTw/yDrzOJ6DBEHGcGCtBvdF8D/2uzEOyTRj2xmd
FP5BKCE9WZZCTBbbf85bA1vUqbl/26UEUoyfbnvSS6C63Rdyf2ZC7EFpXGZG
M2THUxaqGFpgT0ztvtglAc7nX/d+NSpAB+/z843VQ0Ac+65kzFKKN/UiG6W/
apC8sSDy+owSXCfM5730RNjmy6gbeSNB5997fL+vr0DKw7nUAgUNY/XUff9s
eQoTBnz21CMpCuJ+DDgu04KD9X+SOq6Mo0h6LNAqmwoBgtCOnAQB3nEqe1Gy
To7sAwHPZhcEaHJ3YK3XQCtYRPNfeJf2ovMBoHc8pUGo9aC3lScPqhtKq3ck
6PAwODauKu/GJc2Oj3rvCuD2hameiPtMvPmkxt+giI918oy+TRskSJyav1RQ
yAdGPMmaa/gYDFSutU/YapzO67Lat1uHydED6wmZYvQfybs+6aJCQuVeGtf4
J3wfZ1rdnCSDk2KX0OMxIpS6Lqj79+sgyH4hhcjVAjV7A+j1PYOW8juFzf8a
x9x2z9slCW/AIuE3g/ICFt5k6i9Xjo7iRPHz9OgddIjc1cnDSA2Gli0e1W/r
QGfjnlh/dwmQk913GuyVwlzzUDjp/XPIXa94dPmeErtfuelX+zDB9HKjaXuB
Ej85a59FLlVhpk35XOegCu0Otc99uYsOURNblxwnlbAvOXjVRaoOHGzfsgO/
YELfF8ahg5YjcK2MyfiM2Q8VnbdVZ0t02O1h+JL3ugOAQ39j/kCOE/WLGGHT
BnKftLgztSNodDSYTbwvQ9+pw9aFThpYWeI3URk6zFpcFOm0IqTuZv2dmS8E
7WayT6uhDFMuWUsfzHzorCxap7bpA4bXjQg6vw/IjJaG4OtsiF6K6B89rcJc
mlVyQ2ErUG3ra/PNmNBJGXvbK1EjT53OsfaRIklBcTDzZMAWMu3SDws6OH1K
fChOyEW7j55dC79YB8Q1FpydV1rhhMd3yjuqDowV7uksPyxFOduCv5KpBbPq
GQpXO4xFaSRhTqUQWf3JMserYpR3Td6gemphZShF9YuhBgnfZhZte5cB3Mal
vJRkNYa6mCUcdpbACMuOxYpox7SUUt+FSQU8hGAj2kITUn+dzj1xYBjeWdCu
WOxRADu/oP5YGQ/pTob7iZPdSK4wi2WuqYFOF/UWXhsfCbdm/zdZyENyiM+P
HC8Vuo4p3VdKdWDXmqMLEgtgoOtWuParMZi4LAkcWFRCufjrPIJSi3MBk2/2
YgMeNM+vijLqh9DSNvKnelzIemSzvfSbD//hsnPN/k5kbCba2Z5SINEm1sft
3XMY4kbav5IJ0IKZTbyapYNr36TqO94WYOqRpC8tR2Vo8jRdcvRCIwiP257J
e6hAm1qj4zmrNVCFPdKYkyII86MthOjpcE2Pbw3PXgYHZ9cdW3+3H0642lN/
8RqEB07/dQ4p12L+xvhu7rfj+KJe50YhisCpzGEmvEICq09FVp+l6zA/Kl++
jd4HAQGBZlZSJSZUf/Z95YAC039oTnRO0MBAYIJTqpkEo9o7rNYmaoFIfW1w
gH4PlBdHtvv380HzyepgwxIxBrUYuxzKGobpF+bj7pI/kFNyzoixRo7G7cLl
+OkxzK667FHAFAEpoobSxGVDlGed8Wk9BX66OSywOECAm14ahEzkKPH/TSYD
dhtU8Gy9JWcpWIkpiW3SxLdSbNfXeZgG/4G/j++wti9W4J/yO4u/
     "]]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0., 0.},
  Method->{},
  PlotRange->{{-0.9922641382580933, 0.9993049980876125}, {-0.9879612542919933,
    0.9883356119788751}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0.03983138272691412, 0.03983138272691412}, {
   0.03952593732541737, 0.03952593732541737}}]], "Output",
 CellChangeTimes->{{3.589911702720281*^9, 3.5899117116610966`*^9}}]
}, {2}]]
}, Closed]],

Cell[CellGroupData[{

Cell["Linear relation (Line\[AAcute]ris \[ODoubleDot]sszef\[UDoubleDot]gg\
\[EAcute]s)", "Section"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"data1", "=", 
   RowBox[{"data", "/.", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x_", ",", "y_"}], "}"}], "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"x", "+", 
        RowBox[{
         FractionBox["1", "5"], " ", "y", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           SuperscriptBox["x", "2"]}], ")"}]}]}]}], "}"}]}]}]}], ";"}], "\n", 
 RowBox[{"ListPlot", "[", "data1", "]"}]}], "Input",
 PageWidth->Infinity,
 CellChangeTimes->{{3.589911728668127*^9, 3.5899117331307344`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {RGBColor[0.24720000000000014`, 0.24, 0.6], PointBox[CompressedData["
1:eJwVlGs4FIgexmftlkZMbtlqo8GR4lTUIVZPf0mtSyi3IhSLSqHNs2EHx24X
w9auLWakNG7lyG2Q3Pc/43qOEg0mo2KMYYa5LmoicuyH93mf5/3yfnjf52cc
FusdoUYgECJW9beXD+hqey314jXyCGWO3opriyL1FyQT+NyspDcjmo8xacvi
tzV8CDS90L59Rgi9QcUfTB0l+C6J2pzzVor8kSf9HlWD0DsaMU1ldMP5GzWF
y58HQenJsrKz4UL0eW8rn5UZbOe7Gzg9lSLZsuuUvlyA9haNrztkQrz+sTty
4tduXKd1yVDPkoGcGb4r3WASaI96d1PqJmA2tMt648gkCL1MqE7vRBA0FzTt
f5gP/7m7xzJh3Shou5acaLCtw6gURrBzeTNQA0gqaGXBN1tKC+83NQLf6P7m
nGM8aEhId7S3fQnk3C/ifta5g+E5na0GNUwkjKa9CayW4TRdlXR0XopJTJLp
e4UQnsbOf8z1F0FMRo/vRw8ZkCpjJM82yuF8jI/CLKEP2MYljhpnX8FlZ2Fc
elojaHr2by36nQM9yjnrK90C+KnlIkeDzQc7j0sL9RUjIBAZHVAnDsIdtQv1
QooMaY12fdwmKTop9ReOqfHRwfh7m1+4AnT8/X/e7rVPUMqzp/c1MPGymrR/
f3MTKK9xYivH6Tgad9H/5KQcMu1q9/imy4Ev9As0vJUPfS4Jk866THx4oOhF
nsYU7qNMNceWiVCbwV17jNsKpcV6tuFmNeB4EFo6m5jQILuXoabRBhVPCyrM
rypwp2rMoDJVgUsy8/W9jFHwPn3YO+XwO7jzrMpXPZeHDnGBpICyMSTPLSTS
6DxQDSeouhJHQF3iVP2sR4pEY/tQwaIMk6K5WoT0cSSay8PTAiaRUGbDHCL9
gP1zeaavi1kQMH4o/GQMH3X4XMYXpa8xyHYxhTwkh80F/clnp+TQXPyQ3vj9
DJacLdoefWUaN139Rb2Y1o6Pe+g33DJfofL+85vR5i2QYaWm+aN/DYYXfTq+
5s9OpB75QKFYVWJq0hFLdRshNFBd9OM1JyFTS1SaXCjG1GgPyR4XMeok1+t0
0MT4LM53dufIDKabFH/sei3Bmh9PPlGVSTBKabTkMCsGypthz9hoCdiZ/tUT
uJMNM1Ua5hb7XgC1iM3azubAfGXzv626W+C/ruv6hgc7gekVv8V8Nh+UtZ/w
nMmfMJ/sq7ntcx4Qjwf3kB9NorVz9oavEwW4ssRryGcpMJtWF7Lcq8B863Y9
dtYYDAg0w3328yAlcZuw5P0Etvy0oe3oggBZx/4418LrhzM+ZlQL7wGIXjrH
mQiR4LeFdD/SPyWYb1pbnaXLBnKIqlUv9TEOS2++3HZCiDM7zuwvG5zAranM
RM9FBRQ4bHBPW1CA1fo2auSVGgiqcVvz/HgDnHI9Kn4o6USNI1oTc0McnOrZ
xFtZ/VVhjJbnXjc55F4/P3Z7dfejNwJ+2EkR4FT37B/5q3kpzbrNhCkDgn16
rvGHNBB11Z3od+3E8EO6V10cBRBPmxeTMsfhekqB9+KsCEyCd9WXlIsgnzKf
eergG/j6DB/YF8ehJ4tW61c0jP7l8aMe7SOY+kT3MvurKlhnpBroXp+FhGzV
41n6MMqWaUZ+c3x0mhYfWSlQgGX1LQviUwVwu7Mj5bun4f02hde7jRIoHt9z
lyCW4z927EiVKuXorJ9VHkXkQNxvJZ8eiIYgo9TErGCvDJN31X3nGSZD1hay
lelpEf7FY2wS1k7hyNAF24HJUbSeJ+3otRtC6t5raxwejOJBGiM/rFKA2k03
Bcdj60HbbdZ9ZV85mlQTT97+UgbvKe05yTkyiPBhLoaqKfBhnpRqyVrtV2n4
aTE4wLhXYfFBwIWSA/ccQ4vlyJV8zpLoKfBFreJwDpkPIe7Z9PRpAXx5+kLF
2RYFlop//dmvToH+/oG6hkIxNoddKrDsmsGbno3xjldlsPz4brfbtBSiOjoN
18bLYYyo9ChKkoP4ylszXw4PqheFVV7SAQhqJh36LuMNGFL1yLvyh+FlXhiR
9dUUujTYrE1kifFWebIrbZVTnwkPbgubxiHKrYYUorbKjUeW/6IkitGgTz1U
eVuM5A6HYgffKWzT2vxyKViMhud2R9wgz2DHGoWrTvArvBU5Tb20dQT/D21k
dP4=
     "]]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0., 0.},
  Method->{},
  PlotRange->{{-0.9922641382580933, 0.9993049980876125}, {-0.9938952302733975,
    0.9992100206380777}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0.03983138272691412, 0.03983138272691412}, {
   0.0398621050182295, 0.0398621050182295}}]], "Output",
 CellChangeTimes->{3.5899117345191374`*^9}]
}, {2}]]
}, Closed]],

Cell[CellGroupData[{

Cell["No relation? (Nincs \[ODoubleDot]sszef\[UDoubleDot]gg\[EAcute]s ?)", \
"Section"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"data1", "=", 
   RowBox[{"data", "/.", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x_", ",", "y_"}], "}"}], "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"2", " ", "x"}], ",", 
       RowBox[{"1", "+", 
        RowBox[{"y", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           SuperscriptBox["x", "2"]}], ")"}]}]}]}], "}"}]}]}]}], ";"}], "\n", 
 RowBox[{"ListPlot", "[", 
  RowBox[{"data1", ",", 
   RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", "\n", "\t", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "2"}], "}"}]}]}], "]"}]}], "Input",
 PageWidth->Infinity,
 CellChangeTimes->{3.589911755053774*^9}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {RGBColor[0.24720000000000014`, 0.24, 0.6], PointBox[CompressedData["
1:eJwVlPs71PkCxyeSJHLLIxGxaLfdPUPXVcfbpZuWjtxv3UvYRYeOy1NJuyWU
jU1Ecq9WyyI9CPUZjltuFcatVuM+bjPfGWaMMWZO54f38/oDXq/nvfVsiPMF
ORqNduHL/s+ibg21f0n+JkYZHi67opewJt9Pa2lmnmi+GirVrBUh+PYK+9ML
Cp0KKnl7E8To8C0QGlsvk9JTd8yqeJNgDT5/71gyhhy/bTuP53XD/9aLvBXp
GKb3JZu//ZWHIH9nuotMTJyeGv7iFjEJw+1NnlocPrmx2uZW4qoJ3BQ1+43e
6SPHEqhctSMSdE2z7NO0Beh9kh0ZpjsF/pkm842DAgx1jXvwFAXwnfedcrej
4Ek3/TuqYQpq9s+OV+1uJO5bmoScQzLEeaku4vV7XGT0OalvmwFry6NNDx2m
8Mk0x/Y79VYYZqwKu6GeR3oZvvLB59igDd3+6F22QixL/Gdf9PNwtVTVWMBd
gMrJN6lZNCGCE1pdRY4r2OCVEek7z4N/sAvXJPIz6I37NwvW83HpwFhY/O23
+HZ9B5f+gwyt1Lx5aDMfwWJ3o+XP49jr+PNSZfE0nBWuOd5tGcLvcgGVY1dW
yH8qIhvyRniwpbSWHOQo8pVyVJdgcBjW9946/1heTZJ6vNtujc3hktzs+z01
rajeMVkZZtCHobCf3D3Gpbja52dF7eCANebmrX+3FEtir4a2Fhay9ue3P14n
JJuaS1wmPk5CLbt3jUNvB2KMY/VDytiwtkJtYzUDBv9ubxtVFqL4ZW6xWbiM
3C9v4Z1q40IyZ6bckc2BZ3KD+b70WfxeUeKqmDFFvLcxS8p7WDCcX4pKTZuC
Y/ZQZq0uD4oztmUVrRIi5NGTTDZM42pQrwotnkdiGBrpFYMDoP25q5SpeoNU
NZTnOdWK4TVsc94jmCL2m/tDH8Ysw3e3ONqQKcXAOp0Vg+0Uagqy0l6dExOL
by7rwocPnfBfFAtSu4nU/F24idkAqEdtsUFm7chZtbz1fkIlzucvOym8YRKb
NitF+mcRYq4e3K64awGJWbeb0nT5SFKZLLyWJyLb1GJ864cpqF+rVG9IFZGW
77mZcl+6jTcqEDX1LRPdUmIXG0QhkNoi2ccX4Xnb+2O0nULsNea1en/9AdTi
vfStE0LE5dcxTOtGQC+ID5lpr0KL/dp3/T1MeA8IAi3le0CVL5OLRp3YO8pd
tfOLTyWnE62GTwQkU3/BWYezCJlkoCqHISNqtIp6+msucsz/q1mXwoXMsqol
SJuF6CiDsWeCeTIuMWPyw/lgOCRfrB1g4fDaV3/Ea88jSHKxa/TkMokZXlu1
8TqFHOPyshSND4ika7+UKbxG/2xsp8HxBdITMBplvIcHvZjSqGNiGR4VDmjr
SbigK9fH+YXWw+rltN91Jg+e9ofYWTNM8s3JIKZ9dj8mWnUGZPFS/GXRfETC
4CDjpv/nxD+5xLSsMUKzcQQTzfzknKNSvFOy5CUsz4L2Q3zGVmEaTkc4dSp+
VYvzNhrhR6z5OF34kxXrt1ncjM51FvMXsdGrRng2h4OcKwtJnlYzsHC5Hnj5
+hJaU1LL3fLZxOhgR4pm6TRinmtcqltNoPjbR5eib0dBe7D4lJ/GJowVrlpg
+AfYTrEPynJlaAxLr9H5jkJv8wM/zvdLcPA9dditbgEFw/+4T2NLSXS26anz
3Vwc0EopClQaQY1n/8gb5gISCo1Mci1WiO3Pxi5Z6lwwdA3pxj6LZHUeo1o/
j4dBZsDu7nEO0czgJR/WkSDO4leFfZkcsn+LK9Phn0NQq44dcQpphtHXp918
tD7AqEzJI1H+yz9ccSrwvMzDBZdS8Rk5GQk9FKAX94TCgcV1birZI+AfVVYe
dRXg2f506zMFUqKZIu/t0DWH9nKu3UNDCrNi/eM+QiHkfQKKT9fKyPDjwrlH
6hTc3b019MdEZE39k52VDyYQe+xVhHX4Clyr7e7twBwCGxr110RI8bQ4QLRW
lQI79JOJa9cUwl02DixYD8O3RtXmcMIMRmV3it9UsNH5+KwSY7WQZF5hbTjn
NoK7RdfsU+so6Hf/+NwuhI/Aoy9UT8otkjrL3APBRWxov1M8QyWKiP9maZ9d
kgD1Kps6JSdExNLmwXq3HZNoUODaq58YJjp6eo177HrwP5CmXq0=
     "]]}, {}},
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0., 0},
  Method->{},
  PlotRange->{{-1.9845282765161867`, 1.998609996175225}, {0, 2}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0.07966276545382824, 0.07966276545382824}, {0., 
   0.}}]], "Output",
 CellChangeTimes->{3.589911756379776*^9}]
}, {2}]]
}, Closed]],

Cell[CellGroupData[{

Cell["No relation (Nincs \[ODoubleDot]sszef\[UDoubleDot]gg\[EAcute]s)", \
"Section"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"data1", "=", 
   RowBox[{"data", "/.", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x_", ",", "y_"}], "}"}], "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"2", " ", "x"}], ",", 
       RowBox[{"1", "+", 
        RowBox[{
         FractionBox["1", "5"], " ", "y", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           SuperscriptBox["x", "2"]}], ")"}]}]}]}], "}"}]}]}]}], ";"}], "\n", 
 RowBox[{"ListPlot", "[", 
  RowBox[{"data1", ",", 
   RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", "\n", "\t", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "2"}], "}"}]}]}], "]"}]}], "Input",
 PageWidth->Infinity,
 CellChangeTimes->{3.589911778988216*^9}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {RGBColor[0.24720000000000014`, 0.24, 0.6], PointBox[CompressedData["
1:eJwVlHlczPsax0fbKKdUcl5Exyhx7nE6hZuT9YnCKUUmpUaLVlOJbrmVK70Q
ab2WmBJazJC2lzL3RRvfKSkGbU4dukg1qWb5/b6zNW0zc+f+8byev9/P+/N5
VoefokfpUSiUKN38f9d8sDQ/OP8FxTe4V5l8l4IRO9pqRiRH916E2v2OpHDy
inri8xMMU++dJZwVMngfxJmyc51DeGjFttwIAr4NVvV4PxaAm4kBfds1ETAv
P7mv1gggPDGD/W9vDPFMupOvdhZVXTGytthPAG19R4AVIUPjFNMLBykEXJru
jB7N/Qt9PhBB6zktgz7hN4/CH5XQ3iQWjJYQIAvr2LB0UAkzUw7VrAVSCJIH
Tfq7YUgd2PrrGI8Ac4+KQw2bX6HUEwq+o5kcsgLNVPC8B4bzrifrLyTh2093
lhd5TcKLrsNuu8eFQCtekHTB4j5qDxza5PEvAihfr/yXUa9GP9j94ZgTgiGt
zsxOSSrg7pBMSN+k48/hH572VkOPBX3/UAQG5klf0j51CNgM6FMzMSS4C5Ky
r7yB7d1Kx4RFcuBj+YbEThnUvU0pK5qRgIv3iZlntULw8w4sr6gVww29mGeC
s2qUvmaZIvMYht3YasZLDyNqd/1L/noJuF59Q9/PbUJPg/e0Wd8kIUFP3PN7
Mx9uiCJu5E6K4GtSnP+RMQ08ad/3aZ6t4xP4MWzy6qCoqDpfqRBDyXb2u3sm
UyiutcX8t1DdfUoHjLwG3gO3bNxwNJsA153Q8qqJBx88rioLnKVQ+5/y2nXJ
WnTpeSvrjJKEecm6Re9LCah+ms/+eIiEG08fH6YWT6Ka8l/sjqjEQJPPnGEV
TkJyY+iqPBcMVNHu+qf8eaR5Y+zzZzcBafEDppRsKUraO/Eo1VEMlGrnun6z
C8heYddUaS+DwOFdkUdOYvTIZb2nyEsGQZtn02n9Ggh1jtOWLsTQzCkpbIyY
RSb3z7k8TMWwLPkilcP6gDY1WKEMGzHgO28z49e9g3/sfVjr5iSESPacj+GL
fuTaBl3bO6RwPm3PeqqzAlZmXlA8i8NwzXS88tz9abSwx2torQMGi3PPLNpZ
0+ioccSq4hYJZNtypjv+mkMn/NdWjC/FEIt/mt8mm4YsZVDl7R1ScLGT8hl/
6wXWhgzRljApZLFbeWtbR8Caw3pMdxHCa4+F3R//7Ifs8LEd4tsiwNw5dNy2
CxIdIigcnU9jn2A+7YESiQ0jvxiwpKCd/9RQxtOi2Og1DLaMhLINL5e06jzf
/rjmZ49eMaSfWSWoUMpRmJZ63SkdA8/r+vGWT9/g0QL7rBUluj7NH+8bDZlD
1g7MF7HLMZTZcetvWvbC5lZuYaCvED6KM7tWHVIg1XDB/q07Maw8X3fmwKwW
LjeH9LpoSXBa1JYVndgGSTmv930PxhDgsXeiRNSPesmc15LFYvjOX/ZJm62B
Frbi9EYeCcWXmEP51SSiPmek32NI4Hun7HqZpwZedu10uhhFAmVLdvHqqUII
j/k5iuut87HLMvkPVxks8RtJ7DhIwqX0cvqsTAUlX3Mjaxt1vGcV1wJ2ioBj
zj3rqfs3/Jssrh97Am09fVWojwk4X2WZ0GqAgLkytMrvlAQot1QPZYUTqOCd
4O+cABHsnpzYoy3XgmL0kMzAGMNA561o4rcZWFxTczpFjoEz7FhAmdCg843U
JVYqEtytbtbEGo9A3tf2gjwVhpxKW/vyjWpkmhb/hd5DAs+a5mR3VIWO03i5
pb4YBvtjNn8YI1BsAytjV5wMsjZmGG67SyAjfduRplIxmDdljvic6gQbA0z0
HxCBbb3xkXx9NcSMfaalemKI8q2bDdPTIsHgsMuK1RjcVSZ+pqUjUPiI6Txr
LoWK7bddwzga1OtTXP3PayS845JuRTQMb972VaZGSkH/aEztsRYtcmgkbl3W
x+Dvz7C0EUyjO3JJgtSGgMwDjSmuyWpICRg8aJJEQmz7KxujFA002y4t6tLD
MJH42f5w3yQI3AxeqX+QQFCz2a59OSIIi75IynII6LoXbswzmEKZY7/q73OX
QF7NOQ9WK4Ytvyy2rUjT5d/ziVmIngoxHmQOjmQR8GM3NQznT6OzhtEhgyul
0Ga6vGs+eBo9eChkpuwgoN2Q9LAIHkZ3uy8eo5eJ4H/q+2g0
     "]]}, {}},
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0., 0},
  Method->{},
  PlotRange->{{-1.9845282765161867`, 1.998609996175225}, {0, 2}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0.07966276545382824, 0.07966276545382824}, {0., 
   0.}}]], "Output",
 CellChangeTimes->{3.589911779971018*^9}]
}, {2}]]
}, Closed]],

Cell[CellGroupData[{

Cell["Linear relation (Line\[AAcute]ris \[ODoubleDot]sszef\[UDoubleDot]gg\
\[EAcute]s)", "Section"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"data1", "=", 
   RowBox[{"data", "/.", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x_", ",", "y_"}], "}"}], "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"2", " ", "x"}], ",", 
       RowBox[{
        RowBox[{"-", "x"}], "+", 
        RowBox[{
         FractionBox["1", "3"], " ", "y", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           SuperscriptBox["x", "2"]}], ")"}]}]}]}], "}"}]}]}]}], ";"}], "\n", 
 RowBox[{"ListPlot", "[", 
  RowBox[{"data1", ",", 
   RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", "\n", "\t", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1.5"}], ",", "1.5"}], "}"}]}]}], "]"}]}], "Input",
 PageWidth->Infinity,
 CellChangeTimes->{{3.589911789222834*^9, 3.5899117962438464`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {RGBColor[0.24720000000000014`, 0.24, 0.6], PointBox[CompressedData["
1:eJwVz3s41IkawPFJcqnDQW0PHWriSLZdlY1qyYvaHC2tEEJtSm5FoiW7Eqvc
0lM2l8jGMOkQa1xWKu1LLsMU0WQ0uhiMzK35jXGZwVzOnj++z+fv7+ZT573P
aJBIpDN/939rmUYGPyg+YH0ukxJT9Q60KsPWLQpncW3f/THaX3yIyVTy3jdK
gNHAXzQOYGJ/MHXBwnkZG5Mv/9Fyiwec0ZpBz3oukLSpPxa3jWPEtcYKpYoL
73LunpxZfI3REd47fNRL+KGsMWiDFQ/I23oC1oml6HLs1OpM2zG4KqeHTV4f
wepmKkd7y3t4LeC4F62fB47OisR/nZ5GaUjPzi9G50E39VePi1cmMHg2mO+3
XwL5e7wO2fhPoIH7gyOt9t0Yct9Ux7WWDVnH9GXwbBB8/xDbpdjSkbPxrskd
Dz58k1tQ+uHfU0guWRGfZliBL9Nv7Sq7WY+kj5nvAhuUOOR9aSBZJIZkmr7F
PDEHfRe+jbxOcDAmh+Er91RCKPW0psEKEUbE+BCWl8aA96eWwpXEwNgD3Pjs
zD5wUl3rfvbmBTAkszvj6FJYdvtqKN7qE+7xPLf4qE4A+ssvCBPOBP6mEfmI
+4sS7ZIf36x6JgZXybpFDw0Juu2ztL5dyALnm33e3zc9wbeLQX3WonsQqyEa
3P2UASeIzy2Kw2/wY/xZP/8pFaz+yl3UkEIgh3s00CyXBoVf9npVnOvFe46V
L39fvYBV1t/cFvhMgkEZS8uD1Q9ZP7VmOFb3orMTtHU/aQfyt1o0N916qGum
1FklqDFbsldVGkqA4rPVmv4yMVzvebBpaxwHf2up99Uu4aObfPC2z9IAkGcX
kwqL+KB/cYuqZONb1Ba6NrQwFKiZ91/7zlcCSI5m6ZGyZ/BSrA51OpAFpId2
tGH9NCwObWn2tO6HY+Muof4xEsyZHaKFm/Ag2H4phTysgs3bBaknW8X4lHqv
6PHpJcw861I9OS8E44RftamFTJR7XFpas68aJXdfZERbvQR2VVbfYsQohlYu
e636axibOVsaXZtYkJr83TZtuzlIfFZwRNY/gbf0pqsvV8jRz3jaUb2HD4aX
Hxl2FcrRd7f2wQ1DXMg2p8p7RpaRKBqwfEEWQZRko8JBKofDa/mmea+4uMdi
hhFoPQTtfS5Ort3pkFXZ0b6lYwLufPHUoVljEnvddV69fTMMPTtti1fms1HS
tIzh5gOQdrRZvFk2iLpexxnk+/N4QZ/knyEWgFrBbi1vV6Om8iw1qIaA8p2d
azvyCRjcTp1xMJ7ClKRN3Afzs3gu8SbdvWQK2j3ywtvYHDC2sdP7MbEPoxXh
rydPLGP0vk5ZaZMQyi2aGvKNhuBC64juT/Hv8K0oY2DTkTk0+BjPyCVPgWkq
Lenwkhp4pUZxJcsE7ljzPCss7jkkOoXHMX0pGOB+kHdPOIzvd3VaRvlQ8BPD
mK3OVoH/P9PO+s2JseRqxNiNh8TfHyJ2CZsFn+jSvPJDKqB07RKZehBI2ptd
snmhCL4s8AyjtTEx1MUo4T/OUhDrFLcoz0zi1RSK95JUBltb9B7aRPCw/Je5
WwFOQjDqEqwa3NqPjPzCpqOVPLQ3ZqxvNR6G1Bqj2A5NBGFRjsv8aC+SCmRV
0iIebmPuPZZm/Rxc+bzv1BQ1RM6M9IrTCWTRC8LENotQOUbafXLlJ6SOb79N
4qkwqcNRx5wthgPr8mujdCdA4DBd9bUNHXOqzS0ptkpcMGc7b5sUQfsG8g6L
IBl2ZpTXjl/gwehwpD1zSow/KIaPmKRPQ5Zt+iqHUjFK8+YovkFMMHiSMeF1
ng4WC6yeP68Mo3mDrv+NlUro1H3j5L1GhGd8aEshGmpsGPm+tS2WgAOy1Uf1
yiYgYEg2Hq5FxweOxc4hVBUGdBJNPws+w8smYv8dsgR0TE71tMhZuDIosu5k
mxqLTa4tmPUS4OcXaGTGlWOdi2NSffsUZBx+nOicoIQoA7nb9hAxRnV1m2kl
qqDK60p/TbQYeXHvLX1f86HCbHpTOnMcg5/qu7jlCEGvKcCQa8vBgd9P6bZr
LqC/acDj6wnjkFt72b2wQwLSfGG91YGPGHWoUf+EhgxrdHg/f53HhfWvtEMk
N+Solas1E7dfBM/1TAYUx+WYalFuZXJ+CrpWEe6Gx8fxH0nGxy8erIL/AQL0
eow=
     "]]}, {}},
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0., 0.},
  Method->{},
  PlotRange->{{-1.9845282765161867`, 1.998609996175225}, {-1.5, 1.5}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0.07966276545382824, 0.07966276545382824}, {0., 
   0.}}]], "Output",
 CellChangeTimes->{3.5899117968844476`*^9}]
}, {2}]]
}, Closed]],

Cell[CellGroupData[{

Cell["Linear relation? (Line\[AAcute]ris \[ODoubleDot]sszef\[UDoubleDot]gg\
\[EAcute]s ?)", "Section"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"data1", "=", 
   RowBox[{"Join", "[", 
    RowBox[{
     RowBox[{"data", "/.", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"x_", ",", "y_"}], "}"}], "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"x", "+", 
          RowBox[{
           FractionBox["1", "3"], " ", "y", " ", 
           RowBox[{"(", 
            RowBox[{"1", "-", 
             SuperscriptBox["x", "2"]}], ")"}]}]}]}], "}"}]}]}], ",", "\n", 
     "\t\t", 
     RowBox[{"data", "/.", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"x_", ",", "y_"}], "}"}], "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{
          RowBox[{
           FractionBox["1", "4"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"x", "+", "1"}], ")"}], "3"]}], "-", "1", "+", 
          RowBox[{
           FractionBox["1", "4"], " ", "y", " ", 
           RowBox[{"(", 
            RowBox[{"1", "-", 
             SuperscriptBox["x", "2"]}], ")"}]}]}]}], "}"}]}]}]}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{"ListPlot", "[", 
  RowBox[{"data1", ",", 
   RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", "\n", "\t", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1"}], ",", "1"}], "}"}]}]}], "]"}]}], "Input",
 PageWidth->Infinity,
 CellChangeTimes->{3.5899118123626747`*^9}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {RGBColor[0.24720000000000014`, 0.24, 0.6], PointBox[CompressedData["
1:eJxF1Xk81PkfB/Bp3Ip1LWojEv2UTeoXtZUPlsqu5IgOx64fSxe1bI4flS5R
kStaFUKJyJk773FFYxAht8Eww5j5zlDJ2a/fH9/P/vF+vP58P15/vB5Pzf+c
t/uDSqFQ6N/u/5nzXkHuyFILcIwW/hTJSwPxdE+lee4YzMxbx17bMQA+t5Y5
A4VMNLdL3CG3nI1anDM+a5lwgbOv2TiG4AGzL/vd4bxORE0xDE+/X4pO3SxM
W17pRJ+uvGVJiX5A3qfsttt/nYLl7TOidz/wQGPrm+NK/FFI1XXSGzebgBtf
Gj3H7jRCvMCXHXOqEHVMMS0TlcdRPYO2XpE+imbc3hh83zeO+n+WVin59yRy
nnWedPyZiQ45v5f76jqA5CwzbcsMX0HhqtjqZs1WFH5Cdg69pqFAKecLItHF
iKn+cO0Dq15U/Ivyx8lkGtJIWuV3VT4WPsu+tY9+VwaUoVv9Jwt4oH86kbPb
fxpC8mW1PhEspE+MDrgKOMjnNv3ol8M8FHjB4CkziY9O+dgT2oFt6C9Fmz9F
AzvQBXOWX8StcnRM89UjrZd9iC6YNfBtHEU7dwZoj7QOod2Hz82X5vah54eu
6gQatqFY6ulSVjAPiHDV4Y0/TYOZQGneisoEpmmii005C0zuvbX7tSgb6NG+
TJMvhXCBOv3OqLICPSgb3nO9oRKG/M46Hhvno8LKSNrSr3zEZDmcVLubinR2
P06P06FB8r50xmPpCUg4oihuW8MBuZRucavu10jjWSDFuDgDmRijqoaKfNTE
MHmucqkJ5RY/yd3sT0B7oJRL4S0ClnibV7ekDKFRa8oHS6cBFFuSd1QiqRdC
AyvP+/aPgMbsfFBCYi/a4dvyKUauH0lwzQpK6NMgbTG4NbuBDyHe3TKUiBGo
SntueZfFBsqLXfldsn/CpFTRid9VGejEiKnHMR8m2Ca760eFtYOz4cJljS4+
StwvfYkp5KPKjOTEcvcpIAYXb95r54Cq/zWJjIQ6KL3SHmZR3Q2Ch81h3pur
UG2BxZqw7CbwSF+0EatuAEGWl3ZOZhQKDbHYKrGLhSL2fhJVeTSOomXYWZfS
OECnspWXVnNA/lKpfH0CB1prvQa9nachYmPGlzcfuKCVG9RcG8WFMwL1pb0z
HBTWcrR/QomHdmsJ6Sd1a1CYwdjAjcZ2FJ5eQ9Op6UDM687Vru6h0GQp2dbT
2YCm0RFbx/lcEBQtgtfGahRd5sVluiaDlI0LXePpODyJqdhf6cSEr0u9Zak0
AhaWDraMdxOQalCnWBM/jFJFjM2l5zvR5aANrMxPYxAdnEcRtx0FmlWMV1Xv
O/QXNfzQ27lO5L3k1THmygXvyjW5W6S5kKpVVBCvUIPSdC3zaTX10DMd1rrB
lgWpi393FF4dg/Wh+UHWCwSycbe+Sp0n0PbVteGevoVoU4DNcfefqtBxywOc
ZG4DfMxb0Vuj3AMTdNXerxF8dDEs/0DWBj5KunFqOPLFMCQ4+/rSjFkw0TgT
k/oLH21tzjfaZMlDlD0RSZqfb6GkVU+trPd3gIepgv8hk1HUF3RnV9y6EXTj
8hO7hRk2Yh7YtdBwiY1Sgz9GHzfuR4/oQfc2fRxD9PiEIof0HnCVd7eZ/XEA
QrMVLtSI5iHHm1RF3YJCoNyfezaT2AO7NLJsYmVYYDbJsfj6hEA/jMzXfkcj
UHfjfU/+tkkklb8lIeTkNMoY0Y+jcPjQtkpLffgzH8yV4nPOSHWguNvFN6uD
e9DtrI3aT3bwQH37OSmVazygrdPYruXEhtcvU4o8zCegr+u04fvxIdDzPBLL
vt0C4Tuui+19NAT3JsOLo/kskKsIG7U5X4oMd2x+sS66DjYWSB2LFOGhq8fR
+aZFHvrDPn/BjUrA2jal/RLx3/7PSTvIpHSgAbF15RMVvShz398mbhl8+PzK
rOWgKwGMIuLnBxpMpOT0clNXPQuJOJ3O/b2KAO9Hhz3S8wlwdDypoMbiwNcz
gS9uS0xDmHV5gIk/D6Xd/W+m7Z1pdKa+QU08gI+27V7j4xbKRxzfAe2jHb1o
rUOXivliG3KulDU9eLsfJcud++3Ny27U+vg/UjTRCbDY4H3iY+wU3M25ZJlQ
w0QpUWKVqm6j6MwvhbKuVDZsuRuSFuU3CcptEm6CSA7oKEi1e/ewoFZmbeuS
CwdEv8T8xbTiQr0YYSnv0g6eSz9JHhUOA+nJkZVFf6csNvbETN+O1bWTiz3R
EB86W3wxE3vyJlydfX5FgD2xHmyelxIZA9ITx26dxJ5VvUB6YhF8uWKrjBB7
Mnboca/kggB7ougkby95fRxIT1ZXGsb1nC/BntCr1a6cs2zHntjo3UsP8W0C
0pNTg3vj0rePAumJvqh78oeMcSA9WU8NrUxJZwLpyY4ZlZJntlPYEyRFlxhV
ILAn17pqylOYDOzJln6uWOSeSeyJ5znvzW7UYSA98VTxQ5pX+oH0hGHQcrn4
RjGQnnRO0yLTm/uA9CQ9dqghT4bAnrQ+X3exx1yIPXGKq13oK5nEnuxSDhs0
cJjCntyMicuK/HUae2I793QtULjYk/tf3O2fjQuwJ8b72B978ieA9GSF1aVT
dXgMSE/iFNbUxooLsCfms8r5IQvNQHqif9b/g6mkEHuCWNpUBuU9kJ60dH23
WfG1AHviLB10jyYygz1J/u1agV3lKJCexJcV13XbT2JPmu4sbNz5dBp7kint
1+XYyMeenPshwbRlhcCepBc+0RfYTWNPrjE8GIylCSA98dCJeDDqUI09ERHd
o6rzrSfpiWWj8xEvFyH2JDwF/oB6AntSurxqW7c+E3sy1azbwhhhAunJhXdq
ppL8cexJnhVFnpHNwZ7Ufb+4hfZtd6Qnp2Nm6FF1XOxJx3xi0wlJAfaEAT+c
mn/eAaQnO0UvnvA5xseevPrRNjU+cwBIT6zW6DSaVhDYk4ws9RdbfLnYExGj
R4fqKAT2ZMPDsrlZ3j+eNIu0p/bvGQfSk8GD60u26QuwJ291hn2yvLjYk6ON
OlUuWkLsiaHvRFKw6RT25OaNA0ba3XzsibGqsLVC5SWQnlRMLlt7d3ZiTzQ5
fslnD9CA9EQtp2IhLIDAntwRj3NKyprEnlibPrGPnhdiTzbs1Hq4eYWPPSle
dkgxl2BiTzi5wUvhYgLsSUM2p+ZWQC+QnrxqD9JbrybAnmiis6Zx4gT2pC/K
Vz6kh4M9ORB8crjmthB7ssZ8xejzRS72xNMkVXvrNg725GDhOne9XAJ78i/z
MiLHuAdIT6izYt5pFgLsiV6JiC6tLwNIT8qac14bzP3jyUv1pWXZjULsyaKe
hHT3Cht70mDMG9YK52JP1J4/Xh26qR9IT3Zzz2Trvu8E0hPhjJG8SYIQe3Ju
Lo+iySoC0pPHZkK9qvcC7ImLbZ64gjoPexLAcGnLWy3EnkQasrXi9YXwP+5c
8xU=
     "]]}, {}},
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0., 0.},
  Method->{},
  PlotRange->{{-0.9922641382580933, 0.9993049980876125}, {-1, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0.03983138272691412, 0.03983138272691412}, {0., 
   0.}}]], "Output",
 CellChangeTimes->{3.589911819087287*^9}]
}, {2}]]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Exponential relation (one?) (Exponenci\[AAcute]lis \[ODoubleDot]sszef\
\[UDoubleDot]gg\[EAcute]s (egy ?))\
\>", "Section"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"data1", "=", 
   RowBox[{"data", "/.", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x_", ",", "y_"}], "}"}], "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"5", " ", "x"}], ",", 
       RowBox[{
        SuperscriptBox["2", 
         RowBox[{
          RowBox[{"-", "3"}], " ", "x"}]], " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{
           FractionBox["1", "3"], " ", "y", " ", 
           RowBox[{"(", 
            RowBox[{"2", "-", 
             SuperscriptBox["x", "2"]}], ")"}]}]}], ")"}]}]}], "}"}]}]}]}], 
  ";"}], "\n", 
 RowBox[{"ListPlot", "[", 
  RowBox[{"data1", ",", 
   RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", "\n", "\t", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "7"}], "}"}]}]}], "]"}]}], "Input",
 PageWidth->Infinity,
 CellChangeTimes->{{3.5899118291201043`*^9, 3.5899118357979164`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {RGBColor[0.24720000000000014`, 0.24, 0.6], PointBox[CompressedData["
1:eJwVkns41PkegH9mZt2GGTOD3CLEaqmnE2208fnm0h5poykUupGpg6Q1bNku
nIhONwlpcag4DUuqp1krl/me2WpMnN0xk11hJvfbsOR+mTGn/eN93r/f53lt
I8+wo0kEQUR/4i/veUWNedY4LSjcbnLPjU1CzQGphxaGdHHBlnJl3D0TtHt0
h33uBwo65yWKqvq2B4iXjimmugx8YlZ13YpvgArutPvadi1Bk6bPLOG5BISO
R6mNXstweiEg3Ne7F3zTXFfvfjDCVW1XhBNyKhrhL8Tfr9DBD/1Li5rtKah8
/jzqjp8Q0BbTGaXtWuiqwyErzwh91DleycoyeAvxy9su/RBERf2a1GPrbd+B
6+YXj1wOUJCq0ro1qFMKBywZHE56p0Dawv7+jqMGxibbZm+PD4BZXtq869Ag
FAxprWsq0QB3vF9zplQEPEL4W2/eTwIB2zo97E8l4DE3ccctJq7OiCUz19qh
wghp7LSzPrKx8rUIoP8OGfmrbvVBTGR2Z9Al+lEzaDnk8tf8OAMO613jk/sG
4EawXBI7+gEWXpqaUwPmQDWe0LT3vA4infja2be2BXye9q/kVBHo/P0s13dF
Eih88GA6/jQTR77bYG/x2BaxXcK29ZAomKgM/b6Pr4aspUYW/alEcFiRPs41
+AhX0+72kfg94D2nsMrkyiHWiZwfEshCHgzRSwf4GcyOKJ+ur3kF6lp+3874
AXhDbQW/m1Qss//Kxt9bD8XY70qfLO8Doj9l4pzPIEgMA52/G30Hsl1Babsv
fYRxo4zWjgoWri+6vVb83go1zS469tiTkVeN9j/PNrSDpXQi15cgMD2+KPG4
3iKMnDlndkGtAXUw6u7xlcOAVLzp+SoD63Hry4266ahLdw8DKT/D5j0WOiOK
JcAmPlbX2XmCmP2JJ8XhC1BziO05cY2Cq4JmrlRuZaLl4xGBbn4slO0z91j2
hRDmHH9Z3X/JCPes+bY4t84C/ZsVpffNhRFByMkz20RLo5C8E7hlBb0Qm3br
yvNhGXje2F5+daNSkGW00NvG1kBpl+n83z91N2f6CeI9ZDArOWa8toWGP3vx
m/ZeUxMUHOFgmtRAw7yy1JWMyzooP48T3s1hYEsva8Pua+Yovcpx5e0mOqqq
yP41nSsF7bjqi88SB4FWvJpF8pyEGIPphISzC6DgrnK/qxPD9oi3JPpuJezr
C7kSRe6A5CD1H6ntffDg1Uxcc3EvUMtmVadoVOzV2n4rULMG2XhlJZ7oYOGv
fyKaEt6bI4rmUNViAxk90T3I+9K9FRShn8sZM7q4omSHI6fYCE2VJKU5G81B
5NM613vLA/BKnRq115KBeTfifOw6zFDWuI3CI3QQFLaTLok5MqDxnIQno/Xw
wSr5bOcKHTGDaAZnVSxkNaHrMhfVAKqb018Q9D+g00PFCuFNwJOu0IdXOUqB
mGzT41A5BpJLNcNgykKn7aRSTlEj9LAf/OjeQsafbzx1nx2/ClMN28LL/mSi
Ab5Vh6itFlCms1blTDW47pnmb49+D41t+XfDJNqoWg1+y7+2gYPCf/jnSUN0
W+I/i+vF4Pu/grAFbS3E4yym2JP6QeVxYZ1z66pA8tJT+1ioBrIrqUOLkTKY
ci15r+YNAErhB002rgqadh4UE79PgfjOs+vwmoVyxiIJjfEv0OrxFVGZ8um7
y8OSY5MS0J5QhxP7WFi9x3yKmLZCweZ1oa+vz4NIJyDF8eYgzFdsrS0DJpaV
Z1ZfVJihBFsnlfJvhrjF7qF78hZjxHMgkcoCyTjz8fBjHmKgPM3Z/jJbMt5/
gjz4QbwEuaecLB0C5OCdpO18eKoT+DROiLsdE205UrxOyhaBjduTHRePs3At
u/Ff9Aw7ZML/plKyawGMj9Tc17o2CCOvjzY3OLJwYulgrqrUGAlKlQeanCgo
+JF7wka6Avo6jsc1tLNwUYq/ncbaFo0rp0LWr6XjoSjhRnK4PjJuk+0e+QcT
tZQc9dlwsxGEPxRKo/RZKHNTdr7O2H+hTVRxj2tPoLrDxZvrg6VgsbUiK+5L
LdTPvey2Ut8O3n711KkMKraWVr/R+w8Z1ayRd618pKDRXW8ezdt3AEV+JGdO
aICTN0O3IZuKuoX+5+Oe0bCJ00BocI4l2rKvROtCEg0fzQ4MMxrSR1tFMUXB
L+YEN7BwQ1LhBPwf5+8OZg==
     "]]}, {}},
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0., 0},
  Method->{},
  PlotRange->{{-4.961320691290466, 4.996524990438063}, {0, 7}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0.19915691363457058`, 0.19915691363457058`}, {0., 
   0.}}]], "Output",
 CellChangeTimes->{3.5899118364531174`*^9}]
}, {2}]]
}, Closed]],

Cell[CellGroupData[{

Cell["Now what can it be? (Na, ez milyen kapcsolat?)", "Section"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"data1", "=", 
   RowBox[{"data", "/.", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x_", ",", "y_"}], "}"}], "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"6", " ", "x"}], ",", 
       RowBox[{
        RowBox[{"2", " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{"x", "+", 
             FractionBox["\[Pi]", "2"]}], ")"}]}], "]"}]}], "+", 
        FractionBox["y", "5"]}]}], "}"}]}]}]}], ";"}], "\n", 
 RowBox[{"ListPlot", "[", 
  RowBox[{"data1", ",", 
   RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", "\n", "\t", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "2"}], ",", "2"}], "}"}]}]}], "]"}]}], "Input",
 PageWidth->Infinity,
 CellChangeTimes->{3.589911850761343*^9}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {RGBColor[0.24720000000000014`, 0.24, 0.6], PointBox[CompressedData["
1:eJwVk/k/FHgDgAcTI0NjmBlKYsRrmY+ULke+33KsRGvRVsqxjq1szsrKMVkS
W21b2YSK3XZV2E2zK2Lj+1VvOUeaVxPrnMUwriaZy8yY7f3h+Tz/wPNYRycF
x2kTCIS4j/zfrZZGAe7ZUjR7NuObgjNi8N1SablEYIj/82owuPsGAdruywrf
R9aH4my+f+wzOSrzUcrXJpviAwO2kukOFQjyIzQu6WrApVPT5AAsQRbtBqez
2Bpg3JaV/4vTBxTcsyuWDUyxa4+PdRpPBR7BT/It48i44T7LPI+uAjHLtO9n
HrxH2z1NmrPXzgH3qNcL//y8BjpEcswF5gSc1hE6+UMMBepqmnc8SVGj1QkG
EdpxJNg5ZvzCl6xCJfMZGaa8URTWwZth1o+BgAs3FkfXiUC7NclmqFCA7A9u
NUlVaMOLW+yGhp4rkPOxXNaetX+hgOhr4tSCmyBHWLmR6EPHRsN+m/gPCbCJ
VFz37tga+JI9WnKnR4V4UzdBxjINcvIrh11yVKjnOvuURZkM6Jz3/GT+4DwK
dZml37cdB9Ft375NsexEm0Tz/o6OZMgRavkKDTVoxtVYuVebCN8NFSod6xRo
ofXKd7MWdByYPv/j+wcEGHO84swpHRL26Jrc3UdWgGRHBjtdtw/9aG6z307a
Dvq0OEMnyBPAr2p2T/tXAiQs7s3RYjFghau7xcEAAg56m6PH4rWDG5mJPsVP
ulFaQsZhaQEFS0NCVpEG1SBAZrWqMUoIhAW4ZdZrDEUNR5TZmw2Alt7dowuV
bSj3U9dnd0oY2JbjVo5FKpC9GN4+INOF+k5DulWly2ihPe9cvosOtt5ZbnXd
TgIOpWUOPtqsAxn/ZR8dqZUiH+dFon4JDVdGn7feRFYBt19bTXMCV2NSaPnh
wb8UICcnqBAWlyLdddVJbp89B7q8aHpeJQm/FnlufPPtCnjxwD2yfwMDDkec
eu2Tr0aXlfWbuzpNMElcnfKulgA3crwMpF/OIzJlPaf19ghYqjOzvb5+EviT
+u1/7x9Hl5qeqvL2i1HTlGRJXzkNsNs0vviZEYw8cYZa36VGLP8EMHKWikNq
w0eSthEg985eQ5MUKtZ7c9F2docaTJlnur0RmOLEueas+QkNCNrKUP/2mApv
3nPO636jQn11J5xJLSKwubpISNw3hALOMK2brFVATuY3Bw0toS92+N66GykG
F17f4U6JRWjppeoVt1QI+OFZDtu6BUhP9eJmvzsFd4xRrANpWhBl/3IxvZeB
68Ou+QffUoKdcbyeq7V6kJ2QxfThqtCu7Zv4mWJD3CWjJ5naaYDVh8O3ynwV
YC4+tyKTv4CC1dxhhwJTfDfqdv8hPQJMfnx59egtEYiviZeMVwqRd0zn49qz
RniyURApk60AWpT3YJOSAX+9UmRVs20FtVNsuKU1g+ApczUlb7oXaTdsdWpI
FqOqnboBxGQBYJXw/jk3RYfUn0OPBBdr0OmYK8eqsR52MPqG07siB3O0tAR5
Ax1mzqfo/PATAeMZoUupnAMW/XWSY9q6ET16HedklAFMaL1mxC5Ro3FLRbO7
1BhOzoz/+dyCgJ8cbTj5LJEIpf01xgtIgkrePfLNydDGdb/lHmq8JwFjGkPT
a15vgcPZmgZ+eR/Cta5qSYo2flXN7gvK+wAWHyaePtfIgNyaOi/ZgBKNHRB3
bxmnwvf7M2lROWrkLopJJDgxsOf/rFj6D9XgK8sRbSsjJWA6RhiOGoiRvWZg
UD5Jw58fn8usjV8BFFOz2LDzxtij5sgygAQYG/XqeARLDyfyJble6WogjGN6
syS6+CnwqDsilYHLBpNVWUUCUM8keHhGj6G/vT/Vqn5GgyYapqIi4WO/nsSs
jt0MfFe2xbdRpQHC1KuaogUlIIoKvfefFKPs+VSxn5KOLdMPSFvOKcEf30/F
TTiToInl54fYWxRoD3FNrh+Xgbc7+Mcm2a0AjJ9zaTVUvOprk9Tu22owsdx5
+JEZHWoVVbQGBn/8PyS02HuADlfMODaBG1aQ0xdxFihcB/5hs4s7PCJH+eSu
5Mf3iTCx49jmC/YKFCbV17uaR8F7NUa5o90qwMv1SPySqQ8nwqpaCQZK1Nuw
6tLL3ca47vj6lp9cVkDQ4Au/0/FUzI/P2ll7UAsGd14vy/al4qPUy9oZI2pw
r1C4UGqwjORtB6wrQubAv0xQN+A=
     "]]}, {}},
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0., 0.},
  Method->{},
  PlotRange->{{-5.95358482954856, 5.995829988525675}, {-2, 2}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0.2389882963614847, 0.2389882963614847}, {0., 
   0.}}]], "Output",
 CellChangeTimes->{3.5899118573933544`*^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  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],

Cell[CellGroupData[{

Cell["Task: ", "MainSection",
 CellChangeTimes->{{3.663076268905244*^9, 3.6630762744211197`*^9}}],

Cell[TextData[{
 "Let the data set ",
 Cell[BoxData[
  FormBox[
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["x", "i"], ",", 
         SubscriptBox["y", "i"]}], ")"}], ":", " ", "i"}], "=", "1"}], ",", 
     "2", ",", " ", 
     RowBox[{"...", " ", "n"}]}], "}"}], TraditionalForm]]],
 " be given. We look for a function ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["h", 
     SubscriptBox["\[Alpha]", "0"]], "(", "x", ")"}], TraditionalForm]]],
 " from the given family of  functions ",
 Cell[BoxData[
  FormBox[
   StyleBox[
    RowBox[{"H", "=", 
     RowBox[{"{", 
      RowBox[{
       SubscriptBox["h", "\[Alpha]"], "(", "x", ")"}], "}"}]}],
    FontWeight->"Bold"], TraditionalForm]]],
 ", for which the sum of the square of the differences takes the minimum:"
}], "Text",
 CellChangeTimes->{{3.4134708789114227`*^9, 3.4134708804936976`*^9}, {
  3.4134709197201023`*^9, 3.4134709361637473`*^9}, {3.414323759874877*^9, 
  3.4143237637905073`*^9}}],

Cell[TextData[Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"S", "(", "\[Alpha]", ")"}], "=", 
   RowBox[{
    UnderscriptBox[
     OverscriptBox["\[Sum]", "n"], 
     RowBox[{"i", "=", "1"}]], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       SubscriptBox["y", "i"], "-", 
       RowBox[{
        SubscriptBox["h", "\[Alpha]"], "(", 
        SubscriptBox["x", "i"], ")"}]}], ")"}], "2"]}]}], 
  TraditionalForm]]]], "Text",
 CellChangeTimes->{{3.4134708789114227`*^9, 3.4134708804936976`*^9}, {
  3.4134709197201023`*^9, 3.4134709499635906`*^9}},
 TextAlignment->Center,
 TextJustification->0.],

Cell["The method is called  curve fitting by least squares.", "Text",
 CellChangeTimes->{{3.4134708789114227`*^9, 3.4134708804936976`*^9}, {
  3.4134709197201023`*^9, 3.4134709660867743`*^9}},
 TextJustification->1.],

Cell[CellGroupData[{

Cell["Demonstration: Interactive curve fitting", "Section",
 CellChangeTimes->{{3.5629989997576895`*^9, 3.5629990365037537`*^9}, {
  3.5629991816168103`*^9, 3.562999185080016*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"DynamicModule", "[", 
    RowBox[{
     RowBox[{"{", "plt1", "}"}], ",", 
     RowBox[{
      RowBox[{"plt1", "=", 
       RowBox[{"Which", "[", 
        RowBox[{
         RowBox[{"plt", "===", "Plot"}], ",", "ListPlot", ",", 
         RowBox[{"plt", "===", "LogPlot"}], ",", "ListLogPlot", ",", 
         RowBox[{"plt", "===", "LogLogPlot"}], ",", "ListLogLogPlot", ",", 
         RowBox[{"plt", "===", "LogLinearPlot"}], ",", "ListLogLinearPlot"}], 
        "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"Panel", "[", "\[IndentingNewLine]", 
       RowBox[{"Column", "[", "\[IndentingNewLine]", 
        RowBox[{"{", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"Row", "[", "\[IndentingNewLine]", 
           RowBox[{"{", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"Column", "[", 
              RowBox[{
               RowBox[{"{", "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{"Row", "[", 
                  RowBox[{"{", 
                   RowBox[{"Button", "[", 
                    RowBox[{"\"\<Reset\>\"", ",", 
                    RowBox[{
                    RowBox[{"p", "=", 
                    RowBox[{"{", "}"}]}], ";", 
                    RowBox[{"l", "=", 
                    RowBox[{"{", 
                    RowBox[{"{", "}"}], "}"}]}], ";", 
                    RowBox[{"regline", "=", 
                    RowBox[{"{", "}"}]}], ";", 
                    RowBox[{"d1", "=", "1"}], ";", 
                    RowBox[{"d2", "=", "1"}]}], ",", 
                    RowBox[{"ImageSize", "\[Rule]", 
                    RowBox[{"{", "100", "}"}]}]}], "]"}], "}"}], "]"}], ",", 
                 "\[IndentingNewLine]", 
                 RowBox[{"Row", "[", 
                  RowBox[{"{", 
                   RowBox[{"\"\<AcpectRatio: \>\"", ",", 
                    RowBox[{"RadioButtonBar", "[", 
                    RowBox[{
                    RowBox[{"Dynamic", "[", "ratio1", "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Automatic", "\[Rule]", "\"\<Automatic\>\""}], 
                    ",", 
                    RowBox[{
                    RowBox[{"1", "/", "GoldenRatio"}], "->", 
                    "\"\<1/GR\>\""}]}], "}"}]}], "]"}]}], "}"}], "]"}], ",", 
                 "\[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", ",", "d1"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "d2"}], "}"}]}], "}"}]}]}], "]"}], ",", 
                    RowBox[{"PlotRange", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"0", ",", "d1"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "d2"}], "}"}]}], "}"}]}], ",", 
                    RowBox[{"Frame", "\[Rule]", "True"}], ",", 
                    RowBox[{"AspectRatio", "\[Rule]", "ratio1"}], ",", 
                    RowBox[{"ImageSize", "->", 
                    RowBox[{"{", 
                    RowBox[{"300", ",", "300"}], "}"}]}], ",", 
                    RowBox[{"Background", "\[Rule]", "White"}], ",", 
                    RowBox[{"FrameLabel", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"\"\<x\>\"", ",", "\"\<y\>\""}], "}"}]}], ",", 
                    RowBox[{"Axes", "\[Rule]", "None"}]}], "]"}]}], ",", 
                   "\[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", ",", "d1"}], "}"}], ",", 
                    RowBox[{"PlotRange", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"0", ",", "d1"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "d2"}], "}"}]}], "}"}]}]}], "]"}]}]}]}],
                     "\[IndentingNewLine]", "]"}]}], ")"}]}]}], 
                  "\[IndentingNewLine]", "]"}]}], "}"}], ",", 
               RowBox[{"Spacings", "\[Rule]", "1"}]}], "\[IndentingNewLine]", 
              "]"}], ",", 
             RowBox[{"Spacer", "[", "15", "]"}], ",", "\[IndentingNewLine]", 
             RowBox[{"Column", "[", 
              RowBox[{
               RowBox[{"{", "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{"Row", "[", 
                  RowBox[{"{", 
                   RowBox[{"\"\<Plotting: \>\"", ",", 
                    RowBox[{"SetterBar", "[", 
                    RowBox[{
                    RowBox[{"Dynamic", "[", "plt", "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    "Plot", ",", "LogPlot", ",", "LogLogPlot", ",", 
                    "LogLinearPlot"}], "}"}]}], "]"}]}], "}"}], "]"}], ",", 
                 "\[IndentingNewLine]", 
                 RowBox[{"Row", "[", 
                  RowBox[{"{", 
                   RowBox[{"\"\<AcpectRatio: \>\"", ",", 
                    RowBox[{"RadioButtonBar", "[", 
                    RowBox[{
                    RowBox[{"Dynamic", "[", "ratio2", "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Automatic", "\[Rule]", "\"\<Automatic\>\""}], 
                    ",", 
                    RowBox[{
                    RowBox[{"1", "/", "GoldenRatio"}], "->", 
                    "\"\<1/GR\>\""}]}], "}"}]}], "]"}]}], "}"}], "]"}], ",", 
                 "\[IndentingNewLine]", 
                 RowBox[{"Dynamic", "@", 
                  RowBox[{"Show", "[", "\[IndentingNewLine]", 
                   RowBox[{
                    RowBox[{"Which", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"Length", "[", "p", "]"}], "\[GreaterEqual]", 
                    "2"}], ",", 
                    RowBox[{"plt", "[", 
                    RowBox[{
                    RowBox[{"Evaluate", "[", 
                    RowBox[{"regline", "=", 
                    RowBox[{
                    RowBox[{"(", "model", ")"}], "/.", 
                    RowBox[{"FindFit", "[", 
                    RowBox[{"p", ",", "model", ",", 
                    RowBox[{"{", 
                    RowBox[{"a", ",", "b"}], "}"}], ",", 
                    RowBox[{"{", "x", "}"}]}], "]"}]}]}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"x", ",", "0.01", ",", "d1"}], "}"}], ",", 
                    RowBox[{"GridLines", "\[Rule]", "Automatic"}]}], "]"}], 
                    ",", "\[IndentingNewLine]", "True", ",", 
                    RowBox[{"plt", "[", 
                    RowBox[{
                    RowBox[{"{", "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"x", ",", "0.01", ",", "d1"}], "}"}], ",", 
                    RowBox[{"GridLines", "\[Rule]", "Automatic"}]}], "]"}]}], 
                    "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", 
                    RowBox[{"Which", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"Length", "[", "p", "]"}], ">", "0"}], ",", " ", 
                    RowBox[{"plt1", "[", 
                    RowBox[{"p", ",", 
                    RowBox[{"GridLines", "\[Rule]", "Automatic"}]}], "]"}], 
                    ",", "True", ",", 
                    RowBox[{"Graphics", "[", 
                    RowBox[{"{", "}"}], "]"}]}], "]"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"Frame", "\[Rule]", "True"}], ",", 
                    RowBox[{"FrameLabel", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"\"\<x\>\"", ",", "\"\<y\>\""}], "}"}]}], ",", 
                    RowBox[{"ImageSize", "->", 
                    RowBox[{"{", 
                    RowBox[{"300", ",", "300"}], "}"}]}], ",", 
                    RowBox[{"Background", "\[Rule]", "White"}], ",", 
                    RowBox[{"Axes", "\[Rule]", "None"}], ",", 
                    RowBox[{"AspectRatio", "\[Rule]", "ratio2"}], ",", 
                    RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}]}], 
                "\[IndentingNewLine]", "}"}], ",", 
               RowBox[{"Spacings", "\[Rule]", "1"}]}], "\[IndentingNewLine]", 
              "]"}]}], "\[IndentingNewLine]", "}"}], "]"}], ",", 
          "\[IndentingNewLine]", ",", 
          RowBox[{"Row", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"\"\<Fitting curve: \>\"", ",", 
              RowBox[{"TraditionalForm", "[", 
               RowBox[{"Dynamic", "[", "regline", "]"}], "]"}]}], "}"}], ",", 
            RowBox[{"Background", "\[Rule]", "White"}], ",", 
            RowBox[{"FrameMargins", "\[Rule]", "5"}], ",", 
            RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}], 
         "\[IndentingNewLine]", "}"}], "]"}], "\[IndentingNewLine]", 
       "]"}]}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"p", ",", 
       RowBox[{"{", "}"}], ",", "\"\<\>\""}], "}"}], ",", 
     RowBox[{"ControlType", "\[Rule]", "None"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"model", ",", 
       RowBox[{
        RowBox[{"a", " ", "x"}], "+", "b"}], ",", "\"\<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"}]}], "}"}], ",", 
     "SetterBar"}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"d1", ",", "1", ",", "\"\<Data x-range:\>\""}], "}"}], ",", "1",
      ",", "100", ",", "1", ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"d2", ",", "1", ",", "\"\<y-range:\>\""}], "}"}], ",", "1", ",",
      "100", ",", "1", ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"l", ",", 
       RowBox[{"{", 
        RowBox[{"{", "}"}], "}"}]}], "}"}], ",", 
     RowBox[{"ControlType", "\[Rule]", "None"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"regline", ",", 
       RowBox[{"{", "}"}]}], "}"}], ",", 
     RowBox[{"ControlType", "\[Rule]", "None"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"plt", ",", "Plot"}], "}"}], ",", 
     RowBox[{"ControlType", "\[Rule]", "None"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"plt1", ",", "ListPlot"}], "}"}], ",", 
     RowBox[{"ControlType", "\[Rule]", "None"}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"ratio1", ",", "Automatic"}], "}"}], ",", 
     RowBox[{"ControlType", "\[Rule]", "None"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"ratio2", ",", "Automatic"}], "}"}], ",", 
     RowBox[{"ControlType", "\[Rule]", "None"}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Deployed", "\[Rule]", "True"}], ",", 
   RowBox[{"FrameMargins", "\[Rule]", 
    RowBox[{"-", "7"}]}]}], "\[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}, {3.437066652671875*^9, 
   3.437066710578125*^9}, {3.437066750875*^9, 3.43706683109375*^9}, {
   3.437066916*^9, 3.43706692115625*^9}, {3.437066982296875*^9, 
   3.4370670035*^9}, {3.437067146546875*^9, 3.43706731596875*^9}, {
   3.43706742809375*^9, 3.437067531046875*^9}, {3.43706756975*^9, 
   3.4370675724375*^9}, {3.437067644328125*^9, 3.4370676516875*^9}, {
   3.437067723453125*^9, 3.437067768328125*^9}, {3.437067888359375*^9, 
   3.437067906734375*^9}, {3.4370681636875*^9, 3.43706825115625*^9}, {
   3.437068581046875*^9, 3.437068660578125*^9}, {3.437068717390625*^9, 
   3.437068852765625*^9}, {3.437069040078125*^9, 3.437069052359375*^9}, {
   3.437069176765625*^9, 3.4370691804375*^9}, 3.43706932415625*^9, {
   3.437069385296875*^9, 3.437069406828125*^9}, {3.4370695775625*^9, 
   3.437069625328125*^9}, {3.437069688796875*^9, 3.437069736453125*^9}, {
   3.437069779875*^9, 3.437069797609375*^9}, 3.437069837859375*^9, {
   3.437070005484375*^9, 3.437070023921875*^9}, {3.437070058171875*^9, 
   3.437070068*^9}, {3.43707010825*^9, 3.437070179203125*^9}, {
   3.437070346234375*^9, 3.43707035703125*^9}, {3.437070399609375*^9, 
   3.437070422953125*^9}, {3.4370705561875*^9, 3.437070556640625*^9}, {
   3.437070651140625*^9, 3.437070656328125*^9}, {3.437070729203125*^9, 
   3.437070734890625*^9}, 3.437070776515625*^9, 3.437070843375*^9, {
   3.437070906109375*^9, 3.437070964046875*^9}, {3.43707114921875*^9, 
   3.43707116240625*^9}, {3.437071480421875*^9, 3.4370717123125*^9}, {
   3.43707180925*^9, 3.437071836703125*^9}, {3.437071909375*^9, 
   3.437071958921875*^9}, {3.437072020171875*^9, 3.4370720655625*^9}, {
   3.4370721514375*^9, 3.43707215521875*^9}, {3.43707219721875*^9, 
   3.437072224734375*^9}, {3.4370723083125*^9, 3.43707237753125*^9}, 
   3.437072928140625*^9, {3.437073222828125*^9, 3.437073233609375*^9}, {
   3.43707330534375*^9, 3.437073306828125*^9}, {3.437073349328125*^9, 
   3.437073349828125*^9}, {3.43707341575*^9, 3.43707343275*^9}, {
   3.437073472453125*^9, 3.437073484515625*^9}, {3.437073531234375*^9, 
   3.437073562296875*^9}, {3.437073602796875*^9, 3.437073616625*^9}, {
   3.437073679515625*^9, 3.437073682203125*^9}, {3.437073886328125*^9, 
   3.437073901984375*^9}, {3.437074004171875*^9, 3.4370740049375*^9}, {
   3.43707417603125*^9, 3.43707421421875*^9}, {3.4370743181875*^9, 
   3.437074319484375*^9}, {3.43707449734375*^9, 3.43707451890625*^9}, {
   3.43707490753125*^9, 3.437074907921875*^9}, 3.43707510725*^9, 
   3.4370751719375*^9, {3.437075243875*^9, 3.437075248203125*^9}, {
   3.4370753131875*^9, 3.43707533359375*^9}, {3.43707649721875*^9, 
   3.437076540203125*^9}, {3.43707657284375*^9, 3.437076778828125*^9}, {
   3.43707694625*^9, 3.437076969046875*^9}, {3.437077027390625*^9, 
   3.4370770455625*^9}, {3.43707711696875*^9, 3.437077118890625*^9}, {
   3.43710553115625*^9, 3.437105531796875*^9}, {3.437105741203125*^9, 
   3.437105741796875*^9}, {3.43710586265625*^9, 3.437105872671875*^9}, 
   3.437105903265625*^9, {3.437106556390625*^9, 3.437106557875*^9}, {
   3.437106652*^9, 3.43710665246875*^9}, {3.437106693234375*^9, 
   3.437106694234375*^9}, {3.437106843078125*^9, 3.437106849625*^9}, {
   3.437106914328125*^9, 3.437106988875*^9}, {3.437107290078125*^9, 
   3.437107315984375*^9}, {3.437107933984375*^9, 3.43710793534375*^9}, {
   3.437107993171875*^9, 3.437107999203125*^9}, {3.437108180453125*^9, 
   3.437108206875*^9}, {3.437108347265625*^9, 3.43710835065625*^9}, {
   3.6648937912702045`*^9, 3.6648937923015156`*^9}},
 CellID->10978248],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`d1$$ = 1, $CellContext`d2$$ = 
    1, $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`d1$$}, 
      PlotRange -> {{0, $CellContext`d1$$}, {
        0, $CellContext`d2$$}}]], $CellContext`model$$ = 
    E^($CellContext`b + $CellContext`a $CellContext`x), $CellContext`p$$ = \
CompressedData["
1:eJxTTMoPSmViYGCQAGIQfYLngb/F5/n2ednF8ROnvLHnyH9l+nPCVvs0pl99
s/4+tRe89sLyveZx+zON1q+N657YX85/sUtnwnF7jVl1ztdTH9p/WfBWlzf+
kv3DM/UH5Iwf2Atdyc19p33JvjAVZMBd+zs3EruV1e/Z15zgSm02v2ovZZ/E
9ezAXXsF/a5l9y9cte9aksJSGn3b3ut4r+w2i0v2FkWPPI/33rXfcBzksMv2
agver7gZ/8A+bjJ/5MKcC/a9C0AufQjnX3m3KkRH8Kn9J0XtKbz3jthHKq0K
W373qf2W3Vqi3i5H7VWXPHW8Hf3K/s6VbKCSLfYnuhe9NC95a5+Tn/lj0oRt
9iDVoStf2JdcS//TobnD/sWe5TESzi/sWcAe2GV/YOHrTQ5xV+yPTOV8YZ11
zV4AHB7X7d/od2gLX7hu/2lRxi/e2Ov2E6ax5+Zn3rDfv/Sht1PUOfuz/5p2
GDHetV91/YlzmMZu+3/M32Yw/nlpnwcMnUmTNtqfbt623aTmpT0A25/Gew==

    "], $CellContext`plt$$ = LogPlot, $CellContext`plt1$$ = 
    ListPlot, $CellContext`ratio1$$ = Automatic, $CellContext`ratio2$$ = 
    Automatic, $CellContext`regline$$ = 
    E^(-0.04618104753044438 - 2.6015256864951506` $CellContext`x), 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`p$$], {}, ""}}, {{
       Hold[$CellContext`model$$], $CellContext`b + $CellContext`a \
$CellContext`x, "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]}}, {{
       Hold[$CellContext`d1$$], 1, "Data x-range:"}, 1, 100, 1}, {{
       Hold[$CellContext`d2$$], 1, "y-range:"}, 1, 100, 1}, {{
       Hold[$CellContext`l$$], {{}}}}, {{
       Hold[$CellContext`regline$$], {}}}, {{
       Hold[$CellContext`plt$$], Plot}}, {{
       Hold[$CellContext`plt1$$], ListPlot}}, {{
       Hold[$CellContext`ratio1$$], Automatic}}, {{
       Hold[$CellContext`ratio2$$], Automatic}}}, Typeset`size$$ = {
    792., {270., 279.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`model$2333$$ = 
    0, $CellContext`d1$2338$$ = 0, $CellContext`d2$2339$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`d1$$ = 1, $CellContext`d2$$ = 
        1, $CellContext`l$$ = {{}}, $CellContext`model$$ = $CellContext`b + \
$CellContext`a $CellContext`x, $CellContext`p$$ = {}, $CellContext`plt$$ = 
        Plot, $CellContext`plt1$$ = ListPlot, $CellContext`ratio1$$ = 
        Automatic, $CellContext`ratio2$$ = 
        Automatic, $CellContext`regline$$ = {}}, "ControllerVariables" :> {
        Hold[$CellContext`model$$, $CellContext`model$2333$$, 0], 
        Hold[$CellContext`d1$$, $CellContext`d1$2338$$, 0], 
        Hold[$CellContext`d2$$, $CellContext`d2$2339$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      DynamicModule[{$CellContext`plt1$$}, $CellContext`plt1$$ = 
         Which[$CellContext`plt$$ === Plot, ListPlot, $CellContext`plt$$ === 
           LogPlot, ListLogPlot, $CellContext`plt$$ === LogLogPlot, 
           ListLogLogPlot, $CellContext`plt$$ === LogLinearPlot, 
           ListLogLinearPlot]; Panel[
          Column[{
            Row[{
              Column[{
                Row[{
                  Button[
                  "Reset", $CellContext`p$$ = {}; $CellContext`l$$ = {{}}; \
$CellContext`regline$$ = {}; $CellContext`d1$$ = 1; $CellContext`d2$$ = 1, 
                   ImageSize -> {100}]}], 
                Row[{"AcpectRatio: ", 
                  RadioButtonBar[
                   Dynamic[$CellContext`ratio1$$], {
                   Automatic -> "Automatic", 1/GoldenRatio -> "1/GR"}]}], 
                EventHandler[
                 Dynamic[
                  Show[
                   Part[$CellContext`l$$, 1], 
                   Graphics[{
                    Point[$CellContext`p$$]}, 
                    PlotRange -> {{0, $CellContext`d1$$}, {
                    0, $CellContext`d2$$}}], 
                   PlotRange -> {{0, $CellContext`d1$$}, {
                    0, $CellContext`d2$$}}, Frame -> True, 
                   AspectRatio -> $CellContext`ratio1$$, 
                   ImageSize -> {300, 300}, Background -> White, 
                   FrameLabel -> {"x", "y"}, Axes -> None]], 
                 "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`d1$$}, 
                    PlotRange -> {{0, $CellContext`d1$$}, {
                    0, $CellContext`d2$$}}]]])]}, Spacings -> 1], 
              Spacer[15], 
              Column[{
                Row[{"Plotting: ", 
                  SetterBar[
                   Dynamic[$CellContext`plt$$], {
                   Plot, LogPlot, LogLogPlot, LogLinearPlot}]}], 
                Row[{"AcpectRatio: ", 
                  RadioButtonBar[
                   Dynamic[$CellContext`ratio2$$], {
                   Automatic -> "Automatic", 1/GoldenRatio -> "1/GR"}]}], 
                Dynamic[
                 Show[
                  Which[Length[$CellContext`p$$] >= 2, 
                   $CellContext`plt$$[
                    
                    Evaluate[$CellContext`regline$$ = 
                    ReplaceAll[$CellContext`model$$, 
                    
                    FindFit[$CellContext`p$$, $CellContext`model$$, \
{$CellContext`a, $CellContext`b}, {$CellContext`x}]]], {$CellContext`x, 
                    0.01, $CellContext`d1$$}, GridLines -> Automatic], True, 
                   $CellContext`plt$$[{}, {$CellContext`x, 
                    0.01, $CellContext`d1$$}, GridLines -> Automatic]], 
                  Which[Length[$CellContext`p$$] > 0, 
                   $CellContext`plt1$$[$CellContext`p$$, GridLines -> 
                    Automatic], True, 
                   Graphics[{}]], Frame -> True, FrameLabel -> {"x", "y"}, 
                  ImageSize -> {300, 300}, Background -> White, Axes -> None, 
                  AspectRatio -> $CellContext`ratio2$$, PlotRange -> All]]}, 
               Spacings -> 1]}], Null, 
            Row[{"Fitting curve: ", 
              TraditionalForm[
               Dynamic[$CellContext`regline$$]]}, Background -> White, 
             FrameMargins -> 5, Frame -> True]}]]], 
      "Specifications" :> {{{$CellContext`p$$, {}, ""}, ControlType -> 
         None}, {{$CellContext`model$$, $CellContext`b + $CellContext`a \
$CellContext`x, "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]}, ControlType -> 
         SetterBar}, {{$CellContext`d1$$, 1, "Data x-range:"}, 1, 100, 1, 
         Appearance -> "Labeled"}, {{$CellContext`d2$$, 1, "y-range:"}, 1, 
         100, 1, Appearance -> "Labeled"}, {{$CellContext`l$$, {{}}}, 
         ControlType -> None}, {{$CellContext`regline$$, {}}, ControlType -> 
         None}, {{$CellContext`plt$$, Plot}, ControlType -> 
         None}, {{$CellContext`plt1$$, ListPlot}, ControlType -> 
         None}, {{$CellContext`ratio1$$, Automatic}, ControlType -> 
         None}, {{$CellContext`ratio2$$, Automatic}, ControlType -> None}}, 
      "Options" :> {Deployed -> True, FrameMargins -> -7}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{815., {343., 354.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.664893714438651*^9, 3.6648938643833485`*^9}]
}, {2}]]
}, Open  ]],

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  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],

Cell[CellGroupData[{

Cell["Simple fitting", "MainSection"],

Cell[TextData[{
 "The data set is given in the list variable",
 StyleBox[" ",
  FontSlant->"Italic"],
 StyleBox["data",
  FontFamily->"Courier"],
 ". The family ",
 Cell[BoxData[
  FormBox[
   StyleBox[
    RowBox[{"H", "=", 
     RowBox[{"{", 
      RowBox[{
       SubscriptBox["h", "\[Alpha]"], "(", "x", ")"}], "}"}]}],
    FontWeight->"Bold"], TraditionalForm]]],
 " is given as a linear combination:"
}], "Text",
 CellChangeTimes->{{3.4134712350735583`*^9, 3.413471238848987*^9}, {
  3.413472778352685*^9, 3.413472781056573*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    SubscriptBox["h", "\[Alpha]"], "(", "x", ")"}], "=", " ", 
   FormBox[
    RowBox[{
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"i", "=", "0"}], "n"], 
     RowBox[{
      SubscriptBox["a", "i"], 
      RowBox[{
       SubscriptBox["f", "i"], "(", "x", ")"}]}]}],
    TraditionalForm]}], TraditionalForm]], "Text",
 TextAlignment->Center,
 TextJustification->0],

Cell[CellGroupData[{

Cell[TextData[StyleBox[" Run it!",
 FontSlant->"Italic"]], "Math-Init",
 CellChangeTimes->{{3.41347125590351*^9, 3.413471257595944*^9}},
 FontColor->RGBColor[1, 0, 0]],

Cell["The function that calculates the sum of squares.", "Text"],

Cell[BoxData[
 RowBox[{
  RowBox[{"S", "[", 
   RowBox[{"ff_", ",", "data_List"}], "]"}], ":=", 
  RowBox[{"Plus", "@@", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"ff", "/.", 
              RowBox[{"x", "\[Rule]", 
               RowBox[{
               "#1", "\[LeftDoubleBracket]", "1", 
                "\[RightDoubleBracket]"}]}]}], ")"}], "-", 
            RowBox[{
            "#1", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], 
           ")"}], "2"], "&"}], ")"}], "/@", "#1"}], "&"}], ")"}], "[", "data",
     "]"}]}]}]], "Input"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"LogData", "[", "data_List", "]"}], ":=", 
   RowBox[{"data", "/.", "\[InvisibleSpace]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x_", ",", "y_"}], "}"}], "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"Log", "[", 
        RowBox[{"10", ",", "y"}], "]"}]}], "}"}]}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"LogLinearData", "[", "data_List", "]"}], ":=", 
   RowBox[{"data", "/.", "\[InvisibleSpace]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x_", ",", "y_"}], "}"}], "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Log", "[", 
        RowBox[{"10", ",", "x"}], "]"}], ",", "y"}], "}"}]}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"LogLogData", "[", "data_List", "]"}], ":=", 
   RowBox[{"data", "/.", "\[InvisibleSpace]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x_", ",", "y_"}], "}"}], "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Log", "[", 
        RowBox[{"10", ",", "x"}], "]"}], ",", 
       RowBox[{"Log", "[", 
        RowBox[{"10", ",", "y"}], "]"}]}], "}"}]}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"ExpData", "[", "data_List", "]"}], ":=", 
   RowBox[{"data", "/.", "\[InvisibleSpace]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x_", ",", "y_"}], "}"}], "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       SuperscriptBox["10", "y"]}], "}"}]}]}]}], ";"}]}], "Input"]
}, Closed]],

Cell[CellGroupData[{

Cell["A basic example ", "Section"],

Cell[TextData[{
 "Find good fitting functions to the following given data set. Check the \
goodness of the fitting by calculating the sum of the squares (the function ",
 StyleBox["S[ff,data]",
  FontFamily->"Courier"],
 "). For more precise statistical evaluation, see the ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " package ",
 StyleBox["Statistics",
  FontFamily->"Courier"],
 "."
}], "Text",
 CellChangeTimes->{3.4134712721969395`*^9},
 TextAlignment->Left,
 TextJustification->1],

Cell[CellGroupData[{

Cell["The data set", "Th-Env"],

Cell["\<\
data=
{{0, 0.057}, {0.1, 0.14}, {0.2, 0.27},{0.3, 0.21},
{0.4, 0.39},{0.5, 0.43},{0.6, 0.60}, {0.7, 0.56},
{0.8, 0.63},{0.9, 0.70}, {1., 0.875}, {1.1,0.85}, 
{1.2, 1.014}, {1.3, 0.91}, {1.4, 1.06},{1.5,0.93},
{1.6, 1.04}, {1.7, 0.94}, {1.8, 0.99},{1.9, 1.01},
{2., 0.91},{2.1, 0.81}, {2.2, 0.77}, {2.3, 0.74}, 
{2.4, 0.72}, {2.5, 0.60}, {2.6, 0.51},{2.7, 0.40}, 
{2.8, 0.27}, {2.9, 0.19},{3.0, 0.2}, {3.1, -0.06}};\
\>", "Input"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Plot the data", "Th-Env"],

Cell[CellGroupData[{

Cell["pltd=ListPlot[data]", "Input",
 CellChangeTimes->{3.399489752339723*^9}],

Cell[BoxData[
 GraphicsBox[
  {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGBQAGIQDQMny/bNl9Jfaz9rJgjstH8TuEOu9fVBKP+kvcfD
KpF17hftjcHgsj2Y+/AUVP6m/TeNmP5DX2/YQ0x7YN/6GmTAbaj6x3A6DQye
Qc1/CNX/0l4TpF3jif3ZMyDwBq4OYt4HKP0Gqv4j1LzXUPqz/WXfJIEIyw9Q
/V/s5cEOeAs15xvUfTBzftgf/goSeAs176f9kgJbruuLP0DN+20P8l2VyDuo
eX/swdx176Hm/YO6F2YegwPMPoh6BgeI/15CzWd0gJj/AqqfyQFi3nOofcwO
QEmgiudQ81gcYOEFMY/FIQhkXOADqHmsDrBwh5jH5oAaP+xQ9Seg5nE4wOIR
Yh6HA1h6x7r9AJZU5Cw=
    "]]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  PlotRange->Automatic,
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{3.39948975322099*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
 Find the fitting family of functions and perform the fitting\
\>", "Th-Env"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fitf", "=", 
  RowBox[{"Fit", "[", 
   RowBox[{"data", ",", 
    RowBox[{"{", 
     RowBox[{"1", ",", "x", ",", 
      SuperscriptBox["x", "2"]}], "}"}], ",", "x"}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "0.04235427807486632`"}], "+", 
  RowBox[{"1.296166767293428`", " ", "x"}], "-", 
  RowBox[{"0.4154045195790925`", " ", 
   SuperscriptBox["x", "2"]}]}]], "Output",
 CellChangeTimes->{3.3994897574871244`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"pltf", "=", 
  RowBox[{"Plot", "[", 
   RowBox[{"fitf", ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "0", ",", "3.2"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{3.3994897631953325`*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV13k4VF0YAPCxhhAlwteiKCUURaW8I6ko8ilrQqVky5KlRPUlFUkkCUm2
dmuWsk1NKTvZIvs+lrnCLPfODL7jr3l+zzl3znPOPe9ylc55WVzgJ5FIknwk
0tJv2sRnv/p7PvrnX+8f883JpLjxr/6SL2MOhh0Xv3wTyaSw1gTlPpJxghdb
E65onsug7M/4oHpDxhuq1WUvWa9Op/SNVzr7y9yC6VKf8PHgl5S8yGZ+H5lo
oPeeOa2e9pSi0Nvx67LMS/iuq/j9SKcTpUHY/rOnTC68NNdtGFBNB5kBU9uH
X79A0OhYc15lBfhoJQ0JjVTB44bgh5S2Kljn94De6NUE6eofW9R/NwHH5+zi
h2+toB7UsvaVSxtkb5Vck1TfATvOfk1c8OkEa8GWw/IaPXCtfJlvaVwPJN2X
k5Up74eZ03frFAr6gT25Q1y5YhDmEr921DsNQoOTlUTwxDC8lNZ9f3PVMMRo
jcV0z4yCXU3obU7kCHgnf/MRmqbBu+Yp+aDhUaiR/2AfIDcJkvyqIV56NJCa
W6yZVqDDwXzOn3uO4/Crx/FQnvE0HBqaHy8KmYDfuWGRa4v/An0lLagncBL2
K8V8Gi2agTsdyaZvjKbgTOLGiZN1s/AgumhTlzAdeEXTOY5Ns8D8/feEjygd
ElvK/N1bZ+GpCLNKSJwO7eLWfKHds3BT5XTqVmk6mN98sCZ/ahZIZi8m7RXp
YOjMOCwlMQcvbUmjPpp02KrxI73OdA6cTmv7WlrRgfnV9YxR4xz8FbGk8afQ
oYh1/OPrljnwSgz3tUulw1W1HaJiHXMw40uZz0mnA+cJq6Chfw5wXEPO8g0d
SJdCxW1m50Dedq3VvTw6iEkml7qtZsAbV13ByG902GDXJB99mgHcWicl2VE6
DEZ99Jp1ZED2gYpadRod0r89rTzlzIBzrH8CDSfosFn9jI+8JwN+7e9tuoTR
QY00UZV2gwGUtd7RSSw66LwSuFqYyoBJzV+QKozBsVmd9j9jDAiKu++oroKB
fkVTmeoUA9zzHsfzNmOgFeGWHvCXAV5HJYeqVTFQ2PjCeyXBgIwx2wKH7RjQ
/hVabiLGhPqJg2QfbQzu5LXA5+1MWC9oP7/XAIMyb++38T5MKL/9TtzuNAa5
+8WiR/yZkEsazp+0xyBdJCNAO4gJOUSUx3UHDCJe/jZsvM2EIfu9CnFnMbBp
0u8VfsIEEVqfQ54LBkxNiVUBRUw4Je338OEVDDSm3waf4jKhP+fTzdZwDLpj
TPxsFpngL7m2WfoBBuG7Jt3tBVhgptUaaBqJwfC17aedl7OgpnpfOSUKgwTB
nL1+iixg6o5rRsdiIKhQwIrVY4G4dG1B/3MM/hyq8G65zgJyUdp+cjYG98cc
Lv2+yQKrckfiSA4GuyMWHbtCWZAd7iVqlotBdCP5xNADFmj43ttkmY+Bkd03
9bkkFpy5/QxOFKH9e1VNrCxjQUgKyM2VY3A3sdnZgscCSl3qIaIWAyvL8KkP
JDYMMn3Feuow2CJF9lsmxIaWeLuOinoMqsKyQssk2LDpsGdkcCMGoj730zav
Z8PV4y8t+5sxiDyi388xYMPi4n4P404M7PmZLpaH2SBT5P9R4g8G28vfT+eY
sIEY/s7fhFyvJb/ofJINO7NefTbrxkByHWNtozMbLMcC7+/qwyCG8fZ0+j02
BPL/+y51GINzOU5D8w/YcMtoxvfwCLofbnLuNtFssOF7YziO3Nx3J0gigQ3+
QzbzqmMYyNQ6JgS+Y4Prv1W/osfR+YfJKjVns2Hc7p8ulQkMCsj1b7Z/ZINe
z92pT8iWRfs+DZSy4cTxlC2dkxg8TV39+1g9G7a09izwYRhctK9zePWLDRsz
Ro7eQ9aVCx0ltbMBmxJIEpvGoCPyL7Owlw0MWqj18r8YyF+tldnwlw0fI2J2
MmcweG72nwVjJQ5S/kOubkwMNvfrTwrK4eDZBXeqkXN9eKGrFXHgMizHNrMw
qHwSWKizCYd3Bjn3upGxP55rrmnjcNJAdqc2jsFVD7W8cF0cdAzIMXeQ+Rdo
xol6OJgwNu1rRZZVcr5eaoiDsN+ai5cJDMDFrnf+JA6VnYWbozgY1OBygZI2
OGheyar7hXwqom3FenscqikOpau4GFzKMjcgO+MQ44v5Pkae1Zf8Y34Jh/KO
Or1G5OCmWt+zHjgozDqbivHQ/Zs7nHHbDwdXfarJdWSFMMEDsVdxsPG5p5OH
nCFLbUsPxuGqtbD7CPLnvQeWVd7BwezAzuyj8xgM3tR2WxaHwwEvvWQOsof0
DP+aBBzy9RoaNi5gwErLTlJNxsG2VMHYGHn5j631xpk47G3tl4tBfmo9dsHu
LQ6+nnYe+cgbxjMW3LJw+PP5oWgz8i7xDTsiC3Ew8FBaJ76IQUVyT9Xzzzjs
b/4vbjPyUc2ks1nlOLhPJlkCcvMXG075Vxx+Fns5WCHbW8jGNlSi89edz3FH
Hh1qUeurxkHW7ZDJTWRv/5jv0/U4CJobqccgc4RPnCE147BxfNEmFTnsmThL
qh2HK7v96nOQpbbVRCn9wYG9Ky2iDDmx9N4WrV4c3o+FR/9EVjY1+nJwEIeH
pmp9TcjZvfy2J0dxSLl4N6ADeY/3l5nzEziMayVZ9SJT+W5E+GE4nMl3vTmI
fDxWb1PYLA58IzN/h5HblYnSOBYOXTXa70eQnYqKTr3i4DBwXjN7aXziiB+9
aAEHxdxhYgDZr3Pn3Z/8BITlnIzqQV50m17XIUzA+nPB7r+RI3gfimliBEz+
dIhpRJaJcjMnJAkY6ecsViK/WK86LrqKAOks8+ISZNW8kf8U5Ajw2e5UnIU8
3Gn7XlaRgJBzDmYpyKn8Da0r1xPg9VgNHiE7qB1ckNxEgGHZz/AQZIVTRVuW
byGA6NPScFvaT/C2f5epERA777HdEvlx5osgAU0CJFYH3NFHXs6+W8/VISBn
J9Ng6X1Xreey2PsIaNNxf/0X3Yc7R702MPQJ6Nmde7EFmZdgfWXqMAFxSq9n
Y5E/UWuf00zQ+pK2FB9k/0n4MWxGQCejc8QUGduvKt9jRcDbnKNkPuR3F54f
7LRD+w/V8etA99clSsqjzYEAIYs5vmzk/j68ov4iAfSuzm2nkJ+LeNKq3Qj4
GC/wQxnZdueA9I/LBJw15ZXMofhovl3tXBFAgOMru/xI5Kj3B6JKgtB84y8F
VsjHWvOKi26g8x9lSK1H/q6SKJZzlwC+FbXt71B8Fla55aY8JeDXarVn2Si+
fWd6O5MSCThwX8TVHVlD4aTAsxcEhDMKYjcjv3LXs4p+RUBjSRArHuWLZ5Li
vFtFBHDnP89cRPnklO4tlZAS9L5gRYwssrQTw+xaBdpvkHbEdza6D3ndqT4/
CLDto4UrIgefyjpyrp2AIYdllEKU3/aEKPk4/EHPe7Vut0FmZsYl2vWi/7/m
zcAZGFxmh9AtRglICF4dsxvZMdEs1pBFwL09q0hJsxgc7J/uVZblwEhET4Es
yrcblYKeBSpwgKLteeMJysd85wQtatZxoLpP0VoK+cvQmkqvLRzwMmjfzU/H
4MCYwfuSPRzgU6O8aUD5fg8WG2h+mgO68WedxUYxWKO5bme6Iwfkrgysd0X1
hO31ZoJ5ngNbLW5NVKL6UzRTdibJgwNd8opZ14Yw0GaOGI6GcCC88ftYdT86
T56uVPBLDtBbaFoSXaieHaBWN2RwoG3Qpv84qnf0kOOhSm85MMkYex6B6uOH
RSfWjzwOvN143pDUgcFWgYhu6W8c8MyoN2ptRfEv1v3m9QgHBAyubFjfgOrJ
mlsGLdu4ENhLUidTMMjXlBbv1uCieipRb1GB4v1IWvuwFhdqj18oO4/q+42A
7+6sfVywJc/dv1WK8muryFP5Y1xQL37QmVmM1o+JmXB058LboWybFNRPkJen
x06958KAbkWD6QsMOjfucmDmcMHwkpzNtmR0f/ZVqi58ROsRJTuEUH+S6TpW
vqKMC8YGA42FCRiIVanRtOq4kOL4rpI/DoPWOwX7r01xYVOXxqNjqB9yWagc
EVLngUs9KfFZANqfhif5wk4enK1+zb/RH8XHGZmk77t50LdO2Ost6q9sys+Z
h+rzwL2dZpHvjfJz8GIJyZwHqYGHj3xww2AbZ08015cH6bfPDZJR/0Znvt83
84kHoqVrB6cMUTyqnIwzL0fPj+V81TmI6rclZzrnKw/+9SQybpAx6C04mnm5
hgeZYfkBIgcwaLgysmKqiweetLLDgjqoHs+sGxld4EFSgFbC8y0YXKHHPOo+
NA9nCl8uMxdF/UjBdNAW43lIltB8cH4ZBubXTS/6ms6DwPEOZX8h1O+Iih4Q
sZoHw+vXEx/zoXqhfGtC22Ue/ksXfFRE0MHO/rLRg/B5GFHYmJw2TgdyrQl3
bwMazww3XV5FB/G3Ai7x1gsws3X54rqbdCg4fOn8s9MLkNpodnUgmA72w3WO
CY4LcLLH6UhaEB2y1j+1SXJZgOIdf0fXBdDB7KmqSUrgAjwoLlUT9KRDdKip
+uv4BbA2Eq67YUeHVQ7xc0W/FyD2rKvLrl10UFildqvdehHinruIpg5OwdxB
j8ZuHRJZiXHsepPCFDxpSb4Z/YlEvkYiKwsdmoRgk7TDRbp85DnhfSlMqwn4
Vukqlf2Vj/y+Sd1SfM84GK0R57oc5Ccv5xUE3JKigYqXD22unp/8sYmtWZ43
CuTkPJaBuQB5LuXjiSzTEUjL+67I3yRArlWwIHW2DcH5mkTDJ3aC5KGNOYH6
GwbBseRYJK1LkOy1uIwocu+HkmzKb8lLQuRHGm6NYrRusA8X3vd6Roh8j66Y
T0LfkXv1VMv5fIXJjYX5j7d9bQW/GXFDjXlh8oqv243ilZpg4kbd+D83l5Gj
iv+xrdD8Ca9nHV6HLCwj6xlrrd1HKYVvbgUuufdFyB71tYZVlxNBoWT4aKao
KLkmVTxBifue0iTRsd0jTpScn6qSFJlGpTgLXhoMRrZoT7iAp1MpOIcd/xB5
ltWz0zmTSlGiyQnkIGtx2xr13lApvlTrzpmlcakwpcksKkUm8HdY4FNR8kqf
PkWTz1SKTX977+14NF8gzEO0iUqZar/4JBbZIpfl7f+LSrlVzzLOQF5pvCdw
oJlKeVsiW1i5NF9fLfxzG5XCeWL1QOQZmr+7ieraRaU8N27XjUKetZZ9WDNK
pewgX6S/WBr/ejdbh0alfNdhpeUsWfbnr7RxKoW+SVbyF3J+aPHa61NUiv6C
5fCqBFHyY3frWrVZKqWZMZKgjDyrdYQbP0elXJz0P7F7ySPC6oJMKuVRR1yJ
1dL8Fay4bjaVotyo4u2yNB6mUn+UoFI+VRaqXEVeSVMWLuRQKcfLjLruI2vp
MMhKPCqlP78tOgG52Ss25OE8lfI/078MRw==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 3.2}, {-0.14836281425129855`, 0.9687374442858884}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.399489764407075*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"pltd", ",", "pltf"}], "]"}]], "Input",
 CellChangeTimes->{3.399489767251165*^9}],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGBQAGIQDQMny/bNl9Jfaz9rJgjstH8TuEOu9fVBKP+kvcfD
KpF17hftjcHgsj2Y+/AUVP6m/TeNmP5DX2/YQ0x7YN/6GmTAbaj6x3A6DQye
Qc1/CNX/0l4TpF3jif3ZMyDwBq4OYt4HKP0Gqv4j1LzXUPqz/WXfJIEIyw9Q
/V/s5cEOeAs15xvUfTBzftgf/goSeAs176f9kgJbruuLP0DN+20P8l2VyDuo
eX/swdx176Hm/YO6F2YegwPMPoh6BgeI/15CzWd0gJj/AqqfyQFi3nOofcwO
QEmgiudQ81gcYOEFMY/FIQhkXOADqHmsDrBwh5jH5oAaP+xQ9Seg5nE4wOIR
Yh6HA1h6x7r9AJZU5Cw=
     "]]}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV13k4VF0YAPCxhhAlwteiKCUURaW8I6ko8ilrQqVky5KlRPUlFUkkCUm2
dmuWsk1NKTvZIvs+lrnCLPfODL7jr3l+zzl3znPOPe9ylc55WVzgJ5FIknwk
0tJv2sRnv/p7PvrnX+8f883JpLjxr/6SL2MOhh0Xv3wTyaSw1gTlPpJxghdb
E65onsug7M/4oHpDxhuq1WUvWa9Op/SNVzr7y9yC6VKf8PHgl5S8yGZ+H5lo
oPeeOa2e9pSi0Nvx67LMS/iuq/j9SKcTpUHY/rOnTC68NNdtGFBNB5kBU9uH
X79A0OhYc15lBfhoJQ0JjVTB44bgh5S2Kljn94De6NUE6eofW9R/NwHH5+zi
h2+toB7UsvaVSxtkb5Vck1TfATvOfk1c8OkEa8GWw/IaPXCtfJlvaVwPJN2X
k5Up74eZ03frFAr6gT25Q1y5YhDmEr921DsNQoOTlUTwxDC8lNZ9f3PVMMRo
jcV0z4yCXU3obU7kCHgnf/MRmqbBu+Yp+aDhUaiR/2AfIDcJkvyqIV56NJCa
W6yZVqDDwXzOn3uO4/Crx/FQnvE0HBqaHy8KmYDfuWGRa4v/An0lLagncBL2
K8V8Gi2agTsdyaZvjKbgTOLGiZN1s/AgumhTlzAdeEXTOY5Ns8D8/feEjygd
ElvK/N1bZ+GpCLNKSJwO7eLWfKHds3BT5XTqVmk6mN98sCZ/ahZIZi8m7RXp
YOjMOCwlMQcvbUmjPpp02KrxI73OdA6cTmv7WlrRgfnV9YxR4xz8FbGk8afQ
oYh1/OPrljnwSgz3tUulw1W1HaJiHXMw40uZz0mnA+cJq6Chfw5wXEPO8g0d
SJdCxW1m50Dedq3VvTw6iEkml7qtZsAbV13ByG902GDXJB99mgHcWicl2VE6
DEZ99Jp1ZED2gYpadRod0r89rTzlzIBzrH8CDSfosFn9jI+8JwN+7e9tuoTR
QY00UZV2gwGUtd7RSSw66LwSuFqYyoBJzV+QKozBsVmd9j9jDAiKu++oroKB
fkVTmeoUA9zzHsfzNmOgFeGWHvCXAV5HJYeqVTFQ2PjCeyXBgIwx2wKH7RjQ
/hVabiLGhPqJg2QfbQzu5LXA5+1MWC9oP7/XAIMyb++38T5MKL/9TtzuNAa5
+8WiR/yZkEsazp+0xyBdJCNAO4gJOUSUx3UHDCJe/jZsvM2EIfu9CnFnMbBp
0u8VfsIEEVqfQ54LBkxNiVUBRUw4Je338OEVDDSm3waf4jKhP+fTzdZwDLpj
TPxsFpngL7m2WfoBBuG7Jt3tBVhgptUaaBqJwfC17aedl7OgpnpfOSUKgwTB
nL1+iixg6o5rRsdiIKhQwIrVY4G4dG1B/3MM/hyq8G65zgJyUdp+cjYG98cc
Lv2+yQKrckfiSA4GuyMWHbtCWZAd7iVqlotBdCP5xNADFmj43ttkmY+Bkd03
9bkkFpy5/QxOFKH9e1VNrCxjQUgKyM2VY3A3sdnZgscCSl3qIaIWAyvL8KkP
JDYMMn3Feuow2CJF9lsmxIaWeLuOinoMqsKyQssk2LDpsGdkcCMGoj730zav
Z8PV4y8t+5sxiDyi388xYMPi4n4P404M7PmZLpaH2SBT5P9R4g8G28vfT+eY
sIEY/s7fhFyvJb/ofJINO7NefTbrxkByHWNtozMbLMcC7+/qwyCG8fZ0+j02
BPL/+y51GINzOU5D8w/YcMtoxvfwCLofbnLuNtFssOF7YziO3Nx3J0gigQ3+
QzbzqmMYyNQ6JgS+Y4Prv1W/osfR+YfJKjVns2Hc7p8ulQkMCsj1b7Z/ZINe
z92pT8iWRfs+DZSy4cTxlC2dkxg8TV39+1g9G7a09izwYRhctK9zePWLDRsz
Ro7eQ9aVCx0ltbMBmxJIEpvGoCPyL7Owlw0MWqj18r8YyF+tldnwlw0fI2J2
MmcweG72nwVjJQ5S/kOubkwMNvfrTwrK4eDZBXeqkXN9eKGrFXHgMizHNrMw
qHwSWKizCYd3Bjn3upGxP55rrmnjcNJAdqc2jsFVD7W8cF0cdAzIMXeQ+Rdo
xol6OJgwNu1rRZZVcr5eaoiDsN+ai5cJDMDFrnf+JA6VnYWbozgY1OBygZI2
OGheyar7hXwqom3FenscqikOpau4GFzKMjcgO+MQ44v5Pkae1Zf8Y34Jh/KO
Or1G5OCmWt+zHjgozDqbivHQ/Zs7nHHbDwdXfarJdWSFMMEDsVdxsPG5p5OH
nCFLbUsPxuGqtbD7CPLnvQeWVd7BwezAzuyj8xgM3tR2WxaHwwEvvWQOsof0
DP+aBBzy9RoaNi5gwErLTlJNxsG2VMHYGHn5j631xpk47G3tl4tBfmo9dsHu
LQ6+nnYe+cgbxjMW3LJw+PP5oWgz8i7xDTsiC3Ew8FBaJ76IQUVyT9Xzzzjs
b/4vbjPyUc2ks1nlOLhPJlkCcvMXG075Vxx+Fns5WCHbW8jGNlSi89edz3FH
Hh1qUeurxkHW7ZDJTWRv/5jv0/U4CJobqccgc4RPnCE147BxfNEmFTnsmThL
qh2HK7v96nOQpbbVRCn9wYG9Ky2iDDmx9N4WrV4c3o+FR/9EVjY1+nJwEIeH
pmp9TcjZvfy2J0dxSLl4N6ADeY/3l5nzEziMayVZ9SJT+W5E+GE4nMl3vTmI
fDxWb1PYLA58IzN/h5HblYnSOBYOXTXa70eQnYqKTr3i4DBwXjN7aXziiB+9
aAEHxdxhYgDZr3Pn3Z/8BITlnIzqQV50m17XIUzA+nPB7r+RI3gfimliBEz+
dIhpRJaJcjMnJAkY6ecsViK/WK86LrqKAOks8+ISZNW8kf8U5Ajw2e5UnIU8
3Gn7XlaRgJBzDmYpyKn8Da0r1xPg9VgNHiE7qB1ckNxEgGHZz/AQZIVTRVuW
byGA6NPScFvaT/C2f5epERA777HdEvlx5osgAU0CJFYH3NFHXs6+W8/VISBn
J9Ng6X1Xreey2PsIaNNxf/0X3Yc7R702MPQJ6Nmde7EFmZdgfWXqMAFxSq9n
Y5E/UWuf00zQ+pK2FB9k/0n4MWxGQCejc8QUGduvKt9jRcDbnKNkPuR3F54f
7LRD+w/V8etA99clSsqjzYEAIYs5vmzk/j68ov4iAfSuzm2nkJ+LeNKq3Qj4
GC/wQxnZdueA9I/LBJw15ZXMofhovl3tXBFAgOMru/xI5Kj3B6JKgtB84y8F
VsjHWvOKi26g8x9lSK1H/q6SKJZzlwC+FbXt71B8Fla55aY8JeDXarVn2Si+
fWd6O5MSCThwX8TVHVlD4aTAsxcEhDMKYjcjv3LXs4p+RUBjSRArHuWLZ5Li
vFtFBHDnP89cRPnklO4tlZAS9L5gRYwssrQTw+xaBdpvkHbEdza6D3ndqT4/
CLDto4UrIgefyjpyrp2AIYdllEKU3/aEKPk4/EHPe7Vut0FmZsYl2vWi/7/m
zcAZGFxmh9AtRglICF4dsxvZMdEs1pBFwL09q0hJsxgc7J/uVZblwEhET4Es
yrcblYKeBSpwgKLteeMJysd85wQtatZxoLpP0VoK+cvQmkqvLRzwMmjfzU/H
4MCYwfuSPRzgU6O8aUD5fg8WG2h+mgO68WedxUYxWKO5bme6Iwfkrgysd0X1
hO31ZoJ5ngNbLW5NVKL6UzRTdibJgwNd8opZ14Yw0GaOGI6GcCC88ftYdT86
T56uVPBLDtBbaFoSXaieHaBWN2RwoG3Qpv84qnf0kOOhSm85MMkYex6B6uOH
RSfWjzwOvN143pDUgcFWgYhu6W8c8MyoN2ptRfEv1v3m9QgHBAyubFjfgOrJ
mlsGLdu4ENhLUidTMMjXlBbv1uCieipRb1GB4v1IWvuwFhdqj18oO4/q+42A
7+6sfVywJc/dv1WK8muryFP5Y1xQL37QmVmM1o+JmXB058LboWybFNRPkJen
x06958KAbkWD6QsMOjfucmDmcMHwkpzNtmR0f/ZVqi58ROsRJTuEUH+S6TpW
vqKMC8YGA42FCRiIVanRtOq4kOL4rpI/DoPWOwX7r01xYVOXxqNjqB9yWagc
EVLngUs9KfFZANqfhif5wk4enK1+zb/RH8XHGZmk77t50LdO2Ost6q9sys+Z
h+rzwL2dZpHvjfJz8GIJyZwHqYGHj3xww2AbZ08015cH6bfPDZJR/0Znvt83
84kHoqVrB6cMUTyqnIwzL0fPj+V81TmI6rclZzrnKw/+9SQybpAx6C04mnm5
hgeZYfkBIgcwaLgysmKqiweetLLDgjqoHs+sGxld4EFSgFbC8y0YXKHHPOo+
NA9nCl8uMxdF/UjBdNAW43lIltB8cH4ZBubXTS/6ms6DwPEOZX8h1O+Iih4Q
sZoHw+vXEx/zoXqhfGtC22Ue/ksXfFRE0MHO/rLRg/B5GFHYmJw2TgdyrQl3
bwMazww3XV5FB/G3Ai7x1gsws3X54rqbdCg4fOn8s9MLkNpodnUgmA72w3WO
CY4LcLLH6UhaEB2y1j+1SXJZgOIdf0fXBdDB7KmqSUrgAjwoLlUT9KRDdKip
+uv4BbA2Eq67YUeHVQ7xc0W/FyD2rKvLrl10UFildqvdehHinruIpg5OwdxB
j8ZuHRJZiXHsepPCFDxpSb4Z/YlEvkYiKwsdmoRgk7TDRbp85DnhfSlMqwn4
Vukqlf2Vj/y+Sd1SfM84GK0R57oc5Ccv5xUE3JKigYqXD22unp/8sYmtWZ43
CuTkPJaBuQB5LuXjiSzTEUjL+67I3yRArlWwIHW2DcH5mkTDJ3aC5KGNOYH6
GwbBseRYJK1LkOy1uIwocu+HkmzKb8lLQuRHGm6NYrRusA8X3vd6Roh8j66Y
T0LfkXv1VMv5fIXJjYX5j7d9bQW/GXFDjXlh8oqv243ilZpg4kbd+D83l5Gj
iv+xrdD8Ca9nHV6HLCwj6xlrrd1HKYVvbgUuufdFyB71tYZVlxNBoWT4aKao
KLkmVTxBifue0iTRsd0jTpScn6qSFJlGpTgLXhoMRrZoT7iAp1MpOIcd/xB5
ltWz0zmTSlGiyQnkIGtx2xr13lApvlTrzpmlcakwpcksKkUm8HdY4FNR8kqf
PkWTz1SKTX977+14NF8gzEO0iUqZar/4JBbZIpfl7f+LSrlVzzLOQF5pvCdw
oJlKeVsiW1i5NF9fLfxzG5XCeWL1QOQZmr+7ieraRaU8N27XjUKetZZ9WDNK
pewgX6S/WBr/ejdbh0alfNdhpeUsWfbnr7RxKoW+SVbyF3J+aPHa61NUiv6C
5fCqBFHyY3frWrVZKqWZMZKgjDyrdYQbP0elXJz0P7F7ySPC6oJMKuVRR1yJ
1dL8Fay4bjaVotyo4u2yNB6mUn+UoFI+VRaqXEVeSVMWLuRQKcfLjLruI2vp
MMhKPCqlP78tOgG52Ss25OE8lfI/078MRw==
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  PlotRange->Automatic,
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{3.399489767811971*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Check the goodness and try to improve", "Th-Env"],

Cell[CellGroupData[{

Cell["S[fitf,data]", "Input"],

Cell[BoxData["0.12247915184578229`"], "Output",
 CellChangeTimes->{3.3994897741410723`*^9}]
}, Open  ]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Use FindFit", "Section"],

Cell["\<\
FindFit statement uses a model function containing the variables and \
parameters. The model can also be nonlinear!\
\>", "Text",
 CellChangeTimes->{{3.414323945802227*^9, 3.4143240036353874`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"parm", "=", 
   RowBox[{"{", 
    RowBox[{"a", ",", "b", ",", "c"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"basis", "=", 
  RowBox[{"{", 
   RowBox[{"1", ",", "x", ",", 
    SuperscriptBox["x", "2"]}], "}"}]}]}], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "x", ",", 
   SuperscriptBox["x", "2"]}], "}"}]], "Output",
 CellChangeTimes->{3.3994897803900576`*^9, 3.4143239314916496`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"parm", ".", "basis"}]], "Input",
 CellChangeTimes->{{3.4143239227791214`*^9, 3.4143239254629807`*^9}}],

Cell[BoxData[
 RowBox[{"a", "+", 
  RowBox[{"b", " ", "x"}], "+", 
  RowBox[{"c", " ", 
   SuperscriptBox["x", "2"]}]}]], "Output",
 CellChangeTimes->{{3.414323928978035*^9, 3.414323933334299*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fitparm", "=", 
  RowBox[{"FindFit", "[", 
   RowBox[{"data", ",", 
    RowBox[{"parm", ".", "basis"}], ",", "parm", ",", "x"}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"a", "\[Rule]", 
    RowBox[{"-", "0.04235427807486632`"}]}], ",", 
   RowBox[{"b", "\[Rule]", "1.296166767293428`"}], ",", 
   RowBox[{"c", "\[Rule]", 
    RowBox[{"-", "0.4154045195790925`"}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.3994897826432977`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fitfunc2", "=", 
  RowBox[{
   RowBox[{"parm", ".", "basis"}], "/.", "fitparm"}]}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "0.04235427807486632`"}], "+", 
  RowBox[{"1.296166767293428`", " ", "x"}], "-", 
  RowBox[{"0.4154045195790925`", " ", 
   SuperscriptBox["x", "2"]}]}]], "Output",
 CellChangeTimes->{3.399489784455904*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Further data sets", "Section"],

Cell[" ", "SubProblem"],

Cell["\<\
data={{-1.5, -3.15}, {-1.4, -2.475}, {-1.3,-1.74}, 
  {-1.2, -1.39}, {-1.1, -0.74}, {-1., -0.64}, 
  {-0.9, -0.304}, {-0.79, 0.186},{-0.69, 0.25}, 
  {-0.59, 0.43}, {-0.49, 0.66}, {-0.39, 0.75}, 
  {-0.29, 0.78}, {-0.19, 0.89}, {-0.09, 1.13}, 
  {0, 0.84}, {0.10, 0.99}, {0.20, 1.17}, 
  {0.30, 0.89}, {0.40, 0.93}, {0.50, 1.18}, 
  {0.60, 0.86}, {0.70, 1.09}, {0.80, 1.16}};\
\>", "Input"],

Cell[" ", "SubProblem"],

Cell["\<\
data={{-1.5, 0.058}, {-1.4, 0.24}, {-1.3, 0.24}, 
  {-1.2, 0.28}, {-1.1, 0.43}, {-1., 0.58}, 
  {-0.9, 0.67}, {-0.79, 0.73}, {-0.6, 0.69}, 
  {-0.59, 0.89}, {-0.49, 0.8}, {-0.39, 0.83}, 
  {-0.29, 0.99}, {-0.19, 1.07}, {-0.09, 1.08}, 
  {0, 1.04}, {0.1, 1.08}, {0.2, 1.02}, 
  {0.3, 0.9}, {0.4, 1.01}, {0.5, 0.93};\
\>", "Input"],

Cell[" ", "SubProblem"],

Cell["\<\
data={{-1.5, -14.07018575923918}, 
   {-1.4, -5.708755863528245}, 
   {-1.3, -3.598730644966069}, 
   {-1.2, -2.557015741511812}, 
   {-1.1, -1.874613916979771}, 
   {-1., -1.550171547194927}, 
   {-0.9, -1.25901401877474}, 
   {-0.7999999999999998, -0.980720628269496}, 
   {-0.6999999999999998, -0.863940874943487}, 
   {-0.5999999999999998, -0.6311929958548359}, 
   {-0.4999999999999999, -0.6098307280759957}, 
   {-0.3999999999999998, -0.5172337051481137}, 
   {-0.2999999999999998, -0.3750162074150962}, 
   {-0.1999999999999998, -0.1835456740704539}, 
   {-0.0999999999999998, -0.1149694591807097}, 
   {1.942890293094024*10^-16, -0.05120651361073937}, 
   {0.1000000000000002, 0.1737762133016124}, 
   {0.2000000000000002, 0.1484522904236703}, 
   {0.3000000000000002, 0.3359704489002492}, 
   {0.4000000000000003, 0.4134651492855475}, 
   {0.5000000000000002, 0.6247725039099829}, 
   {0.6000000000000002, 0.7075007806331626}, 
   {0.7000000000000002, 0.804364681290384}, 
   {0.8000000000000001, 1.081819117255669}, 
   {0.9, 1.20739404368399}, {1., 1.591643844991731}, 
   {1.1, 2.023464155074051}, 
   {1.2, 2.509196301717121}, 
   {1.3, 3.559192533832756}, 
   {1.400000000000001, 5.724883658359765}, 
   {1.500000000000001, 14.05898024622165}};\
\>", "Input"],

Cell[" ", "SubProblem"],

Cell["\<\
data = {{-1.5, -0.3323947711800909}, 
    {-1.399999999999999, -0.3569325849464892}, 
    {-1.3, -0.3318661658217851}, 
    {-1.199999999999999, -0.04370675627309283}, 
    {-1.1, -0.1710206874137867}, {-1., 0.1223956985494341}, 
    {-0.9, 0.05848372591313478}, 
    {-0.7999999999999998, 0.07150825879596291}, 
    {-0.6999999999999998, 0.2569460735531699}, 
    {-0.5999999999999997, 0.4139192742404331}, 
    {-0.4999999999999999, 0.5269363477702714}, 
    {-0.3999999999999998, 0.5660555036629677}, 
    {-0.2999999999999998, 0.7031920641984735}, 
    {-0.1999999999999997, 0.7737945960125497}, 
    {-0.0999999999999998, 0.90853526644687}, 
    {1.942890293094023/10^16, 1.}, 
    {0.1000000000000001, 1.119356934981744}, 
    {0.2000000000000002, 1.227398270890031}, 
    {0.3000000000000002, 1.347292459646121}, 
    {0.4000000000000002, 1.405296517305998}, 
    {0.5000000000000001, 1.430513345728406}, 
    {0.6000000000000001, 1.672264736273701}, 
    {0.7000000000000001, 1.795023019175054}, 
    {0.8000000000000001, 1.805933211563838}, 
    {0.9, 1.761420706824063}, {1., 1.976174998347062}, 
    {1.1, 2.023739446244344}, {1.199999999999999, 2.17759426898}, 
    {1.3, 2.245461060063827}, 
    {1.400000000000001, 2.318346555551558}, 
    {1.500000000000001, 2.56127625060734}}; \
\>", "Input",
 Deployed->True,
 InitializationCell->True],

Cell[" ", "SubProblem"],

Cell["\<\
data = {{-1.5, 6.049448173188212}, 
    {-1.399999999999999, 5.874836758931802}, {-1.3, 5.525434467176271}, 
    {-1.199999999999999, 5.456476483277056}, {-1.1, 5.384069981390691}, 
    {-1., 4.941943885021032}, {-0.9, 4.768735648604316}, 
    {-0.7999999999999998, 4.706855801993366}, 
    {-0.6999999999999998, 4.45362904553802}, 
    {-0.5999999999999997, 4.179458462775094}, 
    {-0.4999999999999999, 4.173019736297372}, 
    {-0.3999999999999998, 3.75228344504671}, 
    {-0.2999999999999998, 3.50175113910982}, 
    {-0.1999999999999997, 3.580071412209691}, 
    {-0.0999999999999998, 3.053191927114708}, 
    {1.942890293094023/10^16, 2.812859085928062}, 
    {0.1000000000000001, 2.87919703370989}, 
    {0.2000000000000002, 2.509184566110552}, 
    {0.3000000000000002, 2.291951318134199}, 
    {0.4000000000000002, 2.077632841572211}, 
    {0.5000000000000001, 2.043443890102302}, 
    {0.6000000000000001, 1.629310452396574}, 
    {0.7000000000000001, 1.699500271157956}, 
    {0.8000000000000001, 1.395306148727605}, {0.9, 1.393995716914091}, 
    {1., 0.954473693464773}, {1.1, 0.774065803981685}, 
    {1.199999999999999, 0.7388296654505484}, {1.3, 0.2099257355233991}, 
    {1.400000000000001, 0.01252980844373885}, 
    {1.500000000000001, -0.194669844622632}}; \
\>", "Input"],

Cell[" ", "SubProblem"],

Cell["\<\
data = {{-1.5, -2.871499795533734}, 
    {-1.399999999999999, -2.641412799797842}, 
    {-1.3, -2.595801885237201}, 
    {-1.199999999999999, -2.413199038207658}, 
    {-1.1, -2.208987267614836}, {-1., -2.031210437995734}, 
    {-0.9, -1.947100448488755}, 
    {-0.7999999999999998, -1.613695029580622}, 
    {-0.6999999999999998, -1.394962645217824}, 
    {-0.5999999999999997, -1.332983420200029}, 
    {-0.4999999999999999, -1.17414979043245}, 
    {-0.3999999999999998, -0.7346218082024807}, 
    {-0.2999999999999998, -0.6671071260892312}, 
    {-0.1999999999999997, -0.2433011814280439}, 
    {-0.0999999999999998, -0.05037931871630902}, 
    {1.942890293094023/10^16, -0.06955906414732884}, 
    {0.1000000000000001, 0.3624854222459402}, 
    {0.2000000000000002, 0.3957159123069443}, 
    {0.3000000000000002, 0.5545723569466559}, 
    {0.4000000000000002, 0.751877906428202}, 
    {0.5000000000000001, 0.999387050565403}, 
    {0.6000000000000001, 1.319827809182664}, 
    {0.7000000000000001, 1.339424359118648}, 
    {0.8000000000000001, 1.622554105399929}, {0.9, 1.870886846099138}, 
    {1., 2.161240608980508}, {1.1, 2.335226244355851}, 
    {1.199999999999999, 2.235753143607588}, {1.3, 2.479874113713977}, 
    {1.400000000000001, 2.792451046976244}, 
    {1.500000000000001, 3.082326692844608}}; \
\>", "Input"]
}, 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]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],

Cell[CellGroupData[{

Cell["Generalizations: fitting with transformations", "MainSection"],

Cell[TextData[{
 "Now, we consider fitting problems, in which the data set cannot be fit by a \
linear combination of the functions in ",
 StyleBox["H",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 ", but a simple transformation reduces the problem to this case. \nNext, we \
recall the most important transformations (see the projects on ",
 ButtonBox["nonlinear data transformation",
  BaseStyle->"Hyperlink",
  ButtonData->{"CAM-1-data2d.nb", "part-2"}],
 ") ."
}], "Text",
 CellChangeTimes->{{3.4134713356581917`*^9, 3.413471424415819*^9}, 
   3.414324054879072*^9},
 TextAlignment->Left,
 TextJustification->1],

Cell[CellGroupData[{

Cell["Run it!", "Math-Init",
 CellChangeTimes->{{3.4134543307751007`*^9, 3.4134543325977216`*^9}},
 FontColor->RGBColor[1, 0, 0]],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"LogData", "[", "data_List", "]"}], ":=", 
   RowBox[{"data", "/.", "\[InvisibleSpace]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x_", ",", "y_"}], "}"}], "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"Log", "[", 
        RowBox[{"10", ",", "y"}], "]"}]}], "}"}]}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"LogLinearData", "[", "data_List", "]"}], ":=", 
   RowBox[{"data", "/.", "\[InvisibleSpace]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x_", ",", "y_"}], "}"}], "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Log", "[", 
        RowBox[{"10", ",", "x"}], "]"}], ",", "y"}], "}"}]}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"LogLogData", "[", "data_List", "]"}], ":=", 
   RowBox[{"data", "/.", "\[InvisibleSpace]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x_", ",", "y_"}], "}"}], "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Log", "[", 
        RowBox[{"10", ",", "x"}], "]"}], ",", 
       RowBox[{"Log", "[", 
        RowBox[{"10", ",", "y"}], "]"}]}], "}"}]}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"ExpData", "[", "data_List", "]"}], ":=", 
   RowBox[{"data", "/.", "\[InvisibleSpace]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x_", ",", "y_"}], "}"}], "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       SuperscriptBox["10", "y"]}], "}"}]}]}]}], ";"}]}], "Input"]
}, Closed]],

Cell[CellGroupData[{

Cell["Nonlinear data transformations (summary)", "Section",
 CellChangeTimes->{{3.4134714490312147`*^9, 3.4134714568224173`*^9}, {
  3.413471693222344*^9, 3.4134716980192413`*^9}}],

Cell[CellGroupData[{

Cell["Logarithmic transformations", "Th-Env"],

Cell[TextData[{
 "Let ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    RowBox[{"x", ",", "y"}], ")"}], TraditionalForm]]],
 " be a point in the plane, where ",
 Cell[BoxData[
  FormBox[
   RowBox[{"y", ">", "0"}], TraditionalForm]]],
 ". The transformation\n\t",
 StyleBox["\t",
  FontFamily->"Times New Roman",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"x", ",", "y"}], ")"}], "\[Rule]", 
     RowBox[{"(", 
      RowBox[{"x", ",", "z"}], ")"}]}], ":=", 
    RowBox[{"(", 
     RowBox[{"x", ",", 
      RowBox[{
       SubscriptBox[
        StyleBox["log",
         FontSlant->"Plain"], "a"], "y"}]}], ")"}]}], TraditionalForm]]],
 "\nis called the logarithmic transformation. The point ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    RowBox[{"x", ",", "z"}], ")"}], TraditionalForm]]],
 " can be plotted in the ",
 StyleBox[" xz",
  FontSlant->"Italic"],
 "-system. This gives the same result, as if the point was plotted in a \
logarithmic coordinate system (see the chapter about the logarithmic plots). \
In particular, if ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["y", "i"], "\[TildeTilde]", 
    RowBox[{"A", " ", 
     SuperscriptBox["a", 
      RowBox[{" ", 
       RowBox[{"b", " ", 
        SubscriptBox["x", "i"]}]}]]}]}], TraditionalForm]]],
 ", then using the logarithmic transformation, the  transformed data set is ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["z", "i"], "=", 
    RowBox[{
     RowBox[{"b", " ", 
      SubscriptBox["x", "i"]}], " ", "+", 
     RowBox[{
      SubscriptBox["log", "a"], " ", "A"}]}]}], TraditionalForm]]],
 ", i.e., the graph is a straight line in the ",
 StyleBox["xz-",
  FontSlant->"Italic"],
 "system . "
}], "Text",
 CellChangeTimes->{{3.4134715433668623`*^9, 3.4134715540822706`*^9}, {
  3.414324090450221*^9, 3.4143240915918627`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[" Double logarithmic transformation", "Th-Env"],

Cell[TextData[{
 "Let ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    RowBox[{"x", ",", "y"}], ")"}], TraditionalForm]]],
 StyleBox[" ",
  FontSlant->"Italic"],
 "be a point in the plane, where ",
 Cell[BoxData[
  FormBox[
   RowBox[{"x", ",", 
    RowBox[{"y", ">", "0"}]}], TraditionalForm]]],
 ". The transformation\n \t",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"x", ",", "y"}], ")"}], "\[Rule]", 
     RowBox[{"(", 
      RowBox[{"u", ",", "z"}], ")"}]}], ":=", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SubscriptBox[
        StyleBox["log",
         FontSlant->"Plain"], "a"], "x"}], ",", " ", 
      RowBox[{
       SubscriptBox[
        StyleBox["log",
         FontSlant->"Plain"], "a"], "y"}]}], ")"}]}], TraditionalForm]]],
 "\nis called the double logarithmic transformation. The point",
 StyleBox[" ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    RowBox[{"u", ",", "z"}], ")"}], TraditionalForm]]],
 " can be plotted in the ",
 StyleBox["uz",
  FontSlant->"Italic"],
 "-plane. This gives the same result, as if the point was plotted in the \
double logarithmic coordinate system. In particular, if ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["y", "i"], "\[TildeTilde]", 
    RowBox[{"A", " ", 
     SuperscriptBox[
      SubscriptBox["x", "i"], "b"]}]}], TraditionalForm]]],
 ", then using this transformation, the transformed data set is ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["z", "i"], "=", 
    RowBox[{
     RowBox[{
      RowBox[{"b", " ", 
       SubscriptBox["log", "a"], " ", 
       SubscriptBox["x", "i"]}], " ", "+", 
      RowBox[{
       SubscriptBox["log", "a"], " ", "A"}]}], "=", 
     RowBox[{
      RowBox[{"b", " ", 
       SubscriptBox["u", "i"]}], " ", "+", 
      RowBox[{
       SubscriptBox["log", "a"], " ", "A"}]}]}]}], TraditionalForm]]],
 ", i.e., it is a straight line in the ",
 StyleBox[" uz-",
  FontSlant->"Italic"],
 "plane. "
}], "Text",
 CellChangeTimes->{{3.413471568643208*^9, 3.4134715978952703`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[" Exponential transformation", "Th-Env"],

Cell[TextData[{
 "Let ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    RowBox[{"x", ",", "y"}], ")"}], TraditionalForm]]],
 StyleBox[" ",
  FontSlant->"Italic"],
 "be a point in the plane. The transformation\n ",
 StyleBox["\t",
  FontFamily->"Times New Roman",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"x", ",", "y"}], ")"}], "\[Rule]", 
     RowBox[{"(", 
      RowBox[{"x", ",", "z"}], ")"}]}], ":=", 
    RowBox[{"(", 
     RowBox[{"x", ",", 
      SuperscriptBox["a", "y"]}], ")"}]}], TraditionalForm]]],
 "\nis called the exponential transformation. The point",
 StyleBox[" ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    RowBox[{"u", ",", "z"}], ")"}], TraditionalForm]]],
 " can be plotted in the ",
 StyleBox["uz-",
  FontSlant->"Italic"],
 "system. In particular, if  ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["y", "i"], "\[TildeTilde]", 
    RowBox[{
     RowBox[{
      SubscriptBox["log", "a"], " ", 
      SubscriptBox["x", "i"]}], " ", "+", "A"}]}], TraditionalForm]]],
 ", then using the transformation, the  transformed data set is ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["z", "i"], "=", 
    RowBox[{
     SuperscriptBox["a", 
      SubscriptBox["y", "i"]], " ", "=", 
     RowBox[{
      SuperscriptBox["a", "A"], 
      SubscriptBox["x", "i"]}]}]}], TraditionalForm]]],
 ", that is a straight line in the  ",
 StyleBox[" uz-",
  FontSlant->"Italic"],
 "plane. "
}], "Text",
 CellChangeTimes->{
  3.413471571627499*^9, {3.4134716166522417`*^9, 3.4134716170728464`*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["A basic exercise", "Section"],

Cell["Fit an apppropriate function to the following data set.", "Text"],

Cell[BoxData[
 RowBox[{
  RowBox[{"data", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", "11.556377117079444`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.1`", ",", "12.016018161098222`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.2`", ",", "8.187923784106118`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.30000000000000004`", ",", "9.805922986865061`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.4`", ",", "8.675077452609003`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.5`", ",", "6.558813855531146`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.6000000000000001`", ",", "6.918917804771284`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.7000000000000001`", ",", "4.811119137988176`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.8`", ",", "5.581743027904037`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.9`", ",", "4.70018589113088`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1.`", ",", "4.154127213000393`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1.1`", ",", "3.673891038904973`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1.2000000000000002`", ",", "2.682968659198083`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1.3`", ",", "2.2872545198441343`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1.4000000000000001`", ",", "2.114533347145271`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1.5`", ",", "2.379824906422021`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1.6`", ",", "1.7611430581223684`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1.7000000000000002`", ",", "1.5670832473973553`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1.8`", ",", "1.3443676699836804`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1.9000000000000001`", ",", "1.4201330429416192`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2.`", ",", "1.468592323238827`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2.1`", ",", "1.214319336106892`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2.2`", ",", "0.8500535283092485`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2.3000000000000003`", ",", "0.8138622880311566`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2.4000000000000004`", ",", "0.828418355114549`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2.5`", ",", "0.570365537836074`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2.6`", ",", "0.5209116857527135`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2.7`", ",", "0.564825863458191`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2.8000000000000003`", ",", "0.5724970180261538`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2.9000000000000004`", ",", "0.47826323166384643`"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"3.`", ",", "0.3664605024989681`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3.1`", ",", "0.3346582244994722`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3.2`", ",", "0.26022566552185294`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3.3000000000000003`", ",", "0.22907413162684903`"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"3.4000000000000004`", ",", "0.2684025852641946`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3.5`", ",", "0.24609012276277578`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3.6`", ",", "0.23264139569930567`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3.7`", ",", "0.1414737564435409`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3.8000000000000003`", ",", "0.1618250890763721`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3.9000000000000004`", ",", "0.11731741546301575`"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"4.`", ",", "0.1356661825263381`"}], "}"}]}], "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{3.413471844269539*^9, 3.413472021674635*^9, 
  3.4134720937582865`*^9, 3.413472152833232*^9}],

Cell[CellGroupData[{

Cell["Plot the data", "Th-Env"],

Cell[CellGroupData[{

Cell["pldata=ListPlot[data, PlotRange->All]", "Input",
 CellChangeTimes->{
  3.399489818775253*^9, {3.4134720461398144`*^9, 3.4134720465403905`*^9}}],

Cell[BoxData[
 GraphicsBox[
  {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGDQBGIQDQNrjVTK7sqoO8yaCQI77bXlfDqMOTSg/JP2Gw5c
7TZPUHAwMQaBy/bGMfwfFs5RhsrftGcoqjqwOFLRAWLaA/tQa47NljZSUPWP
7Tde/HPyxxpph/Q0EHhmP9XtNfM0O2Go/pf2uRL7CrcEizmcPQMCb+wzZfa1
/z0jBDXvg/0ELt22y3MFoOo/2ncEaP5RSOGFmv/Znnn6btcdZaxQ/V/sN99j
kvTxYYLa981+adCi0gmvGKDm/bDv8f+1+CEnM9S8n/ZFGY/Dl+j+sYeY99v+
zlOpR0eFftpDzPtj/1WobU1701d7iHn/7KcWf8u5u+ObPTT4HCZUfV8ZVf8d
qp7BQXvNdplbuZ/tIeYzOogx/itZbPwaqp/JISHk4hsN7ldQ+5gdSj5cNk1v
egU1j8XBfH2FVb7DI6h5LA7GBmd/+61+ADWP1eH8nPwNvMKPoOaxOXyN0nd5
GvgIah67gwDHjqS7s+9BzeNwEJuQcECs5DrUPA6H2UwpIVzZV6HmcTosPLi/
p3P5Bah5XA5dJjfFfYPOQs3jdjh0vJyzSfci1Dweh1T7iZMe1p+Hmsfj4LlN
ptLw+FmoebwOkZlTH52XPgQ1j8/h2toFNuu3HYGax++wzWzVvGaOfVDzBBwC
bvTnNMUetAcAPvUVng==
    "]]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{
  3.399489819626477*^9, 3.399489877539752*^9, {3.4134720359751987`*^9, 
   3.4134720471212254`*^9}, 3.4134720977640467`*^9, 3.4134721616859617`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Graphical investigation of the data", "Th-Env"],

Cell[TextData[{
 "The dataset is possibly exponential. Check it by using ListLogPlot",
 StyleBox[". ",
  FontFamily->"Courier New"]
}], "Text",
 CellChangeTimes->{{3.399489859333573*^9, 3.399489866624056*^9}, 
   3.4134717317277117`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListLogPlot", "[", "data", "]"}]], "Input",
 CellChangeTimes->{{3.399489825544987*^9, 3.3994898326351824`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGDQBGIQDQOrYm6YfpzM7DBrJgjstO+8XiJ76TGMf9KeYb7p
DPtLDA4mxiBw2T52rWRlnzMTVP6m/XyZXNs5HowOENMe2E9hPfrntPg/e4j6
x/ZOjZZfdn76Z5+eBgLP7EWfxJi2K/20h+h/aR96MXmqcPNv+7NnQOCN/ZPM
qoRfh37YQ8z7YG+xo75b/uQ3qPqP9hme91++ufgFav5n+/kvv2U8nPIeqv+L
/W6v4sDVla+g9n2z7z9mx1H87TnUvB/2f1kcrdfvew0176d95uarE+NkHkHN
+20/vePjlS/770DN+2PvulTRPuvDJah5/+zNMkorNxVdg5rH4KD3e5Vl4Ywb
UPUMDvlThb8x3T4BNZ/RYR2Dbnj06SP7IfqZHGTPs6tzxJ7aD7GP2cHGSz5c
TeLEfohxLA7NTo5RC74/3A8xj8XBZsOEWXPvPdkPMY/VgelRS/0U90dQ89gc
ooKyLwjefAg1j93h/NGde+NmPYeax+HwWWO54xX+D1DzOBzixDX+rWr+CDWP
0+Gm4u8k/q6vUPO4HB7uetgWMOU71DxuB7mCCytDub9CzeNxWNby9szlvG9Q
83gcoucuTWQN/Q41j9dhwcH3zn5e/6Hm8Tm4xM7ee1r5L9Q8fof11z9Jz1Jh
PAAxT8Bh0ovM4P9f/+8HAGJ7LoM=
     "]]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0., -2.1428720649227766`},
  FrameTicks->{{{{0, 
       FormBox[
        TagBox[
         InterpretationBox["\"1.0\"", 1., AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {
       NCache[-Log[2], -0.6931471805599453], 
       FormBox[
        TagBox[
         InterpretationBox["\"0.5\"", 0.5, AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {
       NCache[
        Log[2], 0.6931471805599453], 
       FormBox[
        TagBox[
         InterpretationBox["\"2.0\"", 2., AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {
       NCache[-Log[5], -1.6094379124341003`], 
       FormBox[
        TagBox[
         InterpretationBox["\"0.2\"", 0.2, AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {
       NCache[
        Log[5], 1.6094379124341003`], 
       FormBox[
        TagBox[
         InterpretationBox["\"5.0\"", 5., AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {
       NCache[-Log[10], -2.302585092994046], 
       FormBox[
        TagBox[
         InterpretationBox["\"0.1\"", 0.1, AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {
       NCache[
        Log[10], 2.302585092994046], 
       FormBox[
        TagBox[
         InterpretationBox["\"10.0\"", 10., AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {
       NCache[
        Log[20], 2.995732273553991], 
       FormBox[
        TagBox[
         InterpretationBox["\"20.0\"", 20., AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {
       NCache[
        Log[50], 3.912023005428146], 
       FormBox[
        TagBox[
         InterpretationBox["\"50.0\"", 50., AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-1.2039728043259361`, 
       FormBox["\" \"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.916290731874155, 
       FormBox["\" \"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.5108256237659907, 
       FormBox["\" \"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.35667494393873245`, 
       FormBox["\" \"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.2231435513142097, 
       FormBox["\" \"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.10536051565782628`, 
       FormBox["\" \"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.0986122886681098`, 
       FormBox["\" \"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.3862943611198906`, 
       FormBox["\" \"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.791759469228055, 
       FormBox["\" \"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.9459101490553132`, 
       FormBox["\" \"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.0794415416798357`, 
       FormBox["\" \"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.1972245773362196`, 
       FormBox["\" \"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.4011973816621555`, 
       FormBox["\" \"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.6888794541139363`, 
       FormBox["\" \"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}, {{0, 
       FormBox["\" \"", TraditionalForm]}, {
       NCache[-Log[2], -0.6931471805599453], 
       FormBox["\" \"", TraditionalForm]}, {
       NCache[
        Log[2], 0.6931471805599453], 
       FormBox["\" \"", TraditionalForm]}, {
       NCache[-Log[5], -1.6094379124341003`], 
       FormBox["\" \"", TraditionalForm]}, {
       NCache[
        Log[5], 1.6094379124341003`], 
       FormBox["\" \"", TraditionalForm]}, {
       NCache[-Log[10], -2.302585092994046], 
       FormBox["\" \"", TraditionalForm]}, {
       NCache[
        Log[10], 2.302585092994046], 
       FormBox["\" \"", TraditionalForm]}, {
       NCache[
        Log[20], 2.995732273553991], 
       FormBox["\" \"", TraditionalForm]}, {
       NCache[
        Log[50], 3.912023005428146], 
       FormBox["\" \"", TraditionalForm]}, {-1.2039728043259361`, 
       FormBox["\" \"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.916290731874155, 
       FormBox["\" \"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.5108256237659907, 
       FormBox["\" \"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.35667494393873245`, 
       FormBox["\" \"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.2231435513142097, 
       FormBox["\" \"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.10536051565782628`, 
       FormBox["\" \"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.0986122886681098`, 
       FormBox["\" \"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.3862943611198906`, 
       FormBox["\" \"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.791759469228055, 
       FormBox["\" \"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.9459101490553132`, 
       FormBox["\" \"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.0794415416798357`, 
       FormBox["\" \"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.1972245773362196`, 
       FormBox["\" \"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.4011973816621555`, 
       FormBox["\" \"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.6888794541139363`, 
       FormBox["\" \"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}}, {Automatic, Automatic}},
  GridLines->{None, None},
  Method->{},
  PlotRange->{{0., 4.}, {-2.1428720649227766`, 2.486240606430276}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]},
  Ticks->{Automatic, {{0, 
      FormBox[
       TagBox[
        InterpretationBox["\"1.0\"", 1., AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {
      NCache[-Log[2], -0.6931471805599453], 
      FormBox[
       TagBox[
        InterpretationBox["\"0.5\"", 0.5, AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {
      NCache[
       Log[2], 0.6931471805599453], 
      FormBox[
       TagBox[
        InterpretationBox["\"2.0\"", 2., AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {
      NCache[-Log[5], -1.6094379124341003`], 
      FormBox[
       TagBox[
        InterpretationBox["\"0.2\"", 0.2, AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {
      NCache[
       Log[5], 1.6094379124341003`], 
      FormBox[
       TagBox[
        InterpretationBox["\"5.0\"", 5., AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {
      NCache[-Log[10], -2.302585092994046], 
      FormBox[
       TagBox[
        InterpretationBox["\"0.1\"", 0.1, AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {
      NCache[
       Log[10], 2.302585092994046], 
      FormBox[
       TagBox[
        InterpretationBox["\"10.0\"", 10., AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {
      NCache[
       Log[20], 2.995732273553991], 
      FormBox[
       TagBox[
        InterpretationBox["\"20.0\"", 20., AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {
      NCache[
       Log[50], 3.912023005428146], 
      FormBox[
       TagBox[
        InterpretationBox["\"50.0\"", 50., AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-1.2039728043259361`, 
      FormBox["\" \"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.916290731874155, 
      FormBox["\" \"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.5108256237659907, 
      FormBox["\" \"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.35667494393873245`, 
      FormBox["\" \"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.2231435513142097, 
      FormBox["\" \"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.10536051565782628`, 
      FormBox["\" \"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.0986122886681098`, 
      FormBox["\" \"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.3862943611198906`, 
      FormBox["\" \"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.791759469228055, 
      FormBox["\" \"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.9459101490553132`, 
      FormBox["\" \"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.0794415416798357`, 
      FormBox["\" \"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.1972245773362196`, 
      FormBox["\" \"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {3.4011973816621555`, 
      FormBox["\" \"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {3.6888794541139363`, 
      FormBox["\" \"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}}}]], "Output",
 CellChangeTimes->{3.399489833596565*^9, 3.3994898711405506`*^9, 
  3.413472170458576*^9}]
}, Open  ]],

Cell["\<\
Really, the logarithmic figure looks linear, the original one is exponential.\
\>", "Text"]
}, Open  ]],

Cell[CellGroupData[{

Cell["The transformation", "Th-Env"],

Cell["Perform logarithmic transformation on the original data set", "Text"],

Cell[CellGroupData[{

Cell["\<\
logdata=LogData[data];
ListPlot[logdata]\
\>", "Input",
 CellChangeTimes->{{3.399489839805493*^9, 3.3994898429800577`*^9}, 
   3.3994902405417233`*^9}],

Cell[BoxData[
 GraphicsBox[
  {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGDQBGIQDQPntU1CAxk/2s+aCQI77cUPz2Lb7Abjn7SPjrO2
22Hx1t7EGAQu2xvKVXC77XoPlb9pf/7h31uhbO/sIaY9sF/DvO5SnvIrqPrH
9sk1qrunP3xln54GAs/sqy+Invl65SlU/0v7uqVedzqfPrc/ewYE3thfPdid
/L3xKdS8D/Y1Sz4qTjv1GKr+o73q7pcbmkUfQc3/bL9l6xL5grzbUP1f7N82
brBg+n8Nat83e0XPS4sDLlyBmvfDvkzjuUWA5A2oeT/tv2r+vm5Udh5q3m/7
pCUrHh77cQJq3h/7EL5H892LD0DN+2c/QzGpq6X+MNQ8BofFtsqGrLFHoeoZ
HKSfrCq5Pm0r1HxGh8zzKRLn+Tfth+hncrgxb1Wx0rNt+yH2MTv4T6u2nPZ2
y36IcSwONxdqTIozO78fYh6Lw/Wb68s7FS7th5jH6mAjtSnR+eB5qHlsDs4r
ufI8Gc9DzWN3EK/kYwpruAI1j8Ph6Ixtk349uw01j8PhlOa2i29z7kHN43SI
3sW+rHjrI6h5XA63FgY2CVc/gZrH7fAyU18h0f0R1Dweh+7WMF6NmsdQ83gc
LNgOLJJ0eQI1j9eB/anMkZW6r6Hm8Tk8/OgvWO//Emoev0P9pbKgE8ffQs0T
cNA0PfHi1KHX+wGisCy0
    "]]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  PlotRange->Automatic,
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{{3.399489840706789*^9, 3.3994898443119726`*^9}, {
   3.399490234813486*^9, 3.399490241182645*^9}, 3.4134721952542305`*^9, {
   3.413472348614752*^9, 3.4134723643573885`*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["The fitting", "Th-Env"],

Cell["Fit a straight line to the transformed data set.", "Text"],

Cell[CellGroupData[{

Cell["logfitf=Fit[logdata,{1,x},x]", "Input"],

Cell[BoxData[
 RowBox[{"1.0882305440468982`", "\[InvisibleSpace]", "-", 
  RowBox[{"0.5023790076568917`", " ", "x"}]}]], "Output",
 CellChangeTimes->{3.3994902459595137`*^9, 3.413472380630789*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["The fitting function to the original data set", "Th-Env"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fitf", "=", 
  SuperscriptBox["10", "logfitf"]}]], "Input"],

Cell[BoxData[
 SuperscriptBox["10", 
  RowBox[{"1.0882305440468982`", "\[InvisibleSpace]", "-", 
   RowBox[{"0.5023790076568917`", " ", "x"}]}]]], "Output",
 CellChangeTimes->{3.3994902479824224`*^9, 3.4134723828740144`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[" The graph of the fitting function", "Th-Env"],

Cell[CellGroupData[{

Cell["\<\
plfit=Plot[fitf,{x,0,3}];
Show[plfit,pldata,PlotRange->All]\
\>", "Input",
 CellChangeTimes->{{3.3994902571255693`*^9, 3.3994902668395376`*^9}, {
  3.4134723887023954`*^9, 3.413472389062914*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVx31QzHkcwPHdancTUcmKQlRro4Q6J+N8Pgl7HT2J3Z6n9KDdtnbbyVWW
LtVWd7dFxVxJ6IgaJ0mX006aUJyIm4qfS48KJXrWA7t73/vjPe95rT4k2R+h
Q6PRPEj/f2ZvbLGXRLojWFG5JugEFzPC13KfcTxg5/yXdZVHufj0U78omxMM
W85uW8eM5+LoLVelmBML5vZ342siuZjKnrAI5CSDrk3/Pbt9XGx++MOADycH
Puimt0uWclFy8ce/PTnnoceWEu67sRYblEqVO6cCWF8Tonf1c5DBlLEGRfWg
kHafM3O1QbefQhV/8h+CccaCMDFlhbeTIjpL/2mBQaZMfFC5Bl/5RzvIElph
c33M7wXbV6MxLzuyAV/C2zTJgxozSzRqi6j6NqADIiw2/ezRvwKtLMXlikPd
kJIW7zj02By3dsY0u+T1Qs6emMGa6WXYMJeyr63oDXhKt3RUrzLDqPpHj+6m
DoDdxkxlgIKNhWFXly8JeQed0YKdJw2XoL1v72dNxCBU2xs+ScxdjF0Tni3o
9gHYT3NHWDwTHO9etpF98CPcv3JxQjRrhKeuHT0sEIyAKJnabZ63CDmL9N0T
i0bBIkbQ0pdiiDXSlGs5F8bA/2LJWo1wPrbZ5LO888bhD1VUykzBPLROa+UG
FU6AanKw/Ol9Fjp7dTtdKJqE0wwbi+6lTOyUKnZkK6dgdYPp9fZLeljl7GfY
mPsZOPJfvIztdJHNf/iqTDENpX3RZ8MG6Ah9tNx78TMwsnCEuaOWhoXsKENO
4iwc+yvFV7FUC6nnhZnfiOYgTl9leXqeGopbCppypF+A3ywou/N5Do7H5o+u
kH0F7eZA4yMms/AhlGvmd0gN96fNLeJipuFX9ZBeV6QG6EnZEuaDKagd5o0s
9NdCLke8YcP+SXhhs7VvmzUNRZtLXY5oxyHKNswhv5SG4XfqHJ+XjUEDP0Du
spKOK01khcPJo+DoO1RuWkJH/bSbU3j5E4jT9rz8zlwHVbY932PhMGRF6s/R
83VwmN+/OLh2COpWhGqHTHUx/k1k9e4X7+GOJkN3XY4uxo23HxZuegctt1yH
so31kHaumafKGoBGy8gmZZ4e2i8O6/Jn9EP67YMlvQYMrAjiCvOr+yBwzevg
gGwGfilQHwkK6YUvNQ7m61lMbG3ndxRs7YFjuoNPziQzUTpecUru0wVsa+dQ
GxoLWzWKjMsOryEhlj9pkMTC1CLB2UCff2FMaSBa8pWF7plGQTkyCizSXUxt
iD1ZVmo+MU+eeNeJWD5ZVbyKuFj41uQAcZvx3p7KOArc9txT5RGfcA6MbpVS
UKJNMjRSs9B7F73QTEKBt2yw0kDDwqk0j/2Xoik4JrQMWE6cl7pAR0x8NUTA
WEfc8ZhX5USs9mj0cyOedNxi2iSioHx9iU4WMc9tvPO9kAL6gO8BhpaFm7Le
Zm2IosDu9UmNKbHgXCJOH6ZA0NpUZk0sep85U098vcFJ7Ur80WqlyJvY77zR
lVRin3m2PvGRFKSf4XnlEffVXV74HfENZfJcCfHxkuLHDGKGfNijgVg+xtz1
WwQFG2VWs8+JrwQk0EOIA4T+l3qIpaPh9VzijJBc91Hixopnx8fCKbgpeDSt
JT5x5vb2WuL/ACVbP2U=
      "]]}}, 
   {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGDQBGIQDQNrjVTK7sqoO8yaCQI77bXlfDqMOTSg/JP2Gw5c
7TZPUHAwMQaBy/bGMfwfFs5RhsrftGcoqjqwOFLRAWLaA/tQa47NljZSUPWP
7Tde/HPyxxpph/Q0EHhmP9XtNfM0O2Go/pf2uRL7CrcEizmcPQMCb+wzZfa1
/z0jBDXvg/0ELt22y3MFoOo/2ncEaP5RSOGFmv/Znnn6btcdZaxQ/V/sN99j
kvTxYYLa981+adCi0gmvGKDm/bDv8f+1+CEnM9S8n/ZFGY/Dl+j+sYeY99v+
zlOpR0eFftpDzPtj/1WobU1701d7iHn/7KcWf8u5u+ObPTT4HCZUfV8ZVf8d
qp7BQXvNdplbuZ/tIeYzOogx/itZbPwaqp/JISHk4hsN7ldQ+5gdSj5cNk1v
egU1j8XBfH2FVb7DI6h5LA7GBmd/+61+ADWP1eH8nPwNvMKPoOaxOXyN0nd5
GvgIah67gwDHjqS7s+9BzeNwEJuQcECs5DrUPA6H2UwpIVzZV6HmcTosPLi/
p3P5Bah5XA5dJjfFfYPOQs3jdjh0vJyzSfci1Dweh1T7iZMe1p+Hmsfj4LlN
ptLw+FmoebwOkZlTH52XPgQ1j8/h2toFNuu3HYGax++wzWzVvGaOfVDzBBwC
bvTnNMUetAcAPvUVng==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->All,
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.3994902676306753`*^9, {3.4134723849770384`*^9, 3.413472389693821*^9}}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Use FindFit with transformation", "Section"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"parm", "=", 
   RowBox[{"{", 
    RowBox[{"a", ",", "b"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"logmodel", "=", 
  RowBox[{
   RowBox[{"a", "*", "x"}], "+", "b"}]}]}], "Input"],

Cell[BoxData[
 RowBox[{"b", "+", 
  RowBox[{"a", " ", "x"}]}]], "Output",
 CellChangeTimes->{3.3994903274967585`*^9, 3.4134726301996512`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"logfitparm", "=", 
  RowBox[{"FindFit", "[", 
   RowBox[{
    RowBox[{"LogData", "[", "data", "]"}], ",", "logmodel", ",", "parm", ",", 
    "x"}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"a", "\[Rule]", 
    RowBox[{"-", "0.5023790076568917`"}]}], ",", 
   RowBox[{"b", "\[Rule]", "1.0882305440468982`"}]}], "}"}]], "Output",
 CellChangeTimes->{3.399490329489624*^9, 3.413472633193957*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fitf3", "=", 
  SuperscriptBox["10", 
   RowBox[{"logmodel", "/.", "fitparm"}]]}]], "Input"],

Cell[BoxData[
 SuperscriptBox["10", 
  RowBox[{"1.090839229953446`", "\[InvisibleSpace]", "-", 
   RowBox[{"0.4949590579726506`", " ", "x"}]}]]], "Output",
 CellChangeTimes->{3.3994903314524465`*^9, 3.4134726351167216`*^9}]
}, Open  ]],

Cell["Compare with the result of Fit", "Item"],

Cell[CellGroupData[{

Cell[BoxData[
 SuperscriptBox["10", "logfitf"]], "Input"],

Cell[BoxData[
 SuperscriptBox["10", 
  RowBox[{"1.0882305440468982`", "\[InvisibleSpace]", "-", 
   RowBox[{"0.5023790076568917`", " ", "x"}]}]]], "Output",
 CellChangeTimes->{3.3994903338358736`*^9, 3.413472639082424*^9}]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Generalization: nonlinear fitting  ", "MainSection"],

Cell["\<\
Here, we consider problems that cannot be reduced (or not easily reduced) to \
the previous cases. In some cases, linearization causes some statistical \
problems, that also explains the using of the more complicated nonlinear \
methods. In the previous point, we considered nonlinear fitting for \
exponential data set. \
\>", "Text",
 CellChangeTimes->{{3.41347290711784*^9, 3.413472915830368*^9}, {
  3.4134729497291117`*^9, 3.4134730399388275`*^9}, {3.4134731154774466`*^9, 
  3.413473149666608*^9}, {3.413473186699859*^9, 3.4134732158217344`*^9}, {
  3.4143241733894815`*^9, 3.4143241743308353`*^9}},
 TextAlignment->Left,
 TextJustification->1],

Cell[CellGroupData[{

Cell["Use FindFit directly to the exponential data set ", "Section",
 CellChangeTimes->{{3.413473268076874*^9, 3.413473273414549*^9}, {
  3.4134733239371967`*^9, 3.4134733268313584`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"parm", "=", 
   RowBox[{"{", 
    RowBox[{"a", ",", "b"}], "}"}]}], ";"}], "\n", 
 RowBox[{"model", "=", 
  SuperscriptBox["10", 
   RowBox[{
    RowBox[{"a", " ", "x"}], "+", "b"}]]}]}], "Input"],

Cell[BoxData[
 SuperscriptBox["10", 
  RowBox[{"b", "+", 
   RowBox[{"a", " ", "x"}]}]]], "Output",
 CellChangeTimes->{{3.399490299326251*^9, 3.3994903139572897`*^9}, 
   3.4134724071389055`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fitparm", "=", 
  RowBox[{"FindFit", "[", 
   RowBox[{"data", ",", "model", ",", "parm", ",", "x"}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"a", "\[Rule]", 
    RowBox[{"-", "0.4949590579726506`"}]}], ",", 
   RowBox[{"b", "\[Rule]", "1.090839229953446`"}]}], "}"}]], "Output",
 CellChangeTimes->{3.3994903161604576`*^9, 3.4134724099930096`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fitf2", "=", 
  RowBox[{"model", "/.", "fitparm"}]}]], "Input"],

Cell[BoxData[
 SuperscriptBox["10", 
  RowBox[{"1.090839229953446`", "\[InvisibleSpace]", "-", 
   RowBox[{"0.4949590579726506`", " ", "x"}]}]]], "Output",
 CellChangeTimes->{3.3994903180832224`*^9, 3.4134724123163505`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["A logistic data set", "Section"],

Cell["\<\
Now, we use FindFit to a logistic data set. Fit an apppropriate function to \
the following data set.\
\>", "Text",
 CellChangeTimes->{{3.4134732178246145`*^9, 3.4134732299220095`*^9}, {
  3.414324210973525*^9, 3.4143242152997456`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"data", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", "0.096"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.2", ",", "0.145"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.4", ",", "0.132"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.6", ",", "0.193"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.8", ",", "0.223"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1.", ",", "0.218"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1.2", ",", "0.230"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1.4", ",", "0.349"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1.6", ",", "0.324"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1.8", ",", "0.445"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2.", ",", "0.479"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2.2", ",", "0.57"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2.4", ",", "0.652"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2.6", ",", "0.663"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2.8", ",", "0.806"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3.", ",", "0.772"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3.2", ",", "0.837"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3.4", ",", "0.866"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3.6", ",", "0.938"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3.8", ",", "0.958"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"4.", ",", "0.931"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"4.2", ",", "1.04"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"4.4", ",", "0.995"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"4.6", ",", "1.047"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"4.8", ",", "1.029"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5.", ",", "0.993"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5.2", ",", "1.071"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5.4", ",", "1.078"}], "}"}]}], "}"}]}], ";"}]], "Input"],

Cell[CellGroupData[{

Cell["The data were generated by", "Th-Env"],

Cell[BoxData[
 RowBox[{
  RowBox[{"data", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"N", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{
          FractionBox[
           SuperscriptBox["4", "x"], 
           RowBox[{
            SuperscriptBox["4", "x"], "+", "20"}]], "+", 
          RowBox[{"Random", "[", 
           RowBox[{"Real", ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", "0.1"}], "}"}]}], "]"}]}]}], "}"}], ",", "2"}],
       "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "6", ",", "0.2"}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 AspectRatioFixed->True]
}, Open  ]],

Cell[CellGroupData[{

Cell["Plot the data", "Th-Env"],

Cell[CellGroupData[{

Cell["pldata=ListPlot[data, PlotRange->{0,1.2}]", "Input",
 CellChangeTimes->{3.399490392149725*^9}],

Cell[BoxData[
 GraphicsBox[
  {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGCQAWIQDQO/6rL2lEzeYT9rJgictO8/9FUjpv8QlH/T3se8
0zHh6QF7YzB4bO+XJBBhueUEVP6lvSpb41Tn7jP2ENM+2IN4Oc9PQ9V/ti+0
5bq+uOCsfRoYfLMHWibBEnYNqv+nvfLtn0AXXLE/ewYE/thXi6xzf1h1B2oe
gwOf7qa575ffg6pndAAbZ/sIaj6zQ/m++VL6d59A9bM4zHu//Ji3+VOofWwO
M/KEmg+cegk1j8MB4v4XUPM4HSDeeQU1j9sBqHih67bXUPN4HLLADn4HNY8P
6p53UPMEoOa/haoXcFhSAHLhB6j5gg4g13Jdfw/VL+TQOx2k4QPUPmEHsPVl
H6DmiTiAjT/2HmqeiAMo9C8ofYSaJ+pQnDHxbY39R3sA+jPGbw==
    "]]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  PlotRange->{0, 1.2},
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{3.3994903930109634`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Find the model", "Th-Env"],

Cell["\<\
The data likely describe a logistic growth. Such curves are solutions of a \
differential equation of form\
\>", "Text",
 TextAlignment->Left,
 TextJustification->0],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"x", "'"}], "=", 
   RowBox[{"k", " ", 
    SuperscriptBox["x", "\[Alpha]"], " ", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"A", "-", 
       SuperscriptBox["x", "\[Beta]"]}], ")"}], " ", "."}]}]}], 
  TraditionalForm]], "Input",
 CellChangeTimes->{3.4134734491772833`*^9},
 TextAlignment->Center,
 TextJustification->0],

Cell[TextData[{
 "The solutions of the simplest logistic equation ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"x", "'"}], "=", 
    RowBox[{"k", " ", "x", " ", 
     RowBox[{"(", 
      RowBox[{"A", "-", "x"}], ")"}]}]}], TraditionalForm]]],
 "  are of form"
}], "Text",
 CellChangeTimes->{{3.41347344288824*^9, 3.413473446413309*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"model", "=", 
   FractionBox[
    RowBox[{"A", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"k", " ", "A", " ", "t"}]]}], 
    RowBox[{
     FractionBox[
      RowBox[{"A", "-", "x0"}], "x0"], "+", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"k", " ", "A", " ", "t"}]]}]]}], ";"}]], "Input",
 TextAlignment->Center,
 TextJustification->0,
 FontColor->RGBColor[0, 0, 1]],

Cell[TextData[{
 "where ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "0"], TraditionalForm]]],
 " is the initial value of the process at ",
 Cell[BoxData[
  FormBox[
   RowBox[{"t", "=", "0"}], TraditionalForm]]],
 ". ",
 "Check the shape of the model: "
}], "Text",
 CellChangeTimes->{{3.413473462286133*^9, 3.41347349396168*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Evaluate", "[", 
    RowBox[{"model", "/.", "\[InvisibleSpace]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"A", "\[Rule]", "1"}], ",", 
       RowBox[{"k", "\[Rule]", "2"}], ",", 
       RowBox[{"x0", "\[Rule]", "0.2"}]}], "}"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "4"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{3.399490405679179*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVx38803kcwPFtkSGGfmgY50f1uNTpQalc7f0Rd37060QXDz/qFPlVLemo
Hj3YHtTdUHLKiqKiu9KsUB53wsrSY5ShrqUbsuTHxr5Dy6/Yfb5/vB6vx9Mx
+tieGBqFQtmFIx8YM9QhHj7JLrtU1XH1qhQMfGw4vcwQ6FnOiD51RwoeJYLi
auYhyIqqaY2slsL2V/Kq68wUOH2v2HXDKynsOzRZn8/MhGeJXU721Bbodjvv
k8ssgPqVUouu+BYoXbr7HJ9ZBkJOqWCC3QpcevWq35k1sP3m+IV/Jl9CaNhN
kXZMArQPxuJXp9vBVM+N8LOXQZ89b0NeeiesCNIMNWW/gQnv5cNjxW8gtW0z
CD53wbXsMtqwiRysayx7qNRe8NLczixL6ILHSp+Xsi1KqH/yXlG6WAHPEq7b
ho30wwo3Oy5q6AHdyq0M4ZFBeJ6KgktLPgBtusLCdoUKCpts8uVTfeCpP/A4
uHIEZOsEW5vXf4SXmevbmlcTcLc2TTJ2oB8c8tTTdzVaqOUrjTiCT6Ce7O35
d9045KRNmS2rGIAyVV2L+YUJENlG05lPB8Gc9SfR3/8ZZEHcczeeDEFO/KPY
UpcvwLbwFSf9MQxfUEV/XPoksI/5+b+IVUGKu6RmWdMUHFztn/zdcjX0Vkqy
OxxnIC5ZxBA2qWE24U3Rt6dnAT0XL9kTOgKu3kbzsXVf4e+3+4IqOkfA75bj
4YfW88DxqF1r6jcKqaz9Tn0RerhImVraVT4Ka0b2msp3UlCsHe+q4+QoLGZo
6ZIZCnII55kKfTRg0Fgkci6mooY4RD3G1UDi+rou4+00pKW2brGv00BFQHRp
wxcautTWzi1Qa0CntrEYuLIADf/ytpljRcCjYL8FBb4GKCixhVLoSUC6f1ZJ
zYABMuYnmf0aTIBjd+C721mG6GRhErsjkQCvjZkFTPeFKDyhZ+Yoj4AIe9k0
9fVC5JH0cfBEAQG6llwlh2uEhjo+7rIrJ0BgEJWyx4WOtAf5+WFVBCzueXSL
JqGjPq+YwrR6AgzPckM2HzdGejZNLn5BAOVulEhpZYK4Dk771TICkq+Jcq2e
mSA56vM7Lieg3vU3uuVRU8RF1n2ibgIsA5PX8MwXodQlZzaVKwlQrG1/ferJ
IuTR8LR14yABD26AS3+UGfqpce8nuYqASJGnJWveDFG8pCzlKAEZWTe5invm
qCC9vf6BlgDhEKvIfAcDubNCKlXjBARZmm96McNA67LF4ZOfCeAb0mwVpH8O
uExaMq2b02IX6trbSHsqu5tsZhmo8qHCewrbplq4+yh2hcPAqmlsZcjOw0u/
MhD7nXhiBjtFkHPl4BwDwcBl/jy2MCfjVBp2Q8B0E+mBjJSIXOwYXvgc6dD4
CKda7B9P2HH02Fu91lSazDPQWHDeXoqOgIWK1ucPsX9Yhr6hYUN741/N2CxZ
XhjpNEl19n/Y6ZEf8kmr7hcFGeoZSDdzxnABdtvZxO5Q7NDN5SrSRsn7xUew
nUpGnA2wUWzwbR72nffukaSrdn0ffx97vLNORlq9zW3HU+zmi/N0Q2yXjc5u
b7GTnNA20lGu1lZqbBU/4wzpQgdTnR7bV9pYQ/p/ta107g==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  ImageSize->{268.66666666666646`, Automatic},
  PlotRange->{{0, 4}, {0, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], Automatic}]], "Output",
 CellChangeTimes->{3.39949040650036*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["The fitting", "Th-Env"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fitparm", "=", 
  RowBox[{"FindFit", "[", 
   RowBox[{"data", ",", "model", ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"k", ",", "0.5"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"A", ",", "0.5"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"x0", ",", "0.3"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", "t", "}"}], ",", 
    RowBox[{"AccuracyGoal", "\[Rule]", "15"}], ",", 
    RowBox[{"EvaluationMonitor", "\[Rule]", "True"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.3994904190784464`*^9, 3.3994904198295264`*^9}, {
  3.399490466136112*^9, 3.39949047518913*^9}, {3.399490616622501*^9, 
  3.3994906368415747`*^9}, {3.399490732248763*^9, 3.399490733841053*^9}},
 AspectRatioFixed->True],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"k", "\[Rule]", "1.050956819534392`"}], ",", 
   RowBox[{"A", "\[Rule]", "1.0880091375262002`"}], ",", 
   RowBox[{"x0", "\[Rule]", "0.0870080888337304`"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.3994904762206125`*^9, {3.3994906231619043`*^9, 3.399490638053317*^9}, 
   3.3994907353732557`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fitf", "=", 
  RowBox[{"model", "/.", "fitparm"}]}]], "Input",
 CellChangeTimes->{{3.39949074098132*^9, 3.3994907474005504`*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{"1.0880091375262002`", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"1.143450622798892`", " ", "t"}]]}], 
  RowBox[{"11.50468953070961`", "\[InvisibleSpace]", "+", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"1.143450622798892`", " ", "t"}]]}]]], "Output",
 CellChangeTimes->{3.399490748381962*^9}]
}, Open  ]],

Cell["\<\
Compare the results with the parameters used in generating the data. Try to \
explain the difference. Pay attention to the random part of the function.\
\>", "Text",
 CellChangeTimes->{{3.4134735398176174`*^9, 3.4134735469979424`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[" The graph of the fitting function", "Th-Env"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"plfit", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{"fitf", ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "6"}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{"Show", "[", 
  RowBox[{"plfit", ",", "pldata", ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1.2"}], "}"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.399490647546968*^9, 3.3994906554984016`*^9}, 
   3.3994906983299904`*^9, 3.399490758907096*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVy3k81Hkcx/FxSzPOMbOkFpnJsbvsah21fL7YTMhRydCoRetM0lBGJA9y
9DC0Rj02zUPy6FDbZbKN2mqKzdFhSolqjcnVrBHzm9Vmh2X2u3+8H6/H84+3
Q9LeLcm6JBIpAu///hOW1RC1t9hf9sC1xSVYDOU/rnF+xtwJG8mpdl6bxdA7
M55RzcyCyjyPo6x4MRCtQfxMZhHse1W3O58rhhLarF08swZaVZ1lNo1ieNId
OrGVeRpCD59v2qQRw94zBx5FMq8BQxJOqRK1QTuffyecKYG4gNudvV/fBgND
rtFkxjOQTytu6dy/CyGHE8tuxgzCIH284vt1D6AtP1l2vm8YUOG4y37/Dniz
fbc7N28MNFxp8+wvD8GCVZ3SjhSgYZvqL7l0g3l/8g1vzhR43KsYuen4GFbb
Z14qS1LBDu2wWU50L/jI9jwJEKhBc0V57BTrObTPF2/qF86C/Nap6nTXF5B2
v6dHUvI3eCzvm6sh90P9rmZb64Q5SA88G6MhDcCXsSOflpI1wLI3pcF3r2F4
NlKKQhZg31n3hkNpb+EvuY0HbdsiHFwIOGT1egh+unwwlc3WQqh+ec7VMDkw
zYzDeUISepQriL4ufQfi7OLLNY06KHf/Aamd5Sj0M+qMNgt0kW3ggH2u/xg4
lb503lGvh0T3ByJ1D4+Db5R8baNQH1XwqzLuiSZAll3mX803QJ/XH/eJ7HoP
N3zjKJ21hkgmHCzNnlAALab7zcUyI2RInpMMjf0JMEqq7cg1RkmVzm0bnk1C
PS2NwuQtQy+tZhBZooSS0+kV32aYIK3xLWkvfwoapCe7arKXIweKIHA95wMc
yqojVnLJKNOL8WY9dRqmEp0/i0uiIPILleSAaBqqFpX6wymmSF6oM/0xbAZ+
+8BSmW43Q/sWvZfP9M7AAMNndJ2TOSo3e7esH6kgzWWXe915czRyhVFa0KKC
9hhOQcAqCyTTKdWKDAnwjFVeojZZoGDqYAzXk4DM0uBBvxWWSL/Dpo8bS0Bl
ivG8Tp0lCjr3IuUyj4B7KxO1SqoV+sp+7nHlzwTcXirXc62xQvHNDjaKFgKk
rUHKagsqCrLgLJg+IqDTPqWLL6CiK21nmrtlBBxp29Y0YmKNKMqwQMkMAfGO
Qzs51dao65O/4I8lAhbE7ivcjGiIrwhz0COroVBv8umJIhqSRu0+F0tXA83J
N5FBoqNW6sMIW0c15GXFfDTJp6Nfp675DLuqQc03ybD+l44Uoyd/X+OpBrsj
AVQGtsfWquvO2KwCnmQttvfdfKELdkP6e8to7B5eaI4bdkhwxx0B9quGO47u
2E3afIr5Ih01Xhgq9sLezJ1sMVmiI2M323UbsAvT7Tm22Lz+KkYwdnMC28AV
+ylPY87CXozojAvBTr7Ro9iIfcmtSbcS22/K68QmbJ2J2GgDLf6XbFFtxf5i
6NgSFfub0dK30djsl10XnbDH/ESd27Cvtq9dDMLOnNQK2dhxp80vlGDPW+7Z
yME+coIVJcAOji7yjMe+zi+ab8K2EFSt2oFtUPAhoh07Ve/Ux53YHtzVmufY
dG+h/AdsTvr2s++wj6aefJyAXZ5QG05g9x2vvZmILWL3zGmxtZLyM0nY/wGI
Z0uS
      "]]}}, 
   {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGCQAWIQDQO/6rL2lEzeYT9rJgictO8/9FUjpv8QlH/T3se8
0zHh6QF7YzB4bO+XJBBhueUEVP6lvSpb41Tn7jP2ENM+2IN4Oc9PQ9V/ti+0
5bq+uOCsfRoYfLMHWibBEnYNqv+nvfLtn0AXXLE/ewYE/thXi6xzf1h1B2oe
gwOf7qa575ffg6pndAAbZ/sIaj6zQ/m++VL6d59A9bM4zHu//Ji3+VOofWwO
M/KEmg+cegk1j8MB4v4XUPM4HSDeeQU1j9sBqHih67bXUPN4HLLADn4HNY8P
6p53UPMEoOa/haoXcFhSAHLhB6j5gg4g13Jdfw/VL+TQOx2k4QPUPmEHsPVl
H6DmiTiAjT/2HmqeiAMo9C8ofYSaJ+pQnDHxbY39R3sA+jPGbw==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{0, 1.2},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.399490656309568*^9, 3.399490699151171*^9, {3.3994907533991756`*^9, 
   3.399490761711128*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[" Problem to solve", "Th-Env",
 CellChangeTimes->{{3.4143242707094207`*^9, 3.4143242866523457`*^9}}],

Cell["\<\
Try to find linearizing transformation for the logistic data set.  \
\>", "Text",
 CellChangeTimes->{{3.4143242888755426`*^9, 3.4143243201304846`*^9}}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Use the model fitting statements", "MainSection",
 CellChangeTimes->{{3.494004080703125*^9, 3.49400409221875*^9}}],

Cell["\<\
See also :
\tLinearModelFit
 \tGeneralizedLinearModelFit\
\>", "Text-Framed",
 CellMargins->{{50., 133.33333333333331`}, {7., 7.}},
 CellChangeTimes->{{3.49400516046875*^9, 3.494005189328125*^9}},
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell["NonlinearModelFit", "Section",
 CellChangeTimes->{{3.49400438309375*^9, 3.4940043875625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"data", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", "0.096"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.2", ",", "0.145"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.4", ",", "0.132"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.6", ",", "0.193"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.8", ",", "0.223"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1.", ",", "0.218"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1.2", ",", "0.230"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1.4", ",", "0.349"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1.6", ",", "0.324"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1.8", ",", "0.445"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2.", ",", "0.479"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2.2", ",", "0.57"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2.4", ",", "0.652"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2.6", ",", "0.663"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2.8", ",", "0.806"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3.", ",", "0.772"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3.2", ",", "0.837"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3.4", ",", "0.866"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3.6", ",", "0.938"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3.8", ",", "0.958"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"4.", ",", "0.931"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"4.2", ",", "1.04"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"4.4", ",", "0.995"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"4.6", ",", "1.047"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"4.8", ",", "1.029"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5.", ",", "0.993"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5.2", ",", "1.071"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5.4", ",", "1.078"}], "}"}]}], "}"}]}], ";"}]], "Input"],

Cell[CellGroupData[{

Cell["The data were generated by", "Th-Env"],

Cell[BoxData[
 RowBox[{
  RowBox[{"data", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"N", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{
          FractionBox[
           SuperscriptBox["4", "x"], 
           RowBox[{
            SuperscriptBox["4", "x"], "+", "20"}]], "+", 
          RowBox[{"Random", "[", 
           RowBox[{"Real", ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", "0.1"}], "}"}]}], "]"}]}]}], "}"}], ",", "2"}],
       "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "6", ",", "0.2"}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 AspectRatioFixed->True]
}, Open  ]],

Cell[CellGroupData[{

Cell["Plot the data", "Th-Env"],

Cell[CellGroupData[{

Cell["pldata=ListPlot[data, PlotRange->{0,1.2}]", "Input",
 CellChangeTimes->{3.399490392149725*^9}],

Cell[BoxData[
 GraphicsBox[
  {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGCQAWIQDQO/6rL2lEzeYT9rJgictO8/9FUjpv8QlH/T3se8
0zHh6QF7YzB4bO+XJBBhueUEVP6lvSpb41Tn7jP2ENM+2IN4Oc9PQ9V/ti+0
5bq+uOCsfRoYfLMHWibBEnYNqv+nvfLtn0AXXLE/ewYE/thXi6xzf1h1B2oe
gwOf7qa575ffg6pndAAbZ/sIaj6zQ/m++VL6d59A9bM4zHu//Ji3+VOofWwO
M/KEmg+cegk1j8MB4v4XUPM4HSDeeQU1j9sBqHih67bXUPN4HLLADn4HNY8P
6p53UPMEoOa/haoXcFhSAHLhB6j5gg4g13Jdfw/VL+TQOx2k4QPUPmEHsPVl
H6DmiTiAjT/2HmqeiAMo9C8ofYSaJ+pQnDHxbY39R3sA+jPGbw==
    "]]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  PlotRange->{0, 1.2},
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{3.3994903930109634`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["The model is as before", "Th-Env",
 CellChangeTimes->{{3.494004945984375*^9, 3.4940049503125*^9}}],

Cell["\<\
The data likely describe a logistic growth. Such curves are solutions of a \
differential equation of form\
\>", "Text",
 TextAlignment->Left,
 TextJustification->0],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"x", "'"}], "=", 
   RowBox[{"k", " ", 
    SuperscriptBox["x", "\[Alpha]"], " ", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"A", "-", 
       SuperscriptBox["x", "\[Beta]"]}], ")"}], " ", "."}]}]}], 
  TraditionalForm]], "Input",
 CellChangeTimes->{3.4134734491772833`*^9},
 TextAlignment->Center,
 TextJustification->0],

Cell[TextData[{
 "The solutions of the simplest logistic equation ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"x", "'"}], "=", 
    RowBox[{"k", " ", "x", " ", 
     RowBox[{"(", 
      RowBox[{"A", "-", "x"}], ")"}]}]}], TraditionalForm]]],
 "  are of form"
}], "Text",
 CellChangeTimes->{{3.41347344288824*^9, 3.413473446413309*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"model", "=", 
   FractionBox[
    RowBox[{"A", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"k", " ", "A", " ", "t"}]]}], 
    RowBox[{
     FractionBox[
      RowBox[{"A", "-", "x0"}], "x0"], "+", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"k", " ", "A", " ", "t"}]]}]]}], ";"}]], "Input",
 TextAlignment->Center,
 TextJustification->0,
 FontColor->RGBColor[0, 0, 1]],

Cell[TextData[{
 "where ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "0"], TraditionalForm]]],
 " is the initial value of the process at ",
 Cell[BoxData[
  FormBox[
   RowBox[{"t", "=", "0"}], TraditionalForm]]],
 ". ",
 "Check the shape of the model: "
}], "Text",
 CellChangeTimes->{{3.413473462286133*^9, 3.41347349396168*^9}, {
  3.6006163816826963`*^9, 3.600616384795701*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["The fitting", "Th-Env"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fitted", "=", 
  RowBox[{"NonlinearModelFit", "[", 
   RowBox[{"data", ",", "model", ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"k", ",", "0.5"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"A", ",", "0.5"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"x0", ",", "0.3"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", "t", "}"}], ",", 
    RowBox[{"MaxIterations", "\[Rule]", "10000"}], ",", 
    RowBox[{"PrecisionGoal", "\[Rule]", "4"}], ",", 
    RowBox[{"AccuracyGoal", "\[Rule]", "4"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.49400441725*^9, 3.494004445515625*^9}, {
  3.494004520265625*^9, 3.4940045316875*^9}, {3.4940045911875*^9, 
  3.494004593953125*^9}}],

Cell[BoxData[
 RowBox[{"FittedModel", "[", 
  PanelBox[
   TagBox[
    FractionBox[
     RowBox[{
      RowBox[{"\[LeftSkeleton]", "19", "\[RightSkeleton]"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}]]}], 
     RowBox[{
      RowBox[{"\[LeftSkeleton]", "18", "\[RightSkeleton]"}], 
      "\[InvisibleSpace]", "+", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}]]}]],
    Short],
   FrameMargins->5], "]"}]], "Output",
 CellChangeTimes->{
  3.494004539578125*^9, {3.494004574234375*^9, 3.494004595171875*^9}}]
}, Open  ]],

Cell[CellGroupData[{

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

Cell[BoxData[
 FractionBox[
  RowBox[{"1.0880112540559435`", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"1.1434229728014338`", " ", "t"}]]}], 
  RowBox[{"11.50394202138327`", "\[InvisibleSpace]", "+", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"1.1434229728014338`", " ", "t"}]]}]]], "Output",
 CellChangeTimes->{3.494004628390625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Normal", "[", "fitted", "]"}]], "Input",
 CellChangeTimes->{{3.494004651328125*^9, 3.49400465575*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{"1.0880112540559435`", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"1.1434229728014338`", " ", "t"}]]}], 
  RowBox[{"11.50394202138327`", "\[InvisibleSpace]", "+", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"1.1434229728014338`", " ", "t"}]]}]]], "Output",
 CellChangeTimes->{3.494004657078125*^9}]
}, Open  ]],

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\"\>"},
       {"k", "1.050929361749636`", "0.06404635373925527`", 
        "16.40888669522338`", "6.787221871665004`*^-15"},
       {"A", "1.0880112540559435`", "0.018245493199537555`", 
        "59.63178096405308`", "1.7754543531591658`*^-28"},
       {"x0", "0.08701345961100197`", "0.008309071837863443`", 
        "10.472103420082624`", "1.2536932597236127`*^-10"}
      },
      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.9983180822121487`", ",", 
   "0.9981162520776066`"}], "}"}]], "Output",
 CellChangeTimes->{3.494004673375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Correlation", "[", 
  RowBox[{
   RowBox[{"fitted", "[", "\"\<Response\>\"", "]"}], ",", 
   RowBox[{"fitted", "[", "\"\<PredictedResponse\>\"", "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.494004700703125*^9, 3.494004702609375*^9}}],

Cell[BoxData["0.9961956134190971`"], "Output",
 CellChangeTimes->{3.494004703421875*^9}]
}, Open  ]],

Cell[CellGroupData[{

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

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.008986540388998043`", ",", "0.037831053019435915`", ",", 
   "0.0006195906943398111`", ",", "0.03283151244848995`", ",", 
   "0.029014534180510893`", ",", 
   RowBox[{"-", "0.015148235582609249`"}], ",", 
   RowBox[{"-", "0.047760985549367946`"}], ",", "0.02136142826557813`", ",", 
   RowBox[{"-", "0.05824731312403375`"}], ",", "0.004317181561435179`", ",", 
   RowBox[{"-", "0.022701257662997687`"}], ",", "0.006190231720666239`", ",", 
   "0.02659441424330733`", ",", 
   RowBox[{"-", "0.02193799041996103`"}], ",", "0.06494064728181714`", ",", 
   RowBox[{"-", "0.02073533090984503`"}], ",", 
   RowBox[{"-", "0.0022977249616991102`"}], ",", 
   RowBox[{"-", "0.014440207893314128`"}], ",", "0.02182969423117842`", ",", 
   "0.011263090297263911`", ",", 
   RowBox[{"-", "0.04155161551188191`"}], ",", "0.045882913275510306`", ",", 
   RowBox[{"-", "0.01696951365526711`"}], ",", "0.020362846233293874`", ",", 
   RowBox[{"-", "0.009613666808662602`"}], ",", 
   RowBox[{"-", "0.0553433907550277`"}], ",", "0.014784656102786231`", ",", 
   "0.015436944413715237`"}], "}"}]], "Output",
 CellChangeTimes->{3.4940047250625*^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:eJzt090rw1EYwPEfFxpXU4q0i1lLizV7MRuTPYuolZIo7UJrEpFQSxE63pKL
mfelWduYuDBvRVzIIuWOxo1cWDKSVmqFmvLSHhee/0A5dTp9ft/nXP06WZb2
6sZEjuNqvvb3GV/P+oB1njfWNKjHD7B4FOt31C+hecDtdd6yyjI0H3zSvoDx
zINOg7qHlbb3HRc6AwJR03Fykv0wbgH4xE8HQusqWgjn7ry8k5tZnBeBOTc8
4Aj6sYsBjKH5u/VO7NnAWl8WPkoc2CXAEvbWIqZu7DkQ8u5HJnROtBSYeNr1
2DWH8zJoXjWURd2b2OXAvMPMp5vFrgBOm7ntD1rQSuBcivDFlA2tgsC9JjZi
msP7+cCVXjZkpo6i1SC3dFxD+TLOF4CnOpL+2reCXQMh/+6p1TyJXQvQy3o+
rmawFwIbrByu2RzCXgRVzRspb7VraB2wLlu0pWIc54uBbRmcTS67/uf/cb8X
/CaPmE+cRpxBLCAWEouIxcTZxBLiHGIpsYxYTqwgVhKriPOJ1cQFxBpiLXEh
cRGxjriY+P/9/dX39wnm3BKG
   "], {{{}, {}, {}, 
     {Hue[0.67, 0.6, 0.6], Opacity[0.2], LineBox[{34, 6}], LineBox[{35, 7}], 
      LineBox[{37, 9}], LineBox[{39, 11}], LineBox[{42, 14}], 
      LineBox[{44, 16}], LineBox[{45, 17}], LineBox[{46, 18}], 
      LineBox[{49, 21}], LineBox[{51, 23}], LineBox[{53, 25}], 
      LineBox[{54, 26}]}, 
     {Hue[0.67, 0.6, 0.6], Opacity[0.2], LineBox[{29, 1}], LineBox[{30, 2}], 
      LineBox[{31, 3}], LineBox[{32, 4}], LineBox[{33, 5}], LineBox[{36, 8}], 
      LineBox[{38, 10}], LineBox[{40, 12}], LineBox[{41, 13}], 
      LineBox[{43, 15}], LineBox[{47, 19}], LineBox[{48, 20}], 
      LineBox[{50, 22}], LineBox[{52, 24}], LineBox[{55, 27}], 
      LineBox[{56, 28}]}}, {{}, 
     {Hue[0.67, 0.6, 0.6], 
      PointBox[{57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 
       72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84}]}, {}}}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0., 28.}, {-0.05824731312403375, 0.06494064728181714}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.4940050879375*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"fitband", "[", "t_", "]"}], "=", 
    RowBox[{"fitted", "[", 
     RowBox[{"\"\<MeanPredictionBands\>\"", ",", 
      RowBox[{"ConfidenceLevel", "\[Rule]", "0.95"}]}], "]"}]}], 
   ";"}]}]], "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}}],

Cell[CellGroupData[{

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

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "23.6928121016775`"}], " ", 
       RowBox[{"\[Sqrt]", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"3.4302689184043014`", " ", "t"}]], " ", 
             RowBox[{"(", 
              RowBox[{"0.0249893659689226`", "\[InvisibleSpace]", "-", 
               RowBox[{"0.018232239241709858`", " ", "t"}], "+", 
               RowBox[{"0.`", " ", 
                SuperscriptBox["t", "2"]}]}], ")"}]}], "+", 
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"4.573691891205735`", " ", "t"}]], " ", 
             RowBox[{"(", 
              RowBox[{"0.0003328980220943712`", "\[InvisibleSpace]", "+", 
               RowBox[{"0.`", " ", "t"}], "+", 
               RowBox[{"0.`", " ", 
                SuperscriptBox["t", "2"]}]}], ")"}]}], "+", 
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2.2868459456028676`", " ", "t"}]], " ", 
             RowBox[{"(", 
              RowBox[{"1.662368340366982`", "\[InvisibleSpace]", "-", 
               RowBox[{"1.612278510594535`", " ", "t"}], "+", 
               RowBox[{"0.463280073757503`", " ", 
                SuperscriptBox["t", "2"]}]}], ")"}]}]}], ")"}], "/", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"11.50394202138327`", "\[InvisibleSpace]", "+", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"1.1434229728014338`", " ", "t"}]]}], ")"}], "4"]}], 
         ")"}]}]}], "+", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"1.1434229728014338`", " ", "t"}]], " ", 
       RowBox[{"(", 
        RowBox[{"1.0880112540559435`", "\[InvisibleSpace]", "-", 
         RowBox[{"2.0595385527532937`", " ", 
          RowBox[{"\[Sqrt]", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"3.4302689184043014`", " ", "t"}]], " ", 
                RowBox[{"(", 
                 RowBox[{"0.0249893659689226`", "\[InvisibleSpace]", "-", 
                  RowBox[{"0.018232239241709858`", " ", "t"}], "+", 
                  RowBox[{"0.`", " ", 
                   SuperscriptBox["t", "2"]}]}], ")"}]}], "+", 
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"4.573691891205735`", " ", "t"}]], " ", 
                RowBox[{"(", 
                 RowBox[{"0.0003328980220943712`", "\[InvisibleSpace]", "+", 
                  RowBox[{"0.`", " ", "t"}], "+", 
                  RowBox[{"0.`", " ", 
                   SuperscriptBox["t", "2"]}]}], ")"}]}], "+", 
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2.2868459456028676`", " ", "t"}]], " ", 
                RowBox[{"(", 
                 RowBox[{"1.662368340366982`", "\[InvisibleSpace]", "-", 
                  RowBox[{"1.612278510594535`", " ", "t"}], "+", 
                  RowBox[{"0.463280073757503`", " ", 
                   SuperscriptBox["t", "2"]}]}], ")"}]}]}], ")"}], "/", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"11.50394202138327`", "\[InvisibleSpace]", "+", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"1.1434229728014338`", " ", "t"}]]}], ")"}], "4"]}], 
            ")"}]}]}]}], ")"}]}]}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{"11.50394202138327`", "\[InvisibleSpace]", "+", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"1.1434229728014338`", " ", "t"}]]}], ")"}]}], ",", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"23.6928121016775`", " ", 
       RowBox[{"\[Sqrt]", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"3.4302689184043014`", " ", "t"}]], " ", 
             RowBox[{"(", 
              RowBox[{"0.0249893659689226`", "\[InvisibleSpace]", "-", 
               RowBox[{"0.018232239241709858`", " ", "t"}], "+", 
               RowBox[{"0.`", " ", 
                SuperscriptBox["t", "2"]}]}], ")"}]}], "+", 
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"4.573691891205735`", " ", "t"}]], " ", 
             RowBox[{"(", 
              RowBox[{"0.0003328980220943712`", "\[InvisibleSpace]", "+", 
               RowBox[{"0.`", " ", "t"}], "+", 
               RowBox[{"0.`", " ", 
                SuperscriptBox["t", "2"]}]}], ")"}]}], "+", 
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2.2868459456028676`", " ", "t"}]], " ", 
             RowBox[{"(", 
              RowBox[{"1.662368340366982`", "\[InvisibleSpace]", "-", 
               RowBox[{"1.612278510594535`", " ", "t"}], "+", 
               RowBox[{"0.463280073757503`", " ", 
                SuperscriptBox["t", "2"]}]}], ")"}]}]}], ")"}], "/", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"11.50394202138327`", "\[InvisibleSpace]", "+", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"1.1434229728014338`", " ", "t"}]]}], ")"}], "4"]}], 
         ")"}]}]}], "+", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"1.1434229728014338`", " ", "t"}]], " ", 
       RowBox[{"(", 
        RowBox[{"1.0880112540559435`", "\[InvisibleSpace]", "+", 
         RowBox[{"2.0595385527532937`", " ", 
          RowBox[{"\[Sqrt]", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"3.4302689184043014`", " ", "t"}]], " ", 
                RowBox[{"(", 
                 RowBox[{"0.0249893659689226`", "\[InvisibleSpace]", "-", 
                  RowBox[{"0.018232239241709858`", " ", "t"}], "+", 
                  RowBox[{"0.`", " ", 
                   SuperscriptBox["t", "2"]}]}], ")"}]}], "+", 
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"4.573691891205735`", " ", "t"}]], " ", 
                RowBox[{"(", 
                 RowBox[{"0.0003328980220943712`", "\[InvisibleSpace]", "+", 
                  RowBox[{"0.`", " ", "t"}], "+", 
                  RowBox[{"0.`", " ", 
                   SuperscriptBox["t", "2"]}]}], ")"}]}], "+", 
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2.2868459456028676`", " ", "t"}]], " ", 
                RowBox[{"(", 
                 RowBox[{"1.662368340366982`", "\[InvisibleSpace]", "-", 
                  RowBox[{"1.612278510594535`", " ", "t"}], "+", 
                  RowBox[{"0.463280073757503`", " ", 
                   SuperscriptBox["t", "2"]}]}], ")"}]}]}], ")"}], "/", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"11.50394202138327`", "\[InvisibleSpace]", "+", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"1.1434229728014338`", " ", "t"}]]}], ")"}], "4"]}], 
            ")"}]}]}]}], ")"}]}]}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{"11.50394202138327`", "\[InvisibleSpace]", "+", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"1.1434229728014338`", " ", "t"}]]}], ")"}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.494004903484375*^9, 3.4940049146875*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Append", "[", 
    RowBox[{
     RowBox[{"fitband", "[", "t", "]"}], ",", 
     RowBox[{"fitted", "[", "t", "]"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "4"}], "}"}]}], "]"}]], "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}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVzn8803kcwPFttvwq36RoOmnVrl8cSqS63p/YHbV0EaFDkuicOrl+0HW5
aYtTM90Dk18Rp+scM9vUI+uIpVL5NbWUNqG1bPv6cbSk7OqP1+P574sW/VPg
QRKBQPD/1Ge3H9R0Nb05vqXy3Mpq4ishkH3sE1XUIDB1JPBFWiGsu5xfJKLG
AJtx6V7cuBCYjxR1xdRjQNqbTVEYhRASY7j1B5UNDWts33Xa18ELl3QfLjUH
GvY8Za4LqIPSBd+dy6RWgIPfovn1jXXAMhOt+J0qhtYeNkdRLoLQsDLB6JgM
dOJJepRYApZGVrjv4g6IPdPPW9J+HegBuKblfA+473+ekWR+E062e0H+RC8E
ljyvSb0mBTuxtZJIVIFgS5n8xK5GqB/wedixeQCuttD976y/Dc3xxYvCdEOg
OGJgRzxvhskvv8aqD7+GJBppZylLBqSpqrmL6MPQWDuTOD+hFTyMUfW7a3Tg
zZN2OgXfg4ds9/bW1SOwVR5L8QtsA8ds7dQ1fBTW26nIeOFD0BpUyseu4+DZ
GEHa+6IdKoYb2qyy/oNv7F4L6Dc6wcrh6sjQ0ARoT4nDJJbdcOEHSWzp8reg
z7Uvo+yRw1tUNXQo1QCw0KuD2tYDx9bKxLYt7yCaZXBzcXsCqhrZ+S7ae8hM
7FZduq2A6fiewlWnpkFYuMQxJagX1mw1nYlt+AAMfmVYrPwZ+F6hxQntZmBh
dFP6meQ+OOmwb+nLcCNMSC4GX6QowUkXbKnwJ6DDLh4mFK4KbLBRM9l7AmL2
ZE0yCvuB3FgoWFZEROPBuYKz+1/Cj+4NveZMEtp4a4zu7zkAVduiS/99S0LN
3Nxd0aaDMKm1n6vOM0EFRXX1cHcQJLt9TXIYZNTqhPO8c4Yg1Y9zWawmowRb
vv+6Xa+A9mL703IOBQ2y+L7XyWrY6MnOoa6dhQSPqFmDLWoIX9wxRZTPQqKW
CNq+o69hso07kMgyRffz8mIur9BAPjnyWOByM3S4Wbts5IEGbJSSKySZGWo/
TlE7x70Byq+sIK+j5qgpxO2J0GwYCNciBQPzLJC5NPumJH8YkgoE3HnNFsiz
Rd3l4qyFW2syzKyPWCKfXDeuzXUtWG9Pckqzmo0qOizY6a466HPulKdIZ6Od
bSnqHf/ooLYElg9FzkGhIi9j1EI9RAg8rB1m5iBNFDk/9Bc9/MYpY/X9bYWO
jFaKppV6qNY4FFrtwJC5e+9mhTsOGcWcKOVODKWX6pi+HjjEBOrpNQEYeqyj
Pqn3xOELqbTWPwRDd6oWhOdsxCGT933rhWgMcQtUrtsQDoc8Lo1ZpGDIUZU8
t4CJw1L2fD/TSgwl1EV49+7HYWbD6TmKvzB03PuZcsMBHHr1g92VVRhaPNtr
ih+DQ3aIKOJbIYYYPh+uBsXhYFwd+DNHiiFo9xi9m4BDXxevxESOoVfLalHe
SRxunDMckD/GkC6ypFWfjEPOpn2ryp9iSMaZeMA4hQPzz6/E3koMhY1sDh47
jcPN5Ef3WW8wlOpKPMhIwyHPeT0vQPfp331Mwz+Lw9GBoiDaCIY+jtvoh9k4
rNyRoGqawNCJrNATvHQcyMSeimwDhrxsa6b7M3Dol2yKj3qPoeLqYuLaTByk
8eUurh8xVBG+NSPtPA58R8tJoxFDsSDidV/A4X+U31VY
     "]], LineBox[CompressedData["
1:eJwV0vs/03scwPFhMonvlMoSzkoXSVRKHeX96fAol9QhPShSSTcU3Q6VcuaY
SYlTi06uxdlpyebao4YSGnVcjoZt5LZ2NIwPFcuUnc4Pr8fzH3jRgyN8jmqT
SCSv7/2vx1FFa/XgBefdqvLXug8FQHZZFNlL8wXWhhxzoyIBrM+5m1lKC4EL
z+MyTJ8KwLNJXJJFOw/MW5MLHBoE4BeiqrpFi4dr7BpTpkIA3XYsl2QaG2JI
0dwU6wrInb87IYmWD9b7qww8CiuAQSldcY1WBrdv1zuEV1SC/777/LHxOkjv
eGmZa/UCDDSMwB0WLdBfHLHribAalnmPKmqvt0GfS1LbIKUGopo3w93PUuhs
l/LTrtTCwjLjHi2tXuC651dP4zp4InNpbNkiA0lw9KkP94RQE5pltk8pB4FW
xAWefwNMLN9KFJ76ABITx/mfqG9Ae6qAarZsCGgf/aPy9Btho+bQkz08JTAX
D+R0q5ugMd6hWbgKg+bZYzZ1ugUsU4enuKNjoHvy29EgeisMq3p72u0/Aj+S
pNPq/BbyhyreGN38BKvWGrgz4kRgZP4Xlss/w1aZ60RqcxvcOFl+LNdqElid
0gf11A6YRAXyE7Eq4B224N68LIbz6+rKFtR+AUkDK3BtpwR6eXXXW+lqYBo6
G6cEd8J0aFuG9aVpcHL3/y0Kd4HNNr2ZYxVfwbmCb2sf1g07HtCPFy+cgS/6
L9OkRC9EmR9c0h+ogf2ul0TC3X2wWrnXQOxFQi6fqBzrBf0wjxij1KlJ6Oo6
Y9OluB/ILzL4SzO1kDNbvGabQAZhDhVSfU9tNJq+xUtx5z0UuAfnPp/URraq
rEZpmBwmhhdRB9J0kCJZTe2w/xfK9+zQYbuSkVSo7LmjPQCxbsycsgEyKifl
mopfDgC920OSx9RFXQkWJT9Hf4AfHePZtHWzUNjSmPdqRwUEWrRMaYlmoUSh
UuwpV8DEm2RZJEMPUbDtaUb6INwlB533saKgQRNi4IjjEMzrKX+gXUdBap4k
dqJxCHSvMHw3n9FHlX3jEurxYSBxg/iyubPRs9LNJDc8DGfv8ZPn1sxGloO3
3Z9dUkKVTSLF+LQB6nK9ppM2rQRjj7Or44zmoMvwtUoWPgLvbP8RXaycg8rc
zDek9I1AUTZYyYMM0Vf7lYa220fhAH+jsfmMIRoOH4tZnT8KvzLvM949MkJ/
L/II3kbGUKgwzzDaSaAE7+UJT/0xJGYxD/XsIpDvivH65fsxhPiMLON5E+hR
F/UxOwDD4srKIi8/AsWblQREBGFISgkQ3ggmUBWyC/ghBMOJjX+Mz75IICft
mLHICAxL4k3c9DgEqo86t7iJiWFmU4yh+CGB6GYNYjsWBunI+7ecAgJpiNOb
biViSPUrPbC9mEBh4fpDe69//3qVzzlmJYEmp9VUaSqGd60p2ToiAo2JrzKa
MzA8TVAdEbUT6PIaRqZNFga200HrPAmB/F45BSVmY/D8c03ZTz0E4niv7UD3
MQiim14zBglEbY+9V8jBkGa7IcVbSaC3SZwRvYcYzsgyfemYQFM26xWHuRhW
7gzvrf5MoCiZSGTyGANZqy0/VUWg3x/NfXWqEENfuVPoITWBuLVzgoQ8DJWh
eXb23whEPizOtijCkG5pMKHREKiEw2L9UozhP5IVXCU=
     "]], LineBox[CompressedData["
1:eJwVk3k41HkcxxmDcc0vVwxNdoTKVHrKIrV9vjUbSbaHyPYUJmEl0qFCY5sp
00GOdinliCZtNZtJmA6jJE13jnEkx2RGcv5+HcOgMmv/eD+v5/Xn6483Izw+
IJKkpaXlN7P/uSFyoKl28ODqb6vjq497iYHMstkrpwWC141N7977iWH5pbyC
CloEpGhTl6EgMfi+br9dSEsA1iFWpm6EGIIj1DV/0VKBwY6lCHli6HY5ycqg
5UA+81ryjhoxFFtuOpFGuwLz/Ecwrtsd4FEq5p+mVcJiV6fuEpe78PvWEtGn
z/Xw6EmnPTf2PhhpeNu95zaAxeewc9KbEnD0xwcep7fAEZXaWmDyEA6/WQF5
qg441ixgMQdrwarStEdbWw7cBM9c2411IFawXjWsUgCYbwrZMvAY6mIKbbeO
9IGPx/IfuhefwJjTL9jNuI/glF9Q7uPzFEiTwlm2jkMQ28RUdXo+BzcNW7y5
bASUQf4eugtewqtU1zdSZwJKpAZ+/zq9Brvs4cnr+CcoVsVGB8U3wLBa3tO6
9As4XrMiPWxrhCtD1S+omV/B3SGJs5neDFT6P0Rfnwpyyjjz58XJ4Myuqqhi
h3Hw9JgqiapogXEk7Is+qga1hLmqxb4NEpbVV85+PAH0UvC+xW8HeVl9ehNj
CvThVKKFWQd8i2nJX5j8DQ7tX+U/UfIOmGv0p6Oqv8OahUKWr10XeF9m/FFu
NQ0UMcIW1XfDYXqYfe92DQTasf7MCpDDopEgo3Y/LcTRbTPfsuc9mGOfKPVT
WihSp1HPdV0vkB/mi+YVaCPrg27xChMF7Hat7jDwJaEc5/P3LvYrQOgTXvxg
nIQS6y5Qi+4pYWzYZlb/OR20JrdNacjpg6rN3jo5v5JRY1Kce6zvBzi6nn+p
sp+MzqbbLtc16AdG94a3Ar4uCiN3fj/+oB883VNzaMv0UObECw8i5SNsn9sw
qS3TQ3PXlXJanQdg7EWGYi9PHw2uDd+VLR+APHJoQoADBQl3/0i9zhsE856q
y6R6CtppRtw2tRkC3RRe4Ip9Bmh1wdng3jtDoHU9VKQwM0S97pHd06xh2H9R
lGFWZ4iYW2oyVLJhqGGeopjuMUJYXMizwK0jYLph/6JjVGOUfVKHUfVmBLoW
N8qSJMaIe/qlyR6vUbhVBA59oSaI+WWpnrdoFEJEbqb0aRM0FJWcVofhwOWX
8LpuUFEhfyKtaB8ONwfo+dSNGHpWd7T3qRSHU4V8ds9vGMKVuIH7MxwiAkYd
y/wxhCIsH5U+x2GORHLLLxhDpUplJ+8VDmlZ26Rnwmc8Tl/q2oxDtNuFz4ZJ
GCrbm8zld+Ngn2qxXv8qhmxyo11kX3GY9uCYtF/D0Msl/ttcx3DoGFU2XxVi
CMuUWeeO45AdXBHiVY6ht+0kn6BJHDTOAQf4EgzZfsjjNk7j0NWUVaQjw9BQ
itWO2wYE3D2h3ilrxVClNKvc2IiAnJVhCwVvMZThaJ0bZUyAb+mSyrU9GOL+
dMeShhFwP/H1c97gTO+xWk2iBQHnFv+cNXN9JJL7DjdYErBPURDIIDB0JEsQ
42RFwIKNsfJaFYYOe8x2bKYRQNZuuZKtxlAUm82eb0vA+6qVMewpDAk8Wl04
cwiQxAhclv7AUEvomb8b6QSctzMa02gwZHygMN3BjoD/ALk5RHw=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 4}, {0., 0.9904129645412552}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.49400489159375*^9, 3.494004920859375*^9}}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
ScreenStyleEnvironment->"SlideShow",
WindowSize->{1473, 821},
WindowMargins->{{-1528, Automatic}, {57, Automatic}},
PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
ShowCellLabel->True,
ShowCellTags->False,
Magnification:>FEPrivate`If[
  FEPrivate`Equal[FEPrivate`$VersionNumber, 6.], 1.25, 1.25 Inherited],
FrontEndVersion->"10.4 for Microsoft Windows (64-bit) (April 11, 2016)",
StyleDefinitions->"Modelbookstyle.nb",
PrivateNotebookOptions -> {"ColorPalette" -> {RGBColor, -1}},
RenderingOptions -> {"ObjectDithering" -> True},
RenderingOptions -> {"RasterDithering" -> False}
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "SlideShowHeader"->{
  Cell[32739, 793, 64, 1, 1, "SlideShowNavigationBar",
   CellTags->"SlideShowHeader"],
  Cell[66832, 1496, 64, 1, 1, "SlideShowNavigationBar",
   CellTags->"SlideShowHeader"],
  Cell[94831, 2226, 64, 1, 1, "SlideShowNavigationBar",
   CellTags->"SlideShowHeader"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"SlideShowHeader", 173664, 4415}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 311, 9, 166, "MainTitle",
 Evaluatable->False],
Cell[CellGroupData[{
Cell[903, 35, 234, 3, 68, "MainSection"],
Cell[CellGroupData[{
Cell[1162, 42, 105, 2, 69, "Section",
 Evaluatable->False],
Cell[CellGroupData[{
Cell[1292, 48, 724, 22, 518, "Input"],
Cell[2019, 72, 2777, 50, 1981, "Output"]
}, {2}]]
}, Closed]],
Cell[CellGroupData[{
Cell[4842, 128, 99, 1, 54, "Section"],
Cell[CellGroupData[{
Cell[4966, 133, 568, 17, 493, "Input"],
Cell[5537, 152, 2764, 51, 1965, "Output"]
}, {2}]]
}, Closed]],
Cell[CellGroupData[{
Cell[8347, 209, 87, 1, 54, "Section"],
Cell[CellGroupData[{
Cell[8459, 214, 714, 22, 535, "Input"],
Cell[9176, 238, 2616, 48, 1743, "Output"]
}, {2}]]
}, Closed]],
Cell[CellGroupData[{
Cell[11838, 292, 84, 1, 54, "Section"],
Cell[CellGroupData[{
Cell[11947, 297, 752, 23, 626, "Input"],
Cell[12702, 322, 2612, 48, 1743, "Output"]
}, {2}]]
}, Closed]],
Cell[CellGroupData[{
Cell[15360, 376, 99, 1, 54, "Section"],
Cell[CellGroupData[{
Cell[15484, 381, 828, 25, 626, "Input"],
Cell[16315, 408, 2637, 49, 2322, "Output"]
}, {2}]]
}, Closed]],
Cell[CellGroupData[{
Cell[18998, 463, 102, 1, 54, "Section"],
Cell[CellGroupData[{
Cell[19125, 468, 1403, 44, 858, "Input"],
Cell[20531, 514, 3912, 70, 2933, "Output"]
}, {2}]]
}, Closed]],
Cell[CellGroupData[{
Cell[24489, 590, 132, 3, 54, "Section"],
Cell[CellGroupData[{
Cell[24646, 597, 938, 29, 627, "Input"],
Cell[25587, 628, 2651, 49, 2265, "Output"]
}, {2}]]
}, Closed]],
Cell[CellGroupData[{
Cell[28284, 683, 65, 0, 54, "Section"],
Cell[CellGroupData[{
Cell[28374, 687, 838, 26, 597, "Input"],
Cell[29215, 715, 2652, 49, 1050, "Output"]
}, {2}]]
}, Closed]],
Cell[31891, 768, 799, 19, 54, "Section"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[32739, 793, 64, 1, 1, "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[32828, 798, 97, 1, 68, "MainSection"],
Cell[32928, 801, 1040, 33, 105, "Text"],
Cell[33971, 836, 607, 19, 80, "Text"],
Cell[34581, 857, 216, 3, 59, "Text"],
Cell[CellGroupData[{
Cell[34822, 864, 180, 2, 69, "Section"],
Cell[CellGroupData[{
Cell[35027, 870, 22013, 428, 4062, "Input",
 CellID->10978248],
Cell[57043, 1300, 8917, 167, 740, "Output"]
}, {2}]]
}, Open  ]],
Cell[65984, 1471, 799, 19, 69, "Section"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[66832, 1496, 64, 1, 1, "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[66921, 1501, 37, 0, 68, "MainSection"],
Cell[66961, 1503, 535, 18, 66, "Text"],
Cell[67499, 1523, 417, 15, 126, "Text"],
Cell[CellGroupData[{
Cell[67941, 1542, 167, 3, 63, "Math-Init"],
Cell[68111, 1547, 64, 0, 463, "Text"],
Cell[68178, 1549, 724, 23, 647, "Input"],
Cell[68905, 1574, 1449, 45, 1483, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[70391, 1624, 35, 0, 65, "Section"],
Cell[70429, 1626, 495, 15, 132, "Text"],
Cell[CellGroupData[{
Cell[70949, 1645, 30, 0, 77, "Th-Env"],
Cell[70982, 1647, 439, 10, 518, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[71458, 1662, 31, 0, 77, "Th-Env"],
Cell[CellGroupData[{
Cell[71514, 1666, 78, 1, 102, "Input"],
Cell[71595, 1669, 655, 15, 702, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[72299, 1690, 87, 2, 96, "Th-Env"],
Cell[CellGroupData[{
Cell[72411, 1696, 208, 6, 140, "Input"],
Cell[72622, 1704, 247, 6, 101, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[72906, 1715, 217, 6, 127, "Input"],
Cell[73126, 1723, 5874, 102, 877, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[79037, 1830, 128, 3, 127, "Input"],
Cell[79168, 1835, 6202, 107, 877, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[85419, 1948, 55, 0, 96, "Th-Env"],
Cell[CellGroupData[{
Cell[85499, 1952, 29, 0, 127, "Input"],
Cell[85531, 1954, 91, 1, 101, "Output"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[85683, 1962, 30, 0, 65, "Section"],
Cell[85716, 1964, 207, 4, 751, "Text"],
Cell[CellGroupData[{
Cell[85948, 1972, 268, 8, 932, "Input"],
Cell[86219, 1982, 176, 4, 522, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[86432, 1991, 126, 2, 577, "Input"],
Cell[86561, 1995, 197, 5, 501, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[86795, 2005, 171, 4, 577, "Input"],
Cell[86969, 2011, 311, 8, 463, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[87317, 2024, 117, 3, 577, "Input"],
Cell[87437, 2029, 245, 6, 501, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[87731, 2041, 36, 0, 65, "Section"],
Cell[87770, 2043, 23, 0, 78, "SubProblem"],
Cell[87796, 2045, 400, 9, 585, "Input"],
Cell[88199, 2056, 23, 0, 78, "SubProblem"],
Cell[88225, 2058, 339, 8, 518, "Input"],
Cell[88567, 2068, 23, 0, 78, "SubProblem"],
Cell[88593, 2070, 1283, 31, 2012, "Input"],
Cell[89879, 2103, 23, 0, 78, "SubProblem"],
Cell[89905, 2105, 1363, 31, 1878, "Input",
 InitializationCell->True],
Cell[91271, 2138, 23, 0, 78, "SubProblem"],
Cell[91297, 2140, 1304, 26, 1683, "Input"],
Cell[92604, 2168, 23, 0, 78, "SubProblem"],
Cell[92630, 2170, 1338, 28, 1816, "Input"]
}, Closed]],
Cell[93983, 2201, 799, 19, 65, "Section"]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[94831, 2226, 64, 1, 1, "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[94920, 2231, 68, 0, 68, "MainSection"],
Cell[94991, 2233, 617, 16, 141, "Text"],
Cell[CellGroupData[{
Cell[95633, 2253, 129, 2, 47, "Math-Init"],
Cell[95765, 2257, 1449, 45, 393, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[97251, 2307, 180, 2, 54, "Section"],
Cell[CellGroupData[{
Cell[97456, 2313, 45, 0, 43, "Th-Env"],
Cell[97504, 2315, 1888, 64, 264, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[99429, 2384, 52, 0, 43, "Th-Env"],
Cell[99484, 2386, 2072, 73, 264, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[101593, 2464, 45, 0, 43, "Th-Env"],
Cell[101641, 2466, 1616, 59, 224, "Text"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[103306, 2531, 35, 0, 69, "Section"],
Cell[103344, 2533, 71, 0, 59, "Text"],
Cell[103418, 2535, 3883, 92, 980, "Input"],
Cell[CellGroupData[{
Cell[107326, 2631, 31, 0, 43, "Th-Env"],
Cell[CellGroupData[{
Cell[107382, 2635, 149, 2, 82, "Input"],
Cell[107534, 2639, 1064, 21, 328, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[108647, 2666, 53, 0, 43, "Th-Env"],
Cell[108703, 2668, 237, 6, 60, "Text"],
Cell[CellGroupData[{
Cell[108965, 2678, 135, 2, 82, "Input"],
Cell[109103, 2682, 11266, 254, 322, "Output"]
}, Open  ]],
Cell[120384, 2939, 101, 2, 59, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[120522, 2946, 36, 0, 43, "Th-Env"],
Cell[120561, 2948, 75, 0, 59, "Text"],
Cell[CellGroupData[{
Cell[120661, 2952, 161, 5, 121, "Input"],
Cell[120825, 2959, 1113, 22, 307, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[121987, 2987, 29, 0, 43, "Th-Env"],
Cell[122019, 2989, 64, 0, 59, "Text"],
Cell[CellGroupData[{
Cell[122108, 2993, 45, 0, 82, "Input"],
Cell[122156, 2995, 196, 3, 70, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[122401, 3004, 63, 0, 43, "Th-Env"],
Cell[CellGroupData[{
Cell[122489, 3008, 83, 2, 85, "Input"],
Cell[122575, 3012, 224, 4, 70, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[122848, 3022, 52, 0, 43, "Th-Env"],
Cell[CellGroupData[{
Cell[122925, 3026, 205, 5, 121, "Input"],
Cell[123133, 3033, 2838, 55, 329, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[126032, 3095, 50, 0, 69, "Section"],
Cell[CellGroupData[{
Cell[126107, 3099, 225, 7, 122, "Input"],
Cell[126335, 3108, 141, 3, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[126513, 3116, 190, 5, 82, "Input"],
Cell[126706, 3123, 253, 6, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[126996, 3134, 116, 3, 85, "Input"],
Cell[127115, 3139, 223, 4, 70, "Output"]
}, Open  ]],
Cell[127353, 3146, 46, 0, 51, "Item"],
Cell[CellGroupData[{
Cell[127424, 3150, 57, 1, 85, "Input"],
Cell[127484, 3153, 222, 4, 70, "Output"]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[127767, 3164, 58, 0, 68, "MainSection"],
Cell[127828, 3166, 660, 12, 140, "Text"],
Cell[CellGroupData[{
Cell[128513, 3182, 187, 2, 69, "Section"],
Cell[CellGroupData[{
Cell[128725, 3188, 232, 8, 124, "Input"],
Cell[128960, 3198, 195, 5, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[129192, 3208, 143, 3, 82, "Input"],
Cell[129338, 3213, 256, 6, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[129631, 3224, 87, 2, 82, "Input"],
Cell[129721, 3228, 223, 4, 70, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[129993, 3238, 38, 0, 69, "Section"],
Cell[130034, 3240, 246, 5, 59, "Text"],
Cell[130283, 3247, 2022, 60, 278, "Input"],
Cell[CellGroupData[{
Cell[132330, 3311, 44, 0, 43, "Th-Env"],
Cell[132377, 3313, 657, 22, 121, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[133071, 3340, 31, 0, 43, "Th-Env"],
Cell[CellGroupData[{
Cell[133127, 3344, 100, 1, 82, "Input"],
Cell[133230, 3347, 689, 15, 339, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[133968, 3368, 32, 0, 43, "Th-Env"],
Cell[134003, 3370, 175, 5, 59, "Text"],
Cell[134181, 3377, 371, 13, 89, "Input"],
Cell[134555, 3392, 344, 11, 59, "Text"],
Cell[134902, 3405, 430, 14, 146, "Input"],
Cell[135335, 3421, 336, 12, 59, "Text"],
Cell[CellGroupData[{
Cell[135696, 3437, 535, 15, 82, "Input"],
Cell[136234, 3454, 2042, 39, 267, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[138325, 3499, 29, 0, 43, "Th-Env"],
Cell[CellGroupData[{
Cell[138379, 3503, 751, 18, 122, "Input"],
Cell[139133, 3523, 350, 8, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[139520, 3536, 153, 3, 82, "Input"],
Cell[139676, 3541, 354, 8, 99, "Output"]
}, Open  ]],
Cell[140045, 3552, 245, 4, 100, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[140327, 3561, 52, 0, 43, "Th-Env"],
Cell[CellGroupData[{
Cell[140404, 3565, 488, 13, 122, "Input"],
Cell[140895, 3580, 2578, 51, 328, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[143522, 3637, 105, 1, 43, "Th-Env"],
Cell[143630, 3640, 161, 3, 59, "Text"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[143852, 3650, 120, 1, 68, "MainSection"],
Cell[143975, 3653, 227, 7, 158, "Text-Framed"],
Cell[CellGroupData[{
Cell[144227, 3664, 99, 1, 69, "Section"],
Cell[144329, 3667, 2022, 60, 278, "Input"],
Cell[CellGroupData[{
Cell[146376, 3731, 44, 0, 43, "Th-Env"],
Cell[146423, 3733, 657, 22, 121, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[147117, 3760, 31, 0, 43, "Th-Env"],
Cell[CellGroupData[{
Cell[147173, 3764, 100, 1, 82, "Input"],
Cell[147276, 3767, 689, 15, 339, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[148014, 3788, 104, 1, 43, "Th-Env"],
Cell[148121, 3791, 175, 5, 59, "Text"],
Cell[148299, 3798, 371, 13, 89, "Input"],
Cell[148673, 3813, 344, 11, 59, "Text"],
Cell[149020, 3826, 430, 14, 146, "Input"],
Cell[149453, 3842, 387, 13, 59, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[149877, 3860, 29, 0, 43, "Th-Env"],
Cell[CellGroupData[{
Cell[149931, 3864, 725, 18, 122, "Input"],
Cell[150659, 3884, 627, 17, 118, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[151323, 3906, 124, 2, 82, "Input"],
Cell[151450, 3910, 356, 8, 99, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[151843, 3923, 126, 2, 82, "Input"],
Cell[151972, 3927, 356, 8, 99, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[152365, 3940, 253, 6, 82, "Input"],
Cell[152621, 3948, 1133, 25, 143, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[153791, 3978, 263, 6, 82, "Input"],
Cell[154057, 3986, 88, 1, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[154182, 3992, 140, 2, 82, "Input"],
Cell[154325, 3996, 1174, 21, 182, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[155536, 4022, 243, 6, 82, "Input",
 CellID->131449341],
Cell[155782, 4030, 1819, 35, 308, "Output"]
}, Open  ]],
Cell[157616, 4068, 793, 16, 122, "Input"],
Cell[CellGroupData[{
Cell[158434, 4088, 120, 2, 82, "Input"],
Cell[158557, 4092, 7717, 173, 19370, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[166311, 4270, 988, 19, 67, "Input"],
Cell[167302, 4291, 5568, 98, 331, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

