Return to atand.bc CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / cci / libM

Annotation of 43BSDTahoe/cci/libM/atand.bc, revision 1.1.1.1

1.1       root        1: define m() {
                      2: 
                      3:        for (t = 0; t < 256; t++) {
                      4:                j=x(t);
                      5:                x[t];
                      6:        }
                      7: 
                      8:        for (t = 0; t < 64; t++) {
                      9:                j=y(t);
                     10:                y[t];
                     11:        }
                     12: }
                     13: 
                     14: 
                     15: define x(t) {
                     16: 
                     17:        if (t < 128) {
                     18:                x[t] = a(0.5 + t/256.0 + 1.0/512.0);
                     19:                return;
                     20:        }
                     21: 
                     22:        x[t] = a(t/128.0 + 1.0/256.0);
                     23: }
                     24: 
                     25: 
                     26: define y(t) {
                     27: 
                     28:        y[t] = a(t/128.0);
                     29: }
                     30: 
                     31: scale = 40
                     32: j=m()
                     33: quit

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