"Fossies" - the Fresh Open Source Software Archive

Member "bc-1.06.95/Test/testfn.b" (7 Jul 2000, 1011 Bytes) of package /linux/misc/old/bc-1.06.95.tar.gz:


As a special service "Fossies" has tried to format the requested source page into HTML format using (guessed) Limbo source code syntax highlighting (style: standard) with prefixed line numbers. Alternatively you can here view or download the uninterpreted source code file.

    1 /* This function "t" tests the function "f" to see if computing at
    2    two different scales has much effect on the accuracy. 
    3    test from f(x) to f(y) incrementing the index by d.  f(i) is
    4    computed at two scales, scale s and then scale t, where t>s.
    5    the result from scale t is divided by 1 at scale s and the
    6    results are compared.  If they are different, the function is
    7    said to have failed.  It will then print out the value of i
    8    (called index) and the two original values val1 (scale s) and
    9    val2 (scale t) */
   10 
   11 define t (x,y,d,s,t) {
   12    auto u, v, w, i, b, c;
   13 
   14    if (s >= t) {
   15      "Bad Scales. Try again.
   16 ";   return;
   17    }
   18 
   19    for (i = x; i < y; i += d) {
   20      scale = s;
   21      u = f(i);
   22      scale = t;
   23      v = f(i);
   24      scale = s;
   25      w = v / 1;
   26      b += 1;
   27      if (u != w) {
   28        c += 1;
   29 "
   30 Failed:  
   31 "
   32        "  index = "; i;
   33        "  val1 = "; u;
   34        "  val2 = "; v;
   35 "
   36 "
   37      }
   38    }
   39 
   40 "
   41 Total tests:    "; b;
   42 "
   43 Total failures: "; c;
   44 "
   45 Percent failed: "; scale = 2; c*100/b;
   46 
   47 }