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 4393 for branches


Ignore:
Timestamp:
2016-06-07T14:22:05-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/test5.lisp

    r4392 r4393  
    2020          do
    2121          (setf sp (s-polynomial (elt fl i) (elt fl j)))
    22           (format t "SPOLY(~A,~A) --> ~A~%" (poly->string (elt fl i)) (poly->string (elt fl j)) (poly->string sp))
     22          (format t "SPOLY(~A,~A) --> ~A~%"
     23                  (poly->string (elt fl i))
     24                  (poly->string (elt fl j))
     25                  (poly->string sp))
    2326          (setf sp-rem (normal-form sp fl))
    2427          (format t "NORMAL-FORM(~A,~A) --> ~A~%" (poly->string sp-rem) (poly->string (cons :[ fl)) (poly->string sp-rem))
Note: See TracChangeset for help on using the changeset viewer.