(*********************************************************************** Mathematica-Compatible Notebook This notebook can be used on any computer system with Mathematica 4.0, MathReader 4.0, or any compatible application. 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[ 101507, 3671]*) (*NotebookOutlinePosition[ 102428, 3700]*) (* CellTagsIndexPosition[ 102384, 3696]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell["Date[]", "Input"], Cell[OutputFormData["\<\ {2002, 12, 28, 14, 14, 3}\ \>", "\<\ {2002, 12, 28, \ 14, 14, 3}\ \>"], "Output"] }, Open ]], Cell["\<\ Tabulate k_F, p, eps --see Weinberg, Eqns. 11.4.1-2. Let x = k_F/m_N, p and eps in CGS units of ergs/cm^3. Define \t eps0 = mneutron^4 c^8/(3 Pi^2 hbar^3 c^3) \t which will be the overall factor carrying these units. (Note m c^2 is ergs and hbar*c = erg-cm, giving overall ergs/cm^3.)\ \>", "Text"], Cell[CellGroupData[{ Cell["\<\ {hbar = 1.055 10^(-27) (* erg-sec *), c = 2.99 10^10 (* cm/sec *), mneutron = 1.67 10^(-24) (* grams *)} eps0 = mneutron^4 c^8/(3 Pi^2 hbar^3 c^3)\ \>", "Input"], Cell[OutputFormData["\<\ {1.0549999999999998*^-27, 2.9900000000000004*^10, 1.67*^-24}\ \>", "\<\ -27 10 \ -24 {1.055 10 , 2.99 10 , 1.67 10 }\ \>"], "Output"], Cell[OutputFormData["\<\ 5.346178403625608*^36\ \>", "\<\ 36 5.34618 10\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Iepsbyeps0 = 3*Integrate[u^2*Sqrt[u^2+1],{u,0,x}]", "Input"], Cell[OutputFormData["\<\ (3*(x*Sqrt[1 + x^2] + 2*x^3*Sqrt[1 + x^2] - ArcSinh[x]))/8\ \>", "\<\ 2 3 \ 2 (3 (x Sqrt[1 + x ] + 2 x Sqrt[1 + x ] - ArcSinh[x])) / 8\ \>"], "Output"] }, Open ]], Cell["\<\ epsbar[x_] := (3/8)*((x + 2*x^3)*(1 + x^2)^(1/2) - ArcSinh[x]) \t(* dimensionless *) \ \>", "Input"], Cell[CellGroupData[{ Cell["epsbar[1.5]", "Input"], Cell[OutputFormData["\<\ 5.1293009227506925\ \>", "\<\ 5.1293\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Ipbyeps0 = Integrate[u^4/Sqrt[u^2+1],{u,0,x}]", "Input"], Cell[OutputFormData["\<\ (-3*x*Sqrt[1 + x^2] + 2*x^3*Sqrt[1 + x^2] + 3*ArcSinh[x])/8\ \>", "\<\ 2 3 \ 2 (-3 x Sqrt[1 + x ] + 2 x Sqrt[1 + x ] + 3 ArcSinh[x]) / 8\ \>"], "Output"] }, Open ]], Cell["\<\ pbar[x_] := (1/8)*((-3*x + 2*x^3)*(1 + x^2)^(1/2) + 3*ArcSinh[x]) \t(* also dimensionless *)\ \>", "Input"], Cell[CellGroupData[{ Cell["pbar[1.5]", "Input"], Cell[OutputFormData["\<\ 0.9550668545947896\ \>", "\<\ 0.955067\ \>"], \ "Output"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Do[Print[PaddedForm[pbar[x],{10,6}],PaddedForm[epsbar[x],{15,6}], PaddedForm[x,{10,2}]],{x,0.2,5.0,0.2}]\ \>", "Input"], Cell["\<\ 0.000063 0.008095 0.20 0.001941 0.066989 0.40 0.013891 0.238006 0.60 0.054483 0.601197 0.80 0.153738 1.260475 1.00 0.352873 2.346349 1.20 0.703738 4.017218 1.40 1.268370 6.459947 1.60 2.118711 9.890112 1.80 3.336448 14.552096 2.00 5.012934 20.719121 2.20 7.249139 28.693261 2.40 10.155636 38.805435 2.60 13.852583 51.415405 2.80 18.469729 66.911768 3.00 24.146404 85.711950 3.20 31.031526 108.262205 3.40 39.283598 135.037604 3.60 49.070711 166.542038 3.80 60.570549 203.308211 4.00 73.970382 245.897640 4.20 89.467076 294.900652 4.40 107.267087 350.936382 4.60 127.586467 414.652774 4.80 150.650863 486.726577 5.00\ \>", "Print"] }, Open ]], Cell[CellGroupData[{ Cell["ParametricPlot[{pbar[x],epsbar[x]},{x,0,0.01}]", "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 %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.0238095 1.43786e+11 0.0147151 588586 [ [.1676 .00222 -18.75 -12.5 ] [.1676 .00222 18.75 0 ] [.31138 .00222 -18.75 -12.5 ] [.31138 .00222 18.75 0 ] [.45517 .00222 -18.75 -12.5 ] [.45517 .00222 18.75 0 ] [.59895 .00222 -18.75 -12.5 ] [.59895 .00222 18.75 0 ] [.74274 .00222 -18.75 -12.5 ] [.74274 .00222 18.75 0 ] [.88653 .00222 -18.75 -12.5 ] [.88653 .00222 18.75 0 ] [.01131 .13243 -33 -6.25 ] [.01131 .13243 0 6.25 ] [.01131 .25015 -33 -6.25 ] [.01131 .25015 0 6.25 ] [.01131 .36787 -33 -6.25 ] [.01131 .36787 0 6.25 ] [.01131 .48558 -33 -6.25 ] [.01131 .48558 0 6.25 ] [.01131 .6033 -33 -6.25 ] [.01131 .6033 0 6.25 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .1676 .01472 m .1676 .02097 L s gsave .1676 .00222 -18.75 -10.5 Mabsadd m 1 1 Mabs scale /Courier findfont 10 scalefont setfont (1) show /Math1Mono findfont 10 scalefont setfont (\\264) show /Courier findfont 10 scalefont setfont (10) show 0 5.25 rmoveto /Courier findfont 7.5 scalefont setfont (-12) show grestore .31138 .01472 m .31138 .02097 L s gsave .31138 .00222 -18.75 -10.5 Mabsadd m 1 1 Mabs scale /Courier findfont 10 scalefont setfont (2) show /Math1Mono findfont 10 scalefont setfont (\\264) show /Courier findfont 10 scalefont setfont (10) show 0 5.25 rmoveto /Courier findfont 7.5 scalefont setfont (-12) show grestore .45517 .01472 m .45517 .02097 L s gsave .45517 .00222 -18.75 -10.5 Mabsadd m 1 1 Mabs scale /Courier findfont 10 scalefont setfont (3) show /Math1Mono findfont 10 scalefont setfont (\\264) show /Courier findfont 10 scalefont setfont (10) show 0 5.25 rmoveto /Courier findfont 7.5 scalefont setfont (-12) show grestore .59895 .01472 m .59895 .02097 L s gsave .59895 .00222 -18.75 -10.5 Mabsadd m 1 1 Mabs scale /Courier findfont 10 scalefont setfont (4) show /Math1Mono findfont 10 scalefont setfont (\\264) show /Courier findfont 10 scalefont setfont (10) show 0 5.25 rmoveto /Courier findfont 7.5 scalefont setfont (-12) show grestore .74274 .01472 m .74274 .02097 L s gsave .74274 .00222 -18.75 -10.5 Mabsadd m 1 1 Mabs scale /Courier findfont 10 scalefont setfont (5) show /Math1Mono findfont 10 scalefont setfont (\\264) show /Courier findfont 10 scalefont setfont (10) show 0 5.25 rmoveto /Courier findfont 7.5 scalefont setfont (-12) show grestore .88653 .01472 m .88653 .02097 L s gsave .88653 .00222 -18.75 -10.5 Mabsadd m 1 1 Mabs scale /Courier findfont 10 scalefont setfont (6) show /Math1Mono findfont 10 scalefont setfont (\\264) show /Courier findfont 10 scalefont setfont (10) show 0 5.25 rmoveto /Courier findfont 7.5 scalefont setfont (-12) show grestore .125 Mabswid .05257 .01472 m .05257 .01847 L s .08132 .01472 m .08132 .01847 L s .11008 .01472 m .11008 .01847 L s .13884 .01472 m .13884 .01847 L s .19635 .01472 m .19635 .01847 L s .22511 .01472 m .22511 .01847 L s .25387 .01472 m .25387 .01847 L s .28262 .01472 m .28262 .01847 L s .34014 .01472 m .34014 .01847 L s .3689 .01472 m .3689 .01847 L s .39765 .01472 m .39765 .01847 L s .42641 .01472 m .42641 .01847 L s .48392 .01472 m .48392 .01847 L s .51268 .01472 m .51268 .01847 L s .54144 .01472 m .54144 .01847 L s .5702 .01472 m .5702 .01847 L s .62771 .01472 m .62771 .01847 L s .65647 .01472 m .65647 .01847 L s .68522 .01472 m .68522 .01847 L s .71398 .01472 m .71398 .01847 L s .7715 .01472 m .7715 .01847 L s .80025 .01472 m .80025 .01847 L s .82901 .01472 m .82901 .01847 L s .85777 .01472 m .85777 .01847 L s .91528 .01472 m .91528 .01847 L s .94404 .01472 m .94404 .01847 L s .9728 .01472 m .9728 .01847 L s .25 Mabswid 0 .01472 m 1 .01472 L s .02381 .13243 m .03006 .13243 L s gsave .01131 .13243 -33 -4.25 Mabsadd m 1 1 Mabs scale /Courier findfont 10 scalefont setfont (2) show /Math1Mono findfont 10 scalefont setfont (\\264) show /Courier findfont 10 scalefont setfont (10) show 0 5.25 rmoveto /Courier findfont 7.5 scalefont setfont (-7) show grestore .02381 .25015 m .03006 .25015 L s gsave .01131 .25015 -33 -4.25 Mabsadd m 1 1 Mabs scale /Courier findfont 10 scalefont setfont (4) show /Math1Mono findfont 10 scalefont setfont (\\264) show /Courier findfont 10 scalefont setfont (10) show 0 5.25 rmoveto /Courier findfont 7.5 scalefont setfont (-7) show grestore .02381 .36787 m .03006 .36787 L s gsave .01131 .36787 -33 -4.25 Mabsadd m 1 1 Mabs scale /Courier findfont 10 scalefont setfont (6) show /Math1Mono findfont 10 scalefont setfont (\\264) show /Courier findfont 10 scalefont setfont (10) show 0 5.25 rmoveto /Courier findfont 7.5 scalefont setfont (-7) show grestore .02381 .48558 m .03006 .48558 L s gsave .01131 .48558 -33 -4.25 Mabsadd m 1 1 Mabs scale /Courier findfont 10 scalefont setfont (8) show /Math1Mono findfont 10 scalefont setfont (\\264) show /Courier findfont 10 scalefont setfont (10) show 0 5.25 rmoveto /Courier findfont 7.5 scalefont setfont (-7) show grestore .02381 .6033 m .03006 .6033 L s gsave .01131 .6033 -33 -4.25 Mabsadd m 1 1 Mabs scale /Courier findfont 10 scalefont setfont (1) show /Math1Mono findfont 10 scalefont setfont (\\264) show /Courier findfont 10 scalefont setfont (10) show 0 5.25 rmoveto /Courier findfont 7.5 scalefont setfont (-6) show grestore .125 Mabswid .02381 .04414 m .02756 .04414 L s .02381 .07357 m .02756 .07357 L s .02381 .103 m .02756 .103 L s .02381 .16186 m .02756 .16186 L s .02381 .19129 m .02756 .19129 L s .02381 .22072 m .02756 .22072 L s .02381 .27958 m .02756 .27958 L s .02381 .30901 m .02756 .30901 L s .02381 .33844 m .02756 .33844 L s .02381 .3973 m .02756 .3973 L s .02381 .42673 m .02756 .42673 L s .02381 .45615 m .02756 .45615 L s .02381 .51501 m .02756 .51501 L s .02381 .54444 m .02756 .54444 L s .02381 .57387 m .02756 .57387 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 .5 Mabswid .02381 .01472 m .02381 .01472 L .02381 .01472 L .02381 .01472 L .02381 .01472 L .02381 .01472 L .02381 .01472 L .02381 .01472 L .02381 .01472 L .02381 .01472 L .02381 .01472 L .02381 .01472 L .02381 .01472 L .02381 .01472 L .02381 .01472 L .02381 .01473 L .02381 .01473 L .02381 .01474 L .02381 .01475 L .02381 .01477 L .02381 .0148 L .02381 .01487 L .02382 .01496 L .02382 .01507 L .02383 .01522 L .02385 .01539 L .0239 .0159 L .02401 .01661 L .02418 .01746 L .02447 .01857 L .02496 .02009 L .02672 .02411 L .03002 .02952 L .03552 .03638 L .0451 .04572 L .05942 .05693 L .0822 .07152 L .11393 .08842 L .15622 .10755 L .21731 .13128 L .29563 .15765 L .40476 .18974 L .54061 .22488 L .70545 .26286 L .92444 .30801 L s .92444 .30801 m 1 .32202 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{30, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgoooofZPfUZ8^KkEkcMCLOoooiCE ggfe_M7]lE5eNP000;S>_9b_Wn7ZhVEaI`000;fmjj2Pan?SmVMWP@0005el^4mYW;K4gbhnG?ooomkN g]7]lU5eNe5AniBDU492@[fm_G=cLb4Q8F=SHo3Ud7IYC[ZUNc_j=:f][O[jdP3ooooo0?l0o`3o0000 okno_n?SmfQXPL30`;K4gbhnG4mYWJ6Qb>_HaFmG@;:ceMK9T0I_l00?ooc>CTi6YZJX00 03SXh^;RiT00000<`00IP00V@00c00c000c<`0cIP0cV@0cc00c o`1V001V<`1VIP1VV@1Vc01Vo`2I002I<`2IIP2IV@2Ic03<003<<`3I03>I IIS>IVC>Ic3>Ioc?<03?<H0000/00<10P000`40 0@0200<10`000`40000;00<10P000`400@0200<10`000`40000;00070@0000400@0200<10`000`40 000<00070@0000400@0200<10`000`40000:00810`000`400@0200<10`000`40000;00810`000`40 0@0200<10`000`40000C0000;@000`40000200030@00008000L100000@0100`000<100000`000`40 000200070@0000400@0;00030@0100<000<100000P001`40000100403@000`40000200030@000080 00L100000@0100d000D100000@0400070@0000400@0<00030@0100<000<100000P001`4000010040 500002d000L100000@0100<000L100000@0100d000L100000@0100<000L100000@0100d000H10001 004300070@0000400@0;00@10P000`400@0300070@0000400@0=00060@000@010`001`4000010040 30030@8000<100400`001`4000010040500002d000<100001`001`40000100403P000`4000060007 0@0000400@0<008120001`40000100402`000`400@0900070@0000400@0;00812@001`4000010040 30000`40000800070@0000400@0D0000;0020@P00P4300030@0100D00`400`010@020@03004000H0 0P4300030@0100D00`401P010@400@L00P4300030@0100D00`400`010@030@P00P4300030@0100D0 0`4010010@4900810`000`400@0500<100<00@400P4900810`000`400@0500<100@00@41200002d0 00<100001`000`40000200030@0000<10P000`400@030@03004000P000<100000P000`4000030@80 00<10040104900030@00008000<100000`4200030@0100<100<00@0020000`40000200030@0000<1 0P000`400@050@P000<100000P000`4000030@8000<100400`400`010@0800030@00008000<10000 0`4200030@0100<1200004<00P4200<15`020@800`4F00810P030AL00P4200<15P020@800`4G0081 0P030@P0000L00030@00000@1M@0001`0 00<10000DP040G40000L00030@0005H0105]000070000`40001J00@1J@0001`000<10000GP040FD0 000L0081H`040F40000L00030@0006H01@5L000070000`40001[00@1F00001`000<10000K`040E@0 000200070@0000400@0200<10`000`40000800030@0007<0105@00000P000`40000200030@000080 00L100000@0100T000<10000M`040D`000040@8000<100400`001`40000100402@000`40001k00@1 B00000030@0100T000L100000@0100T00`5o00@1A0000003004100P00P4300030@0100H000@10001 Q@040D00000200030@0000L000<100000P000`4000030@030041008000<10000Q`050C/0000H00<1 00<00@00S@050CH0000L00030@0009401@4a000070000`40002F00D1;00001`00P6L00D19`0001`0 00<10000X0050B80000L00030@000:D01@4M000070000`40002Z00D1600001`000<10000[`050A<0 000L00030@000;@01@4>000070020KX01@49000070000`40002n00H10`0001`000<10000a0030@00 70000`400037000070000`400037000070000`400037000070020LP0000L00030@000H0 003V0000\ \>"], ImageRangeCache->{{{81.1875, 310.562}, {453.5, 312.188}} -> {-3.73171*^-12, \ 2.46757*^-6, 2.71016*^-14, 6.62067*^-9}}], Cell[OutputFormData["\<\ Graphics[ {{Line[{{0., 0.}, {6.776263578034403*^-21, 8.372073684542822*^-13}, {6.776263578034403*^-21, 1.2448313711619806*^-12}, {6.776263578034403*^-21, 1.5047986711276507*^-12}, {6.776263578034403*^-21, 1.8174418421639709*^-12}, {2.0328790734103208*^-20, 2.498477905685595*^-12}, {2.0328790734103208*^-20, 3.2617068327657744*^-12}, {6.776263578034403*^-21, 4.125672490407984*^-12}, {2.710505431213761*^-20, 5.062305748340179*^-12}, {6.776263578034403*^-20, 7.701594123186127*^-12}, {6.776263578034403*^-20, 8.508069716686804*^-12}, {1.0842021724855044*^-19, 9.45055984153103*^-12}, {9.486769009248164*^-20, 1.1341453533156125*^-11}, {1.3552527156068805*^-19, 1.3409683143761212*^-11}, {1.7618285302889447*^-19, 1.5541954584473525*^-11}, {3.2526065174565133*^-19, 2.111454754934834*^-11}, {5.285485590866834*^-19, 2.8445751593250083*^-11}, {1.111307226797642*^-18, 4.4309643153499396*^-11}, {2.168404344971009*^-18, 6.676032265255736*^-11}, {4.255493527005605*^-18, 9.929390978462597*^-11}, {8.023096076392733*^-18, 1.448260369865239*^-10}, {2.11148373091552*^-17, 2.593327842916179*^-10}, {4.662069341687669*^-17, 4.17295437909874*^-10}, {8.782037597132586*^-17, 6.099901837304132*^-10}, {1.5504091066542713*^-16, 8.58218415360516*^-10}, {2.5017965130103015*^-16, 1.1436119057761564*^-9}, {6.420645265459157*^-16, 2.0132963230313616*^-9}, {1.4030660314134913*^-15, 3.218217970514829*^-9}, {2.6076146450448867*^-15, 4.667902870876886*^-9}, {4.593656184603834*^-15, 6.556414068560265*^-9}, {7.968343866682215*^-15, 9.12439116970698*^-9}, {2.0237717751614426*^-14, 1.5961812618392815*^-8}, {4.3197867158339953*^-14, 2.5157193990585792*^-8}, {8.146565019795382*^-14, 3.6810260166007195*^-8}, {1.4804693929115764*^-13, 5.267746687909625*^-8}, {2.476343782809032*^-13, 7.172529814839738*^-8}, {4.0606038496926455*^-13, 9.650309688890354*^-8}, {6.268000441594923*^-13, 1.2521750351315517*^-7}, {9.208948707761788*^-13, 1.5773010493742336*^-7}, {1.3457459972776586*^-12, 1.9804663029063946*^-7}, {1.8904283520526644*^-12, 2.42843717984274*^-7}, {2.6494409964550325*^-12, 2.9736134822913075*^-7}, {3.5942520661136346*^-12, 3.5707412199021283*^-7}, {4.74069047906589*^-12, 4.215989801537945*^-7}, {6.263685316948431*^-12, 4.983035692465981*^-7}, {8.077783233972902*^-12, 5.804607697912703*^-7}, {1.0196599641021376*^-11, 6.675322961357567*^-7}, {1.2918901191871779*^-11, 7.693715390253136*^-7}, {1.6059903407139586*^-11, 8.766943544711876*^-7}, {1.9999282611926628*^-11, 1.0000298744576412*^-6}}]}}, {PlotRange -> Automatic, AspectRatio -> GoldenRatio^(-1), DisplayFunction :> $DisplayFunction, ColorOutput -> Automatic, Axes -> Automatic, AxesOrigin -> Automatic, PlotLabel -> None, AxesLabel -> None, Ticks -> Automatic, GridLines -> None, Prolog -> {}, Epilog -> {}, AxesStyle -> Automatic, Background -> Automatic, DefaultColor -> Automatic, DefaultFont :> $DefaultFont, RotateLabel -> True, Frame -> False, FrameStyle -> Automatic, FrameTicks -> Automatic, FrameLabel -> None, PlotRegion -> Automatic, ImageSize -> Automatic, TextStyle :> $TextStyle, FormatType :> $FormatType}]\ \>", "\<\ -Graphics-\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["{pbar[5.0],epsbar[5.0]}", "Input"], Cell[OutputFormData["\<\ {150.65086258976532, 486.7265766093327}\ \>", \ "\<\ {150.651, 486.727}\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ s1 = \ ParametricPlot[{pbar[x],epsbar[x]},{x,0,5.0},PlotRange->{{0,150},{0,500}}]\ \>\ ", "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 %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0 0.00666667 0 0.00123607 [ [.13333 -0.0125 -6 -9 ] [.13333 -0.0125 6 0 ] [.26667 -0.0125 -6 -9 ] [.26667 -0.0125 6 0 ] [.4 -0.0125 -6 -9 ] [.4 -0.0125 6 0 ] [.53333 -0.0125 -6 -9 ] [.53333 -0.0125 6 0 ] [.66667 -0.0125 -9 -9 ] [.66667 -0.0125 9 0 ] [.8 -0.0125 -9 -9 ] [.8 -0.0125 9 0 ] [.93333 -0.0125 -9 -9 ] [.93333 -0.0125 9 0 ] [-0.0125 .12361 -18 -4.5 ] [-0.0125 .12361 0 4.5 ] [-0.0125 .24721 -18 -4.5 ] [-0.0125 .24721 0 4.5 ] [-0.0125 .37082 -18 -4.5 ] [-0.0125 .37082 0 4.5 ] [-0.0125 .49443 -18 -4.5 ] [-0.0125 .49443 0 4.5 ] [-0.0125 .61803 -18 -4.5 ] [-0.0125 .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 .13333 0 m .13333 .00625 L s [(20)] .13333 -0.0125 0 1 Mshowa .26667 0 m .26667 .00625 L s [(40)] .26667 -0.0125 0 1 Mshowa .4 0 m .4 .00625 L s [(60)] .4 -0.0125 0 1 Mshowa .53333 0 m .53333 .00625 L s [(80)] .53333 -0.0125 0 1 Mshowa .66667 0 m .66667 .00625 L s [(100)] .66667 -0.0125 0 1 Mshowa .8 0 m .8 .00625 L s [(120)] .8 -0.0125 0 1 Mshowa .93333 0 m .93333 .00625 L s [(140)] .93333 -0.0125 0 1 Mshowa .125 Mabswid .03333 0 m .03333 .00375 L s .06667 0 m .06667 .00375 L s .1 0 m .1 .00375 L s .16667 0 m .16667 .00375 L s .2 0 m .2 .00375 L s .23333 0 m .23333 .00375 L s .3 0 m .3 .00375 L s .33333 0 m .33333 .00375 L s .36667 0 m .36667 .00375 L s .43333 0 m .43333 .00375 L s .46667 0 m .46667 .00375 L s .5 0 m .5 .00375 L s .56667 0 m .56667 .00375 L s .6 0 m .6 .00375 L s .63333 0 m .63333 .00375 L s .7 0 m .7 .00375 L s .73333 0 m .73333 .00375 L s .76667 0 m .76667 .00375 L s .83333 0 m .83333 .00375 L s .86667 0 m .86667 .00375 L s .9 0 m .9 .00375 L s .96667 0 m .96667 .00375 L s .25 Mabswid 0 0 m 1 0 L s 0 .12361 m .00625 .12361 L s [(100)] -0.0125 .12361 1 0 Mshowa 0 .24721 m .00625 .24721 L s [(200)] -0.0125 .24721 1 0 Mshowa 0 .37082 m .00625 .37082 L s [(300)] -0.0125 .37082 1 0 Mshowa 0 .49443 m .00625 .49443 L s [(400)] -0.0125 .49443 1 0 Mshowa 0 .61803 m .00625 .61803 L s [(500)] -0.0125 .61803 1 0 Mshowa .125 Mabswid 0 .02472 m .00375 .02472 L s 0 .04944 m .00375 .04944 L s 0 .07416 m .00375 .07416 L s 0 .09889 m .00375 .09889 L s 0 .14833 m .00375 .14833 L s 0 .17305 m .00375 .17305 L s 0 .19777 m .00375 .19777 L s 0 .22249 m .00375 .22249 L s 0 .27193 m .00375 .27193 L s 0 .29666 m .00375 .29666 L s 0 .32138 m .00375 .32138 L s 0 .3461 m .00375 .3461 L s 0 .39554 m .00375 .39554 L s 0 .42026 m .00375 .42026 L s 0 .44498 m .00375 .44498 L s 0 .46971 m .00375 .46971 L s 0 .51915 m .00375 .51915 L s 0 .54387 m .00375 .54387 L s 0 .56859 m .00375 .56859 L s 0 .59331 m .00375 .59331 L s .25 Mabswid 0 0 m 0 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath .5 Mabswid 0 0 m 0 0 L 0 0 L 0 0 L 0 0 L 0 0 L 0 0 L 0 0 L 0 0 L 0 0 L 0 0 L 0 0 L 0 0 L 0 0 L 0 0 L 0 0 L 0 0 L 0 0 L 0 1e-05 L 0 1e-05 L 0 2e-05 L 0 2e-05 L 0 4e-05 L 1e-05 6e-05 L 2e-05 .0001 L 5e-05 .0002 L .00011 .00033 L .00043 .00083 L .00125 .00181 L .00287 .00338 L .00557 .00569 L .01018 .0093 L .01687 .0142 L .02597 .02056 L .03924 .02949 L .05624 .04061 L .07979 .05564 L .10875 .07379 L .14338 .09518 L .18863 .12277 L .24149 .15468 L .30903 .19508 L .38655 .2411 L .474 .29269 L .5824 .3563 L .70331 .4269 L .83636 .50429 L .99779 .59784 L s .99779 .59784 m 1 .59912 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{30, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgoooofZPfUZ8^KkEkcMCLOoooiCE ggfe_M7]lE5eNP000;S>_9b_Wn7ZhVEaI`000;fmjj2Pan?SmVMWP@0005el^4mYW;K4gbhnG?ooomkN g]7]lU5eNe5AniBDU492@[fm_G=cLb4Q8F=SHo3Ud7IYC[ZUNc_j=:f][O[jdP3ooooo0?l0o`3o0000 okno_n?SmfQXPL30`;K4gbhnG4mYWJ6Qb>_HaFmG@;:ceMK9T0I_l00?ooc>CTi6YZJX00 03SXh^;RiT00000<`00IP00V@00c00c000c<`0cIP0cV@0cc00c o`1V001V<`1VIP1VV@1Vc01Vo`2I002I<`2IIP2IV@2Ic03<003<<`3I03>I IIS>IVC>Ic3>Ioc?<03?<00810`000`400@020003 0@0100l00P4300810`000`400@0;0000;0000`40000200030@0001<000<100000P000`40000D0081 0`000`40000C00<10`000`40000A00030@00008000<100000P000`40000>00030@00008000<10000 0P000`40000?00030@00008000<100000P000`40000:0000iP000>H0003V00004`3@0@<0000C0081 1@000`40000400030@0000@000<1000010000`40000400030@0000@000<100000`000`4000040003 0@0000@000<1000010000`40000400030@0000@000<1000010000`40000400030@0000@000<10000 10000`40000300030@0000@000<1000010000`40000400030@0000@000<1000010000`4000040003 0@0000@000<1000010000`40000400030@0000<000<1000010000`40000400030@0000P0000C0003 0@010=00000C00030@000081cP0001<000<100000P020L`0000C00811@000`40003900004`000`40 000500030@000`020I<0000C00030@0003d000<10000T00001<00P4o0081T00001<0 00<10000@0000`40002=00004`000`4000110081S@0001<000<10000@`020H/0000C00030@0004D0 00<10000R00001<00P570081R00001<000<10000B0000`40002500004`000`4000190081Q@0001<0 00<10000B`020H<0000300<10`000`40000200030@00008000<10000C@000`40002000000`000`40 000200030@01008000<100400`020Dl00P60000010001`40000100400P000`400@0300030@000500 0P5n00001@001P4000400@8000<100400`000`40001B00030@0007/0000300030@01008000<10040 0P000`400@0300030@0005<00P5k000010000`40000200030@00008000<100000P000`40001E0003 0@0007P0000C0081E`020GP0000C00030@0005P00P5f00004`000`40001J00030@0007<0000C0003 0@0005/00P5c00004`000`40001M0081L@0001<00P5P00030@0006h0000C00030@0006000P5^0000 4`000`40001R0081K00001<000<10000I0020FX0000C00030@0006H000<10000I`0001<00P5X0081 I`0001<000<10000J@020FD0000C00030@0006/00P5S00004`000`40001]0081H@0001<000<10000 K`000`40001N00004`000`40001`0081GP0001<00P5c0081G00001<000<10000M0020EX0000C0003 0@0007H000<10000E`0000@000<100000P000`40000200030@00008000<10000M`020EL000030003 0@01008000<100400P000`400@0300030@0007T00P5E00001@001P4000400@8000<100400`020G`0 0P5C000010020@8000<100400P000`400@0300030@0007d00P5A00000`000`400@0200030@010080 00<100400`000`40001o00030@0004h0000400030@00008000<100000P000`40000200030@000800 0P5>00004`000`4000220081C00001<00P650081BP0001<000<10000QP000`40001700004`000`40 00270081A`0001<000<10000R@020DD0000C00030@0008/00P5300004`020Hh00P5100004`000`40 002?00030@0003h0000C00030@0009000P4n00004`000`40002B0081?00001<000<10000U0000`40 000i00004`020IH00P4i00004`000`40002G0081=`0001<000<10000V@000`40000d00004`000`40 002J0081=00001<000<10000W0020C80000C0081W`020C00000C00030@000:0000<10000;@0001<0 00<10000X@020Bd0000C00030@000:<00P4[000010000`40000200030@00008000<100000P000`40 002U00030@0002P0000400070@0000400@0200030@0100<00P6W0081:0000080104200030@010080 00<100400`000`40002X00819P00008000<100400`000`400@0200030@0100<000<10000ZP000`40 000S00000`020@<000<100400P000`400@0300030@000:/00P4S000010000`40000200030@000080 00<100000P000`40002]00818@0001<00P6`00030@0001h0000C00030@000;000P4N00004`000`40 002b0081700001<000<10000]0020AX0000C00030@000;H000<100005`0001<000<10000]`020AL0 000C0081^P020AD0000C00030@000;/000<100004P0001<000<10000_0020A80000C00030@000;h0 0P4@00004`000`40003000030@0000d0000C0081`P020@d0000C00030@000<<00P4;00004`000`40 003500812@0001<000<10000a`000`40000600004`000`40003800811P0001<00P7;0081100001<0 00<10000c0000`40000100004`000`40003@00000`020@@000<100000P000`40000200030@000=00 000500060@000@010P000`400@0300030@000=00000500060@000@010P000`400@030081d@0000<0 0P4300030@01008000<10040eP0000<000<100000P000`400@0200030@010=H0000300<10`000`40 000200030@000=D00000\ \>"], ImageRangeCache->{{{81.1875, 310.562}, {690.188, 548.875}} -> {-73.1029, \ 2107.04, 0.579748, 3.12683}}], Cell[OutputFormData["\<\ Graphics[ {{Line[{{2.6469779601696886*^-23, 9.032812289079062*^-21}, {1.7914367905769168*^-12, 2.351318074876813*^-7}, {4.551185296686189*^-11, 1.6379013546910515*^-6}, {4.07004865574101*^-10, 6.098405555517508*^-6}, {1.728213039689508*^-9, 0.000014523566571289243}, {4.909960157201132*^-9, 0.000027178819164310267}, {1.0949630755915929*^-8, 0.00004398451409615839}, {2.3262509838556378*^-8, 0.00006914357833964335}, {4.644342977908056*^-8, 0.00010472061391247293}, {8.541697453859354*^-8, 0.00015098743907238522}, {1.5283122269116323*^-7, 0.00021414459165329264}, {3.779457599210889*^-7, 0.00036896516970855685}, {6.113195099369251*^-7, 0.0004926418465099492}, {9.28328280323798*^-7, 0.0006333494571629395}, {1.8707169617548924*^-6, 0.0009655101938477149}, {3.3906357062643555*^-6, 0.001381344168695075}, {5.961375222948706*^-6, 0.0019410441520667891}, {0.000014335584030397697, 0.0032969972463892314}, {0.000034365076349948676, 0.005597217156214224}, {0.00006768096073414553, 0.008447294602655003}, {0.0001300426549352418, 0.012576557008519802}, {0.00022147581338953504, 0.017420107436197818}, {0.00061599766594643, 0.03271647261351494}, {0.0013051272541766967, 0.05221292854354737}, {0.0025824836226896186, 0.08023831457593657}, {0.007443343415264203, 0.1581455453909621}, {0.016686687205724055, 0.26879848574394577}, {0.06390003191212071, 0.6720842254728214}, {0.18799805104401865, 1.4615151523956356}, {0.4302448241467737, 2.732545628882219}, {0.8354156643244484, 4.605987641044452}, {1.5268591941757257, 7.525463885989451}, {2.5304261188885366, 11.490800204813922}, {3.895499165343298, 16.633358168372517}, {5.885900191467182, 23.858653428076735}, {8.436385130549223, 32.851116982362136}, {11.968346250989814, 45.01651373651674}, {16.312868366220147, 59.70080977472061}, {21.50681718424044, 76.99830566064261}, {28.293752157705033, 99.32252147653202}, {36.223760087134536, 125.13586549849201}, {46.354699719731705, 157.82192031738364}, {57.98222430973827, 195.05275985204855}, {71.09964707886245, 236.79249405778245}, {87.3595965546948, 288.24973695666336}, {105.49647028252652, 345.3724750254398}, {125.45370501602636, 407.97563436403925}, {149.66788220566292, 483.6594880035526}, {150.6508370538118, 486.7264969371577}}]}}, {PlotRange -> {{0, 150}, {0, 500}}, AspectRatio -> GoldenRatio^(-1), DisplayFunction :> $DisplayFunction, ColorOutput -> Automatic, Axes -> Automatic, AxesOrigin -> Automatic, PlotLabel -> None, AxesLabel -> None, Ticks -> Automatic, GridLines -> None, Prolog -> {}, Epilog -> {}, AxesStyle -> Automatic, Background -> Automatic, DefaultColor -> Automatic, DefaultFont :> $DefaultFont, RotateLabel -> True, Frame -> False, FrameStyle -> Automatic, FrameTicks -> Automatic, FrameLabel -> None, PlotRegion -> Automatic, ImageSize -> Automatic, TextStyle :> $TextStyle, FormatType :> $FormatType}]\ \>", "\<\ -Graphics-\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ s2 = \ ParametricPlot[{x,3*x},{x,0,150},PlotStyle->Dashing[{0.02,0.02}]]\ \>", \ "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 %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.0238095 0.00634921 0.0147151 0.00130801 [ [.15079 .00222 -6 -9 ] [.15079 .00222 6 0 ] [.27778 .00222 -6 -9 ] [.27778 .00222 6 0 ] [.40476 .00222 -6 -9 ] [.40476 .00222 6 0 ] [.53175 .00222 -6 -9 ] [.53175 .00222 6 0 ] [.65873 .00222 -9 -9 ] [.65873 .00222 9 0 ] [.78571 .00222 -9 -9 ] [.78571 .00222 9 0 ] [.9127 .00222 -9 -9 ] [.9127 .00222 9 0 ] [.01131 .14552 -18 -4.5 ] [.01131 .14552 0 4.5 ] [.01131 .27632 -18 -4.5 ] [.01131 .27632 0 4.5 ] [.01131 .40712 -18 -4.5 ] [.01131 .40712 0 4.5 ] [.01131 .53792 -18 -4.5 ] [.01131 .53792 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 .15079 .01472 m .15079 .02097 L s [(20)] .15079 .00222 0 1 Mshowa .27778 .01472 m .27778 .02097 L s [(40)] .27778 .00222 0 1 Mshowa .40476 .01472 m .40476 .02097 L s [(60)] .40476 .00222 0 1 Mshowa .53175 .01472 m .53175 .02097 L s [(80)] .53175 .00222 0 1 Mshowa .65873 .01472 m .65873 .02097 L s [(100)] .65873 .00222 0 1 Mshowa .78571 .01472 m .78571 .02097 L s [(120)] .78571 .00222 0 1 Mshowa .9127 .01472 m .9127 .02097 L s [(140)] .9127 .00222 0 1 Mshowa .125 Mabswid .05556 .01472 m .05556 .01847 L s .0873 .01472 m .0873 .01847 L s .11905 .01472 m .11905 .01847 L s .18254 .01472 m .18254 .01847 L s .21429 .01472 m .21429 .01847 L s .24603 .01472 m .24603 .01847 L s .30952 .01472 m .30952 .01847 L s .34127 .01472 m .34127 .01847 L s .37302 .01472 m .37302 .01847 L s .43651 .01472 m .43651 .01847 L s .46825 .01472 m .46825 .01847 L s .5 .01472 m .5 .01847 L s .56349 .01472 m .56349 .01847 L s .59524 .01472 m .59524 .01847 L s .62698 .01472 m .62698 .01847 L s .69048 .01472 m .69048 .01847 L s .72222 .01472 m .72222 .01847 L s .75397 .01472 m .75397 .01847 L s .81746 .01472 m .81746 .01847 L s .84921 .01472 m .84921 .01847 L s .88095 .01472 m .88095 .01847 L s .94444 .01472 m .94444 .01847 L s .97619 .01472 m .97619 .01847 L s .25 Mabswid 0 .01472 m 1 .01472 L s .02381 .14552 m .03006 .14552 L s [(100)] .01131 .14552 1 0 Mshowa .02381 .27632 m .03006 .27632 L s [(200)] .01131 .27632 1 0 Mshowa .02381 .40712 m .03006 .40712 L s [(300)] .01131 .40712 1 0 Mshowa .02381 .53792 m .03006 .53792 L s [(400)] .01131 .53792 1 0 Mshowa .125 Mabswid .02381 .04088 m .02756 .04088 L s .02381 .06704 m .02756 .06704 L s .02381 .0932 m .02756 .0932 L s .02381 .11936 m .02756 .11936 L s .02381 .17168 m .02756 .17168 L s .02381 .19784 m .02756 .19784 L s .02381 .224 m .02756 .224 L s .02381 .25016 m .02756 .25016 L s .02381 .30248 m .02756 .30248 L s .02381 .32864 m .02756 .32864 L s .02381 .3548 m .02756 .3548 L s .02381 .38096 m .02756 .38096 L s .02381 .43328 m .02756 .43328 L s .02381 .45944 m .02756 .45944 L s .02381 .4856 m .02756 .4856 L s .02381 .51176 m .02756 .51176 L s .02381 .56408 m .02756 .56408 L s .02381 .59024 m .02756 .59024 L s .02381 .6164 m .02756 .6164 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 .5 Mabswid [ .02 .02 ] 0 setdash .02381 .01472 m .06244 .03859 L .10458 .06463 L .14415 .08909 L .18221 .11261 L .22272 .13765 L .26171 .16175 L .30316 .18736 L .34309 .21204 L .3815 .23578 L .42237 .26104 L .46172 .28536 L .49955 .30874 L .53984 .33364 L .57861 .3576 L .61984 .38308 L .65954 .40762 L .69774 .43123 L .73838 .45635 L .77751 .48053 L .81909 .50623 L .85916 .53099 L .89771 .55482 L .93871 .58016 L .97619 .60332 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{30, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgoooofZPfUZ8^KkEkcMCLOoooiCE ggfe_M7]lE5eNP000;S>_9b_Wn7ZhVEaI`000;fmjj2Pan?SmVMWP@0005el^4mYW;K4gbhnG?ooomkN g]7]lU5eNe5AniBDU492@[fm_G=cLb4Q8F=SHo3Ud7IYC[ZUNc_j=:f][O[jdP3ooooo0?l0o`3o0000 okno_n?SmfQXPL30`;K4gbhnG4mYWJ6Qb>_HaFmG@;:ceMK9T0I_l00?ooc>CTi6YZJX00 03SXh^;RiT00000<`00IP00V@00c00c000c<`0cIP0cV@0cc00c o`1V001V<`1VIP1VV@1Vc01Vo`2I002I<`2IIP2IV@2Ic03<003<<`3I03>I IIS>IVC>Ic3>Ioc?<03?<0000:@001`40000100404`040@8000<10040 4`030@8000<1004050000`400@0200030@01018000L100000@01008000<1004040000`4000020007 0@0000400@0?00030@0000@10P000`400@0>0000:P001P4000400A<000<100400`000`400@0C0003 0@00008000<100405@001`40000100404P001`40000100400P000`400@0@00030@0000<000H10001 004?00060@000@010`000`400@0>0000:0000`400@0200030@0101@00P4300030@0101<000<10000 0P000`400@0D00030@01008000<100404@020@<000<100400P000`400@0?00810`000`400@020003 0@0100h00P4300810`000`400@0>0000:@000`40000200030@0001@000<100000P000`40000C0081 0`000`40000C00<10`000`40000A00030@00008000<100000P000`40000?00030@00008000<10000 0P000`40000>00030@00008000<100000P000`40000=00004@000`40003B00004@000`40003B0000 4@000`40003B00002`3K0@004@020@D000<100000`000`40000400030@0000@000<1000010000`40 000400030@0000@000<1000010000`40000400030@0000@000<1000010000`40000300030@0000@0 00<1000010000`40000400030@0000@000<1000010000`40000400030@0000@000<1000010000`40 000400030@0000<000<1000010000`40000400030@0000@000<1000010000`40000400030@0000@0 00<1000010000`40000400030@0000<0000A00030@0101P000<100006@000`40000H00030@0001T0 00<100006@000`40000H00030@0001T000<100004@00014000@10001d@00014000<10000dP000140 00<1000010020L`0000A00030@0000H00P7:00004@000`40000800030@0000000`40 002G00004@000`40000i00030@0009H0000A00030@0003X00P6F00004@000`40003B00004@000`40 000o00030@000900000A00030@0004000P6@00004@000`40001200030@0008d0000A00030@0004<0 00<10000S000014000<10000dP00014000<10000A`000`40002800004@000`4000180081R0000140 00<10000BP000`40002500004@000`40003B00004@000`40003B00004@000`40001>00030@000840 000A00030@0004l00P6100004@000`40001A0081O`00014000<10000dP00014000<10000E@000`40 001j00000`4300030@00008000<100000`000`40001F0081NP0000030@00008000<100400P000`40 0@040081F@020GP000000`01000200030@01008000<1004010000`40003B00000P001P4000400@80 00<1004010000`40003B000000<100400P000`400@0200030@0100@000<10000G@000`40001b0000 00<00@000`000`40000200030@0000<000<10000GP020G80000A00030@00060000<10000K`000140 00<10000dP00014000<10000I0000`40001[00004@000`40001U00030@0006X0000A00030@0006H0 0P5Z00004@000`40001X00030@0006L0000A00030@000=80000A00030@0006`000<10000H`000140 00<10000K@000`40001R00004@000`40001^0081HP00014000<10000dP00014000<10000L`000`40 001L00004@000`40001d00030@0005/0000A00030@0007D000<10000FP00014000<10000MP020EX0 000A00030@000=80000A00030@0007X000<10000E@00014000<10000N`020ED0000A00030@0007d0 0P5C00004@000`40003B00004@000`40003B00004@000`40002200030@0004d000000`0100030003 0@00008000<100000`000`4000230081C@0000030@01008000<100400P000`400@0400030@0008D0 00<10000BP00008000H10001004200030@0100@00P7C000000<00@400P000`400@0200030@0100@0 00<10000R@000`400016000000<100400P000`400@0200030@0100@000<10000RP020DH000000`01 000300030@00008000<100000`000`40002<0081A000014000<10000dP00014000<10000dP000140 00<10000T@000`40000n00004@000`40002B0081?P00014000<10000U0000`40000k00004@000`40 003B00004@000`40002H00030@0003L0000A00030@0009T000<10000=P00014000<10000VP020CH0 000A00030@0009`000<10000<`00014000<10000dP00014000<10000W`020C40000A00030@000:40 0P4_00004@000`40002S00030@0002`0000A00030@000=80000A00030@000:L000<10000:0000140 00<10000Z0020BP0000A00030@000:X000<100009@00014000<10000ZP000`40000U00004@000`40 003B00004@000`40002^00030@000240000A00030@000:l00P4Q000000<00@000`000`4000020003 0@0000<000<10000/@020Al000000`01000200030@01008000<1004010000`40003B00000`420003 0@01008000<1004010020M<000000`01000200030@01008000<1004010000`40002f00030@0001T0 00020@<000<100400P000`400@0400030@000;L00P4I000000<00@000`000`40000200030@0000<0 00<10000^@000`40000F00004@000`40003B00004@000`40002m00030@000180000A00030@000;h0 0P4B00004@000`40003000814000014000<10000dP00014000<10000dP00014000<10000a0000`40 000;00004@000`40003500812`00014000<10000a`020@T0000A00030@000=80000A00030@000=80 000A00030@000=80000A00030@000=80000A00030@000=800000\ \>"], ImageRangeCache->{{{81.1875, 310.562}, {238.5, 97.1875}} -> {-71.2096, \ 306.476, 0.579491, 2.81291}}], Cell[OutputFormData["\<\ Graphics[{Dashing[{0.02, 0.02}], {Line[{{6.2499999999999995*^-6, 0.00001875}, {6.085048735937368, 18.255146207812103}, {12.721319978906052, 38.16395993671816}, {18.95390495078079, 56.86171485234237}, {24.94776116562421, 74.84328349687263}, {31.327888623436316, 93.98366587030895}, {37.469287324217106, 112.40786197265132}, {43.99695726796658, 131.99087180389972}, {50.28589845468474, 150.85769536405422}, {56.336110884371585, 169.00833265311476}, {62.77259455702711, 188.31778367108134}, {68.97034947265132, 206.91104841795396}, {74.92937563124421, 224.78812689373262}, {81.2746730328058, 243.82401909841738}, {87.38124167733606, 262.1437250320082}, {93.87408156483501, 281.622244694505}, {100.12819269530264, 300.38457808590795}, {106.14357506873897, 318.4307252062169}, {112.54522868514397, 337.6356860554319}, {118.70815354451766, 356.124460633553}, {125.25734964686002, 375.7720489405801}, {131.56781699217106, 394.7034509765132}, {137.6395555804508, 412.9186667413524}, {144.09756541169924, 432.2926962350977}, {149.99999375, 449.99998124999996}}]}}, {PlotRange -> Automatic, AspectRatio -> GoldenRatio^(-1), DisplayFunction :> $DisplayFunction, ColorOutput -> Automatic, Axes -> Automatic, AxesOrigin -> Automatic, PlotLabel -> None, AxesLabel -> None, Ticks -> Automatic, GridLines -> None, Prolog -> {}, Epilog -> {}, AxesStyle -> Automatic, Background -> Automatic, DefaultColor -> Automatic, DefaultFont :> $DefaultFont, RotateLabel -> True, Frame -> False, FrameStyle -> Automatic, FrameTicks -> Automatic, FrameLabel -> None, PlotRegion -> Automatic, ImageSize -> Automatic, TextStyle :> $TextStyle, FormatType :> $FormatType}]\ \>", "\<\ -Graphics-\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Show[s1,s2]", "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 %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0 0.00666667 0 0.00123607 [ [.13333 -0.0125 -6 -9 ] [.13333 -0.0125 6 0 ] [.26667 -0.0125 -6 -9 ] [.26667 -0.0125 6 0 ] [.4 -0.0125 -6 -9 ] [.4 -0.0125 6 0 ] [.53333 -0.0125 -6 -9 ] [.53333 -0.0125 6 0 ] [.66667 -0.0125 -9 -9 ] [.66667 -0.0125 9 0 ] [.8 -0.0125 -9 -9 ] [.8 -0.0125 9 0 ] [.93333 -0.0125 -9 -9 ] [.93333 -0.0125 9 0 ] [-0.0125 .12361 -18 -4.5 ] [-0.0125 .12361 0 4.5 ] [-0.0125 .24721 -18 -4.5 ] [-0.0125 .24721 0 4.5 ] [-0.0125 .37082 -18 -4.5 ] [-0.0125 .37082 0 4.5 ] [-0.0125 .49443 -18 -4.5 ] [-0.0125 .49443 0 4.5 ] [-0.0125 .61803 -18 -4.5 ] [-0.0125 .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 .13333 0 m .13333 .00625 L s [(20)] .13333 -0.0125 0 1 Mshowa .26667 0 m .26667 .00625 L s [(40)] .26667 -0.0125 0 1 Mshowa .4 0 m .4 .00625 L s [(60)] .4 -0.0125 0 1 Mshowa .53333 0 m .53333 .00625 L s [(80)] .53333 -0.0125 0 1 Mshowa .66667 0 m .66667 .00625 L s [(100)] .66667 -0.0125 0 1 Mshowa .8 0 m .8 .00625 L s [(120)] .8 -0.0125 0 1 Mshowa .93333 0 m .93333 .00625 L s [(140)] .93333 -0.0125 0 1 Mshowa .125 Mabswid .03333 0 m .03333 .00375 L s .06667 0 m .06667 .00375 L s .1 0 m .1 .00375 L s .16667 0 m .16667 .00375 L s .2 0 m .2 .00375 L s .23333 0 m .23333 .00375 L s .3 0 m .3 .00375 L s .33333 0 m .33333 .00375 L s .36667 0 m .36667 .00375 L s .43333 0 m .43333 .00375 L s .46667 0 m .46667 .00375 L s .5 0 m .5 .00375 L s .56667 0 m .56667 .00375 L s .6 0 m .6 .00375 L s .63333 0 m .63333 .00375 L s .7 0 m .7 .00375 L s .73333 0 m .73333 .00375 L s .76667 0 m .76667 .00375 L s .83333 0 m .83333 .00375 L s .86667 0 m .86667 .00375 L s .9 0 m .9 .00375 L s .96667 0 m .96667 .00375 L s .25 Mabswid 0 0 m 1 0 L s 0 .12361 m .00625 .12361 L s [(100)] -0.0125 .12361 1 0 Mshowa 0 .24721 m .00625 .24721 L s [(200)] -0.0125 .24721 1 0 Mshowa 0 .37082 m .00625 .37082 L s [(300)] -0.0125 .37082 1 0 Mshowa 0 .49443 m .00625 .49443 L s [(400)] -0.0125 .49443 1 0 Mshowa 0 .61803 m .00625 .61803 L s [(500)] -0.0125 .61803 1 0 Mshowa .125 Mabswid 0 .02472 m .00375 .02472 L s 0 .04944 m .00375 .04944 L s 0 .07416 m .00375 .07416 L s 0 .09889 m .00375 .09889 L s 0 .14833 m .00375 .14833 L s 0 .17305 m .00375 .17305 L s 0 .19777 m .00375 .19777 L s 0 .22249 m .00375 .22249 L s 0 .27193 m .00375 .27193 L s 0 .29666 m .00375 .29666 L s 0 .32138 m .00375 .32138 L s 0 .3461 m .00375 .3461 L s 0 .39554 m .00375 .39554 L s 0 .42026 m .00375 .42026 L s 0 .44498 m .00375 .44498 L s 0 .46971 m .00375 .46971 L s 0 .51915 m .00375 .51915 L s 0 .54387 m .00375 .54387 L s 0 .56859 m .00375 .56859 L s 0 .59331 m .00375 .59331 L s .25 Mabswid 0 0 m 0 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath .5 Mabswid 0 0 m 0 0 L 0 0 L 0 0 L 0 0 L 0 0 L 0 0 L 0 0 L 0 0 L 0 0 L 0 0 L 0 0 L 0 0 L 0 0 L 0 0 L 0 0 L 0 0 L 0 0 L 0 1e-05 L 0 1e-05 L 0 2e-05 L 0 2e-05 L 0 4e-05 L 1e-05 6e-05 L 2e-05 .0001 L 5e-05 .0002 L .00011 .00033 L .00043 .00083 L .00125 .00181 L .00287 .00338 L .00557 .00569 L .01018 .0093 L .01687 .0142 L .02597 .02056 L .03924 .02949 L .05624 .04061 L .07979 .05564 L .10875 .07379 L .14338 .09518 L .18863 .12277 L .24149 .15468 L .30903 .19508 L .38655 .2411 L .474 .29269 L .5824 .3563 L .70331 .4269 L .83636 .50429 L .99779 .59784 L s .99779 .59784 m 1 .59912 L s [ .02 .02 ] 0 setdash 0 0 m .04057 .02256 L .08481 .04717 L .12636 .07028 L .16632 .09251 L .20885 .11617 L .2498 .13894 L .29331 .16315 L .33524 .18647 L .37557 .20891 L .41848 .23277 L .4598 .25576 L .49953 .27785 L .54183 .30138 L .58254 .32403 L .62583 .3481 L .66752 .3713 L .70762 .3936 L .7503 .41734 L .79139 .44019 L .83505 .46448 L .87712 .48788 L .9176 .5104 L .96065 .53434 L 1 .55623 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{30, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgoooofZPfUZ8^KkEkcMCLOoooiCE ggfe_M7]lE5eNP000;S>_9b_Wn7ZhVEaI`000;fmjj2Pan?SmVMWP@0005el^4mYW;K4gbhnG?ooomkN g]7]lU5eNe5AniBDU492@[fm_G=cLb4Q8F=SHo3Ud7IYC[ZUNc_j=:f][O[jdP3ooooo0?l0o`3o0000 okno_n?SmfQXPL30`;K4gbhnG4mYWJ6Qb>_HaFmG@;:ceMK9T0I_l00?ooc>CTi6YZJX00 03SXh^;RiT00000<`00IP00V@00c00c000c<`0cIP0cV@0cc00c o`1V001V<`1VIP1VV@1Vc01Vo`2I002I<`2IIP2IV@2Ic03<003<<`3I03>I IIS>IVC>Ic3>Ioc?<03?<00810`000`400@020003 0@0100l00P4300810`000`400@0;0000;0000`40000200030@0001<000<100000P000`40000D0081 0`000`40000C00<10`000`40000A00030@00008000<100000P000`40000>00030@00008000<10000 0P000`40000?00030@00008000<100000P000`40000:0000iP000>H0003V00004`3@0@<0000C00<1 10000`40000400030@0000@000<1000010000`40000400030@0000@000<100000`000`4000040003 0@0000@000<1000010000`40000400030@0000@000<1000010000`40000400030@0000@000<10000 10000`40000300030@0000@000<1000010000`40000400030@0000@000<1000010000`4000040003 0@0000@000<1000010000`40000400030@0000<000<1000010000`40000400030@0000P0000C0003 0@010081cP0001<000<100000P7>00004`000`40000200<1b`0001<00P4500<1b@0001<000<10000 1@0010400@7700004`000`4000060081b00001<000<1000020020@8000<10000`@0001<000<10000 2P020@0300410<40000C00813@020@0300400;l0000C00030@0000h000<10000_`0001<000<10000 3`020@8000<10000^P0001<000<100004@000`4000020KX0000C00030@0001800P420081^00001<0 0P4E00030@000;T0000C00030@0001D00P4300030@000;<0000C00030@0001L000@100000P6c0000 4`000`40000H00030@0000800P6a00004`000`40000I0081]@0001<00P4L00030@0000<000<10000 [00001<000<1000070020@@00P6/00004`000`40000N008110020JX0000C00030@0002000P6^0000 0`030@<000<100000P000`40000200030@0002800P4500030@000:@0000400070@0000400@020003 0@0100<000<1000090000`4000030081Y00000@000L100000@01008000<100400`020BH00P450003 0@000:40000400070@0000400@0200030@0100<000<100009`000`40002V00000`020@<000<10040 0P000`400@0300030@0002P00P4600030@0009d0000400030@00008000<100000P000`4000020003 0@0002X00P4500030@0009`0000C00030@0002`000<100000`020I`0000C0081;P020J40000C0003 0@0002l000<100001@000`40002F00004`000`40000`00811P020IH0000C00030@0003800P460081 U00001<000<10000=0020IX0000C0081=`000`40000500030@0008l0000C00030@0003L00P460081 S`0001<000<10000>@020@H00P6=00004`000`40000k0081T`0001<000<10000?@000`4000060003 0@0008L0000C0081?`020@L00P6700004`000`40001000030@0000H000<10000Q00001<000<10000 @@020Hd0000C00030@0004<00P4800030@000800000C00030@0004D000<100001P020H00000C0081 A`020@P000<10000O@0001<000<10000B0000`40002500004`000`40001900812@000`40001i0000 4`000`40001;008120020GT0000300<10`000`40000200030@00008000<10000C@000`4000070081 M`0000<000<100000P000`400@0200030@0100<00P5?0081P00000@000L100000@01008000<10040 0`000`40001@00812@000`40001b00001@001P4000400@8000<100400`000`40001B00030@0000L0 0P5b00000`000`400@0200030@01008000<100400`000`40001C00812@020G00000400030@000080 00<100000P000`40000200030@0005D000<10000N00001<00P5G00812P020F`0000C00030@0005P0 0P4:0081JP0001<000<10000FP000`40000900030@0006L0000C00030@0005/00P5c00004`000`40 001M00812`000`40001S00004`020F0000<100002@020F<0000C00030@0006000P4;00030@000600 000C00030@0006800P5/00004`000`40001T00812`000`40001L00004`000`40001V00030@0000T0 0P5L00004`020FP00P4;0081FP0001<000<10000J@020FD0000C00030@0006/00P4;00030@0005D0 000C00030@0006d00P4:0081E@0001<000<10000K`000`4000090081D`0001<000<10000L0020Eh0 000C0081L`020@/000<10000CP0001<000<10000M0020@X00P5>00004`000`40001f00030@0000T0 0P5<000010000`40000200030@00008000<100000P000`40001g0081E`0000<000<100400P000`40 0@0200030@0100<000<10000N@020@`000<10000AP0000D000H10001004200030@0100<00P5l0081 2P000`400016000010020@8000<100400P000`400@0300030@0007d00P490081AP0000<000<10040 0P000`400@0200030@0100<000<10000O`000`40000800030@0004<0000400030@00008000<10000 0P000`40000200030@0008000P5>00004`000`40002200812P030Cl0000C0081Q@020@X000<10000 ?@0001<000<10000QP000`40000800030@0003`0000C00030@0008L00P5700004`000`4000290081 2P020CT0000C00030@0008/00P4:0081=`0001<00P6>00812P000`40000d00004`000`40002?0003 0@0003h0000C00030@0009000P4:00030@000340000C00030@0009800P490081<@0001<000<10000 U0000`4000080081;`0001<00P6F0081>@0001<000<10000U`020@/000<10000:@0001<000<10000 V@000`4000090081:@0001<000<10000VP020@/000<100009P0001<000<10000W0020C80000C0081 W`020@/000<100008P0001<000<10000X0000`40000900818P0001<000<10000X@020@/000<10000 7`0001<000<10000X`020B/0000400030@00008000<100000P000`40000200030@000:D000<10000 2P020A`0000400070@0000400@0200030@0100<00P6W008130020AX0000200@10P000`400@020003 0@0100<000<10000Z0020@`000<100005`00008000<100400`000`400@0200030@0100<000<10000 ZP000`40000S00000`020@<000<100400P000`400@0300030@000:/00P4<00030@0001@000040003 0@00008000<100000P000`40000200030@000:d00P4;0081500001<00P6`00030@0000X00P4B0000 4`000`40002`00817P0001<000<10000/P020@d000<10000300001<000<10000]0020@`00P4<0000 4`000`40002f00030@0000/000<100002@0001<000<10000]`020AL0000C0081^P020@d000<10000 1@0001<000<10000^`000`40000;00811@0001<000<10000_0020@d000<100000P0001<000<10000 _P020A00000C00030@000<0000<100003@0001<00P7200813@0001<000<10000``020@/0000C0003 0@000"], ImageRangeCache->{{{81.1875, 310.562}, {431.188, 289.875}} -> {-73.1029, \ 1094.73, 0.579748, 3.12683}}], Cell[OutputFormData["\<\ Graphics[ {{{Line[{{2.6469779601696886*^-23, 9.032812289079062*^-21}, {1.7914367905769168*^-12, 2.351318074876813*^-7}, {4.551185296686189*^-11, 1.6379013546910515*^-6}, {4.07004865574101*^-10, 6.098405555517508*^-6}, {1.728213039689508*^-9, 0.000014523566571289243}, {4.909960157201132*^-9, 0.000027178819164310267}, {1.0949630755915929*^-8, 0.00004398451409615839}, {2.3262509838556378*^-8, 0.00006914357833964335}, {4.644342977908056*^-8, 0.00010472061391247293}, {8.541697453859354*^-8, 0.00015098743907238522}, {1.5283122269116323*^-7, 0.00021414459165329264}, {3.779457599210889*^-7, 0.00036896516970855685}, {6.113195099369251*^-7, 0.0004926418465099492}, {9.28328280323798*^-7, 0.0006333494571629395}, {1.8707169617548924*^-6, 0.0009655101938477149}, {3.3906357062643555*^-6, 0.001381344168695075}, {5.961375222948706*^-6, 0.0019410441520667891}, {0.000014335584030397697, 0.0032969972463892314}, {0.000034365076349948676, 0.005597217156214224}, {0.00006768096073414553, 0.008447294602655003}, {0.0001300426549352418, 0.012576557008519802}, {0.00022147581338953504, 0.017420107436197818}, {0.00061599766594643, 0.03271647261351494}, {0.0013051272541766967, 0.05221292854354737}, {0.0025824836226896186, 0.08023831457593657}, {0.007443343415264203, 0.1581455453909621}, {0.016686687205724055, 0.26879848574394577}, {0.06390003191212071, 0.6720842254728214}, {0.18799805104401865, 1.4615151523956356}, {0.4302448241467737, 2.732545628882219}, {0.8354156643244484, 4.605987641044452}, {1.5268591941757257, 7.525463885989451}, {2.5304261188885366, 11.490800204813922}, {3.895499165343298, 16.633358168372517}, {5.885900191467182, 23.858653428076735}, {8.436385130549223, 32.851116982362136}, {11.968346250989814, 45.01651373651674}, {16.312868366220147, 59.70080977472061}, {21.50681718424044, 76.99830566064261}, {28.293752157705033, 99.32252147653202}, {36.223760087134536, 125.13586549849201}, {46.354699719731705, 157.82192031738364}, {57.98222430973827, 195.05275985204855}, {71.09964707886245, 236.79249405778245}, {87.3595965546948, 288.24973695666336}, {105.49647028252652, 345.3724750254398}, {125.45370501602636, 407.97563436403925}, {149.66788220566292, 483.6594880035526}, {150.6508370538118, 486.7264969371577}}]}}, {Dashing[{0.02, 0.02}], {Line[{{6.2499999999999995*^-6, 0.00001875}, {6.085048735937368, 18.255146207812103}, {12.721319978906052, 38.16395993671816}, {18.95390495078079, 56.86171485234237}, {24.94776116562421, 74.84328349687263}, {31.327888623436316, 93.98366587030895}, {37.469287324217106, 112.40786197265132}, {43.99695726796658, 131.99087180389972}, {50.28589845468474, 150.85769536405422}, {56.336110884371585, 169.00833265311476}, {62.77259455702711, 188.31778367108134}, {68.97034947265132, 206.91104841795396}, {74.92937563124421, 224.78812689373262}, {81.2746730328058, 243.82401909841738}, {87.38124167733606, 262.1437250320082}, {93.87408156483501, 281.622244694505}, {100.12819269530264, 300.38457808590795}, {106.14357506873897, 318.4307252062169}, {112.54522868514397, 337.6356860554319}, {118.70815354451766, 356.124460633553}, {125.25734964686002, 375.7720489405801}, {131.56781699217106, 394.7034509765132}, {137.6395555804508, 412.9186667413524}, {144.09756541169924, 432.2926962350977}, {149.99999375, 449.99998124999996}}]}}}, {PlotRange -> {{0, 150}, {0, 500}}, AspectRatio -> GoldenRatio^(-1), DisplayFunction :> $DisplayFunction, ColorOutput -> Automatic, Axes -> Automatic, AxesOrigin -> Automatic, PlotLabel -> None, AxesLabel -> None, Ticks -> Automatic, GridLines -> None, Prolog -> {}, Epilog -> {}, AxesStyle -> Automatic, Background -> Automatic, DefaultColor -> Automatic, DefaultFont :> $DefaultFont, RotateLabel -> True, Frame -> False, FrameStyle -> Automatic, FrameTicks -> Automatic, FrameLabel -> None, PlotRegion -> Automatic, ImageSize -> Automatic, TextStyle :> $TextStyle, FormatType :> $FormatType}]\ \>", "\<\ -Graphics-\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["data = Table[{pbar[x],epsbar[x]},{x,0,3,0.2}]", "Input"], Cell[OutputFormData["\<\ {{0, 0}, {0.00006310648251085793, 0.008095324739237596}, {0.0019408280828134838, 0.06698928144850816}, {0.013890782220883552, 0.23800633963643353}, {0.0544831222493391, 0.6011967996637847}, {0.15373839983569174, 1.2604751625374035}, {0.35287302648412083, 2.3463492615092205}, {0.7037381409587857, 4.0172179655942095}, {1.2683703479627289, 6.4599469954180435}, {2.118710957681679, 9.890112038765558}, {3.336448275066791, 14.552095544931529}, {5.012933776357549, 20.71912092900946}, {7.24913921716279, 28.69326078283722}, {10.15563558293766, 38.80543488901998}, {13.85258345803626, 51.41540477019092}, {18.469729260659157, 66.91176756388708}}\ \>", "\<\ {{0, 0}, {0.0000631065, \ 0.00809532}, {0.00194083, 0.0669893}, {0.0138908, 0.238006}, {0.0544831, 0.601197}, {0.153738, 1.26048}, {0.352873, 2.34635}, {0.703738, 4.01722}, {1.26837, 6.45995}, {2.11871, 9.89011}, {3.33645, 14.5521}, {5.01293, 20.7191}, {7.24914, 28.6933}, {10.1556, 38.8054}, {13.8526, 51.4154}, {18.4697, 66.9118}}\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["f1 = Fit[data,{p^(3/5),p},p]", "Input"], Cell[OutputFormData["\<\ 2.421621429032866*p^(3/5) + 2.866318271541201*p\ \>", "\<\ 3/5 2.42162 p + 2.86632 p\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["s3 = Plot[f1,{p,0,20},PlotStyle->Dashing[{0.02,0.02}]]", "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 %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.0238095 0.047619 0.0147151 0.008182 [ [.2619 .00222 -3 -9 ] [.2619 .00222 3 0 ] [.5 .00222 -6 -9 ] [.5 .00222 6 0 ] [.7381 .00222 -6 -9 ] [.7381 .00222 6 0 ] [.97619 .00222 -6 -9 ] [.97619 .00222 6 0 ] [.01131 .09654 -12 -4.5 ] [.01131 .09654 0 4.5 ] [.01131 .17836 -12 -4.5 ] [.01131 .17836 0 4.5 ] [.01131 .26018 -12 -4.5 ] [.01131 .26018 0 4.5 ] [.01131 .342 -12 -4.5 ] [.01131 .342 0 4.5 ] [.01131 .42382 -12 -4.5 ] [.01131 .42382 0 4.5 ] [.01131 .50564 -12 -4.5 ] [.01131 .50564 0 4.5 ] [.01131 .58746 -12 -4.5 ] [.01131 .58746 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 .2619 .01472 m .2619 .02097 L s [(5)] .2619 .00222 0 1 Mshowa .5 .01472 m .5 .02097 L s [(10)] .5 .00222 0 1 Mshowa .7381 .01472 m .7381 .02097 L s [(15)] .7381 .00222 0 1 Mshowa .97619 .01472 m .97619 .02097 L s [(20)] .97619 .00222 0 1 Mshowa .125 Mabswid .07143 .01472 m .07143 .01847 L s .11905 .01472 m .11905 .01847 L s .16667 .01472 m .16667 .01847 L s .21429 .01472 m .21429 .01847 L s .30952 .01472 m .30952 .01847 L s .35714 .01472 m .35714 .01847 L s .40476 .01472 m .40476 .01847 L s .45238 .01472 m .45238 .01847 L s .54762 .01472 m .54762 .01847 L s .59524 .01472 m .59524 .01847 L s .64286 .01472 m .64286 .01847 L s .69048 .01472 m .69048 .01847 L s .78571 .01472 m .78571 .01847 L s .83333 .01472 m .83333 .01847 L s .88095 .01472 m .88095 .01847 L s .92857 .01472 m .92857 .01847 L s .25 Mabswid 0 .01472 m 1 .01472 L s .02381 .09654 m .03006 .09654 L s [(10)] .01131 .09654 1 0 Mshowa .02381 .17836 m .03006 .17836 L s [(20)] .01131 .17836 1 0 Mshowa .02381 .26018 m .03006 .26018 L s [(30)] .01131 .26018 1 0 Mshowa .02381 .342 m .03006 .342 L s [(40)] .01131 .342 1 0 Mshowa .02381 .42382 m .03006 .42382 L s [(50)] .01131 .42382 1 0 Mshowa .02381 .50564 m .03006 .50564 L s [(60)] .01131 .50564 1 0 Mshowa .02381 .58746 m .03006 .58746 L s [(70)] .01131 .58746 1 0 Mshowa .125 Mabswid .02381 .03108 m .02756 .03108 L s .02381 .04744 m .02756 .04744 L s .02381 .06381 m .02756 .06381 L s .02381 .08017 m .02756 .08017 L s .02381 .1129 m .02756 .1129 L s .02381 .12926 m .02756 .12926 L s .02381 .14563 m .02756 .14563 L s .02381 .16199 m .02756 .16199 L s .02381 .19472 m .02756 .19472 L s .02381 .21108 m .02756 .21108 L s .02381 .22745 m .02756 .22745 L s .02381 .24381 m .02756 .24381 L s .02381 .27654 m .02756 .27654 L s .02381 .2929 m .02756 .2929 L s .02381 .30927 m .02756 .30927 L s .02381 .32563 m .02756 .32563 L s .02381 .35836 m .02756 .35836 L s .02381 .37472 m .02756 .37472 L s .02381 .39109 m .02756 .39109 L s .02381 .40745 m .02756 .40745 L s .02381 .44018 m .02756 .44018 L s .02381 .45654 m .02756 .45654 L s .02381 .47291 m .02756 .47291 L s .02381 .48927 m .02756 .48927 L s .02381 .522 m .02756 .522 L s .02381 .53836 m .02756 .53836 L s .02381 .55473 m .02756 .55473 L s .02381 .57109 m .02756 .57109 L s .02381 .60382 m .02756 .60382 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 .5 Mabswid [ .02 .02 ] 0 setdash .02381 .01472 m .06244 .05122 L .10458 .0817 L .14415 .10854 L .18221 .13348 L .22272 .15939 L .26171 .1839 L .30316 .20957 L .34309 .23402 L .3815 .25731 L .42237 .28189 L .46172 .30539 L .49955 .32785 L .53984 .35163 L .57861 .37441 L .61984 .39851 L .65954 .42163 L .69774 .44378 L .73838 .46727 L .77751 .48981 L .81909 .51369 L .85916 .53664 L .89771 .55866 L .93871 .58202 L .97619 .60332 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{30, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgoooofZPfUZ8^KkEkcMCLOoooiCE ggfe_M7]lE5eNP000;S>_9b_Wn7ZhVEaI`000;fmjj2Pan?SmVMWP@0005el^4mYW;K4gbhnG?ooomkN g]7]lU5eNe5AniBDU492@[fm_G=cLb4Q8F=SHo3Ud7IYC[ZUNc_j=:f][O[jdP3ooooo0?l0o`3o0000 okno_n?SmfQXPL30`;K4gbhnG4mYWJ6Qb>_HaFmG@;:ceMK9T0I_l00?ooc>CTi6YZJX00 03SXh^;RiT00000<`00IP00V@00c00c000c<`0cIP0cV@0cc00c o`1V001V<`1VIP1VV@1Vc01Vo`2I002I<`2IIP2IV@2Ic03<003<<`3I03>I IIS>IVC>Ic3>Ioc?<03?<00030@000=D0000>00030@0000<000<10000 c`0000h00P4500030@00000030@0000D000<10000c@0000h000<100001P020Ld0000>0003 0@000=D0000>00812`000`40003800003P000`40000;00030@00000030@0000`00P770000 3P020@l000<10000a00000h000<10000e@0000800`4300030@0000<000<10000e@0000<000L10000 0@0100@000<100004@000`40003100000`001`400001004010020A<00P7100000`001`4000010040 10000`40000D0081_`0000800P4300030@0100@000<10000e@0000<000<100000P000`4000030081 6P000`40002i00003P000`40000J00030@000;P0000>00030@0001/000<10000]`0000h000<10000 70000`40002f00003P020MH0000>00030@00020000<10000/P0000h000<100008@000`40002a0000 3P000`40000R00030@000;00000>008190000`40002_00003P000`40003E00003P000`40000W0003 0@000:/0000>0081:@020J/0000>00030@0002X00P6Y00000P030@<000<100000`000`40003E0000 0P000`40000200030@0100@000<10000e@0000<000L100000@0100@00P4_0081Y@0000@000H10001 004400030@0003000P6S00000P000`400@0200030@0100@000<1000000030@0003L00P6L00003P000`40 000i0081VP0000h00P7F00003P000`40003E00003P000`40000m00030@0009D0000>0081?`020ID0 000>00030@0004000P6C00003P000`40003E00003P000`40001500030@0008d0000>0081A`020Hd0 000>00030@0004P000<10000RP0000<000<100000P000`40000300030@000=D0000200030@010080 00<1004010000`40003E000010001P4000400@@00P5=00030@0008H0000300810P000`400@040003 0@0004d00P6600000P000`400@0200030@0100@000<10000C`020H@0000300030@00008000<10000 0`020MH0000>00030@0005@000<10000OP0000h000<10000E@020Gh0000>00030@0005L000<10000 N`0000h00P7F00003P000`40003E00003P000`40001K0081N00000h00P5N0081MP0000h000<10000 G`000`40001c00003P000`40003E00003P000`40001S00030@0006l0000>0081I@020Fl0000>0003 0@0006H000<10000K00000<000<100000P000`40000300030@000=D0000300070@0000400@040081 eP000003004100810P000`400@0400030@0006X00P5Y000000@00@010`000`400@0400030@0006`0 0P5W00000P020@<000<1004010000`40001^00030@0006@0000300030@00008000<100000`020MH0 000>00030@00078000<10000H00000h000<10000L`020F00000>00030@0007D000<10000G@0000h0 0P7F00003P000`40001i00030@0005T0000>00030@0007X000<10000F00000h00P5l0081F00000h0 00<10000O@000`40001E00003P000`40003E00003P000`40002100030@000540000>0081P`020E40 000>00030@0008@000<10000CP0000800P4400030@0000<000<10000e@0000@000H1000100440081 R@000`40001:000010001P4000400@@000<10000R@020DX0000200810`000`400@0400030@0008/0 0P5800000P000`40000200030@0100@000<10000e@0000800`4300030@0000<00P7F00003P000`40 002@00030@000480000>00030@0009400P5200003P020I@00P5000003P000`40003E00003P000`40 002G00030@0003/0000>00030@0009P00P4k00003P020I/00P4i00003P000`40003E00003P000`40 002O00030@0003<0000>0081X@000`40000b00003P000`40002Q00<1<@0000h000<10000e@000080 0P4400030@0000<000<10000e@00008000<100400P000`400@040081Y`000`40000/00000P030@80 00<1004010000`40002W0081;000008000<100000P000`400@0400030@000:T00P4Z00000P000`40 000200030@0100@000<10000e@0000<00P4300030@0000<00P6_00030@0002@0000>00030@000:l0 0P4T00003P000`40002a00818P0000h00P7F00003P000`40002e00030@0001d0000>00030@000;H0 0P4M00003P000`40002h00816`0000h00P7F00003P000`40003E00003P000`40002m00030@0001D0 000>0081_`020AD0000>00030@000<000P4C00000`000`40000200030@0000<000<10000e@0000<0 00L100000@0100@000<10000a@000`40000=00000`001`400001004010020LL00P4=000010001P40 00400@@000<10000b0000`40000:00000P000`400@0200030@0100@000<10000e@0000800`430003 0@0000<00P7=00030@0000H0000>00030@000=D0000>00030@000=D0000>00030@000=D00000\ \>"], ImageRangeCache->{{{81.1875, 310.562}, {238.5, 97.1875}} -> {-9.23185, \ 48.974, 0.0771421, 0.448965}}], Cell[OutputFormData["\<\ Graphics[{Dashing[{0.02, 0.02}], {Line[{{8.333333333333333*^-7, 0.0005476408950677147}, {0.8113398314583159, 4.461689414119601}, {1.6961759971874737, 8.186758427417352}, {2.5271873267707723, 11.467380889534814}, {3.326368155416562, 14.515107524560023}, {4.177051816458175, 17.682655556356504}, {4.99590497656228, 20.677183674160986}, {5.86626096906221, 23.814974587686564}, {6.70478646062463, 26.80273122207448}, {7.5114814512495425, 29.65002694823167}, {8.36967927427028, 32.654425917374596}, {9.19604659635351, 35.526634774668175}, {9.990583417499229, 38.27139240154902}, {10.836623071040773, 41.17799829788408}, {11.650832223644809, 43.96123204226105}, {12.51654420864467, 46.906942912414365}, {13.35042569270702, 49.73234156888634}, {14.152476675831863, 52.43973967233848}, {15.006030491352531, 55.310944525601464}, {15.82775380593569, 58.06603781275852}, {16.700979952914672, 60.98481452315763}, {17.542375598956145, 63.789043973335595}, {18.35194074406011, 66.48013772894663}, {19.2130087215599, 69.33532542617587}, {19.999999166666665, 71.93885340005399}}]}}, {PlotRange -> Automatic, AspectRatio -> GoldenRatio^(-1), DisplayFunction :> $DisplayFunction, ColorOutput -> Automatic, Axes -> Automatic, AxesOrigin -> Automatic, PlotLabel -> None, AxesLabel -> None, Ticks -> Automatic, GridLines -> None, Prolog -> {}, Epilog -> {}, AxesStyle -> Automatic, Background -> Automatic, DefaultColor -> Automatic, DefaultFont :> $DefaultFont, RotateLabel -> True, Frame -> False, FrameStyle -> Automatic, FrameTicks -> Automatic, FrameLabel -> None, PlotRegion -> Automatic, ImageSize -> Automatic, TextStyle :> $TextStyle, FormatType :> $FormatType}]\ \>", "\<\ -Graphics-\ \>"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Show[s1,s3,PlotRange->{{0,20},{0,70}}]", "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 %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0 0.05 0 0.00882906 [ [.125 -0.0125 -9 -9 ] [.125 -0.0125 9 0 ] [.25 -0.0125 -3 -9 ] [.25 -0.0125 3 0 ] [.375 -0.0125 -9 -9 ] [.375 -0.0125 9 0 ] [.5 -0.0125 -6 -9 ] [.5 -0.0125 6 0 ] [.625 -0.0125 -12 -9 ] [.625 -0.0125 12 0 ] [.75 -0.0125 -6 -9 ] [.75 -0.0125 6 0 ] [.875 -0.0125 -12 -9 ] [.875 -0.0125 12 0 ] [1 -0.0125 -6 -9 ] [1 -0.0125 6 0 ] [-0.0125 .08829 -12 -4.5 ] [-0.0125 .08829 0 4.5 ] [-0.0125 .17658 -12 -4.5 ] [-0.0125 .17658 0 4.5 ] [-0.0125 .26487 -12 -4.5 ] [-0.0125 .26487 0 4.5 ] [-0.0125 .35316 -12 -4.5 ] [-0.0125 .35316 0 4.5 ] [-0.0125 .44145 -12 -4.5 ] [-0.0125 .44145 0 4.5 ] [-0.0125 .52974 -12 -4.5 ] [-0.0125 .52974 0 4.5 ] [-0.0125 .61803 -12 -4.5 ] [-0.0125 .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 .125 0 m .125 .00625 L s [(2.5)] .125 -0.0125 0 1 Mshowa .25 0 m .25 .00625 L s [(5)] .25 -0.0125 0 1 Mshowa .375 0 m .375 .00625 L s [(7.5)] .375 -0.0125 0 1 Mshowa .5 0 m .5 .00625 L s [(10)] .5 -0.0125 0 1 Mshowa .625 0 m .625 .00625 L s [(12.5)] .625 -0.0125 0 1 Mshowa .75 0 m .75 .00625 L s [(15)] .75 -0.0125 0 1 Mshowa .875 0 m .875 .00625 L s [(17.5)] .875 -0.0125 0 1 Mshowa 1 0 m 1 .00625 L s [(20)] 1 -0.0125 0 1 Mshowa .125 Mabswid .025 0 m .025 .00375 L s .05 0 m .05 .00375 L s .075 0 m .075 .00375 L s .1 0 m .1 .00375 L s .15 0 m .15 .00375 L s .175 0 m .175 .00375 L s .2 0 m .2 .00375 L s .225 0 m .225 .00375 L s .275 0 m .275 .00375 L s .3 0 m .3 .00375 L s .325 0 m .325 .00375 L s .35 0 m .35 .00375 L s .4 0 m .4 .00375 L s .425 0 m .425 .00375 L s .45 0 m .45 .00375 L s .475 0 m .475 .00375 L s .525 0 m .525 .00375 L s .55 0 m .55 .00375 L s .575 0 m .575 .00375 L s .6 0 m .6 .00375 L s .65 0 m .65 .00375 L s .675 0 m .675 .00375 L s .7 0 m .7 .00375 L s .725 0 m .725 .00375 L s .775 0 m .775 .00375 L s .8 0 m .8 .00375 L s .825 0 m .825 .00375 L s .85 0 m .85 .00375 L s .9 0 m .9 .00375 L s .925 0 m .925 .00375 L s .95 0 m .95 .00375 L s .975 0 m .975 .00375 L s .25 Mabswid 0 0 m 1 0 L s 0 .08829 m .00625 .08829 L s [(10)] -0.0125 .08829 1 0 Mshowa 0 .17658 m .00625 .17658 L s [(20)] -0.0125 .17658 1 0 Mshowa 0 .26487 m .00625 .26487 L s [(30)] -0.0125 .26487 1 0 Mshowa 0 .35316 m .00625 .35316 L s [(40)] -0.0125 .35316 1 0 Mshowa 0 .44145 m .00625 .44145 L s [(50)] -0.0125 .44145 1 0 Mshowa 0 .52974 m .00625 .52974 L s [(60)] -0.0125 .52974 1 0 Mshowa 0 .61803 m .00625 .61803 L s [(70)] -0.0125 .61803 1 0 Mshowa .125 Mabswid 0 .01766 m .00375 .01766 L s 0 .03532 m .00375 .03532 L s 0 .05297 m .00375 .05297 L s 0 .07063 m .00375 .07063 L s 0 .10595 m .00375 .10595 L s 0 .12361 m .00375 .12361 L s 0 .14126 m .00375 .14126 L s 0 .15892 m .00375 .15892 L s 0 .19424 m .00375 .19424 L s 0 .2119 m .00375 .2119 L s 0 .22956 m .00375 .22956 L s 0 .24721 m .00375 .24721 L s 0 .28253 m .00375 .28253 L s 0 .30019 m .00375 .30019 L s 0 .31785 m .00375 .31785 L s 0 .3355 m .00375 .3355 L s 0 .37082 m .00375 .37082 L s 0 .38848 m .00375 .38848 L s 0 .40614 m .00375 .40614 L s 0 .42379 m .00375 .42379 L s 0 .45911 m .00375 .45911 L s 0 .47677 m .00375 .47677 L s 0 .49443 m .00375 .49443 L s 0 .51209 m .00375 .51209 L s 0 .5474 m .00375 .5474 L s 0 .56506 m .00375 .56506 L s 0 .58272 m .00375 .58272 L s 0 .60038 m .00375 .60038 L s .25 Mabswid 0 0 m 0 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath .5 Mabswid 0 0 m 0 0 L 0 0 L 0 0 L 0 0 L 0 0 L 0 0 L 0 0 L 0 0 L 0 0 L 0 0 L 0 0 L 0 0 L 0 1e-05 L 0 1e-05 L 0 1e-05 L 0 2e-05 L 0 3e-05 L 0 5e-05 L 0 7e-05 L 1e-05 .00011 L 1e-05 .00015 L 3e-05 .00029 L 7e-05 .00046 L .00013 .00071 L .00037 .0014 L .00083 .00237 L .0032 .00593 L .0094 .0129 L .02151 .02413 L .04177 .04067 L .07634 .06644 L .12652 .10145 L .19477 .14686 L .2943 .21065 L .42182 .29004 L .59842 .39745 L .81564 .5271 L s .81564 .5271 m .97027 .61803 L s [ .02 .02 ] 0 setdash 0 0 m .04057 .03939 L .08481 .07228 L .12636 .10125 L .16632 .12815 L .20885 .15612 L .2498 .18256 L .29331 .21026 L .33524 .23664 L .37557 .26178 L .41848 .28831 L .4598 .31367 L .49953 .3379 L .54183 .36356 L .58254 .38814 L .62583 .41414 L .66752 .43909 L .70762 .46299 L .7503 .48834 L .79139 .51267 L .83505 .53844 L .87712 .5632 L .9176 .58696 L .96065 .61217 L s .96065 .61217 m .9707 .61803 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{730.938, 451.75}, ImageMargins->{{29.8125, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgoooofZPfUZ8^KkEkcMCLOoooiCE ggfe_M7]lE5eNP000;S>_9b_Wn7ZhVEaI`000;fmjj2Pan?SmVMWP@0005el^4mYW;K4gbhnG?ooomkN g]7]lU5eNe5AniBDU492@[fm_G=cLb4Q8F=SHo3Ud7IYC[ZUNc_j=:f][O[jdP3ooooo0?l0o`3o0000 okno_n?SmfQXPL30`;K4gbhnG4mYWJ6Qb>_HaFmG@;:ceMK9T0I_l00?ooc>CTi6YZJX00 03SXh^;RiT00000<`00IP00V@00c00c000c<`0cIP0cV@0cc00c o`1V001V<`1VIP1VV@1Vc01Vo`2I002I<`2IIP2IV@2Ic03<003<<`3I03>I IIS>IVC>Ic3>Ioc?<03?<0030@800`4300040@000081>@030@800P4i00<1 0`000`40000200040@000081>@030@<000<100001@0005<000<100002@000`40000m00030@0003`0 00<1000020000`40000j00070@0000400@0j00050@0000402`000`40000g00030@0000<000<10000 =`000`40000200030@0000P000<10000=P000`40000200030@0100H0001D00030@0000P000<10000 ?@000`40000l00030@0000P000<10000>P001`4000010040>P000`40000200030@0000P000<10000 =`000`40000300030@0003L000<100000P000`40000800030@0003L000L100000@0100H0001E0003 0@0000D00P4n0081@0000`4000050081?@001`4000010040>P000`40000300030@0000D00P4j0004 0@000081>P000`40000300030@0000D00P4k00060@000@011P0005<000<100401`000`40000m0003 0@0003d000<100401`000`40000k00810`000`400@0i00810`000`400@0700030@0003P00P430003 0@0003P00P4300030@0100L000<10000>0000`400@0200030@0100H0001D00030@0000H00`4m00<1 ?@030@L00`4l00030@00008000<10000>@000`40000200030@0000H00`4i00040@0000<1>@001040 00030@L00`4i00030@00008000<100001@000?l0o`1:0000o`3o04X0003o0?l0BP000?l0o`1:0000 o`3o04X0003o0?l0BP000?l0o`1:0000503o0Ol1;@49000050020@`000<100002`000`40000;0003 0@0000X000<100002`000`40000;00030@0000/000<100002`000`40000;00030@0000/000<10000 2P000`40000;00030@0000/000<100002`000`40000;00030@0000/000<100002`000`40000;0003 0@0000X000<100002`000`40000;00030@0000/000<100002`000`40000;00030@0000/000<10000 2P000`40000;00030@0000/000<100002`000`40000;00030@0000/000<100002`000`40000:0003 0@0000/000<100002`000`40000;00030@0000/000<100002`000`40000;00030@0000X000<10000 1`0001@000<100402`000`40000;00030@0000/000<100002P000`40000;00030@0000/000<10000 2`000`40000;00030@0000/000<100002`000`40000:00030@0000/000<100002`000`40000;0003 0@0000/000<100002`000`40000;00030@0000/000<100002P000`40000;00030@0000/000<10000 2`000`40000;00030@0000/000<100002`000`40000:00030@0000/000<100002`000`40000;0003 0@0000/000<100002`000`40000;00030@0000X000<100002`000`40000;00030@0000/000<10000 2`000`40000;00030@0000/000<100002P000`400007000050020@030040040000<10000@`000`40 001200030@00048000<10000@`000`40001200030@00048000<10000@P000`400007000050001@40 0@01040000<10000@`000`40001200030@00048000<10000@`000`40001200030@00048000<10000 @P000`400007000050001P4000400Ol0o`0`000050001`4000010040o`3o02l0000D00030@000080 00<10040o`3o02h0000D00030@0000<000<10040o`3o02d0000D00030@0000@000<10000o`3o02`0 000D00<11@000`40003o0?l0:`0001@000<100001P000`40003o0?l0:P0001@000<100001`000`40 003o0?l0:@0001@000<1000020000`40003o0?l0:00001@000<100002@000`40003o0?l09`0001@0 00<100002P000`40003o0?l09P0001@000<100002`030Ol0o`0U000050000`40000=0081o`3o02@0 000D00030@0000h00P7o0?l08`0001@000<100003`030Ol0o`0Q000050030A0000<10040o`3o0200 000D00030@0001400`7o0?l07`0001@000<100004`020Ol0o`0N000050000`40000D0081o`3o01d0 000D00030@0001D00P7o0?l0700001@000<100005`000`40003o0?l06@0001@000<1000060000`40 003o0?l0600001@000<100006@020Ol0o`0H000050000`40000K00030@000?l0o`0E000050000`40 000L00030@000?l0o`0D000050030Ad00P7o0?l0500001@000<100007`000`40003o0?l04@0001@0 00<1000080020Ol0o`0A000050000`40000Q0081o`3o0100000D00030@0002<000<10000o`3o00d0 000D00030@0002@00P7o0?l03@0001@000<100009@020Ol0o`0<000050000`40000W00030@000?l0 o`09000050000`40000X0081o`3o00T0000D00<1:P000`40003o0?l01P0001@000<10000:`020Ol0 o`06000050000`40000]00030@000?l0o`03000050000`40000^0081o`3o00<0000D00030@000300 00<10000o`3o000050000`40000a0081o`3o000050000`40000c00030@000?l0o00001@000<10000 =0020Ol0o00001@000<10000=@020Ol0n`0000@00`4300030@0000L000<10000=`020Ol0n@0000D0 00L100000@0100P01@4f0081o`3h00001@001`400001004020000`40000j00030@000?l0m@0000D0 00L100000@0100P000<10000>`020Ol0m@0000@00P4300030@0100P000<10000?@000`40003o0?80 000500030@00008000<100001`000`40000n0081o`3b000050000`40001000030@000?l0k`0001@0 00<10000@@020Ol0k`0001@000<10000@P020Ol0kP0001@000<10000A0020Ol0k00001@000<10000 A@020Ol0j`0001@00`570081o`3Y000050000`4000180081o`3X000050000`40001900<1o`3V0000 50000`40001;0081o`3U000050000`40001=00030@000?l0hP0001@000<10000CP020Ol0hP0001@0 00<10000D0000`40003o0=l0000D00030@0005400P7o0=l0000D00030@0005<000<10000o`3L0000 50000`40001D0081o`3L000050030ED00P7o0=/0000D00030@0005L00P7o0=T0000D00030@0005T0 00<10000o`3F000050000`40001J0081o`3F000050000`40001L0081o`3D000050000`40001M0081 o`3C000050000`40001O00030@000?l0d00001@000<10000H0000`40003o00081o`2R000050000`40002@0081o`2P000050030I8000<10000o`2M0000 50000`40002C0081o`2M000050000`40002E00030@000?l0VP0001@000<10000UP020Ol0VP0001@0 00<10000V0000`40003o09L0000D00030@0009T00P7o09L0000D00030@0009/00P7o09D0000D0003 0@0009d000<10000o`2B000050000`40002N0081o`2B000050000`40002P00030@000?l0S`0001@0 0`6Q0081o`2?000050000`40002S0081o`2=000050000`40002T0081o`2<000050000`40002V0081 o`2:000050000`40002X00030@000?l0Q`0001@000<10000Z@020Ol0Q`0001@000<10000Z`020Ol0 Q@0001@000<10000[@000`40003o0880000D00030@000:h00P7o0880000D00030@000;0000<10000 o`1o000050030K400P7o07l0000D00030@000;<00P7o07d0000D00030@000;D00P7o07/0000D0003 0@000;H00P7o07X0000D00030@000;P00P7o07P0000D00030@000;T00P7o07L0000D00030@000;/0 0P7o07D0000D00030@000;d000<10000o`1b000050000`40002n0081o`1b000050030L000P7o0700 000D00030@000<8000<10000o`1]000050000`4000330081o`1]000050000`4000340081o`1/0000 50000`40003500<1o`1Z000050000`40003700<1o`1X000050000`4000390081o`1W000050000`40 003;0081o`1U000050000`40003=00030@000?l0HP0000D000<100000P000`40000700030@000P00P7o04P0000D00030@000>X00P7o04H0000D00030@000>/00P7o04D0000D00030@000>d0 0P7o04<0000D00030@000>l000<10000o`10000050030O000P7o0400000D00030@000?800P7o03h0 000D00030@000?@000<10000o`0k000050000`40003e0081o`0k000050000`40003g0081o`0i0000 50000`40003i00030@000?l0=P0001@000<10000nP020Ol0=P0001@000<10000o0020Ol0=00001@0 00<10000o@020Ol0<`0001@00`7n00<1o`0a000050000`40003o00400P7o0300000D00030@000?l0 0P030Ol0;P0001@000<10000o`0400<1o`0/000050000`40003o00D00`7o02/0000D00030@000?l0 1`030Ol0:@0001@000<10000o`0:0081o`0W000050000`40003o00`000<10000o`0T000050000`40 003o00d00P7o02@0000D00030@000?l03`020Ol08P0001@00`7o014000<10000o`0O000050000`40 003o01800P7o01l0000D00030@000?l04`020Ol07P0001@000<10000o`0D00<1o`0L000050000`40 003o01H00`7o01X0000D00030@000?l060020Ol06@0001@000<10000o`0J0081o`0G000050000`40 003o01`00P7o01D0000D00030@000?l07P000`40003o0180000500030@00008000<100001`000`40 003o01l00P7o0180000500070@0000400@0800D1o`0O00030@000?l03`0000<0104200030@0100P0 00<10000o`0R0081o`0?00000`000`400@0300030@0100P000<10000o`0T0081o`0=000010020@<0 00<1004020000`40003o02D00P7o00`0000500030@00008000<100001`000`40003o02L00P7o00X0 000D00030@000?l0:0030Ol0200001@000<10000o`0Z0081o`07000050000`40003o02/00`7o00D0 000D00030@000?l0;@030Ol00`0001@000<10000o`0`00030@000?l0000D00<1o`0a0081o`0001@0 00<10000o`0c00030@000?`0000D00030@000?l0=0020O`0000D00030@000?l0=P020OX0000D0003 0@000?l0>0020OP0000D00030@000?l0>@020OL0000D00030@000?l0>`020OD0000D00030@000?l0 ?@000`40003b000050000`40003o03h00P7b000050000`40003o04000P7`000050030Ol0@P000`40 003]000050000`40003o04<00P7]000050000`40003o04D000<10000jP0001@000<10000o`160081 jP0001@000<10000o`180081j00001@000<10000o`1:00030@000>D0000D00030@000?l0B`020ND0 000D00030@000?l0C@020N<0000D00030@000?l0CP020N80000D00<1o`1@0081h00001@000<10000 o`1A00<1gP0001@000<10000o`1C0081g@0001@000<10000o`1E0081f`0001@000<10000o`1G0081 f@0001@000<10000o`1I0081e`0001@000<10000o`1K00030@000=@0000D00030@000?l0G0020M@0 000D00030@000?l0GP020M80000D00030@000?l0H0000`40003?000050030Ol0H@020Ll0000D0003 0@000?l0H`020Ld0000D00030@000?l0I0020L`0000D00030@000?l0IP020LX0000D00030@000?l0 J0020LP0000D00030@000?l0JP000`400035000050000`40003o06/00P75000050000`40003o06d0 0P73000010020@@000<100001`000`40003o06l00P7100001P001P4000400@P000<10000o`1`0081 `00000H000H10001004800D1o`1_00<1_P0000@00P4300030@0100P000<10000o`1c00<1_00000@0 00<100000P000`400@0800030@000?l0M@020K/0000400<10`000`40000700030@000?l0M`020KT0 000D00030@000?l0N@020KL0000D00030@000?l0N`000`40002d000050000`40003o07`00P6d0000 50000`40003o07h00P6b000050000`40003o080000<10000[`0001@000<10000o`210081[`0001@0 0`7o08<00P6]000050000`40003o08@00P6/000050000`40003o08H00P6Z000050000`40003o08L0 0`6X000050000`40003o08T00`6V000050000`40003o08X00`6U000050000`40003o08`00`6S0000 50000`40003o08l00P6Q000050000`40003o094000<10000WP0001@000<10000o`2B0081WP0001@0 0`7o09@00P6L000050000`40003o09H000<10000V@0001@000<10000o`2G0081V@0001@000<10000 o`2I0081U`0001@000<10000o`2J0081UP0001@000<10000o`2L0081U00001@000<10000o`2N0081 TP0001@000<10000o`2O00<1T00001@000<10000o`2R00030@0008d0000D00<1o`2S0081S@0001@0 00<10000o`2U0081R`0001@000<10000o`2W00030@0008P0000D00030@000?l0Z0020HP0000D0003 0@000?l0Z@030HH0000D00030@000?l0ZP030HD0000D00030@000?l0[0030H<0000D00030@000?l0 [P030H40000D00030@000?l0/0020H00000D00030@000?l0/P020Gh0000D00<1o`2d0081O00001@0 00<10000o`2f0081NP0001@000<10000o`2h00030@0007L0000D00030@000?l0^@020GL0000D0003 0@000?l0^`020GD0000D00030@000?l0_0020G@0000D00030@000?l0_@030G80000D00030@000?l0 _`030G000004008110000`40000700030@000?l0`@020Fl0000400030@01008000<1004020000`40 003o0<800`5]000010030@8000<1004020050Ol0`P030F/0000400030@00008000<1004020000`40 003o0<00P5=000050000`40 003o0>D00P5;000050030Ol0i`000`400018000050000`40003o0>P00P58000050000`40003o0>X0 0P56000050000`40003o0>`000<10000@`0001@000<10000o`3]0081@`0001@000<10000o`3_0081 @@0001@000<10000o`3a0081?`0001@000<10000o`3c00030@0003`0000D00030@000?l0m0020C`0 000D00<1o`3f0081>P0001@000<10000o`3g0081>@0001@000<10000o`3i0081=`0001@000<10000 o`3k0081=@0001@000<10000o`3l0081=00001@000<10000o`3n0081"], ImageRangeCache->{{{81, 664.75}, {650.25, 289.875}} -> {-3.66284, 56.3326, \ 0.0288596, 0.163435}}], Cell[OutputFormData["\<\ Graphics[ {{{Line[{{2.6469779601696886*^-23, 9.032812289079062*^-21}, {1.7914367905769168*^-12, 2.351318074876813*^-7}, {4.551185296686189*^-11, 1.6379013546910515*^-6}, {4.07004865574101*^-10, 6.098405555517508*^-6}, {1.728213039689508*^-9, 0.000014523566571289243}, {4.909960157201132*^-9, 0.000027178819164310267}, {1.0949630755915929*^-8, 0.00004398451409615839}, {2.3262509838556378*^-8, 0.00006914357833964335}, {4.644342977908056*^-8, 0.00010472061391247293}, {8.541697453859354*^-8, 0.00015098743907238522}, {1.5283122269116323*^-7, 0.00021414459165329264}, {3.779457599210889*^-7, 0.00036896516970855685}, {6.113195099369251*^-7, 0.0004926418465099492}, {9.28328280323798*^-7, 0.0006333494571629395}, {1.8707169617548924*^-6, 0.0009655101938477149}, {3.3906357062643555*^-6, 0.001381344168695075}, {5.961375222948706*^-6, 0.0019410441520667891}, {0.000014335584030397697, 0.0032969972463892314}, {0.000034365076349948676, 0.005597217156214224}, {0.00006768096073414553, 0.008447294602655003}, {0.0001300426549352418, 0.012576557008519802}, {0.00022147581338953504, 0.017420107436197818}, {0.00061599766594643, 0.03271647261351494}, {0.0013051272541766967, 0.05221292854354737}, {0.0025824836226896186, 0.08023831457593657}, {0.007443343415264203, 0.1581455453909621}, {0.016686687205724055, 0.26879848574394577}, {0.06390003191212071, 0.6720842254728214}, {0.18799805104401865, 1.4615151523956356}, {0.4302448241467737, 2.732545628882219}, {0.8354156643244484, 4.605987641044452}, {1.5268591941757257, 7.525463885989451}, {2.5304261188885366, 11.490800204813922}, {3.895499165343298, 16.633358168372517}, {5.885900191467182, 23.858653428076735}, {8.436385130549223, 32.851116982362136}, {11.968346250989814, 45.01651373651674}, {16.312868366220147, 59.70080977472061}, {21.50681718424044, 76.99830566064261}, {28.293752157705033, 99.32252147653202}, {36.223760087134536, 125.13586549849201}, {46.354699719731705, 157.82192031738364}, {57.98222430973827, 195.05275985204855}, {71.09964707886245, 236.79249405778245}, {87.3595965546948, 288.24973695666336}, {105.49647028252652, 345.3724750254398}, {125.45370501602636, 407.97563436403925}, {149.66788220566292, 483.6594880035526}, {150.6508370538118, 486.7264969371577}}]}}, {Dashing[{0.02, 0.02}], {Line[{{8.333333333333333*^-7, 0.0005476408950677147}, {0.8113398314583159, 4.461689414119601}, {1.6961759971874737, 8.186758427417352}, {2.5271873267707723, 11.467380889534814}, {3.326368155416562, 14.515107524560023}, {4.177051816458175, 17.682655556356504}, {4.99590497656228, 20.677183674160986}, {5.86626096906221, 23.814974587686564}, {6.70478646062463, 26.80273122207448}, {7.5114814512495425, 29.65002694823167}, {8.36967927427028, 32.654425917374596}, {9.19604659635351, 35.526634774668175}, {9.990583417499229, 38.27139240154902}, {10.836623071040773, 41.17799829788408}, {11.650832223644809, 43.96123204226105}, {12.51654420864467, 46.906942912414365}, {13.35042569270702, 49.73234156888634}, {14.152476675831863, 52.43973967233848}, {15.006030491352531, 55.310944525601464}, {15.82775380593569, 58.06603781275852}, {16.700979952914672, 60.98481452315763}, {17.542375598956145, 63.789043973335595}, {18.35194074406011, 66.48013772894663}, {19.2130087215599, 69.33532542617587}, {19.999999166666665, 71.93885340005399}}]}}}, {PlotRange -> {{0, 20}, {0, 70}}, PlotRange -> {{0, 150}, {0, 500}}, AspectRatio -> GoldenRatio^(-1), DisplayFunction :> $DisplayFunction, ColorOutput -> Automatic, Axes -> Automatic, AxesOrigin -> Automatic, PlotLabel -> None, AxesLabel -> None, Ticks -> Automatic, GridLines -> None, Prolog -> {}, Epilog -> {}, AxesStyle -> Automatic, Background -> Automatic, DefaultColor -> Automatic, DefaultFont :> $DefaultFont, RotateLabel -> True, Frame -> False, FrameStyle -> Automatic, FrameTicks -> Automatic, FrameLabel -> None, PlotRegion -> Automatic, ImageSize -> Automatic, TextStyle :> $TextStyle, FormatType :> $FormatType}]\ \>", "\<\ -Graphics-\ \>"], "Output"] }, Open ]], Cell["fiteps[p_] := 2.4216*p^(3/5) + 2.8663*p", "Input"], Cell[CellGroupData[{ Cell["epsbar[1.5] - fiteps[pbar[1.5]]", "Input"], Cell[OutputFormData["\<\ 0.03607820658749894\ \>", "\<\ 0.0360782\ \>"], \ "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Do[Print[epsbar[x] - fiteps[pbar[x]]],{x,0.2,3.0,0.2}]", "Input"], Cell["\<\ 0.00060058 0.00429228 0.0120946 0.0224998 0.0324576 0.0387049 0.0387706 0.0315513 0.0175847 -0.000850185 -0.0197175 -0.0332473 -0.0339733 -0.0127722 0.041097\ \>", "Print"] }, Open ]] }, FrontEndVersion->"4.0 for X", ScreenRectangle->{{0, 1280}, {0, 1024}}, WindowSize->{1063, 600}, WindowMargins->{{Automatic, 66}, {0, Automatic}}, PrintingPageRange->{Automatic, Automatic}, PrintingOptions->{"PaperSize"->{612, 792}, "PaperOrientation"->"Portrait", "PostScriptOutputFile":>FrontEnd`FileName[{$RootDirectory, "home", "silbar", \ "Reddy"}, "FermiEoS.nb.ps", CharacterEncoding -> "ISO8859-1"], "Magnification"->1} ] (*********************************************************************** 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[CellGroupData[{ Cell[1739, 51, 23, 0, 35, "Input"], Cell[1765, 53, 106, 5, 34, "Output"] }, Open ]], Cell[1886, 61, 316, 9, 197, "Text"], Cell[CellGroupData[{ Cell[2227, 74, 205, 5, 83, "Input"], Cell[2435, 81, 190, 7, 44, "Output"], Cell[2628, 90, 98, 5, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2763, 100, 66, 0, 35, "Input"], Cell[2832, 102, 222, 9, 65, "Output"] }, Open ]], Cell[3069, 114, 110, 4, 67, "Input"], Cell[CellGroupData[{ Cell[3204, 122, 28, 0, 35, "Input"], Cell[3235, 124, 78, 4, 34, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3350, 133, 62, 0, 35, "Input"], Cell[3415, 135, 221, 9, 65, "Output"] }, Open ]], Cell[3651, 147, 117, 3, 51, "Input"], Cell[CellGroupData[{ Cell[3793, 154, 26, 0, 35, "Input"], Cell[3822, 156, 82, 5, 34, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3941, 166, 133, 3, 51, "Input"], Cell[4077, 171, 1074, 26, 380, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[5188, 202, 63, 0, 35, "Input"], Cell[5254, 204, 13308, 506, 148, 6956, 423, "GraphicsData", "PostScript", \ "Graphics"], Cell[18565, 712, 3835, 122, 34, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[22437, 839, 40, 0, 35, "Input"], Cell[22480, 841, 113, 5, 34, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[22630, 851, 108, 4, 35, "Input"], Cell[22741, 857, 10083, 383, 148, 3734, 300, "GraphicsData", "PostScript", \ "Graphics"], Cell[32827, 1242, 3580, 121, 34, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[36444, 1368, 99, 4, 35, "Input"], Cell[36546, 1374, 10104, 351, 148, 3806, 269, "GraphicsData", "PostScript", \ "Graphics"], Cell[46653, 1727, 2071, 71, 34, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[48761, 1803, 28, 0, 35, "Input"], Cell[48792, 1805, 11136, 418, 148, 4135, 327, "GraphicsData", "PostScript", \ "Graphics"], Cell[59931, 2225, 5087, 170, 34, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[65055, 2400, 62, 0, 35, "Input"], Cell[65120, 2402, 1128, 47, 242, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[66285, 2454, 45, 0, 35, "Input"], Cell[66333, 2456, 140, 6, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[66510, 2467, 71, 0, 35, "Input"], Cell[66584, 2469, 9321, 349, 148, 3889, 278, "GraphicsData", "PostScript", \ "Graphics"], Cell[75908, 2820, 2094, 73, 34, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[78039, 2898, 55, 0, 35, "Input"], Cell[78097, 2900, 17719, 556, 367, 4697, 391, "GraphicsData", "PostScript", \ "Graphics"], Cell[95819, 3458, 5148, 173, 34, "Output"] }, Open ]], Cell[100982, 3634, 56, 0, 35, "Input"], Cell[CellGroupData[{ Cell[101063, 3638, 48, 0, 35, "Input"], Cell[101114, 3640, 84, 5, 34, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[101235, 3650, 71, 0, 35, "Input"], Cell[101309, 3652, 182, 16, 234, "Print"] }, Open ]] } ] *) (*********************************************************************** End of Mathematica Notebook file. ***********************************************************************)