mirror of
https://github.com/lcn2/calc.git
synced 2025-08-16 01:03:29 +03:00
convert ASCII TABs to ASCII SPACEs
Converted all ASCII tabs to ASCII spaces using a 8 character tab stop, for all files, except for all Makefiles (plus rpm.mk). The `git diff -w` reports no changes.
This commit is contained in:
Landon Curt Noll
@@ -11,7 +11,7 @@
|
||||
*
|
||||
* Calc is distributed in the hope that it will be useful, but WITHOUT
|
||||
* ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
|
||||
* or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General
|
||||
* or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General
|
||||
* Public License for more details.
|
||||
*
|
||||
* A copy of version 2.1 of the GNU Lesser General Public License is
|
||||
@@ -19,10 +19,10 @@
|
||||
* received a copy with calc; if not, write to Free Software Foundation, Inc.
|
||||
* 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
|
||||
*
|
||||
* Under source code control: 1995/12/02 05:20:11
|
||||
* File existed as early as: 1995
|
||||
* Under source code control: 1995/12/02 05:20:11
|
||||
* File existed as early as: 1995
|
||||
*
|
||||
* Share and enjoy! :-) http://www.isthe.com/chongo/tech/comp/calc/
|
||||
* Share and enjoy! :-) http://www.isthe.com/chongo/tech/comp/calc/
|
||||
*/
|
||||
|
||||
/*
|
||||
@@ -50,223 +50,223 @@
|
||||
*/
|
||||
|
||||
|
||||
defaultverbose = 1; /* default verbose value */
|
||||
defaultverbose = 1; /* default verbose value */
|
||||
|
||||
global pi1k = pi(1e-1000);
|
||||
|
||||
define test3401(str, n, eps, verbose)
|
||||
{
|
||||
local i, m, x, y, N;
|
||||
local i, m, x, y, N;
|
||||
|
||||
if (isnull(verbose)) verbose = defaultverbose;
|
||||
if (verbose > 0) {
|
||||
print str:":",:;
|
||||
}
|
||||
if (isnull(n)) n = 250;
|
||||
if (isnull(eps)) eps = epsilon();
|
||||
if (isnull(verbose)) verbose = defaultverbose;
|
||||
if (verbose > 0) {
|
||||
print str:":",:;
|
||||
}
|
||||
if (isnull(n)) n = 250;
|
||||
if (isnull(eps)) eps = epsilon();
|
||||
|
||||
m = 0;
|
||||
N = pi(eps)/eps;
|
||||
for (i = 0; i < n; i++) {
|
||||
x = rand(1, N) * eps;
|
||||
y = cot(x, eps);
|
||||
if (verbose > 1)
|
||||
printf("%r\n", x);
|
||||
if (abs(acot(y, eps) - x) > eps) {
|
||||
if (verbose > 1) {
|
||||
printf("*** Failure for x = %r\n", x);
|
||||
}
|
||||
m++;
|
||||
}
|
||||
}
|
||||
if (verbose > 0) {
|
||||
if (m) {
|
||||
printf("*** %d error(s)\n", m);
|
||||
} else {
|
||||
printf("no errors\n");
|
||||
}
|
||||
}
|
||||
return m;
|
||||
m = 0;
|
||||
N = pi(eps)/eps;
|
||||
for (i = 0; i < n; i++) {
|
||||
x = rand(1, N) * eps;
|
||||
y = cot(x, eps);
|
||||
if (verbose > 1)
|
||||
printf("%r\n", x);
|
||||
if (abs(acot(y, eps) - x) > eps) {
|
||||
if (verbose > 1) {
|
||||
printf("*** Failure for x = %r\n", x);
|
||||
}
|
||||
m++;
|
||||
}
|
||||
}
|
||||
if (verbose > 0) {
|
||||
if (m) {
|
||||
printf("*** %d error(s)\n", m);
|
||||
} else {
|
||||
printf("no errors\n");
|
||||
}
|
||||
}
|
||||
return m;
|
||||
}
|
||||
|
||||
define test3402(str, n, eps, verbose)
|
||||
{
|
||||
local i, m, x, y, N;
|
||||
local i, m, x, y, N;
|
||||
|
||||
if (isnull(verbose)) verbose = defaultverbose;
|
||||
if (verbose > 0) {
|
||||
print str:":",:;
|
||||
}
|
||||
if (isnull(n)) n = 250;
|
||||
if (isnull(eps)) eps = epsilon();
|
||||
if (isnull(verbose)) verbose = defaultverbose;
|
||||
if (verbose > 0) {
|
||||
print str:":",:;
|
||||
}
|
||||
if (isnull(n)) n = 250;
|
||||
if (isnull(eps)) eps = epsilon();
|
||||
|
||||
eps = abs(eps);
|
||||
m = 0;
|
||||
N = 1e10;
|
||||
for (i = 0; i < n; i++) {
|
||||
x = rand(-N, N)/rand(1, N);
|
||||
y = tan(x/2, eps) - csc(x,eps) + cot(x,eps);
|
||||
if (verbose > 1)
|
||||
printf("%r\n", x);
|
||||
if (abs(y) > eps) {
|
||||
if (verbose > 1) {
|
||||
printf("*** Failure for x = %r\n", x);
|
||||
}
|
||||
m++;
|
||||
}
|
||||
}
|
||||
if (verbose > 0) {
|
||||
if (m) {
|
||||
printf("*** %d error(s)\n", m);
|
||||
} else {
|
||||
printf("no errors\n");
|
||||
}
|
||||
}
|
||||
return m;
|
||||
eps = abs(eps);
|
||||
m = 0;
|
||||
N = 1e10;
|
||||
for (i = 0; i < n; i++) {
|
||||
x = rand(-N, N)/rand(1, N);
|
||||
y = tan(x/2, eps) - csc(x,eps) + cot(x,eps);
|
||||
if (verbose > 1)
|
||||
printf("%r\n", x);
|
||||
if (abs(y) > eps) {
|
||||
if (verbose > 1) {
|
||||
printf("*** Failure for x = %r\n", x);
|
||||
}
|
||||
m++;
|
||||
}
|
||||
}
|
||||
if (verbose > 0) {
|
||||
if (m) {
|
||||
printf("*** %d error(s)\n", m);
|
||||
} else {
|
||||
printf("no errors\n");
|
||||
}
|
||||
}
|
||||
return m;
|
||||
}
|
||||
|
||||
define test3403(str, n, eps, verbose)
|
||||
{
|
||||
local i, m, x, y, N;
|
||||
local i, m, x, y, N;
|
||||
|
||||
if (isnull(verbose)) verbose = defaultverbose;
|
||||
if (verbose > 0) {
|
||||
print str:":",:;
|
||||
}
|
||||
if (isnull(n)) n = 250;
|
||||
if (isnull(eps)) eps = epsilon();
|
||||
if (isnull(verbose)) verbose = defaultverbose;
|
||||
if (verbose > 0) {
|
||||
print str:":",:;
|
||||
}
|
||||
if (isnull(n)) n = 250;
|
||||
if (isnull(eps)) eps = epsilon();
|
||||
|
||||
eps = abs(eps);
|
||||
m = 0;
|
||||
N = 1e10;
|
||||
for (i = 0; i < n; i++) {
|
||||
x = rand(-N, N)/rand(1, N);
|
||||
y = tan(x, eps) - cot(x,eps) + 2 * cot(2 * x,eps);
|
||||
if (verbose > 1)
|
||||
printf("%r\n", x);
|
||||
if (abs(y) > eps) {
|
||||
m++;
|
||||
if (verbose > 1) {
|
||||
printf("*** Failure for x = %r\n", x);
|
||||
}
|
||||
}
|
||||
}
|
||||
if (verbose > 0) {
|
||||
if (m) {
|
||||
printf("*** %d error(s)\n", m);
|
||||
} else {
|
||||
printf("no errors\n");
|
||||
}
|
||||
}
|
||||
return m;
|
||||
eps = abs(eps);
|
||||
m = 0;
|
||||
N = 1e10;
|
||||
for (i = 0; i < n; i++) {
|
||||
x = rand(-N, N)/rand(1, N);
|
||||
y = tan(x, eps) - cot(x,eps) + 2 * cot(2 * x,eps);
|
||||
if (verbose > 1)
|
||||
printf("%r\n", x);
|
||||
if (abs(y) > eps) {
|
||||
m++;
|
||||
if (verbose > 1) {
|
||||
printf("*** Failure for x = %r\n", x);
|
||||
}
|
||||
}
|
||||
}
|
||||
if (verbose > 0) {
|
||||
if (m) {
|
||||
printf("*** %d error(s)\n", m);
|
||||
} else {
|
||||
printf("no errors\n");
|
||||
}
|
||||
}
|
||||
return m;
|
||||
}
|
||||
|
||||
define test3404(str, n, eps, verbose)
|
||||
{
|
||||
local i, m, x, y, N;
|
||||
local i, m, x, y, N;
|
||||
|
||||
if (isnull(verbose)) verbose = defaultverbose;
|
||||
if (verbose > 0) {
|
||||
print str:":",:;
|
||||
}
|
||||
if (isnull(n)) n = 250;
|
||||
if (isnull(eps)) eps = epsilon();
|
||||
if (isnull(verbose)) verbose = defaultverbose;
|
||||
if (verbose > 0) {
|
||||
print str:":",:;
|
||||
}
|
||||
if (isnull(n)) n = 250;
|
||||
if (isnull(eps)) eps = epsilon();
|
||||
|
||||
eps = abs(eps);
|
||||
m = 0;
|
||||
N = 1e10;
|
||||
for (i = 0; i < n; i++) {
|
||||
x = rand(-N, N)/rand(1, N);
|
||||
y = cot(x/2, eps) - csc(x,eps) - cot(x,eps);
|
||||
if (verbose > 1)
|
||||
printf("%r\n", x);
|
||||
if (abs(y) > eps) {
|
||||
m++;
|
||||
if (verbose > 1) {
|
||||
printf("*** Failure for x = %r\n", x);
|
||||
}
|
||||
}
|
||||
}
|
||||
if (verbose > 0) {
|
||||
if (m) {
|
||||
printf("*** %d error(s)\n", m);
|
||||
} else {
|
||||
printf("no errors\n");
|
||||
}
|
||||
}
|
||||
return m;
|
||||
eps = abs(eps);
|
||||
m = 0;
|
||||
N = 1e10;
|
||||
for (i = 0; i < n; i++) {
|
||||
x = rand(-N, N)/rand(1, N);
|
||||
y = cot(x/2, eps) - csc(x,eps) - cot(x,eps);
|
||||
if (verbose > 1)
|
||||
printf("%r\n", x);
|
||||
if (abs(y) > eps) {
|
||||
m++;
|
||||
if (verbose > 1) {
|
||||
printf("*** Failure for x = %r\n", x);
|
||||
}
|
||||
}
|
||||
}
|
||||
if (verbose > 0) {
|
||||
if (m) {
|
||||
printf("*** %d error(s)\n", m);
|
||||
} else {
|
||||
printf("no errors\n");
|
||||
}
|
||||
}
|
||||
return m;
|
||||
}
|
||||
|
||||
define test3405(str, n, eps, verbose)
|
||||
{
|
||||
local i, m, x, y, N;
|
||||
local i, m, x, y, N;
|
||||
|
||||
if (isnull(verbose)) verbose = defaultverbose;
|
||||
if (verbose > 0) {
|
||||
print str:":",:;
|
||||
}
|
||||
if (isnull(n)) n = 250;
|
||||
if (isnull(eps)) eps = epsilon();
|
||||
if (isnull(verbose)) verbose = defaultverbose;
|
||||
if (verbose > 0) {
|
||||
print str:":",:;
|
||||
}
|
||||
if (isnull(n)) n = 250;
|
||||
if (isnull(eps)) eps = epsilon();
|
||||
|
||||
m = 0;
|
||||
N = pi(eps)/eps;
|
||||
N = quo(N, 2, 0);
|
||||
for (i = 0; i < n; i++) {
|
||||
x = rand(-N, N) * eps;
|
||||
y = tan(x, eps);
|
||||
if (verbose > 1)
|
||||
printf("%r\n", x);
|
||||
if (atan(y, eps) != x) {
|
||||
m++;
|
||||
if (verbose > 1) {
|
||||
printf("*** Failure for x = %r\n", x);
|
||||
}
|
||||
}
|
||||
}
|
||||
if (verbose > 0) {
|
||||
if (m) {
|
||||
printf("*** %d error(s)\n", m);
|
||||
} else {
|
||||
printf("no errors\n");
|
||||
}
|
||||
}
|
||||
return m;
|
||||
m = 0;
|
||||
N = pi(eps)/eps;
|
||||
N = quo(N, 2, 0);
|
||||
for (i = 0; i < n; i++) {
|
||||
x = rand(-N, N) * eps;
|
||||
y = tan(x, eps);
|
||||
if (verbose > 1)
|
||||
printf("%r\n", x);
|
||||
if (atan(y, eps) != x) {
|
||||
m++;
|
||||
if (verbose > 1) {
|
||||
printf("*** Failure for x = %r\n", x);
|
||||
}
|
||||
}
|
||||
}
|
||||
if (verbose > 0) {
|
||||
if (m) {
|
||||
printf("*** %d error(s)\n", m);
|
||||
} else {
|
||||
printf("no errors\n");
|
||||
}
|
||||
}
|
||||
return m;
|
||||
}
|
||||
|
||||
define test3406(str, n, eps, verbose)
|
||||
{
|
||||
local i, m, x, y, z, N;
|
||||
local i, m, x, y, z, N;
|
||||
|
||||
if (isnull(verbose)) verbose = defaultverbose;
|
||||
if (verbose > 0) {
|
||||
print str:":",:;
|
||||
}
|
||||
if (isnull(n)) n = 250;
|
||||
if (isnull(eps)) eps = epsilon();
|
||||
if (isnull(verbose)) verbose = defaultverbose;
|
||||
if (verbose > 0) {
|
||||
print str:":",:;
|
||||
}
|
||||
if (isnull(n)) n = 250;
|
||||
if (isnull(eps)) eps = epsilon();
|
||||
|
||||
m = 0;
|
||||
for (i = 0; i < n; i++) {
|
||||
x = rand(-1e10, 1e10)/rand(1, 1e10);
|
||||
N = rand(-1e10, 1e10);
|
||||
y = sec(x, eps);
|
||||
z = sec(x + 2 * N * pi1k, eps);
|
||||
if (verbose > 1)
|
||||
printf("%r, %d\n", x, N);
|
||||
if (abs(y-z) > eps) {
|
||||
m++;
|
||||
if (verbose > 1) {
|
||||
printf("*** Failure for x = %r\n", x);
|
||||
}
|
||||
}
|
||||
}
|
||||
if (verbose > 0) {
|
||||
if (m) {
|
||||
printf("*** %d error(s)\n", m);
|
||||
} else {
|
||||
printf("no errors\n");
|
||||
}
|
||||
}
|
||||
return m;
|
||||
m = 0;
|
||||
for (i = 0; i < n; i++) {
|
||||
x = rand(-1e10, 1e10)/rand(1, 1e10);
|
||||
N = rand(-1e10, 1e10);
|
||||
y = sec(x, eps);
|
||||
z = sec(x + 2 * N * pi1k, eps);
|
||||
if (verbose > 1)
|
||||
printf("%r, %d\n", x, N);
|
||||
if (abs(y-z) > eps) {
|
||||
m++;
|
||||
if (verbose > 1) {
|
||||
printf("*** Failure for x = %r\n", x);
|
||||
}
|
||||
}
|
||||
}
|
||||
if (verbose > 0) {
|
||||
if (m) {
|
||||
printf("*** %d error(s)\n", m);
|
||||
} else {
|
||||
printf("no errors\n");
|
||||
}
|
||||
}
|
||||
return m;
|
||||
}
|
||||
|
||||
/*
|
||||
@@ -274,45 +274,45 @@ define test3406(str, n, eps, verbose)
|
||||
*/
|
||||
define test3400(verbose, tnum)
|
||||
{
|
||||
local n; /* test parameter */
|
||||
local eps; /* test parameter */
|
||||
local i;
|
||||
local n; /* test parameter */
|
||||
local eps; /* test parameter */
|
||||
local i;
|
||||
|
||||
/*
|
||||
* set test parameters
|
||||
*/
|
||||
if (isnull(verbose)) {
|
||||
verbose = defaultverbose;
|
||||
}
|
||||
n = 250;
|
||||
eps = epsilon();
|
||||
srand(3400e3400);
|
||||
/*
|
||||
* set test parameters
|
||||
*/
|
||||
if (isnull(verbose)) {
|
||||
verbose = defaultverbose;
|
||||
}
|
||||
n = 250;
|
||||
eps = epsilon();
|
||||
srand(3400e3400);
|
||||
|
||||
/*
|
||||
* test a lot of stuff
|
||||
*/
|
||||
err += test3401(strcat(str(tnum++), \
|
||||
": acot(cot(x))"), n, eps, verbose);
|
||||
err += test3402(strcat(str(tnum++), \
|
||||
": tan(x/2)-csc(x)+cot(x)"), n, eps, verbose);
|
||||
err += test3403(strcat(str(tnum++), \
|
||||
": tan(x)-cot(x)+2*cot(2*x)"), n, eps, verbose);
|
||||
err += test3404(strcat(str(tnum++), \
|
||||
": cot(x/2)-csc(x)-cot(x)"), n, eps, verbose);
|
||||
err += test3405(strcat(str(tnum++), \
|
||||
": atan(tan(x))"), n, eps, verbose);
|
||||
err += test3406(strcat(str(tnum++), \
|
||||
": sec(x)-sec(x+2*N*pi)"), n, eps, verbose);
|
||||
/*
|
||||
* test a lot of stuff
|
||||
*/
|
||||
err += test3401(strcat(str(tnum++), \
|
||||
": acot(cot(x))"), n, eps, verbose);
|
||||
err += test3402(strcat(str(tnum++), \
|
||||
": tan(x/2)-csc(x)+cot(x)"), n, eps, verbose);
|
||||
err += test3403(strcat(str(tnum++), \
|
||||
": tan(x)-cot(x)+2*cot(2*x)"), n, eps, verbose);
|
||||
err += test3404(strcat(str(tnum++), \
|
||||
": cot(x/2)-csc(x)-cot(x)"), n, eps, verbose);
|
||||
err += test3405(strcat(str(tnum++), \
|
||||
": atan(tan(x))"), n, eps, verbose);
|
||||
err += test3406(strcat(str(tnum++), \
|
||||
": sec(x)-sec(x+2*N*pi)"), n, eps, verbose);
|
||||
|
||||
/*
|
||||
* test results
|
||||
*/
|
||||
if (verbose > 1) {
|
||||
if (err) {
|
||||
print "***", err, "error(s) found in test3400";
|
||||
} else {
|
||||
print "no errors in test3400";
|
||||
}
|
||||
}
|
||||
return tnum;
|
||||
/*
|
||||
* test results
|
||||
*/
|
||||
if (verbose > 1) {
|
||||
if (err) {
|
||||
print "***", err, "error(s) found in test3400";
|
||||
} else {
|
||||
print "no errors in test3400";
|
||||
}
|
||||
}
|
||||
return tnum;
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user