(*********************************************************************** Mathematica-Compatible Notebook This notebook can be used on any computer system with Mathematica 3.0, MathReader 3.0, or any compatible application. The data for the notebook starts with the line of 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[ 113203, 8010]*) (*NotebookOutlinePosition[ 139757, 8973]*) (* CellTagsIndexPosition[ 139713, 8969]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{Cell[TextData["Ladders"], "Title", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[ "Are ladders too simple for math questions? These brain teasers might drive \ you up the wall. "], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{Cell[TextData["Building a Ladder"], "Subsection", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[ "A ladder of length l = 84 inches is to be built with rungs spaced equally, \ about 5 inches apart. The same spacing is used at the ends, as well. How do \ you figure out the exact spacing? In the picture adding one more rung on the \ right would make the last space too small. "], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{Cell[TextData["BuildLadder[84, 5];"], "Input", AspectRatioFixed->True], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .11905 MathPictureStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.02381 0.011338 0.059524 0.011338 [ [ 0 0 0 0 ] [ 1 .11905 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p P 0 0 m 1 0 L 1 .11905 L 0 .11905 L closepath clip newpath p 0 0 1 r .02 w .02381 .00283 m .97619 .00283 L s .02381 .11621 m .97619 .11621 L s p .0805 .00283 m .0805 .11621 L s .13719 .00283 m .13719 .11621 L s .19388 .00283 m .19388 .11621 L s .25057 .00283 m .25057 .11621 L s .30726 .00283 m .30726 .11621 L s .36395 .00283 m .36395 .11621 L s .42063 .00283 m .42063 .11621 L s .47732 .00283 m .47732 .11621 L s .53401 .00283 m .53401 .11621 L s .5907 .00283 m .5907 .11621 L s .64739 .00283 m .64739 .11621 L s .70408 .00283 m .70408 .11621 L s .76077 .00283 m .76077 .11621 L s .81746 .00283 m .81746 .11621 L s .87415 .00283 m .87415 .11621 L s P P % End of Graphics MathPictureEnd \ \>"], "Graphics", Evaluatable->False, AspectRatioFixed->True, ImageSize->{282, 33}, ImageMargins->{{34, Inherited}, {Inherited, Inherited}}, ImageCacheValid->False]}, Open]], Cell[CellGroupData[{Cell[TextData["Answer"], "Subsubsection", Evaluatable->False, AspectRatioFixed->True], Cell[TextData["The number of spaces needs to be a whole number."], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData["This is the number of spaces. "], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{Cell[TextData["Round[84/5]"], "Input", AspectRatioFixed->True], Cell[OutputFormData["\<\ 17\ \>", "\<\ 17\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True]}, Open]], Cell[TextData["This is the exact length of a space. "], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{Cell[TextData["N[84/17]"], "Input", AspectRatioFixed->True], Cell[OutputFormData["\<\ 4.941176470588236\ \>", "\<\ 4.94118\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True]}, Open]], Cell[TextData["Now the rungs of the ladder are properly spaced. "], "Text", Evaluatable->False, PageBreakBelow->False, AspectRatioFixed->True], Cell[CellGroupData[{Cell[TextData["BuildLadder[84, %];"], "Input", AspectRatioFixed->True], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .11905 MathPictureStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.02381 0.011338 0.059524 0.011338 [ [ 0 0 0 0 ] [ 1 .11905 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p P 0 0 m 1 0 L 1 .11905 L 0 .11905 L closepath clip newpath p 0 0 1 r .02 w .02381 .00283 m .97619 .00283 L s .02381 .11621 m .97619 .11621 L s p .07983 .00283 m .07983 .11621 L s .13585 .00283 m .13585 .11621 L s .19188 .00283 m .19188 .11621 L s .2479 .00283 m .2479 .11621 L s .30392 .00283 m .30392 .11621 L s .35994 .00283 m .35994 .11621 L s .41597 .00283 m .41597 .11621 L s .47199 .00283 m .47199 .11621 L s .52801 .00283 m .52801 .11621 L s .58403 .00283 m .58403 .11621 L s .64006 .00283 m .64006 .11621 L s .69608 .00283 m .69608 .11621 L s .7521 .00283 m .7521 .11621 L s .80812 .00283 m .80812 .11621 L s .86415 .00283 m .86415 .11621 L s .92017 .00283 m .92017 .11621 L s P P % End of Graphics MathPictureEnd \ \>"], "Graphics", Evaluatable->False, AspectRatioFixed->True, ImageSize->{282, 33}, ImageMargins->{{34, Inherited}, {Inherited, Inherited}}, ImageCacheValid->False]}, Open]]}, Open]]}, Open]], Cell[CellGroupData[{Cell[TextData["A Sliding Ladder"], "Subsection", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[ "The lines in the next graph represent the positions of a ladder with the top \ sliding down a wall as the bottom slides along the ground. Why do all of \ these segments have the same length? \nThe horizontal distance from the foot \ of the ladder to the wall is x, and the vertical distance from the ground to \ the top of the ladder is y. "], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{Cell[TextData[ "y = Sqrt[1 - a^2] (1 - x/a);\n\nPlot[ Evaluate[Table[y, {a, .09, .99, \ .05}]], \n\t{x, 0, 1}, \n\tAspectRatio -> Automatic, \n\tPlotRange -> {{0, \ 1}, {0, 1}}\n];"], "Input", AspectRatioFixed->True], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: 1 MathPictureStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0 1 0 1 [ [(0.2)] .2 0 0 2 Msboxa [(0.4)] .4 0 0 2 Msboxa [(0.6)] .6 0 0 2 Msboxa [(0.8)] .8 0 0 2 Msboxa [(1)] 1 0 0 2 Msboxa [(0)] -0.0125 0 1 0 Msboxa [(0.2)] -0.0125 .2 1 0 Msboxa [(0.4)] -0.0125 .4 1 0 Msboxa [(0.6)] -0.0125 .6 1 0 Msboxa [(0.8)] -0.0125 .8 1 0 Msboxa [(1)] -0.0125 1 1 0 Msboxa [ -0.001 -0.001 0 0 ] [ 1.001 1.001 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p p .002 w .2 0 m .2 .00625 L s P [(0.2)] .2 0 0 2 Mshowa p .002 w .4 0 m .4 .00625 L s P [(0.4)] .4 0 0 2 Mshowa p .002 w .6 0 m .6 .00625 L s P [(0.6)] .6 0 0 2 Mshowa p .002 w .8 0 m .8 .00625 L s P [(0.8)] .8 0 0 2 Mshowa p .002 w 1 0 m 1 .00625 L s P [(1)] 1 0 0 2 Mshowa p .001 w .04 0 m .04 .00375 L s P p .001 w .08 0 m .08 .00375 L s P p .001 w .12 0 m .12 .00375 L s P p .001 w .16 0 m .16 .00375 L s P p .001 w .24 0 m .24 .00375 L s P p .001 w .28 0 m .28 .00375 L s P p .001 w .32 0 m .32 .00375 L s P p .001 w .36 0 m .36 .00375 L s P p .001 w .44 0 m .44 .00375 L s P p .001 w .48 0 m .48 .00375 L s P p .001 w .52 0 m .52 .00375 L s P p .001 w .56 0 m .56 .00375 L s P p .001 w .64 0 m .64 .00375 L s P p .001 w .68 0 m .68 .00375 L s P p .001 w .72 0 m .72 .00375 L s P p .001 w .76 0 m .76 .00375 L s P p .001 w .84 0 m .84 .00375 L s P p .001 w .88 0 m .88 .00375 L s P p .001 w .92 0 m .92 .00375 L s P p .001 w .96 0 m .96 .00375 L s P p .002 w 0 0 m 1 0 L s P p .002 w 0 0 m .00625 0 L s P [(0)] -0.0125 0 1 0 Mshowa p .002 w 0 .2 m .00625 .2 L s P [(0.2)] -0.0125 .2 1 0 Mshowa p .002 w 0 .4 m .00625 .4 L s P [(0.4)] -0.0125 .4 1 0 Mshowa p .002 w 0 .6 m .00625 .6 L s P [(0.6)] -0.0125 .6 1 0 Mshowa p .002 w 0 .8 m .00625 .8 L s P [(0.8)] -0.0125 .8 1 0 Mshowa p .002 w 0 1 m .00625 1 L s P [(1)] -0.0125 1 1 0 Mshowa p .001 w 0 .04 m .00375 .04 L s P p .001 w 0 .08 m .00375 .08 L s P p .001 w 0 .12 m .00375 .12 L s P p .001 w 0 .16 m .00375 .16 L s P p .001 w 0 .24 m .00375 .24 L s P p .001 w 0 .28 m .00375 .28 L s P p .001 w 0 .32 m .00375 .32 L s P p .001 w 0 .36 m .00375 .36 L s P p .001 w 0 .44 m .00375 .44 L s P p .001 w 0 .48 m .00375 .48 L s P p .001 w 0 .52 m .00375 .52 L s P p .001 w 0 .56 m .00375 .56 L s P p .001 w 0 .64 m .00375 .64 L s P p .001 w 0 .68 m .00375 .68 L s P p .001 w 0 .72 m .00375 .72 L s P p .001 w 0 .76 m .00375 .76 L s P p .001 w 0 .84 m .00375 .84 L s P p .001 w 0 .88 m .00375 .88 L s P p .001 w 0 .92 m .00375 .92 L s P p .001 w 0 .96 m .00375 .96 L s P p .002 w 0 0 m 0 1 L s P P 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath p p p .004 w 0 .99594 m .04167 .53486 L .08333 .07377 L s .09 0 m .08333 .07377 L s s s s s s s s s s s s s s s s s s s s s s s P P p p .004 w 0 .99015 m .04167 .69546 L .08333 .40078 L .125 .10609 L s .14 0 m .125 .10609 L s s s s s s s s s s s s s s s s s s s s s s P P p p .004 w 0 .98178 m .04167 .76648 L .08333 .55118 L .125 .33587 L .16667 .12057 L s .19 0 m .16667 .12057 L s s s s s s s s s s s s s s s s s s s s s P P p p .004 w 0 .97077 m .04167 .80224 L .08333 .6337 L .125 .46516 L .16667 .29663 L .20833 .12809 L s .24 0 m .20833 .12809 L s s s s s s s s s s s s s s s s s s s s P P p p .004 w 0 .95703 m .04167 .81952 L .08333 .68202 L .125 .54452 L .16667 .40701 L .20833 .26951 L .25 .132 L s .29 0 m .25 .132 L s s s s s s s s s s s s s s s s s s s P P p p .004 w 0 .94043 m .04167 .82518 L .08333 .70993 L .125 .59468 L .16667 .47943 L .20833 .36418 L .25 .24894 L .29167 .13369 L .33333 .01844 L s .34 0 m .33333 .01844 L s s s s s s s s s s s s s s s s s P P p p .004 w 0 .92081 m .04167 .82244 L .08333 .72406 L .125 .62568 L .16667 .5273 L .20833 .42893 L .25 .33055 L .29167 .23217 L .33333 .13379 L .375 .03542 L s .39 0 m .375 .03542 L s s s s s s s s s s s s s s s s P P p p .004 w 0 .898 m .04167 .81296 L .08333 .72792 L .125 .64288 L .16667 .55785 L .20833 .47281 L .25 .38777 L .29167 .30273 L .33333 .2177 L .375 .13266 L .41667 .04762 L s .44 0 m .41667 .04762 L s s s s s s s s s s s s s s s P P p p .004 w 0 .87172 m .04167 .7976 L .08333 .72347 L .125 .64934 L .16667 .57522 L .20833 .50109 L .25 .42697 L .29167 .35284 L .33333 .27871 L .375 .20459 L .41667 .13046 L .45833 .05634 L s .49 0 m .45833 .05634 L s s s s s s s s s s s s s s P P p p .004 w 0 .84167 m .04167 .77672 L .08333 .71178 L .125 .64684 L .16667 .58189 L .20833 .51695 L .25 .45201 L .29167 .38706 L .33333 .32212 L .375 .25718 L .41667 .19223 L .45833 .12729 L .5 .06235 L s .54 0 m .5 .06235 L s s s s s s s s s s s s s P P p p .004 w 0 .8074 m .04167 .75038 L .08333 .69336 L .125 .63634 L .16667 .57932 L .20833 .5223 L .25 .46528 L .29167 .40826 L .33333 .35124 L .375 .29422 L .41667 .2372 L .45833 .18018 L .5 .12316 L .54167 .06614 L .58333 .00912 L s .59 0 m .58333 .00912 L s s s s s s s s s s s P P p p .004 w 0 .76837 m .04167 .71835 L .08333 .66833 L .125 .6183 L .16667 .56828 L .20833 .51825 L .25 .46823 L .29167 .4182 L .33333 .36818 L .375 .31816 L .41667 .26813 L .45833 .21811 L .5 .16808 L .54167 .11806 L .58333 .06803 L .625 .01801 L s .64 0 m .625 .01801 L s s s s s s s s s s P P p p .004 w 0 .72381 m .04167 .6801 L .08333 .63639 L .125 .59268 L .16667 .54898 L .20833 .50527 L .25 .46156 L .29167 .41785 L .33333 .37414 L .375 .33043 L .41667 .28673 L .45833 .24302 L .5 .19931 L .54167 .1556 L .58333 .11189 L .625 .06818 L .66667 .02448 L s .69 0 m .66667 .02448 L s s s s s s s s s P P p p .004 w 0 .67261 m .04167 .63473 L .08333 .59686 L .125 .55899 L .16667 .52112 L .20833 .48325 L .25 .44537 L .29167 .4075 L .33333 .36963 L .375 .33176 L .41667 .29389 L .45833 .25601 L .5 .21814 L .54167 .18027 L .58333 .1424 L .625 .10453 L .66667 .06665 L .70833 .02878 L s .74 0 m .70833 .02878 L s s s s s s s s P P p p .004 w 0 .61311 m .04167 .58077 L .08333 .54843 L .125 .5161 L .16667 .48376 L .20833 .45142 L .25 .41909 L .29167 .38675 L .33333 .35441 L .375 .32208 L .41667 .28974 L .45833 .2574 L .5 .22506 L .54167 .19273 L .58333 .16039 L .625 .12805 L .66667 .09572 L .70833 .06338 L .75 .03104 L s .79 0 m .75 .03104 L s s s s s s s P P p p .004 w 0 .54259 m .04167 .51567 L .08333 .48876 L .125 .46184 L .16667 .43493 L .20833 .40802 L .25 .3811 L .29167 .35419 L .33333 .32727 L .375 .30036 L .41667 .27345 L .45833 .24653 L .5 .21962 L .54167 .1927 L .58333 .16579 L .625 .13888 L .66667 .11196 L .70833 .08505 L .75 .05813 L .79167 .03122 L .83333 .00431 L s .84 0 m .83333 .00431 L s s s s s P P p p .004 w 0 .45596 m .04167 .43461 L .08333 .41327 L .125 .39192 L .16667 .37057 L .20833 .34923 L .25 .32788 L .29167 .30654 L .33333 .28519 L .375 .26384 L .41667 .2425 L .45833 .22115 L .5 .1998 L .54167 .17846 L .58333 .15711 L .625 .13576 L .66667 .11442 L .70833 .09307 L .75 .07172 L .79167 .05038 L .83333 .02903 L .875 .00768 L s .89 0 m .875 .00768 L s s s s P P p p .004 w 0 .34117 m .04167 .32605 L .08333 .31093 L .125 .29581 L .16667 .28068 L .20833 .26556 L .25 .25044 L .29167 .23531 L .33333 .22019 L .375 .20507 L .41667 .18994 L .45833 .17482 L .5 .1597 L .54167 .14458 L .58333 .12945 L .625 .11433 L .66667 .09921 L .70833 .08408 L .75 .06896 L .79167 .05384 L .83333 .03871 L .875 .02359 L .91667 .00847 L s .94 0 m .91667 .00847 L s s s P P p p .004 w 0 .14107 m .04167 .13513 L .08333 .12919 L .125 .12326 L .16667 .11732 L .20833 .11138 L .25 .10544 L .29167 .09951 L .33333 .09357 L .375 .08763 L .41667 .0817 L .45833 .07576 L .5 .06982 L .54167 .06388 L .58333 .05795 L .625 .05201 L .66667 .04607 L .70833 .04014 L .75 .0342 L .79167 .02826 L .83333 .02232 L .875 .01639 L .91667 .01045 L .95833 .00451 L s .99 0 m .95833 .00451 L s s P P P % End of Graphics MathPictureEnd \ \>"], "Graphics", Evaluatable->False, AspectRatioFixed->True, ImageSize->{198, 198}, ImageMargins->{{34, Inherited}, {Inherited, Inherited}}, ImageCacheValid->False]}, Open]], Cell[CellGroupData[{Cell[TextData["Answer"], "Subsubsection", Evaluatable->False, AspectRatioFixed->True], Cell[TextData["xIntercept = a;"], "Input", AspectRatioFixed->True], Cell[TextData["yIntercept = Sqrt[1 - a^2];"], "Input", AspectRatioFixed->True], Cell[TextData[ "Use Pythagoras' formula to find the length of the line between the \ intercepts. The length is always the same. "], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{Cell[TextData["Sqrt[xIntercept^2 + yIntercept^2]"], "Input", AspectRatioFixed->True], Cell[OutputFormData["\<\ 1\ \>", "\<\ 1\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True]}, Open]]}, Open]], Cell[CellGroupData[{Cell[TextData["The Astroid"], "Subsubsection", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[ "The curve formed by the lines is part of a curve called an astroid. (It is \ not a parabola.) This is the full astroid. In Latin \"aster\" means star, \ which is what the Romans must have thought the curve looked like. "], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{Cell[TextData[ "ParametricPlot[\n\t{Cos[t]^3, Sin[t]^3}, {t, 0, 2 Pi}, \n\tAspectRatio -> \ Automatic];"], "Input", AspectRatioFixed->True], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: 1 MathPictureStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 0.47619 0.5 0.47619 [ [(-1)] .02381 .5 0 2 Msboxa [(-0.5)] .2619 .5 0 2 Msboxa [(0.5)] .7381 .5 0 2 Msboxa [(1)] .97619 .5 0 2 Msboxa [(-1)] .4875 .02381 1 0 Msboxa [(-0.5)] .4875 .2619 1 0 Msboxa [(0.5)] .4875 .7381 1 0 Msboxa [(1)] .4875 .97619 1 0 Msboxa [ -0.001 -0.001 0 0 ] [ 1.001 1.001 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p p .002 w .02381 .5 m .02381 .50625 L s P [(-1)] .02381 .5 0 2 Mshowa p .002 w .2619 .5 m .2619 .50625 L s P [(-0.5)] .2619 .5 0 2 Mshowa p .002 w .7381 .5 m .7381 .50625 L s P [(0.5)] .7381 .5 0 2 Mshowa p .002 w .97619 .5 m .97619 .50625 L s P [(1)] .97619 .5 0 2 Mshowa p .001 w .07143 .5 m .07143 .50375 L s P p .001 w .11905 .5 m .11905 .50375 L s P p .001 w .16667 .5 m .16667 .50375 L s P p .001 w .21429 .5 m .21429 .50375 L s P p .001 w .30952 .5 m .30952 .50375 L s P p .001 w .35714 .5 m .35714 .50375 L s P p .001 w .40476 .5 m .40476 .50375 L s P p .001 w .45238 .5 m .45238 .50375 L s P p .001 w .54762 .5 m .54762 .50375 L s P p .001 w .59524 .5 m .59524 .50375 L s P p .001 w .64286 .5 m .64286 .50375 L s P p .001 w .69048 .5 m .69048 .50375 L s P p .001 w .78571 .5 m .78571 .50375 L s P p .001 w .83333 .5 m .83333 .50375 L s P p .001 w .88095 .5 m .88095 .50375 L s P p .001 w .92857 .5 m .92857 .50375 L s P p .002 w 0 .5 m 1 .5 L s P p .002 w .5 .02381 m .50625 .02381 L s P [(-1)] .4875 .02381 1 0 Mshowa p .002 w .5 .2619 m .50625 .2619 L s P [(-0.5)] .4875 .2619 1 0 Mshowa p .002 w .5 .7381 m .50625 .7381 L s P [(0.5)] .4875 .7381 1 0 Mshowa p .002 w .5 .97619 m .50625 .97619 L s P [(1)] .4875 .97619 1 0 Mshowa p .001 w .5 .07143 m .50375 .07143 L s P p .001 w .5 .11905 m .50375 .11905 L s P p .001 w .5 .16667 m .50375 .16667 L s P p .001 w .5 .21429 m .50375 .21429 L s P p .001 w .5 .30952 m .50375 .30952 L s P p .001 w .5 .35714 m .50375 .35714 L s P p .001 w .5 .40476 m .50375 .40476 L s P p .001 w .5 .45238 m .50375 .45238 L s P p .001 w .5 .54762 m .50375 .54762 L s P p .001 w .5 .59524 m .50375 .59524 L s P p .001 w .5 .64286 m .50375 .64286 L s P p .001 w .5 .69048 m .50375 .69048 L s P p .001 w .5 .78571 m .50375 .78571 L s P p .001 w .5 .83333 m .50375 .83333 L s P p .001 w .5 .88095 m .50375 .88095 L s P p .001 w .5 .92857 m .50375 .92857 L s P p .002 w .5 0 m .5 1 L s P P 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath p p .004 w .97619 .5 m .97614 .5 L .976 .5 L .97576 .50001 L .97543 .50002 L .975 .50003 L .97447 .50006 L .97314 .50013 L .97143 .50026 L .96934 .50045 L .96407 .50106 L .95736 .50206 L .94926 .50354 L .92915 .50826 L .90433 .51582 L .87551 .52669 L .80929 .55952 L .73778 .60743 L .66836 .66836 L .60743 .73778 L .55952 .80929 L .5412 .84354 L .52669 .87551 L .51582 .90433 L .50826 .92915 L .50354 .94926 L .50206 .95736 L .50106 .96407 L .50045 .96934 L .50026 .97143 L .50013 .97314 L .50006 .97447 L .50003 .975 L .50002 .97543 L .50001 .97576 L .5 .976 L .5 .97614 L .5 .97619 L .5 .97614 L .5 .976 L .49999 .97576 L .49998 .97543 L .49994 .97447 L .49987 .97314 L .49974 .97143 L .49955 .96934 L .49894 .96407 L .49794 .95736 L .49646 .94926 L .49174 .92915 L Mistroke .48418 .90433 L .47331 .87551 L .44048 .80929 L .39257 .73778 L .33164 .66836 L .26222 .60743 L .19071 .55952 L .12449 .52669 L .09567 .51582 L .07085 .50826 L .05074 .50354 L .04264 .50206 L .03593 .50106 L .03066 .50045 L .02857 .50026 L .02686 .50013 L .02553 .50006 L .025 .50003 L .02457 .50002 L .02424 .50001 L .024 .5 L .02386 .5 L .02381 .5 L .02386 .5 L .024 .5 L .02424 .49999 L .02457 .49998 L .02553 .49994 L .02686 .49987 L .02857 .49974 L .03066 .49955 L .03593 .49894 L .04264 .49794 L .05074 .49646 L .07085 .49174 L .09567 .48418 L .12449 .47331 L .19071 .44048 L .26222 .39257 L .33164 .33164 L .39257 .26222 L .44048 .19071 L .4588 .15646 L .47331 .12449 L .48418 .09567 L .49174 .07085 L .49646 .05074 L .49794 .04264 L .49894 .03593 L .49955 .03066 L Mistroke .49974 .02857 L .49987 .02686 L .49994 .02553 L .49997 .025 L .49998 .02457 L .49999 .02424 L .5 .024 L .5 .02386 L .5 .02381 L .5 .02386 L .5 .024 L .50001 .02424 L .50002 .02457 L .50006 .02553 L .50013 .02686 L .50026 .02857 L .50045 .03066 L .50106 .03593 L .50206 .04264 L .50354 .05074 L .50826 .07085 L .51582 .09567 L .52669 .12449 L .55952 .19071 L .60743 .26222 L .66836 .33164 L .73778 .39257 L .80929 .44048 L .84354 .4588 L .87551 .47331 L .90433 .48418 L .92915 .49174 L .94926 .49646 L .95736 .49794 L .96407 .49894 L .96934 .49955 L .97143 .49974 L .97314 .49987 L .97447 .49994 L .975 .49997 L .97543 .49998 L .97576 .49999 L .976 .5 L .97614 .5 L .97619 .5 L Mfstroke P P % End of Graphics MathPictureEnd \ \>"], "Graphics", Evaluatable->False, AspectRatioFixed->True, ImageSize->{282, 282}, ImageMargins->{{34, Inherited}, {Inherited, Inherited}}, ImageCacheValid->False]}, Open]]}, Open]], Cell[CellGroupData[{Cell[TextData["The Atroid as an Envelope"], "Subsubsection", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[ "The next two command will generate the frames of an animation showing a line \ segment of length 1 sweeping out an astroid. "], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{Cell[TextData["AstroidSweep[4];"], "Input", AspectRatioFixed->True, AnimationDisplayTime->1.03333], Cell[CellGroupData[{Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: 1 MathPictureStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 0.5 0.5 0.5 [ [ -0.001 -0.001 0 0 ] [ 1.001 1.001 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p p [ .01 .05 ] 0 setdash .002 w 0 .5 m 1 .5 L s P p [ .01 .05 ] 0 setdash .002 w .5 0 m .5 1 L s P P 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath p p p .004 w 1 .5 m .99995 .5 L .9998 .5 L .99955 .50001 L .9992 .50002 L .99875 .50003 L .9982 .50006 L .9968 .50014 L .995 .50027 L .99281 .50047 L .98728 .50111 L .98023 .50216 L .97173 .50371 L .95061 .50867 L .92455 .51661 L .89429 .52802 L .82476 .5625 L .74967 .6128 L .67678 .67678 L .6128 .74967 L .5625 .82476 L .54326 .86071 L .52802 .89429 L .51661 .92455 L .50867 .95061 L .50371 .97173 L .50216 .98023 L .50111 .98728 L .50047 .99281 L .50027 .995 L .50014 .9968 L .50006 .9982 L .50003 .99875 L .50002 .9992 L .50001 .99955 L .5 .9998 L .5 .99995 L .5 1 L .5 .99995 L .5 .9998 L .49999 .99955 L .49998 .9992 L .49994 .9982 L .49986 .9968 L .49973 .995 L .49953 .99281 L .49889 .98728 L .49784 .98023 L .49629 .97173 L .49133 .95061 L Mistroke .48339 .92455 L .47198 .89429 L .4375 .82476 L .3872 .74967 L .32322 .67678 L .25033 .6128 L .17524 .5625 L .10571 .52802 L .07545 .51661 L .04939 .50867 L .02827 .50371 L .01977 .50216 L .01272 .50111 L .00719 .50047 L .005 .50027 L .0032 .50014 L .0018 .50006 L .00125 .50003 L .0008 .50002 L .00045 .50001 L .0002 .5 L 5e-05 .5 L 0 .5 L 5e-05 .5 L .0002 .5 L .00045 .49999 L .0008 .49998 L .0018 .49994 L .0032 .49986 L .005 .49973 L .00719 .49953 L .01272 .49889 L .01977 .49784 L .02827 .49629 L .04939 .49133 L .07545 .48339 L .10571 .47198 L .17524 .4375 L .25033 .3872 L .32322 .32322 L .3872 .25033 L .4375 .17524 L .45674 .13929 L .47198 .10571 L .48339 .07545 L .49133 .04939 L .49629 .02827 L .49784 .01977 L .49889 .01272 L .49953 .00719 L Mistroke .49973 .005 L .49986 .0032 L .49994 .0018 L .49997 .00125 L .49998 .0008 L .49999 .00045 L .5 .0002 L .5 5e-05 L .5 0 L .5 5e-05 L .5 .0002 L .50001 .00045 L .50002 .0008 L .50006 .0018 L .50014 .0032 L .50027 .005 L .50047 .00719 L .50111 .01272 L .50216 .01977 L .50371 .02827 L .50867 .04939 L .51661 .07545 L .52802 .10571 L .5625 .17524 L .6128 .25033 L .67678 .32322 L .74967 .3872 L .82476 .4375 L .86071 .45674 L .89429 .47198 L .92455 .48339 L .95061 .49133 L .97173 .49629 L .98023 .49784 L .98728 .49889 L .99281 .49953 L .995 .49973 L .9968 .49986 L .9982 .49994 L .99875 .49997 L .9992 .49998 L .99955 .49999 L .9998 .5 L .99995 .5 L 1 .5 L Mfstroke P P p 0 0 1 r .004 w 0 .5 m .5 .5 L s 1 0 0 r .015 w 0 .5 Mdot .5 .5 Mdot P P % End of Graphics MathPictureEnd \ \>"], "Graphics", Evaluatable->False, AspectRatioFixed->True, ImageSize->{282, 282}, ImageMargins->{{34, Inherited}, {Inherited, Inherited}}, ImageCacheValid->False], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: 1 MathPictureStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 0.5 0.5 0.5 [ [ -0.001 -0.001 0 0 ] [ 1.001 1.001 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p p [ .01 .05 ] 0 setdash .002 w 0 .5 m 1 .5 L s P p [ .01 .05 ] 0 setdash .002 w .5 0 m .5 1 L s P P 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath p p p .004 w 1 .5 m .99995 .5 L .9998 .5 L .99955 .50001 L .9992 .50002 L .99875 .50003 L .9982 .50006 L .9968 .50014 L .995 .50027 L .99281 .50047 L .98728 .50111 L .98023 .50216 L .97173 .50371 L .95061 .50867 L .92455 .51661 L .89429 .52802 L .82476 .5625 L .74967 .6128 L .67678 .67678 L .6128 .74967 L .5625 .82476 L .54326 .86071 L .52802 .89429 L .51661 .92455 L .50867 .95061 L .50371 .97173 L .50216 .98023 L .50111 .98728 L .50047 .99281 L .50027 .995 L .50014 .9968 L .50006 .9982 L .50003 .99875 L .50002 .9992 L .50001 .99955 L .5 .9998 L .5 .99995 L .5 1 L .5 .99995 L .5 .9998 L .49999 .99955 L .49998 .9992 L .49994 .9982 L .49986 .9968 L .49973 .995 L .49953 .99281 L .49889 .98728 L .49784 .98023 L .49629 .97173 L .49133 .95061 L Mistroke .48339 .92455 L .47198 .89429 L .4375 .82476 L .3872 .74967 L .32322 .67678 L .25033 .6128 L .17524 .5625 L .10571 .52802 L .07545 .51661 L .04939 .50867 L .02827 .50371 L .01977 .50216 L .01272 .50111 L .00719 .50047 L .005 .50027 L .0032 .50014 L .0018 .50006 L .00125 .50003 L .0008 .50002 L .00045 .50001 L .0002 .5 L 5e-05 .5 L 0 .5 L 5e-05 .5 L .0002 .5 L .00045 .49999 L .0008 .49998 L .0018 .49994 L .0032 .49986 L .005 .49973 L .00719 .49953 L .01272 .49889 L .01977 .49784 L .02827 .49629 L .04939 .49133 L .07545 .48339 L .10571 .47198 L .17524 .4375 L .25033 .3872 L .32322 .32322 L .3872 .25033 L .4375 .17524 L .45674 .13929 L .47198 .10571 L .48339 .07545 L .49133 .04939 L .49629 .02827 L .49784 .01977 L .49889 .01272 L .49953 .00719 L Mistroke .49973 .005 L .49986 .0032 L .49994 .0018 L .49997 .00125 L .49998 .0008 L .49999 .00045 L .5 .0002 L .5 5e-05 L .5 0 L .5 5e-05 L .5 .0002 L .50001 .00045 L .50002 .0008 L .50006 .0018 L .50014 .0032 L .50027 .005 L .50047 .00719 L .50111 .01272 L .50216 .01977 L .50371 .02827 L .50867 .04939 L .51661 .07545 L .52802 .10571 L .5625 .17524 L .6128 .25033 L .67678 .32322 L .74967 .3872 L .82476 .4375 L .86071 .45674 L .89429 .47198 L .92455 .48339 L .95061 .49133 L .97173 .49629 L .98023 .49784 L .98728 .49889 L .99281 .49953 L .995 .49973 L .9968 .49986 L .9982 .49994 L .99875 .49997 L .9992 .49998 L .99955 .49999 L .9998 .5 L .99995 .5 L 1 .5 L Mfstroke P P p 0 0 1 r .004 w .125 .5 m .5 .83072 L s 1 0 0 r .015 w .125 .5 Mdot .5 .83072 Mdot P P % End of Graphics MathPictureEnd \ \>"], "Graphics", Evaluatable->False, AspectRatioFixed->True, ImageSize->{282, 282}, ImageMargins->{{34, Inherited}, {Inherited, Inherited}}, ImageCacheValid->False], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: 1 MathPictureStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 0.5 0.5 0.5 [ [ -0.001 -0.001 0 0 ] [ 1.001 1.001 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p p [ .01 .05 ] 0 setdash .002 w 0 .5 m 1 .5 L s P p [ .01 .05 ] 0 setdash .002 w .5 0 m .5 1 L s P P 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath p p p .004 w 1 .5 m .99995 .5 L .9998 .5 L .99955 .50001 L .9992 .50002 L .99875 .50003 L .9982 .50006 L .9968 .50014 L .995 .50027 L .99281 .50047 L .98728 .50111 L .98023 .50216 L .97173 .50371 L .95061 .50867 L .92455 .51661 L .89429 .52802 L .82476 .5625 L .74967 .6128 L .67678 .67678 L .6128 .74967 L .5625 .82476 L .54326 .86071 L .52802 .89429 L .51661 .92455 L .50867 .95061 L .50371 .97173 L .50216 .98023 L .50111 .98728 L .50047 .99281 L .50027 .995 L .50014 .9968 L .50006 .9982 L .50003 .99875 L .50002 .9992 L .50001 .99955 L .5 .9998 L .5 .99995 L .5 1 L .5 .99995 L .5 .9998 L .49999 .99955 L .49998 .9992 L .49994 .9982 L .49986 .9968 L .49973 .995 L .49953 .99281 L .49889 .98728 L .49784 .98023 L .49629 .97173 L .49133 .95061 L Mistroke .48339 .92455 L .47198 .89429 L .4375 .82476 L .3872 .74967 L .32322 .67678 L .25033 .6128 L .17524 .5625 L .10571 .52802 L .07545 .51661 L .04939 .50867 L .02827 .50371 L .01977 .50216 L .01272 .50111 L .00719 .50047 L .005 .50027 L .0032 .50014 L .0018 .50006 L .00125 .50003 L .0008 .50002 L .00045 .50001 L .0002 .5 L 5e-05 .5 L 0 .5 L 5e-05 .5 L .0002 .5 L .00045 .49999 L .0008 .49998 L .0018 .49994 L .0032 .49986 L .005 .49973 L .00719 .49953 L .01272 .49889 L .01977 .49784 L .02827 .49629 L .04939 .49133 L .07545 .48339 L .10571 .47198 L .17524 .4375 L .25033 .3872 L .32322 .32322 L .3872 .25033 L .4375 .17524 L .45674 .13929 L .47198 .10571 L .48339 .07545 L .49133 .04939 L .49629 .02827 L .49784 .01977 L .49889 .01272 L .49953 .00719 L Mistroke .49973 .005 L .49986 .0032 L .49994 .0018 L .49997 .00125 L .49998 .0008 L .49999 .00045 L .5 .0002 L .5 5e-05 L .5 0 L .5 5e-05 L .5 .0002 L .50001 .00045 L .50002 .0008 L .50006 .0018 L .50014 .0032 L .50027 .005 L .50047 .00719 L .50111 .01272 L .50216 .01977 L .50371 .02827 L .50867 .04939 L .51661 .07545 L .52802 .10571 L .5625 .17524 L .6128 .25033 L .67678 .32322 L .74967 .3872 L .82476 .4375 L .86071 .45674 L .89429 .47198 L .92455 .48339 L .95061 .49133 L .97173 .49629 L .98023 .49784 L .98728 .49889 L .99281 .49953 L .995 .49973 L .9968 .49986 L .9982 .49994 L .99875 .49997 L .9992 .49998 L .99955 .49999 L .9998 .5 L .99995 .5 L 1 .5 L Mfstroke P P p 0 0 1 r .004 w .25 .5 m .5 .93301 L s 1 0 0 r .015 w .25 .5 Mdot .5 .93301 Mdot P P % End of Graphics MathPictureEnd \ \>"], "Graphics", Evaluatable->False, AspectRatioFixed->True, ImageSize->{282, 282}, ImageMargins->{{34, Inherited}, {Inherited, Inherited}}, ImageCacheValid->False], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: 1 MathPictureStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 0.5 0.5 0.5 [ [ -0.001 -0.001 0 0 ] [ 1.001 1.001 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p p [ .01 .05 ] 0 setdash .002 w 0 .5 m 1 .5 L s P p [ .01 .05 ] 0 setdash .002 w .5 0 m .5 1 L s P P 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath p p p .004 w 1 .5 m .99995 .5 L .9998 .5 L .99955 .50001 L .9992 .50002 L .99875 .50003 L .9982 .50006 L .9968 .50014 L .995 .50027 L .99281 .50047 L .98728 .50111 L .98023 .50216 L .97173 .50371 L .95061 .50867 L .92455 .51661 L .89429 .52802 L .82476 .5625 L .74967 .6128 L .67678 .67678 L .6128 .74967 L .5625 .82476 L .54326 .86071 L .52802 .89429 L .51661 .92455 L .50867 .95061 L .50371 .97173 L .50216 .98023 L .50111 .98728 L .50047 .99281 L .50027 .995 L .50014 .9968 L .50006 .9982 L .50003 .99875 L .50002 .9992 L .50001 .99955 L .5 .9998 L .5 .99995 L .5 1 L .5 .99995 L .5 .9998 L .49999 .99955 L .49998 .9992 L .49994 .9982 L .49986 .9968 L .49973 .995 L .49953 .99281 L .49889 .98728 L .49784 .98023 L .49629 .97173 L .49133 .95061 L Mistroke .48339 .92455 L .47198 .89429 L .4375 .82476 L .3872 .74967 L .32322 .67678 L .25033 .6128 L .17524 .5625 L .10571 .52802 L .07545 .51661 L .04939 .50867 L .02827 .50371 L .01977 .50216 L .01272 .50111 L .00719 .50047 L .005 .50027 L .0032 .50014 L .0018 .50006 L .00125 .50003 L .0008 .50002 L .00045 .50001 L .0002 .5 L 5e-05 .5 L 0 .5 L 5e-05 .5 L .0002 .5 L .00045 .49999 L .0008 .49998 L .0018 .49994 L .0032 .49986 L .005 .49973 L .00719 .49953 L .01272 .49889 L .01977 .49784 L .02827 .49629 L .04939 .49133 L .07545 .48339 L .10571 .47198 L .17524 .4375 L .25033 .3872 L .32322 .32322 L .3872 .25033 L .4375 .17524 L .45674 .13929 L .47198 .10571 L .48339 .07545 L .49133 .04939 L .49629 .02827 L .49784 .01977 L .49889 .01272 L .49953 .00719 L Mistroke .49973 .005 L .49986 .0032 L .49994 .0018 L .49997 .00125 L .49998 .0008 L .49999 .00045 L .5 .0002 L .5 5e-05 L .5 0 L .5 5e-05 L .5 .0002 L .50001 .00045 L .50002 .0008 L .50006 .0018 L .50014 .0032 L .50027 .005 L .50047 .00719 L .50111 .01272 L .50216 .01977 L .50371 .02827 L .50867 .04939 L .51661 .07545 L .52802 .10571 L .5625 .17524 L .6128 .25033 L .67678 .32322 L .74967 .3872 L .82476 .4375 L .86071 .45674 L .89429 .47198 L .92455 .48339 L .95061 .49133 L .97173 .49629 L .98023 .49784 L .98728 .49889 L .99281 .49953 L .995 .49973 L .9968 .49986 L .9982 .49994 L .99875 .49997 L .9992 .49998 L .99955 .49999 L .9998 .5 L .99995 .5 L 1 .5 L Mfstroke P P p 0 0 1 r .004 w .375 .5 m .5 .98412 L s 1 0 0 r .015 w .375 .5 Mdot .5 .98412 Mdot P P % End of Graphics MathPictureEnd \ \>"], "Graphics", Evaluatable->False, AspectRatioFixed->True, ImageSize->{282, 282}, ImageMargins->{{34, Inherited}, {Inherited, Inherited}}, ImageCacheValid->False], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: 1 MathPictureStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 0.5 0.5 0.5 [ [ -0.001 -0.001 0 0 ] [ 1.001 1.001 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p p [ .01 .05 ] 0 setdash .002 w 0 .5 m 1 .5 L s P p [ .01 .05 ] 0 setdash .002 w .5 0 m .5 1 L s P P 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath p p p .004 w 1 .5 m .99995 .5 L .9998 .5 L .99955 .50001 L .9992 .50002 L .99875 .50003 L .9982 .50006 L .9968 .50014 L .995 .50027 L .99281 .50047 L .98728 .50111 L .98023 .50216 L .97173 .50371 L .95061 .50867 L .92455 .51661 L .89429 .52802 L .82476 .5625 L .74967 .6128 L .67678 .67678 L .6128 .74967 L .5625 .82476 L .54326 .86071 L .52802 .89429 L .51661 .92455 L .50867 .95061 L .50371 .97173 L .50216 .98023 L .50111 .98728 L .50047 .99281 L .50027 .995 L .50014 .9968 L .50006 .9982 L .50003 .99875 L .50002 .9992 L .50001 .99955 L .5 .9998 L .5 .99995 L .5 1 L .5 .99995 L .5 .9998 L .49999 .99955 L .49998 .9992 L .49994 .9982 L .49986 .9968 L .49973 .995 L .49953 .99281 L .49889 .98728 L .49784 .98023 L .49629 .97173 L .49133 .95061 L Mistroke .48339 .92455 L .47198 .89429 L .4375 .82476 L .3872 .74967 L .32322 .67678 L .25033 .6128 L .17524 .5625 L .10571 .52802 L .07545 .51661 L .04939 .50867 L .02827 .50371 L .01977 .50216 L .01272 .50111 L .00719 .50047 L .005 .50027 L .0032 .50014 L .0018 .50006 L .00125 .50003 L .0008 .50002 L .00045 .50001 L .0002 .5 L 5e-05 .5 L 0 .5 L 5e-05 .5 L .0002 .5 L .00045 .49999 L .0008 .49998 L .0018 .49994 L .0032 .49986 L .005 .49973 L .00719 .49953 L .01272 .49889 L .01977 .49784 L .02827 .49629 L .04939 .49133 L .07545 .48339 L .10571 .47198 L .17524 .4375 L .25033 .3872 L .32322 .32322 L .3872 .25033 L .4375 .17524 L .45674 .13929 L .47198 .10571 L .48339 .07545 L .49133 .04939 L .49629 .02827 L .49784 .01977 L .49889 .01272 L .49953 .00719 L Mistroke .49973 .005 L .49986 .0032 L .49994 .0018 L .49997 .00125 L .49998 .0008 L .49999 .00045 L .5 .0002 L .5 5e-05 L .5 0 L .5 5e-05 L .5 .0002 L .50001 .00045 L .50002 .0008 L .50006 .0018 L .50014 .0032 L .50027 .005 L .50047 .00719 L .50111 .01272 L .50216 .01977 L .50371 .02827 L .50867 .04939 L .51661 .07545 L .52802 .10571 L .5625 .17524 L .6128 .25033 L .67678 .32322 L .74967 .3872 L .82476 .4375 L .86071 .45674 L .89429 .47198 L .92455 .48339 L .95061 .49133 L .97173 .49629 L .98023 .49784 L .98728 .49889 L .99281 .49953 L .995 .49973 L .9968 .49986 L .9982 .49994 L .99875 .49997 L .9992 .49998 L .99955 .49999 L .9998 .5 L .99995 .5 L 1 .5 L Mfstroke P P p 0 0 1 r .004 w .5 .5 m .5 1 L s 1 0 0 r .015 w .5 .5 Mdot .5 1 Mdot P P % End of Graphics MathPictureEnd \ \>"], "Graphics", Evaluatable->False, AspectRatioFixed->True, ImageSize->{282, 282}, ImageMargins->{{34, Inherited}, {Inherited, Inherited}}, ImageCacheValid->False], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: 1 MathPictureStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 0.5 0.5 0.5 [ [ -0.001 -0.001 0 0 ] [ 1.001 1.001 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p p [ .01 .05 ] 0 setdash .002 w 0 .5 m 1 .5 L s P p [ .01 .05 ] 0 setdash .002 w .5 0 m .5 1 L s P P 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath p p p .004 w 1 .5 m .99995 .5 L .9998 .5 L .99955 .50001 L .9992 .50002 L .99875 .50003 L .9982 .50006 L .9968 .50014 L .995 .50027 L .99281 .50047 L .98728 .50111 L .98023 .50216 L .97173 .50371 L .95061 .50867 L .92455 .51661 L .89429 .52802 L .82476 .5625 L .74967 .6128 L .67678 .67678 L .6128 .74967 L .5625 .82476 L .54326 .86071 L .52802 .89429 L .51661 .92455 L .50867 .95061 L .50371 .97173 L .50216 .98023 L .50111 .98728 L .50047 .99281 L .50027 .995 L .50014 .9968 L .50006 .9982 L .50003 .99875 L .50002 .9992 L .50001 .99955 L .5 .9998 L .5 .99995 L .5 1 L .5 .99995 L .5 .9998 L .49999 .99955 L .49998 .9992 L .49994 .9982 L .49986 .9968 L .49973 .995 L .49953 .99281 L .49889 .98728 L .49784 .98023 L .49629 .97173 L .49133 .95061 L Mistroke .48339 .92455 L .47198 .89429 L .4375 .82476 L .3872 .74967 L .32322 .67678 L .25033 .6128 L .17524 .5625 L .10571 .52802 L .07545 .51661 L .04939 .50867 L .02827 .50371 L .01977 .50216 L .01272 .50111 L .00719 .50047 L .005 .50027 L .0032 .50014 L .0018 .50006 L .00125 .50003 L .0008 .50002 L .00045 .50001 L .0002 .5 L 5e-05 .5 L 0 .5 L 5e-05 .5 L .0002 .5 L .00045 .49999 L .0008 .49998 L .0018 .49994 L .0032 .49986 L .005 .49973 L .00719 .49953 L .01272 .49889 L .01977 .49784 L .02827 .49629 L .04939 .49133 L .07545 .48339 L .10571 .47198 L .17524 .4375 L .25033 .3872 L .32322 .32322 L .3872 .25033 L .4375 .17524 L .45674 .13929 L .47198 .10571 L .48339 .07545 L .49133 .04939 L .49629 .02827 L .49784 .01977 L .49889 .01272 L .49953 .00719 L Mistroke .49973 .005 L .49986 .0032 L .49994 .0018 L .49997 .00125 L .49998 .0008 L .49999 .00045 L .5 .0002 L .5 5e-05 L .5 0 L .5 5e-05 L .5 .0002 L .50001 .00045 L .50002 .0008 L .50006 .0018 L .50014 .0032 L .50027 .005 L .50047 .00719 L .50111 .01272 L .50216 .01977 L .50371 .02827 L .50867 .04939 L .51661 .07545 L .52802 .10571 L .5625 .17524 L .6128 .25033 L .67678 .32322 L .74967 .3872 L .82476 .4375 L .86071 .45674 L .89429 .47198 L .92455 .48339 L .95061 .49133 L .97173 .49629 L .98023 .49784 L .98728 .49889 L .99281 .49953 L .995 .49973 L .9968 .49986 L .9982 .49994 L .99875 .49997 L .9992 .49998 L .99955 .49999 L .9998 .5 L .99995 .5 L 1 .5 L Mfstroke P P p 0 0 1 r .004 w .625 .5 m .5 .98412 L s 1 0 0 r .015 w .625 .5 Mdot .5 .98412 Mdot P P % End of Graphics MathPictureEnd \ \>"], "Graphics", Evaluatable->False, AspectRatioFixed->True, ImageSize->{282, 282}, ImageMargins->{{34, Inherited}, {Inherited, Inherited}}, ImageCacheValid->False], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: 1 MathPictureStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 0.5 0.5 0.5 [ [ -0.001 -0.001 0 0 ] [ 1.001 1.001 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p p [ .01 .05 ] 0 setdash .002 w 0 .5 m 1 .5 L s P p [ .01 .05 ] 0 setdash .002 w .5 0 m .5 1 L s P P 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath p p p .004 w 1 .5 m .99995 .5 L .9998 .5 L .99955 .50001 L .9992 .50002 L .99875 .50003 L .9982 .50006 L .9968 .50014 L .995 .50027 L .99281 .50047 L .98728 .50111 L .98023 .50216 L .97173 .50371 L .95061 .50867 L .92455 .51661 L .89429 .52802 L .82476 .5625 L .74967 .6128 L .67678 .67678 L .6128 .74967 L .5625 .82476 L .54326 .86071 L .52802 .89429 L .51661 .92455 L .50867 .95061 L .50371 .97173 L .50216 .98023 L .50111 .98728 L .50047 .99281 L .50027 .995 L .50014 .9968 L .50006 .9982 L .50003 .99875 L .50002 .9992 L .50001 .99955 L .5 .9998 L .5 .99995 L .5 1 L .5 .99995 L .5 .9998 L .49999 .99955 L .49998 .9992 L .49994 .9982 L .49986 .9968 L .49973 .995 L .49953 .99281 L .49889 .98728 L .49784 .98023 L .49629 .97173 L .49133 .95061 L Mistroke .48339 .92455 L .47198 .89429 L .4375 .82476 L .3872 .74967 L .32322 .67678 L .25033 .6128 L .17524 .5625 L .10571 .52802 L .07545 .51661 L .04939 .50867 L .02827 .50371 L .01977 .50216 L .01272 .50111 L .00719 .50047 L .005 .50027 L .0032 .50014 L .0018 .50006 L .00125 .50003 L .0008 .50002 L .00045 .50001 L .0002 .5 L 5e-05 .5 L 0 .5 L 5e-05 .5 L .0002 .5 L .00045 .49999 L .0008 .49998 L .0018 .49994 L .0032 .49986 L .005 .49973 L .00719 .49953 L .01272 .49889 L .01977 .49784 L .02827 .49629 L .04939 .49133 L .07545 .48339 L .10571 .47198 L .17524 .4375 L .25033 .3872 L .32322 .32322 L .3872 .25033 L .4375 .17524 L .45674 .13929 L .47198 .10571 L .48339 .07545 L .49133 .04939 L .49629 .02827 L .49784 .01977 L .49889 .01272 L .49953 .00719 L Mistroke .49973 .005 L .49986 .0032 L .49994 .0018 L .49997 .00125 L .49998 .0008 L .49999 .00045 L .5 .0002 L .5 5e-05 L .5 0 L .5 5e-05 L .5 .0002 L .50001 .00045 L .50002 .0008 L .50006 .0018 L .50014 .0032 L .50027 .005 L .50047 .00719 L .50111 .01272 L .50216 .01977 L .50371 .02827 L .50867 .04939 L .51661 .07545 L .52802 .10571 L .5625 .17524 L .6128 .25033 L .67678 .32322 L .74967 .3872 L .82476 .4375 L .86071 .45674 L .89429 .47198 L .92455 .48339 L .95061 .49133 L .97173 .49629 L .98023 .49784 L .98728 .49889 L .99281 .49953 L .995 .49973 L .9968 .49986 L .9982 .49994 L .99875 .49997 L .9992 .49998 L .99955 .49999 L .9998 .5 L .99995 .5 L 1 .5 L Mfstroke P P p 0 0 1 r .004 w .75 .5 m .5 .93301 L s 1 0 0 r .015 w .75 .5 Mdot .5 .93301 Mdot P P % End of Graphics MathPictureEnd \ \>"], "Graphics", Evaluatable->False, AspectRatioFixed->True, ImageSize->{282, 282}, ImageMargins->{{34, Inherited}, {Inherited, Inherited}}, ImageCacheValid->False], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: 1 MathPictureStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 0.5 0.5 0.5 [ [ -0.001 -0.001 0 0 ] [ 1.001 1.001 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p p [ .01 .05 ] 0 setdash .002 w 0 .5 m 1 .5 L s P p [ .01 .05 ] 0 setdash .002 w .5 0 m .5 1 L s P P 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath p p p .004 w 1 .5 m .99995 .5 L .9998 .5 L .99955 .50001 L .9992 .50002 L .99875 .50003 L .9982 .50006 L .9968 .50014 L .995 .50027 L .99281 .50047 L .98728 .50111 L .98023 .50216 L .97173 .50371 L .95061 .50867 L .92455 .51661 L .89429 .52802 L .82476 .5625 L .74967 .6128 L .67678 .67678 L .6128 .74967 L .5625 .82476 L .54326 .86071 L .52802 .89429 L .51661 .92455 L .50867 .95061 L .50371 .97173 L .50216 .98023 L .50111 .98728 L .50047 .99281 L .50027 .995 L .50014 .9968 L .50006 .9982 L .50003 .99875 L .50002 .9992 L .50001 .99955 L .5 .9998 L .5 .99995 L .5 1 L .5 .99995 L .5 .9998 L .49999 .99955 L .49998 .9992 L .49994 .9982 L .49986 .9968 L .49973 .995 L .49953 .99281 L .49889 .98728 L .49784 .98023 L .49629 .97173 L .49133 .95061 L Mistroke .48339 .92455 L .47198 .89429 L .4375 .82476 L .3872 .74967 L .32322 .67678 L .25033 .6128 L .17524 .5625 L .10571 .52802 L .07545 .51661 L .04939 .50867 L .02827 .50371 L .01977 .50216 L .01272 .50111 L .00719 .50047 L .005 .50027 L .0032 .50014 L .0018 .50006 L .00125 .50003 L .0008 .50002 L .00045 .50001 L .0002 .5 L 5e-05 .5 L 0 .5 L 5e-05 .5 L .0002 .5 L .00045 .49999 L .0008 .49998 L .0018 .49994 L .0032 .49986 L .005 .49973 L .00719 .49953 L .01272 .49889 L .01977 .49784 L .02827 .49629 L .04939 .49133 L .07545 .48339 L .10571 .47198 L .17524 .4375 L .25033 .3872 L .32322 .32322 L .3872 .25033 L .4375 .17524 L .45674 .13929 L .47198 .10571 L .48339 .07545 L .49133 .04939 L .49629 .02827 L .49784 .01977 L .49889 .01272 L .49953 .00719 L Mistroke .49973 .005 L .49986 .0032 L .49994 .0018 L .49997 .00125 L .49998 .0008 L .49999 .00045 L .5 .0002 L .5 5e-05 L .5 0 L .5 5e-05 L .5 .0002 L .50001 .00045 L .50002 .0008 L .50006 .0018 L .50014 .0032 L .50027 .005 L .50047 .00719 L .50111 .01272 L .50216 .01977 L .50371 .02827 L .50867 .04939 L .51661 .07545 L .52802 .10571 L .5625 .17524 L .6128 .25033 L .67678 .32322 L .74967 .3872 L .82476 .4375 L .86071 .45674 L .89429 .47198 L .92455 .48339 L .95061 .49133 L .97173 .49629 L .98023 .49784 L .98728 .49889 L .99281 .49953 L .995 .49973 L .9968 .49986 L .9982 .49994 L .99875 .49997 L .9992 .49998 L .99955 .49999 L .9998 .5 L .99995 .5 L 1 .5 L Mfstroke P P p 0 0 1 r .004 w .875 .5 m .5 .83072 L s 1 0 0 r .015 w .875 .5 Mdot .5 .83072 Mdot P P % End of Graphics MathPictureEnd \ \>"], "Graphics", Evaluatable->False, AspectRatioFixed->True, ImageSize->{282, 282}, ImageMargins->{{34, Inherited}, {Inherited, Inherited}}, ImageCacheValid->False], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: 1 MathPictureStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 0.5 0.5 0.5 [ [ -0.001 -0.001 0 0 ] [ 1.001 1.001 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p p [ .01 .05 ] 0 setdash .002 w 0 .5 m 1 .5 L s P p [ .01 .05 ] 0 setdash .002 w .5 0 m .5 1 L s P P 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath p p p .004 w 1 .5 m .99995 .5 L .9998 .5 L .99955 .50001 L .9992 .50002 L .99875 .50003 L .9982 .50006 L .9968 .50014 L .995 .50027 L .99281 .50047 L .98728 .50111 L .98023 .50216 L .97173 .50371 L .95061 .50867 L .92455 .51661 L .89429 .52802 L .82476 .5625 L .74967 .6128 L .67678 .67678 L .6128 .74967 L .5625 .82476 L .54326 .86071 L .52802 .89429 L .51661 .92455 L .50867 .95061 L .50371 .97173 L .50216 .98023 L .50111 .98728 L .50047 .99281 L .50027 .995 L .50014 .9968 L .50006 .9982 L .50003 .99875 L .50002 .9992 L .50001 .99955 L .5 .9998 L .5 .99995 L .5 1 L .5 .99995 L .5 .9998 L .49999 .99955 L .49998 .9992 L .49994 .9982 L .49986 .9968 L .49973 .995 L .49953 .99281 L .49889 .98728 L .49784 .98023 L .49629 .97173 L .49133 .95061 L Mistroke .48339 .92455 L .47198 .89429 L .4375 .82476 L .3872 .74967 L .32322 .67678 L .25033 .6128 L .17524 .5625 L .10571 .52802 L .07545 .51661 L .04939 .50867 L .02827 .50371 L .01977 .50216 L .01272 .50111 L .00719 .50047 L .005 .50027 L .0032 .50014 L .0018 .50006 L .00125 .50003 L .0008 .50002 L .00045 .50001 L .0002 .5 L 5e-05 .5 L 0 .5 L 5e-05 .5 L .0002 .5 L .00045 .49999 L .0008 .49998 L .0018 .49994 L .0032 .49986 L .005 .49973 L .00719 .49953 L .01272 .49889 L .01977 .49784 L .02827 .49629 L .04939 .49133 L .07545 .48339 L .10571 .47198 L .17524 .4375 L .25033 .3872 L .32322 .32322 L .3872 .25033 L .4375 .17524 L .45674 .13929 L .47198 .10571 L .48339 .07545 L .49133 .04939 L .49629 .02827 L .49784 .01977 L .49889 .01272 L .49953 .00719 L Mistroke .49973 .005 L .49986 .0032 L .49994 .0018 L .49997 .00125 L .49998 .0008 L .49999 .00045 L .5 .0002 L .5 5e-05 L .5 0 L .5 5e-05 L .5 .0002 L .50001 .00045 L .50002 .0008 L .50006 .0018 L .50014 .0032 L .50027 .005 L .50047 .00719 L .50111 .01272 L .50216 .01977 L .50371 .02827 L .50867 .04939 L .51661 .07545 L .52802 .10571 L .5625 .17524 L .6128 .25033 L .67678 .32322 L .74967 .3872 L .82476 .4375 L .86071 .45674 L .89429 .47198 L .92455 .48339 L .95061 .49133 L .97173 .49629 L .98023 .49784 L .98728 .49889 L .99281 .49953 L .995 .49973 L .9968 .49986 L .9982 .49994 L .99875 .49997 L .9992 .49998 L .99955 .49999 L .9998 .5 L .99995 .5 L 1 .5 L Mfstroke P P p 0 0 1 r .004 w 1 .5 m .5 .5 L s 1 0 0 r .015 w 1 .5 Mdot .5 .5 Mdot P P % End of Graphics MathPictureEnd \ \>"], "Graphics", Evaluatable->False, AspectRatioFixed->True, ImageSize->{282, 282}, ImageMargins->{{34, Inherited}, {Inherited, Inherited}}, ImageCacheValid->False], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: 1 MathPictureStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 0.5 0.5 0.5 [ [ -0.001 -0.001 0 0 ] [ 1.001 1.001 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p p [ .01 .05 ] 0 setdash .002 w 0 .5 m 1 .5 L s P p [ .01 .05 ] 0 setdash .002 w .5 0 m .5 1 L s P P 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath p p p .004 w 1 .5 m .99995 .5 L .9998 .5 L .99955 .50001 L .9992 .50002 L .99875 .50003 L .9982 .50006 L .9968 .50014 L .995 .50027 L .99281 .50047 L .98728 .50111 L .98023 .50216 L .97173 .50371 L .95061 .50867 L .92455 .51661 L .89429 .52802 L .82476 .5625 L .74967 .6128 L .67678 .67678 L .6128 .74967 L .5625 .82476 L .54326 .86071 L .52802 .89429 L .51661 .92455 L .50867 .95061 L .50371 .97173 L .50216 .98023 L .50111 .98728 L .50047 .99281 L .50027 .995 L .50014 .9968 L .50006 .9982 L .50003 .99875 L .50002 .9992 L .50001 .99955 L .5 .9998 L .5 .99995 L .5 1 L .5 .99995 L .5 .9998 L .49999 .99955 L .49998 .9992 L .49994 .9982 L .49986 .9968 L .49973 .995 L .49953 .99281 L .49889 .98728 L .49784 .98023 L .49629 .97173 L .49133 .95061 L Mistroke .48339 .92455 L .47198 .89429 L .4375 .82476 L .3872 .74967 L .32322 .67678 L .25033 .6128 L .17524 .5625 L .10571 .52802 L .07545 .51661 L .04939 .50867 L .02827 .50371 L .01977 .50216 L .01272 .50111 L .00719 .50047 L .005 .50027 L .0032 .50014 L .0018 .50006 L .00125 .50003 L .0008 .50002 L .00045 .50001 L .0002 .5 L 5e-05 .5 L 0 .5 L 5e-05 .5 L .0002 .5 L .00045 .49999 L .0008 .49998 L .0018 .49994 L .0032 .49986 L .005 .49973 L .00719 .49953 L .01272 .49889 L .01977 .49784 L .02827 .49629 L .04939 .49133 L .07545 .48339 L .10571 .47198 L .17524 .4375 L .25033 .3872 L .32322 .32322 L .3872 .25033 L .4375 .17524 L .45674 .13929 L .47198 .10571 L .48339 .07545 L .49133 .04939 L .49629 .02827 L .49784 .01977 L .49889 .01272 L .49953 .00719 L Mistroke .49973 .005 L .49986 .0032 L .49994 .0018 L .49997 .00125 L .49998 .0008 L .49999 .00045 L .5 .0002 L .5 5e-05 L .5 0 L .5 5e-05 L .5 .0002 L .50001 .00045 L .50002 .0008 L .50006 .0018 L .50014 .0032 L .50027 .005 L .50047 .00719 L .50111 .01272 L .50216 .01977 L .50371 .02827 L .50867 .04939 L .51661 .07545 L .52802 .10571 L .5625 .17524 L .6128 .25033 L .67678 .32322 L .74967 .3872 L .82476 .4375 L .86071 .45674 L .89429 .47198 L .92455 .48339 L .95061 .49133 L .97173 .49629 L .98023 .49784 L .98728 .49889 L .99281 .49953 L .995 .49973 L .9968 .49986 L .9982 .49994 L .99875 .49997 L .9992 .49998 L .99955 .49999 L .9998 .5 L .99995 .5 L 1 .5 L Mfstroke P P p 0 0 1 r .004 w .875 .5 m .5 .16928 L s 1 0 0 r .015 w .875 .5 Mdot .5 .16928 Mdot P P % End of Graphics MathPictureEnd \ \>"], "Graphics", Evaluatable->False, AspectRatioFixed->True, ImageSize->{282, 282}, ImageMargins->{{34, Inherited}, {Inherited, Inherited}}, ImageCacheValid->False], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: 1 MathPictureStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 0.5 0.5 0.5 [ [ -0.001 -0.001 0 0 ] [ 1.001 1.001 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p p [ .01 .05 ] 0 setdash .002 w 0 .5 m 1 .5 L s P p [ .01 .05 ] 0 setdash .002 w .5 0 m .5 1 L s P P 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath p p p .004 w 1 .5 m .99995 .5 L .9998 .5 L .99955 .50001 L .9992 .50002 L .99875 .50003 L .9982 .50006 L .9968 .50014 L .995 .50027 L .99281 .50047 L .98728 .50111 L .98023 .50216 L .97173 .50371 L .95061 .50867 L .92455 .51661 L .89429 .52802 L .82476 .5625 L .74967 .6128 L .67678 .67678 L .6128 .74967 L .5625 .82476 L .54326 .86071 L .52802 .89429 L .51661 .92455 L .50867 .95061 L .50371 .97173 L .50216 .98023 L .50111 .98728 L .50047 .99281 L .50027 .995 L .50014 .9968 L .50006 .9982 L .50003 .99875 L .50002 .9992 L .50001 .99955 L .5 .9998 L .5 .99995 L .5 1 L .5 .99995 L .5 .9998 L .49999 .99955 L .49998 .9992 L .49994 .9982 L .49986 .9968 L .49973 .995 L .49953 .99281 L .49889 .98728 L .49784 .98023 L .49629 .97173 L .49133 .95061 L Mistroke .48339 .92455 L .47198 .89429 L .4375 .82476 L .3872 .74967 L .32322 .67678 L .25033 .6128 L .17524 .5625 L .10571 .52802 L .07545 .51661 L .04939 .50867 L .02827 .50371 L .01977 .50216 L .01272 .50111 L .00719 .50047 L .005 .50027 L .0032 .50014 L .0018 .50006 L .00125 .50003 L .0008 .50002 L .00045 .50001 L .0002 .5 L 5e-05 .5 L 0 .5 L 5e-05 .5 L .0002 .5 L .00045 .49999 L .0008 .49998 L .0018 .49994 L .0032 .49986 L .005 .49973 L .00719 .49953 L .01272 .49889 L .01977 .49784 L .02827 .49629 L .04939 .49133 L .07545 .48339 L .10571 .47198 L .17524 .4375 L .25033 .3872 L .32322 .32322 L .3872 .25033 L .4375 .17524 L .45674 .13929 L .47198 .10571 L .48339 .07545 L .49133 .04939 L .49629 .02827 L .49784 .01977 L .49889 .01272 L .49953 .00719 L Mistroke .49973 .005 L .49986 .0032 L .49994 .0018 L .49997 .00125 L .49998 .0008 L .49999 .00045 L .5 .0002 L .5 5e-05 L .5 0 L .5 5e-05 L .5 .0002 L .50001 .00045 L .50002 .0008 L .50006 .0018 L .50014 .0032 L .50027 .005 L .50047 .00719 L .50111 .01272 L .50216 .01977 L .50371 .02827 L .50867 .04939 L .51661 .07545 L .52802 .10571 L .5625 .17524 L .6128 .25033 L .67678 .32322 L .74967 .3872 L .82476 .4375 L .86071 .45674 L .89429 .47198 L .92455 .48339 L .95061 .49133 L .97173 .49629 L .98023 .49784 L .98728 .49889 L .99281 .49953 L .995 .49973 L .9968 .49986 L .9982 .49994 L .99875 .49997 L .9992 .49998 L .99955 .49999 L .9998 .5 L .99995 .5 L 1 .5 L Mfstroke P P p 0 0 1 r .004 w .75 .5 m .5 .06699 L s 1 0 0 r .015 w .75 .5 Mdot .5 .06699 Mdot P P % End of Graphics MathPictureEnd \ \>"], "Graphics", Evaluatable->False, AspectRatioFixed->True, ImageSize->{282, 282}, ImageMargins->{{34, Inherited}, {Inherited, Inherited}}, ImageCacheValid->False], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: 1 MathPictureStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 0.5 0.5 0.5 [ [ -0.001 -0.001 0 0 ] [ 1.001 1.001 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p p [ .01 .05 ] 0 setdash .002 w 0 .5 m 1 .5 L s P p [ .01 .05 ] 0 setdash .002 w .5 0 m .5 1 L s P P 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath p p p .004 w 1 .5 m .99995 .5 L .9998 .5 L .99955 .50001 L .9992 .50002 L .99875 .50003 L .9982 .50006 L .9968 .50014 L .995 .50027 L .99281 .50047 L .98728 .50111 L .98023 .50216 L .97173 .50371 L .95061 .50867 L .92455 .51661 L .89429 .52802 L .82476 .5625 L .74967 .6128 L .67678 .67678 L .6128 .74967 L .5625 .82476 L .54326 .86071 L .52802 .89429 L .51661 .92455 L .50867 .95061 L .50371 .97173 L .50216 .98023 L .50111 .98728 L .50047 .99281 L .50027 .995 L .50014 .9968 L .50006 .9982 L .50003 .99875 L .50002 .9992 L .50001 .99955 L .5 .9998 L .5 .99995 L .5 1 L .5 .99995 L .5 .9998 L .49999 .99955 L .49998 .9992 L .49994 .9982 L .49986 .9968 L .49973 .995 L .49953 .99281 L .49889 .98728 L .49784 .98023 L .49629 .97173 L .49133 .95061 L Mistroke .48339 .92455 L .47198 .89429 L .4375 .82476 L .3872 .74967 L .32322 .67678 L .25033 .6128 L .17524 .5625 L .10571 .52802 L .07545 .51661 L .04939 .50867 L .02827 .50371 L .01977 .50216 L .01272 .50111 L .00719 .50047 L .005 .50027 L .0032 .50014 L .0018 .50006 L .00125 .50003 L .0008 .50002 L .00045 .50001 L .0002 .5 L 5e-05 .5 L 0 .5 L 5e-05 .5 L .0002 .5 L .00045 .49999 L .0008 .49998 L .0018 .49994 L .0032 .49986 L .005 .49973 L .00719 .49953 L .01272 .49889 L .01977 .49784 L .02827 .49629 L .04939 .49133 L .07545 .48339 L .10571 .47198 L .17524 .4375 L .25033 .3872 L .32322 .32322 L .3872 .25033 L .4375 .17524 L .45674 .13929 L .47198 .10571 L .48339 .07545 L .49133 .04939 L .49629 .02827 L .49784 .01977 L .49889 .01272 L .49953 .00719 L Mistroke .49973 .005 L .49986 .0032 L .49994 .0018 L .49997 .00125 L .49998 .0008 L .49999 .00045 L .5 .0002 L .5 5e-05 L .5 0 L .5 5e-05 L .5 .0002 L .50001 .00045 L .50002 .0008 L .50006 .0018 L .50014 .0032 L .50027 .005 L .50047 .00719 L .50111 .01272 L .50216 .01977 L .50371 .02827 L .50867 .04939 L .51661 .07545 L .52802 .10571 L .5625 .17524 L .6128 .25033 L .67678 .32322 L .74967 .3872 L .82476 .4375 L .86071 .45674 L .89429 .47198 L .92455 .48339 L .95061 .49133 L .97173 .49629 L .98023 .49784 L .98728 .49889 L .99281 .49953 L .995 .49973 L .9968 .49986 L .9982 .49994 L .99875 .49997 L .9992 .49998 L .99955 .49999 L .9998 .5 L .99995 .5 L 1 .5 L Mfstroke P P p 0 0 1 r .004 w .625 .5 m .5 .01588 L s 1 0 0 r .015 w .625 .5 Mdot .5 .01588 Mdot P P % End of Graphics MathPictureEnd \ \>"], "Graphics", Evaluatable->False, AspectRatioFixed->True, ImageSize->{282, 282}, ImageMargins->{{34, Inherited}, {Inherited, Inherited}}, ImageCacheValid->False], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: 1 MathPictureStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 0.5 0.5 0.5 [ [ -0.001 -0.001 0 0 ] [ 1.001 1.001 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p p [ .01 .05 ] 0 setdash .002 w 0 .5 m 1 .5 L s P p [ .01 .05 ] 0 setdash .002 w .5 0 m .5 1 L s P P 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath p p p .004 w 1 .5 m .99995 .5 L .9998 .5 L .99955 .50001 L .9992 .50002 L .99875 .50003 L .9982 .50006 L .9968 .50014 L .995 .50027 L .99281 .50047 L .98728 .50111 L .98023 .50216 L .97173 .50371 L .95061 .50867 L .92455 .51661 L .89429 .52802 L .82476 .5625 L .74967 .6128 L .67678 .67678 L .6128 .74967 L .5625 .82476 L .54326 .86071 L .52802 .89429 L .51661 .92455 L .50867 .95061 L .50371 .97173 L .50216 .98023 L .50111 .98728 L .50047 .99281 L .50027 .995 L .50014 .9968 L .50006 .9982 L .50003 .99875 L .50002 .9992 L .50001 .99955 L .5 .9998 L .5 .99995 L .5 1 L .5 .99995 L .5 .9998 L .49999 .99955 L .49998 .9992 L .49994 .9982 L .49986 .9968 L .49973 .995 L .49953 .99281 L .49889 .98728 L .49784 .98023 L .49629 .97173 L .49133 .95061 L Mistroke .48339 .92455 L .47198 .89429 L .4375 .82476 L .3872 .74967 L .32322 .67678 L .25033 .6128 L .17524 .5625 L .10571 .52802 L .07545 .51661 L .04939 .50867 L .02827 .50371 L .01977 .50216 L .01272 .50111 L .00719 .50047 L .005 .50027 L .0032 .50014 L .0018 .50006 L .00125 .50003 L .0008 .50002 L .00045 .50001 L .0002 .5 L 5e-05 .5 L 0 .5 L 5e-05 .5 L .0002 .5 L .00045 .49999 L .0008 .49998 L .0018 .49994 L .0032 .49986 L .005 .49973 L .00719 .49953 L .01272 .49889 L .01977 .49784 L .02827 .49629 L .04939 .49133 L .07545 .48339 L .10571 .47198 L .17524 .4375 L .25033 .3872 L .32322 .32322 L .3872 .25033 L .4375 .17524 L .45674 .13929 L .47198 .10571 L .48339 .07545 L .49133 .04939 L .49629 .02827 L .49784 .01977 L .49889 .01272 L .49953 .00719 L Mistroke .49973 .005 L .49986 .0032 L .49994 .0018 L .49997 .00125 L .49998 .0008 L .49999 .00045 L .5 .0002 L .5 5e-05 L .5 0 L .5 5e-05 L .5 .0002 L .50001 .00045 L .50002 .0008 L .50006 .0018 L .50014 .0032 L .50027 .005 L .50047 .00719 L .50111 .01272 L .50216 .01977 L .50371 .02827 L .50867 .04939 L .51661 .07545 L .52802 .10571 L .5625 .17524 L .6128 .25033 L .67678 .32322 L .74967 .3872 L .82476 .4375 L .86071 .45674 L .89429 .47198 L .92455 .48339 L .95061 .49133 L .97173 .49629 L .98023 .49784 L .98728 .49889 L .99281 .49953 L .995 .49973 L .9968 .49986 L .9982 .49994 L .99875 .49997 L .9992 .49998 L .99955 .49999 L .9998 .5 L .99995 .5 L 1 .5 L Mfstroke P P p 0 0 1 r .004 w .5 .5 m .5 0 L s 1 0 0 r .015 w .5 .5 Mdot .5 0 Mdot P P % End of Graphics MathPictureEnd \ \>"], "Graphics", Evaluatable->False, AspectRatioFixed->True, ImageSize->{282, 282}, ImageMargins->{{34, Inherited}, {Inherited, Inherited}}, ImageCacheValid->False], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: 1 MathPictureStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 0.5 0.5 0.5 [ [ -0.001 -0.001 0 0 ] [ 1.001 1.001 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p p [ .01 .05 ] 0 setdash .002 w 0 .5 m 1 .5 L s P p [ .01 .05 ] 0 setdash .002 w .5 0 m .5 1 L s P P 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath p p p .004 w 1 .5 m .99995 .5 L .9998 .5 L .99955 .50001 L .9992 .50002 L .99875 .50003 L .9982 .50006 L .9968 .50014 L .995 .50027 L .99281 .50047 L .98728 .50111 L .98023 .50216 L .97173 .50371 L .95061 .50867 L .92455 .51661 L .89429 .52802 L .82476 .5625 L .74967 .6128 L .67678 .67678 L .6128 .74967 L .5625 .82476 L .54326 .86071 L .52802 .89429 L .51661 .92455 L .50867 .95061 L .50371 .97173 L .50216 .98023 L .50111 .98728 L .50047 .99281 L .50027 .995 L .50014 .9968 L .50006 .9982 L .50003 .99875 L .50002 .9992 L .50001 .99955 L .5 .9998 L .5 .99995 L .5 1 L .5 .99995 L .5 .9998 L .49999 .99955 L .49998 .9992 L .49994 .9982 L .49986 .9968 L .49973 .995 L .49953 .99281 L .49889 .98728 L .49784 .98023 L .49629 .97173 L .49133 .95061 L Mistroke .48339 .92455 L .47198 .89429 L .4375 .82476 L .3872 .74967 L .32322 .67678 L .25033 .6128 L .17524 .5625 L .10571 .52802 L .07545 .51661 L .04939 .50867 L .02827 .50371 L .01977 .50216 L .01272 .50111 L .00719 .50047 L .005 .50027 L .0032 .50014 L .0018 .50006 L .00125 .50003 L .0008 .50002 L .00045 .50001 L .0002 .5 L 5e-05 .5 L 0 .5 L 5e-05 .5 L .0002 .5 L .00045 .49999 L .0008 .49998 L .0018 .49994 L .0032 .49986 L .005 .49973 L .00719 .49953 L .01272 .49889 L .01977 .49784 L .02827 .49629 L .04939 .49133 L .07545 .48339 L .10571 .47198 L .17524 .4375 L .25033 .3872 L .32322 .32322 L .3872 .25033 L .4375 .17524 L .45674 .13929 L .47198 .10571 L .48339 .07545 L .49133 .04939 L .49629 .02827 L .49784 .01977 L .49889 .01272 L .49953 .00719 L Mistroke .49973 .005 L .49986 .0032 L .49994 .0018 L .49997 .00125 L .49998 .0008 L .49999 .00045 L .5 .0002 L .5 5e-05 L .5 0 L .5 5e-05 L .5 .0002 L .50001 .00045 L .50002 .0008 L .50006 .0018 L .50014 .0032 L .50027 .005 L .50047 .00719 L .50111 .01272 L .50216 .01977 L .50371 .02827 L .50867 .04939 L .51661 .07545 L .52802 .10571 L .5625 .17524 L .6128 .25033 L .67678 .32322 L .74967 .3872 L .82476 .4375 L .86071 .45674 L .89429 .47198 L .92455 .48339 L .95061 .49133 L .97173 .49629 L .98023 .49784 L .98728 .49889 L .99281 .49953 L .995 .49973 L .9968 .49986 L .9982 .49994 L .99875 .49997 L .9992 .49998 L .99955 .49999 L .9998 .5 L .99995 .5 L 1 .5 L Mfstroke P P p 0 0 1 r .004 w .375 .5 m .5 .01588 L s 1 0 0 r .015 w .375 .5 Mdot .5 .01588 Mdot P P % End of Graphics MathPictureEnd \ \>"], "Graphics", Evaluatable->False, AspectRatioFixed->True, ImageSize->{282, 282}, ImageMargins->{{34, Inherited}, {Inherited, Inherited}}, ImageCacheValid->False], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: 1 MathPictureStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 0.5 0.5 0.5 [ [ -0.001 -0.001 0 0 ] [ 1.001 1.001 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p p [ .01 .05 ] 0 setdash .002 w 0 .5 m 1 .5 L s P p [ .01 .05 ] 0 setdash .002 w .5 0 m .5 1 L s P P 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath p p p .004 w 1 .5 m .99995 .5 L .9998 .5 L .99955 .50001 L .9992 .50002 L .99875 .50003 L .9982 .50006 L .9968 .50014 L .995 .50027 L .99281 .50047 L .98728 .50111 L .98023 .50216 L .97173 .50371 L .95061 .50867 L .92455 .51661 L .89429 .52802 L .82476 .5625 L .74967 .6128 L .67678 .67678 L .6128 .74967 L .5625 .82476 L .54326 .86071 L .52802 .89429 L .51661 .92455 L .50867 .95061 L .50371 .97173 L .50216 .98023 L .50111 .98728 L .50047 .99281 L .50027 .995 L .50014 .9968 L .50006 .9982 L .50003 .99875 L .50002 .9992 L .50001 .99955 L .5 .9998 L .5 .99995 L .5 1 L .5 .99995 L .5 .9998 L .49999 .99955 L .49998 .9992 L .49994 .9982 L .49986 .9968 L .49973 .995 L .49953 .99281 L .49889 .98728 L .49784 .98023 L .49629 .97173 L .49133 .95061 L Mistroke .48339 .92455 L .47198 .89429 L .4375 .82476 L .3872 .74967 L .32322 .67678 L .25033 .6128 L .17524 .5625 L .10571 .52802 L .07545 .51661 L .04939 .50867 L .02827 .50371 L .01977 .50216 L .01272 .50111 L .00719 .50047 L .005 .50027 L .0032 .50014 L .0018 .50006 L .00125 .50003 L .0008 .50002 L .00045 .50001 L .0002 .5 L 5e-05 .5 L 0 .5 L 5e-05 .5 L .0002 .5 L .00045 .49999 L .0008 .49998 L .0018 .49994 L .0032 .49986 L .005 .49973 L .00719 .49953 L .01272 .49889 L .01977 .49784 L .02827 .49629 L .04939 .49133 L .07545 .48339 L .10571 .47198 L .17524 .4375 L .25033 .3872 L .32322 .32322 L .3872 .25033 L .4375 .17524 L .45674 .13929 L .47198 .10571 L .48339 .07545 L .49133 .04939 L .49629 .02827 L .49784 .01977 L .49889 .01272 L .49953 .00719 L Mistroke .49973 .005 L .49986 .0032 L .49994 .0018 L .49997 .00125 L .49998 .0008 L .49999 .00045 L .5 .0002 L .5 5e-05 L .5 0 L .5 5e-05 L .5 .0002 L .50001 .00045 L .50002 .0008 L .50006 .0018 L .50014 .0032 L .50027 .005 L .50047 .00719 L .50111 .01272 L .50216 .01977 L .50371 .02827 L .50867 .04939 L .51661 .07545 L .52802 .10571 L .5625 .17524 L .6128 .25033 L .67678 .32322 L .74967 .3872 L .82476 .4375 L .86071 .45674 L .89429 .47198 L .92455 .48339 L .95061 .49133 L .97173 .49629 L .98023 .49784 L .98728 .49889 L .99281 .49953 L .995 .49973 L .9968 .49986 L .9982 .49994 L .99875 .49997 L .9992 .49998 L .99955 .49999 L .9998 .5 L .99995 .5 L 1 .5 L Mfstroke P P p 0 0 1 r .004 w .25 .5 m .5 .06699 L s 1 0 0 r .015 w .25 .5 Mdot .5 .06699 Mdot P P % End of Graphics MathPictureEnd \ \>"], "Graphics", Evaluatable->False, AspectRatioFixed->True, ImageSize->{282, 282}, ImageMargins->{{34, Inherited}, {Inherited, Inherited}}, ImageCacheValid->False], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: 1 MathPictureStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 0.5 0.5 0.5 [ [ -0.001 -0.001 0 0 ] [ 1.001 1.001 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p p [ .01 .05 ] 0 setdash .002 w 0 .5 m 1 .5 L s P p [ .01 .05 ] 0 setdash .002 w .5 0 m .5 1 L s P P 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath p p p .004 w 1 .5 m .99995 .5 L .9998 .5 L .99955 .50001 L .9992 .50002 L .99875 .50003 L .9982 .50006 L .9968 .50014 L .995 .50027 L .99281 .50047 L .98728 .50111 L .98023 .50216 L .97173 .50371 L .95061 .50867 L .92455 .51661 L .89429 .52802 L .82476 .5625 L .74967 .6128 L .67678 .67678 L .6128 .74967 L .5625 .82476 L .54326 .86071 L .52802 .89429 L .51661 .92455 L .50867 .95061 L .50371 .97173 L .50216 .98023 L .50111 .98728 L .50047 .99281 L .50027 .995 L .50014 .9968 L .50006 .9982 L .50003 .99875 L .50002 .9992 L .50001 .99955 L .5 .9998 L .5 .99995 L .5 1 L .5 .99995 L .5 .9998 L .49999 .99955 L .49998 .9992 L .49994 .9982 L .49986 .9968 L .49973 .995 L .49953 .99281 L .49889 .98728 L .49784 .98023 L .49629 .97173 L .49133 .95061 L Mistroke .48339 .92455 L .47198 .89429 L .4375 .82476 L .3872 .74967 L .32322 .67678 L .25033 .6128 L .17524 .5625 L .10571 .52802 L .07545 .51661 L .04939 .50867 L .02827 .50371 L .01977 .50216 L .01272 .50111 L .00719 .50047 L .005 .50027 L .0032 .50014 L .0018 .50006 L .00125 .50003 L .0008 .50002 L .00045 .50001 L .0002 .5 L 5e-05 .5 L 0 .5 L 5e-05 .5 L .0002 .5 L .00045 .49999 L .0008 .49998 L .0018 .49994 L .0032 .49986 L .005 .49973 L .00719 .49953 L .01272 .49889 L .01977 .49784 L .02827 .49629 L .04939 .49133 L .07545 .48339 L .10571 .47198 L .17524 .4375 L .25033 .3872 L .32322 .32322 L .3872 .25033 L .4375 .17524 L .45674 .13929 L .47198 .10571 L .48339 .07545 L .49133 .04939 L .49629 .02827 L .49784 .01977 L .49889 .01272 L .49953 .00719 L Mistroke .49973 .005 L .49986 .0032 L .49994 .0018 L .49997 .00125 L .49998 .0008 L .49999 .00045 L .5 .0002 L .5 5e-05 L .5 0 L .5 5e-05 L .5 .0002 L .50001 .00045 L .50002 .0008 L .50006 .0018 L .50014 .0032 L .50027 .005 L .50047 .00719 L .50111 .01272 L .50216 .01977 L .50371 .02827 L .50867 .04939 L .51661 .07545 L .52802 .10571 L .5625 .17524 L .6128 .25033 L .67678 .32322 L .74967 .3872 L .82476 .4375 L .86071 .45674 L .89429 .47198 L .92455 .48339 L .95061 .49133 L .97173 .49629 L .98023 .49784 L .98728 .49889 L .99281 .49953 L .995 .49973 L .9968 .49986 L .9982 .49994 L .99875 .49997 L .9992 .49998 L .99955 .49999 L .9998 .5 L .99995 .5 L 1 .5 L Mfstroke P P p 0 0 1 r .004 w .125 .5 m .5 .16928 L s 1 0 0 r .015 w .125 .5 Mdot .5 .16928 Mdot P P % End of Graphics MathPictureEnd \ \>"], "Graphics", Evaluatable->False, AspectRatioFixed->True, ImageSize->{282, 282}, ImageMargins->{{34, Inherited}, {Inherited, Inherited}}, ImageCacheValid->False]}, Open]]}, Open]]}, Open]]}, Open]], Cell[CellGroupData[{Cell[TextData["Carrying a Ladder"], "Subsection", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[ "Two corridors meet to form an L shape. The corridor going in the north-south \ direction is 2 meters wide, 12 meters long and the one going in the east-west \ direction is 4 meters wide, 20 meters long. \n\nWhat is the longest ladder \ that can be carried horizontally around the corner?"], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{Cell[TextData[ "NSw = 2;\t(* north-south corridor width *)\nNSl = 12;\t(* north-south \ corridor length *)\nEWw = 4;\t(* east-west corridor width *)\nEWl = 20; \t(* \ east-west corridor length *)\n\nCorridor[ Range[-6, -1, .25] ];"], "Input", AspectRatioFixed->True], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61905 MathPictureStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.046485 0.045351 0.400227 0.045351 [ [(O)] .02381 .40023 0 0 Msboxa [(A)] .02381 .01474 0 0 Msboxa [(B)] .02381 .60431 0 0 Msboxa [(C)] .97619 .60431 0 0 Msboxa [(D)] .97619 .37755 0 0 Msboxa [(E)] .15986 .37755 0 0 Msboxa [(F)] .15986 .01474 0 0 Msboxa [ 0 0 0 0 ] [ 1 .61905 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p P p p 0 1 0 r .04649 .03741 m .04649 .58163 L .95351 .58163 L .95351 .40023 L .13719 .40023 L .13719 .03741 L F P p 0 0 1 r .004 w .04649 .03741 m .04649 .58163 L .95351 .58163 L s .95351 .40023 m .13719 .40023 L .13719 .03741 L s P 1 0 0 r p .004 w .04649 .12812 m .19766 .58163 L s .04649 .13946 m .20029 .58163 L s .04649 .15079 m .20315 .58163 L s .04649 .16213 m .2063 .58163 L s .04649 .17347 m .20975 .58163 L s .04649 .18481 m .21357 .58163 L s .04649 .19615 m .21781 .58163 L s .04649 .20748 m .22256 .58163 L s .04649 .21882 m .22789 .58163 L s .04649 .23016 m .23394 .58163 L s .04649 .2415 m .24085 .58163 L s .04649 .25283 m .24882 .58163 L s .04649 .26417 m .25813 .58163 L s .04649 .27551 m .26912 .58163 L s .04649 .28685 m .28231 .58163 L s .04649 .29819 m .29844 .58163 L s .04649 .30952 m .31859 .58163 L s .04649 .32086 m .34451 .58163 L s .04649 .3322 m .37906 .58163 L s .04649 .34354 m .42744 .58163 L s .04649 .35488 m .5 .58163 L s P p 0 0 0 r p [(O)] .02381 .40023 0 0 Mshowa [(A)] .02381 .01474 0 0 Mshowa [(B)] .02381 .60431 0 0 Mshowa [(C)] .97619 .60431 0 0 Mshowa [(D)] .97619 .37755 0 0 Mshowa [(E)] .15986 .37755 0 0 Mshowa [(F)] .15986 .01474 0 0 Mshowa P P P 0 0 m 1 0 L 1 .61905 L 0 .61905 L closepath clip newpath % End of Graphics MathPictureEnd \ \>"], "Graphics", Evaluatable->False, AspectRatioFixed->True, ImageSize->{414, 256}, ImageMargins->{{34, Inherited}, {Inherited, Inherited}}, ImageCacheValid->False]}, Open]], Cell[CellGroupData[{Cell[TextData["Hints"], "Subsubsection", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[ "Set up a coordinate system with the origin at the point marked O. \nThe \ longest ladder that can get around will be the shortest line that touches the \ inside corner. "], "Text", Evaluatable->False, AspectRatioFixed->True]}, Open]], Cell[CellGroupData[{Cell[TextData["Answer"], "Subsubsection", Evaluatable->False, PageBreakAbove->True, PageBreakWithin->Automatic, PageBreakBelow->Automatic, GroupPageBreakWithin->False, AspectRatioFixed->True], Cell[TextData[ "The equation of the line depends on where it starts at the left wall, which \ is the y-intercept of the ladder line. Call it y0. Then the ladder line \ passes through the point{0, y0} on the right wall as well as the point {NSw, \ 0}, the inside corner. "], "Text", Evaluatable->False, GroupPageBreakWithin->False, AspectRatioFixed->True], Cell[CellGroupData[{Cell[TextData[ "Clear[y];\n\nladderline = (y - y0) == (0 - y0) / (NSw - 0) (x - 0)"], "Input",\ PageBreakWithin->Automatic, AspectRatioFixed->True], Cell[OutputFormData["\<\ y - y0 == -(x*y0)/2\ \>", "\<\ -(x y0) y - y0 == ------- 2\ \>"], "Output", Evaluatable->False, PageBreakWithin->Automatic, AspectRatioFixed->True]}, Open]], Cell[TextData["At the other end the ladder line meets the line BC. "], "Text", Evaluatable->False, GroupPageBreakWithin->False, AspectRatioFixed->True], Cell[CellGroupData[{Cell[TextData[ "topend = \n\t{x, y} /. Solve[{ladderline, y == 4}, {x, y}] [[1]]"], "Input", PageBreakWithin->Automatic, AspectRatioFixed->True], Cell[OutputFormData["\<\ {2 - 8/y0, 4}\ \>", "\<\ 8 {2 - --, 4} y0\ \>"], "Output", Evaluatable->False, PageBreakWithin->Automatic, AspectRatioFixed->True]}, Open]], Cell[TextData[ "To find the length of the ladder line use Pythagoras. "], "Text", Evaluatable->False, GroupPageBreakWithin->False, AspectRatioFixed->True], Cell[CellGroupData[{Cell[TextData[ "diff = topend - {0, y0}\n\nlength = Sqrt[diff . diff]"], "Input", PageBreakWithin->Automatic, AspectRatioFixed->True], Cell[OutputFormData["\<\ {2 - 8/y0, 4 - y0}\ \>", "\<\ 8 {2 - --, 4 - y0} y0\ \>"], "Output", Evaluatable->False, PageBreakWithin->Automatic, AspectRatioFixed->True], Cell[OutputFormData["\<\ ((2 - 8/y0)^2 + (4 - y0)^2)^(1/2)\ \>", "\<\ 8 2 2 Sqrt[(2 - --) + (4 - y0) ] y0\ \>"], "Output", Evaluatable->False, PageBreakWithin->Automatic, AspectRatioFixed->True]}, Open]], Cell[TextData[ "Before minimizing this expression with FindMinimum, plot the function. There \ are two minima, one when y0 is positive and the other when y0 is negative. We \ want the larger of the two, which is when y0 is negative. "], "Text", Evaluatable->False, PageBreakAbove->True, AspectRatioFixed->True], Cell[CellGroupData[{Cell[TextData["Plot[length, {y0, -7, 7}];"], "Input", PageBreakWithin->Automatic, AspectRatioFixed->True], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61803 MathPictureStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 0.068027 0.014715 0.005326 [ [(-6)] .09184 .01472 0 2 Msboxa [(-4)] .22789 .01472 0 2 Msboxa [(-2)] .36395 .01472 0 2 Msboxa [(2)] .63605 .01472 0 2 Msboxa [(4)] .77211 .01472 0 2 Msboxa [(6)] .90816 .01472 0 2 Msboxa [(20)] .4875 .12124 1 0 Msboxa [(40)] .4875 .22777 1 0 Msboxa [(60)] .4875 .33429 1 0 Msboxa [(80)] .4875 .44082 1 0 Msboxa [(100)] .4875 .54734 1 0 Msboxa [ -0.001 -0.001 0 0 ] [ 1.001 .61903 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p p .002 w .09184 .01472 m .09184 .02097 L s P [(-6)] .09184 .01472 0 2 Mshowa p .002 w .22789 .01472 m .22789 .02097 L s P [(-4)] .22789 .01472 0 2 Mshowa p .002 w .36395 .01472 m .36395 .02097 L s P [(-2)] .36395 .01472 0 2 Mshowa p .002 w .63605 .01472 m .63605 .02097 L s P [(2)] .63605 .01472 0 2 Mshowa p .002 w .77211 .01472 m .77211 .02097 L s P [(4)] .77211 .01472 0 2 Mshowa p .002 w .90816 .01472 m .90816 .02097 L s P [(6)] .90816 .01472 0 2 Mshowa p .001 w .11905 .01472 m .11905 .01847 L s P p .001 w .14626 .01472 m .14626 .01847 L s P p .001 w .17347 .01472 m .17347 .01847 L s P p .001 w .20068 .01472 m .20068 .01847 L s P p .001 w .2551 .01472 m .2551 .01847 L s P p .001 w .28231 .01472 m .28231 .01847 L s P p .001 w .30952 .01472 m .30952 .01847 L s P p .001 w .33673 .01472 m .33673 .01847 L s P p .001 w .39116 .01472 m .39116 .01847 L s P p .001 w .41837 .01472 m .41837 .01847 L s P p .001 w .44558 .01472 m .44558 .01847 L s P p .001 w .47279 .01472 m .47279 .01847 L s P p .001 w .52721 .01472 m .52721 .01847 L s P p .001 w .55442 .01472 m .55442 .01847 L s P p .001 w .58163 .01472 m .58163 .01847 L s P p .001 w .60884 .01472 m .60884 .01847 L s P p .001 w .66327 .01472 m .66327 .01847 L s P p .001 w .69048 .01472 m .69048 .01847 L s P p .001 w .71769 .01472 m .71769 .01847 L s P p .001 w .7449 .01472 m .7449 .01847 L s P p .001 w .79932 .01472 m .79932 .01847 L s P p .001 w .82653 .01472 m .82653 .01847 L s P p .001 w .85374 .01472 m .85374 .01847 L s P p .001 w .88095 .01472 m .88095 .01847 L s P p .001 w .06463 .01472 m .06463 .01847 L s P p .001 w .03741 .01472 m .03741 .01847 L s P p .001 w .0102 .01472 m .0102 .01847 L s P p .001 w .93537 .01472 m .93537 .01847 L s P p .001 w .96259 .01472 m .96259 .01847 L s P p .001 w .9898 .01472 m .9898 .01847 L s P p .002 w 0 .01472 m 1 .01472 L s P p .002 w .5 .12124 m .50625 .12124 L s P [(20)] .4875 .12124 1 0 Mshowa p .002 w .5 .22777 m .50625 .22777 L s P [(40)] .4875 .22777 1 0 Mshowa p .002 w .5 .33429 m .50625 .33429 L s P [(60)] .4875 .33429 1 0 Mshowa p .002 w .5 .44082 m .50625 .44082 L s P [(80)] .4875 .44082 1 0 Mshowa p .002 w .5 .54734 m .50625 .54734 L s P [(100)] .4875 .54734 1 0 Mshowa p .001 w .5 .03602 m .50375 .03602 L s P p .001 w .5 .05733 m .50375 .05733 L s P p .001 w .5 .07863 m .50375 .07863 L s P p .001 w .5 .09994 m .50375 .09994 L s P p .001 w .5 .14255 m .50375 .14255 L s P p .001 w .5 .16385 m .50375 .16385 L s P p .001 w .5 .18516 m .50375 .18516 L s P p .001 w .5 .20646 m .50375 .20646 L s P p .001 w .5 .24907 m .50375 .24907 L s P p .001 w .5 .27038 m .50375 .27038 L s P p .001 w .5 .29168 m .50375 .29168 L s P p .001 w .5 .31299 m .50375 .31299 L s P p .001 w .5 .3556 m .50375 .3556 L s P p .001 w .5 .3769 m .50375 .3769 L s P p .001 w .5 .39821 m .50375 .39821 L s P p .001 w .5 .41951 m .50375 .41951 L s P p .001 w .5 .46212 m .50375 .46212 L s P p .001 w .5 .48343 m .50375 .48343 L s P p .001 w .5 .50473 m .50375 .50473 L s P p .001 w .5 .52604 m .50375 .52604 L s P p .001 w .5 .56865 m .50375 .56865 L s P p .001 w .5 .58995 m .50375 .58995 L s P p .001 w .5 .61126 m .50375 .61126 L s P p .002 w .5 0 m .5 .61803 L s P P 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath p p .004 w .02381 .07565 m .06349 .07283 L .10317 .07008 L .14286 .06744 L .18254 .06494 L .22222 .06266 L .2619 .06072 L .28175 .05996 L .29167 .05964 L .30159 .05938 L .30655 .05928 L .31151 .05919 L .31399 .05915 L .31647 .05912 L .31895 .0591 L .32143 .05908 L .32267 .05907 L .32391 .05906 L .32515 .05906 L .32639 .05905 L .32763 .05905 L .32887 .05905 L .33011 .05905 L .33135 .05905 L .33259 .05906 L .33383 .05907 L .33631 .05908 L .33879 .05911 L .34127 .05914 L .34623 .05924 L .35119 .05937 L .35615 .05954 L .36111 .05976 L .36607 .06003 L .37103 .06036 L .38095 .06122 L .39087 .06242 L .40079 .06406 L .41071 .06629 L .42063 .06933 L .43056 .07354 L .43552 .07625 L .44048 .0795 L .4504 .08825 L .45536 .09426 L .46032 .1019 L .46528 .11187 L .47024 .12532 L .4752 .14434 L .47768 .15711 L Mistroke .48016 .17312 L .48264 .19377 L .48512 .22138 L .4876 .26013 L .48884 .28599 L .49008 .31836 L .49132 .35999 L .49256 .41554 L .4938 .49336 L .49504 .61013 L Mfstroke .49509 .61803 m .49504 .61013 L s s s s s s s .50477 .61803 m .50496 .58881 L s .50496 .58881 m .5062 .47203 L .50744 .39421 L .50868 .33864 L .50992 .29699 L .51116 .26462 L .5124 .23873 L .51488 .19995 L .51736 .17229 L .51984 .15159 L .52232 .13552 L .5248 .12269 L .52976 .10351 L .53472 .08988 L .53968 .07971 L .54464 .07184 L .5496 .06558 L .55952 .05624 L .56944 .04962 L .57937 .04467 L .58929 .0408 L .59921 .03769 L .61905 .03291 L .63889 .02932 L .65873 .02641 L .69841 .02171 L .71825 .01968 L .7381 .01778 L .74802 .01687 L .75794 .01597 L .7629 .01553 L .76786 .01509 L .7691 .01498 L .77034 .01487 L .77158 .01476 L .77282 .01478 L .7753 .01499 L .77778 .01521 L .81746 .01858 L .85714 .02184 L .89683 .02504 L .93651 .0282 L .97619 .03133 L s P P % End of Graphics MathPictureEnd \ \>"], "Graphics", Evaluatable->False, PageBreakWithin->Automatic, AspectRatioFixed->True, ImageSize->{282, 174}, ImageMargins->{{34, Inherited}, {Inherited, Inherited}}, ImageCacheValid->False]}, Open]], Cell[CellGroupData[{Cell[TextData["FindMinimum[length, {y0, 1}]"], "Input", PageBreakWithin->Automatic, AspectRatioFixed->True], Cell[OutputFormData[ "\<\ {5.023029481170356*10^-8, {y0 -> 3.999999955072659}}\ \>", "\<\ -8 {5.02303 10 , {y0 -> 4.}}\ \>"], "Output", Evaluatable->False, PageBreakWithin->Automatic, AspectRatioFixed->True]}, Open]], Cell[TextData[ "For this y0 the length is exactly 0. Such a short ladder is uninteresting. \ "], "Text", Evaluatable->False, GroupPageBreakWithin->False, AspectRatioFixed->True], Cell[CellGroupData[{Cell[TextData["length /. y0 -> 4"], "Input", PageBreakWithin->Automatic, AspectRatioFixed->True], Cell[OutputFormData["\<\ 0\ \>", "\<\ 0\ \>"], "Output", Evaluatable->False, PageBreakWithin->Automatic, AspectRatioFixed->True]}, Open]], Cell[CellGroupData[{Cell[TextData["{minimum, minrule} = FindMinimum[length, {y0, -1}]"], "Input", PageBreakWithin->Automatic, AspectRatioFixed->True], Cell[OutputFormData["\<\ {8.32387636988293, {y0 -> -2.519842155653444}}\ \>", "\<\ {8.32388, {y0 -> -2.51984}}\ \>"], "Output", Evaluatable->False, PageBreakWithin->Automatic, AspectRatioFixed->True]}, Open]], Cell[TextData[ "This shows the longest ladder that can make it around the corner. "], "Text",\ Evaluatable->False, PageBreakAbove->True, AspectRatioFixed->True], Cell[CellGroupData[{Cell[TextData["Corridor[ y0 /. minrule];"], "Input", PageBreakWithin->Automatic, AspectRatioFixed->True], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61905 MathPictureStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.046485 0.045351 0.400227 0.045351 [ [(O)] .02381 .40023 0 0 Msboxa [(A)] .02381 .01474 0 0 Msboxa [(B)] .02381 .60431 0 0 Msboxa [(C)] .97619 .60431 0 0 Msboxa [(D)] .97619 .37755 0 0 Msboxa [(E)] .15986 .37755 0 0 Msboxa [(F)] .15986 .01474 0 0 Msboxa [ 0 0 0 0 ] [ 1 .61905 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p P p p 0 1 0 r .04649 .03741 m .04649 .58163 L .95351 .58163 L .95351 .40023 L .13719 .40023 L .13719 .03741 L F P p 0 0 1 r .004 w .04649 .03741 m .04649 .58163 L .95351 .58163 L s .95351 .40023 m .13719 .40023 L .13719 .03741 L s P 1 0 0 r .004 w .04649 .28595 m .28117 .58163 L s p 0 0 0 r p [(O)] .02381 .40023 0 0 Mshowa [(A)] .02381 .01474 0 0 Mshowa [(B)] .02381 .60431 0 0 Mshowa [(C)] .97619 .60431 0 0 Mshowa [(D)] .97619 .37755 0 0 Mshowa [(E)] .15986 .37755 0 0 Mshowa [(F)] .15986 .01474 0 0 Mshowa P P P 0 0 m 1 0 L 1 .61905 L 0 .61905 L closepath clip newpath % End of Graphics MathPictureEnd \ \>"], "Graphics", Evaluatable->False, PageBreakWithin->Automatic, AspectRatioFixed->True, ImageSize->{282, 174}, ImageMargins->{{34, Inherited}, {Inherited, Inherited}}, ImageCacheValid->False]}, Open]], Cell[TextData[ "This shows an animation of the ladder going around the corner. Describe the \ path of the forward end of the ladder. "], "Text", Evaluatable->False, GroupPageBreakWithin->False, AspectRatioFixed->True], Cell[CellGroupData[{Cell[TextData["Map[Show, CorridorSweep[y0 /. minrule, minimum, 5]];"], "Input", PageBreakWithin->Automatic, AspectRatioFixed->True, AnimationDisplayTime->0.116667, AnimationCycleOffset->0.0625, AnimationCycleRepetitions->Infinity], Cell[CellGroupData[{Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61905 MathPictureStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.046485 0.045351 0.400227 0.045351 [ [(O)] .02381 .40023 0 0 Msboxa [(A)] .02381 .01474 0 0 Msboxa [(B)] .02381 .60431 0 0 Msboxa [(C)] .97619 .60431 0 0 Msboxa [(D)] .97619 .37755 0 0 Msboxa [(E)] .15986 .37755 0 0 Msboxa [(F)] .15986 .01474 0 0 Msboxa [ 0 0 0 0 ] [ 1 .61905 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p P p p 0 0 0 r p [(O)] .02381 .40023 0 0 Mshowa [(A)] .02381 .01474 0 0 Mshowa [(B)] .02381 .60431 0 0 Mshowa [(C)] .97619 .60431 0 0 Mshowa [(D)] .97619 .37755 0 0 Mshowa [(E)] .15986 .37755 0 0 Mshowa [(F)] .15986 .01474 0 0 Mshowa P P p 0 1 0 r .04649 .03741 m .04649 .58163 L .95351 .58163 L .95351 .40023 L .13719 .40023 L .13719 .03741 L F P p 0 0 1 r .004 w .04649 .03741 m .04649 .58163 L .95351 .58163 L s .95351 .40023 m .13719 .40023 L .13719 .03741 L s P 1 0 0 r .004 w .04649 .05739 m .14304 .42233 L s P 0 0 m 1 0 L 1 .61905 L 0 .61905 L closepath clip newpath % End of Graphics MathPictureEnd \ \>"], "Graphics", Evaluatable->False, PageBreakWithin->Automatic, AspectRatioFixed->True, ImageSize->{282, 174}, ImageMargins->{{34, Inherited}, {Inherited, Inherited}}, ImageCacheValid->False], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61905 MathPictureStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.046485 0.045351 0.400227 0.045351 [ [(O)] .02381 .40023 0 0 Msboxa [(A)] .02381 .01474 0 0 Msboxa [(B)] .02381 .60431 0 0 Msboxa [(C)] .97619 .60431 0 0 Msboxa [(D)] .97619 .37755 0 0 Msboxa [(E)] .15986 .37755 0 0 Msboxa [(F)] .15986 .01474 0 0 Msboxa [ 0 0 0 0 ] [ 1 .61905 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p P p p 0 0 0 r p [(O)] .02381 .40023 0 0 Mshowa [(A)] .02381 .01474 0 0 Mshowa [(B)] .02381 .60431 0 0 Mshowa [(C)] .97619 .60431 0 0 Mshowa [(D)] .97619 .37755 0 0 Mshowa [(E)] .15986 .37755 0 0 Mshowa [(F)] .15986 .01474 0 0 Mshowa P P p 0 1 0 r .04649 .03741 m .04649 .58163 L .95351 .58163 L .95351 .40023 L .13719 .40023 L .13719 .03741 L F P p 0 0 1 r .004 w .04649 .03741 m .04649 .58163 L .95351 .58163 L s .95351 .40023 m .13719 .40023 L .13719 .03741 L s P 1 0 0 r .004 w .04649 .09167 m .15295 .45385 L s P 0 0 m 1 0 L 1 .61905 L 0 .61905 L closepath clip newpath % End of Graphics MathPictureEnd \ \>"], "Graphics", Evaluatable->False, PageBreakWithin->Automatic, AspectRatioFixed->True, ImageSize->{282, 174}, ImageMargins->{{34, Inherited}, {Inherited, Inherited}}, ImageCacheValid->False], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61905 MathPictureStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.046485 0.045351 0.400227 0.045351 [ [(O)] .02381 .40023 0 0 Msboxa [(A)] .02381 .01474 0 0 Msboxa [(B)] .02381 .60431 0 0 Msboxa [(C)] .97619 .60431 0 0 Msboxa [(D)] .97619 .37755 0 0 Msboxa [(E)] .15986 .37755 0 0 Msboxa [(F)] .15986 .01474 0 0 Msboxa [ 0 0 0 0 ] [ 1 .61905 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p P p p 0 0 0 r p [(O)] .02381 .40023 0 0 Mshowa [(A)] .02381 .01474 0 0 Mshowa [(B)] .02381 .60431 0 0 Mshowa [(C)] .97619 .60431 0 0 Mshowa [(D)] .97619 .37755 0 0 Mshowa [(E)] .15986 .37755 0 0 Mshowa [(F)] .15986 .01474 0 0 Mshowa P P p 0 1 0 r .04649 .03741 m .04649 .58163 L .95351 .58163 L .95351 .40023 L .13719 .40023 L .13719 .03741 L F P p 0 0 1 r .004 w .04649 .03741 m .04649 .58163 L .95351 .58163 L s .95351 .40023 m .13719 .40023 L .13719 .03741 L s P 1 0 0 r .004 w .04649 .12596 m .16501 .48437 L s P 0 0 m 1 0 L 1 .61905 L 0 .61905 L closepath clip newpath % End of Graphics MathPictureEnd \ \>"], "Graphics", Evaluatable->False, PageBreakWithin->Automatic, AspectRatioFixed->True, ImageSize->{282, 174}, ImageMargins->{{34, Inherited}, {Inherited, Inherited}}, ImageCacheValid->False], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61905 MathPictureStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.046485 0.045351 0.400227 0.045351 [ [(O)] .02381 .40023 0 0 Msboxa [(A)] .02381 .01474 0 0 Msboxa [(B)] .02381 .60431 0 0 Msboxa [(C)] .97619 .60431 0 0 Msboxa [(D)] .97619 .37755 0 0 Msboxa [(E)] .15986 .37755 0 0 Msboxa [(F)] .15986 .01474 0 0 Msboxa [ 0 0 0 0 ] [ 1 .61905 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p P p p 0 0 0 r p [(O)] .02381 .40023 0 0 Mshowa [(A)] .02381 .01474 0 0 Mshowa [(B)] .02381 .60431 0 0 Mshowa [(C)] .97619 .60431 0 0 Mshowa [(D)] .97619 .37755 0 0 Mshowa [(E)] .15986 .37755 0 0 Mshowa [(F)] .15986 .01474 0 0 Mshowa P P p 0 1 0 r .04649 .03741 m .04649 .58163 L .95351 .58163 L .95351 .40023 L .13719 .40023 L .13719 .03741 L F P p 0 0 1 r .004 w .04649 .03741 m .04649 .58163 L .95351 .58163 L s .95351 .40023 m .13719 .40023 L .13719 .03741 L s P 1 0 0 r .004 w .04649 .16024 m .17995 .51336 L s P 0 0 m 1 0 L 1 .61905 L 0 .61905 L closepath clip newpath % End of Graphics MathPictureEnd \ \>"], "Graphics", Evaluatable->False, PageBreakWithin->Automatic, AspectRatioFixed->True, ImageSize->{282, 174}, ImageMargins->{{34, Inherited}, {Inherited, Inherited}}, ImageCacheValid->False], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61905 MathPictureStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.046485 0.045351 0.400227 0.045351 [ [(O)] .02381 .40023 0 0 Msboxa [(A)] .02381 .01474 0 0 Msboxa [(B)] .02381 .60431 0 0 Msboxa [(C)] .97619 .60431 0 0 Msboxa [(D)] .97619 .37755 0 0 Msboxa [(E)] .15986 .37755 0 0 Msboxa [(F)] .15986 .01474 0 0 Msboxa [ 0 0 0 0 ] [ 1 .61905 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p P p p 0 0 0 r p [(O)] .02381 .40023 0 0 Mshowa [(A)] .02381 .01474 0 0 Mshowa [(B)] .02381 .60431 0 0 Mshowa [(C)] .97619 .60431 0 0 Mshowa [(D)] .97619 .37755 0 0 Mshowa [(E)] .15986 .37755 0 0 Mshowa [(F)] .15986 .01474 0 0 Mshowa P P p 0 1 0 r .04649 .03741 m .04649 .58163 L .95351 .58163 L .95351 .40023 L .13719 .40023 L .13719 .03741 L F P p 0 0 1 r .004 w .04649 .03741 m .04649 .58163 L .95351 .58163 L s .95351 .40023 m .13719 .40023 L .13719 .03741 L s P 1 0 0 r .004 w .04649 .19453 m .19879 .53994 L s P 0 0 m 1 0 L 1 .61905 L 0 .61905 L closepath clip newpath % End of Graphics MathPictureEnd \ \>"], "Graphics", Evaluatable->False, PageBreakWithin->Automatic, AspectRatioFixed->True, ImageSize->{282, 174}, ImageMargins->{{34, Inherited}, {Inherited, Inherited}}, ImageCacheValid->False], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61905 MathPictureStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.046485 0.045351 0.400227 0.045351 [ [(O)] .02381 .40023 0 0 Msboxa [(A)] .02381 .01474 0 0 Msboxa [(B)] .02381 .60431 0 0 Msboxa [(C)] .97619 .60431 0 0 Msboxa [(D)] .97619 .37755 0 0 Msboxa [(E)] .15986 .37755 0 0 Msboxa [(F)] .15986 .01474 0 0 Msboxa [ 0 0 0 0 ] [ 1 .61905 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p P p p 0 0 0 r p [(O)] .02381 .40023 0 0 Mshowa [(A)] .02381 .01474 0 0 Mshowa [(B)] .02381 .60431 0 0 Mshowa [(C)] .97619 .60431 0 0 Mshowa [(D)] .97619 .37755 0 0 Mshowa [(E)] .15986 .37755 0 0 Mshowa [(F)] .15986 .01474 0 0 Mshowa P P p 0 1 0 r .04649 .03741 m .04649 .58163 L .95351 .58163 L .95351 .40023 L .13719 .40023 L .13719 .03741 L F P p 0 0 1 r .004 w .04649 .03741 m .04649 .58163 L .95351 .58163 L s .95351 .40023 m .13719 .40023 L .13719 .03741 L s P 1 0 0 r .004 w .04649 .22881 m .22304 .56248 L s P 0 0 m 1 0 L 1 .61905 L 0 .61905 L closepath clip newpath % End of Graphics MathPictureEnd \ \>"], "Graphics", Evaluatable->False, PageBreakWithin->Automatic, AspectRatioFixed->True, ImageSize->{282, 174}, ImageMargins->{{34, Inherited}, {Inherited, Inherited}}, ImageCacheValid->False], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61905 MathPictureStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.046485 0.045351 0.400227 0.045351 [ [(O)] .02381 .40023 0 0 Msboxa [(A)] .02381 .01474 0 0 Msboxa [(B)] .02381 .60431 0 0 Msboxa [(C)] .97619 .60431 0 0 Msboxa [(D)] .97619 .37755 0 0 Msboxa [(E)] .15986 .37755 0 0 Msboxa [(F)] .15986 .01474 0 0 Msboxa [ 0 0 0 0 ] [ 1 .61905 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p P p p 0 0 0 r p [(O)] .02381 .40023 0 0 Mshowa [(A)] .02381 .01474 0 0 Mshowa [(B)] .02381 .60431 0 0 Mshowa [(C)] .97619 .60431 0 0 Mshowa [(D)] .97619 .37755 0 0 Mshowa [(E)] .15986 .37755 0 0 Mshowa [(F)] .15986 .01474 0 0 Mshowa P P p 0 1 0 r .04649 .03741 m .04649 .58163 L .95351 .58163 L .95351 .40023 L .13719 .40023 L .13719 .03741 L F P p 0 0 1 r .004 w .04649 .03741 m .04649 .58163 L .95351 .58163 L s .95351 .40023 m .13719 .40023 L .13719 .03741 L s P 1 0 0 r .004 w .04649 .26309 m .25474 .57795 L s P 0 0 m 1 0 L 1 .61905 L 0 .61905 L closepath clip newpath % End of Graphics MathPictureEnd \ \>"], "Graphics", Evaluatable->False, PageBreakWithin->Automatic, AspectRatioFixed->True, ImageSize->{282, 174}, ImageMargins->{{34, Inherited}, {Inherited, Inherited}}, ImageCacheValid->False], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61905 MathPictureStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.046485 0.045351 0.400227 0.045351 [ [(O)] .02381 .40023 0 0 Msboxa [(A)] .02381 .01474 0 0 Msboxa [(B)] .02381 .60431 0 0 Msboxa [(C)] .97619 .60431 0 0 Msboxa [(D)] .97619 .37755 0 0 Msboxa [(E)] .15986 .37755 0 0 Msboxa [(F)] .15986 .01474 0 0 Msboxa [ 0 0 0 0 ] [ 1 .61905 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p P p p 0 0 0 r p [(O)] .02381 .40023 0 0 Mshowa [(A)] .02381 .01474 0 0 Mshowa [(B)] .02381 .60431 0 0 Mshowa [(C)] .97619 .60431 0 0 Mshowa [(D)] .97619 .37755 0 0 Mshowa [(E)] .15986 .37755 0 0 Mshowa [(F)] .15986 .01474 0 0 Mshowa P P p 0 1 0 r .04649 .03741 m .04649 .58163 L .95351 .58163 L .95351 .40023 L .13719 .40023 L .13719 .03741 L F P p 0 0 1 r .004 w .04649 .03741 m .04649 .58163 L .95351 .58163 L s .95351 .40023 m .13719 .40023 L .13719 .03741 L s P 1 0 0 r .004 w .04649 .29738 m .29617 .5805 L s P 0 0 m 1 0 L 1 .61905 L 0 .61905 L closepath clip newpath % End of Graphics MathPictureEnd \ \>"], "Graphics", Evaluatable->False, PageBreakWithin->Automatic, AspectRatioFixed->True, ImageSize->{282, 174}, ImageMargins->{{34, Inherited}, {Inherited, Inherited}}, ImageCacheValid->False], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61905 MathPictureStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.046485 0.045351 0.400227 0.045351 [ [(O)] .02381 .40023 0 0 Msboxa [(A)] .02381 .01474 0 0 Msboxa [(B)] .02381 .60431 0 0 Msboxa [(C)] .97619 .60431 0 0 Msboxa [(D)] .97619 .37755 0 0 Msboxa [(E)] .15986 .37755 0 0 Msboxa [(F)] .15986 .01474 0 0 Msboxa [ 0 0 0 0 ] [ 1 .61905 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p P p p 0 0 0 r p [(O)] .02381 .40023 0 0 Mshowa [(A)] .02381 .01474 0 0 Mshowa [(B)] .02381 .60431 0 0 Mshowa [(C)] .97619 .60431 0 0 Mshowa [(D)] .97619 .37755 0 0 Mshowa [(E)] .15986 .37755 0 0 Mshowa [(F)] .15986 .01474 0 0 Mshowa P P p 0 1 0 r .04649 .03741 m .04649 .58163 L .95351 .58163 L .95351 .40023 L .13719 .40023 L .13719 .03741 L F P p 0 0 1 r .004 w .04649 .03741 m .04649 .58163 L .95351 .58163 L s .95351 .40023 m .13719 .40023 L .13719 .03741 L s P 1 0 0 r .004 w .04649 .33166 m .34762 .55931 L s P 0 0 m 1 0 L 1 .61905 L 0 .61905 L closepath clip newpath % End of Graphics MathPictureEnd \ \>"], "Graphics", Evaluatable->False, PageBreakWithin->Automatic, AspectRatioFixed->True, ImageSize->{282, 174}, ImageMargins->{{34, Inherited}, {Inherited, Inherited}}, ImageCacheValid->False]}, Open]]}, Open]]}, Open]]}, Open]], Cell[CellGroupData[{Cell[TextData[ "Leaning a Ladder (incomplete)"], "Subsection", Evaluatable->False, PageBreakAbove->True, GroupPageBreakWithin->False, AspectRatioFixed->True], Cell[TextData[ "A shed 15 feet wide and 10 feet high is in front of a wall. How far up the \ wall can a 20-foot ladder reach?"], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{Cell[TextData[ "p = ParametricPlot[\n\tEvaluate @ Table[\n\t\tb {Cos[t]^3, Sin[t]^3}, \n\t\t\ {b, 0, 1, .1}], {\n\tt, 0, Pi/2}, \n\tAspectRatio -> Automatic,\n\t\ DisplayFunction -> Identity];\nShow[{\n\tGraphics @ {RGBColor[0,1,0], \n\t\t\ Polygon[.02 {{0,0}, {15,0}, {15,10}, {0,10}}]}, \n\t\tp}, \n\tDisplayFunction \ -> $DisplayFunction];"], "Input", PageBreakWithin->Automatic, GroupPageBreakWithin->Automatic, AspectRatioFixed->True], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61803 MathPictureStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.02381 0.952381 0.014715 0.588604 [ [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p P 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath p p 0 1 0 r .02381 .01472 m .30952 .01472 L .30952 .13244 L .02381 .13244 L F P p p p .004 w .02381 .01472 m .02381 .01472 L .02381 .01472 L .02381 .01472 L .02381 .01472 L .02381 .01472 L .02381 .01472 L .02381 .01472 L .02381 .01472 L .02381 .01472 L .02381 .01472 L .02381 .01472 L .02381 .01472 L .02381 .01472 L .02381 .01472 L .02381 .01472 L .02381 .01472 L .02381 .01472 L .02381 .01472 L .02381 .01472 L .02381 .01472 L .02381 .01472 L .02381 .01472 L .02381 .01472 L .02381 .01472 L s P P p p .004 w .11905 .01472 m .11905 .01472 L .11905 .01472 L .11904 .01472 L .11904 .01472 L .11903 .01472 L .11903 .01472 L .11901 .01472 L .11899 .01472 L .11896 .01472 L .11889 .01472 L .11881 .01472 L .1187 .01472 L .11844 .01473 L .1181 .01475 L .11768 .01477 L .11662 .01485 L .11528 .01497 L .11366 .01515 L .10964 .01574 L .10468 .01667 L .09891 .01801 L .09252 .01981 L .08567 .02207 L .07856 .02481 L .07137 .02799 L .06428 .03159 L .05748 .03553 L .05111 .03973 L .0453 .04411 L .04014 .04855 L .03571 .05295 L .03205 .05718 L .02915 .06113 L .02697 .06469 L .02546 .06776 L .02452 .07025 L .02422 .07125 L .02402 .07208 L .0239 .07273 L .02386 .07299 L .02384 .0732 L .02382 .07336 L .02382 .07343 L .02381 .07348 L .02381 .07352 L .02381 .07354 L .02381 .07355 L .02381 .07356 L .02381 .07357 L Mistroke .02381 .07357 L .02381 .07357 L .02381 .07357 L .02381 .07358 L .02381 .07358 L Mfstroke P P p p .004 w .21429 .01472 m .21428 .01472 L .21428 .01472 L .21427 .01472 L .21427 .01472 L .21426 .01472 L .21424 .01472 L .21421 .01472 L .21417 .01472 L .21411 .01472 L .21398 .01472 L .21381 .01472 L .2136 .01473 L .21306 .01475 L .21238 .01478 L .21155 .01483 L .20944 .01498 L .20675 .01522 L .20352 .01559 L .19547 .01676 L .18554 .01862 L .17402 .02131 L .16122 .0249 L .14753 .02943 L .1333 .0349 L .11892 .04127 L .10476 .04846 L .09115 .05634 L .07841 .06474 L .06678 .0735 L .05647 .08238 L .04762 .09118 L .04029 .09964 L .03448 .10755 L .03014 .11467 L .02711 .12081 L .02522 .12578 L .02463 .12778 L .02423 .12944 L .02399 .13074 L .02391 .13126 L .02386 .13168 L .02383 .13201 L .02382 .13214 L .02382 .13225 L .02381 .13233 L .02381 .13236 L .02381 .13239 L .02381 .13241 L .02381 .13242 L Mistroke .02381 .13242 L .02381 .13243 L .02381 .13243 L .02381 .13244 L .02381 .13244 L Mfstroke P P p p .004 w .30952 .01472 m .30952 .01472 L .30952 .01472 L .30951 .01472 L .3095 .01472 L .30948 .01472 L .30946 .01472 L .30941 .01472 L .30934 .01472 L .30927 .01472 L .30907 .01472 L .30881 .01473 L .30849 .01474 L .30769 .01476 L .30667 .01481 L .30542 .01488 L .30225 .01511 L .29823 .01548 L .29337 .01603 L .2813 .01778 L .26641 .02058 L .24912 .02461 L .22993 .02999 L .20939 .03679 L .18805 .045 L .16648 .05455 L .14523 .06533 L .12482 .07715 L .10571 .08976 L .08827 .10289 L .0728 .11622 L .05952 .12941 L .04853 .14211 L .03982 .15396 L .0333 .16465 L .02876 .17385 L .02593 .18131 L .02504 .18431 L .02444 .1868 L .02408 .18876 L .02397 .18953 L .02389 .19016 L .02384 .19066 L .02383 .19085 L .02382 .19101 L .02381 .19114 L .02381 .19119 L .02381 .19123 L .02381 .19126 L .02381 .19127 L Mistroke .02381 .19128 L .02381 .19129 L .02381 .19129 L .02381 .1913 L .02381 .1913 L Mfstroke P P p p .004 w .40476 .01472 m .40476 .01472 L .40475 .01472 L .40474 .01472 L .40472 .01472 L .4047 .01472 L .40468 .01472 L .40461 .01472 L .40452 .01472 L .40442 .01472 L .40415 .01472 L .40381 .01473 L .40339 .01474 L .40232 .01478 L .40095 .01484 L .39929 .01494 L .39507 .01524 L .3897 .01573 L .38322 .01646 L .36713 .0188 L .34727 .02253 L .32422 .02791 L .29864 .03509 L .27125 .04415 L .24279 .05509 L .21404 .06783 L .18571 .0822 L .1585 .09796 L .13301 .11477 L .10975 .13228 L .08914 .15005 L .07143 .16764 L .05677 .18457 L .04516 .20038 L .03646 .21463 L .03041 .2269 L .02664 .23684 L .02546 .24085 L .02466 .24417 L .02417 .24677 L .02402 .2478 L .02392 .24865 L .02385 .24931 L .02384 .24957 L .02382 .24978 L .02382 .24994 L .02381 .25001 L .02381 .25006 L .02381 .2501 L .02381 .25012 L Mistroke .02381 .25013 L .02381 .25014 L .02381 .25015 L .02381 .25016 L .02381 .25016 L Mfstroke P P p p .004 w .5 .01472 m .5 .01472 L .49999 .01472 L .49997 .01472 L .49995 .01472 L .49993 .01472 L .49989 .01472 L .49981 .01472 L .4997 .01472 L .49957 .01472 L .49924 .01473 L .49881 .01474 L .49828 .01475 L .49695 .0148 L .49524 .01488 L .49315 .01499 L .48788 .01537 L .48117 .01599 L .47307 .0169 L .45296 .01982 L .42814 .02449 L .39932 .03121 L .36735 .04018 L .3331 .0515 L .29754 .06518 L .26159 .08111 L .22618 .09907 L .19217 .11877 L .16031 .13979 L .13124 .16167 L .10547 .18389 L .08333 .20587 L .06501 .22703 L .0505 .2468 L .03962 .2646 L .03207 .27995 L .02735 .29238 L .02587 .29738 L .02487 .30153 L .02426 .30479 L .02407 .30607 L .02394 .30713 L .02387 .30795 L .02384 .30828 L .02383 .30854 L .02382 .30875 L .02381 .30883 L .02381 .3089 L .02381 .30895 L .02381 .30897 L Mistroke .02381 .30899 L .02381 .309 L .02381 .30901 L .02381 .30902 L .02381 .30902 L Mfstroke P P p p .004 w .59524 .01472 m .59523 .01472 L .59522 .01472 L .59521 .01472 L .59518 .01472 L .59515 .01472 L .59511 .01472 L .59501 .01472 L .59488 .01472 L .59472 .01472 L .59432 .01473 L .59381 .01474 L .59318 .01476 L .59158 .01481 L .58952 .01491 L .58702 .01505 L .5807 .0155 L .57265 .01624 L .56293 .01734 L .53879 .02084 L .509 .02644 L .47443 .03451 L .43605 .04527 L .39496 .05886 L .35228 .07528 L .30915 .09439 L .26666 .11595 L .22584 .13958 L .1876 .1648 L .15272 .19106 L .1218 .21772 L .09524 .2441 L .07325 .2695 L .05583 .29321 L .04279 .31458 L .03372 .33299 L .02805 .34791 L .02628 .35391 L .02508 .35889 L .02435 .3628 L .02412 .36435 L .02397 .36561 L .02388 .3666 L .02385 .36699 L .02383 .36731 L .02382 .36756 L .02381 .36766 L .02381 .36774 L .02381 .3678 L .02381 .36782 L Mistroke .02381 .36784 L .02381 .36786 L .02381 .36787 L .02381 .36788 L .02381 .36788 L Mfstroke P P p p .004 w .69048 .01472 m .69047 .01472 L .69046 .01472 L .69044 .01472 L .69041 .01472 L .69037 .01472 L .69033 .01472 L .69021 .01472 L .69006 .01472 L .68987 .01472 L .68941 .01473 L .6888 .01474 L .68807 .01476 L .6862 .01483 L .68381 .01494 L .68089 .0151 L .67351 .01563 L .66412 .0165 L .65278 .01777 L .62462 .02186 L .58987 .0284 L .54953 .03781 L .50476 .05036 L .45682 .06622 L .40703 .08537 L .35671 .10767 L .30713 .13282 L .25951 .16039 L .2149 .18982 L .17421 .22046 L .13813 .25156 L .10714 .28233 L .08149 .31196 L .06117 .33963 L .04595 .36456 L .03537 .38604 L .02876 .40344 L .02669 .41045 L .02529 .41625 L .02444 .42081 L .02417 .42262 L .024 .4241 L .02389 .42525 L .02386 .4257 L .02383 .42608 L .02382 .42637 L .02382 .42648 L .02381 .42657 L .02381 .42664 L .02381 .42667 L Mistroke .02381 .4267 L .02381 .42671 L .02381 .42673 L .02381 .42674 L .02381 .42674 L Mfstroke P P p p .004 w .78571 .01472 m .78571 .01472 L .7857 .01472 L .78567 .01472 L .78564 .01472 L .78559 .01472 L .78554 .01472 L .78541 .01472 L .78524 .01472 L .78503 .01472 L .78449 .01473 L .7838 .01475 L .78296 .01477 L .78083 .01485 L .77809 .01497 L .77476 .01516 L .76633 .01576 L .75559 .01675 L .74263 .01821 L .71045 .02288 L .67074 .03035 L .62463 .0411 L .57347 .05546 L .51868 .07358 L .46177 .09546 L .40426 .12095 L .34761 .14969 L .29318 .1812 L .2422 .21483 L .1957 .24985 L .15446 .28539 L .11905 .32056 L .08973 .35442 L .06651 .38604 L .04911 .41454 L .03702 .43908 L .02947 .45897 L .0271 .46698 L .0255 .47362 L .02453 .47883 L .02423 .48089 L .02402 .48258 L .0239 .4839 L .02386 .48442 L .02384 .48484 L .02382 .48517 L .02382 .4853 L .02381 .48541 L .02381 .48549 L .02381 .48552 L Mistroke .02381 .48555 L .02381 .48557 L .02381 .48559 L .02381 .4856 L .02381 .4856 L Mfstroke P P p p .004 w .88095 .01472 m .88095 .01472 L .88093 .01472 L .8809 .01472 L .88087 .01472 L .88082 .01472 L .88076 .01472 L .88061 .01472 L .88041 .01472 L .88018 .01472 L .87958 .01473 L .8788 .01475 L .87786 .01478 L .87546 .01486 L .87238 .015 L .86863 .01521 L .85914 .01589 L .84706 .017 L .83249 .01865 L .79628 .0239 L .7516 .03231 L .69974 .0444 L .64218 .06055 L .58054 .08093 L .51652 .10556 L .45182 .13423 L .38808 .16656 L .32686 .20201 L .2695 .23985 L .21718 .27924 L .17079 .31923 L .13095 .35879 L .09797 .39689 L .07185 .43246 L .05228 .46452 L .03867 .49213 L .03017 .5145 L .02751 .52351 L .02572 .53098 L .02462 .53684 L .02428 .53916 L .02405 .54106 L .02391 .54255 L .02387 .54313 L .02384 .54361 L .02382 .54398 L .02382 .54413 L .02381 .54425 L .02381 .54434 L .02381 .54438 L Mistroke .02381 .54441 L .02381 .54443 L .02381 .54445 L .02381 .54446 L .02381 .54446 L Mfstroke P P p p .004 w .97619 .01472 m .97618 .01472 L .97617 .01472 L .97614 .01472 L .97609 .01472 L .97604 .01472 L .97598 .01472 L .97581 .01472 L .97559 .01472 L .97533 .01472 L .97466 .01474 L .9738 .01476 L .97275 .01478 L .97009 .01488 L .96667 .01504 L .9625 .01527 L .95196 .01602 L .93854 .01726 L .92234 .01909 L .88212 .02492 L .83247 .03426 L .77484 .0477 L .71088 .06564 L .6424 .08829 L .57127 .11565 L .49938 .1475 L .42856 .18343 L .36053 .22282 L .2968 .26486 L .23867 .30863 L .18713 .35306 L .14286 .39702 L .10621 .43935 L .07718 .47888 L .05544 .51449 L .04032 .54518 L .03088 .57004 L .02793 .58005 L .02593 .58834 L .02471 .59486 L .02433 .59743 L .02408 .59955 L .02392 .60119 L .02387 .60184 L .02384 .60237 L .02382 .60279 L .02382 .60295 L .02381 .60308 L .02381 .60319 L .02381 .60323 L Mistroke .02381 .60326 L .02381 .60329 L .02381 .6033 L .02381 .60332 L .02381 .60332 L Mfstroke P P P P % End of Graphics MathPictureEnd \ \>"], "Graphics", Evaluatable->False, AspectRatioFixed->True, ImageSize->{282, 174}, ImageMargins->{{34, Inherited}, {Inherited, Inherited}}, ImageCacheValid->False]}, Open]]}, Open]], Cell[CellGroupData[{Cell[TextData["Implementation"], "Section", Evaluatable->False, PageBreakAbove->True, AspectRatioFixed->True], Cell[CellGroupData[{Cell[TextData["BuildLadder"], "Subsection", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[ "BuildLadder[length_, space_] := Show[Graphics[\n\t{\n\t\tRGBColor[0, 0, 1], \ Thickness[.02], \n\t\tLine[{{0, -5}, {length, -5}}], \n\t\tLine[{{0, 5}, \ {length, 5}}], \n\t\tTable[Line[{{x, -5}, {x, 5}}], \n\t\t{x, space, length - \ space, space}]\n\t}, \n\tAspectRatio -> Automatic\n]];"], "Input", InitializationCell->True, AspectRatioFixed->True]}, Open]], Cell[CellGroupData[{Cell[TextData["AstroidSweepAux, AstroidSweep"], "Subsection", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[ "AstroidSweepAux[p_, T_, e_] :=\nModule[\n(* e is plus or minus 1 to go \ around the top or bottom. *)\n{a}, \nTable[\n\t\tShow[\n\t\t\t{\n\t\t\tp, \n\t\ \t\tGraphics[{\n\t\t\t\tRGBColor[0,0,1], \n\t\t\t\t\tLine[{{a, 0}, {0, e \ Sqrt[1 - a^2]}}], \n\t\t\t\tPointSize[.015], RGBColor[1,0,0],\n\t\t\t\t\ Point[{a, 0}], Point[{0, e Sqrt[1 - a^2]}]\n\t\t\t}] \n\t\t\t}, \n\t\t\t\ DisplayFunction -> $DisplayFunction], \n\t{a, -e 1, e -e 1/T, e 1/T}\n\t]\n\ ]"], "Input", InitializationCell->True, AspectRatioFixed->True], Cell[TextData[ "AstroidSweep[T_] := Module[\n{p}, \np = ParametricPlot[\n\t{Cos[t]^3, \ Sin[t]^3}, {t, 0, 2 Pi}, \n\tAspectRatio -> Automatic,\n\tPlotRange -> \ {{-1,1}, {-1,1}}, \n\tTicks -> None, \n\tAxesStyle -> {Dashing[{.01,.05}], \ Dashing[{.01,.05}]},\n\tDisplayFunction -> Identity];\t\n\tJoin[\n\t\t\ AstroidSweepAux[p, T, 1], \n\t\tAstroidSweepAux[p, T, -1]\n\t]\n]"], "Input", InitializationCell->True, AspectRatioFixed->True]}, Open]], Cell[CellGroupData[{Cell[TextData[{ StyleBox["LadderLineLoose, EmptyCorridor, Corridor, LadderLineFixed", Evaluatable->False, AspectRatioFixed->True], StyleBox[", ", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Courier", FontSize->12], StyleBox["CorridorSweep", Evaluatable->False, AspectRatioFixed->True] }], "Subsection", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[ "LadderLineLoose[y0_?Negative] := \n\tLine[{{0, y0}, {NSw (1 - EWw / y0), \ EWw}}]"], "Input", InitializationCell->True, AspectRatioFixed->True], Cell[TextData[ "LadderLineLoose[y0_List] := Map[LadderLineLoose, y0]"], "Input", InitializationCell->True, AspectRatioFixed->True], Cell[TextData[ "EmptyCorridor[] := Module[\n{a,b,c,d,e,f, Lshape, sides, labels},\n\ta = {0, \ EWw - NSl};\n\tb = {0, EWw};\n\tc = {EWl, EWw};\n\td = {EWl, 0};\n\te = {NSw, \ 0};\n\tf = {NSw, EWw - NSl};\n\tLshape = {RGBColor[0,1,0], \ Polygon[{a,b,c,d,e,f}]}; \n\tsides = {RGBColor[0,0,1], Line[{a,b,c}], \ Line[{d,e,f}]};\n\tlabels = {RGBColor[0,0,0], \n\t\tThread[\n\t\t\t\ Text[{\"O\",\"A\",\"B\",\"C\",\"D\",\"E\",\"F\"}, \n\t\t\t{{-.5, 0}, a + \ {-.5, -.5}, b + {-.5, .5}, \n\t\t\tc + {.5, .5}, d + {.5, -.5}, e + {.5, \ -.5}, \n\t\t\tf + {.5, -.5}}]\n\t\t]};\n\t{labels, Lshape, sides, \ RGBColor[1,0,0]}\n]"], "Input", InitializationCell->True, AspectRatioFixed->True], Cell[TextData[ "Corridor[y0_] := Module[\n\t{n0}, \n\t(* The next line makes sure only \ negative values \n\t\tare sent to LadderLine. *)\n\tn0 = If[ListQ[y0], \ Select[y0, Negative], y0];\n\tShow[\n\t\tGraphics @ RotateLeft @ \n\t\t\t\ Join[EmptyCorridor[], {LadderLineLoose[n0]}],\n\t\tAspectRatio -> Automatic, \ \n\t\tPlotRange -> All\n\t]]\n"], "Input", InitializationCell->True, AspectRatioFixed->True], Cell[TextData[ "In the animation program CorridorSweep, the ladder of maximum length will be \ slid with one end on the left wall of the north-south corridor so that it \ touches the inside corner. This calculates the point {x, y} at the other end \ of the ladder. It is used in the function LadderLineFixed. We use NSW instead \ of NSw to see it symbolically rather than with its given value. "], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{Cell[TextData[ "Simplify @ First @ MapAll[\n\tExpand, \n\tSolve[\n\t\t{length^2 == x^2 + (y \ - y0)^2,\n\t\tlength == Sqrt[(x - NSW)^2 + y^2] + \n\t\t\tSqrt[NSW^2 +y0^2]},\ \n\t {x,y}]\n]"], "Input", PageWidth->PaperWidth, InitializationCell->True, AspectRatioFixed->True], Cell[OutputFormData["\<\ {x -> (NSW*(((-4 + y0)^2*(4 + y0^2))/y0^2)^(1/2))/ (NSW^2 + y0^2)^(1/2), y -> y0 - (y0*(((-4 + y0)^2*(4 + y0^2))/y0^2)^ (1/2))/(NSW^2 + y0^2)^(1/2)}\ \>", "\<\ 2 2 (-4 + y0) (4 + y0 ) NSW Sqrt[--------------------] 2 y0 {x -> ------------------------------, 2 2 Sqrt[NSW + y0 ] 2 2 (-4 + y0) (4 + y0 ) y0 Sqrt[--------------------] 2 y0 y -> y0 - -----------------------------} 2 2 Sqrt[NSW + y0 ]\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True]}, Open]], Cell[TextData[ "LadderLineFixed[y0_, length_] := Module[\n\t{a}, \n\ta = length / Sqrt[NSw^2 \ + y0^2];\n\tLine[{{0, y0}, {a NSw, y0 (1 - a)}}]\n]"], "Input", InitializationCell->True, AspectRatioFixed->True], Cell[TextData[ "CorridorSweep[y0_, length_, T_] := Module[\n\t{c, y},\n\tc = \ EmptyCorridor[]; \n\tTable[\n\t\tGraphics[\n\t\t\tJoin[c, {RGBColor[1,0,0], \n\ \t\t\t\tLadderLineFixed[y, length]}],\n\t\t\tAspectRatio -> Automatic, \n\t\t\ \tPlotRange -> All\n\t\t],\n\t{y, 3 y0, 1/3 y0, - 3/2 y0 / T}\n\t]\n]"], "Input", InitializationCell->True, AspectRatioFixed->True]}, Open]]}, Open]]}, Open]] }, FrontEndVersion->"Macintosh 3.0", ScreenRectangle->{{0, 832}, {0, 604}}, AutoGeneratedPackage->None, WindowToolbars->{}, CellGrouping->Manual, WindowSize->{520, 509}, WindowMargins->{{116, Automatic}, {Automatic, 1}}, PrivateNotebookOptions->{"ColorPalette"->{RGBColor, -1}}, ShowCellLabel->True, ShowCellTags->False, RenderingOptions->{"ObjectDithering"->True, "RasterDithering"->False}, StyleDefinitions -> Notebook[{ Cell[CellGroupData[{ Cell["Style Definitions", "Subtitle"], Cell["\<\ Modify the definitions below to change the default appearance of \ all cells in a given style. Make modifications to any definition using \ commands in the Format menu.\ \>", "Text"], Cell[CellGroupData[{ Cell["Style Environment Names", "Section"], Cell[StyleData[All, "Working"], PageWidth->WindowWidth, ScriptMinSize->9], Cell[StyleData[All, "Presentation"], PageWidth->WindowWidth, ScriptMinSize->12, FontSize->16], Cell[StyleData[All, "Condensed"], PageWidth->WindowWidth, CellBracketOptions->{"Margins"->{1, 1}, "Widths"->{0, 5}}, ScriptMinSize->8, FontSize->11], Cell[StyleData[All, "Printout"], PageWidth->PaperWidth, ScriptMinSize->5, FontSize->10, PrivateFontOptions->{"FontType"->"Outline"}] }, Closed]], Cell[CellGroupData[{ Cell["Notebook Options", "Section"], Cell["\<\ The options defined for the style below will be used at the \ Notebook level.\ \>", "Text"], Cell[StyleData["Notebook"], PageHeaders->{{Cell[ TextData[ { CounterBox[ "Page"]}], "PageNumber"], None, Cell[ TextData[ { ValueBox[ "FileName"]}], "Header"]}, {Cell[ TextData[ { ValueBox[ "FileName"]}], "Header"], None, Cell[ TextData[ { CounterBox[ "Page"]}], "PageNumber"]}}, CellFrameLabelMargins->6, StyleMenuListing->None] }, Closed]], Cell[CellGroupData[{ Cell["Styles for Headings", "Section"], Cell[CellGroupData[{ Cell[StyleData["Title"], CellMargins->{{7, Inherited}, {8, 40}}, Evaluatable->False, CellGroupingRules->{"TitleGrouping", 0}, CellHorizontalScrolling->False, PageBreakBelow->False, GroupPageBreakWithin->False, TextAlignment->Center, LineSpacing->{1, 1}, CounterIncrements->"Title", CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}, { "Subtitle", 0}, {"Subsubtitle", 0}}, AspectRatioFixed->True, FontFamily->"Times", FontSize->24, FontWeight->"Bold"], Cell[StyleData["Title", "Presentation"], CellMargins->{{24, 10}, {20, 40}}, LineSpacing->{1, 0}, FontSize->44], Cell[StyleData["Title", "Condensed"], CellMargins->{{8, 10}, {4, 8}}, FontSize->20], Cell[StyleData["Title", "Printout"], CellMargins->{{2, 10}, {12, 30}}, FontSize->24] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Subtitle"], CellMargins->{{7, Inherited}, {6, 15}}, Evaluatable->False, CellGroupingRules->{"TitleGrouping", 10}, CellHorizontalScrolling->False, PageBreakBelow->False, GroupPageBreakWithin->False, TextAlignment->Center, LineSpacing->{1, 1}, CounterIncrements->"Subtitle", CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}, { "Subsubtitle", 0}}, AspectRatioFixed->True, FontFamily->"Times", FontSize->18, FontWeight->"Bold"], Cell[StyleData["Subtitle", "Presentation"], CellMargins->{{24, 10}, {20, 20}}, LineSpacing->{1, 0}, FontSize->36], Cell[StyleData["Subtitle", "Condensed"], CellMargins->{{8, 10}, {4, 4}}, FontSize->14], Cell[StyleData["Subtitle", "Printout"], CellMargins->{{2, 10}, {12, 8}}, FontSize->18] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Subsubtitle"], CellMargins->{{7, Inherited}, {6, 15}}, Evaluatable->False, CellGroupingRules->{"TitleGrouping", 20}, CellHorizontalScrolling->False, PageBreakBelow->False, GroupPageBreakWithin->False, TextAlignment->Center, LineSpacing->{1, 1}, CounterIncrements->"Subsubtitle", CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}}, AspectRatioFixed->True, FontFamily->"Times", FontSize->14, FontSlant->"Italic"], Cell[StyleData["Subsubtitle", "Presentation"], CellMargins->{{24, 10}, {20, 20}}, LineSpacing->{1, 0}, FontSize->24], Cell[StyleData["Subsubtitle", "Condensed"], CellMargins->{{8, 10}, {8, 8}}, FontSize->12], Cell[StyleData["Subsubtitle", "Printout"], CellMargins->{{2, 10}, {12, 8}}, FontSize->14] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Section"], CellDingbat->"\[GraySquare]", CellMargins->{{22, Inherited}, {8, 20}}, Evaluatable->False, CellGroupingRules->{"SectionGrouping", 30}, CellHorizontalScrolling->False, PageBreakBelow->False, LineSpacing->{1, 1}, CounterIncrements->"Section", CounterAssignments->{{"Subsection", 0}, {"Subsubsection", 0}}, AspectRatioFixed->True, FontFamily->"Times", FontSize->18, FontWeight->"Bold"], Cell[StyleData["Section", "Presentation"], CellMargins->{{40, 10}, {11, 32}}, LineSpacing->{1, 0}, FontSize->24], Cell[StyleData["Section", "Condensed"], CellMargins->{{18, Inherited}, {6, 12}}, FontSize->12], Cell[StyleData["Section", "Printout"], CellMargins->{{13, 0}, {7, 22}}, FontSize->14] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Subsection"], CellDingbat->"\[FilledSquare]", CellMargins->{{19, Inherited}, {8, 15}}, Evaluatable->False, CellGroupingRules->{"SectionGrouping", 40}, CellHorizontalScrolling->False, PageBreakBelow->False, LineSpacing->{1, 1}, CounterIncrements->"Subsection", CounterAssignments->{{"Subsubsection", 0}}, AspectRatioFixed->True, FontFamily->"Times", FontSize->14, FontWeight->"Bold"], Cell[StyleData["Subsection", "Presentation"], CellMargins->{{36, 10}, {11, 32}}, LineSpacing->{1, 0}, FontSize->22], Cell[StyleData["Subsection", "Condensed"], CellMargins->{{16, Inherited}, {6, 12}}, FontSize->12], Cell[StyleData["Subsection", "Printout"], CellMargins->{{9, 0}, {7, 22}}, FontSize->12] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Subsubsection"], CellDingbat->"\[EmptySquare]", CellMargins->{{18, Inherited}, {8, 12}}, Evaluatable->False, CellGroupingRules->{"SectionGrouping", 50}, CellHorizontalScrolling->False, PageBreakBelow->False, LineSpacing->{1, 1}, CounterIncrements->"Subsubsection", AspectRatioFixed->True, FontFamily->"Times", FontSize->12, FontWeight->"Bold"], Cell[StyleData["Subsubsection", "Presentation"], CellMargins->{{34, 10}, {11, 26}}, LineSpacing->{1, 0}, FontSize->18], Cell[StyleData["Subsubsection", "Condensed"], CellMargins->{{17, Inherited}, {6, 12}}, FontSize->10], Cell[StyleData["Subsubsection", "Printout"], CellMargins->{{9, 0}, {7, 14}}, FontSize->11] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Styles for Body Text", "Section"], Cell[CellGroupData[{ Cell[StyleData["Text"], CellMargins->{{7, 10}, {7, 7}}, Evaluatable->False, CellHorizontalScrolling->False, PageBreakWithin->Automatic, LineSpacing->{1, 1}, CounterIncrements->"Text", AspectRatioFixed->True, FontSize->12], Cell[StyleData["Text", "Presentation"], CellMargins->{{24, 10}, {10, 10}}, LineSpacing->{1, 5}], Cell[StyleData["Text", "Condensed"], CellMargins->{{8, 10}, {6, 6}}, LineSpacing->{1, 1}], Cell[StyleData["Text", "Printout"], CellMargins->{{2, 2}, {6, 6}}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SmallText"], CellMargins->{{7, 10}, {6, 6}}, Evaluatable->False, CellHorizontalScrolling->False, PageBreakWithin->Automatic, LineSpacing->{1, 1}, CounterIncrements->"SmallText", AspectRatioFixed->True, FontFamily->"Times", FontSize->10], Cell[StyleData["SmallText", "Presentation"], CellMargins->{{24, 10}, {8, 8}}, LineSpacing->{1, 5}, FontSize->12], Cell[StyleData["SmallText", "Condensed"], CellMargins->{{8, 10}, {5, 5}}, LineSpacing->{1, 2}, FontSize->9], Cell[StyleData["SmallText", "Printout"], CellMargins->{{2, 2}, {5, 5}}, FontSize->7] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Styles for Input/Output", "Section"], Cell["\<\ The cells in this section define styles used for input and output \ to the kernel. Be careful when modifying, renaming, or removing these \ styles, because the front end associates special meanings with these style \ names. Some attributes for these styles are actually set in FormatType Styles \ (in the last section of this stylesheet). \ \>", "Text"], Cell[CellGroupData[{ Cell[StyleData["Input"], PageWidth->Infinity, CellMargins->{{42, 10}, {5, 7}}, Evaluatable->True, CellGroupingRules->"InputGrouping", PageBreakWithin->False, GroupPageBreakWithin->False, CellLabelMargins->{{23, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultInputFormatType, LineSpacing->{1, 1}, AutoItalicWords->{}, FormatType->InputForm, ShowStringCharacters->True, NumberMarks->True, CounterIncrements->"Input", AspectRatioFixed->True, FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], Cell[StyleData["Input", "Presentation"], CellMargins->{{72, Inherited}, {8, 10}}, LineSpacing->{1, 0}], Cell[StyleData["Input", "Condensed"], CellMargins->{{40, 10}, {2, 3}}], Cell[StyleData["Input", "Printout"], CellMargins->{{39, 0}, {4, 6}}, FontSize->9] }, Closed]], Cell[StyleData["InputOnly"], Evaluatable->True, CellGroupingRules->"InputGrouping", DefaultFormatType->DefaultInputFormatType, AutoItalicWords->{}, FormatType->InputForm, ShowStringCharacters->True, NumberMarks->True, CounterIncrements->"Input", StyleMenuListing->None, FontWeight->"Bold"], Cell[CellGroupData[{ Cell[StyleData["Output"], PageWidth->Infinity, CellMargins->{{42, 10}, {7, 5}}, CellEditDuplicate->True, Evaluatable->False, CellGroupingRules->"OutputGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, CellLabelMargins->{{23, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultOutputFormatType, LineSpacing->{1, 0}, AutoItalicWords->{}, FormatType->InputForm, CounterIncrements->"Output", AspectRatioFixed->True, FontFamily->"Courier", FontSize->12], Cell[StyleData["Output", "Presentation"], CellMargins->{{72, Inherited}, {10, 8}}, LineSpacing->{1, 0}], Cell[StyleData["Output", "Condensed"], CellMargins->{{41, Inherited}, {3, 2}}], Cell[StyleData["Output", "Printout"], CellMargins->{{39, 0}, {6, 4}}, FontSize->9] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Message"], PageWidth->Infinity, CellMargins->{{42, Inherited}, {Inherited, Inherited}}, Evaluatable->False, CellGroupingRules->"OutputGrouping", PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, ShowCellLabel->False, CellLabelMargins->{{23, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultOutputFormatType, LineSpacing->{1, 1}, AutoItalicWords->{}, FormatType->InputForm, CounterIncrements->"Message", AspectRatioFixed->True, StyleMenuListing->None, FontFamily->"Courier", FontSize->12, FontColor->RGBColor[0, 0, 1]], Cell[StyleData["Message", "Presentation"], CellMargins->{{72, Inherited}, {Inherited, Inherited}}, LineSpacing->{1, 0}], Cell[StyleData["Message", "Condensed"], CellMargins->{{41, Inherited}, {Inherited, Inherited}}], Cell[StyleData["Message", "Printout"], CellMargins->{{39, Inherited}, {Inherited, Inherited}}, FontSize->8, FontColor->GrayLevel[0]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Print"], PageWidth->Infinity, CellMargins->{{42, Inherited}, {Inherited, Inherited}}, Evaluatable->False, CellGroupingRules->"OutputGrouping", PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, ShowCellLabel->False, CellLabelMargins->{{23, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultOutputFormatType, LineSpacing->{1, 1}, AutoItalicWords->{}, FormatType->InputForm, CounterIncrements->"Print", AspectRatioFixed->True, StyleMenuListing->None, FontFamily->"Courier", FontSize->12], Cell[StyleData["Print", "Presentation"], CellMargins->{{72, Inherited}, {Inherited, Inherited}}, LineSpacing->{1, 0}], Cell[StyleData["Print", "Condensed"], CellMargins->{{41, Inherited}, {Inherited, Inherited}}], Cell[StyleData["Print", "Printout"], CellMargins->{{39, Inherited}, {Inherited, Inherited}}, FontSize->8] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Graphics"], PageWidth->Infinity, CellMargins->{{7, Inherited}, {Inherited, Inherited}}, Evaluatable->False, CellGroupingRules->"GraphicsGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, ShowCellLabel->False, DefaultFormatType->DefaultOutputFormatType, LineSpacing->{1, 1}, FormatType->InputForm, CounterIncrements->"Graphics", AspectRatioFixed->True, ImageSize->{282, 287}, ImageMargins->{{34, Inherited}, {Inherited, 0}}, StyleMenuListing->None, FontFamily->"Courier", FontSize->12], Cell[StyleData["Graphics", "Presentation"], ImageMargins->{{62, Inherited}, {Inherited, 0}}], Cell[StyleData["Graphics", "Condensed"], ImageMargins->{{38, Inherited}, {Inherited, 0}}, Magnification->0.6], Cell[StyleData["Graphics", "Printout"], ImageMargins->{{30, Inherited}, {Inherited, 0}}, FontSize->9, Magnification->0.8] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["CellLabel"], StyleMenuListing->None, FontFamily->"Helvetica", FontSize->9, FontColor->RGBColor[0, 0, 1]], Cell[StyleData["CellLabel", "Presentation"], FontSize->12], Cell[StyleData["CellLabel", "Condensed"], FontSize->9], Cell[StyleData["CellLabel", "Printout"], FontFamily->"Courier", FontSize->8, FontSlant->"Italic", FontColor->GrayLevel[0]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Formulas and Programming", "Section"], Cell[CellGroupData[{ Cell[StyleData["InlineFormula"], CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, ScriptLevel->1, SingleLetterItalics->True], Cell[StyleData["InlineFormula", "Presentation"], CellMargins->{{24, 10}, {10, 10}}, LineSpacing->{1, 5}], Cell[StyleData["InlineFormula", "Condensed"], CellMargins->{{8, 10}, {6, 6}}, LineSpacing->{1, 1}], Cell[StyleData["InlineFormula", "Printout"], CellMargins->{{2, 0}, {6, 6}}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["DisplayFormula"], CellMargins->{{42, Inherited}, {Inherited, Inherited}}, CellHorizontalScrolling->True, DefaultFormatType->DefaultInputFormatType, ScriptLevel->0, SingleLetterItalics->True, UnderoverscriptBoxOptions->{LimitsPositioning->True}], Cell[StyleData["DisplayFormula", "Presentation"], LineSpacing->{1, 5}], Cell[StyleData["DisplayFormula", "Condensed"], LineSpacing->{1, 1}], Cell[StyleData["DisplayFormula", "Printout"]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Styles for Headers and Footers", "Section"], Cell[StyleData["Header"], CellMargins->{{7, 0}, {4, 1}}, Evaluatable->False, CellHorizontalScrolling->False, PageBreakWithin->Automatic, LineSpacing->{1, 1}, AspectRatioFixed->True, StyleMenuListing->None, FontFamily->"Times", FontSize->12, FontSlant->"Italic"], Cell[StyleData["Footer"], CellMargins->{{7, 0}, {0, 4}}, Evaluatable->False, CellHorizontalScrolling->False, PageBreakWithin->Automatic, TextAlignment->Center, LineSpacing->{1, 1}, AspectRatioFixed->True, StyleMenuListing->None, FontFamily->"Times", FontSize->12, FontSlant->"Italic"], Cell[StyleData["PageNumber"], CellMargins->{{0, 0}, {4, 1}}, StyleMenuListing->None, FontFamily->"Times", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell["Palette Styles", "Section"], Cell["\<\ The cells below define styles that define standard \ ButtonFunctions, for use in palette buttons.\ \>", "Text"], Cell[StyleData["Paste"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`NotebookApply[ FrontEnd`InputNotebook[ ], #, After]}]&)}], Cell[StyleData["Evaluate"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`NotebookApply[ FrontEnd`InputNotebook[ ], #, All], SelectionEvaluate[ FrontEnd`InputNotebook[ ], All]}]&)}], Cell[StyleData["EvaluateCell"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`NotebookApply[ FrontEnd`InputNotebook[ ], #, All], FrontEnd`SelectionMove[ FrontEnd`InputNotebook[ ], All, Cell, 1], FrontEnd`SelectionEvaluateCreateCell[ FrontEnd`InputNotebook[ ], All]}]&)}], Cell[StyleData["CopyEvaluate"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`SelectionCreateCell[ FrontEnd`InputNotebook[ ], All], FrontEnd`NotebookApply[ FrontEnd`InputNotebook[ ], #, All], FrontEnd`SelectionEvaluate[ FrontEnd`InputNotebook[ ], All]}]&)}], Cell[StyleData["CopyEvaluateCell"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`SelectionCreateCell[ FrontEnd`InputNotebook[ ], All], FrontEnd`NotebookApply[ FrontEnd`InputNotebook[ ], #, All], FrontEnd`SelectionEvaluateCreateCell[ FrontEnd`InputNotebook[ ], All]}]&)}] }, Closed]], Cell[CellGroupData[{ Cell["Hyperlink Styles", "Section"], Cell["\<\ The cells below define styles useful for making hypertext \ ButtonBoxes. The \"Hyperlink\" style is for links within the same Notebook, \ or between Notebooks.\ \>", "Text"], Cell[CellGroupData[{ Cell[StyleData["Hyperlink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontColor->RGBColor[0, 0, 1], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`NotebookLocate[ #2]}]&), Active->True, ButtonNote->ButtonData}], Cell[StyleData["Hyperlink", "Presentation"]], Cell[StyleData["Hyperlink", "Condensed"]], Cell[StyleData["Hyperlink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell["\<\ The following styles are for linking automatically to the on-line \ help system.\ \>", "Text"], Cell[CellGroupData[{ Cell[StyleData["MainBookLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontColor->RGBColor[0, 0, 1], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "MainBook", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["MainBookLink", "Presentation"]], Cell[StyleData["MainBookLink", "Condensed"]], Cell[StyleData["MainBookLink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["AddOnsLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontFamily->"Courier", FontColor->RGBColor[0, 0, 1], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "AddOns", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["AddOnsLink", "Presentation"]], Cell[StyleData["AddOnsLink", "Condensed"]], Cell[StyleData["AddOnLink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["RefGuideLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontFamily->"Courier", FontColor->RGBColor[0, 0, 1], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "RefGuideLink", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["RefGuideLink", "Presentation"]], Cell[StyleData["RefGuideLink", "Condensed"]], Cell[StyleData["RefGuideLink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["GettingStartedLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontColor->RGBColor[0, 0, 1], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "GettingStarted", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["GettingStartedLink", "Presentation"]], Cell[StyleData["GettingStartedLink", "Condensed"]], Cell[StyleData["GettingStartedLink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["OtherInformationLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontColor->RGBColor[0, 0, 1], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "OtherInformation", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["OtherInformationLink", "Presentation"]], Cell[StyleData["OtherInformationLink", "Condensed"]], Cell[StyleData["OtherInformationLink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Placeholder Styles", "Section"], Cell["\<\ The cells below define styles useful for making placeholder \ objects in palette templates.\ \>", "Text"], Cell[CellGroupData[{ Cell[StyleData["Placeholder"], Editable->False, Selectable->False, StyleBoxAutoDelete->True, Placeholder->True, StyleMenuListing->None], Cell[StyleData["Placeholder", "Presentation"]], Cell[StyleData["Placeholder", "Condensed"]], Cell[StyleData["Placeholder", "Printout"]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SelectionPlaceholder"], Editable->False, Selectable->False, StyleBoxAutoDelete->True, Placeholder->Primary, StyleMenuListing->None, DrawHighlighted->True], Cell[StyleData["SelectionPlaceholder", "Presentation"]], Cell[StyleData["SelectionPlaceholder", "Condensed"]], Cell[StyleData["SelectionPlaceholder", "Printout"]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["FormatType Styles", "Section"], Cell["\<\ The cells below define styles that are mixed in with the styles \ of most cells. If a cell's FormatType matches the name of one of the styles \ defined below, then that style is applied between the cell's style and its \ own options. This is particularly true of Input and Output.\ \>", "Text"], Cell[StyleData["CellExpression"], PageWidth->Infinity, CellMargins->{{6, Inherited}, {Inherited, Inherited}}, ShowCellLabel->False, ShowSpecialCharacters->False, AllowInlineCells->False, AutoItalicWords->{}, StyleMenuListing->None, FontFamily->"Courier", FontSize->12, Background->GrayLevel[1]], Cell[StyleData["InputForm"], AllowInlineCells->False, StyleMenuListing->None, FontFamily->"Courier"], Cell[StyleData["OutputForm"], PageWidth->Infinity, TextAlignment->Left, LineSpacing->{0.6, 1}, StyleMenuListing->None, FontFamily->"Courier"], Cell[StyleData["StandardForm"], LineSpacing->{1.25, 0}, StyleMenuListing->None, FontFamily->"Courier"], Cell[StyleData["TraditionalForm"], LineSpacing->{1.25, 0}, SingleLetterItalics->True, TraditionalFunctionNotation->True, DelimiterMatching->None, StyleMenuListing->None], Cell["\<\ The style defined below is mixed in to any cell that is in an \ inline cell within another.\ \>", "Text"], Cell[StyleData["InlineCell"], TextAlignment->Left, ScriptLevel->1, StyleMenuListing->None], Cell[StyleData["InlineCellEditing"], StyleMenuListing->None, Background->RGBColor[1, 0.749996, 0.8]] }, Closed]] }, Open ]] }], MacintoshSystemPageSetup->"\<\ 00<0001804P000000]P2:?oQon82n@960dL5:0?l0080001804P000000]P2:001 0000I00000400`<300000BL?00400@00000000000000060001T1T00000000000 00000000000000000000000000000000\>" ] (*********************************************************************** Cached data follows. If you edit this Notebook file directly, not using Mathematica, you must remove the line containing CacheID at the top of the file. The cache data will then be recreated when you save this file from within Mathematica. ***********************************************************************) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[1731, 51, 82, 2, 70, "Title", Evaluatable->False], Cell[1816, 55, 169, 4, 70, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[2008, 61, 97, 2, 70, "Subsection", Evaluatable->False], Cell[2108, 65, 352, 6, 70, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[2483, 73, 72, 1, 70, "Input"], Cell[2558, 76, 1196, 92, 70, 1039, 87, "GraphicsData", "PostScript", "Graphics", Evaluatable->False] }, Open ]], Cell[CellGroupData[{ Cell[3786, 170, 89, 2, 70, "Subsubsection", Evaluatable->False], Cell[3878, 174, 122, 2, 70, "Text", Evaluatable->False], Cell[4003, 178, 104, 2, 70, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[4130, 182, 64, 1, 70, "Input"], Cell[4197, 185, 106, 6, 70, "Output", Evaluatable->False] }, Open ]], Cell[4315, 193, 111, 2, 70, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[4449, 197, 61, 1, 70, "Input"], Cell[4513, 200, 126, 6, 70, "Output", Evaluatable->False] }, Open ]], Cell[4651, 208, 149, 3, 70, "Text", Evaluatable->False, PageBreakBelow->False], Cell[CellGroupData[{ Cell[4823, 213, 72, 1, 70, "Input"], Cell[4898, 216, 1230, 95, 70, 1073, 90, "GraphicsData", "PostScript", "Graphics", Evaluatable->False] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[6178, 313, 96, 2, 70, "Subsection", Evaluatable->False], Cell[6277, 317, 417, 7, 70, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[6717, 326, 218, 4, 70, "Input"], Cell[6938, 332, 7926, 1023, 70, 7768, 1018, "GraphicsData", "PostScript", "Graphics", Evaluatable->False] }, Open ]], Cell[CellGroupData[{ Cell[14896, 1357, 89, 2, 70, "Subsubsection", Evaluatable->False], Cell[14988, 1361, 68, 1, 70, "Input"], Cell[15059, 1364, 80, 1, 70, "Input"], Cell[15142, 1367, 187, 4, 70, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[15352, 1373, 86, 1, 70, "Input"], Cell[15441, 1376, 104, 6, 70, "Output", Evaluatable->False] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[15586, 1384, 94, 2, 70, "Subsubsection", Evaluatable->False], Cell[15683, 1388, 294, 5, 70, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[16000, 1395, 141, 3, 70, "Input"], Cell[16144, 1400, 4995, 456, 70, 4837, 451, "GraphicsData", "PostScript", "Graphics", Evaluatable->False] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[21180, 1858, 108, 2, 70, "Subsubsection", Evaluatable->False], Cell[21291, 1862, 199, 4, 70, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[21513, 1868, 102, 2, 70, "Input"], Cell[CellGroupData[{ Cell[21638, 1872, 2939, 215, 70, 2781, 210, "GraphicsData", "PostScript", "Graphics", Evaluatable->False], Cell[24580, 2089, 2953, 215, 70, 2795, 210, "GraphicsData", "PostScript", "Graphics", Evaluatable->False], Cell[27536, 2306, 2951, 215, 70, 2793, 210, "GraphicsData", "PostScript", "Graphics", Evaluatable->False], Cell[30490, 2523, 2953, 215, 70, 2795, 210, "GraphicsData", "PostScript", "Graphics", Evaluatable->False], Cell[33446, 2740, 2939, 215, 70, 2781, 210, "GraphicsData", "PostScript", "Graphics", Evaluatable->False], Cell[36388, 2957, 2953, 215, 70, 2795, 210, "GraphicsData", "PostScript", "Graphics", Evaluatable->False], Cell[39344, 3174, 2951, 215, 70, 2793, 210, "GraphicsData", "PostScript", "Graphics", Evaluatable->False], Cell[42298, 3391, 2953, 215, 70, 2795, 210, "GraphicsData", "PostScript", "Graphics", Evaluatable->False], Cell[45254, 3608, 2939, 215, 70, 2781, 210, "GraphicsData", "PostScript", "Graphics", Evaluatable->False], Cell[48196, 3825, 2953, 215, 70, 2795, 210, "GraphicsData", "PostScript", "Graphics", Evaluatable->False], Cell[51152, 4042, 2951, 215, 70, 2793, 210, "GraphicsData", "PostScript", "Graphics", Evaluatable->False], Cell[54106, 4259, 2953, 215, 70, 2795, 210, "GraphicsData", "PostScript", "Graphics", Evaluatable->False], Cell[57062, 4476, 2939, 215, 70, 2781, 210, "GraphicsData", "PostScript", "Graphics", Evaluatable->False], Cell[60004, 4693, 2953, 215, 70, 2795, 210, "GraphicsData", "PostScript", "Graphics", Evaluatable->False], Cell[62960, 4910, 2951, 215, 70, 2793, 210, "GraphicsData", "PostScript", "Graphics", Evaluatable->False], Cell[65914, 5127, 2953, 215, 70, 2795, 210, "GraphicsData", "PostScript", "Graphics", Evaluatable->False] }, Closed]] }, Closed]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[68926, 5344, 97, 2, 70, "Subsection", Evaluatable->False], Cell[69026, 5348, 362, 6, 70, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[69411, 5356, 268, 4, 70, "Input"], Cell[69682, 5362, 2011, 145, 70, 1853, 140, "GraphicsData", "PostScript", "Graphics", Evaluatable->False] }, Open ]], Cell[CellGroupData[{ Cell[71725, 5509, 88, 2, 70, "Subsubsection", Evaluatable->False], Cell[71816, 5513, 244, 5, 70, "Text", Evaluatable->False] }, Open ]], Cell[CellGroupData[{ Cell[72092, 5520, 203, 6, 70, "Subsubsection", Evaluatable->False, PageBreakAbove->True, PageBreakWithin->Automatic, PageBreakBelow->Automatic], Cell[72298, 5528, 361, 7, 70, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[72682, 5537, 152, 4, 70, "Input", PageBreakWithin->Automatic], Cell[72837, 5543, 201, 9, 70, "Output", Evaluatable->False, PageBreakWithin->Automatic] }, Open ]], Cell[73050, 5554, 157, 3, 70, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[73230, 5559, 148, 3, 70, "Input", PageBreakWithin->Automatic], Cell[73381, 5564, 171, 9, 70, "Output", Evaluatable->False, PageBreakWithin->Automatic] }, Open ]], Cell[73564, 5575, 160, 4, 70, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[73747, 5581, 137, 3, 70, "Input", PageBreakWithin->Automatic], Cell[73887, 5586, 181, 9, 70, "Output", Evaluatable->False, PageBreakWithin->Automatic], Cell[74071, 5597, 233, 10, 70, "Output", Evaluatable->False, PageBreakWithin->Automatic] }, Open ]], Cell[74316, 5609, 316, 6, 70, "Text", Evaluatable->False, PageBreakAbove->True], Cell[CellGroupData[{ Cell[74655, 5617, 109, 2, 70, "Input", PageBreakWithin->Automatic], Cell[74767, 5621, 5899, 577, 70, 5711, 571, "GraphicsData", "PostScript", "Graphics", Evaluatable->False, PageBreakWithin->Automatic] }, Open ]], Cell[CellGroupData[{ Cell[80698, 6200, 111, 2, 70, "Input", PageBreakWithin->Automatic], Cell[80812, 6204, 226, 10, 70, "Output", Evaluatable->False, PageBreakWithin->Automatic] }, Open ]], Cell[81050, 6216, 183, 5, 70, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[81256, 6223, 100, 2, 70, "Input", PageBreakWithin->Automatic], Cell[81359, 6227, 134, 7, 70, "Output", Evaluatable->False, PageBreakWithin->Automatic] }, Open ]], Cell[CellGroupData[{ Cell[81525, 6236, 133, 2, 70, "Input", PageBreakWithin->Automatic], Cell[81661, 6240, 206, 8, 70, "Output", Evaluatable->False, PageBreakWithin->Automatic] }, Open ]], Cell[81879, 6250, 167, 5, 70, "Text", Evaluatable->False, PageBreakAbove->True], Cell[CellGroupData[{ Cell[82069, 6257, 108, 2, 70, "Input", PageBreakWithin->Automatic], Cell[82180, 6261, 1364, 84, 70, 1176, 78, "GraphicsData", "PostScript", "Graphics", Evaluatable->False, PageBreakWithin->Automatic] }, Open ]], Cell[83556, 6347, 223, 5, 70, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[83802, 6354, 240, 5, 70, "Input", PageBreakWithin->Automatic], Cell[CellGroupData[{ Cell[84065, 6361, 1364, 84, 70, 1176, 78, "GraphicsData", "PostScript", "Graphics", Evaluatable->False, PageBreakWithin->Automatic], Cell[85432, 6447, 1364, 84, 70, 1176, 78, "GraphicsData", "PostScript", "Graphics", Evaluatable->False, PageBreakWithin->Automatic], Cell[86799, 6533, 1364, 84, 70, 1176, 78, "GraphicsData", "PostScript", "Graphics", Evaluatable->False, PageBreakWithin->Automatic], Cell[88166, 6619, 1364, 84, 70, 1176, 78, "GraphicsData", "PostScript", "Graphics", Evaluatable->False, PageBreakWithin->Automatic], Cell[89533, 6705, 1364, 84, 70, 1176, 78, "GraphicsData", "PostScript", "Graphics", Evaluatable->False, PageBreakWithin->Automatic], Cell[90900, 6791, 1364, 84, 70, 1176, 78, "GraphicsData", "PostScript", "Graphics", Evaluatable->False, PageBreakWithin->Automatic], Cell[92267, 6877, 1364, 84, 70, 1176, 78, "GraphicsData", "PostScript", "Graphics", Evaluatable->False, PageBreakWithin->Automatic], Cell[93634, 6963, 1363, 84, 70, 1175, 78, "GraphicsData", "PostScript", "Graphics", Evaluatable->False, PageBreakWithin->Automatic], Cell[95000, 7049, 1364, 84, 70, 1176, 78, "GraphicsData", "PostScript", "Graphics", Evaluatable->False, PageBreakWithin->Automatic] }, Closed]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[96423, 7135, 165, 5, 70, "Subsection", Evaluatable->False, PageBreakAbove->True], Cell[96591, 7142, 184, 4, 70, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[96798, 7148, 445, 8, 70, "Input", PageBreakWithin->Automatic], Cell[97246, 7158, 10134, 698, 70, 9976, 693, "GraphicsData", "PostScript", "Graphics", Evaluatable->False] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[107421, 7858, 115, 3, 70, "Section", Evaluatable->False, PageBreakAbove->True], Cell[CellGroupData[{ Cell[107559, 7863, 91, 2, 70, "Subsection", Evaluatable->False], Cell[107653, 7867, 369, 6, 70, "Input", InitializationCell->True] }, Open ]], Cell[CellGroupData[{ Cell[108054, 7875, 109, 2, 70, "Subsection", Evaluatable->False], Cell[108166, 7879, 535, 9, 70, "Input", InitializationCell->True], Cell[108704, 7890, 441, 7, 70, "Input", InitializationCell->True] }, Open ]], Cell[CellGroupData[{ Cell[109177, 7899, 401, 14, 70, "Subsection", Evaluatable->False], Cell[109581, 7915, 163, 4, 70, "Input", InitializationCell->True], Cell[109747, 7921, 135, 3, 70, "Input", InitializationCell->True], Cell[109885, 7926, 680, 11, 70, "Input", InitializationCell->True], Cell[110568, 7939, 412, 7, 70, "Input", InitializationCell->True], Cell[110983, 7948, 453, 7, 70, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[111459, 7957, 278, 6, 70, "Input", InitializationCell->True], Cell[111740, 7965, 830, 29, 70, "Output", Evaluatable->False] }, Open ]], Cell[112582, 7996, 212, 4, 70, "Input", InitializationCell->True], Cell[112797, 8002, 376, 7, 70, "Input", InitializationCell->True] }, Open ]] }, Open ]] }, Open ]] } ] *) (*********************************************************************** End of Mathematica Notebook file. ***********************************************************************)