Return to j0.c CVS log

Up to [MW Coherent from dump] / coherent / d / usr / src / examples

Annotation of coherent/d/usr/src/examples/j0.c, revision 1.1.1.1

1.1       root        1: #include <math.h>
                      2: #include <stdio.h>
                      3: #define display(x) dodisplay((double)(x), #x)
                      4: 
                      5: dodisplay(value, name)
                      6: double value; char *name;
                      7: {
                      8:        if (errno)
                      9:                perror(name);
                     10:        else
                     11:                printf("%10g %s\n", value, name);
                     12:        errno = 0;
                     13: }
                     14: 
                     15: main() {
                     16:        extern char *gets();
                     17:        double x;
                     18:        char string[64];
                     19: 
                     20:        for (;;) {
                     21:                printf("Enter number: ");
                     22:                if (gets(string) == NULL)
                     23:                        break;
                     24:                x = atof(string);
                     25: 
                     26:                display(x);
                     27:                display(j0(x));
                     28:                display(j1(x));
                     29:                display(jn(0,x));
                     30:                display(jn(1,x));
                     31:                display(jn(2,x));
                     32:                display(jn(3,x));
                     33:        }
                     34:        putchar('\n');
                     35: }
                     36: 

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