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 2154


Ignore:
Timestamp:
2015-06-17T21:36:03-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/monom.lisp

    r2153 r2154  
    107107  (with-slots (exponents)
    108108      m
    109     (cl:elt exponents index)))
     109    (elt exponents index)))
    110110
    111111(defmethod (setf r-elt) (new-value (m monom) index)
     
    113113  (with-slots (exponents)
    114114      m
    115     (setf (cl:elt exponents index) new-value)))
     115    (setf (elt exponents index) new-value)))
    116116
    117117(defmethod r-total-degree ((m monom) &optional (start 0) (end (r-dimension m)))
     
    121121  (with-slots (exponents)
    122122      m
    123     (reduce #'cl:+ exponents :start start :end end)))
     123    (reduce #'+ exponents :start start :end end)))
    124124
    125125
     
    137137        m2
    138138      (let* ((exponents (copy-seq exponents1))
    139              (dim (reduce #'cl:+ exponents)))
    140         (map-into exponents #'cl:+ exponents1 exponents2)
     139             (dim (reduce #'+ exponents)))
     140        (map-into exponents #'+ exponents1 exponents2)
    141141        (make-instance 'monom :dim dim :exponents exponents)))))
    142142
     
    150150        m2
    151151      (let* ((exponents (copy-seq exponents1))
    152              (dim (reduce #'cl:+ exponents)))
    153         (map-into exponents #'cl:- exponents1 exponents2)
     152             (dim (reduce #'+ exponents)))
     153        (map-into exponents #'- exponents1 exponents2)
    154154        (make-instance 'monom :dim dim :exponents exponents)))))
    155155
     
    203203    (with-slots (exponents2 exponents)
    204204        m2
    205       (every #'(lambda (x y) (cl:zerop (min x y))) exponents1 exponents2))))
     205      (every #'(lambda (x y) (zerop (min x y))) exponents1 exponents2))))
    206206
    207207
     
    221221        m2
    222222      (let* ((exponents (copy-seq exponents1))
    223              (dim (reduce #'cl:+ exponents)))
     223             (dim (reduce #'+ exponents)))
    224224        (map-into exponents #'max exponents1 exponents2)
    225225        (make-instance 'monom :dim dim :exponents exponents)))))
     
    233233        m2
    234234      (let* ((exponents (copy-seq exponents1))
    235              (dim (reduce #'cl:+ exponents)))
     235             (dim (reduce #'+ exponents)))
    236236        (map-into exponents #'min exponents1 exponents2)
    237237        (make-instance 'monom :dim dim :exponents exponents)))))
     
    242242  (with-slots (exponents)
    243243      m
    244     (plusp (cl:elt exponents k))))
     244    (plusp (elt exponents k))))
    245245
    246246(defmethod r-tensor-product ((m1 monom) (m2 monom)
    247                              &aux (dim (cl:+ (r-dimension m1) (r-dimension m2))))
     247                             &aux (dim (+ (r-dimension m1) (r-dimension m2))))
    248248  (declare (fixnum dim))
    249249  (with-slots (exponents1 exponents)
     
    273273  (with-slots (exponents)
    274274      m
    275     (setf (cl:elt exponents pos) power)
     275    (setf (elt exponents pos) power)
    276276    m))
    277277
Note: See TracChangeset for help on using the changeset viewer.