(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    125982,       2672]
NotebookOptionsPosition[    122597,       2552]
NotebookOutlinePosition[    123004,       2570]
CellTagsIndexPosition[    122961,       2567]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["APPENDIX D", "Text",
 CellChangeTimes->{{3.3932364382196846`*^9, 3.3932364386302752`*^9}, {
   3.393240852487669*^9, 3.393240879286846*^9}, 3.39324347908001*^9},
 TextAlignment->Left,
 FontSize->16,
 FontWeight->"Bold"],

Cell["\<\
A three parameter non-Weibullian kinetic model for simultaneous determination \
of two parameters with incremental values of the third.\
\>", "Text",
 CellChangeTimes->{{3.3932364382196846`*^9, 3.3932364386302752`*^9}, 
   3.393240852487669*^9, {3.3932408882161217`*^9, 3.393241008484394*^9}, 
   3.393241197240687*^9, 3.3932434843329887`*^9, {3.393251292323203*^9, 
   3.393251304419958*^9}, {3.393256470107287*^9, 3.393256603993466*^9}, {
   3.393256635719528*^9, 3.393256798465938*^9}, {3.393256838475232*^9, 
   3.3932568555564938`*^9}, {3.393256893995077*^9, 3.3932569168712587`*^9}, {
   3.3932569664386272`*^9, 3.393257056925153*^9}, 3.3932579467928553`*^9},
 TextAlignment->Left,
 FontSize->16,
 FontWeight->"Bold"],

Cell["\<\
Programmed by: Mark D. Normand and Maria G. Corradini
Last modified: August 1, 2007\
\>", "Text",
 CellChangeTimes->{{3.3930872784630127`*^9, 3.3930872838908176`*^9}, 
   3.393208710262573*^9, {3.39324023689145*^9, 3.393240280808077*^9}, {
   3.393251310117465*^9, 3.393251322253072*^9}, {3.393342705845125*^9, 
   3.393342709976535*^9}, 3.393769462731963*^9, {3.393845081139131*^9, 
   3.393845085683708*^9}, {3.3939712014265757`*^9, 3.3939712015927687`*^9}, 
   3.39419206883468*^9, {3.3949659773071413`*^9, 3.3949659790355053`*^9}},
 TextAlignment->Left,
 FontSize->14]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Assign the three parameters k1, c1 and c2 their original values.  These are \
the values we are trying to recover.\
\>", "Text",
 CellChangeTimes->{{3.393252320078519*^9, 3.3932523356107483`*^9}, 
   3.3932532555890217`*^9, {3.393342731661628*^9, 3.393342736496944*^9}},
 TextAlignment->Left,
 FontSize->14],

Cell[BoxData[
 RowBox[{
  RowBox[{"k1", "=", "9."}], ";", 
  RowBox[{"c1", "=", "0.01"}], ";", 
  RowBox[{"c2", "=", "0.05"}], ";"}]], "Input",
 CellChangeTimes->{{3.393087288567542*^9, 3.393087294646283*^9}, {
   3.393207623800317*^9, 3.3932076514801188`*^9}, {3.393251329935894*^9, 
   3.3932513335774937`*^9}, 3.3933428826810303`*^9},
 FontSize->14]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Assign the final time values, tCycle1, tCycle2 and tCycle3, for the three \
growth curves.\
\>", "Text",
 CellChangeTimes->{{3.3932364611726894`*^9, 3.393236462624778*^9}, {
  3.39334277177721*^9, 3.393342775685718*^9}},
 TextAlignment->Left,
 FontSize->14],

Cell[BoxData[
 RowBox[{
  RowBox[{"tCycle1", "=", "39."}], ";", 
  RowBox[{"tCycle2", "=", "35."}], ";", 
  RowBox[{"tCycle3", "=", "31."}], ";"}]], "Input",
 CellChangeTimes->{{3.393087300294405*^9, 3.3930873131028223`*^9}, {
  3.3932076550352306`*^9, 3.3932076693357935`*^9}, {3.393239734857284*^9, 
  3.393239742028068*^9}, {3.393971191129303*^9, 3.393971197542738*^9}},
 FontSize->14]
}, Open  ]],

Cell[CellGroupData[{

Cell["Define and plot the three temperature profile functions.", "Text",
 CellChangeTimes->{{3.3931678109056807`*^9, 3.393167827311077*^9}, 
   3.393252012141168*^9, 3.393252106930183*^9},
 TextAlignment->Left,
 FontSize->14],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"T1", "[", "t_", "]"}], ":=", 
   RowBox[{
    RowBox[{
     RowBox[{"22.5", "/", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"Exp", "[", 
         RowBox[{".9", "*", 
          RowBox[{"(", 
           RowBox[{"5", "-", "t"}], ")"}]}], "]"}]}], ")"}]}], "/", 
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"Exp", "[", 
        RowBox[{".9", "*", 
         RowBox[{"(", 
          RowBox[{"t", "-", "37.5"}], ")"}]}], "]"}]}], ")"}]}], "+", 
    "10"}]}], ";"}]], "Input",
 CellChangeTimes->{3.3930896891494093`*^9, 3.393208470597952*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"T2", "[", "t_", "]"}], ":=", 
   RowBox[{
    RowBox[{
     RowBox[{"31.5", "/", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"Exp", "[", 
         RowBox[{".9", "*", 
          RowBox[{"(", 
           RowBox[{"5", "-", "t"}], ")"}]}], "]"}]}], ")"}]}], "/", 
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"Exp", "[", 
        RowBox[{".9", "*", 
         RowBox[{"(", 
          RowBox[{"t", "-", "33.5"}], ")"}]}], "]"}]}], ")"}]}], "+", 
    "10"}]}], ";"}]], "Input",
 CellChangeTimes->{
  3.3930896756299696`*^9, {3.3932084565978208`*^9, 3.3932084576593475`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"T3", "[", "t_", "]"}], ":=", 
   RowBox[{
    RowBox[{
     RowBox[{"40.", "/", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"Exp", "[", 
         RowBox[{".9", "*", 
          RowBox[{"(", 
           RowBox[{"5", "-", "t"}], ")"}]}], "]"}]}], ")"}]}], "/", 
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"Exp", "[", 
        RowBox[{".9", "*", 
         RowBox[{"(", 
          RowBox[{"t", "-", "30."}], ")"}]}], "]"}]}], ")"}]}], "+", "10"}]}],
   ";"}]], "Input",
 CellChangeTimes->{
  3.393089659667016*^9, 3.393208444690699*^9, {3.3933432895132713`*^9, 
   3.393343294478004*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Compute and save the three temperatures at times tCycle1, tCycle2 and tCycle3 \
using the three temperature profile functions.\
\>", "Text",
 CellChangeTimes->{{3.393322237848249*^9, 3.3933222418990507`*^9}, {
   3.393325056163465*^9, 3.3933250652433043`*^9}, {3.393325526678794*^9, 
   3.393325542925816*^9}, {3.393326043888006*^9, 3.393326044481868*^9}, 
   3.393327194632271*^9, {3.3933303708437433`*^9, 3.393330378065383*^9}, {
   3.393330985699769*^9, 3.393330989439679*^9}, {3.393339427103109*^9, 
   3.393339429086478*^9}, {3.393343390581909*^9, 3.393343395912416*^9}, {
   3.393772085634657*^9, 3.3937720868834257`*^9}},
 TextAlignment->Left,
 FontSize->14],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"tCycle1T1", "=", 
   RowBox[{"T1", "[", "tCycle1", "]"}]}], ";", 
  RowBox[{"Print", "[", 
   RowBox[{"\"\<T1[tCycle1]=\>\"", ",", "tCycle1T1"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.393322100432173*^9, 3.3933221278763723`*^9}, 
   3.39332554916901*^9, {3.393325607619711*^9, 3.393325612349854*^9}, 
   3.393326084597148*^9, {3.393330385984529*^9, 3.3933304059236383`*^9}, {
   3.393330996182164*^9, 3.393331003269291*^9}, {3.393331046968734*^9, 
   3.393331048972906*^9}, {3.393343414497768*^9, 3.393343423910994*^9}, 
   3.393769813117399*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"T1[tCycle1]=\"\>", "\[InvisibleSpace]", 
   "14.632083365521076`"}],
  SequenceForm["T1[tCycle1]=", 14.632083365521076`],
  Editable->False]], "Print",
 CellChangeTimes->{3.393320121581217*^9, 3.3933221852294617`*^9, 
  3.393323123591468*^9, 3.3933252890246973`*^9, 3.3933254396472607`*^9, 
  3.3933257653010883`*^9, 3.393326611064291*^9, 3.393327059591311*^9, 
  3.393327201570022*^9, 3.393327837129407*^9, 3.3933286890721703`*^9, 
  3.393330481761557*^9, 3.393330838455962*^9, 3.3933310811866903`*^9, 
  3.393339336616654*^9, 3.3933399263090687`*^9, 3.393340379244706*^9, 
  3.393341226105783*^9, 3.393344461385172*^9, 3.3937702950934877`*^9, 
  3.393770866048617*^9, 3.393771713346058*^9, 3.393771783458276*^9, 
  3.393772596454111*^9, 3.393845172441408*^9, 3.393971207282737*^9, 
  3.3941924487354794`*^9, 3.39419282013765*^9, 3.394202920507824*^9, 
  3.3942030671062517`*^9, 3.3949660673828077`*^9, 3.3949665452600327`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"tCycle2T2", "=", 
   RowBox[{"T2", "[", "tCycle2", "]"}]}], ";", 
  RowBox[{"Print", "[", 
   RowBox[{"\"\<T2[tCycle2]=\>\"", ",", "tCycle2T2"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.39332215124137*^9, 3.3933221528608713`*^9}, {
   3.393325557500794*^9, 3.393325579892871*^9}, 3.393325619031274*^9, 
   3.39332609024548*^9, {3.393330392021524*^9, 3.393330410491646*^9}, {
   3.393330997885365*^9, 3.393331004684204*^9}, {3.393331050948956*^9, 
   3.393331053101078*^9}, {3.393343418645937*^9, 3.3933434289907627`*^9}, 
   3.3937698147576036`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"T2[tCycle2]=\"\>", "\[InvisibleSpace]", 
   "16.484916711717652`"}],
  SequenceForm["T2[tCycle2]=", 16.484916711717652`],
  Editable->False]], "Print",
 CellChangeTimes->{3.393320121694007*^9, 3.393322185357984*^9, 
  3.393323123750484*^9, 3.393325289185557*^9, 3.393325439912942*^9, 
  3.3933257654491453`*^9, 3.393326611145443*^9, 3.3933270598144608`*^9, 
  3.393327201651826*^9, 3.393327837210575*^9, 3.393328689155407*^9, 
  3.393330481869207*^9, 3.3933308385259132`*^9, 3.393331081294511*^9, 
  3.3933393367146387`*^9, 3.393339926410222*^9, 3.39334037936642*^9, 
  3.393341226211865*^9, 3.3933444614874783`*^9, 3.393770295188795*^9, 
  3.393770866185771*^9, 3.39377171345262*^9, 3.393771783553364*^9, 
  3.3937725965708017`*^9, 3.393845172544324*^9, 3.393971207510509*^9, 
  3.394192448843364*^9, 3.394192820242413*^9, 3.394202920586804*^9, 
  3.394203067226035*^9, 3.394966067490595*^9, 3.394966545328493*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"tCycle3T3", "=", 
   RowBox[{"T3", "[", "tCycle3", "]"}]}], ";", 
  RowBox[{"Print", "[", 
   RowBox[{"\"\<T3[tCycle3]=\>\"", ",", "tCycle3T3"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.393322170793523*^9, 3.393322172397147*^9}, {
   3.393325566670063*^9, 3.393325582959031*^9}, 3.393325626854475*^9, 
   3.3933261158418827`*^9, {3.3933303956527243`*^9, 3.393330414259577*^9}, 
   3.393331055262907*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"T3[tCycle3]=\"\>", "\[InvisibleSpace]", 
   "21.562019894204518`"}],
  SequenceForm["T3[tCycle3]=", 21.562019894204518`],
  Editable->False]], "Print",
 CellChangeTimes->{3.3933201217909107`*^9, 3.393322185505349*^9, 
  3.393323123897531*^9, 3.393325289315895*^9, 3.393325440102467*^9, 
  3.3933257655674067`*^9, 3.393326611225205*^9, 3.393327059898323*^9, 
  3.393327201743946*^9, 3.3933278373035583`*^9, 3.3933286892366247`*^9, 
  3.393330481976028*^9, 3.393330838605731*^9, 3.393331081400239*^9, 
  3.393339336807788*^9, 3.393339926501018*^9, 3.393340379487528*^9, 
  3.39334122632506*^9, 3.3933444615771427`*^9, 3.3937702952597218`*^9, 
  3.393770866289915*^9, 3.393771713544785*^9, 3.393771783666697*^9, 
  3.393772596677479*^9, 3.393845172628944*^9, 3.3939712077450237`*^9, 
  3.39419244895129*^9, 3.394192820349308*^9, 3.394202920666326*^9, 
  3.394203067315728*^9, 3.394966067603559*^9, 3.3949665453951674`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Define the three growth functions as function modules.", "Text",
 CellChangeTimes->{{3.393236469224267*^9, 3.393236470666341*^9}},
 TextAlignment->Left,
 FontSize->14],

Cell[BoxData[
 RowBox[{
  RowBox[{"GF1", "[", 
   RowBox[{
    RowBox[{"k1_", "?", "NumericQ"}], ",", 
    RowBox[{"c1_", "?", "NumericQ"}], ",", 
    RowBox[{"c2_", "?", "NumericQ"}], ",", 
    RowBox[{"tFinal_", "?", "NumericQ"}]}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"k21", ",", "sfn1", ",", "t", ",", "T1", ",", "y1", ",", 
      RowBox[{"y0", "=", "1."}]}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"T1", "[", "t_", "]"}], ":=", 
      RowBox[{
       RowBox[{
        RowBox[{"22.5", "/", 
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{"Exp", "[", 
            RowBox[{".9", "*", 
             RowBox[{"(", 
              RowBox[{"5", "-", "t"}], ")"}]}], "]"}]}], ")"}]}], "/", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"Exp", "[", 
           RowBox[{".9", "*", 
            RowBox[{"(", 
             RowBox[{"t", "-", "37.5"}], ")"}]}], "]"}]}], ")"}]}], "+", 
       "10"}]}], ";", 
     RowBox[{
      RowBox[{"k21", "[", "t_", "]"}], ":=", 
      RowBox[{"c1", "*", 
       RowBox[{"Exp", "[", 
        RowBox[{"c2", "*", 
         RowBox[{"T1", "[", "t", "]"}]}], "]"}]}]}], ";", 
     RowBox[{
      RowBox[{"sfn1", "[", "t_", "]"}], "=", 
      RowBox[{
       RowBox[{"NDSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"y1", "'"}], "[", "t", "]"}], "\[Equal]", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{"Exp", "[", 
               RowBox[{
                RowBox[{"-", 
                 RowBox[{"k21", "[", "t", "]"}]}], "*", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{"Log", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "k1"}], "+", 
                    RowBox[{"y1", "[", "t", "]"}], "-", "y0"}], ")"}], "/", 
                    "k1"}], "]"}]}], "/", 
                  RowBox[{"k21", "[", "t", "]"}]}], ")"}]}], "]"}]}], "*", 
             RowBox[{"k21", "[", "t", "]"}], "*", "k1"}]}], ",", 
           RowBox[{
            RowBox[{"y1", "[", "0.", "]"}], "\[Equal]", "1."}]}], "}"}], ",", 
         
         RowBox[{"y1", "[", "t", "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"t", ",", "0.001", ",", 
           RowBox[{"tCycle1", "+", "1."}]}], "}"}]}], "]"}], "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"sfn1", "[", "tFinal", "]"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{
  3.393089579682003*^9, {3.393089730338637*^9, 3.393089731239933*^9}, 
   3.393089880384392*^9, {3.3932076741927776`*^9, 3.3932077269386225`*^9}, 
   3.393208407387059*^9, {3.39320854465444*^9, 3.3932085881870365`*^9}, {
   3.3932086234577537`*^9, 3.393208641854206*^9}, {3.3932414432291327`*^9, 
   3.39324144395172*^9}, {3.3933428713461447`*^9, 3.393342899936948*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"GF2", "[", 
   RowBox[{
    RowBox[{"k1_", "?", "NumericQ"}], ",", 
    RowBox[{"c1_", "?", "NumericQ"}], ",", 
    RowBox[{"c2_", "?", "NumericQ"}], ",", 
    RowBox[{"tFinal_", "?", "NumericQ"}]}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"k22", ",", "sfn2", ",", "t", ",", "T2", ",", "y2", ",", 
      RowBox[{"y0", "=", "1."}]}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"T2", "[", "t_", "]"}], ":=", 
      RowBox[{
       RowBox[{
        RowBox[{"31.5", "/", 
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{"Exp", "[", 
            RowBox[{".9", "*", 
             RowBox[{"(", 
              RowBox[{"5", "-", "t"}], ")"}]}], "]"}]}], ")"}]}], "/", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"Exp", "[", 
           RowBox[{".9", "*", 
            RowBox[{"(", 
             RowBox[{"t", "-", "33.5"}], ")"}]}], "]"}]}], ")"}]}], "+", 
       "10"}]}], ";", 
     RowBox[{
      RowBox[{"k22", "[", "t_", "]"}], ":=", 
      RowBox[{"c1", "*", 
       RowBox[{"Exp", "[", 
        RowBox[{"c2", "*", 
         RowBox[{"T2", "[", "t", "]"}]}], "]"}]}]}], ";", 
     RowBox[{
      RowBox[{"sfn2", "[", "t_", "]"}], "=", 
      RowBox[{
       RowBox[{"NDSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"y2", "'"}], "[", "t", "]"}], "\[Equal]", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{"Exp", "[", 
               RowBox[{
                RowBox[{"-", 
                 RowBox[{"k22", "[", "t", "]"}]}], "*", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{"Log", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "k1"}], "+", 
                    RowBox[{"y2", "[", "t", "]"}], "-", "y0"}], ")"}], "/", 
                    "k1"}], "]"}]}], "/", 
                  RowBox[{"k22", "[", "t", "]"}]}], ")"}]}], "]"}]}], "*", 
             RowBox[{"k22", "[", "t", "]"}], "*", "k1"}]}], ",", 
           RowBox[{
            RowBox[{"y2", "[", "0.", "]"}], "\[Equal]", "1."}]}], "}"}], ",", 
         
         RowBox[{"y2", "[", "t", "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"t", ",", "0.001", ",", 
           RowBox[{"tCycle2", "+", "1."}]}], "}"}]}], "]"}], "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"sfn2", "[", "tFinal", "]"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{
  3.3930896106164846`*^9, {3.393089734895189*^9, 3.3930897357664413`*^9}, {
   3.393089887775019*^9, 3.3930899140628195`*^9}, 3.393089973868816*^9, {
   3.3932077333678675`*^9, 3.393207778532811*^9}, {3.393208420445837*^9, 
   3.39320843549748*^9}, {3.393208603368867*^9, 3.3932086359657393`*^9}, {
   3.393241464288898*^9, 3.393241465191568*^9}, {3.393342901135219*^9, 
   3.393342912166922*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"GF3", "[", 
   RowBox[{
    RowBox[{"k_", "?", "NumericQ"}], ",", 
    RowBox[{"n_", "?", "NumericQ"}], ",", 
    RowBox[{"Tc_", "?", "NumericQ"}], ",", 
    RowBox[{"tFinal_", "?", "NumericQ"}]}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"b3", ",", "sfn3", ",", "t", ",", "T3", ",", "y3", ",", 
      RowBox[{"y0", "=", "1."}]}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"T3", "[", "t_", "]"}], ":=", 
      RowBox[{
       RowBox[{
        RowBox[{"40", "/", 
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{"Exp", "[", 
            RowBox[{".9", "*", 
             RowBox[{"(", 
              RowBox[{"5", "-", "t"}], ")"}]}], "]"}]}], ")"}]}], "/", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"Exp", "[", 
           RowBox[{".9", "*", 
            RowBox[{"(", 
             RowBox[{"t", "-", "30"}], ")"}]}], "]"}]}], ")"}]}], "+", 
       "10"}]}], ";", 
     RowBox[{
      RowBox[{"k23", "[", "t_", "]"}], ":=", 
      RowBox[{"c1", "*", 
       RowBox[{"Exp", "[", 
        RowBox[{"c2", "*", 
         RowBox[{"T3", "[", "t", "]"}]}], "]"}]}]}], ";", 
     RowBox[{
      RowBox[{"sfn3", "[", "t_", "]"}], "=", 
      RowBox[{
       RowBox[{"NDSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"y3", "'"}], "[", "t", "]"}], "\[Equal]", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{"Exp", "[", 
               RowBox[{
                RowBox[{"-", 
                 RowBox[{"k23", "[", "t", "]"}]}], "*", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{"Log", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "k1"}], "+", 
                    RowBox[{"y3", "[", "t", "]"}], "-", "y0"}], ")"}], "/", 
                    "k1"}], "]"}]}], "/", 
                  RowBox[{"k23", "[", "t", "]"}]}], ")"}]}], "]"}]}], "*", 
             RowBox[{"k23", "[", "t", "]"}], "*", "k1"}]}], ",", 
           RowBox[{
            RowBox[{"y3", "[", "0.", "]"}], "\[Equal]", "1."}]}], "}"}], ",", 
         
         RowBox[{"y3", "[", "t", "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"t", ",", "0.001", ",", 
           RowBox[{"tCycle3", "+", "1."}]}], "}"}]}], "]"}], "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"sfn3", "[", "tFinal", "]"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{
  3.393089648651176*^9, {3.393089738981064*^9, 3.3930897400926623`*^9}, {
   3.393089898560528*^9, 3.393089936304802*^9}, {3.3932077885672398`*^9, 
   3.393207796779048*^9}, {3.3932084320324974`*^9, 3.3932084396434417`*^9}, {
   3.3932086595095935`*^9, 3.393208674791568*^9}, {3.39324147689463*^9, 
   3.393241477880495*^9}, {3.393342902613923*^9, 3.3933429154145412`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Compute and save the three growth function values at each of the three final \
times (tCycle1, tCycle2 & tCycle3) using the original values for the \
parameters k1, c1 and c2.  targetGF3 is the target growth function GF3 value \
at time tCycle3 using the original values of the three parameters k1, c1 and \
c2.\
\>", "Text",
 CellChangeTimes->{{3.3932364808710146`*^9, 3.3932364969941983`*^9}, {
   3.393342952535915*^9, 3.3933429613476677`*^9}, {3.39334299214036*^9, 
   3.393343005410124*^9}, {3.39334315522622*^9, 3.393343155617288*^9}, 
   3.393845302533925*^9},
 TextAlignment->Left,
 FontSize->14],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"gfCycle1", "=", 
   RowBox[{"GF1", "[", 
    RowBox[{"k1", ",", "c1", ",", "c2", ",", "tCycle1"}], "]"}]}], ";", 
  RowBox[{"Print", "[", 
   RowBox[{"\"\<GF1[k1,c1,c2,tCycle1]=\>\"", ",", "gfCycle1"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.393207807674715*^9, 3.393207812471613*^9}, {
  3.393241488864401*^9, 3.3932414897120543`*^9}, {3.393343028282597*^9, 
  3.393343043796874*^9}, {3.393344387092203*^9, 3.393344388233645*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"GF1[k1,c1,c2,tCycle1]=\"\>", "\[InvisibleSpace]", 
   "8.372587761933206`"}],
  SequenceForm["GF1[k1,c1,c2,tCycle1]=", 8.372587761933206],
  Editable->False]], "Print",
 CellChangeTimes->{3.393344495943859*^9, 3.393770295415264*^9, 
  3.393770866491625*^9, 3.393771713724823*^9, 3.393771783877427*^9, 
  3.393772596904901*^9, 3.393845172827977*^9, 3.3939712099840918`*^9, 
  3.3941924492125473`*^9, 3.3941928205376472`*^9, 3.394202920939172*^9, 
  3.394203067510807*^9, 3.3949660678030443`*^9, 3.394966545552863*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"gfCycle2", "=", 
   RowBox[{"GF2", "[", 
    RowBox[{"k1", ",", "c1", ",", "c2", ",", "tCycle2"}], "]"}]}], ";", 
  RowBox[{"Print", "[", 
   RowBox[{"\"\<GF2[k1,c1,c2,tCycle2]=\>\"", ",", "gfCycle2"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.39320781535576*^9, 3.393207820192715*^9}, {
  3.393241496383397*^9, 3.3932414971525393`*^9}, {3.393343049450053*^9, 
  3.393343068581353*^9}, {3.393344391352076*^9, 3.3933443922157707`*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"GF2[k1,c1,c2,tCycle2]=\"\>", "\[InvisibleSpace]", 
   "9.063248057848442`"}],
  SequenceForm["GF2[k1,c1,c2,tCycle2]=", 9.063248057848442],
  Editable->False]], "Print",
 CellChangeTimes->{3.393344496217073*^9, 3.3937702955002537`*^9, 
  3.393770866615046*^9, 3.393771713809127*^9, 3.3937717839810667`*^9, 
  3.393772597022079*^9, 3.393845172937667*^9, 3.3939712109044456`*^9, 
  3.394192449335432*^9, 3.3941928206426697`*^9, 3.394202921026807*^9, 
  3.3942030676052217`*^9, 3.394966067896758*^9, 3.394966545634348*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"gfCycle3", "=", 
   RowBox[{"GF3", "[", 
    RowBox[{"k1", ",", "c1", ",", "c2", ",", "tCycle3"}], "]"}]}], ";", 
  RowBox[{"targetGF3", "=", "gfCycle3"}], ";", 
  RowBox[{"Print", "[", 
   RowBox[{"\"\<GF3[k1,c1,c2,tCycle2]=\>\"", ",", "gfCycle3"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.3932078234774384`*^9, 3.3932078288752003`*^9}, {
  3.393241502847794*^9, 3.393241509313978*^9}, {3.3933431708298187`*^9, 
  3.393343222468656*^9}, {3.393344393022944*^9, 3.393344394621798*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"GF3[k1,c1,c2,tCycle2]=\"\>", "\[InvisibleSpace]", 
   "9.508375500830404`"}],
  SequenceForm["GF3[k1,c1,c2,tCycle2]=", 9.508375500830404],
  Editable->False]], "Print",
 CellChangeTimes->{3.39334449633535*^9, 3.393770295592989*^9, 
  3.393770866723485*^9, 3.393771713902278*^9, 3.393771784069207*^9, 
  3.393772597117241*^9, 3.393845173029621*^9, 3.393971211139544*^9, 
  3.394192449431486*^9, 3.394192820737627*^9, 3.394202921120071*^9, 
  3.3942030676919727`*^9, 3.394966067981474*^9, 3.394966545729063*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Iterate values of the parameter k1 starting with k1=k1St up to k1=k1En with \
an increment of k1Inc.  NOTICE THAT THE PROGRAM FINDS THE ORIGINAL GENERATION \
PARAMETER VALUES k1=9., c1=0.01 and c2=0.05.\
\>", "Text",
 CellChangeTimes->{{3.3932078655679617`*^9, 3.3932078819114623`*^9}, {
  3.393251538651164*^9, 3.393251539163865*^9}, {3.3932533343034487`*^9, 
  3.393253335049089*^9}, {3.393253433806048*^9, 3.3932534405623693`*^9}},
 TextAlignment->Left,
 FontSize->14],

Cell[BoxData[
 RowBox[{
  RowBox[{"k1St", "=", "8.5"}], ";", 
  RowBox[{"k1En", "=", "9.5"}], ";", 
  RowBox[{"k1Inc", "=", "0.1"}], ";"}]], "Input",
 CellChangeTimes->{{3.3930900527622595`*^9, 3.393090056868163*^9}, {
  3.39309023384264*^9, 3.3930902388898973`*^9}, {3.3932078617825184`*^9, 
  3.393207888070318*^9}, {3.3932361119705615`*^9, 3.3932361182495904`*^9}, {
  3.3932362409059615`*^9, 3.3932362516714416`*^9}}],

