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 3706 for branches/f4grobner


Ignore:
Timestamp:
2015-09-06T07:17:00-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

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

    r3702 r3706  
    171171         (p (alist->poly '( ((1 1 1) . 11) ((2 3 4) . 13)))) ;11*x*y*z+13*x^2*y^3*z^4
    172172         (sat-ext (list (alist->poly '( ((0 1 0 0) . 2) ((0 1 0 1) . 3)))
    173                         (alist->poly '( ((0 1 0 0) . 5) ((0 0 1 2) . 7))))))
     173                        (alist->poly '( ((0 1 0 0) . 5) ((0 0 1 2) . 7)))
     174                        (alist->poly '( ((1 1 1 1) . 11) ((1 2 3 4) . 13) ((0 0 0 0) . -1))))))
    174175    (is (universal-equalp (saturation-extension f (list p)) sat-ext))))
    175176
     
    181182         (p (alist->poly '( ((1 1 1) . 11) ((2 3 4) . 13)))) ;11*x*y*z+13*x^2*y^3*z^4
    182183         (sat-ext-1 (list (alist->poly '( ((0 1 0 0) . 2) ((0 1 0 1) . 3)))
    183                           (alist->poly '( ((0 1 0 0) . 5) ((0 0 1 2) . 7))))))
     184                          (alist->poly '( ((0 1 0 0) . 5) ((0 0 1 2) . 7)))
     185                          (alist->poly '( ((0 0 0 0) . -1) ((1 1 1 1) . 11) ((1 2 3 4) . 13) )))))
    184186    (is (universal-equalp (saturation-extension-1 f p) sat-ext-1))))
    185187
Note: See TracChangeset for help on using the changeset viewer.