(*********************************************************************** 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[ 39516, 1180]*) (*NotebookOutlinePosition[ 40362, 1207]*) (* CellTagsIndexPosition[ 40318, 1203]*) (*WindowFrame->Normal*) Notebook[{ Cell[BoxData[{ \( (*\ compute\ distance\ table\ for\ given\ function\ *) \[IndentingNewLine]\ \[IndentingNewLine] (*\ define\ 2 D\ cubic\ function\ *) Pxy[u_, ax_, bx_, cx_, dx_, ay_, by_, cy_, dy_] := \ {ax*u^3 + bx*u^2 + cx*u\ + dx, \ ay*u^3 + by*u^2 + cy*u + dy}\[IndentingNewLine]\[IndentingNewLine] (*\ specify\ four\ points\ to\ constrain\ cubic\ function\ *) \), "\ \[IndentingNewLine]", \(\(P0 = {2, 2};\)\), "\[IndentingNewLine]", \(\(P1\ = \ {3, 4};\)\), "\[IndentingNewLine]", \(\(P2\ = \ {4, 1};\)\), "\[IndentingNewLine]", \(\(P3\ = \ {5, 2};\)\[IndentingNewLine]\[IndentingNewLine] (*\ solve\ for\ cubic\ coefficients\ given\ constraints\ *) \), "\ \[IndentingNewLine]", \(\(v\ = \ Solve[\[IndentingNewLine]{Pxy[0, ax, bx, \ cx, dx, ay, by, cy, dy]\ \[Equal] \ P0, \[IndentingNewLine]Pxy[1/3, ax, bx, \ cx, dx, ay, by, cy, dy] \[Equal] P1, \[IndentingNewLine]\ Pxy[2/3, ax, bx, \ cx, dx, ay, by, cy, dy] \[Equal] P2, \[IndentingNewLine]Pxy[1, ax, bx, \ cx, dx, ay, by, cy, dy] \[Equal] P3}, \[IndentingNewLine]{ax, bx, \ cx, dx, ay, by, cy, dy}];\)\[IndentingNewLine]\), "\[IndentingNewLine]", \( (*\ make\ table\ of\ values\ for\ given\ function\ *) \(t = \ Table[Pxy[u, ax, bx, \ cx, dx, ay, by, cy, dy]\ /. \ v[\([1]\)], \[IndentingNewLine]{u, 0, 1, 0.01}];\)\)}], "Input"], Cell[BoxData[ \(\(\( (*\ define\ distance\ function\ *) \)\(distance[x1_, y1_, x2_, y2_]\ = \ Sqrt[\((x1 - x2)\)^2 + \ \((y1 - y2)\)^2];\)\)\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[{ \(g[1] = \ 0\), "\[IndentingNewLine]", \(g[i_]\ := \ distance[Part[t[\([i]\)], 1], Part[t[\([i]\)], 2], Part[t[\([i - 1]\)], 1], Part[t[\([i - 1]\)], 2]]\ + \ g[i - 1]\)}], "Input"], Cell[BoxData[ \(0\)], "Output"] }, Open ]], Cell[BoxData[ \(\(w\ = \ Table[g[i], {i, 1, \ 101}];\)\)], "Input"], Cell[BoxData[ \(\(w1\ = \ Table[w[\([i]\)]/w[\([101]\)], {i, 1, 101}];\)\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(ListPlot[w1]\)], "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.00942951 0.0147151 0.588604 [ [.2124 .00222 -6 -9 ] [.2124 .00222 6 0 ] [.40099 .00222 -6 -9 ] [.40099 .00222 6 0 ] [.58958 .00222 -6 -9 ] [.58958 .00222 6 0 ] [.77817 .00222 -6 -9 ] [.77817 .00222 6 0 ] [.96676 .00222 -9 -9 ] [.96676 .00222 9 0 ] [.01131 .13244 -18 -4.5 ] [.01131 .13244 0 4.5 ] [.01131 .25016 -18 -4.5 ] [.01131 .25016 0 4.5 ] [.01131 .36788 -18 -4.5 ] [.01131 .36788 0 4.5 ] [.01131 .4856 -18 -4.5 ] [.01131 .4856 0 4.5 ] [.01131 .60332 -6 -4.5 ] [.01131 .60332 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 .2124 .01472 m .2124 .02097 L s [(20)] .2124 .00222 0 1 Mshowa .40099 .01472 m .40099 .02097 L s [(40)] .40099 .00222 0 1 Mshowa .58958 .01472 m .58958 .02097 L s [(60)] .58958 .00222 0 1 Mshowa .77817 .01472 m .77817 .02097 L s [(80)] .77817 .00222 0 1 Mshowa .96676 .01472 m .96676 .02097 L s [(100)] .96676 .00222 0 1 Mshowa .125 Mabswid .07096 .01472 m .07096 .01847 L s .1181 .01472 m .1181 .01847 L s .16525 .01472 m .16525 .01847 L s .25955 .01472 m .25955 .01847 L s .30669 .01472 m .30669 .01847 L s .35384 .01472 m .35384 .01847 L s .44814 .01472 m .44814 .01847 L s .49529 .01472 m .49529 .01847 L s .54243 .01472 m .54243 .01847 L s .63673 .01472 m .63673 .01847 L s .68388 .01472 m .68388 .01847 L s .73102 .01472 m .73102 .01847 L s .82532 .01472 m .82532 .01847 L s .87247 .01472 m .87247 .01847 L s .91961 .01472 m .91961 .01847 L s .25 Mabswid 0 .01472 m 1 .01472 L s .02381 .13244 m .03006 .13244 L s [(0.2)] .01131 .13244 1 0 Mshowa .02381 .25016 m .03006 .25016 L s [(0.4)] .01131 .25016 1 0 Mshowa .02381 .36788 m .03006 .36788 L s [(0.6)] .01131 .36788 1 0 Mshowa .02381 .4856 m .03006 .4856 L s [(0.8)] .01131 .4856 1 0 Mshowa .02381 .60332 m .03006 .60332 L s [(1)] .01131 .60332 1 0 Mshowa .125 Mabswid .02381 .04415 m .02756 .04415 L s .02381 .07358 m .02756 .07358 L s .02381 .10301 m .02756 .10301 L s .02381 .16187 m .02756 .16187 L s .02381 .1913 m .02756 .1913 L s .02381 .22073 m .02756 .22073 L s .02381 .27959 m .02756 .27959 L s .02381 .30902 m .02756 .30902 L s .02381 .33845 m .02756 .33845 L s .02381 .39731 m .02756 .39731 L s .02381 .42674 m .02756 .42674 L s .02381 .45617 m .02756 .45617 L s .02381 .51503 m .02756 .51503 L s .02381 .54446 m .02756 .54446 L s .02381 .57389 m .02756 .57389 L s .25 Mabswid .02381 0 m .02381 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath .008 w .03324 .01472 Mdot .04267 .02975 Mdot .0521 .04396 Mdot .06153 .05735 Mdot .07096 .06994 Mdot .08039 .08175 Mdot .08982 .0928 Mdot .09925 .1031 Mdot .10868 .11268 Mdot .1181 .12155 Mdot .12753 .12973 Mdot .13696 .13724 Mdot .14639 .1441 Mdot .15582 .15034 Mdot .16525 .15597 Mdot .17468 .16102 Mdot .18411 .16552 Mdot .19354 .16951 Mdot .20297 .17301 Mdot .2124 .17607 Mdot .22183 .17875 Mdot .23126 .18113 Mdot .24069 .18329 Mdot .25012 .18534 Mdot .25955 .1874 Mdot .26898 .18957 Mdot .27841 .19193 Mdot .28784 .19453 Mdot .29727 .1974 Mdot .30669 .20056 Mdot .31612 .20402 Mdot .32555 .20778 Mdot .33498 .21183 Mdot .34441 .21616 Mdot .35384 .22078 Mdot .36327 .22566 Mdot .3727 .23079 Mdot .38213 .23617 Mdot .39156 .24178 Mdot .40099 .2476 Mdot .41042 .25362 Mdot .41985 .25982 Mdot .42928 .26619 Mdot .43871 .27272 Mdot .44814 .27939 Mdot .45757 .28618 Mdot .467 .29308 Mdot .47643 .30008 Mdot .48586 .30715 Mdot .49529 .31428 Mdot .50471 .32145 Mdot .51414 .32866 Mdot .52357 .33588 Mdot .533 .34309 Mdot .54243 .35029 Mdot .55186 .35745 Mdot .56129 .36457 Mdot .57072 .37162 Mdot .58015 .37858 Mdot .58958 .38545 Mdot .59901 .39221 Mdot .60844 .39884 Mdot .61787 .40532 Mdot .6273 .41165 Mdot .63673 .4178 Mdot .64616 .42376 Mdot .65559 .42952 Mdot .66502 .43506 Mdot .67445 .44037 Mdot .68388 .44543 Mdot .69331 .45023 Mdot .70273 .45476 Mdot .71216 .45902 Mdot .72159 .46298 Mdot .73102 .46665 Mdot .74045 .47002 Mdot .74988 .47309 Mdot .75931 .47588 Mdot .76874 .4784 Mdot .77817 .4807 Mdot .7876 .48283 Mdot .79703 .48487 Mdot .80646 .48695 Mdot .81589 .48916 Mdot .82532 .49162 Mdot .83475 .49441 Mdot .84418 .49759 Mdot .85361 .50123 Mdot .86304 .50537 Mdot .87247 .51003 Mdot .8819 .51525 Mdot .89132 .52106 Mdot .90075 .52748 Mdot .91018 .53453 Mdot .91961 .54224 Mdot .92904 .55062 Mdot .93847 .5597 Mdot .9479 .56949 Mdot .95733 .58001 Mdot .96676 .59128 Mdot .97619 .60332 Mdot % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgOol2003hOol001Eoo`03001oogoo00ioo`800?Qoo`00 5Goo00<007ooOol0ogoo2Goo000EOol2000BOol2003eOol001Eoo`03001oogoo015oo`800?Eoo`00 5Goo00<007ooOol057oo0P00lWoo000EOol00`00Oomoo`0DOol2003bOol001Eoo`03001oogoo0?mo o`Uoo`000Woo0P0017oo00@007ooOomoo`D000Aoo`03001oogoo01Ioo`800?1oo`0000Eoo`00Oomo o`0000Qoo`04001oogoo0004Ool00`00Oomoo`0FOol2003`Ool00005Ool007ooOol00009Ool00`00 Oomoo`04Ool00`00Oomoo`0IOol2003]Ool00005Ool007ooOol0000:Ool00`00Oomoo`03Ool3000I Ool2003]Ool00005Ool007ooOol00007Ool01@00Oomoogoo000017oo00<007ooOol06goo0P00jgoo 00001Goo001oogoo00001goo00D007ooOomoo`0000Aoo`03001oogoo01]oo`800>]oo`000Woo0P00 2Goo0`001Goo00<007ooOol07Woo0P00j7oo000EOol00`00Oomoo`0NOol4003VOol001Eoo`03001o ogoo021oo`800>Ioo`005Goo00<007ooOol08goo0P00hgoo000EOol00`00Oomoo`0SOol4003QOol0 01Eoo`8002Ioo`800>5oo`005Goo00<007ooOol0:7oo0P00gWoo000EOol00`00Oomoo`0XOol20000 0goo0000003KOol001Eoo`03001oogoo02]oo`@00003Ool000000=Ioo`005Goo00<007ooOol0;Goo 0P0000=oo`0000000P00e7oo000EOol00`00Oomoo`0bOol200000goo00000002003?Ool001Eoo`03 001oogoo03Eoo`@00004Ool00000Ool20039Ool001Eoo`03001oogoo03Yoo`800003Ool000000080 0Moo`80021oo`005Goo00<007ooOol0iWoo 10007Woo000EOol00`00Oomoo`3XOol2000NOol001Eoo`03001oogoo0>]oo`8001]oo`005Goo00<0 07ooOol0jgoo0P006goo000EOol00`00Oomoo`3]Ool2000IOol001Eoo`03001oogoo0>eoo`8001Uo o`005Goo00<007ooOol0l7oo0P005Woo000EOol2003aOol2000FOol001Eoo`03001oogoo0?=oo`80 01=oo`005Goo00<007ooOol0lgoo0P004goo000EOol00`00Oomoo`3oOol9Ool001Eoo`03001oogoo 0?Eoo`80015oo`005Goo00<007ooOol0mGoo0P004Goo000EOol00`00Oomoo`3hOol2000>Ool001Eo o`03001oogoo0?Qoo`8000ioo`005Goo0P00ogoo2Woo000EOol00`00Oomoo`3jOol2000Ool00`00Oomoo`04Ool00`00Oomoo`3oOol9Ool000ioo`03001oogoo00Aoo`<00?moo`80 00Moo`003Woo00<007ooOol017oo00<007ooOol0ogoo0P001goo000=Ool20006Ool00`00Oomoo`3o Ool9Ool000ioo`03001oogoo00Aoo`03001oogoo0?moo`Uoo`005Goo00<007ooOol0ogoo2Goo0000 \ \>"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-8.38151, -0.07747, \ 0.390041, 0.00624851}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]], Cell[BoxData[ \(Search[u_]\ := \ Catch[Do[If[w1[\([i]\)] > u, Throw[{i - 1, i}]], {i, 1, 101}]]\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(For[u = 0.1, \ u < 1.0, u += 0.1, v = Search[u]; i1 = v[\([1]\)]; i2 = v[\([2]\)]; t1 = w1[\([i1]\)]; t2 = w1[\([i2]\)]; s = \((u - t1)\)/\((t2 - t1)\); s1\ = \ \((i1)\)/100; \ s2\ = \ \((i2)\)/100; \ s3\ = \ s1\ + \ s*\((s2 - s1)\); Print[{u, s3}]]\)], "Input"], Cell[BoxData[ \({0.1`, 0.05307700843358911`}\)], "Print"], Cell[BoxData[ \({0.2`, 0.1136083312273232`}\)], "Print"], Cell[BoxData[ \({0.30000000000000004`, 0.2673044383413826`}\)], "Print"], Cell[BoxData[ \({0.4`, 0.404252996460551`}\)], "Print"], Cell[BoxData[ \({0.5`, 0.49262508076470485`}\)], "Print"], Cell[BoxData[ \({0.6`, 0.5746947157909605`}\)], "Print"], Cell[BoxData[ \({0.7`, 0.665170115144764`}\)], "Print"], Cell[BoxData[ \({0.7999999999999999`, 0.8234881210631303`}\)], "Print"], Cell[BoxData[ \({0.8999999999999999`, 0.9526480204017256`}\)], "Print"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Search[0.6]\)], "Input"], Cell[BoxData[ \({57, 58}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(For[i = 1, i < 101, \(i++\), uu = i/100; Print[N[uu], "\<, \>", w1[\([i]\)]]]\)], "Input"], Cell[BoxData[ InterpretationBox[\(0.01`\[InvisibleSpace]", "\[InvisibleSpace]0\), SequenceForm[ 0.01, ", ", 0], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.02`\[InvisibleSpace]", \ "\[InvisibleSpace]0.025550844010725562`\), SequenceForm[ 0.02, ", ", 0.025550844010725562], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.03`\[InvisibleSpace]", \ "\[InvisibleSpace]0.04968571119099034`\), SequenceForm[ 0.029999999999999999, ", ", 0.049685711190990342], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.04`\[InvisibleSpace]", \ "\[InvisibleSpace]0.0724341523341406`\), SequenceForm[ 0.040000000000000001, ", ", 0.072434152334140606], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.05`\[InvisibleSpace]", \ "\[InvisibleSpace]0.09382593514535295`\), SequenceForm[ 0.050000000000000003, ", ", 0.093825935145352951], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.06`\[InvisibleSpace]", \ "\[InvisibleSpace]0.11389108929719077`\), SequenceForm[ 0.059999999999999998, ", ", 0.11389108929719077], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.07`\[InvisibleSpace]", \ "\[InvisibleSpace]0.13265996359250432`\), SequenceForm[ 0.070000000000000007, ", ", 0.13265996359250432], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.08`\[InvisibleSpace]", \ "\[InvisibleSpace]0.15016329928057384`\), SequenceForm[ 0.080000000000000002, ", ", 0.15016329928057384], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.09`\[InvisibleSpace]", \ "\[InvisibleSpace]0.16643232520459678`\), SequenceForm[ 0.089999999999999997, ", ", 0.16643232520459678], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.1`\[InvisibleSpace]", \ "\[InvisibleSpace]0.1814988828665179`\), SequenceForm[ 0.10000000000000001, ", ", 0.18149888286651791], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.11`\[InvisibleSpace]", \ "\[InvisibleSpace]0.19539559310303672`\), SequenceForm[ 0.11, ", ", 0.19539559310303672], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.12`\[InvisibleSpace]", \ "\[InvisibleSpace]0.20815608155846885`\), SequenceForm[ 0.12, ", ", 0.20815608155846885], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.13`\[InvisibleSpace]", \ "\[InvisibleSpace]0.21981528863077746`\), SequenceForm[ 0.13, ", ", 0.21981528863077746], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.14`\[InvisibleSpace]", \ "\[InvisibleSpace]0.23040990288316587`\), SequenceForm[ 0.14000000000000001, ", ", 0.23040990288316587], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.15`\[InvisibleSpace]", \ "\[InvisibleSpace]0.23997897803378312`\), SequenceForm[ 0.14999999999999999, ", ", 0.23997897803378312], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.16`\[InvisibleSpace]", \ "\[InvisibleSpace]0.2485648272907354`\), SequenceForm[ 0.16, ", ", 0.2485648272907354], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.17`\[InvisibleSpace]", \ "\[InvisibleSpace]0.25621434193869747`\), SequenceForm[ 0.17000000000000001, ", ", 0.25621434193869747], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.18`\[InvisibleSpace]", \ "\[InvisibleSpace]0.26298096172023394`\), SequenceForm[ 0.17999999999999999, ", ", 0.26298096172023394], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.19`\[InvisibleSpace]", \ "\[InvisibleSpace]0.26892763326343666`\), SequenceForm[ 0.19, ", ", 0.26892763326343666], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.2`\[InvisibleSpace]", \ "\[InvisibleSpace]0.27413118829354255`\), SequenceForm[ 0.20000000000000001, ", ", 0.27413118829354255], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.21`\[InvisibleSpace]", \ "\[InvisibleSpace]0.27868846475260645`\), SequenceForm[ 0.20999999999999999, ", ", 0.27868846475260645], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.22`\[InvisibleSpace]", \ "\[InvisibleSpace]0.2827236074447088`\), SequenceForm[ 0.22, ", ", 0.28272360744470881], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.23`\[InvisibleSpace]", \ "\[InvisibleSpace]0.28639330444205824`\), SequenceForm[ 0.23000000000000001, ", ", 0.28639330444205824], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.24`\[InvisibleSpace]", \ "\[InvisibleSpace]0.28988261379133123`\), SequenceForm[ 0.23999999999999999, ", ", 0.28988261379133123], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.25`\[InvisibleSpace]", \ "\[InvisibleSpace]0.29338497655623536`\), SequenceForm[ 0.25, ", ", 0.29338497655623536], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.26`\[InvisibleSpace]", \ "\[InvisibleSpace]0.2970732788561356`\), SequenceForm[ 0.26000000000000001, ", ", 0.2970732788561356], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.27`\[InvisibleSpace]", \ "\[InvisibleSpace]0.30108004981795394`\), SequenceForm[ 0.27000000000000002, ", ", 0.30108004981795394], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.28`\[InvisibleSpace]", \ "\[InvisibleSpace]0.30549491741454815`\), SequenceForm[ 0.28000000000000003, ", ", 0.30549491741454815], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.29`\[InvisibleSpace]", \ "\[InvisibleSpace]0.3103725641501245`\), SequenceForm[ 0.28999999999999998, ", ", 0.31037256415012449], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.3`\[InvisibleSpace]", \ "\[InvisibleSpace]0.3157426144753305`\), SequenceForm[ 0.29999999999999999, ", ", 0.31574261447533047], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.31`\[InvisibleSpace]", \ "\[InvisibleSpace]0.32161763709768026`\), SequenceForm[ 0.31, ", ", 0.32161763709768026], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.32`\[InvisibleSpace]", \ "\[InvisibleSpace]0.32799873104363764`\), SequenceForm[ 0.32000000000000001, ", ", 0.32799873104363764], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.33`\[InvisibleSpace]", \ "\[InvisibleSpace]0.33487922260071035`\), SequenceForm[ 0.33000000000000002, ", ", 0.33487922260071035], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.34`\[InvisibleSpace]", \ "\[InvisibleSpace]0.34224708281894833`\), SequenceForm[ 0.34000000000000002, ", ", 0.34224708281894833], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.35`\[InvisibleSpace]", \ "\[InvisibleSpace]0.3500865194191732`\), SequenceForm[ 0.34999999999999998, ", ", 0.35008651941917318], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.36`\[InvisibleSpace]", \ "\[InvisibleSpace]0.35837904140206406`\), SequenceForm[ 0.35999999999999999, ", ", 0.35837904140206406], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.37`\[InvisibleSpace]", \ "\[InvisibleSpace]0.36710418459066135`\), SequenceForm[ 0.37, ", ", 0.36710418459066135], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.38`\[InvisibleSpace]", \ "\[InvisibleSpace]0.37624001597698153`\), SequenceForm[ 0.38, ", ", 0.37624001597698153], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.39`\[InvisibleSpace]", \ "\[InvisibleSpace]0.3857634912092251`\), SequenceForm[ 0.39000000000000001, ", ", 0.3857634912092251], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.4`\[InvisibleSpace]", \ "\[InvisibleSpace]0.39565071275744623`\), SequenceForm[ 0.40000000000000002, ", ", 0.39565071275744623], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.41`\[InvisibleSpace]", \ "\[InvisibleSpace]0.40587711967524154`\), SequenceForm[ 0.40999999999999998, ", ", 0.40587711967524154], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.42`\[InvisibleSpace]", \ "\[InvisibleSpace]0.41641762942867583`\), SequenceForm[ 0.41999999999999998, ", ", 0.41641762942867583], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.43`\[InvisibleSpace]", \ "\[InvisibleSpace]0.4272467455924065`\), SequenceForm[ 0.42999999999999999, ", ", 0.4272467455924065], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.44`\[InvisibleSpace]", \ "\[InvisibleSpace]0.4383386408803963`\), SequenceForm[ 0.44, ", ", 0.43833864088039631], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.45`\[InvisibleSpace]", \ "\[InvisibleSpace]0.44966722211757953`\), SequenceForm[ 0.45000000000000001, ", ", 0.44966722211757953], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.46`\[InvisibleSpace]", \ "\[InvisibleSpace]0.4612061818390045`\), SequenceForm[ 0.46000000000000002, ", ", 0.46120618183900453], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.47`\[InvisibleSpace]", \ "\[InvisibleSpace]0.472929039895408`\), SequenceForm[ 0.46999999999999997, ", ", 0.47292903989540802], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.48`\[InvisibleSpace]", \ "\[InvisibleSpace]0.48480917754148206`\), SequenceForm[ 0.47999999999999998, ", ", 0.48480917754148206], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.49`\[InvisibleSpace]", \ "\[InvisibleSpace]0.49681986585279925`\), SequenceForm[ 0.48999999999999999, ", ", 0.49681986585279925], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.5`\[InvisibleSpace]", \ "\[InvisibleSpace]0.5089342898734192`\), SequenceForm[ 0.5, ", ", 0.50893428987341915], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.51`\[InvisibleSpace]", \ "\[InvisibleSpace]0.5211255695821781`\), SequenceForm[ 0.51000000000000001, ", ", 0.52112556958217815], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.52`\[InvisibleSpace]", \ "\[InvisibleSpace]0.533366778544144`\), SequenceForm[ 0.52000000000000002, ", ", 0.53336677854414405], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.53`\[InvisibleSpace]", \ "\[InvisibleSpace]0.5456309609598651`\), SequenceForm[ 0.53000000000000003, ", ", 0.54563096095986507], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.54`\[InvisibleSpace]", \ "\[InvisibleSpace]0.5578911477223828`\), SequenceForm[ 0.54000000000000004, ", ", 0.5578911477223828], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.55`\[InvisibleSpace]", \ "\[InvisibleSpace]0.5701203720301213`\), SequenceForm[ 0.55000000000000004, ", ", 0.57012037203012134], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.56`\[InvisibleSpace]", \ "\[InvisibleSpace]0.5822916850764627`\), SequenceForm[ 0.56000000000000005, ", ", 0.58229168507646267], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.57`\[InvisibleSpace]", \ "\[InvisibleSpace]0.5943781723415332`\), SequenceForm[ 0.56999999999999995, ", ", 0.59437817234153323], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.58`\[InvisibleSpace]", \ "\[InvisibleSpace]0.6063529710488188`\), SequenceForm[ 0.57999999999999996, ", ", 0.6063529710488188], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.59`\[InvisibleSpace]", \ "\[InvisibleSpace]0.6181892894223716`\), SequenceForm[ 0.58999999999999997, ", ", 0.61818928942237161], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.6`\[InvisibleSpace]", \ "\[InvisibleSpace]0.6298604284968811`\), SequenceForm[ 0.59999999999999998, ", ", 0.62986042849688106], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.61`\[InvisibleSpace]", \ "\[InvisibleSpace]0.6413398074047321`\), SequenceForm[ 0.60999999999999999, ", ", 0.64133980740473207], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.62`\[InvisibleSpace]", \ "\[InvisibleSpace]0.6526009933100682`\), SequenceForm[ 0.62, ", ", 0.65260099331006816], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.63`\[InvisibleSpace]", \ "\[InvisibleSpace]0.6636177375077588`\), SequenceForm[ 0.63, ", ", 0.66361773750775876], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.64`\[InvisibleSpace]", \ "\[InvisibleSpace]0.6743640196973776`\), SequenceForm[ 0.64000000000000001, ", ", 0.67436401969737758], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.65`\[InvisibleSpace]", \ "\[InvisibleSpace]0.6848141031426431`\), SequenceForm[ 0.65000000000000002, ", ", 0.68481410314264313], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.66`\[InvisibleSpace]", \ "\[InvisibleSpace]0.6949426044328957`\), SequenceForm[ 0.66000000000000003, ", ", 0.69494260443289568], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.67`\[InvisibleSpace]", \ "\[InvisibleSpace]0.7047245830262083`\), SequenceForm[ 0.67000000000000004, ", ", 0.70472458302620833], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.68`\[InvisibleSpace]", \ "\[InvisibleSpace]0.7141356579109751`\), SequenceForm[ 0.68000000000000005, ", ", 0.71413565791097511], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.69`\[InvisibleSpace]", \ "\[InvisibleSpace]0.7231521619526415`\), SequenceForm[ 0.68999999999999995, ", ", 0.72315216195264154], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.7`\[InvisibleSpace]", \ "\[InvisibleSpace]0.7317513494072849`\), SequenceForm[ 0.69999999999999996, ", ", 0.73175134940728492], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.71`\[InvisibleSpace]", \ "\[InvisibleSpace]0.7399116796898234`\), SequenceForm[ 0.70999999999999996, ", ", 0.73991167968982341], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.72`\[InvisibleSpace]", \ "\[InvisibleSpace]0.747613212452847`\), SequenceForm[ 0.71999999999999997, ", ", 0.74761321245284695], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.73`\[InvisibleSpace]", \ "\[InvisibleSpace]0.7548381681564706`\), SequenceForm[ 0.72999999999999998, ", ", 0.75483816815647065], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.74`\[InvisibleSpace]", \ "\[InvisibleSpace]0.7615717392395803`\), SequenceForm[ 0.73999999999999999, ", ", 0.76157173923958033], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.75`\[InvisibleSpace]", \ "\[InvisibleSpace]0.7678032872609081`\), SequenceForm[ 0.75, ", ", 0.76780328726090807], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.76`\[InvisibleSpace]", \ "\[InvisibleSpace]0.7735281421421537`\), SequenceForm[ 0.76000000000000001, ", ", 0.77352814214215371], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.77`\[InvisibleSpace]", \ "\[InvisibleSpace]0.7787503435220001`\), SequenceForm[ 0.77000000000000002, ", ", 0.77875034352200012], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.78`\[InvisibleSpace]", \ "\[InvisibleSpace]0.7834868292265273`\), SequenceForm[ 0.78000000000000003, ", ", 0.78348682922652735], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.79`\[InvisibleSpace]", \ "\[InvisibleSpace]0.787773701228718`\), SequenceForm[ 0.79000000000000004, ", ", 0.78777370122871804], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.8`\[InvisibleSpace]", \ "\[InvisibleSpace]0.7916749363826308`\), SequenceForm[ 0.80000000000000004, ", ", 0.79167493638263076], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.81`\[InvisibleSpace]", \ "\[InvisibleSpace]0.7952923191995087`\), SequenceForm[ 0.81000000000000005, ", ", 0.79529231919950871], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.82`\[InvisibleSpace]", \ "\[InvisibleSpace]0.7987713353959875`\), SequenceForm[ 0.81999999999999995, ", ", 0.79877133539598755], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.83`\[InvisibleSpace]", \ "\[InvisibleSpace]0.8022937607412528`\), SequenceForm[ 0.82999999999999996, ", ", 0.8022937607412528], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.84`\[InvisibleSpace]", \ "\[InvisibleSpace]0.8060534870587123`\), SequenceForm[ 0.83999999999999997, ", ", 0.80605348705871227], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.85`\[InvisibleSpace]", \ "\[InvisibleSpace]0.810228506488828`\), SequenceForm[ 0.84999999999999998, ", ", 0.81022850648882805], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.86`\[InvisibleSpace]", \ "\[InvisibleSpace]0.8149657007516755`\), SequenceForm[ 0.85999999999999999, ", ", 0.81496570075167551], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.87`\[InvisibleSpace]", \ "\[InvisibleSpace]0.8203803795929204`\), SequenceForm[ 0.87, ", ", 0.82038037959292043], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.88`\[InvisibleSpace]", \ "\[InvisibleSpace]0.8265627159433617`\), SequenceForm[ 0.88, ", ", 0.82656271594336173], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.89`\[InvisibleSpace]", \ "\[InvisibleSpace]0.8335848698027031`\), SequenceForm[ 0.89000000000000001, ", ", 0.83358486980270308], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.9`\[InvisibleSpace]", \ "\[InvisibleSpace]0.8415065871658576`\), SequenceForm[ 0.90000000000000002, ", ", 0.84150658716585758], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.91`\[InvisibleSpace]", \ "\[InvisibleSpace]0.8503791112644791`\), SequenceForm[ 0.91000000000000003, ", ", 0.85037911126447907], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.92`\[InvisibleSpace]", \ "\[InvisibleSpace]0.8602478062659742`\), SequenceForm[ 0.92000000000000004, ", ", 0.86024780626597419], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.93`\[InvisibleSpace]", \ "\[InvisibleSpace]0.8711539047802137`\), SequenceForm[ 0.93000000000000005, ", ", 0.87115390478021371], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.94`\[InvisibleSpace]", \ "\[InvisibleSpace]0.8831356812515027`\), SequenceForm[ 0.93999999999999995, ", ", 0.88313568125150266], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.95`\[InvisibleSpace]", \ "\[InvisibleSpace]0.8962292516553626`\), SequenceForm[ 0.94999999999999996, ", ", 0.8962292516553626], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.96`\[InvisibleSpace]", \ "\[InvisibleSpace]0.9104691281388673`\), SequenceForm[ 0.95999999999999996, ", ", 0.91046912813886727], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.97`\[InvisibleSpace]", \ "\[InvisibleSpace]0.9258886107248578`\), SequenceForm[ 0.96999999999999997, ", ", 0.92588861072485784], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.98`\[InvisibleSpace]", \ "\[InvisibleSpace]0.9425200688814551`\), SequenceForm[ 0.97999999999999998, ", ", 0.94252006888145512], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(0.99`\[InvisibleSpace]", \ "\[InvisibleSpace]0.9603951473521782`\), SequenceForm[ 0.98999999999999999, ", ", 0.96039514735217824], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(1.`\[InvisibleSpace]", \ "\[InvisibleSpace]0.9795449190040014`\), SequenceForm[ 1.0, ", ", 0.97954491900400142], Editable->False]], "Print"] }, Open ]] }, FrontEndVersion->"4.0 for Macintosh", ScreenRectangle->{{0, 1024}, {0, 748}}, WindowSize->{520, 626}, WindowMargins->{{106, Automatic}, {40, Automatic}}, MacintoshSystemPageSetup->"\<\ 02P0001804P000000^L2D_ogooL33`9K8085:0?l0000005X0FP000003X<;VP5d 038;VTRX04/00@4100000BL?00400@000000000000000000000000000040I0<0 00000000000@XP404@000000000eDflP\>" ] (*********************************************************************** 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[1717, 49, 1527, 27, 411, "Input"], Cell[3247, 78, 174, 3, 59, "Input"], Cell[CellGroupData[{ Cell[3446, 85, 234, 5, 75, "Input"], Cell[3683, 92, 35, 1, 26, "Output"] }, Open ]], Cell[3733, 96, 72, 1, 27, "Input"], Cell[3808, 99, 90, 1, 27, "Input"], Cell[CellGroupData[{ Cell[3923, 104, 45, 1, 27, "Input"], Cell[3971, 107, 13032, 408, 186, 4771, 301, "GraphicsData", "PostScript", \ "Graphics"], Cell[17006, 517, 130, 3, 26, "Output"] }, Open ]], Cell[17151, 523, 133, 3, 43, "Input"], Cell[CellGroupData[{ Cell[17309, 530, 314, 5, 75, "Input"], Cell[17626, 537, 61, 1, 22, "Print"], Cell[17690, 540, 60, 1, 22, "Print"], Cell[17753, 543, 76, 1, 22, "Print"], Cell[17832, 546, 59, 1, 22, "Print"], Cell[17894, 549, 61, 1, 22, "Print"], Cell[17958, 552, 60, 1, 22, "Print"], Cell[18021, 555, 59, 1, 22, "Print"], Cell[18083, 558, 75, 1, 22, "Print"], Cell[18161, 561, 75, 1, 22, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[18273, 567, 44, 1, 27, "Input"], Cell[18320, 570, 42, 1, 26, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[18399, 576, 118, 2, 43, "Input"], Cell[18520, 580, 157, 3, 22, "Print"], Cell[18680, 585, 198, 4, 22, "Print"], Cell[18881, 591, 213, 4, 22, "Print"], Cell[19097, 597, 212, 4, 22, "Print"], Cell[19312, 603, 213, 4, 22, "Print"], Cell[19528, 609, 212, 4, 22, "Print"], Cell[19743, 615, 212, 4, 22, "Print"], Cell[19958, 621, 212, 4, 22, "Print"], Cell[20173, 627, 212, 4, 22, "Print"], Cell[20388, 633, 209, 4, 22, "Print"], Cell[20600, 639, 196, 4, 22, "Print"], Cell[20799, 645, 196, 4, 22, "Print"], Cell[20998, 651, 196, 4, 22, "Print"], Cell[21197, 657, 211, 4, 22, "Print"], Cell[21411, 663, 211, 4, 22, "Print"], Cell[21625, 669, 194, 4, 22, "Print"], Cell[21822, 675, 211, 4, 22, "Print"], Cell[22036, 681, 211, 4, 22, "Print"], Cell[22250, 687, 196, 4, 22, "Print"], Cell[22449, 693, 210, 4, 22, "Print"], Cell[22662, 699, 211, 4, 22, "Print"], Cell[22876, 705, 195, 4, 22, "Print"], Cell[23074, 711, 211, 4, 22, "Print"], Cell[23288, 717, 211, 4, 22, "Print"], Cell[23502, 723, 196, 4, 22, "Print"], Cell[23701, 729, 209, 4, 22, "Print"], Cell[23913, 735, 211, 4, 22, "Print"], Cell[24127, 741, 211, 4, 22, "Print"], Cell[24341, 747, 210, 4, 22, "Print"], Cell[24554, 753, 209, 4, 22, "Print"], Cell[24766, 759, 196, 4, 22, "Print"], Cell[24965, 765, 211, 4, 22, "Print"], Cell[25179, 771, 211, 4, 22, "Print"], Cell[25393, 777, 211, 4, 22, "Print"], Cell[25607, 783, 210, 4, 22, "Print"], Cell[25820, 789, 211, 4, 22, "Print"], Cell[26034, 795, 196, 4, 22, "Print"], Cell[26233, 801, 196, 4, 22, "Print"], Cell[26432, 807, 209, 4, 22, "Print"], Cell[26644, 813, 210, 4, 22, "Print"], Cell[26857, 819, 211, 4, 22, "Print"], Cell[27071, 825, 211, 4, 22, "Print"], Cell[27285, 831, 209, 4, 22, "Print"], Cell[27497, 837, 195, 4, 22, "Print"], Cell[27695, 843, 211, 4, 22, "Print"], Cell[27909, 849, 210, 4, 22, "Print"], Cell[28122, 855, 209, 4, 22, "Print"], Cell[28334, 861, 211, 4, 22, "Print"], Cell[28548, 867, 211, 4, 22, "Print"], Cell[28762, 873, 193, 4, 22, "Print"], Cell[28958, 879, 210, 4, 22, "Print"], Cell[29171, 885, 209, 4, 22, "Print"], Cell[29383, 891, 210, 4, 22, "Print"], Cell[29596, 897, 209, 4, 22, "Print"], Cell[29808, 903, 210, 4, 22, "Print"], Cell[30021, 909, 210, 4, 22, "Print"], Cell[30234, 915, 210, 4, 22, "Print"], Cell[30447, 921, 209, 4, 22, "Print"], Cell[30659, 927, 210, 4, 22, "Print"], Cell[30872, 933, 209, 4, 22, "Print"], Cell[31084, 939, 210, 4, 22, "Print"], Cell[31297, 945, 195, 4, 22, "Print"], Cell[31495, 951, 195, 4, 22, "Print"], Cell[31693, 957, 210, 4, 22, "Print"], Cell[31906, 963, 210, 4, 22, "Print"], Cell[32119, 969, 210, 4, 22, "Print"], Cell[32332, 975, 210, 4, 22, "Print"], Cell[32545, 981, 210, 4, 22, "Print"], Cell[32758, 987, 210, 4, 22, "Print"], Cell[32971, 993, 209, 4, 22, "Print"], Cell[33183, 999, 210, 4, 22, "Print"], Cell[33396, 1005, 209, 4, 22, "Print"], Cell[33608, 1011, 210, 4, 22, "Print"], Cell[33821, 1017, 210, 4, 22, "Print"], Cell[34034, 1023, 195, 4, 22, "Print"], Cell[34232, 1029, 210, 4, 22, "Print"], Cell[34445, 1035, 210, 4, 22, "Print"], Cell[34658, 1041, 210, 4, 22, "Print"], Cell[34871, 1047, 209, 4, 22, "Print"], Cell[35083, 1053, 209, 4, 22, "Print"], Cell[35295, 1059, 210, 4, 22, "Print"], Cell[35508, 1065, 210, 4, 22, "Print"], Cell[35721, 1071, 209, 4, 22, "Print"], Cell[35933, 1077, 210, 4, 22, "Print"], Cell[36146, 1083, 209, 4, 22, "Print"], Cell[36358, 1089, 210, 4, 22, "Print"], Cell[36571, 1095, 195, 4, 22, "Print"], Cell[36769, 1101, 195, 4, 22, "Print"], Cell[36967, 1107, 210, 4, 22, "Print"], Cell[37180, 1113, 209, 4, 22, "Print"], Cell[37392, 1119, 210, 4, 22, "Print"], Cell[37605, 1125, 210, 4, 22, "Print"], Cell[37818, 1131, 210, 4, 22, "Print"], Cell[38031, 1137, 210, 4, 22, "Print"], Cell[38244, 1143, 209, 4, 22, "Print"], Cell[38456, 1149, 210, 4, 22, "Print"], Cell[38669, 1155, 210, 4, 22, "Print"], Cell[38882, 1161, 210, 4, 22, "Print"], Cell[39095, 1167, 210, 4, 22, "Print"], Cell[39308, 1173, 192, 4, 22, "Print"] }, Open ]] } ] *) (*********************************************************************** End of Mathematica Notebook file. ***********************************************************************)