Changeset 2181
- Timestamp:
- 2015-06-18T07:57:50-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/5am-monom.lisp
r2166 r2181 57 57 (m (make-monom :dimension 3 :initial-exponents '(1 2 3))) 58 58 (n (make-monom :dimension 3 :initial-exponents '(4 5 6))) 59 (m*n (make-monom :dimension 3 :initial-exponents '(5 7 9)))) 59 (m*n (make-monom :dimension 3 :initial-exponents '(5 7 9))) 60 (m-tensor-n (make-monom :initial-exponents '(1 2 3 4 5 6)))) 60 61 (is (equalp (r->list z) '(0 0 0)) "Trivial monomial is a vector of 0's") 61 (is (r-equalp (r* m n) m*n)))) 62 (is (r-equalp (r* m n) m*n)) 63 (is (r-equalp (r-tensor-product m n) m-tensor-n)))) 62 64 63 65
Note:
See TracChangeset
for help on using the changeset viewer.