'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
J1Byb2dyYW0gUElDSEZPUksKJwonRXhoaWJpdHMgdGhlIHBlcmlvZC1kb3VibGluZyB0b3dhcmQgY2hhb3MKJ2dlbmVyYXRlZCBieSB0aGUgVmVyaHVsc3QgaXRlcmF0aW9uCicKJyAgICAgICB4ID0gcngoMS14KQonCidhcyB0aGUgZ3Jvd3RoIHBhcmFtZXRlciByIGlzIGluY3JlYXNlZAonaW4gdGhlIHJhbmdlIGZyb20gYWJvdXQgMyB0byBhYm91dCA0CicnCkRFRkRCTCBILEssUixYCkRFRklOVCBJLEosTSxOLFAsUQpJTlBVVCAiUm1pbixSbWF4IjsgUk1JTiwgUk1BWCAndHJ5IDIuOCBhbmQgNC4wJwpJTlBVVCAiWG1pbixYbWF4IjsgWE1JTiwgWE1BWCAndHJ5IDEgYW5kIDAnCgpLRVkgT0ZGIDogQ0xTCidTQ1JFRU4gMSA6IE4gPSAzMTknClNDUkVFTiAyIDogTiA9IDYzOQpNID0gMjAwCkggPSAoUk1BWCAtIFJNSU4pL04KSyA9IChYTUFYIC0gWE1JTikvTQoKTElORSAoMCwwKSAtIChOLDApICdkcmF3cyBhIGJveCBhcm91bmQgdGhlIHNjcmVlbicKTElORSAtIChOLDE5OSkKTElORSAtICgwLDE5OSkKTElORSAtICgwLDApCgpGb3IgUCA9IDEgVG8gOSAndGljayBtYXJrcyBvbiB0b3AgYW5kIGJvdHRvbSBvZiBib3gKICAgIFEgPSAoUCooTisxKS8xMCktMQogICAgTElORSAoUSwwKSAtIChRLDUpCiAgICBMSU5FIChRLDE5NSkgLSAoUSwxOTkpCk5leHQgUCAgICAKCkZvciBKID0gMCBUbyBOICdKdGggdmVydGljYWwgY29sdW1uIG9mIHBpeGVscyBvbiBzY3JlZW4KICAgIFIgPSBSTUlOICsgSipICiAgICBYID0gLjUKICAgIEZvciBQID0gMCBUbyAxMDAwICdUaGVzZSBpdGVyYXRpb25zIHRvIHNldHRsZSBkb3duCiAgICAgICAgWCA9IFIqWCooMS1YKQogICAgTmV4dCBQCiAgICBGb3IgUSA9IDAgVG8gMjUwICdUaGVzZSBpdGVyYXRpb25zIGFyZSByZWNvcmRlZAogICAgICAgIFggPSBSKlgqKDEtWCkKICAgICAgICBJID0gSU5UKChYIC0gWE1JTikvSykKICAgICAgICBJID0gMjAwIC0gSQogICAgICAgIElmICgwPD1JKSBBbmQgKEk8MjAwKSBUaGVuIFBTRVQgKEosSSkKICAgIE5leHQgUQpOZXh0IEoKCldoaWxlIElOS0VZJCA9ICIiICdQcmVzcyBhIGtleSB3aGVuIGZpbmlzaGVkIGxvb2tpbmcKV2VuZApTQ1JFRU4gMCA6IENMUyA6IEtFWSBPTgpFbmQ=
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