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