quintic-splines.nb

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

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

(* CreatedBy='Mathematica 10.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    360821,       7774]
NotebookOptionsPosition[    355669,       7607]
NotebookOutlinePosition[    356082,       7625]
CellTagsIndexPosition[    356039,       7622]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Quintic splines", "Title",
 CellChangeTimes->{{3.6870916944928417`*^9, 3.687091697435375*^9}}],

Cell[BoxData[
 RowBox[{"ClearAll", "[", "\"\<Global`*\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.684680479313051*^9, 3.684680479320819*^9}}],

Cell["\<\
This file explains the basic working of quintic splines, as we use them in \
the paper of Thomas Blanchet, Juliette Fournier and Thomas Piketty, \
\[OpenCurlyDoubleQuote]Generalized Pareto Curves: Theory and Applications\
\[CloseCurlyDoubleQuote], 2017.\
\>", "Text",
 CellChangeTimes->{{3.700281399512979*^9, 3.700281474522428*^9}, {
  3.7002839611852007`*^9, 3.7002839666941643`*^9}}],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Basis functions", "Section"]], "Subsection",
 CellChangeTimes->{{3.684989899218033*^9, 3.68498990169681*^9}}],

Cell["\<\
Determine the basis functions by solving the appropriate linear system:\
\>", "Text",
 CellChangeTimes->{{3.685629012735795*^9, 3.685629033365636*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"poly", "[", "x_", "]"}], "=", 
  RowBox[{"Sum", "[", 
   RowBox[{
    RowBox[{
     SubscriptBox["a", "i"], " ", 
     SuperscriptBox["x", "i"]}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "0", ",", "5"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.684941960003642*^9, 3.684942029712803*^9}, {
  3.6849899893215923`*^9, 3.684989991668748*^9}, {3.685176631009426*^9, 
  3.6851766313170233`*^9}, {3.6856288295042753`*^9, 3.685628859475457*^9}}],

Cell[BoxData[
 RowBox[{
  SubscriptBox["a", "0"], "+", 
  RowBox[{"x", " ", 
   SubscriptBox["a", "1"]}], "+", 
  RowBox[{
   SuperscriptBox["x", "2"], " ", 
   SubscriptBox["a", "2"]}], "+", 
  RowBox[{
   SuperscriptBox["x", "3"], " ", 
   SubscriptBox["a", "3"]}], "+", 
  RowBox[{
   SuperscriptBox["x", "4"], " ", 
   SubscriptBox["a", "4"]}], "+", 
  RowBox[{
   SuperscriptBox["x", "5"], " ", 
   SubscriptBox["a", "5"]}]}]], "Output",
 CellChangeTimes->{
  3.684942030480625*^9, 3.684942065795905*^9, 3.684944026355228*^9, {
   3.684945273381002*^9, 3.684945280794311*^9}, 3.68498991748419*^9, 
   3.684989998113608*^9, 3.685176631747859*^9, 3.685347104898283*^9, 
   3.6856283803792963`*^9, {3.685628834735063*^9, 3.685628864968989*^9}, 
   3.685628968652377*^9, 3.6856294658763447`*^9, 3.685629553809485*^9, 
   3.685631771672737*^9, {3.68567880885779*^9, 3.685678835144047*^9}, 
   3.685679151707011*^9, 3.68568051838776*^9, 3.68568086034949*^9, 
   3.68568459577321*^9, 3.685691585605138*^9, 3.685692708568653*^9, 
   3.685763898743188*^9, 3.685808000639062*^9, 3.687091765135126*^9, 
   3.687092110851487*^9, 3.6880447043642*^9, 3.68810199611646*^9, 
   3.688196456927136*^9, 3.688457020097662*^9, 3.6887287568456078`*^9, 
   3.688801499239306*^9, 3.688802209390374*^9, 3.70028148976674*^9, 
   3.700283433036175*^9, 3.700283481780992*^9, 3.700283698129599*^9, 
   3.7088463612213287`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"coef", "=", 
  RowBox[{"CoefficientList", "[", 
   RowBox[{
    RowBox[{"poly", "[", "x", "]"}], ",", "x"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.684945261040223*^9, 3.6849452689986143`*^9}, 
   3.684945308364951*^9, {3.684989988433455*^9, 3.684989993564999*^9}, 
   3.6856288326697283`*^9, {3.6856289096938877`*^9, 3.685628912610352*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   SubscriptBox["a", "0"], ",", 
   SubscriptBox["a", "1"], ",", 
   SubscriptBox["a", "2"], ",", 
   SubscriptBox["a", "3"], ",", 
   SubscriptBox["a", "4"], ",", 
   SubscriptBox["a", "5"]}], "}"}]], "Output",
 CellChangeTimes->{{3.684945269398753*^9, 3.6849453090435534`*^9}, 
   3.684989917683358*^9, 3.684989998306355*^9, 3.685176633061595*^9, 
   3.6853471049489737`*^9, 3.685628381830914*^9, 3.68562883561834*^9, 
   3.6856289135227823`*^9, 3.685628970167828*^9, 3.6856294659188023`*^9, 
   3.6856295538618526`*^9, 3.685631771717766*^9, {3.685678808912463*^9, 
   3.685678835198145*^9}, 3.6856791517580423`*^9, 3.6856805184423*^9, 
   3.685680860403775*^9, 3.685684595837726*^9, 3.685691585635099*^9, 
   3.685692708619582*^9, 3.685763898846182*^9, 3.68580800069316*^9, 
   3.6870917651851807`*^9, 3.6870921108837767`*^9, 3.6880447044222393`*^9, 
   3.688101996160397*^9, 3.688196456988263*^9, 3.688457020148888*^9, 
   3.688728756894081*^9, 3.688801499286639*^9, 3.688802209439197*^9, 
   3.700281490641735*^9, 3.7002834330811787`*^9, 3.700283482563916*^9, 
   3.7002836981966467`*^9, 3.70884636127671*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"h00", "[", "x_", "]"}], "=", 
   RowBox[{
    RowBox[{"poly", "[", "x", "]"}], "/.", 
    RowBox[{"First", "[", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"poly", "[", "0", "]"}], "\[Equal]", "1"}], ",", 
         RowBox[{
          RowBox[{"poly", "[", "1", "]"}], "\[Equal]", "0"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"poly", "'"}], "[", "0", "]"}], "\[Equal]", "0"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"poly", "'"}], "[", "1", "]"}], "\[Equal]", "0"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"poly", "''"}], "[", "0", "]"}], "\[Equal]", "0"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"poly", "''"}], "[", "1", "]"}], "\[Equal]", "0"}]}], 
        "}"}], ",", "coef"}], "]"}], "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6849420872073402`*^9, 3.684942163813923*^9}, {
   3.6849453127464323`*^9, 3.684945313413093*^9}, 3.6849899857706013`*^9, 
   3.685176689350861*^9, 3.685176783046506*^9, {3.685360140460148*^9, 
   3.685360141097734*^9}, {3.685628374410289*^9, 3.685628376752512*^9}, {
   3.685628800853541*^9, 3.68562880224675*^9}, {3.6856288433748817`*^9, 
   3.685628846869835*^9}, {3.6856288789839153`*^9, 3.6856289959637327`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"h01", "[", "x_", "]"}], "=", 
   RowBox[{
    RowBox[{"poly", "[", "x", "]"}], "/.", 
    RowBox[{"First", "[", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"poly", "[", "0", "]"}], "\[Equal]", "0"}], ",", 
         RowBox[{
          RowBox[{"poly", "[", "1", "]"}], "\[Equal]", "1"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"poly", "'"}], "[", "0", "]"}], "\[Equal]", "0"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"poly", "'"}], "[", "1", "]"}], "\[Equal]", "0"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"poly", "''"}], "[", "0", "]"}], "\[Equal]", "0"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"poly", "''"}], "[", "1", "]"}], "\[Equal]", "0"}]}], 
        "}"}], ",", "coef"}], "]"}], "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6849420872073402`*^9, 3.684942163813923*^9}, {
   3.6849453127464323`*^9, 3.684945313413093*^9}, 3.6849899857706013`*^9, 
   3.685176689350861*^9, 3.685176783046506*^9, {3.685360140460148*^9, 
   3.685360141097734*^9}, {3.685628374410289*^9, 3.685628376752512*^9}, {
   3.685628800853541*^9, 3.68562880224675*^9}, {3.6856288433748817`*^9, 
   3.685628846869835*^9}, {3.6856288789839153`*^9, 3.6856289959637327`*^9}, {
   3.685629048599828*^9, 3.685629051830378*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"h10", "[", "x_", "]"}], "=", 
   RowBox[{
    RowBox[{"poly", "[", "x", "]"}], "/.", 
    RowBox[{"First", "[", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"poly", "[", "0", "]"}], "\[Equal]", "0"}], ",", 
         RowBox[{
          RowBox[{"poly", "[", "1", "]"}], "\[Equal]", "0"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"poly", "'"}], "[", "0", "]"}], "\[Equal]", "1"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"poly", "'"}], "[", "1", "]"}], "\[Equal]", "0"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"poly", "''"}], "[", "0", "]"}], "\[Equal]", "0"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"poly", "''"}], "[", "1", "]"}], "\[Equal]", "0"}]}], 
        "}"}], ",", "coef"}], "]"}], "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6849420872073402`*^9, 3.684942163813923*^9}, {
   3.6849453127464323`*^9, 3.684945313413093*^9}, 3.6849899857706013`*^9, 
   3.685176689350861*^9, 3.685176783046506*^9, {3.685360140460148*^9, 
   3.685360141097734*^9}, {3.685628374410289*^9, 3.685628376752512*^9}, {
   3.685628800853541*^9, 3.68562880224675*^9}, {3.6856288433748817`*^9, 
   3.685628846869835*^9}, {3.6856288789839153`*^9, 3.6856289959637327`*^9}, {
   3.685629054615835*^9, 3.68562905866987*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"h11", "[", "x_", "]"}], "=", 
   RowBox[{
    RowBox[{"poly", "[", "x", "]"}], "/.", 
    RowBox[{"First", "[", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"poly", "[", "0", "]"}], "\[Equal]", "0"}], ",", 
         RowBox[{
          RowBox[{"poly", "[", "1", "]"}], "\[Equal]", "0"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"poly", "'"}], "[", "0", "]"}], "\[Equal]", "0"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"poly", "'"}], "[", "1", "]"}], "\[Equal]", "1"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"poly", "''"}], "[", "0", "]"}], "\[Equal]", "0"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"poly", "''"}], "[", "1", "]"}], "\[Equal]", "0"}]}], 
        "}"}], ",", "coef"}], "]"}], "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6849420872073402`*^9, 3.684942163813923*^9}, {
   3.6849453127464323`*^9, 3.684945313413093*^9}, 3.6849899857706013`*^9, 
   3.685176689350861*^9, 3.685176783046506*^9, {3.685360140460148*^9, 
   3.685360141097734*^9}, {3.685628374410289*^9, 3.685628376752512*^9}, {
   3.685628800853541*^9, 3.68562880224675*^9}, {3.6856288433748817`*^9, 
   3.685628846869835*^9}, {3.6856288789839153`*^9, 3.6856289959637327`*^9}, {
   3.685629061575141*^9, 3.6856290671094217`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"h20", "[", "x_", "]"}], "=", 
   RowBox[{
    RowBox[{"poly", "[", "x", "]"}], "/.", 
    RowBox[{"First", "[", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"poly", "[", "0", "]"}], "\[Equal]", "0"}], ",", 
         RowBox[{
          RowBox[{"poly", "[", "1", "]"}], "\[Equal]", "0"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"poly", "'"}], "[", "0", "]"}], "\[Equal]", "0"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"poly", "'"}], "[", "1", "]"}], "\[Equal]", "0"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"poly", "''"}], "[", "0", "]"}], "\[Equal]", "1"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"poly", "''"}], "[", "1", "]"}], "\[Equal]", "0"}]}], 
        "}"}], ",", "coef"}], "]"}], "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6849420872073402`*^9, 3.684942163813923*^9}, {
   3.6849453127464323`*^9, 3.684945313413093*^9}, 3.6849899857706013`*^9, 
   3.685176689350861*^9, 3.685176783046506*^9, {3.685360140460148*^9, 
   3.685360141097734*^9}, {3.685628374410289*^9, 3.685628376752512*^9}, {
   3.685628800853541*^9, 3.68562880224675*^9}, {3.6856288433748817`*^9, 
   3.685628846869835*^9}, {3.6856288789839153`*^9, 3.6856289959637327`*^9}, {
   3.685629069199298*^9, 3.685629073189274*^9}, {3.685629161376079*^9, 
   3.685629161665638*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"h21", "[", "x_", "]"}], "=", 
   RowBox[{
    RowBox[{"poly", "[", "x", "]"}], "/.", 
    RowBox[{"First", "[", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"poly", "[", "0", "]"}], "\[Equal]", "0"}], ",", 
         RowBox[{
          RowBox[{"poly", "[", "1", "]"}], "\[Equal]", "0"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"poly", "'"}], "[", "0", "]"}], "\[Equal]", "0"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"poly", "'"}], "[", "1", "]"}], "\[Equal]", "0"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"poly", "''"}], "[", "0", "]"}], "\[Equal]", "0"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"poly", "''"}], "[", "1", "]"}], "\[Equal]", "1"}]}], 
        "}"}], ",", "coef"}], "]"}], "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6849420872073402`*^9, 3.684942163813923*^9}, {
   3.6849453127464323`*^9, 3.684945313413093*^9}, 3.6849899857706013`*^9, 
   3.685176689350861*^9, 3.685176783046506*^9, {3.685360140460148*^9, 
   3.685360141097734*^9}, {3.685628374410289*^9, 3.685628376752512*^9}, {
   3.685628800853541*^9, 3.68562880224675*^9}, {3.6856288433748817`*^9, 
   3.685628846869835*^9}, {3.6856288789839153`*^9, 3.6856289959637327`*^9}, {
   3.685629075950762*^9, 3.685629099012253*^9}, {3.685629163406213*^9, 
   3.6856291640016212`*^9}}],

Cell["Expressions of the basis functions:", "Text",
 CellChangeTimes->{{3.684990391236418*^9, 3.684990398802813*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TableForm", "[", 
  RowBox[{
   RowBox[{"Map", "[", 
    RowBox[{
     RowBox[{"#", "&"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"h00", "[", "x", "]"}], ",", 
       RowBox[{"h01", "[", "x", "]"}], ",", 
       RowBox[{"h10", "[", "x", "]"}], ",", 
       RowBox[{"h11", "[", "x", "]"}], ",", 
       RowBox[{"h20", "[", "x", "]"}], ",", 
       RowBox[{"h21", "[", "x", "]"}]}], "}"}]}], "]"}], ",", 
   RowBox[{"TableHeadings", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"{", 
      RowBox[{
      "\"\<h00\>\"", ",", "\"\<h01\>\"", ",", "\"\<h10\>\"", ",", 
       "\"\<h11\>\"", ",", "\"\<h20\>\"", ",", "\"\<h21\>\""}], "}"}], 
     "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.684990006856089*^9, 3.6849901419897823`*^9}, {
  3.684990210824506*^9, 3.684990249314274*^9}, {3.684990282818565*^9, 
  3.684990329283589*^9}, {3.685003065167923*^9, 3.68500306558323*^9}, {
  3.6850031032129383`*^9, 3.6850031308177557`*^9}, {3.685003165258112*^9, 
  3.685003165520733*^9}, {3.685003202999363*^9, 3.685003227291493*^9}, {
  3.685176647383959*^9, 3.6851766521235933`*^9}, {3.685628405280417*^9, 
  3.6856284332619534`*^9}, {3.6856291063816442`*^9, 3.6856291222594213`*^9}, {
  3.687785409256887*^9, 3.687785409564898*^9}}],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      TagBox["\<\"h00\"\>",
       HoldForm], 
      RowBox[{"1", "-", 
       RowBox[{"10", " ", 
        SuperscriptBox["x", "3"]}], "+", 
       RowBox[{"15", " ", 
        SuperscriptBox["x", "4"]}], "-", 
       RowBox[{"6", " ", 
        SuperscriptBox["x", "5"]}]}]},
     {
      TagBox["\<\"h01\"\>",
       HoldForm], 
      RowBox[{
       RowBox[{"10", " ", 
        SuperscriptBox["x", "3"]}], "-", 
       RowBox[{"15", " ", 
        SuperscriptBox["x", "4"]}], "+", 
       RowBox[{"6", " ", 
        SuperscriptBox["x", "5"]}]}]},
     {
      TagBox["\<\"h10\"\>",
       HoldForm], 
      RowBox[{"x", "-", 
       RowBox[{"6", " ", 
        SuperscriptBox["x", "3"]}], "+", 
       RowBox[{"8", " ", 
        SuperscriptBox["x", "4"]}], "-", 
       RowBox[{"3", " ", 
        SuperscriptBox["x", "5"]}]}]},
     {
      TagBox["\<\"h11\"\>",
       HoldForm], 
      RowBox[{
       RowBox[{
        RowBox[{"-", "4"}], " ", 
        SuperscriptBox["x", "3"]}], "+", 
       RowBox[{"7", " ", 
        SuperscriptBox["x", "4"]}], "-", 
       RowBox[{"3", " ", 
        SuperscriptBox["x", "5"]}]}]},
     {
      TagBox["\<\"h20\"\>",
       HoldForm], 
      RowBox[{
       FractionBox[
        SuperscriptBox["x", "2"], "2"], "-", 
       FractionBox[
        RowBox[{"3", " ", 
         SuperscriptBox["x", "3"]}], "2"], "+", 
       FractionBox[
        RowBox[{"3", " ", 
         SuperscriptBox["x", "4"]}], "2"], "-", 
       FractionBox[
        SuperscriptBox["x", "5"], "2"]}]},
     {
      TagBox["\<\"h21\"\>",
       HoldForm], 
      RowBox[{
       FractionBox[
        SuperscriptBox["x", "3"], "2"], "-", 
       SuperscriptBox["x", "4"], "+", 
       FractionBox[
        SuperscriptBox["x", "5"], "2"]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxDividers->{
     "Columns" -> {False, {True}, False}, "ColumnsIndexed" -> {}, 
      "Rows" -> {{False}}, "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   OutputFormsDump`HeadedColumn],
  Function[BoxForm`e$, 
   TableForm[
   BoxForm`e$, 
    TableHeadings -> {{
      "h00", "h01", "h10", "h11", "h20", "h21"}}]]]], "Output",
 CellChangeTimes->{{3.685003200078638*^9, 3.6850032280207872`*^9}, 
   3.685176652579823*^9, {3.68517669590998*^9, 3.6851767056277103`*^9}, 
   3.685176789845813*^9, 3.685347105137455*^9, {3.685628413783556*^9, 
   3.6856284336158667`*^9}, {3.685629102708467*^9, 3.685629122728353*^9}, 
   3.68562916914865*^9, 3.6856294660732393`*^9, 3.685629554088559*^9, 
   3.6856317718728456`*^9, {3.685678809068956*^9, 3.685678835347557*^9}, 
   3.68567915191183*^9, 3.685680518595984*^9, 3.685680860583379*^9, 
   3.685684595939663*^9, 3.685691585716126*^9, 3.685692708746517*^9, 
   3.685763899203595*^9, 3.685808000831757*^9, 3.687091765339613*^9, 
   3.687092110958723*^9, 3.688044704596019*^9, 3.688101996304497*^9, 
   3.6881964571438704`*^9, 3.688457020268594*^9, 3.688728757040895*^9, 
   3.6888014997151327`*^9, 3.688802209558052*^9, 3.700281496621337*^9, 
   3.700283433254819*^9, 3.7002834881320057`*^9, 3.7002836983978453`*^9, 
   3.708846361423663*^9}]
}, Open  ]],

Cell["Their first derivatives:", "Text",
 CellChangeTimes->{{3.684990403419731*^9, 3.684990423729601*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TableForm", "[", 
  RowBox[{
   RowBox[{"Map", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{"#", ",", "x"}], "]"}], "&"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"h00", "[", "x", "]"}], ",", 
       RowBox[{"h01", "[", "x", "]"}], ",", 
       RowBox[{"h10", "[", "x", "]"}], ",", 
       RowBox[{"h11", "[", "x", "]"}], ",", 
       RowBox[{"h20", "[", "x", "]"}], ",", 
       RowBox[{"h21", "[", "x", "]"}]}], "}"}]}], "]"}], ",", 
   RowBox[{"TableHeadings", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"{", 
      RowBox[{
      "\"\<h00\>\"", ",", "\"\<h01\>\"", ",", "\"\<h10\>\"", ",", 
       "\"\<h11\>\"", ",", "\"\<h20\>\"", ",", "\"\<h21\>\""}], "}"}], 
     "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.684990006856089*^9, 3.6849901230626593`*^9}, {
   3.68499015574329*^9, 3.6849901829980297`*^9}, {3.684990337994215*^9, 
   3.684990344282283*^9}, {3.685003234112753*^9, 3.685003236210985*^9}, {
   3.685176798167704*^9, 3.685176803578732*^9}, {3.685628443553988*^9, 
   3.685628449887354*^9}, 3.685629139246377*^9, {3.6877854122732143`*^9, 
   3.687785412580718*^9}}],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      TagBox["\<\"h00\"\>",
       HoldForm], 
      RowBox[{
       RowBox[{
        RowBox[{"-", "30"}], " ", 
        SuperscriptBox["x", "2"]}], "+", 
       RowBox[{"60", " ", 
        SuperscriptBox["x", "3"]}], "-", 
       RowBox[{"30", " ", 
        SuperscriptBox["x", "4"]}]}]},
     {
      TagBox["\<\"h01\"\>",
       HoldForm], 
      RowBox[{
       RowBox[{"30", " ", 
        SuperscriptBox["x", "2"]}], "-", 
       RowBox[{"60", " ", 
        SuperscriptBox["x", "3"]}], "+", 
       RowBox[{"30", " ", 
        SuperscriptBox["x", "4"]}]}]},
     {
      TagBox["\<\"h10\"\>",
       HoldForm], 
      RowBox[{"1", "-", 
       RowBox[{"18", " ", 
        SuperscriptBox["x", "2"]}], "+", 
       RowBox[{"32", " ", 
        SuperscriptBox["x", "3"]}], "-", 
       RowBox[{"15", " ", 
        SuperscriptBox["x", "4"]}]}]},
     {
      TagBox["\<\"h11\"\>",
       HoldForm], 
      RowBox[{
       RowBox[{
        RowBox[{"-", "12"}], " ", 
        SuperscriptBox["x", "2"]}], "+", 
       RowBox[{"28", " ", 
        SuperscriptBox["x", "3"]}], "-", 
       RowBox[{"15", " ", 
        SuperscriptBox["x", "4"]}]}]},
     {
      TagBox["\<\"h20\"\>",
       HoldForm], 
      RowBox[{"x", "-", 
       FractionBox[
        RowBox[{"9", " ", 
         SuperscriptBox["x", "2"]}], "2"], "+", 
       RowBox[{"6", " ", 
        SuperscriptBox["x", "3"]}], "-", 
       FractionBox[
        RowBox[{"5", " ", 
         SuperscriptBox["x", "4"]}], "2"]}]},
     {
      TagBox["\<\"h21\"\>",
       HoldForm], 
      RowBox[{
       FractionBox[
        RowBox[{"3", " ", 
         SuperscriptBox["x", "2"]}], "2"], "-", 
       RowBox[{"4", " ", 
        SuperscriptBox["x", "3"]}], "+", 
       FractionBox[
        RowBox[{"5", " ", 
         SuperscriptBox["x", "4"]}], "2"]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxDividers->{
     "Columns" -> {False, {True}, False}, "ColumnsIndexed" -> {}, 
      "Rows" -> {{False}}, "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   OutputFormsDump`HeadedColumn],
  Function[BoxForm`e$, 
   TableForm[
   BoxForm`e$, 
    TableHeadings -> {{
      "h00", "h01", "h10", "h11", "h20", "h21"}}]]]], "Output",
 CellChangeTimes->{{3.684990168745708*^9, 3.684990183491531*^9}, 
   3.68499034509511*^9, 3.6850032365555*^9, 3.685176803936647*^9, 
   3.685347105182046*^9, 3.685628451027112*^9, {3.6856291522792788`*^9, 
   3.6856291709546423`*^9}, 3.685629466120035*^9, 3.685629554137014*^9, 
   3.685631771918949*^9, {3.685678809112508*^9, 3.685678835397896*^9}, 
   3.685679151958509*^9, 3.685680518642*^9, 3.685680860638432*^9, 
   3.6856845959718637`*^9, 3.685691585748156*^9, 3.685692708790575*^9, 
   3.6857638992525673`*^9, 3.685808000860745*^9, 3.687091765384616*^9, 
   3.687092110999855*^9, 3.68804470465736*^9, 3.6881019964081697`*^9, 
   3.688196457205966*^9, 3.688457020329669*^9, 3.688728757075632*^9, 
   3.6888014998678637`*^9, 3.688802209605153*^9, 3.700281500291835*^9, 
   3.700283433322373*^9, 3.700283489947556*^9, 3.70028369847964*^9, 
   3.708846361472569*^9}]
}, Open  ]],

Cell["Their second derivatives:", "Text",
 CellChangeTimes->{{3.684990415275172*^9, 3.684990421089902*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TableForm", "[", 
  RowBox[{
   RowBox[{"Map", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{"#", ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "2"}], "}"}]}], "]"}], "&"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"h00", "[", "x", "]"}], ",", 
       RowBox[{"h01", "[", "x", "]"}], ",", 
       RowBox[{"h10", "[", "x", "]"}], ",", 
       RowBox[{"h11", "[", "x", "]"}], ",", 
       RowBox[{"h20", "[", "x", "]"}], ",", 
       RowBox[{"h21", "[", "x", "]"}]}], "}"}]}], "]"}], ",", 
   RowBox[{"TableHeadings", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"{", 
      RowBox[{
      "\"\<h00\>\"", ",", "\"\<h01\>\"", ",", "\"\<h10\>\"", ",", 
       "\"\<h11\>\"", ",", "\"\<h20\>\"", ",", "\"\<h21\>\""}], "}"}], 
     "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.684990006856089*^9, 3.6849901230626593`*^9}, {
   3.68499015574329*^9, 3.6849901829980297`*^9}, {3.684990337994215*^9, 
   3.684990344282283*^9}, {3.684990374853567*^9, 3.684990377037428*^9}, {
   3.685003239537446*^9, 3.6850032421080437`*^9}, {3.6851768068003407`*^9, 
   3.685176811962728*^9}, {3.6856284607511253`*^9, 3.685628467374769*^9}, 
   3.685629149697117*^9, {3.687785414200398*^9, 3.6877854144606123`*^9}}],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      TagBox["\<\"h00\"\>",
       HoldForm], 
      RowBox[{
       RowBox[{
        RowBox[{"-", "60"}], " ", "x"}], "+", 
       RowBox[{"180", " ", 
        SuperscriptBox["x", "2"]}], "-", 
       RowBox[{"120", " ", 
        SuperscriptBox["x", "3"]}]}]},
     {
      TagBox["\<\"h01\"\>",
       HoldForm], 
      RowBox[{
       RowBox[{"60", " ", "x"}], "-", 
       RowBox[{"180", " ", 
        SuperscriptBox["x", "2"]}], "+", 
       RowBox[{"120", " ", 
        SuperscriptBox["x", "3"]}]}]},
     {
      TagBox["\<\"h10\"\>",
       HoldForm], 
      RowBox[{
       RowBox[{
        RowBox[{"-", "36"}], " ", "x"}], "+", 
       RowBox[{"96", " ", 
        SuperscriptBox["x", "2"]}], "-", 
       RowBox[{"60", " ", 
        SuperscriptBox["x", "3"]}]}]},
     {
      TagBox["\<\"h11\"\>",
       HoldForm], 
      RowBox[{
       RowBox[{
        RowBox[{"-", "24"}], " ", "x"}], "+", 
       RowBox[{"84", " ", 
        SuperscriptBox["x", "2"]}], "-", 
       RowBox[{"60", " ", 
        SuperscriptBox["x", "3"]}]}]},
     {
      TagBox["\<\"h20\"\>",
       HoldForm], 
      RowBox[{"1", "-", 
       RowBox[{"9", " ", "x"}], "+", 
       RowBox[{"18", " ", 
        SuperscriptBox["x", "2"]}], "-", 
       RowBox[{"10", " ", 
        SuperscriptBox["x", "3"]}]}]},
     {
      TagBox["\<\"h21\"\>",
       HoldForm], 
      RowBox[{
       RowBox[{"3", " ", "x"}], "-", 
       RowBox[{"12", " ", 
        SuperscriptBox["x", "2"]}], "+", 
       RowBox[{"10", " ", 
        SuperscriptBox["x", "3"]}]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxDividers->{
     "Columns" -> {False, {True}, False}, "ColumnsIndexed" -> {}, 
      "Rows" -> {{False}}, "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   OutputFormsDump`HeadedColumn],
  Function[BoxForm`e$, 
   TableForm[
   BoxForm`e$, 
    TableHeadings -> {{
      "h00", "h01", "h10", "h11", "h20", "h21"}}]]]], "Output",
 CellChangeTimes->{{3.684990168745708*^9, 3.684990183491531*^9}, 
   3.68499034509511*^9, 3.684990377451785*^9, 3.6850032426037703`*^9, {
   3.685176808236891*^9, 3.685176812383436*^9}, 3.685347105232048*^9, {
   3.685628562753134*^9, 3.685628586146536*^9}, {3.68562915423742*^9, 
   3.6856291726773167`*^9}, 3.685629466170535*^9, 3.685629554191453*^9, 
   3.68563177196902*^9, {3.685678809162964*^9, 3.685678835447968*^9}, 
   3.685679152009077*^9, 3.685680518691959*^9, 3.685680860686351*^9, 
   3.685684596007206*^9, 3.6856915857781277`*^9, 3.6856927088365927`*^9, 
   3.685763899309658*^9, 3.685808000909861*^9, 3.68709176543694*^9, 
   3.6870921110502787`*^9, 3.6880447047209883`*^9, 3.688101996513956*^9, 
   3.688196457254113*^9, 3.688457020378339*^9, 3.688728757129807*^9, 
   3.688801499998973*^9, 3.6888022096551657`*^9, 3.7002815017903357`*^9, 
   3.70028343338912*^9, 3.7002834914059763`*^9, 3.700283698563457*^9, 
   3.708846361523472*^9}]
}, Open  ]],

Cell["Their third derivatives:", "Text",
 CellChangeTimes->{{3.684990415275172*^9, 3.684990421089902*^9}, {
  3.6856926967355547`*^9, 3.685692697590362*^9}, {3.688457008496788*^9, 
  3.688457009082955*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TableForm", "[", 
  RowBox[{
   RowBox[{"Map", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{"#", ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "3"}], "}"}]}], "]"}], "&"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"h00", "[", "x", "]"}], ",", 
       RowBox[{"h01", "[", "x", "]"}], ",", 
       RowBox[{"h10", "[", "x", "]"}], ",", 
       RowBox[{"h11", "[", "x", "]"}], ",", 
       RowBox[{"h20", "[", "x", "]"}], ",", 
       RowBox[{"h21", "[", "x", "]"}]}], "}"}]}], "]"}], ",", 
   RowBox[{"TableHeadings", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"{", 
      RowBox[{
      "\"\<h00\>\"", ",", "\"\<h01\>\"", ",", "\"\<h10\>\"", ",", 
       "\"\<h11\>\"", ",", "\"\<h20\>\"", ",", "\"\<h21\>\""}], "}"}], 
     "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.684990006856089*^9, 3.6849901230626593`*^9}, {
   3.68499015574329*^9, 3.6849901829980297`*^9}, {3.684990337994215*^9, 
   3.684990344282283*^9}, {3.684990374853567*^9, 3.684990377037428*^9}, {
   3.685003239537446*^9, 3.6850032421080437`*^9}, {3.6851768068003407`*^9, 
   3.685176811962728*^9}, {3.6856284607511253`*^9, 3.685628467374769*^9}, 
   3.685629149697117*^9, {3.685692699933881*^9, 3.685692700175476*^9}, {
   3.687785417273035*^9, 3.6877854175236483`*^9}, {3.6884570113856707`*^9, 
   3.688457011660142*^9}, {3.68845707292223*^9, 3.6884570894442053`*^9}, {
   3.700281511316965*^9, 3.700281525393317*^9}}],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      TagBox["\<\"h00\"\>",
       HoldForm], 
      RowBox[{
       RowBox[{"-", "60"}], "+", 
       RowBox[{"360", " ", "x"}], "-", 
       RowBox[{"360", " ", 
        SuperscriptBox["x", "2"]}]}]},
     {
      TagBox["\<\"h01\"\>",
       HoldForm], 
      RowBox[{"60", "-", 
       RowBox[{"360", " ", "x"}], "+", 
       RowBox[{"360", " ", 
        SuperscriptBox["x", "2"]}]}]},
     {
      TagBox["\<\"h10\"\>",
       HoldForm], 
      RowBox[{
       RowBox[{"-", "36"}], "+", 
       RowBox[{"192", " ", "x"}], "-", 
       RowBox[{"180", " ", 
        SuperscriptBox["x", "2"]}]}]},
     {
      TagBox["\<\"h11\"\>",
       HoldForm], 
      RowBox[{
       RowBox[{"-", "24"}], "+", 
       RowBox[{"168", " ", "x"}], "-", 
       RowBox[{"180", " ", 
        SuperscriptBox["x", "2"]}]}]},
     {
      TagBox["\<\"h20\"\>",
       HoldForm], 
      RowBox[{
       RowBox[{"-", "9"}], "+", 
       RowBox[{"36", " ", "x"}], "-", 
       RowBox[{"30", " ", 
        SuperscriptBox["x", "2"]}]}]},
     {
      TagBox["\<\"h21\"\>",
       HoldForm], 
      RowBox[{"3", "-", 
       RowBox[{"24", " ", "x"}], "+", 
       RowBox[{"30", " ", 
        SuperscriptBox["x", "2"]}]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxDividers->{
     "Columns" -> {False, {True}, False}, "ColumnsIndexed" -> {}, 
      "Rows" -> {{False}}, "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   OutputFormsDump`HeadedColumn],
  Function[BoxForm`e$, 
   TableForm[
   BoxForm`e$, 
    TableHeadings -> {{
      "h00", "h01", "h10", "h11", "h20", "h21"}}]]]], "Output",
 CellChangeTimes->{3.7002815263803673`*^9, 3.7002834334560003`*^9, 
  3.7002834928594837`*^9, 3.7002836986272707`*^9, 3.7088463615733128`*^9}]
}, Open  ]],

Cell["Plots of the basis functions:", "Text",
 CellChangeTimes->{{3.684990477824429*^9, 3.6849904832395267`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GraphicsColumn", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"h00", "[", "x", "]"}], ",", 
        RowBox[{"h01", "[", "x", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "0", ",", "1"}], "}"}], ",", 
      RowBox[{
      "PlotLabel", "\[Rule]", 
       "\"\<\!\(\*SubscriptBox[\(h\), \(00\)]\) and \!\(\*SubscriptBox[\(h\), \
\(01\)]\)\>\""}]}], "]"}], ",", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"h10", "[", "x", "]"}], ",", 
        RowBox[{"h11", "[", "x", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "0", ",", "1"}], "}"}], ",", 
      RowBox[{
      "PlotLabel", "\[Rule]", 
       "\"\<\!\(\*SubscriptBox[\(h\), \(10\)]\) and \!\(\*SubscriptBox[\(h\), \
\(11\)]\)\>\""}]}], "]"}], ",", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"h20", "[", "x", "]"}], ",", 
        RowBox[{"h21", "[", "x", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "0", ",", "1"}], "}"}], ",", 
      RowBox[{
      "PlotLabel", "\[Rule]", 
       "\"\<\!\(\*SubscriptBox[\(h\), \(20\)]\) and \!\(\*SubscriptBox[\(h\), \
\(21\)]\)\>\""}]}], "]"}]}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.684990485945263*^9, 3.684990569389597*^9}, {
  3.68499060031497*^9, 3.6849906248023443`*^9}, {3.68499067011257*^9, 
  3.684990750258647*^9}, {3.684990794366681*^9, 3.684990843615131*^9}, {
  3.6849908971171207`*^9, 3.684990978032452*^9}, {3.685176823742893*^9, 
  3.685176852691267*^9}, {3.685628567078393*^9, 3.685628599609522*^9}, {
  3.685629176041779*^9, 3.6856291896107283`*^9}, {3.700281551441834*^9, 
  3.700281551800363*^9}, {3.700283677051199*^9, 3.700283678336792*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {InsetBox[
     GraphicsBox[{{{}, {}, 
        TagBox[
         {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
          Opacity[1.], LineBox[CompressedData["
1:eJwl2Hc8Ve8fAPAbFSIiCiWZkZFURLmfQpmJjJBEyIqsSpTwtUdkJ2VlVMaN
i+xrNhAZyd4icigrGb/n3N/9577er885z/P5nGfde/hu3rliRUMgEJy3EQj4
t7rV1FfKtD6RQP3Mw3YlbqchrpOgZfJ9a2sLgxPJCUmFXMowxlK3iXv8oKDP
fWEtKO9v/4dbo6W74AWXHjQuci/jFgzjydjiNYLmv3mzuNfVLeLNhU3BYiNt
EPdPv8568zhz6PdmbMJ91XKlMorLEo7d3SDhrlfiLqlLugWz8k8icEsJKJAW
eW1BJK3DCncSjdlroXR7cPg5Jo2bftQ3zUDYETJqu5Y2kcuG21vq9JyASY2S
i9tJ21LdJM4ZeBjLjXALU5YaF7td4PGOwdUN5IFjgUrhXG6wkn4+BHdMMidF
6Npd0K3ZZMKtzvLmbFXSPTDOkvReRyY8PlNqMHgfSplnRv8hF881n8J4H8Cf
Q1oncd82NS0INPcAbUcX1zVk/i+Y5OF0T/i0zTX5L/J3BZ+378cfwrKmfckq
8pNcNhEdYS+gkb5ftoJ8gefVq2nrxxC9rTBrGdmrMXFPjZ43lHqc8VpCNvIa
0wpf8oaxzxIKi8gnZcTDjeJ8oD48a+w3MsucW5OQrC+otTQ6LeDPO6OS4Xe3
L/huezOGIadwXA4I4fKD11qn788ie7bE1xuU+UH3I/64n8gG/sM0Atf8geOL
VvwUMtOS8+PypACIKJ4/O478I6esMlAhEO52ZA+NINda0q7rDgZCMreI+RCy
e2eM+yxvMBhO7tjoQdYNGyh+TwmGpmtvOLqRJZWFl/zMQ0BwIJWhE59PhSXO
POmhEBHP7d2CXG1PIE0rhUGI2AThM3KigNpc0XgYcPrEGjUi60T32mkJP4G1
LmJEFbK4hsBr7g9PgC7Bz64Mnw+0t39MWkfAWooadzHyjdLNd9V6kSBbiv3J
QdbkEPgqlBEJvfOHD2YjyzurzIcuRcJCtTNHOjKHaKSkYdxTMD603z0Bmcaf
fKlq8im4yFUPRSHPD3+/LSgbBRa0khzhyE0JfG/nu6Mg2Jxx0hvZh77wSDBX
DETtj6C/hXxU5WlQgVMMvBizEDFFbve/M933IQbM5A12GODrhVb8reS9WNjN
bf1bGblx45VkZ3sc5O4XeMiLfOfsfxEbovGw8eKTNQcyp6f5vLBPPPwcVaJn
RLZd5Sl4cCwBGKqfWSxtovH6E3eKN+wZ0GSdsm5ELjp+N0517Bk83BjuL0U2
ddJdcZZPhHm5M1s5yPm/WErrpxJBZ2LxQhTylamgs3YXkkAgw6baEPmfsPWL
6KQk2NHg4qWG/MrqwmbFnyTY/k5sVA55aXQbhSXtBWRWkqO5kBMGPJSKNl9C
tmrEf50bGJw/aPRqUD8ZRmzua9Yi/zSW3UGfmwwODdIF+ciHZh9Y5EqkgJDc
Oe1g5Du2MkKE/hQYXEgpl0WuD8roiqFLBcsRBm1+ZM5s9gDRE6nQ0v7kARMy
ZfL35JWQVPjddyBoaB0DNsv87IzTaeCw8dbdG/nWf4eM5C3TIOaR8XNr5PK0
cIbWiDRom3iqoYVsOWJvtzqZBhMR/drcyEWmIuIaselAF/+xM+cfBoZGqfnz
C6+AOYzxT9kaBlif3q407gyQan/xOgk5wJTeSlcpA8L+PMMeIRda3OEujskA
ZYZhYUBmdlTw95TNhJPD4pIVfzFo8O0x3vkoC5YU724kr2JgsiO8qCQjC2xq
7XU9kH8Hnttj+yULxgYUJPSQD4dnNTTxZkP6VrLtTuSH8XelntZmg+BoyoLl
CgbSOaw7D9K/gaplrjSGZQw+STaYtUi9AdKVwpG+JQzM3rmXexm9Adee7Ym5
yOHFQ04jb95AMf0+l8vIU5TcvsxLbyHJDssJW8TgZZfau+PROXDOq6l49jcG
jFs+JiqH8sGLm9WTiKHxtb1qKn4xH078bvu0NYfmb6e4GatjPrQ/1PWlIBNf
d1v0VebD+QqQPIdc+jquqESSBB9kBMxP/8Lgl+5shcYXErwgUfIZZ9D+xdCt
QBwlQd57dr26nxh4VNVUSS2TIPRzu6EHMp1oPIXj0Dvw71DymZzGgG/zfP2Q
wzvoebKbWDKFgX52fJPr7gIgdbBPy02i8+G6r+YtvgLY/VpW+8cEBqNsDi2G
pwpgWOEzcwzynUeKrQrXC+D6MFPkzDgGwVd+tdPlFoDidkp01BgGleuKvc81
C4GP9EWYMoyBkM7cVF0oGZ5x7WmM7cWA+7GKvHUqGd50B4kKIu/JTQndVUKG
/sHagnc9GKzR60rqjJLha9fUic/fMWijlLgOni6CEn3uoflvqD4pn83ViSIQ
ISdrsHdg8IWFnV3yXAl8/6Yglv8ZgzoFB6uv+iVQa3uHlQ/5vX1jsZt9CdCf
r2GI+oRB+gd3o/K4EuDZ5yLp/BHtt48HXqr+KgHOvB5ZwUZ03mCZohaJ74F8
beCzSQ0G97/IQcJiKbzjTmZkL0HzUbJo4hN9GehrJpNcitF6DpcK+3ewDLZk
me63FWHwVfNIj+mFMvgk/+BWMBkDsSZ2V6G4Mugp/VI3/w6DoQ9YZoFsORpc
ugOxORio1GQwt3hUgMAPEYvjqRgMHuYr2nxSAZ4nim1dUzBw8066JpVeAQcZ
6/3IyRikQnR2dFMFTCj0LZ94ifaXSm9F44OVQFQwoxx5jvajsmv3flRWQuXI
0djRGAz2k1kHt22rhpaJf2VpgWi9hP3TG99XDUnijPzkAAzSLCeaGsWrwSFo
/la9PzoPOEpLQw2roeanX9DIfxgo3jOL5SBVwz/90UPM3hjIJF3NjDlGATc+
K3kpdwzMTTOvZw9SwGneTi/WGgM/9QPPnk1TQH0i8rXPLQwyZSI7QxYpYGj2
uvW2FQazzB4aDrtq0Lw6GQ4WGNyrviQnLVMD2v2Gdd9MMQg7vMReEV4Djjtf
fm7SR78PRpWaW8/WQkp5aHuLIgbfVH0WwlVqIU3DVffZeQyW86r2aV6phbdy
sRkW5zCQ9ZQz/2hdC4MtehWLCmj89x5bpkTVAvO681t6ObSelLkPF0whL/3W
WpHEoCJz3jUmpg5yNkqLf3Gh89juxQGj2XqYLT9eLDU7B4XT9vamy/UgVpZl
+/HnHLyykS+3IDTAjxIS3Y3pOfC/1W3syN4ABJNOmuDJOVC9yZr439kGGDw+
NN86PAetRv6ceWEN8Jw8ECTaNQf9qg4ctBKN0OLp/HJX5RwsCSuw5Dp8gNni
ws2HwXNA8/ftngNCn2Fv8yMnrV1zILNlVqyb1wyNk7dLLb1/QbPfyS+NR1vB
OW5GkPhjFngjZ/6+nmuDqw/W4tUkZmFmZWiwS6odzg+fOVrlMAOvfpZ/Zn7S
AZ3KgZnaoT+BmScLGx/vhJFejIHn+TSE2RbdShH8Bjufk9xUc6Zg+dzbcZvH
3WDk/sMgPPEHuEnXk/fVfQcXpXXD+ieTMJRXH/qVrxd2nQpXZzSfgH92nc9F
Pfrgg7+VB/excRA7T7d5q7wfHh6SbB7aNQYqaXzW7/YPgpRtiDn54wjc57nB
P2IyBH5RC3GjCcMgPqvP2H1pGLJXOqPE+gdhL8s8ff3aMHDGvCn/q98P26uf
5wskjYCNZk/kMKEX7E+W9zBojMJ3zjZypF83vFW7mVK1PArk5AHzwwJdsDTD
vWcybgyCVn3sCOvtUKSrQhujPA6cdQL1dJVt8FjVP5k8OQ5tirydrQ9agG9A
/Xu6/wQ4SSb/CKj5BPKyfjFc0pNgtsZEmllpAJNDrX+3dUzCvK1qaG1+LSx9
Dh918vkBh50eyfh0V0HCdlO3K4JTcC77SYGoTinsHSxKo6lHVvi6P8ONDDse
+ejJOU+D91Zo5bbUfCC8Ns0fZfsJhFKttZ4j2dA42+2YzPETvEke5X8ZsiFM
SkfShBPFnX93Sc5mwf73SrldPCjee4Wlh5QFkh9E3n4UQaY1MpU4kwUmE78z
84h4ezS5HbqZUMoX+NLDDlk3rIou9hW4JOaHs9Wi64Nbdb0MUqFkPTGwth7F
F4fs9IipsG4a4OPyAdnnkCtROBUCBa7fbW9GDqFV11pOgaScXdejupGb+cgm
8SnQUGUlzvYLOXth6WZZMnCOHWhi5ZwBwqVEMSUsCa5foGuo4UYWaiUM1iVB
WtbvKmceZHOnL+ivEIjf/lTwlR85zkE6QTEJzi/dS3wqgexWLXMt4TnY0bXb
sioht0i282skQqVYED2rI3LC5QqPlniQ6dzfEuWETMokeryOB9LDrKfsrshf
/hYk+sdDWksjN6c7ci2mQyTGQ9CdHRK8vsg9jsEs7+LgSqGvjkQcsvorSntS
LPyQf5SoVoV8bkk7NSwazMaYbjRRkGtUaPJvR0NvaJLApTpkfsPYfs1oaO4v
z9H+iCy642z87mgo8FqrutqO1xMXFBwZBQ9r749ZTeL5iE8YJT0FVnUXcV/m
WSAkBQQ1xUVASg0LozwrstYaD61xBEjJ5U4v7EW+iX305YkALZGpTHMuZPnn
i0YZTyBkpynfeUHkQ9rvLN+Hw/Y6tX0EeeQp146OmVBYPsNH8LJCfhmnrxsY
BP6FVYOnbJANGKqu6gYBu5hJ5S87ZBPJvBTeIDjBHe9x3QnZ/WDO1vtAcFpl
WjrriZw22DA3FwDT5NXpf5HIkeFq96z9oV+ireNBBX7/UXGNEF9InmF9RFuN
XM+XFGjuCzdf6wqH1yC72Kmun/aFacFu95RG5MHByfApH1g+MMjzoQ15z0fx
y+o+wLpr1pp9Atmm4MBxTm+4OEm3nrf7FxBELppdLvUEhldqGaf3IJN7VW3u
ekKzeahWLRuye/6Nn8c9QXeAObVrP7LNHX7RHA8w6+S4uM6H3CktH5LxADxr
BSLVZJC/n97x6u19IL0EwXFT5HW+unu0bvDH4w+duTlyyselyy2uIHM1a2bA
All5PCAg3hXKWVgKu21w6zbuknCFRu/B800uyEGHK21MXKDv5qMbBQHIq7HM
is1OcAiOKx0LRp6youl47gRmByaEc0KR3Z6oVNo7wWSH5lxGJHLb7YokJieY
Vz746FkiXs8fOkKGI+w8Up7onYfsJMEvP2AParR3vDZIyPTGRJVAewgb4r/p
UYg8/z1w87g9sCaEiLq9xz3hbhtsBwcZjN9b1yJTip7xnbMF6ZnVLq1vuLV6
k5tvwfV8GVaeTTy/JZvp6zeh2HiVuY0wBwROtlOJ+24C884ypv9o5/DnwbbZ
ag4UEwX6aXpk+kbafmVz4N+lvEXei0zIedUnYwaTljq/NEWRKby/ve6ZAHHP
3pktMWTSkeawjWsQX945VSCJfNjXcMr/GqiyGY5znkQ2w1R8E43hTbVp3zgR
WWrLn6PDEBy5b396qIf37ylv4K0PjQ0SH45dxdufDfM5oA+8zlj9qBGytyHn
SIketH1woajeQJ7XuyqzqAvSdx+UsNvhJmcxel6BldaAjJzHeP/2pkOPL4O2
p2r6DV/kc+YC0n1akC28K5XNH+/PSvv9aS0wfhSe5B6C52dkoLOmCRVHY6KV
Y/F6gxoM4tXB2z/Vp/8N3r/Vt9xTF2H3fTp181zkYZMT2uUXINHGgW0yH29P
USdX8QIUasilY2Q8/+1mYQbKMMn6tZ6mGs/nxY3wKEVwoZUND6zB48+sioQU
YWsxSZ+pHu8/nt+n7DxwfreZ5PiEO5dndeocaLwk0It24NeP+woWEOF7xK22
3C7cPDZMvxXA0qc5Qfo7nm/pN6ZTCuBlmSB6dgDPNzIZ6s8A6aiUxuUfuPn0
GnfKwb6SG0/u/sOvr+Hl2n8S0rMbDNY28DjNwQr/EyCVKMb7mIAhZ5jvX5EG
tUcr+UE7cDtcGBw5Dg+VIr4+Z0EmRMjS5B0DhlNLzw6z4abRciuShDjhazcz
2Kk+u1gjAfkMR/7kceFOrJ2ZFoPR1ir2WgHcVwjX3ETgTo3gwEVh3KOBA2lH
YL0gJKNJBLeuD8M3YeCIM5DpksA9t19MXQhUTeauTsni3v1YyoYfOi/pHXaQ
xx1wJ7GMD8yhbGrhLO7gahVWPvDgD3jw7zzumJ/OcbyQO8XznFkTd9jWvmFu
CHrhbzaohftLG10mF1he+SWUp4Nb/mzUXU44WFFBunQV9ybnqNQ+WHUSvMdj
jNvO2fQgB3QIhZ35ZYL7pPToHnYIibjWGHaTen/HbXY2uKVcF2piRc1/QVSA
FRT/HtURt8Hdv2Qsvwf+3lzra3LAPfsfPe1usJF5trDrAW7SO8rATlCeIZT0
euJ2uqjrsQN4U2wevvHCPfz6vtB2+MZwmk7dj9r/e5XMbVBQldzMFYjbcvKa
JwGeuNJFTQfjTujIKN8kXhj4djA4AvdpZefoNeLhKOKoYRRu1V08GavE9YuZ
WSKxuM1OiLUuE8mku9IfE3HPl9HZ/SFGWg2sxL/A7f4ptWeBaM99odI6hdre
81M35on8fuyqdJm421wqdGeIm6cf7u7OptbD4t43Rez5Ndae+ZZqeY2QSSI5
TSPhXh7uPaobpuPEyKuF1y++w00Z0jMcJd5mOiCwj0ytf2P/3WGiao3v1EQx
7pSR/TYDxK2jV1z9K6jPw1HqSDexd6j0tH41bkLsHYtOYnEM36ZgLbUeK4ne
r8QoteC6xXrc3l59rK1Ex835oPoPVGvf6v1MVC801Ir5TL0/boP+A1HIhrLX
soVqLCWhjkjgEek50UbN78IlPwqx/2vES9oOavzl3/By4vuAFYuOLmp7LFol
xcSYMzdE079T4/Y+HgVEp/nGOZc+qhOxxFyiRoYkWXGQ6kZezSyisHHcA7YR
qj9fWEwl0rBsEkfHqHZk20wkDtZZbS+YpNppNymaWObe8slnmmrBc29DiXES
pyJ0ZqmmJ4X6Ep1Hk/T4MKoNyab3iZrx27kXFqhOYdhjTxTRvD1EWaSaQF92
jbh9W+eryBWqKQI2KsThojN2Zmv/j7+pESNW2KUfk9r4v1cb/inE8zIu4e+R
///+e7jif+YlVCE=
           "]]},
         Annotation[#, "Charting`Private`Tag$1714#1"]& ], 
        TagBox[
         {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
          Opacity[1.], LineBox[CompressedData["
1:eJwd1nc81d8fB3ClIg2RSiJkJFktRdxXosyUUSEJIaPMBgoR2aXI+qpsGiIj
ZV470bCSikoId3xklEr6Hb/7z308H597znmf9zmf9/uK27oZ28/n4ODwmMfB
MfetZz/cRh85TNu+++JdzwLz3Qs0hdw/rd0OIV9urp62CfVtdxNTitZqYVrG
t3veawnagLBk4AVpQzC77/FFF++h6b/sLry91hT+TlvOrn5hQpOMEsn6J2oO
3w3G2xcZnaTN6J1MsJG2glbONcPAR+600eDOept4G/TaytyEry/tqN3Pyptr
7cDBp1+cTr9Cq9cUKq1LccBlnxktD+EompKEesGkqBPMGFRZ5L5YWsp863tS
GS4o6LcsDMpIonH3B6UfkXbFVEJBV0Z6Kq3sc/vLOlN3hPbvdfsjkUVzP2Sn
ZxnvgbzXKoYH7e7TpOlTjZPdnjAuX9zJq1JA61UM1YxeexZ7o3U+j+cV0eLu
CtKljp3Df1aOU4sTS2l6vPfVqlLO45D5toaI2XIaR8DuZ0f6LmC8VaTB5Cyd
9oTduoMS9YHPzLbgJoU62mkrq8JQG18cd6bvV97aSNvwilIQy7gIizN909uC
mmnv1AMfPB24hPBh6VbjDS9p1/L4ZYyk/bHG7M9/fJFvaPtEMjNHTgVA/cL7
maSCdpp/Y/KKGtPL2FQfxRPO2UUz9/9qGD11GYtrVJwzQ7pp25Xlos3jA6FQ
eGGgYNd7Gi/7bIvUziC4vnG191zfSxvNqlw83h2EenX/2cPCn2mpqw5ejVgb
DO7JI4+bwr7SLr5MqD9SFoxA701BvU6DtCMhn+dLHAvB/krGlseO32hLpzwC
ylOuIqTPQ5e3jkH79rCsMlQ9FOtHI+SOirFptXacMyZ9oTicUTDucnCM5t0Z
580UDcfR9x1L/eZN0Eyiep88pYfD3USoXfbcJE1BS3oq2CYCTPYZPsU/U7SB
olIPkYxIsHV3FY/jF63ahaNgRDMK5YOqztH/ftOSJXTZJQNRuDvlhR0dMzSj
2PfOhtLXYJoYqKdkyQE5fYl7Qk3XELputsfKfh64OU9/Gzp1HZmXaxLO+MzH
iWezj6tNY6BoV8i3oG4BDFZJtEllxeBgUnPdz+mFUPXQHoucisGhUc6YDFUu
rNoUo2AWfwMvfJ12/f6yGPNDig9UDd1A5JWMLSt0lmDs87vTkjtvwoprY0Bx
2VK0JIo/GOu+CfOu2xv9GnkRyF20MXxtHPrbl4mwaSshq30jrNA9Dguco65M
qAqgPcRt5ENTHDYtK951GKsgySn3QOH8Ldw4WSVcZLMGjX8zFTrb42F9nuf2
xRXCcFO7cv3vpgSI6u9pXWQiAsGLNmPSgQnwKkq/8vPOejhNixT6KCYi04PX
rvGeGJZOxO8QjUrCh/7rWVFJEijZci5e52sShNVlxrbYSsLK3eSnh2oylkxb
GyxVkkI+i/dZ/XAy1ozcf5z6QRrGw2FqzvtSwP8279zis7L4I33qdmxKCiRK
8jsEHTcj037fbMVECkyKKa1eGzlM9c+j86bfRsNtqeJ6BwUk9vpqlszeQT69
LOTrsS3QEDbP7Dt8F9WTT7VSWFswarFzIXfeXcQkdDq5Bm3FeqbPyTz5VHD2
Ks/6lWyDm5OyFMfHVPTxeUxv2KuM+rCsrjiuNEz2TBYEsJQhmCtwddO2NMgn
OYVvS9kJ+tD4kHFEGiTPiolXc6qA3y4/N2tXOhbfEkhVndkNhyvrzVXt0vH4
5Eo5qTo1lKdHL359PR0mV9vcM6LVYffFxXl6KB3O3ZfX+cgDJVYycvq3MnC/
P6P3oYEGzMzT8se+Z0Lh+eu2bQL7QH0w5UkXyoKTRmmYefQ+XLXitjfRzMK8
N1sSNbj3o+ikm9CTuCyIjr0PsOPUxnJX9ZCLO7NhohhgoM2ri4agHotFfjkY
lp+U5bl8AJYLo0tKs3JQfPzHocLVhhgP3bPC6VUOgjzDuPXzDSEWndPQIpqL
J17zLpsPHcSlhHNKN2pzMfxkd5WwshG2PuRbJMx9H1nB/K3lTBM0KzRYv1S6
j5y7FklqOqawfuxd7m9+H6FrD/xoyTRF9JNP7l/u38fvOHbHOpvDGKbnfcg+
8ACvG2XFs4eO4E6X7uMtsQ/R5s/pdFPaAkv+BVpqr8/Hx8BBdnCNNRKdjlrJ
7c9HWusyRWUOG0h2ylnzueZDQuHKQz/YgHav++SHSvK8SpPeVm2DZ/fiS0oV
CrBVpfnjnSZbsEyYFfqvCjBqexCHJu2wfXG3Oq2/APONtRkP1OzhW1VTpfSj
ADzndsjnhNiDa1MCfdX6xzDylavwX+sA8VmN+k9nHkNvo8d4jc4pHM5NaPFa
VgjtQ3KM1Y1OSDkeZOAgXgjj8SPP8wWd0c9/5qXZjkJEitXu+O7iDDe/va/V
jxfiXrrohJuAC8KNWe1ceYUoqvqD02dOo3Jm7/v/DIrg8unglh64QcqIPVwX
WYz92yZ+Cpd4QihAW/VUWjF+y8btZrA8sSIvNZKntBgLb8bckd7ohd/cJgpG
/cU4u+bWkqFkL7yhl3r17SrBZckuz5jQs/BVCpydHizBJaaU0vtz5/GKV0BA
YU8pfscK2Djn+qJO/Yx92+FS/F2vr3OB8sVTl8YnZ11KQbt0QvSP8kVkNHmb
l8eXwvv7ZKNj00V4B/Te0WGVYu+kzMoB1iVsoLI3nUx+igkp4xvJRgG48EoF
iZPPkGGiIvhXNQjLFUoGm7nLUDkq987kZBAyo5Wi/giXQZFjXK0/MghtBht7
rPaV4cuBxzbZvUHY3CLgJRVfBna40dLXV67gUxOVXbizHEcnFWnP3gdDuyZr
+UvfCqjtbNyRUxSKPjHxktlrFYC4102pr6E4eznlmFJGBdao/H3Vxx+GNMTm
xrZUoPOqku58rzD8qby810K4EhYFY994lcORX3bs/LfKSrTEaJdYNEVgTTFf
37x51XgbtUjDaM01WEb9MR1YXQ3lnu1+P42vId1usKVRrhqsgV7NoWvXILfq
2bNIs2pkHmzou811HXvPW99aVVAN60Bnbe+Z61BOOZodp0hHSNuxoulfMbCx
yj6e20eH8Hia5+FlsQjWW5eUNELHkyNfX75QjEW2ckxnxCQdq6c6eByMY8Fc
7qt/hqcGzzP8zJcnxuJ89QGVrco1WHR+IG6jVByixKYEKqJrYLwVD6/uv4Un
/Zqtr9VqMRYZ9mhfdgLe6gR+j9auRXVk/I2u1gT8eFS12sC4FndfmB2InEjA
zosqNs9P1UJHy+Gco0Yinq5U/EG/WQsNf/qN0b5EPNMSEiscrgWs0sRXiyej
InvMKy6uDsl6dBnd2hTUOt9eZ86sh5rGQMqkWhqKRlxcrH7Uw+h4sL2PSRoy
HVXLT3I0IDpwMpjXOQ0hDt0WrgIN+IWydreENOjY8iVfUWvA+v6l4xwTaXht
HiL4KKoB5k8kPU/lpeOjzplVnPKN2KI5LHhEMRNT0uq8eWeasP9GvYCSYw7m
/3qwYp3UCzTTJKYFj+VD+Z/1E5NHrWhrTtz+fqYIrcHbXzXKvsYlg4x3yxuf
QjSG8ese+w20d8jtKbpVBcbPT31dSu2Y8V9xlEu3Fpmj5S+WX+tAIbPfvrK9
ActFcqiBgU74x+15FxnbjCinEodUybcYjlWX7zN8iR97Hgw4BnTjAO8W48EX
b3B2a33x6rp3EPbhMrzQ345Pj+oj28Tfg3Vr0HlEvQt/nDv/2+T7AZ6T25e0
pHVjswbXrEP5R3DXZZzaM9oD7XTxU4/X9CFVnqGW4PoRF0RObPhi+QnT74Xb
VV/1QY55eEn3gc+QC76lPHrjM1byjnHX//6MyRLZDZxdX7Cg+r98iZQvaDGP
Lb3+rx8u28t7Fuv3I24iIatUfQAPdG1Tq370Q1qJ77Wb6yCmGEIrhuK/opKz
+sW/wCGUmGhzxmkNwGs9W+RS2jcE6ITcLR4agKHiNE9U2jDEe/XeZYQMwna7
4P4710egujM4bu3WITjUzKxcGDQKy/Wvf83rGELwoPxxXlMGpl5E97sHfsOM
kVIPrxQTiQuszhpLDmNa9lHz+y4mVvaVpM+vH4bFu4XHXTxYWOgXaKriMQLu
PRsHqIVscNyzyu/nH4W7wDHrID82GpndrndXjWLaVMfOOoCNKCUjBUvBUYy9
S+VXD2RjzVPNvC6RUZi187iNB7Oh0CTz4LnMKOrdhGQPRLFhOTie/Yg2itOd
ig21yWw8Ew+94+s8ik7VNcH5T9jwTM6P5q8lz7nqhBJH2SidSQ6trR8FncP4
mRCTjRmrq4GeTaNgrnklmMJiI1Ti+Ln21lFYN51Y998YGykPeY7f7B6F1tfK
7RE/2GiospfjZ5HxnoeG5eZTEPy6roVPkIFE+YyhEEEKx/dxNdQIMfDu6i/e
L2sppOeMV3mIMDB9KWre7nUU5E43F7ZtYOBQ7GkaQ4SCxtT55BvyDNgt0JNW
l6DgzNXuxKdJ5gt3HcmWp1C5OYybz5UBrSsisnEaFJQ717y86c7A5Rc8CsV7
KRRcyrkh4MVA1BZH2Q5Nst7LRiFBbwYmA92XLd9PIcxtobxoEANq4cVXLuhR
MC4KMpKPZ6Cg97fTWhMK31T9knWrGOA44j2VfJKC9delJ1roJN4aVmiyHYX3
kSkSB+oYGKMdXpdkT6H1Y/nDQ88ZqHgruj/2FIVC/99VR9sZMNUvL7roQuFS
7YWv9kMMxCS9VRLxosCn5ykXtJyJmMHetsxACqk1vEtU+ZioXx02kRBEQUkl
b+T7Sia8936cDL9CwVBmONtmLRPCsfKJziEUIhZZiWtIMhFWrXpmfTiFBXW6
qzlUmbBWKiw4FEPhx25xDn97JoKz7hX236YQUlTVt8ORidz3XGmFdygIbLas
ZDmT9fdr+wXepbBNKMH3uDsTYtcOzhNOo+A+vXRK7SJZP2RYSyuTwkjx9Mif
GCbozT3StvcpfJR/0+FTQcYfOdjxtoTCXQafH2c1E2Pe17/4PKFge89EOrqG
iV1H+pYLl5Lxkt3eqY0k3mC758efkvjW9Yk0vSH7/WRQ97aM5IOHeUpgkAlL
5Ru771ZT2D/ENfNoGQsFXrCJfk5hcaZu1q4VLCTquSquaib5tok0rOVnYUXa
ns0pxCa9y9O61rAgJ16el/OCnFfnqv0z4iyYJUcyilspXKyViNFVZsH02lRp
7htyP+5AcsCKBe4KH/5f3RQmfCe4bGxYoLsKWNu/I/fpaA6j9yQL3jvHx98Q
l/PyFnU7Ept7jWb1UGi83KfR4snCWFWIgvYHCh9s/U4UXiXxdPZfPNVHYT2p
5IrhLCht/2P+nNh63aD0w0gWeS/cQ2Q+URjqMGBnxbBgLR3aOEQ8piXsl5TM
QtjS6X8WXygs2liefPkRCzHtvQ0bBijocrr5/y1gYTqr5qk3cdSnDba+RWS9
jd7zXhHzJUZsOvuUWCg0/vwgBeHFFk9P1bKwR8+hr3qIwlbGdJfhW+LHUtbb
Rsj7mK/MJzJL4uFJWJ3OovDEYnr5Gw42hlkv7EeIly8qW3qFkw3rnax5SmwK
dEt17hFuNqZVZiTKiTfwaP0rXknqlukxyWaK7MfOiGWwiQ2xsav0+u8UaCtW
Mv5tZkOGmaQyb5xCQnnncKECm+SrY4k6sQ6/2YDgdjYOcX+sKiS+X231YYDG
hiOH+rn4CQquQqebL5myoVTb34kpku8G+SbFo2ykhqvAk1jUg6rvN2eD3uHF
m0n8psmTrnOCjbDDnQMLf5D9nvMpFXAmlpLzrSX++fpq1kNSR3fZy3CLTVM4
dFEn40QQGwUbL2zTJc6V5knjD2EjcYjR5kFs4Red4h3BRq7TfZca4grZuFit
W2S/dwxlLX5RuBySFvjxPonHISLO8zeFZRe49Gzy2HguM7H5BnGy4xn+oXw2
zPIfmOYTF+mrZFDFbLyZ/WY5SjzE11Y/v5qNp4K5lsf+UPDk3BkdWsMm9SH7
5nnif5Mph5fWk/xZlJ64QSz4znFoVTOJJ266poFY/w4H96YOkq8Mt/JNMxTe
XXd4k9fFhs6MZ5UGsV1ga+LWd2x8lrG3Mif2t0vcpNZL8r9sqXcocYGskv7B
bySeizs2fiJeXXri2rk/5PdcH4X9/lLIyG048vsvyU/AJZ3rxErJm0UDOCiY
tawUSSPW9fuZH7aQ5NF4Z30d8SXN623/8VJYEfpRdOEseV93TCWJ8ZO4RMtz
BYjjpY/ZZglQ+IyKzxLE+Ys3TjwifcDsraaNBnH/6yqBWlLn3/0+WOZN7FYj
2btfmsJw4Mb2EOKZwoisFhlyzqOn7t4kXhV/RLmL9AGxQMPjD4h1LNlHh3eS
OHmnL/UQdx4wFTujSs6Vy/zIALENyoa/q5G6xhXMYBP7brjq84f0DesH7gac
/yjkDYv8t9yA1GFOnX8yxGG3Q6z7DCkk+tS83kpsZ8ySemRE5l/vaqJGLFxR
UXDgKDmXXZS3IfG0u+R5EQuS17NLRY4Sd0hF7WZZkvld2d4niCOuH2uMsiXj
HZIs3YgdtOoiLUnfiHEvGDpPvPeXrJGcI5nPSEben/iX7e8PLWdIfsd6JyKJ
HZWTvvP4UNij8jcsk1iLwVH6/iLxUOHq+8SiqY6X7vuTuM3EnfOJ3y7exaUX
TNYT/eLwjLiw6m7r2lCyf4cY/iria15cN0dI33hjVhxWS7yv961w+HUSzwWR
nhfEYjdp/WY3ye8ZDSWviGf2Z+fI3CLrJd2zaScuLji39XkyBZmIsc09xDH2
vT8TSJ9ZcabC4COxi9C+ylOpJH/NcRqfiDcEC+hwZZN4ojUfDhDP7rq0rDt3
bn+hkt+Ie1hf27MfkHNsKD43Mjd/un7i+UekLpbOT2PMzX+06Pj+x+S52IMc
FvHppeskVheT/c4fjqCIdWqChgefzJ3/pP534n+yxl4hFWT956dOTxK///Rs
12HSV8J26LyaIn4SJz4rWUvWPzDC/5P4pm543WQ9uY9i4buniV1nx8Lqm8h9
dHHQ/UWsV2RmGEf6SlgyXf03sZQjfaXdS5KP+u61f4g5RGR6tpG+EvaI2Tfn
j23X73B2UNjVuufaDPHTqz9PdnSR/NBWb/pLHLf7xKYM0ldS2/ML5uw+1sj2
JH3EbJGR9Cyxfhb5G9M3dx9pkXOWtoj34Sd9wTGj/POc5/PO0vq/kryc5pX5
R9xXZ7+gkNT5sLgA2zmXeb9sDiR13vGf8Y05x8vvuG7EnHv/2krm7NGfYipO
6rZZwt62ORskLBD6Tuq29Q9qYM4yBqc/0SfJvmY2jM95wbzOzJif5H7+lPo9
588lu52tSR2zHtScnXOFc4aiEqkDK84+/zfnBNElU/8fxzH3GcP/AIwauyI=

           "]]},
         Annotation[#, "Charting`Private`Tag$1714#2"]& ]}, {}, {}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{True, True},
      AxesLabel->{None, None},
      AxesOrigin->{0, 0},
      DisplayFunction->Identity,
      Frame->{{False, False}, {False, False}},
      FrameLabel->{{None, None}, {None, None}},
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImagePadding->All,
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
        AbsolutePointSize[6], "ScalingFunctions" -> None, 
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
             Part[#, 1]], 
            (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
             Part[#, 1]], 
            (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
             Part[#, 2]]}& )}},
      PlotLabel->FormBox[
       "\"\\!\\(\\*SubscriptBox[\\(h\\), \\(00\\)]\\) and \
\\!\\(\\*SubscriptBox[\\(h\\), \\(01\\)]\\)\"", TraditionalForm],
      PlotRange->{{0, 1}, {-1.7763568394002505`*^-15, 1.0000000000000009`}},
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}], {189., -119.58957682310464}, 
     ImageScaled[{0.5, 0.5}], {360., 222.4922359499621}], InsetBox[
     GraphicsBox[{{{}, {}, 
        TagBox[
         {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
          Opacity[1.], LineBox[CompressedData["
1:eJwt1nc81d//AHAhoyQ7ZCSSkB2F3i9ZISmiUkZZlVRCMjOSJCJ8ClllJDJC
UTKy7r3m5S6ERGQlWijjd96+v/vPeTwfr9d5vc8597zPeUs5XbNyZWZiYorf
wMSEt2auE931kzaYzv+3rAainp9ENECa1vNqCLXqmclp5SKG0ME2lF2K2iMd
jLJ0EWsw83rY8xC1p1wWahJEXCBPi9fSGbWDyncNYkV8YMo0WJks7ANZgsci
o0UiwFPaW+GJUASEcZTvvieSBMrOrLt/bkmC07ZPS+bmcyD64d2dq7U5sHkt
zO6wRAmIUw3JZYHFsMtydqLxfgUY2F7o/49WDjc7D0Dyr7eQ/ejnFt74KthW
wTu0YUMdpIo9FlMuew9vRgzau3QbgOPHP2UX93pocE/fbjvTBFU3KgePHmqA
37IHtxZdIQDlldXS9tZGYF4q5Nm+qxVYTXJdV7Fm2N6h/xOUW+GqmOAoi2Ez
aDzto7kcaIWao0tGbKbN4GrK/qT4aCtYz2yq3nCiGYgpTrv0fVsh/s7kGYpb
M8Rpi2hfIrTCdh6d/Z9jm0EsKNK58lIbbLLwrMntawbNtXNvThS3w4ausVst
F1rA/Gh9uFFVOyRfZjWZvdwCzk8kj2k1tAOrpyMnv2cLxGsNfRWlt0PKJSuf
E34tMHntrMjISjs82Lv2tSSqBdKGbYI8j3YA9XONEiO/BTY0mOnHznTA/HWu
x0PjLSDMU8Ad8qcDHtrv1cqdagElB86PnkydEERpaL842wJn/hK8rQU6wcJF
oHf8dwtUqBnlbtftBMvT367UshLALRs4Cu53wm2jXzEfpQjQHqHR2SLfBTSJ
k24dtgTQ3trG/HBfF8ATonOQPQHyU85rndXrghdVrW27zxPgdvGDrO82XRDy
Luqj90WU3zvhJRzWBSJv7f8O+6J8hfRt7owu2Mu/V2drIgH0J8NL2fTJIBBv
LfqeSAB/pc7Wy4fJ4PzlSeBiGwFKvUXGyOZkaIngNlXtIoDEaonIk1Nk6JSi
ySXTCLDENxiufIUM107nr2qPoHxdLZvTyWTY8SdqO+0vASTjp5dezJIhRHV0
+eweItSeD3lR9pMMc8IK1/8oEMFBnd+2epEMXv+q22KViJBG165qZ+6GUUUT
jXJ1IgiLR/t+F+oGbgFeRu9BIvAVyP3UgG7YPyp7J86SCBubXGfq4rqhMOLv
i0JfIuT8t/SEmNQNVmI1+0b9iGB4IfZId0o33MiWK9oWSITwTa8LRrK7YdCj
2fFmCBFWj7Ne2ljVDTnD1X28UURYHHw2ZjbcDYZvTY6VJxNheuHTEE2lB3i2
jHW8qCTCmwtxDWaaPcAcqBCa95YIoQwsr06nB+r8ctMyq4kgVJl+5YVxD2zr
CBG8W0cEfd+zy0F2PdB6bAOPAoEIqb/oIjJRPXCsst2bQCOCq0vkSnJsD8xJ
XJqPZhBBhbrv85bEHoj1Lhoy6yNCS3lS/kJ6D8gNZnLWDxBh3stKq628B+Iz
3AtDRolgMt9h7fWpBw5kBHtZzxGB/3zw/q9feoDfSnHbp3kiDJEVxeymeqCd
O07V7ScRfErvjxr97oGqbRykS3+IkHnN1EtkMwXE/nI9MF4mwp9vTXH1mhR4
xu3efpKdBB/sfbz36VJAx9lsJZ+DBDEd0qcKDlFg2SSkYIGTBDuLwiWSzClQ
OPosMJqLBEc99IouOFHgQK3gxkheEuRMVbdyP6BA41CuME2UBFcfH5N2T6SA
0mUZ6antJNAyHA1sTqZAhf2t7n9iJGhN37Q3KJsCoX7R2wUlSTB/3DZusooC
/52Mvi4pTYJ3KzNfDWtRfbMLz0VkSBBREKqX1UgBy39VETy7SCDMmj9/spMC
r3/Ea/2SJQFW+edE0ygFZHdx3U+UJwGHS/RLyUkK5DtFcHorkKCHR2Jj4CwF
AvQU1I8pksDV3eiN6hIFxp2m763sRfMVTxLO5KZC178MKzVVEvTdVh30P0CF
2QNNNcuaJHim0ryPhlEho0ttz3MtEngMnn6gYkgF7answxb7ScCkFQpfLahQ
+CsxM+EACWSnOp9au1Dh96sfpJ86JJh75PS35BIVOi3ffryti+Zn8Mdq8zUq
BL15ksNzEK1nujhrgz8VLr0k2e/ASOBz3MNNOY4KN6/eChLWQ/NbWauNTkL9
f1BsHiCzFyRuG0+hwvvbwVNMh0iQylJNTMuhQhzPj8MDyC6lFlKLL6gwPkzm
NdIngZL9iP+JEio4uCmkFCB/eMOpsOkdFXRvho5cNiBBtHP6bdc6KnzNTcgl
IFvzqA7UN1GB3nVMbochCSYunY692YX6P1y7SkAuE5oZ66FSYTFpi4aQEQkC
G0MwpX4qBF5eeXcemVv8+fcvX6hg+KiW5zuy3snbg6OTVPD5Z35f0ZgEXnGO
bSOzVPDubd53AZm+Qfj58CIVyAPmYlRkDp1fSZ9WqHCWYWzLdpgE2j7k8CFm
GnR+ZybuQ84Yj3IY4KLB0mqabgwyWdLV/CMvDc4kXzIoR2a2PaTdL0SDV0m0
YAayRoK4XN92Ggjssp1ZRHZrWxLs3UGDYYpH3DYTEiSz0lkYu2iQEnHvgjpy
68GyeZo8Dd55y90wR172ffCJqkyDbM3GKidkpVL3DooGDa5WU9R8kc9NGlf3
HKBBhwl1NBI5Yaf0i26MBlPB0J6E3HR27RHZgAYGVvEzmch/kj5GdJnQIEZQ
3ygfWa6z0qvzKA0irpHpRchn2JPOdVjRYMSx8mkpcoyep0X7KRpIYN55uGv9
zXXb7Gjg9DZ0DM+fK5OTbz1PA4deO0e83s4ZVmGSGw1kliIEspCtd33eSLxM
A75u343/IUc61Pxs8aRBukep2l3kqscpn5tv0EBfuTQNn88U+UZXUwANbCi/
DJyRxTZZ1TSG0NA+WJE7inzUQKmwIQKtxxlTcw3kW0GbUj7co0Gh8+liYeTS
1+OR9Q9o4JlScOwvWu+R2QafukQapLrVq/QhC8hlOtUm02DgvqjVa2Tj84HH
a9LR/yGpXfEA2S/1FPb+GQ144rJOuSIPcPGIvnuJnm9n6rIJmdt4hv3tKxqo
6cV39qL9ohdC/F35hgbF7LuDcpBz5kO7X9fT4PPv49nq+P6St6+raKYBZjYt
vmCEnw8HispbadA3ODpYiexBn496RUXj+7BBRRU5Y2unb2kfDXZ+UWmcRPud
bFLgUjJEA7+p7vRMZI1qJ72iCRoMfQlVYEFezqQs5C+j+b8+XPkCf9/6Ssae
b6CDUmdVkjnyOb4YSh4bHWgdPTUz6P1sijAsyeGhQ4Ca9G8Z5JhLr92yZOhw
1V+d/Qag9dcritosT4eCM+1Bi+g8OCycW+CrTEffh9wkP2RmQtKsuTYd5EZO
TFxD54e/jI/v0jE6yBCdbfaj84b+73Kyiw0d9IwaE59po/FSnN91naGDZ55T
MSfyXNiJ1VxXOpjUaQR2ovPL7ZNapFUgHTQtOO6qofOu6Y18fk0oHWI+GVXf
3of204OdrXKRdAj9caO7W4MEg7p83GvxdPixIy7PRR3tr9T5/wrz6PBeZ4Ld
VYUEh2xKc1l76FBkUGrWvQetp2I+4RqDDjVxrr/n5NB6sWRN9g/Q4XZHU+wW
5KqyuL2vvtKh/11w9EF0nivxXHttv0KHxJ+9RL+daP+17W1+I8eAA5tjme3R
/RLwbNdXKSUGlNidGjkiQgKGvzhnrDoDCGvfqrWE0fsnt+WoM8YAXenHjmxC
JOCMnKFutWbANWrcrRB0X/3RK/xyMYQBLwOkWz+j++99zvSTmxGo/suzUm/Y
SBDOoXgi8h4Dnkf/Hb67Ee038ssP2YkM4GBhTZNmQee7Y3HG0HMG0H2C+HVX
iXAy+NVpazID3n8tSZ1H9+/rt5XtINULMWfpxd6DRAgQX7xtIdsLzx9M2f75
SAS9sP069gq9IBjxKty3nwjtJm9fBOzrBdXzAsevoe+DL4x3ka9Ne0FS0+2b
fjcRBP7U6Cl49cKrkbF2ryZ0v6s1VQg19gLbVQGWv/lEcNPYkfWQ2AsmWo/3
sD8nwmnNoPtcnb1wZqutH28uEXS0NZyY+3rhV/GhBPGnRGDWz9k6O9sLPxUt
u/lTiBBnGeHeLNoHIrGTZv7o+6jA03CHj1cfpEtFlCm5EuFTcdP9bql++MU/
n+cnRATyN9YZtd39kGciHD/KT4R6RSPzJMV+uG5S/ucILxGyCpq5Tmn1g/DR
zXqCXERwymuJHTDvh12fPwze20CE8XRi3Neb/dBaIi+6PE2AbzHtiSsd/bBJ
Ncl8cx0B/rlTn+wJ+Ai+QRy7NzsQQOEQ+6pb9QDMyuQdUX7YAoefSV14tW0I
mFh//jBJbIab4o47P9t9gj/2o1WaMU2gOGOzmXF0GAwjMvKf3mgE/q1zHE1/
h2FZSmLPLY0GYK17UiKd9hmGr1fd4/5XD5c1qvs4j4xAlFvnQO2BOig0dcqq
/TMCPIlU/tXg9/B7WpRn/NEoJDff6T49+xZenzjMkmT4BXp5EteuKFZCiMmd
zIrxLxA6ZsGWlVsBUoNmvdl3xmC4RulL0MEy0NaKSBJRG4esTSPH026WgJ1E
19IGyjjoZcWpn+MohN+tsSOeYV8ha+5zsdG9PHQfOfhYyUyAnqCNXmTBM+Af
ev2MuWkCmISYqhvcM2BjcJj1geuTELqyEipZ9RiYXjiUjPBNAdPjpKllvQRo
mWFczRScglCzudw1+QSIUbFUshNG8ejTv3gEE2BblUERTRzFVePNHScfghJB
rpAoh+JuSksFCQ/BbuxHXjGG4hVnc1e/xsNbqbsZAe4o/t7eTU0nDrxSS2L5
GpDZiu2UL0VD5XLq3YYm5F5zFgWjaFh2iAzzIiBryZfpS0XDXWn7Gz3tyOEL
Ui199yDt5Sb7BAby2XZhcfN70Fzrqsj3DVlU+Q2nZhQIj25v4xWeBqZZp4UO
iUioUYji4L2KvLbb2dEgHDSp2zoSPJFV0hV15cKhNOj5QwFvZO/eUpUt4fCs
o0VU2A9ZY6z/HCMMoq5t3CsZjrx4wHzQIwysysMt9z5CfrPvoEEa+nbTDk41
rUVu6rtvLnILzo1yObbVI78zUR+bCIb++2nSRxuRMeqhl1XoUh+ofnmciDyU
faX5dDCU3fpbe6oHeQfp284nQRDUcHPUdRx/vnR9mFwg8Jp5KYZzzwCTyyfr
CFc/yPqwdbM2L3KURTWm5QcqB4om5/mRdetFlDj9wEJuIu+8CLKcU1hh0U2I
ZnOQOiSDPEw3kVzyBdZGUyEmbeQ81baBlBvwR0eK6ZYrsh6802b2hjvltUP7
LiLfmg7w6fcCAQW7mm/uyO6+Qp/LvEBd9HGAvSeyg2+ilYsXeC5y/dYNRM4y
TUoiXYfJisXJf/HIQ8Pk2+meMLCXTPF/j1wRLbGR5gGZ07zBLHXITc7yNo88
wOnFCdnYD8ih5l5LpzxgUobhl9WCj8dGFhu4DH+2D4kTyPh8FGQrJtyBd9PM
BYExZJ5OZTXeS2A8zr5cvOUbMAlYzrtnugJnjmnufh7kAaWUJXdXaD9/36KB
D9nOq5Ch6QonBrmf0rYh/3pyKazLBc5RBY2XpZANV6sjWV0gsEE63lQTeYY9
Vz3YCUozQOaLAzJx7DXpmCP8DPjJfv48st7NKOI/B9A89Xx60Bm32DWbfAeo
3rq1nHERmee7kDCLA7SEDh1q80IeLuHTqrODj07BjmWRyIuKb2Msz4AEqBoo
30Nm6i/SZzsD57aPyb68jywnsCms2hbGKeazufHI5Izw/3bbwpyhWHBKKvLF
Iml+ttPAtrs6NbQYH5/ggy0DNmDKcu3WSin+fLGL4ik26B7e6RRQjlyq+qLk
pA3wJkfv8anC69GpthRrEOM8U3WhATkq+NvbnhOgNr1Is6Ajx3d9PT5pCfYl
mrziq/j4fLZsGTeHN2cWuclMs2g+Txzv+ZoDN9s7rtssyEwxKyIc5lBvd5Bj
kgM5K7HaW+kI7NxkuFbBj3yOyXnqrimMu1h+M9+D96fbTnkYA8bDP72mgLxD
bKsstzE8rqZOlCnh8QBxl1IjMOE7/UVYA+8f83xkwRAK6hw+fsHw/MRJYoIB
XBX1IAVZ4xZqUlvQg5bmvQTlU3j/pPvs+Xogef1704gtcuhcU5utHpAJXvUm
jvh4LzrrhAKo3fCvFHDH/cIvWvkgLHRF5r4MQdY7cUbsy344HmiS7RiOXL9W
EOO0H/JlNz3lu4PXuyNVMaIFZ4Jj0/yi8XwLc4kJTXgvn5Ro+B8eP1q/jX0f
hN55GjZQgNcnTdgmqsKWm+xm54vweM/YiJoqpF68wjdegtfv2d5CUYHyIwey
v1fg+a3hCSIqMM7b3cRch+cfUuVy3wteLFqxdz/g8YW7h2sVYe1Xmg1XEx6/
ri8gqAjCvRfHBUm4tXceb5WHIxlMHHsouBczqVZy0BvnRi6i4R7RlajeDS5h
7clqvXi96iu0XbvhlkvyHt1BPP7wUgCzLJTKqxw59hWPR6hL9kqDUKXjgxv/
cLOVpn6WhOz85pN/V3A3f0r8JwEqqQqSIUzfkXlcqSISYBq8UBK1EfdczkZn
MQgyiOt+shW3Pq/kbhHg3Pc7ZQcf7i5lUydheCR71ilXAHe7x9Wn26CEc/fP
YhHcwq9uKwjBSFetQIM07jSe1iv8cO2DzKCxLO5X/2oIfLBcFp3bJoe7/5Dj
Lj4QfHRSk7YXd+rd8GkeMLGbPTWhhfvvpauGW4B61HrHFW3cw/XMqlxwHt5N
zOvi3i9/QmYzBOyM9P93CDf1F0OCE4omxJ9wm+OO/K57fiNEpd85N2SB+8fc
4AVWcLH6tqvYEndGl5AvC4i9f1969BTu48ZD+Rtg0VPGV/wM7h216h1MQNkV
o/PNDvfLXPv5NSw67mxLjBNu8g0j0jLmZth4384Vt92zRtN/mP6SvKXiRdwa
AnmMJWzJ6e/Htiu4J3aWiC5gFzVT5jf54+Zo9dD6gRlOM1X2B+I24XshNo9J
Zl0MKri13t/aZ8scRufcz24WgTv/XJLUDFZWm9kucnf9/zpQbTSFPfBmT5i8
h9vvuHTIBGY0SBe7F7deX4ihPIbtSMBGTifgzppVzRvFlo3znsv9t55/akZ5
BKsovaFGTF2Ph+9bGMLiXQcXHqev749BTf8B7LKoUc2FrPX155CX6Md2RgiY
sOetr1c+bwcNW90ftIWRvx6/IUqjYH3fRnvyCnHHEw8ud2MVz44k+xbjrteN
OETG4k+V2xu/ws2UPn24A/Pg2i4tVIE7tEzdqBUz+RA+MfZmPa4y60fA1uSt
vO+8x603PxnYgPV/ervfpm59vAw4XI+9SZJalWlYz6c7hb/HEkzvNf5qWq/3
8n5XFXZ1dS6qibDujWxerzGz8tMWSa3rlv/oWobtuljP79Kx3r9Z2qIEYxKX
61Mnr5tm51yADXTHZbBQ1j3nwpKHVUUuOFNo676pLfsMS9Jx3JPdu263orvp
mOdcy6zXx3XXnc1/jB3JVarQH1r3YYeMBEz2zCN/vs/rtuArj8GYt65iI6Pr
rjBPvIMNNbqylo2vu5fuH4K98+sghU2u269cwhd7tHdfnOXMuk3ePb+CXR9J
s5b6vu6JVyVOmPljVtH5+XV7cuXYYHLmHp/qf61bz1/RGGPdQM2JX1g3U0CV
Gjb8Wsf93N//+YG6EPbePVtZZeV/9tMaP/hYcvPvtbX/Gf/9Hzcm0/g=
           "]]},
         Annotation[#, "Charting`Private`Tag$1757#1"]& ], 
        TagBox[
         {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
          Opacity[1.], LineBox[CompressedData["
1:eJwV1nc81d8bAHDiW5KsUshIRkhSUUZ6rCIrGZUZGQ1ENiF7hZSRRNnJ3tvn
XPPe2zATUeS697rJKjSl3+f31329X2fcz3nOc55zxK56mDpvYWJiymJmYvr/
r74zY4jw2eJ0ledIiHSSThurtqDntIAiwJ89hXEN0x3Hn2Vm1wnogJRW1Jht
NRdGFZII95cyhmbWcnZGsyxm8GasNkfAHAS/YE4azwGTSBQu+idqCbMuZeZM
NGNsQ9/xkYOUHVS8bxwtqbDC5qPe9jhkOIDmYfuOykPO2CWnHx0PBZzASOZO
YWG6B9ajLdjUne0CP8Hx7aFAP0xBXL16TfQGEIM1irMGQrHsLfYvJAtcQa1k
T69taBTGRonIvyh1C/5c5C6Me5SAtX4aftNt7glJ1dFymrQUzNPESd8m4zZI
DArLquxNx6QI631rY15A/vI0VmXxMfbxSKx2koAPfHQr2kb2eoalPeMnSFr7
wmDZxK+69/mYPlfpKSzbDw4tv+DUsy3GmO6qtVyc8ocTQSkeE+dKscal10rL
ooHQ5fkzWayoEnOzs6uNdQgCSd9A0+utNdiB/mX5/QV3oNuWMmZwpR4bVw8v
a6YGw/ozlVYenSYsuYJX+oJUKBQ8KEHJrq3YGeHCws/X7kJh+hnejPEOLLQv
i7vTPAw0NQ7nbvQRMMvQWeOk9TAoDLUQ0SF2YYon5JIsM8JBLNC2Km6pB+Na
8nkleTICZr0SahROE7H5oo7t38YiIPIoqSGviYzl8p2PSRCIgu39yltvHx7A
7rx51HOxNQpMdexVDPYMYRejP20Rt44G8VSJB/EVwxjH+u27bdkx8JjhOP1K
8h02V97aEasei8fb8bgC2zjW5cSyYTYVC73KXFSm/yawgLdpAQui8SDBbFNX
YDKFmSV+bGwmxEPCydi7N0w+YfI6UutRDgnQRXoftjt2BqPWNd0WLrgH/AKr
D++KUTHkylT9WTsRBrEDBQvRNCxL/NxSAzURDkhW7dT9TccupE7cNJZKhsku
ma59u+cxOQPxF4LEZJjICPLVbP2CsbG4zdGv3Yfxv5sWZbcXsSstmzXIPAUO
WRw7MJiwghnyiQ9JFqVA77xt6s3wr5jqbd2Ve+spoLCRt2wS/g3jk0mRv5zx
ALwiZaRLc9awLdH1Rhj9AYAVJnG7dR1b+TTuJnHyITir7TWSm/mOvcoUK1sZ
ewg77rYYShn9wsLZ6g7GC6RBIkt+S0PBJiar+yCu1jMNrrd/f7BPkAkNR3t8
niSmwfYo3pbfDCYkwSJXJu+XDpPbS99uZG1BfX8L5d8OZ8C91l1oznQr8jgV
ef+vzCMwfkj4vWq6DfHfcViRCn8EQgGL79yt2NCNn8K1gUcyYeH4PwJ3GDvi
WM1QEk18DFdfZryelOZCDUd9M/RmH8P2lZzfyce5kZ2n2Y/bqllQvCvG5PU7
blS1yNXSw8iCw5VKY29keJEpI+7UzTPZwP7WZOc5Fj70R+paTmp2NrBqOx18
0cOHCp3PbLavZoNMNzYUl7AHrVOYCVz5OZA9yPXxhzg/yvwYpN2w+RQuz37Y
N5+8D2kKWRZOWTyDkUkbzWxfITRvdfI/topn8PVxsNQRB2EkshDoWHE4Fw6d
qpY6qCuKPG6ckGT6kAsSZmZr756LoZ64otG0bXmQL8fEb3XkAOIv2R0jczwP
lu4dkAxpOYAI9G9004Q8SBR47dk6Ko54napKipTzIdnr0p4GeSnkEiliqeqU
D2YfG75MvJJCbflJ2wfu58NVp/6DA64HkdOM682f9Hw4XxHarVIvjRrspOUM
0gvAup39UNO1Q+iyZV7VytdCiHnRtkesSgEtT5qz5wsWwQ9fHuFizqMoxo7N
2Uy7CO6KFpre8ziK6hw9BBvTioAXMzhxV+kY4rylHn3nZDGM/mlZ1R8+jnoj
3lttDXkO8TxJL20vnEQ2/yU1NBU9h4DKnZxLxJPoW6wG943+52DZr+3PrKGM
9ic9730lWgLNTKJarYoqKPiRr8KDrhIgjcGeKgU1dKycZ6sQWynwF/bcv+MD
iCzfa/9GoRR0uUPchLdoIPuagLZQy1I4FqttOaCvgZIapz1nSkuheXhIuHJK
AzEIFZPFRmUQvq/qhTe3Fno6eq7maGo5mF5hZfmXrYN2/Au30RWpgnkDg/IV
e32UeeOSndzZKiCYH9uzo1sfSbyVs+e5VQXsM3LRO6UM0OkXY46THVWwHv9m
8c2SAWp5kdHQJF8N55GxuMU9I7RottBu0F8NPeebLJ4GmCDF7WPqpynV4B/y
VVm0xgQFYZ2YwvdqaN8/sCg4b4K2yTwi8InUwEDzWZ8o2wtIbFOzZ9q9BjYN
Pvof0jdFFiWPXnnvrIWR5iwrCTVzlG0bYegiVgvvxijGkXfMEYXX/c1lpVoQ
LiUlOrabI48QrQF121roScj2fwEWKN50cXhbRS10blLWLQwvoo4NrYknhnVw
81/qdGzoZSR5YYnRfa8e3N5ynl7Rs0WCd3VVr+XVw3vX9jaRPFvEXZF7j72p
HpaMF2+t/rJFv9nM5C9Q6qE1skPjQYUdGiQ0eU8pNwDnr6AIC057FKQQvvmT
1gBvamLSbZIcUD/X7t3yGk0gwvU2I/u1E+pWd3cesmgCZy4rrggWZ9Ts2tfo
49oEo3537DtVnVEBMcCyLaMJOEbtLIxLnVHA3Y9P9RabQCp57Xdxkgs6sFws
45jVDHtp4ttCna8j/34VyFxrgQ0zEWVOazfEKd9AI7O1Ah8n9Qf/YzdUmKSQ
+EeoFZSxRG7/MTc0ZHjwvd2ZVoi6f/z9YQt3dOjVbm/JjFZwZvF9FG9+C00T
l4trT7aB25FzU/eOeiLdziLON0HtUKJ1eUHV3gtN7Rdr2Exuh7lP9s4ZUV7I
JyzbWqGgHQzsFTOEX3ihPEgtSX3VDkcGDa2rvnmhPx1hWlZCHWBTYbCLEuuN
qlqt/eY6OsD1ZvzPlFYftLeeZ4qZGcFsnuNNP01/ZJP4x5y6B8HDyK9Kn2/5
o3wn2qs+OQT/vbS/+iDbH8nxtbTcu4xgat8D4Yif/kjLzz6drxqBlDvbKL02
AJ3IvlScdoQAGt4clS+PBiEHu2LbkikCVPSV1zpcDkGNFO3XA6e64CvHw8wh
yQj0Ti/8a5JuF2joEGgUrQj0vRLbY2jaBTN+st5c9hHo5B0VB9K1LjiYY2/f
mhWBmncd+U542AUTd0P/XuKJRC06gvtrGV1QzyFLa2CJQu3FK95pad0guUrg
3/s3GnXdzNlnudADmvVH00W0E1DdZ1dXu+89kHi+267KKQEVXldtc2Tqhf2f
nkVfjklA0S5jVrd294KNh8HKKjkB6V3lyYo81QudlrzW503voQHLaP7KxF6Y
SJAPeHwtEX3Qc+djOdwH0hE9ZWGFyWhdSp2rwp0IIYFKQWN1D9CWX2Xc+yRf
QtE6d6Zh9CN04p99o1nla3haFL/nH5aDXkcp9vfJDoAI8xseZb18JJry5deL
pUFIrYorjLEuRl9+TE+NKgzDqOe7bL7gUlQ43/aSM3kEGsa1C0fOVCFO4efL
VOpbMJpx2HVVtBYl3mhwyZV4B4E+HP0SCfXou0YZ9frdMWiQt9NvUG9CPsd6
6vd0j0PNdyVXv4EWNF3Zc29IbAL29zi/NMlpR39uvn0iEzQJfSKpO7KtEDqk
uW3Tpe0D5EtPi1CWCEg3X+xazd4pqBeMebpbswv5C185MGMzDT/H7fjnb3Uj
uQWLHWNGn8CAmm2xFN2DdnGtsPX8/gSRHWzJQTm9iBU9qRLPnoHfHzJeYHF9
aOKUjt700xk4i7BHoYl9eH4ufMrKmwHbejePUyl9yKpRnZf3+QxonJx/V/Oo
D9VUTPsw1c6A8czVa5HFfcguW1z1I3EGVPUaMgjdfag5sKwnY3UGEreFhjzZ
6EOuim3vtxtQgHpkIifjGhERBkfLm40okLj2+WbLTSLic1+5e82EAsYDPN/e
uxMRKpKU6rWgQHxGpexuHyLatTfFK8yeAu+eGMi4hxFR2y+nHT98KfCo2jK0
OpOIdiBOdWouBXSLmJ77EonI3lqGO7WAAv7knf1GL4mo4Yf2rGYxBarTh++L
vyGiKwqB8c/KKDCkUTJNHCaiurzZUatGCmzxzUhf/UhE1lHNt4ZeUeB52Wrk
u1UiKjt3NRf7TgHP2aKebmESUpQTOw2/KCDK9Jkktp+EMM5Pk+gPBTTdzueE
HCChwRHbvZ1MszD+PbxO/iAJrdlaJnezz0KHh1uYnwIJnfYyCSaJzILqcNTa
Ey28f9bpy8NnZ+Gk9jKvijMJWYb8XTc9Nws9DMKL89dIiHKlPXXEYBY4tjP/
cryBzyehOvDWBB8fQOuIdichgSqls2NWs5Ds++t1hS8JXe2WU/xwaxaMzzDs
7keT0PoXQW56xix81zQzSy0gobScOWL241l423n5UkwRCR0/X3/XLHsWynVV
Hvo9J6HbtUbLhLxZYLf/V2JcRkKLAWH9T8pnYUJuWvNjLQnR/qMnXuiaBb3P
XDbenSQ0KlqzvWNxFmIoLCIhH0jIZyik03tlFjjr9Az5pkhoV6R+oOwq/v0G
jeml0yR0gT7LePQTj8/vCr/XFBJ6U76H5MVChUbvVMtFBgn1qgTHSAtQQV89
jZG/RkINZrosaTpUcKlzujm2nYziDJqjhXSpMH6e7/EGOxnZaMuwFZ2jQomE
6yFRDjLacnzHzkZjKij73Q6w4SQjY96BPeOXqSBdSc9r4iUjxuBFWSF3Kkh4
OxYsC5JRG4lYXuhBhS3fH6L5fWSUTFA+ctiLCubCJ5VmhchIsVpQ8bQ/FeKY
bGRfi5BR+P0pdftwKrjJ5MqGHiAjQWOXC4XpVKA7WP10kCGjxTNjI3KZVDix
1dThmCwZEdT1LjZkUcHG5aMA0yEycjksa933jApep7T8U+XIqI5jyYnxggqt
7lbDj4+QUQzrlTnPcny+GZbn5gpkZLUxcONXJRUUlDz6OI6SEdNCzS32eioI
VUvP+hwjI8NXvgFyGBXe1kdHSiiRkWg3/Xc9gQpaT7JyyLi/tV4KUe+mArtB
/V/XE2T0uFQlwphEhbTGnKSSk2REj/97z3OYCgEcXyeZVMmoJfwW56+3+Pph
mC8Fd2LgdEr4GBXWlLgfCKmR0bEbnekPP1DBrt383OFTZHRXL/pZPR1v37la
ffg0GQ3bXbdR+EwFE/Ob8YW4JXwNBMq/UIGgqt3KD2T0Mo8ntWCFCj2+Pw/8
wr37T07Mw99U0NmVyZyliceHJ1yb8y8er8eayX9wtxx0Ykr4R4VqVl4PKy0y
sjOXDQpnpUGmLPchbm0yKqlodPfkpAHT6HKItQ4Z/e5+LLvATYM4z1M5z3Eb
TQTPXdtFAzmfeI6vuL9t1Xa4wk+Dh9F73985Q0Y6wlIik4I0+EA2VerA/ej4
9smLwjS4Phsx/Qf3KfsBc+MDNFBIbtl3+yyeH361PC8laMA6317+HPdMYnr/
mYM0yK6ujJ/ErVgQcK9ThgatezhrOXTx/Wyx1lOXo8GeQitJNdzjA6f/a5Gn
AeX47lkX3IfoYl2KR2mQu9Y6fx/3IC9DTe4EDTachkff4z4g8+rnc2UabO46
0/wbty9UNoir4etdLaHw65ERyeKB1zN1GqSN3DVXxC3o5nNknwYNsiYNdhrh
dou4tJChha8/+j6HI26UqfqC9wwNVp6+ueCHm7dK2CVZlwYShvEfYnA79TKJ
s+vToJL1bHka7sbJ2eloQxpYpccSnuHe/q0vm/k8Pl50mL8Etw1bqWXIBRrY
7yutr8BdKZK055cZDdrN0lKrcTMpeY74XKRBzDxfw/9tZmCWsnKZBs0X6/kr
cRc7nDBys6YBu/N6x//n++kvwM6wpUH/ySuFubj1kzf6HO1pcFk34FU67pzC
6cjpqzRYcyAei8O90tqlYe1MA97ykff+uLWGiv6+u0aDgFwJghPutLm4VtOb
NNDg1qIZ45776+rf74avV7xe7wRu1d3nFfU9aBB8iWVeEHei7LGvvbdp4BLR
TNrA4z2lwVep6UMDtkEb6iTuo5d+3uzwo4Fbd+CpZtxR7pMHVQJpsPXk48EH
uN9FYtT6OzSwsTmTex23TFZenkIoDZ62s5Wdwh1cHWVXHkYDT+VbKztxi33U
Hy+Ixve7zVCmBM+fhC61Kos4PP5c5QZuuL89l4vZdo8Ghd+eSh/G3eXFqeia
guef6TeuIjw/ZS//YxdOpcGg32EBG9yp6isz/el4fgTXTHDhdmIbvn/sCQ0m
CMZR7nj+v17scqHm4PkeftZ1L26lkTr1jFwacErpsGH4edr6NP3LryJ8vNuu
q8z/P1/HLXU7q2mwcN092h4/j9wC+iLedXi+2mxwrGiQUeCm6rpEIw2Cwg6c
DcatTxYqiGvD9/vs1lcJ+Pn+Yvdp83wfDRRHWbnD1MnIXGdolJmMm36Abx2v
H+0yXeV1r/DzMRRHdMGduFZgtXeIBn5LO49p4PVGPuFa49Qk/v+nznC9Uiaj
DI/LSSlTeD5n0T0kcf8zP+ekNUODLrXcwGC8ng2KHuItpuP5yWIcsx+vd7cb
ltzdv9LAZ87AT+M4GU1kTeuIrtHAVNyJJwyvn1phg/uGvtOg9lj0hXa8vvIa
1JIVN/B41s1isnj9rf/kK7mxlQ6Zkqc0pvF6LdTnslGxnQ5OFp3rLLijyy6N
XOGgg7mnvaEkXt8v+qmEd/PQIaBmc8IWvw9+7Pj7IUGIDj0Glz2LJfF8OxmV
JnAM718myJsujOfLVYETOYp0WJEu5cjA7xvv5Mqx/SfpwHrpIU8afh+V08YF
pU/RIbfku3KsABmJpB3OO3GWDs1986vn+PD77uu7CjMrOqzlVb3UwO+/p0Ju
58ds6OBZSATeHWSkpsf81eoKHZjuJ7d8wu9Pn2eHFK864fONvW7x2YbXf6Ow
Vs9bdAhWyZ4N2EJGr0pliEkRdAgTvvbw6w8Suv4Ou84TTQcS3U829TsJsW4x
Z0+PpcN1ubXOo+v4e8Yy1Cg7kY7Xj/VF528kVL1tZKQ0gw5xgjZHSxfw94ZT
8CdiKR0UKO5i+Z9IyEZk4BfzCP79rFeyjPpIiFPAq6FtlA7jWxveXu8hoc5d
fLd9x+nAf38pOKyLhKS2WzMYH/H5h5r4ijASWl6lvxtg0KF8t9+V7kYSiiBv
1uVs0iFq5jiHeTEJlfjI31KRnYNMmWNV3REkZOUxJLMqNwdpRQkcbmEktPOm
D638yBwsqBr2c4eSkNeVVpv9SnNQUs0aej6QhNT0zxps05iD3GHt2DwPEuoX
tZMetZgDE58R9kxr/D31MoniGT4H1zO1zr7B33Mfdoxe34icA0//CvWj8iTU
ZSi0HBszB0zCjdsfHiKhlP7SP0/vzYFE2U5RfSkSkh0m7n6TPgfjYguqaftI
yO49s65M6RwYdrUKpPxHQn1zvmUzw/h8F5NzJceIKJPVzsdUggHjUxa0Lk8i
2nTcqzQkxYD90usX3PD3slP34Pp5GQbwz5dW8OLvaYUIbX8jeQawMRkcu+hI
RKR/0kF6ygxY4+LxbLYgoh+/V++eNmSA066V9s8qRHTxa/w9WR8GKJ+lV/37
14d2TTXkb+lhwOsvzzT+RPShZI6QkKY+BphgXdGxoX2IXU3nshuZAXq1C8e4
g/rQlszhne/68fFGn3v33O5D3y4sB7x4z4AA2Ybhn3Z9aLBX+rzJMgMYv4PK
uFX7UGLFkz85gp+hOsP5WcpiL/ovJNxc5fZnGHzVKD91rhcxvbCrovDOQ7WG
jsPTb93IK6sqibdrHvTS+GVf6HWhjkNxbDy3vsD4x9hgLS8C4tH3kovgXMD3
q9TTXbQDfTg8OBLYvgD2TxYlUmqaUfVTkKDaLQIhvCSTfqYe2Vad4BHeXASm
O2oJDNcqFBadF/6hdAnCCq5QYoWKUAVD+Amn4TIwibWJ/3XPQHE50fZTxssQ
9tv7XefuDORkuihZeQFvNwhvC2tLR0Lt7dVGl/D2516+i2zpKOG+dV/iVbz9
HL9AdEEqun7i8Vf2QLz9Qy2RMJaCDkTt1ttWjLcb/6jgDYpBm8rBO8dKcKec
cgnri0bvF2eHi8twf1lSY/BGo5RLdbZna3D/LdsoLotE/2RNvaPbcd/Zykr/
EIY+DN1/yjKCu7Fw9WCIH2qO+eE4Morb5UinN58vSlO7IlMwjluEmdhS4Y0M
iuTrtaZw60gzn5jyRK0Bb8jhn3GXLHathrigjMNK9y8s4M59ra1T6YhuU7LN
xZZxD7pY3J+yR9KGbtOENdwm2ZEKoRcRK/PbwpQf/+/Pblo1ZYI+NajdtP+N
u/rInGnoWdR+s+CIwl/chK0T4aEn0CPRHev//uFmYhokfLbA/gc3X0xX
           "]]},
         Annotation[#, "Charting`Private`Tag$1757#2"]& ]}, {}, {}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{True, True},
      AxesLabel->{None, None},
      AxesOrigin->{0, 0},
      DisplayFunction->Identity,
      Frame->{{False, False}, {False, False}},
      FrameLabel->{{None, None}, {None, None}},
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImagePadding->All,
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
        AbsolutePointSize[6], "ScalingFunctions" -> None, 
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
             Part[#, 1]], 
            (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
             Part[#, 1]], 
            (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
             Part[#, 2]]}& )}},
      PlotLabel->FormBox[
       "\"\\!\\(\\*SubscriptBox[\\(h\\), \\(10\\)]\\) and \
\\!\\(\\*SubscriptBox[\\(h\\), \\(11\\)]\\)\"", TraditionalForm],
      PlotRange->{{0, 1}, {-0.1975308307845191, 0.19753082396935978`}},
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}], {189., -358.76873046931394}, 
     ImageScaled[{0.5, 0.5}], {360., 222.4922359499621}], InsetBox[
     GraphicsBox[{{{}, {}, 
        TagBox[
         {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
          Opacity[1.], LineBox[CompressedData["
1:eJwl13k4VV0XAHBTJUmohEjGKFMyFDrLVMaECIUQkpBEIpmJTPfInMxEhDIX
kkQJmd17jSFRxhdlKt++vr88v2ftddde5+y9z8ZrfdvAloaKiuo9NRUV5a+W
7VRn/bQRJhnPz7JIU6RIp8rpMsIhDU8Fb+yZlL+JnUpLTCnlUIOMoammEOkw
bIJLwN9DSBeeOGmwKRmmYNpt/a+fcRjCWgnzaRfhfEwggjtni8cUnn83GJjJ
LMU2ta4nWAlZQBjjv6usSjXYz6CeRqt4KxD8TB16XuYDZmzzpzaGwwZYfa59
S2f+jDWqclZ+SLGD+WmX1sevvmKS/GdLlnluwqENjqC34d1YCo1lvmDWLYic
5lOaSe/H6McCMi8LOQNjpLMQC/sg9ma0q+2DoQusbZTM3Lk/irno2WiZxd+B
N2E99NEHx7EhiUeqkRxusKHDIWXybQqLTWOvF7zqDj36jyXq9s1gWvteKNal
3IPPw8od2s7zWMVcq8w8jydgZSdP5JsvYY4WFq8fWXmBypJPQ4PhCsbXPi9+
NOsByPqlur24/geLeskqrC/kA4wWQcWpnzawc9zZ2dM3fCG7UyEs9Mg/zKcp
mfm9oR/ESHZH/z1HBdKyopGm8f6gfaigJLmPBtIPXgx5zBEEtJMuDZGB9PCg
LaHx8psgWAjklCnbwwCXg0dp+K8Gg5JGgeiVtD3AuHLH921KCMjvFXelmWaC
+z2x92d4woBgrFzqQLMfLkUMVVTVh8E9X1cfuuX9IK4mtBJk9RgMqQP/KPw6
ABOllXe4s8IhNYGJ9u5PNtB/QnbQFYqCTitehfATh0FUmz+fszkK6J7RHkvR
5AJ6WscfkzeioevQKq2IEzdcq/736p0hAZhoC1tzGnngoAhB3CQeh8tWV1Sv
XuEDf/rSY2EcsSCXH670qeUYHFfHQ1+7xMJ3BjuT+7HC0BV8e3qgORa2CG2y
8lYiIEArWiB+Lw4sn8Z2TNGegKa/2eI9XfFgkRzqlOckDoxL8TI8EUkgoa1F
JzslBeUn3eM1xpPgSGe8OpXtKbBwufTnjnwyrE8NVmDjp6B4dl9141QyyAk2
bbBOSIPBVKiiw7kUCChicFj5LQuJQ16q5f9S4eqqRVmwpQIoc5lmDxulwQ8f
O5n1JQX4eUVuB/3LNLC9/TajPVQRjsx4Xn8plg78haAYU3EWbt+UFaQaTIeS
U1ufJFmUgNWmOC/ndCb8F5YcvOOZCpiYZhQvLGYDdZVtnaekBswPGDJkcuaA
eWxHYFWoBoRY0NteUs2BCF31Qt9vGlB6/TZnRWwOZA1PS+fEagKT89ngB3K5
sMkWEwvU2vAxgHRl58PnoCSvl3Ru6QJIFbLs5KJ/Aca3JGnTDxvAni1/M/Uj
xdBXnWZ3ndUUEm8aW4ieL4ZLElItoTqmINAjasniXAxnjk/f+hZiClh+//WB
2mK4XFzw5MSmKVTnx5dXipfAMR32VO7pKzB7aaZGu70E5BWOnNBqNQOjvIQv
d/e+Br8Ur4bjVy1BUH9u6kN4Gfx8tVW6EWIDHu1nIHG5GnLP+mdERjrDoTKW
YWrqd5Dx7tjt1zZuUDGm2vpVsQFOHd745yDnBQ0Ozw6bzjSCeLf7qAedH6wI
nd330qkZJILrvrwqCwCatQLmw4ItICVZbfEpJBhktywrLhW1giwhxyiOLhRa
g6Tbm45/Bc4kdyM6zcfAQ/i1lj/XAf1cg7bPAiLg15+R4V7JLngaI0FkvhwF
FTeiG7Rku+ASzT4NB/Mo8OvHct8pdIFKnva7OpsoYKt85pR/vgtCwoZrTe5G
gcq9q5veZl3wtfJnpx4hCpKX+zgEQruA854Os97nKNBYbDN0HemC6p45QX+5
aMj++baFKaob3OiJPKdoCOCccJHf4Uk3JPsPGYjtIICc2viDj4ndsBHzZ02A
ngAtzxjEvLO6wZU3MJORiQCLeqbR01XdMLQweLGWgwBY5e9LjePdMCWZV54l
SQBS4MkhzzM9IG31t8DfjACZkh9lerEemCQlhYhcI4DjkEmUpFoPOHt8aG63
IgCVnB/80O2BI+Lq3iw3CCD0sz3D0KYH3pdsZXncIYCbnqOdRHQPWHjeT28K
RvuY+/n8xEQPzCyv7HEqJIDS5cCh8ekeOFa4/29iEQFco699GZvrgcciWZkN
JQToo2Z/PrraA2uHMYZ95QRInQy1GGTsBU65uHMRtQQQL3Fo65buhaXgq0rs
7QS4oCpe0BDUC2GlkrTuswTw8WZIeh/WC6J/pgSM5wlQUj4ZUh/VCw6hbiuy
iwQ4IJxmXZfYC5EBXpnzywQYZGTmfFPYC2sLccLnNlG/fYuhr3p6Ic8647Mf
Aw4RN8vt0gX6gGHneOYZQRx+Kr0M3XO8D4pOqX1ZEsJBnT3nxT2JPqjZZJYt
EMaBpjl2Tke+D95lpHSxiOLgKeB2b+1iHxhU3hWsk8LBbkQqxOBBH/RKego8
ARwaK47n1fr1QWjuh1u8yjjwRfG1CIf0wfFfMcuFKjgMKbIybRH6YKQ1o+Xt
ORwMkxfjCnL7IF2C/KhKGwdlo5Icuq4+YPPYqyZujEOqaF7z7f4+IKe8zSCY
4LBJmz5NHuyDnf4dSgumOFS9jhZ79aMPMnerqD43w0Gc+Xa5+d8+OPb0j+my
FQ5cX8Q+Vgj3Q2LLpz4GRxx+KxVM2Pv2Q1dL5D0RHxxqsn899QjqhwWzdQc+
XxwC6EUvhYT1w+jXg3/Z/XBg6ih8n/WkH8L/Vaz/88dB6FpR6vDzfuAU1rco
Ckbn+MNXJoYd/YC9OT6cHIHqfVvcd723H8yuZVc7ReIwpibVfIfcD0upgdJY
FA7OjKUy0RP9MNS5RE+MxiHkaRlry2o/JFWD5HwMDuXVla3AS4TazTsJBYk4
eHGvBuoKEWHDwNfTJAkHJf/TCuYniFAaL/2XJhmHVo3qfC8ZIiipy//Ue4rD
RP+bkHJNIpjWqF/reIbDC4WNs426RLQPhC45pOLgkqaw0nWJCPv5qX9Sp6Hn
aVdzfcGcCClES+rj6Tgc+F2rdMKVCCrG3QPmmTiQTf/9OeNBBJ6BZzMTyOm1
WLGGNxGsTw5k3MzCQTT4HbddCBHkXe6u38rGQe3A+/X0ZCLcYnt60zAXB4b7
1K+L04jgbuOZ9Qm5Y0D5Zl02EaoUrAPln+NgltXQP1BEhHQZEdlDeTi4STWW
sX0gQv+Cn1NZPlpf0kfT8U9EeOLP84P7BQ4mst7hjO1EsBiiTg9CVpCXtqYh
EaGDqbJDswDNR5Fw4eEwEfxOHtHMQz6CzZxeHSdCU9UiNV0hWs8q2fvm5oiQ
C0yypcjLqlQb9stEcOZbfLXzJQ7fz5lNjq8RIUnC7bYx8ifNA7UkOhJ4nYov
WUCO1g9y+MhJgupgZkOaYhz8Lo0aKR0lQXxAxXdAdjVSVH4rSILxO8FvvZAv
my4feiVJAr+n89JTyBpX9WhFZUlw9JwMibMEhzPmhXO5CiSQfbfaoIXMZWXz
MeU8CdgCjOwzkZmu15cc0iEBZ2GqQAsylS1XSow+CYLsPx6bR/7P7v6jvcYk
OG/K78ryCodx+x7XUDMSiLex0p1E7nGQtKC1RvN7Nzd0AbnJMULT5wYJWIms
VPbIVc5T0muOJFBxGHDwRX7honbUzZUENu45R2KRU1zT98x7kEAou/1wLnKk
2+bvmw9JYKlTbl2O7HPPZGwigAQNzlVL75Fd7pe1XQslQUiF3NcvyNZezNXk
SBJIej5Z6UI29HbMNnpCAo0K0Rv9yOd9PkV3JJJg5yFbARKynJ/AA+1UEhyZ
SxUjIgsH+Nk1ZZHAWu5sYA8yZ9CgvnI+eh8JWYLtyIwhp8/WFJGg7qrswY/I
/x7FCsuVkeC15xWDauSFsIX9r6tJsBnlPvQC+Vu4zpboOxIsj85WJCF3Reb9
fN5IAnuz4yPByI3RdH18LSRQi4u5fBu5Ard8/+wrCRyborgvI+c9qSlk7yWB
XucjaXnk5Dj2xCdk1P/ZH08PI4cnuAUyjZIg5swhw3X0fryTOpzDvpPAMDHA
vA/Z+anoFbpfqL/u2KpiZIO0Ccn1FRKkr1vYXkFWy1Dict8ggQnrYuUJZJms
lF0LVGS4cnXYfB2tH/bnhsPf95CBZjI4JxqZIb/ksyULGdjv8mhcRt58wVg+
wEaGnmb0DUYeKWoM7+Qlg4mVjmRyEdp/s3QzUsfI8Okij5Mxcr3oOZ1YUTJw
OdhxsCKnv/jIaCxHBtdfuxp80Xq3zm2KHNRB9Wyrrimi/WLwfefcWQMyTBE1
BL6j/aUqoK6bZkwGPvmWq+HIApnNTNbWZGA7eVOwA+3PyWefon94kKFJ/o2E
AtrPfYP0CxoPyWB/ySXxK9rvzYc19V4EkEFPtNrDCjkv6TOzUyQZ/psZfvoQ
nQ8OcS34f5lkUDv+7FFCDg6zEa1P/raRoWql29ggA4fhL4zLFt1kyA3Ptq5D
51c7wwXDeiLqr6Dq1zHkotC2A4HjZEg1KvBaopx/Qe1x9GtkaO3uT3JMQfv/
QUfCfoEBcLu5S+8HupdPvGFedRMZgJZT4t4nkHvX9Ez6xAeA80a/uFMcWg8e
nexJZwbA+1O3yPQTHO7f7Uo6cnEAFBuDgz8QcNhw6Hkq4jUAw5c4dGkeo/Uu
a46L+w7Agu8hd/EwHAqpJ0NOBQ0AjYy5t0koDhaJf+6cjRoALu94sdwQHN5/
5NTQzxyAVpvqY8KBODw6arV8v2UA5C06x5se4LC/b1bnE+cgdHCKEV1v4eCY
cU+ljWcQDOzqlq46oPXruCXXJTAIg/lMWyo3cbhHy8I/KD4IjkHLkww3cCBJ
Sq/NqwwCq5YgQ4A1DmnhXjmHbg3C/aivLEzoe3pCedc/u7eDEPXiYH+6Gg4l
LwqOEesHYdPZfvSEKg7SB/T0NZsGQfbhe0IZ+r4r/kjMPtE5CFwLJtN1GA66
kce1FyZRPZ+1yMrT6DwkXUj0ZB2Cwgr3c2fQ/aH6TqxUxM0hSB/9GBbIggM2
cNrsr/MQ6Fm1kxv34dCgNhTs7DYEM/bGP2mZcGg5JETS80WWXlN/gO4vg7WV
vgfjhoBr7g/rRVp0HjIMtKbWD4F44em4cHT/Uc/kvfHq0DAISXi1mvcSQDqR
SaiJaxj8SvK7vboJcDRqY4LMOwxRZxzW4joJsO7Za00nOgwMJPWspjYCvNQP
szBWGoZRQZFAliYC7KdeNPprPwwTs8IMuhUEGLlWr6b5ZhiCqG6u28URwIP7
Gt83sxGQ5M0LBV0CWOtJXh60GgHhcn+bFW0C6AZSP+63GwHij46UfE10v5zO
WmxzGYEI70TBvecI0FM2Vf8maATSnQ0L6hUIIKnjei22cAQ2vSMEyMIEmPIK
TlHfHIEq1T8NA9QEEJ0x2tN/YRSOjmxJBVlEw/59C/SN66NAcC2XmO2IBLp3
T4v5U77B6B03Bq1TEXBL+i1pt/YYKDmraMbqPIYCTev0ut9jQOhsKLmoFwor
vziZJ+PHwUUi26LUOgTKL6nTxqpNAHP2UoE7FgS+GsFpZZMTQOjz6BWVDwDe
IS1iVvB3sKw1v9Wl4gfyckGxHFKT4KcZ+8PnsjeYHfm6Rt2NTCe5aU64Dyst
kWMu/j+g/l5g8NkCN0iks3AzEJgCqpJXtfMqd2D/cHkmTSNym1nhVxNH2PHQ
3/DMnWnwy7xIDtOwA6p8i+Ix1p9ANXW9vOacFTTN9DunHfwJfk7Xpd1OWkGE
pL64GTuymqTQaW4rOFSl+rKXG41Xwx2+L1uCeLNwwSdhZFJbcW+2JZh9/y+3
CEPjm6wmmHZZQjXvo1QvBxQfm2X5lm8OrsnFkawNyJtBwkFiplC5mfyooRF5
gfHD9z2msGkR4u/ajGxDv8vypwk84jd372pFFl2MTn1uAimFDOYx/cg0Ah9U
+U3gY52tKOssclG2uwSPMbCPH/7Cwv4L9bPUFy1iBLUnQulZnJGX/5bfCtUH
2Z5DbTEuyHWEux3O+lDi/Rw/cBc5bytOy0gfMtuaONnvI0tZ0vry6UPo7R1i
PAHIVEmXpmr1wKA0QF8sHtmtKPze4kX4If8wWbMOWedsQd6mDliOM177Uo8s
7Mbc2K4D5PAU/gsfkC3vVu/O0IHWwbeFep+Q6ebq95/Xgdc+63XGXciibvR8
Mdrg3eAxbjtJyXe6wCelBSxarqIBTDNAZZYuEYSrQ/r7fXvkWZBj6e652KqD
5JmX04v7kafW70SeUQdd4alcKw7kkm4r07Hz8HinBa+yADK9x1852fNA90GT
jUoeuWM8b+cPNfitwEvlY4tM93lvoqMKBJfWDcvYI+uoHws+rwIHTpjVzjog
iyp4ZhxVgVOcCV7mLsjMKtE3epXBZZVxRfEBpd7j9WPKyjBdtjq9QaDEP/A5
8SrBoFhHt2cNMkE0QH63IqT9YnlI+w5ZMrl6vlUBrPMvCUW+RzZZH1oiKMC0
QD/6RxDZ78KDKQ4F+H14mLu5AzlPdthXQh5YGGZuHPiOfL/y6oWbp+H85K7N
or2zQOXSr/mYTQZ2Z2vmnGZG7jA1GBuXhlarcN0GVuSFU2bBr6Th0hBTRu8h
5CnmnwUXpMGy5+D5TV5k5v4jHmGn4EEDP0FTFrmqqnOSSQpKUkFgwgK5vkBY
P10clryWdllZIfslNffqioOs8fNfQ9eRleiSv/0Vg7f79pX221PqZz+PNBeD
Jr9h5S+ulHyj3+L8ojBg/fDa6xBkSZkK/WYROAInVSXCkEcbNwV8RMDy8Heh
wnBK3DvES0YEJrt15nIIFBdwFuQIw4Ia18OkZEq/5dIcEcdg57G3yX5FyEd7
XEdcBEGT9rbP3xJK/bCcYglBiBjhs/YqpYxXa9+cEwCWxMciblWU+RRlMN4W
AK7dV6puNCCn/05edeMHqV+rvbp9yITaldcJvGBeLMvC/Q+Zqv3uBUcuqLiy
ytRBNYf6nX6rsXUYmHa+YQykRabaHan75DDUm52ln6ZHHsVa3es4gY9Bbats
PyW+QWDj5YBJG/1ZHRFkv//0atjYAGPe/2vrBHJ9w6nJ6oOQ8LZn6rU4xbWi
DBYHQYPVZIJdmpJ/lUcx/wC8eGcxMIFR4hf/iWjvB2dOx8/ehsjpG/1napih
6aNYs4QxZX6s4oHOzMBzZ75xzJQyH2+2cl5m6Gh2rde4RslXlkg5uA+k3D0r
DzhQxouP3PzKCH++huQU+lLqfd2XG08Peg80sq4FUOIzy7KH6CFPiCGDNZiS
n9F6N2kXXHkYmXL/MWX82zc/MndCzfHYJ2pxFAdPun2mA7/gDP/BF9v9jm9Z
U8Nej11aVi8pcebIOVpqSLZ3Yp0spsTHiyRyqaBU+0zWfBkl/kVBZWgLm2Tp
bKR5R4m/FNx75C/mSisX+eg9Jc4298xtE9taTjFibKTEQw1ft21g7ET7yYOf
KXEtFqNH65h2KhW9SDfFR/n3sK9ixGi7jpe9lPFZrcoBfzAb/9ZEKSLFXZOk
ud+Yj02iiOIQxQ8Ocn9dwUqOS2pf/EHJD5RxL1jC2CqvRblvUDzzjydtHsvK
+3h5/S/F/Akpb+cwyeQTPL5U88gWp3QHZzHNh3+KQ3dQLMUkenwG81aN7ny6
j+Km8c7fU9humZWko6wUC1//fWoKixe6ap1zgGIai53uP7Di3ceWijgoPvnw
A80kNva17kADP8WbpALtcez2e4Gh80IU1wwLPh/DNl8/zvkiTHEim9LOMexg
/GXZXjGKv6yIfx3FNMzmjKfkKO4J6j44hPVcMDzqJE/xasMrukHMCt5MLSpS
TNaTXSdjXnwhnhvKFJepTqwSsZdT3E+ZdCj+VP9SpRcLfRZsOaxL8eBnEe0e
zMZgVrBIn2LD1mNXuzGumpqSC8YUO+DyeCe26iJwj/sKxX4hhyo7sG7BCIVZ
s+380r2fvmKPo682RVhTbMluktOK2al9CDezpZi530D4C6aydlxf1J5iPUNC
1WdszXp94IsTxa0Z81tNmL1s0iKD53Y/luv8DZjaL6pK8oPt8YLNDO8xnnR7
7xc+278Xe2D9Hda3+/QurSCK060O7KzBXteltXI8otjFL0v0DRZ1d1fMdNj2
84zTsq/Czg31cYVFU0y1uou7HDsag42ZxFC8sPdkXCm2eT73uXDcdrwg4ehr
rKzEXepT8nY/ej7DRRjBduhPwjOKlVZ5rhditzjP1d5I367/0JvhBcYXdEBj
V+52/aOptTnYv9Pee/vztvPvPWzOwkiz4125BdvjD+ssZGBlmdqJ94ooLrl+
UC4dIxiXmp9/tV2f3CzzDHNkPMzPVrb9vBUDZZIxjfcBU98rtuvr3b6VgG0d
N7gbXLP9+6OHXWMw8kj1aaN32/m/1zACVhHL+0+gYXt87yO3CCxGM+zDcuN2
fGp3Yyjm/G8htLF5268i7YMxrVIT3diW/9fntwjABO3r99u0bdusTNkXo+IW
Jp3q2LaYh6kXNtgZnUrbvT0/sfQNd6wq5M/17t7teP6Zo65YrMI1kSzithUI
Pk6Yy0LTnOvAtoNiM25g2jniZSrD297hmmSNCV2J92T9tm3GI4VmGM2+f9jY
+LZNIqKMsOEPtnSvJ7ctmnz3Ivbmfttn/+n/x9s5z2PxYjLR+jPb7hDOOovd
GUsx5J3ftov8SylMJ4GOc3Fx25IFGYKYsI7jSP3ytkeDj7NhdNQ92YQ/26bC
Kmmw0XIFB8v1/zteavJsjUOWhOTf/3tKtuJsAs+ela2t/xu905r/AavuIbE=

           "]]},
         Annotation[#, "Charting`Private`Tag$1798#1"]& ], 
        TagBox[
         {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
          Opacity[1.], LineBox[CompressedData["
1:eJwd1nc81d8bAPAbmZUVipSMfJGQlAafhyhb9p6ZRSWpkJ2Vea+EpOyRvffO
qMzIKPMOoxASTfyO3/3nvt6vs557znOec/mu39G1p8LhcIN7cLjdbzX7hQ8t
Xwwwx8Os3sJR7Jf2KnK7TnNJQyD3isKXimK5MymJyeVcShCWcliGt3hajsIj
GPBQSAsiJOYW9av/yKn3jpa95NKHkhpi7JtMZkww8mjWDq8J2DVi534Sj2H/
1GwTbIQsAdTsrR7niWJfgz6228TbwKG7ppPtwmcxI7ufjbFcdlBhczC5AA9Y
uyJ39ZtkB+g+zGR1+v5VTFJAruQH7w3YamIZDX+nhSVTWb8+keEMeteajn3z
1MfoSYHphkK3wTxqtEaeYIrVzQz2vtF3BdXbZ8W+zVhjrtp2aubxdyHs5/ds
J1Z7TKhlo/PHqBv08GEx+Nkb2KREqGIUlzuU7olQnHa6g8WlHG45YXYfJqv7
rWyH3DA15jzZpuQH8PwSTb+xwQMM53ep1nDqIQSReiP3yHthVd96zq7weoJC
xK3Qfc99MRdLy7JQGy+g/Wrlx1IegPH3rYgfz3gE7F88L7sbBmFjcgH5NRRv
SKZk+AVeCMWiC9mEdYR8wfju9SFGq3DsytHMzC+OfvDSzWfv+LsozLcziaVV
3x/o/ooHWjXhMRNfslbUhj9k01U9lG+MxaTPiUWZxAfAZ5OqkB+kOIz5m3v3
CZlAoOleWZiSTMC+ZjUyfB8NhEMB4t9scp9jqRzXQsK5ggBvr4iv4krBHvUm
tBvWBUHGpNoxwX1pmGHwDJWAWTDwtKQZ/E5Nx/Zv3PWrTw6BgvbtH9Sc2dh8
QV1jqFwovG591fJsMwdrs6P+pzcVCnNc/RUua68xj49xHku8T4DrR+f0y/NF
mF7kZFVNyxOY9/J0EVYswcSVhDaCbMKBKXUIfDxKMUp59d2jGRHgIs8pucJc
gTU740q+KEZCW8OB6Sq3SixJQPVbJSUSHo9s01+brcJ0nn6+qSUUDdohvQ8U
/9ZiYuoCr7m7osFXk8lPJaUeo6d2mZ9zjAHtCKGIO/qNmFXtdmmzPh7Sh5Ss
aj1bMA0OgQ8nsvBQnLdn5c/tVuziXeXViA08BL6leLjfasM4RPDixvEEyCtt
lakMaceogis0m+YI0O/sTt2f1oGtzoy5CMrEwiBN92ZHZyfWnciXvzoaC64T
Gsor4u+wAPry/55wxYHENO9mpncfJqpMCCtzjQMix59HF2gGsMHgO1/Gu+Lg
WGq7VeHgACZILZYv/uAZhM6MrqcFDGKdW5niHwfjYYSmChcsNYLdkX0csyWS
ADd3uvSTJEexw49sVoUCEuCcw+8R2nNj2I1fR8s8JRJh8EbWYVWjz9j+9fiz
vJHP4dmT79LCm1NY5en78Srk55D0m/fpyOEZzNJV7+fdi0mgkK1hklM3gxUv
M9e2LySBUbTD3UxGEqa7ECZ780oyOH5zEbWapGB/hRxfPk1OBsaXAwVzybNY
pv2V7Yb1ZJAtd347YT2HbZD2tDCnv4RcoesXlTbnscRJL8XK7VfwQMHpj6rx
IqbAY5I5ZZACtuJEL7zsEvbVVIaGvjAFcE9JnhknlrFjS562hadSoeB+laQF
7Qp258a5E7iJVDhNUxpZErCGtYdlDcfRpcFWsG5FNt137HAue4jImTQYGyJN
SOK/Yy1z3+d0w9Pg1sun1Yder2NsdsW5WefTgf8A18WePxuYw+NjJhft0oGO
/eLpnWebWH16FEN/TDro1Qs3fD/zE7MjOt/8NZcODfX3fE57/MIqLYXF1J9l
gNuMoUw2/1/M2CSteHUtE4pZTzezBOJgZVyfMZ07C/TaLZ1kZnAQYklvr6eY
BT/4wu2qYA+U297hrorLArErqt0dVFTAdFsu+JFMNljEHhWyf04NHYGfTGl9
ciCyvXblASMdmNNEVVZn5UD2i32LPH508D1UnuVGXw58LmBRkt2gg+NROR3d
vLlw3nCBfWWWHrwT7ksS2nLBz7Xpl/knRpAqYKXloc8DvY+/DNgYmeGdeId1
r2Qe/MuoVLyUwAzWpR71viZ58EBg5vY2GwtEVU27EvPyYOyUwKhwJgsstBSO
Z2vmw81tDsVLA6zwali19PTTAuBh/v1BSJsd9u0EmCsfKwapv1GZtze4IPGG
kaXY1WJ4ON1T7GDADYIfxaxZbxcDn/PvZqyKG7DXo7bjjcXQJKB+NNbrCNS+
jq+sFi+B+OfnKOMHjsKy3lKDel8JJKRofP8ocRykGUblMFIJqN+NYMA5Hgev
ptYmyc0SMOYz0kt7dRzoRBJaOI6VQr6t1pYyMx/wbSu0T98qhbNmufslN/nA
IDeh+96BMkg4cnKp4bMAJFsEajjwlcFcoAL2kEsQSGy3eo3PloGEhWBsobEg
3PG53C9nUQYVPnuzY8YE4Ynu8iBdYRmo/VE/f2bqBDT+u/z5hUY5OA4rpyrt
EYYTOt8W3kRUgI6n3SIxVwy4/ZQvOqZVQJBP5KrHthiwFKZGMFZXwKxsypUi
/VPwh15PXIdUAT7rQrc2qMRhoKX63tT5SnCPlbyPc5QAL8mA7V+zlTCqfmKt
SOg09DGzs4vLVwP569r2tJo0vJG7Zf/BoBqKb9IcXfKThhrnzip352rode45
rlkpDRldHib18dXQmtvpz8R3Fjz8Jl+pLFdDocVx4af/zgL/SraIbVIN5LO/
f9j1RgYe9l2AxB+1QKsZkPP16SVgEq+cfUdfB/TqQqGJ/ZcgM0oy8i9PHQwH
5PrG7ZOFDxr/fbK8UgfjhimCD4Nk4WQ3+70T8XVQWDWv+dVTDqa7VrLLZOoh
kelMdMo9AOXWLKZerwZ4Xbgu4v1BAaaO81VuRzeAg5jRnOYPBXD3TzaTzGiA
Jhs1BZVDlyENnuY+7W4ApVW7nSqLy/C30f+yKU8jjL643O+zdBmK68wezDc2
gsrJuv11rEpwqIJ1as+eZhj4U7D3zKOrYB75V5/C2QymByfOhGZfhXS72e5O
sWbQWDofvn/wKohx1NZGGDeDfrX5aJ6IMlx+YP2Mo6QZ5uNYuGTGleFcslF2
nEQLGD5coE9QVgUby2yL3KkWsOKsO1F5RQOqSIo9/bJtEHvXrDbMRQdGVALW
opTbILtrWn4zVAc2i5o4NXTb4Gj4mpF3hg7IPLpg89axDWqnGy4NftaBmoMS
my2xbXBqSYo+S00XapW4j5cttEELXd3WvLgeNGSv3ouLewO+CkePLDIYQNvN
l0dMltqhNnhK+h+DCZR/cXa23GyHKsGeH9oiJpDpdLHeFtcBbXt5+etVTCDY
YdT0NnsHxFjNtvSHmoDKddakx7IdoC+asfqb1hT6TYIPF0V2wI7RVwYdBjOY
ULnFQX2qE7IlCxd2jlrAhpAcc+GtLpAyfm/t+cYaqH7nsxw58R62RUpiz3A7
wLkd6yq9oh5YOakeqtDkDD1B0n2dov1gd/BSQt6iK/DiF3+//jYAfIR8afnH
7rD4c3pqWHIQOCTFKF2HPCDza/17pughiJm1DfYR8wamozkrFMpHSP4Tqbgu
4g+RNyodUgVH4Kv9cPiGQCBsyudTnPxGIf/B8iibRhC4S7VXcL4ZAya5ti0W
9RCYLmqP+MD3GbZvJ6v6OIbB35sfX4h4jYPmkZclK7bhcFKBbtuhfgL6Odhj
u/gjQTmdz7H00BTofcGT9hGj4OFRK36i+TQEmWBRjw1j4Lq2pOGEzTS4xXa8
nzaLAa3He8JHHabh7IfjRy/YxIDQl4y1XtdpuDuv+4fkHAMfKxZa6oKm4SFf
rcvBgBiQ1HCziitANgklz+bFwIJXcLLyv2lo+yPWfPVfDIgtGewb1ZwBPryw
05AaHmr0NZrDtWcAb0vLqa2JB8XGy/cwvRn4ey57+P01PJhGS4xnGc/A4tG0
kDr0P+WJJEO+u+0MpO50xwda4mHOvUGNzXMGFjTN8ivu4iF1iz9cM3MGmGpF
nibF40HMgQvbkzMDGTbVb0cT8VDdx/y94vUMqDFa/mB7gYe+lH8mPMUzMFHz
XPRxCh62FEZEFmtn4KKC0V+1XLR+yJN3Yf0zIIoj3HtYi4eDzKv07X9mwH5f
OA77jIfBxvBQ1a0ZuNL2MZlzAg+xLido+3dm4FUJ2Wx5Eg9s702pP+8lgm9o
PTwjIgd3bK0wEaH1k01k3wIeWP4mfT8iQASVONr8uU087J+/MnFPnQiecXpJ
uawE6Hk2Y/pbkwhj1AcNlQ4SIFLp0SdfbSJkE5KPT7ETYF96ycgTAyK8S86c
3neYAIwWRz6kWBEhD2p/XDtGAPqh1Y7ue0R46RS/4SlKgL3NL4oFkolw3enY
BR0FAnyWVVKZfkUE/sNGne8vE1B9WZpJSiNCXGT0hoISAUyr5NjYcojwSeu4
jIgyAUoLp91xZUR4VvtLalyDAJbJAhcnu4gg5eHs2mNEAGnunsHE90TIVOR5
x2tCAIZEd2f9XiJYfkqpcTUlQMXTjuTuQSJcOuBgss8CxR/huFM7SQRHyu9o
gesEqPHMb49fJ8K5MjXpaWcCRP/Us9DdJMJmnf/rfbcIYHv/38aB30RQZZvJ
O3ubAEx3Nf8L3iaCaGzgtUBXAtg7rTy5x0CCe23qTNvuBGAzOnNNm5cEG+MG
Q74+BFj4OD6/j58ErAWOTY99CdCoG+TfJUiCaSX/kyF+BHDSGi7FREnQyaz9
5HEAAZquPGQ/dZYEZXbal62DCeAsXf+JQZ0Ew9zD/GmRBGgZGC6o0SRB0kwj
2TOKABy3Vv0ctUnw/WGItHY0AZqzTgh1GJCgtjLo8UYMAQ4ewrv5W5Pgxc5a
F/9TAtT/ttv38z4JVFQl3OieE4Al3m8qy4ME/zSVVmuQ7aWSSvUfkSDxfcGG
YxIBmJ37jcr8STDW5BjX9ALtx8SFzFsRJJAfkzyo9QrtZzOTHCWVBMIglbWR
TgBrMxGWpxkkCHpcauaXQYDKn4pkhWwSXE8PINBmEsBK0vNJSj4JUnH/eR7I
IkB5GnnYtIoE3Eb/ndzKRvmDbecy1JLga+77PrccAlh8PuxdU0+CVbfvy7PI
dAe1+DlbScBPXE9uzyWAWVDN7Q/dJGD5OFFim0eAkuNDCv59JIjObRLoQKZp
XGaX+EACqifeTIL5KN82+OsjR0jwC/dG9TPy3li56EufSJB7zen56QICmIgb
23wdR/NzCViFIFM7RtGpEElA++mwunAhAYypcz9vkknQfvS+633kwpS2wqw5
EuC9RBhbkI3GfupRL5FA242cqFlEgHzV66lNmyQwjaw/pFaM8lWMD4PfJPD3
Mzjkh9zENDPe/BftH++RyVLkgSGLQ604MpAYPtaylKB4qngqFajJcLn96IAs
MilxXLeNhgxUjPL5Dsg/LEyi3zCSQX6ruagc2Uf+sJjSATKE5T8cGUGmFRh9
185MBu35+tafyHiaeMcrbGSY6L/oyllKAK4FfZpOdjKU/UwnSiGnvz+YcfUQ
Gm+XwaGJLFY4KN/FRYagmMV99siVMYQpZR4yuNufbPdCxty0vd8eIwO98kEs
GrlLn5lblY8MH+n1PVOQtWX6qt8JkCF1/dX9IuRPXFEGakJkSGzPkqpHvv5P
ff29MBluF3KXdCAvTjES1E+SwUO/ZLkX2b31nXjPKTKwDHMtDiFvZ4T1aEii
+JoZc0eRQ0OUb/ZKkcGbS0bwEzLLDVp6rbNk2LTQsxpDTlLvyOqTIUO6D7vJ
MLKAeJDitYtkoExJsA4gF7AoEvtlyXDe0iz0LfLZ9T1+2kCGw1qa9U3ITcMt
PB8UyOD7sKGgDFm5xq9OR4kMbVzWZpnIA0mY8eBVMuxdXOl8imzis7Whq0oG
qcOCK/7IJKuGp0PqZNC4UjnkjOx8+dFpfS0yxEaZu+sj/xC82P9Rmwx5j4cG
LiL70P12MdAjQ9/pjwvHkGm/VjOOGJBhm4urAbd7XsVnr46aksHyl9nTRnSe
6YQfZCMLMuDUP8QnIou5lweMWZFhCe+pfxcZu3C68ZMd2u9Jw60jyF1HVk1N
HclwjJZuYRnlm/Z20a/PN9B69jMRjcjX34hJT9xG+abEuG2AvJi1+MH8LhnG
ij91H0N2D8u7M3mPDCViAzqzKL9DNYXzpzzQedw9G+yMzCI5r2L1COXjTyGp
k8hJbNlz0z5kmGK4Er+A7kfBqAA/MZAMv+JZH5sjn60jNdsEk6Eo6+q+g8hN
yWkWpFAyCN6sVO1C92/Ahvc5OZIMruG6C8LIG4vcLHPxZGD3/S97AN3vuJfz
XcnPyXBxQmLbBfnMtQo/vWQyNEiLZ9Ai3y3TXGlJI0M0x/fB068JsOzh3/ei
gAzc6nvaHFE9iRTVDNEtJsN1D16vb6j+nJzgwhjK0P52Mvu4Id+A8sIH1eg8
39tcd0P1apZmLlKnDeUPrj9DB9W3oOoyJfoOMsj+885vQ/VP4Ibfv6YutB84
mn+SyDY9h13EeskQfqbiAU0aASZj1dXpxsiwgD/VE4Xq5zBvKUPjMoov9m3n
EVR/3T/4tN5bJcNXuTAFm0RUvx+reYquk0FSsnpPZgIBdObICwm/0P0aT9Xh
iydAbwHnWzdqCvS1eov+jSVAxwXvEGEuCrD4ej0/id4Lu0UVbPoIBQbPLxpc
iUD17CXH5rNjFCj5yWFgHk4ABVyxPbUgBYpu0hwJDEPvUydRaUqcApkqTq0F
Qei+6ylTxylRAK8YbObrTYAw9ZpgHmUKyOZ0Bvs+IoC5ogh9lioFpg5eUPf2
IgDVmX0HqrQoMBZlmePqQQAttn7OMWMKKBmEp8ui93FhwFCU5xYFXDOkn9mg
95Zby0En8xkFaoLNWabRe758ZXRILJECl48RHscaovdOTsWwMokCTiJeeEUD
AjicEjXrTKGAP9n64Std9H7s/2a38JoCnX/tPGU0CaDRfd9DrIkC28Ym1zbR
/w0/leCUijkK/NLrvZkjQoBBSydzyS8USM3gOM0pTADB++pcBYsU8Bodfx0o
RID3aaxPM1Yp0E7DX64vQAD2vy9DYv9QQHLxvtAkDwFyC6tuuTLNwv5SnjQ/
ZpSfbAuXxM7Ngv7Ao4h963jgF+n+lXN+FkrC9bsl1/BwH4oqBS7NQqTWmxa9
FTxwu7hLHJGfBaeepZ7YRTzYdeAEGNVmYcDP4PYGGQ+/HnIxLljMQuq15E2N
j3jgm1QbywhG4w1PXLlajofwtkvFBmFofr/W3vUSPHzPEQuhi5iFuAzdvFdF
eGhzY5J2xs8Cu7SD9dJrND/9YIzUi1k4L0P11jEVD7lnTJRbS2ah4Lp+x1Qk
HsTDHaumxmeBwn4/p98WDxdlguK4pOYgc+Wd6QcGPIxc5zr3UnoOzAueVTDQ
4eFedNHocRnUvlPSD3vxUDA7xi0sOwc1F0bi1bZi4FjcqbRzV+fA2Fn1bd5c
DFCtjRTqmc5Bqo7FclxNDHTniXRFBc4BjuSiymkSA+bH+n/vGZqDGYGgM1RR
0bDxPorkGjAPb5fXhDYTIyFxr6W7ruACHO54bfHncTgcnKpMp2pfADz+HkPO
5TCg8QnQv3D3C7SoF3AzvgwG3GvLYhLbV3BVEBJ8sRMIbknFUWxtXwHv8Sn/
DYs/NJ4Mo2e9vQjW0t7b21pewKrmJhbItATyD8x8GDfdYeLUwJBnwxLg7C+k
co3fhpJXIEixXAZc2P6fVTb2sO61Tmdjswz+VOZzNZg9nDPKWZy0Re1UXwm9
R+yhnpm5fNQJtd8R9ZUYsYNO/ymFbjfkN4LaY+p2MH7dx6osBPXPn+AdumgL
tP/VJ/kXISvsecIlbAOq1Hd8t0pQf8UY23Q6G4ic5r/uVY687s2sMG8NrInh
Iu41yDOx8i3Z1sDDYFrj2IbGz3n3vhWyBqnFX8NaI8hsMi2nDS3Bovgc69Ft
5KS1hMFwU6gy/cU0gPsGuPsVxrVqpsBEW7f/MTUy5w7nOKMptJjL0X+hR14t
SxqIMAF+RqWdioPIpQKiEXhjmLPTWdYQQb5TdNQryxBuc7u889ZHrpwO4N/R
hc6OU10SRsg/D/9e7tQF3rsr7SQTZCcXjq1oXRjocmtRsUIOcTGZ59UFqfue
1ew3kUc5Pq0r6cDP/pCsAj/k9qUOw/PXwD84LWAiD/mBqBIvlSoceEinZlOI
LI/jpcpTgSSnW2xzxcikm9E3dVWgXP1CxkoFsuskU1+mMsyxfminakaWDv+8
dO0qqL/C0YsMIRdoqv1oVoSxGIeBwmHkbTqvG66KYBfQkyg1hvz274wznyL4
2iWKyE7uxk+jyB18GUpEJdWvze/GIzwnqqcAnNVW0ff/7s5XpsPKgUFGbofh
ny3kSGexQ2FyIJl0ktcPtwI4yjKz8j9ZUPX5WRxGgxyXQBZeuATeijEfXjAj
v1VyZem7AKT+JvY2AeTEwH7NobNwp1Vw8qoQcq61prPJWfhXFp7VLYxML9re
NiMNHPGG54ZPIYvpZwqsnwEV829GCzLIv/o83glJQeHC0RdMGsjW7+pYn52C
sJfB1lNayB4im/9KxcBOd/lEkQ4yvimKd/Ak8DQ0lGgaIUu6XuHkEYXwGLPO
yOvIwgVy3KNC4KD0JsLcfte0dSxMQnD5t6iOmNNuvH+fGaicgN/X/4x339pd
/wXVSKcAOJ17vsboiXw8lpp66TgoLeKqPz9CDpN+3yh3HHhTnbzzfJFXp+80
nOCFEYbzdGpByKluAdXRPHBlcoTnSczu+HsJMuWH4HgsRjKO3Y33OXNBFCf8
u5qdI/xs9/e1LHPf4YCKkvtSb5N2x9fgd64eBP4gdhW6bOSWzgqOBCbYPu99
YDQX2f9k7VrDfvi0TB7Mzkee4enhW2MEvFG5xdVSZNxHlqIgOnDZf0SAs2J3
vn9X+Sk0oNIauDBbhSzvGcetuxd2RHXvBTfsrt9Z2GWyBz5P1543aN5dT1RB
ZH4Hq4rj2xZs2/WttZPnt7Db26th7V27vlDYI/ULUys31op7v+vjGi8mNrAT
Ti0H7Xp3fXPiTOY6NvEh5hX10G48P4pUuFewmpCftkPDu/FrnDO1WMTiLlmJ
ZIztmnnvm4l5zHW185vb+G7/Ep6KRAqmniVecXlqt50p3pJAxIRM4z3ZiLvt
OIn5qEmMinkbI5F3nVCucm8Mm3pjv7dsbtc2WkpDQ1idR++7gC+7Tr7lad6P
xZ86G6OztOvEaBGGt9hdUrI+38quvf5YFrZiGgl7udfWdi1PaX5agwlruEy3
/Ph//7Vun2Js756Pmfifu5Z8/qg+DZupvHTT+s//+0sURMdgDTczJCS3/h/f
klfCHSyBd9/Gzs7/jT4lsv8DnSb7Zw==
           "]]},
         Annotation[#, "Charting`Private`Tag$1798#2"]& ]}, {}, {}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{True, True},
      AxesLabel->{None, None},
      AxesOrigin->{0, 0},
      DisplayFunction->Identity,
      Frame->{{False, False}, {False, False}},
      FrameLabel->{{None, None}, {None, None}},
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImagePadding->All,
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
        AbsolutePointSize[6], "ScalingFunctions" -> None, 
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
             Part[#, 1]], 
            (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
             Part[#, 1]], 
            (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
             Part[#, 2]]}& )}},
      PlotLabel->FormBox[
       "\"\\!\\(\\*SubscriptBox[\\(h\\), \\(20\\)]\\) and \
\\!\\(\\*SubscriptBox[\\(h\\), \\(21\\)]\\)\"", TraditionalForm],
      PlotRange->{{0, 1}, {-1.1102230246251565`*^-16, 0.017279999586455673`}},
      
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}], {189., -597.9478841155233}, 
     ImageScaled[{0.5, 0.5}], {360., 222.4922359499622}]}, {}},
  ContentSelectable->True,
  ImageSize->{339.54296875, Automatic},
  PlotRangePadding->{6, 5}]], "Output",
 CellChangeTimes->{
  3.685176855500222*^9, 3.685347107743167*^9, {3.685628582123322*^9, 
   3.6856286025414743`*^9}, 3.685629192942424*^9, 3.685629468765129*^9, 
   3.685629556960616*^9, 3.6856317745645323`*^9, {3.685678811707477*^9, 
   3.685678838026599*^9}, 3.68567915453312*^9, 3.685680521287912*^9, 
   3.685680863164525*^9, 3.6856845986898193`*^9, 3.685691588507288*^9, 
   3.6857639019600677`*^9, 3.685808003599329*^9, 3.687091768297995*^9, 
   3.6870921140315943`*^9, 3.688044706951913*^9, 3.688101999255911*^9, 
   3.688196459351595*^9, 3.6887287593086452`*^9, 3.688801502346859*^9, 
   3.688802211817931*^9, 3.700281552661275*^9, 3.700283433753057*^9, 
   3.700283494623673*^9, 3.7002836989056673`*^9, 3.708846361790613*^9}]
}, Open  ]],

Cell["Their first derivatives:", "Text",
 CellChangeTimes->{{3.684991083343364*^9, 3.684991089134109*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GraphicsColumn", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"Evaluate", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"h00", "'"}], "[", "x", "]"}], ",", 
         RowBox[{
          RowBox[{"h01", "'"}], "[", "x", "]"}]}], "}"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "0", ",", "1"}], "}"}], ",", 
      RowBox[{
      "PlotLabel", "\[Rule]", 
       "\"\<\!\(\*SubscriptBox[\(h\), \(00\)]\) and \!\(\*SubscriptBox[\(h\), \
\(01\)]\)\>\""}]}], "]"}], ",", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"Evaluate", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"h10", "'"}], "[", "x", "]"}], ",", 
         RowBox[{
          RowBox[{"h11", "'"}], "[", "x", "]"}]}], "}"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "0", ",", "1"}], "}"}], ",", 
      RowBox[{
      "PlotLabel", "\[Rule]", 
       "\"\<\!\(\*SubscriptBox[\(h\), \(10\)]\) and \!\(\*SubscriptBox[\(h\), \
\(11\)]\)\>\""}]}], "]"}], ",", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"Evaluate", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"h20", "'"}], "[", "x", "]"}], ",", 
         RowBox[{
          RowBox[{"h21", "'"}], "[", "x", "]"}]}], "}"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "0", ",", "1"}], "}"}], ",", 
      RowBox[{
      "PlotLabel", "\[Rule]", 
       "\"\<\!\(\*SubscriptBox[\(h\), \(20\)]\) and \!\(\*SubscriptBox[\(h\), \
\(21\)]\)\>\""}]}], "]"}]}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.684990485945263*^9, 3.684990569389597*^9}, {
   3.68499060031497*^9, 3.6849906248023443`*^9}, {3.68499067011257*^9, 
   3.684990750258647*^9}, {3.684990794366681*^9, 3.684990843615131*^9}, {
   3.6849908971171207`*^9, 3.684990978032452*^9}, {3.684991096352992*^9, 
   3.684991204666863*^9}, {3.684991278683693*^9, 3.684991301623892*^9}, {
   3.6851768713282413`*^9, 3.685176886335507*^9}, {3.685628612200055*^9, 
   3.6856286444711847`*^9}, {3.685629202472289*^9, 3.685629241121237*^9}, {
   3.700281573393157*^9, 3.700281573783579*^9}, 3.70028368174658*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {InsetBox[
     GraphicsBox[{{{}, {}, 
        TagBox[
         {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
          Opacity[1.], LineBox[CompressedData["
1:eJwd1nk4VV0XAHBTJYkMpUSGIpUkryiVJZQoMpcGKSokU4NESSgiqZCEEFGS
MSIslSFC5tm91zVWpqJM9/Bt3/3nPr9nr3P2cNbae0uddTI+x8HGxubNzsa2
8K93brCu+IeZetm9rKWfpXkLubREnelrlEEr5IS20Ovyov9eRERlrdGGNyXS
jImEgaJesQ3ebrIG8E7xGy+EzRQdqm7JjF5jCvWC5+tNopfghiDxxHkJC+Bw
DOacdRJElp710zOylrC7p379I39R/OnbWHIm/AxMOVbs7lomjUdtJgsfr7EB
nTSlhLPBG7FESzT3S9R5uDf1h/L6thUV1+9Nn5CwA/Utw9qOZ5QwisPqtczL
i3D6walv/GoqyM28E28u6wiGI9ka153UMJ9RX/3F1BniCiyPe7ADOhva6J0M
d4GBEmv7f5P7sGvbPa0Ha66AJ48O23tnHQx9sbpY5sRV2Gbc94rPVQ/1+N/s
KYq6Bqk/P63RidPHnJGqHaMS7pD6UF/olrYxOlhaZt47cwP6WvabvZI0Rema
UQXJlx5Qscdo4JGQOQanCsoZyd6CYufWqbt7j+N+8YSEHxe84JOXoceNKyfx
Vlnkik+mt0FjS6PJos+WqKwi/8Ai3BtwVizkeO0ZjF155O79Nb7AYR4hlrjj
AnpUPy0xz/cF5ytqecw3tmjux+BYf8IPDmd2K2pssUfevy5eH6PuQvlAd5u2
/iW83hh6fUgiAKRaViiO8LiiSVBXzofiAFgmIc1X/NsVFbRl//qeuQ8tm/OX
89IuY29Wrov4y0AIY69/sqT8Kho9abc3kA0GhxqHEo12d5Q/tP61aHkwtLQ6
ZT8duoHcnA4D/RceAv08xyoTLk88nTeXgaYhsKJ8i+WQ1i1cuSlE4Vj4I3he
9z7nnbc3enNnbQxYEwpy/eIbnYrv4madR/6ZzqHQcZOd45jPPaz3c/rRUR4K
cTPvkox1/XEDp3yKwrUwKNygeOcaLQDLqASFxvpw6Du3o+rg1gfIOx6+QyLo
GbApV+VXb32M77dfDT/Y8ww6GhyC7JMeo6WzyaSLWiTotgVl3pF+gmnD/Hkl
g5HAr30yWko8FI0H/ffY74+CcGW5UxwbwjGi64bW+7kYKF416vPELRL3iVkk
0MxeQFPa6+rb3M/x53HVRdypL6CwI4O9M/I5rhtyt07dGgsNS+0aWr9EoZOd
igxbZyzsYojVNcq+QEGbtOTEnfGwI3pCjm91PB6ziEsb+50AgXuyxAUSk3C0
w5QnXjQRnq7OUDOkkvCuJfc5E61EiP19/sx682TMsnYSzQlNhNJA3+u+S18j
n+NePw/VVyCZ4esv5/YGS++0HV98Mwkk1pSrvruUikpvBRaLcb+BDoU7QRnM
DKxQKLWqVnwDzy638hSLZKJVxvWPtyzegFiwqoGQfiY+yKE7d795Ax7xHLfu
fcjEweLUjlf6KcCXyz0d9zgLY5p0M7Y/eQslQ20KHibvcdm890mddWnwm789
JWZxHkbYHbWUP5AGV5Z37vukmYcbGuWtBBzToEPZnkPKKw/VX7dYdxSmgfsJ
OfunU3mY9zr8fa5COtjMhL06MZKPwyZDBYdq0mGXcZ2nZF8BmiU//XZ5eSaY
u2+S0/UqRhmjkcEvgdnQ/+z+DpehEhT10lG7EJcNxkOVe/OFS3FFamwgT242
BG8qRam9pTjDbaJgxMyG9VkRDYeCS7G2OPcybed72PYk6t1SpTK8oeg9N9X3
HkJ2BjJEvMqxhl9YWEEjF1pCQ2M6FSrRrWYXREzkQb0hjw4P4zuKZAvQ2NkR
lgV80mwpbsIcplbV9z2fQbzV87jN6078bB+91mKoBF4FxI6dGO/Gv7J7+VMv
lYP/0kwpVbc+5JhOWbFWphKWDCiMep38gSrzVjkm76rAq4ntZA/XMFb5KteU
bf4OhlO3Oa/pjqFEyK/p1yO1EGAt0sja8gd/TdJpTYr1QCXVFv3sGseEnx8r
+YIboOC3uMXNqL/IJ5402tvbCKtSGJqGOyYxyO79+dgNzeDY9VXq05Mp/KeR
0mvr1QKle09mj/6YxitKJdmrvrSC/chzcV2OWTyvLBn76Gsr9JyJzkxfPIvH
VDwDeWtawbx/3eGVy2Zxt5ryWY62VujvsQpoEppFDs0E/pGRVlj3Vm2Vksws
PjTytS8VbYMKD/Gy4zqz+MZZW/KKaxvcovUsOhcwi/R3JYF1Uu1wcPSrzn9c
LKwd5hpS2tgOxxbJLy9dwsJi+f2HQ+XbYYaxstRkGQtj35TyHlVtB1Hj+aW2
giw8+6rsQefhdpBXbmi+KMnC/uivDwfc2iFmZdY4fTcLh4OqnlDV7WDTuknw
mjMLad94Jywb2kFt9ziVcJmFNTz6psWt7VDkfqGi9hoL3/lXC/v0tMN/kWup
dTdZ6OxbE8Y93Q4awlZfwwJYOOFR+1RoQwcExL25OhTHwln7xuebbnSAnTW7
r1otC01VTj1S8OqAZDfTx431LHzL3n/3P98OWGlW0HaxiYWWEZMue4M7YIPx
bsHH7Sz8VCp60Ci+A24uk5Eo7GXhPckzE9crO0BCL9DkwRQLhZqHD38V7YT7
m1+GCq2j0CHumma1RCdUN9zgNZWksMRhXrV+QydwyX/JeCRN4TVOgfWdCp2Q
/MzAh2sjhW2KytOjmp2wPGHRrq/bKHwReCNR5GIn+FjzvirXoHDLviVz5z92
wpp8cfMEKwrT36RsbC3uBGXb3S8yz1KoLGxopFvWCS1fjgQW2lC4ZyAiYUtd
J2w9N6JXYUuhwYPNh8b6O+GksrTlB2cKXdv0I9wFu2CYx+zehBeF/zT/fPop
0gWe23Y0V3lT6PE2/NcJ8S7gtHn2Oc6HQl8vurq6XBek2L1y3XePwnAZlz4O
9S7Y+Xxe9lgwhXkuoUpBdl2gsJovivmcQvWOnScpxy6Y3Losxjeaws/aXX6O
V7rArSdr5/oXFFaKyLYZenVBscyAink8hZ2FuV4rw7rA+j7/kSfJFLLxdFTF
FHfB0PcdmXbZFOrES13IEKFBiHu/t18FmW8En2yZGA2+at/4mFhJoWTwbG+7
FA2ux8b9+/yNwhn3prNc8jT4aTDnPFFNYapRgOVRDRpoCRi6/FdPoRD7bzPK
lgb1PW2eUu2kv8kuYUFHGpx3OVEg0EHh0FBlg+xlGvAU/pmZIy5rTTAyvEkD
m3UNV2q7KHRPP6b/8hENciP9jx7pppB+ulhbN58Gkq5ZHwsGKKwyS+W0RBqs
NMzu9Byk8MOhyM+uJTRo1fw8s+sHhY9Vr2hE1dBgRuPJ1pSfFO7nl9szyiT9
7eK6aDdModKilbOcgzQ4KH3ORWCEwnWz7Pmrh2mw4ePM5Rziqf4OVc1JGgh7
WF2aHKUwpejhf2HL6LDayE3B7A+FEdmef16voMPW2A6hPmLfN3YZRSvp8Mcn
b8JlnELLcK1tgxJ0UFZ4kHxngkIBx8nNu5XpUPjuRLPXPwrnrHt/HNlFB58V
RmGTxD8t6pJt1OlwQkX6iMMkyef9KbLBB+kgFSGQdXiKQjfx09LdJ+mwqs1Y
7cc0hWcNFc07z9DhpsqBvwdmSP75sN9vOU+HS7tTvsYRy/54+bvamQ5768I+
GMxSKCh2VabiKh0u7uZoiiWmDA5YlNygQ+p86tIx4sbsweJ8XzrYjoZ99GNR
WDyQN/E+gA7jZgU7q4hTRAPlMoLp8D7oXzU/ReGd21tDkiLo4HHPSyOY2DFr
7kt8NB3ODn4UryC26P8+GR1PB02TAUH2OQoVD7ueDn1LB8mNv7RticW8tJ48
zKBDZXC291PiJZnC5fdz6FBNGTR/If7T2zfj95EOiziyNYeJaSK5Ct7FdHgR
1lUmNE/yW8//rGcpHYbXlZ1VJX5/0yLcrZIOXs62q44Rx6ZvrnT9TgeFCuy+
ShzUM0tdaqTDXEN5SQjx9VXV2+3a6PBfsicmE1vrxpyzodEBKtrrCokNPJ2e
ne6hA1OWPvudWC1No/r4IBmP+L29dGJZpgC7+TAdqi7Xhv8iFljZo2z0hw4J
p/OW/CVm6WTbHp6kw0pvjZBZ4sEbflE6LDrw9dkozhP/NN9iG8fGgAAu2cEF
W40JcUhwMqCvxCeXIm4OYD2PWkTa3W7FTBEfWt+3Q5SbAbrtq6LHiIsLqr8/
5WHAIhGDrD5iFfMcu5XLGcBVItPdQvx2NIbzCT8DknpeyJYTSwfci14hyIA7
vUU+WcQR0s6qwcLEcX5TUcR8BcfqlokwIOvMpK8Psa/ZvosBaxhwtVVk0wXi
6ZFNi5aIMWCvzK9eHWJHf8EXvusYwGy4+kGGuFdqdieHFANMOwteshHXmlY5
UDIMKJ4M+5RKvt+BkezFHnIMaBNRnvAiLrgXHTu1mQEzKa/UjxAn5Ts2jm8j
HpNZ20fyR8z0qKOLEgOqV2imphA/HgbuUWUG2N0xOupEfEtSYM/PXQwIoV8a
Hyb5OZE33XRhDwPynz/oSya2N2E69akzYMuhslErYrO7WS8ZWgyo+vb28FeS
7/JDZsta9BlQMPlg0xVSLx9MD+N9QwbQsp/18xNrFWpeVjdhwOKq8J3JpN6O
B2/rSDzGgMbnb5/XkHoMUFyacsWaAW+fnLT6Q+pX+Nm8pdx5BnC0c5W7Esey
/xPstGVATPueL6N/yfvrmTe0HBnAcyLHk072g/4rBXqC7gzgM7P9F0b2D9eu
zLlSDwbMGa7nnf1N6nP/60z3Wwww7t7+4SSxsEi4aLcPA2SrchpWjpHx5Tn9
TAsm6/XbY+1psp/FUtL39RMYYBBazG1A9kf582vU2ZMY8C4/85FnP4W5Nfx/
sl+T94ePZSb1UVjzgmUhlsaAs1PdReM9pL99zZt+5TFAur2QzZpB5ns3oML/
OwOuNVkciWkl4x3xurmnngHNfnZO4S0Uuhy9tn2skeTbX+PNgc0U+stZPzva
TuJXXHSxb6Qwp3KPnWwfA5R423TZasl5wD/GXTJD+rtOMwgoo7C+8P49XYoB
yRp+wVal5Ps6yCz+Ps+AW4VUh3IJ2a8qj3O2c3VD+jORuMZPxH6l1ChfN3CL
/WkdK6BwxWzkn7Xru0HvSJ1cVCaFvAP7Oy8f6gYxcfZUJOdjVRjj+LR+NzAt
zRbviiT1r+3RdsuwG75u/3M5LYLCZfHpzQFmxBv/BD0Jo5Dn1Nq6F6dJf+5R
BTsfUsjdMFb67XI3zPyIODhJzmsufJ62Pqob1EQutx84R2H7Hu2D9JhuiHJY
/0DNmsK0/CFGZBwZn6xax+YzZP1y9goKJnWDStaKQ+ynKMxIpV9hy+yGXu4i
Hz9Tcj5ErVfrKu8Gq8GZ1F+aJD/cU0rCx7shh/u/1O3iFAZPmpwy/tcN0hfO
PsgTJfvTVdbf5dPd0BpTv1J9NalXF/2NfnPdsGFyl9ReIQrP2Y4GXF7KhBrp
RAWhpWS9jv53xFCCCWpd/wIkJlh4Uflj29JDTGgemntcUE7uk7VNbz/oM0Hw
hVPPQAkLV14a87pgyISEl41LV3xmISbKyJaaMaGz1qXdvIDcv0RCXG9bMcGx
tSGiKJ2FH6dtlk1eZYJw4vDMvwgWLkO+vb2xTGgtFJziu8DCFN2zsUX/mFAl
s7ZuZnoWleWl1GGaCaazFUti/s1iER+jA2eZoF3YG6U+Pou1DadEPrH1gGDA
xV63oVmcOGUR/IWnB3jGlScrabOo7mro+XVdD4QENMeOfybxkerH6g/0wIqn
I1+Myf357y/RFf3hPeDMkkq/wDeL7010OEO1e0Fjw4UYqnsavQ76vcju74Vj
KYpTRvFTKNWl1/rSrw+mfsv62OhMopqqb+gapX4YFLDhvJH6F0+u+z7N3tAP
Q9v38Y8KTeDfygdMZ+8BMFQNqm6CPxjBZXnFeMMgpO86FfTAfQyFaO/jOUoG
wVBEc7++9TAuuultusvlB0hul/+6y/MHsr22TGMK/gSGzoW30x196BqZ9kDw
80+IvdYxzMvJxMIt/twCjr/g9t/d+txlnSig5yp/h28INO6LmuTaNWPn1toG
94IhuO3z0Vl9bS2mx8CGXsthYKuhDrK1lOL4jfElZ84Q70umXcwoRZWjSb+6
rIfhdnzd2FhgKX7k589qsSXtTqINOvtKsew2bd83V+KbjwI3p5Zgx9mbpzPv
kngqMLch4Asu3vgx8vY70h61hXvH0U+oy+l0i0onPrPUf1z5EwbRpc/eyCKW
e15TLfgJBSLub7rygXiUY6apphjFlh7/cOEzeZ9/Xp3KwWJU+jXVZNBM2lvn
o8JuF+GpNBUB8Tni0N1TN4PyMef4FF8t2wiwtWxZzKmXj3yL83l9OIlT6+dr
luRj8cm93D+4iS/Pu+3xzUNpHu35bCHiLWyVrrc/YL+N0fDhTcQFj3zd7uag
o6hDhacpsZtdoWplJpaVbi3fdpT4ulrFVEgmSriMljAtiP+dZyw+lom15a7F
B08Tb905yTOQgUpX3XOF7YmNg3d84M7Aye93E996Ea/2EE58/w5v+8V5d74h
XqxlUHktGZe7LdE7k0osZzoZtS4ZI20vCfanEQd9SWcrT8KsQ7tejmYT86XH
eK5Jwn6BuhIOJJb3dDpSmoiHYti4NzUQqytavN75Elsfnq9NbSLW7P+e9SMe
bbyrIpRaiZW3+Zk+j8dbNhGb9nQRK/ybsmCLx/TNioeODBBrt8jeqovFVbmn
g6/OEts+fPtDMhpfJpeaz1DEDoK1wuFRqBi5RcKLbRTYDjv/uMYbhbo3J9P8
FxGHfn3BZEWip9bDuuf8xI0OD+2HIpD5vUj48/qF+EsetYvD0OnThq4DssTy
j5TzH4YiK/N+4jc54t6Q631rQnFluLlK01ZiU009TqUnePDkyNFBVWKxK/mO
Lo8wdVD8Od9h4ljNHOUTQegf7WdFMyBmKDJWeAWijfGwzDsjYo3TsOnVfRQr
KEjXP0rcemL1qjl/vP/wRFnQWeKv8gnCTX54XvtL4MlzxHK8fYuF/FBzerOR
vC0xW6uFtqkvTp+d6fh2acEC55IZd9BW5dlvHnfiZO0iXanbqP2LLbfdY6G/
/PTQ8VsoEWvr+ebWgpdf00u5ic1Ldy7R8yVOr2hiKnjg/q5msYCHxCtos4r3
rqHkY3XmscfEY0/KNByvIuvAqyS5MGLnRLf1J69gdvpVpa+RC/PzKXE+7IrS
vsIHl7xamP9l+y3zDji303N5S/JCu3C2we6L2DbcU/8qhdjqc5Wpnx2GHM06
dSBjId5rsZzWeXTgXbt+VTbx7ZjrXLk2ePDTncG+nIX4gRPMndY4v9n4sl8B
seS2jZ/OW2E7PW+nGS7Mx7U5XsYSc0Kl5jZ8Xnh+cQZn5Al0nBvzLylfWB/B
oS8t5qiXdcwgtHIh/qmoZpwpytgWC9lUL8R/VFW/Z4yddQ9jOBsW4o+PdRjp
44e7k9YNTQteNH+7QhdDd5/e9LJ1wUs8om8cQOexshHXjoXnJc0Nz2nhoUSF
bE3aQvuTex8CNFD2eLi7YPeCVVf//L4bOfjn1Jk9Cx79psumirQv57gy+xdc
vKsmQQnzr1dXeP9YsMqUvcdWDN+646HR0P+/t7NHuCy6MKNMpUYXrKau91wS
Dz/lEv39e8Ea75KERVDusAO9eGLBB6VMQpYjF3tjQsjkgiXrZRPYkPF+t73V
zP+t8zdyuKjA/uU2RWrBbGnRsdVFTyWW/Z2f/7/Jj7vwf5L94bk=
           "]]},
         Annotation[#, "Charting`Private`Tag$1864#1"]& ], 
        TagBox[
         {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
          Opacity[1.], LineBox[CompressedData["
1:eJwd1nk4VV8XB3BTJYlMKZGhSCXJTymVr1Cikrk0SKiQTA0SJSFEUiEJIaIk
Y0SUyhAh8+ze6xorU6VM9/Bu7/3nPp9nr3P2cNbae0tbORmd4WBjY/NmZ2Ob
/9c7M1hX/N1Uvcw/e/EnGd7dXFpizvSVKtAKPa4t9KJc/b+nkdHZK7XxskSG
MZ44oN4rvtbbTU4fr5W+8iJ8Wv1AdUtWzEoT1AuerTeOWYS1wRJJc5Lm4HAM
4ZxxEgRLz/rRaTkL7OypX3M/QAw/fBtLTkecxqRjxc6uJTI4YjNR9GClDXTS
lROtQtahREss73P0WfhP/qa8vm6C0prdGeOSdlDfOKzteFoZ0RyWL2Sfncep
uye/8qttAzfzVoKZnCMMRnI0rjqpoYBRX/3ZxBnxhRbHPNgBZwMbvRMRLhgo
sbb/N7EHXZv9te6uvARPHh22N846CHu6olj2+GVsNup7zueqBz3+l7veR19B
2o+PK3XiDyF3pGrrqKQ70u4dErqhbQQHC4ss/9PX0Ney1/S5lAlkakYVpZ55
oGKX4cB9ITOEpAnKG8rdQLFz6+Tt3cewVyIx8fs5L3z0MvC4dukEbpRFLfto
chMaGxuNF3yygMo2hbvmEd74MCMeeqz2NOJEDt++s9IXHGaR4klbz8Gj+lGJ
WYEvnC+p5TNf2sLMj8Gx5rgfDmZ1K2lstAfvXxevd9G3UT7Q3aZ96AKuNoZd
HZIMhHTLMqURHlcYB3flvi0OxBJJGb7iX65Q1Jb763v6Dlo2FCzlpV1Eb3ae
i8SzIISz1z9cVH4Zhg/b7fXlQuBQ41Ci0e4OhQNrXoiVh6Cl1Snn0dA1cHM6
DPSfuwf6WY7lxlyeOJU/m/nBJBTLyjdaDGndgMj6UMWjEffxpO5N7mtvb3hz
Z68LXBkG+X6JdU7Ft7FB535AlnMYOq6zcxz18Ue9n9P3jvIwxE+/TjbSDcBa
ToVUxSvhKFqrdOsKLRBlVKJiY30E+s5srdq/6S54/0RslQx+DDaVqoLqTQ/w
ZsvliP09j9HR4BBsn/wAFs7GEy5qUdBtC866JfMQ6cP8+SWDUeDXPhEjLREG
o8GAXfZ7oxGhIn+SY20EIruuab2ZjUXx8lGfh25R2CNunkgzfYqm9BfVN7mf
4Mcx1QXcaU9R1JHJ3hn1BKuH3K3TNsWhYbFdQ+vnaDjZbZNl64zDDoZ4XaPc
UwjapKckbU/A1phxeb4VCThqHp8+9isRQbuyJQSSkjHaYcKTIJaERysy1Qyo
ZNy24D5jrJWEuF9nT68xS0G2tZNYblgSSoN8r/oufgE+x91+HqrPIZXpGyDv
9hKlt9qOLbyeDMmV5aqvL6RB+ZXAQnHul+hQvBWcycxEhWKpZbXSSzy+2MpT
LJoFy8yr726Yv4R4iKq+0KEs3M2lO3e/fAmPBI4b/m+zMFic1vH8UCr48rin
4h9kI7ZJN3PLw1coGWpT9DB+gyVz3id0VqfjF397auzCfETaHbFQ2JeOS0s7
93zUzMfaRgVLAcd0dKjYc0h75UP9RYt1R1E63I/L2z+azEf+i4g3eYoZsJkO
f358pADDxkOFB2oysMOozlOqrxCmKY++XlyaBTP39fK6XsWQNRwZ/ByUg/7H
d7a6DJVAzEtH7Vx8DoyGKncXCJdiWVpcEE9eDkLWl36Q3l2KaW5jRUNmDtZk
RzYcCClFbXHeRdr2N9j8MPr1YuUyXFPynp3se4PQ7UEMUa9y1PALCytq5KEl
LCy2U7ESbjU7EDmej3oDHh0exjeI5gjQ2Nk/YEngR82W4ibkMrWqvu36BIlW
z2M2LzrxyT5mlTkZ1/PAuLHjf7rxV243f9qFcgQszpJWdesDx1TqslWylVg0
oDjqdeI7ts1Z5hq/roJXE9uJHq5hVPmq1JRt+AaDyZucV3THIBn6c+rFSC0C
rUUbWRt/4+cEndakVA8qufb9j64/SPzxrpIvpAGFvyTMr0f/BZ9E8mhvbyOW
pzI0DbZOINjuzdm4tc1w7Poi/fHhJP5ppPbaerWgdPeJnNHvU7ikXJKz/HMr
7EeeSOhyzOCsilTc/S+t6Dkdk5WxcAZHt3kG8da0wqx/9UGRJTPYqaZixdHW
iv4ey8AmoRlwaCbyj4y0YvUrteXKsjO4Z+hrXyrWhgoPibJjOjN46awtdcm1
DTdoPQvOBM6A/rokqE66HftHv+j8x8VC7TDXkPK6dhxdoLC0dBELxQp7D4Yp
tGOaIVJqvISFuJelvEdU2yFmNLfYVpAFq+dldzsPtkNBpaH5vBQL/TFf7g24
tSNWJPsPfScLw8FVD6nqdti0rhe84swC7SvvuEVDO9R2/qESL7JQw3PIpLi1
He/dz1XUXmHhdUC1sE9PO/6LWkWtvs6Cs29NOPdUOzSELb+EB7Iw7lH7SGht
BwLjX14eimdhxr7xyfprHbCzZvdVq2XBZNvJ+4peHUhxM3nQWM/CK/b+2//5
dkDEtLDtfBMLFpETLrtDOrDWaKfgg3YWPpaK7TdM6MD1JbKSRb0s+EudHr9a
2QFJvSDju5MsCDUPH/wi1ok7G56FCa2m4BB/RbNashPVDdd4TaQolDjMqdav
7QSXwufM+zIUrnAKrOlU7ETKY30frnUU2pRUpkY1O7E0ccGOL5spPA26liR6
vhM+1rzPyzUobNyzaPbsu06sLJAwS7SkkPEydV1rcSdUbHc+zbKioCJsYKhb
1omWz4eDimwo7BqITNxY14lNZ0b0Kmwp6N/dcGCsvxMnVGQs3jpTcG07FOku
2IVhHlP/cS8K/zR/f/wh2gXPzVubq7wpeLyK+HlcogucNo8/xftQ8PWiq6vL
dyHV7rnrHn8KEbIufRzqXdj+ZE7uaAiFfJcw5WC7Liiu4ItmPqGg3rH9BOXY
hYlNS2J9Yyh80u7yc7zUBbee7O1rnlKoFJVrM/DqQrHswDazBAqdRXleIuFd
sL7Df/hhCgU2no6q2OIuDH3bmmWXQ0EnQfpcpigNoe793n4VZL6RfHJl4jR8
0b72LqmSglTITG+7NA1X4+L/ffpKYdq9yYpLgYYf+rPO49UU0gwDLY5o0KAl
YODyXz0FIfZfppQtDfU9bZ7S7aS/iS5hQUcazrocLxTooDA0VNkgd5EGnqLf
07PEZa2JhgbXabBZ3XCptouCe8bRQ8/u05AXFXDkcDcF+qlibd0CGqRcs98V
DlCoMk3jtPhAg4hBTqfnIIW3B6I+uZbQ0Kr5aXrHdwoPVC9pRNfQMK3xcFPq
Dwp7+eV3jTJJfzu4ztsNU1BeIDLDOUjDfpkzLgIjFFbPsBesGKZh7bvpi7nE
k/0dqpoTNAh7WF6YGKWQ+v7ef+FL6Fhh6KZo+ptCZI7n7xfL6NgU1yHUR+z7
0i7zvQgdv33yx13+ULCI0No8KEmHiuLdlFvjFAQcJzbsVKGj6PXxZq9/FGat
e78f3kGHzzLD8AniH+Z1KTbqdBzfJnPYYYLk895UuZD9dEhHCmQfnKTgJnFK
pvsEHcvbjNS+T1GwMlAy6zxNx/Vt+/7umyb558N+p+UsHRd2pn6JJ5b7/uxX
tTMdu+vC3+rPUBAUvyxbcZmO8zs5muKIKf195iXX6EibS1s8RtyYM1hc4EuH
7Wj4Oz8WheKB/PE3gXT8MS3cXkWcKhYknxlCx5vgf9X8FIVbNzeFJkfS4eHv
pRFC7Jg9+zkhhg6rwXcSFcTm/d8mYhLo0DQeEGSfpaB00PVU2Cs6pNb91LYl
FvfSengvk47KkBzvR8SLsoTL7+TSUU3pN38m/t3bN+33jo4FHDmaw8Q00TxF
72I6noZ3lQnNkfzWC7DyLKVjeHWZlSrxm+vmEW6VdHg52y4/ShyXsaHS9Rsd
ihUfui8TB/fMUBca6ZhtKC8JJb66vHqLXRsd/6V4fkghttaNPWNDowMV7XVF
xPqeTo9P9dDBlKPPfCNWS9eoPjZIxiPhv5tOLMcUYDcbpqPqYm3ET2IBkR4V
w990JJ7KX/SXmKWTY3twgg4Rb43QGeLBa37ROiw6+PpslOaIf5httI1nYyCQ
S25w3pZjQhySnAz0lfjkUcTNgawn0QtIu9uN2EniA2v6topxM6DbvjxmjLi4
sPrbIx4GFojqZ/cRbzPLtRNZygBXiWx3C/Gr0VjOh/wMJPc8lSsnlgn0j1km
yMCt3vc+2cSRMs6qIcLE8X6T0cR8hUfrlogykH16wteH2Nd0z/nAlQxcbhVd
f454amT9gkXiDOyW/dmrQ+wYIPjUdzUDzIbLb2WJe6VntnNIM2DSWfiMjbjW
pMqBkmWgeCL8Yxr5fvtGchZ6yDPQJqoy7kVc6B8TN7mBgenU5+qHiZMLHBv/
bCYek13VR/JH3OSIo4syA9XLNNNSiR8Mg3tUhQG7W4ZHnIhvSAns+rGDgVD6
hT/DJD/H86eazu1ioODJ3b4UYntjplOfOgMbD5SNWhKb3s5+xtBioOrrq4Nf
SL4rDJkuaTnEQOHE3fWXSL28NTn44Y4BA7Scx/38xFpFmhfVjRlYWBWxPYXU
27GQzR1JRxlofPLqSQ2px0ClxamXrBl49fCE5W9Sv8KP5yzkzzLA0c5V7koc
x/5PsNOWgdj2XZ9H/5L31zOvaTkywHM815NO9oP+S4V6gu4M8Jna/gsn+4dr
V9ZsqQcDswZreGd+kfrc+yLL/QYDRt1b3p4gFhaNEOv2YUCuKrdBZIyML9/p
R3oIWa9fHqtOkf0sjpK5cyiRAf2wYm59sj8qnF2pzp7MwOuCrPue/RTyavh/
57wg748Yy0ruo1DzlGUuns6A1WT3+z89pL89zet/5jMg017EZs0g870dWBHw
jYErTeaHY1vJeEe8ru+qZ6DZz84pooWCy5ErW8YaSb79NdoQ1EwhQN768ZF2
Er/svIt9I4Xcyl12cn0MKPO26bLVkvOAf4y7ZJr0d5WmH1hGob7ojr8uxUCK
hl+IZSn5vg6yC7/NMXCjiOpQKSH7VeUxznaubmQ8Fo1v/EjsV0qN8nWDW/x3
61ghhWUzUb9XremG3uE6+egsCrwDezsvHuiGuAR72gdyPlaFM45NHeoG08J0
4Y4oUv/aHm03DLrxZcvvi+mRFJYkZDQHmhKv+x38MJwCz8lVdU9Pkf7cowu3
36PA3TBW+vViN6a/R+6fIOc114cn6Wuiu6EmerF93xkK7bu099NjuxHtsOau
mjWF9IIhRlQ8GZ+cWseG02T9cncLCiZ3Y1v2sgPsJylkptEvsWV1o5f7vY+f
CTkfoteodZV3w3JwOu2nJskP99SSCHIvzuX+L22LBIWQCeOTRv+6IXPO6m6+
GNmfLrP+Lp3qRmtsvYj6ClKvLofW+c12Y+3EDundQhTO2I4GXlzMRI1MkqLQ
YrJeR/47bCDJhFrXv0DJcRbOq7xrW3yAieah2QeF5eQ+Wdv06u0hJgSfOvUM
lLAgcmHM65wBE4nPGhcv+8TChyRZuVJTJjprXdrNCsn9SzTU9aYlE46tDZHv
M1h4N2WzZOIyE8JJw9P/IllY8oFvd28cE61FgpN851hI1bWKe/+PiSrZVXXT
UzNQUZBWxxQTJjMVi2L/zeA9H6PjwwwT2kW90ep/ZlDbcFL0I1sPBAPP97oN
zWD8pHnIZ54e8PxRmaikzUDd1cDzy+oehAY2x/35ROKj1I/W7+vBskcjn43I
/fnvT7Fl/RE9cGZJZ5zjm8EbYx3OMO1eaKw9F0t1T8Frv9/TnP5eHE1VmjRM
mIR0l17rM78+TP6S87HRmYCaqm/YSuV+DArYcF5L+4sTq79NsTf0Y2jLHv5R
oXH8rbzLdPYegIFqcHUTfiOSy+KS0dpBZOw4GXzXfQxCtDcJHCWDMBDV3HvI
ehgLrnub7HD5DqktCl92eH4H2wuLdKbgDzB0zr2a6uiDa1T6XcFPPxB3pWOY
l5OJoo0B3AKOP3Hz785D3OSeKaDnqnCLbwgad8SM8+ya0bmptsG9cAg3fd45
q6+qRUYs1vZaDIOthtrP1lKKP9f+LDp9mnhPCu18Zim2HUn+2UXGcTOhbmws
qBTv+PmzW2xJu5NYg86eUpTdpO356kp8/X7QhrQSdFhdP5V1m8RTQXkNgZ+x
cN27qJuvSXv0Ru6tRz5Cl9PpBpVBfHpxwB+Vjwimy1hdyyaWf1JTLfgRApF3
1l96SzzKMd1UUwzxxcfenvtE3heQX7dtfzGUf0426TeT9ta56PCb73EyfZuA
xCxx2M7J68EFyD02yVfLNgK2lo0LOfUKwLewgNeHkzitfq5mUQGKT+zm/s5N
fHHObZdvPmR4tOdyhIg3slW63nyLfhvD4YPriQvv+7rdzoWjmEOFpwmxm12R
amUWyko3lW8+QnxVrWIyNAuSLqMlTHPif2cZC49mobbctXj/KeJN2yd4BjKh
fNk9T9ie2Chk61vuTEx8u530yot4hYdw0pvXuOkX7935knihln7llRQsdVuk
dzqNWN5kInp1CqJsLwj2pxMHf85gK09G9oEdz0ZziPkyYj1XJqNfoK6E4wOx
gqfT4dIkHIhl417fQKyuZP5i+zO03jtbm9ZErNn/Lft7Amy8qyKVW4lVNvuZ
PEnADZvI9bu6iBX/TZqzJSBjg9KBwwPE2i1yN+risDzvVMjlGWLbe6++S8Xg
WUqp2TRF7CBYKxwRDaWojZJebKNgO+j8/QpvNHSvT6QHLCAO+/KUyYqCp9a9
uif8xI0O9+yHIsH89l7405r5+AsetQvD4fRxbdc+OWKF+yoF98LAyrqT9FWe
uDf0at/KMIhEmG1r2kRsoqnHqfwQ+0+MHBlUJRa/VODoch9pgxJP+A4Sx2nm
qhwPRkCMnyVNn5ihxFjmFQQbo2HZ14bEGqew/vkdiBcWZhw6Qtx6fMXy2QDc
uXe8LNiK+ItConCTH85qfw46cYZYnrdvoZAfNKc2GCrYErO1mmub+GLKarrj
64V5C5xJYdyC7bbHv3jciVO03+tK34T2T7a8do/5/goywv7cgGScrefLG/Ne
ekUv9TqaF29fpOdLnFHRxFT0wN6uZvHAe8TLaDNK/lcg9UCdefQB8djDMg3H
y2Dte54sH07snOS25sQl5GRcVv4SNT8/nxLng66Q8RXev+j5/Pwv2m+cc8Ds
ds+lLSnz7cI5+jvPo224p/55KrHlpyoTPzuEHsk+uS9zPt5robzWWTjwrlqz
PIf4ZuxVrjwb7P94a7Avdz5+4DhzuzXmNhhd9Cskltq87uNZS7TT87ebfpif
j2tzgqwFcsOkZ9d+mn9+YSZn1HE4zo4FlJTPr4/g0OcWM+hlH9UPq5yPfySm
GW8CWdtiIZvq+fh3qur+RuisuxfL2TAff2ysw/AQ3t6esG5omveCuZsVugjb
eWr9s9Z5L/KIubYPzmNlI64d889LmRmc0cKBJMUcTdp8+0P/t4EakDsW4S7Y
PW/VFT++7QQH/6w6s2feo1912VRB+3yGK6t/3sU7ahKVUXC1usL7+7y3Tdp7
bELEpq33DIf+/72dPSLk4MKMNpEenbeaut4TKRx8xCX269e8NV4nC4tC/qAD
vXh83vuljUOXgou9MTF0Yt5S9XKJbGC82WlvOf1/6/yNGlYvtH+2WYmaN1t6
TFy1+iPJJX/n5v5v8uPe/T9LFCE5
           "]]},
         Annotation[#, "Charting`Private`Tag$1864#2"]& ]}, {}, {}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{True, True},
      AxesLabel->{None, None},
      AxesOrigin->{0, 0},
      DisplayFunction->Identity,
      Frame->{{False, False}, {False, False}},
      FrameLabel->{{None, None}, {None, None}},
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImagePadding->All,
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
        AbsolutePointSize[6], "ScalingFunctions" -> None, 
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
             Part[#, 1]], 
            (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
             Part[#, 1]], 
            (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
             Part[#, 2]]}& )}},
      PlotLabel->FormBox[
       "\"\\!\\(\\*SubscriptBox[\\(h\\), \\(00\\)]\\) and \
\\!\\(\\*SubscriptBox[\\(h\\), \\(01\\)]\\)\"", TraditionalForm],
      PlotRange->{{0, 1}, {-1.8749999111462634`, 1.8749999111462634`}},
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}], {189., -119.58957682310464}, 
     ImageScaled[{0.5, 0.5}], {360., 222.4922359499621}], InsetBox[
     GraphicsBox[{{{}, {}, 
        TagBox[
         {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
          Opacity[1.], LineBox[CompressedData["
1:eJwd2Wk4VV8XAHAZQmVWIUWmTElC/RssoYjIPGVOQpOxkVBIQpIkSQoNIvNM
mwopc2S67j13IJmukqQM777v+XKf37PP2WetvfZZ+8Pd6nHe8iQ7Gxvb/VVs
bKxf45NjXfXfbXRqV1gXEzj1Jfwo4ppgE+gWuIi960lqeom4AdxaU9PxA5sh
KRdxUcEM3p7gESOwTdr6ih+LW8ORfN1jzdhycZtzVqQc4FzO8UsvsBeNTzxw
V3AB5zTzlHDs8cieD+4p7qDpuyHPEtvOc74uSdwTVq5n1W7G/qAvUfE+3Quq
aFOfqMtMUJc9UPhLygdMNk4MZGCns7u9ks86DTE6iZPW2Dy0689sFc6B1upu
Lk7saqK77b21H3DkZSvmLTHBz9zT2CnFH5KW/tmZYg/vuKkfLx4EwrlcY1cW
mZD8RKxe/ngwjJ1/bMaNbSyQu/9t+gU4XBHZFvePCeXTrVpMqctwv4Nb+sZf
JpxxcSm+6X4F+mOjFmYXmCDTzlSTzroKhukb5p2xE/KFFS0UrsGNxp2+m/8w
4dDm7Ozvp8JAyDBtJGCeCdea0gQbrMPB5Gd3YsNvJmhqq8Y7pERA2Mcz143n
mJC5/lh0rHgk/GbXkFv7kwlX2x58sK2OhFB/fj/lH0ywjSLYZY9HgVG+FIf+
DBPWzfmH1aRHg2J87Bq3aSZc6km+NCl1C1TOCswcGWeCVdxweWX9LUjslWne
9Z0JagYKc5HusWCYW7K4YQzXs6TCf3PWbaClfE9oGWGCxb1BXzOFBOCc7Mqk
EExQNZF9JdGcAJ+1V2qTKXi9Oc58Gz11B07HfDXTJzPBtWq5CFknwob9QpS4
ISasV0pUs0+5C8EG4ezdvUyI4CnZdks8GVLEpAcVWpigbHg3ptgvGUzUJgaP
NTOhO+r896HmZHh6bq+HfyPePxyqr9Uu3Ie7zn+FMxqY0LSUrdbTnQItj2Y8
MqpwvrMpWlJxD8FyGMYPvGRC2c7gFCP6Q+hYG8H9I4cJLn5W8/570+DlH6uR
9CwmFEwJVH0YS4N1Rpt/kDOYYDkWs9/3UDoMXZF6s+4+E1KHr+iXLWdApOwv
mlA4Ew5KOmSTbZ5AbMq/SstQvF8dd3Px5D+B6jjuW3FXmLBl8vKJ/O2ZcONW
kPxEEBPO+2jLs5EyYehBcIm1DxOEPQte5ux5BrRXb3RJ5kywd3haMPMjG3Yc
Fh7plWACc8h6zTOJHDjvoCl2ZSMTol14Tlrp58BSnXyCmCgTSk6clyhPzoH5
5D5TAz4m8J87EHV193M4FsB1xm5lGhqvDziuDn0BcPtixjnaNGjkCa2W5MkF
mgXbo6DsaWhRa3RrU88Fwx1ez7wyp8Gt6FLNNYdcCCC9P2yVPg3x5RQ/am4u
VHyP85dMnoax+vyh56av4eaE4eNzN6Yho/dI0c57eTByxK9G1H0a1q5EOBlu
KYAfQWTfq2LTkOpj56J6uAD23L2/hSwyDXI9qm5C5wqgRTJ/YZ/ANOi86jsx
VFcASUWG6t+5pqHqVUpZhVohXLaX+MY7OwVTVpO1Ju2FELnZtMqrdQpsXj74
HMhXDJw2Dp+eXJ0CeYvpsfe3S4HCR+F73DoJEmGGe089LYX7j1XeuDVNgmB+
5u01FaUwKFliL1U/CX95rNQsaKXwbueagfiSSeisrwgk7ymD13WD5B1pk3BF
PWL5z0gZaNdtq4v1moR2AVFRNd0K2PknJ6Xo3wRcbP8PUn9VgbTvTzc/sQnY
WCpEXrUKAXduusNZg+9QTtNv7dj/Dl50y1luFf4G73wfb3KY/ACU1cHBWnUM
mFM4IJB/thlq73E9ivKnAfvCa8FN8p9g3d7xT0KVFNBecSu3etMKQoFbleaa
B6E1UrO9SbkDnKoW/ebpvSCVOLHwaroT2v+l8/qmdMLEPIXcq94NIlYn+kJO
NEP2eM0n/oQvIMYe17bIUQ38m18wGYweCFdp8WSoPoQ4nzKvTLmvQJKa8jEs
eo5+675meIf1Qeq7mH96YXUoSOND6Yb3/ZB56wKXZlETorz5cLtr6yB4xMQ/
/vCyHf3z7XmkdGUI0hpPrOjTu5HKQe5lrxoSCN+TXUDkXmT4bOupoo1kKGwa
1wis6EeaqfwKTZJkyCyVGzNp6EfSCf8Yg1vJYGQt3Ljlcz/6e7nXg1OVDJF5
8rPF5H6Ub3HLxU6XDBc2qay7zzWARFb9sFnyJgMjNzsZLAcQxbXe4Eg1GczV
lg8rfRtAFze7ylCdKNA6FnVedWUQeZir25LcKaChMfzblXsImd1YFdvnRQFa
RUp1vMAQUvie9aPND49/tZ7rkxpCPaVj9dWRFKg0UVHZpjuE1I8GuCbnUSC1
9oJmYdgQGrsSlW64SAHJgNTPPn+H0LitivdTNgKetbXxMFaRkNuMCLsUBwEB
s3LB9rwkZCI7oiXBQ4CjVsvADjESkrl187GgMAGconwtqVok1GndemZJnoCx
UM9Zy/MkpDpps7bPlIDMmmY9LzIJVVofRbHmBEiWqghXjpCQfp1eoI4VAaV2
uUvsUyTkmLBjKMeeAEHH/G2R/0joljrv66ATBPT/4UC7xIbRaFCtsfBlAoIa
UisNzYdR5pJMrGk2AU5BXOwHa4aRqpe4zqoXBByNZXwqaxhGFe0CP0tfEVCb
0fxC9uMwan+y6CBZQIC150j6eM8wWjr4VWmiigBPj+7z8tPDyDH6VktMBwEh
dGqKmRQZiQjM8Hz4SwDjcafEuRAy6q6LvXlkiQDdA6INORFklHRGfnXHCgH7
tQ8490WTkfAnR45BTioQbAoXFe9iRzUuMfmpYG7Yo349h4wE/6X93CRLBVHp
1GqRNjJa9+0QKdCECjzy7GYFGymo9T7huGBKhdLu62XykhQUZ3B14Jo5FcKz
O0VSpClo7bPCr7dsqNC5Q7XMU4mC1jhv6nriSoXMlbD4qr0UxPNlpvFzIBWC
vM7mHXSiIE70qEA2nQoG5g8SW9MoaHC/gRElgwqp0kJOXRkUVFA9SaQ9xfPl
Vq3veEZBjuUHhIVfUOHon1TrslwKKsqnBLEVU6HSg869vZqCXNJl9w43UyFR
z+BGSx8FaUq0dqd+ooLqFT9L5yEK4k0NOm3dRgUn5C46Tqag0nuN6Z+7cfwT
dP/pERz/7VMrVcNU+FhHTn82S0GVl19/SJmlwoas/yJIqwmUMG/lbPmbChK8
v0TO8RDoRPDiHN8CFeoX/8gs8hKI3990W9QyFX6xFZfz8RHopDfzViAvDbYs
vKleLUIgYbtdx8ylaKCnY3LSfAuBxnqGvq2VoYFyn97XV1IEqrOMDG+Wo0E1
lbd5RZpA3ma9RTrKNBCbX1R8Kkugt4cuim7XosH0Vvu5KkUCndasGeA1oUG5
/NSYvgaB6jt78ypN8XymvbvcdhFo/dmZsFPmNGi1mZW5rEkglCOv0GhDg+Qr
lOlMbQKJbEwMCHejwSj7ksHHvfh9JbmHdpyggYbi+qqWfTieY41i5JM0uDSU
8KV5P4FOxfx9u+80DYik5sUqHQLVLHiunQ+mAaPcUvGCHoEEU8LIOZdo4Nlw
sc9JH+evkVZkfZUGaUFmO3QNCCRwusOuOJwG9iX6g4uH8PqR/ss+e5sGmZFd
8mZHCLQW8R9gZNLw/rk0YH6MQG7HlQTvZdGA8+rQHnZzApXN69MPPqdByvTS
oUJsV/XLt568psFkWp8vuyWBSp7Sex3LaaC75DZ2zZpAPDrLL3mr8HpE7kfr
bQjkPCgWUllDA5fU5MOvsLlFzGQ2NNDAb0LWu8mWQMcjK891faZBUHED24A9
gQqlvxwMb6fBjGT4SRsHAnHVTYnu6KJB9Lf00HbsgjmZmrivNPhje7al3JFA
nEkHEvYN0ED1ELEkf5xADmr27uND2Arq3+5ic5yK5zai0uDX/YkBVycC2XO8
HPxNp8HYPwlGA3b+k3f5OaM0+MBekC3tTCC7/nkrjkkaeDGSjHuwXx/xyHz7
mwYG5000RV0JpKm6VQcWaOA0m6pnh/2WnxhC/3B9rwdffIDd+cV5YwMbHST2
brcVcMPxlEuWHeSgg6hGMZshNi11yPIdFx2ie8S/XMX+5eyQ8H4NHWSCv8+Q
sEN1xVQN+OhgWba8n9edQKtl+1o+CNChX9aiWAM7kSvl1CFhOlwL3mPhgC0+
Zs3VJEoHtbZ1EqHYzz6JZB3eSAfVWgW+DGzV/G7dZnE6yOlRlGuxy+7cJRtK
4vla7wT2YesEmId83EIHvz1J35jYzdYCEke20sGpQ/cmlweBzHe3V7TI0sHe
+LelGPaAeLyNsQIdrDv5TBSxPRZNZj8p0iH7N+28FvYEec1dExU6MOq7GgA7
qKFFrXU7HQYztQ8aYi9nxbQeVafDuwvnpk2wb0Yb+rZp0OFn4tcWU2xBn9U8
Zlp0MMhr/XIUO82kMad9Nx0yZ9+sO4Itqxapf2wvHbzZSEF62HmC+tSO/XQQ
Gyxe9x+21uyqMHOgw/PfST2q2G976yW7DtJBYS+pdTO2YWVYtYUBHQTnp+fW
Ynem6dh3H6aD9LSK+TzO3yF0ac7yCB08zX4NUbBprrX3vpjg9St79bAR+7Te
1Z3WZnT4s/3NrZfYv+T2dvSY06FawzMvBjuUe+GMjRUdUl+rsXux6jdesear
DR04mX63dVn1KtA63OdIB8J28r8pXO9nd3/R7ZxxfsemXRG2alBJRL8rds1C
dQK2zn876wY86aBu9V5IHrt504yj4ymcf6Mp/yTeb+bLb/4M+tBBcc+Vg4XY
Hu9VNUnncD18bE3VsSdyJrqc/HE9qb0Kky64HjG554cDcX6fU/bkYN80VXxN
vkSHj/IRqwWwBdW/GblepYNRQ+h7hPd/mvDzUUoojkfeo/osdl6frAz1Oh3C
neLtWN+PVjUNuUfRIa41d9kL+236U2faTTpc0nWm8mJ3uks9pMfheqruOm6I
v8e5CQnB0RS8foupqk/x95z8+Ftz+kM6HD2xZfM27F3HSsOs0umwJzS18xXu
B/7Fpsz6p/h5lefXc+wINHUpvP1RHs7fd0zmAu4nccqm0ZYFeD33de6l4f6j
QhLX4S2mQ+2ShoQJtg+U5F+ooIP5+4qdIlYEGuEajbN4R4egZs6eENzPIiuK
DXga8X72WL2nA/c/WZ+wxbfNdHh5dIf3Fmz3VrEzqm100Lxrv6PElEDDSSYm
3P10iHnf41NuTKBeqSLeuik6nHnYvFEO99ugrtCGwBk61G/7Fq2P+7HIDePL
yrN0kFRe+OyK+7XFKH3swR+8P9RCBhN0CdSWt+FjAAcDQgR6JVj9vvG/kGhF
cQb4XQytysTnh+eEkQ5lEwOy9Ud64vH5wvF4/e/7WxggtjOr8yI+fw6yFZzk
kGNAp1bHaT11fH40UQ3IagwIf9OiX6yCv3crQ45kAwa4bTYRWdpKoBiTyihJ
QwbkrY3WbMfnnZO+Ek/OEQYEKV94no7PQ/Zda/nKzRjw5+G7azs3E8hMuGND
vz0DPi4cENonhs/PTltlybMMYLvzUbcdn7cSZl4W2fex2y/9+jFFQVOH+r6o
pjIgVS6hYHycguoPGNmWpeH3X7irQf5GQV7blY83PWHAjNT5+2VUCipZN+05
9grHj0R/yvdS0NHPwZdU3+L5FgMU+GsoKMwo6knpKLaayXOuGxTU7eLtpP4d
55+wyv9MGAXJBZuI500woFByj1v7VQr69FToXtYMft9P66IbQRQk+u9xdNJf
BiiGNumVnqSgl/nlZ/34R8CbU+CImiEFdQqP7VPVHoHUHgP9O6spSEbp858X
e0agMz1L3ZmdgoLhTZnsvhEIb7h3VmGZjCTOBO3YpDsClfrvhnLnyMizkU12
jTEen6orvMogoz8XxdeMOY/AR/KmqzoNZLR12Lg/K2oE6ilFeZYXySj23b4C
m5gRkNbS3y4fQEY/X6hGc98eAfv9O1x/niGjdwH8mqcTRyBx+SM5xAPPz9N9
R+PRCBTelLphaUpGL3c5GDYUjoBgLPd6dhkyUos9VU4eGgGxLXy64c3DaO/u
yGRxjVEo/HI66TTHMPrqIa79WHMUiHHKd+8lEgpMeNMnvXsUPubfWO8xT0J5
I/0SivtHofNU7IzhBAltSd7+VPvwKHgrbRyjdpMQ+4+v+VaOo/DysGyQ+VMS
+pyr1Bx/HT9f9XFEbh8JOW3pWFj1ZRRixgZ01p8YQnOf4ml+Ed9Al7dwXNl5
AKVyugRZyo0BkX5M096gD4mQy56xfxiDxAvpPu18vYgrNML6P//vkLmlfCt/
dDdie+VSQBMeh/DZr2q2GzpRQFpBvPC7cdCt2i1m1f8J1anE8Aidm4D6J9c1
pgsakZBxgOp1/kmor1WrvSvQgEjbO79crp2EcM5f62w/VKLCDJBjuEwBm91s
hN1MIZq9Msvt7j4F4Xr+ZfVfCpG23YuJ4RPYt3uf7qsoRDUCAiV93tianGNe
1wpRUzj54OcA7MRHS8l8hWjII9S1OBrPV/tgosblDVq9rSYt/A02LXKjBvtr
dITj/LWlQuysyp6StlwUR5HxuFKCHY72OT/MRUKpsUpBldiRaxK37cxFkryO
lafeYT/3FczweIU0Jv70mn3FXicSqt72AjkXaAttXsa2jG0jNWSjcsc//J1s
08CWfiYkOSEb8a+uXneDA9t7aS7seDaqdzrA850H+6DC4s+5LCSzxmClVAT7
dcQ+s+1ZaNTTYuqoEjbhQWJ7/hSdkzjTEmKNrX0zQiHiMWpq3N68w45li2O7
FR8jKX/mB5oDdl4TV01HOupsDqg3csWWZEuXlE5HGsGXK0R9sQu/hlg2paH5
juicvDDsprSmAcVUFB71NIKUi10ZyE4Y3UN8F7mN3fOx3RKHpjjuoTTvs8Kj
Baz5kgZ9UBIqMfkvi1mKLaYbkr87CY0KdX1gR9i0AwWnt99FJhlsPEpfWPn3
ivA7JaD+O16d+b3Y4WpB2kQ88oxoTdXox85erjU4GY+ueaYq7R/GNuIPXB8Q
hwqV1U2OfcMmuXimpsSiDRWuCcH/sA10rPPW3kRZLxtt/y6xxutXhWREI/U0
FakwNiawpZaY79OIRkdC5wtiuLDZVh+67RSFQvTvdD0SwHayy4uovYFoHW9F
38lihxj/tcgNR+cb5IYPK2Bn1tmfPBqOFotjcz4rYqt/Ps4gh6H1Kbbavdux
BblPz/ldQ0ZO03Zju7H9vksX5V1F+WObH/EfxR6jrM25cQHFPI5yI5thVwYJ
xfYGI0/LKfk3FtjS8c1zSsFIsra20NSOFV/bXu/BQBR753hTnAc24c497uCP
vAze33Y6iR0Taa9V74f0FpQtVL2xw6XN1iv5oQWPv0Ofz7Ica6bJdQ55az/8
seYytvnSsa5XPshggq1i8Cp2YaSHaKY3ksr0Dsm9hl0/2JX+6BT6yruH2ziS
le/k8O1nJ9Gh4a+St+6w4hsPODTjjqSTdGj2SdgzTmobhNzR4uHnLxTvY3f6
RhvtdkOlhcEaH9Ow3e4F1G9zRjKRokbcz1nx6264JmmHlveE8PW9xNa1FWAr
s0EDU/Tu569Z+UqKX7O3Rol2Jc6Hi1jjsYzYegt0Zt0m2Q2lrPHbk9uizJFR
w/WxkXKWB2VrXpmhFWXLwKhaVvw6T11UjNEgpWqPDWI55kIJnxEqT966LPeO
tR7fPgesPozOLc/EfGhmPe/j6LtPDxmX2Jslf2K9b/tRdFEXyXvXi3i2se6/
5+J3/wAidd3J4PjCun+lKMNnN6qMnj/xpZflUyTRVE2UvM9VKaufdT9D9vCv
nchvpmk6YIg1fr8lY1ENmeSoleqRWR5e9eiMMlJwTLksTGVZB1XvUUDsAss6
NDrLx4d2u8sg8vuTnMWjLKcEp7ZuRtWX2loivrNsnHYicSNK2a51x2KS5Rnx
Q/zCyJ+Wbr2VybL1inv8GnT0AafEjx8sCw5oB7EjxaNnKPW/WI5xoWXNv+Vc
1ZOdOM9y4fnRx+NvibJ9vm5/WWZTbM7ve1vrm7VDfYnl8PiV4oq3D6TWzrH+
N2H7/zVT+z9RrCJ4
           "]]},
         Annotation[#, "Charting`Private`Tag$1905#1"]& ], 
        TagBox[
         {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
          Opacity[1.], LineBox[CompressedData["
1:eJwV1nk4VV0XAHBTJcnUhJTZGyHJkAZLkcyRuQFRKklIpRAVIqEkJFNIqJB5
bEuGBsrsTu49mSLuPSplqPj2d/+5z+/ZZ++19jrr7HNk3S8cPsXDxcUVyc3F
9f9/s1PjXY0T9vpvFv51ad38Xc9nKOnLktCC4DgPeRV26esdmSlpZRJGcO6y
Y5/rRPfrESmFG1eUrOCygV1I5P7R1+YdA6XpEnbAaPP9c3Dox2uFu5ueLkk7
Q3npNCER/O/1XzOP5BNKLrB6co9Ppc4y9C28t/lE0gk4kFkafY0miBxPzjYk
SJyEKcOWaudeMdRsKFn1Ns0TxGT3Vh/v3IA05PeWzEifhbg/6Zd/u21CaTxu
BYo556A7KSd1vEkW8Q/dzHZQ8oFXWzueWEorolqiu+OtnS+YFYcshbVsQb7W
J82OJfnBJd0zZ50rVNHgttuGsRIBcP8lU62wWhMlZoo3Kh69BC7jpnoJm7WR
mXDhntdpl+HW0l7nhXxdVMlp1yalr8IgozRmTmUv8nZxKb194hoMrK5q1BQ1
QHKfSHWZnCBYmbhGmStzH4p7KbbFRuk6OLFbqyunjdCBTbm5E6dDIW5/g2tM
uTG63poq8sYuDBpu+v20vGOCtHRUY52TboDc+MOfF89ZoKx1hyLvSIQDJOmk
J9w4jII6kpsdasNhnHCMf1poixwiCB75oxGQ9HvTk0iGHRL85RdalxYJuTLM
dxlHHFFgb2LglHQ06JVtYqWgY8j27mBldWM0aD3ecT1O3QWpGyn9Cj9xB0Z3
7c1QznNFI2VVfptyYuDA6C7RDMcTyOYBzctKKQ4omS1H5BJPIlVz+QLJtjgo
DVl/Zur8KcTP6/117HQ8WOnF8vwy90SuNYuvkN092Jr7oKNq7Rm0TvmeulPS
fXCo23i0gXIO3eAv+y9aIhEENpi4mK/1RyoH70eV+iaCqWzq1fQif9QdcWGC
3pYIqsYPvR3MLyIFXtXn6pcfAlM0/sbvmADU+i9Xvbc7CeRLqkXeKl9Bgj+T
tKXvPoLIQOlVqv3BqGL7pSST4Udgrav3Qy0pBLn42s767UqF0zXbAkKcrqNi
tnBN83gq3F2/jm9pOBQdHo/a43UgDb5Jb9uvEXMDpQxeM6xYzIAYoa/NmT/D
0T4p51ymfSYo8+jRik9FoG9HdJfxv8yEhVHjAzRKBNo8ddXjpVoW2AXM8AY1
RaILZ3UUuRhZ4FCVGdqfHYXEThbnP92ZDdvYwZ9Nku8iJ+cnxdPfc2FRv3iQ
mZuASLqdQLbkU+B3ZQcNTySgSBf+U7aGT6E9O+K207YHqMzjgmRl4lNwqPzz
PKHuARLy2RsRpJsHq19U3denJqKWm9Qjy0OegVhqqL6GcjLSfCG6XIq/EJ7N
iiU4S6ShVUs3jh3cXAxTPo+XzSTmoJSzji6qxsVwVl30/Mm3OUihV9VN1KcY
bHTyMrl/5CD9ggEPekMxSHR+pLw5lItqCpIqqtRLwDG467X96qeIbTtVb/6p
BIqCA+Je3MtD9vnJHy+uLoU07d3GslUFSNGGM/42phyaslfTPuwtQVc+6UHK
TA2k/3j2MPlWNdpQLsrk5kagUftr0uNBI6ocMmz/vKcJqAt3/1k+bkFNXukb
naeaYc1+h5QDTR/QL6W9wi/Pt4HoJeaPH9mfEc/8c5GNih9Ait+kQNSvG+ks
uVXaFrWDyGb5L3Vdvag9XOtTq8pnSEvlCv28cgBJ35ucL+B0wo/oBefjxlQ0
Octi9ml0w03TGc+zynRUeTq+yUynGxSOuhhv2k5HYQP6eWh3N0St8KS176Sj
9VXp5wuMu2Gj9OQ6aRM62n/56N/gY93A+XMkId6TjlJn+iUUorqBp+DAiYxs
OjL53mHnz+qGK7t6Uk9sYKDcb3UfhOJ6ILCNljzzg4F8kg/Jez3ogabKl1Ye
8wykazQc1JLSA+7PFs06lhjoQ7qAWnBOD8z7nF/1QHAQfbd2jp+o7gEjSZ4L
o4qDSL/qt23zcA+colOJHMdBRL21ffCqXi+Mz2kUBFYNomyNFu0+/V4IP2D8
3bxhEHkPOsVpGPVCalDKbsm3g4hLNwy+WvXCN6OBT88+DSKlb5+e2J3shTA+
3arI0UEUYO3tuS2+F34wFj7ZiDGR0KZn5MhIL4jBZxvhM0xk4HBrcHiiF3wC
9GpGvZnIP9714xCnF5pkKQlVfkzUzy3+jJjrBcUnD5Isg5goYyzKhSHYBzOG
ThX745hIvcSro0erD/y04v8dKmMiS0P1503hfeD40t5map6JrgcLPHoT3Qeq
u23F1ReZqKRiLLIxrg/iH6vKneNhobVbMt1fp/RBu/CbuX4BFmIIikjWvuiD
fdbN0Zc2spB3//eoV7190Lsmk6tjNwvdPVvhmaXQD81do4/ogSz0zeBl1CqV
fsivMv3VFcxCB8WfFl7e1g9aEa3RTWEsxNOWyLHY1Q8le2wdE6JY6KpCwOX5
Q/3wWP23/VQyC3myNCMPB/WDxCq1C1EVLNRcqZLfENYPjGqhh7I1LCQXJ/dh
S2Q/SOmUU8vrWWhwj5jQ0r1+KG1jVr9/y0J2qd8fPs/rB4di7uwXXSy0z77k
KV839nZGg/0UC2Wo5rddGOgHNt9H0XskC/3lzZqgMfD8NMdzzT9YqLo0Xu3V
135o5FNR3jjPQuoiFyqO/8P51d453MhDIKmPai2VWwYgOClI6aEQgX4bPB85
EzoAuh4HV87KE6g+d/LxlfABWE6XUNqsSKCb/Kq2kdED8HjP/IP9SgQS6nzx
JufBANQmZrjd2kIgJdeiDOazAZDIo78cUSWQQ8grJ7vOAWgXc05T1MbxvnwX
9ugbgIqbHrdldQg0ZKTZ5kcbgC2ORbWSugTyESzTjh8ZgGstX2b59AgU+bhc
7MPcABQt/9JQvYdAFTVV7SBLgY6pZp50QwJd2zR3y0qJAg630zXPGxHI4MbO
3ce3UmAlz/HsXQcI1G5SU3BNmwKTZDR0GBNoZKA2ssKUAv/2Rrp3mRKocPef
vc1WFNhwIORWjBmBfDN3/+q2pUDIHWdivzmB/nrWe0wfp4BB1HvzAgsCrf3d
YLDVnwLdYf10u0MEojkvzupdoYBxpOGnOeysBv1ik2AKHB8vmXtkTSDVCLTJ
M5IC+bTsnz02BDJa+2YhK5UC6abJAUp2BBII5C4tzqTAFFElUY7dSd939nUu
BXzKRH7q2xPoWE7TAL2IAkdvxhtYOBAoQLO5fP1bCnjvoukdcCKQp5ZM1v13
eD9lomat2E46wTGCnyhg5XVrtZEzgXbv0nLnoVKApvbxufYRnM+ee5YhTAo0
JYdEFGBv1p/aOTdMgcZZORHJowTi2Z8rzOFQwEJ+uc537BlDrj9nZihAgGKn
4zECjR44NjY8T4HbM/PiddjvTNc2UPmoIJkSW37lOIHibcK9WiSpYJnIw/fe
hUBhtoS9gQwVhr/68K1zJZC//Z59dYpUSOraUXwc28F5ZsMrDSrEF+Zyj2Kb
HLXmVdWhArXNIF/ejUB6x19w8nZTQX9g3awLttSJky1pxlQwmbOJ+Ygt5NFY
ssGCCsaqRZ//YnOdkkpLsKGCQLJarcoJAv3wDLy92hHn52BhZo89fKbXP+oY
FW4o3g4Nxu710nDhdafCkOtR5yzsVu+7ptdPU8Ft0XigEbvaZ1xr3psK+Snv
5gaxC32NZAL8qfD3pGvDLHaaf9Yq8goVxHfGKAi5Eyg24O/vsyFUsI5oV5PF
vn7ZaWjkJhUiXHIpGti+geUdrlFU2BCQqLAX2/2aSA0tlgoza6VFjbHtgr1z
7R9QIUO9Ld0c2/j6u/jOFCqssxT5YImtG6YQZJ5BhanU6w8tsLfcDPNszcH1
+ZK0dBBbMpxhs6+ACiW3mSsMsAUjd+6tL6JCQCL9pRb24u3ELbrlVDB4sfa7
IvZ09PSa0hoquIqJdq3B/hJjsaSKqJCT72S5iPfXHZv/7VkzFU6SF0+NYjfH
8/XLfaBC5LIp8ffYlffd3qR/pkJwvtnpAuz8B/UvxPvw+lqS1pHYqQ/FUx7Q
qHAkZ7TbFTsmOeCWEEEFStxOUhs7+FGnT/QoFRzUM3P5sX0eqx7hm6TCH8e8
HwP4fh7OHNFY+EUFnrp2B29soycGUpf+UMGrht97O7Z2TtqKaS4azH7cLP4T
94/4Mzvm6CoahN2W2OGNLVBQ8t5NlAb9E9JP5LH/FgpW0NfTgLvHMHcA9yer
qDmmS5YGgcHqZ7SxO9l8U5r/0WBM6vcbAvdzo+oBi0RVGpi9/vgpCjursEXQ
UZcGXkKCXJ9x/7vntcYyLGjQe4pTsQM/L4dHl3P2HqZBa9S29Gb8fBkqHLTK
dKSBd5WH1mFshew2IXd3GnC9kPPzwM/nWPq7+K9XaNDtFC3h4kigfgb/tEkI
Dcp3si/14ue9baOpdeFNGjzhsQo9iJ3/6L3I+VgaPNdMSpbH54PXww/3f2TT
INjKurfsMIHYd9sf/OugwbEt7zW0LAnE/Cg449JDg7yn/Dsu4fPrk4ClXSOF
BnFGbYxSfL4VRXWsvTVMg58plxUV/n/+hX96yD9Pg8SSoptMfF7OBHUmr1Gg
Q82jaaVSwOdnrchcgDIdKAuhQQ36BOqbt3bqV6dDHW+uf8te3A9XusQf6dFB
OOHWwY+7CRR4sfvR5kN0mL9edqsIn+9/vHofK1+jw7IRa/4eddzvOsfvq4fS
IXc4NrpejUAvuMcid4TTYVDcTiIHvz9cUmb99sbRYaa20OO0CoHetEia2GTT
Yd9JVno7fh/dljkxE/iBDocy3gWvlCIQMTkxEfKZDiqZvz69lSTQzip/1s1e
OqxHKapBEgT6Zhn+4S4T72cgZuWX9QSyDHqWlfWDDv1aBw9EixJoTT/b4p0k
Az5xxWeYLyeQ95PL+zukGXDjHHrQz4f733tJt1uBATL+TfddeAl0mVdUnqHO
gPCyvGenuAhE1dCaJ/czQFM+9XzWDAtlxlx7uuEcAxadD0Wq0Vlo674Vi551
DDhsb+valcNCJYXP/6M0MmBunRGNmslCWmutbUxbGdD6ks+W/piF9nxNyd3a
xYDC/L973j9gIatYFfPpMQZUb9Gfsr7FQv5Uy5SrYoNQylt0W/gEC9X4JWre
PTsI7VZlPiYbWEifvvPYP59B2Px5dJ+vGAs1GQ1G+AQMQpycz+r7q1nowwYl
qnXoIIhXysY28OLvo4aq0HUPB2G5SpNqE8lEXAL09ozGQRAZNmFebWWig9my
p19tYMI96eLebB8m0koRUmqVYkKUS/My87NMJBP3Z4Qmi8fVAtaxPZho4Wqf
O58qExTiezo3OzPRS5toF0cDJiQpr6vZachEa7i/2/87wwS7kSYX4/VMxHJt
NDKtZYJG6udn7/H36ZVNrnJfjrEgPKjlauA4A7lbazgwTrCg9NluZt0XBrK6
xX1nwJMFTdrrz8zTGEhpIud7hy+2Dw/bvYOBesvHG2vDWTDup/qWfMVAGhb+
rokvsFnarOmrDDR+LSLt4F8WCMr9+ZWwjIFUp+xXDVgSYC3v6+G1io6q7SzQ
HWsCLKR3R93moSPDhv0X9W0JCKCUjKTP09CRuG30p04EGKxbdrDyKw1Fa6x8
HuBBQKO9T9PDtzQ0FlBvJnaVgOYEflmRazSU9U/ujmUuASOMvzKzX6hojfA0
f/MCAbmGBTJV6RTEhx4Xy6d9gReC2lSrhT50TquOutJ8CEZOy17zqu1Gz03d
s17/HgJrv+dVEbaf0K9JSZGxpGEII59/qhZsQxW2B3kTjUag0UnC4rtwAwo1
icgsHxsBroW6HlHNfCQ7aEbJiRgFrtAT3AJpD2GXbniihOYYGGj4rBHSqYFj
mz/Pc/eMQee+Qt5SpVb49SF2yPfGVyC2hpb3HO+EFD6XgMMK4yBTSeORc+mD
NcyKbJ7mceg8KM7acZAGy0Ju2On5TUBY/fH7qbEs4CpwKR4S+wad2/nObd82
BP6pxbFiTd+g8YomZUXZCDRsjeIX9ZkE65c8nrP8X0HUzF/1ptAUcHldb+EX
ngCGWmfP1fopaHxtED0pMAmZk6IhvGgKiGqTfLroJLgX2CrFvpkCX5/I9e/E
J2FCYSAwq3UKRJZV9j9UmoTfG5mb2jrxfFWbLL79kyAqMHV67SgeX2GrohY4
CcZjK/4WrWaDG3HpXsqXSSjJAIURFzbcm10cNMufgp/Xfq44cYINMuJ80puK
pkDH8dnkoAcbGk2W75wsm4I6YeGygTNsKPmmN34N59Uaxtz30Z8N02Kf/57u
nwK6e4hraSQbNIL7Oy/zsmH5f3WpYUVsEDl9nmV/hA2mvBeu/ythA7Hd9GiG
KxvusuTcr5XhcfV1bkMn2SCackc5oJoNvlOhC8cusEFq5ZHq0004H5MUValw
NmhOzvVZ9eP42tvtGl+w4XixjuimRZyfZtfquAU2VB6ZE+rk4kCJFffX/CU2
CC2vFbzFy4HpsFPSr/k40HhsL/8EPweIS01ZA0IckBMwWipfw8H9HHinVY4D
Yydt2BbKHPD9vWPTfVMO+Eh6vw+240CngOuepgQOtLaotW1z5MC9XbZP5JI5
IO1HNg8543gOsn+DH+Pr2vwbTVw54PZnLkI6lwOal65WrfXigMykVuzGCg7M
fo58+iIUX6fADp7q40BYxJMbjEIc7/y2ozQxElZfWWF24iUHsgxOZ2qvJyH1
zHmxsWIOcDm9M4yRIKHMXC+HLMfxln4/UZQhYUy0q5kHcUBD9abnejUSzDO4
+JV78HqH67NHD5BAiffsfInjNNp3p42akHDyRnuKJgXnt+LJB5Y5CddPpijv
GcT59e+pbLIhoURFw/zQV+wVCqH7j5Owvso17tIfPD9kyuO/iyT+TmpxWPjH
AWvfSNP3l0h8bm2VDuUigTCf1T4VSIJpyGxx1DIS7vWsE48JISHYML7rsTAJ
nb+1S+NukzD0+fXaJnkSstDqZv9UEi68URg0VsLrnH/9tiyNhL+ld55+3EKC
m/DPNE4GCeuSHHT68L58/9zqtMkhweQYx3FclwQuTZ+pjuckvBzf9FjIggSR
Cv0rqXUkRKVHuDGtcD6K2Z1FDXi/h9mKRXhfbun3jesQCVL19SWWjji+ytrA
+rck3Ik/2nrXHecrcv2G60cSPI3exhw7heNRpA5pdZCwf17FRvUMCTJftCS4
P5Mw775A/3iehDDj2oSb3SSc0Xn0XeAqnv/NoVCBSoLRJFcVLYgEAxHuyWoa
CdJZZ4ILr5Ng3Ti64gCDhP6VO1eYheNxZ81WIxYJBwb7paLjSZhWCxr+MoLj
JOgPOSXg/Wg/SdQaw/Uwznu25SEel07mDv1KQnnJJc13uG6d+0oWFyZIkAtf
a7IiD/tF1pp4DgmLO4NXD+TjdZJst2eSJFDZw915uE5ZH+Fb3jTO07HsuPEr
nH/LuU3pP0jwFtwov74cr58XEh/zE9f3zc3x0UpcX+Hzd/1mSFhSOXwxoh7P
k7mxXuE3CTRWzU57XEeZs/6Pp7ErE2UXFZrwepdpqeWzJPgsTkc1t+H7eT9r
Tm6eBLMyJ6vED7ivUItVB7bimcY1J3FdO2dIoQsLJDC64jN4e/B8ZVp9yh8S
qiNnPXr6/p/v0WyZvyQk7nZVzqHg62tPfcnE9p1u5fjT8fqiA5fW/8P9/lS9
fD8T10sv7mg4ttKRpKtiX7DZZ+ImsHmEF/WHhklo1DUSMF4kgfn2FF8prmtJ
wN8Pj7BrAzve38B17LQ63z6CnaSmHW8zhevxxk/gvyUS/IbS7GRxHUskRsLc
sC2S+SS/f8f380f61vvYWyy8WY24TtO6gctrsPm4e3Pv4ToY/Ge+moJNVOz2
csP7JCw4uznY9V452zRwXtMRO+P+YCdLr/q1hP8bl/7/I+F/4Sbutg==
           "]]},
         Annotation[#, "Charting`Private`Tag$1905#2"]& ]}, {}, {}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{True, True},
      AxesLabel->{None, None},
      AxesOrigin->{0, 0},
      DisplayFunction->Identity,
      Frame->{{False, False}, {False, False}},
      FrameLabel->{{None, None}, {None, None}},
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImagePadding->All,
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
        AbsolutePointSize[6], "ScalingFunctions" -> None, 
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
             Part[#, 1]], 
            (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
             Part[#, 1]], 
            (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
             Part[#, 2]]}& )}},
      PlotLabel->FormBox[
       "\"\\!\\(\\*SubscriptBox[\\(h\\), \\(10\\)]\\) and \
\\!\\(\\*SubscriptBox[\\(h\\), \\(11\\)]\\)\"", TraditionalForm],
      PlotRange->{{0, 1}, {-0.5119999834591079, 0.9999999999999929}},
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}], {189., -358.76873046931394}, 
     ImageScaled[{0.5, 0.5}], {360., 222.4922359499621}], InsetBox[
     GraphicsBox[{{{}, {}, 
        TagBox[
         {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
          Opacity[1.], LineBox[CompressedData["
1:eJwd13k81M8bAPAVRZLkqFxRKAmpFLoeV7mlUOQIqVTuEEWOcuQoXyRHRI7d
de7Kfc2y7twipZzrKkKlRPEbP/94vV8z88zMM8dndo+N08XrGwgEwjITgbD+
X/v6VBdt2vgM8w4Jyvp/FjUB5yF+eQDVyIV6bnk4+iru5Rt+dQiy+2EasEUd
dNreFyTxG0HV5mFzlX+GcNn2d1UUvy2o3ejl+j58DT4fClaL4HcD9F13Yzbp
LqTwnQ8K5X8M9c3Gz5WVHoE/25v9T/hjQOch87VeyyiQ0vgvpMA5Bjy0+w/z
EKOgO9BpeqAxBn4vHPfimYsCcWbpbFmP52Dp6NJs9jAaGv6ly77rjoXDNLW+
rQkxwPEj9phIeDy8qt7awt4QC3Gf76sVrSaDW4RtMWEhAVSETNMHjV8BYef7
6ZLDifDlisJGttxXEOiWpS/vmgi7Z7yu5cqkwDW34g0+3xPB6dZxCcKnFJi/
FeBkMP8SuG3zSRmKr0FEUFeKeyQZTExT8+cX0uHz4OF7b3VSYW7AiP21QAaM
Bxq9I95IhSBLtuuGahkw7KxResc/Fd5ccxIojskA6WM8ClnFqcDpeDrwgUIm
DNEPMzGLvob6gA9XNvkQIad0Tfvgt9dwJGf7JiG2LAgKkYqM8kyHZtl6qza5
LHgd8sXKOTIdrKieFQ9Ns2CooK35OCkdIoqHnEeysmClpjfQ5306TNFyBzL1
sqHl7X/RP+QzILlXi3o4Oge05wZuPPmaAVvW/M01dufDMLdLUawGEeJuXbaU
PpcPjwI/xMiaE0H8nbTVdsd8aGhZ+0VxJsIZ8vtrA1X54H6rz8Y9nghl5Nii
ElkKhPWkvPk3TYRZw5lKnXYKpG1M2MoTTAJj0ou3d7cWAPfUftZgKhleWgTo
3thTAB/Fvxs+pJNhlNuhzeRYAeg96BO07iWDk49qx2mLAjAUyT05vUSGJxdn
u1lzC6DRLzKKBbKg6q/qx0TdN5BudvuCY2MWSFz4NkUPK4RN1FYvteZsEPDV
OHEztRBM+S/7sX7MBq7clDD2kkJgC/H0L/ySDctshrIXRguBDpsSmrfkQCet
5O6gYhHsq046PKKbA/fl/FeXxosgkFvYqr0lB9q38fLKKpfA71WO6LGiXKCf
drjeZVwCRacy732g50LpnYZitzslwPucNaSsKxfSGj1NK2JLYEf20AXF2Vzw
9P2crDlbAkfly/47LJYHe+cyD1xLKIW1L6ErAmF5cK9dCeJ+lkGz654Fdp18
4JQtGm9mK4fjCwPMccb5kB4hF74iVA7buQ/s5LHKhy7d/R8sz5bD2cZAix63
fDj4lveuRGw5/FQ0OOmTlA9DjXOZBQoVMD/8oNH7az547L+jx9CpAL2wfTdm
f+YDR/DEDz6rCpjjZPHRXc0HpXOflb1CKkCUNWzXHTYKRNe1fIQPFXBTTF0l
XIACGjUZnG33K+FvumTaodMUGBTdU7T6tBJeTTK5WKhQwM3vpZlcWiXYu0oX
B5ylQCpEk6LfVkJ6kGzRGz0KrFT5qV4RqoKkG70z+RYUyC8385isqgJzMzlP
Xm8K7CzcPsjEhGCu4GcYsYAC5uErRowdCPSm7mhyFlPgte342wZpBDJEp5A7
ZRSQ5isrCzNB8KzMM2MzjQKqHlbP+SgIjm2e7HnXSoHjLy9nxhyiQQLzkQ3Z
DAqYhrSOBJ6gQbxwkJD3JAW83VSE752lwbLnPWb1LxSo0T0YY2pGg4I7plql
cxTQ/bfqvzuYBgEvCPJHlylgbZlpQRqkAZAtvDy2UuGxtmB8/DQN6oXvehdv
o0Lm8ch3oT9p4BVqGzO7nQoznPd1HNhr4J9aO6/KDip4ID2lI8drgJtDvtdn
NxXis2vdxFRqoPxdxl8PUSpUvlCg8OrWQJRcnfnNvVRgct6z/7d1DZwwHeqX
2UeFcNFF3sqIGpAI0D99UYYKeRy3DXLjaoC5eDpz4yEqdC0NhiWn1UD7izZ7
ihwVdnQ1bfAvq4Hbn2REZo5SIdX/5fzZ8Rp4Xnk54a8SFeoctksrzNdAovNZ
mzsnqTBhGnRTcqUGNjiMkbtOUUH6iPMg+/ZaEPV41/wYqFA8qtbacaoWnMw+
NgaqU6FP038hQqMWkt5lZ2afpcKvvOoduhdrwUIx3735HBUUHihZN92sBd+X
jJ8zmlQwGfEICnKthedi1rnftajgqVGYre5TC+TX6TfmtalQynPoFy2qFkTk
t8706FKh38te0DepFpwLPWhlelRYGiIrnybVQiybXOYLfSoo5oiHlVXVglgm
d/FJAxyf24Zyr6kW8tXvTzFdwPE9X/Ue66kFY+u8UzTsMnUB0YKpWthtMX9F
wpAKH7Mun3X+UQsJnsdlWrGXuZ7fll2thaHQssN3jKhw4vO2oiweOthlDY78
Z0yFK2p6H+1200FxoOA5/yUq3CeHru07QIc5LcnweOxy943aaWfoINhw8ULA
ZRx/QNXJWosORoNHJb9iL6v4xYgY0WFVi/OirgkVBEhVZZ8t6VC571d3BvZJ
zpXBxFt02Nmxmvcb29xNkeWKGx38Pp74omJKBe+P7gd2+dLBQLgy5DH2S+U3
+n1P6EAnRT9F2JWZ83djYuiw1tK19h37E4ds/MVXdODcFjS8+woV/rreqebK
osPUKSSvhi30gTTWXkgHK9MwghX2aZhgi0B4fpm/NdyxLTPEZHVa6MD/mmvb
I+yHW6wNN/fSIYJt1PQJdrJLsmfjEB22dHtIh2BXvx9ICvxCh29HP4T6Yg+e
5qerLdLBI4Xbywl7Ne3SFBOhDlobDq5cxt7NHrOVxl4HG6Kl+ZSwzzh3HXnI
VwfsskJvudf77+M0OSVaB/X/CHvG8XwentL1WZaqgx/pwwIU7OTXT16XHqsD
VWZa5V1sxNbY6KFcB8rH0tjlsIcdWWblderALiaCbRznk9Crwv3DuA54S/zL
o7BFT/oqUK3qINLZX1wJWzm10tzpTh2wdEVo9+P1smJd9pfxqINHEkQ5Z2w/
BwXiV786YF1q/UjApikVLNyMrYMnTophHHj9h1/N7diXWgerJl7xwXi/EDbJ
nGJk14GNVtWDFbyfVLqJQVY1ddB9/VRrG95vNorj2btb6yC4yl5VGjsgeW/X
p746eHw39OWji1SovZ0kaDpTBy/mnDiE8f59M33njuWvOtjW2yRhj/d7ut2J
imuEehAc3yZcdJ4KgTfeX3HkrYen31QL5PH50LTZnvDoVD30nuDr+oLPl9LI
0HTIuXpo5648uhlbyipP6alBPehP/YrYg88jh6XOhzjbeiD4zh9T1qBCh2ng
rrzwerCjauceU8Pz7Te0exNbD929MxLiqlSgXN5bWppSD+TPafkcKlSIMkaX
6YX1cIx3E3PrGSpcuvAntv9TPVgfc9nAcgLvR00HPmaZBoi8nidpju+rtsaT
19kUGoD9GVV2Ft9n1efYi7aqNEBcirmnpzQVXqkTjXYZN8C9LSfHfA7gfCmP
RMv4NMD9pBlHdTEqTCkYc5u0NYDZ4kcBOh8VPhSL2Vi8b4CKTMGePzxUaDn2
nWoz0gCpkcxMB7mpkH302QWHxQZwp8i3eHNSwfFQc2SAcCPsU521G9xEhcV9
p7flOjRCBJ95+MtfFDgzqtoY6tkIJv9Zjev9pEBQkqav3aNG4Avevri0QIEd
vEZzYvGN0HBfRPPULP7eMN3pSKhrhJ3b9KQ8xyjgORD3LESwCUqVLDSa8Dvo
77Of22ybm4Dl3eg/RgoF1HWWG1XeNYFqzM6Cd0kUCN9E8BMZaoIaE1JcdQIF
hH22zH/82QQeDrs5/GPweG7v7bwg2gyUqB+/aMEU8FU3iIR7zfBI9IqsnAMF
NvzJ5hKUaIGhoj+hE0cpINim+gMOtQDbBkeCrRwF5FM/9NoqteB5THd8kqbA
dS3WxDy9FjCq4nhCk6BAU7yNhKpHC6CI+6UGOynw7AT/iVuNLXCi28FM5kc+
CHkHXSu59Rb6R2ZRons+HF+zKjbMawXdV4+pwtZ5oKtHCzhb2gpnX7Jm7TXJ
g2uJIucValvh05YWYdHzeRCpMDgp0NcK2Rz54Syn82DayYx/9F8rXLqzX8Rt
Vx68HDb2dtZrA/mDMa3f23KBqVZbNWKmDSLr8yujj+ZC62P59gapDoiqMB0O
w+83kcivf8jfOoEkm1Ru3E6Cr7+HBnvlusEoLs5sB35Xp3+paOF82gOjg2dV
UCd+XwsT5xiMd/A1aUW+eDgRwm8V3UgR7wNJb6tDVI8Y+KWczbDzfQ8/me/V
/SkPAbcjdYU76P0g5za4+YHvXRjKqwvr2vMR/F6E6fJctkMrt98lHrg/AFzO
O0XOrT1GB1VYV29UfALppfwIE97/kMbrPTepOwfBaiLcPrbkBbonfHXviPkQ
GNRkX9GxSkLSM8Zb3usNg7xPwMxV2VTEs22erW55GKZa8ljvh6Wh7qrQYK1/
w0Cx1uGLj05DUfYSmzrWcPnx54MFiWmIu+UK80eWEQhh3ZrSl40dWP9vjnME
OHz6agbfpiGulYTvgmIjoGz2L3mePR1xTJ79dFdnBH9PDs7xBKYjFpSYL/Zy
BAx6L5zbdysDfTylrjmUPAKF8Y//+DhnoPzymeGE1BEwN59S6riXga4Un+bm
Jo5AZ5WfpWVQBqLmDrkRCkYg8jmT8KG0DGT5UuzE58YRULywMSN+IAOVemXX
xf4YAfGsr4xwjUz09LehxcVfI+DNzhfGq5+Jrrn/Xdz6ZwS4uh+kPTfKRJwu
evsDV/F8krkkH1tnout2c0/ubh4Fg1FBe+4HmYj78tHzBiKjsKRzUu1HTia6
I1/xYbPOKGgaer6q2UJEtM7enFK9URB1dk83205EfA7zvjcNRqF/skR9bgcR
oQyJffXGo2C1h92YeS8R8eyMdPWzGgVFQwnioAIRVfyx3fLbfRQoTmdI1jZE
tAVxnmakjEKK6BeJ2AIisjI7wBWdNgpTZyaLbUqIqOi32phK5ij4qS/1SlYS
0VU5ryevskdBLpSvKrWeiN6kjvVeKR6F0tT2fef6icjscalj19tR2LWLfsD0
LxFla9mkVP8ahflHmVqZQELy0nvOwB88v6Na0VfVSKiac3gAreDxfzY9yaNB
Qp09FjtrCGPgJ26ZeUufhH5amD6ls48Bbc16vNuchM64Gng37R4DybUXv2I9
SajRaJuA1p4x8Jy4JfzrAQkZKLSXNIuNwZRYdOp5XxKy+avzo0VyDJRl22sW
AkkoOEjjdtuRMYjLM7H+HoX7Szhj0n0Ox+vkExrPJiFTn3+LF7XGoNRDe+eX
PBIavVoZ3aMzBlbT407TVDwe8RMd7wywz/kovS8hIf78Y+feXxkDu9LXh5zo
uD+6tPwnxzGgGMiXRH4gocWvAlwTsdhCe74mMJFRTNJk48v4MeASEY8QZiGj
o+cLfQ1fjkHnYmdU/CYycinQm6OljkFItVCLzxYymvX0a0/MwfFZg+Z+8ZLR
+MaJ8Au1Y0DwEzXM2UdGj0sK1Nnqx2DXjaLz9ZJkJHbL9291Iy6felj4XoqM
rFt32Uu3jcESB3vplCwZfY7S0WHtx/ld6aJUHCejXhHq5qrZMRjeOlUpcZaM
3Lp8au7O43wvZ9j1niMjnkfaXlI/8Hg4ygMeapLRhYmxqRdLuL/kdOYqHTJq
y9nR5MrMAM1bQme/XiAje8sx3wObGOBswO98w5CMtnBRFIbZGDBP5ts6YERG
Wne1iHqcDLALXUumXCajeiXvIEl+BnQOxshttSAj26+aZ4YEGeDH6/vH0JKM
mJP4fj3fzQDR8nuKMVfJSIWQf51ZnAGEjeUCTDZkVNUwoj4oi9tbjPmG3yAj
c8+8vzGHGbCrPJbt1U0yWjnwoFBHngEU+bYt2XZkpBTBK16mxAArDqHH+bfJ
qMhQgzlGHZf/3Kh325GMQnRKA4U0cPl/PXtPOOF4agfYMrQYsHRpsz6LMxlt
OLpla7E+A0pfVmcGu+D8SXk/O3MB90/T6lV2JSPS3tntjYY4H5eMzH5i63N3
7Og3weO34XDWdiOjPezK8VZmDEgR61ibwf7JRBWctmCA4szJ6SfuZJS4ECW6
bMMAOUedtwUeZOQ4zZwWcJ0BJP6t9WfukZHqiJvEFjs8f0qxQD32VOclKSEH
3H8DxyeaJxlVNDXmpDvh9sMjmse9yOgpTfGQjCsez455nkxs61IytciNAZFl
7ae57pORPEVA/sw9vF7ndzS6YbOSwoobvBjQ/58VpQf746u/iue9GdDkrLks
/YCM/J8Nnrbyx+vXaFPQjm0UfJ429YgBJvu69uz0JiNJX5qqSxD2N6Ofptgr
Hofr/4Rg73wm9QK73fG1RkAY7r9tT307duoNnhb2p3g+rpQ6gg/ef5aPdaMj
cb4Shw7IYGtcWmwXjMbj4zFeNMQW0L9xIf05AwwGSva7Y8+efd8jHYf31z5K
TSQ27bTmpaIEBtCuTtIzsaOPlfWfTsL5Fmc7VIJ9Q0bKrOEV7l+zmrkWW0ki
8bP+a+yeYtVGbA5hDqv36bj9hpSZBuxhXp/Rq0QcX+PAhhrsNxzfbKfI2FrM
j4uwg1iuTjrnMECSMeSajn3lb8etP3k43/tdOyKwZX4qz/hTGcBl4pjggk2Y
oTqyF+L9tfDk3XnsnrG9C1HFeP1SHzyUxM4ciL4rWIbnq7cSt4Lz49XD8iut
Audna614M7buW3dP6WoGDMuE7v0PW4Q+sVxIw+M9si3aEPt7+WWf03Rcv2fr
PS7shoKmtfp6XL6s1tGI1ys+SylAvwn3/9b5pRe2/esslvctON8JRkMS2MoJ
gsFX2/B6fafEteL1n3jyL8y5G58P1yGXzdhl/o6cf97hfJWeiH6F91O411Ck
/3u8H+iisnLYR27VPI/6hPOdldOjjPfjRusjuwSH8Hx0xodoeL/2m6QlpI3g
8Z9otzuJ7asZ+KpwAuezd+yHCN7v3ZZ25nLT+DzouPwJx+dB3F2HP+crA5TP
txf9xOelJXV7dNo87s+B41LhXTLiXUkKilrG81V20P6Jz+eN7f5qnP/w/FLV
hBSwy/bbEkLX8HkwO5zths+zpZHUfX+WcYicDGMedsDnNbfYwZlzHNhObim6
h++DZXq81AwX9i2boMhbZKT30XvyJs84NLFaCabj++P7JjXrq7vGwcQgO7oC
3zenrDqM9PeOQ8p9rd5sfB91ck+dlD4+Druigi2jTMlo74G3S0TFcZCbdum6
bEJG7pBXJHZyHOy6fvHtwvefgL3bIUHlceg0c9v5BN+PtvUEMXbtcej/scQn
c56Mlu7xs09Z4P6/p3f7qJGR9tO/DdesxiGOjtrnVcgoKX3o0ZDNOIg+Csq2
VMb3Q1fGv76b48C1j3nLwdN4faSOLNS7jAOh5oZPEL7v93zW7k8LHAcD51ku
Lfy9CK09mW8cgtu7nE5Uwd+T70TpINawcXDmLZCTFyejWldO+TuRON6emwGs
onh8bN3PjiSO4+/h5MSNnTh/R001aig4/pOoqc0byYiLX3v33TfjMO99tTlt
A96/qycWxYtx/eoHbxUIePzNQmkhFTg+w0ZJf4WEvloOr55vwPWtghnyCyQk
G3qzeHAAu3pn7ZcBEop1MomIHBwHmsLrm/vx93TNSMtWdQS3FzpyzrIPf79F
DnJnTuD51AYWlneSkEvRNweHBdz+oK6/bD0JFQ67S/zdNIF/1zJOMOeS0AmF
xzH8RyagM7/ngT1+P/TZ8B9Pkp8AOSKB95A7Cd19mvdeVGEC5kO+dM24kFDO
eL+A5KkJsHr0X53pHRLaHSOTevzcBBAki3L+WJDQhoW+XMMrEyDK79J0UZWE
3mYdaIwImADKZxF7N1YSsuurttseiONLdD1JZiYhlg1G7M+DcTxjy7/0NSI6
Y/pQ72U4bo/OTBCWiIjC2tOTFYvr3yxbUp0iohhb7+HGrAn8fr3vNd1IROa7
O/4w9eD4vs2ybx8RESe/a1FFL56Pv/oisy8R1fDwubj3T8Bwk5a3wn0i2rfZ
bGrq8wSktL5499SZiOZ+TPR1TOHyNqGvq+ZEFNC8+iZpFccrX0ickCcikpus
o5LUJIgqD9WODWeixZaIUWf/SVC+GSy+SyoTfdrSa/f30STQHpK0vMQzUa2u
0Fxw0CRY2fVY9u3ORJHtWSvJYdgxKdaPeTKRVHcjb9vzSTBQ7Gam/MXv5w9M
GgeyJiEl/HaMRnsGaph0zx7pxvW1ixaDHDNQHIul20XxKaCIXzxJT0tHPINF
rzfUTYHfu9DyyG+v0UYffyMll2nw23jeMnA0BRHIlvmj3F+AJle0czgnCbkm
5Edw12KvKklJcsajqoMhbNsdv+L3I1FM1yMGbdd2lQ7gnMG/Dw7/4lGORJ9k
Onu8KrEnxa9ndQUjSjKIMyxngdChbj/g4Id+3P/Bam2NTW3MJl70Q8cvE79+
vjYLfjHySo8U/FDFtm1v3tthCxsH2zH5oQa/QZW3rrj+uZ6pgYO+aMDG52pB
EHZVtffUIx+0aX9Fgl8e9l7N2hHd+0iL2enhPwp28mDqc4H7KHxor839N9hq
3xvsp7zQ9rjQA26l2LUiXoGPvZDQ5iulN2ux9V3Sbas90ZGvS736fevxL95Z
UbyHLPKPbxdexS56Jv9C2w0VX1ni7CR8A0I+Ybsovxvi3FTO8YgZe8c14f7J
u4hmfpptmg07XjeiL/Au2suuvlbIg82WDNx1rmjC9sKs7gFs7tsNFC0X5Chg
3+xthN0Ucun9oj1qqJdpPHQZ27bo971X9kjEZa5u1BSbpJT0SMsedTa60jSv
YnOZRX5OvoOOuHuV8N7GFvpmStS/jX53BGXk+GIrW43N1N5EfoGp/p+ysDt5
j+xiuoa23mPVts7FFjVvKKiyQQl2DtwT+djDswNF923QGx2ltLnC9XhMY78W
rdHE9q66DQi71avNYcEK6SQT2A70YC9dt19cskD9z2505vZipxynhPlaIFv/
1rgj/dj9Ck3/Nlmgh7ZxB059xjYxk/XcZY4oUnI65yexKRe/9Z+9gnaUXH3q
voIteSRqrOUSSiPVX1r+t97+p8STq5eQXMJBEV/CHB7vmUC+RWOk5fM7P2Qj
tqLNrfG9xshb7VlX4jZsTzEJ9yeGaLSjmrdWDLv/a8dcgAFyqhH/fG4fdukv
NeN9BuhvQWjGW8n1eIdVTJ+fR3yxl473ymCnCNJuSusjTfNvl6cU1j0r4+yi
g3KnhBM5dbHncwpvmZxDIUmBVoP66+U1zZo5Z5HtxVmJvAvYhDebX204i4Qq
Kyl6l7EpU7OlxWoo9JlZQ7jNerlj4odTKuiGOj3M/Dq2HJMJOV0Zqf6RuiBt
h03r4iZsU0Z/bJYH3jpgDwt+jek7jeyOxy+we633F27IF6iE1L8SSj4+WC9v
3h3jo4hEUuy8sx6ux//QqPxAAfVtVmTVfrxe37foaNAxdPZzn9CTZ9hWycrz
Hw8j0agzoyZR6/OvOKb/Tw79PZdJlHy+3v6F+LK4HCqkuB9pSsBWficcxyaD
9j7m1WTNXB+fu1bUpv1oVdF763vSus2Gt6VKoA+zY92Z2ev1m3fePieOIi+/
sThHXS/3G3lH3YPsOQTFdhRi+7EULd4TRZo1AVPjxev9bbq8P2o3WpO6eDew
8v/lch27BNDHoTJFY7TuxgqzfztRccyeVfHa9frLrWJLfMhxdT6krnHddyeJ
ctxI+42JfkzLuum5jx25kIQdjce2bd0yk5WBW9GnrmfJzD3rVlF+bsmKSoN+
X+vpXbdp7cpTFhRz8uqBtP51N+YMzTAh5/mGb64D67bqp8+vVutkyBaqDq6b
d/rcteXqfVdivbhH1q0YEHr4V/WGbatnRsfWzUHuNPtePUi/zlIwse660eK6
2epyz7Zm/+l1h698CJ2sjpU59uzCzLpTVp+yj1a7jL402jO3br/3hSEfq3Vf
sAgsLKzbAPm7dFdL6toP0X7+v/5FodTGahamd+mRv/9ff/uzxPLq4aKTt62W
103ruJZDrK68nXZI7t+6Cc16BcHVL0S2LK6t/d////sfD97kBg==
           "]]},
         Annotation[#, "Charting`Private`Tag$1947#1"]& ], 
        TagBox[
         {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
          Opacity[1.], LineBox[CompressedData["
1:eJwVl3k81F8Xxy0VqeyEkjU/lS1rSXOEJCq7yJK1kGxRiCwhRZYICdlnxjpT
thQXIUllnUFIKDspS0n13Oeveb1f99xzPme593tHzNHLxIWJgYFhnpGB4f+/
+i7T3Y0z5gSquccH5Yg2jS3aQt6fBJVhdZ+uXsl8BEHpSXrmM0Ed4NcJIzhO
5xEm90qG35A6B8Qy/5dDmlUEg3f0p1mCZnC8ZVjt7FgzQTJOuPCfiBWQn7Xc
0gh4R9jUd0pzkLKDMMmVpYtK/YTZyL4Wh1QHGP4ZeECuf5hw3nm9/oGgMyg+
f9Dm0jVOaNEWqnmVeQlK25u86zumCAoSxykrIm5w3pZwF6wWCJlM9uT9+Vdg
p5x5Z1v9MoF1PCLPQsoThMoPZhUIrBLqxnrevTLzhnzTfexs9T8J3kbO+jap
PkDNjPr3uniTMCJ/R/u+oB8QiR/vtlOYIOWJQON+a3+4ErjELcK3FfQ5ijUa
Mq/DlEXG21dZLFC92KmyJBIIcYLei4/27AIPO7undxyC4FhYj/o5Vk4Qf78k
J5p/Ewxuaj17ncIF8WXc0sZSt0Dzk3Wg3wQvnBQuKJi5HAquv9VcEwv54VZb
BmeTWRiUbTV87x8oAMqqMvetUsPBWFTLxtNiL+TwGUbfE4yE5J862tM+4nDz
XVqLRV0kZEYI8gQ+kgCLqDEmCesosGTcEGh8Iwk7V31CX2RGQ9JFnQwrnf8g
oC8lYF7kLkyK7Q8WyJUB07iR6trGu2BDM/1Tu0sO5HSkViMd7kFV27PAzxHy
MPmsxkc4PxYOizmXW2kfBuPkIfdzUvHwb8VvYThQGWQMJMhCr+OhzYE9e9NY
BViZPaa+Xk6Afj85s9NyqnDx+V8qMkuEwWec9nY/1IDvQKKcZWoSnE73Zviv
4hiEsz77765gChS+0zK8sHoCDp5KinnqnQJL1Mlk/ngt6Inymvn4OgWa6Dpy
Mge0QZJZpkTu+kN4xqivaHNJB9r+FMj19aRCzBYthaxNXdj5I1VFJO4RvOO6
KMyddgaqDvun6k08gtaNhto4s7Ng52267qOeAU6Obzh1eM9BxQLH85bpDOBa
rBx1yDAEk+kYDfeTmeCcXS6fYm8M6SNB2lV/s4HUKDlY/MIMTuy1Khg1fwKV
XzN2Th4yh9kLaltZy56Adu31KNksc9g3H+hUJpsDWUmH2xciLMDLTXU/w3AO
jJ6qF99hbQnczhWkwiN54Hup3XZNwwYsrXIrvi0XwNkX9Ogme0dY+mjGlidU
COIpU27HCxwh2o7VxVS7EJDTlj8S047wzMlLqDqlEL5rBHfL+zgBu+fxqJtq
RWAZZHLvSIwztEYMXtgWQgRxsr1S05tLoFjKtW0vazHYsE1JGaRfgR3/wm1O
7asANasH2xSkr0G623k7Gd0KMJFOL2QxvwaSfTL2XJ4VkGGhp8QacQ0IZLrT
x/oK0MvfH3J7+Bo8J6dW1chRoJNd85Zdsh8smM6/NHhPAVsX9qXbrNfBnJT2
9tqup3DGJkQ+mCMQ9hsvTr+KrYTPuyms9XdC4cb7o5C+8hymq1WKGR7egd2V
XKOMjAhS9hySzHqcANXj2p0fNJqhq17VutIpBZrds/ZYzbfAyK5+p+aNdFiV
Os5RdvU1hC8btOxRywKmXyWce/Z3wHJY1B+Z7hxQ/WdfbVreCZx5XMarDXnQ
Gan8vu3gB4gmXhUouVEA6hxvmZJUPgAPde5U9a0CID1yULPW/ABsCoEp9VEF
cLs8PmfJ/APc9tALbEzG9gPTvgLhHyC9q0YsrQLbH8ra7U7/ANX133yjvhaA
1kwEZZtWF8xuLiSaGBeCSOLcL/JiF5i5CefvFiqCBodQ8tMfXcDavLa9XKQI
7JR4rF78xPYSToGa+4sgk6Ze28nUDeN7Jt2sFIpAQPje9SX+buh3MLGy1i0C
7mLpH8rQDQ8EBCqzfIpga4vLPErohvMuTST21iIoePjrcXtKN2RsMBqJdxSB
zuX7Bt2PuqHrv7imwx+KIIKtqng8vxv4J5g2tQeL4K/RFrettd2wb9IxQ2Wh
CH6O5H3RH+uGou+cYwa8RJhb/zTar9ADR378/aJ2kQjVlxOa9VV7wHtjIUvc
mQhhdEIROtYDMskNIqxuROCvybpK1u2ByjeEgFe+RNC6br0ZbNMDRi7l8DuK
CBkrNEHJmB5orlQ9ebWECHrL78x8P/XAdbM7l898JwKPQ8iRqckeiM9LUo9b
I8Jol8xem1nsX9Y1pW2DCH6U2ImTqz1QxhHZd5CZBE+8TvsK7ugF3lQBQyoP
CdYWWhIaVXuhIo03oFKJBAWzLzrY43uBkJp4ItqLBJ5phhLuyb1gmDzxhOka
CdR0Jm62pvfCSrhHSOB1EnRksckG5/fCT1+bCosQEiwbWSXM1PaC6tty9P4e
CQg1a6YtE73QwfN5X2UBCVid75WKzPSCd2ETiU4kQQ/nvq03F3shlC0gbbWY
BC7uJ6sP/+qFgZ3MWaJUEsQJpwg8Ye+Dzgfye5XqSTB4+/BI4NE+SD/YHKfX
R4I8hVaVfkIf8BmFELnoJPAYsYxX0MH2Ugrs/YMkYFALg6lzfTApGfRc/xMJ
pGbf55o59wFbyJjt8gwJ/Iw8Lskn9MGTueWUg39JwC5MXJqc7IMi+4OvtMTJ
oGlxe2Ripg/KLz2UlZckg2/Cxbfji33gyfI5iF+KDDRGAeLYzz44PN3/vP8A
GbK/xtgN7+yHpor0Ev7DZJCjuL/rVe6H5Goz/1wCGexndF/0HO0HXXnpxGOa
ZHggLkHuJvTDwDvDkK4TZFhL+Rj5Qa8ffuvndMzqkKEh8IzGW5t+oL4h8n3W
J8NZbbmS5ki8zr0npdecDLeC2R413e2H3Ezhi0LnyUCp+hrdGN8PGX07Fqwt
ycAr/cSxIb0fLgj/OvvhAhmGd3IK1ZX2Q3bSDbYbF8nArjvP8pzaD/VcCr3J
9jjf0PbVmup+uH77/vkSBzIULId1VzX2w4675IQOJzJ40JZjqH39ICHUVvDm
Ms6X4/11ymA/GEr/PfzSlQxdesXOFaP9UOw+co3sRgblF46aZdP9MGQpze13
hQybT3rXSZv9YG1hmPvGE9dnsOILkZEGfZECL5O8cH2443qLttHA/EBfpJk3
GVoidSoKOGmgIza6t8OHDHFuVZdyJGng0frYyN+PDLOaZTE7DtKAeKuZLuJP
hlMChcXX5WlQpMHI14KZ6XXK4hl1Gtwt7ij7dR37z47jrAUahBGsWWJv4Pr6
RypKnKTBqSccPPwBZAiU9Lv+y5AGe+YZjgsG4v7+vpLubE6DlzZGVkmYlXud
6j5coIFF/rQEcxDuX7H1sLo9DRxWaI89MX8LN/1b6EIDW4GDjb2Yz1kZiHJd
ocHcle8JijfJUKKgrRXsjfV9OsEWi/nSJ8Vok5s0qH/fuiEdjPOtPkiqD6NB
DYeUlydm8XjxDuloGhzddL5XhjnMRWg+OZYGR9wyDb5iHtHgZv+XSINWNEUV
CCGDOi+bgnsqDVj/OL3UwZw+x2jS/5gG0k/l3d0xrzX/uqaZSwPvLVfq7mI2
y1h+WFJEA7UytdI8zE99Zmr4S2kw/KuWUIWZ4/TnwXAqDXrf8vg0YfYQHfw9
X00DUrqn1mvMHetdwpYvafDDbZnahln6Qzu8aqKB40hrA8IcXdToIPeaBuWS
u12fYp4Mqb39qJMG2Vu5y7IxnzCnFG7poQH30GRcJOZsGdJrLzoNGBLRNmfM
m8w5M0PDNLAn9woex3zhY9oO3XEanNQwa+XAXPs0QZY6hfV992cdxvXgv3fH
cO8CDVR2eI3nYr7mEOpz5zsNGs/fMHHA3HXkRvL3dRrUEdrPC2GW4/Sqsv1D
gwd1mcuduB9xU5fo7Ux0eGF1WCQQ82yD3S8lVjq0EVo+7cNcePXccTYeOkzp
feE/j/vLdFL3or8AHVzT1mNn8HzY7yWEjwnTIfMWZ5I/5r1vZVurpekQ2+al
F4TnKyhv/5SYHB20l3V/fcfzRw8U3n5fCa/r6aq5YH4gveusE4EOV65+O6+K
5/Xbvy1e77XpEFJ45OhDPM/n6JuJR0/Tgf/TRMECnv/t0fN9HGZ0SIipEIi9
hufJdnItyIoOfsxBIl2+eJ6UhwW+2tFh9uHvMnbMYRNvbV660YHgd/diAD5f
a5olk66hdOjNWmT660GGlwVzj29E0mH5yH4TEcwRrDKm0XfpYDLEvqGOzy97
V2lTfjIdEolbTRzw+Za6WJ49SqSD/utdfO4uZJhvXjRfKKWD8n37vXbOeJ6k
5HdtUumg5ZkRcAbfH4TFipuCL+nw59yKrAC+XyxCqJZmXXTIOT4YesUG1+vz
ModTPx0CZFbFFK3JMK6j+NpniA5RawF8P6zI4LnzmUrCJB1EgWPJCd930Y8r
uTt+0sGsdI8DowkZqp7XdILYACjEd8wc1MX1Fv55+5zUAHQo8F1LxfepZviR
Y7aHBiBaoeLUphYZOvWek4NUBuACn393NeD5pNdFV50eAAPZbXZTR/D9uVav
ech3AETzBflUD5JhyOrv+tEbAzAmzSKrK02GnHpChV7wAKSr28Ua4e+BTBQS
vhQ9ALI3jwqZ4e+HDm/TRk7GALgPBAXyC5HBT7Glkv/VAGhFdbDGsOJ+KYvm
JLUPgJnXjR07tpHBUjU4duf7AfCu3zS6w0yGY+rKjkyDA0AMf5R/BX+fmLQK
OBYXB6CfpcZ+4gcJEowj3VuFBiFGrX1nwggJwkzHzDVFB+H5IT+JoiES+Jpr
nHixfxB0tg4HVuPvo4XVym6qwiCM8pl8ae4mwV4H59ZM3UGombJ4dq+VBMXe
OqJ+voPAZifNRyshQaZvzo6lG4Mgp+spFE4iwX2/zTW3kEHgtdmw3V9IAu+A
yncXYwYhyLvpiVU2fh+ESd40yB4EExPPXT6JJGhJ2EIT7xiE2sW2JGv8fvhU
3hLbLTYEAcynHokok6BrYcu84n9DMC++c3OrAgkaZU6eSZEZAkt0feTLIRLk
FLfuPK82BCtJ43sfSJDAsajt/vCZIai9tfogk5sEX7PaE6ZuDIGvm0BM4BIR
FuI6k/+8GwJJLodT5gX4PfR254pd7xD0KRjMX3lChPdsZ80aB4aA9+nP3cEZ
RCiPecd7e2IIBpxZt95NJIJ35PuHrL+GYFRPXdM8mAgrN7vSeCQ/QuKXxaQa
EyL8du97fCDoIxQcdygp2igCM1XbJLnQj+D68rKd8WoRlDJ+jVaK/AiebKE3
15bwezV93ed4/EcwMy5clf9SBE2tQnrGeR8h+/T1tYv4fXlH1GEloOMj1B6Q
Tq7MKwIe2sKZdqFhaPdqrlc6WQSHTrD8vfRiGCzYuz+QAwuBUlzy30DjMNT9
EDvl6FsIyrxGxqfbhkGrMt2K90ohaEylFxzqHgaG8CpTF5tCOHf/oMG3r8Ow
aKxaU0coBN/Bs+mB3CPgLT7Lq8xUCM99UhTj3EZAoZfvjGtkAZzKE7tM3T0K
Y9POa7zX8+GG8EXxzzafwHL32Rk7jVyQmTffQT87Bun1W083h2YBD8c31paN
MTAqkrSpD0yDLehxhUTmZ/D23N7aZ5IEV5RfDG43GIcweVEfomEklJx2zGlY
GwcGb9fO3CcusDonxPk1dQLCLjP2j+71RVWmp5hTdCaB4R6XkpLYXRSqF/Wk
8ivmOpnoUxIpSGxEfyA/6gs0Htl+7P7tx0hdLTJFUPErGFlve1RNzkU2+z78
Yuz9CmGNDGrv9xei1Y77497hUzBWbynfV0xC6Vvs/Ewkp6Fr5Lr135wS9Ndp
t0q31DQ0EkzSR0tKkPOrrlXDA9NAeSBfUVtdghQitG+clcPrBVoWFzpLUPs/
6SC9I9Og8K7zp8l6CVrf+BFKOIPtj3Yw850pRRbLd2MP+k2DUWxKes23UsQz
WpXH1IL3a89qnNtfjuJ3hoTUtE2D5tADRS35csR2TMfS4800hB3ntZE9Wo6Y
0nt20d5Pw9jyG7mZM+Xou/FSAHkQ+3/ZwrF2rRx1tUobGi1NQ2LnfI5dYzmK
K3v8O0toBow+/ld11KQCsQ470kyEZ0AUDcZus65AkWwHqSyiM9CYSK5841SB
bl6uveSzfwYoRkxjiv4VyF2sv1tHAdvf+tiXkFaB9B6yk+ZOzoA9w775q0MV
aGtIuNlRnxlQMFjh1pGhoMrl+V/o2gxwMmoGtMtTkPMlyye612cg0er2CT0l
CmoxlJ81vYn1BGz+OKpOQZHiI6GeUdieOBX55RQFbWk/UpL/aAa+NUlVX3Ck
ICaeb4zszTP4/6qoEimZgp7esSamtOB1VeqJ5FQKctxsO7PnNY7v72sa+IiC
mr9kpUl34ny8df1Un1BQRK2BrDYNxzt31tyvmIIY7YiWAbNY/yZp4jeiIAay
XcU49yx8ExyOkZyioLZ5uucTvllIfNXsnjFDQXEKxnI2Anj9UMTm9nkK2l2r
XdYvPAtdb5JEaN8oSO61dEm79CyMSa38ENugIJsv34vKCbPAuc5lGrmDisQP
eFy6cgLvr35onLyLiqY9vuyX1pkFe74y9JiDiq6t0AtyT8+CZpbrUDoPFd1j
rs9LMZsFb4u8dO09VPRc7E52kPssKMTNkM8foKJbLgx2aldngcHpft3vg1Sk
Qw4UXvGaBVGFsl/pMlTUpeCRedUf6/n153uDPI4Hxhn2YTi+NfPFWhUqKr/d
YSV8G/urKvHer0ZFfq+1BYeiMB9fTYg9QkX/zqmmm8ZiPbTFr1rHqIjfbk+q
buosGG2ZiLDVpKLh3BRz5kdYvydj/IMTVJT3ZRdf42OcbzY1qlGLimSvMqQc
zcX7f8kfZDmJ9QV/SZIpxeuapr2E01TE1mhnPFOO9R6tfK+uj/UyD3AWUbH/
eceH8gZUZB3bkSBSg/d/XL/GfJaKfDMq7nM3Y30n1xjMjKioZjPjTnMLzp/6
3Y3bmIo27aLDfV9jf6SyxjeY70jY+vd04v0qQf9JmFJRZ5SeV8SHWcixT5Nv
xcw9reSm2IPrceIen70ZFWWWstk+oON+z/xzDzOnos/saxZaQ5ilY3q2WlCR
lM9no+/DmNmXWSIxX+nt1M/7hON5HWP5jZmiUqtjMo79W13udD9PRatp+QSm
L7g+Qn6mvZjVN+KPPJ2axeffPl3ZkorCbIIUHWdnISz4QFo85tYGFxnuBZzP
ZKfBZ8xsYsZSzUvYf7nuUxkrKjK6rSHq+30WGs0etHljfvjlPyHxVTwf8cWR
ZZiHTvHw9qzj+p67Oz2OWaT4766IDdz/5v8WOS9QkfPOWRbFP1if5a0kNcxk
z37G8X9YX03kewvMi12Nv5OY5oDy6nCuJ2YlpdLVE1vn8P+gm1tDMQc8TFta
ZpmDroLz63cwN6xHzOSyzUGid53vXczMFzwnjHfNAcNA2rXbmPVeWo0wcs6B
0cL4qj/m+H0n6VRu7P/f/VV7zL1hCt0OfHOgkHHPUwezwMSet1wCc5AT+cZG
FLPtSZbWJiG8/kr95QrOJ4/4vcFHGOtJfRfThHlq+2itmOgcjAV5N0RjlvF4
87RbHMc7yGWlg9nnfWVp+P450MzINNvA9axWyCk6LI3tN/+WkjBvPojN+XwQ
62+UsDPEfGL1ekaSLPafuOq0iPsVfd4x5YQC1mtqVxeFufP52fhlRZyf3Clb
PswWtyQjjI9g/nI0QBj3//EYRzDjMRxPjXv6IZ6fMa3f/tTjWE8sS8o2zO4s
PW5c2pjrRxK68PxVuNU7NZ2cg8Yf0fQDmFfekmx99LCekRH9myZUFJoYatx9
FufPJ1ywDc9zy3d3g3CjOfiW/TpcE88/m7nFycOmeL9pQZCvIRWlCMoeTbLE
/g29yxrweRm8KaB0wnoOOKv2fBo4Q0X7Rplll23nQDTSZ88cPl+kvCFRYyfs
XyUufx2fx/pDMaxcnjifdYcQCj6vqn273z3wxtz3Lz5bB893MDGJ9xqun8e+
tCht3I93bUICAZgdLEMI+PzHeG2VFYnA+X/5qWWtQUWMAg+XcyJxP48MkTnx
/RHUKFktfmcOvG3F5xuOUtFVLh2QisP6pA1Xt+L7x+RZhLFsKs6vsqfu+GEq
emvNzV+RjuufXJT1HN9fOlvyhhQeY38meZpyclSkZt7kpJyD/W1ces54iIr2
rv/zP1Y8B2EG1vzGkng+1EMyTjdgfv8yJJ6Piuwndl5824j1Soy/TsH361Bs
psTZV7h+DlqPk7lwf4dflBq14/4LTn4Iwvfz01sbDed7sJ7cTxxLW6gouPnG
hMtXnJ+b+/iV7xS06s5CmprG9ZypE/21REGePGkebnNY7/FWyq0FCnJwrl71
+Ibr95m71neagnS3rbL4beD+sDQz/h2hIC59X5kI9nlozNruk/2agnKaOHao
c82D95qAv1cLBSkcLZtZ5pkH0QkhebUmCjonPV3kIIg5fPNpcR0F3dtmJ3ZC
ch4UtJWDxcrw9/LVaX4Gdcy1TWL6iRSUrD61UqOB7QNZXCPjKEj8aWSvF8wD
g8zvPVUxFKSZixI/6eB4J1DdrzAKCglV2YEM56HLwtiMw4eC1o6JMdxywf7e
VP+6bEhBUc8aRlVc54HTYmZ9mwEF8R6yqV9wx/Y3aoUydSlISSgtyNZ7Huwl
O1+QjlOQ98+dqxo3cXzWjVn9QxQ0U/lz5nci9mdzfqV8CwUNy3b1Br6ch7Dx
srDiixXoyRxXCDPC9uX1pqLmFciRbCp1v2kecnrzV2/rV6AZSXpATts8aIq5
3OFVqUBre0aFX3fhfK483HlhewXiYpu/zPsF11M5ZNqrvBzpfmXZLN+1APZE
8T+Js2Voe8HpwiOcC5DDrPGaOlKGOh1izzVzL4Coq7sb6ipDpiPsuf27FyCs
epg/t7oM2ffx6W6KLeD7lnIsJLwM3WyWSDytivcbjPYn8ZQhSjZITtph/yuf
TFalS9GPoB8sDg4LoOnqqr0kWIpUzxPnRpywvyMnB/vZStELDo5ndFcc79Qu
uut8CWoLGz3x1hf7f8p1urC8BH10DLn4NBpzHZe/j3wJ2vbfi4ywcmyvoigh
Ll6MTjN73fpDwfEGAg/kcRajuE/ijkHPMC8FT+z6R0Zc6fcO+NXi+DJqZqSP
ZLR3+4Xay80LwDDYbjKdTEaKcz/7z9GwHmkhnngGMrKtUOUS/ov39xh/VO8g
ouoLP9m7GBahkelxpEclEbFvq9t5m3kR7H+OSEVlE1GjzXHWGdZFGPMiyl3x
JSJxNp1/lTzYfu9Zle2CRPTV2XjhzIFF0ExecIt0KEKeQh5vgs0WgeGb/I3D
nwpQWFRu+HAx5qpRjcOxuWjXDRZ9hzLMc5qFtd65KMP1KvfXCuxv1JhT2iIX
PTM4mr9UuQhhqszvGkRz0Veu7hYmhP3v+7naUZmDDLIZWA/04v3OY1ZllCeI
v+ZivP9vbH+5/hyjUCYqmxZ+zH5mCRh6tjhHmaegmKwo+9FzmFUNV712piBn
k4X95cZLEJbC4yH4KhntffmScvY85rCHZJJ8MrqXYN0W54jtJ0Mbq7Y+QK6q
j5bZAjH//e40q5+AxCN59ViKMHcqsjS4RKG/R4J30UmYgwbiFpsj0eDCRE9R
CeZMhfZUkUiUeP6ZrS4Vs4fL47P0CPTvoMm1qJeYCdomhpphaLg7IZu59//x
KM+Xvvmj2uh1p95+zNzx+oIZfijl2MUD+QOYg1P3yGhdQwaFcpVao5g3rZZ3
JHijuoB3b8JnMOtkCpuqXUKpsioJxvOYA/belQxwQj7jmWZiS5jN6gnN1fZI
+ozHp8YVzK5KtIYLFmgLY19B4vr/7bsK6zqM0FjVMXf7DcwKa4+TPHTRS/d8
eYU/mDU/bGb7q6I0kR2r//5hZmCgNM6YN/wPWEZeOQ==
           "]]},
         Annotation[#, "Charting`Private`Tag$1947#2"]& ]}, {}, {}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{True, True},
      AxesLabel->{None, None},
      AxesOrigin->{0, 0},
      DisplayFunction->Identity,
      Frame->{{False, False}, {False, False}},
      FrameLabel->{{None, None}, {None, None}},
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImagePadding->All,
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
        AbsolutePointSize[6], "ScalingFunctions" -> None, 
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
             Part[#, 1]], 
            (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
             Part[#, 1]], 
            (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
             Part[#, 2]]}& )}},
      PlotLabel->FormBox[
       "\"\\!\\(\\*SubscriptBox[\\(h\\), \\(20\\)]\\) and \
\\!\\(\\*SubscriptBox[\\(h\\), \\(21\\)]\\)\"", TraditionalForm],
      PlotRange->{{0, 1}, {-0.06778773356421852, 0.0677877277794627}},
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}], {189., -597.9478841155233}, 
     ImageScaled[{0.5, 0.5}], {360., 222.4922359499622}]}, {}},
  ContentSelectable->True,
  ImageSize->{346.3515625, Automatic},
  PlotRangePadding->{6, 5}]], "Output",
 CellChangeTimes->{
  3.684991139623559*^9, {3.6849911897402563`*^9, 3.6849912170054502`*^9}, {
   3.6849912879814663`*^9, 3.684991305884779*^9}, {3.6851768818748503`*^9, 
   3.685176889102344*^9}, 3.685347110410118*^9, 3.685628647628187*^9, {
   3.68562921716127*^9, 3.685629244146118*^9}, 3.685629471515973*^9, 
   3.6856295596234713`*^9, 3.685631777449396*^9, {3.685678814424852*^9, 
   3.6856788406594477`*^9}, 3.685679157269216*^9, 3.685680524019594*^9, 
   3.6856808657156563`*^9, 3.685684601389922*^9, 3.6856915912668867`*^9, 
   3.685763904861117*^9, 3.685808006284046*^9, 3.687091771148024*^9, 
   3.687092116578326*^9, 3.688044709351451*^9, 3.68810200187255*^9, 
   3.6881964614856453`*^9, 3.688728761572487*^9, 3.688801504580625*^9, 
   3.688802213966638*^9, 3.7002815745250893`*^9, 3.7002834339376497`*^9, 
   3.700283496738234*^9, 3.700283699152989*^9, 3.7088463625461617`*^9}]
}, Open  ]],

Cell["Their second derivatives:", "Text",
 CellChangeTimes->{{3.68499141670616*^9, 3.684991423656663*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GraphicsColumn", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"Evaluate", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"h00", "''"}], "[", "x", "]"}], ",", 
         RowBox[{
          RowBox[{"h01", "''"}], "[", "x", "]"}]}], "}"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "0", ",", "1"}], "}"}], ",", 
      RowBox[{
      "PlotLabel", "\[Rule]", 
       "\"\<\!\(\*SubscriptBox[\(h\), \(00\)]\) and \!\(\*SubscriptBox[\(h\), \
\(01\)]\)\>\""}]}], "]"}], ",", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"Evaluate", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"h10", "''"}], "[", "x", "]"}], ",", 
         RowBox[{
          RowBox[{"h11", "''"}], "[", "x", "]"}]}], "}"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "0", ",", "1"}], "}"}], ",", 
      RowBox[{
      "PlotLabel", "\[Rule]", 
       "\"\<\!\(\*SubscriptBox[\(h\), \(10\)]\) and \!\(\*SubscriptBox[\(h\), \
\(11\)]\)\>\""}]}], "]"}], ",", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"Evaluate", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"h20", "''"}], "[", "x", "]"}], ",", 
         RowBox[{
          RowBox[{"h21", "''"}], "[", "x", "]"}]}], "}"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "0", ",", "1"}], "}"}], ",", 
      RowBox[{
      "PlotLabel", "\[Rule]", 
       "\"\<\!\(\*SubscriptBox[\(h\), \(20\)]\) and \!\(\*SubscriptBox[\(h\), \
\(21\)]\)\>\""}]}], "]"}]}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.684990485945263*^9, 3.684990569389597*^9}, {
   3.68499060031497*^9, 3.6849906248023443`*^9}, {3.68499067011257*^9, 
   3.684990750258647*^9}, {3.684990794366681*^9, 3.684990843615131*^9}, {
   3.6849908971171207`*^9, 3.684990978032452*^9}, {3.684991096352992*^9, 
   3.684991204666863*^9}, {3.684991278683693*^9, 3.684991301623892*^9}, {
   3.684991428521093*^9, 3.684991459994495*^9}, {3.685176903789085*^9, 
   3.685176916069722*^9}, {3.685628656781304*^9, 3.685628681908022*^9}, {
   3.685629256817808*^9, 3.685629285911639*^9}, {3.70028158951233*^9, 
   3.700281589958693*^9}, 3.700283683481941*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {InsetBox[
     GraphicsBox[{{{}, {}, 
        TagBox[
         {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
          Opacity[1.], LineBox[CompressedData["
1:eJwVl3k4VV0XwFEi83XvPVfkDVHm1CvStHYqCUUijZKpASWVNMhQSiTekhCF
SpSQyMzOdHFNIUOiUNxrCBGR+Pb313l+z9p7zWudcxTtz1g6CfDx8VXz8/H9
/2nixP2AedabHWvT0pSDM4sWbpV1/7JEFyzf3d79oele8b9PImPeLtkG4m0H
X62rTyg2rW3NiF1iBbHrtrkYVWQU2zhOFd5b4giuBmvMb2aWFHeuurU1ZMl5
cHsyU6PxX2NxHNP8ZtCSG1CbNpvRatJT7Cf8duXtJeFwOl9lTWTxWPH+A/Fp
o2PPgOv4nMoz4cei836Hd/yTBitUvww00oRx5EkbW02jNOh9Px5mry6MlZs1
7Win0wCM73X2GArjzcmtDh2FacDvuvdC1jlhnJsckZWtnQ4SxmsGE5qF8fDe
oQLTunRQY5ZZxt9fjK2THnLOiWfAMVkjZVgkilX2/OCWBmdCSaDuyYdF4ljW
Z8f64/GZoFme/kv1oziWeh0XLJKdCeuedkLyoDieEd6rvacnE+QG18h5ykjg
Bpx9rmtdFnivX2W+5awEvqzjN/f7exYoHQrOjlsmieskGQxtlA31Xw6O1epL
4Yt1BhA5kQubpqd1n56mYQntrO9VwnlwszS5VvciDT8L0bnzZ2kezBWKby32
oeEPZivbbbfnweXGqKqiMBrW4DDOqUTkQZq9jduJDBr+wh5JzNDPh50nJM2O
T9DwjvfPJWovF8CPna9N5c9J4y4Fxay5uwUQYiu2rvayND7vG3NI52kBOMod
1vb0l8bxcD/pPqcA3i29sPntf9L4T6Gv4cGlhTC9QonxKU0ap+Ud8uwvLAT1
BMnGjgFpzMqkdfHzF8PseQ/v3EN0fPjOH6tvVDGEenx2XeZAxwmO3zkVmsXw
82Cko/cpOtZk5uYG7y8GpQPrziteomNDT7sHzPRi+GfRZSORCDrWi7FJDF+F
gX9G1MSujo6P2SYeSerCcFww2UndgIFvmMhFRfEwFK8s7AgHBk7UC2sOmsDQ
EPPu/tR2Bh6SuGzqJvIe1IaCG55bMrBn8S6DNXrvIUpWMf25CwPfUfjFKAh5
D30hf6N0Yxj4Xc/WmvqNJbA2qDD90RQDtxj7jYXsKIHQpw5nf88y8GRqEWVm
WQKJhcLjuwSYWP+KwbHK4yXgdnwZ6hVj4hz6qkl8rwRyc9RXZysyce42WYUM
bgm8DZEdEjRh4oLE0XPh4aXwo+NEuskDJv4sph1l+aQU+IdOdZZEMfGsh0uR
1MtSiHjYz6/7mIk3QZ9wSHEpxOsqrON/wcRFrR2xAQOl8Oz1+ts7cpi4WJjN
9kRl8K7lwoaAdiYuORUrd2CoDDq/SHAaKAq/5bm42E6WQf5PTVctWQo/O7E+
34GvHJyPTcnfkKdwgHPrwdOMckixkcldpkxhY3ta9PWN5dBYt2FCcjWF6w8E
yKTeKYc/8vfeftxJYdy298TbiHKYu28s2GxG4XQbpZycuHKYucL2rjGn8D3r
YpvSzHLwePGc+8qawvv2TEe0fS4HpfvhNcrHKPzZ2I25QKsCRCfKBfguUriW
vcFJWL8CWDotzvGXKFxkJJIlvqUCTCaqhTZdpfCTbS+sZKwrIFeWJ+jgR2F7
1H1fy7sCfBclLzkVTGGuvrX0/toK2BqGm50eU7j93XL7I60VoP9rMOVVHIWr
1/58Y99dATd+s9oGEyj86t/QPW6/KiD1y2/NQy8ofHpVVZi/PBvkbEKnfqVR
+NeKTZKv3djQoBC5XR5TeHOPITvIiw3olZvmmhIK34w19jlxnQ3/hvN8URmF
KYbVyPIoNphlfL20s5LCevwu9dFlbDA6r9gp1kDhawXut7zq2ZC8w8d++AOF
Ky56wr5PbJj59MiB3URhmx9+abRRNoh6yH893kphr47I0EC5SuC+ezh+sIvk
O+LxDucVlRDWhQKFvlJY2PLZ/NbVlRC08n3i624KR1WmnZk3qoRVu/cG9n2j
cF5WhbmnRyVob6VLig5SeDZ0QtKxqhJun0vJUpik8DbTGfaW5kp44rQ233mK
wncW8fku+1IJnRsqnBN/U1jeW3T000QlXC8XzZb+Q+I/pdSwR6EK3BOuuD2Z
J/GrqAau0qiCTJGo5gw+Fq77qoXE9argVk7LSDE/C9vaGKRXmlZBNLN4J3sB
C/tsswiDi1VgrR5VECTEwpXz1sby/lVAMSQmXYRZWCr/EN+fO1XQ8Cx/zGgx
C8etPu7+LqEKhgdr9AZEWJg75Koa/roKkvLeXc8QZWGdJI+vZ3OqgH7se9R5
MRbG/1yz0KqrgjQnebU+cRYW/nRdWLS9CjZ+Tnn+QIKFLR7cxtzeKlA7FPJz
syQLd4s+0Hk2XQVDCbsW+kixsDo7muu3sBqW3Hhbw6SxsId/XNxRyWqwf+zp
mkhYYPqVlJxKNYynKhhkSbOwXK3hOKyqBmWjEn0NOgvrxrd/dDSohqTJg12P
CDvtFHqUuqsaGkK01NwYLHxN/rF3k0013D25vaGWcMSYrt3vY9VQayylosYk
+YiyVzH0rIb5P5c76wl3u00LHfetBtHy31vlKBae2RI2EBxUDewr348cI0yn
Vtamh1dDmWy6ZgJhzYHCtI+Pq+F2DPtNJ+HtRVb3ZpKq4fmf6B90FqnHvcHz
y95WQ8KaqG/bCHs6+9tsK6wGqY2rH7gTDl2/ZP1JdjV4SjfyPyScJJG+9O6H
anBOH9DIIYx7jOYzOghLDTCaCbe/6+xu/V4Ni7SgaIDwz6DzZbMj1dDId0Bt
lrDoUdEXijPVYHUz0UZYhoWV/024bbSQA7I5ESaShDcJGbi6SHAgPSxyAY3w
vo763WEyHHgqIndDnPCZNOfVWUocuKwQUruQcOD1v/RPmhyorjnSPUn0x9mE
T87pcYASmcW9hHM1NNqXb+HASGOLG4dw4/z7fGNTDvQoHuG9JjzQtP+xmzXR
N/ZXN5jwgqQR33tHOWC4UdXSgfDSqzcdsk9yoGLWxFCP8FoLeaPP5zgQrvVx
0ULCu5UzVfmvcUCvam18Dcmv828T0RWBHNhY3SEdRtinpnvY5B4HtDT0juwm
HBnn1XAmhgORfW/9hAinn5d8G57IAeGpUr98Ut+epZu8uvI4oMFvI8sg/Ge0
6eCCcg5MjWRn5ZD+YJSf2qRaz4Hf8sfX7Cds5BYp4NHLgVpF14+3SH8d3bLq
e8QwB/KGnsyxCHsxK9j5UxwQ7e6UeEr6M7lw/I6gWA3I6OgOJJP+Lfkv6Iw6
VQMDPuo5KoQ/OSlamivUwJ7ePo8Y0v9iEuasKF1yvt4t8zKZD3fbl/GaR2qg
Ob41dIbM1+01W27sOV4Db34pDu0inLCozdnzbA0Er36JYsg8NqUKauKAGthn
qtOmRuZVb97u3d7UGnh+Wo8nTObdbBf2355TAwY6a1zWLWJhh0fLzPVLaiDT
4YGSgyALh+l39cu21MBW2Wm9l2Rf8M4cWtLztwbuRy9aOk/2DV9R3vcmoVo4
iCXOCBOmxGQzymm1kGtqJiA+R2HDpDaTZJVaUAip+yE0S+GYr9ZX3XfVgnso
Fiwn+y1DO8vY3qYWRt9t800i+6/yKoNpdawWCvRrtt/6Rfa9TNNr/Qu1IAZm
2XrjFN69x+LLXEwtXDboPnDkB4X5S0wMQ4Zq4feN75zqXgrLSL2U8JmshRuB
6ZEOPRTWtl3c4c5XB7hGtmKK7OeDM+xzVow6YNJ0jaXJ/s5cs/253MY6WGlr
IinVRmHnpyD8MrgOzN7caV3FoXDNDd26CvV6OO8ZW7Y4lcLrJTkC/62th/WM
jxp9ryicFHVM/xCqhxy9n1aFyRS+nno3bsS6HhJulo4fek7Ot3E9ZPzqIS9f
MvxgDDmvEcs61VoPR9m53ba3SX54/umLDBsgpiK1LPQohS9p11W77GgAK7cN
mH2YvL/PLfneYNYAsj7dmTMHKPzPXNqSRzYNcMfOLmyPFYWnpTv9V7k1QNIN
T1RqTM5v1LfeH9kAU7FnhHJ0KLwsbHA6+UcDbL44snV8lnyfHPNJzhhvgN5j
BlKV00xs+y/9QP7vBsjBi1MiJ5k4pmV9To3AB7gy3GajNcrEMvJBniPUB1gR
cPqFci8TS79UHdeFDxCTZ29nVsnEgmVOQ8WhH2D2Zb1wUCgTD0596fqo0win
Fhenikkz8bvjoSUmeo0gUvjw5k1xJvZt3ZxYvKERmlY1d/wRZmIqO9Yt2agR
Zhgxgu3zDPJ9eWj26uFGaNCwDzwyzMDREy1LlAMbgZqL+hTGZmDjsVorjy+N
8IVtqvPai4GfDeRXS9xtAu5NqwcK5Pvz9EPz5afuN0GkS7tUQiUd62/rvVIe
2QRFl5Ljl5XScXWsiNbVp02Qaj+0WDKHjscsDoTycppAN8pIuTiejjdnT+4t
622CT6oRM07n6bj9+urOSwbNwL/3x3w7RccS8i9Gvn1rhr0tffO5FtL4zsks
5zjlFngW33vjRJ4UnkSvvp3waYWeSE4KX4I4Pr+mLJMqbYOgH07jI3gx/pJa
FvxB8RM4OuldK90qiP+can6kdrkDAl8d+7DyCR/W2CI055z/GZBAk53olt/F
OxIUj79hdYGvgUdYuP9Q8UX5o0rdh78An2zRltdyTcWaQ9airbu+Ap/y3453
GxuBLjkqXDbzFTAWCaswGoaFxY/Slsd0A4pUMPXtnwIX3fz2xaY98Nvwr9HB
Nj70aqd9XNFkD8j8pZ3ac1EQ/RqUleqL6AW+tU4HesMWo6y9OxaEb/sGlW+0
kkzzxZGPccCTzL5vwN1RXvj0hRRS7DRpexrwHfg8yw9kb5JG6/VvhC9Z0wcK
ayvO8mE6arFfoher2wc66kYR2uV0dO5uaquCfh80SK02PlBNRynf22RVN/bB
Ors3u58109E/4VrxekZ94F4BxVI8OhIYa3m992Af+L5482sLjYE4L9XYIf59
cOJs++gfWwY60VJ0ghbQB2Ev+sVzHRhooYCVyINbfRC3ITXY4wQDbT5wbVfM
HWJfo+7pp7MMlC7U1PQyog/2921c5nODgcIdr35lvyRcOr5YJpmBDv9TP83f
RM7Xvev3GWEgiSUeWfkfiT+udeuVJhjoPZ159kJbH3C1r7PwbwZasfgQl9vZ
B5U/nzv/4GeikfG+lnpuHwRu+KvGZDCRf9Xc29g5Eu+v/e9u6zNR0nnt0wbq
/eClO+kucIWJDp75oDauSdiPESDtw0Tip85/T1nVDzJBXTz560zkcTTvsMLa
fhCOt3m8IpiJNpgYmQqhfgh7KeI3H81EdctsVT9a90ODxafHtblM9Ks6pMfd
rx/caXvYdeNM9Fn044nZ6/0Q9+z9oMgUE5WYLR25dbMfAid4lYYzTBRW9/LP
42Bif03Ei+d8FFJvZDNqH/QDnufU6otTyLadf4fay35Qfbr80h0VClX0X3jV
3UhY02DlsCWFUlQLV7t9JPqKFoTHWlPo/smFOb9b+2HdbrXgnfspZDd4r0yy
k3BtrnT4EQrN/Ejr3NTfDwrLj9qOH6fQqkmeZPQf4v/Y6qftVygUudD2vKUy
F1QNUovWx1FozoG19sMKLlhIL5c0T6CQY2nDL3M1Lvz+nM+zfUYhHf+tF3dp
c8F9Q6/+2SQKVc6rXjZeR7imjmaXTqGpmXGfzWZc4OYZBTkVU+jwwdeocDcX
GvaqtK9+T6GSXGf+jXu4sD/dPGa6hEJ3vdr9DfZxwSuJdvlKBYVWTBYF6NoR
e9uk3IxrKbRv7Haw+nmi76XKvOAnChVYbDVL9iS8fPBHYAeFlNJnxVQvEftr
lDcJdVLox+kzd1WucSFu4ZWRX18oFDBk9Z9CIJFr+QU8+k6hAVMJyydBxJ5A
suF0H4UsXrGl/wnhgvC+/XstuRRaemp9uNw9Lpxwaz05OUChzP5lD6kYLiSJ
yW9fNEoh2R3tNg8ec+FrgJHX5jEK+Sbek2HEcyHSWXTi7E8KmTkJRtMSuWC8
d6y4eoJC33oGYsTSuaBze9x/6zSF6F1ZCQJlJL+9c9ct+Fnorpi3d3YFyUd+
r4OFAAuJbNi237WKC9j1cKzJAhYSiGwUb6kj/ijRKG1BFvq5Z8QruZ3k07Ro
OF2YhU77vttr+5nUz87r5PXFLDSQ6q1N/8IFmc8fdSxEWKhbVOzb1W8kHx/8
H7WJslBDuaq5xQgX2lQ60p5JsJDZxIia4E+SD26fzU5JFqpUyl6YN0H0xz3f
xCVc7LM9b/kM8S9vaz6DxkLrU8UetM2S+OcSzRMIv/vcdCZknsTDVy6rLs1C
qQb2KlMLebCO32C3Kp2F1E+o8aUI8UD1m/Tbx4QTI0Y/2YnwQMc0bYckg4WU
yrOzmOI84FO1ELlMOHb8Wli1JA98XfWnuwjLKBm5+EjzYL/IC+nNTBYKtxA3
0mXy4MT4V6uHhO+8fvQnVpboO51vto5iIeHP9i2W8jyw6/0y50P4hoj6GyEF
ot+lpfE9YT6DseACJR6kT36t+Ev4yvEc57MqxF+vLe3/slho8oHPlhWqxF63
gbAjYY8yo6Ud6jzSb2KWdwn/+Ck+FarFg4bVM5kZhE8pfvywTYcHcbPbV30g
3GcekzK9hvjjubqYR9j+msOt1LU8sAibsyf/A6grRd3eYR0P8MYRmcUyLHSg
Y2yjzAbir9v2L+R/ADUvzmXVbuJBG31rphRhi3W+P/0QD4SV1CNECdc476jV
28qDnNsbr/MRNn4gkTS4nQeBGwsujRD9ZaUf/eOMeeClOXixjTD6GXPE2pQH
CqaiV/MJFyg4rhPZzQP3INsbkYT1zTXoxRZE/nlF6BnCGd4/h8/t5cHX1YnR
iLB2Sm6l6j4eJHn/81yU8MtPvk879xN/3nxIaSD5W7HY+Nq9Qzz4XcifHko4
QV/ywA5bHqCI0RRjwv84t/w7a0fqqfE1/g+pV3R4rMQbB5KvM9IhSYSpUkee
kzMPjK2qXM0J3xvTKJM9SfLBMYJRUn8JhfHH9S6kXhU1AsGEBb39rAzOEvu0
GetU0k+ZY0PTxedIPNdpIkDY0Xn/EyNPkv/H/56tJv1YZr5qYO8VHlTuGLb8
QPr1fFl06CdvHoSFp1WbEVY2WLT2mC+xL9g4UiJF+kWp0+d0AA+k6u5sfEL6
X/ehscqvW6R/vpkfEyT8TTSz+koQ8T+qUsuZzM+2X0HM26Gkvkd1cljiLLSw
ct2rp1HkfvYql/Vk/jI3PrNQjyH9ozH5/AKZT8c3kpPpj0m+9OW9X5H5LYvu
Q0VPib6wnplFQix03S28pe01ydeLODFvMv9reuavHE0n/uuVCISQ/dCzz0Wx
L4MHkVYjtx+S/WGIDF3Hs4n/2e+3x8xTSIA+yi9RQvr5Sqyp4x8KZdw69CK8
jPj39WyC8QyF7GcrzOTY5Dxn9tpKso9Kvsc+VK0h/ZgaXNo8SSH/HFOtrS0k
/+LfLIfJfuO3fbHfa4AHowZrdjH7KZTeKD03N0T8v3rOOp7sU7sd154GjJB+
1X1fs/IbhbCO9Y97EySea60Cyt1kPy5YcOP1HKnH5+1O7WR/8yXbpvVID0BD
/edyPbLfK4ZaTz9hDsBX35Q1hhwK3dHZo31YZgCk/hz5Y1RFIVbO1tcf5QeA
z1EnamM5hbTZqq8qVQcAFyxpbi0g75fvPxNTNw+A+wrdtzUvyftAzdXZZQs5
f6pe0I28n7iu31VUtw0A6jz/cFEihc5NtD6L3zkAYa5J7irxFApaUJgQbkX8
6V5XSXtIoVzFW48vnxoAizJdr6d+FLrmxGer7zYAowuVeluuUWhb8iX5iTPE
344t7guuUqhBxzXG7cIAxDn38nZ4EnuwJ9rOl3CCruq1UxSibOUijCIGQMFy
+6bHeyjkEZ0WIl1C5F416nGyFMqejb5VUkb058uGCrIoNGt708+DTeK/dUve
kU6hW8uPXGisIfH2896IiVEoJkXkyL1W4u8Giduif5movMhJU3qYxHsmx6Oo
k4lkeuU4NJlBGBV6bTgcxURHtguVv5cdBAutNzHnHzBRwoufRWflB0HKc9PA
RBgTabpWZXxQGoSGZ3IHvt5ioi2/PKP/0xoEhS/q++wvMNEpocaTtK2DwLfY
y5xmzkSFGoHCtNOD4Kvfv0vyLwPpNbNq77mT+zO12yXI91n61Rf/Mc4R+82s
oUXjDJRQWyEr40W402Tzdy4DBZ4R1FrmPwh27040WjczkOVb/z1aEYQVba4L
vmSg/vXe0TuLBsH906N9DywYyK5X7CgHk/uXmK5sEwb6FByzfFfpIKRnJiwY
38ZANZ/zUywqyX2x02/1DBgo49pMkU0j8TdHYOSMIgNdLbnY69RH7sdNPUka
pSOaiYemv8QQKLxN0VcLoqO495Ki62lDYJfw679pfzrSMXjNG6MPgU6ENFVy
hY52q3ITjy0ZgobhnPANbnQUtMhWcYvyECBxk/UN5nS0sHQnxbd+CKRC6I+u
0elocoMi3zWnIfh6f8SmN1wafdZqaLpUQPR91Ph20oeGngzSvBcUD4G7gd/Z
Jk8ask/euyLk/RDwGfSy156mIZ5yq1dcBZErS1R/O0xDk3Jd8uwGcv8I+8+g
AQ3RRIaOM74PQTp3YVPsTylk1Cc0myo+DFKjkYYBtlIo/TEof7MdBl+mtIsK
kkDjl8eFjh0bBoW084/SNCSQns2LwU6HYcD6SzZpsCRQvqTk29YTRO5kVTU5
LI4qfLu2cDyG4euBqtyuaHHUYe99NOMmkU/bxoyMiaFFK/OjfVPJ/YDSCwIP
RNGRND2a/ByR3yn/bpUqjHwD4v0+v/xB/qf4wu+G8qPXXPlHEmYjwPcgdEVZ
9jgExgbYde0eAd8zvay1p8fB0XJYJXUPkcvKXbuiPA5LCwrSd9kQ+eWJ24Fh
PyEo9FDFHfsRQE8CyhKcx+CEXtSYyCUid0nsjGf+AKUbDGOhRMIyezl5Tt9g
bt1V8dYkwqbhTzrYvdA+3NuY+Ipw2c2Tz9V6Iczm7RGjN4SzZ5/8O9QN8+qW
5wIKiP2Va0rPfuqCzx9CHy9oImzxg5lR2Aw5N6ccmj4SfjhWu+BiE4RvOKr2
tI2w8Bbv56sawfS5dqZhF+EC79vpm+ohz6u2yo/3//v/yIzyyiBCa23oniHC
zlEr7uwpgbM9MVaKI4T5tI7eOVMMqmauX/AE4SHq9Aq+LFjI3/wsbOr/+qe6
IwLT4GvWhlN2M4R9H/GsRJ9Dwamnq3T+/v++wk9R2gN4uEz01/z8/5kvRTk4
c/P/AKEijMs=
           "]]},
         Annotation[#, "Charting`Private`Tag$2014#1"]& ], 
        TagBox[
         {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
          Opacity[1.], LineBox[CompressedData["
1:eJwVl3k8VN0bwFEi+5iZOyhviLKk5BVpe04qCWWJtEpCJUoqaZGllEi8JSHK
UqKEpOzmZBuMnSwVJcWMJURE4nd+f93P9/Oc8+zPc+9Vdjxt7SwkICBQLSgg
8P+nqTOvEfNtNznVZmSohmRvmr9FweOzvB5Yv721q7H5Lvz7OCr2tfxWkGzf
/2JtfSKY1bZlxcnbQNzarSeNK7LAzmmy6K68E7gZ6lrcyC6BzlU3t4TKnwP3
x9M1Wv81QTzT4kaw/HWozZjJajP9Cv6ir5ffko+AUwVqulHsUdi7LyFjZPQJ
8JyeUvmmgkh8zv/g9n8yYJn65/4mmiiKOmFnv8I4A3rejYU7aooi1ZYVDrRT
GQAmdzu/GomiTaltRz8WZYCg2+7zb86KorzUyDc5KzNBykR3ILFFFA3tHiw0
q8sEDWaZdcK9hcg25QH3rGQWHFEwVoUF4kjN6gevNCQbSoL0TjwolkQKvtvX
HUvIhhXlmb/U30simZfxIWI52bA2qRNSByTRtOjulVZfs2HRgO4iLzkp1IBz
znatfQM+61ZZbD4jhS7p+M/+/v4GVA6E5MQvkUZ10gzGSpQD9Z/3j9YayKAL
dYYQNZ4HG6em9JJO0ZDUyjffq0Tz4UZpaq3eBRp6Eqpz+8/ifJgtktzC9qWh
RvPlHfbb8uFSU3RVcTgNaXEZZ9Ui8yHD0c79eBYNfeYMJ2cZFMCO49Lmx8Zp
aPu7p1K1lwrhx46XZopnZVGXkvKb2TuFEGovsbb2kiw65xd7QCepEJwWHVzp
FSCLEuBeyj1uIbxdfH7T6/9k0Z8iP6P9i4tgapkK40OGLMrIP+DVV1QEmonS
TR/7ZRErm9YlKMiGmXOePnkH6Ojg7T823yg2hHl+cltylI4Snb5zK1aw4ef+
KCcfVzpawczLC9nLBpV9a88pX6QjIy+H+8xMNvyz4JKxWCQd6cfaJUeswiA4
LW7qUEdHR+yTD6V0YTgmnOqsachA100XRUfzMbCXF32MAAZK1g9vCR7H0BD7
9t7kNgYalLpk5i72DjQGQxqeWjOQF3unoa7+O4hWUM58epKBbiv9YhSGvoPe
0L/RerEM9Pbrlpr6DSWwJrgo8+EkA7Wa+I+Gbi+BsKSjZ37PMNBEejFlbl0C
yUWiYzuFmMjgsuGRymMl4H5sCeqRYKJc+qoJfLcE8nI1V+coM1HeVgWlLF4J
vA5VGBQ2ZaLC5JGzERGl8OPj8UzT+0z0SWJltPXjUhAcdO0siWaiGc+TxTLP
SyHyQZ+g3iMm2gi9oqHsUkjQU1or+IyJits+xgX2l8KTl+tubc9lIrYoh+OF
yuBt6/n1gR1MVOIat2jfYBl0fpbiNlAUes0/edJ+ogwKfq5w01ag0JPj6wqO
CpSDy5FJxeuKFAp0adt/ilEOaXZyeUtUKWTiSIu5tqEcmurWj0uvplD9vkC5
9Nvl8Efx7uv3OyiE23cffx1ZDrP3TIRbzCmUaaeSmxtfDtOXOT41FhS6a8u2
K80uB89nT3kvbCm0x2oqsv1TOajci6hRPUKhTybuzHnaFSA+Xi4kcIFCtZz1
zqIGFcDSaXVJuEihYmOxN5KbK8B0vFpk4xUKPd76zEbOtgLyFPjCR/0p5Ii6
72n7VIDfglR51xAK8QxsZffWVsCWcNzi/IhCHW+XOh5qqwCDXwNpL+IpVL3m
5yvH7gq4/pvVPpBIoRf/hlm5/6qA9M+/Vxx4RqFTq6rCAxQ5sMgubPJXBoV+
Ldso/dKdAw1KUdsUMYU2fTXiBHtzAL1wX6FbQqEbcSa+x69x4N8Ivh8qoxDF
sBleGs0B86wvF3dUUkhf8GR9TBkHjM8pd0o0UOhqocdN73oOpG73dRxqpFDF
BS/Y84ED0x8eHuU0U8juh38GbYQD4p6KX461Ucj7Y1RY0KJK4L19MLa/i+Q7
8tF2l2WVEN6FgkS+UEjU+sncltWVELz8XfLLbgpFV2acnjOuhFW7dgf1fqNQ
/psKCy/PSli5hS4tPkChmbBxaaeqSrh1Nu2N0gSFtppNcza3VMJj5zUFLpMU
ur1AwG/J50roXF/hkvybQoo+4iMfxivhWrl4juwfEr+rSoOVUhV4JF52fzxH
4ldTD1qlVQXZYtEtWQIsVPdFG0nqV8HN3NZhtiAL2dsZZlaaVUEMk72DM4+F
fLdahsOFKrDVjC4MFmGhyjlbE8WAKqAYUhMnRVlIpuCAwJ/bVdDwpGDUeCEL
xa8+5vE2sQqGBmr0+8VYiDfoph7xsgpS8t9eyxJnIZ0Uzy9ncquAfuR79DkJ
FsL/XLXUrquCDGdFjV5JFhL9cE1UvKMKNnxKe3pfioUs79/CvJ4q0DgQ+nOT
NAt1i9/XeTJVBYOJO+f7yrCQJieG5z+/GuSvv65h0ljIMyA+/rB0NTg+8nJL
Jiw09UJmkVo1jKUrGb6RZaFFtUZjsKoaVI1LDLToLKSX0PHeybAaUib2dz0k
7LxD5GH6zmpoCNXWcGew0FXFRz7NdtVw58S2hlrCkaN6Dr+PVEOtiYyaBpPk
I9pRzcirGub+XOqsJ9ztPiVyzK8axMt/b1lEsdD05vD+kOBq4Fz+fugIYTq1
vDYzohrKFDJXJBJe0V+U8f5RNdyK5bzqJLyt2ObudEo1PP0T84POIvW4O3Bu
yetqSNSN/raVsJdLgN3WomqQ2bD6vgfhsHXy605wqsFLtknwAeEUqczFdxqr
wSWzXyuXMP5qPJf1kbBMP6OFcMfbzu6279WwQBuK+wn/DD5XNjNcDU0C+zRm
CIsfFn+mPF0NNjeS7UTlWEj138RbxvO5oJAbaSpNeKOIodtJKS5khkfNoxHe
87F+V7gcF5LEFl2XJHw6w2X1GxUuXFIKrZ1POOjaX/qHFVyorjnUPUH0x9tF
TMzqc4ESm8E9hPO0tDqWbubCcFOrO5dw09y7AhMzLnxVPsR/Sbi/ee8jd1ui
b/SvXgjheSnDfncPc8Fog7r1UcKLr9w4mnOCCxUzpkb6hNdYKhp/OsuFCO33
C+YT3qWarS54lQv6VWsSakh+XX6bii8L4sKG6o+y4YR9a7qHTO9yQVtL/9Au
wlHx3g2nY7kQ1fvaX4Rw5jnp1xHJXBCdLPUvIPX9unijd1c+F7QE7RQYhP+M
NO+fV86FyeGcN7mkPxjlrhvV67nwW/GY7l7Cxu5RQp49XKhVdnt/k/TX4c2r
vkcOcSF/8PEsi7A3s4JTMMkF8e5OqSTSn6lFY7eFJWpATkevP5X0b8l/wac1
qRro99XMVSP8wVnZ2kKpBqx6ej1jSf9LSFmwovXI+Xr37EtkPjzsnyesOFQD
LQltYdNkvm7pbr5udawGXv1SHtxJOHFBu4vXmRoIWf0cxZJ5bE4XXoEDa2CP
mU67BplX/TmHt7vTa+DpKX2+KJl38504YFtuDRjq6J5cu4CFjj5cYmFQUgPZ
R++rHBVmoXCDrj6F1hrYojCl/5zsC/7pA/Jf/9bAvZgFi+fIvhEozv/eLFIL
+7HUaVHClIRCVjmtFvLMzIUkZylklNJumqpWC0qhdT9EZigU+8X2isfOWvAI
w8LlZL9lrXxj4mhXCyNvt/qlkP1XeYXBtDlSC4UGNdtu/iL7Xq75pcH5WpAA
8xz9MQrtsrL8PBtbC5cMu/cd+kEhwRJTo9DBWvh9/Tu3uodCcjLPpXwnauF6
UGbU0a8UWmm/8KOHQB3gGoWKSbKf909zztow6oBJ0zORJfs7W3fb00Ub6mC5
vam0TDuFXJJA9HlIHZi/ut22ikuhmut6dRWa9XDOK65sYTqF1klzhf5bUw/r
GO+1el9QKCX6iMEBVA+5+j9tilIpdC39TvywbT0k3igdO/CUnG/necr510N+
gXTE/lhyXiuO5dpWD4c5ed32t0h++AGZC4waILYivSzsMIUurqyrPrm9AWzc
12POQfL+Piv/vcG8ARR8u7On91Hon9kM+Yd2DXDbwSHcyoZCU7KdAavcGyDl
uhcqNSHnNxjY7o1qgMm40yK5OhRaEj4wlfqjATZdGN4yNkO+T474pmaNNUDP
EUOZyikmsv+Xvq/gdwPk4oVpURNMFNu6LrdGqBEuD7XbaY8wkZxisNcw1QjL
Ak89U+1hItnn6mN60Aix+Y4O5pVMJFzmPMgOa4SZ5/WiwWFMNDD5ueu9ThO4
LmSnS8gy0dtjYSWm+k0gVvTgxg1JJvJr25TMXt8EzataPv4RZSIqJ8491bgJ
phmxwh1zDPJ9eWDmysEmaNByDDo0xEAx463yqkFNQM1GfwjnMJDJaK2N5+cm
+Mwx03npzUBP+guqpe40A++GzX0l8v156oHFUtd7zRB1skMmsZKODLb2XC6P
aobii6kJS0rpqDpOTPtKUjOkOw4ulM6lo1HLfWH83GbQizZWZSfQ0aacid1l
Pc3wQT1y2vkcHXVcW9150bAFBHf/mOug6EhK8dnwt28tsLu1dy7PUhbdPvHG
JV61FZ4k9Fw/ni+DJtCLb8d92+BrFDdNIFESndMty6ZK2yH4h/PYMF6IPqeX
hTQqfwAnZ/2rpVuE0R/Xlocalz5C0IsjjcsfCyCtzSKzLgWfAAk1O4hv/g3b
E5WPvWJ1gZ+hZ3hEwCBcUDys0n3wMwgoFG9+uagZVgzairft/AICqn8/vt3Q
xKZLj4iWTX8BjMXCK4yH2PPZDzOWxnYDilIy8+ubZJ/UK+hYaPYVfhv9Nd7f
LoBf7HCML574CnJ/aa5WF4TxrwEFmd7IHhBY47yvJ3whfrN7+7yIrd+g8pV2
ilmBJPY1CXyc3fsNeNvLi5KeyWDlTtP2pMDvIOBVvi9noyxeZ3A9Ql63F5TW
VJwRwHTc6iivH6fXCzqaxpEry+n47J30NiWDXmiQWW2yr5qO0763K6hv6IW1
Dq92PWmh438itBP0jXvBowLYMnw6Fhptfbl7fy/4PXv1azONgbnPNTihAb1w
/EzHyB97Bj7eWnycFtgL4c/6JPOOMvB8IRux+zd7IX59eojncQbetO/qztjb
xL5WXdKHMwycKdLc/DyyF/b2bljie52BI5yufOE8J1w6tlAulYEP/lM/JdhM
zte97fMdZmApec83Be+JP25161TGGfgdnXnmfHsv8FZeY+HfDLxs4QEer7MX
Kn8+dfkhyMTDY72t9bxeCFr/V4PJYOKAqtnXcbMk3l97394yYOKUcytPGWr2
gbfehIfQZSbef7pRY2wFYX9GoKwvE0u6nvuetqoP5IK7+IrXmNjzcP5BpTV9
IJpg92hZCBOvNzU2E0F9EP5czH8uhonrltirv7ftgwbLD49q85j4V3XoVw//
PvCgWXHqxpj4k/j74zPX+iD+ybsBsUkmLjFfPHzzRh8EjfMrjaaZOLzu+Z9H
IcS+buSzpwIU1mziMGrv9wGe49YaSFLYvkNwu8bzPlBPWnrxthqFK/rOv+hu
IrzCcPmQNYXT1ItWu78n+ornRcTZUvjeifm5v9v6YO0ujZAdeynsMHC3TLqT
cG2ebMQhCk//yOjc2NcHSksP248do/CqCb50zB/i/+jqpI7LFI6ab3/OWpUH
6obpxeviKTx7lLWmcRkPLGWXSlskUtiptOGXhQYPfn8q4Ns/obBOwJYLO1fy
wGN9j8GZFApXzqlfMllLuKaO5pBJ4cnpMd9N5jzg5RsHO7MpfHD/S1S0iwcN
u9U6Vr+jcEmei+AGKx7szbSInSqh8B3vjgDDPTzwTqFdulxB4WUTxYF6DsTe
Vhl3k1oK7xm9FaJ5juh7rjYn/IHChZZbzFO9CC8d+BH0kcIqmTMS6heJfV3V
jSKdFP5x6vQdtas8iJ9/efjXZwoHDtr8pxRE5Nr+gQ+/U7jfTMr6cTCxJ5Rq
NNVLYcsXHNl/QnkgumfvbmsehRe7rotYdJcHx93bTkz0Uzi7b8kDKpYHKRKK
2xaMUFhhe4fd/Uc8+BJo7L1plMJ+yXflGAk8iHIRHz/zk8LmzsIxtGQemOwe
ZVePU/jb1/5YiUwe6NwaC9gyRWF615tEoTKS357Za5aCLHxHwscnp4Lko6Dn
qKUQC4ut37rXrYoH2O1gnOk8FhaKapJsrSP+qNColcIs/NNq2Du1g+TTrHgo
U5SFT/m93W3/idTPwfvEtYUs3J/us5L+mQdyn97rWIqxcLe4xLcr30g+GgMe
touzcEO5uoXlMA/a1T5mPJFiYfPxYQ3hnyQfvF67HdIsXKmSMz9/nOiPf7qR
R5jtuy1/6TTxL39LAYPGwuvSJe63z5D4Z5MtEgm//dR8OnSOxCNQrqApy8Lp
ho5qk/P5sFbQcJc6nYU1j2sIpInwQf2b7OtHhJMjRz44iPFBxyxjuzSDhVXK
c94wJfkgoG4pdolw3NjV8GppPvi5GUx1EZZTMT7pK8uHvWLPZDcxWTjCUtJY
j8mH42NfbB4Qvv3y4Z84BaLvVIH5WoqFRT85tlor8sGh5/OsL+HrYpqvRJSI
/pOtTe8ICxiOhhSq8CFz4kvFX8KXj+W6nFEj/npv7viXxcIT9303L1Mn9roN
RZ0Ie5YZL/6oySf9JmF9h/CPn5KTYdp8aFg9nZ1F2FX5feNWHT7Ez2xb1Ui4
1yI2bUqX+OO1ms0n7Hj16M30NXywDJ91JP8DuCtN0/HoWj7gDcNyC+VYeN/H
0Q1y64m/7ts+k/8B3LIwj1W7kQ/t9C3ZMoQt1/r99Ed8EFXRjBQnXOOyvVZ/
Cx9yb224JkDY5L5UysA2PgRtKLw4TPSXlb4PiDfhg/eKgQvthNHP2EO2ZnxQ
MhO/UkC4UMlprdguPngE21+PImxgoUVnWxL5p2Vhpwln+fwcOrubD19WJ8cg
wivT8irV9/Ahxeefp+KEn3/wS+rcS/x51ZjWQPK3bKHJ1bsH+PC7SDAzjHCi
gfS+7fZ8QJEjaSaE/3Fp/XfGgdRT60vCH1KvmIg4qVdHSb5Oy4amEKZKnfjO
LnwwsalysyB8d1SrTOEEyQfXGEZI/aWUxh7VnyT1qqgRCiEs7ONvY3iG2KdN
26aTfsoeHZxinyXxXKOJAWEnl72Pjb1I/h/9e6aa9GOZxar+3Zf5ULl9yLqR
9Ou5spiwDz58CI/IqDYnrGq4YM0RP2JfuGm4RIb0i0qn76lAPsjU3d7wmPS/
3gMTtV83Sf98szgiTPibeHb15WDif3SltguZn62/gpm3wkh9D+vksiRZeH7l
2hdJ0eR+zqqT68j8ZW94YqkZS/pHa+LpeTKfTq+kJzIfkXwZKPq8IPNbFtOL
ipOIvvCv0wtEWPiae0Rr+0uSr2fxEj5k/nW/zl0+nEn81y8RCiX74euek8q9
WXyIshm+9YDsDyNk5DaWQ/zPebctdo7CQvQRQakS0s+X48yc/lA46+aBZxFl
xL8vZxJNpinsOFNhvohDznNnri4n+6jke9wD9RrSj+khpS0TFA7INdPe0kry
L/nNeojsN0H7Z3u9+/kwYqi7k9lH4cwm2dnZQeL/lbO2CWSfOmy/mhQ4TPpV
713N8m8Uxjq2P+6Ok3iutgmpdpP9OG/e9ZezpB6ftjl3kP0tkGqf8VW2Hxrq
P5Xrk/1eMdh26jGzH774pekacSl8W8dq5UG5fpD5c+iPcRWFWblbXr5X7AcB
J53oDeUUXslRf1Gp3g+4UL6lrZC8X77/TE7f1A8ey/Re1zwn7wMNN5eTm8l5
13phd/J+4rl9V1Pf2g+o89yDBckUPjve9iRhRz+Eu6V4qCVQOHheUWKEDfGn
e20l7QGF85RvPrrk2g+WZXreSf4UvuosYG/g3g8j81V6Wq9SeGvqRcXx08Tf
j5s95l2hcIOOW6z7+X6Id+nhb/ci9sAqxsGPcKKe+lVXClP2iyKNI/tByXrb
xkdWFPaMyQiVLSFy7xrNeAUK58zE3CwpI/oLFMKEWRSesb/h78kh8d+8qehE
p/DNpYfON9WQePv4ryQkKBybJnbobhvxd73ULfG/TFxe7LxCdojEezrXs7iT
ieV6FnFpcgMwIvLSaCiaiQ9tEyl/pzAAltqvYs/dZ+LEZz+LzygOgIzXxv7x
cCZe4VaV1agyAA1PFu37cpOJN//yivlPewCUPmvucTzPxK4iTSdoWwZAYKG3
Bc2CiYu0gkRppwbAz6Bvp/RfBtZvYdXe9SD3p2u3SZHvs8wrz/5jnCX2W1iD
C8YYOLG2QkHOm3Cn6abvPAYOOi2svSRgABzeHm+ybWFg69cBVtqRhJXtrgk/
Z+C+dT4xO4oHwOPDwz33LRnYoUfiMBeT+xeZbhxTBv4QErt0Z+kAZGYnzhvb
ysA1nwrSLCvJfYlTr/UNGTjr6nSxXRPxN1do+LQyA18pudDj3Evux08+Thmh
Y5qp54oAqUFQep1moBFMx/HvpMXX0QbBIfHXf1MBdKxj+JI/Sh8EnUhZquQy
He9S5yUfkR+EhqHciPXudBy8wF55s+ogIEnTdQ0WdDy/dAclsG4QZELpD6/S
6XhivbLAVedB+HJv2K4nQhZ/0m5ovlhI9L3X+nbCl4YfD9B85rEHwcPQ/0yz
Fw07pu5eFvpuEAQMezhrTtEwX7XNO76CyFWlqr8dpOGJRV2KnAZy/xDnz4Ah
DdPEBo8xvg9CJm9+c9xPGWzcKzKTLjkEMiNRRoH2MjjzEah+sx8CP6bsSTUk
hccujYkcOTIEShnnHmZoSWF9u2cDnUeHABvIb9RiSeECaenXbceJ3NmmamJI
Elf4dW3meg7Bl31VeV0xkvijo8/hrBtEPmUfOzwqgRcsL4jxSyf3A0vPC90X
x4cy9GmKs0R+u/y7Tboo9gtM8P/0/Af5nxKIuBMmiF/yFB9KmQ+DwP2wZWU5
Y+yguECHrl3D4He6h7Xm1BjbyXpILd2KyBUWXb2sOsZeXFiYudOOyC+N3woK
/8kODjtQcdtxGNDjwLJEl1H2cf3oUbGLRH4yuTOB+YOtcp1hIpJMWG43N9/5
G3t27RXJthTCZhGPP3J62B1DPU3JLwiX3TjxVKOHHW73+pDxK8I5M4//Hexm
z2lanw0sJPaX65ae+dDF/tQY9mheM2HLH8ysohZ27o3Jo83vCT8YrZ13oZkd
sf6wRlI7YdHNPk9XNbHNnq7MNuoiXOhzK3NjPTvfu7bKn///+//IjfDL2JHa
a8KsBgm7RC+7bVXCPvM11kZ5mLCA9uHbp9lsdXO3z3ic8CB1apnAG/Z8wZYn
4ZP/1z/ZHRmUwf7yZr2rwzRhv4d8G/Gn7ELXpFU6f/9/X+mnOO0++8ES8V9z
c/9ngTTVkOzi/wGyUZHL
           "]]},
         Annotation[#, "Charting`Private`Tag$2014#2"]& ]}, {}, {}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{True, True},
      AxesLabel->{None, None},
      AxesOrigin->{0, 0},
      DisplayFunction->Identity,
      Frame->{{False, False}, {False, False}},
      FrameLabel->{{None, None}, {None, None}},
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImagePadding->All,
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
        AbsolutePointSize[6], "ScalingFunctions" -> None, 
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
             Part[#, 1]], 
            (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
             Part[#, 1]], 
            (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
             Part[#, 2]]}& )}},
      PlotLabel->FormBox[
       "\"\\!\\(\\*SubscriptBox[\\(h\\), \\(00\\)]\\) and \
\\!\\(\\*SubscriptBox[\\(h\\), \\(01\\)]\\)\"", TraditionalForm],
      PlotRange->{{0, 1}, {-5.773502403437462, 5.773502403437462}},
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}], {189., -119.58957682310464}, 
     ImageScaled[{0.5, 0.5}], {360., 222.4922359499621}], InsetBox[
     GraphicsBox[{{{}, {}, 
        TagBox[
         {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
          Opacity[1.], LineBox[CompressedData["
1:eJwVl3c81f8XxxEy740kM6uBrG/JSo7sWYg0hSIJRYOmLRlRSSiyEskolIT7
Dtnj2mUn69rEzbz39/79dR/Pxznndc77vN/v83lfCcdrVk5MDAwMTYwMDP//
NXGaaEUUGy2+I2mdKxmZ5cy6QtcHBZWh7SSL54W4ENLBN3GvCwT1YP2pepfX
81iSaVP3p0RBa9B96bQ28jiDZHvpX9kzwUvgIfSS/Pf2Z1K/4iPdSMGbkJjy
w1DDspqUvON4SJhgEDwP2JItw9pF8mcr2PdYMAb8qL0UT89R0qnTKXnzC+lw
qdXWn0pYJnHS/c8Z7sqDuCd3/32J2CTtsZydqAwvBEuC3shpVybk3awOcUtf
ofIhW59CMwsiKBSN1rGVQPRjRKn6xYLSI5Ui1kVKYNBZ+/CJURbUarbvl51+
CfBKQ96pDRa0v4Hvxp7YEqjIaWLaKsuKBmvmMj6pfoMnhK6YxUBWZPj9LaHp
bimEXm42Jh7YinYW8gwwMpKAJVhRItebDZ2LWLce4SeBWJV8qWIAG0q9NNpQ
LUeC9o0/2ZkRbEhux9ev4adIQKx9H+2XwoZ0btu/2JFPgkLElFpbz4ZUXttm
xCgiAN6R29+E2ZGDXcb5zAEE2ovv/dW+sKMgE+H4eAqCLMUdSpmIHWWoRHeE
LSFIbK53I9azo2nCXVN3ju8gnGQSV9XHjm6TzNUPqHwHp4eblDpGDhQhvsxX
GvkdKoTVOHVMONDnYd3GFs0K8A6G/qUODtRl5L8QaVgB1Ps3Cg70cyBqbjm/
mVUFECAs0WWUA6neU3eovVwBzrGKhaXLHKh4uyIVPauAXV9ZhFn5OdFXPSHx
TxMVwMJx1EzMhhOVZszfiImphKDCzX3eTZyoj0sh3upNJUgMsNaUdHCiDa+r
5dveV4Kou0c+tZcTHYExtkhSJTxSkL5iO8mJyrt7E4MnKyHSeTGllJULkdhq
am5rV0H5mE7uTi0uVOGaKHx6ugoimAZERN5xoQLK1at21CqQJGfP0z9woXQX
jW8XGX4Aw60Qrf5PXCjYufuMB98P2GVCMQ8q50JGjjwJgZo/IN+I3zGokwu1
nA4WyI34AZ+bYl+YM3GjPiP3HVvkqyE0+14nty03aqo57MSmWg1pPKZxUue4
UbkBRxH30Wq4cO8C40EHbvRG7521gE01WF4YaNC6yo0ctX8/l39QDYNRoy4c
vtxoQtWG91RTNRysT13xesuNlvceIea418CkraTw8xlupDWsUxPmUwMMRb4L
movcKCTRyNclsAa4Oy8HDVK5ET+f9ZxUfA1UPBkZIzAQkArj1ZaEqhoIOTLa
ws9LQD69cVGhwrXAoJRb2qhMQCg2ydB5by0Ue+5R3KJOQGxW6XTd/2pBQ/3U
3QNHCCi+Nu8a3aAWToZtpNzTJ6CSourjt71qofnxi8vFNgS0EbVEvFRXCy5v
C0723yQgPdO1mqMdtbC6YiGd6kNAEawMfmKDtaDwomf2wn0CEn3AOd+zVAuS
P8sdqgMJSMtVkmwpXgea/eLb4BkB+epZRIN3HVSELwv+ziEgptXsbcJ76qH4
s4rq0iABCTfp/AXFesj/EDiZNUxAyim/Oi+p10PoIffs06ME5GS89VWueT2w
T7aefTdJQLXxjnt0btfDS32WN+tLBBSlIahxpaYeIhkV50PZiCiTkC/ypLUe
5F6ayAxxEBEaNqB/6q0HD5fFkP+4iWgx7GbVxlw9sGWmFlXwENHJ3pZj0QIN
8Icpi+2NEBGJ3A+5+OVKAww4uFRr7yeiQxaiBn03GsBIynxJQ56Iju0ulGZ8
2AB8dTnnFRWJyLfx94zJswbg/pA0wXqQiIZFjvgMlDTAdxXHrZ4aRJRV9jeC
hasR+uLDsw4YEVHF07BrsvyNoLxd+XCrMRH1OElYHRdvhI+CRmKupkTERTi+
M165EayKPUbCjhHRdbv3KXLnG+F62q+wUGsiUqHbfz6R2wikq0cf37pARGbm
KEC/uBGcUmriC+yJ6OIrseOqFY2guc/OdNqBiKJVB8aFuhrhsqjUS/NLRES5
dlZweLMRwkP7qS0uRMRQXjLavrUJavm+HPpzhYj4uYQ+/eBpgvERD/EFVyLS
yfxpkrWnCUpMhmgbbkT0esjm/nXzJrjP+Iql8zoRfVIoMnK0bYKf/qp1ZZ5E
VHufb4e1QxPUq/vppngR0bJAe47qrSY4afLA4dRN3D9Li0Ha6yYgV1BdHnkT
0aU3ednzGU3Q3fFjq4EPEd2bIfgM5zfBbl6iCx1z5uOmbdVVTXCLzdvL8S4R
MVaY6ERO4/hi9w7KfSIS2Pae4EttAra1gfSHD4hIwY699zpDM2iciTtKeEhE
Z9ZqbljzNYOTp8moqC/up9E+bYNdzWD4ljqbiPlRbAiXmnQzbCxY1gv4EVHh
Af23wprNUNRyf52Gud4v3ZPboBk+9NNPuPoT0VDzFi36cRxPiwskY6aKXORY
ON0MTPMp4f8FEBH31Yqu4YvNcNLzpnsk5t1fJdI63JuhRNtVdgSzxlb/a9Xe
zZAs0l95KJCInNOA7X14M9T/TX5ah/n+QlLHqxfNQL/6tpYziIieAy058k0z
PJuM/G2E+X3keXffrGZYki/s98OMekvVPQua4fWSZ3kB5i4ZEdaLZbieTfHg
35inve+1WdfgfCzCBzmCiYipuifJoLUZxhq/1sljFuTTuKrW2wxmPLYmZpiV
HONVZUcxPzX77ITZIH9li8hcM9hwLhHuYj5HsyVzr+L4I+9sHmP2Mvvyms7U
Am7jpPDnmEMT+K8scLWAffXLT3GY30zcOvSHvwW04kMb/s+fVToZO8Vb4Mau
6e7/+zcGKTdXy7aAH5/Ir//raRAbmJ4ewmz3y/wO5sx4B9Wz2i3A5NnT6YiZ
f/fK1T2mLXB06qeXAebA3CfJczYt4OH2ZO9uzPNqezq/2rdAwfPCxXW8frvK
b+xBV1vAjIHlVxPmRnMrrWO3W8DVUr03HrPGzwkvAf8W0NzLuX4Bc6aj77vh
8BZYFlXWEMfMP7Oj70NsCzR2uyf04P0J8v6wzTulBRYWPUWjMC8w6uof/dAC
8YS1qiOY7SJ+3eH80gKzdaRnY3i/G/mv53Z+bwH5qvuhjzFn7k/c6drdAhKL
FYtl+Pzwfz5opjzcAtqXSK7HMQdp1/vRpluA+Cyepxefv/z36zeNGcnwKLFp
cQif1/E5g6hcVjLEfk1QOot516FnWdu5yCBOkEtvwec9nCQ90M9PBrd+/4Pv
8H2oYL65oiNChpjYr1YcmFeMSbyZEmRgZnmdexnfH+cOG0MvOTLcfWgoxXMP
33dKQD6rDhmszEOUxPD9u6PQXH/VkAwKQg5O1vi+5t8QHCWbkWH4RcFI4G2c
n5Yn+MqWDOn8GXWt+H6v8vYHKLqTgfCOcF4GzwOlU9KJMV5k0LVe2vEfnhfO
iTe+rHqTYSJr176D14ioYx/HdGUAGY407Du91x3ra6ranIojQ+/x03J1eD6N
+wdcK0vEeu8/dqddxvlqmh5LppHBMEOY4uNMRBGWl8qnc8gQwcipz4vnm4vz
033+lWSY/ZDOw4Tno1j01GrWLBmCpBT9uk8QUbmDb9anv2RIKa8TvGGF9+vg
9tPfVsiQNDw4yW6J51uXRnEjUyvUdQuqy+D5KyAadnuOvxVCVhhzFPD85n0v
/VcZWsFEIkru5GEi+nivNPWIXitcvk0Ye6tORBbmFlYGxq0QmHRrZl6ViKLm
vT/anmgFvbuxUz7KeL6r1ly7e7kVon9faLTA3xOWKqdpUlQrMD/YPC2xi4jS
X6y+qo1phRX5vQl7RYhI73KkaWt8KxA2UrX24e9TAEfR++G0VhBgUi4R4ici
mgXzFZbiVrBXXUitx9+3lf7UUZOhVjhpXXXz+AYBTf0bHOhUaoORKnkKtZOA
Pl+OqjBRaQNnQlSgcjsB+XVrZZAOt4GMb+6EG5mA+L8kumcZtEF0nKlQcz0B
v1fPbtw/1wa8qytmViQCSljqEtwd2gYn/yz6XnxHQEYLTdZeg21AmqMmFN0g
oO0OD9TGR9pgr9g1JovrBDRAlhM5N9kGCiGV7qNuBHQzP/yP/nIbcJfttmV0
JqA314y9BDnb8TyszNi0JSDqTFUUUmmH3Tt06tgPE1D65Ld6wpN2iHnYF39/
kxt5vDwu5fq8HUrpV8ojV7mRqt6fez/i2kHBlt8sYZkb1SdyyN9Pa4cDvyKy
3uL31YLF6ShKcTtMn9V4HdyP31tfqCeq/rQDYXqo52opN/oV+F//HfUOuPIl
M6r/NjciiL6bGxnpAFVayJXCAS6kfTKw/w+lA+RmDJiZe7iQV9SFhuHZDog8
wks/jt+PXYwC74ZWOqDhm75QfwMXShoLtevj6oQPWve4G4u5kEK+a1O7cieY
D68I0p5yIXNdheyKoE6QqGRyLD3KhSKuFDkn7+6C/HXPS7OxnIiqnT3i4tsN
KScnNCRX2NHNA1WF/JU/wSayQe2YLhsazK0Kb5XogVSl3JYXGqxo3bXjlczd
XhDoHx09xMuM9h/dSnP+1gfJVVILavOMyDBV4vLHnQNQPJaaSOagk7xFL0j+
PjcIQ9xmrKwOayS5aRvObvMhYLDqF/rv8zJpO3GerWptCPye1bAZvpwnMZNe
5Um9/g32Erdkd74eJ11V/vaL3XQYxO1Vnte+7SFlGzsml1OHwc/V9EjR+W+k
5SmhbWOxf4BBrne4V6kaik4YbonRG4Hki6aGzd/7wdco+E3h2AiIdzHEx4uN
g0S/yc+04FHw0yWaBefOgoZqUIzggTFQ+pm7ZiT4F87talllbB8DbUKqQr4m
FQiCXkXfOseAPKdz3MuYCt+37/C89XMMtv3LHZc7SYW97GcnJvrHwF74g2f4
NSrM/R3rapkYA6QfEzKTQoWAOlpBIm0MGK5OxOqw/IPMmwoe6rLjwGDA5LKz
+h8s10cOX/cfB/tsgm+64ir0cXa6bASOg/gXLaNP6qtQYSYy9yhkHJRYf3wt
1l2F6Ob360nh4+CndSQsz3YVZNtq+JpejENy7dcoPd9VsPvFaCjzHvvXk9PY
m1ahevxW9u+2cdAmDb+bclyDD9Jl/7l34nysyQNsbmvw/Apz8Uo3zse7Zr/r
1hrYTz2rIvaPg4XBjOaBR2uwNpvXf2R8HKI7cxg236+BIpVCTFjH+juCFUQW
1iCO2e6m1e4JGLJZ6XHzXgfaxZ2HWvdOACoJU3LyXYdLleTl4zIToLSu/sPm
0TooBeh6mytMQPQ/phSxl+tQS5e+a6Q2AflH6jttPq/Dv7W/vlpmE3B9JZRs
/HcdTi48Dpe9ieMnk2Y0L29AqYWuWdbtCZh/7dmn6rEBkvkbXNJ3JsD+BkOB
7K0NmPW49mTPwwkg33DmWgnYgOBp66fiodhfclDqv6QNKBwXe8n/Gtf734C/
UPsGbB8oSmWqmoBtXZN9n1U24QnXgwdfqifA77Arl+yRTeA4rHfKrQ6v5/D7
Y891N4Epro27qxnXG39v09BiExYt53yyfk2AxUdyqvqVTSD/kD5uMTcB4u7Z
dI34TTBbmpNhWcS8b+tX7jebUCv5hblkCddX6GDelb4JJF/9Eqk1nP+X5KpR
/ibkqjvu+cdMAW0ZnfWC6k2IyHm1nihEgXmWc4mJC5vA1ufYZSVKgfx070uN
1E0I4pD9uFWcAgwW5Ob59U24d7nY2XMPBaLPGPkKsdLAVaKzVU+JAhZSaGZe
kAZGLwiZU/oUEE85tJQBNGB54G+t7kkBJS1PHbFAGhQuTK+SbuD87INCJSE0
uOR86o3BbQog/7fhpmE0qDquOHniHgXInuOyVk9pECTZ7+sRjPX4prfNJtGA
uVYtOy2eAvZ+dgx2xVhPM91C9jWuV8yew+Eb1vtIpOYnUeC6ibPvmXKslzCm
XZ6G61fb/0apigaB7jFdP3NwPnU95ystNGDaPs9IqMD1rwjEcYzQ4NOjs+9i
qrDd0I3mNUYDx41qM+Ea3B/6tdTWCRpUjCa+lG7E+VMPxnnO0CCg2FRetwuv
x+vU1GEqDQ7If2mr+4nrbeyds1mhwXCKpI9FLwWSHzgJO6/RQCd8teL8EAWG
BlT6XGg0YLR7d8pnEutdeFj0j4UO+W28NNo0rkfjd2rFVjrYGz5MC57D+c8m
Jwey0wEp2cw+W8L6rgPfx7no4LdlS1AODcffZjVT204HJR8PGWXGSfAzXnEr
4KPD0PSv5pItk3gevn60m58O2l35grVskzC09jZpQoAODFl2ecO82N/DjXlF
lA7V090eb3Zgf5ujsofF6BChZKlwTmASxLX8r3mJ02FnsW5Opyhmsy7jMkk6
9K2Xuj0Tx/FhRd1kKTqkgorccSlspz+//XM3HRRqpLNrpScBlQ3/rNxLhyWO
VNfg/Ti/hOiLd/voUHJMWFZHYRK05yZP+Erj9TyLodCUJiH5wEceUxk66Hdx
Z307iPVXO+o5ZOnAIfTIxUcF6x3/dq8cM/k8g/QhdZxPt07ceT8dzo0uZuRq
TYL9wXm1p3J0kJRxc756FNtN2tP55Okw4Ta6R1oP51fyooZjzs23Gx0xwPmX
/pP9h/nGUnd6ijHOn+KteVKBDmpqlpfszLCefqZMFmbavXop4eM4/7T07Bzm
KpLun25LHJ9uFyKrSIewLWWpMdZY3yd39hRmC0MVR0tbXL/3A6l7mPnD8yQI
Z7D9g5LEU8x9zdK/68/hfHvkRxIwp/KmJj+68P9+dLvEYXY5KWyv54jtO2Kz
H2NWSIgRY3TC68lozPTAvNTPPVh2GevlDJ0zxPxV4lHSXVdsV1et2o75oROD
nao7rtf6UG87rlcv647o0jW8vwTtpEeYOWYW+/K98Po8S9kVMZOV3F6738Lx
EUShetyP2JujZ2V9cH7XpIZTmM8V2wmP38V6gs1Cvf/v70Z3T9oDvL6MLcyW
mCfAMsHeD/uLpgeW4P3IDaw/LRqI6wvni92J+WaNrmBPMF4f7auqC94/+jGV
uBPhWE9STWgE73/VszzbbU9wPbM9J4iYw7qkdzZF43oWDAgK+Lzw2wnHGsRi
fzLhn/4e3L+UGJst8Xg9Ncq7AJ+31FHuHegVtu8r/rIfn0d5d4YY9RRsP3/1
4CA+v4v5d05Q07CeqRMhA5/v4qVF3oIMbO+2MLffhftzf/Sp3AccvxE9kSuM
+4PsLCm5uP68vCO6Qrg/W35uy/iI16tsPVGP78/Z8PoosS+43tEKxcIddPBK
yIvkrcB6ZnqSswQ6fNlIeFRRheM1TW33cNNhwy7E36sG64uoH7bgpMMjqfO3
2hqxP3E3kz++768/cJx/1o3tUXlyx+g0+E2gntTpwf2sdr4juUmDvZ6/LRb7
sP3r19OTeJ7kHyrWsxrGds3IGms8f36UO8nxzmAOvLjyfJoGHBKWeyvmsL6H
ZwDzJA0sAjXFvRZx//+0BLmM06DHcDtf2z9cX9vPEY5hGsyS0fpTpinwi3v+
qbiLBgJ/hBt4BKZAW/tGaFEZDc7rb/3xXWgKkvslaGdLaJD6brHcUxTbk8OK
lj/TQM6t7lOrJI6njfQy5dPg6PLthKfyU8AwfehdYAr+Xmxtu8Kji5mbqCkS
QIO8K2UXv+tj/x0rB5cf0GCpIfO8p9EUiA8yq36/QwPfaF/LVnPsLzpiccCT
BjGC8upPT03BEN+Bmz4XaFC2P5SNx2MK0M22+0/VaaDSsbPp2XVcn7u105wy
7s/9d0/5bmD96/o/jyrhepuqhQR8sH+RvVXVXhqEXmORFwvA+nsXjGE7DawK
AizlY7G9R7yHY3ITGs7y8ufF4XwnQTR/ZBP0mFN7lF5hPYcH5caDm6Bq8/2i
cjLOp6u37UzHJoj8o986/H4K7KW80mbLNmFc40GCcTmOf7IsPPpkE+z/cF1o
QDhfV/FSc+gm9IS/ljKvxP5KZvQPAZvQ2Pftg0Ut9tdqSdK/vQmfHq6V27bh
fDnfvk6c24T7Fd5/nMawP6Fz8e++TeAx8ZILIEwDQ6cukbNoA5K/Ezk1eKbx
fnJHtX7YACX1HMrC9mnQbpX58Th9A45JT2Q4CE6DfYyaQcvzDQhjtZM4uhvH
P+9Sy/XcAOZKY34GDWy/AXXFshtAPSzB8NAJx9eIDI0/XYfggvKBQy7T+P85
64kB/N7i23+ubMYV2+8aclY/WIeDQi/vnr+O84cUHLlyZR2/s7iWNe9hO9nG
kAbrQClcoaxHY94323Vhcg365Mntd0qnAVF+KE0cXIM3UzwPtpAwr52xbJBe
A8esE3sjv+N6rsuop4iuAWV3t09y9TQkly1Z7dm6BlThAdEaMrbrdNg9+bUK
PBzTl/lGMQscsP59bxUMxrZu5HLPQDKHTvztzyuQnwS7R+wwv7yXXcb0D/7e
/bvVwWEG0DV2seAlKqjYvpvqvzgDDH7zcjBGhW9EYkG3ywxov6RyhddRodpv
4GiDF45vFHjmH0WFXscHFz6F4PgkZ6txASqw7vuW4JeL/U9/Kg6QWIbzeSo8
orQZGPp1PtSB/S98PrNCIDPMgnjirSJ16iIQWEu4ArfM4v02tWT8swjo3BE2
CtssaDueq7ErXQRJDj164XZs5zQzs/JYhLFLljNmMti+SSwQaFkADyG3uvvW
s5C8lvqdI2ge/IJT/PvezwJD083EoFtTwO291cQhZxb8eC3NfhpPQYKLO+9Y
Ho5nO5fMvWsKCkzV0+YKsf9qsIRo9SSM8bRWMZEwR/yebOabBNMkBjaZ9llA
njfzfD5MAP+XC09urWMWXMgpqxqFnAnRVwSzOWAwZx98qzgIoYnB9gPHMFN2
P2osHYBLVjN7ci3nwG+DzJpuPAAipaX55raYke0xJ8d+CIs6Wx3hiHl/hJFi
dC+4qMQvcNzB8RxLmu193SAZxGe0NQNzZS+aUScDTe0+d3cm5je2+yTvtsCv
mT9tGdmY/049r/ZthmjbgvMGHzFnTulJP24EuqzVjeBSzBrir0xjaqGvNSpp
SzvmP7tJ1HAExSH/LrZ3Yk74foZ/GwliDl+QSfuJWXa5j8paBqZvFQp1BjBr
Bf3sny+GEp+mOn8K5m1LnZpF+RArfyjKchpzI3W7mkEOeA6/tpaYwyxnMegg
lgXSZm6DaAkzasxerksGZsaO9Oh/mH3qnMpU4mGo6LCr/RpmaUcrx45oKHVN
U1TaxDyUb/Dplx+8FONcptMxMzBEWFxL1voftZ1wxQ==
           "]]},
         Annotation[#, "Charting`Private`Tag$2055#1"]& ], 
        TagBox[
         {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
          Opacity[1.], LineBox[CompressedData["
1:eJwVlnc81d8bwCnJ17jXyoyQSplJiHg+GREaiihCokEiIk0ro7JDhEpJIqOM
ZB0Z9yIyyior4V4rRDLv/Z3fX5/X+3We85xnfx5pR/fjzutYWFi+sLKw/P9r
4kxvqxqz1C0+U37/mPvzSjZ9MY8BUTVIl99sHSJ5F+15lphSIGoAOvsXWdY2
RSLT5q73qaIW8LvAsOTohqfIyulfRayoE3TkP0nePZyD+pRD9SNEr8EdLft0
rRcV6PmmoyEPRO8BT+mEN9eWZhTAUbDjvmgclLAMzN8W70W7jGLC3nvEgaGv
WJpfeC9qD3Yf+0GNg0ONHWUaa71Idr1CtpJPPIR2p3nX9/Uhylq60rf2BHBN
uhjmljyAuOcS9m4JT4J/BuVml+79RIl9N/WLGE9hMmRmem/nMLI+lZY3M5sO
32dGrFa4J9D0DwvOF2KvQMa45Azsm0AhdhzOJ/RfwX7rMTcn5wlUcM5drDju
FTxm3q81r5hApCs6wbc0MmBmrmjyo+skqgvsOc1+5zVole3XrKueQqpv+dg3
c2TB7nWCmxcVZhAXM8DWSDIPij7p908l/EGJl6zsFA7mwUL9l98TmX+Q7DcF
B74reTDncLT1R+kfpPum69yPijywihPmi+n/gz6+SSj6oJQPwgd4O823zaGp
E5Plpl/ywcqbrVUpfw5ZZj7+7MXzHvrs2R9fKptHKWcCzc5Lv4ea9nae15/n
0RC/W7P13vcwa0992/ljHrnf0WvROfMe7MXIV7hX59H941PtG3PeQ7eRs0m7
9l9Usar3PdmsAMSNI5saSv6ibea/6TUPC2F4fvC/W5kLSMzPSOtCWiHs8nPw
1ilZQLw5zx9yfigE8vEPa9PUBbTMcULJfKgQnvt+89xGW0CtVR+8+jWLwPiU
yrF22X/opkoAY3GkCLZPPhhST/2HvpAFBZWID1DmlVepH7iIanTcnNssP0DJ
hEEgb/QiKnGlFF9z/QDvfjHamlMX0Uuq76myhA/gsdywVezjIvL163tqPPUB
ck5I/Vn6vYhkpjN2nntSAvc1xw16rJbQ9S/7IHH+I7jROsWVJZcRSalopIGj
FJaWt507tHMZpUeohK9sLgX1XcXxJ9WWUZvZjh47w1KoXaJTD5ksI/nPgl7b
EkpBU7k675H3MhqgTme81yiDjfdi2EsalpHRp1ek5pvlkGEtknzy4grql5Iu
YkSWg7ZrX+3Xqyvomn+KjcrLcoi5b6tmcGsFpcGjzEefy8FvY/c0I2IFrVT4
653eXAE+36d29L5fQXmlNj60igowcvu1SXN5BQkX8vWzsiIYaXApuO+3imzD
VyyGhRCw6AlpS4atohdOI58pCgikPZO00qNXkcKmjx8fWiNw/fYw717aKtLz
cYjflI+A9/FQx+PqVaSeYpURp1wFITUXtDjXraFTYU0/g7WqwM3IYfrDf2vo
9rUDEtcNq8BgosbSim8NfTKTjztlUwX1l3cbukqtIbM1RoBkaBWsml0QoOus
obN2GWcy+6tAYveRR5o+a+ieiXhS0lgVvIRG0vo7ayhDPfrbg/kq4Ow08EZB
a2iSdNPUjfMTeF17wkeKWUM+6PA+VfVPEO92f3Jd9hoKl/orWB7xCTaxhJgf
6V1DxUP6TS37q2FY4jpHsBoDdRoHzEYYVYNZ3Gu72/sYaCG3UsjseDXc9iXF
nNdlII1b+87WX8DyHpKJAsYMVCKgvFAVWw3ZHs8iW08z0EcDMan39Gqok6EL
99xhoO9ZVoYec9Vw7q5kIzOAgZZ5412UGNUQPsQeJRrCQFp95KIsgRrYkx1u
tz2SgUq9N5i81K2B5+G1Xq9SGag8Y8YrLq4Gitkzr+4vZaBebqWk489qoHYu
lRZfwUCrnq6VvFk1IH3vU8ZQFQPpwChHBKqBW94qpJNUBqrs+pEaPF4DvmMb
fqZ/ZaB+HdEa/b810AGfmImdDMR4eZLOylILP9npgf49DKTr0aZ6d1MtVDYL
1e4cYCDEQaX6ELVgE2EeMzLGQINX2KbUTGtBqKRK1XuSgVg6DvDPWdbCoFTP
icXfDESkldu6u9aCw6N0mZ45Bqra9372QkItdJgwzDes4fvPpoW2p9XCUiH5
2G4mvs+uuH84uxZidnGMHWNlogPtr0McPtVCq+ThJZcNTFTtkip+arIWbG/6
/eHkYaKCMVdXu4VaeLXLtqWIxETpF7XKzrHUQVxy67IlLxMFn+86fUWwDq43
Rhr7CDCRz8irLC/JOpiLsPdYEGSi807Xln3l6mCXROesqxATGTvyPQnaXwe/
3lRza4gy0b6fA2NhB+tg+i3KDhdjol0Oufsij9VBc4hHXpc4E3HbmfYkOtWB
cOPK9GFJJmo5FSySG14Hd3vFXpbJMFFV94mLBQl1UPFLpKh8KxPlW8mUlDyv
g5Wu0QMFskwUa4msagrrIDqWpct/OxMFfYt4XV9ZB1ftvg5b7WCiayds/zXX
14GrzD1fWTkmOmm+lNDdWwcfUiP2P93JREat1NG+0Tp4ctrN03QXE2keTVD/
NVMHOWL79v3GLPfFKYS+XAfvHAofhcgzkejhPZ1TbBTwyHtxT1CBiTibWLfP
kSiQf59KSsS8bNLqvShCAVXPUTU+RSaaaHhatyZDATRRveSHudfYbdN6RQpI
3ZByGMbcTNV25tCggGhqtYuuEhNVHuQs4jlAAdfvlzdHYs6t62YTMKXAYMHQ
9a+Ynxm8thCxpAC8pfmRlJkousY7XcKeAmYHQQMw++sZzMtcosAXtpznzpiv
fuI3kPOiwH2X+coAzI7Ez0eKdyhgsNwd9wjzCZT3SzUU26cuuS0Zs4Hu3T2a
MRSofxHqmYhZrcIsSCeZAjKfuv0eYt62X/yr3isKxAp2HL2GWahsTMY4jwJ9
W4iR45jZtUo8D3+kQINzn94OzP9KQqqP12B/L3m4zmL76RqW/NbNFEh/W372
Heae4q2OZ7oosLkgWO4C5sa9f945/sT+MCOr+TGXFlaxXpygwLJAimohjlf2
nihzt78UGPPyuGWKOeX9mTRPJgXG01qedeP4h+9WmL3+HxVKpO68sMF8Rbkh
OlCCCp3ibYf1cf7scx8Phu6g4vwzVl7j/B5TPK8SsZsKgbfCHq3DrCq/vvWx
IRUGLdH9JFwvW7PatqQepcKq1dxUB64nwZ3P3V+cooLYp5iDHJj/btch57hR
weWr+OCRbUykO6RHfeBLBRb9D1+O4PoMSTX2uxhEhZyMzmU9XL9CghbTW5Oo
8Dr7oyiHNBPZtZx6zZpOhbd37gv0bGGijAf29gO5VJB/9df6Ke4HdVbXlie1
VPjvZNm3DZuZ6G65R6hvCxUkeKX5M3E/Ua77wMnvVBAJ0H6ji/vN6ndAHt8M
FXaOZfwxxv3o+yMxKky8HtJvrbNsJ+N+SnhqdH57PXxJKKkWxv3OcTydqb+7
Ht7JW2SYczNRUn2eO/NgPQjJWvS94MDxL6Ic9fGsB/ElabcyFiZajZonOzXU
g3WQyc56PJ8MTJepB77VQ2j6npSTeH6Fs7P4bxmoB7G6cxU9eL5J3OGa+T5f
j+vhnUjlMJ6HLjKt5lINYNjyNp6J56OfwbFouN4ArTE3Ki9WM1A909JYIrAB
bgnklusjBuIts2FZCW8AJbGHaQLlDPR89wWP4hcNICZipRhbhOeh5N1jil8a
oN/vZx5nJgOtW8rmFd/WCHZHNvlMPmAg8Wa9OVBuBBXEynkqlIHU0no6nPY1
Qrh7jEx5EAM5H9qYnHu4EZTO8U8538bvJzlu0/NphCannxrGbgwUpSWqdYna
CJUHx7ebHGagzbdDzn249BnOKtvctmJnoL3HJA72en2GGvdS1SesDHREtlCO
9e5nyIu91fB1dQ35Nf2cMon9DAkWyS/l59bQ0GYd3/7Sz6Dw+PHpKwNr6E3F
XPgG7iZ4G/7RUq94DakzHYpP5DYB56+TsZpn8P/7cFWgYUkTiN3dd+Om1Ro6
l7zlqEZ1E1gTSXMF5msoWqOfJtbZBLpKT3N4Dq6hMXcb0aG1JlA/ZR9oq7SG
UgYtb3scboZ6rSYul7VVxFptohcx2QzEi9IQq/hVJMKbRfJbaAYOJTbRmMhV
pGT33w8Pli8QfVcrvjp0FZ1epnpZCH6B2LPaJ3lurqJCVcNX4vu/wK4e5YN6
dqvo/EvgyHqI5ftmtBS2raKme2pfKLtaoCtfx0EgZwVpkT+vi9nbAvOP0gQy
0ldQZtJZDRuiBboXBTKVU1ZQUG7k82nLFsg+MBuw4yGW76Z7igS0gO8LudNZ
eD/LlE8VdulqAdV9Z9OY0itIbywwn12vFWr9ct+xRC6jLdETS29+t8JcvD1Z
0mwJVZ71e/N+rhWOcB7n0dJbQnZ7BE6VLbbCS50L349oLqGUTq2SpnVtcJ5d
ZcpRdgmJSDzwmRZqg7itxfp7VxcRf5bcnBq0Qcfry3LBWYtoQ63zJIpqA/o7
ffcR1kU08W+gv0OlHQaTn9MNUhZQ+nhZIynyK3hJJknf15lDJInX08PD36D2
o9gpBuc0Cr9UdP65bCf4S1rGP7hOQwtE9vBFvy7g4BeLmjvSh66p1hYK1XQD
r0DGG/HvVDSQW/uwTfo7VF1YUjL5XgkrLt+Sd978AVLh0ukeiT9A/sBGxvmy
XpAija1r1qWB0QvpC++E+2Gm4ZJlSMMMXJewl/lpOwDWob1FYk/+gsKkJVfX
4UFgSe5tszNcBgHyDEftMua5pmNZWkxgQ8l5W1N+Qlic4kzdd1bCVa2s5z/T
IVglOZ0SUGQjsg85Pq9cGILL1qsCcJyd+Dshxjua8As0AzWSOxQ5iKITRuvj
DIbBwNBggG89J+FnHPyscHQYNE+bbDobykW02120VRkbBpXKvwcmw7kIWW9T
0bcTw8CStHv3tVguojGN79HLmWGoslk0v5nKRQiupIbELg9D5ju+6/YFXERm
TrGbB2kEHAJmpMP7uYhWfrq2gvoIzFQYRjqrchPSfSbdL4NHgFc81KG5hZt4
UK2dZxk2AsaqQxnD37iJP68VQjY+HAHrCdKHfz3cRLUnSc01egSOaa8q8g1z
E04c7VGqySMwKMY05FvkJjL3nDL6lI/1i19ONdjCQyg9uFDc/wPr19s06OrC
QyS4W0dE94+AVGU619IVHoJpcchJ7+cIRKesNQR48RCtW+T5M0ZHoNt312Lw
bR7iatFvN7dZfP/6oXHrSB6icNB72yr7KHg0O6bveMdDaGncixNVHQUVhtp5
2zkeotNRVD1VbRREno45Cf7jIbwic7ukNEaBd6/FqfplHuLtSLeY3P5RkFso
lJBdRyIk4xTT1A+OwrGgsKksXhKxbrYz58TpUZCqiveYVyARn7N2UiMCRyHs
hqaOmyOJuNhZeZEveBT8Sb06ac4kgm2dBWd86CgssgdtbLtIInRP3T2cEj4K
RKvBzFZ3EpG/8evXrATMgbdmEm6RiDin24PULCx/+qtn/iMSYSvZssT6FdsT
v7nkdRWJIIl6FpV14HOHlcMPa0jEJ4FNV727R0FzSKnsEoVEbP/Phk7vGwV6
l7egcBOJmJ4b7WyhY/8t8qP3dJGIwAZGQSoD+1usI+05SSLUatPcrVhpkBjd
f3LdNImgVRrI87HRQOWyjVHELIkwK3zw4t5/NFhcajR/tEAiNj0TinEVpEHV
ntzv9ixkIvOa0pV9u2jAcXBCcYmfTJx2b9s5p0AD34lqbbVNZILH5drIW2Ua
0PvWaJeEyYSnfamt1F4aRN/2E6wTJxPaJgdNNxI0yHTuf6glSya+bLGT67Ck
QRjXVWcpNTLhL8Y6HGmN9WnOB7Gpk4k9m9KfGdvQQIpxVvaXBplI5BwXKneg
gf/2gV9R2mTC8a/3hpeuWD4/XP61Hpn42xgx5BFAA6JZ7Ojno2Sil6vj4moQ
DUqmzhXsNycT1Wabp0NDsH3Os2pvjpOJ6C9ZK08f0iC/jueBlyWZ2NVOFWyO
p4GIeNmJ5tNkgleAnGydSAPe9vgbwrZk4t+Jk9LDT7D/7yTe2Z4hE7Udw4or
z7B/Ry4d7bYnE3Y9rEY7s2ig+dNOKs6JTBiIHWoufEuD1jy+7GJnMiFvE32C
yMP++nzX/naeTCz2SjpYFWJ9FkOXWC6RidhB7RvBlTSQk9Nq2exGJnylg5i8
n7D+KC5H4Stkwt6xMTilBtuDbKa53cmEwrB1bEE9tr//7Rzdg0xQaN7ZP9ux
v4v+N52ukYm3chW73Tpo0H3jQ4m6N5l4dImtZLGLBhcfdYys9yETDhOxteQ+
bO+/Vfao62TioMJ3k+QBfN9batHMl0woukm3bR/C78/bt2+4QSaWf+f16dBo
4GFzYf/Fm2RiUPnfuYYx7M/1Qw18t8gE1UN33GIS+7N6a18x5rg/TQuuszRw
yGCvnL5NJpQXxshPVvD5KWnlbX5kQkhjd8I2Bo53zN+cV5hXr/tufsdCh0TW
IDZpfzLRuMS+s34DHZ7Pr6lyBJCJfK0jeSc46MCbvYHjGubHt+L3DnDSQWTd
Su53zE5rW/UWyHSQWx66nBhIJkx0XesD+Omg0jLtP415t9/7Izyb6LD4VvLs
gSAyIVK19C1RmA6+OatckZgZLAdsZMXoUDIu5N+BefhA2M+8zXTIvLtcJnyP
THwObLmgvYUO/kFqlRaY39cI/aZIY338x4PDMSey2V07LksHa6NBMsLMOCe8
t207fp/KEjKB2amm9e/RnXRwKP8+wx+M/ZN5UPxFng4zL3mP7sWsEqh//bAS
tn/F4NlxzAk/VzWaVOjAAWKDLphXieJFkz10yJ9U5b2L2fG5+8eGvXQ4FrBb
KRxzPVPuprEmjs/NEs14zEr2Q1pULTqwWLgoJWGOq0xeMdShAxE+xpOIeVnC
srwW6DD4rLsjBrPDHdIdfT1sL/f3eyGYKb1UnWoDOmgeiRb1waywP4BBGGF/
h1JjHTDHJmshdAjHy+jVb0PM/5bn/HTNcL6WjBW2Y7Y9nUNUHMHx85Y3YcVc
/fE8635z7M++6YNdOB5yolLVpSfw+1Xq0pmYI317AvedxP48SO/ywjzfFatf
Yo3zw//johbm0xpmbBo2OH6dt7+u4PxsX6gMVnOgw0X2cGV3zOGWvgcLHHH9
XNaVlMb8p3D3RlVnHM/1o4PNOP+VXulhyi50oBc97RXGLPv1zKHcyzgeTfP8
Rbh+HqgKcyq608FjY6PwYcwnZ+8/3HWNDq2Dt0LdcD2WH9M3e+OD7buROv0X
16tM/iq33A06SMnXS93A/PuKe+S2uzj/LdXd7nfJhMUXuaPp/ji/ZV22v+6Q
iVLFIfLWIGx/sV+6OebgSYsYqTBsfwP/DUncH+OmpOPPHmB9vXrr7+D+OZZN
5ZeMwO/NRpl24n7b7KIVJx6L8yvMxXcD92MhbctjoRR8n8X0kB/uZzGjHqv4
p7g+O+SeFuB+98+IFRFMw/FO0MgYwvPAzHnDE74MOoQ1X21U8cL1PTSewp2P
7aVI6kTgeWKil37m4Xs6dL86tOExnjf5aWckOYtwvZ366J2M59Fth9ZnG0tx
v+2ZPRTnSiYE+oterKvF+bYJSzK8gPPHfefOBwr21zr2Exeeb5zaBtaXG3A+
ys49+ozn4brEdp7OL7h+rjspajri/JhP+77pwfnQFeSsw/P1in/xCbteOlR1
Rx21tsHxyL2jJDCA/T0/pDJyikz85OIevj2M60lGsGriJJlorZM7emwan8cP
DmQfw/7NT+/c8AfnU8fkKxee//UyH9hK53H8LjyxcD5MJpCfYenWZRxfjoUl
NhMykbvPcds/tjFonWp9uoD/H+E5ySupYmNg3FPfmLaHTHD0OnYelxgD//mg
z0m7ycQ9zl3vNkqNAUuuge5DZTJx60LJ+avbxkCkpt/ztDyZcJHuaDNQGYNo
WjbtjQyZMI4nZU4YjkFi5pkbXLxkYsOdAIt9V8egO7CMs3mERBTOTi4hrzE4
FljALv2LRDidt3520Ae/dytus/sgiag9qjx+4tYYZHaej176TiLuyfT5XQke
A97Ylx7UFrxv1Gtmv0zC9iipdBqW4H1FYIaVVI3tv6lkWnOPRLwPtXkdVzsG
+Sk5dVYBJMJxlWImTh2DsIRPCqN3SET1SOpjuSb8fvha6YwP3hdKTBX1O7H8
T/H8cry/sNq9tvYdHwMVg1dIyZREsLyxyxviHweHi0H3r3KRCMpk15Vnm8bh
mJVm6yg7iQhXMVeyFRmHmZMrlRZ4nxIu0c/pkBgHlhfeEWJLeP+jymXXy42D
h1h12eFRHsJ25E9Gru448O6ZaTiGeIiP0qFPb7pgnjxMqnDlIe46s9hpuGF5
+zfd+ud5CIM3NyTm3cehKv8cX40D3g9VLqe4eY8DsRFRsix5CDqYP3HwHwd/
9cekLcBDCNmJJxxMGIdB7fV+Sbw8hOeTvAj+amzvZx+Dhhxu4sPqk9DqWizf
E+Xp+5qbWLULCfCkYv1+nhJSadxE6NYz3u1N4yBV/2nIOo6bSHnLeSa2C5/n
1a643+Qm6iqdFfinxkFlM4ypGnITIr/EP/OJTECVu9Qn5jcuokI+jIPvygR4
qDn3WfZxEurfhJtjPSZgsHK2O72Dk8i//TpG0GsCns9yT042cxIvmiliIr74
3MH5xMVKTiLMfYPilsAJmOnpZnI94ySOFwSaKyZMgENHatIGe06CpnXnyaFK
rH9q/5aSnv8IPhNPhUDSJFTd+kBr+shBPP9E5tLimwQVGyfbB3kchMq+nLFZ
gUmI1o8+BK84iCNy9IyzopPgH2MZEhXNQTxgt5M+IDsJLG1y1g3nOQi2mkNC
LFqT4OEQ2vacj4NY0JZmues8CURtK2p32Ej0KrZ+vVGO7xfN5w0MbyDyn4Ls
sN0UPD9kEU+pXEecyVPnk2BMQZWuor7xCQb4B6cF9Gb9hqpUw57TTn8hhy6R
TDKbBpZ7T84U4b0kLDXYof/INFS5qE2uv0sDp+NT23LNp4Eobl6UlaXB5vLy
/MNW+Fyw4nK/+yg8iLKhhDti3lE3rLhhBC6qJ81y3sDyFxRAc8cQyNwTNN6Y
gfW7NXaExnQDQ/M2T1fmNPhTb8tntHdBz9Sv9oxszFHC9y8IdEG0VcGZg+8w
PwmS+PqoA5i7jnsFl2PmevHXNLodetuinq7/ivVVfLjsNl0PJSH/zn3twGwX
eGXVmQpx2vY7X3Zjvr0xvOVHHZi+UirU68ecqp16oK4aSn2bGwLGMEcan34p
+RESFPdGmU9idtHQX2UWwdWhFAvpaczj99x/DLwHObPLA1XzmGXPqlipvwE2
1m/p0f8wW/Ara069gMEibReHZcz13/yN9JKg3OWlssoaZpaoVGfj+/B4C9df
JvP/zNK9mJGp+z8Hpl61
           "]]},
         Annotation[#, "Charting`Private`Tag$2055#2"]& ]}, {}, {}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{True, True},
      AxesLabel->{None, None},
      AxesOrigin->{0, 0},
      DisplayFunction->Identity,
      Frame->{{False, False}, {False, False}},
      FrameLabel->{{None, None}, {None, None}},
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImagePadding->All,
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
        AbsolutePointSize[6], "ScalingFunctions" -> None, 
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
             Part[#, 1]], 
            (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
             Part[#, 1]], 
            (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
             Part[#, 2]]}& )}},
      PlotLabel->FormBox[
       "\"\\!\\(\\*SubscriptBox[\\(h\\), \\(10\\)]\\) and \
\\!\\(\\*SubscriptBox[\\(h\\), \\(11\\)]\\)\"", TraditionalForm],
      PlotRange->{{0, 1}, {-3.9402328396855912`, 3.9402335764120835`}},
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}], {189., -358.76873046931394}, 
     ImageScaled[{0.5, 0.5}], {360., 222.4922359499621}], InsetBox[
     GraphicsBox[{{{}, {}, 
        TagBox[
         {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
          Opacity[1.], LineBox[CompressedData["
1:eJwVmXc4lW8Yx43KjKiEUghJRAkZdZORERFKJVtFJCpSykgaZEQhFJKVmZJQ
DzLPQTjnvC+yyt6jrFJ+z+8v1+e6v/d87vd5z3sRc/A44czCxMRUxszE9P9f
Q+eR1opRy8PR25ySVlenYY228JVeoQOQmRXneX50GhRfxiUWCemAlHqPDb1t
GoyayLdJQhZwkDYQUPN6Gk45LX56IuQE+Xmd9StG09Atf1/7sdA1KKZA3Of4
KUjefDzkkVAwZFi+LnqgNgmB7EW7HgrFwEJ2aBtL1BhYnU7Jn5lNg5RCTzm+
3YPAtRpofXR7Pmi4ZQTrPu4DSbOpkS+h7+BG9PGTnl3t4NOsCnG/PsLC7mwH
v9oW2PKOr4eZGUGpe/fyU6ZqKP6h3fhVowrGXoqGbS97A1WuSVtPT1RDwKrx
dtIqBc1LHeLNda+Dg0IGY5nsZYhl+c2GrZIUYLUtijcSqEVbm478BHkK7L2Q
VZ+pWIsOpHQwnFQpcMK/aGDOtBY5G7Al5BlTYK2pyU/j0FpUH+8gecSbAkEh
GYwdq7UoQk1IzaWOAoEDCmzK/XVom1+I4wcXKnzXG+jVS2pAyqt2xeZ5jfD1
4y/flo5GdMy4Iki3pBESc2YR51wjckzYcVylqhHk3QwSFTmbUKRKz7Aw0QgO
Wp5SZmpNaNTjrNCPv42g3Oo7WBbfhBL7LP2uGDfBzWkZJXPLZsRcZXjk8UQT
/HOfMU1FX1Fj8IHmWpmv4GcVtalWoRWp8VJZopS+wrLoiHaSeivKjLdXOav5
FQwsoMxVrxXdzQtPnrb8ConHxENHzmJ9+4iXYOBXECoTm/EIwfo9SVtcya/w
3lCzLb+jFR0ZDSpYd6QFprgpG9b4tiHfvc2US0dbIPkqx/vMoDZUcFVosOVY
C6Q09Y9ph7Wh7f/yhRJOtcCjnMRNNi/b0DJ/d5C8ewt4GYcki9VgvYaKpVVc
C3QQXknDPDS0I3J8OWuqBRT67uj6J9DQZ3v/rLc/W0Dl1PpIl1c0ZKO48XTZ
UguMld0YMHpDQ4mEWkkjSyu4ldu+XSqlIUGRR97TAq2wJbFC4GcHDfFnS/88
AK1gMnIuzU2AjtZWO0+giFbw1r0/7P+QjtKeLifUx7SCBgrm9oikI50Lj41a
41uBO1bG52QsHQVxvs/+8aoV3jSPSPC8pqN/pmtc1pa0gr5doIBYBR0tdacO
Gva1guKOol/ELzoaX+ztYSi0AXtSfGGEFQMVX4ioMlRugwNZ3124bBkogDyc
jtTbINlC0OKOMwMJfEhyz9Jrg01hRJ2BFwMd8T674mfdBg6Rqh4+oQz0/Bch
JPEA2++/bZMvZyD92SYLr942SJk58FRyC4E22t8+ODzQBrEqn3eFbSNQT4vs
NuuxNshQtDk4JkagawWh/brzbZBpfKE7TJZALz0MvIS4aBCwTcvXTYtAC5PV
ERXKNKj9tGd9rAuB0sbKKDzhNHjUlmKSXUSgy7HHd7pG02C7OMfMzAcCqej0
36qJo8HUuuYM+XICUZI45fxe0YBi6uX4tJpAs6anI0ZLaLBVep8hC4NAhz8s
mFf30yDw92iT4y8CsTs9ytkxSoM1Mrb9sksEatuwfe2tKRqYzxxUnPpDIGdX
3eJ9yzRoZN4WepqVRGEiMYIveeiQdTPnDI2PRB1393X7qtLBt8PK01KORKkK
NUqMw3S4yHxM/ZUCidy6rcIVdOhQWpntOKpIIiaVABg2ocN7ak67jRqJpMaa
Uyyc6DB79OuTKT0SXTN1Oy8fQYephWl4ZUOiw39XPz+KoUOzfOs/H3sSsWVH
bxmKp0MIi6SmrhOJnrOW1SemYX8lKfMGFxJVFnPs4Sylw7UtCcs+10jEI5Ix
PTBAh3OdBZqeD0ikefJud/8oHfre8zxPf0Qirwhb6o8pOjzPaQ1nhJGIYBbM
6Fuig8hBhploFIleDD2w6eJmgHD3whWXeBLtLXBtoh1gwGPemhxqJonsRvXK
2lQZEBWREpuQTaIn4juzWg8zYPnsNnXnHBItxHwL/qrPgFNS6kWD+ST67HtM
g2rNALZYrYSEYhIZa+99UxXMgOm4J/1dVSS648cZX/mQAZItAYoG1SQqeD8U
UhHOgIlgvdP5NSTaJP3S4XMcA64Wpcu51JOoi3uDcGkOA5LVemSjm3C/ehNs
HwsZ4HYtx6a5GffrXz//oZgBZ6qnrrG2kChtNqD1fQUD1v0UOXm2DZ8PMfug
kI7jpRhuryJwv7zN3gUdDLid2p3eSJKoRT/bKb+HAcdOBIq3tpPoQJmDZu4I
A+w4DX7XdZJo5SVtMXOFAaVzf23ce/B8OvIHM5gJKPNXKzrai+fDH0ZLX0cA
v4UEx7Y+ElUH6+SnbSBgbrtJ5dvveJ9c3p9PliCgz3z7s7gBEo1p5j7gkiGA
PRaZmw2S6Kjg62xveQK4JNo2sw6RiKUuZuqYGgFMLkkFZsM4/ouwDSVAwLOj
q4+nMH++Hrx/py4BZp8kfINHSOQrcc17+TgBfmXcQQmj+Hz/XIpzsiTgheuN
tG1juB+aY+nXMwSI/Vvufob5SfbZLjU7Ai5xDClwjpNoJtD832tnAmp2RL30
xmxy2kiU7xIBD+nHZbswv1HQPuJ3hYCFUu8OtQkSne/dH3LiFgGmrsdf9GOu
LpbJ/BRAQP3p7FK5SRKJh4tTpEMI0K5HTJ6YA5yFJ6JDCdhoMOCVi7lbg59n
NZKA+x5uG/sxq23iVHB9RkBXc84A3xSJ4saZTzASCAj5vTyiinmhavmqZgoB
1fcyxc9itng++/RNOgE/WNfHXMf81nP0g0AOAQfZ/eAhZl6D7x2BhQRIShnu
eobZTbTjz0QxARMzVONEzJTFFhGrcpzvj+X7BMzSX+vhSyUBFp0adjGYQ9Ir
7PfW4fntYJiGYB64XXI3vpEAFturDz0xa1kWvF7TRsDwHjfuk5hfyGbWeZAE
RAtt6lLEvMKaPNrZRcCZMvSbE/OZb7Fcej9wP2lfXL/hfkveRsgVDhNw7eK1
va8xCzy6f3zbJAE+z6X0L2K+au/veX+OgK9Ne0slMLcc9ImeW8T9Pv0e0onn
vXeDx/tzf3E9IdEFDzGHDZ8n61lI8NgXr7of89hnm2VFdhL89hyVoOPze+1u
cohzIwlTVlO71mBm0dWzvS5IwsjbSN0neB/sth0O7BMhoS1TrlkI8zaqXE2x
NAlV77N2b8b7dDNVclhsLwkOP/cxP8T7RvqKcDxWJEFHmM14Ae/jE+n1xo6H
SRi/Mmb4Ce/vzOoaj2ZtEqzrUpi3YDYhVyJVDUjQtlhScsX7zhEyQee1IKHP
hiH6tx/v07mBhZunSVBkXdulgbn6QJfgkA0Jmnuktnv/wPvTT7UudyGBwyJC
k4GfrwXNNwMX/Un4JXEI9LpJVJ42nuATTMLcnTMDDl0kCmKXNQ95SAIRvzDv
+w3fFy05la+iSaj1g/OxHfg+ts170ZOB6+sVL4hgkGiiaspyMocEmd26U/50
vE9S8utXCkl4wM6b6UrD9/NU/i2hchJS5+SeybeS6OTtQiuLFuxvnRHl04jn
9X2W15FBQrn65h/qVBL90Nlf59lJwp175p9+N5DoMneRUsQACVeqGFsv1uH9
SnjHT1ki4TNlNZcZ34fvP35oBLF2OHPa/us+fF/eFFm6ayLVDsGWagUv3+H7
LfCg+rk97RDmrKTGXkSiRv2PWTeV2uH8HimzBnzfDpClIe8N2oFbhbmCKwvf
nwufNPd4tUPek02G0c/x+2Z/9TuBL+0g4O9qXuqL531ANDmqHvvvZlcy8yGR
lbJfKHdzO0hckBL6gd8n6moHHFg62mHJ7OHcrAfelyNpvFNT7XCYdJGjOJMo
wizYtUa4Aw4cSOq1MSVR9hUd0WteHXCYziEgI0aiRK9krmmfDkiLCPy5djuJ
Hl9bWXC53QEt916KdgmT6MqNd022DzrgOel11WcTiVQCJG4ZvegAO9alw65s
+Pwj1hDilA7Yzxv88MgEgXrzqkNbxTqhPaa3sbmQQC2Tayb27+qEBzXblLny
CFQhq3ssRrYT1gj3uh/JJlBydg33KZVOiLm18URKKoEc0msfdx3rhCOHROTE
ogk0lFQfMezTCc8Sa2T3XCXQZFhj9N+mTogkZwxvyBPojys9YffNb6D8erTW
O56BLJTPRe31/4a/N0pym2MYKId5KEQx+BvI5F0KF49kIJu4Rc9D4d/AKmJQ
53MIA1XWCOubpX6Dkl620pqrDHRf1P7XDco3oHctOgoYM9BGYvJYvXAXiLvx
5FFX6GiPFtu/82Vd0LdiQ06a0tHRVLELhVt6wM9ay8s7pw35iNiKf7fuhcYD
LGmvp1uQ7IQlF2ncB8lrGsPOSTSjjbwz7NW/+yCycDC9oLEBrUEJ+TsTv8MM
R2cj/4MadOlAWQeH0Q+wG9jqEPqpAr0xcEj+vPADRH9uCZL9/gHNjwtvGHrW
D5pH7803VuSi9+ZHWWN0BoBJxma/NSUG+evfe/luCHNhQYY372MQ6zZsf3Vv
EDQpp7hM5zNATSU4Rmj/EDC18jdQw9+B9favy8y0IQg4lJbl9bcM5imPf1wJ
HAY7CfNk/7RKiFtjc+2ExAhoIq+Ue8nV8M9xi1Kr1AiIpl2Ys3hTDU5fWuaP
78b26VIOkeJqUAjS9jHeOwJ2cRN+sdRqqF+Vvql/cASY7EJ5lRaqYfH3T//D
x7CeT6GY17AGTs4+DJW5NgIB5n1huydqoNxU+1iWN9ZvoyVwLtSAeMEKt7Qv
1lu+WulfrYGpyx7hkndGoOK30Wv/jbVwb8IiSvTBCCRrNMmeUauFd8M7YgUS
sX6QfTAupBY29rxPZakegb6d8nd2CtVBOPft2x9qcf0yC1L14nXAqa5j5daA
87swHXKUrQOWuLb1RDOOn6b/wg/qYM5s+kZWB/aPDi9Sd66Dlhrp46bTOP4d
CcHhvDoIy034kyQ8CkyVQtptavXA3uVAnBAZBbsNWdHq2vUQzClTyCY6ChUK
jeXPjerh1oWS856SWL+gEqJmXQ+uYoxWHQWsFwq7uupXD/pPeTLHdUdBdOJM
xvPyelh7O9BC1RP7rypOzis2wLvZiWV0FdtTNpvEqTWA03mrl3reo6Dp4225
T6sBqo/Lj5nfwvwuXv+oSQMEi3f7X76H9VKpJ1kuNsCa+oNvXsVj+/m4L4Xx
DcCycYaZp2oUAk6vu/JtvgHe3j+bEVM9Csn/Dh43+tMADiu1x7bW4fx+nNaF
TBSoGkyKlW7E9S+7T9ty4e/cEiM5bQLrX3pF64lSgNkmw+rGGGZJ0yBlfQow
Zdnk/+AfA9Et+o9CIilQO0Fefrl5DDRnHXrXP6VAmILZXmtBzOnXRR7GU2BL
iXYuQ2QMKtT0tc6m4u/uOuk39dJj0KfFkeJeRAHrwbn0vMNjEHDpQJgejQLi
u93OX9LC9qVf8pwkBUbcBiWldXC++i8elZ0UuPqLTEsxGIPkWrMCzh8UeMT6
KTXGArP3szy2GQp8FLv/4qYrjqe34prBQYU7zkw2Ku44/1J9eCo3FXSyfEV+
eWA2L2WO4qVCi4Jbovt1HP9lS+XRzVQYAbPndgHY/mm/xDZRKuTdpZwWuYt5
IlStUJwK1+q0hTrv4fhLMb6qklRYNVGOMw8dAybws9kpQwUBm63P9J5hO1p3
yFqRCl0pMZas8ZjZ9PgfKVEhdXD95ooEnM+uYjRbhQpy7kwxqim43849YTXq
VJgr8DVfeIX7ofgbo0NUKPk1x1+Uju2O9L9vANfvNxglmzMGdnt1BW20qcBZ
YWM2mofzy1bf2KmL+2Ft35BeiP3dOd5/06PC2VBKxI4PuH7LnFwJQyp4Pc9/
zF+F/SdLBQVNqfBh5fn9qmpcn0B3nLsZFVZsQgK96rD+lrFB8Qkq3N957npb
I+aOIWkxSyo03tP3CPqK/SsXTLRPUoF/RNFlfxvOXy0ebXWKCok5nOeekPj8
lxIdrU9T4TvPwskjnbhfobYhwzNUkPL8bjrXhVlx9rrsWSpcojUapvZi/8/u
3MzWVChQKtE58QPXv6/sdT3m+dhXh1kGcby1xofunqOC2u/wg2+HcT0Fz5oV
bKgQYH1zv8MY5jdclq2Yaz47y/JP/t//jkYnWzwfMTOpqmnsf1lXfhyz6V0N
Ua85XL/krK+THRWeDu4SFp/HzPksowVz59GNm9oW8bxjMork7amwI/vf+qDf
OL5GfHwgZifuMbb9f7Het8eiFnPWZQbzj1Wcr2qs7y/mqZaKP1Es41ARsU9V
2oEKioo581prxyHZSuq0LuYbT2OnZ9mwPUZDwxLz58Wg0RTOcegrG+4+hZn1
zOV+s/WYdRNUjTHrl5/uZt4wDkzZFEMlzOHbdclCfuxvO8q9ATMtQKHVfvM4
iPa63urG+QX7t1L5BHG+l1VRSZjP6bLVVArjeIJORqaYUzPmPnuKYP+qqlfz
uN9hjp4SMdFxsNt04tljzLJuDW9bxbH93r3tgpg9m9/lBEri+OEtKk/x/IoV
ktP3SY9DwOv07jWYV56EJn+Xwax9i+sCnr/WvPfzKDmcr7eyvAyfV8gphxgt
BVzP7OQEC+bGj8bhs/uxfcYrVgOf78k7EkFmB7H/M0uD+3g/Evp4/ZjVsX7P
86NxeH/6jvy5XngI9/94bV6CFRVc2dpc+LRxfVHbU3zx/uW7fHKs1MX1SxRJ
WOD9/EXNPOepj+Pba/wTtaCCf6S/Wasx5o+/k6PwflfPuRoFmuJ+qgXslfD+
c1qe1N1njv1PzTtRTagQIySnGmWF7Yt1ks1GVOi4JaiodRbnm0vtUMPPz/Ye
VrnZc9h+kgfF61MhM7VT1MwR2/c5ce/Fz9+nPQ/Y+S7jfGa5+wrw86tM39L0
5AqOT2RMtODnu8AvI2rT1XHQtH0VPKiKz6OpVljwBuaT7Rpj+H544LFWbkcQ
jlfMOG8vRwVmwaezycG4f81rqaJ7qHCzQqJY/D6233qYRJOmgjufDkiF4Xn1
nfiySYIKJ4qCzOSeYb3WX2dWYSpQz/IL5Mdhvcakkt0WfH+sSe1USMD2uIaM
gk1UULGsdDyQjOevG+Qgi+/DbYur19WzcbwzEY3hrHg/1G4/N/iM9ZcXVVZG
KWDXz21LrcD6p08uRQ1RoDM0cafxF1z/jbXrhPsp0NhVlmNaj/vVy7Vb20WB
t3d+fz7Vhv0Hk3V1mijgV+XT7zyEWWbxiW0uBeZd2TKHR3C8/T9v7M6iwOWN
sW4u4//P7+2joTQK2DsVz7vN4Hqy34mrJVJAb90827XfuJ905096jyjAZ+gl
G8QzAX01pxzmHCmQXMnLpcY3AckHO88E2FBAQTV3dHbjBNiNqS79s6KAifRI
ur0Q1peV8zQb4/fHOhsxLYkJYBpn3lWkTIE1XwwEmNQwSwkNxaylQLTa8K8P
Gpg1wxdlVhtA/G0wzQMmQNM6wqFwqQE0U1Bkr84EiBrZ748Yb4Db/kpc6DjW
f7uuFN7SAAvqYkx3nCcgwH0m+2lsA9wr+tyjdBHXY6cjKh/ZAJv2WH+adMV2
QdqrkgcNoCgce/PcFRzvYWNVgm8DXFninte4hVnLvivlTAOMvlsa/ROJ6/+Y
bJsl1ABdci0033Lsv3vybXBoPbwc57vNinD/nFdffAiqB4csc6nHlTjfhK5Y
l289jEqQN5JrMRsFdC9fqIeFrT0idS3YP3NdzX38+4aPc+LCpkFcv735wuhi
HegNsa3krZ+EvsESvlzLOuBIM3h9cMMkaG6ev8llVAeN9qEmVfyTUMEzznRW
sw7Mu3lSGFsw/y40b5KpAzv6Zr0VMawfcM36968WblXtjDRQxhwUVBaZVgsF
L0BiwGYSmJg2Z58aqIGfN3+y2dtPgiiT90W+9hpQPpUx3u2I85coO5RTa6CM
l7eIvIj9yy4sD76tgdqAHi2qF/Yfu2l2P6AGvjnctn0bgvMz//VfFayBdbvK
ngfk/e8vHZ1zuBoMWD3u/C2YhGTGVRSiUA1hveION4swL6QUmYlXA1/co93X
SnD8PJXBj2urYRvHmZILVZMQQKiz06hfYP/4EsOEwCx6WFLS8gucy1fmE/mH
8yn2+8hbV0HxmSWeFqYpYDomZvDJsAp41pVy32WdgoB/YxkHVaugwvoQ+yj7
FFSEF/5Z3FwF4pw6q+82Yu76ezOuuRKGnMwmj+2eAk2jXS3WGpVwWditwc8C
2w1soto4KiDgXkpgVzaOv1Kb2UeUwnofNkP7XMwKdfVXc0vh+UV3/qF8zHsL
6wbulkKRkeqr6XeYRYx17BRKYYivtZoFYV6aOl9+/yMYvWBi303DPLWnmkWh
BAQ+2IZf/4PrtdjsGX3+PeSOiCTwHJvG9+9PsyP0PHiQdM+uxwSzz64xBac8
cDoxKZlnhnnsQW3Nz1zYVl5eYHwK87lbS9/5cuFRxNnaMAfMG/KXvxu8gYvK
8bOcvpiPEUpTmRkgHrxJny0ds6LBx9fiyfDvoN96MhNz/eaZiyYvoWOyvy39
DWZDx4qmky8g8lTROb1CzI+y37o5J8KqzImr98oxC3Id/+MbB12tES9YaZjp
IjPKAZFQErLoSGNM/z8vcbc/4RCjbrv7VTvmOEvGz19hYPR677sjPZjtBA+9
6H8ApTeaGgJH/7d7L1vmB8AzOaUIswnMI+Uacodug+ePRAuxaczSLPvKBX1B
+phbb8UvzEySd5jqrsAaZnpa5CLmAo2NLoou0Pde3dXuN+bIhwbDbXZQ7vpK
XuEv5r64V7/aTSF2B9f8//+XY2JiCjD1uHL4P0vYcBw=
           "]]},
         Annotation[#, "Charting`Private`Tag$2096#1"]& ], 
        TagBox[
         {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
          Opacity[1.], LineBox[CompressedData["
1:eJwVl3k4lF8bxxWVVCJtKEsopJIUKt1CspaSbBFSSYUsoR+hIkuWhOyRipAt
W5bOmBmGmexmHpXd2EJDKiXLe96/5vpc5zz3+j33OSNp73L+6kouLq76FVxc
///VvzrWRho3PSGybTLY2MX1BI+WiGufsDKssXjhabbzDBx6kZDyXlgbUrek
xb0QsgGDJqI4VfgC1PVslYvncgYzh7maGGEHiE+w9KV88YOeA4+1IoQ9IOGA
tZZbVASkbzkbHCb8CJDYGB/9bwoE8r7fEyocC74vBqxU2nNB/vTTkGLXWIi8
YK1L1ciD9iCX8a+0WHjkWpu2kJ8H0twKufvvxkFULh/TJewd1C++2t/ZHg9j
7dvu2asXwPrZ+MPiTxKhYPV4ClWvCBJ67mmVLqXBpffl8YUBJWBukVEwPfMK
1HINxgvcK4Hz9QLfS5HXgGIMZUpSKyHYhveqidZryF0ofhpHq4T3V1xEymJf
g3FHiMi0SBXwO6sH/afyBg5NaVF5SFVQ9+Cz5Wq/LBDoPa/ynrsGlPIEV+/g
zYHGtXnxlncQNO6vs21SzIFhMbVWoecIbIu8q+5b5ID1M45ibjWCiLI+14Gc
HFgOM9eq5CbBGOnd1zdGuZA3U7HvgxEJ0ph6RQef5UF858uS6F4SrFsOvHRa
rAAeiT4OqZ2thYQbZjYKOgXQlzkzf4iHDNKdCraCzgXw9SX5RfxmMpx4S1z5
WlMAS64SUQqHyfDhbXxp+f5CqNYKdkr2JMOUyWS1QXMhRN9pPxkySwbT7OcM
9w3FkGIvP1A+RIEU6weG1ySL4fIB7xyVHxQY3HS7yfxwMbA6XUSyuajg4qfZ
om5dDLu3Di9Y7qRC6Pmp9jXvikHY8eXBtRepULOg+SXZ8D3UzkFIGJUKMue+
j1HCS0D0KNX8aHwdiPifPno9owSquX2GRjLrQOBdejhfeQk8nHg/GlhUB/O8
JvvPDZbA2p+6Lg8/1UErqdy9V7UUhpcaF0pW1MM9xcClP8OlsCv3jzjLsR6a
N27evF+jHDqJiEVFeRpQ1G9fbTMtB7lDmqWlh2lQcbO+zONmOQhnDN2TO0mD
TJq3RVV8OZg/u6fZa0YDb/+eNN2pcjg12q7t94gGuzhv5K4kVYDgwqJ03Bca
eDWrQcLPD5BjQmk0vNcA/PtLhxt5K6FJZDxc9GEDvIpQfPJvRyXwv85a3x3e
AG2Gez7bnKqEKXluC6XUBtjL2OwuE18JuzfXBiujBuijcd4Uq1TBwZ21D2K4
GuHunptGbIMquF/f8uM+byOsfzwyu8W2Cn6206ytBRpBTadHwyekCszVQw5N
izfCMyr9C3yugl2uxGnnE41wuvY1f9O9atDj327b4t0IvRKSpUuR1XAjSVir
x78RPAJSrBQzq6FGztS6J7gRMuBZ9jNGNSz6ROqUxDbCv5oATcsdNbD4J960
pqARCiqt7o7W1EDcQcdiGGqEbSWCvStWIKh8eo4urkGHS0/+XWBvRaB8M3bP
91N0eOkwzKhXQOCuETiYZ0AHhS0fPoSbIxjiCnv07yIdNO/axm0pRCD0qWC5
5xYdjqSYvYk9QIIM8fWrquPoYBHyaSDoKAneUwt9Y5Lo4OtxcqfXKRJsn6ak
WbygQ63h3lgLKxJEL1z79SGbDoaLS4Fij0nwqnfOjVJJBzubN9bZ+JyYW/EM
Ln6lwyN90cTEcRLs8DTRGOijw5sj0Z1hP0lAf8GMKx2iwyT/PYPbfLUQrP9K
7eAEHe4iIzWlI7UwN0r+5vGXDom5ZA+pk7Xw6L+Vof0LdKh+rlK42bAW4Cqh
rc7FgBWuknvm7Grhl7WbLH01A55I/NpcHVELVBZVRkmIAfnrnYzfJdSCNf8a
lT1bGdD2pzc8LbMW3AY0nmwQZsDWtoaVgR9qIc/305Z8MQZkBKZMnxquhXmf
5L0gxwDqbUEFlelaGPf/MfhxLwNGLIKvy/6rheRrmTyK+xmgoOTayydIhuk/
WkkjSgwoG9T61HKcDIRUV+zrYwxg6QbORJwmQ83B9ZVZ6gz4nf9xq+F5Mril
evxKBgao/Kdm13CdDD2162ottRhgPnA3ONiNDHabz1rKnGKA9+mSXG0/Mpz+
wxEd1GFAhdCB36QYMnRnucsr6TOgy+eWqH8qGS5uuBlQZ8CAP31vNdSzyUBT
GRcwMGKAap50+IcaMqhuzJxVMMb2N9kXejWQYeXF2TOh57B97xfMwx1kuBQ3
+5s4z4AP2iISxWNksDm4DwxNGfAlx+yUK55LbXv+G7tzkQHzAnFO+5fIcEv/
5XSoGQOO9mwszRGiQMnp1weeWjDAUsvoi6MYBfZWx7kEWDLg3tuw5d1yFLCL
DpGwt2JApecq/cwTFHgZnja6cAnb/6rpYqdHAR9D1uoya2z/ZECs+AUKZKar
vbWzYYBIds2HHhsKrGee71jGfIz/X2/yDQrEHMkLjb7MgEseqjyWHhSQ2tTa
KmTLAN8vnnLb/SmQWqL7LhRzisb7M6xQCkw4pUv9wFz9Zto9NpYC04F2qkZ2
DOhevz/x/AsKROtsnU7CvOB286NADgXKVumd/Yp5x+fsoeYSCmitf2TJb88A
dRjhjUAUkMg6t1UZs81rqf0GdAooSB1/bIj5/jo7k7VMCpg2NRWZYU67k+ZN
66OA74/oJFPMH4mvqUHfKBDWt1FHB3OvujBF6xcFbAc6K+QwL2VeHFuB5/qI
ttPcMvYvxhe7gcRHhZVmlqsbMZ9wbVO6v4UKSQ4Hvj3CbMPiNz8uQYWYSves
Q5jvHzf0m5enQuvrIk0mzjftZejLisNUOOruTrqBGfHSaHc1qFDqoiUzg+vX
78wzpWxABYWxXM+bmLmYJzfNmlLBV06lrAvXW+KYv0qRLRWiA1wmVDFrZFRf
crlJBaOjfcJPcL9s18wH7rtLhfhMAZ123M+A2ypZEwFUMFkb6bEOM0mteOZ6
PBXQYty3i1gP/S84W3dnUEFt9+FjN7BeuFbvO87Oxev39dKdzRlwsj0r2LaW
Cvdn5z+cx3qzVx3OFftEhYC3eV4HsR4fpO1q62bhe4yyYMV9gQFkp1RRi0kq
jF3IyAnAen4/fvOmzW8qbPw6eV0L6/2V49GqK1x18KglZ/W/MwwIukZYOm+u
A9frx+Z0DRmgay+Y9PB4HcgL9KyzxedLbaBvPESnDkLqxo/RtRkgb5uvFmlc
B25FQ05y+HyutzH4nOBQByufXuqsx+e3xSJoe/6TOhjeG338virOt8vE8T2+
V2+dV2ZEH2FAodmuior0Oij30riboMyAGFNkRimpA9quM4qPFRlw8dzf+K7u
Onhcfit5cA/Wo+7tLdz76sGDLP04djMDmmjHrvKq1MO6p/fi5wWxfnT4Sjec
rIfe7/sWTTcy4IV21oXtpvXgWe3UN7kW10tj4Nk+v3rYdMnJJnmJDmMqppvM
m+qB9IzjvzRMh89lUvbWRD0IbzJGVYN0oB/+UWQ/UA+KhdxPnfF8zj0Ude72
r3rIL5CcL+mig/OBxugHO2kw5n1Nv45Oh1+71Te+u02D3yKBO+by6HBiUJMW
5k0DzeJAp0p8HwSn6vo7PqRB8CeRqjuv6LB18wWOVCINfMsG7lYn4/tmxc2W
JCoNfjw37iaH0sH7a0JUiGgDsM5K//f8Ch1I8Wmnr+1ugPkzvrtTbejAe/7V
stbBBtB5mCj+3ALfBw0FLss6DTBZ/n2D41k6VJbWn73r1gD7QmNs7h+lw0LU
z40OjQ3gH3ZwMoCfDtoG87STnQ1QtTkvq4mXDk9WcwWI9zXAxeDtC/zcdNjp
t276y88GUDKMeeAy1wgnnHa1npNoBMuk56HZfY3gr20cDV6NcG7ZMmXpXSOs
/JsrICpDh6rB8xVWmo0g2qQ5Cwfo4LYUk1JzrBGUMz4zHdTocPRplNDWw41w
VW9Ncr4RHe484W3M2dMIDYn2Mpp36bB6amXNlfWNEHVU+OgNGh22zNpJbsNx
7vANvlJ+gwF+vzakpV1qgCPLtmUm+Z/g36i2z2oTGhgakR6cqvgEXYlJLDN9
GlxJFj+rQv4E7w/VbMzA76lold5REdYnENvYJiWqSINxFyvhwcVPkDPDp5q/
ngYp/aa+rkZN8LH5oYoJtR5WkPU1IyabIFjxdkMR1t2nR8rN9fItcLVVdSBs
HM+NjYyVTw+3ADk1/DpvLxWyE+1UrDRaoJf733W/dio8zI9M55i2QODx+HGj
Kry/a8xte2ALyDc/cQ19gvfvTd3mRLTArvGpZ877qKA5/qBwtWYrWOeLOgji
OS4ePfH37fdWEFpYSatsqIWJub5epmI7TPNEec+xq+HVtyo6f2QHhFwIeSs7
VAL8O7M4bHYnqH7xTeVQs+HJjdJr6dIs4DpakZS4Ohp+a+SyHf0J0GhwM4qs
jkMeStSSrZQumA5vk68ZzUN9+dTwNskvYOw00KtztgL9c+pMlrv3FS7I+51S
miOhvSfXLF2r6gbX00r9QdZ16PRLyetF23ohYG3hqPOfRuS18/KugUt9wDWR
mq2yoRkpTJquI4z6IZ3YIDTDbkVCG6d5qfP9IKtUdjmsph3xoOQCqZQBCHH+
+EhGqxN9Oa6t25c2AHkWbxNO6XWigsrJ/qSMAcjuDvewO9uJLMvUN23KGoBH
sW/uPbHqREXv+jy4igegU+mYX4F7J7JJkTraQxsAAQdp7T2ZnajCJ5caPzsA
CY4Cok1LnShyzsT6/O8B0P2YFW7Hw0RXPBd+bfg7gN9p77xm1jIR/x2jPUFL
A+AhebeCewsTXXXkhLqvHcR1XEyckWeiTWaHzhqLD0K30t66aVMmuqlc9Xmt
wSA0+OxcupnNRKRWZl6F0SC0Wn/+ZvKOibbcnva/bjwIx1t3HVIpZiL0WmZ3
nekgJCwYN3GqmEhoW7RbgO0gRFdWj8m2MFHVX4d1c56DoMzDJlX8ZKJ1iF+d
nT4IvLHc4nCchWyt5ASeZQ6CN98vkUgNFiqd0xo6+WYQ+n/wyndps9BlRZ/Q
F7mDQCoN87Y2YqH3GUNMy7JBEDBIeK5gw0JWjyqc2xg4vsmpwS/3WShXzz79
4+9BUG3fTFyvZiFlBckT8HcQCj3KC5iIhT7y939F/wYh+/JTLqCwUGuH9bZa
riFofRnDzUNnoZ/WFpEUviGwnbxsZUaw0Ak3Y98GMcx/m8okZ/D+pBPm7TpD
oGF7TFNVkkAWfou/zusNQfrXHzGC0gQavFz9rMMAr58UkxzZTaCf0kdbOo2H
wPyy9/cABQIJFxzWISyHgPSzWdhPhUD2FAXlbuch6Jp+ty3SkEC/JkQERuKH
gDfuLnOVO4FiU0dpKYlDUOEn4OPuSaBDZ0v8TVKGoND13ImvXgS6U2zEIWUM
AZeGk3SiL4GmvAOak/OGIIDfYWdzEIGGV408OUfGXNNdKvKcQI/Ki7V563C+
vD2WcokEkrrhv/CRhv2HrFs4mEwgu0/bbyk0DUH2TKzcwRcE6okxMFjTNQRj
03WckTcEYooXra2ZwvHP8ezYX0ogjza/WvfpIVA06nX6WkYgoYf6PvKz2P6K
29EPKgh0bmRo7PkfvG5iePFjFYGa8rY2uHGzgVfSP3yilkC3bIb85VazQXfe
5cx1CoHWCRSq9POy4Q/NgtlNJZCeu16WET8bVNdVypTSCFSn5hssK8yG7Crh
KJEmAjlM6J7oE2VDOvmEokMzgbhTt/yOE2ODhkn6g6wWAp3kKrjKLc2G7d2V
B0XbCVRTP6Ddu58NIVsrvcpYBLrknb8Qe5ANEr8O2DURBPon91+JgTIbon/I
jPd0EUgtYrP0BzU2tG5WZkx8IVCpyWnuWG02FAaciq/sJVCIQUXQjtNsMB/5
dDKqD9vTkuN9rccG2fgyI5t+Aq08tG5D2RmcH98m/4kBXD9536gT57D/GyXp
bwcJlL1rSpBmwoZpXRFR+yECndnUsrXLHOdX83QTmU0gST6NRFsrNoxNdYTf
GMZ6WlEkOm6N8+k8enHdCIGSZ2Ik5u0x/yFY6qMEch7nznxwlQ1drSdCmzFr
DnjIrHNkg2Lc3iCLMQKNtV6U33Ebx7PtzzmbcQJVNdDyXrlgfy684l2YI0mq
B/a5sYE0vrzP8BuBlAtFlE94sfH/hlV8UhMEWpMdXlbvwwYBWe2OIMxfXiyo
nvVlA9cBBmsQc2BUr7ptIO6Xj1BQ+CSBLjw+Sxp7yAZjs1UKBGZZf5LmneD/
9yt91c4pXO+7B+v+huB68i5ttMbc7Pzy9INwbM/rsN5zzBnXhOh8kTh/y8sF
DMweNo8Mn0Xjeq2I1ZjHfPrir2bRZ7hfHybmd30nkMiZa+dexeF8W+53n8I8
dYroUEjA/qOvDtljJqnrXixNYoOrfsWGe5ifHf7QpZ6K7elHWYRjvrZP3qr+
BRts+1bWxWNWk0nuOfMS69V075kUzOt3rrclXrEh4a/EbDLm/s1+g5ezsH2R
haI4zO/Xf3cYe4vrz8MMCcUczHN51DUP93s11dMLs+VCy42/+WxouDVw9zLm
fT81JgOLcLxBp8JOYuaaLHLmK8Gcypu/E3PH0K6ZmDKsp5Va/bM43zdfn7mL
fsD1W7FBnIrZp4Pnd2YVrtf4fcdIzIYMT2+Fj9j+qqLK85jFKSPzJSQ2OL6u
EhLE/KPSzE+dgvPbUn6nEfejvrhhua4O+8usav8Pc2KO2oMzDVhPKQPKsphv
vczhIejYntHJ+GbcX40k0ceXm7BeVs3+dMY8EroY7trOhoqady9TsV4+BDrz
/+3E+81Hp/ZifuLTFx1I4Hoc6NxfgvWldKM2LqYbM002rBjrcZWd0nbRPvy9
VG26LOYu88ykzAEc78zt1wlYv/66QS9KRvD53H7tzjWs93Ybx0uK47ge7kOe
NHwepD0NhPMmsD5F61N3YaZnCD7LnMb6DIswpuHztPlfanDMPN5vyd5Ix+fx
mmCgFv8i7n+SweI/fF4/7HHgClvG+cdWL+/BbHNB/l4gzzCkf4s47tyDz+e7
stuu/MMQkvruyvvPBJqnJMpPCgyDqswuWimeD0ZffEevCw1DYbv2wWI8P36s
1rK7vH0YFJnXNiUyCXTctuXCmV3DQJrtZoq1Eah109gxhSPDYOwc0cKL59ku
OcafLNVhMM8Nrs+pI5An5JdKHRuGipG7WTp4/onc8jggqoE5kl/iFp6XDnVc
Unz6mMW+fLiN5+kfL2G+MWsc39beRb18AulHLtRfscXxPx2vDs0jUOqrvod9
9sOQPaSsR8nB86Dt9SLrOl7XtCZLZeH+yCvN1N0ZBtnrJTxJeN5L9uh3ZQYN
g8QubxXLKAKFkY8VmIYMQz+fDNeaCJxflkLwmnCcv3iQZV4Ygchu/Mo3o3G+
JKWqfnzfOPC2RyklD0NCwsZJzn+4focsTtcWDkOAyT6+N9cIJCCsL+b+Hu+v
GPry5QrW79LRX9Jlw7BdLHU7rx2Ov3FHZkgVtj802WZgRaAJm/6ls/V4nffT
P6+zBNofdr2s9+swtN4ckbc7QqB4F/OI6F68npVZIXqIQMsX9Bw0B3B9P7yP
bD6A6y2+d9ObkWH4Y5bOt1MO35el32/fnsF8yGuFtSiBSvo9ZRZWj8DYFp/x
a0ssdFTlUayw0ghEL1TGxXxkIZa98JFU5RHIntwwmVTJQu6R+YSEygioHq7X
TyljobzhLhHZ4yPgWj4rHJbPQmKx+zKO6IwAqWMHQzCNhVbOsN6ZWGJ7fPeI
lv9YiJEjR4t4MAIa9r8i/x5kIUfWR0fBoBHg9Tl0UXwfC/GsvMAX93gEEqRO
fFOXxe8Pi/tGKU/wflGdO1fFWKhwTUdHTvwIFI7N11vzsVCsg28/LWcE/8+g
c2b6meiSWMvfFR0jEHL6+b7kEPz+E3YrrWKOQH9QRJDlAyaqFdpyx7NrBLZH
HZIU9GWi3WutxsZ6cPyugiIOLkzEmR1htYyNQKvH65Z0/B580Lj0PnUJf19a
dsRdgomyPfY7q8mPQsNLZH6zAL9fXdrkZhVGQZfRHcGf3Yk2OHkM5x0YBdtD
NZXZ6Z3I7XLlJYnDo0BS1P9R+7QTHdPXMVijMQoCIzLxj/H7tlncRpZpir+/
dSvV+nAn+kWPGHQNHIVoVy9+6eIO1L2O6bjwcBRc1QcOKuV0ILLhDs7jYGxv
x85Dqi87UHRzzr+08FGY/mFM2xvTgeTbaZub4kZBQiyGq+hOB7L5vOK0XM4o
KHpQVikd6ED1o565A+3Yv648k+tVO0rgsfE4Lz0GEm16llc92tDSlW2H23aP
ga2PpGKkUxtyoLT+Ois3BiS3zpp82zak+EDLy2j/GBTqPfrLMmxDDcuy93RV
x6B1hxCiSLehuflZ/xOG2N6S3MT6jlZ0cSY0XN4Dr3dJrj0nh/8v9Ja+XEnF
69n1LA/vJhS53s+vvH4MNLj7V9y3aUJ8x7TNbzVi/2aeqW7aTWhlQvsGVjPm
RT8hMYEm9OMcx/vt5zHgqp/y9nvzCbXWyZ415mB2+2+7ZQsDPXmX/C9VZBwC
3KelnATpaJVf4AW1O5h3GqgNmNYjrrc2BYObvgEJroReHatGbkkFEZvI34Dr
ckDTG76XqGZvCK+g8wQEeDEskudyQFDfTeEB/yRoFP5Lac8gQ/e+1g6f6kng
uqGpGxXZCoVpIM22mYL+kGSFw9u7wLrgiODOpSmQbVa5vkG8HwKCMgK7c76D
4riVbfg/Nrwb25nMb8gB2y5mJv3HOJ6rQba9ZzigGLF+5/e138Dh/JRM/jkO
GDPZsiKS32BHdXWhkRkH+gsKFsPPfoOwKKv6J/YcaA2SIbHyvoHjkcQZPh8O
SDjpfVp7YwJ2Pdqsu+YNZvIBcc7oJCyp+m4gsjlQKBTutodrCj5PDbW/yeUA
V4DyA8ftUxBt9t5apwj7P5r1lUdvCpblz7sHVWP/ex8mv8mZgu62qDTuDsxl
n9yiXL5DRfDclQ4m3l9svOdCyHeIPXZZLrMLx7P+b55kxncweL2/RLMXx+s8
qUi0f4dK76bGwHHMPZ2Qd4QD8fsOR52bxFz3I6P8LAfuDKZckORwIGB/eh/D
kQOyhrf6SD85kL6p7wd/Mgd4VnS+ip7jQPTFdQz1Evxd6TEn23kOCOQtPPRs
4kC1U+YBxUUOaHhxiZeNcOC5+Lpfy8t4/w6H1P///g9fPdia
           "]]},
         Annotation[#, "Charting`Private`Tag$2096#2"]& ]}, {}, {}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{True, True},
      AxesLabel->{None, None},
      AxesOrigin->{0, 0},
      DisplayFunction->Identity,
      Frame->{{False, False}, {False, False}},
      FrameLabel->{{None, None}, {None, None}},
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImagePadding->All,
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
        AbsolutePointSize[6], "ScalingFunctions" -> None, 
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
             Part[#, 1]], 
            (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
             Part[#, 1]], 
            (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
             Part[#, 2]]}& )}},
      PlotLabel->FormBox[
       "\"\\!\\(\\*SubscriptBox[\\(h\\), \\(20\\)]\\) and \
\\!\\(\\*SubscriptBox[\\(h\\), \\(21\\)]\\)\"", TraditionalForm],
      PlotRange->{{0, 1}, {-0.3739386332866421, 0.9999998163265381}},
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}], {189., -597.9478841155233}, 
     ImageScaled[{0.5, 0.5}], {360., 222.4922359499622}]}, {}},
  ContentSelectable->True,
  ImageSize->{355.1953125, Automatic},
  PlotRangePadding->{6, 5}]], "Output",
 CellChangeTimes->{
  3.684991464173414*^9, 3.6851769191041927`*^9, 3.6853471129942904`*^9, 
   3.685628684964246*^9, 3.685629288950302*^9, 3.685629474365149*^9, 
   3.685629562673973*^9, 3.6856317801317472`*^9, {3.6856788171250143`*^9, 
   3.68567884329325*^9}, 3.685679159882442*^9, 3.685680526503743*^9, 
   3.685680868332707*^9, 3.6856846040360327`*^9, 3.6856915938519278`*^9, 
   3.685763907460031*^9, 3.6858080088341713`*^9, 3.687091773780168*^9, 
   3.6870921190789623`*^9, 3.688044711518827*^9, 3.6881020040232353`*^9, 
   3.688196463601091*^9, 3.68872876365624*^9, 3.688801506730262*^9, 
   3.688802216016987*^9, 3.700281590689603*^9, 3.700283434125596*^9, 
   3.7002834986414957`*^9, 3.700283699467422*^9, 3.7088463628749657`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Interpolation function", "Section"]], "Subsection",
 CellChangeTimes->{{3.684991735967914*^9, 3.684991739638706*^9}}],

Cell["\<\
The interpolating function over [0, 1] is a linear combination of those six \
basis functions:\
\>", "Text",
 CellChangeTimes->{{3.6800122089225388`*^9, 3.6800122120798273`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"h", "[", 
    RowBox[{
    "x_", ",", "y0_", ",", "y1_", ",", "s0_", ",", "s1_", ",", "a0_", ",", 
     "a1_"}], "]"}], "=", 
   RowBox[{
    RowBox[{"y0", "*", 
     RowBox[{"h00", "[", "x", "]"}]}], "+", 
    RowBox[{"y1", "*", 
     RowBox[{"h01", "[", "x", "]"}]}], "+", 
    RowBox[{"s0", "*", 
     RowBox[{"h10", "[", "x", "]"}]}], "+", 
    RowBox[{"s1", "*", 
     RowBox[{"h11", "[", "x", "]"}]}], "+", 
    RowBox[{"a0", "*", 
     RowBox[{"h20", "[", "x", "]"}]}], "+", 
    RowBox[{"a1", "*", 
     RowBox[{"h21", "[", "x", "]"}]}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.680012223336946*^9, 3.6800122588345423`*^9}, 
   3.684728784351101*^9, {3.684991755743445*^9, 3.684991777447723*^9}, {
   3.685176948207139*^9, 3.685176951141513*^9}, {3.685628695704699*^9, 
   3.685628723779355*^9}, {3.6856293004952087`*^9, 3.685629338076811*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"GraphicsColumn", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Plot", "[", 
       RowBox[{
        RowBox[{"h", "[", 
         RowBox[{
         "x", ",", "y0", ",", "y1", ",", "s0", ",", "s1", ",", "a0", ",", 
          "a1"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "0", ",", "1"}], "}"}], ",", 
        RowBox[{"PlotRange", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "}"}]}], ",", 
        RowBox[{"PlotLabel", "\[Rule]", "\"\<Quintic spline function\>\""}]}],
        "]"}], ",", 
      RowBox[{"Plot", "[", 
       RowBox[{
        RowBox[{"Evaluate", "[", 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"h", "[", 
            RowBox[{
            "x", ",", "y0", ",", "y1", ",", "s0", ",", "s1", ",", "a0", ",", 
             "a1"}], "]"}], ",", "x"}], "]"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "0", ",", "1"}], "}"}], ",", 
        RowBox[{"PlotRange", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "}"}]}], ",", 
        RowBox[{"PlotLabel", "\[Rule]", "\"\<First derivative\>\""}]}], "]"}],
       ",", 
      RowBox[{"Plot", "[", 
       RowBox[{
        RowBox[{"Evaluate", "[", 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"h", "[", 
            RowBox[{
            "x", ",", "y0", ",", "y1", ",", "s0", ",", "s1", ",", "a0", ",", 
             "a1"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", "2"}], "}"}]}], "]"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "0", ",", "1"}], "}"}], ",", 
        RowBox[{"PlotRange", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "50"}], ",", "50"}], "}"}]}], "}"}]}], ",", 
        RowBox[{"PlotLabel", "\[Rule]", "\"\<Second derivative\>\""}]}], 
       "]"}]}], "}"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"y0", ",", 
       RowBox[{"-", "1"}]}], "}"}], ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"y1", ",", "1"}], "}"}], ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"s0", ",", "0"}], "}"}], ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"s1", ",", "0"}], "}"}], ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a0", ",", "0"}], "}"}], ",", 
     RowBox[{"-", "20"}], ",", "20"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a1", ",", "0"}], "}"}], ",", 
     RowBox[{"-", "20"}], ",", "20"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.684991802172834*^9, 3.6849918357082853`*^9}, {
   3.6849918783293657`*^9, 3.684992079844953*^9}, {3.684992128185224*^9, 
   3.684992261981133*^9}, {3.685176959550334*^9, 3.685176983399444*^9}, {
   3.685187911536127*^9, 3.685187912526803*^9}, {3.700281608800745*^9, 
   3.7002816091967497`*^9}, 3.7002836852824087`*^9}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`a0$$ = 0, $CellContext`a1$$ = 
    0, $CellContext`s0$$ = 0, $CellContext`s1$$ = 
    0, $CellContext`y0$$ = -1, $CellContext`y1$$ = 1, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`y0$$], -1}, -2, 2}, {{
       Hold[$CellContext`y1$$], 1}, -2, 2}, {{
       Hold[$CellContext`s0$$], 0}, -2, 2}, {{
       Hold[$CellContext`s1$$], 0}, -2, 2}, {{
       Hold[$CellContext`a0$$], 0}, -20, 20}, {{
       Hold[$CellContext`a1$$], 0}, -20, 20}}, Typeset`size$$ = {
    241., {214., 218.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`y0$2149$$ = 
    0, $CellContext`y1$2150$$ = 0, $CellContext`s0$2151$$ = 
    0, $CellContext`s1$2152$$ = 0, $CellContext`a0$2153$$ = 
    0, $CellContext`a1$2154$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`a0$$ = 0, $CellContext`a1$$ = 
        0, $CellContext`s0$$ = 0, $CellContext`s1$$ = 
        0, $CellContext`y0$$ = -1, $CellContext`y1$$ = 1}, 
      "ControllerVariables" :> {
        Hold[$CellContext`y0$$, $CellContext`y0$2149$$, 0], 
        Hold[$CellContext`y1$$, $CellContext`y1$2150$$, 0], 
        Hold[$CellContext`s0$$, $CellContext`s0$2151$$, 0], 
        Hold[$CellContext`s1$$, $CellContext`s1$2152$$, 0], 
        Hold[$CellContext`a0$$, $CellContext`a0$2153$$, 0], 
        Hold[$CellContext`a1$$, $CellContext`a1$2154$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> GraphicsColumn[{
         Plot[
          $CellContext`h[$CellContext`x, $CellContext`y0$$, \
$CellContext`y1$$, $CellContext`s0$$, $CellContext`s1$$, $CellContext`a0$$, \
$CellContext`a1$$], {$CellContext`x, 0, 1}, PlotRange -> {{0, 1}, {-2, 2}}, 
          PlotLabel -> "Quintic spline function"], 
         Plot[
          Evaluate[
           D[
            $CellContext`h[$CellContext`x, $CellContext`y0$$, \
$CellContext`y1$$, $CellContext`s0$$, $CellContext`s1$$, $CellContext`a0$$, \
$CellContext`a1$$], $CellContext`x]], {$CellContext`x, 0, 1}, 
          PlotRange -> {{0, 1}, {-10, 10}}, PlotLabel -> "First derivative"], 
         
         Plot[
          Evaluate[
           D[
            $CellContext`h[$CellContext`x, $CellContext`y0$$, \
$CellContext`y1$$, $CellContext`s0$$, $CellContext`s1$$, $CellContext`a0$$, \
$CellContext`a1$$], {$CellContext`x, 2}]], {$CellContext`x, 0, 1}, 
          PlotRange -> {{0, 1}, {-50, 50}}, PlotLabel -> 
          "Second derivative"]}], 
      "Specifications" :> {{{$CellContext`y0$$, -1}, -2, 
         2}, {{$CellContext`y1$$, 1}, -2, 2}, {{$CellContext`s0$$, 0}, -2, 
         2}, {{$CellContext`s1$$, 0}, -2, 2}, {{$CellContext`a0$$, 0}, -20, 
         20}, {{$CellContext`a1$$, 0}, -20, 20}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{286., {329., 335.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.68499208073248*^9, 3.684992158616441*^9}, {
   3.684992227812796*^9, 3.6849922624687567`*^9}, {3.6851769743388*^9, 
   3.685176985877411*^9}, 3.685347116923946*^9, 3.6856287318486013`*^9, 
   3.685629319894541*^9, 3.685629474761644*^9, 3.685629562826673*^9, 
   3.6856317802101307`*^9, {3.6856788211299267`*^9, 3.685678843395718*^9}, 
   3.685679160021646*^9, 3.685680526635407*^9, 3.6856808684507313`*^9, 
   3.6856846041443233`*^9, 3.6856915939804792`*^9, 3.685763911286978*^9, 
   3.685808012516983*^9, 3.6870917763114777`*^9, 3.687092119216324*^9, 
   3.6880447116377707`*^9, 3.688102007365507*^9, 3.688196467204542*^9, 
   3.688728766968657*^9, 3.6888015102525787`*^9, 3.688802216084024*^9, {
   3.7002816043742037`*^9, 3.7002816099154167`*^9}, 3.700283434905841*^9, 
   3.7002835020592012`*^9, 3.700283699890155*^9, 3.708846365350506*^9}]
}, Open  ]],

Cell["\<\
We can extend this function to an arbitrary interval using an affine \
transformation:\
\>", "Text",
 CellChangeTimes->{{3.679985713272099*^9, 3.679985747851245*^9}, {
  3.684747298780861*^9, 3.684747299114245*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "x_", "]"}], "=", 
   RowBox[{
    RowBox[{"y0", "*", 
     RowBox[{"h00", "[", 
      FractionBox[
       RowBox[{"x", "-", "x0"}], 
       RowBox[{"x1", "-", "x0"}]], "]"}]}], "+", 
    RowBox[{"y1", "*", 
     RowBox[{"h01", "[", 
      FractionBox[
       RowBox[{"x", "-", "x0"}], 
       RowBox[{"x1", "-", "x0"}]], "]"}]}], "+", 
    RowBox[{"s0", "*", 
     RowBox[{"(", 
      RowBox[{"x1", "-", "x0"}], ")"}], "*", 
     RowBox[{"h10", "[", 
      FractionBox[
       RowBox[{"x", "-", "x0"}], 
       RowBox[{"x1", "-", "x0"}]], "]"}]}], "+", 
    RowBox[{"s1", "*", 
     RowBox[{"(", 
      RowBox[{"x1", "-", "x0"}], ")"}], "*", 
     RowBox[{"h11", "[", 
      FractionBox[
       RowBox[{"x", "-", "x0"}], 
       RowBox[{"x1", "-", "x0"}]], "]"}]}], "+", 
    RowBox[{"a0", "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"x1", "-", "x0"}], ")"}], "^", "2"}], "*", 
     RowBox[{"h20", "[", 
      FractionBox[
       RowBox[{"x", "-", "x0"}], 
       RowBox[{"x1", "-", "x0"}]], "]"}]}], "+", 
    RowBox[{"a1", "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"x1", "-", "x0"}], ")"}], "^", "2"}], "*", 
     RowBox[{"h21", "[", 
      FractionBox[
       RowBox[{"x", "-", "x0"}], 
       RowBox[{"x1", "-", "x0"}]], "]"}]}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.679985751305407*^9, 3.6799857720673933`*^9}, {
   3.679985827811007*^9, 3.679985829935507*^9}, {3.679985891909245*^9, 
   3.679985969530087*^9}, {3.680012391054514*^9, 3.6800124633431187`*^9}, {
   3.684756601440549*^9, 3.684756606907887*^9}, {3.684992333219057*^9, 
   3.684992381359654*^9}, {3.684992445246369*^9, 3.68499244548422*^9}, 
   3.6851769965219307`*^9, {3.6856293436669273`*^9, 3.6856294299939213`*^9}}],

Cell["\<\
Check that the function and its derivatives have the right values:\
\>", "Text",
 CellChangeTimes->{{3.679986002408573*^9, 3.679986027646604*^9}, 
   3.6849924619402227`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"f", "[", "x0", "]"}], ",", 
   RowBox[{"f", "[", "x1", "]"}], ",", 
   RowBox[{
    RowBox[{"f", "'"}], "[", "x0", "]"}], ",", 
   RowBox[{
    RowBox[{"f", "'"}], "[", "x1", "]"}], ",", 
   RowBox[{
    RowBox[{"f", "''"}], "[", "x0", "]"}], ",", 
   RowBox[{
    RowBox[{"f", "''"}], "[", "x1", "]"}]}], "}"}]], "Input",
 CellChangeTimes->{{3.679986033819458*^9, 3.6799860529101*^9}, {
  3.680012498995566*^9, 3.680012500321473*^9}, {3.684756683713193*^9, 
  3.6847567113062077`*^9}, {3.684992390445671*^9, 3.684992397245466*^9}, {
  3.685629482094922*^9, 3.685629483424684*^9}, {3.7002824521471767`*^9, 
  3.700282476720038*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"y0", ",", "y1", ",", "s0", ",", "s1", ",", "a0", ",", "a1"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.679986043186338*^9, 3.679986053279319*^9}, 
   3.679987094620574*^9, 3.679990108693901*^9, 3.6800077970680733`*^9, 
   3.6800082622171183`*^9, 3.680008473035595*^9, 3.680012500641612*^9, 
   3.6841448056940613`*^9, 3.684153902482559*^9, 3.68464767018574*^9, {
   3.684728758670669*^9, 3.684728793952346*^9}, 3.6847448575173903`*^9, 
   3.684745089820448*^9, 3.684745222102645*^9, 3.684745309585223*^9, 
   3.684753669964149*^9, 3.684754589218992*^9, 3.684755270387504*^9, {
   3.684756686036374*^9, 3.684756711840432*^9}, 3.6847580264411907`*^9, 
   3.684775031434121*^9, 3.6848140549124928`*^9, 3.684822846219205*^9, 
   3.684824600971607*^9, 3.684834316327032*^9, 3.6848347680892067`*^9, 
   3.684838590627499*^9, 3.684848571641872*^9, 3.68493977224832*^9, 
   3.6849440307911043`*^9, {3.684992394330521*^9, 3.684992397646467*^9}, 
   3.685177005432891*^9, 3.68534711732378*^9, {3.6856294748487787`*^9, 
   3.685629483805867*^9}, 3.685629563132773*^9, 3.685631780550308*^9, {
   3.685678821502202*^9, 3.685678843687621*^9}, 3.685679160355606*^9, 
   3.6856805269528*^9, 3.685680868802188*^9, 3.68568460447152*^9, 
   3.6856915943221693`*^9, 3.685763911681075*^9, 3.6858080129280853`*^9, 
   3.6870917767969646`*^9, 3.687092119518482*^9, 3.688044711942621*^9, 
   3.6881020077550488`*^9, 3.688196467574399*^9, 3.688728767326673*^9, 
   3.68880151067127*^9, 3.688802216441358*^9, 3.700281653399078*^9, 
   3.7002824773667927`*^9, 3.700283435348166*^9, 3.7002835117448397`*^9, 
   3.700283699973443*^9, 3.708846365630196*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Regularity conditions to determine the parameters of the spline\
\>", "Section",
 CellChangeTimes->{{3.700281770109939*^9, 3.700281774980212*^9}, {
  3.7002818098904333`*^9, 3.700281820977449*^9}}],

Cell["\<\
To determine the parameters of the spline, we impose the requirement that the \
third derivative is continuous at the jointures. That leads to the most \
regular curve possible in the sense that the first derivative has the lowest \
curvature possible.\
\>", "Text",
 CellChangeTimes->{{3.700281928403015*^9, 3.700282019485155*^9}, {
  3.700282062347472*^9, 3.700282097385364*^9}, {3.700282849719301*^9, 
  3.700282866973194*^9}, {3.7013380003488894`*^9, 3.701338000961739*^9}}],

Cell[TextData[{
 "We start by defining two splines over the knots (",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["x", "1"], ",", 
    SubscriptBox["x", "2"], ",", 
    SubscriptBox["x", "3"]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 "). The spline over (",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["x", "1"], ",", 
    SubscriptBox["x", "2"]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 ") if ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["f", "1"], TraditionalForm]],
  FormatType->"TraditionalForm"],
 ", and the one over (",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["x", "2"], ",", 
    SubscriptBox["x", "3"]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 ") is ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["f", "2"], TraditionalForm]],
  FormatType->"TraditionalForm"],
 "."
}], "Text",
 CellChangeTimes->{{3.7002822476836557`*^9, 3.700282299886698*^9}, {
  3.700282349916101*^9, 3.700282404316497*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"f1", "[", "x_", "]"}], "=", 
   RowBox[{
    RowBox[{"y1", "*", 
     RowBox[{"h00", "[", 
      FractionBox[
       RowBox[{"x", "-", "x1"}], 
       RowBox[{"x2", "-", "x1"}]], "]"}]}], "+", 
    RowBox[{"y2", "*", 
     RowBox[{"h01", "[", 
      FractionBox[
       RowBox[{"x", "-", "x1"}], 
       RowBox[{"x2", "-", "x1"}]], "]"}]}], "+", 
    RowBox[{"s1", "*", 
     RowBox[{"(", 
      RowBox[{"x2", "-", "x1"}], ")"}], "*", 
     RowBox[{"h10", "[", 
      FractionBox[
       RowBox[{"x", "-", "x1"}], 
       RowBox[{"x2", "-", "x1"}]], "]"}]}], "+", 
    RowBox[{"s2", "*", 
     RowBox[{"(", 
      RowBox[{"x2", "-", "x1"}], ")"}], "*", 
     RowBox[{"h11", "[", 
      FractionBox[
       RowBox[{"x", "-", "x1"}], 
       RowBox[{"x2", "-", "x1"}]], "]"}]}], "+", 
    RowBox[{"a1", "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"x2", "-", "x1"}], ")"}], "^", "2"}], "*", 
     RowBox[{"h20", "[", 
      FractionBox[
       RowBox[{"x", "-", "x1"}], 
       RowBox[{"x2", "-", "x1"}]], "]"}]}], "+", 
    RowBox[{"a2", "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"x2", "-", "x1"}], ")"}], "^", "2"}], "*", 
     RowBox[{"h21", "[", 
      FractionBox[
       RowBox[{"x", "-", "x1"}], 
       RowBox[{"x2", "-", "x1"}]], "]"}]}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.688802044099718*^9, 3.688802104815937*^9}, {
  3.688802183111497*^9, 3.6888021841945133`*^9}, {3.688810085968902*^9, 
  3.688810125233749*^9}, {3.688810218435849*^9, 3.688810229107991*^9}, {
  3.688813328753846*^9, 3.688813380718101*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"f2", "[", "x_", "]"}], "=", 
   RowBox[{
    RowBox[{"y2", "*", 
     RowBox[{"h00", "[", 
      FractionBox[
       RowBox[{"x", "-", "x2"}], 
       RowBox[{"x3", "-", "x2"}]], "]"}]}], "+", 
    RowBox[{"y3", "*", 
     RowBox[{"h01", "[", 
      FractionBox[
       RowBox[{"x", "-", "x2"}], 
       RowBox[{"x3", "-", "x2"}]], "]"}]}], "+", 
    RowBox[{"s2", "*", 
     RowBox[{"(", 
      RowBox[{"x3", "-", "x2"}], ")"}], "*", 
     RowBox[{"h10", "[", 
      FractionBox[
       RowBox[{"x", "-", "x2"}], 
       RowBox[{"x3", "-", "x2"}]], "]"}]}], "+", 
    RowBox[{"s3", "*", 
     RowBox[{"(", 
      RowBox[{"x3", "-", "x2"}], ")"}], "*", 
     RowBox[{"h11", "[", 
      FractionBox[
       RowBox[{"x", "-", "x2"}], 
       RowBox[{"x3", "-", "x2"}]], "]"}]}], "+", 
    RowBox[{"a2", "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"x3", "-", "x2"}], ")"}], "^", "2"}], "*", 
     RowBox[{"h20", "[", 
      FractionBox[
       RowBox[{"x", "-", "x2"}], 
       RowBox[{"x3", "-", "x2"}]], "]"}]}], "+", 
    RowBox[{"a3", "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"x3", "-", "x2"}], ")"}], "^", "2"}], "*", 
     RowBox[{"h21", "[", 
      FractionBox[
       RowBox[{"x", "-", "x2"}], 
       RowBox[{"x3", "-", "x2"}]], "]"}]}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.688802119282895*^9, 3.688802195258668*^9}, {
  3.6888101332371264`*^9, 3.688810185493845*^9}, {3.688810234013472*^9, 
  3.6888103007967653`*^9}, {3.6888133317205257`*^9, 3.688813331968207*^9}, {
  3.6888133858864403`*^9, 3.688813449337736*^9}}],

Cell["Get the system in matrix form:", "Text",
 CellChangeTimes->{{3.700282755732274*^9, 3.70028276347425*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"system", "=", 
   RowBox[{"CoefficientArrays", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"f1", "'''"}], "[", "x2", "]"}], "\[Equal]", 
       RowBox[{
        RowBox[{"f2", "'''"}], "[", "x2", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"a1", ",", "a2", ",", "a3"}], "}"}]}], "]"}]}], ";"}]], "Input",\

 CellChangeTimes->{{3.700282580071932*^9, 3.7002826688732233`*^9}, {
  3.700282720262854*^9, 3.7002827509174232`*^9}, {3.7002828746228943`*^9, 
  3.700282907628481*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"system", "[", 
   RowBox[{"[", "1", "]"}], "]"}], "//", "Normal"}]], "Input",
 CellChangeTimes->{{3.70028273368297*^9, 3.700282737971877*^9}, {
  3.7002827700822783`*^9, 3.700282780211205*^9}, {3.700282924699298*^9, 
  3.700282933875849*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{"24", " ", "s1"}], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "x1"}], "+", "x2"}], ")"}], "2"]]}], "-", 
   FractionBox[
    RowBox[{"36", " ", "s2"}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "x1"}], "+", "x2"}], ")"}], "2"]], "+", 
   FractionBox[
    RowBox[{"36", " ", "s2"}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "x2"}], "+", "x3"}], ")"}], "2"]], "+", 
   FractionBox[
    RowBox[{"24", " ", "s3"}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "x2"}], "+", "x3"}], ")"}], "2"]], "-", 
   FractionBox[
    RowBox[{"60", " ", "y1"}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "x1"}], "+", "x2"}], ")"}], "3"]], "+", 
   FractionBox[
    RowBox[{"60", " ", "y2"}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "x1"}], "+", "x2"}], ")"}], "3"]], "+", 
   FractionBox[
    RowBox[{"60", " ", "y2"}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "x2"}], "+", "x3"}], ")"}], "3"]], "-", 
   FractionBox[
    RowBox[{"60", " ", "y3"}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "x2"}], "+", "x3"}], ")"}], "3"]]}], "}"}]], "Output",
 CellChangeTimes->{{3.7002827729873533`*^9, 3.700282780652961*^9}, {
   3.700282877637617*^9, 3.700282934237953*^9}, 3.70028343548363*^9, 
   3.700283518339267*^9, 3.700283700064019*^9, 3.7088463657180862`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"system", "[", 
   RowBox[{"[", "2", "]"}], "]"}], "//", "Normal"}]], "Input",
 CellChangeTimes->{{3.7002827848135*^9, 3.700282790732685*^9}, {
  3.7002829396597958`*^9, 3.7002829410605097`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"-", 
     FractionBox["3", 
      RowBox[{
       RowBox[{"-", "x1"}], "+", "x2"}]]}], ",", 
    RowBox[{
     FractionBox["9", 
      RowBox[{
       RowBox[{"-", "x1"}], "+", "x2"}]], "+", 
     FractionBox["9", 
      RowBox[{
       RowBox[{"-", "x2"}], "+", "x3"}]]}], ",", 
    RowBox[{"-", 
     FractionBox["3", 
      RowBox[{
       RowBox[{"-", "x2"}], "+", "x3"}]]}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.700282791120002*^9, 3.70028287870011*^9, 
  3.700282909632519*^9, 3.700282941394175*^9, 3.700283435530456*^9, 
  3.700283519228777*^9, 3.700283700129548*^9, 3.7088463657745857`*^9}]
}, Open  ]],

Cell["\<\
We need two additional equations for the system to be uniquely determined. At \
the lower end (first knot), we impose the third derivative equal to zero.\
\>", "Text",
 CellChangeTimes->{{3.700282975668375*^9, 3.700283031314035*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"systemfirst", "=", 
   RowBox[{"CoefficientArrays", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"f1", "'''"}], "[", "x1", "]"}], "\[Equal]", "0"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"a1", ",", "a2", ",", "a3"}], "}"}]}], "]"}]}], ";"}]], "Input",\

 CellChangeTimes->{{3.7002830447394953`*^9, 3.700283075152955*^9}, {
  3.7002831916417837`*^9, 3.700283192215979*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"systemfirst", "[", 
   RowBox[{"[", "1", "]"}], "]"}], "//", "Normal"}]], "Input",
 CellChangeTimes->{{3.700283081449915*^9, 3.7002830849444103`*^9}, {
  3.7002831945607862`*^9, 3.700283195255847*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{"36", " ", "s1"}], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "x1"}], "+", "x2"}], ")"}], "2"]]}], "-", 
   FractionBox[
    RowBox[{"24", " ", "s2"}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "x1"}], "+", "x2"}], ")"}], "2"]], "-", 
   FractionBox[
    RowBox[{"60", " ", "y1"}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "x1"}], "+", "x2"}], ")"}], "3"]], "+", 
   FractionBox[
    RowBox[{"60", " ", "y2"}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "x1"}], "+", "x2"}], ")"}], "3"]]}], "}"}]], "Output",
 CellChangeTimes->{3.700283085523233*^9, 3.700283200080873*^9, 
  3.700283435618458*^9, 3.700283522273077*^9, 3.700283700224848*^9, 
  3.708846365840517*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"systemfirst", "[", 
   RowBox[{"[", "2", "]"}], "]"}], "//", "Normal"}]], "Input",
 CellChangeTimes->{{3.700283096881415*^9, 3.700283097487883*^9}, {
  3.700283197808145*^9, 3.70028319839963*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"-", 
     FractionBox["9", 
      RowBox[{
       RowBox[{"-", "x1"}], "+", "x2"}]]}], ",", 
    FractionBox["3", 
     RowBox[{
      RowBox[{"-", "x1"}], "+", "x2"}]], ",", "0"}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.7002830980861187`*^9, 3.7002832006982822`*^9, 
  3.70028343568918*^9, 3.7002835232797832`*^9, 3.7002837003415728`*^9, 
  3.708846365875985*^9}]
}, Open  ]],

Cell["\<\
At the upper end (last knot), we estimate the second derivative directly \
using a two-points difference:\
\>", "Text",
 CellChangeTimes->{{3.700283136868021*^9, 3.70028318043183*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"systemlast", "=", 
   RowBox[{"CoefficientArrays", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"f1", "''"}], "[", "x1", "]"}], "\[Equal]", 
       FractionBox[
        RowBox[{"s3", "-", "s2"}], 
        RowBox[{"x3", "-", "x2"}]]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"a1", ",", "a2", ",", "a3"}], "}"}]}], "]"}]}], ";"}]], "Input",\

 CellChangeTimes->{{3.7002830447394953`*^9, 3.700283075152955*^9}, {
  3.700283188002001*^9, 3.700283223838694*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"systemlast", "[", 
   RowBox[{"[", "1", "]"}], "]"}], "//", "Normal"}]], "Input",
 CellChangeTimes->{{3.700283081449915*^9, 3.7002830849444103`*^9}, {
  3.7002832040154676`*^9, 3.700283204471404*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"-", 
   FractionBox[
    RowBox[{
     RowBox[{"-", "s2"}], "+", "s3"}], 
    RowBox[{
     RowBox[{"-", "x2"}], "+", "x3"}]]}], "}"}]], "Output",
 CellChangeTimes->{3.700283085523233*^9, 3.700283226548745*^9, 
  3.7002834357851543`*^9, 3.700283526045845*^9, 3.70028370044191*^9, 
  3.708846365937261*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"systemlast", "[", 
   RowBox[{"[", "2", "]"}], "]"}], "//", "Normal"}]], "Input",
 CellChangeTimes->{{3.700283096881415*^9, 3.700283097487883*^9}, {
  3.700283206455473*^9, 3.700283207031334*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"1", ",", "0", ",", "0"}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.7002830980861187`*^9, 3.700283227772656*^9, 
  3.700283435856492*^9, 3.7002835269825897`*^9, 3.70028370051357*^9, 
  3.70884636597766*^9}]
}, Open  ]],

Cell["Calculate explicit solution for testing purposes:", "Text",
 CellChangeTimes->{{3.700283249278242*^9, 3.700283260820476*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Simplify", "[", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"f1", "'''"}], "[", "x2", "]"}], "\[Equal]", 
        RowBox[{
         RowBox[{"f2", "'''"}], "[", "x2", "]"}]}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"f1", "'''"}], "[", "x1", "]"}], "\[Equal]", "0"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"f2", "''"}], "[", "x3", "]"}], "\[Equal]", 
        FractionBox[
         RowBox[{"s3", "-", "s2"}], 
         RowBox[{"x3", "-", "x2"}]]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"a1", ",", "a2", ",", "a3"}], "}"}]}], "]"}], "]"}], "//", 
  "InputForm"}]], "Input",
 CellChangeTimes->{{3.6888219454054403`*^9, 3.6888220226995993`*^9}, {
   3.700283276341954*^9, 3.7002832765970573`*^9}, 3.701338145058058*^9}],

Cell["\<\
{{a1 -> (7*s3*(x1 - x2)^3*(x2 - x3) + s2*(x1 - x2)*(x2 - x3)*(13*x1^2 + x2^2 \
+ 12*x3^2 - 
       2*x1*(x2 + 12*x3)) + 4*(s1*(x1 - x2)*(9*x1 - 2*x2 - 7*x3)*(x2 - x3)^2 - 
       5*(3*x2*x3^2*(y1 - y2) + 2*x3^3*(-y1 + y2) + 3*x1*(x3^2*(y1 - y2) + 
           2*x2*x3*(-y1 + y2) + x2^2*(y1 - y3)) + x1^3*(y2 - y3) + x2^3*(-y1 \
+ y3) + 
         3*x1^2*x2*(-y2 + y3))))/((x1 - x2)^2*(9*x1 - x2 - 8*x3)*(x2 - x3)^2), 
  a2 -> (21*s3*(x1 - x2)^3*(x2 - x3) + s2*(x1 - x2)*(x2 - x3)*
      (39*x1^2 - 78*x1*x2 + 11*x2^2 + 56*x2*x3 - 28*x3^2) - 
     4*(3*s1*(x1 - x2)*(x2 - x3)^3 - 5*(-2*x3^3*(y1 - y2) + 
         x2*(6*x3^2*(y1 - y2) + 9*x1^2*(y2 - y3)) + x2^3*(2*y1 + y2 - 3*y3) + \

         3*x1^3*(-y2 + y3) + x2^2*(-6*x3*y1 - 9*x1*y2 + 6*x3*y2 + \
9*x1*y3))))/
    ((x1 - x2)^2*(9*x1 - x2 - 8*x3)*(x2 - x3)^2), a3 -> (s2 - s3)/(x2 - x3)}}\
\
\>", "Output",
 CellChangeTimes->{{3.688821984840624*^9, 3.68882202314461*^9}, 
   3.700283278761216*^9, 3.700283436399994*^9, 3.700283529191787*^9, 
   3.7002837010680323`*^9, 3.708846366302287*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Constraint on the spline", "Section"]], "Subsection",
 CellChangeTimes->{{3.684728652710389*^9, 3.6847286600846577`*^9}}],

Cell[TextData[{
 "The interpolation method requires certain conditions on the spline to get a \
nondecreasing quantile function. We search for a lower bound of the \
polynomial ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"f", "''"}], 
     RowBox[{"(", 
      RowBox[{
       SubscriptBox["x", "0"], "+", 
       RowBox[{"x", "(", 
        RowBox[{
         SubscriptBox["x", "1"], "-", 
         SubscriptBox["x", "0"]}], ")"}]}], ")"}]}], "+", 
    RowBox[{
     RowBox[{"f", "'"}], 
     RowBox[{"(", 
      RowBox[{
       SubscriptBox["x", "0"], "+", 
       RowBox[{"x", "(", 
        RowBox[{
         SubscriptBox["x", "1"], "-", 
         SubscriptBox["x", "0"]}], ")"}]}], ")"}], 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{
        RowBox[{"f", "'"}], 
        RowBox[{"(", 
         RowBox[{
          SubscriptBox["x", "0"], "+", 
          RowBox[{"x", "(", 
           RowBox[{
            SubscriptBox["x", "1"], "-", 
            SubscriptBox["x", "0"]}], ")"}]}], ")"}]}]}], ")"}]}]}], 
   TraditionalForm]]],
 " over [0, 1]."
}], "Text",
 CellChangeTimes->{{3.6847563359636927`*^9, 3.6847563797387543`*^9}, {
  3.684757531931656*^9, 3.684757532634527*^9}, {3.684775078944083*^9, 
  3.684775081124384*^9}, {3.684776022278068*^9, 3.6847760234401503`*^9}, {
  3.684831411250986*^9, 3.684831427702526*^9}, {3.6848384584116087`*^9, 
  3.6848384679987173`*^9}, {3.684848325990636*^9, 3.684848334630765*^9}, {
  3.684993442275388*^9, 3.684993447243431*^9}, {3.687092033324613*^9, 
  3.68709208106502*^9}, {3.688056554376346*^9, 3.688056573355288*^9}, {
  3.688101726112542*^9, 3.6881018140704603`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"g", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"f", "''"}], "[", 
     RowBox[{"x0", "+", 
      RowBox[{"x", 
       RowBox[{"(", 
        RowBox[{"x1", "-", "x0"}], ")"}]}]}], "]"}], "+", 
    RowBox[{
     RowBox[{
      RowBox[{"f", "'"}], "[", 
      RowBox[{"x0", "+", 
       RowBox[{"x", 
        RowBox[{"(", 
         RowBox[{"x1", "-", "x0"}], ")"}]}]}], "]"}], 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{
        RowBox[{"f", "'"}], "[", 
        RowBox[{"x0", "+", 
         RowBox[{"x", 
          RowBox[{"(", 
           RowBox[{"x1", "-", "x0"}], ")"}]}]}], "]"}]}], ")"}]}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.68475350763815*^9, 3.684753522554041*^9}, {
   3.684755216223551*^9, 3.6847552210680933`*^9}, {3.684755310208907*^9, 
   3.684755310506259*^9}, {3.684756850996026*^9, 3.684756871649023*^9}, 
   3.6847569439407387`*^9, {3.6847570637964277`*^9, 3.68475707163207*^9}, {
   3.684757279311199*^9, 3.684757293236517*^9}, {3.6847578636700077`*^9, 
   3.684757865553664*^9}, {3.684757941165188*^9, 3.684757941702835*^9}, {
   3.684757990555504*^9, 3.684757991363491*^9}, {3.6847750837054157`*^9, 
   3.684775084680909*^9}, {3.684776025531149*^9, 3.6847760260576277`*^9}, {
   3.684826016735667*^9, 3.684826023268697*^9}, 3.684826200967173*^9, {
   3.6848314326125097`*^9, 3.684831435523219*^9}, {3.684831501268402*^9, 
   3.684831519931452*^9}, {3.684838475567377*^9, 3.6848384839283333`*^9}, {
   3.684993428754271*^9, 3.684993473399036*^9}, {3.684994127429687*^9, 
   3.6849941474957123`*^9}, {3.685177015004026*^9, 3.6851770207999363`*^9}, 
   3.688056545170555*^9, {3.6880565764940567`*^9, 3.6880565968074207`*^9}, {
   3.68810184270434*^9, 3.688101963615829*^9}, {3.688102083937251*^9, 
   3.688102119685051*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"gcoefs", "=", 
   RowBox[{"Simplify", "[", 
    RowBox[{"CoefficientList", "[", 
     RowBox[{"g", ",", "x"}], "]"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6847536962271748`*^9, 3.684753703202795*^9}, {
   3.68475379922609*^9, 3.684753800208333*^9}, {3.684754032501437*^9, 
   3.684754032683488*^9}, {3.68475432008202*^9, 3.684754321085133*^9}, 
   3.684755230502886*^9, {3.6847553131447163`*^9, 3.684755313426228*^9}, {
   3.6847570790668297`*^9, 3.684757108082905*^9}, {3.6847572852826777`*^9, 
   3.684757298381798*^9}, {3.684757868174367*^9, 3.6847578698469763`*^9}, {
   3.684757943300086*^9, 3.684757948575713*^9}, {3.684757998128399*^9, 
   3.684758008650882*^9}, 3.684826596084363*^9, {3.6848315316389313`*^9, 
   3.6848315521569777`*^9}, {3.684838570402334*^9, 3.684838572473947*^9}, {
   3.684994052313304*^9, 3.684994068105097*^9}, 3.684994112360202*^9, {
   3.684994144918446*^9, 3.68499415222198*^9}, {3.6880511484726048`*^9, 
   3.688051156507224*^9}}],

Cell["We rewrite the polynomial in its Bernstein form:", "Text",
 CellChangeTimes->{{3.684757553600067*^9, 3.68475757067846*^9}, {
  3.684758362927676*^9, 3.684758363310399*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"tobernstein", "[", "k_", "]"}], ":=", 
  RowBox[{"Sum", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Part", "[", 
      RowBox[{"gcoefs", ",", 
       RowBox[{"r", "+", "1"}]}], "]"}], "*", 
     RowBox[{
      RowBox[{"Binomial", "[", 
       RowBox[{"k", ",", "r"}], "]"}], "/", 
      RowBox[{"Binomial", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Length", "[", "gcoefs", "]"}], "-", "1"}], ",", "r"}], 
       "]"}]}]}], ",", 
    RowBox[{"{", 
     RowBox[{"r", ",", "0", ",", "k"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.684753965930505*^9, 3.684754087355935*^9}, {
   3.684754205766016*^9, 3.6847542206869907`*^9}, {3.684754258620989*^9, 
   3.684754299297494*^9}, {3.6847543359755907`*^9, 3.684754342535716*^9}, {
   3.684754682250243*^9, 3.684754682368524*^9}, 3.684757946273024*^9, {
   3.68475804561797*^9, 3.684758046317143*^9}, {3.6848263575612087`*^9, 
   3.684826357987534*^9}, {3.684831563338758*^9, 3.684831564173485*^9}, {
   3.6849940731750097`*^9, 3.684994078224986*^9}, {3.6849941791453323`*^9, 
   3.684994228224166*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"bernsteincoefs", "=", 
   RowBox[{"FullSimplify", "[", 
    RowBox[{"Map", "[", 
     RowBox[{"tobernstein", ",", 
      RowBox[{"Range", "[", 
       RowBox[{"0", ",", 
        RowBox[{
         RowBox[{"Length", "[", "gcoefs", "]"}], "-", "1"}]}], "]"}]}], "]"}],
     "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.684822804250133*^9, 3.684822811866702*^9}, {
   3.6848263502555857`*^9, 3.6848263517397213`*^9}, {3.684831575762883*^9, 
   3.684831583934801*^9}, 3.684832766017441*^9, {3.6848340039372797`*^9, 
   3.684834014137732*^9}, {3.684841493692356*^9, 3.684841499473524*^9}, 
   3.68484859983167*^9, {3.684849636594945*^9, 3.684849643485177*^9}, {
   3.684994195450005*^9, 3.6849941956277437`*^9}, {3.684994234934865*^9, 
   3.684994240458427*^9}}],

Cell["\<\
Hence, we require all the following expressions to be non-negative:\
\>", "Text",
 CellChangeTimes->{{3.684994852536284*^9, 3.684994870662912*^9}, {
  3.684994998080534*^9, 3.684995003327413*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TableForm", "[", "bernsteincoefs", "]"}]], "Input",
 CellChangeTimes->{{3.6848496465158663`*^9, 3.684849650472085*^9}, {
  3.684994254232357*^9, 3.6849942602115088`*^9}, {3.684994300285461*^9, 
  3.6849943085487337`*^9}, {3.685177047203426*^9, 3.68517705542616*^9}}],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"a0", "+", "s0", "-", 
       SuperscriptBox["s0", "2"]}]},
     {
      RowBox[{"a0", "+", "s0", "-", 
       SuperscriptBox["s0", "2"], "+", 
       FractionBox[
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"x0", "-", "x1"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"24", " ", "s1"}], "+", 
            RowBox[{"2", " ", "s0", " ", 
             RowBox[{"(", 
              RowBox[{"18", "+", 
               RowBox[{"a0", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{"x0", "-", "x1"}], ")"}], "2"]}]}], ")"}]}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"x0", "-", "x1"}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"3", " ", "a1"}], "+", 
               RowBox[{"a0", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "9"}], "-", "x0", "+", "x1"}], ")"}]}]}], 
              ")"}]}]}], ")"}]}], "+", 
         RowBox[{"60", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "y0"}], "+", "y1"}], ")"}]}]}], 
        RowBox[{"8", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"x0", "-", "x1"}], ")"}], "2"]}]]}]},
     {
      FractionBox[
       RowBox[{
        RowBox[{
         RowBox[{"-", "480"}], " ", 
         RowBox[{"(", 
          RowBox[{"y0", "-", "y1"}], ")"}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"x0", "-", "x1"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"16", " ", 
            SuperscriptBox["s0", "2"], " ", 
            RowBox[{"(", 
             RowBox[{"x0", "-", "x1"}], ")"}]}], "-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"a0", " ", 
               RowBox[{"(", 
                RowBox[{"34", "+", 
                 RowBox[{"5", " ", "x0"}], "-", 
                 RowBox[{"5", " ", "x1"}]}], ")"}]}], "+", 
              RowBox[{"3", " ", "a1", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "6"}], "+", "x0", "-", "x1"}], ")"}]}], "+", 
              RowBox[{"2", " ", 
               SuperscriptBox["a0", "2"], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"x0", "-", "x1"}], ")"}], "2"]}]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"x0", "-", "x1"}], ")"}]}], "+", 
           RowBox[{"24", " ", "s1", " ", 
            RowBox[{"(", 
             RowBox[{"7", "-", "x0", "+", "x1"}], ")"}]}], "+", 
           RowBox[{"60", " ", 
            RowBox[{"(", 
             RowBox[{"y0", "-", "y1"}], ")"}]}], "+", 
           RowBox[{"2", " ", "s0", " ", 
            RowBox[{"(", 
             RowBox[{"156", "+", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"5", " ", "a0"}], "+", 
                 RowBox[{"3", " ", "a1"}]}], ")"}], " ", 
               SuperscriptBox["x0", "2"]}], "+", 
              RowBox[{"2", " ", "x0", " ", 
               RowBox[{"(", 
                RowBox[{"5", "+", 
                 RowBox[{"12", " ", "s1"}], "-", 
                 RowBox[{"5", " ", "a0", " ", "x1"}], "-", 
                 RowBox[{"3", " ", "a1", " ", "x1"}]}], ")"}]}], "+", 
              RowBox[{"x1", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "10"}], "-", 
                 RowBox[{"24", " ", "s1"}], "+", 
                 RowBox[{"5", " ", "a0", " ", "x1"}], "+", 
                 RowBox[{"3", " ", "a1", " ", "x1"}]}], ")"}]}], "-", 
              RowBox[{"60", " ", "y0"}], "+", 
              RowBox[{"60", " ", "y1"}]}], ")"}]}]}], ")"}]}]}], 
       RowBox[{"56", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"x0", "-", "x1"}], ")"}], "2"]}]]},
     {
      FractionBox[
       RowBox[{
        RowBox[{
         RowBox[{"-", "300"}], " ", 
         RowBox[{"(", 
          RowBox[{"y0", "-", "y1"}], ")"}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"x0", "-", "x1"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"96", " ", 
            SuperscriptBox["s0", "2"], " ", 
            RowBox[{"(", 
             RowBox[{"x0", "-", "x1"}], ")"}]}], "+", 
           RowBox[{"4", " ", "s1", " ", 
            RowBox[{"(", 
             RowBox[{"15", "-", 
              RowBox[{"6", " ", "a0", " ", 
               SuperscriptBox["x0", "2"]}], "+", 
              RowBox[{"x1", " ", 
               RowBox[{"(", 
                RowBox[{"11", "-", 
                 RowBox[{"6", " ", "a0", " ", "x1"}]}], ")"}]}], "+", 
              RowBox[{"x0", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "11"}], "+", 
                 RowBox[{"12", " ", "a0", " ", "x1"}]}], ")"}]}]}], ")"}]}], 
           "+", 
           RowBox[{"2", " ", "s0", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "18"}], " ", "a0"}], "+", 
                 RowBox[{"5", " ", "a1"}]}], ")"}], " ", 
               SuperscriptBox["x0", "2"]}], "+", 
              RowBox[{"2", " ", "x0", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "5"}], "+", 
                 RowBox[{"22", " ", "s1"}], "+", 
                 RowBox[{"18", " ", "a0", " ", "x1"}], "-", 
                 RowBox[{"5", " ", "a1", " ", "x1"}]}], ")"}]}], "+", 
              RowBox[{"x1", " ", 
               RowBox[{"(", 
                RowBox[{"10", "-", 
                 RowBox[{"44", " ", "s1"}], "-", 
                 RowBox[{"18", " ", "a0", " ", "x1"}], "+", 
                 RowBox[{"5", " ", "a1", " ", "x1"}]}], ")"}]}], "-", 
              RowBox[{"120", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "y0", "-", "y1"}], ")"}]}]}], 
             ")"}]}], "+", 
           RowBox[{"120", " ", 
            RowBox[{"(", 
             RowBox[{"y0", "-", "y1"}], ")"}]}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"x0", "-", "x1"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"a1", "-", 
              RowBox[{"5", " ", "a1", " ", "x0"}], "+", 
              RowBox[{"3", " ", 
               SuperscriptBox["a0", "2"], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"x0", "-", "x1"}], ")"}], "2"]}], "+", 
              RowBox[{"5", " ", "a1", " ", "x1"}], "-", 
              RowBox[{"a0", " ", 
               RowBox[{"(", 
                RowBox[{"35", "+", 
                 RowBox[{"3", " ", "a1", " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{"x0", "-", "x1"}], ")"}], "2"]}], "-", 
                 RowBox[{"60", " ", "y0"}], "+", 
                 RowBox[{"60", " ", "y1"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], 
       RowBox[{"56", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"x0", "-", "x1"}], ")"}], "2"]}]]},
     {
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         RowBox[{"100", " ", "a0", " ", 
          SuperscriptBox["x0", "2"]}], "+", 
         RowBox[{"100", " ", "a1", " ", 
          SuperscriptBox["x0", "2"]}], "-", 
         RowBox[{"20", " ", "a0", " ", 
          SuperscriptBox["x0", "3"]}], "+", 
         RowBox[{"20", " ", "a1", " ", 
          SuperscriptBox["x0", "3"]}], "+", 
         RowBox[{"9", " ", 
          SuperscriptBox["a0", "2"], " ", 
          SuperscriptBox["x0", "4"]}], "-", 
         RowBox[{"26", " ", "a0", " ", "a1", " ", 
          SuperscriptBox["x0", "4"]}], "+", 
         RowBox[{"9", " ", 
          SuperscriptBox["a1", "2"], " ", 
          SuperscriptBox["x0", "4"]}], "+", 
         RowBox[{"576", " ", 
          SuperscriptBox["s0", "2"], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"x0", "-", "x1"}], ")"}], "2"]}], "+", 
         RowBox[{"576", " ", 
          SuperscriptBox["s1", "2"], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"x0", "-", "x1"}], ")"}], "2"]}], "-", 
         RowBox[{"200", " ", "a0", " ", "x0", " ", "x1"}], "-", 
         RowBox[{"200", " ", "a1", " ", "x0", " ", "x1"}], "+", 
         RowBox[{"60", " ", "a0", " ", 
          SuperscriptBox["x0", "2"], " ", "x1"}], "-", 
         RowBox[{"60", " ", "a1", " ", 
          SuperscriptBox["x0", "2"], " ", "x1"}], "-", 
         RowBox[{"36", " ", 
          SuperscriptBox["a0", "2"], " ", 
          SuperscriptBox["x0", "3"], " ", "x1"}], "+", 
         RowBox[{"104", " ", "a0", " ", "a1", " ", 
          SuperscriptBox["x0", "3"], " ", "x1"}], "-", 
         RowBox[{"36", " ", 
          SuperscriptBox["a1", "2"], " ", 
          SuperscriptBox["x0", "3"], " ", "x1"}], "+", 
         RowBox[{"100", " ", "a0", " ", 
          SuperscriptBox["x1", "2"]}], "+", 
         RowBox[{"100", " ", "a1", " ", 
          SuperscriptBox["x1", "2"]}], "-", 
         RowBox[{"60", " ", "a0", " ", "x0", " ", 
          SuperscriptBox["x1", "2"]}], "+", 
         RowBox[{"60", " ", "a1", " ", "x0", " ", 
          SuperscriptBox["x1", "2"]}], "+", 
         RowBox[{"54", " ", 
          SuperscriptBox["a0", "2"], " ", 
          SuperscriptBox["x0", "2"], " ", 
          SuperscriptBox["x1", "2"]}], "-", 
         RowBox[{"156", " ", "a0", " ", "a1", " ", 
          SuperscriptBox["x0", "2"], " ", 
          SuperscriptBox["x1", "2"]}], "+", 
         RowBox[{"54", " ", 
          SuperscriptBox["a1", "2"], " ", 
          SuperscriptBox["x0", "2"], " ", 
          SuperscriptBox["x1", "2"]}], "+", 
         RowBox[{"20", " ", "a0", " ", 
          SuperscriptBox["x1", "3"]}], "-", 
         RowBox[{"20", " ", "a1", " ", 
          SuperscriptBox["x1", "3"]}], "-", 
         RowBox[{"36", " ", 
          SuperscriptBox["a0", "2"], " ", "x0", " ", 
          SuperscriptBox["x1", "3"]}], "+", 
         RowBox[{"104", " ", "a0", " ", "a1", " ", "x0", " ", 
          SuperscriptBox["x1", "3"]}], "-", 
         RowBox[{"36", " ", 
          SuperscriptBox["a1", "2"], " ", "x0", " ", 
          SuperscriptBox["x1", "3"]}], "+", 
         RowBox[{"9", " ", 
          SuperscriptBox["a0", "2"], " ", 
          SuperscriptBox["x1", "4"]}], "-", 
         RowBox[{"26", " ", "a0", " ", "a1", " ", 
          SuperscriptBox["x1", "4"]}], "+", 
         RowBox[{"9", " ", 
          SuperscriptBox["a1", "2"], " ", 
          SuperscriptBox["x1", "4"]}], "-", 
         RowBox[{"720", " ", "x0", " ", "y0"}], "+", 
         RowBox[{"360", " ", "a0", " ", 
          SuperscriptBox["x0", "2"], " ", "y0"}], "-", 
         RowBox[{"360", " ", "a1", " ", 
          SuperscriptBox["x0", "2"], " ", "y0"}], "+", 
         RowBox[{"720", " ", "x1", " ", "y0"}], "-", 
         RowBox[{"720", " ", "a0", " ", "x0", " ", "x1", " ", "y0"}], "+", 
         RowBox[{"720", " ", "a1", " ", "x0", " ", "x1", " ", "y0"}], "+", 
         RowBox[{"360", " ", "a0", " ", 
          SuperscriptBox["x1", "2"], " ", "y0"}], "-", 
         RowBox[{"360", " ", "a1", " ", 
          SuperscriptBox["x1", "2"], " ", "y0"}], "+", 
         RowBox[{"3600", " ", 
          SuperscriptBox["y0", "2"]}], "-", 
         RowBox[{"4", " ", "s1", " ", 
          RowBox[{"(", 
           RowBox[{"x0", "-", "x1"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"4", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"11", " ", "a0"}], "-", 
               RowBox[{"9", " ", "a1"}]}], ")"}], " ", 
             SuperscriptBox["x0", "2"]}], "+", 
            RowBox[{"x1", " ", 
             RowBox[{"(", 
              RowBox[{"55", "+", 
               RowBox[{"44", " ", "a0", " ", "x1"}], "-", 
               RowBox[{"36", " ", "a1", " ", "x1"}]}], ")"}]}], "+", 
            RowBox[{"x0", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "55"}], "-", 
               RowBox[{"88", " ", "a0", " ", "x1"}], "+", 
               RowBox[{"72", " ", "a1", " ", "x1"}]}], ")"}]}], "+", 
            RowBox[{"120", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               RowBox[{"6", " ", "y0"}], "-", 
               RowBox[{"6", " ", "y1"}]}], ")"}]}]}], ")"}]}], "-", 
         RowBox[{"4", " ", "s0", " ", 
          RowBox[{"(", 
           RowBox[{"x0", "-", "x1"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"4", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"9", " ", "a0"}], "-", 
               RowBox[{"11", " ", "a1"}]}], ")"}], " ", 
             SuperscriptBox["x0", "2"]}], "-", 
            RowBox[{"x0", " ", 
             RowBox[{"(", 
              RowBox[{"55", "+", 
               RowBox[{"322", " ", "s1"}], "+", 
               RowBox[{"72", " ", "a0", " ", "x1"}], "-", 
               RowBox[{"88", " ", "a1", " ", "x1"}]}], ")"}]}], "+", 
            RowBox[{"x1", " ", 
             RowBox[{"(", 
              RowBox[{"55", "+", 
               RowBox[{"322", " ", "s1"}], "+", 
               RowBox[{"36", " ", "a0", " ", "x1"}], "-", 
               RowBox[{"44", " ", "a1", " ", "x1"}]}], ")"}]}], "+", 
            RowBox[{"120", " ", 
             RowBox[{"(", 
              RowBox[{"1", "+", 
               RowBox[{"6", " ", "y0"}], "-", 
               RowBox[{"6", " ", "y1"}]}], ")"}]}]}], ")"}]}], "-", 
         RowBox[{"360", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "2"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"a0", "-", "a1"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{"x0", "-", "x1"}], ")"}]}]}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{"x0", "-", "x1"}], ")"}]}], "+", 
            RowBox[{"20", " ", "y0"}]}], ")"}], " ", "y1"}], "+", 
         RowBox[{"3600", " ", 
          SuperscriptBox["y1", "2"]}]}], 
        RowBox[{"280", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"x0", "-", "x1"}], ")"}], "2"]}]]}]},
     {
      FractionBox[
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"x0", "-", "x1"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"96", " ", 
            SuperscriptBox["s1", "2"], " ", 
            RowBox[{"(", 
             RowBox[{"x0", "-", "x1"}], ")"}]}], "+", 
           RowBox[{"4", " ", "s0", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "15"}], "+", 
              RowBox[{"6", " ", "a1", " ", 
               SuperscriptBox["x0", "2"]}], "+", 
              RowBox[{"x0", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "11"}], "+", 
                 RowBox[{"22", " ", "s1"}], "-", 
                 RowBox[{"12", " ", "a1", " ", "x1"}]}], ")"}]}], "+", 
              RowBox[{"x1", " ", 
               RowBox[{"(", 
                RowBox[{"11", "-", 
                 RowBox[{"22", " ", "s1"}], "+", 
                 RowBox[{"6", " ", "a1", " ", "x1"}]}], ")"}]}]}], ")"}]}], 
           "-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"x0", "-", "x1"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"a0", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", 
                 RowBox[{"x0", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "5"}], "+", 
                    RowBox[{"3", " ", "a1", " ", "x0"}]}], ")"}]}], "+", 
                 RowBox[{"5", " ", "x1"}], "-", 
                 RowBox[{"6", " ", "a1", " ", "x0", " ", "x1"}], "+", 
                 RowBox[{"3", " ", "a1", " ", 
                  SuperscriptBox["x1", "2"]}]}], ")"}]}], "+", 
              RowBox[{"a1", " ", 
               RowBox[{"(", 
                RowBox[{"35", "-", 
                 RowBox[{"3", " ", "a1", " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{"x0", "-", "x1"}], ")"}], "2"]}], "+", 
                 RowBox[{"60", " ", "y0"}], "-", 
                 RowBox[{"60", " ", "y1"}]}], ")"}]}]}], ")"}]}], "-", 
           RowBox[{"2", " ", "s1", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"5", " ", "a0"}], "-", 
                 RowBox[{"18", " ", "a1"}]}], ")"}], " ", 
               SuperscriptBox["x0", "2"]}], "+", 
              RowBox[{"x1", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "10"}], "+", 
                 RowBox[{"5", " ", "a0", " ", "x1"}], "-", 
                 RowBox[{"18", " ", "a1", " ", "x1"}]}], ")"}]}], "+", 
              RowBox[{"2", " ", "x0", " ", 
               RowBox[{"(", 
                RowBox[{"5", "-", 
                 RowBox[{"5", " ", "a0", " ", "x1"}], "+", 
                 RowBox[{"18", " ", "a1", " ", "x1"}]}], ")"}]}], "+", 
              RowBox[{"120", " ", 
               RowBox[{"(", 
                RowBox[{"1", "+", "y0", "-", "y1"}], ")"}]}]}], ")"}]}], "+", 
           
           RowBox[{"120", " ", 
            RowBox[{"(", 
             RowBox[{"y0", "-", "y1"}], ")"}]}]}], ")"}]}], "+", 
        RowBox[{"300", " ", 
         RowBox[{"(", 
          RowBox[{"y0", "-", "y1"}], ")"}]}]}], 
       RowBox[{"56", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"x0", "-", "x1"}], ")"}], "2"]}]]},
     {
      FractionBox[
       RowBox[{
        RowBox[{"480", " ", 
         RowBox[{"(", 
          RowBox[{"y0", "-", "y1"}], ")"}]}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"x0", "-", "x1"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"34", " ", "a1"}], "+", 
              RowBox[{"a1", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "5"}], "+", 
                 RowBox[{"2", " ", "a1", " ", 
                  RowBox[{"(", 
                   RowBox[{"x0", "-", "x1"}], ")"}]}]}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{"x0", "-", "x1"}], ")"}]}], "-", 
              RowBox[{"3", " ", "a0", " ", 
               RowBox[{"(", 
                RowBox[{"6", "+", "x0", "-", "x1"}], ")"}]}]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"x0", "-", "x1"}], ")"}]}], "+", 
           RowBox[{"16", " ", 
            SuperscriptBox["s1", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "x0"}], "+", "x1"}], ")"}]}], "-", 
           RowBox[{"24", " ", "s0", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "7"}], "+", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", 
                 RowBox[{"2", " ", "s1"}]}], ")"}], " ", "x0"}], "+", "x1", 
              "-", 
              RowBox[{"2", " ", "s1", " ", "x1"}]}], ")"}]}], "+", 
           RowBox[{"2", " ", "s1", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"3", " ", "a0"}], "+", 
                 RowBox[{"5", " ", "a1"}]}], ")"}], " ", 
               SuperscriptBox["x0", "2"]}], "-", 
              RowBox[{"2", " ", "x0", " ", 
               RowBox[{"(", 
                RowBox[{"5", "+", 
                 RowBox[{"3", " ", "a0", " ", "x1"}], "+", 
                 RowBox[{"5", " ", "a1", " ", "x1"}]}], ")"}]}], "+", 
              RowBox[{"x1", " ", 
               RowBox[{"(", 
                RowBox[{"10", "+", 
                 RowBox[{"3", " ", "a0", " ", "x1"}], "+", 
                 RowBox[{"5", " ", "a1", " ", "x1"}]}], ")"}]}], "+", 
              RowBox[{"12", " ", 
               RowBox[{"(", 
                RowBox[{"13", "+", 
                 RowBox[{"5", " ", "y0"}], "-", 
                 RowBox[{"5", " ", "y1"}]}], ")"}]}]}], ")"}]}], "+", 
           RowBox[{"60", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "y0"}], "+", "y1"}], ")"}]}]}], ")"}]}]}], 
       RowBox[{"56", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"x0", "-", "x1"}], ")"}], "2"]}]]},
     {
      FractionBox[
       RowBox[{
        RowBox[{
         RowBox[{"-", 
          RowBox[{"(", 
           RowBox[{"x0", "-", "x1"}], ")"}]}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"24", " ", "s0"}], "+", 
           RowBox[{"8", " ", 
            SuperscriptBox["s1", "2"], " ", 
            RowBox[{"(", 
             RowBox[{"x0", "-", "x1"}], ")"}]}], "-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"3", " ", "a0"}], "+", 
              RowBox[{"a1", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "x0", "-", "x1"}], ")"}]}]}], ")"}],
             " ", 
            RowBox[{"(", 
             RowBox[{"x0", "-", "x1"}], ")"}]}], "+", 
           RowBox[{"2", " ", "s1", " ", 
            RowBox[{"(", 
             RowBox[{"18", "+", 
              RowBox[{"a1", " ", 
               SuperscriptBox["x0", "2"]}], "-", 
              RowBox[{"2", " ", "x0", " ", 
               RowBox[{"(", 
                RowBox[{"2", "+", 
                 RowBox[{"a1", " ", "x1"}]}], ")"}]}], "+", 
              RowBox[{"x1", " ", 
               RowBox[{"(", 
                RowBox[{"4", "+", 
                 RowBox[{"a1", " ", "x1"}]}], ")"}]}]}], ")"}]}]}], ")"}]}], 
        "+", 
        RowBox[{"60", " ", 
         RowBox[{"(", 
          RowBox[{"y0", "-", "y1"}], ")"}]}]}], 
       RowBox[{"8", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"x0", "-", "x1"}], ")"}], "2"]}]]},
     {
      RowBox[{"a1", "+", "s1", "-", 
       SuperscriptBox["s1", "2"]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.684849650904456*^9, 3.684853845930447*^9, 3.684939777434432*^9, 
   3.684944036204896*^9, 3.684994260827334*^9, 3.6849943093439713`*^9, {
   3.685177034395582*^9, 3.685177055720673*^9}, 3.685347121857955*^9, 
   3.6856295679110413`*^9, 3.6856317852797537`*^9, {3.685678825789811*^9, 
   3.6856788449775047`*^9}, 3.6856791613632317`*^9, 3.68568053171244*^9, 
   3.685680871084478*^9, 3.685684609042943*^9, 3.6856915985048637`*^9, 
   3.6857639155440903`*^9, 3.6858080174460506`*^9, 3.687092124046014*^9, 
   3.688044716600431*^9, 3.6881020721475782`*^9, 3.688102148438651*^9, 
   3.688196489436185*^9, 3.688728787821794*^9, 3.7002834653208113`*^9, 
   3.700283559898878*^9, 3.7002837327104893`*^9, 3.708846389402906*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Map", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"InputForm", "[", 
      RowBox[{"Simplify", "[", 
       RowBox[{"D", "[", 
        RowBox[{"#", ",", "a1"}], "]"}], "]"}], "]"}], "&"}], ",", 
    "bernsteincoefs"}], "]"}], "//", "TableForm"}]], "Input",
 CellChangeTimes->{{3.688044732023967*^9, 3.6880447558117027`*^9}, {
   3.688044882221189*^9, 3.6880448896120443`*^9}, {3.688044948295907*^9, 
   3.688044948650461*^9}, {3.688045020104171*^9, 3.688045049184051*^9}, {
   3.688045117285006*^9, 3.688045118335894*^9}, {3.68804516165968*^9, 
   3.688045161942547*^9}, {3.688045629700732*^9, 3.688045631054748*^9}, {
   3.6880456847698603`*^9, 3.688045685052412*^9}, {3.6880457545258713`*^9, 
   3.688045780592517*^9}, 3.688102199929666*^9, {3.6881024938916397`*^9, 
   3.688102502089512*^9}, {3.688102534304579*^9, 3.688102539230892*^9}, {
   3.688102591665926*^9, 3.6881025921563463`*^9}, {3.68810262821681*^9, 
   3.688102629386736*^9}, {3.688102683925825*^9, 3.68810271466994*^9}, {
   3.68810276831117*^9, 3.688102768674047*^9}, {3.688102805258247*^9, 
   3.688102806480734*^9}, {3.688102841181822*^9, 3.688102841577671*^9}}],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      InterpretationBox[
       StyleBox["0",
        ShowStringCharacters->True,
        NumberMarks->True],
       InputForm[0],
       AutoDelete->True,
       Editable->True]},
     {
      InterpretationBox[
       StyleBox[
        RowBox[{"3", "/", "8"}],
        ShowStringCharacters->True,
        NumberMarks->True],
       InputForm[
        Rational[3, 8]],
       AutoDelete->True,
       Editable->True]},
     {
      InterpretationBox[
       StyleBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{"3", "*", 
           RowBox[{"(", 
            RowBox[{"6", " ", "+", " ", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], " ", "+", " ", 
                RowBox[{"2", "*", "s0"}]}], ")"}], "*", "x0"}], " ", "+", " ",
              "x1", " ", "-", " ", 
             RowBox[{"2", "*", "s0", "*", "x1"}]}], ")"}]}], ")"}], "/", 
         "56"}],
        ShowStringCharacters->True,
        NumberMarks->True],
       InputForm[
       Rational[3, 56] (
         6 + (-1 + 2 $CellContext`s0) $CellContext`x0 + $CellContext`x1 - 
         2 $CellContext`s0 $CellContext`x1)],
       AutoDelete->True,
       Editable->True]},
     {
      InterpretationBox[
       StyleBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", " ", "-", " ", 
           RowBox[{"3", "*", "a0", "*", 
            RowBox[{"x0", "^", "2"}]}], " ", "+", " ", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"5", " ", "-", " ", 
              RowBox[{"10", "*", "s0"}]}], ")"}], "*", "x1"}], " ", "-", " ", 
           
           RowBox[{"3", "*", "a0", "*", 
            RowBox[{"x1", "^", "2"}]}], " ", "+", " ", 
           RowBox[{"x0", "*", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "5"}], " ", "+", " ", 
              RowBox[{"10", "*", "s0"}], " ", "+", " ", 
              RowBox[{"6", "*", "a0", "*", "x1"}]}], ")"}]}]}], ")"}], "/", 
         "56"}],
        ShowStringCharacters->True,
        NumberMarks->True],
       InputForm[
       Rational[1, 56] (1 - 
         3 $CellContext`a0 $CellContext`x0^2 + (5 - 
           10 $CellContext`s0) $CellContext`x1 - 
         3 $CellContext`a0 $CellContext`x1^2 + $CellContext`x0 (-5 + 
           10 $CellContext`s0 + 6 $CellContext`a0 $CellContext`x1))],
       AutoDelete->True,
       Editable->True]},
     {
      InterpretationBox[
       StyleBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"13", "*", "a0"}], " ", "-", " ", 
              RowBox[{"9", "*", "a1"}]}], ")"}], "*", 
            RowBox[{"x0", "^", "2"}]}], " ", "+", " ", 
           RowBox[{"2", "*", 
            RowBox[{"(", 
             RowBox[{"5", " ", "+", " ", 
              RowBox[{"44", "*", "s0"}], " ", "+", " ", 
              RowBox[{"36", "*", "s1"}]}], ")"}], "*", "x1"}], " ", "+", " ", 
           
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"13", "*", "a0"}], " ", "-", " ", 
              RowBox[{"9", "*", "a1"}]}], ")"}], "*", 
            RowBox[{"x1", "^", "2"}]}], " ", "-", " ", 
           RowBox[{"2", "*", "x0", "*", 
            RowBox[{"(", 
             RowBox[{"5", " ", "+", " ", 
              RowBox[{"44", "*", "s0"}], " ", "+", " ", 
              RowBox[{"36", "*", "s1"}], " ", "+", " ", 
              RowBox[{"13", "*", "a0", "*", "x1"}], " ", "-", " ", 
              RowBox[{"9", "*", "a1", "*", "x1"}]}], ")"}]}], " ", "+", " ", 
           RowBox[{"10", "*", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "5"}], " ", "+", " ", 
              RowBox[{"18", "*", "y0"}], " ", "-", " ", 
              RowBox[{"18", "*", "y1"}]}], ")"}]}]}], ")"}], "/", "140"}],
        ShowStringCharacters->True,
        NumberMarks->True],
       InputForm[
       Rational[
         1, 140] ((13 $CellContext`a0 - 9 $CellContext`a1) $CellContext`x0^2 + 
         2 (5 + 44 $CellContext`s0 + 36 $CellContext`s1) $CellContext`x1 + (
           13 $CellContext`a0 - 9 $CellContext`a1) $CellContext`x1^2 - 
         2 $CellContext`x0 (5 + 44 $CellContext`s0 + 36 $CellContext`s1 + 
          13 $CellContext`a0 $CellContext`x1 - 
          9 $CellContext`a1 $CellContext`x1) + 
         10 (-5 + 18 $CellContext`y0 - 18 $CellContext`y1))],
       AutoDelete->True,
       Editable->True]},
     {
      InterpretationBox[
       StyleBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "35"}], " ", "-", " ", 
           RowBox[{"3", "*", "a0", "*", 
            RowBox[{"x0", "^", "2"}]}], " ", "+", " ", 
           RowBox[{"6", "*", "a1", "*", 
            RowBox[{"x0", "^", "2"}]}], " ", "+", " ", 
           RowBox[{"24", "*", "s0", "*", 
            RowBox[{"(", 
             RowBox[{"x0", " ", "-", " ", "x1"}], ")"}]}], " ", "+", " ", 
           RowBox[{"36", "*", "s1", "*", 
            RowBox[{"(", 
             RowBox[{"x0", " ", "-", " ", "x1"}], ")"}]}], " ", "+", " ", 
           RowBox[{"6", "*", "a0", "*", "x0", "*", "x1"}], " ", "-", " ", 
           RowBox[{"12", "*", "a1", "*", "x0", "*", "x1"}], " ", "-", " ", 
           RowBox[{"3", "*", "a0", "*", 
            RowBox[{"x1", "^", "2"}]}], " ", "+", " ", 
           RowBox[{"6", "*", "a1", "*", 
            RowBox[{"x1", "^", "2"}]}], " ", "-", " ", 
           RowBox[{"60", "*", "y0"}], " ", "+", " ", 
           RowBox[{"60", "*", "y1"}]}], ")"}], "/", "56"}],
        ShowStringCharacters->True,
        NumberMarks->True],
       InputForm[
       Rational[1, 56] (-35 - 3 $CellContext`a0 $CellContext`x0^2 + 
         6 $CellContext`a1 $CellContext`x0^2 + 
         24 $CellContext`s0 ($CellContext`x0 - $CellContext`x1) + 
         36 $CellContext`s1 ($CellContext`x0 - $CellContext`x1) + 
         6 $CellContext`a0 $CellContext`x0 $CellContext`x1 - 
         12 $CellContext`a1 $CellContext`x0 $CellContext`x1 - 
         3 $CellContext`a0 $CellContext`x1^2 + 
         6 $CellContext`a1 $CellContext`x1^2 - 60 $CellContext`y0 + 
         60 $CellContext`y1)],
       AutoDelete->True,
       Editable->True]},
     {
      InterpretationBox[
       StyleBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "34"}], " ", "-", " ", 
           RowBox[{"4", "*", "a1", "*", 
            RowBox[{"x0", "^", "2"}]}], " ", "+", " ", 
           RowBox[{"5", "*", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], " ", "+", " ", 
              RowBox[{"2", "*", "s1"}]}], ")"}], "*", "x1"}], " ", "-", " ", 
           RowBox[{"4", "*", "a1", "*", 
            RowBox[{"x1", "^", "2"}]}], " ", "+", " ", 
           RowBox[{"x0", "*", 
            RowBox[{"(", 
             RowBox[{"5", " ", "-", " ", 
              RowBox[{"10", "*", "s1"}], " ", "+", " ", 
              RowBox[{"8", "*", "a1", "*", "x1"}]}], ")"}]}]}], ")"}], "/", 
         "56"}],
        ShowStringCharacters->True,
        NumberMarks->True],
       InputForm[
       Rational[1, 56] (-34 - 4 $CellContext`a1 $CellContext`x0^2 + 
         5 (-1 + 2 $CellContext`s1) $CellContext`x1 - 
         4 $CellContext`a1 $CellContext`x1^2 + $CellContext`x0 (5 - 
           10 $CellContext`s1 + 8 $CellContext`a1 $CellContext`x1))],
       AutoDelete->True,
       Editable->True]},
     {
      InterpretationBox[
       StyleBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], " ", "+", " ", "x0", " ", "-", " ", 
           RowBox[{"2", "*", "s1", "*", "x0"}], " ", "+", " ", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], " ", "+", " ", 
              RowBox[{"2", "*", "s1"}]}], ")"}], "*", "x1"}]}], ")"}], "/", 
         "8"}],
        ShowStringCharacters->True,
        NumberMarks->True],
       InputForm[
       Rational[1, 8] (-1 + $CellContext`x0 - 
         2 $CellContext`s1 $CellContext`x0 + (-1 + 
           2 $CellContext`s1) $CellContext`x1)],
       AutoDelete->True,
       Editable->True]},
     {
      InterpretationBox[
       StyleBox["1",
        ShowStringCharacters->True,
        NumberMarks->True],
       InputForm[1],
       AutoDelete->True,
       Editable->True]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.688044741190701*^9, 3.688044756482841*^9}, 
   3.688044891098242*^9, 3.688044949116189*^9, {3.688045021471223*^9, 
   3.6880450496291122`*^9}, 3.6880451192344437`*^9, 3.6880451623721*^9, 
   3.688045631740316*^9, 3.688045685474269*^9, {3.688045755591983*^9, 
   3.688045781051346*^9}, 3.688102201694371*^9, 3.688102503228257*^9, 
   3.6881025407385*^9, 3.688102592998266*^9, 3.688102629986431*^9, 
   3.688102684929956*^9, 3.6881027152487717`*^9, 3.68810276920404*^9, 
   3.688102807783016*^9, 3.688102842053035*^9, 3.6881964895060167`*^9, 
   3.688728787888228*^9, 3.700283465390572*^9, 3.7002835621249*^9, 
   3.700283732783389*^9, 3.70884638947432*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[Phi]", "[", 
    RowBox[{
    "x_", ",", "x0_", ",", "x1_", ",", "y0_", ",", "y1_", ",", "s0_", ",", 
     "s1_", ",", "a0_", ",", "a1_"}], "]"}], "=", "g"}], ";"}]], "Input",
 CellChangeTimes->{{3.684994353083992*^9, 3.684994361433378*^9}, {
  3.684994874665927*^9, 3.6849949352734327`*^9}, {3.6849951073583603`*^9, 
  3.684995119444932*^9}, {3.685177134047578*^9, 3.685177135341152*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[Psi]", "[", 
    RowBox[{
    "x0_", ",", "x1_", ",", "y0_", ",", "y1_", ",", "s0_", ",", "s1_", ",", 
     "a0_", ",", "a1_"}], "]"}], "=", 
   RowBox[{"Min", "[", "bernsteincoefs", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.684994950003084*^9, 3.684994959915365*^9}, {
  3.6851771376864357`*^9, 3.685177139164734*^9}}],

Cell["\<\
We can check the bound for different values of the parameters.\
\>", "Text",
 CellChangeTimes->{{3.68475758221528*^9, 3.684757596885277*^9}, 
   3.687092104648117*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"\[Phi]", "[", 
        RowBox[{
        "x", ",", "0", ",", "1", ",", "y0", ",", "y1", ",", "s0", ",", "s1", 
         ",", "a0", ",", "a1"}], "]"}], ",", 
       RowBox[{"\[Psi]", "[", 
        RowBox[{
        "0", ",", "1", ",", "y0", ",", "y1", ",", "s0", ",", "s1", ",", "a0", 
         ",", "a1"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "1"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"y0", ",", "2"}], "}"}], ",", "1", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"y1", ",", "2.5"}], "}"}], ",", "1", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"s0", ",", 
       RowBox[{"1", "/", "2"}]}], "}"}], ",", "0", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"s1", ",", 
       RowBox[{"1", "/", "2"}]}], "}"}], ",", "0", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a0", ",", "0"}], "}"}], ",", 
     RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a1", ",", "0"}], "}"}], ",", 
     RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.684755257635488*^9, {3.684755328614603*^9, 3.6847554021462*^9}, {
   3.684757923805357*^9, 3.6847579260464354`*^9}, {3.684758055921343*^9, 
   3.684758061952982*^9}, {3.684826639496828*^9, 3.684826669382956*^9}, {
   3.684831613475789*^9, 3.684831633100978*^9}, {3.684831704385172*^9, 
   3.684831708488339*^9}, {3.684853167828528*^9, 3.68485317737886*^9}, {
   3.6849399531351547`*^9, 3.684939959292966*^9}, {3.684941582858212*^9, 
   3.684941588409773*^9}, {3.6849416504900427`*^9, 3.684941656672017*^9}, {
   3.684944394062715*^9, 3.6849444250042953`*^9}, {3.684945011550735*^9, 
   3.684945057505723*^9}, {3.684995013312011*^9, 3.684995060183075*^9}, 
   3.684995098408121*^9, {3.6849951388531027`*^9, 3.684995246637582*^9}, {
   3.684995284201331*^9, 3.6849953496302557`*^9}, {3.6849953969397573`*^9, 
   3.68499540395583*^9}, {3.6849993838361597`*^9, 3.68499939220251*^9}, {
   3.6849994243614197`*^9, 3.684999431264223*^9}, {3.6851771412225637`*^9, 
   3.685177152068776*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`a0$$ = 0, $CellContext`a1$$ = 
    0, $CellContext`s0$$ = Rational[1, 2], $CellContext`s1$$ = Rational[
    1, 2], $CellContext`y0$$ = 2, $CellContext`y1$$ = 2.5, Typeset`show$$ = 
    True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`y0$$], 2}, 1, 4}, {{
       Hold[$CellContext`y1$$], 2.5}, 1, 4}, {{
       Hold[$CellContext`s0$$], 
       Rational[1, 2]}, 0, 2}, {{
       Hold[$CellContext`s1$$], 
       Rational[1, 2]}, 0, 2}, {{
       Hold[$CellContext`a0$$], 0}, -10, 10}, {{
       Hold[$CellContext`a1$$], 0}, -10, 10}}, Typeset`size$$ = {
    360., {173., 178.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`y0$89154$$ = 
    0, $CellContext`y1$89155$$ = 0, $CellContext`s0$89156$$ = 
    0, $CellContext`s1$89157$$ = 0, $CellContext`a0$89158$$ = 
    0, $CellContext`a1$89159$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`a0$$ = 0, $CellContext`a1$$ = 
        0, $CellContext`s0$$ = Rational[1, 2], $CellContext`s1$$ = 
        Rational[1, 2], $CellContext`y0$$ = 2, $CellContext`y1$$ = 2.5}, 
      "ControllerVariables" :> {
        Hold[$CellContext`y0$$, $CellContext`y0$89154$$, 0], 
        Hold[$CellContext`y1$$, $CellContext`y1$89155$$, 0], 
        Hold[$CellContext`s0$$, $CellContext`s0$89156$$, 0], 
        Hold[$CellContext`s1$$, $CellContext`s1$89157$$, 0], 
        Hold[$CellContext`a0$$, $CellContext`a0$89158$$, 0], 
        Hold[$CellContext`a1$$, $CellContext`a1$89159$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Plot[{
         $CellContext`\[Phi][$CellContext`x, 0, 
          1, $CellContext`y0$$, $CellContext`y1$$, $CellContext`s0$$, \
$CellContext`s1$$, $CellContext`a0$$, $CellContext`a1$$], 
         $CellContext`\[Psi][
         0, 1, $CellContext`y0$$, $CellContext`y1$$, $CellContext`s0$$, \
$CellContext`s1$$, $CellContext`a0$$, $CellContext`a1$$]}, {$CellContext`x, 0,
          1}, PlotRange -> {{0, 1}, {-2, 2}}, AspectRatio -> 1], 
      "Specifications" :> {{{$CellContext`y0$$, 2}, 1, 
         4}, {{$CellContext`y1$$, 2.5}, 1, 4}, {{$CellContext`s0$$, 
          Rational[1, 2]}, 0, 2}, {{$CellContext`s1$$, 
          Rational[1, 2]}, 0, 2}, {{$CellContext`a0$$, 0}, -10, 
         10}, {{$CellContext`a1$$, 0}, -10, 10}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{405., {288., 294.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.684755350321897*^9, 3.684755403706368*^9}, 
   3.684757308021234*^9, 3.684757926777152*^9, 3.684758062733572*^9, 
   3.6847750318401318`*^9, 3.684776051236032*^9, 3.684814055349525*^9, 
   3.6848141182536173`*^9, 3.684822847018278*^9, 3.6848246016636763`*^9, 
   3.684826840915353*^9, 3.6848270560116987`*^9, {3.684831600132443*^9, 
   3.6848316334200907`*^9}, 3.684831708855934*^9, 3.684833051497698*^9, 
   3.684853117158512*^9, {3.684853177903825*^9, 3.684853219752963*^9}, {
   3.684939824505287*^9, 3.68493983785816*^9}, 3.68493995968806*^9, 
   3.68494158908858*^9, 3.684941657150436*^9, 3.684943255875866*^9, 
   3.684944036993352*^9, {3.684944381255899*^9, 3.684944425439131*^9}, {
   3.684945012488615*^9, 3.6849450579887133`*^9}, {3.684995050776547*^9, 
   3.684995060709496*^9}, {3.684995099203722*^9, 3.6849951440814877`*^9}, {
   3.684995199054281*^9, 3.6849952117029667`*^9}, 3.684995247137718*^9, {
   3.6849952911952267`*^9, 3.684995350224783*^9}, 3.684995404512802*^9, 
   3.684999393509424*^9, 3.6849994316334763`*^9, 3.6851771528669853`*^9, 
   3.685347121999425*^9, 3.685629568245451*^9, 3.68563178556548*^9, {
   3.685678825974762*^9, 3.6856788452237377`*^9}, 3.685679161538403*^9, 
   3.685680531984975*^9, 3.685680871267749*^9, 3.685684609160184*^9, 
   3.6856915986187553`*^9, 3.685763915629807*^9, 3.685808017624496*^9, 
   3.687092134596302*^9, 3.688044716684702*^9, 3.688196489643874*^9, 
   3.6887287879419117`*^9, 3.7002834654868917`*^9, 3.7002835672633457`*^9, 
   3.700283732893228*^9, 3.70884638956091*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Map", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"InputForm", "[", 
      RowBox[{"Simplify", "[", "#", "]"}], "]"}], "&"}], ",", 
    RowBox[{"CoefficientList", "[", 
     RowBox[{"g", ",", "x"}], "]"}]}], "]"}], "//", "TableForm"}]], "Input",
 CellChangeTimes->{{3.688728833531333*^9, 3.688728842426792*^9}, {
  3.688728902405842*^9, 3.6887289303863564`*^9}}],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      InterpretationBox[
       StyleBox[
        RowBox[{"a0", " ", "+", " ", "s0", " ", "-", " ", 
         RowBox[{"s0", "^", "2"}]}],
        ShowStringCharacters->True,
        NumberMarks->True],
       InputForm[$CellContext`a0 + $CellContext`s0 - $CellContext`s0^2],
       AutoDelete->True,
       Editable->True]},
     {
      InterpretationBox[
       StyleBox[
        RowBox[{
         RowBox[{"a0", "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "9"}], " ", "+", " ", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], " ", "+", " ", 
               RowBox[{"2", "*", "s0"}]}], ")"}], "*", "x0"}], " ", "+", " ", 
            "x1", " ", "-", " ", 
            RowBox[{"2", "*", "s0", "*", "x1"}]}], ")"}]}], " ", "+", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"3", "*", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"a1", "*", 
               RowBox[{"x0", "^", "2"}]}], " ", "+", " ", 
              RowBox[{"12", "*", "s0", "*", 
               RowBox[{"(", 
                RowBox[{"x0", " ", "-", " ", "x1"}], ")"}]}], " ", "+", " ", 
              RowBox[{"8", "*", "s1", "*", 
               RowBox[{"(", 
                RowBox[{"x0", " ", "-", " ", "x1"}], ")"}]}], " ", "-", " ", 
              RowBox[{"2", "*", "a1", "*", "x0", "*", "x1"}], " ", "+", " ", 
              RowBox[{"a1", "*", 
               RowBox[{"x1", "^", "2"}]}], " ", "-", " ", 
              RowBox[{"20", "*", "y0"}], " ", "+", " ", 
              RowBox[{"20", "*", "y1"}]}], ")"}]}], ")"}], "/", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"x0", " ", "-", " ", "x1"}], ")"}], "^", "2"}]}]}],
        ShowStringCharacters->True,
        NumberMarks->True],
       InputForm[$CellContext`a0 (-9 + (-1 + 
            2 $CellContext`s0) $CellContext`x0 + $CellContext`x1 - 
          2 $CellContext`s0 $CellContext`x1) + 
        3 ($CellContext`x0 - $CellContext`x1)^(-2) ($CellContext`a1 \
$CellContext`x0^2 + 12 $CellContext`s0 ($CellContext`x0 - $CellContext`x1) + 
          8 $CellContext`s1 ($CellContext`x0 - $CellContext`x1) - 
          2 $CellContext`a1 $CellContext`x0 $CellContext`x1 + $CellContext`a1 \
$CellContext`x1^2 - 20 $CellContext`y0 + 20 $CellContext`y1)],
       AutoDelete->True,
       Editable->True]},
     {
      InterpretationBox[
       StyleBox[
        RowBox[{
         RowBox[{"-", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"a0", "^", "2"}], "*", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"x0", " ", "-", " ", "x1"}], ")"}], "^", "2"}]}], 
           ")"}]}], " ", "-", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"9", "*", "a0", "*", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "4"}], " ", "+", " ", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], " ", "+", " ", 
                 RowBox[{"2", "*", "s0"}]}], ")"}], "*", "x0"}], " ", "+", 
              " ", "x1", " ", "-", " ", 
              RowBox[{"2", "*", "s0", "*", "x1"}]}], ")"}]}], ")"}], "/", 
          "2"}], " ", "+", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"3", "*", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"a1", "*", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "8"}], " ", "+", " ", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], " ", "+", " ", 
                    RowBox[{"2", "*", "s0"}]}], ")"}], "*", "x0"}], " ", "+", 
                 " ", "x1", " ", "-", " ", 
                 RowBox[{"2", "*", "s0", "*", "x1"}]}], ")"}]}], " ", "+", 
              " ", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"4", "*", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"6", "*", 
                    RowBox[{"s0", "^", "2"}], "*", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"x0", " ", "-", " ", "x1"}], ")"}], "^", "2"}]}], 
                   " ", "-", " ", 
                   RowBox[{"2", "*", "s1", "*", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"x0", "^", "2"}], " ", "+", " ", 
                    RowBox[{"x0", "*", 
                    RowBox[{"(", 
                    RowBox[{"7", " ", "-", " ", 
                    RowBox[{"2", "*", "x1"}]}], ")"}]}], " ", "+", " ", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "7"}], " ", "+", " ", "x1"}], ")"}], "*", 
                    "x1"}]}], ")"}]}], " ", "+", " ", 
                   RowBox[{"5", "*", 
                    RowBox[{"(", 
                    RowBox[{"6", " ", "+", " ", "x0", " ", "-", " ", "x1"}], 
                    ")"}], "*", 
                    RowBox[{"(", 
                    RowBox[{"y0", " ", "-", " ", "y1"}], ")"}]}], " ", "+", 
                   " ", 
                   RowBox[{"s0", "*", 
                    RowBox[{"(", 
                    RowBox[{"x0", " ", "-", " ", "x1"}], ")"}], "*", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "16"}], " ", "+", " ", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "3"}], " ", "+", " ", 
                    RowBox[{"4", "*", "s1"}]}], ")"}], "*", "x0"}], " ", "+", 
                    " ", 
                    RowBox[{"3", "*", "x1"}], " ", "-", " ", 
                    RowBox[{"4", "*", "s1", "*", "x1"}], " ", "-", " ", 
                    RowBox[{"10", "*", "y0"}], " ", "+", " ", 
                    RowBox[{"10", "*", "y1"}]}], ")"}]}]}], ")"}]}], ")"}], 
               "/", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"x0", " ", "-", " ", "x1"}], ")"}], "^", "2"}]}]}], 
             ")"}]}], ")"}], "/", "2"}]}],
        ShowStringCharacters->True,
        NumberMarks->True],
       InputForm[-$CellContext`a0^2 ($CellContext`x0 - $CellContext`x1)^2 + 
        Rational[-9, 
           2] $CellContext`a0 (-4 + (-1 + 
            2 $CellContext`s0) $CellContext`x0 + $CellContext`x1 - 
          2 $CellContext`s0 $CellContext`x1) + 
        Rational[
          3, 2] ($CellContext`a1 (-8 + (-1 + 
              2 $CellContext`s0) $CellContext`x0 + $CellContext`x1 - 
            2 $CellContext`s0 $CellContext`x1) + 
          4 ($CellContext`x0 - $CellContext`x1)^(-2) (
            6 $CellContext`s0^2 ($CellContext`x0 - $CellContext`x1)^2 - 
            2 $CellContext`s1 ($CellContext`x0^2 + $CellContext`x0 (7 - 
               2 $CellContext`x1) + (-7 + $CellContext`x1) $CellContext`x1) + 
            5 (6 + $CellContext`x0 - $CellContext`x1) ($CellContext`y0 - \
$CellContext`y1) + $CellContext`s0 ($CellContext`x0 - $CellContext`x1) (-16 + \
(-3 + 4 $CellContext`s1) $CellContext`x0 + 3 $CellContext`x1 - 
              4 $CellContext`s1 $CellContext`x1 - 10 $CellContext`y0 + 
              10 $CellContext`y1)))],
       AutoDelete->True,
       Editable->True]},
     {
      InterpretationBox[
       StyleBox[
        RowBox[{
         RowBox[{"9", "*", 
          RowBox[{"a0", "^", "2"}], "*", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"x0", " ", "-", " ", "x1"}], ")"}], "^", "2"}]}], " ", 
         "-", " ", 
         RowBox[{"a0", "*", 
          RowBox[{"(", 
           RowBox[{"10", " ", "+", " ", 
            RowBox[{"3", "*", "a1", "*", 
             RowBox[{"x0", "^", "2"}]}], " ", "-", " ", 
            RowBox[{"6", "*", 
             RowBox[{"(", 
              RowBox[{"1", " ", "+", " ", 
               RowBox[{"4", "*", "s0"}], " ", "+", " ", 
               RowBox[{"4", "*", "s1"}]}], ")"}], "*", "x1"}], " ", "+", " ", 
            
            RowBox[{"3", "*", "a1", "*", 
             RowBox[{"x1", "^", "2"}]}], " ", "+", " ", 
            RowBox[{"6", "*", "x0", "*", 
             RowBox[{"(", 
              RowBox[{"1", " ", "+", " ", 
               RowBox[{"4", "*", "s0"}], " ", "+", " ", 
               RowBox[{"4", "*", "s1"}], " ", "-", " ", 
               RowBox[{"a1", "*", "x1"}]}], ")"}]}], " ", "-", " ", 
            RowBox[{"60", "*", "y0"}], " ", "+", " ", 
            RowBox[{"60", "*", "y1"}]}], ")"}]}], " ", "+", " ", 
         RowBox[{"2", "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"a1", "*", 
             RowBox[{"(", 
              RowBox[{"5", " ", "+", " ", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"2", " ", "-", " ", 
                  RowBox[{"4", "*", "s0"}]}], ")"}], "*", "x0"}], " ", "+", 
               " ", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "2"}], " ", "+", " ", 
                  RowBox[{"4", "*", "s0"}]}], ")"}], "*", "x1"}]}], ")"}]}], 
            " ", "-", " ", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"2", "*", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"16", "*", 
                  RowBox[{"s0", "^", "2"}], "*", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"x0", " ", "-", " ", "x1"}], ")"}], "^", "2"}]}], 
                 " ", "+", " ", 
                 RowBox[{"s1", "*", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"-", "7"}], "*", 
                    RowBox[{"x0", "^", "2"}]}], " ", "+", " ", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"15", " ", "-", " ", 
                    RowBox[{"7", "*", "x1"}]}], ")"}], "*", "x1"}], " ", "+", 
                    " ", 
                    RowBox[{"x0", "*", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "15"}], " ", "+", " ", 
                    RowBox[{"14", "*", "x1"}]}], ")"}]}]}], ")"}]}], " ", "+",
                  " ", 
                 RowBox[{"15", "*", 
                  RowBox[{"(", 
                   RowBox[{"2", " ", "+", " ", "x0", " ", "-", " ", "x1"}], 
                   ")"}], "*", 
                  RowBox[{"(", 
                   RowBox[{"y0", " ", "-", " ", "y1"}], ")"}]}], " ", "+", 
                 " ", 
                 RowBox[{"s0", "*", 
                  RowBox[{"(", 
                   RowBox[{"x0", " ", "-", " ", "x1"}], ")"}], "*", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "15"}], " ", "+", " ", 
                    RowBox[{"2", "*", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "4"}], " ", "+", " ", 
                    RowBox[{"7", "*", "s1"}]}], ")"}], "*", "x0"}], " ", "+", 
                    " ", 
                    RowBox[{"8", "*", "x1"}], " ", "-", " ", 
                    RowBox[{"14", "*", "s1", "*", "x1"}], " ", "-", " ", 
                    RowBox[{"30", "*", "y0"}], " ", "+", " ", 
                    RowBox[{"30", "*", "y1"}]}], ")"}]}]}], ")"}]}], ")"}], 
             "/", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"x0", " ", "-", " ", "x1"}], ")"}], "^", "2"}]}]}], 
           ")"}]}]}],
        ShowStringCharacters->True,
        NumberMarks->True],
       InputForm[
       9 $CellContext`a0^2 ($CellContext`x0 - $CellContext`x1)^2 - \
$CellContext`a0 (10 + 3 $CellContext`a1 $CellContext`x0^2 - 
         6 (1 + 4 $CellContext`s0 + 4 $CellContext`s1) $CellContext`x1 + 
         3 $CellContext`a1 $CellContext`x1^2 + 
         6 $CellContext`x0 (1 + 4 $CellContext`s0 + 
           4 $CellContext`s1 - $CellContext`a1 $CellContext`x1) - 
         60 $CellContext`y0 + 60 $CellContext`y1) + 
        2 ($CellContext`a1 (
            5 + (2 - 4 $CellContext`s0) $CellContext`x0 + (-2 + 
              4 $CellContext`s0) $CellContext`x1) - 
          2 ($CellContext`x0 - $CellContext`x1)^(-2) (
           16 $CellContext`s0^2 ($CellContext`x0 - $CellContext`x1)^2 + \
$CellContext`s1 ((-7) $CellContext`x0^2 + (15 - 
               7 $CellContext`x1) $CellContext`x1 + $CellContext`x0 (-15 + 
               14 $CellContext`x1)) + 
           15 (2 + $CellContext`x0 - $CellContext`x1) ($CellContext`y0 - \
$CellContext`y1) + $CellContext`s0 ($CellContext`x0 - $CellContext`x1) (-15 + 
             2 (-4 + 7 $CellContext`s1) $CellContext`x0 + 8 $CellContext`x1 - 
             14 $CellContext`s1 $CellContext`x1 - 30 $CellContext`y0 + 
             30 $CellContext`y1)))],
       AutoDelete->True,
       Editable->True]},
     {
      InterpretationBox[
       StyleBox[
        RowBox[{
         RowBox[{
          RowBox[{"-", "15"}], "*", "s0"}], " ", "-", " ", 
         RowBox[{"294", "*", 
          RowBox[{"s0", "^", "2"}]}], " ", "-", " ", 
         RowBox[{"15", "*", "s1"}], " ", "-", " ", 
         RowBox[{"402", "*", "s0", "*", "s1"}], " ", "-", " ", 
         RowBox[{"144", "*", 
          RowBox[{"s1", "^", "2"}]}], " ", "+", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"5", "*", "a0", "*", 
            RowBox[{"(", 
             RowBox[{"x0", " ", "-", " ", "x1"}], ")"}]}], ")"}], "/", "2"}], 
         " ", "+", " ", 
         RowBox[{"221", "*", "a0", "*", "s0", "*", 
          RowBox[{"(", 
           RowBox[{"x0", " ", "-", " ", "x1"}], ")"}]}], " ", "+", " ", 
         RowBox[{"164", "*", "a0", "*", "s1", "*", 
          RowBox[{"(", 
           RowBox[{"x0", " ", "-", " ", "x1"}], ")"}]}], " ", "-", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"129", "*", 
            RowBox[{"a0", "^", "2"}], "*", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"x0", " ", "-", " ", "x1"}], ")"}], "^", "2"}]}], ")"}],
           "/", "4"}], " ", "+", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"43", "*", "a0", "*", "a1", "*", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"x0", " ", "-", " ", "x1"}], ")"}], "^", "2"}]}], ")"}],
           "/", "2"}], " ", "-", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"9", "*", 
            RowBox[{"a1", "^", "2"}], "*", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"x0", " ", "-", " ", "x1"}], ")"}], "^", "2"}]}], ")"}],
           "/", "4"}], " ", "+", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"5", "*", "a1", "*", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "x0"}], " ", "+", " ", "x1"}], ")"}]}], ")"}], "/",
           "2"}], " ", "+", " ", 
         RowBox[{"49", "*", "a1", "*", "s0", "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "x0"}], " ", "+", " ", "x1"}], ")"}]}], " ", "+", 
         " ", 
         RowBox[{"36", "*", "a1", "*", "s1", "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "x0"}], " ", "+", " ", "x1"}], ")"}]}], " ", "-", 
         " ", 
         RowBox[{"390", "*", "a0", "*", "y0"}], " ", "+", " ", 
         RowBox[{"90", "*", "a1", "*", "y0"}], " ", "+", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"30", "*", "y0"}], ")"}], "/", 
          RowBox[{"(", 
           RowBox[{"x0", " ", "-", " ", "x1"}], ")"}]}], " ", "+", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1020", "*", "s0", "*", "y0"}], ")"}], "/", 
          RowBox[{"(", 
           RowBox[{"x0", " ", "-", " ", "x1"}], ")"}]}], " ", "+", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"720", "*", "s1", "*", "y0"}], ")"}], "/", 
          RowBox[{"(", 
           RowBox[{"x0", " ", "-", " ", "x1"}], ")"}]}], " ", "-", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"900", "*", 
            RowBox[{"y0", "^", "2"}]}], ")"}], "/", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"x0", " ", "-", " ", "x1"}], ")"}], "^", "2"}]}], " ", 
         "+", " ", 
         RowBox[{"390", "*", "a0", "*", "y1"}], " ", "-", " ", 
         RowBox[{"90", "*", "a1", "*", "y1"}], " ", "+", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"30", "*", "y1"}], ")"}], "/", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "x0"}], " ", "+", " ", "x1"}], ")"}]}], " ", "+", 
         " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1020", "*", "s0", "*", "y1"}], ")"}], "/", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "x0"}], " ", "+", " ", "x1"}], ")"}]}], " ", "+", 
         " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"720", "*", "s1", "*", "y1"}], ")"}], "/", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "x0"}], " ", "+", " ", "x1"}], ")"}]}], " ", "+", 
         " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1800", "*", "y0", "*", "y1"}], ")"}], "/", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"x0", " ", "-", " ", "x1"}], ")"}], "^", "2"}]}], " ", 
         "-", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"900", "*", 
            RowBox[{"y1", "^", "2"}]}], ")"}], "/", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"x0", " ", "-", " ", "x1"}], ")"}], "^", "2"}]}]}],
        ShowStringCharacters->True,
        NumberMarks->True],
       InputForm[(-15) $CellContext`s0 - 294 $CellContext`s0^2 - 
        15 $CellContext`s1 - 402 $CellContext`s0 $CellContext`s1 - 
        144 $CellContext`s1^2 + 
        Rational[5, 2] $CellContext`a0 ($CellContext`x0 - $CellContext`x1) + 
        221 $CellContext`a0 $CellContext`s0 ($CellContext`x0 - \
$CellContext`x1) + 
        164 $CellContext`a0 $CellContext`s1 ($CellContext`x0 - \
$CellContext`x1) + 
        Rational[-129, 
           4] $CellContext`a0^2 ($CellContext`x0 - $CellContext`x1)^2 + 
        Rational[
          43, 2] $CellContext`a0 $CellContext`a1 ($CellContext`x0 - \
$CellContext`x1)^2 + 
        Rational[-9, 
           4] $CellContext`a1^2 ($CellContext`x0 - $CellContext`x1)^2 + 
        Rational[5, 2] $CellContext`a1 (-$CellContext`x0 + $CellContext`x1) + 
        49 $CellContext`a1 $CellContext`s0 (-$CellContext`x0 + \
$CellContext`x1) + 
        36 $CellContext`a1 $CellContext`s1 (-$CellContext`x0 + \
$CellContext`x1) - 390 $CellContext`a0 $CellContext`y0 + 
        90 $CellContext`a1 $CellContext`y0 + 
        30 ($CellContext`x0 - $CellContext`x1)^(-1) $CellContext`y0 + 
        1020 $CellContext`s0 ($CellContext`x0 - $CellContext`x1)^(-1) \
$CellContext`y0 + 
        720 $CellContext`s1 ($CellContext`x0 - $CellContext`x1)^(-1) \
$CellContext`y0 - 
        900 ($CellContext`x0 - $CellContext`x1)^(-2) $CellContext`y0^2 + 
        390 $CellContext`a0 $CellContext`y1 - 
        90 $CellContext`a1 $CellContext`y1 + 
        30 (-$CellContext`x0 + $CellContext`x1)^(-1) $CellContext`y1 + 
        1020 $CellContext`s0 (-$CellContext`x0 + $CellContext`x1)^(-1) \
$CellContext`y1 + 
        720 $CellContext`s1 (-$CellContext`x0 + $CellContext`x1)^(-1) \
$CellContext`y1 + 
        1800 ($CellContext`x0 - $CellContext`x1)^(-2) $CellContext`y0 \
$CellContext`y1 - 
        900 ($CellContext`x0 - $CellContext`x1)^(-2) $CellContext`y1^2],
       AutoDelete->True,
       Editable->True]},
     {
      InterpretationBox[
       StyleBox[
        RowBox[{
         RowBox[{"1152", "*", 
          RowBox[{"s0", "^", "2"}]}], " ", "+", " ", 
         RowBox[{"1776", "*", "s0", "*", "s1"}], " ", "+", " ", 
         RowBox[{"672", "*", 
          RowBox[{"s1", "^", "2"}]}], " ", "+", " ", 
         RowBox[{"240", "*", "a1", "*", "s0", "*", 
          RowBox[{"(", 
           RowBox[{"x0", " ", "-", " ", "x1"}], ")"}]}], " ", "+", " ", 
         RowBox[{"180", "*", "a1", "*", "s1", "*", 
          RowBox[{"(", 
           RowBox[{"x0", " ", "-", " ", "x1"}], ")"}]}], " ", "+", " ", 
         RowBox[{"59", "*", 
          RowBox[{"a0", "^", "2"}], "*", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"x0", " ", "-", " ", "x1"}], ")"}], "^", "2"}]}], " ", 
         "-", " ", 
         RowBox[{"59", "*", "a0", "*", "a1", "*", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"x0", " ", "-", " ", "x1"}], ")"}], "^", "2"}]}], " ", 
         "+", " ", 
         RowBox[{"12", "*", 
          RowBox[{"a1", "^", "2"}], "*", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"x0", " ", "-", " ", "x1"}], ")"}], "^", "2"}]}], " ", 
         "+", " ", 
         RowBox[{"534", "*", "a0", "*", "s0", "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "x0"}], " ", "+", " ", "x1"}], ")"}]}], " ", "+", 
         " ", 
         RowBox[{"426", "*", "a0", "*", "s1", "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "x0"}], " ", "+", " ", "x1"}], ")"}]}], " ", "+", 
         " ", 
         RowBox[{"960", "*", "a0", "*", "y0"}], " ", "-", " ", 
         RowBox[{"420", "*", "a1", "*", "y0"}], " ", "+", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"4080", "*", "s0", "*", "y0"}], ")"}], "/", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "x0"}], " ", "+", " ", "x1"}], ")"}]}], " ", "+", 
         " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"3120", "*", "s1", "*", "y0"}], ")"}], "/", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "x0"}], " ", "+", " ", "x1"}], ")"}]}], " ", "+", 
         " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"3600", "*", 
            RowBox[{"y0", "^", "2"}]}], ")"}], "/", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"x0", " ", "-", " ", "x1"}], ")"}], "^", "2"}]}], " ", 
         "-", " ", 
         RowBox[{"960", "*", "a0", "*", "y1"}], " ", "+", " ", 
         RowBox[{"420", "*", "a1", "*", "y1"}], " ", "+", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"4080", "*", "s0", "*", "y1"}], ")"}], "/", 
          RowBox[{"(", 
           RowBox[{"x0", " ", "-", " ", "x1"}], ")"}]}], " ", "+", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"3120", "*", "s1", "*", "y1"}], ")"}], "/", 
          RowBox[{"(", 
           RowBox[{"x0", " ", "-", " ", "x1"}], ")"}]}], " ", "-", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"7200", "*", "y0", "*", "y1"}], ")"}], "/", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"x0", " ", "-", " ", "x1"}], ")"}], "^", "2"}]}], " ", 
         "+", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"3600", "*", 
            RowBox[{"y1", "^", "2"}]}], ")"}], "/", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"x0", " ", "-", " ", "x1"}], ")"}], "^", "2"}]}]}],
        ShowStringCharacters->True,
        NumberMarks->True],
       InputForm[
       1152 $CellContext`s0^2 + 1776 $CellContext`s0 $CellContext`s1 + 
        672 $CellContext`s1^2 + 
        240 $CellContext`a1 $CellContext`s0 ($CellContext`x0 - \
$CellContext`x1) + 
        180 $CellContext`a1 $CellContext`s1 ($CellContext`x0 - \
$CellContext`x1) + 59 $CellContext`a0^2 ($CellContext`x0 - $CellContext`x1)^2 - 
        59 $CellContext`a0 $CellContext`a1 ($CellContext`x0 - \
$CellContext`x1)^2 + 
        12 $CellContext`a1^2 ($CellContext`x0 - $CellContext`x1)^2 + 
        534 $CellContext`a0 $CellContext`s0 (-$CellContext`x0 + \
$CellContext`x1) + 
        426 $CellContext`a0 $CellContext`s1 (-$CellContext`x0 + \
$CellContext`x1) + 960 $CellContext`a0 $CellContext`y0 - 
        420 $CellContext`a1 $CellContext`y0 + 
        4080 $CellContext`s0 (-$CellContext`x0 + $CellContext`x1)^(-1) \
$CellContext`y0 + 
        3120 $CellContext`s1 (-$CellContext`x0 + $CellContext`x1)^(-1) \
$CellContext`y0 + 
        3600 ($CellContext`x0 - $CellContext`x1)^(-2) $CellContext`y0^2 - 
        960 $CellContext`a0 $CellContext`y1 + 
        420 $CellContext`a1 $CellContext`y1 + 
        4080 $CellContext`s0 ($CellContext`x0 - $CellContext`x1)^(-1) \
$CellContext`y1 + 
        3120 $CellContext`s1 ($CellContext`x0 - $CellContext`x1)^(-1) \
$CellContext`y1 - 
        7200 ($CellContext`x0 - $CellContext`x1)^(-2) $CellContext`y0 \
$CellContext`y1 + 
        3600 ($CellContext`x0 - $CellContext`x1)^(-2) $CellContext`y1^2],
       AutoDelete->True,
       Editable->True]},
     {
      InterpretationBox[
       StyleBox[
        RowBox[{
         RowBox[{
          RowBox[{"-", "1564"}], "*", 
          RowBox[{"s0", "^", "2"}]}], " ", "-", " ", 
         RowBox[{"2692", "*", "s0", "*", "s1"}], " ", "-", " ", 
         RowBox[{"1144", "*", 
          RowBox[{"s1", "^", "2"}]}], " ", "+", " ", 
         RowBox[{"609", "*", "a0", "*", "s0", "*", 
          RowBox[{"(", 
           RowBox[{"x0", " ", "-", " ", "x1"}], ")"}]}], " ", "+", " ", 
         RowBox[{"531", "*", "a0", "*", "s1", "*", 
          RowBox[{"(", 
           RowBox[{"x0", " ", "-", " ", "x1"}], ")"}]}], " ", "-", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"117", "*", 
            RowBox[{"a0", "^", "2"}], "*", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"x0", " ", "-", " ", "x1"}], ")"}], "^", "2"}]}], ")"}],
           "/", "2"}], " ", "+", " ", 
         RowBox[{"78", "*", "a0", "*", "a1", "*", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"x0", " ", "-", " ", "x1"}], ")"}], "^", "2"}]}], " ", 
         "-", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"47", "*", 
            RowBox[{"a1", "^", "2"}], "*", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"x0", " ", "-", " ", "x1"}], ")"}], "^", "2"}]}], ")"}],
           "/", "2"}], " ", "+", " ", 
         RowBox[{"391", "*", "a1", "*", "s0", "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "x0"}], " ", "+", " ", "x1"}], ")"}]}], " ", "+", 
         " ", 
         RowBox[{"329", "*", "a1", "*", "s1", "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "x0"}], " ", "+", " ", "x1"}], ")"}]}], " ", "-", 
         " ", 
         RowBox[{"1140", "*", "a0", "*", "y0"}], " ", "+", " ", 
         RowBox[{"720", "*", "a1", "*", "y0"}], " ", "+", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"5820", "*", "s0", "*", "y0"}], ")"}], "/", 
          RowBox[{"(", 
           RowBox[{"x0", " ", "-", " ", "x1"}], ")"}]}], " ", "+", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"4980", "*", "s1", "*", "y0"}], ")"}], "/", 
          RowBox[{"(", 
           RowBox[{"x0", " ", "-", " ", "x1"}], ")"}]}], " ", "-", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"5400", "*", 
            RowBox[{"y0", "^", "2"}]}], ")"}], "/", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"x0", " ", "-", " ", "x1"}], ")"}], "^", "2"}]}], " ", 
         "+", " ", 
         RowBox[{"1140", "*", "a0", "*", "y1"}], " ", "-", " ", 
         RowBox[{"720", "*", "a1", "*", "y1"}], " ", "+", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"5820", "*", "s0", "*", "y1"}], ")"}], "/", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "x0"}], " ", "+", " ", "x1"}], ")"}]}], " ", "+", 
         " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"4980", "*", "s1", "*", "y1"}], ")"}], "/", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "x0"}], " ", "+", " ", "x1"}], ")"}]}], " ", "+", 
         " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"10800", "*", "y0", "*", "y1"}], ")"}], "/", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"x0", " ", "-", " ", "x1"}], ")"}], "^", "2"}]}], " ", 
         "-", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"5400", "*", 
            RowBox[{"y1", "^", "2"}]}], ")"}], "/", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"x0", " ", "-", " ", "x1"}], ")"}], "^", "2"}]}]}],
        ShowStringCharacters->True,
        NumberMarks->True],
       InputForm[(-1564) $CellContext`s0^2 - 
        2692 $CellContext`s0 $CellContext`s1 - 1144 $CellContext`s1^2 + 
        609 $CellContext`a0 $CellContext`s0 ($CellContext`x0 - \
$CellContext`x1) + 
        531 $CellContext`a0 $CellContext`s1 ($CellContext`x0 - \
$CellContext`x1) + 
        Rational[-117, 
           2] $CellContext`a0^2 ($CellContext`x0 - $CellContext`x1)^2 + 
        78 $CellContext`a0 $CellContext`a1 ($CellContext`x0 - \
$CellContext`x1)^2 + 
        Rational[-47, 
           2] $CellContext`a1^2 ($CellContext`x0 - $CellContext`x1)^2 + 
        391 $CellContext`a1 $CellContext`s0 (-$CellContext`x0 + \
$CellContext`x1) + 
        329 $CellContext`a1 $CellContext`s1 (-$CellContext`x0 + \
$CellContext`x1) - 1140 $CellContext`a0 $CellContext`y0 + 
        720 $CellContext`a1 $CellContext`y0 + 
        5820 $CellContext`s0 ($CellContext`x0 - $CellContext`x1)^(-1) \
$CellContext`y0 + 
        4980 $CellContext`s1 ($CellContext`x0 - $CellContext`x1)^(-1) \
$CellContext`y0 - 
        5400 ($CellContext`x0 - $CellContext`x1)^(-2) $CellContext`y0^2 + 
        1140 $CellContext`a0 $CellContext`y1 - 
        720 $CellContext`a1 $CellContext`y1 + 
        5820 $CellContext`s0 (-$CellContext`x0 + $CellContext`x1)^(-1) \
$CellContext`y1 + 
        4980 $CellContext`s1 (-$CellContext`x0 + $CellContext`x1)^(-1) \
$CellContext`y1 + 
        10800 ($CellContext`x0 - $CellContext`x1)^(-2) $CellContext`y0 \
$CellContext`y1 - 
        5400 ($CellContext`x0 - $CellContext`x1)^(-2) $CellContext`y1^2],
       AutoDelete->True,
       Editable->True]},
     {
      InterpretationBox[
       StyleBox[
        RowBox[{"10", "*", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"96", "*", 
            RowBox[{"s0", "^", "2"}]}], " ", "+", " ", 
           RowBox[{"180", "*", "s0", "*", "s1"}], " ", "+", " ", 
           RowBox[{"84", "*", 
            RowBox[{"s1", "^", "2"}]}], " ", "+", " ", 
           RowBox[{"28", "*", "a1", "*", "s0", "*", 
            RowBox[{"(", 
             RowBox[{"x0", " ", "-", " ", "x1"}], ")"}]}], " ", "+", " ", 
           RowBox[{"26", "*", "a1", "*", "s1", "*", 
            RowBox[{"(", 
             RowBox[{"x0", " ", "-", " ", "x1"}], ")"}]}], " ", "+", " ", 
           RowBox[{"3", "*", 
            RowBox[{"a0", "^", "2"}], "*", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"x0", " ", "-", " ", "x1"}], ")"}], "^", "2"}]}], " ", 
           "-", " ", 
           RowBox[{"5", "*", "a0", "*", "a1", "*", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"x0", " ", "-", " ", "x1"}], ")"}], "^", "2"}]}], " ", 
           "+", " ", 
           RowBox[{"2", "*", 
            RowBox[{"a1", "^", "2"}], "*", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"x0", " ", "-", " ", "x1"}], ")"}], "^", "2"}]}], " ", 
           "+", " ", 
           RowBox[{"34", "*", "a0", "*", "s0", "*", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "x0"}], " ", "+", " ", "x1"}], ")"}]}], " ", "+", 
           " ", 
           RowBox[{"32", "*", "a0", "*", "s1", "*", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "x0"}], " ", "+", " ", "x1"}], ")"}]}], " ", "+", 
           " ", 
           RowBox[{"66", "*", "a0", "*", "y0"}], " ", "-", " ", 
           RowBox[{"54", "*", "a1", "*", "y0"}], " ", "+", " ", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"372", "*", "s0", "*", "y0"}], ")"}], "/", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "x0"}], " ", "+", " ", "x1"}], ")"}]}], " ", "+", 
           " ", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"348", "*", "s1", "*", "y0"}], ")"}], "/", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "x0"}], " ", "+", " ", "x1"}], ")"}]}], " ", "+", 
           " ", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"360", "*", 
              RowBox[{"y0", "^", "2"}]}], ")"}], "/", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"x0", " ", "-", " ", "x1"}], ")"}], "^", "2"}]}], " ", 
           "-", " ", 
           RowBox[{"66", "*", "a0", "*", "y1"}], " ", "+", " ", 
           RowBox[{"54", "*", "a1", "*", "y1"}], " ", "+", " ", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"372", "*", "s0", "*", "y1"}], ")"}], "/", 
            RowBox[{"(", 
             RowBox[{"x0", " ", "-", " ", "x1"}], ")"}]}], " ", "+", " ", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"348", "*", "s1", "*", "y1"}], ")"}], "/", 
            RowBox[{"(", 
             RowBox[{"x0", " ", "-", " ", "x1"}], ")"}]}], " ", "-", " ", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"720", "*", "y0", "*", "y1"}], ")"}], "/", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"x0", " ", "-", " ", "x1"}], ")"}], "^", "2"}]}], " ", 
           "+", " ", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"360", "*", 
              RowBox[{"y1", "^", "2"}]}], ")"}], "/", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"x0", " ", "-", " ", "x1"}], ")"}], "^", "2"}]}]}], 
          ")"}]}],
        ShowStringCharacters->True,
        NumberMarks->True],
       InputForm[
       10 (96 $CellContext`s0^2 + 180 $CellContext`s0 $CellContext`s1 + 
         84 $CellContext`s1^2 + 
         28 $CellContext`a1 $CellContext`s0 ($CellContext`x0 - \
$CellContext`x1) + 
         26 $CellContext`a1 $CellContext`s1 ($CellContext`x0 - \
$CellContext`x1) + 3 $CellContext`a0^2 ($CellContext`x0 - $CellContext`x1)^2 - 
         5 $CellContext`a0 $CellContext`a1 ($CellContext`x0 - \
$CellContext`x1)^2 + 
         2 $CellContext`a1^2 ($CellContext`x0 - $CellContext`x1)^2 + 
         34 $CellContext`a0 $CellContext`s0 (-$CellContext`x0 + \
$CellContext`x1) + 
         32 $CellContext`a0 $CellContext`s1 (-$CellContext`x0 + \
$CellContext`x1) + 66 $CellContext`a0 $CellContext`y0 - 
         54 $CellContext`a1 $CellContext`y0 + 
         372 $CellContext`s0 (-$CellContext`x0 + $CellContext`x1)^(-1) \
$CellContext`y0 + 
         348 $CellContext`s1 (-$CellContext`x0 + $CellContext`x1)^(-1) \
$CellContext`y0 + 
         360 ($CellContext`x0 - $CellContext`x1)^(-2) $CellContext`y0^2 - 
         66 $CellContext`a0 $CellContext`y1 + 
         54 $CellContext`a1 $CellContext`y1 + 
         372 $CellContext`s0 ($CellContext`x0 - $CellContext`x1)^(-1) \
$CellContext`y1 + 
         348 $CellContext`s1 ($CellContext`x0 - $CellContext`x1)^(-1) \
$CellContext`y1 - 
         720 ($CellContext`x0 - $CellContext`x1)^(-2) $CellContext`y0 \
$CellContext`y1 + 
         360 ($CellContext`x0 - $CellContext`x1)^(-2) $CellContext`y1^2)],
       AutoDelete->True,
       Editable->True]},
     {
      InterpretationBox[
       StyleBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "25"}], "*", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"6", "*", "s0", "*", "x0"}], " ", "+", " ", 
              RowBox[{"6", "*", "s1", "*", "x0"}], " ", "-", " ", 
              RowBox[{"a0", "*", 
               RowBox[{"x0", "^", "2"}]}], " ", "+", " ", 
              RowBox[{"a1", "*", 
               RowBox[{"x0", "^", "2"}]}], " ", "-", " ", 
              RowBox[{"6", "*", "s0", "*", "x1"}], " ", "-", " ", 
              RowBox[{"6", "*", "s1", "*", "x1"}], " ", "+", " ", 
              RowBox[{"2", "*", "a0", "*", "x0", "*", "x1"}], " ", "-", " ", 
              RowBox[{"2", "*", "a1", "*", "x0", "*", "x1"}], " ", "-", " ", 
              RowBox[{"a0", "*", 
               RowBox[{"x1", "^", "2"}]}], " ", "+", " ", 
              RowBox[{"a1", "*", 
               RowBox[{"x1", "^", "2"}]}], " ", "-", " ", 
              RowBox[{"12", "*", "y0"}], " ", "+", " ", 
              RowBox[{"12", "*", "y1"}]}], ")"}], "^", "2"}]}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{"4", "*", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"x0", " ", "-", " ", "x1"}], ")"}], "^", "2"}]}], ")"}]}],
        ShowStringCharacters->True,
        NumberMarks->True],
       InputForm[
       Rational[-25, 4] ($CellContext`x0 - $CellContext`x1)^(-2) (
          6 $CellContext`s0 $CellContext`x0 + 
          6 $CellContext`s1 $CellContext`x0 - $CellContext`a0 \
$CellContext`x0^2 + $CellContext`a1 $CellContext`x0^2 - 
          6 $CellContext`s0 $CellContext`x1 - 
          6 $CellContext`s1 $CellContext`x1 + 
          2 $CellContext`a0 $CellContext`x0 $CellContext`x1 - 
          2 $CellContext`a1 $CellContext`x0 $CellContext`x1 - $CellContext`a0 \
$CellContext`x1^2 + $CellContext`a1 $CellContext`x1^2 - 12 $CellContext`y0 + 
          12 $CellContext`y1)^2],
       AutoDelete->True,
       Editable->True]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.688728842875568*^9, 3.6887289326831303`*^9, 
  3.700283466131691*^9, 3.7002835750281277`*^9, 3.700283733556911*^9, 
  3.7088463898611097`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Optimization problem to satisfy the constraint", "Subsection",
 CellChangeTimes->{{3.688103821582965*^9, 3.688103835852508*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"A", "=", 
  RowBox[{"Simplify", "[", 
   RowBox[{"Integrate", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"f", "[", "x", "]"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"y0", "\[Rule]", "y0new"}], ",", 
            RowBox[{"y1", "\[Rule]", "y1new"}], ",", 
            RowBox[{"s0", "\[Rule]", "s0new"}], ",", 
            RowBox[{"s1", "\[Rule]", "s1new"}], ",", 
            RowBox[{"a0", "\[Rule]", "a0new"}], ",", 
            RowBox[{"a1", "\[Rule]", "a1new"}]}], "}"}]}], ")"}], "-", 
        RowBox[{"f", "[", "x", "]"}]}], ")"}], "^", "2"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "x0", ",", "x1"}], "}"}]}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.688214556414803*^9, 3.688214589980235*^9}, {
  3.688214692725973*^9, 3.68821477040739*^9}, {3.688214995721896*^9, 
  3.688215026175209*^9}, {3.688215684948626*^9, 3.688215698118452*^9}, {
  3.688215893859789*^9, 3.688215898682033*^9}}],

Cell[BoxData[
 RowBox[{"-", 
  RowBox[{
   FractionBox["1", "27720"], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"x0", "-", "x1"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"416", " ", 
       SuperscriptBox["s1", "2"], " ", 
       SuperscriptBox["x0", "2"]}], "-", 
      RowBox[{"832", " ", "s1", " ", "s1new", " ", 
       SuperscriptBox["x0", "2"]}], "+", 
      RowBox[{"416", " ", 
       SuperscriptBox["s1new", "2"], " ", 
       SuperscriptBox["x0", "2"]}], "+", 
      RowBox[{"52", " ", "a0", " ", "s1", " ", 
       SuperscriptBox["x0", "3"]}], "-", 
      RowBox[{"52", " ", "a0new", " ", "s1", " ", 
       SuperscriptBox["x0", "3"]}], "+", 
      RowBox[{"69", " ", "a1", " ", "s1", " ", 
       SuperscriptBox["x0", "3"]}], "-", 
      RowBox[{"69", " ", "a1new", " ", "s1", " ", 
       SuperscriptBox["x0", "3"]}], "-", 
      RowBox[{"52", " ", "a0", " ", "s1new", " ", 
       SuperscriptBox["x0", "3"]}], "+", 
      RowBox[{"52", " ", "a0new", " ", "s1new", " ", 
       SuperscriptBox["x0", "3"]}], "-", 
      RowBox[{"69", " ", "a1", " ", "s1new", " ", 
       SuperscriptBox["x0", "3"]}], "+", 
      RowBox[{"69", " ", "a1new", " ", "s1new", " ", 
       SuperscriptBox["x0", "3"]}], "+", 
      RowBox[{"3", " ", 
       SuperscriptBox["a0", "2"], " ", 
       SuperscriptBox["x0", "4"]}], "-", 
      RowBox[{"6", " ", "a0", " ", "a0new", " ", 
       SuperscriptBox["x0", "4"]}], "+", 
      RowBox[{"3", " ", 
       SuperscriptBox["a0new", "2"], " ", 
       SuperscriptBox["x0", "4"]}], "+", 
      RowBox[{"5", " ", "a0", " ", "a1", " ", 
       SuperscriptBox["x0", "4"]}], "-", 
      RowBox[{"5", " ", "a0new", " ", "a1", " ", 
       SuperscriptBox["x0", "4"]}], "+", 
      RowBox[{"3", " ", 
       SuperscriptBox["a1", "2"], " ", 
       SuperscriptBox["x0", "4"]}], "-", 
      RowBox[{"5", " ", "a0", " ", "a1new", " ", 
       SuperscriptBox["x0", "4"]}], "+", 
      RowBox[{"5", " ", "a0new", " ", "a1new", " ", 
       SuperscriptBox["x0", "4"]}], "-", 
      RowBox[{"6", " ", "a1", " ", "a1new", " ", 
       SuperscriptBox["x0", "4"]}], "+", 
      RowBox[{"3", " ", 
       SuperscriptBox["a1new", "2"], " ", 
       SuperscriptBox["x0", "4"]}], "+", 
      RowBox[{"416", " ", 
       SuperscriptBox["s0", "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"x0", "-", "x1"}], ")"}], "2"]}], "+", 
      RowBox[{"416", " ", 
       SuperscriptBox["s0new", "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"x0", "-", "x1"}], ")"}], "2"]}], "-", 
      RowBox[{"832", " ", 
       SuperscriptBox["s1", "2"], " ", "x0", " ", "x1"}], "+", 
      RowBox[{"1664", " ", "s1", " ", "s1new", " ", "x0", " ", "x1"}], "-", 
      RowBox[{"832", " ", 
       SuperscriptBox["s1new", "2"], " ", "x0", " ", "x1"}], "-", 
      RowBox[{"156", " ", "a0", " ", "s1", " ", 
       SuperscriptBox["x0", "2"], " ", "x1"}], "+", 
      RowBox[{"156", " ", "a0new", " ", "s1", " ", 
       SuperscriptBox["x0", "2"], " ", "x1"}], "-", 
      RowBox[{"207", " ", "a1", " ", "s1", " ", 
       SuperscriptBox["x0", "2"], " ", "x1"}], "+", 
      RowBox[{"207", " ", "a1new", " ", "s1", " ", 
       SuperscriptBox["x0", "2"], " ", "x1"}], "+", 
      RowBox[{"156", " ", "a0", " ", "s1new", " ", 
       SuperscriptBox["x0", "2"], " ", "x1"}], "-", 
      RowBox[{"156", " ", "a0new", " ", "s1new", " ", 
       SuperscriptBox["x0", "2"], " ", "x1"}], "+", 
      RowBox[{"207", " ", "a1", " ", "s1new", " ", 
       SuperscriptBox["x0", "2"], " ", "x1"}], "-", 
      RowBox[{"207", " ", "a1new", " ", "s1new", " ", 
       SuperscriptBox["x0", "2"], " ", "x1"}], "-", 
      RowBox[{"12", " ", 
       SuperscriptBox["a0", "2"], " ", 
       SuperscriptBox["x0", "3"], " ", "x1"}], "+", 
      RowBox[{"24", " ", "a0", " ", "a0new", " ", 
       SuperscriptBox["x0", "3"], " ", "x1"}], "-", 
      RowBox[{"12", " ", 
       SuperscriptBox["a0new", "2"], " ", 
       SuperscriptBox["x0", "3"], " ", "x1"}], "-", 
      RowBox[{"20", " ", "a0", " ", "a1", " ", 
       SuperscriptBox["x0", "3"], " ", "x1"}], "+", 
      RowBox[{"20", " ", "a0new", " ", "a1", " ", 
       SuperscriptBox["x0", "3"], " ", "x1"}], "-", 
      RowBox[{"12", " ", 
       SuperscriptBox["a1", "2"], " ", 
       SuperscriptBox["x0", "3"], " ", "x1"}], "+", 
      RowBox[{"20", " ", "a0", " ", "a1new", " ", 
       SuperscriptBox["x0", "3"], " ", "x1"}], "-", 
      RowBox[{"20", " ", "a0new", " ", "a1new", " ", 
       SuperscriptBox["x0", "3"], " ", "x1"}], "+", 
      RowBox[{"24", " ", "a1", " ", "a1new", " ", 
       SuperscriptBox["x0", "3"], " ", "x1"}], "-", 
      RowBox[{"12", " ", 
       SuperscriptBox["a1new", "2"], " ", 
       SuperscriptBox["x0", "3"], " ", "x1"}], "+", 
      RowBox[{"416", " ", 
       SuperscriptBox["s1", "2"], " ", 
       SuperscriptBox["x1", "2"]}], "-", 
      RowBox[{"832", " ", "s1", " ", "s1new", " ", 
       SuperscriptBox["x1", "2"]}], "+", 
      RowBox[{"416", " ", 
       SuperscriptBox["s1new", "2"], " ", 
       SuperscriptBox["x1", "2"]}], "+", 
      RowBox[{"156", " ", "a0", " ", "s1", " ", "x0", " ", 
       SuperscriptBox["x1", "2"]}], "-", 
      RowBox[{"156", " ", "a0new", " ", "s1", " ", "x0", " ", 
       SuperscriptBox["x1", "2"]}], "+", 
      RowBox[{"207", " ", "a1", " ", "s1", " ", "x0", " ", 
       SuperscriptBox["x1", "2"]}], "-", 
      RowBox[{"207", " ", "a1new", " ", "s1", " ", "x0", " ", 
       SuperscriptBox["x1", "2"]}], "-", 
      RowBox[{"156", " ", "a0", " ", "s1new", " ", "x0", " ", 
       SuperscriptBox["x1", "2"]}], "+", 
      RowBox[{"156", " ", "a0new", " ", "s1new", " ", "x0", " ", 
       SuperscriptBox["x1", "2"]}], "-", 
      RowBox[{"207", " ", "a1", " ", "s1new", " ", "x0", " ", 
       SuperscriptBox["x1", "2"]}], "+", 
      RowBox[{"207", " ", "a1new", " ", "s1new", " ", "x0", " ", 
       SuperscriptBox["x1", "2"]}], "+", 
      RowBox[{"18", " ", 
       SuperscriptBox["a0", "2"], " ", 
       SuperscriptBox["x0", "2"], " ", 
       SuperscriptBox["x1", "2"]}], "-", 
      RowBox[{"36", " ", "a0", " ", "a0new", " ", 
       SuperscriptBox["x0", "2"], " ", 
       SuperscriptBox["x1", "2"]}], "+", 
      RowBox[{"18", " ", 
       SuperscriptBox["a0new", "2"], " ", 
       SuperscriptBox["x0", "2"], " ", 
       SuperscriptBox["x1", "2"]}], "+", 
      RowBox[{"30", " ", "a0", " ", "a1", " ", 
       SuperscriptBox["x0", "2"], " ", 
       SuperscriptBox["x1", "2"]}], "-", 
      RowBox[{"30", " ", "a0new", " ", "a1", " ", 
       SuperscriptBox["x0", "2"], " ", 
       SuperscriptBox["x1", "2"]}], "+", 
      RowBox[{"18", " ", 
       SuperscriptBox["a1", "2"], " ", 
       SuperscriptBox["x0", "2"], " ", 
       SuperscriptBox["x1", "2"]}], "-", 
      RowBox[{"30", " ", "a0", " ", "a1new", " ", 
       SuperscriptBox["x0", "2"], " ", 
       SuperscriptBox["x1", "2"]}], "+", 
      RowBox[{"30", " ", "a0new", " ", "a1new", " ", 
       SuperscriptBox["x0", "2"], " ", 
       SuperscriptBox["x1", "2"]}], "-", 
      RowBox[{"36", " ", "a1", " ", "a1new", " ", 
       SuperscriptBox["x0", "2"], " ", 
       SuperscriptBox["x1", "2"]}], "+", 
      RowBox[{"18", " ", 
       SuperscriptBox["a1new", "2"], " ", 
       SuperscriptBox["x0", "2"], " ", 
       SuperscriptBox["x1", "2"]}], "-", 
      RowBox[{"52", " ", "a0", " ", "s1", " ", 
       SuperscriptBox["x1", "3"]}], "+", 
      RowBox[{"52", " ", "a0new", " ", "s1", " ", 
       SuperscriptBox["x1", "3"]}], "-", 
      RowBox[{"69", " ", "a1", " ", "s1", " ", 
       SuperscriptBox["x1", "3"]}], "+", 
      RowBox[{"69", " ", "a1new", " ", "s1", " ", 
       SuperscriptBox["x1", "3"]}], "+", 
      RowBox[{"52", " ", "a0", " ", "s1new", " ", 
       SuperscriptBox["x1", "3"]}], "-", 
      RowBox[{"52", " ", "a0new", " ", "s1new", " ", 
       SuperscriptBox["x1", "3"]}], "+", 
      RowBox[{"69", " ", "a1", " ", "s1new", " ", 
       SuperscriptBox["x1", "3"]}], "-", 
      RowBox[{"69", " ", "a1new", " ", "s1new", " ", 
       SuperscriptBox["x1", "3"]}], "-", 
      RowBox[{"12", " ", 
       SuperscriptBox["a0", "2"], " ", "x0", " ", 
       SuperscriptBox["x1", "3"]}], "+", 
      RowBox[{"24", " ", "a0", " ", "a0new", " ", "x0", " ", 
       SuperscriptBox["x1", "3"]}], "-", 
      RowBox[{"12", " ", 
       SuperscriptBox["a0new", "2"], " ", "x0", " ", 
       SuperscriptBox["x1", "3"]}], "-", 
      RowBox[{"20", " ", "a0", " ", "a1", " ", "x0", " ", 
       SuperscriptBox["x1", "3"]}], "+", 
      RowBox[{"20", " ", "a0new", " ", "a1", " ", "x0", " ", 
       SuperscriptBox["x1", "3"]}], "-", 
      RowBox[{"12", " ", 
       SuperscriptBox["a1", "2"], " ", "x0", " ", 
       SuperscriptBox["x1", "3"]}], "+", 
      RowBox[{"20", " ", "a0", " ", "a1new", " ", "x0", " ", 
       SuperscriptBox["x1", "3"]}], "-", 
      RowBox[{"20", " ", "a0new", " ", "a1new", " ", "x0", " ", 
       SuperscriptBox["x1", "3"]}], "+", 
      RowBox[{"24", " ", "a1", " ", "a1new", " ", "x0", " ", 
       SuperscriptBox["x1", "3"]}], "-", 
      RowBox[{"12", " ", 
       SuperscriptBox["a1new", "2"], " ", "x0", " ", 
       SuperscriptBox["x1", "3"]}], "+", 
      RowBox[{"3", " ", 
       SuperscriptBox["a0", "2"], " ", 
       SuperscriptBox["x1", "4"]}], "-", 
      RowBox[{"6", " ", "a0", " ", "a0new", " ", 
       SuperscriptBox["x1", "4"]}], "+", 
      RowBox[{"3", " ", 
       SuperscriptBox["a0new", "2"], " ", 
       SuperscriptBox["x1", "4"]}], "+", 
      RowBox[{"5", " ", "a0", " ", "a1", " ", 
       SuperscriptBox["x1", "4"]}], "-", 
      RowBox[{"5", " ", "a0new", " ", "a1", " ", 
       SuperscriptBox["x1", "4"]}], "+", 
      RowBox[{"3", " ", 
       SuperscriptBox["a1", "2"], " ", 
       SuperscriptBox["x1", "4"]}], "-", 
      RowBox[{"5", " ", "a0", " ", "a1new", " ", 
       SuperscriptBox["x1", "4"]}], "+", 
      RowBox[{"5", " ", "a0new", " ", "a1new", " ", 
       SuperscriptBox["x1", "4"]}], "-", 
      RowBox[{"6", " ", "a1", " ", "a1new", " ", 
       SuperscriptBox["x1", "4"]}], "+", 
      RowBox[{"3", " ", 
       SuperscriptBox["a1new", "2"], " ", 
       SuperscriptBox["x1", "4"]}], "+", 
      RowBox[{"1812", " ", "s1", " ", "x0", " ", "y0"}], "-", 
      RowBox[{"1812", " ", "s1new", " ", "x0", " ", "y0"}], "+", 
      RowBox[{"281", " ", "a0", " ", 
       SuperscriptBox["x0", "2"], " ", "y0"}], "-", 
      RowBox[{"281", " ", "a0new", " ", 
       SuperscriptBox["x0", "2"], " ", "y0"}], "+", 
      RowBox[{"181", " ", "a1", " ", 
       SuperscriptBox["x0", "2"], " ", "y0"}], "-", 
      RowBox[{"181", " ", "a1new", " ", 
       SuperscriptBox["x0", "2"], " ", "y0"}], "-", 
      RowBox[{"1812", " ", "s1", " ", "x1", " ", "y0"}], "+", 
      RowBox[{"1812", " ", "s1new", " ", "x1", " ", "y0"}], "-", 
      RowBox[{"562", " ", "a0", " ", "x0", " ", "x1", " ", "y0"}], "+", 
      RowBox[{"562", " ", "a0new", " ", "x0", " ", "x1", " ", "y0"}], "-", 
      RowBox[{"362", " ", "a1", " ", "x0", " ", "x1", " ", "y0"}], "+", 
      RowBox[{"362", " ", "a1new", " ", "x0", " ", "x1", " ", "y0"}], "+", 
      RowBox[{"281", " ", "a0", " ", 
       SuperscriptBox["x1", "2"], " ", "y0"}], "-", 
      RowBox[{"281", " ", "a0new", " ", 
       SuperscriptBox["x1", "2"], " ", "y0"}], "+", 
      RowBox[{"181", " ", "a1", " ", 
       SuperscriptBox["x1", "2"], " ", "y0"}], "-", 
      RowBox[{"181", " ", "a1new", " ", 
       SuperscriptBox["x1", "2"], " ", "y0"}], "+", 
      RowBox[{"10860", " ", 
       SuperscriptBox["y0", "2"]}], "-", 
      RowBox[{"1812", " ", "s1", " ", "x0", " ", "y0new"}], "+", 
      RowBox[{"1812", " ", "s1new", " ", "x0", " ", "y0new"}], "-", 
      RowBox[{"281", " ", "a0", " ", 
       SuperscriptBox["x0", "2"], " ", "y0new"}], "+", 
      RowBox[{"281", " ", "a0new", " ", 
       SuperscriptBox["x0", "2"], " ", "y0new"}], "-", 
      RowBox[{"181", " ", "a1", " ", 
       SuperscriptBox["x0", "2"], " ", "y0new"}], "+", 
      RowBox[{"181", " ", "a1new", " ", 
       SuperscriptBox["x0", "2"], " ", "y0new"}], "+", 
      RowBox[{"1812", " ", "s1", " ", "x1", " ", "y0new"}], "-", 
      RowBox[{"1812", " ", "s1new", " ", "x1", " ", "y0new"}], "+", 
      RowBox[{"562", " ", "a0", " ", "x0", " ", "x1", " ", "y0new"}], "-", 
      RowBox[{"562", " ", "a0new", " ", "x0", " ", "x1", " ", "y0new"}], "+", 
      
      RowBox[{"362", " ", "a1", " ", "x0", " ", "x1", " ", "y0new"}], "-", 
      RowBox[{"362", " ", "a1new", " ", "x0", " ", "x1", " ", "y0new"}], "-", 
      
      RowBox[{"281", " ", "a0", " ", 
       SuperscriptBox["x1", "2"], " ", "y0new"}], "+", 
      RowBox[{"281", " ", "a0new", " ", 
       SuperscriptBox["x1", "2"], " ", "y0new"}], "-", 
      RowBox[{"181", " ", "a1", " ", 
       SuperscriptBox["x1", "2"], " ", "y0new"}], "+", 
      RowBox[{"181", " ", "a1new", " ", 
       SuperscriptBox["x1", "2"], " ", "y0new"}], "-", 
      RowBox[{"21720", " ", "y0", " ", "y0new"}], "+", 
      RowBox[{"10860", " ", 
       SuperscriptBox["y0new", "2"]}], "+", 
      RowBox[{"3732", " ", "s1", " ", "x0", " ", "y1"}], "-", 
      RowBox[{"3732", " ", "s1new", " ", "x0", " ", "y1"}], "+", 
      RowBox[{"181", " ", "a0", " ", 
       SuperscriptBox["x0", "2"], " ", "y1"}], "-", 
      RowBox[{"181", " ", "a0new", " ", 
       SuperscriptBox["x0", "2"], " ", "y1"}], "+", 
      RowBox[{"281", " ", "a1", " ", 
       SuperscriptBox["x0", "2"], " ", "y1"}], "-", 
      RowBox[{"281", " ", "a1new", " ", 
       SuperscriptBox["x0", "2"], " ", "y1"}], "-", 
      RowBox[{"3732", " ", "s1", " ", "x1", " ", "y1"}], "+", 
      RowBox[{"3732", " ", "s1new", " ", "x1", " ", "y1"}], "-", 
      RowBox[{"362", " ", "a0", " ", "x0", " ", "x1", " ", "y1"}], "+", 
      RowBox[{"362", " ", "a0new", " ", "x0", " ", "x1", " ", "y1"}], "-", 
      RowBox[{"562", " ", "a1", " ", "x0", " ", "x1", " ", "y1"}], "+", 
      RowBox[{"562", " ", "a1new", " ", "x0", " ", "x1", " ", "y1"}], "+", 
      RowBox[{"181", " ", "a0", " ", 
       SuperscriptBox["x1", "2"], " ", "y1"}], "-", 
      RowBox[{"181", " ", "a0new", " ", 
       SuperscriptBox["x1", "2"], " ", "y1"}], "+", 
      RowBox[{"281", " ", "a1", " ", 
       SuperscriptBox["x1", "2"], " ", "y1"}], "-", 
      RowBox[{"281", " ", "a1new", " ", 
       SuperscriptBox["x1", "2"], " ", "y1"}], "+", 
      RowBox[{"6000", " ", "y0", " ", "y1"}], "-", 
      RowBox[{"6000", " ", "y0new", " ", "y1"}], "+", 
      RowBox[{"10860", " ", 
       SuperscriptBox["y1", "2"]}], "+", 
      RowBox[{"s0new", " ", 
       RowBox[{"(", 
        RowBox[{"x0", "-", "x1"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"69", " ", "a0", " ", 
          SuperscriptBox["x0", "2"]}], "-", 
         RowBox[{"69", " ", "a0new", " ", 
          SuperscriptBox["x0", "2"]}], "+", 
         RowBox[{"52", " ", "a1", " ", 
          SuperscriptBox["x0", "2"]}], "-", 
         RowBox[{"52", " ", "a1new", " ", 
          SuperscriptBox["x0", "2"]}], "+", 
         RowBox[{"532", " ", "s1", " ", 
          RowBox[{"(", 
           RowBox[{"x0", "-", "x1"}], ")"}]}], "-", 
         RowBox[{"532", " ", "s1new", " ", 
          RowBox[{"(", 
           RowBox[{"x0", "-", "x1"}], ")"}]}], "-", 
         RowBox[{"138", " ", "a0", " ", "x0", " ", "x1"}], "+", 
         RowBox[{"138", " ", "a0new", " ", "x0", " ", "x1"}], "-", 
         RowBox[{"104", " ", "a1", " ", "x0", " ", "x1"}], "+", 
         RowBox[{"104", " ", "a1new", " ", "x0", " ", "x1"}], "+", 
         RowBox[{"69", " ", "a0", " ", 
          SuperscriptBox["x1", "2"]}], "-", 
         RowBox[{"69", " ", "a0new", " ", 
          SuperscriptBox["x1", "2"]}], "+", 
         RowBox[{"52", " ", "a1", " ", 
          SuperscriptBox["x1", "2"]}], "-", 
         RowBox[{"52", " ", "a1new", " ", 
          SuperscriptBox["x1", "2"]}], "+", 
         RowBox[{"3732", " ", "y0"}], "-", 
         RowBox[{"3732", " ", "y0new"}], "+", 
         RowBox[{"1812", " ", "y1"}], "-", 
         RowBox[{"1812", " ", "y1new"}]}], ")"}]}], "-", 
      RowBox[{"s0", " ", 
       RowBox[{"(", 
        RowBox[{"x0", "-", "x1"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "532"}], " ", "s1new", " ", "x0"}], "+", 
         RowBox[{"69", " ", "a0", " ", 
          SuperscriptBox["x0", "2"]}], "-", 
         RowBox[{"69", " ", "a0new", " ", 
          SuperscriptBox["x0", "2"]}], "+", 
         RowBox[{"52", " ", "a1", " ", 
          SuperscriptBox["x0", "2"]}], "-", 
         RowBox[{"52", " ", "a1new", " ", 
          SuperscriptBox["x0", "2"]}], "+", 
         RowBox[{"832", " ", "s0new", " ", 
          RowBox[{"(", 
           RowBox[{"x0", "-", "x1"}], ")"}]}], "+", 
         RowBox[{"532", " ", "s1", " ", 
          RowBox[{"(", 
           RowBox[{"x0", "-", "x1"}], ")"}]}], "+", 
         RowBox[{"532", " ", "s1new", " ", "x1"}], "-", 
         RowBox[{"138", " ", "a0", " ", "x0", " ", "x1"}], "+", 
         RowBox[{"138", " ", "a0new", " ", "x0", " ", "x1"}], "-", 
         RowBox[{"104", " ", "a1", " ", "x0", " ", "x1"}], "+", 
         RowBox[{"104", " ", "a1new", " ", "x0", " ", "x1"}], "+", 
         RowBox[{"69", " ", "a0", " ", 
          SuperscriptBox["x1", "2"]}], "-", 
         RowBox[{"69", " ", "a0new", " ", 
          SuperscriptBox["x1", "2"]}], "+", 
         RowBox[{"52", " ", "a1", " ", 
          SuperscriptBox["x1", "2"]}], "-", 
         RowBox[{"52", " ", "a1new", " ", 
          SuperscriptBox["x1", "2"]}], "+", 
         RowBox[{"3732", " ", "y0"}], "-", 
         RowBox[{"3732", " ", "y0new"}], "+", 
         RowBox[{"1812", " ", "y1"}], "-", 
         RowBox[{"1812", " ", "y1new"}]}], ")"}]}], "-", 
      RowBox[{"3732", " ", "s1", " ", "x0", " ", "y1new"}], "+", 
      RowBox[{"3732", " ", "s1new", " ", "x0", " ", "y1new"}], "-", 
      RowBox[{"181", " ", "a0", " ", 
       SuperscriptBox["x0", "2"], " ", "y1new"}], "+", 
      RowBox[{"181", " ", "a0new", " ", 
       SuperscriptBox["x0", "2"], " ", "y1new"}], "-", 
      RowBox[{"281", " ", "a1", " ", 
       SuperscriptBox["x0", "2"], " ", "y1new"}], "+", 
      RowBox[{"281", " ", "a1new", " ", 
       SuperscriptBox["x0", "2"], " ", "y1new"}], "+", 
      RowBox[{"3732", " ", "s1", " ", "x1", " ", "y1new"}], "-", 
      RowBox[{"3732", " ", "s1new", " ", "x1", " ", "y1new"}], "+", 
      RowBox[{"362", " ", "a0", " ", "x0", " ", "x1", " ", "y1new"}], "-", 
      RowBox[{"362", " ", "a0new", " ", "x0", " ", "x1", " ", "y1new"}], "+", 
      
      RowBox[{"562", " ", "a1", " ", "x0", " ", "x1", " ", "y1new"}], "-", 
      RowBox[{"562", " ", "a1new", " ", "x0", " ", "x1", " ", "y1new"}], "-", 
      
      RowBox[{"181", " ", "a0", " ", 
       SuperscriptBox["x1", "2"], " ", "y1new"}], "+", 
      RowBox[{"181", " ", "a0new", " ", 
       SuperscriptBox["x1", "2"], " ", "y1new"}], "-", 
      RowBox[{"281", " ", "a1", " ", 
       SuperscriptBox["x1", "2"], " ", "y1new"}], "+", 
      RowBox[{"281", " ", "a1new", " ", 
       SuperscriptBox["x1", "2"], " ", "y1new"}], "-", 
      RowBox[{"6000", " ", "y0", " ", "y1new"}], "+", 
      RowBox[{"6000", " ", "y0new", " ", "y1new"}], "-", 
      RowBox[{"21720", " ", "y1", " ", "y1new"}], "+", 
      RowBox[{"10860", " ", 
       SuperscriptBox["y1new", "2"]}]}], ")"}]}]}]}]], "Output",
 CellChangeTimes->{
  3.688214601418048*^9, 3.688214790176848*^9, {3.6882150195084257`*^9, 
   3.6882150471200743`*^9}, 3.688215719091948*^9, 3.688215882569408*^9, 
   3.688215919060793*^9, 3.688728807585972*^9, 3.7002834720281563`*^9, 
   3.7002836067208242`*^9, 3.700283756954743*^9, 3.7088464116237087`*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{846, 712},
WindowMargins->{{54, Automatic}, {Automatic, 32}},
PrintingCopies->1,
PrintingPageRange->{1, Automatic},
FrontEndVersion->"11.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (September \
21, 2016)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 100, 1, 92, "Title"],
Cell[683, 25, 142, 2, 32, "Input"],
Cell[828, 29, 396, 7, 49, "Text"],
Cell[CellGroupData[{
Cell[1249, 40, 133, 1, 53, "Subsection"],
Cell[1385, 43, 161, 3, 30, "Text"],
Cell[CellGroupData[{
Cell[1571, 50, 489, 12, 36, "Input"],
Cell[2063, 64, 1402, 31, 32, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3502, 100, 367, 7, 32, "Input"],
Cell[3872, 109, 1154, 21, 32, "Output"]
}, Open  ]],
Cell[5041, 133, 1367, 33, 96, "Input"],
Cell[6411, 168, 1417, 34, 96, "Input"],
Cell[7831, 204, 1416, 34, 96, "Input"],
Cell[9250, 240, 1419, 34, 96, "Input"],
Cell[10672, 276, 1467, 35, 96, "Input"],
Cell[12142, 313, 1469, 35, 96, "Input"],
Cell[13614, 350, 117, 1, 30, "Text"],
Cell[CellGroupData[{
Cell[13756, 355, 1266, 28, 54, "Input"],
Cell[15025, 385, 3484, 100, 160, "Output"]
}, Open  ]],
Cell[18524, 488, 106, 1, 30, "Text"],
Cell[CellGroupData[{
Cell[18655, 493, 1155, 28, 54, "Input"],
Cell[19813, 523, 3456, 101, 160, "Output"]
}, Open  ]],
Cell[23284, 627, 107, 1, 30, "Text"],
Cell[CellGroupData[{
Cell[23416, 632, 1266, 30, 54, "Input"],
Cell[24685, 664, 3269, 93, 144, "Output"]
}, Open  ]],
Cell[27969, 760, 206, 3, 30, "Text"],
Cell[CellGroupData[{
Cell[28200, 767, 1465, 33, 54, "Input"],
Cell[29668, 802, 2125, 70, 144, "Output"]
}, Open  ]],
Cell[31808, 875, 113, 1, 30, "Text"],
Cell[CellGroupData[{
Cell[31946, 880, 1829, 46, 75, "Input"],
Cell[33778, 928, 56305, 965, 624, "Output"]
}, Open  ]],
Cell[90098, 1896, 106, 1, 30, "Text"],
Cell[CellGroupData[{
Cell[90229, 1901, 2193, 56, 75, "Input"],
Cell[92425, 1959, 59148, 1009, 637, "Output"]
}, Open  ]],
Cell[151588, 2971, 106, 1, 30, "Text"],
Cell[CellGroupData[{
Cell[151719, 2976, 2245, 57, 75, "Input"],
Cell[153967, 3035, 62839, 1071, 653, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[216855, 4112, 141, 1, 53, "Subsection"],
Cell[216999, 4115, 188, 4, 30, "Text"],
Cell[217190, 4121, 901, 23, 54, "Input"],
Cell[CellGroupData[{
Cell[218116, 4148, 3616, 103, 222, "Input"],
Cell[221735, 4253, 4530, 85, 681, "Output"]
}, Open  ]],
Cell[226280, 4341, 225, 5, 30, "Text"],
Cell[226508, 4348, 1774, 50, 90, "Input"],
Cell[228285, 4400, 184, 4, 30, "Text"],
Cell[CellGroupData[{
Cell[228494, 4408, 684, 17, 32, "Input"],
Cell[229181, 4427, 1669, 25, 32, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[230899, 4458, 207, 4, 64, "Section"],
Cell[231109, 4464, 488, 8, 68, "Text"],
Cell[231600, 4474, 984, 36, 53, "Text"],
Cell[232587, 4512, 1597, 48, 88, "Input"],
Cell[234187, 4562, 1603, 48, 90, "Input"],
Cell[235793, 4612, 111, 1, 30, "Text"],
Cell[235907, 4615, 562, 16, 32, "Input"],
Cell[CellGroupData[{
Cell[236494, 4635, 277, 6, 32, "Input"],
Cell[236774, 4643, 1593, 54, 87, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[238404, 4702, 229, 5, 32, "Input"],
Cell[238636, 4709, 679, 21, 45, "Output"]
}, Open  ]],
Cell[239330, 4733, 243, 4, 49, "Text"],
Cell[239576, 4739, 461, 14, 32, "Input"],
Cell[CellGroupData[{
Cell[240062, 4757, 236, 5, 32, "Input"],
Cell[240301, 4764, 888, 30, 48, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[241226, 4799, 231, 5, 32, "Input"],
Cell[241460, 4806, 441, 13, 44, "Output"]
}, Open  ]],
Cell[241916, 4822, 194, 4, 30, "Text"],
Cell[242113, 4828, 539, 16, 50, "Input"],
Cell[CellGroupData[{
Cell[242677, 4848, 235, 5, 32, "Input"],
Cell[242915, 4855, 345, 10, 45, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[243297, 4870, 231, 5, 32, "Input"],
Cell[243531, 4877, 267, 6, 32, "Output"]
}, Open  ]],
Cell[243813, 4886, 131, 1, 30, "Text"],
Cell[CellGroupData[{
Cell[243969, 4891, 874, 25, 73, "Input"],
Cell[244846, 4918, 1053, 20, 223, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[245936, 4943, 145, 1, 53, "Subsection"],
Cell[246084, 4946, 1653, 46, 51, "Text"],
Cell[247740, 4994, 1802, 41, 32, "Input"],
Cell[249545, 5037, 1011, 17, 32, "Input"],
Cell[250559, 5056, 178, 2, 30, "Text"],
Cell[250740, 5060, 1104, 26, 54, "Input"],
Cell[251847, 5088, 794, 17, 32, "Input"],
Cell[252644, 5107, 206, 4, 30, "Text"],
Cell[CellGroupData[{
Cell[252875, 5115, 290, 4, 32, "Input"],
Cell[253168, 5121, 23803, 614, 308, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[277008, 5740, 1167, 21, 32, "Input"],
Cell[278178, 5763, 9556, 250, 182, "Output"]
}, Open  ]],
Cell[287749, 6016, 438, 9, 32, "Input"],
Cell[288190, 6027, 374, 9, 32, "Input"],
Cell[288567, 6038, 177, 4, 30, "Text"],
Cell[CellGroupData[{
Cell[288769, 6046, 2714, 68, 96, "Input"],
Cell[291486, 6116, 4804, 84, 599, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[296327, 6205, 397, 10, 32, "Input"],
Cell[296727, 6217, 38024, 921, 184, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[334800, 7144, 134, 1, 44, "Subsection"],
Cell[CellGroupData[{
Cell[334959, 7149, 1047, 25, 117, "Input"],
Cell[336009, 7176, 19608, 425, 932, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)