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

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.