(* 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[     26315,        580]
NotebookOptionsPosition[     25470,        547]
NotebookOutlinePosition[     25874,        564]
CellTagsIndexPosition[     25831,        561]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"k1", "=", ".4"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"k2", "=", ".2"}], ";"}]}], "Input",
 CellChangeTimes->{3.415970200234375*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"numSoln", "=", 
  RowBox[{"NDSolve", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"\[Xi]1", "'"}], "[", "t", "]"}], "\[Equal]", 
       RowBox[{"k1", "*", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"\[Xi]1", "[", "t", "]"}]}], ")"}], "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"2", "-", 
           RowBox[{"\[Xi]1", "[", "t", "]"}], "-", 
           RowBox[{"\[Xi]2", "[", "t", "]"}]}], ")"}], "^", "0.5"}]}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Xi]2", "'"}], "[", "t", "]"}], "\[Equal]", 
       RowBox[{"k2", "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"\[Xi]1", "[", "t", "]"}], "-", 
           RowBox[{"\[Xi]2", "[", "t", "]"}]}], ")"}], "^", "0.5"}], "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"2", "-", 
           RowBox[{"\[Xi]1", "[", "t", "]"}], "-", 
           RowBox[{"\[Xi]2", "[", "t", "]"}]}], ")"}], "^", "1.5"}]}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"\[Xi]1", "[", "0", "]"}], "\[Equal]", "0"}], ",", 
      RowBox[{
       RowBox[{"\[Xi]2", "[", "0", "]"}], "\[Equal]", "0"}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[Xi]1", "[", "t", "]"}], ",", 
      RowBox[{"\[Xi]2", "[", "t", "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", "100"}], "}"}]}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Xi]1", "[", "t", "]"}], "\[Rule]", 
     RowBox[{
      TagBox[
       RowBox[{"InterpolatingFunction", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"0.`", ",", "100.`"}], "}"}], "}"}], ",", "\<\"<>\"\>"}], 
        "]"}],
       False,
       Editable->False], "[", "t", "]"}]}], ",", 
    RowBox[{
     RowBox[{"\[Xi]2", "[", "t", "]"}], "\[Rule]", 
     RowBox[{
      TagBox[
       RowBox[{"InterpolatingFunction", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"0.`", ",", "100.`"}], "}"}], "}"}], ",", "\<\"<>\"\>"}], 
        "]"}],
       False,
       Editable->False], "[", "t", "]"}]}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.415970216796875*^9, 3.415970219125*^9}, 
   3.415983263625*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Xi]1a", "[", "ta_", "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"\[Xi]1", "[", "t", "]"}], "/.", 
    RowBox[{"numSoln", "[", 
     RowBox[{"[", "1", "]"}], "]"}]}], "/.", 
   RowBox[{"{", 
    RowBox[{"t", "\[Rule]", "ta"}], "}"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Xi]2a", "[", "ta_", "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"\[Xi]2", "[", "t", "]"}], "/.", 
    RowBox[{"numSoln", "[", 
     RowBox[{"[", "1", "]"}], "]"}]}], "/.", 
   RowBox[{"{", 
    RowBox[{"t", "\[Rule]", "ta"}], "}"}]}]}]}], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Xi]1a", "[", "t", "]"}], ",", 
     RowBox[{"\[Xi]2a", "[", "t", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "5"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.41597024025*^9, 3.415970247609375*^9}, {
  3.415983265578125*^9, 3.415983269046875*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVz388E3gcx3E/R+PKrK4fYuPc1NKke5Su8Pni7qKtPRzJWvphmB8heuDS
KFEPP0p2ncflxzEu1XXdxOO4B9ESMj+GyiUXIvbDNjpaS4rc9/54P16P559v
e97JgAgjAwMDNt7/LTvLI7iGCzyfFXKCw5biPdsHqKxg6iGgvH/gGBXNguUO
SRaVGg30vnPPv4oIgbKWfIopNRVGa+EY7UgsxHokx81TcsG4JNB31/40GPgY
VThLKQb1L1eN07deBrPhCacZym3w71os578uhcpuUaKW0gheD72jVp26A9V3
c4djGd3Ar/zzQH1eE0TCk+LpUwPg9pgtOtHWBvGKzZN11f+Apiecs+zRBUT7
C05ju8YhbQMhx17aB1eseuiVxyeBFXr5xVDPE+ANH3hgLFNCvssddcvuvyHx
0QXeSScNUGtYirykQahNsAxc5zcDnI2oQxoxBJWCE5ptwbPwXXwzr/joC8gU
LX7/dnoOms6GzNiuGwGDgXHUfEYHPzntvLT97ijQkvinD9D1ENLqxdzFHgO5
/tpBi/vvwCG2Y5Z2ZBz2KWLSrya+h7AGV17v56+ALRdusbP7ANL2D1/atb4C
TRsvo1P8EZIb0gKfcSaAQRq09Tm2BP17Qmj2ugkggj50RPcJql5vIzkIJmHv
DHfeIcgA7eSwC3gEOQy1hhtynQ3RkO3ex0nZcqjPaT9K1RuiifZ+acaCHPim
yeN9fUYoSEa/JI5XQNgpQb1liTGaSSfkhA8qwCVySx8r1ASFy9bGrHZTQr+1
s0Xy16ZoRSR0NpUooak6s9TZmIBo4r9s7HRKEBjS/WWjBNSrK0vdzlYBceSM
b3ydGcooMlF8cV0Fipv2haI0c+SiZY2UvVZB4ab1Jo1BK9D1iMHScvcpEJbw
paFUIhKaSMnmmVPALTzSZ6kiopxhj/uktil4/82NBZHEAjWaPp9OIahhUuF9
ujXbEpmHX9mU7a2GXz1cbXpDP0MJb9Ookgw1iC8mkyK3rkS/CygVPg1qyA4K
YxrrV6LG7tXpMdNq2DFSeTu7dxWqvr7E+NFBA0WbS8W9TCvkLPkoeRuggXMt
+UXMRiskn6nocr6ogf02QTe6HUmId36OyK3TgFe89DApl4Ru1ftyC15qQLSR
5yjTk1DLfFRcClELjm23fmYftkYp0xxZl6sWhFtb6U8l1ihOU7MwfFALfJ3J
ky46Gb07GOCeka4FXu0bam4BGa2o0pnRKrTQ2W2e1bxIRsp8UpZHuxZifV4J
u7D/HbO874Vt1dxYPohdNGU0/y02RxxzbxZbYzsWw8ZWFcjmHJfIKG89J+AY
NiFIeDwfOyGERT2P7TO21vPoJzISsz0b2rGVwbPME9j3LgrnOrHzHnceOo19
PmmU3ov99GFq8lXs46mRZc+weVXDf3Rgx1HdM5XYGdEiG5dlMhqVq/aZP8L/
J37Y7I69pliRZYndyfV388MOMH3ZbIVtxTIMDMNeNn3AWI8tYoTlXcOe/83L
mo7tfWtPURW2m90aJgNbSVl9sxa7mTmZtR2bQXr0sAe7pv+kfjf209yy/iFs
Bo3BAOwUo5RRBfaqHSq+D/YGAVv7Bpu7WCLaiy3R0RaWsdem+Q0xsf8DONlg
uw==
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwVx308E3gcwPExT5mc0XWVyhxFI9HDRcz3V7oUTipaRDJlFHm4pkRyJK1L
NM5j7Gzi9ECKq2lFHjKGCkUxJnlIiZFQmvvdH5/X5/XWZwTvPapIIBB8cf8/
J5qhYnEk0vYof8L6m+ENWm0bxYlOcQeh8uSkuFxmO//0cRyFEgBJSh0P/KfV
QJPz7x31zjCQd6vq2vQshpyqRD1lSgSQGIeHzZP0wXTsyJV55jm4+T6o60ak
MUg0c+VzHbEwLPjaXKJpDoE0VtC0Hhv8rZoDhFxLuNcuzf9sdxls1D3P9u+j
wdfjTt0yZhLweAKnJsOtsL356qovHRwwdUyjcVg7oO2bf+q4XibMnCAWLTLb
A+H1K83HSrPgMy1gAbthLyxLaReP2l0D5m4fwYEQV2BQEfEDkwtswlj8hR46
nL5FEkx08ODPu6RZnY3eoNr11mhUrwg+bY4uSKpjQmfVI9bH4SLwuhSRpi3x
hxsFGTUfSm/AleWhvS4zAeAc5uw9YncLZCuKLpZZBULagoq0IWYJ8MLSMxf/
HgLa10SKso67MG2SleMcyIK8Rm7oBz0BSOOt3/dviIHPGeXU3ssCCIyyjRdn
xMAOpri/dVYAHaqJ6z3lMfCROO1W0VYB5OO29cHiP8CS5ryFnSCE8EkfkX5Q
HDwvmVM0GquESt06/mDTBTjXaOpg4V0D0avGuzNliVBcwu4KNGuE5J4x/rEn
acCEF5kfw9rAaCJ/684QPpwYWNNfVvwaGlfLSmwnb4K6/nmjXkspeFuPD+2o
vQtXtMTUvMP9cFVWUKPrfB8YXa6VxKZB6Dn4SGxpJYTQuvOMYKMR2GmfWxEQ
UwWlIRr7luwahUtSMfVOaTXkRR4fMaePw6rsppJflesglju35/NHGcSJV8wf
MKgHQpsUCc9MAk/RXq3UuAFWn/Q77UqdgrElMoNru8Twbip9P+nRF3iyPZfp
80szOAwcO8sJnQEjfsK8l/UzcH6XbLJy5VfQLlebfcV5DiM1jBjR7W9gPxMo
fB/8AszIr1bYeX+HvyhK6X/TW0Edpny6J+WQ4q4fyjZuA/tRj+mf3Qho+Ut+
LYXYDp3VRxQ8TBVQisIWT4PWdii/WHuIMqWAAozTFt2//BL8lFnSlhZFJL/z
2tXA5RX4hkWWa2QRUf2yYoIfoQPWMU1anHyU0MM+1qOcwg54pm1KYlkpIx7t
np0KvRMeFsdmmxJVUNT4j0YuU50QqUB1aZKooN11xfwt2a9BvfvMzhNlqijo
pv2XAss3MFCgn8qNUkOH9RyWPn/6BlKNlyoJ3BYgeat9/VLPLkjO8qv3oaij
KoN+Cbm/CzxSvVo0htTRHgKPFuLbDTPbr89yH5OQ0uXY6XMj3dA/sO10dYIG
sijcVFl2RAI8moVus89C5E066bVpQAK341lk5lpNFFO6piLXvQcS3HwdiVOa
6MHc3ECCqAc2decVJTT/gCRmQ0QfWi9krMm+3eyohVY6RrfsKeyFc1WJGY4C
LVSU62ETTJLCb7pu1xsNyWizOX/sGpLC1hP1B8lsMnqZrVMpCZECdznDsGmK
jDRkS97V8qVgWFOY5nxQGz2zyrIitkoheW01tfUxtpdNioVcCn6TSi8aqDqI
o/vgn7emfcAonaCwk3TQ/hU8Ezd6H4ga1eKEczootGTWlHq+DwLt+pIbsBtZ
ZeHrsLWEgtxX2LWfjlVtxD5w+1jFOHb5TOM+wB5KapIZftdB+kH0M67YKm7J
hxOxCZK8p9HYdr0/2R6S66D8+bmDbdiD9HHH49gzhmbXO7EvPRe5n8bmfvf4
JMFufRLB4mDLRYUxw9iM/K5bT7FXiRZe/44dE8DVXTevg6oDSKNG8X1g+PbU
Ghvs/LrpTWuxRR4um3dha7/sjV6PreWksM8Xu1CTr0XD5pr5XkrHhtGpDXux
txVaZ+Rjaw5WRtGxB/UWFZRiczjxdZ7YZuS6J2LsBhUlOhO7lZ3zrBM7oUXI
DcQOVwyXDGAvdAgdDsVeFun8YQLbO0Lf4hT248nVs/PYcZ7NEVHY/wEVogho

     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 5}, {0., 0.8678340172153892}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.415970248125*^9, 3.415983270984375*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"A", "[", "ta_", "]"}], ":=", 
  RowBox[{"1", "-", 
   RowBox[{"\[Xi]1a", "[", "ta", "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"B", "[", "ta_", "]"}], ":=", 
  RowBox[{"2", "-", 
   RowBox[{"\[Xi]1a", "[", "ta", "]"}], "-", 
   RowBox[{"\[Xi]2a", "[", "ta", "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"X", "[", "ta_", "]"}], ":=", 
  RowBox[{
   RowBox[{"\[Xi]1a", "[", "ta", "]"}], "-", 
   RowBox[{"\[Xi]2a", "[", "ta", "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Y", "[", "ta_", "]"}], ":=", 
  RowBox[{"\[Xi]2a", "[", "ta", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Z", "[", "ta_", "]"}], ":=", 
  RowBox[{
   RowBox[{"\[Xi]1a", "[", "ta", "]"}], "+", 
   RowBox[{"\[Xi]2a", "[", "ta", "]"}]}]}]}], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"A", "[", "t", "]"}], ",", 
     RowBox[{"B", "[", "t", "]"}], ",", 
     RowBox[{"X", "[", "t", "]"}], ",", 
     RowBox[{"Y", "[", "t", "]"}], ",", 
     RowBox[{"Z", "[", "t", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "10"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVzH8003scx/GhdTuis1Epv/ad7RRL0umXH/H+3NShuHSr3XV1dBkhuUKm
H9R1qptU8yvV5LpjidU1v9KPpXZnTJMfDR0clOVHCHdDUlLuxx+v8zqPf550
7vF9R/RJJJIv3sLnnuMu3hhy1b3CmayYn9dCbRvhwyGOwlaGrWfThBbm62QX
COI0bJpQPhX1ayFXzqeRiRRYwXgcfeSFFiLdeL/P0LIh5+y58d1pWmj7Gp6l
o92DmWtWkmuEFn7o7ls7TpOCkelfY2+9/oP8l8KYUVo9VDm51ipLx6CkNKU7
0qELNo0HGMTfGIEwaMkei+2H2irJI7bpEEQN2vVXloyAidpme8bYABjSL67t
ddLB1zD1p+p3fZBKaWDlB06B8VWPzcFb3gG3+8C/Bo2fYI5Wp5fp1Asxyovc
42tnwdYxwuZqXA+URxvtX7X7G/QN+l1bbtcF+QnHPjhySIiUZ8ms0HXAeeHc
zx/H9JCg2JZntLIdSG0a9OyMARrulrckxr6GNXGhpw6wyOhy4OdlzM5WGJi+
9cvS54vRJXKT0vtcC+wZjDibGbMEmVvnmo6y1OA7kL7O2toQvZ5N+zA02wQf
arhJKslSRFEFBshmG8CB2m7l8Zsx8ukSu/XM14MhTAf1TC1DZQmenRf8VOA5
7j9jw6YgufuEywNRHXQqQvT87anodfiBxDy6Eh5erj1MTFNRMd+zY0tHDYSS
eZrmZhO0N4uv2clXQHBswkOj26YoxDF52D2mGjaErWv2CVqOBjZT/bYdl8Mr
E/ulPOcVaMmThgdWnTKoKjmfY2+wEpUtKt01avYcEvRYexvfrETRqcOTB9lV
YNhzxiuq0gyJC531eFVSGCykZwkTV6HhfQUZOZwnkGW7epGUvRqJN4fnE7pH
kH479EUQYY50joaK/Y8fgn9WQLPRkDlK6tMW+Aoq4fPOu1+EMgukW1FzxIL3
APoHd5xSJFuipO93luniK0DkttGiKcgKoYiPzfq8cpD8yaOGrbdGSf+wXU5c
L4NkdrC3wbQ1Im0or7RJLoUtPfn3kptoiGiZ9hX3SkBglyNp8iYQxVjRFhRZ
DH/I+QJvKYHkLnIv98n78JMF++5LJh3JJ1VU6Y178GPUi0PUFDrSiC3fngwW
g9CSy2ycpiNisvrzJVYRMGuKbvoeskGamRSNtVkhpK9XsFplNghJisxVZnch
dGpRSz2LgdQ3243NTAqAWz5JpKQxkC5f2XJo3R1QvVxy4dkcAyUJ9KVf3UUQ
6fEuvR6bkJl6abApz6R/t2M7CtgdtdgHJRFPddjysGOf+NhDaY0TzG+4H967
lcBezE4P5GPLM4flO91E4NFr5n74O+5fSvzCdxXBe47O+xh2dMid1FjsK2rV
r6ewiZFZBge7tfo0LxNbPeDqR2BzC7qL67DzssniChcRJB0VWmyYZyCU/Zjb
4SwCZt9Ju+3YmpLh2Spslf/ebbuxA0P2XM/Dpvjo7Q/GdpQIa49iCx2Cr9zC
ptzPsJtzEsGOIldBAXZ0hWeNBvs9bXlh+UKf4xCgxHagKqsbFnpx/IxU7NaU
3Fed2OpRsv0J7Hj9+DeD2KTvJXUcbPME39HJhd79y0HbsWVTa77MY5fpMucI
7P8B5v9URw==
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwVzHk81Hkcx/GRq1BLWWfMb46NmaRtdVjR51s8Omg9UMgUa2bkKOtod4qs
7aCHoxxZW9Nl0kO3IxuPR0pWieQ+1pGZzJgxJqQlxlX89tsf78fr8fznTeNF
+xxeQqFQPPG+9sYfPJ0NIee3cetJGUmS8KqT2OtPRMCXeWpZ2SwJZF1VEkHE
A+P4jNxtgoQb1RlUbSINqKv8ntnKSYh0EfwyQ70Cli/6ogNqSOj8HJ47Tr0P
QxuCLvCTSdAVy23GqBUgivN5qKtFQn6DKHaU+gZY7zcNyDUWobgkTRxp3wcX
nVKWXVB+hjBov/LhmALCI1rcGKvmIUrJUpQVD4NCxZKqYmZBj5ZsI3Uch/nt
hq6crmnINGxk5wdPgve2clljvBp44v3/aDZNg8OWwhTT76YgtjaZF20zDwWJ
MyNWM5+gNMZgn9meBbC9MJq+c2YC8hOOjnzvT0H93MA8xfw4nBV98Z76oIEk
YpdCB+Y4UDplqPKkJire1NkdVfcR1vwWGrefrY2cpB/7hDvHYFB92U//uQ7q
vyd48nphFNyVRxJzYpeiKqUpZ7R8BDwHs9daW+uh9y2I+V/GMIzU8E7XF+kj
9ttIwa3M92Bv1G3l+vNy5HPNb9IsUwV6oOZKJlegOOlC81jJEOwa48zQfQ2R
sfsI64c2JfS+DNHg2Bkh2bPE0NVaSihPfRVEqI3QxthWsb/PIIRqC2QtLSuR
k7GQTstTAP9YQrnB1VXI2PG0yXWKAtaHrW3ZyzVG+/UesA5Hy6F1pZ2+4Mdv
kaHEge0tHoBnxWev2WmaoEzn6RXuAQOQoMH2anpngipLCL+Uf2WgJzm5O6rM
FA1FnVxsCJCB8g4tV/S7GWIKP9KZYink2pprVfiao9ksua7OQj9kXw19zSUs
UIyBd0KBYz9wcgNbDFQWyHi4nn7/zDuYdbs9J6qyROFzR9p0ayWgUO6Ie5my
Gk21B+uXWUnglssGy2auFRrsX15hHiuGonMCo7B11ujm3/S6mz19kOLL99BU
WyPbjSeCVbv6YJMk/35KMxVpkXNV3zx+C0LWtaJmDwJlD/7JD7B/C6eqM4Qe
FQSa3SxTiQt64SdL39sNTBo65HzJU8rohe1Rrw8apdFQr7+9KudRD4hW85hN
ahoKT5wmHzv2ALPm7iXPg3RklhE/7N/cDdnrXrI7qujoAN/VxCq8G0Intdrf
sBnoUEn7rtTFLuCVfiLSshjoHuKX1om6oL5haVLlFwa6Hs4pnnDugkjXgew3
2FMxm82HsA0rK/K6sWO4RHIf9oGiI0/HsQ/MW3FqsFVZTRPMBQayW1at8xe2
jm92cAb2oyQRzxHbVWq6LWiRgdocGpmntnbBkP+4x1Fs2+UhF3/FTm+rD4jD
9mrUWwzD7ngRL8jBfqI+0+OFzSsQF9ZhUyim5+nYpyNElutJBgruFE/VOnUB
U36C5YxdOObDe4pdz/HasgfbdrSntRjbcK/GPj727iz9h5exRfb89MvYjvHm
vAjsHXe3CguwiQdkayD2ENX4TunX/+eTLj7Y9ka1LxqxhenaFluxO9JutPZi
e7kxUtdjH19y/J0SmyLznGZgWyR4jn7CTg1MDTHDrppcM0dit1W2dhhg/w+S
61zQ
     "]]}, 
   {Hue[0.14213595499957954`, 0.6, 0.6], LineBox[CompressedData["
1:eJwV1nk4VV0XAPBruLj3mpVMmUVEKJ+3UmsjSkqSMVLmVK+oFCkNFIlIKlGm
JErGVGSeQobr3nN7ZQgZE2XIPH3bX+f5Pefsc9beZ+21tpzzOQs3dhKJdIGN
RFq7Pg905tJyvbdnm0VQ1v2FwD3VTNmDNrKe8FfsRHf+c3tYrS0NkpX1B/Ve
iov53jPwvDxChix7F0So4wkHqq7A2d2+/87KPIXZMjmNCu4wYC6eihmXyYDG
XZvpH6Zjgbvjh/KYTCHY5zV+3eD2CtrKS3xHhwthT+XDVCFqOrxOi636lVsE
2613GpOz0sHsvNmJEcNiGO/SEv85mQGPKUWPhzzKIOdY9gTZJxOEn9WxT/xX
CVomQ9ZpSTmQ3JDo80umHvpnXre0yhXA39gC1e7weqjUexZ+8WwBGHt86WPM
14P387SZN+8LYJRj1qqI2QAt+gnsXSbv4Z/dZjvvhjTCqfBt/i5nPgA9e4ld
+U8L/OKtP9oaXwjXG7Yc0DrBBO8Q3ws9H0ogPffDpjePmBDM+vS7bqYEGLEG
HEqNTKi745J6QqcUFD1si8V2ENCZF7klLrcUGjiCNUgiLNhccvSeZVoZiO7u
EG6p/QpvpN89yyovh6zsux1nNdrhz+kDWjk3KmFEeCT8gFM75ClK89U9rQTl
Swf2qMS0g5nVyvGqvEpI0qMl9823w56FgwJu/ZUQXR/ufqymA+Tp0/52xlVw
qS9yYp9DF2yr0c9QJVdDIu1LkJBRD7xeZj4KPFcDe3YHONxw7IHUv+XiR2/X
QKeXms6fyz1wvmi6WyC+BsQY9wYbX/dA87qSIoPaGngQe9AkVLAXeoOYsg8k
ayFIqZl/taMXFkk3N49W1IIHtD4dPd8Hiv+Sfc6ufAZSykxRx70+sP64oV1R
qA5iOaU6G1L7wDTp9Vy9Qh3U1btLZ3ztg0DJsML2/XWgYrmU4razH8LPXlsU
i66D4VPKmd/ZBoB++H/fpOTq4XT0tVJ61CBUkcnou1YDsE+ndJdlDML2Kas6
O4MGiLOpI2VXDoKtUXRdtUUDNEiJGEb8HYQIw9/XPC80gNqr9M8mtkOwp12y
7U9+A4x+YtIrZYah/187OTbtL+A1sLnvXdZPuFP6j1iBfCP0OH7jqaj/CV1I
63OgdiMcbQvVaOr/CdVKga90DRrhny9D/gMSI2DiYXToslMjcOS+FBQNGQHO
+Q43zcRGiL0qt+fyiV/QsvDpQvyGJqgQEX+6Q3AMZmbUP3xbaoLtEXWlRmpj
EBEbtyeb2gxpXH79R4zHQEli9fAlsWYIn/+69fTVMUj5EmT5bVszWHfH1MYN
j4Hxwf1lfz2bYeS14N/F8t+QJBERE8lsBqpcsHL3P+Mw17LiVPmsBer0HmwN
NBoHawEJCfH0Frhjm6C70WIcbvyJG3bNbwH2qI/77M9g36yd6ahvgYWVUY//
no+D7eWH4iYzOO87rdJb2CdgtdrwfcwmOjTGKm8ub5yAzO5hhTR/OoS92651
4tsEBOo/vf42kA776fo7VgYmgH9/jGBOEB2quR1M9FYngMK/fiAtgg7Fl6I8
P2pNQjr3WLt9Mh3eWs5n5DyehCccRwWGPtPhvuAX1eSTUyDUVJubItQKhbob
C8y8pkDz/U4Jf9FW6Hc8B0sBU2AwWBR2QLIVdr0VsbR5MgWjXm5Pvyu2wrCJ
wzW+5imIsfzL0ajbCoZBYy3+u/6CuWVkSLlDK8xNC/haiE6DeTLLX/tFKyhs
dF5dVZiGHkXVlxdetYLZ3nd332pNQ45B4sWcN63wMto2gefQNHzIyRfa+K4V
LLYmfy4NmoZRAVJFZXUrvD2lLaE2MQ3u9WOE4UArOHdYlnE0zgDrmaLkTgUG
UON7//X5NgPqavoZg5sYkHfMS6p7cAbExjhvR6oygKM9xL+IbRZczLW2fdVi
QGpb0TYf3VmQvzRcr4sYMMiSTf+eMgth+5W7zRwYcJo+GlXoPwfk9N+x/Q8Y
IBzlD8ohc/BaNt5f7hEDig5z/Y6JmQNj12AR+1gG0FpkTL2z52ApfjWwOoEB
mU0WZOWBOQhe+CfU+w0Dfjd89I8xnwedro8kzWoG+NQEO59TXgD9xxQPpykG
SPcbc81sW4DpM5V61BkGfGGnvL6KFqBCLeJuzhwDlFDExF27BbA53xY1vcyA
b0WPbqTeW4DTtrUPnHiYoJ+TlvDtzwJknGPbUSXFBKH4unbDj4ug6740+cmQ
CaWFYYEN1YtgOYmqNhgz4UzbQfkjrYsgoFl50Gc/E2rWt3o6jixCQMJ09MZD
TPCP+jbnJ7UEmseuytpbM6H39oho1o0l6Oz/+ePMKSbkevMeFTNZhu+u/CIT
YUxojBPxf2u9DPI6bS+3RzBhsFoi0cB1GSybKHTfSCZIiG/+dfb6MoQaCU6N
P8R1vMIoqKJgGZ4OPM9qeMYEa+Hr+aflV8DJw5bJl8WEhfwJkZLFFcjv+3m5
t5kJ677P7bCgrAJ92YS9k84EDR7SySHRVVAeUHUjGExwceDPFNJehavL/Z9K
v+J4ONX2up9aBc6gC73+35mQYOV6UYC1CuuPVmXdG2NCcsCZEU0bEvLfp6el
SiVAs5wyF3KchMy/TIrX0ggo50wnd7uQUJxV2dGTfAT0RPTLRniTULzKalmk
IAHSScdtft4loRnf9qR2UQLiqg9XJxeT0DpJcp6cAgHRfNsThOXZ0DMuplPg
TgLkLRhvPFXY0KnQh6uDuwjIfexdWK7BhnrORm8w200AXeYt4bWLDQX/Yvu0
ARHAr72J9sWSDYUnvhyPNSIgzFrMLyiEDYn++C1taU7ArcSlI39H2RASTast
cCXAXPOjj9oUGyLnStb/dMPxVVx44DzPhtjbMv2kPAgo+jFCp5PZEWXf3x/X
PAmYVPp2+K00OxoV+Lai6UWAc2bBIXdzdnT1FlnV7jIB+oVeJm357IjvseHK
h1AczwFVT4EidmQ8Kx1YdRf32faBUONydlT9OaO+KYwAvyWHuneN7GhJO+nz
93ACcsB034MBdjQb2+o/GUWAbK2y0YENHMjV2zW4N5YAErMHFV/hQOH5itT+
VwQE/yxNvnKTA/0ROGL4PZ0ACuk5+45QDjTv16P1XwYBwup21QWPONC7spPb
at4QoBTSui87hwNdMPYZeJBNwIFdlWYpgxyo0kth8vd7Ah6+eOEQasGJ0l48
opdWEyBWdLPE2I4TCTwtyXtQQ8Az+glp8klO9Gr3lKdLLQFpy5I9N//lRKoC
WvYcdQR8tIlxCQjlREMaT511vuD50m6f9irlRHl6GgznVgI2XXT3s1QlI5fl
0Sc/OwlQ39l9NFGTjLjV57dEdBGwnWS7deR/ZJRV5vN163cCDMJNBq8bkpHW
MfA8302AY+oWyzcOZFTmdy5ptJeAx8TkVvZIMtJn1xssGCSArHN9KHtq7b6p
bdIfAngXZysX5smIMrSlWHkcr0eFd4IRiQvtFNcxycKWPeRs1cHLhfzXH+n9
OEGAnptRFdcmLiQW90mieoqAi49oicdtuZDPmzta+bME9E8/saaVcKEc4yMD
sysEpOhvu9BVxYU0km0LvVYJOBHRHJndwIWk22+n9WO3K5Lrj7ZxoetK21ua
SCxoPXp+17MpLnSZJeD1iJ0FpbkHZdVVuZFBbtetBTIL78MhvVVNbvQscie4
cLFgh0mQXasuN9Lm/CXzBftdT2G0rxE3Qm1N5rHcLHgtoEwuPcmN/tt76JYK
hQVP/mUbMXvCjQZmq3JleVlgWfiMSy6BG7n91lwNwBYm/6MwlcqN3kvyB3zF
vv/My+FJHjf6aZBEusvHguAvHc3dTdwouZNl2c/PAu/N7/O9OXkQkDdkXxRi
gYbvEboBjQexbXTcWoX9q3x0dJ0wD1Lk1R4WFGaBu63CpkIZHvQ+lpvrNfbx
kKhYtl08SOBmLCcTnysPDJy+Fu3Dg/ZHToeTRFlgfE0hc68fD9oy/DNdH9tg
fWf7TCAPCuq/wncLe6fRoX/sw3nQy1038kgbWKD6cuuUwise9CTq0pVpbJrb
31MFnTxoaBeHb4k4C3iWM5949PGgMA8r2ylszkduteIjPEiM+0q4igQLlqq/
KgTO8iBp0f0/o7BHFQu/GwtTUGySVZCdJAsa+69Ztu2jIEqzcmaDFAvqrv4v
KMyMgsSJ7e3T2NXr/uTqWVFQtPQBJ9mNLCjee1Ig2ZmCvv2Nu3oBOzPVoMHz
GgXFMbfNCEmzIF1vcU4ymIIqNvcu6GKnEvnKzWEUFJmZ63Ac+xmn0m3tWArS
nK3ZkYYd4cqNFvMoqOmYtbumDAvClsq83hZSkGrhZqcj2Hdi/J6fKKegpfHC
Yh/swOqfC1VNFCSj8+VJDraXYmNB+DAFefLU/9wky4LTxcH9e/5QkLta/IwB
trvlbpGJaQqS/Zjg4YjtGJzlbcVBRePWfy8/xDbrj1KTlqaihZSJ4zPYjWr9
hIMiFanfusjLK8cC0wu6gfGqVLQY5vU/Oez97N/pYrpUFNSusWKCbSCrdknE
nIq8C7PdH2GXewTKWFhT0Q31Twtp2JDdWhflQEV+h2h8H7H19vhJ8ntSkalF
z9s2bB2HmnKeW1QU/2HLiIg8zvcXYqf3hVIRP3PLFTls7V9nRO7cp6JCKbin
ga1xRdidI56KhhZJ2vuwMyvcBAySqYg06VJnga1GKfx44xUV+f8HvcexVWJP
0Fby8Xit+vjz2Gndee/0iqg4P1T3XMVWUuZyDCinotXw0663sVO97LiLaqmo
9EI//31s+feZOXONVBR3ZmL3Y+yk5VU7XSYV9Sr+mniOLWN0lOPSNyr6dlhN
7SW2FDFvNTVARQLFAxp52HGSh1a1RvHzx0UWPmCLuySle09SUbj2b9MS7NjX
U0ey56joxEiLYiW26KTx4tgKFb3QEb5dix2zIy51C5mGIhL5/23AFrk5dugM
jYamZtZ3NWFH16HZDCEa+vruPIuOLSgYkzS8gYaSc7ytmdj3bYZMlKVpqL7C
/iQLmy9x55SbIg2VlF2f+oodPhjxLFWVhsZuqgi2YVM1eo36NPHz3cnv1xzq
u/2PnC4N1eToDq2ZqyQk9uRuGjrYqJOy5mDODv1EQxoiKMND/2FzHNT41WVC
Q40o7uPa+289vBkjZU5DKftj1619n9RB7La3xu+fU19iYAfKqww9daChfJVX
59biX/IMiGpzxuOzD59bm9+V3OYdGzxpKMztwmI99vycXJ/VORqyk3Nct7Y+
fsg3PMaXhjKL7IsqsGdC6nSYAXh9eD6OFWNfbJHsFrpFQ0l9pVlr6z8lei7U
PJSGZOWLl3OxzztWakXep6HB+MX2N9jjL9d3NMXQkKtKvfHa//QaOxXMG09D
1ERv/QTsse3F6qbJNGT03+4va/kwUuV8o+4t9ohfxJ21fHjQdvr+Oxpy6DLg
uIZt6WhmZfmJhuqyP0yv5V/p3A7Vnjo8P3Yli7X8nKrJXpfWQkMBtO7iI2v5
+lBp9cxXGsrg+PzSaO3/qgsRs3009I7xYkoN+/PCndKSERpK1TpmJ722Xp+X
0oMmaAiiKvYIYrs7D18TWKWhlw6bwibx/tr1pExZWYIXmb7oUs/F9nbVER6T
5UUV3rnxidhpWm+W8pR5ka6jXngEtmDj49Y9OrzILGNhxgO7n+QVYG3Oi+x9
spZFscWb+9ykbHjRSjb9Hhu2Wbyd+Y/jvGhWIyfxF64fH3WMlLzO8CKxlc3H
SrHDT0u13L6Dv3/eSnGt/lToRheaRvCiuvuPRvZiz3DypArF8KJCqsMONeyT
iVN+z5NxfF3VPjO4vm0nGuQLinnRd3EOmxDsrt3+l/oneZHA/yR3PcT1U5j2
5+TreV5k6Lkv5zz2/jZXU28SH+L9I5V/BDvvvLnsEh8fUszmdeHHvvNKuUFk
Mx/qUV26eAvXbw2hrxsNT/AhGwfODCtc7wcjBm89cuNDshd4azSxn1Nnh4bO
8CF7zrGbNGxeTrG8cD8+RB406C7D/WNkxs746wM+dJQVtVUR+2Vnl5dnNR+S
6dJw6sD9SCp9oCxyMz9aVK5lkHH/IhRnFH9s5Ue79RJCWbjf3UvmCtv+P350
n2frUCr2Qpyy5TcDfrT83jHRALstwnNY3oEf2Y5osV9Zz4KHF8YE39/nR8kv
g6racH+lwrRT5xQ/AsN3VTaCeD/oq/C8X+BH5n0iwmLYg4b2WZFsAqhR0oG9
TYAFlfsrFgwEBFDpkbp6a+wrFhEPM1QFkHX+8uJh3P9/uSnVXHISQNuP7FDX
wueFxnArFaEWAbT+6NlHOfj8sW/s2Ky8lSDysOoTy10mIGFdEPO6rSA6XOjt
exz776432Z32gmivbukdCnZS2KLHY2dBZHMsuO7kEgELys/aKN6CSCGpoJm2
SECmc1fheJggevHfDyHLOQIE205cLS0XRObuJkTWJAFtla5sx7YIoRH+V+ax
+LxXEFrtKDsthEotbXr8mwhwJ/v2NDcLI8WYFNflLAJczgcU8MaJoGrw3zsf
ScBWD7Xmg07rUGW3AefDcwS0CG+h+e5YjyQ6b155eICAT1m34rdwiKLqmXUB
CZsICGBTNW/sEkV7xJq0nVeYQO28st/r3QbkR7W92sFiwkCaXEziVTGU4yV1
zDqbCTEq4pyFVuIoxVfjw3QwE6Li3D87yUqgmSnTuAUHJhyLOd7MOySBiFlz
+k0dJsztfTmfWCqJvL3ubrxCZULfgIFfZYgU3t/8nHo/GJCyW0uyyWkjqs54
eCT2PQPe3vYV8lCXRj86Z1WGIhgQYuViyjEtjdyHD+RLuzNApzM5I6RJBhWH
6b1R2sWA2M3xb5tMZdEBpxe/kQgDrpdHxJoWyqL9KjlWB4db4ZCk1csGRTmU
uapA9SltBX2vz/ZCd+VQivqrP++etEKilLNi47Qc+kGq1Rf2agXFqlePzezl
kbyAjVbUvlaIUq9UZZTKIx6/pwJq8q3gPsXZWq+qgNIpDsHsC3Rwzp2UvRup
gFTbJor/EHSoa+AJKl5SQFcrxcu139LhrGFvVD322Zta3BrYgsWFCV+xXRcP
mG3Gtn17umgc+7RsUKcM9lBk44TisgKa0+CZ58Xmsoo6GYHNfsJNeyiTDobd
G/Y4riggTeGzafHYgzbjpmewqds/jT3GDqPX2flh8wjx6kRjMyr8faOx7yzl
VYViO6d2ZNZixz1d3+uLfcMzUXLrqgISHFOXMsdW/HF5sx7234pYF1PsumPm
uiZr9y3Ib4yxBQ+yHXXBXnjRt2M3dqKGS9gT7Dz+AhtVbINXu2JTsW+VqCcq
rcUnsy4tFztaOX1QFltDqKbiC3ageorvhrX47j5vacN2rJcrEca+xH6pa2Bt
vOwLTn5siQCzX5PYv7U3HaRgl05tml/FTiW9eciJ/X+Ai/P9
     "]]}, 
   {Hue[0.37820393249936934`, 0.6, 0.6], LineBox[CompressedData["
1:eJwVzmk0FGocBnB7hUSpNGRGMzcMDWm5KP5vTbfFSFS4IctQo1CikXKLqCal
TJowijmTpZMsCd1GouxrCy6yZJmlVArRpJT79uE5z/l9eM55jJhHdx9QUlBQ
8Mf53elnmGqrAy7bX+v1QtWZdXY17SRHd9IhKDy1S6NMPhdm6yriSKSTMFrj
FLoz0Qi0kh7eV++OBV23NdRnWpaQ/vQKUZUUD/ElMveXAmsw/xxwdZaVCF6R
Mr8uyibo18r4NdOVBG+SqLsz2Fsh2I4dIifyYaTx6zV9mgsUdwxmTdJvgYYn
U9U3dC98D3LsG2cJYM2ZRNrVN+6wpfXaH1+7boNW5mKGwVofaP8RyBsj3gWC
makfr5YFEfWGlp+LcqHd4W6Z67dDQLje0TxKz4M9miZxIptgYFKR8gdWIQQr
HVi7LDwUIvM0RBNdD6BnfkmISzAb5vQOG48SRcANbzgtXRMD3U+fsD++EwFt
n70B91MM5OakVn8oKoPkscJ74ffOglOYk897ejkoEg88yjeLg+R5ZclvWZUg
n+U9i9lyARbealAa76qClSlmZo9bE0DYJDj2gdgI+vNHbRRibsBkail1IKER
WjV5r78pJMNWVrO4bboReiz4/fzYZPioLHcta2+CRFAg13NSwNrOyTae0wK5
D8NdjvP58LJwRsn48wtYtdRXMbIrHaKbzB1W+7TDMY/kegO3TCgojO8NpvXA
grNylYHsPGDBK/7HMDHc3MYJPBn4LxyRmopLCkbASnGjXNXsKagbnTMesB4D
A25l1bq+Griq3UwV+n6BXJuA5lVzGoHZu7dSueUreF+g1rG2t8Kx2nPMo8bf
IcUmIWJR6ksoCtXco7fjJ6BSoe93RhsIo4LeW7orII7enVyyagfECmZcJj8q
IhO71TV25/8DhfZBVH5KGSWEEigCaSesPH4wci9VFS2+Tdg34dANkqkUN40n
aqipeGhveexrcJAePp10bC7K2B3io1vZA04SrpmhoTq65VOXd2OoF95XM2Ma
8jVQcVEnnTDYBzSdzuV0n/kobr2xdbm4H9Rhyq/vixYa+WXsLKt/A9tGPeQr
XLWRjUbWjqn7A9BdFaDoYa6D3LxTHjG2DELpxRpv0pQOWh+mlMbOHISDquzB
588Xoh7ny4stVYfAPyyqVDNtEVLlCTOLPYfAgmX23NFPF8k2E3ID84bgxUJz
DbbNYjSR9lfCg9kheFwQe9NceQmam1W5r3jHMEQpUp1b+pegRcyNDeTkYVDv
O7X9SMlS9Lk2T5jZPwzSHCOe4B89xLB/4uu3XAw8k2UqItdlKK1ig/ZZHzFw
0w7W+5EI6G1lqm1qmhg8ePufa74loDqODX1dmxi+bcmeFlToI3VZ7DmipgTE
0s2RVRwD1LmEMqOMJHDbbrV+q99y1JnufnpRhATyz7N1WKsMEdHLRiUjRwIc
V3+G8pQh6o9cEHWmQwLr+oR3Oa1ExN0flh2mIoVU05v5rQwSukQLC+JbSCH6
6ZVUhoiELN/dHCv1ksJOfdfsJooR+hX6aiSII4VNR+o9deKNkDDDQf1TvhQE
BkxKy5QRChnkHnXqlAKl+k6yk+cKNN7NmK79LgXuqipqW8UKZNJ48WvIchkc
/KLyqpFKRpXXJh37N8mAWTRBik8koxbR4YA2pgwamubGlc+Qke0UUxJxXgbB
9CFuI3agskx+Clu7XJTRid1sckAjGvvv/MNlY9i7RO5WHOy3iS3jlJ9kJB+f
H5OCrebK9b2Cvae+gvAImz6w1N77FxnF0Kx2TmPL3McYQdglFta+P7EvvWzY
F4n9frttuOIFGbQ9O8lOwg6ttuLPw2Zm9ebVYfNfT0qWYcccEuhbzJKRJPFJ
lC02ZfiE6UZsPd3zV+2xGzyc/9yB/eD+duFmbG1HxT3+2JZrauocsAU0/0sp
2GreCTqe2JvvbEjN+r3PWUvxwZYRdXOKsKvVXq/3x6bp1D5rxv6hs8Qr6Pe/
+PQX3di88oIjR7EjlCL6pdgD0fSz4diEKKcPE9jDnh3XT2BXfFk5PYud6eyX
E4X9P+S/9oI=
     "]]}, 
   {Hue[0.6142719099991583, 0.6, 0.6], LineBox[CompressedData["
1:eJwVzms0FHgcxvFBpKHOjIjcZsY4yRDZiy6L31/ZTblsNSxNsYzQIGJThFhs
aFPSKF2YM3tias9SKltTdiqicSd7pkIrlzGlKZcx12XtvxfPec7n3ZfGTtkb
q08gEILxPn/VSbaRx8FffTgcJm8TIdfn2QA1MIzKgWqSeZ77hghYahMVUKmZ
0ClcTd567DBUPSmlGFJLoOat/KbfyxxI8k4/rKZchtQ0npk/8ywM/HuIO0O5
CeWnfnpnK6uG5UNjTh8pQqDLb1cQc28Bv4OX+oHSDmk5fHn/6GOov1UylOQ2
CI8sxl/3cvogHvovy9PGIYrVJk+7+xKSpc7j9+rfQ3pUeEGU1z9ApBU6jWye
AdPskcyA0DE4S+pk8KMUEFlQ4XPIVArsoZDHBl0quHJeMNPXKIPU1kJ2ipMO
HiwjM56Rp6DhiCnTauci3JKtn0ojy4GflTi1MYyA/Ly+bdlM/AT5vIU983I9
5O9fKKi8Pw2Egbeo6YQBco69yBVfm4F1R+MyQhiGKKasuPzugVmYUF76weQv
I3TepZVuqzcHu6QJOeWpxoi2cn4vsWYOgifKXOztiehM5chh4y0KmGph54nr
TFDihZ2t9Q8U4EaW2G3/cSUKuxNySrF5HoigjB5WrEJ+JL21K27Mw46PLLVD
KAmpBokfJi2V8Kr5oB7LlYxIDk+7ZnOU0Fj8LJKqJKO4HVZmf0uUEGeY/ran
xwyNK+8mT29UQUxaVqPpldVINf54viFXBe7xLj2B0eZIomMkBolV0GvmapK+
xQJpyJMJYWZqeFSff9XVYA0SjhZqWEw1ZOkxdne9WYMcbkyHNFWogTh8wj/5
niUqFTfnWQ+oQVpL4/KyrZB6n5/ac4UGuOvXLhOGrkX6B5afFCENlF2Jex5N
tUYTTS6jklQNsLgRPaYya/SoNeh+BU8DGr8aLU9kg2p9pSaiHg2MS7dlNBfZ
ooJOp8VyjQZ+8/aw6Y62QzuKm84L6Vqo+yWdHL/BHoUzj/dY7tJCUWhMgIHS
Hqm+GHMyStbC18P8m0XdFAR5viSvC1qodL5a1x1ARcNGNgLOPS3kPimtDBBS
0ba55UbtEi0E2YTWdDjS0PsjLFdjtRZ8k5/vJ5fQEDHhq++GVuuAZ8t27FLS
UG2UPmHAQweOLYKLwfsd0MNrfMPfA3VQtqGZ8ULkgBhOKQ81sTqIUyzrb2fQ
kTPX5FNEng7YDXPUknN0JHEXMFdV6kDcYVzQtEBHr2M53JbbOkjaPlrWjt0S
cyezDZvUJKyWYF+XqSPbscPrEh7OYCf8nOHciy071zXruEhHjYvfiwaxjULL
okqxzSnhslns7SOWPpH/0ZHpl92e1AYdTIbNBCRi/7lQa0PHPt0n3peB7RqU
Q1iH/eJpZno5dnk+pcMFm3196I82bALaGrEJO4/Ds3FfoqP1Ju35wdiOY8ed
vbAr/BLj92CLWbs37cT2NCQGhmCTAvWYMdhutt4WLGyeW8zpS9h3+JmCWOxt
gm8qr2NnWBDOHPrcRzGvbcC+QSo4kojtRm592onNqjq5JfVzX0lV7ytsuZva
7ij2Mf1jb6TYBP8k/ePY1lnBH+awq9+9mczEFinWaZewu0iBndnY/wPkzVgG

     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 10}, {0., 1.999999884512839}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.41597027765625*^9, 3.41598327496875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Xmax", "=", 
  RowBox[{"FindRoot", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{"X", "[", "tb", "]"}], ",", "tb"}], "]"}], "\[Equal]", "0"}], 
    ",", 
    RowBox[{"{", 
     RowBox[{"tb", ",", "3"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.41597037028125*^9, 3.415970370453125*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"tb", "\[Rule]", "3.4016541664573254`"}], "}"}]], "Output",
 CellChangeTimes->{3.41597029134375*^9, 3.41598327859375*^9}]
}, Open  ]]
},
WindowSize->{615, 559},
WindowMargins->{{166, Automatic}, {Automatic, 25}},
PrintingCopies->1,
PrintingPageRange->{Automatic, Automatic},
FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (June 19, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[568, 21, 183, 5, 52, "Input"],
Cell[CellGroupData[{
Cell[776, 30, 1555, 44, 112, "Input"],
Cell[2334, 76, 883, 29, 50, "Output"]
}, Open  ]],
Cell[3232, 108, 579, 18, 52, "Input"],
Cell[CellGroupData[{
Cell[3836, 130, 373, 10, 31, "Input"],
Cell[4212, 142, 4211, 77, 243, "Output"]
}, Open  ]],
Cell[8438, 222, 795, 22, 112, "Input"],
Cell[CellGroupData[{
Cell[9258, 248, 374, 11, 31, "Input"],
Cell[9635, 261, 15261, 262, 245, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24933, 528, 358, 11, 31, "Input"],
Cell[25294, 541, 160, 3, 30, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)