Return to math.c CVS log

Up to [Research Unix] / researchv10no / cmd / hoc

Annotation of researchv10no/cmd/hoc/math.c, revision 1.1.1.1

1.1       root        1: #include <math.h>
                      2: #include <errno.h>
                      3: extern int     errno;
                      4: double errcheck();
                      5: 
                      6: double Log(x)
                      7:        double x;
                      8: {
                      9:        return errcheck(log(x), "log");
                     10: }
                     11: double Log10(x)
                     12:        double x;
                     13: {
                     14:        return errcheck(log10(x), "log10");
                     15: }
                     16: 
                     17: double Sqrt(x)
                     18:        double x;
                     19: {
                     20:        return errcheck(sqrt(x), "sqrt");
                     21: }
                     22: 
                     23: double Gamma(x)
                     24:        double x;
                     25: {
                     26:        double y;
                     27:        extern int signgam;
                     28:        y=errcheck(gamma(x), "gamma");
                     29:        if(y>88.0)
                     30:                execerror("gamma result out of range", (char *)0);
                     31:        return signgam*exp(y);
                     32: }
                     33: 
                     34: double Exp(x)
                     35:        double x;
                     36: {
                     37:        return errcheck(exp(x), "exp");
                     38: }
                     39: 
                     40: double Asin(x)
                     41:        double x;
                     42: {
                     43:        return errcheck(asin(x), "asin");
                     44: }
                     45: 
                     46: double Acos(x)
                     47:        double x;
                     48: {
                     49:        return errcheck(acos(x), "acos");
                     50: }
                     51: 
                     52: double Sinh(x)
                     53:        double x;
                     54: {
                     55:        return errcheck(sinh(x), "sinh");
                     56: }
                     57: 
                     58: double Cosh(x)
                     59:        double x;
                     60: {
                     61:        return errcheck(cosh(x), "cosh");
                     62: }
                     63: 
                     64: double Pow(x, y)
                     65:        double x, y;
                     66: {
                     67:        return errcheck(pow(x,y), "exponentiation");
                     68: }
                     69: 
                     70: double integer(x)
                     71:        double x;
                     72: {
                     73:        return (double)(long)x;
                     74: }
                     75: 
                     76: double errcheck(d, s)  /* check result of library call */
                     77:        double d;
                     78:        char *s;
                     79: {
                     80:        if (errno == EDOM) {
                     81:                errno = 0;
                     82:                execerror(s, "argument out of domain");
                     83:        } else if (errno == ERANGE) {
                     84:                errno = 0;
                     85:                execerror(s, "result out of range");
                     86:        }
                     87:        return d;
                     88: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.