(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    400926,       8753]
NotebookOptionsPosition[    394305,       8534]
NotebookOutlinePosition[    394830,       8552]
CellTagsIndexPosition[    394787,       8549]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[TextData[StyleBox["You can use a single program for everything: \
Mathematica 7",
 FontSlant->"Italic"]], "Title",
 CellChangeTimes->{{3.4419825218125*^9, 3.441982528640625*^9}, {
  3.441982575859375*^9, 3.441982597703125*^9}}],

Cell["Roman Shcherbakov, 30 Jan 2009, group meeting", "Subtitle",
 CellChangeTimes->{{3.44198261159375*^9, 3.4419826255*^9}}],

Cell[CellGroupData[{

Cell["Manipulate: N-body simulation of a merger (single processor)", "Section",
 CellChangeTimes->{{3.441985587921875*^9, 3.441985610453125*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"M1", "=", "5"}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"MinRad", "=", "5"}], ";"}], "\n", 
  RowBox[{"(*", " ", 
   RowBox[{
   "return", " ", "the", " ", "positions", " ", "and", " ", "velocities", " ",
     "of", " ", "the", " ", "particles"}], " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"posandvel", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a_", ",", "b_", ",", "c_"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"r_", ",", "dr_"}], "}"}], ",", "m_"}], "]"}], ":=", 
   "\[IndentingNewLine]", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "xp", ",", "yp", ",", "pos", ",", "unitvel", ",", "vel", ",", "xandy"}],
       "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"{", 
        RowBox[{"xp", ",", "yp"}], "}"}], "=", 
       RowBox[{"norms", "[", 
        RowBox[{"{", 
         RowBox[{"a", ",", "b", ",", "c"}], "}"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"xandy", "=", 
       RowBox[{"Select", "[", 
        RowBox[{
         RowBox[{"Flatten", "[", 
          RowBox[{
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"x", ",", "y"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"x", ",", 
               RowBox[{"-", "r"}], ",", "r", ",", "dr"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"y", ",", 
               RowBox[{"-", "r"}], ",", "r", ",", "dr"}], "}"}]}], "]"}], ",",
            "1"}], "]"}], ",", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"MinRad", "^", "2"}], "<", 
            RowBox[{"(", 
             RowBox[{"#", ".", "#"}], ")"}], "<", 
            RowBox[{"r", "^", "2"}]}], ")"}], "&"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"pos", "=", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"xp", " ", 
             RowBox[{"#", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "+", 
            RowBox[{"yp", " ", 
             RowBox[{"#", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}]}], ")"}], "&"}], ",", 
         "xandy"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"unitvel", "=", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", 
                RowBox[{"#", "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], " ", "yp"}], "+", 
              RowBox[{
               RowBox[{"#", "[", 
                RowBox[{"[", "2", "]"}], "]"}], " ", "xp"}]}], ")"}], "/", 
            RowBox[{"Sqrt", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"#", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "^", "2"}], "+", 
              RowBox[{
               RowBox[{"#", "[", 
                RowBox[{"[", "2", "]"}], "]"}], "^", "2"}]}], "]"}]}], ")"}], 
          "&"}], ",", "xandy"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"vel", "=", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "*", 
           RowBox[{"Sqrt", "[", 
            RowBox[{"m", "/", 
             RowBox[{"Sqrt", "[", 
              RowBox[{
               RowBox[{"#", "[", 
                RowBox[{"[", "2", "]"}], "]"}], ".", 
               RowBox[{"#", "[", 
                RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "]"}]}], "&"}], 
         ",", 
         RowBox[{"Transpose", "[", 
          RowBox[{"{", 
           RowBox[{"unitvel", ",", "pos"}], "}"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"pos", ",", "vel"}], "}"}]}]}], "]"}]}], "\n", 
  RowBox[{"(*", " ", 
   RowBox[{
   "calculate", " ", "the", " ", "normal", " ", "vectors", " ", "to", " ", 
    "the", " ", "velocities"}], " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"norms", "[", 
   RowBox[{"{", 
    RowBox[{"x_", ",", 
     RowBox[{"0", "|", "0."}], ",", 
     RowBox[{"0", "|", "0."}]}], "}"}], "]"}], ":=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], "\n", 
 RowBox[{
  RowBox[{"norms", "[", "v_List", "]"}], ":=", "\[IndentingNewLine]", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "w", ",", "u", ",", "wy", ",", "wz", ",", "ux", ",", "uy", ",", "uz"}], 
     "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"w", "=", 
      RowBox[{"{", 
       RowBox[{"0", ",", "wy", ",", "wz"}], "}"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"u", "=", 
      RowBox[{"{", 
       RowBox[{"ux", ",", "uy", ",", "uz"}], "}"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"w", "=", 
      RowBox[{"w", "/.", 
       RowBox[{"First", "[", 
        RowBox[{"NSolve", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"w", ".", "v"}], "\[Equal]", "0"}], ",", 
            RowBox[{
             RowBox[{"w", ".", "w"}], "\[Equal]", "1"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"wy", ",", "wz"}], "}"}]}], "]"}], "]"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"u", "=", 
      RowBox[{"u", "/.", 
       RowBox[{"First", "[", 
        RowBox[{"NSolve", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"u", ".", "v"}], "\[Equal]", "0"}], ",", 
            RowBox[{
             RowBox[{"u", ".", "w"}], "\[Equal]", "0"}], ",", 
            RowBox[{
             RowBox[{"u", ".", "u"}], "\[Equal]", "1"}]}], "}"}], ",", "u"}], 
         "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"w", ",", "u"}], "}"}]}]}], "]"}]}], "\n", 
 RowBox[{
  RowBox[{"CenterOfMass", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"X1_", ",", "Y1_", ",", "Z1_"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"X2_", ",", "Y2_", ",", "Z2_"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"M1_", ",", "M2_"}], "}"}]}], "]"}], ":=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"M1", " ", "X1"}], "+", 
       RowBox[{"M2", " ", "X2"}]}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{"M1", "+", "M2"}], ")"}]}], ",", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"M1", " ", "Y1"}], "+", 
       RowBox[{"M2", " ", "Y2"}]}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{"M1", "+", "M2"}], ")"}]}], ",", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"M1", " ", "Z1"}], "+", 
       RowBox[{"M2", " ", "Z2"}]}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{"M1", "+", "M2"}], ")"}]}]}], "}"}]}], "\n", 
 RowBox[{
  RowBox[{"Initialize", "[", 
   RowBox[{
   "Dist_", ",", "MF_", ",", "XX1_", ",", "XX2_", ",", "pos_", ",", "pos2_", 
    ",", "vel_", ",", "vel2_", ",", "V1_", ",", "V2_", ",", "ss_", ",", 
    "tcol_", ",", "icol_", ",", "vp_", ",", "TIME_", ",", "ir_", ",", "tr_", 
    ",", "sep_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "Rad1", ",", "Rad2", ",", "dr", ",", "intpl", ",", "Distlocal", ",", 
      "MFlocal", ",", "M2local", ",", "poslocal", ",", "pos2local", ",", 
      "vellocal", ",", "vel2local", ",", "XX1local", ",", "XX2local", ",", 
      "V1local", ",", "V2local", ",", "sslocal", ",", "tcollocal", ",", 
      "icollocal", ",", "vplocal", ",", "TIMElocal"}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "Distlocal", ",", "Rad1", ",", "Rad2", ",", "dr", ",", "MFlocal", ",", 
        "XX2local", ",", "V2local", ",", "intpl", ",", "sslocal", ",", 
        "tcollocal", ",", "icollocal", ",", "vplocal", ",", "TIMElocal"}], 
       "}"}], "=", 
      RowBox[{"{", 
       RowBox[{
       "100", ",", "tr", ",", "ir", ",", "sep", ",", "MF", ",", "XX2", ",", 
        "V2", ",", "Automatic", ",", ".001", ",", "Green", ",", "Cyan", ",", 
        RowBox[{"{", 
         RowBox[{"1.3", ",", 
          RowBox[{"-", "2.4"}], ",", "2."}], "}"}], ",", "0"}], "}"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"intpl", "=", "V2local"}], ";", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"intpl", "===", "Automatic"}], ",", 
         RowBox[{"intpl", "=", "V2local"}]}], "]"}], ";"}], "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"XX1local", "=", 
      RowBox[{"V1local", "=", 
       RowBox[{"{", 
        RowBox[{"0.", ",", "0.", ",", "0."}], "}"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"M2local", "=", 
      RowBox[{"MFlocal", " ", "M1"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"poslocal", ",", "vellocal"}], "}"}], "=", 
      RowBox[{"posandvel", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Rad1", ",", "dr"}], "}"}], ",", "M1"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"pos2local", ",", "vel2local"}], "}"}], "=", 
      RowBox[{"posandvel", "[", 
       RowBox[{"intpl", ",", 
        RowBox[{"{", 
         RowBox[{"Rad2", ",", "dr"}], "}"}], ",", "M2local"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"pos2local", "=", 
      RowBox[{"Map", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"#", "+", "XX2"}], ")"}], "&"}], ",", "pos2local"}], 
       "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"vel2local", "=", 
      RowBox[{"Map", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"#", "+", "V2"}], ")"}], "&"}], ",", "vel2local"}], "]"}]}],
      ";", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "Distlocal", ",", "MFlocal", ",", "V1local", ",", "V2local", ",", 
       "sslocal", ",", "tcollocal", ",", "icollocal", ",", "vplocal", ",", 
       "TIMElocal", ",", 
       RowBox[{"Sequence", "@@", 
        RowBox[{"Realign", "[", 
         RowBox[{
         "XX1local", ",", "XX2local", ",", "M2local", ",", "poslocal", ",", 
          "pos2local"}], "]"}]}], ",", "vellocal", ",", "vel2local"}], 
      "}"}]}]}], "\[IndentingNewLine]", "]"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"Draw", "[", 
    RowBox[{
    "XX1_", ",", "XX2_", ",", "MF_", ",", "pos_", ",", "pos2_", ",", "Dist_", 
     ",", "TIME_", ",", "vp_", ",", "ss_", ",", "tcol_", ",", "icol_"}], 
    "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"cm", "=", 
       RowBox[{"CenterOfMass", "[", 
        RowBox[{"XX1", ",", "XX2", ",", 
         RowBox[{"{", 
          RowBox[{"M1", ",", 
           RowBox[{"M1", "*", "MF"}]}], "}"}]}], "]"}]}], "}"}], ",", 
     RowBox[{"Graphics3D", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"tcol", ",", 
           RowBox[{"PointSize", "[", "ss", "]"}], ",", 
           RowBox[{"Point", "[", "pos", "]"}], ",", 
           RowBox[{"PointSize", "[", ".025", "]"}], ",", 
           RowBox[{"Point", "[", "XX1", "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"icol", ",", 
           RowBox[{"PointSize", "[", "ss", "]"}], ",", 
           RowBox[{"Point", "[", "pos2", "]"}], ",", 
           RowBox[{"PointSize", "[", ".025", "]"}], ",", 
           RowBox[{"Point", "[", "XX2", "]"}]}], "}"}]}], "}"}], ",", 
       RowBox[{"BaseStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"GrayLevel", "[", "1", "]"}], "}"}]}], ",", 
       RowBox[{"AxesStyle", "\[Rule]", 
        RowBox[{"GrayLevel", "[", ".5", "]"}]}], ",", 
       RowBox[{"BoxStyle", "\[Rule]", 
        RowBox[{"GrayLevel", "[", ".5", "]"}]}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "Dist"}], "+", 
             RowBox[{"cm", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], ",", 
            RowBox[{"Dist", "+", 
             RowBox[{"cm", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "Dist"}], "+", 
             RowBox[{"cm", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], ",", 
            RowBox[{"Dist", "+", 
             RowBox[{"cm", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "Dist"}], "+", 
             RowBox[{"cm", "[", 
              RowBox[{"[", "3", "]"}], "]"}]}], ",", 
            RowBox[{"Dist", "+", 
             RowBox[{"cm", "[", 
              RowBox[{"[", "3", "]"}], "]"}]}]}], "}"}]}], "}"}]}], ",", 
       RowBox[{"Axes", "\[Rule]", "True"}], ",", 
       RowBox[{"ViewPoint", "\[Rule]", "vp"}], ",", 
       RowBox[{"Background", "\[Rule]", 
        RowBox[{"GrayLevel", "[", "0", "]"}]}], ",", 
       RowBox[{"PlotLabel", "\[Rule]", 
        RowBox[{"\"\<time = \>\"", "<>", 
         RowBox[{"ToString", "[", "TIME", "]"}]}]}], ",", 
       RowBox[{"ImageSize", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"600", ",", "600"}], "}"}]}], ",", 
       RowBox[{"SphericalRegion", "\[Rule]", "True"}], ",", 
       RowBox[{"ImagePadding", "\[Rule]", "20"}]}], "]"}]}], "]"}]}], "\n", 
  RowBox[{"(*", " ", 
   RowBox[{"update", " ", "the", " ", "center", " ", "of", " ", "mass"}], " ",
    "*)"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"Realign", "[", 
    RowBox[{"XX1_", ",", "XX2_", ",", "M2_", ",", "pos_", ",", "pos2_"}], 
    "]"}], ":=", "\[IndentingNewLine]", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "cm", ",", "poslocal", ",", "pos2local", ",", "XX1local", ",", 
       "XX2local"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"cm", "=", 
       RowBox[{"CenterOfMass", "[", 
        RowBox[{"XX1", ",", "XX2", ",", 
         RowBox[{"{", 
          RowBox[{"M1", ",", "M2"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"poslocal", "=", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"#", "-", "cm"}], "&"}], ",", "pos"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"pos2local", "=", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"#", "-", "cm"}], "&"}], ",", "pos2"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"XX1local", "=", 
       RowBox[{"XX1", "-", "cm"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"XX2local", "=", 
       RowBox[{"XX2", "-", "cm"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "M2", ",", "poslocal", ",", "pos2local", ",", "XX1local", ",", 
        "XX2local"}], "}"}]}]}], "]"}]}], "\n", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "iterate", " ", "the", " ", "simulation", " ", "by", " ", "one", " ", 
     "time", " ", "step", " ", "per", " ", "call"}], ",", " ", 
    RowBox[{
    "assuming", " ", "Keplerian", " ", "orbits", " ", "about", " ", "the", 
     " ", "galaxy", " ", "centers"}]}], " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"Iterate", "[", 
    RowBox[{
    "XX1_", ",", "XX2_", ",", "M2_", ",", "pos_", ",", "pos2_", ",", "vel_", 
     ",", "vel2_", ",", "V1_", ",", "V2_", ",", "TIME_"}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "a1", ",", "a2", ",", "acc", ",", "rr", ",", "ar1", ",", "ar2", ",", 
       "poslocal", ",", "vellocal", ",", "pos2local", ",", "vel2local", ",", 
       "XX1local", ",", "XX2local", ",", "V1local", ",", "V2local", ",", 
       "TIMElocal"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"starts", " ", "in", " ", "target", " ", "galaxy"}], " ", 
      "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"{", 
        RowBox[{"poslocal", ",", "vellocal"}], "}"}], "=", 
       RowBox[{"newstars", "[", 
        RowBox[{
        "pos", ",", "vel", ",", "XX1", ",", "XX2", ",", "M1", ",", "M2"}], 
        "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"starts", " ", "in", " ", "intruder", " ", "galaxy"}], " ", 
       "*)"}], "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"pos2local", ",", "vel2local"}], "}"}], "=", 
       RowBox[{"newstars", "[", 
        RowBox[{
        "pos2", ",", "vel2", ",", "XX1", ",", "XX2", ",", "M1", ",", "M2"}], 
        "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"two", " ", "galaxies"}], " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"rr", "=", 
       RowBox[{"XX2", "-", "XX1"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"ar1", "=", 
       RowBox[{"M2", "*", 
        RowBox[{"rr", "/", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"rr", ".", "rr"}], ")"}], "^", 
          RowBox[{"(", 
           RowBox[{"3", "/", "2"}], ")"}]}]}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"ar2", "=", 
       RowBox[{
        RowBox[{"-", "M1"}], "*", 
        RowBox[{"rr", "/", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"rr", ".", "rr"}], ")"}], "^", 
          RowBox[{"(", 
           RowBox[{"3", "/", "2"}], ")"}]}]}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"XX1local", "=", 
       RowBox[{"XX1", "+", "V1", "+", 
        RowBox[{"ar1", "/", "2"}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"XX2local", "=", 
       RowBox[{"XX2", "+", "V2", "+", 
        RowBox[{"ar2", "/", "2"}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"V1local", "=", 
       RowBox[{"V1", "+", "ar1"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"V2local", "=", 
       RowBox[{"V2", "+", "ar2"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"TIMElocal", "=", 
       RowBox[{"TIME", "+", "1"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "poslocal", ",", "pos2local", ",", "vellocal", ",", "vel2local", ",", 
        "XX1local", ",", "XX2local", ",", "V1local", ",", "V2local", ",", 
        "TIMElocal"}], "}"}]}]}], "]"}]}], "\n", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"find", " ", "the", " ", "updated", " ", "positions"}], ",", " ", 
    "velocities", ",", " ", 
    RowBox[{
    "and", " ", "accelerations", " ", "for", " ", "all", " ", "particles"}]}],
    " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"newstars", "[", 
    RowBox[{
    "pos_", ",", "vel_", ",", "XX1_", ",", "XX2_", ",", "M1_", ",", "M2_"}], 
    "]"}], ":=", "\[IndentingNewLine]", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "r1", ",", "r2", ",", "a1", ",", "a2", ",", "acc", ",", "newpos", ",", 
       "newvel", ",", "delpos"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"delpos", "=", 
       RowBox[{"Position", "[", 
        RowBox[{"pos", ",", 
         RowBox[{"XX1", "|", "XX2"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"newpos", "=", 
       RowBox[{"Delete", "[", 
        RowBox[{"pos", ",", "delpos"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"newvel", "=", 
       RowBox[{"Delete", "[", 
        RowBox[{"vel", ",", "delpos"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"r1", "=", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"#", "-", "XX1"}], ")"}], "&"}], ",", "newpos"}], "]"}]}], 
      ";", "\[IndentingNewLine]", 
      RowBox[{"r2", "=", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"#", "-", "XX2"}], ")"}], "&"}], ",", "newpos"}], "]"}]}], 
      ";", "\[IndentingNewLine]", 
      RowBox[{"a1", "=", 
       RowBox[{"-", 
        RowBox[{"Map", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"M1", "/", 
             RowBox[{
              RowBox[{"Dot", "[", 
               RowBox[{"#", ",", "#"}], "]"}], "^", 
              RowBox[{"(", 
               RowBox[{"3", "/", "2"}], ")"}]}]}], "*", "#"}], "&"}], ",", 
          "r1"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"a2", "=", 
       RowBox[{"-", 
        RowBox[{"Map", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"M2", "/", 
             RowBox[{
              RowBox[{"Dot", "[", 
               RowBox[{"#", ",", "#"}], "]"}], "^", 
              RowBox[{"(", 
               RowBox[{"3", "/", "2"}], ")"}]}]}], "*", "#"}], "&"}], ",", 
          "r2"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"acc", "=", 
       RowBox[{"a1", "+", "a2"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"newpos", "=", 
       RowBox[{"newpos", "+", "newvel", "+", 
        RowBox[{"acc", "/", "2"}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"newvel", "=", 
       RowBox[{"newvel", "+", "acc"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"newpos", ",", "newvel"}], "}"}]}]}], "]"}]}], "\n", 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{"t", "\[Equal]", "0"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "Dist", ",", "MF", ",", "V1", ",", "V2", ",", "ss", ",", "tcol", ",", 
         "icol", ",", "vp", ",", "TIME", ",", "M2", ",", "pos", ",", "pos2", 
         ",", "XX1", ",", "XX2", ",", "vel", ",", "vel2"}], "}"}], "=", 
       RowBox[{"Initialize", "[", 
        RowBox[{"Dist", ",", "MF", ",", "XX1", ",", 
         RowBox[{"{", 
          RowBox[{"iposx", ",", "iposy", ",", "iposz"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"iposx", ",", "iposy", ",", "iposz"}], "}"}], ",", "pos2", 
         ",", "vel", ",", 
         RowBox[{"{", 
          RowBox[{"ivelx", ",", "ively", ",", "ivelz"}], "}"}], ",", "V1", 
         ",", 
         RowBox[{"{", 
          RowBox[{"ivelx", ",", "ively", ",", "ivelz"}], "}"}], ",", "ss", 
         ",", "tcol", ",", "icol", ",", "vp", ",", "TIME", ",", "ir", ",", 
         "tr", ",", "sep"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"Draw", "[", 
       RowBox[{
       "XX1", ",", "XX2", ",", "MF", ",", "pos", ",", "pos2", ",", "Dist", 
        ",", "TIME", ",", "vp", ",", ".005", ",", "tcol", ",", "icol"}], 
       "]"}]}], ",", 
     RowBox[{
      RowBox[{"Do", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "pos", ",", "pos2", ",", "vel", ",", "vel2", ",", "XX1", ",", "XX2",
            ",", "V1", ",", "V2", ",", "TIME"}], "}"}], "=", 
         RowBox[{"Iterate", "[", 
          RowBox[{
          "XX1", ",", "XX2", ",", "M2", ",", "pos", ",", "pos2", ",", "vel", 
           ",", "vel2", ",", "V1", ",", "V2", ",", "TIME"}], "]"}]}], ",", 
        RowBox[{"{", "step", "}"}]}], "]"}], ";", 
      RowBox[{"Draw", "[", 
       RowBox[{
       "XX1", ",", "XX2", ",", "MF", ",", "pos", ",", "pos2", ",", "Dist", 
        ",", "TIME", ",", "vp", ",", ".005", ",", "tcol", ",", "icol"}], 
       "]"}]}]}], "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"tr", ",", "60", ",", "\"\<target radius\>\""}], "}"}], ",", 
     "20", ",", "100", ",", "1", ",", 
     RowBox[{"ControlPlacement", "\[Rule]", "Top"}], ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"ir", ",", "20", ",", "\"\<intruder radius\>\""}], "}"}], ",", 
     "20", ",", "100", ",", "1", ",", 
     RowBox[{"ControlPlacement", "\[Rule]", "Top"}], ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"sep", ",", "7", ",", "\"\<star separation\>\""}], "}"}], ",", 
     "2", ",", "7", ",", "1", ",", 
     RowBox[{"ControlPlacement", "\[Rule]", "Top"}], ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"step", ",", "10", ",", "\"\<step size\>\""}], "}"}], ",", "1", 
     ",", "10", ",", 
     RowBox[{"ImageSize", "\[Rule]", "Tiny"}], ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"MF", ",", ".1", ",", "\"\<mass fraction\>\""}], "}"}], ",", 
     ".1", ",", "1", ",", 
     RowBox[{"ImageSize", "\[Rule]", "Tiny"}], ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
   "\[IndentingNewLine]", "Delimiter", ",", "\[IndentingNewLine]", 
   RowBox[{"Style", "[", 
    RowBox[{"\"\<intruder initial position\>\"", ",", "Bold"}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"iposx", ",", 
       RowBox[{"-", "50"}], ",", "\"\<x\>\""}], "}"}], ",", 
     RowBox[{"-", "50"}], ",", "50", ",", ".01", ",", 
     RowBox[{"ControlPlacement", "\[Rule]", "Left"}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "Tiny"}], ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"iposy", ",", "50", ",", "\"\<y\>\""}], "}"}], ",", 
     RowBox[{"-", "50"}], ",", "50", ",", ".01", ",", 
     RowBox[{"ControlPlacement", "\[Rule]", "Left"}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "Tiny"}], ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"iposz", ",", "50", ",", "\"\<z\>\""}], "}"}], ",", 
     RowBox[{"-", "50"}], ",", "50", ",", ".01", ",", 
     RowBox[{"ControlPlacement", "\[Rule]", "Left"}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "Tiny"}], ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
   "\[IndentingNewLine]", "Delimiter", ",", "\[IndentingNewLine]", 
   RowBox[{"Style", "[", 
    RowBox[{"\"\<intruder initial velocity\>\"", ",", "Bold"}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"ivelx", ",", "0", ",", "\"\<x\>\""}], "}"}], ",", 
     RowBox[{"-", "1"}], ",", "1", ",", ".01", ",", 
     RowBox[{"ControlPlacement", "\[Rule]", "Left"}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "Tiny"}], ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"ively", ",", 
       RowBox[{"-", ".33"}], ",", "\"\<y\>\""}], "}"}], ",", 
     RowBox[{"-", "1"}], ",", "1", ",", ".01", ",", 
     RowBox[{"ControlPlacement", "\[Rule]", "Left"}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "Tiny"}], ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"ivelz", ",", 
       RowBox[{"-", ".33"}], ",", "\"\<z\>\""}], "}"}], ",", 
     RowBox[{"-", "1"}], ",", "1", ",", ".01", ",", 
     RowBox[{"ControlPlacement", "\[Rule]", "Left"}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "Tiny"}], ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
   "\[IndentingNewLine]", "Delimiter", ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"reinit", ",", "False", ",", "\"\<\>\""}], "}"}], ",", 
     RowBox[{
      RowBox[{"Button", "[", 
       RowBox[{"\"\<reinitialize\>\"", ",", 
        RowBox[{"t", "=", "0"}]}], "]"}], "&"}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "\"\<progress\>\""}], "}"}], ",", "0", ",", 
     "Infinity", ",", 
     RowBox[{"ControlType", "\[Rule]", "Trigger"}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"pos", ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
     RowBox[{"ControlType", "\[Rule]", "None"}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"vel", ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
     RowBox[{"ControlType", "\[Rule]", "None"}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"pos2", ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "50"}], ",", "50", ",", "50"}], "}"}]}], "}"}], ",", 
     RowBox[{"ControlType", "\[Rule]", "None"}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"vel2", ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
     RowBox[{"ControlType", "\[Rule]", "None"}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"XX1", ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
     RowBox[{"ControlType", "\[Rule]", "None"}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"XX2", ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "50"}], ",", "50", ",", "50"}], "}"}]}], "}"}], ",", 
     RowBox[{"ControlType", "\[Rule]", "None"}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"M2", ",", ".1"}], "}"}], ",", 
     RowBox[{"ControlType", "\[Rule]", "None"}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"V1", ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
     RowBox[{"ControlType", "\[Rule]", "None"}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"V2", ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
     RowBox[{"ControlType", "\[Rule]", "None"}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"TIME", ",", "0"}], "}"}], ",", 
     RowBox[{"ControlType", "\[Rule]", "None"}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"Dist", ",", "100"}], "}"}], ",", 
     RowBox[{"ControlType", "\[Rule]", "None"}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"ss", ",", ".001"}], "}"}], ",", 
     RowBox[{"ControlType", "\[Rule]", "None"}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"tcol", ",", "Green"}], "}"}], ",", 
     RowBox[{"ControlType", "\[Rule]", "None"}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"icol", ",", "Cyan"}], "}"}], ",", 
     RowBox[{"ControlType", "\[Rule]", "None"}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"vp", ",", 
       RowBox[{"{", 
        RowBox[{"1.3", ",", 
         RowBox[{"-", "2.4"}], ",", "2."}], "}"}]}], "}"}], ",", 
     RowBox[{"ControlType", "\[Rule]", "None"}]}], "}"}], ",", 
   RowBox[{"AutorunSequencing", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"1", ",", "2", ",", "3"}], "}"}]}], ",", 
   RowBox[{"TrackedSymbols", "\[RuleDelayed]", 
    RowBox[{"{", 
     RowBox[{
     "tr", ",", "ir", ",", "sep", ",", "step", ",", "reinit", ",", "t", ",", 
      "MF", ",", "iposx", ",", "iposy", ",", "iposz", ",", "ivelx", ",", 
      "ively", ",", "ivelz"}], "}"}]}], ",", 
   RowBox[{"SaveDefinitions", "\[Rule]", "True"}], ",", 
   RowBox[{"ControlPlacement", "\[Rule]", "Left"}], ",", 
   RowBox[{"ContentSize", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"650", ",", "650"}], "}"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.44198397896875*^9, 3.441983986453125*^9}, 
   3.441985416015625*^9, {3.44198557634375*^9, 3.441985579171875*^9}}],

Cell["\<\
\"Colliding Galaxies\" from The Wolfram Demonstrations Project
http://demonstrations.wolfram.com/CollidingGalaxies/ 
Contributed by: Jeff Bryant and Dale Horton 
Based on a program by: Michael C. Schroeder and Neil F. Comins\
\>", "Text",
 CellChangeTimes->{{3.44198562984375*^9, 3.441985630671875*^9}, {
  3.441985784671875*^9, 3.44198581390625*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["Manipulate: Saturn's Rings fly-by", "Section",
 CellFrameColor->RGBColor[
  0.6449835965514611, 0.758632791638056, 0.2516823071641108],
 CellChangeTimes->{{3.44198915221875*^9, 3.441989155546875*^9}, {
  3.442074417515625*^9, 3.442074427640625*^9}},
 FontColor->RGBColor[
  0.6449835965514611, 0.758632791638056, 0.2516823071641108]],

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"Graphics3D", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Specularity", "[", 
          RowBox[{
           RowBox[{"GrayLevel", "[", ".3", "]"}], ",", "1"}], "]"}], ",", 
         RowBox[{"RGBColor", "[", 
          RowBox[{".75", ",", ".7", ",", ".45"}], "]"}], ",", 
         RowBox[{"Sphere", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "1"}], "]"}], ",", 
         "White", ",", 
         RowBox[{"PointSize", "[", ".001", "]"}], ",", 
         RowBox[{"Point", "[", "stars", "]"}]}], "}"}], ",", 
       RowBox[{"Method", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"\"\<SpherePoints\>\"", "\[Rule]", "80"}], "}"}]}]}], "]"}], 
     ",", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Graphics3D", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"EdgeForm", "[", 
            RowBox[{"GrayLevel", "[", ".3", "]"}], "]"}], ",", 
           RowBox[{"Lighter", "[", 
            RowBox[{
             RowBox[{"RGBColor", "[", 
              RowBox[{".65", ",", ".6", ",", ".35"}], "]"}], ",", 
             RowBox[{"Rescale", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"#", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], "+", 
                  RowBox[{"#", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "/", "2"}], ",", 
               RowBox[{"{", 
                RowBox[{"1.24", ",", "2.30"}], "}"}]}], "]"}]}], "]"}], ",", 
           RowBox[{"Specularity", "[", 
            RowBox[{"White", ",", "128"}], "]"}], ",", 
           RowBox[{"Ring", "[", 
            RowBox[{
             RowBox[{"#", "[", 
              RowBox[{"[", "1", "]"}], "]"}], ",", 
             RowBox[{"#", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "}"}], "]"}], "&"}], 
       ")"}], "/@", 
      RowBox[{"Partition", "[", 
       RowBox[{
        RowBox[{"Drop", "[", 
         RowBox[{
          RowBox[{"Flatten", "[", 
           RowBox[{"Nest", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"Flatten", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{
                    "#1", "\[LeftDoubleBracket]", "1", 
                    "\[RightDoubleBracket]"}], ",", 
                    RowBox[{
                    RowBox[{
                    "#1", "\[LeftDoubleBracket]", "1", 
                    "\[RightDoubleBracket]"}], "+", 
                    RowBox[{
                    FractionBox["1", "3"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    "#1", "\[LeftDoubleBracket]", "2", 
                    "\[RightDoubleBracket]"}], "-", 
                    RowBox[{
                    "#1", "\[LeftDoubleBracket]", "1", 
                    "\[RightDoubleBracket]"}]}], ")"}]}]}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    "#1", "\[LeftDoubleBracket]", "2", 
                    "\[RightDoubleBracket]"}], "-", 
                    RowBox[{
                    FractionBox["1", "3"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    "#1", "\[LeftDoubleBracket]", "2", 
                    "\[RightDoubleBracket]"}], "-", 
                    RowBox[{
                    "#1", "\[LeftDoubleBracket]", "1", 
                    "\[RightDoubleBracket]"}]}], ")"}]}]}], ",", 
                    RowBox[{
                    "#1", "\[LeftDoubleBracket]", "2", 
                    "\[RightDoubleBracket]"}]}], "}"}]}], "}"}], "&"}], ")"}],
                  "/@", "#1"}], ",", "1"}], "]"}], "&"}], ",", 
             RowBox[{"{", 
              RowBox[{"{", 
               RowBox[{"1.24", ",", "2.30"}], "}"}], "}"}], ",", "n"}], "]"}],
            "]"}], ",", "1"}], "]"}], ",", "2"}], "]"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"500", ",", "380"}], "}"}]}], ",", 
     RowBox[{"Background", "\[Rule]", "Black"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "30"}], ",", 
     RowBox[{"Lighting", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"\"\<Ambient\>\"", ",", 
          RowBox[{"GrayLevel", "[", ".2", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"\"\<Directional\>\"", ",", "White", ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", 
            RowBox[{"-", "5"}], ",", "3"}], "}"}]}], "}"}]}], "}"}]}], ",", 
     RowBox[{"SphericalRegion", "\[Rule]", "True"}], ",", 
     RowBox[{"ViewVector", "\[Rule]", 
      RowBox[{"Dynamic", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"1.1", ",", "y", ",", "1"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"1.5", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "None"}],
        "]"}]}], ",", 
     RowBox[{"Boxed", "\[Rule]", "False"}], ",", 
     RowBox[{"ViewRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{".9", ",", "30"}], "}"}]}], ",", 
     RowBox[{"ViewAngle", "\[Rule]", 
      RowBox[{"Pi", "/", "5"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"n", ",", "4", ",", "\"\<number of iterations\>\""}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5"}], "}"}], 
     ",", 
     RowBox[{"ControlType", "\[Rule]", "SetterBar"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"y", ",", 
       RowBox[{"-", "10"}], ",", "\"\<fly by\>\""}], "}"}], ",", 
     RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", 
   RowBox[{"AutorunSequencing", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"1", ",", "4"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2", ",", "10"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"Initialization", "\[RuleDelayed]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"SeedRandom", "[", "12345", "]"}], ";", 
      RowBox[{"stars", "=", 
       RowBox[{"20", " ", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               RowBox[{"Cos", "[", "#1", "]"}], 
               RowBox[{"Sqrt", "[", 
                RowBox[{"1", "-", 
                 RowBox[{"#2", "^", "2"}]}], "]"}]}], ",", 
              RowBox[{
               RowBox[{"Sin", "[", "#1", "]"}], 
               RowBox[{"Sqrt", "[", 
                RowBox[{"1", "-", 
                 RowBox[{"#2", "^", "2"}]}], "]"}]}], ",", "#2"}], "}"}], 
            "&"}], "[", 
           RowBox[{
            RowBox[{"Random", "[", 
             RowBox[{"Real", ",", 
              RowBox[{"{", 
               RowBox[{"0", ",", 
                RowBox[{"2", "Pi"}]}], "}"}]}], "]"}], ",", 
            RowBox[{"Random", "[", 
             RowBox[{"Real", ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "]"}]}], "]"}], ",", 
          RowBox[{"{", "5000", "}"}]}], "]"}]}]}], ";", 
      RowBox[{
       RowBox[{"Ring", "[", 
        RowBox[{"rMin_", ",", "rMax_"}], "]"}], ":=", 
       RowBox[{"Polygon", "[", 
        RowBox[{"Join", "[", 
         RowBox[{
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"rMin", " ", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"Cos", "[", "a", "]"}], ",", 
               RowBox[{"Sin", "[", "a", "]"}], ",", "0"}], "}"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"a", ",", "0", ",", 
              RowBox[{"2", " ", "Pi"}], ",", 
              RowBox[{"Pi", "/", "64"}]}], "}"}]}], "]"}], ",", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"rMax", " ", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"Cos", "[", "a", "]"}], ",", 
               RowBox[{"Sin", "[", "a", "]"}], ",", "0"}], "}"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"a", ",", "0", ",", 
              RowBox[{"2", " ", "Pi"}], ",", 
              RowBox[{"Pi", "/", "64"}]}], "}"}]}], "]"}]}], "]"}], "]"}]}]}],
      "}"}]}], ",", 
   RowBox[{"ContentSize", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"850", ",", "650"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.35696210375764*^9, {3.371417454625*^9, 3.37141748503125*^9}, {
   3.37141753253125*^9, 3.371417578140625*^9}, {3.371417624125*^9, 
   3.371417647453125*^9}, {3.37141770634375*^9, 3.3714177119375*^9}, {
   3.371417949203125*^9, 3.3714180944375*^9}, {3.3714181308125*^9, 
   3.371418134828125*^9}, {3.3714181975*^9, 3.37141820103125*^9}, {
   3.371418246609375*^9, 3.371418302125*^9}, {3.37141834759375*^9, 
   3.37141840621875*^9}, {3.371418535828125*^9, 3.371418535890625*^9}, {
   3.37141919559375*^9, 3.3714192749375*^9}, {3.371419327015625*^9, 
   3.371419351734375*^9}, {3.3714194450625*^9, 3.371419477046875*^9}, {
   3.37141972175*^9, 3.37141976071875*^9}, {3.37141981078125*^9, 
   3.37141988940625*^9}, {3.371419961859375*^9, 3.371420001625*^9}, {
   3.371420087125*^9, 3.3714201158125*^9}, {3.37142014796875*^9, 
   3.3714201678125*^9}, {3.37142027959375*^9, 3.371420279984375*^9}, {
   3.371420410234375*^9, 3.371420428375*^9}, {3.371421712890625*^9, 
   3.371421727203125*^9}, {3.37142312609375*^9, 3.371423175828125*^9}, {
   3.371423207515625*^9, 3.371423227125*^9}, {3.371423307765625*^9, 
   3.371423377578125*^9}, {3.37142341609375*^9, 3.371423448984375*^9}, {
   3.371423688984375*^9, 3.371423738421875*^9}, {3.371423793453125*^9, 
   3.37142386715625*^9}, {3.371423908765625*^9, 3.371423911375*^9}, {
   3.371423950125*^9, 3.37142398915625*^9}, {3.371424067390625*^9, 
   3.371424190171875*^9}, {3.3714252389375*^9, 3.371425239484375*^9}, {
   3.371606039015625*^9, 3.371606043296875*^9}, {3.371606074796875*^9, 
   3.371606078890625*^9}, 3.371606112171875*^9, {3.37160616253125*^9, 
   3.37160616515625*^9}, {3.372126492796875*^9, 3.372126554125*^9}, {
   3.374671683296875*^9, 3.374671687515625*^9}, {3.374671824109375*^9, 
   3.374671900875*^9}, {3.374672051203125*^9, 3.37467206521875*^9}, {
   3.374672342296875*^9, 3.374672357515625*^9}, {3.374673880734375*^9, 
   3.37467390109375*^9}, {3.380393491078125*^9, 3.380393516109375*^9}, {
   3.44198778465625*^9, 3.441987822921875*^9}, {3.441987861765625*^9, 
   3.441987874234375*^9}},
 CellID->19958557],

Cell[TextData[{
 "\"",
 ButtonBox["Saturn's Rings and the Cantor Set",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://demonstrations.wolfram.com/SaturnsRingsAndTheCantorSet/"], 
    None},
  ButtonNote->
   "http://demonstrations.wolfram.com/SaturnsRingsAndTheCantorSet/"],
 "\"",
 " from ",
 ButtonBox["The Wolfram Demonstrations Project",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://demonstrations.wolfram.com/"], None},
  ButtonNote->"http://demonstrations.wolfram.com/"],
 "\[ParagraphSeparator]\[NonBreakingSpace]",
 ButtonBox["http://demonstrations.wolfram.com/SaturnsRingsAndTheCantorSet/",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://demonstrations.wolfram.com/SaturnsRingsAndTheCantorSet/"], 
    None},
  ButtonNote->"http://demonstrations.wolfram.com/SaturnsRingsAndTheCantorSet/"]
}], "Text",
 CellMargins->{{48, Inherited}, {0, Inherited}},
 FontFamily->"Verdana",
 FontSize->10,
 FontColor->GrayLevel[0.5]],

Cell[TextData[{
 "Contributed by: ",
 ButtonBox["Jeff Bryant",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://demonstrations.wolfram.com/author.html?author=Jeff+Bryant"], 
    None},
  ButtonNote->
   "http://demonstrations.wolfram.com/author.html?author=Jeff+Bryant"]
}], "Text",
 CellDingbat->"\[FilledSmallSquare]",
 CellMargins->{{66, 48}, {2, 4}},
 FontFamily->"Verdana",
 FontSize->10,
 FontColor->GrayLevel[0.6],
 CellID->310672804],

Cell[TextData[{
 "Suggested by: ",
 ButtonBox["Stephen Wolfram",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://demonstrations.wolfram.com/author.html?author=Stephen+\
Wolfram"], None},
  ButtonNote->
   "http://demonstrations.wolfram.com/author.html?author=Stephen+Wolfram"]
}], "Text",
 CellDingbat->"\[FilledSmallSquare]",
 CellMargins->{{66, 48}, {2, 4}},
 FontFamily->"Verdana",
 FontSize->10,
 FontColor->GrayLevel[0.6],
 CellID->125416725],

Cell[TextData[{
 "Based on a program by: ",
 ButtonBox["Eric Rowland",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://demonstrations.wolfram.com/author.html?author=Eric+Rowland"], 
    None},
  ButtonNote->
   "http://demonstrations.wolfram.com/author.html?author=Eric+Rowland"]
}], "Text",
 CellDingbat->"\[FilledSmallSquare]",
 CellMargins->{{66, 48}, {2, 4}},
 FontFamily->"Verdana",
 FontSize->10,
 FontColor->GrayLevel[0.6],
 CellID->839082485]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Manipulate: Diffusion-Limited Aggregation: A Real-Time Agent-Based Simulation \
(growth of dust particles)\
\>", "Section",
 CellFrameColor->RGBColor[
  0.6449835965514611, 0.758632791638056, 0.2516823071641108],
 CellChangeTimes->{{3.44198916540625*^9, 3.441989174859375*^9}},
 FontColor->RGBColor[
  0.6449835965514611, 0.758632791638056, 0.2516823071641108]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"initialAgents", "[", "n_", "]"}], ":=", 
  RowBox[{"Developer`ToPackedArray", "[", 
   RowBox[{"Append", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Join", "[", 
        RowBox[{
         RowBox[{"RandomReal", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "1"}], "}"}], ",", "2"}], "]"}], ",", 
         RowBox[{"{", "0.", "}"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"n", "-", "1"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"0.5", ",", "0.5", ",", "1."}], "}"}]}], "]"}], "]"}]}], "\n", 
 RowBox[{
  RowBox[{"visualize", "[", "agents_", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"freeParticles", "=", 
       RowBox[{"Select", "[", 
        RowBox[{"agents", ",", 
         RowBox[{
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "3", "]"}], "]"}], "\[Equal]", "0."}], "&"}]}], 
        "]"}]}], ",", 
      RowBox[{"fixedParticles", "=", 
       RowBox[{"Select", "[", 
        RowBox[{"agents", ",", 
         RowBox[{
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "3", "]"}], "]"}], "\[Equal]", "1."}], "&"}]}], 
        "]"}]}], ",", 
      RowBox[{"dummyList", "=", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", 
          RowBox[{"-", "1"}]}], "}"}], "}"}]}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Show", "[", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"Plotting", " ", "free", " ", "particles"}], " ", "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Graphics", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"AbsolutePointSize", "[", "10", "]"}], ",", 
         RowBox[{"RGBColor", "[", 
          RowBox[{".33", ",", ".6", ",", ".7"}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"Point", "@", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"freeParticles", "\[Equal]", 
             RowBox[{"{", "}"}]}], ",", "dummyList", ",", 
            RowBox[{"Map", "[", 
             RowBox[{"Most", ",", "freeParticles"}], "]"}]}], "]"}]}]}], 
        "}"}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Plotting", " ", "fixed", " ", "particles"}], " ", "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"Graphics", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"AbsolutePointSize", "[", "10", "]"}], ",", 
         RowBox[{"RGBColor", "[", 
          RowBox[{".49", ",", "0", ",", "0"}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"Point", "@", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"fixedParticles", "\[Equal]", 
             RowBox[{"{", "}"}]}], ",", "dummyList", ",", 
            RowBox[{"Map", "[", 
             RowBox[{"Most", ",", "fixedParticles"}], "]"}]}], "]"}]}]}], 
        "}"}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"ImageSize", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"350", ",", "350"}], "}"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Frame", "\[Rule]", "False"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Axes", "\[Rule]", "False"}], ",", "\[IndentingNewLine]", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}]}], "\[IndentingNewLine]", 
     "]"}]}], "\[IndentingNewLine]", "]"}]}], "\n", 
 RowBox[{
  RowBox[{"updateAgents", "[", 
   RowBox[{"agents_", ",", "noise_"}], "]"}], ":=", 
  RowBox[{"Module", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"nearestFixedParticles", "=", 
       RowBox[{"Nearest", "[", 
        RowBox[{"Most", "/@", 
         RowBox[{"Select", "[", 
          RowBox[{"agents", ",", 
           RowBox[{
            RowBox[{
             RowBox[{"#", "[", 
              RowBox[{"[", "3", "]"}], "]"}], "\[Equal]", "1."}], "&"}]}], 
          "]"}]}], "]"}]}], ",", "i", ",", "nextLocation", ",", 
      "halfwayLocation"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Developer`ToPackedArray", "[", "\[IndentingNewLine]", 
     RowBox[{"Table", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"agents", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "3"}], "]"}], "]"}], "\[Equal]", "1."}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"agents", "[", 
          RowBox[{"[", "i", "]"}], "]"}], ",", 
         RowBox[{"(*", " ", 
          RowBox[{
           RowBox[{"If", " ", "fixed"}], ",", " ", 
           RowBox[{"nothing", " ", "changes"}]}], " ", "*)"}], 
         "\[IndentingNewLine]", 
         RowBox[{"(*", " ", 
          RowBox[{"Otherwise", ",", " ", 
           RowBox[{"simulate", " ", "random", " ", "walk"}]}], " ", "*)"}], 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"nextLocation", " ", "=", 
           RowBox[{
            RowBox[{"Most", "[", 
             RowBox[{"agents", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "+", 
            RowBox[{"RandomReal", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"-", "noise"}], ",", "noise"}], "}"}], ",", "2"}], 
             "]"}]}]}], ";", "\[IndentingNewLine]", 
          RowBox[{"nextLocation", "=", 
           RowBox[{"Clip", "[", 
            RowBox[{"nextLocation", ",", 
             RowBox[{"{", 
              RowBox[{"0.", ",", "1."}], "}"}]}], "]"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"halfwayLocation", "=", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Most", "[", 
               RowBox[{"agents", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "]"}], "+", "nextLocation"}], 
             ")"}], "/", "2."}]}], ";", "\[IndentingNewLine]", 
          RowBox[{"If", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{"Norm", "[", 
              RowBox[{
               RowBox[{
                RowBox[{
                "nearestFixedParticles", "[", "halfwayLocation", "]"}], "[", 
                RowBox[{"[", "1", "]"}], "]"}], "-", "halfwayLocation"}], 
              "]"}], "<", "0.02"}], ",", "\[IndentingNewLine]", 
            RowBox[{"Append", "[", 
             RowBox[{"halfwayLocation", ",", "1."}], "]"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"If", "[", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{
               RowBox[{"Norm", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"nearestFixedParticles", "[", "nextLocation", "]"}],
                   "[", 
                  RowBox[{"[", "1", "]"}], "]"}], "-", "nextLocation"}], 
                "]"}], "<", "0.02"}], ",", "\[IndentingNewLine]", 
              RowBox[{"Append", "[", 
               RowBox[{"nextLocation", ",", "1."}], "]"}], ",", 
              "\[IndentingNewLine]", 
              RowBox[{"Append", "[", 
               RowBox[{"nextLocation", ",", "0."}], "]"}]}], 
             "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}]}],
         "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{"Length", "[", "agents", "]"}]}], "}"}]}], 
      "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", "]"}]}], 
   "\[IndentingNewLine]", "]"}]}], "\n", 
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Refresh", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"sr", "\[NotEqual]", "oldsr"}], ",", 
        RowBox[{
         RowBox[{"SeedRandom", "[", "sr", "]"}], ";", 
         RowBox[{"ag", "=", 
          RowBox[{"initialAgents", "[", "n", "]"}]}], ";", 
         RowBox[{"oldsr", "=", "sr"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"n", "\[NotEqual]", "oldn"}], ",", 
        RowBox[{
         RowBox[{"SeedRandom", "[", "sr", "]"}], ";", 
         RowBox[{"ag", "=", 
          RowBox[{"initialAgents", "[", "n", "]"}]}], ";", 
         RowBox[{"oldn", "=", "n"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{"moving", ",", 
        RowBox[{"ag", "=", 
         RowBox[{"updateAgents", "[", 
          RowBox[{"ag", ",", "noiseLevel"}], "]"}]}]}], "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"visualize", "[", "ag", "]"}]}], "\[IndentingNewLine]", ",", 
     RowBox[{"UpdateInterval", "\[Rule]", 
      RowBox[{"If", "[", 
       RowBox[{"moving", ",", "0", ",", "Infinity"}], "]"}]}]}], 
    "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"noiseLevel", ",", "0.01", ",", "\"\<level of noise\>\""}], 
      "}"}], ",", "0", ",", "0.05", ",", 
     RowBox[{"ImageSize", "\[Rule]", "Tiny"}]}], "}"}], "\[IndentingNewLine]",
    ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"n", ",", "100", ",", "\"\<number of particles\>\""}], "}"}], 
     ",", "10", ",", "500", ",", "1", ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "Tiny"}]}], "}"}], "\[IndentingNewLine]",
    ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"sr", ",", "123", ",", "\"\<random seed\>\""}], "}"}], ",", "1",
      ",", "12345", ",", "1", ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "Tiny"}]}], "}"}], "\[IndentingNewLine]",
    ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"moving", ",", "False", ",", "\"\<run simulation\>\""}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"True", ",", " ", "False"}], "}"}]}], "}"}], 
   "\[IndentingNewLine]", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"ag", ",", 
       RowBox[{
        RowBox[{"SeedRandom", "[", "123", "]"}], ";", 
        RowBox[{"initialAgents", "[", "100", "]"}]}]}], "}"}], ",", 
     RowBox[{"ControlType", "\[Rule]", "None"}]}], "}"}], 
   "\[IndentingNewLine]", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"oldn", ",", "100"}], "}"}], ",", 
     RowBox[{"ControlType", "\[Rule]", "None"}]}], "}"}], 
   "\[IndentingNewLine]", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"oldsr", ",", "123"}], "}"}], ",", 
     RowBox[{"ControlType", "\[Rule]", "None"}]}], "}"}], 
   "\[IndentingNewLine]", ",", 
   RowBox[{"SaveDefinitions", "\[Rule]", "True"}], ",", 
   RowBox[{"AutorunSequencing", "\[Rule]", 
    RowBox[{"{", "3", "}"}]}], ",", 
   RowBox[{"TrackedSymbols", "\[RuleDelayed]", 
    RowBox[{"{", 
     RowBox[{"noiseLevel", ",", "n", ",", "moving", ",", "ag", ",", "sr"}], 
     "}"}]}], ",", 
   RowBox[{"SynchronousUpdating", "\[Rule]", "True"}], ",", 
   RowBox[{"ControlPlacement", "\[Rule]", "Left"}]}], "\[IndentingNewLine]", 
  "]"}]}], "Input",
 CellChangeTimes->{{3.403283455796875*^9, 3.40328346284375*^9}, {
   3.41305052778125*^9, 3.413050579984375*^9}, {3.413134309043192*^9, 
   3.413134345472749*^9}, {3.413135375706816*^9, 3.413135379715403*^9}, 
   3.41313559074171*^9, {3.441989113390625*^9, 3.441989118*^9}},
 CellID->260618406],

Cell[TextData[{
 "\"",
 ButtonBox["Diffusion-Limited Aggregation: A Real-Time Agent-Based Simulation",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://demonstrations.wolfram.com/\
DiffusionLimitedAggregationARealTimeAgentBasedSimulation/"], None},
  ButtonNote->
   "http://demonstrations.wolfram.com/\
DiffusionLimitedAggregationARealTimeAgentBasedSimulation/"],
 "\"",
 " from ",
 ButtonBox["The Wolfram Demonstrations Project",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://demonstrations.wolfram.com/"], None},
  ButtonNote->"http://demonstrations.wolfram.com/"],
 "\[ParagraphSeparator]\[NonBreakingSpace]",
 ButtonBox["http://demonstrations.wolfram.com/\
DiffusionLimitedAggregationARealTimeAgentBasedSimulation/",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://demonstrations.wolfram.com/\
DiffusionLimitedAggregationARealTimeAgentBasedSimulation/"], None},
  ButtonNote->
   "http://demonstrations.wolfram.com/\
DiffusionLimitedAggregationARealTimeAgentBasedSimulation/"],
 "\n",
 "Contributed by: ",
 ButtonBox["Hiroki Sayama",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://demonstrations.wolfram.com/author.html?author=Hiroki+Sayama"],
     None},
  ButtonNote->
   "http://demonstrations.wolfram.com/author.html?author=Hiroki+Sayama"]
}], "Text",
 CellMargins->{{48, Inherited}, {0, Inherited}},
 CellChangeTimes->{3.441989131609375*^9},
 FontFamily->"Verdana",
 FontSize->10,
 FontColor->GrayLevel[0.5]]
}, Closed]],

Cell[CellGroupData[{

Cell["Plots: step by step", "Section",
 CellChangeTimes->{{3.441994228640625*^9, 3.441994230828125*^9}, {
  3.44199611396875*^9, 3.441996116515625*^9}, {3.442069687828125*^9, 
  3.44206969253125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Sin", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "\[Pi]"}], "}"}], ",", 
   RowBox[{
   "PlotLabel", "\[Rule]", 
    "\"\<This plot is as simple as one could get\>\""}]}], "]"}]], "Input",
 CellChangeTimes->{{3.44199471365625*^9, 3.441994714421875*^9}, {
  3.441994785390625*^9, 3.441994821078125*^9}, {3.441996119390625*^9, 
  3.441996128125*^9}, {3.4420691339375*^9, 3.442069151046875*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwt2Hk0VV/YB3BD5VIqUyU0aJZIioS+l1+lKFOlQYRSkjIVDaJBKkpIkgyV
IkJJKEmIQpJCoVRkjnuM955zh7z7fdf717M+a92z9tn7PPu797pzXTxtXSXE
xMQkxcXE/q++kan5s8p7rdj/1wU9RYazbljhvEp5jxqp/Kfa+5ui9mLOT2vV
RlI7FN3ovChPXC0QNWaT2rwhuPRhVBBuOoytiyS1YW/UooSo62hNGNSxINXW
Q7k5NioJ43fMlLKJTELk0J6cmKgniIJ5rP+1JzAsN5cx9S0GN/dWacbBYnid
snTO8aoA73rTrWLzChx54RouMa8WQ6W1gyWcT6jv3iSd6lKPwdD5I80y9QjV
5orl7WrE7wV6xq5l3+C9tOJm8cMfeBPzxNsi5zv4+w5ntRz9DasW263lXr/g
8trOOuJAG+4/P7nf8GAr9g3WFxdfbkfAVAuvnYv+4OryfM+UkE40Dd86Mzmv
HRLF+frBp7rR0XxcX2xJJ+Q0LGp+xfaCozmJdzW5CxuTTJMHovogmjLH6k9f
N6ZT1RuC8jkY5LAP79TrRdz7AnHJQwOQeBG4+9KevzBSMxmbs38Q337c032w
tQ9Lf09tP3NsCCNpBon17H5Yds0p9TsxhLRt1xQnreuHF2f5Xc+AIbTaz3lt
YtaP50LrPc7BQ1g9ac2D1C39MFKOrF8XPQR6/Msyh9392GwrVz7x+RDmn106
z9e3Hx5lcim3h4dwu29AxH7Qj8xH8m65PsMwKi2qdBTjILjhjYmk/zCYVgXz
PZIc7JE4omJzehiXjrsl7pjAgcye9zV9F4aRralbajaJgwNTAlbNvzmMmzMt
B2RncDDHr0PiRv4wOvRn5OtocxD934sEL+EwHigZnG6w5yDgp0Pd0pARGEoU
lp3P4mDEzDjBNXQEioks6+6nHHhkqx5MCh9BSNKmfIscDuyDv/Plb43gnMu/
GZNecLBGY5c6P3UElE7UfN8SDpjj27wrKkdwsrVZv7mOAz9ZiymusqMQJl1b
MZHHAcdPoylRbhRmlhl9Sxnyvr+lkxuVRnGIeX7GXMCBXU6F3uZZo8iQ6Z93
boyDVbs2OOpqj2JWb0tAvRSFkQcmmeI2oyjo8mQrzKDgbbTaIjF6FEvSshQG
9CiIHY0Ouh47ioWPiiMfr6YQnjSQczZ+FNtexGu4rqGQLpGmuu/BKLZwzDK+
GFNoq1DmLHo+ChubC30x6yhs2y6IyK4bRXpBzqYyGwp6R4u+lslzkeur/y7b
nUJZ0syJedO4+Hjh6+HlHhRsP/shdSYX+0SzlmQeoXB0pfajK+pc+H616r3r
RSGVn3TScgUXqWuzg739KMy4dE610YaLaIOG8fnnKPCT1rn8jeBiv+jD/S8x
FNbyjKN0bnKxcumorHYshXOW+qX+t7mQ1qT0r9ymwBItUR93nws7seH3evEU
lHZPaVPN4aLxUESD3z0KyxWbnS0buIjRd4gKfUzB93BdZHQTF/3uu36VZlDI
K60uaW7hghWS1UNnUjD2fjP3YCcXf1Un6jk+pWBe86A1iMeFxgnNx7K5FFwv
ezpnK/Pwve7qyNhrCo9+uUXy1HhI6JaXVXxDoU/PpcRYnYe365JbFxRT8OnY
NrdKg4fCL9FFpqUUzpquaW0z5EHW+v5653cU4oTjnBUdefghveiETg2FWq84
J//7POzT2jWq9oOCRsRUwbEUYs1VY9+JLzwJuemTzsOyxIeysS3ke3B8qo48
42GnjtJqmV8UEg5brNxfykOGBVXytZWC+wGhlE0bD5rxdNLULvK9Lvrct+zk
oU+poz+LWO1ht9HmXh4akl/CopuM/6fe22yIh8l6I5wzPRT0nTO/G0vQ6MpJ
OfXhL4VxexyfaKjTCKubD6kBCo6n6zctXkiDV7Px/UXi/Djz9gUaNIxmVthK
DJLxm/SU566g4VT60neU+LPdlAvTTWl46sb+eDtM5ud3UU1pA43Y9LLAFSMU
gm8K8uXNaVzok5ufRLy6vqtP1paGf9ewv88ohUSbYrtxLjRSN8xZJ86jQHvp
DYofoKHyNv7fXmLbiIywsUM0tDylCguJx3+KLeZ70zBziYAXTcFjs7fG4Dka
/3G/ur1hKLw73FXGuUhDcZvGmsl8CrPDHPb2XaExV8dksj3xl8pN0V2RNOLc
U4o4xAZm6v9a7pHx62vxT0BhZXLV5fcPaZyp9qQMhRS0xnwUstNoLMoLzPUn
Vs9/uzg4m8bj5T+De4hVFTxyjuTSiBheFD5bRGGap+LaHS9p2E+qz9xKPHGR
61aNEhqFHRuW5xFPuCD7U6GcRmip1I12YrFfuW6iChrPl82eJPeP7P+YCYG1
tTSilpiZ7CfmDGWxCupp5BfbikKJuy133EhupKE0nP7pCXHLhEeP/H7T8Dix
On+YuNHFWtepncaUwkPV8mNkvkX0603dNNYG/OJpE1fPvLdRt4/Gef4tAwvi
d36b6lQHyHxuRkbuJy7+MugwYYTG58qqsdPEBVpx3RSPxtblpsGRxM9DTX2b
BDS+B3FnPSR+0tkrKh2jsfNq56c84nTTG5czJBlImMndekf8INFQIUaKwZ6i
48fqiRP5fxKCJjJYNkvB7TdxrN3VxYemMAh90u3dSxz1bGWOrQKDqsbRyCHi
q5NbjI2mM7ihtqaCJg5xv1ixQIXBp1m5iiLic++WbZ0ym0FO3AH/MeIA9a8t
tDqDAg/Lgf+1X2CgW9tCBhnXPIL+EXs1Lxz+oMEgRqFkvoDYXe/TmVwtBjU6
m3+PEu+P8mclrWAwvHryMw6xI2f2jct6DKgYqbgO4p3mFWo+axgMfl0d20y8
NcXrkf1aBj737md8JLaUUNZdb8pAt3D9tyLijY4lr7U2MIDMvBlZxKYFhzbO
MGfQE2boeYfYaJp8nbglg0rHiB8hxHo+BQ5/bRiUv1Z38iJeXuPSXb+dwQTx
EWYH8YKQHFGqAwPPRbu85hLPabO/HOnMYPuWgc2SxDPXjlM47crg349q/CH9
MJm7bbHlEQYa4o5uCcQsW9EzfW8GaaXTEv2JJbIeGs89zqDdTK3XipjnyrUd
CSDrbaBWzif9OVSS2NJyloHxa5VtH4n71Mzc3gczmKzrwyQQ/264dSbuKoM7
risuGRBXrjd4xI5nQDvZPdlF9seJ94FaQXcZXPfyyplOvHhT2fPXD8h6cp39
68h+C9lsVbImk4F2+c+164jXbXVtXlnE4NXnT9UyZH+O1Kc7+ZYy6OxYWZtH
9ney3UBn9jsGipvibzgRS+w+Paz1iUG+e+juTJIHxU6Rk5b8ZmAivNWzlOSF
V9vXqIPtDLhbSvvLuSQP9qsqp3QzqO6e98yBOPBg6oJ5gwzenUg/HULyyOjo
67VqEnwo7YiXf03yLP90j5fcfD4uJtjuKKIoHBBp8awW87HQuMBlJfG0oGNn
wjX56D3dqvWIQ+HY+bErE1eR3x+Pkb7ST2HFFaXk8Rv4EF15UalN8jYrxqSB
OcgH6+LWQLlO0l8zLtmv9uBDcCwzbl8HBdm46lY/Lz6W1PufyGkn+ZawgzN8
go+qO9dPbP5D8vXBESnOFT7aNy6/uu83hYfZtw3aHvPx7GTbpIXNpJ8F9hqN
T/ioPNZg79JE+mf9LJWaHPL8p8X58Y0UChvvC1++4kNKb+6Nid8o1I09fhP5
gY+/bjmtn+soiFsWrTf5y0eFMKZd7CMFh942m7saAiwRO9LaTc5H9ZUPTWO0
BDjwWfdrZyHJozMHda+uEED0Wbmp7RWZv1yf4ok1Ajw1uCDd8JJC2OrRb1bm
ApxdEzntPjlvX4ZIOY4dEkDwTmPgJzmvleZpujumCWAWpqzaTs7/iKgwu7RM
AbRNFstcIfcDGYm/piPZAnj7jWUvvUXysjVNJbRAAOdZHtru0aQfExd9zP0g
wItKVvuHcHIezpy3XJYjAGuOpoX6BfI+8jO5r1YIoaZ+o1aF3G+ocyfbJugL
IUNHLz3hRtZrsLHGxlAII8mG/74coOBUeyu16z8h2vdcyQjaR2FzuNIuhe1C
HMme7fJmD4V5MnKF7v5CxE/yOvnFkuSrOOu8cqEQ+lXhRht1SF5n3na0LhaC
eZUS4KpNQXr3UsNLZULolLdFnV1Ggf3McmSkWgibhi2mT5eQfnC5eaC2RYhd
dqlPR+eS9XqrbnFpTIhVM+71zJAn++GiseKoqQgzV2x/VzLAQS7LN6W2UoRr
e9nHH6Zy0Blwrr/oowhfpKMX73vIwYzB6yszP4twvGO/xOxkcv9tyii90iRC
2x4ZjchEDtald/407RFBrBhb9t7k4IvF7um5rH+ojrkmkXyeg4Fwk8u3zf7h
RYvd4kpyf9ZUmuruUv4PK6iyglgWB1Q4V1H36xjWlC8rdzDsx7xLl7Q93cXY
NdrWBz479KFt9/dm0y4x9rixPJV9h/5iY0cdk3tUnH2I8jN5btqLEz6ubtP6
xdnVuWeOGSj1wDLvjvk0Pwn2sJh4cv2zLnCE7gGSXAn2BbPDRnutOnHv27nn
R30l2ds3WPWsbWkH383Y6aRAkq2zd06b5qo/UBNF2nufGse+eIfufn+zFZ1m
YVWscePZHVadeVZnf+HtwmrMChvPHqd36mNJ6Xe4s1LGzZWewG7x+BMQuaQR
+XfnG7+NnMBWVumocl5cjxpDo3JbOSl2SqFD7DG7WtDud7Y6hUux7etn9/Cm
VKLCOmm77DQWOyLbV/XRs2K4GBilpkaz2LW8Lv7PlGwc6v84+iOGxVYN8wvb
65QNr3t718nfZrHT5aZX/lTORpD0hdaABBb7fpGMc9PVp4hvqlSxTWGxf9F2
K4M6svD15I4IYT6LfaBKqyotIB3mBT4nbb6z2EYzl4lFpt2DzdFxFSEtLPaO
tSMGtqr3sFM9ZlrhLxb71jPhAvnrd3Ew9GXOwnYWu1G1MEi1JxHBu8U4gj4W
2+11oPVgYByK+NdcUv6x2OUbrI8gPRLlWbOzv4tJs+PDbNj3r0eg2iV7bKqk
NJs5G3tXqjcc36vq409LSbPb2Hf5IUGhoONUvllPlWbnd8t8PJp+DmOWmQtC
5KXZiT2Kg5t6AzFBEsdeKUqzDX7I9+cEnYLiYRe5hcrS7Iat8Zrn072hMntk
r70KGc+jdXVNkDvU6y5mRahJs8VNHyvEpDtD49J0UflsabassGjpy3Qb6Bim
WQjmSrO1dK793/8D/wMuq3uF
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  ImageSize->{399.19999999999976`, Automatic},
  PlotLabel->FormBox[
   "\"This plot is as simple as one could get\"", TraditionalForm],
  PlotRange->
   NCache[{{0, Pi}, {0., 0.9999999707682925}}, {{0, 3.141592653589793}, {0., 
     0.9999999707682925}}],
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.442060852765625*^9, 3.44206915234375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Sin", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "\[Pi]"}], "}"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "550"}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", "\"\<First fix the image size\>\""}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.442060894015625*^9, 3.442060906484375*^9}, {
  3.442069158875*^9, 3.442069198265625*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwt2Hk0VV/YB3BD5VIqUyU0aJZIioS+l1+lKFOlQYRSkjIVDaJBKkpIkgyV
IkJJKEmIQpJCoVRkjnuM955zh7z7fdf717M+a92z9tn7PPu797pzXTxtXSXE
xMQkxcXE/q++kan5s8p7rdj/1wU9RYazbljhvEp5jxqp/Kfa+5ui9mLOT2vV
RlI7FN3ovChPXC0QNWaT2rwhuPRhVBBuOoytiyS1YW/UooSo62hNGNSxINXW
Q7k5NioJ43fMlLKJTELk0J6cmKgniIJ5rP+1JzAsN5cx9S0GN/dWacbBYnid
snTO8aoA73rTrWLzChx54RouMa8WQ6W1gyWcT6jv3iSd6lKPwdD5I80y9QjV
5orl7WrE7wV6xq5l3+C9tOJm8cMfeBPzxNsi5zv4+w5ntRz9DasW263lXr/g
8trOOuJAG+4/P7nf8GAr9g3WFxdfbkfAVAuvnYv+4OryfM+UkE40Dd86Mzmv
HRLF+frBp7rR0XxcX2xJJ+Q0LGp+xfaCozmJdzW5CxuTTJMHovogmjLH6k9f
N6ZT1RuC8jkY5LAP79TrRdz7AnHJQwOQeBG4+9KevzBSMxmbs38Q337c032w
tQ9Lf09tP3NsCCNpBon17H5Yds0p9TsxhLRt1xQnreuHF2f5Xc+AIbTaz3lt
YtaP50LrPc7BQ1g9ac2D1C39MFKOrF8XPQR6/Msyh9392GwrVz7x+RDmn106
z9e3Hx5lcim3h4dwu29AxH7Qj8xH8m65PsMwKi2qdBTjILjhjYmk/zCYVgXz
PZIc7JE4omJzehiXjrsl7pjAgcye9zV9F4aRralbajaJgwNTAlbNvzmMmzMt
B2RncDDHr0PiRv4wOvRn5OtocxD934sEL+EwHigZnG6w5yDgp0Pd0pARGEoU
lp3P4mDEzDjBNXQEioks6+6nHHhkqx5MCh9BSNKmfIscDuyDv/Plb43gnMu/
GZNecLBGY5c6P3UElE7UfN8SDpjj27wrKkdwsrVZv7mOAz9ZiymusqMQJl1b
MZHHAcdPoylRbhRmlhl9Sxnyvr+lkxuVRnGIeX7GXMCBXU6F3uZZo8iQ6Z93
boyDVbs2OOpqj2JWb0tAvRSFkQcmmeI2oyjo8mQrzKDgbbTaIjF6FEvSshQG
9CiIHY0Ouh47ioWPiiMfr6YQnjSQczZ+FNtexGu4rqGQLpGmuu/BKLZwzDK+
GFNoq1DmLHo+ChubC30x6yhs2y6IyK4bRXpBzqYyGwp6R4u+lslzkeur/y7b
nUJZ0syJedO4+Hjh6+HlHhRsP/shdSYX+0SzlmQeoXB0pfajK+pc+H616r3r
RSGVn3TScgUXqWuzg739KMy4dE610YaLaIOG8fnnKPCT1rn8jeBiv+jD/S8x
FNbyjKN0bnKxcumorHYshXOW+qX+t7mQ1qT0r9ymwBItUR93nws7seH3evEU
lHZPaVPN4aLxUESD3z0KyxWbnS0buIjRd4gKfUzB93BdZHQTF/3uu36VZlDI
K60uaW7hghWS1UNnUjD2fjP3YCcXf1Un6jk+pWBe86A1iMeFxgnNx7K5FFwv
ezpnK/Pwve7qyNhrCo9+uUXy1HhI6JaXVXxDoU/PpcRYnYe365JbFxRT8OnY
NrdKg4fCL9FFpqUUzpquaW0z5EHW+v5653cU4oTjnBUdefghveiETg2FWq84
J//7POzT2jWq9oOCRsRUwbEUYs1VY9+JLzwJuemTzsOyxIeysS3ke3B8qo48
42GnjtJqmV8UEg5brNxfykOGBVXytZWC+wGhlE0bD5rxdNLULvK9Lvrct+zk
oU+poz+LWO1ht9HmXh4akl/CopuM/6fe22yIh8l6I5wzPRT0nTO/G0vQ6MpJ
OfXhL4VxexyfaKjTCKubD6kBCo6n6zctXkiDV7Px/UXi/Djz9gUaNIxmVthK
DJLxm/SU566g4VT60neU+LPdlAvTTWl46sb+eDtM5ud3UU1pA43Y9LLAFSMU
gm8K8uXNaVzok5ufRLy6vqtP1paGf9ewv88ohUSbYrtxLjRSN8xZJ86jQHvp
DYofoKHyNv7fXmLbiIywsUM0tDylCguJx3+KLeZ70zBziYAXTcFjs7fG4Dka
/3G/ur1hKLw73FXGuUhDcZvGmsl8CrPDHPb2XaExV8dksj3xl8pN0V2RNOLc
U4o4xAZm6v9a7pHx62vxT0BhZXLV5fcPaZyp9qQMhRS0xnwUstNoLMoLzPUn
Vs9/uzg4m8bj5T+De4hVFTxyjuTSiBheFD5bRGGap+LaHS9p2E+qz9xKPHGR
61aNEhqFHRuW5xFPuCD7U6GcRmip1I12YrFfuW6iChrPl82eJPeP7P+YCYG1
tTSilpiZ7CfmDGWxCupp5BfbikKJuy133EhupKE0nP7pCXHLhEeP/H7T8Dix
On+YuNHFWtepncaUwkPV8mNkvkX0603dNNYG/OJpE1fPvLdRt4/Gef4tAwvi
d36b6lQHyHxuRkbuJy7+MugwYYTG58qqsdPEBVpx3RSPxtblpsGRxM9DTX2b
BDS+B3FnPSR+0tkrKh2jsfNq56c84nTTG5czJBlImMndekf8INFQIUaKwZ6i
48fqiRP5fxKCJjJYNkvB7TdxrN3VxYemMAh90u3dSxz1bGWOrQKDqsbRyCHi
q5NbjI2mM7ihtqaCJg5xv1ixQIXBp1m5iiLic++WbZ0ym0FO3AH/MeIA9a8t
tDqDAg/Lgf+1X2CgW9tCBhnXPIL+EXs1Lxz+oMEgRqFkvoDYXe/TmVwtBjU6
m3+PEu+P8mclrWAwvHryMw6xI2f2jct6DKgYqbgO4p3mFWo+axgMfl0d20y8
NcXrkf1aBj737md8JLaUUNZdb8pAt3D9tyLijY4lr7U2MIDMvBlZxKYFhzbO
MGfQE2boeYfYaJp8nbglg0rHiB8hxHo+BQ5/bRiUv1Z38iJeXuPSXb+dwQTx
EWYH8YKQHFGqAwPPRbu85hLPabO/HOnMYPuWgc2SxDPXjlM47crg349q/CH9
MJm7bbHlEQYa4o5uCcQsW9EzfW8GaaXTEv2JJbIeGs89zqDdTK3XipjnyrUd
CSDrbaBWzif9OVSS2NJyloHxa5VtH4n71Mzc3gczmKzrwyQQ/264dSbuKoM7
risuGRBXrjd4xI5nQDvZPdlF9seJ94FaQXcZXPfyyplOvHhT2fPXD8h6cp39
68h+C9lsVbImk4F2+c+164jXbXVtXlnE4NXnT9UyZH+O1Kc7+ZYy6OxYWZtH
9ney3UBn9jsGipvibzgRS+w+Paz1iUG+e+juTJIHxU6Rk5b8ZmAivNWzlOSF
V9vXqIPtDLhbSvvLuSQP9qsqp3QzqO6e98yBOPBg6oJ5gwzenUg/HULyyOjo
67VqEnwo7YiXf03yLP90j5fcfD4uJtjuKKIoHBBp8awW87HQuMBlJfG0oGNn
wjX56D3dqvWIQ+HY+bErE1eR3x+Pkb7ST2HFFaXk8Rv4EF15UalN8jYrxqSB
OcgH6+LWQLlO0l8zLtmv9uBDcCwzbl8HBdm46lY/Lz6W1PufyGkn+ZawgzN8
go+qO9dPbP5D8vXBESnOFT7aNy6/uu83hYfZtw3aHvPx7GTbpIXNpJ8F9hqN
T/ioPNZg79JE+mf9LJWaHPL8p8X58Y0UChvvC1++4kNKb+6Nid8o1I09fhP5
gY+/bjmtn+soiFsWrTf5y0eFMKZd7CMFh942m7saAiwRO9LaTc5H9ZUPTWO0
BDjwWfdrZyHJozMHda+uEED0Wbmp7RWZv1yf4ok1Ajw1uCDd8JJC2OrRb1bm
ApxdEzntPjlvX4ZIOY4dEkDwTmPgJzmvleZpujumCWAWpqzaTs7/iKgwu7RM
AbRNFstcIfcDGYm/piPZAnj7jWUvvUXysjVNJbRAAOdZHtru0aQfExd9zP0g
wItKVvuHcHIezpy3XJYjAGuOpoX6BfI+8jO5r1YIoaZ+o1aF3G+ocyfbJugL
IUNHLz3hRtZrsLHGxlAII8mG/74coOBUeyu16z8h2vdcyQjaR2FzuNIuhe1C
HMme7fJmD4V5MnKF7v5CxE/yOvnFkuSrOOu8cqEQ+lXhRht1SF5n3na0LhaC
eZUS4KpNQXr3UsNLZULolLdFnV1Ggf3McmSkWgibhi2mT5eQfnC5eaC2RYhd
dqlPR+eS9XqrbnFpTIhVM+71zJAn++GiseKoqQgzV2x/VzLAQS7LN6W2UoRr
e9nHH6Zy0Blwrr/oowhfpKMX73vIwYzB6yszP4twvGO/xOxkcv9tyii90iRC
2x4ZjchEDtald/407RFBrBhb9t7k4IvF7um5rH+ojrkmkXyeg4Fwk8u3zf7h
RYvd4kpyf9ZUmuruUv4PK6iyglgWB1Q4V1H36xjWlC8rdzDsx7xLl7Q93cXY
NdrWBz479KFt9/dm0y4x9rixPJV9h/5iY0cdk3tUnH2I8jN5btqLEz6ubtP6
xdnVuWeOGSj1wDLvjvk0Pwn2sJh4cv2zLnCE7gGSXAn2BbPDRnutOnHv27nn
R30l2ds3WPWsbWkH383Y6aRAkq2zd06b5qo/UBNF2nufGse+eIfufn+zFZ1m
YVWscePZHVadeVZnf+HtwmrMChvPHqd36mNJ6Xe4s1LGzZWewG7x+BMQuaQR
+XfnG7+NnMBWVumocl5cjxpDo3JbOSl2SqFD7DG7WtDud7Y6hUux7etn9/Cm
VKLCOmm77DQWOyLbV/XRs2K4GBilpkaz2LW8Lv7PlGwc6v84+iOGxVYN8wvb
65QNr3t718nfZrHT5aZX/lTORpD0hdaABBb7fpGMc9PVp4hvqlSxTWGxf9F2
K4M6svD15I4IYT6LfaBKqyotIB3mBT4nbb6z2EYzl4lFpt2DzdFxFSEtLPaO
tSMGtqr3sFM9ZlrhLxb71jPhAvnrd3Ew9GXOwnYWu1G1MEi1JxHBu8U4gj4W
2+11oPVgYByK+NdcUv6x2OUbrI8gPRLlWbOzv4tJs+PDbNj3r0eg2iV7bKqk
NJs5G3tXqjcc36vq409LSbPb2Hf5IUGhoONUvllPlWbnd8t8PJp+DmOWmQtC
5KXZiT2Kg5t6AzFBEsdeKUqzDX7I9+cEnYLiYRe5hcrS7Iat8Zrn072hMntk
r70KGc+jdXVNkDvU6y5mRahJs8VNHyvEpDtD49J0UflsabassGjpy3Qb6Bim
WQjmSrO1dK793/8D/wMuq3uF
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  ImageSize->550,
  PlotLabel->FormBox["\"First fix the image size\"", TraditionalForm],
  PlotRange->
   NCache[{{0, Pi}, {0., 0.9999999707682925}}, {{0, 3.141592653589793}, {0., 
     0.9999999707682925}}],
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.442060898375*^9, 3.44206090671875*^9}, 
   3.442069198625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Sin", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "\[Pi]"}], "}"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "550"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Red", ",", 
      RowBox[{"AbsoluteThickness", "[", "2", "]"}], ",", 
      RowBox[{"AbsoluteDashing", "[", 
       RowBox[{"{", 
        RowBox[{"6", ",", "3"}], "}"}], "]"}]}], "}"}]}], ",", 
   RowBox[{
   "PlotLabel", "\[Rule]", "\"\<Then play with the style of a line\>\""}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.44206091646875*^9, 3.44206091915625*^9}, {
  3.442060971578125*^9, 3.442061018328125*^9}, {3.44206113059375*^9, 
  3.442061139765625*^9}, {3.44206920496875*^9, 3.442069209765625*^9}, {
  3.44206928375*^9, 3.44206929046875*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[1, 0, 0], AbsoluteThickness[2], AbsoluteDashing[{6, 3}], 
    LineBox[CompressedData["
1:eJwt2Hk0VV/YB3BD5VIqUyU0aJZIioS+l1+lKFOlQYRSkjIVDaJBKkpIkgyV
IkJJKEmIQpJCoVRkjnuM955zh7z7fdf717M+a92z9tn7PPu797pzXTxtXSXE
xMQkxcXE/q++kan5s8p7rdj/1wU9RYazbljhvEp5jxqp/Kfa+5ui9mLOT2vV
RlI7FN3ovChPXC0QNWaT2rwhuPRhVBBuOoytiyS1YW/UooSo62hNGNSxINXW
Q7k5NioJ43fMlLKJTELk0J6cmKgniIJ5rP+1JzAsN5cx9S0GN/dWacbBYnid
snTO8aoA73rTrWLzChx54RouMa8WQ6W1gyWcT6jv3iSd6lKPwdD5I80y9QjV
5orl7WrE7wV6xq5l3+C9tOJm8cMfeBPzxNsi5zv4+w5ntRz9DasW263lXr/g
8trOOuJAG+4/P7nf8GAr9g3WFxdfbkfAVAuvnYv+4OryfM+UkE40Dd86Mzmv
HRLF+frBp7rR0XxcX2xJJ+Q0LGp+xfaCozmJdzW5CxuTTJMHovogmjLH6k9f
N6ZT1RuC8jkY5LAP79TrRdz7AnHJQwOQeBG4+9KevzBSMxmbs38Q337c032w
tQ9Lf09tP3NsCCNpBon17H5Yds0p9TsxhLRt1xQnreuHF2f5Xc+AIbTaz3lt
YtaP50LrPc7BQ1g9ac2D1C39MFKOrF8XPQR6/Msyh9392GwrVz7x+RDmn106
z9e3Hx5lcim3h4dwu29AxH7Qj8xH8m65PsMwKi2qdBTjILjhjYmk/zCYVgXz
PZIc7JE4omJzehiXjrsl7pjAgcye9zV9F4aRralbajaJgwNTAlbNvzmMmzMt
B2RncDDHr0PiRv4wOvRn5OtocxD934sEL+EwHigZnG6w5yDgp0Pd0pARGEoU
lp3P4mDEzDjBNXQEioks6+6nHHhkqx5MCh9BSNKmfIscDuyDv/Plb43gnMu/
GZNecLBGY5c6P3UElE7UfN8SDpjj27wrKkdwsrVZv7mOAz9ZiymusqMQJl1b
MZHHAcdPoylRbhRmlhl9Sxnyvr+lkxuVRnGIeX7GXMCBXU6F3uZZo8iQ6Z93
boyDVbs2OOpqj2JWb0tAvRSFkQcmmeI2oyjo8mQrzKDgbbTaIjF6FEvSshQG
9CiIHY0Ouh47ioWPiiMfr6YQnjSQczZ+FNtexGu4rqGQLpGmuu/BKLZwzDK+
GFNoq1DmLHo+ChubC30x6yhs2y6IyK4bRXpBzqYyGwp6R4u+lslzkeur/y7b
nUJZ0syJedO4+Hjh6+HlHhRsP/shdSYX+0SzlmQeoXB0pfajK+pc+H616r3r
RSGVn3TScgUXqWuzg739KMy4dE610YaLaIOG8fnnKPCT1rn8jeBiv+jD/S8x
FNbyjKN0bnKxcumorHYshXOW+qX+t7mQ1qT0r9ymwBItUR93nws7seH3evEU
lHZPaVPN4aLxUESD3z0KyxWbnS0buIjRd4gKfUzB93BdZHQTF/3uu36VZlDI
K60uaW7hghWS1UNnUjD2fjP3YCcXf1Un6jk+pWBe86A1iMeFxgnNx7K5FFwv
ezpnK/Pwve7qyNhrCo9+uUXy1HhI6JaXVXxDoU/PpcRYnYe365JbFxRT8OnY
NrdKg4fCL9FFpqUUzpquaW0z5EHW+v5653cU4oTjnBUdefghveiETg2FWq84
J//7POzT2jWq9oOCRsRUwbEUYs1VY9+JLzwJuemTzsOyxIeysS3ke3B8qo48
42GnjtJqmV8UEg5brNxfykOGBVXytZWC+wGhlE0bD5rxdNLULvK9Lvrct+zk
oU+poz+LWO1ht9HmXh4akl/CopuM/6fe22yIh8l6I5wzPRT0nTO/G0vQ6MpJ
OfXhL4VxexyfaKjTCKubD6kBCo6n6zctXkiDV7Px/UXi/Djz9gUaNIxmVthK
DJLxm/SU566g4VT60neU+LPdlAvTTWl46sb+eDtM5ud3UU1pA43Y9LLAFSMU
gm8K8uXNaVzok5ufRLy6vqtP1paGf9ewv88ohUSbYrtxLjRSN8xZJ86jQHvp
DYofoKHyNv7fXmLbiIywsUM0tDylCguJx3+KLeZ70zBziYAXTcFjs7fG4Dka
/3G/ur1hKLw73FXGuUhDcZvGmsl8CrPDHPb2XaExV8dksj3xl8pN0V2RNOLc
U4o4xAZm6v9a7pHx62vxT0BhZXLV5fcPaZyp9qQMhRS0xnwUstNoLMoLzPUn
Vs9/uzg4m8bj5T+De4hVFTxyjuTSiBheFD5bRGGap+LaHS9p2E+qz9xKPHGR
61aNEhqFHRuW5xFPuCD7U6GcRmip1I12YrFfuW6iChrPl82eJPeP7P+YCYG1
tTSilpiZ7CfmDGWxCupp5BfbikKJuy133EhupKE0nP7pCXHLhEeP/H7T8Dix
On+YuNHFWtepncaUwkPV8mNkvkX0603dNNYG/OJpE1fPvLdRt4/Gef4tAwvi
d36b6lQHyHxuRkbuJy7+MugwYYTG58qqsdPEBVpx3RSPxtblpsGRxM9DTX2b
BDS+B3FnPSR+0tkrKh2jsfNq56c84nTTG5czJBlImMndekf8INFQIUaKwZ6i
48fqiRP5fxKCJjJYNkvB7TdxrN3VxYemMAh90u3dSxz1bGWOrQKDqsbRyCHi
q5NbjI2mM7ihtqaCJg5xv1ixQIXBp1m5iiLic++WbZ0ym0FO3AH/MeIA9a8t
tDqDAg/Lgf+1X2CgW9tCBhnXPIL+EXs1Lxz+oMEgRqFkvoDYXe/TmVwtBjU6
m3+PEu+P8mclrWAwvHryMw6xI2f2jct6DKgYqbgO4p3mFWo+axgMfl0d20y8
NcXrkf1aBj737md8JLaUUNZdb8pAt3D9tyLijY4lr7U2MIDMvBlZxKYFhzbO
MGfQE2boeYfYaJp8nbglg0rHiB8hxHo+BQ5/bRiUv1Z38iJeXuPSXb+dwQTx
EWYH8YKQHFGqAwPPRbu85hLPabO/HOnMYPuWgc2SxDPXjlM47crg349q/CH9
MJm7bbHlEQYa4o5uCcQsW9EzfW8GaaXTEv2JJbIeGs89zqDdTK3XipjnyrUd
CSDrbaBWzif9OVSS2NJyloHxa5VtH4n71Mzc3gczmKzrwyQQ/264dSbuKoM7
risuGRBXrjd4xI5nQDvZPdlF9seJ94FaQXcZXPfyyplOvHhT2fPXD8h6cp39
68h+C9lsVbImk4F2+c+164jXbXVtXlnE4NXnT9UyZH+O1Kc7+ZYy6OxYWZtH
9ney3UBn9jsGipvibzgRS+w+Paz1iUG+e+juTJIHxU6Rk5b8ZmAivNWzlOSF
V9vXqIPtDLhbSvvLuSQP9qsqp3QzqO6e98yBOPBg6oJ5gwzenUg/HULyyOjo
67VqEnwo7YiXf03yLP90j5fcfD4uJtjuKKIoHBBp8awW87HQuMBlJfG0oGNn
wjX56D3dqvWIQ+HY+bErE1eR3x+Pkb7ST2HFFaXk8Rv4EF15UalN8jYrxqSB
OcgH6+LWQLlO0l8zLtmv9uBDcCwzbl8HBdm46lY/Lz6W1PufyGkn+ZawgzN8
go+qO9dPbP5D8vXBESnOFT7aNy6/uu83hYfZtw3aHvPx7GTbpIXNpJ8F9hqN
T/ioPNZg79JE+mf9LJWaHPL8p8X58Y0UChvvC1++4kNKb+6Nid8o1I09fhP5
gY+/bjmtn+soiFsWrTf5y0eFMKZd7CMFh942m7saAiwRO9LaTc5H9ZUPTWO0
BDjwWfdrZyHJozMHda+uEED0Wbmp7RWZv1yf4ok1Ajw1uCDd8JJC2OrRb1bm
ApxdEzntPjlvX4ZIOY4dEkDwTmPgJzmvleZpujumCWAWpqzaTs7/iKgwu7RM
AbRNFstcIfcDGYm/piPZAnj7jWUvvUXysjVNJbRAAOdZHtru0aQfExd9zP0g
wItKVvuHcHIezpy3XJYjAGuOpoX6BfI+8jO5r1YIoaZ+o1aF3G+ocyfbJugL
IUNHLz3hRtZrsLHGxlAII8mG/74coOBUeyu16z8h2vdcyQjaR2FzuNIuhe1C
HMme7fJmD4V5MnKF7v5CxE/yOvnFkuSrOOu8cqEQ+lXhRht1SF5n3na0LhaC
eZUS4KpNQXr3UsNLZULolLdFnV1Ggf3McmSkWgibhi2mT5eQfnC5eaC2RYhd
dqlPR+eS9XqrbnFpTIhVM+71zJAn++GiseKoqQgzV2x/VzLAQS7LN6W2UoRr
e9nHH6Zy0Blwrr/oowhfpKMX73vIwYzB6yszP4twvGO/xOxkcv9tyii90iRC
2x4ZjchEDtald/407RFBrBhb9t7k4IvF7um5rH+ojrkmkXyeg4Fwk8u3zf7h
RYvd4kpyf9ZUmuruUv4PK6iyglgWB1Q4V1H36xjWlC8rdzDsx7xLl7Q93cXY
NdrWBz479KFt9/dm0y4x9rixPJV9h/5iY0cdk3tUnH2I8jN5btqLEz6ubtP6
xdnVuWeOGSj1wDLvjvk0Pwn2sJh4cv2zLnCE7gGSXAn2BbPDRnutOnHv27nn
R30l2ds3WPWsbWkH383Y6aRAkq2zd06b5qo/UBNF2nufGse+eIfufn+zFZ1m
YVWscePZHVadeVZnf+HtwmrMChvPHqd36mNJ6Xe4s1LGzZWewG7x+BMQuaQR
+XfnG7+NnMBWVumocl5cjxpDo3JbOSl2SqFD7DG7WtDud7Y6hUux7etn9/Cm
VKLCOmm77DQWOyLbV/XRs2K4GBilpkaz2LW8Lv7PlGwc6v84+iOGxVYN8wvb
65QNr3t718nfZrHT5aZX/lTORpD0hdaABBb7fpGMc9PVp4hvqlSxTWGxf9F2
K4M6svD15I4IYT6LfaBKqyotIB3mBT4nbb6z2EYzl4lFpt2DzdFxFSEtLPaO
tSMGtqr3sFM9ZlrhLxb71jPhAvnrd3Ew9GXOwnYWu1G1MEi1JxHBu8U4gj4W
2+11oPVgYByK+NdcUv6x2OUbrI8gPRLlWbOzv4tJs+PDbNj3r0eg2iV7bKqk
NJs5G3tXqjcc36vq409LSbPb2Hf5IUGhoONUvllPlWbnd8t8PJp+DmOWmQtC
5KXZiT2Kg5t6AzFBEsdeKUqzDX7I9+cEnYLiYRe5hcrS7Iat8Zrn072hMntk
r70KGc+jdXVNkDvU6y5mRahJs8VNHyvEpDtD49J0UflsabassGjpy3Qb6Bim
WQjmSrO1dK793/8D/wMuq3uF
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  ImageSize->550,
  PlotLabel->FormBox[
   "\"Then play with the style of a line\"", TraditionalForm],
  PlotRange->
   NCache[{{0, Pi}, {0., 0.9999999707682925}}, {{0, 3.141592653589793}, {0., 
     0.9999999707682925}}],
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.442060919609375*^9, {3.442060983390625*^9, 3.442061018625*^9}, {
   3.442061131078125*^9, 3.442061140078125*^9}, 3.442069291046875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Sin", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "\[Pi]"}], "}"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "550"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Blue", ",", 
      RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "]"}]}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Red", ",", 
      RowBox[{"AbsoluteThickness", "[", "2", "]"}], ",", 
      RowBox[{"AbsoluteDashing", "[", 
       RowBox[{"{", 
        RowBox[{"6", ",", "3"}], "}"}], "]"}]}], "}"}]}], ",", 
   RowBox[{
   "PlotLabel", "\[Rule]", "\"\<Frames make plots look better\>\""}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.4420609298125*^9, 3.44206094384375*^9}, {
  3.4420610644375*^9, 3.442061145515625*^9}, {3.442069300453125*^9, 
  3.4420693125*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[1, 0, 0], AbsoluteThickness[2], AbsoluteDashing[{6, 3}], 
    LineBox[CompressedData["
1:eJwt2Hk0VV/YB3BD5VIqUyU0aJZIioS+l1+lKFOlQYRSkjIVDaJBKkpIkgyV
IkJJKEmIQpJCoVRkjnuM955zh7z7fdf717M+a92z9tn7PPu797pzXTxtXSXE
xMQkxcXE/q++kan5s8p7rdj/1wU9RYazbljhvEp5jxqp/Kfa+5ui9mLOT2vV
RlI7FN3ovChPXC0QNWaT2rwhuPRhVBBuOoytiyS1YW/UooSo62hNGNSxINXW
Q7k5NioJ43fMlLKJTELk0J6cmKgniIJ5rP+1JzAsN5cx9S0GN/dWacbBYnid
snTO8aoA73rTrWLzChx54RouMa8WQ6W1gyWcT6jv3iSd6lKPwdD5I80y9QjV
5orl7WrE7wV6xq5l3+C9tOJm8cMfeBPzxNsi5zv4+w5ntRz9DasW263lXr/g
8trOOuJAG+4/P7nf8GAr9g3WFxdfbkfAVAuvnYv+4OryfM+UkE40Dd86Mzmv
HRLF+frBp7rR0XxcX2xJJ+Q0LGp+xfaCozmJdzW5CxuTTJMHovogmjLH6k9f
N6ZT1RuC8jkY5LAP79TrRdz7AnHJQwOQeBG4+9KevzBSMxmbs38Q337c032w
tQ9Lf09tP3NsCCNpBon17H5Yds0p9TsxhLRt1xQnreuHF2f5Xc+AIbTaz3lt
YtaP50LrPc7BQ1g9ac2D1C39MFKOrF8XPQR6/Msyh9392GwrVz7x+RDmn106
z9e3Hx5lcim3h4dwu29AxH7Qj8xH8m65PsMwKi2qdBTjILjhjYmk/zCYVgXz
PZIc7JE4omJzehiXjrsl7pjAgcye9zV9F4aRralbajaJgwNTAlbNvzmMmzMt
B2RncDDHr0PiRv4wOvRn5OtocxD934sEL+EwHigZnG6w5yDgp0Pd0pARGEoU
lp3P4mDEzDjBNXQEioks6+6nHHhkqx5MCh9BSNKmfIscDuyDv/Plb43gnMu/
GZNecLBGY5c6P3UElE7UfN8SDpjj27wrKkdwsrVZv7mOAz9ZiymusqMQJl1b
MZHHAcdPoylRbhRmlhl9Sxnyvr+lkxuVRnGIeX7GXMCBXU6F3uZZo8iQ6Z93
boyDVbs2OOpqj2JWb0tAvRSFkQcmmeI2oyjo8mQrzKDgbbTaIjF6FEvSshQG
9CiIHY0Ouh47ioWPiiMfr6YQnjSQczZ+FNtexGu4rqGQLpGmuu/BKLZwzDK+
GFNoq1DmLHo+ChubC30x6yhs2y6IyK4bRXpBzqYyGwp6R4u+lslzkeur/y7b
nUJZ0syJedO4+Hjh6+HlHhRsP/shdSYX+0SzlmQeoXB0pfajK+pc+H616r3r
RSGVn3TScgUXqWuzg739KMy4dE610YaLaIOG8fnnKPCT1rn8jeBiv+jD/S8x
FNbyjKN0bnKxcumorHYshXOW+qX+t7mQ1qT0r9ymwBItUR93nws7seH3evEU
lHZPaVPN4aLxUESD3z0KyxWbnS0buIjRd4gKfUzB93BdZHQTF/3uu36VZlDI
K60uaW7hghWS1UNnUjD2fjP3YCcXf1Un6jk+pWBe86A1iMeFxgnNx7K5FFwv
ezpnK/Pwve7qyNhrCo9+uUXy1HhI6JaXVXxDoU/PpcRYnYe365JbFxRT8OnY
NrdKg4fCL9FFpqUUzpquaW0z5EHW+v5653cU4oTjnBUdefghveiETg2FWq84
J//7POzT2jWq9oOCRsRUwbEUYs1VY9+JLzwJuemTzsOyxIeysS3ke3B8qo48
42GnjtJqmV8UEg5brNxfykOGBVXytZWC+wGhlE0bD5rxdNLULvK9Lvrct+zk
oU+poz+LWO1ht9HmXh4akl/CopuM/6fe22yIh8l6I5wzPRT0nTO/G0vQ6MpJ
OfXhL4VxexyfaKjTCKubD6kBCo6n6zctXkiDV7Px/UXi/Djz9gUaNIxmVthK
DJLxm/SU566g4VT60neU+LPdlAvTTWl46sb+eDtM5ud3UU1pA43Y9LLAFSMU
gm8K8uXNaVzok5ufRLy6vqtP1paGf9ewv88ohUSbYrtxLjRSN8xZJ86jQHvp
DYofoKHyNv7fXmLbiIywsUM0tDylCguJx3+KLeZ70zBziYAXTcFjs7fG4Dka
/3G/ur1hKLw73FXGuUhDcZvGmsl8CrPDHPb2XaExV8dksj3xl8pN0V2RNOLc
U4o4xAZm6v9a7pHx62vxT0BhZXLV5fcPaZyp9qQMhRS0xnwUstNoLMoLzPUn
Vs9/uzg4m8bj5T+De4hVFTxyjuTSiBheFD5bRGGap+LaHS9p2E+qz9xKPHGR
61aNEhqFHRuW5xFPuCD7U6GcRmip1I12YrFfuW6iChrPl82eJPeP7P+YCYG1
tTSilpiZ7CfmDGWxCupp5BfbikKJuy133EhupKE0nP7pCXHLhEeP/H7T8Dix
On+YuNHFWtepncaUwkPV8mNkvkX0603dNNYG/OJpE1fPvLdRt4/Gef4tAwvi
d36b6lQHyHxuRkbuJy7+MugwYYTG58qqsdPEBVpx3RSPxtblpsGRxM9DTX2b
BDS+B3FnPSR+0tkrKh2jsfNq56c84nTTG5czJBlImMndekf8INFQIUaKwZ6i
48fqiRP5fxKCJjJYNkvB7TdxrN3VxYemMAh90u3dSxz1bGWOrQKDqsbRyCHi
q5NbjI2mM7ihtqaCJg5xv1ixQIXBp1m5iiLic++WbZ0ym0FO3AH/MeIA9a8t
tDqDAg/Lgf+1X2CgW9tCBhnXPIL+EXs1Lxz+oMEgRqFkvoDYXe/TmVwtBjU6
m3+PEu+P8mclrWAwvHryMw6xI2f2jct6DKgYqbgO4p3mFWo+axgMfl0d20y8
NcXrkf1aBj737md8JLaUUNZdb8pAt3D9tyLijY4lr7U2MIDMvBlZxKYFhzbO
MGfQE2boeYfYaJp8nbglg0rHiB8hxHo+BQ5/bRiUv1Z38iJeXuPSXb+dwQTx
EWYH8YKQHFGqAwPPRbu85hLPabO/HOnMYPuWgc2SxDPXjlM47crg349q/CH9
MJm7bbHlEQYa4o5uCcQsW9EzfW8GaaXTEv2JJbIeGs89zqDdTK3XipjnyrUd
CSDrbaBWzif9OVSS2NJyloHxa5VtH4n71Mzc3gczmKzrwyQQ/264dSbuKoM7
risuGRBXrjd4xI5nQDvZPdlF9seJ94FaQXcZXPfyyplOvHhT2fPXD8h6cp39
68h+C9lsVbImk4F2+c+164jXbXVtXlnE4NXnT9UyZH+O1Kc7+ZYy6OxYWZtH
9ney3UBn9jsGipvibzgRS+w+Paz1iUG+e+juTJIHxU6Rk5b8ZmAivNWzlOSF
V9vXqIPtDLhbSvvLuSQP9qsqp3QzqO6e98yBOPBg6oJ5gwzenUg/HULyyOjo
67VqEnwo7YiXf03yLP90j5fcfD4uJtjuKKIoHBBp8awW87HQuMBlJfG0oGNn
wjX56D3dqvWIQ+HY+bErE1eR3x+Pkb7ST2HFFaXk8Rv4EF15UalN8jYrxqSB
OcgH6+LWQLlO0l8zLtmv9uBDcCwzbl8HBdm46lY/Lz6W1PufyGkn+ZawgzN8
go+qO9dPbP5D8vXBESnOFT7aNy6/uu83hYfZtw3aHvPx7GTbpIXNpJ8F9hqN
T/ioPNZg79JE+mf9LJWaHPL8p8X58Y0UChvvC1++4kNKb+6Nid8o1I09fhP5
gY+/bjmtn+soiFsWrTf5y0eFMKZd7CMFh942m7saAiwRO9LaTc5H9ZUPTWO0
BDjwWfdrZyHJozMHda+uEED0Wbmp7RWZv1yf4ok1Ajw1uCDd8JJC2OrRb1bm
ApxdEzntPjlvX4ZIOY4dEkDwTmPgJzmvleZpujumCWAWpqzaTs7/iKgwu7RM
AbRNFstcIfcDGYm/piPZAnj7jWUvvUXysjVNJbRAAOdZHtru0aQfExd9zP0g
wItKVvuHcHIezpy3XJYjAGuOpoX6BfI+8jO5r1YIoaZ+o1aF3G+ocyfbJugL
IUNHLz3hRtZrsLHGxlAII8mG/74coOBUeyu16z8h2vdcyQjaR2FzuNIuhe1C
HMme7fJmD4V5MnKF7v5CxE/yOvnFkuSrOOu8cqEQ+lXhRht1SF5n3na0LhaC
eZUS4KpNQXr3UsNLZULolLdFnV1Ggf3McmSkWgibhi2mT5eQfnC5eaC2RYhd
dqlPR+eS9XqrbnFpTIhVM+71zJAn++GiseKoqQgzV2x/VzLAQS7LN6W2UoRr
e9nHH6Zy0Blwrr/oowhfpKMX73vIwYzB6yszP4twvGO/xOxkcv9tyii90iRC
2x4ZjchEDtald/407RFBrBhb9t7k4IvF7um5rH+ojrkmkXyeg4Fwk8u3zf7h
RYvd4kpyf9ZUmuruUv4PK6iyglgWB1Q4V1H36xjWlC8rdzDsx7xLl7Q93cXY
NdrWBz479KFt9/dm0y4x9rixPJV9h/5iY0cdk3tUnH2I8jN5btqLEz6ubtP6
xdnVuWeOGSj1wDLvjvk0Pwn2sJh4cv2zLnCE7gGSXAn2BbPDRnutOnHv27nn
R30l2ds3WPWsbWkH383Y6aRAkq2zd06b5qo/UBNF2nufGse+eIfufn+zFZ1m
YVWscePZHVadeVZnf+HtwmrMChvPHqd36mNJ6Xe4s1LGzZWewG7x+BMQuaQR
+XfnG7+NnMBWVumocl5cjxpDo3JbOSl2SqFD7DG7WtDud7Y6hUux7etn9/Cm
VKLCOmm77DQWOyLbV/XRs2K4GBilpkaz2LW8Lv7PlGwc6v84+iOGxVYN8wvb
65QNr3t718nfZrHT5aZX/lTORpD0hdaABBb7fpGMc9PVp4hvqlSxTWGxf9F2
K4M6svD15I4IYT6LfaBKqyotIB3mBT4nbb6z2EYzl4lFpt2DzdFxFSEtLPaO
tSMGtqr3sFM9ZlrhLxb71jPhAvnrd3Ew9GXOwnYWu1G1MEi1JxHBu8U4gj4W
2+11oPVgYByK+NdcUv6x2OUbrI8gPRLlWbOzv4tJs+PDbNj3r0eg2iV7bKqk
NJs5G3tXqjcc36vq409LSbPb2Hf5IUGhoONUvllPlWbnd8t8PJp+DmOWmQtC
5KXZiT2Kg5t6AzFBEsdeKUqzDX7I9+cEnYLiYRe5hcrS7Iat8Zrn072hMntk
r70KGc+jdXVNkDvU6y5mRahJs8VNHyvEpDtD49J0UflsabassGjpy3Qb6Bim
WQjmSrO1dK793/8D/wMuq3uF
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  Frame->True,
  FrameStyle->Directive[
    RGBColor[0, 0, 1], 
    AbsoluteThickness[2]],
  ImageSize->550,
  PlotLabel->FormBox["\"Frames make plots look better\"", TraditionalForm],
  PlotRange->
   NCache[{{0, Pi}, {0., 0.9999999707682925}}, {{0, 3.141592653589793}, {0., 
     0.9999999707682925}}],
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.442061066234375*^9, 3.44206114575*^9}, 
   3.4420693129375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Sin", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "\[Pi]"}], "}"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "550"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Blue", ",", 
      RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "]"}]}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", "\"\<Use large font\>\""}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Red", ",", 
      RowBox[{"AbsoluteThickness", "[", "2", "]"}], ",", 
      RowBox[{"AbsoluteDashing", "[", 
       RowBox[{"{", 
        RowBox[{"6", ",", "3"}], "}"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"BaseStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"FontSize", "\[Rule]", "16"}], ",", 
      RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", "Bold"}], 
     "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4420612439375*^9, 3.442061263953125*^9}, {
  3.442061765640625*^9, 3.442061771171875*^9}, {3.44206910865625*^9, 
  3.442069119015625*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[1, 0, 0], AbsoluteThickness[2], AbsoluteDashing[{6, 3}], 
    LineBox[CompressedData["
1:eJwt2Hk0VV/YB3BD5VIqUyU0aJZIioS+l1+lKFOlQYRSkjIVDaJBKkpIkgyV
IkJJKEmIQpJCoVRkjnuM955zh7z7fdf717M+a92z9tn7PPu797pzXTxtXSXE
xMQkxcXE/q++kan5s8p7rdj/1wU9RYazbljhvEp5jxqp/Kfa+5ui9mLOT2vV
RlI7FN3ovChPXC0QNWaT2rwhuPRhVBBuOoytiyS1YW/UooSo62hNGNSxINXW
Q7k5NioJ43fMlLKJTELk0J6cmKgniIJ5rP+1JzAsN5cx9S0GN/dWacbBYnid
snTO8aoA73rTrWLzChx54RouMa8WQ6W1gyWcT6jv3iSd6lKPwdD5I80y9QjV
5orl7WrE7wV6xq5l3+C9tOJm8cMfeBPzxNsi5zv4+w5ntRz9DasW263lXr/g
8trOOuJAG+4/P7nf8GAr9g3WFxdfbkfAVAuvnYv+4OryfM+UkE40Dd86Mzmv
HRLF+frBp7rR0XxcX2xJJ+Q0LGp+xfaCozmJdzW5CxuTTJMHovogmjLH6k9f
N6ZT1RuC8jkY5LAP79TrRdz7AnHJQwOQeBG4+9KevzBSMxmbs38Q337c032w
tQ9Lf09tP3NsCCNpBon17H5Yds0p9TsxhLRt1xQnreuHF2f5Xc+AIbTaz3lt
YtaP50LrPc7BQ1g9ac2D1C39MFKOrF8XPQR6/Msyh9392GwrVz7x+RDmn106
z9e3Hx5lcim3h4dwu29AxH7Qj8xH8m65PsMwKi2qdBTjILjhjYmk/zCYVgXz
PZIc7JE4omJzehiXjrsl7pjAgcye9zV9F4aRralbajaJgwNTAlbNvzmMmzMt
B2RncDDHr0PiRv4wOvRn5OtocxD934sEL+EwHigZnG6w5yDgp0Pd0pARGEoU
lp3P4mDEzDjBNXQEioks6+6nHHhkqx5MCh9BSNKmfIscDuyDv/Plb43gnMu/
GZNecLBGY5c6P3UElE7UfN8SDpjj27wrKkdwsrVZv7mOAz9ZiymusqMQJl1b
MZHHAcdPoylRbhRmlhl9Sxnyvr+lkxuVRnGIeX7GXMCBXU6F3uZZo8iQ6Z93
boyDVbs2OOpqj2JWb0tAvRSFkQcmmeI2oyjo8mQrzKDgbbTaIjF6FEvSshQG
9CiIHY0Ouh47ioWPiiMfr6YQnjSQczZ+FNtexGu4rqGQLpGmuu/BKLZwzDK+
GFNoq1DmLHo+ChubC30x6yhs2y6IyK4bRXpBzqYyGwp6R4u+lslzkeur/y7b
nUJZ0syJedO4+Hjh6+HlHhRsP/shdSYX+0SzlmQeoXB0pfajK+pc+H616r3r
RSGVn3TScgUXqWuzg739KMy4dE610YaLaIOG8fnnKPCT1rn8jeBiv+jD/S8x
FNbyjKN0bnKxcumorHYshXOW+qX+t7mQ1qT0r9ymwBItUR93nws7seH3evEU
lHZPaVPN4aLxUESD3z0KyxWbnS0buIjRd4gKfUzB93BdZHQTF/3uu36VZlDI
K60uaW7hghWS1UNnUjD2fjP3YCcXf1Un6jk+pWBe86A1iMeFxgnNx7K5FFwv
ezpnK/Pwve7qyNhrCo9+uUXy1HhI6JaXVXxDoU/PpcRYnYe365JbFxRT8OnY
NrdKg4fCL9FFpqUUzpquaW0z5EHW+v5653cU4oTjnBUdefghveiETg2FWq84
J//7POzT2jWq9oOCRsRUwbEUYs1VY9+JLzwJuemTzsOyxIeysS3ke3B8qo48
42GnjtJqmV8UEg5brNxfykOGBVXytZWC+wGhlE0bD5rxdNLULvK9Lvrct+zk
oU+poz+LWO1ht9HmXh4akl/CopuM/6fe22yIh8l6I5wzPRT0nTO/G0vQ6MpJ
OfXhL4VxexyfaKjTCKubD6kBCo6n6zctXkiDV7Px/UXi/Djz9gUaNIxmVthK
DJLxm/SU566g4VT60neU+LPdlAvTTWl46sb+eDtM5ud3UU1pA43Y9LLAFSMU
gm8K8uXNaVzok5ufRLy6vqtP1paGf9ewv88ohUSbYrtxLjRSN8xZJ86jQHvp
DYofoKHyNv7fXmLbiIywsUM0tDylCguJx3+KLeZ70zBziYAXTcFjs7fG4Dka
/3G/ur1hKLw73FXGuUhDcZvGmsl8CrPDHPb2XaExV8dksj3xl8pN0V2RNOLc
U4o4xAZm6v9a7pHx62vxT0BhZXLV5fcPaZyp9qQMhRS0xnwUstNoLMoLzPUn
Vs9/uzg4m8bj5T+De4hVFTxyjuTSiBheFD5bRGGap+LaHS9p2E+qz9xKPHGR
61aNEhqFHRuW5xFPuCD7U6GcRmip1I12YrFfuW6iChrPl82eJPeP7P+YCYG1
tTSilpiZ7CfmDGWxCupp5BfbikKJuy133EhupKE0nP7pCXHLhEeP/H7T8Dix
On+YuNHFWtepncaUwkPV8mNkvkX0603dNNYG/OJpE1fPvLdRt4/Gef4tAwvi
d36b6lQHyHxuRkbuJy7+MugwYYTG58qqsdPEBVpx3RSPxtblpsGRxM9DTX2b
BDS+B3FnPSR+0tkrKh2jsfNq56c84nTTG5czJBlImMndekf8INFQIUaKwZ6i
48fqiRP5fxKCJjJYNkvB7TdxrN3VxYemMAh90u3dSxz1bGWOrQKDqsbRyCHi
q5NbjI2mM7ihtqaCJg5xv1ixQIXBp1m5iiLic++WbZ0ym0FO3AH/MeIA9a8t
tDqDAg/Lgf+1X2CgW9tCBhnXPIL+EXs1Lxz+oMEgRqFkvoDYXe/TmVwtBjU6
m3+PEu+P8mclrWAwvHryMw6xI2f2jct6DKgYqbgO4p3mFWo+axgMfl0d20y8
NcXrkf1aBj737md8JLaUUNZdb8pAt3D9tyLijY4lr7U2MIDMvBlZxKYFhzbO
MGfQE2boeYfYaJp8nbglg0rHiB8hxHo+BQ5/bRiUv1Z38iJeXuPSXb+dwQTx
EWYH8YKQHFGqAwPPRbu85hLPabO/HOnMYPuWgc2SxDPXjlM47crg349q/CH9
MJm7bbHlEQYa4o5uCcQsW9EzfW8GaaXTEv2JJbIeGs89zqDdTK3XipjnyrUd
CSDrbaBWzif9OVSS2NJyloHxa5VtH4n71Mzc3gczmKzrwyQQ/264dSbuKoM7
risuGRBXrjd4xI5nQDvZPdlF9seJ94FaQXcZXPfyyplOvHhT2fPXD8h6cp39
68h+C9lsVbImk4F2+c+164jXbXVtXlnE4NXnT9UyZH+O1Kc7+ZYy6OxYWZtH
9ney3UBn9jsGipvibzgRS+w+Paz1iUG+e+juTJIHxU6Rk5b8ZmAivNWzlOSF
V9vXqIPtDLhbSvvLuSQP9qsqp3QzqO6e98yBOPBg6oJ5gwzenUg/HULyyOjo
67VqEnwo7YiXf03yLP90j5fcfD4uJtjuKKIoHBBp8awW87HQuMBlJfG0oGNn
wjX56D3dqvWIQ+HY+bErE1eR3x+Pkb7ST2HFFaXk8Rv4EF15UalN8jYrxqSB
OcgH6+LWQLlO0l8zLtmv9uBDcCwzbl8HBdm46lY/Lz6W1PufyGkn+ZawgzN8
go+qO9dPbP5D8vXBESnOFT7aNy6/uu83hYfZtw3aHvPx7GTbpIXNpJ8F9hqN
T/ioPNZg79JE+mf9LJWaHPL8p8X58Y0UChvvC1++4kNKb+6Nid8o1I09fhP5
gY+/bjmtn+soiFsWrTf5y0eFMKZd7CMFh942m7saAiwRO9LaTc5H9ZUPTWO0
BDjwWfdrZyHJozMHda+uEED0Wbmp7RWZv1yf4ok1Ajw1uCDd8JJC2OrRb1bm
ApxdEzntPjlvX4ZIOY4dEkDwTmPgJzmvleZpujumCWAWpqzaTs7/iKgwu7RM
AbRNFstcIfcDGYm/piPZAnj7jWUvvUXysjVNJbRAAOdZHtru0aQfExd9zP0g
wItKVvuHcHIezpy3XJYjAGuOpoX6BfI+8jO5r1YIoaZ+o1aF3G+ocyfbJugL
IUNHLz3hRtZrsLHGxlAII8mG/74coOBUeyu16z8h2vdcyQjaR2FzuNIuhe1C
HMme7fJmD4V5MnKF7v5CxE/yOvnFkuSrOOu8cqEQ+lXhRht1SF5n3na0LhaC
eZUS4KpNQXr3UsNLZULolLdFnV1Ggf3McmSkWgibhi2mT5eQfnC5eaC2RYhd
dqlPR+eS9XqrbnFpTIhVM+71zJAn++GiseKoqQgzV2x/VzLAQS7LN6W2UoRr
e9nHH6Zy0Blwrr/oowhfpKMX73vIwYzB6yszP4twvGO/xOxkcv9tyii90iRC
2x4ZjchEDtald/407RFBrBhb9t7k4IvF7um5rH+ojrkmkXyeg4Fwk8u3zf7h
RYvd4kpyf9ZUmuruUv4PK6iyglgWB1Q4V1H36xjWlC8rdzDsx7xLl7Q93cXY
NdrWBz479KFt9/dm0y4x9rixPJV9h/5iY0cdk3tUnH2I8jN5btqLEz6ubtP6
xdnVuWeOGSj1wDLvjvk0Pwn2sJh4cv2zLnCE7gGSXAn2BbPDRnutOnHv27nn
R30l2ds3WPWsbWkH383Y6aRAkq2zd06b5qo/UBNF2nufGse+eIfufn+zFZ1m
YVWscePZHVadeVZnf+HtwmrMChvPHqd36mNJ6Xe4s1LGzZWewG7x+BMQuaQR
+XfnG7+NnMBWVumocl5cjxpDo3JbOSl2SqFD7DG7WtDud7Y6hUux7etn9/Cm
VKLCOmm77DQWOyLbV/XRs2K4GBilpkaz2LW8Lv7PlGwc6v84+iOGxVYN8wvb
65QNr3t718nfZrHT5aZX/lTORpD0hdaABBb7fpGMc9PVp4hvqlSxTWGxf9F2
K4M6svD15I4IYT6LfaBKqyotIB3mBT4nbb6z2EYzl4lFpt2DzdFxFSEtLPaO
tSMGtqr3sFM9ZlrhLxb71jPhAvnrd3Ew9GXOwnYWu1G1MEi1JxHBu8U4gj4W
2+11oPVgYByK+NdcUv6x2OUbrI8gPRLlWbOzv4tJs+PDbNj3r0eg2iV7bKqk
NJs5G3tXqjcc36vq409LSbPb2Hf5IUGhoONUvllPlWbnd8t8PJp+DmOWmQtC
5KXZiT2Kg5t6AzFBEsdeKUqzDX7I9+cEnYLiYRe5hcrS7Iat8Zrn072hMntk
r70KGc+jdXVNkDvU6y5mRahJs8VNHyvEpDtD49J0UflsabassGjpy3Qb6Bim
WQjmSrO1dK793/8D/wMuq3uF
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  BaseStyle->{FontSize -> 16, FontFamily -> "Arial", Bold},
  Frame->True,
  FrameStyle->Directive[
    RGBColor[0, 0, 1], 
    AbsoluteThickness[2]],
  ImageSize->550,
  PlotLabel->FormBox["\"Use large font\"", TraditionalForm],
  PlotRange->
   NCache[{{0, Pi}, {0., 0.9999999707682925}}, {{0, 3.141592653589793}, {0., 
     0.9999999707682925}}],
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.4420612478125*^9, 3.44206126421875*^9}, {
   3.442061766640625*^9, 3.44206177171875*^9}, 3.44206912009375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Sin", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "\[Pi]"}], "}"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "550"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Blue", ",", 
      RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "]"}]}], ",", 
   RowBox[{
   "PlotLabel", "\[Rule]", "\"\<You can easily write on the plot\>\""}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Red", ",", 
      RowBox[{"AbsoluteThickness", "[", "2", "]"}], ",", 
      RowBox[{"AbsoluteDashing", "[", 
       RowBox[{"{", 
        RowBox[{"6", ",", "3"}], "}"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"BaseStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"FontSize", "\[Rule]", "16"}], ",", 
      RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", "Bold"}], 
     "}"}]}], ",", 
   RowBox[{"Epilog", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Brown", ",", 
      RowBox[{"Inset", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<This is a nice plot\>\"", ",", "15", ",", "Bold"}], 
         "]"}], ",", 
        RowBox[{"ImageScaled", "[", 
         RowBox[{"{", 
          RowBox[{"0.27", ",", "0.67"}], "}"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"Center", ",", "Center"}], "}"}], ",", "Automatic", ",", 
        RowBox[{"{", 
         RowBox[{"0.71", ",", "1"}], "}"}]}], "]"}]}], "}"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.442061897859375*^9, 3.44206195365625*^9}, {
  3.442062076671875*^9, 3.44206207734375*^9}, {3.442062148734375*^9, 
  3.442062253453125*^9}, {3.442068855234375*^9, 3.442068863328125*^9}, {
  3.44206903315625*^9, 3.442069074140625*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[1, 0, 0], AbsoluteThickness[2], AbsoluteDashing[{6, 3}], 
    LineBox[CompressedData["
1:eJwt2Hk0VV/YB3BD5VIqUyU0aJZIioS+l1+lKFOlQYRSkjIVDaJBKkpIkgyV
IkJJKEmIQpJCoVRkjnuM955zh7z7fdf717M+a92z9tn7PPu797pzXTxtXSXE
xMQkxcXE/q++kan5s8p7rdj/1wU9RYazbljhvEp5jxqp/Kfa+5ui9mLOT2vV
RlI7FN3ovChPXC0QNWaT2rwhuPRhVBBuOoytiyS1YW/UooSo62hNGNSxINXW
Q7k5NioJ43fMlLKJTELk0J6cmKgniIJ5rP+1JzAsN5cx9S0GN/dWacbBYnid
snTO8aoA73rTrWLzChx54RouMa8WQ6W1gyWcT6jv3iSd6lKPwdD5I80y9QjV
5orl7WrE7wV6xq5l3+C9tOJm8cMfeBPzxNsi5zv4+w5ntRz9DasW263lXr/g
8trOOuJAG+4/P7nf8GAr9g3WFxdfbkfAVAuvnYv+4OryfM+UkE40Dd86Mzmv
HRLF+frBp7rR0XxcX2xJJ+Q0LGp+xfaCozmJdzW5CxuTTJMHovogmjLH6k9f
N6ZT1RuC8jkY5LAP79TrRdz7AnHJQwOQeBG4+9KevzBSMxmbs38Q337c032w
tQ9Lf09tP3NsCCNpBon17H5Yds0p9TsxhLRt1xQnreuHF2f5Xc+AIbTaz3lt
YtaP50LrPc7BQ1g9ac2D1C39MFKOrF8XPQR6/Msyh9392GwrVz7x+RDmn106
z9e3Hx5lcim3h4dwu29AxH7Qj8xH8m65PsMwKi2qdBTjILjhjYmk/zCYVgXz
PZIc7JE4omJzehiXjrsl7pjAgcye9zV9F4aRralbajaJgwNTAlbNvzmMmzMt
B2RncDDHr0PiRv4wOvRn5OtocxD934sEL+EwHigZnG6w5yDgp0Pd0pARGEoU
lp3P4mDEzDjBNXQEioks6+6nHHhkqx5MCh9BSNKmfIscDuyDv/Plb43gnMu/
GZNecLBGY5c6P3UElE7UfN8SDpjj27wrKkdwsrVZv7mOAz9ZiymusqMQJl1b
MZHHAcdPoylRbhRmlhl9Sxnyvr+lkxuVRnGIeX7GXMCBXU6F3uZZo8iQ6Z93
boyDVbs2OOpqj2JWb0tAvRSFkQcmmeI2oyjo8mQrzKDgbbTaIjF6FEvSshQG
9CiIHY0Ouh47ioWPiiMfr6YQnjSQczZ+FNtexGu4rqGQLpGmuu/BKLZwzDK+
GFNoq1DmLHo+ChubC30x6yhs2y6IyK4bRXpBzqYyGwp6R4u+lslzkeur/y7b
nUJZ0syJedO4+Hjh6+HlHhRsP/shdSYX+0SzlmQeoXB0pfajK+pc+H616r3r
RSGVn3TScgUXqWuzg739KMy4dE610YaLaIOG8fnnKPCT1rn8jeBiv+jD/S8x
FNbyjKN0bnKxcumorHYshXOW+qX+t7mQ1qT0r9ymwBItUR93nws7seH3evEU
lHZPaVPN4aLxUESD3z0KyxWbnS0buIjRd4gKfUzB93BdZHQTF/3uu36VZlDI
K60uaW7hghWS1UNnUjD2fjP3YCcXf1Un6jk+pWBe86A1iMeFxgnNx7K5FFwv
ezpnK/Pwve7qyNhrCo9+uUXy1HhI6JaXVXxDoU/PpcRYnYe365JbFxRT8OnY
NrdKg4fCL9FFpqUUzpquaW0z5EHW+v5653cU4oTjnBUdefghveiETg2FWq84
J//7POzT2jWq9oOCRsRUwbEUYs1VY9+JLzwJuemTzsOyxIeysS3ke3B8qo48
42GnjtJqmV8UEg5brNxfykOGBVXytZWC+wGhlE0bD5rxdNLULvK9Lvrct+zk
oU+poz+LWO1ht9HmXh4akl/CopuM/6fe22yIh8l6I5wzPRT0nTO/G0vQ6MpJ
OfXhL4VxexyfaKjTCKubD6kBCo6n6zctXkiDV7Px/UXi/Djz9gUaNIxmVthK
DJLxm/SU566g4VT60neU+LPdlAvTTWl46sb+eDtM5ud3UU1pA43Y9LLAFSMU
gm8K8uXNaVzok5ufRLy6vqtP1paGf9ewv88ohUSbYrtxLjRSN8xZJ86jQHvp
DYofoKHyNv7fXmLbiIywsUM0tDylCguJx3+KLeZ70zBziYAXTcFjs7fG4Dka
/3G/ur1hKLw73FXGuUhDcZvGmsl8CrPDHPb2XaExV8dksj3xl8pN0V2RNOLc
U4o4xAZm6v9a7pHx62vxT0BhZXLV5fcPaZyp9qQMhRS0xnwUstNoLMoLzPUn
Vs9/uzg4m8bj5T+De4hVFTxyjuTSiBheFD5bRGGap+LaHS9p2E+qz9xKPHGR
61aNEhqFHRuW5xFPuCD7U6GcRmip1I12YrFfuW6iChrPl82eJPeP7P+YCYG1
tTSilpiZ7CfmDGWxCupp5BfbikKJuy133EhupKE0nP7pCXHLhEeP/H7T8Dix
On+YuNHFWtepncaUwkPV8mNkvkX0603dNNYG/OJpE1fPvLdRt4/Gef4tAwvi
d36b6lQHyHxuRkbuJy7+MugwYYTG58qqsdPEBVpx3RSPxtblpsGRxM9DTX2b
BDS+B3FnPSR+0tkrKh2jsfNq56c84nTTG5czJBlImMndekf8INFQIUaKwZ6i
48fqiRP5fxKCJjJYNkvB7TdxrN3VxYemMAh90u3dSxz1bGWOrQKDqsbRyCHi
q5NbjI2mM7ihtqaCJg5xv1ixQIXBp1m5iiLic++WbZ0ym0FO3AH/MeIA9a8t
tDqDAg/Lgf+1X2CgW9tCBhnXPIL+EXs1Lxz+oMEgRqFkvoDYXe/TmVwtBjU6
m3+PEu+P8mclrWAwvHryMw6xI2f2jct6DKgYqbgO4p3mFWo+axgMfl0d20y8
NcXrkf1aBj737md8JLaUUNZdb8pAt3D9tyLijY4lr7U2MIDMvBlZxKYFhzbO
MGfQE2boeYfYaJp8nbglg0rHiB8hxHo+BQ5/bRiUv1Z38iJeXuPSXb+dwQTx
EWYH8YKQHFGqAwPPRbu85hLPabO/HOnMYPuWgc2SxDPXjlM47crg349q/CH9
MJm7bbHlEQYa4o5uCcQsW9EzfW8GaaXTEv2JJbIeGs89zqDdTK3XipjnyrUd
CSDrbaBWzif9OVSS2NJyloHxa5VtH4n71Mzc3gczmKzrwyQQ/264dSbuKoM7
risuGRBXrjd4xI5nQDvZPdlF9seJ94FaQXcZXPfyyplOvHhT2fPXD8h6cp39
68h+C9lsVbImk4F2+c+164jXbXVtXlnE4NXnT9UyZH+O1Kc7+ZYy6OxYWZtH
9ney3UBn9jsGipvibzgRS+w+Paz1iUG+e+juTJIHxU6Rk5b8ZmAivNWzlOSF
V9vXqIPtDLhbSvvLuSQP9qsqp3QzqO6e98yBOPBg6oJ5gwzenUg/HULyyOjo
67VqEnwo7YiXf03yLP90j5fcfD4uJtjuKKIoHBBp8awW87HQuMBlJfG0oGNn
wjX56D3dqvWIQ+HY+bErE1eR3x+Pkb7ST2HFFaXk8Rv4EF15UalN8jYrxqSB
OcgH6+LWQLlO0l8zLtmv9uBDcCwzbl8HBdm46lY/Lz6W1PufyGkn+ZawgzN8
go+qO9dPbP5D8vXBESnOFT7aNy6/uu83hYfZtw3aHvPx7GTbpIXNpJ8F9hqN
T/ioPNZg79JE+mf9LJWaHPL8p8X58Y0UChvvC1++4kNKb+6Nid8o1I09fhP5
gY+/bjmtn+soiFsWrTf5y0eFMKZd7CMFh942m7saAiwRO9LaTc5H9ZUPTWO0
BDjwWfdrZyHJozMHda+uEED0Wbmp7RWZv1yf4ok1Ajw1uCDd8JJC2OrRb1bm
ApxdEzntPjlvX4ZIOY4dEkDwTmPgJzmvleZpujumCWAWpqzaTs7/iKgwu7RM
AbRNFstcIfcDGYm/piPZAnj7jWUvvUXysjVNJbRAAOdZHtru0aQfExd9zP0g
wItKVvuHcHIezpy3XJYjAGuOpoX6BfI+8jO5r1YIoaZ+o1aF3G+ocyfbJugL
IUNHLz3hRtZrsLHGxlAII8mG/74coOBUeyu16z8h2vdcyQjaR2FzuNIuhe1C
HMme7fJmD4V5MnKF7v5CxE/yOvnFkuSrOOu8cqEQ+lXhRht1SF5n3na0LhaC
eZUS4KpNQXr3UsNLZULolLdFnV1Ggf3McmSkWgibhi2mT5eQfnC5eaC2RYhd
dqlPR+eS9XqrbnFpTIhVM+71zJAn++GiseKoqQgzV2x/VzLAQS7LN6W2UoRr
e9nHH6Zy0Blwrr/oowhfpKMX73vIwYzB6yszP4twvGO/xOxkcv9tyii90iRC
2x4ZjchEDtald/407RFBrBhb9t7k4IvF7um5rH+ojrkmkXyeg4Fwk8u3zf7h
RYvd4kpyf9ZUmuruUv4PK6iyglgWB1Q4V1H36xjWlC8rdzDsx7xLl7Q93cXY
NdrWBz479KFt9/dm0y4x9rixPJV9h/5iY0cdk3tUnH2I8jN5btqLEz6ubtP6
xdnVuWeOGSj1wDLvjvk0Pwn2sJh4cv2zLnCE7gGSXAn2BbPDRnutOnHv27nn
R30l2ds3WPWsbWkH383Y6aRAkq2zd06b5qo/UBNF2nufGse+eIfufn+zFZ1m
YVWscePZHVadeVZnf+HtwmrMChvPHqd36mNJ6Xe4s1LGzZWewG7x+BMQuaQR
+XfnG7+NnMBWVumocl5cjxpDo3JbOSl2SqFD7DG7WtDud7Y6hUux7etn9/Cm
VKLCOmm77DQWOyLbV/XRs2K4GBilpkaz2LW8Lv7PlGwc6v84+iOGxVYN8wvb
65QNr3t718nfZrHT5aZX/lTORpD0hdaABBb7fpGMc9PVp4hvqlSxTWGxf9F2
K4M6svD15I4IYT6LfaBKqyotIB3mBT4nbb6z2EYzl4lFpt2DzdFxFSEtLPaO
tSMGtqr3sFM9ZlrhLxb71jPhAvnrd3Ew9GXOwnYWu1G1MEi1JxHBu8U4gj4W
2+11oPVgYByK+NdcUv6x2OUbrI8gPRLlWbOzv4tJs+PDbNj3r0eg2iV7bKqk
NJs5G3tXqjcc36vq409LSbPb2Hf5IUGhoONUvllPlWbnd8t8PJp+DmOWmQtC
5KXZiT2Kg5t6AzFBEsdeKUqzDX7I9+cEnYLiYRe5hcrS7Iat8Zrn072hMntk
r70KGc+jdXVNkDvU6y5mRahJs8VNHyvEpDtD49J0UflsabassGjpy3Qb6Bim
WQjmSrO1dK793/8D/wMuq3uF
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  BaseStyle->{FontSize -> 16, FontFamily -> "Arial", Bold},
  Epilog->{
    RGBColor[0.6, 0.4, 0.2], 
    InsetBox[
     BoxData[
      FormBox[
       StyleBox["\"This is a nice plot\"", 15, Bold, StripOnInput -> False], 
       TraditionalForm]], 
     ImageScaled[{0.27, 0.67}], {Center, Center}, Automatic, {0.71, 1}]},
  Frame->True,
  FrameStyle->Directive[
    RGBColor[0, 0, 1], 
    AbsoluteThickness[2]],
  ImageSize->550,
  PlotLabel->FormBox["\"You can easily write on the plot\"", TraditionalForm],
  PlotRange->
   NCache[{{0, Pi}, {0., 0.9999999707682925}}, {{0, 3.141592653589793}, {0., 
     0.9999999707682925}}],
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.44206194609375*^9, 3.44206195425*^9}, 3.442062078*^9, {
   3.442062152484375*^9, 3.44206225384375*^9}, {3.442069045046875*^9, 
   3.44206907475*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Sin", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "\[Pi]"}], "}"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "550"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Blue", ",", 
      RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "]"}]}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", "\"\<Add some arrows\>\""}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Red", ",", 
      RowBox[{"AbsoluteThickness", "[", "2", "]"}], ",", 
      RowBox[{"AbsoluteDashing", "[", 
       RowBox[{"{", 
        RowBox[{"6", ",", "3"}], "}"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"BaseStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"FontSize", "\[Rule]", "16"}], ",", 
      RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", "Bold"}], 
     "}"}]}], ",", 
   RowBox[{"Epilog", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Brown", ",", 
      RowBox[{"Inset", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<This is a nice plot\>\"", ",", "15", ",", "Bold"}], 
         "]"}], ",", 
        RowBox[{"ImageScaled", "[", 
         RowBox[{"{", 
          RowBox[{"0.6", ",", "0.57"}], "}"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"Center", ",", "Center"}], "}"}]}], "]"}], ",", "Black", ",", 
      RowBox[{"AbsoluteThickness", "[", "3", "]"}], ",", 
      RowBox[{"Arrowheads", "[", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0.03"}], "}"}], "]"}], ",", 
      RowBox[{"Arrow", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"ImageScaled", "[", 
          RowBox[{"{", 
           RowBox[{"0.6", ",", "0.6"}], "}"}], "]"}], ",", 
         RowBox[{"ImageScaled", "[", 
          RowBox[{"{", 
           RowBox[{"0.72", ",", "0.72"}], "}"}], "]"}]}], "}"}], "]"}]}], 
     "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.442063678609375*^9, 3.44206382103125*^9}, {
  3.442068560171875*^9, 3.44206859425*^9}, {3.442068772203125*^9, 
  3.44206877559375*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[1, 0, 0], AbsoluteThickness[2], AbsoluteDashing[{6, 3}], 
    LineBox[CompressedData["
1:eJwt2Hk0VV/YB3BD5VIqUyU0aJZIioS+l1+lKFOlQYRSkjIVDaJBKkpIkgyV
IkJJKEmIQpJCoVRkjnuM955zh7z7fdf717M+a92z9tn7PPu797pzXTxtXSXE
xMQkxcXE/q++kan5s8p7rdj/1wU9RYazbljhvEp5jxqp/Kfa+5ui9mLOT2vV
RlI7FN3ovChPXC0QNWaT2rwhuPRhVBBuOoytiyS1YW/UooSo62hNGNSxINXW
Q7k5NioJ43fMlLKJTELk0J6cmKgniIJ5rP+1JzAsN5cx9S0GN/dWacbBYnid
snTO8aoA73rTrWLzChx54RouMa8WQ6W1gyWcT6jv3iSd6lKPwdD5I80y9QjV
5orl7WrE7wV6xq5l3+C9tOJm8cMfeBPzxNsi5zv4+w5ntRz9DasW263lXr/g
8trOOuJAG+4/P7nf8GAr9g3WFxdfbkfAVAuvnYv+4OryfM+UkE40Dd86Mzmv
HRLF+frBp7rR0XxcX2xJJ+Q0LGp+xfaCozmJdzW5CxuTTJMHovogmjLH6k9f
N6ZT1RuC8jkY5LAP79TrRdz7AnHJQwOQeBG4+9KevzBSMxmbs38Q337c032w
tQ9Lf09tP3NsCCNpBon17H5Yds0p9TsxhLRt1xQnreuHF2f5Xc+AIbTaz3lt
YtaP50LrPc7BQ1g9ac2D1C39MFKOrF8XPQR6/Msyh9392GwrVz7x+RDmn106
z9e3Hx5lcim3h4dwu29AxH7Qj8xH8m65PsMwKi2qdBTjILjhjYmk/zCYVgXz
PZIc7JE4omJzehiXjrsl7pjAgcye9zV9F4aRralbajaJgwNTAlbNvzmMmzMt
B2RncDDHr0PiRv4wOvRn5OtocxD934sEL+EwHigZnG6w5yDgp0Pd0pARGEoU
lp3P4mDEzDjBNXQEioks6+6nHHhkqx5MCh9BSNKmfIscDuyDv/Plb43gnMu/
GZNecLBGY5c6P3UElE7UfN8SDpjj27wrKkdwsrVZv7mOAz9ZiymusqMQJl1b
MZHHAcdPoylRbhRmlhl9Sxnyvr+lkxuVRnGIeX7GXMCBXU6F3uZZo8iQ6Z93
boyDVbs2OOpqj2JWb0tAvRSFkQcmmeI2oyjo8mQrzKDgbbTaIjF6FEvSshQG
9CiIHY0Ouh47ioWPiiMfr6YQnjSQczZ+FNtexGu4rqGQLpGmuu/BKLZwzDK+
GFNoq1DmLHo+ChubC30x6yhs2y6IyK4bRXpBzqYyGwp6R4u+lslzkeur/y7b
nUJZ0syJedO4+Hjh6+HlHhRsP/shdSYX+0SzlmQeoXB0pfajK+pc+H616r3r
RSGVn3TScgUXqWuzg739KMy4dE610YaLaIOG8fnnKPCT1rn8jeBiv+jD/S8x
FNbyjKN0bnKxcumorHYshXOW+qX+t7mQ1qT0r9ymwBItUR93nws7seH3evEU
lHZPaVPN4aLxUESD3z0KyxWbnS0buIjRd4gKfUzB93BdZHQTF/3uu36VZlDI
K60uaW7hghWS1UNnUjD2fjP3YCcXf1Un6jk+pWBe86A1iMeFxgnNx7K5FFwv
ezpnK/Pwve7qyNhrCo9+uUXy1HhI6JaXVXxDoU/PpcRYnYe365JbFxRT8OnY
NrdKg4fCL9FFpqUUzpquaW0z5EHW+v5653cU4oTjnBUdefghveiETg2FWq84
J//7POzT2jWq9oOCRsRUwbEUYs1VY9+JLzwJuemTzsOyxIeysS3ke3B8qo48
42GnjtJqmV8UEg5brNxfykOGBVXytZWC+wGhlE0bD5rxdNLULvK9Lvrct+zk
oU+poz+LWO1ht9HmXh4akl/CopuM/6fe22yIh8l6I5wzPRT0nTO/G0vQ6MpJ
OfXhL4VxexyfaKjTCKubD6kBCo6n6zctXkiDV7Px/UXi/Djz9gUaNIxmVthK
DJLxm/SU566g4VT60neU+LPdlAvTTWl46sb+eDtM5ud3UU1pA43Y9LLAFSMU
gm8K8uXNaVzok5ufRLy6vqtP1paGf9ewv88ohUSbYrtxLjRSN8xZJ86jQHvp
DYofoKHyNv7fXmLbiIywsUM0tDylCguJx3+KLeZ70zBziYAXTcFjs7fG4Dka
/3G/ur1hKLw73FXGuUhDcZvGmsl8CrPDHPb2XaExV8dksj3xl8pN0V2RNOLc
U4o4xAZm6v9a7pHx62vxT0BhZXLV5fcPaZyp9qQMhRS0xnwUstNoLMoLzPUn
Vs9/uzg4m8bj5T+De4hVFTxyjuTSiBheFD5bRGGap+LaHS9p2E+qz9xKPHGR
61aNEhqFHRuW5xFPuCD7U6GcRmip1I12YrFfuW6iChrPl82eJPeP7P+YCYG1
tTSilpiZ7CfmDGWxCupp5BfbikKJuy133EhupKE0nP7pCXHLhEeP/H7T8Dix
On+YuNHFWtepncaUwkPV8mNkvkX0603dNNYG/OJpE1fPvLdRt4/Gef4tAwvi
d36b6lQHyHxuRkbuJy7+MugwYYTG58qqsdPEBVpx3RSPxtblpsGRxM9DTX2b
BDS+B3FnPSR+0tkrKh2jsfNq56c84nTTG5czJBlImMndekf8INFQIUaKwZ6i
48fqiRP5fxKCJjJYNkvB7TdxrN3VxYemMAh90u3dSxz1bGWOrQKDqsbRyCHi
q5NbjI2mM7ihtqaCJg5xv1ixQIXBp1m5iiLic++WbZ0ym0FO3AH/MeIA9a8t
tDqDAg/Lgf+1X2CgW9tCBhnXPIL+EXs1Lxz+oMEgRqFkvoDYXe/TmVwtBjU6
m3+PEu+P8mclrWAwvHryMw6xI2f2jct6DKgYqbgO4p3mFWo+axgMfl0d20y8
NcXrkf1aBj737md8JLaUUNZdb8pAt3D9tyLijY4lr7U2MIDMvBlZxKYFhzbO
MGfQE2boeYfYaJp8nbglg0rHiB8hxHo+BQ5/bRiUv1Z38iJeXuPSXb+dwQTx
EWYH8YKQHFGqAwPPRbu85hLPabO/HOnMYPuWgc2SxDPXjlM47crg349q/CH9
MJm7bbHlEQYa4o5uCcQsW9EzfW8GaaXTEv2JJbIeGs89zqDdTK3XipjnyrUd
CSDrbaBWzif9OVSS2NJyloHxa5VtH4n71Mzc3gczmKzrwyQQ/264dSbuKoM7
risuGRBXrjd4xI5nQDvZPdlF9seJ94FaQXcZXPfyyplOvHhT2fPXD8h6cp39
68h+C9lsVbImk4F2+c+164jXbXVtXlnE4NXnT9UyZH+O1Kc7+ZYy6OxYWZtH
9ney3UBn9jsGipvibzgRS+w+Paz1iUG+e+juTJIHxU6Rk5b8ZmAivNWzlOSF
V9vXqIPtDLhbSvvLuSQP9qsqp3QzqO6e98yBOPBg6oJ5gwzenUg/HULyyOjo
67VqEnwo7YiXf03yLP90j5fcfD4uJtjuKKIoHBBp8awW87HQuMBlJfG0oGNn
wjX56D3dqvWIQ+HY+bErE1eR3x+Pkb7ST2HFFaXk8Rv4EF15UalN8jYrxqSB
OcgH6+LWQLlO0l8zLtmv9uBDcCwzbl8HBdm46lY/Lz6W1PufyGkn+ZawgzN8
go+qO9dPbP5D8vXBESnOFT7aNy6/uu83hYfZtw3aHvPx7GTbpIXNpJ8F9hqN
T/ioPNZg79JE+mf9LJWaHPL8p8X58Y0UChvvC1++4kNKb+6Nid8o1I09fhP5
gY+/bjmtn+soiFsWrTf5y0eFMKZd7CMFh942m7saAiwRO9LaTc5H9ZUPTWO0
BDjwWfdrZyHJozMHda+uEED0Wbmp7RWZv1yf4ok1Ajw1uCDd8JJC2OrRb1bm
ApxdEzntPjlvX4ZIOY4dEkDwTmPgJzmvleZpujumCWAWpqzaTs7/iKgwu7RM
AbRNFstcIfcDGYm/piPZAnj7jWUvvUXysjVNJbRAAOdZHtru0aQfExd9zP0g
wItKVvuHcHIezpy3XJYjAGuOpoX6BfI+8jO5r1YIoaZ+o1aF3G+ocyfbJugL
IUNHLz3hRtZrsLHGxlAII8mG/74coOBUeyu16z8h2vdcyQjaR2FzuNIuhe1C
HMme7fJmD4V5MnKF7v5CxE/yOvnFkuSrOOu8cqEQ+lXhRht1SF5n3na0LhaC
eZUS4KpNQXr3UsNLZULolLdFnV1Ggf3McmSkWgibhi2mT5eQfnC5eaC2RYhd
dqlPR+eS9XqrbnFpTIhVM+71zJAn++GiseKoqQgzV2x/VzLAQS7LN6W2UoRr
e9nHH6Zy0Blwrr/oowhfpKMX73vIwYzB6yszP4twvGO/xOxkcv9tyii90iRC
2x4ZjchEDtald/407RFBrBhb9t7k4IvF7um5rH+ojrkmkXyeg4Fwk8u3zf7h
RYvd4kpyf9ZUmuruUv4PK6iyglgWB1Q4V1H36xjWlC8rdzDsx7xLl7Q93cXY
NdrWBz479KFt9/dm0y4x9rixPJV9h/5iY0cdk3tUnH2I8jN5btqLEz6ubtP6
xdnVuWeOGSj1wDLvjvk0Pwn2sJh4cv2zLnCE7gGSXAn2BbPDRnutOnHv27nn
R30l2ds3WPWsbWkH383Y6aRAkq2zd06b5qo/UBNF2nufGse+eIfufn+zFZ1m
YVWscePZHVadeVZnf+HtwmrMChvPHqd36mNJ6Xe4s1LGzZWewG7x+BMQuaQR
+XfnG7+NnMBWVumocl5cjxpDo3JbOSl2SqFD7DG7WtDud7Y6hUux7etn9/Cm
VKLCOmm77DQWOyLbV/XRs2K4GBilpkaz2LW8Lv7PlGwc6v84+iOGxVYN8wvb
65QNr3t718nfZrHT5aZX/lTORpD0hdaABBb7fpGMc9PVp4hvqlSxTWGxf9F2
K4M6svD15I4IYT6LfaBKqyotIB3mBT4nbb6z2EYzl4lFpt2DzdFxFSEtLPaO
tSMGtqr3sFM9ZlrhLxb71jPhAvnrd3Ew9GXOwnYWu1G1MEi1JxHBu8U4gj4W
2+11oPVgYByK+NdcUv6x2OUbrI8gPRLlWbOzv4tJs+PDbNj3r0eg2iV7bKqk
NJs5G3tXqjcc36vq409LSbPb2Hf5IUGhoONUvllPlWbnd8t8PJp+DmOWmQtC
5KXZiT2Kg5t6AzFBEsdeKUqzDX7I9+cEnYLiYRe5hcrS7Iat8Zrn072hMntk
r70KGc+jdXVNkDvU6y5mRahJs8VNHyvEpDtD49J0UflsabassGjpy3Qb6Bim
WQjmSrO1dK793/8D/wMuq3uF
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  BaseStyle->{FontSize -> 16, FontFamily -> "Arial", Bold},
  Epilog->{
    RGBColor[0.6, 0.4, 0.2], 
    InsetBox[
     BoxData[
      FormBox[
       StyleBox["\"This is a nice plot\"", 15, Bold, StripOnInput -> False], 
       TraditionalForm]], 
     ImageScaled[{0.6, 0.57}], {Center, Center}], 
    GrayLevel[0], 
    AbsoluteThickness[3], 
    Arrowheads[{0, 0.03}], 
    ArrowBox[{
      ImageScaled[{0.6, 0.6}], 
      ImageScaled[{0.72, 0.72}]}]},
  Frame->True,
  FrameStyle->Directive[
    RGBColor[0, 0, 1], 
    AbsoluteThickness[2]],
  ImageSize->550,
  PlotLabel->FormBox["\"Add some arrows\"", TraditionalForm],
  PlotRange->
   NCache[{{0, Pi}, {0., 0.9999999707682925}}, {{0, 3.141592653589793}, {0., 
     0.9999999707682925}}],
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.44206370553125*^9, {3.442063736*^9, 3.44206382159375*^9}, {
   3.442068568078125*^9, 3.442068601140625*^9}, 3.4420687765*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"pll", "=", "\[IndentingNewLine]", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"Sin", "[", "x", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "0", ",", "\[Pi]"}], "}"}], ",", 
    RowBox[{"ImageSize", "\[Rule]", "550"}], ",", 
    RowBox[{"Frame", "\[Rule]", "True"}], ",", 
    RowBox[{"FrameStyle", "\[Rule]", 
     RowBox[{"Directive", "[", 
      RowBox[{"Blue", ",", 
       RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "]"}]}], ",", 
    RowBox[{"PlotLabel", "\[Rule]", "\"\<Now add coordinate labels\>\""}], 
    ",", 
    RowBox[{"FrameLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\"\<y axis\>\"", ",", "\"\<Right label\>\""}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\"\<x axis\>\"", ",", "\"\<Top label\>\""}], "}"}]}], 
      "}"}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"Red", ",", 
       RowBox[{"AbsoluteThickness", "[", "2", "]"}], ",", 
       RowBox[{"AbsoluteDashing", "[", 
        RowBox[{"{", 
         RowBox[{"6", ",", "3"}], "}"}], "]"}]}], "}"}]}], ",", 
    RowBox[{"BaseStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"FontSize", "\[Rule]", "16"}], ",", 
       RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", "Bold"}], 
      "}"}]}], ",", 
    RowBox[{"Epilog", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"Brown", ",", 
       RowBox[{"Inset", "[", 
        RowBox[{
         RowBox[{"Style", "[", 
          RowBox[{"\"\<Even better one\>\"", ",", "15", ",", "Bold"}], "]"}], 
         ",", 
         RowBox[{"ImageScaled", "[", 
          RowBox[{"{", 
           RowBox[{"0.6", ",", "0.57"}], "}"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"Center", ",", "Center"}], "}"}]}], "]"}], ",", "Black", 
       ",", 
       RowBox[{"AbsoluteThickness", "[", "3", "]"}], ",", 
       RowBox[{"Arrowheads", "[", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0.03"}], "}"}], "]"}], ",", 
       RowBox[{"Arrow", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"ImageScaled", "[", 
           RowBox[{"{", 
            RowBox[{"0.6", ",", "0.6"}], "}"}], "]"}], ",", 
          RowBox[{"ImageScaled", "[", 
           RowBox[{"{", 
            RowBox[{"0.7", ",", "0.7"}], "}"}], "]"}]}], "}"}], "]"}]}], 
      "}"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.442064306578125*^9, 3.442064401171875*^9}, {
  3.442065368296875*^9, 3.442065370234375*^9}, {3.4420685176875*^9, 
  3.442068539484375*^9}, {3.442068875265625*^9, 3.442068946546875*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[1, 0, 0], AbsoluteThickness[2], AbsoluteDashing[{6, 3}], 
    LineBox[CompressedData["
1:eJwt2Hk0VV/YB3BD5VIqUyU0aJZIioS+l1+lKFOlQYRSkjIVDaJBKkpIkgyV
IkJJKEmIQpJCoVRkjnuM955zh7z7fdf717M+a92z9tn7PPu797pzXTxtXSXE
xMQkxcXE/q++kan5s8p7rdj/1wU9RYazbljhvEp5jxqp/Kfa+5ui9mLOT2vV
RlI7FN3ovChPXC0QNWaT2rwhuPRhVBBuOoytiyS1YW/UooSo62hNGNSxINXW
Q7k5NioJ43fMlLKJTELk0J6cmKgniIJ5rP+1JzAsN5cx9S0GN/dWacbBYnid
snTO8aoA73rTrWLzChx54RouMa8WQ6W1gyWcT6jv3iSd6lKPwdD5I80y9QjV
5orl7WrE7wV6xq5l3+C9tOJm8cMfeBPzxNsi5zv4+w5ntRz9DasW263lXr/g
8trOOuJAG+4/P7nf8GAr9g3WFxdfbkfAVAuvnYv+4OryfM+UkE40Dd86Mzmv
HRLF+frBp7rR0XxcX2xJJ+Q0LGp+xfaCozmJdzW5CxuTTJMHovogmjLH6k9f
N6ZT1RuC8jkY5LAP79TrRdz7AnHJQwOQeBG4+9KevzBSMxmbs38Q337c032w
tQ9Lf09tP3NsCCNpBon17H5Yds0p9TsxhLRt1xQnreuHF2f5Xc+AIbTaz3lt
YtaP50LrPc7BQ1g9ac2D1C39MFKOrF8XPQR6/Msyh9392GwrVz7x+RDmn106
z9e3Hx5lcim3h4dwu29AxH7Qj8xH8m65PsMwKi2qdBTjILjhjYmk/zCYVgXz
PZIc7JE4omJzehiXjrsl7pjAgcye9zV9F4aRralbajaJgwNTAlbNvzmMmzMt
B2RncDDHr0PiRv4wOvRn5OtocxD934sEL+EwHigZnG6w5yDgp0Pd0pARGEoU
lp3P4mDEzDjBNXQEioks6+6nHHhkqx5MCh9BSNKmfIscDuyDv/Plb43gnMu/
GZNecLBGY5c6P3UElE7UfN8SDpjj27wrKkdwsrVZv7mOAz9ZiymusqMQJl1b
MZHHAcdPoylRbhRmlhl9Sxnyvr+lkxuVRnGIeX7GXMCBXU6F3uZZo8iQ6Z93
boyDVbs2OOpqj2JWb0tAvRSFkQcmmeI2oyjo8mQrzKDgbbTaIjF6FEvSshQG
9CiIHY0Ouh47ioWPiiMfr6YQnjSQczZ+FNtexGu4rqGQLpGmuu/BKLZwzDK+
GFNoq1DmLHo+ChubC30x6yhs2y6IyK4bRXpBzqYyGwp6R4u+lslzkeur/y7b
nUJZ0syJedO4+Hjh6+HlHhRsP/shdSYX+0SzlmQeoXB0pfajK+pc+H616r3r
RSGVn3TScgUXqWuzg739KMy4dE610YaLaIOG8fnnKPCT1rn8jeBiv+jD/S8x
FNbyjKN0bnKxcumorHYshXOW+qX+t7mQ1qT0r9ymwBItUR93nws7seH3evEU
lHZPaVPN4aLxUESD3z0KyxWbnS0buIjRd4gKfUzB93BdZHQTF/3uu36VZlDI
K60uaW7hghWS1UNnUjD2fjP3YCcXf1Un6jk+pWBe86A1iMeFxgnNx7K5FFwv
ezpnK/Pwve7qyNhrCo9+uUXy1HhI6JaXVXxDoU/PpcRYnYe365JbFxRT8OnY
NrdKg4fCL9FFpqUUzpquaW0z5EHW+v5653cU4oTjnBUdefghveiETg2FWq84
J//7POzT2jWq9oOCRsRUwbEUYs1VY9+JLzwJuemTzsOyxIeysS3ke3B8qo48
42GnjtJqmV8UEg5brNxfykOGBVXytZWC+wGhlE0bD5rxdNLULvK9Lvrct+zk
oU+poz+LWO1ht9HmXh4akl/CopuM/6fe22yIh8l6I5wzPRT0nTO/G0vQ6MpJ
OfXhL4VxexyfaKjTCKubD6kBCo6n6zctXkiDV7Px/UXi/Djz9gUaNIxmVthK
DJLxm/SU566g4VT60neU+LPdlAvTTWl46sb+eDtM5ud3UU1pA43Y9LLAFSMU
gm8K8uXNaVzok5ufRLy6vqtP1paGf9ewv88ohUSbYrtxLjRSN8xZJ86jQHvp
DYofoKHyNv7fXmLbiIywsUM0tDylCguJx3+KLeZ70zBziYAXTcFjs7fG4Dka
/3G/ur1hKLw73FXGuUhDcZvGmsl8CrPDHPb2XaExV8dksj3xl8pN0V2RNOLc
U4o4xAZm6v9a7pHx62vxT0BhZXLV5fcPaZyp9qQMhRS0xnwUstNoLMoLzPUn
Vs9/uzg4m8bj5T+De4hVFTxyjuTSiBheFD5bRGGap+LaHS9p2E+qz9xKPHGR
61aNEhqFHRuW5xFPuCD7U6GcRmip1I12YrFfuW6iChrPl82eJPeP7P+YCYG1
tTSilpiZ7CfmDGWxCupp5BfbikKJuy133EhupKE0nP7pCXHLhEeP/H7T8Dix
On+YuNHFWtepncaUwkPV8mNkvkX0603dNNYG/OJpE1fPvLdRt4/Gef4tAwvi
d36b6lQHyHxuRkbuJy7+MugwYYTG58qqsdPEBVpx3RSPxtblpsGRxM9DTX2b
BDS+B3FnPSR+0tkrKh2jsfNq56c84nTTG5czJBlImMndekf8INFQIUaKwZ6i
48fqiRP5fxKCJjJYNkvB7TdxrN3VxYemMAh90u3dSxz1bGWOrQKDqsbRyCHi
q5NbjI2mM7ihtqaCJg5xv1ixQIXBp1m5iiLic++WbZ0ym0FO3AH/MeIA9a8t
tDqDAg/Lgf+1X2CgW9tCBhnXPIL+EXs1Lxz+oMEgRqFkvoDYXe/TmVwtBjU6
m3+PEu+P8mclrWAwvHryMw6xI2f2jct6DKgYqbgO4p3mFWo+axgMfl0d20y8
NcXrkf1aBj737md8JLaUUNZdb8pAt3D9tyLijY4lr7U2MIDMvBlZxKYFhzbO
MGfQE2boeYfYaJp8nbglg0rHiB8hxHo+BQ5/bRiUv1Z38iJeXuPSXb+dwQTx
EWYH8YKQHFGqAwPPRbu85hLPabO/HOnMYPuWgc2SxDPXjlM47crg349q/CH9
MJm7bbHlEQYa4o5uCcQsW9EzfW8GaaXTEv2JJbIeGs89zqDdTK3XipjnyrUd
CSDrbaBWzif9OVSS2NJyloHxa5VtH4n71Mzc3gczmKzrwyQQ/264dSbuKoM7
risuGRBXrjd4xI5nQDvZPdlF9seJ94FaQXcZXPfyyplOvHhT2fPXD8h6cp39
68h+C9lsVbImk4F2+c+164jXbXVtXlnE4NXnT9UyZH+O1Kc7+ZYy6OxYWZtH
9ney3UBn9jsGipvibzgRS+w+Paz1iUG+e+juTJIHxU6Rk5b8ZmAivNWzlOSF
V9vXqIPtDLhbSvvLuSQP9qsqp3QzqO6e98yBOPBg6oJ5gwzenUg/HULyyOjo
67VqEnwo7YiXf03yLP90j5fcfD4uJtjuKKIoHBBp8awW87HQuMBlJfG0oGNn
wjX56D3dqvWIQ+HY+bErE1eR3x+Pkb7ST2HFFaXk8Rv4EF15UalN8jYrxqSB
OcgH6+LWQLlO0l8zLtmv9uBDcCwzbl8HBdm46lY/Lz6W1PufyGkn+ZawgzN8
go+qO9dPbP5D8vXBESnOFT7aNy6/uu83hYfZtw3aHvPx7GTbpIXNpJ8F9hqN
T/ioPNZg79JE+mf9LJWaHPL8p8X58Y0UChvvC1++4kNKb+6Nid8o1I09fhP5
gY+/bjmtn+soiFsWrTf5y0eFMKZd7CMFh942m7saAiwRO9LaTc5H9ZUPTWO0
BDjwWfdrZyHJozMHda+uEED0Wbmp7RWZv1yf4ok1Ajw1uCDd8JJC2OrRb1bm
ApxdEzntPjlvX4ZIOY4dEkDwTmPgJzmvleZpujumCWAWpqzaTs7/iKgwu7RM
AbRNFstcIfcDGYm/piPZAnj7jWUvvUXysjVNJbRAAOdZHtru0aQfExd9zP0g
wItKVvuHcHIezpy3XJYjAGuOpoX6BfI+8jO5r1YIoaZ+o1aF3G+ocyfbJugL
IUNHLz3hRtZrsLHGxlAII8mG/74coOBUeyu16z8h2vdcyQjaR2FzuNIuhe1C
HMme7fJmD4V5MnKF7v5CxE/yOvnFkuSrOOu8cqEQ+lXhRht1SF5n3na0LhaC
eZUS4KpNQXr3UsNLZULolLdFnV1Ggf3McmSkWgibhi2mT5eQfnC5eaC2RYhd
dqlPR+eS9XqrbnFpTIhVM+71zJAn++GiseKoqQgzV2x/VzLAQS7LN6W2UoRr
e9nHH6Zy0Blwrr/oowhfpKMX73vIwYzB6yszP4twvGO/xOxkcv9tyii90iRC
2x4ZjchEDtald/407RFBrBhb9t7k4IvF7um5rH+ojrkmkXyeg4Fwk8u3zf7h
RYvd4kpyf9ZUmuruUv4PK6iyglgWB1Q4V1H36xjWlC8rdzDsx7xLl7Q93cXY
NdrWBz479KFt9/dm0y4x9rixPJV9h/5iY0cdk3tUnH2I8jN5btqLEz6ubtP6
xdnVuWeOGSj1wDLvjvk0Pwn2sJh4cv2zLnCE7gGSXAn2BbPDRnutOnHv27nn
R30l2ds3WPWsbWkH383Y6aRAkq2zd06b5qo/UBNF2nufGse+eIfufn+zFZ1m
YVWscePZHVadeVZnf+HtwmrMChvPHqd36mNJ6Xe4s1LGzZWewG7x+BMQuaQR
+XfnG7+NnMBWVumocl5cjxpDo3JbOSl2SqFD7DG7WtDud7Y6hUux7etn9/Cm
VKLCOmm77DQWOyLbV/XRs2K4GBilpkaz2LW8Lv7PlGwc6v84+iOGxVYN8wvb
65QNr3t718nfZrHT5aZX/lTORpD0hdaABBb7fpGMc9PVp4hvqlSxTWGxf9F2
K4M6svD15I4IYT6LfaBKqyotIB3mBT4nbb6z2EYzl4lFpt2DzdFxFSEtLPaO
tSMGtqr3sFM9ZlrhLxb71jPhAvnrd3Ew9GXOwnYWu1G1MEi1JxHBu8U4gj4W
2+11oPVgYByK+NdcUv6x2OUbrI8gPRLlWbOzv4tJs+PDbNj3r0eg2iV7bKqk
NJs5G3tXqjcc36vq409LSbPb2Hf5IUGhoONUvllPlWbnd8t8PJp+DmOWmQtC
5KXZiT2Kg5t6AzFBEsdeKUqzDX7I9+cEnYLiYRe5hcrS7Iat8Zrn072hMntk
r70KGc+jdXVNkDvU6y5mRahJs8VNHyvEpDtD49J0UflsabassGjpy3Qb6Bim
WQjmSrO1dK793/8D/wMuq3uF
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  BaseStyle->{FontSize -> 16, FontFamily -> "Arial", Bold},
  Epilog->{
    RGBColor[0.6, 0.4, 0.2], 
    InsetBox[
     BoxData[
      FormBox[
       StyleBox["\"Even better one\"", 15, Bold, StripOnInput -> False], 
       TraditionalForm]], 
     ImageScaled[{0.6, 0.57}], {Center, Center}], 
    GrayLevel[0], 
    AbsoluteThickness[3], 
    Arrowheads[{0, 0.03}], 
    ArrowBox[{
      ImageScaled[{0.6, 0.6}], 
      ImageScaled[{0.7, 0.7}]}]},
  Frame->True,
  FrameLabel->{{
     FormBox["\"y axis\"", TraditionalForm], 
     FormBox["\"Right label\"", TraditionalForm]}, {
     FormBox["\"x axis\"", TraditionalForm], 
     FormBox["\"Top label\"", TraditionalForm]}},
  FrameStyle->Directive[
    RGBColor[0, 0, 1], 
    AbsoluteThickness[2]],
  ImageSize->550,
  PlotLabel->FormBox["\"Now add coordinate labels\"", TraditionalForm],
  PlotRange->
   NCache[{{0, Pi}, {0., 0.9999999707682925}}, {{0, 3.141592653589793}, {0., 
     0.9999999707682925}}],
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.4420643114375*^9, {3.4420643496875*^9, 3.442064401546875*^9}, 
   3.4420653708125*^9, {3.4420685331875*^9, 3.44206854009375*^9}, {
   3.442068877234375*^9, 3.442068946890625*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"pll", "=", "\[IndentingNewLine]", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Sin", "[", "x", "]"}], ",", 
      RowBox[{"0.42", "x", 
       RowBox[{"(", 
        RowBox[{"\[Pi]", "-", "x"}], ")"}]}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"x", ",", "0", ",", "\[Pi]"}], "}"}], ",", 
    RowBox[{"ImageSize", "\[Rule]", "550"}], ",", 
    RowBox[{"Frame", "\[Rule]", "True"}], ",", 
    RowBox[{"FrameStyle", "\[Rule]", 
     RowBox[{"Directive", "[", 
      RowBox[{"Blue", ",", 
       RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "]"}]}], ",", 
    RowBox[{"FrameLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\"\<y axis\>\"", ",", "None"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "\"\<x axis\>\"", ",", 
         "\"\<You can plot 2 or more functions together\>\""}], "}"}]}], 
      "}"}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"Red", ",", 
         RowBox[{"AbsoluteThickness", "[", "2", "]"}], ",", 
         RowBox[{"AbsoluteDashing", "[", 
          RowBox[{"{", 
           RowBox[{"6", ",", "3"}], "}"}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Green", ",", 
         RowBox[{"AbsoluteThickness", "[", "2", "]"}], ",", 
         RowBox[{"AbsoluteDashing", "[", 
          RowBox[{"{", 
           RowBox[{"1", ",", "0"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ",", 
    RowBox[{"BaseStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"FontSize", "\[Rule]", "16"}], ",", 
       RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", "Bold"}], 
      "}"}]}], ",", 
    RowBox[{"Epilog", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"Brown", ",", 
       RowBox[{"Inset", "[", 
        RowBox[{
         RowBox[{"Style", "[", 
          RowBox[{"\"\<Even better one\>\"", ",", "15", ",", "Bold"}], "]"}], 
         ",", 
         RowBox[{"ImageScaled", "[", 
          RowBox[{"{", 
           RowBox[{"0.6", ",", "0.57"}], "}"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"Center", ",", "Center"}], "}"}]}], "]"}], ",", "Black", 
       ",", 
       RowBox[{"AbsoluteThickness", "[", "3", "]"}], ",", 
       RowBox[{"Arrowheads", "[", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0.03"}], "}"}], "]"}], ",", 
       RowBox[{"Arrow", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"ImageScaled", "[", 
           RowBox[{"{", 
            RowBox[{"0.6", ",", "0.6"}], "}"}], "]"}], ",", 
          RowBox[{"ImageScaled", "[", 
           RowBox[{"{", 
            RowBox[{"0.73", ",", "0.73"}], "}"}], "]"}]}], "}"}], "]"}]}], 
      "}"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.442068300421875*^9, 3.4420684536875*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[1, 0, 0], AbsoluteThickness[2], AbsoluteDashing[{6, 3}], 
    LineBox[CompressedData["
1:eJwt2Hk0VV/YB3BD5VIqUyU0aJZIioS+l1+lKFOlQYRSkjIVDaJBKkpIkgyV
IkJJKEmIQpJCoVRkjnuM955zh7z7fdf717M+a92z9tn7PPu797pzXTxtXSXE
xMQkxcXE/q++kan5s8p7rdj/1wU9RYazbljhvEp5jxqp/Kfa+5ui9mLOT2vV
RlI7FN3ovChPXC0QNWaT2rwhuPRhVBBuOoytiyS1YW/UooSo62hNGNSxINXW
Q7k5NioJ43fMlLKJTELk0J6cmKgniIJ5rP+1JzAsN5cx9S0GN/dWacbBYnid
snTO8aoA73rTrWLzChx54RouMa8WQ6W1gyWcT6jv3iSd6lKPwdD5I80y9QjV
5orl7WrE7wV6xq5l3+C9tOJm8cMfeBPzxNsi5zv4+w5ntRz9DasW263lXr/g
8trOOuJAG+4/P7nf8GAr9g3WFxdfbkfAVAuvnYv+4OryfM+UkE40Dd86Mzmv
HRLF+frBp7rR0XxcX2xJJ+Q0LGp+xfaCozmJdzW5CxuTTJMHovogmjLH6k9f
N6ZT1RuC8jkY5LAP79TrRdz7AnHJQwOQeBG4+9KevzBSMxmbs38Q337c032w
tQ9Lf09tP3NsCCNpBon17H5Yds0p9TsxhLRt1xQnreuHF2f5Xc+AIbTaz3lt
YtaP50LrPc7BQ1g9ac2D1C39MFKOrF8XPQR6/Msyh9392GwrVz7x+RDmn106
z9e3Hx5lcim3h4dwu29AxH7Qj8xH8m65PsMwKi2qdBTjILjhjYmk/zCYVgXz
PZIc7JE4omJzehiXjrsl7pjAgcye9zV9F4aRralbajaJgwNTAlbNvzmMmzMt
B2RncDDHr0PiRv4wOvRn5OtocxD934sEL+EwHigZnG6w5yDgp0Pd0pARGEoU
lp3P4mDEzDjBNXQEioks6+6nHHhkqx5MCh9BSNKmfIscDuyDv/Plb43gnMu/
GZNecLBGY5c6P3UElE7UfN8SDpjj27wrKkdwsrVZv7mOAz9ZiymusqMQJl1b
MZHHAcdPoylRbhRmlhl9Sxnyvr+lkxuVRnGIeX7GXMCBXU6F3uZZo8iQ6Z93
boyDVbs2OOpqj2JWb0tAvRSFkQcmmeI2oyjo8mQrzKDgbbTaIjF6FEvSshQG
9CiIHY0Ouh47ioWPiiMfr6YQnjSQczZ+FNtexGu4rqGQLpGmuu/BKLZwzDK+
GFNoq1DmLHo+ChubC30x6yhs2y6IyK4bRXpBzqYyGwp6R4u+lslzkeur/y7b
nUJZ0syJedO4+Hjh6+HlHhRsP/shdSYX+0SzlmQeoXB0pfajK+pc+H616r3r
RSGVn3TScgUXqWuzg739KMy4dE610YaLaIOG8fnnKPCT1rn8jeBiv+jD/S8x
FNbyjKN0bnKxcumorHYshXOW+qX+t7mQ1qT0r9ymwBItUR93nws7seH3evEU
lHZPaVPN4aLxUESD3z0KyxWbnS0buIjRd4gKfUzB93BdZHQTF/3uu36VZlDI
K60uaW7hghWS1UNnUjD2fjP3YCcXf1Un6jk+pWBe86A1iMeFxgnNx7K5FFwv
ezpnK/Pwve7qyNhrCo9+uUXy1HhI6JaXVXxDoU/PpcRYnYe365JbFxRT8OnY
NrdKg4fCL9FFpqUUzpquaW0z5EHW+v5653cU4oTjnBUdefghveiETg2FWq84
J//7POzT2jWq9oOCRsRUwbEUYs1VY9+JLzwJuemTzsOyxIeysS3ke3B8qo48
42GnjtJqmV8UEg5brNxfykOGBVXytZWC+wGhlE0bD5rxdNLULvK9Lvrct+zk
oU+poz+LWO1ht9HmXh4akl/CopuM/6fe22yIh8l6I5wzPRT0nTO/G0vQ6MpJ
OfXhL4VxexyfaKjTCKubD6kBCo6n6zctXkiDV7Px/UXi/Djz9gUaNIxmVthK
DJLxm/SU566g4VT60neU+LPdlAvTTWl46sb+eDtM5ud3UU1pA43Y9LLAFSMU
gm8K8uXNaVzok5ufRLy6vqtP1paGf9ewv88ohUSbYrtxLjRSN8xZJ86jQHvp
DYofoKHyNv7fXmLbiIywsUM0tDylCguJx3+KLeZ70zBziYAXTcFjs7fG4Dka
/3G/ur1hKLw73FXGuUhDcZvGmsl8CrPDHPb2XaExV8dksj3xl8pN0V2RNOLc
U4o4xAZm6v9a7pHx62vxT0BhZXLV5fcPaZyp9qQMhRS0xnwUstNoLMoLzPUn
Vs9/uzg4m8bj5T+De4hVFTxyjuTSiBheFD5bRGGap+LaHS9p2E+qz9xKPHGR
61aNEhqFHRuW5xFPuCD7U6GcRmip1I12YrFfuW6iChrPl82eJPeP7P+YCYG1
tTSilpiZ7CfmDGWxCupp5BfbikKJuy133EhupKE0nP7pCXHLhEeP/H7T8Dix
On+YuNHFWtepncaUwkPV8mNkvkX0603dNNYG/OJpE1fPvLdRt4/Gef4tAwvi
d36b6lQHyHxuRkbuJy7+MugwYYTG58qqsdPEBVpx3RSPxtblpsGRxM9DTX2b
BDS+B3FnPSR+0tkrKh2jsfNq56c84nTTG5czJBlImMndekf8INFQIUaKwZ6i
48fqiRP5fxKCJjJYNkvB7TdxrN3VxYemMAh90u3dSxz1bGWOrQKDqsbRyCHi
q5NbjI2mM7ihtqaCJg5xv1ixQIXBp1m5iiLic++WbZ0ym0FO3AH/MeIA9a8t
tDqDAg/Lgf+1X2CgW9tCBhnXPIL+EXs1Lxz+oMEgRqFkvoDYXe/TmVwtBjU6
m3+PEu+P8mclrWAwvHryMw6xI2f2jct6DKgYqbgO4p3mFWo+axgMfl0d20y8
NcXrkf1aBj737md8JLaUUNZdb8pAt3D9tyLijY4lr7U2MIDMvBlZxKYFhzbO
MGfQE2boeYfYaJp8nbglg0rHiB8hxHo+BQ5/bRiUv1Z38iJeXuPSXb+dwQTx
EWYH8YKQHFGqAwPPRbu85hLPabO/HOnMYPuWgc2SxDPXjlM47crg349q/CH9
MJm7bbHlEQYa4o5uCcQsW9EzfW8GaaXTEv2JJbIeGs89zqDdTK3XipjnyrUd
CSDrbaBWzif9OVSS2NJyloHxa5VtH4n71Mzc3gczmKzrwyQQ/264dSbuKoM7
risuGRBXrjd4xI5nQDvZPdlF9seJ94FaQXcZXPfyyplOvHhT2fPXD8h6cp39
68h+C9lsVbImk4F2+c+164jXbXVtXlnE4NXnT9UyZH+O1Kc7+ZYy6OxYWZtH
9ney3UBn9jsGipvibzgRS+w+Paz1iUG+e+juTJIHxU6Rk5b8ZmAivNWzlOSF
V9vXqIPtDLhbSvvLuSQP9qsqp3QzqO6e98yBOPBg6oJ5gwzenUg/HULyyOjo
67VqEnwo7YiXf03yLP90j5fcfD4uJtjuKKIoHBBp8awW87HQuMBlJfG0oGNn
wjX56D3dqvWIQ+HY+bErE1eR3x+Pkb7ST2HFFaXk8Rv4EF15UalN8jYrxqSB
OcgH6+LWQLlO0l8zLtmv9uBDcCwzbl8HBdm46lY/Lz6W1PufyGkn+ZawgzN8
go+qO9dPbP5D8vXBESnOFT7aNy6/uu83hYfZtw3aHvPx7GTbpIXNpJ8F9hqN
T/ioPNZg79JE+mf9LJWaHPL8p8X58Y0UChvvC1++4kNKb+6Nid8o1I09fhP5
gY+/bjmtn+soiFsWrTf5y0eFMKZd7CMFh942m7saAiwRO9LaTc5H9ZUPTWO0
BDjwWfdrZyHJozMHda+uEED0Wbmp7RWZv1yf4ok1Ajw1uCDd8JJC2OrRb1bm
ApxdEzntPjlvX4ZIOY4dEkDwTmPgJzmvleZpujumCWAWpqzaTs7/iKgwu7RM
AbRNFstcIfcDGYm/piPZAnj7jWUvvUXysjVNJbRAAOdZHtru0aQfExd9zP0g
wItKVvuHcHIezpy3XJYjAGuOpoX6BfI+8jO5r1YIoaZ+o1aF3G+ocyfbJugL
IUNHLz3hRtZrsLHGxlAII8mG/74coOBUeyu16z8h2vdcyQjaR2FzuNIuhe1C
HMme7fJmD4V5MnKF7v5CxE/yOvnFkuSrOOu8cqEQ+lXhRht1SF5n3na0LhaC
eZUS4KpNQXr3UsNLZULolLdFnV1Ggf3McmSkWgibhi2mT5eQfnC5eaC2RYhd
dqlPR+eS9XqrbnFpTIhVM+71zJAn++GiseKoqQgzV2x/VzLAQS7LN6W2UoRr
e9nHH6Zy0Blwrr/oowhfpKMX73vIwYzB6yszP4twvGO/xOxkcv9tyii90iRC
2x4ZjchEDtald/407RFBrBhb9t7k4IvF7um5rH+ojrkmkXyeg4Fwk8u3zf7h
RYvd4kpyf9ZUmuruUv4PK6iyglgWB1Q4V1H36xjWlC8rdzDsx7xLl7Q93cXY
NdrWBz479KFt9/dm0y4x9rixPJV9h/5iY0cdk3tUnH2I8jN5btqLEz6ubtP6
xdnVuWeOGSj1wDLvjvk0Pwn2sJh4cv2zLnCE7gGSXAn2BbPDRnutOnHv27nn
R30l2ds3WPWsbWkH383Y6aRAkq2zd06b5qo/UBNF2nufGse+eIfufn+zFZ1m
YVWscePZHVadeVZnf+HtwmrMChvPHqd36mNJ6Xe4s1LGzZWewG7x+BMQuaQR
+XfnG7+NnMBWVumocl5cjxpDo3JbOSl2SqFD7DG7WtDud7Y6hUux7etn9/Cm
VKLCOmm77DQWOyLbV/XRs2K4GBilpkaz2LW8Lv7PlGwc6v84+iOGxVYN8wvb
65QNr3t718nfZrHT5aZX/lTORpD0hdaABBb7fpGMc9PVp4hvqlSxTWGxf9F2
K4M6svD15I4IYT6LfaBKqyotIB3mBT4nbb6z2EYzl4lFpt2DzdFxFSEtLPaO
tSMGtqr3sFM9ZlrhLxb71jPhAvnrd3Ew9GXOwnYWu1G1MEi1JxHBu8U4gj4W
2+11oPVgYByK+NdcUv6x2OUbrI8gPRLlWbOzv4tJs+PDbNj3r0eg2iV7bKqk
NJs5G3tXqjcc36vq409LSbPb2Hf5IUGhoONUvllPlWbnd8t8PJp+DmOWmQtC
5KXZiT2Kg5t6AzFBEsdeKUqzDX7I9+cEnYLiYRe5hcrS7Iat8Zrn072hMntk
r70KGc+jdXVNkDvU6y5mRahJs8VNHyvEpDtD49J0UflsabassGjpy3Qb6Bim
WQjmSrO1dK793/8D/wMuq3uF
     "]]}, 
   {RGBColor[0, 1, 0], AbsoluteThickness[2], AbsoluteDashing[{1, 0}], 
    LineBox[CompressedData["
1:eJwd2Hk8Vdv7B3AOcdBkSCkqVERflbEyfDYVokyVipKUCJmvKCVljGSOUiqF
uqlkuk2SCCUpKio3VKh0zjadycFv3d9f+/V+rb1fr7XXetbzPHuregQ4eTJE
RETkREVE/ruKPZVu+WYQZKb3s8Q8oCLMbOnPauOFGfbgtzYclm/bBsG9lQc6
0/fCq3Rix/q3B/BDwZtXmR4AW6Oqzf2vQ/HJMqb2RnoUzi91tHRsiMH7veka
l9LPITgkx9zwYSac/JQ+5aTno6lh1WPmletIG95dlp1+F02bD46U+pbDuN5G
2iKkBl689Bf2b+sQeNRuX1lgI57J2XXUbWrB4X88UxjqrSj5V/28ZVYb2gc2
SRV5tEOMqWtUrt2BMys5IpW7OnCoOvCHtOkXBGk3ZtXc+ALZ0s9Px/S7Idjv
e6fLvxuHxSVyItR74fHE2SH1YC+yL302ff3+G/YPtdfUJHyHWnm7vtu5H0he
VRVQGNcHjZUMB+GsfjBqqoxijg5gYsC6QDNgALJati1fc37BZbmTQO/NT1jn
WxTQ6YPwrts6FCn8hbnsZsuoKhYyTDf98F46iAsND0XFDtG4F7Fo7TetPzBR
MZ9afGAIyWn7+UNiLGh3z/5+PHQYTWGStxe/Y8Guf3FtWPgwvPfKtg+0sxDI
WnUlIHIYppjaevcjC+VCh937YoaR8j3O1aiLBROltPYNmcNoqN+YqDfAwmYn
2XqZ8mFc7I3e+2WCBb862cLcETIeO8Jha7BRUiznXRE8At3gx28XHmEj5v1T
c7EjI8hdnBh/N4KN3YzDCxyPjaBK0t3WLJIN6d0NLYOnRyB/csXE9mg2Ds6K
NFiSNQJ7JUrKP4mNxWE/GBlVI+j64/icymcjc/0/lwKFI7BZtPhpYD0bvoGe
R6pFRnHou57h8wY2LC7JOU6fNgqzXsdH8i/ZGOL4iRfPGIVMwm32nRY27G6p
+n5dOArNyC8iLR/ZYMomrbEzH8URCY36Oz/ZiPx3T5t23CjuO5b5TEyjMWpl
esnzzCiuPKq+x5Ck4Veq7JWfMopXGq8kJJk0XGM+C+TOj+KLRH/vdGka67R2
qQmKRtH7Vct1xkwa/L+2BTU2jSJ2ote2Zw6NsBm2szxnjEGtX0Hn/RIarDCt
zsuyY2jKoUIfL6VxsFuqoGPOGO5sPvzy2jIazmWNhpsXjmH1o6ZCP00aBrss
3fRWjkGlLGXRmDaZ33XzElHHMSTN3CTbqUsjyGSN7eXMMTwJiRobBA0R/8yo
czljMChTqC2maKTk02Un88agI/HqyX5zGrcYN5X3Xx9DQd8Fi48WNHoblVga
5WM4n9YQXb6Rxrbt46mlbWMoObftg5UtDUP/6g91chwkrzDteLudRl3+fJlK
RQ7UvowmhDjTcHobhqL5HKzNf+2tsIOGv/7K4kQ1Dn7u7a3YupNGkSA/wk6X
A+dXObGNLjTmxUcrdzhysNtm7fiZvTQE+Rs8fqdyoPzTGiHeNMy4pumrszhI
C3Q1kCBxHm1nVHsklwM6uc8gh5g5sVxN/BoHATEHnR/40JjjMqtXuYwDX/8Z
c2g/GqsUPu2ze8+Bqw43YWUQjRDftrTMTg7CxTOWlRFX1jY/+9TFwcmAohaD
YBqmQU9Vvfo4sBdfZ7YmhIZNy/WeKC4HvzUlLq7+i4ZnQsC+UiUulN3W2XLC
aRR/9U7jqnDRc2pvqk8EjUFDj2emalykmUx87SIO/rFN9aUWF/f8r11+dpTG
SYt1Pb3GXPx5nZF7PJLGBaH4PgU3LtzC5eIaomi0Bl5wP3KNC7XjUWsLYmlo
pc4eDy3k4g0tpjlCfPpuXFbwLS5iEqMoiziyH6zgl4fvcyGptZvdRXzJ11b/
QC0Xvhp/b5BJoOFzUCjp2MtFmfyV16ZnyH7FBl+z6+Oi+2O260lilRsDJpt/
caHwLEa+lrj1W3uQ1TAXWQxL0fVJNIz2lXw2ZfDANXdrX5dMQ3y3210tNR7W
3f+xk5FCw+1Y+ybNZTz0vbCLMyKuumDzfakWDxdE7nb5Evt0Giqp6vIw/9s2
6XfEb51nnZ5rwUPEAUPXzHPk/cJiVeZY8uB5dWdHLXFM1niVnA0Pu8SCo2ji
Ne39gzOceNhpeMZ2UyqNy441zuIePFTudPhME/MCDYdED/LQ80S7eF4aib/U
20lTh3iYYz15GcTT3uTUCIJ4yHiVIJ1E7Lc5SGsomgc6Ra9zbjqNF779daxY
HlyVG8fWEC9K2rN3MJGHlpatJruI3zVtyuxP46H5moPVeeK1VmqTXVd50JTs
3iaVQUO/4GVCww0e+m95makT60wFy5fe5KHIfq2LCbFa1XPNmFIetPMeavoR
K8v7lR2u4IG13ufzKWLFAAWzHQ94KBvcX5NDLKPhuVXrGQ+UuYFqLbHE6Rn/
ytfzwPwz/dJ7YpGvFd4TjTy8zdWxHSAezZY40drKgxfH3kwmk+ST4TvMh+08
6Bfan15APGC3I6OggwfGjlyBFnGXRHFxWDcP1x5Jn7Qi7vBw0HP/zkNIgG7K
NuJ31bwnmwZ4sFxyvcWduHn+VWu9QR6UPu019yN+EbapTZkm80/17Asjrnk3
tEdilIc664onJ4kf6lwYYHN5uChq35BIXH7GIqRznIfQR7pi6cR3+35N1E7x
sCXMPSiX+JZFRsJtMT40dTtkrxBfv2wsny3Jhzg79/sN4suCb5eiZPjouX3j
5y3iHOdkzUOz+HjqO774LnH6ff0yJ3k+LmtfPHOfOHlml6nJXD6iBmOWVRDH
+cQ2Ll3Ah/udf0YriaNf/G/rrEV8rA8yHKsijlT70MVT40PDYFLjH+KwEye8
e5fxMV0w6+x/44Gflo280uJj+Knvkv+e9zF8c7xCh4/OOFlWGfGB9CPMfF0+
au1Ef90jdmMtykgw5OP2XON5JcQ7bRpVgtfxkd1THV5MvLUwsNjVjI9Tt5Nl
CojtGEp6Gy34CAy/3ppHbO327ImOJR9uGyUas4gtHh6ynmfDxxb5+0NniU0U
5dpE7fikvhVtiSU2DH6457cjH6vu938+RryqxWOgfTsf6qeD8oKIl8aVTRTt
Ie+jub/chXhxr2tC2j4+GMKXMnbE883E5Y958iFojcyiiGdytmnaHeZj8Hg1
1ImZThP3jYL46N9u5y5PzLhzw1T1Lz6+6WiWMYi5nhyn0Ug+vn57wP6XxOPw
s8tdXSeJnwZ1viIeVLHybojhozsvZKyKuPv9+eMXkvn4sWt73Vnipo1ri6k8
PoRfU5+sJA5vOKETdYWPD3e7pykQa26qK39ynY96D8XdXHL+4jbbP1tXQuIh
SE/3EfGGrZ6f9Kv5mGugH2tEPNp+yz2klo9clTITBeICZ7qv9AVZn59zGTQ5
/wyXYyM6b0i8LM+ovE5c4542fXk3H0fsHV4wiAN7P6R7fefjmsPk4EeSXxYd
UFYqHOCjVz9d9TbxCa+ipepDfFwt9C13JDbxf2KmwhBAZeWPk2kkX1Ud+xko
u0QAZvtw+bezpJ5P6HDtNQWIlZh6cJNYMSr0eMoKARSVh5r9iUNPTSXKGAgQ
Tscpc0h+1U2cUzDNUoB1ZhEefJJ/72Sbv+d7CVB6ODzxXSKJr3nxrmv8BIh6
2+uXSDzjQnNPWKAAHvP03EDsd2kHayRcAC/7WJ9ikv+1rh+WZCUK4O9BLw+I
p3GjNHdt798CBCn3rH8TQ+J53FWr464AzfedhiOJV21cuKClTICs7azXy4kf
d1wTPnhE7q8pmB59mkbb1N9P014JYKstWbz0FA1Ru+qN5r8FSN5+z9mK1K8X
508aGrEFqL1f+7H/BDmPPRYa/xsRwFN5KjaeeN5fDUylcQFGFTiH6o7TWJnX
+oqWHofhxS/2+qQe7vnV63hFaxxWwqSMQVJf1fRvWGTrjGPHYvRHEQ8c99JL
1h1Hu4OytxxxqOygQvi6ccz9uG1I/wiNpDVjH+1txvEsvFo1kNTrB3GSblOH
xnFtdqigmtT7OeorfNxujiMv3TupmvQPqelJzjdLxiEylbZ8BbE047fFaCl5
vlKuNYf0HyI9NxeceTiOXcz5hgFeJJ4va7yueDWOHj3q4GxPUk/nq6+awRqH
8+1fzkvcyXzk5nMe6QrRpvZPRDrpj9jREb0SRkK8EbxU69lG1nuoo8XRWAjN
hQbtOsTureeL+tcLQVvOcmhworE5Zc4u+e1CfFr8+e9Bexrq0rKPfY4IIcdp
HWHakPwsyjyl9FgI+WUG9fGmJN+X5Lo51Aix/kav9SMTGlIu2sbxdUJs0e7q
+mNMg7pvNzraLMSQ7QNjh3UknjyyDrZ2CRH+dUaDlBFZr+dqtvFTQsTaayo7
rCLnKdZUYcxiAjlb1WqWq9GoYIYUtjZNoOC3Fnu2GI2+yOg/1a8nUOFvmzGf
QfZz6Jx+ydsJ6D+q9VIXJfm083ZtYucEBO6+6z0n2dhwq+9fi58TCJ3nUpbC
YeOdrcvcCuYkns1+XpbRxyZ12Dwh12oSlcueGx4k/fyKObN9POonoThwbOP/
TrAhf/fR7RtNk1DOfr2h8BgbAmsv9sDrSaxWvOeqQr4nGiOrQwM+TOJMskbr
tFA2Dnz3i4rsnwTHsbvt6SE2LpU1ZWZLTaESEZYd29iY6XT66cstU2gvtO64
sJwNdgpHQe/DFFIK9tw5+JoF9fj4lQE+IlTbxj+X309nodfl8yeLfhEqfmbl
TlPDP7D+0cav8Beldof+TghbNYjwYE9vxT+ilO7LVxIKqr9hV3nRRjGMQYUY
z/ew7voJltAnUozDoJ4zTU1VMwZw9WN0uX+IGNXX/NjOw6AfAm9T94hxMUqn
qh0f8n5AZSLNNeioOKWhqFuxRPw7+qySXjLFp1EeWmf3e2r34vmyZixMmkaF
mfX8Pd20Gz7MQnFVKQnK7f26i+9vfkHVlSWmz9MkKJmjeZ8ObO5Ai7FJvZOs
JHXdbXtal2g7eD4Xt7qnSFJ/1SlLG+q+QaND/vYZikxKf7Wxa+eKenisNSkq
ymRSHTNLErSbK3Hoz+uxL9lMKoGzdnwyuBKBV/dukMtlUh83esrUKlUiSup0
T+QlJrV0wXnxuV4VyOtsWuBUyKQcr3q5CEXK8SFiR6qwikltWPA4o3x1KWwe
Bkc4fmZSK5M8j1bOKIKjv3hjXBeTkrZQatiwoxA71bIVH39lUqqNUvb3r9yA
15kHZcu+M6l75ldna+tdR4yLCGt8kEmxft90yXC+imrBWY/CSSZlYbRB4YTO
edTfWVT6WUSKCk7eOOfUkyw0e5ROzRaTohacrEnesDkTn1+25x2TlKK0LdS/
ih9KA+/Cgo8Os8n4oTXqfWbxmLIrWRonJ0VxBO3J73fGQEKMtC4KUlRN04Fv
5sHRUPD1kF2mJEVZmTy+o2Z1BAsWje51XSBFhVud+zkQFgS1ttg7qSpS1Ozc
NKGjrRe04udO1C+SoraoF5QlbdmB1cY3bcdVpaitj/L//3/I/wEvr6gd
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  BaseStyle->{FontSize -> 16, FontFamily -> "Arial", Bold},
  Epilog->{
    RGBColor[0.6, 0.4, 0.2], 
    InsetBox[
     BoxData[
      FormBox[
       StyleBox["\"Even better one\"", 15, Bold, StripOnInput -> False], 
       TraditionalForm]], 
     ImageScaled[{0.6, 0.57}], {Center, Center}], 
    GrayLevel[0], 
    AbsoluteThickness[3], 
    Arrowheads[{0, 0.03}], 
    ArrowBox[{
      ImageScaled[{0.6, 0.6}], 
      ImageScaled[{0.73, 0.73}]}]},
  Frame->True,
  FrameLabel->{{
     FormBox["\"y axis\"", TraditionalForm], None}, {
     FormBox["\"x axis\"", TraditionalForm], 
     FormBox[
     "\"You can plot 2 or more functions together\"", TraditionalForm]}},
  FrameStyle->Directive[
    RGBColor[0, 0, 1], 
    AbsoluteThickness[2]],
  ImageSize->550,
  PlotRange->
   NCache[{{0, Pi}, {0., 1.0363084375597482`}}, {{0, 3.141592653589793}, {0., 
     1.0363084375597482`}}],
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.44206831428125*^9, 3.44206840171875*^9}, 
   3.44206845425*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"pll", "=", "\[IndentingNewLine]", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Sin", "[", "x", "]"}], ",", 
       RowBox[{"0.42", "x", 
        RowBox[{"(", 
         RowBox[{"\[Pi]", "-", "x"}], ")"}]}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "\[Pi]"}], "}"}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "550"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"FrameStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{"Blue", ",", 
        RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "]"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"\"\<y axis\>\"", ",", "None"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
         "\"\<(1a)                                                            \
                      x axis\>\"", ",", "\"\<Now let us make a grid\>\""}], 
         "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Red", ",", 
          RowBox[{"AbsoluteThickness", "[", "2", "]"}], ",", 
          RowBox[{"AbsoluteDashing", "[", 
           RowBox[{"{", 
            RowBox[{"6", ",", "3"}], "}"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Green", ",", 
          RowBox[{"AbsoluteThickness", "[", "2", "]"}], ",", 
          RowBox[{"AbsoluteDashing", "[", 
           RowBox[{"{", 
            RowBox[{"1", ",", "0"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ",", 
     RowBox[{"BaseStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontSize", "\[Rule]", "16"}], ",", 
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", "Bold"}], 
       "}"}]}], ",", 
     RowBox[{"Epilog", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Brown", ",", 
        RowBox[{"Inset", "[", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"\"\<Even better one\>\"", ",", "15", ",", "Bold"}], "]"}],
           ",", 
          RowBox[{"ImageScaled", "[", 
           RowBox[{"{", 
            RowBox[{"0.6", ",", "0.57"}], "}"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"Center", ",", "Center"}], "}"}]}], "]"}], ",", "Black", 
        ",", 
        RowBox[{"AbsoluteThickness", "[", "3", "]"}], ",", 
        RowBox[{"Arrowheads", "[", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0.03"}], "}"}], "]"}], ",", 
        RowBox[{"Arrow", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"ImageScaled", "[", 
            RowBox[{"{", 
             RowBox[{"0.6", ",", "0.6"}], "}"}], "]"}], ",", 
           RowBox[{"ImageScaled", "[", 
            RowBox[{"{", 
             RowBox[{"0.72", ",", "0.72"}], "}"}], "]"}]}], "}"}], "]"}]}], 
       "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"grr", "=", 
  RowBox[{"GraphicsArray", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"pll", ",", "pll"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"pll", ",", "pll"}], "}"}]}], "}"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.44206984275*^9, 3.442069947125*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {{InsetBox[
      GraphicsBox[{{}, {}, 
        {RGBColor[1, 0, 0], AbsoluteThickness[2], AbsoluteDashing[{6, 3}], 
         LineBox[CompressedData["
1:eJwt2Hk0VV/YB3BD5VIqUyU0aJZIioS+l1+lKFOlQYRSkjIVDaJBKkpIkgyV
IkJJKEmIQpJCoVRkjnuM955zh7z7fdf717M+a92z9tn7PPu797pzXTxtXSXE
xMQkxcXE/q++kan5s8p7rdj/1wU9RYazbljhvEp5jxqp/Kfa+5ui9mLOT2vV
RlI7FN3ovChPXC0QNWaT2rwhuPRhVBBuOoytiyS1YW/UooSo62hNGNSxINXW
Q7k5NioJ43fMlLKJTELk0J6cmKgniIJ5rP+1JzAsN5cx9S0GN/dWacbBYnid
snTO8aoA73rTrWLzChx54RouMa8WQ6W1gyWcT6jv3iSd6lKPwdD5I80y9QjV
5orl7WrE7wV6xq5l3+C9tOJm8cMfeBPzxNsi5zv4+w5ntRz9DasW263lXr/g
8trOOuJAG+4/P7nf8GAr9g3WFxdfbkfAVAuvnYv+4OryfM+UkE40Dd86Mzmv
HRLF+frBp7rR0XxcX2xJJ+Q0LGp+xfaCozmJdzW5CxuTTJMHovogmjLH6k9f
N6ZT1RuC8jkY5LAP79TrRdz7AnHJQwOQeBG4+9KevzBSMxmbs38Q337c032w
tQ9Lf09tP3NsCCNpBon17H5Yds0p9TsxhLRt1xQnreuHF2f5Xc+AIbTaz3lt
YtaP50LrPc7BQ1g9ac2D1C39MFKOrF8XPQR6/Msyh9392GwrVz7x+RDmn106
z9e3Hx5lcim3h4dwu29AxH7Qj8xH8m65PsMwKi2qdBTjILjhjYmk/zCYVgXz
PZIc7JE4omJzehiXjrsl7pjAgcye9zV9F4aRralbajaJgwNTAlbNvzmMmzMt
B2RncDDHr0PiRv4wOvRn5OtocxD934sEL+EwHigZnG6w5yDgp0Pd0pARGEoU
lp3P4mDEzDjBNXQEioks6+6nHHhkqx5MCh9BSNKmfIscDuyDv/Plb43gnMu/
GZNecLBGY5c6P3UElE7UfN8SDpjj27wrKkdwsrVZv7mOAz9ZiymusqMQJl1b
MZHHAcdPoylRbhRmlhl9Sxnyvr+lkxuVRnGIeX7GXMCBXU6F3uZZo8iQ6Z93
boyDVbs2OOpqj2JWb0tAvRSFkQcmmeI2oyjo8mQrzKDgbbTaIjF6FEvSshQG
9CiIHY0Ouh47ioWPiiMfr6YQnjSQczZ+FNtexGu4rqGQLpGmuu/BKLZwzDK+
GFNoq1DmLHo+ChubC30x6yhs2y6IyK4bRXpBzqYyGwp6R4u+lslzkeur/y7b
nUJZ0syJedO4+Hjh6+HlHhRsP/shdSYX+0SzlmQeoXB0pfajK+pc+H616r3r
RSGVn3TScgUXqWuzg739KMy4dE610YaLaIOG8fnnKPCT1rn8jeBiv+jD/S8x
FNbyjKN0bnKxcumorHYshXOW+qX+t7mQ1qT0r9ymwBItUR93nws7seH3evEU
lHZPaVPN4aLxUESD3z0KyxWbnS0buIjRd4gKfUzB93BdZHQTF/3uu36VZlDI
K60uaW7hghWS1UNnUjD2fjP3YCcXf1Un6jk+pWBe86A1iMeFxgnNx7K5FFwv
ezpnK/Pwve7qyNhrCo9+uUXy1HhI6JaXVXxDoU/PpcRYnYe365JbFxRT8OnY
NrdKg4fCL9FFpqUUzpquaW0z5EHW+v5653cU4oTjnBUdefghveiETg2FWq84
J//7POzT2jWq9oOCRsRUwbEUYs1VY9+JLzwJuemTzsOyxIeysS3ke3B8qo48
42GnjtJqmV8UEg5brNxfykOGBVXytZWC+wGhlE0bD5rxdNLULvK9Lvrct+zk
oU+poz+LWO1ht9HmXh4akl/CopuM/6fe22yIh8l6I5wzPRT0nTO/G0vQ6MpJ
OfXhL4VxexyfaKjTCKubD6kBCo6n6zctXkiDV7Px/UXi/Djz9gUaNIxmVthK
DJLxm/SU566g4VT60neU+LPdlAvTTWl46sb+eDtM5ud3UU1pA43Y9LLAFSMU
gm8K8uXNaVzok5ufRLy6vqtP1paGf9ewv88ohUSbYrtxLjRSN8xZJ86jQHvp
DYofoKHyNv7fXmLbiIywsUM0tDylCguJx3+KLeZ70zBziYAXTcFjs7fG4Dka
/3G/ur1hKLw73FXGuUhDcZvGmsl8CrPDHPb2XaExV8dksj3xl8pN0V2RNOLc
U4o4xAZm6v9a7pHx62vxT0BhZXLV5fcPaZyp9qQMhRS0xnwUstNoLMoLzPUn
Vs9/uzg4m8bj5T+De4hVFTxyjuTSiBheFD5bRGGap+LaHS9p2E+qz9xKPHGR
61aNEhqFHRuW5xFPuCD7U6GcRmip1I12YrFfuW6iChrPl82eJPeP7P+YCYG1
tTSilpiZ7CfmDGWxCupp5BfbikKJuy133EhupKE0nP7pCXHLhEeP/H7T8Dix
On+YuNHFWtepncaUwkPV8mNkvkX0603dNNYG/OJpE1fPvLdRt4/Gef4tAwvi
d36b6lQHyHxuRkbuJy7+MugwYYTG58qqsdPEBVpx3RSPxtblpsGRxM9DTX2b
BDS+B3FnPSR+0tkrKh2jsfNq56c84nTTG5czJBlImMndekf8INFQIUaKwZ6i
48fqiRP5fxKCJjJYNkvB7TdxrN3VxYemMAh90u3dSxz1bGWOrQKDqsbRyCHi
q5NbjI2mM7ihtqaCJg5xv1ixQIXBp1m5iiLic++WbZ0ym0FO3AH/MeIA9a8t
tDqDAg/Lgf+1X2CgW9tCBhnXPIL+EXs1Lxz+oMEgRqFkvoDYXe/TmVwtBjU6
m3+PEu+P8mclrWAwvHryMw6xI2f2jct6DKgYqbgO4p3mFWo+axgMfl0d20y8
NcXrkf1aBj737md8JLaUUNZdb8pAt3D9tyLijY4lr7U2MIDMvBlZxKYFhzbO
MGfQE2boeYfYaJp8nbglg0rHiB8hxHo+BQ5/bRiUv1Z38iJeXuPSXb+dwQTx
EWYH8YKQHFGqAwPPRbu85hLPabO/HOnMYPuWgc2SxDPXjlM47crg349q/CH9
MJm7bbHlEQYa4o5uCcQsW9EzfW8GaaXTEv2JJbIeGs89zqDdTK3XipjnyrUd
CSDrbaBWzif9OVSS2NJyloHxa5VtH4n71Mzc3gczmKzrwyQQ/264dSbuKoM7
risuGRBXrjd4xI5nQDvZPdlF9seJ94FaQXcZXPfyyplOvHhT2fPXD8h6cp39
68h+C9lsVbImk4F2+c+164jXbXVtXlnE4NXnT9UyZH+O1Kc7+ZYy6OxYWZtH
9ney3UBn9jsGipvibzgRS+w+Paz1iUG+e+juTJIHxU6Rk5b8ZmAivNWzlOSF
V9vXqIPtDLhbSvvLuSQP9qsqp3QzqO6e98yBOPBg6oJ5gwzenUg/HULyyOjo
67VqEnwo7YiXf03yLP90j5fcfD4uJtjuKKIoHBBp8awW87HQuMBlJfG0oGNn
wjX56D3dqvWIQ+HY+bErE1eR3x+Pkb7ST2HFFaXk8Rv4EF15UalN8jYrxqSB
OcgH6+LWQLlO0l8zLtmv9uBDcCwzbl8HBdm46lY/Lz6W1PufyGkn+ZawgzN8
go+qO9dPbP5D8vXBESnOFT7aNy6/uu83hYfZtw3aHvPx7GTbpIXNpJ8F9hqN
T/ioPNZg79JE+mf9LJWaHPL8p8X58Y0UChvvC1++4kNKb+6Nid8o1I09fhP5
gY+/bjmtn+soiFsWrTf5y0eFMKZd7CMFh942m7saAiwRO9LaTc5H9ZUPTWO0
BDjwWfdrZyHJozMHda+uEED0Wbmp7RWZv1yf4ok1Ajw1uCDd8JJC2OrRb1bm
ApxdEzntPjlvX4ZIOY4dEkDwTmPgJzmvleZpujumCWAWpqzaTs7/iKgwu7RM
AbRNFstcIfcDGYm/piPZAnj7jWUvvUXysjVNJbRAAOdZHtru0aQfExd9zP0g
wItKVvuHcHIezpy3XJYjAGuOpoX6BfI+8jO5r1YIoaZ+o1aF3G+ocyfbJugL
IUNHLz3hRtZrsLHGxlAII8mG/74coOBUeyu16z8h2vdcyQjaR2FzuNIuhe1C
HMme7fJmD4V5MnKF7v5CxE/yOvnFkuSrOOu8cqEQ+lXhRht1SF5n3na0LhaC
eZUS4KpNQXr3UsNLZULolLdFnV1Ggf3McmSkWgibhi2mT5eQfnC5eaC2RYhd
dqlPR+eS9XqrbnFpTIhVM+71zJAn++GiseKoqQgzV2x/VzLAQS7LN6W2UoRr
e9nHH6Zy0Blwrr/oowhfpKMX73vIwYzB6yszP4twvGO/xOxkcv9tyii90iRC
2x4ZjchEDtald/407RFBrBhb9t7k4IvF7um5rH+ojrkmkXyeg4Fwk8u3zf7h
RYvd4kpyf9ZUmuruUv4PK6iyglgWB1Q4V1H36xjWlC8rdzDsx7xLl7Q93cXY
NdrWBz479KFt9/dm0y4x9rixPJV9h/5iY0cdk3tUnH2I8jN5btqLEz6ubtP6
xdnVuWeOGSj1wDLvjvk0Pwn2sJh4cv2zLnCE7gGSXAn2BbPDRnutOnHv27nn
R30l2ds3WPWsbWkH383Y6aRAkq2zd06b5qo/UBNF2nufGse+eIfufn+zFZ1m
YVWscePZHVadeVZnf+HtwmrMChvPHqd36mNJ6Xe4s1LGzZWewG7x+BMQuaQR
+XfnG7+NnMBWVumocl5cjxpDo3JbOSl2SqFD7DG7WtDud7Y6hUux7etn9/Cm
VKLCOmm77DQWOyLbV/XRs2K4GBilpkaz2LW8Lv7PlGwc6v84+iOGxVYN8wvb
65QNr3t718nfZrHT5aZX/lTORpD0hdaABBb7fpGMc9PVp4hvqlSxTWGxf9F2
K4M6svD15I4IYT6LfaBKqyotIB3mBT4nbb6z2EYzl4lFpt2DzdFxFSEtLPaO
tSMGtqr3sFM9ZlrhLxb71jPhAvnrd3Ew9GXOwnYWu1G1MEi1JxHBu8U4gj4W
2+11oPVgYByK+NdcUv6x2OUbrI8gPRLlWbOzv4tJs+PDbNj3r0eg2iV7bKqk
NJs5G3tXqjcc36vq409LSbPb2Hf5IUGhoONUvllPlWbnd8t8PJp+DmOWmQtC
5KXZiT2Kg5t6AzFBEsdeKUqzDX7I9+cEnYLiYRe5hcrS7Iat8Zrn072hMntk
r70KGc+jdXVNkDvU6y5mRahJs8VNHyvEpDtD49J0UflsabassGjpy3Qb6Bim
WQjmSrO1dK793/8D/wMuq3uF
          "]]}, 
        {RGBColor[0, 1, 0], AbsoluteThickness[2], AbsoluteDashing[{1, 0}], 
         LineBox[CompressedData["
1:eJwd2Hk8Vdv7B3AOcdBkSCkqVERflbEyfDYVokyVipKUCJmvKCVljGSOUiqF
uqlkuk2SCCUpKio3VKh0zjadycFv3d9f+/V+rb1fr7XXetbzPHuregQ4eTJE
RETkREVE/ruKPZVu+WYQZKb3s8Q8oCLMbOnPauOFGfbgtzYclm/bBsG9lQc6
0/fCq3Rix/q3B/BDwZtXmR4AW6Oqzf2vQ/HJMqb2RnoUzi91tHRsiMH7veka
l9LPITgkx9zwYSac/JQ+5aTno6lh1WPmletIG95dlp1+F02bD46U+pbDuN5G
2iKkBl689Bf2b+sQeNRuX1lgI57J2XXUbWrB4X88UxjqrSj5V/28ZVYb2gc2
SRV5tEOMqWtUrt2BMys5IpW7OnCoOvCHtOkXBGk3ZtXc+ALZ0s9Px/S7Idjv
e6fLvxuHxSVyItR74fHE2SH1YC+yL302ff3+G/YPtdfUJHyHWnm7vtu5H0he
VRVQGNcHjZUMB+GsfjBqqoxijg5gYsC6QDNgALJati1fc37BZbmTQO/NT1jn
WxTQ6YPwrts6FCn8hbnsZsuoKhYyTDf98F46iAsND0XFDtG4F7Fo7TetPzBR
MZ9afGAIyWn7+UNiLGh3z/5+PHQYTWGStxe/Y8Guf3FtWPgwvPfKtg+0sxDI
WnUlIHIYppjaevcjC+VCh937YoaR8j3O1aiLBROltPYNmcNoqN+YqDfAwmYn
2XqZ8mFc7I3e+2WCBb862cLcETIeO8Jha7BRUiznXRE8At3gx28XHmEj5v1T
c7EjI8hdnBh/N4KN3YzDCxyPjaBK0t3WLJIN6d0NLYOnRyB/csXE9mg2Ds6K
NFiSNQJ7JUrKP4mNxWE/GBlVI+j64/icymcjc/0/lwKFI7BZtPhpYD0bvoGe
R6pFRnHou57h8wY2LC7JOU6fNgqzXsdH8i/ZGOL4iRfPGIVMwm32nRY27G6p
+n5dOArNyC8iLR/ZYMomrbEzH8URCY36Oz/ZiPx3T5t23CjuO5b5TEyjMWpl
esnzzCiuPKq+x5Ck4Veq7JWfMopXGq8kJJk0XGM+C+TOj+KLRH/vdGka67R2
qQmKRtH7Vct1xkwa/L+2BTU2jSJ2ote2Zw6NsBm2szxnjEGtX0Hn/RIarDCt
zsuyY2jKoUIfL6VxsFuqoGPOGO5sPvzy2jIazmWNhpsXjmH1o6ZCP00aBrss
3fRWjkGlLGXRmDaZ33XzElHHMSTN3CTbqUsjyGSN7eXMMTwJiRobBA0R/8yo
czljMChTqC2maKTk02Un88agI/HqyX5zGrcYN5X3Xx9DQd8Fi48WNHoblVga
5WM4n9YQXb6Rxrbt46mlbWMoObftg5UtDUP/6g91chwkrzDteLudRl3+fJlK
RQ7UvowmhDjTcHobhqL5HKzNf+2tsIOGv/7K4kQ1Dn7u7a3YupNGkSA/wk6X
A+dXObGNLjTmxUcrdzhysNtm7fiZvTQE+Rs8fqdyoPzTGiHeNMy4pumrszhI
C3Q1kCBxHm1nVHsklwM6uc8gh5g5sVxN/BoHATEHnR/40JjjMqtXuYwDX/8Z
c2g/GqsUPu2ze8+Bqw43YWUQjRDftrTMTg7CxTOWlRFX1jY/+9TFwcmAohaD
YBqmQU9Vvfo4sBdfZ7YmhIZNy/WeKC4HvzUlLq7+i4ZnQsC+UiUulN3W2XLC
aRR/9U7jqnDRc2pvqk8EjUFDj2emalykmUx87SIO/rFN9aUWF/f8r11+dpTG
SYt1Pb3GXPx5nZF7PJLGBaH4PgU3LtzC5eIaomi0Bl5wP3KNC7XjUWsLYmlo
pc4eDy3k4g0tpjlCfPpuXFbwLS5iEqMoiziyH6zgl4fvcyGptZvdRXzJ11b/
QC0Xvhp/b5BJoOFzUCjp2MtFmfyV16ZnyH7FBl+z6+Oi+2O260lilRsDJpt/
caHwLEa+lrj1W3uQ1TAXWQxL0fVJNIz2lXw2ZfDANXdrX5dMQ3y3210tNR7W
3f+xk5FCw+1Y+ybNZTz0vbCLMyKuumDzfakWDxdE7nb5Evt0Giqp6vIw/9s2
6XfEb51nnZ5rwUPEAUPXzHPk/cJiVeZY8uB5dWdHLXFM1niVnA0Pu8SCo2ji
Ne39gzOceNhpeMZ2UyqNy441zuIePFTudPhME/MCDYdED/LQ80S7eF4aib/U
20lTh3iYYz15GcTT3uTUCIJ4yHiVIJ1E7Lc5SGsomgc6Ra9zbjqNF779daxY
HlyVG8fWEC9K2rN3MJGHlpatJruI3zVtyuxP46H5moPVeeK1VmqTXVd50JTs
3iaVQUO/4GVCww0e+m95makT60wFy5fe5KHIfq2LCbFa1XPNmFIetPMeavoR
K8v7lR2u4IG13ufzKWLFAAWzHQ94KBvcX5NDLKPhuVXrGQ+UuYFqLbHE6Rn/
ytfzwPwz/dJ7YpGvFd4TjTy8zdWxHSAezZY40drKgxfH3kwmk+ST4TvMh+08
6Bfan15APGC3I6OggwfGjlyBFnGXRHFxWDcP1x5Jn7Qi7vBw0HP/zkNIgG7K
NuJ31bwnmwZ4sFxyvcWduHn+VWu9QR6UPu019yN+EbapTZkm80/17Asjrnk3
tEdilIc664onJ4kf6lwYYHN5uChq35BIXH7GIqRznIfQR7pi6cR3+35N1E7x
sCXMPSiX+JZFRsJtMT40dTtkrxBfv2wsny3Jhzg79/sN4suCb5eiZPjouX3j
5y3iHOdkzUOz+HjqO774LnH6ff0yJ3k+LmtfPHOfOHlml6nJXD6iBmOWVRDH
+cQ2Ll3Ah/udf0YriaNf/G/rrEV8rA8yHKsijlT70MVT40PDYFLjH+KwEye8
e5fxMV0w6+x/44Gflo280uJj+Knvkv+e9zF8c7xCh4/OOFlWGfGB9CPMfF0+
au1Ef90jdmMtykgw5OP2XON5JcQ7bRpVgtfxkd1THV5MvLUwsNjVjI9Tt5Nl
CojtGEp6Gy34CAy/3ppHbO327ImOJR9uGyUas4gtHh6ynmfDxxb5+0NniU0U
5dpE7fikvhVtiSU2DH6457cjH6vu938+RryqxWOgfTsf6qeD8oKIl8aVTRTt
Ie+jub/chXhxr2tC2j4+GMKXMnbE883E5Y958iFojcyiiGdytmnaHeZj8Hg1
1ImZThP3jYL46N9u5y5PzLhzw1T1Lz6+6WiWMYi5nhyn0Ug+vn57wP6XxOPw
s8tdXSeJnwZ1viIeVLHybojhozsvZKyKuPv9+eMXkvn4sWt73Vnipo1ri6k8
PoRfU5+sJA5vOKETdYWPD3e7pykQa26qK39ynY96D8XdXHL+4jbbP1tXQuIh
SE/3EfGGrZ6f9Kv5mGugH2tEPNp+yz2klo9clTITBeICZ7qv9AVZn59zGTQ5
/wyXYyM6b0i8LM+ovE5c4542fXk3H0fsHV4wiAN7P6R7fefjmsPk4EeSXxYd
UFYqHOCjVz9d9TbxCa+ipepDfFwt9C13JDbxf2KmwhBAZeWPk2kkX1Ud+xko
u0QAZvtw+bezpJ5P6HDtNQWIlZh6cJNYMSr0eMoKARSVh5r9iUNPTSXKGAgQ
Tscpc0h+1U2cUzDNUoB1ZhEefJJ/72Sbv+d7CVB6ODzxXSKJr3nxrmv8BIh6
2+uXSDzjQnNPWKAAHvP03EDsd2kHayRcAC/7WJ9ikv+1rh+WZCUK4O9BLw+I
p3GjNHdt798CBCn3rH8TQ+J53FWr464AzfedhiOJV21cuKClTICs7azXy4kf
d1wTPnhE7q8pmB59mkbb1N9P014JYKstWbz0FA1Ru+qN5r8FSN5+z9mK1K8X
508aGrEFqL1f+7H/BDmPPRYa/xsRwFN5KjaeeN5fDUylcQFGFTiH6o7TWJnX
+oqWHofhxS/2+qQe7vnV63hFaxxWwqSMQVJf1fRvWGTrjGPHYvRHEQ8c99JL
1h1Hu4OytxxxqOygQvi6ccz9uG1I/wiNpDVjH+1txvEsvFo1kNTrB3GSblOH
xnFtdqigmtT7OeorfNxujiMv3TupmvQPqelJzjdLxiEylbZ8BbE047fFaCl5
vlKuNYf0HyI9NxeceTiOXcz5hgFeJJ4va7yueDWOHj3q4GxPUk/nq6+awRqH
8+1fzkvcyXzk5nMe6QrRpvZPRDrpj9jREb0SRkK8EbxU69lG1nuoo8XRWAjN
hQbtOsTureeL+tcLQVvOcmhworE5Zc4u+e1CfFr8+e9Bexrq0rKPfY4IIcdp
HWHakPwsyjyl9FgI+WUG9fGmJN+X5Lo51Aix/kav9SMTGlIu2sbxdUJs0e7q
+mNMg7pvNzraLMSQ7QNjh3UknjyyDrZ2CRH+dUaDlBFZr+dqtvFTQsTaayo7
rCLnKdZUYcxiAjlb1WqWq9GoYIYUtjZNoOC3Fnu2GI2+yOg/1a8nUOFvmzGf
QfZz6Jx+ydsJ6D+q9VIXJfm083ZtYucEBO6+6z0n2dhwq+9fi58TCJ3nUpbC
YeOdrcvcCuYkns1+XpbRxyZ12Dwh12oSlcueGx4k/fyKObN9POonoThwbOP/
TrAhf/fR7RtNk1DOfr2h8BgbAmsv9sDrSaxWvOeqQr4nGiOrQwM+TOJMskbr
tFA2Dnz3i4rsnwTHsbvt6SE2LpU1ZWZLTaESEZYd29iY6XT66cstU2gvtO64
sJwNdgpHQe/DFFIK9tw5+JoF9fj4lQE+IlTbxj+X309nodfl8yeLfhEqfmbl
TlPDP7D+0cav8Beldof+TghbNYjwYE9vxT+ilO7LVxIKqr9hV3nRRjGMQYUY
z/ew7voJltAnUozDoJ4zTU1VMwZw9WN0uX+IGNXX/NjOw6AfAm9T94hxMUqn
qh0f8n5AZSLNNeioOKWhqFuxRPw7+qySXjLFp1EeWmf3e2r34vmyZixMmkaF
mfX8Pd20Gz7MQnFVKQnK7f26i+9vfkHVlSWmz9MkKJmjeZ8ObO5Ai7FJvZOs
JHXdbXtal2g7eD4Xt7qnSFJ/1SlLG+q+QaND/vYZikxKf7Wxa+eKenisNSkq
ymRSHTNLErSbK3Hoz+uxL9lMKoGzdnwyuBKBV/dukMtlUh83esrUKlUiSup0
T+QlJrV0wXnxuV4VyOtsWuBUyKQcr3q5CEXK8SFiR6qwikltWPA4o3x1KWwe
Bkc4fmZSK5M8j1bOKIKjv3hjXBeTkrZQatiwoxA71bIVH39lUqqNUvb3r9yA
15kHZcu+M6l75ldna+tdR4yLCGt8kEmxft90yXC+imrBWY/CSSZlYbRB4YTO
edTfWVT6WUSKCk7eOOfUkyw0e5ROzRaTohacrEnesDkTn1+25x2TlKK0LdS/
ih9KA+/Cgo8Os8n4oTXqfWbxmLIrWRonJ0VxBO3J73fGQEKMtC4KUlRN04Fv
5sHRUPD1kF2mJEVZmTy+o2Z1BAsWje51XSBFhVud+zkQFgS1ttg7qSpS1Ozc
NKGjrRe04udO1C+SoraoF5QlbdmB1cY3bcdVpaitj/L//3/I/wEvr6gd
          "]]}},
       AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
       Axes->True,
       AxesOrigin->{0, 0},
       BaseStyle->{FontSize -> 16, FontFamily -> "Arial", Bold},
       Epilog->{
         RGBColor[0.6, 0.4, 0.2], 
         InsetBox[
          BoxData[
           FormBox[
            StyleBox["\"Even better one\"", 15, Bold, StripOnInput -> False], 
            TraditionalForm]], 
          ImageScaled[{0.6, 0.57}], {Center, Center}], 
         GrayLevel[0], 
         AbsoluteThickness[3], 
         Arrowheads[{0, 0.03}], 
         ArrowBox[{
           ImageScaled[{0.6, 0.6}], 
           ImageScaled[{0.72, 0.72}]}]},
       Frame->True,
       FrameLabel->{{
          FormBox["\"y axis\"", TraditionalForm], None}, {
          FormBox[
          "\"(1a)                                                             \
                     x axis\"", TraditionalForm], 
          FormBox["\"Now let us make a grid\"", TraditionalForm]}},
       FrameStyle->Directive[
         RGBColor[0, 0, 1], 
         AbsoluteThickness[2]],
       ImageSize->550,
       PlotRange->
        NCache[{{0, Pi}, {0., 1.0363084375597482`}}, {{
          0, 3.141592653589793}, {0., 1.0363084375597482`}}],
       PlotRangeClipping->True,
       PlotRangePadding->{
         Scaled[0.02], 
         Scaled[0.02]}], {293.3333333333333, -181.28997003330247`}, 
      ImageScaled[{0.5, 0.5}], {550, 339.91869381244214`}], InsetBox[
      GraphicsBox[{{}, {}, 
        {RGBColor[1, 0, 0], AbsoluteThickness[2], AbsoluteDashing[{6, 3}], 
         LineBox[CompressedData["
1:eJwt2Hk0VV/YB3BD5VIqUyU0aJZIioS+l1+lKFOlQYRSkjIVDaJBKkpIkgyV
IkJJKEmIQpJCoVRkjnuM955zh7z7fdf717M+a92z9tn7PPu797pzXTxtXSXE
xMQkxcXE/q++kan5s8p7rdj/1wU9RYazbljhvEp5jxqp/Kfa+5ui9mLOT2vV
RlI7FN3ovChPXC0QNWaT2rwhuPRhVBBuOoytiyS1YW/UooSo62hNGNSxINXW
Q7k5NioJ43fMlLKJTELk0J6cmKgniIJ5rP+1JzAsN5cx9S0GN/dWacbBYnid
snTO8aoA73rTrWLzChx54RouMa8WQ6W1gyWcT6jv3iSd6lKPwdD5I80y9QjV
5orl7WrE7wV6xq5l3+C9tOJm8cMfeBPzxNsi5zv4+w5ntRz9DasW263lXr/g
8trOOuJAG+4/P7nf8GAr9g3WFxdfbkfAVAuvnYv+4OryfM+UkE40Dd86Mzmv
HRLF+frBp7rR0XxcX2xJJ+Q0LGp+xfaCozmJdzW5CxuTTJMHovogmjLH6k9f
N6ZT1RuC8jkY5LAP79TrRdz7AnHJQwOQeBG4+9KevzBSMxmbs38Q337c032w
tQ9Lf09tP3NsCCNpBon17H5Yds0p9TsxhLRt1xQnreuHF2f5Xc+AIbTaz3lt
YtaP50LrPc7BQ1g9ac2D1C39MFKOrF8XPQR6/Msyh9392GwrVz7x+RDmn106
z9e3Hx5lcim3h4dwu29AxH7Qj8xH8m65PsMwKi2qdBTjILjhjYmk/zCYVgXz
PZIc7JE4omJzehiXjrsl7pjAgcye9zV9F4aRralbajaJgwNTAlbNvzmMmzMt
B2RncDDHr0PiRv4wOvRn5OtocxD934sEL+EwHigZnG6w5yDgp0Pd0pARGEoU
lp3P4mDEzDjBNXQEioks6+6nHHhkqx5MCh9BSNKmfIscDuyDv/Plb43gnMu/
GZNecLBGY5c6P3UElE7UfN8SDpjj27wrKkdwsrVZv7mOAz9ZiymusqMQJl1b
MZHHAcdPoylRbhRmlhl9Sxnyvr+lkxuVRnGIeX7GXMCBXU6F3uZZo8iQ6Z93
boyDVbs2OOpqj2JWb0tAvRSFkQcmmeI2oyjo8mQrzKDgbbTaIjF6FEvSshQG
9CiIHY0Ouh47ioWPiiMfr6YQnjSQczZ+FNtexGu4rqGQLpGmuu/BKLZwzDK+
GFNoq1DmLHo+ChubC30x6yhs2y6IyK4bRXpBzqYyGwp6R4u+lslzkeur/y7b
nUJZ0syJedO4+Hjh6+HlHhRsP/shdSYX+0SzlmQeoXB0pfajK+pc+H616r3r
RSGVn3TScgUXqWuzg739KMy4dE610YaLaIOG8fnnKPCT1rn8jeBiv+jD/S8x
FNbyjKN0bnKxcumorHYshXOW+qX+t7mQ1qT0r9ymwBItUR93nws7seH3evEU
lHZPaVPN4aLxUESD3z0KyxWbnS0buIjRd4gKfUzB93BdZHQTF/3uu36VZlDI
K60uaW7hghWS1UNnUjD2fjP3YCcXf1Un6jk+pWBe86A1iMeFxgnNx7K5FFwv
ezpnK/Pwve7qyNhrCo9+uUXy1HhI6JaXVXxDoU/PpcRYnYe365JbFxRT8OnY
NrdKg4fCL9FFpqUUzpquaW0z5EHW+v5653cU4oTjnBUdefghveiETg2FWq84
J//7POzT2jWq9oOCRsRUwbEUYs1VY9+JLzwJuemTzsOyxIeysS3ke3B8qo48
42GnjtJqmV8UEg5brNxfykOGBVXytZWC+wGhlE0bD5rxdNLULvK9Lvrct+zk
oU+poz+LWO1ht9HmXh4akl/CopuM/6fe22yIh8l6I5wzPRT0nTO/G0vQ6MpJ
OfXhL4VxexyfaKjTCKubD6kBCo6n6zctXkiDV7Px/UXi/Djz9gUaNIxmVthK
DJLxm/SU566g4VT60neU+LPdlAvTTWl46sb+eDtM5ud3UU1pA43Y9LLAFSMU
gm8K8uXNaVzok5ufRLy6vqtP1paGf9ewv88ohUSbYrtxLjRSN8xZJ86jQHvp
DYofoKHyNv7fXmLbiIywsUM0tDylCguJx3+KLeZ70zBziYAXTcFjs7fG4Dka
/3G/ur1hKLw73FXGuUhDcZvGmsl8CrPDHPb2XaExV8dksj3xl8pN0V2RNOLc
U4o4xAZm6v9a7pHx62vxT0BhZXLV5fcPaZyp9qQMhRS0xnwUstNoLMoLzPUn
Vs9/uzg4m8bj5T+De4hVFTxyjuTSiBheFD5bRGGap+LaHS9p2E+qz9xKPHGR
61aNEhqFHRuW5xFPuCD7U6GcRmip1I12YrFfuW6iChrPl82eJPeP7P+YCYG1
tTSilpiZ7CfmDGWxCupp5BfbikKJuy133EhupKE0nP7pCXHLhEeP/H7T8Dix
On+YuNHFWtepncaUwkPV8mNkvkX0603dNNYG/OJpE1fPvLdRt4/Gef4tAwvi
d36b6lQHyHxuRkbuJy7+MugwYYTG58qqsdPEBVpx3RSPxtblpsGRxM9DTX2b
BDS+B3FnPSR+0tkrKh2jsfNq56c84nTTG5czJBlImMndekf8INFQIUaKwZ6i
48fqiRP5fxKCJjJYNkvB7TdxrN3VxYemMAh90u3dSxz1bGWOrQKDqsbRyCHi
q5NbjI2mM7ihtqaCJg5xv1ixQIXBp1m5iiLic++WbZ0ym0FO3AH/MeIA9a8t
tDqDAg/Lgf+1X2CgW9tCBhnXPIL+EXs1Lxz+oMEgRqFkvoDYXe/TmVwtBjU6
m3+PEu+P8mclrWAwvHryMw6xI2f2jct6DKgYqbgO4p3mFWo+axgMfl0d20y8
NcXrkf1aBj737md8JLaUUNZdb8pAt3D9tyLijY4lr7U2MIDMvBlZxKYFhzbO
MGfQE2boeYfYaJp8nbglg0rHiB8hxHo+BQ5/bRiUv1Z38iJeXuPSXb+dwQTx
EWYH8YKQHFGqAwPPRbu85hLPabO/HOnMYPuWgc2SxDPXjlM47crg349q/CH9
MJm7bbHlEQYa4o5uCcQsW9EzfW8GaaXTEv2JJbIeGs89zqDdTK3XipjnyrUd
CSDrbaBWzif9OVSS2NJyloHxa5VtH4n71Mzc3gczmKzrwyQQ/264dSbuKoM7
risuGRBXrjd4xI5nQDvZPdlF9seJ94FaQXcZXPfyyplOvHhT2fPXD8h6cp39
68h+C9lsVbImk4F2+c+164jXbXVtXlnE4NXnT9UyZH+O1Kc7+ZYy6OxYWZtH
9ney3UBn9jsGipvibzgRS+w+Paz1iUG+e+juTJIHxU6Rk5b8ZmAivNWzlOSF
V9vXqIPtDLhbSvvLuSQP9qsqp3QzqO6e98yBOPBg6oJ5gwzenUg/HULyyOjo
67VqEnwo7YiXf03yLP90j5fcfD4uJtjuKKIoHBBp8awW87HQuMBlJfG0oGNn
wjX56D3dqvWIQ+HY+bErE1eR3x+Pkb7ST2HFFaXk8Rv4EF15UalN8jYrxqSB
OcgH6+LWQLlO0l8zLtmv9uBDcCwzbl8HBdm46lY/Lz6W1PufyGkn+ZawgzN8
go+qO9dPbP5D8vXBESnOFT7aNy6/uu83hYfZtw3aHvPx7GTbpIXNpJ8F9hqN
T/ioPNZg79JE+mf9LJWaHPL8p8X58Y0UChvvC1++4kNKb+6Nid8o1I09fhP5
gY+/bjmtn+soiFsWrTf5y0eFMKZd7CMFh942m7saAiwRO9LaTc5H9ZUPTWO0
BDjwWfdrZyHJozMHda+uEED0Wbmp7RWZv1yf4ok1Ajw1uCDd8JJC2OrRb1bm
ApxdEzntPjlvX4ZIOY4dEkDwTmPgJzmvleZpujumCWAWpqzaTs7/iKgwu7RM
AbRNFstcIfcDGYm/piPZAnj7jWUvvUXysjVNJbRAAOdZHtru0aQfExd9zP0g
wItKVvuHcHIezpy3XJYjAGuOpoX6BfI+8jO5r1YIoaZ+o1aF3G+ocyfbJugL
IUNHLz3hRtZrsLHGxlAII8mG/74coOBUeyu16z8h2vdcyQjaR2FzuNIuhe1C
HMme7fJmD4V5MnKF7v5CxE/yOvnFkuSrOOu8cqEQ+lXhRht1SF5n3na0LhaC
eZUS4KpNQXr3UsNLZULolLdFnV1Ggf3McmSkWgibhi2mT5eQfnC5eaC2RYhd
dqlPR+eS9XqrbnFpTIhVM+71zJAn++GiseKoqQgzV2x/VzLAQS7LN6W2UoRr
e9nHH6Zy0Blwrr/oowhfpKMX73vIwYzB6yszP4twvGO/xOxkcv9tyii90iRC
2x4ZjchEDtald/407RFBrBhb9t7k4IvF7um5rH+ojrkmkXyeg4Fwk8u3zf7h
RYvd4kpyf9ZUmuruUv4PK6iyglgWB1Q4V1H36xjWlC8rdzDsx7xLl7Q93cXY
NdrWBz479KFt9/dm0y4x9rixPJV9h/5iY0cdk3tUnH2I8jN5btqLEz6ubtP6
xdnVuWeOGSj1wDLvjvk0Pwn2sJh4cv2zLnCE7gGSXAn2BbPDRnutOnHv27nn
R30l2ds3WPWsbWkH383Y6aRAkq2zd06b5qo/UBNF2nufGse+eIfufn+zFZ1m
YVWscePZHVadeVZnf+HtwmrMChvPHqd36mNJ6Xe4s1LGzZWewG7x+BMQuaQR
+XfnG7+NnMBWVumocl5cjxpDo3JbOSl2SqFD7DG7WtDud7Y6hUux7etn9/Cm
VKLCOmm77DQWOyLbV/XRs2K4GBilpkaz2LW8Lv7PlGwc6v84+iOGxVYN8wvb
65QNr3t718nfZrHT5aZX/lTORpD0hdaABBb7fpGMc9PVp4hvqlSxTWGxf9F2
K4M6svD15I4IYT6LfaBKqyotIB3mBT4nbb6z2EYzl4lFpt2DzdFxFSEtLPaO
tSMGtqr3sFM9ZlrhLxb71jPhAvnrd3Ew9GXOwnYWu1G1MEi1JxHBu8U4gj4W
2+11oPVgYByK+NdcUv6x2OUbrI8gPRLlWbOzv4tJs+PDbNj3r0eg2iV7bKqk
NJs5G3tXqjcc36vq409LSbPb2Hf5IUGhoONUvllPlWbnd8t8PJp+DmOWmQtC
5KXZiT2Kg5t6AzFBEsdeKUqzDX7I9+cEnYLiYRe5hcrS7Iat8Zrn072hMntk
r70KGc+jdXVNkDvU6y5mRahJs8VNHyvEpDtD49J0UflsabassGjpy3Qb6Bim
WQjmSrO1dK793/8D/wMuq3uF
          "]]}, 
        {RGBColor[0, 1, 0], AbsoluteThickness[2], AbsoluteDashing[{1, 0}], 
         LineBox[CompressedData["
1:eJwd2Hk8Vdv7B3AOcdBkSCkqVERflbEyfDYVokyVipKUCJmvKCVljGSOUiqF
uqlkuk2SCCUpKio3VKh0zjadycFv3d9f+/V+rb1fr7XXetbzPHuregQ4eTJE
RETkREVE/ruKPZVu+WYQZKb3s8Q8oCLMbOnPauOFGfbgtzYclm/bBsG9lQc6
0/fCq3Rix/q3B/BDwZtXmR4AW6Oqzf2vQ/HJMqb2RnoUzi91tHRsiMH7veka
l9LPITgkx9zwYSac/JQ+5aTno6lh1WPmletIG95dlp1+F02bD46U+pbDuN5G
2iKkBl689Bf2b+sQeNRuX1lgI57J2XXUbWrB4X88UxjqrSj5V/28ZVYb2gc2
SRV5tEOMqWtUrt2BMys5IpW7OnCoOvCHtOkXBGk3ZtXc+ALZ0s9Px/S7Idjv
e6fLvxuHxSVyItR74fHE2SH1YC+yL302ff3+G/YPtdfUJHyHWnm7vtu5H0he
VRVQGNcHjZUMB+GsfjBqqoxijg5gYsC6QDNgALJati1fc37BZbmTQO/NT1jn
WxTQ6YPwrts6FCn8hbnsZsuoKhYyTDf98F46iAsND0XFDtG4F7Fo7TetPzBR
MZ9afGAIyWn7+UNiLGh3z/5+PHQYTWGStxe/Y8Guf3FtWPgwvPfKtg+0sxDI
WnUlIHIYppjaevcjC+VCh937YoaR8j3O1aiLBROltPYNmcNoqN+YqDfAwmYn
2XqZ8mFc7I3e+2WCBb862cLcETIeO8Jha7BRUiznXRE8At3gx28XHmEj5v1T
c7EjI8hdnBh/N4KN3YzDCxyPjaBK0t3WLJIN6d0NLYOnRyB/csXE9mg2Ds6K
NFiSNQJ7JUrKP4mNxWE/GBlVI+j64/icymcjc/0/lwKFI7BZtPhpYD0bvoGe
R6pFRnHou57h8wY2LC7JOU6fNgqzXsdH8i/ZGOL4iRfPGIVMwm32nRY27G6p
+n5dOArNyC8iLR/ZYMomrbEzH8URCY36Oz/ZiPx3T5t23CjuO5b5TEyjMWpl
esnzzCiuPKq+x5Ck4Veq7JWfMopXGq8kJJk0XGM+C+TOj+KLRH/vdGka67R2
qQmKRtH7Vct1xkwa/L+2BTU2jSJ2ote2Zw6NsBm2szxnjEGtX0Hn/RIarDCt
zsuyY2jKoUIfL6VxsFuqoGPOGO5sPvzy2jIazmWNhpsXjmH1o6ZCP00aBrss
3fRWjkGlLGXRmDaZ33XzElHHMSTN3CTbqUsjyGSN7eXMMTwJiRobBA0R/8yo
czljMChTqC2maKTk02Un88agI/HqyX5zGrcYN5X3Xx9DQd8Fi48WNHoblVga
5WM4n9YQXb6Rxrbt46mlbWMoObftg5UtDUP/6g91chwkrzDteLudRl3+fJlK
RQ7UvowmhDjTcHobhqL5HKzNf+2tsIOGv/7K4kQ1Dn7u7a3YupNGkSA/wk6X
A+dXObGNLjTmxUcrdzhysNtm7fiZvTQE+Rs8fqdyoPzTGiHeNMy4pumrszhI
C3Q1kCBxHm1nVHsklwM6uc8gh5g5sVxN/BoHATEHnR/40JjjMqtXuYwDX/8Z
c2g/GqsUPu2ze8+Bqw43YWUQjRDftrTMTg7CxTOWlRFX1jY/+9TFwcmAohaD
YBqmQU9Vvfo4sBdfZ7YmhIZNy/WeKC4HvzUlLq7+i4ZnQsC+UiUulN3W2XLC
aRR/9U7jqnDRc2pvqk8EjUFDj2emalykmUx87SIO/rFN9aUWF/f8r11+dpTG
SYt1Pb3GXPx5nZF7PJLGBaH4PgU3LtzC5eIaomi0Bl5wP3KNC7XjUWsLYmlo
pc4eDy3k4g0tpjlCfPpuXFbwLS5iEqMoiziyH6zgl4fvcyGptZvdRXzJ11b/
QC0Xvhp/b5BJoOFzUCjp2MtFmfyV16ZnyH7FBl+z6+Oi+2O260lilRsDJpt/
caHwLEa+lrj1W3uQ1TAXWQxL0fVJNIz2lXw2ZfDANXdrX5dMQ3y3210tNR7W
3f+xk5FCw+1Y+ybNZTz0vbCLMyKuumDzfakWDxdE7nb5Evt0Giqp6vIw/9s2
6XfEb51nnZ5rwUPEAUPXzHPk/cJiVeZY8uB5dWdHLXFM1niVnA0Pu8SCo2ji
Ne39gzOceNhpeMZ2UyqNy441zuIePFTudPhME/MCDYdED/LQ80S7eF4aib/U
20lTh3iYYz15GcTT3uTUCIJ4yHiVIJ1E7Lc5SGsomgc6Ra9zbjqNF779daxY
HlyVG8fWEC9K2rN3MJGHlpatJruI3zVtyuxP46H5moPVeeK1VmqTXVd50JTs
3iaVQUO/4GVCww0e+m95makT60wFy5fe5KHIfq2LCbFa1XPNmFIetPMeavoR
K8v7lR2u4IG13ufzKWLFAAWzHQ94KBvcX5NDLKPhuVXrGQ+UuYFqLbHE6Rn/
ytfzwPwz/dJ7YpGvFd4TjTy8zdWxHSAezZY40drKgxfH3kwmk+ST4TvMh+08
6Bfan15APGC3I6OggwfGjlyBFnGXRHFxWDcP1x5Jn7Qi7vBw0HP/zkNIgG7K
NuJ31bwnmwZ4sFxyvcWduHn+VWu9QR6UPu019yN+EbapTZkm80/17Asjrnk3
tEdilIc664onJ4kf6lwYYHN5uChq35BIXH7GIqRznIfQR7pi6cR3+35N1E7x
sCXMPSiX+JZFRsJtMT40dTtkrxBfv2wsny3Jhzg79/sN4suCb5eiZPjouX3j
5y3iHOdkzUOz+HjqO774LnH6ff0yJ3k+LmtfPHOfOHlml6nJXD6iBmOWVRDH
+cQ2Ll3Ah/udf0YriaNf/G/rrEV8rA8yHKsijlT70MVT40PDYFLjH+KwEye8
e5fxMV0w6+x/44Gflo280uJj+Knvkv+e9zF8c7xCh4/OOFlWGfGB9CPMfF0+
au1Ef90jdmMtykgw5OP2XON5JcQ7bRpVgtfxkd1THV5MvLUwsNjVjI9Tt5Nl
CojtGEp6Gy34CAy/3ppHbO327ImOJR9uGyUas4gtHh6ynmfDxxb5+0NniU0U
5dpE7fikvhVtiSU2DH6457cjH6vu938+RryqxWOgfTsf6qeD8oKIl8aVTRTt
Ie+jub/chXhxr2tC2j4+GMKXMnbE883E5Y958iFojcyiiGdytmnaHeZj8Hg1
1ImZThP3jYL46N9u5y5PzLhzw1T1Lz6+6WiWMYi5nhyn0Ug+vn57wP6XxOPw
s8tdXSeJnwZ1viIeVLHybojhozsvZKyKuPv9+eMXkvn4sWt73Vnipo1ri6k8
PoRfU5+sJA5vOKETdYWPD3e7pykQa26qK39ynY96D8XdXHL+4jbbP1tXQuIh
SE/3EfGGrZ6f9Kv5mGugH2tEPNp+yz2klo9clTITBeICZ7qv9AVZn59zGTQ5
/wyXYyM6b0i8LM+ovE5c4542fXk3H0fsHV4wiAN7P6R7fefjmsPk4EeSXxYd
UFYqHOCjVz9d9TbxCa+ipepDfFwt9C13JDbxf2KmwhBAZeWPk2kkX1Ud+xko
u0QAZvtw+bezpJ5P6HDtNQWIlZh6cJNYMSr0eMoKARSVh5r9iUNPTSXKGAgQ
Tscpc0h+1U2cUzDNUoB1ZhEefJJ/72Sbv+d7CVB6ODzxXSKJr3nxrmv8BIh6
2+uXSDzjQnNPWKAAHvP03EDsd2kHayRcAC/7WJ9ikv+1rh+WZCUK4O9BLw+I
p3GjNHdt798CBCn3rH8TQ+J53FWr464AzfedhiOJV21cuKClTICs7azXy4kf
d1wTPnhE7q8pmB59mkbb1N9P014JYKstWbz0FA1Ru+qN5r8FSN5+z9mK1K8X
508aGrEFqL1f+7H/BDmPPRYa/xsRwFN5KjaeeN5fDUylcQFGFTiH6o7TWJnX
+oqWHofhxS/2+qQe7vnV63hFaxxWwqSMQVJf1fRvWGTrjGPHYvRHEQ8c99JL
1h1Hu4OytxxxqOygQvi6ccz9uG1I/wiNpDVjH+1txvEsvFo1kNTrB3GSblOH
xnFtdqigmtT7OeorfNxujiMv3TupmvQPqelJzjdLxiEylbZ8BbE047fFaCl5
vlKuNYf0HyI9NxeceTiOXcz5hgFeJJ4va7yueDWOHj3q4GxPUk/nq6+awRqH
8+1fzkvcyXzk5nMe6QrRpvZPRDrpj9jREb0SRkK8EbxU69lG1nuoo8XRWAjN
hQbtOsTureeL+tcLQVvOcmhworE5Zc4u+e1CfFr8+e9Bexrq0rKPfY4IIcdp
HWHakPwsyjyl9FgI+WUG9fGmJN+X5Lo51Aix/kav9SMTGlIu2sbxdUJs0e7q
+mNMg7pvNzraLMSQ7QNjh3UknjyyDrZ2CRH+dUaDlBFZr+dqtvFTQsTaayo7
rCLnKdZUYcxiAjlb1WqWq9GoYIYUtjZNoOC3Fnu2GI2+yOg/1a8nUOFvmzGf
QfZz6Jx+ydsJ6D+q9VIXJfm083ZtYucEBO6+6z0n2dhwq+9fi58TCJ3nUpbC
YeOdrcvcCuYkns1+XpbRxyZ12Dwh12oSlcueGx4k/fyKObN9POonoThwbOP/
TrAhf/fR7RtNk1DOfr2h8BgbAmsv9sDrSaxWvOeqQr4nGiOrQwM+TOJMskbr
tFA2Dnz3i4rsnwTHsbvt6SE2LpU1ZWZLTaESEZYd29iY6XT66cstU2gvtO64
sJwNdgpHQe/DFFIK9tw5+JoF9fj4lQE+IlTbxj+X309nodfl8yeLfhEqfmbl
TlPDP7D+0cav8Beldof+TghbNYjwYE9vxT+ilO7LVxIKqr9hV3nRRjGMQYUY
z/ew7voJltAnUozDoJ4zTU1VMwZw9WN0uX+IGNXX/NjOw6AfAm9T94hxMUqn
qh0f8n5AZSLNNeioOKWhqFuxRPw7+qySXjLFp1EeWmf3e2r34vmyZixMmkaF
mfX8Pd20Gz7MQnFVKQnK7f26i+9vfkHVlSWmz9MkKJmjeZ8ObO5Ai7FJvZOs
JHXdbXtal2g7eD4Xt7qnSFJ/1SlLG+q+QaND/vYZikxKf7Wxa+eKenisNSkq
ymRSHTNLErSbK3Hoz+uxL9lMKoGzdnwyuBKBV/dukMtlUh83esrUKlUiSup0
T+QlJrV0wXnxuV4VyOtsWuBUyKQcr3q5CEXK8SFiR6qwikltWPA4o3x1KWwe
Bkc4fmZSK5M8j1bOKIKjv3hjXBeTkrZQatiwoxA71bIVH39lUqqNUvb3r9yA
15kHZcu+M6l75ldna+tdR4yLCGt8kEmxft90yXC+imrBWY/CSSZlYbRB4YTO
edTfWVT6WUSKCk7eOOfUkyw0e5ROzRaTohacrEnesDkTn1+25x2TlKK0LdS/
ih9KA+/Cgo8Os8n4oTXqfWbxmLIrWRonJ0VxBO3J73fGQEKMtC4KUlRN04Fv
5sHRUPD1kF2mJEVZmTy+o2Z1BAsWje51XSBFhVud+zkQFgS1ttg7qSpS1Ozc
NKGjrRe04udO1C+SoraoF5QlbdmB1cY3bcdVpaitj/L//3/I/wEvr6gd
          "]]}},
       AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
       Axes->True,
       AxesOrigin->{0, 0},
       BaseStyle->{FontSize -> 16, FontFamily -> "Arial", Bold},
       Epilog->{
         RGBColor[0.6, 0.4, 0.2], 
         InsetBox[
          BoxData[
           FormBox[
            StyleBox["\"Even better one\"", 15, Bold, StripOnInput -> False], 
            TraditionalForm]], 
          ImageScaled[{0.6, 0.57}], {Center, Center}], 
         GrayLevel[0], 
         AbsoluteThickness[3], 
         Arrowheads[{0, 0.03}], 
         ArrowBox[{
           ImageScaled[{0.6, 0.6}], 
           ImageScaled[{0.72, 0.72}]}]},
       Frame->True,
       FrameLabel->{{
          FormBox["\"y axis\"", TraditionalForm], None}, {
          FormBox[
          "\"(1a)                                                             \
                     x axis\"", TraditionalForm], 
          FormBox["\"Now let us make a grid\"", TraditionalForm]}},
       FrameStyle->Directive[
         RGBColor[0, 0, 1], 
         AbsoluteThickness[2]],
       ImageSize->550,
       PlotRange->
        NCache[{{0, Pi}, {0., 1.0363084375597482`}}, {{
          0, 3.141592653589793}, {0., 1.0363084375597482`}}],
       PlotRangeClipping->True,
       PlotRangePadding->{
         Scaled[0.02], 
         Scaled[0.02]}], {880., -181.28997003330247`}, 
      ImageScaled[{0.5, 0.5}], {550, 339.91869381244214`}]}, {InsetBox[
      GraphicsBox[{{}, {}, 
        {RGBColor[1, 0, 0], AbsoluteThickness[2], AbsoluteDashing[{6, 3}], 
         LineBox[CompressedData["
1:eJwt2Hk0VV/YB3BD5VIqUyU0aJZIioS+l1+lKFOlQYRSkjIVDaJBKkpIkgyV
IkJJKEmIQpJCoVRkjnuM955zh7z7fdf717M+a92z9tn7PPu797pzXTxtXSXE
xMQkxcXE/q++kan5s8p7rdj/1wU9RYazbljhvEp5jxqp/Kfa+5ui9mLOT2vV
RlI7FN3ovChPXC0QNWaT2rwhuPRhVBBuOoytiyS1YW/UooSo62hNGNSxINXW
Q7k5NioJ43fMlLKJTELk0J6cmKgniIJ5rP+1JzAsN5cx9S0GN/dWacbBYnid
snTO8aoA73rTrWLzChx54RouMa8WQ6W1gyWcT6jv3iSd6lKPwdD5I80y9QjV
5orl7WrE7wV6xq5l3+C9tOJm8cMfeBPzxNsi5zv4+w5ntRz9DasW263lXr/g
8trOOuJAG+4/P7nf8GAr9g3WFxdfbkfAVAuvnYv+4OryfM+UkE40Dd86Mzmv
HRLF+frBp7rR0XxcX2xJJ+Q0LGp+xfaCozmJdzW5CxuTTJMHovogmjLH6k9f
N6ZT1RuC8jkY5LAP79TrRdz7AnHJQwOQeBG4+9KevzBSMxmbs38Q337c032w
tQ9Lf09tP3NsCCNpBon17H5Yds0p9TsxhLRt1xQnreuHF2f5Xc+AIbTaz3lt
YtaP50LrPc7BQ1g9ac2D1C39MFKOrF8XPQR6/Msyh9392GwrVz7x+RDmn106
z9e3Hx5lcim3h4dwu29AxH7Qj8xH8m65PsMwKi2qdBTjILjhjYmk/zCYVgXz
PZIc7JE4omJzehiXjrsl7pjAgcye9zV9F4aRralbajaJgwNTAlbNvzmMmzMt
B2RncDDHr0PiRv4wOvRn5OtocxD934sEL+EwHigZnG6w5yDgp0Pd0pARGEoU
lp3P4mDEzDjBNXQEioks6+6nHHhkqx5MCh9BSNKmfIscDuyDv/Plb43gnMu/
GZNecLBGY5c6P3UElE7UfN8SDpjj27wrKkdwsrVZv7mOAz9ZiymusqMQJl1b
MZHHAcdPoylRbhRmlhl9Sxnyvr+lkxuVRnGIeX7GXMCBXU6F3uZZo8iQ6Z93
boyDVbs2OOpqj2JWb0tAvRSFkQcmmeI2oyjo8mQrzKDgbbTaIjF6FEvSshQG
9CiIHY0Ouh47ioWPiiMfr6YQnjSQczZ+FNtexGu4rqGQLpGmuu/BKLZwzDK+
GFNoq1DmLHo+ChubC30x6yhs2y6IyK4bRXpBzqYyGwp6R4u+lslzkeur/y7b
nUJZ0syJedO4+Hjh6+HlHhRsP/shdSYX+0SzlmQeoXB0pfajK+pc+H616r3r
RSGVn3TScgUXqWuzg739KMy4dE610YaLaIOG8fnnKPCT1rn8jeBiv+jD/S8x
FNbyjKN0bnKxcumorHYshXOW+qX+t7mQ1qT0r9ymwBItUR93nws7seH3evEU
lHZPaVPN4aLxUESD3z0KyxWbnS0buIjRd4gKfUzB93BdZHQTF/3uu36VZlDI
K60uaW7hghWS1UNnUjD2fjP3YCcXf1Un6jk+pWBe86A1iMeFxgnNx7K5FFwv
ezpnK/Pwve7qyNhrCo9+uUXy1HhI6JaXVXxDoU/PpcRYnYe365JbFxRT8OnY
NrdKg4fCL9FFpqUUzpquaW0z5EHW+v5653cU4oTjnBUdefghveiETg2FWq84
J//7POzT2jWq9oOCRsRUwbEUYs1VY9+JLzwJuemTzsOyxIeysS3ke3B8qo48
42GnjtJqmV8UEg5brNxfykOGBVXytZWC+wGhlE0bD5rxdNLULvK9Lvrct+zk
oU+poz+LWO1ht9HmXh4akl/CopuM/6fe22yIh8l6I5wzPRT0nTO/G0vQ6MpJ
OfXhL4VxexyfaKjTCKubD6kBCo6n6zctXkiDV7Px/UXi/Djz9gUaNIxmVthK
DJLxm/SU566g4VT60neU+LPdlAvTTWl46sb+eDtM5ud3UU1pA43Y9LLAFSMU
gm8K8uXNaVzok5ufRLy6vqtP1paGf9ewv88ohUSbYrtxLjRSN8xZJ86jQHvp
DYofoKHyNv7fXmLbiIywsUM0tDylCguJx3+KLeZ70zBziYAXTcFjs7fG4Dka
/3G/ur1hKLw73FXGuUhDcZvGmsl8CrPDHPb2XaExV8dksj3xl8pN0V2RNOLc
U4o4xAZm6v9a7pHx62vxT0BhZXLV5fcPaZyp9qQMhRS0xnwUstNoLMoLzPUn
Vs9/uzg4m8bj5T+De4hVFTxyjuTSiBheFD5bRGGap+LaHS9p2E+qz9xKPHGR
61aNEhqFHRuW5xFPuCD7U6GcRmip1I12YrFfuW6iChrPl82eJPeP7P+YCYG1
tTSilpiZ7CfmDGWxCupp5BfbikKJuy133EhupKE0nP7pCXHLhEeP/H7T8Dix
On+YuNHFWtepncaUwkPV8mNkvkX0603dNNYG/OJpE1fPvLdRt4/Gef4tAwvi
d36b6lQHyHxuRkbuJy7+MugwYYTG58qqsdPEBVpx3RSPxtblpsGRxM9DTX2b
BDS+B3FnPSR+0tkrKh2jsfNq56c84nTTG5czJBlImMndekf8INFQIUaKwZ6i
48fqiRP5fxKCJjJYNkvB7TdxrN3VxYemMAh90u3dSxz1bGWOrQKDqsbRyCHi
q5NbjI2mM7ihtqaCJg5xv1ixQIXBp1m5iiLic++WbZ0ym0FO3AH/MeIA9a8t
tDqDAg/Lgf+1X2CgW9tCBhnXPIL+EXs1Lxz+oMEgRqFkvoDYXe/TmVwtBjU6
m3+PEu+P8mclrWAwvHryMw6xI2f2jct6DKgYqbgO4p3mFWo+axgMfl0d20y8
NcXrkf1aBj737md8JLaUUNZdb8pAt3D9tyLijY4lr7U2MIDMvBlZxKYFhzbO
MGfQE2boeYfYaJp8nbglg0rHiB8hxHo+BQ5/bRiUv1Z38iJeXuPSXb+dwQTx
EWYH8YKQHFGqAwPPRbu85hLPabO/HOnMYPuWgc2SxDPXjlM47crg349q/CH9
MJm7bbHlEQYa4o5uCcQsW9EzfW8GaaXTEv2JJbIeGs89zqDdTK3XipjnyrUd
CSDrbaBWzif9OVSS2NJyloHxa5VtH4n71Mzc3gczmKzrwyQQ/264dSbuKoM7
risuGRBXrjd4xI5nQDvZPdlF9seJ94FaQXcZXPfyyplOvHhT2fPXD8h6cp39
68h+C9lsVbImk4F2+c+164jXbXVtXlnE4NXnT9UyZH+O1Kc7+ZYy6OxYWZtH
9ney3UBn9jsGipvibzgRS+w+Paz1iUG+e+juTJIHxU6Rk5b8ZmAivNWzlOSF
V9vXqIPtDLhbSvvLuSQP9qsqp3QzqO6e98yBOPBg6oJ5gwzenUg/HULyyOjo
67VqEnwo7YiXf03yLP90j5fcfD4uJtjuKKIoHBBp8awW87HQuMBlJfG0oGNn
wjX56D3dqvWIQ+HY+bErE1eR3x+Pkb7ST2HFFaXk8Rv4EF15UalN8jYrxqSB
OcgH6+LWQLlO0l8zLtmv9uBDcCwzbl8HBdm46lY/Lz6W1PufyGkn+ZawgzN8
go+qO9dPbP5D8vXBESnOFT7aNy6/uu83hYfZtw3aHvPx7GTbpIXNpJ8F9hqN
T/ioPNZg79JE+mf9LJWaHPL8p8X58Y0UChvvC1++4kNKb+6Nid8o1I09fhP5
gY+/bjmtn+soiFsWrTf5y0eFMKZd7CMFh942m7saAiwRO9LaTc5H9ZUPTWO0
BDjwWfdrZyHJozMHda+uEED0Wbmp7RWZv1yf4ok1Ajw1uCDd8JJC2OrRb1bm
ApxdEzntPjlvX4ZIOY4dEkDwTmPgJzmvleZpujumCWAWpqzaTs7/iKgwu7RM
AbRNFstcIfcDGYm/piPZAnj7jWUvvUXysjVNJbRAAOdZHtru0aQfExd9zP0g
wItKVvuHcHIezpy3XJYjAGuOpoX6BfI+8jO5r1YIoaZ+o1aF3G+ocyfbJugL
IUNHLz3hRtZrsLHGxlAII8mG/74coOBUeyu16z8h2vdcyQjaR2FzuNIuhe1C
HMme7fJmD4V5MnKF7v5CxE/yOvnFkuSrOOu8cqEQ+lXhRht1SF5n3na0LhaC
eZUS4KpNQXr3UsNLZULolLdFnV1Ggf3McmSkWgibhi2mT5eQfnC5eaC2RYhd
dqlPR+eS9XqrbnFpTIhVM+71zJAn++GiseKoqQgzV2x/VzLAQS7LN6W2UoRr
e9nHH6Zy0Blwrr/oowhfpKMX73vIwYzB6yszP4twvGO/xOxkcv9tyii90iRC
2x4ZjchEDtald/407RFBrBhb9t7k4IvF7um5rH+ojrkmkXyeg4Fwk8u3zf7h
RYvd4kpyf9ZUmuruUv4PK6iyglgWB1Q4V1H36xjWlC8rdzDsx7xLl7Q93cXY
NdrWBz479KFt9/dm0y4x9rixPJV9h/5iY0cdk3tUnH2I8jN5btqLEz6ubtP6
xdnVuWeOGSj1wDLvjvk0Pwn2sJh4cv2zLnCE7gGSXAn2BbPDRnutOnHv27nn
R30l2ds3WPWsbWkH383Y6aRAkq2zd06b5qo/UBNF2nufGse+eIfufn+zFZ1m
YVWscePZHVadeVZnf+HtwmrMChvPHqd36mNJ6Xe4s1LGzZWewG7x+BMQuaQR
+XfnG7+NnMBWVumocl5cjxpDo3JbOSl2SqFD7DG7WtDud7Y6hUux7etn9/Cm
VKLCOmm77DQWOyLbV/XRs2K4GBilpkaz2LW8Lv7PlGwc6v84+iOGxVYN8wvb
65QNr3t718nfZrHT5aZX/lTORpD0hdaABBb7fpGMc9PVp4hvqlSxTWGxf9F2
K4M6svD15I4IYT6LfaBKqyotIB3mBT4nbb6z2EYzl4lFpt2DzdFxFSEtLPaO
tSMGtqr3sFM9ZlrhLxb71jPhAvnrd3Ew9GXOwnYWu1G1MEi1JxHBu8U4gj4W
2+11oPVgYByK+NdcUv6x2OUbrI8gPRLlWbOzv4tJs+PDbNj3r0eg2iV7bKqk
NJs5G3tXqjcc36vq409LSbPb2Hf5IUGhoONUvllPlWbnd8t8PJp+DmOWmQtC
5KXZiT2Kg5t6AzFBEsdeKUqzDX7I9+cEnYLiYRe5hcrS7Iat8Zrn072hMntk
r70KGc+jdXVNkDvU6y5mRahJs8VNHyvEpDtD49J0UflsabassGjpy3Qb6Bim
WQjmSrO1dK793/8D/wMuq3uF
          "]]}, 
        {RGBColor[0, 1, 0], AbsoluteThickness[2], AbsoluteDashing[{1, 0}], 
         LineBox[CompressedData["
1:eJwd2Hk8Vdv7B3AOcdBkSCkqVERflbEyfDYVokyVipKUCJmvKCVljGSOUiqF
uqlkuk2SCCUpKio3VKh0zjadycFv3d9f+/V+rb1fr7XXetbzPHuregQ4eTJE
RETkREVE/ruKPZVu+WYQZKb3s8Q8oCLMbOnPauOFGfbgtzYclm/bBsG9lQc6
0/fCq3Rix/q3B/BDwZtXmR4AW6Oqzf2vQ/HJMqb2RnoUzi91tHRsiMH7veka
l9LPITgkx9zwYSac/JQ+5aTno6lh1WPmletIG95dlp1+F02bD46U+pbDuN5G
2iKkBl689Bf2b+sQeNRuX1lgI57J2XXUbWrB4X88UxjqrSj5V/28ZVYb2gc2
SRV5tEOMqWtUrt2BMys5IpW7OnCoOvCHtOkXBGk3ZtXc+ALZ0s9Px/S7Idjv
e6fLvxuHxSVyItR74fHE2SH1YC+yL302ff3+G/YPtdfUJHyHWnm7vtu5H0he
VRVQGNcHjZUMB+GsfjBqqoxijg5gYsC6QDNgALJati1fc37BZbmTQO/NT1jn
WxTQ6YPwrts6FCn8hbnsZsuoKhYyTDf98F46iAsND0XFDtG4F7Fo7TetPzBR
MZ9afGAIyWn7+UNiLGh3z/5+PHQYTWGStxe/Y8Guf3FtWPgwvPfKtg+0sxDI
WnUlIHIYppjaevcjC+VCh937YoaR8j3O1aiLBROltPYNmcNoqN+YqDfAwmYn
2XqZ8mFc7I3e+2WCBb862cLcETIeO8Jha7BRUiznXRE8At3gx28XHmEj5v1T
c7EjI8hdnBh/N4KN3YzDCxyPjaBK0t3WLJIN6d0NLYOnRyB/csXE9mg2Ds6K
NFiSNQJ7JUrKP4mNxWE/GBlVI+j64/icymcjc/0/lwKFI7BZtPhpYD0bvoGe
R6pFRnHou57h8wY2LC7JOU6fNgqzXsdH8i/ZGOL4iRfPGIVMwm32nRY27G6p
+n5dOArNyC8iLR/ZYMomrbEzH8URCY36Oz/ZiPx3T5t23CjuO5b5TEyjMWpl
esnzzCiuPKq+x5Ck4Veq7JWfMopXGq8kJJk0XGM+C+TOj+KLRH/vdGka67R2
qQmKRtH7Vct1xkwa/L+2BTU2jSJ2ote2Zw6NsBm2szxnjEGtX0Hn/RIarDCt
zsuyY2jKoUIfL6VxsFuqoGPOGO5sPvzy2jIazmWNhpsXjmH1o6ZCP00aBrss
3fRWjkGlLGXRmDaZ33XzElHHMSTN3CTbqUsjyGSN7eXMMTwJiRobBA0R/8yo
czljMChTqC2maKTk02Un88agI/HqyX5zGrcYN5X3Xx9DQd8Fi48WNHoblVga
5WM4n9YQXb6Rxrbt46mlbWMoObftg5UtDUP/6g91chwkrzDteLudRl3+fJlK
RQ7UvowmhDjTcHobhqL5HKzNf+2tsIOGv/7K4kQ1Dn7u7a3YupNGkSA/wk6X
A+dXObGNLjTmxUcrdzhysNtm7fiZvTQE+Rs8fqdyoPzTGiHeNMy4pumrszhI
C3Q1kCBxHm1nVHsklwM6uc8gh5g5sVxN/BoHATEHnR/40JjjMqtXuYwDX/8Z
c2g/GqsUPu2ze8+Bqw43YWUQjRDftrTMTg7CxTOWlRFX1jY/+9TFwcmAohaD
YBqmQU9Vvfo4sBdfZ7YmhIZNy/WeKC4HvzUlLq7+i4ZnQsC+UiUulN3W2XLC
aRR/9U7jqnDRc2pvqk8EjUFDj2emalykmUx87SIO/rFN9aUWF/f8r11+dpTG
SYt1Pb3GXPx5nZF7PJLGBaH4PgU3LtzC5eIaomi0Bl5wP3KNC7XjUWsLYmlo
pc4eDy3k4g0tpjlCfPpuXFbwLS5iEqMoiziyH6zgl4fvcyGptZvdRXzJ11b/
QC0Xvhp/b5BJoOFzUCjp2MtFmfyV16ZnyH7FBl+z6+Oi+2O260lilRsDJpt/
caHwLEa+lrj1W3uQ1TAXWQxL0fVJNIz2lXw2ZfDANXdrX5dMQ3y3210tNR7W
3f+xk5FCw+1Y+ybNZTz0vbCLMyKuumDzfakWDxdE7nb5Evt0Giqp6vIw/9s2
6XfEb51nnZ5rwUPEAUPXzHPk/cJiVeZY8uB5dWdHLXFM1niVnA0Pu8SCo2ji
Ne39gzOceNhpeMZ2UyqNy441zuIePFTudPhME/MCDYdED/LQ80S7eF4aib/U
20lTh3iYYz15GcTT3uTUCIJ4yHiVIJ1E7Lc5SGsomgc6Ra9zbjqNF779daxY
HlyVG8fWEC9K2rN3MJGHlpatJruI3zVtyuxP46H5moPVeeK1VmqTXVd50JTs
3iaVQUO/4GVCww0e+m95makT60wFy5fe5KHIfq2LCbFa1XPNmFIetPMeavoR
K8v7lR2u4IG13ufzKWLFAAWzHQ94KBvcX5NDLKPhuVXrGQ+UuYFqLbHE6Rn/
ytfzwPwz/dJ7YpGvFd4TjTy8zdWxHSAezZY40drKgxfH3kwmk+ST4TvMh+08
6Bfan15APGC3I6OggwfGjlyBFnGXRHFxWDcP1x5Jn7Qi7vBw0HP/zkNIgG7K
NuJ31bwnmwZ4sFxyvcWduHn+VWu9QR6UPu019yN+EbapTZkm80/17Asjrnk3
tEdilIc664onJ4kf6lwYYHN5uChq35BIXH7GIqRznIfQR7pi6cR3+35N1E7x
sCXMPSiX+JZFRsJtMT40dTtkrxBfv2wsny3Jhzg79/sN4suCb5eiZPjouX3j
5y3iHOdkzUOz+HjqO774LnH6ff0yJ3k+LmtfPHOfOHlml6nJXD6iBmOWVRDH
+cQ2Ll3Ah/udf0YriaNf/G/rrEV8rA8yHKsijlT70MVT40PDYFLjH+KwEye8
e5fxMV0w6+x/44Gflo280uJj+Knvkv+e9zF8c7xCh4/OOFlWGfGB9CPMfF0+
au1Ef90jdmMtykgw5OP2XON5JcQ7bRpVgtfxkd1THV5MvLUwsNjVjI9Tt5Nl
CojtGEp6Gy34CAy/3ppHbO327ImOJR9uGyUas4gtHh6ynmfDxxb5+0NniU0U
5dpE7fikvhVtiSU2DH6457cjH6vu938+RryqxWOgfTsf6qeD8oKIl8aVTRTt
Ie+jub/chXhxr2tC2j4+GMKXMnbE883E5Y958iFojcyiiGdytmnaHeZj8Hg1
1ImZThP3jYL46N9u5y5PzLhzw1T1Lz6+6WiWMYi5nhyn0Ug+vn57wP6XxOPw
s8tdXSeJnwZ1viIeVLHybojhozsvZKyKuPv9+eMXkvn4sWt73Vnipo1ri6k8
PoRfU5+sJA5vOKETdYWPD3e7pykQa26qK39ynY96D8XdXHL+4jbbP1tXQuIh
SE/3EfGGrZ6f9Kv5mGugH2tEPNp+yz2klo9clTITBeICZ7qv9AVZn59zGTQ5
/wyXYyM6b0i8LM+ovE5c4542fXk3H0fsHV4wiAN7P6R7fefjmsPk4EeSXxYd
UFYqHOCjVz9d9TbxCa+ipepDfFwt9C13JDbxf2KmwhBAZeWPk2kkX1Ud+xko
u0QAZvtw+bezpJ5P6HDtNQWIlZh6cJNYMSr0eMoKARSVh5r9iUNPTSXKGAgQ
Tscpc0h+1U2cUzDNUoB1ZhEefJJ/72Sbv+d7CVB6ODzxXSKJr3nxrmv8BIh6
2+uXSDzjQnNPWKAAHvP03EDsd2kHayRcAC/7WJ9ikv+1rh+WZCUK4O9BLw+I
p3GjNHdt798CBCn3rH8TQ+J53FWr464AzfedhiOJV21cuKClTICs7azXy4kf
d1wTPnhE7q8pmB59mkbb1N9P014JYKstWbz0FA1Ru+qN5r8FSN5+z9mK1K8X
508aGrEFqL1f+7H/BDmPPRYa/xsRwFN5KjaeeN5fDUylcQFGFTiH6o7TWJnX
+oqWHofhxS/2+qQe7vnV63hFaxxWwqSMQVJf1fRvWGTrjGPHYvRHEQ8c99JL
1h1Hu4OytxxxqOygQvi6ccz9uG1I/wiNpDVjH+1txvEsvFo1kNTrB3GSblOH
xnFtdqigmtT7OeorfNxujiMv3TupmvQPqelJzjdLxiEylbZ8BbE047fFaCl5
vlKuNYf0HyI9NxeceTiOXcz5hgFeJJ4va7yueDWOHj3q4GxPUk/nq6+awRqH
8+1fzkvcyXzk5nMe6QrRpvZPRDrpj9jREb0SRkK8EbxU69lG1nuoo8XRWAjN
hQbtOsTureeL+tcLQVvOcmhworE5Zc4u+e1CfFr8+e9Bexrq0rKPfY4IIcdp
HWHakPwsyjyl9FgI+WUG9fGmJN+X5Lo51Aix/kav9SMTGlIu2sbxdUJs0e7q
+mNMg7pvNzraLMSQ7QNjh3UknjyyDrZ2CRH+dUaDlBFZr+dqtvFTQsTaayo7
rCLnKdZUYcxiAjlb1WqWq9GoYIYUtjZNoOC3Fnu2GI2+yOg/1a8nUOFvmzGf
QfZz6Jx+ydsJ6D+q9VIXJfm083ZtYucEBO6+6z0n2dhwq+9fi58TCJ3nUpbC
YeOdrcvcCuYkns1+XpbRxyZ12Dwh12oSlcueGx4k/fyKObN9POonoThwbOP/
TrAhf/fR7RtNk1DOfr2h8BgbAmsv9sDrSaxWvOeqQr4nGiOrQwM+TOJMskbr
tFA2Dnz3i4rsnwTHsbvt6SE2LpU1ZWZLTaESEZYd29iY6XT66cstU2gvtO64
sJwNdgpHQe/DFFIK9tw5+JoF9fj4lQE+IlTbxj+X309nodfl8yeLfhEqfmbl
TlPDP7D+0cav8Beldof+TghbNYjwYE9vxT+ilO7LVxIKqr9hV3nRRjGMQYUY
z/ew7voJltAnUozDoJ4zTU1VMwZw9WN0uX+IGNXX/NjOw6AfAm9T94hxMUqn
qh0f8n5AZSLNNeioOKWhqFuxRPw7+qySXjLFp1EeWmf3e2r34vmyZixMmkaF
mfX8Pd20Gz7MQnFVKQnK7f26i+9vfkHVlSWmz9MkKJmjeZ8ObO5Ai7FJvZOs
JHXdbXtal2g7eD4Xt7qnSFJ/1SlLG+q+QaND/vYZikxKf7Wxa+eKenisNSkq
ymRSHTNLErSbK3Hoz+uxL9lMKoGzdnwyuBKBV/dukMtlUh83esrUKlUiSup0
T+QlJrV0wXnxuV4VyOtsWuBUyKQcr3q5CEXK8SFiR6qwikltWPA4o3x1KWwe
Bkc4fmZSK5M8j1bOKIKjv3hjXBeTkrZQatiwoxA71bIVH39lUqqNUvb3r9yA
15kHZcu+M6l75ldna+tdR4yLCGt8kEmxft90yXC+imrBWY/CSSZlYbRB4YTO
edTfWVT6WUSKCk7eOOfUkyw0e5ROzRaTohacrEnesDkTn1+25x2TlKK0LdS/
ih9KA+/Cgo8Os8n4oTXqfWbxmLIrWRonJ0VxBO3J73fGQEKMtC4KUlRN04Fv
5sHRUPD1kF2mJEVZmTy+o2Z1BAsWje51XSBFhVud+zkQFgS1ttg7qSpS1Ozc
NKGjrRe04udO1C+SoraoF5QlbdmB1cY3bcdVpaitj/L//3/I/wEvr6gd
          "]]}},
       AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
       Axes->True,
       AxesOrigin->{0, 0},
       BaseStyle->{FontSize -> 16, FontFamily -> "Arial", Bold},
       Epilog->{
         RGBColor[0.6, 0.4, 0.2], 
         InsetBox[
          BoxData[
           FormBox[
            StyleBox["\"Even better one\"", 15, Bold, StripOnInput -> False], 
            TraditionalForm]], 
          ImageScaled[{0.6, 0.57}], {Center, Center}], 
         GrayLevel[0], 
         AbsoluteThickness[3], 
         Arrowheads[{0, 0.03}], 
         ArrowBox[{
           ImageScaled[{0.6, 0.6}], 
           ImageScaled[{0.72, 0.72}]}]},
       Frame->True,
       FrameLabel->{{
          FormBox["\"y axis\"", TraditionalForm], None}, {
          FormBox[
          "\"(1a)                                                             \
                     x axis\"", TraditionalForm], 
          FormBox["\"Now let us make a grid\"", TraditionalForm]}},
       FrameStyle->Directive[
         RGBColor[0, 0, 1], 
         AbsoluteThickness[2]],
       ImageSize->550,
       PlotRange->
        NCache[{{0, Pi}, {0., 1.0363084375597482`}}, {{
          0, 3.141592653589793}, {0., 1.0363084375597482`}}],
       PlotRangeClipping->True,
       PlotRangePadding->{
         Scaled[0.02], 
         Scaled[0.02]}], {293.3333333333333, -543.8699100999074}, 
      ImageScaled[{0.5, 0.5}], {550, 339.91869381244214`}], InsetBox[
      GraphicsBox[{{}, {}, 
        {RGBColor[1, 0, 0], AbsoluteThickness[2], AbsoluteDashing[{6, 3}], 
         LineBox[CompressedData["
1:eJwt2Hk0VV/YB3BD5VIqUyU0aJZIioS+l1+lKFOlQYRSkjIVDaJBKkpIkgyV
IkJJKEmIQpJCoVRkjnuM955zh7z7fdf717M+a92z9tn7PPu797pzXTxtXSXE
xMQkxcXE/q++kan5s8p7rdj/1wU9RYazbljhvEp5jxqp/Kfa+5ui9mLOT2vV
RlI7FN3ovChPXC0QNWaT2rwhuPRhVBBuOoytiyS1YW/UooSo62hNGNSxINXW
Q7k5NioJ43fMlLKJTELk0J6cmKgniIJ5rP+1JzAsN5cx9S0GN/dWacbBYnid
snTO8aoA73rTrWLzChx54RouMa8WQ6W1gyWcT6jv3iSd6lKPwdD5I80y9QjV
5orl7WrE7wV6xq5l3+C9tOJm8cMfeBPzxNsi5zv4+w5ntRz9DasW263lXr/g
8trOOuJAG+4/P7nf8GAr9g3WFxdfbkfAVAuvnYv+4OryfM+UkE40Dd86Mzmv
HRLF+frBp7rR0XxcX2xJJ+Q0LGp+xfaCozmJdzW5CxuTTJMHovogmjLH6k9f
N6ZT1RuC8jkY5LAP79TrRdz7AnHJQwOQeBG4+9KevzBSMxmbs38Q337c032w
tQ9Lf09tP3NsCCNpBon17H5Yds0p9TsxhLRt1xQnreuHF2f5Xc+AIbTaz3lt
YtaP50LrPc7BQ1g9ac2D1C39MFKOrF8XPQR6/Msyh9392GwrVz7x+RDmn106
z9e3Hx5lcim3h4dwu29AxH7Qj8xH8m65PsMwKi2qdBTjILjhjYmk/zCYVgXz
PZIc7JE4omJzehiXjrsl7pjAgcye9zV9F4aRralbajaJgwNTAlbNvzmMmzMt
B2RncDDHr0PiRv4wOvRn5OtocxD934sEL+EwHigZnG6w5yDgp0Pd0pARGEoU
lp3P4mDEzDjBNXQEioks6+6nHHhkqx5MCh9BSNKmfIscDuyDv/Plb43gnMu/
GZNecLBGY5c6P3UElE7UfN8SDpjj27wrKkdwsrVZv7mOAz9ZiymusqMQJl1b
MZHHAcdPoylRbhRmlhl9Sxnyvr+lkxuVRnGIeX7GXMCBXU6F3uZZo8iQ6Z93
boyDVbs2OOpqj2JWb0tAvRSFkQcmmeI2oyjo8mQrzKDgbbTaIjF6FEvSshQG
9CiIHY0Ouh47ioWPiiMfr6YQnjSQczZ+FNtexGu4rqGQLpGmuu/BKLZwzDK+
GFNoq1DmLHo+ChubC30x6yhs2y6IyK4bRXpBzqYyGwp6R4u+lslzkeur/y7b
nUJZ0syJedO4+Hjh6+HlHhRsP/shdSYX+0SzlmQeoXB0pfajK+pc+H616r3r
RSGVn3TScgUXqWuzg739KMy4dE610YaLaIOG8fnnKPCT1rn8jeBiv+jD/S8x
FNbyjKN0bnKxcumorHYshXOW+qX+t7mQ1qT0r9ymwBItUR93nws7seH3evEU
lHZPaVPN4aLxUESD3z0KyxWbnS0buIjRd4gKfUzB93BdZHQTF/3uu36VZlDI
K60uaW7hghWS1UNnUjD2fjP3YCcXf1Un6jk+pWBe86A1iMeFxgnNx7K5FFwv
ezpnK/Pwve7qyNhrCo9+uUXy1HhI6JaXVXxDoU/PpcRYnYe365JbFxRT8OnY
NrdKg4fCL9FFpqUUzpquaW0z5EHW+v5653cU4oTjnBUdefghveiETg2FWq84
J//7POzT2jWq9oOCRsRUwbEUYs1VY9+JLzwJuemTzsOyxIeysS3ke3B8qo48
42GnjtJqmV8UEg5brNxfykOGBVXytZWC+wGhlE0bD5rxdNLULvK9Lvrct+zk
oU+poz+LWO1ht9HmXh4akl/CopuM/6fe22yIh8l6I5wzPRT0nTO/G0vQ6MpJ
OfXhL4VxexyfaKjTCKubD6kBCo6n6zctXkiDV7Px/UXi/Djz9gUaNIxmVthK
DJLxm/SU566g4VT60neU+LPdlAvTTWl46sb+eDtM5ud3UU1pA43Y9LLAFSMU
gm8K8uXNaVzok5ufRLy6vqtP1paGf9ewv88ohUSbYrtxLjRSN8xZJ86jQHvp
DYofoKHyNv7fXmLbiIywsUM0tDylCguJx3+KLeZ70zBziYAXTcFjs7fG4Dka
/3G/ur1hKLw73FXGuUhDcZvGmsl8CrPDHPb2XaExV8dksj3xl8pN0V2RNOLc
U4o4xAZm6v9a7pHx62vxT0BhZXLV5fcPaZyp9qQMhRS0xnwUstNoLMoLzPUn
Vs9/uzg4m8bj5T+De4hVFTxyjuTSiBheFD5bRGGap+LaHS9p2E+qz9xKPHGR
61aNEhqFHRuW5xFPuCD7U6GcRmip1I12YrFfuW6iChrPl82eJPeP7P+YCYG1
tTSilpiZ7CfmDGWxCupp5BfbikKJuy133EhupKE0nP7pCXHLhEeP/H7T8Dix
On+YuNHFWtepncaUwkPV8mNkvkX0603dNNYG/OJpE1fPvLdRt4/Gef4tAwvi
d36b6lQHyHxuRkbuJy7+MugwYYTG58qqsdPEBVpx3RSPxtblpsGRxM9DTX2b
BDS+B3FnPSR+0tkrKh2jsfNq56c84nTTG5czJBlImMndekf8INFQIUaKwZ6i
48fqiRP5fxKCJjJYNkvB7TdxrN3VxYemMAh90u3dSxz1bGWOrQKDqsbRyCHi
q5NbjI2mM7ihtqaCJg5xv1ixQIXBp1m5iiLic++WbZ0ym0FO3AH/MeIA9a8t
tDqDAg/Lgf+1X2CgW9tCBhnXPIL+EXs1Lxz+oMEgRqFkvoDYXe/TmVwtBjU6
m3+PEu+P8mclrWAwvHryMw6xI2f2jct6DKgYqbgO4p3mFWo+axgMfl0d20y8
NcXrkf1aBj737md8JLaUUNZdb8pAt3D9tyLijY4lr7U2MIDMvBlZxKYFhzbO
MGfQE2boeYfYaJp8nbglg0rHiB8hxHo+BQ5/bRiUv1Z38iJeXuPSXb+dwQTx
EWYH8YKQHFGqAwPPRbu85hLPabO/HOnMYPuWgc2SxDPXjlM47crg349q/CH9
MJm7bbHlEQYa4o5uCcQsW9EzfW8GaaXTEv2JJbIeGs89zqDdTK3XipjnyrUd
CSDrbaBWzif9OVSS2NJyloHxa5VtH4n71Mzc3gczmKzrwyQQ/264dSbuKoM7
risuGRBXrjd4xI5nQDvZPdlF9seJ94FaQXcZXPfyyplOvHhT2fPXD8h6cp39
68h+C9lsVbImk4F2+c+164jXbXVtXlnE4NXnT9UyZH+O1Kc7+ZYy6OxYWZtH
9ney3UBn9jsGipvibzgRS+w+Paz1iUG+e+juTJIHxU6Rk5b8ZmAivNWzlOSF
V9vXqIPtDLhbSvvLuSQP9qsqp3QzqO6e98yBOPBg6oJ5gwzenUg/HULyyOjo
67VqEnwo7YiXf03yLP90j5fcfD4uJtjuKKIoHBBp8awW87HQuMBlJfG0oGNn
wjX56D3dqvWIQ+HY+bErE1eR3x+Pkb7ST2HFFaXk8Rv4EF15UalN8jYrxqSB
OcgH6+LWQLlO0l8zLtmv9uBDcCwzbl8HBdm46lY/Lz6W1PufyGkn+ZawgzN8
go+qO9dPbP5D8vXBESnOFT7aNy6/uu83hYfZtw3aHvPx7GTbpIXNpJ8F9hqN
T/ioPNZg79JE+mf9LJWaHPL8p8X58Y0UChvvC1++4kNKb+6Nid8o1I09fhP5
gY+/bjmtn+soiFsWrTf5y0eFMKZd7CMFh942m7saAiwRO9LaTc5H9ZUPTWO0
BDjwWfdrZyHJozMHda+uEED0Wbmp7RWZv1yf4ok1Ajw1uCDd8JJC2OrRb1bm
ApxdEzntPjlvX4ZIOY4dEkDwTmPgJzmvleZpujumCWAWpqzaTs7/iKgwu7RM
AbRNFstcIfcDGYm/piPZAnj7jWUvvUXysjVNJbRAAOdZHtru0aQfExd9zP0g
wItKVvuHcHIezpy3XJYjAGuOpoX6BfI+8jO5r1YIoaZ+o1aF3G+ocyfbJugL
IUNHLz3hRtZrsLHGxlAII8mG/74coOBUeyu16z8h2vdcyQjaR2FzuNIuhe1C
HMme7fJmD4V5MnKF7v5CxE/yOvnFkuSrOOu8cqEQ+lXhRht1SF5n3na0LhaC
eZUS4KpNQXr3UsNLZULolLdFnV1Ggf3McmSkWgibhi2mT5eQfnC5eaC2RYhd
dqlPR+eS9XqrbnFpTIhVM+71zJAn++GiseKoqQgzV2x/VzLAQS7LN6W2UoRr
e9nHH6Zy0Blwrr/oowhfpKMX73vIwYzB6yszP4twvGO/xOxkcv9tyii90iRC
2x4ZjchEDtald/407RFBrBhb9t7k4IvF7um5rH+ojrkmkXyeg4Fwk8u3zf7h
RYvd4kpyf9ZUmuruUv4PK6iyglgWB1Q4V1H36xjWlC8rdzDsx7xLl7Q93cXY
NdrWBz479KFt9/dm0y4x9rixPJV9h/5iY0cdk3tUnH2I8jN5btqLEz6ubtP6
xdnVuWeOGSj1wDLvjvk0Pwn2sJh4cv2zLnCE7gGSXAn2BbPDRnutOnHv27nn
R30l2ds3WPWsbWkH383Y6aRAkq2zd06b5qo/UBNF2nufGse+eIfufn+zFZ1m
YVWscePZHVadeVZnf+HtwmrMChvPHqd36mNJ6Xe4s1LGzZWewG7x+BMQuaQR
+XfnG7+NnMBWVumocl5cjxpDo3JbOSl2SqFD7DG7WtDud7Y6hUux7etn9/Cm
VKLCOmm77DQWOyLbV/XRs2K4GBilpkaz2LW8Lv7PlGwc6v84+iOGxVYN8wvb
65QNr3t718nfZrHT5aZX/lTORpD0hdaABBb7fpGMc9PVp4hvqlSxTWGxf9F2
K4M6svD15I4IYT6LfaBKqyotIB3mBT4nbb6z2EYzl4lFpt2DzdFxFSEtLPaO
tSMGtqr3sFM9ZlrhLxb71jPhAvnrd3Ew9GXOwnYWu1G1MEi1JxHBu8U4gj4W
2+11oPVgYByK+NdcUv6x2OUbrI8gPRLlWbOzv4tJs+PDbNj3r0eg2iV7bKqk
NJs5G3tXqjcc36vq409LSbPb2Hf5IUGhoONUvllPlWbnd8t8PJp+DmOWmQtC
5KXZiT2Kg5t6AzFBEsdeKUqzDX7I9+cEnYLiYRe5hcrS7Iat8Zrn072hMntk
r70KGc+jdXVNkDvU6y5mRahJs8VNHyvEpDtD49J0UflsabassGjpy3Qb6Bim
WQjmSrO1dK793/8D/wMuq3uF
          "]]}, 
        {RGBColor[0, 1, 0], AbsoluteThickness[2], AbsoluteDashing[{1, 0}], 
         LineBox[CompressedData["
1:eJwd2Hk8Vdv7B3AOcdBkSCkqVERflbEyfDYVokyVipKUCJmvKCVljGSOUiqF
uqlkuk2SCCUpKio3VKh0zjadycFv3d9f+/V+rb1fr7XXetbzPHuregQ4eTJE
RETkREVE/ruKPZVu+WYQZKb3s8Q8oCLMbOnPauOFGfbgtzYclm/bBsG9lQc6
0/fCq3Rix/q3B/BDwZtXmR4AW6Oqzf2vQ/HJMqb2RnoUzi91tHRsiMH7veka
l9LPITgkx9zwYSac/JQ+5aTno6lh1WPmletIG95dlp1+F02bD46U+pbDuN5G
2iKkBl689Bf2b+sQeNRuX1lgI57J2XXUbWrB4X88UxjqrSj5V/28ZVYb2gc2
SRV5tEOMqWtUrt2BMys5IpW7OnCoOvCHtOkXBGk3ZtXc+ALZ0s9Px/S7Idjv
e6fLvxuHxSVyItR74fHE2SH1YC+yL302ff3+G/YPtdfUJHyHWnm7vtu5H0he
VRVQGNcHjZUMB+GsfjBqqoxijg5gYsC6QDNgALJati1fc37BZbmTQO/NT1jn
WxTQ6YPwrts6FCn8hbnsZsuoKhYyTDf98F46iAsND0XFDtG4F7Fo7TetPzBR
MZ9afGAIyWn7+UNiLGh3z/5+PHQYTWGStxe/Y8Guf3FtWPgwvPfKtg+0sxDI
WnUlIHIYppjaevcjC+VCh937YoaR8j3O1aiLBROltPYNmcNoqN+YqDfAwmYn
2XqZ8mFc7I3e+2WCBb862cLcETIeO8Jha7BRUiznXRE8At3gx28XHmEj5v1T
c7EjI8hdnBh/N4KN3YzDCxyPjaBK0t3WLJIN6d0NLYOnRyB/csXE9mg2Ds6K
NFiSNQJ7JUrKP4mNxWE/GBlVI+j64/icymcjc/0/lwKFI7BZtPhpYD0bvoGe
R6pFRnHou57h8wY2LC7JOU6fNgqzXsdH8i/ZGOL4iRfPGIVMwm32nRY27G6p
+n5dOArNyC8iLR/ZYMomrbEzH8URCY36Oz/ZiPx3T5t23CjuO5b5TEyjMWpl
esnzzCiuPKq+x5Ck4Veq7JWfMopXGq8kJJk0XGM+C+TOj+KLRH/vdGka67R2
qQmKRtH7Vct1xkwa/L+2BTU2jSJ2ote2Zw6NsBm2szxnjEGtX0Hn/RIarDCt
zsuyY2jKoUIfL6VxsFuqoGPOGO5sPvzy2jIazmWNhpsXjmH1o6ZCP00aBrss
3fRWjkGlLGXRmDaZ33XzElHHMSTN3CTbqUsjyGSN7eXMMTwJiRobBA0R/8yo
czljMChTqC2maKTk02Un88agI/HqyX5zGrcYN5X3Xx9DQd8Fi48WNHoblVga
5WM4n9YQXb6Rxrbt46mlbWMoObftg5UtDUP/6g91chwkrzDteLudRl3+fJlK
RQ7UvowmhDjTcHobhqL5HKzNf+2tsIOGv/7K4kQ1Dn7u7a3YupNGkSA/wk6X
A+dXObGNLjTmxUcrdzhysNtm7fiZvTQE+Rs8fqdyoPzTGiHeNMy4pumrszhI
C3Q1kCBxHm1nVHsklwM6uc8gh5g5sVxN/BoHATEHnR/40JjjMqtXuYwDX/8Z
c2g/GqsUPu2ze8+Bqw43YWUQjRDftrTMTg7CxTOWlRFX1jY/+9TFwcmAohaD
YBqmQU9Vvfo4sBdfZ7YmhIZNy/WeKC4HvzUlLq7+i4ZnQsC+UiUulN3W2XLC
aRR/9U7jqnDRc2pvqk8EjUFDj2emalykmUx87SIO/rFN9aUWF/f8r11+dpTG
SYt1Pb3GXPx5nZF7PJLGBaH4PgU3LtzC5eIaomi0Bl5wP3KNC7XjUWsLYmlo
pc4eDy3k4g0tpjlCfPpuXFbwLS5iEqMoiziyH6zgl4fvcyGptZvdRXzJ11b/
QC0Xvhp/b5BJoOFzUCjp2MtFmfyV16ZnyH7FBl+z6+Oi+2O260lilRsDJpt/
caHwLEa+lrj1W3uQ1TAXWQxL0fVJNIz2lXw2ZfDANXdrX5dMQ3y3210tNR7W
3f+xk5FCw+1Y+ybNZTz0vbCLMyKuumDzfakWDxdE7nb5Evt0Giqp6vIw/9s2
6XfEb51nnZ5rwUPEAUPXzHPk/cJiVeZY8uB5dWdHLXFM1niVnA0Pu8SCo2ji
Ne39gzOceNhpeMZ2UyqNy441zuIePFTudPhME/MCDYdED/LQ80S7eF4aib/U
20lTh3iYYz15GcTT3uTUCIJ4yHiVIJ1E7Lc5SGsomgc6Ra9zbjqNF779daxY
HlyVG8fWEC9K2rN3MJGHlpatJruI3zVtyuxP46H5moPVeeK1VmqTXVd50JTs
3iaVQUO/4GVCww0e+m95makT60wFy5fe5KHIfq2LCbFa1XPNmFIetPMeavoR
K8v7lR2u4IG13ufzKWLFAAWzHQ94KBvcX5NDLKPhuVXrGQ+UuYFqLbHE6Rn/
ytfzwPwz/dJ7YpGvFd4TjTy8zdWxHSAezZY40drKgxfH3kwmk+ST4TvMh+08
6Bfan15APGC3I6OggwfGjlyBFnGXRHFxWDcP1x5Jn7Qi7vBw0HP/zkNIgG7K
NuJ31bwnmwZ4sFxyvcWduHn+VWu9QR6UPu019yN+EbapTZkm80/17Asjrnk3
tEdilIc664onJ4kf6lwYYHN5uChq35BIXH7GIqRznIfQR7pi6cR3+35N1E7x
sCXMPSiX+JZFRsJtMT40dTtkrxBfv2wsny3Jhzg79/sN4suCb5eiZPjouX3j
5y3iHOdkzUOz+HjqO774LnH6ff0yJ3k+LmtfPHOfOHlml6nJXD6iBmOWVRDH
+cQ2Ll3Ah/udf0YriaNf/G/rrEV8rA8yHKsijlT70MVT40PDYFLjH+KwEye8
e5fxMV0w6+x/44Gflo280uJj+Knvkv+e9zF8c7xCh4/OOFlWGfGB9CPMfF0+
au1Ef90jdmMtykgw5OP2XON5JcQ7bRpVgtfxkd1THV5MvLUwsNjVjI9Tt5Nl
CojtGEp6Gy34CAy/3ppHbO327ImOJR9uGyUas4gtHh6ynmfDxxb5+0NniU0U
5dpE7fikvhVtiSU2DH6457cjH6vu938+RryqxWOgfTsf6qeD8oKIl8aVTRTt
Ie+jub/chXhxr2tC2j4+GMKXMnbE883E5Y958iFojcyiiGdytmnaHeZj8Hg1
1ImZThP3jYL46N9u5y5PzLhzw1T1Lz6+6WiWMYi5nhyn0Ug+vn57wP6XxOPw
s8tdXSeJnwZ1viIeVLHybojhozsvZKyKuPv9+eMXkvn4sWt73Vnipo1ri6k8
PoRfU5+sJA5vOKETdYWPD3e7pykQa26qK39ynY96D8XdXHL+4jbbP1tXQuIh
SE/3EfGGrZ6f9Kv5mGugH2tEPNp+yz2klo9clTITBeICZ7qv9AVZn59zGTQ5
/wyXYyM6b0i8LM+ovE5c4542fXk3H0fsHV4wiAN7P6R7fefjmsPk4EeSXxYd
UFYqHOCjVz9d9TbxCa+ipepDfFwt9C13JDbxf2KmwhBAZeWPk2kkX1Ud+xko
u0QAZvtw+bezpJ5P6HDtNQWIlZh6cJNYMSr0eMoKARSVh5r9iUNPTSXKGAgQ
Tscpc0h+1U2cUzDNUoB1ZhEefJJ/72Sbv+d7CVB6ODzxXSKJr3nxrmv8BIh6
2+uXSDzjQnNPWKAAHvP03EDsd2kHayRcAC/7WJ9ikv+1rh+WZCUK4O9BLw+I
p3GjNHdt798CBCn3rH8TQ+J53FWr464AzfedhiOJV21cuKClTICs7azXy4kf
d1wTPnhE7q8pmB59mkbb1N9P014JYKstWbz0FA1Ru+qN5r8FSN5+z9mK1K8X
508aGrEFqL1f+7H/BDmPPRYa/xsRwFN5KjaeeN5fDUylcQFGFTiH6o7TWJnX
+oqWHofhxS/2+qQe7vnV63hFaxxWwqSMQVJf1fRvWGTrjGPHYvRHEQ8c99JL
1h1Hu4OytxxxqOygQvi6ccz9uG1I/wiNpDVjH+1txvEsvFo1kNTrB3GSblOH
xnFtdqigmtT7OeorfNxujiMv3TupmvQPqelJzjdLxiEylbZ8BbE047fFaCl5
vlKuNYf0HyI9NxeceTiOXcz5hgFeJJ4va7yueDWOHj3q4GxPUk/nq6+awRqH
8+1fzkvcyXzk5nMe6QrRpvZPRDrpj9jREb0SRkK8EbxU69lG1nuoo8XRWAjN
hQbtOsTureeL+tcLQVvOcmhworE5Zc4u+e1CfFr8+e9Bexrq0rKPfY4IIcdp
HWHakPwsyjyl9FgI+WUG9fGmJN+X5Lo51Aix/kav9SMTGlIu2sbxdUJs0e7q
+mNMg7pvNzraLMSQ7QNjh3UknjyyDrZ2CRH+dUaDlBFZr+dqtvFTQsTaayo7
rCLnKdZUYcxiAjlb1WqWq9GoYIYUtjZNoOC3Fnu2GI2+yOg/1a8nUOFvmzGf
QfZz6Jx+ydsJ6D+q9VIXJfm083ZtYucEBO6+6z0n2dhwq+9fi58TCJ3nUpbC
YeOdrcvcCuYkns1+XpbRxyZ12Dwh12oSlcueGx4k/fyKObN9POonoThwbOP/
TrAhf/fR7RtNk1DOfr2h8BgbAmsv9sDrSaxWvOeqQr4nGiOrQwM+TOJMskbr
tFA2Dnz3i4rsnwTHsbvt6SE2LpU1ZWZLTaESEZYd29iY6XT66cstU2gvtO64
sJwNdgpHQe/DFFIK9tw5+JoF9fj4lQE+IlTbxj+X309nodfl8yeLfhEqfmbl
TlPDP7D+0cav8Beldof+TghbNYjwYE9vxT+ilO7LVxIKqr9hV3nRRjGMQYUY
z/ew7voJltAnUozDoJ4zTU1VMwZw9WN0uX+IGNXX/NjOw6AfAm9T94hxMUqn
qh0f8n5AZSLNNeioOKWhqFuxRPw7+qySXjLFp1EeWmf3e2r34vmyZixMmkaF
mfX8Pd20Gz7MQnFVKQnK7f26i+9vfkHVlSWmz9MkKJmjeZ8ObO5Ai7FJvZOs
JHXdbXtal2g7eD4Xt7qnSFJ/1SlLG+q+QaND/vYZikxKf7Wxa+eKenisNSkq
ymRSHTNLErSbK3Hoz+uxL9lMKoGzdnwyuBKBV/dukMtlUh83esrUKlUiSup0
T+QlJrV0wXnxuV4VyOtsWuBUyKQcr3q5CEXK8SFiR6qwikltWPA4o3x1KWwe
Bkc4fmZSK5M8j1bOKIKjv3hjXBeTkrZQatiwoxA71bIVH39lUqqNUvb3r9yA
15kHZcu+M6l75ldna+tdR4yLCGt8kEmxft90yXC+imrBWY/CSSZlYbRB4YTO
edTfWVT6WUSKCk7eOOfUkyw0e5ROzRaTohacrEnesDkTn1+25x2TlKK0LdS/
ih9KA+/Cgo8Os8n4oTXqfWbxmLIrWRonJ0VxBO3J73fGQEKMtC4KUlRN04Fv
5sHRUPD1kF2mJEVZmTy+o2Z1BAsWje51XSBFhVud+zkQFgS1ttg7qSpS1Ozc
NKGjrRe04udO1C+SoraoF5QlbdmB1cY3bcdVpaitj/L//3/I/wEvr6gd
          "]]}},
       AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
       Axes->True,
       AxesOrigin->{0, 0},
       BaseStyle->{FontSize -> 16, FontFamily -> "Arial", Bold},
       Epilog->{
         RGBColor[0.6, 0.4, 0.2], 
         InsetBox[
          BoxData[
           FormBox[
            StyleBox["\"Even better one\"", 15, Bold, StripOnInput -> False], 
            TraditionalForm]], 
          ImageScaled[{0.6, 0.57}], {Center, Center}], 
         GrayLevel[0], 
         AbsoluteThickness[3], 
         Arrowheads[{0, 0.03}], 
         ArrowBox[{
           ImageScaled[{0.6, 0.6}], 
           ImageScaled[{0.72, 0.72}]}]},
       Frame->True,
       FrameLabel->{{
          FormBox["\"y axis\"", TraditionalForm], None}, {
          FormBox[
          "\"(1a)                                                             \
                     x axis\"", TraditionalForm], 
          FormBox["\"Now let us make a grid\"", TraditionalForm]}},
       FrameStyle->Directive[
         RGBColor[0, 0, 1], 
         AbsoluteThickness[2]],
       ImageSize->550,
       PlotRange->
        NCache[{{0, Pi}, {0., 1.0363084375597482`}}, {{
          0, 3.141592653589793}, {0., 1.0363084375597482`}}],
       PlotRangeClipping->True,
       PlotRangePadding->{
         Scaled[0.02], 
         Scaled[0.02]}], {880., -543.8699100999074}, 
      ImageScaled[{0.5, 0.5}], {550, 339.91869381244214`}]}}, {}},
  ContentSelectable->True,
  ImageSize->{1185.3333333333333`, 737.1598801332099},
  PlotRangePadding->{6, 5}]], "Output",
 CellChangeTimes->{{3.442069858234375*^9, 3.442069947734375*^9}},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzsvQu8XVV1Lr579uOckxdBRIOPEqyVQAWC+AgBTNCqWEubarW0vdfGR++N
oDVVq9FWwVe51kfUPlJNbeq9trE+iFolFdGoiFGjjdL4jyIaWq3x0RpotUFQ
139/c44x55hjjrn2WvucEw7t+YV9OGftteYc4xvPOeZjXfyU52367Wc95XnP
eNpTVj7mOU/ZvOkZT3vuykc/+znDS92f6nT6n+l0um9a2cHvVafDP6rhf+aP
/fiBu+b39093/+t2DmyvOtsPuG86J9K1avh3Z7u/Fh/8eusnfsV39TS66Zrn
xAfvKR8cXv9O8uA/tX5ig+/qqeJBpuckuvada6wHD7V+4pd9V08RcADua75T
de7FNA5/f06HGgwPfq31E9TVRve/XrzJ0zRJl7d3fHt0uecuD+Jl+hwYXh12
PeH+mHR/VuLjACCq3JXvUfMOBW5ne9Wly8wFPs+5pppq0mvf/aka7PgWp3WL
7qrirTMhtYC+69JPydHVC5C1hWyVVLZu7HLYxZQNW5dulQz0uf3tsWWmgKl1
lOLaEUKAgQxg4sEDhEA32qC7udRnL+lz2CQ/Llrs+GvTSZMasMrjPxS4f549
ED4fWECnBp1TUxViwsFRAaQJtlOhnJ3t4bJkfXi5p+3LNyJsbxAtnr1pgd0K
yLTpfKJJB1NJBxl2B8JtEk7j1qsXIJwphMqf8bctkRzeXgA4Q9K7bmG66XfX
XBMQZFcdTbZpp926hqeShg1IpKthu7VEdSAq4AJsrWBrr3QcypMsgDVb2Ukd
drcY0UK0Nd26m2JTXZuRnopj+Fgx6gML2BSxOXVM9ekmdJazjDp4+qnRdHyy
sahV+3YbnvtJM5XgdgfUppVs/TeHoX1WNUlU6JGFaSciAWAEpJpyV8tGtmk/
l42tBNdDVhhE6YJ3/7fh9LRUtA1GFXxZ+SXtYMIg4hZWXGP0J/OsJXa73eLj
i5LHjajJTVlp4zX/3Rh+oBR0VpbwnU55OLYXO+jq2CMU7Dt2msSpS1aquIW6
VPmLjf6ILvtZAoXbZf3CrkksNk3FugZgLPY+sIDnrOJJoYZrm2ye4DLBtMyg
ZT/e801m9pMVPTlPk30weQWBDIr99ZL+jMcjCNNJk6MqHnmdcQGp0UiRalkV
+gkFonTZsmkrybNce1JRk/V7P77spz6fpMOZoYz6w0anin32UynR9xOEqGR9
O8eEQXikMMKUCFjjgw8uoDcD9CjbsuajmjaxVBpRo3mr2WmZ5resWTuzqBbB
SdptNKk3owZpzu9SS1cyrk7XWuPv2DeTh8/xBFxG31rJf93jnx3zOeo23qd+
zJNp34XvF76v+96bTd34Niu51g2J143fnDX6fgQ9YmZSrQi7cKyWLJrOd9+l
aRXnP/ncmjWasCm8YBbatehdV/PdGBL+5uwqzPrZVZjxxDy3CjMbgrUonA1F
PAYKc7F3NJcStXK8zJmhHLKnVNsjY6sQe95Y7ffS9g9U1kjm4a1UoVskJCW4
XavWoo6+Qesavk+kUmWlaA7v2lbtNoL1XIOlHjOmpnrHIfmf51jjzh+r/UbQ
XHAX0rggxlnWuHbtzguN+wXv6p7h/pfWanisFYotvWTKJ6xySPkQpRnRQEdf
i7zNRqdi5Ue4W4SRmWrUCBJTrtoZAncgDUGwYHHgYeunC+5IFWqXHLRiY+34
vbTmxV4/JlQg8U0z1rub7wxlX3tnKPt4ujiflH0GatiCjRmY1HxX9sdKB5+t
BeKIGeQnJjkb3Hpe81t5WbM5l5muOx62sM7Wq+nm/RVaKEzVFsiw+BuCu6Q5
GRfYLSxuRca59XcrMiabU/fPc6IV58+VVhRi97HWCou/dlpRaGGeaMXjpMtI
v8oal0tcGt26tvmtS+lysiLyO/W+oVHDBT06zu7vfH23FFaj/rIo6Vs43u5v
vSHu4eUWGP/TnEjuvBlLrtZ+50ByBdxbSK4g+zmTHA3HNrUy7UGru9u5DUuS
QwDG86Oq7RbCHHZZEOb0zLr0jSy3u1w/G3jfPIeyXDsbsiyIYS5lWRBDO1kW
FGIuZdnMPFWcHtFFu6iu7l5qXC6HyHZpzgiRqi69NPKVFxjgjNOv3VKhc+ZX
jdHaZZcjDHVGUh1hqM2kOp6hzkiqdbJo12+dfsylVNub7LDnFsId3t3CZEM2
MNCuxV0tbJmcueBHJV+tyAmiVBsI8FgL4QQJ2y1ly1BHE3Y+NZeUcTwBbbR1
SFgLX9BaXVr4gvHUpVCUu7PU5eGzpi51Ld2p6jLv8gIecsjLPP0jFzV6XRy5
Cr2dq2/Y6HRDGlkT1TridmFgvd3IVEMaWFWsPVPtwGnhWeY4y2iqI+feBXRk
3WzoSKGRY68j864KwKoikekRBHK2+jwpVeGEZzS0XNus0emGNLInkMPG1vBl
S63a4bSuDua7XmGhKdsNJXmnqkdBsu3gK+jYMVWPZGXHnVjFt6jefoAsaPSW
kKn2RDVrMqPo0YYzble9vbCuhay/R/FlES+Gl1swfKfX+QucrZ93sn3MjGW7
/hjLNjHf7NtGM7TlW7N57fKt1uTMIwxhWAOsFhSd37BJi5x1hgxaTISOhqlZ
w5Zw2RLCrdvjPjRV1moBVjZtPytKkU1Kt1MKy6HfiUqxfq6Uol1qdOyUIpm1
H2jP464WVj8N2j9ybvtHChA/gluyd/JNt+/ovPoWF9l0rKOnZMrW6CS7VrSt
bd9LATemV8UjdzWczJgOUMeg9+Zjok1r2z9SQOXCeaJN64+JNp3bvpc7VZto
LWJ5X026XnKq4X3lfTR2e5LJnnGfOVVFGC5q2FeTNkbRYa39twpPky1xatpe
Y/oEj9Z9TeVY3v0yXnvl3S7j6UUo8N3JerG2pRxH0dS2vWOtFzQUqtv3u6Tm
u3U13y02WLdIzeYgvMgW1zR9of3IooY9ZqPwTsx9Za1ouoaE9Q3bmGpFUz8R
WBMJ1G3ArXtu/SxI7oJjLrnzZ0Fy6+aJ5GgnrGvE+jFPjgQY9b1zHe5G9+Mc
/NhnXHvQWLf/Ug2AY+w+dm52Au1Ph9/cCpkufls2y78dl/YxO7/NJ/p6+O2q
ORXRfIJ+fgqhnr6eMKaLyaPN1RbonmFdTwjkPCG9pr59vHHfKeHau48t5UWK
6um1KCfof9H97xjvi+zOmTzeNQ/YmSshzfaWrX7oMMbOMxWSx7bPhN3ZnuJS
ptTpXrnz81uOXLR3+fkHv3udyCbohT5bN1ebt22qNq06WB30HApY5py2S3d/
9U+/fcmH7/Ganfuem9O2aVu1bcfGauOavdVeQRvB9zj2HHOwRsAR2kdn9IaF
Rx666dqq4/99Zsu1D4m03sPfsPxIdeToVDWFG3ZtqDa45wZo4Z3Hks57Hr3l
Wz9Z8a2fAhn/sX7fkgzT/aur1fjy0Mpqpa9z9ZtjOqMVXJFWeu676//x7iAF
9J589Fs3R1r9e616z9p2+xsZdOhAY0xnl87PbP7EQ5iMyw5e+ycZnQ/d/8NP
8w2bt1ZbZwJr6yW32qZ6v7vra69jaj608y9+PpJ7d3/DyurQoR+turGLG769
4sf3iN68BawzprN/1sHbPs90fmfz206cqo4eFT7gBH8Xrv5g01sX4a4fTv14
sOJwdbi1L5i5PkjCp44OaVpxxJl6tX5PZ3W1f39GeO9je5//cGbvDVd+83fG
QnkGxFL1/oYNN53hiJg62nne0T9+dUbniw+/+WX4Ejft2/D1B0+3xHbm/kuS
++bN3/9tRu3ag5c9MpJ7Nw8+wK4u2elu+NHU7V2nD42xnVVi+0/cdfs7mNhb
tz1/mdJgv5Oyv6I6fPg/t75wmu9cv6fa08lQnutkgEheeag6xIRUm7d21lR7
92Yk964//Pi1rBNv3/ifv7bomOUFtE3831d8f6kjcc3ezuZq69aMwiurLVuq
1c7sOt9e+YN7LLLxnO11BH1N6O4NRy9yhC4/0vnY0Uc/PBLq9+r1N1S7dlVX
bmHIXRzraDznnMxXXH7H7zMF/7L/F+6VkQkl/eHehw/4pi1XVld2CqDO9ZRp
V1O/YVe1iwm7dMcP/lRT39tfrV5drTzkbjiw+vafW6zwPeYUwyvdPvWjPhtQ
hvfWavPmasOuThLWMrzLBYPxZhsyO0MoO7yiWgEyKDOke4+LenFw9+ZVMr3p
RHjLdYGZEkgnTiCVRr9HllfLQWwkkF4TAp+76/CmDeyu8IAgsEEZs65GPKnp
ueLy6nLGYvX+ar8GLBCMsQDGBJGUujpdKxqkOUAeGQ0wXklkBsdlqkmnfvzE
+zf98+N2VxddBGRj09S3jB8YOi4JTe8Lbfotnv2DqyqnNodWHV2J9qBKItTQ
OdZS+zpLyoRSowyvE/fhFS44iEZpHgOkL6+OHIG0OhO4v9N1A1zWs0VlsglR
/2/P+s6uasMG0cPiaBdSDhiqjiZ/AO8fGt+6uXO4WrECTcX2KccEX7ccvedx
/7HiP5YEeJYWqR7I4afzK8PvXKqkGh6sr/bswZdf2/D5U1hPYVg1tC9L5enC
7vA6XJgAhkwc3BwdNlnt2tBh6C/ZWe0M0C82mKAeMNaXwlXQEzTO2R9aGSIq
1FBAUyB/kMh1SByITKGn7YjONePBNS4z6kBDgZCF/jJbrHj8omr3bt1212UD
eHCYejE6sFADnRIfbvTBkr5ot+trW7VpU+xroCSxf3Xo68ot1ZbQl2W75Pa5
SuBKCUenOsC8o3sYwMycNIZ3/HjFt10fe9dUa5aZTHQFE6g4BcCGks6F4esZ
3SAMARh8UApYLzDREzYBm5QSRzvId7NOXIaJB2t1tlfDUJ9igfv3xc0fPF05
O9/RYFV18KATyRCw25d/36UHuy+qLlpWZKIvI/Q3L/r8SWqw6RuehCTgS0Db
7asP9KXeetvIqHfipvwJQpOPZAjBaxyqVq6EcjNCcH8BIcs4qHHoHEMDJ5w1
jnrE3mrNGqmoznPnjZcYkK4YktOq2gNAX1t9yynM5fIyvTrEaSPuIUDyDQic
x40ibxKYIoNhA4EQ91Tr18MdCGHS6Eh6E4Ryi1Y/DBpAediLP+DIt7+8o9q4
MR0vUZu6PLm8TDM1Tay7fz/c/9ABbnLGHpruTEJyftBbVTsvqS5hUlw2WyZ7
Uorr5q1bT0bbHAo9Hj8hsodB3F+sKjhw0o6Ldle7g3bY3kZ015PZzWc33nDO
BO7yzji04n7+yLMONkHOpsO7tjFoYO94gyNfluiinIrboGMdat8HSKN9fHGk
Wr78iuryyzmq4v/Hlznx3Uxy+nPL8p8c962jJ9+TgYuVhx+RQXCgGX6u3fKZ
R1qx5rgiO5Myg/zc3ksfhGbYRyf9uByD+vnk7peeS/24YULeT4GtHkoi3N2u
rR/dQAD65E4C+MPo7pwuDm8DDN9a8ZN7Vpwl3a3IllMEFuhHNtxyIfUDq0n7
uZ3gHiYgzB3uT/S7Rlq+tDbJSvGlVT85lb0z/g+tlv30QgAaft6y631PJRQ3
7qh2BLosc6ISHudNIG334Y0XEVs+VEi2bsuF9sFD/+vR1B2CstFdgbueTKiu
3PWpLdTrJdXOnWmvzj10pmSMQiz52PofuwIpD+0suRGQ0iO+/vIjz3YxdPj9
lurKKxMg4VRZV1FKtNR+JGdJMg0Pi2ITXF1JZL+7/yOvo55cMso9Wf7C1+BD
goVY9Kyjb34jAmyietKA//jo857J4QP0dE4os0A1fum9Q9C9w3+3sdqxA+4H
FgS3ZqVVZdJ7Mq2ChsqmkfRCtmj++dtufZWVKtTYDU9QWBHYO5w+bOeso1/6
vAxmnbuXqTUrHNQWNBK2IIUh2srI89M9fV2TQFbXmXC+IvqoxDwQrywafYOT
sqgAVYeXRYyIWfcPcz+Jh0bTip75CVDkhlRF//DvZG6uKMxfVBX7MedeTyzy
0ZfuFSA5/02dQemszqZABecQ+MgCChq0eewK+Fh8CKEwU/YOcfj4H54+9nvA
FTw6tbR8rXNFKh/3+jTFaQ7+nXz4tpulXw8Vk3+P+oXr+MAynIVRf/DZRn8F
HpOqBMh2uQVBi6ZTaOltmDJ8gXfOFjnNv3uRzWQ8AxN04iuGZXqdL9wx9wf/
5Zyh5YJtfp0q+en0Ke2Cw2BWZqG3ko5jpE3dYiTsurIGvJYJ+mnxKT0C4uyC
w7WEVdMiR+Ro5x5lq/S99aV3BrVSmnlW+j0KGUQS52FOgyzfXWazr8dJrrNi
ukodhzF45asaLrmzPHuNOyKYKRQFtQIfbEFuSge3+RcdTskICBK0d7mnweYK
7xGSouLwihtdDr/H/zuyj9xdVFWoWw693j3LHPmuBtpdgWpXYxN2IZUJPsFN
rlhDGcu3Uj/SAUBlYM9ItWQ/2t6lf0sy8hNHsZUMqGkwwPY25Sqrw6ELgjx8
gQ6xK4pc9LQMZSDYVG3bBoQ4G9eV9BpZnORbl3EcRPmxb1dGFy/9f/VfQPvw
ZTEO3MPghPrSw90RfQ24JC0RcBYwiqtp7fpxlTOEdOx3xIbBkge1rd08rjoN
HXpyiDdWm6htnVeOJH8gtcMlr8OrMJKi1zkchRN8IW0hluMAePaTDM7u5bUp
A0E4bcxGuK6+4+9Nc5MhAqJcAy08qcyk721aw4KrrpdKj5u/RQ+QT8WAhQsc
2pV0yuwNsrmH4VW0WQwi36TnyKkiSXd5a1UurNQYHFEhCyusPlAZomJndckl
KRX/4rmXwmC3q11D515F7qe1x2GTgMpyVJZwT2kPjKsybbxXmdV7534e3sgJ
bEh6MZf+hn8OGEif7AQ1hMpKiyxDvXfu/llI8L3FQTd1D6fK3XPeBt2xokKN
LXsqpuX4gx+1M24StKw0sKCl8JAude5dZHtRphTkn8ys27O8yPreiic1Mr+P
d0HJuJBckDRc1fOA42+0+ATsJFeybPs+uTPhxI7leLBatcrbrehX1iLY8qFY
Vk2ixpf57idL8cYPM6JwezLvdr6nY4YfS7y+q54MP/DntJYl1+av+/u1jbNM
VDp9b5PHbtSrnvTwe9ZX64WvGEChYbVSigg8lsk4NNUIirrQgy0R26Y5g0IX
LLBM1e8dWsy4uI/Nt9/W02WiI3x+9/Gk/CLzZ/cus6KDDfXDKY3upyf7KQWX
k0zunHLcl1oRwQVjHRI2esRQAdg5qxAaqZOr+xqq99OeeM7yXfig5C3NQHHN
R810kUJsNKPct70oC+R1XutrvgsYUwgiNGkjZ84g3zI7yZIPeGkCS48IZI9w
I6F00M0lDcmN5DVLyahjpFQy7riOv0rGJ6AQfkPHhZ8uc6tthVoI06sUbSS3
nI3h/8ytHvTXcHuy7dvY5amhuev4Jv+ddM5wbPSI9rIWtyfnZo7kUkUifMK0
NnWqx84Tub9Fqz89kmGaTA2mP2G37/r+iu2kybgYOmdDJ5e51TnlRGw1KwDd
lMKPXnEfK78yw9Hc6ryS9YTKB+g/zAPcmEvBDWtsQ7IYXmmTSS24cohoWHbq
Bv7CuiYidNIsTi4zvDLXQuE2OG3DKCEUM76cCwLG1E0tg4viNQzrKjbbP7kF
SDFUNnynfTOnK0T/0VzLgh1w6kYXHOKTZFnn8AVrWmmwfEqd3+jCbNMI+uXc
aSAqGS4S+cXKMqun2ODoAAA36RLzrq2MNTzprEA2ncxgdG2PlxE/eq/5QG9k
9sDh7Sq4kB7pMaEJlp4lbNHyaQysOgrhK/F+mU3E/Yqjt1yPSen9PElJcjKI
0kq180bbaWXbKsfbdiy2ifrdEVMNKM/0h0wL6QDsNg7Mb7L1c6ZbjsejWqsm
aSxcH68FCWGdlEMGRjx+bHYcZ4cNSi60P+raEco9fcCjyzPbhHWm9nAy9wuc
zcmu41qWpKcWAdlMP4gljKvCBGbPdr8z2XlsvZGR3+/kSP8Zf4Me/03URDJH
/w3+OR7pI8ZCAYllmeBDRbVUZpV2bZUcHER9I4wmiGxZ6UH1uDCguJ+NfKNd
Qky9einWlKZe98nxR8TUMCT5Qo1UjKALRfoZhfys0q5TuG6ObhjZ3GBLpRDJ
M+Tb7etbZDPglkT2RZDl0GWovVtAWumVfp+3pdPN3WxIGsbYVt2UfF6YnMav
LAOUlPOKenZGLDLljU8JXY21Z5X275nvmBpoLgrxzHSbvuLQ16M2ZwFq6Obq
oKc0lcBMGCiEMjn2cEu9hBj0GLybChT/MHieiRiGpC5mLozX9MRdd/fPPQdq
DVQ3C8tLh56+I2SQReqCD71/sOR2+7Wb0f6zafji+qBIJoAwEodQwvqHXL0Q
hY18Ak4pkj+WIfCriNWbTDIG9CYo0mW5ZLkjqcc4jHULA/5ejgM4GQv8FmTb
wasrF0InOiOdKvgy0gVw3xb0wus11Usfepp6c37/i54FJGUwWlflLDjJn22K
blv6HkBOQiWCMnGEZiCWummyrh37f1bD2CJ9Kbz5MKNReizgI4apcVpXxH8d
siKNLfKTpsTpyEKDUxCWWtUX7PsLADba1dzuHSEZ6VLXgBkZONSRjSgMj75g
q/MDFLTHgmytgr3orni1c1g5RRrB6zVZywugj7UrusV5zHFX9KmeLrs4YJd2
P+2bQE3OLf6C76MzbvToREvlmPOlx2Y86rRmBT7lm8DfSCrd4Ltvu/4HaLE1
3Q7OJy+MOvQ2Y0SaCCggRhDMObCHyuynUiZV/NED91MDL023jI/NhDZaYsJM
fokJmd5DMoWyQSaQ0dvKRx9zGg1+ld2rR7SmcPBJ/5yecuvZHjhKYvSG9DGo
t+ekk0EqKpmScD24pUf0zOKpGv3LdN+6JkcN6TUwru/ra1AtBP9VgYB9uuea
2CI5k1zL5WFAhIFSPnI015JMjL77uWEG7/MJ0gk1J0l9024O9w+/WwyfZpPZ
yw0pjJM/YRsgPSI3e2Caf1WZ4dNsjRYGDjDhrcKS7evsEMMYKVOrYVhqI3S8
lzaMdecaZe3/e7aFjGZYK2I/xpBgiJJbuQ4fAZQ6lvNuMKjTDG5PT4Hh0wFo
5BrnqlSPeujH6ChXfFqZ1dNzcIjeypPnk8ywXLRgLjU8mcdmUNMYm0B3nfkb
csLSldHEa3bFpv+4PhA/9+ZeA72dbhD/c7amDiLd6aBgr60yp5vEdwvIi2EH
u6m4tI9jploA7eBR64dOy5GHXyHr4xnuZDnMXtvGY+sl+iX48COcLFqzHx/x
vCF/hq04qffzZsDi6WW2bLO0Ew3qEX+zq+AeTVHZK6MeWOt8dQnPdfzhnCjg
Xkilf87QwAfaElFhJklyr+2E8CeXCvTzljBxHDstMawNhRuyKvofct/ZBeeC
W3pgmeuCjGVgx2oxybVec1WINTVcn1En5ppE8BobloKsLa7PqJW1uZqMOpWL
QYFIYUzzwJFcF2RtWtUHPSJyFxEWyEovrmczzyhzrZeFCFlnq8qusbW/IOsa
rs/0T9Ai1CBr8r5oH9zGHeMftN0adaxHoha3Z9b6ezQMLv2ssOhRDi+EB9EC
PmMkq+bWoo9FfvGQ26hV8I9nlnkyy48fo3hFqSmbTD8FnkVVQ/9ZtnAl/TC3
EOoLAzCL/rNsmcimIeWwUYXHF8pWsiOmM+K1uChFwRwWhOr+knFDg39WmfhC
9gNFQsiLKvwR273VEL/aRp5EKMd3IcS/3/ee7Meis2DkBnbgYfG0OqUR/zBQ
MVxCcEY1PWo5nTWSVak0ImWSni6E+L+LChKmlQj8ZOZudZlPTSDRLY9TCMH9
ff47jFn5EBPIdmBLdTSrWsUGdhRzfb+3E0KgnvgoVdEsrs/2t+q5HSO4B4dP
XBeCu04+V5e5Ptv2Cv3ImR3c32PDMrBNo4ZrCZCQtRncqVO3vJi+gy0PbHc1
mmuJk5C1Gdx3RZWXWe0g5wKD2bMNhh+UYsODWWFLWdmZGC7Ede3izi4z/KAc
IgwiB2n7YCwMfa6iR1RoH+RcgI4ahrUJDPKGw4Lxq3IJwKINCYN8m+FuQcKA
SAxUEYHjuo+rclcKFSx4TNe6GoadXRcVXK0CDcYTjq8a7Ty0fsZuM34NAYeQ
fXUElVUXfBZcZA1vMlSFmsXV0QEj21WeQDsWmwWnLufYInOd7I4ohnXRfVs2
5xiaeA5hLXx7OI9Otp9s9erZAeEchbng4MH+iXBwJAmBoh8vcI7HrL0/lQD+
gXuLgwfncIqECXoMTxgPwXy/Df9o4iWcMW/q6QGN6+TtkbGA2qTdzIPLPOmK
MbUgo33Y5vD2yG+o/k3azTy4zOpDctxBb12o30mdUECEx0SWOmm3ZHH7EFsi
7GGsKE/colihUqlMEUZzWxCs3q3iOv4b/52caRM2rS30IWVutfEwXiK6hx0d
f5P7fujzoMZ2a7h+aK2M9SEtjoC/JvZUJJ60XavF9UNrZWyG+L+OYYDdJ4ui
Y/hQ/P6QkVwXZG0mVW8jp4W6EX0HdAqyfmiZ64Ks5c4hN2oXndrpoy3rGq4f
ZvtRYVoMe7Dn/2ebXUHWFtcPq5W1zJzdWD92mixuROh3Ib8g64eO5FrHPwoJ
cBbx5CzBstw+Bs9dEPTDyizbgu5CuGn1n3q0U0hbyjX8rkmlzPmK6+mdEXXe
yYxeC+K0eFtji9O1/q4IKWSKyMR+WKdEDxtJv5YXHRKeT2b9VSePdYXMf02Z
IS2sUd0lS/sKw7kaJs+1hTQZPSCsITnH6m9tIVk8nWsLiTMAIf0woqDW9SBk
zUgWbLuyB4dviaIKFjBli+rcMlvyGADhQM2w8ZfR5kKJZ8qWls1qd7S0tKdw
Hf9FGi744ImCpbm+1WBiTX6rEKIMF2F1D3XKpTU+LoZFYsnWHibVy9ZMwrbX
RgpTvDbDejQ3SW6wWGN5c35DmE/g7M2Stc362lpZuyRIhH9BQJKJC9i1rC3W
z62VtSyVulUColMdNAqyPtdk2FnVebWyNq3qTbaNF2R9nmHK1CnWqEuvy6Zp
TU/+uf9OnlzjrMqW8Nqy4zq/VsKca6HtMJ7aFlWMs89wJHBBzBbX59f6Zd6S
gh5C2klc65S0IObzRnJdSIPydcp/nsJRUVZYkPH5ZW51ZKVXTuT7trelMFQ0
5mD7t9KgGn4vsKXsenpr1G3e71zjnC3eLsglSYe2htY5zPI8NrWul7udP5IF
MxOaCHaxw5bIBWWqC7kOCI41CtG0tq0akh9uo04y56zDHzEmetCQW8RT0/J4
Faj/VPRFQJoHCiL6Z1ZywUj6NeTUiRz8hczpjZ43BOQwkCgkNQ8vsyVvxa6j
qdz8guunHvF3sNlpW1Q1rK6rdYOm339D7vddZmUL0eJ2XX5r9IB9eUJ8egDf
6/1z8qwY+AYWvhLww0dyXRCwWdPaGonLKtAFd7iuzDpuldnrVO71Qk71etv5
F0JexvXooxmyd8zztoewgtivoI8bntbXaU0iwHTD6Ov8c3KRY43qRPxGH9ow
Ng86DE/laIei2+tyzYczKOjfOi2J8Q5z6Ca77/sN2Sqotj73zTX6WtvYC+5r
fWBrvGMexuPHzh9sB/XaqIacpwU/IvIIvdWmkwlsJudAtGTzwtyisOWVQia0
EQPMOCFGMtOLtguWFGU2k3MgxmPJNrAuJ0V+FkmwpL3vVN4Mfl9vC6vRWQq8
P0W6k0mDxQnNiy4VixenRbjw8zX+fjlMEZ4CkpUmdaESz5wy0ddzP073/ZsK
Q84kTKgwmrZT8YJUGu1jHLRhqG8kL6zt7jY/jujyiZBORFP2/S5kDiL8c0ut
VmRJLYaScMtuWGQoPgqo60KDY20HDu9NPpCwM1FjzZJ6bQGiQsr7yr0F/Il9
/7qAdbtdwjMj21ZWny13+dDseGD2n9gxZ31L5NU2cm2w0JKR9KtMi1V2KvoX
nhwJ4fxP8lASsqkxDn+YCdla1wlxTg7dgY6SZj2smwni13yHSJ9O7uYdcIp0
cYrCI31jOu/hsZUYmYTK0B96viAC8OTGz9O5ASAsPzJ4yHYnQIzHy88T0WqQ
wGmCtcGCeEFc5ol75kUXZSMvYxmEp2Iq5iLbTXYybvTKJuLGLEi/Mn4nlyqp
gTIPYMYSzgw40UMG3457UZJ83Vb0qq/I43IYhRq5H7ZhtRWScrweqcnACvbv
jtQ3rSgEt542FywleypFJqtXPP58UwnNiI1H1ZqNrMS7VR+CDT2BXxhE/bwW
SuuztCaTUPicUazoWosYP2X7jl5O0KvCfsFmIiutz9RqyYNeN2p45FAPfVnk
T44Pp3M04KAL4mh0RoQ/mmeQ1SYym39UVAVZ+iGS5LAnrPx4aTR3WXRyMw6G
gWBLxqOUOGaXh0fbOmCUr8LWKpJEoXyFlfnSMB5lS6LVuRDT/Ig6rqrETWGE
CtThlfzODcGKLF9BbIWqq5bEnPKg/SRlWhj6wEXFCPJSW1TEg84zM3E0PceC
D6ySdYbcsB9N+l1cavqayAabMCcjOrd8dCC16TEVzWh8jO9O7/IS5DnbPeoW
qHsPxAmJGvs8WoNZV5o9jqy3mEI8xobB0eWH725rUJiNqBu2R8rqKq1NSdIp
ryQJKXOY9CuMxzOcLlM92EzQUBTW6QcWVeWV6FU2Uo8J3cTy/EUpRTx2oqYR
EVGGi/uhXpVzjDMkHlPmgHqQ5zXEkVFPLiINUeD3oz8KG9QW5UC4siiAqGFM
q+R07g3COPIPfLfJGyUX5fjAGDJ+aQtudF9eVc4L9DzW9plTMeDZb919URot
eXea4RPgES8KdL2mIUFaF9kvWotBX5SCxyO/wsDvIhujbuLi6wqtauR3pia9
kB7JA+eDbF/oW5bpUajvkVVq1XqswnL2CC8opSyeutVVgnA9RyhH3Do5aQS8
dTzRxCj6f8HukOjglUCJzvhtmkndHu6woL/1mM+EZnlSHUaJRIC5/nhLanP4
4L7pXO2g54/VcJ9FpMvziHr8U4TjYbi2jimKG7ANPY+pTjIrHNTlBbl/E8N/
HpUhHQ8q7tZHbZ0FmnvC79oD4ho/9/zcQMNAv07P5equsw2d4RK1ZCLumybl
kJsrMVehlAOeIgy0fs82SFdvN0ZbQasdoW9oQ2FP6IBuknWRhqwY0oZZ2+fn
Jof76BEdiB+rUXywQWPPkHmGou3WQrk5puTPz+0LN4g4wqqDJPQXAoF/0oYy
gZ572TO7dsyCymo4qEjfa/F7uQ0h1LEKW6lYBqKliuy+5LDnrOCnfjEXdJjb
eWm0eFg6R67CGOZxQTCWujWiwkyyiQpeps1hqDA8iVSMdItpFH2QJkb7kiVR
r9JjZp/nv0hmJ40dZ4D4FwN1Zc9XIuvi1B2xEhBZ+bsvnuu/iO/tiGRp1n5R
g1YXuqXKP1hTp2cWKKNHcgS/Gt8ufLntXCMldZG4lgQdtxZFu+JjpcMy/5fY
bq4RHlY54WGKGHvgYAxCwmvanh21LJyCtDhnDDhfXItVPXl+SBxe76VSKnM/
gT9ULH15BGGrq0sX2/jVDAt+ybZmEb/to/F/xz/HpSLeZSGcpraXjoZtNFV6
2MmjM2uwQgTJBUCQrRrQsc/MgLpM9e1YkC8McC/LM8QUNgw+K7pLWZFdZAP8
S4GAOIb9ZZtWY7gQStnPinLKlgLRc7Ri1/3DZuRfKrP+y7WGLGEP60KfaX9H
eiADcViKUcO6XDiCXGBRjcFSzzqrWGT7txquN9hP1MF+Wa5sKDIusr3aLxsM
b7BvHWl3lxKw1sC2MGD55ZGs6wMkF0WPg0wzFogvzdUt7E8tzKFuKDOvb10U
rYsPywwLdnzPhXFllqS5t4bW8P0rqaVxGUxksGmKSL3rd9sZzgVQWixTj/IQ
LCx2IaTzBVbPyLUPNmZ4EzSzYSSr0pXS8IdHj26TAr8B2ZrWB3+/UuSpprrt
E3+XIiGjlmqi98T8SpmDx9umQvlXvrXV519ZQdvigJqW+zYhoSURl/j+ddG0
JiUj3p/5FQ+IRt6UrSnBZ3v1YE2MtgpKQrjawts4HD1Pjwob1MdIWkDv4wON
rxuHuCfYTpI9Hi20SM4NqCFO8/h4DaA/9i6dUeIy0DXPqayEPZ7/QkDKlBij
YKJVzm6FzQZP899xvYLPtVuccs15gJO3G/69dkw6e8I0ZYAW4VYGl7DcgzCF
MgSLIiLlQSOoeEUiE0z7YdpIvPkvJPjyLHkNaN0isywDiWf0PTVVEXxgVIW8
6PEK2pbk9oT87UmOrE4iidS15EW2M3y8De2SYD48TuKZN/XiP77nQQHhJ9ho
iCEUk+XWkeDyU4g2sSoIamFMnARZaXDHI1hibC+XTA41SLexbvQ3yBVAoTBo
TL5ggJOh7Qc1U+ZSMdYWsajYXSJFiaP6X404aafGhMjlPGH38UZyCao4z85F
HXL5q0HCr5kNop/oe5HFbSQc1LlctxOGJUSv3NILXjjXUlEi0ptgvSQhm0e2
TnmEBQrlOUeTLDuCp6L+5aGB4a1Zv0XGIDJ75IL8iIodT1QQz5zWQgTmHfBQ
7FDIeLL/Tp5CBwsVVsjbMIJ2ZRifQTKXwXdgeLioB09KLQX/xDQu9CBdrPzk
aJbZqIGVXZ1TFWF97bjk6SyVyIPHQkCLg5rfym0K8aMQIp5Ywk/O6fO7VWXF
arUmUJaeyQmEsR2oZInD/3JUFsEaZ3A/KYOpLRXZXh2nJO5eGnZA2ThqRUPo
y4VWocqdgXOmQdZkLVm/5nuV6RO28/rXMLmV8OnrlP6H/yJurK545UNSRAn6
HyF73bi0SW8CZ7gs0hYecj9/03+BXCoQzYs1Vb70JI3cw4QrZmrOVpTYcXZx
RATODVmmJ2dTrtGIGL8Wut5W2+cl/nGevmJTpe7gg2BCcd/xpqjmUmd/TXN6
me5BVzzZnRV3rl4SOQ5CWJyraUAokrBP9y2NEmVS8r565C+7hX2GOjy9zU5X
WDOmdWkZKY/eC3AgcWu/7lvWA8tFeQgI+fqvRWfCoQPEE08yjgPyS1QoG4M4
PTQ1ErJ0xfWToo/hQAx9JQrlPn4owiU2ivmrMw9UvDbWfqljRrjOJBkikbeE
bP1JebwQOZhsCbL6dYXqzIlN6ppqfVaShYW3nz0p5yYOgvqyGBKaK0BdvywF
MdqaIo0e9Ddy1YP3Y0pUXh715FfJdamkjKsTwiaAv8Z8lqiWjvOKy6vLVWaW
vPz5V3OzRIa52LaTX9doW3HTmkt9kKIx8Xdh5ol0w1yr9IRooqXkTKfpv1Eb
QuvJ/E0yHruSIzeShFUmT4juX47xncul52TlHq73NzSePB1s6YFcCvFgTahO
/yjaIctOi9M0hpZTEfC1hQGxS0UilVvHJU8mhMJv8VqS5GW0NGiW0xnC1+qw
nkFYp5L21PVvRt6zNIyycSTaofz8curh1utf0HnT/zrHfSbdz+7w547O16mH
CXaW1Rc7H/9fD/L3br22c2vFq+LgTr/bObDVfzdRbKPX+fq76Xn/XVjgJZt+
9xdpda+6299itd5tSIW/b1K0i88LOgf+zX+P6/65fnKd2+3WcBZRdM/xe+uq
G3eErpikj98YxdcOmKaMXpC7Q6RUpHtwpjLZ/81GDsZWuv9BdqhmRcT5O2GV
7ysW9O2/qr75c7H68tXV4d3tRlRDPhKVrsXqj9rcoSsctewNo6DXt9U9ASNL
phfAiBj13M8pJb2qld51E/3ou5+DrEV6tG+qS+UIztQlXOsJJkUzOd1KqxYZ
8g+PvvuLgrimLE8UQewmxHgP5sbyvEKzU6gJOpH3RqWfjVSoJ9JP3Q2vt1tQ
obuICnmn5Col4biZulLtbwQNqBvuUg105AiyW4iOSPaouhbPaRj+dXlL9Upj
igOG1Ou45Lvo/PNoamDeqdUzHcoiWVCUCRaFEOvwfn95yUhKlOIUAt3EGDyq
JtiRJFgHxUov77r+u+1Cpr+8qCl9tLyaX2LJGqJ92phK2CsMrVCgXxo9bKjm
XrGghP8dlfCxuYbg96iEhRQNMbVYqJQOUBcMaCCC/JDLOcgXr8h4d0wuIrFH
yocIXr+jicZMtYJtMrvbwebNbCrT0jZ9TRtPZy3wbjWtK9Ns5yKGsmp1a5q3
zWo669YixZ+vlS7ooWq7XEGIiZX/oZxVQwURzilbgCtmVsJiEl4buaAl80dL
1he1pC/z57AcOHMpcTaKJtdlrRYLuVSJraIy2uX1SpBejjTDCQax/tu1nV3x
+kyVwN3NShCTf8pHW/RVUIK0hXolSJkbho8etayDUGv5KyrWR0eOYRoXQMlR
6LLz/wxxYZ8Wuy5688JGsfjeHf+wIPZ5I/YJdzBBupzZWF8CyUbBF8zenhUT
M9G8QD4sN3yJrQnTLAnpBImLwLEYQ4pB+qDD6e4okNqpRVoKcGnY8O+pxr0N
bMW4cYfVhJb0CMXIKKuhwlQMpiIdeq/JnTambsiodZ75ZMMt/Ja/VW7ejasf
smWdhWiwoAzzQRno3VFyOhRT4yRKvV4lKgO5itMIN16R5uYhKL9cVDuPTDok
F/yL0CLX2WKu+CWkBfnY97ikgq59IXFe9NyTc6RJg9yr+x6bdzhZG3J8Oz2t
UdasAhM64/AzqSEwKDK1y575T5LQsGwuqtirZqpbej87d6uWRLtlUgsKdpdU
sIdGkWaL2NWWEc5zZ9GHbcx7wDJ5Y8EUAuyLiyp2fAKnipOZ2g2hpXsjVrjW
zfC2hpEeu8Yq525vMnoeUtCMgDShHTWkjowNzHaFSkZcwhFknfGH2xKn0cPt
SGaW53gfaJ8jVFh9+Fuz4ANJN+WIHcsJqEd34g7pJjZXlN3fgm7+l9fNJGNH
JshKIg6swbKUqJaz5Tn1AlFRepYvAyh7zoFdOedhw3EmyJbMjSaMMHlONmlg
CbhvPWfOhCzRMyGjaBox0zCDuiXPGiUzHnQ/D03azIY0gW1JAlsDKmnoWli2
p3dWb5w1N5otM3bb2tV+YK5+LGjrgra6Hsm7yjIplsSK0U9WVMtcbKzF0S5T
mSvEErybKUYgd5nvi21vz+VJVUrghXBWns4cxWUpkluPgpWX8ztLWq986XVU
yIuLR3Z0Pk6t1S56yYkEY31+UIjWIrLHbYj7UkZHMJDOxfOL39VablIBveUV
M7Gd6LX2adnLPSDQA5I9nA4Uq670uiD7Yy77h3ghy40c4YgWI/GHcKPsC+Zv
n6/yR/UyNzPmbLjOJdDyshG9BjddByuHCYOa+60lqnn7se+uISnZRqoYtpqG
lXMifnnHP5Wq/o0REkKLjmhvuHa3OUR1cNPrmVE2Q/rLm2lIaeTOdqTlTzEc
Bp2iwJuBKlq59OoFRfkvpSj8CvOhS+G3mmDTGxfR91R7WPpY5RgVJfMufOqG
CjC0mzc5humFRJW5DE14zlMzpXJwn2BfLuSEz4sEhLPcaeJRnrgXljDU2IK8
H0HXnzGfzpDeGbwlu7XFKVpym5BLDDLxnUmPWG8VwDd8HSObuFuKDtiRe5yw
ZkictITpXLd1+UWzA0dMixM41GU65FQux8WOrqcGrl83E3blHnpMa9IiCD7Y
lTdEHFOOab2E3PED3/5ULWc+VUEyrnfEfeeaeE2OZO9O3qPF+2zZxyY448Ov
ghS49rVVybVh7JLwgV7N0LpODP49+u2ucY1O6cTKtGDcS3L/hvnMpwWoXzuP
MTY3DXIyIM7QQllkhgrcFGM6oxXBRm33t/1yUaetN/ri2K4Ey+HvJ9bcX34D
cD/ZGIcP2h0YMuwG0J9OwIosK252tScPXRP0YnXels0Hg4uhHuft2JPsZJir
37yFQ2+u5UVkakZDIsGzvvgOVeUlduCJINTs7AAG0fwGgY9gPz4OeP873juH
eyk48VXEAc/Ci6U1VrX2KidewslQF5DliCMmw9EQxi55rJl4ekDN2oNw14Dr
tz1rcj0a1Iyrudb+d0LK3P9uzFrAx0ekEv1amp//ZWzi0PdwgG/w1mQeVKkX
OE7YLfQ0Kjp5J+uRr/oI7x043/6OAJErwhGif1upzjxHwl4mYqw8dp5XwKFX
JRfqrs46MyXhIxqZD7YBEMvO9ABpeSeDpdGbCXlCU73kasJGy8HSFxmtXsa5
uMaJfNRTNXX06NEVhykler7tkIzVwagcuAA+iKFqPiMj15Qh7+cQbDmNj3mq
Vh4SrwigF43IVUthw3ShcPe0QEPhiE9GCrSHMzNFoD6eeGvzjmp731lDlOqm
tFxeB4jwf4boissvv/zI8uXLL9o9HIf/XlS27DAjYyEphjhPyzRoHmLzdFv7
2ZOSRsBOwCqZ1fo98MNDJ3PllVcyMnL3FNfvOoZDRoXu6bbyGGfZepZ4h7SM
yyMwUgybGHXSA4gttywxknEW2QkVEJKXbezxjKzePwzlU0OfRA3u2Lhx4/Ij
R47QIc5yOlekzNLvhwkyrUXzHCS9BLEGJDjnQytXruQG965Zs2bVwYMHCSS5
IjYe92RPIWUKdSazIg6arshH8/sq5bu97tYcqOFjHqjJDCh5TrB1gk/MBOl4
PF2u/py/bf9qHPbvW+1MuJ/dwytWrIDduTue4+9DKEPQd3+Rrely0v8Ogf51
dw1M9JYrwmTrZpxZlWICE9u8detWiQlcFmp50jPLoS3iY8SE1KXdy9V5Kk3e
XT+mJNbkxlPo8LIoRhRv3F/XEht79+49uGoYu8Foz7N75ZYtW2A07g6a8tZH
i2wKrLV7zfq4PCVbZcI4f2mUBeZpnSyIMaRjuy/CQdKRMfwd0rQX584wVFXa
Cq5JpNzu43DQTVFgja9fpXciyMolkq4luT9H3e/DnlXIitWWWYVMIVt3x2V0
nzyXaGl0c9nJrI2FO9t866Nnl+QuGn7oI6TPO3bs4OjX6fqfSKRw3d3xzKge
QbGW5u4LI8JNWuIt3uZeyKoXKe7s8zdE+UsutHYFVuITiSHcspSvS4mYJ9++
e5kJUiJ3GCvxKcvz0KRnBD5bvOp9JIOX2qDyOaWUruEDWRBbiMGIxZKtnZdc
cgkSGMFWkD6vwlmSeyQM2Z5hS7DRy9P9QHpKOysPMCvzdq/fkmH94iGuhotN
P4gRPph2wRgyNMkwJyPujv/tdQEYZQdKiaV48kyBS5U855Ldvj4cSBQM+vLd
neFsR2IcyqoNFQrtRjyCcbmiI2x5NOq8wVEVZN7qNe0D4xFR1qvPJS7LFT++
uCU5XR/Bl4Y1l+zcuRN+SsKRpBhUn9Hjaue71dm/nNFpPTjmEOhRKdEpj4pF
7kEQYOCi0w6YRkg7fjtHEE1Rq3qtXuSe9KDpO+55bYEs1PIAR+aomt3syGfp
y82FScT4yLSEp1VFjQ1+neFUFZjLAuPvnjOOn5lqHA/dC3VT4hOCRB5ZzEme
lrtKTGsuyd0cBi+RTxIwvcLOnBoMpwIKdbamF3uaRTnyFu6cAxBkCt/8cd/+
pm3bttWmH0+J7pxZVO48mdMLQ/HI7FVzwGVfjw5k2ZeLnFBbrJ8gViE1nYEk
o4SNZBUii1FL8uwBdSbXuHKGXjYoZ7UQbolt6E1YOXNdp1lC8Vu+ST23xpos
Bsno6ZmBtn2aKL1STKzxCDPj15WDPsbdIegTUXqrCKf8ag3DM0cBlqmUKz/+
Y8NA/GRCcogKUHKZpOF6YBzPKsKTiRrWzCQkyawIfiGhJRJ46ZVbL2N4Bbij
Z5XB+B2baLHuCrMazhSvizpeG5L+Z3w2GJexZCpgbgH0OzkjYskUIlzQn4+X
AwaUPBTWn2yQZbyjNMihBrRn5yYn0nj4Bk5HEJI+0dDTP8M2r98x4Hm2rfRE
AFjkpS8Y7l/vCYC/1elU4oeNQTV+/51RQGRBXlTy7eTs+obu0p2VP4HkRr3R
w5hqhdo+u4iV7VaX5D4F+ef1UaW0n0xykCdFdcTYzaXhS2uCh41kV0hUMoTk
jZa06Klop8TXN3ScdPq9fIkcGF6Syy5MbjpCewHHXsEk4Vu4GRXRHBafLHvT
MJEjKJRDI3jVJVFyOqkSFGZQbq61TlkbQqK9t6G7fXwNn8bCEvT4bANFw3Lj
asC+3KkT5PzJctTmeQx3B7+DU0z8VJRsMoWyygESnj0KRXvuu5DS7q33xMFs
NuSPw+qW2CawuYhits4F4YWJk5vfIfO9ZS8MuQcvTMTJcQXUhA1R7PALZm2j
6JzPc/LwGs26J2cvYZKfbuio+U3d4gUc8POGRYdc+XcNz0jE6dlANjvhuEOh
4lPlHCBx3PTqdVmQDG0YeS6PzgWZGZTqXa74J5YNw3L8y5WGf32mof9+HPlq
4XcwiewijWHTiMbPMXB8bm5csRjtckQoo2v1M1ELt23C4qtCLkCU6UKPWzFg
ZLzo+jmjoLMXRt5Y9tFJxktH0XK6yW95N9a1IhA/twiTbbQ3NvTCRAX0iA08
uo6+jE2BwRpcnpdbJ5AUC/PD2tJPN3TCnsBumD7AR7ykLVvvYAFFZMkFWIh/
RBZ4D5X6T5dzgKRiWkOWtkMYlSArA+33bDukOjqGZHBpbO1C4WvdLr0VSZ50
DHN7ngEPESBrW0h+iQC5Zwn+dV/Zp0KzUJyQBGiret4oIGyrMpIN6OtnG7rP
R0TXgSjptHCZbWm/V0Qom0cR4bEvs8GQaewrB/DEbz4iaiLIcxnGstwEQ4Cs
AZEWgcmqKLhamqcI8PCfbeg+18cQJl/V6caMYpV4NmaxwHw+hTJljVLM8oXG
SBxoinxk4evC/HFgKfLebFT6e2UoX5AbZiwEJSulQuL6uYZud11OKNSZpCRr
7Ojx+QaKL8hjZCwI2Tnr5xq6XFrtrXNnIk4uX0CPzx8FoF2yNmas0Mk/NPS/
9AoUMx+ipmWtDL7tBUUUM81wLpuglMlMmCD9h4ZBnsisGeT05VResIMaUP1i
mCSrR05F0pHzFhDg/obeem1OqMqP+gAl88sWqFsIODFih9d0DoHHJGKNKnz6
/rIfh18Kfnxt7sZizTJJCEJJ4gVlKF9ImIl1tyLP5POd0EHnCw09Oe3flBul
MKoQHkgGEKdnWwwIX1jnxbvuaN4hau6vz5cTgsSFE2VyexGUxViWANXaMgq1
jBcH9j81dNT0/lceFGKwxQsHpDTA/wsNeF6UE43Zz3+KWlRbBXto9D0ytSrU
m19YhuJFNaGMssskQ9zf0AN7At27V0NZlip0cvUBItOLivAk5hBWLhFZMOxQ
ud3f0Ok+ND4b2CrMJzljt5HrCgnq7JDK5JzmuQHoDdHXgqair31EDdeOElXz
eKENqFizBg/opgFuiGHd8qIhrD8imoaM4dAPQUIBDPsx8hwYuPKhzCGg39DQ
a9L7IZFthL3JlP3K5AZIvMgAimRVGB9IXwxXd0PZUyZFKyIKj4Q6AxElkxr8
/qIydL+fx5qgfkatNwTwGxp6zTPIEYvKENwG8S5TDLiK3y+iZ7t+UeuVJ267
0eg/liN34kqJQpkJxVSyL2tRwTXZeDrX8WLbB1JrMmxD7s6DEKFYu1vrdU8n
isQiI1UcylIGR+0fGB7uxZG7wlDR7odoxRxWbSHr9CgYmQ45wbBFDlUsi3+R
1gzZl9iB1sjbYKcHGrrkVbl70Hmbrg85zXuxAepLcp+MZH9pbgKQ/RejW65N
gU/L3QTUyIj2ULoXjwIwS/LkIFzPjTlT/2JD500bqGXqJgjV3u8lBoCX2z6V
Uyzx8lxYK9EFUfJ6eDMZeIB/XI4VReImxwHQrZeUASTydLayNEZ1pLsush9s
6MTvTyojyjKCNh1aLy9illUPxBjRTVSCMndeyMGy407qX56yZAJIDRCzoOH6
rMHvilwTYCvfauiof4ZAGVKUZ53JIDmotQUYUSHLVhj/faucCyRe+H7+cUgZ
DiNdipKlIJCgoKIASeJiQuaynOyOT3nB54v1/jfovKNyAoRxliFsCip/hYEM
nTciS56QD9EBkwsZ7xejFmn3CvSwSlCg5TTQZVz4y5j6g5u8oozSS2v0jfhD
D+x5oCFfauhdz8p9NlzqS4vw2LKipJfHY26zxpei36ytZXkSkkFQKFTWgPIy
/5j0XxCyDOG6xOai2peKbnOQuM3hB/fAIFb4R8CVSjUTqkPGYaH3shoZFopu
rnDwpRjIsSRMkpsE8uEH2ghvQeQi+MCZOqVdFt1kVuF4aRnkl1PsEDW7GNKT
mnVwjl8qOtgBNrOxg8WaYagFTPke0bNxc9CkpXbAdjS/zID45XlEg0YszZUh
pDhfLvreAXSUfS9yU/yN/xOxsqyH3ERsS8kc4MtGAWw/ttQOjjcWPXUfgL/v
4osvxl/4zikzHUYDguU5JWJxTOYdX26g698HniRc8BpLa+Lkl4tZQB9/v+a5
z30u/gLyblUYUQpfxlkYJzsdo3qM319ehvYVeWaA/7vAWBh73lh0673vL168
uKLyAYg/YTSt0sMDtlcUUbWdKrOsEreveCJhQMq1979+n/vch4kM8qdzGWT6
CJViwYkcKwzwalB9Zc1jxnA0rBv+CrkMEQ3wuX7t2rUcObEVLER6H3WTbBq+
t45qC99XtnO7IUp4cgey0oYPAAboFMf2rB+OYTkzIoplgRSYs/ux1PAVZZz/
sM7zho2DblD6VUoBKETAnG6bnJzsexpDiT5GrWQxzSgaX2mg+ocjY6+brA9T
pV+L2QiIggJ0iDwUmhR5SVzRQ3zTU77SxLErFEA/BtI7/2qEqklPVkiQ8Fka
XT5sXWXeZYpUJeeVuQeFSP/NUwE5QWw++ngqwsYaQQVneqyqhmOE44kEZJD8
YS7tEFepvItO4BDdX+TGOf2QMEHXQgqyLD4btrMvyanD739YhMeWFOXgICks
O6VEA6dQBLKmDOkRWUkh3ViuCgX+wzJoV+aOJ1SMlH6wr6JogtAGIuGQGTdk
QiHTnI64BQKPq/FzFnh1MhWKw0EACnRjjM7QPSTDTB5cXBjDOPIm3ImfNc7U
hs55i1flOiBqgroy7SrMN5HMhjTAQUiHkfhc2uDJLpxd4rIcjeDP/o/hz141
WrgyfCIi35QKFwJlCvF7qHDQtiWUVBELnWEQeagAZkE/klfA0RmITNhQ9gqr
nEWSFwqO5H037Nq1CzYM4fJADH8HnfO76ZLF1yJRkPVK/MO8c+dVBph09rTO
fjhBFm+9wccdKEMUIqWFuOFVmEJE3yBuolCvs6SoJkujSE1fVYbyj3KeQmnT
GNyEfPlQjBgYGyAR5LMWko3NdJqjzAVCvduYMQW1f2RA+Wp/q5Q26jaFEY0T
9s2sylHYoM8JemCHV1fl5CqtmDFGt39UxtATl9TQVVWiLwUVMkE/y9qDhSC+
wS2C2p5NnPOKBeJeXYQsK4eJhNot+pATOk6yRBWcMiQLL4OcoGfblQsmS2sA
qMGNjueTUyTBtXOxmJZSQmcAwDe8I07OpBp+JFUhc2X1HZqnnApxVFmAvSbn
Qg+TeC8sghvA8uQMNDnsySdwrzrGWEzzSrE4g3t1GavXEh6iZIryHGXBvBvK
/fXt3E9Dl8T2D9mxW7v1GgMOOopKZgahGkXdAo4QrH3dNBmki9qFXsvpkpnX
jOI3c/FQ/M5tnZAmIHw7xgu+GU6i81qDu9floRh+6Ie+acQ1t5QCfxluCi79
tWXiXxdNLwsUlFdCe8IkwQ98D3JFNxzh64p0Z7iAIG6aN1mh7MVNyxiEbl5X
Jn5r1BNpBiKBcpmKPNtM+A1XpQ7V4ePy3gHjVoOxrVGAMhVwYwieYhdvE0I3
1CMgDGk2pYuyqB+WTGVM121Brj2deJBs0nYff1ZDPHDh9TWELM2DIjyKMyXP
RljOx6nSstxXBmuMcNbtNp4lhkz/YcQT6IdTbmKIXTQf/musyg3edqsWVPkw
gBZn+tKxGPVnFb3BUyvXI0BjiVpZgQppzFdjvM6YZ2BEcTxw+frAZXnn/9yw
l+T3WivlQtJg3MQjfpdDFOdiCtVpl2hEHtXxHjM/V3cIVnYSxsiTw96Y+3KE
AHIwMuGH+7+JdHQoSZnziNJmNo/guH5D4Ppd84HdvtTmUJ4qZKbOCX0l+nlZ
0xXHEmUB3UXmyHjpBJ9O8Sjc8KrcRgdV9TSPJj1iqKVXI9DGnkyl3VyT4FEG
I5dNvFEJd06Z+2N/g0z74stHkoI4fr8xsiunz9wkpDE0REtvtCXW6FCpQT1T
6ti/eADk623TEWPOsFLBnVl4o62NLu8z2IJBuy4GUUjHgh9dr3MaSDU3eJZw
vt2Xba10CyQp0OgBnrPY14cexzrTbrIJEh11WCcFjJpBUXpugefN1aHYm0L9
SExydh1p6BuCmN55zFgB6TIrFzOMKSs3Es00oIGo8L0x8QIf4ULoG1pKSB3f
NUnRQmlaGhaMI+P7wg+a4zWqGiMHC6svaP2P84Xc2pJRvDWR1RwwZWaJy6Or
CCNsYgp/h4Gp2IKZVYTfOAOBDZngo5jkZevIpujQ/8wTI8edMAQnJTISSIgz
ZaQe/xj5DA3SMEfWNuBKHS5/Glx6C0HNhBk9xnEVFmJGHjkCqdQwow3TDZcj
M2NZlHVWFvMkk67Ik58iTMbiKLSQX5az+6FiRlta4ChCwkw86dGSSw//bBwB
zYCZvnS78Aky3TeTW+IIQxp851aeEUd4Nsuz/qyllEx3PiJLTnnsah519HUV
ER41iyPsQinVz+kkG6iQcYgZE6mMrl61rangZpO/P/cEyclSncOb4+79FLnF
6m18J8rIWRUJXkkwOf45qg0y4r5mUJfuHOIkDTlNH8rnnyMfqMbdsvarq0lO
Wf88MDjGAarjcAaYpT+BKDuGQwlTEMSZnNZg/8l+VbaH5PfPbam1OEy0wFt2
Zmz0Lm+KpsJ5fEioiD05ouYEijZzJ4ILszZ1mvkmJbhjwZweVsKVWm4lDJ33
RdnJYaWb3aPn5GguTHgUBDjWKaAybhiP2K8cejPFA5UmuShMJXA5YkG0KwjS
hQshyEz336wEecyZNP2C2jLnzvYqSNPtGV1WE1zfpKXZ9DhTHtnIwMIv/rBL
etspBgwzC5kii7qsG9a4ugb+8iyFmTUWGPkVGWYgt+2BkabHk47NgQ65rtoi
NhGGJ/3JHcmOdwjEGDqHbPTNWh6jTx8dRN+Q+ohYEv8L8uFiuBSycP9CjXSx
DZ30BOjDYn6yEzkgCMO2CP7oY0Sbk2taOJELRQ+5+d6IfdgkbYx+A8vbNchx
UuktNbKhaSv2Is7uDpKHFdMdoU79F6Gbfbp9WaYIkxM0CcU2zJ76/6uxm78o
c/KXubyCDycbkrU3cPPxqAogwKkErSCSZxaEge1bDAb/sgZ3Uny58y2EI3pD
EdfTnB2J1UuZHrylzLk3wGRXiJga4R4k43RkcjLGCDnoshr8/9JAwHef1LLV
1MVAV9R4imaPTaI8HcbM9/9yFBhZniJTO92dq2V+JAYUmdo5uYgpsUwuOwxE
/srfL2dX1fqJDBHOwT5cI7TCoiy3umpHGZG/io/JhKkOEedVrrVDrERELpbA
P4fIXxmIvJUsQQWxJoh8qBki2RDzr0xEugIRODmJiBiZ9mR34PhDNhhu4qWg
qU4uriu1EnIHMawyMAbEyOkQmAo44BamwMzpIgUZDm+1CRepdFrE8yQki9tE
fDebeavB/1814T/NjYh5OZ4Oo5ZCQovfRfcZ8/+3huq7eRJCSRYflxVMjOL3
/xr8vrWeX4rwGGWFMvfuGHrD7MTS+mZsVp31va2GYCrWcs7mzOr9UQKB/eU1
bbzNsPi31VNLsZ9PLkBkhqr9XbHnYkv/r+z5/nqkfg/kfmp8GO33dkJqgHKi
ywrrIPhrA4K/riec1EguB4Nhu0IDdc+LkZybGYHD28o4/M1oHCy3Ahy84Wcj
SUdknR38jYHH30QGpLdO7d5JRGLCldtdtgcWuUIRmr8uQ7OzGTRyGxancH7c
1edjVErxMWt2pwHNTupKxWilKjKRhFa6hJXIkKlcSGpG4PI3ZVzeXhPTONqo
gA0b7vi6QbJ4IVQe6kB5uwHK22N0l6Agz+Wit1zUGI7re2cMFhIREauLiOws
I/K3NvVIe3mkBPkEbokKWSEFNa6YVofE3xpI/K2NhIvv4oB7DsjcNwJ3QTWL
CLy9jMA7SNNEGhyots6C8veHQj4PseqYf4fB/DtGM291ywYBAADECL7/tsz3
O22+XbpImQJ0K1QOdsaQGpY/LrWZduXTdxpMv9N2CNB9kTOgy7Dfe2fEQhUx
iky/o8z0uyLTsobsUKd9hGzkjLDPqFzKGAg4vqaZdxl8v8vmG/EC1yhtkHMn
MLD/53tO1nMvjy1Z0eadZda9Rx1oWTH2y2y/7wzPp7bJPitAQZkDhtSZBr3b
QOHdNu1ABFSRKnNyInMXgL/DEyEPXABxyyNbVox5VxmQq+wnWShEjswRJDlv
sd2xW8ZtTJfjnyv7XmUAc1XUZ1nugJgEMDpH4LW6npKBlA5/jWBGT6P8IuUO
XUWH7y4DtKuxvCyytucxEx+3OowAQtVD1s9cFWSXAdB7/P1yJgN254o3hXyG
o5InY2DJSexYQyVP6jB6EpRk0LynicT6kqZwfOib6FGxZIndDXwrpwCizA/C
XA3iPQY0783vD1Uc8iu8bo/n299sS8blVmJBu1Rdlw+8x8SjK6iQlZAgIIpm
aD4MPWm6S6Z3/LIsJkEKO1TqHAlqIPqeqEwSAadMx8Wg5abERN9yfR+DLxWT
28I/11bsO2P/fbbQ3PILiqXJG4T+LAY65Jdi3OFUSi4vhErBdt9rcE6oo0or
heWo9acPpG8I+lN/LdkMQhzLOmfQt/eWOf470iFRYQcJbhLl+FTtmEO/IC4t
PxwfXYyM5HAxqGO9z2D6fXbUcYkW9cyz3JybUc/QrjDb4MWSFNaDlr3P5NuZ
2wds+xDKNtDrYZkKv+Wky7C4yEr865odarzA5P2GwRMFOm9zHosislyoG1R7
azQFXHMVtuPLOof2Y/cZDlfHECepcJmfwEG+fIQpeU102HJEzJX64+x4xQH9
AwYkV5cfielVMn8e/B1t/JLjGXyckh5nKyeq1HDyHyijs5tCo5IRMFYEydTC
EfRHMV7JLIijKtEEk5ctczS/2kBnd2RD6hizcZwdIKEfEIff/OySD6nUvK9G
SEtW71mBry5j9PcdM/1CK2hN5MRMFvr/P9Gbssw6tO8xlBRxhzFbHnLTvzdA
+nvbEtiL85pB8pwcr5xn9SQNkDlLAPlFWEJi0mNw3r27jNAHo+A0TWhNnAgc
XrrlaUnOUwRNboh8XJlFNPdBA5VrbBRldQA6gjzGjVJop7ys6EBKTioEoZw+
Cm19sAzCh2wSnLunGAcpwOU53/6K6OvDMShCSS1Vu8bg/EO2nQE4AEg9w72F
6PryCAjkoV2Ixhyu85oy39eWCUBrFOk4u+Rq7ksiIvz2a0JpoF01t/Qhg/tr
o/+SDpVdBnXOZSrWsJektumSuRNs/wAx4NqHygB82HbqqdvqyuEgOwJIJTiC
F8WUgK0TyFD4l/lL8A8fNhD5cBSknIBl/0CjUB1GQBlkQacdIwvI3iRFMVjn
Mxy8ri0j9BGbJiTegiY9okfHEM2WKC22VwYwnF4XPWk21OEU+yMGWD6/SzJ4
3O7KrEQVKJCjRtYhf7j3AOUfSTQ7OEpwZLYavMFHykh91PY9bkAuNitwgGMc
wkuP8HleJFwOs/nFt8ttH8Op1B4DJk/VQOeSHMuFhmsBhRnESJjL6tkd8H1h
HY0QJNRFCxJeZk8Zvo9FQqWKoiiAzJUQZJm5ybbnR7Qsg1hut8hpw0cNtD5W
9kkYvYtTS+EMXdmeiJD7x6UFsCoOn5a+iUdcHy0D8vFIi6z/sVsXKhXGG7RY
FKoSIsbv+mv8GjExH9YFCjyaxkknlTunrYrntFkQfTw+ywUbftaF2VQT0gOj
JiJ+Qe1/N/XzHFEINx2S2WN9rIzbdWXmWOvdHRRg4C/ZxgDOMyOuYYXeRIx4
ge7jomClqkBUEM91BnSfIL+jHAurOIUL+Rq6kHFcFikIVeuJ6FxD0VhkIbKc
BvtDt9eZsHUFcXC30lpY9SmCyFEfqzk63xRpl5Ugh9YJZVGCbUeTGn9fZ1sN
CAOBRIxcaF5RgoLxDr1aF5UQNkk4sxMih9IVogMYWaQjwya8orY6zIM0U+fF
sj+OO+wl4TXDXMvT/X2glQnk+4J0lTSlv+eweL2BXHj/cXXU0n63tEyQyi89
kyRApmE+4OmRJY5IMoJr1mUSKl1KsLoalP3azAECppQP9BjJ2PKo7gAJwMlR
WaDkKZFiHkbxfSFlxh2cuhjqAMA/aYDrXw7rslzpkmH/wkagazLtgFqC6qd6
wqAFGnLcEuKtCBnSs7Dj/6SJoHMwny6bDaIgeTw2Uj7r6GnedmWdJNBzfBSr
1vxErHsNd/fpaDWcOvKzLpdKVacnBYu+n5Z7HFCMQIFbCWydbrFX+VQ5QIS3
JFZHOXs0TcTLYSpEUvpwPdlNDA2h/HV/Wwhyxm2CXq07HC8+YwC4L8YLbRDQ
UN/iVLLvcPhBZ5AfzBNEFegDW5xJ4ffj7cgB3QEBnynj+dnImYwc4Axa5w/+
HegyHMP3RC995Eqco4CcbrR27WMgXk4uWXCcF7g7LCw/W3alYI+I1NMVjCER
iV85TYaHrCES2gUtRwdMJA9IFZEZoJ8rhxtWb3cHGad7lZvydEAYluOU91fK
97mZMib9blHfpCA56n7OgPVzkVuucjOp0CJ3/oEgFUbBitDpxjASsqoNxn1E
KkhXpHahc+wjuV94hOCX9pVR3h/9v+SWNeKEMmhJuKFdMIjlOkAmQiCKpX0x
xVDmIFQL5fAGvOjXTY9loSwiTNDTiyNvIRKRNFBmC3mK8P46mQAPbh4jpTlD
+fPlJmAObvYqCrQnSUKkJgtLTuB6rBecrBSDO3Yod4s9QhWkAbKzdXfsN4D+
gu1x8RwKC3TaNvDhaVX0SkTChYVg8Vg7eqFsBC9CuShyHW1q6OjzZUBv8J0B
OK0LSLzc7okIaD8pL5Db70yAFG954eXGFxJsQwShyy4PpY2jGAdBt3EdUiDT
gHPnUMYkIKAGdfy8gTCRDzK1b0scBknRjePT4W2PcyuIAInCI4mc4a+AV94K
7lk30NQJETyOAqZnrcHfv3xpUjtJqIt7oQiYP9F3Iw9Dk8k1rrtwfIHXAlAu
p+nhN4DzPaPZa5eBhCqY3w0GzvSOKBRdtINM3M3doyvQpAI46K9TkQsIuaFN
AmSZfSdLyE4sx2jQ4TbSpjRnCPv3r0yiCc7P5IEQrsJ3YiQ7VGZ7npwk0XlY
9IjQdkc23Rf2LQkYoJZ6+II+3dQr7jhgQB3eF1MdZcfBz0JDglbcPboJXu7I
tCR7AR8WVR/wQwx8X5hnETSjbcRe2S9ro4uDBzTUPnhlG4V5m7h5mp69T28y
gECnlEAntWXBTQW502sgwBySLQ6tLrgLPwodc2NQH/L7Ont1ozgKWZzFumsn
RkHqeANQEBGcMP6/AMp75g4NK4ODOsHtO9FQ2gljh1hZlcERvB55MYAF/4Bb
cPmsiKFMPZ2fJEVB+LcUBUoBpcQJzJkv+OLMFIXEN3I3bdyQHt7QUu3QTipJ
DkioyVk/HpspXZBC8sCrgACIf3GbW0CG8AVcuLiG5roxpHA4AaQnGjlENyZc
IcgeHFOLxoYKkOhYkDgo9r9D3QgFBYJKHgvCNsd2BvsiqAALHoVJcUaLv4kV
AAw95YNyT4zeD2oNYhiqJEhFqMZSLs/DmOeN3JjSKA0ANAY9o5cryQUlZFAD
aIh0QAAYoJ0cVTOk0n1vg+H0YtG0ZYMIOGFY+OUxNWpG+NBbZ5DQaTvE30G5
iAk5cUbM9mWVBGrhIiuB4/arDsFx0ZfASYqHJ5X9AJQ9yCeCU69D03S51ckm
N5UlBCUJEYxAgNXA0bhJIJ8J9ZOB4fDjFtvQd7gPdoNUFJ+4DHHC+bQBDApf
ABmgxQdyE9UANSilb7MHQNEnNA0auCKGHWQERT3/yiglmwmAlidgLXJBb0UM
8+AXvDJILtcRALoUwH83AB7s3fEcvotrj10lE0DCVeFrBAbcDtzh+cjlymlV
WZuHTjudXZFyAcolF27xYYphE11sdCBPPNfvK1GQOv4kUJ4UDQy8+6zIX5P1
NnJife3EXIZA8MKg9zgdWb+eR1hC/eQkK9nwVPL2xuEH6g3Y0SzU8V7kG4e+
DVFTcgGzDiNx554HI9VxPAwtdcTvIS0nKll3RMTsyj1SxHRPZqL43SWhE06J
u5zNRjlMeqScIxBIsZ3D5oHsvaK8QZdlOlHp5Nl+BaXjE4JanM3qWv1q2QeC
DuDoMLuvu8+tNYHhsK05/RL+TrLsCgqTNoZePXusglyDovABzxuyaMud3TRK
f2YIh+ULAA18rEsFCQ7oPFwxezU/qAFvYmSj9KmfLFUefuQQlXMt5wYJDVQD
wsimG5PloCNfnR0dUQf1RVAOGXbVi7lxqOCsjHErDLNpQAOeOQ7iQ+YDuXMV
j2/lt6vig2ZOiRqKQoATSS+OZYJOfG2GOlFk/+ZOyJXCQNdKEzyhmXid6vs1
M32IFpzDVeOK/y6mBN1QnBN4ouMwAhDeNHR8aPblz0cDuzD/jSh/6BxG9ywB
AAKpOB9Bsw6QiPb++B2lHZf1fmNUMjIuof/iCUCY0e4DSotajbPeX4lhCsFW
KnSiUl/XEd8fZzblc24xapu5pjn6D0eDD6U0YWghfD4uBg/wJE0CwgkC+Wag
/13HhHCACym7KNKLJhKyl8eltgwt5vs4QjsBfbMW+EjBLLh9R/+302gsAQVd
4MkpxaPjfaAfvOE1YZnifMsGfs4INwDtweRAFNwEwH+Ubwu/wqPgK9xCbMJe
QkD5lg2/fWgrcUB8Vq3SNsfDv6ZhTioPg+9c3fpotYHXftT6kKp8V4E/t2SD
HKQFQmcC9AAUJK3zbUFtcAlYC+jBZEgsvquhv9jgYaLIQ6PTJOMA7nvRs0Mn
UJcgSHsQA/4G1OBxTVQfSAMEA/V+zBXhSp1//17g4d1zSfwRI9z0o9OBPrjU
5Nx4H4wbIYvvA5N41hnu9zT0/ni9QWqUkbpp/rr5sY+xAHMrJTtD7YBKAGkw
QOBDJUAXwEc97eyUBed3BhF5CMOV3W4NLFw197Sz1oBQENyPyg92GH9Pew+/
IlilnAYJOAu/VUvgl31KlXJBerOIqGpeUf1+SjccC9DzQPZBCSwTAANoZ46n
RuIhCzwC/ZmMagaenNZ/PxC/a1ap/kFMaiBnp75EMnAEDbA8AOh0gEgGTeAS
z+CeyZiw4Xan8d/XeHPiGOzVU72YGKqfArktdgzZQ9DA1Hc8YFpBD74GAYDV
D4TdRgBcAhuQACQB4Ux5pQLZeBJfw2aOZinkDEh2u8VghVBELkeC9EEUM75y
a9gmHHLdsN4EH19BcptHISbcB/fvREUMoFm0gW4QB45q6ONs6I88RxAmdA4t
wdMuiuYFgvDBV35lnRsyo39Hndv24beT4lv+uJXeE855dOVqQaIxqBPuZaA7
dwRC92kKIWncx1axOI5N0Iw7VIzIA9uKvC5D5WHFT6JNLtfqTHu2WXXAE8R1
Rxk/J5OfStUKVgoy0Qwke4rnGFJhjkGOn+YJzyu23Rc+Jrmt/VBj2BJacOH/
lOhJ2CxBr58RSVu1qZ6M6RyodqXHCY8g0AwdHY+OPFp99lnst/zEQmjN4sGH
20mpr6yzaNPprZhqCrJYkgrY9U/koZ1QCHCdDEbwKpZHac0IU0ihseUlVnjV
yNCkQiuT9KYy+raGBvfjzFLb6tts+fJUuP0J4doT0mvq28cb963Eb2rZ8WTt
E/XtWS3/1yT9uHBt2Sz/dlzax+z8Np/oKwptnmA1P1Grpy9T18p5Evw4J8Ct
ro13e/RO6sf+he/D9379dzcZ4liZdnz6Bw2fuF30so+ekSNc6+2VsZd/b/jE
bVkvveR09O0Hwvsf1MqA2Nf3Wz0n+aJVm8nQO7Z7h/GtfPok6sCq1KpyVlhh
leJujUCtx8VbMNTlac27XE2RDsAmDPh5eYUkSjTjM7VFpfG17nXCYLFr9Dpp
E1140Uft5fwsfXQ0lIjmFkLil3WGd5rhw+81U+9ordx7PIc35+RPtes5crw4
fYSMTfGlqO0m1Baw8OKeNinKmg/6vWpBfxf09y6nvzeP9sC+uX6mFQDI0iwG
SXIwwW0o1QE3GRf++jRBZQGSvvO5n75GmLi0onCfVVKQMWCiU8AnDWMc2Hg3
VUnRwfYOddBL6Av6kmpleAVyL6qR52BQpLKb4Nk3wBgYYHjQJh2tugw5hiZm
xXhJipRn8KKnLujggg7eKTp4qLknlJrGWsi9yxS9s72yLoel3ZPp3Z0qecM5
K48MRJM18hQSkqIY3jpBSqYExzRO2zSy7iTccn8cJ6dSm8gjzDjRvZ/zdyDG
a6k/gmdTh7vyjbuhBfP18gXU0sjN6Vjih7ab6djwMk9RSjUKwE6m8bmxgtvC
F1Zrcjemv13Q9AVNv0tregOvbo1TJigGyR40MYWFNr65JeHy9u3RdPAN6x5f
T1bzTOUspxpcWPQzXceaPavMbOMR1ofCsHL2NTsZXB1oqtkga4SFLzXUNihi
ps1TdRxMmrCNVtvpUrZlwG+LJrrnQlFhQWUXVHZ+qezNzf1sXoUaRHBTaDgI
qf1qrK9M4DUH6CkihjsO1z0BUyOlnKYgPNRqprhdWzBc6JN3W4FqVsd1DGvB
IlmQeqHLNddEdU+GswcqC58lWnfKPiAU+UwBjwj0lsaO9Do9G7jGrnVBSxe0
9E7T0tybDrQgU5YHDhURPeoQqdsFHB5Z5MIVW4EsHcvrw8fq9HWaiAutj9bR
A1UYMo6uus28NNaklyzI+/JRPxsQRpZTwqySn1UN69uZwNjq19yJFDDS3nJB
Cxe08NhrYe4Np009DCF7u+xiRNi+m6mAofnt6d8hVm/P7psrDSyWwPoGgrWj
g6aX+5qTSGkQUVLo4dJLPglS0sXpmi5mFoRlL02CcNDskc5vQekWlG7OlS73
df1c7YKa9cPfMujWLgtYrisliRaXKj7iulUs7jfjmRcmSOUP8UKl4m3V0z9u
RaHFGo5OsoRm1GXfQWGUxeFbi2h7ZDoU3UwwehqMJXZHs1D2ySPt7FcqF5R1
QVnnrbLmvjUP6Uk4r6piBTjoVpqWh8tT8bKgRIyYujXReXitbvozBJ5Botfb
O0rSjWpCQU0XN8KX7a1ciUpXwolBYDbLG6Cd1jOdNV2mYghQ2M6lcAiBtUeY
l/EVeq+rvBUmPc3ZZFJzj8WidLl3AW4xbzvG1P6Cii+o+H8xFT+U+XFV5r4m
D60iC7EW9loL8IT+Kx0M1a7v5GwNW6+de0wXoukFxWCjribTYrAm1g9K8q2V
eYuJFlVN59WBkk2j0hPDtr0I0tqoEtb9CW3ua5nJ+0YvluyzndHluorapKFV
2nEu6NSCTs1Up3JPZU2xpfG1tlxuLfmYMrUvU5LCSSlC/ungwRyQqTVyuSJK
7sqrnwtKV1TvpmfByJFMIRzztbxkY61C7qe7QxLN7GlbnSg8AsisI4Smi92m
CuvvU9tFajQykjidjO/wAdv2qiB7hjRrP3jJVQv6vKDPd3l9vrmhhzY3iaUa
fYot80KN5BGG4gw7eazdSDOzu5OJzLHMF2/IY9LUUOZnjiF+84awJphBrO1I
W6r9zLDFAl0X2C0USnijcZxHxObYpg2K9TfNKF0mHRwFgQvnAtb5SqdE1Pox
n85yWPh+4fuF7++S39PrhJN1/vQGGe8BOQEPD3699RP+POfO0+gm5LT84D3l
g9m4559aP+FPSOw8VTzI9HDK6WJf9uCh1k/4wy/57cZxBckwENyLaeR0Zbt8
8Gutn6CuNrr/iSzI01SoV2XrKeiTHJYwmdWMeZDmElxc+R41r/YgWsXwYZhs
dERD3/2pGgxjCdWiu2rPPY4+8OLqBcjaQrZKKluaKhZSFT4VQDJgVUH1QN9R
imtHCAFZIMhWvFqr460+C3s5rWLydNJkaTxsHQ3wgQV0atA5NVUhuYhkxAK2
Zltgs10gIrX/HgOg1o2U2K3sVbjlzieadDBlTi6IJYMNNzpfvQDhTCFU/kzW
+VogWd4laG1JOkC0HDG+u6Z++rdZp+YiobhaQFd1C7XRBps7r16AbRzY2itd
XSVV20kddrcY0UK0Nd26m2JTM9zf9oEFbIrYnDqm+ozecWIdHZLCk5/8BD+8
qFX7dhue+/bbfFpryn9NGNpnVZNEhR5ZmHYiEgBGQBec0dWykW3az9Ut7y9s
dtj934bT01LRNhhVFE560A4mDCJuYcU1Rn8yzyrMtHSLjy/K5iwzvstLsK/5
78bwA6Wgs7KE73Tka8Cy+XShYIXFhXqrfShV3EJd6sX/JvojurTXZsn6hV2T
mPla0Q8s4DmreFKo4domm2eccBz5xjTLfrznm8zsJyt6cp6mzg6rE0h5RVo6
V288HkGYrj3RB9dkxSOvMy4gNRopUi2rQm8t2bEWv1hJnuXak4qarN/78WV+
POmBKmaGMuqHo0IarPOh7xsuPR1z0dIHF9CbAXqUbVnzUU2b4IUUzeetZqdl
mt+yZu3MoloEJ2m30aTejBqkOb9LLV3JuDpda42/Y99MHj7HE3AZfWsl/3WP
f3bM56jbeJ/6MU+mfRe+X/h+Jt97s6ob/xYONbEfWTd+c9bonJe0mZlWK8Iu
HKsli6bz3Xdp2sX5UT73Zo02bAovmIV2LXrX1Xw3hoS/ObsKs352FWY8Mc+t
wsyGYC0KZ0MRj4HC+BcrUwJhvZC1n259SKi2R85Wofa8sdrPjii1RjoPb6UK
3SIhKcHtWrUWffQNWtfwfSLVKitFc3jXtmq3EaznGiz1mDE1FTwOyf88xxp3
/ljtN4KmsMJ4XmpcEOMsa1y7dueFxv2Cd3XPcP+zT+kTm1nNczgLxwl0ZQMd
fS3yNhudipUh8oUDE7OkUSNITLlqZwjcgTSE7HhES8v66YI8UoXaJQmt2Fg7
fi+tebHXlxUOppi53t18Zyj72jtD2cfTxfmk7DNQwxZszMCk5ruyP1Y6+MIr
AazzQxrdel7zWwsn7xXONVln69V08/4KLRSmcgtkWPwNwV3SnIwL7BYWtyLj
3Pq7C+9EaEDdP8+JVpw/V1pRiN3HWiss/tppRaGFeaIVj5MuI/0qa1wugWl0
69rmt/IbM9RpdLW+oVHDBT06zu7vfH23FFaj/rIo6Vs43u5vvSHu4eUWGP/T
nEjuvBlLrtZ+50ByBdxbSK4g+zmTHA3HNrUy7cI5kIW727kNS5JDAMbzo6rt
FsIcdlkQ5vTMuvSNLLe7XD8beN88h7JcOxuyLIhhLmVZEEM7WRYUYi5l2cw8
VZwe0UW7qK7uXmpcLofIdmnOCJGaJwzYr90dp1+7pULnzK8ao7XLLkcY6oyk
OsJQm0l1PEOdkVTrZNGu3zr9mEuptjfZYc8thDu8u4XJhmxgoF2Lu1rYUjlz
wY9KvlqRE0SpNhjgsRbCCRK2W8qWqY4m7HxqTr+EVo5fmxHWwhe0VpcWvmA8
dRlx2MuxVpeHz5q61LV0p6rLvMsLeMghL1uHZHpdHLlKvZ2rb9jodEMaWRPV
OuN2YWC93chUQxpYVaw9Ve3AaeFZ5jjLaKoj594FdGTdbOhIoZFjryPzrgrA
qiKR0ecP43OelKpwwjMaWq5t1uh0QxrZE8hhY2v4sqVW7XBaVwfzXa+w0JTt
hpK8U9WjINl28BV07JiqR7Ky406s4ltUbz9AFjR6y8hUe6KaNZlR9GjDGber
3hYOXywg8Ci+LOJFeMXlXaPOX+Bs/byT7WNmLNv1x1i2ifkWDsEeMUNbvjWb
1y7fak3OPMIQRt351g26Ob9hkxY56wwZtJgIHQ1Ts4Yt4bIlhFu3x31qqqzV
Aqxs2n5WlCKblG6nFJZDvxOVYv1cKUW71OjYKUUyaz/QnsddLax+GrR/5Nz2
jxQgfgS3ZO/0m27f0Xn1LS6y6VhHT8mUrdFJd61oW9u+lwJuTK+KR+7qAfs9
zWPQe/Mx0aa17R8poHLhPNGm9cdEm85t38udqk20FrG8ryZdLznV8L7yPhq7
Pclkz7jPnKoiDBc17KtJG6PosNb+W4WnyZY4NW2vMX2CR+u+pnIs734Zr73y
bpfx9CIU+O5kvVjbUo6jaGrb3rHWCxoK1e37XVLz3bqa7xYbrFukZnMQXmSL
a5q+0H5kUcMes1F4J+a+slY0XUPC+oZtTLWiqZ8IrIkE6jbg1j23fhYkd8Ex
l9z5syC5dfNEcrQT1jVi/ZhPRwK4G92Pc/Bjn3HtQWPd/ks1AI2xu3jS6Omq
ue+CmLm46HRnZ4upI2sCHU6H39z6ni5+WzbLvx2X9jE7v80n+nr47d3HVmbz
SRbzUyr19PWEuf2i+98x3mvYNWzwCYHGJ6TX1LePN+47JVx71zxgp0hmPRMW
O4mQZnsbVD90GOPVmQrJY9tnwu5sTxspJ9Lpnnzklpt3bfv7DScfvu1mEcHp
JToX7a52r9lb7XV/TSlY5o42SuLeuvPqJ59/8LvXeR0LtN3Dfwu6LtlZ7VS0
EXyPY585B/PujtA+OqO3Gjzy4Deu/cnUbT8FKndt/egGTWtv6mh19PCKagVu
2HlJdYl7boAW3nks6Vx+9OiRO1Z+vQcyvrTxk6dm8t61oQLxnUMrq5W+dtRv
jumMVkVFWum5o6sOTYGU21cf6E9VR49GWv27pHrQTacWw38bd1Q7GmM6u3R+
c8OnTnJETB3tXHDkho9ndK44XB1mOrdtqjbNBNbWy1i1vffesfX6JzI1f7Ln
nZdFcu/ubnBYf33DvvvghqNT1dTyI9URYV4tsJ05sU/f85XtTOwNW99yRobt
/svfs5pvWL2/2t/WDcxcFQS5fUj6x1M/nAA1/7nx7dPLqyNHhN86wTfzysNv
fBGUBXe9d9O//NL0ONjOgFgqhn9n9TdOdMCtPNRZU+3dm9G5odq1q1px2NF5
ePXhFdMtsZ2565LkfmrDNx/GZvbmwy/+7Uju3Qj86vDhO7a8uifVodMY29kl
9sVb//1lTMdX9jz9/hm2X9196f34hkt3/OBPM2znOvp7Qvvr91R7mI47tj6v
BxCFxtIOyj8++rxnsiYcXHNk1aJjnAg4w7pj6g4v2w27OlDNjMy+U9gNuzwz
w7sRdDsFZGd7Wj6mdLQ9/Eur//NUR+6qg50d1caNkdrlUV9v3/XEvgxhHY3s
nJP59o3/+WtsVgcOP/LnMjIRDr5y+Pz7s8f64813PFOQqQZQczsD2dXUb95a
bWX8/mDPdS/PqN9ZXXJJtX6Pu+FfV9x+glMJDfIxJxuuicl+/+X7HpeRvbna
urW6/IpO4ssy0MtFovEq+D1NJ8zutqmfTLq01meGdO9xUYdvO3TqJNO5dXO1
2dd8HZ3lishMCfTV0O4XVv/4zJCuahR7Xzp61qnstnDnYg1gXcmwrt46qejo
7dhYbeR8idK9BKjeWzbf+lQGadXB6mAkpa6m2IqGTduqbdzFhl3VrowGxBl5
QwbHZarJPkZY/MQVVx69fFO1bZuAmTZAwqbAOGvJktDuPtXgALceWV4tx627
L6ouQoNpbk9t7llfrXd5x3DMhIdqaPVP9Pevrlwm+OMV356ojk7pEEEgwclK
DCxaqUHoMt9aHVrZgU3mDUpTvnJLtWXJSEIlCdWuDZ391erVol0f8QYgfxjM
NnAYYSDKBA+gV6HhzVs7R6upKRhobJuG/Li4t1qzZtfmQxs6LlkdXhtqbbCz
zNNoJhJBupA7/O6SaudO3Vcf3FX7VwdPtuXK6kp/grligt6lw4J3djsU49Zq
8+ZO1uq2atMmfMtBCWonWs2o9o0PEpEOiTpcrViRqh8lKRurHTvQQrVxR8dE
aHGRgwFKEqGTnZcYYqBOhrjsd53s2Bg6wZjW6KTEkBY5bnKxI/RF4Qpcgtvq
8IpOKFQMQVtW5kOWLKrV+13bLpwqPgZQU8fHMNORqmrLoyu6gAtwNrv8Vmez
uTx83aLreMKDWzcHqJC6plD1Ah89oaqwSil0tOOg150EeQxv4k6cuuadFBjq
k991/27d9vxlymH2lTCGT3KV4+CqatWyMhNQPvaxt236y8krqssvx+gya9vZ
2/DBH13yjq6MSEtN2mNdPC1RUVxNdKjr7BsP7L4o4IMELOBjmTWFYq4rcUEh
oxvgw1KgoJzpI6rGon1GNzUtc0AKWAndfTT9tQ2fP0X23zmuTKscE1HjaYMr
q0OHPnXlrofJXjsjCZ2UMgRruArFVmMuGhPJqhH81nKDYD/uGUB3qpAFVRVi
x/pqz56sTSlixMvlZZqpaSm3fz78kPviJmfvumnpWhETa8iVArtu12vOR5tO
bXWb0prw0EhyezJhOXj521dN4C5v2UFL3c8fRdeFWHLy0W/dLIE5vkh9ku3c
sOGmM6gLRAyri0lIeHd10UWggf0dnncjkRqO7kb2TGnNN1befm9nH1IAP/Yk
Bcc1/HxuxxsfRLYZauP4WPruu5jk5BX/vn34zHugGfbEkpWe9FvfOfSQE6kf
l/Tn/RQ4SlKw9+16y8UEoM/XJIC3e/I4vID7g6uPrpIhpmMJivqRmdkHN3/x
0dSPT+PyfnpXVlu2MIpXb/7SY4k7N/RqzN2kTIw+ctFtF7LMYpZ3Ry60t+1/
9W9Sd1dcXl0eurOMyBeQJlmVgMQXjj70TBZadCYEHy4wEbiRdRcNdO5W5ueE
3K49mQVp3ebv5/iDLt+66QdPJrZWHqoONWCrJ5OnN+743LOoO58FGt3hC0bx
LVtveCp1B89hdFdgclKqyp9tvu0ZYAJ6Ei3gh/5GV2Gi7lCElMOezgllaWnH
C50G6bFATB0gtEgzZ9eO/4sOMkZ87d4Os6RwLmcmLfmDK+94uZVxWuZ091wR
QpilprdUV17JsFy6+6t/aiUHx48kXs7nhLjrXY8r7SH/QIhjEDt3L1MrY22o
XJDTR7Eb+ZMGqwZeP9vQZWfspOHKaxNupBAFmMUsi0bf2iTmAflWHlwgbMMR
SaVIUgE467uPInRK1wJc3k5WGcYiZELSk0BPyxT3pZ1AHyD3TjHG/meuOGjA
pr4bhdeX1gIhOWdT9AS3+ofAFlSbM2Pnt0kRMQQIDzmfp7Js3/EkyxedIyVg
S0T89p19n24cOggUddGpTAj2rqnWeLW0hwkkHg3Jnmr9+kw8/073Cg8HIDCD
yFoLxbh7kZ2+1kWHXdGB3xItjfuDJjojttzq3Uw2nbr4Se++HJ2CZaci1D80
Mu3fvzRuSsYrwCwtGRZzD0M9/eT1pPSwaOZItXx5Gnu9rkzBr3Og4kyHPS0a
iX1krPmu+tJ3gEL46rIlfM8/5KYBCFo4ITe4tEazlglSxzJ5huq4dKYoU+o4
DJ8rXx5wcrScdI1nuaetU/Uy/TePt8x1gJQOh/cs8julxS9zUPf/qDrT8rtD
1cqV+Fum3G7gVyPbFbkXAKVgC5YQgzW93zAUPipfUZCwwgMHLE40+KPO2BWw
IkE8aBeJQNKZjLEQtPRvSQZ+4igGkxFzqBTfGjFk00DGgKsakI4lL2pbhwjh
ygJe3h6rCq6MWUjS7NEsSA2C03XP/Yf7ztUpYP7FCGC5kJN8u9RWYFWQP0Bs
htnq8LSiTC21qv09zcyhQfgE7QN72rusKBMsE2boHDUNdYTexuHAkVz2SLhG
Ej/Qy1dwFRAXB76+StqFJnmTqcLGWZ2WnVRkbKB9BK6Cq2Ie8C3freeYviA0
WIFdOyeVOb6XtwEJP8jQPicOC3yfAxgtgk0cM1QVNM7Sbct2qF8pG44HcvQb
hUn9sl8FGMw3hGq59nuOYnsgiyf8qBB0PnD+l9ztMjzaPjv3KrI90EqhJO1C
a9LvN0lMyv06uEh0wVXVSPveqXLgEdZTmRyEhOybUdjSEeMq4LJyJMtwfbcD
zuPwD4kSrsJii0nEN1KZs9wdWvApRiioMW6iQs+H4SqYKlrZ18mQVXrFuKlI
YUnd9zytAwWuytzPi13gjhmr1BKqCg9aRjaS8Z6s02DOiRhApo/7wVuYiSDk
dSaukE+mCizHdh/fTFYEBB/DpouC9xsup2ViznJBRpMUdO5dZtx3n4092NoQ
7IOqfyNKWY6BCCQdnu5dZHZKpoucEqFVaHqYhPF+ZCCNjgNHybBss+4KAetB
s/Cb0xdVu3ezx2K8pRdy+ujaUQMrchk8VvBxKTbcQ9bGbMBPUPxJ4lhsNyP9
Pja+oge3HAdOmZFwiY1lAicVye/pOOMe+Lb/Dm1zCAPiVig5yeTAif2+vhU5
hYKKpi/od5E9YazrMY+iT9I56PF9DY26b7xVRgtqGkqFXCrO0nu3ETI6GDue
vU/ZQn7aa0eW7sLQhvrIlgBH5Ls4FPsO4HRzjIGjxZHvL8kOUSclK2N/x+bg
mv+aexh/0n4z7UbvO4q9pP6O7JG6094tdtfpQmYYUDmvR4AnYfOny9xpAqk7
7c1kd/gbXDtZEp5cLGObGM2nTiA5BVWRy3X8VZuoiVyb4eUtbk+m+KGcu5Jl
UuC5KfoMGfQKqfJPlxmmvmFo0qypIT34l31rl1tw8DUM68lSakFnKbJTnbfR
I3KeHknsaIY1RBPRRdrp+o3+OczKS0SYZqWpJxtcryTclIuYsDmTnUpEXJ5n
a+nJZa5X1roLnZa6vr9cg8hEaljcXA3X0nPgd0PWbhJNcM35FCs+PaLr06O5
1rXEbnQVMWOKLCdwuEGMrTIry9xqyVCPrn4WCm2iR+08lJ90k/Mry3yeYpue
9IsYasN1ufpJN7caKLDF0Cl5SAph3zfdQ0YED4/mhZx0tS+jf/Sm64HeEe2B
w2tEcCE9u2JC0yzdC7HKYXcKDmtVdfAgP62TiLiBcPS+7ZlRqXMSmRzA1oKG
qmES5yQZrONt/xZbN/22hala4u9n+zKVUMUFeDflagT9iDCPtwF6PKr1MIao
hk5gBijmaDfZzr2wu3SW98xmJ+pJFvTYqFsTRA549pBAh36MRT0YmNwvcDYn
24BrWZJeGoGFSJS165CCEEtgkQccfIiCdoIz2QpsvXaQX2LkSP8Z/1Ays0x0
63kLR/c/pt9B0+CF6BFZj4WlaGnMJs0ZTiMToBtIZegGfOD5jSVnKE/dz4a9
0RYeZkG99mlKs6C9CS8ns0YjRL1cYgIv1bWdqkZ+VsnWcYlXrIkcAG5Ikq1Z
Kiycy0Bvt8tukc2AW6rbV9kN178wRGYVULOvjoEv5MzFBCfzrK6DMbY2j6T8
lLp4lWmFo/zzOVewV6HvMmyfEroaa/Mo7VUz35000FzY8StZhOaGKYKLgt5r
J9AY/5mQrxNDahPORKqIJF/OfsN5FgolMxHCkNTFzIXx8pm4+e3+uQKIcCX9
Z1jx7hO4XtgZQKHMMAK4zvsHK263X7oZ+T9rhCwfOrucPcQEaL8dywpLgiPh
Y9kAv11XvZxDk55tmKL0jVcuu78c9f9QE9IKHnQs7FvQbocsl8jEyVCBvJzC
E5mCNCFkDW2RL7w2Ur3MoKepNyfofS7WQ/YMDwRK4X0KfvJnmwI8Jok6NkkS
IXjYHZQAHqZnB4UMzBapS+G9fpHMB/gbZK0PENE2iTDnHfTgs/4LY2a6p5fz
RGhbJC1NCdaGUk+wqzIXVuL/rA1voy3I7d6PkTGhSelF1YU+JOH/C7aPe4AC
+ViQrW1IbGxCzSXuVrzBVq4C4mNtXW5xEHHcunxqGnNc2Z/nIKxh0qej0geP
3rcdqJbHsWaqJ3dAYAjbzYPOwWrVqjiO+pRvJ5mM69v+9QFacE13bfN5CaPO
e8240fDyoNqqK3wq/Q7lWjBFj0hhw4giL013do/NhIaRKDInMz6VfudWjQ7V
rpcKly0pE8joXeCjT/jsafq1zyFiEP/ljLp7em9uRkg7e7bDOzXQP3rreBvC
V9mOx7CFtKbwSXJwal6tZ/u9UzX6l2kCCuprVgSob71+upeywuob+96nOy1E
FTnkdUUs0akmiOlUQXY0wxqing2o6/v6nC6RBenN6KsMhk/zt+qEifMoaxT9
iVx3gXgvarrM1laVGT7NhkjZNtuv6/u6qH7Z+pBCtbCGa1mdE7rFw1a0HI5C
+oTtNplYpaWjudbVtZ4RQ2TH2tX18mbA+WllbrUPopwDyhMqrgLkLI737GZO
K7N6ui0R18ln/HeY7oZ344BaMBuLrdNt6GXrPIKB4UBfe7nc8fhoFnT8oUAG
vYz5Mn5+PIoxONXCZOPpZZ40xpOxVb8SvK47VQBlk7aZ7Ipeta8nBUHlEgDG
qR+KsHKyEci7HtQaI9I9rJPgW1EspaYxQIaVxS0Zn7IdcGy6RLx8Ar1R/iVn
nAGd6+QjsfcwY9i3kT+9zJOdw/dcoVdHpo9EW4N3cX8NUjkx6jarTjseWOus
zbz7w/l3GMoXUu+fM1TygXVeuiYRuJYAVdUz6lnu7kPTsecS11olqCG9i0b2
XXDWWsYPLHNdkLGZd1KnMhGAJ+/bTrCG4TNqxWzW5D9EGIlEACs4DTFjatFi
+IyUTPzD2IdaMFdAX2MTVBj5PHAkw3IZiJCwLIKHQ2WuSelKU71ky2BYt1fD
taa1n8MZ6tfUM++hZL3r5/hh/cxIrm1aWVPJeLAWw2UluPxBQkssW4LPYZqV
mZxhcH2mrZLklFErhr+Pp5V80HYwhqDR5Bllls+03Y44cSXNRKhj7WBYKZWB
1LBqC7iLiJDGb+pRDiEQIqhHuUofTY5mVfsa18nHIr/oyJWJC+I70+DpLKKR
zkZK0qqP+qZ5UbWL2X3bl2VHTF+me5BRG4RRGgLEQhQT4S0TSA3xkk8IhM58
k2uZOzKA6fAzmnjJLgijcKsXe8tO5DQuOjzLoH91yipPLxPGesW3bF3jf1aZ
hdU509iOwwZnBfq/izqFkOjSxEnbzmvYsoNsTZR/n+8WF3gRP3er08PR/GqE
SGQyxIeDbN5HvFGI55VqheCz2mD5bH+r3OkrJCln9sLc/fvyiCR8v7b11WWG
z7b9CVuqFeLfG/VXxqSBLeMahqX3xUiI81BrrP8em6CB7cdHM6wnRgc5oCHE
vyelS0lYT9aeXWZYy2WQI+lOwxCd8ukY7CUKEj67zPCDbLmMNChfxcsWJQ9s
N2hx/SBbOKwoVt33Ktux0CM6L7O57hbEDJJpaoln6mJmcVUOB2/VLoUt14Ua
ka2uFTQfJsa7tiXLejZWDcrYKawOXWUs1wo63fZaEjDyzDoBK27Pzm/FcOr/
b+9LwG2rijNP3zPc4Y2CQtKTpm2/JN1tNIKKooIz2g4ICWIGxSlRcSA4kygq
4sggdBTlGZ/GAQcQHElABRGHCEGFR4hPW0nbphPz2WbqkM98X26fv1ZVrVq1
au2zz733PR/Jle9e7ztn772q/pprDZtBLuYV6fcltXSN5/Au/xdDVkmzDqul
q6twUzZAFa5uYm5I8LBAaQ+LL7WPLjYxN+R0r7ZBHp7u8Fu6OfGAuy9Xjn+i
NiPkBxHxh8eyS8vENG//ZIz3YTNJ9ndwGia7SPLWyE/EZnB4m2SPN4duKW6K
Exg/USq6ZD4d9N+7FBLuyDPjRaGsIH0w8Ya2jZ6ItBg7tIite8eSEEfmSiY7
IkYDktQQ4hHtFmg88vCZrPq0lgcOm/cX8S2uyJzEQrx3m9uGEMOA/oH0nW3e
Q48WS0mJE+tg+D7xHZIZRA2S92dnDydvg/qgkVFEXN+nU8Y2qutB6x8onb3E
vsAD4qn3nsl1LOaCs/L0tffFsDRkfZ821w1Zh1H9fTEiDVl3cH3f2NkKfO6I
IBr7vQkRq/g6Z96QdcT1fTtl7aegLNde+xuyvs9MrhveFx6qPAbmvbVbM4Hd
y/i+bW5jGZOHKg/xeG+tVXBrDQF3sHpELGAahBd1QXISccB7wylHbB0RC5Ge
zktu7Gl0GIlB8wX5fWey4KVlEiBqLmiMb2T0R7TpD3MTfjTKUt/Y9xlhB/H3
i/Hn3EQO/6Z/0agfisGPiL9fDD4/mo4hnUoz6xQ/2mfwR8wkPraTIubq6Xi/
l0aHpDVdXYoFcr82T+ivyojGF8IrVBHgXWnEPHuWR/Ry6mD1/l2OsKOoe2c2
VHhDrB3Alw0bili+f0mriLHL/fOg9lQYOKvFWMD3C7kezhawngNt3f+u2e4/
FLSrdI6oaTWC1kOirft/Z+z+G62wI3SoiuuGrLuSqwvjCNAlZsfw/TrFHC56
ubAWA/SrS8xxdXdkp5jDpuM7akGY2OC3oh0Z6PWRXRLWUxwL/aGR395hcg1Z
379t1+ntz9UCN36Q9B8LWb89trxA1vg7Yv0BnbK2QV2rIx7UTjFD7g1ZHzmT
YU+mWdYgB8BYuKvmI4spnMLqYDmWNoWDvIPbDOvbjw3HPZPfmFAa6T2ZQWTw
zm14nB4Q8PbAWpy8/1GfjsgkOZRRFi+3B7T5eGBMDw3y+xlFzXImHXx3MBHu
CkjZZrnptJHqzOQgpoiTEiRTgInOk6VxdsdsPzDg4EExRfxoWW6Uj3DdHXP8
wDYHD4qJWeoIDOdnxnSCc6kDiA7GPKE8rG1Ya2g4P0tM06zlWE1n8hsTGgQH
3SJ1XlZ6gAGzovMS08e+qfyggOWjYlma4CDJhTaNaeS3cPzh4ICLkHouxd7n
QW3Wj+oUdbj05C1lXADn2dQJRB9lBh2sW1qxcnmpDg66EJVH9nsGnbOUMFNx
Pfvshupt9rIJQlcVp1X1Y8dFp+qEc13pcKmqNbYUi+MoZWX2yQ7z83B0jJ8I
1KxELQ9lPCfdZ8/zMbHLC/YoL461nfkwLPbpj3vy5m0x0DLdfXp25tu2ukyj
NhZ3ZnBt50KsjTNv68yZzWPUX51TWq5YdSPZqAS2nhMj5mTuwRxq4tKEjq+e
JsvQOnUOSWzF0QvGJfoFYkcrc+s5NGJtXNkTiEynQsSSZzvOrp0EPLKI2C0w
PDqWV68DGGTbinUriwGLC54XW0thpox5gVrlo2rw+6zYGTZ6Ig924tm3TPi+
l0mlys25Z2XXAP0rXKJkR64n2ZBKr32Ok7kZekhMBF2WjufWHXiUQTPRtncG
iXr49y21YduUqYUfA9R0NN5SrXO498Ee4vk2Euurj/cU7Cx0WPPYJDCemi3Z
ArLDwO83pS+Klewye+ZWctGj13CkxDpZ8XbArMCQy1WLb26zYl22RpG1nzHh
bRqKNJOdo2MrWMouSHytLsX53dgQegtiA8n2NIiLnIItma8u1f3dWgcR6Y5e
B+hX/ICpXy6ulj10jnpzSMND08P8jAZXgUif4tbx6xJWEEVaNrOqNZxVSCwG
faha+nynTKyLIW+cTJvdd6EdaeYF/9apM36FJ0JcddLqQ+Z0XU7NErZLOXfZ
FfKUWXpYek7cO4hXBJ6Z1U/kB+thFPz6vjVJaB2cNIzF92uNcHTlM5J7CKhR
cz10TtE4V5zwWVQGsPm3rWrMjU/mGeSw4/JaBsB1zBstgIf1lctGsAGVstnc
ckyqZSMuhONCq5LM3Md0LRYR8tQmPw8vzaVM2OMJgzPSd37iPmhK4UlZLHOf
2TUnD35uhgG28w9li+k1LAE3/0AurWEyD4sF0+u4iS2cRPjGRmX4D+80lbBj
9RoG381kNEzl4U4m+4L8ru5w3PtiHmx5a3pfvn56eCyJuQ6aWJZb3PlYFUuP
iEOBSbdgCfKSH3r4q2Ord1aC8IQpcC+RfcqGV+p0CGE6gjZXg6ucCZ9eMglG
cOlybHSVWPqejSHHZNkmRW3qj8ju16bx5i3oJfEsBZmwkaVqgV0gzD5Cie97
GMY8VHfOlxSLGizpfp8Ck47XRFhzeITHvasVzK+HbqcejxxUqYeWralDMJRt
2ZTQBloNEWWiupq6famxZ1XrhFlqIFHJr282aZT8FUQn+xE6qkPN22nUN8b6
80gdIU8CHJMu9XnxSkYxTZG5R/uU/JFt4o+JhcUysRmvJvE8iN991kG/r7/4
6dBImb/RlUFvjPGfzYJlGmu8eRCbaej0wm8nAOGv0D2hhVsrNa0g4piArUeV
YpFlzZKURZ1xGva07Gl0F8RKTT224R/j+eX9yNlPJ0U/0hPlgVuuPYG28l+e
CbY5tCnLqiZBpuusngR5QJfj2GYAKjIRyKZRTDUwGhaxrKsT7erdX/Ckg2E5
yiQn6lXOl6d8XsZxza3yXa6RwM7KRzksN4DwR8dSW65xVXNmmu2MiClgffb3
qD6YRyc6LfQk3eYEcNqBuuherZcmUKqmOZJ0p7/iOrsxXw/htrGDCT0mwE7/
USZhCPeNcorjjVKoAv4eTL890Wkkv02WMc1CooOe8r70RzExUYLhmjn40Qr7
Jek7uw8eDlVChwu4NAqtOzt3AwgfGSv1SAUeT9dPMc22TEAnJ1B2zEJlmhnz
Xwx0ZjHI7PK2cFYOe+AM5oE450RwQvmbuuGGQNrlygQC4OUOGWUqz5uHPAth
XC0OJTCkhc2ZvMLitCxuRIwKxMMDKkeBoO+uFvaY+Mk200X+cBu9Yyf1gEQJ
zBZkyOC/q2B+d61U+F13lgqITSIDPFbg+HF7pqJDr8QX2WLtHp4Y+2QOj1IL
U5qhS9Kl2nSZ4WOUkkh3epHgH2lJQCahO/pNz8pLclAh0vZuZUS8l5Lz2Ngb
rGQw0PxI77DFZ6en621SATQzIm0/NYMEX9auZGuCs4HBFyT4kvoxHoyuGGt1
9XBPCRZ22ZpkpXbZmgek8qes4Vdi9/BYJbAriHZR1hlt/BoFSx4UWufVVupn
YZkxPasXiFFD5L5K6uNqg0eQl8mXaN3SC9gsOVtBwEdQXyl1EyIBpt049iLO
h1mTosYb0Z6f7pO0BBdB5EyhfWcYVPexMYodWf/jYq+wUotWy5Dn1TTrtkAG
2y/meJxDroOgx5fBQyZeu/JKxqhRhnjWHucxOtmP7Y9RMUKS9E8ZJgKey9Iw
y7xRR6yUrIj3zARc50f2kWel5kzbwDyoLwRWaivAttiZXBdmiSWP1sTDTZon
l6ophsUE2BQKgD4+4PrY2M6CVFwt9uRaFrpmxaSF1os+vs36sbFH5whgj9Ud
WJa9PLrSvQ6+vZ8Wo2Y1Em9EIz+HKXXNdOepJIp2sPyE2r7QXzRd1fKooOfU
hgcNEAdhTAUL0Y4NuH1CTKNJWsuGWxqxSFp1L0kjQzt2Jr/+DhqJs3ekPXAm
YtQNx/GENm9+Zp+enqrGIcSEJ9uulXcJHfQfl+6QYxBkEoEPCIZ+5E44fj8r
fVGcCt9okkYMHRdfujU/tVwI1zGcX0z3hJlMNgwCkgeK0AZd/fnC2tjRiDuu
ydPYzuOqg+Mh7MGWeoDCqdmsqzXgFTPp/LB8VDbSqWqNDH52rebs6vjYNAK3
ryXxM9I40FfN/bbEj8lYnLMO4mLnWKQGOq33jKzy+i6NLfFjjvMApuP1yskw
aexccepqlMrng21YgWAZtqm8UruSclr4aVn8wgz+DhJpFB40CtXGZ6+R2FF2
Gl05ddXjTUZnKLZLQtCPFU6dz8q6OqqgHuuMl3lhopYD9sT9jPPxsXtYqaOT
bi19apZBNfPecIce5zkpHRmNaGRUlEUxpboVlaG1b/sFzEFGhaceF6O6VQ1K
CiqZL3TvSZRrcj36S1mGto1t/ZTVCS0FT0rf2cUCqOKDGRK44V9SYZ69XoJ/
uY5NIJ4HtluctC5kWu0uc2gK32ILYDw101rUM0vh0jfREbOemj5i9ajIbjg2
uw5GO8BPSd/ZPh+yQlPRVhEi037WBhLt96EIBc05jidn85PJO12w2MgeG6hv
LRiQMpeUx1igUZ7DHPEFTjILx0TQaRmAO/dWn5xZq1L9lVqEKK1/2WG+DpJP
SCPY3Q2oo5hapMOAMXXLjIZYI8RFTKgtiCG2X/YQ352Fb6PxJHBw9/IE+pai
6V5p6DFwkueTwGGKVBs54XROcF5iDZT5WLSlRdmvp+v9mkxjXFUDsomfXXQg
b6K1na17KpVPTKPKvLgoP12W6jzq9+tKg8BY0F6qgZqbBNvF0cUOTIK8GKml
9SjATvBg/EJAyWIfSqwWABhO+6UbmycWnlWrNSzliUrJOWskocqKSNxGdRAt
aPuEpcOHzCd6RO5rfKsM/4s69InpKf4AVONbpdFVHmpwYoZHGeLX0HmNzRRd
0IeUeBtGfDp+BxV+8qPC5WQ3cJyUst6Fx7Gx5kh6J4fTBFk/4D1RCcjl2ZOY
N36bgRhikKnp2mdmGZkbJEIxg0f0NeSJnmXfWEaW4zc47Cn8GRPoO1o8oE0X
6SgbfHxCVzQoKlEFORPqu8u9KbS8A06m0CZiukXkhFqm8DNbSq8o7YYGivXr
RvesykLf+C2YmeZfiQ3FZGHVWTGcA9ksDIFiS63ssJ8nOUA3gFg/+8Ty9LtB
8hIiSek7si+7mRcm8qQY6u7VJgjO0XToPT0H3jwYu/BA3+Oz/2slYLb9Ap35
laYSr4fq2GCk0WwO0tEpgYR7MXNm7C90chXuURSNplizlvwqW715Hx28rmlj
SRzRJjoX1HbqAN0T8ffOJ2Z4o/jaizhf9bjIIgGO7uYa2k8xBPaG5PtXPIAy
KRypgF3fcLijsehi6AwhJ7YgRntLZ/AIf/PFlw7e8RuH0c8i/R5Of+8efI9H
WBAjX715cM1v3Ctde+5nBn+zKou04Ab+arDn3PTdQvMZo8H3LuH703e63sg+
+pKbeWu9uzpdEj192JOKdN2ieS5+XjrY88P0PT5P942Lz+W5ww7OMop0n7yD
bnXvbh1KSLpmbxbffMD0ZZTPnfHrQa3n9EnSr6oCylqAuTUPmiYHzGuxwZqH
hEtOghu8dlPz/qVqnpw9ZcpRH/ZsnwoJTNa8HrEjXozya+nJdkIN7vkt8+qZ
gUykMFLGMx4j+r3kJLU6l44NC10Y0+9J9US+dRyqxioRXKmGfjYyTJrH1HQ7
DVoJZK23XnKzIa4vywtNEIcFMXxkGlJAyf5RnnR1CrP2dEX1TrWxq1lRiMvy
sE21uV2pzVCmOanD0ZjWq5xNn6VSnan2cFYETK8op36YzvSePqeKlXGDwGEV
21F8lx18HTED3AeduubDVSYLyrIg4jCinV6fPt46kxKnPI1gtrAGHt0jJOwU
WKtylR9f+sW/mi8spo9X+tL3oKwKilmwPxBVLWnUaFYx2EtDR43yCvbAygnF
1J11r9pUzn+NypmKhnKDZbBkCBEyK2dXR4vnN2Y2iYYmFvsZma2la6clza+q
wCEUVlgvMmtTiL+4u49KLc2F62J1NeGa+Fyq1HiesZaDu6snyBohr0zLArQJ
wKJ7w47Hx3a3XA0bkcKr8fx01a8577VGzbCey+95ZM2QV9yhkzx49aZmHDCa
YVbGVjOQDf+RYxziWnfXnmdk/QyktOD5YBf8oON9erdilB9nPuAtVdQ//Mzg
0vz5ehWDrhbFyBUEJ7VzjNVQjPIJ3YpRMjeNMyN+so9Wc+uEoyIdsjdEw1wP
RdtaJyZYK/DrGhl8/tNbN+zUMHqsrBu+XTwjnGzqxv7RjaOTSFG8aYuadcPP
2WfdqGZiWfR2agXBgo+fsKvidTb6lbH8lwV/6zOZduXT1KimCTAZSMo8C5r5
lKFsNVAqN/33Uu/RJrE67N0dPcLLd4Y6VJR1UBGqg1BRlvb8Ugw7T4W5KDZl
37l5sirGdU4j4uaRWaRgJ+moPmuEjE21OBDUgl8e5RfyspnbFS06BdbhNJ6S
nubnwFnJ7GJtRK5Xsmjr8nhH0WD3Do7ZabrjxX2kHpPaVacR+w+42BlH0nNG
Xk2iSYfFbm3pH1MWY20pKIpUJl5KzZL2eWrkTlhXGmuM/NLo0zd15farK9Vi
9mDuHhEoqwl7lp9ntyyrPmn2gbPXlc4lG0+pHZgGq2DJFIh6RVPF7lDA6eJY
pXZTaPnajBU+G1Z4R/Vhwq63ytHlfcriKQX9CCgTzlm1cmZsEj7XqGTGRVRy
PXW0xWl2HZ3JrPIQToz8voVg6SDKoKeoir5xzbp5Euuf2bBgKm67Tg7r4tpR
clMt/wWrJXtOnzNJeDTvGMbMXFbLdXtO1k6/IJAH9ith2k5zErfIJaPfEYIc
yTx4RBAhD6tmByIBj6P7wimPrX7KYxZNM6YU1tGLlOmhYmqDr5eqYZ5pjz6w
bS1g60Elu1H/jhRTSEgbQXe9bqAvtQtKTZsiXD2zqbKbKksjciFjXZr2shrb
frAK3ejtup3tU8tUYLVovg/RYNWdBa+I44T0HF1/QNbJRcm9wJBXtViIEnRR
Mi8vI5l74cxo4IJlXnuye3ANP61zzUxNJBgby41GHyIiR/IMc13J6AwGyun6
9FL1ar09ORcOk3bDHirckzbA1bGu2P1BuRlP03fyyrpWJ3ZTV35CulJNozU2
JmU1qVprLH2/N5ketACXNUPmYW5e9QSkD9peieKX9JbLam1BMum4PlrxWj8/
jz0MJGWfUSpGrKa6UM8EyRRdlkrV35shYbT4yOyeS4H7Q9QFN7/UGXYt0Qm2
zZpj22YoAJ6qmnOdU5lin4nud2avUZyYMiPCbGrQ7UyDOCVHfiPbvtBc6ErJ
OxwQn0the3aoEfkNXPEaN+NDf7bSIsL34PjjRgr6ojQYOEIxTP8ymVq1YjSy
iqfVBoT1UW/en3ykY4NosyxmW2zr3K6zBY1PnSWR+DwDc1QSOlt04vtpG8Ni
zqILFt3H8jIBk61gxvlpgUSeXnOObjCvqATp6QDO6b/2Kwu8nsFuLweNT/MS
SdsslsNXMuAb+Rxp3aFsr3O8a1a8WvF4/MjrGS2IfoEhT/zbXjfm7l++Phzv
pM40O8lh8Bmfv1m8ty9RNPabV8j9ZGjPOXAwHftTKewkgj8wep0K2hfYdGQo
vRNNT7LYWod7dYSVzspJFRYAvzftB1fkz2xJcjDfO9+reMfF3hH8QF6T4PlD
FUA6yauopuAZZNGC2YGtu7OPKr+TkwDEDkyhjR7q0xWXs29PgPhZCQnp0QZv
egS/Bl7mbKWpsLV20nh0RsVpS8QgDhwrLG/69x3p+rW9/3dUwpJfC6xINt7u
7FGKN/A2ZlnoEbzbM1zFwvfZ4xeQNjyjUqDbF0bhqlLm1Z5Hp3vaWZPsnnYz
XWaXi+GxGZ6O9e1AJ5vWRAlWZJLfl+Dd463FUrK4FyIuxE8YKSjPTBfY7Y/G
vGw3uTx69wF1MMj756tzAwjjjEy0sPuAg8ROOOE8APYc9h0PeiYwo2GXmkFd
3Jk04oIbKrKtPqgsWPjurzk44Lzxxj+ZtHQvgVqIccqA/EbJBrQduQwbgJ3/
0INijmTjMIuskJBtraMbGnrPdJpxoCNhFxzn1V7xElGC4/45WlXmxDD62cdn
eiWRwyOFZnGTYE3C6x52hIb4wUHM1Dzvfo73XHTBM87ZY2E5+TQrXW8AJQE0
Vyd5HXP59H/HTHOWKTaDF2e/Ux3DGSzchF3SoJMcj24HCI3tm+XkJGhVBD4Z
CBoEvhkmwPPlI6b/+/K0snhJHdJzpyxeAvR0paFxGKkgBtr1iE+Tyt2hGyXH
cojSoDwBN/LA4xypq4NOuIMHq9GTq68WQH80BXRqWdOH/Wjnzp1QqkHqnYzi
M16q9glNdNXKdODCc5J5pwGgMvvdtEK6moPWMfDL6WEve/3rX8/I+GM1A/eM
VsAzYtUJTuFN3MhuUpvIzQHP9EkJnsUKHnsMbXSuSE72fjMLuUpE/jhdu/sk
nAWUHj1YoN/0GXSJrvitdB06SkCHtoltrfMl/P2b6q2bJxQfONjw4X32rDFk
sQzLSbtxZGwJCxzPz93CO4/T8dy0E8cHMd84yrAUjaNxcSC2EC3v/rRvFZvh
mkOrKrc7d1eXDIXtISG4b0+Xwf3qqfxXps+Wbrvttte/DGcsT/83SvDA8xx9
FR8KfmrWGh1QXrLoOkDPUnjOOSBxGfvihiKJ2fetu20+k3UH7jfBkn7ftrS0
dMq55547A5zCH2tTt1Kg+V6fHrrZXcmJq42YHlt+H+qz0wNthxZpDZu/fY0W
sr7PJrYQm29B1Da6AV2BztAVvyPuOB8vhqdmPZjvterrZs+fgMrsIW2XPBU1
DbOHFEQiibCnmZthzz/1WV6Ic7xpvZGprzhOOjuWvmv2uWzJFzwLRX5mB9Kj
DAtXpBdi0DoDJGNAhZW/aIog9j5bWZzjDex9eevoWFR7EsgbM4PPuuCCC2B9
1hphnbBSyyDuwQF5dKjytthVPTuWYa+3mqdCfMl7peQARHV3JW0mvp8TB1np
3bmew1UspmnKJymgiBO5jvoZTgn8IhbKlUxOWKULXrb7lGcfQZln+xoYdBaY
Z8RkxGbL80UnnniipjAS6s1iDKjx1jIDwH9w9Q0hz/Wi9Elwi+nldGcmz4kV
Hso4MC2pqlXJcIBtyeoEjiJ14frdtvLgyhkOe8ooDPw5TvD7Dwd+35E/0NIV
0kJ+SvJJ2b25wyCoFjLc26Nn8SiJaaacABKZe1aGvm+Zl4l/2+aVtNfmMBW7
trLPxzSMbRNJjyJknmcmHFwr2c6cqXR8p+Jk5bnvy+nXymzVIjUtgMJFaYrN
HEc5BnRecwxuMdg1nnDuZsa9aj9QsKzk3fV2ez0p0Gh3NE+UW2fPrW3MZBy2
Roev+/ygX8YRvOTE1SRxnZ8F/dF9waVND2DEzKVtlYJj5jIqKYpExL0gBT/I
aYLjD1DInOwFebIjr5owJUiYWRw0qzXPFwb9EomTOv2q7eMgN3yuEphXRKSX
Gxb5dvZ49JIKrTW+kA3Bx/si2X5KrVp4jkRUt2zguW3UnleHZjiLm9oxuGgj
PJnds3mTlsxcW/+jWWsbnqqzR07jxp7Bj883gHnBRqRD3fAJlPp0gPL8WvnQ
wt6RiClOgrqmZ3xioOC59FD9xlonZCuD5wVAPT8OZh1kFXmjCSGaOzJZIIlK
APxrS809bP55s/Aqli450xvJaxZwI0zw2rbHR92iis7FnJ3Thpk9P4CHX7xq
C1Cz8AiZAVSU1k5d23bBUCt1wc+urQOPf34bihfU4T5PExSzKLrL+tqenvKJ
nBZMfYW+UDkxN7YbZtTW2hgVtqarBRtJKOnFF3nsICUpnCXTiMlDAtrQGNYf
HUieUgdVGKHpUojnQ6L3pZ6Okw9xt4LIjjNOzl8Q4HhKbIri+sx2d50s+2LW
Oe9Si7D/S9lgRAwocbbVVonRXxACODSy7lhQWEz4wnd+qae7PS6ril8LL4/2
SwWJmpGiOOqw2KAWpjc59XS1fPy9nUDC6Tn8VJu+YOBMVwXgKbUt58nyOC/7
ck+/+4TO+O2P6TmliV3RG4os2eZVlPp8uWdk5xPsbHEBUW+tI6oqVQwl2cup
sfYyv/7lG1/p6Z45i7e3q7mZDLmy6N8KLJoptFPVeeKpctw0xJfbjhvCV8f9
uPwMWc+lChPkuQAmU9iAMpaASSnlTb+Dr/Z03Y/h55r6THsQUsmY5if+PjXA
kd+hatsvublMwQsVG60h/Wo7Byh8NrfjrKeBs5LCw6Wup7ahe2F9R15VW75E
7Lqe3vrRbLGmq4xMQ8p7Z8hknW3UCmvWNW4ReV/NqtfZ5mXyoGoSTOAXG1ZM
CVsHfi+qlRXudGdA4Fd6OutHM85TAuEM6V9udafkxC8McGOK7ApKWG0HRTNd
86PzvYhA9IzASuEoXjgLqnix2LbMMwIw0hfRt5lu+YTYEl8UYPPiEsYyH6b8
An5CHCZr1MzQf0JsdS9qQ/Hi2OokoXENv+t6OtWHZjGlV7dN/5WmNuPF6G2E
iuud1RWvn4XlXN/2ptAidBPoioel6+ALdEJwW4fVdeD3kq7YWaQhMmU3uL6n
Z31wKQPEDFBrsmFvhGkVk8ORKbRzGrBClrBNQeC3r29H98K1MnGS6SNswM02
EuEXzwKwsEVXnhYpBOglq78+q6I3icLJHpWeYecx9BmNNtFLAhRfWkfO3CaK
swde1oCOcGcP66j6GTqhFvSMkOW+pI0nE+prXBYMnIrAgL9v6Ol3H1jTqPq8
tR4RivnSJooUSW2FS92kYMIJScUNPX2veYlLlVZvrYdVf98BZdr0VhS5UI+t
eSRZKqgj3ZAdNabDmo6al6narCn3LckJ2V4N5cURnkyhrXTRyAy8N+L313LY
B0nNsM/E+fpnW20C0MuXzgKw6qEh5RRxy2wBaIV3+3pPF36/mkY8gmm03Vzk
Ai8LsEv7soo1Z6aFIRW+ZOpfbzvtoiV2RO2ydOooWMIFR/myNoAvr2Og1pGc
eRadxW/09N73qVVYp2qCWTnA+fImhLG6mjfJaqb3jeyzO5tpfCCTNAmk0jG9
6yoj6ADxtBj2/9XTPd9noLmMngFtHIpQol3xCKjTMuVCguY+f5aej2Vcnc0x
pgNJi3YYGzNNlAu8vI3Ib9eWjFKBF5+BQ2gDNYy+0dP9poyvymdPC8Dg0W0P
Cn9vz/oMo6O88RvZnXbmvQ+NA/lpIQRDIxE/r2EKdSq2q4B8Y08fes90HaKZ
TilsZ59lygNQTKS4BtLLs2A9pIMg/sBCSDFvzPE8cp8az++ZRa1TC0yezTWg
IZm8CsTfju9gJ2y7wAh0N7Vd6LmnnHKKKnpa5KvvLQf0+JsTdJtmqA1FEJ4W
+06Ta4ztq9HV/93Y9qFXHX300epDmUxJ8fEc2Oa2rFhVHRFDSUbBB0LYxBl1
cxDJEYpv6ulI/2vWZHkRqWsbxc77dwKzfUUdF0ylaEsx1M172nG88K7/jV2R
S4QauUamqwFg5QpNLComT/AD4xzs6Xa/GlrTwVMjdEADQm3CAbm9IgDwlfWl
8Lrb6gcjq2G67vLdqTsMelzqeJku2483iZDtvUC3XtEG8JV1jHL1drG0Q8uc
PT19NG/DbmRsPt14ZRPA2LSMzxZNxw85xZuzz+5sdyUKi1JRO9ZB7qHepAPU
02OXz00m8ZAU627p6brvxn4w6qt3FToRokye7f4g3GwrPTDyMDz+T3Iu8LV7
TgNPKxf4z0yFKxat17Fmiv+oJHhlG8dXDcL0gnEscuBbevrvu5aG45JMH3kB
UTpe30HIlPnUw7xAz1MWee3v3uUud1GvzZTZ2R3janw5evos1Ko0ldQh6sLe
3NNpJwLLVDSYhQAmr2pCVukAJTcdZM1smP0nduVTy9Aja4IGCoLKq9qgvbp2
SLhjR+YZ4Z5U7paePvoebLJR6hIBlEgoJihUbiZJBx0Uw4xiRb2we36NM7x7
xA6UntuByGsSIjY3QcLOmU44n/6nPV3uQjZWRetQdoSrl1/uctOqS0jR/dUB
gq+JhSirHaYkVp7pT7P/7WyFDbMXVA09JFs7CcSQDCHbNAYkGZIbYFf+Bwos
S+R9CP1m0y9PrF+G+cIDQk0SwXpeFUDILiam+TUBzGfUmpGdXxxIGeagQzax
6QJ0Fk4RmsHEIrZL+oYkeHvtefH3a9rYnlGHR00gJON0ieg3mz57LD5b5vjw
/4M7ZQ2zqSY1B7fVBAO5M5rAxi4yaOVCC/Y2nfcE+ovP0T3DJwAaHCViq9ST
xWeNR+dHO9B9LUvduFq9rTEfQva9t+neR39x6KGHrnKZDQO8I+uba2xuq0fW
1DVClym1paGb/6v0YG92VC6rGN1497vfXYiESjORtiICwtvqQVX5zmijemas
5cb5Vjv/9wbhgPdT3nrnO99ZaJXPjr2UPRZ+UvwtzkJHObetw3JeGyB8Zqf/
9WpA/vdb9N3E9uPwg7//dtu2beyKi401OzmuTgN+VcY3Ek3yo6+dBXeX+6W3
fcFpUm3xPxOjNmrsvdvd7jbKgUOj747aK/ai9swA39d1heShAEKb1ZlC28G7
/rDDDhsnCk+8iPM3E7J84k6MBjN70MMz21C+rtYZjdlmll1HT4QOH3bllVf+
5SGHHJKcbE6PNXFnvy9rRkWBAgIByeua6MVod1AGCL9917ve1VIGCWvizpQB
L8EP+XHgT2EM5J5i/IaGytCrcZocFT7FshPOvJAWaJq8PSuJJitB0x8kEgmu
r3Zmh1gjsqJUcDGngkieLVm4V9cMBCt1tOo+UymqkHt9HGg5hUfghNJQf/ub
2a/D8wAoAe3SY489Vrn4dx0hI0KpS3jMKVRDFz0zHUiLEKkRY0LhMR2+a0f1
8+tCREjj35A1vkrsZJmy2e0E7SUhfitrPtIf2OFgsqqll8LDu5FQdukJGSYB
rnKYNwRWmY7rLuYFIDWTs9vODqnut0rpIX0Q8ghBRx4Qh/SNO646d5myCkQ+
T9wXITTbwlTamh3xmJw7uw+0GBGPkZ1JeaYlNcU+NkLTN4dusFexE5VIst8Y
QJhOiB15EUvqYU6n1bBrfBu68CRh05X3xNmEAxtKmDjbZwSib2yjmGisZvHI
ptmH22Ymso9bEwWIVVIzSGoAUHk3uiVNS/SgDwr63tQEL64xg4pGY/d3A/Fy
aqXT1UREjq42+SE3tK0GRR1dB5ZvTg+2U5uQPQvF5vVQ+z8T3/GjH4EwZAMg
ljxwgzgT+mMvHAGZqCraHbjepNdjm18i1aa89VZxGLfdBlHD/0LE1CwYZS9g
F12QszFLtyqf+KY2eGfVdmUyazuS9rq/xzFqiphmzQsxZWZPO6lURdmbA+T4
fDorTy2hWJNlq5uozvdy4ABoFCiGtfzRw21U97ANQ00Dp8qPm9hBQRtiJJP7
y5JQ0T4zuj2XDmsuBmcFWJxdiwetTx5RdjeQgqYRx7biUqUKuqaIKme1+eUD
mJDgWD9AQvvHNLpkeHBOg8A/Y7SzmzzFEkiPps0v0CNxLwybXfquyWMHE+dk
G7Q2SwXbjgwhqmeC6c+zIHVJ5NZaG3XoiLtzYgdKrXPODGGv2hP/fqZDP+Mx
7YyE+o6z2+ymdLFIsd2xMWSgsqVGToKTxRdFtr8jJoHc3TkB2+fWvltrY5ny
544dhIqxeFggrZ1uHhbhxubVpHbneM67tkh3nsM8KTaW0086SyIfCPGW2mLy
orICRvzQAulbs/YgetAZ4jty1LAtAwqn5yo/XbugN4aRsd1UBKUwmcbYtlJ1
nVYK6CNZSigLb7fnMGP9IB5vGJp5ZsEc5xTzcR3dJya9JfsUu1cLKeIgiGX4
ocX832F23Iyp6VQWcQv/UYH8FmW1fVTBRvN4XpKILeigkmxdth0I1WT5WS1F
RslXe5AyP+7skfWfFjwFpjqhY+YhaefFamaaE5XMKAv6doesG5Efnn1wnvJ/
8U+W8fOTfGxBBvmI2Iw04V9S3TL2srcx36tL5rR1lNCgeaavvti31/lYI8dU
5dVtzWhzbrXAvR3ednvtoPH3+U6Q+4Mvn82RM2x4HepzpIp9bCs89bt8n63V
NIg3ZNfruKtJN4/umMPM4/8YtBMBVjE0TZAIggcE9r2xR9pec6Z5vRfb/mAp
zG2ZJXEuUEmwx5pok2stfYOyFY+l1Od8L7H5TtBb7APGwB1Qel6Ns2asXDgg
ddec65sc5/gcskgbbQdPM2iKGXRa63zn5q2HKZvKK8hE5AI8SDIs3c8jDZBg
4kYFfp4O0U9C7kixRQ4XTtnKuBCciT82zt526+HD0omkVBJoGcLLjsANKlqr
eKFbPa+vcDaen6JMUwtnpooi4+bMKAplc8RfFfmp0D5/HbKaMiGnRdmPo1Ol
sqd4a+zgqVTdkT0F6myYDP7+fqa/yhrfqt5gDqGsifC31dERwZ8LUHhmbQ7+
eZ1xIGfItK7JLqKTuYRkmzt5kqt0mwTPocMWKprn8PJ4tIFkjZ6UXV5ulOq9
bS1CWA9HvigBusKRPZNKA8o3AlvfWbsKSOxtc0opdMUzkt2SvZyqXhC7H+p0
BM1XWHjaQFS8Ic5kBh4oMDu4oK+49gFr3glRORnooobLr/F9ZpGOToDwfXZm
RxO7SoxrOKO1R56bT6B9ex1OIUObkftNhDRndANH0qlq2tqLTgdjBq2KQprE
YJbiGk5oXQtniPUtN2LPXVE38seZa7vshbo4fJ9trGk/7oJYdHMcU9pgsDqZ
NjuWdyR6bE+nTIbq6pgkdH3+rqpJRK3N0lVVz7c76e0P5vq6FcSy67PsbJ2I
y4Qvm8FqB+7tsezWdNKojRbBLfFLkS6sFctPA9rCGMxdF8uQrJN5tb1q1dN3
OBnudyYhQPE1vvq3ViftYT5BZOKlKhvXzVao6rHv8ILte3qq1CY2xsj7JuKu
3K7YbowI6a15iH7kZ67jQG6KY/y9vTZpLbQuVG76nou6ZjaskJxLoUY9TIqy
RlZDWxBLBmynSisLvtBLZvY5p5PsK0qfkZvc7+wIPXsz9aDQNI8KbjX87VIK
Zx9O2p80WxOpYHnlBkjy4NnmhNYPuzx4ee7n95Ja+fRpZ8k8RYGv5M9UEYI1
Rlohv1NHvc4NF2u9mVmD3VLv9Y+CMXnfrk/4qbh65yxOq9zeZtU+daFp6Gsy
WTrhtzODXRVrvxew/a50vS2rVM+CPjzG4fNS0evTFWGmPLHrK5EammErznl0
n5USYKaekOUf+H9qo15dh0dNe8x8jkWAKqV3BQjsjvXMLJq0WQfJ/vMlMPge
1zWSfswgm5ErEHZnkYlzwX/Uc+0C4XNxNBEgTNvBahVl/LubOMQi7ALjKvZU
RksEELnPVuKqXR2IvDvdZvuPLmGKEflML0T8dAl0f/DuAJF3x5pka6YQkc+y
KzH1lEfE1kzaUNrdRuQ9tXv3KaRFBDn+lb3BsMoKUQ3eE4DxntixtMDQAvLK
2WCEPvfdIRjDfmDQLiN95TWTYHdWuDmliYdBZEJUuDWg756JRNno4OH9IrMW
AhpL89gVAr/fgcBBOSpoYPp0UhEJmqUOVMyLDN4TMM/Y21pGmY9GTvvBhvAO
vZh+T8g0aeD7Opg2K5R1+9wf5Ajt3vDc5Pi9geLzsDb3U45dMkLW/4fps6It
vLWD4zxmxfH7a441qTOJgd2RRPnQxzNZMAICPXWrxxHXg/cFbL8/Zpu6Dtwo
tkvBMM4n0rCwM93ht7OD8/e1Of9A5lxu85xbf4cfWl1+GbtsU0tqHso5ik2p
FYH3Bwh8oAOBRMMEbT/r/qHmkMilWTgCErqDhMqOGhFdV/T+NiJpO0dRWHtE
7AYFDUYp5Z/4QCXVW9DiUlA+EIBy0WxQZKmb97WXxAFJ5BN4BWXwA21cPjgb
F8DupTS4OH9nZ+ntGqcQlIsCUD44GxRwaBN4WX30kfy1xQytg1mgXNQG5UMz
QRlZhUAqnwihTVeVDnXh8cEAjw/NxKNI3XVR54djBUIkNboagvHBNhgfngkG
eUo9CpW78v5lqNu7Q8eHAhx4ZJvHOh86xKhaQ6brixMCoKsNj0EMfKjN90di
vqkC5lANaevoyd9R+AbiFEO7JP/hgOOP1BFLOT4ox2gNDxdlFHRvP4vZ9he0
cfPhNrsX1+y69ECXdSBggoz3ZulrqN6ZxWzLFuH6IwHTF8dMU8XJI4t9Y3QE
rmjkO3SI+SNtvi+p+XZKVmS+cu5SyrRStNbMjJkHo7ZCEuYvDpi/JOu4tXWa
6Qq2RsqWdBkefwMU2i7BCNgFXkgWCIGL2wh8tAN/UWBTnSoJ0n3g+W7re/m+
CZTOdiaACpC4JECCIy2otXUBkIA2yZSL2QaEH2pzvyuHRut25NRz43qsTkoi
dUkbmktj6VBriaGxDU8l6J3Mi4ucUOHc6Zj4EkhY/WiATqJkgt6YbUdIO4Cf
6MMPQgTksyuHSSsqUWYJsq7Xgb8x4EfbAF2WQ5XnRADyNJGqpimAiWz2a4Sq
EPfLAnQu6zY8U2BX22Qu7C0qC40o8qVtaD4WSwwamCU2FJoofPLECGixKmWT
CG+lVEd9LIDkY3G8hTWCme1ltKKZsQuzGdmcrsx1K60Vhi4LoRgaWiL9yuIp
C9+FDI9+9tbscqFQNsJ69037Z2hYV4BflmGxUVl8gTRiLSnTHyIjrQEYijum
gilYzo//qCeWh68A+Xi3cO4QjHR+T5CCnTEaxz8eAPLxOGxSmsNvwpad76II
581HCoa24FB7+uMhOKS5n2yLCDjv6NbStO9E9yKRtzmoDozK4ycD2/lUut5O
m7pcaGxnnMVXDM4tbZrkdlBW0Cqly2NXIHw6Jpm2CTMCqJ5t70LI4O1UchIA
vgISpogPsUVP6lMBGJ/usLAd3XGFKfGFNeVPQWcD+NBMy6fauFwe32bStYoa
OZXiTflrn88gDu3I/to28MUmPx1Ac3nskylMMX82d9TMibeCyivo5HtKHYyE
7KySCP/TbWhSw27iNQ1PwdMaySxZcdoIP5Ezbr0cmSZYn52CBEzw35cH0DAx
MDF7i8RNcdv84m4ZkAobJgYdQCvGGXLCKCDw8jZAf5jZsP4IT8HTuKQUmii8
vCHrjKUTeRXoY1ow1xRB/gcBMH+YybexsPRuVFkCfQr9vMPe9j9g67Q7cEeM
s/D0B200rmjjiKcxIUUfdiETp5+dUaJG+i26b5wX4CGXcUWAyRVZ5+1+UTFs
JqXoRDMp+mrMTIoeni6vQtmRI6IXkqGmwufKTJR1lcJI8usjmZiRk9pPT3Tp
AYDdsZFSogj9KwOUeHrOLuMXbwMiOVjLAlJoC5A4PctMZdlBkPc7wu6VbaA+
m/G1dBG+UhGbQ6PFsYBQfkO9vFZmlZOdg7JS20wT9gJX/JkAnETEBC7S2jay
K2DMGunDAmkrE2Ff94joflBsH5I4fKYNyOe6aTGWJUwPFuj3UBrgdAW/JwA4
2UQHDpozs8rxSC7+2QAhpsqX5Pgbod8s0hAUhCrxdoaqKvmQkzN2tv0RRv5s
G7WrMn2RY+QHS8NDxpVe1Esy+RLhLKjaKQqagauSk14VoHZVtlPrmiBXpCrC
7jRIWjQk80xv9pj4QC+2yXfjQVaK0gf4XBusq9seE1krqzvGkKihM8ov5ijo
Cl4xh51ttYdCXx1g9Hnm0qTLQeJh8y49OP7F2bULoSI2fZMVrjAtHO+dILqr
20hdE3vN0jHQ24C1qxq5x3TkS3HeDpwJMcGQ+TpH3NXnA8iuiW+BMWZlp+im
h1HJoaA2IP9Wcl1SjMhr6owRWlMXGX6+jdYXYs8LUwatB2d/DRHCMUDHnsem
awGb/sACAKxM807hlkiKo2BW6YTk1ZOoG44rIqC+EKujKDqdKrgA3XZpCbE0
WPQkgXL4B7OFgvTWmp/4qmvaMF3b5kjCMV3BI9imJH6g2qCA39ULwsGCpOMH
x0IQn3NtAFN6U+vErosRLQd0Ei7MzAh+UDMDIaYDf0KkcgblwdkjR9hfG+Iz
NOQgefPqDa7MvL94BLF6YKAHnT0zq7youFyn003ZqQ8BuyAg4hAE6ApSJtf/
uLYb7ITcovfg+Fv16JmZHUgW39nQqWTu7EblWqWpwvNL2Qpsf1Mkwf0imL73
otTYEwKemgkFfpZQ/O1WQYaChx/9UgDjF3vauEl+ZGrfil4d/tPSdVAFSX7k
OliTi+dDm6XbcdUSY3DJdv4odgMAOtsOvYFLPD/+fnq6y0Z9MSkwd4duWX8l
sOE/yjHBpk5yC9MBIUsaCw18euxioAe49A7tUICBMh0VLLzaHuHI34m0M6XH
i5RBGwcLAcKmKZjyK+5liqSkaQhwJXkRmUnOQFdEIH212xJ4khQC8qUiTFOD
6a8nyqTTDhWDc5SNtlMKJJsJHUkHbNd1G4I+IjnXsT8Pl3A7gcngF0WSExnm
z7TobSiZCPe6AL/r2zEPVUA6pbeYckRkItyemLGFJCkRYaqKMryRfUgleV0b
u7TlivJhzw94TJANbQfLujkl4gmlm4Nw5TpVAPywsoBv6cKLqFBIqagiHPk1
htY65F7UFqrDrFFoxkrZIrQAWO0THJeAhzlZl0ItwTtmlZKWioyFHJN2LpV0
VsjekE3Oswoz0kcwucgENDIP0294NoXusfk62BVYk+vgJFUUB8XqBv8Gid4Q
IHtDO5gjQFMT3pAqUvYkqPk/Nl8HY6Lyma/DPbTXLZO66N2veBaS6B+3Ef56
+3awQbfzXICgKwkFzUM+Ltu3D3iForDSwrokNoeBNoL261nh/b1wxKrwvJDA
QiuxbfD4xKed/8APYAW8FJhlqco0f5AJ99CN3tCGU99xtvojrwWiPBYOeRkz
SZ13FAqUIBt2/7B8Kc1A5NigXTx4WmTjB2dz8U4c1k6zMLji6wHINyaA4Oqs
E4MiqGcwS30hfHL6vOcVsR3uFZ4A3z80q68rBfWloLKR5+DScjBiiNnX27Df
lN2ahFd5BDSGZsxwRTojf9EXFIAb/oBa0w9KWgQmQJ30uuDeJG5AFlqiHZTJ
h8EBPBkbf9N6FFxxYwD6TW2BwWnQZhBDN+izdMu7NqmEPCrHQKiOnKZt453q
j6EbUUss36YzapHfaMPO516ATP+IwjBZwtAXcSCDUXIS0gijK47IFgARCRt8
aUH9HfPQUv+EtnpTgLq+gqb2RdAeWnhkyAaC0A4KyKPsqrVwT68v1ZMbyKXz
deqmDc0wQz9uoaU3ecRTKVTtNZbt5uGRevF2v0UF4U9KtbVWJ86fVECi+NSQ
YfO0TCo5+AkBIsytpuUGCKH3ZtkYK5OYAGyAEbmOO2UNlNapTRA0ZN6seFy2
D4Dgk9bhZiIlpgWIVuOMYgoQtl0jygvADufAZczWFq7i4QUIKJ4PPCCJJqBK
INakGOwFZu66zXvY/7QdEeHbEBhISZgB4ACNJ61Po03kcGAwjOiLf8OS/0sS
DowLcEEp9OCQhRzIxY0pVodk4/VKA6yoI44rblmj0qwZJMlzyZKG2ZGqK3KW
RGvO02iL9vgURFEEdnxGecHP54CEz+CK4DXJ/aT7x5J7A2DqhgPFO7WFV1j4
LevTqiSsNR5QsrcduKFgkCZlHj+drrMTYZINQzu0X8VvWwP/UDRoDbQqeeOJ
r/rl+LBD2vYnIZyo+OYadWojIIraDhAjVI5UjCEqykyOQlr3ZoioRSUbtvm6
iR6nzz802TOF8pBMgq/kChIyPt2atMwfz3Ugyrfb0UIMn4R0aFYBOAyYGcwj
acsWil+GRcAAeKApsDr4Ip105mYH1ASf4VpduW/mNTzc0EYtJX8qB/3ICoEd
WeG3ZunWekCDt/T2VUiOqQTVUAIgwva1hdIZgxiuAaCyJx6+DOhQ8syI4W98
hu9wjakUhnZSWGwYSqivmvip7LfgP60/LQLy3rm0rddJPdmpfydrm2+UwCXA
eRqro6kleBeAB0aYV7tXToyMKnmHJ7Cc0NzA2G4OkG1KgwndulxkwNMfiAaP
g9vH3fT9v82Uq8ijcPTtfgq3Ntyg7pHCocqh/Pqns5XC5BDUYKnD7JwUt/Fq
lWTJIivcNk64+SkzgjnhtlJk4dMf4AXs8Agban86xwEtxxg62K4WBhm6bs2T
o4PmOI+VTgXk13ggJVVXZ0Soba//kNECK6bwoIzA+7nBYtJDCxX+Th+PiyYj
g8yvqKEyAWkobEFIKRwIQTLp0KZ1YlEolJGJFgmMBZgAFiT+pDkju+IXJsX8
FhOv0x/K6JPGjH0kJCz+fRoCNacnBY6pVI/xutXDnduXIflu28JR+2rX4M7p
QRK+YAXwUWxj+FO2FTBSY29jtGdygQyMkNWdY3fOPhqukJoew+weVS2+s061
mIUBAps3VegodJWyAcYAYrcBiTHAx5JTCgZeLShPZwyK7IAxQPRG8oE2BF62
s8otTY1T39l4dSiOAf7fQYbBUIAmZK8ki+Oz+moi6a6jTOR7swLDOgmNAjuU
Rl3b8Vm2+CxSLgI3E1oce7aU8mxTq61f54j+P8/0q9KPSrsjnePWPXjBdchO
/XV0xfeV/ov3C+GRpiK+wFhIQ5hw/I3ryNmPSqMiDfl+J/CZgg2IAUT/X+Qg
hJiIZpnQBSHA2mgB/jFZQKAfvNnroEykOH8RA7/xhKd32QwRpNTkRjligBnS
mEdmAeEzOo5lnK/Txv3/iYGPD3Nl2pnD1flzub/Kegybs3qMvwEnwf6QAHam
HqJSu/iBg33fkg1y4NOMto/gcgR4gP3gEndYp1CO28ANGcYPPO6PDRhYaDLQ
65zJXLT936w1UG3yk8wA1FgYAGVHZt8PERGv42yxYIA0/ofKwCX7gXJkQuq5
x9nzgRzy8Efm6yAiqzHQLLBC2dQPPe5punFSGmKmblm+7n8kZG60/HVghJME
O7AEQxAJYD+Ms4opjeAJvEFKRnXQGiVW/1pZ+Og+pP1vckoIlTHAjwAoVAZm
CIqYdvwJNvEVLh+Xhk0u5689/GkWdVyywEqzwiT1b5z+Xfo3fIMkJRjeYY6o
g1RAGsZT+EEcAEb2S6xOsrfB56Q7f6fEX7qhVP99NjmQRyY3yVADfug0vmeS
wSD+iY+hVeRIJ9lKoe6E9995vCVTVGNNVPOJgzMmNm4rjQxgDWgpw2AMgwPx
AAsjk4/4j0kBhVrokoAMihcTj+AXPIoL/YcqW1wHsSMQAoEDJkg2DToGSlAP
0AMbJMtK+TfttsZn+A63UdaymN0lPsMj8eh/8ADnucwfl7LC08SsB8tZVkCD
togs4ArSguQyVFPIjtMXtPsQ1wltJIOVRJvIANeAth8rbXmm8p8SKmARfkYs
ZDnbKp5IRw0SPYMRpIaxRapb8hPkY9hauprqFDWi5VLAGBC68+M2Zolh2kYM
LqDH+rS7lZITk6BE4J8DVvlZoNlrnjwLlAFF0VqC/Z9nkEfBabAocgVXVhok
30Po+Yv4G5+JjGWcVNjrwyLC+WBhwCwyF2zBwaEYYIGkPxI9Fkm5B8dcmGMd
RYziUQZbkuRhA/I57CPfFxG8PWvpENYhWjpYTk+DksjTwJV7Wkwl/fqF1pDu
2+oRy/rX8XrR8eVn7tvjgut+Jhh+ufOO7udFT64WOi9tCOl3wV9ugfLihpCe
n9xB+g79bPsG/7WjHGNj/jqQ6GsK7QDB6sBErZu+Sl1XyZPg12EKt/tsv1ye
nZn79bV/Rd+nBdnDolqJ8uZ89//recePzSi8Kr0oVqOXS+ZR/rbnHf9YjTIq
zkDftUff8OAm8/NYfz/XfZavG5lKW0Xn5/5T8K29m+fOwkar60bpKqgS96iY
jG4377lwHy973u0CiLKcWgjglxURlijzmHTu/0qrVPajLgQsDoNRF2OiG6/y
6Py4PjEfA00l4rmFkOStmvoCMvzIS8jcK1RX6YWb04tr8pfmGzlzvKW8hY3N
8eWoHRbUNrBI4l4OKaoer/r9c5v6u6m/tzv9vXW2B+bVeJVWAKBIswQky8GC
PMOpDripuEifLzNUESDlK5nH5ft+mcsoCo9FJQ0ZEyG6BHwxMMZJjHdflTQD
7BrwAKOCPtWXUiv1XcWjrEaJg0mTymGB5zgAYxKAkUBbJFp9U3ENmlj11S0p
Vp7qRX92Uwc3dfAnooPf7e8JraaJFsroNkUf7FqNPtb12Ivl1YPV4lXkojw2
EC12yNNIyIpieukCK5kTnNC4HNMoulNwK+NJnFwqbaKOMGuJ7uOavz05Xlv9
MTyHOjy0r8fVJ4TvgW+gVkZuSccKP7QrTMemH8tso1UjBXaxjM+9FTwWvrHa
xlvu1+RvNzV9U9Nv15rew6tHdcoCxyA7giemsU4mPW6rfrxrVzYdfCO6J58X
i3GWapZLDW6s2VnuYi2eIxa2cYvoQ6Os3HjNLoqrPX01G2TNsPBtgdqqIlba
vNTFwWII22y1XW5lWwH8sWiye240FTZVdlNlDyyVvbW/n627UJMMbgmNBCG3
xUz0VQi8Yg/fxcTIwPp5ImBpppTLFERKrX6KO4wFI40+e3UUqDa0rhNYGxYp
gvSLV664Iqt7Uc7uWY3w2ep1p+0DtMkXCnhGoI80dqbXGcXA9Xatm1q6qaU/
MS2tvenEC7JkeUKomOjRhUjXxl29ZYXClViBbR3bz6e3denrMhOnT5+to3tW
tWSc3XVbf2uszyhVkE/to3FVEGaWS8Kill/UDRvHmcCa1a+/E2lg5L3lphZu
auH+18LaGy6Heqghe5cdYkbYPihUQH38rvLfGqt3VdftKw1stsDGAYKd1UHf
j8eek0ypiqho9EjrpZ4EaenicscQ6wvCdpQ+QVg1e6bz21S6TaXb50pX+7px
rXaqZmP9tw26ncsCdvpOSaHFrY6P+TxqFo/78SwLE6zya7xwqfi86pluj6LQ
Fg/HoFhCM+vjNECjypLw7UW0KzOtTbcQjJEHY2s80Aa0fepIu/Gdyk1l3VTW
A1ZZa99ah/QinK+uNjvAqltlWq4fL+WPDSWmYhp2ROfpZ13Tnxp4JoVe7xo4
SffqCamabumFr9hbuxNVroQzRWA1y6vQLvuZzo4hSzEoFLFzaZwhEG33lWV8
jdG7Om+NSc9wNpnVPGGxUi73bsBt5m3XMLW/qeKbKv4vTMW/W/lx1+a+og6t
JguJFvZGC/CM/jsd1G7XD2q2pk/vnHssF6L5BcVgo6snM0exZtYPWvKjlXlb
mBbXTZfVgZbNoNOTw3a8CDLaqKLr/ow2j73M7HWzF0uOxc74466O2mKgVd5x
burUpk6tV6dqTxVNsZXxtbNdHi35WAq1r1KSxqEnRv5l8RAWZG6NXK2Ilrv2
6ueG0jXVu++xLraSaYRj+axu2USrkMfl7pBCM0feVhcatwCy6Byg5eawpcKm
69x2kQ6NzCQuF/UdfsB2vCooniGtnq9e8uc29XlTn2/3+nxrTw8dbhIrNfpn
Ypk3eiQPCRRnOsij4of0M7ufMJE1lvXiDXvWmStl7rof8TtgCOuDGcQ6H2nb
vJ+ZPrFB1wPjJzRaeLNxPICIrbEtH2jW3/SjdLt1cBwEHrwvYD1Q6bSIRr8O
pLMcOr4f/Jv/D52ooD8=\
\>"]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Exporting image into EPS for a paper and viewing an image (*ask me if you \
want to resize a vector EPS graphics and have your fonts messed up while \
resizing*)\
\>", "Subsection",
 CellChangeTimes->{{3.442068156984375*^9, 3.4420681730625*^9}, {
  3.442068213203125*^9, 3.442068218*^9}, {3.44206970496875*^9, 
  3.442069756390625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
   "\"\<C://study//accretion//! 2009 spring cfa//Group \
meetings//01-30//test.eps\>\"", ",", "pll"}], "]"}], 
  RowBox[{"(*", 
   RowBox[{
   "Exporting", " ", "file", " ", "into", " ", "EPS", " ", "for", " ", "a", 
    " ", "paper"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
  "Run", "[", 
   "\"\<gsview32 \\\"C://study//accretion//! 2009 spring cfa//Group \
meetings//01-30//test.eps\\\"\>\"", "]"}], 
  RowBox[{"(*", 
   RowBox[{"Viewing", " ", "EPS", " ", "file"}], 
   "*)"}]}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.44206537525*^9, 3.442065419015625*^9}, {
  3.44206747021875*^9, 3.44206753196875*^9}, {3.442067604859375*^9, 
  3.44206764015625*^9}, {3.442067688125*^9, 3.442067712796875*^9}, {
  3.442069950984375*^9, 3.4420699641875*^9}}],

Cell[BoxData["\<\"C://study//accretion//! 2009 spring cfa//Group \
meetings//01-30//test.eps\"\>"], "Output",
 CellChangeTimes->{{3.44206747390625*^9, 3.4420674909375*^9}, {
   3.442067525515625*^9, 3.442067550484375*^9}, 3.44206760684375*^9, 
   3.44206764309375*^9, 3.442067715359375*^9, {3.44206993525*^9, 
   3.44206996503125*^9}}],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.44206747390625*^9, 3.4420674909375*^9}, {
   3.442067525515625*^9, 3.442067550484375*^9}, 3.44206760684375*^9, 
   3.44206764309375*^9, 3.442067715359375*^9, {3.44206993525*^9, 
   3.442069978078125*^9}}]
}, Open  ]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Plots: visualizing a scalar field", "Section",
 CellChangeTimes->{{3.441994228640625*^9, 3.441994230828125*^9}, {
  3.44199611396875*^9, 3.441996116515625*^9}, {3.4420641345625*^9, 
  3.442064152046875*^9}, {3.442070424640625*^9, 3.4420704265625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{"GRI", ",", "x", ",", "y", ",", "func", ",", "tt", ",", "ss"}], 
   "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"acc", "=", "9"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"step", "=", "0.15"}], ";", 
  RowBox[{"csc", "=", "1"}], ";", 
  RowBox[{"sc", "=", "4"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"mm", "=", 
   RowBox[{"(*", 
    RowBox[{"step", 
     FractionBox[
      SqrtBox["10000"], "2"]}], "*)"}], 
   RowBox[{"0.15", " ", 
    FractionBox["79", "2"]}]}], ";", 
  RowBox[{"A", "=", " ", 
   FractionBox["mm", 
    RowBox[{"ArcCosh", "[", 
     FractionBox["200", "mm"], "]"}]]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"points", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Outer", "[", 
      RowBox[{"List", ",", 
       RowBox[{"xtab", "=", 
        RowBox[{"Table", "[", 
         RowBox[{"i", ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", 
            RowBox[{"-", "mm"}], ",", "mm", ",", "step"}], "}"}]}], "]"}]}], 
       ",", 
       RowBox[{"ytab", "=", 
        RowBox[{"Table", "[", 
         RowBox[{"i", ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", 
            RowBox[{"-", "mm"}], ",", "mm", ",", "step"}], "}"}]}], "]"}]}]}],
       "]"}], ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"xy", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"x", "=", 
        RowBox[{"#", "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], ";", 
       RowBox[{"y", "=", 
        RowBox[{"#", "[", 
         RowBox[{"[", "2", "]"}], "]"}]}], ";", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Abs", "[", "x", "]"}], ">", 
          RowBox[{"Abs", "[", "y", "]"}]}], ",", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"x", ",", "y"}], "}"}], 
          RowBox[{"Cosh", "[", 
           FractionBox[
            RowBox[{"Abs", "[", "x", "]"}], "A"], "]"}]}], ",", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"x", ",", "y"}], "}"}], 
          RowBox[{"Cosh", "[", 
           FractionBox[
            RowBox[{"Abs", "[", "y", "]"}], "A"], "]"}]}]}], "]"}]}], ")"}], 
     "&"}], "/@", "points"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"points", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"b", "\[Rule]", 
        SqrtBox[
         RowBox[{
          SuperscriptBox[
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "2"], "+", 
          SuperscriptBox[
           RowBox[{"#", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "2"]}]]}], ",", 
       RowBox[{"\[Beta]", "\[Rule]", 
        RowBox[{"ArcTan", "[", 
         RowBox[{
          RowBox[{
           SuperscriptBox["10", 
            RowBox[{"-", "4"}]], "+", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], ",", 
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "+", 
           SuperscriptBox["10", 
            RowBox[{"-", "4"}]]}]}], "]"}]}]}], "}"}], "&"}], "/@", "xy"}]}], 
  ";", 
  RowBox[{"\[CapitalDelta]", "=", "0.001"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"freqtab", "=", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"1.7", " ", 
       SuperscriptBox["10", "11"], 
       SuperscriptBox["1.18", "i"]}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", 
        RowBox[{"-", "14"}], ",", "15"}], "}"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"result04", "=", 
   RowBox[{
   "Get", "[", 
    "\"\<C:\\\\study\\\\mathematica\\\\! on desktop\\\\GRI04.dat\>\"", 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"func", "[", 
    RowBox[{"{", 
     RowBox[{"x_", ",", "y_"}], "}"}], "]"}], ":=", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Abs", "[", "x", "]"}], ">", 
      RowBox[{"Abs", "[", "y", "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"rxx", "=", 
        RowBox[{"xx", "/.", 
         RowBox[{"FindRoot", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"xx", " ", 
             RowBox[{"Cosh", "[", 
              FractionBox["xx", "A"], "]"}]}], "\[Equal]", "x"}], ",", 
           RowBox[{"{", 
            RowBox[{"xx", ",", "1."}], "}"}]}], "]"}]}]}], ",", 
       RowBox[{
        FractionBox["y", "x"], "rxx"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"ryy", "=", 
         RowBox[{"yy", "/.", 
          RowBox[{"(", 
           RowBox[{"FindRoot", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"yy", " ", 
               RowBox[{"Cosh", "[", 
                FractionBox["yy", "A"], "]"}]}], "\[Equal]", "y"}], ",", 
             RowBox[{"{", 
              RowBox[{"yy", ",", "1"}], "}"}]}], "]"}], ")"}]}]}], ";", 
        RowBox[{
         FractionBox["x", "y"], "ryy"}]}], ",", "ryy"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"inGRI04", "=", 
   RowBox[{"ListInterpolation", "[", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"10", ",", 
       RowBox[{"Partition", "[", 
        RowBox[{
         RowBox[{
          SuperscriptBox["10", 
           RowBox[{"-", "30"}]], "+", "result04"}], ",", 
         RowBox[{"Length", "[", "xtab", "]"}]}], "]"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"xtab", ",", "ytab", ",", 
       RowBox[{"Log", "[", 
        RowBox[{"10", ",", "freqtab"}], "]"}]}], "}"}], ",", 
     RowBox[{"InterpolationOrder", "\[Rule]", "4"}]}], "]"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"GRI04", "[", 
    RowBox[{
     RowBox[{"x_", "?", "NumberQ"}], ",", 
     RowBox[{"y_", "?", "NumberQ"}], ",", 
     RowBox[{"\[Nu]_", "?", "NumberQ"}]}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"tt", ",", "ss"}], "}"}], ",", 
     RowBox[{"10", "^", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{"tt", ",", "ss"}], "}"}], "=", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Abs", "[", "x", "]"}], ">", 
            RowBox[{"Abs", "[", "y", "]"}]}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"rxx", "=", 
              RowBox[{"xx", "/.", 
               RowBox[{"FindRoot", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"xx", " ", 
                   RowBox[{"Cosh", "[", 
                    FractionBox["xx", "A"], "]"}]}], "\[Equal]", "x"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"xx", ",", "1."}], "}"}]}], "]"}]}]}], ",", 
             RowBox[{
              FractionBox["y", "x"], "rxx"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"ryy", "=", 
               RowBox[{"yy", "/.", 
                RowBox[{"(", 
                 RowBox[{"FindRoot", "[", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"yy", " ", 
                    RowBox[{"Cosh", "[", 
                    FractionBox["yy", "A"], "]"}]}], "\[Equal]", "y"}], ",", 
                   RowBox[{"{", 
                    RowBox[{"yy", ",", "1"}], "}"}]}], "]"}], ")"}]}]}], ";", 
              RowBox[{
               FractionBox["x", "y"], "ryy"}]}], ",", "ryy"}], "}"}]}], 
          "]"}]}], ";", 
        RowBox[{"inGRI04", "[", 
         RowBox[{"tt", ",", "ss", ",", 
          RowBox[{"Log", "[", 
           RowBox[{"10", ",", "\[Nu]"}], "]"}]}], "]"}]}], ")"}]}]}], "]"}]}],
   ";"}]}], "Input",
 CellChangeTimes->{{3.4391650786486*^9, 3.4391651148718*^9}, {
   3.4391652110769997`*^9, 3.439165222465*^9}, {3.4391732221294003`*^9, 
   3.4391732350306*^9}, {3.4391732663398*^9, 3.4391733861322002`*^9}, {
   3.439173428611*^9, 3.4391734329634*^9}, {3.4391734808554*^9, 
   3.4391735097778*^9}, {3.4391735720998*^9, 3.4391736064354*^9}, {
   3.4391741359462*^9, 3.4391741947581997`*^9}, {3.4391742870945997`*^9, 
   3.4391742896998*^9}, {3.439174354315*^9, 3.4391743781986*^9}, 
   3.4391745171322002`*^9, {3.4391752374778*^9, 3.439175238835*^9}, {
   3.4391752960246*^9, 3.4391752963366003`*^9}, 3.4392678980614*^9, {
   3.4392679357822*^9, 3.4392679608514*^9}, {3.4392685999522*^9, 
   3.439268613337*^9}, {3.4392686813686*^9, 3.4392686843482*^9}, {
   3.4392687587757998`*^9, 3.4392687664666*^9}, {3.4392688639042*^9, 
   3.4392688740442*^9}, {3.4392690333982*^9, 3.4392690350986*^9}, {
   3.4392690848002*^9, 3.439269086953*^9}, {3.4392691320682*^9, 
   3.4392691370446*^9}, {3.4392692522038*^9, 3.4392692526717997`*^9}, {
   3.4396949213073997`*^9, 3.4396949338342*^9}, {3.439821701729*^9, 
   3.4398217017602*^9}, {3.4398235325137997`*^9, 3.4398236082518*^9}, {
   3.442072728375*^9, 3.442072740859375*^9}, 3.442072770984375*^9, 
   3.442072980234375*^9, {3.44207308978125*^9, 3.442073092546875*^9}, {
   3.442073236484375*^9, 3.442073237515625*^9}, {3.442073291515625*^9, 
   3.44207329321875*^9}, {3.44207335646875*^9, 3.442073360296875*^9}, {
   3.442073645015625*^9, 3.442073652953125*^9}, {3.442074161453125*^9, 
   3.44207416228125*^9}, {3.442074231875*^9, 3.442074233796875*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"InterpolatingFunction", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "5.925`"}], ",", "5.925`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "5.925`"}], ",", "5.925`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"10.224100819092516`", ",", "12.308679030970152`"}], "}"}]}], 
     "}"}], ",", "\<\"<>\"\>"}], "]"}],
  False,
  Editable->False]], "Output",
 CellChangeTimes->{
  3.4392679633162003`*^9, 3.4392683176078*^9, 3.4392686267374*^9, 
   3.4392686853310003`*^9, {3.4392687598522*^9, 3.4392687671686*^9}, 
   3.4392688902214003`*^9, 3.439269036487*^9, 3.4392691378557997`*^9, 
   3.4398213989798*^9, 3.439821703523*^9, 3.439823638625*^9, {
   3.44207275178125*^9, 3.44207277371875*^9}, 3.442072948*^9, 
   3.44207299075*^9, 3.442073097953125*^9, 3.442073247015625*^9, 
   3.44207329921875*^9, 3.4420733634375*^9, 3.44207411896875*^9, 
   3.44207416421875*^9, 3.44207424078125*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"scale", "=", 
   RowBox[{"GRI04", "[", 
    RowBox[{"1", ",", "1", ",", 
     RowBox[{"230", " ", 
      SuperscriptBox["10", "9"]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"ContourPlot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"rr", "=", 
     RowBox[{"Log", "[", 
      RowBox[{"2", ",", 
       FractionBox[
        RowBox[{"GRI04", "[", 
         RowBox[{"x", ",", "y", ",", 
          RowBox[{"230", " ", 
           SuperscriptBox["10", "9"]}]}], "]"}], "scale"]}], "]"}]}], ";", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{"rr", "<", 
       RowBox[{"-", "0.5"}]}], ",", "0", ",", "rr"}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "sc"}], ",", "sc"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", 
     RowBox[{"-", "sc"}], ",", "sc"}], "}"}], ",", 
   RowBox[{"PlotPoints", "\[Rule]", "30"}], ",", 
   RowBox[{"Contours", "\[Rule]", "30"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "600"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"BaseStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
      RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
      RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.44207372984375*^9, 3.44207375084375*^9}, {
  3.442074236375*^9, 3.442074236734375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"ttx", "=", 
   RowBox[{"TimeUsed", "[", "]"}]}], ";", 
  RowBox[{"cpl230a04", "=", 
   RowBox[{"DensityPlot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"rr", "=", 
       RowBox[{"Log", "[", 
        RowBox[{"2", ",", 
         FractionBox[
          RowBox[{"GRI04", "[", 
           RowBox[{"x", ",", "y", ",", 
            RowBox[{"230", " ", 
             SuperscriptBox["10", "9"]}]}], "]"}], "scale"]}], "]"}]}], ";", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"rr", "<", 
         RowBox[{"-", "0.5"}]}], ",", "0", ",", "rr"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "sc"}], ",", "sc"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"y", ",", 
       RowBox[{"-", "sc"}], ",", "sc"}], "}"}], ",", 
     RowBox[{"PlotPoints", "\[Rule]", "100"}], ",", 
     RowBox[{"ColorFunction", "\[Rule]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"RGBColor", "[", 
         RowBox[{
          RowBox[{"2", " ", "#1", " ", "csc"}], ",", 
          RowBox[{"#1", "csc"}], ",", 
          RowBox[{"#1", " ", "csc"}]}], "]"}], "&"}], ")"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "600"}], ",", 
     RowBox[{"ColorFunctionScaling", "\[Rule]", "False"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"FrameStyle", "\[Rule]", 
      RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], ",", 
     RowBox[{"Axes", "\[Rule]", "False"}], ",", 
     RowBox[{"BaseStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}]}], 
    "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  RowBox[{"\"\<Calculated in    \>\"", ",", "  ", 
   RowBox[{
    RowBox[{"TimeUsed", "[", "]"}], "-", "ttx"}], ",", "\"\< seconds\>\""}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.4398331758722*^9, 3.4398331994282*^9}, 
   3.4398333043382*^9, {3.4398333417938004`*^9, 3.4398333420902*^9}, {
   3.4398334888705997`*^9, 3.4398335560598*^9}, {3.4398336183194*^9, 
   3.4398336186782*^9}, {3.439833698051*^9, 3.4398337343054*^9}, {
   3.4398338692142*^9, 3.4398339154838*^9}, {3.4398339628142*^9, 
   3.4398340317038*^9}, {3.4398340856642*^9, 3.4398341381113997`*^9}, {
   3.4398341897005997`*^9, 3.4398342246758003`*^9}, {3.4398344557742*^9, 
   3.4398346223822002`*^9}, {3.4398346923794003`*^9, 
   3.4398347832650003`*^9}, {3.4398351442178*^9, 3.4398351449354*^9}, {
   3.4398352037318*^9, 3.4398352044026003`*^9}, {3.4398352568966*^9, 
   3.4398352573958*^9}, {3.4398354085285997`*^9, 3.4398354285122004`*^9}, {
   3.4398354874802*^9, 3.4398354875114*^9}, {3.4398355594586*^9, 
   3.4398355601762*^9}, {3.439835635337*^9, 3.4398356358986*^9}, {
   3.4398358308050003`*^9, 3.4398358365302*^9}, {3.4398359421266003`*^9, 
   3.4398359524382*^9}, 3.4398360667706003`*^9, {3.442073497734375*^9, 
   3.442073503296875*^9}, {3.442073549828125*^9, 3.442073640171875*^9}, 
   3.44207422590625*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Calculated in    \"\>", "\[InvisibleSpace]", 
   "12.420999999999996`", "\[InvisibleSpace]", "\<\" seconds\"\>"}],
  SequenceForm["Calculated in    ", 12.420999999999996`, " seconds"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.439833265697*^9, {3.4398334819754*^9, 3.4398335231438*^9}, 
   3.4398335548898*^9, 3.4398335882738*^9, 3.4398336448238*^9, 
   3.439833754133*^9, 3.4398338389969997`*^9, 3.4398339356546*^9, {
   3.4398339926414003`*^9, 3.4398340234982*^9}, 3.4398340539962*^9, {
   3.4398341139782*^9, 3.4398341419178*^9}, {3.439834195535*^9, 
   3.439834234223*^9}, {3.4398344672869997`*^9, 3.439834495601*^9}, {
   3.4398345338677998`*^9, 3.439834557455*^9}, {3.4398345978122*^9, 
   3.439834631711*^9}, {3.4398347074958*^9, 3.4398347944189997`*^9}, 
   3.44207354321875*^9, 3.44207359215625*^9, 3.442073633265625*^9, 
   3.442074290859375*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"ContourPlot", "[", 
  RowBox[{
   RowBox[{"Log", "[", 
    RowBox[{"2", ",", 
     FractionBox[
      RowBox[{"GRI04", "[", 
       RowBox[{"x", ",", "y", ",", 
        RowBox[{"230", " ", 
         SuperscriptBox["10", "9"]}]}], "]"}], "scale"]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "sc"}], ",", "sc"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", 
     RowBox[{"-", "sc"}], ",", "sc"}], "}"}], ",", 
   RowBox[{"PlotPoints", "\[Rule]", "30"}], ",", 
   RowBox[{"Contours", "\[Rule]", "30"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "600"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"BaseStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
      RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
      RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.442073802671875*^9, 3.44207380571875*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["Plots: visualizing a vector field", "Section",
 CellChangeTimes->{{3.441994228640625*^9, 3.441994230828125*^9}, {
  3.44199611396875*^9, 3.441996116515625*^9}, {3.4420641345625*^9, 
  3.442064152046875*^9}}],

Cell[BoxData[
 RowBox[{"VectorPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "1"}], "-", 
      RowBox[{"x", "^", "2"}], "+", "y"}], ",", 
     RowBox[{"1", "+", "x", "-", 
      RowBox[{"y", "^", "2"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", 
     RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.44206282390625*^9, 3.442062853078125*^9}}],

Cell[BoxData[
 RowBox[{"StreamPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "1"}], "-", 
      RowBox[{"x", "^", "2"}], "+", "y"}], ",", 
     RowBox[{"1", "+", "x", "-", 
      RowBox[{"y", "^", "2"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", 
     RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.442062881109375*^9, 3.44206288590625*^9}}],

Cell[BoxData[
 RowBox[{"LineIntegralConvolutionPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "1"}], "-", 
      RowBox[{"x", "^", "2"}], "+", "y"}], ",", 
     RowBox[{"1", "+", "x", "-", 
      RowBox[{"y", "^", "2"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", 
     RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "600"}], ",", 
   RowBox[{"RasterSize", "\[Rule]", "300"}], ",", 
   RowBox[{"LineIntegralConvolutionScale", "\[Rule]", "0.6"}], ",", 
   RowBox[{"ColorFunction", "\[Rule]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"GrayLevel", "[", "#", "]"}], "&"}], ")"}]}], ",", 
   RowBox[{"BaseStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"FontSize", "\[Rule]", "16"}], ",", 
      RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", "Bold"}], 
     "}"}]}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.442063577921875*^9, 3.442063621296875*^9}, {
  3.442064217171875*^9, 3.442064264890625*^9}, {3.442069578*^9, 
  3.442069589046875*^9}}],

Cell[BoxData[
 RowBox[{"LineIntegralConvolutionPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "1"}], "-", 
      RowBox[{"x", "^", "2"}], "+", "y"}], ",", 
     RowBox[{"1", "+", "x", "-", 
      RowBox[{"y", "^", "2"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", 
     RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "600"}], ",", 
   RowBox[{"RasterSize", "\[Rule]", "300"}], ",", 
   RowBox[{"LineIntegralConvolutionScale", "\[Rule]", "0.6"}], ",", 
   RowBox[{"ColorFunction", "\[Rule]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"GrayLevel", "[", "#", "]"}], "&"}], ")"}]}], ",", 
   RowBox[{"StreamPoints", "\[Rule]", "Fine"}], ",", 
   RowBox[{"StreamStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<Line\>\"", ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Thin", ",", "LightGreen"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"BaseStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"FontSize", "\[Rule]", "16"}], ",", 
      RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", "Bold"}], 
     "}"}]}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.442062655609375*^9, 3.4420626811875*^9}, {
  3.442062774328125*^9, 3.44206281615625*^9}, {3.4420630139375*^9, 
  3.442063059828125*^9}, {3.4420631705625*^9, 3.44206318340625*^9}, {
  3.442063226125*^9, 3.44206324684375*^9}, {3.442063355796875*^9, 
  3.44206335625*^9}, {3.442063412078125*^9, 3.442063500765625*^9}, {
  3.44206428421875*^9, 3.44206428775*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["Plots: the actual paper", "Section",
 CellChangeTimes->{{3.441994228640625*^9, 3.441994230828125*^9}, {
  3.441996106578125*^9, 3.441996110078125*^9}}],

Cell[BoxData[
 ButtonBox[
  RowBox[{
  "Spherical", " ", "accretion", " ", "with", " ", "MHD", " ", "turbulence"}],
  BaseStyle->"Hyperlink",
  ButtonData->{
    FrontEnd`FileName[{
      ParentDirectory[
       ParentDirectory[
        ParentDirectory[
         ParentDirectory[]]]], "mathematica", "accretion", "new"}, 
     "MDot fitting 18 integration to paper eps automatic.nb", 
     CharacterEncoding -> "WindowsCyrillic"], None}]], "Input",
 CellChangeTimes->{{3.44199471365625*^9, 3.441994714421875*^9}, {
  3.441994785390625*^9, 3.441994821078125*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
EventLocator: simple example with singularity (can be used to detect sonic \
points, horizon crossing)\
\>", "Section",
 CellChangeTimes->{{3.44207657384375*^9, 3.44207660365625*^9}, {
  3.442076673640625*^9, 3.4420766795625*^9}, {3.44207692490625*^9, 
  3.442076928203125*^9}, {3.442077502765625*^9, 3.44207752303125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"sol", "=", 
   RowBox[{
    RowBox[{"NDSolve", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"x", "'"}], "[", "t", "]"}], "\[Equal]", 
         FractionBox["1", 
          RowBox[{"1", "-", 
           RowBox[{"x", "[", "t", "]"}]}]]}], ",", 
        RowBox[{
         RowBox[{"x", "[", "0", "]"}], "\[Equal]", "0"}]}], "}"}], ",", "x", 
      ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", "0", ",", "1"}], "}"}]}], "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"oops", "!"}], " ", "singularity"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"x", "[", "t", "]"}], "/.", "sol"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "1"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "2"}], "}"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.44207672653125*^9, 3.442076915671875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"NDSolve", "::", "\<\"ndsz\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"At \\\\\\\"\\\", \\\"MT\\\"]\
\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(t\\), \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" == \\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(0.4999997400558306`\\), \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\", step size is \
effectively zero; singularity or stiff system suspected.\\\\\\\"\\\", \
\\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/NDSolve/ndsz\\\", ButtonNote -> \
\\\"NDSolve::ndsz\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.44207676515625*^9, 3.442076916234375*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"x", "\[Rule]", 
   TagBox[
    RowBox[{"InterpolatingFunction", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"0.`", ",", "0.4999997400558306`"}], "}"}], "}"}], 
      ",", "\<\"<>\"\>"}], "]"}],
    False,
    Editable->False]}], "}"}]], "Output",
 CellChangeTimes->{{3.44207676515625*^9, 3.442076916234375*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJw9hwlUzHkAxytsckS6dDgma6SoaBab+A5lo5QOqSxZSdSucsxuRYQGiQo5
JqIiz2Oi0uFm1BQ7rwnpNDP/n9U085+rsNWUxK637+3nvc/7vA8jKiF4s5GB
gcHaf/1W3830K4EqdLEppXr7rcO9bLcTGxamZratF9iy4J7Pyyu38YZjsdlg
iJ03/MStty/arIbgdwPTBvvVCIvWPzplE40HAfYFminRkLke8cq04WCJm9FD
NpODAstVhzNsuMjY55E3xp2LAyPLZxy1OY1pP+lLx/qfRnhEYcn7D0U4mBQS
Ex59FaO/HljnM7kEfQOdj5jjSzE9qIuuOVYBEy5TXLqjEokNP4LXcw/haYOa
ot8ewLrCjDI0fILcBQ4Ji3IEqHrnVf/CsxqTr/3pHFNTg+q4i3YRWiGiFtzf
L/xch17monE3tz3D4QsFQ25WIhgN8MfbTReBa1zcX50lxryvv1SF3KqHg2zE
UC3nJeq5rIY6pxcwTQgT9zo2YsoJzcD1rpe4EawURVg2QaMnVLNbI47Wh760
6m1GkfqByDTrNSJDV+m4Vm0wnXStWy5vwmLFUkL7vcHx2MqYgu9bkOKa/rxx
txR9bL58a2orGnpbRA+NCDhzhRVWNW2os9/V1v/sLcgt4bFXjDfwnRhcarzy
HQbjmi7M3C2B08GnIo/+Dqyet/6kS6oEwucVPNWXDhQbKg67cyWo3lPFyBsh
RyRPv2NRlgSb0q7uG2Mux9Na2+VBlyX4tYAz0c5FjiNTN/YkiSSoXXTyj95o
OcxbdCuf20pxPi55aWOzHM5LjL/EPJBio4XK07auE6U3+DPaBFIU+pdnFzZ0
gmURGLSiToqAbPZYt9ZOeCp5Rc6vpHAdkL+IojsRkOnk914hxZMfarYwRiuw
s92flzxBhj3d97MsghW4t+P03OOxMqT5PrXkKBRYLFmwbiheBp16T+Wo9wpU
e8sOxXNkWGs9LZ0/oIDImtkemCqDRXiJz5ixSkgf3Um1PCNDzoqtNf4sJQxG
SeovCWRIGead+YGrhM9lxpYyawol6Z8celxpsHimzDp7Cv17R/dEedCYmjUo
f8OgYNKubyPeND4lN0cNn0WhsCDpxfC1NG4GHY0MY1OYZdJpYnSIhrnhh9Ch
rRSONVVZjqBoGOhlFhPiKVztczbhqGhotaLXzF0UlM7FJ3t7aNS1FQUF7qXg
w8h5NWeMCsml4f5XTlLoaf24I3ehCmSDwHvFfQrTixWG6ZdUqA+9OSzyCYVo
0ewjwXwV7vqdr94ppOAeVzd2/l0VTs3nsPMaKFCtUc2BjSosG+fo2f2OgtNc
neCNsRr8x9nuZ0YTCDOXab8kqcGrSPl4fTzBlnG71M+OqMG9EVv22JJgKisx
5N5ZNSLPernSUwjyR/o221aqYRavd1rIIkjgpLQb9qiROGmDw1/rCNxmpduY
pGgQFei2RrqRQGflU9SYqUFAmmFGawxBbMbmNHm+BkzVlQ/i7QSlMx3yu4Ua
NFXQgvtcguzc4Yn25loIlPd6Ko8SWIeFdeXP0IJve8yxLIsAMQsYOZ5aHNw/
+8Q1HoEy9nGpcosWbit3bjhdTNBiOqc9olYL+1SvnOwygsfbR5bHUloY37Z4
llFFYBo5i7+8XwvK+o7LAQGBe9VdRoOLDiLf9KiUWoJp+3MPFPvpULk34myi
iMC877ywPlaH4x2DQ9uaCOLE/fxzN3RIshLPiW0nCDpnzHou1mHTikuboykC
j5C9J0L+1iEgJSF3QwfB13i2rNauCx4lbPFamkC/vUWi8ekC852Z4RodAc1u
GvldchfMLDtYQR8J5ps5lrPLuvDZp2LrSj3Bp75CF/PeLtC7D+X5fCaI/zmg
81BQ9/9v8B/sfwBV0N31
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 1}, {0, 2}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], Automatic}]], "Output",
 CellChangeTimes->{{3.44207676515625*^9, 3.442076916296875*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"sol", "=", 
   RowBox[{
    RowBox[{"NDSolve", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"x", "'"}], "[", "t", "]"}], "\[Equal]", 
         FractionBox["1", 
          RowBox[{"1", "-", 
           RowBox[{"x", "[", "t", "]"}]}]]}], ",", 
        RowBox[{
         RowBox[{"x", "[", "0", "]"}], "\[Equal]", "0"}]}], "}"}], ",", "x", 
      ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", "0", ",", "1"}], "}"}], ",", 
      RowBox[{"Method", "\[Rule]", "\"\<StiffnessSwitching\>\""}]}], "]"}], 
    "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"oops", "!"}], " ", "singularity"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"x", "[", "t", "]"}], "/.", "sol"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "1"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "2"}], "}"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.442076946078125*^9, 3.442076974578125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"NDSolve", "::", "\<\"ndsz\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"At \\\\\\\"\\\", \\\"MT\\\"]\
\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(t\\), \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" == \\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(0.49999998672321627`\\), \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\", step size is \
effectively zero; singularity or stiff system suspected.\\\\\\\"\\\", \
\\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/NDSolve/ndsz\\\", ButtonNote -> \
\\\"NDSolve::ndsz\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.442076957875*^9, 3.442076975109375*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"x", "\[Rule]", 
   TagBox[
    RowBox[{"InterpolatingFunction", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"0.`", ",", "0.49999998672321627`"}], "}"}], "}"}], 
      ",", "\<\"<>\"\>"}], "]"}],
    False,
    Editable->False]}], "}"}]], "Output",
 CellChangeTimes->{{3.4420769579375*^9, 3.442076975125*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJw9kHs0lAkAxU1bqeyqEVnUlhTCqnAqi65dWkTWbGGVpSRLu1TMLjo0WVJE
HuFMStnSi9DUyFZi8qompDLRPL5vmxnjm2cpZVuvrXP27D3nnt+5596/rmXU
nu93TdPT09v+wR+5cRf1mKcMXq/XdEnwkdO9zPeSZi4oWs/NvmzuAucz7FPX
zbzB3dwo9bHwhn93/7UKsy0wMYxq7Fy4BaHRo3eKzaLRMTizWbE4GpKVh73y
zZhgDM7z8LBmotLku+xcsyz8HV1yZ45zFjJmXbfJMStBUvwFq882leCHsD/q
Xw1XYdJqdX1I9HkYTGWE+3xRD4X+zr+s5l3FcoaOajvKRc2libl1+xqQ3OMK
9shNvD9f6rr1l9sw5dIJGq0FfIN/AqaKebgh9ep65N4K2ymGyq2tDa27KyzC
NO2w/DlGdne8E2+tPebWxt9Dww6D396a8DHtfc08i+V8MNmtzDf53Vgztf3G
5rouONqmZPoxe9GV5dLTafcIaqENamyfYHGh+v1lXS9ODNM6Qkz6oB4lCcGq
J0jX5TWljAhQpbrNNzz2FO2NjbJM4wEYLrr4Ui7vw/mHzNVFfkLkxTXEVC57
BrvrnG9zU8V451kjj2X1o3k8+PGtaSSYTu3cBW0DEK6cIchr+QtkXfvRx5ZC
LKgscYh1lqJXO13jZCNEc0OCH8tVCp7DhoASByGqpHJ6OaSorO74NHStEKHx
tA6hvxRRFzrzxQFCVHAPFORES6GouF8wlCxESdr5onNlUmjzuo5PdAvxIINl
rzcpxdjuvpMr9oswk/i6yUgkw5Y1PxY5skTgT9vTJXghwxWaIts5SwSj0uOt
FZQMEezRfR7HREicXLff/Z0MdzvMfRlnRXDgOz5ooMtxeMmOkRS+CDlJpckV
fnLMf6YNuG8uhjz9flX8HTnsv9afjLktxqzhQu6vNwZxtbrGZoAnRlka3Si4
ZRAuxkEMv04xPKcW0d3vD8J9iF1l/1iM/jmBxpbCQQTm2/m/UogRY7nKyHdy
EInPN7FTjSSoO2A/g+6rwM19JU55cRJsLUgpuvdCgfWideETCRIM6dwGqtUK
tHpLDiUwJXgUsKy97K0CfFPr50EsCdjL+muOzB6C+E4jy6RUgr126grB6iHo
zRF1neZJ8Ozu2HKLrCH4nLX8iWNKgGXdKz+8koIL29C6cyGB7HWJ8f2uFJYc
G5MLLT/0nbesnLwp/JMqiJruQGAFJy3JIIxCLSMnItSTgJPHPtOITArzacPB
E7EEFszNcdQXUdAblRgbJRAoO9S2LEhBQaPhP7VOIrBLdoJTO0yhc6CKEZRO
oLs+VHlplhKpV3/YdK6IwCn9Dt+ra5UgI3nefrcIOBc/ycouV6IruPaTiBYC
iqXjyZEXlfjTv7w1sZ3ANzMbd4dwlShey/Q81UPg+eIvLlf2KLFhrq37SymB
QPNIWuN0FWqaC5xLDUhsM/hckpCsApub9vryPBJ//3w4PCFbhazqOE6zCYny
3HTv0lIVIsq8VlKLSTwKd7u0jasCPWHUzs2FxMPe6jWiNyokL4pc+iKcxMvP
PX1oaWpEBa0KEe8gMSPNpPZhvhqBmbTc/hgSbrKeV8QZNayV54a795KwPSlY
r2lXo49L8W5lkYiwrJg9Z74GvKGbIw05H/aZGV/m2WhQY37UlnOMxAsqiTjo
rsHvB78svMgm0eY1mET8pMGqgMTIkiskUlQr9hh1aLCQ5XW8gEOiOY5jNSHR
QP+a8b3cGyRu/s4xah3VgDBtdMzgkdhe/JnrJkct+BuPRKV1kPAvkjYF+GvR
kB5WlswnEfvVUuMTcVrkycYm4vtIGArSNYXVWqQs6F4d95xENsuXfrdbi51+
p3dFEyRqN5tR/m+0CEzbcyJSRuJsXZzpFQsdvqr37N5KkShc+lTY46ODtZRO
C9GSCLO3SB1L0YFuInNhvP7w35Xyp04cHcZ9uLEBoySWtFy40DSiA7X/0Cmf
cRJO1/23xTFe/p/1/tO/tiERbg==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 1}, {0, 2}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], Automatic}]], "Output",
 CellChangeTimes->{{3.4420769579375*^9, 3.442076975203125*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"sol", "=", 
   RowBox[{
    RowBox[{"NDSolve", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"x", "'"}], "[", "t", "]"}], "\[Equal]", 
         FractionBox["1", 
          RowBox[{"1", "-", 
           RowBox[{"x", "[", "t", "]"}]}]]}], ",", 
        RowBox[{
         RowBox[{"x", "[", "0", "]"}], "\[Equal]", "0"}]}], "}"}], ",", "x", 
      ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", "0", ",", "1"}], "}"}], ",", 
      RowBox[{"Method", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"\"\<EventLocator\>\"", ",", 
         RowBox[{"\"\<Event\>\"", "\[Rule]", 
          RowBox[{
           RowBox[{"x", "[", "t", "]"}], "-", "0.999"}]}], ",", 
         RowBox[{"\"\<EventAction\>\"", "\[RuleDelayed]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"t11", "=", "t"}], ";", 
            RowBox[{"Throw", "[", 
             RowBox[{"Null", ",", " ", "\"\<StopIntegration\>\""}], "]"}]}], 
           "}"}]}]}], "}"}]}]}], "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"oops", "!"}], " ", "singularity"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"x", "[", "t", "]"}], "/.", "sol"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "t11"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.442077031546875*^9, 3.442077154125*^9}, {
   3.442077335828125*^9, 3.442077378515625*^9}, 3.44207741290625*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"x", "\[Rule]", 
   TagBox[
    RowBox[{"InterpolatingFunction", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"0.`", ",", "0.49999924017194475`"}], "}"}], "}"}], 
      ",", "\<\"<>\"\>"}], "]"}],
    False,
    Editable->False]}], "}"}]], "Output",
 CellChangeTimes->{{3.44207706609375*^9, 3.442077079390625*^9}, {
   3.44207713321875*^9, 3.44207715446875*^9}, {3.442077338359375*^9, 
   3.44207737903125*^9}, 3.442077413671875*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVkHs4lIkCxiehSYpRViM2g9yKnJZW0b7bolPIbraULbee2tou47EuB7l0
Gcc1mtJuF+0g0VCSS1Hu19kUExKG76MRc5+mnCjk2D/e5/fX+/ze52UcDvE5
qkahUE4v5B9Kgpxu14ndv0veXl30D7da3goZppuDmVNWE2Jojr9H1mY/pDug
beCH/142dAB7W3DZTbobtNv0l7usccP/pOdqL9H34qAga1Wj0V5Yuuq5ptGP
wC8/wWRs7RE0MAcTk+nh0Nu6b9rZIhzprO8sk+gsxHPYDku/YWF9NOe6QpUF
34FWmdT6Kj69N3F1+5oDc8HTbtObHNwJow83puVjJmbZxYZP+Sh6E829OsmF
zZQs3aSgCKYfbrR/oTzA5cdcjWRKKVxqds28cCmDQNirx3hXhmRjG839sgpk
0GxUGwWVyOiSVBedfozA2sDwpOwqqLkYRK5e9wR/mXF2zOU9hf0nM8FPJTV4
a/3ve/4JdfjSm1XebFOPBIvcxS7FDbhV6eRxV9GA8zksLzXnJqy2NtDptW/C
tH3Vt86VzeiIXt+vndGMVR+nck32taJzQDX4ZqwF15Is4u59aIPdYatNf5m3
YTiJLDWJ5aG1PevirwntKJT+GRy54Rmq94VuW9XMw9EoL112WwfGGi6oOhnP
4NT9TVx06gsEOe8kLWI6oHLpX2nn3QUnIpZx5Olz5JnK+ew4PnYGTBwrMejE
WIfgxn9OvESlZpMacagLHSlmg589u7ElsPDkq918LO4RBfjb9qCcSz3Q9JkP
2hXbkjmLXhyk5ikY2S8haA/av0L/FTj7fJdQF3qlvrwALeM+pBUJa2o+dsNs
tKXrgcVr3FnJNRr7owcr54uTH5r34+DJlC9st14kzPhUJmAAeJ2bWjbei8Cz
xhnT3oPo8LhSnpv4CmFeKc7VQQJ8uMcJMNjUB1km77nxlSF4mI2Vz3f3IV7/
nVfuk2G4JLumMc+9hiXbZCdXk4T/IoH2Twuegt5C7RjzEVic91xPaelHtvKO
j4I3glRVX8fm0AEMzqsm0i+MwjjixlcjeoNYVFGlnrP1DTwnooQ6TYPINBDL
j2sLYRpsv3sFU4ADUcXp60VCWCrXBiesGIJnhNTcvWUMvJM2U5E1Q+h01xc1
t7/Fn7Onvh0NGEbksWfhrT3jWHE1eZXhl2EcfYhLm2cnYBOiofeCQsDaNJF/
c5EIO3ad1zm7mEBFbFGV+hIREubOaI1TCZit598apYnw7mgIpWwlAQeaRTLP
UoSezb6yXdYE/CfPtO/ZK8K1frOW6L0LfZbjfXapCBVlOY0b9hMobtSKiH0k
Aj/duJ70IxCdVrriVI0IS7cbPHEPJECv4wj9eCLEcLVKaScIuHPeHg0dEeFQ
jOomN4HAb7lLa2/SxGAY1YcNFBFQ5Nl4uUeJkdE35hxwn0DnhJIaHi/G7CUt
deEDArMC6v27LDH6NHyzZBUEDjV0Kc3YYqQqZRXzdQROq8ZxpEiM902GH9f1
ENidGZFqRIjR9Ftk1O8zBP7FsG+gekqw0Tz7+6k5AiecJ4eMfCTIJhqpsRQS
KeVbBrf4SRD58/LriRokEp/TZzOOSWCzLb/6mg6JZ8IKNpclwWXd7s91ZiTu
uU+2NDVIcPixbdwyLxL8E592DWyXArW7fxB4k5hpfaQR6CmFUfPpJcV7SJza
Inac3itFX+d9tsd+EueW3Xnx63EpPMZtC1IOk7je1KPhekmKTfp2XUuiSXCq
vFnnxqTQWeOd9foMidt7Hq1kKaWQmTD9CuNJXO0625n/WYqCDSXCHawFP0Mz
140mg6Gb3XRiJokNBkS68fcyLA6zY6gXkHj+R6Mk9I4MI1He4z13STiy8o2m
ymSoi2cW3y4m4S4dSqpokCEqtcTR9eHCPt2RAeGQDLJcO4/zNSTeoNg2YrUc
fxd66/jUkxhnTkcbWclRcJ/Zy2giMTUU1rXGSY6g6pKAxnYSiKO2OfvJ0cu3
C6P0kCAVeddGc+R42OftxH9FopnOULOqkCNjiDnH6Sex9v2BSn2eHDtFJUkg
SHTl+Og6vJdjnaLTS2eUhJy2TfcqVQG1SQWNFJIQ1GeMUEwUqJm3y44Xk7j0
9PdQro8C1zV+DPaWkVA3X+sbzFQgclmIxddKEi/L+8us0hX4mZYplasW/mbG
/ph6TwF7gweltZMkeDqv5b/wFVhu3BVxcWrBX32+k/JJAYmpcqv/ZxIX2g0G
HK2VaLfSodjOLeyvKv+w6LgS+XYbW2fnSWgzNDOqp5T4P3hyenk=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 0.49999924017194475`}, {0, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], Automatic}]], "Output",
 CellChangeTimes->{{3.44207706609375*^9, 3.442077079390625*^9}, {
   3.44207713321875*^9, 3.44207715446875*^9}, {3.442077338359375*^9, 
   3.44207737903125*^9}, 3.442077413734375*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
EventLocator and Manipulate: geodesics in Schwarzschild metric\
\>", "Section",
 CellChangeTimes->{{3.442076689171875*^9, 3.442076706078125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"this", " ", "part", " ", 
    RowBox[{"doesn", "'"}], "t", " ", "need", " ", "to", " ", "be", " ", 
    "modified"}], "*)"}], 
  RowBox[{
   RowBox[{
    RowBox[{"Off", "[", 
     RowBox[{
      RowBox[{"General", "::", "\"\<unfl\>\""}], ",", 
      RowBox[{"General", "::", "\"\<ovfl\>\""}], ",", 
      RowBox[{"InterpolatingFunction", "::", "\"\<dmval\>\""}]}], "]"}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"traj", "[", 
     RowBox[{"dir_", ",", "bb_", ",", "r0_"}], "]"}], ":=", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"sw", "=", "1"}], ";", 
      RowBox[{"\[Phi]1", "=", "20"}], ";", 
      RowBox[{"d", "=", "dir"}], ";", 
      RowBox[{"\[Eta]", ":=", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"sw", "\[Equal]", "1"}], "&&", 
          RowBox[{
           RowBox[{"Re", "[", 
            RowBox[{"(", 
             RowBox[{
              FractionBox["1", 
               SuperscriptBox["b", "2"]], "-", 
              RowBox[{
               FractionBox["1", 
                SuperscriptBox[
                 RowBox[{"r", "[", "\[Phi]", "]"}], "2"]], 
               RowBox[{"(", 
                RowBox[{"1", "-", 
                 FractionBox["1", 
                  RowBox[{"r", "[", "\[Phi]", "]"}]]}], ")"}]}]}], ")"}], 
            "]"}], "<", 
           SuperscriptBox["10", 
            RowBox[{"-", "6.1"}]]}]}], ",", 
         RowBox[{
          RowBox[{"sw", "=", 
           RowBox[{"-", "1"}]}], ";", 
          RowBox[{"d", "=", 
           RowBox[{"-", "d"}]}]}], ",", "d"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"bb", "<", "0"}], ",", 
        RowBox[{
         RowBox[{"\[Phi]1", "=", 
          RowBox[{"-", "\[Phi]1"}]}], ";", 
         RowBox[{"d", "=", 
          RowBox[{"-", "d"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"res", "=", 
       RowBox[{
        RowBox[{"NDSolve", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"r", "'"}], "[", "\[Phi]", "]"}], "\[Equal]", 
              RowBox[{"\[Eta]", " ", 
               SuperscriptBox[
                RowBox[{"r", "[", "\[Phi]", "]"}], "2"], 
               SqrtBox[
                RowBox[{"(", 
                 RowBox[{
                  FractionBox["1", 
                   SuperscriptBox["b", "2"]], "-", 
                  RowBox[{
                   FractionBox["1", 
                    SuperscriptBox[
                    RowBox[{"r", "[", "\[Phi]", "]"}], "2"]], 
                   RowBox[{"(", 
                    RowBox[{"1", "-", 
                    FractionBox["1", 
                    RowBox[{"r", "[", "\[Phi]", "]"}]]}], ")"}]}]}], 
                 ")"}]]}]}], ",", 
             RowBox[{
              RowBox[{"r", "[", "0", "]"}], "\[Equal]", "r0"}]}], "}"}], "/.", 
           RowBox[{"b", "\[Rule]", "bb"}]}], ",", "r", ",", 
          RowBox[{"{", 
           RowBox[{"\[Phi]", ",", "0", ",", "\[Phi]1"}], "}"}], ",", " ", 
          RowBox[{"StartingStepSize", "\[Rule]", 
           SuperscriptBox["10", 
            RowBox[{"-", "4"}]]}], ",", 
          RowBox[{"Method", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"\"\<EventLocator\>\"", ",", " ", 
             RowBox[{"\"\<Event\>\"", "\[Rule]", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"Re", "[", 
                  RowBox[{"r", "[", "\[Phi]", "]"}], "]"}], "<", 
                 SuperscriptBox["10", 
                  RowBox[{"-", "3"}]]}], ")"}], "||", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"Re", "[", 
                  RowBox[{"r", "[", "\[Phi]", "]"}], "]"}], ">", "1000"}], 
                ")"}]}]}], ",", 
             RowBox[{"\"\<EventAction\>\"", "\[RuleDelayed]", " ", 
              RowBox[{"Throw", "[", 
               RowBox[{
                RowBox[{"\[Phi]1", " ", "=", " ", "\[Phi]"}], ",", " ", 
                "\"\<StopIntegration\>\""}], "]"}]}], ",", 
             RowBox[{
             "\"\<EventLocationMethod\>\"", "->", 
              "\"\<LinearInterpolation\>\""}], ",", 
             RowBox[{"Method", "->", "\"\<ExplicitRungeKutta\>\""}]}], 
            "}"}]}], ",", 
          RowBox[{"MaxSteps", "\[Rule]", "20000"}]}], "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"PolarPlot", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"r", "[", "\[Phi]", "]"}], "/.", "res"}], ",", 
        RowBox[{"{", 
         RowBox[{"\[Phi]", ",", "0", ",", "\[Phi]1"}], "}"}], ",", 
        RowBox[{"PlotRange", "\[Rule]", "15"}], ",", 
        RowBox[{"ImageSize", "\[Rule]", "700"}], ",", 
        RowBox[{"Frame", "\[Rule]", "True"}], ",", 
        RowBox[{"Epilog", "\[Rule]", 
         RowBox[{"Circle", "[", "]"}]}]}], "]"}]}], ")"}]}], 
   "\[IndentingNewLine]", 
   FractionBox[
    SqrtBox["27."], "2"]}]}]], "Input",
 CellChangeTimes->{{3.415800853140625*^9, 3.415800909671875*^9}, {
   3.415801031125*^9, 3.4158011754375*^9}, {3.41580217328125*^9, 
   3.41580217340625*^9}, {3.415802369359375*^9, 3.41580236996875*^9}, {
   3.415802414625*^9, 3.415802433703125*^9}, {3.415802627921875*^9, 
   3.41580263871875*^9}, {3.415802706234375*^9, 3.415802714078125*^9}, 
   3.415802793*^9, {3.415802850625*^9, 3.41580285134375*^9}, 
   3.415802926453125*^9, {3.4158031686875*^9, 3.4158031695625*^9}, {
   3.415803301484375*^9, 3.4158033139375*^9}, {3.415803354171875*^9, 
   3.415803419671875*^9}, {3.415803561859375*^9, 3.41580356840625*^9}, 
   3.415803614796875*^9, {3.4158036646875*^9, 3.4158036863125*^9}, {
   3.4158040004375*^9, 3.4158040048125*^9}, {3.4158041568125*^9, 
   3.41580415746875*^9}, {3.415804205015625*^9, 3.41580422371875*^9}, {
   3.415804255234375*^9, 3.415804258203125*^9}, {3.41580441784375*^9, 
   3.41580441821875*^9}, {3.4158044625*^9, 3.415804465703125*^9}, {
   3.415804512671875*^9, 3.415804549328125*^9}, {3.41580459878125*^9, 
   3.4158046925*^9}, {3.415804735390625*^9, 3.415804741140625*^9}, {
   3.415804788109375*^9, 3.415804795578125*^9}, {3.41580679328125*^9, 
   3.415806958078125*^9}, {3.41580699509375*^9, 3.415807016515625*^9}, {
   3.4158070536875*^9, 3.41580706065625*^9}, {3.415807109390625*^9, 
   3.415807120125*^9}, 3.41580715834375*^9, {3.415807200984375*^9, 
   3.41580725471875*^9}, {3.4158073975625*^9, 3.41580741978125*^9}, {
   3.415807566046875*^9, 3.41580758409375*^9}, {3.415807690390625*^9, 
   3.41580769359375*^9}, {3.415807751609375*^9, 3.41580775196875*^9}, {
   3.4158080143125*^9, 3.415808040640625*^9}, {3.4158080896875*^9, 
   3.41580809525*^9}, {3.41580814034375*^9, 3.415808140515625*^9}, {
   3.415808171015625*^9, 3.415808178546875*^9}, {3.415808277546875*^9, 
   3.415808285375*^9}, {3.4158083995*^9, 3.415808399640625*^9}, {
   3.415808470921875*^9, 3.415808488609375*^9}, {3.415808523984375*^9, 
   3.41580857784375*^9}, {3.415808615984375*^9, 3.415808709734375*^9}, {
   3.41580880709375*^9, 3.41580885321875*^9}, {3.41580909871875*^9, 
   3.4158091300625*^9}, {3.4158091874375*^9, 3.41580918784375*^9}, {
   3.415809258625*^9, 3.415809259828125*^9}, {3.4158093616875*^9, 
   3.41580938553125*^9}, 3.41580942078125*^9, {3.415809481890625*^9, 
   3.41580950646875*^9}, {3.41580955184375*^9, 3.415809576671875*^9}, {
   3.41580965159375*^9, 3.4158096516875*^9}, {3.415809691625*^9, 
   3.41580973084375*^9}, {3.415809997515625*^9, 3.415809997671875*^9}, {
   3.415810071765625*^9, 3.415810147359375*^9}, {3.41581018940625*^9, 
   3.415810194296875*^9}, 3.4158102764375*^9, {3.415810614984375*^9, 
   3.415810621015625*^9}, {3.415810686390625*^9, 3.41581068678125*^9}, {
   3.4158110815*^9, 3.415811115515625*^9}, {3.415811290578125*^9, 
   3.415811290640625*^9}, {3.41581134984375*^9, 3.41581135053125*^9}, {
   3.415811767796875*^9, 3.415811768109375*^9}, {3.41581233621875*^9, 
   3.41581233678125*^9}, {3.415813118765625*^9, 3.415813125609375*^9}, {
   3.415813234984375*^9, 3.415813257546875*^9}, {3.415813320109375*^9, 
   3.415813330328125*^9}, 3.4158138914375*^9, {3.41581397371875*^9, 
   3.4158139745*^9}, {3.415819460609375*^9, 3.41581950640625*^9}, {
   3.41581956240625*^9, 3.415819602359375*^9}, {3.415819657171875*^9, 
   3.415819662921875*^9}, {3.41581974609375*^9, 3.415819819375*^9}, {
   3.41581986653125*^9, 3.41582001678125*^9}, {3.41582007625*^9, 
   3.415820130703125*^9}, {3.415820166234375*^9, 3.41582019296875*^9}, {
   3.41582032140625*^9, 3.415820366296875*^9}, {3.415820396765625*^9, 
   3.4158204328125*^9}, {3.41582048984375*^9, 3.415820536171875*^9}, {
   3.415820568046875*^9, 3.415820748578125*^9}, {3.41596990015625*^9, 
   3.415969917828125*^9}, {3.41596994965625*^9, 3.415969950109375*^9}, {
   3.41597000128125*^9, 3.415970004828125*^9}, {3.415970166328125*^9, 
   3.415970167984375*^9}, {3.415970200609375*^9, 3.415970234453125*^9}, {
   3.4159703958125*^9, 3.41597039621875*^9}, {3.4159704666875*^9, 
   3.41597048671875*^9}, {3.41597055525*^9, 3.415970582765625*^9}, {
   3.415970800484375*^9, 3.415970800640625*^9}, {3.41597085565625*^9, 
   3.41597085571875*^9}, {3.4159711263125*^9, 3.415971126375*^9}, 
   3.44207469534375*^9, {3.4420776181875*^9, 3.442077618671875*^9}}],

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

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"traj", "[", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "impact", ",", "rad"}], "]"}], ",", 
   RowBox[{"Dynamic", "[", 
    RowBox[{"\"\<Deflection angle \>\"", "<>", 
     RowBox[{"ToString", "[", " ", 
      RowBox[{"\[Phi]1", "-", "\[Pi]", "+", 
       RowBox[{"ArcSin", "[", 
        FractionBox["impact", "rad"], "]"}]}], "]"}]}], "]"}], ",", 
   RowBox[{"Dynamic", "[", 
    RowBox[{"\"\<Impact parameter  \>\"", "<>", 
     RowBox[{"ToString", "[", "impact", "]"}]}], "]"}], ",", 
   RowBox[{"Dynamic", "[", 
    RowBox[{"\"\<Initial radius  \>\"", "<>", 
     RowBox[{"ToString", "[", "rad", "]"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"impact", ",", "15"}], "}"}], ",", "1", ",", "15"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"rad", ",", "700"}], "}"}], ",", "15", ",", "700"}], "}"}]}], 
  "]"}]], "Input"],

Cell[CellGroupData[{

Cell["Interactive equation solving (simple)", "Subsection",
 CellChangeTimes->{{3.442078631921875*^9, 3.44207863915625*^9}, {
  3.442081040609375*^9, 3.442081042703125*^9}}],

Cell[TextData[{
 "Enter text here. Enter an inline formula like this: ",
 Cell[BoxData[
  FormBox[
   RowBox[{"2", "+", "2"}], TraditionalForm]]],
 "."
}], "Text"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{"x", ",", "t"}], "]"}], ";", 
  RowBox[{"num", "=", "1000"}], ";", 
  RowBox[{"grid", "=", 
   RowBox[{
    RowBox[{"2", 
     FractionBox[
      RowBox[{"Range", "[", 
       RowBox[{"0", ",", "num"}], "]"}], "num"]}], "-", "1."}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"sol", "=", 
  RowBox[{
   RowBox[{"NDSolve", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"u", "[", 
            RowBox[{"x", ",", "t"}], "]"}], ",", "t"}], "]"}], "+", 
         RowBox[{
          RowBox[{"u", "[", 
           RowBox[{"x", ",", "t"}], "]"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"u", "[", 
             RowBox[{"x", ",", "t"}], "]"}], ",", "x"}], "]"}]}]}], 
        "\[Equal]", 
        RowBox[{"0.004", 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"u", "[", 
            RowBox[{"x", ",", "t"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", "2"}], "}"}]}], "]"}]}]}], ",", 
       RowBox[{
        RowBox[{"u", "[", 
         RowBox[{"x", ",", "0"}], "]"}], "\[Equal]", 
        RowBox[{"Sin", "[", 
         RowBox[{"\[Pi]", " ", "x"}], "]"}]}], ",", 
       RowBox[{
        RowBox[{"u", "[", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "t"}], "]"}], "\[Equal]", "0"}], ",", 
       RowBox[{
        RowBox[{"u", "[", 
         RowBox[{"1", ",", "t"}], "]"}], "\[Equal]", "0"}]}], "}"}], ",", "u",
      ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "30"}], "}"}], ",", 
     RowBox[{"Method", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\"\<MethodOfLines\>\"", ",", " ", 
        RowBox[{"\"\<SpatialDiscretization\>\"", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"\"\<TensorProductGrid\>\"", ",", " ", 
           RowBox[{"\"\<Coordinates\>\"", "\[Rule]", "grid"}]}], "}"}]}]}], 
       "}"}]}]}], "]"}], "[", 
   RowBox[{"[", "1", "]"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.44207881196875*^9, 3.442078814546875*^9}, {
   3.4420788450625*^9, 3.44207900115625*^9}, {3.44207904946875*^9, 
   3.442079145515625*^9}, 3.44207923265625*^9, {3.442079358734375*^9, 
   3.44207949434375*^9}, {3.442079694796875*^9, 3.4420796949375*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"u", "\[Rule]", 
   TagBox[
    RowBox[{"InterpolatingFunction", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1.`"}], ",", "1.`"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0.`", ",", "30.`"}], "}"}]}], "}"}], ",", "\<\"<>\"\>"}], 
     "]"}],
    False,
    Editable->False]}], "}"}]], "Output",
 CellChangeTimes->{{3.442078919625*^9, 3.442079001546875*^9}, {
   3.4420790499375*^9, 3.44207905621875*^9}, {3.442079087703125*^9, 
   3.442079114453125*^9}, 3.442079417296875*^9, 3.442079454109375*^9, {
   3.442079488015625*^9, 3.442079495046875*^9}, 3.4420796958125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"u", "[", 
     RowBox[{"x", ",", 
      RowBox[{"tt", "=", "20"}]}], "]"}], "/.", "sol"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "700"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], ",", 
   RowBox[{"BaseStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"FontSize", "\[Rule]", "15"}], ",", 
      RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], "}"}]}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"\"\<solution at  t=\>\"", "<>", 
     RowBox[{"ToString", "[", "tt", "]"}]}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4420789505*^9, 3.44207912615625*^9}, {
  3.442079423890625*^9, 3.442079463953125*^9}, {3.4420795005625*^9, 
  3.4420795885625*^9}, {3.44207969946875*^9, 3.4420797511875*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], AbsoluteThickness[2], LineBox[CompressedData["
1:eJwt2Xs0VN/7B/BKKRQSlUohVJKSSyI9JSUKERWiEAkhuSVyl26uyd0cUki5
JLlET4qSFEVKkmJmzpkZjFDkU/zOd63fX7Nea87ss/fZ7+c5e62Rc/SycJ4z
a9astNmzZv3vUxWWcmdm+PhM1uYq32zfU68/a2P/TPHxwFDQ8eQABSyrUFMa
+8XHC3w+mgVo4Nb1Jo5sHh8bnqwO6/U3wG2Lo760fuJjy6TvE0c/S9w18LMl
vZSPbldOvCG8TqHF5bfF6if4eHHGI/XtMV8MaIs6e/rpMHaFDFZfn4nE6zz/
T+PVw7gteNhFyyIK8+af2R1RMYyS1b7nH+RHYSuYSGUXDiNzq8nnWUbRKF8m
Vf8haRhXzP5+aUN8DL5LuLtw5+lhbHj+cfuQ+BVUsmgulhQfxqu7L28YY93A
HZ61UnnCw3hKTa1ioVocml+9H7p53jBu0QwI/H4xDoOfJxw2nhrCgHte7x6J
x+OHrdb/hTKHsO8//B6+MgFDlnCNedVDuDNj159BnUTs7BThNjgM4bOKVMbA
8WQMP1X5tPj4EP7nLmoYfTEZVcftk1OODuF+Z/EwgYxkjF3ycMcZkyEU+xls
kNKVjHoWx+LFtw9heGh7nIjpTbzblq9xQnwIl+3R36KmlYKBLXqhf58Ooli8
/MFx7i1UtCEPs2sG0bFFO2TevFT8wElY3/5oEAfmKQb8XJ2KKkLM97fvDWIk
d+CxtUUq/jC8qnDg1iDKvzOUda9KReOmrtfpZwcxsJaxPzEoDWWeeUluWzWI
DYHXguey0rFVQtNXZ9kgCv8t+SQ4lY5BzlMdehKDOGr5eJIlmoFdwtHJBgsG
MSak54mOdgYmWGVIWIzz8OuISCFcyUABXqP42VYeDmyQO/5CIRMf6l319n7F
w29LGW5p2zLxZIJZ+/nnPCw1s193wDgT6zS/xAdV83Bm4vFPI69M9A/ji8bm
87Bc5V1TSVUmcqRWLLodzMPvywr3KOlnYZprn8fdAB5uZFuJ9Flk4b4n+a1F
Pjws8Ut44u+UhXknN18vc+Whq0repj1RWXi82EDkqSUP3SZ3v7VozMK2XV5C
3So8fFz/2t5hZzZWujfOE+vlYiWfNOWsyEFtWU+1u5+4GCP4xqFhfQ7Wdi6z
0/vAxUlGiKa/Vg4+03N/5P6Kiy98ku77m+dgi5iEU3M5F8vu1j/tis7B7xUn
noXHcNHTKUZMncpBR1ehweXhXNwpLDKfGstB1qqKZWUXubjiQqtA8EwOcqMF
vb55c1FtTl/u7qUM/HX0gYyuLRfzbnnGGOoz6H2YChrfzMVgbb8u+5sMvFGW
f/eaMhcX2DVWSuUwUNzZ9IO8In29ftr4gwIGSr3L3WC+gosfxB6vj6xloCyx
//ODuVzcP9iY1PiNgZoGtzRPd3NQ877t0X5xAqsnwWG6g4NfnQrvvZckUOcB
53rKOw62MQN6Hy4ncNdSPeaLFxzccGLnpgOyBBpTA0myJRwU6quK/qhK4Mnr
aiPdERy0ttt+xcGIwKBHSTFvQzj4qa/cYs9BAlO+jq1qCORg12LdD9JmBLao
PDYq9OTgj6Rrm+9YEqj+Vue2vw0HrzUx5207QaDpr8ztblYcZE+9lX/mQKCr
zL82u0McLAhfeXbnKQKzzuJfg30cfFc93rjiDIGCogZHlmzl4H3eehlLHwJl
te4MCm7i4J74yV2xvgTq2gtGTq2j5zt2av5DfwK9S5pLf8hwsKRuupIdRGC3
qYlQmRAH1Zu9N3VFEDjuX8K4PZeDYTvv/KmOIlCUIaaVOkNhJBr0JMYQqM9/
73jpF4Xmc52XKV0l8H78kbqDPyjkv1b+151A4MuqKotdXync5zN7xjOJwB99
yznqnyj0FXCOmUomcOmWHqmVbyl8f2Sh3a9bBIa2n/DiVFPoWtlTdDGLwIzJ
Z/N6Kyg8utPt2MtsAh/Jyme1l1C4N63xz3wGgZQ3s7kqn0LHA6nG3rkEWiw+
Ix+TQOFcs2UZXXcI9NjeUn3hGoWxUnWWX+4SeNlho9nZGArNeo97fCwgsK58
6KJlMIUjprXs8iICu7pNJfYHUPj5lZtT8j0CR2aXFer6UDjYMO3tUUygooXP
R3lXCq2UlX3mPaDzENThvtSJwpQ5JqFNtG3yNOYI21N4/6TboZASAuNGf6v+
PExhQOjKc52lBBauONbENKUw7/r77vNlBL7Qr7H9bEThurKX2iLlBE4mXYxF
oDAzQ1ZE/iGB5KoG7j4dCnsk7nGKaXfdFTR5p0Fh6peaJJUKAhu3HCy12kxh
/pVeqXzaFbWJi3s3UNiulBAh8YjAPINP508pUKi+R4cKoJ3wblUXbzWFCx6q
HemkHXrMUfu8NP28smp61lUS6NlfkDG1hMK62DmxPrSPewz9DRelsGKHstsj
2gd+bz0hJETh8SjdxCHaOmGBDQkCFN74tmnh6scErhd+unb5NImlAmzOXtrL
bgrEMCZJ7KM0tzvTFlxtRCmNkej/39cFwbTHC+KMS4ZIXFp++fRV2gNqnfc1
KRIFrrQ5JdD+8ERarL6fxN9snYVxtJ/tPXHOoJfEzeZ6XpG0S9vyO958InGH
1bZMb9o51lzNwx9IDA/xz7GifX1gc9qXVhKtnTUvb6V98azflMMrEu2aMp3m
03abqD3OaSAx8vLT3Z30eo6Fz0LvOhK35TE2p9M2FNknN/mYxK4lqrpHaGul
XIsMLSfx4oe9PiK0Fda8Zwnep6+fKO2vpp/nkqKl++Pukuh3Wz7DnvYc9eP3
pHJJjBnddfcvvT8jdbkLszNJ3KCYKZlM+127yvviBBLlMtgmRfT+1tn4qKtf
IzHobYb6BtrFzKqU2mgSiavi5bl0PmIn9W1eB5FoLjlREEznJyAitu6QH4ll
Fjd1++h8uSx8t/qzF4kfBQ9m6tDeI2s9wD5F4lzjW6M9dD633svZ63mCxI3t
KCBPW1aDWfDLmkSfXjVJh/sETht6ecw1o7+fMHduofNf7RX9S247iS9rNyoe
oOul4E/L0SJ1EhWHnt+woevpVqR47RZVEiOyY4850fV2PjXzEqwlkdxXZeBw
m0BVLJ9vt4jEVTIHG8Xoel1lNHGGOZ/EVJnIazy6nkU6drS6zyHRUnn3kga6
3in2q4SgCTZK/FVOss4g8LboN+m0H2xMba25ujuFwCRbmL/9KxtldaW7R+n+
EVFIjHd3sXHkpH5gDt1fHPWd2la2slE3evcHZjyB8v5UFOMxG3PnZUhspvtT
Xu8o/+41Nm7qnXPpeQg9nrJlr2EMG62kHeNlgunxAipbqDA2Lh/Ojj9P90PH
xYF3lP3ZOCy9OEI8gEC5vf9sSk6y0dLHUU3Mm0Di/vyXlZps3O5fkbWO7s8J
f1wrjmxhY1Zf7zdNun+H7WshJpTZqL2rIQfs6PfD9+sXt8vStvGs2WtN4BpJ
CbV6YTa2lrntkTGn83txVVZjHwvZxo8aZ+2i+7uxmk/HFRYOdf1KaFtB503E
uKU9ioXhK3RXXKbfR8VvHOXfhbIwSlfnmu5SAmsP3vzQ7MfC7lMXdTIX/6+f
T2x96sDCJ0tzXLQW0P32cP1Y4XYWni3nbm/gMDDe1sjvEoeJHxw8xs3SGBjh
4RC4wYiJPfXt6fPJHPwWZ59Vu4eJi+29Ntd8z0GdcttnB3Yy0bbk2TqXLzk4
+stqgac6E9kJm50fvs1Bh1DjtIcyTAybthWXepSDu5LUq3VHB9B1zLJbOCwH
p6vmTZpkDmCku9KZUckcvChwL8BnqB/TDvEmzDWy0SGsTaGr8Ae+yPB5X+qb
iSn1rLQst+9oligf33wnHWv71i+8L/8NNZ1Nz03mpOJa8V36ljk9+M3Z2cK6
PAUfKse69Q98xkQF5l3Bm8nY11Quq6XVhSJSv1nNwYnIUknZio870CHu6CI5
sXhcfKlIS3X2ezSXUt+q+vYqqmjxVe6MtaKmRvxn0w8xGGkw1F4T+AqnZVjt
huERKGVZkmC97Dmqjq5YFns5GB/+bhJrVqhFNPPcGZvti3d6WDc4USVYE/jI
UHyxK9qZr3rU43QTkz4onLaQPIQ1whc/PvdLBs0sk4o15aag2T97dfixUrgp
PZzMqXKFtSNP/ug8r4FzhNfjTjNfMLrd/db02HOgmn/MHhkKhr0mEgK/Kl+B
TavT5ZjyCIg/8SlsS1UrbD6lOr8yLwZemcosOiTxHk6/jq2Tpa7CkJzUpQ8Z
HWD565C18UAc+PludIhf2gUb/ZbfFziVCJ++ilu4NH+GhYbno3IvJcPJCzvI
+Qd7gFTHe5/OpcCLjduuvpj3DR5c3JT4NzYVlITqqPz938Fh2d5zJ8+ng0yd
+955sT9A0POXQO/eTJg1NafIp78fPlb9FqxQzIaTA91joWQ/eNULJbqrZMOz
1rKdNwb7QdtMrkJOPRvCGPadBb/7IfSr0IOYXdkwY1A781V4AB4UZPzaapsN
0/HnjhiqDwDr5O9i8YRs+Kv4XWBV1AAMfUxzqp/IhgnzevsmRSaU3jY/mluf
AxHdpb07NzIBJlUNpRpzQNQh73j1FiakLZUtj2rJASXvyzbFukwwN4p5Z/Up
ByzjzI8kmjOhyN1H+dlIDpS1sEzsQpggNhYl8ECeAWf2iOr96mSCQwvqEhEM
GG+ZVef5hQkHstft9Y5lQJjFmA7VxwQ35bpLOnEMSHP4rN3DZUJsUO/h+nQG
vAzN02iYxYLIFVa6F8sYIF+npXJDhQXFlgon335lQI/GiZWKUSwwl1xwW3s5
AS5/NMWir7CgU3ycX7yCgJH6hQKsOBaoqCgUrJQhYK5hLTc/nQVX4rK0R+QI
ULWWqlUoZcF/GjZrz24kICzkzTGFLyw4r6fZUqpHgLB+3sGoPhYUZSc6soGA
FMELu5hMFkh5PRpZrk/AvXil9fl82vJubef2EdCRGz6xdh4bmKyzT36aEqD0
ctuttVvY4DFXcv/aEwSUXRW9GqnJBqEHShFSDgTomLFCBnTYsDfUYIuAEwFm
n5Ocb+9lw+Z/Ri/bXQgI5A5prLVlg8MBHkvdk4A3ovkd8jFsyAgfUpIIJuBI
R9CriGtsaE5UDqkKIeB7qvmT/gQ2uJu5Vx0NJWBcdiYvL5MNIgep8tgIAlar
2/jIl7PhX8Cc8uJYAryPii+W/8oG34B/mkPJBDgWbs5Q/MGGmmgxpmIKAVZ/
TNduYLPhnD2ZYn2Lnm/mDc0tI2zw/Pe+vzyNgHl9wjY755LQqHhwi2I2AZOb
lQd2C5Eg65EqoplDADfMyGOvKAlFT3XuAIOAdvnYSweXkyB+nsU3yCUgw2Xe
bRsVEk6tu8oWvUPA9SoFFXs1Epwa71eP0Q5dYFDpoEWC1faUWR13CTh1L+KV
6y4Sbp2+2BpWSMDR/3IPeewlwXbFEz2zIgKMDzZ0exmT4BlrMLPsHgGbh2d4
/pYk2I8pm6QVEyAPa/yCrElIXOL40uw+AZIJO6dD7Elgx6Semf2AgCm1EPFo
VxKuCaydf7iEgEa/KY3kYPr+6znXSsoIePxS+umtcBI6ktP1tcoJKFq23TAj
hoTcjzs7q2jH1QRY5yaQkNZHnSh8SEC4cGp/fgoJYXNv7F1WQYCv7WP3wgwS
+NmnekNpW/8bDynNJ8H4ic2U3iMCDppKzq8oIuFNdolbMu2dDPWExyUkjF0h
nPppq41YSNdWkLBlpuiLciUBCrt98uqrSQie1GryoL00KXFjQz0JR9bfXV5I
W2ig7FHjcxLu/dzf8pX2X/V2veZXJIzqOrUJPyZgOIr/8k0rCa7pG2Xo8x38
+Ch6qO09CU06bwotaHcqqXZ/6KLXK2p/2oP2ywATx64eEi4+HjUJpV3T7MHr
/k5Cve9V82u070tf9+1lkfBqk/Rp+vwJOW7F/75zSTA7Fh1Jnz8h8UlLDJNP
wkOpwsxo2lELuWLUOAmlO0zy/Wj72wml8/6QECSsnmRP+0zJenn+ND1eiLDN
LtrHZwyLRwUoOCgfMLKCtumh0xq/F1AQeEvMeJhe3+7cmPo/iyhoUbKzraWt
MXpn3z8JCnzZPctDaSvtaWqbtZwCOesp/x20pW8yj82VoaD8krTbKP18tSPX
LPWVp+Cn7MPSdNpHfGw6BtZR0GQ0tkabtq9DSsLhTRRksD4Vv6X3L+lQu8mL
rRSoZ+w3sKFdBiIi6tr0/Dgrv/TS+9+muq85T4+CO8eX2h+jvXBRnX7Efgo8
5bTH1Oi8KP/9PfPThAK70BusBDpf+3lq9Q6HKRi2dYlllxIQ/bpg2257Cs7E
aef60XnMr+4fL3OiwNW4faKEzuvzApmHsmco+Oyy/tk3Os/T0ckqs3wpOP9f
soscnfdVfu84Xhfo+ftWK2jQ9aB7Sqig7xI93gaU1KPrJVA/VA6vUODO7zBS
KyDgllrtN9V4CqynXTxX0fX2SPZXZs5NCv7zZEf+yyfg57Tb0ksMCkYfTEBu
HgHiw3c6hvIpWPgsusmJrmfV3u8JdvcomG6f/LOSIMDtyRERvUoKQuxbVc7S
/YEZoD/rbwsFT8v0BxJSCZhzOqTevZ2CgubLQjN0v5E9Uh3U85GCkumoo443
CbDTUP1V+50CjaY+xQWJBHSNSHMv/KYgs02z4N0Vur/1WRZw/qOg4mmLEvMy
AUva4k9Zz+aALe+3/nA0AYcezOvTXsiBWxquwt/DCXh95mfHhBwHuiXbBrZd
IIA6ppJ4eh0HMgoLjoz4EyC4/7TpJxUOFE2bfMryJUBfqbf58TYOPLmSWfPe
i4C6/uZ6PxMOZGXcmlvkTECJLVEwFsiByh5dxj+632t8WjsleIkDwWEGjfIH
CXhiUXBwRSQHpGdXhu4wIqDZqOTnrhscaH6RHWyyh4CBbXW6cbkc+Jbe8H1A
i4Dlkp/b1rdw4N3J6bbOlXT9xNvK72jjQND3Cfkd9PtNUaTP16yTAwrOXMlU
SQK2zmFL+3/jgPGZHanrFhFgMjLm9GKUAyWPh546/seAiFaxSbuVXKhbqnrj
UTUDFuxPNj4ny4UZsU1OVCkD4l8szY5S5MKLgsDw2QUMyKqV0S/ezAXmvkDp
gZsMqCrceH1yDxfstyQanfRiwGCUoWyyBxfyQxrM161hwFG90P3N9Vx4KDLs
JXYmB77+Yos9f86Fhgvbq4eP54BjiemnJ6+44Nl4Nq/sUA54rFntUvqeC+T6
0KGebfR5Y3Z95C0WFzJN+mzezs2Bkqapp6cW8YDts/urQHo2aFxyjLGX4EFk
pG7IrGvZUKPVYnJsGQ8M1gpLfAvOhsaC9K8H5Hig9iy9TPdkNnRf0Z7aqsmD
+JdL/oXQ56e5pv6as+14EJMTZCh0LwuuCn77O+XAg3evToUKZWSBGO5tHHfh
QbbmViXOlSxYsUXqMOXNg18/XV32ncmCzRKPvNui6N8LzBj6K2WBTdfP4uz7
POi4NCiVnpEJ5fZn5XX+8qDd8lGs85kMcKwckSFmD8L+k+ezzx/OAMmFvtKC
8wfh8oRi0TG9DPCvCRL/sHgQRD52OhWIZ4COZOz0mXWDcMjqb7VVZTo8f533
Jd1iEF7XVxlyf6dBp8bnpD+Fg/Au2ser0iYVoq/Zxp0oGQTzzzdDbkAqaPV/
u9JUMQgLw+TSdBVSIS2eFZb4dBC+ugzOXjF0C+y4o54bOgfhyhKHnd+DbwGb
seiA9cwg2OUsSEy/mQKTwnsEaqyGQKNUJ2rtnWSQGBa9+dyGdmFL/7+YZNj4
/otC64kh2JHiHVjpmgz2qT77+s4MwW/vwOK6jcnwYm3elXmXhmBG1HqBalkS
xO2YLW5xdwhCnW/nVT5MBEVPXMX7PQTh5l29V3fGg8V7XS2ZtGEIOfk6z3BX
DAjrijTUZQ/Dzd1t3dqD0dCQ/+XA8dvD0Byc4jWSGg1bAi84ZJYMg3tyU2Xl
cBSIrqm6Lt00DPcS/wqXpEfCa4+tA1Kjw1A14t0gyA6DXQs2JIge5MOb97/f
eNX5w+S5yRUl5nx4lJukJyHkD6U9r+6YHOXD3ZdqNQFWfrC61OXJdUc+vHgV
bJk8dB7+WuWzhS/w4abgFx39leeg6vYavfl3+SDfU0PafnUBz0X8V3eL+bDA
XD3wrZczKAU8tdhXzofIa70TcwROwU1jO9foOj7IVPvmvV7vAD4/M5IFOuj7
++0xcGMeAWVbt9W3P/Mh4Ol1NfcFlvCjcXuR/jc+pJ4baFdXMYdDaZ+fhnP4
8D7PMzaQvQ8WzCk0kuPz4cAfl6PLN+0GdA/ofDbOh7Cu8BIxUgv8P+47cXKK
D04LRaOPk0rw//+3gNX82Fi+2b6d/wd7E4yO
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  AxesOrigin->{0, 0},
  BaseStyle->{FontSize -> 15, FontFamily -> "Times"},
  Frame->True,
  FrameStyle->AbsoluteThickness[2],
  ImageSize->700,
  PlotLabel->FormBox["\"solution at  t=20\"", TraditionalForm],
  PlotRange->{{-1, 1}, {-0.03264285295860427, 0.03264285334133948}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.44207897078125*^9, 3.442079009921875*^9}, {
  3.4420790410625*^9, 3.442079126484375*^9}, {3.4420794206875*^9, 
  3.44207957903125*^9}, {3.44207969675*^9, 3.442079751828125*^9}}]
}, Open  ]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Eventlocator: probing the parameter dependence of the solution (non-linear \
oscillator)\
\>", "Section",
 CellChangeTimes->{{3.442145911453125*^9, 3.442145913984375*^9}, {
  3.442146874578125*^9, 3.442146891484375*^9}, {3.4421470631875*^9, 
  3.442147071390625*^9}, {3.44214855778125*^9, 3.442148587328125*^9}, {
  3.442148668671875*^9, 3.442148686546875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"a_", "?", "NumberQ"}], "]"}], ":=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"p", "=", "0"}], ";", 
     RowBox[{"NDSolve", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"x", "''"}], "[", "t", "]"}], "+", 
           RowBox[{"x", "[", "t", "]"}], "+", 
           RowBox[{
            RowBox[{"x", "[", "t", "]"}], "^", "3"}]}], "\[Equal]", "0"}], 
         ",", 
         RowBox[{
          RowBox[{"x", "[", "0", "]"}], "\[Equal]", "a"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"x", "'"}], "[", "0", "]"}], "\[Equal]", "0"}]}], "}"}], 
       ",", "x", ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "\[Infinity]"}], "}"}], ",", 
       RowBox[{"Method", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"\"\<EventLocator\>\"", ",", 
          RowBox[{"\"\<Event\>\"", "\[Rule]", 
           RowBox[{"x", "[", "t", "]"}]}], ",", 
          RowBox[{"\"\<EventAction\>\"", "\[RuleDelayed]", 
           RowBox[{"Throw", "[", 
            RowBox[{
             RowBox[{"p", "=", "t"}], ",", "\"\<StopIntegration\>\""}], 
            "]"}]}]}], "}"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"4", "p"}]}], ")"}]}], ";"}], "\n", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"f", "[", "a", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"a", ",", "0.001", ",", "4"}], "}"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<amplitude  A\>\"", ",", "\"\<period  T\>\""}], "}"}]}], ",", 
   RowBox[{"BaseStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"FontSize", "\[Rule]", "16"}], ",", 
      RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], "}"}]}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "600"}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", "\"\<Non-linear oscillator\>\""}]}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.442147046828125*^9, 3.442147077875*^9}, {
   3.442147504734375*^9, 3.442147814296875*^9}, {3.442147898234375*^9, 
   3.44214791959375*^9}, 3.442148420953125*^9, {3.442148524*^9, 
   3.44214852671875*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], AbsoluteThickness[2], LineBox[CompressedData["
1:eJwV0nk0lXkYB/B7ZU/3vZbqvZqEbKkkSqaG56FtTKiQFCHGoBwpKtIYpUJZ
sqWhLI0bcSuMrZubEKbIvmWJlslVlC3KfTHv/PE7z/mc5zzn+T7n/NTcTth4
iDEYjHj6/V/bux0CuG77oEHqtvG0GgfFL0dMnzRxg7P6ROYE7fTb7w3iLHxg
81rNhDHaKx0ztnTr+sPTj61en2gf82zsGNIPBJ/OtNF3tEv9Kf8Zo9+hjf/e
u4e2GC6NDFO5AOsLMocbaevsWudwLTMMmJlPzlXS3mu5XTtB4wq8lLisXUj7
jM3h6ZTsCJiI3DGdQfuWw8maO7rXQP3A4eFo2tXOEYm596MBwnYzgmifLmza
eIi8Du289h/daEdsduT0H4qDb58SEy3+ny/7wDiaGg/1A6uJDbSrnsw1eakk
QWDonOuUKgc7zCJLR1xuAH+nu2k7beEzpXS/zGQ41dCKhbSJ+rW+gRop0DpJ
FXnRVrcuPUB5pELrn0+1zGgbtZibhGbfgpezXMFy2k5dh+QidNOhcXrwcMUq
Dhrfn/guYZQBySN49DrtSt+y0brODPjk3R3lQrt9fHvHHvIOeAh5dt9UOCia
OZxlm5oFyvmZBYq0Lz1Svbn0Jy5Yyn4Z7ljJQVbwh2tdfVzwWHCxuEFbff6k
v6NKNmykDoTI0/5ZPNLcPfMesAVnasZXcLC1xtpI0zwX3twRbOPSdgpX0h16
mwt2X1N67GmfkM2QP67Bg6LBkfgiZQ7eYJcOnsp+AJdfX/56iMNB1dbz7Zt+
fggSo66l8yQH7yWY/zMtfAj7PRr/yqTtvHjooElSPujzfp17s5yDp2JOQWVn
Abjfe823XMbBm4mRrOeHikCqQiLthQL9v04c6h3JL4LQ98TkbtonLNbksKWL
4Z2wU7NanoO75v8xcygphuxOV62/2Ryc9JQ+PaRQCoO93PQgFgett4X3SjQ8
gspG6Z4MGQ7ylx7MWbOaD06pF80oaQ5qjmmdtjrHB/2pHTEHaFNZtawknceg
FSh4xZSi87MkzTUul8Ooc+xuM3E6z9tLOeamFeDf1Ec5zpPoV253+rekCvBj
OIuS5kjsvaFhfnWkAjT9rYQvKRJfab4d9bJ6CpFp07FbRCTm91wIzxc9hWiD
HToTMyQe2VHJB4cqWLhpx5YYJ7FsOao5y9fAwU6f7LtvSAzJM3kjt7UGWvZ8
xYJBEnfAtszHbjXQZ5qiyh8gsek3IzVOUQ3UHe0qqu0n8UPxOrV2+1pwLcze
Xv+KRCU7jtovt+pgYKt+/MUWOu/1CVUj7RfgPLaz+0EFiUYaY4Pv976AsESd
qLAnJFKloxkJgS9g0/HhW/YCEsMHhKrjz1+ADGNF9wyfxDS9AVWeTz1Uh4nV
a5WQ2NBQr6pe2AB7rZ/abuGRqCPDVWWZNAG7mZWuk0zix6vdiWO/NkGlgbxz
SxKJeXJyMm1RTTDd5PBXYCKJemz/8eS+JkiInq2uiiMx5ZrqG7ZpM8j/HhKw
M4rEjPjPBSn9zaAvY2QpcYFEXsZV2wc/tIK3k25lgDeJNeVVNzpS2mH9LqmS
7UYkssuTL5/NbwfeMNvQbxOJhx/7BHBq2+Gz6MXmVAMSPz9aZnNkvB3mTFgt
I3okkqXHlvy7uwPuM8nQEG0SfQoULk1NdYBv7KLnTiSJCnfdTiru7YLMJ7EX
l3xfjq6xYpb7F/VA8Mq4e2Ely1FkOGPoRQyAYMGif73ecgx9dESzc/tbOLIq
aatf1DKsKFMJMJx8D3Ptt2PevVuKC6pbnZwDhiDhnXuIr9lS9LcX9Kav/Qha
fxGt1TFKKJxKmXpQNAJUZ3CclFARlf279n3X/wJtMTlux3YpIg6YqN8fH4M7
zVwyK0UBA34UeD0znACDw25DVfPyaH5ubPbD9UlotPuB6eUoj5912/Syh6bA
Hz3zTCvZuILtvsFaexrGqiUqdm9h49veu8GMizNgePBC8cZ9BOr2JSf+WfMN
Omz+/MDcz0K56p++m2jMQqi+IxlosQQbOHELf5wXgd7mNbGhtnIox41vzRFQ
MGVzT04uaDEOLft5vI8zDwbPX/OKkmXRXJDbN+O8AMp2XM07TTIo8H69qdua
gcdvvhQWKMmglpeZGl/EwLcrbNJ4ttLYzBD5E7eZOEskypnmSGFdVIzPxz1i
GBPO3O8+I4n3m79vTpwRw9jcxMWWNpLY9uCxR0HyIuRaK54LqZDAXaEHt9nt
FEelmOCcPG0J/P7J4uyxIXEctK+NC8oQx1uE0qW9VyTwi9VCbbGaOEZplRnx
DSRRO+FKOqQtwvKuwr032ySx2tRQJNJZhD+eD2dRF6Swc7hE67eHYjjNLzRs
05BG44beT8/MxfBOQfGaoGfSGMIOMEjtY2JqanxN1kkZzLZd0+dyiokdq2rr
tivKInNrq84eRSY6Jbed8KqSxcfGrBy/fAa21pYJHX0XY7Rh3RU3WwZGXJ+q
q2LJob2oUl64sADXrGStHpbL4SOPX/u/7F+AxqwzxoTLEszKr3cpKZ4HZhF/
ymR+CZrzj0ux1efhQkm3/UQuC7X6hWOl4XNgZmu1StmSQAXBxEUhRQFaZZUM
WxM4IDj6OHyW9m6R1aP9BBJ5Erba3ygw3XbvvMNBAr/wktM9Jyn4abVEzw03
Ah1eJuWNDFNgPFmeqBhEIMjcPC/dRYFewjrZJXcJLAtu8btSQDs6LLMvh0Ar
lwOeGx9SsD68x5iXR2Dr3QB+H4+CdcERnnsKCIyvNjyzKYeCNe7vn0WWE9ic
EGQmTKNAw/DWH5JtBPZXuy49GkV7/eSyzg4CV0krNchfpWC19i8PuN0Eqgeq
vK4Kp0B9xbe+Ha/pfVFCRa0wClYtstsaNkzgN67qs7EgClTmcltsRgh02eJk
m3WW9gzTW/0Lfe+otYnDaQp++PQwuXKKwC0sWbVKP9r/Sm6ImyFwY3Wu8hlf
ClYMHKl1naX7Cn/7rvWhQPlV0RH9OQJn9IiVb7xpty3+urBAYPQveZrJnhT8
B0OvJyg=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 2.},
  BaseStyle->{FontSize -> 16, FontFamily -> "Times"},
  Frame->True,
  FrameLabel->{
    FormBox["\"amplitude  A\"", TraditionalForm], 
    FormBox["\"period  T\"", TraditionalForm]},
  FrameStyle->AbsoluteThickness[2],
  ImageSize->600,
  PlotLabel->FormBox["\"Non-linear oscillator\"", TraditionalForm],
  PlotRange->{{0.001, 4}, {1.7752906295251336`, 6.283165821632746}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.44214750903125*^9, 3.442147535171875*^9}, 
   3.442147567078125*^9, {3.442147641546875*^9, 3.442147654203125*^9}, 
   3.442147695625*^9, {3.442147744890625*^9, 3.44214779165625*^9}, {
   3.442147899859375*^9, 3.44214792065625*^9}, 3.442148422109375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"A", "=", "1.5"}], ";", 
   RowBox[{"sol", "=", 
    RowBox[{"First", "[", 
     RowBox[{"NDSolve", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"x", "''"}], "[", "t", "]"}], "+", 
           RowBox[{"x", "[", "t", "]"}], "+", 
           RowBox[{
            RowBox[{"x", "[", "t", "]"}], "^", "3"}]}], "\[Equal]", "0"}], 
         ",", 
         RowBox[{
          RowBox[{"x", "[", "0", "]"}], "\[Equal]", "A"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"x", "'"}], "[", "0", "]"}], "\[Equal]", "0"}]}], "}"}], 
       ",", "x", ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "\[Infinity]"}], "}"}], ",", 
       RowBox[{"Method", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"\"\<EventLocator\>\"", ",", 
          RowBox[{"\"\<Event\>\"", "\[Rule]", 
           RowBox[{
            RowBox[{"x", "[", "t", "]"}], "-", 
            RowBox[{"0.99997", "A"}]}]}], ",", 
          RowBox[{"Direction", "\[Rule]", "1"}], ",", 
          RowBox[{"\"\<EventAction\>\"", "\[RuleDelayed]", 
           RowBox[{"Throw", "[", 
            RowBox[{
             RowBox[{"p", "=", "t"}], ",", "\"\<StopIntegration\>\""}], 
            "]"}]}]}], "}"}]}]}], "]"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"ParametricPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"x", "[", "t", "]"}], "/.", "sol"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"x", "'"}], "[", "t", "]"}], "/.", "sol"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "p"}], "}"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", "\"\<Phase  portret\>\""}], ",", " ", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<x[t]\>\"", ",", "\"\<x'[t]\>\""}], "}"}]}], ",", 
   RowBox[{"BaseStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"FontSize", "\[Rule]", "16"}], ",", 
      RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], "}"}]}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "500"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.442147904515625*^9, 3.442148255140625*^9}, {
  3.44214828715625*^9, 3.442148299828125*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], AbsoluteThickness[2], LineBox[CompressedData["
1:eJwl23k4VP/7P/CZVEi0SJE2ilTK+m5RuqdIQoRQIiHZQpuylBItQrJlKYko
IlkqW7qH7Pu+ZN/3ZTBz7L7n8/v5Z67H5czMOed1v573fa4LIRM7LbMVFArl
LRuF8r/X//8zA//vpSM6k8Nik9XCMgHJiUp9X6Me4IriDV8ZpJ2PPK+MiHqB
w2+mv7WTDpBw3l213Q8nXIp98kmn1G749CQqCNNNV1/4THr20FeGq3cY5r+t
6XUhbZyebHI4MwKLvp3XvEDa9filjvDvUfjm3Vu/rf/7vc6pjLlPX5DWXBPb
ukRAXWLXrELwV5QrkAwKIX1Ha5eUs9c3vPm0XV+d9ETV5vzztESUtuZnzi8S
cHFz8n6tjCS8M8x3I5I0kcg4oiKbgu/i+BJOkf72qUDkv4Qf+E5rX67VAgFr
FgdN2iNSsSmw2m96noC0klUr3gumIz/z67EHpCWllU8oBWbgoPuFDeZz5Psz
JENMXmbhdH7z6dpZAs5u9omtoiJuWeJXlyOde1iQGSBPxw1b701NEASUNt/o
KvyVjWwBrq9PkR5OkOC6cDcHh+e2rfJkkff30LknxRJ/sXNk/jkHk4CSlSf8
3sbk4r9FHPnGIGB/0RoHp5ACVFG5fjdvgoANl5paXukU4iMx8X914wToH7mz
6tWGIvyZV6XSOUrA5IHkD1oexajLdro0cpAArkLjucUHZfhGPN7cdYCArzKF
I/Yy5ejisWnwUj8BAvSfLxrHyvHImv0Rkz3k+b7d0P5NuhKlsr2WKtsJkI3d
/jE6pgqrtAY777cR8Hbv65WrVlfj5oYryXytBCi1m//UM61Gmq7ljpP/CJBL
K+Gr316DtaHuIFdLnt+gnr2EXy1W9FmEdOQTwL1TD7c6NOAttrM9Y7kEdKZG
j+q2NGDw55ap6RwCwm7kuD+mNWKlcLL5wB8CPi5u/hzA0YQ3+ndX3fxFgGaT
RlRe0D8c7DI6NvqJgLXbKzYtJbXipfLejw4RBJwcGNBv3tSG/GP7h+Y/ECBE
SAt9fNCGsVob9w+FELBt52lK+4l23LLfL8TMh4CfAl/rNpl24Kk+h+3/HAjI
ejlQ0TjYifla9yN67Akw5cT+21u7UGXecX//HQLu3+W3XVDpwvccx3RqbxJQ
CY7/9cZ14ecLxloa1wg4dVitmmrTjS8XDPcUnyHA81j1lnMjPShGq+HrW0PW
xw1Z0d1t/cg/6aJ7jJ0Ajl1nZPw5B1DwksnYMzYCOu7uH5uUHcB+ZvtBrgUW
ZPEOsbt6DmDilUXp/BEW1Ant5a47MogJB8+8p5SxYIjzodJZ7yE8tHL4X8hL
FrjpeuWl7B/FrsCHe7e7s+DNxjf/hrVHMZQjQjj0MQuWXz3MXf9oFG8620m6
3mfBsYiLubsqRtF7+81FtussoBhrndS7M4b2N9dT2+VZkH3X/Qj3z3EMXRF/
nTLKhHt8GR4+fAx8czqkq6mfCU5Ktn+eiTHw5WTNt29dTJjaVhF3+zgD7Zze
HlVsZELMsVP++40ZOKLqff/gXybcEjcr3BnPwGec53WmgpjwbobrzQbaJJ7y
C+EylWfC9FebpX6jKfzrc0ff6wgTwiccg1/ensKem46GiVJMoGer7N3hNoW7
bhl5D4gwweu4EY/Y5ym8mbl6UoCHCW/qqx/9GiaPHyv549Y6DRfDVCDj3jTO
K7zf4+kwDW+7NAJPuzDR2jWm2P32NNhk7T3U5MPEedWonw5W07A24vIJkwgm
ellsvalhMA2fNv6IV81lYkDgqoY0mIae10ZezpwsjL48+OLxqml4dSNxRs2X
hRk03cB5rykofGh6OuYtgefr0x2Vnk3BNff+7R6fCeTIGZXyejQF3qaahw1+
EajhkSXBYTsF45vctjXVEajCzG7LUZ8CTcvgtIObZrBJwmdGad0UsAquK55+
PYPhWaGusV6T4HlQmWOnwyyW8iX/63WfBJ325kXdZ7O4+IZLYsejSXig9X6D
m98sEuELDU9tJqHX9/671PhZfHJq1meb+iQ8fnTpnl/HLJqlSmMAzyQUqz+R
26A0h2IJ7/cleTHANNdZ4QzHPD57r9d+150BH9PC/qzaNI8KQR9XyDxkwED9
uu8ZO+cxIXUg/LM1A84VSC5Rj8zjig0WQaYqDFjB4Z652mweiwq2vjjCzoC7
bKPUkT/zaLfzhq+RywT0JhRYn7ZaQPPXdYyFexOw4lmE7n37Bezg7I54az0B
Z+9aaYY9WcB4xz4qXpqA27+sfXLfLqBL0pOjPdITkPuOs8UhZwH9qJeNOcrG
wWbsg47LlkVUoEX+tn07Bi9qolzE0xaxftvjkLKnYxDe1XK8InsRc6127BC1
GwMrW8Ues5JFjHjufDL37BiYvH20ya5tETe9fJj+c2YUPq2zymOwLeEbCbX7
9y6Pglyd8TFUW0IzStvg280j8F5L6XxS3RJSZeoGg1eMQKNpo0VG6xLeEpdI
CxwbBrX/RGvTepfw67vE5sf5w5DfJpYRyFxCBX7lpc33hyHyN8/nyk3L+GFX
7yfd2iEQfHS6U1NzGY0aTKbOeQ/ClpVC3ek5y3ibtjon2WEQUlX8HjwsWsbZ
Ui3pLdcHodpz1dX/Kpdxl/XY+hq5QSjmO3/6VesyPn8hc2/LwADkTB6+kE0s
43XpX1KNpwYg/Sat6j8+Cn00ytzCdLIPhOLNTtorUugPr9TvSW3rA6s0EQfe
sxS6QbJiOntJHzTEbxz7do5CV5xVfhj+qQ8e2fe/a1Cn0F/KHxyMvdgHv75R
rixdotC3e+gqHPrVC7jix5n3Nyn0jKS/F3gf9MDPiLJvkr4UOtJXvV5j2gMF
2d/yDPwp9JYCtoPL6j2w7Dbl+iyQQpdeb/axQ7QHzhs5TpeGUOhXTp0sc6/v
BsNoua2ykRQ6T0vrL53/ukEyKX7vjWQKvdOZoMsyOmFlexnDtpI8fnfhW7Hm
TthfVdR4pZpCP9mbOiCQ1wlqI3tPnaml0N+uO8bLDO4E16Hd0dyNFPqKeC/q
a1onqESWCdu3U+gSrb371H06IC5v76HIUQrd6G9As6BjByysOzhwaZxCd8w9
daHfpAPs9LWvrmVQ6Honvvg/ONwBXBfkvS2nyfunJTY5n9EORmWXLi3OUehB
ItvyVXXbgHfsXYI3O5UexiF3/9O+NrDcK1W+gZNKf9aYJkkstMI+7/86/dZQ
6QdOp/f4fWqFvWpdY57cVPqOGxTR9xMtMOJXt1Kfl0oP97vbvODRDDX3GQyL
HVS676JP6YGMRugKqY4zl6bS40K7cja+aQR2y19/HsqQn/+ghY8wa4R/348+
9pGl0rNzbw2kbmiEfI/tGxMOU+l7Evxat1o2wKHdgX8q5Kj0/0zcO6221ENm
i6Pwl9NU+mWrxZP7R+tgQnr71mAFKr3SQluzP6cO8oqvdj1XpNIL24Zj9W3r
gOvf0oihEpVupMmNonm1cPdkwu7Jc1S6icTsmst3aqBrnVr1jwtU+k45AXHW
2Rrw3ZH/102TSmcEH9Hx3V4D6R1S0Re0qHTecf+a7MJqcHOTgB5tKl1Esmbt
2p3V0Ppo84opXSp911bXv+dKKsF41ks10YBK31xTkVr0sRIkwpTWGxlS6WKs
zBXK9yvB5t/7Dq6rVHpbt9t3EKqEyo/uX42MqPT098drjoyVQ4iW0LoJYyrd
XUVoesuZUji9tNbm5w0qPctg5b4ARglcNVWqOm1Opa9hfc7k/lACbFLXrMtJ
a+bc2TbLKib3l6JShwWVvjBflpEUUwTSHsbpY1ZUemyLa6mAThH0ap8ft7Gm
0uunhh8/phbBZEnt9WHS0rG3RxX0C0HN4QJv500q3c1hpjSJqwCeK2SHpdqS
5zsqV8+elg/u7CoTYnZUuk9m7t8r1/OhNV3PM5j0gxT/m4u/80C17lD4nVtU
+trVmv/EbHOh6YWY/sY7VPo9eRfa3spsEPwsMUWxp9Kx+6yR0cNsGAvZoqBH
+lJFbXegWDZsSro5FEfaXIrt5NITOmz94X36wn0qnd7cKOZk+gcc9gocevaA
Sq+yVHOpzswC6zXT6uWkcxZTtottyoLqQZkyPgcqPVKQ17EkNxNOKfv3hJM+
cDFMb1okHYyuF7756Eil2/HdTD7qkgb/onoSWkiHfyZqnOpTwXXOSmKLE7m+
5sdjZ57/AnHh+csvSFupdzrLtv8E4TvbV2WRrs7ZqW175Cfsq/m3iUF6UXrN
+Zb+FLjz34HrF53JelR4+Ho9LQX+qP2KciMdc5l3o0JwMkhElKomkQ5s5dr+
STkJfn64WsH+kErfHbr+b+XHRBhlJsVLkq71WlE1y/gOPn0wqUf6a9Kz1git
b2Bn/Do1gvTk19spFn1xwMO7ZVMBaevyGD9xp69Q66jmN0Sa//6GyFHuWGBb
81Z67SMq/WeJB0d8xBdIDdVhHiB9WX5gxPy/z9Bl1v/vHOmqyXl7oaIouMgR
2W1GOkbk6obXExHgIVtpFEy6IGH/7VPuH2FfX21NAmnrOS2hPokPUPJnz82/
pL9c5z+opPcOXM/NidWTdi9b1vrkEgxS916t6SdtcPJKx2J0IET4rNzAIv3f
U3th3TI/sNHwO8HmQqU37xItuzToA1zFet48pDeO9E5Rj76Ccoe7bPykqS7h
2jHP3aHtyNKHnf/7vYMrd8jXR1DawnVNhDSj1Fij7ewduC2TrLSP9GTsi+fP
A65Ay/yy1gHS2/Zzb7NjaeK6qQX3/9lNM946iW6HripxLf873i1mB4tXwRl3
xLDri5JWNHmzr0/LDZVEORd3kfa1W6tGW+mBpdoReQKkv/JuKwz6+RpnZX6n
rCdtcTKGel/GDz1O0gpWkfapCpbasTYQ44x4KLPk9dbJfxDN7QnC1TPUq0Ok
7wXc8jfPCsXklomOJtJhb+n7Od6G4Qm9uJcFpI3N31VoHfmIUSILF1NIm1xM
rwr/FIEmTjFnwkjn5a1kDq37hFcX7PSfkT49m7NR9mEUMvPX+luTJk7LrHQe
iMZ5S5lxDdLU0NeRePEL/hr0s5UmfUCEvYCaHYPtf2rX85J+93VqtUtIHH7z
8/hdTtaPYWV0beqqb8hVJJMXS3pb6ITX2O0EVM09NP6UdNfgz/X7ohOx11E5
WoJ0Bk2p+P6jFGS3PeR1h6xv7fbBo89kfmCNWKzvSdKPhGye+A7+QBnDsz84
SJdw2qh+0vmF08q31IPI/SP7Ry829mA6epYr5IaR+3Hb+N7UqO50TOiM/KhP
2vNR0/L7kAzU3pgUwEd6aVlr0n3VbyxiT6c/I/e3Xl6/uGTrH+QJMdygQeYB
n9qTE/3PEZdCc8RWkA75qxJ/np+OwxuFfFPIPEExPbnFbDqKy/3U3EBa7eTW
o+f4cvBbY7Zz2j2yHuToXPxWOajl8XblVdLn3v7a3fsnB/k0KxuopG3K1Jcd
Lf6ilGPzZcW7ZD7yqzl7Z+ZiIo9S8o/bVLqkR9KL8+vzMKJf554aad1Ks0Au
szw0uyfl2EXmo2B6u58rTz7ecZI6y0m68f7S3ovGBZixM7/+FJm3nP6ZR71W
F+MA42ipIZnfk27P9MSuFCPH70NHmyyp9PeheaPZ34uxr7q4Vot01D8Lw9FL
Jdia1BVKI/Nfgi6kuSeuFLU9ZQ6vJvuH0SmFH2s0KnBCqtLxKNlf9k8lCjp9
qsDtWUyNt9fI+jsXYdVHVODi9C/aJNmPbC5yl+lfqMQWGtvNKLJfDU5Ghm2e
rcTqkbg/jCtUeu5Jzs8nVKrR6pfr+CGy/1HFZp50PajGNQmpxoY6VHrpR4rU
8+hqDMjmcfa4SKXfj/Mn8ik1yKZyJPQf2U/j+EfsDqbWoBjnStVrGlQ6M+L3
05e76zBS75g1cZZKDyIomRyadbix6qDcMtm/G/NtTZ671GF2pc2rlaSddax7
HJvq0MY5KYqd7PcLUuNzNJ96TJkychgHKt1POdfz3FwDrjgWdF7hCLl/9H77
hu1tRPeBUkKInC9mjqiHjl1sRAWrqJlFcv6g79oV9OJ7IwoEt05+I+eVlN/z
DgHXm/BvALfj6EHy/lkbv+Et/4c1kUePD+ym0l/GRLHd/dCKcXXikqnkPJS+
uXrli+JWnOkX+ndqLZXeL7lZPojVilUNBwOKyPmpqMBKNl69DTVWtRyoJOct
93IJ8y9LbWh9Qs8nnUrm/cXbK8cOdeBVPSOVOXJe4zfgGWlQ7EB+FcLu4hSF
rpF+NRH1O7DnAO/tOHK+o4yU/nn5vAOfKdFmNMYo9He2lY8pbR3YEvMx404/
hb4cdHn4qVcnRhr4r97WRKHL2C/GKUd2oq+srNLpBgr9fabg6rVpnTjg/nqf
WR05D2Zftvfs7sSwNO6yj1UUuvnK+tybcl04/7FDaLyIQmczk6T97O9Cp6PC
lT3pFHp1faWdPK0HD7jZb9saRKFzaypWH7/Yg2PfKLeZARS6vJFm2BGLHlR7
o3i7zI9CHzm703Dvmx70Xb5ocfc1+X2cqzf2t/eg4KnqhrfPKPRedYW0bpde
VAxfmDh6l0IPKzhu9iOjDwP72h1rVCl05YPTeXrlfSg0dp/nJDnvyxVuZ5/p
7MO7a2z7o5TI+X8gjV+Csx/bBPQvm5+i0I0X2mbv6/Vj/xhf55/D5PzLMv1m
OdWPwQL2YT93Uegqe/Nr0sUG8UxQ9WGd7mV83D4v/kZ+EC9lW/DGtiyjKNVQ
1ERrEG0EVh6aqltGgY3cHTPOgyggEDxvWbiM4Wc6MybKB9F/fdzazvhlFHok
r7/y3hB+Cdr/ffTuMiY2TD32yhjGDCXb10pzS1g1f4K3uJy08qkZzckljN8Y
ZbeiexhlX+9+qzW0hAk1T8xNuUbwzZbY8zL/lpAg5L16r4yg8cHxotvpS/iI
o+tqz/wIdo3OzDXbLyGdX+5v8JExNCwWdjzUt4jHH/la1Z4bQ8kbIwdvty5i
/Ghs+hqDMWxfsoiMrV3EdlGew+ZPxpCjoT15PmcR+xKtiLbCMRT83VGyO3wR
OzcweHIvjeOLQo4CF51FfLnlfaqg3ATe9mGPOZqxgL8FtGtbT0+gsPiLc2KJ
C8h31bD1veoEEha6s2s/LyCNa+2XDYYTWLgpzO6n7wLaeLZl1D2ewCll+/1P
LRYwVKhmPDd3Ag842r5fvWkBjbw+f9yrxkBdkyfZ70zmUaLk5m4ZHQb6X+qn
HdKdR2c7uZdyVxkoEX8UUs7No2oZV9+JWwy84P88OkByHvPF1tmvC2BgW9vD
tz8W53C9KXO8/x8Dz3lH7DULnMOdcjzeSmaT6KHV98smYxZTIu9459lMomDO
sQ3K8bO4q+dcG9yfxG/BzDubPsyi1bq6q6IvJtEtMfa0m+sszuiXX86ImUT/
+nNVaWdnsdryvtjc0CR+yLFsca2aQbmPPwLSrKdwsVzU0vUfgSe2h8zdvTuF
sw813nUXE7hDja6233kKnxoelziaSeAelljUi1dTqPjp2KO0dwQ6lsZ8Whk7
hfP+r37zGRBYYn6QY2XvFJ5R/HBd4R8L+aVfvJm9NI2Kannf7pUykTrYOsV5
bRr9P9dsF8lk4g291F+bzKfxlXrzrsJYJk7SXpwTsJ9G9zyZkd7nTJzv7t/X
9mYavZuapp7QmPhNoJxLu2Aa3zk7TB9JIl8XWSolEky0MSzcXPhyCsObQ/OS
/2OiCHNPKv+DKdx/4Hd3wHEmOuxSE71qNoWhT0cXlM8yUbGW61nBqSnkefBB
8dZVJvq7UOo2zU2icJTI8TRPJm7OU3f7YDGJ/KERiZu7mDjwl08iWJ6BXI9V
xdX6mTh02LzUez8DZ6pcupxHmJix7seiwxYGqu8dZBSxmMjTOHpMkjGB1tk7
z+ziYuHxXcSIcNQEilpZsqdIszDDQWP3Lo4JNPIfr7zyiIXlF+66WPqO4qaw
nV+kn7LQmMtlna3ZKJ4+Z6yw4gULZR/ofDY4NopBXano+YaF+/jszs10jOBE
+pjp2U8s/EVtFBeXGMEPIQYqVwtYmOv7SyOsYAiv5DD/YQkL12xzMFYPHcJj
IZxzApUs1H0ttmv45hCKzOvWpzaykP7vxaaBDUPocMA9LmSQ/HwdXuak/iB6
cfsTk5wE7kok1t8Y7EeP6Z6hZm6yLm55OLVn9GO5RuKxrA0ELgk/Nlfy6scT
FuGtFgIEflP7c7b1UD+Opt4ZNhUjMNJvq6/03T6MiP8R0KdI4As2L6OgmR6s
O8zToa1M4DH5k6NEYQ+mjzMupasSOFWrxKYc0oO1H4ILb2oR6B+bp556rAdv
uV/VsTcisIX9ikC9Yzf+cNrTv8aBwAV762RpohNnnDUVCp0IdJo4ebuuqBM3
tRd+dXlEYBw/K9X6fSf+92zZv/4pgSdLsrTunurEYlnzd9LeBD65cXaB8aoD
nQzZR0I+Erjou9j3+kgb7uoOFu6PJDBj9UMr4+ZWrPcRVz4YTaDDj485Ox63
olvQ8OWoWPL4CP1B/fwWtNIttZZPJvDc5biedu1mbN3PNiuQQyBXweOf2taN
KNn5zYL5l0DmV8HpCe5GfFtW/r0oj8DjKkrzDxMbMEzuOBoUEWgcHWdmwqzH
nZxqKF5JoPIzwVxLcm7gfctbUF5F4OtVK66576rDF3ST95Y1BHqFyZb75NQi
clHiPOoJ3Ey9IOa0uhaHBvYdu9tCYKmrwJoo72oU/b7k3dxKYIfgcVs1iWq8
U57w5UQ7gdconj/7K6swwDNOZLCTwE3ez2YI3ir8svax1HAfgcUlwme4ZSqw
YOmOn8AAgZeHu7pD7csx8ltLIm2QrIeeTKeNaWU4+JAu7DhMYC7/xYTsE6XY
kZCa6zdO4LLzpTUSZ4pwaeTaqacTBM7pEsv1rwrxe89IlhWDQM9L9FabygLk
F9n/Q3SKQI4Cmp7VlXw8L/xZfI70QsbMdOXHPGw6HhqZP01ghTT3Y7G+XGRY
/nRXYRFo0nvAIP7WX6weLxunEgRa1zsnNf3MQeUHp3STSWenphCzc9mY0azJ
uzRD4HbjdgO+Z3RUX8tuGTJL4JownSXhAMSjA2fTDs4RGDi2VXrVjj/IHK8+
dWqewITmJw88pTKx2MnAmU760MdpX6nMdPS+PRF/dIFAjYPy3/IU0zA0W64+
lnScml25cvkv3E8bYfEuEhih0DOXqfcTQ+IyeB6Qnq45dnRXZwomx1/bXkO6
VU7L675VMrIawoTFlgg0kLq4iFOJOJhweMd90pxNOrvnZxNQN2J6XRZpsWNr
P15bG49hPJ+JBdLbmlNcknfE4pzSjrr/lgn8vu5P2aTkZyz3+i/GnHTYDpH3
uxU+4SBf0S0/0uJnb84q6XzE6rWZh36Rlg0VH84qD0XPV5Od1aQJsUTJ5skA
VHK78mqA9MDB4k81B1/jq9q+vQTpNVM/K5vtn6LKuVcZS6Q1tiVYGxBWGBNC
O71MuqXfV7xowBQKrThxhvRI2jWJo8lPIFh9UHKYdPQO9mvSVl7w7u9gUD3p
KJt6nbUbAuCXrMB0BulJqfBbjJEQWJh5dSaY9FzqsnluYTg4aOt52ZLeT+/y
pVVHwsydd4XypDkbpvM20KOh5bbj3CrSO54q59Z8i4E2HX7hAvL+ZE+vcnV/
Fwft66LAlbSHjPWEkEcCpDif15YlXc15g00nMxGGjVQMO8j10N1xzoBbOhk+
2dQZPiP923/HYlpMCqjQDunsJn2LR6pDd+dPuGMYopBBrneBYP1yb+AvmNxR
tbqGrA+bhOttNU/T4bARtFwkfbdJwk9yNgNuCrF9rSDrq67rwk0nu9+wzXKl
ZCJZf31NFY+qriDo1qwZ5CPNe1lGZ8yCDuUeM+/ukfVayOt8d2B3NkCiJmMb
Wc/Kh76dTAvJAcctT80FyP2gp8UzkuqeB3kv+itkyf0Szc5vLqaRD/LxjJmz
kwR67/QIeC5QAHdb2d7okPsvEW/bcyYUwsu5lYPcIwS+n7G+uqW+BNYdVbLp
HyJQ6WKtU3d4KTx2nk1LI/f34Nj3/cGWZaBm/e7r6X4CU+/kp6YtlEPC7ee8
02RePHGeu9y1vgri6V3jnh3k/mMUlBjbV0HzNbH3gmS+nIc1C9VNVfBpzT5L
YTKPGFdkdDwiq2FrvAtRVkeuf8hjWXmZWhgSTub5UECg+cvnxx5qNoD55lL3
FDIfJb+tOTf5owG4Qz910Mn8tHW/L6LD3wgV3h0af5HA+j9kI2lrhBknZTnz
VAJ3VueJrbD+B2dqt2SLk3ntJnTBWPZxK6TWcFzNJvPcNsBBRruzFVZydS2c
J/OezVZmnb5CG9wdO6SsQc41WOGZuYO9HSotv5+ffEOeHz16LEupA1pW/hrO
JPuLCTdnXWRxJ0QfTElnI/tPbYBVRQzRCczXT74r2pP5l/TheuSeLkiP2r01
2Y7Ma4uZETuXLjiq+0no+HUCVfLCr9yW6gb7qWNp7GoE9kc0WzIDeqBUpHG8
i+yHSm79k3uze2Daytcu9QyBRjo+BmqjPcA/P6OhBuR6Z+wxtzrTC12eM1Ui
0gR2XY+zn5nuhd+KsdUhmwk0tAj7dUazH8TdbILW8JJ5aRLB/uphP3ya/1J4
bx1ZH3tuhv350g9WJ7c7/cdB9sPFvTIzi/3Q13TA0GKWhdv0Cy9+jR0A2eWl
C2/JOc5/WPQZc3EQUoPbNogEs1BfiufTi5ARUJUPt7PyZ2Fx1Lqf/PkjYPzj
2v2Y1+S8IjVI+E+OQKDFRW+eZywUGt0Wq6w6CgG2Y0put1nY7rFi+sv8KPzg
aRLZeI6Fb/TrY8UujcN59q4zHZNMzNmrkVi4PAG3Xe+tPT3KxDKtacWwTQyI
L+9lvSfnL9uN51+a7WNA3Wz82ZMtTLzz9fd0pRYDytruqUrkMVGwTubqxmgG
XJGdcioPZOLK/Umfj5ydhA0l/mw7pZkomyrBWeM6BfyDtz1LDjDxqvTTwykB
U5B4WG32tggT7SLv+Tz/MgUzskFB8fxMlJqq/ra6bArWG+ppNy1N40fORrab
W6Zh/FHY3U3F08iE3tf5sdOQwpXFKWEwjUaGuvOhuUzYxyvtsktnGsepMyca
6piQdyf62lr1adR/or5rdT8Ttv5tfFID06ih6Jx9nJMFh6Sbv+zcTR5fmCO6
+jwLurNEr6YMTGGQbrg9XzULrvvqz/fZTeF1loPLxmoCvIzpmGIxhWrj/1r9
OwgYn6nf89CYnHPhgD3nOAF95Rfal7Wm0D7GSrWKawZCJNY51vw3hZN8zkE1
ijOgWKRpkEDOvUp8zh2RP2ZARIz7t6rrJPK4Oz294zkLH+iKDv6OkxjJ/3D1
w+BZ8KiIUGq4PYnl3VYdjtGzkJLbsVfbZBL3Re0O08JZkHvSdXWbwiRqX/hr
4zA5C6cbzBIJtknMsdUyDtKdg+QMFcWhp+Tzj98G/f82z4P5PvUxTicGHulc
di0UnodSl1cPRW4z8NhxJT11iXlQltmmd8GIgaHn3wtKK8/Deh4tF/vjDFS+
ye+r7zgPfcI0Q+rUBD4Xc3oo0zQPeisbleSNJjCc+8fiPp8F8Cx+VtypM4HF
8/TP20IXIIvjW8ZTtQnceyAoZkX0AoQMTk2kH5vArpu+FTEZC/CJ+Cu2xDuB
PvuvX7nauwAvD+5NyfEZx53nDvLcO7oIcny6bYb6YzhVpLLasW4R2rQUcnco
j+GG/WvCFNoWwaci5vy//8bw273xIbb+RZiuYJme2jCGPktnc81mFmE2+cX5
yoJRPPRs/5bvW5eg8LjzY5bMKBoMvwk3NFyCgIteo685RtB2bMpFt3kJamcT
dicyh1HdK2FdT9cSsJg1f0q7hlHHekrIYmgJNIw0js/8HsZyJbte7dklMIvW
GuO/PYzCogURGZuX4ftnvWPPG4cwMNGislhjGeYqb9gdiRpEkZePykUyl8GL
y5Rb2ncQH49Srt7KXgYN7ZIBMZdB1BPe+iG5YBk4n6M116VBjAkfOLejdhku
hjmKR3EN4tO8G6v8R5bBs+9Zm9idATQbPtQ+z02h7Z5E448n+vHAgtgqWzkK
zfpwFpv4vn40f9EXvUmeQnPMS3T6wdePYkELz1OBQnN9YD6bOdaHnMYCWyYV
KTSz9ym/oj/2Ych6syI5DQrNhCHIOcDWh2HaYcrbTSm0itUyq5TI54Sj1qJS
8i9Jv/Yqy03uwX4DzhWRryg0qPFypoX1oM+6kM4V3hRa8aHp94fu9OBx228t
ab4UWq+AkVufYA/yvs+XYoVSaApS1fJFtt2YZWxSnB5PoV16ZZTJf7kbr+kI
XutMoNBsRtbYmil0I4+ZkcKqJAptx7/+Z6wt3cjqX6Se/kmh8W+tXzlD78JT
pVDik0Wh5bwTuvRwYxf68pq0Py6j0Ka/2BlELHRiQJ7mFtsKCo1JnO/429eJ
kTHnmy5VUWjVVt8cqJmdyKkltmZPHYW2zfqVhZFpJ0p2zz/zbSHPv6FC4GtK
B+qwH99QOkShvWJ+HZeMbkMH9v8ONa6k0txELOq7nNuwyzfTXXE1lbZC/ISa
r1YbZl28ciyBnUrb7RG51L3cioMZngWOa6g0PiMdCWP9Viyo88tmrKPSLveM
S9N5WrCUveG2+VYq7YPQkTn53mbct1W7+6sglRZ8PTwlLbMZ35071DK8jUrr
c8raFG3RjE/Mx2xu7KTSdn5ROayf8w+/fj+ue3IPlSalJ73puH0Tdrrx6jof
pNKu0or/vFJtwsg9cdeCD1FpY3fd0xqEmjA3fIg/RYJK017X+N2yvBE1ed3e
dUpRaYrXN6rY7m3EzFkVsd2HqbT9BhXzS431eIryQ13uJJU2ZK2baSpXi7QM
oTcFalRapn8edKytxd7nfPaJ56k0+pc/JvrtNcjzaNPYW3Uq7czZ1LCz7jWY
/Ts22uAClTb4RSl4dXk1rtBVuFmiTaWJXb22fptxFTofeKB+VJ9KM3E/bm0v
U4XTa1c+myf9xM+3oHRVFeoeXX/39xUqTTAq6r3910qM4ih5dMSQSpu4MZ11
rb8Crf58erbxGpU2fcyq8gNXGYY9PMZ91YxKY/HVyW9JLEVawpfoRdLXs89Z
el0kn4s8Jnjf3SC97u9em7ASDL4y41BhTqUV0HY/5pQoxg6hcf8dVuT10FQF
LGuK8HibxZpvpGXsH5XkPSjCBWSZHrOm0sJcjKLu0wvxg/2TfNWbVFr01imD
VM0CtBezuqtnS6XZHH4yQmHlY/P6EvE60tYUzpGzofnIuL6+7oIdldZedv9G
eVceuh/JI07dotK8XbY8+HM3F61KVsVx3aHS8k+vvS4bmI0qck865O2ptERK
rqYdZGNTqubKQNL7V3wJihmkY8DLEush0nqMxfObT9LxELsw55v7VFrG/sGo
P2VZ5HylHJD/gEpbLNFuExTOwucmliPrHMjrWf9U4/7938gW5f9aj7TPHs1t
u3dmYld0R0on6VMimrJXb6Vh5UubwE5HKi2v4hPlS24qyiZxaG53otLUDhu+
GuVPxS0eU1f0SK8NucZ/L/snJvuzm+ST5mgrlv/B9xO/m5y/Ok+au6DFZNLy
B6YIbIs/5EylXfJeGrXYmIJ6fQYn35AuTl1lH3EjGbXPFLr9Ib31wSf5xowk
5Nn5fdsw6Vw5ozqaaSLeVUhSgYdU2txsxKte2+/4xj2y4wZpZfUVt5W2JKDm
wcwSL9LFm2Rql83jUPR+e2QN6X4LW79L67/ioEmUzzRp0ZCFpoS0GCzYs6KG
9xG5/vOuJSuMv+Dh+2o2UqTto9+/uMj5GT+HVV89T7otu+dQVFIUetq0fzEn
7Tc40sm4/Am1FdOVn5CuG7UZffH1I1440eAXT9rheh93RPQHNK33PUEnvY8S
ZSDBeod8lquhmrSLxVqOTKUQrOUxC+0ivUV1vaZi0Ftca9ukziD9ajbEoaTf
H/elvzJYIv1S4DVeOOqLgQnv/nK6kPs/IrgsZoM3ZgTvd+clrT1kdPVb8guk
qmt+ECQt8UQo5bv2U6yRFNkoTPp7D/e7a4OOGCSR2i5KunlX3e8/urb4I5eX
fT9pecG75Xd+auIb1umXB0hvGr/5MuT0ZfDVUzb9n2/wuLTH8NyGrat3B+8j
rWehkh1b6gy+8WWi//u8rYe2r7h4xg30XE+uEyLtf+6JlmbUS6hQMtfcSjq/
VPiCGttr0Ff9b3QD6WGV2BPCSb5wxdK3i530sZb9n99fCwAJ9mtSC+T1/vD+
sZtvfRAc2eLaNEY65I3RPU8Mgaotlf/aSbfvBr1l2/egz7vnvwrSfD1Gnrd2
hIPkR42B36QD1D56SXd8hDvbdAxiSec3xaoekIqEOO8TxwJIr9i597rw009w
Lanc5RHpWC3b1C01UbDDu1LcjPS0ZpUo157PsBS/RkGVdGFcmP/CvS8Q+wSy
JUhjjs9Q4+avENf/bHqKrCe3tMNBf83j4FUeW+z/6s2lXTk/Li0eaCMXc5NI
P35hJ3lP/zvEvNh+yJK0hpny0IR6MvTf3ZGbS9b3RpvTofpEMqgc2BcdRHrV
pXqfnPAU2PWXGLQgrZqUzO098QOmo9eGrSZtr+31cY1fKmxdY/nuELm/3p/P
LroulwaK8Su8p8n9en6hM/N3VxqIs11oSyMtL3zwt5lMBlx5nBR2gnT7y4B7
obW/wb7hmoskud/LXrHEOx9mwa4rzwwGyby4p35YUkTkDzyOUgv8SNqLUd4Q
ZY/QXT/Gu4Z0QdC3+zSubGiWrZQsIvPHs8Z85yWjbJC+b19xj/SNBykHbVOy
QYc7KWcH6YbhQv3AKznguyP+k809Kk2u5fWmiri/MPTkxxGCzDtLO1/2puW/
cPO0umkgaes753d2audCqs/TFinSx8Rl3g/P50K5GyPF7DZZ39VOvQOq+fD2
uG9zGpmndT3C9x4NF8KJ7y9F15J5nPPp3SZXpSIQNNVbdCPz+ru6+oBrRBEs
C27MniXznM1xfNFJrxgupctxtltSaZv1aInn/pZAnHH6rTdkP5i2dnuuEVoO
zZwqh7xNqDR+NQ5pIWY5rIvdwtttTKXJlu4zGteogOKHh4sPk9aq0HhJX1EJ
hc2rYxqMqDQuMDp7Iq0Sfg0dG10yIPvxwmxPvXA12M5sHOjUJa/vv7T1Qheq
Qeq4/ZpNpE/RkndaPqoGn8Wb7Qo6ZL9TlauYbKiGzV+fBr8n+2VdyOPiYa8a
cFqa55Qm+ynrWEeZLasWgtZmjw8pU2mz6y2jvQoa4NLOk4TbUSrNyKGK9oLR
ANeZPiNOR6g0OzVV7ceCjSDsHfPejuzvu8dOFpjbNULn57N7tGSptLdcz9UF
tjTB8tujfvPkfFDqpdk9a/YPwm6O97aKUmlxH4+oFPn8A0mhVvvvIlTa3eP1
pYHp/wB2OL1zIecPR/cwblHuZujfwPOBT5hKWycUXy/8oxmwXvGE6Hby/q8K
lH9JbYXtX1NiKzaS9VFa81r0QCvwrNxu5biBXC8Zz9Dsi62QoloVtGs9Wb9r
jhWOfmkFDlqIpDk3lUZ7tFC8Xb0NhNe7c9eR85XhqGBpfUg7HGxI3yq1QKEx
6odEYUsnSEksCjd0UWh7gkHL62An5L2y2beqk0Kzz8zjbVDoBJ/6w9kS7RRa
gqPsWbNbnaAvmxro1Eyhqb7YO25a1AnT1Sst+mooNFGZ/RJ9Tl2wmkdahzeX
QpMyfoctzd0QuK644XMEheZ5K/JJDaMbuLfEuRqFU2jHdB+fKGDvgYeV/ic3
hVFohntHfKJlesD8IEfn7WAK7eXq3xvlPXvgkvHwxcXXFNqKEef26mO9oFbX
pKnpTKGdGjgpfjegD0ZFVAUqL1BovxqNz4fG9sHQl+ld69UptMyx7H9Zf/rA
UP9Tq6oqhcbxqmf33EAfeDfHm/06Q6FtMD1crSTfD8XtFvJ65PzvsfFLxIHe
fuBkXbibK0yhbRW5wTEnNQhivyrOXutYhhuais6flAbB/tapmKymZVjb6xmm
fGUQfp/St95QswzebHoNz9wHgegInXmXtwwvCxPtSuoHYXRm57kTX5chkM//
4yOnIdBb/9038vYybL72U+fCn2G4v1HnV+nMEmTtsD68pmoYXu2Zz7JlLMGK
re7h2D0M4j72z9nJ56dlv3vT2zhHgFWjTNtOPm9dS3zJFaE9AmUXM6Mafy/B
z/KvU0X9I/Dcmxbt4bIE/UdHue+vHQO2tSMNMXOLQJFc0RC4Ywx0XLdVbp5c
hK+n+2wSJcegJ0v2r9PgIqR8rB6puzgGFw4mPd3TuAgyxx+4d74fA3tVxdyl
H4twytoonXlgHNjrb2oW3VwEUfUk+SnhCdiZMFXrU7sA8f92DpiJT4DadpPO
lqIFULJU5Kn7bwICKaf0tuMC4A7RrBjlCQixO33DIXYB4u5vlhKxnQCODz3G
bx8twJ5w0yLbtAmwzCFcbu5egOVgcb69Kgw4cPnzg8tm87B9VTGPkDYD5g0C
dTkuzwOdJr6w2YABihdlRmLV5kErpfQjy4YBYoYeYnky8/D69eogd18GKJDP
tVeo80BU9F1taGDARHuPMFvoHKx9Y3jxmPEk7HLdIyuSPQv7z5ROCFhOwidh
1cgNP2YhUsLpFevWJDyVreOb/DwLCXv7Pn96Mgn1nR0rfbxmoVNmx/ay8EmQ
kzMqPao3Cw9HjuRfbp0EEbUAR5WhGXAOtj1I05kCn9zDbwzZZ4DpZq8WYjAF
t13qqwtmCDBxcZocNZ0CCfsThMgQAbFXv+R63JmClOLDvVmlBDDyvgp4+kxB
nMnDSwa+BKRueXk2qXAKbLQL+rT5Cdi3zz//9pFpuBxiaiOznQUPV8qHbTw5
DWxpf2VucrPgnkjZzwTFaZh+qX83ZJEJLiYlHxo1p+GNycsbVa1MePrQb3zS
ehr+bZC5khrGhK9vj3ucDJ+GEKflGENBJpzkzU0UWEG+z3TitxjPNBSNDO3c
xsEEXr/0RebCFPyKGDL939/TDx3JF0wbngJntq2GK7cyoZdHnSpYNAU3VnKm
vpNiwqmcF+NX3KZgsJu2p8yICXG2H5+UMydB87Ay9540JgSePPLoXTUDhtav
9RvLYgLH4Rs0pz8MiNz/7XnyXyaEG1j/VPvKgGiOl99FK5ggJTVZX+rKAHN+
xTfYywRNravDcpIMqKx225a4gQVvJw9r1L+aACtdmbx1W1iw6HTLZNp+AiyS
+MMttrHg++kHmauNJ+DHQeWGVXtZUP7QzJzjyASI56uOjx5nwTo86UPNGweN
5XTH29dZIHjvEPsH2zEQLUy/a2LJAoX+qNKbCmNwKNzbVM2WBWnKjg4i/GPw
dNulzVwOLChd29JxMXsUFp62XZfxZEFSDJtPwsZR2G7aEiieyII7ItuaTZKG
gdXvHxk7zYJjk20M9/YB2HzrS73NDAtyZcSfVv0YgHNtH7wOLLDg+cyVBO5X
A9Dnpn7Pn42APPnj8jqyA7C4bfPYpo0E2MoKtux+2Q9GdY/utBwkYGo9X3it
eB+kwkLkESkCrrtPOohS+yBIzEzCS5YAVUENZ8u6XshzW9ASOk7A913RV/4+
6gWfMaUX82cJSDKevVVU1gM8J1nZNtcIsIg/GnHYuhtYKgfjDU0JWPUty/rL
yW7YaSdfqXSDAJU3wpxcG7uB49dU1sqbBBSYdIrHpXWBnxdr5tADAkbsxuW0
VnWBR9LzM8e9CPC6X3Tj4vsO2MHy6s96TcArk+jUZdsOIPa8jj5G1nnV32tR
4ac6oKMo0nbbWwLeCgYHOJe1w0+grPYJJ6DBC/aMXmuDH0Hl7aJJpKXtDQfc
mqFIIbblQQoBrkMjw3LbmyHc89Zu+k8CKs2eVdv/+gc9jNrnhzMICG9VWfV5
oAkCZ6l2GTkERM5FPJxVbYSMU1uf5eUSYBD161xwTwPc4VmqK8gn79cFByHh
Rw2wOltIKLmYgA3W9qdnvtVDeuLZg9urye/L0plL5amDmP65wc4aAthms36m
fa4FEVXJ2rA6ArZocCl9OVkLy/08B+YbCVhcZqpr2NaQdZ2brtpOAOxn1tWW
VoFUv3N6UQcBhK4Rj/r1KriyXbf5ZBcB8tPYnzpfCVrSWk94esnrdRFvu7q/
EoZUJA8qkLkhwxSMZ+cpA3ULf0GnYQJC6zI4+E+UgqBIpHDMCAEpJZsM11mV
gPmf0PuDYwRo83Tl/swrgtW87tkL4wT0i4sq3ZgqhIfs/ELsDAIurywIpQgV
wiqPgK3UKXL9L05GMJ3zYWBrZvIEaRF1hULN2DywvcFh0DBNvp/NJTa0Phei
rg21ebDI739g58WU/AtvPy380iEImL7Rxc55NQeaGyXD+Mncg3upUms9s4FZ
pOXrNktAlDTXxqIihDLVpbADcwR89mrRur/7D6xkP/ur+H//T1dVlsfx6DcI
3ApvujZPQMynf62u9Rmg3ezKPkZ69k4zT7dEOjxwvQV3Fgiod3pWdtAjFW67
M5+Mkt7818rHtOsnrJyOLDFaJGCN8Fzxs+M/4GH1xp1FpKuPPiYCA5LhokC/
074lAsrshb0DRxNhJKuo7Qlpilg151rvBDj866ZKBelhWaukqpNxcG3RI2vT
//4fMevV6scTX+BlcPcRTdLsK6wpWyKjwOydQro76dKW+aD32hGwIP7w1HfS
Ah4VPiJr3sNZL/PKStKeniICszcD4f8AXJgw9w==
     "]]}},
  AxesOrigin->{0, 0},
  BaseStyle->{FontSize -> 16, FontFamily -> "Times"},
  Frame->True,
  FrameLabel->{
    FormBox["\"x[t]\"", TraditionalForm], 
    FormBox["\"x'[t]\"", TraditionalForm]},
  FrameStyle->AbsoluteThickness[2],
  ImageSize->500,
  PlotLabel->FormBox["\"Phase  portret\"", TraditionalForm],
  PlotRange->{{-1.4999992931349002`, 1.5}, {-2.1866064443296476`, 
   2.186606468719056}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.442147944953125*^9, {3.442147975421875*^9, 3.4421480950625*^9}, {
   3.442148160609375*^9, 3.442148255546875*^9}, {3.442148287640625*^9, 
   3.44214830015625*^9}}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Interactive equation solving", "Section",
 CellChangeTimes->{{3.442078631921875*^9, 3.44207863915625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Nu]", " ", "=", " ", "0.075"}], ";", 
  RowBox[{"num", "=", "40"}], ";", 
  RowBox[{"xgrid", "=", 
   RowBox[{"4.", 
    FractionBox[
     RowBox[{"Range", "[", 
      RowBox[{
       RowBox[{"-", "num"}], ",", "num"}], "]"}], "num"]}]}], ";", 
  RowBox[{"ygrid", "=", 
   RowBox[{"4.", 
    FractionBox[
     RowBox[{"Range", "[", 
      RowBox[{
       RowBox[{"-", "num"}], ",", "num"}], "]"}], "num"]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"Off", "[", 
    RowBox[{
     RowBox[{"NDSolve", "::", "\"\<eerr\>\""}], ",", 
     RowBox[{"NDSolve", "::", "\"\<eerri\>\""}]}], "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Dynamic", "[", 
   RowBox[{"Plot3D", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"u", "[", 
       RowBox[{"i", ",", "x", ",", "y"}], "]"}], "/.", "sol3"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"y", ",", 
       RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "1"}], "}"}]}], ",", 
     RowBox[{"PlotLabel", "\[Rule]", 
      RowBox[{"\"\<Solution at  t=\>\"", "<>", 
       RowBox[{"ToString", "[", "i", "]"}]}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "700"}], ",", 
     RowBox[{"BaseStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontSize", "\[Rule]", "15"}], ",", 
        RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], "}"}]}]}], 
    "]"}], "]"}], 
  RowBox[{"(*", 
   RowBox[{"Dynamic", " ", "updating", " ", "of", " ", "a", " ", "plot"}], 
   "*)"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"init", "=", 
   RowBox[{"Exp", "[", 
    RowBox[{"-", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["x", "2"], "+", 
       SuperscriptBox["y", "2"]}], ")"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "0"}], ",", 
   RowBox[{"i", "\[LessEqual]", "2.9"}], ",", 
   RowBox[{"i", "+=", "0.1"}], ",", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"sol3", " ", "=", " ", 
     RowBox[{"First", "[", 
      RowBox[{"NDSolve", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"D", "[", 
            RowBox[{
             RowBox[{"u", "[", 
              RowBox[{"t", ",", "x", ",", "y"}], "]"}], ",", "t"}], "]"}], 
           "\[Equal]", 
           RowBox[{
            RowBox[{"\[Nu]", "  ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"D", "[", 
                RowBox[{
                 RowBox[{"u", "[", 
                  RowBox[{"t", ",", "x", ",", "y"}], "]"}], ",", "x", ",", 
                 "x"}], "]"}], "+", 
               RowBox[{"D", "[", 
                RowBox[{
                 RowBox[{"u", "[", 
                  RowBox[{"t", ",", "x", ",", "y"}], "]"}], ",", "y", ",", 
                 "y"}], "]"}]}], ")"}]}], "-", 
            RowBox[{
             RowBox[{"u", "[", 
              RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", 
                RowBox[{"D", "[", 
                 RowBox[{
                  RowBox[{"u", "[", 
                   RowBox[{"t", ",", "x", ",", "y"}], "]"}], ",", "x"}], 
                 "]"}]}], "-", "  ", 
               RowBox[{"D", "[", 
                RowBox[{
                 RowBox[{"u", "[", 
                  RowBox[{"t", ",", "x", ",", "y"}], "]"}], ",", "y"}], 
                "]"}]}], ")"}]}]}]}], ",", 
          RowBox[{
           RowBox[{"u", "[", 
            RowBox[{"i", ",", "x", ",", "y"}], "]"}], "\[Equal]", "init"}], 
          ",", 
          RowBox[{
           RowBox[{"u", "[", 
            RowBox[{"t", ",", 
             RowBox[{"-", "4"}], ",", "y"}], "]"}], "\[Equal]", 
           RowBox[{"u", "[", 
            RowBox[{"t", ",", "4", ",", "y"}], "]"}]}], ",", " ", 
          RowBox[{
           RowBox[{"u", "[", 
            RowBox[{"t", ",", "x", ",", 
             RowBox[{"-", "4"}]}], "]"}], " ", "\[Equal]", " ", 
           RowBox[{"u", "[", 
            RowBox[{"t", ",", "x", ",", "4"}], "]"}]}]}], "}"}], ",", "u", 
        ",", 
        RowBox[{"{", 
         RowBox[{"t", ",", "i", ",", 
          RowBox[{"i", "+", "0.1"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", 
          RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"y", ",", 
          RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", " ", 
        RowBox[{"Method", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"\"\<MethodOfLines\>\"", ",", " ", 
           RowBox[{"Method", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"\"\<FixedStep\>\"", ",", 
              RowBox[{"\"\<StepSize\>\"", "\[Rule]", "0.009"}], ",", " ", 
              RowBox[{"Method", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"\"\<ExplicitRungeKutta\>\"", ",", 
                 RowBox[{"\"\<StiffnessTest\>\"", "\[Rule]", "False"}], ",", 
                 RowBox[{"\"\<DifferenceOrder\>\"", "\[Rule]", "4"}]}], 
                "}"}]}]}], "}"}]}], ",", 
           RowBox[{"\"\<SpatialDiscretization\>\"", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"\"\<TensorProductGrid\>\"", ",", "  ", 
              RowBox[{"\"\<Coordinates\>\"", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"xgrid", ",", " ", "ygrid"}], "}"}]}]}], "}"}]}]}], 
          "}"}]}]}], "]"}], "]"}]}], ";", 
    RowBox[{"(*", 
     RowBox[{"The", " ", "actual", " ", "iteration"}], "*)"}], 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"init", "=", 
     RowBox[{
      RowBox[{"ListInterpolation", "[", 
       RowBox[{
        RowBox[{"Partition", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"u", "[", 
               RowBox[{
                RowBox[{"i", "+", "0.1"}], ",", 
                RowBox[{"#", "[", 
                 RowBox[{"[", "1", "]"}], "]"}], ",", 
                RowBox[{"#", "[", 
                 RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "/.", "sol3"}], 
             ")"}], "&"}], "/@", 
           RowBox[{"Flatten", "[", 
            RowBox[{
             RowBox[{"Outer", "[", 
              RowBox[{"List", ",", "xgrid", ",", "ygrid"}], "]"}], ",", "1"}],
             "]"}]}], ",", 
          RowBox[{"Length", "[", "xgrid", "]"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"xgrid", ",", "ygrid"}], "}"}]}], "]"}], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}]}]}], 
  RowBox[{"(*", 
   RowBox[{
   "Interpolation", " ", "of", " ", "the", " ", "result", " ", "of", " ", 
    "the", " ", "previous", " ", "step", " ", "for", " ", "the", " ", 
    "initial", " ", "condition", " ", "at", " ", "the", " ", "next", " ", 
    "step"}], "*)"}], "]"}]}], "Input",
 CellChangeTimes->{{3.4379504468125*^9, 3.43795045940625*^9}, {
   3.43795060615625*^9, 3.437950623421875*^9}, {3.437950680515625*^9, 
   3.437950728828125*^9}, {3.43795077859375*^9, 3.43795087753125*^9}, {
   3.43795109278125*^9, 3.43795111346875*^9}, {3.437951522296875*^9, 
   3.437951523859375*^9}, {3.43795155809375*^9, 3.43795155821875*^9}, {
   3.43801447875*^9, 3.43801450140625*^9}, {3.438014557328125*^9, 
   3.438014666765625*^9}, {3.4380147035625*^9, 3.438014746921875*^9}, {
   3.4380147830625*^9, 3.438014799875*^9}, {3.438014944890625*^9, 
   3.43801495*^9}, {3.438015533421875*^9, 3.43801556384375*^9}, 
   3.438026500234375*^9, {3.442079605375*^9, 3.442079605609375*^9}, 
   3.442079968921875*^9, {3.442080035234375*^9, 3.44208017925*^9}, {
   3.442080220484375*^9, 3.442080281171875*^9}, {3.44208033815625*^9, 
   3.442080375875*^9}, {3.442080429484375*^9, 3.4420804444375*^9}, {
   3.44208049771875*^9, 3.4420805516875*^9}, {3.442080599953125*^9, 
   3.44208061015625*^9}, {3.442080649640625*^9, 3.4420806504375*^9}, {
   3.442080714703125*^9, 3.44208077565625*^9}, {3.44208080634375*^9, 
   3.4420808663125*^9}, {3.442080937703125*^9, 3.442080961109375*^9}, {
   3.442081106390625*^9, 3.442081158703125*^9}, {3.442081389125*^9, 
   3.442081390546875*^9}, {3.44208165378125*^9, 3.44208165509375*^9}}],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{3.4420832935625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"\[Nu]", " ", "=", " ", "0.075"}], ";", 
   RowBox[{"num", "=", "40"}], ";", 
   RowBox[{"xgrid", "=", 
    RowBox[{"4.", 
     FractionBox[
      RowBox[{"Range", "[", 
       RowBox[{
        RowBox[{"-", "num"}], ",", "num"}], "]"}], "num"]}]}], ";", 
   RowBox[{"ygrid", "=", 
    RowBox[{"4.", 
     FractionBox[
      RowBox[{"Range", "[", 
       RowBox[{
        RowBox[{"-", "num"}], ",", "num"}], "]"}], "num"]}]}], ";", "\n", 
   RowBox[{"Off", "[", 
    RowBox[{
     RowBox[{"NDSolve", "::", "\"\<eerr\>\""}], ",", 
     RowBox[{"NDSolve", "::", "\"\<eerri\>\""}]}], "]"}], ";", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Dynamic", "[", 
     RowBox[{"Plot3D", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"u", "[", 
         RowBox[{
          RowBox[{"i", "-", "0.1"}], ",", "x", ",", "y"}], "]"}], "/.", 
        "sol"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"y", ",", 
         RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0", ",", "1"}], "}"}]}], ",", 
       RowBox[{"PlotLabel", "\[Rule]", 
        RowBox[{"\"\<Solution at  t=\>\"", "<>", 
         RowBox[{"ToString", "[", 
          RowBox[{"i", "-", "0.1"}], "]"}]}]}], ",", 
       RowBox[{"ImageSize", "\[Rule]", "700"}], ",", 
       RowBox[{"BaseStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"FontSize", "\[Rule]", "15"}], ",", 
          RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], "}"}]}]}], 
      "]"}], "]"}], 
    RowBox[{"(*", 
     RowBox[{"Dynamic", " ", "updating", " ", "of", " ", "a", " ", "plot"}], 
     "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"NDSolve`stop", " ", "=", " ", "False"}]}], ";", "\n", 
   RowBox[{"GUIRun", "[", 
    RowBox[{"Widget", "[", 
     RowBox[{"\"\<Panel\>\"", ",", " ", 
      RowBox[{"{", 
       RowBox[{"Widget", "[", 
        RowBox[{"\"\<Button\>\"", ",", 
         RowBox[{"{", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"\"\<label\>\"", "\[Rule]", "\"\<Stop\>\""}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"BindEvent", "[", 
            RowBox[{"\"\<action\>\"", ",", "\[IndentingNewLine]", 
             RowBox[{"Script", "[", 
              RowBox[{"NDSolve`stop", " ", "=", " ", "True"}], "]"}]}], 
            "]"}]}], "}"}]}], "]"}], "}"}]}], "]"}], "]"}], ";", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"state", "=", 
    RowBox[{
     RowBox[{
      RowBox[{"NDSolve`ProcessEquations", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{
            SubscriptBox["\[PartialD]", "t"], 
            RowBox[{"u", "[", 
             RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], "\[Equal]", 
           RowBox[{
            RowBox[{"\[Nu]", "  ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SubscriptBox["\[PartialD]", 
                 RowBox[{"{", 
                  RowBox[{"x", ",", "2"}], "}"}]], 
                RowBox[{"u", "[", 
                 RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], "+", 
               RowBox[{
                SubscriptBox["\[PartialD]", 
                 RowBox[{"{", 
                  RowBox[{"y", ",", "2"}], "}"}]], 
                RowBox[{"u", "[", 
                 RowBox[{"t", ",", "x", ",", "y"}], "]"}]}]}], ")"}]}], "-", 
            RowBox[{
             RowBox[{"u", "[", 
              RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", 
                RowBox[{
                 SubscriptBox["\[PartialD]", "x"], 
                 RowBox[{"u", "[", 
                  RowBox[{"t", ",", "x", ",", "y"}], "]"}]}]}], "-", "  ", 
               RowBox[{
                SubscriptBox["\[PartialD]", "y"], 
                RowBox[{"u", "[", 
                 RowBox[{"t", ",", "x", ",", "y"}], "]"}]}]}], ")"}]}]}]}], 
          ",", 
          RowBox[{
           RowBox[{"u", "[", 
            RowBox[{"0", ",", "x", ",", "y"}], "]"}], "\[Equal]", 
           RowBox[{"Exp", "[", 
            RowBox[{"-", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox["x", "2"], "+", 
               SuperscriptBox["y", "2"]}], ")"}]}], "]"}]}], ",", 
          RowBox[{
           RowBox[{"u", "[", 
            RowBox[{"t", ",", 
             RowBox[{"-", "4"}], ",", "y"}], "]"}], "\[Equal]", 
           RowBox[{"u", "[", 
            RowBox[{"t", ",", "4", ",", "y"}], "]"}]}], ",", " ", 
          RowBox[{
           RowBox[{"u", "[", 
            RowBox[{"t", ",", "x", ",", 
             RowBox[{"-", "4"}]}], "]"}], " ", "\[Equal]", " ", 
           RowBox[{"u", "[", 
            RowBox[{"t", ",", "x", ",", "4"}], "]"}]}]}], "}"}], ",", "u", 
        ",", "t", ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", 
          RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"y", ",", 
          RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", " ", 
        RowBox[{"Method", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"\"\<MethodOfLines\>\"", ",", " ", 
           RowBox[{"Method", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"\"\<FixedStep\>\"", ",", 
              RowBox[{"\"\<StepSize\>\"", "\[Rule]", "0.009"}], ",", " ", 
              RowBox[{"Method", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"\"\<ExplicitRungeKutta\>\"", ",", 
                 RowBox[{"\"\<StiffnessTest\>\"", "\[Rule]", "False"}], ",", 
                 RowBox[{"\"\<DifferenceOrder\>\"", "\[Rule]", "4"}]}], 
                "}"}]}]}], "}"}]}], ",", 
           RowBox[{"\"\<SpatialDiscretization\>\"", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"\"\<TensorProductGrid\>\"", ",", "  ", 
              RowBox[{"\"\<Coordinates\>\"", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"xgrid", ",", " ", "ygrid"}], "}"}]}]}], "}"}]}]}], 
          "}"}]}]}], "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}], "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"For", "[", 
      RowBox[{
       RowBox[{"i", "=", "0.1"}], ",", 
       RowBox[{"i", "\[LessEqual]", "3"}], ",", 
       RowBox[{"i", "+=", "0.1"}], ",", 
       RowBox[{
        RowBox[{"NDSolve`Iterate", "[", 
         RowBox[{"state", ",", "i"}], "]"}], ";", 
        RowBox[{"sol", " ", "=", " ", 
         RowBox[{"NDSolve`ProcessSolutions", "[", "state", "]"}]}]}]}], 
      "]"}]}]}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.442081356765625*^9, 3.44208158728125*^9}, {
  3.442081657453125*^9, 3.4420816804375*^9}, {3.44208172453125*^9, 
  3.44208179759375*^9}, {3.44208207071875*^9, 3.442082074328125*^9}, {
  3.44224548678125*^9, 3.4422454898125*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"NDSolve`StateData", "[", 
   InterpretationBox[
    RowBox[{"\<\"<\"\>", "\[InvisibleSpace]", "0.`", 
     "\[InvisibleSpace]", "\<\">\"\>"}],
    SequenceForm["<", 0., ">"],
    Editable->False], "]"}],
  False,
  Editable->False]], "Output",
 CellChangeTimes->{{3.442081380828125*^9, 3.442081413359375*^9}, 
   3.442081446671875*^9, {3.442081574890625*^9, 3.442081588109375*^9}, 
   3.4420816294375*^9, 3.442081682734375*^9, 3.442081726015625*^9, {
   3.44208178275*^9, 3.442081798578125*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Nu]", " ", "=", " ", "0.075"}], ";", 
  RowBox[{"num", "=", "40"}], ";", 
  RowBox[{"xgrid", "=", 
   RowBox[{"4.", 
    FractionBox[
     RowBox[{"Range", "[", 
      RowBox[{
       RowBox[{"-", "num"}], ",", "num"}], "]"}], "num"]}]}], ";", 
  RowBox[{"ygrid", "=", 
   RowBox[{"4.", 
    FractionBox[
     RowBox[{"Range", "[", 
      RowBox[{
       RowBox[{"-", "num"}], ",", "num"}], "]"}], "num"]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"Off", "[", 
    RowBox[{
     RowBox[{"NDSolve", "::", "\"\<eerr\>\""}], ",", 
     RowBox[{"NDSolve", "::", "\"\<eerri\>\""}]}], "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Dynamic", "[", 
   RowBox[{"Plot3D", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"u", "[", 
       RowBox[{
        RowBox[{"i", "-", "0.1"}], ",", "x", ",", "y"}], "]"}], "/.", "sol"}],
      ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"y", ",", 
       RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "1"}], "}"}]}], ",", 
     RowBox[{"PlotLabel", "\[Rule]", 
      RowBox[{"\"\<Solution at  t=\>\"", "<>", 
       RowBox[{"ToString", "[", 
        RowBox[{"i", "-", "0.1"}], "]"}]}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "700"}], ",", 
     RowBox[{"BaseStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontSize", "\[Rule]", "15"}], ",", 
        RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], "}"}]}]}], 
    "]"}], "]"}], 
  RowBox[{"(*", 
   RowBox[{"Dynamic", " ", "updating", " ", "of", " ", "a", " ", "plot"}], 
   "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"NDSolve`stop", " ", "=", " ", "False"}], ";", "\n", 
    RowBox[{"GUIRun", "[", 
     RowBox[{"Widget", "[", 
      RowBox[{"\"\<Panel\>\"", ",", " ", 
       RowBox[{"{", 
        RowBox[{"Widget", "[", 
         RowBox[{"\"\<Button\>\"", ",", 
          RowBox[{"{", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"\"\<label\>\"", "\[Rule]", "\"\<Stop\>\""}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"BindEvent", "[", 
             RowBox[{"\"\<action\>\"", ",", "\[IndentingNewLine]", 
              RowBox[{"Script", "[", 
               RowBox[{"NDSolve`stop", " ", "=", " ", "True"}], "]"}]}], 
             "]"}]}], "}"}]}], "]"}], "}"}]}], "]"}], "]"}], ";"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"NDSolve`stop", "=", "False"}], ";", 
  RowBox[{"flag", "=", "False"}], ";", 
  RowBox[{"caption", "=", "\"\<Click here to stop\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Button", "[", 
   RowBox[{
    RowBox[{"Dynamic", "[", "caption", "]"}], ",", 
    RowBox[{
     RowBox[{"NDSolve`stop", "=", "True"}], ";", 
     RowBox[{"flag", "=", "True"}], ";", 
     RowBox[{"caption", "=", "\"\<Stopping. Wait...\>\""}]}]}], "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"state", "=", 
   RowBox[{
    RowBox[{"NDSolve`ProcessEquations", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{
          SubscriptBox["\[PartialD]", "t"], 
          RowBox[{"u", "[", 
           RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], "\[Equal]", 
         RowBox[{
          RowBox[{"\[Nu]", "  ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SubscriptBox["\[PartialD]", 
               RowBox[{"{", 
                RowBox[{"x", ",", "2"}], "}"}]], 
              RowBox[{"u", "[", 
               RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], "+", 
             RowBox[{
              SubscriptBox["\[PartialD]", 
               RowBox[{"{", 
                RowBox[{"y", ",", "2"}], "}"}]], 
              RowBox[{"u", "[", 
               RowBox[{"t", ",", "x", ",", "y"}], "]"}]}]}], ")"}]}], "-", 
          RowBox[{
           RowBox[{"u", "[", 
            RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"2", 
              RowBox[{
               SubscriptBox["\[PartialD]", "x"], 
               RowBox[{"u", "[", 
                RowBox[{"t", ",", "x", ",", "y"}], "]"}]}]}], "-", "  ", 
             RowBox[{
              SubscriptBox["\[PartialD]", "y"], 
              RowBox[{"u", "[", 
               RowBox[{"t", ",", "x", ",", "y"}], "]"}]}]}], ")"}]}]}]}], ",", 
        RowBox[{
         RowBox[{"u", "[", 
          RowBox[{"0", ",", "x", ",", "y"}], "]"}], "\[Equal]", 
         RowBox[{"Exp", "[", 
          RowBox[{"-", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["x", "2"], "+", 
             SuperscriptBox["y", "2"]}], ")"}]}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"u", "[", 
          RowBox[{"t", ",", 
           RowBox[{"-", "4"}], ",", "y"}], "]"}], "\[Equal]", 
         RowBox[{"u", "[", 
          RowBox[{"t", ",", "4", ",", "y"}], "]"}]}], ",", " ", 
        RowBox[{
         RowBox[{"u", "[", 
          RowBox[{"t", ",", "x", ",", 
           RowBox[{"-", "4"}]}], "]"}], " ", "\[Equal]", " ", 
         RowBox[{"u", "[", 
          RowBox[{"t", ",", "x", ",", "4"}], "]"}]}]}], "}"}], ",", "u", ",", 
      "t", ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", 
        RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"y", ",", 
        RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", " ", 
      RowBox[{"Method", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"\"\<MethodOfLines\>\"", ",", 
         RowBox[{"Method", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"\"\<EventLocator\>\"", ",", 
            RowBox[{"\"\<Event\>\"", "\[RuleDelayed]", "NDSolve`stop"}], ",", 
            " ", 
            RowBox[{"Method", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"\"\<FixedStep\>\"", ",", 
               RowBox[{"\"\<StepSize\>\"", "\[Rule]", "0.01"}], ",", " ", 
               RowBox[{"Method", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"\"\<ExplicitRungeKutta\>\"", ",", 
                  RowBox[{"\"\<StiffnessTest\>\"", "\[Rule]", "False"}], ",", 
                  RowBox[{"\"\<DifferenceOrder\>\"", "\[Rule]", "4"}]}], 
                 "}"}]}]}], "}"}]}]}], "}"}]}], ",", 
         RowBox[{"\"\<SpatialDiscretization\>\"", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"\"\<TensorProductGrid\>\"", ",", "  ", 
            RowBox[{"\"\<Coordinates\>\"", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"xgrid", ",", " ", "ygrid"}], "}"}]}]}], "}"}]}]}], 
        "}"}]}]}], "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "0.1"}], ",", 
   RowBox[{"i", "\[LessEqual]", "100"}], ",", 
   RowBox[{"i", "+=", "0.1"}], ",", 
   RowBox[{
    RowBox[{"ii", "=", "i"}], ";", 
    RowBox[{"If", "[", 
     RowBox[{"flag", ",", 
      RowBox[{"Break", "[", "]"}]}], "]"}], ";", 
    RowBox[{"NDSolve`Iterate", "[", 
     RowBox[{"state", ",", "i"}], "]"}], ";", 
    RowBox[{"sol", " ", "=", " ", 
     RowBox[{"NDSolve`ProcessSolutions", "[", "state", "]"}]}]}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"i", "=", 
   RowBox[{"ii", "-", "0.1"}]}], ";", 
  RowBox[{"caption", "=", 
   RowBox[{"\"\<Stopped at i=\>\"", "<>", 
    RowBox[{"ToString", "[", 
     RowBox[{"i", "-", "0.1"}], "]"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.442081356765625*^9, 3.44208158728125*^9}, {
  3.442081657453125*^9, 3.4420816804375*^9}, {3.44208172453125*^9, 
  3.44208179759375*^9}, {3.44208207071875*^9, 3.442082074328125*^9}, {
  3.4420822186875*^9, 3.4420822949375*^9}, {3.44208232746875*^9, 
  3.4420823539375*^9}, {3.442082393015625*^9, 3.4420824138125*^9}, {
  3.442082458*^9, 3.442082491703125*^9}, {3.442082531359375*^9, 
  3.442082569171875*^9}, {3.44208261690625*^9, 3.442082663734375*^9}, {
  3.4420827154375*^9, 3.442082744703125*^9}, {3.442082774890625*^9, 
  3.442082781515625*^9}, {3.44208282253125*^9, 3.442082845296875*^9}, {
  3.442082877*^9, 3.442082877484375*^9}, {3.44208291784375*^9, 
  3.442082969328125*^9}, {3.442083104453125*^9, 3.44208310903125*^9}, {
  3.442083172921875*^9, 3.442083174421875*^9}, {3.442083210546875*^9, 
  3.44208321221875*^9}}],

Cell[BoxData[
 ButtonBox[
  DynamicBox[ToBoxes[$CellContext`caption, StandardForm],
   ImageSizeCache->{46., {3., 10.}}],
  Appearance->Automatic,
  ButtonFunction:>(
   NDSolve`stop = True; $CellContext`flag = True; $CellContext`caption = 
    "Stopping. Wait..."),
  Evaluator->Automatic,
  Method->"Preemptive"]], "Output",
 CellChangeTimes->{
  3.44208236525*^9, {3.442082395671875*^9, 3.44208241571875*^9}, 
   3.44208249353125*^9, {3.442082546734375*^9, 3.44208257071875*^9}, {
   3.44208261809375*^9, 3.44208263146875*^9}, {3.442082664171875*^9, 
   3.442082685421875*^9}, 3.4420827506875*^9, 3.442082785203125*^9, 
   3.44208284828125*^9, 3.44208288109375*^9, 3.44208297253125*^9, 
   3.442083111*^9, 3.44208318271875*^9, 3.442083220421875*^9}],

Cell[BoxData[
 TagBox[
  RowBox[{"NDSolve`StateData", "[", 
   InterpretationBox[
    RowBox[{"\<\"<\"\>", "\[InvisibleSpace]", "0.`", 
     "\[InvisibleSpace]", "\<\">\"\>"}],
    SequenceForm["<", 0., ">"],
    Editable->False], "]"}],
  False,
  Editable->False]], "Output",
 CellChangeTimes->{
  3.44208236525*^9, {3.442082395671875*^9, 3.44208241571875*^9}, 
   3.44208249353125*^9, {3.442082546734375*^9, 3.44208257071875*^9}, {
   3.44208261809375*^9, 3.44208263146875*^9}, {3.442082664171875*^9, 
   3.442082685421875*^9}, 3.4420827506875*^9, 3.442082785203125*^9, 
   3.44208284828125*^9, 3.44208288109375*^9, 3.44208297253125*^9, 
   3.442083111*^9, 3.44208318271875*^9, 3.442083220453125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["sol"], "Input",
 CellChangeTimes->{{3.44208315459375*^9, 3.442083170203125*^9}, {
  3.442083252765625*^9, 3.442083254640625*^9}, {3.442083433265625*^9, 
  3.442083433640625*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"u", "\[Rule]", 
   TagBox[
    RowBox[{"InterpolatingFunction", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0.`", ",", "0.45`"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "4.`"}], ",", "4.`"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "4.`"}], ",", "4.`"}], "}"}]}], "}"}], 
      ",", "\<\"<>\"\>"}], "]"}],
    False,
    Editable->False]}], "}"}]], "Output",
 CellChangeTimes->{{3.44208324809375*^9, 3.442083255*^9}, 
   3.442083434109375*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Inverting functions: chemical potential of Fermi gas as a function of \
temperature\
\>", "Section",
 CellChangeTimes->{{3.442145911453125*^9, 3.442145913984375*^9}, {
  3.442146874578125*^9, 3.442146891484375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{"\[Mu]", ",", "tt"}], "]"}], ";", 
  RowBox[{"Off", "[", 
   RowBox[{"FindRoot", "::", "\"\<lstol\>\""}], "]"}], ";", 
  RowBox[{"h", "=", 
   RowBox[{"6.627", "*", 
    SuperscriptBox["10", 
     RowBox[{"-", "27"}]]}]}], ";", 
  RowBox[{"k", "=", 
   RowBox[{"1.38", "*", 
    SuperscriptBox["10", 
     RowBox[{"-", "16"}]]}]}], ";", 
  RowBox[{"me", "=", 
   RowBox[{"9.1", "*", 
    SuperscriptBox["10", 
     RowBox[{"-", "28"}]]}]}], ";", 
  RowBox[{"mp", "=", 
   RowBox[{"1.67", "*", 
    SuperscriptBox["10", 
     RowBox[{"-", "24"}]]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Rho]", "=", 
   SuperscriptBox["10", "3"]}], ";", 
  RowBox[{"n", "=", 
   FractionBox["\[Rho]", "mp"]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Ev", "=", 
   RowBox[{"1.602", "*", 
    SuperscriptBox["10", 
     RowBox[{"-", "12"}]]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"expr", "=", 
  RowBox[{"n", "\[Equal]", 
   RowBox[{"Integrate", "[", 
    RowBox[{
     RowBox[{
      FractionBox["2", 
       SuperscriptBox["h", "3"]], 
      FractionBox["1", 
       RowBox[{
        RowBox[{"Exp", "[", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            FractionBox[
             SuperscriptBox["p", "2"], 
             RowBox[{"2", "me"}]], "-", 
            RowBox[{
             SuperscriptBox["10", "3"], "Ev", " ", "\[Mu]"}]}], ")"}], "/", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["10", "3"], "Ev", " ", "T"}], ")"}]}], "]"}], "+", 
        "1"}]], "4", "\[Pi]", " ", 
      SuperscriptBox["p", "2"]}], ",", 
     RowBox[{"{", 
      RowBox[{"p", ",", "0", ",", 
       RowBox[{"+", "\[Infinity]"}]}], "}"}], ",", 
     RowBox[{"GenerateConditions", "\[Rule]", "False"}]}], "]"}], 
   RowBox[{"(*", 
    RowBox[{
    "Implicit", " ", "relation", " ", "for", " ", "temperature", " ", "and", 
     " ", "chemical", " ", "potential", " ", "of", " ", "Fermi", " ", "gas"}],
     "*)"}]}]}]}], "Input",
 CellChangeTimes->{{3.412799301140625*^9, 3.412799413140625*^9}, {
   3.412799469984375*^9, 3.412799576765625*^9}, {3.412799648625*^9, 
   3.41279967396875*^9}, {3.41280000690625*^9, 3.412800046890625*^9}, {
   3.412803586203125*^9, 3.41280358634375*^9}, {3.41280365*^9, 
   3.41280368515625*^9}, {3.41280392678125*^9, 3.412803927796875*^9}, {
   3.412804074609375*^9, 3.412804075125*^9}, {3.412804126296875*^9, 
   3.41280413678125*^9}, {3.412804208671875*^9, 3.412804209640625*^9}, 
   3.413033025953125*^9, {3.413033163484375*^9, 3.413033204359375*^9}, {
   3.41303325446875*^9, 3.413033258140625*^9}, {3.413033787109375*^9, 
   3.413033800765625*^9}, {3.4130338435625*^9, 3.41303387140625*^9}, {
   3.413037860484375*^9, 3.4130378608125*^9}, 3.413038621578125*^9, {
   3.413942120296875*^9, 3.4139421673125*^9}, {3.41394240771875*^9, 
   3.41394240809375*^9}, {3.4139430468125*^9, 3.413943048*^9}, {
   3.4140020395625*^9, 3.4140020424375*^9}, {3.414002173578125*^9, 
   3.414002174*^9}, {3.41400220509375*^9, 3.414002209765625*^9}, {
   3.442146528875*^9, 3.442146561125*^9}, {3.442146746296875*^9, 
   3.44214675084375*^9}}],

Cell[BoxData[
 RowBox[{"5.988023952095808`*^26", "\[Equal]", 
  RowBox[{"-", 
   FractionBox[
    RowBox[{"1.9050428230400592`*^26", " ", 
     RowBox[{"PolyLog", "[", 
      RowBox[{
       FractionBox["3", "2"], ",", 
       RowBox[{"-", 
        SuperscriptBox["\[ExponentialE]", 
         FractionBox[
          RowBox[{"1.`", " ", "\[Mu]"}], "T"]]}]}], "]"}]}], 
    SuperscriptBox[
     RowBox[{"(", 
      FractionBox["1", "T"], ")"}], 
     RowBox[{"3", "/", "2"}]]]}]}]], "Output",
 CellChangeTimes->{{3.412799466109375*^9, 3.412799533390625*^9}, 
   3.412799577703125*^9, {3.412799660828125*^9, 3.412799675109375*^9}, 
   3.41280000846875*^9, {3.4128000386875*^9, 3.412800047875*^9}, 
   3.41280076003125*^9, 3.412803588796875*^9, {3.412803651625*^9, 
   3.41280368675*^9}, {3.41280394584375*^9, 3.4128039729375*^9}, 
   3.412804077421875*^9, {3.412804127625*^9, 3.41280413778125*^9}, 
   3.412804211015625*^9, 3.413033207375*^9, {3.413033254859375*^9, 
   3.413033259*^9}, 3.413033299328125*^9, {3.4130337904375*^9, 
   3.4130338011875*^9}, 3.41394217521875*^9, 3.41394241171875*^9, 
   3.413942474109375*^9, 3.413943051171875*^9, 3.413987132140625*^9, 
   3.414001973234375*^9, 3.41400201396875*^9, 3.4140020461875*^9, 
   3.4140020775*^9, {3.4140021749375*^9, 3.414002210984375*^9}, 
   3.414063041109375*^9, 3.442146852171875*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"mu", "[", 
   RowBox[{"tt_", "?", "NumberQ"}], "]"}], ":=", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"\[Mu]", "/.", 
     RowBox[{"FindRoot", "[", 
      RowBox[{
       RowBox[{"expr", "/.", 
        RowBox[{"T", "\[Rule]", "tt"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Mu]", ",", "0"}], "}"}]}], "]"}]}], "//", "Chop"}], ")"}], 
  RowBox[{"(*", 
   RowBox[{
   "Find", " ", "chemical", " ", "potential", " ", "as", " ", "a", " ", 
    "function", " ", "of", " ", "temperature"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.4128002154375*^9, 3.41280024175*^9}, {
   3.41280032321875*^9, 3.412800389*^9}, {3.412800450359375*^9, 
   3.412800476828125*^9}, {3.413033917109375*^9, 3.413033933171875*^9}, {
   3.41394247809375*^9, 3.4139424795625*^9}, 3.413943142703125*^9, {
   3.442147282109375*^9, 3.44214728409375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"mu", "[", "2", "]"}], 
  RowBox[{"(*", 
   RowBox[{"Calculate", " ", "at", " ", "some", " ", "temperature"}], 
   "*)"}]}]], "Input",
 CellChangeTimes->{{3.41280409321875*^9, 3.412804101296875*^9}, {
  3.41280413140625*^9, 3.41280414409375*^9}, {3.4128042188125*^9, 
  3.412804224265625*^9}, {3.4130332375*^9, 3.4130332738125*^9}, {
  3.413033935890625*^9, 3.4130339440625*^9}, {3.413942193578125*^9, 
  3.413942246953125*^9}, {3.413942418578125*^9, 3.413942419390625*^9}, {
  3.413942454046875*^9, 3.41394249140625*^9}, {3.413943054515625*^9, 
  3.413943059578125*^9}, {3.41400211*^9, 3.414002110609375*^9}, {
  3.414063040875*^9, 3.414063041875*^9}}],

Cell[BoxData["0.985052074923893`"], "Output",
 CellChangeTimes->{{3.41280409884375*^9, 3.412804144484375*^9}, {
   3.41280421590625*^9, 3.412804224875*^9}, {3.413033215984375*^9, 
   3.4130332745625*^9}, 3.41303330503125*^9, 3.41303380578125*^9, 
   3.413033959703125*^9, {3.413942186109375*^9, 3.413942247453125*^9}, {
   3.41394241559375*^9, 3.413942422078125*^9}, {3.413942456296875*^9, 
   3.413942491859375*^9}, {3.413943056046875*^9, 3.41394306009375*^9}, 
   3.413943144375*^9, 3.413987133484375*^9, 3.414002078890625*^9, 
   3.4140021110625*^9, {3.41400217653125*^9, 3.414002193703125*^9}, 
   3.41406304275*^9, 3.442146854859375*^9, 3.44214728596875*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"LogLinearPlot", "[", 
   RowBox[{
    RowBox[{"mu", "[", "T", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"T", ",", "0.6", ",", "3.5"}], "}"}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"Blue", ",", 
       RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "}"}]}], ",", 
    RowBox[{"Frame", "\[Rule]", "True"}], ",", 
    RowBox[{"FrameStyle", "\[Rule]", 
     RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], ",", 
    RowBox[{"BaseStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
       RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
       RowBox[{"FontSize", "\[Rule]", "18"}]}], "}"}]}], ",", 
    RowBox[{"FrameLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<Temperature kT, keV\>\"", ",", 
       "\"\<Chemical potential \[Mu], keV\>\""}], "}"}]}], ",", 
    RowBox[{"ImageSize", "\[Rule]", "550"}]}], "]"}], 
  RowBox[{"(*", 
   RowBox[{"plot", " ", "of", " ", 
    RowBox[{"mu", "[", "T", "]"}], " ", "vs", " ", "T"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.412800331484375*^9, 3.412800333671875*^9}, {
   3.4128004815625*^9, 3.412800492671875*^9}, {3.412800633265625*^9, 
   3.412800709234375*^9}, {3.412800914765625*^9, 3.412800915453125*^9}, {
   3.41280094646875*^9, 3.412800946859375*^9}, {3.412803603359375*^9, 
   3.412803605359375*^9}, {3.412803657484375*^9, 3.412803660015625*^9}, {
   3.412803703515625*^9, 3.412803719921875*^9}, {3.4128039785*^9, 
   3.412803982203125*^9}, {3.41280422803125*^9, 3.412804265921875*^9}, {
   3.41303396525*^9, 3.41303397475*^9}, {3.413037643703125*^9, 
   3.413037690421875*^9}, {3.4139422531875*^9, 3.41394225809375*^9}, {
   3.413942371515625*^9, 3.4139423836875*^9}, {3.4139424954375*^9, 
   3.413942511015625*^9}, {3.41394306396875*^9, 3.413943081984375*^9}, {
   3.413943163*^9, 3.413943167453125*^9}, {3.4140630363125*^9, 
   3.414063036734375*^9}, {3.41406307478125*^9, 3.41406307525*^9}, 
   3.4140631148125*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Inverting functions: amplitude of a non-linear oscillator as a function of \
period\
\>", "Section",
 CellChangeTimes->{{3.442145911453125*^9, 3.442145913984375*^9}, {
  3.442146874578125*^9, 3.442146891484375*^9}, {3.4421470631875*^9, 
  3.442147071390625*^9}, {3.44214855778125*^9, 3.442148587328125*^9}, {
  3.442148668671875*^9, 3.442148686546875*^9}, {3.44214873790625*^9, 
  3.442148759796875*^9}}],

Cell[CellGroupData[{

Cell["Applicable to all boundary value problems", "Subsection",
 CellChangeTimes->{{3.442151285359375*^9, 3.442151315375*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Clear", "[", 
    RowBox[{"AA", ",", "a", ",", "amp", ",", "p"}], "]"}], ";", 
   RowBox[{
    RowBox[{"amp", "[", 
     RowBox[{"p_", "?", "NumberQ"}], "]"}], ":=", 
    RowBox[{"a", "/.", 
     RowBox[{"(", 
      RowBox[{"FindRoot", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"x", "[", "p", "]"}], "/.", 
         RowBox[{"NDSolve", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"x", "''"}], "[", "t", "]"}], "+", 
               RowBox[{"x", "[", "t", "]"}], "+", 
               RowBox[{
                RowBox[{"x", "[", "t", "]"}], "^", "3"}]}], "\[Equal]", "0"}],
              ",", 
             RowBox[{
              RowBox[{"x", "[", "0", "]"}], "\[Equal]", "a"}], ",", 
             RowBox[{
              RowBox[{
               RowBox[{"x", "'"}], "[", "0", "]"}], "\[Equal]", "0"}]}], 
            "}"}], ",", "x", ",", 
           RowBox[{"{", 
            RowBox[{"t", ",", "p"}], "}"}]}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"a", ",", "1"}], "}"}]}], "]"}], ")"}]}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"NDSolve", " ", "inside", " ", "FindRoot"}], ",", " ", 
    RowBox[{"syntax", " ", "DOES", " ", "matter"}]}], "*)"}], 
  "\n"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Off", "[", 
   RowBox[{
    RowBox[{"NDSolve", "::", "\"\<ndinnt\>\""}], ",", 
    RowBox[{"ReplaceAll", "::", "\"\<reps\>\""}]}], "]"}], ";", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "The", " ", "above", " ", "evaluations", " ", "produces", " ", "error", 
     " ", "messages"}], ",", " ", 
    RowBox[{
    "but", " ", "evaluates", " ", "to", " ", "the", " ", "correct", " ", 
     "results"}], ",", " ", 
    RowBox[{
     RowBox[{
     "so", " ", "switching", " ", "the", " ", "error", " ", "messages", " ", 
      "off"}], "..."}]}], "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"amp", "[", 
     FractionBox["p", "4"], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"p", ",", "4", ",", "6.3"}], "}"}], ",", 
    RowBox[{"Frame", "\[Rule]", "True"}], ",", 
    RowBox[{"FrameLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\"\<period  T\>\"", ",", "\"\<amplitude  A\>\""}], "}"}]}], 
    ",", 
    RowBox[{"BaseStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"FontSize", "\[Rule]", "16"}], ",", 
       RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], "}"}]}], ",", 
    RowBox[{"FrameStyle", "\[Rule]", 
     RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], ",", 
    RowBox[{"ImageSize", "\[Rule]", "600"}], ",", 
    RowBox[{"PlotLabel", "\[Rule]", "\"\<Non-linear oscillator\>\""}]}], 
   "]"}]}]}], "Input",
 CellChangeTimes->{{3.442147046828125*^9, 3.442147077875*^9}, {
   3.442147504734375*^9, 3.442147814296875*^9}, {3.442147898234375*^9, 
   3.44214791959375*^9}, 3.442148420953125*^9, {3.442148524*^9, 
   3.44214852671875*^9}, {3.442148859453125*^9, 3.442148935953125*^9}, {
   3.442149000328125*^9, 3.442149026765625*^9}, {3.442149114953125*^9, 
   3.442149193625*^9}, {3.44214922765625*^9, 3.44214929934375*^9}, {
   3.442149356671875*^9, 3.442149503421875*^9}, 3.44215009*^9, {
   3.44215028325*^9, 3.44215034234375*^9}, {3.44215037784375*^9, 
   3.44215043534375*^9}, 3.442150466234375*^9, {3.44215049953125*^9, 
   3.442150520234375*^9}, {3.442150663578125*^9, 3.442150737640625*^9}, {
   3.44215077525*^9, 3.442150779328125*^9}, {3.442150911015625*^9, 
   3.442150915484375*^9}}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Parallelization, solving stiff equations: radiative transfer", "Section",
 CellChangeTimes->{{3.44215300934375*^9, 3.442153040796875*^9}, {
  3.442153948296875*^9, 3.442153959953125*^9}}],

Cell[BoxData[
 ButtonBox[
  RowBox[{
  "Newtonian", " ", "polarized", " ", "and", " ", "GR", " ", "unpolarized", 
   " ", "radiative", " ", "transfer"}],
  BaseStyle->"Hyperlink",
  ButtonData->{
    FrontEnd`FileName[{
      ParentDirectory[
       ParentDirectory[
        ParentDirectory[
         ParentDirectory[]]]], "mathematica", "! on desktop"}, 
     "igumen 26 GR transfer non-polarized 2.nb", CharacterEncoding -> 
     "WindowsCyrillic"], None}]], "Input",
 CellChangeTimes->{{3.442153076296875*^9, 3.442153141890625*^9}}],

Cell["\<\
1. BDF Method for NDSolve is the best for stiff equations
2. ParallelTable can effectively be used for parallelization
3. There are memory leakages, so one needs to restart parallel kernels from \
time to time
\
\>", "Text",
 CellChangeTimes->{{3.442157277671875*^9, 3.442157324171875*^9}, {
  3.442157439796875*^9, 3.44215751178125*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Working with the results of numerical simulations\
\>", "Section",
 CellChangeTimes->{{3.442156055328125*^9, 3.44215607696875*^9}}],

Cell[BoxData[
 ButtonBox[
  RowBox[{"Reading", ",", " ", "averaging", ",", " ", "writing", ",", " ", 
   RowBox[{
   "plotting", " ", "the", " ", "results", " ", "of", " ", "MHD", " ", 
    "simulation"}]}],
  BaseStyle->"Hyperlink",
  ButtonData->{
    FrontEnd`FileName[{
      ParentDirectory[
       ParentDirectory[
        ParentDirectory[
         ParentDirectory[]]]], "mathematica", "! on desktop"}, 
     "igumen 9 mean field.nb", CharacterEncoding -> "WindowsCyrillic"], 
    None}]], "Input",
 CellChangeTimes->{{3.442157622828125*^9, 3.44215765884375*^9}}],

Cell[TextData[{
 "1. BinaryReadList for fast reading from files (>20MB/s)\n2. Only operations \
over the entire arrays, not elementwise (Total[], Average[], ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["Array", "2"], TraditionalForm]],
  FormatType->"TraditionalForm"],
 ", Sin[Array])"
}], "Text",
 CellChangeTimes->{{3.44215760040625*^9, 3.44215762134375*^9}, 
   3.442157667390625*^9, {3.4421637494375*^9, 3.44216379653125*^9}, {
   3.44216418996875*^9, 3.4421642196875*^9}, {3.442164303125*^9, 
   3.442164351796875*^9}}]
}, Closed]]
}, Open  ]]
},
WindowSize->{1672, 950},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
Magnification:>FEPrivate`If[
  FEPrivate`Equal[FEPrivate`$VersionNumber, 6.], 1.25, 1.25 Inherited],
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (November 10, 2008)",
StyleDefinitions->FrontEnd`FileName[{"Creative"}, "PastelColor.nb", 
  CharacterEncoding -> "WindowsCyrillic"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 232, 4, 88, "Title"],
Cell[802, 28, 125, 1, 43, "Subtitle"],
Cell[CellGroupData[{
Cell[952, 33, 145, 1, 94, "Section"],
Cell[1100, 36, 32684, 878, 2799, "Input"],
Cell[33787, 916, 361, 7, 97, "Text"]
}, Closed]],
Cell[CellGroupData[{
Cell[34185, 928, 339, 6, 56, "Section"],
Cell[34527, 936, 10938, 268, 295, "Input",
 CellID->19958557],
Cell[45468, 1206, 959, 27, 44, "Text"],
Cell[46430, 1235, 450, 15, 23, "Text",
 CellID->310672804],
Cell[46883, 1252, 457, 15, 23, "Text",
 CellID->125416725],
Cell[47343, 1269, 460, 15, 23, "Text",
 CellID->839082485]
}, Closed]],
Cell[CellGroupData[{
Cell[47840, 1289, 371, 8, 56, "Section"],
Cell[48214, 1299, 11796, 299, 1369, "Input",
 CellID->260618406],
Cell[60013, 1600, 1460, 41, 64, "Text"]
}, Closed]],
Cell[CellGroupData[{
Cell[61510, 1646, 200, 3, 56, "Section"],
Cell[CellGroupData[{
Cell[61735, 1653, 481, 11, 48, "Input"],
Cell[62219, 1666, 5887, 104, 365, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[68143, 1775, 418, 10, 48, "Input"],
Cell[68564, 1787, 5861, 104, 480, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[74462, 1896, 832, 20, 48, "Input"],
Cell[75297, 1918, 6000, 107, 480, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[81334, 2030, 942, 24, 71, "Input"],
Cell[82279, 2056, 6008, 109, 481, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[88324, 2170, 1140, 28, 71, "Input"],
Cell[89467, 2200, 6100, 110, 497, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[95604, 2315, 1822, 46, 93, "Input"],
Cell[97429, 2363, 6421, 119, 497, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[103887, 2487, 2127, 55, 115, "Input"],
Cell[106017, 2544, 6516, 125, 497, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[112570, 2674, 2576, 66, 159, "Input"],
Cell[115149, 2742, 6786, 131, 519, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[121972, 2878, 2855, 78, 203, "Input"],
Cell[124830, 2958, 12254, 222, 509, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[137121, 3185, 3261, 87, 225, "Input"],
Cell[140385, 3274, 117832, 2001, 952, 50282, 892, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[258254, 5280, 346, 7, 46, "Subsection"],
Cell[CellGroupData[{
Cell[258625, 5291, 844, 21, 93, "Input"],
Cell[259472, 5314, 335, 5, 48, "Output"],
Cell[259810, 5321, 255, 4, 48, "Output"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[260126, 5332, 257, 3, 56, "Section"],
Cell[CellGroupData[{
Cell[260408, 5339, 9412, 260, 558, "Input"],
Cell[269823, 5601, 1015, 25, 48, "Output"]
}, Open  ]],
Cell[270853, 5629, 1620, 43, 126, "Input"],
Cell[CellGroupData[{
Cell[272498, 5676, 3134, 70, 168, "Input"],
Cell[275635, 5748, 917, 16, 27, "Print"]
}, Open  ]],
Cell[276567, 5767, 1191, 30, 101, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[277795, 5802, 213, 3, 56, "Section"],
Cell[278011, 5807, 568, 17, 48, "Input"],
Cell[278582, 5826, 568, 17, 48, "Input"],
Cell[279153, 5845, 1294, 34, 71, "Input"],
Cell[280450, 5881, 1764, 43, 93, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[282251, 5929, 157, 2, 56, "Section"],
Cell[282411, 5933, 562, 14, 48, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[283010, 5952, 333, 6, 56, "Section"],
Cell[CellGroupData[{
Cell[283368, 5962, 1035, 33, 92, "Input"],
Cell[284406, 5997, 792, 14, 27, "Message"],
Cell[285201, 6013, 384, 12, 48, "Output"],
Cell[285588, 6027, 2296, 43, 330, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[287921, 6075, 1114, 35, 92, "Input"],
Cell[289038, 6112, 791, 14, 27, "Message"],
Cell[289832, 6128, 381, 12, 48, "Output"],
Cell[290216, 6142, 2425, 45, 330, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[292678, 6192, 1637, 47, 114, "Input"],
Cell[294318, 6241, 504, 14, 48, "Output"],
Cell[294825, 6257, 2832, 51, 330, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[297706, 6314, 155, 3, 56, "Section"],
Cell[CellGroupData[{
Cell[297886, 6321, 9375, 195, 340, "Input"],
Cell[307264, 6518, 87, 1, 48, "Output"]
}, Open  ]],
Cell[307366, 6522, 962, 26, 98, "Input"],
Cell[CellGroupData[{
Cell[308353, 6552, 173, 2, 46, "Subsection"],
Cell[308529, 6556, 163, 6, 34, "Text"],
Cell[CellGroupData[{
Cell[308717, 6566, 2415, 69, 111, "Input"],
Cell[311135, 6637, 696, 19, 48, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[311868, 6661, 1131, 27, 71, "Input"],
Cell[313002, 6690, 9154, 156, 593, "Output"]
}, Open  ]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[322217, 6853, 371, 7, 56, "Section"],
Cell[CellGroupData[{
Cell[322613, 6864, 2415, 63, 137, "Input"],
Cell[325031, 6929, 4029, 74, 555, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[329097, 7008, 2563, 68, 181, "Input"],
Cell[331663, 7078, 19638, 331, 937, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[351350, 7415, 112, 1, 56, "Section"],
Cell[CellGroupData[{
Cell[351487, 7420, 8381, 210, 421, "Input"],
Cell[359871, 7632, 75, 1, 48, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[359983, 7638, 7060, 178, 452, "Input"],
Cell[367046, 7818, 529, 13, 48, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[367612, 7836, 8495, 219, 603, "Input"],
Cell[376110, 8057, 752, 16, 59, "Output"],
Cell[376865, 8075, 703, 16, 48, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[377605, 8096, 192, 3, 48, "Input"],
Cell[377800, 8101, 608, 20, 48, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[378457, 8127, 225, 5, 56, "Section"],
Cell[CellGroupData[{
Cell[378707, 8136, 3169, 80, 196, "Input"],
Cell[381879, 8218, 1344, 28, 94, "Output"]
}, Open  ]],
Cell[383238, 8249, 863, 21, 48, "Input"],
Cell[CellGroupData[{
Cell[384126, 8274, 687, 13, 48, "Input"],
Cell[384816, 8289, 663, 9, 48, "Output"]
}, Open  ]],
Cell[385494, 8301, 2040, 42, 93, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[387571, 8348, 414, 8, 56, "Section"],
Cell[CellGroupData[{
Cell[388010, 8360, 126, 1, 46, "Subsection"],
Cell[388139, 8363, 3727, 94, 225, "Input"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[391915, 8463, 193, 2, 56, "Section"],
Cell[392111, 8467, 535, 14, 48, "Input"],
Cell[392649, 8483, 348, 8, 97, "Text"]
}, Closed]],
Cell[CellGroupData[{
Cell[393034, 8496, 141, 3, 56, "Section"],
Cell[393178, 8501, 569, 15, 48, "Input"],
Cell[393750, 8518, 527, 12, 57, "Text"]
}, Closed]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)