(mkv 'line-segment 'ls2)

(gleqns-transfer-by-view 'ls2 'ls1)

(LAMBDA (VAR-LS1)
  (LET ((VAR-LS1-VIEW VAR-LS1))
    (LIST 'LS2
          (- (FIFTH VAR-LS1-VIEW)
             (* (CADDR VAR-LS1-VIEW)
                (COS (CADDDR VAR-LS1-VIEW))))
          (FIFTH VAR-LS1-VIEW)
          (- 1.570796 (CADDDR VAR-LS1-VIEW))
          (+ (CADR VAR-LS1-VIEW)
             (* (CADDR VAR-LS1-VIEW)
                (SIN (CADDDR VAR-LS1-VIEW)))))))

Contents    Page-10    Prev    Next    Page+10    Index