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     ! 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.