PF 2006

[Libor Chocholaty]

Zdenek Zikan wrote:

>BruXy wrote:
>  
>
>>S0=P; S1=F; S2=2; S3=0; S4=0;S5=6;e=echo;b=bc;I=-1; for x in `seq 1 24`;
>>do R=-2;  for y in `seq 1 80`; do B=0; r=0; i=0; while [ $B -le 32 ]; do
>>r2=`$e "$r*$r"  | $b`; i2=`$e "$i*$i" |$b`;  i=`$e "2.0*$i*$r+ $I" |$b`;
>>r=`$e  "$r2 - $i2+$R" |$b`;: $((B += 1));  V=`$e "($r2 +$i2) > 4" | $b`;  
>>if  [ "$V" -eq 1  ]; then break;  fi;  done; if  [ $B  -ge 32  ] ;  then
>>$e  -en "\E[01;40m ";  else U=$(( (B*4)/15+30));  $e  -en "\E[01;$U""m";
>>C=$((C%6));eval "$e -ne \$E\$S$C";: $((C+=1));fi;R=`$e "$R+0.03125" |$b`
>>done; $e -e "\E[m\E(";I=`$e "$I+0.08333" |$b`; done           #(c) BruXy
>>    
>>
>
>Tak to je pekne! Dekujem. :-)
>
>  
>
Proc jste to sem neposlal i s vysledkem?
Libor