1: define t (x,y,d,s,t) { 2: auto u, v, w, i, b, c; 3: 4: if (s >= t) { 5: "Bad Scales. Try again. 6: "; return; 7: } 8: 9: for (i = x; i < y; i += d) { 10: scale = s; 11: u = f(i); 12: scale = t; 13: v = f(i); 14: scale = s; 15: w = v / 1; 16: b += 1; 17: if (u != w) { 18: c += 1; 19: " 20: Failed: 21: " 22: " index = "; i; 23: " val1 = "; u; 24: " val2 = "; v; 25: " 26: " 27: } 28: } 29: 30: " 31: Total tests: "; b; 32: " 33: Total failures: "; c; 34: " 35: Percent failed: "; scale = 2; c*100/b; 36: 37: } 38: 39: /* 40: b = begining scale value, 41: l = limit scale value, 42: i = increment scale value. 43: 44: if b is set to a non-zero value before this file is executed, 45: b, l and i are not reset. 46: */ 47: 48: if (b == 0) { b = 10; l = 61; i = 10; } 49: 50: " 51: Checking e(x)" 52: define f(x) { 53: return (e(x)) 54: } 55: for (s=10; s<l; s=s+i) { 56: " 57: scale = "; s 58: j = t(0,200,1,s,s+4) 59: } 60: 61: " 62: Checking l(x)" 63: define f(x) { 64: return (l(x)) 65: } 66: for (s=10; s<l; s=s+i) { 67: " 68: scale = "; s 69: j = t(1,10000,25,s,s+4) 70: } 71: 72: " 73: Checking s(x)" 74: define f(x) { 75: return (s(x)) 76: } 77: for (s=10; s<l; s=s+i) { 78: " 79: scale = "; s 80: j = t(0,8*a(1),.01,s,s+4) 81: } 82: 83: " 84: Checking a(x)" 85: define f(x) { 86: return (a(x)) 87: } 88: for (s=10; s<l; s=s+i) { 89: " 90: scale = "; s 91: j = t(-1000,1000,10,s,s+4) 92: } 93: 94: " 95: Checking j(n,x)" 96: define f(x) { 97: return (j(n,x)) 98: } 99: for (s=10; s<l; s=s+i) { 100: " 101: n=0, scale = "; s 102: n=0 103: j = t(0,30,.1,s,s+4) 104: " 105: n=1, scale = "; s 106: n=1 107: j = t(0,30,.1,s,s+4) 108: } 109: |