Cell["\<\
Stop iterating when the absolute value of the difference between the target \
and trial values of GF3 is less than tol.\
\>", "Text",
 CellChangeTimes->{3.39324334667719*^9},
 TextAlignment->Left,
 FontSize->14],

Cell[BoxData[
 RowBox[{
  RowBox[{"tol", "=", "0.0001"}], ";"}]], "Input",
 CellChangeTimes->{{3.393090125416731*^9, 3.393090125566947*^9}, 
   3.393251482958637*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Clear", "[", 
     RowBox[{"c1", ",", "c2"}], "]"}], ";", 
    RowBox[{"frResult", "=", 
     RowBox[{"FindRoot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"GF1", "[", 
           RowBox[{"k1", ",", "c1", ",", "c2", ",", "tCycle1"}], "]"}], "==", 
          "gfCycle1"}], ",", 
         RowBox[{
          RowBox[{"GF2", "[", 
           RowBox[{"k1", ",", "c1", ",", "c2", ",", "tCycle2"}], "]"}], 
          "\[Equal]", "gfCycle2"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"c1", ",", ".005", ",", ".015"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"c2", ",", "0.04", ",", "0.06"}], "}"}]}], "}"}], ",", 
       RowBox[{"MaxIterations", "\[Rule]", "2000"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"c1", "=", 
     RowBox[{"frResult", "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"c2", "=", 
     RowBox[{"frResult", "[", 
      RowBox[{"[", 
       RowBox[{"2", ",", "2"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"trialGF3", "=", 
     RowBox[{"GF3", "[", 
      RowBox[{"k1", ",", "c1", ",", "c2", ",", "tCycle3"}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"Print", "[", 
     RowBox[{
     "\"\<trialGF3= \>\"", ",", "trialGF3", ",", "\"\<   k1= \>\"", ",", "k1",
       ",", "\"\<   c1= \>\"", ",", "c1", ",", "\"\<   c2= \>\"", ",", "c2"}],
      "]"}], ";", "\[IndentingNewLine]", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Abs", "[", 
        RowBox[{"targetGF3", "-", "trialGF3"}], "]"}], "<", "tol"}], ",", 
      RowBox[{"Break", "[", "]"}]}], "]"}]}], "\[IndentingNewLine]", ",", 
   RowBox[{"{", 
    RowBox[{"k1", ",", "k1St", ",", "k1En", ",", "k1Inc"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.3930900796809664`*^9, 3.3930900928999743`*^9}, {
  3.3932078993164897`*^9, 3.3932080178469276`*^9}, {3.393243347939351*^9, 
  3.3932433566283083`*^9}, {3.393251724380299*^9, 3.393251724566799*^9}, {
  3.393344397571279*^9, 3.393344398330686*^9}, {3.3941928016381617`*^9, 
  3.3941928116020927`*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"trialGF3= \"\>", "\[InvisibleSpace]", "9.374955270741838`", 
   "\[InvisibleSpace]", "\<\"   k1= \"\>", "\[InvisibleSpace]", "8.5`", 
   "\[InvisibleSpace]", "\<\"   c1= \"\>", "\[InvisibleSpace]", 
   "0.008106777231250563`", "\[InvisibleSpace]", "\<\"   c2= \"\>", 
   "\[InvisibleSpace]", "0.06234276713208406`"}],
  SequenceForm[
  "trialGF3= ", 9.374955270741838, "   k1= ", 8.5, "   c1= ", 
   0.008106777231250563, "   c2= ", 0.06234276713208406],
  Editable->False]], "Print",
 CellChangeTimes->{3.3932433897204943`*^9, 3.393251698858222*^9, 
  3.3933445047623997`*^9, 3.393770296815781*^9, 3.393770867914894*^9, 
  3.393771714964653*^9, 3.393771785070855*^9, 3.393772598357132*^9, 
  3.393845174080491*^9, 3.3939712141662827`*^9, 3.394192450640855*^9, 
  3.394192821731637*^9, 3.394202922253996*^9, 3.394203068523162*^9, 
  3.39496606920227*^9, 3.394966546530669*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"\<\"trialGF3= \"\>", "\[InvisibleSpace]", "9.41291228342613`"}], 
   "\[InvisibleSpace]", "+", 
   RowBox[{
    RowBox[{"0.`", " ", "\[ImaginaryI]"}], 
    "\[InvisibleSpace]", "\<\"   k1= \"\>", "\[InvisibleSpace]", "8.6`", 
    "\[InvisibleSpace]", "\<\"   c1= \"\>", "\[InvisibleSpace]", 
    "0.008721236508324829`", "\[InvisibleSpace]", "\<\"   c2= \"\>", 
    "\[InvisibleSpace]", "0.05874718442241053`"}]}],
  SequenceForm["trialGF3= ", 
   Complex[9.41291228342613, 0.], "   k1= ", 8.6, "   c1= ", 
   0.008721236508324829, "   c2= ", 0.05874718442241053],
  Editable->False]], "Print",
 CellChangeTimes->{3.3932433897204943`*^9, 3.393251698858222*^9, 
  3.3933445047623997`*^9, 3.393770296815781*^9, 3.393770867914894*^9, 
  3.393771714964653*^9, 3.393771785070855*^9, 3.393772598357132*^9, 
  3.393845174080491*^9, 3.3939712141662827`*^9, 3.394192450640855*^9, 
  3.394192821731637*^9, 3.394202922253996*^9, 3.394203068523162*^9, 
  3.39496606920227*^9, 3.394966547174789*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"trialGF3= \"\>", "\[InvisibleSpace]", "9.443798507103761`", 
   "\[InvisibleSpace]", "\<\"   k1= \"\>", "\[InvisibleSpace]", "8.7`", 
   "\[InvisibleSpace]", "\<\"   c1= \"\>", "\[InvisibleSpace]", 
   "0.009185790768315522`", "\[InvisibleSpace]", "\<\"   c2= \"\>", 
   "\[InvisibleSpace]", "0.05590395836433495`"}],
  SequenceForm[
  "trialGF3= ", 9.443798507103761, "   k1= ", 8.7, "   c1= ", 
   0.009185790768315522, "   c2= ", 0.05590395836433495],
  Editable->False]], "Print",
 CellChangeTimes->{3.3932433897204943`*^9, 3.393251698858222*^9, 
  3.3933445047623997`*^9, 3.393770296815781*^9, 3.393770867914894*^9, 
  3.393771714964653*^9, 3.393771785070855*^9, 3.393772598357132*^9, 
  3.393845174080491*^9, 3.3939712141662827`*^9, 3.394192450640855*^9, 
  3.394192821731637*^9, 3.394202922253996*^9, 3.394203068523162*^9, 
  3.39496606920227*^9, 3.394966547895343*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"trialGF3= \"\>", "\[InvisibleSpace]", "9.469256946675872`", 
   "\[InvisibleSpace]", "\<\"   k1= \"\>", "\[InvisibleSpace]", "8.8`", 
   "\[InvisibleSpace]", "\<\"   c1= \"\>", "\[InvisibleSpace]", 
   "0.009537500789499078`", "\[InvisibleSpace]", "\<\"   c2= \"\>", 
   "\[InvisibleSpace]", "0.05358438783944752`"}],
  SequenceForm[
  "trialGF3= ", 9.469256946675872, "   k1= ", 8.8, "   c1= ", 
   0.009537500789499078, "   c2= ", 0.05358438783944752],
  Editable->False]], "Print",
 CellChangeTimes->{3.3932433897204943`*^9, 3.393251698858222*^9, 
  3.3933445047623997`*^9, 3.393770296815781*^9, 3.393770867914894*^9, 
  3.393771714964653*^9, 3.393771785070855*^9, 3.393772598357132*^9, 
  3.393845174080491*^9, 3.3939712141662827`*^9, 3.394192450640855*^9, 
  3.394192821731637*^9, 3.394202922253996*^9, 3.394203068523162*^9, 
  3.39496606920227*^9, 3.394966548516726*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"trialGF3= \"\>", "\[InvisibleSpace]", "9.490486351315408`", 
   "\[InvisibleSpace]", "\<\"   k1= \"\>", "\[InvisibleSpace]", "8.9`", 
   "\[InvisibleSpace]", "\<\"   c1= \"\>", "\[InvisibleSpace]", 
   "0.009802552900716471`", "\[InvisibleSpace]", "\<\"   c2= \"\>", 
   "\[InvisibleSpace]", "0.05164731568995164`"}],
  SequenceForm[
  "trialGF3= ", 9.490486351315408, "   k1= ", 8.9, "   c1= ", 
   0.009802552900716471, "   c2= ", 0.05164731568995164],
  Editable->False]], "Print",
 CellChangeTimes->{3.3932433897204943`*^9, 3.393251698858222*^9, 
  3.3933445047623997`*^9, 3.393770296815781*^9, 3.393770867914894*^9, 
  3.393771714964653*^9, 3.393771785070855*^9, 3.393772598357132*^9, 
  3.393845174080491*^9, 3.3939712141662827`*^9, 3.394192450640855*^9, 
  3.394192821731637*^9, 3.394202922253996*^9, 3.394203068523162*^9, 
  3.39496606920227*^9, 3.3949665495463963`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"trialGF3= \"\>", "\[InvisibleSpace]", "9.508375500796651`", 
   "\[InvisibleSpace]", "\<\"   k1= \"\>", "\[InvisibleSpace]", "9.`", 
   "\[InvisibleSpace]", "\<\"   c1= \"\>", "\[InvisibleSpace]", 
   "0.010000000000513947`", "\[InvisibleSpace]", "\<\"   c2= \"\>", 
   "\[InvisibleSpace]", "0.04999999999839932`"}],
  SequenceForm[
  "trialGF3= ", 9.508375500796651, "   k1= ", 9., "   c1= ", 
   0.010000000000513947`, "   c2= ", 0.04999999999839932],
  Editable->False]], "Print",
 CellChangeTimes->{3.3932433897204943`*^9, 3.393251698858222*^9, 
  3.3933445047623997`*^9, 3.393770296815781*^9, 3.393770867914894*^9, 
  3.393771714964653*^9, 3.393771785070855*^9, 3.393772598357132*^9, 
  3.393845174080491*^9, 3.3939712141662827`*^9, 3.394192450640855*^9, 
  3.394192821731637*^9, 3.394202922253996*^9, 3.394203068523162*^9, 
  3.39496606920227*^9, 3.394966550397151*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Plot the three temperature profile functions separately.", "Text",
 CellChangeTimes->{{3.3931678109056807`*^9, 3.393167827311077*^9}, 
   3.393252012141168*^9, 3.393252106930183*^9, 3.393343261412565*^9, {
   3.3937708428372307`*^9, 3.3937708459690247`*^9}},
 TextAlignment->Left,
 FontSize->14],

Cell[BoxData[
 RowBox[{
  RowBox[{"tempCurveT1Plot", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"T1", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0.", ",", "tCycle1"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0.", ",", "40."}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0.", ",", "60."}], "}"}]}], "}"}]}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Thickness", "[", "0.01", "]"}], ",", "LightGray", ",", 
         RowBox[{"Dashing", "[", "None", "]"}]}], "}"}], "}"}]}], ",", 
     RowBox[{"PlotLabel", "\[Rule]", "\"\<Temperature Profiles\>\""}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"RotateLabel", "\[Rule]", "True"}], ",", 
     RowBox[{"BaseStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "14"}]}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\"\<\>\"", ",", "\"\<Temperature (\[Degree]C)\>\""}], "}"}]}],
      ",", 
     RowBox[{"FrameTicks", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "10", ",", "20", ",", "30", ",", "40"}], "}"}], 
        ",", 
        RowBox[{"{", 
         RowBox[{
         "0", ",", "10", ",", "20", ",", "30", ",", "40", ",", "50", ",", 
          "60"}], "}"}], ",", 
        RowBox[{"{", "}"}], ",", 
        RowBox[{"{", "}"}]}], "}"}]}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.3930899913038864`*^9, 3.3930900159693537`*^9}, {
   3.3932360414291277`*^9, 3.3932360467267456`*^9}, 3.393251595379086*^9, {
   3.3933435623814898`*^9, 3.393343669957779*^9}, 3.3933437372873793`*^9, {
   3.3933439597152977`*^9, 3.393343960409959*^9}, {3.3933446635686903`*^9, 
   3.393344691588764*^9}, 3.3937701136047564`*^9, {3.393770451271509*^9, 
   3.393770462744796*^9}, 3.3937704988912354`*^9, {3.3937705986137238`*^9, 
   3.393770599347433*^9}, {3.393771334730516*^9, 3.393771340656417*^9}, 
   3.393771597031239*^9, {3.394192144117404*^9, 3.394192179502544*^9}, {
   3.394192216620707*^9, 3.394192236464835*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"tempCurveT2Plot", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"T2", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0.", ",", "tCycle2"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0.", ",", "40."}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0.", ",", "60."}], "}"}]}], "}"}]}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Thickness", "[", "0.01", "]"}], ",", "Gray", ",", 
         RowBox[{"Dashing", "[", "None", "]"}]}], "}"}], "}"}]}], ",", 
     RowBox[{"PlotLabel", "\[Rule]", "\"\<Temperature Profiles\>\""}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"RotateLabel", "\[Rule]", "True"}], ",", 
     RowBox[{"BaseStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "14"}]}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<Time (arbitrary units)\>\"", ",", 
        "\"\<Temperature (\[Degree]C)\>\""}], "}"}]}], ",", 
     RowBox[{"FrameTicks", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "10", ",", "20", ",", "30", ",", "40"}], "}"}], 
        ",", 
        RowBox[{"{", 
         RowBox[{
         "0", ",", "10", ",", "20", ",", "30", ",", "40", ",", "50", ",", 
          "60"}], "}"}], ",", 
        RowBox[{"{", "}"}], ",", 
        RowBox[{"{", "}"}]}], "}"}]}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.3930899913038864`*^9, 3.3930900159693537`*^9}, {
   3.3932360414291277`*^9, 3.3932360467267456`*^9}, 3.393251595379086*^9, {
   3.3933435623814898`*^9, 3.393343669957779*^9}, 3.3933437372873793`*^9, {
   3.3933439597152977`*^9, 3.393343960409959*^9}, {3.3933446635686903`*^9, 
   3.393344691588764*^9}, 3.3937701136047564`*^9, {3.393770509593746*^9, 
   3.3937705515694*^9}, {3.393770603602931*^9, 3.393770604155859*^9}, 
   3.393771600340322*^9, 3.394192142427267*^9, {3.394192174633712*^9, 
   3.3941921752806387`*^9}, {3.394192219013749*^9, 3.3941922310568743`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"tempCurveT3Plot", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"T3", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0.", ",", "tCycle3"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0.", ",", "40."}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0.", ",", "60."}], "}"}]}], "}"}]}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Thickness", "[", "0.01", "]"}], ",", "Black", ",", 
         RowBox[{"Dashing", "[", "None", "]"}]}], "}"}], "}"}]}], ",", 
     RowBox[{"PlotLabel", "\[Rule]", "\"\<Temperature Profiles\>\""}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"RotateLabel", "\[Rule]", "True"}], ",", 
     RowBox[{"BaseStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "14"}]}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<Time (arbitrary units)\>\"", ",", 
        "\"\<Temperature (\[Degree]C)\>\""}], "}"}]}], ",", 
     RowBox[{"FrameTicks", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "10", ",", "20", ",", "30", ",", "40"}], "}"}], 
        ",", 
        RowBox[{"{", 
         RowBox[{
         "0", ",", "10", ",", "20", ",", "30", ",", "40", ",", "50", ",", 
          "60"}], "}"}], ",", 
        RowBox[{"{", "}"}], ",", 
        RowBox[{"{", "}"}]}], "}"}]}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.3930899913038864`*^9, 3.3930900159693537`*^9}, {
   3.3932360414291277`*^9, 3.3932360467267456`*^9}, 3.393251595379086*^9, {
   3.3933435623814898`*^9, 3.393343669957779*^9}, 3.3933437372873793`*^9, {
   3.3933439597152977`*^9, 3.393343960409959*^9}, {3.3933446635686903`*^9, 
   3.393344691588764*^9}, 3.3937701136047564`*^9, {3.393770509593746*^9, 
   3.3937705515694*^9}, {3.393770606851153*^9, 3.393770632266736*^9}, 
   3.3937713510738773`*^9, 3.393771603969837*^9, {3.394192140120618*^9, 
   3.394192184528982*^9}, 3.39419222101014*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
ListPlot the temperatures at times tCycle1, tCycle2 and tCycle3 for the three \
temperature profile functions.\
\>", "Text",
 CellChangeTimes->{{3.393168351042939*^9, 3.393168364232419*^9}, 
   3.3932537841910152`*^9, {3.393322372504961*^9, 3.3933224384617233`*^9}, 
   3.393322770438449*^9, 3.3933233004745197`*^9, {3.3933239438840647`*^9, 
   3.393323944731514*^9}, 3.39332503330643*^9, {3.39333063583978*^9, 
   3.393330647794845*^9}, {3.3933311342538*^9, 3.393331141059312*^9}, {
   3.393343477211656*^9, 3.393343486976733*^9}, {3.393343710838584*^9, 
   3.393343711622118*^9}},
 TextAlignment->Left,
 FontSize->14],

Cell[BoxData[
 RowBox[{
  RowBox[{"tempPtsPlot", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"tCycle1", ",", "tCycle1T1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"tCycle2", ",", "tCycle2T2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"tCycle3", ",", "tCycle3T3"}], "}"}]}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0.", ",", "40."}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0.", ",", "60."}], "}"}]}], "}"}]}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"PointSize", "[", "Large", "]"}], ",", "Black"}], "]"}]}], 
     ",", 
     RowBox[{
     "PlotLabel", "\[Rule]", 
      "\"\<Temperatures at tCycle1, tCycle2 & tCycle3\>\""}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"RotateLabel", "\[Rule]", "True"}], ",", 
     RowBox[{"BaseStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "14"}]}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<Time (arbitrary units)\>\"", ",", 
        "\"\<Temperature (\[Degree]C)\>\""}], "}"}]}], ",", 
     RowBox[{"FrameTicks", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "10", ",", "20", ",", "30", ",", "40"}], "}"}], 
        ",", 
        RowBox[{"{", 
         RowBox[{
         "0", ",", "10", ",", "20", ",", "30", ",", "40", ",", "50", ",", 
          "60"}], "}"}], ",", 
        RowBox[{"{", "}"}], ",", 
        RowBox[{"{", "}"}]}], "}"}]}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{
  3.393251050701592*^9, {3.393320294224659*^9, 3.393320333211245*^9}, {
   3.393320571080579*^9, 3.393320590759631*^9}, {3.3933208225830812`*^9, 
   3.393320886103772*^9}, {3.393320919192649*^9, 3.3933209459323063`*^9}, {
   3.393320993422297*^9, 3.393321031966597*^9}, {3.393321480456262*^9, 
   3.3933215239096737`*^9}, {3.393321595255995*^9, 3.393321647106287*^9}, {
   3.393321707336195*^9, 3.39332171063087*^9}, {3.3933217576497927`*^9, 
   3.393321775498185*^9}, 3.3933218321220922`*^9, {3.393321874676762*^9, 
   3.393322013321027*^9}, {3.393322462851087*^9, 3.393322463364461*^9}, 
   3.3933227992668552`*^9, {3.393322838191132*^9, 3.393322875539483*^9}, {
   3.393322989348707*^9, 3.3933230303468647`*^9}, {3.393323166028068*^9, 
   3.3933231919176607`*^9}, 3.393323254576283*^9, {3.393323328414671*^9, 
   3.393323354375997*^9}, {3.393323489175621*^9, 3.39332349837894*^9}, {
   3.393323544312173*^9, 3.393323557908409*^9}, {3.3933237239305573`*^9, 
   3.393323751116066*^9}, 3.3933240451270103`*^9, {3.3933240967479343`*^9, 
   3.393324126899761*^9}, {3.393324719907443*^9, 3.39332473324393*^9}, 
   3.3933254311157*^9, {3.3933257483089733`*^9, 3.393325755298956*^9}, {
   3.393325812335999*^9, 3.393325843018764*^9}, {3.393326930078993*^9, 
   3.3933269324271517`*^9}, {3.3933270478841248`*^9, 3.393327054210685*^9}, {
   3.393330654146825*^9, 3.3933307292577143`*^9}, {3.3933311021001787`*^9, 
   3.393331104688555*^9}, {3.393331144577475*^9, 3.393331161249202*^9}, 
   3.393331273211967*^9, {3.393343493121263*^9, 3.3933435242919607`*^9}, {
   3.393343962743847*^9, 3.3933439633990602`*^9}, {3.393344548403695*^9, 
   3.393344567905126*^9}, 3.3937717654193373`*^9, 3.394192138695599*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Show the three temperature profile curves and the temperature points at times \
tCycle1, tCycle2 and tCycle3 together on the same plot.\
\>", "Text",
 CellChangeTimes->{{3.393168351042939*^9, 3.393168364232419*^9}, 
   3.3932537841910152`*^9, 3.393322372504961*^9, {3.393323367039167*^9, 
   3.393323441740209*^9}, {3.393331187854454*^9, 3.393331190091475*^9}, {
   3.393343697050742*^9, 3.393343721309973*^9}},
 TextAlignment->Left,
 FontSize->14],

Cell[BoxData[
 RowBox[{
  RowBox[{"tempProfilePlot", "=", 
   RowBox[{"Show", "[", 
    RowBox[{
    "tempCurveT1Plot", ",", "tempCurveT2Plot", ",", "tempCurveT3Plot", ",", 
     "tempPtsPlot", ",", 
     RowBox[{"ImageSize", "\[Rule]", 
      RowBox[{"Scaled", "[", "0.6", "]"}]}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.393323062018441*^9, 3.393323083173884*^9}, {
   3.393323272934407*^9, 3.393323282685367*^9}, {3.393323520755739*^9, 
   3.393323526992766*^9}, 3.393323796966511*^9, 3.393324168607872*^9, {
   3.39377067115114*^9, 3.393770688906967*^9}, 3.394966001823511*^9, 
   3.394966095334958*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Plot the three growth curves separately.", "Text",
 CellChangeTimes->{{3.3931678109056807`*^9, 3.393167827311077*^9}, {
   3.393167859756092*^9, 3.3931678691693497`*^9}, {3.393242515140913*^9, 
   3.393242535138013*^9}, {3.3932521171237307`*^9, 3.3932521179835*^9}, 
   3.393343779774955*^9, {3.393771260815696*^9, 3.393771265159375*^9}, 
   3.393773857963048*^9},
 TextAlignment->Left,
 FontSize->14],

