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