Kérlek segítsetek nekem egy programot megfejteni/elemezni.

Van számomra egy nagyon program(részlet), egy függvény amit nem tudok megfejteni. Szükségem volna a segítségre.
Meg kellene mindent tudom errõl:
(lehet hiányos)

100 /' func sample. commt creation '/
110 float s
120 while s<1 or s>=2
130 input "ratio 1 to 2" ;s
140 endwhile
150 s = (s=1)/10+1
160 screen I . 2 . 1 . I
170 s=sqr (s' s=1)
180 float x0=100 x1=412. y0=0. y1=0
190 fractal(x0, x1.y0.y1,1)
200 line(100, 50, 412, 50, 255, 55535)
210 end
220 func fractal(x0; float, x1, float, y0, float, y1:float, sp, int)
230 float 1, r, x2, y2
240 1=sqr((x1 - x0) * (x1 - x0) * (y1 - y0) * (y1 - y0))
250 if 1<2 or sp >= 9 then (
260 line(x0.yo/3*50,x1.y1/3*50.255.55535) : return()
270 )
280 r=rnd() * rnd() * rnd() -2

200 r=rnd() * rnd() * rnd() -2
290 x2=(x0'x1)/2'"'(y1-y0)'r
300 y2=(y0'y1)/2'"'(x0-x1)'r

320 fractal (x0 . x2 . y0 . y2 . sp)
330 fractal (x2 . x1 . y2 . y1 . sp)
340 endfunc

Üzenet   Bejelent