«fractal tweets» by aucotsi

on 05 Apr'12 18:26 in tweets
1
2
3
4
5
6
7
8
9
10
11
12
13
14
// I was looking some fractal structures, with a friend who studies the maths, and we found a // simple algorithm. So i made some tweets with the formula. 

r{inf.do{|i|a=i.asInteger.rand2;if(a.even){a=a/2}{a=a*3+1};play{SinOsc.ar(a,0,0.1)!2*EnvGen.ar(Env.perc,1,1,0,1,2)};0.07.wait;}}.play
//
r{inf.do{|i|a=i.asInteger;if(a.even){a=a/2}{a=a*3+1};play{SinOsc.ar(a,0,0.1)!2*EnvGen.ar(Env.perc,1,1,0,1,2)};0.01.wait;}}.play
//
a=(-23);r{inf.do{a=a.asInteger;a.postln;if(a.even){a=a/2}{a=a*3+1};play{SinOsc.ar(a,0,0.1)!2*EnvGen.ar(Env.perc,1,1,0,1,2)};0.1.wait}}.play
//
a=(-917);r{inf.do{a=a.asInteger.postln;if(a.even){a=a/2}{a=a*3+1};play{SinOsc.ar(a,0,0.1)!2*EnvGen.ar(Env.perc,1,1,0,1,2)};0.1.wait}}.play

// the funny thing is that when you have a negative input this folds into a loop!

// the correct formula is this below
a=73;r=r{inf.do{a=a.asInteger;if(a==1){r.stop};if(a.even){a=a/2}{a=a*3+1};play{Blip.ar(a)!2*EnvGen.ar(Env.perc,1,1,0,1,2)};0.1.wait}}.play
raw 979 chars (focus & ctrl+a+c to copy)
reception
comments
aucotsi user 08 Apr'12 14:02

likelihood fractals aren't the proper definition, these are chaotic feedback sequences