Return to CIRCLE CVS log

Up to [Research Unix] / researchv10no / cmd / ideal / lib

Annotation of researchv10no/cmd/ideal/lib/CIRCLE, revision 1.1.1.1

1.1       root        1: .IS
                      2: CIRCLE {
                      3:        var rad;
                      4:        z1 ~ z2 ~ z3 ~ center + rad;
                      5:        var a1, b1, c1,
                      6:        a2, b2, c2;
                      7:        a1 = 2*(re(z2)-re(z1));
                      8:        b1 = 2*(im(z2)-im(z1));
                      9:        c1 = -re(z1)*re(z1) - im(z1)*im(z1) + re(z2)*re(z2) + im(z2)*im(z2);
                     10:        a2 = 2*(re(z3)-re(z2));
                     11:        b2 = 2*(im(z3)-im(z2));
                     12:        c2 = -re(z2)*re(z2) - im(z2)*im(z2) + re(z3)*re(z3) + im(z3)*im(z3);
                     13:        a1*re(center) + b1*im(center) = c1;
                     14:        a2*re(center) + b2*im(center) = c2;
                     15:        radius = abs(rad);
                     16:        rad ~ radius;
                     17: }
                     18: .IE

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