Cell[BoxData[
 RowBox[{
  RowBox[{"gfCurveGF1Plot", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"GF1", "[", 
      RowBox[{"9.", ",", ".01", ",", "0.05", ",", "t"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0.1", ",", "tCycle1"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0.", ",", "40."}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", ".001"}], ",", "10.0"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Thickness", "[", "0.01", "]"}], ",", "LightGray", ",", 
         RowBox[{"Dashing", "[", "None", "]"}]}], "}"}], "}"}]}], ",", 
     RowBox[{"PlotLabel", "\[Rule]", "\"\<Progress of Reactions\>\""}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"RotateLabel", "\[Rule]", "True"}], ",", 
     RowBox[{"BaseStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "14"}]}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\"\<Time (arbitrary units)\>\"", ",", "\"\<Y(t)\>\""}], 
       "}"}]}], ",", 
     RowBox[{"FrameTicks", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "10", ",", "20", ",", "30", ",", "40"}], "}"}], 
        ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "2", ",", "4", ",", "6", ",", "8", ",", "10"}], 
         "}"}], ",", 
        RowBox[{"{", "}"}], ",", 
        RowBox[{"{", "}"}]}], "}"}]}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.393090260110411*^9, 3.393090299577162*^9}, 
   3.39309034875788*^9, 3.3932363616796255`*^9, 3.393239825137187*^9, 
   3.39323991665901*^9, {3.39324338212543*^9, 3.3932434514121437`*^9}, {
   3.3932516147470293`*^9, 3.393251664445907*^9}, {3.3933440408495913`*^9, 
   3.3933440881418743`*^9}, {3.3933441635810003`*^9, 3.39334422746439*^9}, {
   3.3933443397075567`*^9, 3.393344340088715*^9}, {3.393771028920472*^9, 
   3.393771096174671*^9}, 3.3937713840630617`*^9, 3.393771612575638*^9, {
   3.394192287867866*^9, 3.394192309705387*^9}, {3.394192377335063*^9, 
   3.394192378282988*^9}, 3.394192604385872*^9, 3.394202903328108*^9, 
   3.394203026829805*^9, 3.3942030621563168`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"gfCurveGF2Plot", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"GF2", "[", 
      RowBox[{"9.", ",", ".01", ",", "0.05", ",", "t"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0.1", ",", "tCycle2"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0.", ",", "40."}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", ".001"}], ",", "10.0"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Thickness", "[", "0.01", "]"}], ",", "Gray", ",", 
         RowBox[{"Dashing", "[", "None", "]"}]}], "}"}], "}"}]}], ",", 
     RowBox[{"PlotLabel", "\[Rule]", "\"\<Progress of Reactions\>\""}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"RotateLabel", "\[Rule]", "True"}], ",", 
     RowBox[{"BaseStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "14"}]}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\"\<Time (arbitrary units)\>\"", ",", "\"\<Y(t))\>\""}], 
       "}"}]}], ",", 
     RowBox[{"FrameTicks", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "10", ",", "20", ",", "30", ",", "40"}], "}"}], 
        ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "2", ",", "4", ",", "6", ",", "8", ",", "10"}], 
         "}"}], ",", 
        RowBox[{"{", "}"}], ",", 
        RowBox[{"{", "}"}]}], "}"}]}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.393090260110411*^9, 3.393090299577162*^9}, 
   3.39309034875788*^9, 3.3932363616796255`*^9, 3.393239825137187*^9, 
   3.39323991665901*^9, {3.39324338212543*^9, 3.3932434514121437`*^9}, {
   3.3932516147470293`*^9, 3.393251664445907*^9}, {3.3933440408495913`*^9, 
   3.3933440881418743`*^9}, {3.3933441635810003`*^9, 3.39334422746439*^9}, {
   3.3933443397075567`*^9, 3.393344340088715*^9}, {3.393771028920472*^9, 
   3.393771038960395*^9}, {3.3937711101583014`*^9, 3.393771131423704*^9}, 
   3.3937716159151897`*^9, {3.3941922860911016`*^9, 3.394192313748263*^9}, {
   3.3941923720118513`*^9, 3.394192372699024*^9}, 3.394192601321127*^9, 
   3.394202900223723*^9, 3.394203020676321*^9, 3.394203058349337*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"gfCurveGF3Plot", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"GF3", "[", 
      RowBox[{"9.", ",", ".01", ",", "0.05", ",", "t"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0.1", ",", "tCycle3"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0.", ",", "40."}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", ".001"}], ",", "10.0"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Thickness", "[", "0.01", "]"}], ",", "Black", ",", 
         RowBox[{"Dashing", "[", "None", "]"}]}], "}"}], "}"}]}], ",", 
     RowBox[{"PlotLabel", "\[Rule]", "\"\<Progress of Reactions\>\""}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"RotateLabel", "\[Rule]", "True"}], ",", 
     RowBox[{"BaseStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "14"}]}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\"\<Time (arbitrary units)\>\"", ",", "\"\<Y(t)\>\""}], 
       "}"}]}], ",", 
     RowBox[{"FrameTicks", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "10", ",", "20", ",", "30", ",", "40"}], "}"}], 
        ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "2", ",", "4", ",", "6", ",", "8", ",", "10"}], 
         "}"}], ",", 
        RowBox[{"{", "}"}], ",", 
        RowBox[{"{", "}"}]}], "}"}]}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.393090260110411*^9, 3.393090299577162*^9}, 
   3.39309034875788*^9, 3.3932363616796255`*^9, 3.393239825137187*^9, 
   3.39323991665901*^9, {3.39324338212543*^9, 3.3932434514121437`*^9}, {
   3.3932516147470293`*^9, 3.393251664445907*^9}, {3.3933440408495913`*^9, 
   3.3933440881418743`*^9}, {3.3933441635810003`*^9, 3.39334422746439*^9}, {
   3.3933443397075567`*^9, 3.393344340088715*^9}, {3.393771028920472*^9, 
   3.393771029628439*^9}, {3.393771150698284*^9, 3.39377118332802*^9}, {
   3.393771372516172*^9, 3.393771377822114*^9}, 3.393771619026457*^9, {
   3.3941922835303926`*^9, 3.394192329066414*^9}, 3.3941924248940363`*^9, {
   3.3942028904352913`*^9, 3.3942028950544367`*^9}, {3.3942029854962177`*^9, 
   3.394203011737411*^9}, 3.394203050628757*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
