Home » Archimedes archive » Acorn User » AU 1997-10 A.adf » Regulars » StarInfo/Hirst/Lorenz1
StarInfo/Hirst/Lorenz1
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Acorn User » AU 1997-10 A.adf » Regulars |
| Filename: | StarInfo/Hirst/Lorenz1 |
| Read OK: | ✔ |
| File size: | 015F bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM >Lorenz_1 20REM One-Line Cycling Lorenz Attractor 30REM LEN Ms. Chi Hirst Sun 27th October 1996 40f=1.8:MODE27:OFF:ORIGIN640,480:x=1:X=0:y=1:Y=0:z=1:Z=0:GCOL0,0:REPEATd=15:c=1:REPEATc=c+1:d=d-1:X=x+10*(y-x)*0.01:Z=z+(x*y-z*(7/3))*0.01:Y=y+(28*x-y-x*z)*0.01:CIRCLEFILL(X+x)*7,(Y+y)*7,(Z+z)*f/2:CIRCLEFILLX*14,Y*14,Z*f:FORC=1TO15:D=16*(d-C):COLOURC,D,D,D:NEXTC:GCOL0,c:x=X:z=Z:y=Y:WAIT:UNTILc=15ANDd=1:UNTIL0
� >Lorenz_1 '� One-Line Cycling Lorenz Attractor +� � Ms. Chi Hirst Sun 27th October 1996 (�f=1.8:�27:�:ȑ640,480:x=1:X=0:y=1:Y=0:z=1:Z=0:�0,0:�d=15:c=1:�c=c+1:d=d-1:X=x+10*(y-x)*0.01:Z=z+(x*y-z*(7/3))*0.01:Y=y+(28*x-y-x*z)*0.01:ȏȐ(X+x)*7,(Y+y)*7,(Z+z)*f/2:ȏȐX*14,Y*14,Z*f:�C=1�15:D=16*(d-C):�C,D,D,D:�C:�0,c:x=X:z=Z:y=Y:Ȗ:�c=15�d=1:�0 �
00000000 0d 00 0a 0f f4 20 3e 4c 6f 72 65 6e 7a 5f 31 0d |..... >Lorenz_1.| 00000010 00 14 27 f4 20 4f 6e 65 2d 4c 69 6e 65 20 43 79 |..'. One-Line Cy| 00000020 63 6c 69 6e 67 20 4c 6f 72 65 6e 7a 20 41 74 74 |cling Lorenz Att| 00000030 72 61 63 74 6f 72 0d 00 1e 2b f4 20 a9 20 4d 73 |ractor...+. . Ms| 00000040 2e 20 43 68 69 20 48 69 72 73 74 20 53 75 6e 20 |. Chi Hirst Sun | 00000050 32 37 74 68 20 4f 63 74 6f 62 65 72 20 31 39 39 |27th October 199| 00000060 36 0d 00 28 fc 66 3d 31 2e 38 3a eb 32 37 3a 87 |6..(.f=1.8:.27:.| 00000070 3a c8 91 36 34 30 2c 34 38 30 3a 78 3d 31 3a 58 |:..640,480:x=1:X| 00000080 3d 30 3a 79 3d 31 3a 59 3d 30 3a 7a 3d 31 3a 5a |=0:y=1:Y=0:z=1:Z| 00000090 3d 30 3a e6 30 2c 30 3a f5 64 3d 31 35 3a 63 3d |=0:.0,0:.d=15:c=| 000000a0 31 3a f5 63 3d 63 2b 31 3a 64 3d 64 2d 31 3a 58 |1:.c=c+1:d=d-1:X| 000000b0 3d 78 2b 31 30 2a 28 79 2d 78 29 2a 30 2e 30 31 |=x+10*(y-x)*0.01| 000000c0 3a 5a 3d 7a 2b 28 78 2a 79 2d 7a 2a 28 37 2f 33 |:Z=z+(x*y-z*(7/3| 000000d0 29 29 2a 30 2e 30 31 3a 59 3d 79 2b 28 32 38 2a |))*0.01:Y=y+(28*| 000000e0 78 2d 79 2d 78 2a 7a 29 2a 30 2e 30 31 3a c8 8f |x-y-x*z)*0.01:..| 000000f0 c8 90 28 58 2b 78 29 2a 37 2c 28 59 2b 79 29 2a |..(X+x)*7,(Y+y)*| 00000100 37 2c 28 5a 2b 7a 29 2a 66 2f 32 3a c8 8f c8 90 |7,(Z+z)*f/2:....| 00000110 58 2a 31 34 2c 59 2a 31 34 2c 5a 2a 66 3a e3 43 |X*14,Y*14,Z*f:.C| 00000120 3d 31 b8 31 35 3a 44 3d 31 36 2a 28 64 2d 43 29 |=1.15:D=16*(d-C)| 00000130 3a fb 43 2c 44 2c 44 2c 44 3a ed 43 3a e6 30 2c |:.C,D,D,D:.C:.0,| 00000140 63 3a 78 3d 58 3a 7a 3d 5a 3a 79 3d 59 3a c8 96 |c:x=X:z=Z:y=Y:..| 00000150 3a fd 63 3d 31 35 80 64 3d 31 3a fd 30 0d ff |:.c=15.d=1:.0..| 0000015f
.