(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    186059,       3549]
NotebookOptionsPosition[    183997,       3484]
NotebookOutlinePosition[    184336,       3499]
CellTagsIndexPosition[    184293,       3496]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Lagrange", " ", "Interpolation"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", 
    RowBox[{
    "f", ",", "a", ",", "b", ",", "xs", ",", "xC", ",", "g2", ",", "g1", ",", 
     "g3"}], "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     StyleBox[
      RowBox[{"f", "[", "x_", "]"}],
      FontColor->RGBColor[1, 0, 0]], 
     StyleBox[":=",
      FontColor->RGBColor[1, 0, 0]], 
     SuperscriptBox[
      StyleBox["E",
       FontColor->RGBColor[1, 0, 0]], "x"]}], 
    StyleBox[";",
     FontColor->RGBColor[1, 0, 0]]}], 
   StyleBox["\[IndentingNewLine]",
    FontColor->RGBColor[1, 0, 0]], 
   StyleBox[
    RowBox[{
     RowBox[{"a", "=", 
      RowBox[{"-", "1."}]}], ";"}],
    FontColor->RGBColor[1, 0, 0]], 
   StyleBox["\[IndentingNewLine]",
    FontColor->RGBColor[1, 0, 0]], 
   StyleBox[
    RowBox[{
     RowBox[{"b", "=", "3"}], ";"}],
    FontColor->RGBColor[1, 0, 0]], 
   StyleBox["\[IndentingNewLine]",
    FontColor->RGBColor[1, 0, 0]], 
   StyleBox["\[IndentingNewLine]",
    FontColor->RGBColor[1, 0, 0]], 
   StyleBox[
    RowBox[{
     RowBox[{"m", "=", "10"}], ";"}],
    FontColor->RGBColor[1, 0, 0]], 
   StyleBox[
    RowBox[{"(*", " ", 
     RowBox[{"m", "+", 
      RowBox[{
      "1", " ", "will", " ", "be", " ", "the", " ", "number", " ", "of", " ", 
       "nodes"}]}], " ", "*)"}],
    FontColor->RGBColor[1, 0, 0]], 
   StyleBox["\[IndentingNewLine]",
    FontColor->RGBColor[1, 0, 0]], 
   StyleBox["\[IndentingNewLine]",
    FontColor->RGBColor[1, 0, 0]], 
   StyleBox[
    RowBox[{
     RowBox[{"Mmf", "=", 
      SuperscriptBox["E", "b"]}], ";"}],
    FontColor->RGBColor[1, 0, 0]], 
   StyleBox[" ",
    FontColor->RGBColor[1, 0, 0]], 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
     "Mfn", " ", "should", " ", "be", " ", "an", " ", "appropriate", " ", 
      "upper", " ", "bound", " ", "for", " ", "the"}], " ", "|", 
     RowBox[{
      SuperscriptBox["f", 
       RowBox[{"(", 
        RowBox[{"m", "+", "1"}], ")"}]], 
      RowBox[{"(", "x", ")"}]}], "|", " ", 
     RowBox[{"for", " ", "x", " ", 
      RowBox[{"in", " ", "[", 
       RowBox[{"a", ",", "b"}], "]"}]}]}], " ", "*)"}], "\[IndentingNewLine]",
    "\[IndentingNewLine]", 
   StyleBox[
    RowBox[{
     RowBox[{"\[Phi]", "[", "x_", "]"}], ":=", 
     RowBox[{"(", 
      FractionBox[
       RowBox[{
        RowBox[{"x", 
         RowBox[{"(", 
          RowBox[{"b", "-", "a"}], ")"}]}], "+", "a", "+", "b"}], "2"], 
      ")"}]}],
    FontColor->GrayLevel[0]], 
   StyleBox[
    RowBox[{"(*", 
     RowBox[{
      RowBox[{
       RowBox[{"rescaling", "/", "shifting"}], " ", "function", " ", 
       RowBox[{"\[Phi]", ":", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1"}], "]"}]}]}], "\[Rule]", " ", 
      RowBox[{"[", 
       RowBox[{"a", ",", "b"}], "]"}]}], "*)"}],
    FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"xs", "[", "k_", "]"}], ":=", " ", 
    RowBox[{"a", "+", 
     RowBox[{"k", "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"b", "-", "a"}], ")"}], "/", "m"}]}]}]}], "  ", 
   RowBox[{"(*", 
    RowBox[{"m", "+", 
     RowBox[{"1", " ", "equally"}], "-", 
     RowBox[{"spaced", " ", "nodes", "  ", 
      RowBox[{"(", 
       RowBox[{"including", " ", "endpts"}], ")"}]}]}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"q", "[", 
     RowBox[{"x_", ",", "j_", ",", "k_"}], "]"}], ":=", 
    RowBox[{
     FractionBox[
      RowBox[{"x", "-", 
       RowBox[{"xs", "[", "j", "]"}]}], 
      RowBox[{
       RowBox[{"xs", "[", "k", "]"}], "-", 
       RowBox[{"xs", "[", "j", "]"}]}]], "/;", 
     RowBox[{"j", "\[NotEqual]", "k"}]}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"q", "[", 
     RowBox[{"x_", ",", "j_", ",", "k_"}], "]"}], ":=", 
    RowBox[{"1", "/;", 
     RowBox[{"j", "\[Equal]", "k"}]}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"L", "[", 
     RowBox[{"x_", ",", "k_"}], "]"}], ":=", 
    RowBox[{
     UnderoverscriptBox["\[Product]", 
      RowBox[{"j", "=", "0"}], "m"], 
     RowBox[{"q", "[", 
      RowBox[{"x", ",", "j", ",", "k"}], "]"}]}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"P", "[", "x_", "]"}], ":=", 
    RowBox[{
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"k", "=", "0"}], "m"], 
     RowBox[{
      RowBox[{"f", "[", 
       RowBox[{"xs", "[", "k", "]"}], "]"}], "*", 
      RowBox[{"L", "[", 
       RowBox[{"x", ",", "k"}], "]"}]}]}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"xC", "[", "k_", "]"}], ":=", " ", 
    RowBox[{"\[Phi]", "[", 
     RowBox[{"Cos", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Pi", "/", "2"}], "+", 
         RowBox[{"k", "*", "Pi"}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"m", "+", "1"}], ")"}]}], " ", "]"}], "]"}]}], 
   RowBox[{"(*", 
    RowBox[{"m", "+", 
     RowBox[{"1", " ", "rescaled", " ", "Chebyschev", " ", "nodes", " ", 
      RowBox[{"in", " ", "[", 
       RowBox[{"a", ",", "b"}], "]"}]}]}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"qC", "[", 
     RowBox[{"x_", ",", "j_", ",", "k_"}], "]"}], ":=", 
    RowBox[{
     FractionBox[
      RowBox[{"x", "-", 
       RowBox[{"xC", "[", "j", "]"}]}], 
      RowBox[{
       RowBox[{"xC", "[", "k", "]"}], "-", 
       RowBox[{"xC", "[", "j", "]"}]}]], "/;", 
     RowBox[{"j", "\[NotEqual]", "k"}]}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"qC", "[", 
     RowBox[{"x_", ",", "j_", ",", "k_"}], "]"}], ":=", 
    RowBox[{"1", "/;", 
     RowBox[{"j", "\[Equal]", "k"}]}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"LC", "[", 
     RowBox[{"x_", ",", "k_"}], "]"}], ":=", 
    RowBox[{
     UnderoverscriptBox["\[Product]", 
      RowBox[{"j", "=", "0"}], "m"], 
     RowBox[{"qC", "[", 
      RowBox[{"x", ",", "j", ",", "k"}], "]"}]}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"PC", "[", "x_", "]"}], ":=", 
    RowBox[{
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"k", "=", "0"}], "m"], 
     RowBox[{
      RowBox[{"f", "[", 
       RowBox[{"xC", "[", "k", "]"}], "]"}], "*", 
      RowBox[{"LC", "[", 
       RowBox[{"x", ",", "k"}], "]"}]}]}]}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Output", " ", "Section"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"t1", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"xs", "[", "k", "]"}], ",", 
          RowBox[{"f", "[", 
           RowBox[{"xs", "[", "k", "]"}], "]"}]}], "}"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "0", ",", "m"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"t2", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"xs", "[", "k", "]"}], ",", "0"}], "}"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "0", ",", "m"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"g1", "=", 
     RowBox[{"ListPlot", "[", 
      RowBox[{"t1", ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"PointSize", "[", "0.02", "]"}], "}"}]}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"g2", "=", 
     RowBox[{"ListPlot", "[", 
      RowBox[{"t2", ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"PointSize", "[", "0.02", "]"}], "}"}]}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"t3", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"xC", "[", "k", "]"}], ",", 
          RowBox[{"f", "[", 
           RowBox[{"xC", "[", "k", "]"}], "]"}]}], "}"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "0", ",", "m"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"t4", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"xC", "[", "k", "]"}], ",", "0"}], "}"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "0", ",", "m"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"g3", "=", 
     RowBox[{"ListPlot", "[", 
      RowBox[{"t3", ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"PointSize", "[", "0.02", "]"}], "}"}]}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"g4", "=", 
     RowBox[{"ListPlot", "[", 
      RowBox[{"t4", ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"PointSize", "[", "0.02", "]"}], "}"}]}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"g5", "=", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"f", "[", "x", "]"}], ",", 
         RowBox[{"P", "[", "x", "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "a", ",", "b"}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Black", ",", "Blue"}], "}"}]}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"g6", "=", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"f", "[", "x", "]"}], ",", 
         RowBox[{"PC", "[", "x", "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "a", ",", "b"}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Black", ",", "Red"}], "}"}]}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Print", "[", "\"\<Lagrange Interpolation\>\"", "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{"\"\<Using \>\"", ",", 
     RowBox[{"m", "+", "1"}], ",", "\"\< Equally-Spaced Nodes:\>\""}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{"g1", ",", "g2", ",", "g5"}], "]"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"gg2", "=", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"Abs", "[", 
       RowBox[{
        RowBox[{"f", "[", "x", "]"}], "-", 
        RowBox[{"P", "[", "x", "]"}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "a", ",", "b"}], "}"}]}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{"\"\<An upper bound for the error in using  \>\"", ",", 
     RowBox[{"m", "+", "1"}], ",", "\"\< equally-spaced nodes is\>\""}], 
    "]"}], "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    FractionBox[
     RowBox[{"Mmf", 
      SuperscriptBox[
       RowBox[{"(", 
        FractionBox[
         RowBox[{"b", "-", "a"}], "m"], ")"}], 
       RowBox[{"m", "+", "1"}]]}], 
     RowBox[{"m", "+", "1"}]], "]"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
   "Print", "[", 
    "\"\<REMARK: This is not a valid error bound if Mmf above has not been \
set appropriately by the user \>\"", "]"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
   "Print", "[", "\"\<*************************************\>\"", "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{
   "Print", "[", "\"\<*************************************\>\"", "]"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Print", "[", "]"}], "\[IndentingNewLine]", 
   RowBox[{"Print", "[", "\"\<Lagrange Interpolation\>\"", "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{"\"\<Using \>\"", ",", 
     RowBox[{"m", "+", "1"}], ",", "\"\< Chebyshev Nodes:\>\""}], "]"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{"g3", ",", "g4", ",", "g6"}], "]"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"gg4", "=", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"Abs", "[", 
       RowBox[{
        RowBox[{"f", "[", "x", "]"}], "-", 
        RowBox[{"PC", "[", "x", "]"}]}], "]"}], " ", ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "a", ",", "b"}], "}"}]}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{"\"\<An upper bound for the error in using  \>\"", ",", 
     RowBox[{"m", "+", "1"}], ",", "\"\< Chebyshev nodes is\>\""}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{"Mmf", 
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        FractionBox[
         RowBox[{"b", "-", "a"}], "2"], ")"}], 
       RowBox[{"m", "+", "1"}]], 
      RowBox[{
       SuperscriptBox["2", "m"], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}], "!"}]}]]}], "]"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
   "Print", "[", 
    "\"\<REMARK: This is not a valid error bound if Mmf above has not been \
set appropriately by the user \>\"", "]"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.445176419998407*^9, 3.445176420549685*^9}, {
   3.4451774912166452`*^9, 3.445177519612525*^9}, {3.4451776223715067`*^9, 
   3.4451776575645514`*^9}, {3.445178134773056*^9, 3.4451781471867743`*^9}, {
   3.445178573738714*^9, 3.445178587272023*^9}, {3.4451786572477617`*^9, 
   3.44517870706949*^9}, {3.4451810760470123`*^9, 3.4451811434588137`*^9}, {
   3.445363667287559*^9, 3.445363723770606*^9}, {3.445363826562649*^9, 
   3.445363827031739*^9}, {3.4453645165875387`*^9, 3.445364587036731*^9}, 
   3.4453647427393827`*^9, {3.445364777727727*^9, 3.445364868060381*^9}, {
   3.445364927288348*^9, 3.445364990894472*^9}, {3.4453650396947117`*^9, 
   3.445365463181807*^9}, {3.445366648423627*^9, 3.445366651317547*^9}, {
   3.445366709105896*^9, 3.4453669182349777`*^9}, 3.4453669484048023`*^9, {
   3.4453669794665737`*^9, 3.445366999678993*^9}, {3.4455983174328423`*^9, 
   3.445598347965185*^9}, {3.445598408789954*^9, 3.445598435949942*^9}, {
   3.4455985001630983`*^9, 3.445598696797983*^9}, {3.445598748257125*^9, 
   3.44559879808917*^9}, {3.4455988878573647`*^9, 3.445598988347283*^9}, {
   3.4455990210216503`*^9, 3.445599027333166*^9}, {3.4455991166514387`*^9, 
   3.445599123632875*^9}, {3.445599237114089*^9, 3.445599257907353*^9}, {
   3.445599477109256*^9, 3.4455996053114977`*^9}, {3.445600570224869*^9, 
   3.4456006130608664`*^9}, {3.445600683635453*^9, 3.44560085480206*^9}, {
   3.44560088625966*^9, 3.445600937746379*^9}, {3.445600973370969*^9, 
   3.445601143979537*^9}, {3.4456011815707703`*^9, 3.44560124439049*^9}, {
   3.445601279270075*^9, 3.4456013004423018`*^9}, {3.4456016160829697`*^9, 
   3.445601620266872*^9}, {3.4456018612097893`*^9, 3.445601866080338*^9}, {
   3.445602413642222*^9, 3.445602494678142*^9}, {3.4456026223668756`*^9, 
   3.4456026324914217`*^9}, {3.4456088223914127`*^9, 3.445608872694812*^9}, {
   3.4456089466826067`*^9, 3.4456090014487677`*^9}, {3.4456092885472603`*^9, 
   3.4456095041407127`*^9}, {3.4456095797507057`*^9, 3.445609582557479*^9}, {
   3.445609615454442*^9, 3.44560961813315*^9}, {3.4456096591700907`*^9, 
   3.445609667722454*^9}, {3.445609897711998*^9, 3.4456098993593884`*^9}, {
   3.445609938764647*^9, 3.4456099531862173`*^9}, {3.445610171482267*^9, 
   3.445610199384254*^9}, {3.445610922274995*^9, 3.445610940204852*^9}, {
   3.4456110128148518`*^9, 3.445611022820046*^9}, {3.445611109895216*^9, 
   3.445611145196575*^9}, {3.4456111773845167`*^9, 3.445611212036933*^9}, {
   3.445611268221045*^9, 3.445611268732553*^9}, {3.445611382897201*^9, 
   3.445611391759152*^9}, {3.44561156378196*^9, 3.445611587794903*^9}, {
   3.445611620492836*^9, 3.445611635841504*^9}, {3.445611680168944*^9, 
   3.445611713455567*^9}, {3.4456118022089977`*^9, 3.4456118089675913`*^9}, {
   3.445611860575591*^9, 3.4456118795469646`*^9}, 3.445611952569345*^9, {
   3.445611983881033*^9, 3.445612002154047*^9}, {3.4456120539554358`*^9, 
   3.445612061798747*^9}, {3.445612129535014*^9, 3.445612131958294*^9}, {
   3.445612164020858*^9, 3.4456121737648983`*^9}, {3.445612210812976*^9, 
   3.4456122172690763`*^9}, {3.445775056834702*^9, 3.44577506508847*^9}, {
   3.4457756908436813`*^9, 3.4457757088273*^9}, {3.445944851904471*^9, 
   3.445944882169828*^9}}],

Cell[CellGroupData[{

Cell[BoxData["\<\"Lagrange Interpolation\"\>"], "Print",
 CellChangeTimes->{
  3.4456008290933123`*^9, {3.445600918056079*^9, 3.445600938909155*^9}, 
   3.4456010255386868`*^9, 3.4456011467138567`*^9, {3.445601217698155*^9, 
   3.445601245682043*^9}, {3.445601281077523*^9, 3.445601306536809*^9}, 
   3.445601879601554*^9, 3.445602499724246*^9, 3.445608779207288*^9, 
   3.445609489052431*^9, 3.445609594753187*^9, 3.4456096286342382`*^9, 
   3.445609725018835*^9, 3.445609889719488*^9, 3.445610153494782*^9, 
   3.4456102195662947`*^9, 3.445610942260001*^9, 3.445611271084407*^9, 
   3.445611393964024*^9, 3.4456115652994423`*^9, 3.445611624462522*^9, 
   3.445611953578368*^9, 3.445612071351643*^9, {3.4457756964275837`*^9, 
   3.445775709523162*^9}, 3.445856378175005*^9, 3.4459448535524273`*^9, 
   3.4459448836513853`*^9, 3.445947815766876*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Using \"\>", "\[InvisibleSpace]", "11", 
   "\[InvisibleSpace]", "\<\" Equally-Spaced Nodes:\"\>"}],
  SequenceForm["Using ", 11, " Equally-Spaced Nodes:"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.4456008290933123`*^9, {3.445600918056079*^9, 3.445600938909155*^9}, 
   3.4456010255386868`*^9, 3.4456011467138567`*^9, {3.445601217698155*^9, 
   3.445601245682043*^9}, {3.445601281077523*^9, 3.445601306536809*^9}, 
   3.445601879601554*^9, 3.445602499724246*^9, 3.445608779207288*^9, 
   3.445609489052431*^9, 3.445609594753187*^9, 3.4456096286342382`*^9, 
   3.445609725018835*^9, 3.445609889719488*^9, 3.445610153494782*^9, 
   3.4456102195662947`*^9, 3.445610942260001*^9, 3.445611271084407*^9, 
   3.445611393964024*^9, 3.4456115652994423`*^9, 3.445611624462522*^9, 
   3.445611953578368*^9, 3.445612071351643*^9, {3.4457756964275837`*^9, 
   3.445775709523162*^9}, 3.445856378175005*^9, 3.4459448535524273`*^9, 
   3.4459448836513853`*^9, 3.445947815774714*^9}]
}, Open  ]],

Cell[BoxData[
 GraphicsBox[{{{}, 
    {Hue[0.67, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{-1., 0.36787944117144233`}}]}, 
    {Hue[0.9060679774997897, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{-0.6, 0.5488116360940264}}]}, 
    {Hue[0.1421359549995791, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{-0.19999999999999996`, 0.8187307530779819}}]}, 
    {Hue[0.37820393249936934`, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{0.20000000000000018`, 1.22140275816017}}]}, 
    {Hue[0.6142719099991583, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{0.6000000000000001, 1.822118800390509}}]}, 
    {Hue[0.8503398874989481, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{1., 2.718281828459045}}]}, 
    {Hue[0.08640786499873876, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{1.4000000000000004`, 4.055199966844676}}]}, 
    {Hue[0.3224758424985268, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{1.8000000000000003`, 6.049647464412947}}]}, 
    {Hue[0.5585438199983166, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{2.2, 9.025013499434122}}]}, 
    {Hue[0.7946117974981064, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{2.6, 13.463738035001692`}}]}, 
    {Hue[0.030679774997896203`, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{3., 20.085536923187668`}}]}, {}}, {{}, 
    {Hue[0.67, 0.6, 0.6], PointSize[0.02], PointBox[{{-1., 0.}}]}, 
    {Hue[0.9060679774997897, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{-0.6, 0.}}]}, 
    {Hue[0.1421359549995791, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{-0.19999999999999996`, 0.}}]}, 
    {Hue[0.37820393249936934`, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{0.20000000000000018`, 0.}}]}, 
    {Hue[0.6142719099991583, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{0.6000000000000001, 0.}}]}, 
    {Hue[0.8503398874989481, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{1., 0.}}]}, 
    {Hue[0.08640786499873876, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{1.4000000000000004`, 0.}}]}, 
    {Hue[0.3224758424985268, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{1.8000000000000003`, 0.}}]}, 
    {Hue[0.5585438199983166, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{2.2, 0.}}]}, 
    {Hue[0.7946117974981064, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{2.6, 0.}}]}, 
    {Hue[0.030679774997896203`, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{3., 0.}}]}, {}}, {{}, {}, 
    {GrayLevel[0], LineBox[CompressedData["
1:eJwVz3s803scx/E1s7nUMOTUHolIYtJlp1zS95PqiAdSrY5zjqYyyXGseJRu
5BbxKOc4dqIonVokxiYqdrLfIbdOuZQ0PYaRKaWaYuEMO9/zx/vxejz/fNse
PLIrnEwikQLx/m/IWdYLnU5N+D6O2rv3ghz1f/ExHdeoib/OOhx5mCNH+yPC
/N+MqokzmkUK+3w5Cg/Kb3wqVxP9gjzxTIkc8ZcZ3LsiVhNX+TGhrc1ylNw8
dGldqJowCUxK7CT3oGJ6wfcRsk8E8922iZL4HjRWaKhoj/9IhGwtMi068QqV
3rF6kfroPZEU5LNdJVUgrySlI99thJiS6RbYUPsRX55hbC0dJlq7JCHxHgOo
6ZuwgSr9IcL663TY25JBpFk+aZqYOEAIAvuLJplDKM/jZMT+dAXhLBt6/lun
CiU6NbUGrHhJcNYX+loI36BFd9MGi+yfEfpGouzZ0yNIxwyqE0S1EBez2tQb
i9+jUOqU/8EsKXGOxtG97fmAyg8dcXe4nU+ws1JNzruokUgv1gt1l6Ny9IxR
rxlD2wnd14r0ejRSa5dp/MMXZLxHuSfu6FPkt/G7AxbaccQ6dlUmEHShtQED
a2/VapBNcXd+ck4POt/x6iUrYRK16pXnCGf7kO65xj02exopeRmRLumDKI26
LS+vVIuq92VaCbeo0GOe9eYWuzk02l2yYffEG8StEjO8eCTwTaHPtMW9Qwq1
sidXOg+St25pP+j6ARmGuorDA/RgwEO2taH2E3pr61FUOUyBnT1lCysKxtAT
+o5fqnOpsNR6wCxD8xnF/ONZuOoPAyCd3RDq4zaO1NF+Kw0vG0H74bgq89wJ
5GLF4c5+nQ+BgkZI+KhBDZLrP55KNIFB+bc2T10mUcfqzx0imhkcuP0r1TFz
ChFuNdvSMxkwkW2EItumUdAmZe8JUwtwl16S+BhrUVD0GltNhSX8zDdYuY43
g0SepOpbuVYg3lg4rlc8iwooOTfczy2CwUvMpkGyDhnWOTRMtTJBQOEe22VP
gjvL9/zeamkN9P57N8mNJLg/WurN2mIDpIRkjnvMPBjTSu9duWsL2hKu+DWD
DOSlBotrHewgOl+cxWggw0/C1dHZvfZQ45xhYMbXg7SouLoYiQPM94tlpdAp
UL2CN9OS6Qhyl86uUw8p4Ftzurv6vhOUFSJ7FVcfaBzJPttRFgSL15stmdMH
payOc3uzK5xJu5HcW0qFOJ7impq0BkpGlhTQ/WnwQMo0CQ9fC/5mdLeWf2lw
qE/b3GbAhjR9MrMX282z0JJsyAbZtGZ2DNvT6TFvPfaa132PFmtpcLi+hnId
e2FV+Q4+dpB2zu+oERuUnIAIyxkaHO92/MyYz4bYyxdzw2ZpwFVphcEmbCi7
mHTqJPYBZpVeFrYq6VhIFvYq0/Gweuy9kSHLHmBL3RY4OJmywdODVWE0RwOh
qFSixab0PmmqxF4VfEFZyGCDVydR0oztYt7h04Ud11h1QYHtc7NAQjNnwztR
wU59Hf7n3ZF6FLs9IaovGJtT+edqbws20GJD/47G9mY7X4vDhkO7hSnYJ3I3
GZVh3w30jBRh+8zphs0t2TDq7epfj11BreBsx7bfYOf6EntsXPUoHpvrbMUY
xT7ecmtdJXbeUmONDvtaykfhMPZ/BzdMPQ==
      "]]}, 
    {RGBColor[0, 0, 1], LineBox[CompressedData["
1:eJwVx38803kcwPG1jS26ZX4WDxRLxSTs/Cr3eR/uqId+qZyODFnLuVbJkcrP
mgePUg4p3KmL2GF+hLqc803ReIR+Ye6mbIXSaMLQod3n/ng9Xo/n2ohjATwy
iUTaifv/IUnsXo1GRYR5RQcGXpCiV1O+etNqFdF86szu5hwpCuMf8h9Vqoj2
J7uKWYVSxNtd2NYlVRFUsHNbFEmRwIreWFCjItYF0hIkj6Qo9dGbK85cFUE5
+fF5D3kAlTGKvuO3fCDykr2ZZWcH0GTxclnP2QniY3Zd7434v1HF7ya95x6+
J55fd7KUN8mQZ8rQBoHbO+L7oOaj5tqvkECaoWvRNEL48M4/O+MhR+2rDsnr
td4QfEdy9FuRAqnXzeklJ8uJ8aji8TmzN+iqxyl+WLqMuDxxwyr76TBKtm3v
2LG+nygrep5iWDKKVt8WKm6xnhHbfwoXLZ1+hzRmu//KjZYQ5rYk5day94ir
Pe8fkdVEGIQLlW8HxpH48DF3m/JCwqlg/3y6vQpVUWI8UZ8YFXcY6bSqJ5Ef
oZmtTm9F8QsuQt0DU0h3/9D+uONdiH46KcJwYRqxY39pyc19gcK9+K6l99Ro
TVlfYWrOADo3+e0gO3EOdVDEOSVLL5HpP5u+isn+hIYiM6Ls0xUo9oBhwdWK
BdRwMNOkxHsYzQfTQWL9GSn7RK57Z0bRnJEp0zOSBNvSGIvdcWNoPEndn9+0
DFJ9vHsiHMZRU4lYzNtBAblHi8+Dex+Q1dvy0roRKuwZqDSuLppEifWyHxvy
tcHSQs7MUH9EM/Ku65vy6EBKcuX6uk2jx6xv7JZf04GeI3H1BvkzaJY5w12a
XQE7c9sgcUKNOLnWwQnJK0Eh/XJNl/0cUjgkPqmiMSG8/JL2hsx5NBWb5ZOe
qQ8z2TooqvsTCkrnyuL1DMG96Uqtr+4CyuscsVRXG8EPAvpG58hFNDZQWF+a
bwI1W4unKWVL6GbIuZvu51eD4opZu4KsQU+4t9rmO8wglxoaG8Aigd2eP/M6
jCyA8arxJrmNBDnTLj5s7zVASkzd535iGcw52twpuL0WFkShNa/1ybClOW7V
PRtrOFpYk6X/gAzcS8oj2YMs+MMug84UUKCzcePdE7U2sGJ7DDuNQYVtEydn
JZkbQGr/9EVCMxUq71f0NtyxhcpixBoO1YL+L7r5a5VsCKpxYZp/1gJhKeNY
+dcOcEb4W+pghTaQgh0aVCRHEL0zL2L40yC0zX09j+cE/kyGm+RfGiQ9C+7o
pnNAqEU2G8Tu75w3Ji/nQMsn9dIk9uUAi8Mu2I6vXz40XaBBuSlF+zq2cb14
lwD7RJWz/3EdDgzt28E3WqRBPMNpSn8FB2KuXcw/tEQDUpa4NGglByovpiSc
wh7y5lKzsIdTYkOysBvvFkS2YgdGhVjdxe6UiWxs9TiwxYNdrfOZBnVbN9ct
YFMHH7fXYcsLhoeK9Tng+ZQQPcL2lVj5vcCOa6u/IMOekYzV0gw4MFZVtEdL
Q4NaP/3zx7F7EqNfBmE3CLo3exlygBbDvX8Ue/vBgF/jsOHw3pI07F22YTqV
2Ld3bomqwnbhGY8aGHFA6eXg34qt6GvZ54fNcrV26Mf+2Xby4VnsUDsTfSV2
RWSFcx32VUtdtQb7onCiZAT7P24ATAs=
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{-1., 3.}, {0., 20.085536923187668`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.4455986584549294`*^9, 3.445598697613727*^9}, 
   3.445598755390472*^9, 3.4455991346823606`*^9, 3.445599260443578*^9, 
   3.4455994781289253`*^9, {3.4455995120986156`*^9, 3.445599554241996*^9}, {
   3.4455995948325043`*^9, 3.445599607345347*^9}, 3.445599726896373*^9, {
   3.4456005873867407`*^9, 3.4456006140706253`*^9}, 3.445600828463975*^9, {
   3.445600917416771*^9, 3.445600938673922*^9}, 3.4456010253058147`*^9, 
   3.445601146478743*^9, {3.445601217443865*^9, 3.445601245427712*^9}, {
   3.4456012808242483`*^9, 3.4456013033746853`*^9}, 3.4456018763780937`*^9, 
   3.44560249656007*^9, 3.445608776058399*^9, 3.445609485898383*^9, 
   3.445609591568995*^9, 3.4456096254486303`*^9, 3.445609721879899*^9, 
   3.4456098865454597`*^9, 3.445610150363138*^9, 3.445610216422515*^9, 
   3.445610942301188*^9, 3.4456112711273203`*^9, 3.445611394004369*^9, 
   3.4456115653412046`*^9, 3.445611624502996*^9, 3.445611954773322*^9, 
   3.4456120725338306`*^9, {3.445775696476283*^9, 3.44577570954635*^9}, 
   3.445856378438388*^9, 3.4459448535950603`*^9, 3.445944883691107*^9, 
   3.445947815808215*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], 
    LineBox[{{-0.9999999183673469, 
     1.9171886300739516`*^-12}, {-0.9987731283177614, 
     2.856185682409418*^-8}, {-0.997546338268176, 
     5.6614762100615224`*^-8}, {-0.9950927581690051, 
     1.1122147969278018`*^-7}, {-0.9901855979706633, 
     2.1459016558145194`*^-7}, {-0.9889588079210778, 
     2.3924577058354046`*^-7}, {-0.9877320178714925, 
     2.6343723341648584`*^-7}, {-0.9852784377723216, 
     3.1044838877392067`*^-7}, {-0.9803712775739798, 
     3.9912576776934827`*^-7}, {-0.9791444875243944, 
     4.2021072382825153`*^-7}, {-0.977917697474809, 
     4.408717541592999*^-7}, {-0.9761458967030573, 4.6980719460454465`*^-7}}],
     LineBox[CompressedData["
1:eJw13Hk8lO3XAPBJRKUSkqJSqSQKpazHmqxjwiBl35fHUpIsGfvSYilkTZJs
IZVQ2RIqSYRSRFFKoaJE5Z051+/963m+n3Ouc51rue97/NNGOy8jRzYKhZLJ
TqGw/mspfKRjfO/HutmrV4bloy9Bz449a7V+f6ijUHJCw3iyYPfz2lf6EywP
bvpXkgkJfjppxiMsq2Z36GSCToOVoO1zlimrQiMy4J5prEBQIcsdmfAvDXJD
B3grDrEs8jaKPRU8e2OWrq8ZYZrRcdYxEXxV39jpl7Fs88uFKxFOFu6qCchD
H+orToCIwB6X3nOYT+H6FA9pG0SbE+xZrvcSXnsWmpzrGAuXsUw5FXwnGh53
8L6UZsP4VBdPNDyTd9pl82uY1S+7j3sU9C1dNnBvCE0PF42EiTILRb9Kliki
W/LDYO3M9PSoNXqBWEcgiNjqGKyms8w4HFQSAFseZ+bt18V4zfHTJ0EqU8M4
dw/GV1gcPAH7VRPLDy/G+Imff46CbuEwZ9y/96z4U8a4D9B45ayrfrBMEbj5
zhsshgeWrRpAs23I/w+8YyTc2yvQfzWvOcLxbyGNf66hZTpu2UOARdeaHVno
3/ktthApEdAaHY12cpg9DHHJTzdUBqHzWlTMIeGfyIlhH3RKZbwJpHe0bFE7
gn5hlK0LOfJCwV4H0VW6wRpwNdfzRZYWmnH8nRwULW3c0aaIFnEe3QLlvqvC
Z6XQ9evDFsHtfpc+sa3ol+zuUlCjdU/aTIjUE32jDA8F7QdvcqBFv4row6zL
lmUZc+9YXpQncBB2Vn+UD/uG5urmM4GLhzzO0/rRU6Y/DoF7+nGtr7fQ3nev
2MFK4ZiSrQ7omy2i/4GWh+6rZRboFba2nhBwj3vRtCHasCzNC4aPJFo/UGSZ
0X3vnzfcyUrnteHDuOhanWNgueG6f1rjECv+7NvJE5Dk5XWVUYVe1vfzBDTX
SXc6l6KTan38QcqmcsfedPRUpO1JWHi5bqDTBz1I2x4Ict9Cl9Y4o02tUgLB
Q01T7rLlEN7PwAVB0DPUmuilg743/jwICjd1anJvRE9QjpyCgaMXfH4I4HiO
rupTwPvANLuPG+3waFUIBNm//lUwM8hymmRrCBjmDRft72C5Pjn+NAMipvJ7
JZrRFrtuMqBK05Wd/x7m8315xYBNI18t310bxPvdKBoK01t+8YSEsKzas6g8
FDrlw7rP+mK+pEtXKJQbLEvPdMV6Mm3ToeB2fPPmGmOM37+yLwy0Y0s/tmqj
B9eahcGWLPmSXmXMX515PAwGmwxlp7eR+ZrKwuD+y77fC9dh3N3zSRikf3Gs
5eXFuJn4hzAoEps5ZzPzlhWf7hcMh+QW2s2eHJYZUq7HwoE24aQ0Fcey6pOu
6HBYsjr44crjLFNGrTLCgeFU2Kuvg9YZqAsHhXN1Nm67cbx+T0c4TN/u/hS9
Dsf7/BwMBzcOtj+N3wZY8bzKf+GwRVIwcvA1OsqCOwIGTXYu//cQvWnnmghI
D9JMFSpH2+/eEgH0PAsR+XSWKfs8pCKAp8270DSC5fqAPoUIePwjSsbXE/M3
MzQjIFIo626iOeavsjaIAFWNm5pl6mi5k/QImHN79LRNgmXVUx1HIqAy6a3p
ZwEc3+pkHwHeNdNvORegOcE1Ana8W+q6Zayf5VXmnhHwYfGm7+rdLNePVR6N
gBxpuUCbOpYpR4/4RcDhQ1T2U4UYj9E9GQECoQ5nM86zrCocHhgBzwsCBKqD
sd5yruAIONORcKnHGeM6r5nWmskXmzqI9Sr/Mb1A5P6NlUqYr+rL9L0DXQq7
tmK8TjkoAvy8Pj3Q58HxopYBESCdOq/vNvuGlU99cSICvtSu6okeZpkifNU3
Aq592GF9tZ1l1aDn3hFgt1x9tLGK5XqNwx4RILzX3GcwF8dbaDpHQK+l5+zf
Mxi/cs42ApIiI8KFTmD8t+LhCNC/ns4tb4veSzWJgMY/zet9ZTH/VwHzPIJE
+68lbsD4zmnFCNin/0OqbDHOX3ddJgJKMjZofO5/zYobu6+PAOcHsm2crSyr
LvXli4BNY3r0LRUsUwInOSMgVcHf2SYK/UpvIhxMPf8KD3ujezzehYNAblin
82Gsl7msOxxSFp9V9pJiud6xuyocLry8zHeqr48Vt74eEA4m3NseLXjIcj3t
j2s48KmWnIosY1k16aV5OCRdq/x0JqIP38cqsuGQ6PekLmMnevWv0TCgFdGO
b1iD45e8fREGPAPd4lcWYjzctj4MEvYPJhe9fMWKOyilhME5/mn36jCWKctO
KIfB6Yr1gr09L1nzTdgEhoLuhytPLRpYZhwqsw2FJWu3hw8Us1xvdONAKMSF
7h4fYWD+dDdvKMTQtJumxDE/78lVBkSO+3jzhvSy6i+3CgmBEPGHrQbbelgu
lEkPhGwJse0afGiHVMtAuLfzdKzcfDe+7x+IBMKMzEHdzb0sM5oC8gPgqGL/
k5kotFt62Ulw0p9uv/LhBSv/ArXmBOh7bun+fbWL5ZIDtcfAzTtGdiKRZcYx
xVPHIPboWPJwMHqpFByDZr8bps/omM+zqfYoqIQov8zjwPgqk1ofkEmgvzZ0
7GTFi/zCvGBNReTQVdHnLO93v+0MMYoBPp+Xo81rpZxhpslzwa7fHVjvZIkT
vOw121j1FF0uddURUv5ut33sh679mWEPW5IyG/oTn+H300zdGtivRg45OaG1
/LStYPiO54JJBRKvNLSE3H5VNbbhdvw+ltkehvXbR+q37kULzJ03A8F6yXqv
vjb83qfJ0uBXp8DgTCl65solKvSMzM+HhqPFXvXoQ/LSTpULEuiq6wY6wGvm
V1d16gnLUlWW6vDN1fqtmjGasbhQFTqCtOcfb0N35I8rQ3zuWpX+jscs5zyT
3weetxdaO11FlweO7gZq65dTEyfRFK0sKeAer61dsBk9WC8jCmOUgoG4X4/Q
/OFC8Jgv8R9fG5oSf2wZFG0NWJ+VQ8xGHVSOlbeHrcfRjMo1HOCir29VpoOu
H1m8GrStZU/JrSfOqtwIiyI5a3VbWllWXf9DEkZSJ/u7Mog//ZOGpqJXf494
o6tu/d0DYR3Fyl5r0IyQjwowL0S7f969Bb/fZ2U1IPPJlAxFAy3aEqkJcoFp
BR5r0U3cXfvhaN+78/sfNWO/Nx20YeTicbdfW9FHJBwM4MmqjNWH3zWx7Mbj
agwuD1XOtlSjB/h+GwP78WG2PYnod+eiTQBeSI5zqzaRfi/R4UZSfVNt1gOW
126qNYPUFR98Nh1qZPmDaflh2FMX9/GcFLryyrYj0OG5y3KOE21hn3UElrT7
a7+obMD7oxhhCcFnlm6I4kd30lSsYa1S+YXvY/X4/tpbZA2VYyZLrB+gj7Qu
toFJ3ezpfUfR1zu8baCZ1+5i16U6lj9fkrUFytHi8BIqWv2jgy3IP5/yjPxb
y/Jmt/O2UBIfvX/fYbTT5nFbSOK+/j1d4D7uh0e6HVgvmtG3O1vDsk9+uz2U
JP/91KWMXrf+mz3Mii6M3j9ezXLaAK8DXNBY3iBmiO5UNHGAVoao7ARPFcsT
vu0OsIpHvNOm4Q6+H1THHMDu0i6vTh/0mDmnI/y9r1B4u7OSZcOjyo4gM0db
F3ThNsu6ZpcdISTOtOarJnpzWpUjtK05YmY9fYtlD4lnjuAs55yobor+oTPr
CLdaPHbeWoT27V7uBGxmR59suXOT5X+3NjlB5vFgjsWC6LGj2k7wiT08N6C1
Ap8fIwsn2HshRuWLP3pjrLsTdFScP/ns1Q18H/w97QTr1NME1OLQFkoZTuD2
PPtmhQJaqLvQCTgmC78mZ5SzHC3w0AmMQsriOPXRt+ufO4HKOjfD7zNlLKe0
9DtBn+Lx2O5D6Jc7PjmBrwXjQVVNKcvW4z+cYPnJ038zhNDfVvxzgoLUlH0h
QddZVknkdIb+FyXF+6GE5dxKQWfw/3FnROxSMd7XIyLOwMv7YAM3Bc3muM0Z
SqTaD03YFOH7/7mkM2gZvjrf2VCI/V/Z7QyD/w0/vb0JLdwn5wyBZyY408IL
WM46oewMAsWzakHD11j2DFJzhvJHHEHW+9HHP2k6g+4oT6V6fj6ed90BZxhZ
JDy5hRN9dV7HGRhbtokvdrmK8SI9Z1irKePwpTWPZfkGfWe4Zaec/Ww7+qym
gTNQQ7VfVsRdYTlIlunRS8a8KWO5+P67wMwPr7XSP6mPTrRn1lvf7xp15Ppl
/F7kMuermvOtV1mOHjdi9mO0ljG7ySuH5YDjzH77fARcuXMusSyylLmeFWUS
/Z222Sx38TPXq/lF/WDa5iyWE84z98N/+6GH1iMZLB+MYe7XdScv+a3X0nF/
p5j7OSWYnf/WII1lO33mfis9aeNLm0rF54ODeR4RwXMMo4wUXN9G5nm17RIf
X6qezHJLzgpn4H9nfvjh6HmWhyMWOcORC9Gtp+KTWOZ69of5Pfv2aP/76niW
i9M/OoGL6TYRU86zLFevf+MEMzURs60mcSxPLetwAsEIlbLSiQiW9XZXOkGp
hJv0lK4vvp/uBzpBxphO280n/+H+1DHve19wnWzIAnt8/+077ARyX4tqDFP3
qDAtd07OCehxdWID/X4s689+cYS9Dey+M+pBLFc9e+kIS//kWS9+wWA5c0uT
I4zJfC7aLB+F483THMGUViNSEprAssA883lfnn365ve+RJY9/m1xhOaxI1ry
e86zrBm7jFk/et69+UMyy+Varx1gda3mnUG9DMyP9nGAL8kf85csvYL5ZnH2
0KpEm7x+B11x090e8t5XyR90yGP58Q19ezgiHdeWev8qy0cvLrOHtjaJ76Le
BVh/72k7KFl4VFml+zrL68f9mO/HfV920f1KWY7zpduCv7vTJvfVZSyL3ttt
C7mu18OfSJSzPJU0YQP/Pb/s8svzBssDpxxsgP1ynIzhj5ssu8THWMFu1SPN
/+aqWOaJaD4EWy3S6mL1q1m+IOh/CAR9e6r4s9BtvtsPwb9rtGJxqGFZ6cxp
c3i8Yn+CKeMuyzY+BmZg91bSopS9luWg149MQLtu/mdpVAPLMT8cDeGSciC/
aQV6ZtltKvy8+1P6bz96dC87FfKqvnroyTayXNCcqw+UitfvPr5Hyx0Z0oHq
vDvtImpNOF7BRRN4Nu/+0uKB9jau0QCXy6WLvS6i/eu5NUAg+6rm/Qk0paBC
DY6mnq85lP2QZZryIgDxOK/8pLlmXL+M724I5Rp7IL+theWEa1tl4GWU09Cg
EbperU8KosIthXcVoXPY4iSgf8Er+Z5utIjbzHbYwzAxC17QivMZu26Dd0F6
SU/M0arDRptAfq657GgEut4wdQMknFR/uqacxLXPrYWPv+5/rn9N3Ba3CsBP
nsuF8xHLjNkzPJA8dWvLit1oSvt2TvhyVEqj0oq4Lm5WWeNbsY1lHPE9p9fK
6V7bTrFXEquf+qT87WtuRvEQcdkGCmh7rK82WvYY6+t3LYafLqumchzQFNE4
ATCyW+imzPcE42y1orCU/pbu593G8uDr8N1gfjdo7cEMdP2f9D2Qv3Ht2x3N
aFWtcllQHTdxGRJ6ivuj2r0PfKMfB+i3ENO4lGCg+valTeufsax9mlMddogY
O/zVRr80C1cH/6hJsZfH0KMC/9SBz3hHxdlHaHPHSQ0Q9aPZBSl04POysnU/
HFrR7PtxBG2jpK4DjEb+XpM5dKtziQ7kH7eXb+R5juvxWKULU68p/zIV0XJ/
3uvCuQLFaKNEtD/vMX1oVLuRdl+pE/vdaG4Io1Pzc+JG6HqTMkNYUUC1uuiM
1ixgo8GR5V82HUsi8XZT5u/tvq0lYqNowXu/aCDhm1l7/nwXy/deCBnBlPky
v/hraBNtRSO4p3xK8vRdNEPKwgj0OG0yw96jb1mmGIFb+uYAn90vcH+3cxmD
TMgF6f8OoN8obzaGWXuOTy6H0ebNysYQJ/nRzCYcHSHjYwyF9UWyhl3ozBPP
jcH7qtBX3Y8kX3zUGOTizuRpzZF6tH/G0GrsyQebu3H8bzETSJB7+1h+H3oq
UNkEzNfRwmT10A5HD5rA6AfpbxLH0G/unjCB8ie5BWLRaLkVcSbgX85nI5qB
5urNMAHOgOl2oQckv+m+CWxdVl2yhK8H+1s3ZwLj37Y7LNqGjlmzmA6VPelC
bIpok9MCdNifExT3247En++iA3fkV7VpP7RmviIdXrha/Z6MQ3/5pkUHh92q
LqMV6Ivjh+kgIXhjw3AzWirHkQ5Tfzb2vu1DVz3ypMO9oaRzr8fR5u4n6BDR
vFCrl60X54sMoYN+se/fTgG0h2A0HfgTRm61i6P9Rc/R4Y2vqcdjQA8XXqDD
lUMtm5uN0GKF6XRwA7nXDU5oxqYcOshsLky6H4A2EbhKh1nOtbrV59DskYV0
aPwSt+B2LqnneZ0Occ/nqsor0TYvyulgVOnhXfIY3XT7Jh3WZvRvKxhAl/BV
0uFdCPXtle/oI+N36FDkUJdyadFLXL9WNR2O6khRM9aiS4Rq6KCw8zJH6k60
khfTC/h47yepo83VmG79FeZ7zpQ4iTk+4c2PHXFu6Jd2VXQwb3B4H3mKjL/J
nF8kvzs9NAk9GX6LDikLb2/aWYDOS75Bh2W2F4r67qO9eUuZ+117TCa6Cz08
y1z/rJBxze5P6HuGzP3xOSmjPvgPfWYlc/9Ge1Y+PsP/Ct8Xqsz9tdrz7aC8
OLpp4DwduhM7Xo2ooKvGzjDPb6LMNomOdnGJZO6vfvwncEefoQfToZyT+js1
BS0Y4U6HrY6SoZol6BfNtnTIauRe/K0BrRpsxjyP4CeCul/RUgfU6EB5XZTz
k60P13NElg4n5OLErgiiRUbFmPfxh7bcHw20g9NyOrymidUXHEJfsKAwz7OU
U5vuhU5o/WYCKq7NZqXpaKVVXSZQ2Xz1rUU5uny60QQkRCOdOZvR5sYVJrD2
rcYJm28kHhtvAlMmDSm82q/xez6nYQJuFTnr6yzRrQO7TGBoBSPf/RhaTkvI
BNofQ2VTNnrq6iTz/aF6r9tvGp3QlGwMItkZlpuXvsHv4UiwMaTMBYw8E0E3
JTkaQ0Sl/LSYProkebcxWEnc4X+dizY/9NgIXsSmZEZXod/8KmW+7z4eF93T
jr4lft4I5HL37Dn7Gx10kPk+5BOsMFah9bMs0fD+ILQuvJ505S/aQ3iYBoNJ
pV4DKwfw+9XQRIOZjeX6a7ai2wSu0kBM9eaieCpapM+BBtFB1QEBl9CqFQ2G
oDX90O6g2lu8HwKpBmB3zCstRH2Q5ZnRYW0YV5jkzNJH02RStCGAzcevxhQd
I3RAG5ISjxpPu6FVe64dgIay48vcz5P8zY5aIPIlMNR0GC3yskMD3jrEuEpG
DeHzsHNaCRpdVFU3J6KlvsopQb7HjMCaTGLrIEXw8HVpYq8g+cfYFGA2XHvD
m340z+jSfcB/has7TvYdno+ZoDTM5NcXM1TRlKJDUvC6yD/MT4/4n+wuyK0Y
3WVnixY5rSgBuxpb4+TPEidrbwXeZobtrovoQb82Ufj5SE5uyxUSL6ZthnvP
C0Z4qklcykIEdIdiVEeH0QzvEX6QHFFdPTBB7D61Eng+zXztmiVWWbwcpr6U
Nz3ieI/9qEtwQe+kS0YdD/H8QTaomRI5eluIWGt6Rjl75qV28VZiqbTPyqF/
EjZcliam5dUoO1B0fqYoEX95915Zm33B0zMHiPWippV3cFVfCTNCM2ZiKfB9
xfaDni4kfpCbG0I2LC7Zf4H4t9casNvcEKZ4CV3/WVMYtLadPCRdRBy1egNw
7/q0aF09qXfXYhOkwyPbqTG0iOynbXDLMnb1FY1hPJ+zNtKQ/HrxS0cq2saN
Uwb8DsVdFDtE4ievy4Ac/fSaUk8SF/q1G+7qnxWqTkOL8DL2QqNi4oZnEyR+
11ERrlSvHEycRQ9y/VOEiH1JOSYcI3jfaMlKoLX7/Ma+tWhKY70yPBJP3jyy
Hy3mwaEKHWvSts1loLVT96jDjdQ1o/fzyfi+E+qQtCq9gHED/TKsRh1MVmZs
X9RC4vPKGtDLlbVj5Xe0IENZEwZ+5ezapv0B54tdpwV1xzdOfjJCM06bakHO
j8vlJZbowbfntMB2Ilda5hjaO+CvFgx/yNutnE1s1nkAxroL9hlPEfcc0oFM
j5pNlv/QOb4ROkBd2LbMmesjPh+epTpQLjXxPkAYzeNN0QW/07IJuZrojuxM
XRDbdCCwhEryORp14VWVuVOlOXqy4YMuKH0IVHrsgS5X2qkHbGqNo98ukHrb
buvBrd6urrlsYpluPXD0HKnlKESLxE/pQWsGV/Ka+6S+irQ+nPtJVVMbQVNc
mX/PqJ61kdCbQNvM3dOHb5uPrqb/JvO/6dEHk4PJX12WjWK/Z7gMYG3J67QE
WTQlxd4A2tS/RqSrEKf7G0Dwq39eeTpokbEzBjC4aJNWlSW6/thNA0jK2i3d
6IxOKHpoABp79gu3+ZC4ZK8B5Nu6fH8bScYLzhiA+czJ/k/xaJ4QTiosjj/d
+iMNXS4tQAWPe6XZnKVk/ElpKqw3ro9dWYWeXA5UePbpua9QI9pmQocKMqun
dXf1kPxEayoMX1+0V34QPWjsSoVkTcGNGp/RNNujVNB6vZ3bYIrUqw6gwoyP
4i/Tf6R/yzAqFHEZvLPh+oT19GOpcPiS1VM3XjRPdDwVuPd6V/kKo8u5k6lQ
2xZ65dRW9GR/GhW87c+fi5FCe89mUWHjbN7JJAV0jt1lKnQmVDpkapLxAnlU
iNjWaphPJfkC+VSQrX2lUG6OVrW7RoUPJmNbauzQtFmmL4794WnyIB5gWids
+Z+nfmT+5Uwb0c0My0PJfPZXqWAhlpObdIasZySXCvZzo9O+qWhG8iXmfrdL
65jlom2OZVDh+OWATPnr6ISQFCqc8n0wIVRF+qtJoEL0AW6Nf42kvmgcFRLW
0lMGn5L8+8z9S/ua9anxJZkvirm/ufUflK6+R0sxfKhQfH5XQvQ46b/ImQq3
nPzfu/4m5rCkwn35hr367J9xPYkHqdDMvSRu5wp0Dm0/FXorMqR+iKJFnMSp
MBg5HN69C11/X4gKo+aSvXcUiHW4qTD7rzY4iIbmoYwZwMJOzudWh4klXhkA
91WaqJoTWupcswGs13v3mCMI3TGTbQDb1u9YPxqFprHFGYDUt2M+jxPJ/Pt9
DUA9lUMw/hqaclLLABzfizkKdqHLS4f0wbPSp2q2H62a0qwPfrE1S/tHyXz3
i/QhZpd+xeV/ZL4n3vpQEug1Ly4+hvU4mc/7bWqV0TJZ9CSlSw9qNy7In1BB
56jd0IOOliT9W3SSn+6uBz/4KtOUQ9HlD3p14c+Hf182nCHjuW/oAnvNAVW2
VLTN1VhdELB59aG5BE1rltMFhZI/u2kvx8j3/pwOhGpqtNvt+oLjbwlpg4XU
Ov0z8mjK/a8HYI/wr0e3NYgV6w7Ahx9FD7nM0VJZNgdA/wrv/VIG2mZNlhYI
sr0rnn1OPP5XE8rrGLFJvl+xXy9nNYgrtuC8dwrdcVJcDexT90SOxKAHRb6q
goDXKEMui1jXRxWC1tP8Bx6iRVw/A2gHb3AWXz2O57/rlQIMKtRqNlajc8wP
yMCdHJuSqgdo1ZF70nBu0UL+sqdoCreMNCh1HnifMYQW2SMkBRddn4ceXzyB
+ac6dwDt4nCt2CHiy183wbZ/UVs32KMpDe0b4Z/99nOr/kPX+5SJQMkuT0u2
UDRD860wcLX8mntdQNzeywdvJdLtOyuIwy+shMokpSet90g938vLwcEqNP12
B3F7PAcoNm1mK+kjHuVYALziza65w8Qvf84of453eX5xnPhFw4Ryw/QS+fgZ
4hyx18pt10071BdMogddG5WrBrexwyLiP48+KOfx/d4nv5T4X9CUcrzWY/c9
PMTcyX+VA05mXNq1ijjAdCE4lXh0ia8lVnvHCcq8KxQ3ihKfDOIBsf2DnsLb
ibsbeIHf/0bu6p1oxtiiVTDWb7xkuRyJ8yWsgbTCi69m9YgjqRvh4MtigdKM
SfL8XJAGl8KLp1ZdRg9+k5ABRkDkh6B84vdNMlAqbF2pd4PkB/3YDUtseU0/
NZP5+PX2QtMn/2TR78RXBxVAbm4/f4b2Nxw/+lANDNtkgtio6PIJTnVwytow
7GqMpsToqEOyyu+bclboHKcn6vA9vMS45xia5/ojDSjh5ju/8hLxt9L98KB/
ftY/D83Q+7Qf+kq/2A0WEq/brAWLDzbLlN1Ce29K1gKn5JOd+o9JP5FHD8CG
9YMrY6bRUi4rdSA7cNWK87PohAMqOrD+lS539jzpN9OD6Qu3F91a/B2fr8sP
dUB4yem5t+vQkzPeupDpXD/zeROaYZ+uC0IPp6ent6E7FB7owlqGzeRSGTTP
Dj49EPwpO7JPi9T7VawHF43d36nroVWLO/Rg9Y2ctwY0NKWJ+b4S8FjaZ2+B
9t6gqA/87wbb4z3J/M71+nBBRaAt/Ri6XGxQH/iy9B5d9Sfza83rA6955YO7
YaS/i4oGwNN+uupjCqkfWGIACTsabn/PQCesbDGAFbE/K/7mkPnmBw1guabt
db5iNK2flwrnLqcUrS8n62ljfi+WzT+5tv02WmqFOvN7XrM3V6WOrCfekwpn
Vntc0m0i/T4Op8LS45cz6Y9IPfOLVFgixZ3q3kX6d6ijAlf+0OnUj9/J+4LD
EGIWro7N/UL6+cxvCJy2+lHXv5F+v242hEXCdxgP5ki9XhVDiDr5Jbid8gPH
39c3BI7ejYGvONC0r+aGwJ505vjECnT5Di9DiJhoODrLj66XO2kICw1+eXGs
RTPOhRlCWJHEfzwb0DYSpw2BjcvOTUgUTeE9z4w7pjpv3Y7ugHRDWPCgzUF6
J6lfkWMIDBE2O6XdZP7/8g2Bcmqf9QE5Mt9/xYZQfDImoVYZncBZbgimx181
yGqgBx/eZM7nI/6jRBs9WVBpCNc9AkVFqWR8WZUhmLu00TOM0d591cz1OayL
5j2E5hGrMYQya8+qWCuSf5EZtzhc94nigFaVYI7nMOMR8ncl/Q/dNoRyI1v9
CU+y3uoKQzhCrQh28v3fekqZ+6+7sKz/JNmfp4WGULHfZNAkhKxvcZ4hWKld
XdkWQcY7ZRnCYuWf6hpxZD3vkw3hltwB35p4Mj7srCFY77l4VTqZrF8twpB5
Hz71FKSTfkUCDKFyhwKXSA5aSoR5XrbbTsunXiX1VOwNgXvzG7flxWR8iKkh
VK2XzIwsJ/vxVtsQlgs8+3fsLtmPeXFDqF4pIjVWT/azdq0hOCzzsbVrJvNl
LzaEGna+Jtpzsh+1w1RwpDhMt/SQ+zTfQQWeP7e2qrwh/Vvfo4LzD9NYyY9k
P8OYv+d4J67V5H0h9TVPMn/Pfp4ZE/pO+hezpTKf33Tqkr/k/hjvpEJ9xwDf
R94pcn9qDcC9bdd+K0G0CE+OAQi0Mvy616G92UMN4L+6Ta8eiKEHzVWZf2+U
OmXnAMmvuaUPDwvvPFutiabciNcH76tcC+J10PXtrvrQkllkH2yCLmcI6YPv
6XExCzcy/pmvHrS7+N3kS0EnlMzrgP/l4kM+GegcnXYd2NQ3ON+eQ+qLZOqA
n56eflwx6S9Ilvm+3CkyQmkgXmKtDZ4/HgmMj5H1UZl/PwpKzN/T+0Y8TtOC
Roc99oU/0YxeXi0Q6Mkuc1gwjf1FX9gPtVXHtF8LoGnh8Zqw/NS6gFY1dM4f
B3WoqjQS2XqAxKuF1cFuIro5XB/d0dmlBpU233lVzIg3qqqBlUZL8W0PdP2h
lapQyuXTn5uKFlm4SxGo55tUg7+iValBUmBjrh506juaYVO0C46uq78T8ov4
qsVOSL12d2fYgp+Y/7RyBwzerRCOXoWmaFpthe8MKfOYtST+kH0LcGiVno/d
gGbMFG4G8Y7CJWe2k/yMSRE4Npwzk6BMPD0gAFGF6/ckqRPfEuSHi56ZXucP
EOvQVsK9mdQPyQeJtY9yQvv9VZtSTYn5uxfAUNh5y4uHiaecZ5SnDqxMS7Mh
pil9Vl60LP5FuiMxpeOesmAnN0+mG3GOwHtl8dQ4vSwv4jOfp5SVjnBFZ/sS
y4lRwHBjVOOlk8QeAxxwUTa4PO8scYqbABTNzo5dTSL+pL8G7tX5b7uWShws
JQxDOr7ZhZf/N99fERC3cj9Tepvsz832rXAv6pBLVT/Zv1o1aRjqlRVpk/yF
cUWKMmxQfBYvvxtNUX+iDJbZLvP5csR8KQCvHDIGQjXQ9SGrVOH5N0rWvkPo
nMoCNWhY2rbmSgRaZOahJlxWseMLeE3qf2jVhbe5c2EfB0n87RY9WLco+bvJ
BzLeKUwP0tpanu/6RuqvVtCHxEOSCSOLZnD+21cMIPTYDPdBGbRI3U4a2F47
t0gsFt2hVGIEXKneS+XPoRkZ7UZQGmXEo3seLZU3aQSzjgJrPbLQOdd3G8MF
0WzJ8hvEkbeNQYGfIdNQSerzdxvD4EK7fZ130eUaU8Yg+X6L2tRD0k+4tAk0
X75uIteHHrS/ZgIeifGHdN6iaYMPTIA31MfKYhhdP/3WBKxtZF2CxolHBegw
s/5+YD3bb3w/dIbQQTyzLVd7B3rwrZIpdJwuvXZIisSDjEzBLzChxE0Wzbji
bAoPLEwqz6j8JvcpwRSOrHnzqMMY3VH6xhTYFte2D5mjvcPHTaFw5lLXd0u0
6ut5U/jZa9/P74Km8Ww0g/iUsUnzIHROgKUZ7I16Ou0aSuI0dzN4c7xsNiCK
xHP9zUCMfow9KwEtUp1oBu2a9MWlyaSfoCwzOL5n3/K6dDK+qsAMGvnmVg/l
kf7T7puBy8J+4e+FaCnlFjNY/qN248IyNI9Zhxncepezlf8WuvzDSzM43Bm2
Y0s1iY8NmgFbo4PU3lrSj/2oGRTc0JI98ABdbzhhBtTLYgrmrSReOm0GUwlL
VFyfkvlD5swg7X5HlU0nqV9AMQf4nCJj3ouePMBhDu8FLEsM35D1WS42hxiN
zVsPDJH1fOQ2B0nvT5fgA4l/WGEOnZlla/aOkfrmvOZw4tHx85KTZH3Abw7C
PxWXbZkm55OyyhwaNrFFC8+SfFsBc3AybKXwz5PzzmJ6adC5gKXss7geXabL
C0ym2BajbVyY4+ndaz1nl6EHp/nMYXbB0MdvvOiE7yvNIWfnNdtPq0m+FbO/
/Yf/ez0ojPaWY/b/OXo3/eVGtCqDyxwSbv1uf7aV5Muym4PsUJ12yw40w2ze
DPqWRTXWSpH5Rn6bQYiCvlKlLBk/+MMMRJ15K68roKW0vpqBZ312YaYmsdGA
GfB9ddh8QYf096vbDKrW7Mg6TUVPLnrKPM9jdxICzNHlNtVmcO1S8JKjlsRF
pWag36YR4WqHplheMYOULR0nzD3I+F9xZqBolPLN0ActMhhsBoOnjrgf8CPr
2eVtBuIvR632MogpxmbwjL3spWQk6SdUwwx8pY8bbYkj63XZbQZ1cQu0+C+g
aY4rzcDhTkvd0jRSP5D5/CwZPiu/MJv0M/3FFEyU10p+v0bqr2o2hdEJGf6O
u6Q/io8pnBX+fbalHp2z28IUZHTqOOsekv15pG4KQbl6c9efkXrCvKbAQ3d4
d/o9mc+ykA63Q8WPhI+S8bln6WBROtkd8JXU1/GhQx5n8CPXX+Q8avfSQb4m
ufzA0jm8P4o1JrAk8oRVMQ+aUZ9iAn2Gh7hXCKAH446aQNCIsEuPCJrn2zYT
qOfJ2+C4F03jiDOGxNeRT1sV0VI1NsZgl+8cKKGGLr+91xgWKu3o/aFH8kMH
jUDLueJcmC26w2eHEayWuaD0wQktYvfnIIz+Of5ZxwOtmtF2EGKT5LVWniD1
Rt0OQtv9+r+XzpDxc9k0MOJ/5nH/Dum387EBbH5bvnbjfbK+XaYGMFWY1BrR
SOrtZP79lqxiKqr/FG2zclIPXrr1v+57h87JYP4es2oY051Z9gfzV73dD26e
XNt3O6Dry83l4cpDGQ8F1z/ke7hbDt4IW5apeZJ439J9QH1yQ5bmT8bvuLMH
ZMQOq/93huRf+boL3EMiI30TiQUiJCGvp6w1MIW4X2AHCESyG8blEIdKb4W5
oeuHr90iPucvCHvkX2aXVhMXe/CBZwLbu9u1/6t3ixuufZTYcv8BcVAoGwyC
mUtTK7F3+KTympTQ4idPiRPMO5SNvhaPd3YS+z6aUT6t2SPd10vM/mQRNGVQ
jg+9IZ7M5oG/38WrRoeIwwdWwV5d+tzEB2IJUSEomCkM/TeJZtwY3ARn6Mbn
hDj+Ytw5RxIelgQ/37QEzbi0Qwr+LSzgF19BbBcjDd4Vf9Ll1qBVu/bvAfqK
/Gt0SRK//kwe1j+aqY+no0U6zqhDmVL2j4X56EHKDubvf5lhtxPFZPyJX1Tw
3yb+7nM5ul6myRDUeSs7nt9F50iX0aDn49Prl56jy0/rGsGfpL/Oin/RUinh
dND+dOTNUZN/OP/ZscNwfSDX+MMhNK2NdgR4X4w+PmSNtnlx+wi8rvWtVnVD
S0mFWILnhTMpyxkk/mC5NVxQuUcrKkbP6K6whaFkoYdDbPOYLzBtD6Wri57P
cKJj5NY7QFCa3MCKZWjBVQccQCCL/kt5Nfrir1QH0M2L356+A22usNcRKioW
njMyQfME2jtByJ6kdNdDaK60aCfQrxS5xrAi4y2KneBDtXJ9qQvJf/DNCYQa
TnxfEoyeoQQ4Q8SzMdMHV9Gj434ucPBggH1fEdol44ILrO/i8v5WNk/Wf8MF
qnq2xG6oQU9++OwCX/qt7wa2k/kdzVyh2nq8JakLXUD1cYWooaAXhS/Jeqvj
XEFkJO1r7zuyH8vuuQL9S9eGPb9IvXBBN9jkaSeh9wetarjTDWZO+AvfYP4/
q58EDTd4+HvR9lYOtIinhxuUKFDLjLnQUlwMN0gKTJZ9uwRtw3veDaz/blb/
uQLt73PHDbTAvTWUF13/oNUNJEIqqMtWkfqMV27wm6J2WHQtunz3bzcYVIsZ
KhNGt27jcofmsGfOihvIeIaAO5xnt/I1EkXzHJF2hxn71bLPt6KrspXdwepB
x7ThdjJeS8cdmjbFVbbvQMcYm7iDeJjGCYOdaNoDK3dIGPqzr02K1Et2cYef
qpUzurvRCS0+7tA4LxagLYcW0wlzBzHrdwotCuiO5Fh3OFebMbdfmcQhwR2m
1tHvNamgX6qmuINF8PJgDXX0xcwMd6h/06LcqInWpuW4w1al0H+qB0h/Fnnu
cCZDoa5OB61ac80dvs/+CAF9st+eRe5gbnFd9T4VPeNb4g611U4LlA6S+k+v
u4PoGpHGGmPSn1+pO8T5vwqTNyX1vJie7E3SqDIn/VYy80336bPvO4we1GHW
u5fC8fC2Jdp7O3O+jT9rI/fYoHOMmf1E0f21btqR82654g5fbklzyjiS8wy/
5M78foy1lDuT84hKd4eqY3kxu9zQo88uuDPvt6VOqQe5T1bn3CFCZvUSSS/S
j1S0O3xO7Hhc7EPGa4a4A+1b7GlxXzRXhp87VNI09Av9SD/S/7mDcPkfbrGT
xJz27hC2ovJpfiCZT8jcHUY9vc5tOUXW85++O1DbxQzzGGQ/51Tc4ZbkuxWb
w8l+PZBxB8YXk0SRGHI/2Jj37YPecqNLcaTe8UXuoF/cwrv+LNlvkZ9uIOim
cEEoiaxfoMsNyj5uSBXIRDNcw92A/8Ars+Rssr/+/7lBQH6SIP9lMv8dU+bz
4ciRvjKf9H9/qxsMvPucyV1O5u9lPq+a6nmWpyvI/dTKcYWiy5brl9wmz8ub
MFfws+m4xFlD7uup/a6wfOB2LlsTeV6C610gjjs4+E4z6WdpugssUtQ093hE
zu/8URf4m9q5rKed3I9zIsz3y8EJ/8JXpL/V3s7gwqg0tnpD6lmqOcNwafBO
vrekXupKZ3i9lHs4aJjEh0qd4PFDMUPaBFnPvTeOoDU1sZ3jO+k35qojNG66
w14zReZT/88RqkP212yeJfsT+NsBCuTttvxiX4DnMcPuANHXM+ay1qIp5R9t
ge2NXY/ROrT3mku2cGqJ+A1OETTNlW4Lfs5VTj5biO/V2oDTxu7nmlJoERMu
a9BMXl4wth/NkLp1COofdIflaKNtGubNQel7piVdj+Rv0DGH3YY7+OpoxBrd
prBpsfappMOkH5UuY6AEh5rI+6DrQ5/qQvm3L7/rjqFVnynqgI2T+SUtP2K7
/ANQb7jrs3EgGW/rrQmMTf0hnpGkn/XliiCVqr1lOpo456AcDC699TgwjvjV
2B5QnY5bFRtPxgutkoBJ1581K5KIxddvgZwBW5uUC8T3pIWBZvyUY10qsegq
bphvkSu+kkZMiStRLlXKo4lnEgvLLAOrGyt+lmcTy61aB7XpH1RrrxC/lZKE
U/9d6Hl5nbgjURn+8U4uWN5I+tNwoEJp9OFrF5rQgwq7aWD1p1lfqIXsz7js
QagdyUoVayNeo2oMwVV6kho9pN4WZzP4Y3nN3P8zOQ/Ov9YwV2BV9o6XDc9b
QsAV6r/0el5ahc5xqWZ+76QO7jwiiGZoW7oBb5XG9e51aKmP+cz3fYtYcasY
sbKaJ5iPfM8vBbR/fIsP3NoYnR3ghhZskT8BAY4Uq33/oWmfE0+AauHJdVNe
ZL51n0/AEymPzP+Oo2MK0/3hncrBdBsGun7Fn5PAYyWUopWCLmi4HwT/pZed
5W1ETxrzhwLz51h0YxPaY1w5FGasokKPtqAT7J1DIWyz5fHONrRmb3UopJQs
sUzqRb+sPBIG9bWOErxf0dpDF8OBY+PBrY0TaH3runDQDVcSOfqd9JM5Eg4v
DvDxd/4i+2coHQGfOurnEtkWsuxg8zACeN8LPVkpiOaOH4gEs/2cDxvWoifF
KFGQee17rc86tITDxijY5vGo4vkmdMIduyhQmvZLT5RE618cjIJQM7sLalJo
0UXzUdBcbXDumwzahmNdNNBOiYYdlENfKDOLBkfOTteVGugS/5ZoKHK9b9+w
Hz289100TD4psPTRRucd/xMNAQkhB58boJU8dsXAuTWS8onmaG9KfAx0BQru
VjuMloq6GgOCAwslv1miKYF3Y+BKbp/IQXv0l4KRGKjaEcO10pOst0cmFqRf
rH6a5E3W46YRC0VB1xL5j6FfehnHQtbT5rWC/qSfxz6xIOBn+jYtAD0jxIiF
hPUfrggFk/lfno2FMC8OyQ1hZL9jr8XCn9XJ33Ii0JkBN2PheL1o5aZokv+s
NhbGXW4F5MWi/0Q8igWXlZoqW8+Q9aZ3xcJQddfCgnNkPu7+WLCws2/dnog2
eT0SCy+W/DhTfJ70v3A8Fgxuhh2UTEFzhU/HQvNhXoGyi+gg8z+xoMqe2yeV
ga4PZYuD6hLpSxVZ6NE/nHEgQ2+w35ODnmrhjoOSvzSxylxyX4Z44mBL/uCX
fVfRIlr8cZBN9b5RfQ2tOS0QB4K/5o8rFpH5vgjGQeKleIX7JeR8t6+NgyXa
G+ahjNyPYqYjJksf1N8g83sy/fcixKjfQt87uiYO/NTa9Zsq0eW3VsfB5CfL
lVrV6EGZVXHgmvS1u+UuWnVsZRy8UwhO16lFv3m9LA4Ov+e2flKPvsW2OA5e
nM7cbPCArN9yYRxQ90iMtj8k+/uZuT8tb+6W0FrR/gXM/VON1PPpfEzWe+Fr
LNRIvpY1eUruU/FwLOzucZvtfoZmH++LhZJTs7Vmneg95h2xsHVbXPirF+iL
o02xcOnZGu3DveR5yaqKBUH/Qu7+V+i2Y8WxkCQi/9zqDXne3LJiYemj1uTB
ATQj5FwsRPiYW9gNkftffioWTjSeeO/4geRbHYmFSTfOgo+j5L726sSCG1+q
h+sYusNhbywccaic9pgk/d7kjoUebq2a8e9oHu+fMWB4u/uU9zRaWP5tDKgv
mub0nSX7+eF6DNwtjWib/oPOaTkfA3vM+BNPzJP7WuIfA9sKdq8NZGdHn1SJ
AW7doxJhy9Eln+qjIaNhxVKFleiqxoxoEJe//ukbHzrI5ng06IiN5tuuQSe8
FY2GqEVWG9VE0feu+kbBqlNz8zNb0SKW+6Mgb/riQPl29GgTfxQ0DndliOxC
S2SWRcJ8o44ARQFNE+2OgHMKH6fuKKGb1mZEwPqKiC4vFbRgqXUEKF2uS3ir
iebPHQ4H/xDZpXWGaO6g/jD4rriRcsoRXT4ew4DQm7UDsi7oM+n7GMCz48j9
r27o1qBHIbBzbWqApTda9YnvKXCf4Z5WCkTHfLkaCLNeRV1TwWhtg88BEPfx
QEUJg8SDdgRAQU+Yl3AU6W9vnj8M35r5NJeA5irwPA7HJFJab55HdyxL8wW2
vN3X3FPQcpvrj8HG854OrzPQPFT2o2DlMzxQk4+uD2v1gK+jofePFqK9Qz+6
QZDNhkzxEnTOtXkXSDe0OJR+g+QbCTlCr2RH18l7xD/+HYL0sZXBC+tIfssq
U7AqNN56toHED4sYwUbn5GcCTWiGobI+DIv2+uc0oyn7N2pCwTvBTeKPSJzv
1T5wz7F4cvMJidvNCMNOq0xf5XbiJes2w3ehgXUtHcRDZxTg9qsNLbQuMt/Z
gf3gn2rr3ddN6uXHU2Ged6Txax/pL3S9OXAv+eLMP0Lul5e0IzxrkVyZ/REt
1RzrDEmRXjXbPpP9OjbqCmsW/OBWnCD37VWVJ2yd+X3D9jc5Xw5jX1D7wPmn
dBkH+tKrU8Cep3NVjge9x1OYAa22p6mNvOiC/KcMoPYvv9y9Gu0wsicMjrxY
pfVnI/pFskAk+DVuTtDZy0Hm33oairNVRIet0NnH5C/AeMAPTltbdJJwwQWQ
Mrs21m9P8oNXJ0PlihU3e13QnrYzyVDPGFB7chT9LrMxFXrsgq0rotBWEycy
IPffGtMdGRyq///vNf0fxMtGPg==
     "]], 
    LineBox[{{2.983747090961542, 4.6980719460454465`*^-7}, {
     2.9867861601537946`, 3.9205578516998685`*^-7}, {2.997450292519863, 
     8.194555789486913*^-8}, {2.99749013042373, 8.06891122806519*^-8}, {
     2.997529968327597, 7.943192770198948*^-8}, {2.997609644135331, 
     7.691528125519653*^-8}, {2.997768995750799, 7.187293604715705*^-8}, {
     2.998087698981734, 6.175196887170387*^-8}, {2.9987251054436053`, 
     4.136439457624874*^-8}, {2.998764943347472, 4.008369813846002*^-8}, {
     2.998804781251339, 3.8802252078085075`*^-8}, {2.9988844570590727`, 
     3.623705069344396*^-8}, {2.9990438086745406`, 3.1097492581011466`*^-8}, {
     2.999362511905476, 2.0781676823844464`*^-8}, {2.9994023498093427`, 
     1.9488744840145955`*^-8}, {2.9994421877132096`, 
     1.8195056128433862`*^-8}, {2.9995218635209437`, 
     1.5605372993832134`*^-8}, {2.9996812151364116`, 
     1.0416783879918512`*^-8}, {2.9997210530402785`, 9.117712806983036*^-9}, {
     2.9997608909441453`, 7.817874347892939*^-9}, {2.999840566751879, 
     5.215891718535204*^-9}, {2.999880404655746, 3.913736890126529*^-9}, {
     2.9999202425596128`, 2.610821780990591*^-9}, {2.99996008046348, 
     1.3071321802726743`*^-9}, {2.999999918367347, 
     2.668087972779176*^-12}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{-1., 3}, {0., 4.6980719460454465`*^-7}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.4455986584549294`*^9, 3.445598697613727*^9}, 
   3.445598755390472*^9, 3.4455991346823606`*^9, 3.445599260443578*^9, 
   3.4455994781289253`*^9, {3.4455995120986156`*^9, 3.445599554241996*^9}, {
   3.4455995948325043`*^9, 3.445599607345347*^9}, 3.445599726896373*^9, {
   3.4456005873867407`*^9, 3.4456006140706253`*^9}, 3.445600828463975*^9, {
   3.445600917416771*^9, 3.445600938673922*^9}, 3.4456010253058147`*^9, 
   3.445601146478743*^9, {3.445601217443865*^9, 3.445601245427712*^9}, {
   3.4456012808242483`*^9, 3.4456013033746853`*^9}, 3.4456018763780937`*^9, 
   3.44560249656007*^9, 3.445608776058399*^9, 3.445609485898383*^9, 
   3.445609591568995*^9, 3.4456096254486303`*^9, 3.445609721879899*^9, 
   3.4456098865454597`*^9, 3.445610150363138*^9, 3.445610216422515*^9, 
   3.445610942301188*^9, 3.4456112711273203`*^9, 3.445611394004369*^9, 
   3.4456115653412046`*^9, 3.445611624502996*^9, 3.445611954773322*^9, 
   3.4456120725338306`*^9, {3.445775696476283*^9, 3.44577570954635*^9}, 
   3.445856378438388*^9, 3.4459448535950603`*^9, 3.445944883691107*^9, 
   3.4459478191617928`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"An upper bound for the error in using  \"\>", 
   "\[InvisibleSpace]", "11", 
   "\[InvisibleSpace]", "\<\" equally-spaced nodes is\"\>"}],
  SequenceForm[
  "An upper bound for the error in using  ", 11, " equally-spaced nodes is"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.4456008290933123`*^9, {3.445600918056079*^9, 3.445600938909155*^9}, 
   3.4456010255386868`*^9, 3.4456011467138567`*^9, {3.445601217698155*^9, 
   3.445601245682043*^9}, {3.445601281077523*^9, 3.445601306536809*^9}, 
   3.445601879601554*^9, 3.445602499724246*^9, 3.445608779207288*^9, 
   3.445609489052431*^9, 3.445609594753187*^9, 3.4456096286342382`*^9, 
   3.445609725018835*^9, 3.445609889719488*^9, 3.445610153494782*^9, 
   3.4456102195662947`*^9, 3.445610942260001*^9, 3.445611271084407*^9, 
   3.445611393964024*^9, 3.4456115652994423`*^9, 3.445611624462522*^9, 
   3.445611953578368*^9, 3.445612071351643*^9, {3.4457756964275837`*^9, 
   3.445775709523162*^9}, 3.445856378175005*^9, 3.4459448535524273`*^9, 
   3.4459448836513853`*^9, 3.4459478191749887`*^9}],

Cell[BoxData["0.00007658622532643076`"], "Print",
 CellChangeTimes->{
  3.4456008290933123`*^9, {3.445600918056079*^9, 3.445600938909155*^9}, 
   3.4456010255386868`*^9, 3.4456011467138567`*^9, {3.445601217698155*^9, 
   3.445601245682043*^9}, {3.445601281077523*^9, 3.445601306536809*^9}, 
   3.445601879601554*^9, 3.445602499724246*^9, 3.445608779207288*^9, 
   3.445609489052431*^9, 3.445609594753187*^9, 3.4456096286342382`*^9, 
   3.445609725018835*^9, 3.445609889719488*^9, 3.445610153494782*^9, 
   3.4456102195662947`*^9, 3.445610942260001*^9, 3.445611271084407*^9, 
   3.445611393964024*^9, 3.4456115652994423`*^9, 3.445611624462522*^9, 
   3.445611953578368*^9, 3.445612071351643*^9, {3.4457756964275837`*^9, 
   3.445775709523162*^9}, 3.445856378175005*^9, 3.4459448535524273`*^9, 
   3.4459448836513853`*^9, 3.4459478191872463`*^9}],

Cell[BoxData["\<\"REMARK: This is not a valid error bound if Mmf above has \
not been set appropriately by the user \"\>"], "Print",
 CellChangeTimes->{
  3.4456008290933123`*^9, {3.445600918056079*^9, 3.445600938909155*^9}, 
   3.4456010255386868`*^9, 3.4456011467138567`*^9, {3.445601217698155*^9, 
   3.445601245682043*^9}, {3.445601281077523*^9, 3.445601306536809*^9}, 
   3.445601879601554*^9, 3.445602499724246*^9, 3.445608779207288*^9, 
   3.445609489052431*^9, 3.445609594753187*^9, 3.4456096286342382`*^9, 
   3.445609725018835*^9, 3.445609889719488*^9, 3.445610153494782*^9, 
   3.4456102195662947`*^9, 3.445610942260001*^9, 3.445611271084407*^9, 
   3.445611393964024*^9, 3.4456115652994423`*^9, 3.445611624462522*^9, 
   3.445611953578368*^9, 3.445612071351643*^9, {3.4457756964275837`*^9, 
   3.445775709523162*^9}, 3.445856378175005*^9, 3.4459448535524273`*^9, 
   3.4459448836513853`*^9, 3.4459478192054*^9}],

Cell[BoxData["\<\"*************************************\"\>"], "Print",
 CellChangeTimes->{
  3.4456008290933123`*^9, {3.445600918056079*^9, 3.445600938909155*^9}, 
   3.4456010255386868`*^9, 3.4456011467138567`*^9, {3.445601217698155*^9, 
   3.445601245682043*^9}, {3.445601281077523*^9, 3.445601306536809*^9}, 
   3.445601879601554*^9, 3.445602499724246*^9, 3.445608779207288*^9, 
   3.445609489052431*^9, 3.445609594753187*^9, 3.4456096286342382`*^9, 
   3.445609725018835*^9, 3.445609889719488*^9, 3.445610153494782*^9, 
   3.4456102195662947`*^9, 3.445610942260001*^9, 3.445611271084407*^9, 
   3.445611393964024*^9, 3.4456115652994423`*^9, 3.445611624462522*^9, 
   3.445611953578368*^9, 3.445612071351643*^9, {3.4457756964275837`*^9, 
   3.445775709523162*^9}, 3.445856378175005*^9, 3.4459448535524273`*^9, 
   3.4459448836513853`*^9, 3.445947819222497*^9}],

Cell[BoxData["\<\"*************************************\"\>"], "Print",
 CellChangeTimes->{
  3.4456008290933123`*^9, {3.445600918056079*^9, 3.445600938909155*^9}, 
   3.4456010255386868`*^9, 3.4456011467138567`*^9, {3.445601217698155*^9, 
   3.445601245682043*^9}, {3.445601281077523*^9, 3.445601306536809*^9}, 
   3.445601879601554*^9, 3.445602499724246*^9, 3.445608779207288*^9, 
   3.445609489052431*^9, 3.445609594753187*^9, 3.4456096286342382`*^9, 
   3.445609725018835*^9, 3.445609889719488*^9, 3.445610153494782*^9, 
   3.4456102195662947`*^9, 3.445610942260001*^9, 3.445611271084407*^9, 
   3.445611393964024*^9, 3.4456115652994423`*^9, 3.445611624462522*^9, 
   3.445611953578368*^9, 3.445612071351643*^9, {3.4457756964275837`*^9, 
   3.445775709523162*^9}, 3.445856378175005*^9, 3.4459448535524273`*^9, 
   3.4459448836513853`*^9, 3.445947819238476*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{
  3.4456008290933123`*^9, {3.445600918056079*^9, 3.445600938909155*^9}, 
   3.4456010255386868`*^9, 3.4456011467138567`*^9, {3.445601217698155*^9, 
   3.445601245682043*^9}, {3.445601281077523*^9, 3.445601306536809*^9}, 
   3.445601879601554*^9, 3.445602499724246*^9, 3.445608779207288*^9, 
   3.445609489052431*^9, 3.445609594753187*^9, 3.4456096286342382`*^9, 
   3.445609725018835*^9, 3.445609889719488*^9, 3.445610153494782*^9, 
   3.4456102195662947`*^9, 3.445610942260001*^9, 3.445611271084407*^9, 
   3.445611393964024*^9, 3.4456115652994423`*^9, 3.445611624462522*^9, 
   3.445611953578368*^9, 3.445612071351643*^9, {3.4457756964275837`*^9, 
   3.445775709523162*^9}, 3.445856378175005*^9, 3.4459448535524273`*^9, 
   3.4459448836513853`*^9, 3.4459478192551937`*^9}],

Cell[BoxData["\<\"Lagrange Interpolation\"\>"], "Print",
 CellChangeTimes->{
  3.4456008290933123`*^9, {3.445600918056079*^9, 3.445600938909155*^9}, 
   3.4456010255386868`*^9, 3.4456011467138567`*^9, {3.445601217698155*^9, 
   3.445601245682043*^9}, {3.445601281077523*^9, 3.445601306536809*^9}, 
   3.445601879601554*^9, 3.445602499724246*^9, 3.445608779207288*^9, 
   3.445609489052431*^9, 3.445609594753187*^9, 3.4456096286342382`*^9, 
   3.445609725018835*^9, 3.445609889719488*^9, 3.445610153494782*^9, 
   3.4456102195662947`*^9, 3.445610942260001*^9, 3.445611271084407*^9, 
   3.445611393964024*^9, 3.4456115652994423`*^9, 3.445611624462522*^9, 
   3.445611953578368*^9, 3.445612071351643*^9, {3.4457756964275837`*^9, 
   3.445775709523162*^9}, 3.445856378175005*^9, 3.4459448535524273`*^9, 
   3.4459448836513853`*^9, 3.44594781927072*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Using \"\>", "\[InvisibleSpace]", "11", 
   "\[InvisibleSpace]", "\<\" Chebyshev Nodes:\"\>"}],
  SequenceForm["Using ", 11, " Chebyshev Nodes:"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.4456008290933123`*^9, {3.445600918056079*^9, 3.445600938909155*^9}, 
   3.4456010255386868`*^9, 3.4456011467138567`*^9, {3.445601217698155*^9, 
   3.445601245682043*^9}, {3.445601281077523*^9, 3.445601306536809*^9}, 
   3.445601879601554*^9, 3.445602499724246*^9, 3.445608779207288*^9, 
   3.445609489052431*^9, 3.445609594753187*^9, 3.4456096286342382`*^9, 
   3.445609725018835*^9, 3.445609889719488*^9, 3.445610153494782*^9, 
   3.4456102195662947`*^9, 3.445610942260001*^9, 3.445611271084407*^9, 
   3.445611393964024*^9, 3.4456115652994423`*^9, 3.445611624462522*^9, 
   3.445611953578368*^9, 3.445612071351643*^9, {3.4457756964275837`*^9, 
   3.445775709523162*^9}, 3.445856378175005*^9, 3.4459448535524273`*^9, 
   3.4459448836513853`*^9, 3.445947819289525*^9}]
}, Open  ]],

Cell[BoxData[
 GraphicsBox[{{{}, 
    {Hue[0.67, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{2.9796428837618656`, 19.680787061009102`}}]}, 
    {Hue[0.9060679774997897, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{2.819263990709037, 16.764507297148626`}}]}, 
    {Hue[0.1421359549995791, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{2.5114991487085168`, 12.323390814769505`}}]}, 
    {Hue[0.37820393249936934`, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{2.0812816349111953`, 8.014734297934366}}]}, 
    {Hue[0.6142719099991583, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{1.5634651136828595`, 4.7753397043901415`}}]}, 
    {Hue[0.8503398874989481, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{1., 2.718281828459045}}]}, 
    {Hue[0.08640786499873876, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{0.43653488631714066`, 1.547336222413167}}]}, 
    {Hue[0.3224758424985268, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{-0.08128163491119511, 0.9219340060761627}}]}, 
    {Hue[0.5585438199983166, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{-0.5114991487085168, 0.5995960210946905}}]}, 
    {Hue[0.7946117974981064, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{-0.8192639907090369, 0.44075593561806675`}}]}, 
    {Hue[0.030679774997896203`, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{-0.9796428837618654, 0.37544515247408955`}}]}, {}}, {{}, 
    {Hue[0.67, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{2.9796428837618656`, 0.}}]}, 
    {Hue[0.9060679774997897, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{2.819263990709037, 0.}}]}, 
    {Hue[0.1421359549995791, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{2.5114991487085168`, 0.}}]}, 
    {Hue[0.37820393249936934`, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{2.0812816349111953`, 0.}}]}, 
    {Hue[0.6142719099991583, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{1.5634651136828595`, 0.}}]}, 
    {Hue[0.8503398874989481, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{1., 0.}}]}, 
    {Hue[0.08640786499873876, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{0.43653488631714066`, 0.}}]}, 
    {Hue[0.3224758424985268, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{-0.08128163491119511, 0.}}]}, 
    {Hue[0.5585438199983166, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{-0.5114991487085168, 0.}}]}, 
    {Hue[0.7946117974981064, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{-0.8192639907090369, 0.}}]}, 
    {Hue[0.030679774997896203`, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{-0.9796428837618654, 0.}}]}, {}}, {{}, {}, 
    {GrayLevel[0], LineBox[CompressedData["
1:eJwVz3s803scx/E1s7nUMOTUHolIYtJlp1zS95PqiAdSrY5zjqYyyXGseJRu
5BbxKOc4dqIonVokxiYqdrLfIbdOuZQ0PYaRKaWaYuEMO9/zx/vxejz/fNse
PLIrnEwikQLx/m/IWdYLnU5N+D6O2rv3ghz1f/ExHdeoib/OOhx5mCNH+yPC
/N+MqokzmkUK+3w5Cg/Kb3wqVxP9gjzxTIkc8ZcZ3LsiVhNX+TGhrc1ylNw8
dGldqJowCUxK7CT3oGJ6wfcRsk8E8922iZL4HjRWaKhoj/9IhGwtMi068QqV
3rF6kfroPZEU5LNdJVUgrySlI99thJiS6RbYUPsRX55hbC0dJlq7JCHxHgOo
6ZuwgSr9IcL663TY25JBpFk+aZqYOEAIAvuLJplDKM/jZMT+dAXhLBt6/lun
CiU6NbUGrHhJcNYX+loI36BFd9MGi+yfEfpGouzZ0yNIxwyqE0S1EBez2tQb
i9+jUOqU/8EsKXGOxtG97fmAyg8dcXe4nU+ws1JNzruokUgv1gt1l6Ny9IxR
rxlD2wnd14r0ejRSa5dp/MMXZLxHuSfu6FPkt/G7AxbaccQ6dlUmEHShtQED
a2/VapBNcXd+ck4POt/x6iUrYRK16pXnCGf7kO65xj02exopeRmRLumDKI26
LS+vVIuq92VaCbeo0GOe9eYWuzk02l2yYffEG8StEjO8eCTwTaHPtMW9Qwq1
sidXOg+St25pP+j6ARmGuorDA/RgwEO2taH2E3pr61FUOUyBnT1lCysKxtAT
+o5fqnOpsNR6wCxD8xnF/ONZuOoPAyCd3RDq4zaO1NF+Kw0vG0H74bgq89wJ
5GLF4c5+nQ+BgkZI+KhBDZLrP55KNIFB+bc2T10mUcfqzx0imhkcuP0r1TFz
ChFuNdvSMxkwkW2EItumUdAmZe8JUwtwl16S+BhrUVD0GltNhSX8zDdYuY43
g0SepOpbuVYg3lg4rlc8iwooOTfczy2CwUvMpkGyDhnWOTRMtTJBQOEe22VP
gjvL9/zeamkN9P57N8mNJLg/WurN2mIDpIRkjnvMPBjTSu9duWsL2hKu+DWD
DOSlBotrHewgOl+cxWggw0/C1dHZvfZQ45xhYMbXg7SouLoYiQPM94tlpdAp
UL2CN9OS6Qhyl86uUw8p4Ftzurv6vhOUFSJ7FVcfaBzJPttRFgSL15stmdMH
payOc3uzK5xJu5HcW0qFOJ7impq0BkpGlhTQ/WnwQMo0CQ9fC/5mdLeWf2lw
qE/b3GbAhjR9MrMX282z0JJsyAbZtGZ2DNvT6TFvPfaa132PFmtpcLi+hnId
e2FV+Q4+dpB2zu+oERuUnIAIyxkaHO92/MyYz4bYyxdzw2ZpwFVphcEmbCi7
mHTqJPYBZpVeFrYq6VhIFvYq0/Gweuy9kSHLHmBL3RY4OJmywdODVWE0RwOh
qFSixab0PmmqxF4VfEFZyGCDVydR0oztYt7h04Ud11h1QYHtc7NAQjNnwztR
wU59Hf7n3ZF6FLs9IaovGJtT+edqbws20GJD/47G9mY7X4vDhkO7hSnYJ3I3
GZVh3w30jBRh+8zphs0t2TDq7epfj11BreBsx7bfYOf6EntsXPUoHpvrbMUY
xT7ecmtdJXbeUmONDvtaykfhMPZ/BzdMPQ==
      "]]}, 
    {RGBColor[1, 0, 0], LineBox[CompressedData["
1:eJwVx38803kcwPE1bMJjGFLt4feS/Lhd1wqTx+d9qVv1WI5S56qj/EgSrT0k
7vwu4lEuh9B0Lkc2P0ZFdzcP59tk8XhcSVeZHhTaKjWZYinb7D73x+vxejzd
Yk7sjieTSKRQ3P8/mO372GjUEAEzyrF95xXo+QeuzZxWQ4w0ydXdZQp0KCGW
90qtIS7mO4WuESpQfJiw755CQ5ByVtoYxAqU4m5+63K7huhuEP06cFeB8u4q
L22I1hDc2D1nhsgjqJFW811CzwzhFCRvFGeOoNna5aODme+InGtlxQ2nn6Lm
JsfHZ+68JXZWm65TdY2i4Nxxr5SAKaLT2SbZlfIcpSiKLJ27XhIHojPqMjkT
SL4ydqLDTEm4yZS/vBZPIu2aBZucnAmilQ7iBYYSVXHSEw4VjhLS4seii0Mq
lOMtH9i1dphIqqkws69/hVbdLJi8xnxICDkqnuHHKWRkhP1dntRPyPdrezc3
vkXRlE+8mJIugsXqn389Mo0kR04EeoqExDHPh17n/DSo1UQQjJ5IUJDbSpZM
O4u2E8aPbYUypFVYSiy//4As947vTePfQ4Jz287a6+aQb+qVnvLyR6ipeT+v
QapFro1PhHllIyiduzjpm7WABkwkZfWGZ4jTwNggKP2MxuOKEv0KJ9EoeTa3
qlmHOn8odqwPUaHpqgXnfo8lpH4i9t8z/wp9vF5g3BxHgh35NP39tDeIxk7v
r+xaBnlbQwZjWNPo+NF99fG7TGCC07O1VzqDPogWr954aQrhIy0r2mpmEf9A
HL+zkgIuzhO2Rdr3qG+kuvmLCnMgZftHcwPm0PtCZtDyagsYPJrWYVc5j5Lt
jwkMH60gtLwPst5pkYpfcTwjxxomFRtd7/ktoMhg1+FWqi0cFv1M8Sr+hMIC
0rmFxXSYL7VAifc/oweL+qenbewhsOvSda6lDm26Fbha2+YAx1LM122I06Ph
Uy7NDZWO0L65ds6k0YAo1i5VgWdXweQlhnySbES9U4T00wADyk2jUnczSTD4
r3XJgIMz0J7f+p3cR4Jla/1CfENcgZSVFxF4chks7bWWXr7pBjpxVPsLOhlm
rjBdpJ4ekCxsL6H3kmE66qygdIwJf/kUmdummICr+u3tk9c9wWqnwDefZgp1
Tpf1/cVeoPAbepTRbQonI4Yfdv7hDS21iKmKMgN/jlWkm9oXIts32TotYa9N
ChN9zYKfCuryxpopcKoyoVZDWg/iKacaGo8KNq162/j4r4BnSwvoX6RCzbqc
vvvmbCgwIzPGsE89cLEjL2dDz2etYRbbm7IjZhP2+hfP7qzWUUHks5H8G/aK
Dsm3KdhDWanb+RZsGI/YleCgpwL9dOkM3YoNguoLlbEGKkRkc+sirdnQciE3
Ix27+72eVIKtyk09WIItdA86LMPel3jQ/U9s995wD28bNgRxfNsslqhQ6zIl
0WGbjv0jv4EtvtA1VktnQ/AQIb6L7Zet3/oIO62v4/woNj+kX0K1Y8Ob1ppw
MyMVZKELuXzswaykZ5HYTRdlflvs2UAVRN9Oxvb5ZqcwDRuO7KnPx64YPUBt
wb4ZGpTYii0Sr1LaObBBvYXFk2G7KeXh27GZ/h6sYezVZN3tTOwoH0e6GltH
kX55A7vKxVJrxGbMGa++xP4PgINJEA==
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{-0.9796428837618654, 2.9796428837618656`}, {0., 
   19.680787061009102`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.4455986584549294`*^9, 3.445598697613727*^9}, 
   3.445598755390472*^9, 3.4455991346823606`*^9, 3.445599260443578*^9, 
   3.4455994781289253`*^9, {3.4455995120986156`*^9, 3.445599554241996*^9}, {
   3.4455995948325043`*^9, 3.445599607345347*^9}, 3.445599726896373*^9, {
   3.4456005873867407`*^9, 3.4456006140706253`*^9}, 3.445600828463975*^9, {
   3.445600917416771*^9, 3.445600938673922*^9}, 3.4456010253058147`*^9, 
   3.445601146478743*^9, {3.445601217443865*^9, 3.445601245427712*^9}, {
   3.4456012808242483`*^9, 3.4456013033746853`*^9}, 3.4456018763780937`*^9, 
   3.44560249656007*^9, 3.445608776058399*^9, 3.445609485898383*^9, 
   3.445609591568995*^9, 3.4456096254486303`*^9, 3.445609721879899*^9, 
   3.4456098865454597`*^9, 3.445610150363138*^9, 3.445610216422515*^9, 
   3.445610942301188*^9, 3.4456112711273203`*^9, 3.445611394004369*^9, 
   3.4456115653412046`*^9, 3.445611624502996*^9, 3.445611954773322*^9, 
   3.4456120725338306`*^9, {3.445775696476283*^9, 3.44577570954635*^9}, 
   3.445856378438388*^9, 3.4459448535950603`*^9, 3.445944883691107*^9, 
   3.445947819310862*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwt13c8V98bAHChkkoysssKaRDpS/KgkEplRJSQZGVnz/tZSMtKSCgSkqSS
lJFklAoJKVJRikpFCdXv3uf+/vq83q/nOfvcc85HztnX8hA3FxeX12wuLurX
PnpV579/X2u5uAbO8T4loP/7FsEfE5QNmh4qx4CT20Gz9yOUuYzf1UXCIfPM
htZuykTzBtlQ8JHnu5lxFeOCUlK+MJam8O34RfS4uPhhODJffzVxFs3lpu4G
oeNBF13j0AVlzo4w5Z70xi4KveqAhi1E9pXI7DiCbudoWcBfi2Y7Aw/0gmtd
RsBofHda0xFdV5S+Bnh1/7UrWaMN1uYqQuxVSQHJ7ej4I6cNgU9x/baFhuiK
uLwdkJBuEcv1H7pkoGg3LFjoXf9jFfrSQ6u9cIoR//e9PD3eDW2OkOpZG/xY
AH3intwhWPK6t7yOF8f/+805N0i3+vnl+tQXyp9KeD3h3MbVbpnvKXMN5qT4
QIHA2T1uNRiPWel0BFRYFSl7b6BtzuwIhOJf7U93FKO9i9cGwdUBPtN1aZQN
Frv1B4OGtSJb+TjGPzheCoEbLfp1kkyMp2S7hUJlebD2LB+MO8U9CYMNysmB
4wex/cCooHCoPnul7IMd5htbiERAPXtQ5YkxxuOWb4gEo9//XO7pYvyKz71I
aPSWOn9jLfqvkmEUPLKxlDgrg/WvDFCNhp2PvK1PCmP5s9tSo6FN/2gSYx7m
28n8igbLG/mPA/99pqy5wCoGOlXq5rlPUObK0y6MAZtzL433jaAr7v+MgReL
fzF2vqGcK+i2jAD7WKEaw26My2w0IPfj1OqpdY8pO02N7SfAyXfrepX7lImQ
06EEvH3nEiB1G62uk0iAiy1RKnAV88+M5BPwofXsp1kXsb6xOxUEeBreUprI
xPZ23n5AwOjNDufhRMoDOd/bCfBR/ZL9Mhb7nx38koCx7Hkvn0Ri/kurtwRI
dX8u/eiP+c+63hNgsqiDyeuGFnUcJsB/S4XNMnvKsrF/yXhWTKbqBgvs38NG
snzTrei/u02wPosWsv7vX507fHUp1+0Q6yBAWmVLQYI65t+5R/Zvi9PK8IvL
MX/PC7L/AemLdtZJ4vjKfC6S9bf9kHu5CNsXSk4i6+frmZjgxfFmWkWQ9Rvc
bRGcGqXiK+47EyATlntu5VfKst5jWwgwvcb2NxmkbPDykyoB2XI7JCKfUCZ4
+J7HQIvd2s9p99GGjJMxMJ4keu9aJdppgVEMbOPud/9wgTKX46O8aAjaUL+R
Ox3jj//bGQ25AQWCMifQusoTUfDzrU+lZQjluoFp7SiQk7I67u2F8WNLuiLB
zOo/p/gDGBdf5hcJF+7/m1uzHZ3hdDYCduQn7lkhi65zbA+D0FeBK41Esf8V
BbZhcEHE7p8DP8aTc/pCYZItdyl1fISK63K/CYH8Q+U//zVTruP+9TQIZpQ6
T3f5U+a6OeTkD8qOlR7fXDF/YPtjP7A8k6W3wB7jjcXaflA499CQoQllgktT
wgeshifWXZFE62raeEBxkVgn6/4nKn995SZH4G3xjNpzG215b8oeHIarlVZe
Re/OLN8LwsouYR2Z6F4PeRvwMbklX5CI3n+z1wqaD/G3hsWim8NTLCAyv2yp
XADaRFVgG3Td52ked0NvDGAbw9p3Nv7N+9FOn2YM4Dh3sWSWFVrk7ldteC/3
577vVrT2/i41MDA0996sjxb8VS4FmU55S8S00LIGtlwwHvOz9pMqum31r+Ww
K2erR40suu7QoCYU12QJJS9Br/vSsBF4+7/eObQAbWTzZBNUSqcJLJz8SNlr
8Mx2kM98e33fU/RYXZANjKdG/J2MQp++nX4Qdt54cqn1CPqvdZYLFD6Ts8j1
oEzIzJw7BPuFmvO2WGP8gvZZN2g8JbI1bRXGe0wiD0N6wpUUzZfD1PqulHL3
h+9FXHpz29FEb7c/mLVYve9tpGzQZWUSALP4prSZ5RgXcl12BDw5Jv1tRykT
msX3AkGPeK3io02Z66tYQwhkLvccDlyDnmUoHQo/H45filDEfLfZR0KhTJRf
+aggethWOgwUL69bnj/8gcpPmdkfDgzz2sHifsoGEe3F4dA/sTX/WidlYr/W
z3A4Y+CoUFuH+S4X4yOAv+uoXG865ToGf1YkuEWIvBk4ifnJG/oioUE2J/cD
G/NtvktHQdThG8sm/DD++OeZKBjjei0juBXduiUyGnYUePQt0Ud7F12LhuLt
41kyWtgfpcShaDiYNk96pRy6YtQ0BrpWrpM0+f2eymcP/YkBzfaaF2Zf0Stv
CxOQGLw1w2qIsmxvvTIBW+85iB9op+w0nbuDgALXj91uTRifDHIkgHtB4Bmf
asp1Zqf8CLhrc3RJZBHlgYOJ5PktMSPcxcyhnPs+NIeA4PPZp4+epmxgdOkK
AR0mK6wTj2H+qNQdAtRGr4ucYWB9e7ubCDieBJ3nQtB8vc8IGF7fkpLvjf2J
UHxNwAVGv1C5HZbvTf5BwD8lj47KXTier7dmyPun9UdSrTG2L6I8mwGV/tEW
jbqYPzywgAGiYvMWP16LXvJemAEBd1Panilje6b/STLgyYGlib0y6LXPlzFg
5dyiXW+Esf6EOkUGxJdoLhqeR5lrwZQKA4Ysap58+TdEOZy5igGbfpmenJhA
Z+5VY0B21rMdMyOU6zaw1jJg2tBhIc9bjKv80WCA7Yfh1nk9lAmdFk0G3Dh+
5LjgE/TWYdKLNf5uF2vA8uv3kfbpjp+/tAo9KE+WDzR45Wx2FetjL1JnQFiR
WlV4Pvr1utUMiBZiLS7KoGywInUFA9gRXe7dJzGetWY5A44OrqibzUYHzpZl
wMkdUWLrwtC/Jcj5SK1o83H2wfYCvMn5ylim2Jh4EOtTn0XOZ3Z8iEytLfY3
rouHAfnfHgZ+3oHln36ZIqBo79JWqc1Y3m37NwJK7/srbNNGX/9M3q83Vj0I
D12N9Ul2k/fp7dPiHQXyGJ8zr42ABrdagmch1mdgRt6fD9uEetZyYzzMqZCA
pzquak6/BqnyEvczCOidv7D/7hv0ibBwAl4HOmmNdFEmAts8CBjsu35cohXd
F2FLwNere3WDKzA/pkuTgHHx0uT8y5Tr3sXLEjDFmPWpIxfz5dMWEMC7uzBd
7dggns+nHsSA5OTExLAjWtZzUQzIHti6Q8wandLTHw3LH2blG29DG4hdiQb1
rM1WF9ZhffOETaLB2CCpbN88jE+4eEaBX/yqw0/K31EuZ8dEQNC3mPqZS5SJ
2gy9CAjf+0xi5TmMh92aCgfOqvDmuDiMJ0oFhENmW9NyQ3s0jFqHwQPxgwPX
Z6MZQ+PB5Ht9+cKz02+p8qkpxcGw5vYHHeY3yoTWOcdgSLfzSjHvw7js06Yg
OJwZZPL5BsbrZiUFwmLp+BIlF4x7Gs4LgP3LroRm1L+h7Ph5uwck+/peJCrR
uysz3KGxdm2HWyn64K/3bqDuVLFyfSY6YzjGFXjO1/Z3+KMfa5UchCL5DqMF
cmjuO+/3QX9Aqv+PJehJ0eC9IHTfJrt3ATqLf7YdRB58+atwcgDvtxE5G9iV
P1hs3IYurLA1B/Z4QfeqRnSZYOsOqDTy4BW5i+ZKfL8N5Ic+7397CV0XKGUM
e7TKElrOofl41m+C45yAW2UptKPPA0ws/yUYE4NulhXQhA4d5vMTgWjiUMoK
KNuxMDPLAz1QLSEJJw6kO1x2oNszlW/X8wxSUKiyovN1voqB6dHSD82m6NxH
gSqw/JxOSbceWnxBiAYMNOzSmlBGm9Z/BKju6f3NI0OPt/LUJsgcPVQjJIT2
+6/IGIpVJk86Tb6mXPmwezucbjK/3pWLvuEguBvMv7puHE9Aey07Yw38YlEP
Fgehzbql9wDhWtRtthW9hGv5XvCczT1T/60fzzumsBMYbL5udHUTesf28UMw
7dnyuHUV2u1diStUJL+2+bQEXZrn4gYr3873WD7SR7nqaLs7LGG4nDibgjZy
zz0MozWiXXGDr6j95awf5wdnNoS6OcW+pOI6mXFBYOPzR3rQD20/2BYESy4w
O9z2oY/FSwRD2rwTer7qL/F7elEYDKk954Wje3spT/nXhkBS8KPas2vQjZaP
wsC82DxomQQ6JG1eOAj2P1fN40FzL9sSDonGA6eLe15Q9UtO1YbDSZGJw7eZ
aPeqwgg4Vr5UvLurh/JgrHUUbHuf93jvPcrE/Oy4KOCXXMHqv4x+/qkyChIY
ml+GCLSpvEQ0xJubNoyrov+OP40GU/bjsFBR9JaL09Ewt9JSbeZfN1V/E0cp
BmKX7c/keU6ZkH0eFgOcL/5+QjHoDbvmE2Ak/2t5mgdlg/sDMuT5ZBP5UmI3
xg/xqRPAro41kVuBVpOwIoB5/Ky0+rMuqv63uqkEbKqT7bheTblOMyyPgFnj
F+P+K0Tv2l5OALGv7DtEUTYIuPKEgBjVB807lNFVrtzk+b9KZcVmYcpEUfRC
Btxdc+yo9r/neF5oizNgUsNim0L3c1zvFPJ+XKJ1o1j8PsYLNdczQOs/sfkC
VykbyAXrk/exbt+jyVjM3/XGnAGJegarvgRg/lx+OwZc1c87/s6Bct3rTicG
jG722PFkPcYXWPgygN+k9cp9eSwfxB3MgBWmagK3BTBf0SaSAa5mE0/y3ndS
+WcG48j7cKetWkYHZa7IZScYkGd+59TJGsp132aSGFBvuXSMVYzxuVFpDBjY
zTAPS8N4T04mA/7aDJb5MNFRh7IZIG23ZbGLD9Yv8uQ8AzbsK/a324vlb7/I
Z4Dd/oUdO00wPz7+EgNCHf00jDQwfqG3iAFpB54l6yztxPu67TL5Hji4/sca
foxv9rjCgI5DGVaKP59R8SUFpQwYc5u5LvGWcl1j7FUGLPJ0FFn0BOPR88sY
sMarPpC3Cu22jrSZz/Lnvy8+w+9zFmlPv3itr0nP8H44QpY/GjByejAK8wUT
yPoLA3f+fOGBPmZMtt8YfM3mqTVasYDs32CoyK0GQywvWEL2nzsiRKxqNfaH
s4ccn2xUb8hVCYxXFZLj14/R68mfjf6YQ86PAyNXO/NbB5W/VY+cv0gWT8ap
PsoGUgxyfjM5rr/ZLZS50g+T818Z12IXfhPj3H/I9ek6uqrK93wHrqcWuX4T
x05JHjqB8bOi8QzQSLR+uesQ+l8ruf7myZW6xhbY3od8cn/4pkplbdBDWy/3
Y0BJ+hv75aJY35CsMwMeZhpVS85CZ2ftZcDHrEsygp/bqfx59ZYMUDrv3T/V
QNlAc/4mBhjltcFYGWWu02o6DDh4UTNnKAvzR/6S78Hcot+ObYGY35wjzQCJ
cs6bi4oY7/1Bvo/idcP9Pwlg/F7UEAGTDT6z1H63Ue2PF/QQ0NO9R67yMWWu
VS+qCUj7s+LAw2DKBkcesgiYE7f0m8ABynV77QMJCBIUZlhtxzg7yYWA3Qoz
ua+WYbzyw2YClidn3etLekrVp3dxJgZ4L3LeuLqiZaR6YmDwls+ssQ1orYHy
GLjQZ2DIPfiEcqq9awwsXTFUp7SeMpELD6JBvG51nW9vK2XNmwej4FfHkoHJ
UspcoyXroqBr6N8/Bgu9Y+7sKDg9v0M/dRXa8GNeJAjtCa6tjH5ElX8S2xsB
C77U1MxSeEjZyWZVOPyTMq9OOdxE+aCEVzBkPRrX4NrchPejtXowaEdkFHpJ
Ynyv2ngQBPS+TTFuaaQ8Wh8eBEPpQZ6/lNAJCaxAeCR6Vmzf2waq/LtydgCc
WfTeX96unrJJfJYXrKtN+HBSHe3osdgL2nzU9k/PRY92cw4D/5NQ086Ke5Tv
unl7QtTx+ctiRdCpmf+R7x8h5/RnObWUpZOqDoLjnEkz5xNVlIvLJKyh5PSf
j8/00PKXf1rBlCJPnPGX23i/uz2zhNTNAvdUdqEldY+bQzOhqPVVsJKydvav
LSAqqNrhdO8W5cD6UmNwzlHz7fBHJ946tBn+VG8outlRQdn8SIEebNthYKLM
QotfF9aB9FfG79I10YWviXWgMW0uE5l6kzJXaoUSxCTYVH02QjtVyEtBq4T9
HseJG5QJ4/JZIFl0YLztItogpZ8b3LTdkjbZoOsMK6TgRpPXmhtz0GM1f5SA
e0/Ao+W3rlOOL1mkDllBUbPniaPdQ9V04CMv60J4czllW8saPVifGq8/GopO
V1cyhLbylLCnL65RvvGp3BhmjxV9Pn22DNdjYeNOsIy5mjDXDP2kkG0O+jKe
u75PXqVc+eOiBQTuJe5XVpVSTjjywQr6OksuG0MJZd6cQ7ZQ1jI70tH4EuXg
wxed4Iqrr47SpUzK6zN2eJD/D7ILXu/IoCxnMeABGx+1CmeMn6HcGxvgCa1q
ql/mbzpNWcj59GHo+dZi/O72KcppyZ3eULrKc+34tkBq/+13lvIHG/Mq2RJG
oj61HgZ6QSCQfez6994kyi7akUHQOGJvorMuhfK9R1VBsD7u3+HG96cpP6xd
HwxiNUa3Brafpfzu3ooQGD39oYB/fh7lrfunQ6GEJ0BP//kVyiffmERC8n+j
atbBpZSZmwIjIfSwq/xhsauUZ607HwkXPK6wHq0qw/zG35Hg3X7e/ZfPNcpb
Mi9GAe/5BI1dP65TvhH3IRp+VTWt7N18g7J1+cIY+NTJu/xQKtr9kGYMtPHF
iEVo3aQ892BUDGT5HZkpCKkgTaj0zCZA08C+8e90JeV9WfEEKO3NqD1qdpvy
gVdnCBAP7KoUOUeZK7qvgIC/l8wvq0IV5V3yDeT/wUXGiTbEHSp/5to0AdUr
mEfftKHNfvIxoGxzLdNL7i6VHzUlSt6vITpBzHrKxC9D8jx2fr16bylvDeXm
FgcGWP/2tNKxRp+a58kAU+FCs4aLlLn0+IIYsHqLvH6vSS3lD4YJ5H21Z74Q
y6iOcnXeNQYEDxadbPZCz++pIu8Xf9P5AqcpE6yH98n2jnF4M4YwXvqxk6y/
9t/P0th7VHzOonEG5OhFiNiUoze1TDPg552fa//0UeZK0eJhQn7lZ6/tWvVU
XEFxMROm13skfHdC7ygQY4LlzcFLGcfRNr0yTOAqf/n2wzvKXC/2rGDCHvU9
XKcW3adscn4NE0pLO2TW66L9sjSZMHv1Tt0+V7TlVm0m2F9usWUno0cvbWTC
9RXGwStrKBMbKw2YwF9Yl9LxEeMG4UZMcFbaeC1MtIHyr89bmHA7/9YTWUP0
QeHtTBBU0Bxt8kIf/bSDCe7nS+f5pqN9jpgzoXaZqvKSBsqEcKklE5ZkXzSq
/opxVuZuJnhLyzm7SD2g4g3aNkxoyMyKmb8F/SZ+DxOkJMTPlQc8wO8hwZYJ
AWdSquyy0c/Bjgktoot6uB5i/oN80rKpCROXJjD+4C7pEKE5wrvkGin3x5J+
kshQ/2nWiPPNQ3r5oj87zoWiC9aS9UeeCD1slI/5oUJk+8/mj8ePPMX4rYvW
TFBN8C1Inka7j1gxgcE3cl9HuYnKL3tnwYSeWNc3A5bonJO7mKA2++3fuGjK
hNWoGRNiWful1YrRb2a2MqFv1gudrudo9zoTJqwjdu+JmtVMlZ/332YmvI3c
nvzIFj2hp8sEnenGqwFsykTsk/VMSAzb9FiiDOMlQhpMgGAdPve5LZS1K5SZ
cHr8xvJFmpSJYVF5JowGqG+ucMB49QppJmT6KkfzVmDc22cRE759vnD28ht0
Zg4fE0y9lt62XPiQyk/izGLCT3fR8VwXykSU33cG7PiQuNg0EeNPgj4xIP/Q
ArWvd9A56m8ZYOnM46kn/Iiyd1MbA4oGouMGAd2e18QALsep/GOelImw9TUM
KN337fWLe2jnmGIGzLd+bR3s10rlp16MYYDtnUhJi7OUCRm/QAYUyEm+XtmI
cZMJdwYYfNnt/kbqMeXd6hYMCIx7GG7WRJn467uUAfc+u+krf8f4L9HFDBDY
PZuXW+YJFQ8O5SH7J2tw4lYAmi/wAwH9t2/myC99SuX3mJUQsFLWyuWPKXp7
fxYBobFjKj1H0K5rThAgbLWy/ETLU9wv870JUAw2d47c0EbFX9avIMBuUWPg
hyH0p8drYoCoF+nePY3etZAvBgqCDurUC7ZT7ns2EA3jL7n+ZumiJX8nRsPJ
Qt04yyS03K2RKKg3vJZRvbGDcnHOsUhYFZhVk5LyjHLI/vAwGLddGHzqEloo
eGsY3NWLXn3sDjpxg3gYbJ/rlMV8h/7VciMUPDMVwv01OynfFf0UAkV1xVq7
nqHV/hoHg9LC2yX8wl14nyk2B8CXbytc5iijt0idDICKrkwpbl30wedWAWCc
G5nw2xltkdbvDy6aBu7D5ejXTt/8IM+uSaHRspvy90QJH5AteJ7JSO6h/Par
gSuk8dyUX1OIdh+4eQgWHkgt7q1G20erHoIpKasqzY/ozodCLvA8qe3FkP4L
ytJvXh+AhKhH4ts+ow2qXu4FrpfFuT+5ezF/U7UdhGgnqOSJoyc9sm3B5Yep
9sxm9Hi+ow3oezTuKc1Elxn1W8D47ntpQqYvKTc/zjEEz/LcpbX70X4ONwHe
LCIKDh9BD1xW3QBPHkJFQzY6caXIWjBWWQr+N+j4P8EVcJfz54HMQ7TBie/L
QOPdqx0PX6MJbc58KDK4+zx4As21s+Kbnmz22f0K819RrrtzbgmkTYcPPZVF
c7W6KgK7QmdCxQxd1r1NExxW3RJ5eQE9PFm1CTqPpmXFVdLlH/wzgu0fghTX
PUE3GxttAe0L69ad+E1br3U7CIuXW+mb9+F8Jh22hGaeK8l5f9Aid9z3wUBy
qW//4n7MrzpiD5NyZWYSSmh3x+j9oGJwfc6pnWjxhGRHiIu8HR6eg07gfXkA
TCYeOFsYvqac7/bjEDgf8c2I2TRA2TRq1Bu+bBibe84M/UXZwwfCuf2Dq2zQ
f/2HfCA5KcBqwhMt3v/KF+5dDVp4OAW9JvidH8iORjBsBtF+2+4HwGuXeI/V
sW/we+GxDoZ6dwMDhST04dDEYCjwmlwikYW+mvEoGLwC3Rt4y9E2/QYhMMUy
XfaqD21qpxwKInl8zxO03lJWcH4XBpMFdZcJA3SjnkQ4vCwOZQZvR8PtneFw
oXxYzfkA+uTxynBQq29O0DmBPpgYFwHb3sQbDA+iDbyFomD1kIFY/1e021fD
KBD8OPn52RRafo5/FHSPuZ+tFXxH+fyXx1HgwrX1Z9pGtFQmMxpils0rMU5F
+7d3xYCzwj2mbg56yOJfDJgoh9mtLabLlwoTsEDt4xyZOrTOPF0CMqHlwPgI
+vOPWAJu7D8qlrd5kDrffFyFGXD65byeQzspcx1LViDfS3YJ6Sp2GD/I1GSA
tvUxiVIfjLuWkP+v75idkLqdgRZRPMmArIcLX0XkY/4O9yzy/WV6Mguuoot9
yPMfjE7JNDRgvsS9Bwyo101a9vQrujfkNwPybi8eSJrC/F3Ns5nA/i85d/fs
ISoe94J8T5lopsj1SqJL9Mj3UovqaYUhY3Q+H3mfFxeKDl4yRy/d58iEBKW0
fM996PXeHkwwkz+zfMyPMtHwNJIJbRIZytNnMf4hIZcJ185IDFcXYPxbVyET
kkUzC4lrGC98U8aE3YvPrpjThK7TqGOC1impT83tmD8W2kS+hxZmFR97hfaJ
esKEbr5zKxd/p+ure8mEyliZ0Wcz6Cf/3jAhnTe7JG3ue8oXZj4wYS9Xzmpp
GfSQ2g8m6EYv+9KvTJlrneskE6RnckrPa6A19v5hQv+vXDVlU/SsiDksqA2S
G/toia64xM+C3B/ny0r2o98mCbCA8Jf393VHR+gIseDA1wtrNY6gA7NFWbDJ
W+H7eBT6fp04C+RH8spvxaP350qxgMdD8Uh4CtpQbykLBt/na+plox3OyLLg
gcvy8X+F6LJSeRYUvL14o/46ej1LkQVxTkpBnBr0OxElFrj3F2iZtqCrDiqz
YKu98k/+TvRNXxUWqPZeqnjcj27TXsECfluVkMSPaP5a0iPPC/+zGke7c6uy
IMurSn7/X/QYL+mdPK0L3fg+UN7xmMz/l9E36SeEDthHukz967twabTnVbI9
5yaup2wl9LoWsj/CDkJVJ9XRvYVkfxvGFS6mb0Dv2bmcBcHHtBIvGKFv31Zg
gYr8loiSnei/n+RY8KLS1rXCFq32dhkLEnZ5WtQ5o/fmyLBg4/uIjQ+90BHy
5Px+iTyh3BmMzjlMzn+OcI5QP4HuDCfXh9uwfvhbKpo5Qq7nje5nz6az0SI7
5rPgkM9Qzewi9KvAuSxoPst3WqIabSL2jwnhGpKEQhOaK3mKCStbVh5e3Y5W
eDbBhJM/dxoaDqFHCkeYYHDCadX2r+hLeu/J96RCgJj1b7RQxgD5PVic/uy+
cJjy2vxOJkiWvMxI1EInLqxiQuumz+xMfXT5i3ImRL3465u/FS3tfZkJA3Pk
TSr3o+U/nWVCwQH376856NP64UywnQzr+3gKnWzqz4R5p441/8hA50q4M8Hr
bmn23FK0pQj5/WuITWxT60Lv9F3FhMErc9brDKA/35Ej389G4nKbP6Hj25cw
YdJf95fNX/Q6Wy4m1LQy8qKVPuJ53U2+b7cyBWYeB6Mf33Ej37/We3aVMdDy
IbYM2KuSeyH5OPrEuCkDvJ6s3brnApq1fgUDEiWt0wYeo+f2vSegu/ys+g/F
T5SFh20IGOAMsp6roadfbyZg2HZ1960N6Ppz6gRM/a2JijRHvzw8j4Cl298+
nB2JHrzuFwOH3qkcEn+GnhMqFg0+Ff6VU33oTy6foiD4aNX8vmF08vu7URCv
ZlZ+/i/tYqcoKInw/aeqOkJ5yiQvEn4IV2ToMdDizqIRwDDa/MRZbZTyhs/X
QmCvuozZcR10dkJkCKyT/tVyczO6tc8kBN7/KH7AZ4vWKOwNBrM8oepSAl3f
/zcIxLnfXp5qRwe6bAiEslriaHLgZ5x/DtMPEi7vnXs3Gh2raOwHB8+s4wzF
o+1PzfWDJb7DhPY5dGKqmC9ELjUP7X+Atn2m4A2mUcvcVMW+4Pn8XtUDBjbU
GNXfRnd++OMEt3KdSirvoxVZEU5wcg6PyNXHaPen3xxhY8eWd2ffoNuWv98P
6R7tjKB5Xymbaz20A/P0wRoVO7R4ONMClP/GKi07iM41CDWHvwdXnBT1Rtcl
v9wJJWo++7kZaL/9ZduAr+nX9MtCdNl6603welXmwY5yOj9FzwAqkjc+ar6L
ljXbvhFcHBiZN9vQBnM+aYJugwJ3SS9tN381EFJt9LgwSJf/tVAZPp1yb0//
giZKrWTg3gS/zqlJNFegyDxovWLTtmnWGPot1ze9ygFlXpiDJqLni0K+8O//
dOajDcpG5OGUycPD6wRp91qshPCwszlqominxa/WgmuJ1zNVSTqus2g96Akt
0pVTRNcdCAJQMR7wkV6BFly+2xBEQq9dEFtD5zO9N8NInxW/gDbabyBnC2QU
pb+Y2o52159lDhY9l5eUnkWnalg7gXtRerToeXTZmUEnIMI57yML0GMPjxyA
UmnHiu3X0KapSc7Af0DI5mMj3V7kQxdo+Bh6WvE7enBczQO0p41Fzpp+o6yi
1O8Hu1o1Irl3osUHZf3B9dyyQQ8rtMDhg/5wWv/3dW0H9La2D/7wnVVi1XUE
3dr/OQBKFginLM5BBxp9CYRlSwcWx0+gC6SrQiE7QnRRyhRayHUsFJa+2LYg
+x861U0pDJam3pxzY953yuGJSWEgzX9s+rUMWtvNJRzEf2oN/WeCls6cjoB0
q8NvN21Ht4mvjgSxa7mvd5ijjxs7RMISr/m9B/eibxTURoLI24Enp3zQIiHR
5PvzybHKD2no0scj0ZC48t7N72fRge/FYmDR0Z/lf3LRc/I3x4CA0YErwpfR
7vMzY2BB1foL+rVoPpAjgK/gzbEzH9BclXUExPOIHb0wil776BkBcw+YxV75
hr5YQp6Hc6RvEfen6fpezGcAb/LxoK+LfuB5+8yKAVzR/zlu0UZzS/Qy4HJY
fGKNHrrFZIQBNkEv7mltRr/XmmHAFa8IRcWdaI09MuR7al/tRy4XdHW2PRNm
7xGUCvVAr287zIQyywNmX33Q/PfI+2buNp6rfWHo3tdnmHBDe0tg1Sl0yvyn
THBcl35x7Wk0sfYVE/jVP3YVZqKnRT4y4YDyMZ0zF9FPhblZILDk6d8jd9B2
I+osuL1YVn2kDi03qcsCl4X+B5wb0SN1Jiyo4hVuMG9H3+PsY4HbD5ujqz+g
07sZLBD6eqkqfxQdWJvAgppPkyNS39FfD6SwyPXN3Mn/B63flUe+B/tGYhjc
43j+XrrMAs8XG69NzkXv1rzOgrq2fuEPQujFofdYcLhVzdhBHD2l3syCJc1E
8HMZtEveExZ418q/uK+CtrrRywLxO0f4ddegEy0HyPdRRYNuuSb6VdEQCyRL
XbNzAa3E+kq+D4tuPRUzQo/yjrPA7yLfrFNb0fv1J1kgfd5OY84u9E6NGRY0
ZRUfjNqNvtX3jwUB6dOp43boAEMeNvm9mDUedkRH75/DhpZT5369dUHfXDuP
DYHHvqjs9UTPq5nPhmVx+nvbfdHe3AJseMhMPGYahH74dxEbgqPf3K0NR4tf
X8wGuXCNL+sJ9PplwmxoDWItK+WgVTeLsCHUv9N8+TF011JRNih4L2dmJaL/
Kyf9xD34unAa2uAP6dDzl+38z6IjuZawQb534N+TXPT7ajLeKrSkYFUBOkqL
dPD27WYJl9HqbmR7smzi+4cyNJcV2Z+Hd2+mG1egByfJ/gZOfIK8O+h3toLk
/KyRHeK6R893ADneZlfrYw6N6GmTBWwIyElYe/cRWuA5OV/SPbXdEu3odTJz
2dAoOBEV0oXes4yXDX5bVRWfv0SzXnKxQZLp+FDjDbrO4g8LfH60LPkygnb2
miD3x6p/d7d/Q3cIfmNBvcu6g0U/0fa+o+T+6sq+6jJrgnL33rfkfhTotK6f
gx768Ircr1vmzSxbgFZS6yb3e+UR05dL0IzRh+T/h2+FX7Sl0RXODeT3odqf
miaH3pFSzQLXs6ZvLFahJxWukt9jtEx4syH6Oe8pFlRWWMoqbUHPN48l3/9f
4xpZZujVNlEsqHD6LqS/B30+xZMFDpubLt/0oss/N2QBX+SMhXAAesX0ehaU
31g76ReCVny1kgVzlLKMVjHRj9pFWFDK59934Qy6/eQ78n1rWMDiOofWPN3F
BO7wlyscLqD1bVuYYDNiHCxxha5PtJQJfx9LLkqsR094BzJhZ0qDQdRntHzd
OAOcbDdFRn9Hn3o8yIAAmbpbMb/Qjy90MuDMpTtrmLN+Uja8eJ0BA3fKpeNE
0V8FfBlwZDB3MlEP/T3rJQGxRUvXJW9Cd+o2E5Duk+WbsgXtcvEGAXcnz7w/
bfGTPr+Pk+f5wlOdmYfQJQ83kPlaUWX5J9ChcyRjoHhqauRiMrrs8Wg03K0N
Vb50Bm22tjYa3mwNzC46j3711DkaVB0OHy+9iSZCL0bB3Vg798o+9Mwn8Uh4
060l27r6F86Pxt1QWKb79JSOJrruQXQo7M92/1egjWb/NgiFFy5n+xmb0VlG
DSHQ/o3r3H92aHeiMRjuzW+VyGOjncyqAuG8vrNw+Et0pO8hP3h9YZr5YQC9
sULGD2TmnP6++z167MhlX8hobWpX+0b711EfSLJbnTg0ZxLv74WGXsA4MrnA
QgM9rJ7hBgcunZyjchQt+PvfPuA74zdf5yQ6ccervVAaaym4LQUtu7rSDqYO
LZH0OkfnZ/nsgVTF7NVl19BEdpclbBAhNO5VoM2vXbWAAR7n/zruoNu84s1h
9bvlhuMP0Lmd/mbQeP7Kbu1e2j2rNoNX0im7ra/p9ix7DUCI4e+wdxBdVyqg
B45OWu6RX+j2TOs0YY65mPeJH7RH1dZAif5v/+xJNNdYnyJYqr0MvvqHtp+o
GEwurY6o4/6NXnf9m162QA7RPpf2hYgFYPSX4LxdQFs0SBY+fXZO+LEYTfC0
roCkPqNTvGLoupaktaCa1XrBdCVtX7lN0Has9JKdOl3+cogRBEcklnhq0fGB
xyZwf+/uiuP6aAOZ8O1gL/Gqpc2Krp9wt4RTaSNjtpHost7KfTCeyK/v8RjN
Jy3kBhnVbZVOHWjTN7luAJ/SNGy70fEeau4Qv1lBacsb9OSd7R4g/VN34fIJ
tKAW4zAY7/N+OSA9hffL6z5fSFveFmLrhR6+qhIIupZp33b5o+MJz0AYiLY/
vCUY3SpaEgiqPcMO6wl0ScKaIKhNmGUikooeZ6sHw/BXDZG2O+i6SeVQ0Kk6
XbZl/jTu74H+CODnhDhcFkTnu0tHQu8uuwWLlqA7E+wiIXJI2r1LFi2b0REJ
dYL5yw6tR7+qq40CE7fyk8wDaF57TgyIaaRufO+Ktp9/NwaGZ4I+bfVCNxt9
j4GjyTomi0PQkkVrCGitrvuTcxzt2p9GgKXIU6/qW+hxxj4GKLwuk5SrRs/5
EcCA8aLkZnY9ulcugUG+v20UzR6j19+6xYAez76XvW/RbTcWMaFIq/YoDNP1
8y1nQjjX+f8ufEaHLtnABKk0lxSPSbq/TgeZ4HBvZNvkwhnKGrnlTFA7/nhy
nzDa5+4DJnDtuVpQK46eOdXDhPOjAdxxCugb+/4wYVBs6raoDloyYjN5X/nw
rdB0QZccI99TeQ80vDZ4oM3/ku+nV9L7rxr6oL+vIu+3nY+uaZmHomWryftS
Q2XfJu/j6IALy9lwOIbDCUxCi39RZ0N+19XmiDR0/Q9dNizh8O5KyEW7r7Jg
w/SbK/su3UAnm4WyYZ1OT3bpbTTTmcEGn0Tutzdr0A3qCWwYgD3uDc3o8IlM
NkikMS4/eoxOH7nABsvPl790dKC1M4rZ0HCWK+jNKzpf8jYb/nxXrRx+g678
XMuG9dusp7++R7eGNLKhcLKI8XcM3Xa1gw1vdnU2zP6J9tzfQ74fLv2du3Ca
nv97fWw4bm11Umr2H8oXij+w4UFJVLs8P5pbfZQNf3kKRVQXob97jrHhv30d
e9aKoG33jZPvk/KZTG0JOn/WJBuK5in36y9Fd+2bZsNbJwu5LQro8sN/yfdO
ZYTLThV0pPosDlgvKrhkvRrNW8zDgZOubZ/sNdAaPbM50Fw9tdrlP/Snqrkc
mCW63P/wRrS45TwObPDadSPAEJ18jp8DR+6H/QozQW87N58DJZL5Gxjb0ZIW
Czgw5P8kKt4cPVlJemnLZN0pa3RVJ+k9sgq8Z/ai7fNJJ4bs2JLtiC5RJt3y
JCThogu6woGsn1vpwuMSD7TDVrJ93ahWwRs+6NgPfBwI7PxpdecIWlGH7P+V
lXJn6kPR8kCO7z1ze29LFJr9k5sDy3qDZNqZaFlnLg7Yrs116olDjxN/2JAU
/zDv9XF6PSynyPfo6/H375Po8fX8ZAPPf8tUv6ShzQR/sGHjya3eE2fRmdNf
2HB1Y/YPngK06sgQG0Q0Bj1DLqMLiAHyvays+vZTGTr7Ti8bNglVtLXfQbfK
PWHDpbkzW4zvoWfMmtiw4I9hbWUjOlGmjg1dHx5fyWmn98PVMjbo9gkvF+5G
v/ItZENuh11W7Cu0SlcOGzyqhxK8P6A3ppxgw0zyHzfdP2jnNhc2HIjf/LqU
+y+uV7Ud+T6OOmojz4febbGTDafcRY3nCaMHPNaT73tYLd+tgi5w4WZDnOaR
jG1r0OYs8v/PqMptwRpNdLDpexbcFDb+lw/odU3k/y/Tj/avAnajvTKOsuBK
/wWr93botLFQ8r3bOfzQzhHt+tWNBS9rAm8beKKFhozI93jq8TQBAr305hQT
UvXvmhdfRo8vsWHC73XczTLX6P7OMiDPQ1VT/aQKenxnVjBBWbRzdeg99HDj
NAOqPo3wm3SjY//LYsCb01IP3nD/o3yy8DEBpWLF7ZNz0cMbyPdhZIZ2/6KF
6Iq4TAKWnLP+pSeGHrNwJWBb/qkVmSvRts4TMVBeznPScjear2V1NLCfjtjc
v0jHd+iHg4VF+MHeYnT+oZkwWPqMz+/bVXQ8/+0wqOxafnRZFXrwj3oYjPY5
3ol4gh7NkwoF69Fny9b9QtfVvQqCFF6HQEtFLgNqfreL+sPkQTGtdiW0oFeT
Hzjcb5vYtQJtrxfmB6rMzSE71qDrRm75Qv0/lXBTbbR4ta43fJ/6EQNmdHzJ
Cnew3XvFoHon2j2U7QY1t11nbbRADzi+doWE0BdMHRt0ekvKIZD7WcNZ54Qe
NvvlDObfjh5TDUTLRtjsgwrzzWZFwXT9xlx7QbpsZoFKGHrscJEtDPv4nlwe
Tbv/tzUQo7uTZOPRTuMp5vB+u4BlTgJd396AnWB2uUlo6Qm0Qfed7SDuuSFV
KpnOlzEzgasflp1ZkvX/8TSuB5EtL/aczqbz+XeuhfCCZHGR82iuuCJlGJht
9iI5j7a9hwSYHJqdubiAtt/LEb2Shpq9iYW0vYKFQEgxVGrRZdpvtBSh/+2n
rAVlaOKzmBYYbcrff6yc9qEzG6D4/P6l/Dfp/OvzDSDYqS1nbhXt3ceNQaD/
5gXuBrr/HlvMIWFBVNStRtqnHljAHF0jW68Wur5Lm63gz5mOhV1P6PKn9G1g
1OJraNELenxeWvbw8IHKLvOv6ETXeS4Qd+Xs9DnJWTi//ld9gfuVc5elDDpd
WdMPovlVr82VRRPWJ/0g2K3S1X85WmV4sz+4yj1vN1JHi1+7HABGpwUKR4zp
/KVeQcAVxdit44/2a7sQDmXfRn/XHkEbLPscDk6utjkmwWhBrv8ioG6X2ier
CLS5f0sEEPJ9MT4cdPOH4Uj416R9OS8D7f5UMAZKN+abq2ahE2OtYsDh2qKf
Zdl0/bdOx0BN5nuDmjz0AoMFBER7p3b1XEFn1R8j4K/Q2CyBevTAgigGlMbt
u5TagK7rz2CAw0yjmVQTevRABQNqhs6dUWlFp4Z9YUBU5fbVm7vo+erdy4RV
q291tPSgBxWCmPDqvHyo+Uu0rMQpJmw89rt+/wCdz1vPhJn9l2xDP6HXPVZg
QUmH0N+/o3T/D+qywH5LdB7nK3oyx5IFd9WtvySP0+OZT7AgkoeHfeUvevh0
FwtWhfqsWDeLG+PmI+T7bPTFkyoeNFfJPxZs7CqTaOZDN5sok++rQoerb4XQ
Zb/82VA32u2TI4q+q8RhQ6y6xRp7cXTimzNsEKrcfOW5DHrV5B029Ezf9UqW
RUdaPmZDtv76VbsU0JNa/WxQbVK53KxClz9Nvk/G+C94claiXQQFOFCxU0p1
0xr0jcUyHDDsWlh0RxOtflGHvJ+HvheUArrwrxf5nljh5XrYED1zNpQDg15D
y1WM6PaqWBzwHe/OP78VzY5I58A6bQsXBzM0n/QFDkxFPFSQ2kXn617mQCxP
9YXU3ejOX3c4YLZlvbPFHnp+ku9zQOjYVTmBvWiVyw850PNE5c1De/Rug3YO
nBO6kBvniO6x6OaAs42Uk5EzPb7Xrzigkpm6bNYhOn/4DQe+9C18Xe1G1+f1
ngM35OKywz3RuZ6fOBB+iMvhP2/0unefOWBQFCYz7ov2ej7GgTmfv78qC6DX
0/AHBx6pe2V5B9Hx5RPkeypwaJ9qKN0+8ycHbCodpD6EowP3/OKA9Ex3b14U
emM+6bf6FplOBD1f7qQLWQ/tZFj0fOSR5X2aNkv0cmhbk/Wvm1/dkxaPNo8m
2/+9c3261TF0g/Q3DtQkX90jeJLeH2u/cIDdpSL2OBEtcocc3zbJC11HU+jx
VZHjF3SQSjNJQxutecuBrvOp1jwZaGmxPg5kDS0UrTuLdg+k5ndFXGdkNnrM
mJx/ZW+uVJ3z6NRj5PqMloVZ/cxDixuT61c+/l3oegE93gByfck/hEmrSuj1
VSrmAG+dg8XHUvTAlVwOPOTpESy4hhYsTCPn79jDU8tuoUfHCXL+nm7e9eo2
2mlLEDl/QtUCGXfR8Qs8OOCdefWEUD09ni87yfZnMuPqG9DjZoYcmHSIZQQ0
oXkVNDnAVNgf1NGKrtQS5UBaCf/+5G607AT5/+KlwE+bTb10+4vusUHW/435
91f0fFwoZcNlrUojy7d0fE08+f3WHFol9JneHx/XsWG2nIVS/Vd0ZMNSNmxj
bZQN+E6PV5yPDZ1bhEU6ftHrv+oFCz621U0ncfPg+swJIt9j76QeLRZHj9el
MGGP8dwH9yTRLlvI8y3r0vcafxm0+3by/aXs1VLeLo9mP15CnncTwZlJq9GJ
TUkMODS3w2PxZjQfrx8BxR7VB+8ZoyPPbSVg7FHhfn9T9ORdeQLCE2Ms2neg
beUuxcBJidU6SbZoUz3HaKhcGc+32AfdM5MXAWs7xR4n+6HHHu6MgOLIS0ki
R9ChvZPhcO5xo6R4KNrv/rZwYPrOXr2MiSaGh0Jhx3Wmxeo0On9kKgjebojK
3FqDFuS284V97xY4PqpDq+dzfKDzWJbCjvtoJ4Nr3tD06k6JeTM6N2S2F5RE
T9Xs6UDXuVxwh5D6kHeH3qPNfcoPwJjn3MIPw7SH2pzAU/iMl8cI2sC0zxHs
XSomvMbo+qTM7WHTnIm5gVN03ErJGu6UslsnZmh/tLWCdXtEkkL+oWXdEixA
uVBTMoKXF/cDu3M75Jrf75+ZQ9tnrSlI/rbMi55HmzhuBAu2BaxiCqCJn+Eb
4Oy9RfM3LKb9Nl4DVHWufPwmTOeXKy2HqrJtzUVLaA928sJWleGCAxK0Xdii
0JPD4UhI0xaoVQV3MQWX9qW0/Zy0IHaOg5yhItrA/sYmEI2e/jepRLfXessE
8ifS+8tW0PHfd7ZB/eCzs7Jq6Lo5By3gX/3WJVwb0AN3fezg5IYP47c2onNz
/ffB0nL2M199uj3HwP2w8Xxt4msjtGDyXScIjdGaX7uLzp+qcYHvunJc0YfQ
fhnlXsC4XtOv5Y5Wv1fqDYIr7as/e6LbTIp9YI3kmfD9fmjti7v84PDkgomN
EXR/hQ0CYPDG5MfpRLSsP38wdK9uexZ2l+7/UoUoyBxZHMVTix6rjo0ChyIr
pRP36PKnPkbBoGJ3aG4jurmiJBq+S/XLNLXR5a1ECFjAP+omMoS+URXGgKdN
qxdnf0Cny+czIJnjW6X8CR3K/YQBErN+LND9So9PXpYJSpO/rx34TY+vqJoJ
hu/nzpQunE1ZReAVC3jzt17UFkT38PxhQfOBYzvrhdChFjJs2NkncP65GDpw
dB8b7DtFTWbk0OIjbWxYlrznK0cR7eQxyoa3uzLSFymjx9TI/+sej6RH5Feh
Z05u4EBwvULi1vXodEfy/tYhDuk800aPj17hwIzepbf2uuiG6/UcYN1W1fIz
QHt9+MgBkxCv/t+b0IT5DAf4tUrjWMb0eEYXxkJi2dretG20b6yJhd0+R1iy
O9DSfXqxILbq5qriXejmtWax0Pvx53NNS7r+MrtYyL6kHVO9Gx25xzUWDhwK
V9myB22/PCAWFBXutrfZoc3Fo2JheOBP+F579N01cbFwOVtfcdABbeCWGAtf
wn/MPXAAvTE9PRbU91wa6TuIbh3LiYUjmvue7nWlx+tbEAsVixZd73ZH2wqX
xMLkSH3a7sP0evSWxYJuc3B4uzc9f/dvxEJ0vqrDTj+03+NbsVBH9Bs+CkDn
/7wdCzz7k5ebBtHroXcnFkx0TOY9CEFPnicdLzo1ahhOl5cj/ejblbaaSLr9
O2R5gScHbujGoBV9yPrNi0XTKxnoV9pk+ymxLRFabPRuSbJ/Xc5RjuWx9HgX
X44FCf21m9WOonOlL8aCvdSQUskxtKluNjnfv9L5V5yk58srLRbePDP7cjER
zS49Qc53GVeHfAq9P7nYseB6/MbNnNP0+juHxcKokXRURia6cteBWFCTa3Na
co6erxdWsRDwh2WUkkOvj49xLPy6OTL/RD69/pXLY2FDcs7XeZfQw4dFYiHS
x+pZbBE9H8rcscCtfCeTKKX3+81eDhjz+Eb/KaPXj/OAA/Gv5Z3Dr9P9t7/K
gYXpCSsCK9Hu4uR7wjwQFn6roud/xpUDyebfx7yr0dpDZhwQn7e30q2e3p+1
5Ptg79DCrMEGtEjZJBvO3bsXc6AJ7ZLXywb58BVb9rXSPnWWDatHJp/v7EKP
hi5mg19Tye1HPXT/g0dZUJ7ndM70JVo2qJEF2vbNLpsG6P0dHMKCTY/P/ND6
RJc/8ZgJnKLt3eWj9P7JyGVCM+dfldpXur7CACbsADfminF6P7QLM8H26vrF
Mn/p9XXYxoCyvZMCbVxzcLz8ixkwb07VAhYPOjWli4Aqez2+j3xoL3AgQJrf
6N8NYbS2fl00vHGx+Gy2Ap046RAOGwSFR/6tRPeYtoRB8p3O4fI1aCJhbRgY
CdkOiq9Dc/2cDoGCWoeXg4Bu4wsLAk9Jr5bI3eiBPAk/qH+wukltD12+6pEP
SPl/bXhrR8cHnbyhtSmgztQRLZvP8IQ1QWG3RDxpP812gVhZ3ZtNXmiDyaUH
4fWjmfJwX9p+WQcgUZ4oHQik69dfth++P429WBJD+325OWyLMM1zZNL9/S2x
HfKU+M8LcWhvbjSCmfZH2Q/iaEt2bYTdUSeyQhNoJyxWhxKVXZkrT9BW+TMP
ZncKpvefou2jpwAOMR2nk5JpX41fDxWqqSlGp2mX1BiCQJd10q8zdH8G9UzB
jSF2qjiTjh+7txPEezITBHP/3/4na4jgnGe8KqbnRz/2APCFzN124ArtTYsO
Qqq7t9D7q/T496a7QOl2nbyvN2hbFLvBwOL2Bu5aur7FD73BJJuLb8UztPqW
L4Hw7JRr25Xn6DrukiBwYrSma/TQ61fjHgxhLukrNvahnUb6Q6BEVX37rg9o
v5E74SB0y/Fk0DQ9nsXCBOQUPrCZ+kO3v/QQAasyVy6L4ZqL7f+7SYBx1K+r
8bPn0vtzNwNCN59qP7sIrTISwwRerYkMWSG00/omJiQp7XO+KEL7ywIWFM9T
/lEqgTb1SWFB39MakXoFur5lx9jgeU+xz0QJrb2lgQ0/yxMuPlJBC7pPs0Ew
zWb989VodbuD5P+fuLt/7dTR4vypHFgRJt/Ur0H3N5i8/zbZf9kz/B/dPxCP
hac7dst6b0C7h+mT56l+1fC3jejC1S7kfaQuey1YHz28NTYWguRjw6YN6f7d
Jc9fbpFRQ8KIbj+oPhZOzrbkn72Fznd6FQtSv251HN1Kx31+xELhsMxZATN0
c8LcONhWlBTVshMtOyYRB589ZjuxLdDx11XiIFE1bJP+brRftWYcaIyMKk7Z
oPkmNsRB52WnuTft0KGGEAchXp0ffe3peIJeHEiuNm1VdaR9UzsO7n6+Uzp0
AJ1bqBYHDqVqSbku6LZt8nEwyzfvyD43enyEYBzkq4nZLPFEm6tPkffdWIJ2
uxe6Tu91LHws+yt53JeevxO1sXDcP+CPSQDdf56zsbBG4/3rWUH0/LP9Y6H9
u1393RD0wLdNsRB4/XF+SDg9P+qLYmFJoGGcRhQ6Xa6LA7fX3fT4HEPvj8Iz
HLCfUDErZNLrX2DFgb83s9Yc5KANZuZx4Hyw4OKl8fT8H6tiw/tfv56nnEDb
9s5jQ3zl4cqdiehJ20IWrAx7nTkvhd6PSQYs8JtqdIxJp+PF+5kgdGfDpg1n
6f5vfcuAmxGlihPn6HxJJwZMzZz+6JlHz0+rCQFZ1fNalxfQ89vqEAP60VGl
A4X0/JrJRQP7n8sRm1K6/KKwCFCq67FefI1e/+qF4dBCmGm3Xqfn52RyKAhw
r/tjeJtef+/DQVBWf+n1zB26vf6aI2DFkqq/VUPXv3FWAKTz8sStbqDr487z
At0HwR7DjWgirtod+jmftue10PXbX3cBhbkdghJP6fgle1tobDL+8aydHi+n
eSe4x99+frKTdkqgNszfurpyazdtn7aVUDrvfCZvL+0jD7aB+UORqNpX9HoY
Z++BHwnxjuGv6foFxA6A9gI/xbFB2joqXtDb+m7O5Q/0fgv+7QdRJ/Z8PPQJ
nbh34gjUC+iXvvxKW08jHMwWC2g3TdHrmT3EAs5sbqlXtMUdfrCg5vfEnzHa
8bKz2LD2bd99yWl6/5dKs2HJ9Su7fGhzjVqx4fXuHW6iM3T5H/VsCEg/nnbw
z//3ex4HLh8nwkJpq+y4xoFBItD+BO1cr1oO2HjYy9+iXXfjJQd0N6wq5f9L
57uT7x/eV48eXKOtbk+eH3pttYWNtLkKU2MhuOH6sZe0K39eIL+nkrMWs//R
5c+R39OTqMN9trRtF/6OhbkBjnXetCv9yPPDwNUqj0lbvFs0Dsp36nqU0Oa6
ohEHI5vUzO7Rdpc2jAPF/xTUumiXndxFfv8rxYRGaLfxOMTBmWXzJ/7RFoz0
ioP/AXDfEQw=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{-1., 3}, {0., 1.7452067169188012`*^-7}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.4455986584549294`*^9, 3.445598697613727*^9}, 
   3.445598755390472*^9, 3.4455991346823606`*^9, 3.445599260443578*^9, 
   3.4455994781289253`*^9, {3.4455995120986156`*^9, 3.445599554241996*^9}, {
   3.4455995948325043`*^9, 3.445599607345347*^9}, 3.445599726896373*^9, {
   3.4456005873867407`*^9, 3.4456006140706253`*^9}, 3.445600828463975*^9, {
   3.445600917416771*^9, 3.445600938673922*^9}, 3.4456010253058147`*^9, 
   3.445601146478743*^9, {3.445601217443865*^9, 3.445601245427712*^9}, {
   3.4456012808242483`*^9, 3.4456013033746853`*^9}, 3.4456018763780937`*^9, 
   3.44560249656007*^9, 3.445608776058399*^9, 3.445609485898383*^9, 
   3.445609591568995*^9, 3.4456096254486303`*^9, 3.445609721879899*^9, 
   3.4456098865454597`*^9, 3.445610150363138*^9, 3.445610216422515*^9, 
   3.445610942301188*^9, 3.4456112711273203`*^9, 3.445611394004369*^9, 
   3.4456115653412046`*^9, 3.445611624502996*^9, 3.445611954773322*^9, 
   3.4456120725338306`*^9, {3.445775696476283*^9, 3.44577570954635*^9}, 
   3.445856378438388*^9, 3.4459448535950603`*^9, 3.445944883691107*^9, 
   3.4459478375359898`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"An upper bound for the error in using  \"\>", 
   "\[InvisibleSpace]", "11", 
   "\[InvisibleSpace]", "\<\" Chebyshev nodes is\"\>"}],
  SequenceForm[
  "An upper bound for the error in using  ", 11, " Chebyshev nodes is"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.4456008290933123`*^9, {3.445600918056079*^9, 3.445600938909155*^9}, 
   3.4456010255386868`*^9, 3.4456011467138567`*^9, {3.445601217698155*^9, 
   3.445601245682043*^9}, {3.445601281077523*^9, 3.445601306536809*^9}, 
   3.445601879601554*^9, 3.445602499724246*^9, 3.445608779207288*^9, 
   3.445609489052431*^9, 3.445609594753187*^9, 3.4456096286342382`*^9, 
   3.445609725018835*^9, 3.445609889719488*^9, 3.445610153494782*^9, 
   3.4456102195662947`*^9, 3.445610942260001*^9, 3.445611271084407*^9, 
   3.445611393964024*^9, 3.4456115652994423`*^9, 3.445611624462522*^9, 
   3.445611953578368*^9, 3.445612071351643*^9, {3.4457756964275837`*^9, 
   3.445775709523162*^9}, 3.445856378175005*^9, 3.4459448535524273`*^9, 
   3.4459448836513853`*^9, 3.445947837541171*^9}],

Cell[BoxData["1.0063700959589782`*^-6"], "Print",
 CellChangeTimes->{
  3.4456008290933123`*^9, {3.445600918056079*^9, 3.445600938909155*^9}, 
   3.4456010255386868`*^9, 3.4456011467138567`*^9, {3.445601217698155*^9, 
   3.445601245682043*^9}, {3.445601281077523*^9, 3.445601306536809*^9}, 
   3.445601879601554*^9, 3.445602499724246*^9, 3.445608779207288*^9, 
   3.445609489052431*^9, 3.445609594753187*^9, 3.4456096286342382`*^9, 
   3.445609725018835*^9, 3.445609889719488*^9, 3.445610153494782*^9, 
   3.4456102195662947`*^9, 3.445610942260001*^9, 3.445611271084407*^9, 
   3.445611393964024*^9, 3.4456115652994423`*^9, 3.445611624462522*^9, 
   3.445611953578368*^9, 3.445612071351643*^9, {3.4457756964275837`*^9, 
   3.445775709523162*^9}, 3.445856378175005*^9, 3.4459448535524273`*^9, 
   3.4459448836513853`*^9, 3.4459478375425367`*^9}],

Cell[BoxData["\<\"REMARK: This is not a valid error bound if Mmf above has \
not been set appropriately by the user \"\>"], "Print",
 CellChangeTimes->{
  3.4456008290933123`*^9, {3.445600918056079*^9, 3.445600938909155*^9}, 
   3.4456010255386868`*^9, 3.4456011467138567`*^9, {3.445601217698155*^9, 
   3.445601245682043*^9}, {3.445601281077523*^9, 3.445601306536809*^9}, 
   3.445601879601554*^9, 3.445602499724246*^9, 3.445608779207288*^9, 
   3.445609489052431*^9, 3.445609594753187*^9, 3.4456096286342382`*^9, 
   3.445609725018835*^9, 3.445609889719488*^9, 3.445610153494782*^9, 
   3.4456102195662947`*^9, 3.445610942260001*^9, 3.445611271084407*^9, 
   3.445611393964024*^9, 3.4456115652994423`*^9, 3.445611624462522*^9, 
   3.445611953578368*^9, 3.445612071351643*^9, {3.4457756964275837`*^9, 
   3.445775709523162*^9}, 3.445856378175005*^9, 3.4459448535524273`*^9, 
   3.4459448836513853`*^9, 3.4459478375446787`*^9}]
}, Open  ]]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.4456014117995358`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Divided", " ", "Difference", " ", "Interpolation"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", 
    RowBox[{
    "f", ",", "a", ",", "b", ",", "xs", ",", "xC", ",", "g2", ",", "g1", ",", 
     "g3", ",", "diff", ",", "diffC", ",", "PC", ",", "P"}], "]"}], 
   "\[IndentingNewLine]", 
   StyleBox[
    RowBox[{
     RowBox[{
      RowBox[{"f", "[", "x_", "]"}], ":=", 
      SuperscriptBox["E", "x"]}], ";"}],
    FontColor->RGBColor[1, 0, 0]], 
   StyleBox["\[IndentingNewLine]",
    FontColor->RGBColor[1, 0, 0]], 
   StyleBox[
    RowBox[{
     RowBox[{"a", "=", 
      RowBox[{"-", "1."}]}], ";"}],
    FontColor->RGBColor[1, 0, 0]], 
   StyleBox["\[IndentingNewLine]",
    FontColor->RGBColor[1, 0, 0]], 
   StyleBox[
    RowBox[{
     RowBox[{"b", "=", "3"}], ";"}],
    FontColor->RGBColor[1, 0, 0]], 
   StyleBox["\[IndentingNewLine]",
    FontColor->RGBColor[1, 0, 0]], 
   StyleBox["\[IndentingNewLine]",
    FontColor->RGBColor[1, 0, 0]], 
   StyleBox[
    RowBox[{
     RowBox[{"m", "=", "10"}], ";"}],
    FontColor->RGBColor[1, 0, 0]], 
   StyleBox[
    RowBox[{"(*", " ", 
     RowBox[{"m", "+", 
      RowBox[{
      "1", " ", "will", " ", "be", " ", "the", " ", "number", " ", "of", " ", 
       "nodes"}]}], " ", "*)"}],
    FontColor->RGBColor[1, 0, 0]], 
   StyleBox["\[IndentingNewLine]",
    FontColor->RGBColor[1, 0, 0]], 
   StyleBox["\[IndentingNewLine]",
    FontColor->RGBColor[1, 0, 0]], 
   StyleBox[
    RowBox[{
     RowBox[{"Mmf", "=", 
      SuperscriptBox["E", "b"]}], ";"}],
    FontColor->RGBColor[1, 0, 0]], 
   StyleBox[" ",
    FontColor->RGBColor[1, 0, 0]], 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
     "Mfn", " ", "should", " ", "be", " ", "an", " ", "appropriate", " ", 
      "upper", " ", "bound", " ", "for", " ", "the"}], " ", "|", 
     RowBox[{
      SuperscriptBox["f", 
       RowBox[{"(", 
        RowBox[{"m", "+", "1"}], ")"}]], 
      RowBox[{"(", "x", ")"}]}], "|", " ", 
     RowBox[{"for", " ", "x", " ", 
      RowBox[{"in", " ", "[", 
       RowBox[{"a", ",", "b"}], "]"}]}]}], " ", "*)"}], "\[IndentingNewLine]",
    "\[IndentingNewLine]", 
   StyleBox[
    RowBox[{
     RowBox[{"\[Phi]", "[", "x_", "]"}], ":=", 
     RowBox[{"(", 
      FractionBox[
       RowBox[{
        RowBox[{"x", 
         RowBox[{"(", 
          RowBox[{"b", "-", "a"}], ")"}]}], "+", "a", "+", "b"}], "2"], 
      ")"}]}],
    FontColor->GrayLevel[0]], 
   StyleBox[
    RowBox[{"(*", 
     RowBox[{
      RowBox[{
       RowBox[{"rescaling", "/", "shifting"}], " ", "function", " ", 
       RowBox[{"\[Phi]", ":", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1"}], "]"}]}]}], "\[Rule]", " ", 
      RowBox[{"[", 
       RowBox[{"a", ",", "b"}], "]"}]}], "*)"}],
    FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"xs", "[", "k_", "]"}], ":=", " ", 
    RowBox[{"a", "+", 
     RowBox[{"k", "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"b", "-", "a"}], ")"}], "/", "m"}]}]}]}], "  ", 
   RowBox[{"(*", 
    RowBox[{"m", "+", 
     RowBox[{"1", " ", "equally"}], "-", 
     RowBox[{"spaced", " ", "nodes", " ", 
      RowBox[{"(", 
       RowBox[{"including", " ", "endpts"}], ")"}]}]}], "*)"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"diff", "[", 
     RowBox[{"k_", ",", "0"}], "]"}], ":=", 
    RowBox[{"f", "[", 
     RowBox[{"xs", "[", "k", "]"}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"diff", "[", 
     RowBox[{"k_", ",", "n_"}], "]"}], ":=", 
    RowBox[{
     RowBox[{"diff", "[", 
      RowBox[{"k", ",", "n"}], "]"}], "=", 
     FractionBox[
      RowBox[{
       RowBox[{"diff", "[", 
        RowBox[{"k", ",", 
         RowBox[{"n", "-", "1"}]}], "]"}], "-", 
       RowBox[{"diff", "[", 
        RowBox[{
         RowBox[{"k", "-", "1"}], ",", 
         RowBox[{"n", "-", "1"}]}], "]"}]}], 
      RowBox[{
       RowBox[{"xs", "[", "k", "]"}], "-", 
       RowBox[{"xs", "[", 
        RowBox[{"k", "-", "n"}], "]"}]}]]}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"P", "[", 
     RowBox[{"x_", ",", "0"}], "]"}], ":=", 
    RowBox[{"f", "[", 
     RowBox[{"xs", "[", "0", "]"}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"P", "[", 
     RowBox[{"x_", ",", "k_"}], "]"}], ":=", 
    RowBox[{
     RowBox[{"P", "[", 
      RowBox[{"x", ",", "k"}], "]"}], "=", " ", 
     RowBox[{
      RowBox[{"P", "[", 
       RowBox[{"x", ",", 
        RowBox[{"k", "-", "1"}]}], "]"}], "+", 
      RowBox[{
       RowBox[{"diff", "[", 
        RowBox[{"k", ",", "k"}], "]"}], 
       RowBox[{
        UnderoverscriptBox["\[Product]", 
         RowBox[{"j", "=", "0"}], 
         RowBox[{"k", "-", "1"}]], 
        RowBox[{"(", 
         RowBox[{"x", "-", 
          RowBox[{"xs", "[", "j", "]"}]}], ")"}]}]}]}]}]}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"xC", "[", "k_", "]"}], ":=", " ", 
    RowBox[{"\[Phi]", "[", 
     RowBox[{"Cos", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Pi", "/", "2"}], "+", 
         RowBox[{"k", "*", "Pi"}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"m", "+", "1"}], ")"}]}], " ", "]"}], "]"}]}], 
   RowBox[{"(*", 
    RowBox[{"m", "+", 
     RowBox[{"1", " ", "rescaled", " ", "Chebyschev", " ", "nodes", " ", 
      RowBox[{"in", " ", "[", 
       RowBox[{"a", ",", "b"}], "]"}]}]}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"diffC", "[", 
     RowBox[{"k_", ",", "0"}], "]"}], ":=", 
    RowBox[{"f", "[", 
     RowBox[{"xC", "[", "k", "]"}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"diffC", "[", 
     RowBox[{"k_", ",", "n_"}], "]"}], ":=", 
    RowBox[{
     RowBox[{"diffC", "[", 
      RowBox[{"k", ",", "n"}], "]"}], "=", 
     FractionBox[
      RowBox[{
       RowBox[{"diffC", "[", 
        RowBox[{"k", ",", 
         RowBox[{"n", "-", "1"}]}], "]"}], "-", 
       RowBox[{"diffC", "[", 
        RowBox[{
         RowBox[{"k", "-", "1"}], ",", 
         RowBox[{"n", "-", "1"}]}], "]"}]}], 
      RowBox[{
       RowBox[{"xC", "[", "k", "]"}], "-", 
       RowBox[{"xC", "[", 
        RowBox[{"k", "-", "n"}], "]"}]}]]}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"PC", "[", 
     RowBox[{"x_", ",", "0"}], "]"}], ":=", 
    RowBox[{"f", "[", 
     RowBox[{"xC", "[", "0", "]"}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"PC", "[", 
     RowBox[{"x_", ",", "k_"}], "]"}], ":=", " ", 
    RowBox[{
     RowBox[{"PC", "[", 
      RowBox[{"x", ",", "k"}], "]"}], "=", 
     RowBox[{
      RowBox[{"PC", "[", 
       RowBox[{"x", ",", 
        RowBox[{"k", "-", "1"}]}], "]"}], "+", 
      RowBox[{
       RowBox[{"diffC", "[", 
        RowBox[{"k", ",", "k"}], "]"}], 
       RowBox[{
        UnderoverscriptBox["\[Product]", 
         RowBox[{"j", "=", "0"}], 
         RowBox[{"k", "-", "1"}]], 
        RowBox[{"(", 
         RowBox[{"x", "-", 
          RowBox[{"xC", "[", "j", "]"}]}], ")"}]}]}]}]}]}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Output", " ", "Section"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"t1", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"xs", "[", "k", "]"}], ",", 
          RowBox[{"f", "[", 
           RowBox[{"xs", "[", "k", "]"}], "]"}]}], "}"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "0", ",", "m"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"t2", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"xs", "[", "k", "]"}], ",", "0"}], "}"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "0", ",", "m"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"g1", "=", 
     RowBox[{"ListPlot", "[", 
      RowBox[{"t1", ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"PointSize", "[", "0.02", "]"}], "}"}]}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"g2", "=", 
     RowBox[{"ListPlot", "[", 
      RowBox[{"t2", ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"PointSize", "[", "0.02", "]"}], "}"}]}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"t3", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"xC", "[", "k", "]"}], ",", 
          RowBox[{"f", "[", 
           RowBox[{"xC", "[", "k", "]"}], "]"}]}], "}"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "0", ",", "m"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"t4", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"xC", "[", "k", "]"}], ",", "0"}], "}"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "0", ",", "m"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"g3", "=", 
     RowBox[{"ListPlot", "[", 
      RowBox[{"t3", ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"PointSize", "[", "0.02", "]"}], "}"}]}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"g4", "=", 
     RowBox[{"ListPlot", "[", 
      RowBox[{"t4", ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"PointSize", "[", "0.02", "]"}], "}"}]}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"g5", "=", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"f", "[", "x", "]"}], ",", 
         RowBox[{"P", "[", 
          RowBox[{"x", ",", "m"}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "a", ",", "b"}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Black", ",", "Blue"}], "}"}]}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"g6", "=", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"f", "[", "x", "]"}], ",", 
         RowBox[{"PC", "[", 
          RowBox[{"x", ",", "m"}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "a", ",", "b"}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Black", ",", "Red"}], "}"}]}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Print", "[", "\"\<Divided Difference Interpolation\>\"", "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{"\"\<Using \>\"", ",", 
     RowBox[{"m", "+", "1"}], ",", "\"\< Equally-Spaced Nodes:\>\""}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{"g1", ",", "g2", ",", "g5"}], "]"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"gg2", "=", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"Abs", "[", 
       RowBox[{
        RowBox[{"f", "[", "x", "]"}], "-", 
        RowBox[{"P", "[", 
         RowBox[{"x", ",", "m"}], "]"}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "a", ",", "b"}], "}"}]}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{"\"\<An upper bound for the error in using  \>\"", ",", 
     RowBox[{"m", "+", "1"}], ",", "\"\< equally-spaced nodes is\>\""}], 
    "]"}], "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    FractionBox[
     RowBox[{"Mmf", 
      SuperscriptBox[
       RowBox[{"(", 
        FractionBox[
         RowBox[{"b", "-", "a"}], "m"], ")"}], 
       RowBox[{"m", "+", "1"}]]}], 
     RowBox[{"m", "+", "1"}]], "]"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
   "Print", "[", 
    "\"\<REMARK: This is not a valid error bound if Mmf above has not been \
set appropriately by the user \>\"", "]"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
   "Print", "[", "\"\<*************************************\>\"", "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{
   "Print", "[", "\"\<*************************************\>\"", "]"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Print", "[", "]"}], "\[IndentingNewLine]", 
   RowBox[{"Print", "[", "\"\<Divided Difference Interpolation\>\"", "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{"\"\<Using \>\"", ",", 
     RowBox[{"m", "+", "1"}], ",", "\"\< Chebyshev Nodes:\>\""}], "]"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{"g3", ",", "g4", ",", "g6"}], "]"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"gg4", "=", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"Abs", "[", 
       RowBox[{
        RowBox[{"f", "[", "x", "]"}], "-", 
        RowBox[{"PC", "[", 
         RowBox[{"x", ",", "m"}], "]"}]}], "]"}], " ", ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "a", ",", "b"}], "}"}]}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{"\"\<An upper bound for the error in using  \>\"", ",", 
     RowBox[{"m", "+", "1"}], ",", "\"\< Chebyshev nodes is\>\""}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{"Mmf", 
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        FractionBox[
         RowBox[{"b", "-", "a"}], "2"], ")"}], 
       RowBox[{"m", "+", "1"}]], 
      RowBox[{
       SuperscriptBox["2", "m"], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}], "!"}]}]]}], "]"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
   "Print", "[", 
    "\"\<REMARK: This is not a valid error bound if Mmf above has not been \
set appropriately by the user \>\"", "]"}], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.445176419998407*^9, 3.445176420549685*^9}, {
   3.4451774912166452`*^9, 3.445177519612525*^9}, {3.4451776223715067`*^9, 
   3.4451776575645514`*^9}, {3.445178134773056*^9, 3.4451781471867743`*^9}, {
   3.445178573738714*^9, 3.445178587272023*^9}, {3.4451786572477617`*^9, 
   3.44517870706949*^9}, {3.4451810760470123`*^9, 3.4451811434588137`*^9}, {
   3.445363667287559*^9, 3.445363723770606*^9}, {3.445363826562649*^9, 
   3.445363827031739*^9}, {3.4453645165875387`*^9, 3.445364587036731*^9}, 
   3.4453647427393827`*^9, {3.445364777727727*^9, 3.445364868060381*^9}, {
   3.445364927288348*^9, 3.445364990894472*^9}, {3.4453650396947117`*^9, 
   3.445365463181807*^9}, {3.445366648423627*^9, 3.445366651317547*^9}, {
   3.445366709105896*^9, 3.4453669182349777`*^9}, 3.4453669484048023`*^9, {
   3.4453669794665737`*^9, 3.445366999678993*^9}, {3.4455983174328423`*^9, 
   3.445598347965185*^9}, {3.445598408789954*^9, 3.445598435949942*^9}, {
   3.4455985001630983`*^9, 3.445598696797983*^9}, {3.445598748257125*^9, 
   3.44559879808917*^9}, {3.4455988878573647`*^9, 3.445598988347283*^9}, {
   3.4455990210216503`*^9, 3.445599027333166*^9}, {3.4455991166514387`*^9, 
   3.445599123632875*^9}, {3.445599237114089*^9, 3.445599257907353*^9}, {
   3.445599477109256*^9, 3.4455996053114977`*^9}, {3.445600570224869*^9, 
   3.4456006130608664`*^9}, {3.445600683635453*^9, 3.44560085480206*^9}, {
   3.44560088625966*^9, 3.445600937746379*^9}, {3.445600973370969*^9, 
   3.445601143979537*^9}, {3.4456011815707703`*^9, 3.44560124439049*^9}, {
   3.445601279270075*^9, 3.4456013004423018`*^9}, {3.4456014174198523`*^9, 
   3.445601499645405*^9}, {3.445601532916843*^9, 3.445601547282442*^9}, {
   3.445601603902315*^9, 3.445601607284759*^9}, {3.4456016623830423`*^9, 
   3.445601690259342*^9}, {3.4456017594092503`*^9, 3.445601777783687*^9}, {
   3.445601839026012*^9, 3.445601844048565*^9}, {3.445602199760762*^9, 
   3.445602202378581*^9}, {3.4456023581684313`*^9, 3.445602377607711*^9}, {
   3.44560251675399*^9, 3.445602518656679*^9}, {3.445602639672112*^9, 
   3.4456026487673264`*^9}, {3.445608886134118*^9, 3.445608938373762*^9}, {
   3.4456090079116898`*^9, 3.4456090781812353`*^9}, 3.445609539428841*^9, 
   3.4456096958025093`*^9, 3.4456097881311502`*^9, {3.445609820894066*^9, 
   3.445609826145199*^9}, {3.445609914684135*^9, 3.445609914993753*^9}, {
   3.445610267585458*^9, 3.4456103062718897`*^9}, {3.4456103501636257`*^9, 
   3.445610398228519*^9}, {3.445610893096057*^9, 3.445610895662747*^9}, {
   3.445610990244375*^9, 3.445611005089588*^9}, {3.445611044589127*^9, 
   3.445611045488634*^9}, 3.445611171600808*^9, {3.445611224361938*^9, 
   3.44561126106168*^9}, {3.445611317002511*^9, 3.4456113279183407`*^9}, {
   3.445611359789117*^9, 3.4456113771567593`*^9}, {3.445611455431952*^9, 
   3.4456114854627934`*^9}, {3.4456115531340227`*^9, 3.445611610257688*^9}, {
   3.445611728130028*^9, 3.4456117394385223`*^9}, {3.4456118269597692`*^9, 
   3.445611832772209*^9}, {3.445611899332879*^9, 3.445611946365939*^9}, {
   3.445612019290316*^9, 3.445612046088808*^9}, {3.4456121212752523`*^9, 
   3.445612124921424*^9}, {3.445612190431614*^9, 3.445612230959713*^9}, 
   3.445775715722971*^9, {3.445780151906766*^9, 3.44578015221621*^9}, {
   3.445944718630967*^9, 3.4459447352502337`*^9}}],

Cell[CellGroupData[{

Cell[BoxData["\<\"Divided Difference Interpolation\"\>"], "Print",
 CellChangeTimes->{
  3.4456015865182962`*^9, 3.445601753454194*^9, 3.445601858886375*^9, 
   3.445602281663096*^9, 3.445602379190877*^9, 3.445602656578628*^9, 
   3.445608801036373*^9, 3.4456090112643013`*^9, 3.445609092173718*^9, 
   3.4456092381197968`*^9, 3.445609540214663*^9, 3.4456096964806128`*^9, {
   3.445609762786927*^9, 3.445609789300913*^9}, 3.4456098319039803`*^9, 
   3.445610268603636*^9, {3.445610299029827*^9, 3.4456103077790003`*^9}, {
   3.445610381432757*^9, 3.445610399113985*^9}, 3.4456108653045397`*^9, 
   3.445611046711111*^9, 3.44561117278363*^9, {3.4456112991243267`*^9, 
   3.445611328933964*^9}, {3.44561143528401*^9, 3.4456114558619413`*^9}, 
   3.445611486091566*^9, 3.445611594615296*^9, 3.445611742248108*^9, 
   3.445611836388829*^9, 3.445611920510149*^9, 3.445612028718822*^9, 
   3.4456120932184343`*^9, 3.4456122322050962`*^9, 3.445775716751371*^9, 
   3.445780190224999*^9, 3.445856383135578*^9, 3.445944739654614*^9, 
   3.4459448706515713`*^9, {3.445947837913556*^9, 3.4459478445320187`*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Using \"\>", "\[InvisibleSpace]", "11", 
   "\[InvisibleSpace]", "\<\" Equally-Spaced Nodes:\"\>"}],
  SequenceForm["Using ", 11, " Equally-Spaced Nodes:"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.4456015865182962`*^9, 3.445601753454194*^9, 3.445601858886375*^9, 
   3.445602281663096*^9, 3.445602379190877*^9, 3.445602656578628*^9, 
   3.445608801036373*^9, 3.4456090112643013`*^9, 3.445609092173718*^9, 
   3.4456092381197968`*^9, 3.445609540214663*^9, 3.4456096964806128`*^9, {
   3.445609762786927*^9, 3.445609789300913*^9}, 3.4456098319039803`*^9, 
   3.445610268603636*^9, {3.445610299029827*^9, 3.4456103077790003`*^9}, {
   3.445610381432757*^9, 3.445610399113985*^9}, 3.4456108653045397`*^9, 
   3.445611046711111*^9, 3.44561117278363*^9, {3.4456112991243267`*^9, 
   3.445611328933964*^9}, {3.44561143528401*^9, 3.4456114558619413`*^9}, 
   3.445611486091566*^9, 3.445611594615296*^9, 3.445611742248108*^9, 
   3.445611836388829*^9, 3.445611920510149*^9, 3.445612028718822*^9, 
   3.4456120932184343`*^9, 3.4456122322050962`*^9, 3.445775716751371*^9, 
   3.445780190224999*^9, 3.445856383135578*^9, 3.445944739654614*^9, 
   3.4459448706515713`*^9, {3.445947837913556*^9, 3.445947844558445*^9}}]
}, Open  ]],

Cell[BoxData[
 GraphicsBox[{{{}, 
    {Hue[0.67, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{-1., 0.36787944117144233`}}]}, 
    {Hue[0.9060679774997897, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{-0.6, 0.5488116360940264}}]}, 
    {Hue[0.1421359549995791, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{-0.19999999999999996`, 0.8187307530779819}}]}, 
    {Hue[0.37820393249936934`, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{0.20000000000000018`, 1.22140275816017}}]}, 
    {Hue[0.6142719099991583, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{0.6000000000000001, 1.822118800390509}}]}, 
    {Hue[0.8503398874989481, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{1., 2.718281828459045}}]}, 
    {Hue[0.08640786499873876, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{1.4000000000000004`, 4.055199966844676}}]}, 
    {Hue[0.3224758424985268, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{1.8000000000000003`, 6.049647464412947}}]}, 
    {Hue[0.5585438199983166, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{2.2, 9.025013499434122}}]}, 
    {Hue[0.7946117974981064, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{2.6, 13.463738035001692`}}]}, 
    {Hue[0.030679774997896203`, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{3., 20.085536923187668`}}]}, {}}, {{}, 
    {Hue[0.67, 0.6, 0.6], PointSize[0.02], PointBox[{{-1., 0.}}]}, 
    {Hue[0.9060679774997897, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{-0.6, 0.}}]}, 
    {Hue[0.1421359549995791, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{-0.19999999999999996`, 0.}}]}, 
    {Hue[0.37820393249936934`, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{0.20000000000000018`, 0.}}]}, 
    {Hue[0.6142719099991583, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{0.6000000000000001, 0.}}]}, 
    {Hue[0.8503398874989481, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{1., 0.}}]}, 
    {Hue[0.08640786499873876, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{1.4000000000000004`, 0.}}]}, 
    {Hue[0.3224758424985268, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{1.8000000000000003`, 0.}}]}, 
    {Hue[0.5585438199983166, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{2.2, 0.}}]}, 
    {Hue[0.7946117974981064, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{2.6, 0.}}]}, 
    {Hue[0.030679774997896203`, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{3., 0.}}]}, {}}, {{}, {}, 
    {GrayLevel[0], LineBox[CompressedData["
1:eJwVz3s803scx/E1s7nUMOTUHolIYtJlp1zS95PqiAdSrY5zjqYyyXGseJRu
5BbxKOc4dqIonVokxiYqdrLfIbdOuZQ0PYaRKaWaYuEMO9/zx/vxejz/fNse
PLIrnEwikQLx/m/IWdYLnU5N+D6O2rv3ghz1f/ExHdeoib/OOhx5mCNH+yPC
/N+MqokzmkUK+3w5Cg/Kb3wqVxP9gjzxTIkc8ZcZ3LsiVhNX+TGhrc1ylNw8
dGldqJowCUxK7CT3oGJ6wfcRsk8E8922iZL4HjRWaKhoj/9IhGwtMi068QqV
3rF6kfroPZEU5LNdJVUgrySlI99thJiS6RbYUPsRX55hbC0dJlq7JCHxHgOo
6ZuwgSr9IcL663TY25JBpFk+aZqYOEAIAvuLJplDKM/jZMT+dAXhLBt6/lun
CiU6NbUGrHhJcNYX+loI36BFd9MGi+yfEfpGouzZ0yNIxwyqE0S1EBez2tQb
i9+jUOqU/8EsKXGOxtG97fmAyg8dcXe4nU+ws1JNzruokUgv1gt1l6Ny9IxR
rxlD2wnd14r0ejRSa5dp/MMXZLxHuSfu6FPkt/G7AxbaccQ6dlUmEHShtQED
a2/VapBNcXd+ck4POt/x6iUrYRK16pXnCGf7kO65xj02exopeRmRLumDKI26
LS+vVIuq92VaCbeo0GOe9eYWuzk02l2yYffEG8StEjO8eCTwTaHPtMW9Qwq1
sidXOg+St25pP+j6ARmGuorDA/RgwEO2taH2E3pr61FUOUyBnT1lCysKxtAT
+o5fqnOpsNR6wCxD8xnF/ONZuOoPAyCd3RDq4zaO1NF+Kw0vG0H74bgq89wJ
5GLF4c5+nQ+BgkZI+KhBDZLrP55KNIFB+bc2T10mUcfqzx0imhkcuP0r1TFz
ChFuNdvSMxkwkW2EItumUdAmZe8JUwtwl16S+BhrUVD0GltNhSX8zDdYuY43
g0SepOpbuVYg3lg4rlc8iwooOTfczy2CwUvMpkGyDhnWOTRMtTJBQOEe22VP
gjvL9/zeamkN9P57N8mNJLg/WurN2mIDpIRkjnvMPBjTSu9duWsL2hKu+DWD
DOSlBotrHewgOl+cxWggw0/C1dHZvfZQ45xhYMbXg7SouLoYiQPM94tlpdAp
UL2CN9OS6Qhyl86uUw8p4Ftzurv6vhOUFSJ7FVcfaBzJPttRFgSL15stmdMH
payOc3uzK5xJu5HcW0qFOJ7impq0BkpGlhTQ/WnwQMo0CQ9fC/5mdLeWf2lw
qE/b3GbAhjR9MrMX282z0JJsyAbZtGZ2DNvT6TFvPfaa132PFmtpcLi+hnId
e2FV+Q4+dpB2zu+oERuUnIAIyxkaHO92/MyYz4bYyxdzw2ZpwFVphcEmbCi7
mHTqJPYBZpVeFrYq6VhIFvYq0/Gweuy9kSHLHmBL3RY4OJmywdODVWE0RwOh
qFSixab0PmmqxF4VfEFZyGCDVydR0oztYt7h04Ud11h1QYHtc7NAQjNnwztR
wU59Hf7n3ZF6FLs9IaovGJtT+edqbws20GJD/47G9mY7X4vDhkO7hSnYJ3I3
GZVh3w30jBRh+8zphs0t2TDq7epfj11BreBsx7bfYOf6EntsXPUoHpvrbMUY
xT7ecmtdJXbeUmONDvtaykfhMPZ/BzdMPQ==
      "]]}, 
    {RGBColor[0, 0, 1], LineBox[CompressedData["
1:eJwVx38803kcwPE1bBq3bPlRPKJwKj+SLL/Kfd6Hu9RJpXIqmWTJuVbttJL8
rHnwKB6yUriTi1iYH1Ed53xT03ShX5i7KZNfaTTFUH7sPvfH6/F6PFeFHQ/g
kEkkkj/u/wfH23doNCrioFdUYOBFGXrzaYvBhFpF1J2J3dmQJUOhEYf9hpQq
4sGzHfnWuTLE2ZkraZWpCArYuc2JZIhrqXs3p1JFGARSY6SPZSjpcf9VZ7aK
GOd9fNlO7kbF9LwfIxo/EPoJ3ozic91oPH+xvP3cGDGaWd1RcPofVHrbpOP8
o/eEpGCDhaJejjwTe9dw3d4RpkENx1ZQ3iCuLFXPvH6QcOBceBHroUDNyw4r
anT6iaNO5KhhUR9Sfz1tkJCgID5E5o9Om/Wjax5nIkJT5ETWWIFl5vMBlGDb
3LJ9dRdRkvcy0bBwCC2/I+i7Zf2C2HbqkGj+7DukMdv5lzBKSpjakpSbi98j
NmXGLyy9nqAdEiiHu0eR+Mhxd5uSXGJjzt6ZFAcVKtfieaJOMSpoMaI1qceR
L6GZqkhpQqdmXQR6+z4hvb29e/knWhH1bHyY4ewEso/+tVEofIXYXhGuRXVq
tLK4MzcpqxsJxr/vsY+bRi1a4qzC+dfI7N913/AyP6Pe8NRIh5Q+dHqfYc61
0llUezDNpNB7AH05oAtSqwWk7BS57p4cQlNGpgzPcBJsTabPtfFH0Ei8uiu7
fhEk+Xi3hzmOorpCsZizXQsUHo0+D+s+IKvhkqLqQW3Y1V1mXJE3jmJr5D/X
ZlPAwlzBSFV/RBOK1hvrrugCKd6VvcVtAj21/s5u8XUatB/l1yzNnkTTjEn2
/JQ++AslEDemRs5CqwMxCUugT7ZxZavDNOp3jHtWTmXAoZIMypq0GaSOTvdJ
SWPCZCYNRbZ9RvtT2PLTBobgXn+1aoveLLr8ZNBCXWEEP3F11zqHz6Hh7tya
omwTqNycP6FVPI8Kgs/fdL+wHPqumjX3kTWolX1LMtNiBkLtkOgAaxLY7frz
SouROdDf3L1JlpBAOOHiY++9EkhxSXvcTy6CKSebezl3VsGsKKTyLZMMmxr4
y+psrOBYbmU68yEZQjOURzN7rOEPu1RdBlcLnt5de/9klQ3ob+PZJ9O1YdvY
L1PStDUgc3j+KqZBG24/KO2ovWcLZfnIeiBEBzq/aotYpbSHoEoXxooFHRAU
0Y+XfOsIsYLfk3pKKbCw37FWRXIC0bsVeXQ/KgRL3FdzOBvAj0F3k36hQvyL
Ay1tuiwQ6JDNerC7nswYkxezoPGzen4cOyPA/IgLttPb149MZ6lQbKpFuYFt
XCPewcXmlTv7naCxoHfP9gijOSrw6Rs+MfVZwLt+KfvwPBUWLomLgpawoOxS
YswZ7F5vtnY69kBidHA6du39nPAm7MDIYMv72H/LRTa2BizY5GFfQVugQtXm
9dWz2No9T5ursRU5A735TBZ4PidEj7G3Si19X2HzJTUX5dhq6UgVdSkLRsrz
duloqFDhy7xwArs9Lup1EHYtt229lyELqDz2g2PYPxwM+I2PDUd2FyZj+9uG
0sqw7/hviizHduUYDy01YoHSy9GvCbu/s3GPL7a1q5VjF/Zl2/FH57BD7EyY
SuzS8FLnauxrFnpqDXaGYKxwEPs/ZFBN3Q==
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{-1., 3.}, {0., 20.085536923187668`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.4456015750111313`*^9, 3.445601712880979*^9, 3.445601800871771*^9, 
   3.4456022238064003`*^9, 3.445602378553671*^9, 3.445602655946286*^9, 
   3.4456088003766823`*^9, 3.445609010633951*^9, 3.445609091527849*^9, 
   3.4456092374910307`*^9, 3.445609540111279*^9, 3.445609696414515*^9, {
   3.445609762721992*^9, 3.4456097892346687`*^9}, 3.445609831838702*^9, {
   3.445610268537582*^9, 3.445610307175644*^9}, {3.445610381468202*^9, 
   3.445610399149932*^9}, 3.4456108653415537`*^9, 3.4456110467464046`*^9, 
   3.445611172819129*^9, {3.445611299159953*^9, 3.445611328969179*^9}, {
   3.445611435322495*^9, 3.445611455889382*^9}, 3.445611486115994*^9, 
   3.445611594651504*^9, 3.445611742283781*^9, 3.445611836426261*^9, 
   3.445611921142049*^9, 3.445612028957547*^9, 3.445612093472924*^9, 
   3.4456122322707376`*^9, 3.445775716816437*^9, 3.44578019028598*^9, 
   3.445856383187598*^9, 3.445944739711487*^9, 3.445944870702545*^9, {
   3.445947837981883*^9, 3.4459478445895452`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], 
    LineBox[{{-0.9999999183673469, 
     1.9173551635276453`*^-12}, {-0.9987731283177614, 
     2.8561856990627632`*^-8}, {-0.997546338268176, 
     5.661476237817098*^-8}, {-0.9950927581690051, 
     1.1122147958175788`*^-7}, {-0.9901855979706633, 
     2.1459016674718612`*^-7}, {-0.9889588079210778, 
     2.39245770417007*^-7}, {-0.9877320178714925, 
     2.6343723513733153`*^-7}, {-0.9852784377723216, 
     3.104483895510768*^-7}, {-0.9803712775739798, 
     3.9912576882406015`*^-7}, {-0.9791444875243944, 
     4.2021072799158787`*^-7}, {-0.977917697474809, 
     4.4087176276352835`*^-7}, {-0.9761458975415118, 4.698071850262425*^-7}}],
     LineBox[CompressedData["
1:eJw13Gk4ld3XAHCJqFRCEg2SSqKMZVzm+TiEgwqZ58dQkgw5hkwNhkKGkGQO
qYTKlFBJSihFlEqpqCihvOes/X8/PdfvWmuvvfba930ffXk2O/qaubCysLBk
s7GwMP97lWvbk297PjYuGR14qRibC3075QR1/3xoZGHxi47kvgiyTxteUiaY
Vt/6rzwbkgINMszfYzyv2yAbDJrtBByeMs3NFxGdBXcs4/lDS5huyoF/GZAf
McRTvZ/ppJEYtnTw6Y9bvrH+PcP2PWdckiFA/bUjpRI9486ZDMdLdtcHFzBN
PzBQlgTRIX3u/WfRrJyfEiFjk2hbkhPTLH7rBc9Aq1sjffEKpptOhN2KhYfd
PC+kWdG/erhj4Ymi627736NMs/p7xcDA8hVDd0aYVqdFiZ6EicoDyoE1TNM3
by2MBMGZ6emxQ+iF7d0hIOxgYLyWxjSLTWh5MGx9mF2gY4iuO3rqOEhla5nn
y2H+qgP7joGOenLVwaUYP/5r/jAYloxyJPx7x3QX/Zs/mPIoHKr9yTR93fW3
fnBgdGjFmiGM/9tY+B/4xUl4dVWjZ7WLXODo9/CW+SK0dPcNJwg+0LNu50X0
r8J2BzgpEdwRG4t2dp49CAmpjzfVhKLz29WsIemf8LFRf3RmTaIFZHa3b9Ww
Qbea5RhCnqJQmO8+9B3DMC24ku/z/KIuOu7oWwUoXd6ys1MZPek6thWqAtZE
zUqh6Zsil8DNQfcBsW3objYvKajXvSNtJYS+IPpaFe4LOA1fZ0eLfRWmwKz7
1hVZc2+ZZivg3we76j4qRn5Hr+zltYAL+73PmQ6iZyx/7gevzKO6X2+gfW5f
doTV6+PKtzmjb7aL/ge63oYvVxxAr3Jw8IHgO1xLpk3QxpUZvjBqk3zonjL6
xZ1/fnDrYiaPPS/T9C2CBkfAdtPVoIyWEaa7vx8/Bim+vlfotegVA7+OQVuj
9DO3CqZZ0hv8g0DKvmbnnkyM/z7pcBwWX2oceuaPfmu6IwQUvkcsr3fD/IN2
aSHgraGtcMkW48dDFoVC30hHsq8Bxhu+PQ2FEpFn2lybMT7BYnMChg6f9//J
j3HOnroTwHPPMmeAC+NuD9aEQ6jTq9/FM8PMeLZkRziYFIyW6nQz3XQh8RQd
oqcK+yXamKbv332dDrXaHmx8d9C8X17SQeT9V9u3RZg/3ywaAdNbf3OHh6P7
llRFwDPFyN4zAZi/w70nAqqMV2Rme2BcrnM6AjyPbtlSb47xO5f3RoJ+fMXH
Dn2m1UcFrSJh60XF8n5VjPNnH42E4VYT+ent6EWtlZFw98XAn8UbMN/X51Ek
ZH5xaeDhwfpm4h8ioVRs5qz9zBvm+aYHBaIgtd30el8e0+q7PI5EgemEq8pU
AtNNj3pio2DZ2rD7q4+ix+2yooDuWtJPMUDrDjVGgdLZRntPWVxP7euOgumb
vZ9iN2Dc79dwFHiys863fB9i7ldQ8y8KtkoKnBx+hY45wBUNwxa7Vv67j96y
a100ZIZqpwtVMa3uIrs1GmgFB4QVM4dwPt5S0cDd6VdiGc00PWRAKRoe/oyR
CfDB/C107Wg4KXTxdrI1xtccMo4Gda3r2pWaWF/lOC0a5jwfPO6UwHh4t000
1KS8sfzMj/UfuDpFg1/99BuORZjPDh7RsPPtco+t44PM+Dprn2j4sFTkh2Yv
0yzfaw5HQ560Qoh9I/qITWA0HNxPZTtRwrR6nOHxaOCPcD6TdY6sjwqJhqfF
wfx1YZi/gjMsGk53J+X2uWHc6BXDujOFYlP7cH39P4YXCd+9tloF42oBDN/R
61HavQ3drBoaDYG+n+5RuJmmi9oGR4N0+gLFc/Y1M055fiwavjSs6YsdRW+4
EhANRR92HrrSxbR68FO/aHBcqTnWUss0i/ZB72hYv8fafzgfbaPtFg39tj6z
f08zTb981iEaUk5GRwkdw/V/lA9GA+VqJpeiA+YrUy2ioWW+bWOAPOb/KWbc
R6joYFHyJoxLTitHw17KT6nKpRi/e1UmGsqzNml9HnyFvxdeG6PB7Z58J0cH
003LA3ijQWTciLa1Gh06yREN6UpBbvYx6JdGE1Fg6fN3/agf0/SX3m+jgD8/
8pnbQYznr+iNgrSlZ1R9pbC+e29tFJx/cYn3xMAAM253NTgKLLi2P1h0n2m6
8bxHFPCql584WYnxxBfWUZBSVPPpdDTTjAuQj4LkwEeNWbswvu73WCSYlpoe
3bSOafWVb55HAvdQr/jlxZgf7dAUCUk6w6mlL14y63uppEXCWb5pr7pIpptW
HFONhFPVGwX6+14w/d0+JAIMP1x+fKCZafUDlQ4RsExwR9RQGdMsZtf0IiAh
QvbbezrmT/fyRECcqX7rlDi66NEVOpz85u/HE96P32u78HAIF7/fYby9j7l/
iUxmCORIiO3Q4mWaxSvdNgTu7DoVr7DQy4xX3BMOgRmZfYZb+tH3gguD4bDy
4KOZGKZZPDMrj4MrZbrr8ofnTCdT648BxWdr758rPcz8ar2GI+DpFyc/kYw+
onziCMQfHk8dDWOahVsKjkBb4DXLJzSMc4s0HAa1cNUXBezoNRYN/iCTRHtl
4vKMmV8cGOkL66pPjlwRfcq0jtdNN4hTDvb/vBJ9sEHKDWZafRbt/tON9Y+X
u8KLfqvNtY/R9VJXXCDt7w6Hh4Hom7+ynGBrSnbzYPITplusNA8B25WTI66u
aEqgvh2M3vJZNKmEvlNjYgv5g+oarKNd+Ptf6XAQNu5437RtD5pz7pwVCDRJ
NvkOdDL9PEPeFH4/4x+eqUDPX86lQt/7hYWIKLTEyz4KpC5/pnZeAl181dgA
eKwCG2tPPMJ4ra0mfPc49EbDHB23tEQdukP1Fx5uR9cWflOFxHxBtcHuh0wn
PVHcCz43Fx9yvUIcMiYL1I4vJyaOoyd1LkoB17eGhkVb0E1NMqIwzlI8lPD7
AdPDfFFC8JA3+R9vJ5p+9sgKKN0WvPFiHpplwXhYNV7RCbYdJb61jh3cKRS7
SgO0/Yela0H/kPwJhY3o7os1m2HJSY4Gw/YOrLfxpyS8T58c7MlCm376Jw2t
pS//2vihk278lYPI7jJV33XoC+EflWBByPTuOa92pjvOyGtB9qMpGRYttFT7
SW1QCMko9hZEd3P16MDhgbfndB60Mc123Vkf3l846vl7G9pewtkYHq3JWnvw
bSvTftwe5uB+X+1Mex16mPePObAdHWWVS0YPnY21AHgu+Y1LHa3+KZcG11Ka
Whsu3mNaRKTBCtJXffAX2d/C9GfLqoMg15jw8awUuvbydhvo9tltO8eBdnW6
aAPLuoL0n9c0Mx2gHG0LYaeXb4rhQz83VTsEgipV53+MNzH9Yk/pIagZt1h2
6B7avmOpPUwa5kzvPYyu6fazhzYexws9uY1Mj+fKOwDL4bKocira4KOzAyg+
nfI5+beBaVHPcw5Qnhirs/cg2mPLNwdI4br6I5P/LtPu3pmOcGjJDMXxTD3T
wYVdTlCe+vdTjypaZON3J5gVXRyr862O6YwhHmc4r7WyWcwE/UzZwhk66KLy
E9y1TE8EdDnDGm7xZ/bNt5hOUB93Bsfc3b7P/NE/rDlc4O9dpZKbz2qY3ndY
1QVk5kw3hJ6/ybSx1SUXCE+wrP+qjd6WUesCnetsrA5N32DaV+KJC7gpuCVr
WqJ/Gcy6wI127103lqCP9q50BVarw4+23rrONOtNEVfIPhrGvlQA/fmwvit8
YovKD+6oZvqS2QFX2HM+Tu1LEFok3ssVuqvPHX/y8hrT+n9PucIGzQx+jQT0
IZUsV/B8mnO9Wgm9qbfEFdgnS76mZlUxfZr/viuYhVcmcFDQ9U1PXUFtg6fJ
j5lKplPaB11hQPlofO9+9ODOT64QcIB+r7a+gmmHbz9dYeXxU3+zhNCfVv1z
heL0tL3hoVeZ1krmcIPB5+VlOlDOdG6NgBsE/bz1Xiy3jGk9G2E34OG5t4mL
Bc3ust0NyqW69k/YlzJd9lTSDXRNXp571lzCNN9lWTcY/m/08U0R9IYBBTcI
OT3BkRFVzHT2MVU34C+b1QgdLcL5h2q4QdUD9tBDOuiQT9puYDjGXaNZWMh0
WqOeG7xfsn5yKwe6ZMHADehbt4svdb+C8VIjNxDUlnH+0lHAtGYzxQ1uOKrm
PNmBTtU2dgNqhP6L6oTLTB+TZ3gs15wnbTwf35fzjPyoBjvKcQr6nBOj3sZB
jxibq5fwe5rP2K92LqBJbSV6xozRj5kgfVbEN4/p40cZ/Q7483tw5eXi/S1n
nGdVpcTgM4ccpvv4GOfV/qK5L2PLRabPn2PMI2jH/vuH3mfh8xrHmNdVV1/F
bUWZTC/8ZMxzSiCn8I1xBv4+UBjzVnnUyZsxlY7fJ3bGfUSHzdHNstLwe76Z
cV+du8W/LddMZfpR3io34HtrffD+2Dn8/kQvcQOb87EdJxJTmF7yZJ7xe/b9
gc67ukSmizI/uoK75XZhS44zTN/Y+NoVZuqjZzssEvC8K7pdQSBarbJiIppp
XdkaV6iQ8JSeMgzA78fdEFfIGjfovP7oP3x/GhnP+0BYo3z4Iid83vYedAWF
r6X1Julyaszv31kFV6AlNIoNDQYyTZ394gJ7mtkCZjRDma5/8sIFls8XHFr6
nM509tZWFxiX+Vy6RTGGaTnrDBewNK0XLo9IYpp7gfG+r8w5df3HQDLTAf+2
ukDbuI2uotw5pvXjVzDqxy54tX1IZbpa95UzrG3QvjVslMW0T6y/M3xJ/Vi4
bPllpjWtEpygQ8V08uot9I3rXk5Q8K5WcZ9zAdOd1yhOYCOd0Jl+9wrTgRdW
OEFnp8QPUb9irL/nlCOULz6sqtZ7lWnBb4GM7+PeL7tpgRVMpwTQHCDIy1XE
a20l0+vvyDpAvsfVqEcSVUzPpEzYw39PL7n/9rnG9NAJZ3tgu5QgY/LzOtOh
iXF2IKtu0/ZvrpZp4ei2/bDtQEZjPKWO6SqBoP0gENBXy3cR3RmwYz/8KzIt
E4d6pimnT1nDw1U6SZb020y7+xtbgeMbyQMVbA1MB716YAH6jQu/KmKamb7w
08UEclVD+Cyr0dwrb1Lh1+1f0n8H0Sx72ahQUPvV20i+henutnwKsFS/evvx
HVrMZsQA6gpudQlrtDI9puSuDdxbZL+0e6Pp5vVa4H6pYqnvBeImLi3gz7mi
fXcCzVlcrQGH08/V78+5z7Sp6hIA8QTfwpS5NqYnpQNkIYJz/J7i9namk4q2
ycCLGNeRYTN0lcaAFMRE2a7fXYpuYk2QgMFFLxX7etF5HjM7QI5uYRW2qAPn
ae6xHd6GGqU8skbbj5qJgOJcW+XhaDTdJH0TJB3XfLyuCt2kd1YQPv6++7np
FXFnwhqAQEVOd44H6D+nuSF16sbWVbJo+uMdHPDlsJRWjR2apSFhVlXre5m9
bQJxh+sr1Uzf7SfYaogNT3xS/f41P6tshKyv2MQC+t4b68xWPERTepbCL/c1
U3nOaHXRBH4wc1zsqcr7CM3aIArLaW9ogX6deD+vomTB+nao4L4sdNN8phwU
bhZ8s7MNbapbJQ/q3yzcR4QeMy2l3rsXAmIfBlPa0ZMmnCowVHczV2TjE8w/
xaEJO4XNnf/qo19YRWlCUMyk2Isj6DH+f5rAa76z+swDku8yqQWigaaOoUrd
uP/qDh3Yv6ot4ON7tKmKpgHQW/j6LebQ3W7lBlB41Emxhfsp03Heawxh6hXL
v2xltPr8O0M4W6wca5aMpvMcoUCLxrWMuyrP8D43W5vA2NTCnLgZutai0gRW
FVPtLrih9YtZTcFm5ReRIyno1i5Lxt/bA9vKxcbQEnd+m4JEQHbDuXM9+D14
LmQGU9YrAhOL0Db6ymZwR/WE5KnbaLrUATMw4rDPjnyHvmObZgaemVuC/WWf
4zx3cJqDTPh56f/00K9Vt5jDrBP7J/eDaP02VXNIkPxoZR+FDpLxN4eSplJ5
kx50wbGn5uB3Reir4Ue0hfiYOSgknC7QnUO/MP1nDh3mPrywpRff3z9iFpCk
8Oah4l70lxBVC7DeYBopb4S2ObzPAsY+SH+XOIIeu33MAqoe5ReLxaIVViVY
QFAVr71oFlq4P8sCOIKnu4Tuoada71rAthV15ct4+/B92jBnAd++73Besh1N
X7eUBjV9mUKsymjrU/w00MkLTfjjiA56upsGXCe/akwHoimFyjR47mH3ZzIB
PfxdlwbOsuruY9Xo898O0kBC4Nqm0Ta0XJ4LDabmN/e/GUCXP/ChwZ2RlLOv
vqEtvI7RILptsW4/az/udzKcBpSygL/P+NHOArE04Et6f6NLHO0tepYGrwMs
vR8CeqzkPA0u72/f0maGlijJpIEnKLxqdkVHi+TRQGZLScrdYDSF/woNZjkE
DevOomeiS2jQ8iVh0c189GufqzRIeDpXW1WDtnleRQOzGm+/8ofojpvXaSCY
Nbi9eAhdwFtDg7fh1DeXf6D1v92iQalzY1rukhdMi+rW0eCwgRQ1SxBdIFRP
A6Vdl9jTd6GlfBlexMtzN0UTbarBcMfvyICzlmjnFMb6pNc/dyZ4ol871tLA
utn53ckTaJXrjP2FC3szI1LQM1E3aJC2+KbIrmJ0eeo1GqxwOF86cBftzVPB
mHfDEZnYHvToLOP8s0Lm9bKfSL4JYz7+x2U0h/+h6asZ8xvrW/3wNN9LpufV
GfO1k/u+T1Ec/XzoHA16k7tfvldD146fZtzfRKVDCg1t436SMV9K4ifwQofS
wmhQxUH9k56GZov2osE2F8kI7XL0cJsDDS62cC393oxWCLNi3EfYIwHDr2gp
PQ0asLwqzfvFOoDzsZGnwTGFBLHLAmjRMTHG8/hTX2FeC23vupIGr0zFmor3
o88fYGHcZwWHPs0XHdfx3QLUPNqsKjLRCmt6LKCm7cqbA1XoqukWC5AQPenG
0YammFdbgOAbrWP239HF8YkWMGXRnMaj/wp/z+e0LMCzOm9joy26dWi3BYys
ohd6HUFL6ApZQNdDqGnNQbMUTjK+H+p3egOn0XGtqeYgnJNlu2X5a/y9fB9m
Dmlzwe+fCKM7U1zMIbpGcVqMgi5OlTUHO4lbfK/y0fb7H5rB8/i07Nha9Ovf
FYzv3cejonJd6Frxc2agkC8nd+YPOmAf43vIK1BtrmY6iM9T87t90LH4asrl
v2i/9aOmMJxS4Tu0egh/X5paTWFmcxVl3TZ0J/8VUxBTv74kkYrmHnA2hdjQ
uuDgXLR6dbMJ6E7fd9yn8QZ/L/jTjcHxiG9GuOYw5n8a1YdvSpMcFyloU5k0
fQhm9Q+st0TnCenpQ0ryYfNpT7R+X5EeNFceXeF1Dq2wxUUXhL+ERFiOooVf
dGvBG+c4D8mYEfTuaRVocVdX35KM5v6qoAKF3jP867LRLIdClcE7wL2VrRqd
d4RVCWaj9De9HkTbjy3fC3yXOXsT5N9i3EpAGmYKm8ro6ujJkv1S8Ko0KDLQ
CK3+T3435FeP7XZ0QAufUpaA3S0dCYpn0PRU/W3A00Z32H0B3RTYKQq/Higo
bL1MXGq6Be48LX7PXUcsdUAYDEfi1MdG0Sz+7/lA8r362qEJUs9zajVwf5r5
2jNL4rB0JUx9qWp9wP4O4xoSnNA/6Z7VyE3MYsYK9VPCh28KoVn0pmdUc2Ze
6JdtI5bJ+KwaMZ+06ZI0sXBBvaozi8GvNBXiL2/fqeqzLXp8Wo/YKGZadSdn
3eVIM1L/TzwL/Fi1Y5+PO4mbc3FB+Kal5Trn0ep/fNeB45bmSOVckj+uvR50
tx/fL11KHLN2E3Dt/rRkQxNZf+eACGTCA4epcfSw3KftcMM2fu1lrVGc/2l7
aUh9tfSFCxXt58khA4H7Ey6I7SfxoKsyoEA7ta7CB50k9FsWblPOCNVloNV5
6HugRTl505MJdNVtF2W4XLd6OHkWPcz5Txmi96bkWbC/x+fBNFUFdGXPbR4Q
RHO3NKnCA/HULe910Ore7OrQvS5j+1wWWipdThOupa8bu1uINh04pgkpazKL
6dfQY5H1mmCxOmvHkna0/oKqFvRzXty5+geak66qDUO/83Zv1/+A+8Vv0IXG
o5snP5mh/U5Z6kLez0tV5bZoluGzuuAwkS8tc4TEg//qwuiHAlnVHGKrZ3ow
3lu813wKTe/bbwDZ3vUitv/Q3QHRBkBd3LnCjfMj9u9TYQBVUhPvgtejWfxY
DCHwlHxSvja6KSfbEMRE9ELKqSSfvcUQXtZau9ZYfyTz+WAIKh9CVB56k3yV
XUbAqtEy9v08yd9+0whu9Pf0zOWQfJleI3Dxed/AXkLiiVNG0JHFmbruLtlf
TZoCZ39RNTTeo4U9GP+eUT9jL2E0gfabu0OB71sOr6X9IfUG+yhgsS/1q/uK
MbzP05zGIFj+KiNJHs2d5mQMnZpfozPV0FKZQcYQ9vKfb4EBWn38tDEMLxHR
rbVFVx25bgwpF2WlW9zQ9NL7xqAlp7O+0x/dLdlvDIUO7j/enEQLC8wYg/XM
8cFPiaR+OAcVliae6viZgW6S5qeC952KHI4K4uPSVNho3hS/upbUWwlUePLp
aYBQC1k/YUAFmbXThrv7SDz5EBVGry7ZoziMZrHwoEKqtsBmrc9oU4fDVNB9
tYPLeIqcvy6YCjP+yr8t/5Hz2EZSoZTT+K095yc0JZ4KB3PtHnvyoLljE6nA
tcevNmA9iXOlUqGhM+LyiW3oycEMKvg5nTsbJ4Wmz16kwubZguMpSuhux0tU
eJZU45ytTcxfQIXo7R0mhVS0PX8hFeQbXipVWaPVHYuo8MFifGu9I/EswxfG
57lbvdGmQwwbRK6cfxyIFl7FsBnNyqQqAp3ndIUKB8Ty8lNOo5ve51PBaW5s
OiCdxFNzGfPukjawyif7H8miwtFLwdmKV9FJ4WlUOBFwb0KolpynPokKsXpc
Wv9aSL5oAhWSBGlpw4/JPO4y5pfx9eKnlhfkfDGM+eY3fVC58o7k0/2pUHZu
d1LsN9J/qRsVbrgGvfP4Q+LstlS4q9i8h8L2Geedso8KbVzLEnatQueZ6lCh
vzpL6qcoibuKU2H45GhU72708F0hKoxZS/bfUkJ3G3BRYfZfQ1ioKVqKZdwY
Fj/jeGp3EM0i8dIYuK6Yimq4ooXPthnDRqO3D9lD0U0zOcawfePOjWMxaD/W
BGOQ+n7E/2EyWa8TYAya6ewCiUXEx3WNweWdmItAD7qqYoQCPjX+tbODaPW0
NgoExtcvHxwj+90tpUDcbkr1pX/oyUd+FCgP8V0QFx/H8yxhvO83qbVmK+TR
kyw9RtCweVHhhBo6SeOaEXS3p1Bu0Eh+hpcR/OStyVCNQOfd6zeE+Q//vmw6
jRZecc0Q2Or11FnT0fQr8YbAb//yQ1s5ibcpGIJS+bys6Quy38ezBhChrdXl
uPsLnu+mkD4ckNpAOa2IHr7zVQ/k1v9+cFML3a3UqAcffpbe57RGc1+01wPK
ZZ67FXS01LqLuiDA+rZs9ik679tfbahqpMenBHzFfnzdNCCh7ADHnRNfyfsv
rgFO6XIn38ehu4W/qgO/7xhd4SK6ytBfHUI3mgYN3Ufbe3wG0A/b5Ca+9hv2
t/ulEgwrNWi31KHp1noycCvPvrz2Hlr4/R1pOLtkMV/lYzQLl4w0qDzTe5c1
glaXE5KCCx5PI44uncB4+LOdYHphtEFsP7rp0lcR2P4vZtsmJ7R6U9dm+Oe0
4+ya/0i+f6UwlO/2sWWNINZ+sx4423/PvSpG07v7eeGNRKbTs2oSjzq/GmpS
VB513CEOuLQSnO0iMm92Ez9OZAfl1i2s5QPEn9gXAY94m0f+KPHArxnVz4nu
Ty98I+5unlBtnl6mmDhDnCf2SrXzqmW35qJJdJVHi2rt8HY2WEI8/+CDagHv
n72Ky4lZwqZUE3UfeslxE3Ol/lUNPp6Vu3sNcbDlYnAt9+4RFyTWfMsBqjyr
lDeLounHQ7lBTGfYZ/0OEu9t5gG+oGv5a3eR+Ocla2B80HzZSgUS501aBxkl
F17OGpH4Sepm2PeijL8ii8TTzkuDe8mFE2suofO+S8gAPfjkh9BC4netMlCx
/lCN0TW0cOhPWVjmwGP5qQ3dxGe0B1o/BaWK/kCrXxlWAoU5Hb4s/e9knvc1
wKRTJpSViq6a4NAE14ubRj3M0dxxBpqQqvbnuoIdOsn1kSb8iCo37zuCNr36
QAvKuXjPrc4l9b5X6MC9wYXZoAK0n9EnHRio+OI4XELWb9iiC0v3tclU3iBx
kVRdcE09/ozyED188rAebNo4vDpuGi3svtoAckLWrDo3i+7WUzOAjS8NuXIW
SL/Z3gyfv7nkxtIf+D5cum8A65edmnuzAT0542cI2W5NM59F0HSnTEMQuj89
Pb0d3aR0zxAE6faTy2XQUjt5jUDgl/z7vbok/3eZEVww93qraYT2K+s2grXX
8t4Ym6KH7zG+V/zeywecDqCTNilTgO/tcFeiD6nn3kSB82r8nZlH0FViwxTg
vWj04EoQult3gQI81jX3bkei8y4oGwN316naj2lo9ZByY0ja2XzzRxaJr243
hlXxv6r/5pF+FoaNYaW2w1XeMpI/yEOFs5fSSjdWoYU7Gb8XKxYeFe24SfpZ
pcn4Pa/fk6/WiDZN9KHC6bXeuYataJZHUVRYfvRSNu0BiVtfoMIyKa50rx7S
v3MjFTgLR06lfyT15dhNIG7x2vj8L2Ren/lMgMOBEnP1O+nv6xYTWLL+Fv3e
HOmvX80EYo5/Ceti+YnP112KCbD3bw55yY62/2ptAmwpp49OrEJ37/Q1geiJ
5sOzfOhhheMmsNj4ty+7IJp+NtIEIksl/uPehDaVOGUCrJyOnkKipD7POUbc
Jd1t2w5SDzJNYNG9TmfpXeim6jwToAuzOqrIkvX/FZoAy4m9h/QUSPy/MhMo
Ox6X1KBK9uOoMgHLoy+b5bVIP/evM/bzF/9Zro+eLK4xgaveIaKiVLJfZa0J
WLt30rLMyfqBOsb5nDfE8uwn+4nVm0DlIZ/aeDuy/gIjfuBg4ycW5/+dh7Ge
3YpbKMgDXTVy0wSqzBwoEz5kXnXVJmBDrQ5zDUDnVVcw5m+4uHLwOIk/LjGB
ah2LYYtwUm9pgQnYaVxZ3RmNVne9aAJLVX9paiWQ/d+lmsANBb2A+kTSb+QZ
Ezgkd+GKdCqppxFtwngePvUVZ5L5CAebQM1OJU7hPFJPmHFfDttPKaZfIfXU
nEyAa8trz5VlpP9wSxOo3SiZfbIKnfRG3wRW8j/5d+Q2Wb8gbgJ1q4WlxpvQ
LI2CJuC8wt/BsY04d6kJ1LPxtpo+JfNvGKWCC4vzdHsf2e9fNxW4529sU3tN
9jt0hwpuPy3jJT+i/SIZf8/xTBTVF3wh+drHGX/Pfp4ZF/rxv/twoDLe30zq
sr9oYfNdVGjqHuL9yDOF54UGY/Dq3K1jJ4Bm4c4zBv4OemDvBnQeW4Qx/Nco
8vKeGHrYWp3x740K15w8QKvX36DA/ZJbT9Zqo7mvJVLA7wrnokQDsr7LgwLt
2aVOYRboKroQBQJOfRM74Ik2fRJgBF3ugdd500h++YIBBF0q2++fRWzQZQAi
A8MLXXloKeFsAwg0MqIklJH1ofKM7+Uu4fcszeikZYf0wefnA/5v46QfE8a/
HwUkFu4YfUdPfjPVhRZnOaeSX2h6P48u8PflVDovmsb1sed1oKH2iP4rfrR9
VKI2rDyxIbhDA50376wJtTVmwtv00MJ16zXBcSK2LYqCbnrWowE19j941KzQ
w5vVNcBOq73spjeJ71+tDhWc/oP56aT+4t3KQD3Xqh72ldSjhkqBvbVm6Ikf
aLp96W44vKHpVvhvtHrhgV2QXnR7V+SiX3hfXTU7Yfh29frYNcTadtvgB13K
Ok4Qrd7KthXYdSvOxW8i8T8lW0C8u2TZ6R3opqxJYTgymjeTpEriv4b4IaZk
o1yKJvFNAT644JPte06PWM90NdyZSf+Quo/Y8DAHdN1dI5JuSSzQuwhGIs/Z
XjhIPOU2ozqltzojw55YX+Wz6pIVic8zXYibntxRFXjGxZ3tSZzH/05VPD3B
6KIvcdznKVUVG87YnABiBTEWMNkc05J7nNh1iB0uyIdVFZwhzvDkh9LZ2fEr
KcRjlHVwpzFoe1E6MV1qPYwYBOSUXPrffn+FQdzO63TFTTT9Rtc2uBOz3712
kMyvQUMaRvrlhTslf2O+MosqbFJ+kqgoi1bXeKQKtjnuC4UK6CaeNICXzllD
EVpoevgadXj6neXi3v3ENcUa0Ly8c93laFJv5r42XFJz5A1+hbb/0GEIb/Ln
Ij8Oo4eHthrBhiWpPyw+oPNcI40go7P96e7vpN5aJQok75dMer9kBvNvXDaG
iCMzXPtk0JMNu0zBoejsErF4dJ5KuRlwpvstVzyLTsrqMoOKGDNuw3NoloJJ
M5h14Rf0vkjiV2XN4bxojmTVNXTVyZvmoMRHl2muQUvx9ZrD8GLHvc9uo5u0
psxB8t1Wjan7ZP9IaQtou3TVQmGA9OdUZAHeyYn7Dd6ghYfvWQBPhL/dgVFS
f/qNBRyyl3cP/UbqjfHTYGbj3ZAm1j943mfhNBDP7szX34nufqNiCd2nKor2
S6HzQs0sITAkqdxTnuRfdrOEewcsak6roSdPJVmCzbrXD7rN0U0Vry2BdWlD
14g12i/qmyWUzOT2/LBFq79asIRf/U6DfO5oU+7NVpCYNj5pHUr2C7a1gj0x
j6c9ItD2pl5W8Ppo5WxwDKmXH2QFYrQjbBeT/pDvRbIVdGnTllakorlDL1rB
Ubm9KxszyX61xVbQwju3dqQAnZRx1wrcFw+u/1FC8lXbrWDlz4bNiytJPatu
K7jxNm8b3w101YcXVnDwWeTOrXUkPj5sBawtzlJ7GkjcacwKiq/pyuvdI+c3
mbAC6iUxJesOMq+KaSuYSlqm5vGYnCd8zgoy7nbX2j8j5y1msQb4nCZj3U/m
qcduDe/4bctNXhPbLLWGOK0t2/RGyLw+clmDpN+nXPhA+vmwyhqeZVeu2zNO
zmfNYw3HHhw9JzlJ9gM+a1j/S3nF1mlyv2lrrKFZhDV2/Szpz4HfGlxNOlj4
Fsj6iwwvDz0bvJxtFs9nyHBVscUU61K0vTtjPa1X0Gd2Bbp7mtcaZheNfPzO
Q/J/rLaGvF1FDp/WotXtGP3pHPzv1fB6tKkCo//PsbK0F5vRUnROa0i68afr
yTZSX57NGuRHGvXbd6LzrBasYGBFTEuDFJrlwx8rCFeiqNTIk/rDP61A1I2n
5qoSelLnqxX4NOWUZGujhc2GrID3q/OW8wak3u9eK6hdt/PiKSrpf8ljxn0e
uZUUbE1sX2cFRblhyw7boptKK6yA0qkV7eFI4jaXrSBta/cxa2/08O8EK1A2
S/tu4k/OMxxmBcMnbLz0Asl5dvtZgfiLMbs9dHJ+FnMreMJW+ULyJOknQssK
AqSPmm1NQPu5y1pBY8IiXb7zxC6rrcD5Vnvj8gw0dwjj/Vk2ekZxcQ6Zx/QX
S7BQFZT8UUT2W9NmCWMTMnzdt8k8WPwt4cz6P2fam8h+sgcsQcagkaPxPpnP
A01LCM03mrv6hNRfz2MJ3DTnt6fekX5tS2hwM0LcJmqMnD//DA0OVEz2Bn8l
9Q38aVDAEfbA4zfJb9hDA8X61Cq95XMYV663gGUnj9mVcaPpTWkWMGCyn2sV
P5rl1GELCH2/3r1PmORPbreAJu6CTS570PbsCeaQ/Ork4w5ltHq9vTk4FrqF
SGig827uMYfFKjv7fxqhTSOGzUDXrfpspAO623+nGayVOa/ywRUt5Ti/D8bm
j3428EYLZ3Xug/gURd3Vx0i9Mc990Hm36W/uabJ+LscUzPieeN+9RfrteWgM
W95UCW6+S/qTsjSGqZKUjugW0t8uxr/fUtUsRSmPyXlXTxrBC8/BVwNvibMY
f4/ZNY8bzqyYR695owOePpw7ZJ3R6tesFeHyfRlvJQ80i5asArxeb1up4UM8
sHwvUB9dkzcNIut33pIDGbGDmv+dJvGCr7vBK/zkyYBkEuePloSCvsqOkDQS
f82/E/hPspkk5JF4hPQ2mBu5erDoBoknBwmAnOKLnIo64gpvXvBJYn17s4GY
/wYXFH2U2Hr3HnFoBCsMg5V7awexe9Sk6rq0iLJHj4nzrLtVzb6WfXv2jDjg
wYzqKe0+6YF+Yq5HS6A1i+XoyGvibznc8PeHeO3YCDF9aA3sMaTNTXwglhAV
guKZkoh/k6T/qmEROE0zPyvE/hftmicJ98vDnoosQ6vn7pSCf4uL+cRXETvG
SYNf9Xymwrq/5D515IC2qrCIJkl89YkibHww05RIQzc9Oa0JlSo5PxcXovNY
djL+/pcZ9TxWRnzsNxWCtou//VxF1su2moAmT03309voJOlKU+j7+Phq7lN0
1SlDM5hP+eum/BfNnRZFA/1PNq8PW/zD/s6MH4SrQ/nmH/aj6Z2mNsDzfOzh
/kNo4ec3beBVQ0CduieaRSrcFnzOn05bSUcn3Vt5CM6r3TEtLUOPGa5ygJFU
ofsjrAtMC/BPO0HF2tKnMxzoIIWNzhCaoTC0agWJr9FzBv6LtN+qa9FJv9Od
wbAgcUfmTrS10h4XqK5efNbMAs0Z4uQK4XIpmR770TMXYl2BUiNcRLdDXzhQ
5gof6lSbKtzR3Pe+u4JQ87Efy8IWyPcp2A2in4xb3rtC/C3QHfbtC3YaKEXr
Z513h409nH7fK9H2z6+5Q23f1vhN9eixD5/d4cvgodshXcTOVh5Qd+hbe0oP
mk7194CYkdDnJS/QfnUJHiD8PuNr/1vSz4o7HkD70rNJ7jf6RZSAJ4j4OEoY
zaOFTXZ5wsyxoPXXGHfD/L4kaXnC/T9LdnSwoxV8vD2hXIlaac6JVueke0JK
SKr8m2Vod55znnDo7xbNX6vQQf63PEEXvDoieNDF9zo8QSK8mrpiDalPf+kJ
f1g0DooKojtk/3jCsEbcSOV6dPd2Ti9oi3ziprwJ3UTn94JzbHYBZqJobhtp
L5hxWiv/dBv6Qo6qF9jd65422UHydQ28oFUkoaZrJ+nH3MILxCO1jhnvIvvf
s/OCpJH5vZ1SaIFUdy/4pV4zYyiLprf7e0HLgliwvgKJG0R6gdiht0rtSugX
qfFecLYha05HFS0GSV4wtYF2p1UNPaae5gUHwlaGaWmS/rKzvKDpdbtqizaZ
n2meF2xTifinrkf6O1DgBaezlBobDdBS9UVe8GP2ZzhQyP4+pV5gfeCq+l0q
eiag3Asa6lwXqewj9R9f9QLRdcIt9eZkfoEVXpAQ9DJS0ZLcjy/Dk/0pWrXW
pN8aRr7lXgrb3oMk34BR704a+/2btmi/HYz9Nv9qOClnT+qbM/qJoQXpXnck
82u/7AVfbkhzyLiQ+lG5Xozfj/H2Kjd0VUymF9QeKYjb7YkefnLei/F82xpU
eJP7szvrBdEya5dJ+pLzScV6wefk7odl/mS9drgXmH6PPyUegJ7MDPSCGlMt
Skkg6Uf6Py9YXzXPJXacPF8cTl4QuarmcWEIyRey9oIxH9+zW0+Q+/yP4gXU
LjGTAjrZf07NC25Ivl21JYo8L/dkvID+xSJZOI7cDyvjeftgtNIsN4H0f3SJ
F1DK2nk2niH3JfzLEwQ8lc4LpZB58fd4QuXHTen82aQ/jyhP4NN7aZWaQ9YH
/ecJwYUpAnyXyPt0y5LxfriwZ64uROfd3eYJQ28/Z3NVkXr9jPdVW7PA9lQ1
mkU3zwNKL9luXHaTzOd1pAcE2nfnctST853Q8YCVQzfzWVvJfYY1uUMCV1jY
rTZSb3mmOyxR1rb2foC2P3fYHf6mP1vR10Xu86ww4/uybyKo5CV5/tb6uYE7
vcbc7jXZz1bDDUYrwnbxvkEnpa92g1fLuUZDR0l8pMIVHt4XMzGdIPO889oF
dKcmdrD/IOeLu+ICLSK32OqnyP6a/7lAXbhO/ZZZMp+QP85QrOi49TfbIux/
hs0ZYq9mzV0URAtXfXQA1teOfWYb0H7rch3gxDLxaxzCaHUPmgMEutW6+m8l
vtNgD66be59qS6FZLDgPgXbqyuJxHbS91I390HSvNzJPn+Q3L1iDyo9sW5oR
yd9kYA2yJjt5G03J/lq9liCyVP9EykESV+sxB5awCAtFfzQ94rEhVH3/8qfx
CLqpS9kA7F2tc3UDSb5joR40mez+bB5C4vZ+2kAXGQz3OUnWb6hSBql0/a3T
sSQ/d58CDC+/8TAkgcRfjMuB+nTCmvhEEl+3RgImPX7Vr0ohFtu4FfKGHOzT
zhPXSK8HU/PH7BvSiYXXcMFCu0LZ5QxiloRy1QqVAlPxbGJRmRVgd23Vr6oc
YpU1G6Ah84N6w2XiISlJOPHf+b4XV0k/T5NV4R/P5KKVLcRazlSoiD1YdL6V
zEtZ1hTs5tsoQu1k/YT8Pmh4fzFdrJPEBdXNIazWSFKrD50n6mYF87ZF1kGf
iTn+HoK5YrvKtzyseN8S/B7Q9KXfJ3cNOsm9jvF7J7Vvl40Asb6tJ/DUal3t
3YBm+VjI+N63i5V1iKGFVTV8wPr9j8IKQMcltvvDjc2xOcGeaO52xWMQ7MJi
t/c/tP3n5GOgXnJ8w5Qvqb/h8zF4JOWd/d9RdFBJZhC8VduXaU9Hd6yaPw7c
dkJpumkkv/luKPyXWXmGpwX9xZwvAhh/jsW2tJLzfFONgBm7mIjD7aQfJ7cI
iNxie/RZJ1quvy4C0sqX2ab0oztrbCKhqcFFgucr2nTkQhSwb963rWUCrXKo
MQoMo1SED/9At2a/j4Lnerx8z36jvU2ko+FTd9NcMutipm3s70cDzzuhR6sF
0FyJQyfBSofjfrMgelSMJQayi340+G9AqzhvjoHt3g+qn4qgo285xoDKdGBm
siTa9MJwDERYOZ7XkEJLLFmIgbY647PfZch+7BtiwfSEaOQ+BfTpSqtYcOF4
5rFaC50X1B4LpR53nZp1yP573sbC5KNiW399dPHR+VgITgrf99QYLee9Ow7O
rpNUTLZG+7EkxkFPiICsxkG0VMyVOBAYWiz53RY9H3w7Di7nDwjvc0KPFb+P
g9qdcZyrfYj7ZOJB+vnaxyl+aG1PrXgoDS1K5juCHvY1j4eLj9sEBYJIvw/9
44E/0PJNRjB6RogeD0kbP1wWCkOLvjgTD5G+7JKbItHO8UXxML829XteNPp8
8PV4ONokWiMSS/KfNMTDN/cbwQXxpF70g3hwX62ttu00WiGzJx5G6noWF59F
s6wYjIcDjk4dO5LR+q/ex8PzZT9Pl50jXvwtHoyvR+6TTCP1Iqfjoe0gD3/l
BbS39Xw8qLPlD0hloasiWBOgrlw6t/oimf88RwLI0Jqd5PLQU+1cCVD+11Ss
Jh/NOcKdAFsLh7/svUL61+VLgByq37W6IjK/af4EEPi9cFS5FE3/IpAAybmJ
SnfL0c93CCbAMv1NC1CJppQxHD1Zca/pGrkPH4b/XoA4zRvoG4fXJUCgRhel
tYb0e2NtAkx+sl2tW4d+LbMmATxSvva230arj69OgLdKYZkGDegXr1YkwMF3
XIceNZHniXVpAjw/lb3F+B661nZxAlDlJMa67pPzfmbMp/317XLTDrR7MWN+
6ieN/J89RK8//zUe6iVfyVs8Jvllo/Eg2+c52/uEPG9fB+Kh/MRsg9Uz8j5Y
d8fDtu0JUS+foy+MtcZD7pN1+gf70cIXa+NBIKiEa/AluvtIWTykCCs+tXuN
TvK8GA/LH3SkDg+hg8LPxkO0v/UBxxHy/FediIdjLcfeuXxAx9nZxMOkJ0fx
xzF0eb9BPHjypnt7jKM7nPfEg41zzbT3JOm3mise+rh067/9QHP7/YoDk5u9
J/ym0XyKb+JAc8k0R8Asub8PV+PgdkV05/Q8eZ7bz8WBnBVf8rEFMv/yoDjY
XiwrGMLGxrTKcbU44DI8LBG5El38qSkWsppXLVdaje5oyYoFccWrn77zooPs
j8aCgdhYocM6dNwb0ViIWWK3WUMU3XolIAbWnJhbmNmG5rPViYGC6QtDVTvQ
w618MdAy2pMlvBstml15EhZaDPhZlNAU0d5oOKv0ceqWCrpWMCsaNlZH9/iq
oYUrDkWDyqXGpDfaaO780SgICpdf3miC5gwdjIQfyptZTrigq77F0SHiesOQ
vDvpN3MvHbh32tz96onuDn0QDrsE04Nt/dD6jwJOgNcM17RKCDrpy5UQmPUt
7ZkKQ1sbfw6GhI961eV0ND10ZzAU90X6ro9BC+wpCILRGzOf5pLQk0U+R+GI
RFrH9XPk/CsyAoC1QLbIKw1tuqXpCGw+5+P8KgstRmU7DHb+o0P1hSQ/ssMb
vo5F3D1cglaP+OgJofabssXLSf9FC+6QaXJgf+Y1sp+ZkAv0S3b3HL+DZpn6
tx8yx1eHLW4k9drXWIJdifm2M83opoPCZrDZLfUJfys5j4kqBUZF+4Py2khc
Z7M2FL8VEBF/QOK8L/eCV96BR9cfkfrOM+thl112gGoXMeeGLfBDaGhDezfx
yGkluPlyU7tpD+n/zJAOBKU7+A30knhRIhUWeN63fB0g9SM2WgPXsi9ufO/R
fr7SLvCkXXJ1zkeS3xbvBiknfeu3f0ZLHRnzgHWLfnIpT5D4y1of2Dbz55rD
H/QFdvMA0PjAMV+xgh2fh9yXJ4CtwOCKAjdazGc9HTocTlFbeNAXCh/TgTq4
8lLvWrTze7lIsHm+Rnd+M/pFKv9JCGzZkmSwBz1/eNspKMtREx21Q2cfUTwP
34J/cjg4oBPWF58HKaui8UEnNHfY2lSoWbXqer872tVhJhWa6EMajw6T+tkt
6dDnGHaoOgZNmTiWBXLPdlnuzGJX////X9P/AVsIVoM=
     "]], 
    LineBox[{{2.9837470913956463`, 4.698071850262425*^-7}, {
     2.9867861601537946`, 3.9205578872270053`*^-7}, {2.997450292519863, 
     8.194555789486913*^-8}, {2.99749013042373, 8.06891122806519*^-8}, {
     2.997529968327597, 7.94319241492758*^-8}, {2.997609644135331, 
     7.691527770248285*^-8}, {2.997768995750799, 7.187293959987073*^-8}, {
     2.998087698981734, 6.175196531899019*^-8}, {2.9987251054436053`, 
     4.1364387470821384`*^-8}, {2.998764943347472, 4.008369813846002*^-8}, {
     2.998804781251339, 3.8802248525371397`*^-8}, {2.9988844570590727`, 
     3.623705424615764*^-8}, {2.9990438086745406`, 3.109748902829779*^-8}, {
     2.999362511905476, 2.0781676823844464`*^-8}, {2.9994023498093427`, 
     1.9488751945573313`*^-8}, {2.9994421877132096`, 1.819505968114754*^-8}, {
     2.9995218635209437`, 1.5605365888404776`*^-8}, {2.9996812151364116`, 
     1.0416783879918512`*^-8}, {2.9997210530402785`, 9.117716359696715*^-9}, {
     2.9997608909441453`, 7.81787079517926*^-9}, {2.999840566751879, 
     5.215895271248883*^-9}, {2.999880404655746, 3.913743995553887*^-9}, {
     2.9999202425596128`, 2.610821780990591*^-9}, {2.99996008046348, 
     1.3071321802726743`*^-9}, {2.999999918367347, 
     2.675193400136777*^-12}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{-1., 3}, {0., 4.698071850262425*^-7}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.4456015750111313`*^9, 3.445601712880979*^9, 3.445601800871771*^9, 
   3.4456022238064003`*^9, 3.445602378553671*^9, 3.445602655946286*^9, 
   3.4456088003766823`*^9, 3.445609010633951*^9, 3.445609091527849*^9, 
   3.4456092374910307`*^9, 3.445609540111279*^9, 3.445609696414515*^9, {
   3.445609762721992*^9, 3.4456097892346687`*^9}, 3.445609831838702*^9, {
   3.445610268537582*^9, 3.445610307175644*^9}, {3.445610381468202*^9, 
   3.445610399149932*^9}, 3.4456108653415537`*^9, 3.4456110467464046`*^9, 
   3.445611172819129*^9, {3.445611299159953*^9, 3.445611328969179*^9}, {
   3.445611435322495*^9, 3.445611455889382*^9}, 3.445611486115994*^9, 
   3.445611594651504*^9, 3.445611742283781*^9, 3.445611836426261*^9, 
   3.445611921142049*^9, 3.445612028957547*^9, 3.445612093472924*^9, 
   3.4456122322707376`*^9, 3.445775716816437*^9, 3.44578019028598*^9, 
   3.445856383187598*^9, 3.445944739711487*^9, 3.445944870702545*^9, {
   3.445947837981883*^9, 3.445947845337119*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"An upper bound for the error in using  \"\>", 
   "\[InvisibleSpace]", "11", 
   "\[InvisibleSpace]", "\<\" equally-spaced nodes is\"\>"}],
  SequenceForm[
  "An upper bound for the error in using  ", 11, " equally-spaced nodes is"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.4456015865182962`*^9, 3.445601753454194*^9, 3.445601858886375*^9, 
   3.445602281663096*^9, 3.445602379190877*^9, 3.445602656578628*^9, 
   3.445608801036373*^9, 3.4456090112643013`*^9, 3.445609092173718*^9, 
   3.4456092381197968`*^9, 3.445609540214663*^9, 3.4456096964806128`*^9, {
   3.445609762786927*^9, 3.445609789300913*^9}, 3.4456098319039803`*^9, 
   3.445610268603636*^9, {3.445610299029827*^9, 3.4456103077790003`*^9}, {
   3.445610381432757*^9, 3.445610399113985*^9}, 3.4456108653045397`*^9, 
   3.445611046711111*^9, 3.44561117278363*^9, {3.4456112991243267`*^9, 
   3.445611328933964*^9}, {3.44561143528401*^9, 3.4456114558619413`*^9}, 
   3.445611486091566*^9, 3.445611594615296*^9, 3.445611742248108*^9, 
   3.445611836388829*^9, 3.445611920510149*^9, 3.445612028718822*^9, 
   3.4456120932184343`*^9, 3.4456122322050962`*^9, 3.445775716751371*^9, 
   3.445780190224999*^9, 3.445856383135578*^9, 3.445944739654614*^9, 
   3.4459448706515713`*^9, {3.445947837913556*^9, 3.4459478453608294`*^9}}],

Cell[BoxData["0.00007658622532643076`"], "Print",
 CellChangeTimes->{
  3.4456015865182962`*^9, 3.445601753454194*^9, 3.445601858886375*^9, 
   3.445602281663096*^9, 3.445602379190877*^9, 3.445602656578628*^9, 
   3.445608801036373*^9, 3.4456090112643013`*^9, 3.445609092173718*^9, 
   3.4456092381197968`*^9, 3.445609540214663*^9, 3.4456096964806128`*^9, {
   3.445609762786927*^9, 3.445609789300913*^9}, 3.4456098319039803`*^9, 
   3.445610268603636*^9, {3.445610299029827*^9, 3.4456103077790003`*^9}, {
   3.445610381432757*^9, 3.445610399113985*^9}, 3.4456108653045397`*^9, 
   3.445611046711111*^9, 3.44561117278363*^9, {3.4456112991243267`*^9, 
   3.445611328933964*^9}, {3.44561143528401*^9, 3.4456114558619413`*^9}, 
   3.445611486091566*^9, 3.445611594615296*^9, 3.445611742248108*^9, 
   3.445611836388829*^9, 3.445611920510149*^9, 3.445612028718822*^9, 
   3.4456120932184343`*^9, 3.4456122322050962`*^9, 3.445775716751371*^9, 
   3.445780190224999*^9, 3.445856383135578*^9, 3.445944739654614*^9, 
   3.4459448706515713`*^9, {3.445947837913556*^9, 3.445947845389618*^9}}],

Cell[BoxData["\<\"REMARK: This is not a valid error bound if Mmf above has \
not been set appropriately by the user \"\>"], "Print",
 CellChangeTimes->{
  3.4456015865182962`*^9, 3.445601753454194*^9, 3.445601858886375*^9, 
   3.445602281663096*^9, 3.445602379190877*^9, 3.445602656578628*^9, 
   3.445608801036373*^9, 3.4456090112643013`*^9, 3.445609092173718*^9, 
   3.4456092381197968`*^9, 3.445609540214663*^9, 3.4456096964806128`*^9, {
   3.445609762786927*^9, 3.445609789300913*^9}, 3.4456098319039803`*^9, 
   3.445610268603636*^9, {3.445610299029827*^9, 3.4456103077790003`*^9}, {
   3.445610381432757*^9, 3.445610399113985*^9}, 3.4456108653045397`*^9, 
   3.445611046711111*^9, 3.44561117278363*^9, {3.4456112991243267`*^9, 
   3.445611328933964*^9}, {3.44561143528401*^9, 3.4456114558619413`*^9}, 
   3.445611486091566*^9, 3.445611594615296*^9, 3.445611742248108*^9, 
   3.445611836388829*^9, 3.445611920510149*^9, 3.445612028718822*^9, 
   3.4456120932184343`*^9, 3.4456122322050962`*^9, 3.445775716751371*^9, 
   3.445780190224999*^9, 3.445856383135578*^9, 3.445944739654614*^9, 
   3.4459448706515713`*^9, {3.445947837913556*^9, 3.445947845423077*^9}}],

Cell[BoxData["\<\"*************************************\"\>"], "Print",
 CellChangeTimes->{
  3.4456015865182962`*^9, 3.445601753454194*^9, 3.445601858886375*^9, 
   3.445602281663096*^9, 3.445602379190877*^9, 3.445602656578628*^9, 
   3.445608801036373*^9, 3.4456090112643013`*^9, 3.445609092173718*^9, 
   3.4456092381197968`*^9, 3.445609540214663*^9, 3.4456096964806128`*^9, {
   3.445609762786927*^9, 3.445609789300913*^9}, 3.4456098319039803`*^9, 
   3.445610268603636*^9, {3.445610299029827*^9, 3.4456103077790003`*^9}, {
   3.445610381432757*^9, 3.445610399113985*^9}, 3.4456108653045397`*^9, 
   3.445611046711111*^9, 3.44561117278363*^9, {3.4456112991243267`*^9, 
   3.445611328933964*^9}, {3.44561143528401*^9, 3.4456114558619413`*^9}, 
   3.445611486091566*^9, 3.445611594615296*^9, 3.445611742248108*^9, 
   3.445611836388829*^9, 3.445611920510149*^9, 3.445612028718822*^9, 
   3.4456120932184343`*^9, 3.4456122322050962`*^9, 3.445775716751371*^9, 
   3.445780190224999*^9, 3.445856383135578*^9, 3.445944739654614*^9, 
   3.4459448706515713`*^9, {3.445947837913556*^9, 3.445947845456588*^9}}],

Cell[BoxData["\<\"*************************************\"\>"], "Print",
 CellChangeTimes->{
  3.4456015865182962`*^9, 3.445601753454194*^9, 3.445601858886375*^9, 
   3.445602281663096*^9, 3.445602379190877*^9, 3.445602656578628*^9, 
   3.445608801036373*^9, 3.4456090112643013`*^9, 3.445609092173718*^9, 
   3.4456092381197968`*^9, 3.445609540214663*^9, 3.4456096964806128`*^9, {
   3.445609762786927*^9, 3.445609789300913*^9}, 3.4456098319039803`*^9, 
   3.445610268603636*^9, {3.445610299029827*^9, 3.4456103077790003`*^9}, {
   3.445610381432757*^9, 3.445610399113985*^9}, 3.4456108653045397`*^9, 
   3.445611046711111*^9, 3.44561117278363*^9, {3.4456112991243267`*^9, 
   3.445611328933964*^9}, {3.44561143528401*^9, 3.4456114558619413`*^9}, 
   3.445611486091566*^9, 3.445611594615296*^9, 3.445611742248108*^9, 
   3.445611836388829*^9, 3.445611920510149*^9, 3.445612028718822*^9, 
   3.4456120932184343`*^9, 3.4456122322050962`*^9, 3.445775716751371*^9, 
   3.445780190224999*^9, 3.445856383135578*^9, 3.445944739654614*^9, 
   3.4459448706515713`*^9, {3.445947837913556*^9, 3.4459478454900103`*^9}}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{
  3.4456015865182962`*^9, 3.445601753454194*^9, 3.445601858886375*^9, 
   3.445602281663096*^9, 3.445602379190877*^9, 3.445602656578628*^9, 
   3.445608801036373*^9, 3.4456090112643013`*^9, 3.445609092173718*^9, 
   3.4456092381197968`*^9, 3.445609540214663*^9, 3.4456096964806128`*^9, {
   3.445609762786927*^9, 3.445609789300913*^9}, 3.4456098319039803`*^9, 
   3.445610268603636*^9, {3.445610299029827*^9, 3.4456103077790003`*^9}, {
   3.445610381432757*^9, 3.445610399113985*^9}, 3.4456108653045397`*^9, 
   3.445611046711111*^9, 3.44561117278363*^9, {3.4456112991243267`*^9, 
   3.445611328933964*^9}, {3.44561143528401*^9, 3.4456114558619413`*^9}, 
   3.445611486091566*^9, 3.445611594615296*^9, 3.445611742248108*^9, 
   3.445611836388829*^9, 3.445611920510149*^9, 3.445612028718822*^9, 
   3.4456120932184343`*^9, 3.4456122322050962`*^9, 3.445775716751371*^9, 
   3.445780190224999*^9, 3.445856383135578*^9, 3.445944739654614*^9, 
   3.4459448706515713`*^9, {3.445947837913556*^9, 3.445947845523447*^9}}],

Cell[BoxData["\<\"Divided Difference Interpolation\"\>"], "Print",
 CellChangeTimes->{
  3.4456015865182962`*^9, 3.445601753454194*^9, 3.445601858886375*^9, 
   3.445602281663096*^9, 3.445602379190877*^9, 3.445602656578628*^9, 
   3.445608801036373*^9, 3.4456090112643013`*^9, 3.445609092173718*^9, 
   3.4456092381197968`*^9, 3.445609540214663*^9, 3.4456096964806128`*^9, {
   3.445609762786927*^9, 3.445609789300913*^9}, 3.4456098319039803`*^9, 
   3.445610268603636*^9, {3.445610299029827*^9, 3.4456103077790003`*^9}, {
   3.445610381432757*^9, 3.445610399113985*^9}, 3.4456108653045397`*^9, 
   3.445611046711111*^9, 3.44561117278363*^9, {3.4456112991243267`*^9, 
   3.445611328933964*^9}, {3.44561143528401*^9, 3.4456114558619413`*^9}, 
   3.445611486091566*^9, 3.445611594615296*^9, 3.445611742248108*^9, 
   3.445611836388829*^9, 3.445611920510149*^9, 3.445612028718822*^9, 
   3.4456120932184343`*^9, 3.4456122322050962`*^9, 3.445775716751371*^9, 
   3.445780190224999*^9, 3.445856383135578*^9, 3.445944739654614*^9, 
   3.4459448706515713`*^9, {3.445947837913556*^9, 3.445947845557537*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Using \"\>", "\[InvisibleSpace]", "11", 
   "\[InvisibleSpace]", "\<\" Chebyshev Nodes:\"\>"}],
  SequenceForm["Using ", 11, " Chebyshev Nodes:"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.4456015865182962`*^9, 3.445601753454194*^9, 3.445601858886375*^9, 
   3.445602281663096*^9, 3.445602379190877*^9, 3.445602656578628*^9, 
   3.445608801036373*^9, 3.4456090112643013`*^9, 3.445609092173718*^9, 
   3.4456092381197968`*^9, 3.445609540214663*^9, 3.4456096964806128`*^9, {
   3.445609762786927*^9, 3.445609789300913*^9}, 3.4456098319039803`*^9, 
   3.445610268603636*^9, {3.445610299029827*^9, 3.4456103077790003`*^9}, {
   3.445610381432757*^9, 3.445610399113985*^9}, 3.4456108653045397`*^9, 
   3.445611046711111*^9, 3.44561117278363*^9, {3.4456112991243267`*^9, 
   3.445611328933964*^9}, {3.44561143528401*^9, 3.4456114558619413`*^9}, 
   3.445611486091566*^9, 3.445611594615296*^9, 3.445611742248108*^9, 
   3.445611836388829*^9, 3.445611920510149*^9, 3.445612028718822*^9, 
   3.4456120932184343`*^9, 3.4456122322050962`*^9, 3.445775716751371*^9, 
   3.445780190224999*^9, 3.445856383135578*^9, 3.445944739654614*^9, 
   3.4459448706515713`*^9, {3.445947837913556*^9, 3.445947845591332*^9}}]
}, Open  ]],

Cell[BoxData[
 GraphicsBox[{{{}, 
    {Hue[0.67, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{2.9796428837618656`, 19.680787061009102`}}]}, 
    {Hue[0.9060679774997897, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{2.819263990709037, 16.764507297148626`}}]}, 
    {Hue[0.1421359549995791, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{2.5114991487085168`, 12.323390814769505`}}]}, 
    {Hue[0.37820393249936934`, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{2.0812816349111953`, 8.014734297934366}}]}, 
    {Hue[0.6142719099991583, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{1.5634651136828595`, 4.7753397043901415`}}]}, 
    {Hue[0.8503398874989481, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{1., 2.718281828459045}}]}, 
    {Hue[0.08640786499873876, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{0.43653488631714066`, 1.547336222413167}}]}, 
    {Hue[0.3224758424985268, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{-0.08128163491119511, 0.9219340060761627}}]}, 
    {Hue[0.5585438199983166, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{-0.5114991487085168, 0.5995960210946905}}]}, 
    {Hue[0.7946117974981064, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{-0.8192639907090369, 0.44075593561806675`}}]}, 
    {Hue[0.030679774997896203`, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{-0.9796428837618654, 0.37544515247408955`}}]}, {}}, {{}, 
    {Hue[0.67, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{2.9796428837618656`, 0.}}]}, 
    {Hue[0.9060679774997897, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{2.819263990709037, 0.}}]}, 
    {Hue[0.1421359549995791, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{2.5114991487085168`, 0.}}]}, 
    {Hue[0.37820393249936934`, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{2.0812816349111953`, 0.}}]}, 
    {Hue[0.6142719099991583, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{1.5634651136828595`, 0.}}]}, 
    {Hue[0.8503398874989481, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{1., 0.}}]}, 
    {Hue[0.08640786499873876, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{0.43653488631714066`, 0.}}]}, 
    {Hue[0.3224758424985268, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{-0.08128163491119511, 0.}}]}, 
    {Hue[0.5585438199983166, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{-0.5114991487085168, 0.}}]}, 
    {Hue[0.7946117974981064, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{-0.8192639907090369, 0.}}]}, 
    {Hue[0.030679774997896203`, 0.6, 0.6], PointSize[0.02], 
     PointBox[{{-0.9796428837618654, 0.}}]}, {}}, {{}, {}, 
    {GrayLevel[0], LineBox[CompressedData["
1:eJwVz3s803scx/E1s7nUMOTUHolIYtJlp1zS95PqiAdSrY5zjqYyyXGseJRu
5BbxKOc4dqIonVokxiYqdrLfIbdOuZQ0PYaRKaWaYuEMO9/zx/vxejz/fNse
PLIrnEwikQLx/m/IWdYLnU5N+D6O2rv3ghz1f/ExHdeoib/OOhx5mCNH+yPC
/N+MqokzmkUK+3w5Cg/Kb3wqVxP9gjzxTIkc8ZcZ3LsiVhNX+TGhrc1ylNw8
dGldqJowCUxK7CT3oGJ6wfcRsk8E8922iZL4HjRWaKhoj/9IhGwtMi068QqV
3rF6kfroPZEU5LNdJVUgrySlI99thJiS6RbYUPsRX55hbC0dJlq7JCHxHgOo
6ZuwgSr9IcL663TY25JBpFk+aZqYOEAIAvuLJplDKM/jZMT+dAXhLBt6/lun
CiU6NbUGrHhJcNYX+loI36BFd9MGi+yfEfpGouzZ0yNIxwyqE0S1EBez2tQb
i9+jUOqU/8EsKXGOxtG97fmAyg8dcXe4nU+ws1JNzruokUgv1gt1l6Ny9IxR
rxlD2wnd14r0ejRSa5dp/MMXZLxHuSfu6FPkt/G7AxbaccQ6dlUmEHShtQED
a2/VapBNcXd+ck4POt/x6iUrYRK16pXnCGf7kO65xj02exopeRmRLumDKI26
LS+vVIuq92VaCbeo0GOe9eYWuzk02l2yYffEG8StEjO8eCTwTaHPtMW9Qwq1
sidXOg+St25pP+j6ARmGuorDA/RgwEO2taH2E3pr61FUOUyBnT1lCysKxtAT
+o5fqnOpsNR6wCxD8xnF/ONZuOoPAyCd3RDq4zaO1NF+Kw0vG0H74bgq89wJ
5GLF4c5+nQ+BgkZI+KhBDZLrP55KNIFB+bc2T10mUcfqzx0imhkcuP0r1TFz
ChFuNdvSMxkwkW2EItumUdAmZe8JUwtwl16S+BhrUVD0GltNhSX8zDdYuY43
g0SepOpbuVYg3lg4rlc8iwooOTfczy2CwUvMpkGyDhnWOTRMtTJBQOEe22VP
gjvL9/zeamkN9P57N8mNJLg/WurN2mIDpIRkjnvMPBjTSu9duWsL2hKu+DWD
DOSlBotrHewgOl+cxWggw0/C1dHZvfZQ45xhYMbXg7SouLoYiQPM94tlpdAp
UL2CN9OS6Qhyl86uUw8p4Ftzurv6vhOUFSJ7FVcfaBzJPttRFgSL15stmdMH
payOc3uzK5xJu5HcW0qFOJ7impq0BkpGlhTQ/WnwQMo0CQ9fC/5mdLeWf2lw
qE/b3GbAhjR9MrMX282z0JJsyAbZtGZ2DNvT6TFvPfaa132PFmtpcLi+hnId
e2FV+Q4+dpB2zu+oERuUnIAIyxkaHO92/MyYz4bYyxdzw2ZpwFVphcEmbCi7
mHTqJPYBZpVeFrYq6VhIFvYq0/Gweuy9kSHLHmBL3RY4OJmywdODVWE0RwOh
qFSixab0PmmqxF4VfEFZyGCDVydR0oztYt7h04Ud11h1QYHtc7NAQjNnwztR
wU59Hf7n3ZF6FLs9IaovGJtT+edqbws20GJD/47G9mY7X4vDhkO7hSnYJ3I3
GZVh3w30jBRh+8zphs0t2TDq7epfj11BreBsx7bfYOf6EntsXPUoHpvrbMUY
xT7ecmtdJXbeUmONDvtaykfhMPZ/BzdMPQ==
      "]]}, 
    {RGBColor[1, 0, 0], LineBox[CompressedData["
1:eJwVx38803kcwPGZHxMeM0OS8yuSGOqsMj8en/elO9VjOVJO5ZBI6kh7uMWd
3yF7lEsUonMV2cKo1N3x6HyRNY9H5bjK1sOKNUpNpmOJbe0+98fr8Xo8XROP
704mk0ikcNz/j81jPNXrVUSEUiGLPiNBL/8No82rVUTCDZHyXqUEJaQcYr9W
qgh5kWP42joJSo6oG3gkURGsglU0nUCC0teY3r3UoSK8mvi/Dj6QoMIHiov+
8SriQELUqWGyFDVT679L6ZklzIJFzYIcKZprWDE2lPOecLteyWs6+Ry13LB7
eur+O6K8xmj9ZPcYCikY90wPmCamnGhpLiYvUbqkzNype4q4Hp99NSdwAolW
HZroNFYQvn2K828EcqReu0jLz58gqNYgWHRQoJrArJSE0jGimPeUf254EuV7
iQZ3rRslNtRfMLZpfI3sb5fIr7uPELLASbbup2mkd4j4q+qYmAjer+4Pbn6H
4k0+sRPLu4lxX/HCG+kMEh4+zvLg1xH2HiOep31UqM2QE4KeCZG/6yq/PvUc
2k7oP7aX9iGy1Fxovu9fZL53fC834xHinf662EYzjxiZl3uqqp6g9pb97KYu
NXJpflZXWClFe8OW5YzcRTRoKKxs1L1ATk0O/pyKJTSeVJbqUypHH8lzBTUt
GnTne55dY+gksqtddBK7fUbKZ4ItUQuv0czNEn1wEgl2FFG1j7lvEZ2ZJa7u
NoDCbaFDiX4zKPZIdGPyLkOYCOzZ1t81i2b4y1duTRlBpLR1ZXv9HEo5kJRx
p9oEnJ0mrMrUH1CntLbF94IpkPK2xIcFzCNVqXvQilozGDrC7bSuXkBpNkc5
uo8WEF41ALnv1Wg648IP2fmWIJdscnnks4j2hbiMtlGs4CD/FxNP3icUHpAV
Vsqjw0KFGUp9vIQeLmufn6TZAKv74s0wcw3afJe1Wt1uC0fTTdf7J2mR5Efn
lqZqO+gIbpg3bNYhiqVzDavYHuQXHURysh71ThNdnwYdoMooLnO3OwmG/7Es
H7R1AurLu9fIAyQwWOcTygh1AVJu4R7WCQMwiLbsunTbFTSCuI5XdDLMXXZ3
7vJwg7S6jnJ6Pxlm44o5FTJ3+NO7zNQq3RC+UL7rPXHTAyx2chhFVCO45nhJ
K+Z5gsRn+En2PSPg7hkdufO7F7Q2IPfJOGNgBVrEuCoZENOx2crxszFsWncs
gv+VH/xccrVQ1mIC3OqUBhVpIwimHeupbArQ2rRWyclfAtuKGiBepsDl9fkD
j02ZUGJMdpBh5/ztbE1ewYSeJbVuDtvPZEfiZuyNr17cX62hwA3vTeTfsFd2
Cr9Nxx7JzdyeYcaE8T27Umy1FLA5WTFLt2ACp/Zs9SEdBaLywq7GWDKh9WxB
dhY28UFLKseeLMiMLceuWRN0sA87OjV2zR/YLv2Rbl40JgQFMtrNPlPgivO0
UINtJHsouoXNP9sta6AzIWSYEDzA9s3TbnuCzR3oPDOGfTxULKRYM+FtW32k
sZ4CovDFggzsodxjL2KwW8/1+Wy1YQKFE9+bhu39zc46LjYcjmoswj4/doDS
in07PCi1DVsgsFdY2zJBudWP3Ye9ViGK3I7tvsXNbxTbkazpzcGO87ajK7GX
TLo23MKucTZX67Ht5/VXprD/A7SqRTM=
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{-0.9796428837618654, 2.9796428837618656`}, {0., 
   19.680787061009102`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.4456015750111313`*^9, 3.445601712880979*^9, 3.445601800871771*^9, 
   3.4456022238064003`*^9, 3.445602378553671*^9, 3.445602655946286*^9, 
   3.4456088003766823`*^9, 3.445609010633951*^9, 3.445609091527849*^9, 
   3.4456092374910307`*^9, 3.445609540111279*^9, 3.445609696414515*^9, {
   3.445609762721992*^9, 3.4456097892346687`*^9}, 3.445609831838702*^9, {
   3.445610268537582*^9, 3.445610307175644*^9}, {3.445610381468202*^9, 
   3.445610399149932*^9}, 3.4456108653415537`*^9, 3.4456110467464046`*^9, 
   3.445611172819129*^9, {3.445611299159953*^9, 3.445611328969179*^9}, {
   3.445611435322495*^9, 3.445611455889382*^9}, 3.445611486115994*^9, 
   3.445611594651504*^9, 3.445611742283781*^9, 3.445611836426261*^9, 
   3.445611921142049*^9, 3.445612028957547*^9, 3.445612093472924*^9, 
   3.4456122322707376`*^9, 3.445775716816437*^9, 3.44578019028598*^9, 
   3.445856383187598*^9, 3.445944739711487*^9, 3.445944870702545*^9, {
   3.445947837981883*^9, 3.445947845626666*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwt13c8V+8XAHChkkoysssKadDQl+SgkEoiESUkO1nZ834W0rBKSCgjJEkq
KSOJlAoVElJZRZtIyu/ec39/fV7v1znPeea99/nIOXrvcebm4uLynM3FRf3a
Rq56OTPztYaLq0+P9zkBvT+2Cf4cp6xX+Fg5ChxcD5sMjlAmbD7UhoOzWXp9
cwfl2iXassHgJc93M+0aZa5GSSlv+Jai8P1kHubnSIgfgWPzdVcT59E3nNVd
IXgsIM8lBvNPX3e0hym3xHc2Eejjh9ZZQ3hPscyuY2hdloY5/DN/ZKPnjna4
3m4AjIYPZ9fb005KXQO82jOtSpbo2I3ZihB9TVJAcifaJ+CsPvApbtyxUB89
HJuzC+JSzaO5/kPzfyjcCwsWHq37uQr9qMliP8QzYv8NyqOvabfYwxmPmsCn
Aug5dXLOsORtV1ktL1rx3QVXSLX49eXG1BdqfgpXeT3gwubVrumDX7C/rGQv
yBc4v8+1mrKewUqHY6DCupW8vxzzB1N2+UPRROvzXUUYP120NgCu9fEZb0jB
9imuvYGwzlKRrXwS88UdLgdBeZNurSQT809mugZDRVmg5iwvyrX5Mc9CYJNy
kv/YYfTdiIBQqDp/tXTIBu1mLhIGdex+lWeGWL9z+aZwMPg943RfG+tLet8P
h4ajUhfL12J8SEk/Ap5Y7ZE4L4MW9VONBNMnRy1PC2N+3I4zkdCiezyRMQ/j
+jITkbCnPPep/8xnanxBCyyi4KVK7Ty3ccpceZoFUWB14Y3hgRGMxz/4FQWv
F08wTN9Rzl7iuowA22ihav0OyrJcm/XI8zi1emrDU8q1Xd8OEuDgvX2jygN0
+tlgAt5/cPKTukPZQVsrgQAna6JE4BrWuzSSS8BQ8/lPs/LQs+/dIsBD/7bS
eDplwuDOQwJGb7Y5DidgvPlHKwFeql8y30Rj/1mBbwj4ljnvzbNw9JDFewKk
Oj6XfPTF/OftgwQYLWpj8rpivRm7YQJ8t92yWmaLvvKPjGdEpatuMqfcN9hA
tm+8HflvrxF6UxNZ/8dXxzZvbVwPfbE2AqRVtuXHqWP7rPvk+LY5rAzNW45x
89fk+P1SF5nWSuL8Z3vnkfVbfsq9WYTruzopkazP1zk+zov5eRZhZH29e02C
U6PUeO0fOBIgE5J9YeVXynrHvm0jwPg629eon7Ls4CdVAjLldkmEP8P437mv
oqDJZu3nlAeUievE6SgYSxS9f70C40sWGETBDu5et6FL6LtPciIhYFPdZu5U
yrWd/5lGQrZfvqDMKYyvVR6PgF/vvSr2BFHmev9HMwLkpCxOHvXE/OdL2sPB
xOI/h9hDmD9rmU84XHowM7d6J/af63A+DHblJuxbIYsetG8NgeBu/5UGoljv
RL51CFwSsZmx40cXZ/UEwyRb7vKZsRHKG7nfBUGuc9mvmUeUazUnngfAtNLL
s+2+lPX8Bxx8Qdm+wv27C8aFTJ76wJ5zGToLbNGMK5o+UDDXeUDfCOvJrZfw
Aovh8Q1XJdET66zcoahQ7CXrwSfKPyu22ANvk0fEvjtos/tTtmA3XKW08hpa
+3zZfhBWdgppS0cv8pC3Ai+j2/L5Ceg5t7os4JEzf3NINDo5NNkcwnNLl8r5
oX+sFtgB7Q94Ho25ojcfYxvC2g9Wvo8OottGpvXgJHeRZIYF+mXVV00YlPv7
wHs7Wty9XQ309M2ObtVFC06USUG6Q84SMQ20wx5rLhiL+lXzSZW2ysRy2J21
3b1aFl3r1L8eiqozhJKWoI0/128G3t6vd50XoBUtn22BCukUgYWTHyk3D53b
CfLp728ceI4+UhtgBWNnwv5NRlAmQitSD4Np+bPLzcfQrywznKDghZx5tjvm
h/254AwHhR7lbLPEeJ/meVdoiBfZnrIK4z1G4UcgNe5q8vo3w9R+vpZ084Uf
hVw6c1spE0u7OnzBpMlisKsB48EWRn4wi29Kk1lGmeux87Jj4MEx6m05jhYp
uu8POsRbFS9NzP8jVh8E6cs9hv3XUK6V0ZcOhl+Pxy6HKaIjZh8LhlJRfuXj
gnS+tXQIKF7ZsDx3eIiqZzB9MBQYZjX9Rb2Ua8+3FoVC7/j23OsvMR6i8SsU
zunZK9TUYvxKXmwY8Lcfl+tKRR/nzwgH1zCRd32nKevd2NQTDvWyWdlDbGy/
5od0BEQcKV827oM+++tcBHzjeisjuB3zo7aFR8KufPeeJboYty+8HglFO8cy
ZDQoE6XxA5FwOGWe9Eo57G/1qHEUtK/cIGn0e5DKDx/4GwXrW6tfm3wdxPfV
HWECEgK3p1kMUM6+WadMwPb7duKHWjG/M3sXAfkuHztcG9GbAu0J4F7gf86r
inKfZLwPAfesji8JL8S4aQL5/paYFm5nZlF2+BycRUDgxcyzx89ifeHLVwlo
M1phmXCCMvFc6i4BaqM3RM4xML6so5GAk4nw8kIQZVnxrhcEDG9sSs49ivUT
Fd8ScInRK1Rmg/mXkn4SMKPk3laxG+Ott6fJ70/zz8QaQ4yLKM9mQIVvpHmD
NvbX07eAAaJi8xY/XYvznz0ozAC/e8ktL5Qx7vqfJAOeHVqa0CWDFn+1jAEr
5xbufieM9QNrFRkQW7x+0fA89PffKgwYMK9+9mVmgKp3nbmKAVsmjE+Pj1Pm
StuvxoDMjBe7pkco125lrWXAH327hTzv0Zv/rmOA9dBw87xOysTOpvUMKD95
7KTgM6y3fZj04nX/dorVY1z2AGmvjtj5SysxPiFPtvfX63Y0uYbx5EXqDAgp
VKsMzcX6TRtWMyBSiLW4MA2tcWYFA9hh7W4dp3F8zDXLGXC8f0XtbDZab7Ys
A07vihDbEIL5fJLkepy51eLl6IX1/ztKrlfaMsWGhMOYv3YWuZ6ZsUEyNdbo
hHYeBuR+f+z/eRe67csUAYX7lzZLbcX24Tu/E1DywFdhhybWv/aZ/L6Wr3oY
Grwa44s7yO/pnbPibfnyOL8XfC0E1LvWEDwL0YYm5PfzcYtQ51puzNdzKCDg
uZaLmsNEP+UHdWkEdM1f2HvvHWUuz5BQAt76O2iMtKPtWtwJ6O+5cVKiGfNf
hVkT8PXafu3AWxg3bF9PwJh4SVLuFcp6M7GyBEwxZn1qy8Z8rZQFBPDuLUhV
O4H5RPzDKJCcHB8ftsc4n8eiKJA9tH2XmCXGb3X2RsLyxxm5hjvQa8SuRoJ6
xlaLSxswX13YKBIM9RJLD8xDczl7RIBP7Kojz8o+UPnp7KgwCPgeVTd9mTKR
lqYTBqH7X0isvIA2vj0VCpxVoY9iYtC3pfxCIb2lcbm+LfryiGUIPBQ/3Hdj
NtaLHRgLJO/ryxee//OeikskFwXCmjtDWszv6EMX7AMh1cYz2ayHMtfy540B
cCQ9wOhzOfrtrER/WCwdW6zkhNbSn+cHB5ddDU6re0f5/ued7pDkTd5qKtD6
FWlu0FCzts21BL1lYtAV1B1urdyYjnYfjnIBnos1vW2+aC+N4sNQKN9msEAO
za4cPAC9fmd8fy5Bp4gF7gehB1aZXQvQp/lm20D44TcTBZN9lNVH5Kxgd25/
kWELOvuWtRmwx/I7VjWgbRc374IKA3dekXtoxeTBHSA/8Png+8tocX8pQ9in
URrXdAFNzNq4BU5y/G6XJtP1iIsA48snBKOi0J0KAuuhTYv56pQ/2sExeQWU
7lqYnuFO5+dKSMKpQ6l2V+zQXCXyrToeAQoKlRZ0/W1fxcD4eMnQI2N03wN/
FVh+Qau4Q4eO8wWtg7763RrjyrQffASo6uz6zSND918RvwXSR52rhYTQ/pqF
hlCkMnnaYfIt1mvq2AlnG81utGejb9kJ7gWzry6bx+LQ8kvPWQK/WMTDxQHo
9A7pfUC4FHaYbEeXzCjuB4/Z3NN133spTzKFHUBv6w2Da1vQaTvHnOGPR9PT
5lXo7g/FLnAr6a3VpyVo/VwnV1j5fr778pEeyvviWt1gCcPp1Plk9F3X7CMw
Wi3aHtPfTZ0/Ed0YHzi3KdjVIfoNZYv0mACw8vor3e+DduhvCYAll5htrgco
c12OlQiElHmndLzV0Q2dBYFwpvOicGRXF+Ua35ogSAx8UnN+DWXi354nIWBW
ZBawTALjd1LmhYJg7yvVHB6M9yzdFgoJhn1nizpfU949VRMKp0XGj9xhUuYK
qiwIgxNlS8U72jtxPaItI2DHYM7T/fcpExsyYyKAX3IFq/cKuvlTRQTEMdZ/
GSDQIC8RCbFmxvVjqtj+z9jzSDBmPw0JFsU4kfcnEuZW7FGbnumgXMdRioLo
ZQfTeV6h5V+FRAHni6+PUBTlWt3d8wkwkJ9YnuKOftInQ76frMLfSOxF7+dT
J4BdFW0ktwJtKWFBAPPkeWn1F+2UB7TPELClVrbtRhVlLsGQHAJmjeXF/FdA
WW/rzjICiAOlPyAC80OvPiMgSvXho13KmN/kwk2+/1eprNgqTJlgRS5kwL01
J45rzryi8u9oijNgcp35DoUOyoRpMvl9XKJRXiT+AJ27fiMDNP4Tmy9wDfOF
AnXJ77F2z5PJaIyvf2fGgAQdvVVf/NDz+G0YcE035+QHO3TrSwcGjG513/Vs
I/qzmTcD+I2arz6Qp6znzB3IgBXGagJ3BLC+qVU4A1xMxp/lDL7E89sfQ34P
Ta3V0trQsctOMSDH7G786WrKxI/pRAbU7Vn6jVWEVotIYUDfXoZZSArmD2Wl
M+CfVX+pFxPjYc6ZDJC22bbYyQvj3M8uMmDTgSJfm/3onNe5DLA5uLDN1Ajz
j8deZkCwvc86g3Xoq12FDEg59CJJaynmC7dcIe8Dhzf+XMOP3uF+lQFtzmkW
ir9eUPNTzC9hwDfX6RsS79Gvoq8xYJGHvciiZ5S5POaXMmCNZ50/byXabQNp
E6/lr37nUSYuzSLt4ROr8TUR4yHHyPbH/UbO9kdgve7jZP0Cf9Nfr90p1/oa
kv03BF63em6J+UL55Pj6g0Vu1+tjPaFicvzcYUFilasxHrWPnJ9sRFfQNQn0
UAE5f90onc7c2Vi/P4tcHztGtmb69zbKejrk+oWzeNLie9pw/gxyfdM5Lr/Z
TZSJ7CPk+lfENNmE3kTz/iX3p/34qkrvi5RrL2qQ+zd+Il7S+RTGH4jGMmBd
guWb3c4Yn24m998sqULb0BzjC/PI8+F9Ripjkw7257fchwHFqe9sl4vieKpk
HRnwON2gSnIW5pdl7GfAx4zLMoKfWynL1e1hgNLFo71T9ZS5jOdvYYBBTgt8
K0WXq2kx4HDe+qyBjFZ8Pv+R98Hswt/2Lf7Y/nWWNAMkyjjv8hQp6z3+Sd6P
YrVDfT8JYPuCiAECJuu9Zqn9bqHyh/I7Cejs2CdX8RQt+7qKgJS/Kw49DqTM
deoxi4A5MUu/CxxCa9j6ExAgKMyw2ElZzyfRiYC9CtPZ3cuw/Y2hrQQsT8q4
35P4nMr3zpuOAt48zjsXF8qEplRnFPTf9pr1bRNata8sCi716Olz9z+j8q/Z
ukTB0hUDtUob0QXwMBLEa1fXenc1U/lzbh6OgIm2JX2TJehnxRsioH1gZobB
osxlMHd2BJyd36Z7ZhVa5WNOOAjtC6ypiHyC9aO7wmDBl+rqWQqPqfaJVqtC
YUbKrCr5SCP2J+EZCBlPxtZxbaVMnLJUDwTNsLQCT0mMH1YbCwC/rvfJhk0N
lDc/CA2AgdQAjwkltHkcyx+eiJ4XO/C+nmqfXMb2g3OLBn3lberw/RCb4Qkb
auKGTqujHd0Xe0KLl9rBP3PRfzs4R4D/WbDxy1v3KQ+4HvWAiJPzl0WLoNnp
/5H3HyHH1BdZNZSzEyoPg/2cSRPHU5X4PF+XsITis38/vtBBd175ZQFTijwx
hl/uUM53e7EHzmwVuK+yGx2rfdIMHhGKGl8FKyiHZ0xsA1FB1TaH+7cpb6gr
MQTHLDXvNl+0w23nrfC3alPhzbZbeD598nVgxy49I2UWuqBMWAtSuw0/pK5H
i3cTG2DdHzOZ8DM3KdeevaUEUXFWlZ8N0ESlvBQ0S9jusx8vR68vmwWShYfG
WvJo5/Zyg6uma+IWK7TelltSUN7ouaZ8Dlqw/K8ScO/ze7L89g3KPkWL1CEj
IGL2PHF0doCaFnzkZV0KfVRG+Zt5tQ5sPBOrOxqMfqSmpA8tZckhz19fx/l8
KjOE2d8KP589X4rnZ1GDKeyJuhY31wTdUsA2A10Zj90/Jq9RvvQzzxz89xMP
KipLKO8/NmQBPS+LrxhCMeX0TGdrKG2aHW5veJmy3ZE8B7jq4q2ldDkd9zd1
lzv5/yAz/+2uNMqPzfrcYfOTZuG0sXOU+WL8PKBZTfXL/C1n8fw4nj0Cnd+b
DD/ciad8NenlUShZ5bF2bIc/dd7KHaV8wcqsUraYkaBLxj/r6gSAQOaJGz+6
EikbaYYHQMOIrZHWhmTK759UBsDGmJkjDYNnKV+u2RgIYtUGt/t2nqf8+/6K
IBg9O5TPPz+H8sWDf4KhmMdPR/fVVcrR74zCIem/UTXLwBLK1lv8wyH4iIv8
EbFrlHk2XAyHS+5XWU9WlVI+2fA7HI62XnSb8LpO2SQ9LwJ4L8at2/3zBuVX
MUORMFHZuLJraznlTWULo+DTS97lzmfQVs7ro6CFL0osTOMmZf7DEVGQ4XNs
Oj/oli513+ucTcB6PduGf38qKNtnxBKgtD+t5rjJHcpW3ecIEPdvrxC5gA7q
ySfg32WzK6pQSdlGvp78P7jIMMGKuEt56PofAqpWMI+/a7mL4/3Fx4DSrTVM
T7l7VNxlSpT8vgZpBTDrKHPN2kK+jx3frt5fwltNxT822THA8reHhZYl+vQ8
DwYYCxeY1OehV/IFMGD1NnndLqMayv36ceT3at98IZZBLeUbOdcZENhfePqR
J5q/s5L8vvgazxc4iw58/IDs7wSHN22AMlfmx5dk/ZqZXyXR9ykvXDTGgCyd
MBGrMsoENP1hwK+7v9b+7UFHavAwIbfis+dOjToqX0VxMRP+bHSP++GAhnwx
Juy52X857STapkuGCVxlb94PfaBMPNu3ggn71PdxxS96QMXNL65hQklJm8xG
bbRLxnomzF5tqt3jQpkw267JBNsrTdbsJIx/vryZCTdWGAaurMb45go9JvAX
1Ca3fUQbhBowwVFp8/UQ0XrKE5+3MeFO7u1nsvpoT+GdTBBUWD/a6In2/rSL
CW4XS+Z5p6IDjpkxoWaZqvKSejR/yR4mLMnMM6j6ivZJ38uEo9Jyjk5SD6nx
1GpaMaE+PSNq/jbKxOvYfUyQkhC/UOaH8Y44ayb4nUuutMnEeBfYMKFJdFEn
12OMN+aSlj0TN355HONP75EOEpojvFuugYr3RZN+lsBQ/2WCns1Devmiv7su
BKNvrCXrh58KPmKQi44UIvt/MX8sduQ5ZaIyz5IJqnHe+Ul/MH54xIIJDL6R
B1rKjVT89gdzJnRGu7zr20OZK+/0biaozX7/LyYSbTRqwoRo1kFptSL00PR2
JvTMeq3V/gp9qNaICRuIvfsiZj2iLPHfVia8D9+Z9MSaMjGlo80ErT8N1/zY
GI97tpEJCSFbnkqUYrxCaB0TIFCLz21uE2WdW8pMODtWvnzRespcL0XlmTDq
p771lh3GH6yQZkK6t3Ik7y20tdciJnz/fOn8lXfojCw+Jhh7Lr2zZ+Fjqn0S
ZxYTfrmJjmU7USZO+PxgwK6hhMXGCRh/EfCJAbnOC9S+3sV4uvp7Buxx5PHQ
EX5Cxf0bWxhQ2BcZ0w+UiTc5jQzgsp/KPeGBcc+N1QwoOfD97ev7GPeJKmLA
fMu3loE+zZSz8qIYYH03XNL8PGUuYR9/BuTLSb5d2YBxvXE3Buh92ev2Tuop
ZRN1cwb4xzwONWlET3gvZcD9z666yj/QX0UXM0Bg72xebplnlH2Decjxyeqd
uu2HlvIfIqD3zs0s+aXPKXebFBOwUtbC6a8xZS6z3gwCgqO/qXQeQ9uvOUWA
sMXKslNN6Mb5RwlQDDRzDN/UQrVvrltBgM2iBv+hgRZ8PzxbEwVEnUjH3j9o
64V8UZAfcFirTrCV8tsXfZEw9obrX4Y2Wux3QiScLtCO2ZOIXnF7JALq9K+n
VW1uo5yQdSIcVvlnVCcnv6AcfjA0BMasFwbGX0ZPB2wPgXs6katP3EVXbBIP
gZ1zHTKYH9B9TeXB4JGuEOq7/iXlUtFPQVBYW6Sx+wV64z/DQFBaeKeYX7id
coTiIz/48n2F0xxl9F6p035wqz1dilsbvf2VhR8YZofH/XZEH0zp9QWn9Xpu
w2XoQYfvPpBj06jQsKcDz2eChBfI5r9KZyR1Us74qucCKTw35dcUoIm+m86w
8NCZoq4q9MlIVWeYkrKoXP8RPflYyAleJba8HtB9je/Pd28PQVzEE/Edn9Hf
7rzZD1xvirJ/cXdRLt9SZQNBmnEqOeLoafdMa3D6aaw5vRVtkGdvBbruDftK
0tHFBr3mMLb3foqQ8RvKsc+y9MGjLHtpzUG0oN1NgHeLiPwjx9BcV1Q3wbPH
cKs+E52wQmQtGKosBd9ydPaM4Aq4x/n7UOYxmoj9sQzWfeje9fgt3X4FZz4U
6t17FThO2/nWdx3ZzPMHFeZ3oysuLIGUP6EDz2XRfU9cFIF9S2tcxQTd0rFj
Pditui3y5hJ6eKJyC7w8npIRU0HHG2YMYOdQgOKGZ2gHQ4NtoHlpw4ZTv9GE
TvNOEBYvs9A168H5Jh7ZA494ribl/EWz77odgL6kEu/exb2URyuP2cKkXKmJ
hBLaxz7yIKjo3ZgTb4rWjEuyh5jwO6GhWeh+3jeHwGj8oaO5/lvK0a4/ncHx
mHda1JY+yr/CR4/Cl03f5l4wQX9TdveCUG7fwEordInvgBckJfpZjHugeXu7
veH+tYCFR5LRqwI/+IDsaBjDqh/ttuOBH7x1inVfHf2OcjyPZSDUuenpKSSi
bYMTAiHfc3KJRAY6L+1JIHj6u9XzlqEP9+oFwRTLeFl3D9rURjkYRHL4XsVp
vKes5fghBCbza68QeuhcHYlQeFMUzAzciVa9YxoKl8qG1RwPoa+frAgFtbpH
cVqn0E4JMWGw412s3nA/WvuoUASsHtAT6/2K3vtVPwIEP05+fjGFFp3jGwEd
39zO1wh+oOz+5WkEOHFt/5WyGa2SzoyEqGXzig3PoH1b26PAUeE+UzsL/dJ8
JgqMlENs1hahL5UIE7BA7eMcmVrKxLp52gSkQ9OhsRGMT/yMJqD84HGxnK39
lG1chBlw9s28TmdTykRykgJ5X7KJS1WxQR9krmeApuUJiRIvzD9STP6/vmty
SupOGsYXK55mQMbjhd1huWgLtwzy/mV8OgOuocu9yPc/GMTL1Ndje8X7DxlQ
p5247PlXdH/Qbwbk3FnclziF+SaPZjOB/V9S9t7ZA1T89GvyPmW0PlmuS5Iy
ka9D3peaVM8qDBhiPJuP/J4XFYj2XzbDuMQBeybEKaXkehxAqx11Z4KJ/Lnl
33wwv+F5OBNaJNKU/5xHv4nLZsL1cxLDVfmYP95ewIQk0fQC4jr66rtSJuxd
fH7FnEZ03bpaJmjES3161Irt+UIayfvQwoyiE90Y94t4xoQOvgsrF//A+Ejt
GyZURMuMvpjGeNXMOyak8mYWp8wdpOJZ00NM2M+VtVpaBv1a7ScTtCOXfelV
pkysdJlkgvR0VsnFdRjX3v+XCb0T2WrKxujfoXNYUBMg9+3jHvTNy/wsyP55
sbT4ILo7UYAFhK+8r7cbmqMlxIJDXy+tXXcM7ZspyoItRxV+jEWg79WKs0B+
JKfsdizaJluKBTzuisdCk9FbdZayoH8wd71OJtr2nCwLHjotH5spoPsvkWdB
/vu88robaCOWIgtiHJQCONXo5yJKLHDrzdcwbkKXH1ZmwXZb5V/8L9EPvFVY
oNp1+dbTXvQTzRUs4LdWCUr4iJ5dQ3rkVcF/FmNoP25VFmR4Vsof/If+wkva
lKd5oSvfEGXLp2T+TFrPpI8Q2vMA6VL1rx9CpdEHrpH9OTZyPWcrodWbyPEI
2wlVnlZHvyggx1s/ppCXugltarqcBYEnNBIuGaDr7iiwQEV+W1ixKXrikxwL
XldYu9yyRuu+X8aCuN0e5rWOaI8sGRZsHgzb/NgTHSBPru+X8FPKLwPR+UfI
9c8SzhLqJdAdoeT+cOvXDX8/gw4ZIfezvOPFiz+ZaIFd81ng7DVQPbsQ3ec/
lwWPzvOdlahCg9gME0LXSRIKjejpxCkmrGxaeWR1K1rpxTgTTv8y1dcfQH8p
GGGC3imHVTu/oq/rDJL3SQU/McvfaJ60PvJ5MD/72W3hMLbPfckEyeI3aQka
6IsLK5nQvOUzO10Xffd1GRMiXv/zzt2Oljt6hQl9c+SNKg6i1346z4T8Q24/
3nLQKbqhTLCeDOn5GI8+YezLhHnxJx79TEPHSbgxwfNeSebcErSdCPn8rxMb
36HWjt7tvYoJ/VfnbNTqQ/+6K0fenw3E5bZ+Qke1LmHCpK/2hNU/9AZrLiZU
NzNyIpU+4n51kPfb7UyB6aeB6Ka7ruT913Lf7lIGWjXImgH7VbIvJZ1EJ44Z
M8Dz2drt+y6h2RtXMCBB0jKl7yl6Vs8gAR1l59V/Kn6ivHLYioA+Tj/rlRp6
Xt9WAoatV3fc3oSuvKBOwNS/6ohwM/T7I/MIWLrz/ePZ4ei+Gz5R4PxBxVn8
BfpfkFgkeN3yrZjqQXc7fYqAwOOV83uG0ezBexEQq2ZSdvEfuqzIIQKKw7xn
VFVHKI8Z5YTDT+FbaToM9BJH0TBgGGx95qg2Snn/5+tBsF9dxuSkFroiLjwI
NkhPNN3ciu7uMQqCwZ9FD/ms0RsLugLBJEeoqoRAv+/9FwDi3O+vTLWiw502
+UNpDXE8yf8znh8O0wfiruyfey8Sna5o6AOHz23gDMSibePn+sAS72FC8wLa
/4yYN4QvNQvufYi2fqFwFIwjlrmqin2hXDCo6g59m6oN6u6gR4f+OsDtbIfi
igdoFVaYA5yewyNy7Sna7Pl3e9jctu3D+XfozuWDByHVvZURMO8rfl80HtuA
WWp/tYoN+lEI0xyU/0UrLTuMrtULNoN/h1ecFj2Klk1+YwrFal4HuRm07Up3
AF/jxJ83BWi9jZZb4O2q9MNtZXT9ZB09uJW0+cmje+i+nTs3g5MdI/1mC5pr
7qf1oF2vwF3cRffn6qsGQqoN7pf66fivhcrwKd6tNfUL7SsWMnB/nF8rfpK2
t8g8aL5q1bJl1jd0H9d3nYo+ZV6YgyYi54tCrvDv/7Tmo2vLRuQh3ujxkQ2C
dLzTfCWEhpzPUhOlLdS9FlyKPV+oSqKzNRdtBB2hRdpyinT9wwEAKoZ9XtIr
0N8U9+qDSPD1S2Jr0AnMo1thpMeCX0ATLdiXtQ3SClNfT+1Em+nOMgPzzitL
Ss6jfdZZOoBbYWqk6EV0wbl+ByBCOYPh+eh7j48dghJp+1s7r9PtzyQ6Av8h
IauPDWiD8MdOUP8x+KziD3T3mJo7aP4xFDlv/J2yvFKvD+xuXhfObYrm6pf1
BZcLy/rdLdBzjhz2hbO6v29o2qE3tgz5wg9WsUX7MfSz3s9+ULxAOHlxFtrN
4Is/LFvatzh2HM2WrgyGzDDRRclT6H/O34Jh6esdCzJn0MWuSiGw9MzNOeXz
flAOTEgMAWn+E3/eyqAVXZ1CQfyXxsB/RrTT/4RBqsWR91t2ojvFV4eD2PXs
t7vM0CmGduGwxHN+1+H96Fv5NeEg8r7vWbwXekFQJHn/fHaiYigFXfJ0JBIS
Vt6/+eM82m9QLAoWHf9V9jcbLZS7NQoEDA5dFb6C9pyfHgULKjde0q1BLwI5
Avjy3504N4TmrqglIJZH7PilUbTmkxcEzD1kEn31Ozq1mHwfzpG+TTz4g3Z4
PZ8BvEknA74u+kn5+QsLBnBF/me/TRPNJdHFgCshsQnVOug6oxEGWAW8vq+x
FT2sMc2Aq55hioqm6NX7ZMj71IGaj1xO6HuZtkyYvU9QKtgdrdFyhAmlew6Z
fPVCC90nvzdzd/Bc6wlBP3l7jgnlmtv8K+PRKfOfM8F+Q2re2rPo8LXdTOBX
/9hekI7+JfKRCYeUT2idy0O/FuZmgcCS5/+O3UXbjqiz4M5iWfWRWrTspDYL
nBb6HnJsQA/UGrGgkle43qwVXc05wALXn1bHVw+hEzoYLBD6erkydxQdWBPH
gupPkyNSP9BfDiWzyP1NN+X/i97SnkPeB3tGohjcY5TrL19hgcfrzdcn56L3
rr/BgtqWXuEhIbRg8H0WHGlWM7QTR0+oP2LBkkdE4CsZ9OGcZyw4WiP/+oEK
eld5FwvE7x7j116DPrGnj7wf3arXLluP7igcYIFkiUtmNqCXsr6S98PC28/F
DNBfeMdY4JPHNyt+O3qf7iQLpC/arJuzG62/bpoFjRlFhyP2ost7Zljgl/rn
zJgNOkifh00+LyYNR+zRgQfnsKEp/sLEeyf0zbXz2OB/4ovKfg96ftXz2bAs
Rnd/qzfaj1uADY+ZCSeMA9BP/y1iQ2Dku3s1oWixG4vZIBe67stGAq25TJgN
zQGsZSUc9KqtImwI9n1ptvwEum2pKBsUji5nZiSg1cpIP3MLvCGcgtb7Szr4
4hUb3/PocK4lbJDv6pt5lo3+WEXGm4WW5K/KR4dokA7cudMk7gpa3ZXsT5ZN
/BgqRc+xIMfz+N7NVMNb6P5Jcrz+458g5y56yFqQXJ81sgNc99HdfuR8H7lY
nrBroPfXaAEb/LLi1t57ghZ+Ra6XdGdNh0QreqXMXDY0CI5HBLWjbZbxssFn
u6riqzfo2DdcbJBk2j9e9w5dY/6XBV4/m5Z8GUEf9Bwnz8eqmXs7v9PrI/id
BXVOGw4X/kLbeY+S56s985rTrHEc3/735HkUeGlZNwc9ONRNntdt86aXLUCv
UOsgz3vFMeM3S9CRo4/J/w/fC75oSqPvOtaTz4dq75kUOfSW5CoWuJw3fme+
Cv1T4Rr5PEbKhD7SR7fwxrOg4tYeWaVt6Hlm0eT9/2tMA8sErWoVwYJbDj+E
dPehLyd7sMBua+OVm57o1lf6LOALnzYX9kOr/NnIgrLytZM+QWj57pUsmKOU
YbCKiW5oFWFBCZ9vz6Vz6KenP5D3W/18FtcF9Jqz7UzgDn2zwu4Seqt1ExOs
RgwDJa6i5URLmPDvqeSihDr01FF/Jpgm1+tFfEYr1Y4xwMF6S3jkD/Spp/0M
8JOpvR01gW669JIB5y7fXcOc9YuyVt4NBvTdLZOOEUV/FvBmwLH+7MkEHfRo
xhsCoguXbkjagn6m/YiAVK8M7+RtaJe8cgLuTZ4bPGuO9nh9knyfL4x/me6M
Lnm8iczXiCjNPYUOniMZBUVTUyN5Sejip6ORcK8mWPnyObTx2ppIeLfdP7Pw
Irr/uWMkqNodOVlyEx0bnBcB96Jt3Cp60Hwj4uHwrkNDtnn1BK7/unvBsEz7
ebzWenTtw8hgOJjpNpOviQ7+rRcMr53O9zK2olMN6oOg9TvXhf9s0P5EQyDc
n98skcNGO5hU+sNFXUfh0Dd03NvZB95e+sMc6kMb3JLxAZk5Z3/sHURz+V/x
hrTmxla172jxyeNekGizOmFgziQ+/wv1PYFxbHKB+Tp0i3qaKxy6fHqOynH0
t8mZA8B3zme+1mm02a7u/VASvUdwRzJafXWFDUw5L5H0vEA7w2sfnFHMXF16
nc7PbN8Dm0SIdfdvoX2uXzOHPh7H/9ru0nHPWDNY/WG5/thDdO1LXxNouHh1
r2YX2qFz1VbwTIy32f4WLbunSw+EGL52+/vRXNcEdMDeQcMt/As9n+2162GO
mdjRUz/p+IjaGijW/e2bOYkmvvYowh61N4HX/tLxo6JiMLm0KqyW+zda/cZ3
nUyBLKJ1Lu2CsAVg8I/gvF9AWzRAFj59doz7uRhN8DSvgMQeg3heMdpNiWtB
NaP5kvFKdLa33BZoOVFy2UaddlGQAQSGJRR7aND13j01ggf79946qYvukw7d
CbYS3U0tFugEwm0PxKeMfLMOR/t0VRyAsQR+XfenaBVpIVdIq2qpcGhDm73L
dgX4lLLOugMd667mBrFbFZS2vUPz3dvpDtK/tBcuH0eLazCOgOGBo2/6pKdw
fd/2eEPK8pYga090/zUVf9Dek/J9t+8UPR4Pf+iLtD2yLRD9SLTYH1Q7h+02
EuiMuDUBUBM3y0jkDPobWz0Qhr+uE2m5iy6fVA4Grcqzpdvm/6Hs1tcbBvyc
ILsrguhcN+lw6Npts2DREnRfnE04hA9Iu7XLojektYVDrWDuMueNdLy2JgKM
XMtOMw+hF9hyokBs3ZnNgy5o2/n3omB4OuDTdk/0S4MfUXA8SctocRB6aeEa
Apqrav9mnUR79qYQsEfkuWfVbfQPxgEGKLwtlZSrQs/56ceAscKkR+w6dJdc
HIO8f1spmjxFr7t9mwGdHj1vut7T8fJFTCjUqDkOw2gPvuVMCOW6+N+lz+jQ
JZuYIJXilOw+SY/X4TAT7O6P7JhcOI3v3+wyJqidfDp5QBjtdu8hE7j2Xcuv
EUf/i+9kwsVRP+4YBXT5gb9M6BebuiOqhV4atpX8XnnxrVjvhC46Qd6nch6u
89zkjt7zj7w/dUsfvKbvhR5bRX7fTJ9c1zALRitWkd/LdSoHthw9ifa/tJwN
R6I4HP9EtPgXdTbktl97FJaCrv+pzYYlHN7dcdlop1XmbPjz7uqBy+XoMybB
bNig1ZlZcgcd7shgg1cC9/ub1ehH6nFs6IN9bvWP0MR4OhskUhhXnjyl249c
YsOez1e+tLWht6QVsaH+PFfAu240U/IOG/7+UK0Yfoe+97mGDRt3WP75Oohu
C2pgQ8FkIePfN3TLtTY2vNv9sn72L3p9D3aS94fL/+Yu/INedb+HDSctLU5L
zf6L57toiA0PiyNa5fnRvOqjbPjHUyCiugg95vGNDf8daNu3VgRtfWCMvJ+U
TadrSqC5Z02yoXCecq/uUnT3gT9seO9gLrdNAV1+5B9536kIczJVQYeqz+KA
5aL8y5ar0dOFPBw47dLyyXYdemPnbA48qppa7fQf+kvlXA7MEl3ue2QzWnDP
PA5s8txd7qePTrrAz4FjD0ImQozQRhfmc6BYMncTYyda0nwBBwZ8n0XEmtH1
KkgvbZqsjbdEV74kvU9WgffcfrRVLumEoF3bMu3RZcqkm54FxeU50fl2ZH1u
pUtPi93RDtvJ/rUjmgXLvdDRQ3wc8H/5y+LuMbSsFjn+qyvlztUFoxWBnN8g
c2dXUwSa+MXNgWVdATKtTPRSRy4OWK/NduiMQf8i/rIhMfZxztuT9Pj3TJH3
0bdjg4OJ9Pw6f7GB579lql9S0KaCP9mw+fT2o+Pn0Zl/vrDh2ubMnzz5aJWR
ATaIrOv3CLqCLiH6yPuysur7T6Xo3LtdbNgidKul9S66Xu4ZGy7Pnd5meB/N
tauRDQv+6tdUNKBTZWrZ0D709GpWK31+rpWyQbtHeLlwB7rLu4AN2W02GdHd
6DXtWWxwrxqIOzqE3px8ig3TSX9dtf+inVqc2HAoduvbEu5/+L6qsiHvxxHH
reT50PvNTdkQ7yZqOE8Y3e++kbzfw2r5DhV0kRM3G2LWH0vbsQZtxCL//4yq
3BGsXo8ONx5kwU1hw5lcQK9qJP9/GX+07fbbi/ZLO86Cq72XLAZt0Ge+BZP3
3ZfDj23s0R5fXVnwptr/jp4HesGAAXkfP3MyRYBAi9ycYsIZ3XtmRVfQk0us
mPB7A/cjmevo7ll65PtQ1Vg38RYdP7eCCcqiL1cH30e/b/jDgMpPI/xGHejY
/zIY8O6s1MN33DN43gueElAiVtQ6ORc9uom8H4anafYuWoiujUknYMkFywkd
MTpu7kLAjtz4Fekr0daO41FQVsZzes9eNFfT6khgPx+xepCHNtilGwrm5qGH
u4rQuc7TIbD0BZ/P92voDP47IVDRvvz4skr08F/1EBjtsb8b9gw9mSMVDJaj
L5ZtmEDfq+0OgGReO/89ilx61P7uFPWFycNiGq1KaHHPRh+we9AyvnsF2lYn
xAdUmVuDdq1Bd47c9oa6GZVQY006v0r7KPyY+hkFJuiWJSvcwHr/Vb0qUzQR
zHaF6jsuszabo/vs37pAXPBrppYVOrsp2RnkflVzNjjQcZMJRzD7fvyEqj/a
IczqANwy22pSGEjXN+TaD9Kl0wtUQtCynoXWMOzlfXp5JPpb729LIEb3JsrG
0vXHks1gcKfAnqw4NNd+P1MwudIotPQUWq/j7k4Q99h0RiqJ7l/axAiuDS07
tySDjos2bASRba/3nc2k58NvuhZC85PERS7S9WIKlaFvtsnrpBzadu4SYOQ8
O31xPm2fNyM6xfXV+xMKaLsFCoGQYrDUoiu0+zQUoff9p4wFpXT9z2IaYLAl
9+CJMtrO5zZB0cWDS/lv0r4xXw8CHVqy5lbStjhpCAK9Ny9x19Pr5b7NDOIW
RETcbqDj8Q/NYY62gbVnE+3LWy3g77m2he3P6PWL17WCUfOvwYWv6fF4atjC
44cqu82+oktd5jlBzNXzfy5IzsJ8v2vewN3t2L5HBp2gvN4HIvlVr8+VpW15
2gcCXStcfJejxYe3+oKL3KtWA3W04PUrfmBwVqBgxJDOX+oZAFwRjL1avujY
lkuhUPp99HfNMbTxss+h4OBinWUUiJ6c2RgGtbvVPlmEofV8m8KAkO+J8uKg
Hw0Nh8NMo+aVnDS0z3PBKCjZnGummoEmoi2iwO76ol+lmWjr22ejoDp9UK86
B82lt4CAyKNn2juvojPqThDwT+jbLIE6dN+CCAaUxBy4fKYefa83jQF20w0m
Uo3osUO3GFA9cOGcSjP6ZMgXBkRU7Fy9tZ12134mrFp9u62pEz2sEMCE7ovy
wWZv6PWSiGfC5hO/6w720evDW8eE6YOXrYM/0ev/VIEFxW1C//6Nojcc1maB
7bbIHM5Xuv+sPSy4p275JWkMzTufYEE4Dw/76j96/GfbWbAq2GvFhlncGDcb
Ie9no6+fVfKgx67MsGBze6nEIz70PSNl8n5VYHftvRC6YsKXDbWjHV5Zouhy
JQ4botXN19iKo1PfnWODUMXWq69k0Ksm77Kh8889zyRZdPiep2zI1N24arcC
3Z9GLxtUG1WuPFJBx54l7yff+C95cFaiHQQFOHDLVEp1yxp0wWIZDui3Lyy8
ux6tnqdFfp8HfuSXADr7nyd5n1jh6XJEn55fRjAH+j0HlqsYoKcrWRzwHuvI
vbid7i8slQMbNM2d7EzofOlLHJgKe6wgtRvdr32FA9E8VZfO7EW3TNzlgMm2
jY7m+9D1SQ84IHTimpzAfrTslccc6Hym8u6xLdpMr5UDF4QuZcfY0/XMOzjg
aCXlYOBIz+9tNwdU0s8sm+WM1ht+x4EvPQvfVrmiVTwHOVAuF5MZ6oHO8PjE
gVBnLrv/jtLxD585oFcYIjPmjfZ89Y0Dcz7/6C71o9dX7ycHnqh7ZhwNQLst
HyfvU/4DB1SD0dbMXxywqrCTGgql2++b4ID0dEdXTgQ9nlzS73XN0x0Ier3c
SBewHtvIsNDNOWR7r8atEl0cen0syfob5ld1psSiDSLJ/n+bbky1OIF+Kf2d
A9VJ1/YJnqbHv/YLB9jtKmJPE9B8d8n57ZC81H48mY5XkvMXtJNKMUqh6615
z4H2i2csedLQ4mI9HMgYWChae55eT39qfVfEvAzPRE8akuuvfJTrjNZFev1O
kPszWhpi8SsHLWhI7l/Z2A+hG/nozX7k/pJ/CBNXFaNrlYo4wFtrZ/6xBN19
NZsDj3k6BfOvo7kKUsj1O/E4ftlt9PAYQa7f8627u+/Q670tgFw/oSqBtHvo
hAXuHDiafu2UUB3a5Isp2f90ekxdPd3eRJ8Dk3bRDL9G+jwqrOcAU+FgQFsz
ulxDlAMpxfwHkzrQ0uPk/4s3Ar+stnTR7RfdZ4Os7zuzH930fl4qYcMVjQqD
Pe/Ro2tiyee32nmV0Gf6fAxvYMNsOXOluq9oon4pG3awNsv6/aD3S5yPDS+3
CYu0TaDDV71mwceW2j+J3DyU1ecEkPexD1JPFoujx2qTmbDPcO7D+5Jop23k
+y3j8o9qXxm07U7y/qXs2VTWKo+OfbqEfN+NB6YnrkaHNyYywHlum/viregF
vD4EFLlXHb5viCYubCfg25OCg77GdH/35AkITYgyb92FNpO7HAWnJVZrJVrT
49Oxj4SKlbF8i73QFdM5YbD2pdjTJB9032PTMCgKv5wocgwd3DUZCheeNkiK
B9P9PdgRCkzv2auXMWkPDwTDrhtM89UpaIeRqQB4vykifXs1movbxhsOfFhg
/6SWHk8uxwtenshQ2PWAHo/e9aPQ2H232OwROjtoticUR05V72tD1zpdcoOg
uqAPzoN0e6+yQ/DNY27B0DDtgRYH8BA+5+k+Qudv67EHW6db457f0HpSZraw
Zc74XP8pen57lCzhbgm7eXya7u+jtQVs2CeSGDRDx13izEG5YL1kGC8v1mO9
3AnZZg96p+egiaNrjUHy956cyHloPeKkASzY4beKKYDmmgjdBOfvL5q/aTGd
/y52HahqXf34XZiOlykth8rSHY8Kl9AefskL21WG8w9J0HZii0JnFocjIU1b
sEYV3MQUnFqX0vZz0IDoOXZy+op0/wfLt4Bo5J+ZSSW6v+bbRpA7ntpbuoLO
n7q7A+r6X5yXVaPjcw6bw0zd9iVcm+j2VV42cHrT0NjtzXQ82/cALC1jv/DW
pedv538QNl+sSXhrgHZIuucAwVEa82t20/Gpaif4oS3HFemMTkgr8wTGjepe
DTe04P2SoyC40rbqswdadluRF6yRPBd60AetmbfbB45MLhjfHEZbWM8P+ssn
P/5JoO3LHwgdq1tehNxDpy5ViID0kcURPDXob1XREWBXaKF06j6dH/8xAvoV
O4KzG9Cdt4oj4YdUr0xjCz1eCxECFvCPuooMoEsrQxjwvHH14swhevzyuQxI
4nhXKn9Cx3I/Y4DErJ8LtL+ig+VlmaA0+fv6od/0+hVWMUF/cO50ycLZOD+B
bhbw5m7P0xRE9/H8ZcGjQydM64TQhLkMG0x7BC6+EkOHjx5gg+1LUaNpObT0
SAsbliXt+8pRRDu4j7Lh/e601EXKaF518v+6+xPpEflV6OnTmzgQWKeQsH0j
OtWe/H5rEc5aLzTR/aNXOTCtc/m9rTa680YdB1h3VDV89NCeQx85YBTk2ft7
C5ptNs0Bfo2SGJYhWn10YTQklK7tStlBu3xNNOz1OsaS3YVW6dGJBrFVN1cV
7UY3rzWJhq6Pv16t34MOLrWJhszLmlFVe9Gx+1yi4ZBzqMq2ffT8lvtFg6LC
vdYWG7SxeEQ0DPf9Dd1vi65fExMNVzJ1Ffvt0JquCdHwJfTn3EOHaKemRoP6
vssjPYfp+X3LioZj6w883++CrvDOj4Zbixbd6HBDuwkXR8PkSF3K3iP0+neV
RoP2o8DQ1qPoggfl0RCZq2pn6oP2f3o7GmqJXv0nfujiX3eigedg0nLjAPSY
zt1oMNIymvcwCD15kXSs6NSofihdX470k+9XW6rD0Xvvku0Fnh0q146i18+L
rG9WJJpawaD3S5PsPzm6KUyDTa+HJDm+dscI+7JotN7iK9Egobt2q9pxdLZ0
XjTYSg0oFZ9Am2hnkus9kcq/4jTazDMlGt69MPmSl0Cfv5JT5HqXcrXJJ6OH
udjR4HKy/GbWWfRJx5BoGDWQjkhLR9/bfSga1ORaHJZcoPfztUU0+P1lGSRn
0XEvw2iYuDky/1QuvV8Vy6NhU1LW13mX6fpHRKIh3MviRXQh3b8ydzRwK99N
J0rQ4je7OGDI4x35t5Q+P5yHHIh9K+8YeoOej+01DixMjVvhX4F2EifvE2b+
sPB7Jb3e0y4cSDL78e1oFX0+B0w4ID5vf4VrHXpVDXk/2D+wMKO/nl7v0kk2
XLh/P+pQI70fOV1skA9dse1AM/08xJ9nw+qRyVem7WiukMVs8GksvvOkk97P
wFEWlOU4XDB+Q9cPaGCBpu0jpy199PkODGLBlqfnfmp8Qn879ZQJnMKdHWWj
9PlKy2bCI85MpdpXtE+BHxN2gStzxRj9/LcKM8H62sbFMv/ofLsdDCjdPynQ
wjUHzxv/YgbMm1O5gMWDTkhuJ6DSVofvIx+aADsCpPkNZsqF0da6tZHwzsn8
s8kKOn/SLhQ2CQqPzKxEc21vCoGkuy+Hy9ags+PWhoCBkHW/+Aa04K8/QZBf
Y/emH9Df+EICwEPSsyl8L90+V8IH6h6ublTbh+6rfOIFUr5f69/b0PX6HY5C
c6NfrbH9//MZHrAmIOS2iAda73mmE0TLat9s9KTzJ5cehrdPpstCvdEOPhmH
IEGeKOnzR9fqLjsIP55H5xVH0e0Hy8xgR5hxjj2Tnv9viZ2Qo8R/UYhDe0uD
AUy3Psl8GEP3L92+GfZGnMoIjqMdt1gdilV2p688RVvl7zyY/VIwtTeetp+O
AthFtZ1NTKJdErsRbqmeSTY4S7uoWh8E2i0TJ87R/X3QMQZXhlh8UTrtuPum
IN6ZHieYTY9f4pMlhHEuMrqL6PZ60YeAL2jujkNX6fiWRYfhjNtRocFraNn9
qU5QslMr52s5nW9e5Ap9i1vruWvo9RZ8fBSMMrn4Vryg12PbF394Ee/ScvUV
HecuDgAHRnPquk56/6rdAiHEKXXF5h56fUd6g6BYVX3n7iF6vCN3Q0Hotv3p
gD9on8XCBGQVPLSa+os2XupMwKr0lcuiuOZS5pu5SYBhxMS12Nm05+9lQPDW
+Nbzi9CyI1FM4NUYT5MVQpttbGRCotIBxzwRtMOXBSwomqf8s0QCre6VzIKe
59UidQro4WUn2OBxX7HHSImOb6tnw6+yuLwnKmhBtz9sEEyx2vhqNd2fzWHy
/0/MvX826mhx/jMcWBEi39i7Dj0ZQH7/tth+2Tf8H1oTxKPh+a69skc30eMJ
0SXfp7qVw983o7NXO5HfI3XZ64G69Hi2R0dDgHx0yB992vfI9y+3yKg+YYBW
CaiLhtOz9/DP3kbHHbqjQWridtvx7XTc62c0FAzLnBcwQT+KmxsDOwoTI5pM
6fF+k4iBz+6zHdjmdP83VGIgQTVki+5eenxV62Ng3cio4pQVmmt8Uwy8vOIw
96YNOkEfYiDI8+VHb1t6PeJ0YkBytXGzqj2df1MzBu59vlsycAhdUKAWA3Yl
aonZTvR4dsjHwCzvnGMHXOl8hmAM5KqJWS3xQFurT5Hfu29xmq2e6FKdt9Hw
sfSf5ElvtNupmmg46ev318iPHg/P+WhYs27w7awAuh7bNxpaf9jU3QtCd37f
Eg3+N57mBoXS+6u+KBqW+OvHrItAx8q1c+DOhpvun6PQxgXnOGA7rmJSwKT3
M8+CA/9uZqw5zKHbT8/jwMVAwcVLY+n4iUo2DE5MvEo+RY+/ax4bYiuOVJgm
0HHrAhasDHmbPi+ZjifqscBnqsE+KpUe75WDTBC6u2nLpvP0edv+ngE3w0oU
xy+ggyUdGDA1ffajRw69P81GBGRUzWtenk/vX7NdFOhGRpT0FaC/mchFAnvG
6ZhVCf08LAoJA6XaTsvF1+n6VQtDoYkw0Wy+QTs+KRgEuDf81b+DJo4eCYDS
ustvp+/S7q0+BhYsqbrb1ei+zbP8IJWXJ2Z1PT1+7hxP0H4Y6D7cgK6NqXKD
Xs6nnTlNtG1vOIHC3DZBied0foGtNTQ0Gv580UrXZz0yBbfYO69Ov6TjZ/01
Yf721RXbO2j7tKyEknkX03m7aB97uAPMHotE1HSj9Qwz98HPuFj70Ld0PQGx
Q6C5wEfxWz99PrVUPKGr+cOcK0N0+6DfPhBxat9H5090/v7xY1AnoFvy5itd
T2ddKJgsFtBsnKLXL3OABZzZ3FLdtPsO/mRB9e/xv99oO8jOYsPa9z0PJP/Q
+31Vmg1Lblzd7fV/j1iw4e3eXa6i0/T762cdG/xST6Yc/vv/857DgSsniZBg
2oK7rnOgn/C3PUW7wrOGA1butvK3abeUv+GA9qZVJfz/6OfZjbz/8HY/eXid
tqYt+f7QaakpaKA9eflMNATW3zjxhnbtr0vk81R83nz2DD2eC+Tz9CziSI81
beOFv6Nhrp997VHaFT7k+0PPxSKHSVu9QzQGyky13YtpTxavi4GRLWom9//f
Xlo/BhT/U1Brp516ejf5/K8UExqh3cdjFwPnls0fn6EtG+4ZA/8DY8oYPw==

     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{-1., 3}, {0., 1.7452067879730748`*^-7}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.4456015750111313`*^9, 3.445601712880979*^9, 3.445601800871771*^9, 
   3.4456022238064003`*^9, 3.445602378553671*^9, 3.445602655946286*^9, 
   3.4456088003766823`*^9, 3.445609010633951*^9, 3.445609091527849*^9, 
   3.4456092374910307`*^9, 3.445609540111279*^9, 3.445609696414515*^9, {
   3.445609762721992*^9, 3.4456097892346687`*^9}, 3.445609831838702*^9, {
   3.445610268537582*^9, 3.445610307175644*^9}, {3.445610381468202*^9, 
   3.445610399149932*^9}, 3.4456108653415537`*^9, 3.4456110467464046`*^9, 
   3.445611172819129*^9, {3.445611299159953*^9, 3.445611328969179*^9}, {
   3.445611435322495*^9, 3.445611455889382*^9}, 3.445611486115994*^9, 
   3.445611594651504*^9, 3.445611742283781*^9, 3.445611836426261*^9, 
   3.445611921142049*^9, 3.445612028957547*^9, 3.445612093472924*^9, 
   3.4456122322707376`*^9, 3.445775716816437*^9, 3.44578019028598*^9, 
   3.445856383187598*^9, 3.445944739711487*^9, 3.445944870702545*^9, {
   3.445947837981883*^9, 3.445947848003441*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"An upper bound for the error in using  \"\>", 
   "\[InvisibleSpace]", "11", 
   "\[InvisibleSpace]", "\<\" Chebyshev nodes is\"\>"}],
  SequenceForm[
  "An upper bound for the error in using  ", 11, " Chebyshev nodes is"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.4456015865182962`*^9, 3.445601753454194*^9, 3.445601858886375*^9, 
   3.445602281663096*^9, 3.445602379190877*^9, 3.445602656578628*^9, 
   3.445608801036373*^9, 3.4456090112643013`*^9, 3.445609092173718*^9, 
   3.4456092381197968`*^9, 3.445609540214663*^9, 3.4456096964806128`*^9, {
   3.445609762786927*^9, 3.445609789300913*^9}, 3.4456098319039803`*^9, 
   3.445610268603636*^9, {3.445610299029827*^9, 3.4456103077790003`*^9}, {
   3.445610381432757*^9, 3.445610399113985*^9}, 3.4456108653045397`*^9, 
   3.445611046711111*^9, 3.44561117278363*^9, {3.4456112991243267`*^9, 
   3.445611328933964*^9}, {3.44561143528401*^9, 3.4456114558619413`*^9}, 
   3.445611486091566*^9, 3.445611594615296*^9, 3.445611742248108*^9, 
   3.445611836388829*^9, 3.445611920510149*^9, 3.445612028718822*^9, 
   3.4456120932184343`*^9, 3.4456122322050962`*^9, 3.445775716751371*^9, 
   3.445780190224999*^9, 3.445856383135578*^9, 3.445944739654614*^9, 
   3.4459448706515713`*^9, {3.445947837913556*^9, 3.44594784803277*^9}}],

Cell[BoxData["1.0063700959589782`*^-6"], "Print",
 CellChangeTimes->{
  3.4456015865182962`*^9, 3.445601753454194*^9, 3.445601858886375*^9, 
   3.445602281663096*^9, 3.445602379190877*^9, 3.445602656578628*^9, 
   3.445608801036373*^9, 3.4456090112643013`*^9, 3.445609092173718*^9, 
   3.4456092381197968`*^9, 3.445609540214663*^9, 3.4456096964806128`*^9, {
   3.445609762786927*^9, 3.445609789300913*^9}, 3.4456098319039803`*^9, 
   3.445610268603636*^9, {3.445610299029827*^9, 3.4456103077790003`*^9}, {
   3.445610381432757*^9, 3.445610399113985*^9}, 3.4456108653045397`*^9, 
   3.445611046711111*^9, 3.44561117278363*^9, {3.4456112991243267`*^9, 
   3.445611328933964*^9}, {3.44561143528401*^9, 3.4456114558619413`*^9}, 
   3.445611486091566*^9, 3.445611594615296*^9, 3.445611742248108*^9, 
   3.445611836388829*^9, 3.445611920510149*^9, 3.445612028718822*^9, 
   3.4456120932184343`*^9, 3.4456122322050962`*^9, 3.445775716751371*^9, 
   3.445780190224999*^9, 3.445856383135578*^9, 3.445944739654614*^9, 
   3.4459448706515713`*^9, {3.445947837913556*^9, 3.4459478480660686`*^9}}],

Cell[BoxData["\<\"REMARK: This is not a valid error bound if Mmf above has \
not been set appropriately by the user \"\>"], "Print",
 CellChangeTimes->{
  3.4456015865182962`*^9, 3.445601753454194*^9, 3.445601858886375*^9, 
   3.445602281663096*^9, 3.445602379190877*^9, 3.445602656578628*^9, 
   3.445608801036373*^9, 3.4456090112643013`*^9, 3.445609092173718*^9, 
   3.4456092381197968`*^9, 3.445609540214663*^9, 3.4456096964806128`*^9, {
   3.445609762786927*^9, 3.445609789300913*^9}, 3.4456098319039803`*^9, 
   3.445610268603636*^9, {3.445610299029827*^9, 3.4456103077790003`*^9}, {
   3.445610381432757*^9, 3.445610399113985*^9}, 3.4456108653045397`*^9, 
   3.445611046711111*^9, 3.44561117278363*^9, {3.4456112991243267`*^9, 
   3.445611328933964*^9}, {3.44561143528401*^9, 3.4456114558619413`*^9}, 
   3.445611486091566*^9, 3.445611594615296*^9, 3.445611742248108*^9, 
   3.445611836388829*^9, 3.445611920510149*^9, 3.445612028718822*^9, 
   3.4456120932184343`*^9, 3.4456122322050962`*^9, 3.445775716751371*^9, 
   3.445780190224999*^9, 3.445856383135578*^9, 3.445944739654614*^9, 
   3.4459448706515713`*^9, {3.445947837913556*^9, 3.445947848099348*^9}}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{764, 721},
WindowMargins->{{Automatic, 294}, {Automatic, 113}},
FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (April 20, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 16726, 442, 2104, "Input"],
Cell[CellGroupData[{
Cell[17341, 469, 849, 12, 24, "Print"],
Cell[18193, 483, 1028, 17, 24, "Print"]
}, Open  ]],
Cell[19236, 503, 7161, 128, 248, "Output"],
Cell[26400, 633, 22455, 372, 248, "Output"],
Cell[CellGroupData[{
Cell[48880, 1009, 1107, 19, 24, "Print"],
Cell[49990, 1030, 844, 12, 24, "Print"],
Cell[50837, 1044, 923, 13, 45, "Print"],
Cell[51763, 1059, 864, 12, 24, "Print"],
Cell[52630, 1073, 864, 12, 24, "Print"],
Cell[53497, 1087, 829, 12, 24, "Print"],
Cell[54329, 1101, 848, 12, 24, "Print"],
Cell[55180, 1115, 1018, 17, 24, "Print"]
}, Open  ]],
Cell[56213, 1135, 7368, 130, 252, "Output"],
Cell[63584, 1267, 23994, 397, 247, "Output"],
Cell[CellGroupData[{
Cell[87603, 1668, 1095, 19, 24, "Print"],
Cell[88701, 1689, 844, 12, 28, "Print"],
Cell[89548, 1703, 927, 13, 45, "Print"]
}, Open  ]]
}, Open  ]],
Cell[90502, 1720, 70, 1, 31, "Input"],
Cell[CellGroupData[{
Cell[90597, 1725, 17540, 470, 1864, "Input"],
Cell[CellGroupData[{
Cell[108162, 2199, 1101, 15, 24, "Print"],
Cell[109266, 2216, 1268, 20, 24, "Print"]
}, Open  ]],
Cell[110549, 2239, 7053, 127, 248, "Output"],
Cell[117605, 2368, 22338, 370, 248, "Output"],
Cell[CellGroupData[{
Cell[139968, 2742, 1347, 22, 24, "Print"],
Cell[141318, 2766, 1082, 15, 24, "Print"],
Cell[142403, 2783, 1165, 16, 45, "Print"],
Cell[143571, 2801, 1104, 15, 24, "Print"],
Cell[144678, 2818, 1106, 15, 24, "Print"],
Cell[145787, 2835, 1067, 15, 24, "Print"],
Cell[146857, 2852, 1099, 15, 24, "Print"],
Cell[147959, 2869, 1258, 20, 24, "Print"]
}, Open  ]],
Cell[149232, 2892, 7254, 129, 252, "Output"],
Cell[156489, 3023, 23866, 396, 247, "Output"],
Cell[CellGroupData[{
Cell[180380, 3423, 1334, 22, 24, "Print"],
Cell[181717, 3447, 1084, 15, 28, "Print"],
Cell[182804, 3464, 1165, 16, 45, "Print"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)