Visio-SOD3.nb

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

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

(* CreatedBy='Mathematica 10.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    143730,       2779]
NotebookOptionsPosition[    141685,       2707]
NotebookOutlinePosition[    142065,       2723]
CellTagsIndexPosition[    142022,       2720]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"SetDirectory", "[", 
  RowBox[{"NotebookDirectory", "[", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.669918316704926*^9, 3.6699183233413057`*^9}}],

Cell[BoxData["\<\"D:\\\\RKDG-Vika\"\>"], "Output",
 CellChangeTimes->{
  3.669918324621379*^9, 3.6699183890920663`*^9, 3.6699186455267334`*^9, 
   3.669919059813429*^9, 3.6699198285663996`*^9, 3.6699231837273035`*^9, 
   3.6699240457496085`*^9, 3.669941994739232*^9, 3.6699423146285286`*^9, 
   3.6699423625132675`*^9, 3.670489580039255*^9, 3.6704897303698535`*^9, 
   3.670489938696769*^9, 3.6704900711423445`*^9, 3.6704901784174805`*^9, 
   3.670490488165197*^9, 3.6704906025897417`*^9, 3.6704906626441765`*^9, 
   3.6704912017820134`*^9, 3.6704914433988333`*^9, 3.6704915039022937`*^9, 
   3.670491545205656*^9, 3.6704915870210476`*^9, 3.6704917540696025`*^9, 
   3.670491797814104*^9, 3.67049283240228*^9, 3.670733591765873*^9, 
   3.6707585381124163`*^9, 3.6707608288273907`*^9, 3.6707787995737896`*^9, 
   3.6714737498098345`*^9, 3.671475663467289*^9, 3.6714766937152157`*^9, 
   3.671478381165733*^9, 3.67147862763483*^9, 3.671478774075206*^9, 
   3.6714819239523687`*^9, 3.6714819601834407`*^9, 3.6714827202249126`*^9, 
   3.6714827850606213`*^9, 3.671483146323284*^9, 3.6716336582422037`*^9, 
   3.671634884110319*^9, 3.6716349217904744`*^9, 3.671635650531156*^9, 
   3.671636153443921*^9, 3.671636721837431*^9, 3.671637553469998*^9, 
   3.6716376125043745`*^9, 3.6716377397536526`*^9, 3.67163781418791*^9, 
   3.6716379170507936`*^9, 3.6716380816002054`*^9, 3.6716383554308677`*^9, 
   3.6716394690335617`*^9, 3.6716814894286804`*^9, 3.6716833648589487`*^9, 
   3.6716863330747213`*^9, 3.6716864788610597`*^9, 3.671687088500929*^9, 
   3.6716871299893017`*^9, 3.671687186996563*^9, 3.671687221716549*^9, 
   3.67168772054908*^9, 3.671721342067326*^9, 3.671721815024378*^9, 
   3.671721935802286*^9, 3.6717221039849052`*^9, 3.671727195139103*^9, 
   3.6720376931999245`*^9, 3.6720407810065365`*^9, 3.672042112959959*^9, 
   3.6720434181931086`*^9, 3.6720443884796076`*^9, 3.6720444554504075`*^9, 
   3.6720447803838367`*^9, 3.6720448538744946`*^9, 3.6720809132491565`*^9, 
   3.6720813446958337`*^9, 3.672081385393162*^9, 3.6720815005967507`*^9, 
   3.672082893565424*^9, 3.67208309577999*^9, 3.6720831397555056`*^9, 
   3.672084599318988*^9, 3.6720846361850967`*^9, {3.6720846809776583`*^9, 
   3.672084718446801*^9}, 3.672085285810253*^9, 3.672085452275774*^9, 
   3.6720862578428497`*^9, 3.6720863355702953`*^9, 3.6720864196361036`*^9, 
   3.6726356950431156`*^9, 3.672636416053029*^9, {3.6726364734617653`*^9, 
   3.672636501230121*^9}, 3.6726365360497675`*^9, 3.672638792734994*^9, 
   3.672641344963578*^9, 3.6726413751863956`*^9, 3.67264145844413*^9, 
   3.672641558456371*^9, 3.6726444757575593`*^9, 3.672646285256755*^9, 
   3.672646529311573*^9, 3.672649401312481*^9, 3.672649451595852*^9, {
   3.6726494864856977`*^9, 3.6726495113522573`*^9}, 3.6726495785571084`*^9, 
   3.672649886736902*^9, 3.6726500281206083`*^9, 3.672719660796982*^9, 
   3.672720055966572*^9, 3.6727203408473425`*^9, 3.672720827622513*^9, 
   3.6727209035542893`*^9, 3.6727213240902505`*^9, 3.672726665400969*^9, 
   3.672726793041113*^9, 3.6727328834812517`*^9, 3.6781795808281517`*^9, 
   3.6781801433238306`*^9, 3.678180504083044*^9, 3.678180641884038*^9, 
   3.6781812687189817`*^9, 3.6781818274579983`*^9, 3.6781822235905657`*^9, 
   3.6781828640142765`*^9, 3.6781833643191605`*^9, 3.67818371465189*^9, 
   3.6781838351705956`*^9, 3.6781843170116563`*^9, 3.6781843770926476`*^9, 
   3.6781872793817997`*^9, 3.6781885385979996`*^9, 3.6781886756046534`*^9, 
   3.6781887573501115`*^9, 3.6822429192299886`*^9, 3.6822431261666803`*^9, 
   3.6822433694480057`*^9, 3.6822436471877775`*^9, 3.6822439418952446`*^9, 
   3.6822439913751926`*^9, 3.682244373939445*^9, 3.6822445486329126`*^9, 
   3.682244580063055*^9, 3.6822458162190704`*^9, 3.6822492829485645`*^9, 
   3.6845804096844797`*^9, 3.6845805281771126`*^9, 3.6845807591422386`*^9, 
   3.684581082710058*^9, 3.684581124225916*^9, {3.6845813941032333`*^9, 
   3.684581418051536*^9}, 3.6845814490981216`*^9, 3.684581517511074*^9, 
   3.684581690906034*^9, 3.684582866614552*^9, 3.6845829351543074`*^9, {
   3.6845829717395906`*^9, 3.684583026126071*^9}, 3.684583064693732*^9, 
   3.684583173669511*^9, 3.684583246310629*^9, 3.6845832834887657`*^9, 
   3.684583353289429*^9, {3.684583453685438*^9, 3.684583483312497*^9}, 
   3.6845835183300467`*^9, 3.684583595886809*^9, 3.68458365217666*^9, {
   3.6845836859536915`*^9, 3.684583730776513*^9}, 3.6846612136941233`*^9, 
   3.6846656391237364`*^9, 3.684665681290807*^9, 3.684665841065987*^9, 
   3.6846661542528286`*^9, 3.68466684835867*^9, 3.6846669662878485`*^9, 
   3.684667086623056*^9, {3.6847760354138575`*^9, 3.6847761211277604`*^9}, 
   3.684776186816518*^9, {3.684777129258422*^9, 3.6847771860806723`*^9}, {
   3.6847790781368914`*^9, 3.6847790935867753`*^9}, 3.6847814666965094`*^9, 
   3.684782677736777*^9, 3.684783598889464*^9, 3.6847851037115345`*^9, 
   3.684785359374158*^9, 3.684788163624552*^9, 3.684789388269597*^9, 
   3.6847894280648737`*^9, 3.6848181625506716`*^9, 3.6848182141833324`*^9, 
   3.6848182633800073`*^9, 3.6848183634932823`*^9, 3.68482026709009*^9, 
   3.6848203766435647`*^9, 3.6848204804064026`*^9, 3.6848205559022303`*^9, 
   3.6848206617746797`*^9, 3.684820882992185*^9, 3.684820959696402*^9, {
   3.684821006698599*^9, 3.684821031205885*^9}, 3.684821070361472*^9, 
   3.6848211015458717`*^9, 3.684821132418272*^9, 3.684821199825872*^9, 
   3.684821341395872*^9, 3.6849419910269423`*^9, 3.68506719266574*^9, 
   3.690687944330942*^9, 3.690688300581192*^9, 3.690688349464738*^9, {
   3.6906883992576466`*^9, 3.690688422464926*^9}, {3.6906884657702413`*^9, 
   3.6906885086513867`*^9}, 3.690688728967427*^9, 3.6906887941884685`*^9, 
   3.6906888844534388`*^9, 3.6906889274307365`*^9, 3.6906889717751703`*^9, 
   3.6906890119571877`*^9, 3.6906890594789395`*^9, {3.690689096272619*^9, 
   3.6906891164806395`*^9}, 3.6906981920172367`*^9, 3.6906982572002707`*^9, 
   3.6906987256842575`*^9, 3.69070111763666*^9, 3.6907013537854834`*^9, 
   3.690701420099372*^9, 3.6907017328472443`*^9, 3.6907029800951767`*^9, 
   3.6907030502082043`*^9, 3.6907030987897744`*^9, 3.690703163185087*^9, 
   3.6907033617556405`*^9, 3.690703435662806*^9, 3.6907081907299414`*^9, 
   3.690709693136528*^9, 3.6907099210921736`*^9, 3.6907101454823112`*^9, 
   3.690710399069178*^9, 3.690710451915462*^9, 3.690710506490919*^9, 
   3.690743559907817*^9, 3.6907436030882864`*^9, 3.6907448228850546`*^9, 
   3.690745260638093*^9, 3.6907457069426203`*^9, 3.6907458597623606`*^9, 
   3.691303666487562*^9, 3.691304117149755*^9, 3.6913043289634466`*^9, 
   3.6913045295944395`*^9, 3.6913046214754763`*^9, 3.6913046748847218`*^9, 
   3.691304899235722*^9, 3.691305669401402*^9, 3.6913188621126947`*^9, 
   3.6913189703593397`*^9, 3.6913190211604977`*^9, {3.6913190825097656`*^9, 
   3.69131910133553*^9}, 3.6913193750592637`*^9, {3.691319507773801*^9, 
   3.691319536208487*^9}, 3.693297156059641*^9, 3.69329726180505*^9, 
   3.693298255817523*^9, 3.693299708322379*^9, 3.6933101071796293`*^9, 
   3.6933104794717317`*^9, 3.693310869420681*^9, 3.693311453179756*^9, 
   3.693312106272626*^9, 3.693312309979719*^9, 3.694761759025447*^9, 
   3.6948653559350586`*^9, 3.694935684185026*^9, 3.694945520976152*^9, 
   3.695966976838907*^9, 3.695967250382845*^9, 3.695968224557116*^9, 
   3.696312906605833*^9, 3.696313941623442*^9, 3.696572611555287*^9, 
   3.6966463651891203`*^9, 3.6971109324538813`*^9, 3.7015102366089225`*^9, 
   3.7015129740762253`*^9, 3.701514404677913*^9, 3.7015173309691114`*^9, 
   3.701518592158472*^9, 3.7015187554080467`*^9, 3.7015192139157457`*^9, 
   3.7015202465278645`*^9, 3.701520708011933*^9, 3.7015227210823927`*^9, 
   3.7015241350777307`*^9, 3.7015243990254145`*^9, 3.701524574523465*^9, 
   3.7015250048575954`*^9, 3.7162993640876307`*^9, 3.7162994115560093`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Data", " ", "=", " ", 
   RowBox[{"Import", "[", 
    RowBox[{"\"\<telefile.txt\>\"", ",", "\"\<Table\>\""}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"nx", " ", "=", " ", 
   RowBox[{"Data", "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"hx", " ", "=", " ", 
   RowBox[{"Data", "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "4"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tau", " ", "=", " ", 
   RowBox[{"Data", "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "6"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"deltacnt", "=", 
   RowBox[{"Data", "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "8"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{"nshape", " ", "=", " ", 
  RowBox[{"Data", "[", 
   RowBox[{"[", 
    RowBox[{"1", ",", "10"}], "]"}], "]"}]}], "\n", 
 RowBox[{
  RowBox[{"xcnt", " ", "=", " ", 
   RowBox[{"Data", "[", 
    RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{"nsteps", "=", 
  RowBox[{
   RowBox[{"Length", "[", "Data", "]"}], "-", "2"}]}], "\n", 
 RowBox[{
  RowBox[{"His", " ", "=", " ", 
   RowBox[{"Data", "[", 
    RowBox[{"[", 
     RowBox[{"3", ";;"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"PlotDGfile", "[", 
     RowBox[{"q_", ",", "t_", ",", "diap_"}], "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"H", ",", "sl", ",", "sr", ",", "otr"}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"H", "=", 
        RowBox[{"Partition", "[", 
         RowBox[{
          RowBox[{"His", "[", 
           RowBox[{"[", "t", "]"}], "]"}], ",", 
          FractionBox[
           RowBox[{
            RowBox[{"Dimensions", "[", "His", "]"}], "[", 
            RowBox[{"[", "2", "]"}], "]"}], "nx"]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"sl", "=", 
        RowBox[{"Sum", "[", 
         RowBox[{
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"-", "1"}], ")"}], 
            RowBox[{"nshape", "-", "1", "-", "s"}]], 
           RowBox[{"H", "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", 
              RowBox[{
               RowBox[{"nshape", " ", "q"}], "-", "s"}]}], "]"}], "]"}]}], 
          ",", 
          RowBox[{"{", 
           RowBox[{"s", ",", "0", ",", 
            RowBox[{"nshape", "-", "1"}]}], "}"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"sr", "=", 
        RowBox[{"Sum", "[", 
         RowBox[{
          RowBox[{"H", "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", 
             RowBox[{
              RowBox[{"nshape", " ", "q"}], "-", "s"}]}], "]"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"s", ",", "0", ",", 
            RowBox[{"nshape", "-", "1"}]}], "}"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"Print", "[", 
          RowBox[{
           RowBox[{"ToString", "[", "sl", "]"}], "<>", "\"\< \>\"", "<>", 
           RowBox[{"ToString", "[", "sr", "]"}]}], "]"}], ";"}], "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{"otr", "=", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               RowBox[{"xcnt", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "-", 
               FractionBox["hx", "2"]}], ",", 
              RowBox[{"sl", "[", 
               RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               RowBox[{"xcnt", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "+", 
               FractionBox["hx", "2"]}], ",", 
              RowBox[{"sr", "[", 
               RowBox[{"[", "i", "]"}], "]"}]}], "}"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", "nx"}], "}"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{"otr", ",", 
         RowBox[{"PlotRange", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"diap", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", 
            RowBox[{"diap", "[", 
             RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", 
          RowBox[{"Directive", "[", 
           RowBox[{"{", "Thick", "}"}], "]"}]}], ",", 
         RowBox[{"AxesStyle", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Directive", "[", "16", "]"}], ",", "Thick"}], "}"}], 
            ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Directive", "[", "16", "]"}], ",", "Thick"}], "}"}]}], 
           "}"}]}], ",", 
         RowBox[{"AxesOrigin", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"0", ",", 
            RowBox[{"-", "0.1"}]}], "}"}]}]}], "]"}]}]}], "]"}]}], ";"}], 
  "\n", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "\:0412\:043e\:0441\:0441\:0442\:0430\:043d\:043e\:0432\:043b\:0435\:043d\
\:043d\:043e\:0435", " ", "\:0440\:0435\:0448\:0435\:043d\:0438\:0435"}], " ",
     "-", " ", "\:043a\:0443\:0441\:043e\:0447\:043d\:043e", "-", 
    "\:043b\:0438\:043d\:0435\:0439\:043d\:043e\:0435"}], "*)"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"numsollin", "[", 
    RowBox[{"q_", ",", "x_", ",", "t_"}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "H", ",", "u", ",", "v", ",", "w", ",", "cell", ",", "sl", ",", "sr", 
       ",", "otr"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"H", "=", 
       RowBox[{"Partition", "[", 
        RowBox[{
         RowBox[{"His", "[", 
          RowBox[{"[", "t", "]"}], "]"}], ",", 
         FractionBox[
          RowBox[{
           RowBox[{"Dimensions", "[", "His", "]"}], "[", 
           RowBox[{"[", "2", "]"}], "]"}], "nx"]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"u", "=", 
       RowBox[{"H", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{
           RowBox[{"nshape", 
            RowBox[{"(", 
             RowBox[{"q", "-", "1"}], ")"}]}], "+", "1"}]}], "]"}], "]"}]}], 
      ";", "\[IndentingNewLine]", 
      RowBox[{"v", "=", 
       RowBox[{"H", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{
           RowBox[{"nshape", 
            RowBox[{"(", 
             RowBox[{"q", "-", "1"}], ")"}]}], "+", "2"}]}], "]"}], "]"}]}], 
      ";", "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"nshape", "\[Equal]", "3"}], ",", 
        RowBox[{"w", "=", 
         RowBox[{"H", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", 
            RowBox[{
             RowBox[{"nshape", 
              RowBox[{"(", 
               RowBox[{"q", "-", "1"}], ")"}]}], "+", "nshape"}]}], "]"}], 
          "]"}]}], ",", 
        RowBox[{"w", "=", 
         RowBox[{"0", " ", 
          RowBox[{"H", "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", 
             RowBox[{
              RowBox[{"nshape", 
               RowBox[{"(", 
                RowBox[{"q", "-", "1"}], ")"}]}], "+", "nshape"}]}], "]"}], 
           "]"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"cell", "=", 
       RowBox[{
        RowBox[{"Floor", "[", 
         RowBox[{"x", "/", "hx"}], "]"}], "+", "1"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"u", "[", 
        RowBox[{"[", "cell", "]"}], "]"}], "+", 
       RowBox[{
        FractionBox[
         RowBox[{"(", 
          RowBox[{"x", "-", 
           RowBox[{"hx", 
            RowBox[{"(", 
             RowBox[{"cell", "-", 
              FractionBox["1", "2"]}], ")"}]}]}], ")"}], 
         RowBox[{"hx", "/", "2"}]], 
        RowBox[{"v", "[", 
         RowBox[{"[", "cell", "]"}], "]"}]}], "+", 
       RowBox[{"0", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"x", "-", 
              RowBox[{"hx", 
               RowBox[{"(", 
                RowBox[{"cell", "-", 
                 FractionBox["1", "2"]}], ")"}]}]}], ")"}], "2"], 
           RowBox[{
            SuperscriptBox["hx", "2"], "/", "6"}]], "-", 
          FractionBox["1", "2"]}], ")"}], 
        RowBox[{"w", "[", 
         RowBox[{"[", "cell", "]"}], "]"}]}]}]}]}], "\[IndentingNewLine]", 
    "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"numsol", "[", 
    RowBox[{"q_", ",", "x_", ",", "t_"}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "H", ",", "u", ",", "v", ",", "w", ",", "cell", ",", "sl", ",", "sr", 
       ",", "otr"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"H", "=", 
       RowBox[{"Partition", "[", 
        RowBox[{
         RowBox[{"His", "[", 
          RowBox[{"[", "t", "]"}], "]"}], ",", 
         FractionBox[
          RowBox[{
           RowBox[{"Dimensions", "[", "His", "]"}], "[", 
           RowBox[{"[", "2", "]"}], "]"}], "nx"]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"u", "=", 
       RowBox[{"H", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{
           RowBox[{"nshape", 
            RowBox[{"(", 
             RowBox[{"q", "-", "1"}], ")"}]}], "+", "1"}]}], "]"}], "]"}]}], 
      ";", "\[IndentingNewLine]", 
      RowBox[{"v", "=", 
       RowBox[{"H", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{
           RowBox[{"nshape", 
            RowBox[{"(", 
             RowBox[{"q", "-", "1"}], ")"}]}], "+", "2"}]}], "]"}], "]"}]}], 
      ";", "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"nshape", "\[Equal]", "3"}], ",", 
        RowBox[{"w", "=", 
         RowBox[{"H", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", 
            RowBox[{
             RowBox[{"nshape", 
              RowBox[{"(", 
               RowBox[{"q", "-", "1"}], ")"}]}], "+", "nshape"}]}], "]"}], 
          "]"}]}], ",", 
        RowBox[{"w", "=", 
         RowBox[{"0", 
          RowBox[{"H", "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", 
             RowBox[{
              RowBox[{"nshape", 
               RowBox[{"(", 
                RowBox[{"q", "-", "1"}], ")"}]}], "+", "nshape"}]}], "]"}], 
           "]"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"cell", "=", 
       RowBox[{
        RowBox[{"Floor", "[", 
         RowBox[{"x", "/", "hx"}], "]"}], "+", "1"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"u", "[", 
        RowBox[{"[", "cell", "]"}], "]"}], "+", 
       RowBox[{
        FractionBox[
         RowBox[{"(", 
          RowBox[{"x", "-", 
           RowBox[{"hx", 
            RowBox[{"(", 
             RowBox[{"cell", "-", 
              FractionBox["1", "2"]}], ")"}]}]}], ")"}], 
         RowBox[{"hx", "/", "2"}]], 
        RowBox[{"v", "[", 
         RowBox[{"[", "cell", "]"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"x", "-", 
              RowBox[{"hx", 
               RowBox[{"(", 
                RowBox[{"cell", "-", 
                 FractionBox["1", "2"]}], ")"}]}]}], ")"}], "2"], 
           RowBox[{
            SuperscriptBox["hx", "2"], "/", "6"}]], "-", 
          FractionBox["1", "2"]}], ")"}], 
        RowBox[{"w", "[", 
         RowBox[{"[", "cell", "]"}], "]"}]}]}]}]}], "\[IndentingNewLine]", 
    "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.6699183264744844`*^9, 3.669918347076663*^9}, {
   3.6947617815404634`*^9, 3.694761814812092*^9}, {3.6949441277687287`*^9, 
   3.694944131545414*^9}, {3.6949458817555537`*^9, 3.6949458893409424`*^9}, 
   3.701516987984536*^9, 3.7015225307050104`*^9}],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{{3.694761799025874*^9, 3.6947618196815543`*^9}, 
   3.6947620030088415`*^9, 3.69476215726947*^9, 3.694865074381962*^9, 
   3.694865359226396*^9, 3.6949356881318164`*^9, 3.6949362353857408`*^9, 
   3.6949364497300715`*^9, 3.6949403341256495`*^9, 3.6949404049079523`*^9, 
   3.6949404756972632`*^9, 3.694940526104085*^9, 3.6949405827423363`*^9, 
   3.694940694242578*^9, 3.694940822976068*^9, 3.694942408688008*^9, 
   3.6949424837033243`*^9, 3.6949425839955945`*^9, 3.6949426848522716`*^9, {
   3.6949427890092945`*^9, 3.6949427953768196`*^9}, 3.6949435832447443`*^9, 
   3.694943981485768*^9, 3.694944057591855*^9, 3.694944136013589*^9, 
   3.694944255191286*^9, 3.694944556813644*^9, 3.694945389667541*^9, 
   3.6949455258355885`*^9, 3.694945589109557*^9, 3.6949456446019936`*^9, 
   3.694945688447152*^9, 3.6949458318230476`*^9, 3.694945890505752*^9, 
   3.694946004620852*^9, {3.694946046453582*^9, 3.69494606893656*^9}, 
   3.694946102991763*^9, 3.6959669802139397`*^9, 3.6959671945551157`*^9, 
   3.695968240338876*^9, 3.696312949168794*^9, 3.6963139469778013`*^9, 
   3.6963141336857104`*^9, 3.696314246865906*^9, 3.6963143584654827`*^9, 
   3.696572636869007*^9, 3.696637691501759*^9, 3.6966378778268547`*^9, 
   3.696637973862893*^9, 3.696638857439565*^9, {3.6966463618288636`*^9, 
   3.6966463668572044`*^9}, 3.6966545454837265`*^9, 3.6966546751436963`*^9, 
   3.6966548220757165`*^9, 3.6966548599823017`*^9, 3.6966550414945745`*^9, 
   3.696655324313429*^9, 3.6966555461305037`*^9, 3.6966557043228464`*^9, 
   3.696667073734584*^9, 3.6966674004913435`*^9, 3.6966676152077007`*^9, 
   3.696667717552846*^9, 3.6966680535516725`*^9, 3.69666852543235*^9, {
   3.696668573403612*^9, 3.6966685986493287`*^9}, 3.6966687743115172`*^9, 
   3.696668903711506*^9, 3.6966691618064957`*^9, 3.696669698901623*^9, 
   3.6966698873424363`*^9, 3.6966699690481606`*^9, 3.6966700137391987`*^9, 
   3.6966700634145765`*^9, 3.696670613179714*^9, 3.696670763074579*^9, 
   3.6971109357781086`*^9, 3.6971111158815765`*^9, 3.6971112467504735`*^9, 
   3.697111669880378*^9, 3.697112176372035*^9, 3.701510237659587*^9, 
   3.701512974666299*^9, 3.7015144052410383`*^9, 3.701517331526246*^9, 
   3.701518592714098*^9, 3.7015187559731793`*^9, 3.701519214465356*^9, 
   3.701520247068988*^9, 3.701520708569048*^9, 3.7015216172601404`*^9, 
   3.7015217060698643`*^9, 3.701522363007781*^9, 3.7015225351146574`*^9, 
   3.701522721854575*^9, 3.7015228883933134`*^9, {3.701523252302678*^9, 
   3.7015232618539395`*^9}, 3.701524135629841*^9, 3.701524399596543*^9, 
   3.7015245753116493`*^9, 3.701525023079652*^9, 3.716299364884471*^9, 
   3.7162994119363966`*^9}],

