Search found 4 matches
- Mon Aug 30, 2010 4:10 pm
- Forum: General Discussion
- Topic: Random Piano Experiment
- Replies: 10
- Views: 28746
Random Piano Experiment
10 RANDOMIZE TIMER 100 a = INT(RND(1) * 7) 110 b = INT(RND(1) * 7) 120 IF a = b THEN 200 ELSE 100 200 e = INT(RND(1) * 6) 210 f = INT(RND(1) * 600) 220 IF e = f THEN 300 ELSE 200 300 h = INT(RND(1) * 10) + 1 310 i = INT(RND(1) * 1000) 320 IF h = i THEN 400 ELSE 300 400 k = INT(RND(1) * 10) 410 l = I...
- Mon Aug 30, 2010 4:06 pm
- Forum: General Discussion
- Topic: Chaos to Order experiment two.
- Replies: 0
- Views: 14907
Chaos to Order experiment two.
1 CLS 5 SCREEN 12 6 c = 1: d = 1 10 RANDOMIZE TIMER 100 a = INT(RND(1) * 4) + 1 110 b = INT(RND(1) * 3) + 1 115 zz = INT(RND(1) * 5) 116 RANDOMIZE TIMER 120 IF a <> b THEN 200 ELSE 10 200 RANDOMIZE TIMER 500 IF a = 3 THEN c = c + 1 510 IF a = 2 THEN c = c - 1 520 IF b = 3 THEN d = d + 1 530 IF b = 2...
- Tue Aug 24, 2010 12:42 pm
- Forum: General Discussion
- Topic: Chaos to Order Experiment
- Replies: 2
- Views: 11012
Chaos to Order Experiment
10 SCREEN 8
20 ' neuron one
50 a = INT(RND(1) * 7 ) + 1
60 y = INT(RND(1) * 1000) + 1
70 z = INT(RND(1) * 1000) + 1
80 IF y = z THEN 500 ELSE 50
500 CIRCLE (320, 100), y, a
600 GOTO 50
20 ' neuron one
50 a = INT(RND(1) * 7 ) + 1
60 y = INT(RND(1) * 1000) + 1
70 z = INT(RND(1) * 1000) + 1
80 IF y = z THEN 500 ELSE 50
500 CIRCLE (320, 100), y, a
600 GOTO 50
- Tue Aug 24, 2010 12:41 pm
- Forum: General Discussion
- Topic: Chaos to Order Experiment
- Replies: 0
- Views: 14665
Chaos to Order Experiment
10 SCREEN 8
20 ' neuron one
50 a = INT(RND(1) * + 1
60 y = INT(RND(1) * 1000) + 1
70 z = INT(RND(1) * 1000) + 1
80 IF y = z THEN 500 ELSE 50
500 CIRCLE (320, 100), y, a
600 GOTO 50
20 ' neuron one
50 a = INT(RND(1) * + 1
60 y = INT(RND(1) * 1000) + 1
70 z = INT(RND(1) * 1000) + 1
80 IF y = z THEN 500 ELSE 50
500 CIRCLE (320, 100), y, a
600 GOTO 50