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 1505


Ignore:
Timestamp:
2015-06-12T12:59:42-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

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

    r1504 r1505  
    372372               F-sat))))
    373373
    374 ;; Calculates [F, U1*P1-1,U2*P2-1,...,UK*PK-1], where PLIST=[P1,P2,...,PK].
     374;; Calculate [F, U1*P1+U2*P2+...+UK*PK-1], where PLIST=[P1,P2,...,PK]. It destructively modifies F.
    375375(test polysaturation-extension
    376376  "Polysaturation extension"
     
    380380         (ring *ring-of-integers*)
    381381         (F-sat (append (cdr (string->poly F-str '(u1 u2 x y)))
    382                         (cdr (string->poly "[u1*(x^2)-1,u2*(x*y)-1]" '(u1 u2 x y))))))
     382                        (cdr (string->poly "[u1*(x^2) + u2*(x*y)-1]" '(u1 u2 x y))))))
    383383    (is (every #'poly-equal-no-sugar-p
    384384               (print (polysaturation-extension ring F P))
Note: See TracChangeset for help on using the changeset viewer.