math/valem.bas

   1 DEFDBL A-Z\r
   2 SCREEN 13\r
   3 pi = 3.141285\r
   4 \r
   5 p1 = -1\r
   6 p2 = 4\r
   7 mi = 0\r
   8 dia = 1.5\r
   9 tli = 0\r
  10 bli = -1\r
  11 \r
  12 siz = 100 / dia\r
  13 FOR a = 0 TO 100 STEP 100 / dia\r
  14   LINE (0, 100 + a)-(319, 100 + a), 2\r
  15   LINE (0, 100 - a)-(319, 100 - a), 2\r
  16 NEXT a\r
  17 \r
  18 LINE (0, 100)-(319, 100), 10\r
  19 ste = (p2 - p1) / 319\r
  20 o = 0\r
  21 FOR x = p1 TO p2 STEP ste / 20\r
  22 \r
  23   y = x ^ 2 - 3 * x\r
  24 \r
  25 u = ABS(INT(x) - x)\r
  26 IF u >= lu THEN su = 1 ELSE su = 0\r
  27 lu = u\r
  28 rx = (x - p1) * (1 / ste)\r
  29 IF lsu > su THEN tl = 1\r
  30 lsu = su\r
  31 y = y - mi\r
  32 IF y > tli THEN y = tli\r
  33 IF y < bli THEN y = bli\r
  34 s = s + ABS(y)\r
  35 ry = -y * siz + 100\r
  36 IF ry > 199 THEN ry = 199\r
  37 IF ry < 0 THEN ry = 0\r
  38 o = o + 1\r
  39 IF o = 20 THEN\r
  40   o = 0\r
  41   IF tl = 1 THEN LINE (rx, 0)-(rx, 199), 4: tl = 0\r
  42   LINE (rx, 100)-(rx, ry), 15\r
  43 END IF\r
  44 NEXT x\r
  45 LOCATE 1, 1\r
  46 PRINT s / (1 / ste) / 20\r
  47 \r