Return to rot CVS log

Up to [Research Unix] / researchv10dc / cmd / matlab / exec

Annotation of researchv10dc/cmd/matlab/exec/rot, revision 1.1.1.1

1.1       root        1: // subexec rot(f,g,cs,sn)
                      2:       rho = g; if abs(f) > abs(g), rho = f;
                      3:       cs = 1.0; sn = 0.0; z = 1.0;
                      4:       r = norm(<f g>); if rho < 0, r = -r; r
                      5:       if r <> 0.0, cs = f/r
                      6:       if r <> 0.0, sn = g/r
                      7:       if abs(f) > abs(g), z = sn;
                      8:       if abs(g) >= abs(f), if cs <> 0, z = 1/cs;
                      9:       f = r;
                     10:       g = z;

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