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.

Ignore:
Timestamp:
2015-06-22T11:10:14-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/term.lisp

    r3132 r3133  
    4444and powers of some variables, such as 5*X^2*Y^3."))
    4545
    46 (defmethod r-coeff ((self term))
    47   (term-coeff self))
    48 
    49 (defmethod (setf r-coeff) (new-value (self term))
    50   (setf (term-coeff self) new-value))
    51 
    5246(defmethod r-equalp ((term1 term) (term2 term))
    5347  (and (r-equalp (term-coeff term1) (term-coeff term2))
    … …  
    5549
    5650(defmethod print-object ((self term) stream)
    57   (format stream "#<TERM DIMENSION=~A EXPONENTS=~A COEFF=~A>"
    58           (r-dimension self)
    59           (r-exponents self)
    60           (r-coeff self)))
     51  (format stream "#<TERM DIMENSION=~A EXPONENTS=~A VALUE=~A>"
     52          (monom-dimension self)
     53          (monom-exponents self)
     54          (scalar-value self)))
    6155
    6256(defmethod shared-initialize ((self term) slot-names
Note: See TracChangeset for help on using the changeset viewer.