Return to t.i CVS log

Up to [Research Unix] / researchv10no / cmd / ccom / vax / tests

Annotation of researchv10no/cmd/ccom/vax/tests/t.i, revision 1.1

1.1     ! root        1: main()
        !             2: { unsigned short a, b;
        !             3:        a = b ? 1 : 0;
        !             4: }
        !             5: struct vertex { double x, y;};
        !             6: double dist();
        !             7: flip(v)
        !             8: register struct vertex *v;
        !             9: {
        !            10:        struct vertex p;
        !            11:        if(dist(p.x, p.y)<dist(v->x, v->y))
        !            12:                return(1);
        !            13:        return(0);
        !            14: }
        !            15: f()
        !            16: {
        !            17:   double x[10], step;
        !            18:   int n;
        !            19:   step = (x[n-1]-x[0])/(n-1);
        !            20: }
        !            21: eval(n,x,f,d,m,p,g)
        !            22:   int n,m;
        !            23:   double x[], f[], d[], p[], g[];
        !            24: {      int i, j;
        !            25:   g[i] = f[j] + (f[j+1]-f[j])*(p[i]-x[j])/(x[j+1]-x[j]);
        !            26: }

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