Home » Archimedes archive » Acorn User » AU 1997-10 A.adf » Regulars » StarInfo/Hirst/Lorenz2
StarInfo/Hirst/Lorenz2
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/Lorenz2 |
| Read OK: | ✔ |
| File size: | 015F bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM >Lorenz_2 11REM One-Line Cycling Lorenz Attractor 20REM LEN Ms. Chi Hirst Sun 27th October 1996 30f=1.5:MODE27:OFF:ORIGIN640,0: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(X+x)*7.5,(Z+z)*7.5,(Y+y)*f/2:CIRCLEFILLX*15,Z*15,Y*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_2 '� One-Line Cycling Lorenz Attractor +� � Ms. Chi Hirst Sun 27th October 1996 �f=1.5:�27:�:ȑ640,0: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.5,(Z+z)*7.5,(Y+y)*f/2:ȏȐX*15,Z*15,Y*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 32 0d |..... >Lorenz_2.| 00000010 00 0b 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 14 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 1e fc 66 3d 31 2e 35 3a eb 32 37 3a 87 |6....f=1.5:.27:.| 00000070 3a c8 91 36 34 30 2c 30 3a 78 3d 31 3a 58 3d 30 |:..640,0:x=1:X=0| 00000080 3a 79 3d 31 3a 59 3d 30 3a 7a 3d 31 3a 5a 3d 30 |:y=1:Y=0:z=1:Z=0| 00000090 3a e6 30 2c 30 3a f5 3a 64 3d 31 35 3a 63 3d 31 |:.0,0:.:d=15:c=1| 000000a0 3a f5 3a 63 3d 63 2b 31 3a 64 3d 64 2d 31 3a 58 |:.: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 2e 35 2c 28 5a 2b 7a |..(X+x)*7.5,(Z+z| 00000100 29 2a 37 2e 35 2c 28 59 2b 79 29 2a 66 2f 32 3a |)*7.5,(Y+y)*f/2:| 00000110 c8 8f c8 90 58 2a 31 35 2c 5a 2a 31 35 2c 59 2a |....X*15,Z*15,Y*| 00000120 66 3a e3 43 3d 31 b8 31 35 3a 44 3d 31 36 2a 28 |f:.C=1.15:D=16*(| 00000130 64 2d 43 29 3a fb 43 2c 44 2c 44 2c 44 3a ed 43 |d-C):.C,D,D,D:.C| 00000140 3a e6 30 2c 63 3a 78 3d 58 3a 7a 3d 5a 3a 79 3d |:.0,c:x=X:z=Z:y=| 00000150 59 3a c8 96 3a fd 63 3d 31 35 3a fd 30 0d ff |Y:..:.c=15:.0..| 0000015f
.