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 1752


Ignore:
Timestamp:
2015-06-15T09:02:21-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/mx-grobner.lisp

    r1751 r1752  
    431431    (poly-expt ring-and-order p n)))
    432432
    433 #|
    434 
    435 
    436433(defmfun $poly_content (p vars)
    437   (with-parsed-polynomials ((vars) :polynomials (p))
    438     (poly-content +maxima-ring+ p)))
     434  (with-ring-and-order ((vars) :polynomials (p))
     435    (poly-content ring-and-order p)))
    439436
    440437(defmfun $poly_pseudo_divide (f fl vars
    441                             &aux (vars (coerce-maxima-list vars))
    442                                  (f (parse-poly f vars))
    443                                  (fl (parse-poly-list fl vars)))
     438                            &aux
     439                            (vars (coerce-maxima-list vars))
     440                            (f (parse-poly f vars))
     441                            (fl (parse-poly-list fl vars)))
    444442  (multiple-value-bind (quot rem c division-count)
    445443      (poly-pseudo-divide +maxima-ring+ f fl)
     
    450448      ,division-count)))
    451449
     450#|
     451
    452452(defmfun $poly_exact_divide (f g vars)
    453453  (with-parsed-polynomials ((vars) :polynomials (f g) :value-type :polynomial)
Note: See TracChangeset for help on using the changeset viewer.