Path: utzoo!attcan!uunet!wuarchive!brutus.cs.uiuc.edu!tut.cis.ohio-state.edu!ucbvax!XEROX.COM!Phil_Bowers.henr801E
From: Phil_Bowers.henr801E@XEROX.COM
Newsgroups: comp.sys.apple
Subject: snowflake - error? / peace offering
Message-ID: <890818-074739-2820@Xerox>
Date: 18 Aug 89 14:39:44 GMT
Sender: daemon@ucbvax.BERKELEY.EDU
Organization: The Internet
Lines: 25

To all interested in the Kock 'snowflake curve' program;  
  Sorry, but I am using a STAR and couldn't find the caret "^"character for
exponents so I used "**" which appears to have caused some confusion.  Line
#90 SHOULD READ:

090 L=SQR((X(P)-X(P-1))^2+(Y(P)-Y(P-1))^2)

   In the way of a peace offering, I offer you the following program which
was written from the equations given in the book "CHAOS". 
0 REM from "CHAOS" by James Gleick
1 REM "Attractor of Henon" 
10 HGR2: HCOLOR=3
15 MX=100:MY=200: REM Magnifly on X and/or Y axis
20 XC=140:YC=96:REM centers image on screen
40 X=0.1:Y=0.1 
50 XN=Y+1-(1.4*X^2)
60 YN=0.3*X
70 HPLOT XN*MX+XC,YN*-MY+YC
80 X=XN:Y=YN
90 GOTO 50
    This  ends up looking like a boomerang with one end broken off. If you
increase the values MX or MY, to make any section larger, you will have to
include a test to only HPLOT points that remain on the screen since this
program generates positive and negative for  X and Y.
      phil