(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 7.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 64425, 1215] NotebookOptionsPosition[ 63808, 1190] NotebookOutlinePosition[ 64241, 1208] CellTagsIndexPosition[ 64198, 1205] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[{ RowBox[{ RowBox[{"ClearAll", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Needs", "[", "\"\\"", "]"}], ";"}]}], "Input", CellChangeTimes->{{3.4516653498966*^9, 3.4516653506006002`*^9}}], Cell[BoxData[ RowBox[{" ", RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Problem", " ", "10.6", ".9", " ", "in", " ", "Boyce"}], " ", "&"}], " ", "DiPrima"}], ",", " ", RowBox[{ "Elementary", " ", "Differential", " ", "Equations", " ", "and", " ", "Boundary", " ", "Value", " ", "Problems"}], ",", " ", RowBox[{"8", "th", " ", RowBox[{"Ed", ".", "\[IndentingNewLine]", "\[IndentingNewLine]", "We"}], " ", "would", " ", "like", " ", "to", " ", "plot", " ", "the", " ", "temperature", " ", "distribution", " ", "as", " ", "stated", " ", RowBox[{"below", ".", " ", "Note"}], " ", "that", " ", "w"}], ",", " ", RowBox[{"as", " ", "defined"}], ",", " ", RowBox[{ "is", " ", "indeed", " ", "the", " ", "nth", " ", "partial", " ", "sum", " ", "of", " ", "the", " ", "transient", " ", "temperature", " ", RowBox[{"distribution", ".", " ", "The"}], " ", "computer", " ", "cannot", " ", "handle", " ", "an", " ", "infinite", " ", "sum", " ", RowBox[{"(", "yet", ")"}]}], ",", " ", RowBox[{ "so", " ", "we", " ", "have", " ", "to", " ", "resort", " ", "to", " ", "the", " ", "finite", " ", "partial", " ", RowBox[{ "sum", ".", " ", "\[IndentingNewLine]", "\[IndentingNewLine]", "Nevertheless"}]}], ",", " ", RowBox[{ "this", " ", "is", " ", "not", " ", "so", " ", "bad", " ", "in", " ", "view", " ", "of", " ", "the", " ", "rapid", " ", "decay", " ", "of", " ", "the", " ", "exponential", " ", RowBox[{"terms", ".", " ", "So"}], " ", "what", " ", "we", " ", "can", " ", "and", " ", "will", " ", "do", " ", "is", " ", "to", " ", "take", " ", "n", " ", "sufficiently", " ", "large", " ", "until", " ", "the", " ", "partial", " ", "sum", " ", "does", " ", "not", " ", "change", " ", "noticeably", " ", "with", " ", "any", " ", "additional", " ", RowBox[{"terms", "."}]}]}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", "25"}], ";", " ", RowBox[{"(*", " ", RowBox[{"Initial", " ", "temperature", " ", "distribution"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"v", "[", "x_", "]"}], ":=", RowBox[{"3", "x"}]}], ";", " ", RowBox[{"(*", " ", RowBox[{"Steady", "-", RowBox[{"state", " ", "temperature", " ", "distribution"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"w", "[", RowBox[{"x_", ",", "t_", ",", "n_"}], "]"}], ":=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ FractionBox[ RowBox[{"10", RowBox[{"(", RowBox[{"5", "+", RowBox[{"7", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "k"]}]}], ")"}]}], RowBox[{"k", " ", "\[Pi]"}]], " ", RowBox[{"Exp", "[", FractionBox[ RowBox[{ RowBox[{"-", "0.86"}], " ", SuperscriptBox["\[Pi]", "2"], SuperscriptBox["k", "2"], " ", "t", " "}], "400"], "]"}], RowBox[{"Sin", "[", FractionBox[ RowBox[{"k", " ", "\[Pi]", " ", "x"}], "20"], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";", " ", RowBox[{"(*", " ", RowBox[{"Transient", " ", "temperature", " ", "distribution"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"u", "[", RowBox[{"x_", ",", "t_", ",", "n_"}], "]"}], ":=", RowBox[{ RowBox[{"v", "[", "x", "]"}], "+", RowBox[{"w", "[", RowBox[{"x", ",", "t", ",", "n"}], "]"}]}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"Overall", " ", "temperature", " ", "distribution"}], " ", "*)"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.4516633265685997`*^9, 3.4516638203866*^9}, { 3.4516638674674*^9, 3.4516639595074*^9}, {3.4516640177784*^9, 3.4516640909604*^9}, {3.4516641228824*^9, 3.4516642259474*^9}, 3.4516642588642*^9, {3.4516642909846*^9, 3.451664292061*^9}, { 3.4516643362265997`*^9, 3.4516644272925997`*^9}, {3.4516644687576*^9, 3.4516645063775997`*^9}, {3.4516646182506*^9, 3.4516646302096*^9}, { 3.4516646645986*^9, 3.4516647197866*^9}, {3.4516647664736*^9, 3.4516647677776003`*^9}, {3.4516648271756*^9, 3.4516648274686003`*^9}, { 3.4516649430966*^9, 3.4516650248115997`*^9}, {3.4516650698986*^9, 3.4516651055615997`*^9}, {3.4516652205646*^9, 3.4516656582616*^9}, { 3.4516656975566*^9, 3.4516657139776*^9}, {3.4516657858445997`*^9, 3.4516659548366003`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ "Plot", " ", "the", " ", "temperature", " ", "distribution", " ", "for", " ", "several", " ", "values", " ", "of", " ", "t"}], ",", " ", RowBox[{ RowBox[{"where", " ", "t"}], "=", RowBox[{ RowBox[{"0", " ", "and", " ", "t"}], "=", RowBox[{ RowBox[{ "\[Infinity]", " ", "correspond", " ", "to", " ", "the", " ", "initial", " ", "and", " ", "steady"}], "-", RowBox[{"state", " ", "temperature", " ", "distributions", " ", RowBox[{"respectively", ".", " ", "We"}], " ", "take", " ", "1000", " ", "terms", " ", "in", " ", "the", " ", "partial", " ", RowBox[{"sums", "."}]}]}]}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"u", "[", RowBox[{"x", ",", "1", ",", "1000"}], "]"}], ",", RowBox[{"u", "[", RowBox[{"x", ",", "5", ",", "1000"}], "]"}], ",", RowBox[{"u", "[", RowBox[{"x", ",", "10", ",", "1000"}], "]"}], ",", RowBox[{"u", "[", RowBox[{"x", ",", "20", ",", "1000"}], "]"}], ",", RowBox[{"u", "[", RowBox[{"x", ",", "50", ",", "1000"}], "]"}], ",", RowBox[{"u", "[", RowBox[{"x", ",", "100", ",", "1000"}], "]"}], ",", RowBox[{"v", "[", "x", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "20"}], "}"}], ",", RowBox[{"PlotLegend", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"LegendPosition", "\[Rule]", RowBox[{"{", RowBox[{"1.1", ",", RowBox[{"-", "0.4"}]}], "}"}]}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"x", ",", RowBox[{"u", "[", RowBox[{"x", ",", "t"}], "]"}]}], "}"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.4516659736876*^9, 3.4516661451085997`*^9}}], Cell[BoxData[ GraphicsBox[{InsetBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAwAWIQPbcuic0wZbYdAxhYOrDffqT+Vv6kPYy/8NT8wtfy N+H8des7b+fovYLz0+0vznxT9BnOz3uq+XjLup9wPpdii/p9CwYHGL9P4LTW wgRmOD/pdsh+5jNscH7h0ZakfHUuOH9jAU+whCcvnL+wOvuVQbgAnN80/0/g lzeCcD7D5QcOe6qE4Xy1krSKEC1ROP/J1+lh3HvF4Hyvp1m1kwol4Hy/JxO0 5eSk4PxXh5MaTqyVhvP1BK/JOsfLwvlc9l8T73yWg/Pd30Z9VwpVgPNvHEph jNJRhPO3dhyJU/iK4Kexlj44d04Jzk8uqt7KM0sZztdP1z7nk6gC558X0uEu tVSF83eva5qtw6wG51czagWcuYvgc92p8sjbog7nP12mOGV+jQacP0VDkmVn qCacP2FW2vFEBS04P2pK7Dme5wj+D5elP+fv04bzHz91qjjUrgPnL7I1lD6b qAvnr20tFUzX1YPz20OTvZm/IvimdxaubD+rD+fP0Jy99qy3AZxff6B3hvdO BN9XOnTpKRVDON8x73i0YCeCP18mSeXMVwRf5fDyaX7RRgj/6R7SurQPwU/7 zHLxpJYxnJ+08ZNCZz+CP+EST++R4wj+vs9qP///R/ABT6LMpw== "]]}, {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData[" 1:eJwl13c8ld8fAHBb9t4zhHsv173mtbofylb5CskqIyE0lVXJTpQkREZF2UlI kpAQEiUrpVDJlpGZ33n87j/39X4985zPOM/Z6XbS+hgdDQ0NiZ6GBvvPvOTG RPbI2F1tHebZyDK4u+mjtOUh6SDqYwGPrNiRZ9St5roIaemr1IagzRN7Rlqo mfUJUozSd6h6bPLjY9/7qL76AX5/pQqoAd/GWZq//aJ+XPdKnpN6TuW14aYN GvpLZf48ojAt9ZZ6d3+Lr3c7M9xryz49KTVA9RzzdOKOFYLFtEr8cPwAtSVQ G8c4KQTGx9tHP6wOUCtL1kY/7BOGKfq/tjUfB6k8NN9al3lFgKK/X+dqzBD1 PukInVWGKHQ93qBTmB2meofze7Y+kIDLbUrm5COj1MOBNB+3WnZC6eOrn32J E9QPRRLtfM4KMME7EW/uOkH99dFX+0OkAiicN9+tmDxBVd3dduJMsQLk6LHd G12doPrc20w8tK4ASW/jPR3eTFLZ27vlnqQqwvnRG/MmTtNUz6+cxKg2HGSz tUfwGM1RC7W8u38KKcFu/RCnMJc5al+Ux6v7ukow5E/QmL0wR62IEF3UO6IE wh+u/ewonKMWFXN8Z3uoBDfTLM1iueepZTjrUh5VZYjY1cm59XmeyrAp97pk DxGOU7vvTJ1ZoKrvUEl1kycBzf3lms/XFqh749KFWzRIkMYgPtSWu0Cd+/v9 jqgRCVrfekoW9C5Qlfxkb153J4Gizcb9YzqLVMMZT57CbBKMeykUf6Vdohrx +S2V8JPBJ+liXVfiMrVwpJ0yPk8GuqX7w68KlqnHm+yECVtkSD/USvO4cZnq aLC56cSuCm3ifHsSFpepYRs3xhPkVYHwKL/FzP4vVfzobJacgypMvfjY1Si1 QqVhlNbH1amC/w/caEXpKnXUN2G9IkgNvrkM7Gh4u0ptqg8t/xilBgf7Y4nv xlapWvvzjYZvqgGl/VfQD9E16tdEXfzLAjWgf5LHLRizRnXxUxK53a8GaaE7 d184sk59sPU35pWqOjTwidzR5t6k0laO0R4aUAf1hNY6I8ImlbN5KV5xVB0e MgWO/We8SbVrEkocn1KH+NVeFZ/QTaokQ5yuOo0G2A0nN6ePb1J5xe72r+/S gIlC7sX1+n9Umg9+/A7+GsC6M1JhmEIDBUcIbC1/NKBV76bKJSMaWIt6okK/ pgHR9llaEtY0YF5z4juZVhPoEqtNHE/QgKgYKBzn0oS1f1PH+zJpYOqm/KAq QRMmh2zz39PRAtFFZ9LxqCYUrriV+XPRQtDFX4MtnprgxX+qmkOcFmJrtE0U /DRhzCKu1UKDFniv1X+oD9KEoZq68ZbjtJButMf1aJImdKQp4Oo7aKH/Y0i7 S4MmxFWok48M0MKIQWwFS4smmHYZaP/7QQv3m+W5Czo0oYnZyUxvixYiHeid 3/RpQu35RO9qMh1Ubw3/C5jWhBKb1YKyFDrI5o6cbxLUguvc7fh7R+mBNZDr TZSrFjzXkqjc708Ppgea4rU9tWDM5SR1I4QeViSamUd8tEC3hM/mUCo9dJ74 6cFzTgvGzZwucnTSwwuSTO9klBbsiZh+H6TLAJSYfNOcR1rgX0h1UDBjACgt 0c8v0oL07ptjPXYM8JvXRvDhYy2Yk9JcVTnDAOcnWV5GPNOCrNpLMj/zGUCl 8MvP1mYtWFniCrAWZAT6r1kVcaNaICvhtrUlywjLJZPhqz+1YP/eiqslZEY4 WJtkf2RCC/KS7LN27GOEbp+2o9zzWmCtcq+lLoIRVO13d7P804ISL1VRwjwj pC5JOHsLUsDts80r+g4mKJTqa7IyoABrxne/0wNMcECwRaVqDwXKHfzFh38y QX0ScZnfmAL0gzFBNbTMMOKW+b7OnAK5/TVqp7WYIcnZ2fTNQQr8/CSd//U+ Mxjelisp8KDA9dsldpZlzNARdyy4yJMCmrY6jDUvmYHGFSIeeVEgpueg2+1+ Zvi3KXHxui8FFD9Gi1ty7oAni6nhIuco4NM1lfg8aAd8nWcQVwmnAG9iEFUh ZgfYBanXDEZQoOYA00xy8g4onXU8eiWKAmzvpSxOPd4BwazTi69iKVD8zppR 4ccOMHVRTqC/QYGZtuqgZCsWeDAsUlCaToGUOCNFOhcW4Mb9NOG+S4Hd5h96 T55ggUJnukd+mRS48XZSzSKaBT4fjekWy6EAqVVyhraWBao1N+hM8ihw+k2k 20kFVjijPzf3vZQCkmPGTMtqrNBVXi04/5gC7XQshaHACnNJtcKbZRTYBQnz Vw+zQtnh2i62pxQYqLkdlnuNFYIDnccZnlHAoOxh1sAsKwR+szPyrUPv2+ll eHSDFWKZ3F9YvqJAxjT+588dbBD60DISX0+BJfxj5cWdbND533n81wYKFOQ9 q+W0YYOUcLsY+TcU4MloHdxTzQZvtcOsDNopUPc87lJbExs4nLwpvIZ8ot9S 5r9uNmgadbhb1kGBNwLd3i4TbDDIcHlWsJMCQYkDK4Hi7GDsI+L7tosC36Mm BEvD2CGL7tqntk8ovrnFNeoJ7CBPlhRz66WA7mt/lxd32CHSyi7wL/JtmoW8 1nJ2EF6guyHeTwGzkHX10TF2qNjqeWU1SIEnp9gPCptxgIe4U+axrxToSOcL KrHjgEtnZ/knkX82iWYbenDAOYuGYv9hCoiK4CZ9L3PAgdpMm1PfKBDZYBTR UMkBhMeu8i4jFLDjvfzUR4YTLIfsi8Z/UOCUXvTAlgonTCnzvrX+SYE4z4St ZH1O0M055vIC+VVNhsUre07wimumj/2F8s+9epTvBieY5y01cP2mwNrTeb6X 65xwsMBt15dJCvB/XdG2ZuGCYA7SX9IUBYg7aI7+EuSCmmr3uAhkdyfOYh5V Lsgsr2XcNY3Gw0DY6+nFBWp/+hoPz6DxEFV91gO44N9UJ28uMs1h7cTECC44 /CFo7zSyRonJUE0WF5yapDiFzlIgy9bjHNcnLlia5G5OmKNA9eUT6bkjXJDE UxT/HvljwZl67TkusFm9YM09TwGGy8BUzsgNM5eyfl9Hpnzcbz0kzQ0O2fF5 YX8ocC/kxATpEDc8lo4mai+ifK5nWYlx5oZBgga/N3I9Qz7jsDs3rAffM05D /pYwJp1wihserghmLCJL5jgf+n2VG8aU6gzzlihQOrbuAYncYPS4q/M9sj4u /UxqCjdoXq19vorsVN6bYPSAG2p2lldYLFMgvelA071abgjNexI0joxnmele aeQG0zF7Lc6/FHi+L374wFtucHFy9FBD7u9tXdv8xA3n46n8ociCvw3IDrPc cJTtCw3zCgWSONSzeGV4YPh+Wh7DKgVkrD8UeSvyQBibrpYM8pOUU8/riTyg PvbdhorcJVXS46/LAyBarBOIzKkqz9ZuwwOWJ3cNjSFnnW8SlnHkASYi3do/ ZOUXbvJBrjxw96xBmfAaBSz3Zhso+POAo/OLSXPkODvhwIgYHrgUeqy5EFk0 oypqMIEH2i7A+wbkgmGbW+RkHtj/3+OQfuRWr5ulwzk8ULo3oYlhnQJMIaw/ dGt4oL5cX+cwcnj2xn+LUzwQaZ/T8gfZilR9mrDAA769/MYMG2j+G87edFvl Ab1VpUsCyDUjE11djLxAl/+flBbyn10DB0okeeHb5DJcQK6vSj45JscLncn4 /Gjk6yZWN8QIvEA8Wd91Gxnv3dJ5VYsXTohWeT9Fdiuu3OdpxQtPTqZ9nEQm 6Z/2y7TjBc+ERpdV5H/vlBJ6nHjh/hHTcqZNFM/ZBx2G3rzQJlZSKY38QTXJ QiqcFwza8XutkQ2e+5v1P+UFiZxGXDEypznem6uGF3x9/0utQh4a/BFrXM8L a44yA/XIgRtOrRUdvGB4V3moB7mMamFy8wcvZKZ+nV9DvtTFdLx1khds/kXw MfxD8XBtjN6a54VzM+c5OZDHw7Wb/f7xwo0n95IkkaWbFYzMhfgg6Y74GBV5 xm7U44oEH4zjD3wzQa79lRVZLcsHfwqtaw4g27MINsmT+KD15jjLEeRES4Y9 9GZ8MHa2aFcoMs3Hb1AbzAc/H4fUliFH/q67F3yFD0y/O9o8Q2ahyaTTjuWD Dxr0714i8yofbqq8zQfSCW1ubci7YrpNHpfxgdfWC+IIcmHm43y/Z+j8Do/P v5CJFQksSnV8ULw65juNTPlu1p7fzge89vtgBdlct3H//Z980LH3SiX7FgX1 /ZzHR6f5AE9TdZsH+aDXJW6pRT6I97R1EUR2uq3zIYOWH+BlSKEUsv9sue1t cX5QyrurTUa+9eCBU6w1P9QwJMdYIQvXXHlpfJgfqngrxG2Q73YdkWQ8yg+x BrI5h5Afbop9u+LHDzlW6mddkKsPJbuHxPKDVdoL6xPIev5nmrRvoOs/rrj5 IzdEWu1auc0P2qXT7qeR256w/zr3gB/YE0S1LyAPsUX5+NfxA8M7Bko48lEZ 93alN/zwMuLap0jkHxQDpcl29L46Y8dikGeObU4fH+CH5Vz6o/HItPUBp10X +SH8c0z9bWT5c56BNngB2K/1zv0hsrLO8MFskgC8tNXH5SOr09irTGgKwLyK 8s8CZMN4s5+X9whA4KCcSQmyS66STZGTACQ1Xyp4inzMJ09l2U0A4hk3iJXI viRJNgNvAfB8KVpShRxcy9XYGyAAdm6Nt54jp/T8UaG7IQCHju3lfIWcmX6C bd9tAThn5ehUj5x7dOxnaoYA3NnHk9uAXD71KVM5XwD2hryXbsLiyfCc7XCD ANSeLf7QisyocfnX4wUBwEvKqXQjs6//bVxbFQCfyAnZD8i8DaeyjGgEIXB+ hu8jsvQ+N9vP7IIQ8oP1Zw8Wj2NGr5nkBWGc+tumH3kPoS7rPyVBOFe4sWsA 2XxeM/iuqiCMRi//wWx/UZGsShWEWxyTYZ+Rz91my3a2F4Q+5lH/r8ghjpHB +S6CULeLsnMYOXznpu2ChyBwE5m6MCeWzLBfPS0IDPusZL8jF7/pDq6IE4Sw u+73R5HHllLt2F4KQmNfD9c48n0DtbNfXguC7ExDBuYjCZ03HrcJApPifbnf yINyjG8P9guC8Z5Q5Qnk7oNndO8uCEJkrInEFPL1bA57/zVBSD0VloTZcjL/ HNAKQab0LsZp5Nbw4ZIxTiFYqxofwVz3xFJaGS8Et+beXplFDt38pbdFEoJv Bj2jmLXNIg53awnB9MEne+aQK749TwowEoKFK7ybmAu5FBjrjgqB6cOiQ3+Q vRwbdyYeFwLfA7EFmHc9ct7t5i8El8/eWMWcszv5AlOoEDxd35u8gJzqRzux P1UIrhbbVy4i2zy/y7QzSwjMDVNWMfMyUmQXcoWAZtpUbwkb311/p9RyIRC2 VnmJObL9c+fwOyGYSR4tWcbyV+jC5JMeIRiwLP2JecuNd0fkZyE456ss+RfL zzVTA8XfQpB7/dhVzKdwVU9PMQjD7NzF/1aQiQH/dRmyCUPctZIwzJP1U1P8 vMJwXb2lFLOnvaz8cylhSF7qYl5Fdo5JTKPVFYZI0e8lmEU/Eio/GghD2BrD J8z9ki3deabC4GoK65htqjZZze2EwaeEx2gNy7cfPheTTgtDF66gE7PxRdni vYHCYNwbOoPZUGBocPmSMJxXv82xjqxjtI/iGC8MB9xzzTDj81QWZB8Jw1OP wueY5fXHd/aWCEOrEG8PZplPOVaxFcLwjv/LNGZRRt7SqQZhWH5ZKLWBzHZs 0atySBhORVwJxbxjszj1+KgwhDQdTcLMcPtYs8iEMEhIv3yEeaOpV/bSX2Fo 7Fjpwjwl9/yrMa8I2Am3SWwij9ee5lgVFoGmum8qmMds8HpFUiJgsTvOAPNQ ZMYdLmV0/u1sd8wdYxdt+k1EIMFW4AHm1lDNiLj9InBogKEccxP/7BM9WxEo vXSnHnPt3qNc99xEQN27Zghzca5hm/dFEbj/g4fnH3K+3vqKWKQIhM+7SmDO 7Xmq0BknApEXPHGY7zLsilJNE4H2/luAOcGDGdbLRcAfX3oCc9zGK/+S5yLg FdsVgDk6OTDzSL0ImOlVXMZ8qen32ut3IpDs+yYJs79cR2X8uAho39WowuxT Gzm2e1YEzJOu1mH2tNHnm18SgZvZBc2YXSJLT9nSi0LUR+tezPvHEgmSkqIg OeO9gLmDMNbjJCcKo2ltq5gtzmpdysCLwsgXRpotZFO6r13CWqIwGMrFjtlQ mnCez0oUdjFHyWCuP35JytpOFOLudilgpj7ubk10EgWriQ0lzHq7A8U4vUWh 6PSaJmYNpzf1O8JFoeRphhnmigfCPiaxohBRtLUPs+rkCb7o66JgEmFmjZkY zOtJnyEKsbtuOmBWTDvC9u+pKFx5u+WN+eFweYVejSg0+d73w7xLgcklpF4U ZIxVTmOWqSouW+kQBdEbLIGYxXtWbRd+iILvzXeRmNPF9m2Rp0TBk/t9DGYR 95z8U39EgdGnLg6z4B/j9el/otBh5ZWImZs7OWdcSAzw4wvpmK8f+mWmICkG 4aYnMzFzZOssHJMTg8qbn7MxsxK/G42SxMBwd2wuZnpL4uQXMzFQV9MtwRx+ 60qyuJUYJImZPMZM87lH39FODMZCjJ9g3vAOSex3E4OYNulKzMsxrRofQ8Rg 8z+LWszn3osN84SLQdWztZeYFwRPxlrFigHlefYrzHN5Ap/fJYuBdVR7I+aJ 125hrSViYPW4rBWz1M1+n+sVYlDDTG7DbOOy39bmhRjQGz9qx1y3oo3/1ioG i4HnOzEnKfP0/B0Vg9jwhx8xt6xF172cEENxGOrZft+WjfyIeTEoZ2Drxezp Nn6Ra0sM/EMP9GPWTX2loCAqDh5PLw1hPuWhwTstLQ6nJwK/bMeTXLRRriAO Ied8v27Pd0dK924NcagiwTfMYzT+IXZW4lDdlzW6Ha/O0WPih8ShX89rDPP+ jMNWI87ioEZR+oG5WsNol/8JcWgKy/2JOd5H/H1UtDh08Tj8xtyglfTcIkEc GMbXt73MsCOXJ1kczjrdmcB8NHshMPMeuj65ZRKzek+bTGWtOGxaLE5j9r4H HCGvxcFQ5vwM5iz/qr/QJg7//Ba3vYPlfkdHnzhMNP2cxfxFP+j82B9x+DOe O4+Zl232aOGqODz9xf5nu976PSxO0UgAF9uZbZefsZLe4JCAZXb1BczRjxTa +HASYLGVtrgdXwO+7GxNCfT9qL+E2WHo31nCXgm4w9+/bSJPr8SeIxJgq7a0 jDmT9e+vXyckgDH35F/M7AzC5fGBEnCzdXTbE8uHjXtvSoDkiZoVzIfngrlD siTg4iWJVcytvzMGpYokoOdUyLbzhr74ezdJgMBfxbXtfH4vRf/0iwT8+dW0 7aONrqkbyxLw7p/VOubdlQ8IxtySUNvRuW3x/B+vbuAkwbeWuoF5LV3BZsBQ EtIF8rbdn+A9LuMkCR40NJuYq8KKQn0DJEE/9r9t3zo7zV11XRIystK3vf/w aW2zBklQeCv4b7v+qEuuQwuSoO4YvO3JY7venHeVgv3KfFuYO+JtFXneS4HW v1Pb7h1ofGMrKQ1m6oXbNpl2+CtjKw0xQx3b5u4/ElpXLw3en6a33d/oQeug tBOmK1a33ZzHT3qZuBNUqja3XRnb5CK9tBPuqmxtm7PlbvZfVxmoevl/ezIG fOvslIGgyf97THelzU9dFpxW/2/3MyGV7OmyIPPv/37r+7GheFMWdGiwnzao HCd0WrrKQS7d/71VWzR19J0cJLD83+95ldgCtHdBgNT//ebooY9WWbtA0Pn/ flEanqFELw+mHLTbFrPvDQg9JQ9nd9NvO4QWb9XxRR4cX7Fsu9Hf2lLCTAG+ bYptm3Uo2NS/QgE0Pfdvu+G6R0bwTwUQLbi47UCD/TPRwopw3rp128RFLYNb 5oowkKlPi/nHw53J2aGKwPN1cduiqdKNjamK8K72Mh1mqxipuR/liuD2XoUe 84ktyZgL9YrAV5W27egLkpIsnYpAV8bJgPnerERl+mdFSLK6te3a4xKWSr8V 4c9hRUbMbbKZQkuzivAkJ2jbfcPioy+XFcG+8f22/xwSDz7AgIPR59eYMNPw 3zUSZsNBHeHPtjm6xHi+8+DgW5kLM2ZFU7H8M1I46HGx2IFZkyHjrK48DnTM Ora9p16UyqCMg9A2GxbMLhTR3ts6OFCxvsSK+ZjgoO6aPg4K5Tu37bt4556L AQ7sTKXZMAeVifgpmOLgcmX7tpMVRRie2+KgWMqAA7OTi/yjUXsc9EdkbVsu Wc2c0wkHFM9/267Y2pfo7oaD4V9vODH39IaLc57EQWRzADfmu+yJryhncGBA +3vbHoaZbu4BOGA1P8KDebHkWX51CA687Gx5MfNFTam7x+LgQJE3P+bBmtW+ hGs4EM/9u+37c0wh1ddx0Hv4qgBmVaedDRy3cTDnXC2I2VrNbl/1PTRfaSYi 2/H2dp8byUXvv3d52yNZp25x5OOALrxAFPMZ1msDbqU4uCUvKY456furYxwv cOBwZY8UZgehdzsodTgIFhWVxiyzb7DIrQEHM0bL2y6vXpx/1oKDrtFXMpg/ 3MBdcutB8+l4Vx5z+hvNnQl9ONhx/4ECZrf1PU3PBnEgX/5EcTsfPF1YOb6j 8X0ZwWPm2X0r5dk0DtwcslQw95/N0R6Zw4H96DcS5pyCkiH2RRyslRBUMZME WmXc1nDAOTiovp3PUxul7Mx4WLqZp4NZWIbVWosVD0pyJD3M3w4JLbly4KH4 ZZM+5lOvybrP+PAQSs9hgDkx3bPFVRoP3qI7TTFfOB9+NlQWD7/DVs2288s6 SypVHg9aKV8sMCux9l7oUMLD2uTbA5jfBhkpamnjIf2Crj3mMlvXnv/08BB0 McgBcxr5YpgvFQ9dGW+cMHv+rui/Z4QH/qCrrpjpDstdZbfGw8/otycw/1YH DQVbPFzhD/fH3MXt9N3AHg+ZmRanMWe33tK+4IKHm3p8FzDrUegnvvvgodAr LAKzLL9UyoYfHuYudkRv95M5HUOh03h4Sasctz2/j86kW17Ag+tu5ZuYA4RG zJ9F4KH6GiVnO/8XNpe7o/HASqeZi3nve5EHU1fxoMhgmY+ZN+a/9Z2JeMhf eF2GuXS5vij+Lpo/5cVGzLc/DB16lI2He+nNLZhDS1foG+/j4VxwVQdmC0+S 0998PNSZzvdiHv+Uze5WiYepvz+ntvvrkxfVodV4KK2u/oO5KqHPI/UFHtLq S1YwRxpxvexowEP0MAMjLfLOykt+Wp146Jm6JIV5x810EetudH/HcHnMc75V b3x78ODz77Ey5jq5GYn7g3hYKU/Qw+yQ7NzJ/guN/72/E2bxp6xiJybw0Dp2 5xjm4e5nx99O46HsDM1JzB5cvLTRi3iQexsVjtk/rllti5YAD9YzijGTCs6G OTMSwFr73TPMCy3S717sIEBmkPFrzIGMIZ6BXAT4sC70GXN4mMqdeXECiMr4 cNJh85099OOANAHWLDjFMTPXXVUtlSVA9BUWPOb49dF2HzwB5nw4TDCnnE/7 N6pFgEjv2CjM9reNLAx1CeD8YWcKZrGKP6k5uwlw3ljuEeaceUuysxF6/n7/ NswFvrQevdYEwDEdFaTH+uW10jJ1OwKU3ojDYyYWOm4mHUb3e6hGxVz+qzLl wFECKHpz+GCudfN52+pHgLR4zWbMl64ICSqcJoC3XfFXzAY5TW5R5wiwy7bm L+bmL5IbBiEEMFEsITBg+W3/kfgilgB5YnYZmJMuhIWIxBNgZGOxGrNtinLr hRsEOJVt3od58GOMq3oKml8egiAj8th+veSSBwQY3KOXifmh3+9vbI8IMKPM 3oDZOz5F2aeQABuKz35gnnk71yz/hAD0nuVkJuSVvXmr2XUEgCddPZhDX2RH NDUQ4PUziU3MNKrpHL+bCBCXsV+eGYuH1I2dqu0EGDM8GYJZcDXQrKmPANSL FPIOrP+dPPtxfJAA+zVIrpglfvo5c3wlQMecehJmuY9up+3GCBBBG/oXs1qJ 5Z3xOQLwNue+Z8HyXdZElmORAH8E83ewIuukG5SQ/6L8iR03xGwYo9kQvEkA dZzuC8xWrtK/2VmVoEzx1ws2LB8FFilkWSWQCOig58T67bWZRlt5JRh8QWOD OYDut2UwTgnE3k7mYQ6d/XL0tYoSrNGzHuBCvva2JdZWTwlWzE8840bmhEbe YKoS+M3aC/Jg8amqvZtlqAQq180uYE5/8KTsl6kSiDg6U3mR8y9m9AfZKoFF 48XffFi/XLztlmWvBFrnyw7zY/3RJ3Gq0VEJEsp2d2B+diiKht1NCZTZs6oF sPwgn1TM8leCgostj4WQR38YBjbGKIFh3lVZcWz82Z338deUIILyvQNzjr3D u6TrSsClwRAsgfXr9tMy7reVgE5na1gSy5eynA76B0povyT3ZSeyto/S3xMP leDOPZVHMlh/lq3e2VOgBAsjVQGyyHYp78/nlimB8a106V3Y+hbyT9qoTgm8 ki+UKSKTNeIsShqUgMF25z0ctn7MCJwXeKMEV0oFUvHI+12V23+0K8EN7QO3 lJDbjJ0CogeUgBev10VCbuSpeduyqAQdlOwLOlj/ajdaVFlRggevjrXrIodF dkumrSvBiZ1h8vrIu/+On/WiUwauR2YLVOSaISFJFm5lSCVenTRCFkl5YHqa TxlAZs8lE6y/HFA5OyCoDAvtKSJmyJqNxq0FEspwSOCljyVWv48CzpgT0Pme PKEHsfXXlTaznKgMuQ7Z9rbY+iia0CKqqgyK60A9hNV/Qq74JEUZAs0TCI7I hWc+Nl8zVoayvTLR7sj39cli71yV4ZnmwYDz2Pj2s0aseygDZ+nMt0DkkSOj EzgvZdD/E2Ufgq1P4bdrov3R8cMxvmHIuc2rhyEE3X9ZnngNuanvQ4P/JWU4 0Du5lYDV93gRLvOKMgRHRg4nYvXD5rK6GqMMHUdIb1OQ8w40pj1NRud7Pdr3 AMufoxk0I6nK0D1Nuf0Q+efpc17cGcow86h6qgBZPlme4ndPGWyO53WUYf2i P65PvlQZ9vP62L/C8tf1oGB6izLcPnr6xzBy6xmlS61tyiB7Os5qDFuvIhh/ Lr9ThmPDj7vGkRUfPqs82KMMHv6pPH+wfjohZsvxXRnGFM/mMNKi+K8v1uqO KUPdwKU6VuQJ9k45n1/KkMJeusiFjFcJW2yeVobwz9JFosiFZ8duha0pg9CW oyUZuz7y5XrppjKoWoRqaWHX305x/0JDhIdxsFsfmVBtqqbDTISCzZQcM+Ti jeIPC3xEUBDlb3ZHLokK4DmuTATv0jjmLOQpPefwKBIRSugTGvJosfrcu/BA jQhMctpZJdjz3fg/fdMmwuuy7oaXyPnUp2kOxkRgPPBf4zDy+HI6S5AZETba v90bR1YoDQ9OtSQCx8/+/Hnkh+LWTj3WRKg8n6DCQIfiuzontf8IEWqzDqkS kMfK+hN93YjAFnbiiAayrFc97bVjROiW03tORb7fe2O05QQRCOHTSzbI2U+J jwwCicAnL5J/BTndz5eocZMIhiXf7o4hD8rZZB9MJoJw8uTcPLLIkC73mVQi TJs4XdpCTjNn+1OaSYRWdlozMXr0faJQWKlYiJ7fxvLMFrnn6015kxIi9CoM z3og86cEpR4rQ+P9l+R9DjmJwSzofhURmB2TZJORE7//0hN/TQSesozOXuSu tPclOs1ECHu3gh9H5rJ6Jnn4LREYBOK6VpGv10XTpLwnwlONmnUJBrR+Z+xq 4hoigoS7wR9v5Bhbdwv6JSKMEB/48jCi8R8Ycjq2QoQnC/c/4ZBrzWz9W9aJ wLvrb5Eh8h99k5vX6FSA7em9RwHITvKEPj5uFVA+EcfxHfmCdO54AJ8K0HMm 8G0iJ4lKrPUJqsC90tTbIkza0MLJJXFXQgU+vM4SsEFW/fvHTY6gAjruS/rv kffNnzgXTVQBe6urTrPIXpNjUeNkFUh1usXMzawNmcO9+cUUdD/Pd2wHkXe0 1syoG6vAed8xtm/IX9PCg41cVWDxnN2mEIs2rCatX3vkoQJO4c/WDJD5E85l snipQJWMaZEvstkVz/p3/ipgxf2R1IRc4W3OZBeqAm3Pb4qFsqLvQffXQtWX VeDLN1WaYuQJZz2caAQa74vi0iFkKWui5derKtC3rBEAbNoQp8Ob5JmqAloH dm7xsKP+oH7tQWu6CviXNseaItcTGSrxWSpgxuaxdBl5SWa5byZXBWaZv0TO Ix9lG5S4UK4C+zOih4Y5tEFj6F5BzDsVsP6RcXOKSxu4iV4rj7tUgG42VYvI jerpMtGk/6MKUGQ2P51CzpV9MaY4qAIXctVZVpH5T/RItf1UgVy7948EeLVh LZTegomGBMLUxYFwflRPeZ5n0mlJECz57OEn5N7Ot3eI9CRgnFfOwwmgfi2d OG7HRIIy7b/Gn5B9msSjH7GTYK0l57qukDYMsGk2mIqQ4MJATb+JKOp/6nfG h0RJkOYbUfYYucJ5g+u0OAmi7BX+CYuh/H3c6HJHigQaiYUcc8imBw9s/N5F ApLoRniZhDZUp3tpXVNFz6t6KXZ5J6rn1+0uUuokKGA7nUEjg/bLU8Topxok 2HMt6HsE8qndSz2fKSSQTgrtvSGL+uHIlTNKVBLcH9+kqduF6g+XUfLOggSu zDd8A/Fo/7tgnBexjwT3BsqvyhO04UDdn7vaB0jgLthA6ENmOmgen2dNgvdx BlKgjL5XQld9Lh4mQZ8icwmZhPa77w8pKh8nwV2W/5bSNdH+4w699KgXCbwq clwDtLSBxeOx0B0fErSz+QxbU1C8V5iYGf1JwKBTpCGkow0qMlU/hs6RwMNm 1LlZXxvYA/gfxIeTgE7P4VyLEcp3an26YSQJ1H3f5PUZa8NrFt+klSgSXGkr iZ800YbgrNdXPK6SoDbn6CNJc7RfazlzVC+RBD25w5ZP96P5F+2WmMpE8dMa SsqxR/vnH6EC97NJUDdVHj1/WBsuPlbksL+H5p/57rSxozao7w3beJ1Lgt3i z022nFH9+6l8zigiAU1TVdojd224XJ+QZvGcBHZUd8+Rkyj/v9Qnr9aQYNdJ UcWg0+h7ZX0h8VEtCfxtShgEzqJ+rulwlb6eBCH7fI2czqP9XpF88ItmEuhM efjiL6J6T33lSOghgcyE70j3NVTPFX8ODXwiwZew2Y36BFTPH3bZxPSh+ca9 Ea26gfY/7PGWo4MkoE/Zl1V+C/WvcHv9jO8koJBwocsZaH31m5dkm0XHQx8W PCvRhv+uyYk9nyOBpOK/s5xlqH/lHxI6/ocEjxwmjHzLteHW6Euu10skUK7z MtJ/pg1wOI4mZAONn3AlQ7MB9fe9siMTLGRo2Hdpb0qvNjC62X1NYyPD0lLS p2MDKN8uXx005iBDyIm06/pD2mBSM/vhPjcZfi+6NDGOoPxSqX3tIEQGzmET +/Vp1M/EbPPa5MhQXMpsEs+sA2ljxHpHeTJE79AIKGHVgbGSHZ+nFMjwfk6w s5dDB0KhlpuLQAZCG9ceQ34dKD4mG3qQTAaf+R6+Szt1gLVs3npIH93fXso1 TV8H7ILa/fyoZMjdsRP2GujAfcO82H9ABnc6/iOre3VA+5N9nfReMlT2Pcu9 bKkDXmuvcMfMyZAc5mz+z1EHWvZep5mxI0N7+Dp/T6gO8HJ6iV22J4O+3NMo 8Ss64NJnoMntgMYbx+tyMkoHlr2XTqg6k2HiNUuS+nUdkL/h1HfeHc3XRUlp ao4ORA7gS7dOkoHrZlD3sWYdMPBvceS5ip53Rt4uUkwX1vp/GzfFkcHUsZG9 dqcuVOxhV70QT4awm4IzdIq6IC/y344vN8iQRvBOr1PXBfamwYr8FDJ0X5y+ NLdfF/pFZjgglwzrbItNttG6kBTJvfonjwxfHlzIiE/QBYtZ1bG8R2RoNb5q 0pOsC3VNF2rYisgQyEqMT3mgC7knaY/3PSGDt2rYi98NunDqDX+9/ysyqP3e cB6h1QM8SatoZwMZmr8/p6ix6sFo+uGUnkYyOKb03knh1QO7U1m+Os1k4DA+ 63hbVg/0xBRFmN6RwV/YtTvAWA92nNY9kzlIhrjQJ9KDN/QgW9xNrmOJDJrd WyaTZH3QUSMQ3f6S4RPeiHaHnj70mC1qrayQIXac47WWsT7suBBtIbdBBjs/ p6ddDvpwqrvwTCidKjj4hFydiNQHiF6oV+JSBcvAqO/vh/RhZDbSOUFRFeYe j7hNZuyGUKb9x2XxquB8bnb+Rv5uEJQQOv2coAoynlsrZpW7wdy8IPIHURVG +39V/uvcDeW574r0NVShz7f8gy89FSIOC65NG6gC69dyN59TVJB7/Shlv6Mq /DPyu1eMPts7lVZyh5xUISu6UIWqARCYYvrUx0UV6pOD14f0ANq9f7+PdlWF 5dPH3XUsAc5wE1heHVeFhRA//osnAF45l4aonFOF+6p2xfLFAA4rFUe5E1Rh XDKblaBpAAxujCezrqvCgP3iGJFqAKXttheVElUhkHjw6m5TA6DNXr5jegu9 31SUzhUHA8g3onwMu6MKP7lSw5IvG8BS0guj+Tx0XPW20WK7ASQqN+I/1KHr bx28ku1nCPkUR5bwelUosjhJYggyhFd7Fn+RG1UhQMhi8HykIcwcls+7+UYV FGMSBKMzDMEiOk7qvw5V8Mq8M2fRZghMw9b8XQOq4GKYGHEGvwdCEkc33y2q AtWaLoVtaQ94LjB0v8WrQdohR0rLEyNwKdzb6aSkBlHcPH6XXxmBnWtk+6yy GlgfFmM2fGcExu/pmwXIanB8mUb357gRyBfRvXDVUoNzso6mBdLG8MONJm91 Dzpu5V7CmWQMHh/WA3HOamApwh21GGICbk/+SF+9oQaGRcvUh15m4Bt+cMP8 phra7ykdcQg2g4CDFX3st9QgfF+gtWC8GcQuBVxPTFGDT0Nn9uQ9NoNS7dX1 1Ew1CHwugRP/awarDVu9D4vUIOdYur1NjDkkfmBPaGpBxzulpkSKLdB+288r +q0akEIJddfrLODBuc49pu1qwOH76RZztwVUCSautXeqwXnGwlaGZQsYcuDz +vhJDd6JBLfhwBIURkX2jIyqgYTobCTtJ0sgVQRL5v5Qg+fmwoaPflmCTtTn 1WO/1KDvaszS/jVLsFTILPs9oQYO+RvPH0jtgzMnpCXn59VgVCmH94jPPgjV u7JavqAG0naPPnNf3AdRHCM955bUYPx67o3XN/ZB2uMH11ZW1CAgzEWVULkP 7ocxHK9ZU0P7m60vwy37oOi/Y4ahG+j6cLeZ5MF9UCHTLLH7nxrcrpo3MJ/e B3UL8qtbW2pQPCz0bGtrH/wPK2cDEQ== "]]}, {Hue[0.14213595499957954`, 0.6, 0.6], LineBox[CompressedData[" 1:eJwV1nk4VV8XB3BTKkmmkPHiuriu8eKec03flEJERWWKlFTmUBIlhDKlhFSG 4ldSKhqRMqWMJUmlFKGkwVSh8p73r/N8nvM8Z6+19tp7HWXvoPU+fDw8PMG8 PDz/f5476C2ov/2MudO7jxsW2jaZNzyn2W2i7bfYWJi2c55HscXco5o4Gu2o xdCN4Ibn7rcszj1MVZpHO23h1evOve7eaOFvFh7wS6nEInVB/6lQ9xcWz2d3 Zv5QumdhWNLTVuI2aDH/Tb/6V6UnFrl6V1KzN09ZFDbnh3xRemVhVx9d4GU3 D2XXjr7x1xmx+BnOrciaXgpfi2enR/dMWBStm2+qIEFD4KDmwM2yaQseHZuE xS10CCnHq/cRPAja3aVne1QTaaItzEIvfkSVrYyYS9OG9xunB/ytgpAeObjR 7a4eQhrjvYPUhVAeeXlfgJcBbgQLb5CxWYw/T/6LLq1gozVXYv/VjYuhyhM+ 7+ddNoYaZPMtty9G4JGpe6Y1bMgu0/zif2gxWs+KXa15zEZ8rVVc7a3FCJ4k ejLfsrFR/FDFbhUR7OgyZyULGmKmYkzi/qwIjjzQ2HvR2RCFB/xG9DaJoobr Y/LhkyH0Hi78neghinWMxrKpUUM8FLg0r2+bKEx5a5bMHzPE+9SPtNRgUZTc +ZdHmzaEYoHHps9HRSH7IFVcd6ERchscGgqrRcFy9neo1DDCicWGeeIqYjCo 13I94WOE2Pw/6yZHxdDUvkM2tdsIjnp3Q7QmxLAuMijpxSsjKNaGZnhPiyFG nLFW7q0RKvtHnj6dJ47Hd9MG8waMMK72yuGqojiSTgj4JvwwgveVW/Y7HMVx 8Fx1y8uFxlh+L9Cmp0IcGw9dHk3hGoPn+XtUR0rArnGleVKmMeI/1xRGHpZA ddlp+93ZxljIc46PTJLA/Mt3ztrkGkNc26Xh1ikJkOWCvDwFxlBLfLb62nUJ mJjyi9mVGsPWpG7t+SEJZLLPNnnXGuPkhQvuSeslUVOz1zPrizFkKg/fX+Ui iYU/PpaqfjPG2aeeivO8JPH+k3xg2Q9j/PdX7v3hAEkwt5e5Vk8Z4+6mzG0H kiTBflLBXzlnjN5FR3YH1khC6PICUXMJDhhhOyKcmEtR4ndrIIzgQJvbtyFf bykc6cN1qVwODHk2644YL0We/mBukSkHlik2Q4dWLIW2YCW3FRxsKWI5lbov RXLVsCe/DQdZXeO6fOlLsWO8OVjchYN5RoeGr00sxbjtUsb9fRwIz/6qm6H6 3NrD80H2fg7Ea4PzrHik0CF5Myr4AAc0e2/nN8JS+BbxYqf8IQ5MfazqBRlS iChyZG1J4CDs1KJ8j81SuKkwc/RYJgcfp7I3LrovBXXrXe/Sr3Fwfjk79G29 FGb8+JKcbnDgmdqefq1ZClpLFhpKV3Dwmj7vyYYeKfx79ut01m0Onm3YY3J2 QgqlvAEt0fc5qLlhR9NmSoNpGMv+3sxBdgDvyNpsafCccg7Z9ZEDp3tnBZXz pLHYz+v42CAV/zxCdaJIGh2c44P7hjlIOxvonl0ujYaUq8ShEQ7iW96097VJ w1114GrEDw6CNW9XBAvIQGUBx0DmDwe2g7ujT4TI4GiUWZCkOIFV0apXVkbI IPJUAtNLgoDl0t7XPw/KIGTbV7fLkgS4VvaEW4oMZjTuMbjSBJjFuhOqF2Uw Xvxf3Gp5Aot8Jnfe6pXBHlb8SVkGgdaP0U49q5dhoy/vlVKCwOMo47hja5dB 16X/1WOSQIPk9xumzstQtvVWyUcugeqVXksKvZfBZU2UoYwZgStFls27opfh uXegXNByAqnb52O2fBl+sqM3vLUhsPbjcS1FRVmkTTzb1eBCraf1scudLovC hoCxi64E1oRyDp5hyiLltaT/MTcC1nzvnspwZKFeftjczoPKj6a1V8JRFlWH 80PrvQgYuTc+XBArC5UHdrMxvgTku6adJwZl8amndKVFGIFcOfs5/VHqe3kK YvzhBJZtK7gUPC4Lntht3xspS42vmv36TxYFhMKg9T4CoqKZBZ+k5dDlyNex IpIAv53Ol7c2ctjiH7xTJIbASL13zOOrcvD1Khj7c4yAUkbP7rSbcogsOtJX nkzAactaZ6cqOZTk1Xb7phCo+U0y3z+WA23oxGB7KoET2mJdvwbk4Lq69nzG cQIm2Q/U1WXl4ejw/OjIKQIpu+U7jiTIY8DV3Gksn0At58S9NanyyPzdvfdY AYGfAguKxDLlMX66v16lkIBX/kTEuUJ5DNrjg+N5AoZdzSq3quXRH71j5YUi Am/N9u/9OC6P47nW8colBHTEuhVWeCpgQQgr5tgNAkOpQ7GnfBSQZvLKkq+c wDmhX8PDfgpQORjls5+ysIBMeUqEAt6HJ7T5VFD5/3RZ1Z2hgEevLppybhEo 7n0buKtBAa6PjI3u36Xqf2nwQbqmIsr3Sni7PiDQRf9J79dVhOMS3egHlJML BY8ZGiuCydUUoT8kMJOr7vTKUhGehxwzv1DuSd31ScVdEaNBgSvC6gicDP0q ejtNERtyiSr/RgJCFlNbeycUsX9I0fdfM4GI5RoLbs8oYtUi12TXFiqfFW5l 6bxKYHMy6bcp11nXzlguUcKhj9N3/VoJRK5PPVnCVMLtM6IHn7YR+OKj1rh3 qxL29tjJHX5K9WOKs4ZYhxLuPq5KiXtBnZ/0pPaRF0pIkJm90UH5UkZVWEOv EmYfHvWW6yYQn6Vcu29ECcHaBjtvUFZ8+pP1nY+aw7e6pXteEuh+VdforEjD 8fK0bNHXBFZ/df2l4kzD14zWYIN3BPIk454f2kxDyisnyWDKkyal13rdaOge 9nS9Srng2KxvljcNLf9YTxl9VL3Uz/YsDKaBHt8SsvQ9dd683977cYyGht95 Av0fqP7t8YyqeUjDg5FjC00HCeyYS9ws10CDYaYsXxDlasZ1w4gmGow7i64W Ut4VzvNVv52GeRVZSoJDVL3ECz2K39BQq+kc1UI5zL7fPOUnDZsl+mKtP1H7 U7ed15WljLG2/dMiXwj8WP5aNlpXGSvoWtuNKc+vdTAsMFDG7tOROR6UjR9w fYcIZdyft8mzlHJmlWjbHitlEI8uB60cJeBwszoneYsyjj4YHvL/SuBRsaTe /ePKSGysOHz6O4F39GM2708qY231qUeVlKcuzHnzZyuDx6eg7w1l+vmRUzbn lOFZFJiu8INAbN7D2RclypDfmvMtj7J5tn/TtzplTGw8/f30GIFbSQ1baFPK EAxwlwidoPbTtkUm8bcykh4bvMignCvc2fl1VhmTe8oDr1OOOd63qopPBdwH CsyvlO1yZnQ2iqogM76odfskgf6LenPJWir42ZG8xH6KgEjT2fxfW1Wg9uHO L/5fVP3nhb9vb1dB6dSjjwozBGSVnrycfaaC14NWN9iU2wmFDo0XKljXwB9g Q9nYv/F+7BsVxOSZVIRRFny+9IzxJxVIu2QcbqZcXHDbOY9XFQur9DxCZwl8 NPndHGCoCrvBgkdVfwhs23PglnCuKq7o+PQZzhHQ9dVqt9tKx6trWYkyAiTe 7VIKurqdjr2/PnzQoZziLyEqspOOGcnBNVaUP4fMrusIpKOg08ZxD+ULUS0v 1kXRUSkkrdpGWfqE39uN2XRsqskySphHYq66dNSrjY4P9wjzBfNJlD3IT619 SseQl4emMmX3upM6Kl10CGRZ63Ap32s6EDzwmg4jg7oEf8qhnWsmfT7RsUc0 6kAn5eHhL7O7+dXgF1tcc2EBiQ5x1qJwUg2RuyxEtgiRMA8I+HzGVA0dez9/ iaBc1lTWVGehhrcf0j+fpJwWpR8vukoNwtX/rJop2w0Z/y1dr4ZNW64kE4tI NN9b/r3fTw1En1OqnDCJRq9Nzx3z1GDi35z+dzEJw6qcG/sK1ZCxNp5fQYRE 0dLX6XlFaohaq1RoSjm+2d1u9LIanjavdouibGno3Zh4Rw2V4ee6/lJ+OD/g Ts1TNRTAgLFQlERVWewZFj8Dbwa3XFkhTkLQzlk2W5CBbyHKGv6U131WP80r xKDuU+X+TMrDqm1Z3aIMCCdWiw9TljgtfSJGkYFAi+zQNAkSfnFXkrpIBpLo B/I/S5KQ29wdHhXMgCW/o8wLaRI7pi5NDoUy4KxpsFZQhsSNEwdC1+1jYIjt 1MmhvLqNFsI4yIC5d3TTGcqhln7+T5MZeKWQHOa7jEQLi2cb/SIDsmr1TiJy JA7wMh1b3zKg0xWnnqdIYmjloh7GByqe/V7Kryg7Jo16Hv7IgE3bhghJJRL0 JdeCjL8w0DrSaZFCuVXeML3gNwM/thVbxdBIKBLm7WES6qjTsC2PVCFRF7je TsFGHQZF+Z73GSRY5eyufXbq2Bt2WHOeOomsKUn3Tgd16AZu2W5P2S/qpV/i RnXE7rip20dZ8ph78tg2dcS7ndddoEnlX7yjufGgOl5P7AsI1iIh1BtpHXhT HT8i0zvy9EgY7ytZnH5HHcYuhM4PylvFezqvVapjFT7zWeqTuGtt5DH2UB07 jN6IDlPecet7SFibOqKmdj01ZpOoTdt+JnJIHf6pR/y+GpHU/Fn7LUFGA6OL Rs9WmVD90htVcVFOA2lHvGbkTan+3Vca8VhRA/HRrf0HKTPKFvALqWlA+9qG TSvNSDyXrZdO1dcAEVPb/8KchM4kZ/lJWw0M8XqoSFqSGPxPOTM/SgMCFvLe fDYkRuM/TPPHaIDef8k1hvK4d6HnzjgNBH3zF5+jzKOkrKV/TAMxh3Pq/9mS kM2m1dVlU/HtKLSeb0/tV6LSj8FyDRgmvao1W0ei2lfBjvVZA5YLCx6vdiVR b/X2xvFRDZx1KCjpo9ysek566rsGcudf8YtwI/GyT37g/k8NHJT1yb7iTq2/ ST7SQUATis8krip5ktCwlru0R0kTf0VSOvW3k8jUWCZwz1kTL1TWrBYJou6D LYyLA5s1cbugcdtdyvRMtq2IuyZEZHf6bAsmcXPO/vg2b02kOpnJV4eQ6OqO lRcJ0sTrVXzhEWHUeTgyargtSRObbY9UK0SSOPHhgc/iKk1kbI+WV0kg4Srd toCo0URRT/XnEcoq9q9LvWs1QSgdqbmZSKL87uTYnSZNdN03iltzlERnuuZB 7y5NuC7+nnMkhYSY+cmsO181sfCb6y/WSZL6b9rRtJXGRPXbu5WOhST27Y0N jVJl4vbxBDHiPIkt6/OUshlM3P0zepR2gepfoe59rSwmcgX0Pk4WkXiy30qD QzKRkBXsWXqJBJ8L/ajweup9c1ak43US4dL9tnfimLB1Ua+Oe0jVZ+Lvz2cJ TCwce5STUUtiZceyC6NHmTh1+Ov9gjoS4onrZpWPM7Hg78BQXQN1//18WJpy lopHgP1S6gmJTy/yhb1vMVFU9nndv2dUPTI92oWHmUhb3f6u6yMJ+QohOb8R JojfLks0h0j0Pbvj++QrEyJFCZMHh0lsXyLOmzDJxGr1xgHdERKBxx6x53i1 YLmZnvjfdxKxMbqnx+S1kOAWFvRphkSJP+/27vVa+Jv6N6hFnAv/5LLrhhu1 8GRraJmLJBc6l93+nnDRQrnwjTefl3JRPnwry8FLC9aPRIVEl3FR7b37yeMA LXQ/3PslVImLp5uf61QlaaHu1Zj/GRYXv1cWT+fXaKFIbRPvPmsuoqry4xpq tXDR+OgNdVsueAxyF39u0ILWobxVr9dwMV8pXdmgRQuhFX/VrBy4kJqOsGl4 qYXW5Phh/Y1csK/anf70QwuenvXDO7dzEbh0ktBXZaHo8p0Tm2O5GE/+VufM YIHZqCljE89FON9nu0hNFprn9O6aJFDrf3/rVa/LwoLr/WvVj3GR/KQpydmU hWsMg/kyJ7i4FH2mZ78zC+tUMzS2nudiYNAyoi6Rhds2avvyGriwzG8/z0xm oXh0T+S8Ji4KNru2nUhjofuqABn0hIstLSEq206xYB6kMGbbzsXr6wWt/BdY CIn3S1Xt4aLzwD+aVQ0LQuoSB9xGuagTq3zSNMlCvwEj9KeUCZRbrCZ1f7Nw I+ev271lJoiJf6aYM8tCidtV20PyJjD/9Sl0J582pK6IrZBUMUFlr7TiQlFt XGcF9Htrm6D8YvgeWy1t/MdZNpa50gTnzfTl2rZqw9R4SMIj3AR1a4XiZrdr g+bLvuMQYYJ+z4ERzZ3ayAkThNUBE6jGnqpMCNTGyTQVIfKwCYoeTbvggDY1 L6PvrEg1QbFDXU5FpjbeSTzQHy42waWtG6Rym7SxO7UxPuyVCa4eCRfz1dbB ntv1I9K2phg19Yg9oqeD/YsTnzy0NwVrcuXEBbYOGCcXffFfZ4rL3pIv3pM6 SDBs/du+2RSXLCpyXFfpQLTXLqvS1xRF0z+U1nrqgK1/mq2fYIrcAH8dowwd dKp2SpQ0miLRedsa/ikdxCV2Dmg6mOG8Q6+7z28dTJftcZN0MkO1jXNg06wO 7smmG/C7mGHcbHVGMp8udEcMF3zzNoM7Q+ulhKgu/o08Tv+91wwGv8a96Vq6 +GMcwzuQb4Z3ObGRVlt10SFiWS8/ZQaj3sKSxDZdbAvu3p171RyiOjt/X3uq C76QXS+sKswxekhndc9zXYx7/YqbumuOItWqjxqvdZGRZVqxtcEckn5dSs1D unBmlh0JeGOOmSj+NYI8ehhM63BwErLAq0XGtdbL9BBb4NC7088COZpnrrat 0YOQtdNMtAIwObGqOM5eDwUKwhlMZcChZvws6aCHw7dSe1/RAcENtinF6/Xg qPouEywgPGp6d7SLHkTJmTwdE2B9xyYNbV897BIYu53qAgiHS15IidVDxWLT s+45wKGHqTlr7unhsYBViYfictjLORc30/VRUclWvb7KEssDm9zEjurj2iVN j/lxK5Av701vndJHsEbhki0CVqDXX8xa62aAg0ti2fwZq3Bcu47ZWWMA7XKT YHVDa+yYEHj2hMlGt9DPkw5StvC+MU47ms5GhJzpdNzIGvjHbvhjm8FGdg7N o3l8DcI33HwpfJINqR1mUWKza5A0FZ52PIuNjMqo94WL7FBGTs9mn2NT8y7k ezPLDtO1c93/lbJxcrwt2yTIDsc7hVMbmthInL81PHbSDrkXAnYmPGFjfZbv 8dd/7HAhrH2FdQsbwZLrFrDn2eO21PGZlnY2Kgv7+AaX2qPXVWLn8xdslHxw 6bDj2EN9YNmK/gE2vAc1NDQj7aF3M1KxaJCNT719l4/E2oN75M20zzAb//gK XPuP2cNO/dz1zyNsmJeYGp09Y489fjTFsTE2Nj4biBW7b48o08PT5RNsRMn2 LwtqtMeRxf1dYVNsLFgz3NjaZo+caxeSf/9m48ci/nVJ7+xxPkbAt3KGjfZ6 aebQkD1K1/lYRv1hI+GurvDK7/a4qfJIwfwfG4p9NpOFv+xRM8GYnptjQ5Xh 0zc3Z4//AeZi5Kg= "]]}, {Hue[0.37820393249936934`, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVz2s0lAkAh/EZdJOSdKHCkJ0ZY4bRm3GL94/KbV7JZculNiOXs6TIbIXS kuS0mCSU5MiWLWtse0Yn1VrSZhWjaCVU1q1cd+00MbHNth+e8/v8mIoO+kdq 0Gg06nP/W3pCtNBmf4lLfx376ciRBpeHnQzhLsYxcoBp6ZUnuEKqH9VnMBjZ JGfvEdJHICVLG3JMFjAuksU+eypNBfVknLP4wIzJDXKVb1HulK2c7JyLKfjb pI684o+OUNvX5KLeAdakSQt52I/ZzyOmyPLHZQnjJi/JCXaWbxbnEymtye6N sxojZetGAkUeuogmn12cSFSQNRp3ugOXr0X8sMWgTKoiHVPEm/sYxtA2PcV6 Y0+DuZjNvNdohtwVTzjl+zQRIvUxu6vNhKg38FfN1oVIo89caI+yQMJvp0QH WdowqI0V2iVzceuQToCB1zLsjteT5plZozwldoy/awUC07ix+YN8pJfN73w/ oQcN/66aAI1NoHX2436yPhz3xV2JpRFgJkUdDeSshirclaj8QGBIWfTl0l/W IDhC3fq+cTO8h78+np9ggGvjI9u2Z9jCd0hiaWy8DqUXVP/2sAQYaxKd/L16 PTYeWaJaXC2AlV6XkftXRvD6K5g+YWEHbVIZ3qcwxgm7tLeVuXbwmAyZMQti IP/NckH6pB26H+ynh3BNkXrrta4jaY/aMw/3MpSmsGKGynRO2SNqgbhfLjfD 5I7LtpUt9ohITKnVubQRO6oMg9oWO8A62lIuDDcHPU7Re8fDAe0ruUvFDl9A sIN31EnigHvS9BKuJhMHulkZf/Y4IIXO8Wt9xcQJFtX4UuAI7b5kz3gZC2yj RedGyxwxfN20oCyVjW3jqa7BK51QwDbUqguywCiN/mK2wgmSS1HN4QwO3A6X UHHuWxBSsEeu85aDteumbrbPbsHs1muqsnpL6G44njvf54zBYbejD7K4qMgM HmJ1uOCqs836tnAemKucnGh0oDpTrBfNs4I3/ZNvTzmQFRTho6m0Qti0RMH0 d4VtX/mNrDZreCaGHWpiuqHYoqS6zYePhpvHnh2kuyOtIafYp46Ppx2iHwRa W0GtD7r22NwGDRec2gvXboNrfHOoXrYNxpfM+e3nbEfZBpF5q9IGERGe40SU B8ybKgt9QzehMH8urbXEExLeA05H/SY4j625P9rlhSiF1rMWDoHU3dZ8hcAH olv/MLLzCBhd996te1qIuPSAee9zBDJfuRZNnxVCHCB7oXOewKubjQbPzwlx RinOlRQSiPnAfXOxVAipg2quqJTAxNaYMHatEKpGddf1KgIzGbU8vyEhJB06 OQ+bCSR0NrY3uVG4VHEg5nQLgXA1f9ePnhQqkuTunk8IVH9IUxf4Uri9RvLx iZxA5OJ0aVQIhb4Q/ZjOPwi07kmKWZpIgTVo6D4wSIDMke8NLqfAlyUbfz9M oOe8hdi9koJjZq8q8i2B5oFDJbxqCkJW6U+jY59/xzP1NeooJMYyjKenCYxo 6RdUPaWQuuVb1c8KAlVjhjqFXRQylw08T1ISYH+Xd/ZkH4Ximoqzs7MEwrqz Lge9o3D1pFb03Y8EVoyMWWKKQtXOSLfUeQKXvzlez3lPQWb2yMjlEwHd29YB qz9SqFcwVWo1gcD26XdqNYX/APElIRo= "]]}, {Hue[0.6142719099991583, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVznk4lAkAx3Gto2eZ9qHSFs14SY4xjvGuHGXen6Mo8/YU2Ta6ZpyR8zG7 hYoKzfSwiobI40pttbGKrFaDYtyzj6T00FYkTzqkaWJis+0f3+fz79dUGOcf 9o2Ghgb9tf8tOSrU4YYW86yiJLnPUhp4bQMEfydxmEpiSXfJJOeoBbnsBEGI qTSPDTU5kiqqpCXbRJs4TxXHLEQmSeqpg+6imBmTK5Tu7zfT90jaqYG5yPz3 Jo2Ucdb8v2zJILV4eNTyrUkXNdXIzBCJx6ny7tKE1yaPKS+XmqNXM1VUdY14 +KDdJGWmcPLIFOggguo//yZRSemLhw19z+gjdtx6rK5aTZUOMg6slRtC1/Sk 5VMXDTTn1SqqA4yRo9/DLt+vCe4ujnEgSUA4vKNZs1cH6VGPEn97boaE9pPC OEtd3PYeapPGrUVtPCNg5eYluNAhqPSUWaI8JXrSYac+9uqWdx+wYuN46fz2 j28McIjvW9sQwIHGwDM0JS+DwYST2n+fHSySwg/tYBsi2Sk+zggOeKEq+FHv zgqk9nbalZFcbBmPOnI2YSW8KVnyAQdHbH2Ra8NiGcHM2VD8iUli8p4wrfO6 MZyqaieGPpCwM3jI9NrHRMegslXY/wN0KZVgRMlC/uXZhugiJ/i8DZoxCyRA FBn5/Ry7DkN3QxcFcUyxO7uSH+PmjPpTbXsJlSl86t6tzvjkjHBt0TOFwgyM ZZXao60uCElMqWcUrcGtkTBCleYK+wgbBV9gDvps2U19yg1/L+XoiVzXomW5 zYnNS9fjr+rjxRxNCxCzvF7Fk/VIWcTe1vvEAiEzP3276d4G6I4k+8bWWULH teCGoMYd45dM80tTrZDVMFTRL+Uh32qVVmOgNZxnovLySinkFoV3CAg2jBIu LPnFHwjK36NgTLBxukTWf+cxMOtdpS6V2WC3zsY1uiIPjI17HrqbxUH6rfg5 r+88UeHONe4T2CLu8H5hwx1PXM8QGUTY2iFlKjokIcoLWYEhfpoqOwgmNNuY q73hNFJ+JavPHokTx5q1X3qj0Lr4ep+fA9yH/WwHrm7EsZbsQr9Gh68f06/b T20CbRxY1W3ORZkifM3zKB94xHYEG4i52P9Wvvioty9KVwvNe1VcVHzPb3m/ bjPM712Wbg12RA+nx0XC2oJc27vs+zJHnPBaRFzU9kO4Uqu/i02inMmzfqrJ h7D2AyH+lQTvXPHGYCUfB48HzG85Q8Kp22ju9AwfooC6R4w8EkYfmR1Nc3yc UolycqUk/gz1Lmdp0ah2Vc8VlJB4PM3cMbachrp14eGlayQssraFxq+jkXuf kd3WQcLN8V2N9DCNosqYyMwuEhl6vhldR2hUJim8fHtILB9uCptPp3FrRe7n HgWJZj3xJqGExkjQssiBQRIm8ktH7IppWI6t8hodI1F/X57Q2UTDoS6ZdXGc BD9+pG+uhYZbxrA6bIKEfYq/vX07Db5lyR+vJknkvXqvIe2jkRhNsKanSeTT 7x6E/EMjdUO6+oaSRE7ml+0FozQylow+SFKRcOCc6e9+SaOwpvL07CyJwSuK h9wpGhVpWhG3P5NI+dQaHKakcW17mGfqPAmf853PC2do1JnJmbwvJNJ6MiN7 52jIlBbqhQUSjvKyqYUFGv8BMhUsXw== "]]}, {Hue[0.8503398874989481, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVkGtUjAkAhkuZrTGWWQqVmsmYarr3GclW36tEzHztklyyloYuu6VILatW ySUdYlRrGKcdU+Kki42RU6t7qukyVhGZbG0XXUgyolG09sdznl/Pn4ctitoY PENHR4f6wv/OPCKiOe+57PlKLBzj19zyrG1jCbewfiXpihUBtOXnyem68mMs VgqpfD+k6ubLyczKVIuZrEukYbY1Q8UvIiM8Yvd+sMglOUW78mv5VWTbZFjG G4sS8krM4IxK/kPyK3WP1YiFkozm/9RQxv+XlDfK9r+06CCfO02alfHHyMKb KeoIh2Ey9UZeLn1UF6Hkw0uvojUkYXkv9tNVOiL7bXoVhVryaePfWdkSJujs 41ZdK3Qg6cy/nexmjLNzm3jyXXpIeHPywr4zJhCpN1XoNdPwxGSr5Dt3C+y/ f1wUZUVHc7xkcOdLNor2MfwXrpuNfbpRal8mB/K48GGnLXPx7FxOPC2EiyTZ 1IZ3r5i4X9Z14Ea6NXTaunHv8DyYznc6rXOXB25MyKFNPCMY7GFKWwzt0Tcu 2TyrzBhF4bTOHr4j1vf//Fva/oXQ4dwzYSid4NcntjU3NwGx5q75kbfOGK4R JTYUmKJd8Ci32YCAA7N9sffOxRhKV480uS4DnRwP6tSYw7iMm/XIn4+1I4Ef LANY+JT4ws4sZTmeVu/RDbRjw+3jNtkvpa64c6r2R9Y4G30tuh56HSsQMjO2 W6WyhGSXXcNt5krsjo67w5AuQZ2ysrXI9Vs4htqqhEEcCIM7pia2uePBN3az Yt2WIncgf8FmiQf+Kky6bKfHxbISEX20yhNxurzvm59zUSwetbXTB+idh30j FVboe289558coP8aO0MWbw2eUe9nQ89VyLBepF8SYIPBjPzB9L5VEEtD6oNY PERGrLkSf9QLgRk7VIwBHuijzxvyzbwxsTpHKyu3hcNr17fSOm/09nsdqk62 Q1RBcc7vIauR5eFs2hJkjx0F8o1njHxQcCKWGWrvALmLoXtAqQ+SA3YL9MYd QPeJ6LLZsQb8TnlucosjepYIm7hz1uKizeWCFoETlB0R8+OK1yKhMvWioMQJ BgX5asO9vqBMA3IaOc5I27rMJYy9Dqsi67czU5whXxqsTGtcB5mZiNM87oyD E9OBXUnrwam5fsFvuwtoC8O3yh0FENtX81rLXbDaoow62SFAiEb/oZJHoGEu 87pfmhCioreslHMEAlmlyTSSQkSS/9T68wR6XzQ60r0oxPornjDSCexOrH02 24fCqfHYs+ILBF587e1mJKBQ6KadlGQS+KFwyQLOFgraqun2a3kEgl+zhV5R FMStjNTaegKdG6N9E2UUpNl7w04qCVjbVi8/nkUhO0bl7dtEQME4yj2VQ6HY WPyxSUVgjtSMLs6j0Bk4L6zt8Zc+I6FbdpeCVe8i755eApS+tKLiAQUnxWHz q/0EjEL9KmpaKaw8odYGDxDYcEBRUf+YgtAq88+hYQJ0Xkj1AzWF6HCW+dgY AdnB+aquAQrx7ke1tzQEDM7SW3uHKZyY3fMoZpwA7Zx/+8AIhYs3s09PTHz5 NVrYNaqhkJWoH1r6kYDmj9w+zXsKeRuCveKnCCQ8qR/6oKWgsKxb7PmZwKyq T68npyiUa7ja6WkCzsfId9PTFP4DlKsuUw== "]]}, {Hue[0.08640786499873876, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVj3s0lAkARydUh9jCSU3CDBMZwvgKSb6fR/L6OllkV1sxQg8p1qiksuRV 0VSWsJMjsRNL5NFKzcqj8hoNmrJ06tCsTdrS7BxGMtv+cc/9914m9+i3kWo0 Go36yv8WnOEu4ewvdj2dlQeqpd61Y5DhH8I4STpsv9pVSL9Cqh6J0hiMbDLH qOC7ePoNUtCaY7KYUUjqabbX76XfIWO28o7MmNwi3whpdsH0NnLw84G8jybN 5MXa+8IA+gC5dGTM4r1JF9n2c0p/EH2MLO0uiXtnMkyq+xYtO0T/RNbczh6J sZkkX7Om19aOqiGalBROxctJYfdvDrNLtBErsxxvqFGSs2oVe8xT9aDFPGfx yomG8i9xv5tFrELuih52aZg6Vqoy9BunDcEdCfpDvXcJutRUtLw4BuI6z3GP WmhBlvhs4uQrU9Qd0w5c7aMD16nLlf6sdSg9dXjSLmQFDBzPF6iKLJBaMh/w 75Qu5rrDJHV/W4I2+Br3k/TRXSJpabSyhnlC1Ikg9ko0qMLW6ZTa4I2iYNey BwY4e90moy7RDr6yQ6evxK2G5sATB6KJgx1v+FbGxmvQnFB3/MJHe0y2c1Oe VBvirlUnQgw2wkZXauSxzwjuleKBpuBN0CIV4aNyYwQa1bqnpjhg+/vQGdNg BsLsnFyXdzriRdv+RaHWTBSZF7amaWxGY1bHXoaCie4fjr3wsnVG1GLea7HY FN6CyEyNhC2IiD/VqF1khr29Me8WylxgG20l9g9noeJDTsQD8Vb061kv421e h+G+2nShPomWmtRia3VzRPHbMwaYwKlF7J29L81R78KJUj4CtEaTvGMbLBB7 xH4h86AbZBXMvJLk9YgI6DmbvsgdeevpGs3BljjYxPpeVOEOflHU43AGG0ll ZpJdbh4Izdsj1p5go/GS6LLTsAdmPcuVJSIr7Dgf+4l7xhPjMvcTbZnWKA/o ete/ehtubOUY9oVvwMJ1D05u6zZUp/N0ozfYQOjsl3h6jxcygyP81BU2qM6v MhXMeGHTaOmtzD5b6CQKWnVLtuOaZXF1n58d2lzkxoVbvHG2NeeaX7MdJlrW ZCXKvEEZBpd3szg4L+OF/njRB26xj3frZnMgu93KjFzvi5K1XFavggOn43/p VUh8wWr/NX/Hbns4OpT3dh/1A39DG3tAZI97WnfLp7T8ESXXkHSxCWzTvLQr oN4f3LpPjOxLBDYed3yaspNCTGrgvO9lAv2VlQ9dAynwAhuea18l4BV7s34+ mEKWgpfLzyfgaWRWeGI3hZrNys8FAgJB+3UPHYuioHyoklZUEZi7N8gMS6bA H9DO6XhM4K1oYZgUUigqO3Igo4sA7yLzxZdKCmUJYg/vHgK/FGdIW6opNBnw 53rEBNTl3ww51lMYDdU/MPiMwMCdUYmtiILFON1jbJyAYW+O1GSIgl1DkvFN GYE1PkPPX0opOKePKCMnCAilzsPFwxT8LQS1bycJVOXvG131ikL8YYbx9DSB 3Kc948snKSS7/KS8I//6NyuV9U1RSNcZG0pQEHhqMD1x4QOFa7fLLszOEgir 8plaqqBwI0Uj+t4cAdmfaf90zlCoCoh0T54n4JTQ8TFtjkKD6SMj14WvfUGa crcvFERyc6VKRcA3ZKdCpaLwH4iONXE= "]]}, {Hue[0.3224758424985268, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVkms0lAkAhpWuouOyCrkMjUtjMOMrRfheRjHD51RSm67G9ZTLsqaLLqSE LppiS1ork7RlXepMdqlkJ0sq02Ews5Fasp0mFY3B0O6s/fGc59/z67HlJ2+K ma2jo0PN8L9LjvHnsaOv+o73tzXTz4h9m2W0kK20Q6TsJ7NDfoqLpLal8QSN lkeSpi/4ZgoRWdJ0zmYu7Qq5f8Ntua7iLpngI0icsLlFGn1aelEjl5Cy6fjC EZt6sv9BaPKYvJOc3zvg+NGmjVxHV74alQ+QZU9LUz7Y/Elq5Kt/GJF/Iatr 8noTXJWkhHOzvEOkiziy48pwqoq0eF3/N59pgKShFYPiag1pnLD79nyOCfRs Tzq+XqOD8+z190PDzZBv+IxRtkcX3UWsplFDK/B7Nz/SfT4Pp8szXsw2t0XK Hyf5yY56MC0czCsoWY473+mHmXENkL2Z69s5bo+yw/uUrK2GSPUs292W5YSs 0q8bx4aNwPk8lZ40yICO7A0epJsg03tjpMUaFzikxR7czDCFZ/UV8bFHbnir vrxl0cMl2Dc5mvnEgA3e0N6jF1PMMOls2O8S7o7Qt0Jna2sLeFX+cu3SJQLK x/zMJ1XLMGLM27NFshKuRj1WnN1WGDi7Z0vqfA/okerIPpU1gj4f4A55rEbg x4gJu3AalFELvhdnrIFCEj0rgmmLAPrS2TkST9zLbd5FU9vCsN0hv/azF2Ln Ct5IpXYwz63Z4OHhjajUw/f0i5ej0NnT0CTOB25xztKQSDpaLPxWqS744oUx c5HA0x4elhKhWw+J+9VZV5m6DtDXFaVFZgGHZzE2PH/lAMvjNt7bHPyg15ce lCR2xAL7HXWbWv0wVGFbWHrECUwf85oDO/1R6GQ+pz58BZL7jR/zdDgQFse2 RtIYGFadDecWcRBRuFOq/46BALeWYq5LACYDbmhKG53RoFo7PSENwOCQ/0FJ DhN7me4vO2LWQeTDXtYe6QKvT9Fd2xauR1W2wCjOxRX+dDPKQLQeOeFRwbpq V9hnnj4oWR2IVX1lt3La3eAU4/nI/mUgilZcrWoPZiG6Mf6kOCUIGU3nioLr WWi81hU9asoFtSz8xlM6G2M/ayfcfuXCL6l1u1EeG3z7yoXFFA+llnz6czUb nxgFHndHeKA/vnkpdLs76sqn/1LnBkPoImF0Nrrj24DlWGsdgljVnI42BgHz xJx616YQ8O98oeWdJ2Cil3CH2kohISvsK+8CARHnaPrINgqCMLFcv4AA62g+ p2AHhVy1IF8480nISG23IpJCtadm+nIJgewetSYqgYLmd21PRSWBcVGGf/px CsJO/XPNrQQUawtkFZUUiq8nxp9qIxAnKP+RW03hepqUE/SMwFj1vZjhWgp1 S4RTz6QEjOwUE+w6Cn0RJvGybgK8BVaWD5soOA6acwYGCTR0VUTLuimwxOnW 5UMEghb/5rJfQcEru1cT846APLBt3KyXQohjSe17JYEvDR9yd72hkLqPZj06 SsC5jFX1XknhiPdxzV3VTO+l3/6zHylkGwx0palnet+EkW4jFIpqrp+ZnCQQ nSPoSFNTEGXOiWuYIqBqOlW8dJJC5cYY/yNfCWROXY5qmKIgtmux8v2XwOKV t5g7/6HQqHLQaLUEShIb1Fothf8AeE4sog== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["x", TraditionalForm], FormBox[ RowBox[{"u", "(", RowBox[{"x", ",", "t"}], ")"}], TraditionalForm]}, AxesOrigin->{0, 0}, DisplayFunction:>$DisplayFunction, FormatType->TraditionalForm, PlotRange->{{0, 20}, {0., 59.9999987755102}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], {-1, -0.6180339887498948}, { Left, Bottom}, {2, 1.2360679774997896`}], GraphicsGroupBox[{ {GrayLevel[0], RectangleBox[{1.1500000000000001`, -0.45}, \ {1.4335443037974687`, 0.35000000000000014`}]}, {GrayLevel[1], EdgeForm[{GrayLevel[0], Thickness[0.001]}], GraphicsGroupBox[{ RectangleBox[{1.1, -0.4}, \ {1.3835443037974686`, 0.40000000000000013`}], InsetBox[ GraphicsBox[{{{InsetBox[ GraphicsBox[ {Hue[0.3224758424985268, 0.6, 0.6], LineBox[{{0, 0}, {1, 0}}]}], {0.08, 0.08}, { Left, Bottom}, {1, 1}], InsetBox["\<\"t=\[Infinity]\"\>", {1.2100000000000002`, 0.58}, {-1, 0}, Automatic, {1, 0}]}, {InsetBox[ GraphicsBox[ {Hue[0.08640786499873698, 0.6, 0.6], LineBox[{{0, 0}, {1, 0}}]}], {0.08, 1.24}, { Left, Bottom}, {1, 1}], InsetBox["\<\"t=100\"\>", {1.2100000000000002`, 1.74}, {-1, 0}, Automatic, {1, 0}]}, {InsetBox[ GraphicsBox[ {Hue[0.8503398874989481, 0.6, 0.6], LineBox[{{0, 0}, {1, 0}}]}], {0.08, 2.4}, { Left, Bottom}, {1, 1}], InsetBox["\<\"t=50\"\>", {1.2100000000000002`, 2.9}, {-1, 0}, Automatic, {1, 0}]}, {InsetBox[ GraphicsBox[ {Hue[0.6142719099991583, 0.6, 0.6], LineBox[{{0, 0}, {1, 0}}]}], {0.08, 3.56}, { Left, Bottom}, {1, 1}], InsetBox["\<\"t=20\"\>", \ {1.2100000000000002`, 4.0600000000000005`}, {-1, 0}, Automatic, {1, 0}]}, { InsetBox[ GraphicsBox[ {Hue[0.37820393249936846`, 0.6, 0.6], LineBox[{{0, 0}, {1, 0}}]}], {0.08, 4.72}, { Left, Bottom}, {1, 1}], InsetBox["\<\"t=10\"\>", {1.2100000000000002`, 5.22}, {-1, 0}, Automatic, {1, 0}]}, {InsetBox[ GraphicsBox[ {Hue[0.1421359549995791, 0.6, 0.6], LineBox[{{0, 0}, {1, 0}}]}], {0.08, 5.88}, { Left, Bottom}, {1, 1}], InsetBox["\<\"t=5\"\>", {1.2100000000000002`, 6.38}, {-1, 0}, Automatic, {1, 0}]}, {InsetBox[ GraphicsBox[ {Hue[0.9060679774997897, 0.6, 0.6], LineBox[{{0, 0}, {1, 0}}]}], {0.08, 7.04}, { Left, Bottom}, {1, 1}], InsetBox["\<\"t=1\"\>", {1.2100000000000002`, 7.54}, {-1, 0}, Automatic, {1, 0}]}, {InsetBox[ GraphicsBox[ {Hue[0.67, 0.6, 0.6], LineBox[{{0, 0}, {1, 0}}]}], {0.08, 8.2}, { Left, Bottom}, {1, 1}], InsetBox["\<\"t=0\"\>", {1.2100000000000002`, 8.7}, {-1, 0}, Automatic, {1, 0}]}}, {}}, AspectRatio->2.821428571428571, FormatType->TraditionalForm, PlotRange->{{-0.1, 3.26}, {-0.1, 9.379999999999999}}], {1.1, -0.4}, { Left, Bottom}, {0.2835443037974684, 0.8000000000000002}]}]}}]}, AspectRatio->Automatic, Background->None, ColorOutput->Automatic, ImageMargins->{{192., 192.}, {0., 1.}}, ImageSize->{853., Automatic}, PlotRange->All]], "Output", CellChangeTimes->{3.4516651316216*^9, 3.4516662312146*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ "Plot", " ", "the", " ", "temperature", " ", "distribution", " ", "for", " ", "several", " ", "values", " ", "of", " ", "x", " ", "for", " ", "0"}], "\[LessEqual]", "t", "\[LessEqual]", RowBox[{ "200.", " ", "We", " ", "take", " ", "1000", " ", "terms", " ", "in", " ", "the", " ", "partial", " ", RowBox[{"sums", "."}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"u", "[", RowBox[{"5", ",", "t", ",", "1000"}], "]"}], ",", RowBox[{"u", "[", RowBox[{"10", ",", "t", ",", "1000"}], "]"}], ",", RowBox[{"u", "[", RowBox[{"15", ",", "t", ",", "1000"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "200"}], "}"}], ",", RowBox[{"PlotLegend", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"LegendPosition", "\[Rule]", RowBox[{"{", RowBox[{"1.1", ",", RowBox[{"-", "0.4"}]}], "}"}]}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"t", ",", RowBox[{"u", "[", RowBox[{"x", ",", "t"}], "]"}]}], "}"}]}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.4516665147525997`*^9, 3.4516665710336*^9}, { 3.4516666325586*^9, 3.4516666927306004`*^9}, {3.4516668158845997`*^9, 3.4516669458416*^9}, {3.451668381836*^9, 3.451668382375*^9}}], Cell[BoxData[ GraphicsBox[{InsetBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJw91nk4VV/YN3BkKimlQYUUCfucY+YQztdwjqGi0RyS4SRzxiJEhlLJlCKp VIZKNKhEylSK/EolkiEV0UAkCs/qfZ/r2f/s63Ote++19l5r3fda5eq3xZ2P h4dnKy8Pz7/76uNTF3Kl/zOQr+OrSv3LRLmw4kofbgnrXxsPjw4ehl3LV+A+ YPH8r9O0+hxFjzX8X3u9SoCnIPc5K3fm38VExOKZOzN5L1kKLv/fmalsg79H 37C+X3j3/1wyP7nm974O1qZFMVP//Dj5hdmYZxcrfmJk4J9/xM39HFbUw/pv VC3hnyNrShTH8z6wztDvyk8Tz+Hb6h188iNrke6trZP/3o9f134e/czKthKO HSaWjTo1HBA3wFoUW9XTRXy9Uk/jx75BVqiNumU1sd7frhDfgK+sFlvlfcnE T3Rj7w55fmctsLGh9ImL9cQPaJb8YOme0ElunGZiuMPtbFDRMMtL2iuGRszc f7v6xsURlkeC6YT9FBMHlgv3juT9ZC3RPqpiSf5f7V27WWo5o6yzMV/6pyfJ eO2K5QJOjrHMUyROeEwwsen3X/b11F+s14IuzlHjTJw8aen5/eg4K7Fpo4vJ GBPvtfISGUm/WWpbi/eXjjAh93q40CdugiXx8mVAzXcmvIKNn16JmmQ9yLd+ GTpEvm9RxtDgvj8s18aM0Wf9TPy68UmUCvnLajdqeP+wjwn9rUxlr4Ap1iK/ MJZ1NxONJzoC+j1nWPPu5g84vWYiMSvzSZoqDz5IpCm9amGCxmXZq5fw4Ldg 6vVvjUwECp3YH1jEi+plf0PEq5hY/EZn7kIFPiTVBVvKljNx51JvTulFPkRn ZMZ0lTAxzdao+pE3C44uIdOeeUycW9xpmSLND5eaNYK6WUyYfDzUpZzDjyzf qtc1x5k4EveGx++kAJAbWDPnABMSNfuMvx4VgkzNuhd3bJioSJVtTRYRxq3t r4ezNzLh5PrMjZYkjGNHWyQsjZnI55WO3xM3G4se2a1SYjChioePB/aJYN4B bVchPiYsKoUsP3nOR/qBm2qcfG2ozriOLfkxH9rv7rcrndRGsoxzs6yeGLpm bU2eStJGkOu94G21YigoXeUW5KcNk0/+tbdaF+Ada0fCax1t9H7t3Bk2Jo7L J7Z4nG/SgsxUec6UlgQ4vwd6J8Y1sSjX/cfi/RKo29tMDX7RhDBL3ITxQALM uWs+fu7UxPdo30En02XQZxZ18Ndqoop/jW61zXLYZ2kyWlM0sWNu6puDYZLg M1/8eIymiSZRrdn8O2Qw9ebrWnF/DbxYvzCrOUIGba8GmbHuGmhL+iZ/KkcG wQsUXXgcNNAncNmE8U4Gaaf/Dq7iaODv1NJoW4dVcGVTJbxSGlD6NvHrit1q FBhJP1VuUkdic2Xfdms52BSIDoppq+PY3NN7ZULksPxmnoYEQx3pFiF8gxly KNv4/gy1Rh1n6xky0a/kYC9leS5EXB23q846FG1bg8dldXI5P9Tw8VrMi+kt 8ujwsy9eflUNRsfZ1ZetFOAkkqOYwlBDtMXNwhe+ClAZ1e1TXKuGKgHZtKmj CqhJs2ppWqkG3Qgej63PFJCYeneexgI1qO+uEJkxU4SzT3Nv2Kgq5IxVbayN lCC/4+LXt/dVITgu+Y1fk4aKiCfM4m2qMCk78kZ5Gw1p5WOcYEtVHPSZrLbf S0PeML+smZkqpj+8SbteSoNIdcZyYT1VjLek6jgy6DDoX9z7XVYV/UXCh26s ZWBfW1n99jEVuCtPiqqKqoDR/SJOI1cFGzoSLkpIq0Bj0N4pPYvcExbr8yir oK3KfcVUqgr4u1S8n29Sgeu4rdhAggrOH/Ns9ElXgbr92GnFQBV0fW2NL1qh ivcnEoWNzVRgd6VkRlZJDQOtm7BgTBmw1T8psk4N82/PzeocVIYC/1PGz/Vq kArk/XanVxm/HT7teOSjhlMW8kY5LcrIFJG671KqhmraTSvxq8p46XU47AxT HW30oMBSrjI2KroPLzHVwK3ZWlbyXxiYPBJc0WmtgSK6QS71gYGCb4cO5Xto wM8i5dO6dwzw37y0TC1eA4eckxUjmxm4Z9BvuLFOAyphPQPRNxiQ37YnNdZY E+EdaxbGRDHAExWg/oOlhcAVosYCKxm41hMzddtKC8EH5opbLWPAwSS1IdJZ C3OLphjnxRm4PfuGg0iUFmokpJa5CTPgnT4aK1+lhW/fPZy2j9DxtjC01VFP G3c+C0t/aKCjrDUy+AmTCZ+4JQN24XQUHHJz7TVnwm5SSWVrEB25Wuut/tgz 8Ulzf8l2PzoOZ0ko0iOZUJtdIBPiTscuxxvvUh4yYcBcZC27hY5Fff3GthY6 sGlNPSZLp2NOxnOVAAcdVOVUrylSoIOHc1vqsLcOfNMy5XTk6Bi6HDtecUwH mx/sXeu/go66PdLFK1/q4LEANYA5dIT83Lrws4MucmTinrkO0OCdrzsz462L IXMG5fWRBtftq4YkDujC7Gy7angPDZbl3+os8nQh2HBw9rW3NKzdnxR+rU8X WnqhFwMaaWjje9Ad7LMOtT7endZXaVi3UKmEP0oPJ6fP1luG0dDMa/+k6bge 7Jx04kyCaXAZTvqQmaeHKOc5TgikIa5lYKniIz3kNw4ZWniT+GOF0RsF9FHm kN180YXEiyhuyTyiD566HqMgCxpGJm29nXP0obLS/FSDKXn+S2K8wlV9tJq1 RMmwaSh80n/vXrM+LmS87uhlkfiEAtmuBQZIF/fvLyD7Lo5fYWxtlgHszukY qK+mYcmozfzhAgM4+n+p6VhJQ8GHBMV7dw1gc17DLkmKhqZHn3ds6DCARPJI 2k8JEh9zud5fmoXwZSPBs8RIf1PyWXfzWejZucBnzgwFzz+pZy7aAjYZHwxj uymkWw7VhLsAWzwmOzvfU6g+x/6ykQuIrjWU0uukIGH2W+tXKLBg+z7/We0U HqfvaOGcBJRed7Tdf0lBkaEwq/8VIDXhYvi6gYJ1TIzi/U5A4kZRMbeewsHW dquUj0BvSjZ3upZC+76jOcwxIDpfo0H9EYXDDSOaSYsM8ahy5ETdfQqDLpVc pa2GeHgg0DSmjPR/c8nxaXtD+Cx/fplTSsFEyP/WC1dDrM4tEJt/nULO1dV8 +wMNUTK4/EvBVQobJhOyn54whCSDZchTSOFq2pZm7xZDGIrtrdTJI/1/Kh5F myGcWPNy6WcpCOoKrFjcbYglT7qN5HIpOHWXe1Z+N8SChs7Hy3IozKNL8c6b b4TjAUbb12RR8Kv/rF6y0Qjeyfsm7qWQ/4Ure2jWRtCQZm6pP05BrML/QqGT EYTjQs61HqNwvWRiYb6fEWj6dmKTyRRGskRGsk4Y4fwHv2LPJAohe5SvH3xl hIDk7sYnBynUf/z5eabTCBMLdjnyES91ubMy8pMR6M582foxFO5sMzweOm4E pVzZefejKEzob/X1XmaMCnuFrW0RFCLEQmnWO4xx6fq2S4dDKTw7vM7tpbsx KgP+zBkKoSAlwJOzydcY+Zcq31oRV00kiqyPMoat26WL0sEUeD6c/sI6Z4ww uaeJbYEUNu1wXl1ZaIzU9Z+ebyA+90bWXrfMGNHc1ztrAigYPbvyRKPGGHZ/ pqzL/SnE3qoqUPxojDEZSal7vhRalWO7L301hrD87s0glisylZD7ZYxqVnHZ Yx8KtbktCdJCJqjoPPS1y5vMR2Kvh7iiCX7O4+leu4esD3vBNVPeJpDPjsxf zqVgoDL310CQCeIldV82eFIYFljY8DrCBLmNP26HENuWSu2+nmwC2WcxqW89 KKwR1ry66wqxUrDVDXcKbZ26BzbdNMHSdKrDhzj5Bqz075tgz5eLgkrEI04b hpc8M4H5whS1y25kfm/t0mwcNEFLd37mzV0Ugo7sFiz/SdpFnrXtJ1670+/N hT8mgLbHJRPiY3P3h0eKsBHJEG1vd6Vg2Btt4SXOxoSV8roC4tHy+BU2K9jg LvkuFUrssCu1UoViY9LrpNMy4nk6Wcek1NmoN7xePrSTwqN5uc5z1rEhymlI fEiscK+Qt8+CjWMvgpL8iH+JPWSf9GLjdOXamncuFIo+1S+JC2RDLDnodAXx jvvPPvvvY0Pzs9SbbOJaz7Yki8NssM0CQ12IQ/Xf22unsqFDy35tQqwk3kfJ nWYjb5NkqhLxiarvTVOFbDzfxF486Uz2X/pY7pdSNsTbY9s+EP/e/cfvzV0S /8v0ezNxMYvXsPYhG7vPuNlUEDstFlpY+oQNgacl8wqJFw7O/XDmPzaKI/nE s4jrqhfePPyWDVYp0zWROCxT4lBoDxvWDqqT4cQ0b2lrtwE2LDyb27yJuw3l 1m4eZmNz2egfF+K0pUq/9SfYSBFK3mlNzPmq/ESJlwOWZJTQRuLJR5qnl87m oOVIxaAJ8bWsdXv4F3Ag1qo614B4p6+h3rAEB3abX3kwiReZmIq+l+GgVjdn Qp348bKN7xsVONiVG/VIhTji+5aSchUOQnbsf8AgVq6zjc5ncnBT4dg3OnHv aafNJ8DBsYi7G/+1Z/q7rT5gxkHQGd4OZWJzjtdPr00cMNJ90tWI/67wr7Wx 5UBBSShMi/j6cHCGiQsHzR/bY9cR72rY76HK5WBQ8PctQ2I3PXnLX34clDy8 2mdG7FHaolkRysF8WrLSZmJP+f1S0VEcdD2vP2RPzM1eI8BO4ODj1bRRN2Iv sZah2cc5uKhLBfsT7zm0r7U5kwO6w2OBSGJfv+cXbC+R8YqIbDpF7N8XfkTq GgeR+9UE/81fgJ3c3t5bHJzW2VV3lzjIONzIu44D47PTNu+JQ+7IKqk2cZBJ n147QhxKb17wq5UDx/9UJgXJetq3VLYnqo+DmM7AXHXiiOSmxyZDHKS2KPqs J47kDbs+e5QD335XbTfi6MFnUWmzTGHTVFOeRRz/IET68mpTaH7M0hUl6z9R Y5Wgt5IpWrmF5TTipMKnX1XUTJEkaCq7kTg5TabynqEpemTfPkghTvVsdGh2 McUi97O9q8l+S38XZJzGNcX8ZqsCc+KMzSspW39TVCfIbQogzloXNNkTZYrz PxioIc6dL31qLNcUy437QwPIfs+Lexx975IpPok1yZ0lPjcRyI26ZgpH/tHL TcT5Hxq0Z1eZ4vY8A4pO8klRecBryU5T3NpbNDVGfIUmWdXTZwqr6XCNf/nn 6rn6i5eGTDGrXEnLmfj6kRXBKn9NMeGbn/6U+LZznbjJCjMMR2acvEry20Oh ZZv32JnBLf1gYgbJj58uMCze7jSDdG2teQfxXJgYm3qZAVrnu1ftJvkxzE9T dr8Z7rSUJZYSf++vW9aRY4Z3sMpo9yL1oTGw16LbDOWxYYZbSH4OT362V8nT HFM1np5NJP/nKvR6Z/mZo3hnQp/SXpJPasfdBcPMYRv1XCiJWGxqtW1vojm+ HoxcZxpE4bJPuN7pInOYTkPtKakvryzlBeZ8M8d6ich1P8IoqC6IzhwIskDX A6b4JVLP7gm/UWiIsMBDzoDrvGhSX3gYFflxFsia0F0VSrzte0eXc7oFyuOV PpmTehjSpK34+oYFbig6h42Senk/6XvFoxEL9AYG/nGMp2DG59yT7b8e7YxD l4OPUnD+qU+z9N4A37Zv906T+p6XWyc5ftQSPGpb+PdWUyg7ptvxYssmNKj1 PS78SGHvPf1NZzZshuTMxVOlwjRUNV4cSXLYAlVRZbNpOg1cU53K3bZbkfTN k3bEiobsAtVbe7y24dGKA3dWkPNjys/KGP/Q7djA966BL5WGj0XBIdxAa9Td USvoIufRGk5q1sGDNjjTpaHDS86rPFbtvcejbeFpYRfv2EvDDG7z5oXb4fPu 47MO/aYhYen4xhcJ9nA49c7m3jw6/Ox3PRqPdUBqvfWBV6vo6I7RcGNlOKK4 Z2NknwYd4mmn2pPO7UCBuLuGKIeOi2JK4Q3ZTuDQD12u20ZHdeBK9tpiZ9x/ 7/vOfxc5/8vkSepvc8FCybVlfP50VEZM8nBbXCCsaBXouJ+OVeuF/sra7MRv aYFrV+LpuPlc8cjb1p1QE3DsckyhI7l+WkVmhyvG1u9hzpyiI23vgJfLO1cs 5iSbGZynI2Kx9PzVdrtw9FtF5rVCOgoVBRqDundBqTZebEkpHYKjvMseOrlh 3ddbjt7ldFxWKT2Q+9kNpR6xTeWVdCi6FllO+bjjUPrMyI4aOjrM75ZtH3SH I5/mLfXHdLy4sI/O2uuBNzVhmXxNdPy+sVlv9YgHLHmk3678j46ZO4G34n09 kbv8Te+rVjrWq3DYEWOeUF1XUJfQRkfDDuXde/ZyITbmwyrtoGPhLm7FmWAu hJVP1lcRO3HPibaEcrEbt82eEf8KFC/TiOBikVen/mdiucTxyak4Ln5r8Q9J vqMjuuxBckomF1ou2+wSiHWFNl2/dZcLL0Z3nG0nHfFzk/j6K7gYyrfzdSf+ b8GjbcuruNAonLU1kJgrqTFx4BEXGXE/RJOJT6pKGJk95eJmrLPFA+JRh+6X 7e+4KHOR6ZJ7Twd2LpMX7eJiVCUsQpX4iMeWMFYPF7r9kosNiFcH1Ermf+SC LrKNaUO8Ob7A3ecbF3UThZwk4pwjPeVnf3DxovNUVQZxf8ryOS9GuLif2ad6 njg6O/ma1jgXTQEn5lQQP8ur49k9wcUVoXG/BuKll6a3ZP/hot2uquUlsWux 9sWmKS6yZAZo3cTXrvuPz8xwESseHjdE/D82JT4i "]]}, {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData[" 1:eJxF1Ak0VlsbB3Az4TXPJF4qhEzh4PT+EyqhiBKlvMIJmYriSnIlMkSTWyEl YwMpdW9dpLpSqS5NLkm5SIMhEg3y7bfvW317rbPO+q291jnPep7/3trcCI9A AT4+viry8N7s/VPFhZqtC5s07rs08FG4IqY/awtTxfk+zVvWaNxx/rQe08Dh +7EoHLTsXcfKvv3TTSZRwSLMw58+csBx4besZz/dnNm2dDy4+//7+HR+LOv1 T9+x+fWP98HDHL3/OVFNrGe0aIzznvNf5+W5BQ9nTXCsdaV+WPfph4otKZ85 MmqLf7ha4fD7d/FfOevSp3/408V+1rzYbxzlulZ+nulV1vNDoqY42Z/nC/Kc Mpq+siLsOychJkCY57u5nVEDwdOcxHutYjyn/XbkzkFTPtiYCEnxbMhwfMyr +JDFVCny/NBq4G2bIT8Kff/U4jlaNPeX6Ep+qCu6m/Cs+IySlNMTwCmRDkee fy/tyb9QIoBQT/kAnn1jM4zcdQTxdVJ2H8/fHS3qR4oEIZLlUsfzScUutxxN IbikFE/z7NC3p3t+vhBEahlPfuKBS8aRD1WFESIc1MBzRsozvog8YSRo/+sg QGzsmZQrpSiCuezKNzy36eizzx8QwSNFiYuCxDFjrTWuMqJQ9X9RKkSscjN+ 8WCWKO593HNPmPjaAZ3HmRJiUFg3OFeU2I/bsskwXQyHKtNuihHzm8WM3xOZ gVurPUrFiU/za6aGpszARpnmdkniJa1NShIC4jhV0h8gTfy2KKKscpc4dCVn u8sRZ0eqWDtPieN5cXilIrEpGpvfxEsg/p5GvCrxY+mQtemTEpjoGr47k3hH t9xbvVhJfKwWLWcTq1ddi28ek4TNmU4NPeL6xE0STBQLHelmC4yJ/d1Y+aLD LPi8UZ2yIBbSvGxYFiaFxWVdSXbEZYN+dU5vpTBiPN3iQOxcJ+rWHywN2ZuG Q668eqa540oj0nB5mfLImzhTa8MDHTsZVEo9bNtEnNQoybZLksFQzIlvUcTb uFdjPG/JoOpInn8SMSPI3AkTk0VPlI9cDvG604oz97jI4rHO7lknefPsj7xV +1gWn+a9z7lNbL1XU+WBihykeloVu3h502sJ7V8nhzj95dYfibXuxDV8L5LD k4VzxVj8FORD5sor98nhftboobnEIhJPgubry8N9yfDgYuIvZ5KvLtkiD8kD Umwucc9gl/+OcXmwshq8ThM/zc6ozaEUILBic1Qz8d351IyKnQoYMV9XNERc E3Wo+h9hRShYt4cuEqBQKmcvNLpMETdl9LXDiY9dHF4jnq2IYTFX9QLi3ePO 0zZKSoiXOiUuIEj6cWTSY5WPEkoMRhWsiRmr0tLQQiV4hrtnRxKvjON3y5+j DF13p7EBYq2pK/lTlip4ZlkTPilEQaEwcETxFxWYSyd32QtTEOPIOxg3qGD/ a6PP+4mHk8Lf+S1RhVCgtauZCJm/0Gyb62vU0Lwz+G2eKKm/pC2r/bga7nBP Ok4SlzolvRrpVsPNeQ/CfcVI/tI607QZdaRVPDY3mEFhveSBZ8k7NLBQ8OGF N+KkvnOcecf/1EBN5snyjRJkXm6DiRf5ZuLQ9P2YDmLDnKVzetNmor1obu5T SQrf5Ke3OR7VhJVW2LkRKQr3WZYzhNZroXjlvguV8uT8LZf77UGCFsZ2eHgv VqDQnj4052i+Foa91b1fEPcKlzkYP9dCm2uQl7oS+d6UcpK3rzbkS079W61C wWDo86eza9k4G1jQ66RJwcTw6Z7tcWzo7THxFpxFwTKkRsH+KBtSHR29jcT2 /SFmz9rZ+LJI1spRm8LaF51b+L11wNf1znaTLrnfHtT1eq3WxXqzPQenDUg/ JI9t1YrVhYtBhF/nPAqHnGMF3h3WhVrzyvHfDSmcaDLWSnqiCz8j7a1xxhQu 15/wrfScjcmeTzrSZhT6zu9u++4xB7XfEkTSKfL//Y7Xy1bowT5DpffQMnJe nC9VtIXrYZ9O3vbjzmRewjoHp7L0wNVda1a8nIJNAl/QqhY9MBXqrMuuFMw3 X5OYXqqPqnMBfQPu5L5fbLpmtb0BpqSVynf5kLxPaAwJLTDEV6p52ZowCoHz v7BMWSbQ9zicPZFLwVU/8IPSEgsMWzs9DX9N8vB4Z8wda2uE2hSzsixtYCtn UCW0yw78xjtj1dJsEPz1QEGJN1Cx/W9WWZsNIppem1e52qPJtsVNQN4W+3xE Zk+FOUCqLcx02SpbBNz+JciUcYLosdqq4H22aBRVdQ9duxSrvOUrDf+0hals 0pE325wRfSGjr3HQFhvGaEO3MBdIcVPjzFXsUFT4l8ZElhs6GkNSufZ2qMm2 6WzzWIlq6lYTh7HD1qv0ygIXd/B3VbiXp9mh/m7JaLqvB95H9c1+XW4HZglV t9l7FZ43Xh1OvGWH4+WmtaEhnshZpu3Q122HnLG63ZHbvRBRIDweP2mHvsqY WCZ6NViFIQv2sGjcdDrwW3LyGoz2c+lINg2+FR09+5O8kXvdx3K1BY1pXOYv iluLwkjvi/EONPYqT7i27fWBy6wCx0xPGhE+ATcmfvWFt35+rAuXxsvdFps4 h9fB6ANVMB5BQ/7g0Y70k+vBtRuTtU6gUSJjEHf7uB/iKBudy6k0rkfPcpx7 ZgNapx68mp1Lo1CrSIP23IixmDsSCsdo1CV84WP+3ogVhe3u7FM0tJeLftNZ 4w/Z7ghNvUoalx7qZ/zz2B/1i5zrhS/QyGz6bqK1nosKI6Fz7VdoHNz6JmTj cy425E/4VdXRSFDUlGavDUCMksSysRs0KvSF7257GQD3nt5ik2YaIh/5VRv9 NkHubcqOsy00ykwuJBa+3gQvK91YrVYa+txKt6ktgbj1b27wrCc0Opf9UeP1 LhD3panufe002orjjThbg0huQkI/dNKYvOhuxx4NQrnZkFvHC9LP36NrU8OD YXF2Yl78KxrLTZwcE8aDIbgiSEG5l8bt9fM3h25l4Opnlbyqn4ZcAHOtIIbB 86/m8uuJ/ZiTrL+3M5BUKCoKIv4ULV9jkcDglWBLdRyxbtrEl6kUBudG80pP ECfVNGTmHGGg8GXOm7fENqIrq2v/YNCazHmU+JpGqmS6wMA1BpsbLn3cS9wq e8NTrZ7BAuGbcrnEjIbF58QbDGTrqxyKifNMVeyX3mMg4jS46zbxR9+Xjzqe M2gwkvOSHqABf9U5rG4G6kpVUCHOCPLYwXnFoFv5s542MTvqlsbpPgZc36PD ZsTuqeWBW4YYtEcbea0mzs94deXECAOrq15zNhAP5KiJt40yyPpk8TGYOOl4 5nnLCQbm5jNT44hbiv7i2/yZwcBpPedkYuXS7x7HvzLwHxoWzyDmnrEquT/F wHDJtuaDxOerIyempxkE919Ozif+D65rbDc= "]]}, {Hue[0.14213595499957954`, 0.6, 0.6], LineBox[CompressedData[" 1:eJwt1Ak4VVsbB3BkKnw0KBqJhCtTyDHtv3POPkRJogxJ5pMhU4aQoQwJGSoU iRtFyZBmhRBJuZIM6V4lY0lmpfDt7vet59nPfn57vXs97xreJengZebMxcHB 8Zl6fr83J81fzd74Wm/tWLHFGR4a7vPLbfJklxCL/zZNPA0qzpNlVxEc/zYa zmn0HRQ620Bw/t/1yj6uvOy/iNj/O1R08cFizhuised/Tksl9X4ldhD9ESr/ ukQ4ofZ7cDehcCJsyW8/T2g1nHbtIZYv7dn422NRgoNBNz4ShcKbCn/7RG2J 3GzOJ+KxVVoaF+VlXPs8/NP7ieAQ9XG+3+NjpngycZCYnEk0XEVZKvziuE/U MFEWIjurQLn0iY7aWPAXIiF6o4IVZZ1fPQFHfb4SgaYHKnIpN2qdejji+o1Y F2NWK8JJw02dlWHqJWPEJ9cS7TLK491OV47dGCdy+HnCznLRoBlyr7o8f4LI 9VdvL19CQ9ha/t6JnEmiKNxzswK1fnUPrZaoZk0R46X3Yzj5qHytbkr7pE8T Lll/q+kupcH0+y+yNHWGeHuQZTAoQEN6uonrt8RZgv7BrohXmIZ/NHJOK8Z9 Jx5VFm7KXUGDdPt4oWfUD+KWgM+2itU0uPkzmorC54jp2zF6luuo+a26MPIl +CfhX3a+MFiChpnyAaE/An4RXDrrn0vJ0KC7T1PJzWeeKE8/I2SuQMOLlG6f IddFwsJRfMRAi4bTGWmN51Q4cIHhXMdPp0GBTVhvL+FAf9J2L2MjGnz5UkJ8 b3BiXaGmjPFBGkQ7aIIrZLlwfJPNM04XGh5c680qy+eC+Iv6E9u8aVgg1SrH cpZgYWCyuS2ahlzRv02SN3JDXbnJ1jCFBmZ/dI9SFjdE1ybxSl6mIT6qg8Mr nQfuH+1Gx+7SIFYbzPiayAceoZKutC80VKRKtSUI8MPZT8Cg6gcNhxxeOinE 8eN1cglDgV8LeZwbY9yjluLgtxTuZ1u0oIKnz4eDBVDQksJIctSC0RM+kwFX YfB52HxrGaD6Fx2mV48J4/i7BHf5H1pIkLBrltIRQdfW90KXBbRxzOGRv3md CBYey5yoVdYGc8C77m7bcojKs56+CdFG79e/7YOmVyK+ltfMdKUOJObvZ81r iOFzTPKOY3q6WJXtPCYaIoZ1LUvvPDbVBT+xkqlYJYbN/GuIaQddfIs4+uWQ gTjEHl7tUovVRSX3Fq3qA2shZV3H19esC1vB1I6TQeuRXFTqUGeth1dCGku5 bSWQ/fJXZqgjgVbjFRnNoRK4ZmJWvsuXQGfcqMzFLAnIBHC8XBZJoI/nOlPx vQR0zlxeuTebwK/5NRGWNpJwfitRwttJQH70x0yR1WbYadAkhKWB081P+iz2 S2N3reb94kTgrOAlP4kAaSgYz//JeR44bxTA9eWCNIqDn7N3XQKu1CtKRLyV xue41QWN14B7lVdsbphvgXTX9KJjFdBfHNm6YCYDp+KcGIlvAD2JrL6+RxYa u0tV5g31EWF0p7D1qCy4FWKkGSb6qOSROjefKIt1vLnuJ/fpQyuUw2XfS1no lFut/Wqrj+1HKgQWDeWwZEZsws9XH9IMlQP76fJ4rNGusueSPnhn149yqyug OuO7cWC/Ppi34zuUzBWwze+01/dhfZz0nKu29lOAfefEpN+oPhY+dZwrLVPA EldzPetZfcy2pNIOKm7DacXpkj5+OoZu8EeXb1WEWKrupVl5OpyV5oRUhJSx 70K3iKE7Hbu6Y/PFNiojd1hHMNCLDrVYUV0OJWUkatUE5vjRwd2j7PGXqTIk RQ5V94bQ8edZ1xee55XR/oZvfksCHT1f22JurFMBzTZfqvgmHVZFJYtS8qrY 5sm8NDdAByx10wW0VXEXGhUxn+mQ5W5SnDRWxcTgsO5/Run4bjNgW+Opiig8 PSU8TUeawIbHh8tUEWLF8aqbi4E3bmeCLmtuB//ig+W5GxjYLec8vtpADTrC i8rLTBmYi/ev+Hu/GmxaJ0K7zRgoGI2OznNRg8A2c69CCwa471wTV41Rw5hI uJW2DQOP9Ib0dz9Tg6ZoT/UOFwZkzN1TTzHUwZp9VZYWwgBHuM/2MUIDqvXj UcvyGCj+GDl/b48G2nnLvgZdY8CGmdpwwk4DYcu/RvYVMHBvabmNQLgGuCSm tctvMeBxfuqUTKUGpBOeH1K6z0BXYWDbQZ0d6JvanJrfyMDtthP+jZqauJn5 z44/R6h8o50cendqoic7Z354lIFsDeM9P601scTyj0nFcQbOZIjJbTuhic4H 106UTjPgeLD8ffJTTdREKIWnLjCwqm+IYUnda7JuFzPeCjMRMLlvxaCNFv5j e0HUV5kJjzytxUUPLawyKJV3VWXCwUJyRCxMCybefX1WakyY3B99ZpSjBZ+R DgtNTSa2hsQdL+7TQnN8UnQXwUQnV9UHf09tvLlvMlxiwoT2CvkS7nAdVFbI b69xY6KZ07rxVZIOvjuLS7h5MHF4PO5TWo4OXPZabRE5ykRUy/AauRod2OxT PLXfh4o/Wxixm0cXwxZcbS8DqXgBObO0eF10CTb8so+i4rllp7dm6KGGl0En sphYPXVAeLxAD1dlU38WX2ai4FOs3KOHehCSdhbfcIWJVzWDtru69XAhUDt+ KpeKj7xe772RAJdN6Knk60wUzstkPMwj8Lim41LYbSZcf6ZezrcE1hbuOKrf wMR5k5Ha44eBOv8P2z2eM1GdS37ezQbk7QpeXGhkQszwu8ZMIJAl6OPT38TE 8/O2Lax04Phs0MuAFibkFGWXDL0FapuKZxy6mPhy+Albnqr7qhMZRW6fqf/v rE5asNaHkGuLoe8XJph83ndbHfRh2hv4MWiEiaxbm7lCqHsgYc0yoVOjTOya i81sStGHg0eSV/wEE7fOmTV7tOij/rOfl+ccE171g9tLdtOx41K8X9hSEtUo clfYT8fc0sTEkGUkRCq8rxYeoiNiLiU3UIBEacmPFXlUXUvHLj72ECIxkSEw kZFCx93PRweMlpMIcFcqPfmWDsGIm1s6xUiEigQq7LdlYOmDY3zEVhJnrHm3 zFP7am9u4xKmT0JPWXBm+Bg1D14TWw06iXGeFQ3toUxc7P2n+Ctly7INR0oT qH3xGnKyZpLYwq9+y7GIOjf7qlUUDKh87zqqv6DWYWB74FTZLhIzIk/JdDcS 67VerzM+QMKxIcRFhc1C1nLMdFLfnXRkTGa8WBgUbRd3cyfhUtaiXhHIQnpy fv0cZXbmFh4ylgVXTu7KtZ4kjnr9ddXyGgsWTZtULbxIBK+R+hjex4J/1pOc O34kUl1f2DQfNsAjCekFiVAST/nE97pbGSKoRJOrMZ7EwFVFoy57Q+w8GcY0 SiAhCCbDwI3qV7q0vomyZZCXulSIIYSy9JObEkl8G3om3p1lCI/ustSGJBIb Xvj2Gn0wRGUgn2fRORLHE176ybvuxFGppGyFTBIqyyPSho8ZgZasZ7ixkMQj /g7ZhlAjTInPmEdSpnMoVuRFGUHu6db1fZTNv3X32J03QmWqWHfBDWq/Xu2Q ay83QgT/7GalIhKP475V1EwYwUy3ao1SCQlDLruPmd7GCOkZ8li4Q8JuUlfB xGMXdtuWhw5VkcjJfrZ+NtEECaH8Wc/bSNw+q9XdamYKoYIYTvoACb9HuqaX d+2F+pH0ebcpEpUv8ifibMxgUxgl0s/JAtuA9uSI5T7sSHZr4BZiIbNA5a67 mzkSfnolV69hIXnySaR3oAW41AQk5SRZ6L/hH8D23Q9PIi91hRwLtazUjJMn D0CtLqW2TZkFjj3vepMiLLH6sEWv8w4WFnGPM+e4FcJNI3tIXRZi18zubo21 RidPKEuUwYKXtWPN7CkbPIi/fJXPkIUPkWpOxIWDqM98XTWyi4WV5y6+i8u1 RVICs2n3XhbyReSPN2QeQsjzPG4BCxaqfTeRW2/a4YP6G4+nlixkS+Ss1zU/ jPF5g9ivNiw8CZ3jYLccxtSK6/sbD7Egacz3S+qAPaIHV8fl2rNw5y+5+K42 e8j/U2Mq4sRCQv2CsoStAxS6hBeDXVg45zfsdvi9A/RDqqQSqHMcKrpReLOV I2RO1yoecWOhUI7nxbEPjtgUF9rE8GCBd4pT/OkhJ7y5Mdvd5cnCdeWysOxB J7T1S4h5UudezuGGybynM3p/aH9q92ahe+fD2xZfnBHpqB4u6MtC69XgbYSf C/553WkJPxa+l+/V2TzhguirvlUGx6j1fOB7N+aoK9C0c6+6PwvGyiwydNoV ju3v3koGsNBgq3TE3Y+NY1WbdEYor3BkV1z2Z+ODC1/2N8qH2LlCLYFsRFgW LUxQnvFdeVstlI2kn0qPf1CWPj07Nx/FhoPdH7J8VF1G3K5KSE5jg2PRuk6S shafaendh2xUp3SI7KccIxjHNVTBBtvIxNiK8uvlNeZrK9kw4kqJOkiZvV7t R1gNG6NaoZMOv+tcRYxu2MTGG/OZGi/KUzYf3rx7z0Zfw3vZOMqwF5cR6mGD d8TQNIFyvItZEPGRjWHZ0wFJlDf71K3P66fyvRVZdYHy3pgCZ89RNjw2eDL+ pJwV//H+lTFqfEaYfT7loeS1y1on2JhcdA4r+D2fzIRijVk2aqYe3Smm/DLn GceRH2xULJNrLqO85tqCWeZPNpb4eA3coexwc0f+q3k2Oi+cnb9PubjUe3Zx kY09gzErf99b/wX88F8j "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["t", TraditionalForm], FormBox[ RowBox[{"u", "(", RowBox[{"x", ",", "t"}], ")"}], TraditionalForm]}, AxesOrigin->{0, 15.}, DisplayFunction:>$DisplayFunction, FormatType->TraditionalForm, PlotRange->{{0, 200}, {13.68589730725612, 44.93539661490524}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], {-1, -0.6180339887498948}, { Left, Bottom}, {2, 1.2360679774997896`}], GraphicsGroupBox[{ {GrayLevel[0], RectangleBox[{1.1500000000000001`, -0.45}, \ {1.880434782608696, 0.35000000000000014`}]}, {GrayLevel[1], EdgeForm[{GrayLevel[0], Thickness[0.001]}], GraphicsGroupBox[{ RectangleBox[{1.1, -0.4}, {1.830434782608696, 0.40000000000000013`}], InsetBox[ GraphicsBox[{{{InsetBox[ GraphicsBox[ {Hue[0.1421359549995791, 0.6, 0.6], LineBox[{{0, 0}, {1, 0}}]}], {0.08, 0.08}, { Left, Bottom}, {1, 1}], InsetBox["\<\"x=15\"\>", {1.2100000000000002`, 0.58}, {-1, 0}, Automatic, {1, 0}]}, {InsetBox[ GraphicsBox[ {Hue[0.9060679774997897, 0.6, 0.6], LineBox[{{0, 0}, {1, 0}}]}], {0.08, 1.24}, { Left, Bottom}, {1, 1}], InsetBox["\<\"x=10\"\>", {1.2100000000000002`, 1.74}, {-1, 0}, Automatic, {1, 0}]}, {InsetBox[ GraphicsBox[ {Hue[0.67, 0.6, 0.6], LineBox[{{0, 0}, {1, 0}}]}], {0.08, 2.4}, { Left, Bottom}, {1, 1}], InsetBox["\<\"x=5\"\>", {1.2100000000000002`, 2.9}, {-1, 0}, Automatic, {1, 0}]}}, {}}, AspectRatio->1.0952380952380953`, FormatType->TraditionalForm, PlotRange->{{-0.1, 3.26}, {-0.1, 3.5799999999999996`}}], {1.1, -0.4}, { Left, Bottom}, {0.7304347826086958, 0.8000000000000002}]}]}}]}, AspectRatio->Automatic, Background->None, ColorOutput->Automatic, ImageMargins->{{3., 3.}, {12., 1.}}, ImageSize->{Automatic, 468.13152761805213`}, PlotRange->All]], "Output", GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{3.4516669869916*^9, 3.4516670902446003`*^9}] }, Open ]] }, WindowSize->{1264, 679}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, PrintingCopies->1, PrintingPageRange->{Automatic, Automatic}, CellLabelAutoDelete->True, FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (November 10, 2008)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[545, 20, 261, 6, 52, "Input"], Cell[809, 28, 4716, 104, 316, "Input"], Cell[CellGroupData[{ Cell[5550, 136, 2179, 54, 92, "Input"], Cell[7732, 192, 36678, 634, 449, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[44447, 831, 1604, 41, 72, "Input"], Cell[46054, 874, 17738, 313, 496, "Output"] }, Open ]] } ] *) (* End of internal cache information *)