Copyright ©2011 Steven Whitney. Last modified Tue 05/24/2011 12:29:40 -0700.
|
25 Years of Programming
An open source source for C, C++, OWL, BASIC, MDB, XLS, DOT, and more... |
Home Projects Up Sitemap Search Blog Forum+Chat About Us Privacy Terms of Use Feedback FAQ Images Services Payments Humor Music |
GWBASIC program draws strange attractor?When playing around with the GWBASIC Chaos Game and strange attractor programs, I stumbled on this set of instructions that produced a "mysterious" waveform. I don't know what it is. |
10 'ATTRACT.BAS 3-11-90 11 'COPYRIGHT (C)1990 BY STEVEN WHITNEY. 12 'Published under GNU GPL (General Public License) Version 3, with ABSOLUTELY NO WARRANTY. 13 'Initially published by http://25yearsofprogramming.com. 20 'EXAMPLE OF STRANGE ATTRACTOR?? WAVEFORM APPEARS. 30 'NO IDEA IF THIS DEMONSTRATES AN ATTRACTOR AT ALL, OR WHAT IT EVEN IS, 40 'BUT A SCALLOPED WAVEFORM EMERGES. 50 'QUIT WITH CTL-C OR CTL-BREAK. 60 'SCREEN 12 : 'ENABLE FOR IBM BASIC 70 CLS 80 RNDM = TIMER / 3 90 RANDOMIZE 100 CLS 110 WINDOW (-400, -1)-(400, 3) 120 X = 0 130 INCR = 40 140 YINCR = INCR * 224 / 639 150 'LOOP ENTRY POINT 160 COLOUR = 4 170 PSET (X, Y), COLOUR 180 M = INT(RND * 4) 190 'CAN'T REMEMBER WHERE IN THE WORLD THIS FORMULA CAME FROM! 200 Y = 2 - ABS(2 * COS(X * .017453292#)) 210 IF M = 0 THEN X = X + INCR 220 IF M = 1 THEN X = X - INCR 230 IF M = 2 THEN INCR = INCR * 1.1 240 IF M = 3 THEN INCR = INCR / 1.1 250 IF ABS(X) > 400 THEN X = 0 260 IF ABS(INCR) > 800 OR ABS(1 / INCR) > 800 THEN INCR = 40: LOCATE 1, 1: PRINT "CHANGED INCR" 270 GOTO 150 280 LOCATE 1, 1: PRINT RNDM: BEEP: BEEP: BEEP: BEEP: BEEP: END
|
|
|
|
|
Copyright ©2011 Steven Whitney. Last modified Tue 05/24/2011 12:29:40 -0700. |
||