math/gravi2.bas

   1 ' Gravitation simulation\r
   2 ' made by Svjatoslav Agejenko\r
   3 ' in 2001\r
   4 ' homepage: svjatoslav.eu\r
   5 ' email:    svjatoslav@svjatoslav.eu\r
   6  \r
   7 DEFDBL A-Z\r
   8 SCREEN 12\r
   9 \r
  10 x = -200\r
  11 y = 0\r
  12 xs = -1\r
  13 ys = 3\r
  14 \r
  15 \r
  16 1\r
  17 CIRCLE (320, 240), 100, 3\r
  18 CIRCLE (320, 240), 2, 3\r
  19 x = x + xs\r
  20 y = y + ys\r
  21 \r
  22 v = SQR(x * x + y * y)\r
  23 j = 1 / v * 20\r
  24 'j = .1\r
  25 \r
  26 s = ABS(x) + ABS(y)\r
  27 xs = xs + (j * (-x) / s)\r
  28 ys = ys + (j * (-y) / s)\r
  29 \r
  30 \r
  31 CIRCLE (x + 320, y + 240), 2, 14\r
  32 LINE (x + 320, y + 240)-(320, 240), 1\r
  33 SOUND 0, .1\r
  34 GOTO 1\r
  35 \r