Merge from vendor branch DIFFUTILS:
[dragonfly.git] / contrib / bc / Test / testfn.b
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 }