Changeset 2840 for branches/f4grobner/5am-monom.lisp
- Timestamp:
- 2015-06-21T10:02:53-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/5am-monom.lisp
r2830 r2840 109 109 (m*n (make-instance 'term :dimension 3 :exponents '(5 7 9) :coeff 72)) 110 110 (n/m (make-instance 'term :dimension 3 :exponents '(3 3 3) :coeff 2)) 111 (m-tensor-n (make-instance 'term :exponents '(1 2 3 4 5 6) :coeff 72))) 111 (m-tensor-n (make-instance 'term :exponents '(1 2 3 4 5 6) :coeff 72)) 112 (m-uminus (make-instance 'term :dimension 3 :exponents '(1 2 3) :coeff -6))) 112 113 (&body))) 113 114 … … 138 139 (is (r-equalp (multiply-by m n) m*n))) 139 140 (with-fixture term-context () 140 (is (r-equalp (divide-by n m) n/m)))) 141 (is (r-equalp (divide-by n m) n/m))) 142 (with-fixture term-context () 143 (is (r-equalp (unary-minus m) m-uminus)))) 141 144 142 145
Note:
See TracChangeset
for help on using the changeset viewer.