Hlavní navigace

Názor k článku Matematika v příkazové řádce I od BruXy - Tohle je novorocni prani pro geeky, na floating...

Článek je starý, nové názory již nelze přidávat.

  • 24. 1. 2006 10:11

    BruXy (neregistrovaný)

    Tohle je novorocni prani pro geeky, na floating point aritmetiku je pouzito bc a tudiz to neni nejrychlejsi :))

    
    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 " ";  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 -en "\E[m\E(\n\r";I=`$e "$I+0.08333" |$b`; done      #(c) BruXy