ListPlot the growth values at times tCycle1, tCycle2 and tCycle3 for the \
three growth curves.\
\>", "Text",
 CellChangeTimes->{{3.393168351042939*^9, 3.393168364232419*^9}, 
   3.3932537841910152`*^9, {3.393322372504961*^9, 3.3933224384617233`*^9}, 
   3.393322770438449*^9, 3.3933233004745197`*^9, {3.393323859054771*^9, 
   3.393323888274333*^9}, {3.393326404691359*^9, 3.393326415582448*^9}, 
   3.393326465735125*^9, {3.393338826352191*^9, 3.3933388739886723`*^9}, {
   3.393339390263722*^9, 3.393339393939906*^9}, 3.3933394758287697`*^9, 
   3.3933419167867002`*^9, {3.3933437706360283`*^9, 3.393343802397408*^9}, {
   3.393344334096384*^9, 3.393344335366448*^9}},
 TextAlignment->Left,
 FontSize->14],

Cell[BoxData[
 RowBox[{
  RowBox[{"gfPtsPlot", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"tCycle1", ",", "gfCycle1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"tCycle2", ",", "gfCycle2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"tCycle3", ",", "gfCycle3"}], "}"}]}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0.", ",", "40."}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0.", ",", "10."}], "}"}]}], "}"}]}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"PointSize", "[", "Large", "]"}], ",", "Black"}], "]"}]}], 
     ",", 
     RowBox[{
     "PlotLabel", "\[Rule]", "\"\<Growth at tCycle1, tCycle2 & tCycle3\>\""}],
      ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"RotateLabel", "\[Rule]", "True"}], ",", 
     RowBox[{"BaseStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "14"}]}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\"\<Time (arbitrary units)\>\"", ",", "\"\<Y(t)\>\""}], 
       "}"}]}], ",", 
     RowBox[{"FrameTicks", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "10", ",", "20", ",", "30", ",", "40"}], "}"}], 
        ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "2", ",", "4", ",", "6", ",", "8", ",", "10"}], 
         "}"}], ",", 
        RowBox[{"{", "}"}], ",", 
        RowBox[{"{", "}"}]}], "}"}]}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{
  3.393251050701592*^9, {3.393320294224659*^9, 3.393320333211245*^9}, {
   3.393320571080579*^9, 3.393320590759631*^9}, {3.3933208225830812`*^9, 
   3.393320886103772*^9}, {3.393320919192649*^9, 3.3933209459323063`*^9}, {
   3.393320993422297*^9, 3.393321031966597*^9}, {3.393321480456262*^9, 
   3.3933215239096737`*^9}, {3.393321595255995*^9, 3.393321647106287*^9}, {
   3.393321707336195*^9, 3.39332171063087*^9}, {3.3933217576497927`*^9, 
   3.393321775498185*^9}, 3.3933218321220922`*^9, {3.393321874676762*^9, 
   3.393322013321027*^9}, {3.393322462851087*^9, 3.393322463364461*^9}, 
   3.3933227992668552`*^9, {3.393322838191132*^9, 3.393322875539483*^9}, {
   3.393322989348707*^9, 3.3933230303468647`*^9}, {3.393323166028068*^9, 
   3.3933231919176607`*^9}, 3.393323254576283*^9, {3.393323328414671*^9, 
   3.393323354375997*^9}, {3.393323489175621*^9, 3.39332349837894*^9}, {
   3.393323544312173*^9, 3.393323557908409*^9}, {3.3933237239305573`*^9, 
   3.393323751116066*^9}, {3.393323894850007*^9, 3.39332392933667*^9}, {
   3.393324198458137*^9, 3.3933242203481817`*^9}, {3.393324253002262*^9, 
   3.393324299245779*^9}, {3.3933244200930223`*^9, 3.3933244387682858`*^9}, 
   3.393324554558779*^9, {3.393325728692493*^9, 3.393325735147439*^9}, {
   3.393325871387785*^9, 3.393325876316062*^9}, 3.393327824896139*^9, 
   3.393338900893297*^9, {3.393338934394993*^9, 3.393338937474901*^9}, {
   3.393338977946499*^9, 3.393338983905766*^9}, {3.393339369878024*^9, 
   3.393339400826179*^9}, 3.393339490325576*^9, 3.39333966498777*^9, {
   3.3933438154187803`*^9, 3.393343906927309*^9}, 3.39334395010356*^9, {
   3.393344286656887*^9, 3.393344328046926*^9}, {3.3933443997857103`*^9, 
   3.393344400917284*^9}, 3.393344737862132*^9, 3.393771771283959*^9, 
   3.394192281664321*^9, 3.3942028240382547`*^9, {3.394202979099083*^9, 
   3.3942030046889343`*^9}, 3.394203044765695*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Show the three growth curves and the final growth values at times tCycle1, \
tCycle2 and tCycle3 together on the same plot.\
\>", "Text",
 CellChangeTimes->{{3.393168351042939*^9, 3.393168364232419*^9}, 
   3.3932537841910152`*^9, 3.393322372504961*^9, {3.393323367039167*^9, 
   3.393323441740209*^9}, {3.39332435574153*^9, 3.3933243770256643`*^9}, {
   3.393326446391835*^9, 3.3933264740635233`*^9}, {3.3933395940344677`*^9, 
   3.39333960323083*^9}, {3.393344235442288*^9, 3.393344262681156*^9}},
 TextAlignment->Left,
 FontSize->14],

Cell[BoxData[
 RowBox[{
  RowBox[{"growthPlot", "=", 
   RowBox[{"Show", "[", 
    RowBox[{
    "gfCurveGF1Plot", ",", "gfCurveGF2Plot", ",", "gfCurveGF3Plot", ",", 
     "gfPtsPlot", ",", 
     RowBox[{"ImageSize", "\[Rule]", 
      RowBox[{"Scaled", "[", "0.6", "]"}]}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.393323062018441*^9, 3.393323083173884*^9}, {
   3.393323272934407*^9, 3.393323282685367*^9}, {3.393323520755739*^9, 
   3.393323526992766*^9}, 3.393323796966511*^9, 3.393324168607872*^9, {
   3.393324385406657*^9, 3.393324411709361*^9}, 3.393326584402074*^9, {
   3.393344349354158*^9, 3.393344356586041*^9}, {3.393771193393984*^9, 
   3.3937712066024857`*^9}, 3.3949660189617033`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Show the temperature and the growth plots together in the same graphics \
image.\
\>", "Text",
 CellChangeTimes->{{3.393168351042939*^9, 3.393168364232419*^9}, 
   3.3932537841910152`*^9, 3.393322372504961*^9, {3.393323367039167*^9, 
   3.393323441740209*^9}, {3.39332435574153*^9, 3.3933243770256643`*^9}, {
   3.393326446391835*^9, 3.3933264740635233`*^9}, {3.394961631708231*^9, 
   3.394961672094633*^9}, {3.394963269309606*^9, 3.394963271125407*^9}, {
   3.394966043629816*^9, 3.39496605509299*^9}},
 TextAlignment->Left,
 FontSize->14],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"figure8", "=", 
  RowBox[{"GraphicsArray", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", "tempProfilePlot", "}"}], ",", 
     RowBox[{"{", "growthPlot", "}"}]}], "}"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.394961405706451*^9, 3.39496143058958*^9}, {
   3.394961466930292*^9, 3.394961475094851*^9}, {3.3949615279010687`*^9, 
   3.39496153087962*^9}, {3.394964015767812*^9, 3.3949640233060083`*^9}, {
   3.3949640595347357`*^9, 3.394964094181012*^9}, {3.394966032827991*^9, 
   3.3949660338236303`*^9}, 3.3949665424879913`*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {InsetBox[
     GraphicsBox[{{{}, {}, 
        {GrayLevel[0.85], Thickness[0.01], Dashing[None], 
         LineBox[CompressedData["
1:eJwdmnc81W8Ux+0yIyJlu7Zr3st1r3u/xypFRqQiEpEWhYqyV0iRJJQREQ1U
yE9LRklkJis7hCSSyPg9X3/1er98x/Oc55zP+Zzvba+Xi7QbExMTCxMTawj+
L+NBydBaG80HCEHXPzdvysWig6OtspgfASF4Kltr7iOWErx3tJuFAwihZtvY
u7Wx/GCK5gKLNhAiBLW+d5Gw8mDlL5Fhu4AQ0yKZkNqE1QUTlM2rbIGQzDN6
8+I9rH6DMIsEy0Ug3LpP/HWoFfsYv6Hrp2EWEFJN3q+aAPYpYzLmetUUEO4k
SGdebMNaDx/0PXmkCgg59kX7/YexzmCptmIXeyA8aSkzXLTDuoxE36SynAbC
s7LnrQXRWPeGzQ9Ds0OAUJrVxD/3DeuJZwvfO5QHhP8ifIJy72B9GeNa8y6z
QHh7hdeV6y02dHj/B3HNWiC03n3B7DGKjQdLKrpoOQJh0bFkunweG/9+MPks
XwUQlqlFdb1Z2HebJLbgya1AWJMccbL9jk0obhxIz2kHOXZW2wXKODbZPJvS
tWU3yAlofLlTzoz9lHnHafmXAnIqNL2WsGjs51WmC07tySCnlvflqWck9nOB
+u108RzIaYlpTlF3YzNuXwZqS76AnB6KqIM19otq/nL4dCLI7SyMkQy+j80O
65yT6OcEOfdKjWr9bmxuq80j+T3o+Sfa96fvr8Dm9pwZJr5wBznPucUb7VnY
3POH1vq3akDugp0CVVAY+x0nRbS3CgG56IIw/6Kv2B8y57ebb/+A3OP73Sb+
+dhi1Fc7nnsjIM/8Yzg7mQdbLD8XcOsUD8hvsPDmt/bBFid4c2S0SSDP8/J5
wxcjbGkPfUb3bTjIi1SNJroKYP8EM2Jd+mRAXs1/t1pkKLacdfj1fyJHQN7p
wa3mA77YcsvCN6O+aJA/Ol8m6s6KrbAmcH/KLQb5k1Yp5L9e2Ip75YEREhPI
++lodox8xVaJUnObrLJAPrEm9pFHOLb235CCW0wfyH/kmbT9TwBbm7y4Z8aa
HeRbj7ZUVtgBE18MlR4nDPJdn8qfWNwAJpB2rrNhgPx4l/ju41uBKcf68dfB
a6CwocHJOI4bmI8/Nd24qgYKuyxkIh3YgeWPT8Bh3VOg0NMcZH36C7DyVXMG
GtuDwrfQU8SR88CqsDn5trUpKPw0ddxkaQ2s+58UfzlJAEXWrYNMIlRgLf/5
zTKjBxRV6rKLJlaB7dIpC+DYDYqhEanHKt8D240XPU6CFFCMu/84+VYTsD3i
9giQkgfFW8NKJkmtwNb7IKycygKKhTk/t5uwAjt9/LnG6QpQ/Gr1ZfkfC3Aw
uUlJfVYCJcxvqFlrBDi2ljxmDAmDkjmJy7HEETg02aiHfrKB0kHOqefHxYDj
SI5t6sYBUPLhOGv73AY4qgZjBPRTQCl/h8OmaA3YEOk4y3xvIyiLrE2NUJ4C
J5dd9ZD3KKjw6jMxHRMETkJp0waZ76AiMeuV08oEnJhQt0rrFKhoNEy3OBwE
Tp/WmXNas6BiO32LPnEEOL9aim+YXQWVjLGacVsX4CreeZ7oswVU9eouDJ6Q
AB47iqKfjzEQr9Rhv4IOAM+ZW9rpsjuBmK1yxt+nCXhi/zDetu0GYnnJS6eF
w8DzpmQft7YVEEf10p6HxQGvkkZo+twhUDPibpdr7ATeZcXuah9fUGetu2d0
SRw2ZYte5fPJAQ2r8E9vlE7CpoqyTb+bZUDDUXKbmf1T2NS2N7FHNRs0jn+4
tfpiDvhZTBpsZptBI9ysrUHEGPi1g1qlHjaBxnOWxpFTj4D/5szXCvFG0JQm
PHAQ+gAC9u2/fzDXgeba0Uhiwl/YPJIuu/fDG9DuUUtXfSoFwlRxmH1pARSW
1nqfVAYI7ySt7kuoBcrmw/l3t7aDsK35i3I3faBID/LmWPuCsGeAThCfClCg
8kZOSzMIZ/eocjpvBErgVEPMiwAQ4U4VkWKtAsr8JyvhB54g8lXoxx4zHdDr
DhNv/vkDRCZUHxRLPga9cZNQa67DILJg7LH5NwH05v/KK6ebw1YBn6HOdEGg
CihX5fvIwVaT1k7X6Rmg7qhy3GI/B1sLE6ovJj4AamFe5Mp1dhAN4Um93y0O
tDN1j5NVmEA0zmjzZEQr0C5dtswvzQLRFP84dfVooEWRsz+94QbR4tGgsohZ
oN0+Yr0JRkF0sNK1Vr0OaDW/08Yl9sM2I1/iUKQv6G/hmhTQq4btHD1V4hoN
oF/Ad+y/2XHYLriZ5twTBvpP3t1g45aE7ZKmJfeidEG/wvNX16ANbNctva/S
kw36HxN8DQsfw3aP+DhqlB/o/xCpnsnIhO31Rnb7ewlAJxpiLDyHQOzqg4nE
ywFAzz6u23pEHMTSvst0hb8EekG755o3CcTyFRykgpeB/kRdw2XZFMSqcj4W
+qHr3zx7CDHbQWzhzqP644h7lpZniypA/Mg1LxazAGAI3Do231gC4p4N93ft
fAmMrRx8wdhBEA/g6k8wWgaGhFtp3A4SiCdftpLQR9cr/3UPLpwE8Y8hmlQi
YiNPprhlD5Agn53z3oT4bFH2FVlekDAsVvmPGz3vgl5bcpI5SFhOH2XagJ4X
UBbv0/sQJE6caL/GhK6/HM3VmDsDEpmupQW/EN+5Wmv1TxkkOfddGGxDXKP3
1fTzCkh+pSxb3woAjOt17tFD20Hy+80Z/+NLgPFFCuyPiAPJ+dmRu/p+gG02
dP4tXA9SG+zc/c5UACZ6d36f81WQkuK3qNvyHDCFP/P+u7lAyjpC8tjhYsCM
NsreExkGqf1PUy+Z/gRsh4ll54ZPIOU4KBivpQbYrotBz5/FgdQJxobnbI8A
s2xUktXoBamwhRmOggLADm2J41lcBamSk5W5c9mA+RhsgR2sIFWRRv2vdxCw
8xwmbxVtQaqyrqTxnRRgfjUhwXNFINUolz+fkgFYkKqNpsYUSH3rv25Cvw1Y
9ENxwq4WkBaxOTJyOQmwO96nDw+OgfRFGqvs9ijA3sTxVhtzgXTIbofH6mKA
vY1oeedsAdJRB0t0DZ8AVu2X/DxjCKQT/dzMjvcC9t567667l0H6Qel7n3Jt
ZETq2s4584N0j8aVGtsBwHq7PrlsvQTSg9iIhcd5wPou/zpZ5g3SY5b6nQHc
gA1ovms4sAjSc6d/TOXoADbs92QyohxkuB9aCf26Ctj39ryj3p0goy8v5HaN
Cth8Y8HxwPcgY0g+9fNuM2ALtIxcEivImBrX+pe6AfY3d0jCRwdkbF3PX+1N
AOyf14Uln2KQOZXVWaY8BsB0ckorphlk0renc7xPAmAPu3hfWBNkVgXk8pmm
Afgi4iUEZ0GW7Z7js1e7ADYJ5sW5PwFZbt2bb/zvIb6rYLj4DmS3OrF3zNoD
8D8/N2lIBlmtB6Psw7UAm1ve+Eo8Bdljxnmu7+4ACFemvd8nAbKnv/R5hS0A
iFConIedQNb3pPAlbC/iwnAL12qQDb0elVi+EWDrLZlHX+xB9naf+9sCH4Bt
B5a0F/eAbLOfgmTcbgDxbNH7TWh9X7gPq5jmAkhwMMcNSoPs14xbuuxMiD3q
z1qygexE7QaLwDIASRXuqtABILALjAV6SQNIZWcHTsUCQe/h/R7rvwCyzqVF
RspAAEb/GJ8N4hKhP0YeQNjRKjJbXwhA4AivDTYHgs3faC6jo4jz05Ku9AHB
08RDj9QEIDc4f1UuEQjZ/Yq3RPIANfBrqxWGQChgfn0Dk0J86tzZgiQgFBFs
493TED96lPTnHBBeHA+5XHoNQElFSG36ChDa5jr9bM4DKEsuBZpqIF+4Mfpg
/A4AlckcjaQRkONWkdhXVgmgKuMmwE9CPnFPiXUfFfGBxFySAsiJJw7sJqoh
rtYVKmUCOR1xCvWjMADxetOxRx0gd0xzXIxjFEB9S/j0/VWQO20btFXNGbHR
U+InJ5DzuSAktK8b8VlXoUYBkAt+CTz3PiH+uFdkpATkUnbcWjFE8dTwjx4q
lQW5Dw47+4KiADQrPXU3+YFcU+DX7jwUf80xx512wSD3Ocuno/EigBbvkN80
8rWD3zKbxDwRH3z2xL0T5Ja8Ft4g3wVaU/E/xutAXiXiftYfeQAS07aNyZ0g
r6UiLvHODbHs/U6jJpCntCTeSUb5R9rR8FqlGuR3SASm6MoivjJw86g8yDuX
28T7oXiTBazVTS6C/M3JtcClbQA6XNZE8QMgfyfR91/9QcQKXaxiMyCfQ5nw
T0tBbMKZLNYL8sWRn8/RRBAHeczkAPKJkg9PBQgh/kF7x8sGCkw2++1X+QB0
X7Jav2oABY7Fhs5PexC3R4/JRoACb5ahXUYc4qnamV/o79t+EPdi3AAUseOl
TIqgQL7MuisE5TfFz/ONvCEonKgoorCwAOgRxE0+F4LC2SOE0lYDxBR/XiFH
UPDbkKaN5hHQM0+JnToECpG2keqGa4h95bzkY0Ehc9pBPnwZcWVM/UsDUPgs
s2ELO6ovqiXvypwD8qEFDpxMaD3Uw7mx/X6gMKRRuPxPBvEZnubLUciHYnYj
MxaIE8xLdNRAkfNQXkk3yl/qp6wPCkdAkX5rh22RLQDNiCc9ZisoGkukmRZM
ILb6utzZAYq7c6f176H10ZwuS6UZg+L+kmRC6kPE/i6XtU6C4tmWb78j0P5o
j3cbyxwFxTyeyKQDxQD6fPqLE8WoDG50Rdug/NYXfX2zBPGz7cSAPb2I5SQe
7bwBipVKn48abUBMu/QJQ763e6ccieiE2L1kZ4c3KPGF1rSz8CB+fvrZuQhQ
2sK59f1yNuK3LFbdraC0PeHUiwUK4vpLLEwfQEkxUyhnyhXxV9HhsyWgZPjy
qE9HBQCdWdjMMACUzi+wCT70QGxsLhAXDUqBvKV/BcQRm71S9uUGpXDCsd7z
rYhttrFLJoJSvPXHXEN9xEdu9WzUBqX7j27odG1CHFgw1rEKSp0uMvYcqF7o
T23zLYJBqc+vnXHqJOLyNPfblaA0Eh8l04rylf66SbD4JSjNvPw+mR6L+CP7
nGoIKHOKPAkkOSIeKnwhvAzKeo2Q5cIGwNi0ObR9CpSx4dmI9/8hFnLoVwoE
ZZOle8eJqL4YosldQudBea/iRs2/nYhlhxhPf4PyibCm6nh0Pgzd1lVjY1C+
TXEafYX0l+Gof9JXBZTvWvJ/lEXxZhx5soH3ESjfd6sqin6J2F00NHcDKD+7
Ie9ni+qT4fnulnM8KH/8Mc05sYQ4OKn+mQsoL+cEErfeRZwp5ibnASqsDL4b
CmKIc9QiEreBCmdn5iI5GfF9Uub3ZVAR4a2q3Yv2yygS319sDiqafhsd47wR
vz6a6JAEKu7mN64xGSPuHiPIngGVU2OE33yvEfeZVsW5g4pPaJm9ODpfxmCW
23k7UAkp65KnqiIeR67iPKjclpZ47bsF8e+hn4IaoNI0XzA9hvQP47mud18G
VDoSaLZ/kP5hm5x1fmOg8lW54QUb0j9ss/x3h4ugMnH452VppH+YyO0mflNQ
ZasnSzo8Rywjr4f0QVUvo9KyKRoxuSXqvACogp51aR/Kd4wiX5rbC6o72oa3
TwUgpp5jdtkMqrac7OOcZxAzVrCbq6Dq6WMWYoT0CNv5OvS6HKjm7Owofq6M
+IBQaXISqBacfbdBoxrxweHOOnlQLbpd6vjgEGKHx6uor6u++JnElR6P+LB2
bPReUG2/ZX00/Ddid3aRp5pAZB9t2GqF4oV5N1q9QXMTD/8Lz/r9iH331kjn
A3Ez9UGt0Qzic+3s4b1AlLgW443rKeZXL3XCHoi6OjsaxPH9BUXONqYC0SPy
bfAEyhcsxiTKqxKInkXFHa6TiGOvsuw+DETfrizVrxGIrzT/WWQAMZQY1NWM
x+uaxdmsWSCmftbXfo7yAbshVTrOAcSPhLKxcPw87ij71qQDscUij74SjDid
3u69CMQvfjeTLmxFnGGhfzcCiMMNvgYnzBBnue+U5gPisq/mbSukJ9g9X4KO
CKgRqx9Zil9C/Ii35OgfUCOdvaSA4ef5eGOwoAuo0SR3rbmgfMEKmQ7FBYGa
6cWxorw/iIvGvCvaQc1VS5ZfAz+fZzeWjlWBWkpWagve77GK0yn+UqCWaeFR
4FaF+AX9bNFvUMtd1g2NRn4Ce8n1dbYc1J7t/6zZ0If4VUZcSDOofdrEn2h3
AHHlgw02iWjODLxsc9wc8bv9h/q8QJ1LxU7lygPE71kzUlNAnb9LjrWQE+fH
XwvTQF2CVPVs9h3iuuWTncOgTplcFULpBNjHsJO/DoG6p73v53gS4madQcgG
9XMbjR4/ScS5NsdJC9QvlW2ObPuFuGVvxS9zUI8RKNbZivwM1nps1fooqOfU
TSZnKyJuD3Z8hp7XpeuyvxTpHdbpds0pCNT7323KY27Fueu/M4dBfdT25W8L
PB+6zOMf84P6nLdIwtgs4m61PXpoDubocHfjRfqK9QxdUIkCDWmB7Rmgi7if
v+z3UdAgHPA2ccfX13/WWsIWNBQy66bipnBubvqsBhpqauepXUg/sIG4y18Z
oEEza/7ig/onNrhAnfkAGvuiovhz+xGP3LFV0QeNA429zxuoOE/ll/8BjUNb
tJ1mkZ/FvukLXPkLGi45A4+xXTh3Kr/fDhpeb2m7Op8hHmOvxaZBI+bfTDj3
ZcTfKZ++jYLGVaOdyppDOF+6LWkKGgmx6S0H9HF+lWM+CBq3RM0k7+HxnMDO
+MeBxj2d3JcMB8STVJpjA2i8Pms/f1Yd8Q8+j34m0Hgb4pzUuA1nQ4x5ADRq
4t1JSmw4n7ssPQka9Y/Peg904tztcywDNDq+X56xQv0Um07/FhkNGj+PlEyq
NyOe4fEcNASN2TMVsVcqcKZs1jADjfngSqWxezi70ifQ9f/SP3pk+uFcrv1f
LGhu6Boc3YTn569DLwpNQVNqL9/ANNJXbPb6Lgce0JQ9IhSyG9eT2TJ2c0HQ
lD+zTTJvB87dh2LlQVP1mpyTE77+OelB3e+gSamn9TTi+T/3yLlSFDStDT06
Hgsi/l28zVcfNG2tPc9vXMW5iYNPAzT3O/tuOTqO84873dqg6RgUbCuG+gk2
r9SUKwyaxytutsTh9TWf4VK7CzTDtKoaTpYg/uO3cugPaEaGl6veYcb5pqbe
EmhGtz+Oa7DA+YkAiQSa8edT9qiO4TzW5XQTNO9UnG6cxte7YH1vzQI0nxtu
bTqD68lf4d9810Cz4gafelYDzmoHeNH1r0ZY41twfflrct4dXV8TOW2l+RRn
72/2RNBs+VDdPDuCc322Pg00p6w9W8+h+QNb9MR+lYLmz+yjWrm3cA7N5fgB
mrNzBxM/49cvJjUbq4Hm4k1jG51AnCsu9TeAFkeXaNsCrldLrHoNzqAl7Vzz
+aIwzrE99TygRXhSQX6A189S2k+KLmgpshTd7F6//kFrCidoqd1Ls6Ph+bxU
z31EDLRo414dy3h/+cdhq5oPWnZntnUGDeJ8vmx7DbLZ0W80RnD9/xcuf8MJ
tA7ddY3ZnYZzvK9mL2i5tD6iCuN6/u9+vnMGaHmR6bcf1+DcEVS2DFqXl5yd
epEfxJbVNK/uBa0rgmzPDcNwpmSyo+dfUynYlO+Es+FPZAu0kg79qvQVwXk/
JQP9PetNuAw3rhfLQX6Lh0Hrv4jcb9QTOL+fmWKA1sv03fQsPN+Wmx8lZoHW
m9LpZA4ZnLssA6tBq3ZMd0dLD84T5sQm0GrdVZe/rp8r3IpojtCa5Js8maKG
s+nd7VygNa0QX73KhbPl9KQjaP0Ckpgr3l9W9iv0ZoPWwtmARvVMnN0OMf8H
2qztfGrv+XEOabO2B22xVI1f87ierZSojDeDtmS2ceSZJZwr5I01QFvm4YGt
U3g+rlRuKmADbcVXwdjQ+v0fi7GNoE0abLz6aX09Q0RrC9Deo3xCKQ/f7yoP
TcUQtK20A19J4/W3KqBXLQDaNvrXre744yysNK0F2gctyi8k4vFaley/7g3a
bj4ctUF4/Fe1chY7QDvwRc4RO1yfVvcVeaPnhdSU/W6ZwPngl3tioB3eWB9t
juvTquPcZQZox/T/KjJiwtmdo6cQtJPZsBV1CZzPZTKXg3aheW/qBnucEwt3
RoD2k30zqmEuOCdLEnlAu+Qw65uV4zinRkZWgXbFWeXROVxfVrO05vtA+91N
f1J/Ms6PBSMOgHZf35bm520416ytpYD2kJKo3AYGznX85nKg/c1XzN8uH+eP
W1Beak9xyUrP4/m72sKMzkl7UUfDR5uAc++hE2g9y6Ha78Ou4dwvOhEH2msN
uttb/uI82BiyBCQOF3rNmUacx0QsM4EkeM1sS+F5nH/pLngDSbjL4vjKAM5z
+cXngbSNYP16D16/q3/4Sb5Akqo44D61Ho+l6l+XgUQcdStXeo94jbXy0kcg
mTJC7HNxfVgTkniCnmcWE174G8//NWH2fVNAsmi/zGqE9681keE5LSDtO3H1
4VAlzttjDsYBySU5bUUKj9+azPkEMpDcBjOsvdpxJkg8rwDScdW7uW/w+KzJ
vbEZApJXVb6F02acFSdkOYEUMF2aeRvX+zW1sTt9QArRK5+bxOOzpmE7GQSk
8IiXplQ8PmuaL7axASl2W9VMF35+ayTvnU+AdGtHs6EI3j/X9K6qof2mXW9L
dsfjs0atevcDSOm9HROleHzWaL/SxoF0z/vrDVtcf9cYNIkXQHqSMTGSiPeH
NcOgB6ZAKnmSrilih7ORp8leID2vsQy8Y4Wz8QH6NJBefS8RzjPCecd21wdA
qicFmlbgfnZt12HqKSA17lS/ia2vf7dMgB+Qmg8ODtaIr/OA5SEgdQTvuPgJ
r6c1c7PX+kAaqt/0aHABZ4sh22Ugfet9u+iO+9U1y4vP8oE0/tPXZBLP/zUr
3gZ+IP0U6uybx/3XmjWBFgKkWYUrKhc71/l+Wi+Q5qn0C2stOO+Vq7kFpH+H
swU4cb1bs9kcJQakVW9bx2uv1zmU8AfIzJEcDwTL13nijj2QNzw4aST+EGfb
Qml5IHO9Eo/Pxvvv2r6NJHcg8zY19SpkrLOjSi+QBedJ5zQT13mh5RSQRTaM
vi2Lw9mOHkEA8rZtqXy0qHUOIlgBWZxoZl8Zss7/PesDshS2ct/Ef51nSMlA
lndzActTOO+32NQPZNXYd10Hndf51lv0fsrnBO7TO9d5+v1fIJtIHaSHqq3z
/NlJIJuZvOq4IrPO3Xn5QLY+KeN1c8s6P6zyBPL+hMsbMzeus8ebe0B2LJ28
m7+8zgLJxkB2rkufJv5ZX0+f1zyQXXusqE9/rnMebRzI7tMsl3XH19nj7xkg
n2AqaXs5tM7yOeVAPi14TMqgdz0e/bR3QD4jL3rqXcc6J74+D+TzZkHszR/W
4ztxEd3vnyUlqCy/zlFvrwM54HeVVPh6/dmKs84COTyDg6ZDXT8f3ZMngRw1
m28an7x+vi+ivYEcu3P3vvG5ddZLuAPkhJlrZ24/Ws8HWcshICeZaATOr+/X
6tqKHpBvpbZesTi6nl+/w1SAnGEknMe8np8Wj5Z/A/nhzYwe9/V6M2vjTwNy
4QSMv1nPPzOejtdAfsoY+iO6Hv/dYLgM5PJxBf4GXH/XTG/MdAH5HbVoh+bZ
9Xr5UY/y40O8tU3sp/V6mpvSAHLD8JzzyHq9GM75oL+3XdW9lLweP+i7jt4/
0P+meNkWZ33XVZRPI6Qjr/cVr9cvaZcBkMdiWD8W8a7X+8rDZiBPa+0cPYLP
D2u6l+KMgPwvonn7e9yPr2nJ+FcCebXLW0kqaV1PKowOgw6LmpCO/3p9qe9+
lww6G78csFbF9XpNdV/tD9ARVhqISsT91Zr8ZrVu0BENCrsxua4nBM89UaAj
1ka4a9y6rndVz81BRzbA48XCFZwlbdU7QUfj08yvQ+v5tFVk7QzomPkyH1LA
/fzaRqHgJdCx+G/zvWR3nNkXGmVAx3pV9gfb9Loet96bBZ0D0TsCB3F/ubrm
WbAIOm53rmTeEVvXc/pPCdAJrt0yzI/PW6tDCsnOoBPOpaAStK7//Re1EkAn
ypLi8+PYen+p5tkMOnFdDmz16/3iiy6ai3RSf2TJR9xc70+5MxmgUyKsfPwv
vp/Vp9FU9P7nDrSnx9b7ZZHWtwHQqcgyX/qM+63Vh62qG0HnrbLXlad4/Fbv
TQtlgs4nRsnj05vW+2kKtxTojB9jzAzi/mX1QkpXNuhMPrLSs8T7wapPUFY0
6Ez/OhL6Gp8nVr3sVu6AzvyliM231/2De9/3KdBlif9A2rfuD/btDIoFXbFy
mwsfanFWP5jFCbqStYLlp/H6WlV+XOgEujItbYsC+PeAVbm5qTrQVZy0vWiP
1/+qmN1JLtAlS+wLmAjCeaOXpyXo7onYH8aNz8crX5s1pEDX6rpIVZElzp3k
u/Wga5PeyWqDn89Ka2wHBXQPPj8QcRvPn5X3rL3CoOs2cfCyCu4/VopUrheD
bpCVQ5w5Pt+uBCg9JIFuqOP2hpm3OJ87j/ycbsTxXt4kXJ9XPIuukEE3NvzQ
ta8cODuPc94B3eQyx+uncT+8YnzCYTfoFokdTr6Gn/fKhojrZaD7VEnyi5Y2
4uW1yBgF0C0lD4h04P19ecFrqB10X1g6p0rgfmV5dK0uGXTfhx25XfgZ51r2
mEDQ7R93zWrC63k5wGsGxXNYVzDbFNeDZW/R2iXQHY2szqlc97vH7om7g+4P
Wdm8J+dw3nug7zjoLjkOP7qB98dleQpwAUWozbV8P16//95fQOumbJUR/K8J
7w//Kv6dSQXK9jPVL0xxv/Gv8GCmLVBk+GRf6wngnJT9+hBQ1E2Ha7bh/ubf
YYczsUDZ9dq1qQ/3I0tTKxGhQNnDK9iyH5//l75OoXmWYuVQ3dqE+4OlT4XX
coFityj7uRKf75eK7l97ApSj2sM92bgeLnk5K7QBJajAdcwd17fFb6cmaoES
+ldwvA/vl4ttBvGeQIncUT2xH6+fxcr+ICugXBmR/WGKf29ZvO372BkoqRLD
c8paOO+Z5dAGyrMk19VpXN/+3s8sHQdK2YOqv3dw//33hrr5R6D891Z6djc+
H/4NikxgAsqbH/3f8nA9/2sbfjsMKA07HRqc8OcvrDwbWQLKyJJN6id8vQvG
VppmQBnnf3ojAPfrCyr/ml4CZVJB4KoyrkcLgq4mFkD5ZdMUEvUC8Z9Bl5fq
QFl5bHaMgdf7n4t88e2gJ+xsRCpSQTyf7uHyE/REz2erOeLfS+ZDfCqaQU/s
KrMiN+6/5l3V2KVBT+a/N9uP4X5mXuHhaAboqQvSWCRxffj96Fm0FOjtfKfV
FI/7u7k8SWkr0PNXlTlxBvdDvyzpWt6gF6A1k6kdi7MCz9gX0AvWe9325w3i
mVVP3xDQi9zpQA/Ev7fMPByyXwa96y5J/DH/cGY+mXoX9ApS2ctyshBP35x4
5gl6jzLbJt1xfZh2NzIXAL2ivGwpZfz70LSOKCpLvdISRkwxPk/8aNddlgG9
t00XDr0yxplLZOw76HWzf2fp+I540kEoLxf0vvI8103D829S5sabP6A3IBh5
yhGf/ya++/EQQG9UWvrzMD6fT5w7njoMerP69vkzeH18j3wrJAFULu8GSy78
/MeiyhjCQOX1TwtvxPVgzOh5fhlQ+UM8yhNu48zEHB8LVOFr7DIi+PeO0fPu
c9pAlSmgz8t+QfzNHmvQASq1v+g2Hff/Q8v7pBEzFE8nfMbzZShvm0YCUA3O
qkSdwvVjyKKv+xtQTVnun73dhXgw3WHTGlD3yWXuXNJBPED84EMFqtfJa7/L
cP39Kvrs0GegepeYT1jg33d6n/ztyQPquRWu/lF8/727OOfPATXgWtTHLXsQ
9/iEpPsCNeZJ0F0f/H1d/x3oNQVqzoKnhQauPx3sB+2qgHofVI3e4/Pg5+jE
1yxAfRA9oXcY93efuQ5qjwL1yTZ3wjU8P9o5A9h3A/U13XHpB65XLfPpgRFA
7Qzfc78A9zuNoSb3HgO1p4E73eA04oZJNTn0vH6hD4ldeLwabA5cWAXqtzyT
oI24vn2UcPz0CqizH+i27gmI6zKS3ayAxruJyCyL61214bBzBdD4JVOnZ3B/
UZUWSuQAmqAGR++rFMRvZ8wVJoEmajVQvv8b4srkfUf1gSaXmOQVh/vNVx9z
Fp2Axtjy7+t8GeLnHf6JRkAzkPf4WPUVZ75TAuh5xjqf/0vA11dmrP33D9B2
7y+6qWyNuKRA5edLoNmlupo74fPQkwP81OtA8xKrr6jDvyc/MN5EJgHNm6ib
fxNfb4Gdy3b0vHP0e8ku+PfWfHcZuUtAu+QUdHYZ9995gY28UkC7nKWlpIn3
2+yrzLF+QMuSTb2Vhu8/jaAf/BRoOSSOyGP49+VUzq+cSUDLM/bxIeF6dmvK
swfxI7c9Fk14/d/MNz5UCbTy+8wcrLgfSlisrvkNtBZlD99TuB+JWlYhOAKt
PaBWlg/345EJ+7TtgfalSbqlGO/fEVJ6UTVA6/PpUZvD+2eo1op/GtAmX+35
7o/7vUuyzIF1oM9hpe0UieeDp9RUfBPoc2Yn8OK/f2CnTjhl+oE+z++pF3W5
iE8UPvBigL5gap4oNz5fHFO4TncDfanhrW3X8fUf7uxrGgB92rlV0wwlxFbK
c4n2oM+os1/A8O9TFtv2n3AAfcNtz3MH8e+T5qxR3g2gb/rmLCsB/z62s+rf
rm2gb7dx+NUDX8SM34pbRkH/zO0PWvjvx5gqH28BE+j7TMsNHsDPQylhnPkl
6F+AsPhFfH5X4NkZ/hj0A7/Rfujj30+kp2hDZaB/Ra3wfjU+T4pY+GJJoJ/7
NkmsCdc/pss86Nj083syq/O8ABgrFbQwXtB/OP/wRCDyK4ylb/HFaH1PlarK
VVC/YswTrNjQ+19f/2UTjeqR8R0rb4sC/S8uFrGA3sdo6kpjtwD97gB7TZE1
xA0RhjoE0P+a7PblJ5rHGR/krpO6QX+4PlAuHa2fUWVWEYvWN6P1sHIR9T9G
iezuySigc7JuXHiK+jXj5uj3E4eAziMulBGD9Ixx/Sf/dCrQN+lKmTjnIb46
JfL3L9C3nNS9wYf/XhZZs/OOC9Cl29zVTqL4Mny/F76eBzo1p9qNgP/+ZjUZ
pHsA6KeMA1tvIv9DX/2kct4U6F4Wf0tC0f30RbOtGRSgex/0SfZE50+fKx/I
DwO6n+dx+x3o/Onj7vYv2YAekWI7uID/PtjCZikbAfQ7Uyq/DuL3Z8qdE0hA
//zJa9uB359yOym0COg5zNKlWmjeo19fe/W7GOgFwiL+XEjf6RHXjx+sAHop
sDK9QPpE92hPT7MDeuONbn6J7YiJj2LZrYDenGE7y4XfLzfJcgbtpy2/qe0P
8id0CSG1kPNA73pVe6tJFTGf3HPvWaB/G3siGYL2r/8DY6lpRdukRasN4b+/
3hfizaQCg3kHK/8n/PfW9IF/jvrAYLMKnK1A56eflJR/GIWJy82n7AbKB/3Q
IuXPAcAQjj/MMEZ6o29fsPlUCjDUhnX25OH3b/CaWhAFhpZ61syxXQC0fynv
OFiAQQ7gvqGA9Jz2M8OxYB4Y+kIDnQWoX9O+MAjvK4Gxa8cV14eoH9Du1ey9
kwgM14IB/yf8iCkxG6TuAcP9j5nYWaQPNOVdS68PA+OEYekbLbR+2vaBGHMC
MM70XGF7huZ56mpcUO8QMIJ4yfFlOxC/bSk6mQmMlDOxuS8CEWO3TdtPAOP2
y3nTAAJitQvPklaBkcl5eFK/HrG4tPy1rcDIzSZrvEb5qbfY+f7BODCetvW/
qCxBXFzPwXEAGI26pJZaNC/qCckvbUHxag7P9I26DkBZi9E7UAKMtmYukZ3I
f1MmCnUe8QOj26P/UB3SI0ol/SZTMjDG0mLGPkoj9nC8mvQCMOaVvpVm5Nd0
H/79z9AKMHaBvynvUH7rJnX04WW5UX6z9ks0H+gG+s41aADGZ2FyvAD1b909
06qZ8oBty3j4OQzVs87k2y1qYYBpY36PtVEh62wztlZrAEzHJtFUCc0P5NX6
ZK0hwPSOPRyWQnpKHmbrRn0Hw+L7RXlQfyE/SBS95QeY2YBJxDfkR8jkv1uS
+wA7Grr50C05ABJd/ThXEZK5myoLV5FfJoldqzWaQDJYYJIYjvRS+9+N1RtJ
gJ1p8avzQvOddnmc8q5PgAVK95NMUT1oq4lUcughGa96xL0UB6DFUdpycS9g
KR21eTNVAJr9i27WS4Ddnug3GF1EXN4qbb4VtQ3BzRfakD/RPM4IfjkAWKGr
3/AjDECjZki1QwWw92wmLxxnAdTdTa429ABWb28poojmVXXS6VtpKD6NxQe8
59B5q7Mw9Yb/QG390EnlaBRYtdsuFAFvZENKElKfIj0jvutnYUPxWD7a47ch
HEBlTd7e3xiNrRUjba2oflWqlfYkIV/PHH1B5BOa71Si/HNeovey9YX4pKD4
qnAtGWkiHeGOvaGihvyxMjdc0UR5uHWoPO0A8pMKowvqrmgO3nb1lSkd+QeF
jMaQsYsAYpS3f2RRf1XY13iLhnyx5LWP1j+Qf5N/a2Dqj/YtT+3jDEP3yV0t
LslFPkv7BqvfY+T3ZJaO/dNDcSMzNsonZiDOyTO0QHmp852n/cIkYrPhkV2V
eN4LaxhGAEinWt/kRXMlTCqOfUF6JaWQc1wSnbOFkcV+lm0A4ptOepE3A1iO
xmafRf1UrGCbgAPSXeuYdz8GUT8TM8jqcDgFYNuMRbxF9b7dS6miCfV1B0eN
p6Eon0RffLx7uQbA44IgHxPSG+Gtpux2qK5ObLM8eAb1hy3pfcVJyNecfHXl
3gCaN7bIbCEaIt32YmOjvUH3CcnvpY6jOfZcwvzxYOTnNotntNcinx324EvN
Kqp33upfycfGASIshPg90TZ4NbP789C5RP6ycuhD/Zwn/cl7H9RXY3TrZl8h
/eI+03GSbR4gvqZCKhDpFydLhfkutO47fXcuLSP9Ym2udDmWBpAR2vn+lAti
GeGbGcMAWXJbNvci/81yNuD3BZT3OSevFrxEfp2Zy03VWhig4G/Ql0uJKE9M
t81Wo/U933xEaykHsJ/DNUf3SQKUp/ouRZoje3/Yy2Efem+FVHTVpj+ATX2R
tOTcB/BKrdhaDuXZ9wr3u9roPdW717wsZwEbtvQ/exn56qbw9Ie5hsiOPrhj
z4vi1cL1xEd9CrC2wfdDBij/Wq/XUiuSAWsVstrHi/rC58ypD02oDj+d3D1q
h+bknpe0saXrgL3rz5OqiAcY+91NsER1U/Yl50U/ypPvl35Mdsciu/dGzpsL
5eUkK/MzNxJgT++aEHnQ3D4toGR4MRrV2T6V8rcoHr+Jfs65SHdyL6psOqIH
BkzuwneWggFLfLxXp/cZGGz9YrMlVwIwDztqCqcOGGwLdnqVugiYG+VJUR8b
GIgpnHC71g6Yy+ZXfElHwUDyQmip3xX8vz/A5vsiYCAvUrzP7C+yQ/4vNZz/
AwPtA7xJs62AaTmZeXXEgAGZSVR/7DFgasU2ZWxqYKCTTxjpRetT/puZqpkD
Bnp/9UnvMMBkTxb07jsPBpByoj31EWCCXSLpKjZgsKezTgiigDH7yi+xmR0M
LEPaXpKPAGP6uPzElm9gYK3Yf1QZ6fgE50OKWwsY2Pr9KRGcA8agYsefjMNg
4CAqZzPmDIxPXyW3dIuDgcfBsBvXUN/M37ivUCocDMK66Zt7fiA78SpfeWMC
GES4S+lMJgDDTG/EhtsPDCJnWe3/kYBhUvAi4vNBMIjh/JCz7SIwqK4TYdFb
wSBez077IAcwZEF06ydOMLid4mXTIQH02SgL84uZYJBO2Hvh21ugT2kNEv1W
wCCjmHx7/ijq6y2tLst1YHD3/b8RoQdA7xwNZ75+DAzuL0T72ugA/fVxTqEE
PjAosbub1GwB9Kiq46HCsWBQOhRR3v8L6MFx4hx8hWDw3PNY788k5Gt2cvpd
eAUGFVFqcnzdQD+eYDq9NgMGlaUVpXvcgW7meW1tkwcYNAq1fa4PQj7MfNe3
JUEw+NbGIVxTCPphSvXGM/fBYGy/VKcT8qn+qpK/lH+AwXgPLXVREvlWibwV
j1owmBw+K05MAH3HduXz1Hww+DXXK5vsA/qUEGN2TTkwWBV6quFBAdrEl6lz
3fVgKGzntJu7CmhGvpfdYsXBUKTbnzt3CdmDc5VDM7fAUNTpRiNoA414jOWQ
ZDkYirl/sPK9BzQR0fJ9d76BocwFkt3Xy0D9XtkQ+rAYDNVSuFyLzIEaJ2G+
MhQMhju6ygL3ojm/9hLrjxf9YGga9EFyP2rvzwNYbi6MguFu2Z63Dg/QXH8q
vOJYNhju8WRmPxoEelfFrj+uqQRDWxazq+flQc/mZcGs9Q4wPKI8kJ56Hih9
Epy8KA8NLwVwvRoQBt3x27s/HD8AhsUSTqunbYE8cLc28yC6/8n9XWJxUUBu
kXmRsn0MDJ9paFMflgP57d0Y8aoCMCwz3HB+YjuQs1NvLo1MgOFLt6Kf7kNA
Puo/0ZqCnlf3mGnA+QyQxtUtC5DfNBykZVfZxIH2Ly5mxvtZMByqiRvwfg3a
g+WbNjmRwHBkz/nV6zOg3XrSoCXuMhiOHTajNtuA9rPB30kiKD4/wuae7dkG
2heEr7d8TQHDxXrjezvyQWv1Y6JLRjEYbT4wGqVXDVpCtdcoKN5GQix1EdXy
oMW+W/NYSR0YbXn0INw8FjTne8VzM13BSJTJM+SwFWh+UcwM+S4FRpL3/1yM
6AXNtOOv0qLPgpHqAodn02/QlC1lvH/nDkY7b8rvdyeAhmHMaiCxBIwCWtwV
E6OA6Mn18WBEGOI+qXO0g0A87cz9qDUR8UT32xFVIJ4qtR0olwejQDZLB3Ir
EE86M09ADWJdytUucSB6lL6LYBNDnM41J1kCRFeXxaYlDTAK8ih69WgYiAdq
Nj7TSkF87gTXvjLE29wES+4gDiPYrUYDcf+ZeltXZcS3U2as1IBoJ150XjsV
8acwmbmLQLS5MEKT4gOjYJJtNHUzEC2IC7W9TIgN+NqHvgFxT8SQ/AgX4j0f
pK+UA9G85/OxOrTf4GP0iq9OQDSL6YjZdBtxmvyPkAIgmo4amS5sRJw3SFUK
QEz3zTfAn//sdlSrBRB3JhWOUd4ibuSXkv0NxB1GDLatBoi76k81vAeiSVri
4Bxaf/BoxH/n0oBo/Gsm0xXtL3gO45A4jXjXfv0j6LyC1xb3vkf2xyjrXflY
8f+CCxse
          "]]}}, {{}, {}, 
        {GrayLevel[0.5], Thickness[0.01], Dashing[None], 
         LineBox[CompressedData["
1:eJwl2Hc81P8fAHAhIinKJuvsde7O5u7FnbJSCdmhhZCvJBoyKpKsIglFVkiS
ZJOEUGZGWYlsyshMv/en318ez4cbn/f7/VrvMzvvLHqajo6Ono6OQRj7S85a
yRmLV2wC3EtC9OhgOOXmpolzUqkJ4Ap/7JJ32UOJ2xS8cGBOBHBFybkJhz9S
MjYZryTtCAdcCZ8v3piV8npj9Xp9XDXgqmk2oQpClPcbC0Ff+60B98nLnVFf
mtJg+9KIfy4McG1un20yxyiN5V6cNnQlgOtw2xF+P5vSfHk2rVeCG3DdvmvP
xq9S2q4uOU2pTgJusMWgBU+lfN6YD/5xPRNwPz23TjuvU7pzP40z7agC3EL5
LXslN0qPbb6xRMxnwC3vSigOy6L0lnvsPZXOCLi12mgHYwLl6+WppyONJ0GC
4T/tk/pFlOGrCyPnw6JBgmfWgy8ERxnbmGM4134IJPTrI2V2MlF+2FL1Hca6
QcJQ7HXMwQDKj7KE0KPrDiBhEhqhb3mLMu5P3aku7gUSx84lx9lkUCZ+J+xl
vBgLEk6Piy5V5VKmf+mJJfOh919v9qceH6LMHHlwKloRvT+kkn2lNoQy82Im
M0RvHCRCS2qPp3pTZj0fyLqeWwWJqE+j6Y4plLnpGYJKlQBIPPHravI4Sfm5
aCwyrowHiXd9W+YzwpRfYstvh8t9QKLR3/V9qCLll9kT5y/6JSDxERd3iVpG
+fVyOf2jjS5IdKckd5HbKAteT6RfhZiBxBQu+tz4AmVxdhl//bMPSO6NyYnt
vkD5PfEYeP1LQdKriVxVSqGscIlqmbRFgqRvQaap1AvKiu5T1SApZ5C8ml5O
jXlCWUnMkp/8zAaSYcVOjAenKasmL/jK8Y4gmRrcmi0dSFkrqFq0H98Bkp+/
eMc9H6GsDcBcrM4ASPY/e2x1aQ9lnaV2sv5+IUh+D7P3wKlR1p3rh5X07EDy
10W2pVkqZWPfp490yQUgxc5eHSm3Rtn0G8x8am4FUkaOWuJ/+CibGY6pPbkK
IGWm1kwwDKRsto8ks9HTg5SNyF+BgtOUP7I/7vm8yAMpN+mBo+valD/9c4EH
dtKB1B1OgycGypS/sGU98TYLpNrOce64XgHbGKOYHvBcAWk31YAOxirYxu9I
ffCxBqR9zD/x3VWDbXjlwIQbTCAdEHYrlTUKttl2rj/8GQ3S9/CNu4dWYNsr
3rmkD+kgXRmW5q+6B+id0rrTrrSADLfvK/syT6C/5LP3KYEDZET/EE/97AD6
u/pHnk5YgozCI/9UqWigLxlvyjAfBhl94YVQul5g2CNfla2wDDIXTT5e2OUN
DFXFmc+H94PMF6ttGzL+wNAV+j0//iTIjHvQ3XF7CwxT1iIvTLJBZikJ75vd
AoxcG4kFpQSQ3W1YffN1MDB6QOSr2IMgqz/W46gmB9sFmnxLaV4gW0It2hcQ
D0x+gwfqst+CXOGTkxY79gFTdNh4FZEJ5OoK8Atn24Apmxj2ptII5LpH7Ws0
BYGpJ6wpp70D5DbKwvKs/gCzKtE0en0U5A+KbUxc2gvMi2GW9oeYQH6MZSLj
Zh+weBJOL/8yAkWyPm7mrA2w3Bxgmr8SCYoWeD2/0y+BJTk0a3J7Byi6026W
HTQDlpb+yX5+W1BMnJhrMFcFVrlQj1qqOyiu4zQ2WJOAdaL/YmRcJCjV+AcK
SNcA28lbN6U0OgFfHP6CjasT2PyTOsmyjoB/V6T18zk3sEW9ErXgnwF828+A
atZTwFY+VBm8yQT46VSR/i0e2LVPfXmwSh2URUcS2Kdvwq666TPxekmgHDNS
M8hMB7sljxhsNz4DhOtPfO4KdMOepbvb/8u/BqTIoGqnlBfAQXdj0D+6Fkip
Ximv7vAAB9vVN0EXdgCpyIvn0YQJcODcXWPU7gPpyxOehfQnwGFu/LGgJg9U
pKoWqT0dwFHEGjff0Q8qdU0PLCclgfNCmKTHiiao7Qid2V94F/YuhBx0o6yA
Rja/wV47Pdi7RQWJszmgUTG9XKheD/tYGdSHoxxAo70yn3PxIOwTDZG1HKwD
jQ1HQX6hKdh3JGQX9Vo0aJomrH39kgv78oM7BctlQXPpkXMJXR9wuQU7tKo6
gLb2L6kwAQbgHgnyJcm/B3KBT+wn0Ubgnr2kH8CcBOS3P51OrbgB96rHvoYR
HyB3OgRy1/4GHnarV7YJYkD+zSFwc58h8Ggq/QxhCASKZvNk3yIOeGIG3dq/
aAHl7eXStFlm4NXVOnE+9CWAk99WBEUWeE2UFUudwwBcdb5Ulu4D3uOSWww6
jgBe66KnFIaA14MzKX6RHSDQ6kN2QR7wJkz2VTm4A6Q8f8De9wl4fyaY71KR
AujLf3DJzR/4Hi8b5Iwkg67B+JSqXwDw5fZ8+CXlA7pHBGuWDO8D35syYzV3
I9A9fuDdO+PHwNd6/dC75VXQPX3ZMPd+MPD9ZTEbYDEH3aATJom9psDvIGS/
G88Gum9Ee78f0QUBQf3/Lly7Cnr8SbVzrl0gIC21UFp7DPRELj9K2tMEAiRW
HzpmWdCTNGU2NNEHAeNW34joXtBT/lwkbd8PAlesr2Skk0DPwFWV3cYABL54
3OxpmgG9C1l/1CPGQTAhLlGb1xb0at8n/njmBoJPny9w7LEEvQZecs+VaBDM
rzf8scMM9JqdO1P6HUCw7vda1KoB6HUOLeVtDwDBX1ZW33vR549e4e/IkwQh
IwGeOwnsQGXUMUtxNQMhC+J5x2gWoO7Ye1FaCQ9CjsYNKmGMQN05IqZaOQNC
vld9hy6tA3WvK/V5uD0IpQ10E4+PA1VMuGJPfA4IbTy5/5WnBqhkVQvBnhrY
z1QyU7C7HKi6Dz+3lXXDfo522k3mYqDSfgfHdzfBfultS4oreUA1fnRbln4Q
9pufPBbc8xCoVnEuFFMm2P9cklP2gTdQ/ztqq3VsAIQdcqMu8+CAmqLMMHhZ
GoRdI5jpzSOA+qTmQY1LGQj7uAeExywD9alRu/8pTRAOV/B4xFYP1OzDtiTu
NhB+/cK4gt4FqIV8DaljZBBhsg7Z+t0N1Lryqcad7SCy80P1O65woNavCyxP
hoMIh8ZGKIkM1A/E4Mxvp0BEkP/C7v+ygPoxYe8JsykQUf7qLDzjB9RuGWL7
YCSI2NsDjPAB9Yf3UF4uG4g4f7y6ne4TUCdc3ERuILvovPkgHAzUKeuXvAzb
QeTCfqWjdlNAnVO6v1XXCyJhQ/udesqAuvwszuN6CYgUOW4Gf7QDGsOAvYjs
TRDdeaqkruQJ0IT86b+UJ4Eoh/GhUDZzoAlzqRBdEkCUR3nE0HEH0ESeX8OX
7wVRsb87PzF7AU28w6vMPQBENR869FgC0GTmPitNHAFR10+Mk4vDQFPx68eh
fBQ9X/Qw7+B9oKl+sZqZQr74SNHzkQHQ1NXPS/lFgGiQy/FFvQKgaU7d+qGs
CqIP6XM2YwKBBlLqW1JHQbRR7ehuJRGgGbHgTDSvgOgnobH24C6gGauVTag5
gWgX4+V73WFAMznpeBB/A0SH2tN5r/0EmunLhRLJYhBdObci2lIDtGPyi0cv
4EBM8kkyyc0RaLZP9mePzIPYTZZJ64xUoLllGn8TmQWx8DuuJ80mgHbOx/x1
PIBYNNukB50i0NzBt6yUDsQe7Z4MtCkDmkcnz1UFExB7yTWZtbsDaF4juqvL
LiA2IDq5dJkeaL65re+XNUFs5KnrlhRa7yV7O90NVhCbwE0xd0UCzW+X3rNY
AogtSk0JKPEDzd9F3sitCsRZFKZ0R4lAu8r6JbhFBMRVNKaiTE8BLYipYXth
MIhrlrslbOQgP85YqGIDcdCeSstG6w1W47lLPwzixpSpYoarQAtxqv4djuyk
P9VfEge0m5mBhwN7Qfzu0WlZsXqg3f4ZwEAvBeJjrtN1K1JAi3nEKo8PBPFp
p7qWPnegxXLde2E9DeK/rJO7yguRIwd06tDz/TE8PBpIBtq9a5WkDxWA45Iu
YmSxBFrcIeZJ6VXA0cavUgVuAS2hyK2fngQ4oyELoz8tQHsoeFKswQVwR3oU
zYY5kUOM1o4nAM6uftg5PQVoiYeWyB8vAc4nkxas8Bpoj7pX977HAS79NNtb
yijQUsqYBi4VAS7HbuyDmCzQHnMqj0aQAVdgXtXOiOLxsetFAmsN4CpoXsON
m0B7wnXotz2a87vEP9OZ7QVaqnOYZmsXmstHkimn9ID29POuRZZskDjpqFAZ
huI/W7p0N88ekHDV5n68Kwn5zKhn8BWQOM/zNzD2IXK6Z2rib5C43NpOTYoF
2jOhjIUwS5CIpfh8KLgBtJwdLR7BqFe+3V/+udcVaLnvDgWsDoBE/Xr6G/sz
yKvCfCEXQaKl+27CiDPQ8uTPhnJFgkRv5AnbGZSPefecbUpGQWJ+i36EzhRo
z20lHhsHgeT+AcM5aQLQ8ju333xLD5K4UkLrcxSP+X9HDN8MgaRsnMBLghzQ
Xsgb2d8KB0lVk1kfbRxyyFuJ4BSQPFQRvX6EG2gFCq5nw3+jufpRLxOqt7SX
7kmdmUwg+cXmzP6Gd0B7lVqbIlwMkkPtmgczzZCr55XfF4HkmAG71w2Uz68G
Ohy700Hyp0pxre4W0Ip4qy1MG0GKiYP5dIU68p0DCeamIKXckJ1XkA+01yeT
zeycQEqNfPVzlDbytRBasxJIab8+suXRjPxAVk5+GKQOpq0dkUX59vpDpQr/
S5CyDzBczBAHWrH8jgcRiiB1mzSt+TABeaxwpDMcpCJzq0/6SSJvzCS3jIPU
fbF7EZYoXt5w/CSaNYHU4z1ag3tRPr7RsVznDgCpoumIoMhdyDEvmWLjQWo4
TaExOBhoJcoMb6JWQVp9t5flORTvpYcO3TLMAWmdzeRrAWh/Sk/s1PxVANLU
yab02NvIXonbA4ZB+nAdbqE0E/me/If0MJA+69cXxYz2p7SbpB9YB9LxI3oN
6ceAVmaOb1HvAumk1vNzb0aQT6pJH0wA6bSKZK5mFK9l3lzvBoNAOj9+5eRC
BHKUvR1vIUjXG+fRAcrPskbRA2YKIL38mkt9QBNo5YSOQzxNIL2RpnfiZyMy
5c6NfnqQ2RZ1PpTxOLKJ+G6FBJDZ5frhs5wP8qm5AANVkJHYH/CfPzqP8ji6
g652IGMeOp7DLYo8b5X//RjIvLIpEziM6ntF5PoGRwfIlIx03K6QRn5w/da1
IpCpcptalTFEfjy/7SgJZD5cEfjMEI5cEHW/yAdkhh5diyxhQ27rf3c8DGR3
9uvSi+4BWuWuDhJzMMhynLL2isQjcwkxC02ALPfMf4MbR5EFLdpMvoCs6GZa
+WeUT5WyMb+r3UBWXYjxYvg+5AMaVpUxIHvKvmFikRf5sqvOqQqQdR0bPu6I
4q0yMOvcuD3InvdYff/RGvlWt7RiEcheDpBJy0pEvrd9xGoBZKNT7tjZCSLn
FHp3/wLZiiHT1veon1T2nLj9/iLIcTl+Ln4gA7QqySVd5lqQEzhxUFzDCFlu
ouNwJciJ2pdEfXVDxrfxl3GCnILNI1dhVH+rNC85/OAGOX1zJ4FseeRD8kFx
/iB38eBMYCnKzyovUw/rOyB35YD9rC3K5yqfAPMBdM8JorVa//FE9ntKr5sL
cnd1C4m6L5ADmyVz7EEuQ+vSWBPar6rohy3evCD3WYnB6CvqB1X5hnrT3iD3
VcHnzTXUn6tedqzo64HcN7kfOGF03lWvjynWtILcrHTjn5NFyBVqEaElIL9d
LPLFjCryh9iyEGQVbv59f9D+VY1kvVu7D/L3/+CHhHWAVs0+jvNiBfnEoUKJ
U2j/qzmc/kIjyD+pJZ7LnkLe23306w+QzwtVWSWgfKzmzX3K2A3ydRxaHPpL
yGKszY4jIL8ooU91z0MmPrMSqQL5Neb62y9DkFXeOQReAfmtqYOtv22Q1Xq+
XgoDBdYXRnaBKP6qtX5eMMkABTGNwxfvoX5XTf32TMEWFI4ess4qQ+dXbdYm
K4gHheNKX2a3FpHNE4TkckDBntOORG1CtrR1aPEABZceh5qPfsjWnX+Z1kEh
0Olk3zCaF6odo7ZrxoLCi4uebMwo36o9VI/qaYPiruRgL/MN5JA4RWMAxb38
c38Wse+/UV92PRgUeRNs78R8Qr65bDm+ExTF75EyP6F+UR1mOLDvCShqhP0Y
MKAhR7SNXjgFiqd9jI20sM+Ps+vMUwVFt19vevqWkeOdU5IMQNHrPO60nwPy
g9NjkmRQvOL6J/A1Ou/qh6f+5N8AxZgTL94oYs+bfGB7lyAoVhrvw4lh609P
iMhBrm0MfFlzEznDr9vkLig26s9SHOaQMy1XojJAsRPqbR6heac6m62bux4U
J1X9Yriw9eSeuK90BJS4RPu3djxHfplxIVcQlNxXM3rmUT+vrug85CACSt4z
507WZiFX3nzWkAJKfsP4+XiUz9VVqjLHLUDpRkMFszaqZ9XVMRlPnUEpKb5D
NRx7nloiv5QGKLWQtuIkUL+vbsAxiLuBUod0nciaCuayBjNOUOoVvJ3Xgvp9
dePhla8LoDTKuK/uAqqH1R8u5udLgNJGp+ziW9Svq5vzxxKJgOcqyX2mqIDc
+nW8NwHwvIWR53mw72+zPfz4EeAF8v5T2RaPuc8pjR3wok9Ua7pQf6pub4/1
qgK8Qujb3ittyJ2FoS2BgNe37GX+gPKlukcj2zsf8D7LjGdOlSMPeGtKbgD+
UoVd64Y65gYeKz/AXw55rRFTjDwosD9UFPCBnGfYqgow17xi8wf8HaWGV7yo
H1QP08tPFwI+1S38bwuqZ9UjjlyHzwA+Xfm760ls/0ayrz19DfjMNa2OtbuY
fyr6o9fnhc5kSqL5tfr7Na8sL8C/yTA1CQxAHo3K3OwE/MdhjockVH+qf9w/
JNUH+LYsN/qmCcwdTIeDAd/pWevudBp5fLfo3zbA9/65QIl0xBx6a34v4Ef5
u8Ym0HxWPfGf0lgJ4NctEghJaP6pnpLRELQEZcnm/S2MfMizKkYPy0BZ5sZ1
sXMLmJ32NYWDsrzOkF8nll+zEed340BZueCJxNOrmL/1fDcHZe140et6qP9V
z4XG388FZTMnHCEI24/56pQmbVC24L8RNnkd8+hgJysoH+8cHTpqhfyTpWoX
IyjbH8iIEGXBbGYf9gKUXeQlx2rcMQ+pH7YB5WsrMgl/0fxT/Wtib8AsKAcW
3J4/uxN5gflZYTYoh7hO6X8axSw5PUcPymH9OQspcZhPXXKVBeV7tfImOquY
v1aFoOd7dlfx79Vq5MXyrPxboJx3IMpiFKtni91m+m9AOf/vfJ4JFo+LP1+9
Resr8i6wFhRDXsIlD54B5Wor5cLyW5hvCycTQPmzOOn0ugnysr4tSQSUe3ne
al3NwGyf3B4Pyl/ZTPdsYfG4fDGOFAHKw8tnKxheYE5Pn2cH5ZmGR5y7ODH/
tYEHQGB031Yl3IP8OytTLA0IzI6R99Kw+vC7PFDRDwisFgKuOCxefrfy5vQD
YQ9ZZZ+MJublUKFlIAjucXEjoPm1eoXiknkGCMSiVm59Z8wN+RbIqs9spxuw
eF/pyYvGA0EjeeKtEVbvV8b/46oFAiWU3t30PfIqk2nlRyAYW6vUWklj1nU5
mg4E00O1D74EYT6cXvkHCEf1DnvYfcFsn/O+HgjH5Vx5ne5g9ucibALB+U+S
pxtWn1afe9JpA+H0ggx19iDmsm2fFoDg8qOY7zxWT1frnWVuAMGztbXO5yjm
wdtDTEC4nMbAj+YQWvUaW8AtXyDEHnCtj/bHfEJP4C8Q4na4U6oTMbuIXzMF
woMmz5K5Csxe/WABhGTTC7mH6DAHdb29DIRsy2vRLNj5raWOH3sEhFzeQBb1
bMzPbruvAuH5l+Dgs1i8r71kvDwDhFcOoT71uzBX35JnA0LVmRjr4PuYv1QU
vgfCW+l7HS+x+rD2Te6gKhDeTcUbD/diHveRRJ/3wfMRmSKAeTHO2QUIXb4Z
YhtpyOusfC3oeXvUs5Jk6zDvdnhPB4S+9Rwu6x+Y912XQOc/FPCCuUQG836z
JHReU7dKZnyw+rOOP/goDAizBuWnn3ZgJp3j4QbCT9bKwQ6sH6+ruw12AGE5
srZdWQ0z5W9RMBBWj7w3csTyb516/5ccEDY4G95FXcZ8kKnHDYh08S2vZ6sw
HwpcKgEig1WrkiCW3+tHbh/LByITf3u2CT3mY555rEDcmdKdmKOP2aotyheI
7I59e/vOYLY9pFUARA6xr3d3YPG6bp8lngpE7szh62ew/rDutDD0Doh8LiOr
cVh8rJ8c/eQOREHZsf/eY/Vy/XSRQhkQ98+MTy1h+b9+1mlHFxBF86dOiR/D
7DLtxg5EnNfMgBlWz9fdjtl8B6IUYd4yCOsH6+cSvm8CUWbpV2tBCWb3il0E
IMoXLxkMYfG67lExcAOISn6/a9k3MXs+shUDIkFzTYu8H/P543ecgUja3Cjy
gH/+5d0BRLWqLYUkJ8xerlwiQNShMgivp//zrzhOIOo17OC0mvi/eW2AqF+n
xpoW/s9vEoWAaPD2DP2M3D9bDHMD0bjq/obKv/043zweCETT8neL1z3/mS/v
IhCPlixMf/i3H54UmSkgmheLjnIW/nt+betiIB5/daTfzvzf+jhIaD02Bde7
Mpb/7Ufly2Eg2j/Pb5n/tx+uuo1EIDrmDLzXUP+3n8nulUA8mc1WGfxvP063
3UsB4pkMrdctV/+dx1elNiC6prnlc//bD6dKIg6I7o8fZp7A6uf6Cd9IQyB6
P1yJX/wXDzbnWeiBePGBZJT2v/04ns+oAES/+xaht/7Fh3kduyMQAyJf+fH9
iwdTn3VLIAbdGfE6KYvZeHe+DxBv3OZwyfu3HweDuA8AMTzkvDXs/he/4wlo
/XcDU47e/hf/Wv1Xa4AYfe2jYacZZrWsTCMgxvvJaZ75t17FmsPxQExzHxe4
i81P6/wrdnRAzHDj3tv9L765ErvrgZh9Vp9N5ATmPXuDUfznO6VtvvqXn4wh
zfuAWGbpMPAFy7+1aVufJSBWHrvbLf6vPow+7VAEYs2Rik8eWL9aG6j+swDE
emP+ajrs+dZavVfR53VQup9IqWIuqHyN4vmzzvYEr3/1ITulJQ6IvZqk6DIs
/9aeHP2bA8RBUmzQoUrMUQqNM0CckjF19sHmyzW3InTvItFz1uPeYvVxjbc6
fgRI27f9Yek3xbyrp5YdSMy/iHMrRpjpqy8vAGlXa2qpAvb+1enNE7uAxBdx
7dBD7PxXK8QlsoEkeKWIUITNZ6sv8jd/AknYbZqnFcu31afM7RpAkjC0Gtku
j/m2MPsZICkzkXz/E8Fs1vc1EEjE5XO2EUKYae/S64CkOpoGWfyYVS8FmQNJ
+90e1gGsv6zyaX2fB5LB9enHhti8v9Ivz0IA0om1tEaRn5iPG6UhO0/0Pdea
xaz/NLofSKd798RaYvePFWL1Y08gnSsOsIvA+v3KborUZSBdumD9cxXbz9/v
DnWeA1LkLAdfGzb//hYmeqL9iek/uDWN7edvlkAhMpDuNweMMpVh/XYx1PQh
kBKfzeRrY/1lub628zSQMs806mVj/WDZdUDGDkiVw9fPBUZh/T6NPXMLSDXJ
cksGFv/6//UYByC9s+69tger70teObOTQGrsVI58jM3PS2TFVGUgdb7//rLq
37zxuY8Nnd9k7sGVzXnkhRUFRXQ+M2eXAuteY+5bH7oGpHlcKkvEFcwVfg2/
gbSUvC4gyIw5MNj7KZD+RueRtYQxM5aKvAIVLt89N/wPI//8wzZvBCq8hMpd
ulyYv9z8kQgq/POu8Tu+Yn6T9jsFVERcarMSzmL2qt89DCpytj5Nb/7NZ4MJ
F3eAii707VnG5pO5rOy1EVDx2Jma7I3l3/RE+4MIUPFiuJxhjtWb6aKV3YOg
4r1x7Lkq1n+nA++UjoKK3/T2ig1JzFyb9V2gcqPJtf8Gdr+Y0ujs9QCVpNsE
gXisvk2cXL21ACqPg3aK+2H7PyFpFZUAKml+o3I268jjE+wul0El2yVeSxjr
1+OuPvedQaXo4LpNdjLyj5NrzMWg0sJU+7AMqxejqtQ7LKDyaetRajI2T32f
lThXByrtv32eXcf63fen5HUzUOn5IVlKxeLn+649g3hQ+f4+vLcFu/99617K
LwCVjRvHeIawejSk2xapDKpy277HM9xG7juJP+sJqgoNBN1YbF7sY/Ay3Aaq
+IjAWVFs3u1Nq6x9AKqqPPtpFKyf9wz67VUEVV15q4Wr2PzRbSQ5/xlUj1t+
Ml3C7qcdPym+0qBqIyi4HhKKOVA5dQ+o2n07l8mJ1a+O3Tt+LIKqs/uOP3hs
f9plbKu6QdUjiJrrjuVL6xHq0iqohuSWMo+5IDefirmIfOs/5lc+l5Cbvl35
QQLV26qWJxiw/WuyF+TMBNXImsViUaw+fzjiVeELqg+7FU/ZY/29QWr3EbTe
ArqnNd3HkWtjJF44g2q/RaR/wwHkEgr9HQNQHWIb45TC6tubqEPPekH1W51W
ThiW78UD4xvcoDpOmPhqgMX364trSZ9AdWEPVbsJ26/CGP7z/4Eac9PK349Y
Puedv7p3AdRYg00TFLF4yk0rzKwAtV0aGfhIrD7ndP4ixIIaZ7aZ0+F7yM/w
3gO1oCZ0M6+2XRs5o20rYB+oEcHpZheWnym5Vdr1oKayUrKfhMVPciU3ims1
9RfsxXHY/TepBSeL3k8WKh+3xOpf4veDXjOgZrDBbdCD3Sfjl9mz40HN4XXz
zq8k5MhU11USqIXLkWK+YfXlys8bdNKgdlfozTO7WuTL0dUf2EAteo9mTQ/2
e4e/wtFd66AWtwzzH7H52NfW5McOUEutPnSoFIsnr9ux2+1ArfTYGZZoLL9P
SWoGpYFahf6k6E5sXnK+9beWDGrV6u7qt44gO37/L1AW1N4LeZ+9ikO2j5Kn
5IBa23jA+7NYvFsWFMWHg9rElQdBFKw/G3BYvDIAtWlP/oQyrL4ekFJtqAK1
OcfkAhJ2n6Opbf7IA7Ul/adDsvXIYLStogTU6XYX6HCfR1ZXdOEqA3Wep42r
s1j9lJz+UzoH6gea172STgKt6m/Lm0RzUDe8syhXx4385/A31NfVTYynf0yj
fli13tIvcgPUjzYP2Gthv18tF21v4Ad1u+Yawz40X1VNq1zQywF17+Zb4jwo
vqu6fl9qrwL1i3cCBimGyB27xXnyQN3P+NLDM9jrW0Xi73wB9WvNrruLse//
oBApNAPqYc3GmxbY51fMVs05gHpKM8fnWOz7036Huq6Ceuod1uiya8iPYyc3
ukA93ZjBeAR7fZLkMI8RqD9rWqpVfoAcp0LcWQjqRU09+W0oPqpuTQpZL4B6
U1Ny2C50X6tySUyukgT1300ymreVkXHXbM5yg/rae1OfZuz1wleif+8H9c2a
Cy92ofiu4nc3vFYFGvTFVeIx2Pv34PJbZUGD/ekxtkT0fJXrsxrHhEFD8urV
wTx0H6v8WO7LZgcaMpfSeOfQfbWyoXWS2QY05L0bjuEbkd92uXw2BA2CK0fD
a0Xk13kjjaOgQbbILKhE9aoyKf5XvjxoWCq2Bbei+0jlWalrR56DhrXMciVH
A7KjVCKZBhp2Evwrx1A+VFrv679tAhrOAqfP9ToiGxVv7xwBDU/mdfNvCsgK
u3Q8YkHj5jec5AKKj4rZob+9PaDx+t6lZi50f65wuJbvvxM0Suw4nzGi+0WF
he27WUnQKMc9v7WI6lGFidgP1QOgUfP6u147mn8rNM65+XKCRnOvadndPmTO
IXo5HGiMCEnkbEf9t/ytAFOjAWiMjtWELqH7U3mxxzPWSdAYz7c9/R3Nt+W5
GX5haD2zlBjRt7nY79fvYhL3g8aq0+bDa+h+W+5SKPXODjTZMzvDltF5l7Pw
3yDxgCbHec8zo2ieKttMWX8zApr71Flonb7IPxl5LX6CJt8HCt1L1H/Kus+z
M5eDJm46x8/DATm1WpCvHjS18EFnx9C8X6a8NSvMC5pny5QOfEbzbalquHlp
LGi6+XRwxNkgS7RnNZmDpoeST7/FS+R9818sE0HTO73sv260vyULLwyLv4Pm
tSj9pB5Uz0rylNjJv0Dz3inbhS/o+Uq4uz45b4Fm/P6tykR0fythsHpx2w00
E/pSw2zRvPlmPi8XzTeaKabjQl9R/XnT8E7gaThoPtPwNhhA8+Sbi0kNec2g
Wc0eljKE8ru4If4lgzNovv0g5/oEzX/FBSM1Zg9Asy7kE8kxFfnhCmsAev2H
tb0fvqH6UnzOV77sGGh2fU9ZGslH3lntPlMImlMlr43G3ID2Gv4+OJwPWtzO
335PfQPaK/+1Xs9h0OKzegnv0X3qlVV486ojaAmaBoY/iUZWra3XXAQtMU3h
/Zao3xcu4IRDCkBLkcNO/y06r8JTsRwFdqClX919PwH1l5dqICHqDFoGrzMG
L6D4frn7Y8ffm6BlnHtR2pQJaAXjC5l8waB19MHeCgbU/wri/5xpHQMte88j
38+j/v5ifvUEdR9oXRRsJuh/BFp+RPCmuRRo+XEmXhVB/S3ffv3vL2nQurLD
9f0Gus/kK64EPF8FrcClHdYvUT1+3urXHVwHWhHN+kGC6D7ynNUvTq4JtNL9
q1sXqUDLPUs2oHMDrc7uIo8npUDLelm0g1MUtLofrtlKo/PPung8nsYOWn32
ZIMXKL+y1M/I7fcBrcHvjeLVmkDLrKgq1UbPP/nza99ABdAyqkj9zMdAm24n
wwF+VF+fpo15EudBm/6TATENxctTu9AMlJ/a22PuispuQ+a6eneuFLR38nJv
augBLe3m8a/N10GbW0K28Pg7oKXaZfi+MQJteYrZ/vsoX1MmePq5kkBbif4B
myDqJynxPIdDN0Bb+f3XtXQ0P6ZQDxkcVwRtNZPTXahP0JIfWcil+oG2nrV/
eDuqT0m6KW6obmtbXXiywo728+FpC6PmSdC+kTXfGtYFtNh145juHNAOzXTS
lkX5Hxv0JvC/ANAOT+/I/ojm+1jmUY0IG9COTn0dzIHm45g9F4Qt0PclPbpC
etgNtChO1lDRNtAuimJ6mIPqQXiXuMWwHWi/uevHZIL2L/wAs7txBGiX3Zn0
nkfzxO1inxE+UdCuCWsxIaL9Dovt/97qD9otwTFb5f1Au6XhyypgCtqjvkIn
WwaBFqRpnhi0BNrjPpFtnqj+BsauhoQvg/bUBTodDjQvX58cc6ftBO2f579z
W6D9DogN+9Q4DNqbrtmNAyi+r3zyj5scAJ199iSFOTQfXpzZCg0tBB0azWh1
zyTQXNIUKX5NoHOQVHf0Bqr/Z6sW7N+SQcdIQidnBc1PZ/p8OtLUQecIE95+
EOXraeaUvsgroGPbyPUuD52P08Fpn7JQ0LlgPBxlgOLT+tiJpWucoOOrbT1R
ge5TVoYnbjV4gY6/fKee0iOgHdeuseD9CTrXd71f5o4FmoVAxLP0L6AT3ppr
M4rmiyMlKZdWzoBO2jFfyUBUvw66zb68XA86GdT564voPn+AuHp8IQ50skku
fWfRedDW1o+4BoBOPpdthKkJ0PSuNoy6oecv7YEFQS2g6djVGCe8Bp12252V
JbxAI1x/nvMhAMh0zqnm851A4+f/MHxBHsgMItFme9D/eaODgptVgbx98Pph
vB3QeOhLGfnkgLzTxt7Q6wfQ9vaHd8pdBjK3GZ/OL9Q/dp2aDfxzD8jyujGS
S/uB+rdWJnH1MJAV/wbi9p0E6p/Ns2/lTwBZufK8KCkbqJuE5wEm/UBW0zgk
cFEZqKv38LKHe4Gsp8yy+zcNqL/ECT8cLgHZSiRwddUVqN/8dr/fMQlkm8Hz
v3nzgTrk+ecnxwMg2yc5LKovAHXAySs2hw3IJ3m1Z/2vArVP/e3O755A9ty9
+m09EqhtBUKQ6g3kkL9eTZtFQK0q4069PgjkF4OOyXR/gRq/0YXTGQJyYc9V
Pq06oN7ntYzPQut53fYgzjcMqDGKOgqCaL3ltZ/uznAC9c6B7RObrEBuyNIO
6MEB9TpOYUxzFMhDXryOzw2AejqaMfxMPpBHXIn9E2xAddbZJrPmC+Qx58PW
Yu1AdRh5FN8eDuRp81tHE2yAasVzKTN9Bsgr6kt6IR5ANZJ0/8aqBZTd29pw
1rFAlf9k0r3XCCgc69NP7lsCVfovVdKNESj7lpgFWwWAKiHNHvjmEFD4f5C5
aOlAFXJcCNwWChTJpjwmpTdA3eV5/8AkCSjke6ET2/tBb3ru+p5RNaB4SlBy
CyVAL03B/+sfEaB4Tbc1PywEveS47BOS6P8XCp2mgwD0Epa9ufrsgOJPuSF3
xA70oh69xl9OAcoN68acuVjQuxrMEeYgD5TEyKM5slugZ/5C8aFME1DqV05m
P+0F3S1rUlKDNlA+VC413jkDuquZZvuWMoHScuPmhPci6C5MKT/eTgeUDo5s
aT120B23lBC+MwGUAbmZrGF90G2tOsdweQsoi44XswQLQTflo8+Xxf0Au0ff
dTTVg65K7861qH4ADt091lKaoKskwMeREwjAmWw3FPICdKUteDMVjgBwWSzP
aCeALv/zVfUqQwD+Bunt+W4AW4s3GTkFASSeRajHsgO8b6e39A0H0PI0T7G2
BDDZtA2JnwM4szLmOj4G5Fv23LU1TAAu/zUqtScC+YIFePFsB3CdzlkuNwWy
I9lk+ksGgPuQV1BkMZA1vn/OzdIC8K7feKgSBjozwbpJR04DBMRzNIbIg85h
rSesPPcB4klkqf3eoM2m2WNlroKewyt+1IIONLx/XAhwYwGobydd5eIDjRPO
PkePVAE0Knfs/UwADeOh5KmmSICmxV1Ui1OggRu0qWKPAGi7GJJm0Qjq3Uvb
nhy3A/h62cvRMgrUtV59mdtMA/h1w7Dfaj+osfBvOlkpACyMjvvwqoHqbwVS
kcw0wJL+zZ29R0D1+8Ey/AYvwApTjZZVMKhWxgdIpfMBbN5WTbT6AareTyIP
P78MusyR4lbW+aAyGBv18b0y6Ao92Oyy1QFSNbF4pKoYdIW58bnoHkbKI3W9
ZUPnIHL/VPDyHJAeHnA0HmIDXfHoFuXoJ0C68OhylEQk6MrcfhRZzwgkGc7M
JOoIOucrmob4FiA+sI7dHmYOuoccLlUx2QAhmPacSxxA9xpuIevlJcDH15Ge
CRYh4x3eCzAhW3NxebEgazWN3IgHfNzsevBSKbLZU6HjRcg8XU4RnciBx2L/
/AL8vXN18q0E5K9FAUbnAB+97946+SvoBsT6mn8/AfjbrkunlNH6ApJHvE3m
AB/212fxXDDyM9Oo4gDk++shj+KRaySbbicBPrRmX2ZnJvJsDyj1Af4W941V
BxvQvW6oLnf1GOCD6yzep5xDNk83GBtBtpE8ycSI7LjnzGFvwAfNb27TCED2
nUgVi0YWKKasvkJOf8jd+BHw1y+cqb/Jj1ywnUSwQ2Y54boWjlz+39FHM4AP
eGzPLjqF3GEYcZ4V8Neaz1oFY68feP2s9yGy04WtVzeQJ0Ub9KQBf3XlZkYE
Hnnp7mhuCfLdpEM7upD/rtNzHUQWf7Msqfo/oBKzDw==
          "]]}}, {{}, {}, 
        {GrayLevel[0], Thickness[0.01], Dashing[None], 
         LineBox[CompressedData["
1:eJwd2Ac4le0bAHArFEnIzj72OOdwOOa5zfOSlFEaaBgVGaFCkhSlIStSMvuM
EqUSJZQUIkJlj4iskD3P/3n/1/Vd13f9rjfveJ77ucex8z0u7c7ExMSC/lvE
/2/0n57/l4MyUiA3wGoscLSDdiWYNzDFbwLkfk3UXdlqSUsI+s140akHckOd
PpNlE7TsoOYaY54BkPvzQfPglCDtRdAnRY58LZCb/nivaYc/rTqoqsNzwQUI
zKkfIqryaB+fWccLdSYBgbXBxuWnK61mpN3qY0UTENiZotvd02i1+6fKJa4B
ELac1279zU5rpEiktQjLAIE/7VJQEhOtNaiCLJ46CwT5nqpydytam8BVnoBt
vEBQcmb/0m9Ha3tmOVZ3WRUIKgNZVHhG+z7yPfucuxsQiKubTgi20Nr3Two0
q7UBQd/39U3edFoPRWzxSkUJEGw9h/VE+GiDQeW9Z/0MgXB5/Z+t0VnaYKPq
nHX5NBAiIw/9HrGkDUk/3CK3+REQogW6r33Pow3VX6S0ZG8BQqy1/7HsSdqw
uOFtje/tQEiXHMKS6ml/Kiv0x/QDgVBxUqfAMoQ2KqBu+/66IhA+BHfZEkpo
oyfTTtxr6wLCp8RPh7LTaGPbwxLoPiZA+Dpc7fRQlTbuajT2KBN9X9960rLf
HO0ve2XKEfYCkGfbLOhW6Uz7e1ijSNv+KMhzli5Tj6fT/hal12zN4Af5rQFB
yaRA2tSBS9PluiEgL8SZ22ssQ5veJyXHXSIH8solNqTZFtpMTv+FU3/+gbyD
ZqDkoiptzuqYspzNbZB/5sZq+vc+be5MwwoLhRfkS9TkLsuV0OZSqHX9YvEg
X85C/8oeSZv7w3vqwZ8kkP/cPN2c6Embj6zM549IA/l+loOT3O9pC+8lFFlK
CkGBr95zJVKRtvAnerH/IREURFw+tbm20xa3zX+uuFIMClJMOds99GiLLo0n
QvaWgIKatwPnNRptcS00Z2asEhSwSX0T+QTask4XYUCiGRQi0kQji4/Rlo9Y
zFdusgOFG4Lt2XvGactRxTWp422gEJdWJbdLhrb8/Yb7gdJ2UMjoDm4fvkFb
CdB91Gw3AApVfP99GWqmrRbek62M+geKzBE1rpVMtA3CPumHU/ygGAdPtKtC
aRu7VlbdCq1B8X7O+RdfzWgb/hnfVbyvguIjiVPP4odpG5UT10vHF0Dxtbl2
w3gMjXHoylTrn3ZQ7D1TG9rjAEz0jiNsMzagRDxWKfy6FZgvcqrpjfOD0mCI
DG9bJTDHHhaVsHoGSlPHhPzVwoE5u5CD+bE1KK26KO//nQHM9fb9taeugjL/
A7XMRmFgEUpP3DeyAMrmcnvr/TOBpVh71W+oHZQLYv3KWt8A64h7XU5vKqjc
fvfqdZ4MsK45MZ01lQGVh3/fJYQ6ANt2Ox3T3FxQKTRqCOydBTZ9o0f9fsWg
0mTwtFurHtjuCIWLstSBKt9LU4+jX2GTdp32bfkFUE0vLVJ3iQT2KNXsAN+9
oNZqHDZMYgP2BzKdxq0/QG0kJ8X7jR2wPxPZzks9DGprRNaii7HA3rkp7Cmz
B6gTnrnfFbsPHGq9B4cTLoJ6iNejbVEfgeN7LO/B149BQ3kSO/TEHjbLzV4E
JjYgOtx4/oTVBTZTryRdu5oGxKO7Mzi/3oDN1vxFTZupQDwtY3gn+QxsDtD8
5cLnBcSrTMV0QjBsfh9ID5VrAeLLhCcd/RuwxXl+e6llJpBERP1OH3wBXEkL
OcQEIyBN/erpqTMCrsdRlUFC7UBan8grllsErgrB9spUfyBzb+aOH/4HXL91
uGz++w/IisH59+u6gVvzvN/pUm4gH9fzVpqjAnfTkl5edyeQO/TSlO6cBB7O
5SZp+fOg+V2+WLikGXgk1Mj2RSugOTxgxOukDjyaR+9G6YaB5tJzouscG/A4
fz48bn0VtMTjBBt4woGnOPHPK/9Y0HLf47etwAW2ORFZLCseg9ZK6ZV4m07g
dXwhWqbiA9paT1nmc1lh++PR3QPVmUDtjTmfbx0FAmYLdlWXvMHogQSflOFz
ECym5VQbVoLxTMw636g1CJZ/OsP5RRWM15wUB3k7QfDzbn2bA/fBhEP6xbxs
IQh2H2rqCDgHJuJ3Y4WiPECI/ezSVL46mNAltuzhkgGhQwW7xAXSwOR+hu0u
oywQZhWeChwPA1O9iUTBklEQ3ppe9iZoAkzNMtrj/XpBWFj+KhP7ITC12WVX
JmEGwmpawjeltcH0WMTrIm8jEHbcY5y5/y+YXgthNcifAuEnkQmNH5zB9Nvl
Bx76ciBi/48qn2IAZs7lPj+vqIOIc81sXslLMHNPWosaWgeREylFym2qYOZ9
kpj5QB5ELhjLa2wTB7PQv1fYl+ZAJCtWQOfqGpg9uJGqeFwERGbUpjG/cjD7
wUizmvkFojGn8jwxQzC36D3OO0oE0XuGrhPuJWC++1a/gYMliGZtl/RBzzV3
IO/Y8YsKoq9Kk/wrJMD82NGiyg8pINrDcfWC5gaYX9jDpXV8D4ip/Hf0lmQF
mD8N6K7KPghitQPCTxeNwIKL6dCOD0og1nJl/2OrIbDg9Q/YYqYIYt2ExJy0
aLDY0a3/pGkExKY8edPN28BCKmn+1uRBEN8xyxmb6AUWlPxqdhVLEHdlWwog
3QMLF6tS97/LIL6u2E71mgWL/IJP7EpVsJP9i6BWJbpeKOND3XUbdvJ6O5D4
0fOLY58x3UGWfd6s9OYGWLx1lIqVXIedVnq1YpulwKLh1r1/bN6wM9n69XqO
DVhMZgqKam4BCZJf8of+PKArP37J+UkIJPSHQl6WfAC6elzctEg0SFgccM65
1Q10st/c4v1nIHEYZG/obge6nsjZ916HQCJyW5FtXAjQLfnirrhcBon2wk/9
JruB7l74X/WuPyAxKJPfInwS6KdkhgceqIPEZNKt6r8RQD8dezBD7TxIsoTZ
5d4vAXrA/o2c+hmQVN3d6zMrBfTwRD8n53sgeWlifj37H9BTOlTee/8AyRtH
26dCuIGe+vuC+jU+kExsezuwVwHo6eOP9FsvgWR++eWPa05A/+93AaYkAJKt
t7becqgB+vO45wOSb0CK/2787YgGoH9ucdcalQOpE1qPxTXTgD6tL5rpLAJS
p3cIaHo8A/o/70Ll7bkg5TcfZpWC1mPuwbyzkhJIhZTYBTFGgL40Xq4tHQFS
MTor3xuIgDEfWOIQ/wdSr/R33XF7D9h2P5+xGHT9jdirnOQ2wPiPpUv3rYBU
xZrku/phwHbYzC1uoPvVls9OkLYAJiKh2uTaClLdRqnYuh1gUndunJDxBWlW
40mWu0OAqVfX66vngDSnjKNI7QJgxJCzHjIhIL2V5T1xjRMwslqR91ctkBas
vnvkuBpglOhRtWebQVrZ3LBc/RxgBqLSurnnQdoWizn7Gf17LG1uxJAO0ul7
NP4sqQB25PiY788+kH5073TIRBBgR1uPXTrtDdL5A/nc/R8BOw45BN9skH4Z
KEOscwHMfXvxo746kK5LEQi6HwuYZ0wM40EUSM/+WuY0mAMscGnoYOEBkF5W
pdwnAWDndLXd/SpAeuOsvyrhNmDnz73JmfsBMps5xvfyyAMWPHrG51sCyEio
9iT3HQAsrFBfvRJABjv3QeFyOWDX3lD8c91AZnflRtk59P7Xmw/+jbkPMvab
9Xd57gMsemjL0RfzIOP84KWv3V/AbrHJqW/xAhn/qpzXclKAxSo0nEJxJPNw
y02LT5GA3WN25Akgg8xMmoMHlw1gORLpTVz5ILPwtYUiWow8PqnzzRRkVhl7
2ZR3AJb72nuUPx9k2Y/uysK6Acu3FC7a7g+yYjImvVGnACtwDOtLqAFZsxyS
I/NVwIplG9+nsoCs5Y8ied4R5B98Sua+ILuHQ3VeygqwF1EfU3bIgOzBk4oJ
tO2AvRy8bFKdA7I+ypJNoWmAvb5RKvDBDWSTC3noi2WAlccviYQagmxq7y0h
DnHA3qnlF47uB9msbZuHBcORP60zt0yAbIHfpqsUC8Aq5hNHeT1B9j1prcof
xd97k+70pBsgO/ZqnDqJ1qcmw6ZBLA7kDN/VKg3JAdYY/N+rkBaQM0msSNa/
hTwsN8bBDnJ0r1ds8fOAfbV950krAjlbkcw+40+ANckbN0rrgJzb2QuJ6ScA
a/74pZZpAeRuqqkzDj0GrLXj7MqoHcjFshFOF/MB1kZ1NQsbBLnELrHOzReQ
k6LIkwdALi2a82WpNWDf9wbcj5QFuedDvzx3TAL2462oFB+6f3vq3bZv6Hx1
nF4st0HXewJumSjeQ67c6M/fg+YWq4iicGbAOvkcHkmKgNz4ku8N9RbklzOd
5l9BjuFgSbsVAFjXPzGxChE0V3CtPaaXANa7+6hxRQgQAi64XqowBOxXbJ+i
NDcQgt6qnvjRj/y9SODbGBAurszvmYoAbFCkj8uoAgjXQ65JSdUiZ7g1+z0E
wsPgx1VX0HkdytFQMJwCwufz/5ixk4AN351WErsKhIbXb0aPcSF/85BF/R7h
2+KVb8GFgI1w2z7tqgdC9/kdmY9nkcNjTvG4AmHmnK7J1jDA/hyvehnyDOTF
AsMjWhIBG9u2PaCTCvJSLy09x3WQTXzXBEkgT5jjs2ftRD67v6p9CeSJAY9k
KZLIHe/3du4HeXP/z9XJaD/GHypSy9RA3vfMNjanKsAmt8k0J1SCfLX3w8jh
CcCmciI8bENBvta+j5uOnjdVb+ngOwjyjXpS8XkGyJMftPX/gPxP9uz0UzcB
m9ZsCFKYAfmx9PzSCWXk8n07m86CwvZvr8Zn0PfPVFaX7uUABcHXi/52vMi9
CyrC66AglkZdKi5FXh8KX+wFBYJn+aZADsD+6S3KwV1Q0GX9ILGQg1zMpigS
CQpHKV9tV38DNptI1ZCaAwV38W3tTig+Z4u8wtPzQMGTxdblnRZyvasb6xQo
BHxt8wpD52+WkTUEMqBw7URnJDOK77kTPnmhraBQmDJcyn4csHnVR+8+orlj
bZ0hwdsL2EJscW5QDiiy7OaXJKP1WcgVnIiTBkWOVAUphyzkdxayYptBkU9v
j8w9D+RRjgN70dygcC5dQXIKsEUjGRt9GVC0naIRNZiQ+2Sk4tGc4GhkT9r7
C/mf9/ubhaDodPsE2R/l06VNN7Pr+0DxhModrZLryCq0roBKUAw90adrhPLB
UuDdJ19mQDGn/5LJbhlkxl7bzPegWKCRYOrLBtjytum7Lw1B8XlYrlksqifL
Uqc86dmgWC7eZNGG9nsZhnWFGKD47aDkLidN5HBBz779oLj6rdLBywx5MW0/
nwQo7f3A8Ih2B2yl8TavoxMo7Vt2ePQJ5feVjidGOzlA6bBG/iDrfuTfT9XY
0XX3VIcjFzHkdWcHOzVQCjmbf+CMKmCrKmdbKGWg9EjR3uoAyv+rEe/mc3hA
Kd8l7/pddJ5Xb1PK2npBqTBx/VMLet/V5Ls79l8DpTLmPFPrduQCrsD+WVBq
7Fw3gLfIrd3jXrKgtHg7V10Rnb81SeP3LFdBaa167bQ7yh9ritZhBbKgzLxi
+zgrEJlkIvcGzUncHmsK4mh/1kz+TnZvgLI02Erxony75m5fsm8dlK3+rW5f
Quu7luNfJ/4QlNMO2Mx/zgBsXUx7LuAtKGdTxFusUf5dl45w5ogD5bztY4Xf
UpEVqngaY0D5+ZeoE10o/6xr8X1sKgLlGqN3HVOo/q1bCxdUM4HyBEG1Qgjl
4/XgSiLq85RnmFfup6LzvH7J4J7oRVCe7609Lx2KfLWQ84IwKDPuuRFVUL1d
v+PteS8DVPi5HmTR/JAfHd3g5QMV3X9bok4cQW4grp98DSpGX9uPTzghN69k
b4SCiumTHNqZQ8jfyzp8BEBlt7vx0gW0X+t9IrscH4DK0fZgzzuovq3PuLzh
UgWVaxV/bF4bAbYhIJgawg4q329+EuKQQLb7vC6kDyqd3zx8dqO/39j/hrWe
F1T6hdhrEmKQD2W9gAZQGcuiB0oykI8fcBOdBRVGae03KsqXG2ccT+TngqrS
7y83PbORb5fIJsaAqoaK169nqF5uxImjwAVVrTPcuosCyIkhs2UCoGq0Zv3n
CjqvGw8kWyLUQdWB76t5Ktq/jTxuHrQeqmG0ZsZXReSqMJX6YFC9EnnGUeAo
cvVpRYkBUL3+ZXvhIbQfG5/sNf5dAtWE/XZOI5uRG7iziaGgmne6tYwxhvxT
/ec+PVBtSfkRSCpAnjBcuO0DavKzXX/ukgBjbB/v+mkDaip9c72yPsj8syfU
o0CN2LC19Tn694wdC97MH0BN7xGt4ivqVxgiU9vOzYGajUP2XbweM6SfVDhw
g9rZV17GwezIxENzwp2gFpJ5VYcDnTcGWSL5yWtQu3T7oerdy8iavZb3ykEt
2r1J6Pkaso7tSikbqD0UJE+OzSAbcV10dQK1j+dW7juh9WNYfZW5dgHU6lz5
74yLIlvvv5bVCmpf96hGBjsi7+66kKYFau0KLn53Uf1j7O1SmzoJauM/P1h8
/Yy8v/h6QA2o81OjZwH1N4xjn01b+kD92IqItdw15LOv5bdMgLpHY0BYI/68
c+09wa9B3Suj8fl5VH8Z55d4DvuC+ll6hGAdOq+MEPWZuEBQv544NuCL9ocR
dslm0gXUizTKz5XVI0cV1imygvpLVsF8VxRfjGuPg7mMQb30h183tz/y9eyZ
Rxmg/uEiwfgI/j03YvfYOIL69/oYbjYv5Jg9ejG1oL7mfiRzDzfy3VMZgY9A
g5la1rqE9p+RZDpRdwc02LkF2DNfIieLW2RfAo1txbVec+h8MO59JjfogYYs
E0k75SlyKvshWgNoWD5g+TKEzgMjS03TbBdoJDX/txAch/yU8sExHTRSuVuy
h6RwDyee6gGNTIxha4PqNaPwbtrUdtB48v5AgSz+fUV/Twd2g0ZVMdexrygf
M4pv2tLegMZYgl+jDDrPjNdnjzklgsZU08OQ23g8lHKdnv8DGvNc9QqLd3Gn
j2L9oMG4KhvRgO9H2Uf4Zw/ELXpe4vqoX2e8Xfno4AhESZWd334/Q66SrpLb
AkTpOi3F+4u4M+jkEiDKnbC6tBedZ8b7nT7JKkBUyj6v+qYR+QN/vuYBIGqJ
NV+7g+KfUT0t9G0EiJbcVwz1UD1kfPbi9zQH4q7HKQlT+Hp/bvuu7g5EG6xo
7BH+PrWGR0zQdfur3fe2GSPXbfl+PB6IzuuUf0OoPjDqk6/Zoef5T/7Ji0Hn
j9EY3LmcDsSzR/RtTvzC/cXR6gQQzzffnjNG9YHxVax/NQaIoS80abOVuN/I
3OEDYlTQxZ8HUD1gNI1fm1wG4n1WfnZZVM8ZLbLCyTeAmBro/mQtDLeHUJIf
ENN+l9p+r8Wdp0dxAWJ2rfPD64eRW5WmdqPrT2/naU2iesFok9X7sQHE98KG
rq+bkb//PRjPBcTq6NjNcXi8/ZCTDNEDYs3KryJPN9wHxYQeA7G+59qqOL6+
P6pe+6QCsS2rJT4Cj9+fUelpvUD8KUCgHj6Ju0TdRR6IHZHne7Xw9fo5tHIq
GIi9J3cqjZgjt8PuUWEg/lE78d76NO7JleOWQBxLe3OCgPpPRofQzTNVQJzk
3crNYMINR4OqgTjzr/jA8wTcdzouCQBx9fXatOAb5E55cdn7QNxQ2nN3Go+3
TsuBSiYgMd3P0q/D47nz9IyoBpA2XaRfu4Cvf+ezqWIqkLaZxEsMoHzI6CKG
iWgDafsfGxbRady2MrR3QBKI2fzb4QduvwWFu0AS6bj8pPYR7kLiZkMgiV8y
vMNyE/eXZJdkIEnKLfsb4Oe36w9J9SCQ5PzOUJ+h+Y7RLbHx6jeQFATVxMYU
cOtq5tUASentH4YcD267hxEUIGlwHK1JxvNL9xU+gg2QdNP22l3Cz0t35+0O
HSAZmHFTyo7g/hvUuBlIRqO1wrNonmH0MKcWoOeZUWh9JwRwE2K70oBk0bn6
IWMVt/axxTwgWYa//q8T//4eC+/ko0CyadA4bYOfnx43St17INmeGd9zPRn3
mdlNwUByEMolf8DjqydsQnAJSPvfue5Yc8d9U5o+DKSDrhLL2ta4k+J7ooHk
xNnZ7aeJO9NYuB1ILoVJlY/xeOp5oqp9DkjHHOyyhvD97Hnp4JMPJNcVnqid
I7jLy+YDgOSRXn/K8Svuj04r54F0yjzKOg7PXz1fDPN5geQ1bqLx5QHub06K
GJB8Yjf4N+Hx3POj9H43kM5oly3QTuHuspfUBVJA99mO4L24+1SaIoB0LoJU
/kIH9y+T97eAFKwwmT6Jx2/P0D32HiBdaMy/orAJ97BKQSmQwgLcPY5O/N/r
5VuBdFlE2vJ+K+4RHt1rQLpS0aPa9ub/150Jl4EU5ZbCy5P5//uNhfIAKXqL
wyx2/f/PK9FaBtLNZ7w/Inz//z5VphVAitnXUFa+H3c3Z/JNIMWuXk9dMMT9
847YLiAlZJqFE/F81NNi/yoJSEl0JldPLtwN+zH0fvcmyi3Q3I5ck1T8AkgP
4oOUejpwVwg0ovhOo2ptFarC/arZG613Rs/UtG0u7oI6d3EgZV950nozBncW
I9wWSDlKJ0pqzuK+53+tBEh5TbIpDLxe9NyWoXkBqVD0wdEAZdyB2m/Q+j2r
cjR9uh23x/3pKCC98OCXH17CfUDv7QCQSp/fmDxUg1tXpRbF61urEV8ZKm7F
BuELQHo3ZDo9+hi30NPP+4BULbg2F4S/T/esZk0CkGqeHTwHeLx09/3c7Qak
WstXSxwBuL+8eRQGpMZQn9WkA7gzaWwoHpp3fLnojNef7ht9creB1FKkwCAY
4A54ZwpA+jkwwPJSGrcp6SLav190+83f8Pzf1T7OgdZzqL/oZgr+vV3lpw+h
9xkJ4d56tAl3uoLxJJAmCmp4p/B47DpO32UJpEU+HeGtF/F80rezBO3X8pOE
lDY8f3SWH0TzLmnNbFos9Tjue7UDmUBmPp8vqYKf1849xj63gczVIyZvyYvn
s+LLJlZA5jl3Po8Xj+eOaPrpcCBv39am9HMe9xF9mW4gC5rcVvPoxM2Zm+wE
ZKlchtbVbDx/2oYcGACyrPHhEmtB3NLx5WtAJnSWUvnx+Ps53bx+HMgqW8/o
Z+H59uetN4PeQKb4D5pUaeP5/A1hKgXIVG7ax2t5uK/sYY4Hst5/qRZ7/l8P
dt3dcRXItPZ9lj0MvF50BFzgALKV4ee9q3i9aRvbX/QZyEc4nxzRwetNS1/c
2kEgHztrRpTB60tLWt4JFyC7DvQw8+D9XovT8DcCkE++5cn6rY787cePMkkg
+3ufGU5gQW6uOpJxA8iRLVTvv/l4PTz590QTkK8bfTPqxM/rV5FR7gQg33ji
ua0mHq+ndQvqf4F85+qD56mhuBWMF5iBnKK9MW+Fn/8vPwJ/oPsVPKgJ/Q+v
X3WbBjU2gFzE6bI7Dl+P2lzLE6+B/DxwUSK0Hzc9T2MYyCU2ilX2eDx9jsT2
7gNyFdMtNmY0/zBqZvta5IHc6m530xmvZx9Sq3Wzgbyi3ndfAK9Pb7cx+YYB
ea1pIO8omtcZb8IvaJcDmeE3WILyCupnpv1WeUCTrXik1QzP96VfqjomQXOb
9jT3Wfy8l/gm//cWNOVoTGHf8Xh7forMygBN+X6W29KfkJ9VNYXJgqbSZbYH
3ni/+Uzwucd30FSv5izdhPfLhe807+8ETV0674w2vt5P5j6t5oGmzR5p16Q2
5JwtL1G/qbl3WvbML7y/+M/sI7kJNO3jCOHq+Pl9FNp+1Rk0D7QqpX7G+/es
4TVJZFdH0vdFvB9IzyrevgyaQUdMMEc0zzLuvah7pwWaWb6uaiI7kKNFnlxF
9380mHkjGs8X18WXW3JBM9exb2QZ78eu7WScQd9XAE5ZHXi/ECmyU1kCNEu2
7xdOwfNp+KzQh0XQrHthySaK91NBpNveh0GzQeHasRt4fT2/dfpbC2h+fVBT
sfL//nyk1IkFNFuvmgR34vUsIMHZC0CzZ5/+1AM8nnzqj7hvB83pRfUuMTz/
uRULvuQGzVkvb+rNcmTXYwzzvaA53/fk7ioer8d5JgT1QXOlVnFv1wrykSOl
iVWgxZYi/SkVr3cHu91SWEFLWF+gWBw/7zYG/DFsoEULW4mW0EXWOtZF0AMt
4+GOSDF8f8hPTzkXgpaZTellEbyeE+cpIV2gZSlxLlgAjwe14BOiNaBl9+7f
KS48P8rbW3Epgpb72hi2hFvIPNsgHLROutWZzeP322ErHXgAtDwb8mAWvx//
AQdeQdDyTfWg/sXvt+3gc18D0ArW/6X4G/97DgVzHRXQuhXSydmCvDH/e8+J
f6AV86uMrQndb2M2N56yFbTirO4xNaL7bcy4jddcAq0k0X1LtaX4PNhcWl0N
Wull3/5U4n8/6HVLOhO0ipfqagtwNz06yDEIWh3nyq5Hofq6kd10bLcTaHXz
M78fCkTOePj6Ohm0eossV01QP7jx0O1CmSNoDY50ejNQ/7uR1MVeYwZafw+s
2geh+WIj2lPliRxQWPUNJTzxedWbyST5OFA2/Yx0rEX5c+OUdU3RHaBwBjTG
yePzsXts5JQJULYWuLD+2kB2Xvc6fh8owjvDRg+j+rhh43nxy16gqDKqXu7u
QlYLK/XeCRSNVM7JAmFkJa2VBmagkKm2Clvw+V5uQIR2Fyg6fgMpn1A8bIiL
3miTAorxL5ZLtI/IW7Yl24cBZf9HMysSmp/WByesJtD7hl//3L/jEnLMC0Ex
SaBELFmfTK5Ajt5H0RUBSuSJ5hkR9H7rV8YjzGyAcsOik0UC//0jaM5I9TNQ
Etkm5BTw3z+OBxxYbwVK7mXek7ohyJq82kX8QMmfTpx+i87HuuqfW6d4gVJw
VCTYcBlZ/sU++0agPKfJ3DDBfy8RlayLIQLlzbpWwa7zyEx7x+YvAeVr8IFp
Z/z3oLqlwme+QGn+0xPUh/LL2ofRVwI8QGk9cJz52Czy2y+acr1Aadfx4vNA
523t6ZGtL9D7Dsxf1PI9g3znk29DBlDmz2QGXfZBtg28SskBbfFTY0z/of5r
9bMJ38kM0Jbc+vPTdbRfq+9Ih6ucQVv6ec0tLxnkF5yPPn0BbfnlTGEiyn+r
aT627NOgTYo+oFGO8vVq4LbicGSLvE8urag+rYqebZhsAm1L65dyJfzIPHUS
x3aC9q7pzLF76PytsjI9mHcCbVvqxXMuqF6sjIvxYYdA+3Ct1u0xlL9Wyhau
+4+Dtt9I1jtmVmS7LV7yd0A74GZsxCDK9ytm4WKCs6B9TiMM+4TywYr29+ss
uaB94fzBtlto3lwRk3C/wATaURy8E0KoX1j+JZn+NAK0H8hfElNH8bF8KkU1
Ng20a9wPBzs9BGzJiTP5rRtof+6OjHFF+7m0i/PzuwDQrrcvyvZE/cWS7iCJ
ZgXaTSasjUGovi4JEY65NYN2h0SBdAKaFxebvv9iPwPaEz/X6upRfVvUvb+3
4S5oT+2R7/2G9mNRfoep8jvQnvm0d7bdFpnPrTNlK2gvvPxv5zDqJxbGwoN2
pIAOU9xuf+bbyPfS3goXg46AVZooFfUD8xOSTB2uoCP4vlaDhvLv/PdXZ0a+
go4I9Z+ZBR25UlTGQAB0JBQsfBzQfD4fZ32towp0FFn/fvC9gqxpKVv0GHT0
39E8c1D8znkb7NXYAjquGv1vBVB/9u/VYz4ebdBxv//EJ68X+d7L2ldRoHNy
0zkZQwz5Qvidn9tA53QXV7QHquf/4KC6cS7onIvSdnxdB9jMJ0ZEajnoRHff
nDssCdj052y3hQegc4u+P3fqBnJO6LeoTNCJKZY+fAXVn+lIHrAPBJ2EayUf
ClC9njbe/6r3OOg8JA/EbqB+dqrk9DMbXtB5Fq2jlvkFsL/xO1c5xkGneI55
QBvF19/TKk1m9qDzyqUhsT4D2XzEJkkBdN5oHVudRfs/ueR2LUoadKr7btWb
o/5x8qCbRPdP0PlJ+eXxB52viS1tnw39QGf91+0MDVnARuW3STF2AJXp8vs4
OVT//kxLj61VApVVaj5ChIxcVrJpIAaonEec3VhNkHc5x7q6ApWvW03hJ+oX
R05Gb/9hB1SF7w1Fl7IA+x1tnHl0GKjKZ5kyAlG//Nuq49D7o0BVE9CKO4Xy
6W+u3iKpy0Al26UG2H8AbOiW6o/1FaAaNJ3WURgAbDDyuYEkC1Bt67gqmlF+
HTgsNVxRA1SHk7SiGkVkvond8leA6sgRkPGGCFh/Pc8DqjFQncy7Ih6h+bVf
2/brq01A9fjwxCIIzZ997DmztEGgXii3+iqF+qHuSNmIZl6g/lcU3XNmJ2A/
Jg/vLRYDap70ys4b6P4/EmjbdUKA+jjR0zkbff8PqkvlG3+gFgVb9XxH+eF7
+K59EdpALTPl6tX1A6yN/XFBXRRQG37c7mNG+bZ5gqkHxTG1CduQFEXzYfPV
n1bcx4H67a3PEU007zSLN9bF+AL1R4ZNn/tfwJqs+KMvJAO133NbXz3K740p
Dcsi9kCdXY/rj/cCrJ7bRJykCdQFPxapJ2h/65JI5VLo/ku//I9+DEeWlP7S
+geo65/t+hcSAatVW/lQuAG6HHH8A4dQPv9Es//J2Qq6YnJ3f8nyAfZBvfgC
IQF0TXalDL4oA6xM4xkc0gVds38Bx9SOAlZ63UwwJhh06SnWvbmcgL3us60U
qgVd62FGx300v5RcbyjZchh0HSPcm8IXAHtR2/tnkw7oni4jvbVB6/V0xVJE
YwV0fY9yUT+j/v8ptUHE9T7o+rMPlRhfBqzgbIz+AivonndIfq6F8tHj0Spl
my7QvTy1niuG5s3ccs+ipV7QTZavi/9TAFgmB42vA90vpTGb97gDYBkK9ZUk
Q9BNDQy93bUKWLqFXe2TEtDN/KBxvckKsIcXLbb3DoJugfPdsFejgKW06B2S
8gHd94nHPK/IAxYvYOK6ZRJ0J5iXTXai8xP+Q/KIhzXo/k0NcJFD8/Kl4t1b
fu0D3RntyRBVlE/Cbv51xeRBd8FroFgP9d+hOueua86DHtP3ehlH1E+c92U9
E3gX9HbkP2CJRd/jfZjAOhwHesJmOyTuofx9mmvGR0wQ9ER77+ilo/PrWfYj
s6Ud9KT4r/g/TQXsJHer8VA16Clf9PpVj/Lb8ZgxgbkZ0KPZGlSzoXly/wav
9kA96BmPl/RxaQK272JY3bctoGcWRVzl8wDMfjnjxZ1noGf5lqAp1QDY3pHB
Is4S0HMgbM02RPnZ6kFuI2SB3sml3iv477+Gh7YtrQ+CXnxGuOkYOh+SDPM5
nt2gd5dHu2gHih8JJZMv8cWgl3xhUhRQfhLfk2D9wxL0Uh0PTiej9xeOExjc
7AR6OTyaD824AeMd7kv6RAC9sgvDCw9R/8X0MyM7ugH03o4+PFb7F+gb1U8H
FvNAr8LRvmFOFuhrTzJptFHQqyZXZVvFAH3Jd2d9vD/oNYze34P6dfpU9aNw
w5eg1++4O9+WF+g9qeGu8tGg96uGTSDUAuhdplEKE/Gg95v85lLuBaC3/15T
IruB3hiPwr71YaC37RS136QEerM1zCyPy4Feb09/PeIA+hzkl05sJ4H+qj2e
ut0c9NV5xHhevwd6NM/P3aybQJ/4TO+1aSLQI9u2Pl+xAn1Nu0NHmjyAHhH/
OvS2COhTk1KejXAD/cKankHYOdA3lRS2F9wPdJ+wxkGWOtA/QNyRHDgBdDtq
7kO1JdA/1EIBpkqg29xZn3mHnucc6PDnVjzQrfpFFLO9Qf94aaLuIx2gm3r6
85DHQd/bmK+rNQLoWvLnJy9UgX6EHa8UWRjoAmRpIws+0L86p1H7bhzovLyJ
/ya/gP61pD1nLCuAzjUibtnFBvq3OmM+HHMFOmuobtaQMOgnu251iy0Ei3/m
IZuiF0G/IHBL3pQpWHy1Ou9OXwX9H0mbSAU+YHGpZQGe84N+B9cxJSd0PWTx
3pBtKOh3hb+T5hYGi3MCymuaR0C/3+ssr1c1WJzWWrepfw76YzA0pYKuHxC4
0M0ZAPrr4x8L8t+DhbqZ2B+7TWBAML6qkCsA5m2ath8lvMBAoaRfcv8omH+l
ny/TpYGBsqqBEHsFmNfaFTh8wcBAQ3CO3eMUmJfbqCjliIMBdcL1NwFdz24f
ZVYsAQPrZNOsRyfB/Iwuv+ih52AQMMm6M/MtmG/iVK8LRfc7t4/xok8czDZE
bIRsm8EgqGLNSjwUzBal3YJOsoHBxdj5c8lGYDYqeKZbKAoMrmmNNN2qArOG
hMWP9XvA4H5ow+XzNWAW1x26plIBBu+57/7e3QRmOx53cvXxgSGPqmLB8iCY
sgr5yKfVgyFvXUx4cj+YLGu65D12AEN+jzkHSi+YTFlwEa6/AEPhzMrVM51g
0rWnpUqYDIayQo6Woy1gUrxQ67lDDQypLJHDqE8xOZrxlDf4Fhgeax+UKksF
41cjwj1cy2D4KvJhYvB+gN20gSDLYjCyLZQ3Wz4F+oRB47CsW2C0Mr2xO6MW
KK/82habF8BodZOe0vwRoLzs5PQl2CCLnGO3XEA2hYNKF5GNJytmCUB5seNd
5MZx5PgeonkEUJ69mcRYP4PRmlY535gB6tPZZZKeZIHRelBwu+ZzoGSl/86R
a0O+9erldQx5c+7X49eRM2Ziu/uBkhng46vIglx3yjIK9eUZ9M1irKpgtCF6
4E37aaA8/BsovSkSuVzn4UV5oKQYSfOEcCM3BwR/eweUe3nKbXXpyENF++Ud
kPl0BcMVwYixVYGn6QpQkoZdudtLkF0Ew6XR8xJjJuq13JD97ZzOnQdKwrKo
X+lJ5KgY6hf0/ARX68RtVchFm2YCDYESr1Nh+5cNudq4sbYNKHGZ6xNNOcg/
Lz7eid4vjttkk+4G8nhZlD8rUGLP3XhwyAmZMX/8E5rL7vT/LHKe/R9DsJiY

          "]]}}, {{}, 
        {GrayLevel[0], PointSize[Large], 
         PointBox[{{39., 14.632083365521076`}, {35., 16.484916711717652`}, {
          31., 21.562019894204518`}}]}, {}}},
      AspectRatio->1,
      Axes->True,
      AxesOrigin->{0, 0},
      BaseStyle->{
       FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 14},
      Frame->True,
      FrameLabel->{
        FormBox["\"\"", TraditionalForm], 
        FormBox["\"Temperature (\[Degree]C)\"", TraditionalForm]},
      FrameTicks->{{{0, 
          FormBox["0", TraditionalForm]}, {10, 
          FormBox["10", TraditionalForm]}, {20, 
          FormBox["20", TraditionalForm]}, {30, 
          FormBox["30", TraditionalForm]}, {40, 
          FormBox["40", TraditionalForm]}}, {{0, 
          FormBox["0", TraditionalForm]}, {10, 
          FormBox["10", TraditionalForm]}, {20, 
          FormBox["20", TraditionalForm]}, {30, 
          FormBox["30", TraditionalForm]}, {40, 
          FormBox["40", TraditionalForm]}, {50, 
          FormBox["50", TraditionalForm]}, {60, 
          FormBox["60", TraditionalForm]}}, {}, {}},
      ImageSize->Scaled[0.6],
      PlotLabel->FormBox["\"Temperature Profiles\"", TraditionalForm],
      PlotRange->{{0., 40.}, {0., 60.}},
      PlotRangeClipping->True,
      PlotRangePadding->{Automatic, Automatic}], {168., -178.13333333333333`},
      ImageScaled[{0.5, 0.5}], {320., 332.}], InsetBox[
     GraphicsBox[{{{}, {}, 
        {GrayLevel[0.85], Thickness[0.01], Dashing[None], 
         LineBox[CompressedData["
1:eJwV0ns41PkeB/DZdGxZSsjdzI91GdcYYhV+75nxrEtWyk5KshmrdKSLSu2m
nCZLId3YzjK7KkXrlmQUOzu5tOPWxFKOLhx1esThmFn3W5xvf3yfz/P65/t9
vu/Pe+tBoXkMg8FYRs6ej5Ou+alw2I/TQqu8Uyq1TnNoadE5LcE1J1rl+2q1
Rk8r/Uiyb130fDatCnLZ0v6olW4YzKmpEzrTqvDejPSIfLplediHXrsFWnXC
7R1z/UG68+dR/meRgbSq8t/dfmkyuu95Qpuv8i39F9shNXZXDj180/t/r1ee
p8d0uhd3a07Q86slwiBVHj2h0zA/M8KFWrVCvsE9n55c+Fasx9XHSvn9uvoq
H3p6ii0Ju+MObcc12+KVp+m50KzszLO7oOsjljraatMLb9e1+XqUQ//ySK6k
hgOGQam+xqQjjJ5LhmfY8/hkscFnhtMI0zehDiPSKahNeXC8R71AGYQfEYTW
Qd21kOqxaob5jUl/rZ0srAg54Tu4+VN8bvmk22LrFmjslAWYPfCAZXPq9byJ
NmimSBwtZvtgHWInHP01EquO1zMSbqbDZqYiqnClJ7QhEmwR3IbtT0eMarcP
Yo17mPGBzHTYM1ktRbUV0NFR/K34cwEcGssls0110Jn5MXtATwGnr2xyLQeG
oCvPE19rbMK6aVFt1b1w6IlnOdOlj+Cs0AoMkbRj7Z6nzw1ZzXC5FOzqmrcI
fZPKTT/suAPOt4wN/v/6E/o92ivYMRy42hZ5B4rvweAfyq+vmAbBdXi/eO7F
9zCk1kmjd7rA7fcC49649zCU29VXuplj/Zmn2aVpUTAKV23L0GyB+7Y4h7KZ
ZBhNyjftNb8GDxtr811v0mCcdrEqcnsMPIa618yF5sFEwy12sIOJL6TTVItJ
KEyuBC4ty7sIT5GWfcp+Q5hqBjgJ7o1jA597ZdStCabJAqFyRICNeu8N00ON
YTrtF5kqUmBjz5lcnbnvYCb8o6v0r1/hVXrBUzGdBLPOkpKTv9fCO+HC82On
MsF0n+qyPpMIH7dSRdvJVDBzTh179b0G6E+93oW2W4I53f8q6YtZ0G31U80l
T8Ha3JcqtNcCQiJ0HyhXgVW8FDT7Vg48HAgXPrYDa2ncw1nmAq5xHEut9wko
q9BXc1Ux4KawE2QWABXYaUvvcQR3oN/3QMlGUH/3yY03F4A7GL37QGsw8b2W
uMkscIcGkg4MCUHFWUrGggfBHRmpOmiTDmr/SnmnPh/csVnLgwU9oOI7Go6+
VoK7pLP8kDgR1OEtHwrc34BnwH+ccKES1AnqNDvtHHh+Rb6Jh+xApQzcqt58
HbyATbzK8SFQP4TETCxPBy9QCeXxO8Q1HbELKeAFe3jHJluDSs24YSraDN7X
Te7hWRagztlzbp3qAy/qPdun1BhURjhTc7YbvCQbTfVBDVCXj28/+t1t8CoK
u659MwxKLLkfXKYGXqXTb21SKaifl/8RtSMEvPvVtxhGWcShVxEiBK9afjS2
y5lYFb2+phE86cDaDV8eBZVv/eIJ2xi8FqttvQ4fQN1ICytnPwTvTcFLi7nV
oAoN9w7fkoKvc72/PNsVVHn6eXtddfD1AkpYggrijk/MvVTgrx07dsnAAdTd
td6LiyfBN/LVOJxrSZy/YplzCPis925u1/VBVdwd9GeeB9/RMa22ZA5UZZNL
Vu5j8P1qneSNdaCqn4rLCjngJ3Ul9Y1/BUomKNC2CiPud+p4Ru6ThUUorlYR
j/Q3VC0Q79AX1f8T/FPqvoWJpcQR559FBhF7asbPkbxk0Yf0SvKIf8n7wJAT
H96oYdAD/ul9v5msIn2RZbY++bKZODFeU2lInHVW1DRIfJa52K4kvuTlYpZP
LBa9vfwL8dWyY/6vidsDi/VIXrLci3mlD8BPdnvpaVJLfGdrlMluYm6m3cIV
4mKNHAuSX3Kwj2nvPuKShnr1FuK9Nxn5H9+768rYs0icu6/ZgvRLVq1r9uMy
4iKTWjXSV9mDNu3LBsT3FSXvrIhrRPP7/0uscLl4+xmxdOxhcxfxi/+cSf34
f1lxRsAI8UDOkb0pxHVCQVkr8bhfjH8EcYOxwcQo8dJsmC3Zp6zxz07Wy/8D
587bwA==
          "]]}}, {{}, {}, 
        {GrayLevel[0.5], Thickness[0.01], Dashing[None], 
         LineBox[CompressedData["
1:eJwV1Hs4FFgfB/CGRDLlMhkyZWaQJJFLkWnOd7DJJWIJXVDtVrySEkK0VFpR
itza0rqVIkvZLRvKNaVXRCzptiFEIZFL5j3vH+f5PZ/nOc/5Pef7O89xPrib
9/OcOXMk6Er6fyWl6bnx+Vr5ZHhDm4Wuch8pc+MmJK/WJMNWR7IjaofIA9Zv
icfXXibDdkpS2Y4rSZV1/VOd7Doy7O74zC7dmDyqqmj+XnKXDB9+HH8uc5o0
73D1f/7Rngxfr9jxNnUu6XIWhYUzV5MRhTtLG71nSL+6XH1PXigZ6Zn1UnY9
Tb4dCrF3rz1EvvxVYaYwnQBGTf+Ww8qF5GvQweLsW2aQNjG3zB5QJRNW/3SK
rC3AVEvIGcvVI5OHTYNX9G4Ec01yw49G88hk2HjS8T97wLT+baT44VsyeeJv
zU2pS8AMzBP6d10kk8lOTz1MT4LZ8LC9X2mGTN6rCW/tC8TC8FHZV9FPyNSc
ytiiZwIs6nIJqPPeS6aS/bJaeBeg4BCfYc98RqZbBRpBOTpQ2Bb+l1tiPJl+
k7pE6Zw0FPb6Nu5hbyLTAzNqrIvDUIjcNBvGfUhmGN0Rzz4PQqFQyjPPqIjM
GBhcULuYB0VmpPpcj0Qyc67GOv21FxSfHrxalutKvrvYvGf1+4Fl65ypJ3hJ
xHPnl0ZM5IG1VZbxJL2NiBU5dpkXA8HaVbl73/hzIuaajx5afwOsUAONrKJ6
IhZkXdc+KwArj3lNRbOEiIMXnkoIMMBiqfp8Sbl4Iv64d4mfrRiLK4Ul/3QJ
MSeAa+mhWg626cr6k+FZYISmdB5LNwLbUiXpXCQLjKiyuhVGO8B2mOeZ9ksM
GLF9Z78NhoG9591YwSkfMC45XXMXvwA7IZ3bmmAAxn2fPJOxbrA/SIdqZj0A
Y7ZQsTNBByrJ3To1j7sgEesX01F8F6pfrsRJqbAhWXhJOXLMCpwBhZPJK7wx
b8++vU6njaFeyFV1SHHDfCXpbR+/z4BnyPUhsnOxoEIwVFstC/7N4l2e0fVY
mHpZo/hgDjRlF11XvLkb8hczzFO/dkMr5tOvDnEfoNDvvWB1axuWz7SF1wbZ
QGl5b+nmd9NY4RFX1syMBotUF5lqN0GnpTL9J69cLPbWtldRN4CucU11vPdV
KHsWrhoIysCqO5tiBWon6L03ftTX78XqlS92LX/9A1Rczjw+06cP/Vj9mGuO
r6GqY5MTHugMg+hTGm3lRVgiaR6ne7sMa4w6dDVvvsKSar+UR1W+WPOu+P55
tUmoBbXUNcVyYJhhm/7AVxacVdUx/YaZMHKwXVa6KAacRvmQzisvYMycPxJ8
YQJLA9ec3q1nAuN6h81OaW5YJicXsnzdKEyCJx3Hx/lYlvjs2pJqMdYa//S7
t8F7qHP6/PeMD2Jtz9rUpOpFUE8pOOorLYV1iWfZ3R0rwZXsdDzobARTh+ye
yafrwd3Q/PiTahZMZ3nbOpT/BDdgIOnsMVuYlXktPSbUAjfXtCVJwgbr/SVj
+ssZ4LY4bPWdOgFzzqrQIw8awJ2VPFD5PALmHYtLq6/Ggadzo+jgpBiC2J9/
72r7CzzHT/umnEaxYVPQi9KBNvCCC9p72SEQzpVNKonuAS/9ifs++REI70h9
Cz3sBd7dzJq+il9AAirzJYSN4LVaN6rY/AckMMZ4X5wn9c3cr7lzQYJty5+2
D4H3gilMjqkECW9pSj0kR91cnCCTCBLTM74q2wa8drdLH3KSQK7Iityka8Dr
dPPysNgJ8ti5Pb/pPnhvtVrjXMsB+VGJlcUu4A18q/H5pwZQ3Oz4OTEHvI82
zg0KLEAp70pJ4Bfq9IysZX2AspeZcG0ieINm/pe0ZAC1pwFO95vAGwr6LPcw
Flh+7fXRus3gff7Xr8XrHiDY/nfdy43gjcVaBgtPAhvuysSVpVA3hznWCQCi
uHXLFZrHV1X/qv1pgKh+pNP7JHXe+QwDfcB67YqhnirwxqtLPfVPAc7yqaxh
At63obxAlhmwrzZwj5QpeN/l/Ub0LQAfoaja34La9Z1f/HHA9668Rrsd9W+y
BRrGwIG8gu4bNM9ZzWMLw+KAwLjevZtpP7HR6wiSARx39vBJbgKfYVXzo95q
IOUNCVi+H3wpg2hb+2dAmjuzKeEwtV+/IN0DSG/qMvgWTn1jgU3uVeBy1dGR
J+fAn8eNuuw2BWTl3g70LwFfWk6YLyEBFPppBd+dA75Mu2lo489A7eSCCOtU
8OU2cN5ze4BH7td1f9hCfWB4ImceUH/PosNShjrj/Ae1BqAhJMxEeJRabOL+
B8276WvfkMk28JkV7MQWOs+Xo3U7NTjgLzIMrfM3AEYGowSzWeArTEQ0e2kA
X+w5AzN0vyLfbv0bHWAs/17alCK1/eAfE5nAhO/nsa8nqDML6o64ATP9ngWD
P4GvZLPig94URNK9Ak6nNvis83Z2R8chWvpmfObPAvDZDMadx2yI1HcqbTRf
Rq0z5Z5ZBxG3Uz/h4Xlq5/rhchmINFr38xuCqLP7LdNGIdKp79j0Tgi+ihXp
lfCByKT4frIczV81IuY7JxaizSd+0dszBr5aa9TJgk6IIrTneyqag8/VSJXf
T8+LMDzAvdNIrXkhrcCMekPTe9fd1FrxaoYiape0/WlnqLWjFkl5UEdrBy7r
pNb1LX6+jvrVD7/qhlEbCbq3q0MUmRR12+pvaosu8X/1qDN6jvQ6UFu2NUtb
Ud+0WXf6X2qrpssJltSV8mUN9J/mbqzhnwmn/nT1kRPNl2t7c8B0O0THbcq7
dk5RO4fsr3OhduVliOn74P4Y8EaOT+19alcmn9rF1zH3LXWIfW+3LfXWnept
hdQ5L0d8L1FvszhmyqEuIiVyq6m3m9dqT1Dfzw6+VUW9w0TGv5b6ue/08AC1
p3akxEPqV40ViZHUXtyiLbeo+w2jjOm8ud6qXRPy1GMpli+uUe9Skhy3oRZP
zQtZT71bTsuh9H82l/2c
          "]]}}, {{}, {}, 
        {GrayLevel[0], Thickness[0.01], Dashing[None], 
         LineBox[CompressedData["
1:eJwV1Hk41NsbAPAx1vgl+zAk87WUtWRvlu9rFypErpSkUIlElqIQJpS6dV1X
ImV3SYu4TeSSEKW0uSRrWco2Jc0YxvyOP85zns/zvOc8512e43EigBJIIBCI
aFWs7jjrerHROuVLOJuhecd3vyXeIMaSfd9Kwtl24pclgq/gjZFdC7knC3H2
9qmER0MY3ly6NHhtbB/O9qrJefieh7claZeqMyJxdqhdjU4yF+8mN+Tmxrrh
7LwQTfme73jfaxnd+3rxOJvXxV8QI+HjN/qL5hyP4d8fqWTsesDBF95ZmR/O
dcDnvTe7/TlpgAtK19TunonDf457cofOhoFI0dM25oYF/Nd5TtqOSkNY82k5
f23IAZwbtr9m87UxWMOOv5yX6YBzo0WehsaIgqTwcqL+XQOce/aeFpBVQFJv
+dD2Hzycm6lA3GZ8HCRjl3WZZ7JxbpWsynO5hyClsFQrSH+Fc79NLv9L7of/
ufJefS+n44vH97C2rfkE0g2LhA9jqjgvkTk7bXEBpN+SR9fVZOC8jD1xp5/3
gvQErWV7Eg/nZRn5Wnj2wTrZxNQn6h9xXhnH68L+o7AuSEKy+LccnPeaTaRQ
7EFG/GKGVZAUvkS5uP9vaSWQuZebJd6Xji+9GGvw2bIIMvX6KcVNTfhSz4ib
K3YYZFoboqzLuPjSyMQJj62vQObj4J646CP4Elc+p/FcJsiKYspz8k74stZM
seeEBcj6VOT37BDHlxNZvmVtiSBHfFRW3JSK863NFgbZvSC3Vtk2N7wB5+8I
vW/t/gjkSDFDv2v8xPk+98ftBFdAzsCCFJcUgPMj/MV8E5+AnFftBQ8bBs4v
9iKP5ASDXPmDIEHLL3xF8kHUTQMpkN9ZpbO3/Qi+MlJXzR/QBnkfqaduMQX4
ytwt7/B0CsgfCvFz2NiDr/BzqgKOKIB8rF62cZodLlCpzbd1XAvytyvEJLZr
4AKPwsBom3SQ/1kyVtvZhwvavaIvjN8HhdyCEplXzkDwsxNPsM8AhWLXNgph
EAiBFbczxXtA4c7ihLFJBBBClQKjbv4DCs2euu4514EQL5pwJYYMCpMSd64F
TAIhd1tsmgQTFM1O1slzmEDoJU6qlW4CxW7bdpJGMwj5bNy2/oArkEQnvq6P
tARihGmC0A0bIMkEEYnLMkCMt42OE44EEvkLeTJlEohM3wO6MiwgbR52rcnO
AWJuCbdzIglIPr33trMWgdhSsjDZfRtIdzpiogmPQZi001f+8V+g7FUp+uoy
DYRbNY+qzuwDlZIwLKECQNQqqkGPyQA1Za/C89HhIGHV28XtCwX1cxPcf5JP
gFTQpd6Apg+gcekTRpF5BtKzjGH5PQFAafk5ZV55GGSV5mvilhJAU9GgmiN9
FeSeUyR+Y8eClr/VQPfVElDwafGUibEH7SzOXZ7/TlBkaasabjkGOp/fx7/i
JANJrYL1g1gLm9QOTs9/3AHK7ljOL74q6J6Q9m5JLQaVC8biX7oyQK/+d8Mq
t1Eg38oXVso5BPrfn5aOBT8E1T9WHG3v5IOhjQK5w1Ee1NJOShIVrcAoXsmY
HyEG631Zzv4JX2Dz3ZmHzg3DoK6m2mK8wwS2nPuhfPuIFqgPJIiMdb4FY3Jr
eetfhbAhpSCSz7QA45byOlw/GDSUdKy8TZtg69Ho0/a7NoBGwMZ/WTpxYCKi
ljmfcxs0inqmv9bzwKTy7QaOwzHQGHtd/be5P5g6+QsXqfCBot5dEcDZDaYj
vXn9Z1OA4lH3Rlc1CszS/GuO2rsDhfk5TURvE5hrNqsWbJ0ESs3PuiOSp8D8
pbGQXkorUEZ0HmayWsHi6GnL/cuhgEloa/pP1YGlcJW2uogEYPqZ53SnRcDy
79krJie+AbaT6xIWQQYrxzXO34WyAQv1rFl4kAVWbJMUYU4aYBf3FoUUi8C2
bKeIIvTPYSWj/VkuwkA1NnswpasOWP3oofdDe4Fq8qFkJN8PsAZqZUfgeaCa
R+X0yt5EzmpUPPkWqNTac894KP6Jg3XI2kqgOpg533yxHrDG0ub/TZQD1dd0
1CNUDbDm/VkGrl5ATTWVZd1XAaytUOJxeTVQ+7aGp1kpANZ93uS/lkKg9pc8
a90xhfw8JV0yF6iDKirEgKeAvZEuLBqqA+qooDn+UjhyrsN40ShQp7vkwode
Avb2rtHuW/8CjRD80IeZAtj712FBdspA25jH1Xv3E7Der6EPHP4DWrR4QlfY
B8CGkwYqlVqBFht2brh2Gvmxtua8LNDOfDg7zyci/9iWcckfaAlF8eSLWwAb
Ofja8B8RoKXjscFllwAbZdzSNnECWl7MSaFhG8A+z34uXGkC2tOJAHP3u4BN
6El9yZsGWuvOg9tz2pD3qdSaVwKtvdZ/39An5Mxfex2EgfYy2S85TBL5u5rP
Zg7Qejbs7c4IAmyyVq2abAi0r967j7Wg+n0z4b27ygH6una7AtN0wGbWXnn5
SgB0uYCksjfofTP0XWrVi0BX4DfeC+1FPt4jKHACOtnUsrlsE/ILa6Go+0DX
um3wReU5YLOpSWm+R4BuFae4SYDmZ27uDYOE7jtkNPaggwnYj7w/daeCgB7Y
idUHGSG3lm9IHQP6kcADz4g9yLNphmx3oIfe6PtA0wFsHr9nz7QDeqxEF6e6
FXmoxHhuBOiXRutoWSKALSg5XU3ZBfS6bGabXzJgnAMP51Udgc4S1Va8gfrL
STwe9BYDen1ky+E+VH/OreWqSQLQm9wJwrsTkUfKvUvMgd4pdRqc4gHjHtxS
n5UM9IHEkMdbTwG26KN3cK8LMESOuVWLofotGbI93LYCQ6x3lm9bguyswHdS
AcYax0zXxC/IQaSvU4+AIa3V8W0pADmftS37EDBIQ7Yb2Wjel6XCclUpwND3
NLv90Rt5+MWZfS+B4cEg/1ntBNjKqdT+Lm1geA7/+mitjHy5e46L4r2T36m/
m0Qu501c+wyMfR0XyxZRv1Y+TR+0IAIj2HP5sV0nYAJblwKFUmDEhwwO9ruA
JkHSYKuDMzBKrxdtktgJmkJJ45V1J4DBW9B/HLAbNEW0vK82ZwJjac2eEZ2f
q56Zn0f5La0/Lz6Vhayd4n7YE9m+1+tUD7LOvRUxTeTsFPaF35B1JdV3HQXG
ssWgTpUfsmF9nGkOMPhnfr/26xiyBblcNxf5cj2rXmrV9yJetyMXjg8nVCFb
Olg2iiC/oBtJzCBbnayLbALGiurXDtVwZOrz0y7NyE9sBBCNDFFqX0eR34Tp
iJKQrSXzjE2Qx667djxa9S2lZwPAEKydy/VYRLbp5L/dheyXZxYYj2yv8Uem
HnJE+z49tVXXzjCeITN/nJ99guzgYsNYPX/XqTtmBdkxalD/OnJLJIdWgOwk
pa3chvxfgboQrPpWsFcy8lSnXesw8naz4lFFZMFCSEbSqjsHGpv/D9c5tbE=

          "]]}}, {{}, 
        {GrayLevel[0], PointSize[Large], 
         PointBox[{{39., 8.372587761933206}, {35., 9.063248057848442}, {31., 
          9.508375500830404}}]}, {}}},
      AspectRatio->1,
      Axes->True,
      AxesOrigin->{0, 0},
      BaseStyle->{
       FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 14},
      Frame->True,
      FrameLabel->{
        FormBox["\"Time (arbitrary units)\"", TraditionalForm], 
        FormBox["\"Y(t)\"", TraditionalForm]},
      FrameTicks->{{{0, 
          FormBox["0", TraditionalForm]}, {10, 
          FormBox["10", TraditionalForm]}, {20, 
          FormBox["20", TraditionalForm]}, {30, 
          FormBox["30", TraditionalForm]}, {40, 
          FormBox["40", TraditionalForm]}}, {{0, 
          FormBox["0", TraditionalForm]}, {2, 
          FormBox["2", TraditionalForm]}, {4, 
          FormBox["4", TraditionalForm]}, {6, 
          FormBox["6", TraditionalForm]}, {8, 
          FormBox["8", TraditionalForm]}, {10, 
          FormBox["10", TraditionalForm]}}, {}, {}},
      ImageSize->Scaled[0.6],
      PlotLabel->FormBox["\"Progress of Reactions\"", TraditionalForm],
      PlotRange->{{0., 40.}, {-0.001, 10.}},
      PlotRangeClipping->True,
      PlotRangePadding->{Automatic, Automatic}], {168., -534.4}, 
     ImageScaled[{0.5, 0.5}], {320., 334.}]}, {}},
  ContentSelectable->True,
  ImageSize->{348., 724.5333333333333},
  PlotRangePadding->{6, 5}]], "Output",
 CellChangeTimes->{{3.3949660786736927`*^9, 3.394966103984069*^9}, 
   3.394966555503623*^9}]
}, Open  ]]
}, Open  ]]
},
CellGrouping->Manual,
WindowSize->{654, 728},
WindowMargins->{{1, Automatic}, {Automatic, 0}},
PrintingCopies->1,
PrintingPageRange->{5, 5},
FrontEndVersion->"6.0 for Mac OS X PowerPC (32-bit) (April 20, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 225, 5, 30, "Text"],
Cell[818, 30, 733, 13, 49, "Text"],
Cell[1554, 45, 582, 11, 45, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2173, 61, 317, 7, 45, "Text"],
Cell[2493, 70, 352, 8, 29, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2882, 83, 267, 7, 28, "Text"],
Cell[3152, 92, 388, 8, 29, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3577, 105, 225, 4, 28, "Text"],
Cell[3805, 111, 616, 20, 31, "Input"],
Cell[4424, 133, 647, 21, 31, "Input"],
Cell[5074, 156, 665, 22, 31, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5776, 183, 675, 12, 45, "Text"],
Cell[CellGroupData[{
Cell[6476, 199, 584, 11, 48, "Input"],
Cell[7063, 212, 977, 16, 22, "Print"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8077, 233, 585, 11, 48, "Input"],
Cell[8665, 246, 964, 16, 22, "Print"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9666, 267, 439, 9, 48, "Input"],
Cell[10108, 278, 968, 16, 22, "Print"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[11125, 300, 173, 3, 28, "Text"],
Cell[11301, 305, 3084, 82, 215, "Input"],
Cell[14388, 389, 3111, 83, 215, "Input"],
Cell[17502, 474, 3080, 82, 214, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20619, 561, 614, 12, 79, "Text"],
Cell[CellGroupData[{
Cell[21258, 577, 472, 10, 48, "Input"],
Cell[21733, 589, 565, 10, 22, "Print"]
}, Open  ]],
Cell[CellGroupData[{
Cell[22335, 604, 473, 10, 48, "Input"],
Cell[22811, 616, 567, 10, 22, "Print"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23415, 631, 524, 11, 48, "Input"],
Cell[23942, 644, 558, 10, 22, "Print"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[24549, 660, 481, 9, 62, "Text"],
Cell[25033, 671, 421, 8, 29, "Input"],
Cell[25457, 681, 221, 6, 45, "Text"],
Cell[25681, 689, 166, 4, 29, "Input"],
Cell[CellGroupData[{
Cell[25872, 697, 2258, 57, 228, "Input"],
Cell[28133, 756, 925, 16, 22, "Print"],
Cell[29061, 774, 1043, 20, 22, "Print"],
Cell[30107, 796, 925, 16, 22, "Print"],
Cell[31035, 814, 925, 16, 22, "Print"],
Cell[31963, 832, 927, 16, 22, "Print"],
Cell[32893, 850, 924, 16, 22, "Print"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[33866, 872, 301, 5, 28, "Text"],
Cell[34170, 879, 2423, 55, 174, "Input"],
Cell[36596, 936, 2399, 55, 192, "Input"],
Cell[38998, 993, 2373, 55, 192, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[41408, 1053, 629, 12, 45, "Text"],
Cell[42040, 1067, 3665, 77, 228, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[45742, 1149, 458, 9, 45, "Text"],
Cell[46203, 1160, 617, 13, 48, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[46857, 1178, 407, 7, 28, "Text"],
Cell[47267, 1187, 2545, 57, 174, "Input"],
Cell[49815, 1246, 2569, 57, 174, "Input"],
Cell[52387, 1305, 2622, 58, 174, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[55046, 1368, 718, 13, 28, "Text"],
Cell[55767, 1383, 3782, 78, 210, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[59586, 1466, 546, 10, 45, "Text"],
Cell[60135, 1478, 708, 14, 48, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[60880, 1497, 551, 11, 28, "Text"],
Cell[CellGroupData[{
Cell[61456, 1512, 561, 11, 29, "Input"],
Cell[62020, 1525, 60549, 1023, 740, "Output"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)