Algorithme

us0 = RND * 8 + 4 vs0 = RND * 4 + 2 rkh = RND rq = RND * 9 + 4.5 us = us0 vs = vs0 al = (pi / 2) * 4 / rq sa = SIN(al) ca = COS(al) suu = .5 * svv * 1.6 vn = 0 FOR N = 1 TO 30000 kkk = ((N / 3000) MOD 14) + 1 skip first 100 iterations PlotPoint us, vs am = us + rkh * ABS(SIN(vn)) un = am * ca + vs * sa vn = -am * sa + vs * ca us = un vs = vn NEXT