Vince's Corner Takeout

[vince]

Logistic map

Code: (Select All)

deflng a-z
dim xx as double, uu as double
screen 12
for u=0 to 640
    uu = 2.8 + 1.2*u/640
    for x=0 to 480
        xx = x/480
        for i=0 to 500
            xx = uu*xx*(1 - xx)
        next
        pset(u, 480*(1 - xx))
    next
next
sleep
system