math/sinus.bas

   1 ' Sinus calculator\r
   2 ' made by Svjatoslav Agejenko\r
   3 ' in 2003.12\r
   4 ' H-Page: svjatoslav.eu\r
   5 ' E-Mail: svjatoslav@svjatoslav.eu\r
   6  \r
   7 \r
   8 ' this program calculates sinus without using SIN function\r
   9 \r
  10 \r
  11 SCREEN 12\r
  12 \r
  13 LINE (0, 240)-(640, 240), 15\r
  14 \r
  15 r = 0\r
  16 r1 = 1\r
  17 FOR x = 1 TO 639\r
  18 y = SIN(x / 100) * 100 + 240  ' using SIN\r
  19 PSET (x, y), 15\r
  20 \r
  21 r1 = r1 + ((0 - r) / 10000)\r
  22 r = r + r1                   '  without SIN\r
  23 y = r\r
  24 PSET (x, y + 241), 12\r
  25 \r
  26 NEXT x\r
  27 \r