(************** Content-type: application/mathematica ************** CreatedBy='Mathematica 5.0' 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[ 122168, 3352]*) (*NotebookOutlinePosition[ 122815, 3374]*) (* CellTagsIndexPosition[ 122771, 3370]*) (*WindowFrame->Normal*) Notebook[{ Cell["\<\ I'd like to compare the \"actual\" results of the Gessel-Viennot algorithm in \ the long-term to the prediction from \"Phase Diagram of a Random Tiling \ Quasicrystal\".\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(A\ = \ Plot[d\ Log[2]\ - \ \(\[Pi]\^2\/24\) d\^3, \ {d, \ 0, \ 1}]\)], "Input"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61803 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.0238095 0.952381 0.0147151 1.69934 [ [.21429 .00222 -9 -9 ] [.21429 .00222 9 0 ] [.40476 .00222 -9 -9 ] [.40476 .00222 9 0 ] [.59524 .00222 -9 -9 ] [.59524 .00222 9 0 ] [.78571 .00222 -9 -9 ] [.78571 .00222 9 0 ] [.97619 .00222 -3 -9 ] [.97619 .00222 3 0 ] [.01131 .09968 -24 -4.5 ] [.01131 .09968 0 4.5 ] [.01131 .18465 -18 -4.5 ] [.01131 .18465 0 4.5 ] [.01131 .26962 -24 -4.5 ] [.01131 .26962 0 4.5 ] [.01131 .35458 -18 -4.5 ] [.01131 .35458 0 4.5 ] [.01131 .43955 -24 -4.5 ] [.01131 .43955 0 4.5 ] [.01131 .52452 -18 -4.5 ] [.01131 .52452 0 4.5 ] [.01131 .60949 -24 -4.5 ] [.01131 .60949 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 .21429 .01472 m .21429 .02097 L s [(0.2)] .21429 .00222 0 1 Mshowa .40476 .01472 m .40476 .02097 L s [(0.4)] .40476 .00222 0 1 Mshowa .59524 .01472 m .59524 .02097 L s [(0.6)] .59524 .00222 0 1 Mshowa .78571 .01472 m .78571 .02097 L s [(0.8)] .78571 .00222 0 1 Mshowa .97619 .01472 m .97619 .02097 L s [(1)] .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 .2619 .01472 m .2619 .01847 L s .30952 .01472 m .30952 .01847 L s .35714 .01472 m .35714 .01847 L s .45238 .01472 m .45238 .01847 L s .5 .01472 m .5 .01847 L s .54762 .01472 m .54762 .01847 L s .64286 .01472 m .64286 .01847 L s .69048 .01472 m .69048 .01847 L s .7381 .01472 m .7381 .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 .09968 m .03006 .09968 L s [(0.05)] .01131 .09968 1 0 Mshowa .02381 .18465 m .03006 .18465 L s [(0.1)] .01131 .18465 1 0 Mshowa .02381 .26962 m .03006 .26962 L s [(0.15)] .01131 .26962 1 0 Mshowa .02381 .35458 m .03006 .35458 L s [(0.2)] .01131 .35458 1 0 Mshowa .02381 .43955 m .03006 .43955 L s [(0.25)] .01131 .43955 1 0 Mshowa .02381 .52452 m .03006 .52452 L s [(0.3)] .01131 .52452 1 0 Mshowa .02381 .60949 m .03006 .60949 L s [(0.35)] .01131 .60949 1 0 Mshowa .125 Mabswid .02381 .03171 m .02756 .03171 L s .02381 .0487 m .02756 .0487 L s .02381 .0657 m .02756 .0657 L s .02381 .08269 m .02756 .08269 L s .02381 .11668 m .02756 .11668 L s .02381 .13367 m .02756 .13367 L s .02381 .15066 m .02756 .15066 L s .02381 .16766 m .02756 .16766 L s .02381 .20164 m .02756 .20164 L s .02381 .21864 m .02756 .21864 L s .02381 .23563 m .02756 .23563 L s .02381 .25262 m .02756 .25262 L s .02381 .28661 m .02756 .28661 L s .02381 .3036 m .02756 .3036 L s .02381 .3206 m .02756 .3206 L s .02381 .33759 m .02756 .33759 L s .02381 .37158 m .02756 .37158 L s .02381 .38857 m .02756 .38857 L s .02381 .40556 m .02756 .40556 L s .02381 .42256 m .02756 .42256 L s .02381 .45654 m .02756 .45654 L s .02381 .47354 m .02756 .47354 L s .02381 .49053 m .02756 .49053 L s .02381 .50752 m .02756 .50752 L s .02381 .54151 m .02756 .54151 L s .02381 .5585 m .02756 .5585 L s .02381 .5755 m .02756 .5755 L s .02381 .59249 m .02756 .59249 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 .06244 .06245 L .10458 .11418 L .14415 .16214 L .18221 .20741 L .22272 .25436 L .26171 .29806 L .30316 .34257 L .34309 .38326 L .3815 .42008 L .42237 .45643 L .46172 .48838 L .49955 .516 L .53984 .54177 L .57861 .56274 L .61984 .58058 L .64043 .58768 L .65954 .59313 L .67803 .59733 L .69774 .60061 L .70802 .60182 L .71382 .60234 L .71915 .60273 L .72382 .60299 L .72648 .6031 L .72896 .60319 L .7303 .60323 L .73157 .60325 L .73273 .60328 L .73396 .6033 L .73459 .6033 L .73529 .60331 L .73653 .60332 L .73722 .60332 L .73797 .60332 L .73867 .60332 L .73932 .60331 L .7406 .6033 L .7418 .60329 L .74289 .60327 L .74406 .60325 L .74669 .60318 L .74912 .60309 L .75355 .60288 L .75824 .60258 L .7681 .60169 L .77894 .60031 L .78911 .59863 L .79839 .59675 L .81928 .59134 L Mistroke .83831 .58495 L .85904 .57635 L .89974 .55437 L .93892 .52656 L .97619 .49378 L Mfstroke % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgKeT00`00KeU_F@3aKeT00005KeT006mIKeT0 0008KeT01000KeU_F@001FmI00<006mIKeT00VmI0P0046mI00<006mIKeT0l6mI00001FmI001_FFmI 000026mI00@006mIKeT000=_F@8000E_F@03001_FFmI00m_F@03001_FFmI0?1_F@0000E_F@00KeU_ F@0000Q_F@04001_FFmI0003KeT00`00KeU_F@04KeT00`00KeU_F@0@KeT00`00KeU_F@3_KeT0009_ F@8000Y_F@8000A_F@<000A_F@03001_FFmI015_F@03001_FFmI0>i_F@006fmI00<006mIKeT04VmI 00<006mIKeT0kFmI000KKeT2000DKeT00`00KeU_F@3/KeT001]_F@03001_FFmI01A_F@03001_FFmI 0>]_F@006fmI00<006mIKeT05FmI00<006mIKeT0jVmI000KKeT00`00KeU_F@0EKeT00`00KeU_F@3Z KeT001]_F@8001M_F@03001_FFmI0>U_F@006fmI00<006mIKeT05fmI00<006mIKeT0j6mI000KKeT0 0`00KeU_F@0HKeT00`00KeU_F@3WKeT001]_F@03001_FFmI01U_F@03001_FFmI0>I_F@006fmI00<0 06mIKeT06VmI00<006mIKeT0iFmI000KKeT2000KKeT00`00KeU_F@3UKeT001]_F@03001_FFmI01]_ F@03001_FFmI0>A_F@006fmI00<006mIKeT076mI00<006mIKeT0hfmI000KKeT00`00KeU_F@0MKeT0 0`00KeU_F@3RKeT001]_F@03001_FFmI01i_F@03001_FFmI0>5_F@006fmI0P0086mI00<006mIKeT0 h6mI000KKeT00`00KeU_F@0OKeT00`00KeU_F@3PKeT000Q_F@8000A_F@8000=_F@D000=_F@03001_ FFmI021_F@03001_FFmI0=m_F@001fmI00@006mIKeT000Y_F@03001_FFmI00=_F@03001_FFmI025_ F@03001_FFmI0=i_F@001fmI00@006mIKeT000Y_F@03001_FFmI00=_F@8002=_F@03001_FFmI0=e_ F@001fmI00@006mIKeT000Y_F@03001_FFmI00=_F@03001_FFmI02=_F@03001_FFmI0=a_F@001fmI 00@006mIKeT000Y_F@03001_FFmI00=_F@03001_FFmI02A_F@03001_FFmI0=]_F@0026mI0P002VmI 0P001FmI00<006mIKeT096mI00<006mIKeT0ffmI000KKeT00`00KeU_F@0UKeT00`00KeU_F@3JKeT0 01]_F@8002M_F@03001_FFmI0=U_F@006fmI00<006mIKeT09fmI00<006mIKeT0f6mI000KKeT00`00 KeU_F@0XKeT00`00KeU_F@3GKeT001]_F@03001_FFmI02U_F@03001_FFmI0=I_F@006fmI0P00:fmI 00<006mIKeT0eFmI000KKeT00`00KeU_F@0ZKeT00`00KeU_F@3EKeT001]_F@03001_FFmI02]_F@03 001_FFmI0=A_F@006fmI00<006mIKeT0;6mI00<006mIKeT0dfmI000KKeT00`00KeU_F@0]KeT00`00 KeU_F@3BKeT001]_F@8002m_F@03001_FFmI0=5_F@006fmI00<006mIKeT0;fmI00<006mIKeT0d6mI 000KKeT00`00KeU_F@0_KeT00`00KeU_F@3@KeT001]_F@03001_FFmI031_F@03001_FFmI06mI00<006mIKeT0afmI000KKeT2000jKeT00`00KeU_F@36KeT001]_F@03001_FFmI03Y_F@03001_ FFmI0fmI00<006mIKeT0a6mI000KKeT00`00KeU_F@0lKeT00`00KeU_ F@33KeT001]_F@03001_FFmI03e_F@03001_FFmI0<9_F@006fmI0P00?fmI00<006mIKeT0`FmI000K KeT00`00KeU_F@0oKeT00`00KeU_F@30KeT001]_F@03001_FFmI041_F@03001_FFmI0;m_F@006fmI 00<006mIKeT0@FmI00<006mIKeT0_VmI000KKeT20012KeT00`00KeU_F@2nKeT001]_F@03001_FFmI 049_F@03001_FFmI0;e_F@006fmI00<006mIKeT0@fmI00<006mIKeT0_6mI000KKeT00`00KeU_F@14 KeT00`00KeU_F@2kKeT001]_F@03001_FFmI04E_F@03001_FFmI0;Y_F@006fmI0P00AfmI00<006mI KeT0^FmI000KKeT00`00KeU_F@17KeT00`00KeU_F@2hKeT000Q_F@8000A_F@8000=_F@@000A_F@03 001_FFmI04Q_F@03001_FFmI0;M_F@001fmI00@006mIKeT000Q_F@03001_FFmI00E_F@03001_FFmI 04U_F@03001_FFmI0;I_F@001fmI00@006mIKeT000U_F@03001_FFmI00A_F@8004]_F@03001_FFmI 0;E_F@001fmI00@006mIKeT000Y_F@03001_FFmI00=_F@03001_FFmI04]_F@03001_FFmI0;A_F@00 1fmI00@006mIKeT000Q_F@04001_FFmI0004KeT00`00KeU_F@1KeT2 000PKeT001]_F@03001_FFmI099_F@<004U_F@80029_F@006fmI00<006mIKeT0UFmI0P00AFmI0P00 96mI000KKeT2002HKeT30011KeT00`00KeU_F@0TKeT001]_F@03001_FFmI09Y_F@<003a_F@8002M_ F@006fmI00<006mIKeT0WFmI0`00=fmI0P00:FmI000KKeT00`00KeU_F@2PKeT3000`KeT4000[KeT0 01]_F@03001_FFmI0:=_F@8002Y_F@@002m_F@006fmI0P00YVmI100096mI0P00"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-0.107864, -0.0293646, \ 0.00394728, 0.00221222}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]], Cell[BoxData[{ \(\(GetStartPoint[index_, \ coord_, \ d_]\ := \ If[coord\ \[Equal] \ 1, \ d\ \((index\ - \ 1)\), \ \(-\ d\)\ \((index\ - \ 1)\)];\)\), "\[IndentingNewLine]", \(\(GetEndPoint[index_, \ coord_, length_, \ d_, \ slope_]\ := \ GetStartPoint[index, \ coord, \ d]\ + \ If[coord \[Equal] 1, \ length\ slope, \ length\ \((1\ - \ slope)\)];\)\), "\[IndentingNewLine]", \(\(PathCount[i_, \ j_, \ length_, \ d_, \ slope_]\ := Binomial[ GetEndPoint[j, \ 1, length, \ d, \ slope] - GetStartPoint[i, \ 1, d] + GetEndPoint[j, 2, length, d, slope] - GetStartPoint[i, \ 2, d]\ , GetEndPoint[j, \ 1, length, d, slope] - GetStartPoint[i, \ 1, d]\ ];\)\), "\[IndentingNewLine]", \(\(AllConfigs[count_, length_, \ d_, \ slope_]\ := \ Table[\ PathCount[i, \ j, \ length, \ d, \ slope], \ {i, \ 1, \ count}, \ {j, \ 1, \ count}];\)\), "\[IndentingNewLine]", \(\(Actual[alpha_, \ N_, \ d_] := \(1\/N\^2\) Log[\ Det[\ \((AllConfigs[d\ N, \ N, 1\/d, \ alpha\ ]\ )\)]];\)\), "\[IndentingNewLine]", \(\(Approximate[alpha_, \ N_, \ d_]\ := \ \(1\/N\^2\) Log[\[Product]\+\(p = 1\)\%\(Floor[d\ N]\)\((\[Sum]\+\(i = \ 1\)\%p\((\(\((\(-1\))\)\^\(i\ - \ 1\)\/Binomial[N, \ alpha\ N]\) \((Binomial[ N, \ alpha\ N + \((i - 1)\)\ 1\/d]\ Binomial[N, \ alpha\ N - \((i - 1)\)\ 1\/d])\))\))\)];\)\)}], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(\(\(\[IndentingNewLine]\)\(DataActual = N[\ Table[{1\/d, \ Actual[1\/2, 200, \ 1\/d]}, \ {d, 2, \ 150, 2}]]\)\)\)], "Input"], Cell[BoxData[ \({{0.5`, 0.2956691400850382`}, {0.25`, 0.16534414695347874`}, {0.16666666666666666`, 0.11107177070782308`}, {0.125`, 0.0845852534215764`}, {0.1`, 0.06779731103584317`}, {0.08333333333333333`, 0.05427827233579494`}, {0.07142857142857142`, 0.04750695204598851`}, {0.0625`, 0.0407243071783087`}, {0.05555555555555555`, 0.03733175665589749`}, {0.05`, 0.03393823452076818`}, {0.045454545454545456`, 0.030544465984917266`}, {0.041666666666666664`, 0.02715064557008113`}, {0.038461538461538464`, 0.0237568161294191`}, {0.03571428571428571`, 0.02375681629381604`}, {0.03333333333333333`, 0.020362985410611517`}, {0.03125`, 0.020362985412068484`}, {0.029411764705882353`, 0.016969154510153364`}, {0.027777777777777776`, 0.01696915451015946`}, {0.02631578947368421`, 0.016969154510159797`}, {0.025`, 0.01696915451015981`}, {0.023809523809523808`, 0.013575323608127849`}, {0.022727272727272728`, 0.013575323608127849`}, {0.021739130434782608`, 0.013575323608127849`}, {0.020833333333333332`, 0.013575323608127849`}, {0.02`, 0.013575323608127849`}, {0.019230769230769232`, 0.010181492706095887`}, {0.018518518518518517`, 0.010181492706095887`}, {0.017857142857142856`, 0.010181492706095887`}, {0.017241379310344827`, 0.010181492706095887`}, {0.016666666666666666`, 0.010181492706095887`}, {0.016129032258064516`, 0.010181492706095887`}, {0.015625`, 0.010181492706095887`}, {0.015151515151515152`, 0.010181492706095887`}, {0.014705882352941176`, 0.006787661804063924`}, {0.014285714285714285`, 0.006787661804063924`}, {0.013888888888888888`, 0.006787661804063924`}, {0.013513513513513514`, 0.006787661804063924`}, {0.013157894736842105`, 0.006787661804063924`}, {0.01282051282051282`, 0.006787661804063924`}, {0.0125`, 0.006787661804063924`}, {0.012195121951219513`, 0.006787661804063924`}, {0.011904761904761904`, 0.006787661804063924`}, {0.011627906976744186`, 0.006787661804063924`}, {0.011363636363636364`, 0.006787661804063924`}, {0.011111111111111112`, 0.006787661804063924`}, {0.010869565217391304`, 0.006787661804063924`}, {0.010638297872340425`, 0.006787661804063924`}, {0.010416666666666666`, 0.006787661804063924`}, {0.01020408163265306`, 0.006787661804063924`}, {0.01`, 0.006787661804063924`}, {0.00980392156862745`, 0.003393830902031962`}, {0.009615384615384616`, 0.003393830902031962`}, {0.009433962264150943`, 0.003393830902031962`}, {0.009259259259259259`, 0.003393830902031962`}, {0.00909090909090909`, 0.003393830902031962`}, {0.008928571428571428`, 0.003393830902031962`}, {0.008771929824561403`, 0.003393830902031962`}, {0.008620689655172414`, 0.003393830902031962`}, {0.00847457627118644`, 0.003393830902031962`}, {0.008333333333333333`, 0.003393830902031962`}, {0.00819672131147541`, 0.003393830902031962`}, {0.008064516129032258`, 0.003393830902031962`}, {0.007936507936507936`, 0.003393830902031962`}, {0.0078125`, 0.003393830902031962`}, {0.007692307692307693`, 0.003393830902031962`}, {0.007575757575757576`, 0.003393830902031962`}, {0.007462686567164179`, 0.003393830902031962`}, {0.007352941176470588`, 0.003393830902031962`}, {0.007246376811594203`, 0.003393830902031962`}, {0.007142857142857143`, 0.003393830902031962`}, {0.007042253521126761`, 0.003393830902031962`}, {0.006944444444444444`, 0.003393830902031962`}, {0.00684931506849315`, 0.003393830902031962`}, {0.006756756756756757`, 0.003393830902031962`}, {0.006666666666666667`, 0.003393830902031962`}}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(\(\[IndentingNewLine]\)\(B\ = \ ListPlot[DataActual, \ PlotJoined \[Rule] True]\)\)\)], "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 12.3383 0.0147151 10.8396 [ [.27058 .00222 -12 -9 ] [.27058 .00222 12 0 ] [.51734 .00222 -12 -9 ] [.51734 .00222 12 0 ] [.76411 .00222 -12 -9 ] [.76411 .00222 12 0 ] [.01131 .12311 -24 -4.5 ] [.01131 .12311 0 4.5 ] [.01131 .23151 -24 -4.5 ] [.01131 .23151 0 4.5 ] [.01131 .3399 -24 -4.5 ] [.01131 .3399 0 4.5 ] [.01131 .4483 -24 -4.5 ] [.01131 .4483 0 4.5 ] [.01131 .55669 -24 -4.5 ] [.01131 .55669 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 .27058 .01472 m .27058 .02097 L s [(0.02)] .27058 .00222 0 1 Mshowa .51734 .01472 m .51734 .02097 L s [(0.04)] .51734 .00222 0 1 Mshowa .76411 .01472 m .76411 .02097 L s [(0.06)] .76411 .00222 0 1 Mshowa .125 Mabswid .0855 .01472 m .0855 .01847 L s .14719 .01472 m .14719 .01847 L s .20888 .01472 m .20888 .01847 L s .33227 .01472 m .33227 .01847 L s .39396 .01472 m .39396 .01847 L s .45565 .01472 m .45565 .01847 L s .57903 .01472 m .57903 .01847 L s .64072 .01472 m .64072 .01847 L s .70242 .01472 m .70242 .01847 L s .8258 .01472 m .8258 .01847 L s .88749 .01472 m .88749 .01847 L s .94918 .01472 m .94918 .01847 L s .25 Mabswid 0 .01472 m 1 .01472 L s .02381 .12311 m .03006 .12311 L s [(0.01)] .01131 .12311 1 0 Mshowa .02381 .23151 m .03006 .23151 L s [(0.02)] .01131 .23151 1 0 Mshowa .02381 .3399 m .03006 .3399 L s [(0.03)] .01131 .3399 1 0 Mshowa .02381 .4483 m .03006 .4483 L s [(0.04)] .01131 .4483 1 0 Mshowa .02381 .55669 m .03006 .55669 L s [(0.05)] .01131 .55669 1 0 Mshowa .125 Mabswid .02381 .03639 m .02756 .03639 L s .02381 .05807 m .02756 .05807 L s .02381 .07975 m .02756 .07975 L s .02381 .10143 m .02756 .10143 L s .02381 .14479 m .02756 .14479 L s .02381 .16647 m .02756 .16647 L s .02381 .18815 m .02756 .18815 L s .02381 .20983 m .02756 .20983 L s .02381 .25319 m .02756 .25319 L s .02381 .27487 m .02756 .27487 L s .02381 .29654 m .02756 .29654 L s .02381 .31822 m .02756 .31822 L s .02381 .36158 m .02756 .36158 L s .02381 .38326 m .02756 .38326 L s .02381 .40494 m .02756 .40494 L s .02381 .42662 m .02756 .42662 L s .02381 .46998 m .02756 .46998 L s .02381 .49166 m .02756 .49166 L s .02381 .51334 m .02756 .51334 L s .02381 .53502 m .02756 .53502 L s .02381 .57837 m .02756 .57837 L s .02381 .60005 m .02756 .60005 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 1 .57708 m .90512 .52967 L .79495 .45615 L .70927 .41938 L .64072 .38259 L .58464 .3458 L .53791 .30902 L .49836 .27223 L .46446 .27223 L .43509 .23544 L .40938 .23544 L .3867 .19865 L .36654 .19865 L .3485 .19865 L .33227 .19865 L .31758 .16187 L .30423 .16187 L .29203 .16187 L .28086 .16187 L .27058 .16187 L .26108 .12508 L .2523 .12508 L .24414 .12508 L .23654 .12508 L .22945 .12508 L .22281 .12508 L .2166 .12508 L .21075 .12508 L .20526 .08829 L .20007 .08829 L .19517 .08829 L .19054 .08829 L .18616 .08829 L .18199 .08829 L .17804 .08829 L .17428 .08829 L .17069 .08829 L .16728 .08829 L .16402 .08829 L .1609 .08829 L .15792 .08829 L .15507 .08829 L .15233 .08829 L .14971 .08829 L .14719 .08829 L .14477 .0515 L .14245 .0515 L .14021 .0515 L .13805 .0515 L .13598 .0515 L Mistroke .13397 .0515 L .13204 .0515 L .13017 .0515 L .12837 .0515 L .12663 .0515 L .12494 .0515 L .12331 .0515 L .12173 .0515 L .1202 .0515 L .11872 .0515 L .11728 .0515 L .11589 .0515 L .11453 .0515 L .11322 .0515 L .11194 .0515 L .1107 .0515 L .10949 .0515 L .10832 .0515 L .10718 .0515 L .10606 .0515 L Mfstroke % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{495.375, 306.188}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg6mI00<006mIKeT0ofmIUFmI000MKeT00`00KeU_F@0hKeT00`00KeU_F@3oKeVEKeT001e_F@<003Q_ F@03001_FFmI0?m_FIE_F@007FmI00<006mIKeT0>6mI00<006mIKeT0ofmIUFmI000MKeT00`00KeU_ F@0hKeT00`00KeU_F@3oKeVEKeT001e_F@03001_FFmI03Q_F@03001_FFmI0?m_FIE_F@007FmI00<0 06mIKeT0>6mI7@00ofmINfmI000MKeT00`00KeU_F@1DKeT00`00KeU_F@3oKeUiKeT001e_F@03001_ FFmI05A_F@03001_FFmI0?m_FGU_F@007FmI00<006mIKeT0E6mI00<006mIKeT0ofmINFmI000MKeT0 0`00KeU_F@1DKeT00`00KeU_F@3oKeUiKeT001e_F@03001_FFmI05E_F@03001_FFmI0?m_FGQ_F@00 7FmI0`00EFmI00<006mIKeT0ofmIN6mI000MKeT00`00KeU_F@1EKeT00`00KeU_F@3oKeUhKeT001e_ F@03001_FFmI05E_F@03001_FFmI0?m_FGQ_F@007FmI00<006mIKeT0EFmI00<006mIKeT0ofmIN6mI 000MKeT00`00KeU_F@1EKeT00`00KeU_F@3oKeUhKeT001e_F@03001_FFmI05E_F@03001_FFmI0?m_ FGQ_F@007FmI00<006mIKeT0EFmI00<006mIKeT0ofmIN6mI000MKeT00`00KeU_F@1FKeT00`00KeU_ F@3oKeUgKeT0009_F@8000A_F@8000A_F@8000=_F@D000E_F@03001_FFmI05I_F@03001_FFmI0?m_ FGM_F@0000E_F@00KeU_F@0000Q_F@04001_FFmI0004KeT00`00KeU_F@05KeT00`00KeU_F@1FKeT0 0`00KeU_F@3oKeUgKeT00005KeT006mIKeT00008KeT01000KeU_F@0016mI00<006mIKeT01FmI1000 EFmI00<006mIKeT0ofmIMfmI00001FmI001_FFmI000026mI00@006mIKeT000A_F@03001_FFmI00E_ F@03001_FFmI05I_FAT00?m_FF5_F@0000E_F@00KeU_F@0000Q_F@04001_FFmI0004KeT00`00KeU_ F@05KeT00`00KeU_F@1^KeT00`00KeU_F@3oKeUOKeT0009_F@8000Y_F@8000A_F@8000M_F@03001_ FFmI06m_F@03001_FFmI0?m_FEi_F@007FmI00<006mIKeT0KfmI00<006mIKeT0ofmIGVmI000MKeT0 0`00KeU_F@1_KeT00`00KeU_F@3oKeUNKeT001e_F@03001_FFmI06m_F@03001_FFmI0?m_FEi_F@00 7FmI00<006mIKeT0L6mI00<006mIKeT0ofmIGFmI000MKeT00`00KeU_F@1`KeT00`00KeU_F@3oKeUM KeT001e_F@03001_FFmI071_F@03001_FFmI0?m_FEe_F@007FmI00<006mIKeT0L6mI00<006mIKeT0 ofmIGFmI000MKeT3001aKeT00`00KeU_F@3oKeULKeT001e_F@03001_FFmI075_F@03001_FFmI0?m_ FEa_F@007FmI00<006mIKeT0LFmI00<006mIKeT0ofmIG6mI000MKeT00`00KeU_F@1bKeT00`00KeU_ F@3oKeUKKeT001e_F@03001_FFmI079_F@03001_FFmI0?m_FE]_F@007FmI00<006mIKeT0LVmI00<0 06mIKeT0ofmIFfmI000MKeT00`00KeU_F@1bKeT00`00KeU_F@3oKeUKKeT001e_F@03001_FFmI07=_ F@03001_FFmI0?m_FEY_F@007FmI00<006mIKeT0LfmI5`00ofmIAVmI000MKeT00`00KeU_F@29KeT0 0`00KeU_F@3oKeU4KeT001e_F@<008Y_F@03001_FFmI0?m_FD=_F@007FmI00<006mIKeT0RVmI00<0 06mIKeT0ofmI@fmI000MKeT00`00KeU_F@2;KeT00`00KeU_F@3oKeU2KeT001e_F@03001_FFmI08]_ F@03001_FFmI0?m_FD9_F@007FmI00<006mIKeT0RfmI00<006mIKeT0ofmI@VmI000MKeT00`00KeU_ F@2KeT00`00KeU_F@3oKeToKeT001e_F@03001_FFmI08m_F@03001_FFmI0?m_FCi_F@00 7FmI00<006mIKeT0SfmI00<006mIKeT0ofmI?VmI000MKeT00`00KeU_F@2@KeT00`00KeU_F@3oKeTm KeT001e_F@03001_FFmI091_FA/00?m_FBE_F@007FmI00<006mIKeT0ZfmI00<006mIKeT0ofmI8VmI 000MKeT00`00KeU_F@2[KeT00`00KeU_F@3oKeTRKeT001e_F@03001_FFmI0:a_F@03001_FFmI0?m_ FB5_F@007FmI00<006mIKeT0[6mI00<006mIKeT0ofmI8FmI000MKeT00`00KeU_F@2]KeT00`00KeU_ F@3oKeTPKeT001e_F@<00:i_F@03001_FFmI0?m_FAm_F@007FmI00<006mIKeT0[VmI00<006mIKeT0 ofmI7fmI000MKeT00`00KeU_F@2_KeT00`00KeU_F@3oKeTNKeT001e_F@03001_FFmI0:m_F@03001_ FFmI0?m_FAi_F@007FmI00<006mIKeT0/6mI00<006mIKeT0ofmI7FmI000MKeT00`00KeU_F@2aKeT0 0`00KeU_F@3oKeTLKeT001e_F@03001_FFmI0;5_F@03001_FFmI0?m_FAa_F@007FmI00<006mIKeT0 /VmI00<006mIKeT0ofmI6fmI0002KeT20004KeT20004KeT20003KeT40006KeT00`00KeU_F@2cKeT0 0`00KeU_F@3oKeTJKeT00005KeT006mIKeT00008KeT01000KeU_F@000VmI00<006mIKeT01fmI00<0 06mIKeT0/fmI00<006mIKeT0ofmI6VmI00001FmI001_FFmI000026mI00@006mIKeT000=_F@03001_ FFmI00I_F@@00;=_F@03001_FFmI0?m_FAU_F@0000E_F@00KeU_F@0000Q_F@04001_FFmI0004KeT0 0`00KeU_F@05KeT00`00KeU_F@2dKeT00`00KeU_F@3oKeTIKeT00005KeT006mIKeT00008KeT01000 KeU_F@000VmI00@006mIKeT000I_F@03001_FFmI0;E_F@d00?m_F@i_F@000VmI0P002VmI0P0016mI 0P001fmI00<006mIKeT0`VmI00<006mIKeT0ofmI2fmI000MKeT00`00KeU_F@33KeT00`00KeU_F@3o KeT:KeT001e_F@03001_FFmI0<=_F@03001_FFmI0?m_F@Y_F@007FmI00<006mIKeT0a6mI00<006mI KeT0ofmI2FmI000MKeT00`00KeU_F@35KeT00`00KeU_F@3oKeT8KeT001e_F@03001_FFmI01_F@03 001_FFmI0>a_F@007FmI0`00hFmI00<006mIKeT0jfmI000MKeT00`00KeU_F@3RKeT00`00KeU_F@3Z KeT001e_F@03001_FFmI0>=_F@03001_FFmI0>U_F@007FmI00<006mIKeT0i6mI00<006mIKeT0j6mI 000MKeT00`00KeU_F@3UKeT00`00KeU_F@3WKeT001e_F@03001_FFmI0>I_F@03001_FFmI0>I_F@00 7FmI00<006mIKeT0ifmI00<006mIKeT0iFmI000MKeT00`00KeU_F@3XKeT2003UKeT001e_F@03001_ FFmI0>Y_F@03001_FFmI0>9_F@007FmI00<006mIKeT0jfmI00<006mIKeT0hFmI000MKeT3003/KeT0 0`00KeU_F@3PKeT001e_F@03001_FFmI0>e_F@03001_FFmI0=m_F@007FmI00<006mIKeT0kVmI00<0 06mIKeT0gVmI000MKeT00`00KeU_F@3_KeT00`00KeU_F@3MKeT001e_F@03001_FFmI0?1_F@03001_ FFmI0=a_F@007FmI00<006mIKeT0lFmI00<006mIKeT0ffmI000MKeT00`00KeU_F@3bKeT00`00KeU_ F@3JKeT001e_F@03001_FFmI0?=_F@03001_FFmI0=U_F@007FmI00<006mIKeT0m6mI0P00fFmI000M KeT00`00KeU_F@3fKeT00`00KeU_F@3FKeT001e_F@<00?M_F@03001_FFmI0=E_F@007FmI00<006mI KeT0n6mI0P00eFmI000MKeT00`00KeU_F@3jKeT00`00KeU_F@3BKeT001e_F@03001_FFmI0?]_F@03 001_FFmI0=5_F@007FmI00<006mIKeT0o6mI00<006mIKeT0d6mI000MKeT00`00KeU_F@3mKeT2003@ KeT001e_F@03001_FFmI0?m_F@03001_FFmI0KeT001e_F@03001_FFmI0?m_FH1_F@8004i_F@007FmI00<0 06mIKeT0ofmIPVmI00<006mIKeT0BfmI000MKeT00`00KeU_F@3oKeV3KeT2001;KeT001e_F@03001_ FFmI0?m_FHE_F@03001_FFmI04Q_F@007FmI0`00ofmIQVmI0P00B6mI000MKeT00`00KeU_F@3oKeV8 KeT20016KeT001e_F@03001_FFmI0?m_FHY_F@03001_FFmI04=_F@007FmI00<006mIKeT0ofmIRfmI 0P00@fmI000MKeT00`00KeU_F@3oKeV=KeT00`00KeU_F@10KeT001e_F@03001_FFmI0?m_FHi_F@80 041_F@007FmI00<006mIKeT0ofmIT6mI00<006mIKeT0?FmI000MKeT00`00KeU_F@3oKeVAKeT2000m KeT001e_F@03001_FFmI0?m_FI=_F@03001_FFmI03Y_F@007FmI00<006mIKeT0ofmIU6mI0P00>VmI 000MKeT3003oKeVFKeT00`00KeU_F@0gKeT001e_F@03001_FFmI0?m_FIM_F@8003M_F@007FmI00<0 06mIKeT0ofmIVFmI00<006mIKeT0=6mI000MKeT00`00KeU_F@3oKeVJKeT2000dKeT001e_F@03001_ FFmI0?m_FIa_F@03001_FFmI035_F@007FmI00<006mIKeT0ofmIWFmI0P00KeT10001KeT001e_F@<00?m_FM1_F@007FmI 00<006mIKeT0ofmId6mI000MKeT00`00KeU_F@3oKeW@KeT001e_F@03001_FFmI0?m_FM1_F@007FmI 00<006mIKeT0ofmId6mI000MKeT00`00KeU_F@3oKeW@KeT001e_F@03001_FFmI0?m_FM1_F@007FmI 00<006mIKeT0ofmId6mI000MKeT00`00KeU_F@3oKeW@KeT001e_F@03001_FFmI0?m_FM1_F@007FmI 0`00ofmId6mI000MKeT00`00KeU_F@3oKeW@KeT001e_F@03001_FFmI0?m_FM1_F@007FmI00<006mI KeT0ofmId6mI000MKeT00`00KeU_F@3oKeW@KeT001e_F@03001_FFmI0?m_FM1_F@007FmI00<006mI KeT0ofmId6mI000MKeT00`00KeU_F@3oKeW@KeT001e_F@03001_FFmI0?m_FM1_F@007FmI00<006mI KeT0ofmId6mI003oKeW`KeT00001\ \>"], ImageRangeCache->{{{0, 494.375}, {305.188, 0}} -> {-0.00510208, \ -0.00320968, 0.000170359, 0.000193913}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(\(\[IndentingNewLine]\)\(DataApproximate = N[\ Table[{1\/d, \ Approximate[1\/2, 200, \ 1\/d]}, \ {d, 2, \ 150, 2}]]\)\)\)], "Input"], Cell[BoxData[ \({{0.5`, 0.33762372961727116`}, {0.25`, 0.1688325811053556`}, {0.16666666666666666`, 0.11153965361559962`}, {0.125`, 0.084653896976361`}, {0.1`, 0.0678072212305483`}, {0.08333333333333333`, 0.0542794654451986`}, {0.07142857142857142`, 0.047507074451715946`}, {0.0625`, 0.04072431623736621`}, {0.05555555555555555`, 0.037331757183490785`}, {0.05`, 0.033938234542685235`}, {0.045454545454545456`, 0.030544465985561306`}, {0.041666666666666664`, 0.0271506455700944`}, {0.038461538461538464`, 0.02375681612941929`}, {0.03571428571428571`, 0.02375681629381604`}, {0.03333333333333333`, 0.020362985410611517`}, {0.03125`, 0.020362985412068484`}, {0.029411764705882353`, 0.016969154510153364`}, {0.027777777777777776`, 0.01696915451015946`}, {0.02631578947368421`, 0.016969154510159797`}, {0.025`, 0.01696915451015981`}, {0.023809523809523808`, 0.013575323608127849`}, {0.022727272727272728`, 0.013575323608127849`}, {0.021739130434782608`, 0.013575323608127849`}, {0.020833333333333332`, 0.013575323608127849`}, {0.02`, 0.013575323608127849`}, {0.019230769230769232`, 0.010181492706095887`}, {0.018518518518518517`, 0.010181492706095887`}, {0.017857142857142856`, 0.010181492706095887`}, {0.017241379310344827`, 0.010181492706095887`}, {0.016666666666666666`, 0.010181492706095887`}, {0.016129032258064516`, 0.010181492706095887`}, {0.015625`, 0.010181492706095887`}, {0.015151515151515152`, 0.010181492706095887`}, {0.014705882352941176`, 0.006787661804063924`}, {0.014285714285714285`, 0.006787661804063924`}, {0.013888888888888888`, 0.006787661804063924`}, {0.013513513513513514`, 0.006787661804063924`}, {0.013157894736842105`, 0.006787661804063924`}, {0.01282051282051282`, 0.006787661804063924`}, {0.0125`, 0.006787661804063924`}, {0.012195121951219513`, 0.006787661804063924`}, {0.011904761904761904`, 0.006787661804063924`}, {0.011627906976744186`, 0.006787661804063924`}, {0.011363636363636364`, 0.006787661804063924`}, {0.011111111111111112`, 0.006787661804063924`}, {0.010869565217391304`, 0.006787661804063924`}, {0.010638297872340425`, 0.006787661804063924`}, {0.010416666666666666`, 0.006787661804063924`}, {0.01020408163265306`, 0.006787661804063924`}, {0.01`, 0.006787661804063924`}, {0.00980392156862745`, 0.003393830902031962`}, {0.009615384615384616`, 0.003393830902031962`}, {0.009433962264150943`, 0.003393830902031962`}, {0.009259259259259259`, 0.003393830902031962`}, {0.00909090909090909`, 0.003393830902031962`}, {0.008928571428571428`, 0.003393830902031962`}, {0.008771929824561403`, 0.003393830902031962`}, {0.008620689655172414`, 0.003393830902031962`}, {0.00847457627118644`, 0.003393830902031962`}, {0.008333333333333333`, 0.003393830902031962`}, {0.00819672131147541`, 0.003393830902031962`}, {0.008064516129032258`, 0.003393830902031962`}, {0.007936507936507936`, 0.003393830902031962`}, {0.0078125`, 0.003393830902031962`}, {0.007692307692307693`, 0.003393830902031962`}, {0.007575757575757576`, 0.003393830902031962`}, {0.007462686567164179`, 0.003393830902031962`}, {0.007352941176470588`, 0.003393830902031962`}, {0.007246376811594203`, 0.003393830902031962`}, {0.007142857142857143`, 0.003393830902031962`}, {0.007042253521126761`, 0.003393830902031962`}, {0.006944444444444444`, 0.003393830902031962`}, {0.00684931506849315`, 0.003393830902031962`}, {0.006756756756756757`, 0.003393830902031962`}, {0.006666666666666667`, 0.003393830902031962`}}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(F = \ ListPlot[DataApproximate, \ PlotJoined \[Rule] True]\)], "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 12.3383 0.0147151 10.8396 [ [.27058 .00222 -12 -9 ] [.27058 .00222 12 0 ] [.51734 .00222 -12 -9 ] [.51734 .00222 12 0 ] [.76411 .00222 -12 -9 ] [.76411 .00222 12 0 ] [.01131 .12311 -24 -4.5 ] [.01131 .12311 0 4.5 ] [.01131 .23151 -24 -4.5 ] [.01131 .23151 0 4.5 ] [.01131 .3399 -24 -4.5 ] [.01131 .3399 0 4.5 ] [.01131 .4483 -24 -4.5 ] [.01131 .4483 0 4.5 ] [.01131 .55669 -24 -4.5 ] [.01131 .55669 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 .27058 .01472 m .27058 .02097 L s [(0.02)] .27058 .00222 0 1 Mshowa .51734 .01472 m .51734 .02097 L s [(0.04)] .51734 .00222 0 1 Mshowa .76411 .01472 m .76411 .02097 L s [(0.06)] .76411 .00222 0 1 Mshowa .125 Mabswid .0855 .01472 m .0855 .01847 L s .14719 .01472 m .14719 .01847 L s .20888 .01472 m .20888 .01847 L s .33227 .01472 m .33227 .01847 L s .39396 .01472 m .39396 .01847 L s .45565 .01472 m .45565 .01847 L s .57903 .01472 m .57903 .01847 L s .64072 .01472 m .64072 .01847 L s .70242 .01472 m .70242 .01847 L s .8258 .01472 m .8258 .01847 L s .88749 .01472 m .88749 .01847 L s .94918 .01472 m .94918 .01847 L s .25 Mabswid 0 .01472 m 1 .01472 L s .02381 .12311 m .03006 .12311 L s [(0.01)] .01131 .12311 1 0 Mshowa .02381 .23151 m .03006 .23151 L s [(0.02)] .01131 .23151 1 0 Mshowa .02381 .3399 m .03006 .3399 L s [(0.03)] .01131 .3399 1 0 Mshowa .02381 .4483 m .03006 .4483 L s [(0.04)] .01131 .4483 1 0 Mshowa .02381 .55669 m .03006 .55669 L s [(0.05)] .01131 .55669 1 0 Mshowa .125 Mabswid .02381 .03639 m .02756 .03639 L s .02381 .05807 m .02756 .05807 L s .02381 .07975 m .02756 .07975 L s .02381 .10143 m .02756 .10143 L s .02381 .14479 m .02756 .14479 L s .02381 .16647 m .02756 .16647 L s .02381 .18815 m .02756 .18815 L s .02381 .20983 m .02756 .20983 L s .02381 .25319 m .02756 .25319 L s .02381 .27487 m .02756 .27487 L s .02381 .29654 m .02756 .29654 L s .02381 .31822 m .02756 .31822 L s .02381 .36158 m .02756 .36158 L s .02381 .38326 m .02756 .38326 L s .02381 .40494 m .02756 .40494 L s .02381 .42662 m .02756 .42662 L s .02381 .46998 m .02756 .46998 L s .02381 .49166 m .02756 .49166 L s .02381 .51334 m .02756 .51334 L s .02381 .53502 m .02756 .53502 L s .02381 .57837 m .02756 .57837 L s .02381 .60005 m .02756 .60005 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 1 .57709 m .90512 .52967 L .79495 .45615 L .70927 .41938 L .64072 .38259 L .58464 .3458 L .53791 .30902 L .49836 .27223 L .46446 .27223 L .43509 .23544 L .40938 .23544 L .3867 .19865 L .36654 .19865 L .3485 .19865 L .33227 .19865 L .31758 .16187 L .30423 .16187 L .29203 .16187 L .28086 .16187 L .27058 .16187 L .26108 .12508 L .2523 .12508 L .24414 .12508 L .23654 .12508 L .22945 .12508 L .22281 .12508 L .2166 .12508 L .21075 .12508 L .20526 .08829 L .20007 .08829 L .19517 .08829 L .19054 .08829 L .18616 .08829 L .18199 .08829 L .17804 .08829 L .17428 .08829 L .17069 .08829 L .16728 .08829 L .16402 .08829 L .1609 .08829 L .15792 .08829 L .15507 .08829 L .15233 .08829 L .14971 .08829 L .14719 .08829 L .14477 .0515 L .14245 .0515 L .14021 .0515 L .13805 .0515 L .13598 .0515 L Mistroke .13397 .0515 L .13204 .0515 L .13017 .0515 L .12837 .0515 L .12663 .0515 L .12494 .0515 L .12331 .0515 L .12173 .0515 L .1202 .0515 L .11872 .0515 L .11728 .0515 L .11589 .0515 L .11453 .0515 L .11322 .0515 L .11194 .0515 L .1107 .0515 L .10949 .0515 L .10832 .0515 L .10718 .0515 L .10606 .0515 L Mfstroke % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgA_F@006fmI0P007VmI00<006mIKeT0 hVmI000KKeT00`00KeU_F@0MKeT00`00KeU_F@3RKeT001]_F@03001_FFmI01e_F@03001_FFmI0>9_ F@006fmI00<006mIKeT07FmI00<006mIKeT0hVmI000KKeT00`00KeU_F@0MKeT00`00KeU_F@3RKeT0 01]_F@03001_FFmI01i_F@03001_FFmI0>5_F@006fmI0P007fmI00<006mIKeT0hFmI000KKeT00`00 KeU_F@0NKeT00`00KeU_F@3QKeT001]_F@03001_FFmI01i_F@03001_FFmI0>5_F@006fmI00<006mI KeT07VmI4000e6mI000KKeT00`00KeU_F@0]KeT00`00KeU_F@3BKeT001]_F@03001_FFmI02e_F@03 001_FFmI0=9_F@006fmI0P00;fmI00<006mIKeT0dFmI000KKeT00`00KeU_F@0^KeT00`00KeU_F@3A KeT001]_F@03001_FFmI02i_F@03001_FFmI0=5_F@006fmI00<006mIKeT0;VmI00<006mIKeT0dFmI 0002KeT20004KeT20004KeT20003KeT50003KeT00`00KeU_F@0_KeT00`00KeU_F@3@KeT00005KeT0 06mIKeT00008KeT01000KeU_F@0016mI00<006mIKeT00fmI00<006mIKeT0;fmI00<006mIKeT0d6mI 00001FmI001_FFmI000026mI00@006mIKeT000A_F@03001_FFmI00=_F@80031_F@h00KeT00`00KeU_F@2aKeT001]_F@03001_FFmI 04m_F@03001_FFmI0;1_F@006fmI00<006mIKeT0CfmI3`00Y6mI000KKeT00`00KeU_F@1NKeT00`00 KeU_F@2QKeT001]_F@03001_FFmI05i_F@03001_FFmI0:5_F@006fmI0P00H6mI00<006mIKeT0X6mI 000KKeT00`00KeU_F@1OKeT00`00KeU_F@2PKeT001]_F@03001_FFmI061_F@03001_FFmI09m_F@00 6fmI00<006mIKeT0HFmI00<006mIKeT0WVmI0002KeT20004KeT20004KeT20003KeT40004KeT00`00 KeU_F@1QKeT00`00KeU_F@2NKeT00005KeT006mIKeT00008KeT01000KeU_F@000VmI00<006mIKeT0 1FmI00<006mIKeT0HVmI00<006mIKeT0WFmI00001FmI001_FFmI000026mI00@006mIKeT000=_F@03 001_FFmI00A_F@8006=_F@03001_FFmI09e_F@0000E_F@00KeU_F@0000Q_F@04001_FFmI0004KeT0 0`00KeU_F@03KeT00`00KeU_F@1SKeT8002GKeT00005KeT006mIKeT00008KeT01000KeU_F@000VmI 00@006mIKeT000A_F@03001_FFmI06]_F@03001_FFmI09A_F@000VmI0P002VmI0P0016mI0P001FmI 00<006mIKeT0K6mI00<006mIKeT0TfmI000KKeT00`00KeU_F@1]KeT00`00KeU_F@2BKeT001]_F@80 06m_F@03001_FFmI095_F@006fmI00<006mIKeT0KVmI00<006mIKeT0TFmI000KKeT00`00KeU_F@1_ KeT00`00KeU_F@2@KeT001]_F@03001_FFmI071_F@03001_FFmI08m_F@006fmI00<006mIKeT0LFmI 00<006mIKeT0SVmI000KKeT00`00KeU_F@1bKeT:0026KeT001]_F@8007e_F@03001_FFmI08=_F@00 6fmI00<006mIKeT0OFmI00<006mIKeT0PVmI000KKeT00`00KeU_F@1nKeT00`00KeU_F@21KeT001]_ F@03001_FFmI07m_F@03001_FFmI081_F@006fmI00<006mIKeT0P6mI0P00P6mI000KKeT00`00KeU_ F@22KeT00`00KeU_F@1mKeT001]_F@8008A_F@03001_FFmI07a_F@006fmI00<006mIKeT0Q6mI00<0 06mIKeT0NfmI000KKeT00`00KeU_F@25KeT00`00KeU_F@1jKeT001]_F@03001_FFmI08I_F@03001_ FFmI07U_F@006fmI00<006mIKeT0QfmI00<006mIKeT0N6mI000KKeT00`00KeU_F@28KeT00`00KeU_ F@1gKeT001]_F@8008Y_F@8007M_F@006fmI00<006mIKeT0RfmI00<006mIKeT0M6mI000KKeT00`00 KeU_F@2KeT2000bKeT001]_F@800=5_F@03001_FFmI02m_F@006fmI00<006mI KeT0dFmI00<006mIKeT0;VmI000KKeT00`00KeU_F@3BKeT2000^KeT001]_F@03001_FFmI0=A_F@03 001_FFmI02]_F@006fmI00<006mIKeT0eFmI0P00:fmI000KKeT00`00KeU_F@3GKeT00`00KeU_F@0X KeT001]_F@800=U_F@8002Q_F@006fmI00<006mIKeT0fVmI00<006mIKeT09FmI000KKeT00`00KeU_ F@3KKeT2000UKeT001]_F@03001_FFmI0=e_F@03001_FFmI029_F@006fmI00<006mIKeT0gVmI0P00 8VmI000KKeT00`00KeU_F@3PKeT00`00KeU_F@0OKeT001]_F@800>9_F@03001_FFmI01i_F@006fmI 00<006mIKeT0hVmI0P007VmI000KKeT00`00KeU_F@3TKeT00`00KeU_F@0KKeT001]_F@03001_FFmI 0>E_F@8001]_F@006fmI00<006mIKeT0ifmI00<006mIKeT066mI000KKeT2003YKeT2000HKeT001]_ F@03001_FFmI0>Y_F@8001I_F@006fmI00<006mIKeT0k6mI0P0056mI000KKeT00`00KeU_F@3^KeT2 000BKeT0009_F@8000A_F@8000A_F@8000A_F@8000E_F@03001_FFmI0?1_F@80011_F@0000E_F@00 KeU_F@0000Q_F@04001_FFmI0002KeT01000KeU_F@0016mI00<006mIKeT0lVmI0P003VmI00001FmI 001_FFmI000026mI00@006mIKeT000E_F@03001_FFmI009_F@800?E_F@8000a_F@0000E_F@00KeU_ F@0000Q_F@04001_FFmI0003KeT20005KeT00`00KeU_F@3fKeT2000:KeT00005KeT006mIKeT00008 KeT01000KeU_F@000fmI00<006mIKeT016mI00<006mIKeT0n6mI0P0026mI0002KeT2000:KeT20004 KeT30004KeT00`00KeU_F@3jKeT20006KeT001]_F@03001_FFmI0?a_F@8000A_F@006fmI00<006mI KeT0oVmI0P000VmI000KKeT2003oKeT2KeT10001KeT001]_F@03001_FFmI0?m_F@=_F@006fmI00<0 06mIKeT0ofmI0fmI000KKeT00`00KeU_F@3oKeT3KeT001]_F@03001_FFmI0?m_F@=_F@006fmI00<0 06mIKeT0ofmI0fmI000KKeT2003oKeT4KeT001]_F@03001_FFmI0?m_F@=_F@006fmI00<006mIKeT0 ofmI0fmI000KKeT00`00KeU_F@3oKeT3KeT001]_F@03001_FFmI0?m_F@=_F@00ofmI8FmI003oKeTQ KeT00001\ \>"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-0.00832594, -0.00498994, \ 0.000304687, 0.000346813}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(\(\[IndentingNewLine]\)\(Show[A, \ B]\)\)\)], "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.952381 0.0147151 1.69934 [ [.21429 .00222 -9 -9 ] [.21429 .00222 9 0 ] [.40476 .00222 -9 -9 ] [.40476 .00222 9 0 ] [.59524 .00222 -9 -9 ] [.59524 .00222 9 0 ] [.78571 .00222 -9 -9 ] [.78571 .00222 9 0 ] [.97619 .00222 -3 -9 ] [.97619 .00222 3 0 ] [.01131 .09968 -24 -4.5 ] [.01131 .09968 0 4.5 ] [.01131 .18465 -18 -4.5 ] [.01131 .18465 0 4.5 ] [.01131 .26962 -24 -4.5 ] [.01131 .26962 0 4.5 ] [.01131 .35458 -18 -4.5 ] [.01131 .35458 0 4.5 ] [.01131 .43955 -24 -4.5 ] [.01131 .43955 0 4.5 ] [.01131 .52452 -18 -4.5 ] [.01131 .52452 0 4.5 ] [.01131 .60949 -24 -4.5 ] [.01131 .60949 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 .21429 .01472 m .21429 .02097 L s [(0.2)] .21429 .00222 0 1 Mshowa .40476 .01472 m .40476 .02097 L s [(0.4)] .40476 .00222 0 1 Mshowa .59524 .01472 m .59524 .02097 L s [(0.6)] .59524 .00222 0 1 Mshowa .78571 .01472 m .78571 .02097 L s [(0.8)] .78571 .00222 0 1 Mshowa .97619 .01472 m .97619 .02097 L s [(1)] .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 .2619 .01472 m .2619 .01847 L s .30952 .01472 m .30952 .01847 L s .35714 .01472 m .35714 .01847 L s .45238 .01472 m .45238 .01847 L s .5 .01472 m .5 .01847 L s .54762 .01472 m .54762 .01847 L s .64286 .01472 m .64286 .01847 L s .69048 .01472 m .69048 .01847 L s .7381 .01472 m .7381 .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 .09968 m .03006 .09968 L s [(0.05)] .01131 .09968 1 0 Mshowa .02381 .18465 m .03006 .18465 L s [(0.1)] .01131 .18465 1 0 Mshowa .02381 .26962 m .03006 .26962 L s [(0.15)] .01131 .26962 1 0 Mshowa .02381 .35458 m .03006 .35458 L s [(0.2)] .01131 .35458 1 0 Mshowa .02381 .43955 m .03006 .43955 L s [(0.25)] .01131 .43955 1 0 Mshowa .02381 .52452 m .03006 .52452 L s [(0.3)] .01131 .52452 1 0 Mshowa .02381 .60949 m .03006 .60949 L s [(0.35)] .01131 .60949 1 0 Mshowa .125 Mabswid .02381 .03171 m .02756 .03171 L s .02381 .0487 m .02756 .0487 L s .02381 .0657 m .02756 .0657 L s .02381 .08269 m .02756 .08269 L s .02381 .11668 m .02756 .11668 L s .02381 .13367 m .02756 .13367 L s .02381 .15066 m .02756 .15066 L s .02381 .16766 m .02756 .16766 L s .02381 .20164 m .02756 .20164 L s .02381 .21864 m .02756 .21864 L s .02381 .23563 m .02756 .23563 L s .02381 .25262 m .02756 .25262 L s .02381 .28661 m .02756 .28661 L s .02381 .3036 m .02756 .3036 L s .02381 .3206 m .02756 .3206 L s .02381 .33759 m .02756 .33759 L s .02381 .37158 m .02756 .37158 L s .02381 .38857 m .02756 .38857 L s .02381 .40556 m .02756 .40556 L s .02381 .42256 m .02756 .42256 L s .02381 .45654 m .02756 .45654 L s .02381 .47354 m .02756 .47354 L s .02381 .49053 m .02756 .49053 L s .02381 .50752 m .02756 .50752 L s .02381 .54151 m .02756 .54151 L s .02381 .5585 m .02756 .5585 L s .02381 .5755 m .02756 .5755 L s .02381 .59249 m .02756 .59249 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 .06244 .06245 L .10458 .11418 L .14415 .16214 L .18221 .20741 L .22272 .25436 L .26171 .29806 L .30316 .34257 L .34309 .38326 L .3815 .42008 L .42237 .45643 L .46172 .48838 L .49955 .516 L .53984 .54177 L .57861 .56274 L .61984 .58058 L .64043 .58768 L .65954 .59313 L .67803 .59733 L .69774 .60061 L .70802 .60182 L .71382 .60234 L .71915 .60273 L .72382 .60299 L .72648 .6031 L .72896 .60319 L .7303 .60323 L .73157 .60325 L .73273 .60328 L .73396 .6033 L .73459 .6033 L .73529 .60331 L .73653 .60332 L .73722 .60332 L .73797 .60332 L .73867 .60332 L .73932 .60331 L .7406 .6033 L .7418 .60329 L .74289 .60327 L .74406 .60325 L .74669 .60318 L .74912 .60309 L .75355 .60288 L .75824 .60258 L .7681 .60169 L .77894 .60031 L .78911 .59863 L .79839 .59675 L .81928 .59134 L Mistroke .83831 .58495 L .85904 .57635 L .89974 .55437 L .93892 .52656 L .97619 .49378 L Mfstroke .5 .51716 m .2619 .29569 L .18254 .20346 L .14286 .15845 L .11905 .12993 L .10317 .10695 L .09184 .09545 L .08333 .08392 L .07672 .07815 L .07143 .07239 L .0671 .06662 L .06349 .06085 L .06044 .05509 L .05782 .05509 L .05556 .04932 L .05357 .04932 L .05182 .04355 L .05026 .04355 L .04887 .04355 L .04762 .04355 L .04649 .03778 L .04545 .03778 L .04451 .03778 L .04365 .03778 L .04286 .03778 L .04212 .03202 L .04145 .03202 L .04082 .03202 L .04023 .03202 L .03968 .03202 L .03917 .03202 L .03869 .03202 L .03824 .03202 L .03782 .02625 L .03741 .02625 L .03704 .02625 L .03668 .02625 L .03634 .02625 L .03602 .02625 L .03571 .02625 L .03542 .02625 L .03515 .02625 L .03488 .02625 L .03463 .02625 L .03439 .02625 L .03416 .02625 L .03394 .02625 L .03373 .02625 L .03353 .02625 L .03333 .02625 L Mistroke .03315 .02048 L .03297 .02048 L .03279 .02048 L .03263 .02048 L .03247 .02048 L .03231 .02048 L .03216 .02048 L .03202 .02048 L .03188 .02048 L .03175 .02048 L .03162 .02048 L .03149 .02048 L .03137 .02048 L .03125 .02048 L .03114 .02048 L .03102 .02048 L .03092 .02048 L .03081 .02048 L .03071 .02048 L .03061 .02048 L .03052 .02048 L .03042 .02048 L .03033 .02048 L .03024 .02048 L .03016 .02048 L Mfstroke % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{492.688, 304.5}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgKeT2003oKeVmKeT001e_F@03001_FFmI 00i_F@03001_F@000?m_FKa_F@007FmI00<006mIKeT03fmI0P00ofmI_6mI000MKeT00`00KeU_F@0@ KeT2003oKeVkKeT001e_F@<0015_F@03001_FFmI0?m_FKU_F@007FmI00<006mIKeT04VmI00<006mI KeT0ofmI^6mI000MKeT00`00KeU_F@0BKeT2003oKeViKeT001e_F@03001_FFmI01=_F@03001_FFmI 0?m_FKM_F@007FmI00<006mIKeT056mI00<006mIKeT0ofmI]VmI000MKeT00`00KeU_F@0EKeT00`00 KeU_F@3oKeVeKeT001e_F@03001_FFmI01I_F@03001_FFmI0?m_FKA_F@007FmI00<006mIKeT05fmI 00<006mIKeT0ofmI/fmI000MKeT3000GKeT3003oKeVcKeT001e_F@03001_FFmI01Q_F@03001_F@00 0?m_FK9_F@007FmI00<006mIKeT06FmI00<006mI0000ofmI/FmI000MKeT00`00KeU_F@0JKeT00`00 KeT0003oKeV`KeT001e_F@03001_FFmI01]_F@800?m_FK1_F@007FmI00<006mIKeT076mI0P00ofmI [fmI0002KeT20004KeT20004KeT20004KeT20007KeT00`00KeU_F@0LKeT00`00KeT0003oKeV^KeT0 0005KeT006mIKeT00008KeT01000KeU_F@000VmI00@006mIKeT000I_F@03001_FFmI01e_F@03001_ F@000?m_FJe_F@0000E_F@00KeU_F@0000Q_F@04001_FFmI0005KeT00`00KeU_F@04KeT4000MKeT0 0`00KeT0003oKeV/KeT00005KeT006mIKeT00008KeT01000KeU_F@000fmI0P001fmI00<006mIKeT0 7fmI0P00ofmI[6mI00001FmI001_FFmI000026mI00@006mIKeT000=_F@03001_FFmI00I_F@03001_ FFmI021_F@800?m_FJ]_F@000VmI0P002VmI0P0016mI0`001VmI00<006mIKeT08FmI0P00ofmIZVmI 000MKeT00`00KeU_F@0QKeT00`00KeT0003oKeVYKeT001e_F@03001_FFmI029_F@03001_F@000?m_ FJQ_F@007FmI00<006mIKeT08fmI0P00ofmIZ6mI000MKeT00`00KeU_F@0TKeT2003oKeVWKeT001e_ F@03001_FFmI02E_F@800?m_FJI_F@007FmI0`009VmI00<006mIKeT0ofmIY6mI000MKeT00`00KeU_ F@0VKeT2003oKeVUKeT001e_F@03001_FFmI02M_F@03001_FFmI0?m_FJ=_F@007FmI00<006mIKeT0 :6mI00<006mIKeT0ofmIXVmI000MKeT00`00KeU_F@0YKeT00`00KeU_F@3oKeVQKeT001e_F@03001_ FFmI02U_F@03001_FFmI0?m_FJ5_F@007FmI00<006mIKeT0:VmI00<006mIKeT0ofmIX6mI000MKeT0 0`00KeU_F@0[KeT00`00KeU_F@3oKeVOKeT001e_F@<002a_F@03001_FFmI0?m_FIi_F@007FmI00<0 06mIKeT0;FmI00<006mIKeT0ofmIWFmI000MKeT00`00KeU_F@0]KeT2003oKeVNKeT001e_F@03001_ FFmI02i_F@800?m_FIe_F@007FmI00<006mIKeT0;fmI0P00ofmIW6mI000MKeT00`00KeU_F@0`KeT0 0`00KeU_F@3oKeVJKeT001e_F@03001_FFmI035_F@03001_FFmI0?m_FIU_F@007FmI00<006mIKeT0 FmI0P00ofmITVmI000MKeT00`00KeU_F@0iKeT00`00KeT0003oKeVAKeT001e_F@03001_ FFmI03Y_F@03001_F@000?m_FI1_F@007FmI00<006mIKeT0>fmI00<006mI0000ofmISfmI000MKeT0 0`00KeU_F@0lKeT00`00KeT0003oKeV>KeT001e_F@03001_FFmI03e_F@03001_F@000?m_FHe_F@00 26mI0P0016mI0P000fmI1@001FmI00<006mIKeT0?VmI0P00ofmISFmI0007KeT01000KeU_F@002VmI 00<006mIKeT01FmI00<006mIKeT0?fmI0P00ofmIS6mI0007KeT01000KeU_F@002VmI00<006mIKeT0 1FmI1000?VmI00<006mI0000ofmIRfmI0007KeT01000KeU_F@002VmI00<006mIKeT01FmI00<006mI KeT0@6mI00<006mI0000ofmIRVmI0007KeT01000KeU_F@002VmI00<006mIKeT01FmI00<006mIKeT0 @FmI00<006mI0000ofmIRFmI0008KeT2000:KeT20007KeT00`00KeU_F@12KeT00`00KeT0003oKeV8 KeT001e_F@03001_FFmI04=_F@03001_F@000?m_FHM_F@007FmI00<006mIKeT0A6mI00<006mI0000 ofmIQVmI000MKeT00`00KeU_F@15KeT2003oKeV6KeT001e_F@03001_FFmI04E_F@03001_F@000?m_ FHE_F@007FmI0`00AVmI00<006mI0000ofmIQ6mI000MKeT00`00KeU_F@17KeT00`00KeT0003oKeV3 KeT001e_F@03001_FFmI04Q_F@03001_F@000?m_FH9_F@007FmI00<006mIKeT0BFmI00<006mI0000 ofmIPFmI000MKeT00`00KeU_F@1:KeT00`00KeT0003oKeV0KeT001e_F@03001_FFmI04]_F@800?m_ FH1_F@007FmI00<006mIKeT0BfmI00<006mI0000ofmIOfmI000MKeT00`00KeU_F@1fmI000MKeT0 0`00KeU_F@2;KeT00`00KeU_F@02KeT00`00KeU_F@3oKeTjKeT001e_F@03001_FFmI08a_F@03001_ FFmI009_F@800?m_FCY_F@007FmI00<006mIKeT0SFmI00<006mIKeT00fmI00<006mIKeT0ofmI=fmI 000MKeT00`00KeU_F@2>KeT00`00KeU_F@03KeT00`00KeU_F@3oKeTfKeT001e_F@<008m_F@03001_ FFmI00=_F@03001_FFmI0?m_FCE_F@007FmI00<006mIKeT0SfmI00<006mIKeT016mI00<006mIKeT0 ofmI=6mI000MKeT00`00KeU_F@2@KeT00`00KeU_F@04KeT00`00KeU_F@3oKeTcKeT001e_F@03001_ FFmI095_F@03001_FFmI00A_F@03001_FFmI0?m_FC9_F@007FmI00<006mIKeT0TVmI00<006mIKeT0 16mI00<006mIKeT0ofmIY_F@03001_FFmI00Y_ F@007FmI00<006mIKeT0dfmI0`00j6mI00<006mIKeT02fmI000MKeT00`00KeU_F@3EKeT2003UKeT2 000>KeT001e_F@03001_FFmI0=I_F@<00>9_F@03001_FFmI00i_F@007FmI00<006mIKeT0efmI0`00 h6mI00<006mIKeT03fmI000MKeT3003IKeT2003NKeT00`00KeU_F@0@KeT001e_F@03001_FFmI0=Y_ F@800=a_F@03001_FFmI015_F@007FmI00<006mIKeT0ffmI0P00fFmI0P0056mI000MKeT00`00KeU_ F@3MKeT00`00KeU_F@3EKeT00`00KeU_F@0DKeT001e_F@03001_FFmI0=i_F@03001_FFmI0==_F@03 001_FFmI01E_F@007FmI00<006mIKeT0gfmI0P00dVmI00<006mIKeT05VmI0008KeT20004KeT20004 KeT20007KeT00`00KeU_F@3QKeT00`00KeU_F@3>KeT00`00KeU_F@0GKeT000M_F@04001_FFmI0008 KeT01000KeU_F@001VmI00<006mIKeT0hVmI0P00c6mI0P006VmI0007KeT01000KeU_F@002VmI00<0 06mIKeT01FmI1000hfmI00<006mIKeT0b6mI00<006mIKeT06VmI0007KeT01000KeU_F@002fmI00<0 06mIKeT016mI00<006mIKeT0iFmI0P00afmI00<006mIKeT06fmI0007KeT01000KeU_F@0026mI00@0 06mIKeT000I_F@03001_FFmI0>M_F@03001_FFmI0<=_F@03001_FFmI01a_F@0026mI0P002VmI0P00 1fmI00<006mIKeT0j6mI0P00`FmI0P007fmI000MKeT00`00KeU_F@3ZKeT2002nKeT00`00KeU_F@0O KeT001e_F@03001_FFmI0>a_F@03001_FFmI0;Y_F@03001_FFmI021_F@007FmI00<006mIKeT0kFmI 0P00^6mI0P008fmI000MKeT00`00KeU_F@3_KeT00`00KeU_F@2dKeT00`00KeU_F@0SKeT001e_F@<0 0?1_F@800;=_F@03001_FFmI02A_F@007FmI00<006mIKeT0lVmI00<006mIKeT0[fmI00<006mIKeT0 9FmI000MKeT00`00KeU_F@3cKeT2002]KeT2000XKeT001e_F@03001_FFmI0?E_F@800:Y_F@03001_ FFmI02Q_F@007FmI00<006mIKeT0mfmI0P00YfmI00<006mIKeT0:FmI000MKeT00`00KeU_F@3iKeT2 002SKeT2000/KeT001e_F@03001_FFmI0?]_F@03001_FFmI09m_F@03001_FFmI02a_F@007FmI00<0 06mIKeT0o6mI0P00WVmI00<006mIKeT0;FmI000MKeT00`00KeU_F@3nKeT2002JKeT2000`KeT001e_ F@<00?m_F@5_F@8009I_F@80039_F@007FmI00<006mIKeT0ofmI0fmI0P00TVmI0P00=6mI000MKeT0 0`00KeU_F@3oKeT5KeT2002>KeT2000fKeT001e_F@03001_FFmI0?m_F@M_F@8008Y_F@8003Q_F@00 7FmI00<006mIKeT0ofmI2FmI0P00QVmI0P00>VmI000MKeT00`00KeU_F@3oKeT;KeT30021KeT2000l KeT001e_F@03001_FFmI0?m_F@i_F@8007e_F@8003i_F@007FmI00<006mIKeT0ofmI46mI0`00N6mI 0P00@6mI000MKeT3003oKeTCKeT2001dKeT20012KeT001e_F@03001_FFmI0?m_FAE_F@80071_F@80 04A_F@007FmI00<006mIKeT0ofmI5fmI0`00JVmI0`00AVmI000MKeT00`00KeU_F@3oKeTJKeT3001U KeT20019KeT001e_F@03001_FFmI0?m_FAe_F@@005i_F@<004]_F@007FmI00<006mIKeT0ofmI8FmI 0`00F6mI0`00CVmI000MKeT00`00KeU_F@3oKeTTKeT3001BKeT3001AKeT001e_F@03001_FFmI0?m_ FBM_F@<004a_F@<005A_F@007FmI0`00ofmI:VmI1000AFmI0`00EfmI000MKeT00`00KeU_F@3oKeT^ KeT4000mKeT4001JKeT001e_F@03001_FFmI0?m_FC9_F@L002i_F@P005i_F@007FmI00<006mIKeT0 ofmI>FmI1`008VmI1@00IVmI000MKeT00`00KeU_F@3oKeU0KeT9000AKeT8001[KeT001e_F@03001_ FFmI0?m_FDU_FA4007=_F@000VmI0P0016mI0P0016mI0P0016mI0P001fmI00<006mIKeT0ofmIcFmI 00001FmI001_FFmI000026mI00@006mIKeT0009_F@04001_FFmI0006KeT00`00KeU_F@3oKeW=KeT0 0005KeT006mIKeT0000:KeT00`00KeU_F@04KeT00`00KeU_F@04KeT4003oKeW"], ImageRangeCache->{{{0, 491.688}, {303.5, 0}} -> {-0.0664029, -0.0202543, \ 0.00221972, 0.00124402}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]], Cell["\<\ So this agrees really well with the actual value.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(\(\(\[IndentingNewLine]\)\(Show[A, F]\)\)\)], "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.952381 0.0147151 1.69934 [ [.21429 .00222 -9 -9 ] [.21429 .00222 9 0 ] [.40476 .00222 -9 -9 ] [.40476 .00222 9 0 ] [.59524 .00222 -9 -9 ] [.59524 .00222 9 0 ] [.78571 .00222 -9 -9 ] [.78571 .00222 9 0 ] [.97619 .00222 -3 -9 ] [.97619 .00222 3 0 ] [.01131 .09968 -24 -4.5 ] [.01131 .09968 0 4.5 ] [.01131 .18465 -18 -4.5 ] [.01131 .18465 0 4.5 ] [.01131 .26962 -24 -4.5 ] [.01131 .26962 0 4.5 ] [.01131 .35458 -18 -4.5 ] [.01131 .35458 0 4.5 ] [.01131 .43955 -24 -4.5 ] [.01131 .43955 0 4.5 ] [.01131 .52452 -18 -4.5 ] [.01131 .52452 0 4.5 ] [.01131 .60949 -24 -4.5 ] [.01131 .60949 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 .21429 .01472 m .21429 .02097 L s [(0.2)] .21429 .00222 0 1 Mshowa .40476 .01472 m .40476 .02097 L s [(0.4)] .40476 .00222 0 1 Mshowa .59524 .01472 m .59524 .02097 L s [(0.6)] .59524 .00222 0 1 Mshowa .78571 .01472 m .78571 .02097 L s [(0.8)] .78571 .00222 0 1 Mshowa .97619 .01472 m .97619 .02097 L s [(1)] .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 .2619 .01472 m .2619 .01847 L s .30952 .01472 m .30952 .01847 L s .35714 .01472 m .35714 .01847 L s .45238 .01472 m .45238 .01847 L s .5 .01472 m .5 .01847 L s .54762 .01472 m .54762 .01847 L s .64286 .01472 m .64286 .01847 L s .69048 .01472 m .69048 .01847 L s .7381 .01472 m .7381 .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 .09968 m .03006 .09968 L s [(0.05)] .01131 .09968 1 0 Mshowa .02381 .18465 m .03006 .18465 L s [(0.1)] .01131 .18465 1 0 Mshowa .02381 .26962 m .03006 .26962 L s [(0.15)] .01131 .26962 1 0 Mshowa .02381 .35458 m .03006 .35458 L s [(0.2)] .01131 .35458 1 0 Mshowa .02381 .43955 m .03006 .43955 L s [(0.25)] .01131 .43955 1 0 Mshowa .02381 .52452 m .03006 .52452 L s [(0.3)] .01131 .52452 1 0 Mshowa .02381 .60949 m .03006 .60949 L s [(0.35)] .01131 .60949 1 0 Mshowa .125 Mabswid .02381 .03171 m .02756 .03171 L s .02381 .0487 m .02756 .0487 L s .02381 .0657 m .02756 .0657 L s .02381 .08269 m .02756 .08269 L s .02381 .11668 m .02756 .11668 L s .02381 .13367 m .02756 .13367 L s .02381 .15066 m .02756 .15066 L s .02381 .16766 m .02756 .16766 L s .02381 .20164 m .02756 .20164 L s .02381 .21864 m .02756 .21864 L s .02381 .23563 m .02756 .23563 L s .02381 .25262 m .02756 .25262 L s .02381 .28661 m .02756 .28661 L s .02381 .3036 m .02756 .3036 L s .02381 .3206 m .02756 .3206 L s .02381 .33759 m .02756 .33759 L s .02381 .37158 m .02756 .37158 L s .02381 .38857 m .02756 .38857 L s .02381 .40556 m .02756 .40556 L s .02381 .42256 m .02756 .42256 L s .02381 .45654 m .02756 .45654 L s .02381 .47354 m .02756 .47354 L s .02381 .49053 m .02756 .49053 L s .02381 .50752 m .02756 .50752 L s .02381 .54151 m .02756 .54151 L s .02381 .5585 m .02756 .5585 L s .02381 .5755 m .02756 .5755 L s .02381 .59249 m .02756 .59249 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 .06244 .06245 L .10458 .11418 L .14415 .16214 L .18221 .20741 L .22272 .25436 L .26171 .29806 L .30316 .34257 L .34309 .38326 L .3815 .42008 L .42237 .45643 L .46172 .48838 L .49955 .516 L .53984 .54177 L .57861 .56274 L .61984 .58058 L .64043 .58768 L .65954 .59313 L .67803 .59733 L .69774 .60061 L .70802 .60182 L .71382 .60234 L .71915 .60273 L .72382 .60299 L .72648 .6031 L .72896 .60319 L .7303 .60323 L .73157 .60325 L .73273 .60328 L .73396 .6033 L .73459 .6033 L .73529 .60331 L .73653 .60332 L .73722 .60332 L .73797 .60332 L .73867 .60332 L .73932 .60331 L .7406 .6033 L .7418 .60329 L .74289 .60327 L .74406 .60325 L .74669 .60318 L .74912 .60309 L .75355 .60288 L .75824 .60258 L .7681 .60169 L .77894 .60031 L .78911 .59863 L .79839 .59675 L .81928 .59134 L Mistroke .83831 .58495 L .85904 .57635 L .89974 .55437 L .93892 .52656 L .97619 .49378 L Mfstroke .5 .58845 m .2619 .30162 L .18254 .20426 L .14286 .15857 L .11905 .12994 L .10317 .10695 L .09184 .09545 L .08333 .08392 L .07672 .07815 L .07143 .07239 L .0671 .06662 L .06349 .06085 L .06044 .05509 L .05782 .05509 L .05556 .04932 L .05357 .04932 L .05182 .04355 L .05026 .04355 L .04887 .04355 L .04762 .04355 L .04649 .03778 L .04545 .03778 L .04451 .03778 L .04365 .03778 L .04286 .03778 L .04212 .03202 L .04145 .03202 L .04082 .03202 L .04023 .03202 L .03968 .03202 L .03917 .03202 L .03869 .03202 L .03824 .03202 L .03782 .02625 L .03741 .02625 L .03704 .02625 L .03668 .02625 L .03634 .02625 L .03602 .02625 L .03571 .02625 L .03542 .02625 L .03515 .02625 L .03488 .02625 L .03463 .02625 L .03439 .02625 L .03416 .02625 L .03394 .02625 L .03373 .02625 L .03353 .02625 L .03333 .02625 L Mistroke .03315 .02048 L .03297 .02048 L .03279 .02048 L .03263 .02048 L .03247 .02048 L .03231 .02048 L .03216 .02048 L .03202 .02048 L .03188 .02048 L .03175 .02048 L .03162 .02048 L .03149 .02048 L .03137 .02048 L .03125 .02048 L .03114 .02048 L .03102 .02048 L .03092 .02048 L .03081 .02048 L .03071 .02048 L .03061 .02048 L .03052 .02048 L .03042 .02048 L .03033 .02048 L .03024 .02048 L .03016 .02048 L Mfstroke % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{503, 310.75}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgD0005_F@007VmI0P005FmI00<006mI KeT056mI00<006mIKeT056mI00<006mIKeT056mI00<006mIKeT056mI00<006mIKeT056mI00<006mI KeT056mI00<006mIKeT056mI00<006mIKeT056mI00<006mIKeT056mI00<006mIKeT056mI00<006mI KeT056mI00<006mIKeT056mI00<006mIKeT056mI00<006mIKeT056mI00<006mIKeT056mI00<006mI KeT056mI00<006mIKeT056mI00<006mIKeT056mI00<006mIKeT056mI00<006mIKeT02VmI000NKeT0 0`00KeT0000DKeT00`00KeU_F@0DKeT00`00KeU_F@0DKeT00`00KeU_F@0DKeT00`00KeU_F@0DKeT0 0`00KeU_F@0DKeT00`00KeU_F@0DKeT00`00KeU_F@0DKeT00`00KeU_F@0DKeT00`00KeU_F@0DKeT0 0`00KeU_F@0DKeT00`00KeU_F@0DKeT00`00KeU_F@0DKeT00`00KeU_F@0DKeT00`00KeU_F@0DKeT0 0`00KeU_F@0DKeT00`00KeU_F@0DKeT00`00KeU_F@0DKeT00`00KeU_F@0DKeT00`00KeU_F@0DKeT0 0`00KeU_F@0:KeT001i_F@03001_F@00008005M_F@03001_FFmI05U_F@03001_FFmI05U_F@03001_ FFmI05U_F@03001_FFmI05U_F@03001_FFmI00Y_F@007VmI00<006mIKeT00P00ofmIeFmI000NKeT0 1@00KeU_FFmI0000ofmIeFmI000NKeT01000KeU_FFmI0`00ofmIdfmI000NKeT00`00KeU_F@02KeT2 003oKeWCKeT001i_F@8000A_F@<00?m_FM5_F@007VmI00<006mIKeT016mI0P00ofmIdFmI000NKeT0 0`00KeU_F@05KeT2003oKeW@KeT001i_F@03001_FFmI00I_F@<00?m_FLi_F@007VmI00<006mIKeT0 1VmI00<006mI0000ofmIcVmI000NKeT00`00KeU_F@07KeT2003oKeW>KeT001i_F@03001_FFmI00Q_ F@<00?m_FLa_F@007VmI00<006mIKeT02FmI0P00ofmIc6mI000NKeT00`00KeU_F@0:KeT2003oKeW; KeT001i_F@8000]_F@<00?m_FLY_F@007VmI00<006mIKeT02fmI0P00ofmIbVmI000NKeT00`00KeU_ F@0KeT00`00KeT0003oKeW6KeT001i_F@03001_FFmI00m_ F@800?m_FLI_F@007VmI00<006mIKeT046mI0P00ofmIaFmI000NKeT2000BKeT00`00KeU_F@3oKeW3 KeT001i_F@03001_FFmI019_F@03001_FFmI0?m_FL9_F@007VmI00<006mIKeT04VmI0P00ofmI`fmI 000NKeT00`00KeU_F@0CKeT2003oKeW2KeT001i_F@03001_FFmI01A_F@800?m_FL5_F@007VmI00<0 06mIKeT05FmI00<006mIKeT0ofmI_fmI000NKeT00`00KeU_F@0FKeT00`00KeU_F@3oKeVnKeT001i_ F@03001_FFmI01M_F@03001_FFmI0?m_FKe_F@007VmI0P0066mI0P00ofmI_VmI000NKeT00`00KeU_ F@0HKeT2003oKeVmKeT001i_F@03001_FFmI01U_F@800?m_FKa_F@007VmI00<006mIKeT06VmI0P00 ofmI^fmI000NKeT00`00KeU_F@0KKeT00`00KeU_F@3oKeViKeT001i_F@03001_FFmI01a_F@03001_ FFmI0?m_FKQ_F@000VmI0P0016mI0P0016mI0P0016mI0P0026mI00<006mIKeT076mI0P00ofmI^FmI 00001FmI001_FFmI000026mI00@006mIKeT0009_F@04001_FFmI0007KeT00`00KeU_F@0MKeT2003o KeVhKeT00005KeT006mIKeT00008KeT01000KeU_F@001FmI00<006mIKeT01FmI10007FmI0P00ofmI ]fmI00001FmI001_FFmI000026mI00@006mIKeT000=_F@8000Q_F@03001_FFmI01m_F@800?m_FKI_ F@0000E_F@00KeU_F@0000Q_F@04001_FFmI0003KeT00`00KeU_F@07KeT00`00KeU_F@0PKeT2003o KeVeKeT0009_F@8000Y_F@8000A_F@<000M_F@03001_FFmI025_F@800?m_FKA_F@007VmI00<006mI KeT08FmI00<006mI0000ofmI/fmI000NKeT00`00KeU_F@0RKeT00`00KeT0003oKeVbKeT001i_F@03 001_FFmI02=_F@800?m_FK9_F@007VmI00<006mIKeT096mI0P00ofmI/FmI000NKeT2000VKeT2003o KeV`KeT001i_F@03001_FFmI02I_F@800?m_FJm_F@007VmI00<006mIKeT09VmI0P00ofmI[fmI000N KeT00`00KeU_F@0WKeT2003oKeV^KeT001i_F@03001_FFmI02Q_F@800?m_FJe_F@007VmI00<006mI KeT0:FmI0P00ofmI[6mI000NKeT00`00KeU_F@0ZKeT00`00KeU_F@3oKeVZKeT001i_F@03001_FFmI 02]_F@03001_FFmI0?m_FJU_F@007VmI00<006mIKeT0:fmI0P00ofmIZVmI000NKeT2000]KeT2003o KeVYKeT001i_F@03001_FFmI02e_F@03001_FFmI0?m_FJM_F@007VmI00<006mIKeT0;VmI00<006mI KeT0ofmIYVmI000NKeT00`00KeU_F@0_KeT00`00KeU_F@3oKeVUKeT001i_F@03001_FFmI031_F@03 001_FFmI0?m_FJA_F@007VmI00<006mIKeT0<6mI00<006mIKeT0ofmIY6mI000NKeT00`00KeU_F@0a KeT00`00KeU_F@3oKeVSKeT001i_F@03001_FFmI039_F@03001_FFmI0?m_FJ9_F@007VmI0P00=6mI 00<006mIKeT0ofmIXFmI000NKeT00`00KeU_F@0dKeT00`00KeU_F@3oKeVPKeT001i_F@03001_FFmI 03A_F@800?m_FJ5_F@007VmI00<006mIKeT0=FmI00<006mIKeT0ofmIWfmI000NKeT00`00KeU_F@0f KeT00`00KeU_F@3oKeVNKeT001i_F@03001_FFmI03M_F@03001_FFmI0?m_FIe_F@007VmI00<006mI KeT0>6mI00<006mIKeT0ofmIW6mI000NKeT00`00KeU_F@0iKeT00`00KeU_F@3oKeVKKeT001i_F@80 03Y_F@03001_FFmI0?m_FI]_F@007VmI00<006mIKeT0>VmI00<006mIKeT0ofmIVVmI000NKeT00`00 KeU_F@0kKeT00`00KeU_F@3oKeVIKeT001i_F@03001_FFmI03a_F@03001_FFmI0?m_FIQ_F@007VmI 00<006mIKeT0?FmI00<006mIKeT0ofmIUfmI000NKeT00`00KeU_F@0nKeT00`00KeU_F@3oKeVFKeT0 00Q_F@8000A_F@8000=_F@D000I_F@03001_FFmI03i_F@800?m_FIM_F@001fmI00@006mIKeT000Y_ F@03001_FFmI00I_F@03001_FFmI03m_F@03001_FFmI0?m_FIE_F@001fmI00@006mIKeT000Y_F@03 001_FFmI00I_F@@003m_F@03001_FFmI0?m_FIA_F@001fmI00@006mIKeT000Y_F@03001_FFmI00I_ F@03001_FFmI045_F@03001_FFmI0?m_FI=_F@001fmI00@006mIKeT000Y_F@03001_FFmI00I_F@03 001_FFmI049_F@03001_FFmI0?m_FI9_F@0026mI0P002VmI0P0026mI00<006mIKeT0@VmI0P00ofmI TfmI000NKeT00`00KeU_F@13KeT2003oKeVBKeT001i_F@03001_FFmI04A_F@800?m_FI5_F@007VmI 00<006mIKeT0AFmI0P00ofmIT6mI000NKeT00`00KeU_F@16KeT00`00KeU_F@3oKeV>KeT001i_F@80 04Q_F@03001_FFmI0?m_FHe_F@007VmI00<006mIKeT0AfmI0P00ofmISVmI000NKeT00`00KeU_F@18 KeT2003oKeV=KeT001i_F@03001_FFmI04U_F@800?m_FHa_F@007VmI00<006mIKeT0BVmI0P00ofmI RfmI000NKeT00`00KeU_F@1;KeT00`00KeU_F@3oKeV9KeT001i_F@03001_FFmI04a_F@03001_FFmI 0?m_FHQ_F@007VmI00<006mIKeT0C6mI0P00ofmIRFmI000NKeT00`00KeU_F@1=KeT2003oKeV8KeT0 01i_F@8004m_F@800?m_FHM_F@007VmI00<006mIKeT0CfmI0P00ofmIQVmI000NKeT00`00KeU_F@1@ KeT00`00KeU_F@3oKeV4KeT001i_F@03001_FFmI055_F@03001_FFmI0?m_FH=_F@007VmI00<006mI KeT0DVmI00<006mIKeT0ofmIPVmI000NKeT00`00KeU_F@1CKeT00`00KeU_F@3oKeV1KeT001i_F@03 001_FFmI05=_F@800?m_FH9_F@007VmI00<006mIKeT0E6mI0P00ofmIPFmI000NKeT2001FKeT00`00 KeU_F@3oKeUoKeT001i_F@03001_FFmI05I_F@03001_FFmI0?m_FGi_F@007VmI00<006mIKeT0EfmI 00<006mIKeT0ofmIOFmI000NKeT00`00KeU_F@1HKeT00`00KeU_F@3oKeUlKeT001i_F@03001_FFmI 05U_F@03001_FFmI0?m_FG]_F@007VmI00<006mIKeT0FVmI00<006mIKeT0ofmINVmI000NKeT00`00 KeU_F@1JKeT00`00KeU_F@3oKeUjKeT001i_F@03001_FFmI05]_F@03001_FFmI0?m_FGU_F@007VmI 0P00GFmI00<006mIKeT0ofmIN6mI000NKeT00`00KeU_F@1MKeT00`00KeU_F@3oKeUgKeT001i_F@03 001_FFmI05i_F@03001_FFmI0?m_FGI_F@007VmI00<006mIKeT0GfmI00<006mIKeT0ofmIMFmI000N KeT00`00KeU_F@1OKeT2003oKeUfKeT001i_F@03001_FFmI061_F@800?m_FGE_F@000VmI0P0016mI 0P000fmI1@000VmI0P0026mI00<006mIKeT0HFmI0P00ofmIM6mI00001FmI001_FFmI00002VmI00D0 06mIKeU_F@00009_F@03001_FFmI00E_F@03001_FFmI069_F@03001_FFmI0?m_FG9_F@0000E_F@00 KeU_F@0000Y_F@03001_FFmI00A_F@03001_FFmI00E_F@@0069_F@03001_FFmI0?m_FG5_F@0000E_ F@00KeU_F@0000Y_F@03001_FFmI009_F@8000Q_F@03001_FFmI06A_F@03001_FFmI0?m_FG1_F@00 00E_F@00KeU_F@0000Y_F@03001_FFmI009_F@03001_FFmI00M_F@03001_FFmI06A_F@800?m_FG5_ F@000VmI0P002VmI0P0016mI0`001fmI00<006mIKeT0IFmI0P00ofmIL6mI000NKeT00`00KeU_F@1V KeT2003oKeU_KeT001i_F@03001_FFmI06M_F@800?m_FFi_F@007VmI00<006mIKeT0J6mI0P00ofmI KFmI000NKeT00`00KeU_F@1YKeT2003oKeU/KeT001i_F@03001_FFmI06U_F@03001_F@000?m_FF]_ F@007VmI0P00JfmI0P00ofmIJfmI000NKeT00`00KeU_F@1[KeT2003oKeUZKeT001i_F@03001_FFmI 06a_F@800?m_FFU_F@007VmI00<006mIKeT0KFmI0P00ofmIJ6mI000NKeT00`00KeU_F@1^KeT2003o KeUWKeT001i_F@03001_FFmI06i_F@03001_F@000?m_FFI_F@007VmI00<006mIKeT0KfmI00<006mI 0000ofmIIFmI000NKeT00`00KeU_F@1`KeT00`00KeT0003oKeUTKeT001i_F@80079_F@03001_F@00 0?m_FF=_F@007VmI00<006mIKeT0LVmI00<006mI0000ofmIHVmI000NKeT00`00KeU_F@1bKeT01000 KeU_F@00ofmIHFmI000NKeT00`00KeU_F@1cKeT00`00KeT0003oKeUQKeT001i_F@03001_FFmI07A_ F@03001_F@000?m_FF1_F@007VmI00<006mIKeT0MFmI00<006mI0000ofmIGfmI000NKeT00`00KeU_ F@1fKeT00`00KeT0003oKeUNKeT001i_F@03001_FFmI07M_F@03001_F@000?m_FEe_F@007VmI0P00 N6mI00@006mIKeT00?m_FEa_F@007VmI00<006mIKeT0N6mI00@006mIKeT00?m_FE]_F@007VmI00<0 06mIKeT0NFmI00@006mIKeT00?m_FEY_F@007VmI00<006mIKeT0NVmI00@006mIKeT00?m_FEU_F@00 7VmI00<006mIKeT0NfmI00@006mIKeT00?m_FEQ_F@007VmI00<006mIKeT0O6mI00@006mIKeT00?m_ FEM_F@007VmI00<006mIKeT0O6mI00@006mIKeT00?m_FEM_F@007VmI00<006mIKeT0OFmI00@006mI KeT00?m_FEI_F@007VmI0P00OfmI00@006mIKeT00?m_FEE_F@007VmI00<006mIKeT0OfmI00@006mI KeT00?m_FEA_F@007VmI00<006mIKeT0P6mI00@006mIKeT00?m_FE=_F@007VmI00<006mIKeT0PFmI 00@006mIKeT00?m_FE9_F@007VmI00<006mIKeT0PFmI00D006mIKeU_F@000?m_FE5_F@007VmI00<0 06mIKeT0PVmI00D006mIKeU_F@000?m_FE1_F@0026mI0P0016mI0P000fmI10001fmI00<006mIKeT0 PfmI00D006mIKeU_F@000?m_FDm_F@001fmI00@006mIKeT000Q_F@03001_FFmI00Q_F@03001_FFmI 08A_F@05001_FFmIKeT0003oKeU>KeT000M_F@04001_FFmI0009KeT00`00KeU_F@07KeT40024KeT0 1@00KeU_FFmI0000ofmICFmI0007KeT01000KeU_F@002VmI00<006mIKeT01VmI00<006mIKeT0QVmI 00D006mIKeU_F@000?m_FDa_F@001fmI00@006mIKeT000Q_F@04001_FFmI0007KeT00`00KeU_F@26 KeT00`00KeU_F@02KeT00`00KeU_F@3oKeU9KeT000Q_F@8000Y_F@8000Q_F@03001_FFmI08M_F@03 001_FFmI009_F@03001_FFmI0?m_FDQ_F@007VmI00<006mIKeT0R6mI00<006mIKeT00VmI00<006mI KeT0ofmIAfmI000NKeT00`00KeU_F@29KeT00`00KeU_F@02KeT00`00KeU_F@3oKeU6KeT001i_F@03 001_FFmI08Y_F@03001_FFmI009_F@03001_FFmI0?m_FDE_F@007VmI00<006mIKeT0RfmI00<006mI KeT00VmI00<006mIKeT0ofmIA6mI000NKeT00`00KeU_F@2;KeT00`00KeU_F@03KeT00`00KeU_F@3o KeU3KeT001i_F@8008e_F@03001_FFmI00=_F@03001_FFmI0?m_FD9_F@007VmI00<006mIKeT0SFmI 00<006mIKeT00fmI00<006mIKeT0ofmI@FmI000NKeT00`00KeU_F@2>KeT00`00KeU_F@03KeT00`00 KeU_F@3oKeU0KeT001i_F@03001_FFmI08m_F@03001_FFmI00=_F@03001_FFmI0?m_FCm_F@007VmI 00<006mIKeT0T6mI00<006mIKeT00fmI00<006mIKeT0ofmI?VmI000NKeT00`00KeU_F@2@KeT00`00 KeU_F@04KeT00`00KeU_F@3oKeTmKeT001i_F@03001_FFmI095_F@03001_FFmI00A_F@03001_FFmI 0?m_FCa_F@007VmI00<006mIKeT0TVmI00<006mIKeT016mI00<006mIKeT0ofmI>fmI000NKeT2002D KeT00`00KeU_F@04KeT00`00KeU_F@3oKeTjKeT001i_F@03001_FFmI09A_F@03001_FFmI00A_F@03 001_FFmI0?m_FCU_F@007VmI00<006mIKeT0UFmI00<006mIKeT016mI00<006mIKeT0ofmI>6mI000N KeT00`00KeU_F@2EKeT00`00KeU_F@05KeT00`00KeU_F@3oKeTgKeT001i_F@03001_FFmI09I_F@03 001_FFmI00E_F@03001_FFmI0?m_FCI_F@007VmI00<006mIKeT0UfmI00<006mIKeT01FmI00<006mI KeT0ofmI=FmI000NKeT00`00KeU_F@2HKeT00`00KeU_F@05KeT00`00KeU_F@3oKeTdKeT001i_F@03 001_FFmI09U_F@03001_FFmI00E_F@03001_FFmI0?m_FC=_F@007VmI0P00VfmI00<006mIKeT01FmI 00<006mIKeT0ofmIKeT2003oKeTAKeT001i_F@03001_FFmI0;A_F@03001_FFmI00m_F@03001_FFmI 0?m_F@i_F@007VmI0P00]VmI00<006mIKeT03fmI00<006mIKeT0ofmI3FmI000NKeT00`00KeU_F@2f KeT00`00KeU_F@0?KeT2003oKeT=KeT001i_F@03001_FFmI0;M_F@03001_FFmI011_F@03001_FFmI 0?m_F@Y_F@007VmI00<006mIKeT0^6mI00<006mIKeT046mI00<006mIKeT0ofmI2FmI000NKeT00`00 KeU_F@2hKeT00`00KeU_F@0AKeT00`00KeU_F@3oKeT8KeT001i_F@03001_FFmI0;U_F@03001_FFmI 015_F@800?m_F@Q_F@007VmI00<006mIKeT0^VmI00<006mIKeT04VmI00<006mIKeT0ofmI1FmI000N KeT00`00KeU_F@2kKeT00`00KeU_F@0BKeT00`00KeU_F@3oKeT4KeT001i_F@800;e_F@03001_FFmI 019_F@800?m_F@A_F@007VmI00<006mIKeT0_FmI00<006mIKeT04fmI00<006mIKeT0ofmI0FmI000N KeT00`00KeU_F@2mKeT00`00KeU_F@0DKeT2003cKeT00`00KeU_F@0:KeT001i_F@03001_FFmI0;i_ F@03001_FFmI01E_F@03001_FFmI0>m_F@03001_FFmI00]_F@007VmI00<006mIKeT0_fmI00<006mI KeT05FmI0P00kVmI00<006mIKeT036mI000NKeT00`00KeU_F@30KeT00`00KeU_F@0FKeT00`00KeU_ F@3ZKeT00`00KeU_F@0=KeT001i_F@03001_FFmI0<5_F@03001_FFmI01I_F@03001_FFmI0>M_F@80 011_F@007VmI00<006mIKeT0`VmI00<006mIKeT05VmI0P00iVmI00<006mIKeT046mI000NKeT20033 KeT00`00KeU_F@0HKeT00`00KeU_F@3RKeT00`00KeU_F@0AKeT001i_F@03001_FFmI0<=_F@03001_ FFmI01Q_F@800>5_F@03001_FFmI019_F@007VmI00<006mIKeT0a6mI00<006mIKeT06FmI00<006mI KeT0gFmI00<006mIKeT04fmI000NKeT00`00KeU_F@35KeT00`00KeU_F@0IKeT2003LKeT00`00KeU_ F@0DKeT001i_F@03001_FFmI0fmI000N KeT00`00KeU_F@3KKeT00`00KeU_F@0aKeT20026KeT2000mKeT001i_F@03001_FFmI0=a_F@03001_ FFmI039_F@80089_F@8003m_F@007VmI00<006mIKeT0gFmI00<006mIKeT05_F@03001_ FFmI03]_F@<006I_F@8004a_F@007VmI00<006mIKeT0hVmI00<006mIKeT0?FmI1000GfmI0`00CVmI 000NKeT00`00KeU_F@3SKeT00`00KeU_F@10KeT3001IKeT3001AKeT001i_F@03001_FFmI0?m_FBY_ F@<005=_F@<005A_F@007VmI0P00ofmI;VmI0`00CFmI0`00EfmI000NKeT00`00KeU_F@3oKeT`KeT4 0016KeT3001JKeT001i_F@03001_FFmI0?m_FCA_F@@003i_F@@005e_F@007VmI00<006mIKeT0ofmI >6mI1`00;fmI2000HFmI000NKeT00`00KeU_F@3oKeToKeT7000SKeT5001YKeT001i_F@03001_FFmI 0?m_FDI_F@T000m_F@/006i_F@007VmI00<006mIKeT0ofmICfmI3`00NFmI0002KeT20004KeT20004 KeT20004KeT20008KeT00`00KeU_F@3oKeWGKeT00005KeT006mIKeT00008KeT01000KeU_F@000VmI 00@006mIKeT000M_F@03001_FFmI0?m_FMM_F@0000E_F@00KeU_F@0000Y_F@03001_FFmI00A_F@03 001_FFmI00E_F@@00?m_FMI_F@0000E_F@00KeU_F@0000]_F@04001_FFmIKeT20008KeT00`00KeU_ F@3oKeWGKeT00005KeT006mIKeT00008KeT01000KeU_F@000fmI00<006mIKeT01fmI00<006mIKeT0 ofmIefmI0002KeT2000:KeT20004KeT30007KeT00`00KeU_F@3oKeWGKeT001i_F@03001_FFmI0?m_ FMM_F@00ofmIn6mI0000\ \>"], ImageRangeCache->{{{0, 502}, {309.75, 0}} -> {-0.0652536, -0.0199248, \ 0.00217183, 0.00121718}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]], Cell["\<\ This agrees with the approxmiate form of the determinant for larger \ separations (which isn't surprising--I recovered the Log[2] part). This \ seems to be indicative of why I couldn't recover the density-cubed term.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(\(\(\[IndentingNewLine]\)\(Show[B, F, \ PlotRange \[Rule] {{0, 1}, \ {0, \ 0.5}}]\)\)\)], "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 1 0 1.23607 [ [.2 -0.0125 -9 -9 ] [.2 -0.0125 9 0 ] [.4 -0.0125 -9 -9 ] [.4 -0.0125 9 0 ] [.6 -0.0125 -9 -9 ] [.6 -0.0125 9 0 ] [.8 -0.0125 -9 -9 ] [.8 -0.0125 9 0 ] [1 -0.0125 -3 -9 ] [1 -0.0125 3 0 ] [-0.0125 .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 .2 0 m .2 .00625 L s [(0.2)] .2 -0.0125 0 1 Mshowa .4 0 m .4 .00625 L s [(0.4)] .4 -0.0125 0 1 Mshowa .6 0 m .6 .00625 L s [(0.6)] .6 -0.0125 0 1 Mshowa .8 0 m .8 .00625 L s [(0.8)] .8 -0.0125 0 1 Mshowa 1 0 m 1 .00625 L s [(1)] 1 -0.0125 0 1 Mshowa .125 Mabswid .05 0 m .05 .00375 L s .1 0 m .1 .00375 L s .15 0 m .15 .00375 L s .25 0 m .25 .00375 L s .3 0 m .3 .00375 L s .35 0 m .35 .00375 L s .45 0 m .45 .00375 L s .5 0 m .5 .00375 L s .55 0 m .55 .00375 L s .65 0 m .65 .00375 L s .7 0 m .7 .00375 L s .75 0 m .75 .00375 L s .85 0 m .85 .00375 L s .9 0 m .9 .00375 L s .95 0 m .95 .00375 L s .25 Mabswid 0 0 m 1 0 L s 0 .12361 m .00625 .12361 L s [(0.1)] -0.0125 .12361 1 0 Mshowa 0 .24721 m .00625 .24721 L s [(0.2)] -0.0125 .24721 1 0 Mshowa 0 .37082 m .00625 .37082 L s [(0.3)] -0.0125 .37082 1 0 Mshowa 0 .49443 m .00625 .49443 L s [(0.4)] -0.0125 .49443 1 0 Mshowa 0 .61803 m .00625 .61803 L s [(0.5)] -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 .5 .36547 m .25 .20438 L .16667 .13729 L .125 .10455 L .1 .0838 L .08333 .06709 L .07143 .05872 L .0625 .05034 L .05556 .04614 L .05 .04195 L .04545 .03776 L .04167 .03356 L .03846 .02937 L .03571 .02937 L .03333 .02517 L .03125 .02517 L .02941 .02098 L .02778 .02098 L .02632 .02098 L .025 .02098 L .02381 .01678 L .02273 .01678 L .02174 .01678 L .02083 .01678 L .02 .01678 L .01923 .01259 L .01852 .01259 L .01786 .01259 L .01724 .01259 L .01667 .01259 L .01613 .01259 L .01563 .01259 L .01515 .01259 L .01471 .00839 L .01429 .00839 L .01389 .00839 L .01351 .00839 L .01316 .00839 L .01282 .00839 L .0125 .00839 L .0122 .00839 L .0119 .00839 L .01163 .00839 L .01136 .00839 L .01111 .00839 L .01087 .00839 L .01064 .00839 L .01042 .00839 L .0102 .00839 L .01 .00839 L Mistroke .0098 .0042 L .00962 .0042 L .00943 .0042 L .00926 .0042 L .00909 .0042 L .00893 .0042 L .00877 .0042 L .00862 .0042 L .00847 .0042 L .00833 .0042 L .0082 .0042 L .00806 .0042 L .00794 .0042 L .00781 .0042 L .00769 .0042 L .00758 .0042 L .00746 .0042 L .00735 .0042 L .00725 .0042 L .00714 .0042 L .00704 .0042 L .00694 .0042 L .00685 .0042 L .00676 .0042 L .00667 .0042 L Mfstroke .5 .41733 m .25 .20869 L .16667 .13787 L .125 .10464 L .1 .08381 L .08333 .06709 L .07143 .05872 L .0625 .05034 L .05556 .04614 L .05 .04195 L .04545 .03776 L .04167 .03356 L .03846 .02937 L .03571 .02937 L .03333 .02517 L .03125 .02517 L .02941 .02098 L .02778 .02098 L .02632 .02098 L .025 .02098 L .02381 .01678 L .02273 .01678 L .02174 .01678 L .02083 .01678 L .02 .01678 L .01923 .01259 L .01852 .01259 L .01786 .01259 L .01724 .01259 L .01667 .01259 L .01613 .01259 L .01563 .01259 L .01515 .01259 L .01471 .00839 L .01429 .00839 L .01389 .00839 L .01351 .00839 L .01316 .00839 L .01282 .00839 L .0125 .00839 L .0122 .00839 L .0119 .00839 L .01163 .00839 L .01136 .00839 L .01111 .00839 L .01087 .00839 L .01064 .00839 L .01042 .00839 L .0102 .00839 L .01 .00839 L Mistroke .0098 .0042 L .00962 .0042 L .00943 .0042 L .00926 .0042 L .00909 .0042 L .00893 .0042 L .00877 .0042 L .00862 .0042 L .00847 .0042 L .00833 .0042 L .0082 .0042 L .00806 .0042 L .00794 .0042 L .00781 .0042 L .00769 .0042 L .00758 .0042 L .00746 .0042 L .00735 .0042 L .00725 .0042 L .00714 .0042 L .00704 .0042 L .00694 .0042 L .00685 .0042 L .00676 .0042 L .00667 .0042 L Mfstroke % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{536.625, 331.625}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgVmI00<006mIKeT0ofmI_fmI000JKeT00`00KeU_F@0kKeT00`00 KeU_F@3oKeVnKeT001Y_F@03001_FFmI03a_F@03001_FFmI0?m_FKe_F@006VmI00<006mIKeT0?FmI 00<006mIKeT0ofmI_6mI000JKeT00`00KeU_F@0nKeT2003oKeVlKeT001Y_F@03001_FFmI041_F@03 001_FFmI0?m_FKU_F@006VmI00<006mIKeT0@FmI00<006mIKeT0ofmI^6mI000JKeT00`00KeU_F@12 KeT2003oKeVhKeT001Y_F@03001_FFmI04=_F@800?m_FKM_F@0016mI0P0016mI0P000fmI1@001VmI 00<006mIKeT0AFmI00<006mIKeT0ofmI]6mI0003KeT01000KeU_F@002VmI00<006mIKeT01VmI00<0 06mIKeT0AVmI0P00ofmI]6mI0003KeT01000KeU_F@002VmI00<006mIKeT01VmI1@00AFmI0P00ofmI /fmI0003KeT01000KeU_F@002VmI00<006mIKeT01VmI00<006mIKeT0B6mI0P00ofmI/VmI0003KeT0 1000KeU_F@002VmI00<006mIKeT01VmI00<006mIKeT0BFmI0`00ofmI/6mI0004KeT2000:KeT20008 KeT00`00KeU_F@1;KeT2003oKeV_KeT001Y_F@03001_FFmI04a_F@800?m_FJi_F@006VmI00<006mI KeT0CFmI0`00ofmI[6mI000JKeT00`00KeU_F@1>KeT3003oKeV[KeT001Y_F@03001_FFmI051_F@80 0?m_FJY_F@006VmI00<006mIKeT0DFmI0P00ofmIZFmI000JKeT00`00KeU_F@1BKeT3003oKeVWKeT0 01Y_F@03001_FFmI05=_F@03001_F@000?m_FJI_F@006VmI00<006mIKeT0E6mI0`00ofmIYFmI000J KeT00`00KeU_F@1FKeT2003oKeVTKeT001Y_F@<005M_F@<00?m_FJ9_F@006VmI00<006mIKeT0F6mI 00<006mI0000ofmIXFmI000JKeT00`00KeU_F@1IKeT00`00KeT0003oKeVPKeT001Y_F@03001_FFmI 05Y_F@<00?m_FIm_F@006VmI00<006mIKeT0G6mI0P00ofmIWVmI000JKeT00`00KeU_F@1MKeT3003o KeVLKeT001Y_F@03001_FFmI05i_F@03001_F@000?m_FI]_F@006VmI00<006mIKeT0GfmI00<006mI 0000ofmIVVmI000JKeT00`00KeU_F@1PKeT3003oKeVIKeT001Y_F@03001_FFmI069_F@<00?m_FIM_ F@006VmI00<006mIKeT0HfmI00<006mI0000ofmIUVmI000JKeT00`00KeU_F@1TKeT00`00KeT0003o KeVEKeT001Y_F@<006E_F@03001_F@000?m_FIA_F@006VmI00<006mIKeT0IVmI1000ofmITVmI000J KeT00`00KeU_F@1XKeT00`00KeT0003oKeVAKeT001Y_F@03001_FFmI06U_F@03001_F@000?m_FI1_ F@006VmI00<006mIKeT0JVmI00<006mI0000ofmISfmI000JKeT00`00KeU_F@1[KeT01000KeT00000 ofmISFmI000JKeT00`00KeU_F@1/KeT200000fmI001_F@3oKeV;KeT001Y_F@03001_FFmI06i_F@03 001_F@000?m_FH]_F@006VmI00<006mIKeT0KfmI00<006mI0000ofmIRVmI000JKeT00`00KeU_F@1` KeT00`00KeT0003oKeV9KeT001Y_F@03001_FFmI075_F@04001_F@00003oKeV7KeT001Y_F@03001_ FFmI079_F@800003KeT006mI0?m_FHE_F@006VmI00<006mIKeT0M6mI00<006mI0000ofmIQFmI000J KeT3001eKeT00`00KeT0003oKeV4KeT001Y_F@03001_FFmI07I_F@04001_F@00003oKeV2KeT001Y_ F@03001_FFmI07M_F@04001_FFmI003oKeV1KeT001Y_F@03001_FFmI07Q_F@800003KeT006mI0?m_ FGm_F@006VmI00<006mIKeT0NVmI00@006mI00000?m_FGi_F@006VmI00<006mIKeT0NfmI00@006mI KeT00?m_FGe_F@006VmI00<006mIKeT0O6mI00<006mIKeT00P00ofmINfmI000JKeT00`00KeU_F@1m KeT01@00KeU_FFmI0000ofmINVmI000JKeT00`00KeU_F@1nKeT20002KeT2003oKeUhKeT001Y_F@03 001_FFmI081_F@04001_FFmIKeT2003oKeUfKeT001Y_F@03001_FFmI085_F@03001_FFmI009_F@03 001_FFmI0?m_FG=_F@006VmI00<006mIKeT0PVmI00<006mIKeT00VmI0P00ofmILfmI000JKeT30023 KeT00`00KeU_F@03KeT00`00KeU_F@3oKeU`KeT001Y_F@03001_FFmI08A_F@8000A_F@800?m_FG1_ F@006VmI00<006mIKeT0QVmI00<006mIKeT00fmI00<006mIKeT0ofmIKFmI000JKeT00`00KeU_F@27 KeT00`00KeU_F@03KeT2003oKeU]KeT001Y_F@03001_FFmI08Q_F@03001_FFmI00A_F@03001_FFmI 0?m_FFY_F@006VmI00<006mIKeT0RFmI00<006mIKeT016mI0P00ofmIJVmI000JKeT00`00KeU_F@2: KeT20006KeT2003oKeUXKeT001Y_F@03001_FFmI08a_F@03001_FFmI00E_F@03001_FFmI0?m_FFE_ F@006VmI00<006mIKeT0SFmI00<006mIKeT01FmI0P00ofmIIFmI000JKeT00`00KeU_F@2>KeT00`00 KeU_F@06KeT00`00KeU_F@3oKeURKeT000A_F@8000A_F@8000=_F@@000M_F@03001_FFmI08m_F@03 001_FFmI00I_F@800?m_FF9_F@000fmI00@006mIKeT000Q_F@03001_FFmI00Q_F@03001_FFmI091_ F@8000Q_F@03001_FFmI0?m_FEm_F@000fmI00@006mIKeT000U_F@03001_FFmI00M_F@D0091_F@03 001_FFmI00I_F@800?m_FEm_F@000fmI00@006mIKeT000Y_F@03001_FFmI00I_F@03001_FFmI09=_ F@03001_FFmI00M_F@03001_FFmI0?m_FEa_F@000fmI00@006mIKeT000Q_F@04001_FFmI0007KeT0 0`00KeU_F@2DKeT00`00KeU_F@07KeT2003oKeULKeT000A_F@8000Y_F@8000Q_F@03001_FFmI09E_ F@03001_FFmI00Q_F@800?m_FEY_F@006VmI00<006mIKeT0UVmI0P002VmI00<006mIKeT0ofmIEfmI 000JKeT00`00KeU_F@2HKeT00`00KeU_F@08KeT2003oKeUGKeT001Y_F@03001_FFmI09U_F@03001_ FFmI00U_F@03001_FFmI0?m_FEA_F@006VmI00<006mIKeT0VVmI00<006mIKeT02FmI0P00ofmIE6mI 000JKeT00`00KeU_F@2KKeT00`00KeU_F@0:KeT00`00KeU_F@3oKeUAKeT001Y_F@03001_FFmI09a_ F@8000]_F@800?m_FE5_F@006VmI00<006mIKeT0WVmI00<006mIKeT02VmI00<006mIKeT0ofmICVmI 000JKeT00`00KeU_F@2OKeT00`00KeU_F@0:KeT2003oKeU>KeT001Y_F@03001_FFmI0:1_F@03001_ FFmI00]_F@800?m_FDa_F@006VmI0`00XFmI00<006mIKeT036mI00<006mIKeT0ofmIBFmI000JKeT0 0`00KeU_F@2RKeT2000=KeT2003oKeU9KeT001Y_F@03001_FFmI0:A_F@03001_FFmI00a_F@03001_ FFmI0?m_FDI_F@006VmI00<006mIKeT0YFmI00<006mIKeT036mI0P00ofmIAVmI000JKeT00`00KeU_ F@2VKeT00`00KeU_F@0=KeT00`00KeU_F@3oKeU3KeT001Y_F@03001_FFmI0:M_F@03001_FFmI00e_ F@800?m_FD=_F@006VmI00<006mIKeT0Z6mI0P003fmI00<006mIKeT0ofmI@6mI000JKeT00`00KeU_ F@2ZKeT00`00KeU_F@0=KeT2003oKeU0KeT001Y_F@03001_FFmI0:]_F@03001_FFmI00i_F@800?m_ FCi_F@006VmI00<006mIKeT0[6mI00<006mIKeT03fmI00<006mIKeT0ofmI>fmI000JKeT00`00KeU_ F@2]KeT00`00KeU_F@0?KeT2003oKeTkKeT001Y_F@03001_FFmI0:i_F@80015_F@03001_FFmI0?m_ FCQ_F@006VmI0`00/6mI00<006mIKeT03fmI0P00ofmI>6mI000JKeT00`00KeU_F@2aKeT00`00KeU_ F@0@KeT00`00KeU_F@3oKeTeKeT001Y_F@03001_FFmI0;9_F@03001_FFmI011_F@800?m_FCE_F@00 6VmI00<006mIKeT0/fmI00<006mIKeT04FmI00<006mIKeT0ofmIKeT00`00KeU_F@0HKeT2003oKeTAKeT001Y_F@03001_ FFmI05_F@03001_FFmI0?m_FAQ_F@006VmI00<006mIKeT0hVmI00<006mI KeT0ofmI5fmI000JKeT00`00KeU_F@3SKeT00`00KeU_F@3oKeTFKeT001Y_F@03001_FFmI0>A_F@80 0?m_FAI_F@006VmI00<006mIKeT0iVmI00<006mIKeT0ofmI4fmI000JKeT00`00KeU_F@3WKeT00`00 KeU_F@3oKeTBKeT001Y_F@03001_FFmI0>Q_F@03001_FFmI0?m_FA5_F@006VmI00<006mIKeT0jFmI 00<006mIKeT0ofmI46mI000JKeT00`00KeU_F@3ZKeT2003oKeT@KeT001Y_F@<00>a_F@03001_FFmI 0?m_F@e_F@006VmI00<006mIKeT0kFmI00<006mIKeT0ofmI36mI000JKeT00`00KeU_F@3^KeT00`00 KeU_F@3oKeT;KeT001Y_F@03001_FFmI0>m_F@03001_FFmI0?m_F@Y_F@006VmI00<006mIKeT0l6mI 0P00ofmI2VmI000JKeT00`00KeU_F@3bKeT00`00KeU_F@3oKeT7KeT001Y_F@03001_FFmI0?=_F@03 001_FFmI0?m_F@I_F@006VmI00<006mIKeT0m6mI00<006mIKeT0ofmI1FmI000JKeT00`00KeU_F@3e KeT00`00KeU_F@3oKeT4KeT001Y_F@03001_FFmI0?I_F@800?m_F@A_F@006VmI00<006mIKeT0n6mI 00<006mIKeT0ofmI0FmI000JKeT00`00KeU_F@3iKeT00`00KeU_F@3oKeT001Y_F@03001_FFmI0?m_ FOa_F@006VmI0`00ofmIo6mI000JKeT00`00KeU_F@3oKeWlKeT001Y_F@03001_FFmI0?m_FOa_F@00 6VmI00<006mIKeT0ofmIo6mI000JKeT00`00KeU_F@3oKeWlKeT001Y_F@03001_FFmI0?m_FOa_F@00 6VmI00<006mIKeT0ofmIo6mI000JKeT00`00KeU_F@3oKeWlKeT001Y_F@03001_FFmI0?m_FOa_F@00 6VmI00<006mIKeT0ofmIo6mI000JKeT00`00KeU_F@3oKeWlKeT001Y_F@03001_FFmI0?m_FOa_F@00 6VmI0`00ofmIo6mI000JKeT00`00KeU_F@3oKeWlKeT001Y_F@03001_FFmI0?m_FOa_F@006VmI00<0 06mIKeT0ofmIo6mI000JKeT00`00KeU_F@3oKeWlKeT001Y_F@03001_FFmI0?m_FOa_F@006VmI00<0 06mIKeT0ofmIo6mI000JKeT00`00KeU_F@3oKeWlKeT001Y_F@03001_FFmI0?m_FOa_F@006VmI00<0 06mIKeT0ofmIo6mI000JKeT00`00KeU_F@3oKeWlKeT001Y_F@03001_FFmI0?m_FOa_F@006VmI0`00 ofmIo6mI000JKeT00`00KeU_F@3oKeWlKeT001Y_F@03001_FFmI0?m_FOa_F@006VmI00<006mIKeT0 ofmIo6mI000JKeT00`00KeU_F@3oKeWlKeT001Y_F@03001_FFmI0?m_FOa_F@006VmI00<006mIKeT0 ofmIo6mI000JKeT00`00KeU_F@3oKeWlKeT001Y_F@03001_FFmI0?m_FOa_F@006VmI00<006mIKeT0 ofmIo6mI000JKeT00`00KeU_F@3oKeWlKeT000A_F@8000A_F@8000E_F@<000I_F@03001_FFmI0?m_ FOa_F@000fmI00@006mIKeT000]_F@03001_FFmI00E_F@03001_FFmI0?m_FOa_F@000fmI00@006mI KeT000Q_F@D000I_F@D00?m_FOY_F@000fmI00@006mIKeT000Q_F@04001_FFmI0007KeT00`00KeU_ F@3oKeWlKeT000=_F@04001_FFmI0009KeT00`00KeT00007KeT00`00KeU_F@3oKeWlKeT000A_F@80 00]_F@8000M_F@03001_FFmI0?m_FOa_F@006VmI00<006mIKeT0ofmIo6mI000JKeT00`00KeU_F@3o KeWlKeT001Y_F@03001_FFmI0?m_FOa_F@006VmI00<006mIKeT0ofmIo6mI000JKeT00`00KeU_F@3o KeWlKeT001Y_F@03001_FFmI0?m_FOa_F@006VmI00<006mIKeT0ofmIo6mI000JKeT00`00KeU_F@3o KeWlKeT001Y_F@<00?m_FOa_F@006VmI00<006mIKeT0ofmIo6mI000JKeT00`00KeU_F@3oKeWlKeT0 01Y_F@03001_FFmI0?m_FOa_F@006VmI00<006mIKeT0ofmIo6mI000JKeT00`00KeU_F@3oKeWlKeT0 01Y_F@03001_FFmI0?m_FOa_F@006VmI00<006mIKeT0ofmIo6mI000JKeT00`00KeU_F@3oKeWlKeT0 01Y_F@03001_FFmI0?m_FOa_F@006VmI00<006mIKeT0ofmIo6mI000JKeT00`00KeU_F@3oKeWlKeT0 01Y_F@03001_FFmI0?m_FOa_F@006VmI0`00ofmIo6mI000JKeT00`00KeU_F@3oKeWlKeT001Y_F@03 001_FFmI0?m_FOa_F@006VmI00<006mIKeT0ofmIo6mI000JKeT00`00KeU_F@3oKeWlKeT001Y_F@03 001_FFmI0?m_FOa_F@006VmI00<006mIKeT0ofmIo6mI000JKeT00`00KeU_F@3oKeWlKeT001Y_F@03 001_FFmI0?m_FOa_F@006VmI00<006mIKeT0ofmIo6mI000JKeT00`00KeU_F@3oKeWlKeT001Y_F@03 001_FFmI0?m_FOa_F@006VmI0`00ofmIo6mI000JKeT00`00KeU_F@3oKeWlKeT001Y_F@03001_FFmI 0?m_FOa_F@006VmI00<006mIKeT0ofmIo6mI000JKeT00`00KeU_F@3oKeWlKeT001Y_F@03001_FFmI 0?m_FOa_F@006VmI00<006mIKeT0ofmIo6mI000JKeT00`00KeU_F@3oKeWlKeT001Y_F@03001_FFmI 0?m_FOa_F@006VmI00<006mIKeT0ofmIo6mI000JKeT00`00KeU_F@3oKeWlKeT001Y_F@03001_FFmI 0?m_FOa_F@006VmI00<006mIKeT0ofmIo6mI000JKeT3003oKeWlKeT001Y_F@03001_FFmI0?m_FOa_ F@006VmI00<006mIKeT0ofmIo6mI000JKeT00`00KeU_F@3oKeWlKeT001Y_F@03001_FFmI0?m_FOa_ F@006VmI00<006mIKeT0ofmIo6mI000JKeT00`00KeU_F@3oKeWlKeT001Y_F@03001_FFmI0?m_FOa_ F@006VmI00<006mIKeT0ofmIo6mI000JKeT00`00KeU_F@3oKeWlKeT000A_F@8000A_F@8000A_F@80 00Q_F@03001_FFmI0?m_FOa_F@000fmI00@006mIKeT000Q_F@04001_FFmI0007KeT00`00KeU_F@3o KeWlKeT000=_F@04001_FFmI000;KeT00`00KeU_F@05KeT5003oKeWjKeT000=_F@04001_FFmI0009 KeT2003oKeWoKeT8KeT000=_F@04001_FFmI0009KeT00`00KeU_F@3oKeWoKeT7KeT000A_F@8000Y_ F@<00?m_FOm_F@M_F@00ofmIofmI6VmI0000\ \>"], ImageRangeCache->{{{0, 535.625}, {330.625, 0}} -> {-0.0536509, -0.0245923, \ 0.00198829, 0.00160856}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]], Cell["\<\ I see here how at smaller separations, my approximate determinant begins to \ diverge from the actual. \ \>", "Text"] }, FrontEndVersion->"5.0 for Microsoft Windows", ScreenRectangle->{{0, 1600}, {0, 1061}}, WindowSize->{839, 740}, WindowMargins->{{345, Automatic}, {Automatic, 87}} ] (******************************************************************* 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, 193, 4, 52, "Text"], Cell[CellGroupData[{ Cell[1972, 59, 108, 2, 45, "Input"], Cell[2083, 63, 13632, 426, 186, 4435, 308, "GraphicsData", "PostScript", \ "Graphics"], Cell[15718, 491, 130, 3, 29, "Output"] }, Open ]], Cell[15863, 497, 1619, 27, 357, "Input"], Cell[CellGroupData[{ Cell[17507, 528, 164, 3, 63, "Input"], Cell[17674, 533, 4066, 74, 371, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[21777, 612, 126, 2, 50, "Input"], Cell[21906, 616, 17805, 448, 315, 3909, 272, "GraphicsData", "PostScript", \ "Graphics"], Cell[39714, 1066, 130, 3, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[39881, 1074, 174, 3, 63, "Input"], Cell[40058, 1079, 4067, 74, 371, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[44162, 1158, 91, 1, 30, "Input"], Cell[44256, 1161, 12188, 379, 186, 3909, 272, "GraphicsData", "PostScript", \ "Graphics"], Cell[56447, 1542, 130, 3, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[56614, 1550, 76, 1, 50, "Input"], Cell[56693, 1553, 21673, 587, 313, 5647, 385, "GraphicsData", "PostScript", \ "Graphics"], Cell[78369, 2142, 130, 3, 29, "Output"] }, Open ]], Cell[78514, 2148, 74, 3, 52, "Text"], Cell[CellGroupData[{ Cell[78613, 2155, 74, 1, 50, "Input"], Cell[78690, 2158, 22761, 601, 319, 5647, 385, "GraphicsData", "PostScript", \ "Graphics"], Cell[101454, 2761, 130, 3, 29, "Output"] }, Open ]], Cell[101599, 2767, 242, 5, 71, "Text"], Cell[CellGroupData[{ Cell[101866, 2776, 125, 2, 50, "Input"], Cell[101994, 2780, 19895, 558, 340, 4942, 369, "GraphicsData", "PostScript", \ "Graphics"], Cell[121892, 3340, 130, 3, 29, "Output"] }, Open ]], Cell[122037, 3346, 127, 4, 52, "Text"] } ] *) (******************************************************************* End of Mathematica Notebook file. *******************************************************************)