Fractale d'Ivanov


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


[Image]