I wrote a small program that generates alot of
regularity:
$pattern=
"#################################################################################################";
$r=1;
for(0..366000)
{
$x=1/($r**2);
$r=$r+0.01;
@t=split/\./,$x;
$t[1]=~m/^..(.)..(.)../; $p=$2.$1;
print $p.' '.substr($pattern,0,$p)."\n"
}
You can see the result by entering c:>perl this.pl > rw
and browsing through rw with word at 10% size (choose normal view)
Is this a fractal or chaos or something unknown ? it is the combination
of a formula and a simple logical operation that extracts a couple of
digits of the precision and graphs numbers out of them.
The / .../ matches the digits and $1 and $2 identifies which.
Any clues if these things are already known ?
Thanks eighth man