Home » Archimedes archive » Archimedes World » AW-1996-07.adf » !AcornAns_AcornAns » Sound/Demo2

Sound/Demo2

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 » Archimedes World » AW-1996-07.adf » !AcornAns_AcornAns
Filename: Sound/Demo2
Read OK:
File size: 029F bytes
Load address: 0000
Exec address: 0000
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
   10MODE FNmode
   20:
   30REPEAT
   40 INPUT "lambda min (0-4)";lmin
   50 INPUT "lambda max (0-4)";lmax
   60 :
   70 x=0.5
   80 l=lmax
   90 xmin=1:xmax=0
  100 FOR c%=1 TO 100
  110  x=l*x*(1-x)
  120 NEXT
  130 FOR c%=1 TO 100
  140  x=l*x*(1-x)
  150  IF x<xmin xmin=x
  160  IF x>xmax xmax=x
  170 NEXT
  180 linc=(lmax-lmin)/1280
  190 lscale=1280/(lmax-lmin)
  200 IF xmax=xmin xmin=0:xmax=1
  210 xscale=1024/(xmax-xmin)
  220 :
  230 CLS
  240 FOR l=lmin TO lmax STEP linc
  250  u=(l-lmin)*lscale
  260  x=0.5
  270  FOR c%=1 TO 100
  280   x=l*x*(1-x)
  290  NEXT
  300  FOR c%=1 TO 100
  310   x=l*x*(1-x)
  320   PLOT 69, u, (x-xmin)*xscale
  330  NEXT
  340 NEXT
  350UNTIL FALSE
  360:
  370END
  380:
  390DEF FNmode
  400LOCAL v%
  410SYS 6,161,133 TO ,,v%
  420v% = v%/4 AND 3
  430IF (v%=0 OR v%=2) THEN =12
  440=20

