Search found 4 matches

by frenchfry
Mon Aug 30, 2010 4:10 pm
Forum: General Discussion
Topic: Random Piano Experiment
Replies: 10
Views: 10416

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...
by frenchfry
Mon Aug 30, 2010 4:06 pm
Forum: General Discussion
Topic: Chaos to Order experiment two.
Replies: 0
Views: 4934

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...
by frenchfry
Tue Aug 24, 2010 12:42 pm
Forum: General Discussion
Topic: Chaos to Order Experiment
Replies: 2
Views: 4530

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
by frenchfry
Tue Aug 24, 2010 12:41 pm
Forum: General Discussion
Topic: Chaos to Order Experiment
Replies: 0
Views: 4920

Chaos to Order Experiment

10 SCREEN 8
20 ' neuron one


50 a = INT(RND(1) * 8) + 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