close Warning: Can't synchronize with repository "(default)" (The repository directory has changed, you should resynchronize the repository with: trac-admin $ENV repository resync '(default)'). Look in the Trac log for more information.

Changeset 1257 for branches


Ignore:
Timestamp:
2015-06-11T15:47:19-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/division.lisp

    r1256 r1257  
    7474remainder, and P is the intermediate value which eventually becomes
    75750."
     76  (format t "Running loop-invariant check now.~%")
     77  (format t "C=~A~%F=~A~%A=~A~%FL=~A~%R=~A~%P=~A~%" c f a fl r p)
    7678  (flet ((p-add (x y) (poly-add ring-and-order x y))
    7779         (p-sub (x y) (poly-sub ring-and-order x y))
    7880         (p-mul (x y) (poly-mul ring-and-order x y)))
    79     (let ((prod (inner-product a fl p-add p-mul p-zero)))
    80       (poly-zerop
    81        (p-sub
    82         (scalar-times-poly ring c f)
    83         (reduce #'p-add (list prod r p)))))))
     81    (let* ((prod (inner-product a fl p-add p-mul p-zero))
     82           (succeeded-p
     83            (poly-zerop
     84             (p-sub
     85              (scalar-times-poly ring c f)
     86              (reduce #'p-add (list prod r p))))))
     87      (unless succeeded-p (warn "Check failed"))
     88      succeeded-p)))
    8489 
    8590
Note: See TracChangeset for help on using the changeset viewer.