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 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/cdCjd1/prog.vb (11,7) : error VBNC30203: Identifier expected.
/home/cdCjd1/prog.vb (12,7) : error VBNC30203: Identifier expected.
/home/cdCjd1/prog.vb (13,6) : error VBNC30203: Identifier expected.
/home/cdCjd1/prog.vb (13,18) : error VBNC30037: Symbol is not valid.
/home/cdCjd1/prog.vb (14,6) : error VBNC30203: Identifier expected.
/home/cdCjd1/prog.vb (14,18) : error VBNC30037: Symbol is not valid.
/home/cdCjd1/prog.vb (16,4) : error VBNC30203: Identifier expected.
/home/cdCjd1/prog.vb (17,7) : error VBNC30203: Identifier expected.
/home/cdCjd1/prog.vb (18,2) : error VBNC30203: Identifier expected.
/home/cdCjd1/prog.vb (19,2) : error VBNC30203: Identifier expected.
/home/cdCjd1/prog.vb (20,2) : error VBNC30203: Identifier expected.
/home/cdCjd1/prog.vb (22,5) : error VBNC30203: Identifier expected.
/home/cdCjd1/prog.vb (23,5) : error VBNC30203: Identifier expected.
/home/cdCjd1/prog.vb (24,5) : error VBNC30203: Identifier expected.
/home/cdCjd1/prog.vb (25,5) : error VBNC30203: Identifier expected.
/home/cdCjd1/prog.vb (27,4) : error VBNC30203: Identifier expected.
/home/cdCjd1/prog.vb (28,6) : error VBNC30203: Identifier expected.
/home/cdCjd1/prog.vb (29,9) : error VBNC30203: Identifier expected.
/home/cdCjd1/prog.vb (30,9) : error VBNC30203: Identifier expected.
/home/cdCjd1/prog.vb (31,5) : error VBNC30203: Identifier expected.
/home/cdCjd1/prog.vb (33,4) : error VBNC30203: Identifier expected.
/home/cdCjd1/prog.vb (34,6) : error VBNC30203: Identifier expected.
/home/cdCjd1/prog.vb (35,6) : error VBNC30203: Identifier expected.
/home/cdCjd1/prog.vb (36,8) : error VBNC30203: Identifier expected.
/home/cdCjd1/prog.vb (37,10) : error VBNC30203: Identifier expected.
/home/cdCjd1/prog.vb (38,9) : error VBNC30203: Identifier expected.
/home/cdCjd1/prog.vb (39,8) : error VBNC30203: Identifier expected.
/home/cdCjd1/prog.vb (40,10) : error VBNC30203: Identifier expected.
/home/cdCjd1/prog.vb (41,10) : error VBNC30203: Identifier expected.
/home/cdCjd1/prog.vb (42,10) : error VBNC30203: Identifier expected.
/home/cdCjd1/prog.vb (43,11) : error VBNC30203: Identifier expected.
/home/cdCjd1/prog.vb (44,9) : error VBNC30203: Identifier expected.
/home/cdCjd1/prog.vb (45,5) : error VBNC30203: Identifier expected.
/home/cdCjd1/prog.vb (47,6) : error VBNC30203: Identifier expected.
/home/cdCjd1/prog.vb (48,5) : error VBNC30203: Identifier expected.
/home/cdCjd1/prog.vb (49,7) : error VBNC30203: Identifier expected.
/home/cdCjd1/prog.vb (50,4) : error VBNC30203: Identifier expected.
There were 37 errors and 0 warnings.
Compilation took 00:00:00.6747440

Standard output is empty