Home » Archimedes archive » Acorn User » AU 1997-10 A.adf » Regulars » StarInfo/Hirst/Lorenz3
StarInfo/Hirst/Lorenz3
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/Lorenz3 |
| Read OK: | ✔ |
| File size: | 0156 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM >Lorenz_3 20REM One-Line Cycling Lorenz Attractor 30REM LEN Ms. Chi Hirst Sat 1 Feb 1997 40f=4:MODE27:OFF:ORIGIN0,480:x=1:X=0:y=1:Y=0:z=1:Z=0:GCOL0,0:REPEAT:d=15:c=1:REPEAT: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:CIRCLEFILL(Z+z)*7.5,(Y+y)*7.5,(X+x)*f/2:CIRCLEFILLZ*15,Y*15,X*f:FORC=1TO15:D=16*(d-C):COLOURC,D,D,D:NEXTC:GCOL0,c:x=X:z=Z:y=Y:WAIT:UNTILc=15:UNTIL0
� >Lorenz_3 '� One-Line Cycling Lorenz Attractor $� � Ms. Chi Hirst Sat 1 Feb 1997 (�f=4:�27:�:ȑ0,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:ȏȐ(Z+z)*7.5,(Y+y)*7.5,(X+x)*f/2:ȏȐZ*15,Y*15,X*f:�C=1�15:D=16*(d-C):�C,D,D,D:�C:�0,c:x=X:z=Z:y=Y:Ȗ:�c=15:�0 �
00000000 0d 00 0a 0f f4 20 3e 4c 6f 72 65 6e 7a 5f 33 0d |..... >Lorenz_3.| 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 24 f4 20 a9 20 4d 73 |ractor...$. . Ms| 00000040 2e 20 43 68 69 20 48 69 72 73 74 20 53 61 74 20 |. Chi Hirst Sat | 00000050 31 20 46 65 62 20 31 39 39 37 0d 00 28 fa 66 3d |1 Feb 1997..(.f=| 00000060 34 3a eb 32 37 3a 87 3a c8 91 30 2c 34 38 30 3a |4:.27:.:..0,480:| 00000070 78 3d 31 3a 58 3d 30 3a 79 3d 31 3a 59 3d 30 3a |x=1:X=0:y=1:Y=0:| 00000080 7a 3d 31 3a 5a 3d 30 3a e6 30 2c 30 3a f5 3a 64 |z=1:Z=0:.0,0:.:d| 00000090 3d 31 35 3a 63 3d 31 3a f5 3a 63 3d 63 2b 31 3a |=15:c=1:.:c=c+1:| 000000a0 64 3d 64 2d 31 3a 58 3d 78 2b 31 30 2a 28 79 2d |d=d-1:X=x+10*(y-| 000000b0 78 29 2a 30 2e 30 31 3a 5a 3d 7a 2b 28 78 2a 79 |x)*0.01:Z=z+(x*y| 000000c0 2d 7a 2a 28 37 2f 33 29 29 2a 30 2e 30 31 3a 59 |-z*(7/3))*0.01:Y| 000000d0 3d 79 2b 28 32 38 2a 78 2d 79 2d 78 2a 7a 29 2a |=y+(28*x-y-x*z)*| 000000e0 30 2e 30 31 3a c8 8f c8 90 28 5a 2b 7a 29 2a 37 |0.01:....(Z+z)*7| 000000f0 2e 35 2c 28 59 2b 79 29 2a 37 2e 35 2c 28 58 2b |.5,(Y+y)*7.5,(X+| 00000100 78 29 2a 66 2f 32 3a c8 8f c8 90 5a 2a 31 35 2c |x)*f/2:....Z*15,| 00000110 59 2a 31 35 2c 58 2a 66 3a e3 43 3d 31 b8 31 35 |Y*15,X*f:.C=1.15| 00000120 3a 44 3d 31 36 2a 28 64 2d 43 29 3a fb 43 2c 44 |:D=16*(d-C):.C,D| 00000130 2c 44 2c 44 3a ed 43 3a e6 30 2c 63 3a 78 3d 58 |,D,D:.C:.0,c:x=X| 00000140 3a 7a 3d 5a 3a 79 3d 59 3a c8 96 3a fd 63 3d 31 |:z=Z:y=Y:..:.c=1| 00000150 35 3a fd 30 0d ff |5:.0..| 00000156
.