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


Ignore:
Timestamp:
2015-09-05T16:40:40-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/monom.lisp

    r3555 r3556  
    508508  (setf (term-coeff new) 1))
    509509
    510 (defmethod term-multiply-by ((self term) (other term))
     510(defmethod multiply-by :before ((self term) (other term))
    511511  "Destructively multiply terms SELF and OTHER and store the result into SELF.
    512512It returns SELF."
    513   (setf (term-coeff self) (universal-multiply-by (term-coeff self) (scalar-coeff other))))
    514 
    515 (defmethod term-left-tensor-product-by ((self term) (other term))
    516   (setf (term-coeff self) (universal-multiply-by (term-coeff self) (term-coeff other)))
    517   (call-next-method))
    518 
    519 (defmethod term-right-tensor-product-by ((self term) (other term))
    520   (setf (term-coeff self) (multiply-by (term-coeff self) (term-coeff other)))
    521   (call-next-method))
    522 
    523 (defmethod monom-divide-by ((self term) (other term))
    524   "Destructively divide term SELF by OTHER and store the result into SELF.
    525 It returns SELF."
    526   (setf (term-coeff self) (divide-by (term-coeff self) (term-coeff other)))
    527   (call-next-method))
     513  (setf (term-coeff self) (multiply-by (term-coeff self) (scalar-coeff other))))
     514
     515(defmethod term-left-tensor-product-by :before ((self term) (other term))
     516  (setf (term-coeff self) (universal-multiply-by (term-coeff self) (term-coeff other))))
     517
     518(defmethod term-right-tensor-product-by :before ((self term) (other term))
     519  (setf (term-coeff self) (multiply-by (term-coeff self) (term-coeff other))))
     520
     521(defmethod divide-by :before ((self term) (other term))
     522  (setf (term-coeff self) (divide-by (term-coeff self) (term-coeff other))))
    528523
    529524(defmethod monom-unary-minus ((self term))
Note: See TracChangeset for help on using the changeset viewer.