Cell[BoxData["201"], "Output",
 CellChangeTimes->{{3.694761799025874*^9, 3.6947618196815543`*^9}, 
   3.6947620030088415`*^9, 3.69476215726947*^9, 3.694865074381962*^9, 
   3.694865359226396*^9, 3.6949356881318164`*^9, 3.6949362353857408`*^9, 
   3.6949364497300715`*^9, 3.6949403341256495`*^9, 3.6949404049079523`*^9, 
   3.6949404756972632`*^9, 3.694940526104085*^9, 3.6949405827423363`*^9, 
   3.694940694242578*^9, 3.694940822976068*^9, 3.694942408688008*^9, 
   3.6949424837033243`*^9, 3.6949425839955945`*^9, 3.6949426848522716`*^9, {
   3.6949427890092945`*^9, 3.6949427953768196`*^9}, 3.6949435832447443`*^9, 
   3.694943981485768*^9, 3.694944057591855*^9, 3.694944136013589*^9, 
   3.694944255191286*^9, 3.694944556813644*^9, 3.694945389667541*^9, 
   3.6949455258355885`*^9, 3.694945589109557*^9, 3.6949456446019936`*^9, 
   3.694945688447152*^9, 3.6949458318230476`*^9, 3.694945890505752*^9, 
   3.694946004620852*^9, {3.694946046453582*^9, 3.69494606893656*^9}, 
   3.694946102991763*^9, 3.6959669802139397`*^9, 3.6959671945551157`*^9, 
   3.695968240338876*^9, 3.696312949168794*^9, 3.6963139469778013`*^9, 
   3.6963141336857104`*^9, 3.696314246865906*^9, 3.6963143584654827`*^9, 
   3.696572636869007*^9, 3.696637691501759*^9, 3.6966378778268547`*^9, 
   3.696637973862893*^9, 3.696638857439565*^9, {3.6966463618288636`*^9, 
   3.6966463668572044`*^9}, 3.6966545454837265`*^9, 3.6966546751436963`*^9, 
   3.6966548220757165`*^9, 3.6966548599823017`*^9, 3.6966550414945745`*^9, 
   3.696655324313429*^9, 3.6966555461305037`*^9, 3.6966557043228464`*^9, 
   3.696667073734584*^9, 3.6966674004913435`*^9, 3.6966676152077007`*^9, 
   3.696667717552846*^9, 3.6966680535516725`*^9, 3.69666852543235*^9, {
   3.696668573403612*^9, 3.6966685986493287`*^9}, 3.6966687743115172`*^9, 
   3.696668903711506*^9, 3.6966691618064957`*^9, 3.696669698901623*^9, 
   3.6966698873424363`*^9, 3.6966699690481606`*^9, 3.6966700137391987`*^9, 
   3.6966700634145765`*^9, 3.696670613179714*^9, 3.696670763074579*^9, 
   3.6971109357781086`*^9, 3.6971111158815765`*^9, 3.6971112467504735`*^9, 
   3.697111669880378*^9, 3.697112176372035*^9, 3.701510237659587*^9, 
   3.701512974666299*^9, 3.7015144052410383`*^9, 3.701517331526246*^9, 
   3.701518592714098*^9, 3.7015187559731793`*^9, 3.701519214465356*^9, 
   3.701520247068988*^9, 3.701520708569048*^9, 3.7015216172601404`*^9, 
   3.7015217060698643`*^9, 3.701522363007781*^9, 3.7015225351146574`*^9, 
   3.701522721854575*^9, 3.7015228883933134`*^9, {3.701523252302678*^9, 
   3.7015232618539395`*^9}, 3.701524135629841*^9, 3.701524399596543*^9, 
   3.7015245753116493`*^9, 3.701525023079652*^9, 3.716299364884471*^9, 
   3.716299411940405*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"numsolListPlot", "[", 
    RowBox[{"q_", ",", "t_"}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "H", ",", "u", ",", "v", ",", "w", ",", "cell", ",", "sl", ",", "sr", 
       ",", "otr", ",", "i"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"H", "=", 
       RowBox[{"Partition", "[", 
        RowBox[{
         RowBox[{"His", "[", 
          RowBox[{"[", "t", "]"}], "]"}], ",", 
         FractionBox[
          RowBox[{
           RowBox[{"Dimensions", "[", "His", "]"}], "[", 
           RowBox[{"[", "2", "]"}], "]"}], "nx"]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"u", "=", 
       RowBox[{"H", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{
           RowBox[{"nshape", 
            RowBox[{"(", 
             RowBox[{"q", "-", "1"}], ")"}]}], "+", "1"}]}], "]"}], "]"}]}], 
      ";", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"v", "=", 
         RowBox[{"H", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", 
            RowBox[{
             RowBox[{"nshape", 
              RowBox[{"(", 
               RowBox[{"q", "-", "1"}], ")"}]}], "+", "2"}]}], "]"}], "]"}]}],
         ";", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"nshape", "\[Equal]", "3"}], ",", 
          RowBox[{"w", "=", 
           RowBox[{"H", "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", 
              RowBox[{
               RowBox[{"nshape", 
                RowBox[{"(", 
                 RowBox[{"q", "-", "1"}], ")"}]}], "+", "nshape"}]}], "]"}], 
            "]"}]}], ",", 
          RowBox[{"w", "=", 
           RowBox[{"0", " ", 
            RowBox[{"H", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", 
               RowBox[{
                RowBox[{"nshape", 
                 RowBox[{"(", 
                  RowBox[{"q", "-", "1"}], ")"}]}], "+", "nshape"}]}], "]"}], 
             "]"}]}]}]}], "]"}], ";"}], "*)"}], "\[IndentingNewLine]", 
      RowBox[{"ListPlot", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"hx", 
             RowBox[{"(", 
              RowBox[{"i", "-", 
               FractionBox["1", "2"]}], ")"}]}], ",", 
            RowBox[{"u", "[", 
             RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", 
            RowBox[{"Length", "[", "u", "]"}]}], "}"}]}], "]"}], ",", " ", 
        RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}]}], 
    "\[IndentingNewLine]", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{"cell", "=", 
       RowBox[{
        RowBox[{"Floor", "[", 
         RowBox[{"x", "/", "hx"}], "]"}], "+", "1"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"u", "[", 
        RowBox[{"[", "cell", "]"}], "]"}], "+", 
       RowBox[{
        FractionBox[
         RowBox[{"(", 
          RowBox[{"x", "-", 
           RowBox[{"hx", 
            RowBox[{"(", 
             RowBox[{"cell", "-", 
              FractionBox["1", "2"]}], ")"}]}]}], ")"}], 
         RowBox[{"hx", "/", "2"}]], 
        RowBox[{"v", "[", 
         RowBox[{"[", "cell", "]"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"x", "-", 
              RowBox[{"hx", 
               RowBox[{"(", 
                RowBox[{"cell", "-", 
                 FractionBox["1", "2"]}], ")"}]}]}], ")"}], "2"], 
           RowBox[{
            SuperscriptBox["hx", "2"], "/", "6"}]], "-", 
          FractionBox["1", "2"]}], ")"}], 
        RowBox[{"w", "[", 
         RowBox[{"[", "cell", "]"}], "]"}]}]}]}], "*)"}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.694944341362528*^9, 3.694944468898183*^9}, {
  3.6966685490179515`*^9, 3.6966685521501646`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"numsolListPlot", "[", 
  RowBox[{"1", ",", "nsteps"}], "]"}]], "Input",
 CellChangeTimes->{{3.694944476746744*^9, 3.694944488437069*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {{}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], 
     AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJw1lHtQlGUUxgFlsBXDDJuAGS6ZIxnhJNMkEjwIEuDQZYHoooIYSDBOiCTR
eksKAixEtImLpEQNfxAMRKIgEohcxIBvucPHbe9cFnYZRElHtu9yPDM7O2ee
877n2fM7+7ocTgyNtTAzM4vhPvz3SdvKQIXsK5gJYcRNx/Q56c0cROlMXBhQ
WCAEHhWIuV7KV5TA931zoV4yVHrMW1KGZMWKoL924MKdZdc/sbTTQtB/59Sh
0ip4Z78k5B5C1CBn1Fuob1l25U5chzQhQ9BDRQNIXTxkzucKGW+wHjH3zhn5
+iT+umO3cdpKv47XRd9NaFsf+SqfBwkHmpH4pP6/Va6ed8M1gOfl5y/z5wW7
Qy24uqno6Rqu3onv5tgKWd4nSY85Pe4IH23wjHfI7eRyfjq2le1IVUW+vpWr
f8jfttyB7O0n5v/gch9hAJ0IfONjzbpVA4Tr0u/j7kXXIpcVA7r+FQL2YRvA
WBixWbiwG52J56zbbY0QxnWgB+/WHk5jbJ/9fgYDVXb6si4D9WPgE+eornV4
xkMO1dGyPI3nAvXvRcJm5ypp4DzNqxcvLt66VxGmJz99kMizCv1j5ohPPwqC
tk3c+GaW/PWjucvZrOjSDM13AHsbsdpfPU1+B1GQYfTq69fRfgwivDIqRvpU
S/6HcGf5t0RrNy3xGMaatKzC6GgN8R9GeEXl4qMrauIzgupPk+ObxlW0TyOo
2eF0JPUVFXIFXqNIzjx7JTtBSfvCQn/G97OUWgXxY1H+y6R9kpUC4v6O4WJL
Rq8kaop4jmNsT0fWjVOTtF/jCP1JlhMRPEF8J+Dsnezh6zRO+zuJbyUlzY2W
Y8R7Ek1+b1oE7WdpXlMY9+uM/TWCpX5T2OfoeqImjKX5TcGmYWE5M4Sl/grU
tNfYK31ZmqcCicFuPg6eLPlRwF1ap5B4sTRfJdzUp7YE7GbJnxLLKW9Z1nG6
OG8lOk3fjzDcfaJfFfZEhr78JICl+atQIkvaNc3lon8VQgK+uPsed17koYZ7
69YE/50s7ZcaSXXr19r7sMRHDefiBw3XPmRp39SwdDcrd9jGEi8NjgaelaYd
HKX90+CHImPrYNMw8dOgYjIiWBoySPuoRampf8TLo4/+f1rssE1T721maD+1
cP6uq+/0IYb46hBwzWLUO4+hfdVhU1Zm9pKKId46PMhnLgw4yYnHNO6kpayW
b5cTj2l8ZIou1m6QE49pXJcHhl81MMRjBmmtPz/8XMcQjxm8E1vcUbfEEI8Z
bPErzf97rZx4zKJZf766yFpOPGZxME5Z/wGXizxmsTj9QoV7P0M85rDr7UKb
S9Y9xGMO9/eFrJ6JaiMec/C7Zfqy4XgT8dBjoaF5xMaiiXjooVfld+82/UM8
9PDYmNVox71rIg899sv8XZY4XeQxD61Veow5p4s85uEWnBtv4nSRxzwkf03Y
8O+iyGMBX9utrPC6+P9aQGt3j/BuijwWcLKuyMTrIg8DjvtZC7rIw4DnNj4W
dJGHAbd/FN/d/wHMEB46
      "]]}, {}}, {}, {}, {{}, {}}},
  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,
  ImageSize->{674., Automatic},
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 0.995}, {0, 1.005081662482}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.6949444889174104`*^9, 3.6949445598688154`*^9, 3.694945394631068*^9, 
   3.69494553664427*^9, 3.694945590964876*^9, 3.694945647592119*^9, 
   3.6949456908668733`*^9, {3.69494584069337*^9, 3.6949458482747393`*^9}, 
   3.694945893530902*^9, 3.694946007609977*^9, {3.694946047276167*^9, 
   3.694946069279804*^9}, 3.694946103983469*^9, 3.6959669890518875`*^9, 
   3.695967201870536*^9, 3.6963139576045103`*^9, 3.696314138921236*^9, 
   3.6963142510350456`*^9, 3.6963143643571253`*^9, 3.6965726427654247`*^9, 
   3.6966377005583754`*^9, 3.6966378837072716`*^9, 3.696637981287429*^9, 
   3.696638868172295*^9, 3.696646371989572*^9, 3.696654549768017*^9, 
   3.696654679656004*^9, 3.6966548266440287`*^9, 3.696654864462599*^9, 
   3.6966550505191956`*^9, 3.6966553306698585`*^9, 3.696655551046849*^9, 
   3.696655707219033*^9, 3.6966670839792805`*^9, 3.6966674054156976`*^9, 
   3.696667619696024*^9, 3.6966677215851173`*^9, 3.6966680628603215`*^9, {
   3.6966685313927546`*^9, 3.6966685776759005`*^9}, 3.6966687775997405`*^9, 
   3.6966689074397545`*^9, 3.696669166138789*^9, 3.6966697011337767`*^9, 
   3.696669889822623*^9, 3.6966699713843384`*^9, 3.69667002079568*^9, 
   3.6966700656667304`*^9, 3.6966706152358513`*^9, {3.6966707655267534`*^9, 
   3.696670768966998*^9}, 3.697111701890552*^9, 3.697112181564415*^9, 
   3.69711227779893*^9, 3.701510238507635*^9, 3.7015129747508106`*^9, 
   3.7015144053450565`*^9, 3.7015173316047554`*^9, 3.701518592809117*^9, 
   3.7015187560612*^9, 3.7015192145688753`*^9, 3.7015202471690083`*^9, 
   3.7015207086670666`*^9, 3.7015223719062977`*^9, 3.7015225390091743`*^9, 
   3.701522721937598*^9, 3.701522897424131*^9, 3.7015232719504976`*^9, 
   3.7015241357368636`*^9, 3.7015243996925683`*^9, 3.7015245753956766`*^9, 
   3.701525023207678*^9, 3.716299365017491*^9, 3.7162994119955893`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"numsol", "[", 
      RowBox[{"1", ",", "x", ",", "t"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
     RowBox[{"PlotPoints", "\[Rule]", "100"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "1", ",", "nsteps", ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.693298274705412*^9, 3.6932982851974607`*^9}, {
   3.6932983229762383`*^9, 3.693298345367477*^9}, {3.6933108897537794`*^9, 
   3.693310893586929*^9}, {3.693311464953287*^9, 3.693311467523058*^9}, {
   3.6933121333327413`*^9, 3.693312136252617*^9}, {3.6966553430186987`*^9, 
   3.696655343850808*^9}, {3.6966686636257467`*^9, 3.6966686639897704`*^9}, 
   3.696668807693842*^9, {3.6966695211851997`*^9, 3.6966695380222883`*^9}, {
   3.6966699041716356`*^9, 3.6966699043075914`*^9}, 3.7015224406821995`*^9, {
   3.70152330404356*^9, 3.701523305064702*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`t$$ = 1, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`t$$], 1, 201, 1}}, Typeset`size$$ = {
    540., {162., 170.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`t$8784$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`t$$ = 1}, 
      "ControllerVariables" :> {
        Hold[$CellContext`t$$, $CellContext`t$8784$$, 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`numsol[
        1, $CellContext`x, $CellContext`t$$], {$CellContext`x, 0, 1}, 
        PlotRange -> All, PlotPoints -> 100], 
      "Specifications" :> {{$CellContext`t$$, 1, 201, 1}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{612., {233., 242.}},
     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.6966674381809425`*^9, 3.696668604657736*^9, 3.6966686660539284`*^9, {
   3.6966687811159983`*^9, 3.6966688095019293`*^9}, 3.69666891061597*^9, 
   3.6966691700590534`*^9, {3.6966695229852824`*^9, 3.696669538594344*^9}, 
   3.696669707218191*^9, 3.6966699050316563`*^9, 3.6966700268121157`*^9, 
   3.696670070539061*^9, 3.696670621600284*^9, 3.6966707727952585`*^9, 
   3.7015102434996605`*^9, 3.7015129757839413`*^9, 3.7015144063433857`*^9, 
   3.701517331661268*^9, 3.701518592866124*^9, 3.7015187561282034`*^9, 
   3.701519214632889*^9, 3.7015202472340117`*^9, 3.7015207087400894`*^9, 
   3.701522441680662*^9, 3.7015225439238815`*^9, 3.701522721996602*^9, 
   3.701523305883836*^9, 3.7015241357668705`*^9, 3.701524399744571*^9, 
   3.701524575452699*^9, 3.701525023237687*^9, 3.7162993655733557`*^9, 
   3.716299412015642*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"PlotDGfile", "[", 
    RowBox[{"1", ",", "t", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.2"}], ",", "1.2"}], "}"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "1", ",", "nsteps", ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6699196761956844`*^9, 3.6699197299947615`*^9}, {
   3.6699228848452086`*^9, 3.6699228897484894`*^9}, 3.6714737799785595`*^9, 
   3.671475677017064*^9, {3.6714762283005958`*^9, 3.671476228812625*^9}, {
   3.6720434474117217`*^9, 3.6720434530276856`*^9}, 3.6845804437735386`*^9, 
   3.684580532795127*^9, {3.6845829260898943`*^9, 3.6845829326112795`*^9}, {
   3.684661218374783*^9, 3.6846612200598207`*^9}, {3.684666857110326*^9, 
   3.684666876626051*^9}, {3.68466697274629*^9, 3.684666974446701*^9}, {
   3.6848209158765635`*^9, 3.684820932318753*^9}, {3.684821330023472*^9, 
   3.684821333892272*^9}, {3.6849416349515753`*^9, 3.684941641783966*^9}, {
   3.6849431743036213`*^9, 3.6849431805839806`*^9}, 3.6871913084898863`*^9, {
   3.6932981716961117`*^9, 3.693298199372879*^9}, 3.7015206164485826`*^9}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`t$$ = 1, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`t$$], 1, 201, 1}}, Typeset`size$$ = {
    540., {161., 170.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`t$8957$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`t$$ = 1}, 
      "ControllerVariables" :> {
        Hold[$CellContext`t$$, $CellContext`t$8957$$, 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" :> $CellContext`PlotDGfile[1, $CellContext`t$$, {-0.2, 1.2}], 
      "Specifications" :> {{$CellContext`t$$, 1, 201, 1}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{612., {233., 242.}},
     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.70151921532704*^9, 3.7015202476711187`*^9, 
  3.701520617487254*^9, 3.7015207091941957`*^9, 3.701521629559469*^9, 
  3.701521714194616*^9, 3.701522380672122*^9, 3.701522722165639*^9, 
  3.701522756338295*^9, 3.701522903533822*^9, 3.7015233082020054`*^9, 
  3.701524136170962*^9, 3.7015243999026127`*^9, 3.7015245756177263`*^9, 
  3.7015250234252305`*^9, 3.716299365737465*^9, 3.71629941211194*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Partition", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Partition", "[", 
     RowBox[{
      RowBox[{"His", "[", 
       RowBox[{"[", "2", "]"}], "]"}], ",", "13"}], "]"}], "[", 
    RowBox[{"[", "50", "]"}], "]"}], ",", "2"}], "]"}]], "Input",
 CellChangeTimes->{{3.7015167880261216`*^9, 3.701516816831164*^9}, 
   3.7015168896963167`*^9, {3.7015171515928755`*^9, 3.701517176895566*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0.9536823482913`", ",", 
     RowBox[{"-", "0.1053620550732`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.04745876462049`", ",", "0.1053698809023`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.367836296136`", ",", 
     RowBox[{"-", "0.2791786211514`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.366655434215`", ",", "0"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.701516790268498*^9, 3.7015168173922563`*^9}, 
   3.7015168903114157`*^9, {3.7015171579648156`*^9, 3.7015171772171116`*^9}, 
   3.701517332413456*^9, 3.7015173896065674`*^9, 3.701518593872369*^9, 
   3.7015187571374273`*^9, 3.7015188051032715`*^9, 3.7015192156421003`*^9, 
   3.70152024793717*^9, 3.701520709464241*^9, 3.7015227224367037`*^9, 
   3.7015241362219596`*^9, 3.7015244002286863`*^9, 3.701524575892788*^9, 
   3.7015250244379463`*^9, 3.7162993659089346`*^9, 3.716299412283805*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"PlotDGfile", "[", 
    RowBox[{"2", ",", "t", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.1"}], ",", "0.5"}], "}"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "1", ",", "nsteps", ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6699196761956844`*^9, 3.6699197299947615`*^9}, {
  3.6699198462184095`*^9, 3.6699198903619337`*^9}, {3.6699228956768284`*^9, 
  3.6699228999010696`*^9}, {3.6704899727237153`*^9, 3.670489973834779*^9}, {
  3.684580473119772*^9, 3.684580474196268*^9}, {3.684580552485094*^9, 
  3.684580553858017*^9}, {3.6845829248261805`*^9, 3.6845829314567757`*^9}, {
  3.684661285526652*^9, 3.684661286541795*^9}, {3.684667010701333*^9, 
  3.684667035942295*^9}, {3.6848209944371567`*^9, 3.6848209958411384`*^9}, {
  3.684821336887472*^9, 3.684821337714272*^9}, {3.6849416590789557`*^9, 
  3.684941669698563*^9}, {3.684944557091713*^9, 3.6849445585097933`*^9}, {
  3.687191360433858*^9, 3.6871913633300233`*^9}, {3.6879489683879957`*^9, 
  3.68794898367387*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`t$$ = 1, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`t$$], 1, 201, 1}}, Typeset`size$$ = {
    540., {170., 179.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`t$9021$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`t$$ = 1}, 
      "ControllerVariables" :> {
        Hold[$CellContext`t$$, $CellContext`t$9021$$, 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" :> $CellContext`PlotDGfile[2, $CellContext`t$$, {-0.1, 0.5}], 
      "Specifications" :> {{$CellContext`t$$, 1, 201, 1}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{612., {242., 251.}},
     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.6879487138394365`*^9, 3.687948839872645*^9, {3.6879489428145328`*^9, 
   3.68794898507795*^9}, 3.687966081872204*^9, 3.6879661581825686`*^9, 
   3.6879664854112854`*^9, 3.687967905480509*^9, 3.6879681134444036`*^9, 
   3.6879797171091633`*^9, 3.689089331494978*^9, 3.6932981505079927`*^9, 
   3.6932997099870443`*^9, 3.6933104810141945`*^9, 3.6933108709241323`*^9, 
   3.6933114549492874`*^9, 3.693312107866103*^9, 3.6933123142510004`*^9, 
   3.7015102451868615`*^9, 3.701512976397519*^9, 3.7015144066909637`*^9, 
   3.7015173327295237`*^9, 3.7015174601514173`*^9, 3.701518593913375*^9, 
   3.7015187571814346`*^9, 3.7015192156851172`*^9, 3.701520248236238*^9, 
   3.70152070976031*^9, 3.7015227224897065`*^9, 3.7015241362589765`*^9, 
   3.7015244002777033`*^9, 3.7015245759393005`*^9, 3.701525024494976*^9, 
   3.7162993660988035`*^9, 3.7162994123038588`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"PlotDGfile", "[", 
    RowBox[{"5", ",", "t", ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "3.0"}], "}"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "1", ",", "nsteps", ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6699196761956844`*^9, 3.6699197299947615`*^9}, 
   3.669919851705723*^9, {3.6699199064898567`*^9, 3.6699199220727477`*^9}, {
   3.669922904413328*^9, 3.6699229050043616`*^9}, {3.684582923671677*^9, 
   3.6845829303802795`*^9}, {3.684818339382021*^9, 3.684818340520521*^9}, {
   3.6848183832220955`*^9, 3.6848184398718925`*^9}, {3.684818474892545*^9, 
   3.684818490959927*^9}, {3.684820985482871*^9, 3.6848209885248327`*^9}, {
   3.684821339430272*^9, 3.684821340381872*^9}, {3.6849416757919116`*^9, 
   3.6849416814432344`*^9}, 3.6849418154398994`*^9}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`t$$ = 1, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`t$$], 1, 201, 1}}, Typeset`size$$ = {
    540., {168., 176.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`t$9085$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`t$$ = 1}, 
      "ControllerVariables" :> {
        Hold[$CellContext`t$$, $CellContext`t$9085$$, 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" :> $CellContext`PlotDGfile[5, $CellContext`t$$, {0, 3.}], 
      "Specifications" :> {{$CellContext`t$$, 1, 201, 1}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{612., {239., 248.}},
     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.6879487148014913`*^9, 3.687948840799698*^9, 
  3.6879489435415745`*^9, 3.687966082547243*^9, 3.687966158879609*^9, 
  3.6879664866673574`*^9, 3.6879679055155106`*^9, 3.6879681141774454`*^9, 
  3.6879797183912373`*^9, 3.6932997100100536`*^9, 3.693310481290277*^9, 
  3.693310871197214*^9, 3.693311454972294*^9, 3.6933121081411858`*^9, 
  3.6933123148981943`*^9, 3.7015102454968786`*^9, 3.7015129764380245`*^9, 
  3.701514407244581*^9, 3.701517333029602*^9, 3.7015185942044363`*^9, 
  3.7015187574754925`*^9, 3.701519216182214*^9, 3.7015202482752533`*^9, 
  3.7015207097993326`*^9, 3.7015227230248404`*^9, 3.70152413655504*^9, 
  3.701524400832817*^9, 3.7015245764779205`*^9, 3.7015250255332117`*^9, 
  3.7162993661231866`*^9, 3.716299412486586*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Rho]", "[", 
      RowBox[{"x", ",", "0.2"}], "]"}], ",", 
     RowBox[{"numsol", "[", 
      RowBox[{"1", ",", "x", ",", "nsteps"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "1"}], "}"}], ",", 
   RowBox[{"Exclusions", "\[Rule]", "None"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.68585365745935*^9, 3.6858537241626883`*^9}, {
  3.685853924122672*^9, 3.685853971668748*^9}, {3.6858546744116917`*^9, 
  3.685854677331276*^9}, {3.687190735031087*^9, 3.687190737790244*^9}, {
  3.694761868503249*^9, 3.6947618696670766`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, {}, 
    TagBox[
     {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwk13c81d8bAHArVHYyKzIKUUQJ8QhJyQqJMkLSsouGnQYlJFKkVJIyk5W9
t3vJvMbdrusaKWTE79zvr396vV+f6/M553me85xzdrt6n7nExsLC8oWDhYX5
/6lLNGzNpK2e/cgG+jcLb7dbPIgWvw9KgughyxyEc3/b+1g8EbJe/f/5y9E7
ht/X3wAp/v/Pz9m/y5v79QHWj/7fB78Kcu7gzgbpj7/++/3WjfALJ3blwekW
sf+e22Ylt/vzFoJwCua/5/JWM7T6mCLwqpxbZ/qOavj6X8p3sD7w8b/fd/EL
C+/XL4HyP3JsTAeFjr4xmS4BSdbPrEzLzGYqur0qhXu8Kv95KXOr99xcKeRs
m/3v7zucfIqCT5TBqHjBfy4pl7Fr8CuDhR0J/zlDpG95y5syCMz2XGV+/4nf
w1Sr1jLAsv9eZjqwSwte/imDfY7Bf5nGnt475HS8HOZm6heY3tcu7C+fVA5F
YVt+Mx11ko2XQS2HICGrOabHm2czCzV/gO6H5GmmtYxH9W8/+gGsh8foTD9v
aBuGoR/Q1CxHY7omsnbve9YKyBJooTI9bVAawKlUAUbZWf/9/n6GuuQRvQqg
EoX/e58EW17tlTMV8FgyfJbpE7Uf+TrvVED3E/s/TI9J7/6+HlsBvo2Ni0wH
hKWeV31fAcLrav/N7x08z3reXgH23lv+i/9qZZiBw45KmM8aZWfGJ2HnGi1G
tRIMG7dtYlohOPBZpVElvCCc5Pwvn0e9RqRvVMIRiWJupvPKz9+aqKyE4JhY
XqaNJQZ2iPdUQtenBj6mR26fqT9FrQTphhV+pjdrnRTI5auCujUPIabfvmwo
HpepAmHxtG1MH/4LjoKaVXDpUK8w024lh7MDnKuA2wtEmV4RKbTM9K8C++ib
YkzH3VJZGnhYBdmZX8SZ3tOflbY5tQrW6ggSTFcekjPSya8Cs3HRHUzbvEin
X2+oAt8/S3uZpv+RiH8zWAUbCxX/OcwmSRPDqILYpfD/LFokOMbKWg07l43/
s8Etlxfb86vBLOKE/H/jTbXLTDxQAyFbTWSZrj29L9H+fA2IWprIMH3633r4
roc1kJdosptpr0n/Sv6EGuj7yP2f4/tof1nSamC1uEWa6aJaR435TzXwiO3P
f/nuz+nxJhXWQKCk1ijTyyknvvysrIHLGiEdTO94UEFtbKkBO7P6H0xfdMp0
zBqrgcOhZq/+q59TkikpkzWw52XCY6YzD8f9jP5TAyIFA0FMM/jumN7YUgsL
xIt2TN+qNtM6eLgWioxvCTOd8qUuQPZYLXxw/sHOdEWyZr7w6VpIDGL5vY7M
6rN779LFWvDPjsYy/UR6QbjiaS0c5EuPZTqX56plzstakNlLDmYa+3cs5s37
WhDUV7zBtAi2hS28rBZ++X4zZVqrUlfPr6EWCNF/tZm+8Lnwtlt3LWDe6yox
HfJi73eb4VqoqYgQZ/pdeOrccUot5Pc1czPdcENQWXOuFq7LN/79h0y1f3BZ
YbUWRqN5tjOfbzZezRDnrAOLOWs1ppUP+oxtEayDGtvXZkyb76KIr0nWgdoP
4hWmfbc42E7vqYMMaaUHTBcTDTu6j9ZB1FRpFdP9JuG/np6oA6lT94aZXsyt
Ejl9pg7Ks2CRac27WhdbLtfB3KUmFWb8SrcdWKxJqIPz+N5UpgdvX5cMTauD
Bb3kUqb/jn/W182qg7g0h59MH/kqF1NWWQduOXP/rccyIwnpQlodvLwaqMv0
cLbdcZ/fdUAVtzf9b30IvLi6f70O1Fu17ZmWCOx5xuCuh7CgHZeZ1h7l/569
rR669q4HMO1gaDbsuaseJAfGI5i+8zl6Y49iPXg+qI1j+hV/ixxFvR7E72Rl
sCKX39x06r1ePWR6Xmhjehhn4H3xZD2o2wnMM71yLCxRyqYeao43iLMh6/Ct
jr2+Ug9DMspXmK7InPNPTKwHntFVLnZmf+DZn3ImvR5S2vMOML3md61KILse
5Mvd7JjWBSr30+p6gOT2TKarBnBpUfR68LN6fZwDeUxXvN5woR7WweIG0+vv
z9JYWRogZj/7C6b1fLAHQ7Y3wMet18hMV3M3N9/Sb4CBRu3ITch4L45pDdMG
cC+ayWaape+Y0G/bBviVkdHDtLROqGaBSwOExJ9dYVr/XcUF72sNsCVsiwwn
sgvXSrjKrQZI9qo6yXTYDc1PU2EN4HaXpsL8fY1W4a/LSQ0QefCBGPP7+PRZ
kT3vGmAbX99T5nxYOFWOkr80wPtJWXamj/V8euBS2wB1b2unmfGsu5omac9o
APZdK1HMevg2ee2a02IDxNkdjWTW1wdP7R9uLI2wMz4kjFnvUR4DDl7CjXCE
g/3uKrKJq+CryKONcJ2+1WeJub4I45OPjBthWdb8xiKykkuuVqxlIzxwjLu6
gMzjZDr00r0R3mKEL/1G7raPEst90gg/i3c6zDL3q0Frz29JjXBxztluBjnf
Tqa09G0jzChm2Ewz12P/HFdVdiPccyNbMZATbKvt6osaYXPaHosp5MifTz+1
VDVCUr/naTpzf7K+sNTZ0giqmz8LjiJf6lE60dvTCKx/rpFxyGetlpMGRxqh
Z2x/yTBzv8M0U0epjZDR+uvxEHN9WCQdJs01gn9R0YVBZHEz9f5pjiYQjtZm
60ceMbmxnV2lCewOGZthkTubdS5xazaBgvRmaQxylfGW77zHmmB5S8d8F3K6
0ScbMdsmeIW3etmB7KpPeK4S3ASjMY6kZmTr6jzSwYdNkHtLurgJ2UgvRP1I
fBOEXiQ9amSeb45K9hp8bAJpzSv765FpmrZC5zqbwI0YcLsKeahY1tVxoAk0
OjVPVyK3HZovcCU0wabSlV0VyOVFNayeU03Ql1H5qxz5i/ozqxsLTZD5NKyh
DDm10PGd30YTBAYZooaB+q2a8q/Azc1g4sZ5tQQ5OH9FP3hbMzhIFcj/RPY6
0BoXsbMZpCT+dTHj6ZybjH+4txnIwieDSMiWKh6qT9WaIZv/xW5mfg7uY8ck
H28GjU0qASvIC3t0+XNuNIN8UO4THuZ6Iho0Rwc1w2tfviIB5AdpJqGekc0g
eM0LJ4wsImwzK5vSDOuO+5V2MvdH1mvdrxqaYcAwt1mFeZ7DvXz2SLIFovlz
2SyY6yPpzQmPPS3AsplPyRqZ+8yHDUO1Fghk87KyQ7bkzS7ZfbQFplc7g84j
p7TkeW8Yt4DbgspbZ2Ri5Pe9o1YtMDzztNkNWQl+jJdfaAEfRTtqFLLfSk3y
y8stIOv/UPkRs399b7K45dcCAxUlftHIbL4dXDbBaDyctNInyKeUe6rVHrWA
rqXYRiwyLmP0wHRaC3wgBcU8Z/anZ3/43Vtb0L6g/SEV2ch0pfnYzxaQs7lK
f4P8hJMlTGocvT/tleo75J3BW+eG/7SAntpqxUdm/K7KYKykW2HruYq+XGb8
5BUeHdjXClXvGJIFzPMvXkWf93Ar+E7tcP2G7GSnld9i2gqDIcEzJciZQuCZ
ebYVYlpyNMqRZzqNpO9fbAU9obE7FcihRpZxENgKHz/qcdUit2zYmuyMaIVz
s15m9cgCP86zrD5B39dKf97IPM/fulg6mIy+H9E91Mw8j6ld9inOaIWwImcD
d2Z+doVYqnS1wk6f917MfsS2/EVAUr4N8rpsYwPXZ0Gy0+A3HGiDA2Ub108i
a7wb6nPXQs/ffzaVRL50kut1rlkb5Af9467+NwstKa7yBrfaoFDmYyQn8jNt
ce0rzW1QdOtP0IvVWcjiy98Ri22DQxff2F1GriEabxTi2uC7qclhrVXm+hkl
DFDawPs21p64PAvz0QENa7Nt0Jjl0tiIvNV566fdK22wY3BW9TOynHrGY2OO
dvDjCk19gnwW120eJ9YOUh5p/tbI3nkeat9l2uHmC+Xxw8iPIv9tG1Zuh/aG
H6ckkMv27RuSPdYOQbLDuwl/0Xnr3gO3kivt0IMXwXghH7LcaTzi3w4KApk6
Z5DN5YoUWEPaIQQOfTqEHNpBmD6V0A773liHrC3NAnGHbtBYeTtEnY9TjkZe
net1YG9sB1y01MsbyMKNV3UVuttBrTyX3QrZ+MZLNj9SO4yJdQ6LIjsfO0BJ
mm4HDZMLxquLsxC0van5x1I7xAROFYwhf678/WQTTwdo9m9+/BG5Lj7aW0mk
A2I3pfx5hDx8afcZC+kOIGsouFxH/q1VqhGg1AHPjQMqDNB8efgsRFM0OiCi
ayCGe2UWfJyy3yk7dgDMXGqVQvk6vOFSbJ3bAaMix2Q+saLzrVlNxPHSDjCm
D4lys6Hz+mspC826Dsiv9OO9ghynOTYh0Y/e5/7hrxL7HEx6nxcn/usAhUKu
7lwOtP9VlVN6uTohPuptA/8m1D94JAobBTth5ZxWuQ+yQdbgqc/yndC5cfXj
QU5Ur4uaoq8PdIJmL/vr58jeRsmkJ1qd8DYzNe4Pcire9p6PWSf4m3XdLeaa
g8L9301c7TphRPqyryg3Wg/3hLfbXOyE4382PIKQx9r8CcevdUJe88sLQ8gL
Yr05mjc7YaNY+rwMzxzwXD54RzG0Ey5GDN7/iizzPd5Y8nEn1JnF5R7mnQNz
K8vx9dROeEDeYDXlmwP39Lwvc5mdQMsr2deHfHeaL4iY3wkn73rbOvPPQdbj
ToGmhk7gFRrP8heYA9a6UwZPGZ2QCFUWqUJzICaQzRe62AmLW27d3rNtDvY7
bcb5sHSBXb/K+3xkh5VmfxvhLpC8kbbYIIzuCwePf5Q82gUZr+6lTYvMQVvY
B19e4y7g8NBoDhRF540udr0Niy64pMaYYxWbA95rdf1Ety5QbDlvJCI+Bx7v
gTs7pgvyF7Sn9CTn4N6vNz9fv+gCodp54Vbk57D+9ml6F/g/ydaz3jEH2U8d
b4R+7oI+O1fPUeQaXIWW77cu0JSVSLi8cw76FXdwulV2QZ2lRIIz+ntG4N0e
m+YuWMkvu7wogfpH0/AbY2wXqAna6z5FFhfWvnYE1wVXfP8KySGruqZoKlG6
4C02mVaOxmec/5d9x2wXDKppVlkh+50uSd1g64YT8zevhKL5dNzX6GpS6gZ5
/9/Vw2j+2vztbPGHumHGYdNHT+SslIua5/W7odRANHpx+xxE5sa+nbXtBlMh
HRshZO1Bmp9YeDf4FUTQTqL4ZrmGfiLGdINOSmLnAMqHyPT2ka9J3bApPLPw
EvIvVsPjx752w0vLtnvhgqg/Pxm6vbWkG1yPjFzkR+4Q8cntq+2GfdIzxmko
v1n70kSvDnRD9aygYBnKv0ix+mkNYjc8GpBdNEa+r98Wts7ohjPVh3A/Ub3M
t7l8b1nqBslPJ2pckfOzVwNOsmLgdF2MCgWth5hqhbFREQyAy5qtIuqHBpMR
+ZwGGHgi2mQ6MTQLt/d3tV07gYFb5qFbqvvQ+cxfnII5jQGXqCOtSdhZ2LWe
J/7aDgPqv7ONjVvRfVJoNOLADQwMdz079rF0FlTPKaQl+mGgYdNJluCiWUBt
smQ5EAO5R9mqbfJn4efeLYz6CAyEZwcc5chC/faGLafiIwxcI6is4t6j8RS+
lY59igEbsYmyb+no+0c1bc+9xMDeB/aabsmzMBEe4V2ZhgHBSqFF7edoPM2d
j2XeY2D1d3uR0LNZsOUR//AwCwNL6m+2B9xB5xsr9ypGDvp+Ec94n/8s1Cfl
DVp9w8ClQ3ezNG/MwgpuZb64FAOSxZO+KR6z4OkRvze8HgOPSpo4HO1nQSpu
avnzDIpXpbblNTl03rsY+rnwNwbmb/EF6e2aBSf1bfY//mLgvSoxXVAMna/6
tUs72LCw+cPj2ZKtsyC2M/rWrAgW+qIHYzl+z0DJzM49fyWx8Mjoa/EAYwbO
1hT0sezGgs566Fg2dQZeuA1pCO3DwlvfvfuthmdA49ANsoQqFqz3rdrK/ZyB
n5ysibKHsLCJ0hW81DkD/oOJhsraWCh9k/GxrXkGhLIVfmsAFq6du9WZVjsD
BXcrMnSNsLBL6NSCz48ZsDSzPGN8EgvSPs8S2XJnYG4XmdXCHAt5RqcqfmTO
wLO5wAI7ayzoi28iB6TPAI9ms/edy1iIvDYXYR8xA5saLjGqn2GBW6C5RsZk
BqaWxsf6VHvgxQ7aUQuHafhA/9HGF9sLtnh5Djm7KeDb+WmWTP4JFzff7o/1
nYQnV757vJXrh21zRcJzVROwqP+F7Bk6AHkGfVGT6xQIONhQJFI/CHvYeWZd
AskwntsQg909DPlagd+mSURYvfrzteIdHHyRqbVn8STAvmNc6x4/RuA+r8On
8h14OJGx+3KB6Bi8M9QhpeSNgsZLvj1NO8YggtJ3yiRzFKRjV8nDu8fA7aFP
4WLqKKzc7nPlUB4D2faP4dbRo5Bj9djJTn8MPp4RkOa9NArbWH/Z/vMcg88X
KRfCJEZh3LnG6GT5GCw5S+tejxmBDtscdqfqMegs8r89HTECpaav6vwaxuDD
5ubvXndGIEEzQD+1awwsvt3Y73tlBI7zKxydJY5BJucPqVsnRuBL1TP1F1vH
wTbHli2MfQReFt2b/ywwDkpsn/VYV3FwP/tKQdX2cWC1W7sTMY8DpyTDAzSp
cfjK8v73fQIOTJ+ozqzJjUOE7eIBziEcHInYmSOoNA522SevP8TgQNBrSUlH
YxzYbebIj6txsO5GnrTQGoehLMPdW0twQLfHZrnrjUP+vyTHJ7k4GLCounzb
cByiztBTeDNx0HD8y55Yk3E4/0m3PzYNBwU6LykZZuOguhYnJPACB2/Uoj6U
nBkHTiuyefwTHETv9XPrsBuH0Y+aMUL3cRC401mGcGEcxhmELJZYHLhaqp4d
uTgOClJnd5KjcWAeyRo94DEOvlZt8c0PcbBn8v2vTh803+LCO7HhOPhZRKsp
vz8OsqGRp3fcxIHqaT/nxK/j4CkoP6d5AQc7Qg2fPytA4zdMcZe0xwFXoXBz
dPE4LN/kHVq3xcGYaMn+8JpxiB5eqG20wMET0uq/Gz9R/N43Pbc2xEGQSKfa
laFx+NOnza2pjwO3k28uuY+Ngy533j0JXRxo5+l3OtDGoet68iXCYTQ+oiDr
2elxEE3fOtygjuK7naRhNT8OLthQ8yxVHKydKPI8vTQOWex/UMfFAe1OVOqJ
tXH4dchT01sJxfvsPs93LHi47wh2Audw4DK3jU2KHQ8rQVEhy3Y46H+89jp1
Ex58E9s/EpFNZSmHJLjx6Dwg2NmOXFPR2Z28BQ/O7XZ/ipAPny2+sp0XD/3U
NMk3yDKPH6YJCOGhYafSVR/klzI+mrHCeNDR8om3R+arOIfdKoqHQpviUgPk
5RnFTVxo3byNMeDajoyx6bj+Tx4Pd5cdPpSdxYHxTBHnXQU8zAu/a89ArniY
9vavEh6uqE7MxyB/Kvf6+fsAHuwu+x9zQg6RFjxK18KDel/MGBvyn7LlvstH
8ZA9h93EQPm4ak30pujhYTePmEofsu2Db+/xhnjgM/xw9xNym1SqrpMxHqKc
6BlxyPpl9wdwJnhYu63adhu5+MwNX3tTPPi/uPXLFVmZYbt1wAwP9PwKsdPI
pTanq6Mt8VDMVWGhjmxYaeCvZ40H4iP9gFg0ni55rb3ztngYnnJKv4DsEHsA
9/EcHrDmwW1KyNRF+Wf25/HQWvB64S/6ez/nHYa8TnioES6XbkZ+rLr5S4Ab
HvKGF2+5IQunbDgpeODhk+72DDXkt6yLQiOeeEh/q965YYPG00O8Y+iFh1gP
H9lUZGpAxSmh23i4Pj/Z/dMavX+0cL3xLh7cbblXM5D/Hf9ceDsED+dL9+zx
RRYWTZIgROLhVIjbPV5kwzJvel4sHhS3jCoYn0Hz2e3xxi0eD9I3Vq2FkR2i
L5wRTcSDGEY8lGiFvjd/hrM9CQ/86key85H9zp8sD0nBA1fS2b4Q5PV68DqY
iof1vwEsZsiPlQ/LUN/gYfH8832SyMIvlPtT3uFhpqrg7KQlmt8/mWizD3iY
OE58ch9Z2UNcj/UTHqpur0bpI5d08c8XfcbDixzh0DW03rrS1+x35OHBcPsJ
3wDkf8f6FafKUHzIX2zdzXHwKLtj9E0FHgLFGs2lkYW31cefqcaD+emxEyNm
6P3kvOWyBpT/bwLaNsgODx63PurGw7nIm7uMTqP5zYQGH+3Bw4GSWFEWZF+7
W2pzP/HAOfVJoMIUvV/BLcVuGA9FZ4bZNJCF4+3Nto7iIebB79XZUzhIX7Zg
rR7Hg2s5z8IX5OK2o1f2UPAgIAMTssgG6uo7hyfQfG3P4cdP4qDztSL2KR3N
97Hv0GvkcxzSUcem0Xwro3vskMnXRbQWZlF+f71v34bs08cznTWP5i9f2dBt
gvqDLvu7Cwt4kLDvr4xBfpS5bCPwFw/dXnbpTcY42MY/x92wgofpQw77HZF7
KqMfnvyHh163lJaV4zhIuC7P2b2Bh7L4QdeXyEJtDuzDHAS4P302udcIOarx
3ywfASQ/WrOcQv1NYPXVvKQsAU4Km/UcRv0N8/mQ7zt5Auw3eHL9J+Ag7hxm
do8CAYR92jn9kPmLN02rqRAA335SJ0cP5c/97bWSAwRoWn7Udwo5dpsO/ehB
AnzZ2+JNQ/2Rz9dn4oQmAQIjjT/IIndJbfXo1CLAhYIovdqj6PddH8lnjhLA
YLxh0AnZPFjfbVCPAAq8HP5rOjjgVcYRHI8RgE/HkPcVcsfwTReSIQF+e0Z8
0kR+8lhg3NOYAENJtcf6tHFw+sgXxxkTAtxRkNZeQeaZOD7ib0oAxkN6Nw65
4wXeYdmMAE4TRZcqkZ8Y3R0KsSQAxjh09Q3y1oz8/se2BCjaJLzXFXmLoyQ2
3ZkA9yJ1Q2haqP9sLbaQdyXADJFLuA05utyyK9udAC4GPZ+/IG8We9D+/QoB
jFgv93khc/fONbb7E4AnNE554QgOWsJjjKxuESBkzKGuH/mR6p76/iACzOnK
nytF5oo9X0MIJsDPtbLIu8hNRxf1LocRwPjCfXFH5AdTcZWMCAKU/jDP00Pm
PNlUvvSQAKl3SMOszN8vuWgFR6N4Def4kDTR7zNXS9ieEiBMK4izEdnYNunw
o2cEmH9pkJqJvIlD7TtvAgHc//IcfITcUNiu/jyRAP12A81XkO9f9CgUSyaA
Sck7R1NkIwFWtTcpBKCJmD1eRfPjqH6dJ5tKgL6Qc8CD4jV81Mhk/A0BVut/
n9+FnFfOwL96RwCZzc+CVJEdinWFhD4RwPt5Y4ENckHOeABLIQG4sw7KpSE/
2PeIt6KIAAemO/XzkC98Vs0MLCGA7cErjrXI3B/DB2YqCJBRkZ5EQXZKldUe
bSbAUSzP5v2oHjQkOnpethHAVSRLXh9588uAazadBHh83tDgDHLR88bU9h40
P8rtu7eQowW9Dj3sI8Ca0vaXj5Bdnol0GQwSQNYnv4hZb1tjLm+UjRLAZ4U6
XYWM5xZ4eRNPgCSI2IJFLn5QqqpGIkDl/Z17Scx65LjYyqAQgNRaariA7Bqx
2TWLRoDN/DYuXKi+j7AUrrhNEUDVZvaeODJviMNzqRkCLBsNvbJFvyeusinj
5gjQcum4mgFy6e0vDUm/CZD8oKCZOb/YJWvHM4sEuPxpp5MkstvNtQXeZQIc
bnn8h0uHud7M9kato3xsdt1NQPG55Dn72H8zEYSeCt19jqxNTZY5wEMEYk6I
YBiygLv+DzofEQq66J+uI1c4xzMuChPBUqD+53FkITt1C0spIjx97r//L8o3
7SduYqsMERyLxhvIyJVn7oc1yxFBuc/0PBbZ07yvQE+JCO0ico+ykfU6gk+t
KBPhlWbcrmTkbaf2kL4fIMLVc2tFkchVxwOFVQ4RgfvVT8IF5MR6qRyaJhEG
y/WDTiJfOdZy/IM2ET7hvvIdZr6v2mfMWZcIgWtiH2WQhXXFAyX1iZDcNRvv
gEwvr+UfMCCC3JeUoSjkmiNXsxKOo/k9NNxdgHxN48fQZlM0Pv3kfC40vxpM
39dSMyKM+a+pHETefmMu9LIlEX5lXvxyAbn6o/yeRlsiiPIqZxYgbxON8wtz
IYLbUM3r8yjeP5bdty7dRPcOX/qDPJTPrdV8uuS3RNj99J6dE+qXLucVBZ6/
R/G7pdv4CPn7kiHpWCYRlp3XD35Ddla9/Tj9CxF6DobxcaP+++0dqc+hmAiR
g5GNBcjn75d6YduJQJWNUd9kgIN86d5jYV1EOMN7+t0B5E2V08IHsESoWuTh
d0B2sOemjfYSYR++89595LwFmR9P+lF8WmPpucgcCbqxOkNEYP9mcW4I2X7/
uYt0HBF8UgWa2NF+kNvmp5EyRoSRKKz6fmT2y0+5TAhEeBHP5S+C9o9z7FnD
i+ie5cU7rXYYOSe9LucjlQgnHvfM2SLbDS5ZszPQ/MLSvF4gfznp+rZqEdWL
j/pVYbQfaSjv1oNlVC8mtpwHkav48LjqVRQ/qcAMC2RMr6NoLQsJXnaXD0cj
/3G0j63fQoLe/QamrGi/C9YXUzbiJUEGp/vELmRO2YHWBn4S+I5FRR5FFqfZ
bGoSJgFfbOuPQGQ9P8t7LbtIcHLaUnkGudmGX+LkbhKINfq1bD2BA0vNrpJW
WRJQUxPdFZFd10x/tymQ4P7pwVR35KmxLfGm+0hgLbdyJAI5oLZ1f4cKCXav
SfalI6+/f9RxWpUEc726vpXIDx+cuNp5kATVX5x5ccgCVzi5zQ+RQGG+MpyE
9vNXpo0fuzRJsJVHx74QWXb/fUMLbRLMyJeqhiN/FTAkdB8loRv6IW5L5EO/
WUMtgQRF9oXju5Cr+mp2YI+RINn/QMk0ej/mld65HmMSOH5S9IhBtg/+t3Dm
JAn0azN1HZCJzhXPe01JIIuT3c6c3x857e6fliSY5NvVwDxPiOcdMh5wIMHN
W0IybMgZ8X9Ido4kOBf3bBmD4q8c8C180JkEOtk82HRkPS21yiF3ErCOcYbp
IrvWK2uMeJHg6fHV0SCU76mPU9gLviTwcQ76fgI54FG296g/it/thSfM+nlo
pvBlLIgE4jmzOkXM84fqhInzXRKsNV3fFon8SiiTOh5MgnH8JN0KWXbB/b5L
GAnqVjzqpJG/DsjKECJI8FGYnDKL6vdQObH6YhQJzFcCCHeOofikvnMkPiQB
fTrnszjyiVCXVddoEkQRqL6lzPPNRakU0hOUvz4pbTtke6Oxw+7PSFDRco5t
Ea1H4p60n+R4NP+K+LZE5IUpCQFqEgmevWc/34PON4lpE82pKWj8wZemPZHV
LYpCrVNJ8OFsc+gGOt/4FprN1rwjQfnmmA/KyNNBYV2vv6L68haaeYD6BWUT
9YlVHQl0j+4O10H79f2SQiPuRhK0bI/c1oP2V9kroWtVzShes+SPnsh1EqeL
braRYKzF+MgGul9e7BC7rtxJgisZWW0vkFlCKLKkbhL8ubvFURk5/UAhLqWH
BKG212frDqF8EUKeW/aRYMuBrnB75NEEU1OuQRJsCN4jOqvh4J6RGHvVMAnu
fuCy9UaWXCSXB4ySYOnw8+YQZHv7ECUikQSz57O/piH3SRVsrpxG4/k4eAuH
HIANrvWfI4HDEfdJOvK2yFO3lX6ToL9t9vwKshWVREv+S4LOWc5j4gfR+fir
SIsfOxkqtQ5ttUO+7kQKVeQkg1ZHTbAH8laBfE08Nxm+O52eu4l80v/kJzM+
MnyNdOtLRG7UuvdAQZwMqZ3x6T3I7lMmeuOSZBBz2SlERGZP2774YhcZns9n
3f+FnGFOzDm9mwz8URpLLOg+fowl7xK7HBliRGuuCCDjC+7uLN9DBq5s0xEp
5FA3kz4fRTJwSk3LR6C/37V9+9O9ymTgC/LeeRI9r2wiGI3tJ4Mo9pewgAY6
nwTlriWqkUFaKYBnAHlV8W6RqQYZFCIX2d+geGs9FZYr00LzO7Q6vw/l87v1
CfZEIzKcT+HAnkD7ySPT0qgdJ8hwdvPrJ6yoPi4YKnJ/PEkGy9tqJj+Q2dS3
8habk+G4vVP1flRP5kLdIoPnyLBfvDRnO6pfGuas0o4bZGBLuRZNQuvxR0vz
1w/eZFjjZjNOQ+s5tubIARU/MiwFvWS1Q+v/Yunngu8BZPhF218pgPqJRr6E
hl4gGabONQa1IXNlxRQ33SYDteW8xn10PxlOXzticY8MTcnlNCt0f81NvvFj
IIQMI6/3z3Ighz8b03UJJ8N8esZCCbq/2jy0qKFFkoH7g8jaVWSF0BoD3wdk
2JkVzbYLucsr40REDBlO5vvx30f3VQlzD6sPL8jwrsZA0RLdT6ePD/QqvyRD
SUPxAXbkGl2Ts99fkaGzRelwMbpveqgonW9KJ8MyRshwB/I3nhl32mcyWBGI
F2jo/viAw3nC5ysZLlPOur1GdljrvrKcS4bgybYr5sgsjAKvLUVk+Pyr8FYR
uk+ebr8ZpFxFBha2yLgwdH+UqqeuFNWQQYRzKUkdeb7cLli3ngzKW66lUdH9
samwZaOxkQwGfOPvU5BTsrUizFvIcE7IOvs08vWMbI6BNjJ4iTTnb6D7pP4r
yYfOnWSQO1jEtdsTrY+EJ5tp3eh5VskCjzu6nz7+F+PTQ4bSXT9If51xUBbu
xbf8kwysL6qw5PPoPHl7PC58gAymW+uqMXY4OHil9kXCCBnGllpeZ6H5hJpE
pRdRycCO7bc+h/pVj5PnBdVJlM+JXOw5VD9yN03Fv06RoX/9gYU9qr+2d4LP
38+R4ZOypqnDAXR+Wk17kLBChtOPkg0uSKH4CoYb8v0jw+F075oLkmg8e91Z
ojfIIFV8Qs9RFJ23bZTuhHNQ4BdpScuJHwdZOcU3fPgo6Dx8Ts1lYxhW6lOU
GAIUCD+rmueyOgxmw/cmLm+jwJUb3CoXl4bh7ZzzB9J2Cpy5j8+++HsY5jkN
LzqLUeDo61IF19lhMNq5ZxdOggJ7CuMyXaeGIVl9M+7sTgrwtXrKuU0MA/0k
I7lHigL7+J5G/GDFwVGXbhtzGQo8PbdVLAy9P/ZWoWCbHAVmMx7nGE0PA+HJ
i67jeylgNs1luJk0DA/KzpvoKqP3RXB4JXQNA0aIpqN8mAKxX/7Vf/g4DDKK
7X8/HaHA3MJd+yuvh+Em5H6X1aGAhf7KjEr8MEhcDzggqU8B/r5F8ZJ7w+De
yCK75RQF4tZnvVuth+FvoPgWmiMF4q2IkjOsw3Aqdq3JzYUCv1+7FBQuDUHa
h/HIcVcK6otjxoHTQzBXXqd//hIF8lQdR3RIQ2CA/fiv/zIFhO7ifFmGhiBx
4lH5masUCGi052rsGoKJf9cCu65ToId/MPVxwxBoC1tonPKmgKrD2YPm5UPw
ROngr0ZfCgzWWXff6xiCMf3tuccCKPD9YJB/x48hULP7e7XyFgWiM1JFd3wZ
gv7IKnLRXRT/CIrzj8dDsHv01OD7KAqkHAucWzYegug6nTzbRxQg3cNvjGoM
wfwn5QdcMRRQLz3JXyczBHV+fBrX4ijofLZjf/T6ILhz9zw7+JoCnDtqr0kU
D0KWuv2J2nwKXFvcMqEtPwgC4qd2+X+jwA+1gMVd2wbh9rr2glwxBThujG5i
Zx2EU6073j/6QYE3pDy59pEBKMzlvaNdRYGZXeIaeW0DIJG4bsmooYCeQ4Th
89IBiLg9u/dNPcqPZeiK/bcBmHLCr1s0UcCWLEqTeD0ANkbYPtZWCurT+X24
iAGoUKz7+q0djYfnZH3q1QF48ue9gyiWAo817rzZpT0A+6MvF4/hULzuj9jI
DPVDkve5p3FjFGgQu2lAqumHDZuT7gYECrR95VX9kNUPGKl96MRCAfxPva17
gvrB9/vMjRu/KCAs/65WUbQfivA35dc4qeDfeGm/mm0faGveTxQ/SIW3ajOP
ll/1Qr+r+OE0DSqIHBy4txzZC/6xuQPSmlSIPFjjs3y9F75SBiUUjlLBQz3h
3LJeL+xKVHl32JgK+w4dVlgm9gDbr/4cawcqlBwJaf6r1ANvdly3GLhABRWt
yz/+busBHRPWXw7OVHilZZn3dw0Lg/5JCWMXqcClrfX+LwULAen7NFzdqRCs
LZP8twsLAu01fRQPKhTGuhR3y2EhZ9E28MoVKry5TTR9uwsLp2SmxKavUSHa
3Z3gI4YFqllYuY8XFW5bUG8dE8KifGy/8MeHCpe1PXmEeLAg9TH7X6A/Fazl
6e+Im7Bwbu2nfmgQFfavTndELmOgPVux+WkEFQiZCzJNeAx49ld5CkZRoTM+
sDRpGAMcbDZbXjykQsW9ZbPLPzGgZx9ilvqEColn/gVxt2Agn6u3NzuJCqfW
ObpP5WHgtLrnzf0pVDgy+cBd8jMGJp3+iRS+poLcT+6VqQwMyBTvdSh7S4WN
zzzyT5MwkOh+D9+cTYXvtsJ3u4MxoBonGGGaQ4X3+kkCbwMx0PkjU7Y7jwrP
9oll+vhi4OqETuOZQircFXmlc+waBji3YT36i6hwlXUHVvASBjL0PLgdSqhg
z0jzIDphAK6ufh4to8I3sbVnhtYYGHkRZ3qxggpL5nHxkjYYCKqVnyZXUUEn
Su75b2Th6fJYz1oqhP4oTWy3xUCBmKUqo54KDb9OJ70/iwG69x3/3y1UOO10
M8X6HAYu7OpeZu2lgqNmU/q38xjgE/f7/qOPCmlz4a1pFzBQu227781BKox9
1v390BEDezafp9FGqeC847vxBWcMzP6m9nfTqHCR9cM0hxsa/8zjhMdTVMgo
dxadRbaZVDY3nKEC0V/y2JA7BkrH/BqLf1PBjZqQmOOBgYjW9W9p66g+28N1
zl7FgEbDO2871gnIvK97SR/FZ6LKaJ8gxwRM6C7HKl3HwKuyCWob5wQoLBWV
Ct9A+SqKzri/eQI8832I68jruSpOejwTwBkpT3NDv8//jBH/yzcBqsfEhjZ7
Y8D1g39fgeAEnN/Y0paH8rE9XST+mvAEPKj8V24bgIGWlLLT8qITUHh37svq
LQzcSbzAPS4+AaNapNR3tzEw9jgj9IzUBBwsbgmZDsFAVsB+Ly2lCRjLfW4Q
9RgDDt5Yxd/KE8B944H6vicY4L0aQPl6YAI09t2Ww8ZiwM+5/IL0oQmI/uTE
uTMRAzqnjE259Cfg0FvFtqI3GOiSclLos52AJ/HVVuRvGFhoe0r0CZ+ABvJo
7idU3yNb+zzXIiegTcrWa5aIgbrTO2YfPpiAbocOFU0KBuK6slffxEzACKb8
a9MkBpR6moU7X0zA74rkbMo8BgS28b8+93IClpf4rqosYGDJ+uxu8qsJ2Dj4
QPHmEgYa+sgqq+kTsPVzQBbHGgayRZSLHmRMgAB56vLpdQzE2/lrC32cAFEp
t72JLFgIellek/ZpAnY6DFNxbFhwGmI9oZg9ATIvrDJl0Xo1kjjZWfQV5QvT
cukaFxb2nY+z1s+bgPxsp0IutN6FUgeG2gsmYNMTlopJ5L8ju1zsiibA4UZG
Y/s2LIzt9KASiycgz9yoO0cYC41OOde9ytDvVamDz7ZjIQGvczuqCr1vXpFh
LYrGsztyQ6AWPf/ZvnAI9Rdn17ao1Hr0vu83NkTFsaBMPpfwrQU9DyoQGpHA
QtPEzS+EHvT83xEtd9SfvipUqt3oQ98bGzYwlsLC8yscpX8H0O9r7p1WkMaC
y1RCA/8o+l5EjTNjNxZWZvJGdSfQc26TBwHyWMAfWHJrnUTvm5x8dnYPFpp9
9Og2DPT7tpiUI3uxkDjfsXjtF3r+tPvrmgIW7qoLBy/9Rs+9fIvHFLHgGnCe
PXIRvc9yW02NEhZMvmc85ltG9ar2vTVjHxYOLE7yv1pFvxey672vjAURTbUk
+XVU73/+jnioYGEtMGhHAQsNZppwsn/VsUAqrc44yk6D+uS57xeR25Y5FVs2
0SDFc5NJ+0Es5Gub51lz08BbS2JYAzn57otD41tocHzLgetv1LDg/k/WYJGf
Br++nIvzVUX9W+9aS7gQDZrv3ZDBHcCCWmihOe92GqSaRRQZIa+zHDsvJ0ED
k9kvg6L7sfCSwyngjBwN0g9uSFeh8a+7iR7C7qHByeGVj0rI7vWYBQtFGsyH
Lyolo/mqRhgGmu1H38dOa/igeLRsKNwxOUKDKe8RExkUv/3ORO1mbRokig52
xqL4Jla9Xj2uSwO96t4zqyj+LsF8wYYGNIjna7/wE+0/TSPNunVGNNAubiLo
IysfDV/XP0EDsmOdR44sFpZWfofqnaaBZk6ZzwMZLFxwyNGvNKcB3ub7wjzK
b12ZB+tRKxpEr+XfcUZWEJeuK7emwahaw5W/qF5ig4YitM7SwEx62xRhJxb2
LFZFabjQgG/YfO4hqrezvx7HKAXQIM6saaVXAAsVloanP9+iAevR7fcq+bEg
k7/Go3CbBr5K7v8y+bAw4+UdKx9CAysuNpY7aP+LYtjESz+iwbZa3U3S3Fig
m/KdSY+mQWTekweb0Xqy/NIstOspDf6k4bh+o/W246p2omQCDX7eub2liR3t
p62/bV4l0sDoSktMHlqfNIWc7eLJNPhuJ8qbwoqFogmpZJFUGrzQ+M5/fQMD
EieG7F68ocEmWY54W7TewzITxITf0eCWoLUQ/MMAddPpoYT3NKBuvHuugPrD
6UubXglm0uCJL49cNuofhQ1VDnFZNChwOhEhjywmFyTJ/4UGfaYR+LeLGCAT
6ak8+TSQ2vM3NRn1n1MGHxxjCtH4tqmvCiHnv3PcteU7Da6weNnH/sHAPRdM
Olc5DQqHSdujfmNg29j3DLYGGhg/6471+4WBWJ7g4JImGvTuUS0gzmFgi47R
ueutNLhYFdd7BpntZQ9vfxcN7k1bianPYmDeajbo8xANvpn+fPebgQGvsGJr
pxEaHCNpNLgh03OD928bp0HXnRfU3ikMELbykO+RaUD/fHZfER3tl9q9VWoT
NAg8VmImhzzo+SqFOoniNSTqk4j6LaZRwcJylgbS3ENFATQUnz+zipvmaZCb
rjVAnkD7i0wJR/kfGhzVfLVsg2xkFTLutUSDmK+7Z8XJGKgOPV4uu0KDR7kL
c9bI2rk8LwbXaBCV3zr/FLl4pNf76QYNIgrT/jQj52q5yi9xTMK94uN/dVD/
V/JUZPnKNQlBpeIrN5Ezk+aGXbZMws3y6dU85LTfIXFt/JPgXfViQ5aKgSc5
r1fTJCbBrYnCyYPGwz3i2n9m5yS4tJRxGyPf36JUwCU9CY5tT7eEId+9XOrh
Kz8JZ7sO8f1Bvrq7D2ukOgmn+qO2j6D5Ui1Svy4fnIQTg/aiIigeriFuD3MP
TYLRsIq4JbI97tdRMZ1J0B3r29GA/HNzmWin7iRo4z/vWke2PBI2H64/CZrE
YOkjKL4dHic6DxtOggbZSsYP2eQFX9bU8UlQo8rLfUVuqO+LeGsyCbG3hS6V
I+vPpzramk6CFvmX2lmUvwpp9yNbzCeBYo5d/4WsabFvW7XlJMSV5bc/Rfku
DJ6f9reeBB25uJeK0xjY/7WsReHsJFBjvS81TjPPOyYhCefReN33b6zNYGBT
cLiNlu8kvCxT9MCheiz6xViu9p+ExCMs3ddRvbp7nEs3vjUJ8SX9muvIDRYH
6NZ3JyHme+Tm3aj+AxpePRsOnoSHGg5+hchyWpyHLoZNwv1vqjhDtF7uy4yG
ekVNQkjB6FePv+g8lGwiv/BwEu6qFm3/i0zeWtR2N3oSAvOiQx6j829imJQP
29NJCNh/cUJiBdXTQvT2x88mwTdH0/Ir8p8ri+X8CZPgpcxXpruKgQ9jF12S
Eifh6hfy7m5kG+vOTTuTJ+Gy0o9oF7SeOVqOfHmfMgnqLus3q9H6Lzr6wVIp
dRKcpAdf7UT9wb2AfzH/zSQ8whdU30VueEXVr3o/CSMulzYfQeeByBuJ/YM5
aD4XO1LzUX9h2zbHylc3CX2ur+rfcWCh8OH5T4kNk8AiG0DbQHZdazot2TwJ
SiQzXifUv+ooackKHWj+bqx2Epyof5Waqhj2T8Jed096Aup3B1VKeloHJ8FK
zoD/FzLxnUyQJQ7FhyypYYH6o0HMcp0jfhK63buDt27GAqvTp3NBdLQeLh0W
vL8F7Xc9QuvrjEngFuAeK96K9osTIe+jZlE9SaeHNyILVEya8MxPgr3qYfmf
yDWqtjMJfyYhQr+zhYjs87HmufjSJGRbul//hSwtoaz1dnkSel1W+VlQvw5j
Z7+fsz4JcuGKdjuRVYO8FDVY6WAWX7OyDxnPGOoqZ6fDrXd2b7SR9fvzxVu4
6dBcG0WxQ2b57JRHFKLDFTaifwJyE2PAK307Hew3c1hlID9Rtdp/QYwOJgJ7
9hcii5Ya5vTtpMOeXVdpWOSR1YrrCdJ0EJF/0khAzoDDyhaydNiknJvxC3l/
s8KXFgU6kLXmLwjyYuHPloyrUfvo0KsvrL0budxcUslgPx3qThwWVUMOS0ic
XFelQ6H5uT/6yMf7eT//UKfDO9s7WEvkLRIPPYMO0yHuQmquCzLGkUXhkBYd
wtyqYnyQk97dnvilQwfvq3jPMOQLlPnMXD06tL72HixA5zcZxese147RYZU1
0JQHmXadIq9gRAcVz5AqD3Te8/8z8OHdSTrEazz9IInOg9HslRmJNigendk+
UWg/Ldv98M2dq3SYXKdw26N8hFxicdK8QQfJS9N3v6F8G32+vfOPN4p/+58Z
XmSM6vXUGzfpkJ/M3leH6iUpgHJeKYgOxH9bTHYiXyh1kpy4Qwdhd6Efgai+
0E78yiWMDkGqu98po3rMjWyz3xlJh+wkBeGHqF4Dmg3Fh6PoMLJ24CEB1bP2
1srBpEd04HPTXNFB3jA//NI6hg76rXo3ktB+3JCQZycQSwe/A8b4ObQfR/cr
iHbG0aGcTSbYF83fUiKj//FzOuiZKJsw0PxEnCSTjJNQPp4e3naZmd93ibbs
KXQ40as/RkDjy6Dwbq95TYd2MdPPF9D7VW6wJGq9o0Pfe2c4w+wH9yjxyl/p
MFH26Jou6s9+r/KeCtXRgYc6XL+tAQMla68e1jXQ4WXbwcz31RhYc3oQ7tdM
B7m86EfqPzDwUNbxZk8HHbSDtM2sC1E/jjLxjuimQ9OFhAOkHAwI0dSvHOyh
g9UxuqA/ui+nft3imDCA6nfLq/6Et2j/5Fs8azBMh4WZX6Uyqaif+hIs50fo
EN578nVhMgau9XacyhinA2/pu2CD52j/P1RqdIZIBy4nTgU68kLyez02Ch3K
ouqP14ej/XAl9kjhBB2u5YS5paL7XGPVJWWhaVRPaytvzE3R/r/bak/dLB3u
ypVW7NVC+0nkUWm/eTrsPX1zmGUvBoZPbBPuWaJDzOvZ7d/YMDCDqVmNZ5tC
97gW8QMB3SBGkmwXFJuC/NlXCzVWXeB4nKuxVmIKtsN2NX+VLsj4NF/lu3MK
bsc+uy6/uQuUr7cWYmWmwEDlPulxTSf4dhV9DZefgsx767uOpnZCserbTDWF
KdjaEeQwE9gJxxZuvYpXmYKmqzewZw50wgM718RjqlOgVD7Bs2lrJ3SUmcX+
OjgF4ZtdTUqoHSC4Q+vRu0NT8FyD8Jmx2gpnQ+QirI5MQUJ6CYffj1Z4jee/
x6ozBXFbYp2X7rQC3mD1ZoHuFDy76V5+T7sVrnL1XBE0nIInpoI+D8taIO9K
pVvt8SmILp5o47ndAn/asxx9Tabg8e4q+YQjLRAaF2qFNZsCr6WruNSSZkgU
V9GKPzcFlu8bjAu/N0Hlvkfcgl5ToLIauHO0oAEO/xTtTPCZgsQTGXtKbjZA
/r1P8cL+U0B+3nEgXqsBMjqbJMSCpqBQebfB8dp6eOS9SUUqYgqknNo8cjB1
wCr24tfb+1PwMPuP98PEOrhTI1cs83AK+vn5XWLqa+CPZ9GdD4+nQOuUR7ld
VQ3cEDSCPU+m4M39SmG5shqglvWyZ8VOAUe1sPfctxpwcXVrUYyfgsvL11or
cmvgzLcIK5WkKVDzkgix/VAD7eeFRPJeTkFSlu/g7vQaMOLIGFZ9PQVrxJaD
Myk1oGlb66bxdgoa7AInHjyrgR1LGzd1sqfA7thPy9I7NTChHfzqZNUU3BGO
lZW0Qt8j8Ti310zBuDkleMK0BoZjUmXN6lE9PD46+M24BjpGfny1bJkC3nX6
k9NHa8A4ytS3p20KfI4YTIhp1kC1Cu6QTecU9PmlHKOo1cCR/qsrfd1ToJ0z
97pAuQYKQ1aq7HqmIG3ixGLw3hrYtzc6cujnFLDLpFuekqmBD93iJucHpkD1
i8j1qc01sCvoM8/o0BRgny+f80ZOltbCOo1Mgf+9keO/uWtAoLXlBX5sCoQv
VR8MRI72PefgSpiC72YZUqtcNXCvLpB0iToFf3d5LrMhL1zlypqgTcErLlPq
A84a8NqWfP3K1BTozKn0bkG+6F68cH1uCkJqf38V2oTmx7nAFbCC8uEe6iLD
XgOCp/yUI/gYsOuMyrPI9Wp4W8u/VVuQAdrX04Jv/asGVa2cyV/bGHD2Ae/1
K2vVYK5Ay7wozoDY8mkTi5VqGE2PihLfwYDsn46aBsvVcF1U1h27iwFNM53y
h/5Ww2psjcHj3QwgcusJKyxVQzSn0+5jcgxYl8llk1ysBvGQ1Y2/exggobvr
F+9CNWQtvBzLV0R/f/Jh71X0vSM3Dld6KjNAoSHy9mvkZnLva+kDDIjWC5Pq
QD57wffOoBoDGKX3GteQqb189nEaDDBXv31NBY2fo/6kCIs2A4QU/EpikZ9r
T/wpOcqAgAwvx2pkmcL7vd7AgP4d19jnkPXfVceNGzHglaC7hRWKR3Dooa3V
FgyQWbWd2LZRDTxLPZO3zjDg/s0zT42QU718WvbbMoA6a65+E7nc8UvUGwcU
D/KJ0H7kRZ3dLCGXGCA+kRpzmqUGor5VjR3yZMApuddj7sjC+y5UTl9lwN2L
KWrByB8yll9/vMGAr2+S779AVpdIvuPow4BR3IuBHOS6eA377f4M4BNPVGpC
PrO5R7PzJgPgbELwGDIhzFskKogBPs/jMIvIPn95Fo7eZcCkz+nv15A3vLN7
/wQz4DfXoyMeyLETJwq/hjHg35v6Hy7IX/sjvHc8QPHq1K6zRZ4s+ju5GseA
o4qK3YAcpJzU8u05A4xr3M9oI3N/UP90LYkBVnZv+zSQ9zz3cse9ZoBHlOiI
IrKrL3msPJMBzwibJrch/6KFV/p9RvENOnadDznMRSpV6SsDPvAHz3Ijp1s4
2L8qYIDfXdrUKorfiAqm93YFAxrVGzdhkNOnBIPZqxnQUdPR1Ijs+tl6z9Na
BvSY/Xz4A3nP5RfdIg0MGBrGmRQgT8oNBL1tYgD+MmnzJ+SvRDEZpVaUrz/0
tlRkn7cO7d/aGTAdPh+TgKzulBqg28WAqFFzy3Zm/iTHdjZjGMDBOTDWyczv
kFSzZS/K/37nG8zxBCdf9BnuYwC73cRqDzLHNkrd9DAD2LKWxAaRBbcwLgtT
GMBySsyaiPyzWUXwzQQDwvzeEsjIL6O8y/fSGbDxSsFnAnkX628enVm0PqaO
PGUgK/9dLri4zIC1p/bNi8iz33XOT60y0H2SYLuMXOgfzHFznQGrY1fIzHhp
zbLYPWKfhn+ilWEsKJ7GVK61XN5pWPPsTNuEvPnDyY9HBKbhaLAghRO542KM
eZ3QNNyLt1Vmxj9OqnPJdPs0/PiY4r8Z2XqU712f6DSslo2Wb0EWeW15ylli
GnS6drPxIA+fS/hN2zENd4mXTvIip4n8TPWTmob7uV38zPe7/NxuvLZ7GhKD
rjQwvy+XYDcbJTcNHw04bjM9YZHykn/vNBTzpKsw7dW+Y0pGeRoG3/5M4kC+
Wycbd/LwNEi2whV2ZL2wS1q9R6ZB+fnwTqbZ9D4RL+hMgy46BrEhPypTOuSj
Pw1Ov7J1mE7KVxtOOjUNGeIifKzI9l7+kdJm0/CNlF/HjM8O5e/K2RbTUJ9j
Gsj0+09HQittpqEtkq12A8Uz/w3IkZ2mwern4KV/yL/v/Oa6eHEapEw39awh
H7b7NDXqNg3TtWp6TAepn+928EDxO+KUzczHD37+bwOe0/A4L1qE6fWpuiSb
a9Ngt6ckYgVZv+XWHeyNaZBPI80w8xn5QcnJ3Gca/mwTOM90U9jYsXa/aciL
HLBhfp/bMUHe5OY0FKau32LaVMt4c2PgNBR9l09hGvMrB1N1bxrKJvxHmca5
BjsXPpiGBlMBj3VmfYGa4YHH09DkrvmIaRdJyp6vMdPQGuz0vw7uNqTpKIoD
sLqmlnO5DFHLrBXpyqAkyyB3RJS2WGamFdPUyjQqi0wxRrZVKyoyC0LTlGyi
H8ZqI0uXY/lWLMtp5QuGr8gcbXGv08BsQ+1/9vHhcOCe3zmfrxpt7ZfQhscE
erUainYkri+tqmb2ESguwTy8IwzVitcE5kl8IuYlZl2+sagjcE2Wlo5+OME/
LWsi8M/7XB6a9+yBoEjP3E94+T10WpHQf7aVQKlGVYWuSJlzFBgJLMU2q9E/
oxoH7G0E5J+6De79rJTq8zsJeKaO9aCzp/1rLB8JGIXbJWhVR4f8lInAJFss
Qltqi8+MdxNgmfPc74uQCQ5k9BDY+lQZjz5/bGzbcC8BcYZqP1oT/YSb/p1A
Ab89Fh39e2EweYi5D51rJ7rYpHn/dZjAUEnIDrS+PqdWNMLMJ9wrQMdlfs5N
mCQA5sJNaJG58k+MnUCPzcZDn9Tu4YUtMfkm6aYxv2bpAvebB4Uye8IYmuvd
yrnNopBaPjiAbs+M87X5UhgZdnahg32X2TV+FF6UlhnQV5raWYe5FHL5G5vQ
X7JueXrxKESa3qjR/FWJy28DKZALSSq07B17MT+IQtcHOoruzzE5Q0Mo+K2e
GEdHce4vmNdROJrdN4lWthycV2ygUKNtm0LHcHtnrZspRKXUWdHW3CNEIqBg
dCjsaNGaE5bg3RTGdyXModVtWSMWIYXlQpYTzSk4+0MnphAgnfLAPC6FXuy+
nkahztm5Av23726DRk4hmYR4oRV3Xt4cVVPY4hO6iP1BLdmPil0Ujgcccve/
+hX2nCuZgas65rk4r3KtyKdxBpT1bHe9MtzP/c/SvkiXu/4fFVTYEQ==
       "]]},
     Annotation[#, "Charting`Private`Tag$9164#2"]& ]}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0.12483298432038162`},
  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,
  ImageSize->{1033.3333333333328`, Automatic},
  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]]}& )}},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.7162994128249445`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"200", " ", "with", " ", "weights", " ", "0.001"}]}]], "Input",
 CellChangeTimes->{{3.697111298934021*^9, 3.6971113063705792`*^9}}],

Cell[BoxData[
 RowBox[{"0.2`", " ", "weights", " ", "with"}]], "Output",
 CellChangeTimes->{3.6971112533669505`*^9, 3.7015102461679173`*^9, 
  3.7015129771286116`*^9, 3.7015144076326575`*^9, 3.701517333394655*^9, 
  3.701518594747546*^9, 3.7015187580165977`*^9, 3.7015192167313185`*^9, 
  3.7015202488123484`*^9, 3.7015207103534417`*^9, 3.7015227234479375`*^9, 
  3.7015241371941643`*^9, 3.701524401267914*^9, 3.701524576855007*^9, 
  3.7015250272806196`*^9, 3.7162993664702234`*^9, 3.7162994128590393`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"200", " ", "with", " ", "weights", " ", "0.01"}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{
  3.697111251310803*^9, {3.697111283945054*^9, 3.6971112944377165`*^9}}],

Cell[BoxData[
 RowBox[{"2.`", " ", "weights", " ", "with"}]], "Output",
 CellChangeTimes->{
  3.694865371134861*^9, {3.6949405981212845`*^9, 3.694940627651271*^9}, 
   3.694940708717867*^9, 3.6949408357001104`*^9, 3.6959670354620857`*^9, {
   3.695967225601967*^9, 3.695967255328644*^9}, 3.69596824485569*^9, 
   3.6963139731634808`*^9, 3.6963141460357437`*^9, 3.6963142628136654`*^9, 
   3.696572665370945*^9, 3.696637894800008*^9, 3.6966379885118904`*^9, 
   3.6966388925379524`*^9, 3.6966676299487033`*^9, 3.6966677391863155`*^9, 
   3.6966680846137824`*^9, {3.6971109447587204`*^9, 3.6971109521632223`*^9}, 
   3.697111121449955*^9, 3.7015102461909184`*^9, 3.7015129771481147`*^9, 
   3.701514407649659*^9, 3.7015173334126616`*^9, 3.701518594763547*^9, 
   3.7015187580316043`*^9, 3.7015192167473197`*^9, 3.701520248828349*^9, 
   3.7015207103709517`*^9, 3.7015227234639416`*^9, 3.701524137247167*^9, 
   3.701524401284924*^9, 3.701524576872009*^9, 3.7015250272966204`*^9, 
   3.7162993664822164`*^9, 3.716299412871041*^9}]
}, Open  ]],

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

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

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Rho]u", "[", 
      RowBox[{"x", ",", "0.2"}], "]"}], ",", 
     RowBox[{"numsol", "[", 
      RowBox[{"2", ",", "x", ",", "nsteps"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "1"}], "}"}], ",", 
   RowBox[{"Exclusions", "\[Rule]", "None"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6858574887150583`*^9, 3.6858575088800745`*^9}, {
  3.6947618749828544`*^9, 3.6947618763438215`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, {}, 
    TagBox[
     {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwU2Hc8lV8YAHAjUiQhRdoIiUJW7n3syohElFlkVDITZROSlSRJRvYe2bn3
2tu1ude61135ZaRphH6vv3y+n/fc8z7nnOec9zxO3nU1vsfCxMR0nZ2Jaeev
7r35oab/TNFhIrbs6g/0MLs0hdxIgvLQcizmxW216xi59OTUT4JaoHH2axx/
rwlGr3+i8oOgCehoZadGki0wZvarmARBexC5xGVRx3YPMyMToRkj6AUJCmoq
RsnumMT0w02iFo/hk+/E5+2nHhjd/YWq2FRvGGl8hCqx8sTULPdd/HbcF/g0
P6jtPf0YE1vCK35dLABeG27otJX4YLSPZmf/5xgIVQmvujzifTEBHSk8zSZB
MDomrnvS8ylGXkEq5lZSMPBbmhkEKPlh9i979YoqhoB8+jJe6og/5msOZs+P
iRAwoTw3mtryx7RbsV/B+oSCl+jR4RfkAEzGQcPwKMEwSHSquqHUGoh51v+2
7WZDGOhKtWS1awdhbj4ns5y2eA6LLekNkqH+mAsoCfVvf5+DzrnP53qePsVw
/XYP/JwaDhlvxzOcPZ5gvhQ3YCJQEbDG/INvz30vTIs96+aN2QgwfrgvIv+O
O8ZnNNFn8fgLYAuJnMRnOmCuv568f00sFh4Tmn4q05xRUnqnC4Q6Y6GVNWrf
31+uKA7Wh18YjnEQ87aAb5bFE2VTv12BM4mH6RaPc+l8vqiDEvHS5kmvoDE6
pDw+JQQVzPHpzAvBRDCn8tN4G2NRkpdfRVa6JYI221v+x+fjUcPPXf+b6kyE
6LTW83tV3qOetRnosh1/A4StzSjmOykoEVapImnvN3DaSoG+FvEO1ae+l8u8
/w24N7rCSmky6nHQ/MNgkSRoPFLw7svYW1THVrb06HAS3Jw8cm38dBLKVTU0
bkviLWQqm+b3675BHX52Z0Us+C0sJseytLsnopzXjlb6yiRDuBlz7SdcAorr
Z9LF49HvwKWgH07VxqKqLzxOukJ9B7uc1H7xsMWgrN1urLqrpECK2Kf8f8Yv
UWVL++vb5lMAn5V8YGY5AmUutSy4DO/B/i5nR69qOIrpQd/TQ2/fA9PJgKcN
UWEo4/lI1fvaqSCdZkd9KxaM+ivm+OF1aiq8rC+W2fdfACr7nvZ2489UqFNI
SP4a9gyln33ahqH7AVY+PWHuOuGD+k1hbtr/8QMcu2B1P6fRC5V2knxCef0D
6JdqjISYu6N0bLHBd43SgMPMyKdp/gHqW1oq5WVeGthfP6L77MQ9VPLMU83q
7TSAiDc6Qly5GHXhW9mzpukgmb6nwJspH/P1tiIbR0k6CNT6c478KsAcW/S1
KzmXAcuMe4MvZ0owrs4KokzTGXD19JGSgIlKTFtkzlji7kzQkDGdLR76hDmc
zx8uIZcJFy/F7Z/qrcI0MX4wjKMyQfgGq4diUw2G174sP0fpI/wMWVBYyW/A
OIQeu6Vi/xEYsaJOx7I+Yz5/jNkzEPcRSCk27/Q/NGLs5x7cX2N8hN7Kkb/5
r7CYOqYpoRjeLMBi952beInDcJ3Q7T2JzoJb9NNlLJpNmGprcSm9N1lw7bsV
+TyqGbM34O00qSkL9FY31i43NGOsP7DHeC1mgdbW2wM2ii2YysbHqD2HswHN
elHSu6oFwz5NW/qgmQ1Ke4Y1Yi60Ym7/vZEm65oNF/a7WmSXtmLKhFqvdaZk
gxtJLT1SpRyzS0X2n0VHNsS7HiobaM/GmN/KLFv5ng086rdB+FwC5tuUyd6P
QjkQZDHr9v6MCyrcmuPeDc0cYCK8OsL65B3qk52rUE1iDpzwS//QpVOB4n6E
ev5MMRe02qJEH0a3onJWVkhStrkw+lz5SKlOB0rVM1tlNjIXHC7P86wwdaPu
+3CuqE3mQkSP9qbnYzyqPYR4m90/D6ycgv5DlY2iLNliqmtz8kCs24xmzTWO
+hGhxuOMzwOGhAwp0HkCdSImr733eD54L8yMNp+eRNXutzjhfyUfQL96gBI0
hbqWwP1M2j0fOEqie1hnp1F+bx+ff9WSD8mPLjVpJ5NQfEISLzUW8qHc8YXV
p6dkVGHqNP0nXwHwH/49qSkxh1I7Hq+Wo1oAXl225qMTc6iJTM33N+8VAMGn
b8w+nIJ6JLL6e3dsAaAklG78lqeiduUVGtXXFIDzt2FXPX0a6r2EddF9UgHU
7LG8vC+bgpItPsAuzFEIrCL0YwN/yahu6Xbb/vOFkOY3vXgybxZlW+HzOeBW
IchXLL/PuTmFiqkhuc0VFoKfEN9GcfUoar6pZCrXoAiGP7kSl/EYVKDmHQVz
7yKQD697sxVdjhLo4H+1J70Iytv2xt81j0Jp9j7TebhSBEYsLhfHlWoxaWNX
Ky68LgbhR7xDYjwjmIvmW5zUz8UQpsx0Kst2HNM3We6QSCuGhV3LHscriJh1
0iHh1YslMNxvv5dLgoyJv9vrnW9dAuGfpmR1h+YwYvSAoVsRJSDzztgi0peK
MflKD28klMBbe7XiXT0MzMLDd3MuzKWgq1s7quExjwn5pq96XLIUtmWkt4KE
vmIEPZjeDhqXQuXBHFFcywKm/Nen78HPSsHh75FrW/eXMJefOOrLZZeC4FyC
9yW+b5jZdaE8Wl8p2JYPENKrtjBefnjmpN+lgD83sloSsoXh/BdseflYGVwq
GhdoNNrCJDubWUvplIFBCm5X+/EtjMiolO2BR2Vg+yL/R//yJgZdMGE3hSmD
UMeneFL0Jqa+IKm6Vrocuk8fC2ft/othsglWKNQoh0ne3V5cyX8xOvwPa1Nv
lsMS88qdg45/MSMB6vXBAeXAQ25GnWH7i1m6sdiohy+Hm6n3fuuqb2Dk90yg
0JRycHx5jXqDZwPzFNuMPf+nHJ4+VRyyJK1jdku8bTp4rAI+mO8peeS/jrk2
G6zOIVsBJZd/pDzRX8ckvn7YsqFdAU0KU5FBR9YxJ7fV20guFUDlL7FPqF/D
OH2S0h4OroBfrEnG7yPXMKVOhzra3lQA+88AtWyzNcyvoyyXawsqQJDiKF0i
toa5NLLYWYCpAMkhI+Ga36uYkMiJK6lDFaDSpLwX17aK6UK1dMfSK8Cg7NRa
5+tVDPfPYt3g9Qoov4rnlBH9gzLNf9vrua8S3ALkBm32bqJSrUL0HU5WQsot
fd2uVSY0hdel3/xiJYz/DCi2/cqKdvXXGEBZVYKHOM3t1cAe9AvjpeHdJcjz
KxN+63286MHdhBsbTZXAnrRSoq3DjxbAtIwujlaCCHUP6RXuIDrrTPL40Cby
e39VdcnKw2jMpsbke/1PsL8yk83i7TH0rspzFrG2nyAj0Or9DY4TaF3Hw9NB
Xp9AWuzrp/W2E+iJoaWZe6mf4KYnK10bfQp9LIJgbV7+CZYF47cWNk6h7VVb
Sbptn8C/SVggofY0+ntu8pzM4ifI3qdwefa8KFrJMvTuKaYqUK1qsQlbEkUH
HHhE5eevgt7bhj6ShWLotg5z+93iVXCbeTp+0OEMmtNPk75+qQp+5DkVeJ8W
RxtfkHZYNKyCqGu/m4XJ4uhkxuEvs3ZVIPQ7eLIlVQI9+57VaehJFeS/5/7p
dEsSLXp9eb71ZRVcp+h5xXKLoIUCL6s4ZlbBha8ik5U6J9E8JRkv99ZWwSz1
b2DpljB6g+OG9HVKFViz2h5Smz2AHmyq9ZxVqob8NesvHiHfMe3LPO3B16ph
3FJvOo/Mim0Qvi8gal8N5qgvWgJM+7E5PsL1D+KqwS1w/0vfdCHs0/PB22v0
arDIOC191lUc62o9aZj6txr8knW72BXPYu2jkY/jgRpIjXe/S9k+hzWcp2uG
q9ZAYJNNr37nBayWALyRMK6BeFXPZJWzclgVrWRGn2MNlNeF3xOPk8eKZOi+
4HtdA4PlJf9YzRSxgvisyZr8GpiTau773qCE5d7cPHsbWwM/8kffkY6pYHdJ
3vTfGqkBXtF5h/6QS9h1szJ8xn81cCrzr9xnhip2+TnHCa1/NSB7dD9zgS4a
S/t0x/0Lfy006KQQqe7aWOJcQ0uUZC04GWb6qZC0sPj9/PzSarUgYJ5//JW+
FrYV5XJvyLQW2mzLWr7Ua2LrHnTUeD2oBQ/nmnvoM5rYrE6fW5+TaqHzaVvR
ArMG1idwJu3KUi18V2l2jX4EWJcShZUFljow0B+oVr6Kxt6dilOPO1wHBVYz
fxmnUVgDRQ3amGYdmAStR6gTVbCnvuVK2KXUQU37hYw/mgrYQ0eZnrGX1wHv
BDCyjl3Ecund6itor4NH8wZS19flsKu5nK4rK3VwmPN+XVHpBeziqH3Ta/Z6
8BL22TZ/cR5LYcEeUBSuh3ALrhdcXdLYPmu3Kv/L9fAnQyuzWVYS2xLdzXbS
qh5et9qeE54/g61tOGXW5lEPegy/eu8Potji+Wf5jpH1wLLnnfaQ8WnsR4Gx
9b1p9VDZv3ShukEb/VZLWq/0Uz2onDxgvyR9FR3tEZF6vbseWrzkk0Sz9NFP
8MqQ/KsetmNQWz3t19Hc0tX0bo4G+ILv3Lp39wY6O+Z89F/hBmjcb7zN9M8E
PaR/hmit3QC+rxz+KSiZo8/28nuKJjXA78Q45qxCa3SLZLygWWEDfPvKxZx+
2hZtHsXZFIltgFucxsGL323Rz6+y7FtkNICS/nRwROxdNKnzW26l4mf4078S
gum8h/Y+88CApvcZ7i9fZOVMckBzRTB+HrT9DGPcz0LN7R3Ryjozar6Rn6HK
kC3sJ5MzejDH/Eth6mcQd9PdpT7gjHZgG42ZLv8MCfFxYbEf7qNft/VMAvEz
eAwJPpdQeYiWFNEJdl/6DIzv1mxPOFzQTaHNZ7KYG8GIN/t527gL+iZVFT96
sBEaZP9j4815hF7SqPNil2yEbCfsN2s1Z3TYR7kjSuhGCLMLmA2964AWYilr
djZuhHBrdH9+mB36cnMOd//TRhjM9zOlv7JAz544Wb0d24jUF5uyMuOmaK+g
VIvzWY2QkOjH4ytkhM6E1/mvexvBnPnHObloWfRfTJDGbWEMiOSHYnv1jLEJ
RzfnX57HgGMl61zwbnOsuP+TOIwWBu42hrIqtVphTVUfTZ9wwYDhvLqI8Qd7
bFmDhfcXDAZ0tjPkbfa6YXWEJoQFhzEwwaSO0fd1x077GrfqMjBwk3VOW2Xe
A7tH+SpPKTcW7DlOmh3seIzNSG6rIZ3Cwu+9zSSWi0+wCmtgdUARC1777jit
ZPlg7WoVCr1ssBDKm+nbG/wMuyFQaZTriQX+g+os9St+2Hjvc6sTEVhIODQX
lWsTgBUbz/+wJxULB4SC+RLxgVjMRRGtS+VYuB7Lg29KC8KavEn/+rANCwUH
49gMcyKwX38JvUojYIG+XKXvFBKBDTJJUhxcxMKJrsnXwTYR2ENVB2aZmXFg
kck0laIagbWM/mtCE8DBEKerYJdABPajPb23QwoH2t4zZr9XwrFSB+vrX5rj
4IJew6hhTjhWw9v2zcFyHLD/9sTv4g7HRl7T5Vprx8FTGwqX7PxzbL+YfOjk
FA5Wuo30bFqeY4sXQusGWJtgMu1cV733c6xCqlluokwTVF750vyIFIa9Fdk3
91ylCc58MmVKrQ/D+nmpH32i3QTvj7ahu1+HYZv1zybesmiCiB8Zn09fCcPS
lDIGdB2a4K/l/g2jU2FYdtGDnKruTeDZ6a8UsBmK1d/aDj4W0QSWqberCeWh
2Ef/eWL2JzTBCHv3T7aXodhXY/NrTB+a4Iq7oqzcvVBsVbOV/I+8JghqVrXw
uX0PPV4y7EqtbIIuoWDgeO2FXn93uWgU0wTlY3bXR30C0MLhjYz2ria4diXr
gpFMGPqOda5V/mwTdLCEawofjEWH6R559+6/JjhWfkmMOewVOlchfjTqVxOk
W1dJem29Ri9yP9Vz2dsM/I05crdXktHeOANlWYVm0LnUdorvQSb6XVGL12n1
ZshOYMrpy/uIbnyrWM6v3wzMX1XPhNOy0MxuJ8+s3mmG9OTqs+tWuejoE7/5
G2OaYe13rjzJqAhdynXfqCS5GZQMqDXJMcXoobXZl2lZzZCUfVzZuKcELTDU
xRJc3wwpEn1plJPlaGUMCu3R1gxXTb/aQFM52rKg0tduoBlWgzhOplpXoAPe
nKk2mWyG5GIxytpmBTozOHVFm47ES9DKMn1fiW5zOSCluNKM1F8He6myn9CM
W+GO4n+bwekXT/LFM5XoPTp/Pwqyt8BTOte9iCMVaClZt9m9B1ogepxDlri/
HH3tGF1w80gLPIzbs23KUYp233vbdEmsBeLcmZPXV4rQNRTNvgHVFmBX+N6r
1pKHHr8S/D3mcguYxYRP5VXloP+UYgX0jVsgj3ZkgTsvC634TPlOl2MLnBeL
4W84lI6u45P505TQAoVNrqfopjFogu/DI4EfWmD5aLtt8PHn6DVSgRoqvwXu
/pFHXxr2RSsVi7ysx7TAFePxk4ZHLbH1WkInKudbYLvQ43GqdAJ2stBM2+1n
CzRtXr6Jv5qE3eB5c196uwWOXTuqyHQvBSv0ZDhukaMV/NJ/HJINSsOqzOyv
LuRrBZc1u80Kg0zsbU2DSadjrSCciV/UtcjCPi2I+icm0Qq9V5VnqE452JT9
XSJ0uVaoFJD70f0bi214zKabhW6Fs0RMTM2PJuzklIbrnautsCV291Tk/Rbs
hnpQ4nGTVhjwYq+9RWnFXuL+O/veuRWSeAzJm0Md2MbcFc/ExFZgukKW1azo
w05zSb8zTm+F4TdhnfwSeOymxwMsT2ErZFPFLRkZA1gUMDhicK1Qjatr0boy
hMVOTH14/rUVHlgwL35RHMXOogRbNX+3gknIjZrBn6PY7ayb88xMbaBakBNU
XzaGRbsNyQYcbAPu1asHX56ZwOI4Oju91dqgLSEBLX1oEkt+tGtJXq8NsPU0
jkMjk1imMXXen6ZtkEdWGPkXO4U9cSlQscK2DeJ3v/gwrzuNVctstHR90Aa+
0lOOQ+wzWNvdG8HnvNvgruk52YaWGWyQi2LeQlAbVOash10JJWCblCu/Oya1
AVpmT6bv3REsOf2bgFhmG+z6xSPDOzyIZWI/p0oraoME9wtPTUP7sOrDeeG2
zW1wPsyosla9Bdty/8ORW4ttQC6PWjjGlYD+9N+DB9Z/2mAlSMfQSrwYne2k
8tmOqR3qRu0STXNq0c8dJm4/4m+HkwE/aobs2tFX7h5ICVVtB74R5a79mqNo
5TnSf5E67XB6zTn0Vt44WtK2VDnWqB25r6WgsziJaC5rPWKyfTsYO25UKYzO
oAduPT9cGt0Ohf4zg6WVVHQT4YbTpySkffzj0hEaDV1udqquLqMdUj/ui14T
YKAzx1d2YwvbQaQ6x/no1S/oBFOcWWtVOxR3oi5rPJtHh47G5HVh20FuckzE
seQ/tNcNy9X+rnbwGslpNS38hb43LHl5ZLgdLF0S9r20/I2+eX09iTDdDlq7
A82auP+gLw92MmYY7SCV+SDzd9MftJJhkgJ1pR34L5kvSHquogUN5MaXdnXA
8KMLgW8m1tDTV1wOsp7rANtxau79jL/o/s5L9zgUO+CK2+BKuvEmGquzt3qf
egec34tRGdu1hU7XyjM5bNoBy6gkPDhvo++qzb0+598BWGORZ3vfMcENXBlV
NqIDKtOFToj+YAItdICc0qsOyF3kaQc9ZhBVPTKikdMBz8O3uB9vMcO8oimv
eX8H6DeMfyTdYQVizem7VhMdoLa7//JGAyv0XPxRcXeuA+RNWhf5+XdBQ1UT
s9NCBxzPrH8l47ILiuTirrv87gC+5TIF3Y5dkFpplenxrwN2X8qdsj/OBtEX
pL4/2dMJPyJSgwJ92MC/fEPNn68T1marl/1/rKMfyXTHhxzthMTxXaN893+j
bUrfkiPOdII0/kZ9wdwK2uicw/mYC8jzl9qowMp5tOxZ1sG32p3AlM+ma6HZ
g/4thtpf4tIJaAI769PKJSyaotEZ5dMJusMHrr1s/YkN/3Al0Cm0E1iUMlKI
JWtYAX6Tb6ffdUJd8KzgJXVmnALzg4GUtk4QN/hbOXGQE+czlRwXeaQLUB4p
HpE2h3BNSWmXHcS6oIgTyyacchjHYZz9T/NCFxzOmUsuGxXEGe0rrD2p2gUR
aDYpzf1HcO+6ylz/6XTBAYI4bvyqMI4SWn1m5noXpLrrG98PO4qThM+kBssu
uKzz7KsI/jTOY6PpbbJjF6yey1fTERHBNVR3GHp7dEHewbEkx6ciOBb3vt0m
/l1gtsW8FDkogtOVGsZdiOyC3XRpzUIxUdzUxxmZpQ9d4FoV+W1xWBS3Gfdr
v313FyjcUL3icfYMTktvo1N9tAsYKs5pr4PP4KLZmYKOk7og6VTSr6qJM7ij
/pwrk7+6YPv7t4zVUHEc+v6pwesnuqEjPmvdb1oCFy4qHilzthu8fQYN02Ql
cXjyObV9Ct0gZruVg4uUxFmbKZd36XVDuIyZMcvFs7hcXnDKvdkNCofC8k+/
PItb7tc6EXanGxjb5dtac2dxgVpG8fCkG67h9xZFxEjhuv6ZXjka0g3sNYrM
BVQpHM9nC6a/0d1Q88HerEf5HM7c+04d4W03ODx/VbIQdw6XccHRreZjN4yG
nXzDmnEU13QswOgcvhuYPjGJ2bE1YFnWi3iOiPaAQTBKg8p6Do70a/wEmR74
fmLppq3CeZDPJI7ZK/fApeDPXANfL8C9q7vflxr0QI66uU/xjYvQ9e6uqIZ3
D2S3vDJ0FFWFOBVBFefOHnC4yxL4iKYF+dzlwrFDPfAy4T9iDlYbmig6/yqn
euB9y6D8TLIOsn9m5iboPdDhP6Jk+00ffkR5tW1+64EbmlHMbt4GwGnDmXdy
owfIHOo9gVsGICL38YXOrl5wwa8mxIVdg5tTA9fiD/dCxK17ImUJhuBa5nCh
+lQvRO2P9SZxGUFk6BbfpFQvXPf477ajkRHUnz1LPK3eCxOKGaefTBiBsF+4
Xa1zL3xt2VedRL8OF42O6kx79kKFqPO7YxLGcE2kSpw5oBeeRLb55z40hsC+
uSXdhF7YNnimU/PTGCjCKJ/Zhl44QJyfGGM2gb8rI7dZ23uBcEmr0UrbBPjb
76PEB3ohLS09gx5pAjouySwe1F44a3/T+fd+U7BRl6EnLfXCj44KA/8bpuBz
sKPz82ov1Ensk2V7awoFmJ/RbFx9gP7WusF/7Ca0vIpylRToAzbj46TUOzdh
8t5JY8MTfdBe9bRVJOcm/FSuk/eS7IO1Ao/zwauGwMVteOidfB885NgrlGyg
D27WhZlSVn3gtmsg6IveJVD4Z1tzo7QPVng/0wuMAadv0BSiXdcHluz/3veo
aeLs3h83VGzpg9TQE9pqBB1cvOLsF6HxPmj2t3t7dvc13H+uFoKUrT4Yr/t1
NFj2Jo4J20Af2d0P3k+e/7i0bYYT4BKqbD/QD/MXBTr/dN/CaeQTdAtE+6G/
UtHt4R0rnPkfxUPvZfoB3Lu0zpyzwblqvaVGK/fDyttiLnc/W1wq2dTPzaAf
fG6i5s5euYurlK6+ctesHyqrn+vtkbbDdfnxHzS50w9f+fHVDD573GyP55z2
g34Q8RI40bZuj/t9eKRE8XE/JKjpqTs0PMRxOco+lQhE2i89EKtjfYQ7Vf1K
58iLfjj5Pppzr4Er7tp1I9J2aj90bjC+jn9zw9mnlxWt5PbD3etPZgIT3XHP
lrh9KOX9wJ2/e1Bc2QOX/6Kfp6OtH26ailc/DfHEMbfoasQs9sNomXPgsYPe
uMM8hdyBf/ohiH3DvbPeGydtvWfKjQkPwlZR9m7WT3C3Nzo9TfjxYLy36GpL
ng+uSlY754gqHubsF/kcVJ7heoKy3ffp4MH/sx/7ftIzHBnPiv5niIfDvPvW
a0P9cPsetIxT7PBgizs3u6ffH+eQBRyFL/HwLVpxdFwmCOf3PW30/Rs8qNYF
GpwNCcK9hu2MmHQ8JFA7OwJHg3CFMVYugQV4mOfmURsVC8Y1TTUqu3/Cg4KK
eb24bzBuXEKY3Q6Dh4zoxidYCMItPnk2bNKJhyjZwQAj5iAcS8dkms4QHhjl
nZztzwNxgvwqD5Sm8FC0uSz4H0cg7vzdd4qSdDy4XxEQ3xcdgNMpX2MV/oYH
rUSUwoX9ATgP/drUfywDMH822tj3oD+uL0we3yE5AIctJF7uOfUMp7K/l+XV
xQF413bcLz7lKS7/3R1FC7UBEJIWcDnE9xQXWhqb8c10AMSZWQ1Fd/niVAjz
HoeDB0Apb5pXneGNy78bmEd5OQD1PCOsXdbeOIGlg9PFSQOg8rT717WJx7jv
zJra6sUDcMWgZtyyywtnHU305awdgPGa4k6qmheuT8CtdKx5AMxOZNXdr/fE
5Z/9cOj+xACY/4xL8Sn0wAnUyOnLUwaAaBn+8t8pD1yYWk/Q9uIA3O7w8wt/
74770WNb3bU6AFMyni77+N1x5YV/va4yD4LXsiWW6dtt3JdvOnGl7IOg1ZLd
nnzxOu7YxYQCPq5BOG9eKde6gsK9xInPzggMwong3VfRS5dB47+QcnaNQRC8
8qrhiZs3cm/F9zy4PAhiN3B1Q7M+UO4pSB/UHwQ566WaswbP4Nh2meB7s0E4
05BN/MYfBOu8MyEyLoOwe5BpPOt7GPIe8Q+JHoMQO3ZobFA8HBw+eNauPxmE
yUnp0S2bCBg9s3exNWQQ5umWw2b4F8DpYsouETkIjxY8h8LYXoJGZcaJ2JhB
+LUSNVihGg3lqoqm5smDwLJZh+csioUvwSGumA+DEMk82K9EiYNjnf0vTmUN
QkSoJ6MyOh5MuQSzI/IHgUi1/G5a+Rqir9tjF0sGQehLh+bqx0RoTSojXP80
CLe/nk9Kfv0GNqY2ftTUDULKUsq8clgSODm8OhPcirT/9SjG714ypBdNqzO6
BsFilUA6evMdjK+csdTDD8L7DQ1ZnE4KaD3Dxh8kDoIw86EJZvFUOB6/sF6w
PAgr+3AnIr6mA/ZOYEHlT6Q/1OfzEfcywFqO79bntUEw/ikw1DOWAanjKnV9
LEPwxgZ/wLgmEw4fjfL+JjAER5RQr22fZEHt8lGxtSNDgFpOlsv+kgU3myrG
mE4OgXX2r5EvZtnwxo4oz3t2COp4ivldlXJA/qILTej8EEx27K6uzM+BUXbm
xNMXh4DX3870z+Fc8CQkakqpDIGcHO638otc4C0U/ykPQ2D6n1CS/3ouVDxr
/IjSGgLvdG+FZuc8MDIwMta5OgTmMaWvTH3zYeUYjdnw2hAQw9Yqu9fyIW7l
SYXZjSFQ89MYRfkUgHQL5x1b8yHI84z+XbFaAPjX6TzOVkMg/mBcQOxJIXAp
dro+dRyCP7fu3+L2LgK2tnuLuLghuHKwwa7MvQwWVkmzY+eH4Y1lz0RkRy1k
f/3cwx07Au3ogN2ue5A67WjeNxptFDT5POQL13tA7WboDPW/UTjIIyyyn7cX
POJseinLozDP1cHnJdkL48yH88hroxDNLvQTZYF8NxmR1tNcYzC23lwx1NgL
0uX3+0fkx4D5kOTWa88+MNCULmoJG4Pz3wqHb8/0Q7RztUOGyDiUE6N8u7QG
4ataSSSn5DiM1n5x5jUahMuHcwq9Zcbhzxut25YWSJ52Ji7rq4wDynhbZcV9
EHxFvLzXDcehr8d981D6IDiQZMONn42DU7wHdxGSF+qm5Tm7hsehbDFl9E0y
Mi9qRTSnwAnIW9mODO0dhsbshfdPwibgmJDjC+XRYQjhkLoR/mIC3mgOvPg2
PQzcg8XNWa8nICwpPcpieRjEbErTZvMmwFZVLVruwAjc9K8wNxmcAE4TkYs3
DUegur62D04SYG+1Zmtl3wh4ybZVCbQSoPzi8cubn0bBQf5ExqsuAiSCnFjy
51EwV/B7yYUngM/Vy2zyraNwSUX+LguRAGgr19YHw6PAopG9f3mZAP1hOJha
GYW462H324WIsNWjspJ6ZgwK3bROeHkQgRYfsh6eOAapHhmc354QQXPfoRTT
92MQ47X5x9mfCJkvilREPo6Bm09Vv00kEaxCRp81l42BYpDIM700IjjY1arK
9YxBW9yu8VM9RPCJqaY0bIwBqbTt5dDJSUibq5DusRiHwaVdi7JnJuHLT6YZ
7J1xaJLS1k+UmoTz7EYvPzmOQ0ZhO5eZ4iQ0Sy5/SfUch7u5HTHT+pMA5tGV
pS/GgfGhK+7Lk0kIT4w8hP00DkvRfa+3+ieBf1/w3PTuCZjt5fplPYK8L/EE
/ti+CcDvNTBpIkyCmHBTgy3vBJRG9vOHUieBfbTZXvDoBLiF4d9wrE9Cjqov
6w2ZCfj1bPAtn8gU0PbNq3XcmIC/90ffSzydAtvy9s/FqRNgomD1SjpwCnjI
IeTFjAkoZmaEy4VNAW6/Gtu5nAmwTl51R8VOwV39WIt9JRPQ3C505frHKVhd
6H5j93kCIk7c+eXTMwWnzqrv5SFMAHnhv//8B6ZgN99gcs7UBCjVepBCRqdg
ccP6zCXSBHw1COuJnp2C2h4/LQfGBBg8y8vI+DEF+vfrAhp/TQDf+JJ+l9A0
PCmQ+el0gAAPM701+o9Pg+UrbPA2PwHaHv5THBaZBnVfA57EwwTwZj1welp6
GvQLzZpjjxNgAP/u8JzcNHSsKOf5nSKAeMopbobSNKgpCsfcFyUA8bz8+jeN
aZBrI5vrnCVA+sunOYceTAPL2o+Iag0CnFXfve3weRoybA4xXrsjeVpYdIbQ
NA23RYq+N3kRQJ7f6PrVjmng+w+9tfSEAHX+v5429E5Df8kwx5FnBFD9kpx9
dmgacp+Ko50DCNBkhMKnjk+D1XcR9qUgAmg3zK3um56Gg04n8W6hBLgWI6m3
wpiGMFMha59IAngQDZJ9eWcAOLc/JKUS4I/Gj+avh2ZgNXjjnlA6AZ4VJy1Y
HJ2B0rU/59IyCRAWSEKjxWfgKOMbJieXAEmi7nQW9Az8bZqbqSonQL17omy0
8wzUeLcfHWlD9tGUkuXWoxl4tNRMv9lJgBatmeePvGaAxysp0qGHADqlwWUk
3xmYWQchkz4C9BwSIxoFzkBR4H9F6si+vBbcw9ISNgM+bK9RMoMEGPn6SEou
agZ0XqoOCA8TYBpTG3jwzQxQkuJ+rI4RgGnvVF9a0wwYtk8F2tOReD0D/+zv
QOLVe37A+AsB9sycPhHcOwMLg9JZ8B8BeMsfetqNz0D4dHCH0BIBRG5uC4ov
zgDm55l9Q78IkI/7qPnu+wxE+Q6lYf8Q4JzEZZe9qzNg/u/p+eI1AihsxjUt
Ms/Cr734GxGbBGi4J//VavcsNMc/oXttI+MfIPANcM1CnMDJJ3eZiNCi5I9S
450Fy9QeDiMWIlz+eNKx4tAs0E+FBt1iI4J8MrdYh/AskJquJ+ezE+FE7F/a
5MlZIFqfKF/dTYQN37G7u6RmAZ+CIb3ZS4SS6y+szdRmoZZ3DT28nwh8zN9N
t5xm4QWLy5Yuck4xrc7w8z6ahbCMSwdTjhBhcbFnRMxzFgLQe8/9J0yEDkL2
dSP/WfB4mmcZcZwIvuXmBlmvkPh+zH1uFUHOpVxtrrqkWbgZXz7CK0YE41TZ
3r73s2AkHbhw5wwRIOF41FzGLOj2GbBWiBNBKpLr6p+cWdC+L3yESZIIggHr
uzmLZgE4FmQNzxKB3YvRcbx8FpRz63XTpIjww3nkuXz1LMhpRd5dOkcEkk2T
1tWGWfj2oP/50/NE6DMtYbXGzUK/G2H68gUi1OmltHi0zULRY6rcQVkiJCh6
qaXiZ8EhcH2uTI4I2vvFVb9RZmE6QRRNVyBCETZO7g0nCbrr/f8YooiQXOX3
o4CHBHnYSIOjaCKEFTpXYA+S4Hnr6+yviK2TNGXmj5NArb/A+LkaEfSizy9v
ipDg2HBVgbE6EZRCjpYckCTB33Ec0wkNIhx4tCp5SZ4ENeSx0gZNImzb0f4z
VCZBIp3MFqlFhK+3hvLt0STw+LpgaapNhAlDrKOvJgkMv/35dEqHCG3aRWKx
V0hw7hcz5wriikvJ9I8GJOBc57qLuUyEtAvPs2uNSTC/dag+6goRos542PWZ
kaCD5TSP+VUiPDlqc2rOkgTTxmWUn8jzu0bnb07fIUHmg9eVZ5Hn10KZoyYc
SOAQ9iTEDrHYf1nf+91IsFINp0YQj1bNNzWEkYBNcPBOpS4Rzut72CQWk0Ca
tEJ20yeCcKDm67gKEvxcHS3PR7y7kr8zqoaE3Mfqg8iIZw/VSgc3kUBDI/iE
kQERoql/t1xGSWCWc8BW5hryHRPov+BMJIEw9reMI2K7q2n37GdJMDdO/JeG
WKVMrf/2PAkecHxM5zZE4qMcYL65RILzJ8NddRAfOEiVv/6DBL+V70MA4s3L
VU76qyRoML62vwbx/NPnqZc3SRD0QJa0hPjrzbNOmUxkYLSv7mJC+rdd4WM5
zkqGVTFvpW0kvvEXm+9T2cjAEfnrwSZivdP0i0IcZBD8zyN9A3FTY//A271k
OKv7fXgNscLNGueD+8igWuTKvor41IuIDzy8ZLB2eejyE3HyKTfFWH4yuOK/
ZnxHzN1oPsR5iAzBMs6j3xCvL0uw7RYmQ9b3e5cWEQ+a9D3cEiXD/GObPXTE
OstV7M/EybA+PqNKRdwY8SFjTZIMe5Us3eYQ5zU8Gv0pQ4ZzG+YTM4gDThxQ
/apMBvcA45xxxL/q18ccVckQShokjCK+f4PiSkeTIVHNkGsEsWn4pyyyJhlq
WPQ9BxD3HE9FWeuQodOuJ7cfsVp92MTUFTIQ265M9iKuMXZxv6VHhq+inft6
EEstmnJOGJDhb7i2ehfiOhN9XJQRGQYayg06EGtiNDzRN8jALbR1cGc8eFHl
Mz9MybBRoWU/jfh2rMxUjjmyHlejK3fiYfwRjbtlQYahuRGmnfd52Ahr7rMm
A8b3iGEL4hfn9xR52ZHhTUHhQjli/nf/rMUdkPlU/6GcjziD+Q/vtBMZXIjK
kek78QxTnmo+IoP2nm6R2J3+vRp1eX3J8Nvpi9WDnf5nKrfbn5Fhjkmm+C7i
Le2CSt8AMvQne2/c2un/UJLQXCgZcrrY3l7Z6T8wGp8YToZXtgZ02Bn/fEjI
lRdk8F9LlFPcGW+969eyWDKYiosMiu6M96RDmt0rMqg3PTh2dGe8UZbGhxKR
9TL/9JB/J54fxuy9SUh+rWw0cO7EY3G1IeAdGdgiNfawIt5uhUeyqWT4fjzK
bAPZTy+kFE4x0sgwUzuU8x0x/xup8XeZZOg2FPw1jzhj61SUQTYZijebsl8i
lnIQRDPnkeEXnrwSibgWv/9HVQEZUJlMqHDE+PTNW8JlZMBrq40FId5SH5dY
qCfDSiyOzRtxZGHfTFojGZTvkK577ryPr/WVMQ6Zb7l/H3b2vxStbL2+jQy8
BLTCA8S3w190Rw6QQf4k1sEWMWM50F91GJmfnzOVVojdzbwvrIySob19a/v2
Tv/idu/MJslgdh/11nSn/1e3DDhnyJCuakU1Rpy+bsiMIyH7gdtfxghxTY+q
sxidDL6fGjt1EWvIyR2d/EKG5ufTfFcQ97+XGIr5iuwP800bbcTmu048V18i
g7GkcLEGYtpDAeXf38jwfvPSGiB2G+Nayv9BBireQguFeBPFmmn5mwxSmc/i
VXbiy1034VlD5r8hZVIBMd/+FY62DTLoe6va6iAexkRFXN0iQ8hf52kTxAkP
RdkH/pGhLuituR1i3p7brJO75uD0yx9GO/PL+7x96xv3HGyk56s37Pxeztbv
8YE5OC86juna+T1lY2ODbw4cCllVJhAfUDu/xiY4B0NV1rK/EPP8Tflx5PQc
5Hfzn5beOS8KLrpnis7B7DWNdFXE8eaD38TE54B/1PWIHuL9NWxLF87NQeBs
D5/TTj7aZzyolZmDaru1OG/EsXyXvqrKzsHCvCjX853zyd3ty2XFObj5M2jX
x532xzkd+pXnINqnNGhnv8Xic2jGqnPQsjW1iUV8zV/NjoCeg9WQPb4758U+
qak5K/U5OMeh+HsKcd/kY1uq5hzYxdi7f905/1/wkJx05iCZN2Fp5/zUVyqy
Wr4yBzgrz+7LyHnM9UV72lMPmS9Oy9sGiPvekG+vG8xBRJ3WgjHiaK1nxACj
OVi8d87PHDHnx/LxF6ZzUNW0/cEO8V6rI0PpNnOg7Z0554uYY2SlvdcTmc85
hlMu4q7gl1rXveegJ3ZgvQhx5Hmx1nGfOZBWrYuqQLw71qJpzh8ZT9KL4kbE
Hap/0I5Bc2Ch5YFqQRy+EI9ZDEHi/X4b34mY/WpHw2oEEp++1MrwTvtVW2X/
KCS+df5gwk773L+1LDFzYJS3dWAWsY5pkkJkHBKvCeMjFTHbrgvV+xLm4DDL
gNx/iNsqe+VeJ86BX1lt2zLisDsOlYffzgHZMsP0F2ItHuYLae/mQL5UQP4I
8j3bhXtfdjp1DkIf5k1wIZ5U1bpCSpuD6zj+y1tI+7KGRXJK5hwc5w2pWUJ8
uwbFy5s3B421lm/wiCtKSF5MlXPwm4X3Rjxi69TTKjOdc+D0zg/Ph7jOt6gt
6eccWIuLNWwj+Re7esPK+M8ciA5G/1pAbPd48/e+dSR/nvyUJurv5I/Bmefb
c+Db2ZT1CfE9p28vPPdQINHBIsZpJ//N5AyNjlOgOzvedlgP+T6PTn3hPEWB
eP3VFBxijHFYUKcIBcx+WY0VI3a6NlaBlqQATfOsbgRidJ+/7oYUBYoWXoV5
IebTFaNWy1DA/fUa9g5irPYT/nMXKfCP0i6nijix9XjJvCIF2qOkHkkgdlbv
0s5WoUC07Ot8gZ3+cG6zNigK3Jhcp7Ai5kcJPjmiRoGoGC6rcOS+87Whef+E
BgXuNPW9DELcpHQ/P0GbAso/oxueIn4g/5m4R48CX8z3HXbdeT44VlxngMQf
uXXHGfFBl5VARyMKdNQuFdkhxuWIirWbUiBHAA/miPkOxXsE2VLAbjTWUR2x
06dCbRk7CoywBlZcQowxbD88e4+CnHOufy8idozcwF56QIGTCYZxkog/r9tz
rj6mANmQp5YPMU9S4GyODwUMA5mYuRHfk02pMHlGAVzpii4H4v0PBswqgyiQ
tm9odhO539nv/ip5J5QC+1DN4quI67N2be8Pp4D/wwqP74i51Y4PYSMpsPg+
s3EBsd20crbLSwpY9r5iZyCu8zF5IhxLgd6NYCMy4n0HXXV74ylAiivl7kJ8
t+LF0aevKeAzivuzc5+sNcheEU+iwAHBoVkSYq6v2NaJZAoUWlE6dvq/E05M
Cn9PAc2PP0t34uHEcaNoGRR4fFYgcD8Sv62FBM/rLApwu51xPIK4elWTqp5L
gbwqJcMziG3O+75IL6IAEWVxHBB/yqSO3a6hAMooA/cIMQd6O39PPQXGEivy
dtbPavKwX91nCjwitsTtrPduvmunBJopkHGXbpOG2CKs7tFQLwV2PZZkwiMu
PzGiHoSnwIf6S/NExGyYJX6ZIQoobOsP0hHfvsUxPzNCgQEN67rviMt+n/oc
PU4BpwjXjC3EuxJQsZeIFGDuC4rcg+TbLWnzO1+nKJDCk+B2EHFpj4f8u1kK
yJlmmZ9EzOoYs/vKHJLvnIY5G4jNWfMn/1ApMBFr9+QX4pL0lpIcBhIfr8/V
ZcRmhNUbrIvI+hzOXJpDXHT1bgb2D7K+oj8vdiOWlzqJhnUKbPo89mjd2S/c
5CncXwos9K2WYhAPjlgdamaiQrfX5plKxL+sbsW27qVCeBub0HvE/mqHpbT2
UeHx4cibbxCzn57obttPBfuHe1/HIRacN2Hr4KeCJv9+rrCd/eVh5Nd1jAr/
7A5vP0TcabJf6OpJKnyrTVFxRGykiK/tPk2FWc6jT3b2791NvZ894lRo/HRy
xRTxwuzeV3pnqVC0O1vKCLFXc7d03zkqpFiIOesi3s6K7NM/T4WosvwcLcQR
4Zfv98tSwZf1LAWNmMeZnePaRSqo4C8eVETOnxS99hy8IhUsWB4d+Ic8Py0d
pmmoQoVnCrn7OhEX82jODahSIfX+7J6d8Vz8yRxoBFTApAmwm+3M11iT8JA6
FWaGr7Ec35mvFLT5sA4Vjl/CbZQi63vLf+u38VUqgOvqH2/EFJvG1yN6VLDN
kvmJRvxLRGVg1IgKmZwZC3gkvwXLLupM3KbC6emg6WWkPvv46hfVzIqKnPP1
hBrEUl6fggk2VLin9X00ADFa+QKGaE+F3OI7/dw79VyrlPz0IyqI+2tgpZF6
cCFnYcjSnQpXK542/EHqRa/IQtcZTyo40ytrsIgjDMSLZn2Q+TQ4XXYNMc/5
L1dsnlGhN9iiSABxCm8ug+RPhcXq13mzSD16+rd9mG0QFdmnvVm5iIsnTp+a
C6HCuWO7Mh4hvthAwd15ToWu+3tj6pF6FpuaaUWJQMbDeS70IeLLgbZ/70ZR
IaDI0Pc44sE7x99Ro6lA1PNwHUbq4Vtaswr2cVSQX0y89xwxRezDKO0VFeKi
ay2UEP9eEOJhJFFBu3/zchpSTyd++NKZ+o4KpQOxjbqI5QyrAm+kUkFg+MSF
VaT+dq80+NaUSYUv41pCRoiXfILw74up8IIcvciM1Ot0Nkb09RYq9P0UfnUP
qffDaiu1ONqpcPFPKRsv4tPOgZvYTip8WFN7ilUlQouQftXjHiqw/x1evo/4
Tt/hh1L9VHi0ZW93CDFTAP00dYAKE//+TLReQu6rMpVT74aR9Wd5oe+GGD0X
8NpojAr5u440CyOeSdDT202ggmJiTXO+IhH8tA6zYiep0HC1dAuL+MgfWoPX
DBVQ/3KUxxDfuhUgSaEg++n+mwpmJSKMHa/Yg1migpGaV+ZtxF5D/s2eK1QY
+f1gxg0xX6iur+RPKtwsshOMQHydQZ1/u0YFK4Ebrz4h7i8W6PJgpYHz4oVg
LmUiPLSmBkqw02AxUwJzCjEnT7kimYMGrmYn15UQX/W8mmfATQPvFh73e4jb
lf3CxQVpEJL8zRaL2H7hCpp0hAZs176kjiJm/XDwz5tjNHjBSiJ8RazOVHaP
VYQGcY/wRodUiECueHa0QYwGvCId0ecQB9pdGXOToMGKpB9KEGl/7ODBmDNS
NNiovizWjRjTMac1K00DVnW+/b5Ie0uf0s3ECzTY1ze7Ko7M51+JZ1V68jQQ
MCskExArx/CL1CvTQMJFvVIJWc/qG5dZE7VoYPjO1XQNkPueXt1z4cs0wAgt
RqUi+WCpKcGRc5UGUqlOTWpIvrDIce6ruUaDPel3zr5A8usa74AAwZwGrdk3
mIWQfD+5V+2drQUNLogNKmAR/2KuOPKfFQ0y8vQf3kX2z/vvCSc27tLAv1B7
ohDZj/ODNyWFXWigWK5YsvM9/9zVWZztSoPcC1UUEuLYJiWZcx404P90/vDO
eXmnrqCi2guZX/kSA3HkvJIvF5JHP6HB92qJ0L6d/6/kv6zp8KWBjWJunRty
f55M31Qy9KNBEHfDKZo58v146/J5IoAGWvO+15oQB8fNomyDacDRovw0FbFJ
hGHTfCgNet+v5/ggFg9s0nAPR9bncf2QCWL8o4+XQ14i8ymhLLEPsdA1h+vZ
b2ggEq9E8DdD9pP2xIhUMg3mnddYbyNuQl25WZ1Cg2LNOhkFxA7nJC060mkg
t6oYsXwT+f5yLdvPF9BA3VpRwQZx+C6bL27FSL4ord65hPj25oDzeikNug7U
xhxCzLRY8WhvFQ2M2hXoA6ZIfdD72EcKSwNrKYVENcTHWxkbVU00OMX+ByeM
+EeDmT+qlQZ0UvXCmgly/67s+tfeToOC+seHxhC/K1QOudZFA5fXFzUrED/8
WLhroocG511+P4pBrJZyJMKmn4bcNwJrT7gi+yches/8AA2CC9jd1R8g9euL
rZduwzTAlcdI3nVE7kfBj7jXR2mwVctPC7FD6hFfUnzwBA1UcO8/ZNkQQda5
+U3CNA1q+gt46Mh8BF55nl7FoEHR1/Y/jsh5PWztZHn+PxokS/y+mIqchyKP
9QSLF2gQ7iTyeBDJx57MA6+zVpDxMkJ+7uw//r8fwhM2aMBHgZU9ksj8HgjW
5N6iAdNJVxm0GBLPGXumqH80WLJJe+RxCrm/m0g+Dd5Fh86ZzcVJISLkl9S4
uHHT4Rmx/r8iTiJstL6TXOShg/Ph/8TJu4lgMOn3xZGPDjfNDjvx7yJCxopN
NvUgHTSSLuddYULml13zjs1hOpwf82b4bRJA66jYsSkhOhzjzxWtWCPAW7k9
UzeP0mHvjTF7+i8CfL26+Hb4OB0Sph+kc3IRQdV2wOTaKTo85gtWfsOC5Lt3
5YEeETpy900aObZOgLnoN3jtM3RQDC5yyf9GgPB6iysoKTqsL49lfp4mwCDv
/CUpBTr49UjupdQQ4JRE71qeEh1smNWyH5QQ4DGUVp++RAe0kin6dxYBhB56
yRxRowNTbqAHxysC2Lcznd6rS4fQ4NFJ6QcEWHsiuHfeig4vlQKKnh0ngG7s
ZoedLR1cXF9rswkQ4EM2KZR0lw76ufmkWC4CrDS0qFnco8PZGYzvYVYCaAzl
bI070oGbf4Tv4/oEJH6JbDC+T4fvuvMlZ1cm4MvWgyf4h3QYDN66XM2YABV+
Q3ldVzqU1fFS0DMTEC0p+73dnQ51Mkt2xkj7WbWDpepedOjiMOCeIU/ABbO1
+xhvOgzPFdc5Dk3AeCiWVvWMDkuvH+7zr5yAkzO6hKzndBBeW6jJ85qAqJZL
ZaaRdCAR097P2U3Ajzyp8N0v6ZD/+XrQkRsT0OLBLf8gng6XAmuvxl2YAHuO
4TjZ93QwYQ+d9l4eh3y5W5eby+kQzi/EouM0DjyCusc8P9HB8E8fI9BsHHy3
VX6L1NCBlxDYW68zDrrdwlmRn+mQ9p6eeE50HCpL9z1VwdLByT/Z15F/HIQS
t40Wm+hwwUbPOpN1HEJ8v51Ja6WDhM5x/ejtMViwJm8bdiD5FBsg/vPLGJho
DY0xd9NBaXxm1+2hMWiUaCn+1EuHy8dQc00NYxD9K+v2oSE6OJT+fRcbMwbS
UY41s1N0SMT7cErKjUGSq3lM/CwdsgQIX+KFx+CfyVV7jTk6FFortq2yjcHg
8bPIjYYOzcu//doJo+Bevezi8p0Oq9yey7YBo1BFfiy6yc6A24YuQ2+7R0BF
MSxRUJYBH/U/2w9LDcP4XUGFD/IMWGrReGN6aBg8Y0snTigyQEa5p53APAzF
dIKQuCoDGkWJYqTxITiWeC5TQYcB49t/5heChoDl+3jJjdsM2Fsh68I2Nghp
wg8NJywZYHqm4UMkbhAuXWH+ftuGAW8/qOM5CweB4JmUMHuHAUS+7u3YxEHw
Sj8rf9eeASJRRjK8gYPA09s0RndgIPXhHYgrHYCSP6ZPnJ0ZsN17cmE9awB0
Ty0cXnrAAIlESpL9uwFgGAQ1uD1igLlllsZA7ACyHgctf7kxIFzEflk5bACO
5xRuPfFkQMWiSEq27wCYb46qBfowgNM/97uv/QD0Fkp0xoQwoOFDQQZydQWn
cazTgecMoN+7rx8nMwC7WEz2volgAJ/02bV1kQFA3wowSI1mgDO22HBg/wCU
7x4ZKUxigDCpbNuXjgd9OafH0u8YoJfnVkibxMN/1lsCle8Z4O164abhIB5O
1Zy5XZ/BgIF/lSUin/GQaO9H7ixkQOiJGsuBeDycjz8QoleCxDvvzaESjof+
z7mnB8oYMF2uWJX9DA/3v1xqN65kwG7fNZv97nhg5xtyGK9igIJ6PedTBzx8
RDtw3K5lwL09T2tpFniA+38LZuoZcOfWd/9uTTxMv4nXu9PIgE8RMUfStPHg
0yy6RMMyYFeNRL3H/xVXeTxU7xdOlMgSImQPIUqLopp7fKWoJCJkC9mS7ITI
UkpK2clSoYQQ0kLmkn2da9+SJMw+EypE/O7vz+fzztz3nPM855znNSDBdmbN
I/fPs2Ax3WxhcJoEFeImmozGWSgUdvq18ywJaN6h/gtts2Dknbmv2ZgEtjLY
Mkf/LKSobC3YYUECAQm/d58GZyH/Yc4rESsSfBYR9Q0cmYXKn/uKBK1JoMxj
Q6F8nYXej+Yl3PYkYC/MDmGUWRA4/bRy0QWPn3U/6T59FqRLNasW3EhgTlU3
PsGaBXWhxnfsqyT4OOHX/H5hFn/6kj+Sr5Mgun3tbc7aLNy7ur9uOJAEh5py
vS05yJDW3Vjff4MEZFR/jxAXGfcjFg1YCAkyq8mzHZvJ8D6V0tiJ19OoKi7v
Dg8ZmpZDm1vDSbBWpmGP8JFh8wf7HSfx8/KiHoklATJY8772MokkgdML/8EK
ITKU2S0228SQQPSZWOK17WTgqjgh7RZHgrYn1UZKO8hwiSshwO8xCUJTbLd8
kyBDqeV4Z3gKCSbu50VckCXDxbWA0JSnJCgM2Oulo0aGwrMFw58rSWDt3au6
oE6G1afze7s/kIDfI2CmZB8ZTOeRuyO1JPC7XGMrp0WGlYzhQ+wWEhw7c+os
ty4ZjGa3JEl9IQFJ1l5l8CIZfkZeM7rBicHvjvgpnygy0N+93XHPCoPxrYPu
q7fx+1Puao/ZYtBgJMW+d5cMqN+lSxqOGCSQileePiBD0r71zP6rGKj1tW7v
TiXDkaIzMnI3MdgmIphllUGGZ/ekwT8Cg0UzC/npTDLwuv683HIbg6bBaY2V
Z2QYV0jL9XyIQbGYetXdPDLoc1xtqEvAINHS/6jwSzK8+Xbsh3AqBsEZNfU5
r8gggQpwueL9bD/KYaBaTIao7O+K1TkY6Eue7q4qIQM1tOokXx4Ge2wSzHTf
kOFfwFNP/g8YCGcPj3ZWkOEA+VDBrY8YLI3LOFhWkcHtUuc3djUGE9Kus1Pv
yZDd6Sjh+AmDZvtST69qMvQRli701WKQNHksJAYlA0FBqaWqDo9H/vb6ts9k
8Ev5tK70GYPLTh0x2Y04P5sv6KQ3YKA+bZX0to0MwvRbJSHNGLSQA19/7yMD
5e1IEtKJQYkKcf/1QTJIK3t3venCIPkq18elYTKYZWzaLE/CwIGe1CT4lQzE
sAMhnL0Y/GW9+UogkyH55MPLbUMYTO5bvNJOJUPbB4UnOiMYtPogNHMGGdZU
q/uKRzFIme/6c22ODFcFZk/Gj2Nw8+D28MUFMjyNDItY+4qBU4AN5+0/ZBiY
F672/oaB4bu8+wLLZOBxKZqfnMRg3x+qYOYKGWAY1C9MYSB2ZH+a0hoZAk4P
uTT+wGD1RrBUxQYKKKqyi1XZGPz4WJd3nJMCGLHoeDMTg47lzaptmygQesGZ
5MDA599R4zdmWyigRJZxWKVhkH4zVesbL/77m6Nz6VQMnP/t0vsjiJ+/NBbF
ZvH5jVxrixKmQI8OzyuPGQz2R1Qa84tS4CapUXvzNAZrG/6zUZSkQO+iti3h
OwYZXPYBFxQpEH5mV/7rL/j5lR1avcoUKNd9uN94DP9+Y8/v86oUmD78u+4n
Xi/N6BM3zu2lwNldreNaeD3b1lVCDbUpILnqIVbfg8Hey1NHW49SwHi+/4UT
htcTzVo5SaBAFOX4wU3/5ydcIPyEHgWoAwImZ3A+W8ZbCQ36FJDqvDHBaMf5
Px61pmtAAZPPk56P23D9/12IQIwo8LG08v4Argdb61JdojEFGPk7xW804f1V
7cpx3JQCcpl3CiQaMVCRkGuoMaOANQ9LzaQeg0fBo9E6FhSw07ZpUUIxUP6D
xhxyoMC1X4KHwt5hYDF3/4FaAAXueYYIqr7AoNbkhFFREAXismaL13IxUChf
5VMJocCjDrNTA88wYHl5P1K6RYFUlb3hEVkYxDDME+ViKZA/PUUbTMKgiiyb
LpZNgXpbo5boKAwkDUYtU59SoPFBtaMV3s+RBUni23Mp0Fqj/E8jHN+vm4xG
k/Ip0EFNzuDE+9/IZVOmUAEFuHqoH3p9MKhsQq0TCikwGPrPpdQbA3HF4J2C
rynwSklo+30vDPBrs/nKKXDmpraPrifOv94LuweVFNipbCQjdQ3XT66dDO87
CjB7Lnct4vMmzKHnGXcNBRKU76m8ccNAZOJd3sYmCgz3Dk5KX8HrxRce/qGF
AmSjh12T+LziPaZv5dlOgT+teh/zHTDYmNHHP0SigCj65rGqPQbzpuzgolEK
mBXfR7QuYeAV+d7MfpwCV5R01ZYsMaCVhe8V+UYBv+d/RD9ZYPB9K9902DQF
EtOuMHXNcT6P9qP7yRTIFZIc5TTDYMQ988kslQIVD3uaWkwx6GlWOW/CxvUc
Tcg2Oo/X5xdbddM8Bb79W7gnaIzrT+EDV80vCrCDi/37jPB5Znrrm9ciBaoW
DxboncSgLuJkza6/FPDx93tSg+OjZXypI6sUUGeXPzxwCoP34/3e8eu4Hj3Y
EcU4LtNxUlrkooKjk6drpgE+n91VN5RwU0F6oviSsCEGBWk/xxx4qTB2iWoU
h+OchVsJHYJUuGDqejD0NAYPS7NWciSpcELXYYP1WQy2jDsNXZCmwvqnpwu9
OL7Dq1bBLUeFT0e+zp7G473p9tHVV4kKh/ZZd+ucw8BDfrBXX5MKijLmmRJ4
vrPns0uWD1Dh+5Ok+EQcO926cq9Miwo5or2RPCYYXPoyd1z8GBVE+Y3dlnE8
wFO9o5tAhd7Yh9a+eP1MtCPno3Sp8Iir8xwVx4apAoX0k1TYvGpwaPQCvk8a
B6OfG1LBp3IpxwXHuvPZdhfPUuHgPTHfSpyPWjlnbV5jKizaHNJfx/k6cn6P
SJ0JFao1L+wwwvmsDJ9n+ptRIWyTDy0D53tvSXWbigUVYCyeOIPvQ2Uew1tJ
NlRoud1+JcIGg7wjgpcM7Klw34p8uAvfjzKuQwdXHahgpLGJVwLXk1ijM9XF
lQr9Q7rllbjeNoVHmev4UuGb6sfVGRe8v+YYy3X+VNh/3DVHCtevs6vVs1NB
VLhtvB0xc8fzOb+PZnaTCir+PhH1HhgENGU+HgunQmiMjNwi3g+KOpu1HCOp
0JXeVa9xHedD4WuEVwwVfGtVNmbh/XUo3VDp9z0qNJKG8v7ff9NbqzpuxuH1
/X7nxBY/fJ5FyvpsjKeC+8KBacQf19vvONH7j6lQs+n7ncAADH5d/VMjmEQF
PvHHSiWBGLyYcHRIS6HCZTVCy1QQBuZm3Zuk06lQcZzuKhGM+9827df5T/B4
bHoYEWF4fsdfmKhlU4H5E9xC8PngXCH4p/wpFQTuvvnudwvPL3NWF82ngkn5
oyGXSAxuX08ZGimlwgDXufqzuB/fKPKTQ6CBCuOl7ck7cH9Qec/mVUoTFf7p
6QgIxeP6WW0x2tlKBdmRwlhe3M83zOSkq3Thet8YG/7vMe7vP57VODFEhRmL
U24/kjE4oPGhr30E1wvj3ffxFAymchWCTb5QYXeUku0Q7i/0Hiw32E1S4epr
LtP2dHwerDu7T09RIU43oLMhA+c7oIf/2gwVXg/+OFmL+48L1GNv58h4vh5m
9e8yMeCwf2UVTMPzXW84+gafp+V9wmtrDCroWcqwQ/B562BwKz+GjdfvqN/v
JRxvq6Ua8s1T4aZ0y8qN5xjUa15kJf2iQsYGyY2LOPZ5WZ8ssUiFqh/XtwTh
81tOUl3n+TLeDy2fBX7jOJKT807pGhV446/uXMD9jmawl+ohDhoo+xDl/fD3
zyRjlFTDSYMTZkIqczjWHSqXaNtCgzCJ6kNsfD9sKLJ/MyVMA9bLLcb0Anx/
MYa9nonSIN+X83fAK7z/NU332orTwJKwlrWG4x0fT5QOStOgbmCBKlSE+8OV
Ws8kORr4P2clZOE4Dw6rn99Fg92e1CNKxXj/tKq8blOhwWPObzHar3E98eZ5
xOyhgT42qt6A4xrjnWp6e2mwlDnQf7YEzycphbqmSYMSVyx0EMcnh/iLPh2k
gcOBDvnLpfj8lrznHnyYBtvXmtooOO6x26CipUODtvY6bz/8/ZeWG0KeO4bn
l1ojtopj25n5gjKEBuHoichIfF8rqHq6XvuPBnPnNyeex/0WxXNGSUWfBi7f
23JlOjDw/zX8Ivc0Dc5zGTfW4vs5jpOYl2JOA/kzVpuXcf9XLX/vaagHDfet
ng998fhvuWywP3KdBjpu+3J08fz1i0Kkf3nToHRprlQQr1ePpmf29UAapO28
gZXi/KQFzNioBdOAt1RnMgzn1/aj/U5yKA1uIas/zz7F4wHTTIdIGrg5RgnT
cH2V3e64JH2bBl/mT+yqxvUY0HpCYiyGBiZ3Nh+KxfV6dCtxJC0Wj0e0Xd8S
1/e68eEMswd4PK8eXFROxPsr6Y3ltkc0KNM2dv2N90fckMqO7gQatNBFXIdx
/2YimTd0P5kGauFNrhG4vxGz35l2Kg3nSyDQbTfuf8dzUy5yPqHBr2dK7hiu
j7wZftH6LBpY7R9yv4H7A43rG1J0cmmgan7EoxXfx/phM4nqJXg8T5Y93cQx
8Mt8Ey/cgPOreMvvFf7e+rCaea+hiQYdUeX2ZY4kWLW/G+XXSoOsiakz786R
4N4uu8C+LhocyTDY1ahEgq4YQ+9ojAY8v0MEO4RIIEw5ePVAHw36TUtWev51
Q3YJr13SMA2CtgoNTAx2w3eBPxZ6YzQwdD9RP/O5G5R9v5vMj9NAojmwhFHa
Ddf6u87kfaMBXb4wY+FJN5RrfdS/MEWDwnauAKXX3fA7PR/ZOEODPSn3/cMu
d8PRv4+0K8l4/ewF/PtFuqEZdVEXZtIgY2GHX1RYF/DKmyo3sGmwE832HdHs
ApPbx+X85mkQHSvvu2+mE8YMRLb3LdIgVnqPz9dzncDqqV9J3EiHVAPES0e2
A8R/7OwUEqdDUJazx9znVrA7yd38WZIOyy7Uq4ZBrZD3ah71laZDmKbX1Wdq
raDu2V7Zq0CH6OYb7ueSW8CXVFUSpUSHTQmrbi8MWuC95vOC/Sp0iLWOcltZ
aYb/fgdlJmrQwY8d51rk3Ax3LZ1S/tOkw59qQdcNEs3QVX3u0dwBOtjeSXGx
7G4CISmd2FwtOvy80vQyPwAFi1uK0abadOiVMZcUzSZC1qRgGMcxOlSO/nh0
t7EWJvVWAisIdEhK8edcon0CD+6+q0In6GDOm8wY06mBN1eJVz6fpINWs4Kj
kWM1/OostPM1pINYZOUgMfYjRCREmPaeo8O9373o8+H3kCKhoZNoRYeayW2J
roFvgbgndouQFx0mvaSvTTsWweGBHd1JPnTg2ucePNH9CsrDXiVu96fDXVZl
zIhOAeR1t0iKB9Oh28vweZdQPkgFWXx7EkqH83uTS1vCcyFVZjZ/ZzgdZsc/
BUb1PwOB1kD3nAg6qNuZJgS+zoZY700astF00ByfLb56+wlwiKfOPb9Dh2Db
sGY7mzQIrVd8r3CPDlM5WdzhlaHwy70q9MV9Osh41ujn/wuB60L6oPyQDi+O
jka1G4bAbHU/Z+EjOqjwLKHs5GBwcLrSpppIB+dhsVXRbzfgwttoU400OngF
mAc5BQZBp42w2JsMOizo+b+NrQ8Efa68Mc0s/H6hpJ9lWwPhyMXPVw49p4NO
GeaxkusPUovrgceK8XpQzlxOIfkA+Wh45mmUDnnvoxMenncFhx98lzvr6VBi
Vs87OuMMYw+yd51rpIPiz393lMKuQNf4pxKTNjpoq4WEoIUOcCrmrG9fBx0c
4q+TRW/ZQ53GFy3zbjo+dyhfyoptQHvI4+8ghtebw7nHYNgKKm/9RS378PiO
fmua5LSAPbvjbo8O0OFhgHV1iKYZvMAkDG2G6ZAhdublIyktkAku4vs6iuuB
UNX0aPshSJfT6bUfp8NxZ5npR3wHYVt7W+rkBB1OPIjlfMx1AOJ8raydvtPh
e8W8wuNVTQhruPHDZZYOE+vxjTKjGvDbg7uQTKED45zTRtn2PeAlku55lU6H
v1mH/5OtVgVH5/e/PX/SQf/IN1T2iRKc2vybO+AvHSy+OgT8VykJQmf81KMF
GDApeTWEdngZff5ZcOtRIQa0UH38I+I31WnqlFLnRBjgelqj+H6EQJ2xCqXA
UYIBPBz9W7H94nVfn8XESEgxQGvf/t0DxVJ1njt2OffKMKC8zCCXkShXt/Ko
Xu++PP695j97vUkKdXGb7eX/U2TA+PjL2jlepTqJWyvrS8oM+LlgfibAYHdd
4e+MiXJVBljJ6xamnheo075+mOiuzoAYtaTef2/56lqn+7Pk9jHg9KHpvy7i
W+ssbH1DR/YzgB85rEgK46mb7Re4lHCIAToGsecOf+eu42o8LbbhKAM+W6s/
31zMVZd8lPzrw3H8e8632r0EOOsUKu/0ewP+Pa+e+SE/jjrd3LqEb/oMyOOk
xhnfWEXDI7S21p1ngFLufLGsFhvlW+yjBl3A8207alLfQkGzvXza9l5kAJkR
/dvBagqtsXsd89SaAVIMow33Wc3on2PyG265MOCTSpfaF8I0EvMWndByZ8Br
jjsxR0toyPY9tkSmBwOMmdI/jeJ/Ii/ylrNeXmfAr7GQnLCmBeSgZHqonQ8D
PFsHz5Ss/EEaEg9dEvVnwPTb/UtfDvxFLvD0HekOZEBcbvzLrR7/kO+R3mIx
wQzgaA0oyjHZAD5LfL+P32RAo2Fh5NVIBrLuXdz/Kxzne6/k2Td8dOQR2aCy
JJIB/7Y/FP2dQUVKhqK9pe4y4Mh37+LIilmEWrVEXUlggELIkYH0qUkkWD2t
7W0yA26hFwifvk4gW14cfHUtjQEF9w/3nfrzBVFO9nL+ksUACYW1FbvdQ4iT
7/RETQEeT4HkM3GRZmSOEkX0K2IANawp8XIsikQ6yGarlTCgp9RsJp5WiTw7
b30ps4IBz/uOkC7qJ6LjGj39IbUMKMosFN7r3I4+owuFc9YxYPfVVWvrHhLq
VGSmHP+ZAX07C01PyPShym6pmFgTAxS5+gIvDQygVMXh4OctDHCirzzxjhtG
S6bEFdTacX77lNAY3THU57l159tOvN4156ey/oyjB+2zAwgkBhw3GblNnOxE
/+yckG7tYeC+2MHd/W4HWjMq22rSz4D6ZoqRiHo7Gp7u6DM2iOt7g+9+tLcV
5RKZaWCOMeBMUNRfEelmVIiX4bZ9hgGVjfoSEW516ECrhtBTMgNQnYtTA5W1
aEaMd81uGgNqylxeq61VozIcC3zH2AzozbxLGEqpQtWXlisclxlQ9z2h0fpO
Psp+d8yGvsKAsqwrr/kOZ6OV/uFcgWsMmPB/iV25kojqsDdYxnIyQTzS5tkH
bl/k1Cz3ahk/E5o/u702bHmF8Lw4/VJ7GxNKB09J5OwrRbocHxg3CDOh41dS
Y7BRBZIg2714VpQJPRHRfxU4qhCzrwK5gzuY0MTjt7/73XtELMvkzGVJJnxM
dnS/4VGNjFklLVCkmFArY/pMXrYWyREbyPaTZULf+bEK9aIixGFA9NSqPBNi
bYO3bPQoRBSTLNkxikxA3cUuD6u9Qsjnn2QI7mZCQGDVuxL6S8SrU4quoM4E
p0c/nSyv5yM3G3YlnD6Mn0f1hl76no0gkS46/dpMmMzkV+G6kolsRF5N2R5j
wvm3pwfLptOR2Go1LR9dJijNft7HRUlC0sr3j6WdYcK7ZOd2u69RyCUv/9ty
55iwI77awPVzCCKl/k69+DwT7s6YLcsneCP5r7QjiOZMMNwx6OJabIKWPwXF
aXs8/tFRp0Xuu+hC6AK3oyMTluIL5mLpcehhy1f0r1eY4K7nHymJPUaDD9pg
1q5M8Pn7jNviUhL6SVDw7bA7E4rMN2MynSnoGr0hzfwaE76XeaaRj6ejum1B
ob3XmSC9pd+uvOwJevuFmr2xDxMuOukohchloy2RE/91+jHhT3dm/Pf0u+gW
uyQlw0Ccnyf9Up+CYtCzOqd4mm8w4bALX0nKxTtoz1xpDxrGhKDV8A4DkWj0
i1P45cq7TOC62CBgK30TlYH9J/bdx/9PP6gh+CUYddg5o1zygAl3br8825AR
hM72G7FeJjBBqiI2VmW7H/pTXyr8SSYTtKWectFEndDNuz9lRpYxwcPfcPu0
gBNymtP71r9ynO+TLsPhya7Iw28KTqFvmXBUPDpzh/g1RCgjTjXgIxNyvtol
vNzmh5gHIPxzNUzoPcXwnb8QgKSZzP+8TsTvexNqBqlByKh6wQCtjgkXxHm0
Hg4HI1I81h/dGnB+otLFRiVuIpdn+LOnm/B8j3EqcO12RvI+f45wbGUCYvZC
a0n2CjKdE3hlop0J5ddOnmaIOyG7Q1UNbLqY8OH2rO2kkCPiYfFVbYTEhLqs
ez4DvA5IyYFEgYu9THB0N92SyG2PHKAvDRoPMSGybdDCkX4JCWwtqe4cYULC
0o5bp79aIh/zHXIMvzDhuYr1y/3YRYRg2+asN8mEpPsTCxxvTRHD7vQFLRqu
n1SS/Mnfeojdm8NC0mv4ebvUgM/IMfS99ZJAzwYWZAw8vtzuqIcKbK7hu83J
ggY9oYvWw6fQelvCFuoWFjgobNcNaziPim9Z35S9lQUn2zoyN0tdQH3f1nOe
F2CBeuQDUczCHO2wj+bYKMSC7dpGCemJFqgCr/56lQgLVNl8Wx26rNDQd5v+
uYmxYMb6wLzJIz2036H1r6QEC8Z9QKLi3n+oOt/9pe6dLOi7a6QrFKWL3vlw
5k+kDAvMj74lTf1C0HEnvl8H5VnA5dYtlU8+jmoJkOZmd7FgPonscWXsKDrr
bMo0UmVBAn0n93TdYRTZJkJf38MCXfHDF19UHkLTPw1QKveyYK++Sb7zywOo
obDVtPghPH8dnogOUQ20uM7+yzTCAmntd9+eWEqgG6/Jjab/x4IJmrR4loIQ
aiM2NXRGnwUqWvy52l84UL7rLn3lp1kwsvX53ztz/whekp7tYeYs4HwWvXev
iiLS0qzRus+SBfknjZNK9VQQWV9209QlFrQzJf6o26kjwVIVDam2LPjTMa8+
dEwT6Wn1qze8zIJTT0cmRE8fQFT8D6ErjixI80UTLlocQqJk/nwqc2ZB4ckX
eqlXDiNj7R+qHd3w33eUEG9fkkcOBIZ82O7BAmG/ajneq3JInNyxd62eLCAe
fMgtPyeD/OhcrQz1ZsGL6JfdGtukkRSFyLLJABbskh+5ZGAsgSxid1+WRLDA
x47gF9ohhJjcNMy/HM2CUqtSH4F+QaRQmTdXOAavx+K31d1CfIh1eHx2cBwL
Qg6eFLWJ50Jq1VKS9VNxPt8h4pt2zBK2D11MXExnQWyHomIpoYtwPWrH4+JM
Fjy3qhCvmcSIMiOZcdues0Cs4qxwBecCMTImN2q8mAWP7G2s/O5vQflvcJ9x
LGXBwK4n+Zu28qGZ7teFZ9+wQJI6xMp4KIgqW/ePeVSyINyCV1rsnhD69qxO
PruKBXI6RQ3fDERQXcKzawEfWNC409C9aIso2rV306HlahZslLRLjZhZJ16S
u7YaXsuCiiG+AhGDNeKsUG/Txjpc78m1718VrhL9OI/E3/vMgrcmnq3HeFeI
67+yL/I1seAKv9QIdm2ZKD7iPivazgLXezeXF/f+IZ59umGLaj8e/++A4AQP
NnHksWtP6SALGF4DTz5qMIjOUV0ZB0ZYkEw9+GnyJ4V4yzlD9fhXFpiMz//T
vDFFLFfTPHuezAJPoUb+U4ItRIJUmsgAlQVtzCjl7iOVxA7+1S9WDBZsk+Y5
2vrpKeHHz1ZPpzkWxJmdHD+CdhPEPlx+FLjCAgWvZF+m0zQhv7DZ4u8/vJ9/
HTRpfkYmaGbukY3YwAbnmwN7c8ZphNoHiWROTjagGwL5AyVYhNPhi29iN7Gh
vJE3SPn1T8KQl10w/xY2bOC2cUk6PU9wcmjUTeJlw4Xqs1HsnAkC21SVZwc/
G7jkxziOyX4lhJ143JslyIb3se7Rd59/IUxh6PaGXWygPPrA33wRI3h/Vvx6
SpkNRvYDArZWXYTVyriXnSr4fRpzggvW7QTRNIvDgxpseNWtJizv0EgwtGVZ
Uo6wIXV/sPWvolLCwDlzuetH2TDtT7c3qcolOEINZe44G9qaQ+Mr/t4lhCrc
DVn5jw2VpJrkLPU8YilFOkvAiA2sgJuTHZH1xNicGIcJYzZE03rOag83Ep0v
MJXKTNlg6Kj84aVGK1GX+yI93JwNAiM3FUTudBClamvLz1myoc+4Nz5yrJu4
5KMYJG3Nhi6n5NWgjB5iv9LDY0xbNhSO6Gb6qtUSy8YWNhAvs2HL7gM3pF7W
EOMe27Q8dGLDRMAu81bZaqKrfuMDWxc2VDVs3++X+YGot6xmqu7OhvvbNgtI
i74nLjv9/dJ5HeejhNLqx/uW6H74yRxvCBt0221uHKcVEfXpGz6M3WQDzRnZ
n/StgCj73D2s+BYb9+/ydPJAPnGIR5v7zB02aAR0EZUjsognvw5J3X/Mhtgc
XrcXxleJcknIlFUSG4LTOv+u27gRVk8VvFJJZcPPIJUdRRzRhKrywANtmXh+
XTwvwvekEhJcvi6m57AhIFVfs083i3BN8iTR7Tkb/paCvcjr5wSFO9sNuQvY
8DgwlOZWX0BY0w7jHy5kw4/RdE3hziLCKPNHX8FrNuwivAuqHSwhVOWdzQgq
w/X0atQ/npBOSLB8a3eqgg2btzaONSinETz5du4Sq2IDv3fJf0uCqQTDz9GU
mfdsEOlPLdRYTiasq13wj6llw+0s96CMzkTC2Ldq7Yt1bGCsm37trkogvE+R
X1NsYMNsa1Ds5uOPCV5rP2ObWtmwZimlOD4ZRxjvffyUsx+vb4ibzT21aMLH
u4tX+gdxfd0OuDC9HEFIOXZZNX+EDWUikqzqpzcJZ1/urdKbYIOXlouSC8WP
UBPc3R5FxeMP+gDVn44Q0jS0Hpsy2KDdtBgdtHKK6DuVbS7PZsOdrJk+Z5ot
UcXI81v9LzboxY3//fLdm8jFMfAiYZENPO/aHMWNAoiT7455OPxlA1txV4ve
q2BirUf+Ps1/bBhMCVe7vjGcmC679ff6OhsyODxbO8siif8Di1wVrA==
       "]]},
     Annotation[#, "Charting`Private`Tag$10402#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,
  ImageSize->{1169.3333333333308`, Automatic},
  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]]}& )}},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.685857503158502*^9, 3.6858575121243987`*^9}, 
   3.6858577497661605`*^9, 3.6858579072311573`*^9, 3.6858585398886633`*^9, 
   3.685858754025482*^9, 3.6858607075131173`*^9, 3.6858611887735863`*^9, 
   3.685861455069213*^9, 3.6871907248895063`*^9, 3.6871911603884153`*^9, 
   3.687194192270829*^9, 3.6871943527710094`*^9, 3.687196992036967*^9, 
   3.6871970921186914`*^9, 3.6879487162245727`*^9, 3.6879488431948347`*^9, 
   3.687948945859707*^9, 3.6879660848023715`*^9, 3.6879661611717396`*^9, 
   3.6879664883914557`*^9, 3.6879679080326543`*^9, 3.68796811618556*^9, 
   3.6879797202583437`*^9, 3.6932997108533907`*^9, 3.693310482363599*^9, 
   3.693310873230824*^9, 3.6933114560096054`*^9, 3.693312109184499*^9, 
   3.693312315919501*^9, 3.6947618773665485`*^9, 3.7015102466055603`*^9, 
   3.7015129775601673`*^9, 3.701514408038842*^9, 3.7015173336347046`*^9, 
   3.701518594973596*^9, 3.701518758238649*^9, 3.701519216957364*^9, 
   3.7015202490549*^9, 3.701520710578491*^9, 3.7015227238950186`*^9, 
   3.701524137620245*^9, 3.701524401664494*^9, 3.701524577294092*^9, 
   3.701525028205826*^9, 3.71629936671977*^9, 3.7162994130890493`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"e", "[", 
      RowBox[{"x", ",", "0.2"}], "]"}], ",", 
     RowBox[{"numsol", "[", 
      RowBox[{"5", ",", "x", ",", "nsteps"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "1"}], "}"}], ",", 
   RowBox[{"Exclusions", "\[Rule]", "None"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6858606166219425`*^9, 3.6858606235183215`*^9}, {
  3.694761884115344*^9, 3.6947618851050477`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, {}, 
    TagBox[
     {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwk13k8lF8XAHBb9j1kabOGCEVSdKZICxUiSoQkJUvRnoSiVCpJKbJUtIiS
bNn33VAowozZzVgrZe0983v7p8/385jnuffcc889V9Ur0OEoHw8PD0mAh4f7
/66jzI4KltPmRNY//MdPSJXfGxWjdA16tPAhjwAhXPjjqptK8bDz7f+fP+6/
aPlp4Rnk8vP+99zlQFrO+MQLcPf//9+vzZIRXCr8Bi4G/fzv78X+hR/avjwH
wt1X//fc6dWj5mCJXOiI6v7vuab9KLP6Vh7cyZb9z8SKguCBDZ9Ajqb0399f
NAxf+Ev7BEkqqrxca6Tuurn4QT6oO2jzcd0mJSe3hlAAP0or+Lk+H9b/bMdI
AUR9Yfz3XG0sQ+fIk0IwZEn+5z8ZYoHj44WwKCT9v/e1uAflhW4vgt4Fk/9c
dbtxkapbEdwlK//ngmI155rTRWBV8++/8WQxL706dqMIZjKo/zldoWta9FkR
qD6cneWO//bp6CT7xiKwf543w/W5NjN4/KsIrn7wn+b6xR3D27NLi2H7ffO/
XHfYrvruvq0YJE+J/eF6dbNcsGZCMTw1fP2La5cYsYobZcXgJX3+J9fXd/JJ
cOjFoDNuPcn1YP1YRq7pZ8jPoY5xLR5N/ynv8RlC734c5drMup9w4cZnsAqM
GOHaZ9HXOz/efwaxvfYcrh/UNPXC98/QsWYlm2tdDevwUyOf4dOz6GGuKyIr
Vz3nLYHHkmMsrvdTzNu+ypfA5Sv7//PI1sIQQd0SSIve99/7r6WvU9mwuQTW
mp3+bzzKfDmVxx1KoGr43gTX2ytfSrZeLAHq7rbfXA+sVP20EFsCZ/5x/pt/
yNUkV8PnJSD4Qey/+KXBg1cPmktAW27nAtezpVe3HlxaCn691YLc+Mctm2Pe
MiyFuVtDwlxrh567W2pVCncseMX+yzfzgB8r/UshJ3WzFNc5xa5nGaWl8NOn
aAnX1so9S5U6SyFS8ZsS1z8uOFTvopeCXNOUCtciZjulsyXLYL2+8UquUx/X
5A+qlUH9gIMa1+v/gpuMaRm43DulwfWRgvVvQg6XwcWf2dpczyjk2mUEl4HY
y1Zdru+d1f/TE10GT/dz9LjW6n6VLJJUBnrCYgZcl5poWG16XwalRTpGXDs+
TBk+WVMGQuMT27ge/qV8/9m3MqjOjfnPVx0TTImcMgg7o/6fl+TJDPDylsOm
DSVW/+WnN625Tq8ctoX8sORaT76o6JZLOdi9n9vK9dazHg/l35eDt7bFFq5b
tYwje/vKIcDbjfBfvrMjC9v5K+BCaij8N98k54x4gwq4o1hmwfXlkC3Lzm2r
gEeOA+ZcV9qujj/gWgFp9xY2cS2oKS9mfqoCslqW/2fb+YXw5dEVkC8MG7kO
YAWXSsVVwGetdjOu73cx//IkV0CF1eH/nFfpZjyZie+/ZDLOXf/ud52BlNwK
mJu4T+Z6OnH726+lFeDhO9rJ9dKoEnptQwXUDuyq4drTPcPt1UAF3G3mz/wv
P3epJCayKuDnFo/HXGesv/c15lcFuBSW3OSaI3nRxl+0EtRenjnJ9dny3WZr
11fCpysMI64T31aFqG+pBKXflupclzwyfS9nWwlX/FLluOYNUl31x7MSdrgc
+LPArQcrf8uV3KmEPqPmEq6zxU/YvXtcCfBqVTbXHX8Hbj17Xgkvll9L4Vqh
o4EvvKgSAsQsIrg2K7XYfLqmEjrDE4O5PvQ698KR9kow/fvbm+srD1d9cuyt
hKQAh/1cp4UnjW+jVQIvLXs71zX+Mnqm45VAv5BlxjX9QNQx7dlKCPt5woFr
EevZdCXBKljir+PHtd7aoAFRmSp4T2dEcr1nOU1pTqUKdnhkJHF9SvSg04hW
FZC+e3/iOn/IsqXdvApkWsl0rrt3hE/c2V4Fbyr0/nE9lV2mYOtQBZZ555Zw
42N6ycyz4VgVnHkqsYPrwsUGUxVxVfD9uNlrrr9dOKkSllwFp9yuVXL9d/A1
weJVFYjat3/nekOWxq2i0iow33BUlJsfRVbKK3OZVZAqeN+P6943ztuCflaB
2Uxf5H/7T/rhiTULVdA5opXEtfK5zrsc4Wo4QT6Vx/XGfqlPbxZXA39XSQvX
By139/our4akBiHaf+fP65h/WjrVYFLiMM/1E6kGDdq6aoi6nPGDD118ZtGu
55urITFIVY2f+/2+rYGeO6shyzvpGNczW67Gr3CshnKXJe+43iQ5O/D0eDXQ
CBIbBNAlGePB8fHVsFZmevcibv0RX5PokFIN2xaFPOB67rRfmfSbanCZHv3G
tQXQhe+UV8MVMvWIILqspy/5+nA1NH8gXhBCD1goVVv+roaBlzblXC8838/k
5amBicQ6AWH05qCOtVfka2BJRMldrsuF6+vPEmrA2+HVSxE0KUBgxNimBs5Z
q7O55unaIvvTqQZiNj4zFEWv3BRm+sGjBpLXKJ3lmpBWcijQrwbeq8V/5tpD
aCZc/2wNVCtIYQHG+uRvmsm+WgPBIw7S3PdVmOVOHEuogaZShi53fKSUMQWt
tBqY0ly7gTsfHkF9c+rbGlCLvbyNO98tnZlRHpU1cMFdxoMbv6oTySoHODWg
/W/jQ24+fGT5+blP4XgdunK5+fbCd+PnIzy1UPcykDjPPS99eg4GyNWCt+0L
sTn0Di+ZJ5HmtZCaKBHxl7u/yIOsG9a1MMbJTPnDPf88ss1i7WoBCFtLp7jn
qbvN98fetdBPP/v3F7r9wHXF7Nu1oGRMCpjgno/f9vl+TKgF3+iLt8fR753V
CgtTa6GgV+7NGHc/do8Llb2pBaE1OfWj6DincufqvFrYH76TNoKO/Hons6Gs
Fl5+pfBxHbLv0J/WhlqwlL8QSEYf7dTd/qWzFkRCacdI3PPXfjrh249aaKfa
ewxyz1NiPb2fXgsPbctcBrj7Y2/Cesp4Lbjm6dr3o5V2r+seEagDRiT/1j70
jx3+8vz6dfBP7ZN6D7q1ftNRYdM6qI1RXdqNLrMW/SSxpQ5uTd6R60KnWGU6
KjrVgWKVz6IvaC8C+YF+aB0Yeioy2tD7ynMoa6PrYKrh2mAr2mrzlXUb7tdB
ieFETwu3vzNX+bL1ZR3s4GlqaEIzTZ1kXVrrwCPl0ps69Pd8dS+3njrQEmKm
16KbTCY/eJHrgBPg+LQGXZxXwevLroPc7ooH1ei36+7a+/+ug/Ob9W9XoZNy
3dJO/6uDzRmJWDCw3hrpTZwTqQcBScHQCnTo+xlC6OJ6EMsTS/2ODjBovBex
rB6W22135MbzcPYjUvSqejDiRAgz0Hb6PoZ3jOph242yEu56rF3NT3y0rR5O
VphozqJ/a1lIvfOvhyJDjSl57n4a2lofc74eErxXbVqGjkreEeYbWQ/Bj3Wv
aqAV5BzH1BPrQY/HSHQd9/zk9Wt/UlMPqe0Wy+24/Wrf47s3VBogKsDZOoa7
PxKebffRaoAj6Qdv3UcLO7z4Z2nUAIRuN+JjtJ3EmwJV8wZYKuopn4pObMgJ
/GfdANMW3gcz0UORn1b12zdA96ljKdloXfg8WHyoASYpnk7D6NMzFY8eH2uA
ZM3jdqPc+vWpbu/Z0w2w41iQzSSa71SLkGNoA/x8dc56Cr1Lr7Pc6EYDPBu+
smUG3ZfebzCSjM/975jy8WJ9uvtLyruxAVJC3qjLoq1sZuq3fG2AXfkfliug
bwvyXF0x2AC//hQqKaOXhYqN9/7C55fqpdTQm0+oEe1XNsLvcOqsETpKU/uG
wepGSK1mT5mg20j6BIn1jWCz6OeEGdrd2ex9g00jpN3gZW5BZ8iCb8b+RrBt
EqZsQ4+2Wq285tkIf8SkB3aiw6zs7sE5fH53+Vd7dMM/px3LIvA5UbPdCS39
2ZVn9nYjpMvqNx1Au5z1LPz2qBF2OxrXuqFTjY4F5ac3wlB5uUMOd32WX7HT
b2uEV1WsQG7955t+K62i2QTGDRZvXi3wE1Rat/4EgyYQvltidxVtnPa9y9us
CX44bfrjjD66U+hp9u4miKRssBJCNyR6aW492wSdC+sGjs7zE+5uVNp4vL4J
Ak10ZdXn+AmvJN8vje1oAsu5V4Uzs1hvhqz/5fY1gUL1qsOds9z900/uoTWB
puPjQxkz/ITJmJCaubEm4H0c6nkHLXZYLFN1pgn6+7x8QtAa69JvWgs0Q9GK
HX6u6P197XvuKTbDqUzZMzrowBwfo09qzWDL/nNBGn0jcn5xr14zaBv0X/kz
zU8oWr36u/qWZiDlZ96oRS+9HHWk4Hgz2NWZJ3miTeyWWf8IbgY9UbW0Heg9
GnnavFeaQWiPUIYBOqyFPLIrrhnKuzpy5v/yE4aWWpwfKG4GA5pPdSJ6dvzL
Qf7aZhDTsW24iparPWGh3d4M9JNGrcfQ1v6P+U5TmuHZr9luE/ThLQa0hJFm
uLiB3LcUfV6+rv7zn2bYf7mOxI9+Xfrz9iLxFpAUuD/c8YefUHU/JlBXoQWG
t58dK0T3HlV12LuyBepuuf5KQf80KzQO0W2BJXuMZBVx/uKSe5ckGrdAx05j
j1p0kPubND23FijeQHh8Eddr/T+P/H3ZLXBHwUWYxof97e6KiG2FLcCfGTcS
y4/3gacr9ppWtcBF09bODQLY/5sOMJS7W+CYy9bk24sECKxAV6Wh+RbY8kRv
rbEwnn9lxbQvQq1QoHtsyQBaQVw5t1amFdZ8TpuLFsF+/dW3Xa81W0Hlh0J9
nyjm65TpkqcGrXD/pH3WdTEBQqDVI8pts1YQnr9130BcgJBEcroctLsVfi/j
PRQpIUDIXfNph5dzK/hlb9qiL4n74bKcvKNnKwxtPqvVgx5oCiZv82sFl/b3
YuFSAoTfil/emZ5phbgP2gEW8gIE8WNrL+qEtcLHrITjhgp4v/5031rlZit0
ZQocVV8iQNhjbze4kNQKS56RXEWUBAjeKTlvxzNawSxxj/Mc+tKI5Pmh961w
ML7EYUxZgPDqZqt0XU0rJMc83tm1VIDAW7Vr6x1OK6idszNNWylAUJR+Ixk2
1QpWp8vWxqsKENa4i/QF8bTBUX+9NdFq2K/N1Ac7yrXBqyPCmv4aeF9Yu+2l
inkb6NtVyJppCxCarr44JWHdBnts1kjq6WC/0ca/+d/eNgiyThJZoStAkPCr
6h460gYfzc/zLNITIPg8B+E3t9pgg47hKNEA7zcTz74+fdgGBzSesaoNBQgP
YCH1TkobXFohTss3EiC8uePmH/a6DZKUL5Jer8X60FdidupjG5TKM/uS1gkQ
unWWCh4pbYNWTdEAPvw959ylTsf6Nvh9QFtwF76fr673mXVHGyyNtX52f40A
QUluo9+GvjawqvJe/11fgGDolWiqS2sDv6mItpVo6/d/+ZeOtcED3TQfXxzv
aduCpH987TAU15/wB+fTcs24rU63Ha4e2f9HHue/UaqZ775JOziEXx/avQrj
nehp6kpoB42UvNbrWgKEyOzY1DGndmjolX3xG+O38RvztGJ4O0g7tNt1Ybxf
eYVlDt3C9wcubJJAK4zI/8hKaIe8O/qrtuH6TPBabtuS1Q4ujbfm85Zjfb79
/YJYQTvoMoqZnGU4HoWg7K7KdpgTGP6igX61OnnJiZ52SCXseBOvgu/LX2dr
PNQOp93PPWzBfLiGK7bAaQeryxlXBdCTTR6fGv60g8KTLj9zzJ/3b2ZDdvIS
gVAgkCSD+c8Ys76bLUgEJT/9hjOCAoTlJnGvF4sTYXL5/l/fcT/eKtce6Fcg
wouoTNt0rJdbWRHvBbcSwU9z5F31AD/hwpq2Jr/tRLD6Lt+7qg/7t2AlGtGW
CMvubBa83cNPWL6Qo/TUmQjtv+66OxLxvinbH2HgT4R1NWulaJX8BEMX7eT4
00QQO++6aWcZP8EnObhg+hwRaKuvHXtXzE/4ukqUUx1BhEcPusrPfMR67O8k
qHODCIHbF9jfc3A8uakrY+8QYcesluLmLPy+uamTy2MizHidDxJ8yU9ghEcE
liYT4YtCWtKJNBxPfetNtedEeNvU2NCWzE9wEld6Ef2KCFuOOd88eAv7H3vv
Ms47IhiYXt5QcJ2fUJ2Q883+I85HKI2x+Co/YaZvZjK/EMfbU5sQdJGf4Otz
f1V4NREYZ6V+6wRiv/f2xxZ6AxG6rI1fRB3H+9z4qkM2bUTs5w/soxzB/u5S
2T3570RIyU//kOTCT1hxjz39epQIB6ZMAqS2Yv/oGfY69ycRInVaP7SY8xPc
1y0+8PkvEbIOef++aYr9WvfGwha+DuCpjrssoM9PUFwWc3ZMoQNe3x2LmV7C
TygYXab1V6UDvlRFteXL4vlU8aGLR7UD5n8vkw2R4Cc8PPLdWHZ1B9gdsk0c
5cPz1cSfqmzYARfvUn68necjfBXkjVc36YDnVRdXHv/LRwj+Fm+pt7EDWn/L
eGv95CPIvtH+aQwd8Ef7dSZlhI/w4VJJuoVVB6gdIrBTmXwEu912DtY7O4C5
4PNy3w8+wvhyKu/ePR0gGOa6e1s3H+Hu+LkPzvs6QOPf3t/riXyENVVinh4u
HWAZZpWs3cRHaHuQIn3crQM8/m3YplzDRxA3rQ+8eKwDkv+pPpwv4CMsqjnK
Kb/bAXd56r7GRPMR2H8GB7oMO2EfdVy5sYqX8GL4c5Nk7Bd4++9YAEGHhyC5
LHOMSv0KBkbnM6+fm4fbxz/5pGp0Q5A9Z6ZfdBamCG+pvmE98Gziroho1l8I
WVuTp1D9DTItlye9y5uCweyaWx2qvXA5mHyhof4XzJ74+lTnYh/I7r1s/Fny
J6zeIrTg8/kHnHD6vFUhdQK2p6se+7BkAGwGXn8x3D4Oxo8lteqWDsAxRZs7
flvHYWXsLLVXdQCuOXCsMyzGYeZCl5eA3gCU1q0pVjEeh3f2N92dCQOwJudj
qqDqOCzmnXCa9x0AdZ5LfYW/x2DwcIXVzuIB0P6xv9XXawxanN7xu5cPwPfX
9Y/7D4xBoc2TqtM1AxBzboO3g/0YxJmGEJLaBoAtqzy7iTAG26S0zceGBuDd
zn5tqeVj8Lbs7rqHYoOwtuDItU/fR+Fx3uXJ19KDMHTt617djlG49ub4hzL5
QYh32KaS0jAK7gmWBswVg/BrRCv3RsEo2Nw2HJ3TGIQXnx+FzmePwoaIZe9k
dAfB8abwztMZoyAT8Ed3k/Eg5GsMD7o+HIWFI1TWXrNB8Jk8+JZ4exSGD3S8
8t48CIoVzWe3XRuFnr1lxy5YDkLDHfOtxZdGoWbbW63YHYNwwfWdhEHwKHzY
9JiWvnsQdHSWf39+YhSeGV1/UeAwCN+nYl8oeo1CzKrTR1qcB+FWzb/AOwdG
4dyyw2rkQ4NwWuHyVqcjo+BlZ7j/h+cgqAy9i9rkMQp7InljenwGoerdYJOq
2yhosZ5PtAYNgsw2y32j+0fhax6zovjaIHwIFvWO3jUKhranD8dnDcI48fH1
IqNRWBpm+eDuh0F4lNTUmLJmFIRy5epj8geB4DsnEbV6FAaWFKwJrxiEu/8O
JzhojsJtyuy8/9dBMFizKpOtOArnFVqNjn8fhO5pF3aH/Cgc2fnsqPfAIITV
xhgUyo7CxhxC60HmILQdGi24Jo7jG5Lh3T8yCGe1V86dEMH4ylOM7ScHYfkv
e4K94CjMbc/ztf0zCHXlkddM+UeBefF60va5QQi49alhGQ/Ge/9q3zQeEjSB
al6G3ih4jC/mW8FPgiqpWKPb6O6bc0+TFpGgeHAm+xTaRp1moixMgtycY3rO
6IqS1vZHoiR4E/b1tTl6/f784/ISJEjfu2WVGlrtZnSytCwJ4saU1UZw/o/V
gkxj5UgQUx6d0omWLHHpEFtCgvC7v5YWoqdHdRYJLSXBKYO2JZFoomPLyXlN
EtgHhksooa1H8wQvaZNgJ4zGLOiOQkl0cupfXRJskXIVpqIziwO+/jQggVGO
MX8O+spKGfNhMxLIjDH+WqF/FU13HTMngUi541ld9Il9Q4G0zSTgvVv5Uwrt
FPXxOcmSBBNrno726oxC04okC3drErAWhE5WoAlF13r6dpCA3BbCeonOd/A/
dcCGBN+fkX1uofU4TmI9u0lADNhDDUIXOtqWx9iRYLkvSdURbVm6NXjzPhIM
b6PqHMXvtWmarZp0IoGmUQPDDH0w1qDvpQsJPJdmvZRE06c07x5wJUGS0L0j
FPz96cNLLSXcSdAzGaxaiL5pKPI25AgJ9jRuSvZEyyX+c9f2wfjmrXBdj07l
nZL94UuC2hR+JTHueDqHLloGkMD8bHN8nja+P6Rkl+wFEuiqu94WQp/uz12o
vUQCH0nY9WPVKMxve5174QoJ0qbVhD+g5ZYkKJMjSaBIHI48iLYsChzOiSWB
YOjFS++0cD6qPs+O3Mf18HU3i0AfjDnksCSeBKH7tv7Zjz7turP4SiIJfumI
BvOgF6ohYG0SCQzkRw27cD/c1FuvRn9GAj+eztHXaLmHet2JaSTIYH/KuoJO
nVeL2f2CBGeOz6vZoPV8lDbzZpLA+qJHpxS6oE1qMu81CZbcqg7/qoHjSZk7
sDSHBEVZN0lu6Pkt3TrsIhIsjMk/C1IfhRtvWvqflZCgnefCbhO03OLq+w7l
JEiV+TE3rYbvp+ZMF9WQYOu6dNdI9MGom4032kkQdXaNUoIqxm80LNS8kwTO
0fcbDqJPOZ81Gv9KAp3Hv86tQN/QPpLo3EuC5qLi7lcr8f33D+wW68f1bFoW
5Y9Omd7LWz5IAv++qyZr0flN5se1aCSQmreO/7xiFL+7blkvgwQkiTeWV9Gt
T3U67gyT4MNyiZ9WaBeBlde3jJAgwiAoXQRNPalg9nuMBPsIX+zblo9CUJf4
yKtJEmjYr+d9gJ6z4E879JsEU56J753RNzKmHaX/4vqEeoy9XzoKi6XGhWtm
SPA0dtJkO7qzNCZ65zwJNg09uk1VGYW4k5qC7f9I0GdiQQlHyzYd5O8VIMPS
/uh7Jcro67XzY5JkSF69jG2kNArSs08mVdTJkNKwPXWpAu7n1yan0jTJAEtH
poqwvt1zIY5paZNhMDButzNaKn/RiJE+GVYu6Z+5L4fr553qV2BAhsoTEfYG
6NjFm4bN15LBs2zVq5bFWD9OBTG2m5Ih7ehpJyF02woxn1YzMmwtWpL1Autl
bNtLqoM5GYbES/m2oveEEo5820yGCA+vA4MyoyCh10d220IGtTyh95fRLb1n
PCiWZKgWeieojL59U3rQ15oMR1wd3AqkR8F2w1u30R1k0FHw9X2HFmds+xFs
Q4bJ0cKJe+iWh6SD07vJUFIvcikEfdvq0vcrdmS4nnpQwAUtlv6++6YTGRQd
5hRWoEXdVDpSDpNh8ycwfyeF9UYsf6+mFxmEYu/V3kPHFNu1vfEmQ4cPeU8I
WkQxqvnTcRyPYqTnJrTwl/Ha5mAy3LxUF9UoOQoN4bes7M+SYZ/jEul36BuG
WtXd53F99H0T76GFYl0ryKFkyBkQyXJG15lPbT52lQznCw6abEJHse+VciIw
fvfeli1HC+6sK/4TTYauLbs7aBL49388zEJjyPBM+dnBRnRUxmwB3x0yHPs5
SslCWzslrL9xlwxGLeB/D71IwOiTRBwZZl7cmwpG1+Q2r3sQT4aaUHKYM/qa
p0+u4iMy3Nm/VmQT2kqa1+hZIhmWRTk9L8b5CZQ/zVFPIkPGC5pPD7rX3GrH
4DMypEqkP5hC5xRzSE/SyPDkrHuFPMbzYL6FrGwmGe7u6FFyRH94NxjCk4vz
4zS0ENFRq29IlOSR4bTT9ekx9KHXhhnnCsjgX7ZFSwrXW/hleM9oCebXveKw
3Wj3JPWN/fVksDHOWtuENlZu6XzcRIZtyb6HWWiRxyF+jq2Yz4Kat4Uxv/Ie
1CY1d5LB+FsyzRodIxNgEt1FhjVbDsr6oD3uKrRt/Yb580YBrqPFbh37V9SP
871893E1miQs/fgMCfODZlM7hM6PKjQ0opBBdo/wJC/m920Bz0YOjQziBTXL
VdFeESJer5iYLyvDbQjoDTy5M0fYZOC9aXH+MFriysEHK0bJ0PhwKKEN3zc0
y6fXN06GGH/WfCO68MLbmoSfZLDdNu5dy90vf/a5OUyRQWLZn+YK9JEzc78l
psnQ9mt+bYksd7/tXnV9gQx2L8R4P6KP+o7dDBYZAif+Vcmp3P6E/kjNQHwI
FPr0BZLQ0t6Ez8OSQ/At19jvEbrk8H2Op9wQHPTaahaLlnVet9duxRAcrnTr
uoRmfu1jiKkNwcpEb/Nz6FKHa1frNYaAHOT3/DTad0/Xh826Q+C98sKp4+jN
LaG7ZvSGQPNv2Ddv9OJdWpRPBkNAb48CD3TZtnNy+iZD4BsWL+GMjq9e8Y5p
OgS6zk9DHNDHtzRse7FxCNhr0vt2c99XHjRw2GIIsgRfb92JlrNQOqdCGIJG
+dc7yOjh4kqpnq1DQLN+pSOO8a3YcOJV3LYh4DmfKWqK9jP+/F3EZgjW975s
uc19TuzKKtw9BLFGBFo+Wt5/POyYHf7+Ru88CV3+UlOr1mkI4k2lDEywvi1e
cu/0VY8hmIg/f78f/XnaW+zPmSF4u9dm/xqsn9IJYQMvzw8BfyYtwAV9dO2T
D46XMJ4LYdERaCm/dufcq0Mg8i6vsBvtLTSs6xk5BB4Cezt4loxC0XOBBamo
IShwZbF00ZKEFR1lN4ZA6mMknxP6yA+zF/63hsBHdLlKGLrwvOO5pbFDUOpZ
uO41WkI+cFfzvSHIkBdopaK9PtxcdvHBEPxQ7FzKi/1rwe4X49oJQyC7NPXk
MrT4cFl1z+Mh2LEioMQM7Rn1PSHq6RBcUTMX348WK5e0oKYOwbD2t7exaA9X
HekHz3H99TJm36A//bGkbMkYgv0GITb16MOGF26mvB2CKhNp9j/0xzRK18H8
IXiydYfuKTxvXK8VBnQ0D8HOQ4Wv9uF59HanV2rZ1BDY/B1qsMXzzFhPdTNM
D8HM9c37T6LLJEl95bND8HrxE8otNPGL25JKHgoIG9gvNKF/uR2IrRalQO3R
8nU7l41CKEFRz0qCAiE/lSt90YLqPY01UhRQDz+75wZaiem4qE6OAhFJ+sfr
0ZtP211uWE4B+PL02TY8b+sdpZR3qlJg1OPP6qNoO9O2gkZ1CiSPOhRdQ3vN
2fxs0qbArIjo12o0e0D0vs1qCrx9dNSTgg6pbFzTok+Bg5qVo3x43i88v9Fi
a0gBkY9LL6uho6O2n2hdS4FCwnmRrWjp44LCe0woIJlnX+WPfmJT+7LNlAJK
HNuEk2j1Ndcs926kgIbGjhN+6CxpS3K7OQUMDlluPoE2+ckbZgcU2BS/WfY4
uqyrYmnHFgpYt5jRj6GJTza7dFpT4JC5YexR9IHQ+d8OOylwLGS1lzd66HDJ
gy82FDidpbX+CPqXxsb2r3YUuLF02YAHWinHxLrnIAU+zYmsOYROv/+L4uxG
gQrjRXyuaL2Qj+HfDlOg+SRP9wH0ZjOj0u/eFCD/mAp1RntV6xn/CMD5lVJa
HdDsl+yOQ6dwfr8H0uzRITfeBPYH4/z0e8/YceOzW/vtwHkKbEwmLtvDjY8h
Y8fhSxTY1tU8YcuNj2wGfTCUAnYS9bU23Pj89r7mcZUCrtuqEndx49OjrkaO
oIBPaKn/Tm58iofKPa9T4PiE5PRpXJ+ypDS3oWgKjD0orNqP3h7mMesVQ4Gz
671ub0QTPVckUm5TYP6b2P7l6ANWA+u971Lg2qVPK/jQQ1rJX6n3KSC6/DCL
hvnzm60sTU+ggOKR3Mvv0PHJjPqkRArY9x2nxqLX7c0L25dEgVv7VG2D0Kdy
d49VpFHgn+U9lXXokfNX255mUYCuEVBciPlMW0S/bV9FgY90nb/V2L9dK8i1
Eq6lwIg7+fBLtPrxsLmyegqs6nlcH4WuUrbNO9NEAc+9dga+aM8WxZN6rRR4
Ui/0aCea5wpNndJOga9QvqCLTjHI7UvsxPUoPOsjjt5MvvLArosCOwzXtI3g
fuyPs7ER+kYBUs7tESbu18tWivxlvRSw6JlsZ6FVpqjFIf34/gWX3GH0gQNX
dIeGKOC4W/McB9214oNI6QgFGodLecbRIR2hlcHjOF5ZDQrXiyN3XdD9ifE0
i6mdQNvTKcxHfymw+cb+mJ/o1iyFhtP8VPioObb4D/qkOyVMR5AK0rudprgW
k35vShKmgn/I529/0TuDd2bulqSCdnV08gy61uxylLYSFZI9Vq5aQHuzd2we
VKHCTHSUyD80f7L81MPlVHDO4bC5Tt8z9M5WlQp53Q5tPDj/LTw5R/k1qCC7
UPieF036cGlZsRYVAjVXPOBDhx3Z0RWkQwXNJwlfHdDL5eXvrNKjgt71z8ui
0aV1ZKuBNVQwDiL5fEYfOp89F29EBXPXRe/H0LM6l/JsjKlgZa07rY7xN7sj
p1FkRoV9S0Nu3UZ/2redP96KCqcbhN67YT7csCm8vnQ7FZZvIl2JRR+y1BF+
uZMKje8Kd5ej+daJSeTvoYLqg+PslZhPe2TbFb65UKHdrVmLilYVJSR6uFLh
IvH5bznM31+8H1RYblTQsrxcw613TyfiVs54USFUW98rE80k7tdd6k+F1T9j
k7n15XNDfdaLQCr0HD128ik6tmKDgf5pKkR8g00taM/C1x8+hVBhjY2i6Dza
+L2y8eZzVPheOv5NH+9LQq9u5dddoMJ1w8ZMd3RvytyGvZepcLnTYug+3tey
H/l/7rlCBevSXmUfdPjdAQuPcFzvV+f2bUQ7Ru+tYEbi++LkbkuitcMqtp6K
osLz0A81Q3h/awtI3x5xiwqm+9gmt9DKe3zsXzykgvuCu+IP/N7Itp4veo8x
P1izdu/RFRY79n96QoXJL49vXkP76Ou61qVQIep154we+qP4qDfzNRXeOVr3
h+J8ogQOM4KyqHAOKPLc+nVwrv34dDYVtuhe3aOF5uF8CBDNo8LXf0Xl3Puc
bfOZ83plVJh7o5++Ar2imj6TV0GFuodNvT9xPSaLnUMtqqlw9+qxxQ3outyG
f7W1VDjgJ2CbhE58Yxaxp4EK6vvTrnHrxcn0NwI9TVQYIWwutUITnqhEH26l
Au8DES8evA8vjrstwmynwqolK+8aYHzoN+dvBXVSYffT9SXuGI+i8ADJ6a9U
CF6xm3UH53f7wuC98B4qJD4/olCK4197vPJh3A8q0N7eC1LB8YbtuJ6SR8d8
KBnW+Ib52unue8iQRYUQyc4AMbTGGRulLDYV/DyKCjfj/mlKk3nwfJyK99wb
ti+x35CbTY6Km6HCOlvNkNPYH/nIhFtKzlNB95l42Uvsp4pWefPE/KPCyvGf
Qt+xX3N31L0YLkADyfiqp4D9+qt3+f5BkjRg9R2uFsf7zUx1oi5HmgYk/e0S
BLx/7O69zDi2mAY9YWucg8VHIXX88AuKPA1aO+TTMsQwvoKWnocVaVCjPj/8
XRTvK8u0lvcp0+DzGaqxBPrROpG+/ctokFvffIUggv3iTs6jzhU0uHN93xpe
vG+Ye7Q77lGjgS5JLLUKvxd7NlemSYMGdRtrZK7h+8m3H7ZtW0UDr4eXI7fh
76OKXHdY6NHg6a4RnwYBPD9kmZv01tNA4lObftvsCKjpNP/N3ECD11LRKXen
R+AMZH9S30SDbSdAxv7PCCifDDFQIdDgyor3v75MjoB3LY+66C4ajN28//k7
awTy+yiD121pcJu6U/8pYwREJuuSePfSQBv4Ug7RRiB7+R2F6X008Px1OmKQ
NAJ/zymJMt1ouG6OO2k9I7Ardq7uiAcNAovEP2d0jUDyi8HIQS8aiMnV6vl+
GYHx4iqC61EaZAaEPtPpGIGtHS/nu4/RwKoRG7i2EYhn3Ch2OIHxVx8Nz2oZ
Aca837m2kzS4fCXjp3/TCGyU22u8K5AGit/djxo0jMBt3bUTtadoMJkTvNcE
nw8Q5LO3hNCg4q/95di6ETBy/nui9CzOZ4vha0bVCHRHllHzLtFg1RcO35PP
I6Dav+vb8+s0cJ06mr+QNQIxVZtynG7QwOWPm5Pw6xGYzNSLErpFA+e/Tr9k
Xo5A1WlJY797NHCa2bZWMxnjJ9x5d+1TGuxe0My2uTMCr9Yd2F75ngYWgvSX
j/1HQFpp1/LgjzQwFxqwSj8+AhcWNv7WyKeBmXA35e3RERiirG7pLqTBepG2
iE+eGL/Gpc9vfKaBiWidarnbCORmS1zcWEYDY7GyioYDuH7xC3acChqsFc8/
3Ok0AhEXxlY9q6bB9s1dj5P3jwDbnbSwtw7z73ROtpf9CDhadXTxNtLAIPNm
zSrbESjRqcr62EyDl31HejnWGL9fzw8u6aDBPStFwXPmI7Am5lj+QB8NvBXC
3W6tGoGEQJc79wZo0LvLNdhObQT+Oe703krG+YaZ3JRfNgLEFauxQ6KBKZOV
lyI7Aqc+jfr7T9BAvNhBPG+eA3mkM5pzgnT45Kbx+ccXDmw0vRavtJYOUYsr
mzxPc6DbS2l9sjEdQudW+YE/B4Jjs3tWmtIhmBYrtsyXA1m0b8ra5nTwLDhk
+82NA8vj9dPWW9PxfPvbumcnB/gmut/tO0iHyXSDjk0rOfBs6cm9PYfoMHwr
4ZSSCgc27eCdOHiYDoMh8zJ/5DnwLTghbsCTDl1u3rlfpTkQkrLa2MubDq3W
zQ65YhyQbq7oovnQQfKEzG/dLja8m3I6d/w4HSLNumsefGXDLjW24ogfHf4I
P42f+8IG+u6rxUEBdDj57bD3UXTEBflDv4LoQM7UMG7rZMOKl2/mzwXTwekc
i98U7TL3lRB2ng6gEPxcuIMNzW906u9E0EHGMWrobRsbfLvLfGWu0+G6uk2u
HFqAz1H0YTQdZialIkJb2bD5wJXdSbfpQLmfqLq3hQ3vhb58eZOA8W3P8phs
ZIPtOt8zaxLpoJtyytAVzXKfV8h9SoeUgPU8NQ1sUMtfdbAolQ43JCpSHtaz
Id77Mqn+DR0O2nwZ2FDLBsN7MhE27+jQrvw4O62GDa2fM9Tbc+hgOXzoiij6
BGNTrUMuHQqLVPcEV7NBcHGHT3ceHfRv0pf9qGJD+mYf4YMFdEhzeTtihYYT
s6/7i+jAqxRr7FjBhh8P79l4ltDhcvGf/lfo85WaI9QyOky5ekbPo+VGimN9
K+kQNN9k6FDJhg+Kdoacajqwnxn3ZqCHAy8G/2zA9SQL6dvh+w8tb5/m/UKH
xmPZnek4Hkml058+d9Ehf4yWuICuXCx/6sw3Orw4t8zzII5fS8SVyeynw9Xo
22MyON+xn/TudiYd1meeEA+vw/GP3oy7yaaDhkH6lx9oR5beHstROsgWfH+y
AeNVOHC6Nv8nHUbqduiMoyMaFz4mL+D76VrWhzHexjVpgc68DLgf4C7xGc0o
s1otI8CAsKmHXxWa2PCkiEFvEmSA/5XWp6fRtnkx6ddEGOAquOhIG3ohW999
szgDYmfEJ6ObcX1fE5X+SjIg3iCwbx+ut3yKwn0/OQakJq7LZmM+NCQW2Wou
YUBG28NHBZgvF+MPCQ8qMeAt/9+rke1sGLiZHuawggEF/iX7VDDfXoWsCTDT
ZUDblm3TuzCfDwZ26PzUY8DXs5lDCpjvEidCaFkGDOh9K9IyhD59uPjQShMG
0OXbnl3sYcOmXdY2QgQGzLP2W73pZUPbCnftLicGrI7zvStCZsNVZV5qrAsD
jOqbzneh18m/SNnhygDTOT2vtCHcL1LbXfncGWD86gdHncaGx6LDCiUeDHB7
lztfgt616E7nmSMMiM69Ibmfzob5fwaxBj4M+FDgvmIM7fX7zKLnfgwQqBLd
osrEfBlXrDwUwIA19ST7YnT98OfLCqcY4NKS77WPxQY9Eu+vm2cxHt1e164P
s+F3052hoHAGOLCL61kczEexLt+5SAZsjw/9dH6EDVW2S8eioxhgbkF4LjTK
hnttb2af3WKA1t3aK5pjbNDtrJdrfciA6bVEE88JNkgvlnrq8pgBo31x6uPo
P/v2q1KfMIByzUkmbJINNV1U/dkUBrR293KSfrLhjYJeXlQ6AyrDkntX/2LD
fefgjbIvGZCv7dFQjD7/uLgiORPH26GWv/M3G9y/827XeYPrfZH2/BvaSnln
a14WAx6qv7p/bIoNq13v7SPkYLxyeMseTLNBNqnne/MHHK8Bn1sZ+u+P5R7O
eQyoy+abY6IHlvnQh/IZcHQN/9PFM2yodX93MqCIAYuy+TduRseRNl24XsYA
q3cC5x+gz6tG/pOuxPnoLVpShj7s1XQ9qZoBkVmL8ploPapL3McGBlS9Ffxl
McuGOsaZt+ROBhDeCAcx0VnapUb+XQwY1BGRWjzHhgfHBQr/9uB+eC2SbYH2
YMfVSPUzoOyVKCcOPTOa02/BwPhnivtazLOBZPDnSCOLAX1aEkK+6PqgzcOO
HAZcypDIiEPHT7ZM+U0woPilJJWBvrROLvTPTwYc0JSKlF3AfAlx5Y+cwvV6
IaVmgd7xKf2m5DQDHmtIVx5DG0yxpJ7MMmDDC2mPOLSCqVGC5gIDetRl/pWg
586dX/qBhwlJYnu1A3g5QCksTzfnZ8K6LOIpOXTTtKBOwyImNNo6fC7m4cD7
jXty9gkzwWPki4An+tGlhyaDokz4c8dpjxDae15965QUEzTaXcj7/mG+b/Zr
CJdlwufAXt0Z/J5RWO4eCXkmOEgfCklFL/BscdVQZkKY/WGhEZzfYwH3EAcN
JvR+OaofhfFaOLLEpEOLCZuvLTVbg/auJv7eq8OENOMvVt0Yf8MIy3O71zDB
9yHhkBa64Z/2xR0bmPB7v8qtOsyHNYeHNtZvZIKLUGdCADq+7OnsNgsmlBTc
SFdAe4RKhlpuZUKE4lSRz19c3x/1FlVWTKA3ZNVKovXMwxcI25mw88KRjvw/
mP8zP8M22zJBupfIFEQfOviOULqHCcEx0b+yMV+rinx4ze2Z0L1xM48zWltp
ZVXxPiYIZ46+34T5H3v+e4TZfoznL+p27n751RNnWejChJitfQNzuJ8OmtoK
mLoyweZexxk3tNZU2XVjDya0ri57vhz33/6Jm7d0Q5jQlRjkqo77u8TO0vb1
WSYkMHwmI9l4/r2fE9e+wARnE7ebVKwHowGBsZpXmPCduLPgJdaL6xzH+ytv
MKFfSH2xNgPPGxtJh5QYJjxzUnpzA+uP3dt62eV3mHD4udQWFtarpSc2xqvE
MYG8eS7gDZV7Hvx0fBLPhPTbk4vE0Eztd/JKj5hwpJeZ5EdhQx5jxSOFJCbQ
znQ16WE9VN7+3fnhMyZkVDd73uHWz4w4Rbk0JhyTqfo7QsJ6ucj2e9xzJmgf
Lry7B217dNETmQzMr+cvc9wG2JBbU3bw3ismyM33TsuiFTXOq0i9xfjtl7Zq
6GcDdWg4Sfw9E9aKXvq2Fr1r6wu3W7m4fkfeqzF/4PmS5rZc9BMTnpbSTiaj
L3sQU4SKmcB/yo5XGL144FM6Xw3Gs0dTtx/rfax4aGhBHRM+HvJbeRstusnK
5WQjE+6R3ytsQvM97pTobsP1YW/iT/zOhkn7sfOvvzOhcsH+h+M3NgRczd/n
/gPjGfmokx89nB26ZvEgEy4J9zfk4vlCFhOnXqYyYb2s7ydp9KGNX8qMGDi/
R+/elnez4Zvvk0Q6iwkTKj/TAtDEWu29dmNMyNK8EtuC55XtrzGdRZNMuPmm
+toldINagUDxL4yngcglbj9nZX9lMOAPE6grK287Yb9WHratWH2GCXMb02MD
0RuzxR9+m8PvOUXeu4nO//El8M4/JqwO9I57js4289L8I8AC1+daCT1oXV8d
niwhFpwuFXo8gc5IGO/1EGVBTA8zUQzP1+SfV+41SbGgSOxtMqBvv3s6m6zM
AsUQg5eZaOEfXt0Oy1hgGCudWYm+Jqr7QWglC7a/mnjVh750rNDnlCYLzv34
mCWF4z+h2tVhZciCLqsNeefQ9L1JWdNrWTDirpR/H+115Uh0tgkLFl2YKXiL
PtA3Ya64iQXG70o+D6K/ihQtabVggW19cuk02m7D1clwAguOkK+UL8Z4tvhs
b11vyYJLs4cr9dE7Hkq+Ym9jwQP5LdXb0TXVXRGpO1hgHybp3I6/J0wmuTnZ
sCBH+86Zjfi8ZKX3BtE9LBDvFIt/iTbdu3pxuR0Ljl+KyeWuZ27o5EjwPhbU
aYh0XEKvySpq0N7PAo226DF6D7c/23ElzpUFAyuv65VifqSbSh3Y7s4C8yZ+
G23Mp+U+3evmPFiQGBxx/AFaodqbddSHBY51YRnHMf8WhYY7mp1iQaPfxZUK
mL95E5zp8mAW6A4oKF9Ee/u4pFifZcEtu4+LB9A1ew2G913CeJhwBDNwf4TU
PLnbG8qCd5k3eERxP2mYCZp4XmWBpLLmjD/6mlp/WMB1FhAX3EZMBrHfe7RD
83c0C4xOzdAT0VSxvKZLMSy4T0kgzaPjr64I4rvDgkmndb2euH+tfsfI37zL
gn0N7V9q0b+OTxVLxbEgb+PJVh3c/y8GPD0S4lkg/064nlsPHPe1Llr2iAVn
V7ysmEALNGx4+zyRBaz1LmVC3Hpi/sJON4kFB3Pzg1zR3h+kpt4/Y0GLvrx6
DrrmCZ1Q9hzXR6Mzej/Wo0j/+O5v71hwRtbW/iXWL77F47ySVSzgHQXqVuyf
cqNdM+NrWBB8/FlCAtprrs5WpZ4FVOrcjmF0FS35kXYLCxr6it7dx3oZUWij
b9nNgtjGdedIWE/X6hd0Nn5jwT+rOB1jrLdDaWrn7fpYcKpivC8avfXWdJUb
Cder4B3BAOvz5D9vX+oQ5sNa8Z8R6PQQooQfjQWm2SdedqMdWJs+TjBY8Fqn
0VkX+zNe90yX88MsUH65SvQK+n2n7MIChwVNYSHhp9Ee2688vz7GAoNxk7RP
aOkS1g7xSRY89PhT8RddYeg0GveLBbPEQtIm7O+CXlY8UPrDAo8tF3nC0CuV
9cxSp3E8HzatrEJf5ee/9m4B1zOu7PAO7P94XrvnDMkOQ6l8kxu3/6vj9ASk
yA/DZ62NKm/Qtw3t1xxSHIZC0zffJtFLCi3fdS0bho8HYvZdw/Pqx2zJybiV
w/D+xIx0Kzod1uvtVR+G7Esn2uTxvFtTr/22QXsYXifv2pnJPf9E009cXz0M
GdnFguPo4j0qulvXDMOLct2aDXheXo2LZy0YDkMa8Ul4OHpbt8Trz+uGIYUs
Ck1oUeVo3/PrhyFp8uKcLPaPRDcebROzYUjkZxe5ohPSLjAmNg3DIznXcy/Q
h2iTGdmbh0HiqrLRTlEOqOmc9PHbMgwu7qtcpUQ4wDxJ09S2Gobn5sbXu4Tw
vv6r50XazmEwm9793XMRB2L4S9PjHYfB+3R4+EXsd4pUo59dPIHx8WZ2vMXz
/spRHndT/2EQtPw9e4rbz76+sOxX4DDYq/JpcedDNDyZ5H9mGOj9KhdrMH4J
ITRX3fPDYFSi/SJmHMdX6K7CuDgMl5+YtNnhejDB/onH1WGQcd6r1o/5kh3Z
dGBZ5DAcMjlk+xzzLaTeUqn3+jBkLj5+9jjm50ax0m8JN4ZhYuJMqgHm7789
6x/vuzUMFsSIpt943tfE5ThLxw7Djey7vz7jeR/Trb2k9R6u39/IjoRlHLBT
Tu+++QDX/+Y5HVEZDii4qyRYJwxDnbJfeKgAB36kxTvxJw5D+1v37+PY/6TT
JOQrng7DN3MHI28cj74/T7xZ2jCMu5uRd3Xi/C/T7utlDYPSc6Etiql433qS
c0e2ahj8V7/g+biJDQVzT6KraoZhbaUZ3cMA+1H3qPDT9cPwd397s6Q6G6LV
3c50tgxDWMRMwglRrN/XdwRGtA+DleK9y4oLwyDLXHd8becw9veaXnUTmAdZ
om5xPcNw77udvtr3YSBLTu3f2jsM+wPpskR8j9Ypst3kj2FYuujy39CKYfD7
0rIrfRD/7onMwOo8zFuTQiuHoWGgHjkqzfk8DL8fPd/MRxvGvq/TaQ/GceNM
7IZcxjCIxhGevj84DLVlR/VkR/B9FSpaZ3Bfiaraa1WNDYOB802/ngYW2EWa
rzw9iR6dem/2mAW92xfLdf4ZBselnZsW1rNglFgxe5+PDc/O37CPxr5OkaLS
LKOI93yj35cTx+jgtk2otlIZ922DV9VsGR3SMyfLTi3DOnSYKOQeSwe9k425
HWpscL7zNk5Nnw6n2vKywjXxHNVQ+nZtjgb5hqkZRtrY93yOWsZopsGW32ef
3Ndnw12W56u3J2gQ5ewVv8UQ1/Fq+4jERhq0FO2OnViLXmKxLkiEBjJLzW6k
mbBBiafCZetDMuy/ohFhvwHPWa/hZbr2ZHhKkrrMi+t4t1aOIiNBBtLW2TMf
LLAP04ZX0w0kOCHUeVzGEuvSyIO1jQQS5BwvPVK5jQ1TqZfHPKcH4VfzK7dT
O9hw0qfjgtGpQQi7F2bfsZsNmhMXY4keAxCvpG9234UNTYJtBZKEH1C6+oaw
TACe22tDRG8t9MD6r0ta44LYUC1msf1qWA+8v5x5Xy6YDeK0RdfO8PRAemud
suJ5bt/2aP4wXzcsPbt/MPEiG2xOeWx0iuyCh8vpz1VCsc7t0jm3S6ALJOvP
+CaHsWGLxuRHuP4VbgQu0l8RgftkvnjcWPAr8Co+nEi9hudwT6S+bvQXuFih
ka8WzT2nTacOLumAX755F1/cZMPuxJF7U1Id4C9jBVq32RAV+Hx1nHAH0Iu+
8L+KxXhsO1Cnz9sBHl5HGnTuYzxUpDwbp4ng8DHCXj+BDccbLibwsInQ7Cqr
kPMY1+OZoVEShQhWAum9hk+xzobQm01/EMHUqfKIMe4rG1UH3sBWIiz98+/M
pjdYZy/qnOzPIQJjY+iTnWVsGF/9bUtxCBE8KOKHmyuwr+OL/eHkT4TeW0nq
u6vxXPlmeW7iKBFafnzOsmtgw5drOVnazkSwvm5zqrMJ66zr0e01e4lQrt9n
4tjKBksjlaHDO4iwofvETFc75pdQx+VZAhFyr8yUOeO+/9gfteSRGRFWr4qJ
/I59Huejee7atUR40a60wxX7oPXvO2InJIiw/Pxr8X7sc9L90g0t0Y9WmnW4
Y98isSq4M16cCNKNDQ9J2JdcGLIMoYsRIeaUy0Ev7BNoyXIKG9CXq85RjmId
K5HLP9AnQoTfJ4ReMfAc1yZGzeqhAxY/Onkc61L8LefkK8JE8PTO/30S66wf
3zRJVQjnJ/hbKATv+Urjm3x9BYggs+u0XoQkB0YSIkeG59shtVJKbCPWQXM+
seaguXYwNHvHmliM54B/3KupmXbYo83M8FTigLZV2hG+v+3Qn3L9utJSDpzN
0d5yY6odTi5R9+5YzoFa5ffLJX+3w2xsxdabqhyQizKde/CzHWIE3VW3aHDg
yETZd6XJdlC6MvvvrxYHcg9ZF6SMt8Or348H3utwgH+2JWUOv7fBf32prx6e
W37VuYTZdqinfnm60oADW/uKaq+h9x86dfGbEQe8bN5/a0DTv0geuGfMgfDP
GWxxHL9A9U4Fno0cqHz6QOYh+sFGxq8Ccw6QxGI0vqPVcq99CQQO8Fy+aroM
509IK783aMUBOOTv9hIdGmYiVr6XA2VLt7/+tNAO4n86WWcdONB/26JkGp0U
ENSwxokD83Pr2i3+tUOx29vrzw5i/PpX/q5FT21S5blyFP9+T+hKPx4iXP9Y
NmDii/GO+qtzBy23+lDpyAn8fVnwuhz0i/Tppy/9OSDxZ9S8A71O+dFFtyAO
LDM4Yf0TXXXf+IB8MAf0j9H2yvPi/hHpNG09g99L8ThgiiZfDVS4fp4Dtj19
XgfQQX/Ff5tf4kCP2Nb2BPz9v8A3X36FciDo94GVd9GxjO25WVc5IDx46lQ0
Oqs7InBpFAc25qYtPo9m5f1lzd7jQJILr8sB9Hm9hIaPDzhgslXptT1a+MW6
TL8EDrStNprZidZ6EODd95QD/xY8kjaivU5RB4ozOOD5soKkgp5ghpeefs2B
mdhvRnLoqx4rknSzOPDg/HiEODpl78EDTz5w4MYjwq4ZjN8PfeKXCyUc2E39
11mCTmHLhPKXc6BV3fdiNtrr9T6tO5Uc2HOEqJqK1jr2sF2hBseTvqHxPpql
0XM+tY4De4dSgyLRWUOKarqNHGhXFVE8gw5KPdj8sRn7AM9T5T7ode5JIRZt
HBg4UGmRz10/lYFl9URcr9WLO4u46/t9Rb3dF1yveW+fUnToI8+g3i4OiBPz
ZyrQAotpVSO9HFgdclC9AS0jyjkmR+PA8ZK0kG7013p9mWcMDlyI/Snci358
PbB41TDO12Nbcj96Oe9P8U1jHMgUYNVS0Xp/pz94TnOAbmu45Cd67NMmV/Ys
B34vj3g7hc4NDhU4s8CBRRNfgBsvszEe5xv8I//r0P6jqT7jOICLcBVXTLdC
KJXDubOTpumIj5WVH412usX8uhSrVSpC606L6YfGKT8a6YdDpdu4lVGpzIiF
fojWFYWU3bD0eXTnbJQuez73z9f5POc8z/P+PN/nfL/nfCHnnvtVHZ7nqn7D
D5dNEH7d0dttyG103rfEbQbCzSCB3Ij7QVRGQL05Qp3X4rjp3Fm2LaP+MxGa
HUPcTbjX9QiL22chtJmn6Ztyi06t9ZNaInSOl7XO4H4WnDMyaI3Qq1IWmHOf
ESlPx9vy8TszkgXckcqZqz7MQ4jP1piTF+QEDR9cgGBRufMXWs9AYMEJUweE
68qXQN5x33povhjh/azG7Qbc39fbZ/kuRUgtPNo4ldszJWbZYzcE+zqdcLKu
p7wvzB3hzsv4ET3u9JtOrru8EAQLg+zIeeWLn+X5IWSV2cqmcH+9Y3ea3ZcI
Li3ZM8jW4mvi0kAEJdOTU17n5G77ayQIztFt8kmeZ3khLFBFIHjERYV+4B6R
jRhGRSE8WLQ9c5x7aZB8qGcTQkh3Ug3l/92S0NaQbxAGs1PZO+5qU9PKji0I
SaszbckTQ/V5km0I+pq8tWPcXs1JskexCLkVxamj3GnnnSICdiHM26KooP42
pjz//H48Qknc8ZU0vyA8Z6FPItJ38m6y/7JVRnf2IBy2cD1HblNfavs9GeHb
qnZdDXfXxn3SikMIH2tE9WQbWLzykyMIhQEDanKk1atFigwE06KqeROTdH+u
YSVZCOoVwankt97W+wpOIlxLL/CiPAwcqk+mXEawmXZUSnn56u38QVOO0OGS
tIec2Tt/o6wS4VhoxDGy2YmfHBNuIOhccq4lSxI8TdS3+PlrF3WQ89b+8za2
BiFuYoKRn4ovKF/XIjg5DBho+2MUcmNzPUJfYKsNWfrK5LTqD4TwkbNbafzZ
27f3RzXxfk9bEkNWnUnc9PwuQqVdg3Z9DjLH1aEPECI+WxdC3rqhx6nzIYJR
wF8SssIlW7j+EcLV6N2BZJehsfaAJ8jfd3O9yYlNipv3O/n+L9oD+ca5yDM+
XQjS2splZI+w5ugVL3j9zWNnsk9L/ojra4So1RZzyOFXlprNnUDY9c6xi/K7
HjImbNNhUKIIbyULDW4Zp+kxeCrNbiDXhXkI/hYwWNE4VkaeLZjUPz2dQdJe
cRE5rrJOL1DIoEwceZx8L+LHKbpmDHp7c9PJ86d5T179iIFFblMyWXZNX7OZ
/ivtHHhIfhzZ9N5yDoPOy4WPyGLjI2MtVgyKDq5Xkg9U+f2XYsNgS5hxB9lV
+FDdb89gzEjWTe6P/grXODJIrxp4Sc6vVg5WODOYHbN+gOxjHqya/SmDi+YN
b8iltRFdKk8GzbGFo+RQUd8TP28GwVbGGrJxbMyf5b4MElTLp1BeNQ2DLaJA
Bsur+eNM94Hl9rvJEgZTc0oNtP1J3FtlsZWBT3isPnm09VCJYj8DMzu1Lvk3
p+O53j8zeNaXoENOOVic2l3K4At/9TjNJ6qSHk0cZ9DzYpu2fmlw7inhmmG4
4sK3T/kdsPAxvDAMG/oNtfV82+n/Tk4Og8Ttnbb+Pz4foGU=
       "]]},
     Annotation[#, "Charting`Private`Tag$12062#2"]& ]}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0.24953075837104205`},
  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,
  ImageSize->{586.6666666666667, Automatic},
  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]]}& )}},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGDQBmLZh4aLLMpeOzZdv7cGROcp7XsBog+8/sZpCaT5JvJI
Hqp47fjnKK8/iL5QrtIGop1cuE4dBtIxUSr3QPRkJWaNo0A673uXCYhuD+g2
Nal67eiWWOMKootEAoNA9L/cHRtsgDTPIptdIPrJUtXHILro3KwptkD6A9PC
dSDaI1Yh0hlImzx/+D+jBWjO/FCnPCAtd9ShGESH+HLuAdFL/q3jzQfSWfs7
1UG0k9/Rz0btrx1bau/yCE157Sg22TpJGEjL/OQSFQHSf6J3NYkCaQ6dVAUx
IG00/6wJiJ64XSUPROsfU38Pohu4bmqIA+mXre0qEkDa74fNVRBdcNHuG4jO
vmXEIwmkLZLmuIDoisi7Pu4bXjt2/14eBKIB+byoPA==
  "]]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"$MaxPiecewiseCases", "=", 
   RowBox[{"nx", "+", "2"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6858541411555786`*^9, 3.68585418884088*^9}}],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "\:0412\:044b\:0447\:0438\:0441\:043b\:0435\:043d\:0438\:0435", " ", 
   "\:043d\:043e\:0440\:043c\:044b", " ", "C"}], "*)"}]], "Input"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "\:0412\:044b\:0447\:0438\:0441\:043b\:0435\:043d\:0438\:0435", " ", 
   "\:043d\:043e\:0440\:043c\:044b", " ", "L1"}], "*)"}]], "Input"]
},
WindowSize->{1920, 956},
WindowMargins->{{-11, Automatic}, {Automatic, -11}},
Magnification:>1.5 Inherited,
FrontEndVersion->"11.0 for Microsoft Windows (64-bit) (September 21, 2016)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 172, 3, 45, "Input"],
Cell[755, 27, 7789, 106, 45, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8581, 138, 12137, 356, 1342, "Input"],
Cell[20721, 496, 2687, 37, 45, "Output"],
Cell[23411, 535, 2687, 37, 45, "Output"]
}, Open  ]],
Cell[26113, 575, 4087, 120, 408, "Input"],
Cell[CellGroupData[{
Cell[30225, 699, 161, 3, 45, "Input"],
Cell[30389, 704, 4763, 86, 654, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[35189, 795, 1033, 20, 45, "Input"],
Cell[36225, 817, 2497, 47, 499, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[38759, 869, 1140, 20, 45, "Input"],
Cell[39902, 891, 1976, 38, 499, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[41915, 934, 411, 10, 45, "Input"],
Cell[42329, 946, 1066, 23, 45, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[43432, 974, 1082, 20, 45, "Input"],
Cell[44517, 996, 2442, 45, 517, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[46996, 1046, 864, 16, 45, "Input"],
Cell[47863, 1064, 2322, 43, 511, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[50222, 1112, 697, 16, 45, "Input"],
Cell[50922, 1130, 24819, 421, 981, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[75778, 1556, 188, 3, 75, "Input"],
Cell[75969, 1561, 507, 7, 45, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[76513, 1573, 215, 5, 75, "Input"],
Cell[76731, 1580, 1027, 15, 45, "Output"]
}, Open  ]],
Cell[77773, 1598, 89, 1, 75, "Input"],
Cell[77865, 1601, 89, 1, 75, "Input"],
Cell[CellGroupData[{
Cell[77979, 1606, 557, 14, 45, "Input"],
Cell[78539, 1622, 35862, 599, 1107, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[114438, 2226, 549, 14, 45, "Input"],
Cell[114990, 2242, 26135, 444, 563, "Output"]
}, Open  ]],
Cell[141140, 2689, 176, 4, 45, "Input"],
Cell[141319, 2695, 179, 4, 45, "Input"],
Cell[141501, 2701, 180, 4, 45, "Input"]
}
]
*)