Vajon mit csinálhat ez a függvény? Milyen programnyelvben íródhatott?

Elnézést a hibákért, egy papíron találtam de a fele már olvashatatlan volt.

Kérlek segítsetek kijavítani és elemezni minden egyes sorát.

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