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


Ignore:
Timestamp:
2016-06-15T20:04:03-07:00 (9 years ago)
Author:
Marek Rychlik
Message:
 
Location:
branches/f4grobner
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/division.lisp

    r4483 r4484  
    110110                      c (multiply-by c c1)
    111111                      p (grobner-op c2 c1 m p (car fl)))
    112                 (setf (car b) (add (car b)
     112                (setf (car b) (add (car b) 
    113113                                   (change-class m 'term :coeff c2))))
    114114              t))))

  • branches/f4grobner/test5.lisp

    r4434 r4484  
    44
    55(in-package :5am-buchberger)
    6 (proclaim '(special fl ref-gb sp sp-rem))
     6(proclaim '(special fl ref-gb sp sp-rem gb))
    77
    88(setf grobner-debug::$poly_grobner_debug nil)
    … …  
    3434
    3535;;(setf gb (buchberger fl))
     36;;(print (mapcar #'->sexp gb))
Note: See TracChangeset for help on using the changeset viewer.