(* 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[    590031,      11974]
NotebookOptionsPosition[    500082,      10079]
NotebookOutlinePosition[    585233,      11803]
CellTagsIndexPosition[    585190,      11800]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell["\<\
For Fun:
\
\>", "Th-Env",
 CellMargins->{{7.894736313753835, 30.}, {2., 7.}},
 CellChangeTimes->{{3.5886703380791073`*^9, 3.58867036782876*^9}}],

Cell[CellGroupData[{

Cell["Transformations of planar forms", "MainTitle",
 CellChangeTimes->{{3.588670309670458*^9, 3.5886703343039007`*^9}, {
  3.588670374506572*^9, 3.5886703754893737`*^9}}],

Cell[CellGroupData[{

Cell["A pig", "MainSection",
 CellChangeTimes->{{3.5886698840797143`*^9, 3.5886699007883434`*^9}}],

Cell[CellGroupData[{

Cell["Original pig", "Section",
 CellChangeTimes->{{3.5886699076211557`*^9, 3.5886699200563774`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"pig", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         FractionBox["1", "4"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["13", "6"], "-", 
           RowBox[{"119", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["1", "3"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"1", "-", 
           RowBox[{"118", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["2", "5"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["4", "3"], "-", 
           RowBox[{"116", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["1", "3"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["9", "7"], "-", 
           RowBox[{"115", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["1", "6"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["17", "6"], "-", 
           RowBox[{"114", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["1", "4"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["27", "14"], "-", 
           RowBox[{"113", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["1", "4"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["23", "8"], "-", 
           RowBox[{"112", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["2", "5"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["17", "7"], "-", 
           RowBox[{"111", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["7", "2"], "-", 
           RowBox[{"109", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["1", "4"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"2", "-", 
           RowBox[{"108", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["3", "5"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"3", "-", 
           RowBox[{"106", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["1", "3"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["13", "6"], "-", 
           RowBox[{"105", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["1", "14"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["25", "8"], "-", 
           RowBox[{"103", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["2", "3"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["13", "3"], "-", 
           RowBox[{"102", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["2", "3"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["17", "5"], "-", 
           RowBox[{"101", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["4", "5"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["14", "3"], "-", 
           RowBox[{"99", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["1", "6"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["32", "7"], "-", 
           RowBox[{"94", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["3", "5"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["4", "3"], "-", 
           RowBox[{"93", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["23", "6"], "-", 
           RowBox[{"91", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["12", "13"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["5", "6"], "-", 
           RowBox[{"90", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["3", "5"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["33", "7"], "-", 
           RowBox[{"89", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["1", "3"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"4", "-", 
           RowBox[{"88", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["1", "3"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["11", "4"], "-", 
           RowBox[{"86", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["4", "5"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["1", "4"], "-", 
           RowBox[{"85", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["2", "3"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["7", "3"], "-", 
           RowBox[{"83", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["3", "5"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["11", "5"], "-", 
           RowBox[{"81", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["9", "10"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["13", "7"], "-", 
           RowBox[{"80", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["4", "5"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["14", "3"], "-", 
           RowBox[{"79", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["7", "5"], "-", 
           RowBox[{"78", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["1", "4"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["18", "7"], "-", 
           RowBox[{"77", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["5", "7"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["25", "7"], "-", 
           RowBox[{"76", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["8", "7"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["1", "5"], "-", 
           RowBox[{"75", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["11", "4"], "-", 
           RowBox[{"73", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["11", "10"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["1", "6"], "-", 
           RowBox[{"72", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["1", "9"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["52", "17"], "-", 
           RowBox[{"71", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["3", "5"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["4", "3"], "-", 
           RowBox[{"70", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["5", "6"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["14", "13"], "-", 
           RowBox[{"69", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["5", "6"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["16", "7"], "-", 
           RowBox[{"68", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["20", "7"], "-", 
           RowBox[{"67", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["7", "8"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["5", "4"], "-", 
           RowBox[{"66", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["2", "5"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["1", "3"], "-", 
           RowBox[{"65", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["3", "5"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["3", "4"], "-", 
           RowBox[{"63", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["3", "4"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["7", "4"], "-", 
           RowBox[{"62", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["9", "4"], "-", 
           RowBox[{"61", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["4", "3"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["11", "5"], "-", 
           RowBox[{"60", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["9", "4"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["12", "5"], "-", 
           RowBox[{"59", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["3", "4"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["23", "5"], "-", 
           RowBox[{"57", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["3", "2"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["23", "6"], "-", 
           RowBox[{"56", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["10", "7"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["65", "16"], "-", 
           RowBox[{"55", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["4", "7"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["1", "13"], "-", 
           RowBox[{"54", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["3", "2"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["32", "7"], "-", 
           RowBox[{"50", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["8", "7"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["9", "4"], "-", 
           RowBox[{"49", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["11", "7"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["23", "11"], "-", 
           RowBox[{"48", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{"2", " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["39", "10"], "-", 
           RowBox[{"45", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["5", "3"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["13", "3"], "-", 
           RowBox[{"44", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["7", "5"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"2", "-", 
           RowBox[{"42", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["10", "11"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["17", "8"], "-", 
           RowBox[{"41", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["5", "2"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["1", "2"], "-", 
           RowBox[{"40", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["6", "5"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["9", "5"], "-", 
           RowBox[{"39", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["7", "3"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["19", "5"], "-", 
           RowBox[{"38", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["6", "7"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["1", "3"], "-", 
           RowBox[{"37", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{"Sin", "[", 
         RowBox[{
          FractionBox["4", "3"], "-", 
          RowBox[{"36", " ", "t"}]}], "]"}], "+", 
        RowBox[{"Sin", "[", 
         RowBox[{
          FractionBox["12", "5"], "-", 
          RowBox[{"35", " ", "t"}]}], "]"}], "+", 
        RowBox[{
         FractionBox["13", "5"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["2", "3"], "-", 
           RowBox[{"34", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["19", "6"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["11", "4"], "-", 
           RowBox[{"33", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["61", "15"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["14", "5"], "-", 
           RowBox[{"32", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["11", "12"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["9", "4"], "-", 
           RowBox[{"31", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["37", "7"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["16", "5"], "-", 
           RowBox[{"30", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["54", "11"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["17", "5"], "-", 
           RowBox[{"29", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{"7", " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["17", "4"], "-", 
           RowBox[{"26", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["13", "7"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["1", "3"], "-", 
           RowBox[{"25", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["61", "12"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["1", "17"], "-", 
           RowBox[{"24", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["14", "5"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["47", "12"], "-", 
           RowBox[{"23", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["85", "12"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["13", "12"], "-", 
           RowBox[{"22", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["45", "7"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["5", "6"], "-", 
           RowBox[{"21", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["11", "4"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["17", "7"], "-", 
           RowBox[{"18", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["58", "7"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"2", "-", 
           RowBox[{"17", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["41", "2"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["2", "5"], "-", 
           RowBox[{"15", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["61", "4"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["3", "2"], "-", 
           RowBox[{"14", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["16", "3"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["13", "5"], "-", 
           RowBox[{"13", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["43", "7"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"3", "-", 
           RowBox[{"11", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["129", "5"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["12", "5"], "-", 
           RowBox[{"10", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["209", "4"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["5", "7"], "-", 
           RowBox[{"7", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["391", "7"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["23", "6"], "-", 
           RowBox[{"5", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["1189", "11"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["14", "3"], "-", 
           RowBox[{"3", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{"274", " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["3", "5"], "-", 
           RowBox[{"2", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["2329", "2"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["10", "3"], "-", "t"}], "]"}]}], "-", 
        RowBox[{
         FractionBox["78", "5"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"16", " ", "t"}], "]"}]}], "-", 
        RowBox[{
         FractionBox["3", "4"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"82", " ", "t"}], "]"}]}], "-", 
        RowBox[{
         FractionBox["2", "5"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"95", " ", "t"}], "]"}]}], "-", 
        RowBox[{
         FractionBox["1", "6"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"110", " ", "t"}], "]"}]}], "-", 
        RowBox[{
         FractionBox["283", "4"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["10", "7"], "+", 
           RowBox[{"4", " ", "t"}]}], "]"}]}], "-", 
        RowBox[{
         FractionBox["105", "4"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["3", "2"], "+", 
           RowBox[{"6", " ", "t"}]}], "]"}]}], "-", 
        RowBox[{
         FractionBox["155", "4"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["1", "5"], "+", 
           RowBox[{"8", " ", "t"}]}], "]"}]}], "-", 
        RowBox[{
         FractionBox["76", "5"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["3", "5"], "+", 
           RowBox[{"9", " ", "t"}]}], "]"}]}], "-", 
        RowBox[{
         FractionBox["40", "3"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["25", "24"], "+", 
           RowBox[{"12", " ", "t"}]}], "]"}]}], "-", 
        RowBox[{
         FractionBox["43", "4"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["6", "7"], "+", 
           RowBox[{"19", " ", "t"}]}], "]"}]}], "-", 
        RowBox[{
         FractionBox["22", "5"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["5", "4"], "+", 
           RowBox[{"20", " ", "t"}]}], "]"}]}], "-", 
        RowBox[{
         FractionBox["13", "3"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["4", "5"], "+", 
           RowBox[{"27", " ", "t"}]}], "]"}]}], "-", 
        RowBox[{
         FractionBox["19", "5"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["1", "7"], "+", 
           RowBox[{"28", " ", "t"}]}], "]"}]}], "-", 
        RowBox[{
         FractionBox["8", "3"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["1", "4"], "+", 
           RowBox[{"43", " ", "t"}]}], "]"}]}], "-", 
        RowBox[{
         FractionBox["13", "5"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["1", "2"], "+", 
           RowBox[{"46", " ", "t"}]}], "]"}]}], "-", 
        RowBox[{
         FractionBox["7", "8"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"1", "+", 
           RowBox[{"47", " ", "t"}]}], "]"}]}], "-", 
        RowBox[{
         FractionBox["2", "3"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["3", "5"], "+", 
           RowBox[{"51", " ", "t"}]}], "]"}]}], "-", 
        RowBox[{
         FractionBox["2", "5"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["4", "3"], "+", 
           RowBox[{"52", " ", "t"}]}], "]"}]}], "-", 
        RowBox[{
         FractionBox["7", "8"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["12", "13"], "+", 
           RowBox[{"53", " ", "t"}]}], "]"}]}], "-", 
        RowBox[{
         FractionBox["1", "15"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["3", "2"], "+", 
           RowBox[{"58", " ", "t"}]}], "]"}]}], "-", 
        RowBox[{"Sin", "[", 
         RowBox[{
          FractionBox["5", "4"], "+", 
          RowBox[{"64", " ", "t"}]}], "]"}], "-", 
        RowBox[{
         FractionBox["2", "3"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["10", "7"], "+", 
           RowBox[{"74", " ", "t"}]}], "]"}]}], "-", 
        RowBox[{
         FractionBox["3", "4"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["4", "5"], "+", 
           RowBox[{"84", " ", "t"}]}], "]"}]}], "-", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["1", "25"], "+", 
           RowBox[{"87", " ", "t"}]}], "]"}]}], "-", 
        RowBox[{
         FractionBox["3", "4"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["10", "11"], "+", 
           RowBox[{"92", " ", "t"}]}], "]"}]}], "-", 
        RowBox[{
         FractionBox["1", "3"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["6", "5"], "+", 
           RowBox[{"96", " ", "t"}]}], "]"}]}], "-", 
        RowBox[{
         FractionBox["2", "3"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["3", "4"], "+", 
           RowBox[{"97", " ", "t"}]}], "]"}]}], "-", 
        RowBox[{
         FractionBox["2", "5"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["4", "5"], "+", 
           RowBox[{"100", " ", "t"}]}], "]"}]}], "-", 
        RowBox[{
         FractionBox["1", "7"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["16", "15"], "+", 
           RowBox[{"107", " ", "t"}]}], "]"}]}], "-", 
        RowBox[{
         FractionBox["1", "4"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["1", "4"], "+", 
           RowBox[{"117", " ", "t"}]}], "]"}]}], "-", 
        RowBox[{
         FractionBox["1", "6"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["4", "3"], "+", 
           RowBox[{"120", " ", "t"}]}], "]"}]}]}], ",", "\[IndentingNewLine]",
        "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         FractionBox["1", "11"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["23", "12"], "-", 
           RowBox[{"119", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["1", "3"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["26", "9"], "-", 
           RowBox[{"118", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["2", "7"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["7", "3"], "-", 
           RowBox[{"117", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["2", "7"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["11", "12"], "-", 
           RowBox[{"116", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["1", "4"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["13", "3"], "-", 
           RowBox[{"115", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["1", "3"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["11", "3"], "-", 
           RowBox[{"114", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["2", "5"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["22", "5"], "-", 
           RowBox[{"113", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["1", "3"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["9", "2"], "-", 
           RowBox[{"112", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["1", "10"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["1", "7"], "-", 
           RowBox[{"110", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["1", "4"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["14", "3"], "-", 
           RowBox[{"109", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"2", "-", 
           RowBox[{"107", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["1", "4"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["10", "11"], "-", 
           RowBox[{"106", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["3", "7"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["1", "12"], "-", 
           RowBox[{"102", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["2", "5"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["1", "4"], "-", 
           RowBox[{"100", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["2", "3"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["3", "5"], "-", 
           RowBox[{"99", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["1", "4"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["13", "6"], "-", 
           RowBox[{"98", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["2", "5"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["7", "3"], "-", 
           RowBox[{"97", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["1", "3"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"1", "-", 
           RowBox[{"96", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["1", "3"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["1", "3"], "-", 
           RowBox[{"95", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["1", "3"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["37", "9"], "-", 
           RowBox[{"94", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["22", "5"], "-", 
           RowBox[{"93", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["2", "5"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["2", "5"], "-", 
           RowBox[{"91", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["1", "3"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["4", "3"], "-", 
           RowBox[{"90", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["2", "3"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"1", "-", 
           RowBox[{"89", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["7", "8"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["8", "7"], "-", 
           RowBox[{"88", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["1", "5"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["7", "3"], "-", 
           RowBox[{"87", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{"Sin", "[", 
         RowBox[{
          FractionBox["29", "10"], "-", 
          RowBox[{"86", " ", "t"}]}], "]"}], "+", 
        RowBox[{
         FractionBox["6", "5"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["7", "3"], "-", 
           RowBox[{"85", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["1", "4"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"4", "-", 
           RowBox[{"84", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["2", "5"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["29", "7"], "-", 
           RowBox[{"83", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["2", "5"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["11", "3"], "-", 
           RowBox[{"82", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["8", "7"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["19", "5"], "-", 
           RowBox[{"81", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["1", "4"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["23", "5"], "-", 
           RowBox[{"80", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["15", "7"], "-", 
           RowBox[{"79", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["3", "5"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["9", "5"], "-", 
           RowBox[{"78", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["2", "7"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["22", "5"], "-", 
           RowBox[{"76", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["11", "12"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["20", "7"], "-", 
           RowBox[{"75", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["5", "4"], "-", 
           RowBox[{"73", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["3", "5"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["17", "4"], "-", 
           RowBox[{"72", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["3", "5"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["9", "2"], "-", 
           RowBox[{"71", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["1", "4"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["9", "4"], "-", 
           RowBox[{"70", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["3", "5"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"4", "-", 
           RowBox[{"69", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["3", "7"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["3", "5"], "-", 
           RowBox[{"68", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["5", "6"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["7", "6"], "-", 
           RowBox[{"67", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["2", "3"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["31", "8"], "-", 
           RowBox[{"63", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["2", "5"], "-", 
           RowBox[{"61", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["1", "5"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["23", "5"], "-", 
           RowBox[{"60", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["3", "4"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["1", "3"], "-", 
           RowBox[{"59", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["4", "7"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["11", "3"], "-", 
           RowBox[{"58", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["1", "4"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["10", "3"], "-", 
           RowBox[{"57", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["5", "3"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["3", "7"], "-", 
           RowBox[{"56", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["1", "6"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["23", "12"], "-", 
           RowBox[{"55", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{"Sin", "[", 
         RowBox[{
          FractionBox["33", "7"], "-", 
          RowBox[{"54", " ", "t"}]}], "]"}], "+", 
        RowBox[{
         FractionBox["4", "3"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["9", "2"], "-", 
           RowBox[{"53", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["11", "5"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["34", "11"], "-", 
           RowBox[{"52", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["1", "4"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["19", "7"], "-", 
           RowBox[{"51", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["5", "3"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["13", "7"], "-", 
           RowBox[{"47", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["7", "4"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["1", "2"], "-", 
           RowBox[{"46", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["8", "3"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"1", "-", 
           RowBox[{"44", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["7", "6"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["7", "2"], "-", 
           RowBox[{"43", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["5", "2"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["19", "6"], "-", 
           RowBox[{"42", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["13", "6"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["4", "3"], "-", 
           RowBox[{"41", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["18", "5"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["12", "5"], "-", 
           RowBox[{"40", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{"2", " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["13", "5"], "-", 
           RowBox[{"39", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["7", "3"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["17", "5"], "-", 
           RowBox[{"37", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{"3", " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["13", "6"], "-", 
           RowBox[{"34", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["15", "4"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["6", "5"], "-", 
           RowBox[{"32", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{"2", " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["5", "3"], "-", 
           RowBox[{"31", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["37", "6"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["14", "3"], "-", 
           RowBox[{"30", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["19", "4"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["4", "3"], "-", 
           RowBox[{"29", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["25", "7"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["6", "5"], "-", 
           RowBox[{"28", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["34", "5"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["13", "3"], "-", 
           RowBox[{"25", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["16", "5"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["33", "8"], "-", 
           RowBox[{"24", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["4", "3"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["4", "5"], "-", 
           RowBox[{"23", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["22", "3"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["97", "24"], "-", 
           RowBox[{"22", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["10", "9"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["18", "5"], "-", 
           RowBox[{"19", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["210", "19"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["1", "14"], "-", 
           RowBox[{"18", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["25", "2"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["4", "5"], "-", 
           RowBox[{"16", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["13", "4"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["9", "10"], "-", 
           RowBox[{"15", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["79", "5"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["8", "3"], "-", 
           RowBox[{"14", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["201", "10"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["11", "7"], "-", 
           RowBox[{"13", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{"22", " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["17", "5"], "-", 
           RowBox[{"12", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["211", "4"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["7", "2"], "-", 
           RowBox[{"11", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["112", "3"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["16", "5"], "-", 
           RowBox[{"10", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["287", "11"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["9", "4"], "-", 
           RowBox[{"9", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["286", "5"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"3", "-", 
           RowBox[{"6", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["341", "6"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["13", "4"], "-", 
           RowBox[{"5", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["97", "7"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["23", "5"], "-", 
           RowBox[{"4", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["746", "5"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["13", "4"], "-", 
           RowBox[{"3", " ", "t"}]}], "]"}]}], "+", 
        RowBox[{
         FractionBox["1714", "7"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["7", "3"], "-", 
           RowBox[{"2", " ", "t"}]}], "]"}]}], "-", 
        RowBox[{
         FractionBox["36", "5"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"17", " ", "t"}], "]"}]}], "-", 
        RowBox[{
         FractionBox["10", "11"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"35", " ", "t"}], "]"}]}], "-", 
        RowBox[{
         FractionBox["3079", "5"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["8", "7"], "+", "t"}], "]"}]}], "-", 
        RowBox[{
         FractionBox["167", "3"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["5", "4"], "+", 
           RowBox[{"7", " ", "t"}]}], "]"}]}], "-", 
        RowBox[{
         FractionBox["296", "7"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["1", "4"], "+", 
           RowBox[{"8", " ", "t"}]}], "]"}]}], "-", 
        RowBox[{
         FractionBox["29", "7"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["1", "6"], "+", 
           RowBox[{"20", " ", "t"}]}], "]"}]}], "-", 
        RowBox[{"3", " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["5", "7"], "+", 
           RowBox[{"21", " ", "t"}]}], "]"}]}], "-", 
        RowBox[{
         FractionBox["13", "7"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["1", "5"], "+", 
           RowBox[{"26", " ", "t"}]}], "]"}]}], "-", 
        RowBox[{
         FractionBox["11", "5"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["5", "6"], "+", 
           RowBox[{"27", " ", "t"}]}], "]"}]}], "-", 
        RowBox[{
         FractionBox["31", "15"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["4", "7"], "+", 
           RowBox[{"33", " ", "t"}]}], "]"}]}], "-", 
        RowBox[{
         FractionBox["39", "19"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["3", "5"], "+", 
           RowBox[{"36", " ", "t"}]}], "]"}]}], "-", 
        RowBox[{
         FractionBox["5", "2"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["3", "4"], "+", 
           RowBox[{"38", " ", "t"}]}], "]"}]}], "-", 
        RowBox[{
         FractionBox["8", "5"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["3", "5"], "+", 
           RowBox[{"45", " ", "t"}]}], "]"}]}], "-", 
        RowBox[{
         FractionBox["7", "4"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["7", "6"], "+", 
           RowBox[{"48", " ", "t"}]}], "]"}]}], "-", 
        RowBox[{
         FractionBox["6", "5"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["2", "7"], "+", 
           RowBox[{"49", " ", "t"}]}], "]"}]}], "-", 
        RowBox[{
         FractionBox["2", "5"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["5", "4"], "+", 
           RowBox[{"50", " ", "t"}]}], "]"}]}], "-", 
        RowBox[{
         FractionBox["4", "7"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["1", "5"], "+", 
           RowBox[{"62", " ", "t"}]}], "]"}]}], "-", 
        RowBox[{
         FractionBox["1", "5"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["1", "13"], "+", 
           RowBox[{"64", " ", "t"}]}], "]"}]}], "-", 
        RowBox[{
         FractionBox["5", "4"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["3", "4"], "+", 
           RowBox[{"65", " ", "t"}]}], "]"}]}], "-", 
        RowBox[{
         FractionBox["2", "3"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["3", "2"], "+", 
           RowBox[{"66", " ", "t"}]}], "]"}]}], "-", 
        RowBox[{
         FractionBox["1", "14"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["3", "2"], "+", 
           RowBox[{"74", " ", "t"}]}], "]"}]}], "-", 
        RowBox[{
         FractionBox["6", "5"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["1", "3"], "+", 
           RowBox[{"77", " ", "t"}]}], "]"}]}], "-", 
        RowBox[{
         FractionBox["2", "5"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["1", "4"], "+", 
           RowBox[{"92", " ", "t"}]}], "]"}]}], "-", 
        RowBox[{
         FractionBox["1", "5"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["1", "3"], "+", 
           RowBox[{"101", " ", "t"}]}], "]"}]}], "-", 
        RowBox[{
         FractionBox["1", "4"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["5", "6"], "+", 
           RowBox[{"103", " ", "t"}]}], "]"}]}], "-", 
        RowBox[{
         FractionBox["1", "3"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["6", "5"], "+", 
           RowBox[{"104", " ", "t"}]}], "]"}]}], "-", 
        RowBox[{
         FractionBox["3", "5"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["5", "4"], "+", 
           RowBox[{"105", " ", "t"}]}], "]"}]}], "-", 
        RowBox[{
         FractionBox["1", "7"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["4", "3"], "+", 
           RowBox[{"108", " ", "t"}]}], "]"}]}], "-", 
        RowBox[{
         FractionBox["1", "3"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["1", "4"], "+", 
           RowBox[{"111", " ", "t"}]}], "]"}]}], "-", 
        RowBox[{
         FractionBox["1", "4"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           FractionBox["4", "5"], "+", 
           RowBox[{"120", " ", "t"}]}], "]"}]}]}]}], "}"}], "0.01"}], "+", 
    RowBox[{"{", 
     RowBox[{"15", ",", "7.5"}], "}"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ParametricPlot", "[", 
   RowBox[{"pig", ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", 
      RowBox[{"2", "Pi"}]}], "}"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "30"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "16"}], "}"}]}], "}"}]}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pigdata", "=", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{"pig", ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", "0", ",", 
        RowBox[{"2", "Pi"}], ",", 
        RowBox[{"Pi", "/", "300"}]}], "}"}]}], "]"}], "//", "N"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{
  3.6961848252463226`*^9, {3.696185010853712*^9, 3.6961853306044707`*^9}, {
   3.696185654804762*^9, 3.6961856670961795`*^9}, {3.696185703398317*^9, 
   3.696185738702221*^9}, {3.6961857793132563`*^9, 3.6961857844693084`*^9}, {
   3.6961859013872967`*^9, 3.6961859018561373`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"pigdata", ",", 
   RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6961856896096907`*^9, 3.696185698115838*^9}, {
  3.696185948953368*^9, 3.696185953935232*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.007333333333333334], 
     AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJxdmnk4lN/7x+27so6RJdswzGIbzEzqeSukUmkhW5FKC5U2JEVaUUKL7VMh
UlFKRaRClChJigrZUpYi2dff8/3398/M9brOfZ7nnPvcy/tc16Pts3ftNiEB
AQE38ud//1VL1JxVe+iofBbZfGxYHDNhYd8nvtNxp/zR3u2rJLHuDrdZ6AMd
JQW6l43ypKCe2ed98iUdKnbvDO9RZcAQNDLjP6VDIaTBUCREFhdHro3FPqaD
9uUW1aNhDra0pl3MvEfHm8CeUTk1OfBbHtjXZtGxVVbEI6taDj1fSjpu3KTD
LtDpnu8ReaQb/FQYu0vHtd0lQgN0BeyybhAXJp+vvbFMMPiTAkIvXFutWk1H
7PHJ0f0nFFGZwX57s52OeLlYZz2OEpIrFVeekjZEhOHnzuofSrhvvdQlZIUh
Xq2qF3sSp4wAy49h+VcNYbTjoVWUEQXHGGbTX0YM0VDQ2uR5jQITN42G7FVG
SH8b37HtOwXe79XqKzKMIB7EkT78h4IUeYn+U1NGSFNxqkpspuDvmPO3RhcG
ilXjiO4KCj7f8fu09gED5cUP/ZyeUBC2OLNiVpKJtMsfj3c9pmAy/6JN/mYm
dHb1dXaSzH8Tf3h+ERMvdn/jlzygIEOlZZuSIguKQRoKe7MpuJEXUL3Mj4Wq
zkzhpNsUGKrWOzeVsTAvq/nQQC4FU/xoy2NqbMwa5V5XL6bAvrs1su4QG8an
nHeNVFLQZmXPnFPLxkzjcZUlHyl4QSkvXks3BlUm/5HGNwoa6IeuJoUZI3FI
TK6+jYKE7iL1gkZjnLtyJpH+k4LqR1fvGM8zQfscWc7GX+T6+fblTUtN0JVO
BKwh7emBjZTpAya4crPpW0YNBUNBvfac6yYQy2tn+JLr8924avREtQnkjln2
MU9REKpd9Dt+3ASSa6qG29ZSsNLe5/kZA1Poiuu9kFWn4KZDChfrTCG9rKug
54cy4BfYpnnUFDlxqqNBT5QR0ivjcybLFD1JA1vt/lNG2lHuUe+PphiK3LRH
57IyRLxsD5jPmEJvd5Km7HVlVNS0bW7TM8Nt9W4rXp4y1qpOH5lZaoZohQLp
BdXKSFmy5/sCfzNsCP0lbf5HGXe2be8pumwGmSvv/Q5qUXDIdNg25KUZeiWe
C+Z4kfEiXbtn2YAZDprm+6ankefz4G3gYqo5Wr+Xl2WT8VC2JFnyhLU5qNbt
jf5KKigJZ5022WyOdivfl5scVfD4P1pnwVlzSK3tH1l1VgXG0SIR8/LM0ZTm
VbO3QgVHR5vv5HwzRwNbm50jTMWT/ddkf4lyUOxzpsB0ORXeszdlOGYc/HHs
oTamUPGIl+/K9OJA4Eh4PP0HFYX7DpufPsNBoubVV++nqKi8XbbzbiYHussu
/z3zgoqPVXFpEU84EBIYCOk0puLHvqXtG8s5+L1Adr1WsAqEjCoWVr7n4Ir9
BrU2Mn7i7d4Ip33nQG8D+02ABQXrBRpWvRnmQH3X6aIt95VR++t39zt5CySm
/3miaKCMt9NZzSGmFjALdBnZmqQEOaN3L6hrLLCeHVwrp6SElWUTFbf8LRDR
ldkUnaSIhW2Bh+UiLBA41fsgUFURz2M+VIrEW8Dh4t43F48rYEWBjZTHNQt0
tmSdkquThzRnaX5ClgX2h71sz1OTBzfogs3dHAswt9wqPewnh12dD36Pk6zh
wzk7cWQupk5ceR142wILvBWVlBTmgOpxp9/ohgW6hX5tKkuSwUPzd2PiSRaY
iP3R9oYpja1L/N+nnrWAJqXww5c2SZi2H3x3YJ8F+EUK/oX5Ergr+UHlkosF
Lpkobq5IFoegSaKhrDW5XsPGhKlTYgiOOGTSqWOBUAMb9sYjooiuOr2qSsIC
x6J9ZDODRLB18BhlppeDwPFP6el+wjDZrJFvUsNBl/ft3tpVQjgRIVGwPI/0
N2gPBY0FURfdU9ibwEGU+dbUe1oC2P/F5NOmIxy8XVbhSBAzxNL4TzrpHhyU
ywb7uVKniMVRr2NeERyEN9rHzKSPE1KTD9xoHA7Otsr06imNEuzSFa/KQMbL
gxMsia4hokDRRO6sDweV728dkQj4R4zIFaWFxnDgefYnVf7GIGHrZTXq8JSD
zujiXlfTQWLmzbePRV0kZzGjZrv/EtlFwfdXKVhA4N36h5/b/hL3G45xXP/n
j5qMhvG1g4TLuu7c/E0W4Gxvby3c/484NJt58sFBC8itMmIc2DZMOJ62n+wO
J/0ZQV9oaDhGPPf5au93zgK1Yivmxm6YJMRaxhy/XrdAq8feLzliM4RE7p8L
r59Z4ElBXB7PfJawvBaz93O7Baj6e348TJghAnc/di6XtMSlEKuiMP1pYn3C
zYIAtiW4R+Tr3oZOEZQtzIsyqyxhi0UCpZnTBN+fJnjM1xI5mWqNPgwBfP5x
vkggyBIisrG11x8K4uzBnlqH45YYTDU7vntWCJsZn5/yIi3BFLWpeqghgsPd
Z4oG4y0RXjoefd1TFDNziYHaVEs4fUj4j9sghvQgw47KPEucs1xk6+kigRrB
zxryry2RHBXabHJVEtcNr3dFfCPfpzncf/exFAzZ5w0W9FuisWN1n0eTNFLt
CPdkYStIqT2L9WbK4vT5cQEbNSusXSRF0zk6B79DDfxHLK2gl7Rg3tjVubA9
5f7YYp0Voobfu51bLYdUNwWDhp1WiKmlqF9pk8Prlxr/XQ2yQndLhNynOHno
V6yeigu3QskGrtvuBQo4duJcslyMFVxbOA0b0hTge2ip/YEsK9h/ipbQyVAA
PX1lrOZbKyh9+nhk1E0B+4vex18askLtusLxhkF5CDSecxVV5aLvBb1/xTl5
hH/pbM2w5CJuNqLJV1ceJrry73xWc+HOjlS/eEcObq0THUq+XASgadkubTnk
uUttEAzlIvUwqz/FYC7sOeeuHo7jQlFzwCKEzN+GFOmq2ZtcmOcYfz4+KYMQ
4ZUlt4u54HStL1/2WRqdl16M/6nlIuRJpeyhDCn0CQepu7dxcWvpj+KgPZKo
ubzL8FsfF/abNy8dMpWAdaLptYohLpiBcfED7WJorKD/65ngwoEu/7r3mCgC
c4TNhGa5YB9WTeMoi2BO2f3ISzNcoCTa+XG+EPqMWXLnR7k461LPPOYjiO5y
62fbe7iY8IrjHpEUgLvlLfHCL1xoKXrlcBymifL/kv4IVpLP7x905R6eIEY5
zlTzfC5ELsj13SkdJaypf0Se3eCicvSn16DGMNHGK5Y+doHkHa6PL/sPEmu5
L5yXHObilyd39BW9n5in821mdAsXT7qYGlSHbqIslXvhnwsXsb6Z9LGsDkJd
2GgiwINc78y7wvSOZiLE+U6yZCAXJcpvDh+oaCDiJ/ax0tJI/0saJVwc/UQI
ZEdWsOu4kCsO2VMk30hoT8AkgNyvwL8mPd8f34jw38OSv/R5CHflH+QVtxAh
YgfD69bwIDdynNmT/Z0QcWw/+iWMB4f6rP0nt7YSI58N3g/cJPnM9jrr0nYC
L77uYD/loTFurO7z9Z/E4ILkYYtnPDhNeWWuqvxNyCiq0yNJvrQutnQy4i8R
GXnApb6GhwAPdW7e3H9E9wcHD/oQD/6tkX7y//4REdWa6mc1+GDyohKMjYYJ
o6ri6F2WfAzd/xNWuGGUCKVd2cyw4pN5gW13lk0Q9U9PZp2m85F6P+hSoOs0
YVuiE8Cl8rG8/8cnnzkCsDRYZVolwwe7KnmDgYcgysrsqw6K8CER0dxbUCQE
6u5Fx29M8ZB80NwxmSOCvCClB7MjPGz19FrxPlsUVLpXZQHJA3WjXzMkxTEY
eLY6bJKHHTb1u5+4S8B2z9DOJ4J8CCyd7zJTJIlCHv3GUnE+rp2u9OawpWH7
SfW38xw+ShVWtronysD9tfPHJfP4iCz+Y8P6LgspzDcuMeJjVO1ZaIfUXKTf
ue3Zwuejrb7X0GM+qaebVU1v2vIRLvcrfLJSDu6lxXvPk8wMMXteGSKPZ0+2
vnjE4yO94aF6vhaZz2HPp87q8SE/aSd9OkcBTin7vuaI8XHuaK/0hJYiJD5p
0Ro6eCiRDnYzOa+I8tU1DoqlPLQEr2W3zipCfbGcnVA6D5NVvAL9MCV4K5a5
T57mYfOiLwrHJJXxW2kqa8UeHtJsgtMYKcoYW2hcqbCBhyWhgWMqZhRck/7I
jF1M+kdiMNeF1I+rEzMuGJvzsHO8ct2jABUoHDt5eCODh5QFDrVnqVSE/aUw
VrB4mCfcv723lIq14xdmF/J5OHrR4a+Pryp6vI78O+TEQ97BOsfVgvNwqef5
humd5PwqA1Pa5Xko+Pk6dz8ZnwUFOxsvM9RQL5IncfQ8Dw9m+Hn2NWpwkEpN
QgIPsvLb8O2oOtpXeGgfIvfXr7izPd1EA9yL8TLyD3jQdSkwDvumgcHneVGl
L3j4Mux661qoJqwOvb1YWcXDrizXgq/q8/FOjlczWEfGy8ychfqv5sNPYqp5
fRMPGXcevcq11kKszVPtW7/I+a5aHuYJWtjE+WTRRsY3QVts//6PFopSTAds
p3n4YJG2rmKJNvDjjESoEB/bOJ3TuknaeLupsvqZBB81rrMmVwa0sdiNN8lU
4OO0lVHcAwcdVFV926emzse/jwZfTl3XQY5KUX2HDh/cmGTXk8M6eFvmH1So
z8dutT7cdNTFGalWOxcyvtqds/P4mbqwVbNJOMkiOeeglPO0Lrbq9PddZfIx
Eq4aJr5eD31nGaMTBnwkUDdk6mXrgaHn3nrPkI8NfZs0E4RoiLp2qOjEIj5+
fPFoqnGiYdpyu4mxLx+3O2PGDCNomEO7vv3fOT74N3wWzJ6gIfLk280ByXz0
WLgnM9eRXHjwnGAUH63DqeN7BWjQmNrxY2Q/H1o3uv6bd1MPixalMYQO8fHI
MUHVzE0PZrahe7zI+UaPbI036erBSl0/JPkdmU9W1lKF4nqYupq1Ofk3H16L
wyIKJPQgkGex6mcvWR8s+/cLGeihpbZ2MLOBrB8xjtatnnpQ6+0LiXtL1gdD
z4eHruuhJ4J6rq2RjydNvAVtXXqQ1X64fWqQ3E/D8iBrcxqSGIfNqKILkFMa
Z/DgNA1GZ43vTszy4ei1tX7gKw0bjldVx3fwceHHct5RLX04ah1boVbEh0Ne
9Bt5R32E2Xz81R7Dh9PXobslW/XRxBA4vn4nyaeitGuP6yP94U/zx458XFl7
KEb9iT4aA9XTnnP5eBX36ypL0gAi7fbp5aT/D46Ke5RsNUCTcMNdM7J++Nta
eOcXGqCetdS5SZQPoVO39XuF6di11mgssI+HnKrNlnbL6cjXvjtSWstDxZVF
84fi6bjPXlu57zEPAlU/l3c00RFie3yAnsKD4ZRfPUXPEO5U05Mz4TxIuuw2
OL/DEPTh7xICvjxUVnh/+n7XEPltgq25y3iIUak5IzZsiKBnsb+SyHzedOHS
aArPCK17tne4S/PA6F/kWBtoBOvrceprurnwdquMS7lrhN0OAoWFr7goK/gb
M9FhhE22i+4lZpD9TG6l95gGA+jYKZgQwYXzSLG3mBsD5w9cHlrnRc6PEp8Z
j2GAuiBAoIvHReI+CfuMYgYkvNua3ypwcXmywtS1k4GqOWsOr+m1gt/ka9uT
UkxQklw6LcqtoDIGy4OmTBSLVXwxuWqF2Mw3xT9dmSiSyRMPPmSFawJfpL3C
mag9umHjLkcr5ORZnda5xcTmKO/YR9pW+Oo6maVby8SDn6foS4YtMbbiJXPH
KBPrNvl+3EvqP50K5qcADRbOC1Ma1ZIsQR+zC9uwhAVO1q9jXD9LTJz1tiF2
saA5deC0zCJLSPwJ/lMQy0Kp/rWNKvKWWLupWnM6jwUfquiRlx0WSF/iFnSz
hoXWjf95ieVb4E+20MWoHyzE6HEOGJL3mRgvr5nxSRZ21lbvYblbYLThXwhV
iY0dnwQPVDEscJvRef0jgw3J+XLdytMcNP5b2P2BYOPxnN06ReT9RENrvUDi
ajZOruoXZKZx4LJnA/3tRjY2t9fUNh/g4MxSIYNT/mxMhTullNtxMLgrq/FA
CBt9gyESHygcKDXMXbbtJBs36veL+P4yx88ojVqFSDYSI9vbKp6aY73EkWvR
UWxYt7Z0KsSaQ/3KjMaLaDaW68b0hPqYI3+g2GHLeTZa9JUk+kzM4fCGLd1A
8t+QT+f9p8zA8lFXf0bai+ntcLxSSd73b+R0j5xhIzPFvWxbohnmHb6eVkO+
f1aWalTlZwZqwn31yBNsyJpyq5fDDBI3bahaJNdbRzCLFM2gP9g0vfo4G1Zd
v/+N/DCFvWe844tQNvacs5Vd8MQUe4rOzF0UyIaGPy/YKdoU9xUtdmoEsGG6
78+3hk2m8A/XEGWQ/qieu36HspkpggvTQnt2spGvsCv0l4gpvOfs7Uv1ZaPK
emHiiwYThDRc79rixcbcDNudTXdM8N+mulPb1pH+EaudO33UBJyZoVoTWzZc
Qv6qlzuZYH11tHGSORtGla4OPF0TOPZ9TG/QZsOiYr53WK8x/HvaVxBz2Hiu
JE8sjzPGQI2Ty41xFs46inXmWxmjvetZ93gXC9WKtwzMW9j4vPL686JGFm7r
LkhbRfrpHkvcYuodC5d06uTljdioY43b73rJguFHbUbvexbmXjfddK2AhezC
/VIbA1mY6pXfHHqXBd8HFZ1HyLhe77VM+/0tFl6w9+9+VM7EfpO7xv4kr15/
7jLHj4lt2X/FlTJZ4N2kN1fLMVGZHGLun8BCHXvP0lX5DDRtGEycOcbC+59i
9jWeDEw0Vx3Z6cPCHq+zYj4iDMgpzoiEOLBwy1DtymC2Ecol1XIHTcn4/pwS
HbzWCPeYze9vzGMh6+vQNfMxQyjF/wgqmWXC35vKX37NENTD28VudjDR1xyn
aG1nCKeJxDrtaiZ0Kz1DWH10/MpQcVj0hImyHQp/pMk6OKdhKK6NzO8/G6Ry
VK3oWKy5l05JZuKabl7euyYD9NgZdi+LZkIzf420+kkDRCSeE2g5ysSY7Mgh
d6YBbnVo2qTsZ+JX07Hj7Hp95Av/bi7ZwYSj1E+azRF9PKfhhIsXE/qXT14J
0tHHWKPi8UUuTCQpHVgdXkWDh+7K4uSVTPBXMsar99Mg167TqGFH1qfhnbXb
5tEQ+NDLrN2aCdt+41/7SvWwnWEkst2Sie6ImSvzd+rhbIO+oIs5E5Zlr+6L
KOhh1etJ52YzJuYor1lDe6qLnLJXYWvIeleWlPBLfYsumnPsK+IZTNiFD18f
lNTFvQXPEi7rMJHX8VxD64EOuN3F9APzmOidiEx94KYD7z0pqXeUmdjau1t6
XEgHS+tvNBMKTFSlLPOLzNbGjNnLTc4yTCz3W5Souk4bsiVX2qaEmHheIWD1
bEILJb0X9uqMM2C79Olb/g0t3BcWYBz9y8Aaq5DCjhVaaPH5fLSph4F7P97E
0X/Oh2jSZb+UNgbq3d4PtHLmQyFdbPfKega4WzrPPz6hibyf9b+zKxjQNnVb
bPJJA8yJs+/CCxkQ/zUqtNlAAz8vT3+5fJ+BtcSB3M1B6tApjJLYfosBE17+
cp8KNWioJV6hXWOguCpq72slNSR8+UxpjGUgWPbfTZUdpK60mL/xajgDjcnz
Xok9V0UqZdmdpbsZZD/0SVqvqIpZrU3TMS4MDK55X1rqS8Wrc8fbi6wZsDZ+
k9NVqALRC4bZ7+aT/SnWo99xjgquVplLnpkxwp+IMU3dLRQMBP04791oBKn4
QxVn85URpr3c8cUDIyz+vT16lYQylPMkgl5fMkJ6gmJKtrsSdn28cfNUtBFE
9IattR8oIvn0LHNvohHuf7p/UlFOER7VW7bUPDZCrV9q5uNQBZjYGwWzm40Q
dUvPhT4hj/aSjrkZsgzssRivWndSHgumBNVvOzBQ2RqgITJXHk7NVopZkQz8
ueg9/Oi8HLpW/+d3r5yBgcijgfaTc9G5KD/nzwADzNbGpLHqOZhjyfqToshE
uaDGgVuJslic3vHEl4xP7k7zeglXGci8TP+nfJCJWzyzh70zUkjN2ZLdco8J
vc/BbxfckUR9vW9R1QcmONeLPRtzJHApdv6ds6+YcJJaH//ESwLKF4Xl9kUx
wdzx0E6uXgKpGx5wKpnk87Payx/dl4Sck5iq5ksGlD5E6eVulkKT1Wv5yc0M
aE1Ke9MPSOGuPWvvL3UGEvNeaH6okkRnXvgNf7KuiDA7zOOSJbBrb6bfRnJc
Ys2AghNDHEVTGkdvrGPg4HbVDwWPRHFs4xBNKJqBziyOc8Q6EQjsS6jrv81A
QJT1ITNpYVAld4Q45zLgOhOwKv+VIIqufXXJvcsAJ3XCw89XAJdtrtKXkXUu
9UjAf8urp4n/ui7Qu14zcL+5tdZxdIJY3rLh/JJass5VuAXupYwT64MXsjxI
/ZJa4OlvXTxGyCj0byk/TdqzX3hcejdOLNz4d4csj4HwnEdRSy5MEmIPvW99
aifP3y2ctpE3TQjsWXR0dawRHCTL2bIRM8SA1bCfhL0RYv+oKHWkzRK3/IOk
sgXJ8e4lG77tF0Bwm8KRU88Myb7RcJ5DF8TYC7svrEOG4DSPn/5aJ4hGgdzT
HXRDlLifixTxFELArvaNFaQ+pB+73elZLYRbCWPjYpfoKKkTDinlCyO5dXi8
w5EOf1/DyqDnwvjKklEYFaQjfNvNq6yNIghtnF2cnWuAAIX5z18piWLgUIJn
9gYDMAVMHgY1imJn3qc1b2ZIPezhe2XmtBgeCVarJdwi9e+rd613fotB7M/4
7jku+nBqj1T4r10M3ZP9dS/E9aEV5xp+eLMYvkTJBhIvaLDe16304ZwoMrNv
HDh4lAZqd9PYxngRLBTXyHkOGrZGLd2+/YIwFgYeSfIVo0EvZ6vBu/NCKD1L
If57R9539jBC1OMFcSPzT9aeBD08endvfXqaADRzP1yL36KHX69n9S32zxIn
mvWaHIz1kCra/8D93DRh3l6l7jCuixLJwuXdvpOEUlDu5ogKXTh8YEidHBsj
Hspm6ncl6eKJeYTUfO8RYmLGOzIiUBcB3w/napf+I9bti2FIrNdFZfuLtk/z
/xIRtUFLH7N0IWfW9Wjd+z7CSiS2rFdaF3BinTDV+kn4NapYX5zVgcBNP5Vf
29qIZ82q1J1zdCGwrYRWI9BItBgXurzRI+31Y9edJd4RicfNl0lokeMfo5MW
OT4jLp6f6K/oIecf3bc8wieTYJcL3vgXQ3JGD+fYx0iCFhBst8qIZKWaWtni
GIJ2buGlyx+0IeDC+SsslkwsNarxYB0nOUr+pN29ZGJ3SV9wtSHJE2mGAaMJ
RKDIs+/qlVoQ0PCZpzH3FlFYd1Ul1o9kG8ZGYvIF8eP3UloTjWTth1JVx2oJ
j/ZdSkX984HCb5yqm1+J9JlqpxU35mPglvNnU4N2ovbTQ6HfS+cjVvov/8PG
LkLBPmC9S5MmnHr004QCeojvV5/E/DqoCQSc1jwq2k/wp1xUns7XxJjJBKdA
e5BYXiw29OCzBn7x5JpKmoaIz3I5XO1oDTh87yn7sHeUSBi1OzltqYGS1xe/
Nb0aJyhTd/4qt6hjzClmU/TsJHEuvNQmPkIdEq3s7zqYIdwzz6gVzVeH/9s+
m64VAqjhZIusy1PDSfaweE+4IK7FUN1KbUhui/FaXSyEoo0GkvOb5kHii7iM
3IwwjsrL0G0j56F4dPs3NTtR/FuVphFkOw8HZYYulZ8XQzCRMhUoTI57nsxZ
9VkcIj+9l9NKVSHx6bB0m44kJkNEi86FqWJq4ZyegcNSmHgovPeqjSqYb96K
pjdJg/F852ypmCrOxnt2vraVhdkKRkb6OyqGfK6fPpo9B4G/lTwzEqm4Ih/Z
oC8hh//yc99M+1PR911vh1ixHGbEjjfHr6Tipm3c3aj98pCoPjM3g0sFe3L0
WZShAl6pJv+QY1Dx9vPmNNkWBUzMFWhdrUfFJi9H09WxirBm6j39RKNCaF+R
hpitEsq2+yayjKlIXva4y3JKCRLF/H/K1lRUdbYxjhUoQzizwPy+PRXxt1e9
9N5HQYDNJo205VSE1ltF6BuoQK/UbfabHRU7BKPOBH9VwfNY3fsPrKjoydN8
WRFDRf/JNc8OaVExsTPT5YutKsKsGkLrBKmQyFnyV2lCFT8f0OJUWlTgoL61
72/2PHztZdPD8lXgc1Hmm7iHGjo712TcjFJB5pfN199LqkPd9djP1e4qiNct
o9sUqoOdaJLoSa7DsjzrnfUODdhHpz4NG6ZA1rLq0wmKJnpWTyrLV1KwQylu
QfwrTdw+5CgXkkqBttjzpa0h82FuZPgIxyhIX0F9/5eqhdCep7wULwo2eL/k
RB7QwnBQVPu0DQWUDwYXDrzVQrfSx1xvXQr0BIRNu2jaGGHEDB4UpiBffor7
hsy72DfsM1ltygh1PExzbdKGk4aA2k7Sj5wKvYMMhg7mrlxSSz2kDMrYwb3H
t+iA3aKz0FpSGdxSuYHcCB2k/zi/0XWvEsRexHSlxOogw3DS+mmBIuyltz/6
nqSDIvm1zjVTClj1RbP2dJYO9vBPb25fqYAg5UHP+091UBKyV8c2Ux5FGl0r
KPU6cKk/5RI3JIfJM64d53/roKm/eX0BVw5iiy9dKxfRRWbAC58Fk3PwnNnz
rkJZFx5RlWHeKbLwDHAW36yhi1RT0SWn7GWgFt1pnKymC6ech2vOfJdC3/Rw
zUZFXZSx/FZ+9ZLEvVhTq69iuthfcc+P3yEOfqnB5b9DOmA+kdJ4eEIMcWHO
Z72/6YAi579qDUcUBWuoa1KKdPD2x+orTe+FMXN6sM7msg5ZNyjam1YKwW7J
0s1z/XTgnja1p/GjABTF1lQpWumAHhOZkaM0Syw4xBfuGdHG1qkJ+6eFU8RF
u0m3qkfaaJwJ8DylPEEErxM6GHhGG5wDokFbJkeIlIMZe+gntVH7JHcdRXyI
KG4r2qOYq423tMQwOmOQ6PtttD1wQhut08dZv/P/EnUdF3bHr9dB4m5/l1t/
/hKr9uv86HpI6u/9Ed/XvvlLpPNP/DVV0oVeudO8n/P+EuULfCypfqSeT931
KL1lgJgSUft+KksXnuuFzn3lDhJC9+lP6kp1wXG74iJpNkw0Ti3TmqzSxdCO
L4vcTo0R9yfvJc35oQv60yLfw8UThIuMWkiuPtnn1nivtwieJPSnp3aNn9TD
k0pubvnNSeKesWBh5Dc9sv9f9HOJmyJKP+nmPpOmoWlkLP7U6xmiMHAkaKcS
DX1/8n9dHBBAl43PkRsyNOwPcE6eFy0E1UQBZwppf0lv1Lh5VBhP6nrbykh7
98fS+ziLRNEi+2WBozYNqVGnlthGiqHRzSLIxogcD3+0rW1KHOWU/9z/mZF9
OlPv+H8JkmioV3j7cwkN97Tzkrp0pJFhqRTvuYUGz4sBzM88GZhbXMvvjKfB
q/UlOyZQBmvTt15of09Drdu+SpsCaXwPtltqp0DqCv93B97ZSGHH4hHl9Y7k
/YwRcfVrogQe5Epss9inD9thd80iTXFE1bfI/zymj/BG/clfX0WhJmRs1hGm
j5bpsi5Kggh2nJO6nk/yItGr6S+ZwjiXZmHnQdo/2eewyfKuIC7ENnYJ7NfH
uW6l4moIIPQZ1azMWR8HF2ck32ibJmY88k3GTfXhah+fG24zSfwuy23aKq8P
7vbsEZV9Y0SjmXK92AANAVreWodODxMRzX3fXhbToOSh9HTLo0GiS8V7unsf
DQ6zShqcmX7C6FlKr7shDYmneqtHz/cQn/nl3YVzaYjdElKAtT8IidCu3LcL
yftlwpfSCLc24orqjAwzlYaB5cXLX+z9Tmht3RlQI0nudxfl6gXbVkLA69EF
phepuzTPzGPvbiNyzHUa52ST47dLfPvS24iqiYGPeWIGiP0m9N1TvI041SL+
m7PfAE+Gtvcyg9sIq3cByTfekvz5jp3b407CTHPX8xMjBmhcV/3+yL4eorFp
G6du1ACXLlJ2lxkNECq1HmdXTBtAgl7lslF0kDjoYSQ8waJjaPkE/ULmIHEl
49LO96fo6Lv5sEh8ZpBoSaz5eeobHXJLXN7z2ENEYmurzxsJQ/K8blxyvDhC
CL2KFvkgaQiRGrdvM3fGiZGXVT6zo3Q0XjHY953MZ6XMII/YPjoE6i78bCB1
nb34oSDh33RsnU4NmBUmz+84I+DuAB1gBf995y0EtQLl2RGSRUL4vtyPwqjM
2/lyYT8d7t1OK98vEUUe1872Kzl/f+myYMN0Mfz/76/+D8EiW1A=
      "]]}}, {}, {}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 27.0199004693819}, {0, 15.277031278096402`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.6961856989480257`*^9, 3.6961857080743957`*^9}, 
   3.6961857433460035`*^9, 3.696185788354391*^9, 3.6961859081500797`*^9, 
   3.6961859552052994`*^9}]
}, Open  ]],

Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJzt3cGO48YVhWF2FkaWWWbrt/A2S28d5AFseGxkMwbGAYK8fbqbrZZIHVJV
paq6h6z/A2J7NFLzsuofSa2WJt//8sdPv/1lmqY///r6j59+/u8/vn37+X//
/NvrL/719c9///71y68/fv3Pl9+/fPvhl7erfff6j7+//u8FAAAAAAAAAAAA
AAAAAAAY4i1+UOb3fvIOUCxNb0lMdIGljy6ix4AbuoAyTTyKQKALKGQBhS6g
kAUUuoBAFlDoAgpZAAAAAACs8AIGBH5sBoG35UChCwjTRBi4M9EFhIkwoPE5
ASg0AYUuoNAFFLqAQhdQ6AIKXUChCyh0AYUuoNAFFLqAQhdQ6AIKXUChCyh0
gdnybXt0gdnyDZ10gRldQKELKHSBx+gCCl1AoQsodAGFLqDQBRS6gEIXUOgC
Cl1AoQsodAGBLKDQBSS6gEIXUOgCCl1A4HknFLqAQhdQ6AIKXUChCyh0AYUu
oNAFFLqAQhdQ6AIKXUChCyh0AYUuoNAFFLqAQhdQ6AIKXUChCyh0AYUuoNAF
FLqAQhdQ6AIKXUChCyh0AYUuoNAFFLqAQhdQ6AIKXUChCyh0AYUuoNAFFLqA
QhZQuL+AQhdQ6AIKXUAhCyh0AYGHESh0AYUuoNAFFLqAQhdQ6AISXUChCwgT
DyQQyAIKXUChCyh0AYUuoNAFFLqAQhdQ6AIKXUChCyh0AYUuoNAFFLqAQhdQ
6AIKXUChCyh0AYUuoNAFlIN2ccypD+R4XUwLvQ9+xBUrcayznISQgx5r2Qoc
5wTlhjTcIp3DNN38TpsDWzjIye1sRPUNSrxjOHcbBzixhxtQZ3tKHidO0MbG
8N4nlbpJz2zOs08cjp+GYnxGuX9yC798hW09YRq2p5O71BnXrhfE3des9eXC
mZ5K2R162tdttoNnKsPyRMrWd/9GDe4jNo/S8AC9GJ5E+cpu3rDnvfw5yvA7
hWdWVd024JH/BGm4zf/kiq5uHfZs8PBlmE1f5VvG639Fbs6xy7CavcpS9nmC
mTpJ8AjFnCavtIwWTcx8JsnlM3bdF5lqfalnHbUMm6HrLp/Nab0cNA2Tiasv
ncl5zQ4YhsfADdbN48QuDleGxbhNFs3izK4OVobBsK0WzODUFg5VRvyo7VYr
/tyWjvQENHrQpisVfXL3DlPGmbNwDOMoZcQO2XqNLPfgEGWEjtj+4J47cIAy
AufrsTiuG2BfRmgXXQ5iuv7mZUS+P6HTYUyX3zuMsNE6vt2yy3EKOJcR2YXv
qvTiuwSx347YLksvtksQO5XtsvRjugTRM20sy0iPMpZnGj/StCd6uC4cTzR+
oHUHr//4WKZx0vA7z/Bx1IJcLxvmPsTtvKKnkeuxuGyUNLxOK3qWh1mI3z1p
GVZnFf7+i9QLl1dwWsJ6jM4q+vWL1AvvruOzhBX5nNZBu3D6o1WTTRhH7YIw
2gp+G1/qhcVXOx6PMujCjkUYdOHHIYzYLtRliRMZrF0z8WH4vR2cu4sXgzCC
u8h+sTPvWscVHUb0x4pSLpI3PHkX4Wfo9nEzvRyrF76jF62H2HOMrvLu+KqU
1c9RR6jiJfg0o5d4/RMw+cgyxI/Z70WeaPwaL/d5/+5ipCrexJ2swSo/eoQY
N4vAMCyW+cGuD1vFS1wYLgv9cNvHS2IWdN5eq+01jYeYMLx2wmsaEyGPnl47
4TWNjYBnVlY7YTWMkYAn3VZbYTWMk4/P4XVMw2orrIZxclmYfmU4bYXTLF4W
XXRZJqe9cJrFy7wy0+JfPY5oYdRXrhK8L811fTqslNFeGI1iZ+7i5pet18pn
M3wmMfTexe0vW5dhsxs8iuxZd9F8vWx2w2YQS8vHkcvzz8YHdOAyhynVRdO7
DJP9MBnD1vx65+evri9nNDugw4bw3OKB5QPHbSCtFs5gRwZ8F1auzde1mi1d
/JZQxWPXJxTr71BbrV7850eo4rHlz0fkbzU6YogR38hbpP8qhX50hSgSDdQF
VWQYpwuqyDFKF1SRZ4wueAjJNUQXVJFtgC6oosD5uyjMYuyYzv95s+Is6OLM
hySLImfvggeRMifvYlq9SzH5Zg1mOZKY1xK6Hmr50kXSwYfPYoAubn+AmvjD
VLI4eReXu4vttxJs3Wp0p+5imt+6evvWRO4t0py/i9wDj/4N6uzcXZTchire
nLmLkuOQxSxiGXy74DHkQ8g6uHbBezQ+jd3FtNZlrCOI6aLXcfYPRBWbgt5p
2es4uwcihG3n7mL/9MhiW9Q7sw0ORBbbgtam749T839reKfvYucM6WJT3Oe+
eh5LH4wstoV10fVg+izpYlPYN2r9PyZw/xc4kMWmuI+Vdz/gvd4jHMg4XcxH
JYskcYsTvSuksWfcLt6IhxaHseJF/mVGYUdeUXGM3gddKMOnEXnq9qs+cBl0
sWvUMkLP+hArPmYZdPFY4qeQ2g/ST+wfhcMsZUoYZX+LQsmN2gu+hzRdFeVx
GXRR7/ChR8/zMIwTfXgpeizPVdny8F3ltb9ilPCxoo+f6cFdBl1UGyD4+Ln2
w8hezvD11+LHCh8gW9U3lsdvgGIwVfwE2XbDyP1aT03SiMOrePET5Kv3iQOD
DRAMpjIYoUC1TxxYnr7DUA4zFNgJo9LXieMxk8UQ+TYXL2tVPbZgxWMoiyEK
bK3e4bvwmMljihKbYVT4GoFcRjIZo0CFD6+5bMKVzUQucxTQYRy6C4dXLmYu
c5TYCCPnC1SbpQ6fgWwGKfHkHYbPLnwwGshnkhJqIemiBp9JisgwnrlxKKOB
fCYpI5YyeXW7bMNBnwf7TFLofi3Tu6g8ysZRDvnA5jNJqeIweu3CIcOwGaSY
eiQpvWEb6Z+ypYuKSu8wOm5Cchk2YbjM8QwRRtnNGkoMgy5qulvNtD1oMcrO
4ZLSMAnDZIwnFT2S9D/1lDJcNsRkjCeV3GFE7EBCGR5heEzxvIIwgk79URke
O+IxxfPuF9v3Hnu/DI8d8Ziigru19u1i/9AeO+IxRQ3ZYUSeOl30c6guto/t
sSMeU9SRGQZd7PCYopLVydBFOY8palnfYexfmS62eUxRS9YdhmcXJhtiMkYt
y9MJ7KL4xSuTDTEZo5b1HUbGdSvPUfr3+phsiMkYtZh08RZF4YuaJvtxsi5y
HkjanfqcxF4Ym7/lsh8uc9Ti0MUlCLrwkfFA0uizoDdftuBZhMt+uMxRTfJ3
qm3+X2+WXzF7+20+t+wyRzXJDySX5wAVV+DuqxV0UW2Y59gMUkteF5e7jTpH
Tn8TCF30lt7F7bWefkzZuD1duEjt4u4l8yfi2L5ddhf5B2/jdF2sn3huXk39
Tvb/ReejK2de7rMbPpPUktrF9hdQ1rdILIgubKweSJKutXmlh/KmKbw4gM8k
tVTsYn2TzAeZneNsXZw9VCuDdtHrtPMeR4w2w2iUSpJe8AzuIvO7lwBGo1SS
1kWPSXYOr8Mw2gyjUSpJ+X6k21lv3i/oLhpPk+F0XST9QDW2i7cL1W847YXT
LFWkdNHvpDe3ny46o4sqnGapIqmLLpO8H2nrR2l00VlCFx3P+f5Qnz/eT7hu
IKthakjpos8k74eiCxPT7i/fL4rs4nIBXXRm1sXmsemir3UXYv07TXI91vWI
u110mCfZeF10fxi5edF7UoVsXRDKa5oKVk/rortY/FT+9tB00dXnn9DLVsgr
9JtmunnRe9rvot9YCc7XxbwX09bLRyEnLIZZz2G2EWbjPO3zruJyx3F/he4z
yZe+6aKv2wdz9Ya7mPN9fzS5u2Tv18HMxqno8niyvjRumtUl6yv0GyaB2Tg1
Xe+89XeKnYfZ+P5j84lQLLd5apu/HfgMI+x0t57oTMtvWWy4zVPd5UNBwV3c
uz4xzvrgQSdu81S3uKdwOtuPIub/dBrsnd1AlS2fWVid7eKFUKfB3tgNVNnN
itvdW5uNs2A8WnXO++CGpYJCF1DoAgpdQKELKHQBhS4g0QUAAKiN5xcQ+H4E
Cl1AoQsodAGFLqDQBRS6gEIXUOgCCl1AoQsodAGFLqDQBRS6gEIXUOgCCl1A
oQsodAGFLqCQBRTuL6DQBRS6gEIXUOgCCl1AIQsodAGFLqDQBRSed0KhCyh0
AYUuoJAFFLqAQhdQ6AIKXUChCyh0AYUuoPC6FhSygEIXUOgCCl1AoQsodAGF
LqDQBRS6gEIXUOgCCl1AoQsodAGFLqDQBQTelgOFLqDQBSS6gEIXEHgcgUIX
UOgCCl1AoQsodAGFLqDQBRS6gEIXUOgCCl1AoQsodAGFLqDQBRS6gEIXUOgC
Cl1AoQsodAGFLqDQBRS6gEIXUOgCCl1AoQsodAGFLqDQBRS6gEIXUOgCCl1A
oQsodAGFLqDQBRS6gDTdiZ4IFu7DSHO54Qt/l/RQFptfzftXjj61Wk5zIq1N
5Xc/yUGxGeOonNBtSxhL/Ye4a1LzAcjqxKbbf7coabqUNBHSYNrldBsWXQ3h
ch/SUfQpo4tpfrrTOq7o00R30/LpuS4sekgAAAAAAAAAAAAAAAAAAAAs/R+F
gTfe
    "], {{0, 518}, {536, 0}}, {0, 1},
    ColorFunction->GrayLevel],
   BoxForm`ImageTag["Bit", ColorSpace -> Automatic, Interleaving -> None],
   Selectable->False],
  BaseStyle->"ImageGraphics",
  ImageSize->{257.2631618005746, Automatic},
  ImageSizeRaw->{536, 518},
  PlotRange->{{0, 536}, {0, 518}}]], "Text",
 CellChangeTimes->{
  3.5886699491202283`*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztnQmYHUW1xztz585MNvadAIEIsosiIKAoAQEVZFV2kpCw74QYIeyQgIAE
kbDvAiIGBESEsAm4QBASCIqiuIEIIom7ce13fqfOv9MZZ+7cvpH3eO/N/b7u
ma7bVXXq1KmzV92dxpxw6EFHjTnhsLFjhm9//JhjDz1s7Pjh2x1zvBXVBmTZ
gNft+sHwjP/zLCtutZfyPH8zrszvr3IbMIPnLKv9MV/wyfz+KrcBT8f3c3v5
/on+7/+ffn8vt8Xyf/3rX1lH/rvf/S4fPXp0/pe//CWfOXNmfsopp+QPP/xw
V77llltmtfzUU0/NH3/8cX9akvuAJw466KCe293J/63n8+fPz8ufv//979ma
lFp7f/zjH/Pf/va3+Z/+9KesLcoAgTK7soF+r+ezZ8/O11prLb+mTJmSX3vt
tfa+Pdn7jzzySL7XXnv504goW3/99fP3vve9XNkQv3fk7373u/P29vZ84403
zt/xjnfkQ4cOzVdfffUuX1k1f1xjjTX8aUnuA57YbLPNeh7aMP+3Btj566+/
zpWt4vda/otf/CL/6U9/ymUgprJXX321KOvyey2/5ppr8qWWWiqfOHGivZfK
tttuOy+zy4bCvQaI+Xve85581VVXtfdS2YYbbuhldhmKuNd9yIMGDfJrlVVW
YSz2vj3Z+2uvvXa+zDLL+NOIKBs3blz+/e9/n8tQxL0jf+GFF/Kf/exn/vfF
F1/Mf/KTn/C3i0FZlXj0pyW5D3iC8XVH0UuBHTDzj3/8w5/ao+zPf/5z/uab
b/pTW5S98sor3qxd2TC/1/JZs2YJCnsvlX3ve9/Lv/vd73JZGfdaAenTTz9t
8Key7bffPhfHXMXvHT7hYOxd73pXXqvV/Hub8UGOvFq+3nrr5cOGDcvf+c53
WtOpDGKgzC5DGveO/KSTTvJhHXbYYf6dTQqdDvZ5rue//vWv89///vd+zZ07
l5Fac/Zkzb3xxhtO1jyNiLLAjuNhw96X6f2BqL/97W9OXrY4s+XyJ554wsoe
euih/NFHH/Wnetx5/vrXv+4XIzvhhBOs1J7s/QMOOCD/wAc+4E9tUbbiiisW
CBsWywGSUVlblHV1deXve9/7uKzM7vqCpaUv2v1e8+VHuV02C9w7HDDYAbj4
4Ac/6N8fcsghg2LlMz5jQ84hxA1AEWWwpxHcayCjjf8O7x1j5wfGjCzyr371
q1wGBPd6/oUvfCG/7rrr/LrpppvyO+64w960J7vffvvt+Re/+MV4SndjcNBF
PmrUKMN6GjDkxELjqR53nrfddlu/IEFbzFZqT7GwKeOpLcp22GGH/CMf+QiX
YZ17zUn56KOP9qe2KDvnnHOKcWnJHH/88V4X7ji7dzTsFWvvvvvuKwpvuOGG
lZ1/1vMLL7ww/8xnPuMX/19xxRXZ4jxZD4MHD+62iOr5Fltske+2225+Mb0J
F/Zk97a2NsdKekr3T37yk/k+++zDX8Mc+Kvlc+bM8RngqR5lzMJC/HVg70Na
OzDAEjv33HO5DCvc0xK79957/WnZKJs8eXL+6U9/2p/qfm/PTzzxRNZE/qlP
fSo/++yzO32BJJ6w7777srhjGdTzD3/4w/nYsWP9GjlypJcuzpO9f9xxx3kT
dhmKuNcdLH0Ax7h8VguQv/SlLznH5WlSlEHan/vc5+Ac2V29j3qpeP2vf/2r
z71d2VC/11hALrLtsqd0Z3F1X72bb755Xq8nahUdIzf1XnsM+eMf/zhCyeme
72yYtnQRUzXH+KRJk8CgoeiCCy6w91EV9EGeT58+PftaaXiXXHJJX8NbMl5n
sUNcALJYgPjRj340nzp1Kpc9pTtNQjR22fC41/Jp06a5TOVp2Si75557HIRb
brnFAKWs3SWQPjNmzPC/03oHbYkADd6044475gMHDjQCsAVlZfPmzVuYbh/t
ux3YH1qIiehUZ05fddq9DmoBEofh8Hmuv1p/tf5q/dX6q/VX669WoRr6Cibg
SiutVKUaCgDqEkqu7LYG1aTS0MMmm2ziNluzXZn9k0+YMMGtDv5vqlrNB4bC
ZgOrpFpguKy88spVkPHPf/4z/8pXvpJvsMEGrpM2iQw0YtwvmHbN1sFvguXe
X6e/TtU6OKxYfDw1WwcHC2v80UcfbboO/j38h+PGjas0HozoKrAJB7bk3na4
brUO/MDYSdN18E/ixcO31myd1157zY2urbfeuuk6uPngpuutt17TdfD/UWfE
iBGVaGfJJZd0H0SzdVqh61Zop5V+GM8SSyzhboO3Em+aHzyLb2UdwUZgoQoO
Fl988fzII4+sxHfWXHPN/LHHHntLYfvvwlt/nf46/xfrIEuq1iHiRRyvmXUq
V++PfvSj/PDDPcaR6jzbex2/L0IcWH0Sz7zqqqua6lNjw+O9yy67VOLdv/rV
rxyHG2200dtufv8n6nwvyogOfPvb3yb6mf21WhMzvaw9/853vuMRr/vvvx/b
scOL6x5PXWwx96m7pvrQQw9lp0UV4q8RJMPKndBKxwsChp2dnVnqtYNwpMed
CXUdeOCB/v3w4cNPja9/+ctf5ltttZUXcx177LEYoe0BFyvt6quv9uvFF188
sjWEUHu55ZbDcZ9ffPHFqfFOx9MKK6zgUTSFBKi6zjrrZKfEOz/84Q/9eyNT
jyFhJPPOUUcdFUGdev6b3/zGIyYaA6GGipA+FZBuuummRTMXXXRRivUNdEjx
BOy6664KnbvZfsYZZ7ii9fnPfz472d8dnN96661enRwJPg8++GC+/PLLC2ov
+8Mf/kBQJQW8shQuJ4xOCw1Cqr3juJ6feeaZDsoVV1wB5N5wW77nnnva++g0
vG+gFZEwUjy0/o+MMkDee++9CSFlQ6MMFwPvTZo0KUKfg9GPnKYoJ8D4oQ99
yP/HljLke7yIZ4K9R1QbzreiDLLdZptt8uuvvz66rbvqzHuwSD4pEJUwCGlD
y7zZFpOJM+ayyy7zRWfoOSKKt9xyS2/GLBGaGhI93n333V5MXC0haZAzApBK
+dJLL+3BKuLDfIhgUv7AAw9UHONDlLXBGupBX88//3xB2fSHcfWNb3zDo12U
mcGVRuXh9Jg9daEZxVLgZQhLYyVeSliYciOywVGMm4lFSWjVsKbMELI7CNeb
3ItWE2f62Mc+5va4gVmROh+IqcNBdemll7oE5rr99tsjH2Vggfjx48cTCi6Q
QPgbpL/88suZAFc7BPNt7g714k6nCAQ1TIY5IsJNRoUZATaLCaynnnrKmzv4
4IMzzbkYoq3vquvugSi74447ipBuCvMOzL/85S+7LcGHacS7RzgYRyKoh8QU
Ev7mN7/prry0slKbpHdhKxPPTkPsclZD3zfffLO3i/8TlgRjNLgGRlXSO3gN
N4hG+YlPfMLLDAOtjXIwy9DLIFKWIU7HAQMGOJSseCwtvk9R/NQO7tMhQ4ZA
lwU3YXJ475hjjsnGxCJD4kJ1uvAu8IHG8faSSTVz5kytatYfTcCqremuEs4o
Hjt2bDFwMueA4Lnnnmt1eslsIwvJ+EfBhwx4z9+RoCAHoB7vwwo/+9nPuq95
SEBM5hzpYjvvvHP+0ksvjQ66NzFXNMHFCgM/Y8aMKcSYViFCh+weyo1D9zRo
oZjcF/JVyOc7rNqgH4yys846yxWBvMRdWCqs0ISCBYOlLplz6n769OleZrjP
RsfbCHnKIETkyyabbFIwbtiQYNIU46MGwdC3LeXOaJqlEiKn6G6zzTbzMtLT
WhwtVKLRagUqeaNMu0wjnhhIQXN42mmnLeS3Z9XTFpAzvyy5eowKjZvJYf08
+eSTHdGsyY98tdVWc+GsrpBaIA3+9R8elbE/Vla2WJSZPiaIYlQJqZFSUqQ7
oQIhlHNXG/OFdAPj2kUZyXDIC54WK7UHVaNXHNracE4++WTPiOk+nGeffXah
rlh71LVhZaMC8UgHsgSREDZRkiW2FPPdd9/dszaNv0gIokUgFxGji0cZq5dW
STFscQAXXHCBSz7SVsoDgGGXB4AURx20gRQDQOpJIpqsEF/B9YSqhXpn06eV
atzOezeVuBgAY4Rfz507t9UBmI7rZei6PQ1AXWlJGG/KDghIFSak3AYgMkdn
7a6XooNQttNOOxVNog4BvfGFVqGHzCm78sorG0Df7rYEShMqtInY/RsNYKAz
qv3228/Xb0mQ9zCIdp9Y7ABYiJl4h7w141Agkmw0zC1bH1kvg0gU1+WmFysU
SYm2120AapEQLwSI87pF4FkDlF111VUNgG/PTz/9dAcercOA3q9n+BNiOz1Z
k1bhRnwwpLojn4lBR6G6DaBF+JFtqJXTpk1bCH4s+3JdDBfqktHdC/BpqB3O
jnkVtimXjAEuygdujAAyzytS/kNRdsQRR7hazdOgEtAsPnQE1T3vvPMcQIR5
L0CnV+uetw42UTPozvSAgvBIP4QhkdJbEc2CGJyw/rpDzHvGtAtXGSoCOaSI
lX17hnipKO7o6PDqzN7ll18uYLHDUd4J17cILDKW+TaqWwjYUaNGeWqwgEUj
oO4CYFO2AHyNRERBSo4DLJR3t9pqK3VN2noWYYYWIUWEituWIZUIFQRYLxhK
JLXaWlkvXsVGRYKSmjvQ7zV/ZjsAbwyP6hgmpNPCKyZPnqzxMzH0zoYOQYlc
YzvLxhtv3OqgyISlzIBeaFBiKUtHGdyL94zZZatGGbwej45dxka4t7sbFVcZ
l03ZkNBS2fSiV2txp2uBuHI0SRcobmWwtawZubDBzgTIFC354NZGDtszvd+F
okaOQt595JgUqKIofctGGaosbhD2EHXEviIMyTBFDBvc627e3XbbbZ6Tz64F
04usL7OJ7H0IXO+7+dseDeFOFFEsU6JqUIrXyHStpRqg5uc//7mXmdCvihrx
aexs7JULL7ywQA20BsMgp0BoIObL2uXJ+blnUttoUAu114kL/tAZpABd49PD
qOzye73wCfGBAb722mtFx6xcVDLerMX9a1/7mlhSkfO97LLLel9k+ON2NZQV
g2TxwKdgFJrXnnCH+UG7tgJaxd21117rQzQuWQwBTtDZ2Zk/88wzMaNpFxFK
NaiR8wF1CLBuvvlmG5Bh1+60pT1RXMiKTvSMGIJgWjXhny86nLZwkaMEACAe
vM0331x7uUrp7oWR3SPj7wlLiUPhtsGgttk5qDVEsVtDyowQhYVPGVqXSB/T
kPlnF5BJLzm/YT6QDQ5unAwMF/yYpp6lia67Sqm9TFwQ5wZBrawoykiAh+Hh
JZGbmWWLEKV91DXp23B15Da5Hj0hSKSFR4b0PFNtsxaxU7YWhB35oYz7FEsQ
NFBms1uYmjg7MDXNDAo3WbubAJip7GWxoddB66YlDKP0sZXJmK88a6gGslgH
xas4AbGkCCn0QiVCAjwynBatIoH9EMOHD3ebT0jAX8577JNLSEhBGMpwNBEB
QgIbq9VAGDtKIOk2Wwf54JnGzGYg2ieElsduMi3H2ErpZNMT11g6kAKzpgzO
Y1J+XLXBylOGfQOUJtAL5XjPPfd04mS3Yhqs7yZ1J1DIDid63HyseawW4//Z
dv5uXbuUinfZHdUZUCPX4InUtcXfaICwRaRPlhyjLQ7wxhtv9LIpU6YUs4nz
Bs0Okbh89EbmiWbznnvu2THGQmBGpgrOXJOrxZZMdkzBvNiLtWwPAxHT1UyR
1NLiKNiPQxnxHI1CHsf7778/RlErrCh0nZ1jZMSHKIPgbrnlFrnrkGZ43rMU
qWg0AEKilBkiqg5gRvSGHvr+97/ffTRz5szRGJD3qCjW67+NwRZKtkuQ3/nn
n1+IlLvuustjWdp8iYPJ+GnDKUA0Q5KEEVoawQInOH5jrRS8CGyd4qkn8Hf1
sk630ihDkYLl8z+RKPZrLtcD2BoKxjGKKaJ5bGtgs5VVcyes471FotjayFbo
AezdgviFdS7CuEil5RuAyz69LLzIFcG9P+iE5A20fqSOSRlBjL2BbDOENIA4
eQxgaVwG7Qq9Atue33nnnc7F2JlsnOjAVuCteWAHPR0LReIK+xTChjBLQJTh
PboBYOi8bBdEjbruuusqAnZflLFzlTJOGRC5EvOhDA17xSahEnkSv6MML0pF
kL5eAgneD7+UO5f3iMwgcG1GGkGl/CESDQSVHGvovRWhujfKEAaoXgZZEYIS
wzOiz1ZqABJWA2satvwfAClt/qy7YFEAGyIy1bcgLrQODMh1110XFt4IOnxF
2Ic8/QeguycgkKchmJhwRhCQImZ35R6gOjKqwy8JSQU/XL41wMrJZPdEGfYf
ZbaiCwMDZRslgjDd448/3hNgKVOsw1eHZCoX3M9MaAEo3fiyyy5rBkBWMWPa
dNNNs68GMDfccIOLXHw6pZAGIVOMXChp1qxZOiMDfV4wup/FBMmTTz6Jo9GV
SDy/fM80GyUUK5owFOWXXHJJM4Ci2dE77py7AyKyYTBtCAabjNIU42emZTwG
q3TDpCmRSeG2MqwjHOZm1RURczxu3/pWShRZMbrB6YETHmZpPKcJYLGfwCKc
6e4oU0oHskHTjrGIYYFpbqrpKlHMpKDR4T4wnp9i2QPdMoXnAbOinuRfsM5+
8IMfeGb+SqWWIWHemTp1agMxJzMFrzxGK093Rivsw0Z1hMasdyEYZAIAqRyr
RRnGD94B0sJHBakiYWAEJMPIjjCUtLkLo1beqV3AjRIKxaCyGNtqAm5qCO47
ohVavvLKKx12ozuFv4i0gW4YleDG1gEuU+8ilpE8t6CDKJ0IA9OfceBiXTW6
YUJAMudmnHPOOQ00tt6BXbCAzL4vAnU4/VlneKSHR1k5+yL50DsdUnn50dg4
AwCbiNiu6il1B4u3ga3ZCERi9kwugc+hMXgQR5cQqbEv9QYhgmMEenJF1306
xLIIU9oCy9aIZoifElfFXWZkVhHA26MMxYvWTfwXOIzjHNzmWyPK0FQVkN47
oINdcCgBnARcElscEe+zqYI22FjSwOfVE2jTo4x4kySGIi+4clAdca8KNGxz
3jMOFKCl7jHryHVbM8rkwjRmWBWkL3cDKZ0Hkso4bgGNdubMmcXoMWEkqc5Y
9O5vizJlG4ERBUt0UAW7I9Q9jmHKDNyie/J3KMPTV7H7LwXFKTDMZTJNEOD8
QeATVxkRr+JzpAzuP3369NOjmHUPe4FRGXBN0Cw+OsFxa9CdaJYLLR+frGYD
kYzWX554/BW8y/ktZwQkWttcZr01YTMiGCA1RNMXAxLMESaFFYBCR3hN73MA
CkvflL0CEsZOjxdddFFAUneRh9+Td/HMMJomjCvccWQWcyTTLSVw4DiAg5ZA
cGHJGDBqADMFuCbye4LorHiVgCp+b0S6SdQGYluzRGafZummaAX/H8AwGyYO
5QlCMorhrBVlUr0In58d1dHW8ABgl86dO3dM3xhB+NM6GtnNUQYA2JU4PJcp
QYCPHP/fWtEbVjS6BGzMBO/Z8SrOSgCbMWNG1gQE8jGRvXtTlIlloK0JArgT
Wh5OubWjTFF4034KHEAWqAsR8xvdNwSItf33398PdvtClCluiWIrS15LwjTV
AgIMZcqIRE4OCCB4NFqOvLEFMKpvUiB/B2HK0w1RpgUL35KhwmFSiDsO5hIE
+IURMrhDpgQE8hCiQxo9H9A3BGXWdX23WShDgKLCHkvcdutGGTKDMnIEhAPi
ANIa582bVxGCa6MVQuc4x2ImZHXI60TkVkCQG0DZgw8+WKCBIwdRysgssmW+
fzUgrolWxB1Dhsk3ylLF6iP4aHJi3ShGYqG5sTCMX06JhlFYZRFUhCNtoKk7
MwIWGBWuELQ1uVHQ6jA/OSlr/YBEmtrDDz8MsIIE1RL1mISJ/apBcmVAApsh
iIZEwlPPaWoytBgoiQDMjSDB3iTkzKIw/EyOZsAgcR0UASKtHOu0bzWILo+m
4KVAhc8CzxNpfDJrIUW8rPgVN4gy5BJObeI350TZM8884/jaY489qoJxaYCB
uQ//kZAkh1g2IUTL2uVpwyizVeRClScRLSYMYRJ88TbF+1SD5BK/d/hgMFgx
FoAEzjlx4kTlC7CMWd483Rcdv/zyy86EuJ599tm9q3V8cXSMRg6Vag9AnP/1
46iCFycLn33FHlIWTacjCLarTEZSDKFCvI0vxVggK/IfiAOZ6bBXtZ7SeX+D
PC6KuauLmI5yC9gggh7w+uuv/yyaUGY5akHFHk+KMsI7TBUJX4P9XvO4GJsE
OAEwRdjbnR9h8mNhGAH9IoaNjCQgRY6kmT17VgNiQpSxOKBMlLa2yISgxaDq
bHAAgV2B0s5li8xzuLOUXaNuXokmlcuKc70iVIdFGdwC1yImcYffB7qjGX2O
Cz8FrJFuWIPIRXKWh3o+U618ll72RuCLkC22AJLK1u4nq0GWPDt1d7vhKeFi
Aln1XcCixHDSa6BaQv55dI1KCZ9EpJv2+olqXY+NMhQH0N/W1lb4DrDkidBz
ZGun3+uexoZzVHLMVJkEyYAABz0QFg2/sEabAAdGD1vlaUy0wrIjCoVabxqB
p0vbq5wIGWnlEdGtu/oKp2HKCL0UJ9pYM9orxJma8+fP36NvYEj8gp+jnipV
Hx6HyioeAX+Qyqf9VyQRq1eUSW0Fs4XURK/0gNSdPHlyeKGSJMKvCmqIzyJm
lyr1AGqQ3jrH2JpBd6JTTnFtole0GjQMnpSVjMWHwECMGhlKYxWLLE63CFcz
w8TUMiB2b26Y1DCTr0jAZfZBIrsATHBIPcRFgwwujuAYEF9oIlAVmuiS8RD9
uPvuuws/GYudJkgnlyZICJjwpym6C9MzO7FANWzbgNmt7y4ZES5fnpQ0ShlL
yVQCdDxpW8rAKw5o0ShRNlliPDXRJSuadGWs1/1KI8pSECG0u6Rq4uSmeftu
KPzOXkU7juOSsnnxKoYxR1HB0WxJNQEEAhtlDpekgFCcjLCugik4rpDe7Mgd
4vd2X7xQBlNjvHRuCV7WAXEtU9+bAIIIJx2OHDmyRyDc/T80ju8mdo96Aabx
SJMoMjcqYctRyRheMzOgHVicjat+5RobP358WBfJSYBrRun7+CfejPfRyxGP
xApa7BJCYPkiOaSiKlmk3BUxBGQdbrNdq3WlVQRPhTeZlC4ie0wrKSE8yduM
QRymNRbEG/GqXJQkObUIAWl54UEq8qTwB5IPgDNDWTFszAt/IFBLdZVZs802
22SCCjEo8mkJqg5ncjiXUSNi/zJEJKHK6bx4hxJoqUopzdQvAkM2OCn8hx56
qEsHQjC/7gYowFcE9IAgRXySsHmkBoAyE1I0IE+1oV0oeGliT2OhIoTc9jdW
jjGRaQpuMeoM5NcXHeJRAbESmwkgw9iNNxWQYD2rjfZ4n4gYiTiXX3651yNV
txwEAUpY4Z133vlaNyg5C7slKP1QejdWUCMQryTG6shzM6+ViYb0ZRnmpbVC
VAFnD7Nt3ONXUQxQ8CdCA8YSd6kG1+igMvKrtTuROSf6bLx2/UAW0Q7cPEQ0
QBruy18GAAgDLASSJoyLVgRgTPQQO/y9HNuaMMIGARxaDFYRDgW8n0gp45VS
+xECMqkr9n5g9A5Zyp1F7+wf3yC+Q85o3zMOS0NLYXGg/lM+ZsyYql2PjeaR
reoan7xNe2G5o1cwK6D7lUA3kpQViE5kAm3nar2OC5RCTPic2RQMLZK0Dtfl
I71Owbkjjjgiq9jNwdENxoqOD6ArbHZ24fGR21kZH0RZK3ZzSHSD1kAIRPYj
ijgUzUf1yoK+YjeHRTf4v2AXpA2DfryB2sG2xKJ3c0RQBF4VZXkgLMC/11p8
0fs4sjQUeI9+VwIFMXYr50MXvZuUB5NyyqRrmjLX5oZizZGo6n7v6qFLbZqG
GUOu6fdWuNeK7cO8IZ7JGuY9rIJNq4Gbdv0mpw9aJhonF0o/ZwuRI9krnMpJ
xScL7zAxaHByTwnk2OBE5wcGTuClcDOEy+zZsyuCejxlbe6ZSOE2pfwTGiJ5
wat29ACntsazzLW5yhhOGyaQFasd4jJmI3YGMcKXdao+3N+YbVXsToimyL1B
8ZEmU5xWqZku68SCFuudMmSDSRql0BJHBZyQ+B0laAnJUIwxiAq7WTVoJ0YP
2qdGOc5dPppqVihTjSYtiNjvDf9GDhtP14FAMFYgIZnMJIe0DwiVH2ShddIH
OFDjfdUAPTHKMBsDDVkJyk5XgUEfifl80Md4EWoWgXDADmWcraTjgZBIECjl
kbyVbV4NNnkaMS9YA5gX/nYtYEMV5+VwDxe/f4MXTbDxuxaUET/XURIsfLKW
8SChsgPbFq3AtuBcDIxYbYVtC/CUuo5PiQ/cHk2bZOcEXpfvQGUdkTTCh8VI
lDiMxfe3BhViC6cJ5XGUWkDVUY6WezkK5KxZs8SUyL5AZ+cMI2m+hGXU7ZbV
IJoUEMFXoV6MYZz93krgSd4S/d4LCwblhGQocRAcflryRE/IU9mqGignByik
FFAWerl8fajyLD0wT1oXH/zbvIpKgC6phaftojAPPAfYTR9qDRr8xMTAs+RE
TNAMKuQdfjmsdj6o00wNTBYWaEuwzf1lyUWJUotFRIIcqufW1QA6JQCCanFH
QR/GYP4Zr0oIcDpOexAvOQpIN15H0qEHAAFx/UsvvXSb1gBgdUK8TIShQQDo
HJJ0jE9eSCH8qayeAQMGiF4xxwmzIDC3rQbEqVEG4w6mnemHvMjz5Fd1KN9t
t93a3IXbwfl/BWmSYgYXMlLfvpWO2z0Hnxb5sRtTcv8er2LHRSeFCY26BXsj
o+yj1Xo7LcrkoYA7/i0gIH9CIephw4bVQu4Tc1OTi9gbcir5AutF9gIXzuYH
HnigqhEkGYaOh7GTflsp3TU57A2U5xdxRdYdwa+fxqAFBiLBiK6ic2xilJEJ
z/QTiNLOVYQniSO8sXgMGs8Wuoiu9OtY6X3yhKLcytJ5dQRr1f8LAbE2luPD
NsnYhKf639WptD09nPoFBLjtsElJ3Wjze7tzQryJ1H/++eeVSkj8DQ0BRXVw
VEcTgTThQd8PYGH9VKUJM/2bCB2UgU3nH3V5XEweGi54D1oV75r1Ju4MW6II
tQOOXj5YjwhURE6yoQEw78BJiLo8F23QFYnJ8Fouo4msiUgTdvVCSrbxB3gz
HBJo4Yz4+21lS5NXBAkFy1ifHJ0ooXjyANF1ahs/gBC20IVShGcZfmdq4eyA
nXMA1CGBXmJ5TcQLWeB4kHbYYYewZZKFr50jECZ2zPz588sHwwEI2RK2+pQB
iyMWmOLySLBzZRNstIYrRheqCqFC1Fvex+tm2Hk6mlI6GZ1fffXVTcSqsYyI
XuGKOzZaIc5LK4hIa0XUi68RecWT8uhQ/PGWcJnwVQwQu0z2Dsn7nNeh4yuV
3oZn6ZprrmkiV0DcHDI5JlqB4jCbKN97771lpmM2MZGmqURqdkpuJD+DV80w
1IGf2oIBSRgcTaRjKPm/DIcOMmJVmGYmlwSNMs08CQ4Mc1Y6sShDyBPd4CBU
Y3A0kaDCiiWxnbyBY6KMgDfOJbZCCggdn8mvVa4evbHkICD0WJvnb0cxiyAL
Z5upNA3Sh+RCQolARedJQGCjobKSDKBTbVD+CABAPfZ39XhVeQPEq78Vr8aR
oCpvkE0lIHDjdgcCo5AW2BMtTLAwKVt33XUzQaD8Xfa4fjMgQIsT3zZzqUFy
WyMI0I1pgdilINBmki222KKAQAdJkmL4eEAAqpBRAcGoViBIfmt4ARr31KlT
y3OhjYAmfJVrjxWFXs6Bl+lcjrpzQlYwq5Sf1SOq1CDjsidgdDafdGF+GlDo
+PGPf+xlZM2tFtCxEx2ejX1qbOkbUazkGy7jVA3yb3sHIqUtYsJgyFrjwghr
EpZMLqIZUMNi9KwSMXLWpamZmeCBXaP34MJtvCWmJ3iOi1YQazBxdCCTBeJf
+AfplP2rSryDxbDaOGtRSgd4IkmJNx6OJok1oipRf8KECQ3SyXsC7PhoRbmh
qPQmWRaLYpyXaD7kKxl25ADEexeZQtkQv3cUflRpMIhss7IeiZZkq3GZetIg
+74RmEQ24bm0YutN+CNQIruro0T1Oh965MiRiwcKOeQAvZasg0di3jHdEdo0
gV/BxEWjQ396AnB8aSZJzIEJDPL9+F1uvepDrJu1CGGGNi9XFwuBr4lwaMKh
Ngxf9mgO8XutcOQsIIK6cz/qyrV4+OGHNzqdsacRnBBlsj8W6FQ1Fxs4mHbZ
ZZcCNB17teGGGyZT0HAuiyiuNt+Eu7BmnvSB9GPSEJsSSbDRbF01OAu1d7pI
m0mZOe31Nx3BgGfpdPmKRtChgeAVgbMQ+uV/I4z2GA+vUGTEkM0KIFFBcLJk
4Rble2OyDQ5V7p0ZdRSJPgISzXXGjBk6ugz7h6RSXTgKZ0dVvBq4O3WMOjuO
bJkeVQ0QD0n46c5meMED0WSV2MkEMFHsA0wBx07XPUlXxEjgHfQp3sHNc3QL
fVuTkA2ZQLBfpA+cBVUN+8MzCcO5ET+QjcZ3XlTFdKVIB9yyOJAoQHNsK9DU
i6aABj0d62bvgILBw2tQLE2bPTegQMgCMOSGkMBQgkbYNHd8K1AkuU1mK4aP
6dD7RDEKhZQC07jPKQFQXmikB5HtgCNnfN8AsFSYU56Oip7YqZSFt2/OnDn6
YWjCknL9H3XUUVMCAAJxSHdxCtKnkKQoCw1+HkAA4M3FV2jCLQBIliReCTx3
YIHjnPaM93VEPAczT4n1gAOI9AwZuOjABu3EvntX4v4CLTrZwvhT4UXkCBMY
3iNwoH1A1DG6PDsAwEHMObaaBFiZ8fUT+wYAYUNEA6fZsQEAgVpFQHCFGFWn
rLpswbn/qGtGkmcGAPiH5RLlwjdjZZP6BoBjv6FrtJvjAgB4j2xsFjmW267x
vvaqsVFHvSPNEQhxvLjLJGvvlL57J6OAGrvvvnth/KNOEJGCKjBvgWTevHkf
LwFAR5y4cXrQIIqJDhlSkifeQLa8ndY3FMomwP91QuCARBwdfI2tRCrAjjEJ
aAfggCk38j8toEBhlDoSzbnOxhkip1eDYkLggjg+q1nuC5Kybdo/EoCEH8k9
PMbHkzs4HZTKHJIgSpQFgw4ZAYDGWc+sBsvEgAU2B3ehnAWONWPcZ7uABUEK
UogOGfM5OWBhLfMmzgG+xssCUSPDDJazq8Hy6YCF5BtoQ5uQyBOxnrYtwYL7
A5+4LVP9gDoOIvwa2O5SXJhjsEyW5pRqwJwUpAITUdIoJrl1E8dftTuBYyww
bDM2HZI2j8B2FEl45c3WBsq51aCYFCihJyYZfQIDh91LNg8fiK+JBRD80wGj
jNtwcWLQLvq7tP4s3D4EkGDL51cD6JRAC7JNR3qw4YCft98y3oftheITvvm6
EzK2NxoaFz648YFG+K4OcXVV0iRgSC+BUhHKU0tQlnfPoiumLPxBrkeDFG08
wNHFu3BX/sJxN9poIx39htBmJVLl/PPPPzow3x21kUh4UTV4Tw94sRm17QcZ
aYpqtkl8x/vyuKHAsaG0Ht+RACfMEjQwOijOrOMUEcbGZTSikzewJVUsUwLg
+amTi6tBr529nDwjm5pgFRbBxqVlJNWSkbGMdAQMMwFBE9U37LcFyUDMiIc4
8dR1jjHRPSyCMn5rSoudUDLN8Mbnq43grICSxUwZIogMK5vJbKP4DteXBEBs
zixcYMhZzDyyrvbYYw+NgGBLHHDqqxdZsU8QDqodo+M7TatZDG1xrmn5yIuK
gzk7Zhivgk68YvmxrRECY7vGegEF6hC5sLB+tBLq2MB0ZB08NU4NRU4q0MYG
qjiNJPNTaW2sCHW0dl2M1UVqm3eYHLeAwGZhTRkyLBzcaT9g86NMOxEHugGB
CCKigtcLFRFFlh+lQAyxTeSdMYUYGlIKlQG4QmCCEyxph4vlhDg1zc/3a9nX
alYXwzf9vU4fIwNbqHZ0iXSePHlym5892uGCEcggDmIK9GB4v7LaeJNJ0OUa
uVRobdnIsiLL0QNF3ehntRKXwKqEujFxmRf/zp3tBinOknI8BePNaLMes8Xa
hm0YajL1g1da/WwahMcAiTexIpQKB8446KrNDxVNcafY1pV26y6MCWaKlIae
MHFeoJuZJzuDqbBhybiHoSlat0pMLiOnTGfVYZWZTuCHAnjeW5YOOYc4OIGp
3e81V8jjtz1CkqXcKeQK12OPPea/bZbVit+LocN1AkJ2lwUo6BDiyCw4gEaB
8ewrA+D6f8cBGbiEmnvCwWejDGsOvTgpPdw7tdXEL0J2+KBYnRymsnxMEUoR
ZeUtkVi5eATeE+SChhtt+5UOQiU0WyskRhpQQg/cji1x6OW1uJdluMiQedOv
zMHy017FBZyFvkaPHp1OeWh+gVwcSGcDIaBzmezzafOdC1naq6I2dHA/VIiq
rc3qGPjUhSdJo0EuRJvWQ4qkI4NZIGUUgG42adFbPfosuQSLo0AZOn1ia4wb
N07yAr8qe0AFPiDcWg0Ll0YZUQboa6+99ip0MLy7aAe6oPvBgQUiM5TpdFxG
Rn3s4w9Hm0RkKcP12ub39PNKcY5q1hFYgLcQ+bD2rH3uaYMtH9Lk2r2sXhx0
pQu1T+0qOZCeb6uGAm0sJ8UKE18XgkcSDJCx4/Fldvm9o0jI5EIppI6xO5mm
+GyjKRtB8naWkjUyHdJOs5H0X/AMVBVEMfVvvPHGO6sN6OqgGngqWn5c6hDZ
QpKSGQFp73KWdqzHaykv0MbHFJBkzUCkbhtDbPeva8WuRhq4qxqA6dSJDreH
8RbpwjAwvbnDE4NqOi7NX1aiPhxXH6qYPZx2tTffu04eYaHF752ltMh1qrXj
38zur9Nfp7/O262OQv6m9TZZp72oA8/T3ohZfVfDeIE9RhJHc9WS+oj3kjzh
ZkcF80OTYv9uVUy8HWeplTpKY0Xja7YOWi/Suhlc6wwqPAO4QnJJhwZzqjok
sGO4cJphs3UU/CaE8VbWQc3Fj8cJT83WQSMg7MLvCVaFjY1kzdbRlhNTDivX
Qf3rr9Nfp79Of53+Ov11/q/V0VG5VergRcNpW0WeosYSr2IzTF91tDedlF1C
Gzz5N8/0XYfk5mbrdP/1Eg4abHY8JEGANxL2mqvT7olnxFhQ5eM3mJoZEqoi
XfETy83W0ckoF1xwQX+d/+V1uqIOZEpYibTmNr/Xin2pvFFfhLb1u152Fc5v
7bJc1La1u6PcNhmRi952R3EsiC7Sf6dNm9a5CE2S30N4LQ4DczfnvHnzWm8y
/agBRiKXMcKBLTT1dibQ/jr9dRatTmch5OQZIwmHtHI243vBzN7bSNuUBnnA
m3AH2c0k99Ie/gWeWc08E0dvqrkFP7oOx1LMmf3FZCHkUi+e7LsdUitiu1PR
Tpz71FQ7Ujn025plPoq6Q/tFOw3Gldrp8Nxa0ofFM0kIkBz5bt/V2d1A7EY/
jEL8hrI+qmt3L/FIjnvkTHf/5une6/j91bfv9yJ4iBU0FHWaWCTscSK3ilzY
5up4ZMwlHPlgQnkD9KkaujcbiZlobIQ+qi0X1XQkfonm+55gD6YWpIU3talq
9WKXJheGQnGe6lN94xLFmjOayytDC72YkwYrTExIZ2/APIilslWaVPMClj5X
l//2sW+1KDMzHXyCBtdUMwOL3xDhAqN84GU8k7tFwlpfw1JbsvHIqNAxARzL
oPQxdjE011b6jTsyIkCJzgUk+41hsw2g2XaIjsbBGX3aT35/G7OB/u8rfu8F
fizkgBdShQH/BUd3XkU=\
\>"]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Lin-Log pig", "Section",
 CellChangeTimes->{{3.5886699076211557`*^9, 3.5886699200563774`*^9}, {
  3.5886699748154736`*^9, 3.5886699803846827`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListLogPlot", "[", 
  RowBox[{"pigdata", ",", 
   RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6961855152369595`*^9, 3.696185529438295*^9}, {
  3.69618575775659*^9, 3.696185762519101*^9}, {3.6961858104836617`*^9, 
  3.69618581713624*^9}, {3.6961858615070667`*^9, 3.6961858627394023`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
     0.0055000000000000005`], AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJxdWnk4lO/3HrNYkzURKvvYt8HMqJ4ja/FRhEoS2ojKrmQnRVmiXVmStIek
yFL2LFkqS2TPLvs2M/i9339//8xc9/U8533Pc859nnOf63qlXC5an8bjcLij
2M///usMxW3FxsngE2igMXpzFq2HhvYyesmw7air5IbHHDr0kvoH30KGUb7F
/1ZM55FE1qRTVAUZ6mt0HU6LLSBlNiUt+mcytJju/tr6ZwElL6WuJH4gw/e+
vTiNe4voZF9GctZbMoRqjCvv3reE6D25Js3ZZCBQfr8lLC6h8c4vg5nPyLDE
pq4l/mAZPVEYEVx5Q4Zv42mDU5QVdG5XOwcBe37TyXtD6nUrKCgh9YBYPRk+
9xkkuBxbRbVP1RqeDZChKNQtvXxsFT2sFfrvKo8iTBnnFIn4MlDOLlO7QHNF
2NsYMZK1yECeuj9CCx4rAkcP0fbSaSYKUdZa61xShMzWQTP9T0ykcVSy/ZWl
EoRrLHUz/jKRU5P4z6qnStC3/cFKxAwTpQhwTl9lKYHpnlOGn4aYaHbFtqvD
ThlYOa/KJH4yUdtL91/WucpQszZmdbOOiUL3ZlVtcKnA+h5V4c5aJmIWJBsU
OKvAjxOms+0Ypn9LuryjSAWWLs+cm6xioqdbe04LC6nCWNCBlwFfmSgzz7N+
n7sqbO7Y8Vv5CxMpiv207S5XhTkr7TNZlUzEot/QDRFXgxFFyzJqIxOZjPXF
tPqpQcm7j54GbUzUr2eisrlZDfZZMayv/GGiMpHKYmuyOgTOHahmDjBRO9nv
8YNQdRioqNl4M8JE98aKJD52qEOV7WTu2Qkmqs9//FJ9mwYYmQkZoUnMf7pJ
ZbepBmzEBT+3xvaT/TtE1nw0oLqmy2TPbyZaCJgwoaRpgEnu1h5DzL8zxy2X
I+s1YN7MTtXpGRMFSRVNJa1qwLC7enFQBBP9Z+JSek1BE/SpBD7cMSZ6ZpZC
hUOaYC1wxueJNhOBu3//9mBNcHQIqd8vyESBE5tcrmVrwitXn+6ANQbKCKYG
O/3QhG3jP23VVhiIeMLIR3tdE4S977+J3mCgqu/9zv2yWnAszNonh5eJrMXW
rqybasHunn+TIjuxfBpe6NX30AIyNyn2LY2JXp4+O150Rwtue0QJqzsykZ/m
olFghRbM/ueZ//QGxhee5gv7ZrSgObI6+UYRlp/cBv+9otrQa5URU4Xxodzw
IVfkLm3wrSuVH+VmoS9hqtEaztrwSkZQMEKThT48khv6eF0b1lMt2QPsWUj9
BjFiW542lARy7WmJZKHg5T8vX3dpw0JsVnLIGxb65J3KO0qiwEH9HY90u1nI
aePZJooWBbiOsrKyBNZQPq3giMoJCuwzLmBwGayhQq/L2tHXKHDrwcnzugfX
UO2Lcrc3WRTwXZuprSWvoR91tzIiPlHAXmzPTGcdC/31Mh04XkkBTXaTFO8D
LIRXqtpd24St7xIP1ML4k2T8jZDRS4HfmTdzbM4zkQ2u3fLbIgVKd1OU7DYx
UfPo1FijgA7YdncHVmYxUMNa9p9ATR04p8ZXrExjIH6lxjJRKx2I9T1z0rR5
Ff1Xzqh67qEDrlOMN/7nV9Hufv/L/BE68DS9iXyTsIpK41tqiUk6kNn0/tr+
iBVk/tGA+1iqDhTlWMu+HFlGPBTTgnvZOvCpz1nuFiwjakCCwZvXOvCR/+/q
0ftL6NxQ7tQqhifjcx4VTCwiVuTdGv8XOiBdzdMdq76IRI+9nFbK1IEtzauS
4LKA3ms3rnA80IExOd60psR5dMrQoyn9ug5oPJoeVvk2hzQHfBt9vHRA2+tQ
3gLPHHrD1bL1tp0OCOdmknsOzCI2jfuKvLt0YDUsTLc1YQZdivDTGJLWAalz
2zQaU6bRjbpoyzpOHThCbLp/he8fOjUXIrI+QQGDfvKgg/Mk0nCWLND4TgGr
qeVcwZBxFBnB+XF/HgVMiFSDUf9R1HpjvHDiHgW2Sqp2HL84jLw7NX45XqFA
zsil4TKnIWSa9Ev6yTEKKG39zS9PHEB7Y2viqxEFYhUK1fEqPYibmXtUjoLx
4UgIudGrHal9Na8uBwokfxaN4xBtQR+FNPivu1CAh2j12WmsFi3xF2UExVOA
XSJwkfdaBTI6obds9pkCC+VtlETPL2j9W9ePomEKZHsKBR6fKkavii7lWArq
wMHHZ84/v1SMctpDKEeweEg4hUwedPiK7A6NvStw1IECfst94sxa5LeRFZXr
qwMjyeFHXjxoRRbRJsyxMB0I21p/NcbpNyp1+W3iflMH2KZuayfL9SP2nhWL
32k6UJxwZvCN7BDifPcvoaZEB57gbR0HHP8i3dT4i20DOsBbq8TdWDKE/M9/
sK3k0oXAXyEuulqDyObes4+earpAy9u2tdpvAImcVEneZKkLX4IiqouKBxHd
Q44t5IwuPKi62p0cNYza/sYV4QJ0YWKCS5t2bgxd9x1vNgvXBfPHTQ6ibyaQ
s3LbZ1qMLhg8FPidGT6FLo9dK5pL0oXIx++u9J+fRut8aKY5XRfE1UK5d36b
QU8CFAdr83RhrnclT6RxFn1na5MUqNGFTasqrhGpcyhNMW04oksXrs02qAvt
n0eKanEK+tO6EIzb7z68NI/SjZH9Q4Ie3Dp9ws7//QKKjlvFGYjrge2kUKaE
6yKaClLwWNLVA6k0k+PzrEVkdNX+g84hPagx8NyxKXgJpR8VVGh304MvL6r/
/uZaRjUVko8eB+jB+f7Cp3feLCP5qgOsW2F64PWohaFuvIJCIm8+5I/Xg1Lb
+50vHq+gM36mJj7ZetBRasfJl76CyE/+S9zeoAdW82IPh0+sIO+ipqTbC3rQ
57HmtEZcQbiOm0dIYlS4rNBqHft8GYV1DvU91aVC4OORigrTZaQhI9DocoAK
trz5R5x/LaGjfYxB4TNUeGMffTv2wBLKs+c+zBZEBTHvtVuPviwiE8rNx5dv
UaGw9bT2V6x+21N46jaeUSHpxwHbpPsLKJDw35cXxVQoTt8c6TY/j4Zul63+
a6aCY4LYt1I0jyYJARL2/VS4rVi4iRo+h77fOafYNUmFa39qord8mEW77mum
Vi1Qgbl3xv1QywzqqCLPjzOoYHh9VkssYxr5vyZo4Teo4K/g0SThO4U2l+fE
3F6nQsgkl81bzQk0qa7KH7dMha6e5+P0tlE0Vrmr5Ow4FZQfbfzQNhhG9rrP
OQo7qaAy8eya1OFBVPnowT+2Wiqw7wv6KCXZh5YptqLaBVTQ9xA7LWjRiXaJ
/iOWZGL2a9nsTuUtqJ9WzBOSQIWJr/x7Pm4uR9bUMlvDy1TYV1dtp2eYUrZN
umt9+SQVUnxTTvIqfS8rT6cmzNtRwe1a1ew7jd4yCYISw/MYFWQdtWqNj4+W
Bdq+fMjlT4W8Cf2EU7nTZUkML9WMDCpw3dK/xiYxW4Z7FVOl1kqF1w4mYUfN
p8ukGKDhiZ333s+RupSk8bKwqUWuUXkaOIjK4R5dGikLZPcNa7WigeZqy+ba
iOEyosVAcGcoDbohxDP77N+ypTaFpplnNEjEsYd1ifaXQdlvV7XPNOCuK8C3
u/8om9N/uKhTQoP1mrvFSS55ZZuEJMgxGD5yRzLIR+Ijionxsfv5nQZCkR1L
5a7VaKzF7Bh5gQbbPv4zFNvdgCLqt0tcl6TDDP4lOj/SgpTqim+c06WDw8Yr
HzmVDhQkd9dZWY8OWpwfuP5W96Kfn6Oyo8l0+IR3bOlzHURGX6Q9qaJ04J8g
VzD3DyNdBUvNuk10yHDdkf+hdhSVl5vU+RLpUKpWwRlDnUCi5/eEZ7Jo4Lz/
gsha1hTKCxDO3Viiga8xND0bnEai5BO1HzG8LHXhpvnkDJrzv14fyqRBQObN
XQtNs8jowoLbJzY6RN7tO7cldw4V0siZphx08Dd25si6NY+MfolN2W6mw6pK
OMvfeQHZ19j+MNxGh27FOy6OwouIG3aof1GiQ6cpre5X7iJ68vKFQw+dDtcZ
SvdC/8P09B8xzWdGdPA7MUe8NLeE7L8WX4zD8FKKTGbs/WVU8ulUWT6NDoNy
lS2vVbF6Di1lXZelw8T8DhGD7BV0MMXr92t2Oij9ZMi3ca0izl875doHabB0
f4Lt+MlVVHngu5nQVxp0BVpGkr+sIom9/Mb4JzT4PvnGu1iWgZyEyu2Z0Vi+
vdmINgkMNCXMyja/QAMdZz16NouBVnar1woepsHTbk76xDkmSuX5oZK4lwZB
jMsXOTD9eOD+0wR1bRp8SlcIcdnPQoIhUZePK9Pgq71sp+NnFgqdFVE2V6VB
7EMzDhulNWS9mrCxm06DzE08qobJa2j8xJV5v4M04LzlQP4wv4Zuj5ceXnOj
gUW72u1X/62jjyM177wxfk50EUv0s9fRT2IeZ3AcDRortL2nSRvIjDv9Adyj
QZ/T+HiJ2wYaMD8m5Yedz4vPNmuqYQNRk5M2CeRi/PQ4dadCGAdzpXmxX8to
8MvwY2IQwoGeX0NybR0NVnSHk8XdcNDIT/s+10oDG+elV2q3ceDOyfpj000D
v3wOhZYvOEg0+Cz1fJQGwcV0o+lJHDhSfun0Y/yOkD3HKBNhg6IUzRmjNRqY
3xS+EraHDeDvNc4gPB0kA3FVb0+zQYNjbX0JJx1+NbR28Maxwd6jNKaKIB2+
ndnbtvKeDerqurzEJejA11V//XEnG7zeWvRzUJoOxd/8RenrmH25R0ChPB2E
/ob8fimNh2vcfcZ2GL/sdmRf4DPFg5G4wb0oVTpc7vQPTD+Hh1PS05OPVbD6
kjgexBmHh8nryssMBTr0z57fy/kOD8qy9n1vFemwi7Hi8rAZD7GpfkWRe+gQ
XTH+V/kfHtZ0z2qon6FDR6rKm0c4AmyWSzs7f5MOR64RNMzZCBAT1eDs+ZAO
p/ZUa/BN4yGm0PcmWywdRAuDgmqb8CDJcv275E0HivdUnvAbPOzZk6GM96PD
HwauiD8BD1pGQRdOYPam5x8t1F3Gg56EfODDRjoMpQgu1FzAA+txtvPDKTq8
LMTfVr2IB1yejuXIBB3k9EVUdl/BQ09z81xWOx1Sh803IhLxID4xGXirgQ7x
s64W4S/xMB4herO/gw7l4y3G7NV44JV6f5Y1RweuKvMJ7kE8PFC+rCVK0oeW
62eyzfEEULqu/oaxQQfe8NyLjlIEOBxeV580SIcTXV8uvaITwGJniLl4EXY/
WcfmHd9PgFCDH6MD8XQ40B+9rH2IAN3KuHAbNzqk3S9Zij9OgCfvR7Q/WNDh
VvS1rEpPAnT4S2SUUungpbzrj2QcAYgDJk8qsfiTT6mkvH6N2RPa32hh94db
dsj+6G8E+KlqattNwuLbUk44PUCAc9ZKK/6TNLCUS7yct0qAAqk3S1+baVBl
N0gOFSBCjpp1rdcHGsjN/hvzUCRCoFH4DDmFBsLCOod1gAj2oppR62E0iA6Y
7+6zJQJ5sZcTd4YGKe67F+66E6Ggn63v3T4apBU04DLDiRBQkjj6AKvnsX/5
gS/vEqHvwtlBex4aGAe3BcILIuxKuyVhNUaFkvjDzWWFRDhvhissrKaCUFuU
+to3Ijga7Xl7/ykV6uXI9spdRIBBN7Z7EVTQ2VMSHzVJhDifOwuHTmD9+Wq8
w24WEUT1PXHDNCrcX1wh+HKRgNOp/0+DIBXS2bY59QqToG6z1WWrCT0I/lFW
WreDBCIP7IZ0KvUgh0Lu7VEiQTF7VafGYz0wO97by6lLgqJNeRyX/PTg7NN3
XrIGJGgOPnz8nIUexP8wmDG2IIFzrFNivpQeON9ZkHM7TILckatkw0VdcO0b
6zBzIcEhxzM/LmL6z+ZtI1+FBwniCCId4g90YZT9vY18AAko2aMhVHdd8CjV
EC8PJ8F2lk/0pj268J4R8FPzJgm+yqce3yqgC89u97p43yGBiyjpSsWgDvgF
aLoNPCJB3/FHJ9gLdGDG6GsXMZME8bIUH0VsnnmaV32F8IIEbs31F1TtdUBu
p7y55zsSuP5i86lT1gEdgZjUkg8k4NrBP7ZljQJplqc2OD+T4MPm89JF2HzC
4Xa6W7uMBFGW02wqGRRomxx8M1eOnXfge/MfHwpUGua9aa0mASvsYEqlMTaf
WEznX6kjweRcIGeLCAWKs2PdtjaSIPOnN/HMqDaYKZkiq+8kuB8z0F/1WRsS
g6UX32N4V1/PkGCiNhwP9QolNpFgv0z8eJCLNqSx7bvmjeEeeWHOSQ1tGEwp
bEvE8GzgrzgPlhYomHetEDDMLutqcbdWC+qtu7rZsedlpdiXn76vBc9eiHJo
Y+/f4BVVqnPXgp7JuZw/DSTg1aTW7wctqCP+Ry7H8M9dESpFQlrwr7zKzwzD
esNT80t/NcFCUaN/Sz0JLtw04tX/pAnXjU0/O30jgaQH7dLBG5rQlbg5pbKG
BJpe/7raHTWhth0YRVg86vlsXLdoacIOP9OjMhguEDwXNErUhBGVnTPGVRj/
du2+X9auARelQkQcK0jA99TIrfulBhyLyyqhfMHiw97MtxasAY/oF39qFJPA
LnBWovKgBohZvhpq+EgCpdojZjQZDeBRTvLZ+p4EOlU7nEIn1OHT+Nnp/jck
KBUWQPtvqcOpqvbPJ5+T4LoF+1CBnjpwXd4idxbjR73QcwXtHjUoPeYWeDeN
BC9k9DMso9Qg7ENIQT7Gp9vSrQICSmoQHTv0988DEij+kFKeaFIFK9XA+Ny7
JHhV6M193F8VMpaia5aSSXAmt2roiqQq8DvqzL1PIkGZmvf5/EoV4CGPGjzA
8AGbm3co7irgv6fDMO8WCWjPyH/q+VVAySqYHR9Pgla1C6aWBcqwZsOZdeoa
CZpG2E2+OygDbZvwwfRQLP4nrrO7EJWhy1AxOe4SCZ4rit+de6UE08xT9096
Y/xuS7lxyVoJuPXb2NbdSZD9eyFVe0UR1jfZXb17igQeTqL0/amK0Bj5jNDq
gPHzzy2hXcaK8EHwzQ6SHQlkah0CVSfJIPSzZLDiIAnKXQX/8SSRIbBi1ugK
Vt//DnO/FtMjg0iA8PoRMxKkyuTlNXYrQOPM0cMUI6xeC6x4JKIUQLdnPNAT
SLDCu+Rnr6IAMVuZHia7STDaHRKu9lMe0kzrH4bRSWDBPSJncEUedmaecOvU
I4H8nai7AdLycIN39o6ZDgkeCPscCKuTg6WWkbp2LRLQ/1NerfeWA459EQZe
Gtj9tOjWfHqbHKQKhl2RUCOB0bT6qNdXWSiM8NA1USHBWMT63R1uslB8vCXx
rDIJdMurc4iCssD9ao+tMYY3b7GykvssAzWXYki/sPuu/MG9UYmTMpASXBel
rUgC47DFtDkuGdDvz32YJU+CvMFSyZ250hBGMJCzlSXBBCMmPfeoNEjwifus
SJPg1MR5nlW8NAQJa+luSGH8TtnnHvNKCuLZA9wP7MTq2X3PfbFDUrBwofb2
U0mMn1U4vRLGTgh7v/LuxzbMf9PPDfTMnbD+Hf8kU5QEVnqBhYPmO0E2rud5
iQgJ3v79dos8sgPGqCKHRbD7++fRppk+yg5ADs9ljfhJQD05FPchcjs0vkyw
2byJBFKaR/dq/JIEJRk67SYnCThGl/HOCpJAmuDmWyWRwBr5vHMOkICcXxtX
Uggk0KAV7HepEgfVuI/RmTgsvnWxF2uExeFDqY9ULdZPLvHOP9vqug2qGisZ
/CtE6Hi4rZq9VAwc2U/oXpz7Xz90eWAjJAY8FZ4/6ieIMGfV9PXrGVFYrPxh
SxvC+pv6t9fDhVth37nQ2g9Y/xJNPDZtsXkreNAbDXtbiPAvYmW7zEkR4Lrg
0nW9mgjcSX5V1wu2gIJRY+haERH2Tp29Ycm5Bfg2Mm325xHhyT2hlFf2wjAc
pPM47B0RiLKLu6RyhYAiSuo9+R7r379yooT4hUBg5HYTpZgIze7pWR+CBOFu
fDNariFC7HNZOzJDAD4tP35ypI0IF3RW6w5FCQBFzuNp4QgRavs8JYl8AiCh
m34rl4H5l+y0mB/HD6nh3yyqeEgwExPsb8LkA0ct0bZALF8qfR0PVuo3w+Oy
26ddMD5Uskn6PL/PC1fHmaGrqlh+3LR/ch7ZBDpKVmM5WD08p2m9n1jnBrtm
Z24FSxLItl1q0H/JBcp+Wx72YP2Tklbs0PGaE5LD7i6W2JDgILdN0qcTnCDi
N5CwbIi9z/W9Mf9PTvB0kzp5A+MrNXugMj+HC2SsAxasMP+EW2Jl3zlzAy3p
xnfpaSLsZPI4kX24YTT78Pau30S4n1e2vaWOC3Z+jvZL/YHFT2VQ+9ZDTrCe
PyWWh61zWs0IHlTmAJOCt1yz40TwPSvW8jGfBC0ndp8UYRJhKJtiG3GIiN0D
RBFeIgk8Y3f5afEQ4D7n2eBHGL+OrHtaFlSzQf3i32BpDFPSGcfcz+Bg65hD
eCoHCdKveD7aX7+GLuY6JOZhfM3509dsscxADYdqfm/jIwF/1VH/iyKrKF/l
yT9HTL+kf3Tw2FW8gkyH2qZ+r/5Pn5Udu924inyXooplB4kQ9jo/1jCBifwu
qHA/w/RSztEwueO0NVQrUj4xm0MEM65KNd6IdVR42uObz0MiJP7bKjyYsYGu
7Hlx89pVbH3M8HCXNw7sPkk5+XkSYeZ7exyFzAZ5nnwFnUeJQPmzGv27lQ0U
XCxVig2I8MX+ZgzRAQ/zqt1mJzF9SA55MeRQj4eRZvOMDkw/fmklBH7FdO7K
t+gjCQwCeJxRrA0oJUAQNetMaT8Bwk4/e6x6nAjuzTyp0tUE8BTcUVqN1XWv
pNEWrecEUMFpvA/oIMHOICXl8BhMzx47c3c9mh3iSubTzN0x/Vvd2Pdyih14
W8s15/4jwMGBGMFHA+zgMRXzKF+TADtvHQm77MwO+Q82LVO2EmCX15hwC6aj
msQDRbvX8SA61r1yPIkIpxuqjaVHsfkm1vTs2QQCCDRsy+FtxYPs61MKjdic
c7n3ub9NMTbvXFAOlEhig0vbIsNOZuMhv/GtzZMMHFic6BeTTcbDaM2GvI73
Bnpan+57NQQP6aTpXPuba0g9O/kQmxsevnAV7h87w0R7uoqaFG3wYNaizB21
soLeVX6b8dyLh0/aEdw7nJbQZymDvXPaePDsvfxO6us8KpYKf1Moh4fagbL+
XztmUelU6o7GLXjg1xrOP9Q0idweXcx+zoEHOKgaqblzBLWv4QMD8Nh888x9
6+jpfpSSMWyaz4nh01/kvuM60J/MmZtCgth++cRD11EjkjJfzRfhx9Z/3Hiw
x6IEtWbk785ZZQNcsNf+CJcsZHaVQArC8o57Ok4J+RGDPvnkrmQ8w7Dw92be
4ng07yKVrhaKYTvKLIH9IVo8EJFUbo/hWIEo47cP0aj2P44LWhhmZCh6Lt9D
n+q/ZLoQMSzpsk2S7znaIN5IrW3HAc5A+ThiliHxND++2A8YlnrPXRfSjHDT
yp/TUnEAhV2Uume/kYfMa3TyBg5mntu2aSoMoC2d1jsVfLF5mmeW3nJ8GO1z
irvgcwQHB8flM/Ce46jvVc0+/92YvWf09mDSNOK6HqK8LI+DFQ0G5aPUHBLU
Dd4eKISDURp/95fuBRTDl/hIf30DmfWOl7dcXEb+Nxr6XJs30Jea5K7u6lVk
Ef3g6vm0DbRyMN7xxgYTrcjUR5702ECcfWq90rCOmg6VPo2hbCCPhkmDYXMc
XPVMbWlZXEdRaosc42FswNKcSTHKx3B//IkDGK+mV5jWypfWEWcnxyb+dQKo
Z3rdjTRZR8XLZ7vEjTHd/0L3RYvEOvLdtHC7Mo4dYmMEYjgX11CxQ9RryzYO
GGCLbOZqWEOcvy7z9Etzwa5Yf+UtmWuItXvz+Mxlbjjt6ZrIGbSGVL41kJ50
88Bsm2J8st0aup7kMFRjxAvWV9XjhjTX0IJLWnTwq81gfNE4NpFvDd0ViGmX
5+SHmUAXccF5FprslXVlL+YHv5lPdp49LPTM6NabWG8BWJucOP2kmYXUmMsl
sYqCMPizweh5DQs1tDln8PYIQv8NW5ZaBQs5nrDQPJAoBPoeOTaalSyE9yqS
ZDcShh7xqHmnOhZ6uO/DsC5LGBwpdXWjrSxUN9SvHPJxCyydo+8e6WShpBeW
FU5eIkBnRbBCu1ko6KdehLzCViDEXnc8hq27ssVeu/R7K9wz/GSKx/wZz9te
URUvCt5s8dSMLyzEcMuy6zQSg0RFg8m9r1mI87XhrDBDDEhXQ9edbrOQmcSp
ydlX22Bfx3JV2WUWckne1MVxTBziTx9+vdmBhbI6ndOauCQg2P6ehaA+5o9M
OdmgUAJeXdwaQBBlId3K7MZdrpLQ0Dmt57bIRLy6db8iRbZDZtDDk+m/mMhV
+JZ+UvV2+OGyvqmokImk2EtN+wJ3gNvSC0vfDCZ6Yi7aNCu6E8x3786/f4OJ
DjtVUGJ8dsJJUfZVB38mEmlRSPBp2AmXU3iJFk5MJIsjaA7LSUFA91Y7xX1M
VCDAon4Ll4LI0Q/dURpMFGRxWe5ItxQQ7IohUoCJKFWyvsrK0jBu3ubr0MdA
Iiu+F8NPSsNEteusVAIDUb/yz7yLkIYX3Jw8zqIMxF4WP5ySKA1+WeJjHNGr
yITnbH7vA2nIeHre8NLECrLs3N4cnS0NV+tW7e1tV1DAljmHnM/ScJHtQNCe
smVUJDlsLvJTGhpf1Jz8Lr6MmNeODMZNYfoxWLPw7pklxL73dmolUQbkNVIH
v75YRKUq441VW2Qgu7bHYGh6ATl42nI4S8pAe1T4+DntBSR+Y0j9obgM7Fh5
+p/AyXk0ubb4/biQDChFf4gkXJpDbxM19X6zy8BYDz0hJ2wW0b8q3JldkAb5
lx+pWvEz6Fao7XWnLmnQ2Ccfaao5jT5aiVqlFGH+JfNQeohTaD16rtXgjjRY
VQyHxF4ZR8aGps587tLwt/yUgEP9CBJit6oT0pOGV/P67sHoL9L3oxPGl6Tg
dbMM93ThAEo2Zh6ty5eChgd6OB/TXnTpEN7X/5oU5Otlf2BTbUcpvk8vkKOk
gH7Oxsu8pAEV9xddEHonBcO2jsprRl/Q5JTSWX+GFATm4L5c4CtCrYMJ55Ns
pMHcPNx7XL0EWXpL/x1+Lw1auoqfykU/oyf0yFlNYRl4EODXsCKaiyr1XXRF
3WVA1l1xyE/sFWIRxXuvZsvAgOeVC7ZZXxA+h/yp9asM3HVD2+Q3WlAHa99O
Zp0MvN1+q+KfdRfKYb59sPmvDFwrO2PHfqEP2W0SD3wnLwvUXwUBueb9SH6N
dW41Sha0jsf9+RLej96qsxXGdMnCVeHTz5puDqCvv2TelfDIwYb43qWX00Oo
0H8pwE1YDqwtsmVb2EbRsIHLlcxNcvDMZ228engcid3H2Ypg++esTOpoxlPo
U+tEfzm2v8RY5Zc6TKMe3k59Cyk5cBkouyqfNIM6juoEGCjJwYSc9uyvW7Oo
UuSR/byWHEwdd64jpcyh9p+CDSOGcuDzg0+bFTuPnuoKJzmclAPa94VhfZUF
pK2TWjCUJAdILssswnIBWT85lTDQJAd572ziYvrnUe8lY1NjQXlQY+/8w0+c
R657l7bYWMjDPNTYJq3Motx3nKd1vORB8sanw2OMGRT7s0dgJEQe9oz6SfkK
zyBxvLrWYKg86J02yAyFf8j1JndaAYYDH/42Fl+dQDczdIyPYfvt3TbVpTmO
oYTEjmGctzwM/TKtb3s7jIJKRLXKbeVBuu/bhMTaIFo/VqCxqikPMyf8Dnzk
6UdT5e+6TwnIQ9S1cC2mZBfq0Nryk31GDtoCCmpEWa0o4s9kV0WxHJz3C1Bo
XqtAw1ud1sa85ADSnxmslaqUKZWkTNgrysFZ28POx/pqytrolWOFfHKg5KDp
5cLqLOMMGn7XsFsOCi+K9LffHSy7K7a+SSVdDhwjhz80lA2X7Tzl5vmdSx5e
4N9ZmTz7W4Y7kZ+gckIe2O7pbsvyHix7rS3dsfmVPIw3S43e4B8sq2PM/Mhj
VwBKtPlCtfpQ2dUejimKtwJ0ybOyAx0Hy/QaPR9mNijAC9pinuHvrjKt7edK
I5cUYMuJj1FzbrVlHd2nKa3LCtDOsIlvN7qKtjYfu26+pgBS/9JwZj6lyPeY
EoGhSoY3No6Cyvcr0N2nt92arpJh16xdwvhsFeq5/33kahcZfrc+PhhU0Iju
9/W5fONUhPbeev8bnG0IX32D2MKlCLdx2SErqActVdS5bCyT4eve5ENbiwaQ
cFbAscRJMnxvp871pv1FJhx+AYQp7HmyBk/c5UdRQriy55sZMnQvvLX2fTyO
xD9u2VjCMKNCIGw/9xSqzXOr2D1NhuTv84rpZtMoj2ps9Buz95KdSvyWOYP+
//dX/wfAzR2d
      "]]}}, {}, {}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, -1.3448308695166977`},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{
     Charting`ScaledTicks[{Log, Exp}], 
     Charting`ScaledFrameTicks[{Log, Exp}]}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Log, Exp}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Log, Exp}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Log, Exp}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Log, Exp}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 27.0199004693819}, {-1.280208943385015, 
    2.7263504767793036`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->FrontEndValueCache[{Automatic, 
     Charting`ScaledTicks[{Log, Exp}]}, {Automatic, {{-0.6931471805599453, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.5\"", 0.5, AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 1.}]& ], TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {0., 
       FormBox["1", TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {1.6094379124341003`, 
       FormBox["5", TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {2.302585092994046, 
       FormBox["10", TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-2.3025850929940455`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-1.6094379124341003`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-1.2039728043259361`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-0.916290731874155, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-0.5108256237659907, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-0.35667494393873245`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-0.2231435513142097, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-0.10536051565782628`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {0.6931471805599453, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {1.0986122886681098`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {1.3862943611198906`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {1.791759469228055, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {1.9459101490553132`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {2.0794415416798357`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {2.1972245773362196`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {2.995732273553991, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {3.4011973816621555`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {3.6888794541139363`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {3.912023005428146, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {4.0943445622221, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {4.248495242049359, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {4.382026634673881, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {4.499809670330265, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {4.605170185988092, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {5.0106352940962555`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {5.298317366548036, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}}}]]], "Output",
 CellChangeTimes->{{3.6961855310017495`*^9, 3.696185553532875*^9}, 
   3.696185763688694*^9, {3.696185794009077*^9, 3.6961858186218424`*^9}, 
   3.696185863807285*^9, 3.6961859240434484`*^9}]
}, {2}]],

Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJzt3UuS48YVheGkRxp6C96Fpx5qKocXIIVbCk/aES07HN63F+DuZhEECCCZ
icfBzZP/N5DU9WLexN9gkUSV/vTLP3/69Q8ppd9/+PqPn37+z1++fPn5v3/9
49c//O3z7//47fOnv//4+V+ffvv05c+/fPuw/91S+vfX/7gBAAAAAAAAAAAA
AAAAAAAA6Mb9CmKuI4ZQ+t4b0UHpW280Bymig97X4mgOWilxooMazUGO6CBH
c5AjOqhx7wo5moMc0QEAAAAoxlMlkCM6yHFxCeSIDnJcRwe5RHVQIzrIURzk
aA5ynOkgR3SQIzrIER3kiA5yRAc5ooMc0UGO6CBHdJAjOsgRHeSIDnJEBzmi
gxzRQY7oIEd0kCM6yBEd5IgOckQHOaKDHNFBjuggR3SQIzrIER3kiA5yRAc5
ooMc0UGO6CBHdJAjOsgRHeSIDnJEBzmigxzRQY7oIEd0kCM6yBEd5IgOckQH
OaKDHNFBjuggR3SQIzrIER3kiA5yRAc5ooMc0UGO6KBHdFDjTAc9ooMc0UGO
6CBHdJAjOsgRHeSIDnJEBzmigxzRQY7XwSBHdJAjOsgRHeRoDnJEBznuXiFH
dJAjOsgRHeSIDnJEBzmigxzRQY7oIEd0kCM6yBEd5IgOckQHiXFnRAc5ooMc
0UGO6CBHdJAjOsgRHeSIDnpEBzXOdJAjOugRHeSIDmrcvUKP6CBHdJAjOsgR
HeSIDnJEBzmigxzRQY7oIEd0kCM6yBEd5IgOckQHOaKDHNFBjuggR3RVPraL
C653Yffy0i5Xrz4o9mVFtqXhH5O3EF8h9uNhuOc8MBjqW9T7NmjOS8Q30ej8
++/F5p8s2Qnau7UW3XJrdemFOOohFnGZRkYu6ioNH1fwVU5bapVwC5IIP2x9
KIsfHPrg9pZe5DF3HIrxJzZyQDsKL+aIh/zVj3dnWqC5BW8RbryDS2mwuybX
XCXUYOftdnMH0Dq8MEMZ7/FmTX6DUCDINHb7ehzD8EJM4rSh50itPAYvEmCI
VODqNQZgtBkBRiiJ7nW/PTa/yvd5PcILsPyVLZy+tfvT3+OJ7pvBY64ISye6
AqPomr+rjbDs5b0juolJdLeWXt+bC7HipX1bf8W+0Z3eJw3nuPu/nm9ucC9i
LHhh45YW9njioMPrnYdT3Cyz9poLEt08uyjriuLlgXvbuxNm+dO/wq1v6+Gs
NiTULP1+y/aW1YbEG4bmlljtSLxhKG6J1aaEG4bmFlntSrBhSG6F1b6EGoZv
5lZZbUycYXj8kOO1NUGGobgss92JMAwnuXfMtuf6aSqLM9v/MmZDXz1N7Umu
y3Oi29CXTvNRXPmWdno/7Db0deOkIbniPe0zOaI75kbTuLiKX8d06qrCsptb
Ps/my867bY7o9t7c/crf+uY6/W7uG7/BtQOl0a+M2/KJXfIbXTrQxu3r+8lj
w9GjR9f9hcSOwweOjmvXb57NhYxuy2NbV5YbII7u7c1R24TnNlzy6DX3fs9t
3sh0N8RT5asy3eOtbP8Gysdaz851izez3Y8rBlvuznaLN7I9z111qF8fKmQe
Ooi+zQt3fI2bu+78Mn/hf3jUmnZcFrB5Ned+/WrOzV2729Oi1hq8CU530Y6w
c3LxdnvVudkF2wbv5qLtdk5ZdpvmibUL1net3zQ1XsnRaD869+SCbfd777Pb
NFCoXQi1mFM0N+G77JqPLtJaTtLgiPnsWo/O/8411HZXyL6Au+XrbV/K4do8
IlUaHTFzttt0efK+1Rwq1GLO0eyImdfNNnytvas58Ks3e0TKNTzianUbvtLe
teS/eu1l+metJIqmJ1w+nPUjnbwJlS/i+T+UaHzAY6o7fxOqsmv8mLzX/IAL
RzNgdFXZNX9M3jEYcH91mk0ozs7gmOQ5DDg/miGjK8/O4aDkeMw3i67yWYoD
l/LmlopWZnFMMjyimx3MyicpDl1L/qZOuzyrISbR7apOugclV2eZHJNVNgO+
fL8UNrqCm7M5JmuMBtxcnXoPTrkksCVOA26tTh9d/gadjskyqwEnhzPuk7FE
d/UCDrWpOv1BJjovG6q7ILrjr7hvit2A45Nd4QsAp61l9RaJzkx1dadtwcar
m/0OySvHCeuqO+vEkrmMLnuT/ic6T1XVnXOQ87/3h+j8VN3DnnGQP3pbP9WJ
1wOBmsewJxzkIbYt969E16qKU93xB3l0giO6jlSc6o4+yCVPUGejO3Y5kLku
upfv46qj6+FEZzri9LX//IcefMMlF/YRnaOropslQ3QLTEcsv8rpyIO89BQJ
0c2ZznhFdBW/cCAX3VHLCcx0xguiW3kmmOjmONMd9D+rqPotUus3ZXo8pkyH
3BbdjvLqMiI6RxvvXreGl/3VoET3ynTI6RO0dd/T1YdX/VuQic5RRXQrby4P
b8Pveyc6Q2l3dLfi7rb8RCHRGTokuvunvilv2/9OJRNd/ot5ILr3Xyt74XnB
55e9rXA5DnqPrmz+5e5K736Xvtyu5bTOc8qjo7uNns8b/7F+LcMn71xO0zyn
PCG62/x55C1rGb7Q/uW0y3PKc6J7fk5Vqku3SXR+zo1ux1IebyI6P+Gj2/IT
Oz48p5wOFSy6728hOjsNRLd8u56H45XllInoQrOcsia6k5cyv/H7G4jOTaDo
Vk50fUdn+WJfoOjmN5CP7uTVBOE4Znl0V3xLl7nhTk50RCddyvAGonNDdME5
jtlAdNU/+W/Fckyii81yzMjRvfw7/9GmLMeMG13KR3fyaqKwnDNl/lT6rmOs
R7d005YHY4HjnK8PJDIfefJK6qLr5d617+jOP8qc6ZZYzjkZ6spv6ebR5W6a
M13LwkaXiO4byzmJLjbLQYkuNstBi6PTrmTyR6Iz02p0564lDsfoin8CURBd
Gi9hvJSFZRkeimVEd+5S7isgugmiO3cp9xU8rqIbv4forJRGp3rwWhid46FY
5jhpsOjS8LtLiO7OcdLSK5sEs0+iS0R35zhprOhSen0Qu3LjjodimeOk8aK7
Ed2Y4aTFP5dDdBdxnDSNHjDeMr82Ux7d67tmH9sLv1FTcXSCtTy+nZvfHtE5
uT9aDBJdGj2GyEfneJ+zxnDU9Hh67DY+5S18mGQpQ3RvrqInuqZNo1udUBTd
cFtENzAcdfz8f5DobgXRnb+aMAxnHZ1dxt/drXzYyUsZnele3vX6oeevJgzD
WSfRrcelie7573x0Pd27WkY3+nec6F5vjugsTV74XHi3MLrbQnSlL5wYMp71
XXSaJTz+g+iejGd93KddGN1oLUT3ZDzr4+mSINHN3jL9o24t13Medvwa1MI7
L1jK+u07H4cZ52GJLijn7yVaiG70kkU/iE65lPntE52ZpR/9G71TvJblN7y0
1wfrabPRSVeSiS5zNnZlPW3uNKI+0RHdk/W0caJbO9MlonOTiU499+zmiM5b
hOhWFjD5yZ1uXL75CkvR6VextAKisxU2ukR0thaegb1+7HF0XRyFpy7GnT49
MXrLlT6uuiI6U1GjS0Tna/r0xPMtlyI6b8NzYc+fWbh+7DR8WxfhO0ypALsv
8HiEGCu6RHTOHkd39NNZl0vPX3/Rx0F46mPe2SklwNTDK2C9HISnPuZNr79s
OsDUo6v9+jgIT33M+xpdhKk7ji7C33mBgNHdiM5cmtYW4igTnbmI0X1IvRyD
kT4GTtNHEJGGJjpbgaPL/C5uV50MPH2CLtLQRGcv3jWTRGcv4EUdROeO6CLo
bGCii6C3gYkugN4GJroAehs4XnTRliPQ28BEF0BvAwe8UjfYcgR6GzhgdP3p
bf9Tjy+wR9PdASC663V3ANb/Z5xQ6e4AcKa7Xi8HYJizx6s6ounvCBDd5fo7
AkR3uf6OANFdrr8DQHSX6+8IEN3lOjwC/U0cTYfR4WpEBzmigxzRQY7oIEd0
kCM6yBEd5IgOckQHOaKDHNFBjuggR3SQIzroER3kiA5yRAc5ooMc0UGO6CBH
dJAjOsgRHeSIDnJEBzmigxzRQY7oIMe1TZAjOsgRHeSIDnJEBzmigxzRQY7o
IEd0kCM6yBEd5IgOckQHOaKDHNFBjuggR3SQIzrIER3kiA5yRAc5ooMe0UGO
6CBHdJAjOsgRHeSIDnJEBzmigxzRQY7oIEd0kOPFV8gRHeSIDnJEBzmigxzR
QY7oIEd0kCM6yBEd5IgOekQHNc50kCM66BEd1DjTQY7ooEd0kCM6yBEd5IgO
ckQHOaKDHNFBjuggR3SQIzrIER3kiA5yRAc5ooMc1zZBjuggR3SQIzrIER3k
iA5yRAc5osNO9QkRHapNo0nVDREdqqVZdXUVER2qpTTtjOiwXXoEVeT5aUSH
qYqM6kxuoW5Fhw8JjXTP6Yio7tmk0muOpsnd7p9fs3Kii+F+HA8IaFrTWWud
/OlW2RHRne6Qc9HHcf5+Urn8Isi90RDdRgfcr109wmU6Hj1rZ07sak530R1x
euptz47mFN2ub8S9tiK26Dt9yEO6q4fA1LVHZF9KxNSog6PbfVIaguL8ZKzg
4B5VEiHhbl9D3Mdhu+mpiJIAAAAAAAAAAAAAAAAAAAAAABv8H+xrx1A=
    "], {{0, 500}, {629, 0}}, {0, 1},
    ColorFunction->GrayLevel],
   BoxForm`ImageTag["Bit", ColorSpace -> Automatic, Interleaving -> None],
   Selectable->False],
  BaseStyle->"ImageGraphics",
  ImageSizeRaw->{629, 500},
  PlotRange->{{0, 629}, {0, 500}}]], "Input"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Log-Lin pig", "Section",
 CellChangeTimes->{{3.5886699076211557`*^9, 3.5886699200563774`*^9}, {
  3.5886699748154736`*^9, 3.5886699803846827`*^9}, {3.588670232929924*^9, 
  3.5886702357535286`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListLogLinearPlot", "[", 
  RowBox[{"pigdata", ",", 
   RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6961855152369595`*^9, 3.696185529438295*^9}, {
  3.69618575775659*^9, 3.696185762519101*^9}, {3.6961858104836617`*^9, 
  3.69618581713624*^9}, {3.6961858615070667`*^9, 3.6961858627394023`*^9}, {
  3.6961860017279115`*^9, 3.6961860617601013`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
     0.0055000000000000005`], AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJxdWnk41N/3N4vZJPsY+y7MGIqiqHsUklS2LBFSqSwlSUjEJwklS5YslS2F
kqUsKbTSKntll1122fm9v//+/pl5Xs8999xzzj3nnvN6ZmScz5mfxHNwcNhi
H//73jVyCJ+vSoTaV+EdgXNk2F3FiHJTIULuu5Jzpw5S4RWbr+iuAhGqS+Xi
VYpocGynxcAuGSIIG3xVfsrYAJdzsrqiJYnA79+qTPTnBm7U2fVSnAgKPx8x
7Fo3QsDoIa5AUSLU+YzM84rxgvw4pcaQQYQT3ES7nM+8kHp3195+YSIY+Jg+
dbnMB6Ya6t8MMPl7HtX4SSV+cNl1mByE6Zc5+gbn28wPeGbMzUI5IkQHL897
/ScAGtfELu1lEiGWN/qwvKYgWFZXKDhpEyFEueXP535BeLM8q15iQoQPB5tI
ZTFCMLaR7HnThQgqp4u1IlToYGXbz60RQoTW0u52+3t0iP3UWiKYRoSML7F9
J7vooG9IUxApJQL5kiaX3zgd/FPF2Ht/ECFd2PRTUgcd7l1a9uwZJUKlSAwa
fk8HD47OHDUSJ7yrLHYzLaNDc47rVJYUJ6THNwYPPKeDg3rj62vanCDrOvbn
D4arRrWG95lxQpXH7x3VhXQI7pF8NXyGEwQuSfCfy6ODcux/ibQQTvj0J5tw
9zEdxALjX5fe5QTRnI6LkwV0kHlcUHGqkBPWVQrui1fSwXdaM1C/jhPUQg+7
/qulg0qe0JWmbk5YawsW3tNIB1Gxd2X35jmBseFFicRvOjSF+pkNcZMgaZbE
29RDhzSz0XJXeRLcTAhLUhqkg8FJbmVTHRL0buTWPDpEh4hHdfd6zEgwkIE8
zTD5ZJm3WhdOkSDhYfvvrG90qDljJmAXQAJSUS/TBbMPp3/zcmwMCXgDt42x
QulQr/OVcjKHBFSzT3M95nQozRu7MllJAjmyfBW3OB1SZ0zMdvwgAde+gdKR
fiHw2x4T5PuHBPkxIvOXyoSA8/MW44/zJBi5O3nCIFUIWK5xDre4yDAb7nBW
Nl4IxAbbg55KkkHe464k930h+Cw2UfhNjQyPxYe1thcJQUuW6XYdRIZI/lIu
nc9CMNd51ZN8iAzWAUNcGuNCoCdWt2fBiQwbEr67eUvTQUq/3C3GmwyjlNe4
fEc6VGvXxMSHkcF78wuXjHQ6vIj44u2SRIburndv8rB8WLgWbnEjhwwM3d42
d0FhaN10/3XFCzL0arm8dTARBo1bciHLH8hAM5/4d/CGMKR3xcS3t5KhPd3x
27n3wiCSWXLlyRAZWtky7HwCA5LrLs7eWyRDpXNY6WZjBkgKkvfs4qLAuMkI
oy2FAfjG1KolcQpwXL4aq9TPALMwdv5bFgWSJNM+fF9hgG/ZTbnL2hSQ2xc/
FVbFgPMvq36/RRTAc0z6/1FjQEtttZuVPgX+6nBbSvsKw6ANabnCiAIJhtZi
PVj+0A4LCNcfpIC8NbvOcysdVjJYt/dZU0Dc9XrF8WdCcOeHOM/sMey8jPEy
gU1C8FVYZ3nKgwJbfKz+nbgrCFezs53a/Chgyfat5xUUBHOV+x+Ur1EgZCC7
PfKuAAQbqEzJ3aSAz8pooY+IAPxV2TrKG0sBo7hzdXHB/PDxudFURgIF/nTm
hPI28EHD1sY93MkU8Ap621skxgezt+J7/qZQgHX8UY2fGy9EcgmwaakUkHDW
vLF0mQckFXS1X2PyOk4CgoL8G8Hx3bZU1yQKDOOHHN7c3QDtnNL7c+9QYCm6
v6eOxQVLH1Pj7kRRQJJe/uNnDxXomTtqZkIpsKOC3738BQUszGM/DFymwB11
gWPvk8lgVC4dNX4es1e5LXEllATcX0fNz56mQMAmPfbRy5zw0bhYLsyBAoGR
ztzZl4hw6y2qjLTA/F1szshwI4Bquu8BSSzeA06PR+sP4sF79WSP/U4s3qBQ
jFPDwYmd/1rkNSgQoXHiwVNpDnDW8qnnVKLAl33vTRBaQ89D1N8kiFHgHbev
mw1jBdme13+XykuBq22GUWsZiyiju2gbYQMFbnRvGJUXnEdLm0VPcfBh+VL4
nyplYBalULeBiSQFar8/ukzxnEHr315+8VOjgP2NQQZf5jS673WT2gJY/CMr
R202T6Mz7tnmN8wwnMOKWB+eQv5vambknTF9Xy2LW3qmkJ/P9UaaFxaPb1mt
i+bT6JOSzep0IAU0T/V2l3vNIEpr2DblMArwHlRhXjg5h54PJ5x4EYnFM0Rp
p7LyAso2q11duU2BetJ+nmjrZZQSP16lnkiBbrtzP/NJa8hK3M5VJ4MCZaUx
Rds11pH00duPGwoowFA821+cuIYEtYX/cLzG9PlrVQQpriLrnFdDBp8poH2Z
r+FLwAqC4z92ZbVQQB92cdRkryJ6i1bt8S4K5GeLtTkzOSDqlKTs3n4KELmj
6+8X40CaKJM2MUSB6Qdbgj3W8bAvRfV9zSiWb5x6n4oliNDYbZ+gOYHFu2Yx
8r49J9ybntWVmKWA6Y/EVO1WEsyPwpr3EgVubtulb2+FnWtq8SURR4XkiIAO
9TQqZMKfr28oVCBKzk08eU6DnQdjih7yUKGt79CYXTsXiFSqvnhNpwJN7FW0
E4sbVjwkVGckqWC+i6Yge2UjnEsutg1VooL8XR3RhTQeONaJXHW2UCFi7rvt
zUO8YP7qwrOl7VSIqqeLJ/Twwu7qlzuf7qLCcGcIb3MMH/jveC7zUo8K1dba
th46/KBY7/DazJAKNp2ardbp/GDMuLdnDJsDDJsjKbJZ/CD2QyVynx0VBJsb
L8/b8gPvvVLRttNUqLcoX2yd5oPebzL6S95UGKtSmth/kw+e3+BvrgukQsx6
SLuLHB+4C1fYT1+nwhF2uHhcLi+UrJl0u0RRwRPa97nK8EKdl3p/XDwVHvip
TqRs4gHRn2r5d1KpICA5udUfq989s3U/4zKpoJGv1hK8vAG2npYJTsqlguaA
5bt9LVyQUe1PkS+kgn9ZLffFLBq4sVrA4wUVHu3tr7x0FtO7McVWqgLz59ix
vbObKTCfWGP3uJIKLJ+Y2MleEnAORF1Kf00FIyW+j6OBnGBilfV6sooKbD+R
dE0hIjju/Zb9FcNQHXn4+Qs8hF4Vcrz1igo3rJpYgc44sCDTJg6XU2HJMUb7
MpUDknXUexeKqSAt4JivabSKdvYY9e5+iumfmLbR9ltCN0pPiwc/wu7/Nu9Y
bs08aqqQ7LuWQYXa+UHHaYk5hH9V4TCRguHTNs/j3afRjqINfk/vUGHIXnv+
g9IEcv+QGPj8FhXKBlgSDKNh5M17xeJcOBWiXbKVFnL6kM5s7PJQBGbv2tfy
jL4OdDP/acCDOOy+her8LrxvReZ543ea07H4U1US4+abkVxWrkQkFj/eSv+z
FXxtyPeAI+EN5i/HTLu8S/9vVDu2+0beFypctdnhvb2yE2VFbDxq+AuT/xfM
GsnrQqsmn1XeDWH+NeV4XTvRjRRfGXqszWI47FSDbk0vOmK3OLB/GcvvmIWG
lvuDaNKu6PRfDJuuOGYfrP2Lfj+x0SevUOGORXTNcsgUOn526sxJHA087cS1
i3hm0IAt2XBiAw3cu8Pd+GZmkN63urlsERqwtkckqqnMofOHZer1ZGgw+2w8
qNx6Hp3gT34cgGH9UDiZu28JeQSWeBIkaPDg2aU7PjarSDRjixEngwbGE/3N
zhs5oGizyMn/BGnA/pRsvckOB/+5UOpn+GhACekYLa3Ag/pfQ6GbPDRI9tYw
SdYkgotdsNt3bhqcsHfc/z2PE27vDdpTjuHJhvlfWVQyRIxMGmzB5E/rNXmU
HaHApdJrZ8QxfRx7pazWsDxcPLZObuCnwb3rtU6abKz/TFsNr2Dn1/Af6D6S
tAE0IvRLszH7wivH9VS7uMHQbXtiIWb/vNirgD4aD8jQFqPTZGnQ0zSqbCfF
C3uun8tNUqDBVd6hq8u1vFBY7iAdg2GW/5bXtf584GCaXrcbk89oLRZ/Ic0P
74Rn+z6J0YBv2YDrej4/7Hod6Z2B2XPzyijXkrQADKadEh0g06Cay9dW/ZYA
GDzv/S69SoVOX3N297oAMN54hnvPUGH50/ZSxSBBqPL+V8AxSoVju37yB1KF
YHT/w1PQR4V0Pd90ZooQHNezGR//TYU9AT4LwluwedCr8bFXMxVOU6YLrLD5
8eiJBo/YeiqcWay1KPEUhmmN/y7Sv1EhRceo/gaDAd2ehUeKMSxKmDg1WsMA
p5IPCd8bqHAlzmjK2UUEGpX2bG/7SYUi7waTQzhRaBF5cL0f6+MpnzZtVogX
hYrcZ8OZWH6Wlp5pi2eKQbOi/znaXyoUru0oMvwmBl/xWWcYk1Tg5jsJv6+I
Q86Vzc5JmH8TAmd6M9Ql4MjPWh3FBSrIWZWqBf2WAIHC6L5SLF9/ztk8uhcg
CSLq15E8Bw1cc2xKf4lLgfCWHNV8PJYvaxt3Kn6QArvJsNo4Thpk5ZZ8KNCV
hsbX1DlnKg1+2kjbaSRKQ4fgIlLC8gcp7Db8Pi4NMyeFPr7C8ufH1nSL93tk
oJnkFW+D5c9JzT+rcndlQHjrW6KBAA2+2ayrJ0zKwM4GtRwVOg2ua6nEFBrJ
gs4J3Z3bsPqYadz0M/S+LFR9blnbh923dlSyzbU5WRDL2evkI04DD7ExeGgi
B3Hk/K0xWH71Hs4r2pEtB5VWZtIRkhjO96YdXpWDX0gtfQ+G/10VCSJbykM1
b25pG7Y/kWGdLZ8nDx5n80kO2H7rMQfJRLwCpFlrKFfI0aD/p137N1MFeMO9
51WtGg0e/4laUA5RgLrhe3eCdGiwI9NZZ/0/BVDUqVyIQjQY2XokmWWhAAZp
1c6pO2jQPfdg8RyHAmxzaNqdo0ED6cyBVNGH8tD6vS7EQJMGJSaJIlts5aEN
mrvCsf0qJfpqDnLyoLwzkdZ3EKsnLV1aOVkesr74ubra0MBxd1BIKUUefLTw
CsPW2PuwbcILv0kexPUc13rMsPcjykS3214ejl4bnYzD9hsr2xdfvC8PJ3jC
ucCcBmXt23V6BuRBZDvzIeEI5k+r8SVdDQVY1LXBOTvSIL8mZlPhdQVgOWrJ
dx6lgYnjiabJXwqw+Z8H77nDNLjdb7z9irQihI89VefZRwOjosg6PhNFOGNv
2i6oSwPTX7NPqk8owt76B+WV6hgOjZCpD1aEx274+A1KNEgwvxglXqYIb4Ks
Suax9+1DzFCaKnUTLP7+8eQEFn/vebJd9YlNcCVv9uID7P1w19/q9KJ8E7zb
T7JzxuobH/pYcZSgBMb+zt23aZi9n45tMzBWAme23Ok17L19n7BLajZWCcif
Wxj/LWLv/6dB4752JSiyTKaaTVFBecWtiS6vDORglrD0MBWoVh6bbp1WBm21
xvHMbqxfvXdq7nqiDM07pMeKW7H5Q/hbGGlOGfhSWnKVsfp1uH1nPmW7CqQF
atn2vaUCc2KXSb2PCtTsz/BZKaOCk21tTMoTFRgqthhte0KFN6VTUUt9KtDf
+0rjC9YfgfeA04IEEzSr2p0qEqlw+F+lE8mWCZ7eW5+o3cT2R5DXFqOYkJpC
4+wIokLSeYphViUT9M96Wwx7USF++f1mmz9M+PurJ7fqJBXclj/qX6OxwIT3
oc8DGyoIL8A2780scLs8oHNhP9ZPs+sqB21Y0FFA+j29kwr3OH5yOV5lgSXJ
7NqAGhXyi7Suyz5iAYf2+Xy2DBV+2SznyNWzoODZxHo1HxUW9r9lnZ5nwZO4
DJ5ybP6Tfc9q9pRQBVXEqXl8igJKCwZB1ntUIeyi+YhAD8ZHbjjpIVdVGCnr
5OuvpwBl3He8NFoVstt0RR5XU8Dc4bPkapEqhE/vP6D8jAIZe2wvPfymCsrX
1c863cf4YR4+LqJfFWrXmTqnMT4T5ei4trisCtqcw0JwBZt7Wmf8GYJssMZ7
/f3sRoHHzD/3G5lskPuruZcf61NtMzuHfyA26F1XkLfA+ImEtCVH0iE2nOcU
3VC5jQJWZ62Vvhxlg8UBuRm6AgXC9uI3hbqzoSQvO2CJH5uXXXPaLvizYbeW
b8lRDgoItvLsO3mNDbOWVNEvf8kwGCFRzx/OhkxxH76632SwpFy+FxnBBu4f
vWJrdWQQT1iTqIpkw8f6a5N7SsnwYrLS6PgtNvhM0uZKMjDeVcfmasXwE0Xj
syU3yaDqLC7+CpPXO8NX/9oH4/uZ+cP/wjD7ePklJZ3JIOp3P/0bdv6WCEue
loMYP098Jh7+Hxuum/4o+K1DBspDPYY0hi00wuZ2KJFBcbp99VAwGyTrauK7
BchgaB9rUhXAhpVfK9sOr5PgbEUYzy4fNkh9KMbNjpDgmcDWMxKebLgcIvMr
toUE7lclOJlYPMJ5Dg79qiGBb3l6wMgZNrSPG7+oyCeB08ZzYw9c2FBo38Bz
IpEE/q33B447smHXl69H5oJJkOrQEHrSgg1HFcUvH3QngebabL26Pht+RjR6
gRUJLD9Hqt3VYMMeixj7L4gEJmONGa0ybKh6MrtZRhk7f6R3P9qIne8RsOsk
Pwkmv5laZS6qwiGeFLeYZU7oHXg1vDigCqkNy++D/nBCy4H7ryvaVGFYXcqP
7ysnPFUlb135qgqdUoVyhs85oUF10dD1rSqcf0m9tT2NE3jub3a4V6oKGkNb
OLlDOWFllO9YwBNVCE5sE/ngzgmWjvtkvj9ShcVHBu90LDnBS/2JmjuGW1z+
WG3W4YSTeVNkwWxVWGvUV4uX4YTaZH8N90RVkG9+v3yfzAnt1tNJa4GqcCxy
3737f4mw1PHp8hlnVfhbiTdLaSQCr8Aa0d9IFRhXK+ygnAjvqGIF05tVYcbm
mZvuPSI8ZXV8zxRVBb3EmvC0ECIIxvZfql5nwTfpg7EVLkRg+J0iPexjwSSS
u1RhTATTpaQGmc8s4OzT/WXFJsJQlrDRrjIWGEWnRGvwEWFj62xMD1bf2xcD
8hxnCLBb8pwSPZkFD14v5Zo3E2DEQHl4XyQL7BMPPXcoJUBI0k2OzissCOh6
92P/XQI86pPUS/FiQc8dhZEH/gR4QfjbUX2aBUsC3K3b7QjwWgH+s3JkQcKE
2DVnHQIstAkE77JiQeT1vY+txQhgJ3egMvkAC1w8Uk70LeGBt1e2TcKABTcM
nk1k/8SDT7Hjll5dFqxWTV/ILsXDKaYK8dQ2zJ/8IFuzeDzcaFXEWWmwIOId
JbbPCw8HPy4f7tjCgrrYL9rzh/CQ/+ZDkBn23tl0T2ybY+KhI9/wfSyTBRYp
B883kfDwVOdVYrwsC8qKvrxS7sGB9nCl0gVRFoRNZiedfIkDp7MpD3KFWFAY
U56qG4+DvU2ZHYifBTL3qXvJZ3GwtuWtw+ENLAj/6fcy0QAH3NUJPSt4TL+c
cJuTOA6qR2+fk11kQrvBfoGKaQ54RuBgXpliwqBvhdb+Wg7odG650j7ChDPC
lot+qRzAeTfeLaWHCXkvtJMNz3EAfwbJ40ATE9QNcEk2etgcP9j0N+89E5Jy
vIv5BTiAtXTj69VyJtzqe9j88+M6Goxf/Rn/jAn5uMZcUZd1JFseQTn1iAlT
Zxcq6znWkYRYUoLCPSbs1E1a+Hh3DSX+bKG3RTPh8hvuKz5b1tCdrVJH064y
wUVK/J7Ip1X0gL4vd68HE1IsTxikOKyidWmH1SgrJgje8BRfGV9BH24G91bo
MiGiuD6HK2AFcd5WzvsqxYRrkUsZj0grKO2TBjVsTQVEimnDklHLaPJS/y2n
NhWQHBWb6+BdRkEyxiZVhSpwSGCHnEfUEhIqolz6eEcFnnXJVSlRlpBrY+bD
0EgVOLFCfJR3dRElX19nnUtSAZV3m6lPlheQ3efjx789V4FbxY8TBQMXkLqh
ii+7QwVumxyTC+ZaQL3VfTxZ3Ezo+G4TrJ8+j3RWcOKPjZjgUHTE6JnmPDLt
0BLICWcC6B4Mjy3/hwYOpbo9fccEZb7b3APMf+jPrhf545NMQET6sGHMHNq4
TXU8RYAFB58vUtzHZ9HujL4yFyw/D1BX/5runEUb3mbMCHmzwCPs1pbSizPo
Qf7xvM6nLGjclkd6+HAaNTW5VHz6wQKJ9178UZzT6E60VO6NDyxA0Dek2ziF
hOIIvOcjWBBnjhcYkpxGD6wLNWtZLHirH3f1ae404jUliUi+ZcLDTMFQL+EZ
1K71kW/5GBMuBibMkWVn0BND1XND4kzoKdt5YLhiGv0puprpTsT8SxVKLFic
Qq7nst2OYusFYyLFqYQpVLEicSXTggmrf5mxnycnUODRWQV8JBPaLpSYfWr5
izjOJzZMPGaCgesbw/7qUcSgnvY/XMCEu5Utmx7dHEYV935ZFTxhwqvOzOY7
CwMoXi9Nad8LJsYbw60V+vtQ6sBtpYGPTJAtdUyWKelGxp3Wt/bUM0Gvat7y
QF07svTdqWqHzS+udz9rxPT8Rhv4J46/u86EK66P3i7Gd6KdR6dOc29nwoet
/O3BLj2IVOz0qLlXBWpLQ7T6DfsQx9ldVw5FqwBpkeegVM4fNKk150YxVIGx
piOpyd/70SP3S7Q8nApsJjfq1/MOIt8e/suhr5Rh+2sxMx3XIbRQZfBT9aIy
nDSTWrucMYzaOAqu9ykpQ051xW2J+BHk6dp79D02H+q70oPGLEfRo8SFRdId
JUjnlDnszjuGkrvnFvtMlOBvU9PL8qEx9Et1A/88TglGchKT1vv/ooC29d15
BZugfEHQJwI3gSYvJtrnWWPza4eifi7/JDpT1GxWt6YIt9oEfMOjJ1EJ7rNY
4iNFWJ+8lfajbRKRxhc9NlopgpFUsA3jxyQaXp5oqCIrgkmVHfvrxUn0M4Lb
B1UpwIDMtU1vnk+g7LzMC95XFGBWdmBm0/ZxtJMskf8aFCCz0mWYnjqGdvpc
vutCUoCMhkg4OzqCam7QUepXefAu3H7EVXUYZWaP55xNlIe4bvMbpm6DSLLg
x73Y4/IQe8nv8I77/ei/Dvl2IzV5OHRB8LV+eh/S6P0kbrQoBzse7/t4TasH
CV4qOBbyXg54+qS5vwS0o2LubMWBu3IweOJ593efZrS05hQe4iMHY8U7bkku
f0IW56OYFEs5iPb9YFLjXIhC6i/tfa4qB5NNu5u9eiuqtIjRb0a55ODGNr1E
67qmKrc2Yd24dVkIO8sQJFztq3rVIcI4s1EO/l1RV+s5NlHVqVZuVScvB5eO
xz2MuTdflRSssY8iLQe8sXpaTta46rhbSxPvR2Qhtf2eYtkpajX7HS5zJgrj
j9NmnuqBfNUKnr4GB1VkoYu6j5vwhbda4ebOO/E/ZGB0VXtO+xh39V6Vb3aq
wTLg87t8Xo7NXe1RPeb7WVkGnsaLSv+mbqz2Ib7qEq+VBt88utwpH0p1eUOa
cLSbNOjIhQf2ZnJU9//dq9CuIA1CuVHsk4VzVXa9roIVE1Iw3ttwIJAyVpWx
9tl0f6YUWEb8jFmX662qby7G/90rBWMJfn4Hxlqq+A09La3aJeE5YgcInq+t
6korixryloRnf1Z+B3y9X7VjxUr4pZQkSHT/enkSX42MK0mzhS0SEJhVSklc
rkctvPnaMpESEMyTYCVwtg0lzhtcW90mARFzvnkHQzsRfSV3SqhTHNxjbvP/
GuxBN6/W6MWGiMOTxkfZz479QUeyw8QqpMSh+fvuX3nvBtA3zTyiRZEYnJa4
uI26cRjdi2LY1uiJQfr6az49nVFUcXQTVapdFK58ENLfdOgvusK3QUk/XBSG
znVF3DGeQDMH0yUu6YvCiQY9U5v4SeSLUlZ8CKLAV0p5QvKdQsRBJ2OFGhHY
5C19zdlsGi37c1bcDBKBrnTCgIziDFoqJpxL0xMBbspA/sb5GcR8fWa9hiQC
L/0O8zdWz6It+5lZGV8ZEJV5geBwdQ75/BW0z0piQFh+6ttT2/6h1BcFdavu
DNDVeLNfZOAfWiMFd8QeYMDyfPWp1eh5RPkcxpOlzYDpYMOtPlsX0AeR5H5e
JgMEymTV/X4soCUeju5D8gz4OJ8ePnJyEemy5F82KzAgZ69KmNm/RfTmlEuS
qhoDmvIGIrRClxClcseMkC4DSMcIH2L5lhEhu1TjmSEDiAmD6vuSlpGnnoNE
ujED3hwapHcKryD5Gtv13wYMCLEaPTITs4JeR8s9K9RigP6Ia4EcdRVNXDN7
dVGaAYP3t44IBq6iIK3WgAYcA7RJfYK7J1bRYKFCjHCnMBREKDU42K2hX6Ns
paAXwsAxMrYi8HYN/fljlvUwQhjObA0Y3qC0jsRtAgcPHREGk3eRgf8i1hE7
ST3JfpMwfDud3mY8uo4MIx+8DJqjw8V35eiaPAeMHFoW4qulQ3Bv6soXcw54
fNGE1/8BHRz8mizlgzlAQ0W5BALp4M4xckmmgAMCRl5uT3GkQ8aVPMnc3xww
dymid1WPDgmv+tsukHAwLNhY4CSH6Xs7u5SqjoN/zKhpbwIdKJHEr1Q7HETX
scNyeoTgaPZgN+4aDkwlOMTOlAoBjy6fIyEHBzwH9tQzLgqBf3FuUF4VDtid
sjt1qULgsfNFs/pXHGT03zpqc04QXpts6d7SiIMs5WXdl6UC0HWbPKXWioMK
PvPD31b4QbyMtLShAwdnd1w/1nuAH6SvGHU86cfmOf9zsvrZfKDhOePBP4kD
q6ZQq5hZXtDGv9LtWMJB+0SHZak2L5TU1cw/JOIh27PKWWd5I3gK0wY/ceHB
LqI2yCmFG5gSgUFLG/HwYDPnnlDDDSB8ol1EF8Om+cVmYV00iPv5/kEtDQ9v
VN0O/HKkQs8vtmMYJx683j9129FHhirTr8orqzhgldEkiv8jwaD/7/cqMzig
87ofNNPkhMjKH+FamL1f+g8ltH8nwPvxs8c1mrF4jdBlHA7g4ROuQW32DQ6O
pK+cbWvkAO0hrFnm40ApKjwrX3AdGStUFXTdxmFz15Lhy/IVtCAkW7zNCwdt
a572oUJL6LA480L6URxoXuC8dHz5H1qRrd0iZY+D+rICCzp5FmnfnjuYfg47
XyEpSIk5jR6LPdzoHYOD7tVg1b8vptBAxHCOcjkOkjzcrR6NT6Hsw7fabXux
+dsrpMu8bgoVHhVIkMHiJf/OVHRQdApVig0WIjVsnn/gWpLROYnefPULWNuL
B3tL/M1f2tMoFJ1vyzPHg6ZtghV1yxwiEBT3OlnhYfb0z122oQvIKJD/Sp8T
HpReVrj4VS6hl0qVOuKX8VBi5mS51XcZ9bAdL2s+wENZrXbBu4fLSDz88Ncn
NXjwdI1zs8LqTvNiS7JQEx7a/y3Ehn5cQyfn95Y6teJhbPzFUNwkB2zK7592
x9a9PA8ni0bi4Q4+eaW5EfuWn1frmCeAsTrHwxBM/shzrvOauziBeD1Mfk87
dv8RoXv0w0nAMil79LALW79acrJnhQwSQrstJ3ox/7Plg1MTqTBmxFNjPozx
FZmiuwOyXPCTLRcoNYf5H+fJatm+AVT+lmxrJBHAsfstO8pnAzip1Z4ykyBA
ve35Wr1SLhC90PEpdCsB2ty/XviqRwOBL5OXLxpj/IwZkvbrf78bz6b1ZlsT
QH/uiGSFJBnsuRr5rtsT4Gqb4vLQL4zXzpuXd2G4c/XNAD2RCAHn+rq+Y3gX
Z1rGWxYBhI9O2lpiuOy8kcO2JzgwPv/MfRzTd3NYsPIzcMDy9uK+lgME8N6d
lZzZs4rMSen6y0AAG8PYgqt6y+ih2dPzmph92qfy/gmfX0DCsv/S+ZUJ4Cnt
JH3x+hwaWa9k7KcTQNBO8OXxkmlkEdTOuI3xRaN1QQnNtQk0XHAr5BAWv6TQ
0c/zt0bQMc0Jg7vNeIg+7l8K5v3Idf+9Y6RBjF8m/qwJse1BmusWu15zEWDS
uNK46lwX+hhw+PuFLZi/rvS02/rdKH00NWyrGQFMJcNE2R49SKvO7b6KO7b+
uNplLKMHxclcP6p3kwDRv/Fd9uQeVL3lzE6DQsz/2VOjLN8e9KrY4lo/Vndl
LbkGts//oC0brhWOdWDxt/j8/fL5EWQdvcfavpMAd+LoHm9UJhE7S79DrZsA
FKVPVkcxXnAyY/CS3SQBZo2XlG5nT6NbYc+ytnETYexhcQV5bRopPVK+vKJE
BN49Vt+3s2dReff1sKtaROy+Mu+YxP1D0Z+63zVhmPjN9vda7iKqu/ocZLYQ
oS1h0/kurJ61KEcSfdhE4Gi4PdjqtY6ye4LCUzB8YvWB5zoBB4LrmYG1akQA
Vd+pr1jdbO79Te/GMNF/h4t2IwH80qiR5hg+Mmx64PseTjg1I+HXje33qtnn
q5xBgv///6v/Ayb2VlQ=
      "]]}}, {}, {}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{-4.655356653924905, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {
     Charting`ScaledTicks[{Log, Exp}], 
     Charting`ScaledFrameTicks[{Log, Exp}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Log, Exp}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Log, Exp}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Log, Exp}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Log, Exp}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{-4.533019264650141, 3.296573648934665}, {
    0, 15.277031278096402`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->FrontEndValueCache[{
     Charting`ScaledTicks[{Log, Exp}], Automatic}, {{{-4.605170185988091, 
       FormBox["0.01`", TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-2.995732273553991, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.05\"", 0.05, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 2.}]& ], TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-2.3025850929940455`, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.10\"", 0.1, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 2.}]& ], TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-0.6931471805599453, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.50\"", 0.5, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 2.}]& ], TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {0., 
       FormBox["1", TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {1.6094379124341003`, 
       FormBox["5", TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {2.302585092994046, 
       FormBox["10", TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-5.298317366548036, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-5.115995809754082, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-4.961845129926823, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-4.8283137373023015`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-4.710530701645918, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-3.912023005428146, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-3.506557897319982, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-3.2188758248682006`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-2.8134107167600364`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-2.659260036932778, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-2.5257286443082556`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-2.4079456086518722`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-1.6094379124341003`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-1.2039728043259361`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-0.916290731874155, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-0.5108256237659907, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-0.35667494393873245`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-0.2231435513142097, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-0.10536051565782628`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {0.6931471805599453, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {1.0986122886681098`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {1.3862943611198906`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {1.791759469228055, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {1.9459101490553132`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {2.0794415416798357`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {2.1972245773362196`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {2.995732273553991, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {3.4011973816621555`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {3.6888794541139363`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {3.912023005428146, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {4.0943445622221, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {4.248495242049359, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {4.382026634673881, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {4.499809670330265, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {4.605170185988092, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {5.0106352940962555`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {5.298317366548036, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {5.521460917862246, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}}, Automatic}]]], "Output",
 CellChangeTimes->{{3.696186005704485*^9, 3.696186023252366*^9}, {
  3.6961860537590337`*^9, 3.696186063406377*^9}}]
}, {2}]],

Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJzt3U2S48YVRWGURxp6C96Fpx5qKocXIIVbCk/aES07HN63F+AuksUCSSSQ
mUjcfHlxvoHU6ibAfMARWPyp6j/98s+ffv3DNE2///D9Hz/9/J+/fPv283//
+sfv//G3r7//47evX/7+49d/ffnty7c///J+s/+9TdO/v//iDQAAAAAAAAAA
AAAAAAACuny6iU84Qep7dXysDlpEB7lpojmo0RzkiA5yNAc5ooMaj66QozkA
AAAA5Xj6Cjmigxpv+EOO6KA2TVQHsYnqIDYRHTp4/7x67zXgZLjMQY7oIEd0
kCM6yBEd5IgOckQHOaKDHNFBjuggR3OQIzrIER3kiA5yPJGAHM1Bjisd5GgO
ckQHOaKDHNFBjuggR3SQIzrIER3UeG0YekQHOaKDGg+vkCM6yBEd5IgOckQH
OaKDHNFBjuggR3SQIzrIER3kiA5yRAc5ooMc0UGO6CBHdJAjOsjRHOS40kGO
5iBHdJDj4RVyRAc5ooMczUGO6CBHdJAjOsgRHeSIDnJEBzmigxzRQY7oIEd0
kCM6yBEd5IgOckQHOaKDHNFBjuggR3SQIzrIER3kiA5yRAc5ooMc0UGO6CBH
dJAjOsgRHeSIDmr8pDDIER3kiA5yRAc5ooMc0UGP6KDGlQ5yRAc9ooMaVzrI
ER3kiA5yRAc5ooMc0UGO6CBHdJAjOsgRHeSIDnJEBzmigxzRQY7oIEd0kCM6
yBEd5IgOckQHOaKDHNFBjuggR3SQIzrIER3kiA5yRAc5ooMc0UGO6CBHdJAj
OsgRHeSIDnJEBzmigxzRlZoe9F7NkDhsBaYle/fVdIVjOOXQFVKN1HTTKNtx
nXDkQptxFGXzuqsTZne6gUvkXowys0nu6mwn4WzzZit76Mu44frFMntdDk42
bp6KL7bWb7y5t3OdhnNNu636i/uVbXJ2eKrzcKphN+x9DSS91x2bOzrTrCta
vHqxtHXBTk90Jk40alKrl8ued1G41/OcivNMuqzp67Oz/dTs9jTn4jSDLmr8
wuzHzqqfizRcS2SnGfTFEe9A7Xxr6ywn4yRjPjvqTc+duz1JdeeY8tGR77Lv
3PE5qjvHlDNHf66D6LadYsg7wSeJuNRtO8OMN6LPru2trtEyIjvDjO90n5bk
UrfpBCMqi7veW8/NR2A+4r7XzarvdN/mjZYRl/GEXYK73nHPzQfgOmGf3O53
3nPz+Dzn6xjc7f57bh6e5XidkyO6DYbjdU/ujerWGU4X4oxR3QrH4bjUBWc5
XO/nEdc19Nw8NtPZur5icltBz81jM56t00vDn3ffc/PQjEd7e/35SNPy73Z7
72JNqMW0ZTzaXTqy0OHFWUlrvpPdlXy3c6TswiykOdvBPmRH9PD9g8etJ1+M
VRzBdrCrgn5mN3x5xO1zlGyrc53rquC0Lf5MiL5f8BHdiHY0t3QLeXau1ZmO
ddG0uY/baatT3pmO6VjvDmhOXZ3ppc5zqouS5goOgzIEohvMIRe6y62Ll1LP
szrLoS5KHjIP2vF+RDeW7PMV+mcXWp4fy6Gusp+RFu+4dIMdLC91jjPdZJ6v
8tNKdDs5zvQh60lpzY9prVhLNcfqDEf6lPEWQvgfDUx049l672p1/uWNxYfM
8AwZjvRsLbvV68jy+/zqS4/hpc5voiWp6jKbm22u/6wd0Q1r+WqX8eA6z67P
5zv9TpHfRCkLX6BtFNT/E3W3Zejv81h2A615ymbzbPYP7rqKPvd7HLuBtswf
LDNufPyCNoVYRFN2A2Xoe+EqN8xCc9kNlGuc5kZaah63ebINdCYHWmoet3ly
jXQiR1prFrd5co10Ikdaaxa3eTKNdR6HWmwGt3nyjNXcaMvdZDZOntFO4mjr
3WI2TpbxzuFwC1413vHfbaBXhe8GXPIKr2lyDDnxkItO8ppm24iXuXeDLnuZ
1TDbRm3O6zxZDbNl0OTG+nRCDqthVo164t7XbVad0ywrBj5r14UPu/wFTrOk
DZzc/RSNO8CLgU9GpuG/IiK6YfT/1oZW/KIbcpbLNzhc/66R+29Ny9+81XGV
rUwP/3Iw1GlZ/JZAy9Dm7AYaYKLXpOZrnoZ9JSSb4XyRJ7K+gGXzmzzsRCcv
bcbvIISbiEvbM78DEWciakvwOx4hJqK3NX4HpfdEubWdOEq/obtOtB2S/6tw
2/xG7vEz/hIJJV/srevOplCPKea0f/vLajr50b1su7PPjUXv38fYC2hOM1F+
Bi/FZKV0YHRNwt25gs4LaO6YiY666lz2nX+H+++0f3JEl7/X5q3l33fDTzVF
aI7o8nfbq7mWYqw+xCKaOnaiscMLsu4gy2hIMNGo4UVZc5BlNKR+9qq4tzbC
rDXMQppRTjRUeXFWGWclragnGuSaF2l9gZbSSJ+JoqcXal2hFtNEx4milhdt
RbFW00L3iaJ1F2oxF8GW00CMIyzsLv1mSczrLtEdR3PCp00HL6BGxDXtE+kw
H3zWl3cfuLabyGurE2uiIwMIHdaaUdedFm+ig7qLN2iucVeeEnKiA77ICjln
noGXnhB3oqbdxR1z28hrXxZ9ojbhRZ9y1dCLXzTCRPsfbEeYMmnktS8b5nTs
eTVtmCEXDb34RYOdj6pXcweb8dnYq18y6AkpSW/YF+huxl79ksFPyNLD7uyf
0d/hyjLswpPGPRePXh9357GVXBWjJRpoKa0YjpR6QF3pMhVrBGEW0o7hSJte
6roUtvBBp07rexRkGS35TdRMkOpirKIpw5GaiVFdhDU0FuK4hpX9o/C6L2Eo
jjO1k3utI7oijjM1lFndgUfR8fwQ3bq86o47ipbnx3KopnKOENEVsRyqrYxD
tHGTHQfZ8vxYDtXY9jE6LDrP0+M5VWPbX9gRXQnLoZrbrG7rYwT1d1y7ZWSW
Q7W3Vd1h0dVuGJrn/0rtbX4kqv5Pj9gwNtOxDrCaHdGVMB3rCPXV1R5k15Pj
OtchVg4W0RVwnesYa9XVbbZ+d3WbhUd0RdKHq/4rvtabxWc72EGSx4vo8tkO
dpTk04nm0fmeGt/JjpKqrvZZRuOtRmA72HES1VU+yVi9o7rtwrMd7ECpb6tN
b1B7P3XbhWc72JES1aVvX3s3dduFZzvYoQovdUT3yHawYy1d64gul+1gB1uo
rnl0ts/yiK7SUnXJ29beR+V20RFdtZdDl363ovYeKreLjujqvVzsiC4P0e3w
XF35exXPt6zdcCyuc2k8Vbc/uqyIh+c6l8pTdRm32b278RHdPo/Xut3RvWXs
bnxEt9f8CBZ/FGBjd5VLio7o9ppf64guC9Ht1ja62a1tz43tYELz6jb+vGhv
tufGdjCljU4KjzHRIcNWdJV7sz03toNJEV0R28GkZpe6tT8s3JntqSG6FlYf
X4sPMdEhwyHR+Z4a38mUGkc31W03DN/JlIiuiO1gUk2ie96H76nxnUxpPbrc
fTy9VOJ7anwnU2oQ3fQcne+jK9E1sT+6+V+k7R+d72hCq2/55xzh9x2c6Ern
O5rSanTbh3h6jC53s1EZj6a0Ht3WQb7e4ETR9V6Ah5Xovsez+TefPD6euj95
df7/SWjta7rbVSx9nD/+iOhQYjW6l5sktn2Kz/jEEF0LK98mMWtq8VC/vtpy
guh6L8BD+kr30OPCY+9rrvavmBBdGxlXurfX57HP/znfwjo649mE8qJ7u3Y3
3X/x9GfzLZxPjPNsQivRvdz00/JOThBd7wVYSD+RSLSz/JxivgnRYV1xdGt7
sX9Dwno2nZXoyvdi/4qJ9Ww6LaPzf3QluiaS0RW1Q3QoQHRFrIeTSUdXvhei
Q5am0S3sxoz1cDKp6MqO7nmi670AC0RXxHk2ndRHScqO7vxD60SHDZePpN9+
9fCpkuK9EB0yTQ8fHpn9dsVu6jYdivNsOp+fGnmMrmY3H79strh4nGfT+fy+
1eltV3Sv36XjyHk2ofsLutPDZ+tK9/K5NdEhzzTPpjKc6+XS+7xYD6d2/ZLs
/sJH1bGdnsp1ZD2c3L21aZoqHyETH2W3Yj1cP/cnFhVbTk+v9vmxHq6by6Wq
8tASHcpdi6vuxv+TTUR3gPl7qHt2Yct6uJ6ILs16uHERHdAU0UGO6CBHdJAj
OsgRHeSIDnJEBzmigxzRQY7oIEd0kCM6yBEd5IgOckQHOaKDHNFBjuggR3SQ
IzrIER3kiA5yRAc5ooMc0UGO6CBHdJAjOsgRHeSIDnJEBzmigxzRQY7oIEd0
kCM6yBEd5IgOckQHOaKDHNFBjuggR3SQIzrIER3kiA6AP650kCM6yBEd5IgO
ckQHOaKDHNFBjuggR3SQIzrIER3kiA5yRAc5ooMc0UGO6CBHdJAjOsgRHeSI
DnJEBzmigxzRQY7oIEd0kCM6yBEd5IgOckQHOaKDHNFBjuggR3SQIzrIER3k
iA5yRAc5ooMc0UGO6CBHdJAjOsgRHeSIDnJEBzmigxzRQY7oIEd0kCM6yBEd
5IgOckQHOaKDHNFBjuggR3SQIzrIER3kiA5yRAe5ieqgNu3Re/EIY18LH1vv
qvEpTep01+cC1CxQDODlRMU+c43iTFc73e+n76DWXo6u0dG+NPT+j8Aevnjw
OfTrbpPPf+P+29PT757lmOS6Nj1N938bUA4yO5KXvG53//DbRtdAf/KCKsxX
+/Z5uXscQnzc4Gp6runW2+cvH34f2C/x7JXocJyXlBIPr1SH4yxHN71RnYeQ
JzEdXcz1AgAAAAAAAAAAf/8HFYLIlQ==
    "], {{0, 500}, {629, 0}}, {0, 1},
    ColorFunction->GrayLevel],
   BoxForm`ImageTag["Bit", ColorSpace -> Automatic, Interleaving -> None],
   Selectable->False],
  BaseStyle->"ImageGraphics",
  ImageSizeRaw->{629, 500},
  PlotRange->{{0, 629}, {0, 500}}]], "Input"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Log-Log pig", "Section",
 CellChangeTimes->{{3.5886699076211557`*^9, 3.5886699200563774`*^9}, {
  3.5886699748154736`*^9, 3.5886699803846827`*^9}, {3.588670146765973*^9, 
  3.588670147171574*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListLogLogPlot", "[", 
  RowBox[{"pigdata", ",", 
   RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6961855152369595`*^9, 3.696185529438295*^9}, {
  3.69618575775659*^9, 3.696185762519101*^9}, {3.6961858104836617`*^9, 
  3.69618581713624*^9}, {3.6961858615070667`*^9, 3.6961858627394023`*^9}, {
  3.6961860017279115`*^9, 3.6961860617601013`*^9}, {3.696186101877889*^9, 
  3.696186104512842*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
     0.0055000000000000005`], AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJxdWnk4le/zPtt7nHPKRyRLtAiFFkJS0oyQShuhTZKoiJKtyJISIUraSUlS
SRES4YiyRbZIyJqd7Os5+L6/f3//cN3Xs7zzzNxzz8x1HRmr88Y2NAqFcpj8
83//t/bso71dy0BnDx2VrptDsI0rEXpWiYGLD59ZMmc/DFnrhD88kmdgl9DY
nkmDETihfaBjqwwDvxdomNtIjsLluBdNt5cysMJA+0vln1EQhMamz9IM/NG8
jaLyYAw8e/fN817MQB+VntXaO8dB7h/ry3YJBtLV697Rx8Yh8tFWg3ZxBo5T
lVWlHk3AfjWVH/rk/qKep2396pNwaqupgA95f9nJB3+ViyeBtjrsZpIsAz83
69yyOjoFan5SFw1WMzDDx/ZZbvcUmORkyFtqMrBfPzFDzGUacnmjKim7Gbit
9Gpn7Ng09P0n4HjzFAMFGhmml2x4YHa4XVDtKgNjKtt2aH3iwZ3iXymiTxjo
qzLeMN3OA73tHHnJNAY2L300eXWQBx6RUusMKhhosNVa99NfHkRd5Dm29DKQ
nxjPlf7JAwdKY5wyk8CCmW6jm8U8qI6zG3qxjMDZrWtFfxfywEKlKttPk8Cq
4wZDv0jM7d3YvdOIwHH3Qbu+bzzwbVma1W1LYLfnvjcXv/BA8c61B5yrBP5X
u6xudQ4PpLzvZac9InDYSO1U7FceyLx+n3E6icBOxb1czVIeXBpW99YrIjDr
fZqjTg0PlOIXef1sJnCn0bTx5T88WCz19VPUBIEew/vyea08+Hnd3ahLkImt
eQVzCZ08eGLUm24nx8Rvpn1Jp3t5oG8jqLhfi4l6OxbqQR8Pgl4VRbUYMXEu
xOuVMbn/sUzeRufTTMwvqN++tY4HX2yNFh71ZOL2JPFGXdI+qt7Ny3fCmDiy
w2yt5UselGuVsmzimNhxVjnT8yoP0uL7vAYzmailSReiHOVB5Mhuo80VTDQW
PuX8XI0H7pvCfC79ZaKFuff3XSI8IL6r7iqYYGL8GeeGizPTsMYu3CJkngAu
7vlpum5yGqQ6G3zeLRVAUaeHCf5z0/BdaiDph7IAHr1i7JwoyIOaF/s3aYEA
ajf+6xNbzoOxxiuOAvsEUIFDBL3bxAMdqSLdSUsBvGvvJ6pswYNleulnw1wE
cGiPY8qLYB7kaH4JuxcggOXX8sODM3jwMajE5dRDAWwyig78RvJh0i/wwI04
AXQpzl7ZxeHDr1VPszM+CmC8rIjI1fV8UAuRvcrLF8DZqL3Mi0f4EN0Udq/h
lwBmebC3Vlzjg2RMildClwCOBsWGeyfw4XGR62jUlADu11oWqdHAh6WiArpb
57GQfZgfGys8A7SqSO60NAt36n+cZuvMgFHAurd5a1gY9uikg8b+Gbj06abs
ZU0WuswMFhYqzMCFz9z6PGDhEcmtg7+L+VBTmHPWTI+F65nbI5z28aHzEJOX
sYNc3yLloUryh2O6ULx8LwvrYm4mmjjwgP98za2dB1mYra2uZDafB3crpIVG
T7DQtKHB42vsNJSKa/GGHFhot04oc/WmabgSG2tZ687CIJdTJw3Kp8BY6Wm+
oh8Lz/RPJ7g5TIGvvtKQ7E0WvnhWpnCTPgX9Sht6F9xhYUxZcsCuq5NQkLpj
6Pl9FmYkGsu96ZyAyg1VuoKPWfip+YR8GE7AaMi9lv4IFqYtaJ86/HAcguct
XMeJZGFfaGLkx94xWCq/RTOb3L8if15DkPIYHP+qEWn3kIWLyqeWoNUoNBDL
Dd/cZWG3vODTstsjMF0QGX43lIUqkQMda4qGQSxm85eR6yxUu3Dgw+i8YThg
fCe/4zILRZNiFBr3DcGO9OWh/y6wcOrKFY3KW4MgWNprfO4MC2XsFquURgxA
wa5k2QALFh5ilD28LPQPQvIgM/gAC3VaFNrMT/TB2uhLe5aS/jbqn0gS8e4B
lxmbFnNtFm5naOp0uXWBtfZ4jZwaC8WXrK09dr4DrDa6lRMKLEzsvNTBtfwL
qVdVcu9LsVBJvG7BSkYrHL6g9zVyAenvVenKtDWN8Lz5gwZ9PsmHQ94KpRd+
wfT6xacpwiwM/ywRIiBRARFsDdy9lIXzGEafLbsLYe7H5xJ3ZRYypT3GBAPy
4KnTTXYNsnA0t0b9tmMO2NrHGt8wYmGc40KPY/2Z4JH7ZUTOioX7n5xyeHUp
E9zd/Ks4TiyUtvTu22/+BYoVDs0Me7Pw44K9O6V4hcD6FaChGMDCznDfQ68f
VUJq933rj8EsvCL+/XqgZR3EGhXO8G+xkNp/Vy1cvgUi7v3jqjxgYeatU20J
cn/BTPqondZzFj6nmVq0WrTD8mO3Xle+Z6FgoRKnNOsviGqK/6Vks9Cj2ttK
Q7UNDsZldel/Z+GmD4vF811bAU9WbH1Rw8Icz6v5GZltIFazsfBkEwsffbve
EO7XAaGnl64waGdhby9bbZNdNyxnyDwZ6GKh4ZMyc4mEXtgZsfbbl14yfo+F
62J8+6Gq2fy++gALrz15f7nFYQCihke3LBllodQ6H87yokGY6MVZl2kWDjdN
fhArHQK9/QdKHlDZOH9qzZmrUcMQg39Lc1lsDBgqUV64awS094Z9eCnERi/K
rrMd4yMgmbn2Y7YYG8Nsjpu5JY8C32HJ2pGlbDTtWxgjfWYMzj9OPnxdgY0y
T7cfG+GPwYlGsNNSZWOBjuOy+V7jYJzlnDi9iY05r/Pb69gTsC3ns/a7rWx0
aEl/cS9hAjw2p8p81mHjhciKaWX9SVhZbpFttJ2N2aYPf79+Mgm7JKJ0+/ay
sTbbjCX0bBKkKpSCdx5lo9GI5OOO45OwICptce0ZNjbbz1jOMCah9YeM3rQL
G91XVRoHvZqA1Bsi1UXebPR40pmXZzAB9uIZ5sP+pP2CKYdOVI9Dyuzu5lOh
bEw44n83aN84FDmptIffY6Ok00xYZM4YLP6t/PZuJBvTK23UvpD5qzta9Ds8
ho13qvaZ3nk4ChvOyPg+fMPGzGf/XbMdGYHnOR4suSQ2WtySLMqGETi7pgYd
PrLxrmL6fE3fYXj2X8ThZRmkv/8U+C9KHYKJB1+Ovs5kI2/b4NkDFYNAdIRe
jM5mo+6NIVXJ6AHYbfYie5DLRrdV9mXSLv1w3OBHbCmJvfvYJu/W98L1K4uO
h2Sxsb7xVc/mmi44IMAZME1n4+rIuSo1nQ54rKXSOpnMxjW9LwNkDraBdsuO
1m3v2Mjc6Zkms6QZbqSdkfZ9xUYte0kbkd2/4WfG0ja/5+T5mTimZW4F0LIy
LAYi2Nj7ZcHWtP9yYfOH+e7v7rJxZ3G+2UbdCK59/gPv1BA2RrhEnBRU+sF1
WeB14HwgG20Dvg29V2niao3e4XUFsVHOQrVQ/1gX9+bbd57Pwtn4oVfrlnXS
ANc4/t/d6mg2ssO0AqjSQ1zZF2+WBJP+e2u+/cphwwHupT3H6bnkex/87CyO
uNPDLezbdiO+hI3mEvKUyEud3BdB/x3bXsfG9VMV/xVe7eDO7P6u9LWLjQ3o
7Rh3up27Mmu7w+woG29TmFfqJVq4R45OdRjy2Mgp/kj7dbaKO3j0w5l+Es8W
3M+8Y/WBW59wSE+Az8ZD95Z4OkunwclzQ7Y2VA4uvFY7nnsmHzoOC2wfmM/B
xWn/dCW1S0DnR9FYrCQHB2lvwKGzAi6YypTryHDQfC7eWX5NLViLPH7tSWJV
Viq7Pb8JHLxTHOlLOPiJZlHRfKYNFj9X3UFIcHBBr0Ieb1cHfFgvaXNNlIPR
Z5alpBZ2wbVTrPIRYQ5mr8tjBWr2gkr/9kU3hTh4Ytc5sZnYfjh11PdsmSAH
XfSx7GXbANwy8NFNJ/GEzLmbhn2DENQzqK9K7r8Yc3PLaNkQXEzzs5Um77t2
v9luUdIwTJ2YE6gU4aCb/gmB2DCy/gybdfPJ70+t8eW7nRgFtSC9tFjSvgbF
e1YWomOw/eymB0mk/b8NNhVXJ42BDGfq9pMVHLwxrfTAZ8846Pqff/NQnoOu
x4cZl4bHISndYnkYiccjZGOCHk6Axf7oom3k/jb5rxVv107CV/HRtmIpDvaO
LBPTiZuErdnBLs9Je5R+Tq+sYU9B55PTizsEyPMPe6nHTk6Bfmpr2fIZku8e
e68p5EyBRK5joMsIG3/0JThlyk0D12X8PaWXjLcTlWFyaxp6DV+exjY2bjix
cXMcfxpO6hz696+ejS8aWJt77ch+0KnqtVM1Gz2n3c8LkP3jMetKhzvlbPz0
bJW31S4+DKtdcxX7wcYvR+R+W3zmQ7Nj0pFkEgc93iFgojQDlin598sq2Rgz
f95a3fAZqFLQ3VT7m42sMHOF1JEZqJF85t/ewsbdv9bdjd8zCxlvErtjSH72
1jOytOJmoXqlx3lOPxtL89ScBog5KKW9sJUYJPXMsqcny3YO4rzWWz0k33dB
yDS2v2QOjvwu1Fo5SfLT3vpenigFFybdbksj+Vqtm3bbEygoqeIPchQOTmp0
hEvZUlBcNW7tWxoHTU6Mx6+7S8GjgwGF4QQZnxSBVRU5FKzKZo9ZsTnolblZ
b6CPgn9Ep0CB5M9VObtprhgVR2wWFWSR/DG8KXr5ylYqVjOd7h0i+bPEg/Lt
nQ0VxTfkMfQXcrC6pLJWMISK2pXKcUpiHCw6ta1mMpmKWtZbtDXI/BCq/37j
yW8qcr/XzO4k451Z5CaxeZaKUnEGlm7SZH61e9e9WUHDcIG3G8JIfpktizsn
ZEDDTDOj5UFLOej+283jmR0N60A5WpfE5tLHPFkhNMxZ8CatljzfMuSwjfWe
hg7n3jItyPNbpietHpfT8MlBNcUMWQ765/W0r/5Hw1xB3axCZQ7WRq1JiKTQ
sag76q6PFgcPBdBVDKl0XKmVORkKHLTemq8iNEBD/Sc5VpGbOSiR7ulZWEZD
DYuf2+LUOKju1P9BNIGGv8qKruqrc/DPNCVjwS0a1mJ1UyB53sAhcrTYnYaK
2g84bXs5+DdCZLTgHA1flLjb2R3i4Jt02t2152notpEm332Qg/JaYmu0L9NQ
Wuf4bIsRB6M6DOeu3qbhMb/ewXDyfOjQmd2+b2hoLRQ4D405mNtToc/Mp6Hk
ptUv6Uc4yP5m2Mtpo+HUlkNUq+McrLhxKs6QRsc1xzfKNR7joKBv0nkLGTqu
H3dYcN6Ug8frcy7Fb6ZjYN87FaGdpD4ZB304touOtub7G0S3cHBfi/+E2gE6
GpQ/S89U4eDTh1njocfo+Pos7d58BQ6G+QfEfnWkY66PWcoEqW8XVm/5sySE
jlP1FQnWpP8VrNdEvH1LR6/4UddnpH7Yxnnv8i+i41dD5lErMr+tK3LpNq10
3OVh1XyLw8G98rfdP0zR0Wqd7JlZUm+/mbUp+AiTc/L3GolrU2yUH/rXba/I
wA8mj9lGQ2wUFd1wcAOS675rxJd3s9H/4khDsykDNZWr/sU0k/XorPbo/bMM
rN68vC/5FxuffiyhxPgyUDii5o0imb/d/1I83txn4BPvjYfb8tio71Xjga8Z
+MXwuRv/ExuzQg+Wc9MZ2JV8oLc2gY0La/yUZ4oY2N6apVZC1sfv8gpHVtcz
UJ3bYJnxgNSXrVmhfn0MdHTZkKB8k6zP10PNtfkMjIzgEH982PhwbJLuwiZQ
75zLgW4nNj6jLrZsEiWwv67lDdeG7LequNnF5Jy+e8FLt2eH2JiortDUqETg
2csdWs6GbNxxrKmJpUHgn/fM+mFtNp5+8f6CnA6BJkwjvw5lNoZW6Qzq7yaQ
onnh7ToZNp64Nypve5DA94kDcznCbDzT3F27w4rAhPDnQulk/2fyrlQoz57A
tUConxxiYRcz2WTlRQIDXI17Fraw0D5bRSrXl8CeT43C7eUsTJ6++HP9TQJj
a7dIvs5h4cu7TVZO9wgMHDbco5jIQteL621bIwlU9Fc5Z/mUhYN6X+oZMQQW
zq3WOkPOMy8+5F+mvyZQk+hehF4slF++0tDxPYEHaU7938+ycINwYFRWKoGy
/eoGIkdY+HSv9RzrM4E6/vJyB8j5RMDWpkGNS+AFYvH8TA0W1vS1JQznEnhg
j+yImDwLv+p+SKjMJzAlPtZzWoScT3YPpFwuJnDbxkspxyhk/x4XZCteSuCo
CXtxSb8A7lAyAKMfBMZIuwkX1Qvgba8VY8kkFqxolZotEsBjPhd8GGUEFpT7
DeqmCeBT6s4AJxK7DXLGUp4LYFtEes1tEies3HUu5aYArjKsn6STWMdWuDzb
TQC/G9c3MMn7DiwQWbrUSgBfvpYQUCO/rxpkIlSzVwAb+4YT/5QQ6L+/4n29
lgAWM/Yo5JL4gFrA2GYFAfyX+811B4mXFn2517xQAHcrqrQs+k4gv46vYTrH
xBv6Bp8tiwhclp9MHe1hYv3t/yK+FhB4+apM3Z0aJhb+wukM0h+BQnu76r4w
cZmrwWFZEjf82/Ux4y0TO9csH9T/RmCSeaWQ9QMmnpfxFrPII3BrSemRMV8m
Hg2JzVLPIfDYSunLe+2ZGLn5/E+VTAJ/B1U5oRkTJffG/y1JI1D3QJh5CTBx
3uo7zuLJBHITRtfLKDLxU8/pgZYE8vsOnlttRJho/e3X55OvCNwnFHE2jEcg
232R/GmSH5GVvG8+fwnMPmrrcf8pgd0qy9yFST9dSfX+mELyqXFZkux2khf+
QX/b/zwi4/+ZHbLpCYFGaz1Ck+4TqNalSgheJzB63L9gPJxA3we1kvkkrxdY
bBhOvkPg1Cv9r1omBM5T6NJ5ROKaU3/N1muRcdxaq/shjMDZKj3lezIEKhl5
MWmhBMpVf+M9FSBwxoQVax1A4IngnVFP+xm4abHo/mc+ZL5m0owiqhhYr6sY
HnKJQIkrGUeR1IkBnvXDk04EjhxKPLslioEcrRrq7FmSDw++BD65ysDZ+WbX
71sT+GP53jsZpxhYeu0lvdKcwEGQvZixi4GpIgnLCDMCibYtdWbrGLjwZ1Zb
3n4Cd9yOuK1G6qBH3pDeZTK/N015xh8foaPYRdHZQzsIfJY9/ca4mo6lg4cP
qusRaP5gX6pFGh01Gns8HJFAz6avFYaPSJ0X59lv1yaw5a58zzMPOj41+P74
ymYCpxcK/tp0lI7LY47b/t5I4P0BKT8rLToGCw7d27GBwGB/g9cHpeg4XtFZ
/EuVwFMOEdZt0zQU2HlV54IKQfIwcSD2Nw2jRK5cll5H+o077BybRsP0q/Ya
29eQ73nrc9joHlnHj1XcPr2awKCvrDttTjTkxG811Sdx0Z0SzYl9NCy4FEhU
k3p3qHlAY2w1DSO8iv3UFMl8iNh74SeThlotSY9jVxL46UNJlmILFa/QdeRN
5Ui9Gox9aPOZitJCUs6TK0g+h6VHbrlHRU9RVY05Mq4yT9kGAueoGMq8eHbf
cpKPv90/P9Cn4ui5wrsvlpD3y4rXWkqT9yVPvq9aTOaHvuHCjGEKzv6gPY+R
ILDzUsZGw0IKyoU0vsoSI9BW3GTKPZKC3ZpiB8VI/Y7/qPl4+3kKgvkrOb0F
BKroUx8e0qFg6ZtbJv/NJ/BhnEuyyEIKKslu3nSTRWBI28vq3wVzQPRyhKYI
At9Sq94sPjUHidVzlyPoBA6dm8wsp8zB2pA0/xgKgdpbHk4WPJqF1GxnmUKy
nlzOFfRyU52Fb6VfpxdMMvDUMukoyeIZsGAe1zg/zMAIE2v9CIsZmJfnWPW9
l4GiNxyl+f/4MPa1ynTTXwYGJZfHzfPkw047n8JUsn75BU8/f8Xkg/3mUt2m
CgZKJnO6l4bygH3Oqv5GPgOX9kqN/VnAg1V6pT4zGQzct3CzrEPoNAjNxZjs
+sDAxCZZrgJrGjo8Nzy58p6B1nzGq/grU6AuQTSdTGag0tf17ATeJAh33i1T
z2RgSPLrB6Lek3A/tBwmChh4a/cJWd95k/Bp4snzQzUM/FN2yFcvegLU5e1f
pHcy0OLDkR2J6hMgrfEsLGmagbhlb+Cd9HGI8i3a/W0eWW+Ebwl2rB4HC1WJ
Gg8yXsAQ694eNgZPuHdtrEg+7E2dYtn/G4XrPTyfqbUE7mHP9O/XJud2JaPu
RDIfHAJCVNNcR8Cs/ARn1V4CqzTimS9fDsNq10WPG8n6ueSbk0goMQzhV+6P
ZZE6AtjWtaVqCMRcW29N6BIYbkxb2LV0GBxtZU4Gk3zN0wu/8u7NMMgaXxw1
Iu17GSN63Ul8BDbdCf6xYoCBrt73xwRWjEBX3MGl9XUMbPmkvac7YxiWf/Z3
jSJ1BSMXPXg/NQTGI9aSH8j1932SyZH0Idj+8R17qIeBM/2r73wfHICK49on
xXgMrHVOMSqu6YcoWYaYIINAfbvc7e05vfCQddorkuTXo8yaVa9udsP3sXav
FSTOaoypvjvZAeLd5r5RpM5ZmwcelG9vg/NJ5rc/kHxdkXb8sUxKM5QcKKhb
LETqF3fCZE9RA6Ssef7Pguxf7B59VwtrqQeDvzX9dVMM9LJ7lTd1rxFcxv0y
5doYmL9BpMH3VAu4nlvDeUn2S4VpVze2b2+DQrHc3qFEBjKnhPYui/sL6Tb2
Rc6PGdj380jk47J2uLz19c2A6wxcL1ClV76gE8w+yVi6OpK6my1lpGXXBR8c
hT7+PsxAG6Nls5efd8Mqq71rMnUYGJeTcWvJvR4YWduw4yTZH+rZifn0mfRC
Z7lhdC2pm9GEjKn9gj6YLPI/dGuajv0/f35O7+oDT83YU9ktdOyJe/Bwrr0f
zpbPi1qRT8f0SVG3IOoANC3RW6T6iuxf/6zUeyMyCMs9lVb7BtIxpHbhpcDb
gxCSNfLU8Cwd5wZDnlTUDoJgZe764T103LHM95BExSDY9wdGpqyn427u0XWl
roOQ8mj+hLo4HTtk/Fblpg5AmZSHRMMsDUdXdIys2vQPbEry9Vd00TAm81S3
WGQfCJcsThSspOHzymA819sD7k2v3EwyaeiStOmI3dpuuLT42pWTceS81Gx8
Y//ZTth9vEVSLpyGdy66m25+2g4vvj9zue5Nw33Ootl60W2gHBd+gGpLw82v
dxb4bWyBrfUZZYomNBRqWy5Y4tkA778WDTpuo2GndWpzmVs1fJbR2TasRsO+
5M0hS3nFkCnjm5AuT8Pbl/J3f7FKguz+qGWli2g4+HNbtVNrBtc28nzcKwEa
3tDQeXCw6Cf31wzN4yKNhgHnJETpV9q4EdEdBiksGo57qSi3nBjg/okZvLlQ
hIYXT4a/DIua4MoYTqWILaDhgjs6Gy0PUnMqo1O0E6eoGNkQtfLTaXbOjut0
wrOSnB+HjRxVvIVzPjknTUa/pGITe6cgvWRBzoiVzLN1PlTsndEc0zwhmDO2
7+qd3CNUdKtPn5BdJ5jTpfZP4JwqFd/dW7y8nv1fzqfvOTFWDCpeiheTPe3G
ypljBEcV/qKglmygd2sMJUfqqatQUCoFF70JXWeTNMalDKz+/DSKgv9aK/d4
s/q49rJv4WQwBU2CfofNybZyF/02Xr7KhYJ9993d9/TVcHdahpxzPkTBVFjn
KXqhkNscX7DTTZuCiX/59Z6lT7nsG96rJ1ZScElz3WcbWg6IaHgt9SDrhPeL
NNYDXjkECt2O1JqdA1+h+2YLz9WCW3BJ85nyOQgauxS/93oj7PZ/dN3h6RzY
h90SqetsgUnZ79dO2s9BQtWr2MQTf6HsQPaLQPU5qC7bVhf/tQOuO0ZVVIzN
wpklrhrs/7qBv34wQi9lFqLnsoV1tHphYJJnvPrSLHjlL9Jbta8flGMu3L+2
fRa6zjcF3d01AF9ea7yukJ4F60qd/YfuDUJQoHAga2wGhNNYCcxLQ9BKvVbO
LpmBVS7L/ayMhmFLkNvqRTEz0BRN75BZOQI2jmduszxnQJDV8fa/iREYqlEM
DTebgc/upiJVOaNgfF055O/6GQiNcaZbXBkD/fP6QbeFZiDgbWTeaY1xGPSw
khIZ4cMWtVxDyY5xcB38ZObYyAfeRM7pmdsTMNPXa/O8nA/Dvts3uG2YhLaf
JXqvCviw8NMKFfeKSWgJNuWvy+NDwUR0YI/NFGjZJ5qs/8qHOAOlAKPxKWiU
8huxLObDz/iOoI3Xp8FCvbi4q5IPzBP0/DvCPBi326zd+ZsPjPudKjsf8mAz
/yrfp4EPufs6xRrF+UAPumFxlFy/atZ7ZCSMDw90PxnQSHv0euzey7JnwIka
qhmdw4fOpxt6RL1n4LaiTt+2t3zQZLaJbhuYAeK6z6zlXT68D1KotDg6Cztr
J75x3flA6enjL8ybhVCbg2//M+eD7QbP7vkKc+B15MFuES0+7P4a7D0eNAfx
58Uv0iX48ONMdO2u3jko+T2w0XaMB65f08FPjoIxno9PPqvmgW9rJL/EmIJV
VrPzM9J5YOH+00TOl4K246/3ukTzwJ7Sc1HmPQUNtbVTHgbz4LlX/NI39RQ8
KcGcMnfjwf2s9lpnJhXdIwQZuy3J+/JGpyNVqHixQdxMcScPWMGMUvZRKl7r
Sm3wU+HBsdjOZqofFelmmXiN9KPQFuHj9Dgq9hjWuJg3T4NH8hufeC6Zt/ln
hmRuTYOD9sdqlVIqvuaw5p2QmIbs3arNqlVUdI2V6hbwn4KmWwJDyr+oGP3C
QfdS7yRIf2JOz/9DxevFU0eOmE7Ccq8dfxLaqXieus9zK3cC1BxHHEQGqVj6
uuDkD6kJ0KRlbfkzTfZ7XuvT758ah5SiLxMvGTRcqRLV9uX1GDiKczqL59Ew
rrBR5+/AKKxe4u0z/R8Nf/n59tipjYK4dYPkFhIvm3yxR/jkCIT//vaskEND
Jf/Ua/RLw9BSt+54AEHD7sbNtxKvDAF3f6kif4aKK9+kaaqGDkKnR/03pREq
quxcec1g/QAEZ1YEbiTtLQ2fp97I6Idv/86dVKumolFeh3fQ5R4oplYqj+ZS
sT3XWtj8eydodpHF8i0V40e0znpBO+yS575vukXFt+WynIH0VphctCJZw4mK
JY82UpwNmsBUerVz9DEqpmyMS6Wu/QX8FYWqy8ypuNnO5IJhVglo3hrbG32e
ih2mFqtn9HLgtdTL/1zCqOiRSMk5J5QBHUHdcYrpVDQ09HXqUc6CWNOQhsOt
VFTVUPyUK/EZko4tvC9D+uvRRdeSSYkkyJTqTAJlGsqdVfzrKhkPuaXunrMG
NGx1vHzONDYHrsOF2nhjGt63hcUr5yqATl9pYGlGw3dLw/L+GdfDDm8RrzZL
sm5wT5kxzzXDZ4VMLenLNNSs/ngxybAFWtYdv6z+jIaqx0L+5Pi2gHSgaWnC
FxpeF7V5WXazFdRdax4v+knDOalt428G/oLNhEGa5S8aGu+Ok6ugdsGqt+3D
9uT6S+eZnvyOHrhLe8yvrqLhsNH24k36/bBLhfLyKrk/S39NtTIOAMM/QE63
gYZWrdzrK+8Mwprdn169bKJhr7zaUHXYECxZtM1koJWG/cdOFBMRw9C3Q+iL
cTcNnauE1PhBI/B7naz3sjEabvox2qG1ZhSU+lM0qph0BPnYHVf3joKlcuFp
oyV0/PDeJCSwZQQWO/8pvr6BjuuYv/8sYIzAwpLBy6676DiCBaZ3Joege/RJ
a+xBOi4J/nSwe3oQzOdVCfub03Frl6uMi+gg+V7j9CYSb7TRifHBf+B5vq2p
jMQej+v0paZ6QfzY4GETEh+xnV/81KIbdl1ItP9H3ve32uB7zbsO4G1Kbqsh
+5gVzUW90jNtYMyM1uMhHQePu+5Lm9cCL43eXVAn7fML8FXlLakH8RXj0SKK
dKy5+LFAgl8JPXOZEoZidHRwvbiqfCYPDvg0SNwi50V89lJnJnsNt/t9yNV9
pP9Omx48cbS5gHtCfUD/UTWZP+brL1jxf3PtDKNOMDvJ+fG8WMuv+21c9bkD
W7Pn0dHiWkdqCbeDW+BpWuasSsfXtPdG21+2c6N7IwM2GNGR+kBjcaxTG3dj
0dmnSvZkX1cu0xW8oI0bLuN/TOcmHdX9DUfzlf9yc1RttfWT6Fi/kh/nYdHG
zUo+4NdeRt63aeyDbl09V3W+X1LfHzouOp7mN2xbyD14W/egeSMdf02bhP7S
uw7rXuj9UW6mo8y/p5Qdztlg87zz4tFBOiaYWIisfpgHIQGJLzQEGbhlyOxW
z9A3UHileJmvwMC6yif7PT+WQnqzf8CVjQz81fTdLZhVA7eLm7/+JPFdShw5
FTVC0ZVUlFFl4Jdt4QfEM1phI+vIA7d1DPzxS3O4iezrYlt8AiNIXCen8/zs
yi4QnYvxLlRmYMPoO2OXJz2wvrVerJnE03nCV3Zx+sH9CTvYmMThP0YUn+0Y
gNMjS9ybyfMX5PpvF8UMwv///dX/ACahGKE=
      "]]}}, {}, {}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{-4.655356653924905, -1.3448308695166977`},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{
     Charting`ScaledTicks[{Log, Exp}], 
     Charting`ScaledFrameTicks[{Log, Exp}]}, {
     Charting`ScaledTicks[{Log, Exp}], 
     Charting`ScaledFrameTicks[{Log, Exp}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Log, Exp}, {Log, Exp}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Log, Exp}, {Log, Exp}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Log, Exp}, {Log, Exp}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Log, Exp}, {Log, Exp}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{-4.533019264650141, 3.296573648934665}, {-1.280208943385015, 
   2.7263504767793036`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->FrontEndValueCache[{
     Charting`ScaledTicks[{Log, Exp}], 
     Charting`ScaledTicks[{Log, Exp}]}, {{{-4.605170185988091, 
       FormBox["0.01`", TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-2.995732273553991, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.05\"", 0.05, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 2.}]& ], TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-2.3025850929940455`, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.10\"", 0.1, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 2.}]& ], TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-0.6931471805599453, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.50\"", 0.5, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 2.}]& ], TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {0., 
       FormBox["1", TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {1.6094379124341003`, 
       FormBox["5", TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {2.302585092994046, 
       FormBox["10", TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-5.298317366548036, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-5.115995809754082, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-4.961845129926823, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-4.8283137373023015`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-4.710530701645918, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-3.912023005428146, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-3.506557897319982, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-3.2188758248682006`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-2.8134107167600364`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-2.659260036932778, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-2.5257286443082556`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-2.4079456086518722`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-1.6094379124341003`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-1.2039728043259361`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-0.916290731874155, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-0.5108256237659907, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-0.35667494393873245`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-0.2231435513142097, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-0.10536051565782628`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {0.6931471805599453, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {1.0986122886681098`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {1.3862943611198906`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {1.791759469228055, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {1.9459101490553132`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {2.0794415416798357`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {2.1972245773362196`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {2.995732273553991, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {3.4011973816621555`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {3.6888794541139363`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {3.912023005428146, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {4.0943445622221, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {4.248495242049359, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {4.382026634673881, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {4.499809670330265, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {4.605170185988092, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {5.0106352940962555`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {5.298317366548036, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {5.521460917862246, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}}, {{-0.6931471805599453, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.5\"", 0.5, AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 1.}]& ], TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {0., 
       FormBox["1", TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {1.6094379124341003`, 
       FormBox["5", TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {2.302585092994046, 
       FormBox["10", TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-2.3025850929940455`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-1.6094379124341003`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-1.2039728043259361`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-0.916290731874155, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-0.5108256237659907, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-0.35667494393873245`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-0.2231435513142097, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-0.10536051565782628`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {0.6931471805599453, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {1.0986122886681098`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {1.3862943611198906`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {1.791759469228055, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {1.9459101490553132`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {2.0794415416798357`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {2.1972245773362196`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {2.995732273553991, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {3.4011973816621555`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {3.6888794541139363`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {3.912023005428146, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {4.0943445622221, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {4.248495242049359, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {4.382026634673881, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {4.499809670330265, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {4.605170185988092, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {5.0106352940962555`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {5.298317366548036, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}}}]]], "Output",
 CellChangeTimes->{{3.696186005704485*^9, 3.696186023252366*^9}, {
   3.6961860537590337`*^9, 3.696186063406377*^9}, 3.6961861066371317`*^9}]
}, {2}]],

Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJzt3UuS48YVheGkRx5qC96Fpxp6KocXIIVbCk3aES05HN6012BVsR4gHolM
IHFu5uH/hduu6iJAXOA3CJJV1X/56V8//PynlNJvf/7jv3748T/ff/v243//
/t0fn/zj62+//vL1yz//9vX3L798+fbXn15u9r9bSv9++eDu9ur+wftnwDUe
MyM6CLwGNoku0Ryu9hjdjehwvUV0NIerzaK7ER0uN3/qQHO43PJMF7YpeFZE
BzmagxonOsgRHQAAwLi4lIMab35BjuiglvjmEoglooNaojqIJaKDXOKiDnoU
BzmigxzRQY7oIEd0kCM6yBEd5GgOcpzpIEd0kCM6yNEc5IgOckQHOa7pIEdz
kCM6yBEd5IgOckQHNZ68Qo7oIEd0kCM6yBEd5IgOckQHOaKDHNFBjuggR3SQ
IzrIER3kiA5yRAc5ooMc0UGO6CBHdJAjOsgRHeSIDnJEBzmigxzRQY7oIEd0
kCM6yBEd5IgOckQHOaKDHNFBjuggR3SQIzrIER3kiA5yRAc5ooMc0UGO6CBH
dJAjOsgRHeSIDnJEBzmigxzRQY7oIEd0kCM6yBEd5IgOckQHOaKDHNFBjugg
R3SQIzrIER3kiA5yRAc5ooMc0UGO6CBHdJAjOsgRHeSCoyP5Z8SZDnJEBzmi
gxzRQY7oIEd0kCM6yBEd5IgOckQHOaKDHNFBjuggR3SQIzrIER3kiA5yRAc5
ooMc0UGO6CBHdJAjOsgRHeSIDnJEBzmigxzRQY7oIEd0kCM6yBEd5IgOckQH
OaKDHNFBjuggR3SQIzrIER3kiA5yRAc5ooMc0UGO6LakatFbPAx21dxWUG87
Kr3eJJfk8Tu6aKLuPM+ku84HULr4s58un2PKvIdj3mR/PORTHtezhOc/YcaV
55jDJ7Mn6M58vAXl49nx1ZtnZz3cu7BLp+N3ZJ2d52iZx7bH7i4/tGS3wnKw
xSmtMMGrNub4ko5HxzS6j6egRdNdnt7xtZpmZznUp4qDpj8HFm9V6BZcwG+i
mbpj1mF4htXZDbRUd7Zb/9vQ/Oyqc5tnVWEs27eKPgGaZec1zaaCRrI3oLqW
rIbJ2ctk57B2UJ3PkTIaZd92KQWHNDY6q5OdzySlVpIprycsuZtTdTaDVAk8
YZ0wynbucpnjoHGKezXStmaYjHHMWMXdbM51HlMcMNDD6tSAm7xkMUStkS7k
Zgbd7EcOM9QY6pnDmpG3/Z3BCKXGeqq6afgBniC6EV8byRt/CIcJ1moa85W4
MsMPM/YA629NOYY2NfxoA2/+PKxZcI1+brozFv+HGmrr989k15/uQveXQXAv
up1g55GzvLrWW9V0fSPdezuxYxSVVRXd40ov2N7Wq6y698A7b+mCQc6WtFHL
/a9f/zTf5DKxyRFdfpVnzlP9it7i6PtvR/BrFYYsbCl8huj7b0czycDnt7se
Njx+C1oRTtLpY+va1ry8zJdulz4nqdfDNrQRMEkv7RVfe/ZxtPvYiibiRgk9
riv3urYpPR1nomu5AfpTSzdnrxrjbfGmfkaRPbQNGNyLMbd6VaejXNfeoMl1
e6SO6H+UtvX1P++Wcbd8YZxRzj/8Bj1paWTQzV4z3ihb8dWKnqPWeFu8yWGU
+sxGTG+kbd1hNEq1ktNeN132sh0tOM1yyCiPxH1sRRtOs5yQya0qu4IbHtzj
TgfKaZbLlFdXcMNje7yT820bTrNcqPSYl0R3cAMOLdYnq2EuVPgYu38jHl3N
hrlUYXX7qzl250eW6pXXNNcqyW73Jod2uNUVHdFVKTj2V0V3YKF+mY1ztd3s
iK6A2TiX26vukujcDpLbPJc7Wx3R+c0jkN9lRLfPbR6F/MmO6Ha5zSORre7s
RV+jZXrmNo9G7v2JvegO3d2BhTrmNo9KJruda75Dd3ZgoY65zSOTqy67WPH6
Dyw0CLd5hDarO3HFt35Dt4PkNo/UVnZEl+c2j9ZGddmfuShf94GFxuA2j9pq
dq2j6+oX+TRAdCdVVkd0N6I7b626FtHdiA6bqqqriW5yUVe7TX0juvNWqiO6
HKJrYK26zZtWrPbIQiNwmyfGsrojLxxv3tbtILnNE2RR3WZ0VSvdWdmo3OaJ
sqxu43ZV65x/YMJtnjizPVn9XkXuxmYHieiaeTzZHY5u5Umr20FymyfS7Pcu
rt+kYC2fH5YvNRS3eUI1jy4VLzUUt3li7b5fWrK3J5dyRId9e9+PRHQv3OYJ
RnQl3OaJtixm/atVq3A7SG7zRMu/S090r9zmCZd9fC3Z25MfMyM6FMlHt794
Ssu3v9wOkts84bIXdWWv0i2ja7Jl/SC6xs5Fd1/mI7rSxQZDdI3lotvd2W83
mJ3h7I6R3UDR8tHt7O1ZZUSHIjvRZff3/IkD0aHIzsNr/l9cnH1AdCiye01X
8NueiA5V9p9IbP7aHaLDMdnoPr6Sf4tsHl27resD0TWWe0di0mP2LTKiQ5Wi
6FayW/uu47T4ige/iYIVRndLmZ/jcY/O79wdrDS6x+web+send9EsXLfOrz5
FsX8sZboUKUqurc3Kbau79JsjS6IrrHK6NbXQXSoUPfwurOSVLXUOAxHCkV0
BQxHCkV0BQxHCtUyukR0KJGNrnIlRIciF0TXYKt64zhToGl0i69VrsQ2Os50
bRFdAaJri+gKEF1bmejKd/U0OscD5DhTpLT64f3z6ujqlhqH40yR2kQ3+R/H
A+Q4U6QWrw0THao0jM72tWHLmSK1eG2Y6FCF6Eo4zqSV1j85/y7Y+moMOM4U
aTu6Y6+YWB4gx5kitYsuER3KEF0Bx5kitXsXjOhQiOgKOM4UqX10DTaqO5ZD
xclEV74OokOFNt/ZNF3e8vhYDhWnyZnu5U8yjo5ruqZyZ7rylbw25/s8wnOo
ONvRVezo6S/VsTw+lkPFaRWd9SsmnkPFIboSlkPFyURXuRKiQyGiK2E5VJy0
+uHKp9mV8PCKCpvR1eznh593dTw+RNdSah6d5fGxHCrM9JLubHT1yw3Dcqgw
RFfGcqgomehq1+IcneVQYdLn26ZEt81yqDAp3f+T5ju2ajfbP5Hg4bWl9/fp
m0Q3/VZOM5ZDRUmfqcyiq1vLbetR2oPlUGEm33p5Prrb8lHaheVQUfLRle7q
jycSyfXweE4V5KO0xT+mWbWW2+Rs12bDOuM5VYzUPDrPR1eia6hRdPcVrK3G
hedUQbaiq2+H6FDoY2cSXZbnVEG23no9Ht3pTeqS6VgxNqOrXxPRoUxKy49e
Pzu4JqLDLqIrYzpWDB5ey5iOFe0hlwPtOH9jE9Fd5Gx0JxfsnOlY0Ygux3Ss
aESXYzpWNKLLMR0rGtHlmI4V7TG6JmsxYjpWNKLLMR0rGtHlmI4VjehyTMeK
1uZnV4kOFd5+fPDkz666HhzXuYJNgyO6Ode5gr3/9CDRrXGdK9jkF0wQ3YLr
XMGILsd1rmDTf1COd8HmXOcK1iQ624PjOle0aXTHV9JoY3rjOlewRHQZrnMF
+4zuxG9e4poONSbRnUjHtTrTsaIRXY7pWNGaROf6+3OI7hrbv6ru0ErMmI4V
bfoLJnh4nTMdKxzRZZiO1Q+iWzIdqx9c0y2ZjtWPUyc606NjOlY/iG7JdKx+
nAmH6HCIazhnsEsuRnRL7JKLEd0Su+Rq7OEFdgnkiA5yRAc5ooMc0UGO6CBH
dJAjOsgRHeSIDnJEBzmigxzRQY7oIEd0bbAfK7CzIMc3tkKO5iBHdJAjOsgR
HeSIDnJEBzmigxzRQY7oIMc7EpCjOcgRHeSIDnJEBzmigxzRQY7oIEd0kCM6
yBEd5IgOckQHOaKDHNFBjuggR3SQIzrIER3kiA5yRAc5ooMc0UGO6CBHdJAj
OsgRHeSIDnJEBzmigxzRQa7X6HrdLjTAwYUc0UGO6CBHdJAjOsgRHeSIDnJE
BzmigxzRQY7oIEd0kCM6yBEd5IgOckQHOaKDHNFBjuggR3SQIzrIER3kiA5y
RAc5ooMc0UGO6CBHdJAjOsgRHeSIDnJEBzmigxzRQY7oIEd0kCM6yBEd5IgO
ckQHOaKDHNFBjuggR3SQIzrIER3kiA5yRAc5ooMc0UGO6CBHdJAjOsgRHeSI
DnJEhwbqMiI61FpppjK6LfcvNtlIeFnJojKUzepirc+GHrwdn4e/ev/76Zde
PmxzDBdrud/R2x8UetxZn/txnJ24Gt3DqWJ5Mw9vp8TZzljfSRcfhKfzcBw+
Dsb0rJQsm0OERXJb0XGFhFZWTmBEh2ttvWSyjI7qcJ3Jyw1p+QXgApPc1q72
AAAAAAAAAAAAANTjzTYAAIChcTkHAAAAuPs/v1K39Q==
    "], {{0, 494}, {629, 0}}, {0, 1},
    ColorFunction->GrayLevel],
   BoxForm`ImageTag["Bit", ColorSpace -> Automatic, Interleaving -> None],
   Selectable->False],
  BaseStyle->"ImageGraphics",
  ImageSizeRaw->{629, 494},
  PlotRange->{{0, 629}, {0, 494}}]], "Input"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"(", ")"}], "^", "2"}], TraditionalForm]], "None"],
 "-Lin pig"
}], "Section",
 CellChangeTimes->{{3.5886699076211557`*^9, 3.5886699200563774`*^9}, {
  3.5886699748154736`*^9, 3.5886699803846827`*^9}, {3.588670159402995*^9, 
  3.5886701777642274`*^9}, {3.696186304475119*^9, 3.6961863124940767`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"pigdata", "/.", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"u_", ",", "v_"}], "}"}], "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"u", "^", "2"}], ",", "v"}], "}"}]}]}], ",", 
   RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6961855152369595`*^9, 3.696185529438295*^9}, {
  3.69618575775659*^9, 3.696185762519101*^9}, {3.6961858104836617`*^9, 
  3.69618581713624*^9}, {3.6961858615070667`*^9, 3.6961858627394023`*^9}, {
  3.6961860017279115`*^9, 3.6961860617601013`*^9}, {3.696186101877889*^9, 
  3.696186104512842*^9}, {3.6961862069920692`*^9, 3.696186259735982*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
     0.0055000000000000005`], AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJxdWnc4lu/7li0p80U2r/kOFW15ThEqlazIniWzYZP5KjRImSmzISmjqPSx
IqUhDSPKVlRGZPN7v//+/nme4zzu+76u+7nu87ru8zqOR87Jx8SVlYWFxYr5
+N97f+72K19cndH0PK777DQX9HmDuMQsnFH4otzn2EEeHJzWDurQdkZNhcI1
tdLVuNDVrzKh6gzRPW9Vi8XW4LP8x2fSUs4QDG5TZQ/mg97zkNv2ws5Q7Lgj
Zt22FhJrT8aV8Djjlf/IDL8EP0L2bPNTWXGCCx+79e1mfuin6GZZLTlhj79x
sVuIADp11YYKuJ1xw6uGdVxFEPde0gNeSTpDzrZuVeBnQZC581kebHZGYuTC
zKloIZz1exBHHHXGFf5Ec7KmMII2EN7sGc6IUv0y0DwojHM+ovScZWc0HvzE
WZkkghSppFP+kS5QO162NV6NBCkdlg6ygCvaKnq6bG6QUKLSfyst2xW5b670
u34nQfrQpp8C6m7gCtDkDfpDYu5L0EW+zg05osav07pJEE8PKgiyPoYq8STi
ZwMJpYLmroIzx/CiqszDuJIEwaqqJ1FJx5Fz7WPk0CMSNNb/d0iV6g75E78G
Bpi4X6Yhd+KVO6q9vu6oKSFBPfqHZfaJExAKkBL0uce0Nznk383rgdcDBWzp
d0mw2LJ24sN9D6y/3e03/oCEk8Ob9uSbemJF7cFNySoSuJTCk68ve0KdYX7i
XxMJqRF79zvf88Jye6So7kcSBOrcpUwtvCG25nG51FcS3uzS99myygdpU5z8
n3pJyGhpOH2jxAcXUs6lqQyTkDlatiFe0xd9a/k0bX+QsDmmZv9ioi+Gcgnf
w8z5SY9D2XRHfZFyq+tr/jsS+PSj76fpnQRnaR/Fjbm/nssRqeSck+A/u+UX
lcG096Ln7VHWU+A5/Hq614SEtRkt0k4up6DARa7mkyRBhDc1L73uFHj3DlWM
DIpAXKxToFzqNIqSxGcCKkWwuvnvu47g0xhJH3fZc10Ejjf1Lop0ncZUnJ23
/DURvPCXn/m78wzIXunSfDdFkGfzVdo4+QzuSv7cur1UBDeizePQfwYJghW8
O5tFcO9Mz3enLX44EvqDV+OPCFpXadfapvhhTcp7jzOyJOQMSJsqr/LHKPd/
q4rsSbCLzPn8/IQ/zmx87JabQ0J03o3culf+6Pn+ou4ekw+05JcC12UDIKbV
1+4pLIoZ+YxMuaAA9G11q7czEoWyqc6iXkcAVpuM/Tt4XhSWGfVRz7UD0ZVj
/86nQRSD3F0KUQWBaKPL0YvYxNBK3WHcuDYIVU7nKjbuE8OZgfQCmbNB+GM0
ItaeKQaOP98XyeNBYAmJuKIyKAZG1xOv/UeCkSad1fh+UQz0IGexwfxgKOy9
NnGuWgyqkplmKZ+DwcoyHjygLgZ5i1XlZlPB+L2Tz0w2UBSfCL+JZYEQpOgf
kehl8ueqsIiK4c4QkI/QX/luZvLj5ZqpLX4hkDwR+9T5oQjC8hfMW/4LQVru
n0ohZRF4yJDiQwRDscnf4p9LujBEP21hDXULhRk9sIVfWBhe2qLTkg9DETVU
0JWQLoSrH27EX/gZCv/F0RJ/cSE4+gUqRQqHwTDZ51VypCCeiS7tfrc5DAPf
bjP4WwWQFk4qe3UwDKfC6/tKJQSgA2+HSzZhoDrfqQ3y4Mdhz7uSdrZhkHLS
PD8fsg7V6teKOk3DsNNBSFhYcC2cU1wftuwOw0/WH3Z16WvANn31mqdyGOYT
B3tfUXlhkX3lk+ZCKKRJTz509PIgmPvQqamqUOx4Kuj55DE3DgR93ynuF4qr
G4QcGzK44G0wORZND4WhanvqIoMTF99XivSPhiBUWYduG8KBF0e9+0Rvh+Bs
ghNfQQA7jm//vJJsHQL/uc+5uR5sMNRU/9PJF4Ihh7ujLQdZ0XXnaFxYQzDI
UCxbpb4KFv4P3/tEBiNewyW7WJYF9aw7rMjbgvFmb4MRQSwTddS3cvLDQXjB
F+hhKbZINB/amuGdHYSIdv1Ly7lzhIGqtSlXdBDO96wZJQvPELofN637ncvk
S0k0jXtoighLqh8rnQ1C0/s7Idy+f4mduSahVPdg2JwfFhPImySsu37mN3YF
YyChatRy4ySRMu5n3nogBAO3qfErPyeI9rk3kQo1IWB5a1b2pXeCuDmmJbdf
nRmPd/ltcyaTxHersG0t8aHQPNbX8+TUX+Lhwx8CBQ2h4D+oRjntOk1Uad/r
OTPEjGeUyi5V1Vnisx950p0jDC2c+9clHlkgFhPcxTq3h6HH2qejiHOZqGLT
/PYvPgyVFUml2zVWiDMvv3ewjodBTMl7sCx1mWi6tNjbe/QsrgZvfRqutES4
btR7oVVzFttCBFrfhC4Sh/rtDsmIhUMP2iy1BUvEh/ZrfB424SgqkGh3orBA
n+iWqIgPBztfYsvNslX4Ozw7eP12OCazN0V6rbBicImvdOZ5OKgcOq/LpNgR
sYcs5dgRjojauYSbNhzoduMLMmCJgPGH1Ovb2jhRcEhR7Jl4BC5s0dazseDG
qojJwYtbIpARH9q9IYsH/FNDjY9MI8AuPT12/9FqOOt7t/72iUB7/6Ff1l28
SHa9upd+MQKrJZ4nOlD5wPC8flvvQQRMtFcryoethbL75VyHtgiQ03eun81a
h0Geu8l+LJGIn35vdeEQPwLtaq2i5SJxqYUkmdLLjyJa0YOSzZH4+S2K/3OS
AH4oq3t92R2JmiPbrLx2CiJh+6WkYotIWH7TbDuSIwjLmI8TcqGR0P+cwC2f
LwieO1rTkaWREP78MWTGShBRRiFjfX8i0WL6ZK5tUgBlMfRrmYpR+FWtMrb/
ggCmPsjkmJlEIWklqstNQQBJ+jfJHQFROEqPk0wu5AfdVGPBJSMKvujae0KO
H7eVJi/0PYtCdhBtLFN5HcIN9F40d0VBSHp8czAzfw11v2kOL0VBo0j9S+TC
GnyIS/hjIRMNzSGzF3u/8ILxQj/7qXY0giub+PzyV6Pmco/SDsto3DEYrArw
5sFY/c0BuRPR0Hd0NJjayI1Q4llFoH80qP5JV8b7OKGblDSyLiIahioCL0fP
cuBNPav/6dhoZh0Vz9EUYYeAn55yEyMaqEkwf/SYFWssrfPfBUfjvMUn6lmn
VShfa11o7BaNefukbSE8LDjNKz9oZxQNWSH7Ik3DJUKNh295YAPT/tik5bag
eeIQnXP1UZFosF/m/1VYO0PQe5ytemej0DQzbD8pNU0wHglF1XQw8XHLR9c8
J4mEeZfYhxVR+GGzbaZRZYw4dFHXiJoahcohqpSY4U9iQ4JmplV0FBLdClRm
b/cTrqU29fT4KGD57ZPc/m7CanXbu9rSKNSIvAo63dBGGAtvUMydZsafRy01
eeYzIXzhdHEhosFfFez9VKCdeNHyw+4y83tZ/naR3Qa/ElkhO7rnXkQjwnLH
me1V3wj/A00yhdwx4P8XSR25953QZnmfXXc4Boafbp+KcekhXhUo04hEJj53
rFWrto/QSok6Uf0wBu1Js61fbg4TwSqRImzlMTBetC842PSb4IyT+32eia+a
JtYuRE0QnxO9M1xaYuBrLbmtdN1forJe71/DGgY8e+I8BP7+JfImbnuLGTNA
3R6fqq42TXxU5Ct6FcjA1MM/4U+OzBAB+JPJEcyAHgOuhXvnidMSAgprnRjI
fhhw1d9yiUjaosfrbcDAvrHBz05rWSAZV1v0VpMB+uuMI8rWq1D09vIxbWUG
uKO6RyuessIp8fia+PUMZJzRMMrQZEft7d9cTgIMuNjY739/jwPmQ10Wv/kZ
GG+d6czn4YJ29Bujh2IMHNf55FV5lBuHUjrrm+UZYDGQsVh+yoM70uICXygM
3IhtctCk8+ImxYHPZCsDtYIHeo6mrUFt0qbG+n0MxFX90aF958PnB4nuJa4M
zEg8D+1fvQ789UW5IhEM9H4aVbWW4YfupyBzuUQGIvh/RCw08ePGf9Ils5eZ
8Qne9F9TsADu+Y400s4ykNtWJvlYVhD2t7cdPm/NgMDCHt7YIkGIbPc16FRj
4ELYKO+8rBCq47hdLCZjUMMbaLXhohDsNT0Fdz6NwbdAE3rPihBkPw/UHTkf
g4XX2yuUwoXh/TBLWt42Bo7aHYJneUSQm3/IvnVzDHJ0AnMomSJ4d2Raf54/
Brqh/rOim0hw1DJ6ljAejePckw8smPpR/NnhDUbt0XCfazIt9xWFeoFS62Jz
NDJ3GracFxOD0HWvyxzvo7GebezYaK0YGsPO9Zzoj0ZYsuGEk5s4fCcHMqM4
Y1B6ptXo0Kr1+NIWPjxPj0Hma+WNitfWg60g5bU0k58VFe7t1ygSMDCzno45
FoOS5R2l+u8k8PHQlk6ZgBjwMXuCr2GSYJF5/nJdXAzGhNz7cjdIYXDD3uNn
s2OgYFGhHv5VCueSS0IkKmPQMW1550aoNK7ekvf99ioGJ25bVnRKyuAiRXuR
py0GGctrdyk1ymC12u3CjUMxyC8sb3ygJYs5IQFt+XnmektZa41UWVwRrP80
wccAobhb//0fWdwUndVJlGDgw+Yc0wZdOeTf1q7mITPJrDmwpJAuh9BNJ99t
oTPwznJlQ8q4HOTXiHok72IgdqtaUomhPPr/KuxtOMDA34/KHYyb8oiIU9Fr
t2Rg26UMy5hpeZw8UK0tac+Al8Qv3DJSgIvIL012Jr/6zO+V7ihQwLqUds1t
J5i46Mxq8yUF6F+0/vLfcQb+RYiHc5mRIeEv0KDqyECq2JEC8j0yqtZ5BU46
M3Dkl510KqsiDH9dVuePZWCww7rrnbEiWntrF0xeMnB34NKsapQi3jw77hjI
FYsdeU47V6IVkWVOnv8uFYuRzUczqKaK8FFPL7nGGoue6ew5HxZFHBSy2+nd
xYBs3tD19bfI+LW5we79dwbKjVLFN1mR4ThFa65nrlcr11O3UyAj/0H+Gr3T
sajdqrX6CRcZBQ/txVbuxMJ+d3hUBTcZb4dHJ+VvxUJvy9gpVmUyMmu+ja6P
icXUJSOtHhsysoo3q54/GYt9qjZlfjfJkO+q8abGxqKya/vO3iEysx8c2b6u
NBZ32/YFaGkowi/hXX56SyyKapOUS2IVcVZMh33mZSyM7F0+jXcqoq/eb1Y2
LRaXB/dtD5NVwusvApW3TGJhWJrwSsBICRnXT/1XvDoWxp1T92tclFC8wscR
84YBY0a8XEukEpYVBMztshhIMfG7JFmpBMnak64ZoQw0Jv3IovEog8No/xqS
CwNnZrisa1yUcV1J5e1tZv3w1Nvs8PiJMmhu1lLnVBlgZdxVGmVTQd03Qxxg
YaDoteOWPftUYLV8YSziYwwaUrRlpq6o4KB0dXrs7RiwvB7e19+lgnQizcgh
LAaqix6fSGRVZt6lFF4zjQGPhZfyxeOqeBNFoheoxKCpweHz9/uqCEjfGvpm
IRqXRN+d45xWRZzHcL/1m2jYXb46k7ldDS3iLavr0qNBGdM2avFXgyZ/e8sN
l2g4WDUlZd5Xg2sFV/kPejTqKiYuzfer4d139QKNeeZ9xn/AYVaKgktDrT4z
DVEw/1flwGlFQeOdbSPiiVFwiOdanrtEwYu14XU6R6KQdpJbP7+KgqvwsNSW
jMK1hYaNlgMU1DV3JHP1RsJj4aVezGoqbjq/uFBzKxKis9hyZiMV4oXFDvOe
kUgseFU1bEkF66n4uoRNkbjB0sFrH0HF4IPXDpf/RaCodGus/B0qWo+PrUut
jECn5cJthRYq+q/kkK8GRmB2fz31+AwVk63cz4S3RkC+gfrZV4qGwLyJxw0j
4VCZ3RN+RJeGtgfHe++6h2P+vIMOcYIGo8ZOweTRs+D+E/inIpGG8bmd0YI+
Z2Fi1yy9VEpD/1H2YwmTYcjVtQq49Y6GcsXFhGG/MPy5x5ocP0gDb2Xw5b9z
obhkb788t0DDlmD/qLKzoZhp+xssJkzH5mv8hh5sobhLGbj5kUJH0K+HvEfP
h6D9766fHwg6SsJCj2BdCKRkzVjSDtGxoP0vfk96MCy8j6i8saWj919OxgQ5
GOcMWJUZnnQMPTvzPPNBECZP3G4/Hcycf+ORNGV7EITb1u11jaHjo8b1r3IN
gRiOl2oRjKNjzjMuL8kiEGbcITcS4ukQNK7W0B4NgGTKslR1Ah2r5deP6ocG
4PF4laHzRTou686rNLIHwPAVnbeNiUfSzmRFnfMHzUlS8jlzfrbFwDcynz/u
5hX9/HeOuf9GgpF43Q/rg27mvGP6P3c+j9t2sx/EUh9KxkXTUf9hOrvwwxlw
39IRk2XiMJ6GLSGeZ6A02bV0KJIOrxu6rCkcZ6Bvc8WoOpSOXy+0mhtvnob3
03PrtP3p2JGzlatJ6zQeCm12l/Jl+hMWGq76egqeEVIcFGY8AkwzdVeHnELg
k5zQEXc60io/xPmsPwWHtT6/st3oKFe/4Nb19CSC224OOdvTYXxB/kSHzUlc
t2tluJrS8STPamPnii80l6daNujR8ULl+C+ZPF+YNSeop2vQEa4qIVmj7wuj
Xx9z2+To+OSypp+3zQeeI337ibV0KA9XRguRfTD+ztgib46GdSZJR03PeKNv
6PnPuSEampRPt9xq9MKXAzf/e9rO5BdRF7BlvReKaVybF9/S4N6vc1DUxxOt
tDn9E/U0CKR4qMs1emDdzY12NyposI2mnNKW9cDiqIBj6H0a/uQLP0kIOwEz
+71y7+/QoN/xfHCqyx2nNtxX92TiWlI5jW2XO1zvTXAJF9Dgv24m2SvrOJoy
gjU8U2nYMPGorHTlGLqOTKYtn6VBeNpn113XY5jvfh3i7kSDEm85u9t7N/AL
LbMHG9IgfqxagXOnG17wSDyY3EjDuU/e3u23XFFM7X6ft56G/OIPTeZCrhC+
MhhQs0JFyJTPrFOUC8SCjnHe6qdil7h4Yf2UM4zn01rlmql4dCvNQsjdGT/y
RQ21K6moCFg8WdTthLVtU0m9zPzuCXd24jB1wm5pHxVSBhV8Ts67rZsdMbJH
9efeBCqeezyr4DF0RFTaBZZvYVT8+2AevfLSAXf6pXUyT1HB1cbo1N7rgMds
v7trjlPxzWE0906KPf5TRLSFPRUy8oVSQjftMNsuFKltQUWKintV8n1bWCsc
qMo4QEVaQbvg5Rob8PfJt0vtoULHPrrF/7M1/MvsN/VpUeFqkJ9c/esojlHU
2I9toeL4Kcs7kTxHcb5NaZWFBhU17BHssjQrHHy5YN69iVnPnF+kc5hboqiu
Mfwws95FXz9643XYEXQX6TdcoVDxZeMOj1u3LVC883nqNXkqJkg14hu/mGPb
zyqV0+upaHFnD2rkNYeDd2Z2oQgVvdnSww/1zWDwKa+bEKQiYfy3QFm0KZY3
1duZr2H6k9q+tKfOBHw1Kb2LrFS853r8/iO7CWpGL/vIz1HQveZo+z+jw3jI
xkIJm6Dgmc95N/V0Y3xz+hLWNULBP29nT5d3h8CRfs0js5eCo1feajR7H4Rg
LqfXgU8UXOG6ECMofgClw59+32ugYKVsqe7v+/2gzp9/G/GEgg+Fy/sSL+/D
8LWljmsPKXBurjK5Y7IX8k/iuY/docDzYJBjm7ghpCTSUhRvUOCd5rBaelQf
qR1fSO2JFMhkifMEvd6Dq5tlbLMiKJgOXeAwfaSHbNLeQgMvCooEV7qIW7pY
kbVbumRBAUtZeIZn5m40Xojse6pFQVwv35XTqTrguKx6760MBZu4pBevXgey
XmvwnFtWg3S9aDunKYHxgMGLDu1qOD578tTegF0Il9tnVF2ihuLXS2GtBTsh
Usod8PKqGuRkT30uHtiOEx/zbjES1JA74dNzRGsbMmJXqD5parhB3ROl/XgL
rJudnd89UoOEs3aVi81mbNBXC6R3q4FInOnv2qSJvpr+dfl8FLj4ZQUE0jSw
c3GV5F1DCnbJGn75p74Jxt1bhW7HMc/jInnWWHYjhg5d9yh+QUGtZtLNi//U
MaD9uOjPOAVnhuV2x+bRsHYL7U+mEBVCvQ5X4+wp2J3bX+nG5OfZqNG8VRKq
WFOf+1fkDJMv3o9f0hqVkF3kfO9bMRVXBfbynrtGxqdPbk9ff6AirPqx0gin
Aq4myhSeb6SiIyBBvSxRHiLJbPwn46koHd1Qc01XAdlHSjSbqFSorBXRGmHq
NH5jTnHpegqoj36/GapWRNfWlwILjhT4VAdy1nQp4r4+zeeHJAWs5rGbf70i
Y6A0Is+TnQIp3gXXFyPyOOFT4GHLHBd8ovksrFEWTxelwvJMKZjXZHtkfUoK
Z22nFFkTKHA1ti0JahUHy8nU1rG7FEhL+hbdLCRBjOd4sPkDpr36voPD1UJ4
eqPT4sF9Cig2GaZu7/lxTSdLZe9jCirvdj6Oes6L60OXVYZeUiBpu7xk+oQT
+74duajbwsTaZf1S99hgFriLZs3UL3c8//24L82GNYJjzi9iKVBd0xfr8I4d
u2wnjvNtp2CNnIGdbhUXOMsc7nzuU8OUbfcd+4erweKtHXYoUQ3+sy27f4rw
YXzrtAe3vhpUpjQmO/XWMe0GrL63Sg28On3qYz/4EdgrGMJ4ror7Xl3ln1wF
MVu9p4Pmx9RvFa2Co51CaGd5ENuvosqsa4XuEgIi8D3RZ9vA1IeSC3Wv7gqR
cCd1do7zqgrCdXP2OEuKIqNneq7fSAUlg+Vft9qKoZO2RnBmlQqmK0eK+EfF
Edq+svveA2UcP590P79RAuN+qTb3jijjSVJ9R+FHKbiXfj78alkJbZn1Ig8q
ZFC+qlki9Y4SNpi9VXjoJQvOP3Neay2UkHJ70fKrrSx+Loy1VnMpYfuJumn7
gzLoiOfzJ5g8+Dl+lhrKKYWCe3mnz4QpInLyQL/i6fXYxSVV9B8U0bxfqyfj
pyh2+Yeku3EqIsK02uRftAhqz5OI62+Z/UFyTHPpfiHkFfy57Z1Kxo+35VEF
ewUg/eDDjSvOZMg9y0r5NrQW0d3kLkN1Zj+ySXSp2ZAXGn2vJQ3nFDDsMpc3
5c8F4YAHjlENCuDYzMJvHMqGMr4CpaF0Bbg5Zn9I2bdCzC87xEX5K0Dzacmu
ZudZwvTkJQq3mQLOZt9vGzSdJKJaAgwe0RRA3eBUIzD+k9jKnlg3yquAD+ID
l4897iE82kW1klfkQRYV0iGNthLPu8XF3Ncq4GlWy67Nq+qIb+pPLF6RFbBW
OHpHwbNCIi1SYy+3rAKCtORkh1vjieSL82MN/8uDDzeip67aEPQXq/L+XpJH
7tb5xZE2MqHoG7jnoJo8Bj9084zG0AjFC7uuXvsgh/IFn7iXqnsIA7V31rRI
OdytU+cd0tYnvGp+BTaryuHcg4Hzan91CH/2598lm2ThbP/vdSnJiXjSmiWa
6CEL1y5On/B/l4nB3waKXYqyCBaJfRuxqoSw7jsh/HRMBkc2vPzltamRyF1u
Nt6fJ4OKjhbFxLRPRMvnMtbfBjIoUBIOU9T7Tgjq+5pZdEkjJMbA8kLbIPE9
q/LSjzPSIO1QtskT/EPsWLQQfSYjjfrdMroKF6aIfVWcUyVfpGC+2DP0UmOB
+MJftE0uQQrk7iY9PbVVSJ3ZE7O0RQozYSojF+rZQVosnBD5JgkrBflhjXBu
XIio1bkSJYnhm+v/1KatwdGCcxJPZSShdcDvsmY6P95p3mM3LZXA+bMvl1cU
hXDjkphVrY4E5jtbeo+Oi+CprTKPTNd6PC6XPaqyIIYwgTUqenHrod/smp2s
L4m/B3OkAvTWw+Hx+2cvXssgkMhc9Gdbj4OSbOZFtXJgH3bYp1grDmV381sF
/ylgIZjj6YVwcUz9tlCdHVbEfBmbT5aOONiK32bv3q0Cyn/uK7Wc4sidMyFr
N6hh035Kfu5bMYxxDjnLuzJ12W9hm/w0MTjMGHw5zL8B1x8/eLXkKQaVsq9u
xREbscwZ2X3lgBgsVz28n8GpAe7mc+vyt4nhUw6dayBLE43iGYP8FDH8We/m
eofYgvl1LD2HyGK4USl858PoVmhRyc8+K4rhldzhsxvubUfdMbc0mroYvvwY
YBWI3Qnuqh1/RbTEEPWMuNgftAtsBRUaD/XF4LVDJep3MAFfHTupnH1i+M6i
pRNQA5BrrVa+7hGDvMjHdz0vdfBfosLDkq1i6B9NzS9o342xmMPP/WTFcPvT
l0rlKV2Eb20LbV0lhq5NOrLOpD0YLlFMEv0mCiuhL9wcO/XROUpXCX8sit9L
ZluynQwwMHA4/1a8KLiWZizpSYaQtDw7fOioKOofEpFOTXtBT9uQZqMsilA7
zxodzv3QT8h+Fj5Ngj0BboN9Rhg5tCAi0ERChvtvZ/n0A7jrZ8QfnE3CJzkD
+5GZg9BQUy3HWRKsrQYiV28yRujIs+2Z9iQEfPArNRsxxnRAfN+SDgm2lWb5
EnmH8VP44wMHBRI631f+7nMwwT/KpckzbCS8opfY/1A2ReIr+rnbvSJ4O3Tx
lci4KYylWCTcK0Qwwm5FpOSYYd0B3RYxPxH8u5jDf1DeHPRv8ru0eEQQ5VJy
cOsJc+QOXrS19BGGnsFQXVC8OfJVF7SeVQihpilIZeWmOZ4KmJi/WxRExOff
bq+qzeG9I9ax74AgRvdujh76Y46aYB95vQIBiCrXBNFULGDxiWGRNMUPw6s9
hL6LBbrGus0qtvFDN8PexSzTAgW+1U47F9ZiTvyL+8d6C1jHN4U7ZPIh8udJ
58XPFsjeyKHL0F8DTcM/759/sIBxUdnhc99Xo6g+SIv0nwXqaB4HOu15cHmX
/aa92RY41VDssaOfC+wm0m4NfhagVq6WKovmBOlXhqjVdguQ+D0PHtbkwPq+
gDbbX+Z4M3gopes9G7Ic7/rpXTOH8QhJzu4AKzS3588Wa5jjaM6id/tHFmg8
spUprDKDyqW4/CLhFUJOSvphMsUMLovz+s+eLBKB96RaVdJM0b7sa8MQmSd4
E9rSLDRNoXmaI8B54R8RuasgVpxmipbKB6YkrimifCKYnZFgijeKaeEqlEni
tEe1yQUNM/QsRdJ+P54gerdrh3GzmCPNy9Pizp8Jwtaz/WBxF1N/n4r6bvJq
gvhsuU6Cv8YC5BfG64fXTxAPTRXNlZKOoCj7RHnut3FCOf3DeAXZEjZmrBc6
t00S63JbPSJcLaFplWLBs2maYI9nj1QItcTU8Q5tK8YsYSu++O1DlSVUnj11
C6qaJzjkjXYIO1qh/LCD2ebABWL5K19xjfFRVDZte/Di1gKhNW6UdX2DNfP+
T/awSFokLuQdiesstkbXv9krjJfLxGfxfYPFDdb49efxj+RxFnC75chsLbHG
KV/zjPUJrEjLnD4gf98aV8kz6t0zbKiOY0RmNFrj6CPek5raHKB3Lxy/P2yN
7HiGrl4cJ1OH3D1pvcIcjyh37V3kQqrtHj5Hkg3IBeTI66k82HJPstBB1wbF
cqXpQ/K8KLGT5NVKtYFNsi/1y/Y1KPVRne8i2cK+p55+yX8Nvl+kPyOqbNFi
dbJJp4IXhQ68jqan7NDu+fb0W53VeFszZmMqxOzPKFFZnWnceEh73n462B56
00eln0pzQdHk3PTPbHtEtCst/OjkwE1+y6XiPHt8W6obIqWyY3zjjeyNTKzN
kZVbT2WDPe1bt8NNe1SeNLTbcn8V0lTuvywOtceFn8JVzWDBsUMHSnNo9jiz
Oz8jr3eJKP5y3JrntR0s9a88iNBZINhkyw1++Nhh27F7/0RPzhIBvNeeyAvb
wVfWQdYvdpowSLRW3HzeFsLWws+cyycJQ5lrxMb/bGC4IiyluTxGdP87c2lu
0RppjNHmmYsjRFLB3eAjT6yR6BxcAZNBYnVLOYuKBrO/TO2ojbLqJQrJaUIV
O2wxvq9qX7XPdyLt68uKpaN2iDhByrqs10Mk3/hSNG5gD2Ppc+vpXr2EW9vX
941rHRBxt8btV24vsVk7JyA3yQGJX1m/23D1EkollOJ6miMqp46NUgN7ibOP
trYZlDHxl8I9Vo8GiBOX3LyaJhzRbtr8PuTkCMElX+P6/K8jriaTvOrUxgl7
X8FzEwuO4FZ5bWHLMUk01MYJbd/jhKl98yqXCyaJV3NVt4deO+HXrbKnXMuT
xCXSs3dqh5zBr2vxfjt9iqjcRBZ+fs2ZeV55V42S/xGuW1kzrFKdwf7O6uty
4Rzx0efe6sgQZ7SnKJ/8zsznzE9stvfdncHSenm47dQKEecQV+xwwhkuS9m+
K2yrcOBzuDnJ1xmgBU68dWDFbhOOlfNMzB68w23bRzZUVFENO7yccfSn8YH3
uhwgd+w3f+DhjFO1ewNVcznx//+/+j+vFcqS
      "]]}}, {}, {}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 730.0750213753041}, {0, 15.277031278096402`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.6961862394627266`*^9, 3.696186261191763*^9}}]
}, {2}]],

Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJzt3c1yI0kVhuESK5bcAnfBliXbIbiAmaBngk0TMQNBcNNcA7YlW1VS/WSp
Kr/zncz3gfC03fIo8+Q7Jf/I3X/86Z8//Py7YRh++/3bix9+/M+ff/31x//+
9Q9vr/zt+2//+OX7t7//5fu/vv3y7dc//fR+s/9dhuHfb7+4jLy/Nn0LUBnR
QW+gOai9PewSHbRoDnI0BzmigxzRQY3mIEd0AAAAAF7AZxJQ49tgkCM6qA08
ywRqA9VBbCA6iA0D1SEAwUGO6KDGQyvkiA5yRAc5ooMc0UGO6CBHdJAjOsgR
HeSIDnJEBzmigxzRQY7oIEd0kKM5yHGlgxzNQY7oIEd0kCM6yBEd5IgOckQH
OaKDHNFBjuggR3SQIzrIER3UeJIJ5IgOekQHNa50kCM6yBEd5IgOckQHOaKD
HNFBjuggR3SQIzrIER3kiA5yRAc5ooMc0UGO6CBHdJAjOsgRHeSIDnJEBzmi
gxzRQY7oIEd0kCM6yBEd5IgOcjQHOaKDHNFBjuggR3SQIzrIER3kiA5yRAc5
ooMc0UGO6CBHdJAjOsgRHeSIDnJEBzmigxzRQY7oIEd0kCM6yBEd5EKjo/g+
ce6QIzrIER3U+KNMIEd0kCM6yBEd5IgOckQHOaKDHNFBjuggR3SQIzrIER3k
iA5yRAc5ooMc0UGO6CBHdJAjOsgRHeSIDnJEBzmigxzRQY7oIEd0kCM6yBEd
5IgOckQHOaKDHNFBjuggR3SQIzrIER3kiA5yRAc5ooNcf9ENi6JX1o1+Rr0c
G+WJdTDlHVGRnoTbfE8989euYIRXm9dsP876pBM/lg7hVWQ019EpHzzuk4oh
vEpcZvpwvi+f9cmPjV7duazjKI+BPp/sSyddJxGv8FpgMcvZI917zFXLoLsz
OUxyYQ07lqZogu5O4zDGhSUUHrEwBrI7h8EQF5ewfcIBH27R3XEGA1w+xPXj
jXq843p3lMH0Vk5w7SIYefJ0d4jB6NaWMHu0Dh/SGywhr/jJra7g6Tcdgrvx
WUk28VPb+sBt9Euj4j64rSeL+JFtPtvo+tL0gE2X5S1+XqVPcfM9WuvFOYof
1tZ5eQd3k2GNPuInVfIVYMlCDiK7YvFz2j6qNIfJ9a5M/IwKVpDnJM0/+jQR
P5+SFaQ6RrLbEj+dsuji17kH17tV4ZMpfv5S7YWcjOyWhc+l8GQyniAf4C0I
H0nxoaQ8PbqbEz6PPc9Jr7iMigjvUfQs9v3ofb11VEZ3Y9GD2PnnPdRbSHXu
30EWip7BrkPIfmL2T10QCX8Cbuz9RyA7ogvRd3dEF6Tn613svrsd+4duuyO6
UH12R3TBeswu/GO64fbP2HWE6i67+OjGYhcTqK/NR2/1fdbD7UVfk3/Q0+aj
N/ox6a9xdzT4Z/38Rxe9y9uPUn+9Gr2eWJ1kF/4x3f3l5eGXXeoiO7foohcU
r4Ps/KJrfeLbmq8uOrrry+HpTX1r/Gpn8R0JonvSdHWG0TU87R1ars4jupm3
od1BBEd3fUl0s5qdBNEZa3QUwdsiunXDnOhFHRYd3dOX6cKXZGU2uvzpEZ21
+WFkr87hi8Pj7/cnH+fZloeReU7R0Y2e2dTCA8fpVqZxe5hQreRE0Wu+Pn/z
9kuie7Iyjrwf4YUv921gk+iCl+NmcSD32tJ1Z7DWr4HlmpzIwki+ehu9nmZ6
DgvNM60AS5++zvxumjE6LNRhDbZmhzO6wCnXchaLVTuswdV6dB7nt1fKRfdk
7oCy/0hJykX3hIfXdtdgayG6YfLPZBxW7bAGWyvffE30RZIph2U7rMHW0nDy
Judx4A5rsNXicAz2ZLAEYy1Ox2BPBksw1uJ0DPZksARjLU7HYE8GSzDW4nTi
9xS/Amstjid+T/ErsNbieOL3FL8Cay2OJ35P8Suw1uJ44vcUvgBv8Qd0vvA9
hS/AXJPzid5Tk0M9UYvzCd9T+ALMtTif8D1F37+78AOqIHxP0ffvLvyAKgjf
U/T9uws/oAqi9xR9//ZaHFD0nqLv316LA4reU/T922txPtGHHn3/9lqcT/Sh
84dwrmtyItGbeoguahm2os+niuhNEd266POpInpTOf+sK50mRxK9KaJb1+RI
ojc1jS5sGbaiz6eK6E2N7z96LY6anEn0pohuXZMzid4Uj66roo+njuhdZf9D
JStrcybRuxpHF7gMV23OxCe66JU4anQm0dsiujWNziR6W5/3n/ePlayo1ZlE
7yv3n9hcV7MzCd9Y6j+xua5mhxK/MYpb0O5Y4ncWvgBX7Q4mPLrwBbhqeDDh
WwtfgKmW5xK+t/AFeGp6LOGbC1+ApbanEr65tsf7osaHEr698AUYan0m4fsL
X4Cf5kcSvr/mJ7xb+xMJ32D7I96nh+/PhO+wgxnv0UNz8dFR3VgfwzDYZB+D
LtHFZe5iEd1l/blNnRzEpaOdeuxz7Tl1vRxFL5e5i0t075arK33/Exej11Fz
RtFdlropPI3Uh9ZTcmbRzYfTQXR9NWcW3UJ1Ze967kqEOkvO76jm5t92dB3+
jIjdfmdOoOhQkp5ch8kRXbCcqz7Kb9PP59BudCkXfZzhrmcudSXvZbiTTSkX
fZzhrmcudSXvVWEl1RGdjaejKDkbx41s6vGziIvpWT0eRbPRdXqts9zz4wWg
4ei6rM50y4/V7X2HRDp8iHXd8PQkts8l8cn1V53rfjuKLvniX2C73Yfq9t08
m9yr3813t5ODMIzu1Hvsqzrjze76G5wiojOenTfnwe251AUUcO4TRJwP4mzO
e91zqQu57JxZXU/XTeutjg7CMrozsyM6F+Pqim8pddpjLNG5KL/UxZ3ZSX8N
BtHZKL7URe7jlL9/xfwgTmW+1+JLXfQ+Xu9uuL3/ueux5r7X+2F4R/fuyOWO
6IyUXupc9vFidl01Z3NYiwovdTb7OPIY2wv73RZ+KuGzj1ei6+tCZ3RYS8oe
X4328UJBRGem7FLntI/dCXXWnNVhzeshuirL8OW/37LPX632sbO63i50Xoc1
qyg6r3MjunUJ9jvM/vLhNrJ9FH1JZNdyumsuRXQFlzrRwZV+s4voViXYsE10
t+BOvtT11xzRla/i6xJ37qWO6BwNBR/UVT656aNqUXSlC+qwuQzRTT6TWFhv
1aN7+jBu8852PN2E6DzFRjcTUMEPRJYuqMfmmomu1l3P1lPyU0JlNXXZXI7o
tj+TqLKNxS+PbEZXcJv7LfuTYdcFn0mcf8VY+4Jc0Q8Jnf5F5HZk2HVRdCf/
vP3qv43ojsmw6+2f9B+uD2in/FjW+kVuZRGPv3vyNy4akmHbhdHdfnW0vIJ3
LvsZoe0lZBh+DSn2vR3d0xteba/sXdZuMhRH1+uFrtXoPm+8M73SW54SXb/N
pdj41tdM1n9ObGLrhoULWvu3lC0ry+xrSLHxQ9F93WbW5PfKF/T6Wgt/t2kp
dn5GdPcbL/S3a0HLvzMU3ezxll3JsfPN6HRL2brDaXSrj+anrSYbonvJ4h1O
l3fgC8wty7H1jej0m1iObvpa4RWxMzn27hZd8TdliW5Okr1vRCdcyfo9Pr59
ebw55l5Huujm/t5r/aPr4hejC2+YZe51JNl8juhm3lxaZ1eS7H714TVgC4ej
O3Mx6TQQXcQWFqKbedPGk2K6lGP7q5+9RuygOKVdz0/oRf7oQnZQnNLx79o1
KMf+3aLbkZLFN1DMNBCddinjRUyfJVD+yUWKmVeUYwAr0cU8ug7Xl+Mnp2x9
GWV0y5pLy4DoXvF+p9fevqpb/jLw5+9v3rIbOSYwju7xt7Qrud3p8FXb/Z9L
t72/x/oN+5FjBKOnWTpc6CZPbP98qF2+7eRFkolXlWcE80/wjYtuuoTi6PIM
vJ5UM5iLLmolD6+srGP0oxiP79mpbDP4+rxx/GrAMiavrP+ExeRTiGzzriLd
EIbJlyo8lr/xUz3jR2KPBQdLN4Rh/KWKbKunuQ/ppjC5xqVbPT6kO7bxlyrS
LR7vEl8r+AApq9TnlnntPUsdHXIiOsgRHeSIDnJEBzmigxzRQY7oIEd0kCM6
yBEd5IgOckQHOaKDHNFBjuggR3SQIzrIER3kiA5yNAc5rnSQIzrIER3kiA5y
RAc5ooMczQFoH1c6yPExHeRoDnJEBzmigxzRQY5PJCBHdJCjOchxpYMczUGO
Kx3kiA5yNAc5ooMc0UGO6CDHJxKQIzrI0RzkuNJBjuggR3OQIzrIER3kiA5y
RAc5ooMc0UGO6CBHdJAjOsgRHeSIDnJEBzmigxzRQY7oIEd0kCM6AO3jSgc5
ooMc0UGO6CBHdJAjOsgRHeSIDnJEB6nhQnQIQHSQIzrIER3kiA5yRAc5ooMc
0UGO6CBHdJAjOsgRHeSIDnJEBzmigxzRQY7oIEd0kCM6yBEd5IgOckQHOaKD
HNFBjuggR3SQIzrIER3kiA5yRAc5ooMc0eE8hTURHc4zlOVEdJArbBM4z7Au
enlo21thGwWutHn9P3r0ee5VLlIHolwNFtlMT+39leFye9CMWtLd9eJZp9X9
vv6zuXwM6eMNw+e0xp9SzU5u+HxpMNdotyHeXw1bicj9gTwu3759Tn50JM1X
15Th43+X28vrWy6Tkw0qq8R9F0SH2h6aIzrUNzxWRnWo7bkxqkNlM4URHQAA
AAAAAAAAAAAAAAAAAAAAAFDJ/wE2P7xn
    "], {{0, 494}, {629, 0}}, {0, 1},
    ColorFunction->GrayLevel],
   BoxForm`ImageTag["Bit", ColorSpace -> Automatic, Interleaving -> None],
   Selectable->False],
  BaseStyle->"ImageGraphics",
  ImageSizeRaw->{629, 494},
  PlotRange->{{0, 629}, {0, 494}}]], "Input"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["A flower", "MainSection"],

Cell[CellGroupData[{

Cell["Original plot", "Section",
 CellChangeTimes->{{3.5882695143414793`*^9, 3.588269531921504*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"obj", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"100", 
       RowBox[{
        RowBox[{"Abs", "[", 
         RowBox[{"Sin", "[", 
          RowBox[{"5", 
           RowBox[{"x", "/", "2"}]}], "]"}], "]"}], "/", "5"}], 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Cos", "[", "x", "]"}], ",", 
         RowBox[{"Sin", "[", "x", "]"}]}], "}"}]}], "+", 
      RowBox[{"{", 
       RowBox[{"22", ",", "19.5"}], "}"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", 
       RowBox[{"2", "Pi"}], ",", 
       RowBox[{"Pi", "/", "100."}]}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{"ListPlot", "[", 
  RowBox[{"obj", ",", 
   RowBox[{"Joined", "\[Rule]", "True"}], ",", 
   RowBox[{"PlotRange", "->", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "40"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "40"}], "}"}]}], "}"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{
  3.397499814057979*^9, {3.5882695429415197`*^9, 3.5882695438515205`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {{}, {}, 
    {RGBColor[0.24720000000000014`, 0.24, 0.6], LineBox[CompressedData["
1:eJxdl3lUjPsfx1ORqFC3vbRqb5p92uc9M0QpLeIm2bpCV0QlqSwhaRFNjH4k
2ZKknXKFSveqlB8t3KtCicg9pDqkSX7Ft/nj95wz5zlzZuaZ5/l+3svraxAY
6hMkLSUlVT/+mjj/PNj4cdrHwDSjQPMDaRx0dURxslIYWC9otF6lZ4e9eaoF
biUMNMt/Svl4yR55pZ4bY/rH3xv4fCwycMT6xr+83F2YcOJXBnOOOkHhcr36
/hImPm+sWst/7wwNo4pfUhksKH0Tf16nCWSIZyP9PgvKkYy2iGKg06HGICSE
jfB1onVCRx4Eaa65xXocuPYPnM24yQN95drmmuccFIR50FNN+Sj5vEalKccW
GYs/KF6K52NQd4FfW4QdCo4tzXds4WP+r/PTqhfYY6f15uJXswTo3iQ4H6jm
gO3GJtIrHARwOeV6es8rB6RHUhelLBNAQ09Ns/2KI8aGV3WdWS0ATTPl2sIN
TsiNnufwfLkA2ysTbHJVnZGZvDiz0VkA5XPDj8fKnBERe3atqroAMX713Tt4
XCz3D8w/+pKPTa3mKsEVXKTGpGfZZ/Kxun+uWvlMoC7t/Qz7xXwY2sUkUSjj
6xBQ/WfzBx4oTHHCVT6wJDnoyIbDPHhOnBcBKvIlZ0I1eTA+zLlW4zz+fatj
4pgLQPLoaLXnPKCsVzXBzAx4Eh/HyPjCBbVH+T7Hh4ul12JNFh/k4skjVpK0
lzNe6m7yGep3RsGTnk3TPJywrfpji42zM1pHMotS3B1hKdx+YzjECV7XS/Lq
vB1gYss9mbPHES9/schtWmOPjNYky74IBxwpTY6K32UHM+1VpXXe9nD7nR18
+Zwt/rkzf6NI3Q6UmTLvCp9xQJE++eljHQf+ZUp9f5twsN1MUa50Extet200
VQ6zkRzJY33+ysSk/qYQ/a3JCetQ3sZG3puYkzVTWOPz8Xpsc58N0dVw2boE
NmZHODXekuXA2H5FTISSLa6Xv/i004yDi0ce7jIW2v3UHZ0D7oQOZzkg2yVK
w9eIg/bCIWet/Y5Ias2RqRGzMfS+94N3rxMeV9ZQv1SyoTZ37fl4By7+fFrj
GDZ+n4p35Xm1TsD3HwcLRTVy+2jNgKFcV/L1eBYuN9ZXXVvBw9goRfBOzIRh
/xbT7808zHArNLQMYuLcMXc/ZSc+FhWa+DjWMnCxMV/4TcSH1lQjjWk6DFgE
DXvIjOukIrfZ/VgoHV82RnkfH9fRPNma4C/VNHwY15a3kwBJ51OWBarRcK87
9fhMbwFK1dbPHA6lQv1Zm9xfPgJYK+3fnXfBBsf8p24o4wugSeNxZPdQ8Pf0
gUZ7AwEWTS079CjCGms1tfz//cBHalWlm/CIFQaujrgl5vORocq8GNxkiXyl
phOj/nxEPQipl7azxLYJn4h56JVZ6nSo1QIVM2Ib2lJ54ClUnE66YAGPX2Qf
N6jxUD6w03T6FQu0Ps0Nzz8+7uOect6SXgs0/DZFQW4G4L36+PuRNZboJvrL
ynPZMqRihYDImfM23nNCwY15nCAZa7wWjAlaUx0xzUpmxh/WFFy+papUvNwB
NWf8tpxPs8Gdpi3S2+baw3PP4puJIiqK48pcIt/ZwtTr9eqcPTTMbz20es4t
DuSmrOkO3UtHlFIKY4uIDdUFO052iBhwSRhLSdrDQtiqLzqiGiaMBgdV2JFM
yXwn9fdUW7a2qpQJ4xxEP1jHRJb7mr23VzJwacX+LgtrFnp2hLYzxTS8MIzm
b3nJgkJIyfLEE1Ro2rHF7Gg2cuoX/GdrAAWpEz75yoZne5fniTRLbPzv4mfF
qzhQaFxxO/exGVwUAiLDcjgon+JRfNfIBLqxHuz2Fg7yw2ZXP0o1QphZ1sOA
Nxw8dWbuO6NpABrJv5RB3yzHE7p425N8hXqHA8cU+minpyY8OCXhuoc40G8r
G4vaqgrLK8Y9S2w5qDzUdm+jeA6ERg2mLU/YwLVd+g++K6JnpKP3629saNB2
m7+Rk0eBKHGvezcLttT1NbE6U6G7sDs23pcFs3CHM7qLpHEwrTEh4TYTL01G
HX8XSuHpseAHS/Un/SuFsYll3MuQfG4WKmLmv6CDSn4fs5URFcWnYxG5fneF
7oHoqzTok//3Do7cV6pLw1pyf5oTPsmkopHc/9YO1t9W5lTokOe7fO0GJ/Co
DdzJ829IO63x5yAFQrI+VPbb/KwDFHSR9ct05a6M5lNwg6yvfuG9QBcGBQ1k
/evlgtJd/SiYReYT3rtQRbuUAn8yP9a6TYsz59ugksx3h3tEQvQ0KuTJ/F//
VS9bH0/FANGHWWf8baEeDWeJfgJyds9ta6ahjejr2Yq78cwsOkaI/sRk/bYT
fXYoKPxbn0jHHKLf61FTwnfE0SBN9H3wU3ijMJgKE6L/iF8H+J2JFPgQf5wf
FYWpWFvhD+Kf6PXGYr175pCa9Nfh1ldnfExRRvznECUT9Wu3scSf81XeXaft
MsQS4l/7WpuV6nP1Jf7O6ho6e79QG2XE/868m4GZ/uqSfBCuerHziqsKXpP8
CPDl+l1QnoWdJF+m3zzTGeo2HZkkf8xUbS6wvaQhJPmUHZeX/WTrCNeN5Fd/
S2VlhOEAV5vkm1TD7nvuxb3cyfxDhc+3xkvPueUkH6uGlFVHM59wU0h+Iiu1
ghX9lGtC8jW71qe/8OpL7mT+QvrNufdafdzJfK7yH4To+yDXneR30eYNeR76
37gKJN9nf2bHPKPIQurbz/yfPqafqPhohqQf6k4Vf02jz5Hky+991d/Dx3Vb
R/qlSK7kS+ccLTST/mlI2Bv5bo4ekkk/aZlRDQNohpL+8shW2/9AbAxF0m+x
MQlWaV3j8yP919ATqFDeboFZpB8fJnvIq7+yhpD052bfFDEniop1pF+9NA9u
chqj/cy98f79RvTnS/p5c+KdBvlpdASQ/k5+OjDsfpIKGun3DPFjHf2tFLiS
/vfdH0lreWQJIeGDiz98Yo5ewg+Vy/tyLdVM4Uv4Iu9o3OMS6XloIfxR1K6T
rmRiJOETo936ftkHDPCC8Aud6I9B+KbITXFDywdd3CD8c+rtV9pZAx0JH+Vo
a/THtWlJ+KnnjkDUJ68FH8JXBy+1HH9QqYlThL+Eq02qLvRpSvhsmG2Sn5yq
haOE32bvnu658Ly2hO/WFviVrpyri0jCf4ZZzyLMRuZK+LDrtlKAtEhfwo9G
Cf3Zha0GEr7Mbuq9uI1hhOOEPx9WtzS55hv/7N1xPt33wycmiCT8yqfsumXf
Yirh2xjvnZ2xEeYQEf7Vr93huUzNUsLHmcr4J6jECgsIP18m+RdG+HpfZ0hh
ZpUNZhP+Nql1ep6eTpXwebDsx7shtjQMEX5/27Hw/fZGGuwJ33/2Y7/d7UFH
I+H/LIZdYelNOurJ/sDPvSjj4CwGAsn+IW5Zn/d1DwYUyP5Czyihbl04A3L/
t//4H0D8Tys=
      "]]}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  Method->{},
  PlotRange->{{0, 40}, {0, 40}},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.3974998146888866`*^9, 3.397575918587144*^9, 3.4058355953289647`*^9, {
   3.588269537481512*^9, 3.5882695448115225`*^9}}]
}, {2}]]
}, Closed]],

Cell[CellGroupData[{

Cell["Lin-log plot", "Section",
 CellChangeTimes->{{3.5882695143414793`*^9, 3.588269531921504*^9}, {
  3.588269562571547*^9, 3.58826956480155*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListLogPlot", "[", 
  RowBox[{"obj", ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
   RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.3974998259550867`*^9, {3.3974998656521683`*^9, 3.3974998674447455`*^9}, 
   3.3974999001217327`*^9, {3.5882695808015723`*^9, 3.5882695845115776`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxdl3k8VXkfx6/L3a8sJSmZJLJ0LVluuNwPGoNkK2Ury0MliqRob2pqZKuQ
mqxlqCR7luY2ljLR0KMkxlSDpE1FCWPr8Tzzu/54zut1Xvd1z7nnnnO+38/3
83n/VAPC3IKoFAqlaWb/7+c/mwm8jjRd3XaHAbpagNbxs3yUXVpnlNLIQKBN
M2/TN6boeXlMY7CDgUesofiPuWbQHnrK4AzNfFd1+1isKsDrrxUs/blMWFiL
gvmnLUBR1baPsGBiZGutn/U7S+yOlou6tZOJOVMTI/5KwNNBtY3tuUzI7zVs
jywBbtw+WPh9DxO7/VP9kwRWaCxLPXNwCQv2g5+yLlRbQf7ob4Fx/iwURqxd
mbjcGi3zCwOP57BwYc0H6dwT1uifI8p1ejlz/sy6AkGbNTyaGSMf1NmI4oWU
vJCxwUKljsHDgWzsWqZB9TS3wcn51hUG2Wwk79W3i3e3gURecr5rJxvTY5t6
MjbboHjZnmRLLgdX96ubP99gA5WhfRtDzDlIj1uT3mxpg67r/sneQRxEHszy
U1C0geZnDa1LpzjY4BVQcLrbGvzrgd1/XOEg8UByplm6NXY7dKrfqOGg8ew7
ttkaa6QXHh9sauXggk9dw6MPVnjLv93S18WBU1xQwpYYKzRt7pWreMbBXFZp
RpiSFWhfhjTHOmd+v+LMxIEcgK5YStnSzEH5K4UfNTUBhbcvf6iu5EC/T/4e
300I/6Xm6vkXOXjSahxLdbFE34IW73eRHBQ+6dtGX2uB1I5V2jq2HDweTy+O
dxRAdY/yMdk5HLjcLM1vdDXHcyf3eNNmNrrnaV9t8TVD+nt+relRNhLK4qJP
7DPF64GF1ee12HDYbhJ85dIqhLLTy+/fY0GXI/mmqIsPB86lTL4XC17lc952
avBh710Ww+tmwuW2ntLcGBO8uqHv1+PBhFh/3kR/vnkRT+XDTaB7Pd+oy5s5
0x+Xh3r3TGDd4H/M8h0TspEWzb9I8bH8o1pM1C4Wblb+NRSlycfiLx6uRz6w
wL3SpHhsJR+u+XG5fgFsZNtGL1ivxsexEcMUgxY2Yh/nSdZPmKC4j7dLRo+D
h6J6/VGRCZwXq79aFMNBQ0e9IGKbCb4JO9C1f6beX/+3GePaat5rlyVcLGX0
xN08YYw0+QjPel8upid1bd5MGGF+0+TOT6lcsB2KluoEGaHBL/oD9Tcu7Io0
3AR3DTG4q7J37nsuFtLUFtCVDWHv8f1xG640qq4+cjwTthLXf3WxKFSThrpU
ffBonQEGT0y37TSURuzlePeA+QYYHQvLyDSXRtn8QM5YmD7iBAvb3AXS4M05
dig/Rw/3P+WNXzeWhpKBFV/qsC6SQjZurVouDTta+cnWSB50j08/SZKXRmKt
yCEpYQXUFC/qrh/h4oKC0c/BLTqQ6K/3VmzjIvr30CaqqQ4Kc9z9x69y8Upy
ncXJx9p4UteV+k00F1bcqrTYHG1YOJqqFYGLyk9Ry5nXtMFKZok6qVw866u0
cnqljcDiFWXtv3Lgujnl3bivzqz+MvNtdwzPXYGMO/Mf7FCf0WOFOj9Ikoef
0+Wk77SyQV8hyb7F08XVrSpxW6LYqM/w2HH5rB6G74ZODyix4Xx4TfWpVH34
5HwOYlazsNzl5ea8wwawUMhnxLuzwJDw7Q07shI/BC+SCx9kQuHbPeefphoi
0CDY53EsExGbRpVT643A8nAtltBgzvZXrL+ORVJ3a8uMILrlIqCqMJHp6Hvk
trchSod7FVxDmejbE/an0YQB/KzSpIYKmeCGlm44dU4fiztPPQvpZyKv6duf
dvro4ste598Fc1lw/rPH+dxZHeQ2xJq0Gc/os9nz9tWHmgipK9hyzomFSom1
JTVqGgi3LPnSu4mFggjZutZENUT5FfEUA1nosDQ6mqGkOut/8Z/XZwrOLYYX
12j7TxtYEMSvnHzmrATXu5T5mTYsLGkvn47eqQApbTvOpCYLopPtd7ZOyME3
XeMXFQZrxmj3Lfn9qzQ8T5qUHXrOxAKDQ1r9M8fPF2y2yC5iYpV+YP1BZRrG
RvY5qR5gQnO3ecZiOypyVBvLy6yY6NaYFGxPouDy08JADSnx/FJm80N8vmLV
686Eowzok+s/D5nNbRUwYEf+vzWB/t3Zv+lYQu4fZVFT5VlFhx95vq6kGLm2
/XQ0k+dPDUxfWGNNhzJ5P8tpWsIbOTocyfuHdmZ/nPeWhiRSn1MrTDxeNNPQ
Q+rnMBo4IPqFhgpS39WFzV8qKmm4T+o/z2/9h8N1NMiQ/ngN7ml0/IMGL9I/
kxit355P0yAi/TW5NnXxiAEdLNL/bdBsUgin4xPRR1uY43XTajqyiH7yXng8
dOIw0E70deDzLu+MQAbGif48SP12EX1uG4wpf+TNgBzRr9bWsNWR/XRQib5t
njbw/APo0CD6H7AU2Z18QIMbmY/LD4S12Vo03CLzw+uWoRtGSIFC5mu/buP5
vXmSKCfz56+kstP+LnV2Ph353VEKTRJwIvM70Xmqs6iEMjvfnKpnEZ7D08Jy
Mv8Beu2ltuaTQrE/jGlnjFfr/C18SfzDdllRa9vNL8Io4i/b8y5wLRuGhOnE
fxI9HP44fvStMIn4kywvqSpJtlvoQPwr+bumtCxGrXAR8bcR/0bFNEFbjdj/
vHVC+VOnX9VUEn8csM2xX507WBNP/HN4Z9O/r3AGazSIv2YuiDj44llfjdh/
l52Mz74mc79G7M9Z1P6/3RKahY7Ev6+U5Cds03kh5BJ/V3Fybe9Ofy+kTP3j
/2XZQR0dnp+F4nwovcSu6ncfFYr9pbzfKnLrn+PCRpIvQasdH/ZMTQkfkfxp
8F3U7LCFgjiST3W6KwtE1yRm84vVSk+RfECFNMk3x6yyje+ezPSP5F/5sHH4
j/ekIEPy8euHztc+l2fmgeSn2qo9h74PpsOf5GvHE8f3pSoMSJD89ST6W0/y
2UhZtllrKQM+JL+9V6tsjo+mw4Dk++TFx7cs79FgT/I/Z7eKzmqZmfsRPkjs
z1GUcZPCK8IPBdH7bmSdlcR6whejRxkff26loo3wx5stDhFp8tRZPpkXvYPd
4y2Bvwi/jBL9GRK+sZVXF31UmvEZwj8hi5alZBh/FYr5SI/jbG8WOS0U85Oa
7eber2NTQjfCVzfYASXuTVPCi4S/mElsL9HLKaGYzzYMDGuX2k8LTxN+C8ml
L48dmBaK+a63W7n4Zf1X4V7Cf2+S3Uu1/SizfEjjmfJ8Biiz/Dg8nCaRfFRi
li99LAVd+guoSCH86ZFSWrmviIpwwqcRORNmP9hIYi/h1zbq03XKjyRn+XYg
6ZDiZU8ppBL+LabUWL3tlJrl4wLt+t6lzjR8S/h5LfG/CMLXE0uG/+WlQocs
4e8H9Dnna/fSZ/n8zUK9n1ru0jEs5nebFK9wJgNmhO9p+x/WX7ZioJnw/4O/
7DcEhTPQRNYHMokHmKIUBgLI+qHWYuzz9UIGuGR9cS2j+o7prwww/m/98R/m
lVVb
      "]]}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0., -1.040348327300701},
  CoordinatesToolOptions:>{"DisplayFunction" -> ({
      Part[#, 1], 
      Exp[
       Part[#, 2]]}& ), "CopiedValueFunction" -> ({
      Part[#, 1], 
      Exp[
       Part[#, 2]]}& )},
  FrameTicks->{{{{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]}}}}, {Automatic, Automatic}},
  GridLines->{None, None},
  Method->{},
  PlotRange->{{0., 38.73919312561519}, {-1.040348327300701, 
   3.6544605724698775`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], {
     Scaled[0.02], 
     Scaled[0.02]}},
  Ticks->{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]}}}}]], "Output",
 CellChangeTimes->{3.3974998267261953`*^9, 3.3974998686164303`*^9, 
  3.397499901453648*^9, 3.3975759270292835`*^9, 3.4058356057639694`*^9, 
  3.5882695853915787`*^9}]
}, {2}]]
}, Closed]],

Cell[CellGroupData[{

Cell["Log-lin plot", "Section",
 CellChangeTimes->{{3.5882695143414793`*^9, 3.588269531921504*^9}, {
  3.588269562571547*^9, 3.58826956480155*^9}, {3.588269606151608*^9, 
  3.588269609471613*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListLogLinearPlot", "[", 
  RowBox[{"obj", ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
   RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.397499908874318*^9, 3.39749991802748*^9}, 
   3.588269596101594*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxdl3tYTPkfxytTM1MzuUQpptskkaamqZku6rybSQktWVYlNpfpsmKpJA2S
amNLlLbQRW4h0c2SlVCJamIp1+QSiixaWrrJ2uf5dn7P8zvPc57zx3nOOd/z
+bw/7/fra7L85/lyNRUVlfpv53/X61ddNkT+wYLKf8dWEfyGmMGbPdl49iha
kpciwq7Rt5gzGtiILRx3elaZCNbORzxHyDRRWD43WNEtQtN59YX/lGpipbJu
3hwPO4ysak7019MC51i93rYyOxicr5OFR2hhPL9ibKrIHvKHJeUxdVrYOzAK
e67Z481by/biURy0OVebhIWJEfFd39zZ8zmQpXkdLzWSwPPErpr4ZA5sFwfe
rn4swezcIO+dlRyUffpRp6nAAVV1QeH7XnLwkTfD906kI8aOMIu8p8GF+yL3
tCsznMD/u6A00piL9hDZoeW6zrhf+ZiXa8uFx36v7C3PnTH0Ym+DwoWL8Ua6
+q0npuO2s/N2ZzcuhPoppzyDXLBvw+5spisX6yqTrI+Pc0V8x61kjh0XYw72
3ho644qZhy5rbeRzofCtb1/vRoF7YKxqLIeLkJYpOqEVFE4rL55a8J6Dpd2G
uue0gLCbPwzZKzkwdVT8KhAA0fH7VIIOcyCwG0g6KQVeDq6Pt1nPwdxk+c6g
mYBDSODTN24cmG2XnKp2Bb5a2nf1szlIHhy8MncSUO8Z0HejSQt3E+NEez9T
2JNBaXTt1ML3pzaZz06gUCpc9sfTWVp4yguZ39PtCuVh14UB6lpYe+V9s7Wr
Kyr+fGw3sUoTlunrzvaGuUByx7rm03pNmDtQWQVbpiPrx9aYB1aa2Nvyq2VX
pDN+crtWeK2DDYsJS8qv+zjBgeeQfe8gGw+q3IMz9Rwhjb1wySqQDYFa1t/v
r0uQP9Hkwj+mbKyz4DLLQ8QoHsm09HvDQnKUm/2nPjsM60+V6E/Hs0D7ZjsL
hR2KrGpVe+gGVGQcUmUj82QE43qSGJ1OU3z4emyYOfkpIrUdcDrgqFEin40j
O29sNEt3xJFY/vRBczYoaWWoZKQzxKsES6pM2Ggt7nE12DYdNU7qRoyxbPS8
6Xzn0+mCR1YFdZpDLOgaBh5KdKawstM9WPcpC9xLbLdaF+AaWV9JNXOr8Dag
81Nf+5adLBxT1l8+5eeG+M/VJw/4sWDavXry19tu8Cj35C00YuHg7jm+Y1yk
YJdczRE/YeKIsij9S6YUgUaVGv37mJgq7/Ue8VQKp+606I3zmPgcHO2ToSfD
6l8EOD+CiXfftOXjIsOFT6s3vj2jgZr21AwtHxmW8cblb5FrQO/hHWbdfBkW
KqaN4uhpYLe/etAZqQzKQ20mqxrVcZ/1QelkIkPj6qJFBxPUEahv4P/XOym8
Gv3177ur48PJ/lk7iqTIvb7w8UxtdRRpN/026C/FdzkLck2eM7DWzFzNb8AN
hrxJD5ZfZaBCc1PDnVQ3rJnJ2PzHWQa8xzJuNei6oc8EYYEVDLTcOx5RlPFN
jw5n4/obGGhYocphagLv1u612PmOgXaivxU9BTkKU3UERGlNCq5xQWFhXl2W
XB0vZUOyltTp8Gjt2eN6Vh3HLozTLv3BGY5pVJZijAaqmlarrTV0woo7wWJB
tAZK4854RL12QPbucymWLzXg3vLL0tEXJHjD2tHqt4iJaO0U0epMMUJfVrvU
KpnwSBpK+XWLPRavNL9VIGOB//GjjjjKju7vsP52TbAMf+vCglkBYhqX2WHZ
Z7PUmDNMHPXb9myqlT2OD05J8eMx8cQ0Rrr6qT0isi+klG3QgL6jeEAcI8ZH
1e0ZmdXqSC1Pjk7sE6O/l6H1dZCB4JuzH5YukcBKLJ96cxIDHpyAqPACCZae
Cdd94DwCvE3e4tZmCYp5KdmvXdQQbpF3I6Dj2/34sPtPpqpCSPxPIfrU+0BV
Ba9eJJ+wqZLAPCFCzk38QnlLyiJ4v0jwOUDHelVrP2V5wuzFdw4SjNiVIM/l
9FLp/IbJzXfFiBT8hqZJ/1Av+h919q0Qo54ybZmGD9TpzB2xc9rtoSHYXTud
+57iebZvSlxgj46BKrl/eBeVkKZMSrpoh30so8p+707q3u7Qxu+N7fDesX9I
Kuighr5+O2JF9H2LnzPtip7Yooc8r1gjio6W2sKQvL+9ghcfc1KIG+T7PqFR
W8t5QiSS9emr88dr5NhgNFn/mkf296dNsUEP+b9jp85Klu+yhg35/6C07PFX
PwqwidTHRvyqKC9egBWkfjle1OIYqQDlpL7GxTXLPUQCyEn965nyPV6+AghI
fyI6PXUmlAvwhfTPflnI7Bx3a/SR/q6fE5kUo2GDdaT/L+vqGfWJNjhN9GHR
lngx3UhI6yegYLPhndtCpBJ9PfS7lGiXZ4urRH8DpH7+RJ+POJy/6nfYIpjo
9/do1Yj1cUK8JvpO+DtCmR5qg/1E/5GLPkjbdgiwkszHocHMcB2raZCQ+YlZ
aTZgVDMF7sPztb3lee78yThJ5s85ekT0onYzej7ddV7/Ltxoirdkfp1qrRfr
GRrT8533rOfAteIJ6CXz7+p2fnmOvx7tD+lLnmw44aUDHvGPgAWU7+ExI2l/
YZ3Pbft5Fgt5xH8sxlkfFs9TwyziT/lxhfl31/RTw/7V3VxZGWn6gWoi/qbS
sLlmTmknNex/qJj/RXn0MbWC+OPlnjHjBnPuUpXEP5GXWmEfc48a9tf82vnd
xSefUsP+C7WOg28Muqhhf77s/xGZXz9SWsS/S1YFFXobf6E8ib+P+iRWPBQw
kED8nzVkvIP7pyadD9f3l/al2Y6m/eWnritfI9aMg5zkSwmz7HPbaAM6fxqS
YqNejzZCLcknAwsb0wChKZ1f3vm62xoHzHCU5NsmRdK0tGeT6fxreLGcc651
KjpIPt5I9mbrPbei83PVgpQBSbQNxpJ8naefEOIyJKTz9wvRXwnJ51U7qhrY
GrY4SPI7+d6H3jlZNpCRfN87cGui8RoBnf8LtkUJm/+0RBjhgyP1M/atCZiC
/YQfKn/oOm6pOxkOhC8Kd8XdKlObhHOEP0paJ+7RNufTfMLfbOybH2+CM4Rf
bIn+hvmmZBY3qPkdDw2Ef/a/6hMeMJlI81HBhPHdcXcMaH56USXL7GIboJPw
VcLR5ozGSn1sJPyVvtT88uEufZrPesXmRcmpBjS/jdrMmut5aALNd4GnfcsX
G/LgRfjPNO9hpEW/Ic2Hzy5qB6hlGtP8yE/qzi9uMaH5Mr+p88haEZ/mzxtX
mpu8isxwj/Dp1sawejVHc5gSfpUKNl5wap5M863CZ0PbpsgpuEj417h2/dyF
upY0H+eMwQN52TTMIPx8jPjfMF9vbQsrzrlsjS7C3+a1Lo/37LGh+TyU8f5S
mIMQ+oTfXz3yfLNOKaT5/pOv+NVmb1soCf/niRyLy8/bYhrZH/jOKdmbMPJ/
+4e4hV0+v3uLsJjsL4z4SdeXRYjQ8H/7j38BlV5IZg==
      "]]}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0.6931471805599453, 0.3533315854836694},
  CoordinatesToolOptions:>{"DisplayFunction" -> ({
      Exp[
       Part[#, 1]], 
      Part[#, 2]}& ), "CopiedValueFunction" -> ({
      Exp[
       Part[#, 1]], 
      Part[#, 2]}& )},
  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},
  Method->{},
  PlotRange->{{0.6931471805599453, 3.656851829822224}, {0.3533315854836694, 
   38.646668414516334`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], {
     Scaled[0.02], 
     Scaled[0.02]}},
  Ticks->{{{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]}}}, Automatic}]], "Output",
 CellChangeTimes->{3.397499919299309*^9, 3.397575957823563*^9, 
  3.5882696124216166`*^9}]
}, {2}]]
}, Closed]],

Cell[CellGroupData[{

Cell["Log-log plot", "Section",
 CellChangeTimes->{{3.5882695143414793`*^9, 3.588269531921504*^9}, {
  3.588269562571547*^9, 3.58826956480155*^9}, {3.588269606151608*^9, 
  3.588269609471613*^9}, {3.5882696706216984`*^9, 3.5882696710116987`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListLogLogPlot", "[", 
  RowBox[{"obj", ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
   RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.397499924216379*^9, 3.3974999335498*^9}, {
   3.397575938365584*^9, 3.3975759484200416`*^9}, 3.588269627641638*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxdl3s4lHkbxx1mnsM8M0nEdkCIDaHeyiGH5xZLrFXalNMWNUNFJbFOnalX
Gx2wWaEcYotyfkVNlFNoSGvLocNKUclxncV4Z6/rN/Ne1/vHXPPHM88z93Pf
3/v7/fzU9xzexpORkpJqEH3++a6vtQgJuk+A+8mGW/uqcXAT4r7H7UgoTv9x
fUI9Dpfkn+PfNZLwrueM9nAbDoZmN+1krVmgO/Iap0ZwaCpnuowXsuDTfCm5
RoEAuYrWs+7KFEip69oHWhCwtLzOOvAoBUdD5UPuHyKA11lQHF5HwethzZ0v
sgj4MqDXnb+QDXcfHss7/Y6Ao07TW77fxob64quXj60gwe72perIC2xYdKqO
e8GbhO9TfX6I5bOhSSmPG5lJQkWdT2BSDxt6F/CznHpIUJRdGdSGccBVgE8M
arFAcyS7MGgFB5YuaRs+wWVBO/+tSuq/OHBOaVPp2jQWCD/81hhhwQHp7Pgc
53YW/GFmFm1mxYGClcHxlmwKkkIuJ+OWHFAdCdvpZ0ZBZO/zC+z1HOjM9Y73
4FGwOeMRFabJgVWj2jrp5yng3FCUPsnmgHEut6vjdwryBA/vbh9iw1GHdq27
lRT4P9sh3CBgQ0pe5HBDCwWhkUlSPpls6DN+2PShk4Ke2eDINcFsaNjVLV/6
hgKTfV5dX6zYwBwfWTXVTsG83oa+GZINmHKRlI+AggY7z+nmJgoW9/VEld+j
ID6BxvpiKfDWMNPKuUZB4Vrv+10OFHz4psnjSxAFgkxLF08mBVfbTHT1bCko
a3m7fnkFC9SDl59ZuIAC4xeG1RPBLHjr5BJjKmBB4u5X4R36LEgZMH5keooF
B6ye5DzpJeFT/9LyRB0WmKiYJLelk+DPSilpfELCppMPKvW9SHCg0q8bu5OQ
tlz9wbgGCfYexdH6XQTky+F6bl8I+Hh3jdc7VwLE+vNA+lOwy17wrJsAg9yc
9Z0eBCh5liVkSIueW+t9xvKf+zbqOGsqk/DtkGZ0yBES8jyz1M5qkqAy7up8
cpCEmyc1zWe1SXDOuZDltYcFRn4GP1Wok3BmYl3C2iYWVG9kqjEUSSj4oH9E
zlCkQ/3sOpaQgC0qWh+XRVPA/WjjqySqU+1wRGe4qN9PUH23bfQ/bV3BBoUD
090nYglIXhToVrWbDZGTVbk33ER1Nswe+vsqG2yL7VRc1Aio9QodlKljA1lQ
m2L0Fw7DR+51KwywwUuNj80k4WDvejrSWqSTjcNXQsO24pBbsdUiT6Sjg+cM
oFxW9PuzwtZD6zjwYOJg2EAJBpNTh1Ovm3HAW2Vx2gkeBhfMl7a6mHPAJWL1
QrYyBo1/Z8/kbuCAIOONut9TJsT57fQt+5YDTw/e2ZkexQSDSOHLuEUcsH/q
vqTdhgmaytcMtk+wIbXe5e3mBUyQ7q3yUG5lg1PK9lT19wzIy3TxnrnFBlUV
rY49tQx4+bjzqlooGw5tZhy/X8oAC0dTzXxgw7Q6+HuVMYCMJ/ntMiLdmpSe
nmlkALdgdfGLCgoGA35bFTvIkOhv71h2SoQGE1KrlZoPalGQk3O9LpHHhJsp
8pzqFhbYvhqLtyxlwi1f1Qs+ISwwvUInRizCYKzGX9i/hAV7X/gaGYRi4Jk5
yiPKSUi+fC9GrwcDi8U5eIwLCV+I86/cduIQtX+ZfMAwAft7qixqBDhw1+73
/PMXkc642s+zrQkgXZ0LpLUJyXzF+ru0TC9wQORb/PtbzWVUCfCeXHkxvASH
orHuxc7+BNya1YlxU8HByyqZMZIn8qvkBzFFIRiotJ9/49dLwKh0dMLVKiaM
/7zlqbkCCTNTDGp+lgFZtb8YtW4gQd+Ip/tMiwF+j+/4/OpEwq6SQKUOM1kI
sCwc7/6JhHyVmOTPFjIQ4pWvr8wVXY/0b/9LV1rifxHrJqY6pKXAnb3+QNIO
ErSjjvI4Z+do5xoppevWJEx6Khj6vZqhGbqbqdlVJMheiuKlsqfo3SnaD1Rx
EoIMfoUmrXHa7ZxR8fG3BDTQGn+uhr/pxDu7LNLyCcAMLteYc4boqYkwJ/UI
Anq/VvDcA/voTPX6kmIrApIINf7MDx/pjNd5XG0GAUOmM8JNBr20OD/E10tN
PrXHnsJhDN0/OrJRocUcB1X0/JZYzO7KNAbN6P9DLCrL3MowOIvq64yLlm8N
x0Ae1X+Vm7K0cpNIB+j9LIXM2M/yGKxB7+/fnjak2MeEY6g/51cbub4XMGEv
6p/DJLef/4AJxai/NnmC8dJ7TOCh/it6bR888Vi0J2g+7sPB9Y4dTJhD8zOK
1ql7K2TCNJqv0e25ayfXYnAEzX8frGpYHIBBHtJH62HHXNNyTKKf7Peuz50o
HC4ifUWMHvFI5eJQi/TnivrnjvS5bzi65A8PHHyRfnV8D9sE9WLwGenb+nWt
vvceDK4h/fdb8jefa2YCF+1HRjP9KE2HCcZof/S75LB1gQywQfsVblCf+HO2
LOSi/fNeonrIvkZGsp+Oxl0hixukYQDt79f28+35hVKS/abK3gS6jQnpKbT/
ewxfFNmazdJif5jSTZ0p15umVZB/2K7Mb2n9zzgt9pcD2b+xLWtH6OvIfy66
OnREnuqjHZA/LdSPK4tb2EWL/SveriH5Bv6IbkL+NuFdr5xs3lop9j8PPX/j
uUsfK/cif+y3zbS3yRqu5CP/HDvU8Ox3arhS7K/Xvwk89v7Nh0qx/648F5N2
W66xUuzPN2R6p7fFCmgK+ffvhTmx+/Te03bI31WdnF90pQzQUcj/i9N4bW1u
o7Q4H4rSWWW9LpO02F9Keq2CfEW65aF84dk4Pn83N0eL86d29zKBg48U1KB8
emzwrzv829KS/CJbsATZZhnIQvnmeKN455eXspL8KxnbEPDvJwzoRfk4P9j+
yTODKclPTZPg46f3Y6CI8rXtpeNAkSouyV83pL8ClM/rly8U6GjgkI7y28NG
dVeMSFfWKN9nr/153/IJU5L/mUdV9WzkmOCP+OBib6ay3DYGXEP8cCc07O6N
K7Jggvhi8hQ+dLNFBu4h/vjs4xCYvEhGwieKoQdZ7zykoQTxyyTSn5hvbBdp
8YeWSEEj4h+/ZSsTUjfM02I+MqS22G8MEtJiftK03dU9PzVHf0R8dZe1p9Cl
YY4OQ/xFxLHc+T0iH0F8tqN/TLfIXkiL+c0vC/v2l34hLea77q7lBT1V87Q9
4r/P8S5Ful5SEj5k6pvqe/ZLSfhxbCxZOv6UtIQvPS3NO9d8IyPhT9eEonth
+TLQhvg0MPPrxihrWdBA/Noq8/rH5X/ISvi2P+64coYbAx4i/i2QqrTqa2dI
+PiOblW3xhYmfIf4+Qfkf2K+/rpibK+7KgZ9iL+bsQWJj37GJHz+ealhUlMN
BkvE/G6d4B5A4BK+Z4Y/r8qwwkGA+L/5L/sdvAAcVqPzgdzFCIKf8L/zwyOL
qdHcPBw80Pnidmp5tWkFDo3/d/74LzsGTpY=
      "]]}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0.6931471805599453, -1.040348327300701},
  CoordinatesToolOptions:>{"DisplayFunction" -> ({
      Exp[
       Part[#, 1]], 
      Exp[
       Part[#, 2]]}& ), "CopiedValueFunction" -> ({
      Exp[
       Part[#, 1]], 
      Exp[
       Part[#, 2]]}& )},
  FrameTicks->{{{{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]}}}}, {{{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},
  Method->{},
  PlotRange->{{0.6931471805599453, 3.656851829822224}, {-1.040348327300701, 
   3.6544605724698775`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], {
     Scaled[0.02], 
     Scaled[0.02]}},
  Ticks->{{{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["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]}}}}]], "Output",
 CellChangeTimes->{
  3.397499934521197*^9, {3.397575941379918*^9, 3.3975759492412224`*^9}, 
   3.5882696733517017`*^9}]
}, {2}]]
}, Closed]],

Cell[CellGroupData[{

Cell["Lin- Square plot", "Section",
 CellChangeTimes->{{3.5882695143414793`*^9, 3.588269531921504*^9}, {
  3.588269562571547*^9, 3.58826956480155*^9}, {3.588269606151608*^9, 
  3.588269609471613*^9}, {3.5882696836717167`*^9, 3.588269691961728*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"obj", "/.", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"u_", ",", "v_"}], "}"}], "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"u", ",", 
       RowBox[{"v", "^", "2"}]}], "}"}]}]}], ",", 
   RowBox[{"Joined", "\[Rule]", "True"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.397575966205616*^9, {3.588269699881739*^9, 3.588269700851741*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {RGBColor[0.24720000000000014`, 0.24, 0.6], LineBox[CompressedData["
1:eJxdl3k4lPsbxkUlosWStJyUSGSXOUnNbazJbjiFkBRlH8sgYrIvWcZelo6y
HEeDItWhUJRwjkSdNqK0qFAJJfl1zvk2f/ze65rrveaa933n+z7P/dz357ve
xcfqIC8PD0/7988/5/8OTfx7usHEQmmXzVHpFPDtKT3ZMcSEq26n4r5128Bx
91ujQQ1Gj8D75LESLbS5q6TqPvj+fb3VWPV6bfh0rCv7WB2CHbSGw5TUHRBV
UPhTqC0Uk25NzrQ3O9G/Xlx8RiIMS2ZnJvdLAqsOWr49VRIOkSD1voAaoKsi
WHSRVwT892fvZ2vrIFzqSyunLhK7xj8U5V7WgU6ueovBnyxwGKZqKZtomNj6
aHne7HHk7h4VLomhYdxaa4SCaHDSrCu179JwwM311If0GDAVPWqeLdVF89Dp
VffexcJvoyzv3u26cKdpT2iaxSMjSMUo2UYXMX/N8LVWJuDb9L7BAkddZP4t
1VvOm4TyUJnt/ba6uHvPYl6FUTLyk3bnd+7UxfWYvdH7mCcQEFbkLC6hC+GL
8yzs4lJga+dSmfqUBhfGPTOGXypSjmYUauXTcNhGoSlIIg230t8Iau2moUli
1f4hhzTkOjS39ozq4JWyYb9nbBrMkg6eOBSvA41p+iUxdhpEBc4X+Eh+r4eS
d/zRY9+v35I2c/QMMH3NPXbSOA21L8Xj5OQAxtdt+WpjqVB5LnKTYkXFbBo1
LkAwFfe6tybyWuyEyR+nGU9HToBz77n7QtMd6DT8FiuSlYzeL/nVySbaCHET
HPy0JAkWdecrblluh8T0dEeuUwKeismXdzlpwZz90nIyJQ4nLiQFx4RsQ4Ck
t1x9SQyMj2geLvv1ZzDbrFzfVkZBaTHf66qHFBSsyv+t7RwLdrVLRv6WpWDJ
ogxGnksELBqVJUXjNaH+fHOGXORR/NAfL9GfUynjsYivJkQ6NecKM49+74/F
HeWbmpAsM7V5cTkCywJ2dP4xnwKP1jzUiR9HXf3Ae6YcBbNd1h4T3tEQKmuX
OK5GwdrWpqu1g7E4bRC8ki5NQeFO1rOrBxOQ2FvK1zKjCeaea+Wd75Nwp6FF
ZapBE9XCqb82H01B6/0WbYa7JoaKRz4GhaVh7t9jKwwDBehbqtKxgX8wqS5m
K/hDhfrjutn49lVJ9/WMBvYWhJzTfpQBQeOqDQoHNdCVVexidTsTRlWyVto3
1GFYvtVzd14WVi2QXrlwjTrcGyc7DPWycam8xyTNRw2vxA3nSd/Khsz8lsNT
zaqwdfvjU9KGHCQWJ9u4rFDF2NDqhSuscnBhheviaR8VPKPMJdBsc6C45Hh4
xRll6O2LTzyunANJVR3K/GNKYFlvrFAZyIbRgtrY7gBFxJfcS41yy0ZKU4Mx
+8QW1MmsCgzpyEKuuMbZw10K+Gml5pXGJVkI7vBs592mgCXF0kUJWzPxks96
R2yvPDh7tTxZehnQEbp0KvGMPM45fvBPBRv1H5ibFv0mD/W1465XldLx5Hm9
jtlLeTx61ussJpYGS8fMN1+cFGBB9FdYYeA1IboF/ZeiZXo5SeBclKEc5FPE
sOeead+wBCzcwid4RVEJlgv0zmy1j0NLwR6v4nRlUIQjptiWMTA/tvtyQrYK
tNI3c/52jcImi2HH0mOqCFn4NlEpjwX+eU5DPhFq6J1WSVN7FgFx/cCcx9nq
eJM2HSb2NAyMfVNrsls0MDixM21cPpTb3x/6u796/o2mCxrg//Wld89kCApN
nCIa7dXxNLNg+TL+MDwP9HmkMaMKJZHqG0deh0PI87xtQpYKePkFrjRkRKC0
XT/P20EJXbeWKdYci4T5o0HzrHQFsMy955qXsiDUubex/I4cKi7vMi8NZaF+
nmnNNWlZDCi3X1xwlYVKxrLm7hRpvDsr31T0gIX7OzUiCyTXg0r8L/kjvVA7
ay0YQU9tugtY0E5W+/rEXBIHqGJeX41ZkOqr/RbsLY7F5/vC6A8i0RDbd91t
Zjl8A+2j55tGAudCpDrmhMEwC3jvZBOBlarhm1/wC2D2wS5Wwmg4flZxbQlb
swA5H24P5/uEQc5/e8FaI1701j57nTMUiqeyX7WPsHnQ7+7ZJWIZQuaXBzP/
lPE6k/v7jbZ201DdIKiQ+318+tXP3AuAEXn+q/szG9lR/pAi/++xOimDbs6A
M1kfnX9d2ewOP3SS9QeHN5Zet/LFGvJ+123ft1hI+cCEvL+ji2Gy1bgX2KQ+
7we9hl6s9MIgqd+jl8UxygWeuEjqeyBh44agSE/cJvV3169JCG/zxFLSny/e
Mtsb/b1gR/o3IGH7jnXCGw2kvyaxwZwpIV8IkP6frXauGV/qhw9EHzvL86Vs
rRkoIvrpX0dbOPDQH31EX6LMt6EiFYH4QvQ3QernR/SZeeHzaHloIJYT/Xo0
FgmrbvIHL9E3Te2FRn+fL2SJ/g2ihXu6N3rBisyHL90gbv1f7rhC5udOoWlb
XKMreMh85So36ObOOaOWzB9t+3CmA82eO5/PaW0P9Ok2MCPz25ohYeambcGd
71pRFcahCUPUkvnPeZburLNYh+sPOiarC/VBwTDxj4q2OZtNW5TAJP4SUkj/
SPfdgHziP552eiLCk2JgE38aVdLn5PctgDHxr9ZLPz3uPjFBXU38TT5n7Hxt
4iD1h//9fHbZke12XdR64o8lFSLhlz9doyYT//RnGHyM2NZMlSX+miM5LMd2
vEP94b+s0evJfbuHqT/82dxwdcnUt2mqCfHvorER53PHBSFE/D1c75Pb74GS
4Jn9z/+P8PVwHJmy3Hx43CGzaEWYGtdfNnOKZ0dqtXGL5Iu3rEOlyA599JD8
Gdc3cbgqb4Ykkk9njC0yyqro3PxqSz1kMRVtD2GSbzEpErVBPftRS/JPzLpG
YDTxEJaSfJz6qdl8+LUH2CQ/T7fkUac++mI/ydf4m1ccBLUDMI/k72eiPzrJ
Z0pLonmuaQAcSH4PDKlVq2j4QZXk+1rxcbWpMU/sIvkv3ee5oV7RHWzCB5P5
bzuZkq54Sfjhl2qxdaNlzqATvmj4HPRQPMcedwl/pOdVbmgcseXyiT2vcsaY
gjUGCL/UEf2pE75RKP+S3Te3GxcJ//gceD7y+YoRl48qhPjOR0UacPmJQ39o
IKWiDyvCV+6ZnE+/XNDDScJfEysc7PbM6nH5rCS1/v1aQQOkEn4L8p01XPrE
kMt3xrf5eaUjjBFE+E/jhbd/1VdTLh/itf3GKFVLLj8uelzlwTNgzeVLzwcP
X3UL/oJMwp9/rq26OFVnB1/Cp8J327rYTxwRRPjV34TRsKJxP5dvLxlTZH6n
uiKb8G+Hh2HytXeHuHwcpxZzW6zhMPQJP48T/2MQvq7ZtnrsIssHywh/f2sb
Hg3e4sfl85yT30Q58QxMEH5vDxL1Le30hxbh+8Y1Gid7xgLQSfhfqMy2gDoS
iHayPxh9nDT1ujYILmT/ENV+c/EiYyaEyP5CS3qbiVEJE/z/t//4HzxVl8U=

     "]]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{2., 0.12484320930040356`},
  Method->{},
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{
  3.3975759669366674`*^9, {3.5882696960417337`*^9, 3.5882697018717422`*^9}}]
}, {2}]]
}, Closed]],

Cell[CellGroupData[{

Cell["Lin- Square Root plot", "Section",
 CellChangeTimes->{{3.5882695143414793`*^9, 3.588269531921504*^9}, {
  3.588269562571547*^9, 3.58826956480155*^9}, {3.588269606151608*^9, 
  3.588269609471613*^9}, {3.5882696836717167`*^9, 3.5882697193817663`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"obj", "/.", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"u_", ",", "v_"}], "}"}], "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"u", ",", 
       SqrtBox["v"]}], "}"}]}]}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
   RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.397499941941867*^9, 3.397499948581414*^9}, 
   3.588269633991647*^9}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {RGBColor[0.24720000000000014`, 0.24, 0.6], LineBox[CompressedData["
1:eJxdl3k4lHsfxm1jyTIzz5hFp6KURHYRhrmZ6kVEokVZS6VDtpKKFidtVJZI
hbKEHEvJ0qJzUJ1yjhZbi+VFSJJKnehFer1vv+aP81zXc8011zzzPL/n+72/
9/35zfYNcvGTEBMTq5s6//f5/TCB1HDgqfbLTEir+y74JcEU386xshNLmNgk
rNfxUDWDzsFomeRqJhrlhuPeXzJHSCzrckz71PfZLu+vzObjeNakR70EBUub
Kn/TU5Yoc+tySTekMLKl2ttm0ArbpabxxH+moPR1fMRHBaAv5CZ3FFCgwo1a
dlwF+DrWet8+UAjzSfFJ5Fvj0pGR2Nl8Fuw+fLyQesMa5zN2R48eZ6E41NHw
5HwbUEJq3KCdhdTl7xQvxdggetQ/M0ZXGcXxqwr5TTbQb/0UWHJAGbt0fr7a
Qxciy+jSrIgGZYTM1ZBYZyHEvcic2gpVNpLC9W3j3IR4MNR2wGUbG5NfPLrT
PYW4MFReLbzCRv6eeRb/Xi0Epy3/+ekPbKTFLk+rtxJiq8ocH18tDnZEXvBm
c4VQ/bl3SdsGDla7+xae6rJBb3ppFo5wcHJvUoZ52tT65u071ZfPwYOEwWnm
y23gdDPgrm4NB6kbau41vrPG9m0vkfiYgxWxfic2H7VGR8myVylNHLDkStOD
VKzx6JE7s7l+6vqF8eN7swGjriSj4ZsclPWzj2hqAip9bwIvpXOg30vdN3UR
4GZRj07lDg6ePll0XMLZCgb5nIfjAg6Kn/ZulXa0RO4XodGab2w0j6VdiXPg
Yy+/Zc+tUjacy0sLHqy0gNLrkjOa7mx0KWvlP/QyRyvHWazwszJOXIuNiNlt
hnWpK9d5xyjDfpuJf17mYujWNasHyilDV15yoKTVFFteJwVJR7PgXqb05rmG
KVrylBID3lNwvq2nwjpqgr6Cyd7BlRT+qT+v3NB2KtgEE2Z7Nqxyo6b649yg
d98EenO59ccmKDB2WNbfkjKFWNFof1gGC+WVncO7NE1h8/hgjJq5MhTy6rjR
hqYYyzl/reKRMi4ui+C5qpvil+BfM8PWs3G8OVeydtwE2b3N7/I72WioqtUf
rTJBFX3A+ZY7B/ee1fJDt5rAoU7x0Oypen/7/7EIgStmhm804mKOTHdsecwi
XLt/L0slnovJCV3hwLgxBt+vOvO2m4tp9iVztP2MUTivJuW0Jg+2JRou/LtG
KHlMX/tiIw/Taeo86RlGeOnDb01I4uF6fqNDfJAh1OtY9jmVPMyTqvUfrTGA
8kW1UdoT3tRcxbn5cgxw+0u62612Hq5xNsl/CdLHdK9J+ecdPOgoRUcVZOuB
vmKG/P4mHlQMrE2l9umixefslZe3p55PKzv8ZIcO5s9y+LQknYeT1VX2iScW
gqK6zo6G8JDKNs7xf6iNBcOf927g8xDxV0CdhJk2LplPf9Q3wUW/5CrLw81a
OJ35RwSnjAtrhevnj2drQWdiyZ5oXy4qP+6aL3tZC0pKaS6PZbno6K20XtGv
hUjDhF1leRys9Dw9OOalDUOiv4yCZYF/sxbCqklyRnQjG8UV80z9JHWwMjQi
ytSbDemFktNu6ujC8H5coeobZdSmrw3MStCDtcHVBS4hynDat/zGsRR9dHqa
sMZGWJjv3OeZu88A0b1DcW6RLMiIe70M2m+IOxc4h8skWGAv3XmmPcUIjz0G
M8NjKYR6jM5IqTWGy3zjSRkeJervD/09+0nqbvU1Y+RNf946qUQhw8Fr/+31
RtBR87xgvpVC786gNuNxA6z51VXyYDkFhYDS1ceS9eHephffMEIht27p2e0b
dKFNM0g3X8iCU1u3U3KCNtTdt9974caCQv262/kNmriR6+DfHsZCpbjj1d/V
NVAeN2xx4DALhaGMmicn1XFwc3AH6yQLz6yMD6SrzMY54n9xn1wz+MkzUfqE
W5AexQI/znCiw0kFwV2h3bGbWVBrKZuM2M7G2tqjp9cvY6HqcMudLeNMKEjO
Hbg5kwUU7Vb765si5mS0ZgQOUeAZRC14JSOH6ki7QccKCov1N9VGzqBhZ/W9
JY67KWiGWaTPtJWAB40hs9OUQpfGBH9bohjyO8abXw0zyfyKQZLU78fvvKA3
RXneTOiT/9eHLb5ewmXClty/7l1octATBtTI89+rF3mGxDHgTdZnLD+52daR
gXqyfs4BWB1TZmAGeb/m5kiz/ffpcCDvz87xeHQ3go5EUp87xQGZcQI6ukn9
rHbGfVOdRUcFqe/wUadWRw4df5L6b5qX/ZvrAjropD+lc+MvNq2hT/X1e/8s
OrdvvJNJRxXpL0P9xXu+JANypP/xbevfuNsw8JHoQzfFgbbuBAMXiH4GnPnJ
s3oYaCH64pnJPPG3YWKM6E+c1C+E6FOnTP38h8VMMIl+X316d9KvigEJou+o
jp2BYcYMaBD9B3ZYff3Nhg4XMh/8vPZ9X6SVcJPMT2rx008uFQoQI/MVfcNJ
7/JKeZSR+XsYVZH68YWcaD67Br/GL3WWxQoyv/TrBkfayqVF823+rOYhV4GG
MjL/jpdWcZJcJUX+oEUFcfUSxNFH/CP58cy1oUe/CXYRf6nrKbi6qntckEb8
J9dbqtRq0RdBIvGn6rO+HVfi/xbYE/8qrJc3KJIdFvxE/E0i+Y8tfUcHBT/8
zylB40Hf3FeCSuKPXk8/NIXTegRxxD/tMt/sz/LpEWgQf1X48Jb7B69f8MN/
b69RMOL0vxX88OfV7Y+cbXuGBQ7Evxd6USmbUj4LFIi/212g3r32/49A7Ot3
//f+xWLWFfuvgh/5ECc1Mn4oRUzkL13POdmHDkngAcmX7kRZ880BUmgk+WPu
t86ycbk0Ykk+Ndiuy21QkxXl12CWdFXxgBwUSb5d/FBn15Mz1T+Sf0+LaEZK
KxVBJ/l449EewdBbJSSS/OxJXVpeaMGAD8nXBS27PLNGGRAn+StB9OdK8vmv
cntrp3EGNpD8vrIKnSP2DBiQfM+ekFl8zJgOO5L/4qNCTn6LIhIJH0R2B5zr
jFRAP+EHk54MO21debgSvlAdWJ0xPCSHJsIfqo9bc8RrZEV8sil42ONQoQw6
Cb/IEf0ZEb6ZmX0nestLGioI/1jYL6cMTGkiPnp5crJmz3UpET+diw6stPWX
ggvhq/7KcNUv9lI4R/jr8tGhRgkPKRGfaXX61UqkS+EU4bfBz63Bn6VpIr6z
XK8mV5hMQzjhv4vB0uX2QmkRH+YM6NRXycmI+PHPoRMOSj0yIr58+/pcem6d
LE4T/pw1/Hzj1utyCCZ8OmZ2Z8vtgmkIJ/x6OjApJzlNXsS3G3iDml7HFZBC
+Fd7W2rlWLCiiI/NdBvOljgqYSnhZyHxv1DC12/t6ClWXXQwCH9br/jXgzl2
DBGf06i8hDVnGfib8PuS+zYF3C4GzAnfX8uLjHo2g4l6wv9pGg5d6k5M1JH9
gdY134MXw5nwJfuHkTO/V0onTeUQ2V+URYVkzc1hQuYf/Pdf+FBWgg==
     "]]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{2., 0.5944170131176171},
  Method->{},
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{{3.397499942592803*^9, 3.3974999491922927`*^9}, 
   3.5882697221217704`*^9}]
}, {2}]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["A head", "MainSection"],

Cell[CellGroupData[{

Cell["Original plot", "Section",
 CellChangeTimes->{{3.5882695143414793`*^9, 3.588269531921504*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"obj0", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Cos", "[", "x", "]"}], ",", 
       RowBox[{"Sin", "[", "x", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", 
       RowBox[{"2", "Pi"}], ",", 
       RowBox[{"Pi", "/", "200."}]}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"obj1a", "=", 
   RowBox[{"obj0", "/.", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"u_", ",", "v_"}], "}"}], "\[Rule]", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"0.2", 
        RowBox[{"{", 
         RowBox[{"u", ",", "v"}], "}"}]}], "+", 
       RowBox[{"{", 
        RowBox[{"0.5", ",", "0.5"}], "}"}]}], ")"}]}]}]}], ";", 
  RowBox[{"obj1b", "=", 
   RowBox[{"obj0", "/.", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"u_", ",", "v_"}], "}"}], "\[Rule]", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"0.2", 
        RowBox[{"{", 
         RowBox[{"u", ",", "v"}], "}"}]}], "+", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.5"}], ",", "0.5"}], "}"}]}], ")"}]}]}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"obj21", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"2", 
        RowBox[{"(", 
         RowBox[{"x", "-", "0.5"}], ")"}], 
        RowBox[{"(", 
         RowBox[{"x", "+", "0.5"}], ")"}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "0.5"}], ",", "0.5", ",", "0.01"}], "}"}]}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"obj22", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"4", 
        RowBox[{"(", 
         RowBox[{"x", "-", "0.5"}], ")"}], 
        RowBox[{"(", 
         RowBox[{"x", "+", "0.5"}], ")"}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "0.5"}], ",", "0.5", ",", "0.01"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"obj3", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Abs", "[", "x", "]"}], ",", "x"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "0.5"}], ",", "0.5", ",", "0.01"}], "}"}]}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"obj", "=", 
   RowBox[{
    RowBox[{"Join", "[", 
     RowBox[{"obj0", ",", "obj1a", ",", "obj1b", ",", "obj21", ",", "obj22"}],
      "]"}], "/.", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"u_", ",", "v_"}], "}"}], "\[Rule]", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"20", 
        RowBox[{"{", 
         RowBox[{"u", ",", "v"}], "}"}]}], "+", 
       RowBox[{"{", 
        RowBox[{"20.1", ",", "20.1"}], "}"}]}], ")"}]}]}]}], ";"}], "\n", 
 RowBox[{"ListPlot", "[", 
  RowBox[{"obj", ",", 
   RowBox[{"AspectRatio", "\[Rule]", "Automatic"}]}], "]"}]}], "Input",
 CellChangeTimes->{3.3974999592968225`*^9}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {RGBColor[0.24720000000000014`, 0.24, 0.6], PointBox[CompressedData["
1:eJx1nHlczen7/7MXSSW07/uuvbN07gqF7GMPWSJJiogpyTKIkLWsYx2MLYQ2
xMTIvmYdE5JlsqSQLd9T53pdfj6Px88/PU6nc5/7fd/X9Xpe1+uaz8di1KS+
kY3V1NRmNlNTq/956aLyn2YnsW6t8p+BlzgtdaxOUr5+fDsnpVm0l/j4aNiE
tFadhFZwZK+YfC9xZXpep/canUSJ04qP51p6C03L4qyTLToJM5u/R7cf6i2a
XvBb/LxpJ5GrP392rz3e4t7LJt3iGnUSM7qvVUz64i1erxetB34LFok9IpfG
dfcRm7S9O2ysDRbvr0gieq5Xvh7dMyeoOlj0DN+1u8l/PsKx2Ega+ipYbK+4
MHKxxFcMrAvV3F8RLKx8t88pS/MVlSOyViT8GyyOW4/SqLvjK9p+vh+04Xaw
kG3I+/DQzk8MUX6jzZVgMSfWo1fKND+R0uxPW52zweJd2XSj28V+Ykrpo6kj
CoPF+c/7osp1/UWPnAG2OoeCReqiY6FbIvxFqsv+h7Y7g0XdP8uuq+/3F5Lb
43ptWR8scuxXW7b/4i/C7a57zF4WLOauuDOkOEQiag7Uhf09J1gsfBmzTWuV
RBQVHpmQMDVYnKzNcXz7r0Tk9Bs/Nm1csFgx/qDNGCep8FprZ9picLCY3LPn
1chpUlGdlT7zdddgkeaaPfFtkVSEJByeLiTB4o+tqaHfW8rE1w+2rescgsXa
RMnhJb/IxMKV1wLtDYKFUd+p6pkbZeLQ35W2RS2CReYV9z3tK2TiwMs3t86+
DxKfTc1aqLvKxbXIlHj5kyBRrvkmY+xUuXgxqL+NzdUgMS9l9VmXQrn4dY+f
7azCIPHbgDVugxsHCLX0fw+G7QoSUSfDhpWHBIjJw8u0lq0MEoWlHv+dTw8Q
A402pIekBIm9Ofaz1K8FiBxzh7mJUUEi4UJ+SZaeQphPk/cz7xsknNeNm584
UCFiftMfGywNEtn7y5M2r1WIoK4xLo+tgkS7d6OS29xXCPvqzlZ1rYLEKZMX
HmWthYhq+aEkqzpQZOjqLr/tIsSAZrV7Dt8LFNFt/r4xoYcQ84ffHdr7VKAY
NCzy67oYIebamSfE7QwU0zvs0x29WIithh0z2y0JFMeaPrI+vVuIDBfvSYGT
A0WoekXI0b+F+OWPun3vBwSKG7ajMuVPhRiW80rTSxoo4k3vew9oHChmLrsZ
Vmf642cc/R5/h89hHayL78H3Yh/YF/aJfeM58Fx4Tjw3zgHngnPSo3PDOeJc
cc44d9zDFLoX3BPuDfeIe42ne8a9Iw4QF4iTORQ3iCPEFeIMcYc4XENxiThF
3KZRHGdRXCPOEffIA+QF8iSe8gZ5hLxCnp2gvEMeIi+Rp8hb5PFhymvkOfIe
OjCLdAE6UUK6AR2pIl2BzkB3oEPQJehUIekWdAy6Noh0bhvpHnQQugidZN0k
HZ1GugqdnU66Cx0+RroMnYZuQ8eh69D51qT74AC4AE6sJW6AI32GpuS4lHjy
+7ZvLz05O92TPz+hxRZptL0nr6+nFXPF+I4Hf3+S4b6DTxZ48P4Knq2t/svX
g/d//Oml7aefdeTnCxhde708syM/f0XpojS30I58PsvCxl3bWevO56fzdWl2
393uzJFpWtccvIe48/nXrpkh+6WVO9/P6LRG58bPcPvBke0JbrkPXPl+b8a1
XL1RuPL9j+3z8abVDheOj+g/u5z6paULx0+jdjILSZwzx9fIwCPZ/5Q6cfwN
WJ5u1jXAiePzecJX7fl/OHL8dlrZxGhTG0eO73klJWfWzXDg+O+v0Xzxb+X2
nB+GFpG3xvW25/zxTqz63u24HeeXx+mk/n5OdswRyd9Ntf3X2XJ+TrW3HzSg
pS3n76awhZ3WJtmIq5TfEeOld1u+thbPKf+H5/m3yBlpzfqQ+ezino2lVqwf
VblqGVfDrJgjmt/0ovoXW4oBpD+pV95e95Jbsj5peWQOTjxmwfrVQmNjrI2n
BeubmLN5Yki2OetfxJtT6566mrM+dvOTddIebsb6mdpnlWvsSFPWV93HW17U
jDNh/dXXGeObE2/M+qy3s3hHQYqR2EL6vXTRhiWGywxZ333WFOiUbTVg/Q+7
W21ilK/PfHjZ237svZsdmB/lDiMinavbM0dc190ON2vXXlwnjoRFWPU7JWnH
HCn+GNzWfIwecyQ344JT1+VtmSMb7jR63fW0rhhIHDHeqjnR7aMOcyR9hvHM
5u46zJEMz42H7sdoM0cymt06PW1oG9GeOFIWpOM3+mlrcYA4stn3dOSqRE3m
SMTSFuMsdFsxR9zLb18xP6LBHFl4aOWeXRHqIp84svnu5qTLei3EOOJI7SMt
n53Xmol5xBHtVp06hWQ2FXOJIxmyw7NPRzZhjux6vU7iLG8saokjcaaXHDNN
GjFHtEemJrdroSYMiSPZ/X5ZGl/9TQGORPxZbGz93xcFOFKmt3n26PefFAuI
I9maIraXbq0ijjhSVKg+tnnQB0UGcUSsTyrcMa9GAY5kew1b2fXeO0UacWRz
yOs7msFVitnEEbWsuHTdlDeKQ8SRiOb38/dvqFSAI6Jf3lXjxy8UqC+LSt6+
WtjzmQL1p3mLpwXGj8sVb4kjZb1Ko79veKyYTRzZ/Gjcgf6zyhQS4khR6YbU
ubr/KFD/pm7psevs1LsKcEQt92XAAftSxVbiSNG3dTsmO91Q9CCOqKV08ghM
uaqoIY6o7f02KD3oogL1uVrR/tW9HM4pUL+nrrkcoXWwWHGUOJK6JPGW2r1T
ClPiiNqawKLdoScV54gjal0mJYabFyrAEbUDBQ/DpPkKcEStofHIU2QRR/A+
OILP2xBHsD44gu9vRxzB/n4ljmD/+cQRPF8hcQTPryCOqNWpzgccEXR+S4kj
OF9t4gjOHxwpovsBR3B/Y4gjuN/ZxBHc/3XiCOIDHEH8TCCOmFN8NSaOZFP8
jSCOID5/IY4gfl8QR65SfHcmjhRR/KcSR95SfvQjjiB/DIgjRZRfPsQRfco/
cCSV8tOHOJJL+RtHHEF+/04cQf6DI2qPVfoAjmSTfqwkjmSRvrwijviR/mgR
R6BPs4kj0C9t4shb0remxBHon4w4sor0ERxZSvoJjpiSvoIj20l/NYkjJ0if
tYkj50i/wZGepO/giDvpPzjymvjQhThSSfwop5896fcV9Hd+9Dmsk0HrgiPm
9L2FtA9D2lcO7VOf9g2OzKHnAkfC6LnBkVF0LuCInM4N56hF53qHzlmPzj2D
7mE+3Utvuiddujd7uscauldwZB3dOzgyguICHBlJcYM42kxxhTibTHGXTXEo
KC7BET+KW3WKYynFNThiSnHfm/JgMOUFODKf8gYc6YK8ojx7SXmHPER9hzxF
/Yc8Vqe8BkcmU94L0oEY0gXoxF3Sjc2kIwtJV6AzkaQ70KFPpEvQqUToFukY
6mPoHOpn6OAL0kVwJAi6STpaBF0lnT0O3SUdTiFdhk63h26TjseQrkPn0T+A
A8wF4gT6D3CkAlyh93XAnRDV5y+AS5mq9S2IW/j+PHANHCHuYf/MRXo+9F94
fvRn4Aj6N3DYlriM8y0ibuP8A8B1up95xH213qr7q6a6APeLugEcQV2B+EDd
AY6gvwVH5lDdgjomHb4VxedpqnsQv6uoLgJHElA3UfwvoroKHNlJdRc4At8K
HEHdhjoOdd10ys86qvuKKH8rqC7cTPk9n+pGc8r/BVRXqhNHoqnuBEeOU10K
juyjuhUcgW8FjqDuBUfgr6BO1qe6eTPp319UV2eRPq6gunsF6ecEqsutSV/h
/4AjqOsLSZ9R96MPQF8AfYf/BP1HXwE+pFDfUUP8GE59yQDiSH/qWwRxZAX1
NauII/CtwBH0ReAI+iY94gj6KnAEfRc4gr4MHEHf1pk4gr5OkziCvg8cOUJ9
ITgC3wocQV/5jjiCvjOLOIK+FByBbwWOwLdCfZJNfe+vxJHD1BeDI/CtwBH0
1RLiSCj13eAI+vJBxBH07eAI+vofHFH1/eAIfIH+xJHh5BtEE0fgK4Ajs8l3
iCeOwJcARxLIt7hDHIGvsYA4At8D9St8EXAEvgk4At+qHXEEvstK4gh8GXAE
vg04Al/nJHGEfR/iCHyhmcQR+Eao/+EroT+A7wSOwJcaQByBb7XpJx8rkOYh
AaLucecthcrXuxTXXQ44BIjSjUfN0pWvuy18f/wv/wCxrr9bd6ny9ba5dZ1L
uwaI1joX7M+3ChTPjTROPx0cIO54HDjpp3x9Y9Yo16rxAaJJ81YGC1oGis9p
axd8nBEgJjp0EEc0lK+tlp3/mBYght/TC/pLPVDM2D6/5u3aAOFo2sP1YItA
UWXr0+Tx7gChe6FN+1nNA4XPg9KakrwA0SvukKZLs0BxpK/3uZ0lyvVMltkV
NAkUsUdOJf96N0BZjzVJcVDqwQK1zbqBLwKEcYeJDtPVAsVqx9xFn2sDxKIA
584764SYHni2Yoe6QhRc3vj66FchSmdEOwTpK0TOKqPOOz8L4eruP+CynUJY
l30aP71WiKR75+O7+ipEctRvqY4fhIh5cWH2oS4KYaLbaP/xaiHcsjSXqA9Q
iFsrtxl4VAlxfnfG+m6RCnH+66rKBa+FUG/7+9HEBIX4YljZ5+R/Qnxfdu35
0rnK9U7vmXbnuRBO1tYBy1YoxNb3J9Nu1OvbvKbFiVsUIuz154Lsx0L4RI1M
C8lWiDh1XRH3rxBqZ/M2fTuhELZL13XTfSBETpVT+7WXFGJUZHPdzDtCjN0+
r4nBA4VY9fvmy3U3hfj1WY/k5JcKEfVfWn7Xa0I8ePJP5ulahbj+PEdn+iUh
9M8f8p3aRKnDIx7rLCoRImXv96UzWgoRN3jj51lnhPhydHjZRB0hLEx8Ww85
JcRRs/CCPvrKn23+Stc/LsScXkuzrc2U55aoe6IgV4hR/23oU2EjxEOL7GfB
OcrvuxjScY2zEPlV9/scPKD8++cTn3h6Kr83bH6XpnuEmGKp9+2EEuO6sd11
5H8I0VE7Rs9XCFG5I/b70C1CLN15r2h9FyGOxN8aMXKDEOb36tZVhgmRPrfx
3B6ZQrwwzpU59BPixB7tAvMVyue47xzYZ7DyXHfvG3o/XYivt692GjNCCPsy
vfyZC5Q8mTzh6chIIXrWariozxHi8kOT010nCDF35A3NpGQhFgaPTzKKF2JR
kdfh0mk/fuL3+Dt8DutgXXwPvhf7wL6wT+wbz4HnwnPiuXEOOBecE84N54hz
xTnj3HEPuBfcE+4N93iM7hX3jHtHHCAuECeIG8QR4gpxhrhDHCIuEaeIW8Qx
4hpxjrhHHiAvkCfIG+QR8gp5hrxDHiIvkafIW+Qx8hp5jryHDkAXoBPQDegI
dAU6A92BDkGXoFPQLegYdA065026Bx2ELkInoZvQUegq6yzpLnQYugydhm5D
x6Hr0HnoPjgALoAT4AY4kl4d0Wyexo/3X/4pnzrpk5w/n3HA61X4CzmvH9bB
Mb7HXTl//8jDV5sGlch5f5Lda/dI8+S8f0mb7VHS3XJ+voKlewOC1srFMHr+
IM1vbn3S5Hw+dQPCA8bPkPP5pZR9i148Xs7ne3Zm/NHcwXI+/70eK83fdZXz
/WxST9rlJ5Hz/RVWxYQtcZTz/Q7LO6dRZSjn+2/e5PODMa3kHB95g6JOvfgi
4/g513XcwdRKGcdXs/W2fzj+I+P4i07bmvn8kozj09l8VXLBCRnHr/e2kd22
H5D9iO82bd5v2yzj+G96wHVSwXIZ50fd+Wu7/5sj4/zxmjhjlXeCjPMrNbCF
ybpIGeff5aX73QwHyjg/87s/PXo0VMb5O6hX//VxEpkYR/nd7PdLf4U6yzj/
/e55thOmMtaHgDNTJw/UlrF+nK3+tXBZYxnri/uq9tdf1EhZf2LDPy0b+0zK
+jRz7barze9JWb/cRg2MuXBRyvrW83VL/yMnpax/13WHtjxzSMr6qF8+8+CX
HVLWz/cp3t8Gr5Wyvo76dDqvLF3K+luYdDc7I1XK+iybu3x3dIJUOJJ+b+gZ
HjUpSirsSN8zp37c/3u4lPXfZm+E7GtvKfPB/FDJxd86S5kfLnHpBnKJVCwg
jmQGmd21dJMyR55O1jjpay1ljjwsu52UbCBljuTe1zlepSVljhg7u7pkNZWK
58SRkl4Lp8R9ljBHwp/190p6K2GOaA/coJ1XIWGOqOJPwhw51Stp2dUbEubI
jDfXR+85L2GO3O6kdazglIQ5UtJ2n0HjPAlz5F1tsf6sbAnXB31Ta+WeuyTM
kYIpsW3MNkuYI8tGlrQJzpIwRyLDzU78niFhjmjWVK32TpMwR+KjbNs0myNh
jjxvX7dRK0nCHPnFss3hvgkS5siGAfKCaxMlzJGqkMNm6eMkzBH5/vud54yU
MEcCvg1ZljNUIuqII7/7awyxGiBhjixqVfn9cm8Jc+SzVsfbx7pLhCtxRDbK
3uNhFwlzpHKyYkRQkIQ5cknj665yuYQ5cmL1x/5n/CXMEfOj93aVe0uYI1+a
Di4L8pAwRzpYuPiWuUqYI0Nq9coLnSTMkTV9LxvctZcwR7Q2tm3hbSthjpR9
yCq9aiVhjvyaonFgr4WEOTKkrOnhc2YS5oirnUkjG1MJc2TepZuHTxlLmCOG
OhsfbTKSMEfUFt7cUGgoYY6kfTxTbah8DY74Tdz5Ns9AwhxR8UPCHMH74Ag+
/4I4gvXBEXw/OIL9RRBHsH9wBM8HjuD5wRGcDzjShs4PHMH5giM4f3AE97OP
OIL7A0dwvwXEEdw/OIL4AEcQP+AI4gscQfyBI4hPcATxC44gvsGRAIp/cAT5
AY4gf8AR5Bc4gvwDRyZTfoIjyF9wBPkNjiD/wRHoAzjSj/RDThyBvoAj0B9w
BPoEjkC/wBHoGzgC/QNHoI/gCPQTHDlP+gqOmJD+giOsz8SRf0m/wZEK0ndw
BPoPjrgSH8ARC+IHOGJLvwdHsuhzWAfrgiNy+l5wBPvCPkfTvsERPBc4gufG
OeBccE44N5yjO51rEZ1zCp37dLqHSXQvuCfcG+7xb7pX3DPqB3AEcYE4Qdwg
jhBXiDPEHeIQcQmOzKa4RRwjrhHniHvkAfICeaJBeQOO+CCvKM+Qd8hD5CXy
FHmLPEZeSynP8ynvoQPQBejEcNIN6AjqU+jM76Q70CHoEnQKugUdg65B56B7
0MFOpIvQyULSTeiolHQVOisl3YUOo76HTkO3oePLSdeh8+gfwAFwAZwAN8CR
3cQVvN+duIPPbycuYX1wC99/k7iG/YF7zEHiIp4P3MTzg6s4H3AXHD5KXMb5
gts4/4XEdX26nzXEfdzfDKoLcL+3qW7A/aOuQHyg7kD8oC4BR1C3IP5Q1yA+
UfcgftFfc3yjbqL4R12F/EDdhfxBXYb8Qt2G/ENdh/xE3dea8hd14VjKb9SN
yH/UldAH1J3gCPwN6AvqVugP6lroE+pecAR1MTiCurk56R/qaugj6m7oJ+py
cAT+DziCuh76jLof+o2+APqOvgH6j74CfEDfAY7Mo74EHEHfAo7AtwJH4FuB
I+yvEUfQN4F/R6mvAkfQd4Ej6MvAEfRtvYgj6OvAEfR94Aj6QnAEfSM4gr4S
HImnvhMcQV8KjqBvBUfQ14Ij6HsLiCPoi8ER9M3gCPpqcAR9NziCvhwcQd+O
+gt9PTiCvh8cgS8AjsA3aE4cga8AjsB3AEfgS4Aj8C3AEfga4Ah8D3AEvgg4
At8EHIGvkkocaUu+y3fiCHwZcAS+FTgCXwccYd+HOAJfCByBbwSOwFdCfwDf
Cf0DfClw5H/nH16e9f+c+XXt4g6/vfNw5n5lQOK9FHfla/Qz4wccd37l7sz9
jlcn5232bs7MlYgLhXWPnZ25X2ql7zzG2NGZuXJkR7jaLVtn5srU8f3UW1s5
M1d2TffKKzZ1Zq50d1YM+mrgzPMQ2akSjxw9Z+73cqbKNlVqOTNXJNaatTvU
nblfnByes6OskTP3k/afs/U2fnbifrNSkph//50T96OX+8bqbXzpxFzJSH22
89EjJ+ZK1ZZ2jf+848RcSQhtmvvhshP7qr/0Wjr2XLETc8Wxut8hs3wn5krl
hOyQb/udmCuvNQ7cG7nNifvx+aXfbXtmOjFX3PP+e3N6kRNzpcgiVO3UTCfm
SqZftGPXOCfmyvzVBqHho5yYK71T5ki+9HNirmzaZ/fStrMTc6Xbthtdyryd
mCvvUtJC7G2dmCt/RU59+b2dE3NlXsIDr6hmTux3lAZoeo6qcWSu5D/oWvv6
sSNzZdqCok1trjkyVyrOTgo5c8KRuTLc3cBQZ68jc6VbrkvnmixH5srBzPxv
k35zZK7cOtt/1m/xjswVN62Wmj7DHJkrn/YHVc4JdWSu7Nl+NHaipyNzZVNq
v+cfTByZK5JHdjnm6o7MFa35PTwrqxx47mHX+MbFIfcdmCumWjteTSx2YL/L
PylR3W6fA3PFvWTf6gWrHZgrb0YEt10+04G58jb2cNPOkQ7MlW1Tyt5tD3Ng
rqREfZlwyNOB/TrfTdFNJhk6MFeKRXafB2oOzJWLab1rvlTYM1dabj225MpF
e+ZKrKfZmUGH7Jkri/ZN6bI20565oh7gf3pFsj1z5X5K3KsuI+2ZK5X3f519
rLM9+5m1B+ukFQ72zJXh9hce3mxtz1zJ/bvA7bcqO56H1FxeX1t70465cjFU
o4VHrh1zJerJQGeP9XY/5iHpU+RfZtoxV2KuntZdFmHHXBmprrHwTZAdc2Vg
aGiyqY0dc6XObNs1kxZ2zJU2tgET3zy3Za6s7Gfhu/q8LXNFFX+2zJU71zOb
RC6xZa58yFn9ZEWsLXMlPGLy3g29bJkr+6pv9p3nbstceTsn/VJ3HVvmilP/
uHbvq2yYK1qNhM2c6zbMlfvRcz/VHLJhrkzYEZ3Ra6UNc2VC7r4XK6fYsJ//
pEdM8+J+NsyVd6GtXzzytGGuvAsxXf2mrQ1zpaatZ5s31dbMlT++F4c/vmHN
XLnqqzvvwmFr5kpIi2+L9660Zq6s1v4vacEUa+ZK71nbhw7vZ81cUfHDmrmi
/+xUS/W2P96/0T/p5cN3Vvx58xHj7+Vdt+L1s1x/ebzukBV//6mxWzTmrbDi
/SX09RyYONmK9z/VNPTatL5W/HzTTAbPnOdhxfOQ+fqfR2zVteLz+bovN/n6
O0s+v69FX261v2HJ55v+5XFM/GFLPv8hkbaB5Sst+X4CdD70jk+w5Pub/uRu
lmF/S77fgsnL2z72tuT7b9W8Jq+kvSXHx+SDV+fc+GjB8bN85eVRje5acHy1
9OkR1j/fguPvpm5nt2vrLTg+Bwn7T9NmWnD8Rnf5a1XoCAuOb11T05chgRY/
6qrhwx5Os7Lg/Piyelu/280sOH/G3XtnP+G5+Y+5+lwtidcFc86/DSbDRnjt
N+f8TMg8P3HicnPO3+xNf/o8SjDnurFlwPoFyweZc/7H5YxzTJWZsz4kLfqv
fL+5OevH0mfvp5s1M2d9OdF7SOjOG2asP7nxTxXrNpqxPtVELg0yijJj/Spc
OOygi6cZ65tfnlP5zTpT1r8u3WMc9C6Ysj5GZHw88zrTlPXz5pdbNeMiTVlf
Fz5t9WyOpynr77vXkX8FNTZlfX6r2eWPP6+Z8DwkVhK/5fgWE56HhJf+U5Ay
2YT1f1X2nKq3wSbMh3nnbD07tDdhfuQUdRxb89yY+5bwljPHLC40Zv6sumDz
9WGGMfPp17kj3lRFGv/oi2JDas5KjZlvk7NzcyJ0jXkeYq2wuHzqhRHzMXbj
wGuVp4yYnwHh8UHl64yYr3ox67L+TDBi/jZVvJIH9TJiPpcf775sn6MR8zu8
rf+D182NmO/WvXLGqpcbMv/PPmk7+uspQ64PQhs9/nhxsyHXD5WX8+TJqYZc
X8jm2yg0Rxpy/bEqfmZtSpAh1yfuV/8eWGptyPVL8Za1Mj11Q65vtg6tTZRU
GnD90ztNdrHbNYMfc/Uh7yu7HDPg+qnY7FKK+yYDrq9qcmM7aMw34PqrtmaC
/HqsAc9Dkiuso5YMMuD6zd41+7s02IDru+fS4vB/XQ3YV3i9cMu56UYGXB9m
X/iWrKFhwPWjl93bbSs+6nN9WTvg4cB2z/S5/ky9E71txW39H/Vp2zGzW5Xo
c/0aPi/nQWqBPte3UY/6ZVTv1+f6d1A3/3FjtulzfSxL6Gl8M0uffZnU+6OH
BC/T5/q6/JNN4aH5+lx/j53d9qLlLH2uz/M3JDRdNV2f63dtn35Xmk/R5/o+
qlPC/KRYfa7/68z6TnkXrc/9gfXDDlcmROlz/1CWs/H0s7H63F9Eja3/p8/9
B95Hv4LPcz9D66PfwfejH8L+MA/B/tFP4fkwD8HzYx6C88E8BOcHXxDnC98w
ms4f/SDuB/0i7g/zENwv5iG4f8xDEB/oVxE/mIcgvtDvIv7gqyI+0S8jftFP
I74xD/lA8Y9+HPmBfj2B8gf9PPIL/T7yD/OQs5Sf8AuQv/Cl11B+w29A/sOP
gD7Arwgj/cA85BzpC+Yh0B/4IdAnzEOgX5iHNCd9wzykPekffH3oI/wa6Cf8
HHvSV/g9CaS/8IPKoM/kFyWTfmMesob0HX7TcNJ/zEOOEh8wDwE/MA/JIr7A
7wJ/4IfFEZ/gl9UQv+CngW/w29KJf5iHgI+Yh4Cf8PNCia/w+8BfzEOKiM+Y
h3wgfmMeUkh8h99YRPyHH4n6AH5lMtUPmIegvoDfifoDfijqE8xDplD9gnnI
Rqpv4Lc2pvoHfmwU1Ufwa79S/QQ/F/UV/F7UX5iHxFB9Br94MNVv8JNR38Fv
Rv0HP3oF1YeYhyRQ/Qg/W5PqS/jdqD/hh6M+hV+O+hV+OupbzEOWUP0LPx71
Mfx61M+Yhyyg+hp+fyLV35gHTKP6HPOCaVS/Y55wmup7zBtQ/2MeYUn9AeYV
6B8wz0B/gXkH+g/MQ/pSf4L311D/gs+HUn+D9a9R/4Pv30n9EfaH/gn7r6b+
Cs+H/gvP/5j6M5wP+jfMQ2Kov8P5PqD+D+ffhvpDzEPQP+L+qqi/xP3up/6T
5+rUnyI+0L8ifm5Tf4t5yDDqfxF/q6k/RnzqUP+M+EV/jfgeRP035iHoz5Ef
E6l/R/40ov4e+YX+H/kHfwD5+YH8A8xD8shfwDwkgvwH5P9n8iegD6/Iv8A8
5AH5G9AXDfI/oD+LyR/huTr5J5iHwF/BPOQS+S+Yh5whf4b1kfwb6Ocs8ncw
D9lO/g/mIfCHoM9vyT+CfsNfgr7Df4L+m5A/BT7Yk3+FeQj8LcxD4H9hHgJ/
DHyCf4Z5CPtrxDf4b+BfKflz4GM2+XfgZ1fy98DXEeT/YR7yjPxBzEMSyT/E
PAT+IuYh8B/Bf/iTmIcUk3+JeQj8TdQX8D9Rf8AfRX0C/xTzEPirqG/gv2Ie
An8W9RH8W9RP8HdRX8H/Rf0FfxjzEPjHqN/gL6O+m0r+M+Yh78ifRn24nPxr
zEPgb/N/b0P+N+Yh8McxD4F/jnkI/HXUt/DfUf/Cn8c8JIz8e8xD4O9jHgL/
H/MQzAcwD8H8APU75guYh2D+gPof8wn0B5hfoH/AfAP9xf/OP37miZfq51pr
0XOU9iD/HE/RSK3+n43wSwuMeNrbk/oXGzFAy+XQxjceKh/soo3YU3W9x6gM
D1rPln560Hq24p3ybe07HWk9O1Fx1fL+p5SOYlzDenaiTf1ydh1pPTsx8dmX
3VXX3Wkde9XnUt1pPaV+TTvxu6GbO63nIJZmxurOLXKj9RxEzbeb01/YuonL
Des5iDPm2ZOjlrvSeo70OVexvmE9R/HH+mLlX7jQ753E0er6BZxpPSfhob7X
eMgYZ1rPSXS4e/ljvydOfJ5j6e9U+3MWlvVf98pRNCyn5iJCGhZ0pPVcRKly
dx3rffiG9VzEVeVqO9Y70HrYpwOt5yoaOy1of/cynYOam5D922tJZqw93Uf9
/x5W+VLXntZzE2+SFd7D8+3oXt35nBvON8xddNesX9FOtT/lua6tP77zdG+H
3UWf+uXm2qo+V+EuEpRPk6ywpfVwj7a0XkfxqX77xTa0XkcxdIxUuUMbWq+j
sO9Yf4A2tF5HMSK/q3IHNrSeB8eZaj0P0brhga1pPQ8xr+j8ls5HrWk9DxFZ
v3ymNa3nIRqOOxlx7EnPSz5tmKeoP72PyjpJFUeeou3c+gWxnqfQqL9eKdbz
FOPrH9f7R1785PuGefH7qv158edV63kJPVpftZ6XWEjfr1rPm/fXcF9h3uIg
7V+1P28xlp6v4WsPe/Pzq9bz5vNRrefzP+fnw+er2p8Pn79qfz58P6r1fPj+
VOv5/s/9+vL9q/bny/GhWs+X40e1ni/Hl2o9P4pTxJ+feE3xqdqfH8evaj0/
jm/Ven4c/6r1/Dk/VOv5c/6o1vPn/FKt5/9z/lX4c36ijo6i/FXdh7LupvxW
Pa9EeFL+q9aTiFzSh4aPKese6IdqPSnri2p/UtYf1f6krE+q9aQ/61eFlPVN
tZ6M9U+1Pxnro2o9Geunaj3Zz/paIRPVpL+q9eSsz6r9ycWfpN+q9eSs76r1
5Kz/qvXkzIef//ssr/8vTxrur+cPntyqv5+FHsyT+ujZcqYj86SgPnxbdGSe
XCbdAk9W6TdVbtGNeTK6fjvnXFjnms9eHbw4xpl5Mju6MGGlvhPzBFwAT6p2
nu3um2bPPHlef7w97JgnR87VX4gtf051PtbME9XvrZgnDds7ZMk8UW5OuYAF
88T9H2vlFs2ZJ6p4MGOeeDT8NGGemA+pT1gj5klOg14YME/eNuRTB+aJKv7b
M09U56zHPNnauT4hdJknKn3SYZ64K59u59k2zJNdhm7KHbdmnqj+riXzZGH9
cT9rwTypbTjPZsyT3PrlujdhnlxtiO9GzJO4hvXqFODJ2x31CfVZAZ5oN+jr
RwV4UtbwfDUK8KR3g95UKcCTsoZ9VyrAk4iG+3qmAE9Ew/k/UYAnRQ3n+a8C
PEltOJ87CvBEJcQ3FOBJasP+LynAk9T68Gp6VgGepPrWJ0yRAjxRu1IvUAUK
5AX+/x3AE7wPnuDz4InacdX64Ilaour7wRPsDzwpov2DJ2pTVM8HnuD5wROc
D3jy8/n58PmCJzh/8AT3A57g/sCTn+/Xl+8fPEF8gCeIH/AE8QWexP0Uf35i
M8UneIL4BU8Q3+AJ4h88QX6AJ8gf8AT5BZ78lH9KniA/wRM/yl/w5DPlN3ji
QfkPnshIH8AT6Ad4An0BT6A/4An0CTz5Sb+UPIG+gSfQMfAE+gieqJN+gieR
/6++KnmyhvQXPLlCOgCe5JN+gyfQd/AE+g+egA//y5P/AxCVLxg=
     "]]}, {}},
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  Method->{},
  PlotRange->{{0, 40.1}, {0, 40.1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0.802, 0.802}, {0.802, 0.802}}]], "Output",
 CellChangeTimes->{3.397499960047902*^9, 3.588269764171829*^9}]
}, {2}]]
}, Closed]],

Cell[CellGroupData[{

Cell["Lin-log plot", "Section",
 CellChangeTimes->{{3.5882695143414793`*^9, 3.588269531921504*^9}, {
  3.588269562571547*^9, 3.58826956480155*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListLogPlot", "[", 
  RowBox[{"obj", ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.3974999691910496`*^9, 3.397499975039459*^9}, 
   3.588269652761673*^9, {3.588269815551901*^9, 3.588269815761902*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, 
    {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJx1XHk4ldv3Nw/nHEQq85B5TGbH4V2GDKVU0iiNpBIlRSmJ0owGDaTbPJPQ
IIrmNNKgQbmaNKmISol+5157rZ77fZ5f/9znfc496+x377U+0+5ew8mxwyOk
JCQkFstKSPzzz1s3xX8EvnBjSMuUBZIKcMHdsjVJ/HxX6o2DyFABvj8fP3MV
3xeix3Y9TwEFuJNY6vtV0Rc0dpcPD5ygAIK+l7ZWyPvC0XWaYVsWK4DMDdc1
b2V84ZChwpXoXAV48l564GxJXxgr/DHwxmkF+JQLSqM6fcCSN3pryQMF2NHD
qU9euw+8eiERbPlF/DxlSIl3qw+Eby2StlVWBMtL2u4BH33A7MpC7ryFIozq
ChAUNPpAiIduymtfRWiasHVD/N8+YFc333X7BEXo+bPOe/tDcT3Zp9WNCxRh
rPgXTe74gK3C3ANXNipCsuxhU9UrPqCfurqHR74izK19Pm9CuQ8sMmwaOeiK
IgwuGWmqWuQDyTVW5V/qFSHFpqDe9IAP3M1oTXT8rgjCh9OCd+X6gDUv6Kyq
Cg/CzO7aL830gfFeLwrXmPKg7VhX0NVUH0hxHDh3jwcPKstPzIyf5wPXn3jq
jB3Bg5KQ6ZGrpvnAvMS/ywpn8MBxm5me/BgfSJz3fuzBFB60bl27+FOgDzTf
/frTazMP/OOLE0HoA/PH7ducfIQHv76ZKnVZiPfvUL3hhEoerNxY42Wu6QNH
tTpWvbrPg6KrTaaV8j7w6/b3EyrveHDs/ecHV756w6tze9Kf/+JBTUTyHI+X
3jBe8Wbt2B58eDc61MSk2hu4FZFJi4z4sPCIq+mScm/IKD3j4+/MB4m1fx8P
OugNG41X/SgL4ENceINy5kZvMLXoP6luLB9GaW9f65/sDanRD9z2R/OhxMAi
LSHKG0bXJ3voJvPBYL5HiMFwb7g309PQK5MP0cs1In3cvaFk1uBstZ188A6M
tnlh5A236q0HbCjkg3nrAKMuvjf8Ne3iw8pKPkTxvlVtbfUCw0ELP++o5sNI
2fYjxU+8wATGWNo08CE9/PG4oee9YIS3Yd/oz3xIMzOIn33AC5QiIqPDuviw
W6v/ll7rvECr6GBOl0AAWTZOsV5xXrBBN1oYoi2AEfu78r+O9IJnW4IfjLUQ
wPiSjwJHdy+Y5WfU0stFAIsz7wd16XmBw4dOleW+ApitV+c0UsoLNqcOKzw4
TAD3TCdv8XgNMFD/d9DScAEEKDT6n7wKIMOfMV5lpgBOyTw3vnAIoMJ+dWhI
ggAS++SrTVkD8O5V577BaQIYPT7iV040QO4brfKuDAHMULl6b+ZggKymLslp
OeL1qqmtf2gDEBf1V336PgGc131n36AEUHj30YnwQgGof5m8SKWOg9bhi99+
OiOAwoJXSTu3cfC+YfJ9l8sCsM6Zlp4wigO5utn33e4IYO6NM1Vb1TlI0MiH
r48EcLTEfIlCjSfkLQyImfFCAOW19h+ur/WE65JHjm37IICoiqDxr/w9wX76
khFpbQJYPnJzvzFSnrB68LlDZp0CSE3OvmJT7gH3np/+kS6rBK8En7Mi53lA
ipPR2l1KSvBTT19ewdYDTFX09if0UoLNd+yO9G4UwaZwWK2oqwTaw+cpbMkT
gWPgzsRRxkqwNUFYvG6ECEbcqyuYZKUE+3enBPzmieCjuWGUub0SrLItnNVc
6Q7eK52fHXFVgjlDhlRHzHeH4uqlvk2eSrBh+nGTqVbu8OqUyt13vkpwrr3E
svlvIQQcyDm1d6ASrHwfvUd5kxAEvuuNdYcqQdqGR2Mv+QvBcY+OX0ioEhSb
Z/ft3eEGe61M/f3HKkHXs8y7CgVucMls/NAf4UqwZPWpgF0T3cBXQbRy+hQl
qPqZH/VKzQ2Sxij13DpNCVoaErUfXnKF4uhmteUzlSA1xj44eb4rlJ18dsAu
VglE20u/1Zu5wstXhz/nxClBufFkxa5HLrDkkLLcpXlKYOSyN7VhlQvIee2V
OZqoBHsab0xaI3SBA4WfpEKSlGBI2MFD0h+cYVzFuN6li5Xg6x3hxCG5zqB2
2G94/RIlmD84ImP2IGd4tvHn1QtLlSBx0DYutsMJdhSVpEemKcEpjfSlwUec
4L3r/tyqZUqgb3J1Su9xTpDR+VW1abn4faw2fL/Gc4L+z89/uZWuBEo+EcHR
Zxwh5ov+gNgVSvDiYUmy7AxHOD5UX7la/Lztnz+ajtD39rWhzeLnYeOSS2yq
HOhz0+ZbL68kOtD3Z8rvcp9h7kD11ZWj7+g8sqffT9LKP/5yhT2tr+zNttaL
Lva0/rOvb+298KY/vZ/nlPa7r7b0p/dvrF29ql9Af9qfzKBpNQfa7Wj/VH9l
FA4/ZAeybH/nK9dYOI21o/1v37xANIJvR+czZZXktekL+tH5pe6N73f6qS2d
7/3ZvOw8sKXzjxz2/b7RPhvqjxmH/c6P4NlQ/0j2EhkKZ1tTf03yOlH4rNaK
+m/k+rX6gZ5W1J9v43/1SN9vSf3ru1Fae4eKJfX3sqqqyzkLLKj/QxXl1ix/
ZU7zoWUY8WDaUHOaH6eElt8Dz5rRfNlfSAp1tTIDBzZ/wqsyPdxyTGk+55mb
jx7JM6X53RG00ndbkgnN98Tp7o95n4xp/sNL3eRLJhkTPmx5c/NIXq0R4UfL
aYms6iAjuMHwRdCpHhV6qS/hT8qd5ruOHn0Jn5Ttt4xJOGVI+CWvmBdj4mBI
+AapO2f5FxoQ/k38fD7nta0B4eNAV5Fvj3B9ws+UYZtsYybpEb6qvdj1rm2a
LuGvhupUl5I5OoTP6gcu7StL1oZzDL8zVm9fp5WpRfjuvLlMtWG3JuF/0ONW
Xe0zGsQP74eaRz6534f445XFhAjr1t7EL7Y5D8P0e/WGp4x/giYahZwX9iJ+
uvTdp6fBVHXir9NZN6wC1/ckftv+SPJT4AU1CGH8p7NbMKvfd1Xix7ULdBbL
2akSf2Y55BXVRfcgfs2SfXBh/jgV4t8Gb1XXKa/FOMj4eafLhYhN4vdG/p6Y
IT/NUE3M+4zf7V49vGNwQpH4f2XRxiMHJyqACdMHOx/vTLqtLk/6of25svOB
GllYx/RFD76vr/8WGdIfWaLipRcipEmfHPyUI7T2kCL9MlvvluUWXUnSNz0m
pSzqJS9B+qcwZETGnNZODvXRxMOXdIw/dHConxrUdy6d8vUH95npK3GLxASr
tXMJTH9VlitEynl/4+KZPoPcpPJ9y9o41G+FjuM3Bj75wi1l+m6n/6dHAp8W
DvWfxNbZa9WSP3OoDyfK1Z0p2N7EoX6EkNJqnRfvONSXlVXNH1cOecOh/jSQ
f12m8+IVp8f0aUNw7Yzf219wqF93Pp92LHRJA4f6trJ2e0qa2jMO9W/KrsEH
r8x7zKE+ljj93vOYeS2H+rmyM2dfnNU9bjzT1xLJvvZeydUc6m+Jo52j13rf
5FCfS1QWZAdbXONQv6dsvj1R+fgl7iDT9ynrEh5IPDnPHWH6X2KzV+WhgAqu
D/MHEn6xCWEG5dxM5h8kjpXVB7mf4dBfSOT8QyCl3HXmP/Bz54KFyc7P5en7
xxZap8yplKf6JlnjQ83/kqff/1g38/HoxfK0vpAIpVqJcfK0/luBW6X0XOXp
/fR1vaQLxH2J77+xZ3BUQbMcSHR178+ToQPydW7KAbD9azsk4fptvxztb5B2
1SjXpXK0/0tNRvo2jBU/s/N54HBZ54ODHJ2fgt7SxlCBHJ1v0SXNtbqvZOn8
TYp5Tz3LZKk/puXGrji5Xpb6R2r6PoOl02TBgPXXo7W1mrkiWShk/Tdafs5F
CVVZ6s9vm5cNLHglQ/3bOVj+1F+nZKCa9bdrfte76lUyUMn6/5fzmlyPcTLQ
zOZjL9wf/dxKhuZHZXPN0lMd0lDJ5it9ULNf2XVp0GDz5/Usc/+brdKQwuZz
feKIGS6R0nCazS9IDDLeZy9N872LX2dl1SVF83/9UmrOxWtSIPGiGx92mowO
iNogBYUMPzL2DLymNk4KtjJ8yX2mP7W8rxS4MvyJH2miEf5O8g8+Hc7KaC6Q
JPzaJLtCK3quJDQzfOtouFh0zVmS8C/OsfZDZ7sEbGL4uGvi+xapMxKQwfCz
VLZ36u0FEqDH8FWtRvPlSFcJ2Mvw1+tbnzKjD7+5cwyfd00vjXw3+Td3jeH3
IocAm7cPu7ghDN/tyoZwCgO7ODuG//ztksvsSju5T4wf3lceWOpn0sk1Mf54
ufuNj23GL24I45eUHZXc9dYOzpXxz/pZzY4doR1cFuOnDdKLBTtLfnIGjL+M
7NRKslV+clqM3/wmP/p6MvIHp8H4L3Z5eNDT0nYulfHjVCXjojqFdi6I8eej
Q17RK0O+c5MZv57I3nGnaNs3zoPx7+jbShLmdV85ZcbPe5K3HTze5yunzvg7
brzV0V7BbVw64/f0Rftv9Vrayqkx/hf9mj4kNv8L18b0wY5Q9dQn91q4HKYf
VC+KRvLamrkJTF8Mn1Ny84hSMzeJ6Q+3iwtuXYdP3E6mT8ZqdnYdHdXExTH9
4j/+qZnNhPccMH1jkLmoKWrkW86V6R+zhs4HM0SNnDvTRx0pMWHmPcQ4zPRT
btiwc0uqn3NjmL7i4qoCZrbXc+lMf9n122P62ugJ58f0WdF89SkpBg+490y/
vZQ7Xq5Ze4dDfbfybdqBvhKXOdR/6d8mV/eJLeYUmD609js9RnJCVkUc04+h
m5W/yOwvr4hm+vLIYe2YCLMbFY+Z/syZ8OzYlsD7FSuZPm0rjU1PGVpXEcH0
q9WO36+bRj6v+MH07b4b75ISHV5XJDD96yqbvtQf3lWgPpYPfNjDfMnHCtTP
AVcTMqe2N1e8Y/p60cHA3s2BrRXeTH/LFg/8+O7414pKps8vqf11eKxVe8VZ
pt/DpwSdNs//WZHM9L3f9e1DTMw7K3oz/d+YV+RZv+x3RTTzBxk/D2oq1UhU
on/wSl+zuOWwZCX6izGTPp++4iZVif7j24gTZcdnSlU2Mn+Cn6sy/9K+vPv7
N5i/CWL1DZn/wd8vZf4I17eQ+SdcfwLzV/h+6L/w/dGf+bH9Qf82n+2fKfN3
uL+VzP/h/nsyf4jns4z5x7a87vNrZf4Sz/c685/e7PxTmD/F/kD/6pLd3T/o
b7W9u/srlfnfbV+7+28t88dfWX9eYP4Z+3cT89cNrL/jmf8ex/p/NfPn09h8
HGD+PZ/Nzzbm7wVLu+dLi/l/FzZ/mA/0Y/PZxfKDKWx+G1m+MI/NdzrLH4az
+V/B8olwhg8zWH6hw/DjLMs3DjF8yWf5xwCGP/EsH8li+IT5SRLDL8xXDjB8
02D5yySGfxdZPlPO8HEDy2/qGX7OZPnOTIavmP/MY/iL+dBghs+YH1kw/MZ8
CfEd8yfEf8ynkB+SWX71ifFHOMu3vjJ+CWX5lxrjnw0sH3Nk/IT5WRrjL8zX
9jN+w/zNj/Ef5nM9GT9ifof8ifnebsavmP8lMP7FfPA342fMDzcz/j7B8sUx
jN8xf5zH+B/zyR1MH2B+mcX0A+abu5i+wPwT9Qfmo6hPCll+6sP0SzHLV7OZ
vlnF8lcfpn8wn13B9FEAy29VmX7CfHc/01eY/3Yy/YX5MOkzlh93Mf2G+TLq
u3CWP49j+g/z6SdMHy5l+bUM04+Yb09n+jKe5d9mTH9iPl7M9Cnm56hfMV+v
ZfoW83fUv6NZPh/M9DHm99+YfsZ8v47pa8z/s5n+xvsBA6bP8f7gNtPveL8w
gul7vH9A/Y/3E+gP8P4C/QPeb7gyf4H3HzeZ/+h+9gKzS4nHE0R86HoxYFe5
+PlYvNTHcuBDbd5J/bXi5yc3xuT99uVDTmi/Qe7i557fD6VwgXxQUr1hfp3v
BQNji0MXDebDI/tjFa7iZ+nlt+tODOODtBxfcwXPC3bc+nj3QygfZln0gROK
XhAVt7NDV+yXw5+oe19U8IJek9X7BIXzwVJvsO1xeS8YHKHxZt5kPqjdUOm9
RM4L7vbWs82N5EPw7CKBjawXfKtwP1Y2Q1xPN9OsTNoLujRtbR/G8EFZUTrZ
QowHfb6Oif0YxwedPrMsEiXE83z5lkvXfD6s9rQecKAL4GAfn8GKSXwou533
6eQv8fMH/fnKS/hQskl7wIGfAP1/JCxQSuODccOP6YntAHpPlfTlVvBhUdTy
FMtvAIctR/RrX80HXTXJgrOtANfnxcx9mcGHBxv3aNq3AExxtD9xdQMfrv/a
1LTiE4B0jlnF3s186NBqGlbxAaBszOqwhTnieheOzH/0FqAmdOCYgB182P21
YtU9Mb41igSpyrv5EPTpZ1nhCwCHXpZ7b+7jw2wFNZj9N0D6yeJ1qYf4YJqR
M1DtKcBeh1glu3w+TI6QU9vyCGCfw+Mv9wv5sOmvnbe77gN8djdRnlPCh6gP
q84E1gAs+OBhJ3OaD3fflqgm3gJ4YHbZMqOMD+UTXqiurgI4KVKvVq4Q/96Y
vJ9LLgMkfnJvXX6BD4a6LkpjzwMEpchEtV7mw0mVi2s1zorXU/BRalQVH2wT
1M6VnQYoybPdVniTD/WGhW98SgB+nzshIVHNhzMtdcOOHwOYeti8x4B7fNAI
SveTOQIw/PPLHUtqxecdM0jVYz+A8dOfy4495kPTvpjf43YBaHi45N5/yocT
cx5MmLQdwLSnZtmnv/mwNk0qbfAWgIE+tec6X/Dh3JEeZQYbAPI9xy6VbOSD
1aH8cXVrQbxBA+p/vOWDeYP6mcUrAHSefjze+IEPQ9oVbRRSATzywx5f/cSH
tEn3BEmLAL7fCrbPaxH3S6Vjce18gI2xrrmRbXxY6TM9SXsOQNZlYavRdz7c
rte9EDgT4NlKG60HP8TnFTfz9aQIgKUJ25oX/OLDr4fVvlMnAKjXnB6l9lu8
v3XWXsPGiPujen7/HZICeKdzWmQRIl5e39iJujICMHjSldMUJLaxYR+vZsoJ
IOPAk8pcP4DOWU2DvioIoH+PaHUX8evE9exdM5gvgLl91TvPuQFk+F8QbVMS
QOrbWS8dHABkir/FP1QRwNOb/v03W4vPWydyooKaACZ/2D6s0QTA6lFso5W6
+N8Pzig01ge456L/2au3AE7ph5UN0wB4/9NyykANAXScDG+YpQpwtqLNaoCW
AJKP/s5YwBP//ryVDvY6AtC4XuQyTxpgyJ3cqap64t97+WzLhXYOlpWuO/xC
XwAL3wxetEhsQ87ciWjZZyiAyL3LpDWfij9/cM9knJEASlqsem+7xYFG/35O
UiYCkLhSuqPzHAcTouYr5ZoKwDlq0ir/Qg4O7hySZ2IuALtlMpcSdnFgYih9
f5eFAKyMjT0zN3Aw89GyXSpWAvidWfM2I42Dnq+nf4uxFoBCz79OJsRzcMHw
48UKGwFcP5SVOzCCg0MlHzsk+wmg31bBOoWRHOTv/pTlZCeA6Hc3lhb5cRAb
2Xv+2P4CSHpyfU6gCwdOa2z/mm0vAFs7t5G3zTiQCNojkegggNoFMyy8NTi4
6JyWOdtRAIleVxr3KXAguJ/sNdZJANmWp1f/bPcEhZC3AidnAayQ2Knm9c4T
rITFbyVcBBBz4vyihY89YY5O/M2z4ucTw52uHajyhNiQiYUzXQXg9LS2rarU
E/qdG7yO5yaAFlNn6ReHPOH3sqKwHPHzgr3pbc3bPMHtxV4NbaEAfhplXv++
yhP0m5+Urf3nedW2Fd8XeMK9pMNen8XP95ZMtm2Z7gkLnins93YXwFttxQuv
x3jClgerX6eLn/ekdQ2oDfSE47FTO8vEzwNXfj170c0TnN9HfXgufj7I3bU5
ZuEJZ/bwCtrFz//GWZqekKU0zldCJIC1rRNllyn++fz9YY95sT886PtZxxw/
hr3zoPpBfSznDH7sQb8/qbhaxrvKg9YnPLTtiHupB61fqLI3yv2QB71fWcZR
T+9tHvT+3oLOfsNWedD+dI0M85y+wIP2L7mhc8aa6R60v1cWzzl5eowH7f9R
+40GXwI96Hx2KCQddBV60PmVt0QHrbP0oPMdX3pNsUXLg85fTvrn06l8D+qP
0tFR5991iKh/rgVOO57SJKL+ks013W/5TET9N2PV7i1vb4moP60NNi0qOyei
/nXaM2ng3mOiP/2tovJ1z04R9b/MMdvYsvUimo+u6zWHPqSKaH4cZy3Y5BQv
ovlK8ZLXzYkQ0fzdzijopzVKRPN5ZtDrkycDRDS/o4NDc2cLRTTfsn/duhhg
LaL5d33i0Av0RIQPnpfnxY3qISL8uNK6sDxTSkT4Yrep9913be6EPzFhPzIj
37gTPi3etqda7ok74Ve/yaOib9x0J3wb8onndqLCnfDvrto43uUid8JHjVeL
j3fscyf8/Jrs1Dlmmzvh6+QfF0ob1roT/pYnPS7MSnEnfBalrT80I96d8Hv7
kLCo2Ch3wvct874X/BXmTvhvcnSi6NdQd+IHg6Kqm8sHuBN/2Mxeq+khdCd+
2eKt/7hvP3fin9dxihUuxu7ET/UND5MWaboTf52uUz3bouxO/KZjbWuzVcYd
Ahn/VQWvnDv7p5D4MexNqGNSs5D4s8eo7T1KG4XEr939JyT+PR+clFl9T0j8
vODz3SlHrguJvx/6Kp8qOy8kfq/qma8pVSok/v/SfkljSaGQ9MHwlHYPh4NC
0g9lc2NU9HcKSV9kTqpS8dkqJP0REaZ/7q8sIekTQVtLttMqIemXOVGmKrKp
QtI3b3t35SknCUn/jOirUjw8Xkj6aPtIj7KaWULSTy3+xfprpwlJX3kU1A1I
nSQk/eXZOTazZJwQzjB99peb4lijkULSb6v5Tb9vDxWSvvup3P/hqUFCqGL6
TzTZ3L7eT0j6sCmOm+DtLST9eEvx18FXHkLSl+eyv4dedhOS/jQ4+eTgKych
6dMOmTEN3vZC0q99DG1cGmyFpG/Htqu/KrcSkv7dPPy25mNzIelj5bye8k6m
QtLPDd+21lYbCUlfL0xWPHbUUEj6e2yDTPE1fSHpc1szXUkTPSHp92W37hef
1xGSvtdSzXu+Q1tI+l9i5f3t5VpC8gervl9u1RI/o39wnXWguVRTSP6imz+E
5D/w8x/WxjZ2rn++v/tbx+5Ghz/1s4ctG5nb78/vxw28sWaI1Z/1HciNWCFh
9mf9ZuNnZhzv++f9MtfHN07S+/P+CVnZD1S1/uxP2OBxu8/34oMK27/ahVc3
zlH9s7/HVwW1GCr92f/taVVS9xT+nI/2+eU9lsv8Ob/YhdZTXCX+nG+wwzWf
jx08Ov++kuc69nznUX/sO3Ltflgrj/qn7kCrhsZnHvWX9cdstdr3POq/I3uD
BFsaedSfmUVfh457waP+rdc8bGVUz6P+jhOefvPpsfiZ9f/8d3nV5x7waD42
TpWy31jDo/lRMigcFX2LR/NlNDtj3cAqHs2fgnKuvu1lHsSx+fyQ+HJMn/M8
mt9kh+SVcmd5NN/r6tO+d5zm0fx79Vdo/V7CI3zIv6N29WchD0IYfkyV2Foh
k88jfHnvNce89yEe4c+FytDB/fbxCJ+0jt1dMHQXj/BLfonPjwV5PMK3YInr
vY9u4xH+tU72032TzSN8zNYPHmW1gUf42XbFXGVBBg+uM3x9Xno2o3o1D3QZ
/n68nq1vv4JH+Dzmxi3ejjQe/M3wu0RGZZt6Cg8aGb5f3JmutnkRj/DfW/LZ
ub5iYW3L+MFX0eb1mXk8MGT8cX9Mx43wOB6YMn45mWZTqhzLg62MfwzsJL9c
n8kjfvLzli7bGMUDD8ZfV1vlRk+P4BG/NX7UEQRN5sEUxn+HJ63WFE3gET/K
GVaedwvjEX/qlw0bMGAMj/j1bV7Ty/CRPOLfkVzw0/QQHtgxfh43FKLPDuVB
MuNv3q/l1VJDeBDL+L2X0zPfUYN4xP8m6i3SZQE88Tq79YFn4HB/Wz8e6YeC
3TH+x314pC9qj6x09/Xikf7wiTw25o0nj/TJNP2TtTkiHumXmAjrxnAhj/RN
uu7IMw6uPFjK9E/bWaNlms480kexBZZzezjySD99rc47oWHPI321zskv0d6O
B4pMf1l1JDWOt+WBM9NnihP1LXOteaTfdkpvmPnekkf6bn5YYc0gCx7pv/dT
biytMOORPpRbuPuvAabi9TP9ODFt/OB6Yx7pSzWfFUdWGfEgnOnP9V/kH/v3
5ZE+HaNp0KphKJ5/pl/V90/p1anPg3ymb38PPDGmTY9H+ldD3/tRly6P9PGO
5YsP6IifUT+PG6/7dLAOD3yZvm5L7L1qg7b495j+3jppW8V7LR64M33eN0Il
c+Q/z0y/VzT3ka3V5JG+l3ZLt5kufkb9P9BugloP8fN65g+0bz4su67BI/9g
kRNit038jP5i4b4p8UniZ/Qf6kcvr54jfj7E/Al+Poj5F/z+XuZvsD76H/z9
+8wf4frQP+H60V/h+6H/wvdHf4b7g/4N9+8k83e4v+j/cP9XMn+I57OZ+Uc8
vwXMX+L5PmT+E88f/Sn2B/pX7B/0t9hftsz/Yv+hP8b+RP+M/Yv+mvqb+W/s
f/TnOB/o33F+0N/jfKH/x/nDfADnE/MDnF/MF3C+MX/A+cd8AvEB8wvED8w3
EF8w/0D8wXwE8QnzE8QvzFfCGL5h/oL4h/kM4iPmN4ifmO8gvmL+g/iL+RDi
M+ZHiN+YLyG+Y/6E+L+C5VPID5hfIX8sY/kW8gvmX8g/mI8hP2F+doLxF+Zr
yG+YvyH/nWT5HPIj5nfIn5jvIb9i/of8i/kg8jPmh8jfmC8iv2P+iPyP+STq
gzksv4xg+gHzTdQXmH+i/pjG8lHUJ5ifon7BfBX1Deavikz/YD6L+gjzW9RP
mO+ivsL8F/UX5sOozzA/Rv2G+TLqO8yfUf9hPo36EPNr1I+Yb6O+xPwb9Sfm
40OZPsX8fDbTr5ivo77F/B31L+bzqI97svwe9TPm++OZvsb8P5Hpb7wfQH2O
9weo3/F+4SDT93j/gPof7yfQH+D9BfoHvN9Af/G/9x+ODv/8sabn9jV9ln+x
tya/MjLhSbKd+Bn9zPSRZ60/2lmT33H0td5j3s+a/NDEG+VdL6ytyS/xNayn
6lhak586sS9M4oGpNfmtedNDFJSMrMmPHUx0LL2kZ01+bZA1N/qXpjX5OdH5
KvsSdWvyeyXzRDualK3JDwqNBe37FKzJL8aFlexrkLQmP2n+s1A976cV+c0m
YcKZui9W5EdvD49Rz3tvRX41K+XNgefPrcjPtuzqJXX4kRX53fgAmdPfblvR
fciI4IzIa5esyC9btoYU6Z+xIj/dNLPQv7PAiu5DPikeezJpjxX58fTa36ZD
tliRX7cr/fD5wmor8vOVhgES5xdbkd/f4jrDMnC2FeUB6dmaAWGTrSgvGJqc
KuwIsaI8YUe+2XvTAVaUNwzcc8+vwcmK8ogvyav8zU2tKK+4GDHv/e9eVpRn
LIt/6hgla0V5R62nwGFymyXlIWeeBrZ/emFJecn8FZU7VGosKU9pvBLrf/mc
JeUt4XaaWqpHLSmPGXjaZkDbVkvKa45vOdMZu9yS8pwHV0KXLJ9jSXlPP2We
wHm8Jd2H/CjwbkoNsKS86MjekzGzHCwpT9qREvL2m64l5U3C52YlBgqWlEcp
pw92aGqxoLzKTOrezbF1FpRn6Snv+zjrkgXlXW5JCQpm+RaUh9lV5WevyLag
vOzzBJ+e6xdbUJ7WHFMsMyDCgvK2PXMbvuwNsqA8LjmqY2aRgwXldS47ZkjH
allQnncJCoc9lbCgvO/mqqFtHY3mlAfydp9ad+emOeWFMQ76l0cXmVOeuDp/
rt+2LeaUNyp4ul3YsMic8si65Nkf/SaZU17ZVLdw6akB5pRnth/vcm+0MKe8
M9z8Rv19JXPKQ09fLeu3vMWM8tK227nt7ffNKE+9GaAob3/ajPLWqJejrO1z
zf7ch6yd69Gx2Izy2ujqC2qZE80oz52koLjys7cZ5b2jAgIW6ZmYUR7cpb+n
RlfejPJiFVPPWZ/fmlKevDHE0CX7uinlzd39Z0p59KO7W6Qj1plSXv2tJPvl
hhhTyrPDJsYd3R5sSnl3fuv94cvsTCkPb05de2uQqinl5Vahs3t9bTGhPF1Z
EkxS75pQ3l43I+1HW5EJ5fEz983ICt5oQnn9zNP57zbONaE8/+XgaLlLISaU
938JUHr33MGE7gO++Otlf+5pQvcFbT0dVD63GtN9wv7fl8Je3DOm+4ZqF7Vl
N4qN6T7CX75zzdGNxnRfkd3jQ9KKucZ0nzF0yd5x4SHGdN/RzR/GdB+i8eY8
T6Hnn8/vhSa9r/9iRN83mDD9SeldI6q/1XbEi5wiI/r985G7FJdtMKL1xQ93
GJUQZ0Trn6cXUDN/uBG933zdMYuX2RvR+6dr/JywW82I9udX/ulFd7/0pf37
VdnxoPe9vrS/azteRM8p7kv7PzbC1OvVxr50Pp6q34bOie9L55f48vFWrdC+
dL5lcet7vnDqS+fPl2srrerdl/oj7nh16r3vhtQ/6zfeniz52JD6i+c8OCj0
jCH13321Af1qcg2pP0eD+Y/5iw2pf2f4XdwUMMGQ+ltNT++9v5ch9b9C+Pj6
+UaGNB8d2XtCHsoa0vxMe/LFfOZbA5oviTRloeMNA5q/7brjJzgWGNB8xm+5
PmvWegOa38Idh52fxxvQfPM8c1esH21A8z+7ZJplisiA8CFp9YdXBQYGhB8Z
b74m6ssaEL6cGzo24MA9fcKf03Neczl5+oRPbREZ3tpR+oRf5SvHH7dx0Cd8
cy21enW/S4/wz29QtIX6DT3Cx4lZ3y9/2qJH+Hm/40HbtAg9wteVr/lvUh30
CH+/fIq46C2lR/jcLPDbf7hGl/A7Rjhn19lduoTvYbXPypLjdAn/NxWmtjT7
6BI/LLtm6tCnty7xR0ll/8i2tzrEL2G8xVPXlOsQ/2y6YfKrPkuH+Glh2oTP
LRE6xF/1Mf5tV9x1iN/iCk+XTFTTofsQY87w9vl32sSPMXmjaprOaxN/eobN
8X6Vo038qh6ds/VwvDbxrwz30cM7WJv4+dXZQZn5ltrE32E93Z5+ktMmfjcO
LolUeKVF/H/lZc8pv85rkT4IkHzx/eZOLdIPTbdLPRalaJG+EKWbcIJJWqQ/
Ns1Z3J7srUX6xK766qhaYy3SL5d2bROpK2iRvtk9rj1B2KRJ+mfoKtHNgTWa
pI9mj/3a5HdKk/TTJf1byXY7NElftZ2O6aOYrkn6q71tpsfdGE26D1nUaBy1
brQm6Tdz28Lf7j6apO/eul8K+9tWk+5DPq3cdS1RW5P0YeGNzkWKipqkHx3N
mvds+K5B+rJ9ZP2oXm80SH+mPJqxZ8NDjT/6tOfUpfwqDdKvYctKnqaUaZC+
jXoektVaoEH6d/RAt2lT92iQPhbFD9G5v1WD9HNK3ZSxPpkapK9f/TApL0rX
IP0dubTnzb5LNEifn9keL7MpUYP0ew/nkDtyczVI30f5xqcnxWiQ/u/SHz73
ywwN8gfG9X3uzIzSIP/QUJJ34U2kBvmLqMh//miQ/8DP0a/g98nPsProd/D3
0Q/h+vA+BNePfgrfD/0Wvj/eh+D+4H0I7h/6Odxf9Hsz2P6jH8TzQb+I54f3
IXi+eB+C549+FPsD/Sr2D/pZ7C/0u9h/6IexP9EvY/+in8b+Rr/9jfU/+nGc
D/Tr8Wx+0M/jfKHfx/nD+5ArbD4xL8D5xTxhM5tvzBtw/jGPQHzAvCKI4Qfe
h1xj+IJ5B+IP5iGIT5iXIH5hniLH8A3zlt4M/zCPQXzEvAbxE/Mcc4avmPfE
M/zFPKiB4TPmRYsYfuN9yGaG75g3hTP8xzzqJOMHzKuQPzDP2sr4BfMu5B/M
w2YzfsK8rI3xF+ZpyG+Yt61l/Id5HPIj5nXIn5jnBTB+xbwP+RfzwErGz3gf
8o3xN+aJ5YzfMW+sZPyPeSTqA8wrFzH9gHkm6gvMO1F/YB6K+gTz0rlMv2Ce
msf0DeatUkz/YB4bxfQR5rW/mH7CPBf1Fea9qL8wD45m+gzz4jFMv2GejPoO
82bUf5hHb2D6EPPqeKYfMc8WMH2JeTfqT8zDUZ9iXo76FfN01LeYt69j+hfz
eNTHmNejfsY8fwXT15j3JzD9jfcB85k+x/uC+Uy/433CBabv8b4B9T/eR/Rl
/gDvK9A/4H0G+gu870D/gfchw5k/wc83M/+C3w9g/gbr1zD/g79/gPkjXB/6
J1x/K/NX+H7ov/D9XzB/hvuD/g33L5r5O9zfp8z/4f6rMH+I54P+Ec+vhflL
PN8C5j/x/Mczf4r9gf4V++ch87fYX+OZ/8X+y2b+GPtTlfln7F/019jfo5n/
xv5Hf47zMYv5d5wfSebvcb7Q/+P8YT6A8/mN5Qc4v6UsX8D5nsjyB5z/nyyf
QHz4yPILxI+nLN9AfFFk+QfizxqWjyA+YX6C+IX5Ct6H3GL5C+LfZZbPED6y
/AbxcwnLdxBf97L8B/EX8yHE52aWHyF+Y76E+I75E+K/LsunkB/MWX6F/IH5
FvIL5l/IP5iPIT9hfob3IZivIb9h/ob8V8vyOeTHQpbfIX8GsnwP+XUCy/+Q
f9+wfBD5OYHlh8jfmC8iv2P+iPyP+STqg0ssv8T7EMw3UV9g/on6A/NR1CeY
n6J+wXwV9Q3mr3gfgvks6iPMb1E/Yb6L+grzX9RfmA+jPsP8GPUb5suo7+ax
/Bn13xeWT6M+XM/ya9SPmG/T37dh+TfqT8zH8T4E83O8D8F8HfUt5u+ofzGf
R30cxPJ71M+Y7+N9COb/eB+C9wOoz/H+APU73i/gfQjeP6D+x/sJ9Ad4f4H+
Ae830F/87/0H8gn+/7L+vW/fZgznJ72UK30kD5IS//wxAYdHmvyuY/LMv5gA
lyqQHbyC/fcmN//5vP3W4XB5Vs8UXn4JSddxlmf1TGFBg/XWA0pYzwweOS8o
HfZaDqb9W88MPqoO+GRwVo7VM4OslnOrtbPlWD0x3lj2cQqYJcfqmcPwRxZv
8gfIsXoWYJz87nOIHtazgK+nlrR5fZeF2//Ws4CqAo2WJdWyrJ4l6AcMdut9
WBZy/61nCaNi9ROVlsmyelZwcEjSsZhwWVbPCniv+7n4uGE9K3hjNKxsk7os
7afx0a9us5pl2PqsQTrSW+LhTRn4t5yEDURuOrn/6SEZVs8GyoqOCFatkGH1
bCAxpnP4mwgZVs8W8qbfeSA1AOvZQpp9lMkbYxm2vn7wTFq76y9ZGXYe/eDg
HBHn9kaa1esHxqaGz89VSbO/P2EHfkKL96J86e79DbKDq0vrJ1esl+5eX4od
NAXaBQ5PkO7+/WI74BbXpUqGS3evt9EO9K+r3Xk0AOv1hyCXJade2mK9/rBo
yskUG02s11/MrwFa52Wwnvg5f43yoRYpVq8/aK0ZFvf5bylWzx6cDY7fz7sj
xerZg8trzX5nK6VYPXvYFdPwILRYitWzhydxC6bHHsB69rC6ZfO1HnlYzwEi
hWOlYRPWc4DfwhvBUuukuvcvxQFKvp//PW4F1nMAl1kzEoemYT0HGDB1udWL
FKznCEH6qRvUUrCeI33evT5H+n53PUeq313PESTcu3+/u54Tre/f8wpyovV3
r88J6tj7/dsOxU70/t31nGh/uus5/8/+OdP+dq/Pmfa/e33OdD7d9Zzp/Lrr
ufzP+brQ+Xevz4X6o7ueC/VPdz0X6q/ueq7g/5/+c6X+7F6fK/Vvdz1X6u/u
eq7U/9313Gg+uuu50fx013Oj+equ5/bf+Wt0o/nEv59qwua3+zyENN/d7ysE
Ppv/7npCOMTw4d/xaxQSfnTXcyd86V6fO+FP9/rcCZ+667n/F78a3QnfuuuJ
CP+61ycifOyuJyL87K4n+i++NooIf7vreRA+d6/Pg/C7u54H4Xt3PQ/C/+56
HsQP+PezkD/+Pz6pfDOxzvjYHz4prx7u13fcHz6JzjS/P0H2D5/o++7YdD1f
jvjkeajnhCEj5IhPhvBsTj9olyU+SUv+cjwwV5b45NCKuhvr3WWJT3TWL7i5
8bEM8clSjZNbHObJEJ/UBz38PVxZhvjE/NaprJq90sQn2luHj1jrKk188qNi
e+b4KiniE6/X8+frjJIiPjnZ5fdg+3NJ4hND5+UFBVGSxCcBBf2v6zZJEJ8s
tDjveHymBPHJrF56oaG3f3PIJ7Fmax+tKe/ikE/mvn/2OXZXJ4d8MqzfZe+w
Rb845JN1flPkc4I6OOST+6NcVoSr/uSQT+KvnrC/VtXOIZ9Y8Rda1cV/55BP
Fi7yMVus+o1DPmm5WJE+e0cbh3ySeBXihmi1csgnGff+urgkrYVDPpGQHfQ5
qvAzh3ySJJi+r8i6iUM+qawIONI74S2HfBKZ6GGhuvoVh3yy8UG6vGhCA4d8
UhKTddm//iGHfGLYa8u9sZducsgnift69014WMghnxQDz/Bt+5kK5BPJsMAa
w+y7FcgnHzufnPoQ/XcF8sm1mm8XphY1ViCfZFpMWnFl0KcK5JPeB87+SvRp
rUA+GTkusyHrwPcK5JOJTdru8pa/KpBPJljcOqflIFGJfFIw/q+OnrclK5FP
8P/vgHyCnyOf4PeRT6RZfeSTHuz3kU9wfcgnHmz9yCcr2Pshn+D7I5/g/iCf
/Hf/nGl/kU9w/5FP8HyQT/D8kE/+e74udP7IJ9gfyCfYP8gn2F/IJ4v/03+u
0MT6E/kE+xf5BPsb+QT7H/kE5wP5BOcH+QTnC/nkP/Mn5hOcT+ST2Wx+kU+S
2HwjnwSy+Uc+MWL4gHyC+IF8gviCfIL4g3yC+IR88h/8EvMJ4hvyCeIf8gni
I/LJYYafyCf/wVcxnwQz/EU+ecHwGflEj+E38gniO/IJ4j/yCfLD//LJ/wHE
s2Gw
      "]]}, {}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0., -2.3025850929940317`},
  CoordinatesToolOptions:>{"DisplayFunction" -> ({
      Part[#, 1], 
      Exp[
       Part[#, 2]]}& ), "CopiedValueFunction" -> ({
      Part[#, 1], 
      Exp[
       Part[#, 2]]}& )},
  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->{None, None},
  Method->{},
  PlotRange->{{0., 40.1}, {-2.3025850929940317`, 3.6913763343125234`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], {
     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]}}}}]], "Output",
 CellChangeTimes->{
  3.397499975680381*^9, {3.588269810831895*^9, 3.588269816891903*^9}}]
}, {2}]]
}, Closed]],

Cell[CellGroupData[{

Cell["Log-lin plot", "Section",
 CellChangeTimes->{{3.5882695143414793`*^9, 3.588269531921504*^9}, {
  3.588269562571547*^9, 3.58826956480155*^9}, {3.588269606151608*^9, 
  3.588269609471613*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListLogLinearPlot", "[", 
  RowBox[{"obj", ",", 
   RowBox[{"PlotRange", "\[Rule]", "Full"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.3974999798263426`*^9, 3.3974999854944925`*^9}, 
   3.588269655021676*^9, {3.588269839411935*^9, 3.588269839621935*^9}, {
   3.588269877351988*^9, 3.588269882431995*^9}, 3.5882699246320543`*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, 
    {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJx1fHlcTN///9TM1HRnppJQlBbtuzaZlvtqoVB2Edm1IMoekRZbJMmSSvYo
WSqJFsoua0KyvrOVrKVSpPpNnNfx+H4ej1//eNzHNPeee87r9dxe0JkVOjZA
lsPhrOFzON1/6t67ObphoxhSU6Q/6raQO1pLsUJ6/eZJfiR/ni0s/K41JFR6
regeMCqkyBYGvr70/e4GMZSbJrXeZOwgoaOlx+f1YtDSvzG79xQ7+OhwNK18
nRjOq22IHpVtB/vy8jcExoph5YgUNrTdDl7u+HXjcrQYVvgEJISNsAeV40PH
vlorhpb7khkj0+xhSumU3oVrxDDSPzOL+8kejuV8lR0XIYYjtbdnbpEMAr7r
Ed6JcDEMGHQkpiZuEKzNUpS7ukwMF/RmKXRWD4K3745/S10sBqe9hT9eGTpA
ccHLY1ahYohZaD0qcrkDnAlpUFk/Xwzfa8L7PbnqABF+4p57gsRw69fJ4Hcq
g8FD4LRp7mwxRG0+53VwxmC4ajh19M9pYuh8ua1ScGowHDE18PScLIZ8o126
vdsHg+1hjaHjJoghNql68lVPCYg8tutpjhbDpo8hhxV3SsDrWOq5I8PFUNqW
b9LwnwTenVOqrPcQQ9LcXP05po5wpiLa47OLGBaPHFkRsNwR3DbZv8x2EEOc
Rc6ChjJH+GKkE2xkLYajh6K8uhgnGP/w+amZpmJIWSE5s3W8E9gMOxA+UU8M
/cYuEySnO8HOabBZQVMMyfetsnvXOoGBUv+jK3qJ4Vd/LXmBhTNE2Q2IPygW
wzvRt8TAZc7w8PX5nxv4YlgXueu6eYkzbPa5mGXYIYL1vrst/WRdwHru2vGx
zSIILvWe+s7TBW7LZJ9O+SSCkirrT7fiXSB9ldfCeW9EcCLfaK3ggQusUDsJ
LdUiWHq7qHyPKgtyz8MeDb4vArPUoA0rJrLwsWbWo0HXRJBz6l3EgRQWmsau
+fC1SAS9vs9arfSchZzK6rPTckRwSbPeukYMsDh4/6sNGSJIVFHZ/sQcIPFz
p0xQqgjmKd14ON8HIK2ub0lngggmTQ34nRoCUP+uI8MnVgThfU6qzN4CUGq9
ecK4FSI4x3utdzkLgCecN1Vpvgi8BLWeBTcAhmt1eUdPE8FDg1nJzu8BdseM
yckcI4JF/Z/b+cq6gs2nDqX1HiJYs+2Rd2d/V1gwdEBjr0EimJr/RWTr6Aov
k0c9nmwsgvFHO0+2+LpCkmaIZFw/6XrN7UJdF7tC37zM1E6RCA71HZjca6sr
iAMCQ/w7hRBrqL007JgrjHfT0Q35JoQN055OGX3JFfTBz8S8Rgi+/LbsM89c
QWfEqm/7KoQQzPwo39PkCvuDrjwpKxOCUdOQAZ1CN7j7ymxIUo4Q3IaFmL8Z
4Ab5C3x2qRwQQsh6tUB3Rzd4ON9Fx3WbELSXO4/THusGE19FOmtGCiFf2zh2
RbAbxIQ8Hnw0RAgT++2N94x0AwPjgTOfTxbComk1itt2uMEOvbifxV5C4MT/
l+ud6QYJhUXunvZCWJXtYLC2xA1cNgZGrB4ghPpJE/T1K9xgqsKdqsnKQngQ
ELnI+a0bvLt4eMPr3wyc/vjt8fUWN/h9r/WsUj0DeTc+G5TJu8OJvu1x7x4x
ELfjgauRujuYZL3SmV7GwO8fBuJOY3dYPiVjd2Q2A55Lz4SDxB0aKlt+ue5m
oGlP/Jqvw9whfNnHyZlRDNimGPaX93OHZeH/FefMYyB/3NzAuCB3uPXMRWPy
eAbKSs7OX7rMHaJshy857MxA8+lO7xsx7jDV9U3OFgMG/A0rraO3uYMZ432h
hxIDkidBow6muUNlQlO4basCRJmfemVwzB0iH5iWfH+lAD75vgY98txhtc5n
3xHXFWBJ1etl00vcQStms7LzSQWI5B836HHdHSwES45d36EAk+Frmv59d3jH
f1FRu1IBev567rb3iTtYPl/usHe6Anyevidp6X/uMM5ZM+q9hwJM6vQSnap1
B8Prq9hLxgpgcrWfo9cXd5i2J49roagA+2aPzHdrkt7vDWeUyXcB7FO265Pe
Jt0/ZtKe/McC6dNAPLHDHSZLfg6/fV4Azz5yh4fJeECWjuB6SJoAeLcdtnzg
ecCJrer+yWsEINK9uqdU3gPUDpWMHTZdAPfDCz1aFDxg/uTO11EggNbXU+fH
CT2gUrbOxklHAJcdTZoiRB5wa2Tj7JUyArh7R/ojvbY/tSrS/rU8/fz0KrOo
RWXy9Pv6iVMnGO2Xp/f/8nz+00lr5OnzxwWIqzhT5On67g7bI9vfQZ6uX0vT
lXtKVZ6+346eo4JPNcjR9382eshJjTtydH+aszgOP47K0f3z6Vc+0SFaDiaS
/Y3W9/WomSxH9/+xzTWNTzZy9Hzk+0fXThDJ0fPLu6oer/mOT8/X4AzzwqWY
T88/KC10Y8F2Pq0P2bkZ2tFBfFo/1fFV6mlOfFpffvKLrnB68Gn9/di9bvip
dzxanx0+8uf2n+PR+nU42VlfEcej9d1hvyXNeQqP1n8GPJr02pRH+0Np94Po
c+1c2j/rRzQMLb7Fpf3l+nLb0bo9XNhE+i8pfPy8QYFc2p9unBF6GdZc2r8H
hM9NTTtloYL0962rMalXbsrCB9L/B/QneQUnyVJ8SDw8/KbKFFmKH+kvteaU
6MrCYoIvS3z11abVy4AvwZ+JxxMTGk7JUHzawd/YN2SJDMWvjporeTftZSi+
LbWt+tTRxqH4d3DGx0bZIg7Fx0J+75h7KzkUP1UeqL/1deBQfPX40ad4wKcu
FvE3Y25hYP2sLhbxebWNl/mHJ53sQYLfVsUjWcHwThbxXbhXZp1VYQeL+P+1
7Fj0UP0OFvmh7lCdu0XCbxb5I3JfGXurqZ0NI/ySuKDBtn1CO1tJ+CeJu0Z0
IP8Xi/xkbKWSv0vpF4v8NXxWdUtB4E8W+S10/TTvF4Vt7ETCf3PEennPBW0s
8mN1lmvIpnGtLPLn2V377uel/GCRXyfdE3OMnrewvQn/HotMyczt08KeJvwc
MdX0RK9RzSzyd+Lqo3d7RTexSwi/w++5I0NPfmeR//dNUI159rCRLSL6oMcV
J1+muYENIvph7KL8O9niBnYd0ReDr6y8ewu+srFEf0xW7+g8MfEzi/pk8NQX
hubTP7JtRL9ob1v9Odj3A7ub6JtBNR2P5znVsn2J/mmPWuhvpPyO3UP00Un/
MRfXVrxmUT+xi8u95re9YjcSfWVledjg/YBnbBjRX3nLVWdHaT9mE4k+eyuX
W6JedZ+9SPTbpg+xx3Q519g4ou9SWmZV9Ak9w0YT/Wc29LyfzPTE0jyiDwft
UvzOO1pSivox+3i/hQGGt0tRX7pNf3k6edijUtSfzYWhG6JGPy9tIPrUdF/X
+8++r0ujiX59e7s+ItzmfamE6FsH/oZoT6gvRf0rP+yJstHaL6Woj5ffWLFt
TltD6SGin1dnDuvdMKyp1Ifoa/6Z4V/qc1tKm4n+vqqy//hk07ZS1OfTZnuf
Nzr5qxT1+9Bbe0fqG3WUFhB9X5ue5/JqXVdpf6L/E35lqosfcMpuEn/gumHL
msbjMmVi4h/8Zn47f32wbBn6ix/jzxbnzpct20P8B34+Zkpkvnm5Df2+fsPd
t9fDbej958sfdJxnZEOf30sx5L5GtTVd36q+J3PfbrSm6y+qS2m6Msiavl/J
+7tHLtcNpO/Pzm6rfJc8EIaS/amt2hxn6TUQvMj+JXgHPTjWZkX3V/l3Qs7Y
LCu6/8sVHxjbTbaCDHI+bbtXOo0XWtHzmxMnc3PuSkt6vtFHllqef2FBz78y
jNmVDha0PgLHtD4akGFO62f+8aGXxjPm0M/tb33J9nLSkYSZwYYff+tvuuvZ
nJdVprQ+x2+P1xrmYkrrt37pb+UNR02ghtT3kB3cfvuUTGAKqf+o8vJrqSuN
IYj0xzgFuS3r3xnR/lHXCXgcNNoIRNF/+8t+RWPX8AuG4En6z/pyxAQHU0Nw
If1pf4OnPDjVACaQ/g0zMprkyxjQ/t7vvckjJUKf9v+MuY5Pma96MIngw7TC
wfL5M/VAg+DHjro72elVAyCL4MuX85zECu8BMITgj2KHavCEq7oUn6LvN1Ta
OutS/FK2TvZbcU4Hcgi+8RTSF+rb6FD8c4o5sMAzRxsKCT7O+HYp9b2FNjwj
+DncwclDeZoWBBJ8jRqz02LhzP6wjOCv6M3B+uYgTRhF8Fm5x5xB+Ys0wIzg
t+qxqxnFkf1gJ8H3hM17t/bd1he2E/y3313co+aQOqwn/DD0aZNmvyI1+ED4
491oo8Bnj/rAN8IvtcbTA8yaeoOY8I9V6hN/rV69YSDhJ+8ZA8ZdkvSCWMJf
Ja3uPbXnqMJRwm/5ibdNh23vCV6E//ZWy3wddlkFehJ+1DgkWmDZ2oPyZ/xK
jTVyVj3gEOHXRJv0vOchyrCE8G8i//Hl5VOUgPP6Lz9Xu/VwmP1eDLsJfycO
uhywU+rD/Ai/j06QD9JREcIywv9G757c1z4r1bVEH2zK25GdOUMA24l+OPD0
QMQ9qe47SPRF22tF+2MP+FR/KAs9PDyTeXCQ6JNEpzPRlwO44Er0S87XVImZ
syzsIvomrP9dk2RNGXAn+kcwM2p1L3kObCT6KGfc+IRFTR1sD6KfRh+/qqH3
qZ09SvRVjeqB6NktP1nUX1LLunCUShuL+qysRBAo5/aD7ST6DdIiSjLWNbOo
73Jsp+4Y9uw7i/ovx/Nrtci9kX1G9CFnT1i8SuQ3lkf0o9RIF53a+5mdS/Ql
jCus0HhTzxoS/XmgvOHLppF17BmiT7Xl3xdrvHnHCoh+rRlVNa9r7xu2iujb
stdBpyesrWFR/5ZV7Y2KVXnJoj6OOuiTeX3ZUxb1M5z/6HLaqIp9TvR1WUdq
xmLTh+wuor85kR7WrpEVrDbR55wTHZPi3e6w94h+55Sd2jXK+CY7gej7qN33
ZijmXmVR/0dtXfGY8+wSa0D8AWe3a1mWVymL/oEzNHSFv3YJi/6Cc7r4lbdj
EYv+g/MnwCpkHxF/gp8vIP6F4/n3++hvOMl/74/+B59/nPgjXN8U4p9w/eiv
8P3Qf+H7oz/jdP7dH/RvHLJ/44m/w/0dSPwf7v974g/xfCyJf+SM/nt+6C/x
fNF/lpHzR3+K9YH+dQapH/S32qS+0P8eIPUXQ/xxGanP28Q/Y/0uJ/66gtQ3
+u8yUv/ozxtIf6B/n0H6B/19Gekv9P/KpP8wHwgn/fme5AdlpH8xXzhA+psl
+YM26X/MJwRv/uLDTpJf5BD8wHxjD8EXzD8cCP5MIvnIDIJPmJ8cIPiF+UoN
wbd7JH85QPDvAMln9hB81CX5TRLBT8x39Ai+Yv5zhOAv5kMlBJ8xP7pK8Bvz
JcR3zJ8Q/zGfQn6wJflVM+GPZJJv+RJ+GUHyLyD8wyf52E7CT5ifaRP+wnyt
L+E3zN9UCf9hPhdD+BHzO2/Cn5jvzSL8ivnfEMK/mA+KCD9jfqhK+Duc5Isb
CL9j/qhC+B/zye9EH2B+uYfoB8w3pxN9gfnnTKI/MB9FfWJI8tNVRL9gvgpE
39iS/NWB6B/MZyVEH2F+25/oJ8x3JxF9hfnvBqK/MB8eSvQZ5scfiX7DfHkC
0Xd2JH+eR/Qf5tMCog8xv15E9CPm2yFEX2L+XU30J+bjG4k+xfwc9Svm6z+J
vsX8fQXRv3Ikn+9F9DHm9zuIfsZ8v57oa8z/3Yj+xvlAKdHnOD+4QPQ7zhfW
EH2P8wfU/zifQH+A8wsD4h9wvuFL/AXOP/YR/5EonuLBcRKReYgLFB1mTrU5
iiCTrTQ/bewC9h+DP72WXg/f1HLhymAXyA2d01EsvT4c2zmkapgLJD/e/H6D
9PpDP4XL7/1cYOVLwVE36fXDtbMsGue6wMOI467fJCL4FZeysXWlC2g1PCuO
774esO1Wa5zUD785otZPer3yyIbmhhQX6FqX5586WASNBvbcN1kuYHnRZysj
vbZ/UdVcXugCoeNm5Mx3EMHZsXY3j5W7wCKNpXcuSPt/4dlLq1c9dQFTyZkP
HOn1Rs4BFdd6FxCM+yCysxfBLpPzm3+1uYDoUaTrZDsRhLter80QsHDFPnZb
mK0IqlbOM3ZTY4HjfZgTbiMCC6vBvvcMWbDbYrE/zFoEEc9uLRo2iIXQwN7L
Jw8UQUj97ei8oSycPPQ10c5KBJZ7RFsFvixk5X9pl7EUwa2sxLThASxc1vly
pdRcBIKe+wtWLGWh5/u5PxaaiaBr24MPCbEszK9ed1DJVASmenou25JY0Nfh
PjrYjW/reFdXHGQh88DIdH0j6fsHz4zzzGFhevBycZqBCDjXC/d1XGRBbaCl
nay+FKcbTXun3GVh3eOH+lMGiCDwyDqu+gsWiu4HNGboiGBVnc/q1R+lnxdu
Pf5GSwQv3r5MvtzGwsj7aXN69BeB2q28Qcu4AIuXbbKx1hBB5ImuhJVSGrxQ
2mw6pK8I2gum1SzoAfDxl8ns4WoiKNDyLx6jBvBwkNY3195S/BuVkKOnBWBa
HVprqirFu097x9TqA6zUCJwhUJE+747nwN1mALwzP5Y+UZL+/ocFb21sABI8
LzuliEWwRFe14+Jg6fN79n7gIxTBQOUQ1UEA0LHg84gWgQgSjj0rSxsqpWX/
Lze2yUnx+Vln6mdvgCO6oTM0eSKo1zjvZDwOYHbF8oH7ZERQ8tzMdYwfgOqD
8xNVuoTw+0mFx5zpANErUhpW/haC9+L572cGALzcZN738U+hlNc0Lw+bD5B4
TdI0oFUIm9znRvRbBLAj1CEtsFkIm8tsz1QtB2i9O8o6vVEIsTMfiiJWAzif
9H9646sQRrYpmAtiADRefMmt/SQEoxrVojUbpS9wZMirnx+EYJp1csrzeICT
LpOjZWqFcDFbuVg7CWC4e9XFjjdCiI+VjfVJBjDoqV789T8hnF30ePrMvQBq
zoPSHr0QwueMhV1TDgLovfi17vRTIagsHNHD+SjA2G9v962tEoKa94ahvGyA
OceNlIc8FEJR4/MxuacBui6e5XCkfPxKJ6fOPR8gP90iJeeOECxWqFwsPg+w
4dQX2YnlQihQuhKvdgHAJ4oX3HRNCDqag8STLwGEf3VsWn9ZCGF+6b/WXgMo
cFKtUCyV8vX0Nz02lwM8NrxmklAshMoP+T3C70rP+5OzFe+8EII/xRUNewDw
zVFfcVG+EHbuP3Cv8xFAhs3T74+k+mFWgJxKcrV0e2xCxVYnhWCQkDpc5YV0
PQVntsZkSZ8nUIGw/wBsepkcuZMhPa+vv4pz3gDUOoliFA8J4VBLadzD9wAP
Jgz389onhNWXs5dXfwAo9tvsvypVCO19P48p/QTATTUsPbJbCLd+7/y88au0
Pmytz95IEsLjHYfVrRsBbi1buORtghA0VWROXWgCOG4y3rJts/R+weujTH4A
9H8h1pLbKNUvNT/nhrcBDPy5YqU4Vgj5O/sNOfYLIPOT1nLFtUIovpf+teC3
9LqPu49ChLReXMyGHOsEiL12d1DnciFo9FlgHM5xhT4tfqFfFgtBUYEbaSzr
Cp3qFhZPFgphgeY2w2KuK/wodTxdPE8Io8LyROZ8V6js3d8iLVB63reVeq+V
cwWfALW6ZbOEYNLfxyJX3hV6zVLt4z1NCNOeqbpdEbhC8OID7ZpSvbfAuA+c
VXCFfXe/VH6aIASunFB9I+MK3PX3np8dI4Rq69OlDkJXGB56ZsJqHyGIe9w2
uiW97tmaFcUOE0LqBMsRjiJXeHbbL73LQwhV6QVa8dLr00tlv5SAEDrfDDlY
Ir02vBqeu8JJSOYhrvDTTM/cyuHf54d+tB+qtfn3/V1j1vmmWf67/+Lht7eM
NP33/My0gI0cw3/rM5w6PyFX99/6t21fWjuz/7/3W5G463GPvkKYSt7f32fK
oUu9/u1P1aobOxb1+Ld/uXHejTrif/u7N7Zc9qHg3/73u7ReeT3v3/mErjKb
7cD5d36jbW66f2ln6PnqylxsP9zK0PPPyL75yL+JofXx/FiTmto3htaP2Zdd
KlUfGVpf2Ue8Rcm1DK2/bXkto6e8YWh9vlI/bjrgFUPrd7HkfN3Xpwyt7+X1
6RUXHzO0/nfMkbXe8YCh/SHWzpkYcpeh/TMgLGHr8HKG9pdAMU3L4hpD++9T
+Fu/PpcY2p+RNpGb5C4wtH+3voptbT/PQBDpb9eBgqbWfIb2/8n7Kjd+5TAU
HwI4e0p5JxmKHx9dFxn1zmIovlwum+BjmcFQ/Ol7unLl6IMMxSf5te4/V6Yz
FL9GcW71PpHCUHxrmjVUs24XQ/Fvl9aoiaZJDMXH5utGSisTGIqfrwsvJFRs
Zii+frm1S8t6I0Px1+/2XWZfLEPxOZ+nlKIq9XsmBL+vHNigsns1A4YE391k
Xl7UlRIl4r+Hgvn7omUM5YdHfu23py1mKH8UxJoXKoYysJHwi7aVzPdb8xnK
P0PduMU7ghnKTzea5CbNDWAof9V+0RB5z2Iovx2fuVndaToDHwj/yemUXRrs
z1B+1CoeM2SIH0P580P657fTfBnKr77sqBcbxjGUf/1HQ8iF0QzlZ+b3+grZ
kQzl7152Lz0mjmAov+urNnKLvRjK/y7DxnpaDGWoPjh1aKFnrjtD9UNV9iZH
D1eG6gv3wNN+dS4M1R9BWgVVqU4M1ScLA8xqp0kYql82aPoW2TgwVN80Xxiw
Tt2eofon9JTJEmVbhuqjlor0s2rWDNVPW+2GhltbMVRfmbZH1E61YKj+Upih
ZZJmxkAn0WcHuEnzP5owVL8t9895MMKYofru4+zb0aWG0nol+k9u1aH9QwwY
qg9nxE71eaXHUP2o4r4xO24AQ/Xl9u/yTz11Gao//dS1m9R0GKpPVY/O7tWh
xVD92jX8rF9zf4bqWzUtt+pOTYbq333r1xzTkF6jPp4yVfOFjwYDdkQ/N4f3
jkvqx1B9vWdmSunHvgzV37oBStt8pdeoz0sb+vCr1Bmq37mDN5jPlV6jvh9u
NV1FWXqN+r/fnSfFt9QY6g+MU8dZpUiv0T+sypi9NEJ6jf5C9cS1zYuk1+g/
8PP4phn8dQr/vl9/3HlZ6E9nev/E07Zf/Oud6fO9+5gs8nnqTNc340wFz63c
ma5fkpWS7VjoTN9PonQk2DHLmb5/ccIJF7cUZ7o/bqIOyzFxznT/On39Xeau
dKb7G1nTMW/LXGe6/9fXLCo47+dMz+ek9Q7t78Oc6fntE0RkOkic6fkWN4Z4
bzVxpuc/tfCmQmNfZ1ofctxfL+YInWn9FE4KvlTf7kTr6+awoNyoz060/vhp
BkdNXjrR+pwXdyj5w10nWr9m2jtXF190ovVtd3jm8COnnWj9C5SUWg4fcKL9
wTttEVq83Yn2T+etB1mfYpxof9kuWLnTbqkT7b8oV3nN1AAn2p/3Ek5Z9p3o
RPu3aMT7ggIvJ9rfk0ZNSAuTONH+5++/e8XLzInig8Mzm17Q34nih/O1ZYsn
KjtRfLnetKpkm6wTxR+rnb0r65sdKT4t9P+5LbDOkeLXmpTDFXLPHCm+Wc6a
GHL7jiPFv5FfmcFnSx0pPlaqTGGu5TlS/FR7tya3PcOR4mtLpF2HX4ojxd9Z
Py8X1sQ7/sPniKc5iVGOFL+dYrdnzVvqCJ4E3/eO9A8ODXak+J+8rPXUfn9H
OEf4Qf/EDKffox0pf2jnld9ZP8SR8ot5WLy6s8SR8k+ym9ZTXUtHyk/vFyuU
DtJzhLOEv17VPIlYre5I+e388x4XGhUdKf9pmFmY7+E5Un4sH7VpSdgvCeVP
/7oJthENEsqvyhP3KhfWSij//q0/CeXnslER2yoeSih/h3+rnJ19S0L5/YmH
4rniSxLK/+U9T6rLFkqoPvjedlVtbY6E6oexUW3ONpkSqi+KlyxU0jogofpj
28xyJfc9EqpPAvy1Lu5PlFD9Impu3GUXJ6H6ZlGwgRI/RgIKRP986N2Zrhgh
ofpovK7SmbFLJVQ/7fV1Ln6wQEL1VaPnGa34IAnVX86nng+JmSmh+sylY/K2
/CkSqt/2D1aYPMBXQvXdZuHnrnujJVT//VIc+OTcCAnVh46zjKxfDZVQ/fh5
MTvdzU1C9eVdhd+Z75wlVH9e3NU64dpgCdWn2gXPMt/ZSSCM6Nd2nl+Nm7WE
6ts+OuaDaiwkVP9OblN9V2Iqofp499h76k+NJFQ/K6X3lLczkMBUoq9rfuyp
qhgggXCiv1dFKpw+oSOh+nxyDe/MTS0J1e8Whpoy+v0lVN+vu/vozCUNCdX/
fXukv97XTwK7iT/gbHq0t6SvhPqHuNZrTX2l1+gvHBYcayhUl1D/8Zc/JNSf
4OfoX/D76G/w/uh/8Pnoj3B96J9w/eiv8P3Qf+H7oz/D/UH/pkj2D/0d7i/6
P9x/NeIP1cj5oH/E80N/ieebRfwnnj/6U6wP9K9YP+hvnUh9lRP/i/WH/hjr
E/0z1i/6a6xv9N8upP7Rn2N/oH/H/kF/j/2F/h/7D/MB7E/MD8SkfzFfCCT9
jfkD9j/mE4gPmF+MI/iB+QbiC+YfiD+YjyA+YX6ykuAX5iuXCL5h/iJH8A/z
GcRHzG8QPzHfuUXwFfMfTYK/mA8hPmN+hPiN+RLiO+ZPiP+YTyE/YH6lQ/gD
8y0Dwi+Yf+0h/IP5GPIT5mfOhL9ovkb4DfM35L+9JJ9DfsT8DvkT8z3kV8z/
RhH+xXzQivAz5oeRhL8xXwwl/I75I/I/5pM3iD64SPJLF6IfMN9EfYH5J+oP
zEdRn2B+Wkz0C+arqG8wf40m+gfzWdRHmN+ifsJ8F/UV5r+ovzAftif6DPNj
1G+YL6O+w/xZjug/zKdRH2J+XUT0I+bbqC8x/55G9Cfm4yVEn2J+vp/oV8zX
Ud9i/o76F/P5KKKPrUh+30X0M+b7HkRfY/5fQvQ3zgcciT7H+QHqd5wvzCT6
HucPqP9xPoH+AOcX6B9wvoH+4n/nHwaa1rlTTfn0er/hjYkjpNfoV0pW5Y1Q
lV6jnxl/KXzreRM+9TuF3q2aDtJr9ENbZ8/pTDLmU780JmeUVbkRn/qp1PuH
zj4z5FO/pd15MPGGAZ/6sUu1n69s0+dTv5aWuHasjR6fzkOWLTjD5unyqd9L
3wTbRDp86gcjqlyGuGnxqV/sn2EYOE6TT/0kx+LJD7Yfn/rN4cMSfsur86kf
/enWvDq7N5/6Vd1KtUgTVT71s9XWy+XW9+BTv/tpVpNGsSKfzkOEMbU37wj5
1C8XTeijUiTgUz+9uPESJ5bPp/OQzbEp6YayfOrH/TxvNx7r5FG/rp0uI89r
51E/z3oF1Tm28qjfn/ToePqoJh7NA77oyNqx33g0L9DpZ1HIfOLRPMFhe6R9
Xi2P5g2J7lWFdm94NI/IVz49etdLHs0rPMf2V3hQzaN5xro5Txs/POTRvEN1
sqTvy3s8mof8euGRdLKcR/OSUOfseZOv8miesuT0w/y3F3k0b6k/9zJmWCGP
5jEDbh2r23KGR/Oawt6Pfxw/yaN5zqb4h1ePHuPRvOeO6E3g2oM8Og9xfNi7
yTaNR/OiXj0Do27s5NE8qdetTINBCTyaN3ndOtwZu5FH86icdkXdU1E8Og+5
UrU3++xK3r88S032XOpiHs279uR1zJg6n0fzMJfmGTc6ZvPoPETQ3EdhtT+P
zkNCbK2HVo/n0bwtaNOn/So+PJrHnRt01sF0CI/mdfWzWVtdZx7N8+B0zLlW
Wx7N+8Yb3PqQbcajeeDyBRe+uejxaF5Yaj2/Jacfj+aJme/H6cn25NG8Uffs
0kxrhkfzyMZHY0+7yfBoXmktlA+2buPSPLNowzCu7DcuzTvVu9acyX3PpXno
m/5lJ1xfcOk8pMahQS+vkkvz1PNeZeO45Vyat0azlxbblXJpHntsb9gFr7Nc
mteuGTd0kXM2l+a5GR2X7/Y8yKV578rJkap3dnNpHry4n31cYDyX5sXzOl4s
ehvNpXnydovjvd1XcGnenMQxvrw+hEvz6DW1XpeyZ3JpXl10YcHss75cmmfr
zIz6dWgEl+bd9uu7ni0FLs3DbV4o+5vacWlevjkq6cl1Yy7N0+WPmB337M+l
efuN6Nk2p1S4NI8/l5j1+Jccl+b1ds2Lfpi3y9I8X9nIvdPzmyzN+yvflU8a
9laWzkM6HT4vtX4iS+cFax6+uMq9LUvnCSYRFhcvXJSl84aep+uezsiTpfOI
NfN27/ySIUvnFSvk5yyckyJL5xkgMf50LV6Wzju8tWKSVKJk6Txk1IQ334Yv
+fe5qkZWUmjgv+/Hh9kpRvv9u3+p5q+fa73/Pf9j4fbGEPbf+uZvqNzpZf1v
/aFGbzb21P/3fq8shy2510eWzkMsZ8rxVjH/9mdEwcFPvTtk6P49UWBrMr7J
0P3dMz1nr+EbGbr/TcUba/Y+kqHnUxphFCZ3Q4ae32eNatWAQhl6vkVB9/YW
ZsvQ84+s83jO2ydD60Pn4PpMz0QZWj/3m9tex8TI0Ppanmw979xSGVp/7ds6
jGoDZWh9ug4IEir7ydD6HZ1yk2s/QobW99hr9xX8nGVo/ZsO3tB3laUM7Y8O
0USHVB0Z2j983Z7zi3rK0P66eKOp9DlfhvZfelbasK5WDu1P00+9tA0+cmj/
npn4cMaYFxw6D1m1OcMi5h6H9v+HpnO5hWUcig/N+zf0+ZnHofjx9GBlkmsG
h+JLh2DnlJ3JHIo/2u71p77HcSg+PbjPvT91NYfiV5KxCvfJQg7FtyXlBsnT
Z3Io/nmaaLxoG8eh+Lgud5nhkaEcip8Rc5wfzhrMofiaM+aVs70Zh+Lv0OT2
ci0tDsXnCw3ur7RVOHQe8uac63sJn0PnIb/iR6a+auhiEf9Xj7ZUWvuki0V+
cNF8ojL5YheL/BHY8m7n4owuFuchxoYzNt+O72KRf+YNMf0StLSLRX4yCggt
Hu7fxSJ/PdnX9WO5RxeL/Fb0NP/IN7MuFuchO75eun2uVxeL/HjcnrOssrOT
Rf7sc8T2uNuHThb59fomn2XCyk4W+ddakvKfZUkni/xccbOlIe9oJ4v8vUb4
61Ty9k4W+T3FS03j9Wrp7xP+77xfZJ8U3MmiPvjyZnLbyfGdLOqHraOTxg9y
7WRRX8QPMnIYaNHJov7gB6lv2tdP+jyiT0Le7NWOUehkUb+s7KX/6FVrB4v6
xnfktHnnajtY1D8XNEz3K1Z1sKiPxjjv16m71sGifvpa+jPJvaCDRX3VU2v/
eoNjHSzqrx581dVJezpYnIfYR/+si9vcwaJ+S1sqNFZa08GiviuV0Y3XC+tg
cR7y8K798DuzO1jUhwveLdwomNTBon7cpmQy9rm39PeJvmxfpnZoqFsHi/pz
2+iJE70dOljUp6PW7xr81aKDpfOQ79BqbtDBor69aXNBT9y/g0X965V8xHFr
7w4W9XGsWDX1tFIHi/OQ6jOyMcsUOljU1xeyM9RquB0s6u+k6pqAhs7fLOrz
Ib2vjTv2S3pN9LvZQo1T/NbfLOr7iks8XVHzbxb1/6wJKc7Fjb9Z9AcRO7ND
ezb8ZtE/jPDfIt/r228W/QUj959t2dffLPoP/Bz9Cn4f/QzeH/0OPh/9EK4P
5yG4fvRT+H44D8H3x3kI7g/OQ3D/cB6C+4vzkHKy/3QeQs4H/SKeH85D8Hxx
HoLnj/MQrA/0q1g/OA/B+kK/i/WH8xCsT/TLWL/op7G+cR6iSuof/Tj2B/r1
caR/0M9jf6Hfx/7DeUgE6U/MC7B/cR4iT/ob8wbsf8wjEB8wr/hG8APnIV0E
X3AegviDeQjiE85DEL9wHmJD8A3nITcI/uE8BPER8xrET8xzdhN8xbynmOAv
5kHViM8kLzIm+I3zkPkE3zFvMiX4j/OQIMIPOA9B/sB5SCThF8y7kH8wD3tL
+AnzsouEvzBPQ37DvC2X8B/OQ5AfcR6C/Il5HvIr5n3IvzgP2UH4GechyN84
D9Eh/I55I/I/5pGoDzCvbCH6AechqC8w70T9gXko6hOch5gQ/YLzkH1E32De
ivoH81g5oo8wr+0k+gnzXNRXmPei/sJ5yBiizzAvRv2GeTLqO8ybUf9hHl1B
9CHOQ3SJfsQ8G/Ul5t2oPzEPR32KeTnqV8zTUd/iPCSF6F/M41EfY16P+hnn
IaivMe9H/Y3zgDCiz3FeEEL0O84TPhF9j/MG1P84j9hK/AHOK9A/4DwD/QXO
O9B/4DzElfgT/Dyc+Bf8fiTxN/T+xP/g802JP8L1oX/C9XcRf4Xvh/4L31+J
+DPcH/RvOA9Bf4f7e5P4P9x/AfGHOA9B/4jnZ0v8JZ4v+k88f13iT2l9EP+K
9bOa+Fuch2wn/hfrL4n4Y6zP+cQ/Y/2iv8b6XkX8N85D0J9jf0QS/479k0n8
PfYX+n/sP8wHsD8xP8B5COYLOA/pS/IH7P9ikk8gPmB+gfMQzDcQXzD/QPzJ
IvkI4hPmJzgPwXwF5yGYv+A8BPMZxMePJL9B/MR8B+chwST/wXkI5kOIz5gf
IX5jvoT4jvkT4j/mU8gPmF/hPATzLZyHYP6F8xDMx5CfMD/DeQjN1wi/Yf6G
/If5HPIj5nfIn5jvIb9i/ofzkKUkH8R5SBjJD3EegvkizkMwf0T+x3wS5yFe
JL/EeQjmm6gvMP9E/YH5KOoTzE9xHoL5KuobzF9xHoL5LOojzG9RP2G+i/oK
81/UX5gP4zwE82PUb5gvo77D/BnnIU9JPo36cADJr3Eegvk26kvMv3Eegvk4
zkMwP8d5CObrqG8xf0f9i/k8zkMwv8d5COb7OA/B/B/nITgfwHkIzg9Qv+N8
AechOH9A/Y/zCfQHOL9A/4DzDfQX/zv/+L98YguXK38rOmbKwshZypMG59uA
vXbuo/T7Un6Jc53xfrQNHBpc7uf2QxZ8Fc3z0r9ZQ+t4n+OWGlzIbqz0mZVo
DebNz0NDXLlga9P9Yw2HcnPbOgO48F36sXL1QFim39PlSxwXait0n/+MHAhD
JcYfnU5yQan7doYDIXHitKlN97mwoK49q7HSCmLUh53p9Z0LMhzpT5QVXKy2
vJEpxavy5Rf397W0gvOdFg65UvxJSF6oEltmCaHywgU2E3jQ3PEovN7AEqLV
CpJtlvHgmnbO4uDtFpDjmHj+rLS//9yPYwHuW4IPXpD259G0q9LfMAfVHx5t
Iyt5UNDUfQMz0DvRMnhBAw+sBSc0Js8xA6VL4SX9pPXX5+m91nFvTel+Bv75
MYWNC9sN7L34oNv9uC8mcDhUSZQ5hw+ef25oAjc2PLQsiOJDlXR1AwUmMGRl
jMfsvXyokN4tI80YtmcX1eSe45P9M4ZQ8+9RRyr5IGu6sffTe0bwam/lJucv
fHD6b9TW5IVGcKQ40mOtfPe/h5VeqhhBv7lX6ufryMG31azdtCJDkIu3S+E7
ykHQn/UZwusJLtNHjpeDEaLuOxrCBJM+dl4L5CCle/tuGUCmX4FMy3o5GNN9
u1gD2HrlZKrvPjlYKn2b1ayBlG9/X11YIEf2zwDa9j+0Y+/Jwc/u5V/Vh+EB
Y3aUv5eDKXMcpSvUh1lrLZcpdciB0cDuDdSHNMe5ASqq8jC9aJh0BfoA5U9q
HprIk/vpw2be9YkTXOVB/OeF9cB18GqLPRPlYV3ZrYNDCvQgZ+bVC+kL5CGg
+/bJenDUP2hcUKw8/Nnu1XowPf6w9Y898uR99eCUZ/rOEafkoXv3WsfpwZS1
5ZnBV+ShZ2z3DfVgwfexu0ZWy4NC9/E66kHrkFUrOj/Lw9zu17XTg9vk3+P+
PQ89sKsaGFTWS0A/r9SsWP/IWEC//35meUmBswBUyf1n77onEzxGAJvI82sS
trjXzxHQ9ck++zjXMVwAuWT9u6f6+k7fIoBA8n5h3Ja3E/YJ6Ps7xb+v08oV
0P05W7B84MUrArp/vv/5bx5YJaD7a+T4vmDVBwHdf7hnsDz1l4CeT5jTwJjt
IgV6fnWJgxNn9Feg55vV59pogZUCPX/HWZWhca4KtD58t3F2vRurQOun/+f8
2X3nKND6quOyEabLFCCY1N966/blahsU4Cupzxe3l3x9vVuB1m/wx6hlm44p
0Ppe0hK4V3RegdZ/ztembwtvKtD+MNid9vN0tQLtn9jFSWzFBwXaX6LbdR4V
bQq0/x7t3xeXI2Bof+LfTw0m/ft5TcLlnkYMqJH+tjw1OzN5EAM2pP/93Tpz
OoYycJ7gwyS3VSOH+jIUP35sntewKICh+PLl/Sdu9FKG4s+80HNNS2IZik8y
Y2yNRiQxFL9GPd0kL3+Qofg2vfV4y7HTDMW/IO2w8RYXGYqP9kf3xqbeYSh+
zln3vebzM4bi66ss9qZ+PQNNBH9nXJ2/Y0grQ/G5OWl9qjdfCMcJfi+/et/G
saeQ4vv1wLtneugIKf6bffJZUGEhpPzwf/9+lu3/l0/+nN/If3zyuPt8NllT
PumunoPXBlI+Ke4uX/mBlE/udc9bvK0on+xU40mXaEn5ZHb3cm6aUz6Ri97l
viXEjPJJ9LySpTvUTCmf/LnfHWPKJ43Hro8YFGdE+eRD9/b6GFI+OXuz+0AM
KJ/83R89yid/7zeA8smf5eXpUj6RLk56Ax3KJ1Yv9aRL1KZ88rcetCifWP85
H03KJ9qTuxu2H+WT/D94oU75pOFPP/WhfPK3/ntTPvlb36qUTw4N6W4IFcon
f/GpB+UTK+nbHbuuRPkks6+ldMViyid/78dQPtnUvd118pRP2v7sJ5/yyfnu
20l9GvJJxZ/6lqF8Evbnfp0s8klDRndD/WKRT5T/4Gsri3xS8+f9mlnkk9F/
8KaRRT6p+XMen1nkkxl/zquORT6BP/v/lkU+Kfuzn/+xyCdRf/anmkU+gT/n
8ZBFPon6s/67LPJJVHd58a6zyCdRg7obpoxFPuHc7waoYvb2//z/Dsgn+Dny
CX4f+YRz4e/9kU84K/4+H/kE14d8UkbWj3zCWfL3/ZBP8P2RT3B/kE9w/5BP
cH+RT3D/kU/wfJBP8PyQT/B8kU/w/JFPsD6QT7B+kE+wvpBPwkj9IZ8cIPWJ
fIL1i3yC9Y18gvWPfIL9gXyC/YN8gv2FfIL9h3yC/Yl84kD6F/nkF+lv5BNr
0v/IJ04EH5BPED+QTxBfkE8Qf5BPEJ+QTxC/kE8Q35BPEP+QTxAfkU8EBD+R
TwIIviKf7Cb4i3xyn+Az8kkRwW/kE8R35BPEf+QT5If/5ZP/BxJKI4g=
      "]]}, {}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{-2.3025850929940317`, 0},
  CoordinatesToolOptions:>{"DisplayFunction" -> ({
      Exp[
       Part[#, 1]], 
      Part[#, 2]}& ), "CopiedValueFunction" -> ({
      Exp[
       Part[#, 1]], 
      Part[#, 2]}& )},
  FrameTicks->{{Automatic, 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]}}}, {{-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]}}}}},
  GridLines->{None, None},
  Method->{},
  PlotRange->{{-2.3025850929940317`, 3.6913763343125234`}, {0, 40.1}},
  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]}, {-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]}}}, Automatic}]], "Output",
 CellChangeTimes->{
  3.3974999862956448`*^9, {3.5882698362619305`*^9, 3.5882698837219963`*^9}, 
   3.588269925582055*^9}]
}, {2}]]
}, Closed]],

Cell[CellGroupData[{

Cell["Log- log plot", "Section",
 CellChangeTimes->{{3.5882695143414793`*^9, 3.588269531921504*^9}, {
  3.588269562571547*^9, 3.58826956480155*^9}, {3.588269606151608*^9, 
  3.588269609471613*^9}, {3.5882698997720194`*^9, 3.588269901102021*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListLogLogPlot", "[", 
  RowBox[{"obj", ",", 
   RowBox[{"PlotRange", "\[Rule]", "Full"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.3974999945274816`*^9, 3.3974999991341057`*^9}, {
  3.5882699123620367`*^9, 3.588269913122038*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, 
    {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJxdnHlYTd3//s/YsM85IkmIFE2iKJJxr5RUZEqlZIwMIWMyNygzySzxGNL0
lMqQRCePMWMyZeoxZ0qlUtQ5fc/veta9+l2fv1zbcfbZe633+37d73tdF9MZ
oeNniQQCwVqpQPD//jS7f2ts1UYFuTO6OmilUIdkjzVpVay5LhGVOww21SEL
f5oMD9Vczw9Qv40gOqTP2ys/78UqiNHxS+M9puqQHaq6Nt9jFOTv7R0C96/V
IV+dTiUUbVCQVFOdG/MTdMiRnLOxwdEKEjDwt+edCzrk9e4/N/+JVJAe3MQD
Z5/oEP00t/Fl6xXkwzvBmB4/dcgk5STDvLUKMuVAjti2lS5Jzvoh8l6tIJY3
VvFXrHWJ1Pmk5O9wBfEe0jnio6suWZ/aSuvacgXp/TLM6fBUXfL+Q1rloSWa
+0lfFX9aqUvyz79O7h2qILY6S5Nv7NYlZ+ZX6ceEKIhJ1JbWQzJ0yWp/RdsD
sxVkjel335E3dImrzuBNc4MUZN1Dm0s/y3TJNcvJY39P0azHjprwvvW65KSN
xYgRAQrSkxt1uY0eR/qeMHbz9lGQyc7vsrZacETuuqt757EKEtHXc+mJIRxx
Tz6Ue9JTQW6/GGocMIEjH3L1Sr64Ksjy8H/zs+Zx5ExxpOv3oQoSvvxrQEoE
R4Ztcnyd7qQgVSV1f5z3caTCynSOlb2ChE1K2rcunSMTHr3MnG6jWb/UMtOp
hRxx8Pgr3K+7Zv07Nm7+8Jgje6aQLbqdFaTpfv05vS8csdDrcmpFO816FJyI
fdvEkYh+3bYdU2ieV/fu04DWMvLo7YXfsVIF4TcGr17TTUa2eBWkWqrkZEfe
RZcRjjJiP3f9hOhaOdndffPvfHcZuSNMP33wm5xYWPeZ/jJARhJXuS+c905O
ouY/GXBqvoysMMogdaVyMrFs3ZDO62RE6+WixwMeyMmjkKGmzjtl5OubGY/7
X5eTswu89ur/JSM149d+/nFRTu6V9RwenyUjWSWl56ZkycnR2VefFRbKyJI5
R8tik+TEdOSqyiPFMhL3XS2cfUhOzIl/j15vZCShvOMl9Q45mTDM1Gx+pYx8
+aBK8oqWE8Ws4PmBahlR2m/x8V4hJx1zUg6p5XIikc2brBciJ/Gd5w/07iQn
nibNoyKnyMnr/WOeBFjLyb6ocVkp4+RkgVu36nb95cThm0ovxrXlT/w9/h2+
h/vgvvgd/C6eA8+F58Rz4z3wXnhPvDfWAeuCdcK6YR2xrlhnrDv2wY/uC/YJ
+4Z9xL7epvuMfUcdoC5QJ0Np3aCOUFeoM9Qd6hB1iTpF3faldYy6Rp2j7tEH
6Av0CfoGfYS+Qp+h79CH6Ev0KfoWfYy+Rp+j76ED0AXoBHQDOgJdgc5Ad6BD
0CXolB3VLegYdE2L6hx0DzoIXYROQjeho9BV6Cx0FzoMXYZOQ7eh49B16HwI
1X1wAFwAJ25TboAjjpmr1jm+1Wafn17VM2JxoTb7vnncZB+ro9rs/hUvQ55P
XKvNft97luKpYJI2e757HgdEXZy02fObdHYWZxpos/fb3XbMnMwqLfb+L8YO
zzC+q8XWpzZV4PTrlBZbP69ORX5OkVqMI5Hmvq5vArTY+j9xuG78zUGL7Y92
l8hPPnIttn851zps6/xByvbX4gz3ami+lO3/7ITQjed3SVl9iOYmdY2cLWX1
U7rtaYeEwVJWX/7ai68K2khZ/f3at8Ez84OE1afKSzv3aK6E1a9ThvpL8WYJ
q2+V49aEIZMkrP6TyOOJb20krD/09j2MzG0Us/6JGVnlln9bzPrL+fXOU+UH
xIwj8eET5vUPFrP+HCYY2T3JXsz69y/ZSxsbtYj19+1rUYeu3hKx/v/LfKL7
nHgR04e4E5639CeJmH4kvjaZeclMxDiy1NfcaMoXIdMfv7S4HVWZQqZPu6Ub
O85fKmT6pXpzNeeWo5Dp27K+T7+pGgRM/45N+1otuihg+pgnNYy6v1LA9FP/
YYf3vk4Cpq+uv9rnd/vWzEN/k+bmBX+Z0cxDn9c4uPf6/EzNF1D97p0/mtfx
VPPQd9lh4YbeeSoe+v+jMDnSzVzFgw/lx8tdbHc08eDHuiOF/O2aRh4ciVtQ
1bfRp5F/RTkSL14r/+vsHx4cse6tf3av3h8eHPGcUVp3Pvg3D46ExkwZ9Sqv
gfemHJmp6J7zUqeBB0dKU53nb/Ku58GRc3uPPMg5+IsHRybeVwisXtbx4Ejy
uoMp2e3r+DOUI6sn2/zdbkwtD47ErTl1r11kDQ+OkKa5o0MzfvLgyBEfg6gX
j6p5c8qRNlcH+3K1VTw4Mn7x2bvpiip+O+XIgKsr790mP3j4j4AOKvXfft95
cGTA5FeWvaZ+5cGRrjvXfJ/j+5kHR/q/UT2ZN/gTD440RiwMtGr9gQdHMgLH
FawvfsuDI/ySIveQhjK+knKkt90Ji4/dXvArKEdywgyCIro+4ZdRjrzXyr7U
4ekDHhzZ9Dk62UxwnY+kHDlYN6O4fegZHhzp6XbBXzg1TgmO9N/b6qfk1CUl
OJKe1mnhLMs7SnBk2NTXp/d7PFaCI7V5obERY18qu1CO2Bxp/vjd960SHHl/
58vqcIePSnDESRobOYJ8UcL/ans8a221vkIJjoTdXLFzZkOVEhxZk+JhWOVR
o5xMOSI941nxJbtOCY5c0z+aFmDToARHpgSNumCV8UcJjrjdPjza3EqlTKEc
+ZSYM7RsQ7MyHRz5k9JB8VBQ2J5yxDl269rqNGEhOOI/vfLCjQGiQnDk14Rz
+dkhokJwBJ+DI/g+OIL7gyP4fXAEzweO4PnBEbwfOIL3B0fc6PqAI+50/cAR
rO8oyhGsPziSRPcHHMH+6VCOYH/BEey/OeUI6gMcQf2AI52G/Vdf4Ejsr//q
byLlCOoTHEH9giNvaH2DI5No/TdRjsym/XGScgT9A47II//rr1jKkRG0/8CR
obQ/d1GO+ND+JZQj6O9jlCPof3BkItUHcMSY6scOypFUqi8JlCPDqf4soxxh
+kQ5Av3aQzmSRfWtkXIE+reEciSP6iM48oLqJzgSTPUVHFlO9deZcmQM1edj
lCM9qX6DI3uovoMju6j+gyMxlA9fKUc+U368p39W0r+PoP9OQb+H+/Sh9wVH
ounvdqPPcYo+lxt9Tnf63OBIW/pe4AjeGxw5TtcFHFlK1w3rKHj737qeoOu8
j677EroP/nRfYuk+Laf7Npju4xG6r+DILrrv4MgxWhfgCOoGdYS6Qp0507ob
QetwL61LcMSF1q0lreONtK7BkTa07hNoH5yifQGOwH+BI+grcERN+w59iL5E
n8L/oY9f0L4GRyS07332/acDc6kuQCcsqW4cojpyhuoKdAa6Ax16SnUJOgXd
go7BH0PnoHvQwZdUF8GRvVQ3oaNdqa5CZ+9T3YUO+1Bdhk5Dt6HjFlTXofPQ
fXAAXAAnwA1w5DHlCj5fQLnTEPPf9zHfjKL3x/yD30+jXMPzTaLcw/ODi3g/
cBPvj/kMHAF3weEJlMtY3z6U21j/j5Tr2B87yv3axP/2D/Ml9he+ARyBr0B9
wHeAI/Al4Ah8C3xMFPU1dbQ+71Dfg/oNo74IHMH8DY5gPgdH4LvAEfgycAS+
DT4Ovs6O9udH6vuCaP/CFy6n/Q3fOJ72P/KJKVQf9lDfCY4g3wBH4FvBEeRW
4Ah8LziCfAU++T71zdOp/v1FffUlqo9m1HeXUf2ELw+h+or8BxyBr/ei+gzf
jzkAcwH0HfkT9B9zBfjQl84dPyg/9tO5pI5yZCSdW/QpR6R0rulLOYLcChzB
XASOYG5yoxzBXAWOYO4CRzCXgSOY21ZQjmCua6Z8xtwHjoTTuRAcwdwIjmCu
BEcwd2IOxVwKjmBuBUcw14IjlnTudaEcwVwMjiC3AkcwV4MjmLvBEczl4Ajm
dnAEcz04grkfHEEuAI70o7nBJMoR5ArgCHIHcAS5BDiC3AIcQa4BjiD3AEeQ
i4AjyE3AEeRWYyhHkLv8ohxBLgOOILcBR5DrgCPIfcAR5EITKEeQG4EjyJUw
HyB3AkeQSzlRjiC3uks5EqeY5CoYLCeW18KzVwyWkYsnuMyGQXJyepmo4hKR
Ecevc7691Vy/uOOf2OwqI9mhM1X5muu29akRvIeM7H+y5WOs5toz9IzPGi8Z
Wfla59QwzbU45v7Lc+Nk5NHqNOfKgZr6vFdR8s1HRkyqXuRv01zPWfJXY2eN
Lg14d9Kok+a63QyD9qOmyEjzhpzAQwPkxGuWUfnyGTJiV+C1ndNclxh2sU0I
1sz/3tOyQpzk5Jdy0On8eTKy2HjZ3cua/ld3sLV9tlBGbAae+SzQXLev8w+t
WCIjOt6f5f0cNf18/V5/dZiMyB+vcw7oJycp7V28dFfLyFXH6J2L+mquv5mE
tVovI4JRJwThDnLS5/eKlYpoGem31fboIns56fJKYaK1UfP7wYZhAX3kJK3H
BLuGLTKScfxHXL/ecnJ7+cKl73dodPZsRaPQTk6C+tqfuxkvI/+YVlxV9tKs
xyFL5cl9MtL249xfC3vKSb7/lsBVhzS6WLrhmJ6NnDz08fR3PyIj5qbix8c0
+vZpsDyq1XEZSflrdKK5lZw4tOtx8m6SjEydE6ZIsJCT2PNntkelyohRH7t+
InM5OekQquidISMbnjwyn9RNTpIcnv98rNHpiw9mVSeZyknlIPNWi89qPs/b
nvbORE5WfhvSW3JBRkY/SJjZpoucPLG83mNHvowsWb7Jwd5YTs4PNihupZSR
y8pam+Ed5ST8x6CamH9k5OufHkGeRnIyKkIyp+a6Zn/7m1Q6G2qeJ7NC5Fek
Wf/S0E82BnJyNtH2YNZdTT0YB0/T0dfoW8E5gUDDBcmZX8ue6cnJzDSr1sMf
yciOEf8MPqiQk/GV74+sf6r5/baGD71kctL91Z8Np5/LiGrB95F1OnJiNKR/
wuNXMo0vrbi5U0tOLNp2yP/xr4ycNAud1lmiqT+XpwWqdzISVBzW54hQTjKG
BkQKP8mIwcMLfvrNMkJODi/7/VlGIlccrFrZpOHjq4rsT99k5PWmXh2f/JaR
IRmBz2/+0HDw+sCabvUyUn9vjH1itYzsDnVKCK5t+RN/j3+H7+E+uC9+B7+L
58Bz4Tnx3HgPvBfeE++NdcC6YJ2wblhHrCvWGeuOfcC+YJ+wb9hHL7qv2Gfs
O+oAdYE6Qd2gjlBXqDPUHeoQdYk6Rd2ijlHXqHPUPfoAfYE+Qd+gj9BX6DP0
HfoQfYk+Rd+ij9HX6HP0PXQAugCdgG4wHaG6Ap2B7kCHoEvQKegWdAy6Bp2D
7kEHoYvQSegmdBS6Cp2F7kKHocvQaeg2dBy6Dp2H7oMD4AI4AW6AI797du/V
26nl8+O/Go9/cmj5/t5xG3wT7Fruv8TzztbRNi2/n5Iwa6PAsuX5LCeH7Mg2
a3n+nbuWfZrepeX9VsTtfdKmY8v7B3pNOn6lXcv6PF11c/fiNi3rl715VLWp
omV9D0cXiR7ptKx/pysxrWMkLfsTuqpnkJOgZf/GOtxyqWjk2P6aCQsaT9Rz
bP+T0m89DqzhWH28TK4xMqrkWP30rNir//Qrx+or/eQo+f5PHKu/nTl1Yye9
41h9lnVIs+lWxrH6XTLwQvmP5xyr77AvicUFTzhW/7tniux3P+RYfyi6ZvnN
v8ex/um2aMd2zyKO9ZdOqwQT2+sc679v4e/921/hWH+uc1i3Sesyx/p3e1l0
feMFjvW3cx+dmvqzHOv/jAf6N/9kcUwfZgkOKCUZHNOPr86LrQxTOaYv/xT6
eNklcUx/Op4uWTn2GMf0SXu9y++ViRzTrzGC24Z/H+SYvtXMcOtcvpdj+rfX
ZIyfTTzH9LH2hpXeyh0c08+3eZd3FG/hmL5W3N5rYr+RY/rrf+cedySaY/p8
VqJ30EAz70G/r/4Vq79vDcf0fZjwdYHZSo7pv6tur48Xl3OMD4/9G+9MWcIx
fpyP7pXXKpRjHOnaW/jzdgjHOOI2TJy/ew7HOHKzRmvi3Fkc48inCmP5qBkc
40ja9C0dBk/liAfliJZp4ZUBgRzjiEn+uOHD/TnGkc+J399P8eUYR3z5Ma9i
vTnGkcCxZP7lsRzjCNcUUywazTGOtOv32tVvJMc4Ym5QLc535xhHhnqMH2Hr
xjF/kHl84YhsF45x5Gn6pkGuzhzjiEvwaf/yoRzjyGyT808PDeYYRxbO6vlp
ykCOcSS2s+9FByeOcaT2crcNHRw5xpHQzB5LW/flGEfqihPPGdlzjCPb+7mF
2/fmGEdsGld/mmzLMY7oTjPpkdBTU++UI3+J40O+9uAYR8ICsx6OtOYYR74G
3YlUWnKkiHJEa9Xxo8MtOMaRadGTvcq6c4wj+i4b0zd34xhHdv3Ufj7CjGMc
8e/QtcbIlGMcMTgV1E5lwjGONHue86/twjGOGJkMK1V35hhHjsSsTTbWXIMj
kyZ3fuVlzDGO1IYbbo7vxDGOHJh+UPm1I8c4YjZLb6ev5hocUVa1lz7twDGO
iAfE9pqruQZHPHtP1W+tuQZHOt19ln/biGMcsT7k3fug5hocWZUUtGy15hoc
Mfj7+pbFmmtwBJ+DI/g+OIL7gyP4fXAEz5dMOYLnB0fwfuAI3h8cwfqAI1g/
cATrC45g/cER7A84gv0DR7C/YyhHsP/gCOoDHEH9gCOoL3AE9QeOoD7BEdQv
OIL6BkdQ/+AI+gMcQf+AI+gvcAT9B46gP8ER9C84gv4GR9D/4Aj0ARyBfsyk
HIG+gCPQH3AE+gSOQL/AEegbOAL9A0egj+AI9BMcgb6CI9BfcAT6DI5Av8GR
EVTfwRHoPziSS/kAjoAf+BN/D47ge7gP7guOnKO/i+fAc+E58dx4D7wX3hPv
jXXAumCdsG5YR6zrJLrOWHfsA/YF+4R9wz5iX7HP8A+oA9QF6gR1gzpCXaHO
UHeoQ9Ql6lSX1i3qGHWNOkfdow/QF+gT9A36CH2FPkPfoQ/Rl+hT9C36GH2N
PkffQwegC9AJ6AZ0BP4UOrOI6g50CLoEnYJuQcega9A56B50cDLVRehkONVN
6Ch0FToL3YUOw99Dp6Hb0PF9VNeh89B9cABcACfADXAEXMHn4A6+Dy7h/uAW
fh9cw/OBe3h+cBHvB27i/cFVrA+4i/UDl7G+4DbW34hyHfsD7mP/4Auwv6nU
N2D/4StQH/AdqB/4EtQXfAvqD74G9Qnfg/rFfI36hm9C/cNXoT/gu9A/8GXo
L/g29B98HfoTvg/9C1+I/oZvRP/DV0If4DuhH8g3oC/wrdAf+FroE3wv9Au+
GByBb4b+wVdDH+G7oZ/w5dBX5D/QX/h66DN8P/QbcwH0HXMD9B9zBfiAuQP8
wFwCjmBuAUcw14AjmHvAEcxF4AjmJnDkMJ2rwBHMXeAI5jJwBHMbOIK5DhzB
3AeOYC4ERzA3giOYK8GRAjp3giOYS8ERzK3gCOZacARzLziCuRgcwdwMjmCu
Bkcwd4MjmMvBEczt4AjmenAEcz84glwAHEFuAI4gVwBHkDuAI8glwBHkFuAI
cg1wBLkHOIJcBBxBbgKOIFcBR3rT3AUcQS4DjiC3AUeQ64AjyH3AEeRC4Ahy
I3AEuRLmA+RO4AhyKXDkf88/LDrbZ0+2kbLro5Y3/UZqrsGVS6tyRhporsGV
CVfCt1/oIWVcyRtV39lJcw2ubA+aqY63ljKujMsa07vISsq4cujB8XMvLKWM
K13Vx+JuWkgZV658+n51p7mUcSUhbv14h+5SxpXlC87wOWZSxpXETWSn3FTK
uLL66dDhw0ykbF7skmQZ7N1ZyrgisH32i+8kZVzx9NjRpN1ByubR38Nq16Qb
ShlXzEqM1vUwkDKulNqHacW0kTKufJtRY5zfSspyVVnUp1t3ZVLGlYs+7fUv
6kgZV5ZUXxFES6WMK1uiDyZaiqSMK/4j7lQnqyWMK10ThdqSRgnjCu8+u3xQ
vYRxZeLjtMQxNRLGlQpTUT++UsK4YtrJNo/7JmFccdq1zjHnk4RxJc7laV6/
dxLGlbOtT4/d+1rCuDJifBfdh6USxpUNM59Xf34kYXmHQcDAjq/vSxhX/rxy
jc8okjCuhA5JnxdwTcK4svT0o7PvCySMK19yX0d55EkYV7rdTi7fekbCuJJn
+ORXWoaEcWXTtkfXTiVLGFfuyt8Frz8mYVwZ9Miwpm+ChHGlXdvgiJt7JIwr
7W6nWPTfIWFccb99Qh29UcK4ktXYyiwzQsK4cvXp4fRzKyUteZaRKPfQEgnj
yoEc1bTJIRLGlaG1026qgiSMKzq17XXXBEoYV+b3tXcrnSBhXJm96dtRfS8J
40pu/3NONsMlLK/7EsT3NRsiYVwhp6Ny6/tKGFcmWNz+nN5TwrgStuBy5dDu
EsYVpX1IXVYnCeNKykfv7qK2EsYVs3PLUuw5CeNK9ePxp4cJJYwr9jLtOfYN
YpZnXoz1EIsqxYwrHZrXnsn+KGZcedel8G/nV2LGlTdOVd1zSsSMKxfcC73F
RWLGlUj+ypJ+SjHjSvLhRZfdz4kZV9Z6uy0eki5mXElS/XOv7TEx48rKgHUG
d/eJGVeWdHLcHLxNzLgyT/Vq8ftIMePKLts0Q5cVYsaVeIH1PzHzxYwraz+5
X0mfLmZcuXh5QdA5XzHjiun0iD/HR4oZVxxjml8sI2LGFYdXrQNt+okZV7ZE
xD+7YS1mXNE+2TNtRBcx48rNyCCHTH0x40puXOqTP1pixpV+tYt/9WoUsTy/
tZWLekSliHGl5EPRRI/3IsYVtdP3ZfbPRIwrax+9uia+I2Jc6bHatuBygYhx
pe3p8ufTckSMK2vn7dtTkSRiXFmhPXPhzIMixhUy0Prb9W0ixpVRJlHx+hEi
xpUxPu8qPZe2fG5gnBofGtzy/W2L+rWK9G+5v7Lzn9/rR7X8/te8XdXz+Zbn
C4kt2eNu3/L8oVbvNrY1b3m/MjuPpffbt7y/3XQtySquZX1Gnj/2zVAlZOv3
TJd/k1QpZOt7YGrWYct3Qrb+Nfkb3xx+LGT7o1xttUjrppDt33fjUoNZeUK2
vxdn3z+cly5k+7+u3PWl5IiQ1YfpsZiUEXFCVj8PahveRkUJWX2F7befl7tM
yOqvcafK6lOwkNWnc7fZstb+Qla/Yw/eEjuOFLL6Hn/9ga7/ECGrf5sBsR1X
2QlZf6jkfk6HTIWsf6RmbUMuthWy/iq4WaN8KRWy/ktMTfBorhew/rT51q6r
xVcB698zfo+mjXslYP29akuSbdR9Aev/zzW52XmFAqYPtUdj2//OETD9eH6s
JN45ScD0RaWzZ9Ke/QKmP11dvmT+3Cxg+vTwgfjB5DUCpl/x1vriZwsFTN+W
FlnsnzpdwPRvRA/jVw3eAqaPG7KXW550EzD9XD1zyKMZAwRMX7PGlQ1x7Clg
+uu2v7HIxETA9PlylUtZV30B0+93uc4fB0oFTN//bBt9qKyqmYf+rxlrp7f+
WTMPPgzt/Ew/oKCZBz+C6z7sWZLUzIMv1pbTttzZ1syDP/OG21TMXtbMg09W
s0LzPQObefDr2ZHmX2GuzTz4dvH52ZOVPZt5nIfs/nHlTm67Zh58THMULC9R
q3nws/3JvmnDPqt58PXGJq/lshI1D/7aDzz4r90lNQ8+F9+qq8o5pebB77Wy
P5n7d6l58P2gu5Hx2zVqHvxXP7joGD9HzcMfVLwLaMiYoObhH7aPjZ/Q31nN
w19s62/l1MdWzcN/SGd32HSkk5qHP5n/7nDXKF01D/+ysp3547J6FQ9/4zt6
yrzcTyoe/ueysc3RVk9VPPzRuCFHTcuvq3j4px/K3/Eu51U8/FVbk6MxFskq
Hv6rjdRgTfwBFY/zEMfI3+Wbt6h4+LeEZTJrvbUqHv5OKTTb1n2Rikeu8Oie
o+fdIBUPf7jgw8KNOhNVPPzjTr0e41+OUvHwl43LjY67DVPx8J87x/r5jXLS
XFN/OiZm74AftiqenYf8JPW9LFQ8/O0th8vdFV1UPPyv+/6Tg7Ybqnj442iF
waHTeioe/rn0jChqua6Kh7++nJ5k9Eas4uG/40vfzKpSN/Hw58MNr3sn/2ni
4d97LjTOlNY38fD3xVckZvLaJh7+f4bPwSH51U085oPVe9JD21Y18ZgfRgZu
1W5X2cRjvuC0/u1b+KOJx/yBzzGv4PuYZ3B/zDv4fcxDeD6ch+D5MU/h/TBv
4f1xHoL1wXkI1g/zHNYX814RXX92HkL3B/Mi9g/nIdhfnIdg/zGPoj4wr6J+
MM+ivjDvov4wD6M+MS+jfjFPo74xbxvQ+sc8jv7AvO5N+wfzPPoL8z76D+ch
q2l/Ii9A/yJP0Kb9jbwB/Y88AvqAvKKS6gfOQ5qpviDvgP4gD4E+IS+BfiFP
caD6hrzlJtU/5DHQR+Q10E/kOfuoviLvyaf6izyolOoz8iJrqt84Dwmh+o68
yYbqP/Ko2ZQPyKvAD+RZ6yhfkHeBP8jD3lM+IS8roPxCnga+IW/LpvxDHgc+
Iq8DP5Hnga/I+8Bf5IG7KZ9xHgJ+I080pXxH3gj+I4+EP0BeWUf9A/JM+Avk
nfAfyEPhT5CX9qD+BXnqEepvkLfC/yCP1aL+CHmtmvon5LnwV8h74b+QB4+j
/gx5Mfwb8mT4O+TN8H/Io4upP0RebUb9I/Js+Evk3fCfyMPhT5GXw78iT4e/
Rd5+kPpf5PHwx8jr4Z+R58NfI++H/8Z5wCLqz3FeMJ/6d5wnfKP+HucN8P84
j9hO5wOcV2B+wHkG5gucd2D+wHmIM51P8Hk4nV/w/XV0vmH3p/MPft+Gzkd4
PsxPeP5mOl/h/TB/4f316HyG9cH8hvXDfIf1vUXnP6y/Dp0PsT+YH7F/fel8
if3F/MnO1el8yuqDzq+onzV0vkV97aLzL+ovns7HqM8QOj+jfjFfo75X0fkb
9Y/5HP2xjs7v6J8UOt+jvzD/o/+QD6A/kR+gf5EvoL870vwB/Z9P8wnoA/IL
6AfyDegL8g/oTyrNR6BPyE+gX8hXcB6C/AX6h3wG+viV5jfQT+Q70Nc5NP+B
/iIfgj4jP4J+I1+CviN/gv4jnwIfkF+BH8i3wBfkX+AP8jHwCfkZzkOQr4Fv
yN/AP+Rz4CPyO/AT+R74ivwP/F1G80HweRHND8Fv5IvgO/JH8B/5JPyBO80v
cR6CfBP+Avkn/AfyUfgT5KfwL8hX4W+Qv+I8BPks/BHyW/gn5LvwV8h/4b+Q
D8OfIT+Gf0O+DH+H/Bn+7znNp+EPu9H8Gv4R+Tb8JfJv+E/k4zgPQX6O8xDk
6/C3yN/hf5HPwx8jv4d/Rr6P8xDk/zgPwfkA/DnOD+Dfcb6A8xCcP8D/43wC
8wHOLzA/4HwD88X/nn+AJ/j/sv4paWo1KEVErkx/r5VXqk0cu2Y/TnwgIg6l
HWTq09rk+IAi/2G/RISPkku9NmqT+gleaXbGYs3nDffSpmiTXrUvQ+c7i8n7
n96xxo6af5+d3aCeJSYr3/Q8kKzQJsvN2w6t2CwmpY4r88Z91CJuA62/Ds4Q
k4o2w390vaxF4vymTK55ICZx1QVbOu3VIlEdPM60+ykmvj3a93NfoEUKSu1u
pmj0anypdXnGcC1yQW3rlK3Rn+7rvlR6d9EiodqyBQ4+ElKXu77WuV5KIo3O
73dYLiFFmUbV64ulJGtQ3IVzmv42cfcaYJgmJS5b5xy7rOlPv1CTcMUGKTH4
5dowukRCUkavPr1wipR0/7tuwIIqjR5+tOvvMkBK9K6EX+qkqb/ybuPy92jq
DOuJf7dxYaOFo7uUiIOHCZ7dlZAToXrylJlSErzn/KlXqRpdi31kdz5CSvJz
0uWbNTo0fGWUa9BhTT0sVI0vnyUhu9IvvsnOlZLEuQ+eiDS6GdrrZ8TJEimJ
tp9jXq7R4bLDJZuGVEjJa3En9VGphJzMX+e6XluLpCwezA8oF5NOc69+CTHV
It0tTN8WaLiita3fQemglnV+6zN06ugJWuRmZNkM5S4x8aHr+t2jt8d4DQdT
/M8L62K0CL/2ZZRwioZrVzMO+R7RIia39R+UDhdreNt0beF5LTKq//rc97Zi
0nD0UT/+vhZZE3Q+olcHMfGcNW53kWZfvwa5d7wiEZMZ6+2W66k01xlbW6VW
i0jCoLmz9A20Scet45ZU/isipOjZm0c9Wupsi+SGn4+zNun/sYPd5UIRcR6w
xvaAnzY5tvDNE58zIpI1/drlxAXa5MWSlXNDk0XkVOBs79nR2mRL9b5brRNF
ZOq2E/a/DmiT4IEBYrJHRDJHJO4ZmalNmgfeGSParvEl64tS5lzVJmfrrzRP
2igiC36O3ztaU+f9F8wLHxstIvXDV61Qf9cmw2fG2Lz7//oCfdLvaZ/Zhe10
2OclnYtjHlvrsO9/nF506fwQHXb/oL33hXPG6RDBoP9+/82OrS5fZuqw5xO9
+Dp3ULgOe/59k319p27VIS/p+y0S1733OaLD3n/wto/lJtk6bH3OnQ/rU3BV
h62f77+BW/o81WHrazXo4/lVn3XY+pP7FmGH/uiw/Vk0uE/ULrku27/yuAFx
07rosv1NbX99rE5vXbb/g2aUhG521mX14btTsPfDeF1WP12+nw3qOFOX1Ve5
mF9ts1yXjKD1F2PfGGYUq8vq89WdpT/e7tNl9Tvna8TyTcm6rL6X1gUfll/Q
ZfWf9aOmcuEtXdYfFvsSfp8u1WX9E70kni/+rMv6S36n3LW4QZf13+OjRzZn
6XCsP+GjzWn/fl+745+2Vhzrb7vMoJT9/TUcov0fOEydpdL4qFSqDxOHrRrt
pvE90I9fW+ZVLdb4FuhLxcdv4shlHNOfeaG5NUs1PgL6JBzX12qkxhdAv8Y8
36StreE89G1qfVpd8mmO6d/srosm2BZwTB8dTx2OPnSXY/o5c8PPN99fcExf
y1L5W+ZfOKa/066F7B6u4R70uTY+5tAoqYzpd9i1Bw6D2sqYvt8IvnemjamM
6X/Pb14Lim1ljA/gyP/2yf/ypLB82svup1v6/FLxeDezSS08mb/T6vFUaQtP
TFyP7LmdocV4At0CT0ZzvS48aZAynkSv+5ntkSBlOpe68eWdXYOkjCfGu1be
3f1cwngCLoAnZaOeNY9vJWE8sbqXG/fwpJjxpNOB8RO2ObV877fy8M7JRSLG
E+ePYWHGfiLGk/NqtyeH3woZT0wdYzIz5wgZJ9wz+9zu/F3AeLLK+krf7BAB
48mCdl18fO438+BJqOW20q2X1Dx4svTr68rQYyoePBlnd31Y4JomHjzZ7hak
fWhUIw+ePPbrv3FKmz88eLLs5jn7W0UNPHhiI1tl83JZPQ+erFrjYrm2jcYa
UZ5UX1XGLjpSy4Mn4TfJktEda3jsy45HR6+uj67mwROBdGTlnKxKHjxZLZ+b
lNPzOw+eFCrd0w1XfObBk+DwIdZttnzgwZPdT2K1B099w4MnZxfGXR9R9owH
T0zb7X8UcO0uD56EJxmarXiWxYMnZwhn+rnhohI8EQZ6PDTdW6IETypUL3K/
zf9XCZ7cevjrn5k5n5TgyU7r6RtvjPyhBE8Mky83hbvUKMET30k738Ql1yvB
k2nfOw3S7tGkBE+mWt8r6OggKARPMicfbWx7X1h453/+fwfwBJ+DJ/g+eCKm
9wdPWtPfB0/wfODJEPr84MlG+n7gCd4fPMH6gCdYP/AE6wueYP3BE+wPeIL9
A0+wv+AJ9h88QX2AJ6gf8AT1BZ6spfUHnnyn9QmeoH7BE9Q3eIL6B0/QH+AJ
+gc8QX+BJ+g/8AT9CZ4sov0Lnqym/Q2eeND+B0+6UX0AT6Af4An0BTyB/oAn
0CfwBPoFnkDfwBPoGHgCfQRP0qh+gifQV/BkDNVf8OQd1QHwpAvVb/AE+g6e
QP/BE/Dhf3nyf8ZoViA=
      "]]}, {}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{-2.3025850929940317`, -2.3025850929940317`},
  CoordinatesToolOptions:>{"DisplayFunction" -> ({
      Exp[
       Part[#, 1]], 
      Exp[
       Part[#, 2]]}& ), "CopiedValueFunction" -> ({
      Exp[
       Part[#, 1]], 
      Exp[
       Part[#, 2]]}& )},
  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]}}}}, {{{-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]}}}}},
  GridLines->{None, None},
  Method->{},
  PlotRange->{{-2.3025850929940317`, 
   3.6913763343125234`}, {-2.3025850929940317`, 3.6913763343125234`}},
  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]}, {-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[
       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]}}}}]], "Output",
 CellChangeTimes->{
  3.397500000255718*^9, {3.588269903812025*^9, 3.588269914302039*^9}}]
}, {2}]]
}, Closed]],

Cell[CellGroupData[{

Cell["Lin-Exp plot", "Section",
 CellChangeTimes->{{3.5882695143414793`*^9, 3.588269531921504*^9}, {
  3.588269562571547*^9, 3.58826956480155*^9}, {3.588269955412097*^9, 
  3.5882699559220977`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"obj", "/.", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"u_", ",", "v_"}], "}"}], "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"u", ",", 
       RowBox[{"1.3", "^", "v"}]}], "}"}]}]}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{3.3975000053630624`*^9}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {RGBColor[0.24720000000000014`, 0.24, 0.6], PointBox[CompressedData["
1:eJx1vHk81dv3P66SKU00GDJlnmWIzjmchQqlSUWDypCoJJVSV0mSRlOZo2ie
iEjGLtIgDaY0UKG5JFOSpK977bXev/t5PH7+eT/O47zPfu3X3ms9p9XjKrlt
dPAYKiAgsGu4gMA///vwwcCf+HSQFtNcbOXuBaVcrc6Agc8Z2tb2pwLWwY+m
FesPjpgOTxt6y9pKvOHx9rzp30WnQ3LRn9Jv0zaC+OSy+L+Fp4P/KL5xbacv
CFaYHf4oOB1k9m6Iu+G5GV58HjbLd8h06M+pk+/q3QKtx2Gk029rUHgg0To8
YyucGGMyMbnHGlZ2qe2MOegPJ9znZlt1WsPyXc6vdxzaAVplslzbr9aw8Y+y
fMH1AHDqtxVPf28NF4VX7IkeFQgtq+KP+r22hhubPm/i2geBZG+9VdJTa3h9
VnHXvst7YNnAE1UfW0PRcKO70up7IXD4JbWxd6xhiXBhjXBJCGypa9q6qtAa
hHJi7QMDQmFOtqPa2GvWcFZY6WfFkgMQpJv+Su28NYQEzUx1WX4IOE8956Ue
t4atFmLPHu47As7q1YZ7IqzBOKDtwt0X4dB1td/+brA17Lx5IepoeiQUF15f
77d14H1/q65qEz4K2QvXrjnoaQ0N01/ZiAccA+MEdXnhpdZwW1NLY79oDHTG
H9nVamcNelYOxySvx4KNX9Z24FhD8LvlCVt3x0Nft9rIfk1rOJ1WuTZ4XSIc
OFZlqSFtDd33lCoVtifBtbstasXC1tBTzgu1vnQCrn7+9uTOdyuQdOjQ2bEn
Bao8AjeZv7GCXLHsSIXSVPi0ZLGqaqUV5P3Sv6kidRr+umymtrvQCpbvOaF3
IuQMCBx5nWl/wQqGzJitc07kHGxe2Tgq4pgVuNVl1i87ex6cZJOO2ARawcnc
uyovl1+EbEXNvf5eViAf7BQwT/cyKG4zX6joYAWBLiH7amXSwHuf1BprrhU4
pJafDFO9ClZ23rrNylbwM0D4pP35DNDonKHcP8IKhso1RB+oyAQvse7y+E5L
eCLhP1dQIAsch/dcznphCfvOvZKbMSMbQlc+Xz6/xBLmjhPpvn/8OuxVV/Tz
PW8Jngf6Zo4WvAGnZKbEjQ+zBP8PshV7A3MhUtdko+VmS9jfkDkzakQ+LDrX
n/bd0RLUPztwYy8XwIrsr+LGXEvoDMmPfLeyCHZF1Nr3y1uC3mN1k9uqf4Ov
fL2J41BLKH1QtHxqUDHUqLnFmb8DkPR73LrHvwRsRd7b5NwFaDDpT6rcXgo3
BJtUSi8CeAgdcVUJuQXbJ6ZJuB8GuLRsptnWhDJYssKjL9F74P/vtt03I/c2
rBt9t2b9HIBJnzSFcpvuQKSERNRTXYDjyQnD3MbdgxK5T4aNIwHOP+5o8Z9f
DuM63HaOrudDWfsss5yY+5CR/jYgJYEP96f21lS8qQCdRM9Qfyc+qIe7Fy3l
PIQtFfnl8eP4sPUe51JH/CO4kq2xW6TKAq7Mn31H5s9jKKwz/HL/iAVcV3t6
SzmnErz+tl/x1sYCMr6nPvy2sQr2OcbqLx1qAQu9I7cm61RDcGDMHd1Cc3hj
x3Wp+lINb8W/Ra7Zag7PY1SHaKbVQK+8grCInjnMrRlZzvGthdjHBpcnvOeB
5ZtU91jjJyDrsFUkLpkH3LWvBW//fALx/pyssEU8GPvb+o7d33Vw7lSQ7R8x
HrxfcFfyVMhTOKiXsaGtmAtqqj4aM+2ewaa5cys9tnEh5P7ExIviz+Ho2kzV
1dpcmCjS28l99Bxu9mRrtb3mwON5Y1atDXsBBz57nx4VzQG7V9FOx+3qYe/R
Z8vKbDjAP+jtM21oA2RpxEye8Gsa9FZYjr+U0wD9LyOqRdKnQUFE05aFa17C
7kM3bFNdpoGk0IwZSWNeQXlvmtdbiWkQODsyvyX7FbQ3bpd9WmYGjVp6blcd
XkOwj+G8wG1moFE6YazDp9fAS8rrfqVuBocfTFqjzGuEQhU30f5nppCs2+sU
vLsRlE3PBDceNAUv9YK1ITcb4fT7CtfDHFPwF/lx9EtPI8x1vnBx2JepEJKe
mbpLrwm+P+a4zD0+FVa8jD4puKoJts3xCPedPRW4274bzDvUBNtnJ/A3/jKB
mOUZLQYZTXBDKnTPvMsmoLu593JwZRMoqN51n7DcBDK/Laia/KUJyrWP/rgn
ZgJ5d2v3ff/TBCOtPeZ55xvDa+slLW9HNUPz0+zA4euMYbNzrl3TxGZI+OdP
2hhWNLQrNck0w4Llgdm65Ub0vVrbwzd3thvR79cLp3LXaRjR+uNGeT+e9MyQ
nh8gk5b5Zr8h7a/gQ0LnLVND2n/Ru4dnSj9MofezcO+pfhs3hd7/fd2hg/q2
U+h8Iuw9q873GND5je0Lz3C4aACr2PluG1WlabLMgM6/J3YHb9EIA7of94ND
7q3doU/3F3zGTz+3QY/ut9ZXLCYZ9Oj+1yz4Uat8VpfqY92lmSWLxHSpfoaM
5ylxfHWovlwtr2e8rNOm+nOMOqJgZ6FN9fnRr29M6Dktqt/px4bJnhitRfUd
Ul5+O3GHJtX/YlGhw/vealB/yCh5PPGcr0H9Y+Lf/mdWkTr1l2FpwGIzbXUw
YP3HuSs4ZlqiGvXnVg2NJY5iatS/J+wPTE8IUIXHrL9d1nKfi7WqwAvW/yvz
pglnu6oQPsR9eHA5uU6Z8KM9VyCy0l4Zihi+iP8e57W4bDIcZ/gT9Lit2th8
MuHTKMO4pf43lAi/hEWTfVSNlAjfIDhlg02GIuGfy7eSxHd6ioSPs8x408es
VCD8DFoQrefjKk/4KtGc+qnLU47wV2rsatPsTZMIn8edLztbECgLyxl+hx9K
CpOJkCF8nxpbMLbxlDThv/3zTjnZfCnih8/zNda8qJ1I/PFWc5WHTucEeMv4
RS/xqbPC+AkgxfjH3kV5YQlnPPFT2Q9rScXV44i/ciMrtO2iJInfkp4NabUr
lQArxn+TTolv0P8xlvjxyI5Ju4QMxhJ/RholX6v3HkP8Gjn8Sem25aPhN+Pf
RquxZu7vRsIsxs8ppqUe0f7ixN8u4cKeShIjYCLjd4O3Tx8rXhcl/j9w7djl
Cy4i4Mj0QcrzlIBH44Shb/qgfuhpGjX1fNVwWMz0xZgR06fbxAlCNtMfkbys
PaUew0ifXGhN5OiYDwUxpl985R9qxckNgTamb8a4Bu0cLywA35j+yVi4KHxT
529+EtNHLpfKJql8+cVH/dQ4LmWP+/ef/MlMX2WIg888iR5+PtNfxYUia4Ss
uvlVTJ/B8YDCsyFdfBmm3zKMVxyze9HBD2L6LsWm9Zm4dTtfhek/gXjfIxKB
3/ieTB+6CNXnpye18FE/wsK8yknNn/ioL4vL274emPuBj/pTUfhdwaTmt/w5
TJ82zqtb9yepmZ/L9GtKk+fVxbsb+XVM3xbXJQXtlXjJR/0blDrnwp2tz/mo
jwVyP1tc1ajjuzL9XPw78exm7Rr+IqavBQKnG1oGVvKXMP0tcOX3kiNWD/io
zwWK02Pmad7jo34Pin3kMiqzjD+W6fugMP8nAi9K+FuY/heItSy+aPs3P4b5
A4GZG/2dFQv5j5l/ELha8Mqem89HfyGQ+A+B5PHFmf/A72uujXuzYOsa+n1n
dKt4VPpqWv/69an6v0a40/M1p2nMuHXIlfZXKFK5dr6GC+1/vIPWsK1lK+j9
QhIuS4V7L6f3/+n2nP9g+lIQ6B88n7iq5eNX2TkBsPNL/LOKU7xtMZ3vpmkj
TNLLF9L5uyfeOa7Od4Bidj97JksfXFM7n+5P8JDq5dyR8+h+Y+baaC2/YE/3
P6GGd8nZbxbVR6uMskHRBluqH6c1RtKPImeCIqsv/fjYHu0XAz6N1Z+M7OXX
uTOtqT4/VYwdEVdjSfUbZN/WqhwIUMnqu/Z+27QP+y2gmNV/bH7d7/gZPGhj
/XHAp6d45hQO9c+SITb79W3MoJj1V0TUwu+Ne6eCFOu/QucyoSlvjSGI9ad6
9X4LMw8jyGX9q+YRYWsvaEj9rVhvM/zXTQPqf8VLr1tHqOmDQPMgPjjNSJMp
7NOBDIYfUtUfd/H7tSCe4UtQout3eXVNMGP48237pBwdP3XCpwvxifzAZlXC
r7URn++v2agCbQzfQheL6m6WUib8G9pVoOxSrwTRDB+rW88KKuYoQjjDz+xh
H8IS5iiAPMPXA4c6ix2c5OAMw1+fW+6vOaGycJPh87PTr5esfioN9xh+G/xe
YKRgKwVzGb73y0183/lkAhgw/De8In36ROB4aGX8MGP6R8ERMA5aGH+8X7pb
er6UJMxl/JKTol56ZbgEmDH++b7PzTVEaCxEMn7anuxduVx6DCgy/sr6fEsn
bccokGH8pjFn/A2v1+IgxfjPYV+4erLrCAhm/Ogm/itHp18U7Bl/HhUJG66a
JQJujF+j8tr3FQQKgznj37vdP0xmrRKCUYyf4y9zTtgvHA7jGH+f03kosWKp
IIQyfncT9dI39B0GEoz/+/xGHEqKHQpdTB+kTd8RF1IxBBKZfqgJsy/6OHII
rGL6ovhhZVi9swC4Mv0xNFNukeDGP/wUpk90F58LU+X08zcz/XJ4he/pc9K/
+cD0TbCBgKeBeB/fjOmfxyqHl4WO+cXnMn10zyk4KUS1ly/P9NOPt2oC8rN+
8pcyfXVayX3esl09/FCmv/YEbr+26OYP/kymzz6dWcnhiP/gf2b6bV9D9yHb
Nd181HeCi/1PPaj4zkf9lz8urUCJ950vwvRhd+An24ycLv5mph8VJp4a/pXT
xfdm+nJZTvekJfc6+c+Z/ky32Om+c2Un/wDTpy78ylOtfR18D6Zfr8xN/m5/
uoP/k+nbihXPDC0WdPD9mf5NspDz3CTUwUd9LDhNZ3lyaTsf9fMi+TNqQfva
+Z+Yvv7Zp/3o1dx2vhXT36JJi1tC5Nv5xUyfh2yIXT29q41fxPR7yIu7Ct8f
t/EDmb6Xqs2s8sts409g+r8m1ujuufg2vjfzB+4Z6YVb9rXx0T8cz/EsLPdv
46O/cGs6IZi0sY2P/sOsx+B7s3cb/z3zJ/j9WOZfTrLfVzB/48nWV2L+B5+f
x/wR7u8v5p9w//7MX+H7of/C90d/1s/OB/3bfHZ+aszf4fkWM/+H52/B/CHe
Twjzj5ns/jqZv8T7vc/8Zxa7/yDmT7E+0L+qsPpBf/uL1Vcw87/XWf0dYf5Y
jNVnKfPPWL/RzF9/Y/Xtx/z3flb/h5g/v8T64zzz779Z/yQwf/+Y9ZcM8/9P
Wf9hPnCQ9Wc/yw8SWf++Z/mCOevvUJY/SLL+38/yiXsMH9ax/KKB4UcRyzdy
GL6ksfxDaOsg/vixfMSb4RPmJ5kMvzBfOcHwTYrlL9UM/26xfCaZ4eNRlt8k
Mfxcz/IdX4avmP+4MPzFfMiU4TPmR7cYfmO+hPiO+RPiP+ZTyA+BLL/qZfyx
kuVbyxi/LGb5FzD+OcryMWH5QX7C/Mya8Rfma58Yv2H+tpPxH+ZzRxg/Yn6X
y/gT8706xq+Y/0kx/sV8MJHxM+aHfoy/r7N8MYfxO+aPfYz/MZ+MYvoA80tN
ph8o32T6AvNPFaY/MB9FfZLB8lMLpl+yWL4KTN8cZPnrQ6Z/MJ9NZPrIluW3
Xkw/Yb6bwPQV5r9XmP7CfPgZ6jOWHwcz/Yb5cgvTdytZ/mzC9B/m03ymD/ew
/Hot04+Ybw+RHdSXfiz/1mb6E/Pxy0yfYn6O+hXz9VCmbzF/92L6dwnL5w8z
fYz5fQ7Tz5jvX2T6GvP/ke6D+hvnAwlMn+P8QJfpd5wvlDN9j/MH1P84n0B/
gPOLHuYfcL7RxvwFzj+MmP8Y/GwJFRt3j5o17Cz0N89ILRz4nGMjsPOa81mo
S85ROPLP54yuw1E3zg7Uqf5s7sDnfp6gxwfJczBybIXG/RGW8NFI7E3WpnPw
zPDq32YDn79P+HKsu/IcDBMaIb1fzBIkbT2z06echw2aE+G6qCXM3tCiU3/s
PKx8Mc7qloglGM/wDP/rx3nQkp+jlylsCW+vTxx92PkCSFSMnrBbyBI8u732
i926APN8r4nrDrcEq/LHPt1aF2GDXIR6wTBLmFib8Wx29MUBPTYsUHMAD24a
L9gk/OciTJq4QXO7gCVIHar5S3X9JThkoTPjfD9Aeq71/dRnl6DgUXJrTh+A
/t2sMn+by5AdLTvjfC/Abb6386kbl0Gl8efa7T0AN48ZjpqkeQV2eu0L0uoG
sBx14dWr41dATmJIelEngF/bLae3o9PgybHT0obtALor1oeq7kuD+33RLftb
AWRva/Yk/kqDXzItC/7+MoBvR8TzeFvSYWfp5W3PPgK8vHxmwdCWdDj1/e+D
NQP4ViE25Xazx1Wwb+0tyGgGkFjdFVHbeBV8RSTA9zXAvtyG6jV6GaAWnjhL
ogEgSGJ6bpN3Brh5CEnEPQNoXnbX88nlDIg+mfKovxZgQbTiCN6XDPD6cjDf
rgqgXvj5vtHamVD9MXvs9ocAPoclt9qtz4TCVc1jD5UDyP3Yqv/mcib4Lk3u
3X0boEfI6PaTlkxQkjMduawEwKLeREBG7xrkjL51RKoI4DPPd/WFjddAz1/i
ZkEuwPtCe4MdmdfglVLGB+tsgKE5M1aEdF6D/Pb6BZlXAU6pnkopMckCKfvQ
mYKXAZz4S701tmeBhM/ssebnAFpC5dqu5mdBy1mfP8tTASZoRcrM+50F1zc9
WeWaBPDYNDmxj58NR/YO3TsnDuAv3pCm9OBsuHl5TIHi0YHv03qUnG9ng/bF
tOX1RwAEt0k79QpfB43Gcfm79gNIVzpa7p51Heb2iOqKBAMkHtBf33jkOux1
rREP2AkwOlZIW/LxdThUbJxVtw1gd/3Zs+Jjc+CA9doA2U0ANnc+V5Y45MCj
V3KldusBpixK2qYenQP2m9e/c/UYuM+WtaaGT3Kg72nl9NWrAPYukgivG38D
Cut1LBcsBdjwIrNaxPEGfJqUy9NcCCD291SLopgboPiiP7HFHmDYpd6vH2pv
QPj5F8XHZwJserP7w07JXJgyxnucKQCca5g/yXdBLmyZPO73zWkAbzcL+FwP
z4XgjxveGBkN8K2+3TWoyIWGBzZTYnUAXM/b3RgunAduX5IWvFcFUOypt+mx
zIPgeeEZKgoAkyyEDMR35sENBeeCBVIAf/7eY2lyPQ9+5axs3DAWIMTbcYnn
1zwIvPInfIcYAFf9wKpYlXyQun/NdOswgGU2NYtzluVDw5uXcaU9fHCK3OpQ
EJEPf32Ys3PnZz64VAscSriVD2vOhAyTbuBDv73xwhnd+ZDdrj0h4SEfTtY9
185SLwCBO3knft/kw5ibp4ueOhXAVC/XgzYZfBgQAm/OhxaAQYhgmX8qH86d
mnhFKrsAtFVULCKO8uH5RDt3hcYC+BNR9TF8Lx/WzOEdzRQrBBHJkzn+fnxQ
nLte6LZRIdy/GHl8lgcfHk++/2Te8kLQjxcPE3Hkg+PN+e62ewrB+1PFnmsz
B54n7O1+9mwhBLy4v8nOlA/5lQ6NK+4Vgp7BNMdH6nyYkcq1WPupEOp2rNO0
kuKDjrEv/2+RIthueef9WRE+/MrmiixRK4IYrdxDvT0WcPFuxmQdqyLYL5Ai
YfnJAjQPTw82di4Cn+slO/96bgHP6rn71/kVwXUHk3vnyy2gm/txyL1DRWDS
UNdVnmcBNh8yTWxOFkG72tRhzRctQLWgpb45swh2nAntakuwgF0lW9ViS4ug
Vzni/o+DFvDFcWKpc9XA54MJ+3/ssIDgkdeeGb4qgprdbnrtay3AK0FDcvyn
IvgoK1r6bqkF2M0ceVygowhO7+2fUWc3oBdTRk/q7CmCWQe+F92aNvB8I83b
n38XwQV+te5VTQt46nnA7r3ATfg3zpK2gJc1Zk1vh9yEI50uw0NE//f950vm
Wzf+NKffR141/ur8yZzWt5+otWnOc3N6vmtWpaBVuTntj3Mx4TI3z5z2zxl9
xot70ZzeryD8ioVVgjn4sPe3Ev+tv+CgOZ1Pv6Ozxdod5nR+gY2/1x1ea07n
e2fXppzcpeZ0/lcMjyl22JnT/ZwQCbhgxjGn+yts97YP0zKn+12Rd0+0Xcac
7l9oWG/D6hHmVB95S7xKPv3iUf3cs/PMDGrhUX0NP652Tuslj+pv3cFTcR8f
8qg+dRSjdxbc5FH9mpx2nXXmKu9/9T169PfTKTyqf8GrehsLonjUH/33qy5+
CeZR/xhv2BFt4sej/gqyFJZL9OBR/z0KT9eXceJRf+bPfpeTY8uj/l0yb/Fx
Xw4P7Fh/Dz/58JatDo/63+yF0XiQ5xE+WNzeutlpDI/w407nX4URQ3mELwbR
E6o/dXEJf3ycf0as+cAlfNqVcLpS6AWX8Evfzcm74gGX8G1uq9i0639zCf+q
JZaL3b7GJXyUersr89dZLuHn90CT30sTuISvbj9L8xqPcAl/CwOeZ0QGcQmf
eXujLq7z44I/w++kuc5eG724UMXwPW7rj/STzlzCf9UrLry++VziB8Vr5Q/2
zeASf+j6HpE253BBkPFLnJXC88n6XOKfd5tF/zZV4RI/vWp8GrBTmkv8lVs/
tqh9FJf4bZKOnm68IBc2Mv4rn3dgi28vh/jR+cNi44A2DvHnGKekMXnvOcSv
g/XHIf4tmRcQUVnDIX7e8a3a/fJ9DvH30+mjbhSUcIjfyyXTpIfmcYj/O3rK
pHZncEgfOAT1mBtd4JB+KNjiM1ohhUP6IsK1fLR1PIf0h4ezws2TkRzSJ+Jd
7TEmBzmkXzZ5qY0eHswhffNxQn/yqAAO6Z9Fk0dnOfhxSB8lOZoXVG3gkH5q
t8lSOOLJIX1lnl4/I9iVQ/rL4veyiOzlHChg+uzkNNFlyo4c0m+HRrT8eTSf
Q/qud9SUpzdmc2AD0388Nw3DVzM5pA9bNvNXWVlxSD8+FO278NacQ/ryZsyP
xbencUh/Kua8uPDWhEP69Jfg0kYrQw7p14lKuqaNehzSt8t6xr0t1OaQ/o11
eCT9XIND+nhUsqSwiRoHXJl+buyOr6tU5pC+/itQ9OoVJQ7p72WNgln3FDik
z/XU5YaoynNIv4c8rM0qmcQhfS8zNrnphCyH9L/AgdqkQhkO+YODP253ygx8
Rv9gtuF8W540h/zFIH9wyH/g97fdVJ44XT5Dv49aJytXv+gMrd/Uq9xR/ec0
Pf/rylQliyunaX+hlanmsstO0/7T37w46SV6mt6vemait0r+KXp/7daLMfbe
p+h8xGvVXr5SOAWj2fm5hNk9e1abSuf7a5hih+nhVDr/1YWmPj+tUul+LOXN
1sv0pdD9ldt6v4vLSaH79R3Jy/PZnEL3/yf/2Nnj+ilUH1M/+CVNbThJ9XPs
iu7O2uUnqb7un7tVLfrqBNUfTzFi1WO3E1SfhjEthXKfk6l+V/lPXf11SzLV
9+rfiZlTBQY+s/qPVnn0oT08ifrDXT7eaKJiEvXP9q1w9UTWceqvWJs6jyC7
49R/MQKOjtlNibCZ9eezsWnbDHcmUv+K6yXldEglUn8/Tt4+9OuNBOr/h7Mf
zpBemkD4wJnSsGFjXzwsZPjRUSPg/SE1nvCFG9FlusMunvBnx5rvVZM64wif
1qhXTr9/Io7w6/XZR+d32McRvtW8OqSo3BdL+Lep9vzbm2mxhI+u3b7cGa6x
hJ9NX1x2p0+IhfsMX91iIxU6H8aAHMPf55NHp47YH0P4HD9EJaXNMgZeM/w+
lxBQldgfDe8ZvoeF8YcNK4om/J+2WlZ+8q5o0GP8UOSpp9ZuEQ1KjD/8Dnzh
rh0aDWqMXwTGfkzae/cYxDP++dyZcGZa+DHip6LtQg9DHI+BOeOvaDG3qysV
jxG/ub9PFSz5chTcGf/9cRM4dzb3KPGj1UG/MKH9R4k/jdPk6l46HiV+7bt+
ulBV4yjxb37hkZPPeqPAgPHznHMH/rQ9ioJAxt8vHLN2rz0TBRsZv8dIP3rH
C4gi/tet9pVZszAK7jJ9cPSAkWajThTph9AXlXBOOIr0xbIXlllZbyJJf2xu
qPk+rCSS9MnCTLPUoycjSb/4lUVtWr47kvTNo2PbZi5ziYQ9TP/M+tY9+bBV
JOmj0nUJup9VI0k/bfByzNgiFkn6yp6rOMW2MQJEmf7Kfjm69VtaBExl+uz5
j1N/nu6KIP1W7bZ/XO+8CNJ3hSsrlearRJD+EzhT7VbbG0768LBd/5I9NeGQ
z/SjiuiNigXp4aQv37hp34PD4bCS6c94Ge1Uu3XhpE+bgn63es4Oh5NMvy7t
Mo2I0wuHNKZvz/ZHn6mVDCf9e3z9g1jZX2Gkj59keEusfRtG+nlb93WR/Mdh
MJ3p61Qx/6sjisKgkOlvh70tQcuvhAGX6XPf2ae455MHPjP9nlLt1NwSGUb6
Pm7MhwKt0DDS/8WhegtX7QqDKOYPujz6tx3cFkb+4XW3COfCpjDyF+6r6jry
fcLIfzx9WsAt2RAGF5k/we9nM/+Cvz/D/A2uj/4Hn1/L/BHuD/0T7h/9Fb4f
+i98f/RneD7o33zY+eUwf4fni/4Pz/8A84dX2P3EMv+I97eD+Uu836fMf+L9
oz/F+kD/ivWD/vYYqy895n+x/tAfY32if8b6RX9N9c38dyGrf/Tn2B/o37F/
0N9jf6H/x/7DfAD7E/ODHax/KV9g/Y35A/Y/5hOID5hfHGb4gfkG4gvmH4g/
mI8gPmF+8prhF+YrDgzfMH/5m+Ef5jOIj5jfIH5ivmPD8BXzH0H3QfzFfAjx
GfMjxG/MlxDfMX9C/N/P8inkB8yvdjD+CGH5VinjF8y/LBj/YD6G/IT52WXG
X5ivIb9h/ob8l8PyOeRHzO+QPzHfQ37F/M+f8S/mg88ZP2N++I7xN+aL3ozf
MX9E/sd80pLpg00sv/zJ9APmm6gvMP9E/eHJ8lHUJ5ifSjL9gvkq6hvMX5OY
/sF8FvUR5reonzDfRX2F+S/qL8yHvZk+w/wY9Rvmy6jvMH+ezvQf5tOoDzG/
Ps70I+bbqC8x/xYsGNSfmI/7MX2K+fkjpl8xX0d9i/k76l/M5wUFB/WxJMvv
PZh+xnx/PNPXmP8bMP2N84GnTJ/j/AD1O84XDjN9j/MH1P84n0B/gPML9A84
30B/8X/nH8ZG//zp0OeewxP3dRjqkF9x9H8RaPDPZ+Zn1joW6Xw10CG/Yzxd
57SGvg75IZeKwv5mHR3ySyOkdFZP0tIhP3X9rLPAEzUd8ltb1y4UGamsQ37s
wnbjvDJ5HfJrs3X4S/qkdWgewispN8wep0N+L3sr70TLKB3ygxwV8Z6zIjrk
Fzc7Z59tHKJDflKjN2Nccq82+c0Wjn9+fYc2+dFHDj7jkj9rk1+NDPpwvqlJ
m/xse+r4oZeeaZPf9bMVzO1+pE3zkEXzwtfcK9Mmv6zVufCaQr42+emW9Rk2
v9O1aR7SKnr1hetpbfLjoXV/1ObGaZNfN8j78q30kDb5+WIlW4GSXdrk9+PM
1mnZ+WpTHhAaI23r7KZNecH8wGDOr4XalCecSFP/rDZDm/KGWadrZjaaaFMe
0RF40EZDTZvyilseWz//Ga9NeUaIX4Ox13BtyjvqLMSN3Lq0KA/Jb7DraW3W
orxk2/7iE6OrtChPeX9no83tm1qUt6w0kJYZe0WL8phZubozuuK1KK/JjMv/
vXGfFuU5T+4s3r1vkxblPfqjxMSnrtCiecjPdKuWYFstyosun8nx2WCkRXnS
iaCFH7vltChv4jSpZyuKaFEeNSp0jlFLuybNQ9SH1jxYVq9JeZb8qLNfN5Rp
Ut41LcBfRD1Nk/Iwg/K0mP0xmjQP+bbKWjJqlybNQ9p8sgRneGhS3nZ6S2PH
GXtNyuMCvX6tv2akSXmd6Yl1wzbKaFKeVwYZCxoENCnve3Bwftev9xqUB4qd
uhH2+IEG5YU+Rgq3l1zToDzxUNqWmQlxGpQ3ilhMKz26U4PyyPpA368zXTUo
r2yp/2vPjRkalGf2ZPZz32tqUN65UqPiVe1IDcpDc+8W6O9rV6d5SNej4z09
teqUpz6wFRU2zFWnvNXrjZOO4XH1/81Djmwx/7VLnfJa78pSiQgXdcpzXUVE
D3yzUqe818nWdqe8qjrlwf0Kp6vkhNUpLx6tZrHh20c1ypOPLVQyjbmvRnnz
YP2pUR79rDpumEeYGuXV3dkxb476qFGe7eyy+UrSPDXKu9M6ax1CDNQoD28L
PvJw9lg1ysu1F/uO/96uSnn6qCGgGlytSnl7/bq9P7uuqVIev/7sush5x1Qp
r1+fm/bp2BZVyvPfzPEWKluoSnl/h+3IT01GqjQP6bCRj/kmqUrzgi5Jo9Hf
OlVonnDuT5lzc40KzRsqTSVCKrJUaB5hI/z78JVjKjSviBnzJWD/FhWaZ8zf
fWb5yoUqNO8Y5A8VmodIfSgRE5H83/c1iwM+v+pQpt8rrlr7Iq9amdaP11vU
nHhNmZ5fsiZVNOSoMu3Pz8HIyX+zMu1/q7xt1TYHZXq/bXJLd4UYKtM8JFSq
d9UpCWU6n7603J3VHZPp/PqKfz2ZUDOZzvfIr2bvTVmT6fyXeahZvj02me7H
Ymz3/E1+k+n+tr95Hi+zeDLdb8HmKMlmk8l0/yOEuvLKJ0ym+ticWRlc80OJ
6ifq2CO3Ic+VqL7Eps6xX5yvRPVXKzFDv+q4EtXnEtD4uW2XEtXvupm3om1X
KVF9S8jLf7axVKL6F1m54tU2ZSXqj18xpxc+Ha5E/eP5okNj/UdF6i+BvaM4
xhWK1H9JcitWGacrUn/6xd3fsCFKkfo348SlqU1+ijQPEbM4vj9qiSL1v2+2
p1YQT5HwIeDQl7fpioqEH+Efvm9XGK5I+HJz/jLb8zUKhD+5m97xE5MVCJ+6
PMKtZL0UCL8KD6zI1DVSIHwzy9N+W9svT/g3c7a35rgKecJHl8gft1vj5Ak/
a3896fL0kCd8PfBuxIdgI3nC345Wj1tWQ+UJn9vEZ567VCVH8xAfzqbUolQ5
moc4170sCNwsR/gfnRHc3mYtR/wQck/NaOIEOeKP7OIpa7o+TqJ5iLPYrtWH
CycR/0RXqPa9ipxE/PTX3lXf2j0mEX+98rHpusOdRPy2OSM320ViEs1DVPhK
j0o+yRI/+iQ7VbWUyBJ/WjhvsnqbKEv8Os47Mf6SnyzxryD/q7nVPFni57dF
syPStGSJv50lpzW0CskSv6vMy14j8laG+P/OG0n3vhIZ0ge2Q5p/PEiRIf3Q
8ijPfGeQDOkLXqgqX9xVhvRH9KZdPYFWMqRPDCrvOtWpyJB+KUtN4I0TkSF9
c2p5jz+nRZr0z/yDvAezqqRJH/ku+94y84Y06acyhYeBBiekSV915fpMFA2V
Jv3V07XevNpHmuYhO9+reIUtkSb9pqGX8YdrLU367iO3zPm1njTNQ1oPpN7b
LitN+jCj4vdOUVFp0o/G6m2nj/6QIn3Z4/jKafwHKdKfQc/WnT76VOp/+lRy
9Z4R5VKkX51DshuCCqRI33o1LYzsTJci/btk1jTP1aelSB/z/OZOqo2XonlI
UL37MusIKdLXb3+qFl4LlSL9vWaP5IPJu6VIn+cn+QlGb5ci/T5m6sLHQluk
SN97TfcLDfCRIv3fr+CwpWOdFPkDlVcTH6/3kiL/0JidXPphjRT5C681//xJ
kf/A79Gv4O/Jz7D10e/g89EP4f5wHoL7Rz+F74fzEHx/nIfg+eA8BM8P5yF4
vjgPWcfOH/0g3g/6Rbw/nIfg/eI8BO8f5yFYH+hXsX5wHoL1hX4X6w/nIVif
6JexftFPY33jPKSb1T/6cewP9Ot+rH/Qz2N/od/H/sN5yB3Wn5gXYP/iPCSW
9TfmDdj/mEcgPmBeYc/wA+ch9xi+4DwE8QfzEMQnnIcgfuE8RIjhG85DJjD8
w3kI4iPmNYifmOdoMHzFvMeP4S/mQY0MnzEv2snwG+chsQzfMW9ayfAf5yE5
jB9wHoL8gfOQeMYvmHch/2Ae5sv4CfOyLsZfmKchv2HedoTxH85DkB9xHoL8
iXmeLeNXzPuQf3EeUsz4Gech3Yy/cR5SyPgd88Zixv+YR6I+wLxyJ9MPOA9B
fYF5J+oPzENRn+A8ZAvTLzgPSWb6BvPWoUz/YB7rxfQR5rV9TD9hnov6CvNe
1F84D/Fm+gzz4qVMv2GejPoO82bUf5hHH2X6EOchfkw/Yp4tzvQl5t2oPzEP
R32KeTnqV8zTUd/iPCSM6V/M41EfY16P+hnnIfuZvsa835/pb5wHbGP6HOcF
25h+x3lCKdP3OG9A/Y/ziMnMH+C8Av0DzjPQX+C8A/0HzkMcmD/B72OZf8Hf
2zJ/g+tXMf+Dzz/P/BHuD/0T7r+T+St8P/Rf+P7NzJ/h+aB/w3mIN/N3eL4N
zP/h+Y9m/hDnIegf8f7amb/E+01n/hPvfwXzp1gf6F+xfp4yf4vzkBXM/2L9
xTB/jPU5lvlnrF/011jfS5j/xnkI+nPsjw3Mv2P/DGH+HvsL/T/2H+YD2J/d
LD/AeUge5gusv11Y/oD938vyCcSHryy/wHlIA8s3EF9EWf6B+HOY5SOIT5if
4DwE8xWchzxk+QvOQ26zfIbwkeU3iJ+7Wb6D85AzLP/BeQjmQ4jPbSw/QvzG
fAnxHfMnxH85lk8hP2iw/ArnIZhv4TwE8y+ch2A+hvyE+RnOQzBfQ37D/A35
r47lc8iPGSy/Q/60Y/ke8usqlv/hPOQDywdxHuLP8kOch2C+iPMQzB+R/zGf
xHlIGcsvcR6C+SbqC8w/UX9gPor6BPNTnIdgvor6BvNXnIdgPov6CPNb1E+Y
76K+wvwX9RfmwzgPwfwY9Rvmy6jvtrL8GechHSyfRn0YxfJrnIdgvk3/3obl
3zgPwXwc5yGYn+M8BPN11LeYv6P+xXwe5yH2LL/HeQjm+zgPwfwf5yE4H8B5
CM4PUL/jfAHnITh/QP2P8wn0Bzi/QP+A8w30F/93/oF8gv+9rH/n7QkqcNPT
LUfrlwcMEfjnTxX+7IhS2f/CnfkXVdDmz0/l97gOzlceqILf6FiVAHsXtp4a
dMVdD2xOWcHWU4PEiYUX9/UtY+upw7M7e6IyU5eA57/rqUN1zU6XiP2ObD11
+Ng8d8fGc4vYehogNDXVO+WHA1tPAxJ/KX+fvXUBW08Tdp6PFF8qM5+tpwny
xbJnz5TNgUf/rjfwfddQXsrR2Ww9LYgVTXGqiLOD4/+upwXuZvYflR7ZsPW0
wWPUk71LDWay9bThQ0aPT3nedLaeNqjef9C+eI01nWfK95m7Vhpasf3pgOeV
g5x0GUv4dzkBXbDNlr/iMwnYerpQI12qY7bOgq2nC6Paql51l/HYenpwPm8B
KM/gsvX04FNEeqXph2lsf/rQ1NX9l8QFM3Yf+pCmMU/oU4gpW08fIlcd6bcI
mMr+/YQBnM8VetNwwGTwfO0NoO53ke+9y8aD+wsygNa17c3mzUaDz88ygD9r
N4pd0jIa3O97A6iKs1M8u9eQrTcFhpWs4rV+mcLWmzLAZ5uXe7pNYetNAeto
7puxA78bXG8KbI/xiBmxzYCtNwXkc7zeHh5rwNYzhDWxAha3Nuqz9QxhVr1m
VVOlHlvPEKRNwlvcZuix9QyhdUWXxLKBcxtczxBWWsVY963WZesZwXvpsNLk
UbpsPSOItlQ2z7inM3h+QUYwziTLquSoDlvPCARtFovv8NZh6xlBaVNSeMJi
HbaeMYjPba76PUeHrWdM3w/uz5h+P7ieMUix9QfXM4Z49vzB9Uxof//el70J
uLL9D+7PBDrY+/1bDlkm9P6D65nQ+QyuN/X/nN9UOt/B/U2l8x/c31S6n8H1
ptL9Da5n+n/u15Tuf3B/plQfg+uZUv0MrmdK9TW4nhlc+k/9mUEYq8/B/ZlR
/Q6uZ0b1PbieGdX/4HrTqD8G15tG/TO43jTqr8H1pv23/95Po/7Ef596hvXv
4H1wQIP19+D7cuAz6//B9TiwnuHDv+33nkP4Mbgel/BlcH9cwp/B/XEJnwbX
4/4Xv95zCd8G1+MR/g3uj0f4OLgej/BzcD3ef/H1PQ9SGf4OrmdO+Dy4P3Pw
Zfg9uJ454fvgeuaE/4PrmRM/4L/PQv74/+OTFV93j3z92J34pEz9WVW8pgvx
Se6SsoUWAcuIT3pqRk6eUL6Y+ITrqWDv9WcB8UnCuBqfKw1ziE/i4gzPFDfa
Ep+4wzCQrZxOfPJ4/hk/2GlJfDL0dYBl9cB7Ip/0lh8Sv9tvRnwy1Xsp77W1
CfGJzMwLlZ1ahsQn4/euyPhLR5/4ZErAp+xj9VrEJ9V9+1ZE8dSJT0b7XY2Z
YqBCfJLN2zhjfLIS8Ym4UPNJjZfyxCc5lgkuKeqyxCdD6vt1v/2eSHxiOOdu
j4vdeOKTgv6wVvghQXxidbGlRbpnDPGJpcWf0GmBo4hPgm4Zt9ruHUF8IvO9
+/6ZryLEJ3FWT1r+ShciPlkVEzrBNU+Q+CRszHaHz8OGEZ+ohSt1zds3hPjk
/IIqf62pAsQnKodvb/RR7Ocjn6TmWY5bMKmPj3xy/9OHc32OvXzkE1/1+mEV
93r4yCf9pv6OnPU/+MgnTjJhccVm3Xzkk0TxiRfP6XznI5+4LPAv+GTVxUc+
2Wh67aPS9k4+8smKIZJqG8o7+Mgnch+e1K0w7uAjn4w+e9+7Jaedj3wi8E4w
Zf28dj7yiYtF88vAvjY+8snk0J5TEkVtfOST+Q9y9zpGtvGRT7Lmr7+eu7WN
j3yC/30H5BP8HvkEf498osbWRz5ZzZ6PfIL7Qz4Zx/aPfDKZvR/yCb4/8gme
D/LJf89vKp0v8gmeP/IJ3g/yCd4f8sl/79eU7h/5BOsD+QTrB/kE6wv55Oh/
6s8MlrH6RD7B+kU+wfpGPsH6Rz7B/kA+wf5BPsH+Qj75T/8N8An2J/JJCetf
5BMp1t/IJ3ms/5FPJjJ8QD5B/EA+QXxBPkH8QT5BfEI++Q9+DfAJ4hvyCeIf
8gniI/KJF8NP5JMT/198/YdPGP4inwDDZ+STDobfyCeI78gniP/IJ8gP/5dP
/h8dCGns
     "]]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0.10000000000000142`, 1.0265836313042325`},
  Method->{},
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{3.397500006344474*^9, 3.5882699593621025`*^9}]
}, {2}]]
}, Closed]],

Cell[CellGroupData[{

Cell["Lin-Square plot", "Section",
 CellChangeTimes->{{3.5882695143414793`*^9, 3.588269531921504*^9}, {
  3.588269562571547*^9, 3.58826956480155*^9}, {3.588269955412097*^9, 
  3.5882699746621237`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"obj", "/.", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"u_", ",", "v_"}], "}"}], "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"u", ",", 
       RowBox[{"v", "^", "2"}]}], "}"}]}]}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{3.39750000965924*^9}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {RGBColor[0.24720000000000014`, 0.24, 0.6], PointBox[CompressedData["
1:eJx1fHlczPv3f1lSCW1o3/dCWqRpak4LhayRJElpQZKkIlK0r9OmRdl3IoQ2
S1kjKSFL3JA1EkJIvt07r3Pu734ej59/Po95zGfOvOf1Oue5HZe696o5vgOE
hIQ2DhYS+vt/b9X3/5FwgEUZtV/1YB3UWhl8iex/3fcoZ1L90PXw/dmiFUlD
HWDhNP5fyY/Ww+2ICoevYg7wwvdTg+vRSJDQuJx/YYgDJI+omKseswEG3ZyY
8maQA7jt//XmkdtGePRu4NRgYQfQd/HhrjGNgs5tMGz+b3uwWvDS8qHkJtgu
aT66uMce/lI8LPqrq/+1z4wyuy/2IH5JZsiLZdFgcFnRyumDPYRVTIjIbo2G
+X1OEsde2cOKu7PrY2fFwPvF+Vmhf9lDeVhr4dErMSDz87FdUYs9xM7bpSrE
3Qzu/d+ofdseNKdO5oae2gxRgw/rSF21h6DmjnW/DbfAmvvP1i6utodtXS/E
+fu2wPQyVx2pk/Yw8OemelW1WIgec+ypzgF7UBr11WnntljgtPjP3LXNHjgv
XCsGycWBh+4dk5gMe+h7c2AI5MZB9/E+52ub7eGB559GB5l4uFh9ekXoWnuY
d/uS/+CseChzWeaX5G8PpxR+3lsjlQBmBboqQxbYg7Lrwb9iMhPgS37qxs4p
9hD9Z9pgdelEcAw9FQEcexj3wzveLjsRer/pDOvTt4cdVSJLW2STIDG7yVZP
3h4qdQp8Grcmwclr73UuDrGH1/M3S6nIJ8Pxdx/vXf1qB+Ne9l0q3ZYMTb5R
q61f2EHXw9/FESop8NZtnrZ2ox2Y3hqW5bsrBdYfmaizqdoO/vi6+fprpYJQ
6l8nnA/agfj2IydXHkiFEM+24RnZdlA4gv/B3yAN5isWpTpG2YFo/grfSSVp
UKamvyU8wA5G5h53+jouHdTCrF3U5tjBiz9SB/1OpkNgnJyfvVV/vf2N6xLN
MsBuSuCY55p28Ojc76IpZzJA78skzb6hdhCauDyoXpEPAeLf6vK/2MKJ9RLr
TTz44Dq458ipR7Zgp2PlNKOID/GeDxfOqrGFKYu+G4xu5cMWXbXQ4AO2UKSt
tTpWMRN2K4zPG5lmC3kPISDNPRP4Y8xX2YbYQtY4bU/9gkyYu7+v5KurLWhc
OL97ZksmLCr7IGFmZQvq224nfZfNgo0Zd537VGyhaWtJoNycLAhWeWzuOsAW
VtQLHz2UngXNOt551i8B3v5MOLH7RhY4ib5yPHMNwHj2rU8/B2fD2UHPtGoP
AWzhdn44BNkQMbpE2icFgNs4x/zA+mxwW+TbWxgIELJomf+7U9mwfMS15hXT
ATobPc1XvM8GvrR0ZssYgKaguz7qWjlQo/zWpG1Yf70tWfWDFuaA7GfvDSMe
82DKbguvYZk5UHqsPXJnAQ/2irfrml7NAaNC//jw+TxY3tA2OehnDqy5WVmX
L8uDtS52vWfG5MLRMr1Nok028LE+bu9gr1yovm/ScSPVBmym6FfNycyFgAvO
i9odbUD4i3Xr1ppciHPdOm7BABs4rtV95UZXLmyOyr06ptoaRnWpub9W2Qrt
Eh/5fmutQa+6esfLaVvhp4rqENGx1rCt2P3y+fCtsPW28ZFRr7gwRDJfOXD3
VlCcs1Y0r5gL687GGry+uRXywzmn0uZy4U2zcK5+91bYvzva6Y84Fzyl5U3H
KOZB0tjSlV0XrUB72VTR95AHq2fMaPQNs4I/xxone/nmQdayE9pLDa2Au6N1
VmxiHpzvKTPo+osDTX1XKuYczoPEd4F7hudwwLbAxPHqjTzYkvXA/bIjB+Qa
TD4/fJsHp/RyNUb9soSDy13eJA7Jh74nGXdEj1lCa9re1AbNfNiUfNZpl5cl
WMw/HbHfJh/qfpYEtEtbwgXN2I0SbvnwqS1CseXyRChU9dnbuyofNgeZzIwK
mwhl3Y3j1sTnA7eo4ttT3YlwwHtSUeC2fKjW8hbre2ABmumfdr48lg+aFns3
tyVZwNOHa4wfX8yHPa9uLknhWMA05U3rpjblwwyPg4cGdkwANam1r43b8uHr
bY7XjG0TYFj9F43UD/kQNt03PXjaBKgd4yrt/iMfIqYV8Fb9Mgcjed1H+QML
4KxcfMzMI+ag4J3wZLJEAahqX/MZtdAcKubFn/eWKYA6w6zv18XNIe56oGeH
XAEMs/edGVhpBhF5P5/8pVQAz1vKogYvN4MHaVuLeaoFUPD3H/n+13uCrcXV
CmD2wqiyMXWm9L5O160XVyNM6fMrhuyyWq5nSvVlhwfeVnpgQt8fqVBy4kWC
CT1f1euCL5csTOj5z728tbf29Xj6fTY+PXfa88bT7391PzlpnNN4Op8MZ/+m
Az3GdH5Svemlcw4ZQys737DhTfrm7sZ0/j1b13HnDjWm+/FJEr6+bN04ur/N
e0PHlbeOpfu9GyyeWwxj6f79Zn+/q7lvDPXH8sOTa+aKj6H+ER7JVecEG1F/
LbE9XfrkviH1n2tmquoUG0PqzzehvZLx+w2ofx2yBypuH2FA/R1bV3elcJ0+
9f88MZGUuHY9mg8Fdd97/rP0aH7Mwz/9mXpOl+bLpDZy3kRDXQhn88e5NkjS
slCH5nOtnp6bq7gOze9250SHgkht0GHz7bXM6qF4pxbIsPn3rLAcUrZEi/Ah
73X9keL7moQfn8qF+I3OmgAMXyR+ywbMu6wBHxj+RN/uumNmrUH4NNwkb0H4
WXXCryFixUHapuqEb7B550rHUjXCP6+PNYUvx6oRPk6dyHWQ9FQl/IyenTM2
aIkK4av0811vu/2VCX/lpJZalK1WInyWPXB5X1WUIsQw/E5PLkpTyFAgfJ+w
tUqqbbc84b/zwy/KipVyxA/vZun5Pbo7mvijXX+xr9GXUaDC+GVsYYuH6shR
oMb4x9lL06WGM5L46fJ3exm1pbLEX+X8m4ZTMmWI34oeCHdOqZUGR8Z/Srsl
Vo77LkX8mLpOaaOIsRTxJ9+0+OTjQEniV/7ge7VhC0dAK+PfNjupiT4vh4Eo
4+edFrW+OeESxN9e6UP81aWHggzjd+P2lttqp8WI/xNPZh856CUKW5k+2Plw
Z2SD7BAQZfqh59nwCQeaBsNvpi8khzo4OOYNgvFMf/C5p2JqfQeSPjnYWcgx
sh4ARky/BKvcMshTFoaXTN9ILoneMHKIEFQw/VPqMjd99ZffvGKmj7wOX1bS
6vjFQ/3UJrszxufrD95Gpq9KJSBopnQPT4Hpr4vVon4idt94pUyfwbbI6n2x
3TwXpt9KzRZlT3n0mfeI6budjp0PJOw/8X4x/SeUH5wqHfWRZ8H0oZfI48pj
Re95qB/BpaJR6flbHurLi3VdHxJnvOah/lQb8rJK6Xk7bwXTp20z7y//U/Sc
p8H0685n/sfnbWrjxTB9e/F+UfQW6Sc81L/Ru6YfvLr2IQ/1sVD5O5vjevd5
a5h+vvi7cF+IYTNPjOlroSgHE9uoRl4r099CR3+7pdrV81CfC108ljtT/zoP
9Xv01gav4Scu81yYvo9OC78n9KiGl8D0v9BW24uHnC7wnjF/IDR5VbiHWjXP
jfkHoeNVT52tKnnoL4QK/yaQCp4b8x/4/p30OPlj4RH0eZso8eEBJ8Op/tkP
ST7eXWH0/Qd8r7UeGB9Gz/dt2OUgu7C19PwXH+8Fq/Oh9PuKtOqPFIqF0u+v
Xq7DDXBbA0J9gvN5qXO49PDhEAB2ft5TxHv9hULofAeqbJu0b8FqOv9JJsve
+Z0JhovsfoSbYqJKRwXT/VmbPiwS+xpE9+vsfqTm5qWVdP/rz9/uOlQQSP3h
X3DUcF/YCuqfmR763dXuy0GN9deXJZGzP05aBqWs/0wMp9+bODGA+lM43WZX
znh/6t8tutWBveP9oJH1d+x0o5QAS1+4yPp/wb5Vn287LoUuNh9CIads9Rb5
0Pzkbs2+7rvOGy6y+VpukZweWbQE5Nj8tdw+7L7wqhdEs/kUHjA9vOPDYihn
89u7daxaqIcnzTf/oKrKmAceNP9/kh7t6vJaCELPBfjwNq2pdOu3BVDK8OOn
VL3F13w3yGf4YurTo9zmOB8mMvxRVFvppj/QlfBp6D7Zvp035hJ+FX7pXThy
uwt0MXy7FyQi7rJxDuFf0vGOP1oBsyGH4eOh4qLDcz1nQTrDz4PNtwbOvTAD
VBi+RrXe5La0OMNehr8+T/x3nBs8Dc4zfFaAEt8MpylwneH3wj01mXd2OMIM
hu8NkvGKQ4dOBmOG/7O3J6lUJTlAJ+OHGV9A1EfRHt4z/tijGHY15oItzGD8
8lGk/WvOWoCJjH9aRj9XN1lvA3zGTwdiv3NlDLmgxvhrlPjCmtpeS1Bg/Lb0
WcoQ804LkGP8V7dyX8GiPnPYzPhRYU46f5yRGTgz/rzRcKurOMwEvBm/nvDu
FClqNQZrxr+teYfirSrHwnDGzzE+Lw2MOw1BlvG3bXtE6gAXfYhn/B4Sn71n
9ysdkGb8X2EqHT3ogBZ0M32gMaK1Ry1LAwqZfohUFFnwbZ8aLGb6Qu+2ykjp
GmVYwvRHz3DJjdc3KcBOpk9Eyzq0zGNHQwjTL9kVub5pN2QBmL5Jhy3do2dK
w0Smf/6kvlMcO1wSrJg+kgke82CdqASoMP1Uo6d4M3WhKCxg+urHqmCLK8MH
QzzTX50OMTtiFAfAZKbPJnguHbb7Wx/vHdNvly5lSLyb+ZOH+s6/vHnXtQnf
eKj/mkKLnXJ2fOaJMn2Y82TCbrO+Tl4I04/nJ8z/bJz7lhfI9KX3ed655I/t
vIdMf44c3Jq970cbL5HpU3mTo7aXbB/zfJl+FXn92cz+wD3eD6Zv75g+vrhz
QBMvnOnfsx76IwqW3eChPraauq7trO1lHurnjJgLXlNKz/PeMn09s/KCw/7v
Z3h2TH/fXLj8oJ/QCd5Fps/FMqSFhb4e5J1j+j2v2Oq0kc1uXhTT96dtxsG0
2kLeKKb/d0rNV2p9l80LZP7gV1n7i5W56Tz0D8l1vcm15Yk89BebelQabkTH
8dB/qI485vhsfSzvFfMn+L4U8y/ONwWfv8n8zcczgvrqzP/g91cwf4TPt575
J3z+cOav8Peh/8Lfj/7sDTsf9G9PowXnp8P8HZ7vReb/8PxtmD/E+4ll/nE2
u78vzF/i/d5g/tOe3X8086fYH+hfv7P+QX/bzPprM/O/x1j/pTJ/nMb6s5b5
Z+zfHOavfVh/hzL/LTJJ0P/JzJ/LBAvm4wDz70/Y/BQwfz+ezZcC8/8j0gTz
h/nATjaffSw/OMvm9xXLF8ax+Y5n+YP6CMH8J7B8woXhw3KWX2Qx/DjH8g0O
w5cSln80M/wJZflIGsMnzE88GX5hvsJn+CbH8pdfDP8usXymluFjFstvWhh+
rmD5jhHDV8x/Whn+Yj4UzvAZ8yMDht+YLyG+Y/6E+I/5FPJDFMuvqhh/eLJ8
y5/xyzyWfy1h/JPF8rEHjJ8wP1vF+AvzNSPGb5i/hTD+w3wuhvEj5ndHGX9i
vlfC+BXzvyLGv5gPvmL8jPnhHsbfp1m+OIrxO+aP2oz/MZ/kMX2A+aWItEA/
YL7ZwfQF5p/CyQL9gfko6pNSlp/K5Qn0yymWr6owfZPE8tc2pn8wnw1m+siJ
5bfFTD9hvjuE6SvMf72Z/sJ8OB71GcuP45h+w3x5INN3nix/nsT0H+bTfUwf
xrD82p3pR8y3Q5i+DGX5dxzTn5iPz2f6FPNz1K+Yrw9k+hbzd0emf91YPj+M
6WPM71cy/Yz5fgfT15j/X2L6G/cDu5k+x/3BNabfcb/wm+l73D+g/sf9BPoD
3F/YMv+A+42nzF/g/sOf+Q/Ba1s43s8msrNSoe/5pF3V/a9TdqTXegalwv3i
M6qp/a+vrx479WxqKhTOGzfNqv/1bbdwDaUjqTBM6qbejaG2UCEx1S2lLhUe
mBy/MLH/tfDDO90D3qTCQJGh8gnitrBM5ujvaJE0WKk/Gk6L2YJypvDagdpp
4PlI1u6SqC3IjT69INE+DQxUpo89McQWPGq3HBjmnQbSN0eM2iRiC3OXGs3P
jE6DmcEnJcYMtoXY21s9pXb011PO0K0aaAvxkr2lKefS+vXYwCj9fjyoTB/B
63ucBkqjV+pHCNmCnaT+d7+faZBsYzTpQB+Aa9GqK5fk0qGqobjzTC/AnQmD
c6Qt0qEsR3HSgZ/9smmV6bTZ89JBq+3HsogeAK+a/KaNa9JhQ0BctME3gGVn
XCW2ZqaDsrTwsXNfAGKa4a+84+lwL3uPvMkngAKuxJiYW+lwozfnfUInQKRk
dMvMjnT4pfB+9oUOgCNr9l8QFsuADbVHwh68Aaiw77uSo5MBu79eSGruxzf1
wJIbIg4Z4Nz5s6r0OcDse6dK5i3JgGBRaQj+C6DolcrMTVEZoJNeOFW6tf95
sq0zYrZlgLeviHTeA4BHHXdnuJdnQM6OnQ19dwFk9eetGnIvAwI6kiqnNAH8
MBrRHP8pA+68KZOKuAWQM+H02A4RPlQvfi6VXAewcmfajx+yfAheUPxz0xUA
/mWjc50afFBXthjmXgPgfS9l5XVjPpwZcSlV7hxA7puiP3E2fBgbLn2+qhwg
ttxvmY4zH56ql762LwOwjFHbfXABHyo/PZ594ng/H3RP3z3Unw9yzvGTBx0B
KLZ57DMjlA/SQdOkrPcD+CpbPl8Vw4f3+4L+LNwF8P1HhMKqdD6cXn1v8ZKi
/ucdumzotG18SN0yYMv0vP7fF1F6esBBPpw/IlmllgUQuqpDMbeMD4aHShY+
TgWYb33NTriGD3ptspUbE/rPf5rK+Mm3+DCjR2yM6GaAvVKyXd4P+bBlSbNE
5AYA7XfGKa4v+ZB80ezU/TCAq/UbJdU+8SHRflmk4mqAw+07+Od7+dDwVLl2
ygoAPaFulfGimeAcsuLlEl+AzLuHmsJkMqG3pdFh6WIAHam/atJVMqH6sZHt
7AUAidzKoRH6mfBWqZyr7wJQNj+uYbxZJqg96it87wxwy/a6UZVNJqQfeHRx
22QApQfezjJTMmG8ZKCsBQDY3drvaumSCWs0ZH+ftwSYZLo6wmhRJmx+s/KF
qWl/P56yf97hlwmt9Y7jtxoBmAUvuh4WnAneHUWzX2kDNCc3e9ev6///z0wv
1VIF+GvqoQ8dmzPhrKpH1Ww5gPy21wfvpmTCrzOebSulAEIunH4Ql5MJUUf/
pK8TBziZsvJKX1EmyN04abF2IIBqXlmVzb7+73vxJK+2hwc73vAlJpVkwvrX
0zdseMeDuBtRw6ROZ4Lf3tiB8q08qH0cJ7e7OhPKPhmOKrjFg7od01O/X8oE
oasV23+f50Fi0vh6yZuZMCFgSZJjKQ9yN86FD02ZYBw76HL4Lh60Xzs1L/VB
JhhqadlkZPEgPcYy6sPTTPiT0fQmfQsPRvs0GEu+zARRmR1nwkN58OnP8rdf
3mXCjUP8bVN9edDir6ef35UJ4/Il0kRdedBnMCus92smBL69GXNyMg/Ez6/w
UPuVCZGPbqyeYsGDBo5L4EChLBhrbOnaoMsD+Ugr7r5BWXB/3XJ9Ozle/3le
8h8slgURtldf7RPlQW+QMF9zWBbkGpQn/+yxgQ6b9IV/JLMgQWintO1bGyhN
ywzLl82CoNM1G9Y/tIHJ6vVZnaOz4PQc8+sH6mxg79dd/sKKWWDeer+7rsIG
ypM0TzYqZ8EnnQkDnx+ygdjQUeYe/Y2+bm98d1eBDRyH3+V7NLLgp2bGje9J
NqCZpiJxQKv/dVJBwvd1NjBzdcoAP50saN7kPfbTMhso09QOa9PNgjeKYrUv
F9jAi2e7Jo/Sz4I9W/om3Z9iA1flMhcMMciCqYlfz12ytIH0es/CU/2vD/Lu
jDmubwOhPNefCoZZ8E+cJW8DQ1v2BFv3v0794jU4Vuzf998dtl676oc1fZ5/
3OyDx1trqu882mD19IfW9P1LTjUOsquzpufjHCo4YlVhTc/PGbE3wOqQNf2+
qvSjNnYF1lDCfr+dxO9xs5Os6Xz6XD1slq2zpvOLavu9PGWZNZ3v1Y2rz5Qv
sKbzP2qSrfZ5ijXdz3bRyIMTOdZ0f9WfAp3TDKzpfhdVXBf7pGBN9y8y8Gfr
0qHW1B8VbgE1b39xqX+uT/E/Ef2eS/01eJvOfoMnXOq/5Um7897c4lJ/Gqnl
bKg6z6X+Nd+zZOre49x/+3vEiK97dnKp/wcdH7uqKpNL89F3o+lQx2YuzY/Z
ynU55qFcmq9o2yHKhb5cmr+G9GPjFOZzaT4rp708c8aJS/PrNnPetmAOF4rZ
fA/eceuSkxGX5n/iI9ORoMIlfLC5sjZkviSX8OPql/XVGQO4hC/GOaPuvO22
IvwJ8viR4ffaivBpY8GeRpFHVoRf47znB96styJ8m9Epbnn6ghXh3x3pheJX
TloRPsq1bzzxa58V4efXKPPfCwqsCF+9f9RWtKVaEf5WRz4s5UdbET5zt2Qe
Wh5qBVoMv4tmeASsCrCCDIbveWu/H9vhYUX4r33Ui9s7y4r4Qe1kXX3cJCvi
jzHBqfLWHCvQZPySZ6f6UGOcFfHPyxCxCxZaVsRPT9taIjfIWxF/lT+WOvdp
uBXxm5LR2DH5g6xAmvFf3czENcE/OcSPHq/nmUV2cYg/JecXSVa84hC/CvqP
Q/xbMzMyo7GZQ/y87uMdnyM3OMTfLQ7Dz1bVcIjf62RK5AdUcIj/P/dclttU
yiF9MCe6x9r0IIf0Q9WaoBGqOzmkLzKW1I2wz+eQ/vD1UD2/g88hfSLR/SnX
PIlD+mV1gM6IwZs5pG/ejOorHh7JIf0zV2PEqTmhHNJHRa7WVU0rOaSfPjme
Uk3155C+sj72eNLmJRzSXza/3TPKFnLgENNnOyzF3DVdOaTfkoe+/9Mwi0P6
7ufw8S1np3FgE9N/XG89k6eTOaQP34fwFtvZcUg/3hLrPdhuzSF9eT73+7wr
lhzSn2pnHh1sN+eQPv01aEGbnQmH9Oto9TEWbWM5pG/de2Tbqw05pH+3zmmQ
f6jHIX08vFhmiLkOB+Yw/dz2Lf9+oyaH9PX6KLHjR9U5pL/d2waduq7KIX0+
VldZWFuFQ/o99tbdUzVKHNL3ClLFz7Yrckj/CyXeLapW4JA/SPp+5YtC/2v0
DxNXHuiqkOeQvxDwB4f8B77Pj1zn+Wj8v5/fkpoz96TMv/V5B61g+9cU+n7Y
pCO0syWFnq/u2/agiooUev5br32XvN+WQr+vpCP/ECcqhX7/DYsCmf1eKXQ+
Bolf/IztU2AEO78z8lP8Hmun0Pk+PGV5+6BoCp1/YM0M98KOZLofh4jXlSca
kun+Lg3X2dF1Ipnud27fk+Nuucl0/4mzt/A7IpKpP1b2Kvx12COZ+sfB2sgs
H5Kpv0oHntI4rZVM/SfuITNxoFgy9efG1mG9Wz4kUf+aSp3umngnifq7qN0n
S/Ns/2vW/7VCp+dPKkqi+ZiuE3liR0wSzU/q2kpxM/8kmq9v+3ZfHzg9ieav
Uzd5qqRpEoSw+bxr9O6tu3wSzW8bf+HP9j+JNN9LdufUHX+VSPOfVOO/o/pW
IuHDj+bacxKnE8GF4ce7+ONeu4oSCV8euc89HxmbSPgzfs03keLARMKnKK3e
pSLzEgm/iqy6esutEwnfWr7HfTitk0j4N+dk8cy+EYmEjxFGUydk/0gg/AzY
dP/Y2hcJcIPhq/z++ov7byWAMsPfqm29K3XLEwifNURjT/bsToC/GH67rLkf
q5ieAK8Yvv/6ceUef10C4f/NyFT+At8EGMv4AazvFYbNTgB1xh9NX6/efWOd
ADqMX57aD5c/YZAA+Yx/XDe94TaOTiB+mto+VtJxcAJYM/4KGu69aNSXeOK3
XedPv7V5Fg8+jP9Wv1BaW3M7nvjx2ZN5ldvPxxN/jv31LailJJ749ZtSpH1g
cTzx76HEGS8WpcWDMePn5JbH3Uc3xkMU428noQJ596B4WMX4PXmNbKfv4nji
//0OA8SbZsXDNaYP3s2fIlRkF0/6oS5DcvE1s3jSF1s+3zzuohtP+uNGzZRw
W4V40ifaURfMM4fFk345d/u+n71wPOmblBmVMW5f4yCG6Z9mTY0fjW/jSB/J
b/KyKnkaR/qp7MHKkx+a40hfJfR2X8qqiwMxpr+0Wzybii7EwQSmzxyFnlpI
nIkj/Wbwe92sZ0fjSN/1mCsEK+2NI/1nXsB/fW5bHOnDtDd7Bl7NjoNKph8j
D8sPM0+NI33pWn3BaWhcHHgy/VkZvfa7U1Qc6dPR+81cO8PjYAfTr60x8tt/
rY6DEqZvF/YuH7Q6MI70r4347soZ/nGkj0eWBnfmeMeRfoa063X2nnHgwPS1
UUdbyEL3/u9j+nvTDK5Eq2scWDF9fiShpOyKS/9rpt/fgEeC3Ow40veJQ+q2
3Z0RR/r/d0Pj4J/OcZDJ/IHq++P3EqfFkX+YmzBILmZqHPmLs7GN955PiSP/
4dRPH8f6Xx9i/gTfn8b8C35+L/M3WB/9D37/XeaP8PnQP+Hzo7/C34f+C38/
+jM8H/RvNuz8zjB/h+eL/g/PP5H5w0XsfrYy/4j3t475S7zfFuY/8f7Rn2J/
oH/F/kF/m876ayzzv9h/6I+xP9E/Y/+iv6b+Zv5bl/U/+nOcD/TvOD/o73G+
0P/j/GE+gPOJ+cEFNr+YL+iy+cb8Aecf8wnEB8wvbjD8wHwD8QXzD8QfzEcQ
nzA/mcrwC/OVVIZvmL8cYfiH+QziI+Y3iJ+Y7zxn+Ir5TwjDX8yHEJ8xP0L8
xnwJ8R3zJ8T/BJZPIT9gftXM+COW5Vu2jF8w/6pn/IP5GPIT5mfzGH9hvob8
hvkb8t8Zls8hP2J+h/yJ+R7yK+Z/Lox/MR98wPgZ88PtjL8xX9zE+B3zR+R/
zCdbmT5YzfLL90w/YL6J+gLzT9Qf/iwfRX2C+elzpl8wX0V9g/nrR6Z/MJ9F
fYT5LeonzHdRX2H+i/oL8+Fips8wP0b9hvky6jvMnyWY/sN8GvUh5teTmX7E
fBv1JebfyUx/Uj7O9Cnm51eYfsV8HfUt5u+ofzGff8L0sQzL78uZfsZ8fwzT
15j/1zP9jfuB40yf4/4A9TvuF24yfY/7B9T/uJ9Af4D7C/QPuN9Af/G/+w8z
07//GNHrnpTRcZ9NjMivuIY/ijLuf41+ZpnrOaMPxkbkd8wcjPbojTMiP+R1
s7rvuZER+aWhckZLlQyMyE+d3uchdE/HiPzW2mUuosM0jciPHYwwq7isYkR+
bZoRz61X3oj2IdyaOpMyWSPye2VrudvfDzciP8jRkujZJ2pEfjHEo2xfm7AR
+Um9n6WyxT8NyW++54RXPv5sSH60YU6QbPE7Q/Kr/OjXB549MyQ/+2nXyAGH
HxiS3w11GlT+rcGQ9iFzZ6b7Xb9sSH7Z4IvLSdVKQ/LT71eUOv4+Zkj7kE6x
44+W7DEkPx5//4/OjDxD8uvGFR0fa5MNyc9fVHcSqtloSH4/b+JygynBhpQH
xOfKO3l4G1JeMCtqM+eXiyHlCdtLdN/pTDKkvGHqnubJbeaGlEd8jkpy1NMx
pLziku/ad39GGlKeERvaahYw2JDyjvs2Eqbe3QaUh1S2TunpfG5AeUlYwsXt
I5oMKE95dXWV45XzBpS3eBrLK0gdNaA8Zmr5mEnd+QaU15zIq/y9Ks6A8px7
V+dtilttQHnPuOHiEhMWGdA+5Mcxu/ebnQwoLzqy90zQSlMDypO2R7u8+aZs
QHkT55lumZqoAeVRw+Onm77/pE/7EN0BzfXuj/Upz1IZvu/Dysv6lHdZRoaL
6pboUx5mXFeSm5CrT/uQj4vtZTI36tM+pCvo1KBJvvqUt+1Z0/Z5r7M+5XFR
Ab9WnDTVp7zOYvvygasU9CnPuwyls1uF9Cnvq0+a1f3rlR7lgeK7z6bdrtej
vDDIVPWK20k9yhOTS9ZMLsjTo7xR1MayNmuDHuWRj6OCP0xeokd55fvH62PO
TtKjPLPnRJ/VK309yjs99W4+vTtMj/LQ8mtV4+I+6dI+pLthW0/PXV3KU+ud
xIaYlOtS3hrwYr6RyTbdf/chqWusf23Upbw2sLFWOsNLl/LcJaJiiR/tdCnv
ne/ktEFFW5fy4D7VPU3KQ3QpLx6hY7Py4xsdypOzXdQtcm/oUN4s6D8dyqMf
3Mkb6JumQ3n1t7LcF1lBOpRne3iFHC2aqUN5d8mXu3NijXUoD+/anHprmpQO
5eWG84JHfv2kTXn6cGHQ3nxHm/L2x8u3/Og+qU15/Ip9y/kzs7Upr19RXvI2
e4025fkvpgeKXHbRprz/s9Owt89MtWkf8tlRJfejjDbtC7plTEd8/KJF+4T9
fy57PG/Won1Do4V07M1TWrSPcBzyO+VothbtK3IlOyIT1mjRPmPWpr0LPV20
aN8h4A8t2ofIva4RF5X59/3meZHvnn7WpM+rLV72qOKOJtXPHzv3eeFJTfr+
Gr9dYrFZmvR8oXNM54eHaNLzr1Vxagqbo0m/L0x5wcZYE03ah8TL/Vy8W1qT
zqe3pHzDnc8adH69F3/dG9WsQeeb+ut54OpTGnT+7r46tu3ZGnQ/NlLfZq0O
1aD7i3jxMF9hngbdb1VIpsxzcw26/6Ei3RV1ozSoP0JONG5u/q5O/ZOZ3eAt
/FCd+kt8wnTneZXq1H93pSeNa9qmTv3pBno/wjaqU/8un3wpx2mxOvW3tIrK
O0dbdep/Uc9FT8M01Wk+fuXucWkZrE7z4//os96KN2o0X0JbhnPMbqrR/BUp
L1psdkyN5jM078bKlZlqNL+l2w9PeBaqRvsQcZttCZluajT/wWX+BtFcNcKH
yOSO9mNqaoQf6a+/RqgOViN8OT/L3elAsyrhT/nql7zCYlXCp27fdDvFAFXC
r+rERSfGmKoSvk2sMGy/26dC+Dd5WqC+7E0Vwkcv/vcrnXkqhJ93f93r9vdV
IXxNfDn09WZTFcLfz52+l+wGqBA+d0lM3n+4SZn2IUGc1bvO7VKmfYjH/SdV
USHKhP85pZs/ddkrEz/EXtcxHT1Kmfij7OJ4v+43SrQP8RDfuDSlWon4J+em
du9TvhLx0/otiz9+8lUi/noa5Nh91UqJ+C2ktLzMS1qJ9iFaPPWGmreKxI9B
xfOb3tcoEn/aeKy2ay9UJH6VDSzMPxyqSPw7iPfB2m6mIvFz+7lpGSUGisTf
HjKWrZ0iisTvWjPL/ETbFYj/r76Q8emtUSB94CT8/Hv9TgXSD+8bKqw3RCuQ
vuDGa/MkliiQ/shZvbEnyk6B9Ilx47X597UUSL9c3lXAlRVVIH2ze2FPOOe9
POmfWUnc+qlN8qSPgt2/vp98Vp7002XVW1HG2+VJX3WXB40Wi5cn/dXTvcL6
TpA87UM2vNIKSHOTJ/2mN7b0j5W9POm7N1aXPf4aK0/7kM7EXdcjFOVJH5be
/L1BTEye9KOZbteerO9ypC97XJ/OH/lajvRn9IPle7Ja5P7VpzJLY4bWyZF+
9Ygta42ukiN9G/DMhf/lmBzpX7eplv5L98iRPuaGzlC6my9H+5Doxz7u9hly
pK/bf2hXn4yXI/3tFyNTr7FJjvR5ZVHooJwIOdLvkhNcbouskSN9H+AQGh8Z
JEf6v091zprPy+XIH2g9HX17RYAc+Ye2suLa135y5C8C/P7+I0f+A99Hv4Kf
Jz/D6qPfwe9HP4TPh/sQfH70U/j7cB+Cvx/3IXg+uA/B88N9CJ4v7kOWs/NH
P4j3g34R7w/3IXi/uA/B+8d9CPYH+lXsH9yHYH+h38X+w30I9if6Zexf9NPY
37gP+cb6H/04zgf69VA2P+jncb7Q7+P84T7kKptPzAtwfnEfspXNN+YNOP+Y
RyA+YF7hzPAD9yHXGb7gPgTxB/MQxCfchyB+4T5EhOEb7kNGMfzDfQjiI+Y1
iJ+Y5+gxfMW8J5ThL+ZBbQyfMS/awPAb9yFbGb5j3uTJ8B/3IWcYP+A+BPkD
9yH5jF8w70L+wTwsmPET5mXdjL8wT0N+w7wtlfEf7kOQH3EfgvyJeZ4T41fM
+5B/cR9ykfEz7kO+Mf7GfUg143fMGy8y/sc8EvUB5pUbmH7AfQjqC8w7UX9g
Hor6BPcha5h+wX1IMdM3mLcOYPoH89gApo8wr+1l+gnzXNRXmPei/sJ9SCDT
Z5gXL2D6DfNk1HeYN6P+wzw6i+lD3IeEMv2IebYE05eYd6P+xDwc9Snm5ahf
MU9HfYv7kDSmfzGPR32MeT3qZ9yHJDB9jXl/ONPfuA8IY/oc9wVhTL/jPqGW
6XvcN6D+x32EBvMHuK9A/4D7DPQXuO9A/4H7kDnMn+D7W5l/wc87MX+D9ZuY
/8HvP8D8ET4f+id8/i/MX+HvQ/+Fv/8582d4PujfcB8SyPwdnm8r8394/iOY
P8R9CPpHvL9PzF/i/R5j/hPvfxHzp9gf6F+xf1qYv8V9yCLmf7H/cpk/xv6U
Yv4Z+xf9Nfa3G/PfuA9Bf47zsZL5d5wfYebvcb7Q/+P8YT6A8/mN5Qe4D6lg
+QLuQ7xY/oDz/5PlE4gPH1h+gfuQVpZvIL6IsfwD8SeF5SOIT5if4D4E8xXc
h9xi+QvuQ66wfIbwkeU3iJ+bWL6D+5C9LP/BfQjmQ4jPXSw/QvzGfAnxHfMn
xH9llk8hP+ix/Ar3IZhv4T4E8y/ch2A+hvyE+RnuQzBfQ37D/A357z7L55Af
S1l+h/w5heV7yK+LWf6H+5DXLB/EfUg4yw9xH4L5Iu5DMH9E/sd8Evchl1l+
ifsQzDdRX2D+ifoD81HUJ5if4j4E81XUN5i/4j4E81nUR5jfon7CfBf1Fea/
qL8wH8Z9CObHqN8wX0Z9t5blz7gP+czyadSHmSy/xn0I5tv0921Y/o37EMrH
mT7F/Bz3IZivo77F/B31L+bzuA9xZvk97kMw38d9COb/uA/B/QDuQ3B/gPod
9wu4D8H9A+p/3E+gP8D9BfoH3G+gv/jf/QfyCf57Wf/s2wu0IPyv8dxv9hEg
LPT3H214kDzhWsXscOZftKF2t8YM3WVhgv1KvTZkrvqo0J20ltXTgf3B1uIt
p0JZPR1Y5zE3JfHVGlZPF/LVNHfWqq8B/3/q6ULBM94T8A1h9frx7tfrZRdL
V7N6evD3v+0lNGg1q6cHnytk3l/wDGb19OGky1GF2JhVrF4/XoywP5LtEgQN
/9TTh2OxnVkTTVeyegaCemqBsO2fegYQbzV68nr5FayeIexfrPGUo7qc1euf
pwGefg+Ml7F6hvBHf97u99MD6DxL/j7PMH/2fEbwnmvQ9/GgH/xTTmgMXHPr
r/jKl9UbAyFuCj2zx/iyemPA0b9gkl7UUlZvLFSqxHXMfuDD6o0Fv/i0k1FW
Puz5xsFQ2ROJSw54s/sYB1uOcGNKFb1ZvXFwZ/vNu1r5S9jfnzCGf/5zUqUl
gvN1Nob8IW/1Qw56CZ4v2hjOOU6Yf8vKS/D9p4xB4bNo0N6jiwXP+8oYVuh1
RmR/9GT1xsPAvz8HnqzeeLikcSEqsXgRqzcebo2aUtU0ZBGrNx4Sbdyuxkd5
sHrjYccD+19uwh6snomgHn8hq2cC7UeUr1gaLGT1TODC8RtxN267s3omMK2q
6dqGaHdWzwSS3AsXqnPdWT1TuPxVzyNjgDurZwobmlTG7W1eIDi/aFOIH14Z
a398AatnCh8O3Zs/P3cBq2cKohvffrgdt4DVM4M1/e28J3oBq2dG7wuez4w+
L6hnBomsvqCeGUSx7xfUM6fn++e+nM0hlT2/4PnMYTr7ff+0wylz+v2CeuZ0
PoJ6E/7n/CbQ+QqebwKdv+D5JtD9COpNoPsT1LP4n/u1oPsXPJ8F9YegngX1
j6CeBfWXoN5EGP2f/psIjaw/Bc83kfpXUG8i9beg3kTqf0E9S5oPQT1Lmh9B
PUuaL0E9y//O3ytLmk/8+6kn2PwK7oMDwgaC+Rb8Xg50svkX1OPAIYYP/4zf
Kw7hh6CeFeGL4PmsCH8Ez2dF+CSoZ/Vf/HplRfgmqMcl/BM8H5fwUVCPS/gp
qMf9L76+4sIGhr+CetaEz4Lns4YMht+CetaE74J61oT/gnrWxA/497OQP/5/
fMJR3a593Tmc+KTwdsXjr2FriU/SXi76Gn1uDfFJ8OZVhTaqIcQnD//+97i2
BROfzHQUskhZHER8IhJ8KuJE+Qrikz2vjrT78JYRn8Qn3i1L+eRHfJLQMbtc
5dZS4pNRnptdVBu9iU80Xv/eVNTjRXwyJ9WowCfJk/jE7VVJ5XDfhcQnof/g
gxvxSa0PL2Xfg3nEJ4lF57cfX+ZCfCJRFDgw3Hg28YmgH2YQn2z5+/n2TSU+
uf54iyR/piPxiUaTdYfCdAfik+Z/5smW+GR99wWPFFcb4pNr/+ANh/jkqlnz
uRkGE/7lk2VptrqXTYhPKpXe7DqTNo74pLjueZ+miwHxydS//ec1beIT+a9V
peaP1YlPHKwL39X1KhGfTBF6fsxz0mjik0eJQ2FPqDTxSXd/OcdnEsQnZw2l
DvbZihCf2Jk3bmh4IkR84rl1sMwm2R885JMB8fwvfbzPPOST4XPK+xHiLQ/5
pMP3Qmfo62c85BOdVZW+CT0tPOQT697Lwt2/GnjIJ9O6pxeKTLrEQz7R/3vf
J36Wh3zyvehu3r7iwzzkkxXRXbscpm3nIZ/MWn/oQX5LJg/55I+oS860Fwk8
5BP89x2QT/B95BP8PPJJfYygPvLJs2LB9yOf4PMhnxxjz498UsV+H/IJ/n7k
Ezwf5JP/nt8EOl/kEzx/5BO8H+QTvD/kk//erwXdP/IJ9gfyCfYP8gn2F/KJ
23/6byJksP5EPsH+JT5h/Y18gv2PfILzgXyC84N8gvOFfPKf+evnE5xP5JN0
Nr/IJ65svpFPpNj8I5+kM3xAPkH8QD5BfEE+QfxBPkF8Qj75D3718wniG/IJ
4h/yCeIj8skBhp/IJ2L/L77284kLw1/kk1aGz8gnQQy/kU8Q35FPEP+RT5Af
/pdP/g+GNfqZ
     "]]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0.10000000000000142`, 0.010000000000000285`},
  Method->{},
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{3.3975000106506653`*^9, 3.5882699772321277`*^9}]
}, {2}]]
}, Closed]],

Cell[CellGroupData[{

Cell["Lin-Square Root plot", "Section",
 CellChangeTimes->{{3.5882695143414793`*^9, 3.588269531921504*^9}, {
  3.588269562571547*^9, 3.58826956480155*^9}, {3.588269955412097*^9, 
  3.5882699929521494`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"obj", "/.", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"u_", ",", "v_"}], "}"}], "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"u", ",", 
       SqrtBox["v"]}], "}"}]}]}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{3.3975000151571455`*^9}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {RGBColor[0.24720000000000014`, 0.24, 0.6], PointBox[CompressedData["
1:eJx1fHdczvv7fzKamvdoD9pbu7vxviqUUMiWEVJGUTJLklWkbEkR2aEhtFDJ
nhmFHJKUSFbIKN/7nF7XdX7n83j8/HMe78d97tf9er9e1/Vcl3P0p88fFSIp
ISGxoreExN//vH1L/Ed+INgofL/b1KYMla5mX2LEz/avExZlq6jA95eT5ybJ
DYSxIUkXhY4qcHdp8cCvMgNhZVG2hvcEFZDvV5V2UWogaBkWtxvEqkCvm84b
3/QaCG2b/pSV7VWBp297+i3oMRBG9Pn9SqZCBdr2QN9xnd6waNnqOrlXKrBX
yUGY2eENTdNLBZW9VGHvDP9Cry/e0LJTQ9bCSBXMqjRdfd97Q4T6HPMhPqow
rstX/lSTNwyRvPJJLUwVWqembY1+4Q0bw/c+Sk9UBdWfdV4Ztd7wcnHRiDtH
VWGi+BcN73qDFGf9vOCaKsT1Pm6kfMUb/H9G//R5owoLa14umlrmDaOkRvff
JMWD4YVjjZQLvMG478faVUY8iLc89dzoiDeo611NMxzEA1FtaMD+Pd4Q1FrQ
vGQGD4KM79uuSvWGH69bfJau4kF7btewqwneMG6FhIfRPh6Ul52ZG73IG26N
exuwqowHhYGzZyWFesP+jb96JT3hgf1uYx2pCd6g+KLltds3HnxJS17RNsQb
CmTuxGao8MEn+vRSEHlDx3eDMUes+PD7m1HfLlNvMFKq/hXkx4fEbdWeJure
sG6p5p+yED4UXG01KpfyhuApZ9quxPMh9+2HR1e+ekGwe/Gk5Xv4UB0SF+n+
ygvkjE88rjnDh5bxYwwN73lBp8zKH3V3+bA8x9loZZkX7O9IDUxq4YNE8ov8
YUe9QHZ+zornkgKImlKvkLrNCy7t6qtUpymAcZoZyT5xXmCfOuNgnL0ACvVM
Vy8J84I1h249ujZMAHqL3QP1RnnB1r11UDxTAPPWqs3ydvWCXx92rQ6IFYDX
kHmWDf294MHvOPeN2wRg8mVQ/y45L/jiv1Zx3nEBhMl+u572xRNO3BZmfCoX
wNjeHTmnn3pC9iet9Zq1Alg35cmkERWecPnr10UtrQJYbawXveCIJyj3jlec
JCmEAxoDdvE3eYJ+CP/3fKEQNls6zPeM8oRhmSmvjS2EMPpw18mvYz3BNt17
SQIIYXLhe3l7V084fFt+ysrRQliR+nBYl44nlPsN9NUJE8ICnTqHsZKeIPf8
yuspMUJ4YDR9l/trgGP6X5shRQi+0k0+Z68CBG4q7FGVJYRzvV4aVB4D0EpY
0NxcIISlwpMqMzYCPB+pGXCiSgjjJ4f8Tp8H4OZl/VGpRghzFK8+mDscQHtj
7mp+s3i/Kipbai0BUkaYVhV/F0KFdottfV+AH7sKwzul1ID3eXqsYh0HO5y/
utcL1SDvVGNM1m4O+lzVbA82VgOL9NB1S8ZxwI9tGpHgqAYLb5ZcT+NxsFhw
QOA5SA1OFJqslK72gOXnzGT2BqpBWY3tuxvJHnCupPV9WrAahF0cNrnRxwPW
J77eOGC+Gqwdu9N6gqQHDJlxMCc0Vg0S4nZcsSxzh4XWQ4WuSWrQKP9h86xF
7uDlmJqes0MNfuroSklbuYP2q2LJ4v1qsPOuTY6gyQ02xRzTmXFSDTRHLZLe
lekGldXVF44VqUHaEtHpTaPdIO2T25nkS2pw+EC87x9ZN+h/beMjuTtqkGSV
F/6x3BUyLn9rN3qsBpH+/vdCFrtC0TL/t3+9VIOts/MNZ5q7QqjZ700279Tg
Qkeh2ccXIqiZKVmi064GiW/nZStsF8G9xM4hR3+rweqtjydW+YggyN9A83Yv
dThtsqOf4JcLZAzyld8krw5df6Xelz7lAi9G1HQ2q6rDyg3nfPdPc4HParXV
f2mow/WfJ8MaVVxgY8yHuRH66vCpfqlmbZUzfPgyLX+3sTokRNgGxC12hqxO
maSplurgllH87bmxMwyMnFV30VYdygymy3Q9doJ1dalbS5zUob/TwYT6JCcw
vOOeHuCmDtlNN4M3ipzgl9mVF3GgDv5BR4/1fOcIBrO1R/kOVIevd0XT/Pc4
gs7Dmpc5PuqweHhIyoKhjvC9ymDVMT91WDp0Nzf/lwMse/S4v+dwdTintm5V
QI4DBPWdeTEqQB10Da/OEExygAiZWj+PkeL3Md/6/ZqsA1zQariQPUod+nqH
BMwrsYeLcx/xswPVoaG2MK73HHuY2WP/ULfR6rD77z/q9uD0/OHk+eLnkZPi
Ci2v29HnRh9vv7qy1I6+P1dqv+scEztan6cw767WY1v6/RiNk/mv1tvS/kqb
d3+55GRL+z//+vbByuYB9H4eMzruN+4aQO/fVLMhydp3AJ1P6rDQ6iMdNnR+
yr9T8kYds6HzXaxQbeow0YbOv2PnMrfRcjZ0PzOSelybvcya7i/hYLR10TMr
ut+HC2R3ZIIV3f+skd8f9j9kSfUx5/jgitGyllQ/Pfhu+qIFFlRfwZ5n8v6q
Maf6G7slWXeIhznV55vo30rrDptR/Q7c1lNzr6IZ1fea69cvpy8zpfofI9Nn
49pGE+oPDf2QR6EjTKh/HJZ8+uN33pj6y7YyZoyzuTFUsP4TXe2l5JJuRP25
yMRk/FhZI+rfvcMSB+6OMQRP1t/TZrs+kW0zgCjW/1OKXaQKgw0IH3Y138rJ
rOlP+PGpSGLzvWH9oYjhi3wnL2xMVT9YxvAn/u7H+/bu/QifFGx3TVhyTp/w
S0omM8LQTp/wDRKywn3y9Aj/pn2oSH9tpUf46OfsNlBpii7hZ/zI7VYRwTqE
ryoN+1vaQ7UJf9WUZzoVRmoRPvOOVB0qjdMETYbfKRsyNmmkahC+O+4sVa4/
oE74P+zJF23NEjXih7cjTGY9fSgk/mg0nRpi8UVA/GKVXhukyxcQ/wyb1j+w
QsQnfqr67q2qN5NH/FW0+ab5kC2qxG8Zj3u0DalUgSrGf1oH5MOtvysTPyYv
01rRx0aZ+HOzXWZB3Twl4tfNvR9VLp6kSPxb76XsPON1X/jJ+DnLqTJk+xJ5
4u9pKVKh+ipysJrxu01j7V29MzLE/4kF23KOTpOGSqYPsp5kxdzhSZF+6Hip
4HikujdkMX2hJDdwoM+uXqQ/NrudXlUZ0pP0ydG2dJGFuyRMY/plgc5ts13a
PUjfKAXHx/KlJEj/5AWOTon80smhPpp2vErL4N0vDvVTPS9r1YyvP7h8pq/y
5CEiQKWDU2D6q7xMelYfr29cFtNnsCem7NCadg71W5795G1Dnn7mxjN9l+XT
9lje+xPXwfSfRNqCZJW4D9wkpg+n9akrOZXRyqF+hMDie1oNLRzqy/LrH98n
+jdzqD/1pF6XajU0csOZPq0PqJnzJ6OBQ/2a9TI0d8zKeq6e6dvymoz41Sp/
cah/4/cPP3pl0RMO9bFE0VuPXJMaLpzp5/LO9ENR5g+4N0xfS8QNtPWMu8eh
/pY40Tk+2esWh/pcovzUjgDTaxzq9/idd6Yp5Fdx75m+j9+05JHE0woO9b/E
Ts/yY74XuTjmDyQGz18SpFfGoX+QyC19Psy1hEN/IZH+N4EUc9bMf+Dnq2an
z2i4oUzfn94QcWXnYWVaPyj1UmqvBGX6/eFp9uMtJivT/pJcc4oVnJVp/43t
kwNOqCjT+02+fu9M7/dK9P4lJY82aF4VP3d1n0/IrE3hbVlKAOz8Bj4I7Ypb
rkTnuz/K8MXtQCU6//njHxfUWYif2f3czX2tfay3Et1f3waF5PAyRbpfy/MZ
B2XDFen+E/f51phpK1J97N6bGX33lgLVz1Xzxkc/YhRAj9WXXbVJYI6ZAuSx
+ou55u37+nFfqs+AlS9Vj63rS/W7RTdZ2GHXF+6x+hbZnT33oF4eyln9x8Zd
meS+SR4+sv5Ya2kY4egiT/3jtNgvqLxRDspZf/2pvrPzWaocqLH+W/Q9dkuy
SA7iWX8alIdcqm6UhSLWv/nm3w6fTJGl/jY7p1ii7yxL/Z83qH+c9UsZkGjo
xoebz/2XPk6SgTyGH2dS4gbo2MpAGsOXsAubHSWfSoMzwx/XGXFiZSNN+DQ5
av28HBNpwq9tyjNvLbwrBR8ZvsUqxNTUL5Ii/JvvpGPVrikF2xk+jht0Oya3
og+kMPx8ph0fzgvtAzoMX7sCfpw1kO8DBxn+/rmlr9KQ1xsuMHyu6Tmf8x/T
G64x/A7PHd1n7o9e4M/w/eaTSw6izF5gw/C/z92ig+ehF7QxfijremL7/VVP
aGX8MVzd7PqbdT3Bn/GLoeq9idtNe4Iz458Gw47Xv25KwmbGT5fCqqP1IyRB
j/HXCbsTOlJKkqDB+G2Vk4dMbn4PUGP8Z6isMkczsAckMH7M7m+a6N8uAcMY
f/avqD3vt0MCpjN+HWzyermKowS4M/79PurrphEn/3AKjJ9HfX2eqN3WxfEY
f+s9lwzdYtXFrWP8fstEqzU/opNTYfzvsemq8dpTv7l2pg/CD6WsVG77xaUz
/TCw94GSyZa/uKlMX/jH7VKMnPeTC2b6I2XLDvvAnB9cFtMn/VrCo+TfdnBR
TL9kePqWHjLp4IDpG924I5dNQr9zzkz/aC2+YpF16BvnyvTRXN6mXcLGr5wO
00+L9p5p3tPvKzeB6Sv/IRYLXYPbuXVMf53v5efXJ+sLN5jpM4u9gSkKLz5z
b5l+O69Z8CxM5zOH+u7o+YqHFlM+caj/rn7ovLho70dOmunD+0Nrb1+58IGL
Yvrx8br5no5ebdw8pi9LJ7+YtvVqK/eE6U8pMFAdFPCOS2T6tP3qbI87T1q4
EKZfM/t4Pbse+ob7wfTtOqsD0h0/mrglTP/eMlSp8NnymkN93HV1vu9rq0YO
9fO+yvqI4Q8buBamr4O5BT6hq19yXkx/L9As/nzIo54rZ/rca4PpuFCV59x5
pt9111yI87tTx8Uxff+Vb5cwtfQJJ2D6/4zzlluZTbXcPOYPgmc3no+YWsOh
f7jgIjP1nOMjDv3F2PhBaemxDznyH0N8p6u6P+SamD/Bz5WZf9EVdX//JvM3
ZWx9feZ/8PeLmT/C/S1n/gn3v4T5K3w/9F/4/ujP4tj5oH9bw87PiPk7PN9y
5v/w/D2YP8T7WcP8YwG7vy/MX+L93mD+U4Pdfzzzp1gf6F9bWP2gv21g9ZXA
/G85q79k5o9zWX1WMv+M9bud+Ws7Vt/RzH9fYvW/gfnz0aw/jjD/HsP6Zzfz
95GsvzSY/+/H+g/zAQPWn10sPzjC+reJ5QsWrL/XsfwhjfX/epZPjGP4MIfl
F/4MP86zfGMxw5eTLP/wYfgTzfKRRwyfMD8xYfiF+cpYhm9qLH/5w/DvEstn
/Bg+bmX5jRHDz7ks3znM8BXzHxOGv5gPrWH4jPlRHsNvzJcQ3zF/QvzHfAr5
IY7lV4GMP6awfKuS8csYln/JMv7ZyvKx24yfMD+LYvyF+dpTxm+Yv0ne7uY/
zOeQHzG/Q/7EfG8841fM/xYx/sV8cBXjZ8wPdzL+PsPyxWmM3zF/9GD8j/nk
XKYPML8sYvoB881bTF9g/pnP9Afmo6hP8lh+eo7pl9MsXzVj+iaJ5a/LmP7B
fFbyfrc+8mX5rYjpJ8x3E5m+wvw3nukvzIddUZ+x/Hgr02+YL49g+m4Ky59X
Mf2H+bQT04erWH59k+lHzLczmb6MZvn3RqY/MR+3YfoU83PUr5iv32P6FvP3
BUz/jmf5/EGmjzG/H8z0M+b7s5i+xvy/lOlvnA9MYfoc5wdNTL/jfGED0/c4
f0D9j/MJ9Ac4v0D/gPONNcxf4PzDlvmP7mdPSL5c91evz3zoahi0v0z8vGvg
Xq2X3/lQk3lWN1n87DSyY15pJx/Sx1gPdRU/X7L5FrmtpwD6Kt80uSHnCZYy
KnfDZATw2Db3orP4ubDO2cRVUQA9+8ipr5f1hKCwu/qyYt0XbiqEMzLif//n
2WmPNAQw5SnP65K0J4RqjdqQoScAM53hVvlSnnDFOWngVCMBqNxUFKzs4wk9
de86aFsIIGBBgbxlb084sciwd80A8XraqcalPT1hC09/YpKTABRkesaZivGg
3rftmaO7ALSE4aZLJTzBrucYx+deAtjgYTHoSJcYXz6UKa70FUDpncy2s78B
1i4doKruL4DC7ZqDjvwEqC8IeZcTKACD+h+zl3YAFDgWeTtNEEBs2Np4s28A
0186XiuZIgBtlR6nzn8BuLz6gKHjTAE82patbvsJYGVMlMyx2QK48Xt76/o2
AF3nx/qq8wXwS6N15MV3ANYnKrWjo8XrVeYsfvwGYPnxlyduLhPAga8Xkx6I
8e2m9bGV6isFMKztZ2leA0DY7tE+k9cIYIG0Cix4AZB8reXMziQBGKWk+6k8
A7Cwc4u7nCKA6SF9VHY9BnBr+BDYsk0A2/dl3el6CFA9OfZdj90CCHuXVDKk
GmDYeuufCnsFcP9NofLS2wDvg20clbLFOnxqg/KG6wCSN1aN7X1U/HsTMn+u
vAzQQ7O3atsJAehrO/WdWAHwsCrW4Ea+AM4qXkpWOy+2XfdSBu4+KwCrJSoX
SosA+o+5ajmpVADP9fOavQsBourS9yiWC6DkU93I/FzxeZ8O8ztbJQC1YesG
98oR34fLiu/+18X3HTFU2f0wwEV5XvCT2wJoPRTxZ9J+AE+HiYPH3BfAmchH
U4MzANQ9FoRW1gggebXk6uG7ACo85q3VqxPAhRylUr2t4vupnTR9/gsBmB87
OakuGUBFd3DFqVcCMKnnlaxYD7B0jeWs580C8O+QsZROEH++X1nQ9U4Aq4Mf
yMfEAgT/+biz70dxvZTbn65ZDGD/8EaufLsAEr1nx2hGAkzJyTL59V0Ad55r
Vw6ZC9AptfTG41/i+4qa+zo4BGB/x6Sph/4I4HftvYEzpwIk7ptSMK2nEMrq
LDxHTgAwy01PlZUSQotWkZtpIMCQOvuqA7JC0Hvald46TPz+HpN1TBWEkHLk
afmeweL7OjsiPFNZCAOU5vGcQMyXNhNX/eEJYWE/XucFFwDjLw/MA9SEkPAm
/JWdHYBsjQmXrCmEZ7d8Buy0ENfnwkcpZ3WEMP1dxsgmQ4CgEbM/3NYX//sB
KXkGugBK39Y73jcQwjndoNKRf8eM0m9Fl4yF8OvslPpwZYAQ/ykPs8yEEHfi
T8oyWYCa/Bt1cyyFoHajwGlRT4BtTpbm+jbi33v1165Kse0Y+D4j85KtEJY3
D4+NfcvBizt+iqMchDDr4Jqe6s84WJqdMPmWkxAKP5kLdt/mYHV1zixbkRAk
rhTv7bzAQZGZn+waNyE4hgUn+eSJbUxul0mFhxBs1vSqWrKfg9ahiQdbQAjm
BgYeqVs52JFYNbXTSwh/UqvfpKzmwMYlz+P3QCFIq+47uySaAz/dMKOmwUK4
cWzzHr8QDuTWm3aW+ArBOk1+k/RYDryfjTq+3E8I81purioYzIGK80yB4TAh
xDy9ETnEiYOA5j9mJcOFYGXjMvaOMQdlLW/vuwQIoWbZHFMvNQ7M5/T9mT1C
CEs9rzQdkubgsPXCTR0jhbDDrGjDzw4POC41LMYpUAjrJbJUPFs8YKtpa8G0
0UKIOFMRu/yJB3hsu2UQPUaMjaMcrh257gF9pm6sjBwrBIdnNe3Xiz1AqNoa
N2GcED4ZOfZsOOYBzm9rh5uPF8Kyg+vaP+72ABnBFINm8fPP/qk3vid5wOOf
pzuSJ4ifk3av/77MAyRDHCq1JgrhwcrpVp9me8DXczOX7RQ/v9GUqXw9wQNe
CN4Jf4qfs1d3DaoZIl5vfVqazyQh+CV+PX/JxQPa5GZ+jxM/H+XuW+aaivd3
fu6ALPHzP3GWugfMetQ+MEf8nPxlWu81Mv9+/va4+6L5P9zp+5tz7d8HtbjT
+sOEZpHDn7jT7wefvtfL67o77U90bHeOa7E77V+keDDM9Zg7vV9pygkPr93u
IM3e30u+03pkkjudT9fYII/Zy9zp/OLqO+dsnO1O53tlReTZognudP4nbLfp
fR7iTvezVzrmqLPIne6v7NO8YZvM3Ol+Jxdfk/mk4U7336fnz2cz5dypPorH
h1W0/HKj+rk2JDQ/vtWN6qv3HqPDZn+5Uf3NSTqw681tN6pPC73tsaUX3Kh+
HbKD/Q7muv1b34qKX7Oz3Kj+e+VazS/d4kb90XWj+ti7BDfqH/vwZdsdot2o
v+I9pbTTQ9yo/+6knLLWGOdG/Vky9PXZs75u1L/jA8bsWSAS75f1d+99ty/5
WrhR/zs/teODjhvhg8flRVHjlNwIP658WV6WKulG+GKzXXC/pd2V8Cci6Efq
rGZXwqcVu7Pv9XnqSvhlPX3cvJu3XAnf/NtkXc5cdCX8u68ySfZygSvho1rj
ivxfh1wJP7/GOXRO2O1K+Dr9R2VxfbIr4W9ZzJO8zfGuhM9uq7ccmxPtCusZ
fmf4B4XND3OFLIbvuxZ9P7UvyJXw3/DENLffI1yJH/QKrt9aO8iV+MNyQbK6
u8gVpjF+2eWl+6SftSvxz+somYtOBq7ET8/ra2Ni1V2Jv4rqlM9/UnAlftOy
sLJM6+UK5Yz/rgckLlzwU0T8GNQ8xj7mo4j4U2lchlJxk4j4tbv+RMS/FQEx
qfceiIifl324PyPnhoj4u3agwrnSChHx+3XVk+qSxSLi/88dVWor80SkD0bF
d7jbHRWRfihdGKGomyUifZEafF3RO01E+iMkSPfCvs0i0ify7Z92OCSJSL9E
hhkp9k4Qkb55I+jKVIgRkf4Z3U/x9KhoEemjjLHupdXhItJPn3xO6yaHikhf
uZ+qG5QQLCL95dE5MbVwkgismD7b5yIzsf9YEem3DXKtf+6MEJG++6kwoPbc
UBHpP7fpJrbPB4tIH7ZGcVO9vESkH2/L/D7a6C4ifXlhx/cxl11EpD/1zj49
2uggIn36q9eEei9bEelXob6lU72ViPTtxA5eY5m5iPTvzlF31J+YiEgfK2Sq
SjkYic+b6ef6b2k19/qLSF8vj5PJPaEvIv09sb7X6Wu6ItLnVsbaPQx1RKTf
19x+eLpCS0T6XkM58+VeTRHpf4nEhxllGiLyB0nfL3/RED+jf3AOP/KxWF1E
/qKbP0TkP/Bz98l9FYxb+fT9cpcvsr5NfFpf8X2ObVg9n34/lJf7av1TPu1P
7c3V2CMP+bT/qtOKk6/e4dP7dTm+edV8jU/vv6jt6wKZS3w6n5RBGjMtzvNB
kZ3fgbxw7ZHn+HS+73JdOpfk8+n83Uo/z9ifw6f7OS2wLbh9iE/3F7c517dz
H5/ut7eJa6JNOv/f+997tjp0O5/qY9UnhXXZKXyqH7jo0KcxkU/1lbFD47Tp
aj7VX5L5wffRK/hUn/vWHhNcWcKn+tXo8y5FO4pP9X04TO5czDzxM6v/hOOJ
H+pn8ak/wl4Upg0P5lP/nPtySqVyEp/6a2XQpPMeY/nUf2/OBHVcGsGHKNaf
eSPk+48ayqf+9cqNymgZxKf+HvCFu7QB+NT/5a5VXx1c+YQP9t+at7xz4EMg
w48SPYOvOTZ8wpfS+OWxS8z5hD8ht8PX+BvxCZ8m3v0RNkCfT/g1Z/HGtXpa
fMI3v6YOey0hn/BvSMyyagMVPuHjn6uZhaK+fMLPvpt8nKZI8+EGw9ffOfvz
U3vyQZvh7ziBWszdLh7hs01JwFvtnzx4wfDbKlxnTMxXHjQxfJ9Zm6D05iOP
8N9kasaCma08sGL8YCPMvvaxmQf6jD8c817M2fSKB0aMX5LmZx8VveBBGuOf
i+Zwv+Mpj/hJaaSE07UaHrgz/kpt0zE8dp9H/Hbv9sWWPXd4MIPx34idzfey
bvCIH/ldCw2LrvCIP39L8wY0VPKIXweMBzfdizziX5+NdinzS3lgw/h5YWHD
vAfneBDH+Dv45VetoYU8mM/43b6k/GVNHo/438DZtXPxSR5cZfrAf9HPXPPj
PNIP5rtMXb4e5pG+cH6UUPMgm0f6IzDTt+pqFo/0yeBaD/fqTB7pl75DDi7/
mM4jfeOsbVFomMaDVUz//En+rhu5g0f6aGZu6uf7W3mkn+ojXkwZuplH+urX
YcudTzfxQIbpL/e5wmvxG3ngyPTZlaUb+nkk8Ui/fXxwsVplPY/03fBtjhJ/
1vBI/5k9OVUjuZpH+vDPb4NYnVXi/TP9WPv6Fn/USh7pyy87+17NXMGDKUx/
nv8Qm98jlkf6VCerrn3Fch7sY/qVG6Wcq7KMByeZvi2QNf19cQmP9O+Pi8O/
rV3MI31sb3b1zMxFPNLPbTe/jQiK5sFApq9P2Y95Nm+h+PeY/taKmz9nZxQP
XJk+D+z1Wu5JpPiZ6fceE0Pu2oufUd83Lj1VcWwBj/S/gvXG907i5y3MHyy7
Xj3pxXwe+Qed39NVs8TP5C+kTdWXi5/Rf8zUFS4IFz8fQ3/CPh/K/At+/yDz
N7g++h/8/YfMH+H+0D/h/tFf4fuh/8L3R3+G54P+7T07v7PM3+H5ov/D809k
/vA0u5+dzD/i/S1j/hLvt5b5T7x/9KdYH+hfsX7Q32J9WTH/i/WH/hjrE/0z
1i/6a6pv5r+x/tGfY3+gf8f+QX+P/YX+H/sP8wHsT8wPFFj/Yr7gw/ob8wfs
f8wnEB8wv0D8wHwD8QXzD8QfzEcQnzA/mc7wC/OVaIZvmL/4MvzDfAbxEfMb
xE/MdwQMXzH/GcnwF/MhxGfMjxC/MV9CfMf8CfF/PcunkB8wv3Ji/LGG5VvI
L5h/mTL+wXwM+QnzM2vGX5ivIb9h/ob8d5blc8iPmN8hf2K+h/yK+R/yL+aD
yM+YHyJ/Y76I/I75I/I/5pNlTB9EsvwS9QPmm6gvMP9E/RHK8lHUJ5ifon7B
fBX1DeavLUz/YD6L+gjzW9RPmO+ivsL8F/UX5sOozzA/Rv2G+TLqO8yfUf9h
Po36EPNr1I+Yb6O+pPyb6U/Mx/swfYr5+UqmXzFfR32L+TvqX8znUR+rsvwe
9TPm+6ivMf9fzPQ3zgf+MH2O8wPU7zhfQH2P8wfU/zifQH+A8wv0DzjfQH/x
v/MPe7u//1jQc8dG4drPthbkV8YueRpnI35GPzN77HmL9zYW5HfsB1pkm1hb
kB+adrOsq8HCgvySnJrFTC0zC/JTZw4FSTwysiC/tWh2oHTf/hbkx44utS+u
0rEgvzbUghv/W92C5iFuFddtC3kW5PcKF7ntbVWwID8oMpDvOCRtQX4xKqjw
UH0PC/KTJj/zeJk/zclvtoqWlNR9Nic/emdUBC/zrTn51c3xzUdevjQnP/tp
P1/y+GNz8rvRvr2Kvt0xJz88OiBl1rUqc/LLZl8CC3RLzMlPt87N8+k8ZU7z
kDaZ3KfB2ebkx9fV/DHy32VOft2m+N2Hyg3m5OfL9X0lKlaYk9/f5TzHbMgC
c8oD1u1Q9w2abk55wYi4BNGvQHPKE/aeNH5rNMic8ga/7AeD6x3MKY/4HJfk
Y2JkTnnFpZBFb//wzSnPWBP9zD6stznlHTUe8nbT280oDyl5NqSjrcGM8pLF
68v3KlabUZ7SdGW+z+ULZpS3TLFR11A+YUZ5jF+R5aD2NDPKa/J3lXTOX2tG
ec6jK2NWro00o7zHWkFW3nGyGc1Dfpzyak3wNaO8KOfg2YhwOzPKk/bGB775
pm1GeZPopXGhnrQZ5VEK64bbtX4ypXmIseSDWxPrTCnP0lE49D68ypTyLpeY
JdLGJ00pD7O5fnLH+h2mNA/5MNVbdcsKU5qHfIw43WtQiCnlbdkL6z8fHGZK
eVxc2K+5BXamlNc57Z3Tc76GKeV5VZA38pmEKeV9t5JGtP9qMqE8UPbAuU13
b5lQXhhhp3t5fIEJ5YkbTi4cvHuXCeWN0h4ulVtjTSiPrItb8H5wsAnlla11
y1edG2RCeWZHfpdrk6kJ5Z1TTG4+f9jXhPLQoqul1ms/GdM8pP3Ono6Oh8aU
p97ylZGyLTKmvDXs1TgL2z3G/85Dkhe6/1phTHntvHuVKqnTjCnPDZaWSfzg
ZUx57zhf31gdQ2PKg7t0s6u1pYwpL1Y08gj/8MaI8uRtgfpOO24YUd7cXX9G
lEc/vr+rZ8gmI8qrvxXueLU1wojy7KBpUScyAowo7z755eGoNTZGlId/TEi+
PVTZiPJy8zEL+F8/GVKertADDBPuG1LeXjdn9Y/2AkPK4+cemrM5YJsh5fVz
i062bFtoSHn+q+Hz+lQFGlLe/9m3b8tLO0Oah3z20dnxQdWQ5gXtqnaKH74Y
0Dzh8J+qoIYHBjRvuOeksubmaQOaR/hIdW48sc2A5hU7lN7FrF9oQPOMESsP
TpoSaEDzjm7+MKB5iFpzhay06r+fPxgT8/b55/70fb2ps58W3+9P66dZjW5I
L+hPv18xa7/Mmq39aX/Ro+zGLYnqT/tfpONbvXhUf3q/xdoTVqyx7U/zkHVq
P6ceUOlP5/P7ZFHs/c/96Px+l/96JHjQj843+VfDvMjT/ej8J4YYeTZu60f3
46H8bURkdD+6v6WvnqRpjOlH91satUW1waEf3b9cn/bi64J+VB9R+fcSHnzX
p/rZsu3O9B5P9Km+ZB2HDxtTok/191BlkHX1Hn2qz/Fg8mPxCn2q3zmDL233
napP9a2io/PWx1Of6l96yuTni/vrU3/82pEdWNtbn/on9Olnk7lv9Ki/JFYr
iOxv6lH/ZWhPnmp/So/6M3rXjfDwLXrUv3l7jzu+jNajeYisx571W8brUf8v
KAw1i3fTI3yI2fCu8ZSeHuFHSvPXpbq99QhfLoyY6HvkgS7hT1Hkay49U5fw
qT0kxUszTJfwqyxxcr6lnS7hm3OxeePDLh3Cv8FD55nybuoQPk7b/P1y2y4d
ws+Hvx61h4boEL4mvpZrTrDTIfz93BZyyUtSh/D5o/zgw8ertWkeEiGK3H9+
vzbNQ4Jq/iqNi9Im/N+el/Dpo7c28cOaa0Z2QoE28Udh+YBZ7W+0aB4SJLti
5sYyLeKf7TcNfz/frEX8tHz11A+fQrSIv55H+LRfcdUifovKKyqcpqJF8xAD
Tv9ORYsm8WNE5rjq1gpN4k+PoEivxnRN4lfevPS049GaxL+9uPfuXgGaxM+N
54emnjTTJP4OUnV51tZHk/jdIKBwlnSjBvH/lVeqM35XaJA+8O3R8P1Wlgbp
h9Y7xe6x8RqkL9zWGXLywRqkP7ZHruiI89IgfWJz7+q4GgMN0i9V+3e78aQ1
SN8cmNSxRNSqTvpnRJLbLb9qddJHCyZ+bR18Tp30U5Xu7Tibveqkr9qLIoQy
69RJf3W0z3W/H6FO85DYJoOwTePVSb+ZWOX9cfVWJ333xrUq6IWVOum/tsT9
15ZqqpM+zLvZGSsjo0760d74Y/bW72qkLzvGPh/Hb1Yj/Rn/eE721lq1f/Wp
6sxVctfVSL8GrSl8Fl+qRvo27GXg5i+n1Ej/jvdzCZ2ZrUb62C3aX+thmhrN
Q+LrZkz0TlUjfd34w7CsYJ0a6e9Zq1Rv9VupRvq8JCO61/alaqTflRwD7/ZZ
qEb6Pmxg9LqYCDXS/126oxZ+nqNG/sDgufDu3DA18g/1hZmVzbPUyF+Ezfr7
jxr5D/wc/Qp+n/wMWx/9Dv4++iHcH/ol3D/6KXw/nIfg++M8BM8H/RqeH/o5
PF/0e3PY+aMfxPtBv4j3h/MQvF+ch9D9Mz+K9YF+FesH/SzWF/pdrD/0w1if
6JexftFPY32j3/7G6h/9OPYH+vVo1j/o57G/0O9j/+E85ArrT8wLsH8xT9jJ
+hvzBux/zCMQHzCvGMbwA/OMawxfcB6C+IN5COIT5iWIX5in9GH4hnmLgOEf
5jGIj5jXIH5inmPC8BXznmiGv5gH1TN8xrwoluE3zkN2MnzHvGkKw3+ch5xl
/IB5FfIHzkPSGL9g3oX8g3nYAsZPmJe1M/7CPA35DfO2ZMZ/OA9BfsR5CPIn
5nm+jF8x70P+xXlIOeNnnId8Y/yN85Ayxu+YN5Yz/sc8EvUB5pWxTD9gnon6
AvNO1B+Yh6I+wXnIQqZfcB6SyfQN5q2STP9gHhvG9BHmtb+ZfsI8F/UV5r2o
vzAPnsf0GebFE5h+wzwZ9R3mzaj/MI/eyvQh5tXRTD9ini3P9CXm3ag/MQ9H
fYp5OepXzNNR3+I8ZBPTv5jHoz7GvB71M85D1jN9jXn/Eqa/cR6wmOlznBcs
Zvod5wmVTN/jvAH1P84j+jF/gPMK9A84zyB/weYd6D9wHjIK/Qn7fCfzL/h9
X+ZvcP1q5n/w948wf4T7Q/+E+//C/BW+H/ovfP8G5s/wfNC/4TxkHvN3eL7P
mP/D81dk/hDnIegf8f4+MX+J93uK+U+8/8nMn2J9oH/F+qll/hbrazLzv1h/
O5g/xvpUZv4Z6xf9Ndb3eOa/sf7Rn2N/hDP/jv3Tg/l77C/0/9h/mA9gf35j
+QHOQ4pZvoDzkGksf8D+/8nyCcSH9yy/QPx4xvINxBcZln8g/mxk+QjiE+Yn
OA/BfAXnIbdZ/oLzkMssnyF8ZPkN4udKlu/gPOQgy39wHoL5EOLzR5YfIX5j
voT4jvkT4r82y6eQH0xYfoXzEMy3kF8w/8J5COZjyE+Yn+E8BPM15DfM35D/
alg+h/yYx/I75M8hLN9Dfp3K8j/k32aWDyI/L2H5IfI35ovI75g/Iv9jPonz
kCqWX9Lfp2D5JuoLzD9Rf2A+ivoE81PUL5ivor7B/BXnIZjPoj7C/Bb1E+a7
qK8w/0X9hfkw6jPMj1G/Yb6M+m4Ry59R/31m+TTqwy0sv0b9iPk2/X0bzL+Z
/sR8HOchmJ/jPATzddS3mL+j/sV8HvXxMJbfo37GfB/1Neb/OA/B+QDOQ3B+
gPod5wuo73H+gPof5xPoD3B+gf4B5xvoL/53/oF8gv+/rH/m7bsNIPK83fuF
FcrQQ+LvP4YwOn92v+XblZl/MYTfvX00OkPZf19yyxCUFb6mS7gps/WMYMyY
WesSlXA9I6iYtP1p2msltp4xbHhwPN+hVAlC/1nPGJ700vGasUWJrWcMTfeP
PTcMU2LrmYB8keO3VZwSW88EIt/uV40V4nqmoLzwZsmAekW2nikIrT3MSrYq
wp1/1jMFi8CnlnsGK7L1zOCpf0D+818KsOef9cxg7bbq6pQCBbaeOUTK3q07
M0eBrWcOcWfcfacYKLD1zKHVJa5464u+dJ5fp976PjmjL9ufBcR0Or2/MbEv
/LOchCXoj9Lf36jRl61nCbVb7O3OPpNn61nCQ9eXj/yy5Nl6VtCzxe/ayRB5
tp4VvF9SEPDWQp7tzxpcXo/Lk/smx+7DGizP1RhqV8ix9ayhx2GJOtMUOfb3
J2ygUOD20m2yXPf5DrOBPQoRxsFWct37i7eBq1HLFuzvIdf9+6dt4MvRqUOk
a2W799tkA+W/lP7sOyXL1hsADvM7t0UlyrL1BkDR+6VnkmbKsvUGgPQDqfw2
L1m23gBYf/347OP9cb0BELLXa/jlPrieLcxUMfLzaZVh69nCxNxel50eyrD1
bEEbbFMzL8iw9Wyh+ODiv+JyZNh6tjBr7AruZboMW88Ohv/p2nU9Gdezg2LF
C3y3VTLd5xdvB9mO4ZZuS3E9OyjX2r79ViSuZwdPKle7fwjH9exhQ2zY6EPz
cD17+rx7f/b0/e717OEgW797PXv6/e71HGh//9zXMAcIZfvv3p8DlLD3+6cc
TjvQ+3ev50Dn072e4/+cnyOdb/f+HOn8u/fnSPfTvZ4j3V/3ek7/c79OdP/d
+3Oi+uhez4nqp3s9J6qv7vWc4cx/6s8ZJFh9du/Pmeq3ez1nqu/u9Zyp/rvX
c6H+6F7Phfqnez0X6q/u9Vz+239NLtSf+PdTv7H+7b4PEbxn/d39viLq/+71
RLCQ4cM/7dckIvzoXs+V8KV7f66EP937cyV86l7P9b/41eRK+Na9nhvhX/f+
3Agfu9dzI/zsXs/tv/ja5AaVDH+713MnfO7enzvhd/d67oTv3eu5E/53r+dO
/IB/Pwv54//HJ31Cd6zbuO1fPtk50uusrfO/fGJ01XL9s2dKxCezFCUMk1Yp
EZ+o73K96GykRHwyq32cau0OReKTaRXXlnm/UCA+OTRrn+U5EwXiE8/AnLO2
UX2JT1y22Rw/WypPfOIyLuOEd2954pNlUSsWPvWXIz4pWXj7akyaLPGJ78Xd
iSYNMsQnkQm6p16ayxCfeOZGDj+6SJr4ROLk5YwVF6WITzpDN3RMl5EiPkmb
vrhlQmAf4hOt31XmMzN7E58kWL09t7q5F/GJV5nwdsmAXsQn1Q+ku+RiexKf
DHqVA8uvSBKfKElG9pBRliQ+WXnay7VsUg/iE6n8tTvSDksQn7S0t6j6vPrD
IZ9o2uWbXl3WxSGfyLySaypX6uSQT9bNet04+OgvDvnk1itR0Xz4ySGf5N/8
2WPckw6O+ERo9VFn4XcO+cT4nGjQ577fOOSTzHfDzKWOt3PIJ/7mz+2yfb5w
yCdeo9I19Zs/ccgnl8wUfX4kfuSQT7LC56lmTmrjkE+CXkw70/PkOw75RMn6
tUS2dAuHfNJP8qGPMKqJQz4Z1pWRUtX2ikM+WbqmI/rTupcc8slH7s4ZSH3O
IZ+ohLhffbvhKYd8Yq6VPTIdajnkE9v7lz6Pln7EIZ/g/98B+QQ/Rz7B7yOf
TGPrI5/YQffvI5/g/pBPZrH9I5+4sPdDPsH3Rz7B80E++e/5OdL5Ip/g+SOf
4P0gn+D9IZ/8936d6P6RT7A+kE+wfpBPsL6QTxT+U3/OIGT1iXyC9Yt8gvWN
fIL1j3yC/YF8gv2DfIL9hXzyn/4T8wn2J/KJDutf5JN01t/IJ12s/5FPJBk+
IJ8gfiCfIL4gnyD+IJ8gPiGf/Ae/xHyC+IZ8gviHfIL4iHxymOEn8knw/4uv
Yj4JZfiLfIL4jHyC+I18gviOfIL4j3yC/PC/fPJ/IKfh/w==
     "]]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0.10000000000000142`, 0.31622776601684016`},
  Method->{},
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{3.397500015998355*^9, 3.5882699956921535`*^9}]
}, {2}]]
}, Closed]],

Cell[CellGroupData[{

Cell["Lin-Sin plot", "Section",
 CellChangeTimes->{{3.5882695143414793`*^9, 3.588269531921504*^9}, {
  3.588269562571547*^9, 3.58826956480155*^9}, {3.588269955412097*^9, 
  3.5882699746621237`*^9}, {3.588270004742166*^9, 3.588270005192167*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"obj", "/.", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"u_", ",", "v_"}], "}"}], "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"u", ",", 
       RowBox[{"Sin", "[", 
        RowBox[{"v", "/", "15"}], "]"}]}], "}"}]}]}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{3.3975000184518833`*^9}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {RGBColor[0.24720000000000014`, 0.24, 0.6], PointBox[CompressedData["
1:eJx1fHlYzdv3fwhFSkmTRppLpUF1GvZuoJAxs6hQokElQoMkKSJDlMxCZlEo
hUooQyqUFJKmU6dzNCAh3z63vdbndz/P8/PPfd7PuWef/d57rde03Ku2cv08
r8FCQkIRQ4WE/vPPly/6/4g5UrMnd0eVaApIoZVuV1j/c+vb06edXATkx+fl
vvEjHemts5t20wABebU5x/GbqCMt13CovJ4gIGLji1IeDnekfq6yNfvSBUT4
ucWeFmFHmvptt83HBwLyvnXI9MBBjpTrGvL1WIWA8I/RUYv+OFDvPVWmxfUC
cnK0meyJHgdKbMSPrhb0P6+alWXf5UBX/tL+saFHQHSLxlk5tzvQ+ykJwb1/
BGRRn7PY9SYHWmFTGvLnr4Dw3FMOhnxyoJ3vyi/t6BOQMb019serHGiwseGv
pJ8CspTyj2m8cqDWKfW7OR0CEjn0sqbkEwf67u6sa5GNArKh8vNG97z+5+rD
9X6VAjIza6Gm5C0H2uQ495VkkYBETbz+UTPdgYbLXTcNuy4gnKo1s88cc6DG
63803z0sIG5aFcbbEx3oYPEjJVVbBKT7Rp/L02gHqjJnX27bUgHJz7vtG7LR
gcqs2Jk81FJAslzXesevcaB9kovULaQFxPSolvLwJQ70wqSpI5N5fNKVkhDB
n+ZAM+rLXkwu5BOnkMzNlONARX1Nbusf5pPf3zVH9ek4UP/gtLJ9XnwSd6jc
Tlvege6SmPVpgwmf3HrK08wf7kAfdY+f1tXXTm60Ct4++WZPz4uHSmoUt5Ny
r8ggmy/2lF8Z90wtsZ1wFy/Q0Cizp3Niv8YNnt9Otl6x0NyWZ09tdIZV1cm0
E6GETzddLtrT935OFyureCR4RZ144iF7qvjwiUvfER5ZNO54glNk//flr60O
ns8jWao6O0J97GnUtqrXM0fziOomG1fVefaUx025feVZG/HbKeftYGVPawQX
56TvaCP20/wm1k+wpzO0nEa6WbUR7a4pE/pG2tPe/FT3xo5W4jPie0lKlx3N
CF1QtiK9lSwc2nMl870dPbTh9Icvy1pJ7IrqZXMK7KiJ05LeRIlWskNLNSQw
3Y6aXz+3PbKQS84qTEoeu9eOjjetvfoshEv2TzRbbxdsR4W9a+ITNblk/oW+
a98W2lGXaxkdzVUtZHlWu5iplR3N8b29jR/XQiIS37j0KdvRynWj4+9btpBA
5RqzhYPt6Bm989LrW5vJa82VyTaNlCqrBL9WPNZMnEWanO48pfTcTHf5uhnN
5K7wZ/XCS5QWBUdWlv9uIptlr0mt2kOpk8z9/SOuN5HFy71+p/pRuiVDZMVZ
9yayTuLpa9+ZlHoEN3zMkGwi+6WkDlRNpLSjar3lzKJGUqDENa4bRWng/Vrp
faGNRLpzZbhEDaEtzq6H4/UaScb1hrDTRwn1PWy3eEFdA9FPXRMbuojQtAzp
oGFHGsiG5/dKUqQJPThhsfdNlwZyNUt7m0i5LX3ebmG4TriB5FUatz1LsKUV
+3wmOd7/QnweuixvcLKlviFuZF7oF7Jz4RHDJYNt6YPGxiMXjL+Q6MjDTybm
2dDN05Xr5gnqSYOYYL/3Rht6IyxN3+daPelVVhkuYmBDRU+r/PjuV0+OvDK6
ItNkTaW/yk6QMKgn4+ZtFEk+YU0dT//5/fDrZ5ISysncO9+afhgbzpG7/Zlc
OBvl/HeENU3f/LdXI+wziTfI8P+ab0U/pQcUf7f/TIJmzSrz2mRFffaPSUkW
+0wOrr2psVqv/7n+6nPpd3XkQU+W7tdPHPpT65zx1vN1JK7VL008iUNbnVaN
fB1SR3YcfLe0yIlD2/cVCetOrSOZ2ofHy/yypLd9U0i8fB3p+5BYIXLdku51
2ny6+8Mnsm33XeczHpbU9tGWKLG9n0hJ7zWfBilLGmU7VNWXfiIddZvHVRVZ
0D/qfwJVez6S6ADj2ZGbLOiwtzeXWGV9JNbHc75/1LKg9hkm2SUhH0me+krR
vnfmVGpsktc7y49kgvm56Lp4c9r6bZTlhiEfSVrTc889HHOabiAx8nz5BzLL
7eKlIW2T6Sl1xezQcx/It1ccj1nHJtOWzF0TusM+kE0zvfYFzphMtT//tBy/
+APZPOMoWf/LjE51zO8SsfxA7srFbp99xYxqnPqy8LryB6Ki8XSVzDIz+iip
b7Os6AdSonfwR/EIM2rRWx7l3FNLRjl4zfa7Z0qDCw+lO/JqSX1VVuTQdabU
f9R3S/HGWnL0P3/kTanw+oaUC/W1ZO6yyKyJJSb4uebXl1+ebDbB7/sOP2O1
TtsE15cW93ul+M4Yfz9M4drNL7uMcX+5zUe7Hpkb4/7vN748V9g8Cd/PdlVP
RUPyJHz/psrd8YbOk/B8El3WlKf3GOH5Sf7elzHvkhHtYee7Sbxcx2ypEZ5/
z5Et1vNHGuH9rIofVLx2iyHeX/S5EMPsWgO83zeBIw6foAZ4/95zf7yZcH4i
1se6y1ML5o+YiPUzaKy1GidQH+vL0+52xodKPay/hQcSVKbZ6mF9toT8Hh17
QRfr1/HQkHEnJXSxvmNKSh6nbtHB+l8gOmzPzgZt7A8FNa+3a+ZoY/+YhXb8
nX5fC/vLuDBsgYWeFnVm/cd5KjzaMlUT+3OjtvbihSM0sX9PusQ5Hg3ToLdY
f3ustaoewVen4az/V+RYDs/yVEd8SG5+ceVE5QTEj45sof1lLhPoK4YvYn+k
fRYUjaelDH+iXn2tMLUZj/gkbpy8JPSuGuLXcNETARomaohvNPq0v1OGKuKf
h6AgtdFAFfFxuoW14+gVKoifUXOTDAI8lRFfperPcLvXKCH+ykmuNs8KUkR8
lk4vOp8bOY4WM/zet/v4XoVEBcT3yUdyJevOyiP+u1R3KY27J4f80DpH2/v9
G1nkjwYddy/9Lhmay/jFILXKTWWsDJ3L+MfFY4JrAWcs8lPRD4cxqqulkb+y
9z/Xm3ZgDPLb8XeD+NMKpagZ4z/Fs2L+hj8kkR8TtihGDDOSRP7cb3LiVo3f
aOTX/UPfFm5aJoH8W2cvabGqcRTy82nzQq+kUDHkb499w9eoSY2k0YzfjRqq
XqneFkX+j7t16MpFDxGqzPTB6erTYaXSw2kt0w89n8Unp5cPRX0xeqSjo1Oy
MJ3L9Md+68zthV5DUJ9c5Kdy9G0G03SmXwKVX+omKw2iRUzfjPaMCh87XAj1
T4br/H1BXX9IANNHHpeLFNXbfhHQT3XSp7ev+vaT3GT6KkOMBsyW6iHpTH/l
54l4D7P/Tv4yfUaPheWdj+kmsky/ZZguPzTtfScBfXfaif9OzKGDDGH6Tygl
MEEqUkBMmD70GFZz7/pxHgH9SF1zyhTruQT0ZX7J1/a4Wc0E9Kfq8MZcxfoG
Us30ad3synV/j9cTG6ZfT39ec2PBtjoC+ja/8njUDqkPBPRv1JmZF59srCag
j4WyW21vaFcS0M/5f1LPB+u9JqCvhSIdje0iywjob6GrfxYn2L8goM+F8q8f
nq1TTEC/Rx0p9RC/WUSOMn0ftTf0rdD7AgL6X+iIXf4l54ekjPkDoanrQ91U
8wj4B6EbuR9drO4R8BdCqf8hkBxiyvwHfP56StDo53/4+H290ZMNFpTzcf0j
R+YaBp7h4+9fPO6poBnAx/1dixQ1jDbn4/5pZvun/X/a8f2qi38/d89vx/e/
+Wzk3T/b+p/7Bs5nTeqL7Vut2wll53fMW0Ot+RsPz3d8z9ekBVd5eP4yskYf
37n3P7P7kX6a1R3T3x9wf8MS5uQFPGjD+42fk/jzyto2vH/bepGprlJtWB8z
nFyFw7NbsX6mbDjtauvWSlRZffnKSg3J/MMlGaz+Rm4ojek6zsX6tNX4XCfP
4WL9PpPoSqdvW0gZq+/m5Q2N0QEtJJ/V/+07rtK/h7aQr6w/bicojSruxzPo
H/fFH38PNmom+ay/Li+PXlBS2I+XrP94nu355vObSBTrz6/BRWN8GxpJNuvf
+v2raNSGRuzvzkyR6UmDGrH/Kx1tLIr2NRCh+gF8GHk7dsTEcQ0kg+HH2yDv
q20XvpAUhi+h3RlcxX5+sWD489DYYdWHvHrEJw9DpZhpTvWIX0J1zZsiyj+T
rwzf4qR44w4v+4z4d8x3298rjXUkieHjyaG8OR/W15F9DD8Vpl/L3NX9iSgz
fG14NJPXJfqJnGP4u0yjRc5E9SN5wPB5r2fnqM3mH0gxw++leeNTu2fXklkM
3xc7hm+tXltDjBj+55Sun71w53vCZ/xAN0oeOnq2mvAYfyTFe+4vK3hHZjF+
GcG/sEzrSxWxYPwT8KzqefGwKrKf8VNKmtjGj/qVRJXxV0JPT9r+BW+JAuO3
VzdWLR22/Q2RY/yXX5Hi4nXjNYlm/Ci+6OWn8roK4sL4U2KIv876sRVkJeNX
18ppghUzy4kN49+64rSLBXFlRJzxc9yCvr9+ia+INOPv1KbIK3ekS0ks4/dT
hT9ij555QaQY/2+uG0pdJj8n3UwfxF4YLDLkdQlJZfphZvH2k4LQYuLO9IXW
lmY3O42nxJPpj72j/tpr1Dwmp5k+CeZuEX5ytIgEM/0yKNRW1sXzEaFM35x5
G1D4YVIhsWD6p6NX3ODUyAJixfSRDFndtPrDQ6LM9NNaUcMl6+/cJ0uYvgov
s5FIPZtLYpn+0jvfe1npbA6ZyvSZzY3Jloa375JWpt9+ZInNF6q9jfrue839
KQ9lslD/FQ5ZoZfsdYuIMH34yk1TNqM4gwQz/Wi9PWH1iqjrxI/py6ubZPP8
U66QaqY/5XZGXHxZfZHEMX2aNFt2b7bjBeLF9Ktmz+2fq6rTyE+mb2edbW8Q
SjlDQpn+PTY8/GnooFOoj5d2PMzbqnUM9bPW6qExrmeTCZfp6z85e1c4BCcR
e6a/dz07ND0m+QDJZ/pczHn5uYPq+8h9pt+/xvqcj3gcTyKZvt9cemPzWKlY
IsP0f61E4qGjI3YQP+YPVv7Vcre5EYX+wSD0g9hcoUj0F46/XL35vWHoP9wU
3TaEzAojTcyfwOeSzL+QzQPff878TRtbX435H/j9HOaPYH9bmX+C/YcyfwXv
B/4L3h/8md29gfMB//Zl1cD5aTJ/B+ebz/wfnL8t84dwPzHMPzqz++ti/hLu
9xnznxx2/1HMn0J9gH91Z/UD/raO1Vc08783Wf0lMH88vHagPguZf4b6TWL+
ehar7xDmv61Z/e9m/nwv64905t+3sv45yvy9JusvBeb/f7L+g3zgMuvPPpYf
SLH+bWL5QjTr71iWP5xk/b+L5RMWDB/WsfxiBcOP+yzfSGb4co3lH/EMf0JY
PpLB8AnykysMvyBf2c/wTY7lL1yGf49YPuPG8PEgy29kGH76snxHluEr5D9P
Gf5CPlTF8BnyoySG35AvAb5D/gT4D/kU8EMky6/SGH+sYPnWHMYvC1j+9Yjx
z0GWj7kzfoL8zJvxF+RrRxi/Qf62ivEf5HONjB8hv1Nk/An53mnGr5D/pTH+
hXwwkfEz5IfCjL9vs3zRi/E75I+PGP9DPhnG9AHkl9VMP0C+Kcb0BeSfoD8g
HwV9ksHy01amXzJZvvqD6Zt4lr92MP0D+ew1po+cWX67iuknyHdzmL6C/Pce
01+QD7eAPmP5Meg3yJdB361g+fMYpv8gnw5g+nA7y6+dmX6EfHsW05chLP+2
Z/oT8vEEpk8hPwf9Cvn6WKZvIX+XZfp3McvnNZk+hvz+NNPPkO+vZfoa8v9M
pr9hPlDD9DnMD+yZfof5QgbT9zB/AP0P8wnwBzC/AP8A841K5i9g/mHO/MfA
sx0dXjIoQGpwO+mrn3Imr/9Z3u6g7M4uHqk8cUclof9ZRqnWq6qBR1IXGM6w
6n8eFx7vMaKSR0ZJPtd+NtKOFqSellV5yiPvjG88tOh/Ppe7Ok0mm0eGDBsp
v2uEHR1WZareeZFH/HVk6W1RO6o/zqfw1lEeWfFe2v6RiB3lOWlfX7K7//yU
ZxrcHN7fP1+nqbRs5RGp5xIy24bZ0ZKr4xe4+/LI7MBbYhOH2lGdWcuP5C/r
X08pUSt3iB3VkH1hNMqF16/HhkTq9ONB62jLLVOteURR1l9ns5AdnRhj+txf
n0d22+pPSe+j9MKFz3ExijySW3qCf+c3pWf2FCgkiPFIVtK4Kem9lJZ7hwt2
/m4j6nU/127uodR50qWwDbw2Eu6zM0r3O6UH8w9ZLqxtI0pSg67f76I0zmPQ
JcMXbeTtoTR54w5Kjwl1zxqU10ae/U7i7eJTWjnU7/aLK23klwJv7sM2Sisq
tH0PHetfr/DKpnctlAbL+gxZtKeNnP32MP51P75J9qaNlQ9rIy783tyMekoD
9efY1KxrI4EiUjTwUz/e9h2WP7W0jWjuS50uVdv//SiJmd7T28hKr2FSye8o
3V+yPcKY00aSTp0u7XtDqVrQEdehum3Epy3+3rRySo3nJm2tk28jFS1Zkptf
Urr+rOzpx6JtJM+9XnJ3CaW1MSUb7vxsJYFLTvRue0xp5HDZ9CxuK1FTMh+1
tIDSvQXNvILqVnJH4lGC3H1K50nM//mppJUYhEo9yM2mlCe8bPvoe63ko1pG
s0MWpW+0UzgLLreSex01c2/eoHSayM/3N1JbiZxL7FThK5Q+uxMsN35PK5EK
mCFpc4HSPdPvXrwW1kp45wP+LjtDabx3G53v10puB7119zxO6Ykvyw7LLm8l
CTsG75iZTOmriyZLfs5sJQ+ujM5VPUhpyKNJtr9sW4nepWvLahIoHfTKvVvZ
qJVo10nfi9hF6ey8Yh1vtVYyq0d0okg0pTuHG+2ukGolOzxfi4WFU/rBt+SB
l3Ar2Z1vmlm5idJrEzr81b5zSZzD2rBxQZR+L2zgDG/hktKPSoXTfCn1vRf+
WO49l7gE+zZ6elE6d3/TpUUvuOR3VZnjavf++ql1j3r8gEvyavTt5i6hdLdU
Z+2qm1zCVcy21nHtX0/XcLbpOS5Rfd+XynOh9JGhwNMimUv2pb/PPzaV0rYH
4seCdnPJpNF+0uaU0jvxBmGfI7hkw3jpPw8s+8+ndkNEfBCXRLf4fzEx6a8X
y+myvl5cUvvCadIRfUoLxDWzdy3hkpVtx+c2afSfzyHnkrqZ/f/+7H0Z6ir9
v1cecy3UnkvuqrjlzpWjtLFlaMFMcy75dWdFnb8kpbF7ZZas1ueSyKt/920Z
QalwOfdRnhqXyD27Zb5xCKVXJ3s5L5bt/70vH5ILewg9osTTsBjFJVubZ4aH
txKqFquftHwIl3ifixkiX0voXYv2wpKf/fjfoSdz9CWhWvM/VEd8bSFCT3JO
/nlA6A1nr56tzS1kso9nvFMGoWOnbDEr/NhCjGKEi0LPEBqn4H9qfmUL0VNX
t008SOjLYyVWJqUt5G9iecu+HYT2hU0Y7v6khYiMOXUnNITQzIyu7ncPWsiz
S/uPTfcidOmyIMGZuy3EMEVsr8hCQv9a+1fdy2ghftzn229NJTT/rkGM+uUW
Evb+WdA0c0Ife8x79CmthRgYWS4s1SI0VOPy4vYTLaRyyzodezlCA4ap9M1M
aSGb7Z40nRchVHFd0qrBh1rIYd3s3b09tjRb9KXByH0tZJfQaSk7ri3N2TL3
l098Cwm4XdAvPGyp/pzFSxV3tpDb88yK00tsaQP3RoXG9hZiVlvZXZJjS+eW
XarbGdFCOjQnD6m/ZEt/5Q//br21hWw5F9v99agt/b6odcuM0BbSOyHx2Y94
WzpuRUHxzZD+5/iju35ssaW8XBvTwOAW8nrbSoOOtbZUUWrKkF2BLaRlnGhh
4xJbKtHTFPS9n3/TdvRNqZxmS9U/u9584N9Cpsd9u//I0pZOuPS2+ZNfC7lI
Kibe0LGlRsUlRkv7n/+Js+Rt6XaDE8cn9j8ndHkMjRH97+etl202rv9pg9/f
f8O03Y1rg+u7yOoGzay2wd/3zCwTti+xwf1xLh29YpVjg/vnSJzzsbpkg++X
u++qrf1RG/qTvb+92B/DufE2eD59C91s126xwfOLrPuzbs9aGzzfJxFBd7KX
2OD5XzU+pNo5zQbv56RI2EULjg3eX16Hn8teXRu83+U5xaIdCjZ4/8OG9Nau
HmmD9ZGz2KeA+8sa66d42pqbUTxrrK+hxzQv6H6wxvpbF382ueWlNdanvmpS
eO4Da6xfszTP6eduWP+3viUkvqWdtsb6F75hsD73gDX2R9+z8ktt0dbYP6b+
W5LMQqyxv6Lshiulellj/5Xuu26osMga+/PejMY7d5ytsX8Xz15wLJBjTY+y
/h566uUjZ31r7H+L9yZjqbI14oPt443Bi0ZbI3486dqalzjYGvHFKEmmgttt
hfgT4PYz0bvZCvEp4mha2bD3VohfhisX+T1/YYX4Nos/wvL2QyvEvwqpZSMe
37JCfJRriLj567wV4ue3SLM/S45aIb6u/FmYU5dghfibF1adsT/KCvHZeseB
S+tCrOh0ht/HZ7n5rPexoq4M35M3/rh+ys0K8V/jqof17zlWyA+qt0pe7Jxi
hfwxMTBB3oZjRT8xfkm2V6keb2iF/NMYLPrQXN0K+eljXVVYuLwV8ld2jeT9
DnEr5DdFfYOJKcJWtILxX8nsuA2BvRzkR7fmBaZhXznIn6MXHR+d08RBfh2o
Pw7yb8HssMSy1xzk5y2CilVXnnGQv6scxe/mFnCQ30vGXJMfnMNB/u/sKZLb
lsFBfTAvqsfG5CIH9UPuhgAJldMc1BeJniUSDikc1B9ebioPTu3noD4R6+44
bBbPQf0S5KMpMTSag/qmRabvhHgYB/XP/PESmfNCOKiPji+0yS3356B+6nDK
VElYw0F9ZXO9Zkq0Jwf1l+2fpYlZyzj0LdNnpyxFl05YyEH9tnsk72/pHA7q
u17xSVV3Z3BQ/1mv1Db+OJWD+pAXTNzt7TmoH1+K/r7YYMNBffng8I8Fjy05
qD9V77y/2GDGQX36S3hJnb0xB/WrrNpE8zoDDurbpT3SDXl6HNS/R+aVyldr
c1Afi58YM9xMk4P6ue57SmXZBA7q662RojeuqnFQfy+tE84sVuGgPjfQUhqk
ocxB/R7z8k1mgSIH9b2C5InPJ8dxUP8Lxb05nqfAQX8Q/+Nxl0L/M/gHC//0
rznyHPQXA/zBQf8Bn/+K+7k2cnQ7fr/6dY10sXI7ru9/+04UX78df1/2zZLi
r5x23J9Z91qJUud23H+NbHD0zoXt+H57JnculFndju8vG+/7fFtQO54P33ud
VkFkO5Fg53fh1t7c6j3teL4Jb/Z8Lk5px/PPtjf7vfd8O96PVHJIqPatdrw/
T1OX4uQH7Xi//uHlfjXP2vH+h6dq8Dor27E+oup9Kz/Ut2P9SL6+X3SM3471
tfiG4hL93nasv99PPGwTh/KxPk3WamoXjeZj/Rbuza54No6P9V1g9XNwmmb/
M6t/i7tOsS6T+NgfC7etNn5qxcf+KdFybZSaysf+cpfj7DScw8f+q7OlQkpL
+SQY+vOhj0vNKj7277GbfmvW+fOxvzW/HVz4bBMf+99rUqzmr218xIerojpt
v+P4xJXhx68Un4evDvARX/44jHq8IZWP+CPWGa/OPctHfNJ/UCJmdIWP+LVi
0u9bzpl8xDcHOY95Jrl8xD+1YaP0vxbyER//JOfGbnvGR/zM3J1w/XO/n37G
8NXsbmm3TDWfKDH83SdSdEOljo/4PGebF+d3E598YvgdvlCz+2o7nzQxfP+9
/A417uYj/o899WhXQi+fGDB+MHXPNc0TEhA1xh+Fh3ffKRgmIJqMXxK4y7ed
EBOQFMY/26Z7Cs+REiA/BVpvu18tKyA2jL9uNqtoWCkJkN/EhVvuhowXkFWM
/7puhXbHagmQHw2X6ywL1hcgf368WOZvPkmA/Hr/2JYblWYC5N9xfVrn5nAE
xIjxs4dUctl5WwGJZPz9O+tnTqW9gKxn/D67517jl6kC5P+3s0n1y+kC8pTp
g5vLL8gfniVA/eCxca8eZ54A9cWwpoqD9xcIUH/EKS+tUFkiQH3icL/M19NN
gPrl5fGQT9HuAtQ3nfz3V2JWCsh2pn9iN2XPXOMlQH209utloucjQP10PndI
b9k6AeorqbJDnYv9BUSU6a/dUluOP1ovIJOZPrMb275GMliA+m3uvLGF9iEC
1Hdq/DfSizcJUP+9ED/9ZO5mAepDxbdzOEZb+/fP9OOCIX2lXWEC1Jezl7/+
dDxCQFYw/Snzsu2R3jYB6tPdCyeWno4SkFNMv8o0aM78vV1ArjF9++ObYLft
DgHq3z7rES/XxAhQH3N0pszfvFOA+nlhSJpbYKyAODJ9/fO6vdKcXf2/x/R3
eZVjsWycgFgxfb5ucN7up/95Zvp9/ZiUBPd4Aep7k+QjXz/1P4P+F7tr+sZ5
t4AcYP5AZ27a7NT+Z/APDpPvb3zT/wz+4lbiX9cf/c/gP8QCYzoH7xGQS8yf
wOczmH+B759j/gbWB/8Dv/+G+SPYH/gn2D/4K3g/8F/w/uDP4HzAv8H53WH+
Ds4X/B+cfxzzh3A/R5h/hPvbwvwl3G8V859w/+BPoT7Av0L9gL+F+jJg/hfq
D/wx1Cf4Z6hf8NdY38x/Q/2DP4f+AP8O/QP+HvoL/D/0H+QD0J+QH7xg/Qv5
gj3rb8gfoP8hnwB8gPwC8APyDcAXyD8AfyAfAXyC/ATwC/IVd4ZvkL8A/kE+
A/gI+Q3gJ+Q7gK+Q/wD+Qj4E+Az5EeA35EuA75A/Af7vYvkU8APkV8AfMSzf
MmH8AvmXNOMfyMeAnyA/A/6CfA34DfI34L87LJ8DfoT8DvgT8j3gV8j/VBn/
Qj5oz/gZ8sPljL8hX9Rj/A75I/A/5JO/mT4IYvllL9MPkG+CvoD8E/THGpaP
gj6B/DSV6RfMV5m+gfwV9A/ks6CPIL8F/QT5LugryH9Bf0E+nM/0GeTHoN8g
XwZ9B/nzL6b/IJ8GfQj5NehHyLdBX0L+DfoT8nHQp5CfezD9Cvk66FvI30H/
Qj6/h+njMSy/P8/0M+T7PKavIf+XYfob5gOgz2F+APod5gumTN/D/AH0P8wn
wB/A/AL8A8w3wF/87/zD1OQ/f/TxuWeP7M5OY330KwtD30ca9T+Dn1m78L5+
u5E++h1TR/00bUN99EMez/P66vX10S+NlNNfrairj37q9nk3obea+ui3Nq51
FRk1QR/92MXNpjlFyvro12bok8W/5fXRz1kXlBhnSeuj38vaaH2SJ66PfpCj
LtZzXkQf/WKwW9b5ukH66Ce1ezOkT/Tqod/kcULv1XTqoR8tnRcgfaJVD/3q
/qjm9M+f9dDPdpwZO/jyOz30uyHOwtnfS/XQD8+fvc+7uEgP/bJul+stlXt6
6Kd5vhlOf67r4TyEL3rjvWeaHvrx2Mq/mrOS9dCvG+W0CQp366Gfz1dzFiqI
0EO/n2yxTndaoB7mAbGH5Z3dVuphXjAnMprzy1UP84ST17RaNafoYd4wPe31
1DozPcwjOiPjnbQ19TCveOS1sfXvWD3MM2JCak19huph3lFpK2ayslsX85B7
tdN6+PW6mJds2pV/UqJcF/OUpifrnR4/0MW8ZYWRvILkVV3MY6ZnT5zSnaKL
ec3N5Ht/1u/UxTzn7ZMF23YG6WLeYyg+Qmzycl2ch/TrEF60sy7mRVfO3Qnw
N9HFPOlklGvLdyVdzJs4n7WyVEV0MY8Sj51pwuvQwXmI1uDXL5bW6GCepSx+
vt2/SAfzLsuwUBGtazqYhxmVXDu867AOzkME7g5jDkTo4Dzka0Cm8BQvHczb
0jbUdZ5z0cE8LtLnl+8tEx3M68xPrhuyXkEH87wimjG3VkgH874X8XO6fzVp
Yx444uzdva9eaGNeGGCi8njxLW3ME3df2zD1aLI25o0itpaFB8O1MY+siQxs
n+qpjXklr2br9rtTtDHP7LnZZ9Wko4155wrt5x/fjNLGPDT7aa7hzg4tnId0
lx7r6XmjhXnqC2fR4cbZWpi3+nxZpG98TOu/85CEDTa/IrQwr/UrK5RK9NDC
PNdTRDROYK+Fee8iZ+dwZQ0tzIP7VNLKlYZrYV4soWnrL2jRxDz5kKua+eFn
mpg3D9SfJubR7yqSh3jt1cS8+nvW4S8HAzQxz3bzCL56fLYm5t3Xut7MizHS
xDz8a3TCyxmSmpiX6y0IHPutQwPzdPFBVCO6QgPz9pp1O35239LAPN73/Lr9
sw9pYF7vm32Ne2iDBub5X2b6DSty1cC8v9N5FPeziQbOQzqdlA8LxmjgvKB7
jImEoEsd5wkX/ha51b9Wx3lDmblUzPNMdZxHOA3/s+fqIXWcVxwe3Ra2a4M6
zjPmbDu3bIWrOs47BvhDHechcs0FI0TG/Pfz1wvCWj92TsDvq7qvfZ9TMQHX
TzGYX596awL+foH3GdGYgxNwfyHzTBaFBk/A/W9Udi7fNG8Cvt8mpSURMcYT
cB4SK9frflZqAp7P72vZ4RWd4/H8fuf/eivzejyeb8Kver+gzPF4/ku9NO0a
Do3H+7GV/D4nKGQ83t/mL9UpCgvG4/3mBh8YU282Hu9/5LDunBKZ8VgfwTfL
ol//UMP6OXCodOWgajWsrxGTZ7osuKeG9fdGaoph+TE1rM/FVPvnpgg1rN91
Ux8lOburYX1LKSu3OtmpYf2LrFj+cdMENeyPX4fTXKuGqmH/rHnfqe3boor9
JbRDnGP6XBX777jScnfT66rYnyHJz/z9D6hi/2acvDz5c4gqzkNG2B7bdWCx
KvZ/YNYa3ShrVcSHsN1tDddVVRE/9jV/26wyVBXx5cGcpc7pr1UQf7KDGknq
CRXEp26vffbjfFQQv/Lilt+caKKC+GaRo9fwpk8Z8W/qDD8d6efKiI8e+388
5icrI36++fW2e42XMuJrXOPI5mgTZcTfTr7XI/vByojPX8WmXrhcroTzkABO
0Jn7Z5RwHuJW+SE3MlgJ8T8pI7rjq4MS8kNMsaaJrIwS8kdW/iTv7hZFnIe4
jYhYvSdPEfkn6bnG74/7FZGftu5wF3R4KSJ/fQxw6n5ipYj8FpyRneUhpYjz
EHWiVlrAHYf8GHBiUTmvYBzyp61bkH1D6jjkV2m/1JTLIeOQf4VJu4397HHI
zw33ZyRe0x2H/O02xrKWP2wc8rv67CxvkQYF5P8nX8as+l2ggPrAeVD9jxen
FVA/8EpzbMKjFFBfWMdqEDFPBdQfSUERPZH2CqhPjMqeLqpUV0D9UnTmqLW0
iALqm7PLekI5PHnUP3PirV9ML5dHfRS49Btv6l151E9FKi8jjU7Ko77qzg6Q
FY2VR/3V0+1rUxEgj/OQ8CZ1n72L5VG/aRtk/LVykEd912JV5PbJQB71Hz/u
TPHmcfKoDzOe/wkXFZVH/Wiq9TXt4A851Jc9Cz8uGtssh/oz6t26tINVcv/V
p2NWbx9ZIof61S0mqzYqVw71rc9n1/1d1+VQ/y6ebrlmdZoc6mPrkFmKb1Lk
UD9H1axa6pAoh/q64adG3q1YOdTf3tvHvBi/TQ71+b3jIcJJm+VQv4+e7Ppq
2AY51Pc+jiGxYQFyqP/7VOZt6Fwnh/5A/aPsK18fOfQPdVknCpu95dBf+Hj/
548c+g/4HPwKfB/9DFsf/A78Pvgh2B/MQ2D/4Kfg/cBvwfvDPATOB+YhcH4w
D4HzhXnIOnb+4AfhfsAvwv3BPATuF/wm3D/4UagP8KtQP+Bnob7A70L9wTwE
6hP8MtQv+Gmob5iHfGf1D34c+gP8egjrH/Dz0F/g96H/IA94Av3J8gLoX5iH
HGH9DXkD9D/kEYAPkFe4MPyAeUgxwxeYhwD+QB4C+ATzEMAvmIcMY/gG8xAZ
hn8wDwF8hLwG8BPyHG2Gr5D3hDD8hTyojuEz5EXhDL8hTzrC8B3yphUM/2Ee
cofxA8xDgD8gz0ph/AJ5F/AP5GGBjJ8gL+tm/AV5GvAb5G0JjP8gjwN+hLwO
+BPyPGfGr5D3Af9CHpjP+BnmId8Zf0OemMf4HfLGfMb/kEeCPoC8MpzpB8gz
QV9A3gn6A/JQ0CcwD9nA9AvMQ04wfQN562CmfyCP9WH6CPLa30w/QZ4L+gry
XtBfkAf7MX0GefESpt8gTwZ9B3kz6D/Iow8yfQh5dQjTj5BnizF9CXk36E/I
w0GfQl4O+hXydNC3kLfvZfoX8njQx5DXg36GPH8X09eQ94cy/Q3zgE1Mn8O8
YBPT7zBPKGT6HuYNoP9hHjGe+QOYV4B/gHkG+AuYd4D/gHnIPOZP4PMjzL/A
952Zv4H1y5n/gd9PZ/4I9gf+CfbfxfwVvB/4L3j/eubP4HzAv8H5+TF/B+db
y/wfnL8E84dwP+Af4f46mL+E+73O/Cfc/3LmT6E+wL9C/VQxfwv1tZz5X6i/
w8wfQ31KMv8M9Qv+Gup7MfPfUP/gz6E//Jl/h/4ZxPw99Bf4f+g/yAegP7+z
/ADmITksX4B5iAfLH6D/e1k+AfjQzvILwI9alm8Avoiy/APwZw/LRwCfID8B
/IJ8BeYhL1n+Avj3mOUziI8svwH83MbyHcDXcyz/AfyFfAjw+SvLjwC/IV8C
fIf8CfBfieVTwA/aLL8C/oB8C+YhkH/BPATyMeAnyM+AvyBfA36D/A34r5Ll
c8CPGSy/A/6cxvI94Fd3lv/BPKSZ5YMwDwll+SHMQyBfhHkI5I/A/5BPwjyk
iOWXMA+BfBP0BeSfoD8gHwV9AvkpzEMwX2X6BvJX0D+Qz4I+gvwW9BPku6Cv
IP8F/QX5MMxDID8G/Qb5Mui7jSx/hnlIJ8unQR8eYPk16EfIt/Hv27D8G/Qn
5OOgTyE/h3kI5OugbyF/B/0L+TzMQ1xYfg/zEMj3YR4C+T/MQ2A+APoc5geg
32G+APMQmD+A/of5BPgDmF+Af4D5BviL/51/AJ/A/y/rn3n7UXU65OOZKbs7
+WSQ0H/+9OPx3qabfTl85l806JufyWk7Ith/b/JCg1Yv2LcoxIbP1tOk3yIU
q3X672NgPU2qJNXU0pvZztbTot9enGi28m0na/5ZT4taPAouslVl85oXWpTr
3sWf95rH1tOmlqsmujyOYX+f7Kg29X5XYVBnymPr6dDsGv15bV/a2Ho69JvS
hSq9g22k9J/1dOiUudlTG0gbW0+X8sVEE+e3t5Jj/6zX3/9mMWL3+v3/wHp6
9O8hh72znVvZev311yy9ZOZ3LltPj6oeCuJwz3HxPF/dy4tbOJ/L9qdPv0Sc
NHkizCX/LCc0kQ7+MP+V950Wtt5EOuX8mzOr17aw9SZS+9QjGVwlyBcNaHgb
v1TpTTNbz4DOKC+9qpnQzPZnSJO+lTdqTW1m92FIk0eGjXYY3MzWM6QGN2Je
Juc3sb8/YUQbXCZWOWxvGjhfFyPqHOQ9epVj08D+oozoCv/yQxIjmgZ+P9OI
WuaHFHpWNA7st8mIztKRnRd4opGtN4leumqwbI5vI1tvEl2m4+o91rqRrTeJ
ivlqbCmXaGTrTaIH3x8ff7ipga03ieor34hdn9/A1jOmOfJT1wacaGDrGVP5
ii0WJyMa2HrGNOG+sMwIzwa2njEdNqz1U64TrGdMlU2mWuRNgvVM6LVkhwQp
FVjPhP7J01d4LNEwcH5RJtS4Jvn7uyGwngntsk4fPe/XF7aeCZ1itszM5PsX
tp4pHSLVJRnZ/YWtZ4qfD+zPFL8/sJ4pNWHrD6xnSvvY7w+sZ4b7++e+XMxw
/wP7M6PD2fv9Uw6ZZvj+A+uZ4fkMrDf5f85vMp7vwP4m4/kP7G8y3s/AepPx
/gbWM/+f+zXH+x/YnznWx8B65lg/A+uZY30NrGdBG/9VfxZ0IqvPgf1ZYP0O
rGeB9T2wngXW/8B6ltgfA+tZYv8MrGeJ/TWwnuW/+6/JEvsT/n5qOevfgfvg
UDXW3wPvy6GmrP8H1uNQoaQBfPin/Zo4iB8D61khvgzszwrxZ2B/VohPA+tZ
/Ru/mqwQ3wbWs0b8G9ifNeLjwHrWiJ8D61n/G1+brKkyw9+B9WwQnwf2Z0Pf
MfweWM8G8X1gPRvE/4H1bJAf4O9nAX/8//jELP298JPs//JJVXHkgWzz//LJ
iLOZ0Q7n25FPTjq5/RQe0o580vnFf0zSPB7yyQPC/RR5uA355Nm88hTnl63I
JzWvfqj4/OIin9Rs1MidqsZFPtn2oWEkoS3IJ0MyRMnxJc3IJ0b1HeuPBjQh
n6S2B1p5RjUin7TPmx85an8D8smZqWFW6Se/IJ/0XE48r3mtHvnEsmm384a8
z8gngbPnz179sg75hCP96dH2gk/IJ8NG5k3azv+AfGJ1Y9RQuQm1yCeid+av
3+rxHvnE7rNpT376O+STsljnCu7PSuQT0egU2/eL3iKfiKh49LoXvkY+CSPa
mcacCuSTiwvPR3x7WIZ8ErWJpgReLEU+2TJjzKNO/nPkE4VJCyNmzi9BPlHT
8xUn1U+QT/JC/HPWRRYhnywatm3ZMsdC5BO9UbsFO/XykU98JXjcZJ885JN5
z3wCft3PRj4ZYV3Ukr3oNvKJvJ3MI4vJt5BPrqyIm5iaeR35ZIIif9q6nZeQ
T9S1rUXt6s8hn+w0uS26+tlp5JOzPe0jRcNTkU9CFp9/uWtrEvLJUonTLR9V
E5FPJIvuWGSF7UI+IcXKj64OjUY+mc47dvh6RATyCfz/HYBP4HPgE/g+8MlR
tj7wyRf2+8AnsD/gkya2f+CTdPZ+wCfw/sAncD7AJ/8+v8l4vsAncP7AJ3A/
wCdwf8An/75fc7x/4BOoD+ATqB/gE6gv4JPt/6o/C7qZ1SfwCdQv8AnUN/AJ
1D/wCfQH8An0D/AJ9Bfwyb/6r59PoD+BT0ax/gU+Iay/gU+CWP8Dn9gwfAA+
AfwAPgF8AT4B/AE+AXwCPvkXfvXzCeAb8AngH/AJ4CPwSS3DT+CTF/8vvvbz
yUOGv8AnXQyfgU9OMPwGPgF8Bz4B/Ac+AX74Xz75PxSKE6c=
     "]]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0.10000000000000142`, 0.006666617284060452},
  Method->{},
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{3.3975000194933805`*^9, 3.5882700078821707`*^9}]
}, {2}]]
}, Closed]],

Cell[CellGroupData[{

Cell["Lin-Sin plot: animate the frequency", "Section",
 CellChangeTimes->{{3.5882695143414793`*^9, 3.588269531921504*^9}, {
  3.588269562571547*^9, 3.58826956480155*^9}, {3.588269955412097*^9, 
  3.5882699746621237`*^9}, {3.588270004742166*^9, 3.588270005192167*^9}, {
  3.588270035412209*^9, 3.588270044002221*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"obj", "/.", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"u_", ",", "v_"}], "}"}], "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"u", ",", 
         RowBox[{"Sin", "[", 
          RowBox[{"v", "/", "n"}], "]"}]}], "}"}]}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "30", ",", "1", ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"SaveDefinitions", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.3975000328525906`*^9, 3.3975000514493313`*^9}, {
  3.588270394633712*^9, 3.5882703987437177`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`n$$ = 30, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`n$$], 30, 1, -1}}, Typeset`size$$ = {
    684., {210., 226.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = False, $CellContext`n$719415$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`n$$ = 30}, 
      "ControllerVariables" :> {
        Hold[$CellContext`n$$, $CellContext`n$719415$$, 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" :> ListPlot[
        ReplaceAll[$CellContext`obj, {
           Pattern[$CellContext`u$, 
            Blank[]], 
           Pattern[$CellContext`v$, 
            Blank[]]} -> {$CellContext`u$, 
           Sin[$CellContext`v$/$CellContext`n$$]}], PlotRange -> All], 
      "Specifications" :> {{$CellContext`n$$, 30, 1, -1}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{766., {286., 295.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({$CellContext`obj = CompressedData["
1:eJx1nHlczen7/7MXSSW07/uuvbN07gqF7GMPWSJJiogpyTKIkLWsYx2MLYQ2
xMTIvmYdE5JlsqSQLd9T53pdfj6Px88/PU6nc5/7fd/X9Xpe1+uaz8di1KS+
kY3V1NRmNlNTq/956aLyn2YnsW6t8p+BlzgtdaxOUr5+fDsnpVm0l/j4aNiE
tFadhFZwZK+YfC9xZXpep/canUSJ04qP51p6C03L4qyTLToJM5u/R7cf6i2a
XvBb/LxpJ5GrP392rz3e4t7LJt3iGnUSM7qvVUz64i1erxetB34LFok9IpfG
dfcRm7S9O2ysDRbvr0gieq5Xvh7dMyeoOlj0DN+1u8l/PsKx2Ega+ipYbK+4
MHKxxFcMrAvV3F8RLKx8t88pS/MVlSOyViT8GyyOW4/SqLvjK9p+vh+04Xaw
kG3I+/DQzk8MUX6jzZVgMSfWo1fKND+R0uxPW52zweJd2XSj28V+Ykrpo6kj
CoPF+c/7osp1/UWPnAG2OoeCReqiY6FbIvxFqsv+h7Y7g0XdP8uuq+/3F5Lb
43ptWR8scuxXW7b/4i/C7a57zF4WLOauuDOkOEQiag7Uhf09J1gsfBmzTWuV
RBQVHpmQMDVYnKzNcXz7r0Tk9Bs/Nm1csFgx/qDNGCep8FprZ9picLCY3LPn
1chpUlGdlT7zdddgkeaaPfFtkVSEJByeLiTB4o+tqaHfW8rE1w+2rescgsXa
RMnhJb/IxMKV1wLtDYKFUd+p6pkbZeLQ35W2RS2CReYV9z3tK2TiwMs3t86+
DxKfTc1aqLvKxbXIlHj5kyBRrvkmY+xUuXgxqL+NzdUgMS9l9VmXQrn4dY+f
7azCIPHbgDVugxsHCLX0fw+G7QoSUSfDhpWHBIjJw8u0lq0MEoWlHv+dTw8Q
A402pIekBIm9Ofaz1K8FiBxzh7mJUUEi4UJ+SZaeQphPk/cz7xsknNeNm584
UCFiftMfGywNEtn7y5M2r1WIoK4xLo+tgkS7d6OS29xXCPvqzlZ1rYLEKZMX
HmWthYhq+aEkqzpQZOjqLr/tIsSAZrV7Dt8LFNFt/r4xoYcQ84ffHdr7VKAY
NCzy67oYIebamSfE7QwU0zvs0x29WIithh0z2y0JFMeaPrI+vVuIDBfvSYGT
A0WoekXI0b+F+OWPun3vBwSKG7ajMuVPhRiW80rTSxoo4k3vew9oHChmLrsZ
Vmf642cc/R5/h89hHayL78H3Yh/YF/aJfeM58Fx4Tjw3zgHngnPSo3PDOeJc
cc44d9zDFLoX3BPuDfeIe42ne8a9Iw4QF4iTORQ3iCPEFeIMcYc4XENxiThF
3KZRHGdRXCPOEffIA+QF8iSe8gZ5hLxCnp2gvEMeIi+Rp8hb5PFhymvkOfIe
OjCLdAE6UUK6AR2pIl2BzkB3oEPQJehUIekWdAy6Noh0bhvpHnQQugidZN0k
HZ1GugqdnU66Cx0+RroMnYZuQ8eh69D51qT74AC4AE6sJW6AI32GpuS4lHjy
+7ZvLz05O92TPz+hxRZptL0nr6+nFXPF+I4Hf3+S4b6DTxZ48P4Knq2t/svX
g/d//Oml7aefdeTnCxhde708syM/f0XpojS30I58PsvCxl3bWevO56fzdWl2
393uzJFpWtccvIe48/nXrpkh+6WVO9/P6LRG58bPcPvBke0JbrkPXPl+b8a1
XL1RuPL9j+3z8abVDheOj+g/u5z6paULx0+jdjILSZwzx9fIwCPZ/5Q6cfwN
WJ5u1jXAiePzecJX7fl/OHL8dlrZxGhTG0eO73klJWfWzXDg+O+v0Xzxb+X2
nB+GFpG3xvW25/zxTqz63u24HeeXx+mk/n5OdswRyd9Ntf3X2XJ+TrW3HzSg
pS3n76awhZ3WJtmIq5TfEeOld1u+thbPKf+H5/m3yBlpzfqQ+ezino2lVqwf
VblqGVfDrJgjmt/0ovoXW4oBpD+pV95e95Jbsj5peWQOTjxmwfrVQmNjrI2n
BeubmLN5Yki2OetfxJtT6566mrM+dvOTddIebsb6mdpnlWvsSFPWV93HW17U
jDNh/dXXGeObE2/M+qy3s3hHQYqR2EL6vXTRhiWGywxZ333WFOiUbTVg/Q+7
W21ilK/PfHjZ237svZsdmB/lDiMinavbM0dc190ON2vXXlwnjoRFWPU7JWnH
HCn+GNzWfIwecyQ344JT1+VtmSMb7jR63fW0rhhIHDHeqjnR7aMOcyR9hvHM
5u46zJEMz42H7sdoM0cymt06PW1oG9GeOFIWpOM3+mlrcYA4stn3dOSqRE3m
SMTSFuMsdFsxR9zLb18xP6LBHFl4aOWeXRHqIp84svnu5qTLei3EOOJI7SMt
n53Xmol5xBHtVp06hWQ2FXOJIxmyw7NPRzZhjux6vU7iLG8saokjcaaXHDNN
GjFHtEemJrdroSYMiSPZ/X5ZGl/9TQGORPxZbGz93xcFOFKmt3n26PefFAuI
I9maIraXbq0ijjhSVKg+tnnQB0UGcUSsTyrcMa9GAY5kew1b2fXeO0UacWRz
yOs7msFVitnEEbWsuHTdlDeKQ8SRiOb38/dvqFSAI6Jf3lXjxy8UqC+LSt6+
WtjzmQL1p3mLpwXGj8sVb4kjZb1Ko79veKyYTRzZ/Gjcgf6zyhQS4khR6YbU
ubr/KFD/pm7psevs1LsKcEQt92XAAftSxVbiSNG3dTsmO91Q9CCOqKV08ghM
uaqoIY6o7f02KD3oogL1uVrR/tW9HM4pUL+nrrkcoXWwWHGUOJK6JPGW2r1T
ClPiiNqawKLdoScV54gjal0mJYabFyrAEbUDBQ/DpPkKcEStofHIU2QRR/A+
OILP2xBHsD44gu9vRxzB/n4ljmD/+cQRPF8hcQTPryCOqNWpzgccEXR+S4kj
OF9t4gjOHxwpovsBR3B/Y4gjuN/ZxBHc/3XiCOIDHEH8TCCOmFN8NSaOZFP8
jSCOID5/IY4gfl8QR65SfHcmjhRR/KcSR95SfvQjjiB/DIgjRZRfPsQRfco/
cCSV8tOHOJJL+RtHHEF+/04cQf6DI2qPVfoAjmSTfqwkjmSRvrwijviR/mgR
R6BPs4kj0C9t4shb0remxBHon4w4sor0ERxZSvoJjpiSvoIj20l/NYkjJ0if
tYkj50i/wZGepO/giDvpPzjymvjQhThSSfwop5896fcV9Hd+9Dmsk0HrgiPm
9L2FtA9D2lcO7VOf9g2OzKHnAkfC6LnBkVF0LuCInM4N56hF53qHzlmPzj2D
7mE+3Utvuiddujd7uscauldwZB3dOzgyguICHBlJcYM42kxxhTibTHGXTXEo
KC7BET+KW3WKYynFNThiSnHfm/JgMOUFODKf8gYc6YK8ojx7SXmHPER9hzxF
/Yc8Vqe8BkcmU94L0oEY0gXoxF3Sjc2kIwtJV6AzkaQ70KFPpEvQqUToFukY
6mPoHOpn6OAL0kVwJAi6STpaBF0lnT0O3SUdTiFdhk63h26TjseQrkPn0T+A
A8wF4gT6D3CkAlyh93XAnRDV5y+AS5mq9S2IW/j+PHANHCHuYf/MRXo+9F94
fvRn4Aj6N3DYlriM8y0ibuP8A8B1up95xH213qr7q6a6APeLugEcQV2B+EDd
AY6gvwVH5lDdgjomHb4VxedpqnsQv6uoLgJHElA3UfwvoroKHNlJdRc4At8K
HEHdhjoOdd10ys86qvuKKH8rqC7cTPk9n+pGc8r/BVRXqhNHoqnuBEeOU10K
juyjuhUcgW8FjqDuBUfgr6BO1qe6eTPp319UV2eRPq6gunsF6ecEqsutSV/h
/4AjqOsLSZ9R96MPQF8AfYf/BP1HXwE+pFDfUUP8GE59yQDiSH/qWwRxZAX1
NauII/CtwBH0ReAI+iY94gj6KnAEfRc4gr4MHEHf1pk4gr5OkziCvg8cOUJ9
ITgC3wocQV/5jjiCvjOLOIK+FByBbwWOwLdCfZJNfe+vxJHD1BeDI/CtwBH0
1RLiSCj13eAI+vJBxBH07eAI+vofHFH1/eAIfIH+xJHh5BtEE0fgK4Ajs8l3
iCeOwJcARxLIt7hDHIGvsYA4At8D9St8EXAEvgk4At+qHXEEvstK4gh8GXAE
vg04Al/nJHGEfR/iCHyhmcQR+Eao/+EroT+A7wSOwJcaQByBb7XpJx8rkOYh
AaLucecthcrXuxTXXQ44BIjSjUfN0pWvuy18f/wv/wCxrr9bd6ny9ba5dZ1L
uwaI1joX7M+3ChTPjTROPx0cIO54HDjpp3x9Y9Yo16rxAaJJ81YGC1oGis9p
axd8nBEgJjp0EEc0lK+tlp3/mBYght/TC/pLPVDM2D6/5u3aAOFo2sP1YItA
UWXr0+Tx7gChe6FN+1nNA4XPg9KakrwA0SvukKZLs0BxpK/3uZ0lyvVMltkV
NAkUsUdOJf96N0BZjzVJcVDqwQK1zbqBLwKEcYeJDtPVAsVqx9xFn2sDxKIA
584764SYHni2Yoe6QhRc3vj66FchSmdEOwTpK0TOKqPOOz8L4eruP+CynUJY
l30aP71WiKR75+O7+ipEctRvqY4fhIh5cWH2oS4KYaLbaP/xaiHcsjSXqA9Q
iFsrtxl4VAlxfnfG+m6RCnH+66rKBa+FUG/7+9HEBIX4YljZ5+R/Qnxfdu35
0rnK9U7vmXbnuRBO1tYBy1YoxNb3J9Nu1OvbvKbFiVsUIuz154Lsx0L4RI1M
C8lWiDh1XRH3rxBqZ/M2fTuhELZL13XTfSBETpVT+7WXFGJUZHPdzDtCjN0+
r4nBA4VY9fvmy3U3hfj1WY/k5JcKEfVfWn7Xa0I8ePJP5ulahbj+PEdn+iUh
9M8f8p3aRKnDIx7rLCoRImXv96UzWgoRN3jj51lnhPhydHjZRB0hLEx8Ww85
JcRRs/CCPvrKn23+Stc/LsScXkuzrc2U55aoe6IgV4hR/23oU2EjxEOL7GfB
OcrvuxjScY2zEPlV9/scPKD8++cTn3h6Kr83bH6XpnuEmGKp9+2EEuO6sd11
5H8I0VE7Rs9XCFG5I/b70C1CLN15r2h9FyGOxN8aMXKDEOb36tZVhgmRPrfx
3B6ZQrwwzpU59BPixB7tAvMVyue47xzYZ7DyXHfvG3o/XYivt692GjNCCPsy
vfyZC5Q8mTzh6chIIXrWariozxHi8kOT010nCDF35A3NpGQhFgaPTzKKF2JR
kdfh0mk/fuL3+Dt8DutgXXwPvhf7wL6wT+wbz4HnwnPiuXEOOBecE84N54hz
xTnj3HEPuBfcE+4N93iM7hX3jHtHHCAuECeIG8QR4gpxhrhDHCIuEaeIW8Qx
4hpxjrhHHiAvkCfIG+QR8gp5hrxDHiIvkafIW+Qx8hp5jryHDkAXoBPQDegI
dAU6A92BDkGXoFPQLegYdA065026Bx2ELkInoZvQUegq6yzpLnQYugydhm5D
x6Hr0HnoPjgALoAT4AY4kl4d0Wyexo/3X/4pnzrpk5w/n3HA61X4CzmvH9bB
Mb7HXTl//8jDV5sGlch5f5Lda/dI8+S8f0mb7VHS3XJ+voKlewOC1srFMHr+
IM1vbn3S5Hw+dQPCA8bPkPP5pZR9i148Xs7ne3Zm/NHcwXI+/70eK83fdZXz
/WxST9rlJ5Hz/RVWxYQtcZTz/Q7LO6dRZSjn+2/e5PODMa3kHB95g6JOvfgi
4/g513XcwdRKGcdXs/W2fzj+I+P4i07bmvn8kozj09l8VXLBCRnHr/e2kd22
H5D9iO82bd5v2yzj+G96wHVSwXIZ50fd+Wu7/5sj4/zxmjhjlXeCjPMrNbCF
ybpIGeff5aX73QwHyjg/87s/PXo0VMb5O6hX//VxEpkYR/nd7PdLf4U6yzj/
/e55thOmMtaHgDNTJw/UlrF+nK3+tXBZYxnri/uq9tdf1EhZf2LDPy0b+0zK
+jRz7barze9JWb/cRg2MuXBRyvrW83VL/yMnpax/13WHtjxzSMr6qF8+8+CX
HVLWz/cp3t8Gr5Wyvo76dDqvLF3K+luYdDc7I1XK+iybu3x3dIJUOJJ+b+gZ
HjUpSirsSN8zp37c/3u4lPXfZm+E7GtvKfPB/FDJxd86S5kfLnHpBnKJVCwg
jmQGmd21dJMyR55O1jjpay1ljjwsu52UbCBljuTe1zlepSVljhg7u7pkNZWK
58SRkl4Lp8R9ljBHwp/190p6K2GOaA/coJ1XIWGOqOJPwhw51Stp2dUbEubI
jDfXR+85L2GO3O6kdazglIQ5UtJ2n0HjPAlz5F1tsf6sbAnXB31Ta+WeuyTM
kYIpsW3MNkuYI8tGlrQJzpIwRyLDzU78niFhjmjWVK32TpMwR+KjbNs0myNh
jjxvX7dRK0nCHPnFss3hvgkS5siGAfKCaxMlzJGqkMNm6eMkzBH5/vud54yU
MEcCvg1ZljNUIuqII7/7awyxGiBhjixqVfn9cm8Jc+SzVsfbx7pLhCtxRDbK
3uNhFwlzpHKyYkRQkIQ5cknj665yuYQ5cmL1x/5n/CXMEfOj93aVe0uYI1+a
Di4L8pAwRzpYuPiWuUqYI0Nq9coLnSTMkTV9LxvctZcwR7Q2tm3hbSthjpR9
yCq9aiVhjvyaonFgr4WEOTKkrOnhc2YS5oirnUkjG1MJc2TepZuHTxlLmCOG
OhsfbTKSMEfUFt7cUGgoYY6kfTxTbah8DY74Tdz5Ns9AwhxR8UPCHMH74Ag+
/4I4gvXBEXw/OIL9RRBHsH9wBM8HjuD5wRGcDzjShs4PHMH5giM4f3AE97OP
OIL7A0dwvwXEEdw/OIL4AEcQP+AI4gscQfyBI4hPcATxC44gvsGRAIp/cAT5
AY4gf8AR5Bc4gvwDRyZTfoIjyF9wBPkNjiD/wRHoAzjSj/RDThyBvoAj0B9w
BPoEjkC/wBHoGzgC/QNHoI/gCPQTHDlP+gqOmJD+giOsz8SRf0m/wZEK0ndw
BPoPjrgSH8ARC+IHOGJLvwdHsuhzWAfrgiNy+l5wBPvCPkfTvsERPBc4gufG
OeBccE44N5yjO51rEZ1zCp37dLqHSXQvuCfcG+7xb7pX3DPqB3AEcYE4Qdwg
jhBXiDPEHeIQcQmOzKa4RRwjrhHniHvkAfICeaJBeQOO+CCvKM+Qd8hD5CXy
FHmLPEZeSynP8ynvoQPQBejEcNIN6AjqU+jM76Q70CHoEnQKugUdg65B56B7
0MFOpIvQyULSTeiolHQVOisl3YUOo76HTkO3oePLSdeh8+gfwAFwAZwAN8CR
3cQVvN+duIPPbycuYX1wC99/k7iG/YF7zEHiIp4P3MTzg6s4H3AXHD5KXMb5
gts4/4XEdX26nzXEfdzfDKoLcL+3qW7A/aOuQHyg7kD8oC4BR1C3IP5Q1yA+
UfcgftFfc3yjbqL4R12F/EDdhfxBXYb8Qt2G/ENdh/xE3dea8hd14VjKb9SN
yH/UldAH1J3gCPwN6AvqVugP6lroE+pecAR1MTiCurk56R/qaugj6m7oJ+py
cAT+DziCuh76jLof+o2+APqOvgH6j74CfEDfAY7Mo74EHEHfAo7AtwJH4FuB
I+yvEUfQN4F/R6mvAkfQd4Ej6MvAEfRtvYgj6OvAEfR94Aj6QnAEfSM4gr4S
HImnvhMcQV8KjqBvBUfQ14Ij6HsLiCPoi8ER9M3gCPpqcAR9NziCvhwcQd+O
+gt9PTiCvh8cgS8AjsA3aE4cga8AjsB3AEfgS4Aj8C3AEfga4Ah8D3AEvgg4
At8EHIGvkkocaUu+y3fiCHwZcAS+FTgCXwccYd+HOAJfCByBbwSOwFdCfwDf
Cf0DfClw5H/nH16e9f+c+XXt4g6/vfNw5n5lQOK9FHfla/Qz4wccd37l7sz9
jlcn5232bs7MlYgLhXWPnZ25X2ql7zzG2NGZuXJkR7jaLVtn5srU8f3UW1s5
M1d2TffKKzZ1Zq50d1YM+mrgzPMQ2akSjxw9Z+73cqbKNlVqOTNXJNaatTvU
nblfnByes6OskTP3k/afs/U2fnbifrNSkph//50T96OX+8bqbXzpxFzJSH22
89EjJ+ZK1ZZ2jf+848RcSQhtmvvhshP7qr/0Wjr2XLETc8Wxut8hs3wn5krl
hOyQb/udmCuvNQ7cG7nNifvx+aXfbXtmOjFX3PP+e3N6kRNzpcgiVO3UTCfm
SqZftGPXOCfmyvzVBqHho5yYK71T5ki+9HNirmzaZ/fStrMTc6Xbthtdyryd
mCvvUtJC7G2dmCt/RU59+b2dE3NlXsIDr6hmTux3lAZoeo6qcWSu5D/oWvv6
sSNzZdqCok1trjkyVyrOTgo5c8KRuTLc3cBQZ68jc6VbrkvnmixH5srBzPxv
k35zZK7cOtt/1m/xjswVN62Wmj7DHJkrn/YHVc4JdWSu7Nl+NHaipyNzZVNq
v+cfTByZK5JHdjnm6o7MFa35PTwrqxx47mHX+MbFIfcdmCumWjteTSx2YL/L
PylR3W6fA3PFvWTf6gWrHZgrb0YEt10+04G58jb2cNPOkQ7MlW1Tyt5tD3Ng
rqREfZlwyNOB/TrfTdFNJhk6MFeKRXafB2oOzJWLab1rvlTYM1dabj225MpF
e+ZKrKfZmUGH7Jkri/ZN6bI20565oh7gf3pFsj1z5X5K3KsuI+2ZK5X3f519
rLM9+5m1B+ukFQ72zJXh9hce3mxtz1zJ/bvA7bcqO56H1FxeX1t70465cjFU
o4VHrh1zJerJQGeP9XY/5iHpU+RfZtoxV2KuntZdFmHHXBmprrHwTZAdc2Vg
aGiyqY0dc6XObNs1kxZ2zJU2tgET3zy3Za6s7Gfhu/q8LXNFFX+2zJU71zOb
RC6xZa58yFn9ZEWsLXMlPGLy3g29bJkr+6pv9p3nbstceTsn/VJ3HVvmilP/
uHbvq2yYK1qNhM2c6zbMlfvRcz/VHLJhrkzYEZ3Ra6UNc2VC7r4XK6fYsJ//
pEdM8+J+NsyVd6GtXzzytGGuvAsxXf2mrQ1zpaatZ5s31dbMlT++F4c/vmHN
XLnqqzvvwmFr5kpIi2+L9660Zq6s1v4vacEUa+ZK71nbhw7vZ81cUfHDmrmi
/+xUS/W2P96/0T/p5cN3Vvx58xHj7+Vdt+L1s1x/ebzukBV//6mxWzTmrbDi
/SX09RyYONmK9z/VNPTatL5W/HzTTAbPnOdhxfOQ+fqfR2zVteLz+bovN/n6
O0s+v69FX261v2HJ55v+5XFM/GFLPv8hkbaB5Sst+X4CdD70jk+w5Pub/uRu
lmF/S77fgsnL2z72tuT7b9W8Jq+kvSXHx+SDV+fc+GjB8bN85eVRje5acHy1
9OkR1j/fguPvpm5nt2vrLTg+Bwn7T9NmWnD8Rnf5a1XoCAuOb11T05chgRY/
6qrhwx5Os7Lg/Piyelu/280sOH/G3XtnP+G5+Y+5+lwtidcFc86/DSbDRnjt
N+f8TMg8P3HicnPO3+xNf/o8SjDnurFlwPoFyweZc/7H5YxzTJWZsz4kLfqv
fL+5OevH0mfvp5s1M2d9OdF7SOjOG2asP7nxTxXrNpqxPtVELg0yijJj/Spc
OOygi6cZ65tfnlP5zTpT1r8u3WMc9C6Ysj5GZHw88zrTlPXz5pdbNeMiTVlf
Fz5t9WyOpynr77vXkX8FNTZlfX6r2eWPP6+Z8DwkVhK/5fgWE56HhJf+U5Ay
2YT1f1X2nKq3wSbMh3nnbD07tDdhfuQUdRxb89yY+5bwljPHLC40Zv6sumDz
9WGGMfPp17kj3lRFGv/oi2JDas5KjZlvk7NzcyJ0jXkeYq2wuHzqhRHzMXbj
wGuVp4yYnwHh8UHl64yYr3ox67L+TDBi/jZVvJIH9TJiPpcf775sn6MR8zu8
rf+D182NmO/WvXLGqpcbMv/PPmk7+uspQ64PQhs9/nhxsyHXD5WX8+TJqYZc
X8jm2yg0Rxpy/bEqfmZtSpAh1yfuV/8eWGptyPVL8Za1Mj11Q65vtg6tTZRU
GnD90ztNdrHbNYMfc/Uh7yu7HDPg+qnY7FKK+yYDrq9qcmM7aMw34PqrtmaC
/HqsAc9Dkiuso5YMMuD6zd41+7s02IDru+fS4vB/XQ3YV3i9cMu56UYGXB9m
X/iWrKFhwPWjl93bbSs+6nN9WTvg4cB2z/S5/ky9E71txW39H/Vp2zGzW5Xo
c/0aPi/nQWqBPte3UY/6ZVTv1+f6d1A3/3FjtulzfSxL6Gl8M0uffZnU+6OH
BC/T5/q6/JNN4aH5+lx/j53d9qLlLH2uz/M3JDRdNV2f63dtn35Xmk/R5/o+
qlPC/KRYfa7/68z6TnkXrc/9gfXDDlcmROlz/1CWs/H0s7H63F9Eja3/p8/9
B95Hv4LPcz9D66PfwfejH8L+MA/B/tFP4fkwD8HzYx6C88E8BOcHXxDnC98w
ms4f/SDuB/0i7g/zENwv5iG4f8xDEB/oVxE/mIcgvtDvIv7gqyI+0S8jftFP
I74xD/lA8Y9+HPmBfj2B8gf9PPIL/T7yD/OQs5Sf8AuQv/Cl11B+w29A/sOP
gD7Arwgj/cA85BzpC+Yh0B/4IdAnzEOgX5iHNCd9wzykPekffH3oI/wa6Cf8
HHvSV/g9CaS/8IPKoM/kFyWTfmMesob0HX7TcNJ/zEOOEh8wDwE/MA/JIr7A
7wJ/4IfFEZ/gl9UQv+CngW/w29KJf5iHgI+Yh4Cf8PNCia/w+8BfzEOKiM+Y
h3wgfmMeUkh8h99YRPyHH4n6AH5lMtUPmIegvoDfifoDfijqE8xDplD9gnnI
Rqpv4Lc2pvoHfmwU1Ufwa79S/QQ/F/UV/F7UX5iHxFB9Br94MNVv8JNR38Fv
Rv0HP3oF1YeYhyRQ/Qg/W5PqS/jdqD/hh6M+hV+O+hV+OupbzEOWUP0LPx71
Mfx61M+Yhyyg+hp+fyLV35gHTKP6HPOCaVS/Y55wmup7zBtQ/2MeYUn9AeYV
6B8wz0B/gXkH+g/MQ/pSf4L311D/gs+HUn+D9a9R/4Pv30n9EfaH/gn7r6b+
Cs+H/gvP/5j6M5wP+jfMQ2Kov8P5PqD+D+ffhvpDzEPQP+L+qqi/xP3up/6T
5+rUnyI+0L8ifm5Tf4t5yDDqfxF/q6k/RnzqUP+M+EV/jfgeRP035iHoz5Ef
E6l/R/40ov4e+YX+H/kHfwD5+YH8A8xD8shfwDwkgvwH5P9n8iegD6/Iv8A8
5AH5G9AXDfI/oD+LyR/huTr5J5iHwF/BPOQS+S+Yh5whf4b1kfwb6Ocs8ncw
D9lO/g/mIfCHoM9vyT+CfsNfgr7Df4L+m5A/BT7Yk3+FeQj8LcxD4H9hHgJ/
DHyCf4Z5CPtrxDf4b+BfKflz4GM2+XfgZ1fy98DXEeT/YR7yjPxBzEMSyT/E
PAT+IuYh8B/Bf/iTmIcUk3+JeQj8TdQX8D9Rf8AfRX0C/xTzEPirqG/gv2Ie
An8W9RH8W9RP8HdRX8H/Rf0FfxjzEPjHqN/gL6O+m0r+M+Yh78ifRn24nPxr
zEPgb/N/b0P+N+Yh8McxD4F/jnkI/HXUt/DfUf/Cn8c8JIz8e8xD4O9jHgL/
H/MQzAcwD8H8APU75guYh2D+gPof8wn0B5hfoH/AfAP9xf/OP37miZfq51pr
0XOU9iD/HE/RSK3+n43wSwuMeNrbk/oXGzFAy+XQxjceKh/soo3YU3W9x6gM
D1rPln560Hq24p3ybe07HWk9O1Fx1fL+p5SOYlzDenaiTf1ydh1pPTsx8dmX
3VXX3Wkde9XnUt1pPaV+TTvxu6GbO63nIJZmxurOLXKj9RxEzbeb01/YuonL
Des5iDPm2ZOjlrvSeo70OVexvmE9R/HH+mLlX7jQ753E0er6BZxpPSfhob7X
eMgYZ1rPSXS4e/ljvydOfJ5j6e9U+3MWlvVf98pRNCyn5iJCGhZ0pPVcRKly
dx3rffiG9VzEVeVqO9Y70HrYpwOt5yoaOy1of/cynYOam5D922tJZqw93Uf9
/x5W+VLXntZzE2+SFd7D8+3oXt35nBvON8xddNesX9FOtT/lua6tP77zdG+H
3UWf+uXm2qo+V+EuEpRPk6ywpfVwj7a0XkfxqX77xTa0XkcxdIxUuUMbWq+j
sO9Yf4A2tF5HMSK/q3IHNrSeB8eZaj0P0brhga1pPQ8xr+j8ls5HrWk9DxFZ
v3ymNa3nIRqOOxlx7EnPSz5tmKeoP72PyjpJFUeeou3c+gWxnqfQqL9eKdbz
FOPrH9f7R1785PuGefH7qv158edV63kJPVpftZ6XWEjfr1rPm/fXcF9h3uIg
7V+1P28xlp6v4WsPe/Pzq9bz5vNRrefzP+fnw+er2p8Pn79qfz58P6r1fPj+
VOv5/s/9+vL9q/bny/GhWs+X40e1ni/Hl2o9P4pTxJ+feE3xqdqfH8evaj0/
jm/Ven4c/6r1/Dk/VOv5c/6o1vPn/FKt5/9z/lX4c36ijo6i/FXdh7LupvxW
Pa9EeFL+q9aTiFzSh4aPKese6IdqPSnri2p/UtYf1f6krE+q9aQ/61eFlPVN
tZ6M9U+1Pxnro2o9Geunaj3Zz/paIRPVpL+q9eSsz6r9ycWfpN+q9eSs76r1
5Kz/qvXkzIef//ssr/8vTxrur+cPntyqv5+FHsyT+ujZcqYj86SgPnxbdGSe
XCbdAk9W6TdVbtGNeTK6fjvnXFjnms9eHbw4xpl5Mju6MGGlvhPzBFwAT6p2
nu3um2bPPHlef7w97JgnR87VX4gtf051PtbME9XvrZgnDds7ZMk8UW5OuYAF
88T9H2vlFs2ZJ6p4MGOeeDT8NGGemA+pT1gj5klOg14YME/eNuRTB+aJKv7b
M09U56zHPNnauT4hdJknKn3SYZ64K59u59k2zJNdhm7KHbdmnqj+riXzZGH9
cT9rwTypbTjPZsyT3PrlujdhnlxtiO9GzJO4hvXqFODJ2x31CfVZAZ5oN+jr
RwV4UtbwfDUK8KR3g95UKcCTsoZ9VyrAk4iG+3qmAE9Ew/k/UYAnRQ3n+a8C
PEltOJ87CvBEJcQ3FOBJasP+LynAk9T68Gp6VgGepPrWJ0yRAjxRu1IvUAUK
5AX+/x3AE7wPnuDz4InacdX64Ilaour7wRPsDzwpov2DJ2pTVM8HnuD5wROc
D3jy8/n58PmCJzh/8AT3A57g/sCTn+/Xl+8fPEF8gCeIH/AE8QWexP0Uf35i
M8UneIL4BU8Q3+AJ4h88QX6AJ8gf8AT5BZ78lH9KniA/wRM/yl/w5DPlN3ji
QfkPnshIH8AT6Ad4An0BT6A/4An0CTz5Sb+UPIG+gSfQMfAE+gieqJN+gieR
/6++KnmyhvQXPLlCOgCe5JN+gyfQd/AE+g+egA//y5P/AxCVLxg=
        "]}; Typeset`initDone$$ = True),
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.397500035476363*^9, 3.397500068453782*^9}, {
   3.397575990410421*^9, 3.397575999833971*^9}, 3.5882700472322254`*^9, 
   3.5882704009737206`*^9}]
}, {2}]]
}, Closed]],

Cell[CellGroupData[{

Cell["Sin-Lin plot: animate the frequency", "Section",
 CellChangeTimes->{{3.5882695143414793`*^9, 3.588269531921504*^9}, {
  3.588269562571547*^9, 3.58826956480155*^9}, {3.588269955412097*^9, 
  3.5882699746621237`*^9}, {3.588270004742166*^9, 3.588270005192167*^9}, {
  3.588270035412209*^9, 3.588270070252258*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"obj", "/.", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"u_", ",", "v_"}], "}"}], "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Sin", "[", 
          RowBox[{"u", "/", "n"}], "]"}], ",", "v"}], "}"}]}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "30", ",", "1", ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"SaveDefinitions", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.3975000729602623`*^9, 3.3975000809918113`*^9}, {
  3.588270377613688*^9, 3.5882703818436937`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`n$$ = 30, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`n$$], 30, 1, -1}}, Typeset`size$$ = {
    684., {207., 224.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = False, $CellContext`n$717509$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`n$$ = 30}, 
      "ControllerVariables" :> {
        Hold[$CellContext`n$$, $CellContext`n$717509$$, 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" :> ListPlot[
        ReplaceAll[$CellContext`obj, {
           Pattern[$CellContext`u$, 
            Blank[]], 
           Pattern[$CellContext`v$, 
            Blank[]]} -> {
           Sin[$CellContext`u$/$CellContext`n$$], $CellContext`v$}], 
        PlotRange -> All], 
      "Specifications" :> {{$CellContext`n$$, 30, 1, -1}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{766., {283., 292.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({$CellContext`obj = CompressedData["
1:eJx1nHlczen7/7MXSSW07/uuvbN07gqF7GMPWSJJiogpyTKIkLWsYx2MLYQ2
xMTIvmYdE5JlsqSQLd9T53pdfj6Px88/PU6nc5/7fd/X9Xpe1+uaz8di1KS+
kY3V1NRmNlNTq/956aLyn2YnsW6t8p+BlzgtdaxOUr5+fDsnpVm0l/j4aNiE
tFadhFZwZK+YfC9xZXpep/canUSJ04qP51p6C03L4qyTLToJM5u/R7cf6i2a
XvBb/LxpJ5GrP392rz3e4t7LJt3iGnUSM7qvVUz64i1erxetB34LFok9IpfG
dfcRm7S9O2ysDRbvr0gieq5Xvh7dMyeoOlj0DN+1u8l/PsKx2Ega+ipYbK+4
MHKxxFcMrAvV3F8RLKx8t88pS/MVlSOyViT8GyyOW4/SqLvjK9p+vh+04Xaw
kG3I+/DQzk8MUX6jzZVgMSfWo1fKND+R0uxPW52zweJd2XSj28V+Ykrpo6kj
CoPF+c/7osp1/UWPnAG2OoeCReqiY6FbIvxFqsv+h7Y7g0XdP8uuq+/3F5Lb
43ptWR8scuxXW7b/4i/C7a57zF4WLOauuDOkOEQiag7Uhf09J1gsfBmzTWuV
RBQVHpmQMDVYnKzNcXz7r0Tk9Bs/Nm1csFgx/qDNGCep8FprZ9picLCY3LPn
1chpUlGdlT7zdddgkeaaPfFtkVSEJByeLiTB4o+tqaHfW8rE1w+2rescgsXa
RMnhJb/IxMKV1wLtDYKFUd+p6pkbZeLQ35W2RS2CReYV9z3tK2TiwMs3t86+
DxKfTc1aqLvKxbXIlHj5kyBRrvkmY+xUuXgxqL+NzdUgMS9l9VmXQrn4dY+f
7azCIPHbgDVugxsHCLX0fw+G7QoSUSfDhpWHBIjJw8u0lq0MEoWlHv+dTw8Q
A402pIekBIm9Ofaz1K8FiBxzh7mJUUEi4UJ+SZaeQphPk/cz7xsknNeNm584
UCFiftMfGywNEtn7y5M2r1WIoK4xLo+tgkS7d6OS29xXCPvqzlZ1rYLEKZMX
HmWthYhq+aEkqzpQZOjqLr/tIsSAZrV7Dt8LFNFt/r4xoYcQ84ffHdr7VKAY
NCzy67oYIebamSfE7QwU0zvs0x29WIithh0z2y0JFMeaPrI+vVuIDBfvSYGT
A0WoekXI0b+F+OWPun3vBwSKG7ajMuVPhRiW80rTSxoo4k3vew9oHChmLrsZ
Vmf642cc/R5/h89hHayL78H3Yh/YF/aJfeM58Fx4Tjw3zgHngnPSo3PDOeJc
cc44d9zDFLoX3BPuDfeIe42ne8a9Iw4QF4iTORQ3iCPEFeIMcYc4XENxiThF
3KZRHGdRXCPOEffIA+QF8iSe8gZ5hLxCnp2gvEMeIi+Rp8hb5PFhymvkOfIe
OjCLdAE6UUK6AR2pIl2BzkB3oEPQJehUIekWdAy6Noh0bhvpHnQQugidZN0k
HZ1GugqdnU66Cx0+RroMnYZuQ8eh69D51qT74AC4AE6sJW6AI32GpuS4lHjy
+7ZvLz05O92TPz+hxRZptL0nr6+nFXPF+I4Hf3+S4b6DTxZ48P4Knq2t/svX
g/d//Oml7aefdeTnCxhde708syM/f0XpojS30I58PsvCxl3bWevO56fzdWl2
393uzJFpWtccvIe48/nXrpkh+6WVO9/P6LRG58bPcPvBke0JbrkPXPl+b8a1
XL1RuPL9j+3z8abVDheOj+g/u5z6paULx0+jdjILSZwzx9fIwCPZ/5Q6cfwN
WJ5u1jXAiePzecJX7fl/OHL8dlrZxGhTG0eO73klJWfWzXDg+O+v0Xzxb+X2
nB+GFpG3xvW25/zxTqz63u24HeeXx+mk/n5OdswRyd9Ntf3X2XJ+TrW3HzSg
pS3n76awhZ3WJtmIq5TfEeOld1u+thbPKf+H5/m3yBlpzfqQ+ezino2lVqwf
VblqGVfDrJgjmt/0ovoXW4oBpD+pV95e95Jbsj5peWQOTjxmwfrVQmNjrI2n
BeubmLN5Yki2OetfxJtT6566mrM+dvOTddIebsb6mdpnlWvsSFPWV93HW17U
jDNh/dXXGeObE2/M+qy3s3hHQYqR2EL6vXTRhiWGywxZ333WFOiUbTVg/Q+7
W21ilK/PfHjZ237svZsdmB/lDiMinavbM0dc190ON2vXXlwnjoRFWPU7JWnH
HCn+GNzWfIwecyQ344JT1+VtmSMb7jR63fW0rhhIHDHeqjnR7aMOcyR9hvHM
5u46zJEMz42H7sdoM0cymt06PW1oG9GeOFIWpOM3+mlrcYA4stn3dOSqRE3m
SMTSFuMsdFsxR9zLb18xP6LBHFl4aOWeXRHqIp84svnu5qTLei3EOOJI7SMt
n53Xmol5xBHtVp06hWQ2FXOJIxmyw7NPRzZhjux6vU7iLG8saokjcaaXHDNN
GjFHtEemJrdroSYMiSPZ/X5ZGl/9TQGORPxZbGz93xcFOFKmt3n26PefFAuI
I9maIraXbq0ijjhSVKg+tnnQB0UGcUSsTyrcMa9GAY5kew1b2fXeO0UacWRz
yOs7msFVitnEEbWsuHTdlDeKQ8SRiOb38/dvqFSAI6Jf3lXjxy8UqC+LSt6+
WtjzmQL1p3mLpwXGj8sVb4kjZb1Ko79veKyYTRzZ/Gjcgf6zyhQS4khR6YbU
ubr/KFD/pm7psevs1LsKcEQt92XAAftSxVbiSNG3dTsmO91Q9CCOqKV08ghM
uaqoIY6o7f02KD3oogL1uVrR/tW9HM4pUL+nrrkcoXWwWHGUOJK6JPGW2r1T
ClPiiNqawKLdoScV54gjal0mJYabFyrAEbUDBQ/DpPkKcEStofHIU2QRR/A+
OILP2xBHsD44gu9vRxzB/n4ljmD/+cQRPF8hcQTPryCOqNWpzgccEXR+S4kj
OF9t4gjOHxwpovsBR3B/Y4gjuN/ZxBHc/3XiCOIDHEH8TCCOmFN8NSaOZFP8
jSCOID5/IY4gfl8QR65SfHcmjhRR/KcSR95SfvQjjiB/DIgjRZRfPsQRfco/
cCSV8tOHOJJL+RtHHEF+/04cQf6DI2qPVfoAjmSTfqwkjmSRvrwijviR/mgR
R6BPs4kj0C9t4shb0remxBHon4w4sor0ERxZSvoJjpiSvoIj20l/NYkjJ0if
tYkj50i/wZGepO/giDvpPzjymvjQhThSSfwop5896fcV9Hd+9Dmsk0HrgiPm
9L2FtA9D2lcO7VOf9g2OzKHnAkfC6LnBkVF0LuCInM4N56hF53qHzlmPzj2D
7mE+3Utvuiddujd7uscauldwZB3dOzgyguICHBlJcYM42kxxhTibTHGXTXEo
KC7BET+KW3WKYynFNThiSnHfm/JgMOUFODKf8gYc6YK8ojx7SXmHPER9hzxF
/Yc8Vqe8BkcmU94L0oEY0gXoxF3Sjc2kIwtJV6AzkaQ70KFPpEvQqUToFukY
6mPoHOpn6OAL0kVwJAi6STpaBF0lnT0O3SUdTiFdhk63h26TjseQrkPn0T+A
A8wF4gT6D3CkAlyh93XAnRDV5y+AS5mq9S2IW/j+PHANHCHuYf/MRXo+9F94
fvRn4Aj6N3DYlriM8y0ibuP8A8B1up95xH213qr7q6a6APeLugEcQV2B+EDd
AY6gvwVH5lDdgjomHb4VxedpqnsQv6uoLgJHElA3UfwvoroKHNlJdRc4At8K
HEHdhjoOdd10ys86qvuKKH8rqC7cTPk9n+pGc8r/BVRXqhNHoqnuBEeOU10K
juyjuhUcgW8FjqDuBUfgr6BO1qe6eTPp319UV2eRPq6gunsF6ecEqsutSV/h
/4AjqOsLSZ9R96MPQF8AfYf/BP1HXwE+pFDfUUP8GE59yQDiSH/qWwRxZAX1
NauII/CtwBH0ReAI+iY94gj6KnAEfRc4gr4MHEHf1pk4gr5OkziCvg8cOUJ9
ITgC3wocQV/5jjiCvjOLOIK+FByBbwWOwLdCfZJNfe+vxJHD1BeDI/CtwBH0
1RLiSCj13eAI+vJBxBH07eAI+vofHFH1/eAIfIH+xJHh5BtEE0fgK4Ajs8l3
iCeOwJcARxLIt7hDHIGvsYA4At8D9St8EXAEvgk4At+qHXEEvstK4gh8GXAE
vg04Al/nJHGEfR/iCHyhmcQR+Eao/+EroT+A7wSOwJcaQByBb7XpJx8rkOYh
AaLucecthcrXuxTXXQ44BIjSjUfN0pWvuy18f/wv/wCxrr9bd6ny9ba5dZ1L
uwaI1joX7M+3ChTPjTROPx0cIO54HDjpp3x9Y9Yo16rxAaJJ81YGC1oGis9p
axd8nBEgJjp0EEc0lK+tlp3/mBYght/TC/pLPVDM2D6/5u3aAOFo2sP1YItA
UWXr0+Tx7gChe6FN+1nNA4XPg9KakrwA0SvukKZLs0BxpK/3uZ0lyvVMltkV
NAkUsUdOJf96N0BZjzVJcVDqwQK1zbqBLwKEcYeJDtPVAsVqx9xFn2sDxKIA
584764SYHni2Yoe6QhRc3vj66FchSmdEOwTpK0TOKqPOOz8L4eruP+CynUJY
l30aP71WiKR75+O7+ipEctRvqY4fhIh5cWH2oS4KYaLbaP/xaiHcsjSXqA9Q
iFsrtxl4VAlxfnfG+m6RCnH+66rKBa+FUG/7+9HEBIX4YljZ5+R/Qnxfdu35
0rnK9U7vmXbnuRBO1tYBy1YoxNb3J9Nu1OvbvKbFiVsUIuz154Lsx0L4RI1M
C8lWiDh1XRH3rxBqZ/M2fTuhELZL13XTfSBETpVT+7WXFGJUZHPdzDtCjN0+
r4nBA4VY9fvmy3U3hfj1WY/k5JcKEfVfWn7Xa0I8ePJP5ulahbj+PEdn+iUh
9M8f8p3aRKnDIx7rLCoRImXv96UzWgoRN3jj51lnhPhydHjZRB0hLEx8Ww85
JcRRs/CCPvrKn23+Stc/LsScXkuzrc2U55aoe6IgV4hR/23oU2EjxEOL7GfB
OcrvuxjScY2zEPlV9/scPKD8++cTn3h6Kr83bH6XpnuEmGKp9+2EEuO6sd11
5H8I0VE7Rs9XCFG5I/b70C1CLN15r2h9FyGOxN8aMXKDEOb36tZVhgmRPrfx
3B6ZQrwwzpU59BPixB7tAvMVyue47xzYZ7DyXHfvG3o/XYivt692GjNCCPsy
vfyZC5Q8mTzh6chIIXrWariozxHi8kOT010nCDF35A3NpGQhFgaPTzKKF2JR
kdfh0mk/fuL3+Dt8DutgXXwPvhf7wL6wT+wbz4HnwnPiuXEOOBecE84N54hz
xTnj3HEPuBfcE+4N93iM7hX3jHtHHCAuECeIG8QR4gpxhrhDHCIuEaeIW8Qx
4hpxjrhHHiAvkCfIG+QR8gp5hrxDHiIvkafIW+Qx8hp5jryHDkAXoBPQDegI
dAU6A92BDkGXoFPQLegYdA065026Bx2ELkInoZvQUegq6yzpLnQYugydhm5D
x6Hr0HnoPjgALoAT4AY4kl4d0Wyexo/3X/4pnzrpk5w/n3HA61X4CzmvH9bB
Mb7HXTl//8jDV5sGlch5f5Lda/dI8+S8f0mb7VHS3XJ+voKlewOC1srFMHr+
IM1vbn3S5Hw+dQPCA8bPkPP5pZR9i148Xs7ne3Zm/NHcwXI+/70eK83fdZXz
/WxST9rlJ5Hz/RVWxYQtcZTz/Q7LO6dRZSjn+2/e5PODMa3kHB95g6JOvfgi
4/g513XcwdRKGcdXs/W2fzj+I+P4i07bmvn8kozj09l8VXLBCRnHr/e2kd22
H5D9iO82bd5v2yzj+G96wHVSwXIZ50fd+Wu7/5sj4/zxmjhjlXeCjPMrNbCF
ybpIGeff5aX73QwHyjg/87s/PXo0VMb5O6hX//VxEpkYR/nd7PdLf4U6yzj/
/e55thOmMtaHgDNTJw/UlrF+nK3+tXBZYxnri/uq9tdf1EhZf2LDPy0b+0zK
+jRz7barze9JWb/cRg2MuXBRyvrW83VL/yMnpax/13WHtjxzSMr6qF8+8+CX
HVLWz/cp3t8Gr5Wyvo76dDqvLF3K+luYdDc7I1XK+iybu3x3dIJUOJJ+b+gZ
HjUpSirsSN8zp37c/3u4lPXfZm+E7GtvKfPB/FDJxd86S5kfLnHpBnKJVCwg
jmQGmd21dJMyR55O1jjpay1ljjwsu52UbCBljuTe1zlepSVljhg7u7pkNZWK
58SRkl4Lp8R9ljBHwp/190p6K2GOaA/coJ1XIWGOqOJPwhw51Stp2dUbEubI
jDfXR+85L2GO3O6kdazglIQ5UtJ2n0HjPAlz5F1tsf6sbAnXB31Ta+WeuyTM
kYIpsW3MNkuYI8tGlrQJzpIwRyLDzU78niFhjmjWVK32TpMwR+KjbNs0myNh
jjxvX7dRK0nCHPnFss3hvgkS5siGAfKCaxMlzJGqkMNm6eMkzBH5/vud54yU
MEcCvg1ZljNUIuqII7/7awyxGiBhjixqVfn9cm8Jc+SzVsfbx7pLhCtxRDbK
3uNhFwlzpHKyYkRQkIQ5cknj665yuYQ5cmL1x/5n/CXMEfOj93aVe0uYI1+a
Di4L8pAwRzpYuPiWuUqYI0Nq9coLnSTMkTV9LxvctZcwR7Q2tm3hbSthjpR9
yCq9aiVhjvyaonFgr4WEOTKkrOnhc2YS5oirnUkjG1MJc2TepZuHTxlLmCOG
OhsfbTKSMEfUFt7cUGgoYY6kfTxTbah8DY74Tdz5Ns9AwhxR8UPCHMH74Ag+
/4I4gvXBEXw/OIL9RRBHsH9wBM8HjuD5wRGcDzjShs4PHMH5giM4f3AE97OP
OIL7A0dwvwXEEdw/OIL4AEcQP+AI4gscQfyBI4hPcATxC44gvsGRAIp/cAT5
AY4gf8AR5Bc4gvwDRyZTfoIjyF9wBPkNjiD/wRHoAzjSj/RDThyBvoAj0B9w
BPoEjkC/wBHoGzgC/QNHoI/gCPQTHDlP+gqOmJD+giOsz8SRf0m/wZEK0ndw
BPoPjrgSH8ARC+IHOGJLvwdHsuhzWAfrgiNy+l5wBPvCPkfTvsERPBc4gufG
OeBccE44N5yjO51rEZ1zCp37dLqHSXQvuCfcG+7xb7pX3DPqB3AEcYE4Qdwg
jhBXiDPEHeIQcQmOzKa4RRwjrhHniHvkAfICeaJBeQOO+CCvKM+Qd8hD5CXy
FHmLPEZeSynP8ynvoQPQBejEcNIN6AjqU+jM76Q70CHoEnQKugUdg65B56B7
0MFOpIvQyULSTeiolHQVOisl3YUOo76HTkO3oePLSdeh8+gfwAFwAZwAN8CR
3cQVvN+duIPPbycuYX1wC99/k7iG/YF7zEHiIp4P3MTzg6s4H3AXHD5KXMb5
gts4/4XEdX26nzXEfdzfDKoLcL+3qW7A/aOuQHyg7kD8oC4BR1C3IP5Q1yA+
UfcgftFfc3yjbqL4R12F/EDdhfxBXYb8Qt2G/ENdh/xE3dea8hd14VjKb9SN
yH/UldAH1J3gCPwN6AvqVugP6lroE+pecAR1MTiCurk56R/qaugj6m7oJ+py
cAT+DziCuh76jLof+o2+APqOvgH6j74CfEDfAY7Mo74EHEHfAo7AtwJH4FuB
I+yvEUfQN4F/R6mvAkfQd4Ej6MvAEfRtvYgj6OvAEfR94Aj6QnAEfSM4gr4S
HImnvhMcQV8KjqBvBUfQ14Ij6HsLiCPoi8ER9M3gCPpqcAR9NziCvhwcQd+O
+gt9PTiCvh8cgS8AjsA3aE4cga8AjsB3AEfgS4Aj8C3AEfga4Ah8D3AEvgg4
At8EHIGvkkocaUu+y3fiCHwZcAS+FTgCXwccYd+HOAJfCByBbwSOwFdCfwDf
Cf0DfClw5H/nH16e9f+c+XXt4g6/vfNw5n5lQOK9FHfla/Qz4wccd37l7sz9
jlcn5232bs7MlYgLhXWPnZ25X2ql7zzG2NGZuXJkR7jaLVtn5srU8f3UW1s5
M1d2TffKKzZ1Zq50d1YM+mrgzPMQ2akSjxw9Z+73cqbKNlVqOTNXJNaatTvU
nblfnByes6OskTP3k/afs/U2fnbifrNSkph//50T96OX+8bqbXzpxFzJSH22
89EjJ+ZK1ZZ2jf+848RcSQhtmvvhshP7qr/0Wjr2XLETc8Wxut8hs3wn5krl
hOyQb/udmCuvNQ7cG7nNifvx+aXfbXtmOjFX3PP+e3N6kRNzpcgiVO3UTCfm
SqZftGPXOCfmyvzVBqHho5yYK71T5ki+9HNirmzaZ/fStrMTc6Xbthtdyryd
mCvvUtJC7G2dmCt/RU59+b2dE3NlXsIDr6hmTux3lAZoeo6qcWSu5D/oWvv6
sSNzZdqCok1trjkyVyrOTgo5c8KRuTLc3cBQZ68jc6VbrkvnmixH5srBzPxv
k35zZK7cOtt/1m/xjswVN62Wmj7DHJkrn/YHVc4JdWSu7Nl+NHaipyNzZVNq
v+cfTByZK5JHdjnm6o7MFa35PTwrqxx47mHX+MbFIfcdmCumWjteTSx2YL/L
PylR3W6fA3PFvWTf6gWrHZgrb0YEt10+04G58jb2cNPOkQ7MlW1Tyt5tD3Ng
rqREfZlwyNOB/TrfTdFNJhk6MFeKRXafB2oOzJWLab1rvlTYM1dabj225MpF
e+ZKrKfZmUGH7Jkri/ZN6bI20565oh7gf3pFsj1z5X5K3KsuI+2ZK5X3f519
rLM9+5m1B+ukFQ72zJXh9hce3mxtz1zJ/bvA7bcqO56H1FxeX1t70465cjFU
o4VHrh1zJerJQGeP9XY/5iHpU+RfZtoxV2KuntZdFmHHXBmprrHwTZAdc2Vg
aGiyqY0dc6XObNs1kxZ2zJU2tgET3zy3Za6s7Gfhu/q8LXNFFX+2zJU71zOb
RC6xZa58yFn9ZEWsLXMlPGLy3g29bJkr+6pv9p3nbstceTsn/VJ3HVvmilP/
uHbvq2yYK1qNhM2c6zbMlfvRcz/VHLJhrkzYEZ3Ra6UNc2VC7r4XK6fYsJ//
pEdM8+J+NsyVd6GtXzzytGGuvAsxXf2mrQ1zpaatZ5s31dbMlT++F4c/vmHN
XLnqqzvvwmFr5kpIi2+L9660Zq6s1v4vacEUa+ZK71nbhw7vZ81cUfHDmrmi
/+xUS/W2P96/0T/p5cN3Vvx58xHj7+Vdt+L1s1x/ebzukBV//6mxWzTmrbDi
/SX09RyYONmK9z/VNPTatL5W/HzTTAbPnOdhxfOQ+fqfR2zVteLz+bovN/n6
O0s+v69FX261v2HJ55v+5XFM/GFLPv8hkbaB5Sst+X4CdD70jk+w5Pub/uRu
lmF/S77fgsnL2z72tuT7b9W8Jq+kvSXHx+SDV+fc+GjB8bN85eVRje5acHy1
9OkR1j/fguPvpm5nt2vrLTg+Bwn7T9NmWnD8Rnf5a1XoCAuOb11T05chgRY/
6qrhwx5Os7Lg/Piyelu/280sOH/G3XtnP+G5+Y+5+lwtidcFc86/DSbDRnjt
N+f8TMg8P3HicnPO3+xNf/o8SjDnurFlwPoFyweZc/7H5YxzTJWZsz4kLfqv
fL+5OevH0mfvp5s1M2d9OdF7SOjOG2asP7nxTxXrNpqxPtVELg0yijJj/Spc
OOygi6cZ65tfnlP5zTpT1r8u3WMc9C6Ysj5GZHw88zrTlPXz5pdbNeMiTVlf
Fz5t9WyOpynr77vXkX8FNTZlfX6r2eWPP6+Z8DwkVhK/5fgWE56HhJf+U5Ay
2YT1f1X2nKq3wSbMh3nnbD07tDdhfuQUdRxb89yY+5bwljPHLC40Zv6sumDz
9WGGMfPp17kj3lRFGv/oi2JDas5KjZlvk7NzcyJ0jXkeYq2wuHzqhRHzMXbj
wGuVp4yYnwHh8UHl64yYr3ox67L+TDBi/jZVvJIH9TJiPpcf775sn6MR8zu8
rf+D182NmO/WvXLGqpcbMv/PPmk7+uspQ64PQhs9/nhxsyHXD5WX8+TJqYZc
X8jm2yg0Rxpy/bEqfmZtSpAh1yfuV/8eWGptyPVL8Za1Mj11Q65vtg6tTZRU
GnD90ztNdrHbNYMfc/Uh7yu7HDPg+qnY7FKK+yYDrq9qcmM7aMw34PqrtmaC
/HqsAc9Dkiuso5YMMuD6zd41+7s02IDru+fS4vB/XQ3YV3i9cMu56UYGXB9m
X/iWrKFhwPWjl93bbSs+6nN9WTvg4cB2z/S5/ky9E71txW39H/Vp2zGzW5Xo
c/0aPi/nQWqBPte3UY/6ZVTv1+f6d1A3/3FjtulzfSxL6Gl8M0uffZnU+6OH
BC/T5/q6/JNN4aH5+lx/j53d9qLlLH2uz/M3JDRdNV2f63dtn35Xmk/R5/o+
qlPC/KRYfa7/68z6TnkXrc/9gfXDDlcmROlz/1CWs/H0s7H63F9Eja3/p8/9
B95Hv4LPcz9D66PfwfejH8L+MA/B/tFP4fkwD8HzYx6C88E8BOcHXxDnC98w
ms4f/SDuB/0i7g/zENwv5iG4f8xDEB/oVxE/mIcgvtDvIv7gqyI+0S8jftFP
I74xD/lA8Y9+HPmBfj2B8gf9PPIL/T7yD/OQs5Sf8AuQv/Cl11B+w29A/sOP
gD7Arwgj/cA85BzpC+Yh0B/4IdAnzEOgX5iHNCd9wzykPekffH3oI/wa6Cf8
HHvSV/g9CaS/8IPKoM/kFyWTfmMesob0HX7TcNJ/zEOOEh8wDwE/MA/JIr7A
7wJ/4IfFEZ/gl9UQv+CngW/w29KJf5iHgI+Yh4Cf8PNCia/w+8BfzEOKiM+Y
h3wgfmMeUkh8h99YRPyHH4n6AH5lMtUPmIegvoDfifoDfijqE8xDplD9gnnI
Rqpv4Lc2pvoHfmwU1Ufwa79S/QQ/F/UV/F7UX5iHxFB9Br94MNVv8JNR38Fv
Rv0HP3oF1YeYhyRQ/Qg/W5PqS/jdqD/hh6M+hV+O+hV+OupbzEOWUP0LPx71
Mfx61M+Yhyyg+hp+fyLV35gHTKP6HPOCaVS/Y55wmup7zBtQ/2MeYUn9AeYV
6B8wz0B/gXkH+g/MQ/pSf4L311D/gs+HUn+D9a9R/4Pv30n9EfaH/gn7r6b+
Cs+H/gvP/5j6M5wP+jfMQ2Kov8P5PqD+D+ffhvpDzEPQP+L+qqi/xP3up/6T
5+rUnyI+0L8ifm5Tf4t5yDDqfxF/q6k/RnzqUP+M+EV/jfgeRP035iHoz5Ef
E6l/R/40ov4e+YX+H/kHfwD5+YH8A8xD8shfwDwkgvwH5P9n8iegD6/Iv8A8
5AH5G9AXDfI/oD+LyR/huTr5J5iHwF/BPOQS+S+Yh5whf4b1kfwb6Ocs8ncw
D9lO/g/mIfCHoM9vyT+CfsNfgr7Df4L+m5A/BT7Yk3+FeQj8LcxD4H9hHgJ/
DHyCf4Z5CPtrxDf4b+BfKflz4GM2+XfgZ1fy98DXEeT/YR7yjPxBzEMSyT/E
PAT+IuYh8B/Bf/iTmIcUk3+JeQj8TdQX8D9Rf8AfRX0C/xTzEPirqG/gv2Ie
An8W9RH8W9RP8HdRX8H/Rf0FfxjzEPjHqN/gL6O+m0r+M+Yh78ifRn24nPxr
zEPgb/N/b0P+N+Yh8McxD4F/jnkI/HXUt/DfUf/Cn8c8JIz8e8xD4O9jHgL/
H/MQzAcwD8H8APU75guYh2D+gPof8wn0B5hfoH/AfAP9xf/OP37miZfq51pr
0XOU9iD/HE/RSK3+n43wSwuMeNrbk/oXGzFAy+XQxjceKh/soo3YU3W9x6gM
D1rPln560Hq24p3ybe07HWk9O1Fx1fL+p5SOYlzDenaiTf1ydh1pPTsx8dmX
3VXX3Wkde9XnUt1pPaV+TTvxu6GbO63nIJZmxurOLXKj9RxEzbeb01/YuonL
Des5iDPm2ZOjlrvSeo70OVexvmE9R/HH+mLlX7jQ753E0er6BZxpPSfhob7X
eMgYZ1rPSXS4e/ljvydOfJ5j6e9U+3MWlvVf98pRNCyn5iJCGhZ0pPVcRKly
dx3rffiG9VzEVeVqO9Y70HrYpwOt5yoaOy1of/cynYOam5D922tJZqw93Uf9
/x5W+VLXntZzE2+SFd7D8+3oXt35nBvON8xddNesX9FOtT/lua6tP77zdG+H
3UWf+uXm2qo+V+EuEpRPk6ywpfVwj7a0XkfxqX77xTa0XkcxdIxUuUMbWq+j
sO9Yf4A2tF5HMSK/q3IHNrSeB8eZaj0P0brhga1pPQ8xr+j8ls5HrWk9DxFZ
v3ymNa3nIRqOOxlx7EnPSz5tmKeoP72PyjpJFUeeou3c+gWxnqfQqL9eKdbz
FOPrH9f7R1785PuGefH7qv158edV63kJPVpftZ6XWEjfr1rPm/fXcF9h3uIg
7V+1P28xlp6v4WsPe/Pzq9bz5vNRrefzP+fnw+er2p8Pn79qfz58P6r1fPj+
VOv5/s/9+vL9q/bny/GhWs+X40e1ni/Hl2o9P4pTxJ+feE3xqdqfH8evaj0/
jm/Ven4c/6r1/Dk/VOv5c/6o1vPn/FKt5/9z/lX4c36ijo6i/FXdh7LupvxW
Pa9EeFL+q9aTiFzSh4aPKese6IdqPSnri2p/UtYf1f6krE+q9aQ/61eFlPVN
tZ6M9U+1Pxnro2o9Geunaj3Zz/paIRPVpL+q9eSsz6r9ycWfpN+q9eSs76r1
5Kz/qvXkzIef//ssr/8vTxrur+cPntyqv5+FHsyT+ujZcqYj86SgPnxbdGSe
XCbdAk9W6TdVbtGNeTK6fjvnXFjnms9eHbw4xpl5Mju6MGGlvhPzBFwAT6p2
nu3um2bPPHlef7w97JgnR87VX4gtf051PtbME9XvrZgnDds7ZMk8UW5OuYAF
88T9H2vlFs2ZJ6p4MGOeeDT8NGGemA+pT1gj5klOg14YME/eNuRTB+aJKv7b
M09U56zHPNnauT4hdJknKn3SYZ64K59u59k2zJNdhm7KHbdmnqj+riXzZGH9
cT9rwTypbTjPZsyT3PrlujdhnlxtiO9GzJO4hvXqFODJ2x31CfVZAZ5oN+jr
RwV4UtbwfDUK8KR3g95UKcCTsoZ9VyrAk4iG+3qmAE9Ew/k/UYAnRQ3n+a8C
PEltOJ87CvBEJcQ3FOBJasP+LynAk9T68Gp6VgGepPrWJ0yRAjxRu1IvUAUK
5AX+/x3AE7wPnuDz4InacdX64Ilaour7wRPsDzwpov2DJ2pTVM8HnuD5wROc
D3jy8/n58PmCJzh/8AT3A57g/sCTn+/Xl+8fPEF8gCeIH/AE8QWexP0Uf35i
M8UneIL4BU8Q3+AJ4h88QX6AJ8gf8AT5BZ78lH9KniA/wRM/yl/w5DPlN3ji
QfkPnshIH8AT6Ad4An0BT6A/4An0CTz5Sb+UPIG+gSfQMfAE+gieqJN+gieR
/6++KnmyhvQXPLlCOgCe5JN+gyfQd/AE+g+egA//y5P/AxCVLxg=
        "]}; Typeset`initDone$$ = True),
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.3975000818330207`*^9, 3.397500084346635*^9}, 
   3.5882700731322618`*^9, 3.5882703833836966`*^9}]
}, {2}]]
}, Closed]],

Cell[CellGroupData[{

Cell["Sin-Cos plot: animate the frequency", "Section",
 CellChangeTimes->{{3.5882695143414793`*^9, 3.588269531921504*^9}, {
  3.588269562571547*^9, 3.58826956480155*^9}, {3.588269955412097*^9, 
  3.5882699746621237`*^9}, {3.588270004742166*^9, 3.588270005192167*^9}, {
  3.588270035412209*^9, 3.5882700934822903`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"obj", "/.", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"u_", ",", "v_"}], "}"}], "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Sin", "[", 
          RowBox[{"u", "/", "n"}], "]"}], ",", 
         RowBox[{"Cos", "[", 
          RowBox[{"v", "/", "n"}], "]"}]}], "}"}]}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "30", ",", "1", ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"SaveDefinitions", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.3975000896142097`*^9, 3.397500093179336*^9}, {
  3.5882703272936172`*^9, 3.588270354393656*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`n$$ = 30, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`n$$], 30, 1, -1}}, Typeset`size$$ = {
    684., {206., 222.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = False, $CellContext`n$715264$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`n$$ = 30}, 
      "ControllerVariables" :> {
        Hold[$CellContext`n$$, $CellContext`n$715264$$, 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" :> ListPlot[
        ReplaceAll[$CellContext`obj, {
           Pattern[$CellContext`u$, 
            Blank[]], 
           Pattern[$CellContext`v$, 
            Blank[]]} -> {
           Sin[$CellContext`u$/$CellContext`n$$], 
           Cos[$CellContext`v$/$CellContext`n$$]}], PlotRange -> All], 
      "Specifications" :> {{$CellContext`n$$, 30, 1, -1}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{766., {282., 291.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({$CellContext`obj = CompressedData["
1:eJx1nHlczen7/7MXSSW07/uuvbN07gqF7GMPWSJJiogpyTKIkLWsYx2MLYQ2
xMTIvmYdE5JlsqSQLd9T53pdfj6Px88/PU6nc5/7fd/X9Xpe1+uaz8di1KS+
kY3V1NRmNlNTq/956aLyn2YnsW6t8p+BlzgtdaxOUr5+fDsnpVm0l/j4aNiE
tFadhFZwZK+YfC9xZXpep/canUSJ04qP51p6C03L4qyTLToJM5u/R7cf6i2a
XvBb/LxpJ5GrP392rz3e4t7LJt3iGnUSM7qvVUz64i1erxetB34LFok9IpfG
dfcRm7S9O2ysDRbvr0gieq5Xvh7dMyeoOlj0DN+1u8l/PsKx2Ega+ipYbK+4
MHKxxFcMrAvV3F8RLKx8t88pS/MVlSOyViT8GyyOW4/SqLvjK9p+vh+04Xaw
kG3I+/DQzk8MUX6jzZVgMSfWo1fKND+R0uxPW52zweJd2XSj28V+Ykrpo6kj
CoPF+c/7osp1/UWPnAG2OoeCReqiY6FbIvxFqsv+h7Y7g0XdP8uuq+/3F5Lb
43ptWR8scuxXW7b/4i/C7a57zF4WLOauuDOkOEQiag7Uhf09J1gsfBmzTWuV
RBQVHpmQMDVYnKzNcXz7r0Tk9Bs/Nm1csFgx/qDNGCep8FprZ9picLCY3LPn
1chpUlGdlT7zdddgkeaaPfFtkVSEJByeLiTB4o+tqaHfW8rE1w+2rescgsXa
RMnhJb/IxMKV1wLtDYKFUd+p6pkbZeLQ35W2RS2CReYV9z3tK2TiwMs3t86+
DxKfTc1aqLvKxbXIlHj5kyBRrvkmY+xUuXgxqL+NzdUgMS9l9VmXQrn4dY+f
7azCIPHbgDVugxsHCLX0fw+G7QoSUSfDhpWHBIjJw8u0lq0MEoWlHv+dTw8Q
A402pIekBIm9Ofaz1K8FiBxzh7mJUUEi4UJ+SZaeQphPk/cz7xsknNeNm584
UCFiftMfGywNEtn7y5M2r1WIoK4xLo+tgkS7d6OS29xXCPvqzlZ1rYLEKZMX
HmWthYhq+aEkqzpQZOjqLr/tIsSAZrV7Dt8LFNFt/r4xoYcQ84ffHdr7VKAY
NCzy67oYIebamSfE7QwU0zvs0x29WIithh0z2y0JFMeaPrI+vVuIDBfvSYGT
A0WoekXI0b+F+OWPun3vBwSKG7ajMuVPhRiW80rTSxoo4k3vew9oHChmLrsZ
Vmf642cc/R5/h89hHayL78H3Yh/YF/aJfeM58Fx4Tjw3zgHngnPSo3PDOeJc
cc44d9zDFLoX3BPuDfeIe42ne8a9Iw4QF4iTORQ3iCPEFeIMcYc4XENxiThF
3KZRHGdRXCPOEffIA+QF8iSe8gZ5hLxCnp2gvEMeIi+Rp8hb5PFhymvkOfIe
OjCLdAE6UUK6AR2pIl2BzkB3oEPQJehUIekWdAy6Noh0bhvpHnQQugidZN0k
HZ1GugqdnU66Cx0+RroMnYZuQ8eh69D51qT74AC4AE6sJW6AI32GpuS4lHjy
+7ZvLz05O92TPz+hxRZptL0nr6+nFXPF+I4Hf3+S4b6DTxZ48P4Knq2t/svX
g/d//Oml7aefdeTnCxhde708syM/f0XpojS30I58PsvCxl3bWevO56fzdWl2
393uzJFpWtccvIe48/nXrpkh+6WVO9/P6LRG58bPcPvBke0JbrkPXPl+b8a1
XL1RuPL9j+3z8abVDheOj+g/u5z6paULx0+jdjILSZwzx9fIwCPZ/5Q6cfwN
WJ5u1jXAiePzecJX7fl/OHL8dlrZxGhTG0eO73klJWfWzXDg+O+v0Xzxb+X2
nB+GFpG3xvW25/zxTqz63u24HeeXx+mk/n5OdswRyd9Ntf3X2XJ+TrW3HzSg
pS3n76awhZ3WJtmIq5TfEeOld1u+thbPKf+H5/m3yBlpzfqQ+ezino2lVqwf
VblqGVfDrJgjmt/0ovoXW4oBpD+pV95e95Jbsj5peWQOTjxmwfrVQmNjrI2n
BeubmLN5Yki2OetfxJtT6566mrM+dvOTddIebsb6mdpnlWvsSFPWV93HW17U
jDNh/dXXGeObE2/M+qy3s3hHQYqR2EL6vXTRhiWGywxZ333WFOiUbTVg/Q+7
W21ilK/PfHjZ237svZsdmB/lDiMinavbM0dc190ON2vXXlwnjoRFWPU7JWnH
HCn+GNzWfIwecyQ344JT1+VtmSMb7jR63fW0rhhIHDHeqjnR7aMOcyR9hvHM
5u46zJEMz42H7sdoM0cymt06PW1oG9GeOFIWpOM3+mlrcYA4stn3dOSqRE3m
SMTSFuMsdFsxR9zLb18xP6LBHFl4aOWeXRHqIp84svnu5qTLei3EOOJI7SMt
n53Xmol5xBHtVp06hWQ2FXOJIxmyw7NPRzZhjux6vU7iLG8saokjcaaXHDNN
GjFHtEemJrdroSYMiSPZ/X5ZGl/9TQGORPxZbGz93xcFOFKmt3n26PefFAuI
I9maIraXbq0ijjhSVKg+tnnQB0UGcUSsTyrcMa9GAY5kew1b2fXeO0UacWRz
yOs7msFVitnEEbWsuHTdlDeKQ8SRiOb38/dvqFSAI6Jf3lXjxy8UqC+LSt6+
WtjzmQL1p3mLpwXGj8sVb4kjZb1Ko79veKyYTRzZ/Gjcgf6zyhQS4khR6YbU
ubr/KFD/pm7psevs1LsKcEQt92XAAftSxVbiSNG3dTsmO91Q9CCOqKV08ghM
uaqoIY6o7f02KD3oogL1uVrR/tW9HM4pUL+nrrkcoXWwWHGUOJK6JPGW2r1T
ClPiiNqawKLdoScV54gjal0mJYabFyrAEbUDBQ/DpPkKcEStofHIU2QRR/A+
OILP2xBHsD44gu9vRxzB/n4ljmD/+cQRPF8hcQTPryCOqNWpzgccEXR+S4kj
OF9t4gjOHxwpovsBR3B/Y4gjuN/ZxBHc/3XiCOIDHEH8TCCOmFN8NSaOZFP8
jSCOID5/IY4gfl8QR65SfHcmjhRR/KcSR95SfvQjjiB/DIgjRZRfPsQRfco/
cCSV8tOHOJJL+RtHHEF+/04cQf6DI2qPVfoAjmSTfqwkjmSRvrwijviR/mgR
R6BPs4kj0C9t4shb0remxBHon4w4sor0ERxZSvoJjpiSvoIj20l/NYkjJ0if
tYkj50i/wZGepO/giDvpPzjymvjQhThSSfwop5896fcV9Hd+9Dmsk0HrgiPm
9L2FtA9D2lcO7VOf9g2OzKHnAkfC6LnBkVF0LuCInM4N56hF53qHzlmPzj2D
7mE+3Utvuiddujd7uscauldwZB3dOzgyguICHBlJcYM42kxxhTibTHGXTXEo
KC7BET+KW3WKYynFNThiSnHfm/JgMOUFODKf8gYc6YK8ojx7SXmHPER9hzxF
/Yc8Vqe8BkcmU94L0oEY0gXoxF3Sjc2kIwtJV6AzkaQ70KFPpEvQqUToFukY
6mPoHOpn6OAL0kVwJAi6STpaBF0lnT0O3SUdTiFdhk63h26TjseQrkPn0T+A
A8wF4gT6D3CkAlyh93XAnRDV5y+AS5mq9S2IW/j+PHANHCHuYf/MRXo+9F94
fvRn4Aj6N3DYlriM8y0ibuP8A8B1up95xH213qr7q6a6APeLugEcQV2B+EDd
AY6gvwVH5lDdgjomHb4VxedpqnsQv6uoLgJHElA3UfwvoroKHNlJdRc4At8K
HEHdhjoOdd10ys86qvuKKH8rqC7cTPk9n+pGc8r/BVRXqhNHoqnuBEeOU10K
juyjuhUcgW8FjqDuBUfgr6BO1qe6eTPp319UV2eRPq6gunsF6ecEqsutSV/h
/4AjqOsLSZ9R96MPQF8AfYf/BP1HXwE+pFDfUUP8GE59yQDiSH/qWwRxZAX1
NauII/CtwBH0ReAI+iY94gj6KnAEfRc4gr4MHEHf1pk4gr5OkziCvg8cOUJ9
ITgC3wocQV/5jjiCvjOLOIK+FByBbwWOwLdCfZJNfe+vxJHD1BeDI/CtwBH0
1RLiSCj13eAI+vJBxBH07eAI+vofHFH1/eAIfIH+xJHh5BtEE0fgK4Ajs8l3
iCeOwJcARxLIt7hDHIGvsYA4At8D9St8EXAEvgk4At+qHXEEvstK4gh8GXAE
vg04Al/nJHGEfR/iCHyhmcQR+Eao/+EroT+A7wSOwJcaQByBb7XpJx8rkOYh
AaLucecthcrXuxTXXQ44BIjSjUfN0pWvuy18f/wv/wCxrr9bd6ny9ba5dZ1L
uwaI1joX7M+3ChTPjTROPx0cIO54HDjpp3x9Y9Yo16rxAaJJ81YGC1oGis9p
axd8nBEgJjp0EEc0lK+tlp3/mBYght/TC/pLPVDM2D6/5u3aAOFo2sP1YItA
UWXr0+Tx7gChe6FN+1nNA4XPg9KakrwA0SvukKZLs0BxpK/3uZ0lyvVMltkV
NAkUsUdOJf96N0BZjzVJcVDqwQK1zbqBLwKEcYeJDtPVAsVqx9xFn2sDxKIA
584764SYHni2Yoe6QhRc3vj66FchSmdEOwTpK0TOKqPOOz8L4eruP+CynUJY
l30aP71WiKR75+O7+ipEctRvqY4fhIh5cWH2oS4KYaLbaP/xaiHcsjSXqA9Q
iFsrtxl4VAlxfnfG+m6RCnH+66rKBa+FUG/7+9HEBIX4YljZ5+R/Qnxfdu35
0rnK9U7vmXbnuRBO1tYBy1YoxNb3J9Nu1OvbvKbFiVsUIuz154Lsx0L4RI1M
C8lWiDh1XRH3rxBqZ/M2fTuhELZL13XTfSBETpVT+7WXFGJUZHPdzDtCjN0+
r4nBA4VY9fvmy3U3hfj1WY/k5JcKEfVfWn7Xa0I8ePJP5ulahbj+PEdn+iUh
9M8f8p3aRKnDIx7rLCoRImXv96UzWgoRN3jj51lnhPhydHjZRB0hLEx8Ww85
JcRRs/CCPvrKn23+Stc/LsScXkuzrc2U55aoe6IgV4hR/23oU2EjxEOL7GfB
OcrvuxjScY2zEPlV9/scPKD8++cTn3h6Kr83bH6XpnuEmGKp9+2EEuO6sd11
5H8I0VE7Rs9XCFG5I/b70C1CLN15r2h9FyGOxN8aMXKDEOb36tZVhgmRPrfx
3B6ZQrwwzpU59BPixB7tAvMVyue47xzYZ7DyXHfvG3o/XYivt692GjNCCPsy
vfyZC5Q8mTzh6chIIXrWariozxHi8kOT010nCDF35A3NpGQhFgaPTzKKF2JR
kdfh0mk/fuL3+Dt8DutgXXwPvhf7wL6wT+wbz4HnwnPiuXEOOBecE84N54hz
xTnj3HEPuBfcE+4N93iM7hX3jHtHHCAuECeIG8QR4gpxhrhDHCIuEaeIW8Qx
4hpxjrhHHiAvkCfIG+QR8gp5hrxDHiIvkafIW+Qx8hp5jryHDkAXoBPQDegI
dAU6A92BDkGXoFPQLegYdA065026Bx2ELkInoZvQUegq6yzpLnQYugydhm5D
x6Hr0HnoPjgALoAT4AY4kl4d0Wyexo/3X/4pnzrpk5w/n3HA61X4CzmvH9bB
Mb7HXTl//8jDV5sGlch5f5Lda/dI8+S8f0mb7VHS3XJ+voKlewOC1srFMHr+
IM1vbn3S5Hw+dQPCA8bPkPP5pZR9i148Xs7ne3Zm/NHcwXI+/70eK83fdZXz
/WxST9rlJ5Hz/RVWxYQtcZTz/Q7LO6dRZSjn+2/e5PODMa3kHB95g6JOvfgi
4/g513XcwdRKGcdXs/W2fzj+I+P4i07bmvn8kozj09l8VXLBCRnHr/e2kd22
H5D9iO82bd5v2yzj+G96wHVSwXIZ50fd+Wu7/5sj4/zxmjhjlXeCjPMrNbCF
ybpIGeff5aX73QwHyjg/87s/PXo0VMb5O6hX//VxEpkYR/nd7PdLf4U6yzj/
/e55thOmMtaHgDNTJw/UlrF+nK3+tXBZYxnri/uq9tdf1EhZf2LDPy0b+0zK
+jRz7barze9JWb/cRg2MuXBRyvrW83VL/yMnpax/13WHtjxzSMr6qF8+8+CX
HVLWz/cp3t8Gr5Wyvo76dDqvLF3K+luYdDc7I1XK+iybu3x3dIJUOJJ+b+gZ
HjUpSirsSN8zp37c/3u4lPXfZm+E7GtvKfPB/FDJxd86S5kfLnHpBnKJVCwg
jmQGmd21dJMyR55O1jjpay1ljjwsu52UbCBljuTe1zlepSVljhg7u7pkNZWK
58SRkl4Lp8R9ljBHwp/190p6K2GOaA/coJ1XIWGOqOJPwhw51Stp2dUbEubI
jDfXR+85L2GO3O6kdazglIQ5UtJ2n0HjPAlz5F1tsf6sbAnXB31Ta+WeuyTM
kYIpsW3MNkuYI8tGlrQJzpIwRyLDzU78niFhjmjWVK32TpMwR+KjbNs0myNh
jjxvX7dRK0nCHPnFss3hvgkS5siGAfKCaxMlzJGqkMNm6eMkzBH5/vud54yU
MEcCvg1ZljNUIuqII7/7awyxGiBhjixqVfn9cm8Jc+SzVsfbx7pLhCtxRDbK
3uNhFwlzpHKyYkRQkIQ5cknj665yuYQ5cmL1x/5n/CXMEfOj93aVe0uYI1+a
Di4L8pAwRzpYuPiWuUqYI0Nq9coLnSTMkTV9LxvctZcwR7Q2tm3hbSthjpR9
yCq9aiVhjvyaonFgr4WEOTKkrOnhc2YS5oirnUkjG1MJc2TepZuHTxlLmCOG
OhsfbTKSMEfUFt7cUGgoYY6kfTxTbah8DY74Tdz5Ns9AwhxR8UPCHMH74Ag+
/4I4gvXBEXw/OIL9RRBHsH9wBM8HjuD5wRGcDzjShs4PHMH5giM4f3AE97OP
OIL7A0dwvwXEEdw/OIL4AEcQP+AI4gscQfyBI4hPcATxC44gvsGRAIp/cAT5
AY4gf8AR5Bc4gvwDRyZTfoIjyF9wBPkNjiD/wRHoAzjSj/RDThyBvoAj0B9w
BPoEjkC/wBHoGzgC/QNHoI/gCPQTHDlP+gqOmJD+giOsz8SRf0m/wZEK0ndw
BPoPjrgSH8ARC+IHOGJLvwdHsuhzWAfrgiNy+l5wBPvCPkfTvsERPBc4gufG
OeBccE44N5yjO51rEZ1zCp37dLqHSXQvuCfcG+7xb7pX3DPqB3AEcYE4Qdwg
jhBXiDPEHeIQcQmOzKa4RRwjrhHniHvkAfICeaJBeQOO+CCvKM+Qd8hD5CXy
FHmLPEZeSynP8ynvoQPQBejEcNIN6AjqU+jM76Q70CHoEnQKugUdg65B56B7
0MFOpIvQyULSTeiolHQVOisl3YUOo76HTkO3oePLSdeh8+gfwAFwAZwAN8CR
3cQVvN+duIPPbycuYX1wC99/k7iG/YF7zEHiIp4P3MTzg6s4H3AXHD5KXMb5
gts4/4XEdX26nzXEfdzfDKoLcL+3qW7A/aOuQHyg7kD8oC4BR1C3IP5Q1yA+
UfcgftFfc3yjbqL4R12F/EDdhfxBXYb8Qt2G/ENdh/xE3dea8hd14VjKb9SN
yH/UldAH1J3gCPwN6AvqVugP6lroE+pecAR1MTiCurk56R/qaugj6m7oJ+py
cAT+DziCuh76jLof+o2+APqOvgH6j74CfEDfAY7Mo74EHEHfAo7AtwJH4FuB
I+yvEUfQN4F/R6mvAkfQd4Ej6MvAEfRtvYgj6OvAEfR94Aj6QnAEfSM4gr4S
HImnvhMcQV8KjqBvBUfQ14Ij6HsLiCPoi8ER9M3gCPpqcAR9NziCvhwcQd+O
+gt9PTiCvh8cgS8AjsA3aE4cga8AjsB3AEfgS4Aj8C3AEfga4Ah8D3AEvgg4
At8EHIGvkkocaUu+y3fiCHwZcAS+FTgCXwccYd+HOAJfCByBbwSOwFdCfwDf
Cf0DfClw5H/nH16e9f+c+XXt4g6/vfNw5n5lQOK9FHfla/Qz4wccd37l7sz9
jlcn5232bs7MlYgLhXWPnZ25X2ql7zzG2NGZuXJkR7jaLVtn5srU8f3UW1s5
M1d2TffKKzZ1Zq50d1YM+mrgzPMQ2akSjxw9Z+73cqbKNlVqOTNXJNaatTvU
nblfnByes6OskTP3k/afs/U2fnbifrNSkph//50T96OX+8bqbXzpxFzJSH22
89EjJ+ZK1ZZ2jf+848RcSQhtmvvhshP7qr/0Wjr2XLETc8Wxut8hs3wn5krl
hOyQb/udmCuvNQ7cG7nNifvx+aXfbXtmOjFX3PP+e3N6kRNzpcgiVO3UTCfm
SqZftGPXOCfmyvzVBqHho5yYK71T5ki+9HNirmzaZ/fStrMTc6Xbthtdyryd
mCvvUtJC7G2dmCt/RU59+b2dE3NlXsIDr6hmTux3lAZoeo6qcWSu5D/oWvv6
sSNzZdqCok1trjkyVyrOTgo5c8KRuTLc3cBQZ68jc6VbrkvnmixH5srBzPxv
k35zZK7cOtt/1m/xjswVN62Wmj7DHJkrn/YHVc4JdWSu7Nl+NHaipyNzZVNq
v+cfTByZK5JHdjnm6o7MFa35PTwrqxx47mHX+MbFIfcdmCumWjteTSx2YL/L
PylR3W6fA3PFvWTf6gWrHZgrb0YEt10+04G58jb2cNPOkQ7MlW1Tyt5tD3Ng
rqREfZlwyNOB/TrfTdFNJhk6MFeKRXafB2oOzJWLab1rvlTYM1dabj225MpF
e+ZKrKfZmUGH7Jkri/ZN6bI20565oh7gf3pFsj1z5X5K3KsuI+2ZK5X3f519
rLM9+5m1B+ukFQ72zJXh9hce3mxtz1zJ/bvA7bcqO56H1FxeX1t70465cjFU
o4VHrh1zJerJQGeP9XY/5iHpU+RfZtoxV2KuntZdFmHHXBmprrHwTZAdc2Vg
aGiyqY0dc6XObNs1kxZ2zJU2tgET3zy3Za6s7Gfhu/q8LXNFFX+2zJU71zOb
RC6xZa58yFn9ZEWsLXMlPGLy3g29bJkr+6pv9p3nbstceTsn/VJ3HVvmilP/
uHbvq2yYK1qNhM2c6zbMlfvRcz/VHLJhrkzYEZ3Ra6UNc2VC7r4XK6fYsJ//
pEdM8+J+NsyVd6GtXzzytGGuvAsxXf2mrQ1zpaatZ5s31dbMlT++F4c/vmHN
XLnqqzvvwmFr5kpIi2+L9660Zq6s1v4vacEUa+ZK71nbhw7vZ81cUfHDmrmi
/+xUS/W2P96/0T/p5cN3Vvx58xHj7+Vdt+L1s1x/ebzukBV//6mxWzTmrbDi
/SX09RyYONmK9z/VNPTatL5W/HzTTAbPnOdhxfOQ+fqfR2zVteLz+bovN/n6
O0s+v69FX261v2HJ55v+5XFM/GFLPv8hkbaB5Sst+X4CdD70jk+w5Pub/uRu
lmF/S77fgsnL2z72tuT7b9W8Jq+kvSXHx+SDV+fc+GjB8bN85eVRje5acHy1
9OkR1j/fguPvpm5nt2vrLTg+Bwn7T9NmWnD8Rnf5a1XoCAuOb11T05chgRY/
6qrhwx5Os7Lg/Piyelu/280sOH/G3XtnP+G5+Y+5+lwtidcFc86/DSbDRnjt
N+f8TMg8P3HicnPO3+xNf/o8SjDnurFlwPoFyweZc/7H5YxzTJWZsz4kLfqv
fL+5OevH0mfvp5s1M2d9OdF7SOjOG2asP7nxTxXrNpqxPtVELg0yijJj/Spc
OOygi6cZ65tfnlP5zTpT1r8u3WMc9C6Ysj5GZHw88zrTlPXz5pdbNeMiTVlf
Fz5t9WyOpynr77vXkX8FNTZlfX6r2eWPP6+Z8DwkVhK/5fgWE56HhJf+U5Ay
2YT1f1X2nKq3wSbMh3nnbD07tDdhfuQUdRxb89yY+5bwljPHLC40Zv6sumDz
9WGGMfPp17kj3lRFGv/oi2JDas5KjZlvk7NzcyJ0jXkeYq2wuHzqhRHzMXbj
wGuVp4yYnwHh8UHl64yYr3ox67L+TDBi/jZVvJIH9TJiPpcf775sn6MR8zu8
rf+D182NmO/WvXLGqpcbMv/PPmk7+uspQ64PQhs9/nhxsyHXD5WX8+TJqYZc
X8jm2yg0Rxpy/bEqfmZtSpAh1yfuV/8eWGptyPVL8Za1Mj11Q65vtg6tTZRU
GnD90ztNdrHbNYMfc/Uh7yu7HDPg+qnY7FKK+yYDrq9qcmM7aMw34PqrtmaC
/HqsAc9Dkiuso5YMMuD6zd41+7s02IDru+fS4vB/XQ3YV3i9cMu56UYGXB9m
X/iWrKFhwPWjl93bbSs+6nN9WTvg4cB2z/S5/ky9E71txW39H/Vp2zGzW5Xo
c/0aPi/nQWqBPte3UY/6ZVTv1+f6d1A3/3FjtulzfSxL6Gl8M0uffZnU+6OH
BC/T5/q6/JNN4aH5+lx/j53d9qLlLH2uz/M3JDRdNV2f63dtn35Xmk/R5/o+
qlPC/KRYfa7/68z6TnkXrc/9gfXDDlcmROlz/1CWs/H0s7H63F9Eja3/p8/9
B95Hv4LPcz9D66PfwfejH8L+MA/B/tFP4fkwD8HzYx6C88E8BOcHXxDnC98w
ms4f/SDuB/0i7g/zENwv5iG4f8xDEB/oVxE/mIcgvtDvIv7gqyI+0S8jftFP
I74xD/lA8Y9+HPmBfj2B8gf9PPIL/T7yD/OQs5Sf8AuQv/Cl11B+w29A/sOP
gD7Arwgj/cA85BzpC+Yh0B/4IdAnzEOgX5iHNCd9wzykPekffH3oI/wa6Cf8
HHvSV/g9CaS/8IPKoM/kFyWTfmMesob0HX7TcNJ/zEOOEh8wDwE/MA/JIr7A
7wJ/4IfFEZ/gl9UQv+CngW/w29KJf5iHgI+Yh4Cf8PNCia/w+8BfzEOKiM+Y
h3wgfmMeUkh8h99YRPyHH4n6AH5lMtUPmIegvoDfifoDfijqE8xDplD9gnnI
Rqpv4Lc2pvoHfmwU1Ufwa79S/QQ/F/UV/F7UX5iHxFB9Br94MNVv8JNR38Fv
Rv0HP3oF1YeYhyRQ/Qg/W5PqS/jdqD/hh6M+hV+O+hV+OupbzEOWUP0LPx71
Mfx61M+Yhyyg+hp+fyLV35gHTKP6HPOCaVS/Y55wmup7zBtQ/2MeYUn9AeYV
6B8wz0B/gXkH+g/MQ/pSf4L311D/gs+HUn+D9a9R/4Pv30n9EfaH/gn7r6b+
Cs+H/gvP/5j6M5wP+jfMQ2Kov8P5PqD+D+ffhvpDzEPQP+L+qqi/xP3up/6T
5+rUnyI+0L8ifm5Tf4t5yDDqfxF/q6k/RnzqUP+M+EV/jfgeRP035iHoz5Ef
E6l/R/40ov4e+YX+H/kHfwD5+YH8A8xD8shfwDwkgvwH5P9n8iegD6/Iv8A8
5AH5G9AXDfI/oD+LyR/huTr5J5iHwF/BPOQS+S+Yh5whf4b1kfwb6Ocs8ncw
D9lO/g/mIfCHoM9vyT+CfsNfgr7Df4L+m5A/BT7Yk3+FeQj8LcxD4H9hHgJ/
DHyCf4Z5CPtrxDf4b+BfKflz4GM2+XfgZ1fy98DXEeT/YR7yjPxBzEMSyT/E
PAT+IuYh8B/Bf/iTmIcUk3+JeQj8TdQX8D9Rf8AfRX0C/xTzEPirqG/gv2Ie
An8W9RH8W9RP8HdRX8H/Rf0FfxjzEPjHqN/gL6O+m0r+M+Yh78ifRn24nPxr
zEPgb/N/b0P+N+Yh8McxD4F/jnkI/HXUt/DfUf/Cn8c8JIz8e8xD4O9jHgL/
H/MQzAcwD8H8APU75guYh2D+gPof8wn0B5hfoH/AfAP9xf/OP37miZfq51pr
0XOU9iD/HE/RSK3+n43wSwuMeNrbk/oXGzFAy+XQxjceKh/soo3YU3W9x6gM
D1rPln560Hq24p3ybe07HWk9O1Fx1fL+p5SOYlzDenaiTf1ydh1pPTsx8dmX
3VXX3Wkde9XnUt1pPaV+TTvxu6GbO63nIJZmxurOLXKj9RxEzbeb01/YuonL
Des5iDPm2ZOjlrvSeo70OVexvmE9R/HH+mLlX7jQ753E0er6BZxpPSfhob7X
eMgYZ1rPSXS4e/ljvydOfJ5j6e9U+3MWlvVf98pRNCyn5iJCGhZ0pPVcRKly
dx3rffiG9VzEVeVqO9Y70HrYpwOt5yoaOy1of/cynYOam5D922tJZqw93Uf9
/x5W+VLXntZzE2+SFd7D8+3oXt35nBvON8xddNesX9FOtT/lua6tP77zdG+H
3UWf+uXm2qo+V+EuEpRPk6ywpfVwj7a0XkfxqX77xTa0XkcxdIxUuUMbWq+j
sO9Yf4A2tF5HMSK/q3IHNrSeB8eZaj0P0brhga1pPQ8xr+j8ls5HrWk9DxFZ
v3ymNa3nIRqOOxlx7EnPSz5tmKeoP72PyjpJFUeeou3c+gWxnqfQqL9eKdbz
FOPrH9f7R1785PuGefH7qv158edV63kJPVpftZ6XWEjfr1rPm/fXcF9h3uIg
7V+1P28xlp6v4WsPe/Pzq9bz5vNRrefzP+fnw+er2p8Pn79qfz58P6r1fPj+
VOv5/s/9+vL9q/bny/GhWs+X40e1ni/Hl2o9P4pTxJ+feE3xqdqfH8evaj0/
jm/Ven4c/6r1/Dk/VOv5c/6o1vPn/FKt5/9z/lX4c36ijo6i/FXdh7LupvxW
Pa9EeFL+q9aTiFzSh4aPKese6IdqPSnri2p/UtYf1f6krE+q9aQ/61eFlPVN
tZ6M9U+1Pxnro2o9Geunaj3Zz/paIRPVpL+q9eSsz6r9ycWfpN+q9eSs76r1
5Kz/qvXkzIef//ssr/8vTxrur+cPntyqv5+FHsyT+ujZcqYj86SgPnxbdGSe
XCbdAk9W6TdVbtGNeTK6fjvnXFjnms9eHbw4xpl5Mju6MGGlvhPzBFwAT6p2
nu3um2bPPHlef7w97JgnR87VX4gtf051PtbME9XvrZgnDds7ZMk8UW5OuYAF
88T9H2vlFs2ZJ6p4MGOeeDT8NGGemA+pT1gj5klOg14YME/eNuRTB+aJKv7b
M09U56zHPNnauT4hdJknKn3SYZ64K59u59k2zJNdhm7KHbdmnqj+riXzZGH9
cT9rwTypbTjPZsyT3PrlujdhnlxtiO9GzJO4hvXqFODJ2x31CfVZAZ5oN+jr
RwV4UtbwfDUK8KR3g95UKcCTsoZ9VyrAk4iG+3qmAE9Ew/k/UYAnRQ3n+a8C
PEltOJ87CvBEJcQ3FOBJasP+LynAk9T68Gp6VgGepPrWJ0yRAjxRu1IvUAUK
5AX+/x3AE7wPnuDz4InacdX64Ilaour7wRPsDzwpov2DJ2pTVM8HnuD5wROc
D3jy8/n58PmCJzh/8AT3A57g/sCTn+/Xl+8fPEF8gCeIH/AE8QWexP0Uf35i
M8UneIL4BU8Q3+AJ4h88QX6AJ8gf8AT5BZ78lH9KniA/wRM/yl/w5DPlN3ji
QfkPnshIH8AT6Ad4An0BT6A/4An0CTz5Sb+UPIG+gSfQMfAE+gieqJN+gieR
/6++KnmyhvQXPLlCOgCe5JN+gyfQd/AE+g+egA//y5P/AxCVLxg=
        "]}; Typeset`initDone$$ = True),
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.3975000939204016`*^9, 3.3975000968746495`*^9}, 
   3.5882700962822943`*^9, 3.588270356173658*^9}]
}, {2}]]
}, Open  ]]
}, Closed]]
}, Open  ]]
},
WindowToolbars->{"RulerBar", "EditBar"},
WindowSize->{1143, 745},
WindowMargins->{{36, Automatic}, {Automatic, 15}},
Magnification->1.899999976158142,
FrontEndVersion->"11.0 for Microsoft Windows (64-bit) (September 21, 2016)",
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 -> 
  "11.0 for Microsoft Windows (64-bit) (September 21, 2016)", 
  StyleDefinitions -> "PrivateStylesheetFormatting.nb"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 154, 5, 83, "Th-Env"],
Cell[CellGroupData[{
Cell[736, 29, 171, 2, 143, "MainTitle"],
Cell[CellGroupData[{
Cell[932, 35, 98, 1, 76, "MainSection"],
Cell[CellGroupData[{
Cell[1055, 40, 101, 1, 72, "Section"],
Cell[1159, 43, 47289, 1421, 5018, "Input"],
Cell[CellGroupData[{
Cell[48473, 1468, 245, 5, 89, "Input"],
Cell[48721, 1475, 13896, 239, 460, "Output"]
}, Open  ]],
Cell[62632, 1717, 20944, 350, 498, 4960, 86, "CachedBoxData", "BoxData", \
"Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[83613, 2072, 153, 2, 72, "Section"],
Cell[CellGroupData[{
Cell[83791, 2078, 347, 6, 89, "Input"],
Cell[84141, 2086, 22750, 464, 463, "Output"]
}, {2}]],
Cell[106903, 2553, 4968, 85, 710, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[111908, 2643, 204, 3, 72, "Section"],
Cell[CellGroupData[{
Cell[112137, 2650, 406, 7, 89, "Input"],
Cell[112546, 2659, 26978, 573, 454, "Output"]
}, {2}]],
Cell[139536, 3235, 5127, 88, 710, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[144700, 3328, 202, 3, 72, "Section"],
Cell[CellGroupData[{
Cell[144927, 3335, 452, 8, 89, "Input"],
Cell[145382, 3345, 35719, 795, 457, "Output"]
}, {2}]],
Cell[181113, 4143, 4712, 81, 702, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[185862, 4229, 366, 9, 72, "Section"],
Cell[CellGroupData[{
Cell[186253, 4242, 686, 15, 89, "Input"],
Cell[186942, 4259, 13840, 238, 460, "Output"]
}, {2}]],
Cell[200794, 4500, 5066, 87, 702, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[205909, 4593, 31, 0, 76, "MainSection"],
Cell[CellGroupData[{
Cell[205965, 4597, 100, 1, 136, "Section"],
Cell[CellGroupData[{
Cell[206090, 4602, 1071, 33, 250, "Input"],
Cell[207164, 4637, 4023, 72, 250, "Output"]
}, {2}]]
}, Closed]],
Cell[CellGroupData[{
Cell[211233, 4715, 147, 2, 91, "Section"],
Cell[CellGroupData[{
Cell[211405, 4721, 352, 7, 250, "Input"],
Cell[211760, 4730, 10591, 198, 250, "Output"]
}, {2}]]
}, Closed]],
Cell[CellGroupData[{
Cell[222397, 4934, 196, 3, 91, "Section"],
Cell[CellGroupData[{
Cell[222618, 4941, 274, 6, 250, "Input"],
Cell[222895, 4949, 10525, 196, 250, "Output"]
}, {2}]]
}, Closed]],
Cell[CellGroupData[{
Cell[233466, 5151, 246, 3, 91, "Section"],
Cell[CellGroupData[{
Cell[233737, 5158, 318, 6, 250, "Input"],
Cell[234058, 5166, 16668, 310, 250, "Output"]
}, {2}]]
}, Closed]],
Cell[CellGroupData[{
Cell[250772, 5482, 248, 3, 91, "Section"],
Cell[CellGroupData[{
Cell[251045, 5489, 457, 13, 250, "Input"],
Cell[251505, 5504, 3955, 70, 250, "Output"]
}, {2}]]
}, Closed]],
Cell[CellGroupData[{
Cell[255506, 5580, 255, 3, 91, "Section"],
Cell[CellGroupData[{
Cell[255786, 5587, 447, 13, 250, "Input"],
Cell[256236, 5602, 3947, 69, 250, "Output"]
}, {2}]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[260241, 5678, 29, 0, 76, "MainSection"],
Cell[CellGroupData[{
Cell[260295, 5682, 100, 1, 136, "Section"],
Cell[CellGroupData[{
Cell[260420, 5687, 2932, 100, 250, "Input"],
Cell[263355, 5789, 13867, 232, 250, "Output"]
}, {2}]]
}, Closed]],
Cell[CellGroupData[{
Cell[277268, 6027, 147, 2, 91, "Section"],
Cell[CellGroupData[{
Cell[277440, 6033, 269, 5, 250, "Input"],
Cell[277712, 6040, 29775, 544, 250, "Output"]
}, {2}]]
}, Closed]],
Cell[CellGroupData[{
Cell[307533, 6590, 196, 3, 91, "Section"],
Cell[CellGroupData[{
Cell[307754, 6597, 352, 6, 250, "Input"],
Cell[308109, 6605, 30139, 549, 250, "Output"]
}, {2}]]
}, Closed]],
Cell[CellGroupData[{
Cell[338294, 7160, 245, 3, 91, "Section"],
Cell[CellGroupData[{
Cell[338564, 7167, 254, 5, 250, "Input"],
Cell[338821, 7174, 38747, 735, 250, "Output"]
}, {2}]]
}, Closed]],
Cell[CellGroupData[{
Cell[377614, 7915, 198, 3, 91, "Section"],
Cell[CellGroupData[{
Cell[377837, 7922, 364, 11, 250, "Input"],
Cell[378204, 7935, 17614, 293, 250, "Output"]
}, {2}]]
}, Closed]],
Cell[CellGroupData[{
Cell[395864, 8234, 201, 3, 91, "Section"],
Cell[CellGroupData[{
Cell[396090, 8241, 359, 11, 250, "Input"],
Cell[396452, 8254, 17561, 292, 250, "Output"]
}, {2}]]
}, Closed]],
Cell[CellGroupData[{
Cell[414059, 8552, 206, 3, 91, "Section"],
Cell[CellGroupData[{
Cell[414290, 8559, 351, 11, 250, "Input"],
Cell[414644, 8572, 17472, 290, 250, "Output"]
}, {2}]]
}, Closed]],
Cell[CellGroupData[{
Cell[432162, 8868, 244, 3, 91, "Section"],
Cell[CellGroupData[{
Cell[432431, 8875, 399, 12, 250, "Input"],
Cell[432833, 8889, 17535, 291, 250, "Output"]
}, {2}]]
}, Closed]],
Cell[CellGroupData[{
Cell[450414, 9186, 316, 4, 91, "Section"],
Cell[CellGroupData[{
Cell[450755, 9194, 727, 19, 250, "Input"],
Cell[451485, 9215, 15433, 262, 250, "Output"]
}, {2}]]
}, Closed]],
Cell[CellGroupData[{
Cell[466964, 9483, 316, 4, 91, "Section"],
Cell[CellGroupData[{
Cell[467305, 9491, 727, 19, 250, "Input"],
Cell[468035, 9512, 15394, 262, 250, "Output"]
}, {2}]]
}, Closed]],
Cell[CellGroupData[{
Cell[483475, 9780, 318, 4, 91, "Section"],
Cell[CellGroupData[{
Cell[483818, 9788, 793, 21, 250, "Input"],
Cell[484614, 9811, 15419, 262, 1187, "Output"]
}, {2}]]
}, Open  ]]
}, Closed]]
}, Open  ]]
}
]
*)

