(************** Content-type: application/mathematica ************** Mathematica-Compatible Notebook This notebook can be used with any Mathematica-compatible application, such as Mathematica, MathReader or Publicon. The data for the notebook starts with the line containing stars above. To get the notebook into a Mathematica-compatible application, do one of the following: * Save the data starting with the line of stars above into a file with a name ending in .nb, then open the file inside the application; * Copy the data starting with the line of stars above to the clipboard, then use the Paste menu command inside the application. Data for notebooks contains only printable 7-bit ASCII and can be sent directly in email or through ftp in text mode. Newlines can be CR, LF or CRLF (Unix, Macintosh or MS-DOS style). NOTE: If you modify the data for this notebook not in a Mathematica- compatible application, you must delete the line below containing the word CacheID, otherwise Mathematica-compatible applications may try to use invalid cache data. For more information on notebooks and Mathematica-compatible applications, contact Wolfram Research: web: http://www.wolfram.com email: info@wolfram.com phone: +1-217-398-0700 (U.S.) Notebook reader applications are available free of charge from Wolfram Research. *******************************************************************) (*CacheID: 232*) (*NotebookFileLineBreakTest NotebookFileLineBreakTest*) (*NotebookOptionsPosition[ 181665, 4048]*) (*NotebookOutlinePosition[ 182396, 4074]*) (* CellTagsIndexPosition[ 182352, 4070]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell["Linear algebra in practice", "Subtitle"], Cell["\<\ Ivan Cnop Vrije universiteit Brussel icnop@vub.ac.be\ \>", "Subsubtitle"], Cell[CellGroupData[{ Cell["Mixing drinks", "Section"], Cell["\<\ Problem: how can I mix drinks if I only have one full glass of \ fruit juice and one full glass of gin?\ \>", "Subsection"], Cell[CellGroupData[{ Cell["Answer: ", "Subsection"], Cell[CellGroupData[{ Cell["\<\ drink some fruit juice, replenish glass with gin, pour mixture back \ until glass of gin is full, and repeat. The concentration of the gin in both \ glasses is denoted cS (soft drink glass) en cA (gin glass) given by\ \>", \ "Subsubsection"], Cell[BoxData[{ \(TraditionalForm\`cS(n) = swallow\ \(cA(n - 1)\) + \((1 - swallow)\)\ \(cS(n - 1)\)\), "\n", \(TraditionalForm\`cA(n) = \((1 - swallow)\)\ \(cA(n - 1)\) + swallow\ \(cS(n)\)\)}], "Input", Evaluatable->False], Cell["from initail values", "Text"], Cell[BoxData[{\(cS[0] = 0;\), "\n", \(cA[0] = 1;\), "\n", RowBox[{\(often = 16;\), "\t\t"}], "\n", RowBox[{\(cS[n_]\), ":=", StyleBox[\(cS[n] = \ cS[n - 1]\ \((1 - swallow)\) + cA[n - 1]\ swallow\), FontColor->RGBColor[0, 0, 1]]}], "\n", RowBox[{\(cA[n_]\), ":=", StyleBox[\(cA[n] = \ cS[n]\ swallow + cA[n - 1]\ \((1 - swallow)\)\), FontColor->RGBColor[0, 0, 1]]}]}], "Input"], Cell[" and we compute a list of these values", "Text"], Cell[BoxData[ \(\(swallow = 0.1;\)\)], "Input"], Cell[BoxData[ \(\(concentrationsS = Table[cS[j], {j, often}];\)\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(\(concentrationsA = Table[cA[j], {j, often}];\)\)], "Input"], Cell[BoxData[ \(General::"spell1" \(\(:\)\(\ \)\) "\"\)], "Message", GeneratedCell->False, CellAutoOverwrite->False] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(Show[\n\t{ListPlot[concentrationsS]\n\t, ListPlot[concentrationsA]\n\t, Graphics[ Line[{{0, 1/\((2 - swallow)\)}, {10, 1/\((2 - swallow)\)}}]]\n\t}\n, PlotRange -> {0, 1}]\)], "Input"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61803 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.0238095 0.0595238 0 0.618034 [ [.17262 -0.0125 -9 -9 ] [.17262 -0.0125 9 0 ] [.32143 -0.0125 -3 -9 ] [.32143 -0.0125 3 0 ] [.47024 -0.0125 -9 -9 ] [.47024 -0.0125 9 0 ] [.61905 -0.0125 -6 -9 ] [.61905 -0.0125 6 0 ] [.76786 -0.0125 -12 -9 ] [.76786 -0.0125 12 0 ] [.91667 -0.0125 -6 -9 ] [.91667 -0.0125 6 0 ] [.01131 .12361 -18 -4.5 ] [.01131 .12361 0 4.5 ] [.01131 .24721 -18 -4.5 ] [.01131 .24721 0 4.5 ] [.01131 .37082 -18 -4.5 ] [.01131 .37082 0 4.5 ] [.01131 .49443 -18 -4.5 ] [.01131 .49443 0 4.5 ] [.01131 .61803 -6 -4.5 ] [.01131 .61803 0 4.5 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .17262 0 m .17262 .00625 L s [(2.5)] .17262 -0.0125 0 1 Mshowa .32143 0 m .32143 .00625 L s [(5)] .32143 -0.0125 0 1 Mshowa .47024 0 m .47024 .00625 L s [(7.5)] .47024 -0.0125 0 1 Mshowa .61905 0 m .61905 .00625 L s [(10)] .61905 -0.0125 0 1 Mshowa .76786 0 m .76786 .00625 L s [(12.5)] .76786 -0.0125 0 1 Mshowa .91667 0 m .91667 .00625 L s [(15)] .91667 -0.0125 0 1 Mshowa .125 Mabswid .05357 0 m .05357 .00375 L s .08333 0 m .08333 .00375 L s .1131 0 m .1131 .00375 L s .14286 0 m .14286 .00375 L s .20238 0 m .20238 .00375 L s .23214 0 m .23214 .00375 L s .2619 0 m .2619 .00375 L s .29167 0 m .29167 .00375 L s .35119 0 m .35119 .00375 L s .38095 0 m .38095 .00375 L s .41071 0 m .41071 .00375 L s .44048 0 m .44048 .00375 L s .5 0 m .5 .00375 L s .52976 0 m .52976 .00375 L s .55952 0 m .55952 .00375 L s .58929 0 m .58929 .00375 L s .64881 0 m .64881 .00375 L s .67857 0 m .67857 .00375 L s .70833 0 m .70833 .00375 L s .7381 0 m .7381 .00375 L s .79762 0 m .79762 .00375 L s .82738 0 m .82738 .00375 L s .85714 0 m .85714 .00375 L s .8869 0 m .8869 .00375 L s .94643 0 m .94643 .00375 L s .97619 0 m .97619 .00375 L s .25 Mabswid 0 0 m 1 0 L s .02381 .12361 m .03006 .12361 L s [(0.2)] .01131 .12361 1 0 Mshowa .02381 .24721 m .03006 .24721 L s [(0.4)] .01131 .24721 1 0 Mshowa .02381 .37082 m .03006 .37082 L s [(0.6)] .01131 .37082 1 0 Mshowa .02381 .49443 m .03006 .49443 L s [(0.8)] .01131 .49443 1 0 Mshowa .02381 .61803 m .03006 .61803 L s [(1)] .01131 .61803 1 0 Mshowa .125 Mabswid .02381 .0309 m .02756 .0309 L s .02381 .0618 m .02756 .0618 L s .02381 .09271 m .02756 .09271 L s .02381 .15451 m .02756 .15451 L s .02381 .18541 m .02756 .18541 L s .02381 .21631 m .02756 .21631 L s .02381 .27812 m .02756 .27812 L s .02381 .30902 m .02756 .30902 L s .02381 .33992 m .02756 .33992 L s .02381 .40172 m .02756 .40172 L s .02381 .43262 m .02756 .43262 L s .02381 .46353 m .02756 .46353 L s .02381 .52533 m .02756 .52533 L s .02381 .55623 m .02756 .55623 L s .02381 .58713 m .02756 .58713 L s .25 Mabswid .02381 0 m .02381 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath .008 w .08333 .0618 Mdot .14286 .11186 Mdot .20238 .15241 Mdot .2619 .18526 Mdot .32143 .21186 Mdot .38095 .23341 Mdot .44048 .25087 Mdot .5 .26501 Mdot .55952 .27646 Mdot .61905 .28573 Mdot .67857 .29325 Mdot .7381 .29933 Mdot .79762 .30426 Mdot .85714 .30826 Mdot .91667 .31149 Mdot .97619 .31411 Mdot .08333 .56241 Mdot .14286 .51736 Mdot .20238 .48086 Mdot .2619 .4513 Mdot .32143 .42736 Mdot .38095 .40796 Mdot .44048 .39225 Mdot .5 .37953 Mdot .55952 .36922 Mdot .61905 .36087 Mdot .67857 .35411 Mdot .7381 .34863 Mdot .79762 .3442 Mdot .85714 .3406 Mdot .91667 .33769 Mdot .97619 .33533 Mdot .5 Mabswid .02381 .32528 m .61905 .32528 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{350, 216.188}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg5oo`007Goo 0P00ogoo@7oo000MOol00`00Oomoo`3oOoloOol001eoo`03001oogoo0?moocmoo`007Goo00<007oo Ool0ogoo?goo000MOol00`00Oomoo`3oOoloOol001eoo`03001oogoo06ioo`8005oo`80015oo`8004Qoo`007Goo 00<007ooOol0m7oo0P00B7oo000MOol2003oOol9Ool2000eOol001eoo`03001oogoo0?moo`Qoo`80 015oo`80029oo`007Goo00<007ooOol0ogoo6goo0P004Goo0P003goo000MOol00`00Oomoo`3oOol^ Ool2000?Ool001eoo`03001oogoo0?moocmoo`007Goo_`00PWoo000MOol00`00Oomoo`3oOoloOol0 01eoo`03001oogoo0?moocmoo`007Goo00<007ooOol0ogoo;Woo0P003goo000MOol00`00Oomoo`3o OolKOol2000AOol2000?Ool001eoo`800?moo`Uoo`80015oo`80029oo`007Goo00<007ooOol0m7oo 0P004Goo0P00=Goo000MOol00`00Oomoo`3dOol20018Ool001eoo`03001oogoo0>5oo`8005]oo`00 7Goo00<007ooOol0cWoo0P004Goo0P00Fgoo000MOol00`00Oomoo`3>Ool2001^Ool001eoo`03001o ogoo0;]oo`80085oo`007Goo00<007ooOol0^goo0P00PGoo0009Ool20004Ool20004Ool20006Ool0 0`00Oomoo`3oOoloOol000Qoo`04001oogoo0003Ool20003Ool01000Oomoo`001Goo00<007ooOol0 Ygoo0P00UGoo0008Ool01000Oomoo`0027oo00@007ooOol000Eoo`<00:Moo`8009Eoo`0027oo00@0 07ooOol000Qoo`<000Ioo`03001oogoo0?moocmoo`0027oo00@007ooOol000Qoo`03001oogoo00Io o`03001oogoo09Aoo`800:Qoo`002Goo0P002Woo0`001Goo00<007ooOol0U7oo0P00Z7oo000MOol0 0`00Oomoo`3oOoloOol001eoo`03001oogoo0?moocmoo`007Goo00<007ooOol0ogoo?goo000MOol0 0`00Oomoo`21Ool2002kOol001eoo`03001oogoo085oo`800;]oo`007Goo00<007ooOol0ogoo?goo 000MOol2003oOom0Ool001eoo`03001oogoo0?moocmoo`007Goo00<007ooOol0KWoo0P00cWoo000M Ool00`00Oomoo`1^Ool2003>Ool001eoo`03001oogoo0?moocmoo`007Goo00<007ooOol0ogoo?goo 000MOol00`00Oomoo`3oOoloOol001eoo`03001oogoo0?moocmoo`007Goo00<007ooOol0Fgoo0P00 hGoo000MOol00`00Oomoo`1KOol2003QOol001eoo`800?mood1oo`007Goo00<007ooOol0ogoo?goo 000MOol00`00Oomoo`3oOoloOol001eoo`03001oogoo0?moocmoo`007Goo00<007ooOol0ogoo?goo 000MOol00`00Oomoo`18Ool2003dOol001eoo`03001oogoo04Qoo`800?Aoo`007Goo00<007ooOol0 ogoo?goo000MOol00`00Oomoo`3oOoloOol001eoo`03001oogoo0?moocmoo`007Goo0P00ogoo@7oo 000MOol00`00Oomoo`3oOoloOol001eoo`03001oogoo0?moocmoo`007Goo00<007ooOol0ogoo?goo 000MOol00`00Oomoo`3oOoloOol001eoo`03001oogoo03Eoo`800?moo`Qoo`007Goo00<007ooOol0 =Goo0P00ogoo27oo0009Ool20004Ool20004Ool20006Ool00`00Oomoo`3oOoloOol000Qoo`04001o ogoo0003Ool20003Ool01000Oomoo`001Goo00<007ooOol0ogoo?goo0008Ool01000Oomoo`0027oo 00@007ooOol000Eoo`<00?moocmoo`0027oo00@007ooOol000Uoo`8000Ioo`03001oogoo0?moocmo o`0027oo00@007ooOol000Qoo`04001oogoo0005Ool00`00Oomoo`3oOoloOol000Uoo`8000Yoo`80 00Ioo`03001oogoo0?moocmoo`007Goo00<007ooOol0ogoo?goo000MOol00`00Oomoo`3oOoloOol0 01eoo`03001oogoo0?moocmoo`007Goo00<007ooOol0ogoo?goo000MOol00`00Oomoo`0ROol2003o OolKOol001eoo`03001oogoo029oo`800?mooa]oo`007Goo0P00ogoo@7oo000MOol00`00Oomoo`3o OoloOol001eoo`03001oogoo0?moocmoo`007Goo00<007ooOol0ogoo?goo000MOol00`00Oomoo`3o OoloOol001eoo`03001oogoo0?moocmoo`007Goo00<007ooOol0ogoo?goo000MOol00`00Oomoo`3o OoloOol001eoo`03001oogoo0?moocmoo`007Goo00<007ooOol0ogoo?goo000MOol2003oOom0Ool0 01eoo`03001oogoo0?moocmoo`007Goo00<007ooOol03goo0P00ogoo;Woo000MOol00`00Oomoo`0? Ool2003oOol^Ool001eoo`03001oogoo0?moocmoo`007Goo00<007ooOol0ogoo?goo000MOol00`00 Oomoo`3oOoloOol001eoo`03001oogoo0?moocmoo`007Goo00<007ooOol0ogoo?goo000MOol00`00 Oomoo`3oOoloOol001eoo`800?mood1oo`007Goo00<007ooOol0ogoo?goo000MOol00`00Oomoo`3o OoloOol001eoo`03001oogoo0?moocmoo`007Goo00<007ooOol0ogoo?goo000MOol00`00Oomoo`3o OoloOol001eoo`03001oogoo0?moocmoo`007Goo00<007ooOol0ogoo?goo000DOol30006Ool00`00 Oomoo`3oOoloOol001Eoo`03001oogoo00Eoo`03001oogoo0?moocmoo`005Goo00<007ooOol01Goo 0`00ogoo?goo000EOol00`00Oomoo`3oOom7Ool001Eoo`03001oogoo0?moodMoo`0057oo0P00ogoo BGoo003oOomOOol00001\ \>"], ImageRangeCache->{{{0, 349}, {215.188, 0}} -> {-1.54276, -0.0657567, 0.0525219, 0.00505847}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Colouring drinks", "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ \(Do[\n\t Show[\n\t\t\t{Graphics[{Hue[cS[j]\ .18], Disk[{0, 0}, .1]}], \n\t\t\tGraphics[{Hue[cA[j]\ .18], Disk[{ .4, 0}, .1]}]}\n\t, AspectRatio -> Automatic]\n, {j, 0, often}]\)], "Input"], Cell[CellGroupData[{ Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .33333 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.18254 1.5873 0.166667 1.5873 [ [ 0 0 0 0 ] [ 1 .33333 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .33333 L 0 .33333 L closepath clip newpath 1 0 0 r .18254 .16667 m .18254 .16667 .15873 0 365.73 arc F .92 1 0 r .81746 .16667 m .81746 .16667 .15873 0 365.73 arc F % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{171, 56.9375}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg0P10`4000010?ooo`3oooooZZ[oZSLg =gIfM[Fe]OCdm03oZS/k>gYjN[Vi^OShn03ooeGooj[oooclo5H/1EGooj[ooc/k>gYjN[Vi^OShn03o oclo?ginO[fm_Oclo5D00:X00?l00000EED0EJX00=d81Slo?ginO[fm_Oclo0<30d92@X61PL30`000 EED0EJX0EOl0E@00ZUD0ZZX0E@<30d92@X61PL30`000E@L71dI6AXF5QLC4a000ZUD0ZZX0Z_l0ZP00 e5D0ojX0ZPL71dI6AXF5QLC4a000ZP/;2dY:BXV9RLS8b000oeD0ojX0ool0o`1E05EE0:X0o`/;2dY: BXV9RLS8b000o`l?3di>CXf=SLcCXf=SLc0000 300X7d8002SOg]oNgmkOg]oNgmkOg]oNgmkOg]oNgmkOg]oNgmkOg]oNgmkOg]oN3@0000/0:Am202SO 3@0000X0:am0000Zg]oNgmkOg]oNgmkOg]oNgmkOg]oNgmkOg]oNgmkOg]oNgmkOg]oNgmkO300000X0 :am002_O2`0000T0;Aln000/gmkOg]oNgmkOg]oNgmkOg]oNgmkOg]oNgmkOg]oNgmkOg]oNgmkOg]oN gmh;00002@0^7c`0;]l:0000200_7c`002kNgmkOg]oNgmkOg]oNgmkOg]oNgmkOg]oNgmkOg]oNgmkO g]oNgmkOg]oNgmkO2P0000L0000<]kOg]oNgmkOg]oNgmkOg]oNgmkOg]oNgmkOg]oNgmkOg]oNgmkOg]oNgmkOg]oNgmkO200000H0 "], ImageRangeCache->{{{0, 170}, {55.9375, 0}} -> {-0.119106, -0.105001, 0.00375419, 0.00375419}}], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .33333 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.18254 1.5873 0.166667 1.5873 [ [ 0 0 0 0 ] [ 1 .33333 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .33333 L 0 .33333 L closepath clip newpath 1 .108 0 r .18254 .16667 m .18254 .16667 .15873 0 365.73 arc F 1 .983 0 r .81746 .16667 m .81746 .16667 .15873 0 365.73 arc F % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{171, 56.9375}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg0P10`4000010?ooo`3oooooZZ[oZSLg =gIfM[Fe]OCdm03oZS/k>gYjN[Vi^OShn03ooeGooj[oooclo5H/1EGooj[ooc/k>gYjN[Vi^OShn03o oclo?ginO[fm_Oclo5D00:X00?l00000EED0EJX00=d81Slo?ginO[fm_Oclo0<30d92@X61PL30`000 EED0EJX0EOl0E@00ZUD0ZZX0E@<30d92@X61PL30`000E@L71dI6AXF5QLC4a000ZUD0ZZX0Z_l0ZP00 e5D0ojX0ZPL71dI6AXF5QLC4a000ZP/;2dY:BXV9RLS8b000oeD0ojX0ool0o`1E05EE0:X0o`/;2dY: BXV9RLS8b000o`l?3di>CXf=SLcCXf=SLc00bg`P00006000c7elOGamO7elOGamO7elOGamO 7elOGamO7elOGamO7elOGamO7elOGamO7elOGamO7elO03P0<]l800001P0b7cT0P0`g`T00007034O >P0`g`T00008000_7elOGamO7elOGamO7elOGamO7elOGamO7elOGamO7elOGamO7elOGamO7elOGal0 ?00^g`X0000802lO?00^g`X00009000]GamO7elOGamO7elOGamO7elOGamO7elOGamO7elOGamO7elO GamO7elOGamO03h0;=l;00002P0[7d00:ml;00002`00:UlOGamO7elOGamO7elOGamO7elOGamO7elO GamO7elOGamO7elOGamO7d00:]l<0000300X7d80:=l=00003@009UlOGamO7elOGamO7elOGamO7elO GamO7elOGamO7elOGamO7elOA00Vg`h0000>02"], ImageRangeCache->{{{0, 170}, {55.9375, 0}} -> {-0.119106, -0.105001, 0.00375419, 0.00375419}}], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .33333 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.18254 1.5873 0.166667 1.5873 [ [ 0 0 0 0 ] [ 1 .33333 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .33333 L 0 .33333 L closepath clip newpath 1 .195 0 r .18254 .16667 m .18254 .16667 .15873 0 365.73 arc F 1 .904 0 r .81746 .16667 m .81746 .16667 .15873 0 365.73 arc F % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{171, 56.9375}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg0P10`4000010?ooo`3oooooZZ[oZSLg =gIfM[Fe]OCdm03oZS/k>gYjN[Vi^OShn03ooeGooj[oooclo5H/1EGooj[ooc/k>gYjN[Vi^OShn03o oclo?ginO[fm_Oclo5D00:X00?l00000EED0EJX00=d81Slo?ginO[fm_Oclo0<30d92@X61PL30`000 EED0EJX0EOl0E@00ZUD0ZZX0E@<30d92@X61PL30`000E@L71dI6AXF5QLC4a000ZUD0ZZX0Z_l0ZP00 e5D0ojX0ZPL71dI6AXF5QLC4a000ZP/;2dY:BXV9RLS8b000oeD0ojX0ool0o`1E05EE0:X0o`/;2dY: BXV9RLS8b000o`l?3di>CXf=SLcCXf=SLcP0`g`T00006000cGamO7elOGamO7elOGamO7elOGamO7elO GamO7elOGamO7elOGamO7elOGamO7elOGamO03P003:OgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioO WmnOgioOWmnOgioOWmnOgioOWmnOg`P00006000c7elOGamO7elOGamO7elOGamO7elOGamO7elOGamO 7elOGamO7elOGamO7elOGamO7elO03P0<]l800001@00=1mO7elOGamO7elOGamO7elOGamO7elOGamO 7elOGamO7elOGamO7elOGamO7elOGamO7elg000cgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnO gioOWmnOgioOWmnOgioOWmnOgioO00P00005000dGamO7elOGamO7elOGamO7elOGamO7elOGamO7elO GamO7elOGamO7elOGamO7elOGamO7cL0==l700001@00=1mO7elOGamO7elOGamO7elOGamO7elOGamO 7elOGamO7elOGamO7elOGamO7elOGamO7elg000dgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnO gioOWmnOgioOWmnOgioOWmnOgioOW`L00005000eGamO7elOGamO7elOGamO7elOGamO7elOGamO7elO GamO7elOGamO7elOGamO7elOGamO7el0=@0eg`L00005000e7elOGamO7elOGamO7elOGamO7elOGamO 7elOGamO7elOGamO7elOGamO7elOGamO7elOGal0=@00=IoOWmnOgioOWmnOgioOWmnOgioOWmnOgioO WmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnO00L00005000eGamO7elOGamO7elOGamO7elOGamO7elO GamO7elOGamO7elOGamO7elOGamO7elOGamO7el0=@0eg`L00005000e7elOGamO7elOGamO7elOGamO 7elOGamO7elOGamO7elOGamO7elOGamO7elOGamO7elOGal0=@00=IoOWmnOgioOWmnOgioOWmnOgioO WmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnO00L00005000eGamO7elOGamO7elOGamO7elO GamO7elOGamO7elOGamO7elOGamO7elOGamO7elOGamO7el0=@0eg`L00005000e7elOGamO7elOGamO 7elOGamO7elOGamO7elOGamO7elOGamO7elOGamO7elOGamO7elOGal0=@00=IoOWmnOgioOWmnOgioO WmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnO00L00005000eGamO7elOGamO7elO GamO7elOGamO7elOGamO7elOGamO7elOGamO7elOGamO7elOGamO7el0=@0eg`L00005000e7elOGamO 7elOGamO7elOGamO7elOGamO7elOGamO7elOGamO7elOGamO7elOGamO7elOGal0=@00=IoOWmnOgioO WmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnO00L00005000eGamO7elO GamO7elOGamO7elOGamO7elOGamO7elOGamO7elOGamO7elOGamO7elOGamO7el0=@0eg`L00005000d 7elOGamO7elOGamO7elOGamO7elOGamO7elOGamO7elOGamO7elOGamO7elOGamO7elOGcL003COWmnO gioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnO1`0000D003AO7elO GamO7elOGamO7elOGamO7elOGamO7elOGamO7elOGamO7elOGamO7elOGamO7elO=`0dg`L00005000d 7elOGamO7elOGamO7elOGamO7elOGamO7elOGamO7elOGamO7elOGamO7elOGamO7elOGcL003COWmnO gioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnO1`0000H00300bg`P00006000c GamO7elOGamO7elOGamO7elOGamO7elOGamO7elOGamO7elOGamO7elOGamO7elOGamO03P003:OgioO WmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnOg`P00006000b7elOGamO 7elOGamO7elOGamO7elOGamO7elOGamO7elOGamO7elOGamO7elOGamO7eli037O2@0000L0034OGamO 7elOGamO7elOGamO7elOGamO7elOGamO7elOGamO7elOGamO7elOGamO7elO03X0033OWmnOgioOWmnO gioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgil900001`00P0`g`T00008000_GamO7elOGamO7elO GamO7elOGamO7elOGamO7elOGamO7elOGamO7elOGamO7el0?000;YoOWmnOgioOWmnOgioOWmnOgioO WmnOgioOWmnOgioOWmnOgioOWmnOgioOWml:00002000;amO7elOGamO7elOGamO7elOGamO7elOGamO 7elOGamO7elOGamO7elOGamO7elO03`0;]l:00002@00;AmO7elOGamO7elOGamO7elOGamO7elOGamO 7elOGamO7elOGamO7elOGamO7`0n000/gioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnO gioOWmnOgil;00002P00:amO7elOGamO7elOGamO7elOGamO7elOGamO7elOGamO7elOGamO7elOGal0 @00[g`/0000;000Z7elOGamO7elOGamO7elOGamO7elOGamO7elOGamO7elOGamO7elOGamO@000:YoO WmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnOg``0000<000X7elOGamO7elOGamO 7elOGamO7elOGamO7elOGamO7elOGamO7elOGd80:=l=00003@009QmO7elOGamO7elOGamO7elOGamO 7elOGamO7elOGamO7elOGamOA0009YoOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioO 3P0000h002"], ImageRangeCache->{{{0, 170}, {55.9375, 0}} -> {-0.119106, -0.105001, 0.00375419, 0.00375419}}], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .33333 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.18254 1.5873 0.166667 1.5873 [ [ 0 0 0 0 ] [ 1 .33333 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .33333 L 0 .33333 L closepath clip newpath 1 .266 0 r .18254 .16667 m .18254 .16667 .15873 0 365.73 arc F 1 .84 0 r .81746 .16667 m .81746 .16667 .15873 0 365.73 arc F % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{171, 56.9375}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg0P10`4000010?ooo`3oooooZZ[oZSLg =gIfM[Fe]OCdm03oZS/k>gYjN[Vi^OShn03ooeGooj[oooclo5H/1EGooj[ooc/k>gYjN[Vi^OShn03o oclo?ginO[fm_Oclo5D00:X00?l00000EED0EJX00=d81Slo?ginO[fm_Oclo0<30d92@X61PL30`000 EED0EJX0EOl0E@00ZUD0ZZX0E@<30d92@X61PL30`000E@L71dI6AXF5QLC4a000ZUD0ZZX0Z_l0ZP00 e5D0ojX0ZPL71dI6AXF5QLC4a000ZP/;2dY:BXV9RLS8b000oeD0ojX0ool0o`1E05EE0:X0o`/;2dY: BXV9RLS8b000o`l?3di>CXf=SLcCXf=SLc000<]nOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnO gioOWmnOgioOWmnO200000H0@0000003P008elOGamO7elOGamO7elOGamO7elO GamO7elOGamO7elOGamO04L002>OgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOW`0@0000 400PGdX0023OWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWa40000A000N7elOGamO7elOGamO 7elOGamO7elOGamO7elOGamOC0007]nOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWa80000B01]O C`006mnOgioOWmnOgioOWmnOgioOWmnOgioOWmnOg`0D000050005UlOGamO7elOGamO7elOGamO7elO GamE000FgioOWmnOgioOWmnOgioOWmnOgioOWaH0000G015OF@004YoOWmnOgioOWmnOgioOWmnOgaP0 000L0009GamO7elOGamO064000ZOgioOWmnOgioO6`000:/00000\ \>"], ImageRangeCache->{{{0, 170}, {55.9375, 0}} -> {-0.119106, -0.105001, 0.00375419, 0.00375419}}], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .33333 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.18254 1.5873 0.166667 1.5873 [ [ 0 0 0 0 ] [ 1 .33333 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .33333 L 0 .33333 L closepath clip newpath 1 .324 0 r .18254 .16667 m .18254 .16667 .15873 0 365.73 arc F 1 .789 0 r .81746 .16667 m .81746 .16667 .15873 0 365.73 arc F % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{171, 56.9375}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg0P10`4000010?ooo`3oooooZZ[oZSLg =gIfM[Fe]OCdm03oZS/k>gYjN[Vi^OShn03ooeGooj[oooclo5H/1EGooj[ooc/k>gYjN[Vi^OShn03o oclo?ginO[fm_Oclo5D00:X00?l00000EED0EJX00=d81Slo?ginO[fm_Oclo0<30d92@X61PL30`000 EED0EJX0EOl0E@00ZUD0ZZX0E@<30d92@X61PL30`000E@L71dI6AXF5QLC4a000ZUD0ZZX0Z_l0ZP00 e5D0ojX0ZPL71dI6AXF5QLC4a000ZP/;2dY:BXV9RLS8b000oeD0ojX0ool0o`1E05EE0:X0o`/;2dY: BXV9RLS8b000o`l?3di>CXf=SLcCXf=SLc000@00"], ImageRangeCache->{{{0, 170}, {55.9375, 0}} -> {-0.119106, -0.105001, 0.00375419, 0.00375419}}], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .33333 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.18254 1.5873 0.166667 1.5873 [ [ 0 0 0 0 ] [ 1 .33333 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .33333 L 0 .33333 L closepath clip newpath 1 .37 0 r .18254 .16667 m .18254 .16667 .15873 0 365.73 arc F 1 .747 0 r .81746 .16667 m .81746 .16667 .15873 0 365.73 arc F % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{171, 56.9375}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg0P10`4000010?ooo`3oooooZZ[oZSLg =gIfM[Fe]OCdm03oZS/k>gYjN[Vi^OShn03ooeGooj[oooclo5H/1EGooj[ooc/k>gYjN[Vi^OShn03o oclo?ginO[fm_Oclo5D00:X00?l00000EED0EJX00=d81Slo?ginO[fm_Oclo0<30d92@X61PL30`000 EED0EJX0EOl0E@00ZUD0ZZX0E@<30d92@X61PL30`000E@L71dI6AXF5QLC4a000ZUD0ZZX0Z_l0ZP00 e5D0ojX0ZPL71dI6AXF5QLC4a000ZP/;2dY:BXV9RLS8b000oeD0ojX0ool0o`1E05EE0:X0o`/;2dY: BXV9RLS8b000o`l?3di>CXf=SLcCXf=SLcP00<9oO WmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnOg`T00007035O>P0`W`T0 000603=O>000<]nOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnO 200000H000bW`P0000603=O>000<]nOgioOWmnOgioOWmnOgioOWmnO gioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnO200000H000003P0SGdL08il@0000400PGdX0022OgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioO WmnOga40000A01iOC00NWa80000B01]OC`006ioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOW`0D0000 500FGeD05YlF00005`0AGeT001;OWmnOgioOWmnOgioOWmnOgilH00007009Gf402YlK0000Z`000001 \ \>"], ImageRangeCache->{{{0, 170}, {55.9375, 0}} -> {-0.119106, -0.105001, 0.00375419, 0.00375419}}], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .33333 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.18254 1.5873 0.166667 1.5873 [ [ 0 0 0 0 ] [ 1 .33333 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .33333 L 0 .33333 L closepath clip newpath 1 .408 0 r .18254 .16667 m .18254 .16667 .15873 0 365.73 arc F 1 .713 0 r .81746 .16667 m .81746 .16667 .15873 0 365.73 arc F % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{171, 56.9375}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg0P10`4000010?ooo`3oooooZZ[oZSLg =gIfM[Fe]OCdm03oZS/k>gYjN[Vi^OShn03ooeGooj[oooclo5H/1EGooj[ooc/k>gYjN[Vi^OShn03o oclo?ginO[fm_Oclo5D00:X00?l00000EED0EJX00=d81Slo?ginO[fm_Oclo0<30d92@X61PL30`000 EED0EJX0EOl0E@00ZUD0ZZX0E@<30d92@X61PL30`000E@L71dI6AXF5QLC4a000ZUD0ZZX0Z_l0ZP00 e5D0ojX0ZPL71dI6AXF5QLC4a000ZP/;2dY:BXV9RLS8b000oeD0ojX0ool0o`1E05EE0:X0o`/;2dY: BXV9RLS8b000o`l?3di>CXf=SLcCXf=SLcOgioOWmnOgioO WmnOgioOWmnOgioOWmnOgioOWmnOgioOW`0?00003@0VGd@09Yl>00003000:5nOGimOWenOGimOWenO GimOWenOGimOWenOGimOWenOGimOWenOGim2000XgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnO gioOWmnOgioOW`d0000;02UO@P0XW`d0000:000[GimOWenOGimOWenOGimOWenOGimOWenOGimOWenO GimOWenOGimOWenOG`10000ZWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioO 300000X0:em002^O2`0000T002fOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimO WenOGil0?P00;=nOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnO2`0000T0 ;Ull02jO2P0000P002mOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenO G`0l000^WmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnOg`X00007035O >P0`W`T00007000aWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimO W`0j000`gioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnO2@0000H0 000O200000D003BOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimO WenOGimOWenOGimO=`00==nOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnO gioOWmnOgil700001@0dGcL0=9l700001@00=ImOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimO WenOGimOWenOGimOWenOGimOWenO03D003FOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioO WmnOgioOWmnOgioOWmnOgioOW`0700001@0eGcD0=Il700001@00=ImOWenOGimOWenOGimOWenOGimO WenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenO03D003FOgioOWmnOgioOWmnOgioOWmnOgioO WmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOW`0700001@0eGcD0=Il700001@00=ImOWenOGimO WenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenO03D003FOgioOWmnOgioO WmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOW`0700001@0eGcD0=Il70000 1@00=ImOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenO03D0 03FOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOW`070000 1@0eGcD0=Il700001@00=ImOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimO WenOGimOWenO03D003FOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioO WmnOgioOW`0700001@0dGcL0=9l700001@00=9mOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimO WenOGimOWenOGimOWenOGimOWelg000dgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnO gioOWmnOgioOWmnOgioOW`L0000503AO=`0dW`L00006000cGimOWenOGimOWenOGimOWenOGimOWenO GimOWenOGimOWenOGimOWenOGimOWenOGimO03P003:OgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioO WmnOgioOWmnOgioOWmnOgioOWmnOg`P0000603=O>00bW`P00006000bGimOWenOGimOWenOGimOWenO GimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGili000aWmnOgioOWmnOgioOWmnOgioOWmnOgioO WmnOgioOWmnOgioOWmnOgioOWmnOgioOW`0900001`0aGcX0<9l900001`00P00<=nOgioOWmnOgioOWmnOgioOWmnO gioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOW`T0000802mO?00^W`X00008000_GimOWenOGimOWenO GimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWel0?000;YoOWmnOgioOWmnOgioOWmnOgioO WmnOgioOWmnOgioOWmnOgioOWmnOgioOWml:00002@0]Gch0;9l;00002P00:enOGimOWenOGimOWenO GimOWenOGimOWenOGimOWenOGimOWenOGimOWel0@000:ioOWmnOgioOWmnOgioOWmnOgioOWmnOgioO WmnOgioOWmnOgioOWmnOgil02`0000/0:Um002ZO300000`002QOWenOGimOWenOGimOWenOGimOWenO GimOWenOGimOWenOGimOWenO@P00:=nOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnO gil=00003@0VGd@09Yl>00003P008enOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimO04L0 02?OWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioOWmnOg`0@0000400PGdX089lA00004@007YmO WenOGimOWenOGimOWenOGimOWenOGimOWenOGd`001jOgioOWmnOgioOWmnOgioOWmnOgioOWmnOgioO WmlB00004P0KGdl06ilD000050005UnOGimOWenOGimOWenOGimOWenOGimE000FWmnOgioOWmnOgioO WmnOgioOWmnOgaH0000G015OF@0BWaP0000L0009GimOWenOGimO064000[OWmnOgioOWmnO6`000:/0 0000\ \>"], ImageRangeCache->{{{0, 170}, {55.9375, 0}} -> {-0.119106, -0.105001, 0.00375419, 0.00375419}}], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .33333 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.18254 1.5873 0.166667 1.5873 [ [ 0 0 0 0 ] [ 1 .33333 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .33333 L 0 .33333 L closepath clip newpath 1 .438 0 r .18254 .16667 m .18254 .16667 .15873 0 365.73 arc F 1 .685 0 r .81746 .16667 m .81746 .16667 .15873 0 365.73 arc F % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{171, 56.9375}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg0P10`4000010?ooo`3oooooZZ[oZSLg =gIfM[Fe]OCdm03oZS/k>gYjN[Vi^OShn03ooeGooj[oooclo5H/1EGooj[ooc/k>gYjN[Vi^OShn03o oclo?ginO[fm_Oclo5D00:X00?l00000EED0EJX00=d81Slo?ginO[fm_Oclo0<30d92@X61PL30`000 EED0EJX0EOl0E@00ZUD0ZZX0E@<30d92@X61PL30`000E@L71dI6AXF5QLC4a000ZUD0ZZX0Z_l0ZP00 e5D0ojX0ZPL71dI6AXF5QLC4a000ZP/;2dY:BXV9RLS8b000oeD0ojX0ool0o`1E05EE0:X0o`/;2dY: BXV9RLS8b000o`l?3di>CXf=SLcCXf=SLc00bW`P00006000cGimOWenOGimOWenOGimOWenO GimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimO03P0P0`W`T00007035O >P0`W`T00008000_GimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWel0 ?00^W`X0000802mO?00^W`X00009000]WenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimO WenOGimOWenO03h0;9l;00002P0[Gd00:il;00002`00:YmOWenOGimOWenOGimOWenOGimOWenOGimO WenOGimOWenOGimOWenOGd00:Yl<0000300XGd80:9l=00003@009YmOWenOGimOWenOGimOWenOGimO WenOGimOWenOGimOWenOGimOA00VW`h0000>02=OA`0SWa00000@000PGimOWenOGimOWenOGimOWenO GimOWenOGimOWenOGim:022O4@0001407Um<01jO4P00018001]OWenOGimOWenOGimOWenOGimOWenO GimOWel0C`0KWa@0000D01IOE@0FWaH0000G000AWenOGimOWenOGimOWenOGil0F@0BWaP0000L00UO H@0:Wa/0002[0000\ \>"], ImageRangeCache->{{{0, 170}, {55.9375, 0}} -> {-0.119106, -0.105001, 0.00375419, 0.00375419}}], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .33333 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.18254 1.5873 0.166667 1.5873 [ [ 0 0 0 0 ] [ 1 .33333 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .33333 L 0 .33333 L closepath clip newpath 1 .463 0 r .18254 .16667 m .18254 .16667 .15873 0 365.73 arc F 1 .663 0 r .81746 .16667 m .81746 .16667 .15873 0 365.73 arc F % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{171, 56.9375}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg0P10`4000010?ooo`3oooooZZ[oZSLg =gIfM[Fe]OCdm03oZS/k>gYjN[Vi^OShn03ooeGooj[oooclo5H/1EGooj[ooc/k>gYjN[Vi^OShn03o oclo?ginO[fm_Oclo5D00:X00?l00000EED0EJX00=d81Slo?ginO[fm_Oclo0<30d92@X61PL30`000 EED0EJX0EOl0E@00ZUD0ZZX0E@<30d92@X61PL30`000E@L71dI6AXF5QLC4a000ZUD0ZZX0Z_l0ZP00 e5D0ojX0ZPL71dI6AXF5QLC4a000ZP/;2dY:BXV9RLS8b000oeD0ojX0ool0o`1E05EE0:X0o`/;2dY: BXV9RLS8b000o`l?3di>CXf=SLcCXf=SLcOGimOWenOGimOWenOGimO WenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGil0>00bW`P00005000dWenOGimOWenOGimO WenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGcL0P0`W`T00007000aGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenO GimOWenOG`0j032O2@0000P002mOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenO GimOWenOG`0l02jO2P0000P002nOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimO WenOGimOW`0l02jO2P0000T002fOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimO WenOGil0?P0/W`/0000:000[WenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimO W`1002^O2`0000/002ZOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWem002ZO 300000`002ROGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimO@P0XW`d0000=000V WenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWem402JO3P0000h002>OGimOWenOGimO WenOGimOWenOGimOWenOGimOWenOGimOW`1702>O40000100021OWenOGimOWenOGimOWenOGimOWenO GimOWenOGimOWdX089lA00004@007UnOGimOWenOGimOWenOGimOWenOGimOWenOGimOWd`07YlB0000 4P006enOGimOWenOGimOWenOGimOWenOGimOWenOG`1?01^O500001@001JOGimOWenOGimOWenOGimO WenOGimOE@0FWaH0000G000AWenOGimOWenOGimOWenOGil0F@0BWaP0000L0009WenOGimOWenO0640 2YlK0000Z`000001\ \>"], ImageRangeCache->{{{0, 170}, {55.9375, 0}} -> {-0.119106, -0.105001, 0.00375419, 0.00375419}}], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .33333 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.18254 1.5873 0.166667 1.5873 [ [ 0 0 0 0 ] [ 1 .33333 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .33333 L 0 .33333 L closepath clip newpath 1 .483 0 r .18254 .16667 m .18254 .16667 .15873 0 365.73 arc F 1 .645 0 r .81746 .16667 m .81746 .16667 .15873 0 365.73 arc F % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{171, 56.9375}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg0P10`4000010?ooo`3oooooZZ[oZSLg =gIfM[Fe]OCdm03oZS/k>gYjN[Vi^OShn03ooeGooj[oooclo5H/1EGooj[ooc/k>gYjN[Vi^OShn03o oclo?ginO[fm_Oclo5D00:X00?l00000EED0EJX00=d81Slo?ginO[fm_Oclo0<30d92@X61PL30`000 EED0EJX0EOl0E@00ZUD0ZZX0E@<30d92@X61PL30`000E@L71dI6AXF5QLC4a000ZUD0ZZX0Z_l0ZP00 e5D0ojX0ZPL71dI6AXF5QLC4a000ZP/;2dY:BXV9RLS8b000oeD0ojX0ool0o`1E05EE0:X0o`/;2dY: BXV9RLS8b000o`l?3di>CXf=SLcCXf=SLcOGimOWenOGimOWenOGimO WenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGil0>00bW`P00005000dWenOGimOWenOGimO WenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGcL0P0`W`T00007000aGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenO GimOWenOG`0j032O2@0000P002mOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenO GimOWenOG`0l02jO2P0000P002nOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimO WenOGimOW`0l02jO2P0000T002fOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimO WenOGil0?P0/W`/0000:000[WenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimO W`1002^O2`0000/002ZOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWem002ZO 300000`002ROGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimO@P0XW`d0000=000V WenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWem402JO3P0000h002>OGimOWenOGimO WenOGimOWenOGimOWenOGimOWenOGimOW`1702>O40000100021OWenOGimOWenOGimOWenOGimOWenO GimOWenOGimOWdX089lA00004@007UnOGimOWenOGimOWenOGimOWenOGimOWenOGimOWd`07YlB0000 4P006enOGimOWenOGimOWenOGimOWenOGimOWenOG`1?01^O500001@001JOGimOWenOGimOWenOGimO WenOGimOE@0FWaH0000G000AWenOGimOWenOGimOWenOGil0F@0BWaP0000L0009WenOGimOWenO0640 2YlK0000Z`000001\ \>"], ImageRangeCache->{{{0, 170}, {55.9375, 0}} -> {-0.119106, -0.105001, 0.00375419, 0.00375419}}], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .33333 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.18254 1.5873 0.166667 1.5873 [ [ 0 0 0 0 ] [ 1 .33333 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .33333 L 0 .33333 L closepath clip newpath 1 .499 0 r .18254 .16667 m .18254 .16667 .15873 0 365.73 arc F 1 .631 0 r .81746 .16667 m .81746 .16667 .15873 0 365.73 arc F % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{171, 56.9375}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg0P10`4000010?ooo`3oooooZZ[oZSLg =gIfM[Fe]OCdm03oZS/k>gYjN[Vi^OShn03ooeGooj[oooclo5H/1EGooj[ooc/k>gYjN[Vi^OShn03o oclo?ginO[fm_Oclo5D00:X00?l00000EED0EJX00=d81Slo?ginO[fm_Oclo0<30d92@X61PL30`000 EED0EJX0EOl0E@00ZUD0ZZX0E@<30d92@X61PL30`000E@L71dI6AXF5QLC4a000ZUD0ZZX0Z_l0ZP00 e5D0ojX0ZPL71dI6AXF5QLC4a000ZP/;2dY:BXV9RLS8b000oeD0ojX0ool0o`1E05EE0:X0o`/;2dY: BXV9RLS8b000o`l?3di>CXf=SLcCXf=SLcOGimOWenOGimOWenOGimO WenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGil0>00bW`P00005000dWenOGimOWenOGimO WenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGcL0P0`W`T00007000aGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenO GimOWenOG`0j032O2@0000P002mOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenO GimOWenOG`0l02jO2P0000P002nOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimO WenOGimOW`0l02jO2P0000T002fOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimO WenOGil0?P0/W`/0000:000[WenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimO W`1002^O2`0000/002ZOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWem002ZO 300000`002ROGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimO@P0XW`d0000=000V WenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWem402JO3P0000h002>OGimOWenOGimO WenOGimOWenOGimOWenOGimOWenOGimOW`1702>O40000100021OWenOGimOWenOGimOWenOGimOWenO GimOWenOGimOWdX089lA00004@007UnOGimOWenOGimOWenOGimOWenOGimOWenOGimOWd`07YlB0000 4P006enOGimOWenOGimOWenOGimOWenOGimOWenOG`1?01^O500001@001JOGimOWenOGimOWenOGimO WenOGimOE@0FWaH0000G000AWenOGimOWenOGimOWenOGil0F@0BWaP0000L0009WenOGimOWenO0640 2YlK0000Z`000001\ \>"], ImageRangeCache->{{{0, 170}, {55.9375, 0}} -> {-0.119106, -0.105001, 0.00375419, 0.00375419}}], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .33333 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.18254 1.5873 0.166667 1.5873 [ [ 0 0 0 0 ] [ 1 .33333 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .33333 L 0 .33333 L closepath clip newpath 1 .512 0 r .18254 .16667 m .18254 .16667 .15873 0 365.73 arc F 1 .619 0 r .81746 .16667 m .81746 .16667 .15873 0 365.73 arc F % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{171, 56.9375}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg0P10`4000010?ooo`3oooooZZ[oZSLg =gIfM[Fe]OCdm03oZS/k>gYjN[Vi^OShn03ooeGooj[oooclo5H/1EGooj[ooc/k>gYjN[Vi^OShn03o oclo?ginO[fm_Oclo5D00:X00?l00000EED0EJX00=d81Slo?ginO[fm_Oclo0<30d92@X61PL30`000 EED0EJX0EOl0E@00ZUD0ZZX0E@<30d92@X61PL30`000E@L71dI6AXF5QLC4a000ZUD0ZZX0Z_l0ZP00 e5D0ojX0ZPL71dI6AXF5QLC4a000ZP/;2dY:BXV9RLS8b000oeD0ojX0ool0o`1E05EE0:X0o`/;2dY: BXV9RLS8b000o`l?3di>CXf=SLcCXf=SLcP0`W`T00007000aWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimO W`0j000`GimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenO2@0000H0 03>OGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGil0>00bW`P0 0006000cGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimO03P0 03:OGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOG`P00005000d GimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWcL0000OGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimO WenOGimOWenOGimOWenOGil0>00bW`P00006000bGimOWenOGimOWenOGimOWenOGimOWenOGimOWenO GimOWenOGimOWenOGimOWenOGili000aWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimO WenOGimOWenOGimOW`0900001`00P0`W`T00007000aWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimO WenOGimOWenOGimOW`0j000`GimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenO GimOWenO2@0000P002nOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimO W`0l02jO2P0000P002mOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenO G`0l000^WenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOG`X00009000] GimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimO03h0;9l;00002P00:enO GimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWel0@000:imOWenOGimOWenOGimO WenOGimOWenOGimOWenOGimOWenOGimOWenOGil02`0000/002YOWenOGimOWenOGimOWenOGimOWenO GimOWenOGimOWenOGimOWenOGim002ZO300000`002QOWenOGimOWenOGimOWenOGimOWenOGimOWenO GimOWenOGimOWenO@P00:5nOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGil=0000 3@009UnOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOA00VW`h0000>000SGimOWenO GimOWenOGimOWenOGimOWenOGimOWenOGimOWel0A`008enOGimOWenOGimOWenOGimOWenOGimOWenO GimOWenOGimO0100000@000PWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWem:022O4@000140 01jOGimOWenOGimOWenOGimOWenOGimOWenOGimOWem<000NWenOGimOWenOGimOWenOGimOWenOGimO WenOGimO4P00018001^OGimOWenOGimOWenOGimOWenOGimOWenOGil0C`0KWa@0000D000FGimOWenO GimOWenOGimOWenOGimOWeD001JOGimOWenOGimOWenOGimOWenOGimO5P0001L0015OWenOGimOWenO GimOWenOG`1I01:O600001`000UOWenOGimOWel0H@002UnOGimOWenOGilK0000Z`000001\ \>"], ImageRangeCache->{{{0, 170}, {55.9375, 0}} -> {-0.119106, -0.105001, 0.00375419, 0.00375419}}], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .33333 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.18254 1.5873 0.166667 1.5873 [ [ 0 0 0 0 ] [ 1 .33333 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .33333 L 0 .33333 L closepath clip newpath 1 .523 0 r .18254 .16667 m .18254 .16667 .15873 0 365.73 arc F 1 .609 0 r .81746 .16667 m .81746 .16667 .15873 0 365.73 arc F % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{171, 56.9375}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg0P10`4000010?ooo`3oooooZZ[oZSLg =gIfM[Fe]OCdm03oZS/k>gYjN[Vi^OShn03ooeGooj[oooclo5H/1EGooj[ooc/k>gYjN[Vi^OShn03o oclo?ginO[fm_Oclo5D00:X00?l00000EED0EJX00=d81Slo?ginO[fm_Oclo0<30d92@X61PL30`000 EED0EJX0EOl0E@00ZUD0ZZX0E@<30d92@X61PL30`000E@L71dI6AXF5QLC4a000ZUD0ZZX0Z_l0ZP00 e5D0ojX0ZPL71dI6AXF5QLC4a000ZP/;2dY:BXV9RLS8b000oeD0ojX0ool0o`1E05EE0:X0o`/;2dY: BXV9RLS8b000o`l?3di>CXf=SLcCXf=SLcP0`W`T00007000aWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimO W`0j000`WenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimO2@0000H0 03>OGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGil0>00bW`P0 0006000cGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimO03P0 039OWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOW`P00005000d GimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWcL0000OGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimO WenOGimOWenOGimOWenOGil0>00bW`P00006000bGimOWenOGimOWenOGimOWenOGimOWenOGimOWenO GimOWenOGimOWenOGimOWenOGili000aGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenO GimOWenOGimOWenOG`0900001`00P0`W`T00007000aWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimO WenOGimOWenOGimOW`0j000`WenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimO WenOGimO2@0000P002nOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimO W`0l02jO2P0000P002mOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenO G`0l000^GimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOW`X00009000] GimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimO03h0;9l;00002P00:enO GimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWel0@000:enOGimOWenOGimOWenO GimOWenOGimOWenOGimOWenOGimOWenOGimOWel02`0000/002YOWenOGimOWenOGimOWenOGimOWenO GimOWenOGimOWenOGimOWenOGim002ZO300000`002QOWenOGimOWenOGimOWenOGimOWenOGimOWenO GimOWenOGimOWenO@P00:9mOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWel=0000 3@009UnOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOA00VW`h0000>000SGimOWenO GimOWenOGimOWenOGimOWenOGimOWenOGimOWel0A`008imOWenOGimOWenOGimOWenOGimOWenOGimO WenOGimOWenO0100000@000PWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWem:022O4@000140 01jOGimOWenOGimOWenOGimOWenOGimOWenOGimOWem<000NGimOWenOGimOWenOGimOWenOGimOWenO GimOWenO4P00018001^OGimOWenOGimOWenOGimOWenOGimOWenOGil0C`0KWa@0000D000FGimOWenO GimOWenOGimOWenOGimOWeD001IOWenOGimOWenOGimOWenOGimOWenO5P0001L0015OWenOGimOWenO GimOWenOG`1I01:O600001`000UOWenOGimOWel0H@002YmOWenOGimOWelK0000Z`000001\ \>"], ImageRangeCache->{{{0, 170}, {55.9375, 0}} -> {-0.119106, -0.105001, 0.00375419, 0.00375419}}], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .33333 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.18254 1.5873 0.166667 1.5873 [ [ 0 0 0 0 ] [ 1 .33333 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .33333 L 0 .33333 L closepath clip newpath 1 .532 0 r .18254 .16667 m .18254 .16667 .15873 0 365.73 arc F 1 .601 0 r .81746 .16667 m .81746 .16667 .15873 0 365.73 arc F % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{171, 56.9375}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg0P10`4000010?ooo`3oooooZZ[oZSLg =gIfM[Fe]OCdm03oZS/k>gYjN[Vi^OShn03ooeGooj[oooclo5H/1EGooj[ooc/k>gYjN[Vi^OShn03o oclo?ginO[fm_Oclo5D00:X00?l00000EED0EJX00=d81Slo?ginO[fm_Oclo0<30d92@X61PL30`000 EED0EJX0EOl0E@00ZUD0ZZX0E@<30d92@X61PL30`000E@L71dI6AXF5QLC4a000ZUD0ZZX0Z_l0ZP00 e5D0ojX0ZPL71dI6AXF5QLC4a000ZP/;2dY:BXV9RLS8b000oeD0ojX0ool0o`1E05EE0:X0o`/;2dY: BXV9RLS8b000o`l?3di>CXf=SLcCXf=SLcP0`W`T00007000aWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimO W`0j000`WenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimO2@0000H0 03>OGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGil0>00bW`P0 0006000cGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimO03P0 039OWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOW`P00005000d GimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWcL0000OGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimO WenOGimOWenOGimOWenOGil0>00bW`P00006000bGimOWenOGimOWenOGimOWenOGimOWenOGimOWenO GimOWenOGimOWenOGimOWenOGili000aGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenO GimOWenOGimOWenOG`0900001`00P0`W`T00007000aWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimO WenOGimOWenOGimOW`0j000`WenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimO WenOGimO2@0000P002nOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimO W`0l02jO2P0000P002mOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenO G`0l000^GimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOW`X00009000] GimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimO03h0;9l;00002P00:enO GimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWel0@000:enOGimOWenOGimOWenO GimOWenOGimOWenOGimOWenOGimOWenOGimOWel02`0000/002YOWenOGimOWenOGimOWenOGimOWenO GimOWenOGimOWenOGimOWenOGim002ZO300000`002QOWenOGimOWenOGimOWenOGimOWenOGimOWenO GimOWenOGimOWenO@P00:9mOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWel=0000 3@009UnOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOA00VW`h0000>000SGimOWenO GimOWenOGimOWenOGimOWenOGimOWenOGimOWel0A`008imOWenOGimOWenOGimOWenOGimOWenOGimO WenOGimOWenO0100000@000PWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWem:022O4@000140 01jOGimOWenOGimOWenOGimOWenOGimOWenOGimOWem<000NGimOWenOGimOWenOGimOWenOGimOWenO GimOWenO4P00018001^OGimOWenOGimOWenOGimOWenOGimOWenOGil0C`0KWa@0000D000FGimOWenO GimOWenOGimOWenOGimOWeD001IOWenOGimOWenOGimOWenOGimOWenO5P0001L0015OWenOGimOWenO GimOWenOG`1I01:O600001`000UOWenOGimOWel0H@002YmOWenOGimOWelK0000Z`000001\ \>"], ImageRangeCache->{{{0, 170}, {55.9375, 0}} -> {-0.119106, -0.105001, 0.00375419, 0.00375419}}], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .33333 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.18254 1.5873 0.166667 1.5873 [ [ 0 0 0 0 ] [ 1 .33333 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .33333 L 0 .33333 L closepath clip newpath 1 .539 0 r .18254 .16667 m .18254 .16667 .15873 0 365.73 arc F 1 .595 0 r .81746 .16667 m .81746 .16667 .15873 0 365.73 arc F % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{171, 56.9375}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg0P10`4000010?ooo`3oooooZZ[oZSLg =gIfM[Fe]OCdm03oZS/k>gYjN[Vi^OShn03ooeGooj[oooclo5H/1EGooj[ooc/k>gYjN[Vi^OShn03o oclo?ginO[fm_Oclo5D00:X00?l00000EED0EJX00=d81Slo?ginO[fm_Oclo0<30d92@X61PL30`000 EED0EJX0EOl0E@00ZUD0ZZX0E@<30d92@X61PL30`000E@L71dI6AXF5QLC4a000ZUD0ZZX0Z_l0ZP00 e5D0ojX0ZPL71dI6AXF5QLC4a000ZP/;2dY:BXV9RLS8b000oeD0ojX0ool0o`1E05EE0:X0o`/;2dY: BXV9RLS8b000o`l?3di>CXf=SLcCXf=SLcP0`W`T00007000aWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimO W`0j000`WenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimO2@0000H0 03>OGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGil0>00bW`P0 0006000cGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimO03P0 039OWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOW`P00005000d GimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWcL0000OGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimO WenOGimOWenOGimOWenOGil0>00bW`P00006000bGimOWenOGimOWenOGimOWenOGimOWenOGimOWenO GimOWenOGimOWenOGimOWenOGili000aGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenO GimOWenOGimOWenOG`0900001`00P0`W`T00007000aWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimO WenOGimOWenOGimOW`0j000`WenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimO WenOGimO2@0000P002nOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimO W`0l02jO2P0000P002mOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenO G`0l000^GimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOW`X00009000] GimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimO03h0;9l;00002P00:enO GimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWel0@000:enOGimOWenOGimOWenO GimOWenOGimOWenOGimOWenOGimOWenOGimOWel02`0000/002YOWenOGimOWenOGimOWenOGimOWenO GimOWenOGimOWenOGimOWenOGim002ZO300000`002QOWenOGimOWenOGimOWenOGimOWenOGimOWenO GimOWenOGimOWenO@P00:9mOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWel=0000 3@009UnOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOA00VW`h0000>000SGimOWenO GimOWenOGimOWenOGimOWenOGimOWenOGimOWel0A`008imOWenOGimOWenOGimOWenOGimOWenOGimO WenOGimOWenO0100000@000PWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWem:022O4@000140 01jOGimOWenOGimOWenOGimOWenOGimOWenOGimOWem<000NGimOWenOGimOWenOGimOWenOGimOWenO GimOWenO4P00018001^OGimOWenOGimOWenOGimOWenOGimOWenOGil0C`0KWa@0000D000FGimOWenO GimOWenOGimOWenOGimOWeD001IOWenOGimOWenOGimOWenOGimOWenO5P0001L0015OWenOGimOWenO GimOWenOG`1I01:O600001`000UOWenOGimOWel0H@002YmOWenOGimOWelK0000Z`000001\ \>"], ImageRangeCache->{{{0, 170}, {55.9375, 0}} -> {-0.119106, -0.105001, 0.00375419, 0.00375419}}], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .33333 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.18254 1.5873 0.166667 1.5873 [ [ 0 0 0 0 ] [ 1 .33333 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .33333 L 0 .33333 L closepath clip newpath 1 .544 0 r .18254 .16667 m .18254 .16667 .15873 0 365.73 arc F 1 .59 0 r .81746 .16667 m .81746 .16667 .15873 0 365.73 arc F % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{171, 56.9375}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg0P10`4000010?ooo`3oooooZZ[oZSLg =gIfM[Fe]OCdm03oZS/k>gYjN[Vi^OShn03ooeGooj[oooclo5H/1EGooj[ooc/k>gYjN[Vi^OShn03o oclo?ginO[fm_Oclo5D00:X00?l00000EED0EJX00=d81Slo?ginO[fm_Oclo0<30d92@X61PL30`000 EED0EJX0EOl0E@00ZUD0ZZX0E@<30d92@X61PL30`000E@L71dI6AXF5QLC4a000ZUD0ZZX0Z_l0ZP00 e5D0ojX0ZPL71dI6AXF5QLC4a000ZP/;2dY:BXV9RLS8b000oeD0ojX0ool0o`1E05EE0:X0o`/;2dY: BXV9RLS8b000o`l?3di>CXf=SLcCXf=SLcOA`008enOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenO GimO00l0000=000VGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGim402JO3P0000`0 :9m2000XWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOG`d0000;000YGimOWenO GimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWel0@P0XW`d0000:02^O@000:UnOGimOWenO GimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOW``0000:000[WenOGimOWenOGimOWenOGimO WenOGimOWenOGimOWenOGimOWenOGimOW`1002^O2`0000T0;Iln000/WenOGimOWenOGimOWenOGimO WenOGimOWenOGimOWenOGimOWenOGimOWel;00002@00;UnOGimOWenOGimOWenOGimOWenOGimOWenO GimOWenOGimOWenOGimOWenOGill02jO2P0000P0;ill000^GimOWenOGimOWenOGimOWenOGimOWenO GimOWenOGimOWenOGimOWenOGimOW`X00007000aGimOWenOGimOWenOGimOWenOGimOWenOGimOWenO GimOWenOGimOWenOGimOWenOG`0j032O2@0000L0OGimOWenOGimOWenOGimOWenOGimOWenOGimO WenOGimOWenOGimOWenOGimOWenOGil0>00bW`P0000603>O>000P0`W`T0 0007036O>P00<9mOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOG`T0 0008000_WenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGil0?00^W`X0 000802nO?000;UnOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGil:0000 2@00;EnOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOG`0n02bO2`0000X0 :im0000[GimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOG`0;00002`00:UnO GimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWd00:Yl<0000300XWd8002ROGimO WenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimO3@0000d002IOWenOGimOWenOGimOWenO GimOWenOGimOWenOGimOWenOGimOWd@09Yl>00003P0SWdL002>OGimOWenOGimOWenOGimOWenOGimO WenOGimOWenOGimOW`0@0000400089mOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOBP0PWa40 000A01jOC0007UnOGimOWenOGimOWenOGimOWenOGimOWenOGimOWa80000B000KWenOGimOWenOGimO WenOGimOWenOGimOWenO04l06ilD0000500FWeD001IOWenOGimOWenOGimOWenOGimOWenO5P0001L0 015OWenOGimOWenOGimOWenOG`1I01:O600001`02ImQ000:WenOGimOWenOGa/0002[0000\ \>"], ImageRangeCache->{{{0, 170}, {55.9375, 0}} -> {-0.119106, -0.105001, 0.00375419, 0.00375419}}], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .33333 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.18254 1.5873 0.166667 1.5873 [ [ 0 0 0 0 ] [ 1 .33333 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .33333 L 0 .33333 L closepath clip newpath 1 .549 0 r .18254 .16667 m .18254 .16667 .15873 0 365.73 arc F 1 .586 0 r .81746 .16667 m .81746 .16667 .15873 0 365.73 arc F % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{171, 56.9375}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg0P10`4000010?ooo`3oooooZZ[oZSLg =gIfM[Fe]OCdm03oZS/k>gYjN[Vi^OShn03ooeGooj[oooclo5H/1EGooj[ooc/k>gYjN[Vi^OShn03o oclo?ginO[fm_Oclo5D00:X00?l00000EED0EJX00=d81Slo?ginO[fm_Oclo0<30d92@X61PL30`000 EED0EJX0EOl0E@00ZUD0ZZX0E@<30d92@X61PL30`000E@L71dI6AXF5QLC4a000ZUD0ZZX0Z_l0ZP00 e5D0ojX0ZPL71dI6AXF5QLC4a000ZP/;2dY:BXV9RLS8b000oeD0ojX0ool0o`1E05EE0:X0o`/;2dY: BXV9RLS8b000o`l?3di>CXf=SLcCXf=SLcOA`008enOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenO GimO00l0000=000VGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGim402JO3P0000`0 :9m2000XWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOG`d0000;000YGimOWenO GimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWel0@P0XW`d0000:02^O@000:UnOGimOWenO GimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOW``0000:000[WenOGimOWenOGimOWenOGimO WenOGimOWenOGimOWenOGimOWenOGimOW`1002^O2`0000T0;Iln000/WenOGimOWenOGimOWenOGimO WenOGimOWenOGimOWenOGimOWenOGimOWel;00002@00;UnOGimOWenOGimOWenOGimOWenOGimOWenO GimOWenOGimOWenOGimOWenOGill02jO2P0000P0;ill000^GimOWenOGimOWenOGimOWenOGimOWenO GimOWenOGimOWenOGimOWenOGimOW`X00007000aGimOWenOGimOWenOGimOWenOGimOWenOGimOWenO GimOWenOGimOWenOGimOWenOG`0j032O2@0000L0OGimOWenOGimOWenOGimOWenOGimOWenOGimO WenOGimOWenOGimOWenOGimOWenOGil0>00bW`P0000603>O>000P0`W`T0 0007036O>P00<9mOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOG`T0 0008000_WenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGil0?00^W`X0 000802nO?000;UnOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGil:0000 2@00;EnOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOG`0n02bO2`0000X0 :im0000[GimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOG`0;00002`00:UnO GimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWd00:Yl<0000300XWd8002ROGimO WenOGimOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimO3@0000d002IOWenOGimOWenOGimOWenO GimOWenOGimOWenOGimOWenOGimOWd@09Yl>00003P0SWdL002>OGimOWenOGimOWenOGimOWenOGimO WenOGimOWenOGimOW`0@0000400089mOWenOGimOWenOGimOWenOGimOWenOGimOWenOGimOBP0PWa40 000A01jOC0007UnOGimOWenOGimOWenOGimOWenOGimOWenOGimOWa80000B000KWenOGimOWenOGimO WenOGimOWenOGimOWenO04l06ilD0000500FWeD001IOWenOGimOWenOGimOWenOGimOWenO5P0001L0 015OWenOGimOWenOGimOWenOG`1I01:O600001`02ImQ000:WenOGimOWenOGa/0002[0000\ \>"], ImageRangeCache->{{{0, 170}, {55.9375, 0}} -> {-0.119106, -0.105001, 0.00375419, 0.00375419}}] }, Closed]] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Problem in matrix form", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ \(ListPlot[Transpose[{concentrationsS, concentrationsA}]\t\n\t, AspectRatio -> Automatic\n\t, PlotRange -> {{0, 1}, {0, 1}}]\)], "Input"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: 1 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0 1 0 1 [ [.2 -0.0125 -9 -9 ] [.2 -0.0125 9 0 ] [.4 -0.0125 -9 -9 ] [.4 -0.0125 9 0 ] [.6 -0.0125 -9 -9 ] [.6 -0.0125 9 0 ] [.8 -0.0125 -9 -9 ] [.8 -0.0125 9 0 ] [1 -0.0125 -3 -9 ] [1 -0.0125 3 0 ] [-0.0125 .2 -18 -4.5 ] [-0.0125 .2 0 4.5 ] [-0.0125 .4 -18 -4.5 ] [-0.0125 .4 0 4.5 ] [-0.0125 .6 -18 -4.5 ] [-0.0125 .6 0 4.5 ] [-0.0125 .8 -18 -4.5 ] [-0.0125 .8 0 4.5 ] [-0.0125 1 -6 -4.5 ] [-0.0125 1 0 4.5 ] [ 0 0 0 0 ] [ 1 1 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .2 0 m .2 .00625 L s [(0.2)] .2 -0.0125 0 1 Mshowa .4 0 m .4 .00625 L s [(0.4)] .4 -0.0125 0 1 Mshowa .6 0 m .6 .00625 L s [(0.6)] .6 -0.0125 0 1 Mshowa .8 0 m .8 .00625 L s [(0.8)] .8 -0.0125 0 1 Mshowa 1 0 m 1 .00625 L s [(1)] 1 -0.0125 0 1 Mshowa .125 Mabswid .05 0 m .05 .00375 L s .1 0 m .1 .00375 L s .15 0 m .15 .00375 L s .25 0 m .25 .00375 L s .3 0 m .3 .00375 L s .35 0 m .35 .00375 L s .45 0 m .45 .00375 L s .5 0 m .5 .00375 L s .55 0 m .55 .00375 L s .65 0 m .65 .00375 L s .7 0 m .7 .00375 L s .75 0 m .75 .00375 L s .85 0 m .85 .00375 L s .9 0 m .9 .00375 L s .95 0 m .95 .00375 L s .25 Mabswid 0 0 m 1 0 L s 0 .2 m .00625 .2 L s [(0.2)] -0.0125 .2 1 0 Mshowa 0 .4 m .00625 .4 L s [(0.4)] -0.0125 .4 1 0 Mshowa 0 .6 m .00625 .6 L s [(0.6)] -0.0125 .6 1 0 Mshowa 0 .8 m .00625 .8 L s [(0.8)] -0.0125 .8 1 0 Mshowa 0 1 m .00625 1 L s [(1)] -0.0125 1 1 0 Mshowa .125 Mabswid 0 .05 m .00375 .05 L s 0 .1 m .00375 .1 L s 0 .15 m .00375 .15 L s 0 .25 m .00375 .25 L s 0 .3 m .00375 .3 L s 0 .35 m .00375 .35 L s 0 .45 m .00375 .45 L s 0 .5 m .00375 .5 L s 0 .55 m .00375 .55 L s 0 .65 m .00375 .65 L s 0 .7 m .00375 .7 L s 0 .75 m .00375 .75 L s 0 .85 m .00375 .85 L s 0 .9 m .00375 .9 L s 0 .95 m .00375 .95 L s .25 Mabswid 0 0 m 0 1 L s 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath .008 w .1 .91 Mdot .181 .8371 Mdot .24661 .77805 Mdot .29975 .73022 Mdot .3428 .69148 Mdot .37767 .6601 Mdot .40591 .63468 Mdot .42879 .61409 Mdot .44732 .59741 Mdot .46233 .5839 Mdot .47449 .57296 Mdot .48433 .5641 Mdot .49231 .55692 Mdot .49877 .55111 Mdot .504 .5464 Mdot .50824 .54258 Mdot % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 288}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg