Bifurcation Diagram

# http://en.wikipedia.org/wiki/Bifurcation_diagram

Graphsize 600,600

clg

fastgraphics

for c = 0 to 2 step 0.01

refresh

y=0

# Main sequence

for i=1 to 20

print "c="+c+" i="+i+" y="+y

y = y^2-c

circle 200*c,100*y+300,1

next i

next c

# graph c is the horizontal axis

for c = 0 to 600 step 40

for y = -300 to 300 step 50

text c,7,c/200

text 0,300-y,y/100

line c,0,c,600

line 0,y+300,600,y+300

next y

next c

refresh

end