simulation/interf.BAS

   1 DECLARE SUB getfreq ()\r
   2 DECLARE SUB start ()\r
   3 DECLARE FUNCTION gety! (t!)\r
   4 DIM SHARED freq(1 TO 100)\r
   5 DIM SHARED phase(1 TO 100)\r
   6 \r
   7 start\r
   8 1\r
   9 frm = frm + 1\r
  10 PSET (0, 0)\r
  11 FOR x = 0 TO 639\r
  12  \r
  13   oy1 = y1\r
  14   oy2 = y2\r
  15   oy3 = y3\r
  16 \r
  17   y1 = gety(frm + x / 4) * 20 + 150\r
  18   y2 = gety(frm + x / 4 + (x / 50)) * 20 + 150\r
  19   y3 = y1 + y2\r
  20 \r
  21  ' LINE (x + 1, 0)-(x + 1, 479), 12\r
  22   LINE (x, 0)-(x, 479), 0\r
  23 \r
  24   LINE (x - 1, oy1)-(x, y1), 1\r
  25   LINE (x - 1, oy2)-(x, y2), 2\r
  26   LINE (x - 1, oy3)-(x, y3), 15\r
  27 \r
  28 NEXT x\r
  29 GOTO 1\r
  30 \r
  31 SUB diplay\r
  32 END SUB\r
  33 \r
  34 SUB getfreq\r
  35 \r
  36 FOR a = 1 TO 100\r
  37   freq(a) = RND / 2 + 1\r
  38 NEXT a\r
  39 \r
  40 FOR a = 1 TO 100\r
  41   phase(a) = RND * 100\r
  42 NEXT a\r
  43 \r
  44 \r
  45 END SUB\r
  46 \r
  47 FUNCTION gety (t)\r
  48 \r
  49 y = 0\r
  50 FOR a = 1 TO 1\r
  51   y = y + SIN(t * freq(a) + phase(a))\r
  52 NEXT a\r
  53 \r
  54 gety = y\r
  55 \r
  56 END FUNCTION\r
  57 \r
  58 SUB start\r
  59 SCREEN 12\r
  60 getfreq\r
  61 \r
  62 END SUB\r
  63 \r