'
'
'
'
'        logistic equation generator
'        Yoav Ben-Dov 1996
'        www.bendov.info
'
'
'        TO START SESSION, HIT "shift - F5"
'
'        or use the menu - Run: Start
'
'
'
'
'
'
'
   CLS
   
   PRINT ""
   PRINT "     logistic equation generator"
   PRINT ""
   PRINT ""
   PRINT "     to start a session, you have to fix a speed value."
   PRINT "     this will determine how fast the program runs on your computer."
   PRINT "     type and enter a speed value between 1 (slow) and 10 (fast):"
   PRINT ""
   
   PRINT "     ";
   INPUT S
   SL = 100000 / (S * S)
   CLS
 
    PRINT ""
120 COLOR 7
    PRINT ""
    PRINT "     for each run, you choose a k value."
    PRINT "     k is the parameter in the logistic equation."
    PRINT ""
    COLOR 3
    PRINT "     k must be between 0 and 4"
    COLOR 7
    PRINT "     chaos begins after k=3.5"
    PRINT ""
    PRINT "     to stop run and choose a new k, press any key."
    PRINT ""
    PRINT "     press <Ctrl-Break> to end session"
    PRINT "     then, <Shift-F5> to start a new session with a new speed value"
    PRINT "     or use menu - File: Exit to close program"
    PRINT ""
    PRINT ""
    PRINT ""
   
    PRINT "     last run was k=";
    COLOR 3
    PRINT K
    COLOR 7
    PRINT "     type and enter a new value for k:"
    PRINT ""


    RANDOMIZE TIMER
    PRINT "     ";
    INPUT K
    COL = 1
    X = RND
    CLS : LOCATE 25, 3: COLOR 8
    PRINT K
260 TEM1 = TEM
    TEM = X
'  
    X = K * X * (1 - X)
'  
    COL = COL + 1
      
    IF COL = 81 THEN
    CLS : LOCATE 25, 3: COLOR 8
    PRINT K
    COL = 1
    END IF
      
    COLOR TEM1 * 10
    ROW = INT(22 * (1 - X)) + 1
    FOR N = 1 TO 23
    LOCATE N, COL
    PRINT " ": NEXT N
    LOCATE ROW, COL
    PRINT "Û"
    SOUND 80 + 500 * X, .22
    FOR Z = 1 TO SL: NEXT Z
    IF INKEY$ = "" GOTO 260
    CLS : COLOR 15: GOTO 120
    END