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.

Ignore:
Timestamp:
2016-06-10T09:50:24-07:00 (8 years ago)
Author:
Marek Rychlik
Message:
 
File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/test5.lisp

    r4401 r4434  
    1212
    1313(format t "~%")
    14 (format t "FL --> ~A~%" (poly->string (cons :[ fl)))
    15 (format t "REF-GB --> ~A~%" (poly->string (cons :[ ref-gb)))
     14(format t "FL --> ~A~2%" (poly->string (cons :[ fl)))
     15(format t "REF-GB --> ~A~2%" (poly->string (cons :[ ref-gb)))
    1616
    1717(loop for i from 0 below (length fl)
    … …  
    2020          do
    2121          (setf sp (s-polynomial (elt fl i) (elt fl j)))
    22           (format t "SPOLY(~A,~A) --> ~A~%"
     22          (format t "SPOLY(~A,~A) --> ~A~2%"
    2323                  (poly->string (elt fl i))
    2424                  (poly->string (elt fl j))
    2525                  (poly->string sp))
    2626          (setf sp-rem (normal-form sp fl))
    27           (format t "NORMAL-FORM(~A,~A) --> ~A~%"
     27          (format t "NORMAL-FORM(~A,~A) --> ~A~2%"
    2828                  (poly->string sp)
    2929                  (poly->string (cons :[ fl))
Note: See TracChangeset for help on using the changeset viewer.