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 1215


Ignore:
Timestamp:
2015-06-11T11:53:59-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/polynomial.lisp

    r1214 r1215  
    120120(defun poly-length (p) (length (poly-termlist p)))
    121121
     122(defun poly-reset-sugar (p)
     123  (declare (type poly p))
     124
    122125(defun scalar-times-poly (ring c p)
    123126  "The scalar product of scalar C by a polynomial P. The sugar of the
    124127original polynomial becomes the sugar of the result."
    125   (declare (type ring ring) (poly p))
     128  (declare (type ring ring) (type poly p))
    126129  (make-poly-from-termlist (scalar-times-termlist ring c (poly-termlist p)) (poly-sugar p)))
    127130
     
    129132  "The scalar product of scalar C by a polynomial P, omitting the head term. The sugar of the
    130133original polynomial becomes the sugar of the result."
    131   (declare (type ring ring) (poly p))
     134  (declare (type ring ring) (type poly p))
    132135  (make-poly-from-termlist (scalar-times-termlist ring c (cdr (poly-termlist p))) (poly-sugar p)))
    133136
    134137(defun monom-times-poly (m p)
    135   (declare (poly p))
     138  (declare (type poly p))
    136139  (make-poly-from-termlist
    137140   (monom-times-termlist m (poly-termlist p))
Note: See TracChangeset for help on using the changeset viewer.