## "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 }