Return to norm.c CVS log

Up to [Research Unix] / researchv9 / jerq / src / lib / j

Annotation of researchv9/jerq/src/lib/j/norm.c, revision 1.1.1.1

1.1       root        1: norm(x,y,z)
                      2: {
                      3:        return (sqrt(x*x + y*y + z*z));
                      4: }
                      5: 
                      6: sqrtryz(x,y,z)
                      7: {
                      8:        register long sumsq;
                      9: 
                     10:        sumsq = x*x - y*y - z*z;
                     11:        if (sumsq <= 0)
                     12:                return 0;
                     13:        return ( sqrt(sumsq) );
                     14: }

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