fork download

copy

'Program PICHFORK
'
'Exhibits the period-doubling toward chaos
'generated by the Verhulst iteration
'
'       x = rx(1-x)
'
'as the growth parameter r is increased
'in the range from about 3 to about 4
''
DEFDBL H,K,R,X
DEFINT I,J,M,N,P,Q
INPUT "Rmin,Rmax"; RMIN, RMAX 'try 2.8 and 4.0'
INPUT "Xmin,Xmax"; XMIN, XMAX 'try 1 and 0'
 
KEY OFF : CLS
'SCREEN 1 : N = 319'
SCREEN 2 : N = 639
M = 200
H = (RMAX - RMIN)/N
K = (XMAX - XMIN)/M
 
LINE (0,0) - (N,0) 'draws a box around the screen'
LINE - (N,199)
LINE - (0,199)
LINE - (0,0)
 
For P = 1 To 9 'tick marks on top and bottom of box
    Q = (P*(N+1)/10)-1
    LINE (Q,0) - (Q,5)
    LINE (Q,195) - (Q,199)
Next P    
 
For J = 0 To N 'Jth vertical column of pixels on screen
    R = RMIN + J*H
    X = .5
    For P = 0 To 1000 'These iterations to settle down
        X = R*X*(1-X)
    Next P
    For Q = 0 To 250 'These iterations are recorded
        X = R*X*(1-X)
        I = INT((X - XMIN)/K)
        I = 200 - I
        If (0<=I) And (I<200) Then PSET (J,I)
    Next Q
Next J
 
While INKEY$ = "" 'Press a key when finished looking
Wend
SCREEN 0 : CLS : KEY ON
End

Visual Basic.Net Compiler version 0.0.0.5943 (Mono 3.8 - tarball)
Copyright (C) 2004-2010 Rolf Bjarne Kvinge. All rights reserved.

/home/M1kOk5/prog.vb (11,7) : error VBNC30203: Identifier expected.
/home/M1kOk5/prog.vb (12,7) : error VBNC30203: Identifier expected.
/home/M1kOk5/prog.vb (13,6) : error VBNC30203: Identifier expected.
/home/M1kOk5/prog.vb (13,18) : error VBNC30037: Symbol is not valid.
/home/M1kOk5/prog.vb (14,6) : error VBNC30203: Identifier expected.
/home/M1kOk5/prog.vb (14,18) : error VBNC30037: Symbol is not valid.
/home/M1kOk5/prog.vb (16,4) : error VBNC30203: Identifier expected.
/home/M1kOk5/prog.vb (18,7) : error VBNC30203: Identifier expected.
/home/M1kOk5/prog.vb (19,2) : error VBNC30203: Identifier expected.
/home/M1kOk5/prog.vb (20,2) : error VBNC30203: Identifier expected.
/home/M1kOk5/prog.vb (21,2) : error VBNC30203: Identifier expected.
/home/M1kOk5/prog.vb (23,5) : error VBNC30203: Identifier expected.
/home/M1kOk5/prog.vb (24,5) : error VBNC30203: Identifier expected.
/home/M1kOk5/prog.vb (25,5) : error VBNC30203: Identifier expected.
/home/M1kOk5/prog.vb (26,5) : error VBNC30203: Identifier expected.
/home/M1kOk5/prog.vb (28,4) : error VBNC30203: Identifier expected.
/home/M1kOk5/prog.vb (29,6) : error VBNC30203: Identifier expected.
/home/M1kOk5/prog.vb (30,9) : error VBNC30203: Identifier expected.
/home/M1kOk5/prog.vb (31,9) : error VBNC30203: Identifier expected.
/home/M1kOk5/prog.vb (32,5) : error VBNC30203: Identifier expected.
/home/M1kOk5/prog.vb (34,4) : error VBNC30203: Identifier expected.
/home/M1kOk5/prog.vb (35,6) : error VBNC30203: Identifier expected.
/home/M1kOk5/prog.vb (36,6) : error VBNC30203: Identifier expected.
/home/M1kOk5/prog.vb (37,8) : error VBNC30203: Identifier expected.
/home/M1kOk5/prog.vb (38,10) : error VBNC30203: Identifier expected.
/home/M1kOk5/prog.vb (39,9) : error VBNC30203: Identifier expected.
/home/M1kOk5/prog.vb (40,8) : error VBNC30203: Identifier expected.
/home/M1kOk5/prog.vb (41,10) : error VBNC30203: Identifier expected.
/home/M1kOk5/prog.vb (42,10) : error VBNC30203: Identifier expected.
/home/M1kOk5/prog.vb (43,10) : error VBNC30203: Identifier expected.
/home/M1kOk5/prog.vb (44,11) : error VBNC30203: Identifier expected.
/home/M1kOk5/prog.vb (45,9) : error VBNC30203: Identifier expected.
/home/M1kOk5/prog.vb (46,5) : error VBNC30203: Identifier expected.
/home/M1kOk5/prog.vb (48,6) : error VBNC30203: Identifier expected.
/home/M1kOk5/prog.vb (49,5) : error VBNC30203: Identifier expected.
/home/M1kOk5/prog.vb (50,7) : error VBNC30203: Identifier expected.
/home/M1kOk5/prog.vb (51,4) : error VBNC30203: Identifier expected.
There were 37 errors and 0 warnings.
Compilation took 00:00:00.6645190

Standard output is empty