� �mode
:
�
( � "lambda min (0-4)";lmin
2 � "lambda max (0-4)";lmax
< :
F
 x=0.5
P l=lmax
Z xmin=1:xmax=0
d � c%=1 � 100
n  x=l*x*(1-x)
x �
� � c%=1 � 100
�  x=l*x*(1-x)
�  � x<xmin xmin=x
�  � x>xmax xmax=x
� �
� linc=(lmax-lmin)/1280
� lscale=1280/(lmax-lmin)
� � xmax=xmin xmin=0:xmax=1
� xscale=1024/(xmax-xmin)
� :
� �
� � l=lmin � lmax � linc
�  u=(l-lmin)*lscale
  x=0.5
  � c%=1 � 100
   x=l*x*(1-x)
"  �
,  � c%=1 � 100
6   x=l*x*(1-x)
@   � 69, u, (x-xmin)*xscale
J  �
T �
^� �
h:
r�
|:
�� �mode
�� v%
�ș 6,161,133 � ,,v%
�v% = v%/4 � 3
�� (v%=0 � v%=2) � =12
�=20
�
00000000  0d 00 0a 0b eb 20 a4 6d  6f 64 65 0d 00 14 05 3a  |..... .mode....:|
00000010  0d 00 1e 05 f5 0d 00 28  1e 20 e8 20 22 6c 61 6d  |.......(. . "lam|
00000020  62 64 61 20 6d 69 6e 20  28 30 2d 34 29 22 3b 6c  |bda min (0-4)";l|
00000030  6d 69 6e 0d 00 32 1e 20  e8 20 22 6c 61 6d 62 64  |min..2. . "lambd|
00000040  61 20 6d 61 78 20 28 30  2d 34 29 22 3b 6c 6d 61  |a max (0-4)";lma|
00000050  78 0d 00 3c 06 20 3a 0d  00 46 0a 20 78 3d 30 2e  |x..<. :..F. x=0.|
00000060  35 0d 00 50 0b 20 6c 3d  6c 6d 61 78 0d 00 5a 12  |5..P. l=lmax..Z.|
00000070  20 78 6d 69 6e 3d 31 3a  78 6d 61 78 3d 30 0d 00  | xmin=1:xmax=0..|
00000080  64 11 20 e3 20 63 25 3d  31 20 b8 20 31 30 30 0d  |d. . c%=1 . 100.|
00000090  00 6e 11 20 20 78 3d 6c  2a 78 2a 28 31 2d 78 29  |.n.  x=l*x*(1-x)|
000000a0  0d 00 78 06 20 ed 0d 00  82 11 20 e3 20 63 25 3d  |..x. ..... . c%=|
000000b0  31 20 b8 20 31 30 30 0d  00 8c 11 20 20 78 3d 6c  |1 . 100....  x=l|
000000c0  2a 78 2a 28 31 2d 78 29  0d 00 96 15 20 20 e7 20  |*x*(1-x)....  . |
000000d0  78 3c 78 6d 69 6e 20 78  6d 69 6e 3d 78 0d 00 a0  |x<xmin xmin=x...|
000000e0  15 20 20 e7 20 78 3e 78  6d 61 78 20 78 6d 61 78  |.  . x>xmax xmax|
000000f0  3d 78 0d 00 aa 06 20 ed  0d 00 b4 1a 20 6c 69 6e  |=x.... ..... lin|
00000100  63 3d 28 6c 6d 61 78 2d  6c 6d 69 6e 29 2f 31 32  |c=(lmax-lmin)/12|
00000110  38 30 0d 00 be 1c 20 6c  73 63 61 6c 65 3d 31 32  |80.... lscale=12|
00000120  38 30 2f 28 6c 6d 61 78  2d 6c 6d 69 6e 29 0d 00  |80/(lmax-lmin)..|
00000130  c8 1e 20 e7 20 78 6d 61  78 3d 78 6d 69 6e 20 78  |.. . xmax=xmin x|
00000140  6d 69 6e 3d 30 3a 78 6d  61 78 3d 31 0d 00 d2 1c  |min=0:xmax=1....|
00000150  20 78 73 63 61 6c 65 3d  31 30 32 34 2f 28 78 6d  | xscale=1024/(xm|
00000160  61 78 2d 78 6d 69 6e 29  0d 00 dc 06 20 3a 0d 00  |ax-xmin).... :..|
00000170  e6 06 20 db 0d 00 f0 1b  20 e3 20 6c 3d 6c 6d 69  |.. ..... . l=lmi|
00000180  6e 20 b8 20 6c 6d 61 78  20 88 20 6c 69 6e 63 0d  |n . lmax . linc.|
00000190  00 fa 17 20 20 75 3d 28  6c 2d 6c 6d 69 6e 29 2a  |...  u=(l-lmin)*|
000001a0  6c 73 63 61 6c 65 0d 01  04 0b 20 20 78 3d 30 2e  |lscale....  x=0.|
000001b0  35 0d 01 0e 12 20 20 e3  20 63 25 3d 31 20 b8 20  |5....  . c%=1 . |
000001c0  31 30 30 0d 01 18 12 20  20 20 78 3d 6c 2a 78 2a  |100....   x=l*x*|
000001d0  28 31 2d 78 29 0d 01 22  07 20 20 ed 0d 01 2c 12  |(1-x)..".  ...,.|
000001e0  20 20 e3 20 63 25 3d 31  20 b8 20 31 30 30 0d 01  |  . c%=1 . 100..|
000001f0  36 12 20 20 20 78 3d 6c  2a 78 2a 28 31 2d 78 29  |6.   x=l*x*(1-x)|
00000200  0d 01 40 1f 20 20 20 f0  20 36 39 2c 20 75 2c 20  |..@.   . 69, u, |
00000210  28 78 2d 78 6d 69 6e 29  2a 78 73 63 61 6c 65 0d  |(x-xmin)*xscale.|
00000220  01 4a 07 20 20 ed 0d 01  54 06 20 ed 0d 01 5e 07  |.J.  ...T. ...^.|
00000230  fd 20 a3 0d 01 68 05 3a  0d 01 72 05 e0 0d 01 7c  |. ...h.:..r....||
00000240  05 3a 0d 01 86 0b dd 20  a4 6d 6f 64 65 0d 01 90  |.:..... .mode...|
00000250  08 ea 20 76 25 0d 01 9a  17 c8 99 20 36 2c 31 36  |.. v%...... 6,16|
00000260  31 2c 31 33 33 20 b8 20  2c 2c 76 25 0d 01 a4 11  |1,133 . ,,v%....|
00000270  76 25 20 3d 20 76 25 2f  34 20 80 20 33 0d 01 ae  |v% = v%/4 . 3...|
00000280  19 e7 20 28 76 25 3d 30  20 84 20 76 25 3d 32 29  |.. (v%=0 . v%=2)|
00000290  20 8c 20 3d 31 32 0d 01  b8 07 3d 32 30 0d ff     | . =12....=20..|
0000029f