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


Ignore:
Timestamp:
2015-06-12T12:49:04-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/5am-tests.lisp

    r1492 r1496  
    360360
    361361;; Calculate [F, U1*P1-1,U2*P2-1,...,UK*PK-1], where PLIST=[P1,P2,...,PK].
    362 (test saturation-extension
     362(test saturation-extension-1
    363363  "Saturation extension with 1 polynomial"
    364364  (let* ((F-str "[x^3,x^2*y]")
     
    370370    (is (every #'poly-equal-no-sugar-p
    371371               (saturation-extension-1 ring F p)
    372                F-sat))
     372               F-sat))))
     373
     374(test saturation-extension
     375  "Saturation extension"
     376  (let* ((F-str "[x^3,x^2*y]")
     377         (F (cdr (string->poly F-str '(x y))))
     378         (P (cdr (string->poly "[x^2]" '(x y))))
     379         (ring *ring-of-integers*)
     380         (F-sat (append (cdr (string->poly F-str '(u1 x y)))
     381                        (cdr (string->poly "[u1*x^2-1]" '(u1 x y))))))
    373382    (is (every #'poly-equal-no-sugar-p
    374                (print (polysaturation-extension ring F (list p)))
     383               (print (polysaturation-extension ring F P))
    375384               F-sat))))
    376385
Note: See TracChangeset for help on using the changeset viewer.