(************** Content-type: application/mathematica ************** CreatedBy='Mathematica 5.2' 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[ 98410, 2460]*) (*NotebookOutlinePosition[ 99046, 2482]*) (* CellTagsIndexPosition[ 99002, 2478]*) (*WindowFrame->Normal*) Notebook[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ StyleBox[\(Exploring\ the\ V\_F\), FontSize->50, FontColor->RGBColor[0, 0, 1]], StyleBox["\[Rule]", FontSize->50, FontColor->RGBColor[0, 0, 1]], RowBox[{ StyleBox["0", FontSize->50, FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontSize->50, FontColor->RGBColor[0, 0, 1]], RowBox[{ StyleBox["Limit", FontSize->50, FontColor->RGBColor[0, 0, 1]], StyleBox[".", FontSize->50, FontColor->RGBColor[0, 0, 1]], StyleBox["\[IndentingNewLine]", "Section", FontSize->50, FontColor->RGBColor[0, 1, 0]]}]}]}]}]], "Input"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", StyleBox[\(Matthew\ C . \ Johnson\[IndentingNewLine] \(12/7\)/05\[IndentingNewLine]\[IndentingNewLine] \), FontSize->18]}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[{\(Clear[r, x, rd, xd, r0, rdot0, x0, xdot0, b, z, epsilon, smax, BC, Udot, Vdot, f]\), "\[IndentingNewLine]", RowBox[{\(Off[General::"\"]\), "\[IndentingNewLine]", "\[IndentingNewLine]", StyleBox[\( (*Define\ the\ constants\ in\ the\ potential\ and\ the\ \ boundary\ conditions . \ The\ parameter\ b\ controls\ the\ relative\ height\ of\ the\ \ potential\ wells\ and\ the\ parameter\ z\ controls\ the\ height\ of\ the\ \ false\ vacuum\ well . \ For\ a\ given\ potential, \ there\ is\ a\ unique\ set\ of\ boundary\ conditions\ corresponding\ \ to\ the\ instanton . \ Samples\ are\ given\ in\ the\ next\ cell\ below\ and\ can\ be\ \ copied\ and\ pasted\ between\ the\ lines\ \(\(below\)\(.\)\)*) \), FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]", "\[IndentingNewLine]", StyleBox[\( (*To\ begin, \ copy\ some\ sample\ data\ and\ paste\ between\ the\ \ \(\(lines\)\(.\)\)*) \), FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]", RowBox[{ StyleBox["(*", FontColor->RGBColor[1, 0, 0]], StyleBox[\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(\ --\(--\(---\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\), FontColor->RGBColor[1, 0, 0]], StyleBox["*)", FontColor->RGBColor[1, 0, 0]]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", StyleBox[\( \ (*\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(---\)\)\)\ \)\)\)\)\)\)\)\)\)\)\)\)\)\)*) \), FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]", StyleBox[\( (*Define\ the\ auxiliary\ \(\(function\)\(.\)\)*) \), FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{\(f[x_] := \(-1\)\/2\ x\^2 - b\/3\ x\^3 + 1\/4\ x\^4;\), "\[IndentingNewLine]", "\[IndentingNewLine]", StyleBox[\( (*Find\ the\ extrema\ of\ the\ \(potential : \ s1 < s2 < \(\(s3\)\(.\)\)\)*) \), FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]"}], "\[IndentingNewLine]", \(Udot[ x_] := \(-\((\(-x\) - b\ x\^2 + x\^3)\)\);\), "\[IndentingNewLine]", RowBox[{\(Uddot[x_] := \(-\((\(-1\) - 2\ b\ x + 3\ x\^2)\)\);\), "\[IndentingNewLine]"}], "\[IndentingNewLine]", \(s1 = \(Sort[ p /. Solve[Udot[p] \[Equal] 0, p], Less]\)[\([1]\)];\), "\[IndentingNewLine]", \(s2 = \(Sort[ p /. Solve[Udot[p] \[Equal] 0, p], Less]\)[\([2]\)];\), "\[IndentingNewLine]", RowBox[{\(s3 = \(Sort[p /. Solve[Udot[p] \[Equal] 0, p], Less]\)[\([3]\)];\), "\[IndentingNewLine]", "\[IndentingNewLine]", StyleBox[\( (*Plot\ the\ potential*) \), FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]"}], "\[IndentingNewLine]", \(V[x_] := f[x] - \((1 + z)\)\ f[s1];\), "\[IndentingNewLine]", \(U[ x_] := \(-V[x]\)\), "\[IndentingNewLine]", RowBox[{\(Plot[V[x], {x, \(-2\), 2}, AxesLabel \[Rule] {"\", "\"}];\), "\[IndentingNewLine]", "\[IndentingNewLine]", StyleBox[\( (*The\ remaining\ initial\ conditions\ are\ r[s = 0] = 0, \ xdot[s = 0] = 0, \ and\ rdot[ s = 0] = \(1. \ Unfortunately\ the\ numerics\ cannot\ deal\ \ with\ these\ \((the\ friction\ term\ is\ undefined)\) . \ We\ define\ an\ interval\ in\ x\ of\ 10^\((\(-16\))\)\ \ around\ the\ initial\ position\ \((limited\ by\ machine\ precision)\)\ where\ \ a\ Taylor\ expansion\ to\ first\ order\ can\ be\ used . \ The\ equation\ of\ motion\ for\ r\ is\ r[s] = s\), \ and\ the\ equation\ of\ motion\ for\ x\ is\ x[s]\ = \ x0\ - \ Udot[x0]\/8\ s\^2 . \ We\ use\ these\ equations\ to\ solve\ for\ the\ initial\ \ conditions\ NEAR\ \(\(x0\)\(.\)\)*) \), FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]"}], "\[IndentingNewLine]", \(x0 = x0 - 10\^\(-16\);\), "\[IndentingNewLine]", \(r0 := N[Sqrt[8\/Udot[x0]\ 10\^\(-16\)]];\), "\[IndentingNewLine]", \(rdot0 := 1;\), "\[IndentingNewLine]", RowBox[{\(xdot0 := N[\(-\(Udot[x0]\/4\)\)\ r0];\), "\[IndentingNewLine]", "\[IndentingNewLine]", StyleBox[\( (*These\ are\ the\ boundary\ conditions\ we\ will\ use\ for\ \ the\ numerical\ \(\(integration\)\(.\)\)*) \), FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{\(BC = {r[0] \[Equal] r0, rd[0] \[Equal] rdot0, x[0] \[Equal] x0, xd[0] \[Equal] xdot0};\), "\[IndentingNewLine]", "\[IndentingNewLine]", StyleBox[\( (*We\ define\ a\ system\ of\ 4\ 1 st\ order\ equations\ from\ the\ 2 nd\ order\ equations\ for\ r \((s)\)\ and\ x \(\((s)\)\(.\)\)*) \ \), FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{\(Eqns = {\(rd'\)[s] \[Equal] epsilon\^2\ r[ s]\ \((\(-\((xd[s])\)\^2\) + \ U[x[s]])\), \(xd'\)[s] + 3\ rd[s]\/r[s]\ xd[s] + Udot[x[s]] == 0, rd[s] \[Equal] \(r'\)[s], xd[s] \[Equal] \(x'\)[s]};\), "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", StyleBox[\( (*This\ function\ numerically\ integrates\ the\ equations\ \ of\ motion\ to\ find\ r \((s)\) . \ The\ inputs\ are\ smax, \ which\ is\ the\ maximum\ time\ to\ integrate\ to, \ and\ BC, \ which\ is\ a\ list\ containing\ the\ boundary\ \ \(\(conditions\)\(.\)\)*) \), FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{\(r[t_, smax_, BC_] := \((solution = NDSolve[Join[Eqns, BC], {r, x, rd, xd}, {s, 0, smax}, MaxSteps \[Rule] 200000]; \(\(Evaluate[{r[t]} /. solution]\)[\([1]\)]\)[\([1]\)])\);\), "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", StyleBox[\( (*This\ function\ numerically\ integrates\ the\ equations\ \ of\ motion\ to\ find\ x \((s)\) . \ The\ inputs\ are\ smax, \ which\ is\ the\ maximum\ time\ to\ integrate\ to, \ and\ BC, \ which\ is\ a\ list\ containing\ the\ boundary\ \ \(\(conditions\)\(.\)\)*) \), FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{\(x[t_, smax_, BC_] := \((solution = NDSolve[Join[Eqns, BC], {r, x, rd, xd}, {s, 0, smax}, MaxSteps \[Rule] 200000]; \(\(Evaluate[{x[t]} /. solution]\)[\([1]\)]\)[\([1]\)])\);\), "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", StyleBox[\( (*Plot\ r \((s)\)\ between\ its\ two\ \(\(zeros\)\(.\)\)*) \ \), FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{\(p1 = Plot[r[s, smax, BC], {s, 0, smax}, PlotStyle \[Rule] {{Thickness[ .009], Hue[0. ]}}, PlotRange \[Rule] All, AxesLabel \[Rule] {"\", "\"}];\), "\[IndentingNewLine]", "\[IndentingNewLine]", StyleBox[\( (*Plot\ x \((s)\)\ between\ its\ two\ \(\(zeros\)\(.\)\)*) \ \), FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{\(p3 = Show[Plot[x[s, smax, BC], {s, 0, smax}, PlotStyle \[Rule] {{Thickness[ .009], Hue[0.6]}}, PlotRange \[Rule] All, AxesLabel \[Rule] {"\", "\"}, DisplayFunction \[Rule] Identity\ ], Graphics[{{Dashing[{ .005, .005}], Line[{{0, s1}, {smax, s1}}]}, {Dashing[{ .005, .005}], Line[{{0, s2}, {smax, s2}}]}, {Dashing[{ .005, .005}], Line[{{0, s3}, {smax, s3}}]}}], \ PlotRange \[Rule] {s1 - .1, s3 + .1}, DisplayFunction \[Rule] $DisplayFunction];\), "\[IndentingNewLine]", "\[IndentingNewLine]", StyleBox[\( (*Calculate\ the\ action\ of\ the\ \(\(instanton\)\(.\)\)*) \ \), FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{\(SI = \(-4\)\ Pi\^2\ NIntegrate[\((r[s, smax, BC])\)\^3\ U[ x[s, smax, BC]] + r[s, smax, BC]\/epsilon\^2, {s, 0, smax}];\), "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{\(SBG = \(8\ Pi\^2\)\/\(3\ epsilon\^4\)\ 1\/U[s1];\), "\[IndentingNewLine]"}], "\[IndentingNewLine]", \(Print["\"]\), "\[IndentingNewLine]", \(Print[ N[SI]]\), "\[IndentingNewLine]", \(Print["\"]\), "\[IndentingNewLine]", \(Print[N[SI - SBG]]\)}], "Input"], Cell[CellGroupData[{ 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 %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 0.238095 0.145396 0.632483 [ [.02381 .1329 -6 -9 ] [.02381 .1329 6 0 ] [.2619 .1329 -6 -9 ] [.2619 .1329 6 0 ] [.7381 .1329 -3 -9 ] [.7381 .1329 3 0 ] [.97619 .1329 -3 -9 ] [.97619 .1329 3 0 ] [1.025 .1454 0 -6 ] [1.025 .1454 10 6 ] [.4875 .0189 -24 -4.5 ] [.4875 .0189 0 4.5 ] [.4875 .27189 -18 -4.5 ] [.4875 .27189 0 4.5 ] [.4875 .39839 -18 -4.5 ] [.4875 .39839 0 4.5 ] [.4875 .52489 -18 -4.5 ] [.4875 .52489 0 4.5 ] [.5 .64303 -14 0 ] [.5 .64303 14 12 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .02381 .1454 m .02381 .15165 L s [(-2)] .02381 .1329 0 1 Mshowa .2619 .1454 m .2619 .15165 L s [(-1)] .2619 .1329 0 1 Mshowa .7381 .1454 m .7381 .15165 L s [(1)] .7381 .1329 0 1 Mshowa .97619 .1454 m .97619 .15165 L s [(2)] .97619 .1329 0 1 Mshowa .125 Mabswid .07143 .1454 m .07143 .14915 L s .11905 .1454 m .11905 .14915 L s .16667 .1454 m .16667 .14915 L s .21429 .1454 m .21429 .14915 L s .30952 .1454 m .30952 .14915 L s .35714 .1454 m .35714 .14915 L s .40476 .1454 m .40476 .14915 L s .45238 .1454 m .45238 .14915 L s .54762 .1454 m .54762 .14915 L s .59524 .1454 m .59524 .14915 L s .64286 .1454 m .64286 .14915 L s .69048 .1454 m .69048 .14915 L s .78571 .1454 m .78571 .14915 L s .83333 .1454 m .83333 .14915 L s .88095 .1454 m .88095 .14915 L s .92857 .1454 m .92857 .14915 L s .25 Mabswid 0 .1454 m 1 .1454 L s gsave 1.025 .1454 -61 -10 Mabsadd m 1 1 Mabs scale currentpoint translate 0 20 translate 1 -1 scale /g { setgray} bind def /k { setcmykcolor} bind def /p { gsave} bind def /r { setrgbcolor} bind def /w { setlinewidth} bind def /C { curveto} bind def /F { fill} bind def /L { lineto} bind def /rL { rlineto} bind def /P { grestore} bind def /s { stroke} bind def /S { show} bind def /N {currentpoint 3 -1 roll show moveto} bind def /Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def /m { moveto} bind def /Mr { rmoveto} bind def /Mx {currentpoint exch pop moveto} bind def /My {currentpoint pop exch moveto} bind def /X {0 rmoveto} bind def /Y {0 exch rmoveto} bind def 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore .5 .0189 m .50625 .0189 L s [(-0.2)] .4875 .0189 1 0 Mshowa .5 .27189 m .50625 .27189 L s [(0.2)] .4875 .27189 1 0 Mshowa .5 .39839 m .50625 .39839 L s [(0.4)] .4875 .39839 1 0 Mshowa .5 .52489 m .50625 .52489 L s [(0.6)] .4875 .52489 1 0 Mshowa .125 Mabswid .5 .05052 m .50375 .05052 L s .5 .08215 m .50375 .08215 L s .5 .11377 m .50375 .11377 L s .5 .17702 m .50375 .17702 L s .5 .20864 m .50375 .20864 L s .5 .24027 m .50375 .24027 L s .5 .30352 m .50375 .30352 L s .5 .33514 m .50375 .33514 L s .5 .36677 m .50375 .36677 L s .5 .43001 m .50375 .43001 L s .5 .46164 m .50375 .46164 L s .5 .49326 m .50375 .49326 L s .5 .55651 m .50375 .55651 L s .5 .58813 m .50375 .58813 L s .25 Mabswid .5 0 m .5 .61803 L s gsave .5 .64303 -75 -4 Mabsadd m 1 1 Mabs scale currentpoint translate 0 20 translate 1 -1 scale /g { setgray} bind def /k { setcmykcolor} bind def /p { gsave} bind def /r { setrgbcolor} bind def /w { setlinewidth} bind def /C { curveto} bind def /F { fill} bind def /L { lineto} bind def /rL { rlineto} bind def /P { grestore} bind def /s { stroke} bind def /S { show} bind def /N {currentpoint 3 -1 roll show moveto} bind def /Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def /m { moveto} bind def /Mr { rmoveto} bind def /Mx {currentpoint exch pop moveto} bind def /My {currentpoint pop exch moveto} bind def /X {0 rmoveto} bind def /Y {0 exch rmoveto} bind def 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (V) show %%IncludeResource: font Mathematica2Mono %%IncludeFont: Mathematica2Mono /Mathematica2Mono findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 69.000 13.000 moveto (@) show 75.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show %%IncludeResource: font Mathematica2Mono %%IncludeFont: Mathematica2Mono /Mathematica2Mono findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 81.000 13.000 moveto (D) show 87.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath .5 Mabswid .13547 .61803 m .14415 .54637 L .16372 .42921 L .18466 .33141 L .20597 .25727 L .21574 .23079 L .22611 .20736 L .23561 .18974 L .24608 .17425 L .2556 .16341 L .26452 .15581 L .26948 .15257 L .2749 .14978 L .27738 .14875 L .28002 .14782 L .28249 .1471 L .28477 .14656 L .28717 .14611 L .28841 .14593 L .28977 .14577 L .29096 .14566 L .29206 .14559 L .29323 .14553 L .29448 .14551 L .29562 .14551 L .29685 .14554 L .29801 .14559 L .29909 .14567 L .30113 .14586 L .30329 .14615 L .30567 .14656 L .30818 .1471 L .31266 .1483 L .32276 .15208 L .33149 .15636 L .34104 .16195 L .3816 .19192 L .42065 .22184 L .44056 .23456 L .45105 .24014 L .46215 .24504 L .47205 .24845 L .47768 .24996 L .48295 .25108 L .48543 .25151 L .48778 .25185 L .48992 .25211 L .4922 .25234 L .49349 .25244 L .49466 .25251 L Mistroke .49585 .25258 L .49695 .25262 L .49823 .25266 L .49891 .25267 L .49962 .25267 L .50082 .25267 L .50213 .25265 L .50344 .25261 L .50465 .25255 L .50598 .25247 L .50739 .25237 L .50975 .25214 L .51236 .25181 L .51717 .25101 L .52168 .25002 L .53175 .24695 L .5426 .24235 L .56268 .23036 L .5838 .21317 L .62196 .17209 L .66257 .11947 L .70167 .06875 L .72162 .04637 L .73212 .03634 L .74322 .02743 L .75315 .02122 L .75879 .01854 L .7615 .01749 L .76406 .01664 L .76638 .016 L .7689 .01544 L .77001 .01525 L .7712 .01507 L .7723 .01494 L .77332 .01484 L .77449 .01476 L .77575 .01472 L .77687 .01472 L .77804 .01475 L .77933 .01482 L .78053 .01493 L .78184 .0151 L .78325 .01533 L .78583 .0159 L .78857 .01672 L .79348 .01875 L .79876 .02178 L .80457 .02619 L .81498 .03708 L .82472 .05106 L Mistroke .83511 .07036 L .84498 .09327 L .86351 .14956 L .88333 .23139 L .90172 .33004 L .92189 .46662 L Mfstroke .92189 .46662 m .93996 .61803 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgOooool00ol0003ooooooooo o`0Aooooo`03o`000?oooooooooo04Kooooo0027ooooo`03o`000?oooooooooo03Sooooo00?o0000 ooooooooool04oooool00ol0003oooooooooo`15ooooo`00Qoooool00ol0003oooooooooo`0goooo o`03o`000?oooooooooo01Cooooo00?o0000ooooooooool0AOooool008Oooooo00?o0000oooooooo ool0=_ooool00ol0003oooooooooo`0Fooooo`03o`000?oooooooooo04Cooooo0027ooooo`03o`00 0?oooooooooo03Kooooo00?o0000ooooooooool05_ooool00ol0003oooooooooo`14ooooo`00Qooo ool2o`0003Kooooo00?o0000ooooooooool06?ooool00ol0003oooooooooo`13ooooo`00Qoooool0 0ol0003oooooooooo`0dooooo`03o`000?oooooooooo01Wooooo00?o0000ooooooooool0@oooool0 08Oooooo00?o0000ooooooooool0Oooool3o`0003Wooooo00?o0000ooooooooool0:_ooool00ol0003o ooooooooo`0;ooooo`?o00006oooool00ol0003oooooooooo`0Kooooo`Go00007Oooool000kooooo 00Co0000oooooooooooo0000>_ooool00ol0003oooooooooo`0hooooo`03o`000?oooooooooo02Wo oooo00?o0000ooooooooool03Oooool00ol0003oooooooooo`0Jooooo`03o`000?oooooooooo01co oooo00Co0000oooooooooooo00007Oooool000Oooooo1Ol00003ooooo`03o`000?oooooooooo03;o oooo1Ol00003ooooo`03o`000?oooooooooo03Sooooo00?o0000ooooooooool0:?ooool00ol0003o ooooooooo`0>ooooo`03o`000?oooooooooo01_ooooo00?o0000ooooooooool07?ooool00ol0003o ooooooooo`0Mooooo`004?ooool00ol0003oooooooooo`0iooooo`03o`000?oooooooooo03Sooooo 0_l0000Xooooo`03o`000?oooooooooo00oooooo00?o0000ooooooooool06oooool00ol0003ooooo ooooo`0Mooooo`03o`000?oooooooooo01cooooo000=ooooo`05o`000?ooooooooooooooool00000 >_ooool00ol0003oooooooooo`0hooooo`03o`000?oooooooooo02Kooooo00?o0000ooooooooool0 4?ooool00ol0003oooooooooo`0Kooooo`03o`000?oooooooooo01[ooooo00Go0000oooooooooooo ooooo`00000Mooooo`003Oooool01Ol0003ooooooooooooooooo000003Wooooo0_l0000jooooo`03 o`000?oooooooooo02Kooooo00?o0000ooooooooool03oooool2o`0001kooooo00?o0000oooooooo ool06Oooool01Ol0003ooooooooooooooooo000001gooooo000>ooooo`?o0000>oooool00ol0003o ooooooooo`0hooooo`03o`000?oooooooooo02Gooooo00?o0000ooooooooool04Oooool00ol0003o ooooooooo`0Looooo`03o`000?oooooooooo01[ooooo0ol0000Nooooo`00Qoooool00ol0003ooooo ooooo`0Tooooo`03o`000?oooooooooo037ooooo00?o0000ooooooooool0>oooool008Oooooo00?o 0000ooooooooool08oooool00ol0003oooooooooo`0cooooo`03o`000?oooooooooo03[ooooo0027 ooooo`03o`000?oooooooooo02?ooooo00?o0000ooooooooool0_ooool00ol0 003oooooooooo`0hooooo`00B?ooool00ol0003oooooooooo`0Eooooo`03o`000?oooooooooo02Co oooo00?o0000ooooooooool07_ooool00ol0003oooooooooo`0jooooo`03o`000?oooooooooo03So oooo0017ooooo`03o`000?oooooooooo01Oooooo00?o0000ooooooooool08oooool00ol0003ooooo ooooo`0Mooooo`03o`000?oooooooooo03_ooooo00?o0000ooooooooool0>?ooool004Kooooo00?o 0000ooooooooool06Oooool00ol0003oooooooooo`0Rooooo`03o`000?oooooooooo01cooooo00?o 0000ooooooooool0??ooool00ol0003oooooooooo`0hooooo`00A_ooool00ol0003oooooooooo`0J ooooo`;o00008_ooool2o`0001cooooo00?o0000ooooooooool0?_ooool00ol0003oooooooooo`0g ooooo`00AOooool00ol0003oooooooooo`0Mooooo`03o`000?oooooooooo01oooooo00?o0000oooo ooooool06_ooool00ol0003oooooooooo`0oooooo`03o`000?oooooooooo03Oooooo0014ooooo`03 o`000?oooooooooo01oooooo00?o0000ooooooooool07_ooool00ol0003oooooooooo`0Iooooo`03 o`000?oooooooooo043ooooo00?o0000ooooooooool0=oooool004?ooooo00?o0000ooooooooool0 8Oooool00ol0003oooooooooo`0Mooooo`03o`000?oooooooooo01Sooooo00?o0000ooooooooool0 @Oooool00ol0003oooooooooo`0gooooo`00@oooool00ol0003oooooooooo`0Rooooo`;o00007Ooo ool00ol0003oooooooooo`0Gooooo`03o`000?oooooooooo04?ooooo00?o0000ooooooooool0=_oo ool004;ooooo00?o0000ooooooooool09Oooool00ol0003oooooooooo`0Jooooo`03o`000?oooooo oooo01Kooooo00?o0000ooooooooool0A?ooool00ol0003oooooooooo`0fooooo`00@_ooool00ol0 003oooooooooo`0Vooooo`;o00006_ooool00ol0003oooooooooo`0Eooooo`03o`000?oooooooooo 04Gooooo00?o0000ooooooooool0=_ooool004;ooooo00?o0000ooooooooool0:?ooool00ol0003o ooooooooo`0Gooooo`03o`000?oooooooooo01Cooooo00?o0000ooooooooool0A_ooool00ol0003o ooooooooo`0fooooo`00@Oooool00ol0003oooooooooo`0Zooooo`03o`000?oooooooooo01Kooooo 0_l0000Dooooo`03o`000?oooooooooo04Oooooo00?o0000ooooooooool0=_ooool0047ooooo00?o 0000ooooooooool0:oooool2o`0001Kooooo00?o0000ooooooooool04_ooool00ol0003ooooooooo o`19ooooo`03o`000?oooooooooo03Gooooo0010ooooo`03o`000?oooooooooo02kooooo00?o0000 ooooooooool04oooool00ol0003oooooooooo`0Aooooo`03o`000?oooooooooo04[ooooo00?o0000 ooooooooool0=Oooool0043ooooo00?o0000ooooooooool0;oooool2o`0001?ooooo00?o0000oooo ooooool04?ooool00ol0003oooooooooo`1;ooooo`03o`000?oooooooooo03Gooooo000oooooo`03 o`000?oooooooooo03;ooooo00?o0000ooooooooool04?ooool00ol0003oooooooooo`0?ooooo`03 o`000?oooooooooo04cooooo00?o0000ooooooooool0=Oooool003oooooo00?o0000ooooooooool0 ooooo`03o`00 0?oooooooooo03Cooooo000nooooo`03o`000?oooooooooo03Kooooo00?o0000ooooooooool03Ooo ool00ol0003oooooooooo`0oooool00ol0003oooooooooo`0fooooo`;o00001?ooool01?l0003oooooooooooooool5o`00 00Cooooo00?o0000ooooooooool0HOooool00ol0003oooooooooo`0booooo`00>oooool00ol0003o ooooooooo`0eooooo`04o`000?ooooooooooo`0000Sooooo00Co0000oooooooooooo00001?ooool0 0ol0003oooooooooo`1Qooooo`03o`000?oooooooooo03;ooooo000jooooo`03o`000?oooooooooo 03Kooooo00Co0000oooooooooooo00002Oooool00ol0003oooooooooo`04ooooo`;o0000H_ooool0 0ol0003oooooooooo`0booooo`00>_ooool00ol0003oooooooooo`0fooooo`04o`000?oooooooooo o`0000[ooooo00?o0000ooooooooool00oooool00ol0003oooooooooo`1Qooooo`03o`000?oooooo oooo03;ooooo000jooooo`03o`000?oooooooooo03Kooooo00Co0000oooooooooooo00001oooool0 1Ol0003ooooooooooooooooo000000Cooooo00?o0000ooooooooool0HOooool00ol0003ooooooooo o`0booooo`00>_ooool00ol0003oooooooooo`0fooooo`04o`000?ooooooooooo`0000Oooooo00Go 0000ooooooooooooooooo`000004ooooo`03o`000?oooooooooo06;ooooo00?o0000ooooooooool0 ?ooool2o`0000Wooooo0ol00005ooooo`03o`000?oo oooooooo06;ooooo00?o0000ooooooooool0?ooool00ol0003o ooooooooo`1ooooo`;o0000IOooool00ol0003oooooooooo`0_ooooo`00=_ooool00ol0003ooooo ooooo`1>ooooo`03o`000?oooooooooo06Cooooo00?o0000ooooooooool0;oooool003Gooooo00?o 0000ooooooooool0Coooool00ol0003oooooooooo`1Uooooo`03o`000?oooooooooo02kooooo000e ooooo`03o`000?oooooooooo04oooooo00?o0000ooooooooool0IOooool00ol0003oooooooooo`0^ ooooo`00=Oooool00ol0003oooooooooo`1?ooooo`03o`000?oooooooooo06Gooooo00?o0000oooo ooooool0;_ooool003Gooooo00?o0000ooooooooool0Coooool00ol0003oooooooooo`1Uooooo`03 o`000?oooooooooo02kooooo000eooooo`03o`000?oooooooooo04oooooo00?o0000ooooooooool0 IOooool00ol0003oooooooooo`0^ooooo`00=?ooool00ol0003oooooooooo`1@ooooo`03o`000?oo oooooooo06Gooooo00?o0000ooooooooool0;_ooool003Cooooo00?o0000ooooooooool0D?ooool2 o`0006Kooooo00?o0000ooooooooool0;_ooool003Cooooo00?o0000ooooooooool0D?ooool00ol0 003oooooooooo`1Vooooo`03o`000?oooooooooo02gooooo000dooooo`03o`000?oooooooooo053o oooo00?o0000ooooooooool0I_ooool00ol0003oooooooooo`0]ooooo`00=?ooool00ol0003ooooo ooooo`1@ooooo`03o`000?oooooooooo06Kooooo00?o0000ooooooooool0;Oooool003?ooooo00?o 0000ooooooooool0DOooool00ol0003oooooooooo`1Vooooo`03o`000?oooooooooo02gooooo000c ooooo`03o`000?oooooooooo03kooooo0_l00004ooooo`03o`000?oooooooooo00?ooooo0ol00004 ooooo`03o`000?oooooooooo06Kooooo00?o0000ooooooooool0;Oooool003?ooooo00?o0000oooo ooooool0?Oooool01?l0003oooooooooool0000:ooooo`03o`000?oooooooooo00?ooooo00?o0000 ooooooooool0I_ooool00ol0003oooooooooo`0]ooooo`00ooooo`00OOooool00ol0003oooooooooo`04oooo o`03o`000?oooooooooo00;o000000?oooooo`000?l000000oooool00ol0003oooooooooo`2>oooo o`00OOooool00ol0003oooooooooo`04ooooo`07o`000?ooooooooooooooool0003oooooo`000004 ooooo`03o`000?oooooooooo08kooooo001mooooo`03o`000?oooooooooo00Cooooo00?o0000oooo ooooool00_ooool00ol0003oooooooooo`03ooooo`03o`000?oooooooooo08kooooo001looooo`03 o`000?oooooo000000Gooooo00Oo0000ooooooooooooooooo`000?oooooo000000Cooooo00?o0000 ooooooooool0S_ooool007cooooo00?o0000ooooool000001Oooool00ol0003oooooooooo`02o`00 0003ooooool0003o000000?ooooo00?o0000ooooooooool0S_ooool007cooooo00?o0000ooooool0 00001Oooool2o`0000Sooooo0_l0002@ooooo`00Noooool5o`000:3ooooo003oooooob7ooooo003o ooooob7ooooo0000\ \>"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-2.21536, -0.229886, \ 0.0163744, 0.00616407}}], 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 %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.0238095 0.0616449 0.014715 0.0706771 [ [.17792 .00222 -9 -9 ] [.17792 .00222 9 0 ] [.33203 .00222 -3 -9 ] [.33203 .00222 3 0 ] [.48615 .00222 -9 -9 ] [.48615 .00222 9 0 ] [.64026 .00222 -6 -9 ] [.64026 .00222 6 0 ] [.79437 .00222 -12 -9 ] [.79437 .00222 12 0 ] [.94848 .00222 -6 -9 ] [.94848 .00222 6 0 ] [1.025 .01472 0 -6 ] [1.025 .01472 10 6 ] [.01131 .15607 -6 -4.5 ] [.01131 .15607 0 4.5 ] [.01131 .29742 -6 -4.5 ] [.01131 .29742 0 4.5 ] [.01131 .43878 -6 -4.5 ] [.01131 .43878 0 4.5 ] [.01131 .58013 -6 -4.5 ] [.01131 .58013 0 4.5 ] [.02381 .64303 -14 0 ] [.02381 .64303 14 12 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .17792 .01472 m .17792 .02097 L s [(2.5)] .17792 .00222 0 1 Mshowa .33203 .01472 m .33203 .02097 L s [(5)] .33203 .00222 0 1 Mshowa .48615 .01472 m .48615 .02097 L s [(7.5)] .48615 .00222 0 1 Mshowa .64026 .01472 m .64026 .02097 L s [(10)] .64026 .00222 0 1 Mshowa .79437 .01472 m .79437 .02097 L s [(12.5)] .79437 .00222 0 1 Mshowa .94848 .01472 m .94848 .02097 L s [(15)] .94848 .00222 0 1 Mshowa .125 Mabswid .05463 .01472 m .05463 .01847 L s .08545 .01472 m .08545 .01847 L s .11628 .01472 m .11628 .01847 L s .1471 .01472 m .1471 .01847 L s .20874 .01472 m .20874 .01847 L s .23957 .01472 m .23957 .01847 L s .27039 .01472 m .27039 .01847 L s .30121 .01472 m .30121 .01847 L s .36286 .01472 m .36286 .01847 L s .39368 .01472 m .39368 .01847 L s .4245 .01472 m .4245 .01847 L s .45532 .01472 m .45532 .01847 L s .51697 .01472 m .51697 .01847 L s .54779 .01472 m .54779 .01847 L s .57861 .01472 m .57861 .01847 L s .60944 .01472 m .60944 .01847 L s .67108 .01472 m .67108 .01847 L s .7019 .01472 m .7019 .01847 L s .73273 .01472 m .73273 .01847 L s .76355 .01472 m .76355 .01847 L s .82519 .01472 m .82519 .01847 L s .85602 .01472 m .85602 .01847 L s .88684 .01472 m .88684 .01847 L s .91766 .01472 m .91766 .01847 L s .97931 .01472 m .97931 .01847 L s .25 Mabswid 0 .01472 m 1 .01472 L s gsave 1.025 .01472 -61 -10 Mabsadd m 1 1 Mabs scale currentpoint translate 0 20 translate 1 -1 scale /g { setgray} bind def /k { setcmykcolor} bind def /p { gsave} bind def /r { setrgbcolor} bind def /w { setlinewidth} bind def /C { curveto} bind def /F { fill} bind def /L { lineto} bind def /rL { rlineto} bind def /P { grestore} bind def /s { stroke} bind def /S { show} bind def /N {currentpoint 3 -1 roll show moveto} bind def /Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def /m { moveto} bind def /Mr { rmoveto} bind def /Mx {currentpoint exch pop moveto} bind def /My {currentpoint pop exch moveto} bind def /X {0 rmoveto} bind def /Y {0 exch rmoveto} bind def 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (s) show 69.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore .02381 .15607 m .03006 .15607 L s [(2)] .01131 .15607 1 0 Mshowa .02381 .29742 m .03006 .29742 L s [(4)] .01131 .29742 1 0 Mshowa .02381 .43878 m .03006 .43878 L s [(6)] .01131 .43878 1 0 Mshowa .02381 .58013 m .03006 .58013 L s [(8)] .01131 .58013 1 0 Mshowa .125 Mabswid .02381 .05005 m .02756 .05005 L s .02381 .08539 m .02756 .08539 L s .02381 .12073 m .02756 .12073 L s .02381 .19141 m .02756 .19141 L s .02381 .22675 m .02756 .22675 L s .02381 .26208 m .02756 .26208 L s .02381 .33276 m .02756 .33276 L s .02381 .3681 m .02756 .3681 L s .02381 .40344 m .02756 .40344 L s .02381 .47412 m .02756 .47412 L s .02381 .50945 m .02756 .50945 L s .02381 .54479 m .02756 .54479 L s .02381 .61547 m .02756 .61547 L s .25 Mabswid .02381 0 m .02381 .61803 L s gsave .02381 .64303 -75 -4 Mabsadd m 1 1 Mabs scale currentpoint translate 0 20 translate 1 -1 scale /g { setgray} bind def /k { setcmykcolor} bind def /p { gsave} bind def /r { setrgbcolor} bind def /w { setlinewidth} bind def /C { curveto} bind def /F { fill} bind def /L { lineto} bind def /rL { rlineto} bind def /P { grestore} bind def /s { stroke} bind def /S { show} bind def /N {currentpoint 3 -1 roll show moveto} bind def /Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def /m { moveto} bind def /Mr { rmoveto} bind def /Mx {currentpoint exch pop moveto} bind def /My {currentpoint pop exch moveto} bind def /X {0 rmoveto} bind def /Y {0 exch rmoveto} bind def 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (r) show %%IncludeResource: font Mathematica2Mono %%IncludeFont: Mathematica2Mono /Mathematica2Mono findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 69.000 13.000 moveto (@) show 75.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (s) show %%IncludeResource: font Mathematica2Mono %%IncludeFont: Mathematica2Mono /Mathematica2Mono findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 81.000 13.000 moveto (D) show 87.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore 1 0 0 r .009 w .02381 .01472 m .06244 .05923 L .10458 .1093 L .14415 .15929 L .18221 .2115 L .22272 .2731 L .26171 .33955 L .30316 .41781 L .34309 .49575 L .3815 .56029 L .40134 .58385 L .41134 .59235 L .41703 .5961 L .42237 .59889 L .42733 .60087 L .43014 .60173 L .43275 .60236 L .43404 .60261 L .43525 .60281 L .43635 .60297 L .43752 .6031 L .4388 .60321 L .43997 .60327 L .44123 .60331 L .44194 .60332 L .44261 .60331 L .44376 .60328 L .44501 .60322 L .4462 .60313 L .44729 .60302 L .44936 .60274 L .45155 .60235 L .45611 .60124 L .46114 .59956 L .47123 .59489 L .48048 .58927 L .50134 .57299 L .54096 .53378 L .57907 .49179 L .61963 .44578 L .65868 .40116 L .70018 .35365 L .74016 .30784 L .77863 .26376 L .81954 .21686 L .85895 .17169 L .89683 .12826 L .93717 .08201 L .976 .03736 L .97619 .03713 L Mistroke Mfstroke 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgooooo`005oooool01?l0003oo`00ool00?oo003oooooo`Kooooo000Goooo o`03o`000?ooooooo`0000;oo`00ooooool5ooooo`005oooool00ol0003oooooooooo`03ool00>7o oooo0_oo000Pooooo`005oooool01?l0003oooooooooooooool3ool00>3ooooo0_oo000Pooooo`00 5oooool00ol0003oooooooooo`02ooooo`?oo`00g_ooool3ool0023ooooo000Gooooo`;o00001?oo ool3ool00=cooooo0ooo000Qooooo`005oooool00ol0003oooooooooo`04ooooo`?oo`00f_ooool3 ool002;ooooo000Gooooo`03o`000?oooooooooo00Gooooo0ooo003Hooooo`?oo`008oooool001Oo oooo00?o0000ooooooooool01_ooool2ool00=Oooooo0ooo000Tooooo`005oooool00ol0003ooooo ooooo`06ooooo`?oo`00eOooool3ool002Gooooo000Gooooo`03o`000?oooooooooo00Oooooo0ooo 003Cooooo`?oo`009_ooool001Oooooo00?o0000ooooooooool02?ooool3ool00=7ooooo0ooo000W ooooo`005oooool00ol0003oooooooooo`09ooooo`;oo`00d?ooool3ool002Sooooo000Gooooo`03 o`000?oooooooooo00Wooooo0ooo003>ooooo`?oo`00:Oooool001Oooooo0_l0000;ooooo`?oo`00 cOooool2ool002[ooooo000Gooooo`03o`000?oooooooooo00_ooooo0ooo003;ooooo`?oo`00:_oo ool001Oooooo00?o0000ooooooooool03?ooool3ool00ooooo`05o`000?ooooooooooooooool000001?oo ool00ol0003oooooooooo`0Hooooo`?oo`00[oooool3ool003Wooooo000>ooooo`05o`000?oooooo ooooooooool000001?ooool00ol0003oooooooooo`0Iooooo`;oo`00[_ooool3ool003[ooooo000? ooooo`?o00001Oooool00ol0003oooooooooo`0Iooooo`?oo`00[?ooool3ool003_ooooo000Goooo o`03o`000?oooooooooo01[ooooo0ooo002Zooooo`?oo`00??ooool001Oooooo00?o0000oooooooo ool06oooool3ool00:Wooooo0_oo000mooooo`005oooool00ol0003oooooooooo`0Looooo`?oo`00 Yoooool3ool003gooooo000Gooooo`03o`000?oooooooooo01gooooo0ooo002Uooooo`?oo`00?_oo ool001Oooooo00?o0000ooooooooool07_ooool2ool00:Cooooo0ooo000oooooo`005oooool2o`00 01oooooo0ooo002Rooooo`?oo`00@?ooool001Oooooo00?o0000ooooooooool07oooool3ool00:3o oooo0ooo0011ooooo`005oooool00ol0003oooooooooo`0Pooooo`?oo`00Woooool2ool004;ooooo 000Gooooo`03o`000?oooooooooo027ooooo0ooo002Mooooo`?oo`00@_ooool001Oooooo00?o0000 ooooooooool08_ooool3ool009_ooooo0ooo0013ooooo`005oooool00ol0003oooooooooo`0Soooo o`;oo`00V_ooool3ool004Cooooo000Gooooo`03o`000?oooooooooo02?ooooo0ooo002Hooooo`?o o`00AOooool001Oooooo00?o0000ooooooooool09?ooool3ool009Oooooo0_oo0016ooooo`005ooo ool2o`0002Kooooo0_oo002Fooooo`?oo`00A_ooool001Oooooo00?o0000ooooooooool09Oooool3 ool009Cooooo0ooo0017ooooo`005oooool00ol0003oooooooooo`0Vooooo`?oo`00T_ooool3ool0 04Sooooo000Gooooo`03o`000?oooooooooo02Oooooo0_oo002Aooooo`?oo`00BOooool001Oooooo 00?o0000ooooooooool09oooool3ool008oooooo0ooo001:ooooo`005oooool00ol0003ooooooooo o`0Xooooo`?oo`00SOooool3ool004_ooooo000Gooooo`03o`000?oooooooooo02Wooooo0_oo002< ooooo`?oo`00C?ooool001Oooooo00?o0000ooooooooool0:Oooool3ool008[ooooo0ooo001=oooo o`005oooool00ol0003oooooooooo`0Zooooo`?oo`00R?ooool3ool004kooooo000Gooooo`;o0000 ;?ooool2ool008Oooooo0ooo001?ooooo`005oooool00ol0003oooooooooo`0[ooooo`?oo`00Q_oo ool2ool0053ooooo000Gooooo`03o`000?oooooooooo02cooooo0ooo0024ooooo`?oo`00D?ooool0 01Oooooo00?o0000ooooooooool0;Oooool2ool008?ooooo0ooo001Aooooo`005oooool00ol0003o ooooooooo`0]ooooo`?oo`00POooool3ool005;ooooo000Gooooo`03o`000?oooooooooo02kooooo 0_oo0020ooooo`?oo`00Doooool0013ooooo0ol00004ooooo`03o`000?oooooooooo02kooooo0ooo 001nooooo`?oo`00E?ooool0017ooooo00?o0000ooooooooool00oooool00ol0003oooooooooo`0_ ooooo`;oo`00O_ooool2ool005Gooooo000>ooooo`Go00001?ooool3o`0002oooooo0ooo001loooo o`?oo`00EOooool000kooooo00Co0000oooooooooooo00001Oooool00ol0003oooooooooo`0`oooo o`;oo`00Noooool3ool005Kooooo000?ooooo`03o`000?oooooo000000Gooooo00?o0000oooooooo ool0?ooool2ool006Kooooo0ooo001Sooooo`005oooool00ol0003o ooooooooo`0hooooo`?oo`00I?ooool3ool006Cooooo000Gooooo`;o0000>_ooool2ool006?ooooo 0ooo001Uooooo`005oooool00ol0003oooooooooo`0iooooo`?oo`00HOooool3ool006Kooooo000G ooooo`03o`000?oooooooooo03[ooooo0_oo001Pooooo`?oo`00Ioooool001Oooooo00?o0000oooo ooooool0>_ooool3ool005oooooo0_oo001Xooooo`005oooool00ol0003oooooooooo`0kooooo`?o o`00GOooool3ool006Sooooo000Gooooo`03o`000?oooooooooo03cooooo0_oo001Looooo`?oo`00 JOooool001Oooooo00?o0000ooooooooool0??ooool3ool005[ooooo0ooo001Zooooo`005oooool0 0ol0003oooooooooo`0mooooo`;oo`00FOooool3ool006_ooooo000Gooooo`;o0000?_ooool3ool0 05Oooooo0ooo001/ooooo`005oooool00ol0003oooooooooo`0nooooo`;oo`00E_ooool3ool006go oooo000Gooooo`03o`000?oooooooooo03kooooo0ooo001Dooooo`?oo`00K_ooool001Oooooo00?o 0000ooooooooool0?oooool2ool005?ooooo0ooo001_ooooo`005oooool00ol0003oooooooooo`0o ooooo`?oo`00DOooool3ool0073ooooo000Gooooo`03o`000?oooooooooo043ooooo0_oo001@oooo o`?oo`00LOooool000oooooo0ol00005ooooo`03o`000?oooooooooo043ooooo0ooo001>ooooo`?o o`00L_ooool000kooooo00Go0000ooooooooooooooooo`000004ooooo`03o`000?oooooooooo047o oooo0_oo001=ooooo`?oo`00Loooool000kooooo00Go0000ooooooooooooooooo`000004ooooo`03 o`000?oooooooooo047ooooo0ooo001;ooooo`?oo`00M?ooool000kooooo1?l00005ooooo`?o0000 @_ooool2ool004[ooooo0ooo001eooooo`003_ooool00ol0003oooooooooo`06ooooo`03o`000?oo oooooooo04;ooooo0ooo0018ooooo`?oo`00M_ooool000oooooo00?o0000ooooooooool01Oooool0 0ol0003oooooooooo`13ooooo`;oo`00B?ooool2ool007Oooooo000@ooooo`;o00001Oooool00ol0 003oooooooooo`13ooooo`?oo`00A_ooool3ool007Oooooo000Gooooo`03o`000?oooooooooo04Co oooo0_oo0015ooooo`?oo`00N?ooool001Oooooo00?o0000ooooooooool0A?ooool3ool004?ooooo 0ooo001iooooo`005oooool00ol0003oooooooooo`15ooooo`?oo`00@Oooool3ool007[ooooo000G ooooo`03o`000?oooooooooo04Kooooo0_oo0010ooooo`?oo`00Noooool001Oooooo0_l00017oooo o`?oo`00?oooool2ool007cooooo000Gooooo`03o`000?oooooooooo04Oooooo0_oo000nooooo`?o o`00O?ooool001Oooooo00?o0000ooooooooool0Aoooool3ool003cooooo0ooo001mooooo`005ooo ool00ol0003oooooooooo`18ooooo`;oo`00>oooool3ool007kooooo000Gooooo`03o`000?oooooo oooo04Sooooo0ooo000iooooo`?oo`00Ooooool001Oooooo00?o0000ooooooooool0BOooool2ool0 03Sooooo0ooo0020ooooo`005oooool00ol0003oooooooooo`19ooooo`?oo`00=oooool2ool0087o oooo000Gooooo`03o`000?oooooooooo04[ooooo0_oo000fooooo`?oo`00POooool001Oooooo00?o 0000ooooooooool0B_ooool3ool003Cooooo0ooo0022ooooo`005oooool2o`0004cooooo0ooo000b ooooo`?oo`00Poooool001Oooooo00?o0000ooooooooool0C?ooool2ool0037ooooo0ooo0024oooo o`005oooool00ol0003oooooooooo`1ooooo`?oo`00:_ooool3 ool008Sooooo000Gooooo`03o`000?oooooooooo04oooooo0_oo000Xooooo`Coo`00ROooool001Oo oooo00?o0000ooooooooool0Coooool3ool002Kooooo1?oo002:ooooo`005oooool00ol0003ooooo ooooo`1@ooooo`;oo`009Oooool3ool008cooooo000Gooooo`;o0000DOooool3ool002?ooooo0ooo 002=ooooo`005oooool00ol0003oooooooooo`1Aooooo`?oo`008Oooool3ool008kooooo000Goooo o`03o`000?oooooooooo05;ooooo0_oo000Pooooo`?oo`00Soooool001Oooooo00?o0000oooooooo ool0D_ooool3ool001kooooo0ooo002@ooooo`005oooool00ol0003oooooooooo`1Cooooo`;oo`00 7Oooool3ool0097ooooo000Gooooo`03o`000?oooooooooo05?ooooo0ooo000Kooooo`?oo`00T_oo ool000oooooo0ol00005ooooo`03o`000?oooooooooo05Cooooo0ooo000Hooooo`Coo`00Toooool0 00kooooo00Go0000ooooooooooooooooo`000004ooooo`03o`000?oooooooooo05Gooooo0ooo000F ooooo`Coo`00U?ooool000kooooo00Go0000ooooooooooooooooo`000004ooooo`?o0000E_ooool3 ool001Cooooo0ooo002Fooooo`003oooool3o`0000Gooooo00?o0000ooooooooool0Eoooool3ool0 01;ooooo0ooo002Gooooo`003_ooool01Ol0003ooooooooooooooooo000000Cooooo00?o0000oooo ooooool0F?ooool3ool0013ooooo0ooo002Hooooo`003_ooool01Ol0003ooooooooooooooooo0000 00Cooooo00?o0000ooooooooool0FOooool4ool000gooooo0ooo002Iooooo`003oooool3o`0000Go oooo00?o0000ooooooooool0F_ooool4ool000[ooooo1?oo002Jooooo`005oooool00ol0003ooooo ooooo`1Looooo`Goo`001?ooool6ool009_ooooo000Gooooo`03o`000?oooooooooo05gooooo3?oo 002Mooooo`005oooool00ol0003oooooooooo`1Pooooo`Koo`00X?ooool001Oooooo00?o0000oooo ooooool0ooooool7ooooo`005oooool2o`000?oooooo2?ooool00?oooooo8Oooool00?oooooo8Ooo ool00?oooooo8Oooool00?oooooo8Oooool00?oooooo8Oooool00?oooooo8Oooool00?oooooo8Ooo ool001Cooooo0_l00008ooooo`;o0000ooooool1ooooo`005?ooool00ol0003oooooooooo`08oooo o`03o`000?oooooooooo0?kooooo000;ooooo`?o00001_ooool00ol0003oooooooooo`04o`0000Co oooo00?o0000ooooooooool0o_ooool000cooooo00?o0000ooooooooool01Oooool00ol0003ooooo ooooo`04ooooo`05o`000?ooooooooooooooool00000ooooool1ooooo`003?ooool00ol0003ooooo ooooo`05ooooo`04o`000?ooooooooooooooo`?o00001?ooool00ol0003oooooooooo`3nooooo`00 3?ooool2o`0000Kooooo00Co0000oooooooooooo00001oooool00ol0003oooooooooo`3nooooo`00 2oooool2o`000003ooooool0003o000000Cooooo00Co0000oooooooooooooooo1?l00003ooooo`03 o`000?oooooooooo0?kooooo000Dooooo`;o00002?ooool2o`000?oooooo0Oooool00?oooooo8Ooo ool00?oooooo8Oooool00?oooooo8Oooool00001\ \>"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-1.57886, -0.700131, \ 0.0666632, 0.0581439}}], 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 %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.0238095 0.0616449 0.267303 0.278096 [ [.17792 .2548 -9 -9 ] [.17792 .2548 9 0 ] [.33203 .2548 -3 -9 ] [.33203 .2548 3 0 ] [.48615 .2548 -9 -9 ] [.48615 .2548 9 0 ] [.64026 .2548 -6 -9 ] [.64026 .2548 6 0 ] [.79437 .2548 -12 -9 ] [.79437 .2548 12 0 ] [.94848 .2548 -6 -9 ] [.94848 .2548 6 0 ] [1.025 .2673 0 -6 ] [1.025 .2673 10 6 ] [.01131 .12825 -24 -4.5 ] [.01131 .12825 0 4.5 ] [.01131 .40635 -18 -4.5 ] [.01131 .40635 0 4.5 ] [.01131 .5454 -6 -4.5 ] [.01131 .5454 0 4.5 ] [.02381 .64303 -14 0 ] [.02381 .64303 14 12 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .17792 .2673 m .17792 .27355 L s [(2.5)] .17792 .2548 0 1 Mshowa .33203 .2673 m .33203 .27355 L s [(5)] .33203 .2548 0 1 Mshowa .48615 .2673 m .48615 .27355 L s [(7.5)] .48615 .2548 0 1 Mshowa .64026 .2673 m .64026 .27355 L s [(10)] .64026 .2548 0 1 Mshowa .79437 .2673 m .79437 .27355 L s [(12.5)] .79437 .2548 0 1 Mshowa .94848 .2673 m .94848 .27355 L s [(15)] .94848 .2548 0 1 Mshowa .125 Mabswid .05463 .2673 m .05463 .27105 L s .08545 .2673 m .08545 .27105 L s .11628 .2673 m .11628 .27105 L s .1471 .2673 m .1471 .27105 L s .20874 .2673 m .20874 .27105 L s .23957 .2673 m .23957 .27105 L s .27039 .2673 m .27039 .27105 L s .30121 .2673 m .30121 .27105 L s .36286 .2673 m .36286 .27105 L s .39368 .2673 m .39368 .27105 L s .4245 .2673 m .4245 .27105 L s .45532 .2673 m .45532 .27105 L s .51697 .2673 m .51697 .27105 L s .54779 .2673 m .54779 .27105 L s .57861 .2673 m .57861 .27105 L s .60944 .2673 m .60944 .27105 L s .67108 .2673 m .67108 .27105 L s .7019 .2673 m .7019 .27105 L s .73273 .2673 m .73273 .27105 L s .76355 .2673 m .76355 .27105 L s .82519 .2673 m .82519 .27105 L s .85602 .2673 m .85602 .27105 L s .88684 .2673 m .88684 .27105 L s .91766 .2673 m .91766 .27105 L s .97931 .2673 m .97931 .27105 L s .25 Mabswid 0 .2673 m 1 .2673 L s gsave 1.025 .2673 -61 -10 Mabsadd m 1 1 Mabs scale currentpoint translate 0 20 translate 1 -1 scale /g { setgray} bind def /k { setcmykcolor} bind def /p { gsave} bind def /r { setrgbcolor} bind def /w { setlinewidth} bind def /C { curveto} bind def /F { fill} bind def /L { lineto} bind def /rL { rlineto} bind def /P { grestore} bind def /s { stroke} bind def /S { show} bind def /N {currentpoint 3 -1 roll show moveto} bind def /Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def /m { moveto} bind def /Mr { rmoveto} bind def /Mx {currentpoint exch pop moveto} bind def /My {currentpoint pop exch moveto} bind def /X {0 rmoveto} bind def /Y {0 exch rmoveto} bind def 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (s) show 69.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore .02381 .12825 m .03006 .12825 L s [(-0.5)] .01131 .12825 1 0 Mshowa .02381 .40635 m .03006 .40635 L s [(0.5)] .01131 .40635 1 0 Mshowa .02381 .5454 m .03006 .5454 L s [(1)] .01131 .5454 1 0 Mshowa .125 Mabswid .02381 .15606 m .02756 .15606 L s .02381 .18387 m .02756 .18387 L s .02381 .21168 m .02756 .21168 L s .02381 .23949 m .02756 .23949 L s .02381 .29511 m .02756 .29511 L s .02381 .32292 m .02756 .32292 L s .02381 .35073 m .02756 .35073 L s .02381 .37854 m .02756 .37854 L s .02381 .43416 m .02756 .43416 L s .02381 .46197 m .02756 .46197 L s .02381 .48978 m .02756 .48978 L s .02381 .51759 m .02756 .51759 L s .02381 .10044 m .02756 .10044 L s .02381 .07264 m .02756 .07264 L s .02381 .04483 m .02756 .04483 L s .02381 .01702 m .02756 .01702 L s .02381 .57321 m .02756 .57321 L s .02381 .60102 m .02756 .60102 L s .25 Mabswid .02381 0 m .02381 .61803 L s gsave .02381 .64303 -75 -4 Mabsadd m 1 1 Mabs scale currentpoint translate 0 20 translate 1 -1 scale /g { setgray} bind def /k { setcmykcolor} bind def /p { gsave} bind def /r { setrgbcolor} bind def /w { setlinewidth} bind def /C { curveto} bind def /F { fill} bind def /L { lineto} bind def /rL { rlineto} bind def /P { grestore} bind def /s { stroke} bind def /S { show} bind def /N {currentpoint 3 -1 roll show moveto} bind def /Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def /m { moveto} bind def /Mr { rmoveto} bind def /Mx {currentpoint exch pop moveto} bind def /My {currentpoint pop exch moveto} bind def /X {0 rmoveto} bind def /Y {0 exch rmoveto} bind def 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show %%IncludeResource: font Mathematica2Mono %%IncludeFont: Mathematica2Mono /Mathematica2Mono findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 69.000 13.000 moveto (@) show 75.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (s) show %%IncludeResource: font Mathematica2Mono %%IncludeFont: Mathematica2Mono /Mathematica2Mono findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 81.000 13.000 moveto (D) show 87.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 0 .4 1 r .009 w .02381 .58724 m .02499 .58724 L .02605 .58723 L .02729 .58723 L .02846 .58723 L .03053 .58723 L .03279 .58722 L .03527 .58721 L .0379 .58719 L .04262 .58715 L .04749 .58711 L .05205 .58705 L .06244 .58688 L .07305 .58665 L .08274 .58638 L .09407 .58598 L .10458 .58551 L .12357 .58439 L .1336 .58362 L .14429 .58264 L .15457 .5815 L .1657 .58001 L .18587 .57649 L .20581 .5716 L .22687 .56436 L .24651 .55499 L .26485 .54328 L .2852 .52604 L .30375 .50563 L .3436 .44426 L .38193 .3638 L .42271 .26721 L .46198 .18202 L .49973 .11994 L .51908 .09666 L .53993 .07736 L .55997 .06354 L .58107 .05294 L .60081 .04582 L .61918 .041 L .63964 .03713 L .65822 .03462 L .67741 .03275 L .68731 .032 L .69821 .03131 L .71808 .03034 L .72895 .02994 L .73913 .02962 L .75941 .02913 L .77795 .02882 L Mistroke .79697 .02859 L .80773 .02849 L .81771 .02842 L .8228 .02839 L .82831 .02837 L .8335 .02835 L .83597 .02834 L .83827 .02834 L .84054 .02833 L .8426 .02833 L .84369 .02833 L .84488 .02833 L .84614 .02832 L .84733 .02832 L .84848 .02832 L .84974 .02832 L .85106 .02832 L .8523 .02832 L .85346 .02833 L .85451 .02833 L .85689 .02833 L .85939 .02834 L .86165 .02834 L .86408 .02835 L .86672 .02837 L .87142 .02839 L .87585 .02843 L .8811 .02849 L .88664 .02856 L .89137 .02865 L .89657 .02877 L .9018 .02892 L .90676 .0291 L .91126 .02931 L .91605 .02959 L .92125 .02998 L .92606 .03045 L .93124 .03111 L .93696 .0321 L .94175 .03324 L .9468 .03489 L .95111 .03683 L .95583 .03982 L .9585 .04208 L .96093 .04465 L .96373 .04843 L .96637 .05311 L .96882 .0588 L .97108 .06569 L .97356 .07593 L Mistroke .97481 .08258 L .97619 .09149 L Mfstroke 0 g .5 Mabswid [ .005 .005 ] 0 setdash .02381 .02781 m .97619 .02781 L s .02381 .2673 m .97619 .2673 L s .02381 .59022 m .97619 .59022 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgooooo`;o06Ko/oooool001_ooooo00?o0000ooooooooool0C?ooool3 o`1Vok?ooooo000Kooooo`03o`000?oooooooooo04cooooo0_l0I_ndooooo`006oooool00ol0003o ooooooooo`1;ooooo`?o06Ko]?ooool001_ooooo00?o0000ooooooooool0Boooool2o`1VokGooooo 000Kooooo`03o`000?oooooooooo04[ooooo0ol0I_neooooo`006oooool00ol0003oooooooooo`19 ooooo`?o06Ko]_ooool001_ooooo0_l0001:ooooo`;o06Ko]oooool001_ooooo00?o0000oooooooo ool0B?ooool3o`1VokOooooo000Kooooo`03o`000?oooooooooo04Oooooo0ol0I_nhooooo`006ooo ool00ol0003oooooooooo`17ooooo`;o06Ko^Oooool001_ooooo00?o0000ooooooooool0A_ooool3 o`1VokWooooo000Kooooo`03o`000?oooooooooo04Gooooo0ol0I_njooooo`006oooool00ol0003o ooooooooo`15ooooo`;o06Ko^oooool001_ooooo0_l00015ooooo`?o06Ko^oooool001_ooooo00?o 0000ooooooooool0@oooool3o`1Vokcooooo000Kooooo`03o`000?oooooooooo04?ooooo0_l0I_nm ooooo`006oooool00ol0003oooooooooo`12ooooo`?o06Ko_Oooool001_ooooo00?o0000oooooooo ool0@Oooool3o`1Vokkooooo000Kooooo`03o`000?oooooooooo047ooooo0_l0I_noooooo`006ooo ool00ol0003oooooooooo`10ooooo`?o06Ko_oooool001_ooooo0_l00010ooooo`?o06Ko`?ooool0 01_ooooo00?o0000ooooooooool0?_ooool3o`1Vol7ooooo000Kooooo`03o`000?oooooooooo03co oooo1?l0I_o2ooooo`006oooool00ol0003oooooooooo`0kooooo`Co06Ko`oooool001?ooooo0ol0 0005ooooo`03o`000?oooooooooo03[ooooo0ol0I_o5ooooo`005?ooool00ol0003oooooooooo`04 ooooo`03o`000?oooooooooo03Wooooo0ol0I_o6ooooo`005?ooool00ol0003oooooooooo`04oooo o`03o`000?oooooooooo03Oooooo1?l0I_o7ooooo`005?ooool00ol0003oooooooooo`04ooooo`;o 0000=_ooool5o`1VolSooooo000Dooooo`03o`000?oooooooooo00Cooooo00?o0000ooooooooool0 =?ooool4o`1Vol[ooooo000Cooooo`;o00001_ooool00ol0003oooooooooo`0booooo`Co06Koc?oo ool001Cooooo00?o0000ooooooooool01?ooool00ol0003oooooooooo`0`ooooo`Go06KocOooool0 01_ooooo00?o0000ooooooooool0;oooool4o`1Voloooooo000Kooooo`03o`000?oooooooooo02co oooo1Ol0I_oAooooo`006oooool00ol0003oooooooooo`0Xooooo`So06Kod_ooool001_ooooo0_l0 000Vooooo`So06KoeOooool001_ooooo00?o0000ooooooooool08_ooool7o`1VomWooooo000Koooo o`03o`000?oooooooooo01Kooooo4?l0I_oLooooo`006_oooolWo`1Vomoooooo000Jooooo`03o`1V ool0003o000000;o000000?o06Koo`000?l000000_l000000ol0I_oo0000o`000002o`000003o`1V ool0003o000000;o000000?o06Koo`000?l000000_l000000ol0I_oo0000o`000002o`000003oooo ool0003o000000;o000000?oooooo`000?l00000V_l000000ooooooo0000o`000002o`000003oooo ool0003o000000;o000000?oooooo`000?l000000_l000000ooooooo0000o`000002o`000003oooo ool0003o000000;o000000?oooooo`000?l000000_l000000ooooooo0000o`000002o`000003oooo ool0003o000000;o000000?oooooo`000?l000000_l000000ooooooo0000ooooo`0Fooooo`006ooo ool00ol0003oooooooooo`3oooooo`?ooooo000Kooooo`03o`000?oooooooooo0?oooooo0oooool0 01_ooooo0_l0003oooooo`Cooooo000Kooooo`03o`000?oooooooooo0?oooooo0oooool001_ooooo 00?o0000ooooooooool0ooooool3ooooo`006oooool00ol0003oooooooooo`3oooooo`?ooooo000K ooooo`03o`000?oooooooooo0?oooooo0oooool00?oooooo8Oooool00?oooooo8Oooool00?oooooo 8Oooool00?oooooo8Oooool00?oooooo8Oooool00?oooooo8Oooool00?oooooo8Oooool001Sooooo 0_l00008ooooo`;o0000o?ooool001Sooooo00?o0000ooooooooool02?ooool00ol0003ooooooooo o`3jooooo`003oooool2o`000003ooooool0003o000000Cooooo00?o0000ooooooooool01?l00004 ooooo`03o`000?oooooooooo0?[ooooo000@ooooo`03o`000?oooooo000000Gooooo00?o0000oooo ooooool01?ooool01Ol0003ooooooooooooooooo00000?cooooo000Aooooo`03o`000?oooooooooo 00Cooooo00Co0000oooooooooooooooo0ol00004ooooo`03o`000?oooooooooo0?[ooooo000@oooo o`03o`000?oooooo000000Gooooo00Co0000oooooooooooo00001oooool00ol0003oooooooooo`3j ooooo`003oooool2o`000003ooooool0003o000000Cooooo00Co0000oooooooooooooooo1?l00003 ooooo`03o`000?oooooooooo0?[ooooo000Hooooo`;o00002?ooool2o`000?cooooo003oooooob7o oooo003oooooob7ooooo003oooooob7ooooo003oooooob7ooooo003oooooob7ooooo0000\ \>"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-1.76277, -0.993244, \ 0.0649968, 0.0144077}}] }, Open ]], Cell[BoxData[ \("The instanton action is:"\)], "Print"], Cell[BoxData[ \(\(-2485.833841014521`\)\)], "Print"], Cell[BoxData[ \("The total Euclidean action is:"\)], "Print"], Cell[BoxData[ \(1.1960150028403932`*^6\)], "Print"] }, Open ]], Cell[BoxData[ StyleBox[\(Some\ example\ initial\ conditions\ for\ single - pass\ instantons . \ Copy\ and\ paste\ in\ the\ cell\ \(\(above\)\(.\)\)\), "Section", FontColor->RGBColor[0, 1, 0]]], "Input"], Cell[BoxData[ RowBox[{ StyleBox[\( \ (*\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(---\)\)\)\ \)\)\)\)\)\)\)\)\)\)\)\)\)\)*) \), FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{\(b := .3;\), "\[IndentingNewLine]", \(z := .1;\), "\[IndentingNewLine]", \(epsilon := .6;\), "\[IndentingNewLine]", \(x0 := 1.13974688727622;\), "\[IndentingNewLine]", \(smax = 13.78420732392601;\), StyleBox["\[IndentingNewLine]", FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]", StyleBox[\( (*\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(\ --\(--\(--\(---\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)*) \), FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]", StyleBox[\( (*\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(\ --\(--\(--\(---\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)*) \), FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]", "\[IndentingNewLine]", \(b := .3;\), "\[IndentingNewLine]", \(z := .01;\), "\[IndentingNewLine]", \(epsilon := .6;\), "\[IndentingNewLine]", \(x0 := 1.14958255226612;\), "\[IndentingNewLine]", \(smax = 15.27332516289715;\), StyleBox["\[IndentingNewLine]", FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]", StyleBox[\( (*\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(\ --\(--\(--\(---\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)*) \), FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]", StyleBox[\( (*\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(\ --\(--\(--\(---\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)*) \), FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]", "\[IndentingNewLine]", \(b := .3;\), "\[IndentingNewLine]", \(z := .001;\), "\[IndentingNewLine]", \(epsilon := .6;\), "\[IndentingNewLine]", \(x0 := 1.150441748398848;\), "\[IndentingNewLine]", \(smax = 15.44947137247597;\), StyleBox["\[IndentingNewLine]", FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]", StyleBox[\( (*\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(\ --\(--\(--\(---\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)*) \), FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]", StyleBox[\( (*\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(\ --\(--\(--\(---\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)*) \), FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]", "\[IndentingNewLine]", \(b := .3;\), "\[IndentingNewLine]", \(z := .0001;\), "\[IndentingNewLine]", \(epsilon := .6;\), "\[IndentingNewLine]", \(x0 := 1.150526303707762;\), "\[IndentingNewLine]", \(smax = 15.47978952529135;\), StyleBox["\[IndentingNewLine]", FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]", StyleBox[\( (*\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(\ --\(--\(--\(---\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)*) \), FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]", StyleBox[\( (*\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(\ --\(--\(--\(---\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)*) \), FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]", "\[IndentingNewLine]", \(b := .3;\), "\[IndentingNewLine]", \(z := .00001;\), "\[IndentingNewLine]", \(epsilon := .6;\), "\[IndentingNewLine]", \(x0 := 1.150534745457904;\), "\[IndentingNewLine]", \(smax = 15.4994585859033;\), "\[IndentingNewLine]", "\[IndentingNewLine]", StyleBox[\( (*\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(\ --\(--\(--\(---\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)*) \), FontColor->RGBColor[1, 0, 0]], StyleBox["\[IndentingNewLine]", FontColor->RGBColor[1, 0, 0]], StyleBox[\( (*\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(\ --\(--\(--\(---\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)*) \), FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]", "\[IndentingNewLine]", \(b := .3;\), "\[IndentingNewLine]", \(z := .1;\), "\[IndentingNewLine]", \(epsilon := .85;\), "\[IndentingNewLine]", \(x0 := 0.8589026248965081;\), "\[IndentingNewLine]", \(smax = 8.236888698068979;\), StyleBox["\[IndentingNewLine]", FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]", StyleBox[\( (*\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(\ --\(--\(--\(---\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)*) \), FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]", StyleBox[\( (*\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(\ --\(--\(--\(---\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)*) \), FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]", "\[IndentingNewLine]", \(b := .3;\), "\[IndentingNewLine]", \(z := .01;\), "\[IndentingNewLine]", \(epsilon := .85;\), "\[IndentingNewLine]", \(x0 := 0.910945569175263;\), "\[IndentingNewLine]", \(smax = 8.662829817404183;\), "\[IndentingNewLine]", "\[IndentingNewLine]", StyleBox[\( (*\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(\ --\(--\(--\(---\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)*) \), FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]", StyleBox[\( (*\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(\ --\(--\(--\(---\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)*) \), FontColor->RGBColor[1, 0, 0]], StyleBox["\[IndentingNewLine]", FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]", \(b := .3;\), "\[IndentingNewLine]", \(z := .001;\), "\[IndentingNewLine]", \(epsilon := .85;\), "\[IndentingNewLine]", \(x0 := 0.9161368121027716;\), "\[IndentingNewLine]", \(smax = 8.711289175379738;\), "\[IndentingNewLine]", StyleBox["\[IndentingNewLine]", FontColor->RGBColor[1, 0, 0]], StyleBox[\( (*\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(\ --\(--\(--\(---\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)*) \), FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]", StyleBox[\( (*\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(\ --\(--\(--\(---\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)*) \), FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]", "\[IndentingNewLine]", \(b := .3;\), "\[IndentingNewLine]", \(z := .0001;\), "\[IndentingNewLine]", \(epsilon := .85;\), "\[IndentingNewLine]", \(x0 := 0.9166596628532317;\), "\[IndentingNewLine]", \(smax = 8.713066498859538;\), "\[IndentingNewLine]", "\[IndentingNewLine]", StyleBox[\( (*\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(\ --\(--\(--\(---\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)*) \), FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]", StyleBox[\( (*\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(\ --\(--\(--\(---\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)*) \), FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]", StyleBox["\[IndentingNewLine]", FontColor->RGBColor[1, 0, 0]], \(b := .3;\), "\[IndentingNewLine]", \(z := .00001;\), "\[IndentingNewLine]", \(epsilon := .85;\), "\[IndentingNewLine]", \(x0 := 0.91670796518813;\), "\[IndentingNewLine]", \(smax = 8.715448496063078;\), "\[IndentingNewLine]", StyleBox["\[IndentingNewLine]", FontColor->RGBColor[1, 0, 0]], StyleBox[\( (*\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(\ --\(--\(--\(---\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)*) \), FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]", StyleBox[\( (*\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(\ --\(--\(--\(---\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)*) \), FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]", StyleBox["\[IndentingNewLine]", FontColor->RGBColor[1, 0, 0]], \(b := .05;\), "\[IndentingNewLine]", \(z := .1;\), "\[IndentingNewLine]", \(epsilon := .7;\), "\[IndentingNewLine]", \(x0 := 0.871002797708976;\), "\[IndentingNewLine]", \(smax = 8.599999999999999;\), "\[IndentingNewLine]", "\[IndentingNewLine]", StyleBox[\( (*\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(\ --\(--\(--\(---\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)*) \), FontColor->RGBColor[1, 0, 0]], StyleBox["\[IndentingNewLine]", FontColor->RGBColor[1, 0, 0]], StyleBox[\( (*\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(\ --\(--\(--\(---\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)*) \), FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]", "\[IndentingNewLine]", \(b := .05;\), "\[IndentingNewLine]", \(z := .01;\), "\[IndentingNewLine]", \(epsilon := .7;\), "\[IndentingNewLine]", \(x0 := 0.9060392763395042;\), "\[IndentingNewLine]", \(smax = 9.099999999999999;\), "\[IndentingNewLine]", "\[IndentingNewLine]", StyleBox[\( (*\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(\ --\(--\(--\(---\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)*) \), FontColor->RGBColor[1, 0, 0]], StyleBox["\[IndentingNewLine]", FontColor->RGBColor[1, 0, 0]], StyleBox[\( (*\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(\ --\(--\(--\(---\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)*) \), FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]", "\[IndentingNewLine]", \(b := .05;\), "\[IndentingNewLine]", \(z := .001;\), "\[IndentingNewLine]", \(epsilon := .7;\), "\[IndentingNewLine]", \(x0 := 0.909402656808811;\), "\[IndentingNewLine]", \(smax = 9.099999999999999;\), "\[IndentingNewLine]", "\[IndentingNewLine]", StyleBox[\( (*\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(\ --\(--\(--\(---\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)*) \), FontColor->RGBColor[1, 0, 0]], StyleBox["\[IndentingNewLine]", FontColor->RGBColor[1, 0, 0]], StyleBox[\( (*\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(\ --\(--\(--\(---\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)*) \), FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]", "\[IndentingNewLine]", \(b := .05;\), "\[IndentingNewLine]", \(z := .0001;\), "\[IndentingNewLine]", \(epsilon := .7;\), "\[IndentingNewLine]", \(x0 := 0.9097361611585042;\), "\[IndentingNewLine]", \(smax = 9.15;\), StyleBox["\[IndentingNewLine]", FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]", StyleBox[\( (*\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(\ --\(--\(--\(---\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)*) \), FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]", StyleBox[\( (*\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(\ --\(--\(--\(---\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)*) \), FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]", StyleBox["\[IndentingNewLine]", FontColor->RGBColor[1, 0, 0]], \(b := .05;\), "\[IndentingNewLine]", \(z := .1;\), "\[IndentingNewLine]", \(epsilon := .9;\), "\[IndentingNewLine]", \(x0 := 0.4505732202523388;\), "\[IndentingNewLine]", \(smax = 6.4;\), StyleBox["\[IndentingNewLine]", FontColor->RGBColor[1, 0, 0]], StyleBox["\[IndentingNewLine]", FontColor->RGBColor[1, 0, 0]], StyleBox[\( (*\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(\ --\(--\(--\(---\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)*) \), FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]", StyleBox[\( (*\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(\ --\(--\(--\(---\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)*) \), FontColor->RGBColor[1, 0, 0]], StyleBox["\[IndentingNewLine]", FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]", \(b := .05;\), "\[IndentingNewLine]", \(z := .01;\), "\[IndentingNewLine]", \(epsilon := .9;\), "\[IndentingNewLine]", \(x0 := 0.5406508779247492;\), "\[IndentingNewLine]", \(smax = 6.8;\), StyleBox["\[IndentingNewLine]", FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]", StyleBox[\( (*\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(\ --\(--\(--\(---\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)*) \), FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]", StyleBox[\( (*\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(\ --\(--\(--\(---\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)*) \), FontColor->RGBColor[1, 0, 0]], StyleBox["\[IndentingNewLine]", FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]", \(b := .05;\), "\[IndentingNewLine]", \(z := .001;\), "\[IndentingNewLine]", \(epsilon := .9;\), "\[IndentingNewLine]", \(x0 := 0.5490273355737542;\), "\[IndentingNewLine]", \(smax = 6.85;\), StyleBox["\[IndentingNewLine]", FontColor->RGBColor[1, 0, 0]], StyleBox["\[IndentingNewLine]", FontColor->RGBColor[1, 0, 0]], StyleBox[\( (*\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(\ --\(--\(--\(---\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)*) \), FontColor->RGBColor[1, 0, 0]], StyleBox["\[IndentingNewLine]", FontColor->RGBColor[1, 0, 0]], StyleBox[\( (*\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(\ --\(--\(--\(---\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)*) \), FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]", "\[IndentingNewLine]", \(b := .05;\), "\[IndentingNewLine]", \(z := .0001;\), "\[IndentingNewLine]", \(epsilon := .9;\), "\[IndentingNewLine]", \(x0 := 0.5498335216890011;\), "\[IndentingNewLine]", \(smax = 6.85;\), "\[IndentingNewLine]", "\[IndentingNewLine]", StyleBox[\( (*\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(\ --\(--\(--\(---\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)*) \), FontColor->RGBColor[1, 0, 0]], StyleBox["\[IndentingNewLine]", FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]", "\[IndentingNewLine]"}]}]], "Input"], Cell[BoxData[ StyleBox[\(Some\ example\ initial\ conditions\ for\ multiple - pass\ instantons . \ Copy\ and\ paste\ in\ the\ first\ \(\(cell\)\(.\)\)\), "Section", FontColor->RGBColor[0, 1, 0]]], "Input"], Cell[BoxData[ RowBox[{ StyleBox[\( \ (*\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(---\)\)\)\ \)\)\)\)\)\)\)\)\)\)\)\)\)\)*) \), FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]", RowBox[{\(b := .3;\), "\[IndentingNewLine]", \(z := .1;\), "\[IndentingNewLine]", \(epsilon := .6;\), "\[IndentingNewLine]", \(x0 := .94411758;\), "\[IndentingNewLine]", \(smax = 11.57;\), "\[IndentingNewLine]", StyleBox[\( (*\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(\ --\(--\(--\(---\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)*) \), FontColor->RGBColor[1, 0, 0]], StyleBox["\[IndentingNewLine]", FontColor->RGBColor[1, 0, 0]], StyleBox[\( (*\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(\ --\(--\(--\(---\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)*) \), FontColor->RGBColor[1, 0, 0]], StyleBox["\[IndentingNewLine]", FontColor->RGBColor[1, 0, 0]], \(b := .3;\), "\[IndentingNewLine]", \(z := .00001;\), "\[IndentingNewLine]", \(epsilon := .6;\), "\[IndentingNewLine]", \(x0 := 1.0045259;\), "\[IndentingNewLine]", \(smax = 12.1;\), "\[IndentingNewLine]", StyleBox[\( (*\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(--\(\ --\(--\(--\(---\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)\)*) \), FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]", StyleBox["\[IndentingNewLine]", FontColor->RGBColor[1, 0, 0]]}]}]], "Input"] }, FrontEndVersion->"5.2 for Macintosh", ScreenRectangle->{{0, 1024}, {0, 695}}, WindowSize->{833, 619}, WindowMargins->{{71, Automatic}, {Automatic, 0}} ] (******************************************************************* Cached data follows. If you edit this Notebook file directly, not using Mathematica, you must remove the line containing CacheID at the top of the file. The cache data will then be recreated when you save this file from within Mathematica. *******************************************************************) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[1754, 51, 878, 26, 114, "Input"], Cell[2635, 79, 213, 5, 96, "Input"], Cell[CellGroupData[{ Cell[2873, 88, 9064, 165, 1854, "Input"], Cell[CellGroupData[{ Cell[11962, 257, 26569, 661, 186, 7517, 421, "GraphicsData", "PostScript", \ "Graphics"], Cell[38534, 920, 21203, 575, 186, 7231, 398, "GraphicsData", "PostScript", \ "Graphics"], Cell[59740, 1497, 21885, 645, 186, 8205, 472, "GraphicsData", "PostScript", \ "Graphics"] }, Open ]], Cell[81640, 2145, 59, 1, 23, "Print"], Cell[81702, 2148, 56, 1, 23, "Print"], Cell[81761, 2151, 65, 1, 23, "Print"], Cell[81829, 2154, 55, 1, 25, "Print"] }, Open ]], Cell[81899, 2158, 240, 5, 56, "Input"], Cell[82142, 2165, 14487, 256, 2651, "Input"], Cell[96632, 2423, 242, 5, 56, "Input"], Cell[96877, 2430, 1529, 28, 267, "Input"] } ] *) (******************************************************************* End of Mathematica Notebook file. *******************************************************************)