rc/bin/approx

   1 #!/bin/rc
   2 if(! ~ $#* 3){
   3         echo usage: approx ratio min max
   4         exit usage
   5 }
   6 echo $1 $2 $3 | awk '
   7 {
   8         y=$1;
   9         min=$2;
  10         max=$3;
  11         for(i = min; i <= max; i++){
  12                 k = int(y*i+0.5);
  13                 z = (k/i/y-1)*100;
  14                 if(z < 0)
  15                         z = -z;
  16                 if(i == min || z < zm){
  17                         zm = z;
  18                         printf("%d/%d\t%g\t%.2g%%\n", k, i, k/i, z);
  19                 }
  20         }
  21         exit
  22 }
  23 '