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 3950


Ignore:
Timestamp:
2016-05-30T00:47:28-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/pair-queue.lisp

    r3949 r3950  
    118118
    119119
    120 (defun pair-queue-initialize (pq f start
    121                               &aux
    122                               (s (1- (length f)))
    123                               (b (nconc (makelist (make-instance 'critical-pair :first (elt f i) :second (elt f j))
    124                                                  (i 0 (1- start)) (j start s))
    125                                         (makelist (make-instance 'critical-pair :first (elt f i) :second (elt f j))
    126                                                  (i start (1- s)) (j (1+ i) s)))))
    127   "Initializes the priority for critical pairs. F is the initial list of polynomials.
    128 START is the first position beyond the elements which form a partial
    129 grobner basis, i.e. satisfy the Buchberger criterion."
    130   (declare (type priority-queue pq) (type fixnum start))
    131   (dolist (pair b pq)
    132     (priority-queue-insert pq pair)))
    133120
    134121(defun pair-queue-insert (b pair)
Note: See TracChangeset for help on using the changeset viewer.