(* Content-type: application/vnd.wolfram.mathematica *)

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

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[    363325,       7950]
NotebookOptionsPosition[    269119,       5938]
NotebookOutlinePosition[    356075,       7707]
CellTagsIndexPosition[    355995,       7702]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Logarithmic transformations
Logarithmic plots\
\>", "MainTitle",
 Evaluatable->False,
 CellHorizontalScrolling->False,
 CellChangeTimes->{{3.588222173203706*^9, 3.5882221935305414`*^9}, {
  3.588268561838146*^9, 3.5882685894581847`*^9}, {3.5888649033963394`*^9, 
  3.5888649214485717`*^9}},
 TextAlignment->Center,
 AspectRatioFixed->True],

Cell[CellGroupData[{

Cell["Problem to solve:", "MainSection",
 CellChangeTimes->{{3.5882222079605665`*^9, 3.5882222400966234`*^9}, {
  3.5888649249439774`*^9, 3.588864928610984*^9}}],

Cell[CellGroupData[{

Cell["\<\
What functions can describe the following data series?\
\>", "Section",
 CellChangeTimes->{{3.588230001570227*^9, 3.5882300424266987`*^9}, {
  3.588230264009488*^9, 3.58823026507029*^9}, {3.588230402896532*^9, 
  3.588230408996143*^9}, {3.588268226087676*^9, 3.588268226707677*^9}, {
  3.588864937020399*^9, 3.588864967746854*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"data1", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"N", "[", 
        RowBox[{
         RowBox[{
          SuperscriptBox["2", 
           RowBox[{"-", "x"}]], "+", 
          RowBox[{"Random", "[", 
           RowBox[{"Real", ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", "0.01"}], "}"}]}], "]"}]}], ",", "2"}], 
        "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "3", ",", "0.1"}], "}"}]}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"data2", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"N", "[", 
        RowBox[{
         RowBox[{
          FractionBox["1", 
           RowBox[{"1", "+", 
            RowBox[{"2", " ", "x"}]}]], "+", 
          RowBox[{"Random", "[", 
           RowBox[{"Real", ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", "0.01"}], "}"}]}], "]"}]}], ",", "2"}], 
        "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "3", ",", "0.1"}], "}"}]}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{"Row", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"ListPlot", "[", "data1", "]"}], ",", "\"\<   \>\"", ",", 
    RowBox[{"ListPlot", "[", 
     RowBox[{"data2", ",", 
      RowBox[{"PlotRange", "->", 
       RowBox[{"{", 
        RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}]}], "}"}], "]"}]}], "Input",
 CellChangeTimes->{{3.5882302611078835`*^9, 3.588230292697939*^9}, {
  3.5882303784668894`*^9, 3.5882303799176917`*^9}, {3.588230670489002*^9, 
  3.5882306723922057`*^9}, {3.588230784993203*^9, 3.588230791560815*^9}, {
  3.5882685374281116`*^9, 3.588268539898115*^9}}],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {
      RGBColor[0.24720000000000014`, 0.24, 0.6], 
      PointBox[CompressedData["
1:eJxTTMoPSmViYGCQB2IQDQNbrm4U/yD7wX7WTBDYaV/zRlWd7dtbKP+k/ZkF
H1pmPHptb2IMApftq/ZsfLnZ4RVU/qb9G6+Vx+anv7CHmPbAvnvWh4jzb59B
1T+29z4gonfA7ql9ehoIPLM/y2dx0HnrY6j+l/a3q80rM7Me2Z89AwJv7Oeu
+3BldtFDqHkf7I8f/9gXJf0Aqv6jfdIMnv6MH3eh5n+212q89GNl4R2o/i/2
X+y56paU3YLa983e3zFL//v+G1Dzfthf4r+p6K16HWreT/tQq41duzddhZr3
2/7uxz1Wpq8uQ837Y68/vUE6avclqHn/7A982XTn6LKLUPMYHOZf/6VZz3MB
qp7BwXhKTV3KzHNQ8xkdVk8KPXAv6AxUP5PD/ZlnXimfPgW1j9nBYeKUdd0b
T0DNY3Fwk1/trfTlGNQ8FgdPtgcTrpcfhZrH6iDH9ppr454jUPPYHBIsbK3e
1ByGmsfuoBPAJpfVcxBqHofDigfGLxZKHbQHAPuX5rY=
       "]]}, {}}, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948],
     Axes -> True, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, 
    ImageSize -> {278.6666666666665, Automatic}, Method -> {}, 
    PlotRange -> {{0, 3.}, {0, 1.007309048230451}}, PlotRangeClipping -> True,
     PlotRangePadding -> {{0.06, 0.06}, {0.02014618096460902, 
     0.02014618096460902}}],"\"   \"",GraphicsBox[{{}, {
      RGBColor[0.24720000000000014`, 0.24, 0.6], 
      PointBox[CompressedData["
1:eJxTTMoPSmViYGCQB2IQDQO9Wo7v/8p/sJ81EwR22u9fyZfq+eIVlH/S3umC
2sOQX8/sTYxB4LJ9soH0a1/tJ1D5m/ZPfvlxzvjx0B5i2gP7xPT2DdUuD6Dq
H9tLL+PJt2+4a5+eBgLP7BVepsW3qd6G6n9pH/V4Qthq+Zv2Z8+AwBt742P6
r02KrkPN+2C/RN/A5F7bVaj6j/Z7er/JT1a4AjX/s/0PW4skrSuXoPq/2PvP
VahJCbwEte+b/e3HXg+++l6EmvfDfqZqufnBjgtQ837a90ccXCz5/RzUvN/2
b6pdrVftOgs174891+a393bmnIGa98+ewbnoDmfiaah5DA53MgpUekNOQdUz
OHBZpC8+mHMSaj6jw9Ffx3W+PzsO1c/ksIbtlcjNfceh9jE7zC9beS9S5DjU
PBaHuhec3gdKj0HNY3Fwyo77yr3kKNQ8Vofs6ws3GpsdgZrH5nCwtOzvnIWH
oeaxO1SeyGTzf3gIah6Hg3qmCpNI2SF7ANHN3kc=
       "]]}, {}}, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948],
     Axes -> True, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, 
    ImageSize -> {294.0000000000002, Automatic}, Method -> {}, 
    PlotRange -> {{0, 3.}, {0, 1}}, PlotRangeClipping -> True, 
    PlotRangePadding -> {{0.06, 0.06}, {0., 0.}}]},
  "RowDefault"]], "Output",
 CellChangeTimes->{3.58823029374314*^9, 3.588230382866097*^9, 
  3.5882306734530077`*^9, 3.5882307924812164`*^9, 3.5882685414781175`*^9}]
}, {2}]]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

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

Cell[CellGroupData[{

Cell["HELP:", "Section",
 CellChangeTimes->{{3.588230001570227*^9, 3.5882300424266987`*^9}, {
  3.588230264009488*^9, 3.58823026507029*^9}, {3.58823036185286*^9, 
  3.588230366392468*^9}, {3.5888649740824647`*^9, 3.5888649802298756`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Grid", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"TraditionalForm", "[", 
       SuperscriptBox["2", 
        RowBox[{"-", "x"}]], "]"}], ",", 
      RowBox[{"TraditionalForm", "[", 
       FractionBox["1", 
        RowBox[{"1", "+", 
         RowBox[{"2", " ", "x"}]}]], "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Show", "[", 
       RowBox[{
        RowBox[{"ListPlot", "[", "data1", "]"}], ",", 
        RowBox[{"Plot", "[", 
         RowBox[{
          SuperscriptBox["2", 
           RowBox[{"-", " ", "x"}]], ",", 
          RowBox[{"{", 
           RowBox[{"x", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "]"}], ",", 
      RowBox[{"Show", "[", 
       RowBox[{
        RowBox[{"ListPlot", "[", "data2", "]"}], ",", 
        RowBox[{"Plot", "[", 
         RowBox[{
          FractionBox["1", 
           RowBox[{"1", "+", " ", 
            RowBox[{"2", "x"}]}]], ",", 
          RowBox[{"{", 
           RowBox[{"x", ",", "0", ",", "3"}], "}"}]}], "]"}], ",", 
        RowBox[{"PlotRange", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}]}], "}"}]}], "}"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.5882302611078835`*^9, 3.588230292697939*^9}, {
  3.5882303784668894`*^9, 3.5882303799176917`*^9}, {3.5882304395409966`*^9, 
  3.5882307719047804`*^9}}],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[
      FormBox[
       SuperscriptBox["2", 
        RowBox[{"-", "x"}]],
       TraditionalForm],
      TraditionalForm,
      Editable->True], 
     TagBox[
      FormBox[
       FractionBox["1", 
        RowBox[{
         RowBox[{"2", " ", "x"}], "+", "1"}]],
       TraditionalForm],
      TraditionalForm,
      Editable->True]},
    {
     GraphicsBox[{{{}, 
        {RGBColor[0.24720000000000014`, 0.24, 0.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGCQB2IQDQPPQotfVil9sJ81EwR22ktpOewT4H8H5Z+0XzVd
WKRO7I29iTEIXLbnM85JqdR5BZW/aT8j9+yuctcX9hDTHtgL1/y2Yjv6DKr+
sb1QycTTGjlP7dPTQOCZ/ReRzj9xmx9D9b+03308aFlC4SP7s2dA4I39DBv+
32sMH0LN+2D/RJix+TvTA6j6j/aTa/dNOv/1LtT8z/YPE7O8W7juQPV/sX9y
Z274JJ9bUPu+2ccJ7LH863EDat4P+63Xj62KPHQNat5P+x2lDKybtl2Fmvfb
3mxpyect7Feg5v2xf/QxOC3/7SWoef/sY3bc3BWudxFqHoMD8+acdR1uF6Dq
GRziXnxsC5h8Dmo+o4P8Q6V42X9noPqZHBSeqhaKV56C2sfsUOaWo+nBeBJq
HouDY5wRz6SLx6HmsTi4Vip+rg8+CjWP1YGvPGpZ3+4jUPPYHOY1cl6YxXsY
ah67wz71544BRw9CzeNw6GxpurLc4YA9AMsx29o=
          "]]}, {}}, {{}, {}, 
        {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVxX081HcAB/CTh58UskmhGuE3qr3Oaz2i+nzRNJqoledOd55NkvVsTB7K
yt2LaKuEtApz9iqVSsXPQ3cnUnJ5mDiE4uI8RZFu2x/v19uUt39n0BwWi+X6
n///sC0y231/1GbPiPUDSqUCJwO/tnxGb4enSUu7aFqBp8O94Xyag9KyGwWC
9wqM3HJMjaAjIWcnPjeRK5BgML7Ej45D1+bKXW7NCtSJXfp+pAUo1vp9wUuh
AvsvH651o3NwODiak+CjQGVq6gNX+m/YeDkK/e4NQ10jmhoIr0ADPXZnPGAI
zr9yk+94iKHhPxwcvvod7h4L6rjW2IDi85pxL/TlaPP5iR19pAmFc9kFtYMD
0NvKD64kLZjZ2uewrustFkiDStb7tuOMXVh5UN0bmJlEFCbzZOBeKVJ6iPux
oWNfnf3Zbtjrxm8Rd/ahcjr+B2nWazj7ZvL0hnoRWiGRlCf0wTLKKbhVvxcX
AvKNFu59A7tt7ee8nV/jG6/uyc9BA9gxnOVScKgHneNuDcRZDiOfxJGd97ox
JjO0Ntg9hPXGcVXXx7uQVnQ8xNNTgUEzN1pm2wVaV9P1aNYIyuu+FHy/UobS
qPgiQe4oTj8A73ZTB6QWGdSOs2OQ/HyT2Xv5FcwTmyz3XBjHKZcjCe7cdti4
y9bkZk0g7IrW3My1/6AjKnkzP/U9WpHilmzVhhIbb+3H6ZP4ZKhhPP1FKww8
xG0FyVO47jtiX2fYAvSw0qsOfkD9V4XxzuxmXDAI1aaPfsSqRVoynt1LJOSE
nVobPo1w+/FjG7lSZDecFwmiZuD2V1dqcVwTYiMzRpZGf4LRAm1aWvgCcq7l
Ym/eLPpV5ofEyhtxZnZQrTP4M9bVCPX+tGhE2butCh0fJd5mX5m6fvA5mi02
9Nias8jixcpMq0vPEGoVwM64xiIB/Bp1gX0DKj18Y+yXqRDeEzo/bd5TrPYa
LNTPUyEOJ7g+SbV1iEh0atlkPIfY+TcvCil8gpRgzWmVjDlE5liSsuViLR4t
5SoH9VVJq2HL0K54Ce5/Pqm6QqBKkpck5NJJYjTcchzk66mRuogck+1xIjw2
CRalnlUj2RtVDrmnPEbS3d153VrqpGsoU3OXsAZ+y19xfPnqhLqa8uq2uBoz
pWzjlZQGKVKb3GM9U4VfVAfqz8VpEN0Dxv6ltlUwMLfhWrAo4ieNLPs1uhJH
Ij0mtI5RZG59i3RfBYMl6wIldAxFVJK8RZyHDJjZA5ccYili8UDm5H6fgRaf
v+X4CYqoW6dPrLnFIKeoJnPgN4osVBYr1fIZiN5+u1ZykSJ/mGuXVwgY6Afo
Hk5+SJHGMmc6l8Pg/oqlLnnlFHkUaizK82XAGVux7BFDEdP+0tGrXgwKTjiJ
Jmoo4rKmTy7cycDucqxB4FOK1AftDqt2YsDrkJc6dFLE+NJ30VpsBtS1j6c5
XRSpviuqWriKgTCC8j/eQ5EnO2KyTa0YTM4sp0r6KXJDx2jU1ozBaSMfT1MF
RQx0InQOLmLA7glZuWmUIhkccXGiPgNp4SGl1zhFLjKpzRl6DJbZpOenTVGE
9hmtvjOPQTUrN0b4kSLp+zgpYk0GoRKhm2SGIq4ujS/b1BnMTysz652lCDNg
LXw3h8FNT8mUUkmRDufAeSwWg38BEUFKvA==
          "]]}}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->True,
      AxesLabel->{None, None},
      AxesOrigin->{0, 0},
      ImageSize->{237.99999999999994`, Automatic},
      Method->{},
      PlotRange->{{0, 3.}, {0, 1.0084179991875941`}},
      PlotRangeClipping->True,
      PlotRangePadding->{{0.06, 0.06}, {0.020168359983751882`, 
       0.020168359983751882`}},
      ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztXHt0VMUZv2R3kwASn60e25KgrVVpre2prdoqCaGAhABWg9XWWoxaQF4C
Kmp7XEVAKxYKInkZCBioARFUXkcEAXkGik1jsaRowQfhSESlKBFxe3/fd+fe
md2ZuRurR//AQ+7dnTvf+zHffHPX4kFjB988fNDYIaWD8nqNHjRq8JDSMXk9
R452hyLtHKfdeY7jrMtz8DnhfvQuCfdf4nxcMNK2z5fQrb2TaIw7XYHNvcYb
aYY/VlLnfq4rcTLoeQQD/Nz9y6VrJ3ru/yeey/DSd0EjT9AOgzXQ7kzXHEcG
d2QZ7PSZ9Q7pgdeVmDmIOo3xrrIEGTScHcYAT3Muplume61zSmTaXeNOYyKR
SY8jpIWu8Ub6lueNEV2Pn6gdjQ4kS4OatRKjeTLfJe7ziJ2EDVQnRRdpTLAU
QqJdksokyESi0WHZApXRUIlTF6YyPRqryjSo60r4extQyyA61L6KSB08FrGj
TlIRmBcKxx+A3O9ZGgZyLSoyoNGpKNuCmuRgU6aLWgbRoVZYSFKRAXV6KsqU
GXDCvagNKsrSoJajQaAJkUMHouM61+cTY16OizeGMK7Rkpz7vFkxQc/LbUDU
JURLGjQ6LWVqUJ8lj3leEbGj7qIBsXFNsRRPi+v00lFEr/6zLFpqQ0aK6rGf
rUiYVuboYgQxY9c4a3p5KSXBM8GoL2GJX4co7uTVCDE7mlwNSKYGdZ5v32CM
6gH2E+NqxFQ626F1sjDBmL8u4puwpnEFZ2qeAi8RFlGLiZhALBnKsWStmB6N
LnRtqDv7z9jQcgFlIJEbCqInJbJYUGxJgqdQ8YorU917KsvpFdBerYLraZ/P
8xzc8ME5E5cMM1Tm8bHjY1/AWOy4yx0f+8q43Plf0piFpWu+XPKf52qT1vMM
PKbRr32FuPqin0d8qf9frB35wRktLYcHL1n8Cu5eFJhhOrAXZLe2frLvyv5z
E90uK//oF4VVBBvmG1wztFfouSMnHTrUmr/jb2+Nq31ix5Tp0zbuKL1xoQvu
YnYiv3ph1b99JJEQ/FxP5vSs3/rG+316zwKGY/ndKtzP1QeLrpi1ZuSIZyeV
l20ZtaCuAfQ2DRm8GHNAD/JY2D+icl64rf7NAevXvR6fVb1t+e1jl71+Tck8
gUlwfuPS51714b3C+dw9ew6mE0n/pWtHWTFzJjyw5uPCgipPqHKQBfneWzbv
zdu37wOvIItCSFmonGTPYQY6XLB794E/z5i+cfJjMzY9fc/dKyGCrKQHy2du
dvGUZWjsoJMmxyzN2zwh2ey4g3uhxOYB/eYeK7i8AgSPds+v/N3yZa9Csqhe
sNPNBN9iEaG+luI+swH1SUG3iv39i+fAZ2XV/XLd2t06V9OJaKG4hy16YdOu
A2B75iOT14PP1sKCSuEPED3Jk1NkyjNTYNZyMMvl+bXnxt25fMPQIYsRe4Ce
NWnii6AADjAzGXOmRh6PmsMhHdYvd7eBEXocUaZENLyy37eH8WRtgNfWwu7k
wq09Cipzm5s/cHSMnecxZmyaRr0A0vVloxqGvO38RTt37q+ZOGH1X+P3rnIy
4PFOVFYcYk3nDBcG/Og7AaL5InfxYho+XqZrtlAMaP9n4NXz4Jwu2Qo3vivA
Y0zvHT/y2TD0t/wekNRgpLEowLYyVoTdPXPnbB+5cEEDGGA9RPARPLmCN2mT
ry4iQjnSNcl1BtrMigFvYALJzlMKIrcSvFpSwc8UNjRdLaXvpjRrVTY20DUT
iQEL0c7rf/0kEgZ0g3yYrloCfsLa+VJfSsfPWrpmQfQ75tXueLl00MIjPbpX
IYFhESOihlTSwxxDTDDoMdpaPQo7L3BcAz1WP8Q1nAcufLhnj8eVWkAX14Kn
mDbhiKA2d1FUblYyN8KfoSAsZOAAdwQ1FIeg1jp0kTnZLmfdXPxKY/P0qVM2
HO3erVK4ItzTEJ/FZoSLA17FEii0COeCk6EaeXTqlPVpB5+F3NMcTiCx311V
xQKIQgiqgQxgwVAyDJQQU4m9iEmI6Fw/7NYlgsvrV67YZeVyoJnL+XTtJCtF
fAZLIvKgpGQWnRvMaOdx0JDw/fvNEVUgVn94LPmDjlMLyid4DAUFFGAsUG8x
o6ihawdwBRCYAeUWBARHyQIONmOqZueEqh4qe2wTFjOoav598VVQlU40C7Yq
xoZIeaCqsl5eis7Zu/e928yQ5RyvQiJRB8+eNHGNVjkjJVSEaQYbStj85w0N
+2AgIQyysKmqtbD1KAt0ekvLh2IT8Gn+5eVID7BfTKMeC7ZpPIZMAFO19O1T
oxVunBnFlMDycB4sKoh1fMZYsmh3mzE9whqHrbA8iQAhWXRmt6B6mFFBx6tH
jXz2QHFRzR9rZm+DhpzxZrAHObFgGkwGe68cM3rpu325yhbZ34JhfGomhDxi
LcHdmrXvS05O44Nw9zakZXDivSVX1YIASWRYIy1s3s/6ub+6qh7h4P2VEyu6
pc2C6t4gGQudwb2331z6lMzMZDMGtmO2rDOIhW2hrLMMDV8WrHelKK78aEE+
KQ4bQFrFp4eBx7CBAqj4o20vR7aDN2ES4TsLbwvhcK2kLCUKxTuDfAH3h+hN
1107X1kXBOXQl0/CiN2eSgwlFxFxn5CSZwbEbOekEeWFHPHWjVwtZ2gYuE3N
jtivpzBS6TNgqL+ZATfn1cWVIg+SBzsDzsyZcrnwaf5lFUgIGHs8bSrSObNC
JUk0phcBbqwWFOW6PkOVQlhT1/snxe53b48qbccUmiNYnVAdVIj9v1vHPKM4
T3WYPf19XtxVp0XAYcwXUjyIwW5BvaUGqERTX6cnH+ybaPIanyn85dpVzzeJ
xgCSQ61HR197By/P2KPi92xpaOudfsU1orZCP8wr57S5gusiKiCX3DVuhdHg
tWYUNwVZFHkPq6goFGUbykwQglKWBQsd5iCzIXfqTGER4IZAAFDFJt3JQMWT
hGKhGcVvA9U1D+g/V9QlsJO3PbCB/WHO7O1ymiW1WcB+w+4Oy4NNlJsbbh2q
tDtt4Nex1jANkQJtQ4M6rVmwDFRTGO5Y18EAsBITy8zgJUFaEgsUdmBoe4GD
Fcmm5vkxkJBUVUaqWmkmc3UQOFCV2DMINVkgr2KCoqqjgjXhrQ3Pm8GuZOUK
2yBC4ZKrzRDFamzjLoIARF80Q/ZN1SECdtpfpr6EsbVhkEKbZYo215nBilRt
CqJCmzIklW88nwrRFB2+ZCbTO3BQ6A+koMNNZohePIZKHszAaM4W83TuVcSE
yidUVmxFriG+tprBCoMoF46EoopanfWhYKMWPNmQEuUemMOnNaGvNeO79Hqx
P5bQ92q7s70Qj5AvOUkI4sZ6yn+hiHgQPPlTdYtIPo/BXiAJ0o4us0i0beVV
SHWg0u4WeAHcjbYZf/fpWOsb42OiQ4XUpalxioID2z18bmgLIQe95DrFuDqB
Lg0cTkqSFRUP/2md1/a21E9+4eaVGyWiTvXfR9MSkzJssCsKiIUUw2II8meZ
iQDpod69qpUlSyJif9vOf90qeE1OIeK9c4bKDJsxIIfv/dPDr6+SGFHUkTuU
BrP8VPVxeIHzL3P8/yRwfzgLueUu8/SLeAzJEtMpapqk6TT7xzwJpEV69E6R
tDi5l08lztrhw54hB3rNPP2HbCW0WdCSVnq/u81gfJQSwdoHoxorwSYzih/Q
NQsHNhAe95T2oIWDC1TdEcO67GNB8X0eQ4hDs0TxDfP07/EYSk9s1enbm9J0
Wgf5XQs6nRn+1MJ/oKuHJf5tM9pzg8gXuzZ07UigcLC+GzfsSVlqLGDf5dQk
DFd/y02LZI1bIM9hglAu7ESH1QlvhW82g32Hx4SZCewd8/Rv85jopZK3HzBP
PzvwAj84WszT+ag0Jm+uUFKT5d9NNmVeYBi5I0U1wEEzjVxHTq5lSnINB0M9
k1xs2cC8H/qIY0hhkffNEN8K8omAcA7x9DbUJliJdC0QXW3yTR6TefRejUi7
IBHnsbwaGJL1NzR0Dgd07MWHfKYoPdbROVND50Ofjq26oLNunNN5C498hkmV
xxka1B+lhzp8seQXH2hp8I/PWxXkttpCLJaY4h0D62qLrwdR814R9e0r/AXl
SJuMoRjdWIV69O6YX7sjJQ9K9OyHp6mPjfT4FTU6W0bqWDtiuNJ8EiT1lYd4
JVz+WV5w4K/Q4Ze+YqhwkQiVhuXH5ug+NUi3fv48Zp5+imb6p9J0mn0yT0Lq
DjK/GedJPEb7OFHV0JN2ZpgTeQxSimJAftdMC8OvKkWQj3GiTh0YemJ5v6xT
4J3wSqXcCaPnwYrOl+JpYbAnsNegFED9kFzohIFzXqZaGmWuGA9UG5VgM4JM
TuuoX9vQzCwzFW7z+9UrOQM9yTbDZAc5xV/e6Ul7M0yWydgdQmEQcjgd5fEQ
mFjA24qxY5Zi788wJ5hhooGDHCy6Ynaqg3QMhR26eFGj3kEssF4mgv6gk+T9
ewo4GTkSMBsoUnaLTmaCGSaFnijDZCow7p/wYPpysjw1Jk8FSqBmlKdo56X6
mTfPi+zP8MttL78CB5QC7YEKzWXqQu62/EJZWgYCdWHstDRQWjfRcCugRR9P
eQPahtJQBWQEUUX7CKrNcE1XeiveoFkAjIpXp6EFa23B57kuWsXZP7tudau2
jNKDl36BF/KbvTCEOh4NP/4iMK6H0/q/IDjt/gcmC+Od\
\>"]], 
     GraphicsBox[{{{}, 
        {RGBColor[0.24720000000000014`, 0.24, 0.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGCQB2IQDQPTp7KxnlH4YD9rJgjstNcrSLtbe/QVlH/S/tb+
h/smfn9mb2IMApft7Xrli4x4n0Dlb9on3GPY3PD7oT3EtAf2Sq0lVeHMD6Dq
H9tHvngXcHrJXfv0NBB4Zq+S/CCiaM8tqP6X9mcKT4pNf3LD/uwZEHhjH3Js
F8u319eg5n2w79wXFfuq9ypU/Uf79bK3bjhoXoGa/9n+HIeXS4vgZaj+L/br
jcqlP5tcgtr3zX71CStWnoiLUPN+2AfzfVlw3voC1Lyf9psOCpzVrjkHNe+3
fflHqf9cRmeh5v2x/yZ3sEbl9Rmoef/syxdq+da9PgU1j8FBIDFg08FbJ6Hq
GRzCUgouFgefhJrP6CDfv2tZtc4JqH4mh1/3b7TMvH0Mah+zQ51Y3D7ZKceg
5rE4HJO0bP40/yjUPBaH7/GvHr9bcwRqHqvDFLlfkgLCR6HmsTl8zbjnlRN7
BGoeu8PupidiQgKHoeZxOKzYlebYW3vIHgA1GODa
          "]]}, {}}, {{}, {}, 
        {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVynk41HkAx/Ep9C27ZZOkcpRjiN2mLRW1+Xx1kKSUkKJyJrmSDrqkJWl+
PaILuWo7LKtFy1Yy/AzG0SC6G0WUQUaEatJs+8f7ef3znu0VstF3LIfDcfve
/36yD05zDAm1mly6vFShkCHWx9ikgbsOJhUbbg32y/CgryOA4W4Dk+tZNtQm
Q3/hCn4gNxi1WnTQQChDtOagtjv3KHyTjCO4p2Soq17T6cQ9g/k7gn0Kp8oQ
krm/Zj03HUfL29KDLfpQzuffc+DmoWZ7bIQksxel3c/qf8jOg7KTnUSc1IuS
1catNWa3MH/tX4b1sb3YOtaTc1Xrb3h2pet0B/bCuVSur6ebj4T8A5/zLXux
ZtGv/tPmFELJPLLM+1EPFnAvDxAUQ215t12XRg9UxoURaYAABW1NGfH5UnTZ
HVMbvCFAdtyxnuIbUtQy/GmjHQKo9OsX96ZJUR3fnBTHK8PVjgm5gfFSnFbv
u3o5uwxBoX56ld5SaOgbCIVp5VAVb+xrnCYF15pRnhpbgUkhkmLtmC7YHfOM
+celGuHPxNffh71DcYSv5FqTGPOGD09yT+7Esy27eWEHmqFnryGI7HyDybaM
Xzl9gqetjfND4trxU4tvweKtL7C/M8s2jLbBYFZgdozXK1wXpPiWGb+GhSSo
zjqxDdH9HjqJUa0o/xK1tiX1DeIaZu6tK38Jf4FIVBrdia5VrdOj175AsveN
GVN3vINyasGcxDHP8cvmtuFvvlLcJY7PLUqeonVwvZja9UB9yRYP9ZtPMPBq
+jxN5/foCfefWHThMRJyIne6usrgpZ8nd856BK7aeIeDqf1YmP3HLr64BUWh
UTlnMj6AGo3LcJM3o8UoiWxIHMCEFN7hupXNMDzRbOKRPAidkSXdhsxDWDq+
Ms9I/Qg1Jlue09kESWiMFcMfgqTfQVXg1IQCS7eJlWeH0dBQb3VL0AhNl+pn
N2NGsNg0Qq5l1Qi0c86y4Z/gTJIj2vgNSNb0n8g9+BmPVyc6e1wSIzp918mF
AV9wTiknw6z8AdLEl6rOhMphLZQZdnXU40hwUr9O2Fc4q31qLNKqR4+niZab
1ygk6067m/rU4fRot3Kr3zfcWqqa4vpnLe722sombVFAPczeiVGpxWMji/Yl
hhz6XBJhyuyugf8cb17SNQ7dkXk+xaFehHKXrYesdcfQO/d/ll20EmHB5u5s
jawxdNnl27zBnGoEnrB5smzmWBqrOSnPYE414vzGfxmTNJZWRr0mK/KqcF/H
U9GtoUSfMyE1qXOrcOdbrJLpGSWqcmHvpuCSSogLV3Qzk5Uppy5Yr2pVJSpn
+VXxE5XpAGezYvpjIX4vds5qU1WhdSZWpvI9Qrjrv9y2lVGhKY56C85PEEJe
xJtpRsZRpxqXHHFOBQ4rSevPHx1Hx+vaaxs5VUDT0NLTiEOo7xTOkYBhFgeC
XT6qRhBa6KBn9ukKC+1FPiLuIUIXhrdOic9iUTa65/LyI4Q+VRKZa2eyUGWY
lZHHCa0veKtrncYiPUd4TnqKUPND0kTmIouqrvkLRSmExilq++bxWWh4q+2P
KSF049BX7ax9LO6Y6qzJKiU0V2ftgGU4i20Dprr3ywhdxfK+PQxjcfO4TdVH
IaGjFdF3VEJZLM08ounzgFAN168lQQEsvCQ9RctbCZ0bGdJru50FufY5fttr
QmP1lhh1eLDIDSTbI9sJtVFqSYpyZzEs1ycFbwmt+3el+l03FvEztrjOlhF6
b2JlIm8TC177TrNlH77/pbcPPtjIoiV7n2LzIKFBYerndm9goWt59kbCCKEC
5l3AzXUsKjgZh3I/Ezr7oQ3X1oGFvyh3vUhO6MmWN5pv7Vn8mHDXoGOU0Cv8
gt9i1rDIdxWNKBSEskPXLxrasfgP562uHg==
          "]]}}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->True,
      AxesLabel->{None, None},
      AxesOrigin->{0, 0},
      ImageSize->{255.33333333333331`, Automatic},
      Method->{},
      PlotRange->{0, 1},
      PlotRangeClipping->True,
      PlotRangePadding->{{0.06, 0.06}, {0.02016014136565626, 
       0.02016014136565626}},
      ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzdXAuUVkUdv3yvXRYWMR+QmCwsL9seUsmxE7HLQ56CCO3JRxSPSFARQjK1
jq0cHoWIKYG4rDwE5PAtJRI+OiEIGE9zZVuChDLhEFhsWxLqhvD1/eY/c2fm
uzNz74LHOHrcu983M//3c+bOMnTMtAnjJ42ZNnHcmKIBU8dMmTBx3D1F/SdP
zQ7Fm3les1LP8/YWeficyX7kj0z2/0wZHhhp2uee7FdzL1NX4ZUAW/ZZUcdW
+GPl6ezndLkXY/NxDNB89qeYPQvZvP+fmFfhle+CRidBOwzWQrsDe7byVHBP
lcFNn1gviAaeLjdx0JE9E15dRYkqQYwN54cxQMu8r7Ffqewz7ZWrtEsqvLpM
JsWm40wLJRV17FsnPsbocn4SbjQmkDwDahIpydapfJdn5+NuEsUOUJMUnZUx
wVIIiWY5KlMgM5k6j2STKmND5V46TGVmNE6VKaiL+Vi6nL43AbUKYkLtq4ip
g8bibtQ5KgLzQuH4AVD2e56BgWKHiixoTCrKN6DuqMpBpoyKWgUxodZYyFGR
BXU0FaVUBrxwL2qCivIcqNUICZGjswHExHWxzyfGeI6rqAth3KAlNffxVUlB
j+c2IOocoiUDGpOWUg7USk7QtGRAbQJxcc1iqSIS19HSUdys/i4fTUZKuLGT
hJEyR2crSAB7V4ezRstLgQRPBBO+hOV+H6K5E+8Rkm40xQaQlAF1sW9fOcb6
AfITazUiKh3d0CZZyIJJvy7im7CmtYITNa7AnsIiejORFIgVQ3mOrJU0ozGF
rgt1B3+ODK02UBYSxaEgZlIii8lmSxE8QIU3V7a+9xKSkzfQvFfB87Mfz3wh
fuGD1x2PmB0qZRjLO4+xTzK+C4mXC122pN3lrjCMtT4PUiZ857MuKi8fNc+d
zl+1nzeMfSHi2PnAOlj6ONNepHk2fcFx9f+e/+RohXqGeNv6+lMTnlu3D795
drPDtGEfEyrMNQffPBErq3n9qJePoYqlS17Dz8MLF+xs7NunKlP69Sffv75v
FZaGeX8hYe9y+PC/5i2Yv33E1i1/Gb5t61sx4PMSj85/fPvmyXf/Gj9bJt21
Pg7UXqJu9HfSYviJR+Zuo9XJyrlztmCB+Ln55Y2HtPBj9ButOogP2bH9r+Bi
9IsvHPAIaXz1QxUbBS0vRvTPlPViBM6UlVa++INpL3Bup1Sna6EV/EypXlNL
3MYZG0JovmcANszWjBu7Nr+x8UOHmhoM/PIevOjYsXf779l9pH7o4GXAdrpP
2eLls2ZujjFmmx+76cYVQhf/7dub2eXD3qWVcxcu2AGOGWNkR9Zu4xNjORad
cZ6Eu739doO/1CHMUasw+UKYhhsG+cJsmjKZKX7HxAnrOFNvfbP8GRBXGE1V
zfnpK0LxDCUXpgkGMMlxkV2OQ1Y5kj3+uO/vqkEef+znr3pkkQSiAuNCCM7g
7MpFu8Dvdfvqjrs9JBLfn7bzfZB4bH/8+Lsqj5UPz9lKPJJGkwdvvWW1Gkqr
pz+0kbtKPsjKIM5korCUMowV29msZc8CqHVGVeVuZAWRaJbOnvUKKEKFoFp/
w+DlXI3LZ83YJNxAbJ+jMNeDGPEKaCTkPD67zYyz6bi2JG4QY6cUQ3hJ65Mn
G8EfUowqzvHhw1Zwb0ZWQRRjGsuwHMERM0tkUi3fatlPcxM8UE0HxgmDJJsM
/k4SJ1WJZlQt3vN+v75VPDDz/j144BLwCylVcbIG/bNnis6kQZhBUhjz+YY4
UlLPJpMGIV5mzxZt6uvf486/CM6PDC6U2jBk0FLB8LLZszYbmbRE6EifT8ux
nn/0pZyrsrEEwDaw2VZCxT1ra48N3LXzsOokoHZyYP+neFRW4vfchb/YAZU2
IT+EMmp6ZWDyiudIoWgHULTBavonD/5W1Jqz2TKJDK5a3rN4sYnPURqfhkNA
7ZhSO9vW+awmPqHS+Y89+irq37M/euA3oozgN76Dz+lLqvbAMRw1UGfy9jDv
1M9SyUNNTC6nmqOFWHYEyqGGIl2LXkco7nSf0sUifUO5MIJncYIp9nRADMlz
XNdxmsbuMvZsrgQT6y0O3nrzalQ5sIDuDaJQ4Yga7oLZpDEbJ3w42xGWzuYT
wRSsavW+VStrYHpUE0QWZ3LqmjV7w8L9AXv5WkimxKoTQ4cI3SxWdTP7yUW7
EDNI7J6hiHqmgHCQnMeehblyAhzeAVOgiVIzB9ycCWoiNcNO6hFKVOBSWB4l
C7l+/6jb1iBZwVlZM2OQbJ6CmSH+GekXc0h40AxYTZApxj6/4YAzAOfZOZ1J
SsnFDBsg6cP4Ni654xjRTmfPPPgPUsbv7pi4LpvyWLPqozRVZQfKB8lNsRy6
A3fCU1BThZ7Frmq5HRP5SAE6vGy62IpGAs4Ny8AJoAfRwNmicqkd+w9JdHgt
3Gz9/fe9dLbM32FUXrt//ztc9EC8OHj+PuUS1XmhRNgLfIN/pL4fP73s95G7
Bgc5yjB5qgOfzcbEa+O/+yvYj6GxtI/Vdqx30xiUCmbRlzq6B51ZFS3DSlWl
VW44I8kDOXZ2YE3M5bK5wc7m99iTNfFif3g6m5sOl49cBWiB0cSlA+t4GgMk
NtDqLnLSL9f+wV+30Y5iHDEGXWHPDeYg6q4Jtz+rirbJjoH6hXxVaXBUuBH6
OmAF9rhBNAfWb0lvEQpDuoPC4C1of73tdvDbpGbQUFr31w4Ut5BcYBjJFeHA
8s6dd6xTNbPTjmFkMMAwgmSAVIMgQ5VgiSFmUI+KmmEeEVQK4h9KAUIg9t6w
80PgSWz3lV1mJXOVWjvYcEkVWRKKODrippVa3naAD9PBwThSolorvTo7+FAK
XygKlAEK4x+wQwwmMUEAuRj1HwZkBN8kMFzCyoRvOrnPetRiaolEo0h7pWSv
N2r+JrrwD/r1YTWD7/0dm8JURCIDaIaLtW3ft0el0UuYvPpPkqbrDX1cuwom
7nupO5OYgY/+FBeIQngwazUzwVIu5bZsd/hGNstihdb9Qgdyf9aXpIZrgxqy
CsxvyibRKSoXHjSKOZLSfj4l4henpXAkhBoIH9HoGTZK/k2F7Hd+hqFsnDVS
pcSaEtmLsI+bvLa6lp/eRdmJV2Q16ZCHE8ExgNqRMtdRiJg3K7k3SGxEepHS
EK8w2N6xo6tVtxB0zPsMeUvLHQt0JyAFT4A1YBVWEXg+OWZPDnQdIy78iaXM
f9iXf5VYAOcIOhCDO5ywQ1xHY+gZRGX3/pmbyHvIWMYpKnog8N1gR3utdJD/
DLh+idqWeg6wr9AYlJNzfKtnjHo7ii9T/hYCodMKtO0ODr5EY6CGXQDbeZmK
nQNFdxpD9UA3wSiesi+/hsaQKlAt2Lf37Ms/R5oVUY4WHv6E/OZ9YAcrCUQs
24mziG3MtTdfLI76tchrDKUB6zUMoZbZV7kDjN5HJQAGS8FyUPVpO8TV0k0E
hHfGvrybYflZ+/KuhuUZ+/IutuXN7DD8Gg80gxhlZ15sxnHRhMOIBpXGc2EY
CL9dBRd5ado9z89cXLmbVibs2DtK/8ju0ZdqActWxENh7129qibwZi0Mll42
pqA1aG/bXXeuV/0mDLyISCNMAS4OSihU8cnxmqm9NAJCXRqOrrF6XgtaGnb1
Ht+VK/D+WMZ83s/JImjZK0TfjoKstfXyr7sx6oIbf6mp8lxFYyAEgpJYc0nM
1XOFNAs6sc/QGJTvxz2bKfCJOVsd6zQjxvqrdtJmICHt3KIpJDy8A0hrZjTJ
c6XNUjoxg3b81o03JOWicfWvRuqU2tnM1DKameL+ECQ33Xmh132shGNbiJfj
fnwV2h1Pv/XpX/uT1zU1Im1lEhFFprFfbyWJCErmdoqfCXnqsa3FNJySUqFy
Uk6hPe7bypxxqn+/p7QyFQ02jlwD2tL/HK+B29iM21qBYSCX00roC90e9YgY
u9iOncMEy4ID5jIaw9EyzrUlzKfsMJfSGHgCb9Kml4TCoBUV+65QGD4m+jcJ
c2koDGSBTJFgSNS4ON2QMJeFwoAvqhYmGAZysU3Dl9uxXyRDFGccOCbBZzbZ
xg7WKhh0OKuTBgqHtYeRA5aze+QbI1YFKnYoSebjOCD54qFD9UTKcSGhlc2P
HDCFOh0Z3VeEwqANR/cu6agwDKSlDXs7O/aWNuwOGKo0rN6BjjTqlaEwoOFv
KCLCwIHESVcoTIHNx6kPaEr/hDJqOtAx9U8FtiAUZCP2T+IaAJU0S52hNimO
Fw3oESWxqyQxd/+kvnZWph3EgmlMEnM1SOymBl7N8uqpvutmzRPvC1D44EwS
f/to+MMbAP4HYNiMYj9ro+DqmETtxxJ+s8DUMXFKkEM0/bmUohhG8wJrF80V
F6wVRXaX09+ZB6fDiAW9QBAzN0/i7yzUv3WV10k0CnwpAv3eZ1bVoND4mbuD
Pd65k+mFpqxS5qRwWHuhccBydnOP5gJgcakc1rPfv3LF61J7HcOYY0kWr4Bk
MndcPuMwwaYuHEY0j5FgeAaEkqF0CdMpFAalEiWzKTDBrOqAUc7F0BJKmM4h
MOwqLPveJdd+MRsfGs6UhhOxwXMa+9LVuVQkpwhLkfKR+oNLk+pSaRx862Zd
Jw3iXicdxL4OfThoSmfV1iXEOuGgbMnVudrOOVYNysnwiIgHzQAesq84ZrXd
MIfC2RGlZV7a2zyv1ys+z/vCc/i3DZSsqEcvx8y9sCl/wK+kcn0fFgWlc29P
mwDPwwsdQlkSjtJSyDkILPrOjcOeJh/AU7XrOeOV+R0YtfweQQvOzoAuWXBP
8dP/uevWVHk136IFyh+ohvxJKwPubufH8neQDIxeOkT6B0G8Zv8DoSKxMQ==
\
\>"]]}
   },
   AutoDelete->False,
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{{3.588230619944914*^9, 3.5882307947432203`*^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  ]],

Cell[CellGroupData[{

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

Cell[CellGroupData[{

Cell["\<\
Idea: logarithmic (lin-log) transformation\
\>", "MainSection",
 CellChangeTimes->{{3.5882311504394455`*^9, 3.5882311619834657`*^9}, {
  3.588231689344392*^9, 3.5882317153808374`*^9}, {3.588864989482692*^9, 
  3.588865001808714*^9}}],

Cell[TextData[{
 "Consider :\t ",
 Cell[BoxData[
  FormBox[
   RowBox[{"y", "=", 
    SuperscriptBox["10", 
     RowBox[{
      RowBox[{"a", " ", "x"}], "+", "b"}]]}], TraditionalForm]]]
}], "Text",
 CellChangeTimes->{{3.588231169705479*^9, 3.588231217598563*^9}, {
  3.5882314255937285`*^9, 3.5882314318337393`*^9}, {3.588865006599922*^9, 
  3.588865017131941*^9}}],

Cell[TextData[{
 "Take the logarithm:  ",
 Cell[BoxData[
  FormBox[
   RowBox[{"z", "=", 
    RowBox[{
     RowBox[{"lg", "(", "y", ")"}], "=", 
     RowBox[{
      RowBox[{"a", " ", "x"}], "+", "b"}]}]}], TraditionalForm]]],
 "  \t",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    RowBox[{
     RowBox[{"lg", "(", "x", ")"}], ":=", " ", 
     RowBox[{
      SubscriptBox["log", "10"], " ", 
      RowBox[{"(", "x", ")"}]}]}], ")"}], TraditionalForm]],
  FormatType->"TraditionalForm"]
}], "Text",
 CellChangeTimes->{{3.588231169705479*^9, 3.5882312326213894`*^9}, {
  3.588231435390546*^9, 3.5882314399145536`*^9}, {3.588865021095348*^9, 
  3.588865033921571*^9}, {3.5888652074902773`*^9, 3.5888652483391495`*^9}}],

Cell["\<\
In other form, the transformation\
\>", "Text",
 CellChangeTimes->{{3.5882313009963093`*^9, 3.5882313418839817`*^9}, {
  3.588231451520974*^9, 3.58823146064699*^9}, {3.5882317473764935`*^9, 
  3.5882318092618027`*^9}, {3.5882631104935136`*^9, 3.588263117973524*^9}, {
  3.5882682540177145`*^9, 3.5882682735877423`*^9}, {3.5888650508506002`*^9, 
  3.5888650801222525`*^9}}],

Cell[TextData[{
 "  ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x", ",", "y"}], "}"}], "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"lg", "(", "y", ")"}]}], "}"}]}], "=", 
    RowBox[{"{", 
     RowBox[{"x", ",", "z"}], "}"}], " "}], TraditionalForm]]],
 "\t\t"
}], "Text",
 CellChangeTimes->{{3.5882313009963093`*^9, 3.5882313418839817`*^9}, {
  3.588231451520974*^9, 3.58823146064699*^9}, {3.5882317473764935`*^9, 
  3.5882318092618027`*^9}, {3.5882631104935136`*^9, 3.588263117973524*^9}, {
  3.5882682540177145`*^9, 3.5882682735877423`*^9}, {3.5888650508506002`*^9, 
  3.5888650831642575`*^9}}],

Cell["\<\
converts the graph of exponential functions into a STRAIGHT LINE!\
\>", "Text",
 CellChangeTimes->{{3.5882313009963093`*^9, 3.5882313418839817`*^9}, {
  3.588231451520974*^9, 3.58823146064699*^9}, {3.5882317473764935`*^9, 
  3.5882318092618027`*^9}, {3.5882631104935136`*^9, 3.588263117973524*^9}, {
  3.5882682540177145`*^9, 3.5882682735877423`*^9}, {3.5888650508506002`*^9, 
  3.588865133766147*^9}}],

Cell[TextData[{
 "In case of functions:  ",
 Cell[BoxData[
  FormBox[
   RowBox[{"lg", "(", 
    RowBox[{"f", "(", "x", ")"}], ")"}], TraditionalForm]]],
 " is plotted with respect to ",
 Cell[BoxData[
  FormBox["x", TraditionalForm]],
  FormatType->"TraditionalForm"],
 "!"
}], "Text",
 CellChangeTimes->{{3.5882313009963093`*^9, 3.5882313418839817`*^9}, {
  3.588231451520974*^9, 3.58823146064699*^9}, {3.5882317473764935`*^9, 
  3.5882318092618027`*^9}, {3.5882631104935136`*^9, 3.588263117973524*^9}, {
  3.5882682540177145`*^9, 3.5882682735877423`*^9}, {3.5888650508506002`*^9, 
  3.588865197207859*^9}}],

Cell[CellGroupData[{

Cell["Example", "Section",
 CellChangeTimes->{{3.5882314651085978`*^9, 3.5882314662474003`*^9}, 
   3.5882315047794676`*^9, {3.5888651997818637`*^9, 3.588865201046466*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"10", "^", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "0.5"}], " ", "x"}], "+", "1"}], ")"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "1"}], ",", "4"}], "}"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"x", ",", "\"\<z=lg(y)\>\""}], "}"}]}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "Automatic"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.588231511253479*^9, 3.5882316706555595`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwd1Ptfy3scwPFa6TrnS66JUjpFnbl2NtX0+dQxJdZxkKhDyaVQ5pE4zlHR
EclxpvtkzVwyp8LxcFQ4R+9OlnTZJJvQTbW2WtnXWrPl1GPnOD+8Hq//4Oka
y9m4h2JmZsb+r8/XCRgNJhMJKSr2iMlkQIXkNhlHR0L/8Zn69nEDWhmY0t2t
JIE9pdtQNWZAaYoaPUhIcPE9NMHRGZCdd6jbST4Jtedybd4pDcjtwffHzRgk
WC9uc66RGNCG1nSa+UEN5CXHrDvJN6BbVs05lI5hKDM/XGLGMKAZ+fMadicP
guWe4OWO2z8idsysP7LWKMHhdV3CtRw9Cp18gHtjYR9sfHJp16LGUfT+seFu
ILcbqg3O9GdaHerv2lf2OOANdPqzK9o8dYi5dku6Ma4VFjZ4TTGtH0F+6uEj
QbH1cF26w9P9qBYd/qk4blVVBcj6mEMPb39AzIGuS37NBSg6I3/G899INMvY
4MJ6Xo1OxFjcsZ+mQRM8K+teeRMyfeUC35weRryWop7vSmXozS9FmeVyNcpp
i46kjb5Fc+3iS0eDBlFho/yTe987dH9Owc+JXBW6/Mw1gslUoLtOHFlPTz9q
y6wzy4lSoWlMwQnGRgWKcbvlf6ZajVo0i3r/utKL5qSpnzxQvUcjNXaXF1B7
UO7bCg2r7ANqD813Sy7vQvdPN1Dubx1BvNGET7ywdnRwatZjrNahBZ3vM9K8
X6MWO3WNQKBHMWrvNLFYhpoUH/c7+hjQfrqDl4T3Au2WbikuqjUiztMSbpG+
GZV8uXWmOukT4uwTiiJ8nqLU7ZMY26zG0ezp8mC6BJCJsvnKxT8nkO1A9ITf
gnvI+YE+uyPehALGQ3oSFblILXLNF6aY4dRH+2z6PYVQtNDR8mG4Oc7Jyg3M
jqqAgkt763fOp2CRzMf/C4u/ITp/u5SqomDjteGkvSvrYWL1jTFhtQVWeXpJ
TKMSGOgPOlabaYmFPPseW5dWuLlqmZNk5yTM/yhO8MmUw73TR6bG0azws5mv
WMUVr+F8+K51FnorvHTLr7TJsnbw67hamimxxgOHMkXO9G7w2USP4vNscLwo
oZK+pAco6U7LeEm22ILCiF3c3wtCellowVo7HJC4ucArTwFnO7hVbg72mHg4
j8NyVwLLVxxyccgeZyWdzVnapoKwM9/SBJVUzKcKI/0SB8EjKiO8JHUyXldp
Ux7yjxpalbbX8sK/wNcl01Z7lg9DY2x/oIMLgXPrGk+5B2ig0/KmscCNwI9s
w7TeLA18EMX/7uhB4C72ix0r1mtgxtDQXFcagRe9avMNitRAzOERwxJ/AoNS
QUYf1YDhlOk2O4LAGmtTFP+OBtxvOM7JukDg4NAVPg4uJDCC21uoeQRO5FZe
dfQgIXSwODO7kMB5rb6EK40EDm2+nicgcGckVi/xJ+FRhUeLqJzAyQfYV9gR
JGx4uuKMuJ7AwvNx1KwLJOyK1zNDmghc16L+MbuQhKN2VbomKYGHph9U8QQk
8MP8dr6UE/hrQXKtqJwE5SvM7O0jcPPt9GPiehLGjlF0e1QEHtFaKpukJFCd
xKWDagLPpp/d9FJOwvLo4FlaLYF3V3MX9/aRwDK3lSbrCXyO4lA8qCZh6/XG
DKORwHfWFNhqtSTsZ533Txkn8Mtzs38wGklI/d8tAo9J+YrPjv0L006EhQ==

     "]]}},
  Axes->True,
  AxesLabel->{
    FormBox["x", TraditionalForm], 
    FormBox["\"z=lg(y)\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  ImageSize->{403.99999999999994`, Automatic},
  Method->{},
  PlotRange->{{-1, 4}, {-0.9999999489795918, 1.4999999489795917`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.5882315633887706`*^9, 3.5882316731983633`*^9}}]
}, {2}]]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

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

Cell[CellGroupData[{

Cell[TextData[{
 " Rescale the ",
 StyleBox["y",
  FontSlant->"Italic"],
 "-axis:  Write ",
 StyleBox["y",
  FontSlant->"Italic"],
 " instead of ",
 StyleBox["z",
  FontSlant->"Italic"],
 "!"
}], "MainSection",
 Evaluatable->False,
 CellChangeTimes->{{3.5882318373730516`*^9, 3.5882318679335055`*^9}, {
  3.588865259526369*^9, 3.5888652954602327`*^9}},
 AspectRatioFixed->True],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Row", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"Log", "[", 
       RowBox[{"10", ",", 
        RowBox[{"10", "^", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "0.5"}], " ", "x"}], "+", "1"}], ")"}]}]}], "]"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", 
        RowBox[{"-", "2"}], ",", "4"}], "}"}], ",", 
      RowBox[{"FrameLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"x", ",", "\"\<z=lg(y)\>\""}], "}"}]}], ",", 
      RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
      RowBox[{"Frame", "\[Rule]", "True"}], ",", 
      RowBox[{"GridLines", "\[Rule]", "Automatic"}]}], "]"}], ",", 
    "\"\<\[Rule]\>\"", ",", 
    RowBox[{"LogPlot", "[", 
     RowBox[{
      RowBox[{"10", "^", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "0.5"}], " ", "x"}], "+", "1"}], ")"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", 
        RowBox[{"-", "2"}], ",", "4"}], "}"}], ",", 
      RowBox[{"FrameLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"x", ",", "\"\<y\>\""}], "}"}]}], ",", 
      RowBox[{"AspectRatio", "\[Rule]", 
       RowBox[{"1", "/", 
        RowBox[{"Log", "[", "10", "]"}]}]}], ",", 
      RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", 
      RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.588231511253479*^9, 3.5882316706555595`*^9}, {
  3.588231935871625*^9, 3.588232119780348*^9}, {3.588232150075601*^9, 
  3.588232229682541*^9}}],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {}, {
      Hue[0.67, 0.6, 0.6], 
      LineBox[CompressedData["
1:eJwd1Gs01HkcBvBBEdr5u+zkuBVCWbrJ0Nnk+0uiJmIN4ayybaQk0mYrl9NS
ipaarNqkjbawqRSpTStfZbIoJzGV2xJNs1jmP8sY08wwO9uL5zznfN487x7b
bxODY7QZDEaAJv/3sx22A2q1Gnfe4dGaBkcZ2/97uRpNlBaOa1VqyM7j1I5J
1PjUtzRS4+Bf991P3YNqdOivbdE4dJg3+d1rVOPw/PfXNA7vBHF3d59SY0Ic
O1zjoOLUZLQx1Zju0NOgcXDz8LMvsp7FwqLF+RoHgsYDv5qosHggO/Er/VlY
UVJ+JfgLBZq1cwOdWDNQcLUs+8IWObYEcX2eO6jgQjBn2NdHhhwnh0OL7ZSQ
ElnrXxwlxXWVkWUvVyhAyWpzjA6ewJnTu01dnT7CBL3Z+fFWCcqnr5/fsUQO
P2+035vWO4YxxpstBtyn4bjB7O6w5mEsycRulqsM2BkJCZkKIfqXFBWVeE1B
55qq1tcwiOyttw5OBUohtDjFfs6eHhzlnj3BCJgE3sqGJlVPB5rodl2M+noC
Uhmrjm0Ne4bzjCb/PhT6L1ieqTAyZZXimgpv/5AQCVQKta7qJ96DmkE6hmoR
Q6Ch3sNReQucX6j+bahhDAqXF3pm5wsgoqZbsr13FMzML/uOtPZB7cfwyo1t
w9BP0jvTEobgXNT6C0+aRRDfyFK4uYqAs3Aq84NICA2iaPbnfqNQkhvwIblv
CALDrWOvLRDDW26Sf6X0HRzla9lljUiAeVj1x5RLPyxb1m7hL5mA0tKo1thF
PTDr2cncJ5DCnJMRQ05hb8D1l1V51oMyuPzs8gf+ug6Q9DkOrhXKgeRGpxol
voAXjUErq/kKaJfUeXmM88FQ+Vq/rk0FFUuCqhbl10Js99l+65pZOLdX28yu
/jqUbTnAT97EIOkjJlZJ1vn4PLhph+MWLVLtEjMWU12Dx24/kGV6ahP5vvv3
zYRPMPqugOvkrUNsjpde4Ri3YpduXmWq+xyy09Ltkbi7HY3bjKQ6jnPJBrcN
7dRFAaatfTr72kmX0OPzlGHlXZg885leiJUe6ZzysApK6sOS2FMCy8XzCLxk
3vDwfYe89S9yzR30yaLjF81Xc4aQmXjTu5FlQCz7t2WddBZivc/Dxw8sDEla
zoHU/WwRzuyPct/GnE8+9tbH37IaRi29jkLnmflEm3l9dZhiBN03HXzKYTBJ
PE944jxjDBV9t4ZZE0wirY145SwcR5/4Zl6AjElOdfFsi8bGMU/5fk2WgknM
p/9MMpgaRxsLyxypNkXAzd1kZK4Y/cJynDpNKXKm0oRbtkSMBa9i4nhsiiy9
9lxgs0+My5sWjhkcpUhk7rou1oQYj4R+WeCdThFJxaGlWQoxPhGGeqZkUCSz
5eYRqTaNITp5uSM5FCnXtTDvNKUxlShdmi9RRPaDLILHprH50dv9WXWaveQ7
vQZHaTThTLIeN1DEvkDknJJBY2Q3s17Kp8jv1dZpIzk00tMbmdFtFPmL/tGq
+RKNC9g1ld79FHGJ27M9q47Gb/gvt6UMUaQhu/i2lE/jDe4/s1UiigSXv5nZ
1Uaj50G7QFuaIoeFPle8+2k8qeU1HT5JEUOdNHGViMZ2XkQxb5oixbb3vGxp
Gi1skv2alRRxJaNneNM07vr0WxRp+vRjNP4HZTSCkg==
       "]]}}, Axes -> True, AxesOrigin -> {0, 0}, Frame -> True, 
    FrameLabel -> {{
       FormBox["\"z=lg(y)\"", TraditionalForm], None}, {
       FormBox["x", TraditionalForm], None}}, GridLines -> Automatic, 
    ImageSize -> {261.3333333333333, Automatic}, Method -> {}, 
    PlotRange -> {{-2, 4}, {-0.9999999387755103, 1.9999999387755099`}}, 
    PlotRangeClipping -> True, PlotRangePadding -> {
      Scaled[0.02], 
      Scaled[0.02]}],"\"\[Rule]\"",GraphicsBox[{{}, {}, {
      Hue[0.67, 0.6, 0.6], 
      LineBox[CompressedData["
1:eJwB4QQe+yFib1JlAgAAAE0AAAACAAAAxV4h3////78/aD+ysWsSQCb2NUx2
+P+/mPv8UYZpEkCIjUq57PD/v/GOuvFaZxJATLxzk9nh/7+ktTUxBGMSQNIZ
xkezw/+/CAMssFZaEkDg1GqwZof/v9GdGK77SBJA/Eq0gc0O/79k0/GpRSYS
QDQ3RySbHf6/iT6kodngEUBAvxHfohL8v9gIxcpTShFAL6CnnlIq+r+CWmWG
x70QQJShpoiWS/i/aQJEDP0zEECWUkroRkT2v6w8vZcJPQ9Aely5TJ9f9L86
g/E7DCYOQPsVzSZkUvK/07GdU7P3DEDy70krvU7wv+iMxv/dzgtAl0UkaXzb
7L+xdu7Q+7kKQIMK/mZXyOi/hUiOFb6NCUA1gW5ugvrkvw0pLX9zdQhA0zix
ytU/4b8Stkh9rGIHQFWfeiQEaNq/ISvc7ok4BkCQMMDG/NrSv+WuboVaIgVA
ewAxf05Xxb+0GnmPz/QDQBuOqhATFaW//jIALsjMAkCu5AGhCW+zP/1ZhvGz
uAFATwsHuOr4yT8HaYQoRI0AQJkumTyIktQ/iw0DCY/r/j8XGZxG6crcPx0Z
7afejfw/3kB903xu4j+pfdBvNTv6P2zDFfo0MuY/nP+xgXIQ+D/A5mQ1FEfq
P6VRg3r4tvU/T1gdZ6MW7j8VwVK9ZIXzP3nEASKF6fA/f4kbKdhe8T8tLdAa
TPDyP/5DqPcoE+4//jzTDmvU9D/QrxUxbrjpPzKdMY0d4fY/z7tiOEUA5T/w
3CbhO+T4P755opEqXuA/zMNQMLLE+j/25Lz9uBfYPwv71Qm8zfw/mS3o54Bw
zT9n2Y/eHbT+Pw35jkiE4bc/pktwxHVIAEAUszleDdukv8tSxl4mSwFAbtXl
mwHUx79/rbb2gjwCQGwpJsgGmdS/ZLDUUylCA0DCJ5om6QLev9gGja57NgRA
PtiKLplm478RzRD0AyYFQKrq1Xevtee/fDvC/tUpBkDrXEHzM2Lsv3X9DQdU
HAdALUpY7XVf8L+gZ4fUGyMIQM4VIPqIvPK/kEHMjBklCUB4iO7dlA71vw5v
q0LDFQpAuN2+d7o497++RLi9thoLQONinyqXkfm//W1fNlYODECmyoGTjcL7
vwEH0pkr/QxActlq03zo/b82SHLCSgAOQBMMMpaRHgDA+tys6BXyDkC5nK+d
8TQBwERsyJBN9g5ANATcncw5AcCN++M4hfoOQK5rCJ6nPgHAIBobifQCD0Cj
OmGeXUgBwEdXiSnTEw9Aj9gSn8lbAcCU0WVqkDUPQGUUdqChggHALsYe7Ap5
D0ARjDyjUdABwHhVOpRCfQ9AjPNooyzVAcDB5FU8eoEPQAZblaMH2gHAVAON
jOmJD0D7Ke6jveMBwHtA+yzImg9A58efpCn3AcDIutdthbwPQLwDA6YBHgLA
EkrzFb3AD0A4ay+m3CICwFzZDr70xA9As9JbprcnAsDv90UOZM0PQKihtKZt
MQLAFjW0rkLeD0CUP2an2UQCwGDEz1Z64g9AD6eSp7RJAsCpU+v+seYPQIkO
v6ePTgLAPHIiTyHvD0B+3ReoRVgCwIYBPvdY8w9A+UREqCBdAsDQkFmfkPcP
QHSscKj7YQLAGiB1R8j7D0DvE52o1mYCwGOvkO///w9AanvJqLFrAsAXoFkH

       "]]}}, AspectRatio -> NCache[Log[10]^(-1), 0.43429448190325176`], Axes -> 
    True, AxesOrigin -> {-2, -2.3025849520194486`}, 
    CoordinatesToolOptions :> {"DisplayFunction" -> ({
        Part[#, 1], 
        Exp[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Part[#, 1], 
        Exp[
         Part[#, 2]]}& )}, Frame -> True, FrameLabel -> {{
       FormBox["\"y\"", TraditionalForm], None}, {
       FormBox["x", TraditionalForm], None}}, 
    FrameTicks -> {{{{-2.302585092994046, 
         FormBox[
          TagBox[
           InterpretationBox["\"0.1\"", 0.1, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
          TraditionalForm]}, {-0.6931471805599453, 
         FormBox[
          TagBox[
           InterpretationBox["\"0.5\"", 0.5, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
          TraditionalForm]}, {0., 
         FormBox[
          TagBox[
           InterpretationBox["\"1.0\"", 1., AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
          TraditionalForm]}, {1.6094379124341003`, 
         FormBox[
          TagBox[
           InterpretationBox["\"5.0\"", 5., AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
          TraditionalForm]}, {2.302585092994046, 
         FormBox[
          TagBox[
           InterpretationBox["\"10.0\"", 10., AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
          TraditionalForm]}, {3.912023005428146, 
         FormBox[
          TagBox[
           InterpretationBox["\"50.0\"", 50., AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
          TraditionalForm]}, {4.605170185988092, 
         FormBox[
          TagBox[
           InterpretationBox["\"100.0\"", 100., AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
          TraditionalForm]}, {6.214608098422191, 
         FormBox[
          TagBox[
           InterpretationBox["\"500.0\"", 500., AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
          TraditionalForm]}, {-1.6094379124341003`, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {-1.203972804325936, 
         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]}}, {0.6931471805599453, 
         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]}}, {2.995732273553991, 
         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]}}, {4.0943445622221, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {4.248495242049359, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {4.382026634673881, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {4.499809670330265, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {5.298317366548036, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {5.703782474656201, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {5.991464547107982, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}}, {{-2.302585092994046, 
         FormBox["\"\"", TraditionalForm]}, {-0.6931471805599453, 
         FormBox["\"\"", TraditionalForm]}, {0., 
         FormBox["\"\"", TraditionalForm]}, {1.6094379124341003`, 
         FormBox["\"\"", TraditionalForm]}, {2.302585092994046, 
         FormBox["\"\"", TraditionalForm]}, {3.912023005428146, 
         FormBox["\"\"", TraditionalForm]}, {4.605170185988092, 
         FormBox["\"\"", TraditionalForm]}, {6.214608098422191, 
         FormBox["\"\"", TraditionalForm]}, {-1.6094379124341003`, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {-1.203972804325936, 
         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]}}, {0.6931471805599453, 
         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]}}, {2.995732273553991, 
         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]}}, {4.0943445622221, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {4.248495242049359, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {4.382026634673881, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {4.499809670330265, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {5.298317366548036, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {5.703782474656201, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}, {5.991464547107982, 
         FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
          Thickness[0.001]}}}}, {Automatic, Automatic}}, 
    GridLines -> {
     Automatic, {-2.302585092994046, -0.6931471805599453, 0., 
      1.6094379124341003`, 2.302585092994046, 3.912023005428146, 
      4.605170185988092, 
      6.214608098422191, -1.6094379124341003`, -1.203972804325936, \
-0.916290731874155, -0.5108256237659907, -0.35667494393873245`, \
-0.2231435513142097, -0.10536051565782628`, 0.6931471805599453, 
      1.0986122886681098`, 1.3862943611198906`, 1.791759469228055, 
      1.9459101490553132`, 2.0794415416798357`, 2.1972245773362196`, 
      2.995732273553991, 3.4011973816621555`, 3.6888794541139363`, 
      4.0943445622221, 4.248495242049359, 4.382026634673881, 
      4.499809670330265, 5.298317366548036, 5.703782474656201, 
      5.991464547107982}}, ImageSize -> {311.9999999999999, Automatic}, 
    Method -> {}, 
    PlotRange -> {{-2, 4}, {-2.3025849520194486`, 4.605170045013494}}, 
    PlotRangeClipping -> True, PlotRangePadding -> {
      Scaled[0.02], 
      Scaled[0.02]}, Ticks -> {Automatic, {{-2.302585092994046, 
        FormBox[
         TagBox[
          InterpretationBox["\"0.1\"", 0.1, AutoDelete -> True], 
          NumberForm[#, {
            DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
         TraditionalForm]}, {-0.6931471805599453, 
        FormBox[
         TagBox[
          InterpretationBox["\"0.5\"", 0.5, AutoDelete -> True], 
          NumberForm[#, {
            DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
         TraditionalForm]}, {0., 
        FormBox[
         TagBox[
          InterpretationBox["\"1.0\"", 1., AutoDelete -> True], NumberForm[#, {
            DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
         TraditionalForm]}, {1.6094379124341003`, 
        FormBox[
         TagBox[
          InterpretationBox["\"5.0\"", 5., AutoDelete -> True], NumberForm[#, {
            DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
         TraditionalForm]}, {2.302585092994046, 
        FormBox[
         TagBox[
          InterpretationBox["\"10.0\"", 10., AutoDelete -> True], 
          NumberForm[#, {
            DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
         TraditionalForm]}, {3.912023005428146, 
        FormBox[
         TagBox[
          InterpretationBox["\"50.0\"", 50., AutoDelete -> True], 
          NumberForm[#, {
            DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
         TraditionalForm]}, {4.605170185988092, 
        FormBox[
         TagBox[
          InterpretationBox["\"100.0\"", 100., AutoDelete -> True], 
          NumberForm[#, {
            DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
         TraditionalForm]}, {6.214608098422191, 
        FormBox[
         TagBox[
          InterpretationBox["\"500.0\"", 500., AutoDelete -> True], 
          NumberForm[#, {
            DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
         TraditionalForm]}, {-1.6094379124341003`, 
        FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
         Thickness[0.001]}}, {-1.203972804325936, 
        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]}}, {0.6931471805599453, 
        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]}}, {2.995732273553991, 
        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]}}, {4.0943445622221, 
        FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
         Thickness[0.001]}}, {4.248495242049359, 
        FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
         Thickness[0.001]}}, {4.382026634673881, 
        FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
         Thickness[0.001]}}, {4.499809670330265, 
        FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
         Thickness[0.001]}}, {5.298317366548036, 
        FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
         Thickness[0.001]}}, {5.703782474656201, 
        FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
         Thickness[0.001]}}, {5.991464547107982, 
        FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
         Thickness[0.001]}}}}]},
  "RowDefault"]], "Output",
 CellChangeTimes->{{3.5882320125613594`*^9, 3.588232052076229*^9}, {
  3.588232114616739*^9, 3.588232121699151*^9}, {3.588232155785211*^9, 
  3.5882321745988445`*^9}, {3.588232210010906*^9, 3.5882322305249424`*^9}}]
}, {2}]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

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

Cell[CellGroupData[{

Cell["\<\
Observe the sclaing of the y-axis is not uniform! \
\>", "MainSection",
 CellChangeTimes->{{3.588232258199391*^9, 3.5882322893370457`*^9}, {
  3.588865320360877*^9, 3.5888653479477253`*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{
  "Ess", " ", "on", " ", "the", " ", "example", " ", "of", "  ", "the", "  ", 
   "function", " ", 
   RowBox[{
    SuperscriptBox["10", "x"], "!"}]}], TraditionalForm]], "Text",
 CellChangeTimes->{{3.588232594583782*^9, 3.58823263349025*^9}, {
  3.5888653521607327`*^9, 3.588865390809001*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LogPlot", "[", 
  RowBox[{
   RowBox[{"10", "^", 
    RowBox[{"(", " ", "x", ")"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"x", ",", "\"\<y\>\""}], "}"}]}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{
   "PlotLabel", "\[Rule]", 
    "\"\<\!\(\*SuperscriptBox[\(10\), \(x\)]\)\>\""}]}], "]"}]], "Input",
 CellChangeTimes->{{3.588232449627327*^9, 3.5882325860193667`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwtlGs01GkcgGfeQcVGOt20LrkukcW2tFn9/kdqUWTQGl3cNtMFaZ3ErKJE
zbZZ5XLWtm3bNiRhhGgVfkM51Bnd3BO5ZNznbVzWRGrbc/rwnOfb8/ExDIn0
DiUsFsvjI//bGlaMfPhA0UNnVVFxGJFEvjUWvp2lGClE68YDRHKr1NZscpri
hRm+eCiUSOzMPUJkoxSbWsoKDYKIxEE76YW0jaJ/mk9Bii+RMP2KR78XUQzV
SM076EQk3mcb878KpBg/r5ptqEUkMU+SIvZXy7GodzLrYglb0tysMVITPI6r
LhmYvhpmSfQkkcscdMdwVu3qUYE1S1IW9kBVq2sEixsvik6Nv8eg87ZvOhKH
8UTE6WujAfOoTIsTIgzhxmP65nRkDkWa3TpZvTJUC/SfaPSbxcvutlFNPw+g
dN1Am5pUiYnhwbEWbq8xMXS1S8euGYzj3IyJGu/D707QqTOPpjH45BOT1hu9
+G4+wuqx7xRmVg1kXT7UgwX7nBIiZRN495X5ZwVG3RiWX7BijKdA4yWMs++V
TrQvP3dQRUqxZK3wUF9/O5a2zFkP5o7hq7riNfb2rWhao2kZnzaMA1aZdlje
hDHxR9e7lshQOz7P3pr9DAfndOob0vvRyp5a5UxKccO2pfuP3+zB0y7jTyti
69GzLGNNo2onLvcVX/BfWYsrw117FjU3Y8m/dVoNJncRUjZH++s8xpzOgZTh
JDHWO097Ci7W4F6u7u3OHzLQ+UNDTKYgFyvU41pqo9PB3cOs79j+6/B1H1v/
FK8ICF/t5laNWjB+c+/txtoKsFQ48PtzG8FN1NHoyauFUaey98/1W2CLx1LO
dFk97BpV79q2vRNSA9tO2tyRQtJPe72KzvZAvafeYq+lz2ATTpsn5vbDuOHy
+OeXmmClneOUYZoMoo9aBqeuaIXZ9m7h4sPD0PZyiTe/oR0QnTOchWMQJPh2
cMHHbk6zT5pLBIX7lg7n7qt2Q3lGGsfVVQFmiyqHsl17wKKV6+CLE6BXGbZF
VdgL2baSHWpfTgFrluRF9fWBZuGvxl1V0zDDrQqoM30NQiw9stpuBjrXB35u
mjQAU4oNguN1Sjjit0Tb6KUM9m2K4CdxZ0En4zVPRW8IZIZK6UTtHIh3X82d
jB0GP9N+ebLPPPg5Jbg2VI1AB5qcS3j4HooDIow2vhsFm7vqyVq6LEapvplT
sXMcwk1Kryn6WIz3M0d7vSw52LxQmz9zmc2oO2rUVP4ph3UGT3Lv/8VmarJf
bNsjkoPFvt+8WSI2YxMrCP5DLAcj+Rc3BHlsRtPgznmdOjksI24+4eVs5mG4
Xf/yCTnMWPySx33KZpiFFhc0t1NAgdb3uiqEUf6oXC3mUrhX3cbyX0CYos76
HA8/Cv9wruZnqhNGv4h/73wIhVspNmwtbcK825ktUxdQEP3NLWDrE+aOyMBp
wXUKZx6mk0EHwhxeTOuv51NI1NxTaOxIGLOYau+txRQSfEx4QZsIk+G+90By
JYWYrtuFHS6EiVJcSuc0UTioaOFJuYRZu/uQvqidAt/+CmfRTsL0Pvgmz7mb
QkgcX7yFRxivrPbqU8MUdqvOcDCAMAvJDTdDSoHnjuK5YMJgWEyzZIqCb+pZ
/w2hhDnWsjUwaJaCV/MOlegDhPn0L/j0L+Y/GENxRA==
     "]]}},
  AspectRatio->1,
  Axes->True,
  AxesOrigin->{-1, -2.3025849990109806`},
  CoordinatesToolOptions:>{"DisplayFunction" -> ({
      Part[#, 1], 
      Exp[
       Part[#, 2]]}& ), "CopiedValueFunction" -> ({
      Part[#, 1], 
      Exp[
       Part[#, 2]]}& )},
  Frame->True,
  FrameLabel->{{
     FormBox["\"y\"", TraditionalForm], None}, {
     FormBox["x", TraditionalForm], None}},
  FrameTicks->{{{{-2.302585092994046, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.1\"", 0.1, AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-1.6094379124341003`, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.2\"", 0.2, AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-0.6931471805599453, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.5\"", 0.5, AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {0., 
       FormBox[
        TagBox[
         InterpretationBox["\"1.0\"", 1., AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {0.6931471805599453, 
       FormBox[
        TagBox[
         InterpretationBox["\"2.0\"", 2., AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {1.6094379124341003`, 
       FormBox[
        TagBox[
         InterpretationBox["\"5.0\"", 5., AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {2.302585092994046, 
       FormBox[
        TagBox[
         InterpretationBox["\"10.0\"", 10., AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {2.995732273553991, 
       FormBox[
        TagBox[
         InterpretationBox["\"20.0\"", 20., AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {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]}}}, {{-2.302585092994046, 
       FormBox["\"\"", TraditionalForm]}, {-1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm]}, {-0.6931471805599453, 
       FormBox["\"\"", TraditionalForm]}, {0., 
       FormBox["\"\"", TraditionalForm]}, {0.6931471805599453, 
       FormBox["\"\"", TraditionalForm]}, {1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm]}, {2.302585092994046, 
       FormBox["\"\"", TraditionalForm]}, {2.995732273553991, 
       FormBox["\"\"", TraditionalForm]}, {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->{
   Automatic, {-2.302585092994046, -1.6094379124341003`, -0.6931471805599453, 
    0., 0.6931471805599453, 1.6094379124341003`, 2.302585092994046, 
    2.995732273553991, 
    3.912023005428146, -1.2039728043259361`, -0.916290731874155, \
-0.5108256237659907, -0.35667494393873245`, -0.2231435513142097, \
-0.10536051565782628`, 1.0986122886681098`, 1.3862943611198906`, 
    1.791759469228055, 1.9459101490553132`, 2.0794415416798357`, 
    2.1972245773362196`, 3.4011973816621555`, 3.6888794541139363`}},
  Method->{},
  PlotLabel->FormBox[
   "\"\\!\\(\\*SuperscriptBox[\\(10\\), \\(x\\)]\\)\"", TraditionalForm],
  PlotRange->{{-1, 1}, {-2.3025849990109806`, 2.3025849990109806`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]},
  Ticks->{Automatic, {{-2.302585092994046, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.1\"", 0.1, AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-1.6094379124341003`, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.2\"", 0.2, AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-0.6931471805599453, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.5\"", 0.5, AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {0., 
      FormBox[
       TagBox[
        InterpretationBox["\"1.0\"", 1., AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {0.6931471805599453, 
      FormBox[
       TagBox[
        InterpretationBox["\"2.0\"", 2., AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {1.6094379124341003`, 
      FormBox[
       TagBox[
        InterpretationBox["\"5.0\"", 5., AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {2.302585092994046, 
      FormBox[
       TagBox[
        InterpretationBox["\"10.0\"", 10., AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {2.995732273553991, 
      FormBox[
       TagBox[
        InterpretationBox["\"20.0\"", 20., AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {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.5882324578017416`*^9, 3.5882325335096745`*^9}, 
   3.5882325880473704`*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztnTlwFNkZxxuNRhKHAHFpOYQEyy2O5T4F4haHACGGm2W1LLts4PIWS0Dg
YMour4+I2IlDV8mJ7cBOHNisA3tx5JJdTh3b5cB2st5gPN39uuf16N/d/2m9
7wNviUIzUvf0+339+s3rnnnfr9/oxLMnj78x8ezjRxMD559OfPLk40efDpz7
5tP6otIcz5vzsv7zasDzf695XvRQq/+vfe4/+Evyf/9X8NTpTVUH/e29yqS/
dtKrBH8NetWpmveH8KX/CZ7avclKfXG1/oLBqjdVq31hry3VH6c8v6zB6pT3
Cq/yGa+SZdamqnVYxatUAqQp899NwfllRoUYuvd7fl/f5N/3BU/dXm0yrHlz
MIKlYeVEx6bxd3R8xoOlc6ctn7Ztvey2YH2pUXb9ZzRi520vwB6bwX53hlW3
3zSvqbBtRS2q/thhmrIJyd88bDVj2as7ogZbDypsczXvcvYmJefA663vVgdR
IX49x/Ufvx/HslfH8QWLKt6kXSF4k5JzYGaFZBXjbYtKixuQV9/S/9cRV3f0
Y0ovm4L9P+2XTAb93tRIaont8cvNpm3mpWbL+AiGy8Jd8/+6lE0sZa8ey17d
CYBjGfWZUgzRwIrF1zjefsNONjCRCkHArAY2swqxezwQH1hdbmpgPns0e5OS
c+B467sl1gWV4jKii5OAd0WyF0ph3ijcEe2ztzRnuqinmdanh60y9cwRrm6P
S6zE590r2ZuknqoKA8db362MdlKOKjR5uh/Hi8vxNo1j5Jk39GjWJi4AqMdI
Kd1crMzkGnGX/+T/4r2oBWea4I+dYQzm8r9mxZBc1gOWLX5Ny2ZjwceobfaQ
/j/HMntIv3axODikD2aw7H5rIa0JnuZxn+QnK+gDeenN26vVwVPqp97oynX6
SThZ2mOzrFqtTosub9kHRHT4yu8NiS7l80tqdB1+YW0BpVR79ul3a7duvjDM
+mPVf+iwLkKKYpqCNp/K3vvVL//64+999ptEYxGsmIyPQ3kRd4KI773RDa0L
RHxXOOK8jxKNjw0doLS5IOI7MhGHHei0i/cOO9KMup0HIr0tEyk6+8wH+Ft6
+AUAf1MP3w3wFT38QoC/oYdfBPDjevjFAH9dD98D8GN6+CUAf00PvxTgr+rh
lwH8FT38coAf1cOvAPjLevhegL+kh38L4C/q4VcC/AU9/CqAH9HDrwb483r4
NQB/Tg/fB/Bn9fBrAf6MHr4f4E/r4QcA/pQefh3An9TDrwf4YT382wB/Qg+/
AeCP6+E3AvyQHn4TwB/Tw28G+KN6+C0Af0QPvxXgD+vhtwH8IT38IMAf1MNv
B/gDevgdAL9fD78T4Pfp4XcB/F49/DsAv0cPvxvgd+vh9wD8O3r4vQC/Sw+/
D+B36uH3A/wOPfwBgN+uhz8I8IN6+EMAv00Pfxjgt+rhjwD8Fj38UYDfLIMP
P8vn53H7Y0+lYH0p8Ro0bHwMhL9JJvycIeJwpKkcjN/Y2eSV6pQZwUyWOgQi
3ygcefaonp24i0aejoOIN8hGnDPWGxwKI2k0hpSPBZRS7clHP0gOKZ/3H8r+
S7ghZZQyjw7lMKiY9fIVk5oaW7LbJYz4JIh43WtpfImITcojivgUiHhA+Y2e
zG21s1MDs8TuB5IFnwbB98sEnzK6HPVOsdpk9b/ovX4GRLxWJmJ0VjoL8H16
+HMAv0YPfx7gV+vhRwB+lR7+AsCv1MNfBPi39PCXAL5XD38Z4Ffo4UcBfrke
/grAL9PDXwX4pXr4awC/RA8/BvA9evjrAL9YDz8O8Iv08DcAfqEevgLw3Xr4
mwC/QA9/C+Dn6+FvA/w8PfwdgJ+rh78L8F16eJPI+8lPJ/8U4zv18PfB3nfo
4R8AfFkP/y7At+vhHwJ8SRAfrHkv7duRrf5Dm/XtCAp5IjxEiZDrP0EpD2Vq
6f3wsNhIvzgh2qPkMZHcsQ8aKP9I2C3SNSoyP+oHPT5sQo3akkziQyaKao+K
iHCszVGIVraLiHeQ1TEKITsSRVhYVqkofgSbXl568vOf/bll68ABvgTwrHXg
AG/OCYWsAwf4MsCz1oEDPDKmWOvAAR7pT6x14ACPXCbWOnCAR2ISax04wCPb
iLUOHOCRbcRaBw7wyDZirQMHeGQbsdaBAzyyjVjrwAEe2UasdUBdCT9PuxLu
Ya6EUchIEWJVAQc1Zr6sS3yWZFUBB3ikCLGqgAM8UoRYVcABHilCrCrgAI8U
IVYVcIBHihCrCjjAI0WIVQUc4JEixKoCDvBIERrWwyNF6IQeHilCrCrgAN8H
8EN6eKQIsaqAA3w/wLOqgINUsbRbfqIkDBT+AAifVQ2Kp4qxeUUoYmQlsXaC
gywd616ZbMRIZGKFhuIpYuhulMG3CEGK2PfBpd+X/mMLNxxBt3dk6wTpTazm
UDw7DN1/kb1PDDKiWDOieLtLuTsiuoMHChp5VKxPUTxBzDSCRIIYGzFSr1gF
o/WssKz7DrJNGdlarLXh4ASEbC3W2nCAR7YWa204wCNbi7U2HOCRrcVaGw7w
yNZirQ0HeGRrsdaGAzyytVhrwwEe2VqsteEAj2wt1tqgvh36EbhE+GfRL4aQ
XcVaFg4qC9lVrCXhAI/sKlZ1cIBHdhXrLTjAI7vqbT08sqtYOcEBHtlVrGng
AI/sqgE9PLKr+vXwyI5is/gd4IcAns3id4BHvhKbxU+dIn4CThF/K3qKGAbR
sln3DioLGUFs1r0DPNJ72Kx7B3gk6LBZ9w7wyLZhs+4d4JFtw2bdO8Aj24bN
uneAR7YNm3XvAI9sGzbr3gEe2TZs1j3VSf4CdJJ/KdpJIjuGzZJ3UFnIjmGz
5B3gkR3DZsk7wCM7hs2Sd4BHdgybJe8Aj+wYNkveAR7ZMWyWvAM8smPYLHkH
eGTHsFnyVC/1a9BL/bFoL4VsFjar3UFlIZuFzWp3gEc2C5vV7gCPbJY2PXxo
s5QTOTj1n+A1D1tDhp9Vis1byA7rhCnEVHJ9RqTRiMe0+zE0if3mXNnKfIPs
MMS95GEvUt/tcTyJwabGzk151Uq4c5k7goey2B2xjJxMKyB3R+YFO1K1Zgo0
O+Q1bgIQVPeijJ1JGfsMVgdjpS9BxxnUvn2fja6ozLglB+CegmCiFq13d6aF
kFGLjQkUG2+9ZTkRg0HX1iKmZAb2nWj6hxVyjTUMmncicnu7liZ4ay3KljSK
jED7QHWWo0pF46sttdYmWvI8howLB+cshC8BPDIuhPDtAI+MCyE8a1wI4Vnj
QgjPGhdCeNa4EMKzxoUQnjUuhPCscSGEZ40LITxrXAjhWeNCCM8aF0J4NL8L
mudBCM/KG0J4NL8LkjeE8Ky8IYRn5Q0hPCtvCOFZeUMIz8obQnhW3hDCs/KG
EJ6VN4TwrLwhhGflDSE8K28I4Vl5QwjfD/BI3hDCDwA8ki+E8KxJIYRntQgh
PJrfBc3zIIRnBQghPGszCOFZL0EIbzJPE3fTQJKBEH4LwCNjQAjPGgNCeNYY
EMKzxoAQnjUGhPCsMSCEZ40BITxrDAjhWWNACM8aA0J4NL8LmuchAx9eqy/0
7PHg8J89NJI6KDyT0QhWYMgd4METJET3VJ/hIDCKnHUfiBEf2yV1OoCWXMbq
EkTE9oA8PaT7VUBJDul+5j/acuzaiGA5zCWCULBOWIkio07iiK25EeyIZzx2
m1zGehdsxCaFIn6nuG93rKqR20Olzo2Q+jYvMp6bXMaKHrnBl730ORKcDvCy
bojQ+Yh1Q4TwrBsihGfdECH8CYBHMzwI4YcBHrkmQnjWNRHCs66JEJ51TYTw
ZwAeuSZCeNY1EcKzrokQnnVNhPCsayKEZ10TITya2QXN8CCEZ90VITzrrgjh
WXdFCM+6K0J41l0RwrPuihCedVeE8Ky7IoRn3RUhPJrZBc3wIIRnXRghPOvC
COFZFyYPH6wJzIx14MuZJ/5jEVEJhWwElkTI9Z/gNR/K1FKKhCJEQ6aIEAq5
HI9lUNEye4YHoUaN3ApR1DQp4pEkDdsM70siU9WECfEj2FRssqt6qIdHvsG7
enjkGzzQwyPf4L4eHvkG9/TwyDe4q4dHvsEdPTzyDW7r4ZFvcEsPj3yDm3p4
5BtU9PDIN7ihh0e+wbgeHvkG13PwjSvhw+BK+JrLK2FWEriWE7JDPJIErurh
kSRwRQ+PJIFRPTySBC7r4ZEkcEkPjySBi3p4JAlc0MMjSWBED48kgfN6eCQJ
nNPDI0ngrB6+D+DP6OGRJHA6HR8eq/bmu4aEa7skc8TQsn4Q/Kn04LOyigRy
w9CyARDxSSJia2YEwRwdtAyJDMPpEZtDkshmazMR5+aGBVdeI+DK66j/aN/z
o1ExjekRBBPE0DLkOBxPr5g4ac6aHsHpzT3ylyEtYoh4ryfvWFPWbX9IpjiW
HnTjRh+NHLE4YveJYWgZ8i+O5kVc9tKnSXCaGIaWoXkhjqRH7PochCZ5OKyH
R8rGIT08UjYO6uGRsnFAD4+Ujf16eKRs7NPDI2Vjrx4eKRt79PBI2didg298
Q3MXXCfskv6GBnkWu3JCdohHogRiCOGR7bBDD4/Uhe16eDTTw6AeHkkK2/Tw
yDjYqodH+sAWPTwSADbr4VE2/yY9PMrm36iHHwL4DTn4xnniI3CeWC99njgB
Ql6fE7JD/DDAr9PDoxT8AT08SsHv18OjFPy1eniUgt+nh0cp+Gv08CgFf7Ue
HqXgr9LDoxT8lTn4Rk/5FPSUvdI9Jcqb780J2SEe5c2v0MOjvPnleniUN79M
D4/y5pfq4VHe/BI9PMqb79HDo7z5xXp4lDe/KAff6Kq+BbqqbumuCiW7d+eE
7BCPkt0X6OFRsvt8PTxKdp+nh0cTP8xNx4enkJRx0u78meetv1uddIHdoztg
j7rS96jX1HjzWFXKwKnyuKpJ6ExMjNFZYGeyJgpXG/IyybGJW1ihKb4TOzN9
FNGMg5rU62hQ0dqSHZH9tulsP3z8w9rz598J/rLv1iEUgMMazRAIsoKP37Hp
wSsM2+YGL9mOUa/zYAbLUN45YiT60eS8DVH1pwznFrgNyGveyV57J81hCVel
jPxSA8JoGbq8RNd8GstmY8lsFOgCZvaQvvmxzB7Sr10sGYc0GPv1f/FeWBdE
wUs+53//e4SJe/Xwn/9RoC0OwbpvlLnB2Ktw83+E8Xn2Ga9kNrOvW6LzS8Zm
Ia0zcVOwcJcbr/mC2DzEBkGGm8cXGczmQaBgc39H5DefUfALE8uaqy76NBhf
8kYLKpOJptDePJlZ1uG08x79GMOLu7Dw+vPLppCDI5tsJKhtmeskb9K/Qjev
/11Y1Fd2UeblTavC67Ww/ZhV/03A/AIbqZtm578MnroaOx8fBZMaF/792+nv
IG/O/wBwRbkg\
\>"]]
}, {2}]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellMargins->{{135.8, -1.}, {-1., -1.}},
 CellTags->"SlideShowHeader"],

Cell[CellGroupData[{

Cell["Logarithmic scale!", "MainSection",
 Evaluatable->False,
 CellChangeTimes->{{3.5882318373730516`*^9, 3.5882318679335055`*^9}, {
  3.588232374450795*^9, 3.5882323802072053`*^9}, {3.5888653989074154`*^9, 
  3.5888654042738247`*^9}},
 AspectRatioFixed->True],

Cell[TextData[{
 "Take a uniformly scaled line (ruler) showing the values ",
 Cell[BoxData[
  FormBox[
   RowBox[{"z", "=", 
    RowBox[{"lg", "(", "y", ")"}]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 ". Replace ",
 StyleBox["z",
  FontSlant->"Italic"],
 " with ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    RowBox[{"y", " ", "=", 
     SuperscriptBox["\[ExponentialE]", "z"]}], ")"}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " ! "
}], "Text",
 CellChangeTimes->{{3.5882328548234386`*^9, 3.5882329419963923`*^9}, {
  3.588865410421236*^9, 3.588865543624671*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{"0", ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "2"}], ",", "3"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "0.01"}], ",", "0.01"}], "}"}]}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "Automatic"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.588232449627327*^9, 3.5882325860193667`*^9}, {
  3.5882327481348515`*^9, 3.5882328356666055`*^9}, {3.5882329481428027`*^9, 
  3.5882330497145815`*^9}, {3.588233092567857*^9, 3.5882330970294647`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxFzXssFAAcB/DzuMPRbqwyactjbhq3hrk6j1yTuXBud5jE1rKumTWEoaS0
uFtplyWUc61VJ7rEaqFQ8rqNnNPjelDJ+5yFO+fckau2/H7f7bvvPn993VMz
eXxLAoHA/tt/a1KIp8xm82vC/7w1+M63GtESt1eLmTo0M3vc9GMGLdjh5dg1
hHZMeRJaLEZ7q7uqCPvRiVYzLIuMTbD9gOik/8sNMLW57Mthz3WwVBAo5900
ggsXQ0+XTxrAbfk16U2cVXDsjQS3zdsr4EhJZyxrQQuuk59V5SQvgzts9/rc
4S6C17tIKc7UBbA56eAFIVkNfuYcQEmUTYPp25U8dekE+F16PLmF8R38JqOD
KxR+AnOWcje/sUbA5/I4jrPEPrAX5fE4o7sZHM9rV3WypGFbbqDF7Lzb1w0u
LmMtEHnD4Bifeqv8PBWYUTEq4yvHwMO1jQcCSn+CudHNvh+mp8DW7eSMpw5z
YBtSPdMvXwOOyNK4vxj5Bf7KDvcOMy7hH9ffNlumBfsFDol6mCtguXd7rYtC
DyZejdKFFRnAo4OlSyUUIzipMJVe02MCZ9lrPBTHNsCesv4q0vxv8MW28DiK
2AwOiqMni6sJzC3bXnL1q862AEvpj6Iqj1iCRWOiVg8nK3A0o5d1S4OOF3Bo
khZrsG9yScKDIiL484zdvYoEEliZOn3IaY8NeNL64VqlB3q1Lq3JhYp21Wh2
u9PQp3K0hn3B6PXL5kZ2Ipoqddl15TqaETmqdKhAx6hrheVV6DM0N321BN3x
nKqsk6F5/QGCXjman6YPYQ2iC8itukEFWhIbdOL9R/ScihkyMYk2FVjq+LPo
ba69Dep5tP/xSOflZXSEhZ0iV48+en+gZG0NnR5xLfj8Brpolq01m9F/AJz0
Mpc=
     "]]}},
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  ImageSize->{635.0666666666666, Automatic},
  Method->{},
  PlotRange->{{-2, 3}, {-0.01, 0.01}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], Automatic}]], "Output",
 CellMargins->{{122, 10}, {4, 0}},
 CellChangeTimes->{3.5882331456235495`*^9}]
}, {2}]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LogLinearPlot", "[", 
  RowBox[{"0", ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0.01", ",", "1000"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "0.01"}], ",", "0.01"}], "}"}]}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"Frame", "\[Rule]", "None"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.588232449627327*^9, 3.5882325860193667`*^9}, {
  3.5882327481348515`*^9, 3.5882328356666055`*^9}, {3.5882329481428027`*^9, 
  3.5882330497145815`*^9}, {3.588233092567857*^9, 3.588233100555071*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxNz3lIE3AUB/C1seaYOucO3YSctKY5mLoURUWXWmGec1Z41RCvZunyKmbo
JipqECk4S200yVHmscp0/TELnGSJYaKbmiaYmd1q04YaVpDv54PH4/PX933d
0vMTMrEYDCbm7/67Ka9WHjzMdXyO+T8R9AoSLQeZL6HmlmQgYzf8PIPSkDvc
Su8ZY5E3r+DbzT7IN91Z6t+/KGBTZfiNyErkZJ68XFrrAF7OejJ0OoQMblS1
8ImFduBT6siuUQUJfPR8FG28hwgW2tLrl/sJYP1rnM7rJR6cmni8v28LB6Y+
ip+II2DBG+Pd0x6+GPBdbgY2c2L72a4rzmxebV2zgvX2AcNi8TqYVoIP9cpa
BQ8FBFrMjC9gaoOeJFp6D05q6rRwfKfAUydsD8dGDYLbg6qLnZX6UPjvGDuk
u3US/OYS+/o1wgI4RULRXp79BGZpkuwFqhUwXSzBv+BZwJ8TzWP+ZCs4e0w7
4qHbAg+0LDWvq3fAjrTvDTrDPuGumU50mbYOB7YLK/KvK8ODJ++XM/giApiz
linWsIhgSXqlHEsigWXkuKcHZ2zBFxdFC4Ixe7BrqYKiTHAAnywaksQHUMAX
lNx2lY8j2NqZth7MooLlX3WByQwaWNi6yp+3o6N8qY2X0YKsig7isH8wwNyY
iEOzU07gTUPg5I7BGWwMi5E39zFR/gc/XqOaBfYN1mE0bciyBk9Tpxb5Y4ir
0tiNbGqyMf8cQO6NfFuRMI+c36WYIbNdwB24rR4XDvJSUnGVuwfy2f1S71Bv
5Ohz4uo8IbInhSsYlSBnZd8hTGcgtxlYc4s5yEwpuWZbhmwzaJ3jKZEjmIWP
/auQFfnfasJrkX+5LBxJqUcWFKQSsxuR84ZN7wpu7el3QNRbdntPv6KR2joN
8h/e5gwr
     "]]}},
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{-4.605170185988091, -0.01},
  CoordinatesToolOptions:>{"DisplayFunction" -> ({
      Exp[
       Part[#, 1]], 
      Part[#, 2]}& ), "CopiedValueFunction" -> ({
      Exp[
       Part[#, 1]], 
      Part[#, 2]}& )},
  Frame->None,
  FrameTicks->{{Automatic, Automatic}, {{{-4.605170185988091, 
       FormBox["0.01`", TraditionalForm]}, {-2.3025850929940455`, 
       FormBox["0.1`", TraditionalForm]}, {0., 
       FormBox["1", TraditionalForm]}, {2.302585092994046, 
       FormBox["10", TraditionalForm]}, {4.605170185988092, 
       FormBox["100", TraditionalForm]}, {6.907755278982137, 
       FormBox["1000", TraditionalForm]}, {-3.912023005428146, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.506557897319982, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.2188758248682006`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.995732273553991, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.8134107167600364`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.659260036932778, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.5257286443082556`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.407945608651872, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.203972804325936, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.916290731874155, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.6931471805599453, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.5108256237659905, 
       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.10536051565782616`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.6931471805599453, 
       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.6094379124341003`, 
       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]}}, {2.995732273553991, 
       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]}}, {3.912023005428146, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.0943445622221, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.248495242049359, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.382026634673881, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.499809670330265, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.298317366548036, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.703782474656201, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.991464547107982, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.214608098422191, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.396929655216146, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.551080335043404, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.684611727667927, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.802394763324311, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}, {{-4.605170185988091, 
       FormBox["\"\"", TraditionalForm]}, {-2.3025850929940455`, 
       FormBox["\"\"", TraditionalForm]}, {0., 
       FormBox["\"\"", TraditionalForm]}, {2.302585092994046, 
       FormBox["\"\"", TraditionalForm]}, {4.605170185988092, 
       FormBox["\"\"", TraditionalForm]}, {6.907755278982137, 
       FormBox["\"\"", TraditionalForm]}, {-3.912023005428146, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.506557897319982, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.2188758248682006`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.995732273553991, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.8134107167600364`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.659260036932778, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.5257286443082556`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.407945608651872, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.203972804325936, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.916290731874155, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.6931471805599453, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.5108256237659905, 
       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.10536051565782616`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.6931471805599453, 
       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.6094379124341003`, 
       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]}}, {2.995732273553991, 
       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]}}, {3.912023005428146, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.0943445622221, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.248495242049359, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.382026634673881, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.499809670330265, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.298317366548036, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.703782474656201, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.991464547107982, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.214608098422191, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.396929655216146, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.551080335043404, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.684611727667927, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.802394763324311, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}}},
  GridLines->{None, None},
  ImageSize->{656.5333333333341, Automatic},
  Method->{},
  PlotRange->NCache[{{-4.605170185988091, 
      Log[1000]}, {-0.01, 0.01}}, {{-4.605170185988091, 
    6.907755278982137}, {-0.01, 0.01}}],
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], {None, None}},
  Ticks->{{{-4.605170185988091, 
      FormBox["0.01`", TraditionalForm]}, {-2.3025850929940455`, 
      FormBox["0.1`", TraditionalForm]}, {0., 
      FormBox["1", TraditionalForm]}, {2.302585092994046, 
      FormBox["10", TraditionalForm]}, {4.605170185988092, 
      FormBox["100", TraditionalForm]}, {6.907755278982137, 
      FormBox["1000", TraditionalForm]}, {-3.912023005428146, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-3.506557897319982, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-3.2188758248682006`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.995732273553991, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.8134107167600364`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.659260036932778, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.5257286443082556`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.407945608651872, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-1.6094379124341003`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-1.203972804325936, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.916290731874155, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.6931471805599453, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.5108256237659905, 
      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.10536051565782616`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {0.6931471805599453, 
      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.6094379124341003`, 
      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]}}, {2.995732273553991, 
      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]}}, {3.912023005428146, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.0943445622221, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.248495242049359, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.382026634673881, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.499809670330265, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {5.298317366548036, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {5.703782474656201, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {5.991464547107982, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {6.214608098422191, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {6.396929655216146, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {6.551080335043404, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {6.684611727667927, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {6.802394763324311, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}}, Automatic}]], "Output",
 CellChangeTimes->{
  3.588232749133253*^9, {3.5882327971657376`*^9, 3.588232837757009*^9}, {
   3.5882330009956956`*^9, 3.5882330524133863`*^9}, 3.588233104657878*^9}]
}, {2}]],

Cell[TextData[{
 StyleBox["Observation",
  FontWeight->"Bold"],
 ": the distance between the powers of 10 are equal!"
}], "Text-Framed",
 CellChangeTimes->{{3.5882331925484324`*^9, 3.58823321991088*^9}, {
  3.5888655481954794`*^9, 3.5888655865307465`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LogLinearPlot", "[", 
  RowBox[{"1", ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "1", ",", "100"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "0.01`"}], ",", "0.01`"}], "}"}]}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"Frame", "\[Rule]", "None"}], ",", 
   RowBox[{"Ticks", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Join", "[", 
       RowBox[{
        RowBox[{"Range", "[", "10", "]"}], ",", 
        RowBox[{"Range", "[", 
         RowBox[{"20", ",", "100", ",", "10"}], "]"}]}], "]"}], ",", "None"}],
      "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5882521461113176`*^9, 3.5882521535837307`*^9}, {
  3.5882523511892776`*^9, 3.5882523908445473`*^9}, {3.5882625925917883`*^9, 
  3.5882626092618117`*^9}},
 NumberMarks->False],

Cell[BoxData[
 GraphicsBox[
  GraphicsComplexBox[{{9.398306502016513*^-8, 0.01}, {4.605170092005027, 
   0.01}}, {}],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0, -0.01},
  CoordinatesToolOptions:>{"DisplayFunction" -> ({
      Exp[
       Part[#, 1]], 
      Part[#, 2]}& ), "CopiedValueFunction" -> ({
      Exp[
       Part[#, 1]], 
      Part[#, 2]}& )},
  Frame->None,
  FrameTicks->{{Automatic, Automatic}, {{{0., 
       FormBox["1", TraditionalForm]}, {0.6931471805599453, 
       FormBox["2", TraditionalForm]}, {1.6094379124341003`, 
       FormBox["5", TraditionalForm]}, {2.302585092994046, 
       FormBox["10", TraditionalForm]}, {2.995732273553991, 
       FormBox["20", TraditionalForm]}, {3.912023005428146, 
       FormBox["50", TraditionalForm]}, {4.605170185988092, 
       FormBox["100", TraditionalForm]}, {5.298317366548036, 
       FormBox["200", TraditionalForm]}, {6.214608098422191, 
       FormBox["500", TraditionalForm]}, {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]}}, {4.0943445622221, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.248495242049359, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.382026634673881, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.499809670330265, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.703782474656201, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.991464547107982, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}, {{0., 
       FormBox["\"\"", TraditionalForm]}, {0.6931471805599453, 
       FormBox["\"\"", TraditionalForm]}, {1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm]}, {2.302585092994046, 
       FormBox["\"\"", TraditionalForm]}, {2.995732273553991, 
       FormBox["\"\"", TraditionalForm]}, {3.912023005428146, 
       FormBox["\"\"", TraditionalForm]}, {4.605170185988092, 
       FormBox["\"\"", TraditionalForm]}, {5.298317366548036, 
       FormBox["\"\"", TraditionalForm]}, {6.214608098422191, 
       FormBox["\"\"", TraditionalForm]}, {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]}}, {4.0943445622221, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.248495242049359, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.382026634673881, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.499809670330265, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.703782474656201, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.991464547107982, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}}},
  GridLines->{None, None},
  ImageSize->{719.3333333333333, Automatic},
  Method->{},
  PlotRange->NCache[{{0, 
      Log[100]}, {-0.01, 0.01}}, {{0, 4.605170185988092}, {-0.01, 0.01}}],
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], {None, None}},
  Ticks->{{{0., 
      FormBox["1", TraditionalForm]}, {0.6931471805599453, 
      FormBox["2", TraditionalForm]}, {1.0986122886681098`, 
      FormBox["3", TraditionalForm]}, {1.3862943611198906`, 
      FormBox["4", TraditionalForm]}, {1.6094379124341003`, 
      FormBox["5", TraditionalForm]}, {1.791759469228055, 
      FormBox["6", TraditionalForm]}, {1.9459101490553132`, 
      FormBox["7", TraditionalForm]}, {2.0794415416798357`, 
      FormBox["8", TraditionalForm]}, {2.1972245773362196`, 
      FormBox["9", TraditionalForm]}, {2.302585092994046, 
      FormBox["10", TraditionalForm]}, {2.995732273553991, 
      FormBox["20", TraditionalForm]}, {3.4011973816621555`, 
      FormBox["30", TraditionalForm]}, {3.6888794541139363`, 
      FormBox["40", TraditionalForm]}, {3.912023005428146, 
      FormBox["50", TraditionalForm]}, {4.0943445622221, 
      FormBox["60", TraditionalForm]}, {4.248495242049359, 
      FormBox["70", TraditionalForm]}, {4.382026634673881, 
      FormBox["80", TraditionalForm]}, {4.499809670330265, 
      FormBox["90", TraditionalForm]}, {4.605170185988092, 
      FormBox["100", TraditionalForm]}}, None}]], "Output",
 CellChangeTimes->{
  3.588252391749349*^9, {3.588262604951806*^9, 3.5882626098618126`*^9}}]
}, {2}]],

Cell[CellGroupData[{

Cell["The values:", "Section",
 CellChangeTimes->{{3.5882524165689926`*^9, 3.588252456801463*^9}, {
  3.588865591695356*^9, 3.5888655941455603`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Map", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"#", "\[Rule]", " ", 
         RowBox[{
          RowBox[{"HoldForm", "[", 
           RowBox[{"Log", "[", 
            RowBox[{"10", ",", "#"}], "]"}], "]"}], "==", 
          RowBox[{"N", "[", 
           RowBox[{"Log", "[", 
            RowBox[{"10", ",", "#"}], "]"}], "]"}]}]}], ",", 
        RowBox[{"#", "\[Rule]", " ", 
         RowBox[{
          RowBox[{"HoldForm", "[", 
           RowBox[{"Log", "[", 
            RowBox[{"10", ",", 
             RowBox[{"10", "#"}]}], "]"}], "]"}], "==", 
          RowBox[{"N", "[", 
           RowBox[{"Log", "[", 
            RowBox[{"10", ",", 
             RowBox[{"10", "#"}]}], "]"}], "]"}]}]}]}], "}"}], "&"}], ",", 
     RowBox[{"Range", "[", "10", "]"}]}], "]"}], "//", "TableForm"}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.5882524665826807`*^9, 3.5882525370948043`*^9}, {
  3.5882525685600595`*^9, 3.588252681519858*^9}, {3.588252753326784*^9, 
  3.5882527751356225`*^9}, {3.5882528098768835`*^9, 3.58825292750109*^9}}],

Cell[BoxData[
 TagBox[GridBox[{
    {
     RowBox[{"1", "\[Rule]", 
      RowBox[{
       TagBox[
        RowBox[{"Log", "[", 
         RowBox[{"10", ",", "1"}], "]"}],
        HoldForm], "\[Equal]", "0.`"}]}], 
     RowBox[{"1", "\[Rule]", 
      RowBox[{
       TagBox[
        RowBox[{"Log", "[", 
         RowBox[{"10", ",", 
          RowBox[{"10", " ", "1"}]}], "]"}],
        HoldForm], "\[Equal]", "1.`"}]}]},
    {
     RowBox[{"2", "\[Rule]", 
      RowBox[{
       TagBox[
        RowBox[{"Log", "[", 
         RowBox[{"10", ",", "2"}], "]"}],
        HoldForm], "\[Equal]", "0.30102999566398114`"}]}], 
     RowBox[{"2", "\[Rule]", 
      RowBox[{
       TagBox[
        RowBox[{"Log", "[", 
         RowBox[{"10", ",", 
          RowBox[{"10", " ", "2"}]}], "]"}],
        HoldForm], "\[Equal]", "1.301029995663981`"}]}]},
    {
     RowBox[{"3", "\[Rule]", 
      RowBox[{
       TagBox[
        RowBox[{"Log", "[", 
         RowBox[{"10", ",", "3"}], "]"}],
        HoldForm], "\[Equal]", "0.4771212547196624`"}]}], 
     RowBox[{"3", "\[Rule]", 
      RowBox[{
       TagBox[
        RowBox[{"Log", "[", 
         RowBox[{"10", ",", 
          RowBox[{"10", " ", "3"}]}], "]"}],
        HoldForm], "\[Equal]", "1.4771212547196622`"}]}]},
    {
     RowBox[{"4", "\[Rule]", 
      RowBox[{
       TagBox[
        RowBox[{"Log", "[", 
         RowBox[{"10", ",", "4"}], "]"}],
        HoldForm], "\[Equal]", "0.6020599913279623`"}]}], 
     RowBox[{"4", "\[Rule]", 
      RowBox[{
       TagBox[
        RowBox[{"Log", "[", 
         RowBox[{"10", ",", 
          RowBox[{"10", " ", "4"}]}], "]"}],
        HoldForm], "\[Equal]", "1.602059991327962`"}]}]},
    {
     RowBox[{"5", "\[Rule]", 
      RowBox[{
       TagBox[
        RowBox[{"Log", "[", 
         RowBox[{"10", ",", "5"}], "]"}],
        HoldForm], "\[Equal]", "0.6989700043360186`"}]}], 
     RowBox[{"5", "\[Rule]", 
      RowBox[{
       TagBox[
        RowBox[{"Log", "[", 
         RowBox[{"10", ",", 
          RowBox[{"10", " ", "5"}]}], "]"}],
        HoldForm], "\[Equal]", "1.6989700043360185`"}]}]},
    {
     RowBox[{"6", "\[Rule]", 
      RowBox[{
       TagBox[
        RowBox[{"Log", "[", 
         RowBox[{"10", ",", "6"}], "]"}],
        HoldForm], "\[Equal]", "0.7781512503836435`"}]}], 
     RowBox[{"6", "\[Rule]", 
      RowBox[{
       TagBox[
        RowBox[{"Log", "[", 
         RowBox[{"10", ",", 
          RowBox[{"10", " ", "6"}]}], "]"}],
        HoldForm], "\[Equal]", "1.7781512503836432`"}]}]},
    {
     RowBox[{"7", "\[Rule]", 
      RowBox[{
       TagBox[
        RowBox[{"Log", "[", 
         RowBox[{"10", ",", "7"}], "]"}],
        HoldForm], "\[Equal]", "0.8450980400142567`"}]}], 
     RowBox[{"7", "\[Rule]", 
      RowBox[{
       TagBox[
        RowBox[{"Log", "[", 
         RowBox[{"10", ",", 
          RowBox[{"10", " ", "7"}]}], "]"}],
        HoldForm], "\[Equal]", "1.8450980400142567`"}]}]},
    {
     RowBox[{"8", "\[Rule]", 
      RowBox[{
       TagBox[
        RowBox[{"Log", "[", 
         RowBox[{"10", ",", "8"}], "]"}],
        HoldForm], "\[Equal]", "0.9030899869919433`"}]}], 
     RowBox[{"8", "\[Rule]", 
      RowBox[{
       TagBox[
        RowBox[{"Log", "[", 
         RowBox[{"10", ",", 
          RowBox[{"10", " ", "8"}]}], "]"}],
        HoldForm], "\[Equal]", "1.903089986991943`"}]}]},
    {
     RowBox[{"9", "\[Rule]", 
      RowBox[{
       TagBox[
        RowBox[{"Log", "[", 
         RowBox[{"10", ",", "9"}], "]"}],
        HoldForm], "\[Equal]", "0.9542425094393248`"}]}], 
     RowBox[{"9", "\[Rule]", 
      RowBox[{
       TagBox[
        RowBox[{"Log", "[", 
         RowBox[{"10", ",", 
          RowBox[{"10", " ", "9"}]}], "]"}],
        HoldForm], "\[Equal]", "1.9542425094393245`"}]}]},
    {
     RowBox[{"10", "\[Rule]", 
      RowBox[{
       TagBox[
        RowBox[{"Log", "[", 
         RowBox[{"10", ",", "10"}], "]"}],
        HoldForm], "\[Equal]", "1.`"}]}], 
     RowBox[{"10", "\[Rule]", 
      RowBox[{
       TagBox[
        RowBox[{"Log", "[", 
         RowBox[{"10", ",", 
          RowBox[{"10", " ", "10"}]}], "]"}],
        HoldForm], "\[Equal]", "2.`"}]}]}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.5882525159723673`*^9, {3.588252616998145*^9, 3.5882526680882344`*^9}, {
   3.5882527561347895`*^9, 3.588252775978024*^9}, {3.588252829096117*^9, 
   3.5882528554601636`*^9}, {3.588252920964679*^9, 3.5882529283278913`*^9}}]
}, {2}]]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

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

Cell[CellGroupData[{

Cell["How to calculate?", "Section",
 CellChangeTimes->{{3.588252954270737*^9, 3.5882529758611755`*^9}, {
  3.5882683286178193`*^9, 3.588268331797824*^9}, {3.5888656124317927`*^9, 
  3.5888656158647985`*^9}}],

Cell[TextData[{
 Cell[BoxData[{
  FormBox[
   RowBox[{
    RowBox[{"2", "\[Rule]", 
     RowBox[{
      RowBox[{"lg", "(", "2", ")"}], "\[TildeTilde]", "0.30103"}]}], " "}], 
   TraditionalForm], "\[IndentingNewLine]", 
  FormBox[
   RowBox[{"3", "\[Rule]", 
    RowBox[{
     RowBox[{"lg", "(", "3", ")"}], "\[TildeTilde]", 
     "0.4771212547196624`"}]}], TraditionalForm], "\[IndentingNewLine]", 
  FormBox[
   RowBox[{
    RowBox[{"4", "\[Rule]", 
     RowBox[{"lg", "(", "4", ")"}]}], "=", 
    RowBox[{
     RowBox[{"lg", "(", 
      SuperscriptBox["2", "2"], ")"}], "=", 
     RowBox[{
      RowBox[{"2", 
       RowBox[{"lg", "(", "2", ")"}]}], "\[TildeTilde]", 
      "0.6020599913279623`"}]}]}], TraditionalForm], "\[IndentingNewLine]", 
  FormBox[
   RowBox[{
    RowBox[{"5", "\[Rule]", 
     RowBox[{"lg", "(", "5", ")"}]}], "=", 
    RowBox[{
     RowBox[{"lg", "(", 
      FractionBox["10", "2"], ")"}], "=", 
     RowBox[{
      RowBox[{"1", "-", 
       RowBox[{"lg", "(", "2", ")"}]}], "\[TildeTilde]", 
      "0.6989700043360186`"}]}]}], TraditionalForm], "\[IndentingNewLine]", 
  FormBox[
   RowBox[{
    RowBox[{"6", "\[Rule]", 
     RowBox[{"lg", "(", "6", ")"}]}], "=", 
    RowBox[{
     RowBox[{"lg", "(", 
      RowBox[{"2", "*", "3"}], ")"}], "=", 
     RowBox[{
      RowBox[{
       RowBox[{"lg", "(", "2", ")"}], "+", 
       RowBox[{"lg", "(", "3", ")"}]}], "\[TildeTilde]", 
      "0.7781512503836435`"}]}]}], TraditionalForm], "\[IndentingNewLine]", 
  FormBox[
   RowBox[{"7", "\[Rule]", 
    RowBox[{
     RowBox[{"lg", "(", "7", ")"}], "\[TildeTilde]", 
     "0.8450980400142567`"}]}], TraditionalForm], "\[IndentingNewLine]", 
  FormBox[
   RowBox[{
    RowBox[{"8", "\[Rule]", 
     RowBox[{"lg", "(", "8", ")"}]}], "=", 
    RowBox[{
     RowBox[{"lg", "(", 
      SuperscriptBox["2", "3"], ")"}], "=", 
     RowBox[{
      RowBox[{"3", 
       RowBox[{"lg", "(", "2", ")"}]}], "\[TildeTilde]", 
      "0.9030899869919433`"}]}]}], TraditionalForm], "\[IndentingNewLine]", 
  FormBox[
   RowBox[{
    RowBox[{"9", "\[Rule]", 
     RowBox[{"lg", "(", "9", ")"}]}], "=", 
    RowBox[{
     RowBox[{"lg", "(", 
      SuperscriptBox["3", "2"], ")"}], "=", 
     RowBox[{
      RowBox[{"2", 
       RowBox[{"lg", "(", "3", ")"}]}], "\[TildeTilde]", 
      "0.9542425094393248`"}]}]}], TraditionalForm]}]],
 "\n\n"
}], "Text",
 CellChangeTimes->{{3.5882530034576235`*^9, 3.5882531798013334`*^9}, {
  3.5882540040609813`*^9, 3.5882541856765003`*^9}, {3.588262518541685*^9, 
  3.588262519031686*^9}},
 FontWeight->"Bold"],

Cell[TextData[Cell[BoxData[{
 FormBox[
  RowBox[{
   RowBox[{
    RowBox[{"20", "\[Rule]", 
     RowBox[{"lg", "(", "20", ")"}]}], "=", 
    RowBox[{
     RowBox[{"lg", "(", 
      RowBox[{"10", "*", "2"}], ")"}], "=", 
     RowBox[{"1", "+", 
      RowBox[{"lg", "(", "2", ")"}]}]}]}], " "}], 
  TraditionalForm], "\[IndentingNewLine]", 
 FormBox["...", TraditionalForm], "\[IndentingNewLine]", 
 FormBox[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["10", "k"], "y"}], "\[Rule]", 
    RowBox[{"lg", "(", 
     RowBox[{
      SuperscriptBox["10", "k"], "y"}], ")"}]}], "=", 
   RowBox[{"k", "+", 
    RowBox[{"lg", "(", "y", ")"}]}]}], TraditionalForm]}]]], "Text",
 CellChangeTimes->{{3.5882530034576235`*^9, 3.5882531798013334`*^9}, {
  3.5882540040609813`*^9, 3.5882541856765003`*^9}, {3.5882542563446245`*^9, 
  3.5882543481351857`*^9}},
 FontWeight->"Bold"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

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

Cell[CellGroupData[{

Cell["\<\
The effect of the parameters on the logarithmic plot:\
\>", "Section",
 CellChangeTimes->{{3.588262652031872*^9, 3.5882627088019514`*^9}, {
  3.58826834339784*^9, 3.5882683439878407`*^9}, {3.588865624430214*^9, 
  3.588865651765462*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Column", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"TraditionalForm", "[", 
       SuperscriptBox["10", 
        RowBox[{
         RowBox[{"a", " ", "x"}], "+", "b"}]], "]"}], ",", 
      RowBox[{"Row", "[", 
       RowBox[{"{", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Plot", "[", 
          RowBox[{
           SuperscriptBox["10", 
            RowBox[{
             RowBox[{"a", " ", "x"}], "+", "b"}]], ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", 
             RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", 
           RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
           RowBox[{"PlotRange", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"0", ",", "10"}], "}"}]}], ",", 
           RowBox[{"PlotStyle", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"Red", ",", "Thick"}], "}"}]}], ",", 
           RowBox[{"ImageSize", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"150", ",", "200"}], "}"}]}]}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"LogPlot", "[", 
          RowBox[{
           SuperscriptBox["10", 
            RowBox[{
             RowBox[{"a", " ", "x"}], "+", "b"}]], ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", 
             RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", 
           RowBox[{"AspectRatio", "\[Rule]", 
            RowBox[{"5", "/", "8"}]}], ",", 
           RowBox[{"PlotRange", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"0.001", ",", "100"}], "}"}]}], ",", 
           RowBox[{"GridLines", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Range", "[", 
               RowBox[{
                RowBox[{"-", "10"}], ",", "10", ",", "1"}], "]"}], ",", 
              "Automatic"}], "}"}]}], ",", 
           RowBox[{"PlotStyle", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"Red", ",", "Thick"}], "}"}]}], ",", 
           RowBox[{"ImageSize", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"300", ",", "200"}], "}"}]}]}], "]"}]}], "}"}], "]"}]}], 
     "}"}], "]"}], ",", 
   "\"\<Plots of \!\(\*SuperscriptBox[\(10\), \(a\\\ x\\\  + b\)]\)\>\"", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "1"}], "}"}], ",", 
     RowBox[{"-", "3"}], ",", "3", ",", 
     RowBox[{"Appearance", "\[Rule]", 
      RowBox[{"{", "\"\<Labeled\>\"", "}"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"b", ",", "0"}], "}"}], ",", 
     RowBox[{"-", "3"}], ",", "3", ",", 
     RowBox[{"Appearance", "\[Rule]", 
      RowBox[{"{", "\"\<Labeled\>\"", "}"}]}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4304524538278847`*^9, 3.430452735603058*^9}, {
   3.430452777222904*^9, 3.4304528936002464`*^9}, {3.588221415818775*^9, 
   3.588221433322006*^9}, {3.588221475114479*^9, 3.5882215018685265`*^9}, {
   3.5882215328501806`*^9, 3.588221571397848*^9}, {3.5882216060083094`*^9, 
   3.5882216732444277`*^9}, {3.588221732134531*^9, 3.5882217675933933`*^9}, {
   3.5882218121782713`*^9, 3.5882218515371404`*^9}, {3.5882218925340123`*^9, 
   3.588222032279058*^9}, 3.588232327229512*^9, {3.588262730701982*^9, 
   3.588262799242078*^9}, {3.588268463278008*^9, 3.5882684981280565`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`a$$ = 1, $CellContext`b$$ = 0, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{
      Hold["Plots of \!\(\*SuperscriptBox[\(10\), \(a\\ x\\  + b\)]\)"], 
      Manipulate`Dump`ThisIsNotAControl}, {{
       Hold[$CellContext`a$$], 1}, -3, 3}, {{
       Hold[$CellContext`b$$], 0}, -3, 3}}, Typeset`size$$ = {
    675., {163., 176.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`a$608669$$ = 
    0, $CellContext`b$608670$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`a$$ = 1, $CellContext`b$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`a$$, $CellContext`a$608669$$, 0], 
        Hold[$CellContext`b$$, $CellContext`b$608670$$, 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" :> Column[{
         TraditionalForm[
         10^($CellContext`a$$ $CellContext`x + $CellContext`b$$)], 
         Row[{
           Plot[
           10^($CellContext`a$$ $CellContext`x + $CellContext`b$$), \
{$CellContext`x, -4, 4}, AspectRatio -> Automatic, PlotRange -> {0, 10}, 
            PlotStyle -> {Red, Thick}, ImageSize -> {150, 200}], 
           LogPlot[
           10^($CellContext`a$$ $CellContext`x + $CellContext`b$$), \
{$CellContext`x, -4, 4}, AspectRatio -> 5/8, PlotRange -> {0.001, 100}, 
            GridLines -> {
              Range[-10, 10, 1], Automatic}, PlotStyle -> {Red, Thick}, 
            ImageSize -> {300, 200}]}]}], 
      "Specifications" :> {
       "Plots of \!\(\*SuperscriptBox[\(10\), \(a\\ x\\  + b\)]\)", \
{{$CellContext`a$$, 1}, -3, 3, 
         Appearance -> {"Labeled"}}, {{$CellContext`b$$, 0}, -3, 3, 
         Appearance -> {"Labeled"}}}, "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{755., {291., 304.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.5882220252278457`*^9, 3.5882220329342594`*^9}, 
   3.5882323291951156`*^9, {3.5882627324619846`*^9, 3.588262762152026*^9}, 
   3.588262801552081*^9, {3.5882684995380588`*^9, 3.588268507058069*^9}}]
}, {2}]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

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

Cell[CellGroupData[{

Cell["\<\
 Straightening of power functions: the log-log transformation\
\>", "MainSection",
 Evaluatable->False,
 CellChangeTimes->{{3.588262891182206*^9, 3.5882629240722523`*^9}, {
  3.5882632042836447`*^9, 3.588263204533645*^9}, {3.5888656662764874`*^9, 
  3.5888656910699315`*^9}},
 AspectRatioFixed->True],

Cell[TextData[{
 "Consider:\t ",
 Cell[BoxData[
  FormBox[
   RowBox[{"y", "=", 
    RowBox[{"B", " ", 
     SuperscriptBox["x", "a"]}]}], TraditionalForm]]],
 ", where",
 Cell[BoxData[
  FormBox[
   RowBox[{"   ", 
    RowBox[{"x", ">", "0"}]}], TraditionalForm]]]
}], "Text",
 CellChangeTimes->{{3.588231169705479*^9, 3.588231217598563*^9}, {
  3.5882314255937285`*^9, 3.5882314318337393`*^9}, {3.5882629896923447`*^9, 
  3.5882630535324335`*^9}, {3.588264705647747*^9, 3.5882647088877516`*^9}, {
  3.588865694611138*^9, 3.588865705268957*^9}}],

Cell[TextData[{
 "Then:  ",
 Cell[BoxData[
  FormBox[
   RowBox[{"z", ":=", 
    RowBox[{
     RowBox[{"lg", "(", "y", ")"}], "=", 
     RowBox[{
      RowBox[{
       RowBox[{"lg", "(", "B", ")"}], "+", " ", 
       RowBox[{"a", " ", 
        RowBox[{"lg", "(", "x", ")"}]}]}], " ", "=", 
      RowBox[{
       RowBox[{"lg", "(", "B", ")"}], "+", " ", 
       RowBox[{"a", " ", "u", " "}]}]}]}]}], TraditionalForm]]]
}], "Text",
 CellChangeTimes->{{3.588231169705479*^9, 3.5882312326213894`*^9}, {
  3.588231435390546*^9, 3.5882314399145536`*^9}, {3.5882630357824087`*^9, 
  3.5882631006134996`*^9}, {3.5882647131077576`*^9, 3.588264723407772*^9}, {
  3.588865709340564*^9, 3.5888657099021645`*^9}}],

Cell[TextData[{
 "In other words, the transformation\n\t\t",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x", ",", "y"}], "}"}], "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"lg", "(", "x", ")"}], ",", 
       RowBox[{"lg", "(", "y", ")"}]}], "}"}]}], "=", 
    RowBox[{"{", 
     RowBox[{"u", ",", "z"}], "}"}], " "}], TraditionalForm]]]
}], "Text",
 CellChangeTimes->{{3.5882313009963093`*^9, 3.5882313418839817`*^9}, {
   3.588231451520974*^9, 3.58823146064699*^9}, {3.5882317473764935`*^9, 
   3.5882318092618027`*^9}, {3.5882631340635467`*^9, 3.58826318633362*^9}, {
   3.5882632611137247`*^9, 3.5882632619737253`*^9}, {3.5882633338138266`*^9, 
   3.588263420293947*^9}, 3.588264728287779*^9, {3.5888657147703733`*^9, 
   3.5888657277515965`*^9}}],

Cell["\<\
transforms the graphs of power functions into straight lines! \
\>", "Text",
 CellChangeTimes->{{3.5882313009963093`*^9, 3.5882313418839817`*^9}, {
   3.588231451520974*^9, 3.58823146064699*^9}, {3.5882317473764935`*^9, 
   3.5882318092618027`*^9}, {3.5882631340635467`*^9, 3.58826318633362*^9}, {
   3.5882632611137247`*^9, 3.5882632619737253`*^9}, {3.5882633338138266`*^9, 
   3.588263420293947*^9}, 3.588264728287779*^9, {3.5882686245392337`*^9, 
   3.588268639039254*^9}, {3.588865737456814*^9, 3.588865768381068*^9}}],

Cell[TextData[{
 "In case of functions: ",
 Cell[BoxData[
  FormBox[
   RowBox[{"lg", "(", 
    RowBox[{"f", "(", "x", ")"}], ")"}], TraditionalForm]]],
 "is plotted with respect to ",
 Cell[BoxData[
  FormBox[
   RowBox[{"lg", "(", "x", ")"}], TraditionalForm]]],
 ", \ni.e.,  ",
 Cell[BoxData[
  FormBox[
   RowBox[{"lg", "(", " ", 
    RowBox[{"f", " ", 
     RowBox[{"(", 
      SuperscriptBox["10", "u"], ")"}]}], ")"}], TraditionalForm]]],
 " is plotted with respect of ",
 StyleBox["u",
  FontSlant->"Italic"],
 "."
}], "Text",
 CellChangeTimes->{{3.5882313009963093`*^9, 3.5882313418839817`*^9}, {
   3.588231451520974*^9, 3.58823146064699*^9}, {3.5882317473764935`*^9, 
   3.5882318092618027`*^9}, {3.5882631340635467`*^9, 3.58826318633362*^9}, {
   3.5882632611137247`*^9, 3.5882632619737253`*^9}, {3.5882633338138266`*^9, 
   3.588263420293947*^9}, 3.588264728287779*^9, {3.5882686245392337`*^9, 
   3.588268639039254*^9}, {3.588865737456814*^9, 3.5888658514350147`*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

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

Cell[CellGroupData[{

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"Example", ":", " ", 
    RowBox[{"plot", " ", "the", " ", "function", " ", "y"}]}], "=", 
   SqrtBox["x"], " "}], TraditionalForm]], "Section",
 CellChangeTimes->{{3.5882640116757755`*^9, 3.588264071475859*^9}, {
  3.5888658702486477`*^9, 3.5888658871454773`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Grid", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "\"\<Log-Log Transformed\>\"", ",", "\"\<\>\"", ",", 
      "\"\<Log-Log coordinate system\>\""}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Plot", "[", 
       RowBox[{
        RowBox[{"Log", "[", 
         RowBox[{"10", ",", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"10", "^", "u"}], ")"}], 
           RowBox[{"2", "/", "3"}]]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"u", ",", 
          RowBox[{"-", "0.3"}], ",", "1.5"}], "}"}], ",", 
        RowBox[{"FrameLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"\"\<u=lg(x)\>\"", ",", "\"\<z=lg(y)\>\""}], "}"}]}], ",", 
        RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
        RowBox[{"Frame", "\[Rule]", "True"}], ",", 
        RowBox[{"GridLines", "\[Rule]", "Automatic"}]}], "]"}], ",", 
      "\"\<\[Rule]\>\"", ",", 
      RowBox[{"LogLogPlot", "[", 
       RowBox[{
        RowBox[{"x", "^", 
         RowBox[{"(", 
          RowBox[{"2", "/", "3"}], ")"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "0.05", ",", "30"}], "}"}], ",", 
        RowBox[{"FrameLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"x", ",", "\"\<y\>\""}], "}"}]}], ",", 
        RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
        RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", 
        RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}], "}"}]}], "}"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.588231511253479*^9, 3.5882316706555595`*^9}, {
  3.588231935871625*^9, 3.588232119780348*^9}, {3.588232150075601*^9, 
  3.588232229682541*^9}, {3.5882635126540766`*^9, 3.5882636022742023`*^9}, {
  3.5882636639542885`*^9, 3.5882637951554723`*^9}, {3.5882639396556745`*^9, 
  3.588263947215685*^9}, {3.588264078575869*^9, 3.588264239916095*^9}, {
  3.5882643190262055`*^9, 3.58826437913729*^9}, {3.588865894743691*^9, 
  3.5888659071019125`*^9}}],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"Log-Log Transformed\"\>", "\<\"\"\>", "\<\"Log-Log coordinate \
system\"\>"},
    {
     GraphicsBox[{{}, {}, 
       {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVz2k81HkAx3G50iJsIkcsUsIqx7xkt3wZHohahdBpicy26yglUUqKJArj
TIVsdKxR2S3H9otJuZKIQeUexzj+E5l/FLPtg8/r/fij5xfiFiApISGx/Vv/
O1FYLW9p2UZszCUDsrPrie+6ouR1xm2El5Cw4lJSPem4c1lFW6+NHB1QromM
qSfVJV7qMkpt5G6aru6+3+pJxpNJfZ6glWiLNnfp2NQTuyaNn6IKWom44sT2
ws46kj5zhMVVaSW1jpMMjnodsWXq17oLW8gO707Z2vQXpDHTeChuromYB2hn
Se/kkqWaPmppAXWk9BD8Hzs8I7Wx66NyR7lESmbgl6jECrL/snlyvOpTAjm9
Mo5iGVlG3e/YsFhGfMZ+1klfuEdWyQ51r3O+TZoedhswnlwnRr5mGWtvniAu
pmmre6JDiJX/luJdJjdQw4yuHdRmo2PYOsTX7QFCem6OxawqwvMMLjctrAIx
/ufO+RU8AK8ypSvgUTV0/1TX/5D9GPlt2oKDyS9gqvlmYMOKp4g+tVufodYI
sduwWvPyGnC2HQljiV9Dx1K0TehRi9KcOafXrFYIImh5kliHFK8VE+7Fb6HW
oHFVM7ERq4tzriWs4uEko3mNX2MzLKrne4x8uvBDx05oCVrwMajO7GTHO+Td
uHDsS3IrqLUufGdmDz5pWEyZm77FZo82dQdmH+Y1QxpK/mpHe4+1Q3lUP7TW
z5bku/Lw6NXFTf55A5iskhd1t3eilGnV70oGwZa6FnPYoxuxMWrKbNEQdnuF
rQydeYecNXw5RY1hNG58L18V/gFxKYL4HvcR7FNP/i5asxep550rhBdH4ev9
fq3L3j4Mvsv4x/rOGMZHyk9GavVj2YKGDa9fAJnFypah8X4cO5dw4Z7MBGhP
2d1HSwawmOR+4ZnBJNyXJUmZBA1i/0EPebM9U9jC3PRQZ/MQlly339sSRUHi
qUkqY2EIti0Ps/h7hHB75hAe38zHaulK1ulJIaJkChO/pgxDISo0lXH6I5QK
7bi5O0fA97QXa2hMY2P9EvEJvVH0+8u9ybo7DRNz+T/CB0fxkifgOzjN4JGu
zQfO32P4NynSQ2lwBrcDb4Wqnheg/biE0fGwTwid3sXIdRxHZ02+7VLlWTRI
/bh4YOUEFuxtKiwLZvHFa9tnx84JWEhHXzlrLkKmTLGqZ+Yk3Ex6iuaaRKi2
MWIUHJoC+7yVoeIBGs9LhXEqRhQ+2UUI2b/SyPHMsztiQsF9obJS+yCN4K+u
8y1mFL4Pd3AzZdFQd+IEXWVQuBLodsblKA1Wb5CHkgOFS86hXQlxNBSWj+sp
HqAQo3w/SZZDY9fv/Co5NoW+Jso7+QENY5X0cFYmBbsEyzVqZTQkHjturMuh
sLikssKwnEaRZOGt+HwKp2bqRxy5NOaz/S7JcihEdIzYx/Jo5NX1ekk3UOhM
NVGU76ZxLPiKiv8rCtauIZ2p72k4qaKR20JB9FIUXNBP46PPDdtYHoWwcpnc
6nEaTHqfoSSfQuvxrYFbp779XFfo9R2lYGGRZPFGSGOSWZVVPU5BeFe1vm+W
BjtZSyFmmsKOQG826zONw1aNtX2zFDgGuT7CeRq23ZFn7OYoLO/rNY5YoKFy
1tgm7yuF4FwDkVhMY8Swe1ospvAfK6iAKw==
         "]]}},
      Axes->True,
      AxesOrigin->{0, 0},
      Frame->True,
      FrameLabel->{{
         FormBox["\"z=lg(y)\"", TraditionalForm], None}, {
         FormBox["\"u=lg(x)\"", TraditionalForm], None}},
      GridLines->Automatic,
      Method->{},
      PlotRange->{{-0.3, 1.5}, {-0.19999997551020401`, 0.9999999755102039}},
      PlotRangeClipping->True,
      PlotRangePadding->{
        Scaled[0.02], 
        Scaled[0.02]}], "\<\"\[Rule]\"\>", 
     GraphicsBox[{{}, {}, 
       {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwB4QQe+yFib1JlAgAAAE0AAAACAAAARj3uaUL3B8AHpz2NWPT/v/N0Kc09
8wfA7puMEf3u/7+grGQwOe8HwNWQ25Wh6f+/+hvb9i/nB8Cienme6t7/v6/6
x4Md1wfAPk61r3zJ/78YuKGd+LYHwHX1LNKgnv+/6jJV0a52B8DiQxwX6Uj/
v48ovDgb9gbAvuD6oHmd/r83J2iqUt8FwEk04I3DKf2/ZeQ+lQPbBMCGMKlx
r877v2J80bHP2wPA16VsQmp6+r+/J0Jx+sYCwP40WOxNCfm/oZHdqZ7EAcDW
bCeN07D3v+MOV4WhrADAhL4eB4I79r/ozRglfzP/v0WJEG7/zPS/FvvYMa4y
/b+5/OXLHnfzvwRPVYSaBvu/AorjAmcE8r/+HyfJef/4v/6/xDBRqvC/laZw
cY8C978b3kCXFK7uv+xTdl9i2vS/5W9If9jN679PftE/KNfyvxRTF1XgHum/
cc/oZauo8L/raTbdOTbmv2Gs797JCO2/63JKPzFb47/4s7jWIgrpv1DNJY9s
seC/Dgn6Wfa05L+8tqIi85vbvzxY5sGvqeC/pHWIApU31r/S6ZVqx4/Yv9+b
DkfaX9C/QfN7vhHqz7/WTP1+tkbFv33273RYuL+//k71TZAltb9+bKy68byI
PwHzcnz2fYA/bqAh3zLMwT+QgNd+7rq3P5VmbcNx3dA/x4g8r5d8xj/1YVkA
1YHZP05B5qo4AdE/krT3OTbJ4D9tm5+inWHWP6tqSmgHKOU/OI64NV813D+K
ta3Pa3LpP1zOc4ry9uA/UQZmUupy7T81BESM8aHjP80E0yT35PA/ZwbE256G
5j9liR0uhuvyPzG3fD0IOuk/YFjw097n9D/VdUDF09/rP5sABzR6D/c/zwC0
mk2/7j/KK8ihIhL5PzEdMMHBtvA/OTDNyQ1A+z8mIN7bsyryP5y3fP8FSf0/
aHqo/wOG8z9iibTRx0f/P5ZbeDaF2vQ/NRoYL+a4AEDxIiCU3Uv2PzMxK/xu
uwFAmUHk+pOk9z/RNGAmmdMCQGxGgIghGvk/oV3ZHqjmA0Ar0iEp4Ij6P+rH
J5495wRAOLXf0vze+z/THph6dP0FQG5+daPwUf0/N7fd3TEBB0Dznid9Qqz+
P8x0Zw/U/wdAZUbfacX//z8AHxOeFxQJQABqt74PuABArgqUs+EVCkB0XA3N
62MBQETTY8hgGgpA2IxCMOtmAUDbmzPd3x4KQDy9d5PqaQFACC3TBt4nCkAF
HuJZ6W8BQGJPElraOQpAlt+25uZ7AUAWlJAA010KQLliYADikwFAfx2NTcSl
CkD/aLMz2MMBQBbmXGJDqgpAZJnoltfGAUCsrix3wq4KQMjJHfrWyQFA2j/M
oMC3CkCRKojA1c8BQDRiC/S8yQpAIuxcTdPbAUDopomate0KQEVvBmfO8wFA
fm9ZrzTyCkCpnzvKzfYBQBU4KcSz9gpADtBwLc35AUBCycjtsf8KQNYw2/PL
/wFAnOsHQa4RC0Bo8q+AyQsCQDK011UtFgtAzCLl48gOAkDJfKdqrBoLQDBT
GkfIEQJA9g1HlKojC0D5s4QNxxcCQIzWFqkpKAtAXeS5cMYaAkAjn+a9qCwL
QMIU79PFHQJAume20icxC0AmRSQ3xSACQFAwhuemNQtAinVZmsQjAkB7QHiu

         "]]}},
      Axes->True,
      AxesOrigin->{-2.995732273553991, -1.997154762002937},
      CoordinatesToolOptions:>{"DisplayFunction" -> ({
          Exp[
           Part[#, 1]], 
          Exp[
           Part[#, 2]]}& ), "CopiedValueFunction" -> ({
          Exp[
           Part[#, 1]], 
          Exp[
           Part[#, 2]]}& )},
      Frame->True,
      FrameLabel->{{
         FormBox["\"y\"", TraditionalForm], None}, {
         FormBox["x", TraditionalForm], None}},
      FrameTicks->{{{{-2.302585092994046, 
           FormBox[
            TagBox[
             InterpretationBox["\"0.1\"", 0.1, AutoDelete -> True], 
             NumberForm[#, {
               DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
            TraditionalForm]}, {-1.6094379124341003`, 
           FormBox[
            TagBox[
             InterpretationBox["\"0.2\"", 0.2, AutoDelete -> True], 
             NumberForm[#, {
               DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
            TraditionalForm]}, {-0.6931471805599453, 
           FormBox[
            TagBox[
             InterpretationBox["\"0.5\"", 0.5, AutoDelete -> True], 
             NumberForm[#, {
               DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
            TraditionalForm]}, {0., 
           FormBox[
            TagBox[
             InterpretationBox["\"1.0\"", 1., AutoDelete -> True], 
             NumberForm[#, {
               DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
            TraditionalForm]}, {0.6931471805599453, 
           FormBox[
            TagBox[
             InterpretationBox["\"2.0\"", 2., AutoDelete -> True], 
             NumberForm[#, {
               DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
            TraditionalForm]}, {1.6094379124341003`, 
           FormBox[
            TagBox[
             InterpretationBox["\"5.0\"", 5., AutoDelete -> True], 
             NumberForm[#, {
               DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
            TraditionalForm]}, {2.302585092994046, 
           FormBox[
            TagBox[
             InterpretationBox["\"10.0\"", 10., AutoDelete -> True], 
             NumberForm[#, {
               DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
            TraditionalForm]}, {2.995732273553991, 
           FormBox[
            TagBox[
             InterpretationBox["\"20.0\"", 20., AutoDelete -> True], 
             NumberForm[#, {
               DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
            TraditionalForm]}, {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]}}}, {{-2.302585092994046, 
           FormBox["\"\"", TraditionalForm]}, {-1.6094379124341003`, 
           FormBox["\"\"", TraditionalForm]}, {-0.6931471805599453, 
           FormBox["\"\"", TraditionalForm]}, {0., 
           FormBox["\"\"", TraditionalForm]}, {0.6931471805599453, 
           FormBox["\"\"", TraditionalForm]}, {1.6094379124341003`, 
           FormBox["\"\"", TraditionalForm]}, {2.302585092994046, 
           FormBox["\"\"", TraditionalForm]}, {2.995732273553991, 
           FormBox["\"\"", TraditionalForm]}, {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]}}}}, {{{-2.302585092994046, 
           FormBox[
            TagBox[
             InterpretationBox["\"0.1\"", 0.1, AutoDelete -> True], 
             NumberForm[#, {
               DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
            TraditionalForm]}, {-1.6094379124341003`, 
           FormBox[
            TagBox[
             InterpretationBox["\"0.2\"", 0.2, AutoDelete -> True], 
             NumberForm[#, {
               DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
            TraditionalForm]}, {-0.6931471805599453, 
           FormBox[
            TagBox[
             InterpretationBox["\"0.5\"", 0.5, AutoDelete -> True], 
             NumberForm[#, {
               DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
            TraditionalForm]}, {0., 
           FormBox[
            TagBox[
             InterpretationBox["\"1.0\"", 1., AutoDelete -> True], 
             NumberForm[#, {
               DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
            TraditionalForm]}, {0.6931471805599453, 
           FormBox[
            TagBox[
             InterpretationBox["\"2.0\"", 2., AutoDelete -> True], 
             NumberForm[#, {
               DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
            TraditionalForm]}, {1.6094379124341003`, 
           FormBox[
            TagBox[
             InterpretationBox["\"5.0\"", 5., AutoDelete -> True], 
             NumberForm[#, {
               DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
            TraditionalForm]}, {2.302585092994046, 
           FormBox[
            TagBox[
             InterpretationBox["\"10.0\"", 10., AutoDelete -> True], 
             NumberForm[#, {
               DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
            TraditionalForm]}, {2.995732273553991, 
           FormBox[
            TagBox[
             InterpretationBox["\"20.0\"", 20., AutoDelete -> True], 
             NumberForm[#, {
               DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
            TraditionalForm]}, {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]}}}, {{-2.302585092994046, 
           FormBox["\"\"", TraditionalForm]}, {-1.6094379124341003`, 
           FormBox["\"\"", TraditionalForm]}, {-0.6931471805599453, 
           FormBox["\"\"", TraditionalForm]}, {0., 
           FormBox["\"\"", TraditionalForm]}, {0.6931471805599453, 
           FormBox["\"\"", TraditionalForm]}, {1.6094379124341003`, 
           FormBox["\"\"", TraditionalForm]}, {2.302585092994046, 
           FormBox["\"\"", TraditionalForm]}, {2.995732273553991, 
           FormBox["\"\"", TraditionalForm]}, {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]}}}}},
      GridLines->CompressedData["
1:eJxTTMoPSmViYGAAYXEgFgvduntjNtMB49633x0P/Nz/3vLXPye9Z/sZoADK
t4fK20PVO0x8XFzt9J3dYb30mu2XvPkdFJfv/VPh/Hl/+YMHHxyC3u4PEmn8
tS7iwf4A+4cqhy9f268wa9bx7/1n9sc4cim++LFrPzfz2qpXkz/aQ8z/Zs+k
oPWLe/Uf+/Aoo3VFSv/ti1db229axOAAUcfoMPsa989lptwOvEVG1pebeB2G
qrsB8Wu3ww==
       "],
      Method->{},
      PlotRange->NCache[{{-2.995732273553991, 
          Log[30]}, {-1.997154762002937, 
         2.2674648340750467`}}, {{-2.995732273553991, 
        3.4011973816621555`}, {-1.997154762002937, 2.2674648340750467`}}],
      PlotRangeClipping->True,
      PlotRangePadding->{
        Scaled[0.02], 
        Scaled[0.02]},
      Ticks->{{{-2.302585092994046, 
          FormBox[
           TagBox[
            InterpretationBox["\"0.1\"", 0.1, AutoDelete -> True], 
            NumberForm[#, {
              DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
           TraditionalForm]}, {-1.6094379124341003`, 
          FormBox[
           TagBox[
            InterpretationBox["\"0.2\"", 0.2, AutoDelete -> True], 
            NumberForm[#, {
              DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
           TraditionalForm]}, {-0.6931471805599453, 
          FormBox[
           TagBox[
            InterpretationBox["\"0.5\"", 0.5, AutoDelete -> True], 
            NumberForm[#, {
              DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
           TraditionalForm]}, {0., 
          FormBox[
           TagBox[
            InterpretationBox["\"1.0\"", 1., AutoDelete -> True], 
            NumberForm[#, {
              DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
           TraditionalForm]}, {0.6931471805599453, 
          FormBox[
           TagBox[
            InterpretationBox["\"2.0\"", 2., AutoDelete -> True], 
            NumberForm[#, {
              DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
           TraditionalForm]}, {1.6094379124341003`, 
          FormBox[
           TagBox[
            InterpretationBox["\"5.0\"", 5., AutoDelete -> True], 
            NumberForm[#, {
              DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
           TraditionalForm]}, {2.302585092994046, 
          FormBox[
           TagBox[
            InterpretationBox["\"10.0\"", 10., AutoDelete -> True], 
            NumberForm[#, {
              DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
           TraditionalForm]}, {2.995732273553991, 
          FormBox[
           TagBox[
            InterpretationBox["\"20.0\"", 20., AutoDelete -> True], 
            NumberForm[#, {
              DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
           TraditionalForm]}, {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]}}}, {{-2.302585092994046, 
          FormBox[
           TagBox[
            InterpretationBox["\"0.1\"", 0.1, AutoDelete -> True], 
            NumberForm[#, {
              DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
           TraditionalForm]}, {-1.6094379124341003`, 
          FormBox[
           TagBox[
            InterpretationBox["\"0.2\"", 0.2, AutoDelete -> True], 
            NumberForm[#, {
              DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
           TraditionalForm]}, {-0.6931471805599453, 
          FormBox[
           TagBox[
            InterpretationBox["\"0.5\"", 0.5, AutoDelete -> True], 
            NumberForm[#, {
              DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
           TraditionalForm]}, {0., 
          FormBox[
           TagBox[
            InterpretationBox["\"1.0\"", 1., AutoDelete -> True], 
            NumberForm[#, {
              DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
           TraditionalForm]}, {0.6931471805599453, 
          FormBox[
           TagBox[
            InterpretationBox["\"2.0\"", 2., AutoDelete -> True], 
            NumberForm[#, {
              DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
           TraditionalForm]}, {1.6094379124341003`, 
          FormBox[
           TagBox[
            InterpretationBox["\"5.0\"", 5., AutoDelete -> True], 
            NumberForm[#, {
              DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
           TraditionalForm]}, {2.302585092994046, 
          FormBox[
           TagBox[
            InterpretationBox["\"10.0\"", 10., AutoDelete -> True], 
            NumberForm[#, {
              DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
           TraditionalForm]}, {2.995732273553991, 
          FormBox[
           TagBox[
            InterpretationBox["\"20.0\"", 20., AutoDelete -> True], 
            NumberForm[#, {
              DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
           TraditionalForm]}, {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]}}}}]}
   },
   AutoDelete->False,
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{
  3.5882639490456877`*^9, {3.5882640859658794`*^9, 3.5882642409160967`*^9}, {
   3.5882643479872465`*^9, 3.5882643803572917`*^9}, 3.588865909285917*^9}]
}, {2}]],

Cell["\<\
In the  log - log coordinate system, both axes are logarithmically scaled! \
\>", "Text-Framed",
 CellChangeTimes->{{3.588264409297332*^9, 3.5882644412173767`*^9}, {
  3.5888659220487394`*^9, 3.5888659556737986`*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

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

Cell[CellGroupData[{

Cell["\<\
The effect of parameters on the log-log plot\
\>", "Section",
 CellChangeTimes->{{3.588262652031872*^9, 3.5882627088019514`*^9}, {
  3.5882646420376577`*^9, 3.5882646437376604`*^9}, {3.5888659655506163`*^9, 
  3.5888659833542476`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Column", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"TraditionalForm", "[", 
       RowBox[{"B", " ", 
        SuperscriptBox["x", "a"]}], "]"}], ",", 
      RowBox[{"Row", "[", 
       RowBox[{"{", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Plot", "[", 
          RowBox[{
           RowBox[{"B", " ", 
            SuperscriptBox["x", "a"]}], ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", "0", ",", "11"}], "}"}], ",", 
           RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
           RowBox[{"PlotRange", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"0", ",", "10"}], "}"}]}], ",", 
           RowBox[{"PlotStyle", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"Red", ",", "Thick"}], "}"}]}], ",", 
           RowBox[{"ImageSize", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"200", ",", "200"}], "}"}]}]}], "]"}], ",", 
         "\"\<   \>\"", ",", "\[IndentingNewLine]", 
         RowBox[{"LogLogPlot", "[", 
          RowBox[{
           RowBox[{"B", " ", 
            SuperscriptBox["x", "a"]}], ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", "0.1", ",", "10"}], "}"}], ",", 
           RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
           RowBox[{"PlotRange", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"0.07", ",", "11"}], "}"}]}], ",", 
           RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", 
           RowBox[{"PlotStyle", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"Red", ",", "Thick"}], "}"}]}], ",", 
           RowBox[{"ImageSize", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"200", ",", "200"}], "}"}]}]}], "]"}]}], "}"}], "]"}]}], 
     "}"}], "]"}], ",", 
   "\"\<Plots of B \!\(\*SuperscriptBox[\(x\), \(a\)]\)\>\"", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "1"}], "}"}], ",", 
     RowBox[{"-", "3"}], ",", "3", ",", 
     RowBox[{"Appearance", "\[Rule]", 
      RowBox[{"{", "\"\<Labeled\>\"", "}"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"B", ",", "1"}], "}"}], ",", "0.1", ",", "10", ",", 
     RowBox[{"Appearance", "\[Rule]", 
      RowBox[{"{", "\"\<Labeled\>\"", "}"}]}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4304524538278847`*^9, 3.430452735603058*^9}, {
   3.430452777222904*^9, 3.4304528936002464`*^9}, {3.588221415818775*^9, 
   3.588221433322006*^9}, {3.588221475114479*^9, 3.5882215018685265`*^9}, {
   3.5882215328501806`*^9, 3.588221571397848*^9}, {3.5882216060083094`*^9, 
   3.5882216732444277`*^9}, {3.588221732134531*^9, 3.5882217675933933`*^9}, {
   3.5882218121782713`*^9, 3.5882218515371404`*^9}, {3.5882218925340123`*^9, 
   3.588222032279058*^9}, 3.588232327229512*^9, {3.588262730701982*^9, 
   3.588262799242078*^9}, {3.588264668747695*^9, 3.5882646973877354`*^9}, {
   3.5882647417477975`*^9, 3.588264873157982*^9}, {3.5882649425480785`*^9, 
   3.5882649938481503`*^9}, {3.588265031158203*^9, 3.588265104258305*^9}, 
   3.58826514329836*^9, {3.5882683989779177`*^9, 3.588268433917967*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`a$$ = 1, $CellContext`B$$ = 1, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{
      Hold["Plots of B \!\(\*SuperscriptBox[\(x\), \(a\)]\)"], 
      Manipulate`Dump`ThisIsNotAControl}, {{
       Hold[$CellContext`a$$], 1}, -3, 3}, {{
       Hold[$CellContext`B$$], 1}, 0.1, 10}}, Typeset`size$$ = {
    654., {162., 175.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`a$602571$$ = 
    0, $CellContext`B$602572$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`a$$ = 1, $CellContext`B$$ = 1}, 
      "ControllerVariables" :> {
        Hold[$CellContext`a$$, $CellContext`a$602571$$, 0], 
        Hold[$CellContext`B$$, $CellContext`B$602572$$, 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" :> Column[{
         TraditionalForm[$CellContext`B$$ $CellContext`x^$CellContext`a$$], 
         Row[{
           
           Plot[$CellContext`B$$ $CellContext`x^$CellContext`a$$, \
{$CellContext`x, 0, 11}, AspectRatio -> Automatic, PlotRange -> {0, 10}, 
            PlotStyle -> {Red, Thick}, ImageSize -> {200, 200}], "   ", 
           
           LogLogPlot[$CellContext`B$$ $CellContext`x^$CellContext`a$$, \
{$CellContext`x, 0.1, 10}, AspectRatio -> Automatic, PlotRange -> {0.07, 11}, 
            GridLines -> Automatic, PlotStyle -> {Red, Thick}, 
            ImageSize -> {200, 200}]}]}], 
      "Specifications" :> {
       "Plots of B \!\(\*SuperscriptBox[\(x\), \(a\)]\)", {{$CellContext`a$$, 
          1}, -3, 3, Appearance -> {"Labeled"}}, {{$CellContext`B$$, 1}, 0.1, 
         10, Appearance -> {"Labeled"}}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{734., {287., 300.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.5882220252278457`*^9, 3.5882220329342594`*^9}, 
   3.5882323291951156`*^9, {3.5882627324619846`*^9, 3.588262762152026*^9}, 
   3.588262801552081*^9, {3.5882647700278373`*^9, 3.5882647832478557`*^9}, {
   3.5882648168379025`*^9, 3.5882648743079834`*^9}, {3.588264923638052*^9, 
   3.588264995378153*^9}, {3.588265032198204*^9, 3.5882651050883064`*^9}, 
   3.5882651703483973`*^9, {3.5882684353679686`*^9, 3.588268441987978*^9}}]
}, {2}]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

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

Cell[CellGroupData[{

Cell["\<\
Finally, straighten the logarithmic functions:
log-lin transformation\
\>", "MainSection",
 Evaluatable->False,
 CellChangeTimes->{{3.588262891182206*^9, 3.5882629240722523`*^9}, {
   3.5882632042836447`*^9, 3.588263204533645*^9}, {3.588265342058638*^9, 
   3.5882653697496767`*^9}, 3.588268660169284*^9, {3.5888659947286673`*^9, 
   3.5888660295851293`*^9}},
 AspectRatioFixed->True],

Cell[TextData[{
 "Consider:\t ",
 Cell[BoxData[
  FormBox[
   RowBox[{"y", "=", 
    RowBox[{
     RowBox[{"a", " ", 
      RowBox[{"lg", "(", "x", ")"}]}], " ", "+", "b"}]}], TraditionalForm]]],
 ", where",
 Cell[BoxData[
  FormBox[
   RowBox[{"   ", 
    RowBox[{"x", ">", "0"}]}], TraditionalForm]]]
}], "Text",
 CellChangeTimes->{{3.588231169705479*^9, 3.588231217598563*^9}, {
  3.5882314255937285`*^9, 3.5882314318337393`*^9}, {3.5882629896923447`*^9, 
  3.5882630535324335`*^9}, {3.588264705647747*^9, 3.5882647088877516`*^9}, {
  3.588265385019698*^9, 3.5882653902797055`*^9}, {3.5888660325647345`*^9, 
  3.5888660445641556`*^9}}],

Cell[TextData[{
 "Hence:  ",
 Cell[BoxData[
  FormBox[
   RowBox[{"y", "=", 
    RowBox[{
     RowBox[{
      RowBox[{"a", " ", 
       RowBox[{"lg", "(", "x", ")"}]}], " ", "+", "b"}], "=", " ", 
     RowBox[{
      RowBox[{"a", " ", "u"}], "+", " ", "b", " "}]}]}], TraditionalForm]]]
}], "Text",
 CellChangeTimes->{{3.588231169705479*^9, 3.5882312326213894`*^9}, {
  3.588231435390546*^9, 3.5882314399145536`*^9}, {3.5882630357824087`*^9, 
  3.5882631006134996`*^9}, {3.5882647131077576`*^9, 3.588264723407772*^9}, {
  3.58826541482974*^9, 3.5882654367397704`*^9}, {3.5888660517099686`*^9, 
  3.58886605261477*^9}}],

Cell[TextData[{
 "In other words, the transformation\n\t\t",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x", ",", "y"}], "}"}], "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"lg", "(", "x", ")"}], ",", "y"}], "}"}]}], "=", 
    RowBox[{"{", 
     RowBox[{"u", ",", "y"}], "}"}], " "}], TraditionalForm]]]
}], "Text",
 CellChangeTimes->{{3.5882313009963093`*^9, 3.5882313418839817`*^9}, {
   3.588231451520974*^9, 3.58823146064699*^9}, {3.5882317473764935`*^9, 
   3.5882318092618027`*^9}, {3.5882631340635467`*^9, 3.58826318633362*^9}, {
   3.5882632611137247`*^9, 3.5882632619737253`*^9}, {3.5882633338138266`*^9, 
   3.588263420293947*^9}, 3.588264728287779*^9, {3.588265448739787*^9, 
   3.5882654523997927`*^9}, {3.588866057248978*^9, 3.588866066921995*^9}}],

Cell["\<\
transforms the graphs of logartihmic functions into straight lines! \
\>", "Text",
 CellChangeTimes->{{3.5882313009963093`*^9, 3.5882313418839817`*^9}, {
   3.588231451520974*^9, 3.58823146064699*^9}, {3.5882317473764935`*^9, 
   3.5882318092618027`*^9}, {3.5882631340635467`*^9, 3.58826318633362*^9}, {
   3.5882632611137247`*^9, 3.5882632619737253`*^9}, {3.5882633338138266`*^9, 
   3.588263420293947*^9}, 3.588264728287779*^9, {3.5882686245392337`*^9, 
   3.588268639039254*^9}, {3.588865737456814*^9, 3.588865768381068*^9}, {
   3.5888660896864357`*^9, 3.588866094648244*^9}}],

Cell[TextData[{
 "In case of functions: ",
 Cell[BoxData[
  FormBox[
   RowBox[{"f", "(", "x", ")"}], TraditionalForm]]],
 " is plotted with respect to ",
 Cell[BoxData[
  FormBox[
   RowBox[{"u", "=", 
    RowBox[{"lg", "(", "x", ")"}]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 ", "
}], "Text",
 CellChangeTimes->{{3.5882313009963093`*^9, 3.5882313418839817`*^9}, {
   3.588231451520974*^9, 3.58823146064699*^9}, {3.5882317473764935`*^9, 
   3.5882318092618027`*^9}, {3.5882631340635467`*^9, 3.58826318633362*^9}, {
   3.5882632611137247`*^9, 3.5882632619737253`*^9}, {3.5882633338138266`*^9, 
   3.588263420293947*^9}, 3.588264728287779*^9, {3.5882686245392337`*^9, 
   3.588268639039254*^9}, {3.588865737456814*^9, 3.5888658514350147`*^9}, {
   3.588866108614269*^9, 3.5888661418961277`*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

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

Cell[CellGroupData[{

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"Example", ":", " ", 
    RowBox[{"plot", " ", "the", " ", "function", "  ", "y"}]}], "=", 
   RowBox[{"0.5", " ", 
    RowBox[{"lg", "(", "x", ")"}], "  "}]}], TraditionalForm]], "Section",
 CellChangeTimes->{{3.5882640116757755`*^9, 3.588264071475859*^9}, {
  3.5882655479099264`*^9, 3.5882655595699425`*^9}, {3.5888661474819374`*^9, 
  3.588866161353362*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Grid", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "\"\<Log-lin transformation\>\"", ",", "\"\<\>\"", ",", 
      "\"\<Log-lin coordinate system\>\""}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Plot", "[", 
       RowBox[{
        RowBox[{"0.5", " ", 
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{"(", 
            RowBox[{"10", "^", "u"}], ")"}]}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"u", ",", 
          RowBox[{"-", "0.3"}], ",", "1.5"}], "}"}], ",", 
        RowBox[{"FrameLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"\"\<u=lg(x)\>\"", ",", "\"\<y\>\""}], "}"}]}], ",", 
        RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
        RowBox[{"Frame", "\[Rule]", "True"}], ",", 
        RowBox[{"GridLines", "\[Rule]", "Automatic"}]}], "]"}], ",", 
      "\"\<\[Rule]\>\"", ",", 
      RowBox[{"LogLinearPlot", "[", 
       RowBox[{
        RowBox[{"0.5", " ", 
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", "x"}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "0.01", ",", "10"}], "}"}], ",", 
        RowBox[{"FrameLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"x", ",", "\"\<y\>\""}], "}"}]}], ",", 
        RowBox[{"AspectRatio", "\[Rule]", "0.5"}], ",", 
        RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", 
        RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}], "}"}]}], "}"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.588231511253479*^9, 3.5882316706555595`*^9}, {
  3.588231935871625*^9, 3.588232119780348*^9}, {3.588232150075601*^9, 
  3.588232229682541*^9}, {3.5882635126540766`*^9, 3.5882636022742023`*^9}, {
  3.5882636639542885`*^9, 3.5882637951554723`*^9}, {3.5882639396556745`*^9, 
  3.588263947215685*^9}, {3.588264078575869*^9, 3.588264239916095*^9}, {
  3.5882643190262055`*^9, 3.58826437913729*^9}, {3.5882655651599503`*^9, 
  3.5882656200910273`*^9}, {3.588265651291071*^9, 3.588265670381098*^9}, {
  3.588265728431179*^9, 3.5882657524312124`*^9}, {3.5882657981912766`*^9, 
  3.5882657991012783`*^9}, {3.588866169638977*^9, 3.5888661837434015`*^9}}],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"Log-lin transformation\"\>", "\<\"\"\>", "\<\"Log-lin coordinate \
system\"\>"},
    {
     GraphicsBox[{{}, {}, 
       {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwtxW9QE2QcB3DsBPGIhOJQOnwhqBB0dDA8sgu+/OmFYp01KM1SIuDYG0Uh
kgItQ9F1MgNpGVEG5yWSBxKeJ8x6hElIUMIGG6DNjTEeW+Cmkz3hHVD97nnx
uc+694uUBU/4+Pi89p//nznXHaBQGJmT1rPcqPOaqBijXM9MF04Gh68zyvWs
u3XHat9VRrmeaa/ORpidBnkPSx0Me6m8ycBA97AvPQdU+mADq6N7WEp6RG+W
e4gl09fZwFcxU1Xzg+w3+hpb8WxO6OmCm/KrrLfyufKGe3qmpzvY7pPxmuMh
v7A9dCtb6bpoemHxMvOjz7E1flMTUZk/sBBay6Jz47Qbzx5kIXQhS8xPbn4z
9jsoaA1M00lFucp2jNKNuKHV60+XdKGXboFZVzNe0NENE92ORmO4M0/zK87S
V3C44u2ITaEDqKB1aHv1QIlq6RZaaYZL9fNbbqkMaKN7ULPjmZms5hF8Qd/A
2ub6b9RrzAin+5DQ/dgSnTOOeLofD/bejPvIdBtuegCujdscmekW+R94Odu4
OiPdKh/CqCUpo7PchhF6GB2/n3gx//tJuQGX0hNt25ldbkTlkdCgOu+UfAT1
6x3+gWHT+Jo2oarGedySxeVm1B7N7HKfuIcaegz229orSRf+wiQ9jpULYZvN
Nif86Ql88Jn62I++Myim72CxOuvY9chZ+Z/YnZcdELfrPt6lLVj2bdo7Q+Uu
+NB3kTL00xnHLjeSaSvWLtepDs26EU5b8WT5/tpNhx7IbXC8lbYUFvZQPglb
vv/wmZaH8kn0mZ2OjC0euR0/V3+cvcruwTXajtFSn+jSkkcYoacw1tOYsiJo
DmbagYW0zV2Kpjm5AwnLD5/6NN4rn4Yy1nJ+ftCLN+hp1B1N3BC4R8g5HqWW
ueveE/DQHFkLOl14noCS5nj6wwzl8yqBYJrjVKHyk23FAhqa4/PM/ePqKgE1
zXEk6GK1X5uQc1gHXTs17ULOkapWrA+9LACaY3GZrmtDp5BzVHj6+St6Ieco
M/G0SrPAQZpjrDY2MGBCyDmStheN1d4Rcg5vn3dfk01gjuYo6fRt6P5boJjm
MJRuLdx6X2CY5khIqE4Ydgs5h7slpN86J+CiOV4v3Fmn+kfIOdoiG3Lcj4Wc
4ynr3ZiyBYFAmmNfQ6R3aUlgL83xLyFSiRE=
         "]]}},
      Axes->True,
      AxesOrigin->{0, 0},
      Frame->True,
      FrameLabel->{{
         FormBox["\"y\"", TraditionalForm], None}, {
         FormBox["\"u=lg(x)\"", TraditionalForm], None}},
      GridLines->Automatic,
      ImageSize->{293.33333333333326`, Automatic},
      Method->{},
      PlotRange->{{-0.3, 1.5}, {-0.149999981632653, 0.7499999816326529}},
      PlotRangeClipping->True,
      PlotRangePadding->{
        Scaled[0.02], 
        Scaled[0.02]}], "\<\"\[Rule]\"\>", 
     GraphicsBox[{{}, {}, 
       {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwB4QQe+yFib1JlAgAAAE0AAAACAAAAP2g/srFrEsBhr5Dv///vv5j7/FGG
aRLAEvsaJjv877/yjrrxWmcSwMRGpVx2+O+/pLU1MQRjEsAl3rnJ7PDvvwgD
LLBWWhLA6Azjo9nh77/SnRiu+0gSwHBqNVizw++/ZNPxqUUmEsB9JdrAZofv
v4k+pKHZ4BHAmZsjks0O77/YCMXKU0oRwJ/fiG9RCe6/glplhse9EMAX0FNP
KRXtv2kCRAz9MxDAyVBTRMsl7L+rPL2XCT0PwEkpJXQjIuu/OIPxOwwmDsA7
rlymzy/qv9GxnVOz9wzA+4pmEzIp6b/ljMb/3c4LwPb3pJVeJ+i/rXbu0Pu5
CsBiEUka3zbnv4FIjhW+jQnAnYK/2RUy5r8JKS1/c3UIwEmgm5ugPuW/DbZI
faxiB8AwTqxy9U/kvxwr3O6JOAbA5lOPhABN47/frm6FWiIFwA0G2JhfW+K/
rRp5j8/0A8ACEPPndFXhv/cyAC7IzALAMqpCTFRU4L/1WYbxs7gBwKbh72UP
yd6//2iEKESNAMCHHv+o4sDcv3sNAwmP6/6/TLTZ8F3b2r8OGe2n3o38v6z5
WK5Fzdi/mX3QbzU7+r+DX0GWwcjWv4z/sYFyEPi/PB71guXm1L+WUYN6+Lb1
v5OMTeV13NK/CMFSvWSF87/MU3FMrvTQv3GJGynYXvG/9nb8u/Uszr/iQ6j3
KBPuv46lX8pnH8q/s68VMW646b/rhVniKVfGv7G7YjhFAOW/gcWc5cQ9wr+e
eaKRKl7gvwiMZHsQb7y/t+S8/bgX2L+Z8Lw+N+20vxgt6OeAcM2/OidQsR+S
qb8G+I5IhOG3v6xoAhcivpS/U7U5Xg3bpD9u6xIccR2CP/fV5ZsB1Mc/KC1l
7GWypD+sKSbIBpnUPy5stbUX5LE/ASiaJukC3j9Yg6WeShG6P1vYii6ZZuM/
ehs0uu7ZwD/G6tV3r7XnP1w0Q9APmMQ/BF1B8zNi7D8G7gj7V6fIPzlKWO11
X/A/6PU3HFBxzD/ZFSD6iLzyP0nPDqk3RtA/gYju3ZQO9T8ng5gZM0rSP8Hd
vne6OPc/I95WhYYr1D/rYp8ql5H5P4OJcHttNdY/rMqBk43C+z//275srBzY
P3bZatN86P0/BQ6kM1f62T8VDDKWkR4AQG+Q5ISVANw/u5yvnfE0AUD3uVnR
K+TdPzYE3J3MOQFAi9iQIZvs3T+wawiepz4BQB33x3EK9d0/pjphnl1IAUBE
NDYS6QXeP5DYEp/JWwFAj64SU6Yn3j9mFHagoYIBQCqjy9Qga94/Eow8o1HQ
AUBejD3YFfLeP43zaKMs1QFA8ap0KIX63j8IW5WjB9oBQIXJq3j0At8//Snu
o73jAUCrBhoZ0xPfP+jHn6Qp9wFA+ID2WZA13z++AwOmAR4CQJJ1r9sKed8/
OWsvptwiAkAllOYreoHfP7TSW6a3JwJAubIdfOmJ3z+pobSmbTECQN/vixzI
mt8/lD9mp9lEAkAsamhdhbzfPw+nkqe0SQJAwIifrfTE3z+KDr+nj04CQFOn
1v1jzd8/f90XqEVYAkB55ESeQt7fP/pERKggXQJADQN87rHm3z90rHCo+2EC
QJ8hsz4h798/7xOdqNZmAkAyQOqOkPffP2p7yaixawJAxl4h3///3z8hI37X

         "]]}},
      AspectRatio->0.5,
      Axes->True,
      AxesOrigin->{-4.605170185988091, -0.9999999693877549},
      CoordinatesToolOptions:>{"DisplayFunction" -> ({
          Exp[
           Part[#, 1]], 
          Part[#, 2]}& ), "CopiedValueFunction" -> ({
          Exp[
           Part[#, 1]], 
          Part[#, 2]}& )},
      Frame->True,
      FrameLabel->{{
         FormBox["\"y\"", TraditionalForm], None}, {
         FormBox["x", TraditionalForm], None}},
      FrameTicks->{{Automatic, Automatic}, {{{-4.605170185988092, 
           FormBox[
            TagBox[
             InterpretationBox["\"0.01\"", 0.01, AutoDelete -> True], 
             NumberForm[#, {
               DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
            TraditionalForm]}, {-2.995732273553991, 
           FormBox[
            TagBox[
             InterpretationBox["\"0.05\"", 0.05, AutoDelete -> True], 
             NumberForm[#, {
               DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
            TraditionalForm]}, {-2.302585092994046, 
           FormBox[
            TagBox[
             InterpretationBox["\"0.10\"", 0.1, AutoDelete -> True], 
             NumberForm[#, {
               DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
            TraditionalForm]}, {-0.6931471805599453, 
           FormBox[
            TagBox[
             InterpretationBox["\"0.50\"", 0.5, AutoDelete -> True], 
             NumberForm[#, {
               DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
            TraditionalForm]}, {0., 
           FormBox[
            TagBox[
             InterpretationBox["\"1.00\"", 1., AutoDelete -> True], 
             NumberForm[#, {
               DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
            TraditionalForm]}, {1.6094379124341003`, 
           FormBox[
            TagBox[
             InterpretationBox["\"5.00\"", 5., AutoDelete -> True], 
             NumberForm[#, {
               DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
            TraditionalForm]}, {2.302585092994046, 
           FormBox[
            TagBox[
             InterpretationBox["\"10.00\"", 10., AutoDelete -> True], 
             NumberForm[#, {
               DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
            TraditionalForm]}, {3.912023005428146, 
           FormBox[
            TagBox[
             InterpretationBox["\"50.00\"", 50., AutoDelete -> True], 
             NumberForm[#, {
               DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
            TraditionalForm]}, {-3.912023005428146, 
           FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
            Thickness[0.001]}}, {-3.506557897319982, 
           FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
            Thickness[0.001]}}, {-3.2188758248682006`, 
           FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
            Thickness[0.001]}}, {-2.8134107167600364`, 
           FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
            Thickness[0.001]}}, {-2.6592600369327783`, 
           FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
            Thickness[0.001]}}, {-2.5257286443082556`, 
           FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
            Thickness[0.001]}}, {-2.4079456086518722`, 
           FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
            Thickness[0.001]}}, {-1.6094379124341003`, 
           FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
            Thickness[0.001]}}, {-1.203972804325936, 
           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]}}, {0.6931471805599453, 
           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]}}, {2.995732273553991, 
           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]}}}, {{-4.605170185988092, 
           FormBox["\"\"", TraditionalForm]}, {-2.995732273553991, 
           FormBox["\"\"", TraditionalForm]}, {-2.302585092994046, 
           FormBox["\"\"", TraditionalForm]}, {-0.6931471805599453, 
           FormBox["\"\"", TraditionalForm]}, {0., 
           FormBox["\"\"", TraditionalForm]}, {1.6094379124341003`, 
           FormBox["\"\"", TraditionalForm]}, {2.302585092994046, 
           FormBox["\"\"", TraditionalForm]}, {3.912023005428146, 
           FormBox["\"\"", TraditionalForm]}, {-3.912023005428146, 
           FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
            Thickness[0.001]}}, {-3.506557897319982, 
           FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
            Thickness[0.001]}}, {-3.2188758248682006`, 
           FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
            Thickness[0.001]}}, {-2.8134107167600364`, 
           FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
            Thickness[0.001]}}, {-2.6592600369327783`, 
           FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
            Thickness[0.001]}}, {-2.5257286443082556`, 
           FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
            Thickness[0.001]}}, {-2.4079456086518722`, 
           FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
            Thickness[0.001]}}, {-1.6094379124341003`, 
           FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
            Thickness[0.001]}}, {-1.203972804325936, 
           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]}}, {0.6931471805599453, 
           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]}}, {2.995732273553991, 
           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]}}}}},
      GridLines->{{-4.605170185988092, -2.995732273553991, \
-2.302585092994046, -0.6931471805599453, 0., 1.6094379124341003`, 
        2.302585092994046, 
        3.912023005428146, -3.912023005428146, -3.506557897319982, \
-3.2188758248682006`, -2.8134107167600364`, -2.6592600369327783`, \
-2.5257286443082556`, -2.4079456086518722`, -1.6094379124341003`, \
-1.203972804325936, -0.916290731874155, -0.5108256237659907, \
-0.35667494393873245`, -0.2231435513142097, -0.10536051565782628`, 
        0.6931471805599453, 1.0986122886681098`, 1.3862943611198906`, 
        1.791759469228055, 1.9459101490553132`, 2.0794415416798357`, 
        2.1972245773362196`, 2.995732273553991, 3.4011973816621555`, 
        3.6888794541139363`}, Automatic},
      ImageSize->{311.3333333333335, Automatic},
      Method->{},
      PlotRange->NCache[{{-4.605170185988091, 
          Log[10]}, {-0.9999999693877549, 
         0.49999996938775515`}}, {{-4.605170185988091, 
        2.302585092994046}, {-0.9999999693877549, 0.49999996938775515`}}],
      PlotRangeClipping->True,
      PlotRangePadding->{
        Scaled[0.02], 
        Scaled[0.02]},
      Ticks->{{{-4.605170185988092, 
          FormBox[
           TagBox[
            InterpretationBox["\"0.01\"", 0.01, AutoDelete -> True], 
            NumberForm[#, {
              DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
           TraditionalForm]}, {-2.995732273553991, 
          FormBox[
           TagBox[
            InterpretationBox["\"0.05\"", 0.05, AutoDelete -> True], 
            NumberForm[#, {
              DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
           TraditionalForm]}, {-2.302585092994046, 
          FormBox[
           TagBox[
            InterpretationBox["\"0.10\"", 0.1, AutoDelete -> True], 
            NumberForm[#, {
              DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
           TraditionalForm]}, {-0.6931471805599453, 
          FormBox[
           TagBox[
            InterpretationBox["\"0.50\"", 0.5, AutoDelete -> True], 
            NumberForm[#, {
              DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
           TraditionalForm]}, {0., 
          FormBox[
           TagBox[
            InterpretationBox["\"1.00\"", 1., AutoDelete -> True], 
            NumberForm[#, {
              DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
           TraditionalForm]}, {1.6094379124341003`, 
          FormBox[
           TagBox[
            InterpretationBox["\"5.00\"", 5., AutoDelete -> True], 
            NumberForm[#, {
              DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
           TraditionalForm]}, {2.302585092994046, 
          FormBox[
           TagBox[
            InterpretationBox["\"10.00\"", 10., AutoDelete -> True], 
            NumberForm[#, {
              DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
           TraditionalForm]}, {3.912023005428146, 
          FormBox[
           TagBox[
            InterpretationBox["\"50.00\"", 50., AutoDelete -> True], 
            NumberForm[#, {
              DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
           TraditionalForm]}, {-3.912023005428146, 
          FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
           Thickness[0.001]}}, {-3.506557897319982, 
          FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
           Thickness[0.001]}}, {-3.2188758248682006`, 
          FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
           Thickness[0.001]}}, {-2.8134107167600364`, 
          FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
           Thickness[0.001]}}, {-2.6592600369327783`, 
          FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
           Thickness[0.001]}}, {-2.5257286443082556`, 
          FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
           Thickness[0.001]}}, {-2.4079456086518722`, 
          FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
           Thickness[0.001]}}, {-1.6094379124341003`, 
          FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
           Thickness[0.001]}}, {-1.203972804325936, 
          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]}}, {0.6931471805599453, 
          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]}}, {2.995732273553991, 
          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}]}
   },
   AutoDelete->False,
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{
  3.5882639490456877`*^9, {3.5882640859658794`*^9, 3.5882642409160967`*^9}, {
   3.5882643479872465`*^9, 3.5882643803572917`*^9}, 3.5882656087710114`*^9, 
   3.588265640891056*^9, 3.5882656860611196`*^9, {3.5882657324811845`*^9, 
   3.588265753461214*^9}, 3.5882658001212792`*^9, 3.5888661870048075`*^9}]
}, {2}]],

Cell["\<\
In the  log - lin system, the x-axis is scaled logarithmically!\
\>", "Text-Framed",
 CellChangeTimes->{{3.588264409297332*^9, 3.5882644412173767`*^9}, {
  3.5882658289313197`*^9, 3.58826583632133*^9}, {3.588866201328633*^9, 
  3.5888662384532986`*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

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

Cell[CellGroupData[{

Cell["\<\
The effect of parameters on the log-lin plot\
\>", "Section",
 CellChangeTimes->{{3.588262652031872*^9, 3.5882627088019514`*^9}, {
  3.5882646420376577`*^9, 3.5882646437376604`*^9}, {3.5888662654161463`*^9, 
  3.588866268536152*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Column", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"TraditionalForm", "[", 
       RowBox[{
        RowBox[{"a", " ", 
         RowBox[{"HoldForm", "[", 
          RowBox[{"Log", "[", 
           RowBox[{"10", ",", "x"}], "]"}], "]"}]}], "+", "b"}], "]"}], ",", 
      RowBox[{"Row", "[", 
       RowBox[{"{", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Plot", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"a", " ", 
             RowBox[{"Log", "[", 
              RowBox[{"10", ",", "x"}], "]"}]}], "+", "b"}], ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", "0", ",", "11"}], "}"}], ",", 
           RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
           RowBox[{"PlotRange", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "5"}], ",", "5"}], "}"}]}], ",", 
           RowBox[{"PlotStyle", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"Red", ",", "Thick"}], "}"}]}], ",", 
           RowBox[{"ImageSize", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"200", ",", "200"}], "}"}]}]}], "]"}], ",", 
         "\"\<   \>\"", ",", "\[IndentingNewLine]", 
         RowBox[{"LogLinearPlot", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"a", " ", 
             RowBox[{"Log", "[", 
              RowBox[{"10", ",", "x"}], "]"}], "*", 
             RowBox[{"Log", "[", "10", "]"}]}], "+", "b"}], ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", "0.1", ",", "10"}], "}"}], ",", 
           RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
           RowBox[{"PlotRange", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "5"}], ",", "5"}], "}"}]}], ",", 
           RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", 
           RowBox[{"PlotStyle", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"Red", ",", "Thick"}], "}"}]}], ",", 
           RowBox[{"ImageSize", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"200", ",", "200"}], "}"}]}]}], "]"}]}], "}"}], "]"}]}], 
     "}"}], "]"}], ",", "\"\<Plots of a*lg(x)+b\>\"", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "1"}], "}"}], ",", 
     RowBox[{"-", "3"}], ",", "3", ",", 
     RowBox[{"Appearance", "\[Rule]", 
      RowBox[{"{", "\"\<Labeled\>\"", "}"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"b", ",", "0"}], "}"}], ",", 
     RowBox[{"-", "3"}], ",", "3", ",", 
     RowBox[{"Appearance", "\[Rule]", 
      RowBox[{"{", "\"\<Labeled\>\"", "}"}]}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4304524538278847`*^9, 3.430452735603058*^9}, {
   3.430452777222904*^9, 3.4304528936002464`*^9}, {3.588221415818775*^9, 
   3.588221433322006*^9}, {3.588221475114479*^9, 3.5882215018685265`*^9}, {
   3.5882215328501806`*^9, 3.588221571397848*^9}, {3.5882216060083094`*^9, 
   3.5882216732444277`*^9}, {3.588221732134531*^9, 3.5882217675933933`*^9}, {
   3.5882218121782713`*^9, 3.5882218515371404`*^9}, {3.5882218925340123`*^9, 
   3.588222032279058*^9}, 3.588232327229512*^9, {3.588262730701982*^9, 
   3.588262799242078*^9}, {3.588264668747695*^9, 3.5882646973877354`*^9}, {
   3.5882647417477975`*^9, 3.588264873157982*^9}, {3.5882649425480785`*^9, 
   3.5882649938481503`*^9}, {3.588265031158203*^9, 3.588265104258305*^9}, 
   3.58826514329836*^9, {3.5882658634213676`*^9, 3.5882660671116533`*^9}, {
   3.5882661173417234`*^9, 3.5882661203317275`*^9}, 3.588266153291774*^9, {
   3.5882662099318533`*^9, 3.5882662204718676`*^9}, {3.5882662744119434`*^9, 
   3.588266276241946*^9}, {3.588266321342009*^9, 3.5882663510320506`*^9}, {
   3.5882663931621094`*^9, 3.588266434012167*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`a$$ = 1, $CellContext`b$$ = 0, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{
      Hold["Plots of a*lg(x)+b"], Manipulate`Dump`ThisIsNotAControl}, {{
       Hold[$CellContext`a$$], 1}, -3, 3}, {{
       Hold[$CellContext`b$$], 0}, -3, 3}}, Typeset`size$$ = {
    654., {162.5, 175.5}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`a$570550$$ = 
    0, $CellContext`b$570551$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`a$$ = 1, $CellContext`b$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`a$$, $CellContext`a$570550$$, 0], 
        Hold[$CellContext`b$$, $CellContext`b$570551$$, 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" :> Column[{
         TraditionalForm[$CellContext`a$$ HoldForm[
             Log[10, $CellContext`x]] + $CellContext`b$$], 
         Row[{
           
           Plot[$CellContext`a$$ 
             Log[10, $CellContext`x] + $CellContext`b$$, {$CellContext`x, 0, 
             11}, AspectRatio -> Automatic, PlotRange -> {-5, 5}, 
            PlotStyle -> {Red, Thick}, ImageSize -> {200, 200}], "   ", 
           
           LogLinearPlot[($CellContext`a$$ Log[10, $CellContext`x]) 
             Log[10] + $CellContext`b$$, {$CellContext`x, 0.1, 10}, 
            AspectRatio -> Automatic, PlotRange -> {-5, 5}, GridLines -> 
            Automatic, PlotStyle -> {Red, Thick}, 
            ImageSize -> {200, 200}]}]}], 
      "Specifications" :> {
       "Plots of a*lg(x)+b", {{$CellContext`a$$, 1}, -3, 3, 
         Appearance -> {"Labeled"}}, {{$CellContext`b$$, 0}, -3, 3, 
         Appearance -> {"Labeled"}}}, "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{734., {288., 301.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.5882220252278457`*^9, 3.5882220329342594`*^9}, 
   3.5882323291951156`*^9, {3.5882627324619846`*^9, 3.588262762152026*^9}, 
   3.588262801552081*^9, {3.5882647700278373`*^9, 3.5882647832478557`*^9}, {
   3.5882648168379025`*^9, 3.5882648743079834`*^9}, {3.588264923638052*^9, 
   3.588264995378153*^9}, {3.588265032198204*^9, 3.5882651050883064`*^9}, 
   3.5882651703483973`*^9, {3.588265958291501*^9, 3.5882660823716745`*^9}, {
   3.588266121161729*^9, 3.588266154141775*^9}, {3.5882661887918234`*^9, 
   3.5882662425318985`*^9}, {3.588266278031948*^9, 3.588266304731986*^9}, {
   3.588266352702053*^9, 3.588266368472075*^9}, {3.5882664008621206`*^9, 
   3.5882664528721933`*^9}}]
}, {2}]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

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

Cell[CellGroupData[{

Cell[TextData[{
 "Using other logarithms: such as ",
 Cell[BoxData[
  FormBox[
   RowBox[{"ln", "(", "x", ")"}], TraditionalForm]]]
}], "MainSection",
 CellChangeTimes->{{3.5882664908622465`*^9, 3.5882665368223104`*^9}, {
  3.5888663162812357`*^9, 3.588866327515256*^9}}],

Cell[CellGroupData[{

Cell["\<\
Powers of 10 on the \[ExponentialE]-based logarithmic scale:\
\>", "Section",
 CellChangeTimes->{{3.58826670050254*^9, 3.588266730512582*^9}, {
  3.588866355302905*^9, 3.588866383092554*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListLogLinearPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"10", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"100", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1000", ",", "0"}], "}"}]}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "0.1"}], ",", "0.1"}], "}"}]}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"Frame", "\[Rule]", "None"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"PointSize", "[", "0.02", "]"}], ",", "Red"}], "}"}]}], ",", 
   RowBox[{"Ticks", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"1", ",", "E", ",", 
        RowBox[{"E", "^", "2"}], ",", 
        RowBox[{"E", "^", "3"}], ",", 
        RowBox[{"E", "^", "4"}], ",", 
        RowBox[{"E", "^", "5"}], ",", 
        RowBox[{"E", "^", "6"}], ",", 
        RowBox[{"E", "^", "7"}]}], "}"}], ",", "None"}], "}"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.588232449627327*^9, 3.5882325860193667`*^9}, {
  3.5882327481348515`*^9, 3.5882328356666055`*^9}, {3.5882329481428027`*^9, 
  3.5882330497145815`*^9}, {3.588233092567857*^9, 3.588233100555071*^9}, {
  3.5882667723026404`*^9, 3.588266937593872*^9}, {3.5882669738439226`*^9, 
  3.588267004824966*^9}, {3.5882670972550955`*^9, 3.5882670993550987`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, 
    {RGBColor[1, 0, 0], PointSize[0.02], 
     PointBox[{{0., 0.}, {2.302585092994046, 0.}, {4.605170185988092, 0.}, {
      6.907755278982137, 0.}}]}, {}}, {}},
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0., -0.1},
  CoordinatesToolOptions:>{"DisplayFunction" -> ({
      Exp[
       Part[#, 1]], 
      Part[#, 2]}& ), "CopiedValueFunction" -> ({
      Exp[
       Part[#, 1]], 
      Part[#, 2]}& )},
  Frame->None,
  FrameTicks->{{Automatic, Automatic}, {{{0., 
       FormBox["1", TraditionalForm]}, {1.6094379124341003`, 
       FormBox["5", TraditionalForm]}, {2.302585092994046, 
       FormBox["10", TraditionalForm]}, {3.912023005428146, 
       FormBox["50", TraditionalForm]}, {4.605170185988092, 
       FormBox["100", TraditionalForm]}, {6.214608098422191, 
       FormBox["500", TraditionalForm]}, {6.907755278982137, 
       FormBox["1000", TraditionalForm]}, {8.517193191416238, 
       FormBox["5000", TraditionalForm]}, {0.6931471805599453, 
       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]}}, {2.995732273553991, 
       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]}}, {4.0943445622221, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.248495242049359, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.382026634673881, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.499809670330265, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.298317366548036, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.703782474656201, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.991464547107982, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.396929655216146, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.551080335043404, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.684611727667927, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.802394763324311, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {7.600902459542082, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.006367567650246, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.294049640102028, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}, {{0., 
       FormBox["\"\"", TraditionalForm]}, {1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm]}, {2.302585092994046, 
       FormBox["\"\"", TraditionalForm]}, {3.912023005428146, 
       FormBox["\"\"", TraditionalForm]}, {4.605170185988092, 
       FormBox["\"\"", TraditionalForm]}, {6.214608098422191, 
       FormBox["\"\"", TraditionalForm]}, {6.907755278982137, 
       FormBox["\"\"", TraditionalForm]}, {8.517193191416238, 
       FormBox["\"\"", TraditionalForm]}, {0.6931471805599453, 
       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]}}, {2.995732273553991, 
       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]}}, {4.0943445622221, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.248495242049359, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.382026634673881, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.499809670330265, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.298317366548036, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.703782474656201, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.991464547107982, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.396929655216146, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.551080335043404, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.684611727667927, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.802394763324311, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {7.600902459542082, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.006367567650246, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.294049640102028, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}}},
  GridLines->{None, None},
  ImageSize->{582.6666666666662, Automatic},
  Method->{},
  PlotRange->{{0., 6.907755278982137}, {-0.1, 0.1}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], {None, None}},
  Ticks->{{{0., 
      FormBox["1", TraditionalForm]}, {1., 
      FormBox["\[ExponentialE]", TraditionalForm]}, {2., 
      FormBox[
       SuperscriptBox["\[ExponentialE]", "2"], TraditionalForm]}, {3., 
      FormBox[
       SuperscriptBox["\[ExponentialE]", "3"], TraditionalForm]}, {4., 
      FormBox[
       SuperscriptBox["\[ExponentialE]", "4"], TraditionalForm]}, {5., 
      FormBox[
       SuperscriptBox["\[ExponentialE]", "5"], TraditionalForm]}, {6., 
      FormBox[
       SuperscriptBox["\[ExponentialE]", "6"], TraditionalForm]}, {7., 
      FormBox[
       SuperscriptBox["\[ExponentialE]", "7"], TraditionalForm]}}, 
    None}]], "Output",
 CellChangeTimes->{
  3.588232749133253*^9, {3.5882327971657376`*^9, 3.588232837757009*^9}, {
   3.5882330009956956`*^9, 3.5882330524133863`*^9}, 3.588233104657878*^9, 
   3.5882668331227255`*^9, {3.588266866363772*^9, 3.5882668929338093`*^9}, 
   3.5882669392838745`*^9, {3.588266988344943*^9, 3.5882670069649687`*^9}, 
   3.588267099945099*^9}]
}, {2}]]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

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

Cell[CellGroupData[{

Cell[TextData[{
 "Lin - Log plots: ",
 Cell[BoxData[
  FormBox[
   StyleBox[
    SuperscriptBox["\[ExponentialE]", "x"],
    FontColor->RGBColor[1, 0, 0]], TraditionalForm]], "None"],
 ", ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["10", "x"], TraditionalForm]], "None"]
}], "Section",
 CellChangeTimes->{{3.588266549062328*^9, 3.5882665908523865`*^9}, {
  3.5882671596051826`*^9, 3.5882671707051983`*^9}, {3.5888664088843994`*^9, 
  3.588866410210402*^9}}],

Cell[TextData[{
 StyleBox[" ",
  FontColor->RGBColor[0, 0, 1]],
 Cell[BoxData[
  FormBox[
   RowBox[{"y", "=", 
    SuperscriptBox["10", 
     RowBox[{
      RowBox[{"a", " ", "x"}], "+", "b"}]]}], TraditionalForm]],
  FontColor->RGBColor[0, 0, 1]],
 StyleBox[" \[Rule] ",
  FontColor->RGBColor[0, 0, 1]],
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"ln", "(", "y", ")"}], "=", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"a", " ", "x"}], "+", "b"}], ")"}], " ", 
     RowBox[{"ln", "(", "10", ")"}], " "}]}], TraditionalForm]],
  FontColor->RGBColor[0, 0, 1]],
 "\n\n",
 StyleBox[" ",
  FontColor->RGBColor[1, 0, 0]],
 Cell[BoxData[
  FormBox[
   RowBox[{"y", "=", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{"a", " ", "x"}], "+", "b"}]]}], TraditionalForm]],
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" \[Rule] ",
  FontColor->RGBColor[1, 0, 0]],
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"ln", "(", "y", ")"}], "=", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"a", " ", "x"}], "+", "b"}], ")"}], " "}], TraditionalForm]],
  FontColor->RGBColor[1, 0, 0]]
}], "Text-Framed",
 CellChangeTimes->{{3.588267766126032*^9, 3.5882678725761805`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LogPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"E", "^", 
      RowBox[{"(", "x", ")"}]}], ",", 
     RowBox[{"10", "^", "x"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "4"}], "}"}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"x", ",", "\"\<y\>\""}], "}"}]}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Thick", ",", "Red"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Thick", ",", "Blue"}], "}"}]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.58826662902244*^9, 3.5882666435824604`*^9}, {
  3.5882671786052094`*^9, 3.5882672291352797`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[1, 0, 0], Thickness[Large], LineBox[CompressedData["
1:eJxFxX0wk3EcAPCNyZAxihuNm1De4iQl1aN0kZc6byeXt4SkN6STrk7rNuQl
rnNS3l9S2jGyuS5Tjp27nJc0DndstXbyMm+Fhdp6e/r+/vjchxFzLTBOjUAg
+P/2Z5+46aHOmRtHzmUp/07yNEmS0IKxfPy9lSVlrbRYLKTi3779oy/LaalY
IX5orKLjIY2FWeNPOmZ55tOKMDl+1fbTmTm0Oqwcn0lu3XWfxsOy8M+EVXOX
loWwjooZ7mU2iJHxrQIWprtzhzFr/LQBN6xkZRw25lHFRKIEM8Jvk3r2DR6S
wl2J5aZhchm8an1Yr/HKF2wFX22do29qNYup47uqotuCmuRwH8tloMd2ETYv
nFtvWFiC5xQS8YjTV7hutr2X8uAbTKE/W5TJVuC8i/z4Kss1eM2DI0vIUMCp
zkKeUfd3WNIkzB1ibMCbicOlNrc2Ybujmsr49h+wVw3jQouxEk6jR1l8ClfB
9vIQnVF/gsf/DfWWyMINNOltKXdnGRG+5NI+ruWrBnNOxlS9WUOvzpnoTxWr
w/wgL/Wi4yQ4w5tdyZtCMyZ9xmrZGvDB/awimvMWONxscJ0oQq/25kuTmJpw
CSkyNdCSDBuK+TVqQrTGHWawW7IWTGiI5EoNtOGUJ9x8gy50h102mXpVB6b6
pNjfo2yFJxzei9IF6OYKzFIWqQtHcF2pdCX6LruaOfGCAjdO00spfnpwdjk7
WnwKHRs4b9UUgN4hEDT7h6JzCs725MWgE1wfL2unoy1Y27w169HKA7d1R5+j
x+c/f6jnoAtDWyNOtKBVtoHX2QL0xFBBhboI/SpTcV40gi5yj7KpHUP7Pt3D
OyZGv77Z/445gy522FcQIEcnS8uCGYvo3X6XJZ0raBJxuK5Qgf7Id0+M3kAL
EmsdnX6iH5nrrKpU6F8BhjL7
     "]]}, 
   {RGBColor[0, 0, 1], Thickness[Large], LineBox[CompressedData["
1:eJwVxX0803kcAPBtps2wr4fEMLVfP+4iUUd5qL6fS6gJL+TiFTPloVZdJeW6
63JqChHXIVdoSK6UJVsPHtJLS6+TdB3CvWIZl2chz3Xb3f3xfr15ew4HRtMo
FIrvf/6fHz34+snQ8c3p8Q+zEtxSN9M9zI8oOTvxvHN0RSwZi7+6lpdfxYnC
viYnXJ3JBOzzsuNeAScep4rVagvyPN4VNVd3iSPGH2saIhF5GXc7nPfI4GTj
gQ7SWIcswxIT/3NpnOu4+e/2EW3yAU5iVn2RypHhpoNrQujkcxwSWiSdmFTg
Junu/au4nVhXkxTmbfUKdx655dIw1IutA8YHn15ow6qje/3Plw3ghBZXnDfd
he9M5Qcpe8ewqcywh0pV4u7YvMLBzkl8X+XR/GqjCnvlEiw7zTRuEBVYhI72
40fzLPxo2TyesdmE7hwawPxUSczShUVMWyg3sLAexvWhs/RHHDVerxHeD6oY
xba3P/NzzlCgWezU0mj7AZ/0tJ//OEGF5VkjCzfHJ3CNuk6YcFoLRuaUPe2O
U1jPv3RL5CQdrg/XNLEvfsR+9aPKw2eXAJtb9qG/fxrnbu+LJNlMSN8vj5GQ
s3hc5BiOT+vALJT370ucw863u40T9XUhfp1CtuzpPL4o7vWwPqMHygrFhde8
RdxxytNhwoQNn0RtV1d9/wnbZIZohMUI7L5mqGNqPuMtlpGkZZoBeBfzYitN
1XiY0mhzJdAQErgRRG+YBpuvfRP9Qt8IVo8G63b4UmDH+KbL/s+MwBhNMBWL
FEioCbaJSTcGev1V6cp8Kti2mU05eC2FA041XTo+NGj/fMEiHZlA+fY9ksez
NBDf+2aDe7sJzIyYG7zP1YLqqubMgoxlIA/y1sreSochxZTnpWBTSNyWfE32
ng4SnsLFzcAMeN38zpJkbQjRHeM6PzcDtw3ibM66JcDSbhQ2ZHAgzOrVArV1
CXjw+e9o3uYw05ShOpLEgBPXTte1IwvIowviA0kmOIKgY/cLCzDukRfTFEwY
O5TT53TWErR/TNrpelQHistP+Ur4XKDcFEhVRixQOqHpx3QriLsizTBqYIFJ
S8D84RYrqLNLYRp+qwt+0yPjx7KXgyE/bvUZth4wqsx+zrFZAW/t/2g9WasH
fcd+Ca1OWwF3CzHZL9AH8V97n7gMroBw6XpDrlofShlCyTsPHvyUXJT09hYb
nm50kgaU8eDOIPcqeweCUlNBmCWdgJSCZGGPH4KVbg2V1doERAWOWVcEICgK
s2GEMgiwrK2967sLQWHReGUOi4C0zN2N6XsQ5NolMpAhAfvW/zrJOokgBUvu
Ua0IIMRLtzFuIDgQq2IObCBA7XJKv+M3BMOpXoJkVwK6xvr+vFGOIPb2raqV
7gRk7aoK96pEEDUZJxBuJkBjG3gsuRZB+A9asq6tBLx9nVmo1YrAL5OMaA4g
4OG5ub2t7QiaK1NkoiACst0jVpV0IvBpG9XRCSbAp3SNbEsPAm+OXOYZQkD1
dy9/TxpCACWerHoBAbn2zpkBowgeP7sZES4k4KgqfyfvA4KNg/ryT5EEfLnj
oPLJNAIX+zcRLtEE0Klt17PmEDzwd5O/iSHgndxdJFxE4BxXyDq+j4BaUYmD
4z8IZNk0obGIgMvLdWc0GgRrH8TIKw8Q8C8lRRnT
     "]]}},
  Axes->True,
  AxesOrigin->{0, 0.},
  CoordinatesToolOptions:>{"DisplayFunction" -> ({
      Part[#, 1], 
      Exp[
       Part[#, 2]]}& ), "CopiedValueFunction" -> ({
      Part[#, 1], 
      Exp[
       Part[#, 2]]}& )},
  Frame->True,
  FrameLabel->{{
     FormBox["\"y\"", TraditionalForm], None}, {
     FormBox["x", TraditionalForm], None}},
  FrameTicks->{{{{0., 
       FormBox["1", TraditionalForm]}, {2.302585092994046, 
       FormBox["10", TraditionalForm]}, {4.605170185988092, 
       FormBox["100", TraditionalForm]}, {6.907755278982137, 
       FormBox["1000", TraditionalForm]}, {9.210340371976184, 
       FormBox[
        TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> SuperscriptBox],
         TraditionalForm]}, {0.6931471805599453, 
       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.6094379124341003`, 
       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]}}, {2.995732273553991, 
       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]}}, {3.912023005428146, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.0943445622221, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.248495242049359, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.382026634673881, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.499809670330265, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.298317366548036, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.703782474656201, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.991464547107982, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.214608098422191, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.396929655216146, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.551080335043404, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.684611727667927, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.802394763324311, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {7.600902459542082, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.006367567650246, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.294049640102028, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.517193191416238, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.699514748210191, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.85366542803745, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.987196820661973, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {9.104979856318357, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}, {{0., 
       FormBox["\"\"", TraditionalForm]}, {2.302585092994046, 
       FormBox["\"\"", TraditionalForm]}, {4.605170185988092, 
       FormBox["\"\"", TraditionalForm]}, {6.907755278982137, 
       FormBox["\"\"", TraditionalForm]}, {9.210340371976184, 
       FormBox["\"\"", TraditionalForm]}, {0.6931471805599453, 
       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.6094379124341003`, 
       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]}}, {2.995732273553991, 
       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]}}, {3.912023005428146, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.0943445622221, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.248495242049359, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.382026634673881, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.499809670330265, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.298317366548036, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.703782474656201, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.991464547107982, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.214608098422191, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.396929655216146, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.551080335043404, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.684611727667927, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.802394763324311, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {7.600902459542082, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.006367567650246, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.294049640102028, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.517193191416238, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.699514748210191, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.85366542803745, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.987196820661973, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {9.104979856318357, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}}, {Automatic, Automatic}},
  GridLines->{
   Automatic, {0., 2.302585092994046, 4.605170185988092, 6.907755278982137, 
    9.210340371976184, 0.6931471805599453, 1.0986122886681098`, 
    1.3862943611198906`, 1.6094379124341003`, 1.791759469228055, 
    1.9459101490553132`, 2.0794415416798357`, 2.1972245773362196`, 
    2.995732273553991, 3.4011973816621555`, 3.6888794541139363`, 
    3.912023005428146, 4.0943445622221, 4.248495242049359, 4.382026634673881, 
    4.499809670330265, 5.298317366548036, 5.703782474656201, 
    5.991464547107982, 6.214608098422191, 6.396929655216146, 
    6.551080335043404, 6.684611727667927, 6.802394763324311, 
    7.600902459542082, 8.006367567650246, 8.294049640102028, 
    8.517193191416238, 8.699514748210191, 8.85366542803745, 8.987196820661973,
     9.104979856318357}},
  ImageSize->{162.29722985132963`, Automatic},
  Method->{},
  PlotRange->{{0, 4}, {0., 9.210340184010052}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]},
  Ticks->{Automatic, {{0., 
      FormBox["1", TraditionalForm]}, {2.302585092994046, 
      FormBox["10", TraditionalForm]}, {4.605170185988092, 
      FormBox["100", TraditionalForm]}, {6.907755278982137, 
      FormBox["1000", TraditionalForm]}, {9.210340371976184, 
      FormBox[
       TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> SuperscriptBox], 
       TraditionalForm]}, {0.6931471805599453, 
      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.6094379124341003`, 
      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]}}, {2.995732273553991, 
      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]}}, {3.912023005428146, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.0943445622221, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.248495242049359, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.382026634673881, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.499809670330265, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {5.298317366548036, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {5.703782474656201, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {5.991464547107982, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {6.214608098422191, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {6.396929655216146, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {6.551080335043404, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {6.684611727667927, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {6.802394763324311, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {7.600902459542082, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {8.006367567650246, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {8.294049640102028, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {8.517193191416238, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {8.699514748210191, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {8.85366542803745, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {8.987196820661973, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {9.104979856318357, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}}}]], "Output",
 CellChangeTimes->{
  3.5882666477124662`*^9, {3.588267188985224*^9, 3.5882672316652837`*^9}}]
}, {2}]],

Cell[TextData[{
 "Here, the slope of ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[ExponentialE]", "x"], TraditionalForm]]],
 " is 1 !!!"
}], "Text-Framed",
 CellChangeTimes->{{3.5882671274051375`*^9, 3.5882671550451765`*^9}, {
  3.5882673711254787`*^9, 3.5882673753354845`*^9}, {3.5888664480484686`*^9, 
  3.588866462262094*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

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

Cell[CellGroupData[{

Cell[TextData[{
 "Log - Log plots: ",
 Cell[BoxData[
  FormBox[
   StyleBox[
    SuperscriptBox["x", "1"],
    FontColor->RGBColor[1, 0, 0]], TraditionalForm]], "None"],
 ", ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["x", "2"], TraditionalForm]], "None"]
}], "Section",
 CellChangeTimes->{{3.588266549062328*^9, 3.5882665908523865`*^9}, {
  3.5882671596051826`*^9, 3.5882671707051983`*^9}, {3.58826727912535*^9, 
  3.5882673058053875`*^9}, {3.589549506441863*^9, 3.589549519251486*^9}}],

Cell[TextData[{
 " ",
 Cell[BoxData[
  FormBox[
   RowBox[{"y", "=", 
    RowBox[{"B", " ", 
     SuperscriptBox["x", "a"], " "}]}], TraditionalForm]]],
 " \[Rule] ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"ln", "(", "y", ")"}], "=", 
    RowBox[{
     RowBox[{"ln", "(", "B", ")"}], "+", " ", 
     RowBox[{"a", " ", 
      RowBox[{"ln", "(", "x", ")"}], " "}]}]}], TraditionalForm]]]
}], "Text-Framed",
 CellChangeTimes->{{3.588267766126032*^9, 3.5882679529462934`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LogLogPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"x", "^", "2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0.1", ",", "10"}], "}"}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"x", ",", "\"\<y\>\""}], "}"}]}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Thick", ",", "Red"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Thick", ",", "Blue"}], "}"}]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.58826662902244*^9, 3.5882666435824604`*^9}, {
  3.5882671786052094`*^9, 3.5882672291352797`*^9}, {3.5882673203154078`*^9, 
  3.5882673385154333`*^9}, {3.5882674066755285`*^9, 3.588267417795544*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[1, 0, 0], Thickness[Large], LineBox[CompressedData["
1:eJxF1P8v1HEcwPGPO65hqLZaZzpuKElXWYuNc01qKHTOlzuThDuUL/2AuvKl
yJdpksNqrZWoLl8Okduy6Y3Wojms3ZFMicJFbnedTm6nWn283j889/gPnsyE
zHAhhSCIkL/9k76j7dl5Su+GGWWIpUjB3jKIWheEWKWqS+YYj42R8FoqIrAi
68rGVDY232TxiGmHbfv8405VhxlIv+vo+klNgEZaXZaYhe1UVDVc+76ONrya
XlS/GGcC2TkMN803I2h5RqBTRK+BI/u+jtOGVsFioX3ARIwBDM7T6EveroDE
errHcIQebE9iF2TO6cDM5pbtS3wt6CsvTzUf0iA26QuVkTUvXQLd+2z35kvU
YG5+1qHAjjmUR7pkpL8ZqJ5Fi6S+J7Ym5zZNg1FdNU4Ki0kUTbozLXDaUqlE
DqRBFUezBfRhcNR/JVRc1Qcm/B64WCuWokRSVsiumZzkJxwP0p9CWtNx636O
ntRJ6yWalSo4DNIFdtf6O4aKoyaNXrSaOnFyEiy6fPpUW+k06ItW3Aqlsxwf
0m2ePnqmZA789f5jmU2GGkTIv8a/bAl8rORJAtI1oLxGQg0M1ILuY1yvCKQD
Gw72htH260Eb2U3nqZ4VsBR1XrD3NIA6rbc49/UqmOiXLrrOXQO/MFeHdP1G
MNJ1drmYZwLHkEt5weA6yOq2KrZzII5smOrSWa+dwXp8oJlK7pmBbo4j0lcP
sK5Jt8OJBixjefdTcSN2MyWIlybH6vfcaOSOYnvEdlEO5hSw++U4IdiElVPr
mmutsO0VB8zstmDrH3JbzBjYksFqyrwXttA2Vubsgy3gufDj/bCXpp7LJgKw
57Qq/hAXKzp8n2oZiU28Imo9xsfGWhioKA7LD0atxrPYyMpSgbcQG64MM89O
wYb+/xb4B90+TuM=
     "]]}, 
   {RGBColor[0, 0, 1], Thickness[Large], LineBox[CompressedData["
1:eJwt1P9P1HUcwPHP583dIceAu/dWC7NDJhSaXeVauAG+3yNqqKkdB3o4M1Pv
lBLpB7WuCErjy2xknLiac2VQXShfVORcbPZ6a2tp49TcoZnDSBSlI/GO45sn
UPu8Xz889/gPnqkbywqcRFGUFf+nmfxY+/G3iZBSsb0WrP6tBKXi83FX210n
QakI9HS2pmwgKBVrPfaWukKCUuGK39dckkNQKiqm9N+mJhGUiva/R76sP6Gi
ZpF8MCX9r0EFNYmo4fAOt1VBTaLDX9/08b/TIE0UH5XuaQyunwJpgsjZZckY
/icK0ngR90Zx2L/mAUiN4uIzt68auidAOktUOWfnXVs7DtJYsezD4Uj1b6Mg
1QtlunThhcIISHXi2OacyrKBMEiJKDva8uiQIwRSVWT79pbouodBOgM/9kSt
d7xD0KX5EBacSXy6wjOITkJ5xY4X8k8MoGMwFE3+9dz+fghqjkD2crql/Egf
ZGneh9WdDXP9+uvg0AzCE9vy++ICAXhc8xYsrXtpZ3HyBfQGXModXemuP4P+
Dhtnzr17wO1FT4F1xZM3d235nqVr+tiY03DklfizbETzMpsbynT1e/3MotnL
7uZ0Tl+29LBBzdtsTdDYu/zV62iQ7Xn/9dfaa/rQ+ywbRjN2e/tZluYIe2RR
ViTVM4COsck/btQmbB9kE5qTDCC3Ibd2CH3IvgvYPXmlw+gM8zV4YvLzQ6jK
F1yxZRZCmEkJb3perDI8G2FSHU9o/Wxe7+lRJtXzGuh4Z/aicSaN5eHQYnf5
LxNMOotvWlLq+sT2gEmN/FbqRHf4bJRJ43lRev+9KvsUkybwK5C2t/L8NJMm
cmuXsSppjoKaeElaR2PopoKa+MI/DVPVh1TUzDNSLnp//lpFzTx98xcFSpOK
mrnl3lM/uJtV1MxNZKl9m09FzTwy/9Nm2yUVNfPT7qTVc3QEpbzrp6tKcSxB
KffFHD56wEhQyo/VPacmmQlKeeM3thbVQlDKq8/vJ3cyCUr57sR1rfOyCEp5
pT3NsWEJQSl/r/dk67U8glL+VqjH0W0jKOWuF7+KiSsiKOWbPnC1vewgKOXr
9OMxsJ6glDuWQVv0TYJSXrSvpnixk6CUFwRW6XZuJSjlK+W/UMr/A2CvP7s=

     "]]}},
  Axes->True,
  AxesOrigin->{-2.3025850929940455`, -4.605169998021961},
  CoordinatesToolOptions:>{"DisplayFunction" -> ({
      Exp[
       Part[#, 1]], 
      Exp[
       Part[#, 2]]}& ), "CopiedValueFunction" -> ({
      Exp[
       Part[#, 1]], 
      Exp[
       Part[#, 2]]}& )},
  Frame->True,
  FrameLabel->{{
     FormBox["\"y\"", TraditionalForm], None}, {
     FormBox["x", TraditionalForm], None}},
  FrameTicks->{{{{-4.605170185988091, 
       FormBox["0.01`", TraditionalForm]}, {-2.3025850929940455`, 
       FormBox["0.1`", TraditionalForm]}, {0., 
       FormBox["1", TraditionalForm]}, {2.302585092994046, 
       FormBox["10", TraditionalForm]}, {4.605170185988092, 
       FormBox["100", TraditionalForm]}, {-3.912023005428146, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.506557897319982, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.2188758248682006`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.995732273553991, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.8134107167600364`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.659260036932778, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.5257286443082556`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.407945608651872, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.203972804325936, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.916290731874155, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.6931471805599453, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.5108256237659905, 
       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.10536051565782616`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.6931471805599453, 
       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.6094379124341003`, 
       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]}}, {2.995732273553991, 
       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]}}, {3.912023005428146, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.0943445622221, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.248495242049359, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.382026634673881, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.499809670330265, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}, {{-4.605170185988091, 
       FormBox["\"\"", TraditionalForm]}, {-2.3025850929940455`, 
       FormBox["\"\"", TraditionalForm]}, {0., 
       FormBox["\"\"", TraditionalForm]}, {2.302585092994046, 
       FormBox["\"\"", TraditionalForm]}, {4.605170185988092, 
       FormBox["\"\"", TraditionalForm]}, {-3.912023005428146, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.506557897319982, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.2188758248682006`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.995732273553991, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.8134107167600364`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.659260036932778, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.5257286443082556`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.407945608651872, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.203972804325936, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.916290731874155, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.6931471805599453, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.5108256237659905, 
       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.10536051565782616`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.6931471805599453, 
       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.6094379124341003`, 
       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]}}, {2.995732273553991, 
       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]}}, {3.912023005428146, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.0943445622221, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.248495242049359, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.382026634673881, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.499809670330265, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}}, {{{-2.302585092994046, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.1\"", 0.1, AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-1.6094379124341003`, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.2\"", 0.2, AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-0.6931471805599453, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.5\"", 0.5, AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {0., 
       FormBox[
        TagBox[
         InterpretationBox["\"1.0\"", 1., AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {0.6931471805599453, 
       FormBox[
        TagBox[
         InterpretationBox["\"2.0\"", 2., AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {1.6094379124341003`, 
       FormBox[
        TagBox[
         InterpretationBox["\"5.0\"", 5., AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {2.302585092994046, 
       FormBox[
        TagBox[
         InterpretationBox["\"10.0\"", 10., AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {2.995732273553991, 
       FormBox[
        TagBox[
         InterpretationBox["\"20.0\"", 20., AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {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]}}}, {{-2.302585092994046, 
       FormBox["\"\"", TraditionalForm]}, {-1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm]}, {-0.6931471805599453, 
       FormBox["\"\"", TraditionalForm]}, {0., 
       FormBox["\"\"", TraditionalForm]}, {0.6931471805599453, 
       FormBox["\"\"", TraditionalForm]}, {1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm]}, {2.302585092994046, 
       FormBox["\"\"", TraditionalForm]}, {2.995732273553991, 
       FormBox["\"\"", TraditionalForm]}, {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]}}}}},
  GridLines->{{-2.302585092994046, -1.6094379124341003`, -0.6931471805599453, 
    0., 0.6931471805599453, 1.6094379124341003`, 2.302585092994046, 
    2.995732273553991, 
    3.912023005428146, -1.2039728043259361`, -0.916290731874155, \
-0.5108256237659907, -0.35667494393873245`, -0.2231435513142097, \
-0.10536051565782628`, 1.0986122886681098`, 1.3862943611198906`, 
    1.791759469228055, 1.9459101490553132`, 2.0794415416798357`, 
    2.1972245773362196`, 3.4011973816621555`, 
    3.6888794541139363`}, {-4.605170185988091, -2.3025850929940455`, 0., 
    2.302585092994046, 
    4.605170185988092, -3.912023005428146, -3.506557897319982, \
-3.2188758248682006`, -2.995732273553991, -2.8134107167600364`, \
-2.659260036932778, -2.5257286443082556`, -2.407945608651872, \
-1.6094379124341003`, -1.203972804325936, -0.916290731874155, \
-0.6931471805599453, -0.5108256237659905, -0.35667494393873245`, \
-0.2231435513142097, -0.10536051565782616`, 0.6931471805599453, 
    1.0986122886681098`, 1.3862943611198906`, 1.6094379124341003`, 
    1.791759469228055, 1.9459101490553132`, 2.0794415416798357`, 
    2.1972245773362196`, 2.995732273553991, 3.4011973816621555`, 
    3.6888794541139363`, 3.912023005428146, 4.0943445622221, 
    4.248495242049359, 4.382026634673881, 4.499809670330265}},
  ImageSize->{222.9700077266669, Automatic},
  Method->{},
  PlotRange->NCache[{{-2.3025850929940455`, 
      Log[10]}, {-4.605169998021961, 
     4.605169998021962}}, {{-2.3025850929940455`, 
    2.302585092994046}, {-4.605169998021961, 4.605169998021962}}],
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]},
  Ticks->{{{-2.302585092994046, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.1\"", 0.1, AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-1.6094379124341003`, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.2\"", 0.2, AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-0.6931471805599453, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.5\"", 0.5, AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {0., 
      FormBox[
       TagBox[
        InterpretationBox["\"1.0\"", 1., AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {0.6931471805599453, 
      FormBox[
       TagBox[
        InterpretationBox["\"2.0\"", 2., AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {1.6094379124341003`, 
      FormBox[
       TagBox[
        InterpretationBox["\"5.0\"", 5., AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {2.302585092994046, 
      FormBox[
       TagBox[
        InterpretationBox["\"10.0\"", 10., AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {2.995732273553991, 
      FormBox[
       TagBox[
        InterpretationBox["\"20.0\"", 20., AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {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]}}}, {{-4.605170185988091, 
      FormBox["0.01`", TraditionalForm]}, {-2.3025850929940455`, 
      FormBox["0.1`", TraditionalForm]}, {0., 
      FormBox["1", TraditionalForm]}, {2.302585092994046, 
      FormBox["10", TraditionalForm]}, {4.605170185988092, 
      FormBox["100", TraditionalForm]}, {-3.912023005428146, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-3.506557897319982, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-3.2188758248682006`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.995732273553991, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.8134107167600364`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.659260036932778, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.5257286443082556`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.407945608651872, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-1.6094379124341003`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-1.203972804325936, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.916290731874155, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.6931471805599453, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.5108256237659905, 
      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.10536051565782616`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {0.6931471805599453, 
      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.6094379124341003`, 
      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]}}, {2.995732273553991, 
      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]}}, {3.912023005428146, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.0943445622221, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.248495242049359, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.382026634673881, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.499809670330265, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}}}]], "Output",
 CellChangeTimes->{
  3.5882666477124662`*^9, {3.588267188985224*^9, 3.5882672316652837`*^9}, {
   3.5882673254954147`*^9, 3.5882673395354347`*^9}, {3.588267410715534*^9, 
   3.5882674195355463`*^9}}]
}, {2}]],

Cell[TextData[{
 "The same as with the basis 10.\nThe difference is with the shift for  B ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["x", "a"], TraditionalForm]]],
 ", if ",
 Cell[BoxData[
  FormBox[
   RowBox[{"B", "\[NotEqual]", "1"}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 ". "
}], "Text-Framed",
 CellChangeTimes->{{3.5882671274051375`*^9, 3.5882671550451765`*^9}, {
  3.5882673809654922`*^9, 3.588267388395503*^9}, {3.5882674315455637`*^9, 
  3.588267490575646*^9}, {3.588267668315895*^9, 3.5882677026359425`*^9}, {
  3.5888664846209335`*^9, 3.5888665579932632`*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

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

Cell[CellGroupData[{

Cell[TextData[{
 "Log - Lin plot: ",
 Cell[BoxData[
  FormBox[
   StyleBox[
    RowBox[{"ln", "(", "x", ")"}],
    FontColor->RGBColor[1, 0, 0]], TraditionalForm]], "None"],
 ", ",
 Cell[BoxData[
  FormBox[
   RowBox[{"lg", "(", "x", ")"}], TraditionalForm]], "None"]
}], "Section",
 CellChangeTimes->{{3.588266549062328*^9, 3.5882665908523865`*^9}, {
  3.5882671596051826`*^9, 3.5882671707051983`*^9}, {3.58826727912535*^9, 
  3.5882673058053875`*^9}, {3.5882679697263165`*^9, 3.5882679814663334`*^9}, {
  3.5888665714902873`*^9, 3.5888665720050883`*^9}}],

Cell[TextData[{
 StyleBox[" ",
  FontColor->RGBColor[1, 0, 0]],
 Cell[BoxData[
  FormBox[
   RowBox[{"y", "=", 
    RowBox[{
     RowBox[{"a", " ", 
      RowBox[{"ln", "(", "x", ")"}]}], "+", "b", " "}]}], TraditionalForm]],
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" ",
  FontColor->RGBColor[1, 0, 0]],
 "\n\n ",
 Cell[BoxData[
  FormBox[
   RowBox[{"y", "=", 
    RowBox[{
     RowBox[{"a", " ", 
      RowBox[{"lg", "(", "x", ")"}]}], "+", "b", " "}]}], TraditionalForm]],
  FontColor->RGBColor[0, 0, 1]],
 StyleBox["= a",
  FontColor->RGBColor[0, 0, 1]],
 Cell[BoxData[
  FormBox[
   RowBox[{
    FractionBox[
     RowBox[{"ln", "(", "x", ")"}], 
     RowBox[{"ln", "(", "10", ")"}]], "+", "b"}], TraditionalForm]],
  FontColor->RGBColor[0, 0, 1]],
 StyleBox[" ",
  FontColor->RGBColor[0, 0, 1]]
}], "Text-Framed",
 CellChangeTimes->{{3.588267766126032*^9, 3.5882679529462934`*^9}, {
  3.588267989876345*^9, 3.5882680487864275`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LogLinearPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Log", "[", "x", "]"}], ",", 
     RowBox[{"Log", "[", 
      RowBox[{"10", ",", "x"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0.1", ",", "10"}], "}"}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"x", ",", "\"\<y\>\""}], "}"}]}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Thick", ",", "Red"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Thick", ",", "Blue"}], "}"}]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.58826662902244*^9, 3.5882666435824604`*^9}, {
  3.5882671786052094`*^9, 3.5882672291352797`*^9}, {3.5882673203154078`*^9, 
  3.5882673385154333`*^9}, {3.5882674066755285`*^9, 3.588267417795544*^9}, {
  3.5882680557964373`*^9, 3.5882680758164654`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[1, 0, 0], Thickness[Large], LineBox[CompressedData["
1:eJxF1P8v1HEcwPGPO65hqLZaZzpuKElXWYuNc01qKHTOlzuThDuUL/2AuvKl
yJdpksNqrZWoLl8Okduy6Y3Wojms3ZFMicJFbnedTm6nWn283j889/gPnsyE
zHAhhSCIkL/9k76j7dl5Su+GGWWIpUjB3jKIWheEWKWqS+YYj42R8FoqIrAi
68rGVDY232TxiGmHbfv8405VhxlIv+vo+klNgEZaXZaYhe1UVDVc+76ONrya
XlS/GGcC2TkMN803I2h5RqBTRK+BI/u+jtOGVsFioX3ARIwBDM7T6EveroDE
errHcIQebE9iF2TO6cDM5pbtS3wt6CsvTzUf0iA26QuVkTUvXQLd+2z35kvU
YG5+1qHAjjmUR7pkpL8ZqJ5Fi6S+J7Ym5zZNg1FdNU4Ki0kUTbozLXDaUqlE
DqRBFUezBfRhcNR/JVRc1Qcm/B64WCuWokRSVsiumZzkJxwP0p9CWtNx636O
ntRJ6yWalSo4DNIFdtf6O4aKoyaNXrSaOnFyEiy6fPpUW+k06ItW3Aqlsxwf
0m2ePnqmZA789f5jmU2GGkTIv8a/bAl8rORJAtI1oLxGQg0M1ILuY1yvCKQD
Gw72htH260Eb2U3nqZ4VsBR1XrD3NIA6rbc49/UqmOiXLrrOXQO/MFeHdP1G
MNJ1drmYZwLHkEt5weA6yOq2KrZzII5smOrSWa+dwXp8oJlK7pmBbo4j0lcP
sK5Jt8OJBixjefdTcSN2MyWIlybH6vfcaOSOYnvEdlEO5hSw++U4IdiElVPr
mmutsO0VB8zstmDrH3JbzBjYksFqyrwXttA2Vubsgy3gufDj/bCXpp7LJgKw
57Qq/hAXKzp8n2oZiU28Imo9xsfGWhioKA7LD0atxrPYyMpSgbcQG64MM89O
wYb+/xb4B90+TuM=
     "]]}, 
   {RGBColor[0, 0, 1], Thickness[Large], LineBox[CompressedData["
1:eJwllHk41HkcgGd+41iso3arndYRYSkp6qENfX4r9TiixpHRQZSpMNntYjbR
QdSyleNZtW3bhiRXJTyEz1Ae6iGVcSViBhnHfBtMrsX2bH+8z/vn+99rGBTu
GUwxGAz3z/xv9neFD0Mp4RpYOrSwQPBoAlo2HqaE/OmVCdMzBK9O8goGgylh
YZGV6biCoKilON9gPyVcb+YeNDBMcHeyV16SNyW0XRT7tqGNIE/jSs4RB0pI
S+QvrhcSjJ5TzjTUpoSe8Y256wMIFvaOp197xBRGNMXyD1XJkH3DwOS9lCEU
iTSGqgNHcVbl9gmBJUNoIAz/1lZ3BIsar2WcG53HktBnytpdQ3iWf+HOsP8c
BiVafew4L0WHU/pmZGgWZ5JPJyAMolqA31ij7wxmaXWz03sHsGlNf5tKwxTe
crU61nypH+OClzt17J7E2LDASHOXPnQ9QyYuvlDgGdb9iGOjYmTM8y1eek/g
wbNNxq33evHBQYeY8IExTK/sT78Z0oPhuXlLR7hyFL43+zrPqBvtSy4fUWog
aK5DO3rf6sSyllnLD9kjWLoqIUQsacdV1Vqro5OlKKl9uMLGphWjok9scH40
gFKLNGssacaRWXZdfYoEv4nOsbFkvkZ7t8WHou73oJUNscgab8BdxakrGpU7
8ZLT6KuyyDrUC3PuUROJkO1dcNVvWQ26JG056cd+iU8+1WrXG5fjK0eFh+Ba
NRZ39idJYwswaKE+Ik2QjVEc3cedB1LR0t1UfOrQXbiufrql5mQKfApWub9N
owaMxEz9c9xCWCG35UmyG4H98cn0ppoyGHQonn+j3wJbMzoaPbg14Dus3uW2
vRN+cl/MUhTXwYVf9+0sjO+BxIC2s+tKG8AeFWbnsyXwzENPc+fi17DE2m7C
MHkAhg2XRL+50QzT7d0JmkelcPzE6sArS1sB0THVMWEEWt/pePLq2yFL5JXs
xCcQILD/oPq5U5KazHJ2lkPNatvLT5W7YVUrx9Ybx8BUrWIw07kHMqyEO1TW
ToBuRehW5YRe0Mz/fWVXpQIWpqmcY2IxxGPRz8utJ0HBqfSvNemDMflGQVTt
FHRsCPjeJLYfDmzm82I5M3DUV2eR0bsB6DOcahirmYVlqX1cJb1B8DGRyOK8
5iB3z+3s8UgptKLx5Zjn8+DtEONcXzkEluXqcdq6DDrfn2+06d9hOGJcdEcu
ZtBj6ltYZT6jYPFWZe7iTSbt9trORi9dBmYGTdlP/2bSTDuN6oq/ZGBy8A9P
RgaTLs9867Y3Qwb6sh/uCXKYtHmkIPDPAhnoUC5eYSVMWtWgNJFdK4MJ899y
OK+Y9NMwa8mSMRlUCrR36SpRtMNX5le1thMor2pj+KlStOKXqeUFHAIlrNu5
aeoUnddZl+XuS+BB0jqm9iKK1i3kPUkMInDnH04eU5+iZ3wyB9QFBC4+T6E+
2FJ0aYaBg+pdAue19uavtKNoviapu5tLIMbLmLt/M0WbRlR5bntIILLrcX6H
E0Wnue47HFdBIETewm3gUPRx+Y0UVjMBns0tlpoPRZvvCdHPaCdw4DSvYCuX
osXPfsxx7CawV3mShf4UzUlvrzonJcB1xYLZQIpWpe65GBICPlfi/TYGU7Qw
NEIknCDgKdqhdPIwRUe2bAvYP0PA48u/6LVf/gX/AQE7cjY=
     "]]}},
  Axes->True,
  AxesOrigin->{-2.3025850929940455`, -2.3025849990109806`},
  CoordinatesToolOptions:>{"DisplayFunction" -> ({
      Exp[
       Part[#, 1]], 
      Part[#, 2]}& ), "CopiedValueFunction" -> ({
      Exp[
       Part[#, 1]], 
      Part[#, 2]}& )},
  Frame->True,
  FrameLabel->{{
     FormBox["\"y\"", TraditionalForm], None}, {
     FormBox["x", TraditionalForm], None}},
  FrameTicks->{{Automatic, Automatic}, {{{-2.302585092994046, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.1\"", 0.1, AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-1.6094379124341003`, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.2\"", 0.2, AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-0.6931471805599453, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.5\"", 0.5, AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {0., 
       FormBox[
        TagBox[
         InterpretationBox["\"1.0\"", 1., AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {0.6931471805599453, 
       FormBox[
        TagBox[
         InterpretationBox["\"2.0\"", 2., AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {1.6094379124341003`, 
       FormBox[
        TagBox[
         InterpretationBox["\"5.0\"", 5., AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {2.302585092994046, 
       FormBox[
        TagBox[
         InterpretationBox["\"10.0\"", 10., AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {2.995732273553991, 
       FormBox[
        TagBox[
         InterpretationBox["\"20.0\"", 20., AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {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]}}}, {{-2.302585092994046, 
       FormBox["\"\"", TraditionalForm]}, {-1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm]}, {-0.6931471805599453, 
       FormBox["\"\"", TraditionalForm]}, {0., 
       FormBox["\"\"", TraditionalForm]}, {0.6931471805599453, 
       FormBox["\"\"", TraditionalForm]}, {1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm]}, {2.302585092994046, 
       FormBox["\"\"", TraditionalForm]}, {2.995732273553991, 
       FormBox["\"\"", TraditionalForm]}, {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]}}}}},
  GridLines->{{-2.302585092994046, -1.6094379124341003`, -0.6931471805599453, 
    0., 0.6931471805599453, 1.6094379124341003`, 2.302585092994046, 
    2.995732273553991, 
    3.912023005428146, -1.2039728043259361`, -0.916290731874155, \
-0.5108256237659907, -0.35667494393873245`, -0.2231435513142097, \
-0.10536051565782628`, 1.0986122886681098`, 1.3862943611198906`, 
    1.791759469228055, 1.9459101490553132`, 2.0794415416798357`, 
    2.1972245773362196`, 3.4011973816621555`, 3.6888794541139363`}, Automatic},
  ImageSize->{292.66666666666674`, Automatic},
  Method->{},
  PlotRange->NCache[{{-2.3025850929940455`, 
      Log[10]}, {-2.3025849990109806`, 
     2.302584999010981}}, {{-2.3025850929940455`, 
    2.302585092994046}, {-2.3025849990109806`, 2.302584999010981}}],
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]},
  Ticks->{{{-2.302585092994046, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.1\"", 0.1, AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-1.6094379124341003`, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.2\"", 0.2, AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-0.6931471805599453, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.5\"", 0.5, AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {0., 
      FormBox[
       TagBox[
        InterpretationBox["\"1.0\"", 1., AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {0.6931471805599453, 
      FormBox[
       TagBox[
        InterpretationBox["\"2.0\"", 2., AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {1.6094379124341003`, 
      FormBox[
       TagBox[
        InterpretationBox["\"5.0\"", 5., AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {2.302585092994046, 
      FormBox[
       TagBox[
        InterpretationBox["\"10.0\"", 10., AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {2.995732273553991, 
      FormBox[
       TagBox[
        InterpretationBox["\"20.0\"", 20., AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {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]}}}, Automatic}]], "Output",
 CellChangeTimes->{
  3.5882666477124662`*^9, {3.588267188985224*^9, 3.5882672316652837`*^9}, {
   3.5882673254954147`*^9, 3.5882673395354347`*^9}, {3.588267410715534*^9, 
   3.5882674195355463`*^9}, 
   3.5882680783164687`*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztnU2IXUd2x6+73+tueSS7rQ9btj76taSZabs9cjuLoIUWAg+JFhOiwDzQ
YhbtzCRoFonFRIteGOYtAsrCoFlFCSR0PgwKTUCzGHACARtMIrISZBoUSECB
CYhZDCKYoEUWlVsft7rqvn+dW1fv3nfrPR3jbkl16/t3q27VqVPn/NaHt278
3h98eOuH3/9w8Js/+vDmjR9+/48Gv/HRj/KgxZey7KU/zH8+HmTy7yLLil8i
/198JH/JkOq//7P6YznbH23K9NlwTz7dy4bqX5vZaF9kf6OjPlB/9LK9YR48
yiNsjrJ9If7WfbqY/97PZF6bo/3sU/xIlvGpn6fYH+WFDbPhUBVp8vyXUuVk
nkUmpvTsr+PbmvLfN9QfL5uOOOh7GVqEaTb5z95wQUVZlGE6KP9ZU78PVWax
N1QpdXonzsXI9HnxGSp/Xf0+op7b/4rn5SaUyhio0FcyN2nm1oFO/17xGvlF
L6jglarUZ6nUR+KQlOIsaqrfVH8smRHlNEW/vH0zMPb1qFD/GtBJeupxXyVx
Cx/mQ+MinXSpGIZ5M/VIEtk5UIMenc2AqMEinfR9UIOKJGfNuHArqH9g9Irc
FkpYJHCbqZ2cSCx0kr3hMNszVXyPTmJxqCCdjMSBs1kHJVckeR+UvEgnCWLA
0StyK2GQmRavg/zZU9+WfQpDRRKF33wg3qOTLIP+Wwcl9+hs1kHJFUl+DZS8
QCc56zx2MZjoCzbHzKauyLE1FGi2uRiZRA3e6hERyOYcKHmRTvI+KLkiyVRQ
uBlHogBJbL8eTIQeCqKU4rsmq3u+AgXI5hwoeZFOsgVKriiFQmG/42EUIMfW
vhMeCvOiXaSTLNqOLlblqooXCBqBnM6Bwitm6ou48D6dqtWvxdinXbek5/aH
WXmu00kO3sShXdipJaB+U4PLqXKBB6nPg0r06WzW6EoEFzQ69XugEhUFngF1
XIjrqMBjA2ijeFf8tfCSW56hu46j9mz9zR7PWVFv4SR9m+TgBc2Ib0cfZzMg
Sg4k2SJK7uEka6BCC1S7xoLNvmLinab8S/aB/NVz4S0aIYK7jPTDNkHYSRC2
CsIOg7CXQdgyCFsCYf2O6nwIhK1E1i+2zijMG2eTNXs0Go012w2jULnxlkHY
Egjrg7Bp1PkQiLcSWb/YOjMqRsWoOkalP4yLA/H4sQyXf2bvNtBsN6wtVG7Y
rKCqwkeg0o/6q+Lp08diMJDR5J8K2SbIflaQNVXnBJHp0dUfiR//WEbxkL3D
yFJEZvZS4osrV8aQvc3I0kW2JLNAI20DlMDUEqFms7gtdnayBRk5W7QDTsb4
BuNLF1/PzWJXbG8jgl9ngukS7HtZGIpwIF5gjElg7Ck0IKHZIEiAorx0YXht
wfOmQMsnQjzsJlsk0J1ndEmMuwiMPQLjOcY4Kxj7BMZ1xjgrGJcIjAPGOCsY
lwmMa4xxVjCuEBjPMsZZwair2ZfimjGMZxjjrGDUXYtPJk4zxlnB+DUC4ynG
OCsYDxMY32KMXWMsFKUDt6woNQy3hCME5TeZcteU10xG6IJWLOJXCMSoaxjx
VBEP9CPv6hClWepm+yqB9g1G2zXaEwbtgeK3FMLL/5a9S0P65+CymSp6SeZ4
XBXlaX6Ip6ur4ic3b+b/yJ+dlb+WHOm+vbzm3JiKnSleI16nE/w6df06WbTO
DaxYtEcJtMcZbVJovYsn1WiPEWiPMdqu0R7caISXwmIpHycoH2XKaVCmLp1V
Iz5BIH6NEXeNOFZw8jqBETWVMSaJ8Q0C46uMcVYwniQwvsIYZwXjmwTGI4xx
VjC+RWBEzWKMSWI8RWD8GmOcFYynCYyo2xljQpr1Zwh4qOIMLxnN+rMEOlRF
Rpfk9LlGYERdzBiTxDggMKLuZIxJYlwnMKJqMMYkMZ4jMIblO4wxMYznCYxo
NcsYk8R4gcC4wBhnBaO2drAMMeZPVFyk08voOkenTY0sIXQyHlNLkpo2cDw2
byq9PUaWJLKNcWRS1TKoCc/IOkf2Nh5lQc12RtaRrPodAhTSU2dQncildVOx
ncHXGVOKU6BudtDOINLaZ2qJULNhkhw0b4bUtxlfIvi8KVciRASRajYTTITg
mJ3B4EBE6teMMRGMfpixOBitRc8Yk8RImSlHzWeMSWLsERiRFj1jTBJjn8CI
tOgZY5IYlwiMSIueMSaJcZnAiJrKGJPEuEJgRFr0jDFJjIcIjAgFY+zoFAI1
lrI5iBrD8Do8mfDDKDuDqNqMLsnpk7IziLqdMSaJkTIkiLqYMSaJkTIWiKrG
GJPESBkGRHkwxiQxrhIY0QqXMSaJkbKriLToGWOSGPVZPq1Fj877GV3n6LQi
TVCLnqklSS1g81Bp0TOyJJEBG4ZWix5pXzCyzpHVtVfIyDqSVde1SMigOpFL
G4uDUIse6Uowps6nQN3soBY9Uo1gaolQs2FB5V10ls74EsEXpUWPyDDBRAjG
a9GjpjLGRDD6YZQWPWOcGYyUFj1qFmNMEiOlRY9QMMYkMVJa9KjbGWMjGNeK
CK6vzOFeH6SYpDco5XrUCqbbCN2BfqRcZOZUvWybQksp3KN8Ge1U0RoB6rX7
94XY2nq49fChyN6N7ApKCR8JZhltI2jDrjGXxlxjGvyq95Sry3zLORg8Lo6X
1N+/+92/z35HFY6dZf6HfOb6yYx9t4x+xsqzZ+L+tWsqTxUj//3k5Emxc/u2
WH36tLD4Vc1Hvyu0EgGSEvM71vqX4datT0Y5FYm1QPxsZUXcvXFDbDx6VFhR
rO4eLW8MKhsw3Q7oWiGVHMg37t4VjzY2pPBRUf7s6lVx9bPPdPxzkd0U0FtX
sw0jbnDhbhDrRbvtnqqlnZm3JdbyvC3Ry1dAvgrFa1TZZUC/3So2oPMhxj3V
lbwJG+RT7J2bN9Vnv8At/357Z0fIZ8b1RnWXUXrwvAScqnTFdFkxcT/OIRQT
973r18WVzz/X8U5Fdg+lG4+OChlta2hNNeUkLb/B5Ul6e3dXT9LI/mq4e7Dq
BcLIaFtDa0aSXDjvbm8LuZDOnH2TnJBPPnkioPnPcPcEVTRQrzDd1uiaFY/c
+codsNoymTlZ0lYSGBnj+PN1T/AEGeFjzK1hNs25fu+eeHDpknDnZ/lvGa5i
1HNAH6XygWgx6dZIG4Jy4KLp2oq56jkwj1cNQU1l3K3hNvOy/ALb+dsReclX
QIm8JvGQTamQMO6p4jaLLDSPy3W3PDhRMSbx3UupmqA6Me6GrwyYTdKlBw/U
+HUhyz3zzTt39BQ+iXNYShEF1YkhN3rdwIg45LQtN1DutC2lXPKkQkm5JvE+
SimpoMvKjLi1aVu7eFaSLykKcY8spEzbHlmgtLHdo7HQ55GoCxlxI4gHOqxS
AjaJsz2NKngeyXRbo2vOEoEQrCfnbnnaLOdymSbWK1hAX0UdOzLJ1khe0GGF
wMs9hBDvvvtzueiq1RXAaKQ9TkSrcMbYCEajpSM3Qp+bM4Jiun24tXUw3cZ6
O6LMR/LCqDWM2vGbnVdFr/d/mSOtsocLSPyMuoIyJYm6hDE2qjd/69Yn5ClC
Pbcd+PgPNZ8xNojRk/XKiVROqAVO77Sgnt+H4JEfosdEW7vQYnYgcqUj1S6C
4qXn9CNQ62SAMbeGmVCkKpRhlYipnoH6qCM/VEUm3RppQq9KSpesXlU9W9rx
R35IXsy4JzgACDsnqJYvTWKimTroY8iNHgCE7eCrGVvOzkj1VW2GCAWPyi6h
DveQaPLFRDyVadtRvSpN2325LrOSqPxHpYs1lKjLpw8CULcx1gZNPas7jCHJ
lPj44z+OxqmbExT6M8nWSJZUqVyS4vDhr+x8HNsVgXvlSuLPGFvD6KhI2VuB
zrUDO8/GGocDd8itxB91CWNsBKNRfVLz5+nTv3BHoxRKyXAVI9ZIHHVfnFc9
rWF0ml0oOBWj0dNPjbVNRTltQ8gYY9OGNouwQplJ7lWQCmo9+0ZY+I9azURb
Nh4H9Zbk2taqm6IywmiDBwEoG6bbshUreLPaOwhAcoGIq7NBeSHKjzG3htnM
u0Cs1HN1TWWasLmDgNy/74EVQksXYjuLYdZutmkOEBotio2NR1bWT31Y3TB/
nPbKgiImOYHIPmxshJQOKTF+7CVnXbmgdGj++bVs/d8PM/NjSF2pUAOFzUL0
AtJ4JRGaf3SdTaJFs107UUhdKfZyG7hMYyVCaNfDGBts9pi6kpQGQXWl2HtN
1MUZXqe2PirHP2/oKly/kBapCTePpdLVELsH5QmMs7Vmm/w8UXxJVCRu3Pgz
SuwOxUKonoyxtWabb1qhG1oWxdsJN6xxHRQBoTmaSbbWbNNEuW1EuqBWGh+h
outsI7FUAOXBGBtptqM5JC5delDW9bQi+LAKbkC+MyYQYIgtN1uBcG2bItOm
YU2tKK1NHo7TILlURlHobmqiPVdtU0ZFHRPQyFQCAgY41WablUkhRi8bVhJX
rnwRlP0AOY8VEKAdJWNsrdmm6nJVIw+4XAG6/ExabaBwE+N3koyxtWabJiI5
uqcNFN5PxBs4elEwTny4UdfJdL7VL1lT6Hti9DyWSmdUteDWH9V3doFN9TSj
Hi67skSKlEpy84Mf/IWKWbHFR4vX2SWW/Exp/JSUX6xCpyd4ubfUZOqUGC1h
mF6D9GA1kdDGU6HUU2PVjU31mAlOlaDpbiWvuXz5S0de0/cc1ZjxRZ4TM7qp
onPEZQEpjfje9z7VCcep2V0f6hWm1jK1ComM70+GugzLy5UO6PlhZt0vp8mS
OKbvXZYVNRVRGeNUMTriGPHtb/8TEsfIbR95sPQtRjZNZHrBYZeVhQk2TW1F
3s366e5v3xflOdPQmjNYa0UE6/5yMxvtiz5IkR7DsU0hsG+59NXJw1+J29mO
eJKddPcMcwbSZJH/3suGm6Ns/yBbA3eY7YlCBXRJx9Ow9XOdBpWQHnj4KS1M
Ysq7zQZ+T6xkz8R2tvvfj059IHcbcwm9Z2Dq/zZH+z3bLfvZaKjfBctd+h43
Pu3Uc+Xibia5Ox1YlgSJy70vf//+n/+ylTonAf1lBX1kPBQXjim1x2JN1Uzl
r5r+k1Fch8byPSjeFeWP+K6qwKLY3v4raUnWFcuIo6/8SnznOz8TOzt/kv2p
jOd6MD5U1Ni6tVcFvxZR8Oy+cSUqShbybzvf+plYzZ4W3SYX8tJ2mbJTFuuX
eUbeQtNlmWWezynHHeIHc8zcES/q/K8Xf13sZttiI3sEreFfmC/i3gpDAS/M
E8/rV6VUZ3WCtCuMHvfn2ZX/vfbyP2aO7MXefop13Twj5M/aziqtGfWacr4o
27Db+deuELv84vHpy39583f/J+jOdzBfxNeKCLO4LYztDUpn9JvP/v2/iguq
yNjOmfniPRsym1oTtQ0TYd3uQn5eTOLeFdZYN86MuAPEaA1OWoUM6T1aQXs9
186Mu0PclBFQRxhU1o/0JnDkWINxJ4k7Qm0VOZQsJnMV4zn9PzPu6eOOuL6M
TFp692nr+YFm3B3ipq43m7KQm0nvXlg9Z9CMu0PcwPpo2TUOMtfmeQdGlk5n
HffUldfbhEzZJjXlh6y2Wf2lSVxAs8J764gpu6UlRwDulss7EpnEAXSq43hO
cVP+BU2d0JbL89+CymfcSeKm/BAaI2Joy+UdgqB8GXeSuA8TuI2TvGLLFZSf
TeIYmnFPFfcRArepJ+VtQOUV6yaa0U4V7SsEWiMUKWzMeQo+J08+sRM3j9ok
0b5KoD2m4wM7c75hz1h30ox2qmhXCbQl9y+OdqsvA4t1Mc1op4r2NQLtiYP4
ZQVWT95Vz+00o50S2qMEWj0aPUUEuQ+W++ECcSHtUned67miZsRTQnyMQHwM
xCeUDVxfBc/rm5pxt4v7OIEbHSmaPEKSL6sJjOrOuDvHfYLAjb65pnxktMmT
fCE8s4R7rs6iXicgEyZlwVVCX941iaNqPotqFPEbBGK0sDLnUxKj1BgpG4Ky
OmJoCMzSOJ5T3CcJ3MgDlAkD5r77nq29/Eeli/VszIhbQ/wmgZhYO8uRi0xK
KcHJrVufMNru0b5FoEV1Msg8HTDk7AZN9Ix2qmhPEWiROo8RWSJTfnJ9bU35
xXq2ZrStoT1NoEXlG2/XUuZVvkzu+eaM9XbNaFtDe4ZAG9bQUpsNKcuS2lwl
l8nW/l89J9hMtwW6+u5uX15mHaOLuhg4xnbFW+h4AlWPKU+V8pqObS+ni3El
+sr2mN1ucScyOGWHFYgY95RwDwjcsVqWpizgVtlX0o31ns24W8O9TuBGeRBe
tJHjZU+vCwlQGG1raM8RaGMVaE095fe4PHFLa4ZWvpXqqJ2r44bzBFDURsLJ
NrAN62tzofbw0UKjOC8QOGM1ns2Uau0Trq5aC2GFBpeSYiFMKYzPOUX7dZ3r
HZGvdMpo8ycqboWWc2E7NsYBBeNsF+c3dA5IjCHjhUl6e133mgO6WI6mcIba
GlRtNBE7joi9gWCmaeC0ue9Nv3kslQ6JJBlnIzg3xnFajxLI/g7hgzt0aCCu
X/+7YHsYYyMY38ajUmGs6YO7UIoNSpsQMsbYCMZ3CIxvRNbdfPvcg4DMkSJZ
hVdUT8bYCEZdZ+xdMPa+j/nmKTcWV6/+Q1CRFS1/GGODGINeB0/Uqr7drxe6
qhpm31NTzR+raKh1DPA5AdqwoNcedG8g3I4YHxfWFK3ScWKcDeKs8j6oHiGt
sppuuUO6qFa9iXA+xFTrfyxLgyo4WCe5emfqiQxlyCnZnp/HYmS0tetMGYad
BK1Z86hTs62th8HdS9h9dzto5+ooBdWZMv2K6l5PXV/N9q6gyJETjTk1jZ2R
X/ATFFTnHkFx8puwnkDXNSboOjktxESTG6blidamjb+TMck1GjO/VYqOUN0Z
be06UwZam77HTCglFXNwUCmJ0dauM2WMFdVzErSOApJ0JeaKmOSELEVMwc8q
YyTrTJlbRadZk99h9ORLjgdqqdtgLbjygKxdZ8qqajtGBKB8ibTairYXjJWs
M2U9FaFp+pJx2UOq1EDSI7bnWmiVaVDTmaQNowyjTtnsQ1n5SO5wxLVrP62c
exkjafAUld8OxhjNI6vsSU27gOhaEcE66MykS8Y+SDHPoClTp11Z8IhQSPIE
TUU9AeWBfuR5XH3REFMmT1G+07TgkU/HJZMTvvQJsWK0NowyeYrymB5auwEq
pFCOUT9r8L6YsuvQVY61/1Pl7ql0KFmIVHu8pp4tips3fyIuX/5SrKw8yxZk
BNclN788tOVNJD/qyrKPsziX84XcZ/G8QNdZH7gvQ7T5ExV3Rky9MM5CIyao
uj8jJNdcknq1DZdu80wyYEBTfbhmBCMPSGgY0+rpI7WJBDG+aBKNumYuGVnn
yOqarWRknSMzpiehrj1Sc2BkiSAL6tWzbbmEqdmwoH4u249LGF+U8jyqIhNM
hGC8ovwsmfqbey1pVGdKFb5beKwaXVFnSukddX+q4+4Fx0hpvaM6McYkMVKq
7mwKdWYwUmrtqCzGmCRGSoUd5csYk8RIqbCjlTpjTBIjpb/OhoRnBqOuC61f
wYaCk0SnBaJBXQqmliS1gD660ptgZEkiA5rlVkcCHSoxss6RUZrivBJJEhml
AY7O/lJA9kIeL+g6Y80ItlOfGKagNgSiksKQYmpuWPAQFtWP8SWCL0obAlWH
CSZCMF4bApXPGBPB6IdRehGMcWYwUjoSqCzGmCRGSkeCfa/MDEZKRwKdAzHG
JDHqculzIHaXkyQ6XZfgORBTS5JaQA1CnQMxsiSRAZUHew6Ugg+qF1gajeoX
rwDP0uhOMNW1sMdTYOfIjPYCPPtB9WRkiSALngOxu7aEqdmwoPgZlcv4EsEX
dQ7EjvYSJhh/DoRkXYwxEYx+GHUOxBhnBqOeOGmRJXtITBKdLiMosmRqSVIL
HPUokSUjSxIZuPpqRZaEVyZG1h0y6porS5QTAkVdZJ3chy9LlBuqszm1gSLL
2HryFNgBsqDIMpYQU+uAmg27LXZ2oKRk2p6SGV8NfN5nZ1dsb8fKuphgIgTH
RJaSohmIfQ9j/qPi1nNvzehaQ+eH6W5clvhESL7F6JJEpz9xSwidjMfUkqRm
NNLL1JR8i5Eliaw/jszKtyapOyNrDdkSHmXBW1gNIDtrCnYdZOr/NrPRvkAp
mWhdf++YKKpTA0TXTEbSdc9wTz8S+6NsONqHyRhnXQtsfVG4sxQVF7MawDnQ
j/IBOsz2StkyxkkwKiEaGpmxe/jnJCnEXjbcHGX7RbbKZ6XatAxUXt77ZV1e
HpXPXPeW60V++dy9mQ/uUPH8ZtR9MzxJz11x40ZJ0qMeo+bVfCMswXx63jRv
BBNsZop2w8S4cpoaUqH2TIIx09M0Y2zelyxQTiN3NM+5FN4fDeXSV/1LLYv1
yGSizROl7BU0trmRGe1no01vY8NrqBZw9gicFLpInCxeaMs/N1YBQDsaRpYI
sqAKANq9MLVEqNkwZz3aKx9dUWsZpjVFWlWXlNRjppUIrfg9H9UeRtbFdOh0
N97fMbIkkdU1OMda1R2BorZmur9ZqzoBTMWX7MGlS2OYqIU9T4EdI1uRYVKv
dwxb/lQ+K5rLpDomZcPQfXX1jFElgsr7JMnBRS3mmVbnX63SAuKOyBEZZHYh
77aHkaUyFzoI+hKbCC3mGVlSyMzS3UV2Xdy7x7SSpFXU+YsrV7bF7q4XVhOV
G7YJwuo2203bFqo269wWqqq+Z1SMilEljMoNWwVhFCo3bBmEoY0ipVfSZp0P
gbCVyPrF1rkKlfxL9oEjNlRRPprvv2cv/T+mb84Z\
\>"]]
}, {2}]],

Cell[TextData[{
 "The slope of ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"lg", "(", "x", ")"}], " ", "is", " ", 
    RowBox[{"1", "/", 
     RowBox[{
      RowBox[{
       RowBox[{"ln", "(", "10", ")"}], "  ", "!!"}], "!"}], " "}]}], 
   TraditionalForm]]],
 "\nThe slope of ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"ln", "(", "x", ")"}], " ", "is", " ", 
    RowBox[{
     RowBox[{"1", "  ", "!!"}], "!"}], " "}], TraditionalForm]]]
}], "Text-Framed",
 CellChangeTimes->{{3.5882671274051375`*^9, 3.5882671550451765`*^9}, {
  3.5882673809654922`*^9, 3.588267388395503*^9}, {3.5882674315455637`*^9, 
  3.588267490575646*^9}, {3.588267668315895*^9, 3.5882677026359425`*^9}, {
  3.588268123637532*^9, 3.58826816469759*^9}, {3.5888666024799423`*^9, 
  3.5888666341705985`*^9}}]
}, Open  ]]
}, Open  ]]
},
ScreenStyleEnvironment->"SlideShow",
WindowSize->{1543, 926},
WindowMargins->{{Automatic, -1718}, {Automatic, -36}},
PrivateNotebookOptions->{"ColorPalette"->{RGBColor, -1}},
ShowCellLabel->True,
ShowCellTags->False,
RenderingOptions->{"ObjectDithering"->True,
"RasterDithering"->False},
Magnification:>1.5 Inherited,
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)",
StyleDefinitions->Notebook[{
   Cell[
    CellGroupData[{
      Cell[
       TextData[{"Style Definitions for the ", 
         StyleBox["Mathematica", FontSlant -> "Italic"], 
         " developments at University of Szeged ", "2011"}], "Subtitle", 
       CellMargins -> {{0, Inherited}, {Inherited, 0}}, 
       CellFrameMargins -> {{20, 4}, {8, 20}}, FontSize -> 24, FontWeight -> 
       "Bold", FontColor -> GrayLevel[0], Background -> 
       RGBColor[247/256, 141/256, 30/256]], 
      Cell[
       CellGroupData[{
         Cell["Style Environment Names", "Section"], 
         Cell[
          StyleData[All, "Working"], PageWidth -> WindowWidth, 
          CellLabelMargins -> {{12, Inherited}, {Inherited, Inherited}}, 
          ShowAutoStyles -> False, ScriptMinSize -> 9, MenuSortingValue -> 
          1100], 
         Cell[
          StyleData[All, "Presentation"], PageWidth -> WindowWidth, 
          ShowCellBracket -> Automatic, ShowGroupOpener -> True, 
          CellLabelMargins -> {{24, Inherited}, {Inherited, Inherited}}, 
          ShowAutoStyles -> False, 
          AutoStyleOptions -> {"HighlightMisspelledWords" -> False}, 
          ScriptMinSize -> 15, MenuSortingValue -> 1200], 
         Cell[
          StyleData[
          All, "SlideShow", StyleDefinitions -> 
           StyleData[All, "Presentation"]], PageWidth -> WindowWidth, 
          DockedCells -> 
          FEPrivate`FrontEndResource["FEExpressions", "SlideshowToolbar"], 
          ScrollingOptions -> {
           "PagewiseDisplay" -> True, "VerticalScrollRange" -> Fit}, 
          MenuSortingValue -> 1300], 
         Cell[
          StyleData[All, "Condensed"], PageWidth -> WindowWidth, 
          CellLabelMargins -> {{8, Inherited}, {Inherited, Inherited}}, 
          ShowAutoStyles -> False, ScriptMinSize -> 8, MenuSortingValue -> 
          1400], 
         Cell[
          StyleData[All, "Printout"], PageWidth -> PaperWidth, 
          CellLabelMargins -> {{2, Inherited}, {Inherited, Inherited}}, 
          ShowAutoStyles -> False, ShowSyntaxStyles -> False, 
          AutoStyleOptions -> {"HighlightMisspelledWords" -> False}, 
          ScriptMinSize -> 5, MenuSortingValue -> 1500, 
          PrivateFontOptions -> {"FontType" -> "Outline"}, Magnification -> 
          0.8]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell["Notebook Options Settings", "Section"], 
         Cell[
         "The options defined for the style below will be used at the \
Notebook level.", "Text"], 
         Cell[
          StyleData["Notebook"], PageHeaders -> {{
             Cell[
              TextData[{
                Cell[
                 TextData[{
                   CounterBox["Page"]}], "PageNumber"], " ", 
                Cell[
                " ", "Header", CellFrame -> {{0.5, 0}, {0, 0}}, 
                 CellFrameMargins -> 4], 
                Cell[
                 TextData[{
                   ValueBox["FileName"]}], "Header"]}], 
              CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None, 
             None}, {None, None, 
             Cell[
              TextData[{
                Cell[
                 TextData[{
                   ValueBox["FileName"]}], "Header"], 
                Cell[
                " ", "Header", CellFrame -> {{0, 0.5}, {0, 0}}, 
                 CellFrameMargins -> 4], " ", 
                Cell[
                 TextData[{
                   CounterBox["Page"]}], "PageNumber"]}], 
              CellMargins -> {{Inherited, 0}, {Inherited, Inherited}}]}}, 
          PageHeaderLines -> {False, False}, 
          PageFooterLines -> {False, False}, 
          PrintingOptions -> {
           "FacingPages" -> True, "FirstPageFace" -> Right, "FirstPageFooter" -> 
            True, "FirstPageHeader" -> False}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell["Styles for Titles, Chapters and Sections Cells", "Section"], 
         Cell[
          CellGroupData[{
            Cell["Titles", "Subsection"], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["Main-header"], ShowCellBracket -> Automatic, 
                CellMargins -> {{0, 10}, {0, 25}}, CellHorizontalScrolling -> 
                True, TextAlignment -> Center, MenuSortingValue -> 990], 
               Cell[
                StyleData["Main-header", "Printout"], 
                CellMargins -> {{0, 10}, {0, 25}}], 
               Cell[
                StyleData[
                "Main-header", "SlideShow", 
                 CellMargins -> {{0, 10}, {0, 25}}]]}, Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["MainTitle"], CellFrame -> {{1, 2}, {2, 1}}, 
                CellDingbat -> None, ShowCellBracket -> Automatic, 
                CellMargins -> {{0, 10}, {20, 20}}, 
                CellElementSpacings -> {"GroupIconTopMargin" -> 0}, 
                CellGroupingRules -> {"TitleGrouping", 0}, PageBreakBelow -> 
                False, CellFrameColor -> RGBColor[0, 0, 0.2], 
                DefaultNewInlineCellStyle -> "None", 
                InputAutoReplacements -> {"TeX" -> FormBox[
                    StyleBox[
                    RowBox[{"T", 
                    AdjustmentBox[
                    "E", BoxMargins -> {{-0.3, 0}, {0, 0}}, BoxBaselineShift -> 
                    0.5], "X"}], SingleLetterItalics -> False], 
                    TraditionalForm], "LaTeX" -> FormBox[
                    StyleBox[
                    RowBox[{"L", 
                    StyleBox[
                    AdjustmentBox[
                    "A", BoxMargins -> {{-0.5, -0.3}, {0, 0}}, 
                    BoxBaselineShift -> -0.4], FontSize -> Smaller], "T", 
                    AdjustmentBox[
                    "E", BoxMargins -> {{-0.3, 0}, {0, 0}}, BoxBaselineShift -> 
                    0.5], "X"}], SingleLetterItalics -> False], 
                    TraditionalForm], "mma" -> "Mathematica", "Mma" -> 
                  "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> 
                  FormBox[
                    RowBox[{"grid", 
                    AdjustmentBox[
                    StyleBox["Mathematica", FontSlant -> "Italic"], 
                    BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], 
                  "webMathematica" -> FormBox[
                    RowBox[{"web", 
                    AdjustmentBox[
                    StyleBox["Mathematica", FontSlant -> "Italic"], 
                    BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], 
                  ParentList}, TextAlignment -> Center, TextJustification -> 
                0, LineSpacing -> {1., 5.}, LanguageCategory -> 
                "NaturalLanguage", CounterIncrements -> "Main-Title", 
                CounterAssignments -> {{"Part", 0}, {"Chapter", 0}, {
                  "MainSection", 0}, {"Section", 0}, {
                  "NumberedEquation", 0}, {"NumberedFigure", 0}, {
                  "Subtitle", 0}, {"Subsubtitle", 0}, {"Problem", 0}, {
                  "SolvedProblem", 0}, {"Experiment", 0}, {"Theorem", 0}, {
                  "Remark", 0}, {"Corollary", 0}, {"Definition", 0}, {
                  "Th-Env", 0}, {"ItemNumbered", 0}}, MenuSortingValue -> 
                1000, FontFamily -> "Helvetica", FontSize -> 30, FontWeight -> 
                "Bold", FontSlant -> "Italic", FontTracking -> "Plain", 
                FontColor -> RGBColor[1, 1, 1], Background -> 
                RGBColor[0.35, 0.4, 0.8]], 
               Cell[
                StyleData["Main-Title", "Presentation"], 
                CellMargins -> {{0, Inherited}, {20, 45}}, 
                LineSpacing -> {1, 5}, FontSize -> 42], 
               Cell[
                StyleData["Main-Title", "Condensed"], 
                CellMargins -> {{0, 10}, {4, 8}}, FontSize -> 20], 
               Cell[
                StyleData["Main-Title", "Printout"], 
                CellMargins -> {{0, 10}, {10, 20}}], 
               Cell[
                StyleData["Main-Title", "SlideShow"], FontSize -> 42]}, 
              Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["Title"], ShowCellBracket -> Automatic, 
                CellMargins -> {{0, 10}, {15, 20}}, 
                CellElementSpacings -> {"GroupIconTopMargin" -> 0}, 
                CellGroupingRules -> {"TitleGrouping", 0}, PageBreakBelow -> 
                False, CellFrameColor -> RGBColor[0, 0, 0.2], 
                DefaultNewInlineCellStyle -> "None", 
                InputAutoReplacements -> {"TeX" -> FormBox[
                    StyleBox[
                    RowBox[{"T", 
                    AdjustmentBox[
                    "E", BoxMargins -> {{-0.3, 0}, {0, 0}}, BoxBaselineShift -> 
                    0.5], "X"}], SingleLetterItalics -> False], 
                    TraditionalForm], "LaTeX" -> FormBox[
                    StyleBox[
                    RowBox[{"L", 
                    StyleBox[
                    AdjustmentBox[
                    "A", BoxMargins -> {{-0.5, -0.3}, {0, 0}}, 
                    BoxBaselineShift -> -0.4], FontSize -> Smaller], "T", 
                    AdjustmentBox[
                    "E", BoxMargins -> {{-0.3, 0}, {0, 0}}, BoxBaselineShift -> 
                    0.5], "X"}], SingleLetterItalics -> False], 
                    TraditionalForm], "mma" -> "Mathematica", "Mma" -> 
                  "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> 
                  FormBox[
                    RowBox[{"grid", 
                    AdjustmentBox[
                    StyleBox["Mathematica", FontSlant -> "Italic"], 
                    BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], 
                  "webMathematica" -> FormBox[
                    RowBox[{"web", 
                    AdjustmentBox[
                    StyleBox["Mathematica", FontSlant -> "Italic"], 
                    BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], 
                  ParentList}, TextAlignment -> Center, TextJustification -> 
                0, LineSpacing -> {1., 5.}, LanguageCategory -> 
                "NaturalLanguage", CounterIncrements -> "Title", 
                CounterAssignments -> {{"Part", 0}, {"Chapter", 0}, {
                  "MainSection", 0}, {"Section", 0}, {
                  "NumberedEquation", 0}, {"NumberedFigure", 0}, {
                  "Subtitle", 0}, {"Subsubtitle", 0}, {"Problem", 0}, {
                  "SolvedProblem", 0}, {"Experiment", 0}, {"Theorem", 0}, {
                  "Remark", 0}, {"Corollary", 0}, {"Definition", 0}, {
                  "Th-Env", 0}, {"ItemNumbered", 0}}, MenuSortingValue -> 
                1100, MenuCommandKey -> "1", FontFamily -> "Helvetica", 
                FontSize -> 28, FontWeight -> "Bold", FontSlant -> "Plain", 
                FontTracking -> "Plain", FontColor -> 
                RGBColor[0.3, 0.2, 0.5]], 
               Cell[
                StyleData["Title", "Presentation"], 
                CellMargins -> {{0, Inherited}, {20, 45}}, 
                LineSpacing -> {1, 5}, FontSize -> 40], 
               Cell[
                StyleData["Title", "Condensed"], 
                CellMargins -> {{0, 10}, {4, 8}}, FontSize -> 20], 
               Cell[
                StyleData["Title", "Printout"], 
                CellMargins -> {{0, 5}, {10, 15}}], 
               Cell[
                StyleData["Title", "SlideShow"], FontSize -> 40]}, Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["Subtitle"], ShowCellBracket -> Automatic, 
                CellMargins -> {{0, 10}, {10, 5}}, 
                CellGroupingRules -> {"TitleGrouping", 10}, PageBreakBelow -> 
                False, CellFrameColor -> RGBColor[0, 0, 0.2], 
                DefaultNewInlineCellStyle -> "None", 
                InputAutoReplacements -> {"TeX" -> FormBox[
                    StyleBox[
                    RowBox[{"T", 
                    AdjustmentBox[
                    "E", BoxMargins -> {{-0.3, 0}, {0, 0}}, BoxBaselineShift -> 
                    0.5], "X"}], SingleLetterItalics -> False], 
                    TraditionalForm], "LaTeX" -> FormBox[
                    StyleBox[
                    RowBox[{"L", 
                    StyleBox[
                    AdjustmentBox[
                    "A", BoxMargins -> {{-0.5, -0.3}, {0, 0}}, 
                    BoxBaselineShift -> -0.4], FontSize -> Smaller], "T", 
                    AdjustmentBox[
                    "E", BoxMargins -> {{-0.3, 0}, {0, 0}}, BoxBaselineShift -> 
                    0.5], "X"}], SingleLetterItalics -> False], 
                    TraditionalForm], "mma" -> "Mathematica", "Mma" -> 
                  "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> 
                  FormBox[
                    RowBox[{"grid", 
                    AdjustmentBox[
                    StyleBox["Mathematica", FontSlant -> "Italic"], 
                    BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], 
                  "webMathematica" -> FormBox[
                    RowBox[{"web", 
                    AdjustmentBox[
                    StyleBox["Mathematica", FontSlant -> "Italic"], 
                    BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], 
                  ParentList}, TextAlignment -> Center, TextJustification -> 
                0, LineSpacing -> {1, 1}, LanguageCategory -> 
                "NaturalLanguage", CounterIncrements -> "Subtitle", 
                CounterAssignments -> {{"Part", 0}, {"Chapter", 0}, {
                  "Problem", 0}, {"Section", 0}, {"Equation", 0}, {
                  "Figure", 0}}, MenuSortingValue -> 1120, MenuCommandKey -> 
                "2", FontFamily -> "Helvetica", FontSize -> 24, FontWeight -> 
                "Bold", FontSlant -> "Italic", FontColor -> 
                RGBColor[0.3, 0.3, 0.6]], 
               Cell[
                StyleData["Subtitle", "Presentation"], 
                CellMargins -> {{0, Inherited}, {30, 3}}, 
                LineSpacing -> {1, 16}, FontSize -> 34], 
               Cell[
                StyleData["Subtitle", "Condensed"], 
                CellMargins -> {{0, 10}, {4, 4}}, FontSize -> 18], 
               Cell[
                StyleData["Subtitle", "Printout"], 
                CellMargins -> {{0, 5}, {10, 5}}], 
               Cell[
                StyleData["Subtitle", "SlideShow"], FontSize -> 34]}, 
              Closed]]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell["Chapters", "Subsection"], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["Chapter"], CellFrame -> False, CellDingbat -> Cell[
                  TextData[{
                    CounterBox["Chapter"], "."}], CellSize -> {45, Inherited},
                   TextAlignment -> Left], ShowCellBracket -> Automatic, 
                ShowGroupOpener -> False, CellMargins -> {{0, 10}, {10, 35}}, 
                CellElementSpacings -> {"ClosedGroupTopMargin" -> 20}, 
                CellGroupingRules -> {"SectionGrouping", 16}, 
                CounterIncrements -> "Chapter", 
                CounterAssignments -> {{"SubChapter", 0}, {
                  "MainSection", 0}, {"Section", 0}, {
                  "NumberedEquation", 0}, {"NumberedFigure", 0}, {
                  "Problem", 0}, {"SolvedProblem", 0}, {"Experiment", 0}, {
                  "Theorem", 0}, {"Remark", 0}, {"Corollary", 0}, {
                  "Definition", 0}, {"Th-Env", 0}, {"ItemNumbered", 0}}, 
                MenuSortingValue -> 1160, FontFamily -> "Helvetica", FontSize -> 
                24, FontWeight -> "Bold", FontSlant -> "Plain", FontTracking -> 
                "Plain", FontColor -> RGBColor[0.3, 0.2, 0.5]], 
               Cell[
                StyleData["Chapter", "Printout"], PageBreakBelow -> False], 
               Cell[
                StyleData["Chapter", "SlideShow"], FontSize -> 30]}, Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["Chapter-Nonumber"], CellFrame -> False, 
                ShowCellBracket -> Automatic, ShowGroupOpener -> False, 
                CellMargins -> {{5, 10}, {5, 15}}, 
                CellElementSpacings -> {"ClosedGroupTopMargin" -> 20}, 
                CellGroupingRules -> {"SectionGrouping", 16}, 
                CounterIncrements -> "Chapter", 
                CounterAssignments -> {{"SubChapter", 0}, {
                  "MainSection", 0}, {"Section", 0}, {
                  "NumberedEquation", 0}, {"NumberedFigure", 0}, {
                  "Subtitle", 0}, {"Subsubtitle", 0}, {"Problem", 0}, {
                  "SolvedProblem", 0}, {"Experiment", 0}, {"Theorem", 0}, {
                  "Remark", 0}, {"Corollary", 0}, {"Definition", 0}, {
                  "Th-Env", 0}, {"ItemNumbered", 0}}, MenuSortingValue -> 
                1160, FontFamily -> "Helvetica", FontSize -> 24, FontWeight -> 
                "Bold", FontSlant -> "Plain", FontTracking -> "Plain", 
                FontColor -> RGBColor[0.3, 0.2, 0.5]], 
               Cell[
                StyleData["Chapter-Nonumber", "Printout"], PageBreakBelow -> 
                False], 
               Cell[
                StyleData["Chapter-Nonumber", "SlideShow"], FontSize -> 30]}, 
              Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["Appendix"], CellFrame -> False, CellDingbat -> Cell[
                  TextData[{
                    CounterBox["Chapter"], "."}], CellSize -> {45, Inherited},
                   TextAlignment -> Left], ShowCellBracket -> Automatic, 
                ShowGroupOpener -> False, CellMargins -> {{0, 10}, {5, 15}}, 
                CellElementSpacings -> {"ClosedGroupTopMargin" -> 20}, 
                CellGroupingRules -> {"SectionGrouping", 16}, 
                CounterIncrements -> "Chapter", 
                CounterAssignments -> {{"SubChapter", 0}}, MenuSortingValue -> 
                1180, FontFamily -> "Helvetica", FontSize -> 24, FontWeight -> 
                "Bold", FontSlant -> "Plain", FontTracking -> "Plain", 
                FontColor -> RGBColor[0.3, 0.2, 0.5], 
                CounterBoxOptions -> {CounterFunction :> (Part[
                    CharacterRange["A", "Z"], #]& )}], 
               Cell[
                StyleData["Appendix", "Printout"], PageBreakBelow -> False], 
               Cell[
                StyleData["Appendix", "SlideShow"], FontSize -> 30]}, 
              Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["SubChapter"], CellFrame -> False, CellDingbat -> 
                Cell[
                  TextData[{
                    CounterBox["Chapter"], ".", 
                    CounterBox["SubChapter"], "."}], 
                  CellSize -> {45, Inherited}, TextAlignment -> Left], 
                ShowCellBracket -> Automatic, ShowGroupOpener -> False, 
                CellMargins -> {{0, 10}, {5, 10}}, 
                CellElementSpacings -> {"ClosedGroupTopMargin" -> 15}, 
                CellGroupingRules -> {"SectionGrouping", 17}, 
                CounterIncrements -> "SubChapter", MenuSortingValue -> 1200, 
                FontFamily -> "Helvetica", FontSize -> 20, FontWeight -> 
                "Bold", FontSlant -> "Plain", FontTracking -> "Plain", 
                FontColor -> RGBColor[0.3, 0.3, 0.6]], 
               Cell[
                StyleData["SubChapter", "Printout"], PageBreakBelow -> False], 
               Cell[
                StyleData["SubChapter", "SlideShow"], FontSize -> 26]}, 
              Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["SubChapter-Nonumber"], CellFrame -> False, 
                ShowCellBracket -> Automatic, ShowGroupOpener -> False, 
                CellMargins -> {{30, 10}, {5, 10}}, 
                CellElementSpacings -> {"ClosedGroupTopMargin" -> 15}, 
                CellGroupingRules -> {"SectionGrouping", 17}, 
                CounterIncrements -> "SubChapter", MenuSortingValue -> 1201, 
                FontFamily -> "Helvetica", FontSize -> 20, FontWeight -> 
                "Bold", FontSlant -> "Plain", FontTracking -> "Plain", 
                FontColor -> RGBColor[0.3, 0.3, 0.6]], 
               Cell[
                StyleData["SubChapter-Nonumber", "Printout"], PageBreakBelow -> 
                False], 
               Cell[
                StyleData["SubChapter-Nonumber", "SlideShow"], FontSize -> 
                26]}, Closed]]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell["Sections", "Subsection"], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["MainSection"], CellFrame -> {{0, 0}, {0.5, 1.5}}, 
                ShowCellBracket -> Automatic, ShowGroupOpener -> True, 
                CellMargins -> {{25, 100}, {5, 10}}, 
                CellElementSpacings -> {
                 "ClosedCellHeight" -> 17, "ClosedGroupTopMargin" -> 20, 
                  "GroupIconTopMargin" -> 0}, 
                CellGroupingRules -> {"SectionGrouping", 35}, PageBreakBelow -> 
                False, CellFrameMargins -> {{4, 4}, {1, 1}}, CellFrameColor -> 
                RGBColor[0.7, 0.7, 0.8], TextJustification -> 0, 
                MenuSortingValue -> 1260, FontFamily -> "Helvetica", FontSize -> 
                18, FontWeight -> "Bold", FontSlant -> "Plain", FontColor -> 
                RGBColor[0.3, 0.2, 0.5], Background -> 
                RGBColor[0.93, 0.93, 1]], 
               Cell[
                StyleData["MainSection", "Printout"], PageBreakBelow -> 
                False], 
               Cell[
                StyleData["MainSection", "SlideShow"], 
                CellMargins -> {{20, 20}, {10, 5}}, FontSize -> 30]}, Open]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["Section"], CellFrame -> False, CellDingbat -> 
                "\[GraySquare] ", ShowCellBracket -> Automatic, 
                ShowGroupOpener -> True, 
                CellMargins -> {{40, Inherited}, {5, 15}}, 
                CellGroupingRules -> {"SectionGrouping", 40}, PageBreakBelow -> 
                False, CellFrameMargins -> 4, DefaultNewInlineCellStyle -> 
                "None", InputAutoReplacements -> {"TeX" -> FormBox[
                    StyleBox[
                    RowBox[{"T", 
                    AdjustmentBox[
                    "E", BoxMargins -> {{-0.3, 0}, {0, 0}}, BoxBaselineShift -> 
                    0.5], "X"}], SingleLetterItalics -> False], 
                    TraditionalForm], "LaTeX" -> FormBox[
                    StyleBox[
                    RowBox[{"L", 
                    StyleBox[
                    AdjustmentBox[
                    "A", BoxMargins -> {{-0.5, -0.3}, {0, 0}}, 
                    BoxBaselineShift -> -0.4], FontSize -> Smaller], "T", 
                    AdjustmentBox[
                    "E", BoxMargins -> {{-0.3, 0}, {0, 0}}, BoxBaselineShift -> 
                    0.5], "X"}], SingleLetterItalics -> False], 
                    TraditionalForm], "mma" -> "Mathematica", "Mma" -> 
                  "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> 
                  FormBox[
                    RowBox[{"grid", 
                    AdjustmentBox[
                    StyleBox["Mathematica", FontSlant -> "Italic"], 
                    BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], 
                  "webMathematica" -> FormBox[
                    RowBox[{"web", 
                    AdjustmentBox[
                    StyleBox["Mathematica", FontSlant -> "Italic"], 
                    BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], 
                  ParentList}, LineSpacing -> {1, 2}, LanguageCategory -> 
                "NaturalLanguage", CounterIncrements -> "Section", 
                CounterAssignments -> {{"Subsection", 0}, {
                  "Subsubsection", 0}}, MenuSortingValue -> 1300, 
                MenuCommandKey -> "4", FontFamily -> "Helvetica", FontSize -> 
                16, FontWeight -> "Bold", FontColor -> 
                RGBColor[0, 0, 0.500008]], 
               Cell[
                StyleData["Section", "Presentation"], 
                CellMargins -> {{40, Inherited}, {12, 20}}, 
                LineSpacing -> {1, 10}, FontSize -> 40], 
               Cell[
                StyleData["Section", "Condensed"], 
                CellMargins -> {{40, Inherited}, {6, 10}}, FontSize -> 12], 
               Cell[
                StyleData["Section", "Printout"], 
                CellMargins -> {{40, 0}, {6, 10}}], 
               Cell[
                StyleData["Section", "SlideShow"], 
                CellMargins -> {{40, 0}, {10, 15}}, PageBreakBelow -> False, 
                FontSize -> 26]}, Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["Subsection"], CellFrame -> False, CellDingbat -> 
                " \[EmptySquare] ", ShowCellBracket -> Automatic, 
                ShowGroupOpener -> True, 
                CellMargins -> {{40, Inherited}, {3, 10}}, 
                CellGroupingRules -> {"SectionGrouping", 45}, PageBreakBelow -> 
                False, DefaultNewInlineCellStyle -> "None", 
                InputAutoReplacements -> {"TeX" -> FormBox[
                    StyleBox[
                    RowBox[{"T", 
                    AdjustmentBox[
                    "E", BoxMargins -> {{-0.3, 0}, {0, 0}}, BoxBaselineShift -> 
                    0.5], "X"}], SingleLetterItalics -> False], 
                    TraditionalForm], "LaTeX" -> FormBox[
                    StyleBox[
                    RowBox[{"L", 
                    StyleBox[
                    AdjustmentBox[
                    "A", BoxMargins -> {{-0.5, -0.3}, {0, 0}}, 
                    BoxBaselineShift -> -0.4], FontSize -> Smaller], "T", 
                    AdjustmentBox[
                    "E", BoxMargins -> {{-0.3, 0}, {0, 0}}, BoxBaselineShift -> 
                    0.5], "X"}], SingleLetterItalics -> False], 
                    TraditionalForm], "mma" -> "Mathematica", "Mma" -> 
                  "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> 
                  FormBox[
                    RowBox[{"grid", 
                    AdjustmentBox[
                    StyleBox["Mathematica", FontSlant -> "Italic"], 
                    BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], 
                  "webMathematica" -> FormBox[
                    RowBox[{"web", 
                    AdjustmentBox[
                    StyleBox["Mathematica", FontSlant -> "Italic"], 
                    BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], 
                  ParentList}, LanguageCategory -> "NaturalLanguage", 
                CounterIncrements -> "Subsection", 
                CounterAssignments -> {{"Subsubsection", 0}}, 
                MenuSortingValue -> 1300, MenuCommandKey -> "5", FontFamily -> 
                "Helvetica", FontSize -> 14, FontWeight -> "Bold", FontSlant -> 
                "Italic", FontColor -> RGBColor[0.3, 0.3, 0.6]], 
               Cell[
                StyleData["Subsection", "Presentation"], 
                CellMargins -> {{40, Inherited}, {12, 18}}, 
                LineSpacing -> {1, 10}, FontSize -> 22], 
               Cell[
                StyleData["Subsection", "Condensed"], 
                CellMargins -> {{40, Inherited}, {6, 12}}, FontSize -> 12], 
               Cell[
                StyleData["Subsection", "Printout"], 
                CellMargins -> {{40, 0}, {7, 22}}], 
               Cell[
                StyleData["Subsection", "SlideShow"], 
                CellMargins -> {{40, 20}, {10, 10}}, PageBreakBelow -> False, 
                FontSize -> 22]}, Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["Subsubsection"], CellDingbat -> 
                " \[EmptySmallSquare] ", ShowCellBracket -> Automatic, 
                CellMargins -> {{40, Inherited}, {3, 8}}, 
                CellGroupingRules -> {"SectionGrouping", 50}, PageBreakBelow -> 
                False, InputAutoReplacements -> {"TeX" -> FormBox[
                    StyleBox[
                    RowBox[{"T", 
                    AdjustmentBox[
                    "E", BoxMargins -> {{-0.3, 0}, {0, 0}}, BoxBaselineShift -> 
                    0.5], "X"}], SingleLetterItalics -> False], 
                    TraditionalForm], "LaTeX" -> FormBox[
                    StyleBox[
                    RowBox[{"L", 
                    StyleBox[
                    AdjustmentBox[
                    "A", BoxMargins -> {{-0.5, -0.3}, {0, 0}}, 
                    BoxBaselineShift -> -0.4], FontSize -> Smaller], "T", 
                    AdjustmentBox[
                    "E", BoxMargins -> {{-0.3, 0}, {0, 0}}, BoxBaselineShift -> 
                    0.5], "X"}], SingleLetterItalics -> False], 
                    TraditionalForm], "mma" -> "Mathematica", "Mma" -> 
                  "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> 
                  FormBox[
                    RowBox[{"grid", 
                    AdjustmentBox[
                    StyleBox["Mathematica", FontSlant -> "Italic"], 
                    BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], 
                  "webMathematica" -> FormBox[
                    RowBox[{"web", 
                    AdjustmentBox[
                    StyleBox["Mathematica", FontSlant -> "Italic"], 
                    BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], 
                  ParentList}, LanguageCategory -> "NaturalLanguage", 
                CounterIncrements -> "Subsubsection", MenuSortingValue -> 
                1350, MenuCommandKey -> "6", FontFamily -> "Helvetica", 
                FontSize -> 13, FontSlant -> "Italic", FontColor -> 
                RGBColor[0.3, 0.3, 0.7]], 
               Cell[
                StyleData["Subsubsection", "Presentation"], 
                CellMargins -> {{40, Inherited}, {4, 10}}, 
                LineSpacing -> {1, 6}, FontSize -> 20], 
               Cell[
                StyleData["Subsubsection", "Condensed"], 
                CellMargins -> {{40, Inherited}, {3, 6}}, FontSize -> 10], 
               Cell[
                StyleData["Subsubsection", "Printout"], 
                CellMargins -> {{40, 0}, {3, 6}}], 
               Cell[
                StyleData["Subsubsection", "SlideShow"], 
                CellMargins -> {{40, 20}, {4, 8}}, PageBreakBelow -> False, 
                FontSize -> 20]}, Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["Math-Init"], CellFrame -> False, CellDingbat -> 
                "\[FilledSquare]", ShowCellBracket -> Automatic, 
                ShowGroupOpener -> True, CellMargins -> {{40, 10}, {2, 10}}, 
                CellGroupingRules -> {"SectionGrouping", 40}, PageBreakBelow -> 
                False, CellFrameLabels -> {{
                   Cell[
                    
                    TextData[{
                    " Mathematica programbet\[ODoubleDot]lt\[EAcute]s."}]], 
                   None}, {None, None}}, MenuSortingValue -> 1360, FontFamily -> 
                "Helvetica", FontSize -> 13, FontWeight -> "Bold", FontSlant -> 
                "Italic", FontTracking -> "Plain", FontColor -> 
                RGBColor[0.8, 0, 0]], 
               Cell[
                StyleData["Math-Init", "Printout"], PageBreakBelow -> False], 
               Cell[
                StyleData["Math-Init", "SlideShow"], FontSize -> 22]}, 
              Closed]]}, Closed]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell["Styles for Theorem-like environments", "Section"], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Theorem"], CellDingbat -> Cell[
               TextData[{
                 CounterBox["Theorem"], ". ", 
                 StyleBox["T", FontSize -> 14, FontWeight -> "Bold"], 
                 StyleBox[
                 "\[CapitalEAcute]TEL ", FontSize -> 12, FontWeight -> 
                  "Bold"]}], CellSize -> {70, Inherited}, TextAlignment -> 
               Left], ShowCellBracket -> Automatic, 
             CellMargins -> {{110, 30}, {0, 7}}, 
             CellGroupingRules -> {"SectionGrouping", 60}, 
             CellHorizontalScrolling -> True, PageBreakBelow -> False, 
             CounterIncrements -> "Theorem", MenuSortingValue -> 1400, 
             FontFamily -> "Helvetica", FontSize -> 14, FontWeight -> "Bold", 
             FontColor -> RGBColor[0, 0, 0.7]], 
            Cell[
             StyleData["Theorem", "Printout"], PageBreakBelow -> False], 
            Cell[
             StyleData["Theorem", "SlideShow"], FontFamily -> "Helvetica", 
             FontSize -> 22]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Remark"], CellDingbat -> Cell[
               TextData[{
                 CounterBox["Remark"], ". ", 
                 StyleBox["M", FontSize -> 14, FontWeight -> "Bold"], 
                 StyleBox[
                 "EGJEGYZ\[CapitalEAcute]S ", FontSize -> 12, FontWeight -> 
                  "Bold"]}], CellSize -> {110, Inherited}, TextAlignment -> 
               Left], ShowCellBracket -> Automatic, 
             CellMargins -> {{150, 30}, {0, 7}}, 
             CellGroupingRules -> {"SectionGrouping", 60}, 
             CellHorizontalScrolling -> True, PageBreakBelow -> False, 
             CounterIncrements -> "Remark", MenuSortingValue -> 1420, 
             FontFamily -> "Helvetica", FontSize -> 14, FontWeight -> "Bold", 
             FontColor -> RGBColor[0, 0, 0.7]], 
            Cell[
             StyleData["Remark", "Printout"], PageBreakBelow -> False], 
            Cell[
             StyleData["Remark", "SlideShow"], FontFamily -> "Helvetica", 
             FontSize -> 22]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Corollary"], CellDingbat -> Cell[
               TextData[{
                 CounterBox["Corollary"], ". ", 
                 StyleBox["K", FontSize -> 14, FontWeight -> "Bold"], 
                 StyleBox[
                 "\[CapitalODoubleDot]VETKEZM\[CapitalEAcute]NY", FontSize -> 
                  12, FontWeight -> "Bold"]}], CellSize -> {120, Inherited}, 
               TextAlignment -> Left], ShowCellBracket -> Automatic, 
             CellMargins -> {{160, 30}, {0, 7}}, 
             CellGroupingRules -> {"SectionGrouping", 60}, 
             CellHorizontalScrolling -> True, PageBreakBelow -> False, 
             CounterIncrements -> "Corollary", MenuSortingValue -> 1440, 
             FontFamily -> "Helvetica", FontSize -> 14, FontWeight -> "Bold", 
             FontColor -> RGBColor[0, 0, 0.7]], 
            Cell[
             StyleData["Corollary", "Printout"], PageBreakBelow -> False], 
            Cell[
             StyleData["Corollary", "SlideShow"], FontFamily -> "Arial", 
             FontSize -> 22]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Definition"], CellDingbat -> Cell[
               TextData[{
                 CounterBox["Definition"], ". ", 
                 StyleBox["D", FontSize -> 14, FontWeight -> "Bold"], 
                 StyleBox[
                 "EFIN\[CapitalIAcute]CI\[CapitalOAcute]", FontSize -> 12, 
                  FontWeight -> "Bold"]}], CellSize -> {80, Inherited}, 
               TextAlignment -> Left], ShowCellBracket -> Automatic, 
             CellMargins -> {{120, 30}, {0, 7}}, 
             CellGroupingRules -> {"SectionGrouping", 60}, 
             CellHorizontalScrolling -> True, PageBreakBelow -> False, 
             CounterIncrements -> "Definition", MenuSortingValue -> 1460, 
             FontFamily -> "Helvetica", FontSize -> 14, FontWeight -> "Bold", 
             FontColor -> RGBColor[0, 0, 0.7]], 
            Cell[
             StyleData["Definition", "Printout"], PageBreakBelow -> False], 
            Cell[
             StyleData["Definition", "SlideShow"], FontFamily -> "Helvetica", 
             FontSize -> 22]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Th-Env"], CellDingbat -> "\[FilledDiamond]", 
             ShowCellBracket -> Automatic, ShowGroupOpener -> False, 
             CellMargins -> {{50, 30}, {2, 7}}, 
             CellGroupingRules -> {"SectionGrouping", 60}, 
             CellHorizontalScrolling -> True, PageBreakBelow -> False, 
             MenuSortingValue -> 1480, FontFamily -> "Helvetica", FontSize -> 
             14, FontColor -> RGBColor[0, 0, 0.7]], 
            Cell[
             StyleData["Th-Env", "Printout"], PageBreakBelow -> False], 
            Cell[
             StyleData["Th-Env", "SlideShow"], FontFamily -> "Helvetica", 
             FontSize -> 22]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Th-Env-Dummy"], CellDingbat -> "\[FilledDiamond]", 
             ShowCellBracket -> Automatic, ShowGroupOpener -> False, 
             CellMargins -> {{2, 2}, {2, 7}}, 
             CellGroupingRules -> {"SectionGrouping", 60}, 
             CellHorizontalScrolling -> True, PageBreakBelow -> False, 
             MenuSortingValue -> 1480, FontFamily -> "Helvetica", FontSize -> 
             1], 
            Cell[
             StyleData["Th-Env-Dummy", "Printout"], PageBreakBelow -> False], 
            Cell[
             StyleData["Th-Env-Dummy", "SlideShow"], FontFamily -> 
             "Helvetica"]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["SolvedProblem"], CellFrame -> False, CellDingbat -> 
             Cell[
               TextData[{
                 CounterBox["SolvedProblem"], ". ", 
                 StyleBox["P", FontSize -> 14, FontWeight -> "Bold"], 
                 StyleBox[
                 "\[CapitalEAcute]LDA ", FontSize -> 12, FontWeight -> 
                  "Bold"]}], CellSize -> {70, Inherited}, TextAlignment -> 
               Left], ShowCellBracket -> Automatic, ShowGroupOpener -> True, 
             CellMargins -> {{110, 30}, {3, 10}}, 
             CellGroupingRules -> {"SectionGrouping", 60}, PageBreakBelow -> 
             False, CounterIncrements -> "SolvedProblem", 
             CounterAssignments -> {{"ProblemInput", 0}, {"SubProblem", 0}}, 
             MenuSortingValue -> 1500, FontFamily -> "Helvetica", FontSize -> 
             14, FontWeight -> "Bold", FontSlant -> "Plain", FontTracking -> 
             "Plain", FontVariations -> {"Underline" -> False}, FontColor -> 
             RGBColor[0.5, 0, 0]], 
            Cell[
             StyleData["SolvedProblem", "Printout"]], 
            Cell[
             StyleData["SolvedProblem", "SlideShow"], FontSize -> 22]}, 
           Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Problem"], CellFrame -> False, CellDingbat -> Cell[
               TextData[{
                 CounterBox["Problem"], ". ", 
                 StyleBox["F", FontSize -> 14, FontWeight -> "Bold"], 
                 StyleBox["ELADAT ", FontSize -> 12, FontWeight -> "Bold"]}], 
               CellSize -> {90, Inherited}, TextAlignment -> Left], 
             ShowCellBracket -> Automatic, ShowGroupOpener -> True, 
             CellMargins -> {{120, 30}, {0, 10}}, 
             CellGroupingRules -> {"SectionGrouping", 60}, PageBreakBelow -> 
             False, CounterIncrements -> "Problem", 
             CounterAssignments -> {{"ProblemInput", 0}, {"SubProblem", 0}}, 
             MenuSortingValue -> 1520, FontFamily -> "Helvetica", FontSize -> 
             14, FontWeight -> "Bold", FontSlant -> "Plain", FontTracking -> 
             "Plain", FontColor -> RGBColor[0.5, 0, 0]], 
            Cell[
             StyleData["Problem", "Printout"]], 
            Cell[
             StyleData["Problem", "SlideShow"], FontSize -> 22]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Experiment"], CellFrame -> False, CellDingbat -> Cell[
               TextData[{
                 CounterBox["Experiment"], ". ", 
                 StyleBox["K", FontSize -> 14, FontWeight -> "Bold"], 
                 StyleBox[
                 "\[CapitalIAcute]S\[CapitalEAcute]RLET ", FontSize -> 12, 
                  FontWeight -> "Bold"]}], CellSize -> {95, Inherited}, 
               TextAlignment -> Left], ShowCellBracket -> Automatic, 
             ShowGroupOpener -> True, CellMargins -> {{130, 30}, {0, 10}}, 
             CellGroupingRules -> {"SectionGrouping", 60}, PageBreakBelow -> 
             False, CounterIncrements -> "Experiment", MenuSortingValue -> 
             1520, FontFamily -> "Helvetica", FontSize -> 14, FontWeight -> 
             "Bold", FontSlant -> "Plain", FontTracking -> "Plain", FontColor -> 
             RGBColor[0.5, 0, 0]], 
            Cell[
             StyleData["Experiment", "Printout"]], 
            Cell[
             StyleData["Problem", "SlideShow"], FontSize -> 22]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Solution"], CellDingbat -> None, ShowCellBracket -> 
             Automatic, ShowGroupOpener -> True, 
             CellMargins -> {{50, 30}, {0, 8}}, 
             CellGroupingRules -> {"SectionGrouping", 65}, 
             CellHorizontalScrolling -> True, PageBreakBelow -> False, 
             CellFrameLabels -> {{
                Cell[
                 TextData[{"M", 
                   StyleBox[
                   "EGOLD\[CapitalAAcute]S", FontSize -> 11, FontWeight -> 
                    "Bold"]}]], None}, {None, None}}, MenuSortingValue -> 
             1540, FontFamily -> "Helvetica", FontSize -> 14, FontWeight -> 
             "Bold", FontSlant -> "Plain", FontColor -> RGBColor[0, 0, 0.7]], 
            Cell[
             StyleData["Solution", "Printout"]], 
            Cell[
             StyleData["Solution", "SlideShow"], FontSize -> 22]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Proof"], CellDingbat -> None, ShowCellBracket -> 
             Automatic, ShowGroupOpener -> True, 
             CellMargins -> {{50, 30}, {0, 8}}, 
             CellGroupingRules -> {"SectionGrouping", 65}, 
             CellHorizontalScrolling -> True, PageBreakBelow -> False, 
             CellFrameLabels -> {{
                Cell[
                 TextData[{"B", 
                   StyleBox[
                   "IZONY\[CapitalIAcute]T\[CapitalAAcute]S", FontSize -> 11, 
                    FontWeight -> "Bold"]}]], None}, {None, None}}, 
             MenuSortingValue -> 1560, FontFamily -> "Helvetica", FontSize -> 
             14, FontWeight -> "Bold", FontSlant -> "Plain", FontColor -> 
             RGBColor[0., 0, 0.7]], 
            Cell[
             StyleData["Proof", "Printout"], PageBreakBelow -> False], 
            Cell[
             StyleData["Proof", "SlideShow"], FontSize -> 22]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Sol-End"], ShowCellBracket -> Automatic, 
             CellMargins -> {{60, 5}, {5, 1}}, CellGroupingRules -> 
             "NormalGrouping", CellHorizontalScrolling -> True, 
             PageBreakBelow -> False, CellFrameLabels -> {{None, 
                Cell[
                 TextData[{
                   StyleForm["\[FilledSquare]"]}]]}, {None, None}}, 
             MenuSortingValue -> 1580, FontFamily -> "Helvetica", FontSize -> 
             14, FontColor -> RGBColor[0, 0, 0.7]], 
            Cell[
             StyleData["Sol-End", "Printout"], PageBreakAbove -> False], 
            Cell[
             StyleData["Sol-End", "SlideShow"], FontSize -> 22]}, Closed]]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell["Styles for Body Text", "Section"], 
         Cell[
          CellGroupData[{
            Cell["Standard", "Subsection"], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["Text"], ShowCellBracket -> Automatic, 
                CellMargins -> {{50, 10}, {7, 7}}, 
                InputAutoReplacements -> {"TeX" -> FormBox[
                    StyleBox[
                    RowBox[{"T", 
                    AdjustmentBox[
                    "E", BoxMargins -> {{-0.3, 0}, {0, 0}}, BoxBaselineShift -> 
                    0.5], "X"}], SingleLetterItalics -> False], 
                    TraditionalForm], "LaTeX" -> FormBox[
                    StyleBox[
                    RowBox[{"L", 
                    StyleBox[
                    AdjustmentBox[
                    "A", BoxMargins -> {{-0.5, -0.3}, {0, 0}}, 
                    BoxBaselineShift -> -0.4], FontSize -> Smaller], "T", 
                    AdjustmentBox[
                    "E", BoxMargins -> {{-0.3, 0}, {0, 0}}, BoxBaselineShift -> 
                    0.5], "X"}], SingleLetterItalics -> False], 
                    TraditionalForm], "mma" -> "Mathematica", "Mma" -> 
                  "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> 
                  FormBox[
                    RowBox[{"grid", 
                    AdjustmentBox[
                    StyleBox["Mathematica", FontSlant -> "Italic"], 
                    BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], 
                  "webMathematica" -> FormBox[
                    RowBox[{"web", 
                    AdjustmentBox[
                    StyleBox["Mathematica", FontSlant -> "Italic"], 
                    BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], 
                  ParentList}, TextJustification -> 1, LineSpacing -> {1, 3}, 
                CounterIncrements -> "Text", MenuSortingValue -> 1700, 
                MenuCommandKey -> "7", FontSize -> 12], 
               Cell[
                StyleData["Text", "Presentation"], 
                CellMargins -> {{50, 10}, {10, 10}}, LineSpacing -> {1, 5}, 
                FontSize -> 24], 
               Cell[
                StyleData["Text", "Condensed"], 
                CellMargins -> {{8, 10}, {6, 6}}, LineSpacing -> {1, 1}, 
                FontSize -> 11], 
               Cell[
                StyleData["Text", "Printout"], 
                CellMargins -> {{50, 10}, {6, 6}}, TextJustification -> 1, 
                Hyphenation -> True], 
               Cell[
                StyleData["Text", "SlideShow"], FontSize -> 24]}, Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["Text-Indented"], ShowCellBracket -> Automatic, 
                CellMargins -> {{50, 10}, {7, 7}}, 
                InputAutoReplacements -> {"TeX" -> FormBox[
                    StyleBox[
                    RowBox[{"T", 
                    AdjustmentBox[
                    "E", BoxMargins -> {{-0.3, 0}, {0, 0}}, BoxBaselineShift -> 
                    0.5], "X"}], SingleLetterItalics -> False], 
                    TraditionalForm], "LaTeX" -> FormBox[
                    StyleBox[
                    RowBox[{"L", 
                    StyleBox[
                    AdjustmentBox[
                    "A", BoxMargins -> {{-0.5, -0.3}, {0, 0}}, 
                    BoxBaselineShift -> -0.4], FontSize -> Smaller], "T", 
                    AdjustmentBox[
                    "E", BoxMargins -> {{-0.3, 0}, {0, 0}}, BoxBaselineShift -> 
                    0.5], "X"}], SingleLetterItalics -> False], 
                    TraditionalForm], "mma" -> "Mathematica", "Mma" -> 
                  "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> 
                  FormBox[
                    RowBox[{"grid", 
                    AdjustmentBox[
                    StyleBox["Mathematica", FontSlant -> "Italic"], 
                    BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], 
                  "webMathematica" -> FormBox[
                    RowBox[{"web", 
                    AdjustmentBox[
                    StyleBox["Mathematica", FontSlant -> "Italic"], 
                    BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], 
                  ParentList}, TextJustification -> 1, LineSpacing -> {1, 3}, 
                ParagraphIndent -> 25, CounterIncrements -> "Text", 
                MenuSortingValue -> 1720, FontSize -> 12], 
               Cell[
                StyleData["Text-Indented", "Presentation"], 
                CellMargins -> {{50, 10}, {10, 10}}, LineSpacing -> {1, 5}, 
                FontSize -> 24], 
               Cell[
                StyleData["Text-Indented", "Condensed"], 
                CellMargins -> {{8, 10}, {6, 6}}, LineSpacing -> {1, 1}, 
                FontSize -> 11], 
               Cell[
                StyleData["Text-Indented", "Printout"], 
                CellMargins -> {{50, 10}, {6, 6}}, TextJustification -> 1, 
                Hyphenation -> True], 
               Cell[
                StyleData["Text-Indented", "SlideShow"], FontSize -> 24]}, 
              Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["Text-Theorem"], ShowCellBracket -> Automatic, 
                CellMargins -> {{50, 10}, {7, 7}}, 
                InputAutoReplacements -> {"TeX" -> FormBox[
                    StyleBox[
                    RowBox[{"T", 
                    AdjustmentBox[
                    "E", BoxMargins -> {{-0.3, 0}, {0, 0}}, BoxBaselineShift -> 
                    0.5], "X"}], SingleLetterItalics -> False], 
                    TraditionalForm], "LaTeX" -> FormBox[
                    StyleBox[
                    RowBox[{"L", 
                    StyleBox[
                    AdjustmentBox[
                    "A", BoxMargins -> {{-0.5, -0.3}, {0, 0}}, 
                    BoxBaselineShift -> -0.4], FontSize -> Smaller], "T", 
                    AdjustmentBox[
                    "E", BoxMargins -> {{-0.3, 0}, {0, 0}}, BoxBaselineShift -> 
                    0.5], "X"}], SingleLetterItalics -> False], 
                    TraditionalForm], "mma" -> "Mathematica", "Mma" -> 
                  "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> 
                  FormBox[
                    RowBox[{"grid", 
                    AdjustmentBox[
                    StyleBox["Mathematica", FontSlant -> "Italic"], 
                    BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], 
                  "webMathematica" -> FormBox[
                    RowBox[{"web", 
                    AdjustmentBox[
                    StyleBox["Mathematica", FontSlant -> "Italic"], 
                    BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], 
                  ParentList}, TextJustification -> 1, LineSpacing -> {1, 3}, 
                CounterIncrements -> "Text-Theorem", MenuSortingValue -> 1740,
                 FontSize -> 12, FontSlant -> "Italic"], 
               Cell[
                StyleData["Text-Theorem", "Presentation"], 
                CellMargins -> {{50, 10}, {10, 10}}, LineSpacing -> {1, 5}, 
                FontSize -> 24], 
               Cell[
                StyleData["Text-Theorem", "Condensed"], 
                CellMargins -> {{8, 10}, {6, 6}}, LineSpacing -> {1, 1}, 
                FontSize -> 11], 
               Cell[
                StyleData["Text-Theorem", "Printout"], 
                CellMargins -> {{50, 10}, {6, 6}}, TextJustification -> 1, 
                Hyphenation -> True], 
               Cell[
                StyleData["Text-Theorem", "SlideShow"], FontSize -> 24]}, 
              Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["Text-Framed"], CellFrame -> 1, ShowCellBracket -> 
                Automatic, CellMargins -> {{50, 10}, {7, 7}}, CellFrameColor -> 
                RGBColor[0.7, 0.7, 0.8], 
                InputAutoReplacements -> {"TeX" -> FormBox[
                    StyleBox[
                    RowBox[{"T", 
                    AdjustmentBox[
                    "E", BoxMargins -> {{-0.3, 0}, {0, 0}}, BoxBaselineShift -> 
                    0.5], "X"}], SingleLetterItalics -> False], 
                    TraditionalForm], "LaTeX" -> FormBox[
                    StyleBox[
                    RowBox[{"L", 
                    StyleBox[
                    AdjustmentBox[
                    "A", BoxMargins -> {{-0.5, -0.3}, {0, 0}}, 
                    BoxBaselineShift -> -0.4], FontSize -> Smaller], "T", 
                    AdjustmentBox[
                    "E", BoxMargins -> {{-0.3, 0}, {0, 0}}, BoxBaselineShift -> 
                    0.5], "X"}], SingleLetterItalics -> False], 
                    TraditionalForm], "mma" -> "Mathematica", "Mma" -> 
                  "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> 
                  FormBox[
                    RowBox[{"grid", 
                    AdjustmentBox[
                    StyleBox["Mathematica", FontSlant -> "Italic"], 
                    BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], 
                  "webMathematica" -> FormBox[
                    RowBox[{"web", 
                    AdjustmentBox[
                    StyleBox["Mathematica", FontSlant -> "Italic"], 
                    BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], 
                  ParentList}, TextJustification -> 1, LineSpacing -> {1, 3}, 
                CounterIncrements -> "Text", MenuSortingValue -> 1760, 
                FontSize -> 12], 
               Cell[
                StyleData["Text-Framed", "Presentation"], 
                CellMargins -> {{50, 10}, {10, 10}}, LineSpacing -> {1, 5}, 
                FontSize -> 24], 
               Cell[
                StyleData["Text-Framed", "Condensed"], 
                CellMargins -> {{8, 10}, {6, 6}}, LineSpacing -> {1, 1}, 
                FontSize -> 11], 
               Cell[
                StyleData["Text-Framed", "Printout"], 
                CellMargins -> {{50, 10}, {6, 6}}, TextJustification -> 1, 
                Hyphenation -> True], 
               Cell[
                StyleData["Text-Framed", "SlideShow"], FontSize -> 24]}, 
              Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["SmallText"], ShowCellBracket -> Automatic, 
                CellMargins -> {{60, 10}, {3, 3}}, DefaultNewInlineCellStyle -> 
                "None", LineSpacing -> {1, 3}, LanguageCategory -> 
                "NaturalLanguage", CounterIncrements -> "SmallText", 
                MenuSortingValue -> 1780, StyleMenuListing -> True, 
                FontFamily -> "Helvetica", FontSize -> 10], 
               Cell[
                StyleData["SmallText", "Presentation"], 
                CellMargins -> {{60, 10}, {6, 6}}, LineSpacing -> {1, 5}, 
                FontSize -> 18], 
               Cell[
                StyleData["SmallText", "Condensed"], 
                CellMargins -> {{8, 10}, {2, 2}}, LineSpacing -> {1, 2}, 
                FontSize -> 110], 
               Cell[
                StyleData["SmallText", "Printout"], 
                CellMargins -> {{2, 2}, {3, 3}}, TextJustification -> 0.5, 
                Hyphenation -> True], 
               Cell[
                StyleData["SmallText", "SlideShow"], FontSize -> 18]}, 
              Closed]]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell["Display", "Subsection"], 
            Cell[
             CellGroupData[{
               Cell["Lists", "Subsubsection"], 
               Cell[
                CellGroupData[{
                  Cell["Bulleted", "Subsubsubsection"], 
                  Cell[
                   CellGroupData[{
                    Cell[
                    StyleData["Item-Dashed"], CellDingbat -> "\[Dash]", 
                    ShowCellBracket -> Automatic, 
                    CellMargins -> {{60, 10}, {1, 1}}, 
                    CellHorizontalScrolling -> True, TextJustification -> 1, 
                    LineSpacing -> {1, 1}, CounterIncrements -> "Item-Dashed",
                     MenuSortingValue -> 1990, FontSize -> 12], 
                    Cell[
                    StyleData["Item-Dashed", "Printout"]], 
                    Cell[
                    StyleData["Item-Dashed", "SlideShow"], FontSize -> 24]}, 
                    Closed]], 
                  Cell[
                   CellGroupData[{
                    Cell[
                    StyleData["Item"], CellDingbat -> 
                    Cell["\[FilledSmallCircle]"], ShowCellBracket -> 
                    Automatic, CellMargins -> {{60, 10}, {4, 4}}, 
                    ReturnCreatesNewCell -> True, 
                    CellGroupingRules -> {
                    "GroupTogetherNestedGrouping", 15000}, 
                    CellFrameLabelMargins -> 4, CounterIncrements -> "Item", 
                    CounterAssignments -> {{"Subitem", 0}, {"Subsubitem", 0}},
                     MenuSortingValue -> 2000, FontSize -> 12], 
                    Cell[
                    StyleData["Item", "Presentation"], 
                    CellMargins -> {{100, 10}, {7, 7}}, CellFrameLabelMargins -> 
                    6, FontSize -> 24], 
                    Cell[
                    StyleData["Item", "Condensed"], 
                    CellMargins -> {{58, Inherited}, {2, 2}}, FontSize -> 10], 
                    Cell[
                    StyleData["Item", "Printout"], 
                    CellMargins -> {{50, 0}, {2, 2}}], 
                    Cell[
                    StyleData["Item", "SlideShow"], FontSize -> 24]}, 
                    Closed]], 
                  Cell[
                   CellGroupData[{
                    Cell[
                    StyleData["ItemParagraph"], ShowCellBracket -> Automatic, 
                    CellMargins -> {{75, 10}, {4, 1}}, ReturnCreatesNewCell -> 
                    True, CellGroupingRules -> {
                    "GroupTogetherNestedGrouping", 15000}, 
                    DefaultNewCellStyle -> "Item", MenuSortingValue -> 2020, 
                    FontSize -> 12], 
                    Cell[
                    StyleData["ItemParagraph", "Presentation"], 
                    CellMargins -> {{100, 10}, {7, 2}}, FontSize -> 24], 
                    Cell[
                    StyleData["ItemParagraph", "Condensed"], 
                    CellMargins -> {{58, Inherited}, {2, 1}}, FontSize -> 10], 
                    Cell[
                    StyleData["ItemParagraph", "Printout"], 
                    CellMargins -> {{50, 0}, {1, 0}}, FontSize -> 12], 
                    Cell[
                    StyleData["ItemParagraph", "SlideShow"], FontSize -> 24]},
                     Closed]], 
                  Cell[
                   CellGroupData[{
                    Cell[
                    StyleData["Subitem"], CellDingbat -> 
                    Cell["\[FilledSmallCircle]", FontWeight -> "Bold"], 
                    ShowCellBracket -> Automatic, 
                    CellMargins -> {{90, 12}, {4, 4}}, ReturnCreatesNewCell -> 
                    True, CellGroupingRules -> {
                    "GroupTogetherNestedGrouping", 15100}, 
                    CellFrameLabelMargins -> 4, DefaultNewCellStyle -> "Item",
                     CounterIncrements -> "Subitem", 
                    CounterAssignments -> {{"Subsubitem", 0}}, 
                    MenuSortingValue -> 2040, FontSize -> 12], 
                    Cell[
                    StyleData["Subitem", "Presentation"], 
                    CellMargins -> {{125, 12}, {7, 7}}, CellFrameLabelMargins -> 
                    6, FontSize -> 24], 
                    Cell[
                    StyleData["Subitem", "Condensed"], 
                    CellMargins -> {{80, 2}, {2, 2}}, FontSize -> 10], 
                    Cell[
                    StyleData["Subitem", "Printout"], 
                    CellMargins -> {{70, 2}, {1, 1}}], 
                    Cell[
                    StyleData["SubItem", "SlideShow"], FontSize -> 24]}, 
                    Closed]], 
                  Cell[
                   CellGroupData[{
                    Cell[
                    StyleData["SubitemParagraph"], ShowCellBracket -> 
                    Automatic, CellMargins -> {{90, 12}, {4, 1}}, 
                    ReturnCreatesNewCell -> True, 
                    CellGroupingRules -> {
                    "GroupTogetherNestedGrouping", 15100}, 
                    CellFrameLabelMargins -> 4, DefaultNewCellStyle -> 
                    "Subitem", MenuSortingValue -> 2060, FontSize -> 12], 
                    Cell[
                    StyleData["SubitemParagraph", "Presentation"], 
                    CellMargins -> {{125, 12}, {7, 2}}, FontSize -> 24], 
                    Cell[
                    StyleData["SubitemParagraph", "Condensed"], 
                    CellMargins -> {{80, 2}, {2, 1}}, FontSize -> 10], 
                    Cell[
                    StyleData["SubitemParagraph", "Printout"], 
                    CellMargins -> {{70, 2}, {1, 0}}], 
                    Cell[
                    StyleData["SubitemParagraph", "SlideShow"], FontSize -> 
                    24]}, Closed]]}, Closed]], 
               Cell[
                CellGroupData[{
                  Cell["Numbered", "Subsubsubsection"], 
                  Cell[
                   CellGroupData[{
                    Cell[
                    StyleData["ItemNumbered"], CellDingbat -> Cell[
                    TextData[{
                    CounterBox["ItemNumbered"], "."}], FontWeight -> "Bold"], 
                    ShowCellBracket -> Automatic, 
                    CellMargins -> {{60, 10}, {4, 4}}, ReturnCreatesNewCell -> 
                    True, 
                    CellGroupingRules -> {
                    "GroupTogetherNestedGrouping", 15000}, 
                    CellFrameLabelMargins -> 4, CounterIncrements -> 
                    "ItemNumbered", 
                    CounterAssignments -> {{"SubitemNumbered", 0}, {
                    "SubsubitemNumbered", 0}}, MenuSortingValue -> 2200, 
                    FontSize -> 12], 
                    Cell[
                    StyleData["ItemNumbered", "Presentation"], 
                    CellMargins -> {{100, 10}, {7, 7}}, CellFrameLabelMargins -> 
                    6, FontSize -> 24], 
                    Cell[
                    StyleData["ItemNumbered", "Condensed"], 
                    CellMargins -> {{58, Inherited}, {2, 2}}, FontSize -> 10], 
                    Cell[
                    StyleData["ItemNumbered", "Printout"], 
                    CellMargins -> {{50, 0}, {2, 2}}, FontSize -> 12], 
                    Cell[
                    StyleData["ItemNumbered", "SlideShow"], FontSize -> 24]}, 
                    Closed]], 
                  Cell[
                   CellGroupData[{
                    Cell[
                    StyleData["SubitemNumbered"], CellDingbat -> Cell[
                    TextData[{
                    CounterBox["ItemNumbered"], ".", 
                    CounterBox["SubitemNumbered"], "."}], FontWeight -> 
                    "Bold"], ShowCellBracket -> Automatic, 
                    CellMargins -> {{90, 12}, {4, 4}}, ReturnCreatesNewCell -> 
                    True, CellGroupingRules -> {
                    "GroupTogetherNestedGrouping", 15100}, 
                    CellFrameLabelMargins -> 4, DefaultNewCellStyle -> "Item",
                     CounterIncrements -> "SubitemNumbered", 
                    CounterAssignments -> {{"SubsubitemNumbered", 0}}, 
                    MenuSortingValue -> 2220, FontSize -> 12], 
                    Cell[
                    StyleData["SubitemNumbered", "Presentation"], 
                    CellMargins -> {{125, 12}, {7, 7}}, CellFrameLabelMargins -> 
                    6, FontSize -> 24], 
                    Cell[
                    StyleData["SubitemNumbered", "Condensed"], 
                    CellMargins -> {{80, 2}, {2, 2}}, FontSize -> 10], 
                    Cell[
                    StyleData["SubitemNumbered", "Printout"], 
                    CellMargins -> {{70, 2}, {1, 1}}, FontSize -> 12], 
                    Cell[
                    StyleData["SubitemNumbered", "SlideShow"], FontSize -> 
                    24]}, Closed]], 
                  Cell["Null", "Input"]}, Closed]]}, Closed]]}, Closed]]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell["Styles for Input and Output", "Section"], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Input"], CellFrame -> {{2, 2}, {0, 2}}, 
             CellMargins -> {{50, 10}, {0, 3}}, Evaluatable -> True, 
             CellGroupingRules -> "InputGrouping", CellHorizontalScrolling -> 
             True, PageBreakWithin -> True, GroupPageBreakWithin -> False, 
             CellLabelMargins -> {{25, Inherited}, {Inherited, Inherited}}, 
             CellFrameColor -> RGBColor[1, 0.93, 0.8], DefaultFormatType -> 
             DefaultInputFormatType, AutoItalicWords -> {}, FormatType -> 
             StandardForm, ShowStringCharacters -> True, NumberMarks -> True, 
             CounterIncrements -> "Input", MenuSortingValue -> 2300, FontSize -> 
             12, FontWeight -> "Bold", Background -> 
             RGBColor[0.98, 0.98, 0.9]], 
            Cell[
             StyleData["Input", "Printout"]], 
            Cell[
             StyleData["Input", "SlideShow"], FontSize -> 22]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Output"], CellFrame -> {{2, 2}, {2, 0}}, 
             CellMargins -> {{50, 10}, {4, 0}}, CellEditDuplicate -> True, 
             CellGroupingRules -> "OutputGrouping", CellHorizontalScrolling -> 
             True, PageBreakWithin -> False, GroupPageBreakWithin -> False, 
             GeneratedCell -> True, CellAutoOverwrite -> True, 
             CellLabelPositioning -> Left, 
             CellLabelMargins -> {{25, Inherited}, {Inherited, Inherited}}, 
             CellFrameColor -> RGBColor[1, 0.93, 0.8], DefaultFormatType -> 
             DefaultOutputFormatType, AutoItalicWords -> {}, FormatType -> 
             StandardForm, CounterIncrements -> "Output", MenuSortingValue -> 
             2320, FontSize -> 11], 
            Cell[
             StyleData["Output", "Printout"]], 
            Cell[
             StyleData["Output", "SlideShow"], FontSize -> 20]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Message"], CellDingbat -> "\[LongDash]", 
             CellMargins -> {{60, Inherited}, {Inherited, Inherited}}, 
             CellGroupingRules -> "OutputGrouping", PageBreakWithin -> False, 
             GroupPageBreakWithin -> False, GeneratedCell -> True, 
             CellAutoOverwrite -> True, ShowCellLabel -> False, 
             CellLabelMargins -> {{25, Inherited}, {Inherited, Inherited}}, 
             DefaultFormatType -> DefaultOutputFormatType, 
             AutoItalicWords -> {}, FormatType -> InputForm, 
             CounterIncrements -> "Message", StyleMenuListing -> None, 
             FontSize -> 10, FontSlant -> "Italic", FontColor -> 
             RGBColor[1, 0, 0]], 
            Cell[
             StyleData["Message", "Printout"], 
             CellMargins -> {{60, 5}, {3, 3}}, FontSize -> 10], 
            Cell[
             StyleData["Message", "SlideShow"], FontSize -> 16]}, Closed]]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell["Styles for Formulas and Figures", "Section"], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["NumberedEquation"], ShowCellBracket -> Automatic, 
             CellMargins -> {{40, 30}, {5, 5}}, CellFrameLabels -> {{None, 
                Cell[
                 TextData[{"(", 
                   CounterBox["NumberedEquation"], ")"}]]}, {None, None}}, 
             DefaultFormatType -> DefaultInlineCellFormatType, TextAlignment -> 
             Center, TextJustification -> 0, CounterIncrements -> 
             "NumberedEquation", MenuSortingValue -> 2400, FontSize -> 12, 
             FontWeight -> "Bold"], 
            Cell[
             StyleData["NumberedEquation", "Printout"]], 
            Cell[
             StyleData["NumberedEquation", "SlideShow"], FontSize -> 24]}, 
           Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["NumberedFigure"], ShowCellBracket -> Automatic, 
             CellMargins -> {{40, 30}, {5, 6}}, CellHorizontalScrolling -> 
             True, CellFrameLabels -> {{None, None}, {
                Cell[
                 TextData[{
                   CounterBox["NumberedFigure"], ".", " \[AAcute]bra "}], 
                 FontWeight -> "Bold"], None}}, TextAlignment -> Center, 
             TextJustification -> 0, CounterIncrements -> "NumberedFigure", 
             MenuSortingValue -> 2420, FontSize -> 12], 
            Cell[
             StyleData["NumberedFigure", "Printout"]], 
            Cell[
             StyleData["NumberedFigure", "SlideShow"], FontSize -> 24]}, 
           Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["1ColumnBox"], CellFrame -> True, 
             CellMargins -> {{5, 5}, {0, 8}}, CellHorizontalScrolling -> True,
              LineIndent -> 0, Background -> RGBColor[1, 0.900008, 0.700008], 
             FrameBoxOptions -> {
              FrameMargins -> {{31.200000000000003`, 31.200000000000003`}, {
                15.600000000000001`, 15.600000000000001`}}}, 
             GridBoxOptions -> {GridBoxSpacings -> {"Columns" -> {
                   Offset[0.27999999999999997`], {
                    Offset[0.7]}, 
                   Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {
                   Offset[0.2], {
                    Offset[0.4]}, 
                   Offset[0.2]}, "RowsIndexed" -> {}}}], 
            Cell[
             StyleData["1ColumnBox", "Printout"]]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["2ColumnBox"], CellFrame -> True, ShowCellBracket -> 
             True, CellMargins -> {{5, 5}, {2, 8}}, CellHorizontalScrolling -> 
             True, LineIndent -> 0, Background -> 
             RGBColor[1, 0.900008, 0.700008], 
             FrameBoxOptions -> {
              FrameMargins -> {{31.200000000000003`, 31.200000000000003`}, {
                15.600000000000001`, 15.600000000000001`}}}, 
             GridBoxOptions -> {
              GridBoxAlignment -> {
                "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, 
               GridBoxDividers -> {
                "Columns" -> {True, {False}, True}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {True, {False}, True}, "RowsIndexed" -> {}}, 
               GridBoxItemSize -> {"Columns" -> {
                   Scaled[0.3], {
                    Scaled[0.45]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
                 "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> {
                   Offset[0.27999999999999997`], {
                    Offset[0.35]}, 
                   Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {
                   Offset[0.2], {
                    Offset[0.4]}, 
                   Offset[0.2]}, "RowsIndexed" -> {}}}], 
            Cell[
             StyleData["2ColumnBox", "Printout"]]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["3ColumnBox"], CellFrame -> True, ShowCellBracket -> 
             True, CellMargins -> {{5, 5}, {2, 8}}, CellHorizontalScrolling -> 
             True, LineIndent -> 0, Background -> 
             RGBColor[1, 0.900008, 0.700008], 
             FrameBoxOptions -> {
              FrameMargins -> {{31.200000000000003`, 31.200000000000003`}, {
                15.600000000000001`, 15.600000000000001`}}}, 
             GridBoxOptions -> {
              GridBoxAlignment -> {
                "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, 
               GridBoxDividers -> {
                "Columns" -> {True, {False}, True}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {True, {False}, True}, "RowsIndexed" -> {}}, 
               GridBoxItemSize -> {"Columns" -> {{
                    Scaled[0.25]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
                 "RowsIndexed" -> {}}}], 
            Cell[
             StyleData["3ColumnBox", "Printout"]]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["2ColumnTable"], CellMargins -> {{5, 5}, {0, 8}}, 
             CellHorizontalScrolling -> True, 
             GridBoxOptions -> {
              GridBoxAlignment -> {
                "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, 
               GridBoxItemSize -> {"Columns" -> {
                   Scaled[0.3], {
                    Scaled[0.5]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
                 "RowsIndexed" -> {}}}], 
            Cell[
             StyleData["2ColumnTable", "Printout"], 
             CellMargins -> {{5, 5}, {0, 8}}, FontSize -> 10]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["3ColumnTable"], CellMargins -> {{5, 5}, {0, 8}}, 
             CellHorizontalScrolling -> True, 
             GridBoxOptions -> {
              GridBoxAlignment -> {
                "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, 
               GridBoxItemSize -> {"Columns" -> {{
                    Scaled[0.3]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
                 "RowsIndexed" -> {}}}], 
            Cell[
             StyleData["3ColumnTable", "Printout"], 
             CellMargins -> {{5, 5}, {0, 8}}, FontSize -> 10]}, Open]]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell["Styles for Formulas and Programming", "Section"], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["InlineFormula"], CellMargins -> {{10, 4}, {0, 8}}, 
             StripStyleOnPaste -> True, 
             HyphenationOptions -> {
              "HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> 
             "Formula", ScriptLevel -> 1, SingleLetterItalics -> True, 
             MenuSortingValue -> 2500], 
            Cell[
             StyleData["InlineFormula", "Presentation"], 
             CellMargins -> {{10, 4}, {0, 12}}, LineSpacing -> {1, 5}, 
             FontSize -> 24], 
            Cell[
             StyleData["InlineFormula", "Condensed"], 
             CellMargins -> {{8, 10}, {6, 6}}, LineSpacing -> {1, 1}, 
             FontSize -> 11], 
            Cell[
             StyleData["InlineFormula", "Printout"], 
             CellMargins -> {{2, 0}, {6, 6}}], 
            Cell[
             StyleData["InlineFormula", "SlideShow"], FontSize -> 24]}, 
           Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["DisplayFormula"], 
             CellMargins -> {{60, Inherited}, {Inherited, Inherited}}, 
             StripStyleOnPaste -> True, DefaultFormatType -> 
             DefaultInputFormatType, 
             HyphenationOptions -> {
              "HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> 
             "Formula", ScriptLevel -> 0, SingleLetterItalics -> True, 
             MenuSortingValue -> 2520, 
             UnderoverscriptBoxOptions -> {LimitsPositioning -> True}], 
            Cell[
             StyleData["DisplayFormula", "Presentation"], 
             CellMargins -> {{60, Inherited}, {Inherited 1.5, Inherited 1.5}},
              LineSpacing -> {1, 5}, FontSize -> 24], 
            Cell[
             StyleData["DisplayFormula", "Condensed"], LineSpacing -> {1, 1}, 
             FontSize -> 11], 
            Cell[
             StyleData["DisplayFormula", "Printout"]], 
            Cell[
             StyleData["DisplayFormula", "SlideShow"], FontSize -> 24]}, 
           Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["DisplayFormulaNumbered"], 
             CellMargins -> {{60, Inherited}, {Inherited, Inherited}}, 
             StripStyleOnPaste -> True, CellFrameLabels -> {{None, 
                Cell[
                 TextData[{"(", 
                   CounterBox["DisplayFormulaNumbered"], ")"}]]}, {
               None, None}}, DefaultFormatType -> DefaultInputFormatType, 
             HyphenationOptions -> {
              "HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> 
             "Formula", ScriptLevel -> 0, SingleLetterItalics -> True, 
             CounterIncrements -> "DisplayFormulaNumbered", MenuSortingValue -> 
             2540, UnderoverscriptBoxOptions -> {LimitsPositioning -> True}], 
            Cell[
             StyleData["DisplayFormulaNumbered", "Presentation"], 
             CellMargins -> {{60, Inherited}, {Inherited 1.5, Inherited 1.5}},
              LineSpacing -> {1, 5}, FontSize -> 24], 
            Cell[
             StyleData["DisplayFormulaNumbered", "Condensed"], 
             LineSpacing -> {1, 1}, FontSize -> 11], 
            Cell[
             StyleData["DisplayFormulaNumbered", "Printout"]], 
            Cell[
             StyleData["DisplayFormulaNumbered", "SlideShow"], FontSize -> 
             24]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Program"], CellFrame -> {{0, 0}, {0.5, 0.5}}, 
             CellMargins -> {{60, 4}, {0, 8}}, StripStyleOnPaste -> True, 
             Hyphenation -> False, LanguageCategory -> "Formula", ScriptLevel -> 
             1, MenuSortingValue -> 2560, FontFamily -> "Courier"], 
            Cell[
             StyleData["Program", "Presentation"], 
             CellFrame -> {{0, 0}, {1, 1}}, CellMargins -> {{60, 4}, {0, 12}},
              LineSpacing -> {1, 5}, FontSize -> 22], 
            Cell[
             StyleData["Program", "Condensed"], 
             CellMargins -> {{8, 10}, {6, 6}}, LineSpacing -> {1, 1}, 
             FontSize -> 11], 
            Cell[
             StyleData["Program", "Printout"], 
             CellMargins -> {{2, 0}, {6, 6}}], 
            Cell[
             StyleData["Program", "SlideShow"], FontSize -> 22]}, Closed]]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell["Special book styles", "Section"], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Author"], ShowCellBracket -> Automatic, 
             CellMargins -> {{0, 10}, {5, 5}}, 
             CellGroupingRules -> {"TitleGrouping", 20}, PageBreakBelow -> 
             False, TextAlignment -> Center, MenuSortingValue -> 2600, 
             FontFamily -> "Helvetica", FontSize -> 18, FontWeight -> "Bold", 
             FontSlant -> "Italic", FontColor -> RGBColor[0.3, 0.3, 0.7]], 
            Cell[
             StyleData["Author", "Printout"], 
             CellMargins -> {{0, 10}, {0, 2}}], 
            Cell[
             StyleData["Author", "SlideShow"], FontSize -> 28]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Address"], ShowCellBracket -> Automatic, 
             CellMargins -> {{0, 10}, {2, 2}}, 
             CellGroupingRules -> {"TitleGrouping", 30}, PageBreakBelow -> 
             False, TextAlignment -> Center, LineSpacing -> {1, 1}, 
             CounterAssignments -> {{"Section", 0}, {"Equation", 0}, {
               "Figure", 0}}, MenuSortingValue -> 2620, FontFamily -> 
             "Helvetica", FontSize -> 14, FontSlant -> "Italic", FontColor -> 
             RGBColor[0.3, 0.3, 0.7]], 
            Cell[
             StyleData["Address", "Printout"], 
             CellMargins -> {{0, 10}, {2, 2}}], 
            Cell[
             StyleData["Address", "SlideShow"], FontSize -> 22]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Abstract"], 
             CellMargins -> {{75, 75}, {Inherited, 15}}, TextJustification -> 
             1, LineSpacing -> {1.3, 0}, MenuSortingValue -> 2640], 
            Cell[
             StyleData["Abstract", "Printout"], 
             CellMargins -> {{75, 75}, {Inherited, 10}}, FontSize -> 10], 
            Cell[
             StyleData["Abstract", "SlideShow"], FontSize -> 22]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Reference"], CellDingbat -> Cell[
               TextData[{"[", 
                 Cell[
                  TextData[{
                    CounterBox["Reference"]}], TextAlignment -> Right], 
                 "] "}], TextAlignment -> Right], ShowCellBracket -> 
             Automatic, CellMargins -> {{100, 20}, {2, 2}}, 
             CellHorizontalScrolling -> True, TextJustification -> 0.5, 
             LineSpacing -> {1.2, 1}, CounterIncrements -> "Reference", 
             MenuSortingValue -> 2660, FontSize -> 12], 
            Cell[
             StyleData["Reference", "Printout"]], 
            Cell[
             StyleData["Reference", "SlideShow"], FontSize -> 22]}, Closed]]},
         Open]], 
      Cell[
       CellGroupData[{
         Cell["Styles for Printed Runningheads and Footers", "Section"], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Header"], CellMargins -> {{0, 0}, {0, 0}}, 
             LineSpacing -> {1, 8}, MenuSortingValue -> None, FontFamily -> 
             "Verdana", FontSize -> 7, FontSlant -> "Italic"], 
            Cell[
             StyleData["Header", "Printout"], Magnification -> 1.]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["HeaderSection"], StyleMenuListing -> None], 
            Cell[
             StyleData["HeaderSection", "Printout"], Magnification -> 1.]}, 
           Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["HeaderSubsection"], StyleMenuListing -> None], 
            Cell[
             StyleData["HeaderSubsection", "Printout"], Magnification -> 1.]},
            Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["HeaderTitle"], StyleMenuListing -> None], 
            Cell[
             StyleData["HeaderTitle", "Printout"], Magnification -> 1.]}, 
           Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Footer"], CellMargins -> {{0, 0}, {0, 0}}, 
             MenuSortingValue -> None, FontFamily -> "Verdana", FontSize -> 
             6], 
            Cell[
             StyleData["Footer", "Printout"], Magnification -> 1.]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["FooterSection"], StyleMenuListing -> None], 
            Cell[
             StyleData["FooterSection", "Printout"], Magnification -> 1.]}, 
           Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["FooterSubsection"], StyleMenuListing -> None], 
            Cell[
             StyleData["FooterSubsection", "Printout"], Magnification -> 1.]},
            Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["FooterTitle"], StyleMenuListing -> None], 
            Cell[
             StyleData["FooterTitle", "Printout"], Magnification -> 1.]}, 
           Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["PageNumber"], LineSpacing -> {1, 8}, MenuSortingValue -> 
             None, FontFamily -> "Verdana", FontSize -> 7, FontWeight -> 
             "Bold"], 
            Cell[
             StyleData["PageNumber", "Printout"], Magnification -> 1.]}, 
           Closed]]}, Closed]]}, Open]]}, Visible -> False, FrontEndVersion -> 
  "9.0 for Microsoft Windows (64-bit) (January 25, 2013)", StyleDefinitions -> 
  "PrivateStylesheetFormatting.nb"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "SlideShowHeader"->{
  Cell[5489, 151, 64, 1, 1, "SlideShowNavigationBar",
   CellTags->"SlideShowHeader"],
  Cell[24257, 527, 64, 1, 1, "SlideShowNavigationBar",
   CellTags->"SlideShowHeader"],
  Cell[30888, 713, 64, 1, 1, "SlideShowNavigationBar",
   CellTags->"SlideShowHeader"],
  Cell[51334, 1141, 64, 1, 1, "SlideShowNavigationBar",
   CellTags->"SlideShowHeader"],
  Cell[70546, 1533, 106, 2, 1, "SlideShowNavigationBar",
   CellTags->"SlideShowHeader"],
  Cell[103504, 2303, 64, 1, 1, "SlideShowNavigationBar",
   CellTags->"SlideShowHeader"],
  Cell[107282, 2426, 64, 1, 1, "SlideShowNavigationBar",
   CellTags->"SlideShowHeader"],
  Cell[113847, 2585, 64, 1, 1, "SlideShowNavigationBar",
   CellTags->"SlideShowHeader"],
  Cell[117878, 2703, 64, 1, 1, "SlideShowNavigationBar",
   CellTags->"SlideShowHeader"],
  Cell[146540, 3304, 64, 1, 1, "SlideShowNavigationBar",
   CellTags->"SlideShowHeader"],
  Cell[153102, 3454, 64, 1, 1, "SlideShowNavigationBar",
   CellTags->"SlideShowHeader"],
  Cell[157123, 3565, 64, 1, 1, "SlideShowNavigationBar",
   CellTags->"SlideShowHeader"],
  Cell[179067, 4016, 64, 1, 1, "SlideShowNavigationBar",
   CellTags->"SlideShowHeader"],
  Cell[186567, 4185, 64, 1, 1, "SlideShowNavigationBar",
   CellTags->"SlideShowHeader"],
  Cell[196628, 4415, 64, 1, 1, "SlideShowNavigationBar",
   CellTags->"SlideShowHeader"],
  Cell[215318, 4824, 64, 1, 1, "SlideShowNavigationBar",
   CellTags->"SlideShowHeader"],
  Cell[243061, 5401, 64, 1, 1, "SlideShowNavigationBar",
   CellTags->"SlideShowHeader"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"SlideShowHeader", 354449, 7664}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 349, 10, 198, "MainTitle",
 Evaluatable->False],
Cell[CellGroupData[{
Cell[953, 36, 161, 2, 81, "MainSection"],
Cell[CellGroupData[{
Cell[1139, 42, 341, 6, 82, "Section"],
Cell[CellGroupData[{
Cell[1505, 52, 1730, 52, 195, "Input"],
Cell[3238, 106, 2181, 37, 345, "Output"]
}, {2}]]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[5489, 151, 64, 1, 1, "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[5578, 156, 238, 3, 123, "Section"],
Cell[CellGroupData[{
Cell[5841, 163, 1381, 40, 195, "Input"],
Cell[7225, 205, 16172, 294, 529, "Output"]
}, {2}]]
}, Open  ]],
Cell[23421, 503, 799, 19, 123, "Section"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24257, 527, 64, 1, 1, "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[24346, 532, 243, 5, 121, "MainSection"],
Cell[24592, 539, 366, 11, 106, "Text"],
Cell[24961, 552, 715, 22, 106, "Text"],
Cell[25679, 576, 382, 7, 106, "Text"],
Cell[26064, 585, 668, 19, 106, "Text"],
Cell[26735, 606, 412, 7, 106, "Text"],
Cell[27150, 615, 609, 16, 108, "Text"],
Cell[CellGroupData[{
Cell[27784, 635, 172, 2, 123, "Section"],
Cell[CellGroupData[{
Cell[27981, 641, 594, 17, 195, "Input"],
Cell[28578, 660, 2240, 45, 556, "Output"]
}, {2}]]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[30888, 713, 64, 1, 1, "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[30977, 718, 377, 15, 121, "MainSection",
 Evaluatable->False],
Cell[CellGroupData[{
Cell[31379, 737, 1600, 44, 195, "Input"],
Cell[32982, 783, 18294, 351, 415, "Output"]
}, {2}]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[51334, 1141, 64, 1, 1, "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[51423, 1146, 200, 4, 121, "MainSection"],
Cell[51626, 1152, 329, 8, 106, "Text"],
Cell[CellGroupData[{
Cell[51980, 1164, 648, 17, 195, "Input"],
Cell[52631, 1183, 17857, 343, 762, 12261, 250, "CachedBoxData", "BoxData", \
"Output"]
}, {2}]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[70546, 1533, 106, 2, 1, "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[70677, 1539, 261, 5, 121, "MainSection",
 Evaluatable->False],
Cell[70941, 1546, 595, 20, 108, "Text"],
Cell[CellGroupData[{
Cell[71561, 1570, 567, 13, 274, "Input"],
Cell[72131, 1585, 1351, 30, 81, "Output"]
}, {2}]],
Cell[CellGroupData[{
Cell[73516, 1620, 606, 13, 274, "Input"],
Cell[74125, 1635, 15860, 302, 123, "Output"]
}, {2}]],
Cell[89997, 1940, 256, 6, 148, "Text-Framed"],
Cell[CellGroupData[{
Cell[90278, 1950, 869, 23, 195, "Input"],
Cell[91150, 1975, 6070, 119, 114, "Output"]
}, {2}]],
Cell[CellGroupData[{
Cell[97254, 2099, 149, 2, 123, "Section"],
Cell[CellGroupData[{
Cell[97428, 2105, 1136, 30, 195, "Input"],
Cell[98567, 2137, 4867, 158, 409, "Output"]
}, {2}]]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[103504, 2303, 64, 1, 1, "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[103593, 2308, 208, 3, 82, "Section"],
Cell[103804, 2313, 2552, 79, 545, "Text"],
Cell[106359, 2394, 874, 26, 176, "Text"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[107282, 2426, 64, 1, 1, "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[107371, 2431, 247, 5, 82, "Section"],
Cell[CellGroupData[{
Cell[107643, 2440, 3363, 81, 195, "Input"],
Cell[111009, 2523, 2780, 55, 646, "Output"]
}, {2}]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[113847, 2585, 64, 1, 1, "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[113936, 2590, 310, 7, 81, "MainSection",
 Evaluatable->False],
Cell[114249, 2599, 546, 16, 71, "Text"],
Cell[114798, 2617, 700, 19, 71, "Text"],
Cell[115501, 2638, 808, 20, 120, "Text"],
Cell[116312, 2660, 532, 8, 71, "Text"],
Cell[116847, 2670, 982, 27, 121, "Text"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[117878, 2703, 64, 1, 1, "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[117967, 2708, 311, 7, 109, "Section"],
Cell[CellGroupData[{
Cell[118303, 2719, 2004, 48, 606, "Input"],
Cell[120310, 2769, 25942, 522, 297, "Output"]
}, {2}]],
Cell[146264, 3294, 227, 4, 98, "Text-Framed"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[146540, 3304, 64, 1, 1, "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[146629, 3309, 245, 5, 82, "Section"],
Cell[CellGroupData[{
Cell[146899, 3318, 3193, 71, 195, "Input"],
Cell[150095, 3391, 2949, 56, 638, "Output"]
}, {2}]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[153102, 3454, 64, 1, 1, "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[153191, 3459, 394, 9, 136, "MainSection",
 Evaluatable->False],
Cell[153588, 3470, 638, 18, 71, "Text"],
Cell[154229, 3490, 618, 16, 71, "Text"],
Cell[154850, 3508, 818, 19, 120, "Text"],
Cell[155671, 3529, 590, 9, 71, "Text"],
Cell[156264, 3540, 810, 19, 71, "Text"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[157123, 3565, 64, 1, 1, "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[157212, 3570, 408, 9, 84, "Section"],
Cell[CellGroupData[{
Cell[157645, 3583, 2177, 49, 571, "Input"],
Cell[159825, 3634, 18918, 368, 357, "Output"]
}, {2}]],
Cell[178755, 4005, 263, 5, 98, "Text-Framed"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[179067, 4016, 64, 1, 1, "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[179156, 4021, 243, 5, 82, "Section"],
Cell[CellGroupData[{
Cell[179424, 4030, 3836, 85, 195, "Input"],
Cell[183263, 4117, 3246, 61, 640, "Output"]
}, {2}]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[186567, 4185, 64, 1, 1, "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[186656, 4190, 271, 7, 81, "MainSection"],
Cell[CellGroupData[{
Cell[186952, 4201, 201, 4, 82, "Section"],
Cell[CellGroupData[{
Cell[187178, 4209, 1506, 39, 195, "Input"],
Cell[188687, 4250, 7871, 157, 102, "Output"]
}, {2}]]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[196628, 4415, 64, 1, 1, "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[196717, 4420, 460, 14, 82, "Section"],
Cell[197180, 4436, 1204, 43, 195, "Text-Framed"],
Cell[CellGroupData[{
Cell[198409, 4483, 882, 24, 195, "Input"],
Cell[199294, 4509, 15629, 297, 515, "Output"]
}, {2}]],
Cell[214935, 4809, 334, 9, 98, "Text-Framed"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[215318, 4824, 64, 1, 1, "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[215407, 4829, 490, 14, 84, "Section"],
Cell[215900, 4845, 483, 17, 98, "Text-Framed"],
Cell[CellGroupData[{
Cell[216408, 4866, 935, 23, 195, "Input"],
Cell[217346, 4891, 25062, 486, 662, "Output"]
}, {2}]],
Cell[242420, 5380, 592, 15, 147, "Text-Framed"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[243061, 5401, 64, 1, 1, "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[243150, 5406, 556, 15, 82, "Section"],
Cell[243709, 5423, 940, 33, 211, "Text-Framed"],
Cell[CellGroupData[{
Cell[244674, 5460, 1059, 26, 195, "Input"],
Cell[245736, 5488, 22547, 420, 429, 13376, 268, "CachedBoxData", "BoxData", \
"Output"]
}, {2}]],
Cell[268295, 5911, 796, 23, 147, "Text-Framed"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
