math/sin_cos.bas

   1 ' SIN & COS table\r
   2 ' made by Svjatoslav Agejenko\r
   3 ' in 2003.12\r
   4 ' homepage: svjatoslav.eu\r
   5 ' email:    svjatoslav@svjatoslav.eu\r
   6  \r
   7 xs = 640\r
   8 ys = 480\r
   9 scr = 12 'Video mode\r
  10 strs = 0\r
  11 \r
  12 xs = xs / 11.3\r
  13 ys = ys / 11.7\r
  14 \r
  15 IF strs = 0 THEN ELSE GOTO 1\r
  16 \r
  17 SELECT CASE scr\r
  18     CASE 12, 11\r
  19         strs = 16\r
  20 \r
  21     CASE 9, 10\r
  22         strs = 14\r
  23 \r
  24     CASE 1, 13, 2, 7, 8\r
  25         strs = 8\r
  26 END SELECT\r
  27 1\r
  28 \r
  29 SCREEN scr\r
  30 \r
  31 FOR b = 1 TO 10\r
  32     LINE (0, b * ys)-(xs * 10, b * ys), 8\r
  33     LINE (b * xs, 0)-(b * xs, ys * 10), 8\r
  34     LOCATE 10 * ys / strs + 2, b * xs / 8 + 1\r
  35     PRINT CHR$(b + 48)\r
  36 NEXT b\r
  37 \r
  38 LOCATE 10 * ys / strs + 2, xs * 10 / 8 + 0\r
  39 PRINT 10\r
  40 LOCATE 1 * ys / strs + 1, xs * 10 / 8 + 3\r
  41 PRINT -1\r
  42 LOCATE 5 * ys / strs + 1, xs * 10 / 8 + 3\r
  43 PRINT 0\r
  44 LOCATE 10 * ys / strs, xs * 10 / 8 + 3\r
  45 PRINT 1\r
  46 \r
  47 LINE (0, ys * 5 + 1)-(xs * 10, ys * 5 + 1), 14\r
  48 LINE (5 * xs + 1, 0)-(5 * xs + 1, 10 * ys), 14\r
  49 \r
  50 FOR a = 0 TO 10 STEP .05\r
  51     x = a * xs\r
  52     y = SIN(a) * ys * 5 + ys * 5\r
  53     IF a > 0 THEN LINE (x1, y1)-(x, y), 15\r
  54     x1 = x\r
  55     y1 = y\r
  56 NEXT a\r
  57 LOCATE y / strs + 1, xs * 10 / 8\r
  58 PRINT "sin"\r
  59 \r
  60 FOR a = 0 TO 10 STEP .05\r
  61     x = a * xs\r
  62     y = COS(a) * ys * 5 + ys * 5\r
  63     IF a > 0 THEN LINE (x1, y1)-(x, y), 12\r
  64     x1 = x\r
  65     y1 = y\r
  66 NEXT a\r
  67 LOCATE y / strs + 1, xs * 10 / 8\r
  68 PRINT "cos"\r
  69 \r
  70 a$ = INPUT$(1)\r
  71 SYSTEM\r
  72 \r