(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 6.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 30975, 1553] NotebookOptionsPosition[ 30094, 1522] NotebookOutlinePosition[ 30434, 1537] CellTagsIndexPosition[ 30391, 1534] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Project- Snowflake", "Title"], Cell["\<\ The Koch Snowflake is a mathematical object constructed as follows:\ \>", "Text"], Cell[TextData[{ StyleBox["Step 0:", FontWeight->"Bold"], " Start with an equilateral triangle with sides of length 1:" }], "Text"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .86603 %%ImageSize: 200 173.205 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 0.952381 0.295548 0.952381 [ [ 0 0 0 0 ] [ 1 .86603 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .86603 L 0 .86603 L closepath clip newpath 0 g .5 Mabswid [ ] 0 setdash .5 .84541 m .97619 .02062 L .02381 .02062 L .5 .84541 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{200, 173.188}, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJydme8vlXEYh2/zI0KIEOIgRAgRIoQIIUKIdJxZrJlCa6211lprrbXWWmut tdZaa61Za621XvXWf6VzdnvR2qXa52ycs+u6dh/bOZ7n+3yfweD64sJycH0p FAz0rgavLi6F1gI9K6thFB1lZpvhn42ARV5vhV9u/9rcCj/Ckp5iIk8/I12s A3+KjpCt7Yf9ABYj5XGgvgOLlfJdoL4Bi5PyeFBfgflYSwD1BVi8lO8G9RlY gpQngtoA5mMtCdQnYIlSngzqI7AkKd8D6gOwZClPAfUemI+1VFDvgKVIeRqo t8BSpXwvqDfA0qQ8HdRrYD7WMkC9ApYu5ftAvQSWIeWZoF4A87GWBeo5sEwp zwb1DFiWlO8H9RRYtpTngHoCzMdaLqjHwHKkPA/UI2C5Un4A1ENgeVKeD+oB MB9rBaDuA8uX8gCoe8AKpLwQ1F1gPtaKQN0BVijlxaBuAyuS8oOgbgErlvIS UDeB+VgrBXUDWImUl4G6DqxUyg+BWgNWJuXloK4B87FWAWoFWLmUHwa1DKxC yitBXQHmY60K1BKwSimvBnUZWJWUHwG1AKxaymtAhYD5WKsFFQRWI+V1oOaA 1Ur5UVCzwOp2zmeAeWf1oC7snDeAmgJWL+XHQJ0H1iDljaDGgflYawJ1Dlij lDeDGgHWJOXHQQ0Da5byFlCDwHystYIaANYi5SdA9QFrlfI2UL3AfKy1gzoF rE3KO0B1AWuX8pOgiHVIeeeOb0wj8O+kj65TyrtB0Ze6S8rpE6T/324p7wFF RzYfi19WOir3SPlpUHQC6pVy+r+kU7OPtX5QtKzok3I6BNGCq1/Kz4CiteWA lNPBmVbdPtaGQNEVw6CU04mFrqWGpPwsKLpsHJZyOuXSBbWPtVFQBcBGpJxW F7TvMSrlY6BoR8jH4kKKdrPGpHwCFO3zjUs5rRlpS3NCyidB0Wavj8XlMW1U T0r5NCjawp+ScrpwoLsV01JOVzF0H8fH4jUS3YOakfKLoOh226yUz4GiG5E+ 1i6BigY2J+XB7bf/TbkPP+b/O5n/4w0iKvRPRdf02wP/dtPXon4Bmtin9Q== \ \>"], ImageRangeCache->{{{0, 199}, {172.188, 0}} -> {-0.52547, -0.31033, \ 0.00528111, 0.00528111}}], Cell[TextData[{ StyleBox["Step 1:", FontWeight->"Bold"], " Break each side of the figure into three equal segments, on the middle of \ these three segments place an equilateral triangle, and then delete the \ middle segment. We will call the result ", StyleBox["snowflake[1]", FontWeight->"Bold", FontVariations->{"CompatibilityType"->0}], StyleBox[".", FontWeight->"Bold"] }], "Text"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: 1.1547 %%ImageSize: 200 230.94 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 0.952381 0.57735 0.952381 [ [ 0 0 0 0 ] [ 1 1.1547 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 1.1547 L 0 1.1547 L closepath clip newpath 0 g .5 Mabswid [ ] 0 setdash .5 1.12721 m .65873 .85228 L .97619 .85228 L .81746 .57735 L .97619 .30242 L .65873 .30242 L .5 .02749 L .34127 .30242 L .02381 .30242 L .18254 .57735 L .02381 .85228 L .34127 .85228 L .5 1.12721 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{200, 230.938}, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJy9mltLlFEUhj/xkKamqWlqOqMWERERERFdFKTjcTyfz+MQ6EUU5l1ERERE RERERERERERERET0D/wl/Y1pxi0S8TC5XlwN6Dc878NmGJ351t5rJVMbq1ev pTbW0ql493rqxupa+mY8cX09iwoLoijazP78ike555ns0+1fm5nsIxvmuaS3 LoU5P7P9iFZCtPJXlFsy/c8otXUp/nPBHWVl18oyvKxCYEuSvgRRMbDFoC9C tA/YgqQvQFQGbF7S5yEqBzYX9DmIKoHNSvosRFXAZiR9BqKDwKYlfRqiWmBT QZ+C6BCwSUmfhKgB2ISkT0DUCGw86OMQNQMbk/QxiFqAjUr6KEQxYCOSPgJR G7DhoA9D1AFsSNKHIDoGbFDSByE6DiwZ9CREJ4ANSPoARCeB9Ut6P0SngPVJ eh9Ep4H1Br0XojPAeiS9B6KzwLolvRuic8ASQU9AdB5Yl6R3QXQBWKekd0J0 EdgVSS/KXS7nkks7z0I9g2XNT2BFkl4C0Q9gxZJORdN3YCWSXgrRN2BhWayx vgIrlfT9EH0BVibpVPB9BhaWjSog+gSsXNKpPvwIrELSD0D0AVilpFP1+R5Y WDaqhugdsCpJp2L1LbBqSa+B6A2wsCyWwq+B1Uh6HUSvgNVKOhXaL4HVSXo9 RC+AhWWxLn8OrF7SD0P0DFiDpNMm4SmwsGzUBNETYI2STnuKx8CaJP0IRI+A NUs67VgeAgvLRq0QPQDWIukxiO4Da5X0OET3gIVlcft0F1hc0tshugOsTdJp c3YbWLukH4XoFrCO//FifN9I41/V+C9m1GMQ7d3Hw/hZNX5xGHXfLz3fL2zj 3cN4KzPqvrdhY01gLFCMum9xZaz0fKtUY8ls1I31u+/ew7gRMurGXZnvjtJ3 N2zcmht14zmB7xmH8cDFqBtPf3xPrnxP3fIc9/meM/qekfqe7xoPm31Pvn1P 7Y0tBN9+hm8vxrePZGxq+XbYfLuDxlalb9/Ut+fr2682Ns99O/m+UwjGkQjf +Qzf2RLfuRjjkI7vxJDvtNMSRHlGr5Yh2rs5sL2ZVdPm5PIM3u1ibC8q+A3+ tgDt\ \>"], ImageRangeCache->{{{0, 199}, {229.938, 0}} -> {-0.525005, -0.606625, \ 0.00527643, 0.00527643}}], Cell[TextData[{ StyleBox["S", FontWeight->"Bold"], StyleBox["tep n:", FontWeight->"Bold", FontVariations->{"CompatibilityType"->0}], StyleBox[" Apply the procedure of Step 1 to", FontVariations->{"CompatibilityType"->0}], StyleBox[" snowflake[", FontWeight->"Bold", FontVariations->{"CompatibilityType"->0}], StyleBox["n", FontWeight->"Bold", FontSlant->"Italic", FontVariations->{"CompatibilityType"->0}], StyleBox["-1] ", FontWeight->"Bold", FontVariations->{"CompatibilityType"->0}], StyleBox["to make ", FontVariations->{"CompatibilityType"->0}], StyleBox["snowflake[", FontWeight->"Bold", FontVariations->{"CompatibilityType"->0}], StyleBox["n", FontWeight->"Bold", FontSlant->"Italic", FontVariations->{"CompatibilityType"->0}], StyleBox["]", FontWeight->"Bold", FontVariations->{"CompatibilityType"->0}], StyleBox[".", FontVariations->{"CompatibilityType"->0}] }], "Text"], Cell[TextData[{ "Here are ", StyleBox["snowflake[2]", FontVariations->{"CompatibilityType"->0}], StyleBox[", ", FontVariations->{"CompatibilityType"->0}], StyleBox["snowflake[3]", FontVariations->{"CompatibilityType"->0}], StyleBox[" and ", FontVariations->{"CompatibilityType"->0}], StyleBox["snowflake[4]", FontVariations->{"CompatibilityType"->0}], StyleBox[":", FontWeight->"Bold"] }], "Text"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .36084 %%ImageSize: 500 180.422 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.0238095 0.31746 0.00859152 0.31746 [ [ 0 0 0 0 ] [ 1 .36084 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .36084 L 0 .36084 L closepath clip newpath % Start of sub-graphic p 0.0238095 0.00859152 0.321429 0.352252 MathSubStart %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 0.952381 0.57735 0.952381 [ [ 0 0 0 0 ] [ 1 1.1547 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 1.1547 L 0 1.1547 L closepath clip newpath 0 g .5 Mabswid [ ] 0 setdash .5 1.12721 m .55291 1.03556 L .65873 1.03556 L .60582 .94392 L .65873 .85228 L .76455 .85228 L .81746 .94392 L .87037 .85228 L .97619 .85228 L .92328 .76064 L .97619 .66899 L .87037 .66899 L .81746 .57735 L .87037 .48571 L .97619 .48571 L .92328 .39406 L .97619 .30242 L .87037 .30242 L .81746 .21078 L .76455 .30242 L .65873 .30242 L .60582 .21078 L .65873 .11914 L .55291 .11914 L .5 .02749 L .44709 .11914 L .34127 .11914 L .39418 .21078 L .34127 .30242 L .23545 .30242 L .18254 .21078 L .12963 .30242 L .02381 .30242 L .07672 .39406 L .02381 .48571 L .12963 .48571 L .18254 .57735 L .12963 .66899 L .02381 .66899 L .07672 .76064 L .02381 .85228 L .12963 .85228 L .18254 .94392 L .23545 .85228 L .34127 .85228 L .39418 .94392 L .34127 1.03556 L .44709 1.03556 L .5 1.12721 L s MathSubEnd P % End of sub-graphic % Start of sub-graphic p 0.35119 0.00859152 0.64881 0.352252 MathSubStart %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 0.952381 0.57735 0.952381 [ [ 0 0 0 0 ] [ 1 1.1547 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 1.1547 L 0 1.1547 L closepath clip newpath 0 g .5 Mabswid [ ] 0 setdash .5 1.12721 m .51764 1.09666 L .55291 1.09666 L .53527 1.06611 L .55291 1.03556 L .58818 1.03556 L .60582 1.06611 L .62346 1.03556 L .65873 1.03556 L .64109 1.00502 L .65873 .97447 L .62346 .97447 L .60582 .94392 L .62346 .91337 L .65873 .91337 L .64109 .88283 L .65873 .85228 L .694 .85228 L .71164 .88283 L .72928 .85228 L .76455 .85228 L .78219 .88283 L .76455 .91337 L .79982 .91337 L .81746 .94392 L .8351 .91337 L .87037 .91337 L .85273 .88283 L .87037 .85228 L .90564 .85228 L .92328 .88283 L .94092 .85228 L .97619 .85228 L .95855 .82173 L .97619 .79118 L .94092 .79118 L .92328 .76064 L .94092 .73009 L .97619 .73009 L .95855 .69954 L .97619 .66899 L .94092 .66899 L .92328 .63845 L .90564 .66899 L .87037 .66899 L .85273 .63845 L .87037 .6079 L .8351 .6079 L .81746 .57735 L .8351 .5468 L Mistroke .87037 .5468 L .85273 .51626 L .87037 .48571 L .90564 .48571 L .92328 .51626 L .94092 .48571 L .97619 .48571 L .95855 .45516 L .97619 .42461 L .94092 .42461 L .92328 .39406 L .94092 .36352 L .97619 .36352 L .95855 .33297 L .97619 .30242 L .94092 .30242 L .92328 .27187 L .90564 .30242 L .87037 .30242 L .85273 .27187 L .87037 .24133 L .8351 .24133 L .81746 .21078 L .79982 .24133 L .76455 .24133 L .78219 .27187 L .76455 .30242 L .72928 .30242 L .71164 .27187 L .694 .30242 L .65873 .30242 L .64109 .27187 L .65873 .24133 L .62346 .24133 L .60582 .21078 L .62346 .18023 L .65873 .18023 L .64109 .14968 L .65873 .11914 L .62346 .11914 L .60582 .08859 L .58818 .11914 L .55291 .11914 L .53527 .08859 L .55291 .05804 L .51764 .05804 L .5 .02749 L .48236 .05804 L .44709 .05804 L .46473 .08859 L Mistroke .44709 .11914 L .41182 .11914 L .39418 .08859 L .37654 .11914 L .34127 .11914 L .35891 .14968 L .34127 .18023 L .37654 .18023 L .39418 .21078 L .37654 .24133 L .34127 .24133 L .35891 .27187 L .34127 .30242 L .306 .30242 L .28836 .27187 L .27072 .30242 L .23545 .30242 L .21781 .27187 L .23545 .24133 L .20018 .24133 L .18254 .21078 L .1649 .24133 L .12963 .24133 L .14727 .27187 L .12963 .30242 L .09436 .30242 L .07672 .27187 L .05908 .30242 L .02381 .30242 L .04145 .33297 L .02381 .36352 L .05908 .36352 L .07672 .39406 L .05908 .42461 L .02381 .42461 L .04145 .45516 L .02381 .48571 L .05908 .48571 L .07672 .51626 L .09436 .48571 L .12963 .48571 L .14727 .51626 L .12963 .5468 L .1649 .5468 L .18254 .57735 L .1649 .6079 L .12963 .6079 L .14727 .63845 L .12963 .66899 L .09436 .66899 L Mistroke .07672 .63845 L .05908 .66899 L .02381 .66899 L .04145 .69954 L .02381 .73009 L .05908 .73009 L .07672 .76064 L .05908 .79118 L .02381 .79118 L .04145 .82173 L .02381 .85228 L .05908 .85228 L .07672 .88283 L .09436 .85228 L .12963 .85228 L .14727 .88283 L .12963 .91337 L .1649 .91337 L .18254 .94392 L .20018 .91337 L .23545 .91337 L .21781 .88283 L .23545 .85228 L .27072 .85228 L .28836 .88283 L .306 .85228 L .34127 .85228 L .35891 .88283 L .34127 .91337 L .37654 .91337 L .39418 .94392 L .37654 .97447 L .34127 .97447 L .35891 1.00502 L .34127 1.03556 L .37654 1.03556 L .39418 1.06611 L .41182 1.03556 L .44709 1.03556 L .46473 1.06611 L .44709 1.09666 L .48236 1.09666 L .5 1.12721 L Mfstroke MathSubEnd P % End of sub-graphic % Start of sub-graphic p 0.678571 0.00859152 0.97619 0.352252 MathSubStart %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 0.952381 0.57735 0.952381 [ [ 0 0 0 0 ] [ 1 1.1547 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 1.1547 L 0 1.1547 L closepath clip newpath 0 g .5 Mabswid [ ] 0 setdash .5 1.12721 m .50588 1.11703 L .51764 1.11703 L .51176 1.10684 L .51764 1.09666 L .52939 1.09666 L .53527 1.10684 L .54115 1.09666 L .55291 1.09666 L .54703 1.08648 L .55291 1.07629 L .54115 1.07629 L .53527 1.06611 L .54115 1.05593 L .55291 1.05593 L .54703 1.04575 L .55291 1.03556 L .56467 1.03556 L .57055 1.04575 L .57643 1.03556 L .58818 1.03556 L .59406 1.04575 L .58818 1.05593 L .59994 1.05593 L .60582 1.06611 L .6117 1.05593 L .62346 1.05593 L .61758 1.04575 L .62346 1.03556 L .63521 1.03556 L .64109 1.04575 L .64697 1.03556 L .65873 1.03556 L .65285 1.02538 L .65873 1.0152 L .64697 1.0152 L .64109 1.00502 L .64697 .99483 L .65873 .99483 L .65285 .98465 L .65873 .97447 L .64697 .97447 L .64109 .96429 L .63521 .97447 L .62346 .97447 L .61758 .96429 L .62346 .9541 L .6117 .9541 L .60582 .94392 L .6117 .93374 L Mistroke .62346 .93374 L .61758 .92356 L .62346 .91337 L .63521 .91337 L .64109 .92356 L .64697 .91337 L .65873 .91337 L .65285 .90319 L .65873 .89301 L .64697 .89301 L .64109 .88283 L .64697 .87264 L .65873 .87264 L .65285 .86246 L .65873 .85228 L .67049 .85228 L .67637 .86246 L .68225 .85228 L .694 .85228 L .69988 .86246 L .694 .87264 L .70576 .87264 L .71164 .88283 L .71752 .87264 L .72928 .87264 L .7234 .86246 L .72928 .85228 L .74103 .85228 L .74691 .86246 L .75279 .85228 L .76455 .85228 L .77043 .86246 L .76455 .87264 L .77631 .87264 L .78219 .88283 L .77631 .89301 L .76455 .89301 L .77043 .90319 L .76455 .91337 L .77631 .91337 L .78219 .92356 L .78807 .91337 L .79982 .91337 L .8057 .92356 L .79982 .93374 L .81158 .93374 L .81746 .94392 L .82334 .93374 L .8351 .93374 L .82922 .92356 L Mistroke .8351 .91337 L .84685 .91337 L .85273 .92356 L .85861 .91337 L .87037 .91337 L .86449 .90319 L .87037 .89301 L .85861 .89301 L .85273 .88283 L .85861 .87264 L .87037 .87264 L .86449 .86246 L .87037 .85228 L .88213 .85228 L .88801 .86246 L .89389 .85228 L .90564 .85228 L .91152 .86246 L .90564 .87264 L .9174 .87264 L .92328 .88283 L .92916 .87264 L .94092 .87264 L .93504 .86246 L .94092 .85228 L .95267 .85228 L .95855 .86246 L .96443 .85228 L .97619 .85228 L .97031 .8421 L .97619 .83191 L .96443 .83191 L .95855 .82173 L .96443 .81155 L .97619 .81155 L .97031 .80137 L .97619 .79118 L .96443 .79118 L .95855 .781 L .95267 .79118 L .94092 .79118 L .93504 .781 L .94092 .77082 L .92916 .77082 L .92328 .76064 L .92916 .75045 L .94092 .75045 L .93504 .74027 L .94092 .73009 L .95267 .73009 L Mistroke .95855 .74027 L .96443 .73009 L .97619 .73009 L .97031 .71991 L .97619 .70972 L .96443 .70972 L .95855 .69954 L .96443 .68936 L .97619 .68936 L .97031 .67918 L .97619 .66899 L .96443 .66899 L .95855 .65881 L .95267 .66899 L .94092 .66899 L .93504 .65881 L .94092 .64863 L .92916 .64863 L .92328 .63845 L .9174 .64863 L .90564 .64863 L .91152 .65881 L .90564 .66899 L .89389 .66899 L .88801 .65881 L .88213 .66899 L .87037 .66899 L .86449 .65881 L .87037 .64863 L .85861 .64863 L .85273 .63845 L .85861 .62826 L .87037 .62826 L .86449 .61808 L .87037 .6079 L .85861 .6079 L .85273 .59772 L .84685 .6079 L .8351 .6079 L .82922 .59772 L .8351 .58753 L .82334 .58753 L .81746 .57735 L .82334 .56717 L .8351 .56717 L .82922 .55699 L .8351 .5468 L .84685 .5468 L .85273 .55699 L .85861 .5468 L Mistroke .87037 .5468 L .86449 .53662 L .87037 .52644 L .85861 .52644 L .85273 .51626 L .85861 .50607 L .87037 .50607 L .86449 .49589 L .87037 .48571 L .88213 .48571 L .88801 .49589 L .89389 .48571 L .90564 .48571 L .91152 .49589 L .90564 .50607 L .9174 .50607 L .92328 .51626 L .92916 .50607 L .94092 .50607 L .93504 .49589 L .94092 .48571 L .95267 .48571 L .95855 .49589 L .96443 .48571 L .97619 .48571 L .97031 .47552 L .97619 .46534 L .96443 .46534 L .95855 .45516 L .96443 .44498 L .97619 .44498 L .97031 .43479 L .97619 .42461 L .96443 .42461 L .95855 .41443 L .95267 .42461 L .94092 .42461 L .93504 .41443 L .94092 .40425 L .92916 .40425 L .92328 .39406 L .92916 .38388 L .94092 .38388 L .93504 .3737 L .94092 .36352 L .95267 .36352 L .95855 .3737 L .96443 .36352 L .97619 .36352 L .97031 .35333 L Mistroke .97619 .34315 L .96443 .34315 L .95855 .33297 L .96443 .32279 L .97619 .32279 L .97031 .3126 L .97619 .30242 L .96443 .30242 L .95855 .29224 L .95267 .30242 L .94092 .30242 L .93504 .29224 L .94092 .28206 L .92916 .28206 L .92328 .27187 L .9174 .28206 L .90564 .28206 L .91152 .29224 L .90564 .30242 L .89389 .30242 L .88801 .29224 L .88213 .30242 L .87037 .30242 L .86449 .29224 L .87037 .28206 L .85861 .28206 L .85273 .27187 L .85861 .26169 L .87037 .26169 L .86449 .25151 L .87037 .24133 L .85861 .24133 L .85273 .23114 L .84685 .24133 L .8351 .24133 L .82922 .23114 L .8351 .22096 L .82334 .22096 L .81746 .21078 L .81158 .22096 L .79982 .22096 L .8057 .23114 L .79982 .24133 L .78807 .24133 L .78219 .23114 L .77631 .24133 L .76455 .24133 L .77043 .25151 L .76455 .26169 L .77631 .26169 L Mistroke .78219 .27187 L .77631 .28206 L .76455 .28206 L .77043 .29224 L .76455 .30242 L .75279 .30242 L .74691 .29224 L .74103 .30242 L .72928 .30242 L .7234 .29224 L .72928 .28206 L .71752 .28206 L .71164 .27187 L .70576 .28206 L .694 .28206 L .69988 .29224 L .694 .30242 L .68225 .30242 L .67637 .29224 L .67049 .30242 L .65873 .30242 L .65285 .29224 L .65873 .28206 L .64697 .28206 L .64109 .27187 L .64697 .26169 L .65873 .26169 L .65285 .25151 L .65873 .24133 L .64697 .24133 L .64109 .23114 L .63521 .24133 L .62346 .24133 L .61758 .23114 L .62346 .22096 L .6117 .22096 L .60582 .21078 L .6117 .2006 L .62346 .2006 L .61758 .19041 L .62346 .18023 L .63521 .18023 L .64109 .19041 L .64697 .18023 L .65873 .18023 L .65285 .17005 L .65873 .15987 L .64697 .15987 L .64109 .14968 L .64697 .1395 L Mistroke .65873 .1395 L .65285 .12932 L .65873 .11914 L .64697 .11914 L .64109 .10895 L .63521 .11914 L .62346 .11914 L .61758 .10895 L .62346 .09877 L .6117 .09877 L .60582 .08859 L .59994 .09877 L .58818 .09877 L .59406 .10895 L .58818 .11914 L .57643 .11914 L .57055 .10895 L .56467 .11914 L .55291 .11914 L .54703 .10895 L .55291 .09877 L .54115 .09877 L .53527 .08859 L .54115 .07841 L .55291 .07841 L .54703 .06822 L .55291 .05804 L .54115 .05804 L .53527 .04786 L .52939 .05804 L .51764 .05804 L .51176 .04786 L .51764 .03768 L .50588 .03768 L .5 .02749 L .49412 .03768 L .48236 .03768 L .48824 .04786 L .48236 .05804 L .47061 .05804 L .46473 .04786 L .45885 .05804 L .44709 .05804 L .45297 .06822 L .44709 .07841 L .45885 .07841 L .46473 .08859 L .45885 .09877 L .44709 .09877 L .45297 .10895 L Mistroke .44709 .11914 L .43533 .11914 L .42945 .10895 L .42357 .11914 L .41182 .11914 L .40594 .10895 L .41182 .09877 L .40006 .09877 L .39418 .08859 L .3883 .09877 L .37654 .09877 L .38242 .10895 L .37654 .11914 L .36479 .11914 L .35891 .10895 L .35303 .11914 L .34127 .11914 L .34715 .12932 L .34127 .1395 L .35303 .1395 L .35891 .14968 L .35303 .15987 L .34127 .15987 L .34715 .17005 L .34127 .18023 L .35303 .18023 L .35891 .19041 L .36479 .18023 L .37654 .18023 L .38242 .19041 L .37654 .2006 L .3883 .2006 L .39418 .21078 L .3883 .22096 L .37654 .22096 L .38242 .23114 L .37654 .24133 L .36479 .24133 L .35891 .23114 L .35303 .24133 L .34127 .24133 L .34715 .25151 L .34127 .26169 L .35303 .26169 L .35891 .27187 L .35303 .28206 L .34127 .28206 L .34715 .29224 L .34127 .30242 L .32951 .30242 L Mistroke .32363 .29224 L .31775 .30242 L .306 .30242 L .30012 .29224 L .306 .28206 L .29424 .28206 L .28836 .27187 L .28248 .28206 L .27072 .28206 L .2766 .29224 L .27072 .30242 L .25897 .30242 L .25309 .29224 L .24721 .30242 L .23545 .30242 L .22957 .29224 L .23545 .28206 L .22369 .28206 L .21781 .27187 L .22369 .26169 L .23545 .26169 L .22957 .25151 L .23545 .24133 L .22369 .24133 L .21781 .23114 L .21193 .24133 L .20018 .24133 L .1943 .23114 L .20018 .22096 L .18842 .22096 L .18254 .21078 L .17666 .22096 L .1649 .22096 L .17078 .23114 L .1649 .24133 L .15315 .24133 L .14727 .23114 L .14139 .24133 L .12963 .24133 L .13551 .25151 L .12963 .26169 L .14139 .26169 L .14727 .27187 L .14139 .28206 L .12963 .28206 L .13551 .29224 L .12963 .30242 L .11787 .30242 L .11199 .29224 L .10611 .30242 L Mistroke .09436 .30242 L .08848 .29224 L .09436 .28206 L .0826 .28206 L .07672 .27187 L .07084 .28206 L .05908 .28206 L .06496 .29224 L .05908 .30242 L .04733 .30242 L .04145 .29224 L .03557 .30242 L .02381 .30242 L .02969 .3126 L .02381 .32279 L .03557 .32279 L .04145 .33297 L .03557 .34315 L .02381 .34315 L .02969 .35333 L .02381 .36352 L .03557 .36352 L .04145 .3737 L .04733 .36352 L .05908 .36352 L .06496 .3737 L .05908 .38388 L .07084 .38388 L .07672 .39406 L .07084 .40425 L .05908 .40425 L .06496 .41443 L .05908 .42461 L .04733 .42461 L .04145 .41443 L .03557 .42461 L .02381 .42461 L .02969 .43479 L .02381 .44498 L .03557 .44498 L .04145 .45516 L .03557 .46534 L .02381 .46534 L .02969 .47552 L .02381 .48571 L .03557 .48571 L .04145 .49589 L .04733 .48571 L .05908 .48571 L .06496 .49589 L Mistroke .05908 .50607 L .07084 .50607 L .07672 .51626 L .0826 .50607 L .09436 .50607 L .08848 .49589 L .09436 .48571 L .10611 .48571 L .11199 .49589 L .11787 .48571 L .12963 .48571 L .13551 .49589 L .12963 .50607 L .14139 .50607 L .14727 .51626 L .14139 .52644 L .12963 .52644 L .13551 .53662 L .12963 .5468 L .14139 .5468 L .14727 .55699 L .15315 .5468 L .1649 .5468 L .17078 .55699 L .1649 .56717 L .17666 .56717 L .18254 .57735 L .17666 .58753 L .1649 .58753 L .17078 .59772 L .1649 .6079 L .15315 .6079 L .14727 .59772 L .14139 .6079 L .12963 .6079 L .13551 .61808 L .12963 .62826 L .14139 .62826 L .14727 .63845 L .14139 .64863 L .12963 .64863 L .13551 .65881 L .12963 .66899 L .11787 .66899 L .11199 .65881 L .10611 .66899 L .09436 .66899 L .08848 .65881 L .09436 .64863 L .0826 .64863 L Mistroke .07672 .63845 L .07084 .64863 L .05908 .64863 L .06496 .65881 L .05908 .66899 L .04733 .66899 L .04145 .65881 L .03557 .66899 L .02381 .66899 L .02969 .67918 L .02381 .68936 L .03557 .68936 L .04145 .69954 L .03557 .70972 L .02381 .70972 L .02969 .71991 L .02381 .73009 L .03557 .73009 L .04145 .74027 L .04733 .73009 L .05908 .73009 L .06496 .74027 L .05908 .75045 L .07084 .75045 L .07672 .76064 L .07084 .77082 L .05908 .77082 L .06496 .781 L .05908 .79118 L .04733 .79118 L .04145 .781 L .03557 .79118 L .02381 .79118 L .02969 .80137 L .02381 .81155 L .03557 .81155 L .04145 .82173 L .03557 .83191 L .02381 .83191 L .02969 .8421 L .02381 .85228 L .03557 .85228 L .04145 .86246 L .04733 .85228 L .05908 .85228 L .06496 .86246 L .05908 .87264 L .07084 .87264 L .07672 .88283 L .0826 .87264 L Mistroke .09436 .87264 L .08848 .86246 L .09436 .85228 L .10611 .85228 L .11199 .86246 L .11787 .85228 L .12963 .85228 L .13551 .86246 L .12963 .87264 L .14139 .87264 L .14727 .88283 L .14139 .89301 L .12963 .89301 L .13551 .90319 L .12963 .91337 L .14139 .91337 L .14727 .92356 L .15315 .91337 L .1649 .91337 L .17078 .92356 L .1649 .93374 L .17666 .93374 L .18254 .94392 L .18842 .93374 L .20018 .93374 L .1943 .92356 L .20018 .91337 L .21193 .91337 L .21781 .92356 L .22369 .91337 L .23545 .91337 L .22957 .90319 L .23545 .89301 L .22369 .89301 L .21781 .88283 L .22369 .87264 L .23545 .87264 L .22957 .86246 L .23545 .85228 L .24721 .85228 L .25309 .86246 L .25897 .85228 L .27072 .85228 L .2766 .86246 L .27072 .87264 L .28248 .87264 L .28836 .88283 L .29424 .87264 L .306 .87264 L .30012 .86246 L Mistroke .306 .85228 L .31775 .85228 L .32363 .86246 L .32951 .85228 L .34127 .85228 L .34715 .86246 L .34127 .87264 L .35303 .87264 L .35891 .88283 L .35303 .89301 L .34127 .89301 L .34715 .90319 L .34127 .91337 L .35303 .91337 L .35891 .92356 L .36479 .91337 L .37654 .91337 L .38242 .92356 L .37654 .93374 L .3883 .93374 L .39418 .94392 L .3883 .9541 L .37654 .9541 L .38242 .96429 L .37654 .97447 L .36479 .97447 L .35891 .96429 L .35303 .97447 L .34127 .97447 L .34715 .98465 L .34127 .99483 L .35303 .99483 L .35891 1.00502 L .35303 1.0152 L .34127 1.0152 L .34715 1.02538 L .34127 1.03556 L .35303 1.03556 L .35891 1.04575 L .36479 1.03556 L .37654 1.03556 L .38242 1.04575 L .37654 1.05593 L .3883 1.05593 L .39418 1.06611 L .40006 1.05593 L .41182 1.05593 L .40594 1.04575 L .41182 1.03556 L .42357 1.03556 L Mistroke .42945 1.04575 L .43533 1.03556 L .44709 1.03556 L .45297 1.04575 L .44709 1.05593 L .45885 1.05593 L .46473 1.06611 L .45885 1.07629 L .44709 1.07629 L .45297 1.08648 L .44709 1.09666 L .45885 1.09666 L .46473 1.10684 L .47061 1.09666 L .48236 1.09666 L .48824 1.10684 L .48236 1.11703 L .49412 1.11703 L .5 1.12721 L Mfstroke MathSubEnd P % End of sub-graphic % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{500, 180.375}, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztnd9vFUUUx29/oiK9rUWgityrBZFaeZGo0WgrSn1SEMUXf2Bt0NakUdtq DCIgUUHfJGpMTNQ/wj9Nn2vnzHa3d/ezw5nO7t3buiRsZ79z9pwzszNnzsyZ O/vq/NripeX5taWF+fYrK/OfLi4trLbnPlnZgAb6Go2+fxqNxt/thkmvbySj i/z711yimxLTb8mfgfVY7sbdX0rsgmVxIZVlypAmN9gfJiHQRkYEyp2Dz5+S GNwqdn2TVWOoA958xJao8aaDxPX47yyx3/HI+TtL/M0khk1yKE7djlODSc0M bq0Z8/+svX8jVTn2Lov9CthewH4C7F7AXrPiz0PWEGC/KMXfVtJ5iqfS350n XqC9cSqq6NeBfI+ypCTqZ8DuAuycFX9OyfZHJVtSneiuB/AjbM6vOD+kMNMV SDw9O2yu/Qa6ZlI5/SjpY8krF0x64BlLfRbYU7O8BepSLdwDmG23GQNzFUj7 AaNOTx13IBJG1mjOr7Q3HayGlTwGudRXGB5wwSQshMOszZsxf0ZNTtOkxkxq xaT2dDaVZpxKsFWToqFNXnY/t8imIy9hHWk3C4pPAbYC2OOAfaakmwkXT3Sr SrpI/IuQ9Rhga4CdyFNToKk4NRsuiug+V9JF4k9D1qOAfQHY8QA6T/HaUiUd I1PRLwH5UaWokJY/Y8W/DFmPKCuwgBatFS+lFws0aVJua3M0Jonq+AxwbAN2 BbCHAfvSXPtTkvNUF7rTfop8DVgLsMtyzZh3qwaPVJEmc8DtCGA0HpMmUnUC tePUGT9R1wB7KIAuGt6pmxP5YSVGtoHotDK0/LQyrJ3KmCvz7omc3sQD8Gxa TYORSsTvQXhWuib13ok4I2lJE3nEJRXWjn6ZfkXlbQE2wY9ba8TdMq3Feo7p OeTgYVt645iDJP0m1nMMkEuMbzGI/4SDx/OS8Fp62M+PuOzguCPPJWrSJsqu 5GdNIrVSMmJSqUGwCXSn4pRrRWUkycsbPpsqRrZo6LTQPOMgYDRuHlDyewYw mnqNAEaOEdERvycBoxnovgC5xK8l16gddmbRWtD9gNGr2q/k97Syeqg45Ag2 lfxOVSS3JdfKqptaN63+jAJGUz6iI35S3QIl60SJxUhmMU2giwwCdWpaHRoH jCZb9yn5UQvVVhlN3saU/J4CjBbviJ9WLvGzbgJ6C6SmVry2pUwr1dQuwRId +fAh/IiOmmvI0i89qy1HSNns+FpZc0gPbcZl8F/CpidIq/S66/akSV3leDfu BfMkd6oz15dbzgKodYLQe6TBigY1Gvy0Pk76WaNj4AI/rZSTiunBsADRVItl xRZoLCevj2SVpVNkGapqTCccqgXGT7SNarA8FY4wXHIIJwNPO0romta68vYF F80OMnYMScWWTgImTnQqtkTxJnlWEZcSftYiFxiXIoYnS5EkhYjqkMbrdBzW 3NEEIx1eNnfkfRPdqJ94mgfdVNIRv0g8zQG+B4wWD0i81JJAt+LUmJ8oWs/4 TklH/CLx9F6+BeyQUryWzlO8tlRJF8xUNLXUG8oS5L5TfYumFnhdKV7b8h0t 2ku8GIJv4lSuXbsRk0R1TP2BQjvauIys81IEjFQXunE/RVqAUVTMLslnBiGr hmvlF1suBQDJXSJNpOoEuhqnDviJojnbVwF0kcNHLfcyYDQDJrZER/wO+pWe KproWuYaVtFe71TRHWwnDuplRLf9xq3VROIw27YqIaazAF+k6IHD03KXMm7x EFm0M+DpixTtCnn6IiFOn6cvUrR76+mLhDj3Bfgiyfxs2aRy52LLgG1rjrXs yMvMfMhoLwHmu85APFwLBYcTpTt9n/SEOCoILed87CJ1zNC3ulLa+phKyYoY +lVFCesdS8EcooZB7tBHgGmXpulZWmiWFzDgaL2StxSnFAu92qJMx6y8CiBP TMYpWhX/0Pms3beBHuAlwJ4AjBSmZ0NiNMTPESvRFocii1TXSfA0efm2t2Ic eUEpajFPFBoXcJp5k8Y8YBR2JuNA4onOU7yUXmz/QpxKdrV8EFdq7maUY8D0 ImAvKOlkOw7Z/PeBOOllxSvynFwz1tGq4dyxRCH1dwGbVdKJxgJdjCsnZzte qCiiewewSDxFWd8GjHZehtCVVPoCKnoGsPfyRClaoW3VPdS4tZqIXQsxLEUb UNpF5rDfIcNHAfZbK55K7zlQFj0m0+4c8nUcu2lyHbHe93C65iJ77Kfwcozb IDB/stNZAKoX8qVK2DZAXXmbIfpyp7q9PL/r7WWJOiCbzqoDshrxdUA2p0nV AdktWB2QzWA0ONYBWQ2/OiDr0cvqgKy3L6IVPwFYHZDdOb5I0Z6Ywxcpxb/c Md51xXOLer/u9iTdKWpd77avd9vn5hW2276qllf/aGgT20U/Gqp/TqiX1vM/ J6x/Klz/VNjcOba/1D/UL+2H+vVREt5HSdSHnXT1sJP6KJ+uHuVTnyXF2/fq I8xKPcKsPjTP8DheTmX09HGJ/9MjMSs+iLSLR672zjmzPXP0bndOGq74OOWK D5Pu4rHZFR8QXvHx6F08CH4WyLt45H2I+AIO/Jc/Pfs1hPrLFXLnWRu746sl O+yTMrvsgz4Vfx6pix+CqviTVxV/8KvUj5l1/9tsxX5brqgv3hXw8T25KfH7 gI2+/wBM2aA/\ \>"], ImageRangeCache->{{{0, 499}, {179.375, 0}} -> {-0.0810231, -0.027069, \ 0.00633677, 0.00633677}, {{12.75, 160.688}, {175.062, 4.25}} -> {-0.61554, \ -0.636834, 0.00709812, 0.00709812}, {{175.5, 323.438}, {175.062, 4.25}} -> \ {-1.77076, -0.636834, 0.00709812, 0.00709812}, {{338.25, 486.188}, {175.062, \ 4.25}} -> {-2.92598, -0.636834, 0.00709812, 0.00709812}}], Cell[TextData[{ "The Koch Snowflake is snowflake[\[Infinity]]", StyleBox[" ", FontWeight->"Bold"], StyleBox["the limit of the sequence ", FontVariations->{"CompatibilityType"->0}], Cell[BoxData[ FormBox[ SubscriptBox[ RowBox[{"(", RowBox[{"snowflake", "[", "n", "]"}], ")"}], "n"], TraditionalForm]]], StyleBox[" ", FontWeight->"Bold"], StyleBox["as", FontVariations->{"CompatibilityType"->0}], StyleBox[" ", FontWeight->"Bold"], StyleBox["n", FontSlant->"Italic", FontVariations->{"CompatibilityType"->0}], StyleBox[" goes to infinity. Among other interesting properties, the Koch \ Snowflake has infinite perimeter, but finite area.", FontVariations->{"CompatibilityType"->0}] }], "Text"], Cell[CellGroupData[{ Cell["The project:", "Subsection"], Cell[TextData[{ "The project is to write a ", StyleBox["Mathematica", FontSlant->"Italic"], " function ", StyleBox["snowflake[n_] ", FontWeight->"Bold"], StyleBox["that makes the ", FontVariations->{"CompatibilityType"->0}], StyleBox["n", FontSlant->"Italic", FontVariations->{"CompatibilityType"->0}], StyleBox["th snowflake. Rather than having the ", FontVariations->{"CompatibilityType"->0}], StyleBox["snowflake", FontWeight->"Bold"], StyleBox[" function draw the snowflakes itself, you may prefer to define the \ function so that ", FontVariations->{"CompatibilityType"->0}], StyleBox["Show[snowflake[n]]", FontWeight->"Bold", FontVariations->{"CompatibilityType"->0}], StyleBox[" produces the picture. ", FontVariations->{"CompatibilityType"->0}], StyleBox["Your function should test that the argument n is a positive \ integer, and should produce an error message if that is not the case. Also \ you should have a usafge statement for your function. ", FontVariations->{"CompatibilityType"->0}] }], "Text", CellChangeTimes->{{3.42038284609676*^9, 3.420382846458949*^9}}] }, Open ]] }, Open ]] }, WindowSize->{644, 617}, WindowMargins->{{94, Automatic}, {Automatic, 1}}, FrontEndVersion->"6.0 for Mac OS X PowerPC (32-bit) (April 20, 2007)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 35, 0, 76, "Title"], Cell[628, 25, 91, 2, 26, "Text"], Cell[722, 29, 134, 4, 26, "Text"], Cell[859, 35, 1985, 69, 182, 704, 45, "GraphicsData", "PostScript", \ "Graphics"], Cell[2847, 106, 398, 11, 41, "Text"], Cell[3248, 119, 2131, 78, 239, 844, 54, "GraphicsData", "PostScript", \ "Graphics"], Cell[5382, 199, 930, 32, 26, "Text"], Cell[6315, 233, 416, 14, 26, "Text"], Cell[6734, 249, 21423, 1209, 189, 18276, 1156, "GraphicsData", "PostScript", \ "Graphics"], Cell[28160, 1460, 730, 23, 43, "Text"], Cell[CellGroupData[{ Cell[28915, 1487, 34, 0, 34, "Subsection"], Cell[28952, 1489, 1114, 29, 86, "Text"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)