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


Ignore:
Timestamp:
2016-06-04T12:58:06-07:00 (8 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/division.lisp

    r4209 r4210  
    228228  (mapcar #'(lambda (x) (poly-normalize x)) plist))
    229229
    230 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    231 ;;
    232 ;; The function GROBNER-TEST is provided primarily for debugging purposes. To
    233 ;; enable verification of grobner bases with BUCHBERGER-CRITERION, do
    234 ;; (pushnew :grobner-check *features*) and compile/load this file.
    235 ;; With this feature, the calculations will slow down CONSIDERABLY.
    236 ;;
    237 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    238 
    239230(defun grobner-test (g f)
    240231  "Test whether G is a Grobner basis and F is contained in G. Return T
    241 upon success and NIL otherwise."
     232upon success and NIL otherwise.
     233The function GROBNER-TEST is provided primarily for debugging purposes. To
     234enable verification of grobner bases with BUCHBERGER-CRITERION, do
     235(pushnew :grobner-check *features*) and compile/load this file.  With
     236this feature, the calculations will slow down CONSIDERABLY."
    242237  (debug-cgb "~&GROBNER CHECK: ")
    243238  (let (($poly_grobner_debug nil)
Note: See TracChangeset for help on using the changeset viewer.