|
Packit |
70b277 |
define t (x,y,d,s,t) {
|
|
Packit |
70b277 |
auto u, v, w, i, b, c;
|
|
Packit |
70b277 |
|
|
Packit |
70b277 |
if (s >= t) {
|
|
Packit |
70b277 |
"Bad Scales. Try again.
|
|
Packit |
70b277 |
"; return;
|
|
Packit |
70b277 |
}
|
|
Packit |
70b277 |
|
|
Packit |
70b277 |
for (i = x; i < y; i += d) {
|
|
Packit |
70b277 |
scale = s;
|
|
Packit |
70b277 |
u = f(i);
|
|
Packit |
70b277 |
scale = t;
|
|
Packit |
70b277 |
v = f(i);
|
|
Packit |
70b277 |
scale = s;
|
|
Packit |
70b277 |
w = v / 1;
|
|
Packit |
70b277 |
b += 1;
|
|
Packit |
70b277 |
if (u != w) {
|
|
Packit |
70b277 |
c += 1;
|
|
Packit |
70b277 |
"
|
|
Packit |
70b277 |
Failed:
|
|
Packit |
70b277 |
"
|
|
Packit |
70b277 |
" index = "; i;
|
|
Packit |
70b277 |
" val1 = "; u;
|
|
Packit |
70b277 |
" val2 = "; v;
|
|
Packit |
70b277 |
"
|
|
Packit |
70b277 |
"
|
|
Packit |
70b277 |
}
|
|
Packit |
70b277 |
}
|
|
Packit |
70b277 |
|
|
Packit |
70b277 |
"
|
|
Packit |
70b277 |
Total tests: "; b;
|
|
Packit |
70b277 |
"
|
|
Packit |
70b277 |
Total failures: "; c;
|
|
Packit |
70b277 |
"
|
|
Packit |
70b277 |
Percent failed: "; scale = 2; c*100/b;
|
|
Packit |
70b277 |
|
|
Packit |
70b277 |
}
|
|
Packit |
70b277 |
|
|
Packit |
70b277 |
/*
|
|
Packit |
70b277 |
b = begining scale value,
|
|
Packit |
70b277 |
l = limit scale value,
|
|
Packit |
70b277 |
i = increment scale value.
|
|
Packit |
70b277 |
|
|
Packit |
70b277 |
if b is set to a non-zero value before this file is executed,
|
|
Packit |
70b277 |
b, l and i are not reset.
|
|
Packit |
70b277 |
*/
|
|
Packit |
70b277 |
|
|
Packit |
70b277 |
if (b == 0) { b = 10; l = 61; i = 10; }
|
|
Packit |
70b277 |
|
|
Packit |
70b277 |
"
|
|
Packit |
70b277 |
Checking e(x)"
|
|
Packit |
70b277 |
define f(x) {
|
|
Packit |
70b277 |
return (e(x))
|
|
Packit |
70b277 |
}
|
|
Packit |
70b277 |
for (s=10; s
|
|
Packit |
70b277 |
"
|
|
Packit |
70b277 |
scale = "; s
|
|
Packit |
70b277 |
j = t(0,200,1,s,s+4)
|
|
Packit |
70b277 |
}
|
|
Packit |
70b277 |
|
|
Packit |
70b277 |
"
|
|
Packit |
70b277 |
Checking l(x)"
|
|
Packit |
70b277 |
define f(x) {
|
|
Packit |
70b277 |
return (l(x))
|
|
Packit |
70b277 |
}
|
|
Packit |
70b277 |
for (s=10; s
|
|
Packit |
70b277 |
"
|
|
Packit |
70b277 |
scale = "; s
|
|
Packit |
70b277 |
j = t(1,10000,25,s,s+4)
|
|
Packit |
70b277 |
}
|
|
Packit |
70b277 |
|
|
Packit |
70b277 |
"
|
|
Packit |
70b277 |
Checking s(x)"
|
|
Packit |
70b277 |
define f(x) {
|
|
Packit |
70b277 |
return (s(x))
|
|
Packit |
70b277 |
}
|
|
Packit |
70b277 |
for (s=10; s
|
|
Packit |
70b277 |
"
|
|
Packit |
70b277 |
scale = "; s
|
|
Packit |
70b277 |
j = t(0,8*a(1),.01,s,s+4)
|
|
Packit |
70b277 |
}
|
|
Packit |
70b277 |
|
|
Packit |
70b277 |
"
|
|
Packit |
70b277 |
Checking a(x)"
|
|
Packit |
70b277 |
define f(x) {
|
|
Packit |
70b277 |
return (a(x))
|
|
Packit |
70b277 |
}
|
|
Packit |
70b277 |
for (s=10; s
|
|
Packit |
70b277 |
"
|
|
Packit |
70b277 |
scale = "; s
|
|
Packit |
70b277 |
j = t(-1000,1000,10,s,s+4)
|
|
Packit |
70b277 |
}
|
|
Packit |
70b277 |
|
|
Packit |
70b277 |
"
|
|
Packit |
70b277 |
Checking j(n,x)"
|
|
Packit |
70b277 |
define f(x) {
|
|
Packit |
70b277 |
return (j(n,x))
|
|
Packit |
70b277 |
}
|
|
Packit |
70b277 |
for (s=10; s
|
|
Packit |
70b277 |
"
|
|
Packit |
70b277 |
n=0, scale = "; s
|
|
Packit |
70b277 |
n=0
|
|
Packit |
70b277 |
j = t(0,30,.1,s,s+4)
|
|
Packit |
70b277 |
"
|
|
Packit |
70b277 |
n=1, scale = "; s
|
|
Packit |
70b277 |
n=1
|
|
Packit |
70b277 |
j = t(0,30,.1,s,s+4)
|
|
Packit |
70b277 |
}
|
|
Packit |
70b277 |
|