(<  (ABS (LET ((DX (-
                               (CAR
                                (LET
                                 ((GLVAR7282 (CADR (PROG1 D)))
                                  (GLVAR7283 (CADDR (PROG1 D))))
                                 (LIST
                                  (+ (CAR GLVAR7282)
                                     (CAR GLVAR7283))
                                  (+ (CADR GLVAR7282)
                                     (CADR GLVAR7283)))))
                               (CAR (CADR (PROG1 D)))))
                          (DY (-
                               (CADR
                                (LET
                                 ((GLVAR7284 (CADR (PROG1 D)))
                                  (GLVAR7285 (CADDR (PROG1 D))))
                                 (LIST
                                  (+ (CAR GLVAR7284)
                                     (CAR GLVAR7285))
                                  (+ (CADR GLVAR7284)
                                     (CADR GLVAR7285)))))
                               (CADR (CADR (PROG1 D))))))
                         (/ (- (* DX
                                  (- (CADR (PROG1 PTP))
                                     (CADR (CADR (PROG1 D)))))
                               (* DY
                                  (- (CAR (PROG1 PTP))
                                     (CAR (CADR (PROG1 D))))))
                            (SQRT (+ (EXPT DX 2) (EXPT DY 2))))))
               5))))

Contents    Page-10    Prev    Next    Page+10    Index