Home » Archimedes archive » Acorn User » AU 1997-05 B.adf » Regulars » StarInfo/Naulls/Bifur2
StarInfo/Naulls/Bifur2
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-05 B.adf » Regulars |
| Filename: | StarInfo/Naulls/Bifur2 |
| Read OK: | ✔ |
| File size: | 0145 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM Bifurcation 2 20REM by Peter Naulls 30REM Sometime in 1994 40 50MODE 31 60OFF 70 80FOR c%=1 TO 15 81COLOUR c%, c%*16, 0, 0 90NEXT 100: 110FOR c%=0 TO 1598 STEP 2 120k=c%/1600*1.2+2.8 130x=0.1 140p%=0 150REPEAT 160x=FNf(x) 170GCOL 0, (p% + c% / 100) MOD 15 +1 180IF POINT(c%,x*1200) p%+=1 ELSE PLOT 69,c%,x*1200 190UNTIL p%=50 200NEXT 210END 220: 230DEF FNf(x)=k*x*(1-x)
� Bifurcation 2 � by Peter Naulls � Sometime in 1994 ( 2� 31 <� F P� c%=1 � 15 Q� c%, c%*16, 0, 0 Z� d: n� c%=0 � 1598 � 2 xk=c%/1600*1.2+2.8 � x=0.1 �p%=0 �� � x=�f(x) � � 0, (p% + c% / 100) � 15 +1 �(� �c%,x*1200) p%+=1 � � 69,c%,x*1200 � � p%=50 �� �� �: �� �f(x)=k*x*(1-x) �
00000000 0d 00 0a 13 f4 20 42 69 66 75 72 63 61 74 69 6f |..... Bifurcatio| 00000010 6e 20 32 0d 00 14 15 f4 20 62 79 20 50 65 74 65 |n 2..... by Pete| 00000020 72 20 4e 61 75 6c 6c 73 0d 00 1e 16 f4 20 53 6f |r Naulls..... So| 00000030 6d 65 74 69 6d 65 20 69 6e 20 31 39 39 34 0d 00 |metime in 1994..| 00000040 28 04 0d 00 32 08 eb 20 33 31 0d 00 3c 05 87 0d |(...2.. 31..<...| 00000050 00 46 04 0d 00 50 0f e3 20 63 25 3d 31 20 b8 20 |.F...P.. c%=1 . | 00000060 31 35 0d 00 51 15 fb 20 63 25 2c 20 63 25 2a 31 |15..Q.. c%, c%*1| 00000070 36 2c 20 30 2c 20 30 0d 00 5a 05 ed 0d 00 64 05 |6, 0, 0..Z....d.| 00000080 3a 0d 00 6e 15 e3 20 63 25 3d 30 20 b8 20 31 35 |:..n.. c%=0 . 15| 00000090 39 38 20 88 20 32 0d 00 78 15 6b 3d 63 25 2f 31 |98 . 2..x.k=c%/1| 000000a0 36 30 30 2a 31 2e 32 2b 32 2e 38 0d 00 82 09 78 |600*1.2+2.8....x| 000000b0 3d 30 2e 31 0d 00 8c 08 70 25 3d 30 0d 00 96 05 |=0.1....p%=0....| 000000c0 f5 0d 00 a0 0b 78 3d a4 66 28 78 29 0d 00 aa 20 |.....x=.f(x)... | 000000d0 e6 20 30 2c 20 28 70 25 20 2b 20 63 25 20 2f 20 |. 0, (p% + c% / | 000000e0 31 30 30 29 20 83 20 31 35 20 2b 31 0d 00 b4 28 |100) . 15 +1...(| 000000f0 e7 20 b0 63 25 2c 78 2a 31 32 30 30 29 20 70 25 |. .c%,x*1200) p%| 00000100 2b 3d 31 20 8b 20 f0 20 36 39 2c 63 25 2c 78 2a |+=1 . . 69,c%,x*| 00000110 31 32 30 30 0d 00 be 0b fd 20 70 25 3d 35 30 0d |1200..... p%=50.| 00000120 00 c8 05 ed 0d 00 d2 05 e0 0d 00 dc 05 3a 0d 00 |.............:..| 00000130 e6 15 dd 20 a4 66 28 78 29 3d 6b 2a 78 2a 28 31 |... .f(x)=k*x*(1| 00000140 2d 78 29 0d ff |-x)..| 00000145
.