- Timestamp:
- 2015-06-21T09:46:15-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/5am-monom.lisp
r2826 r2827 104 104 (def-fixture term-context () 105 105 (symbol-macrolet ((z (make-instance 'term :dimension 3 :coeff 5)) 106 (m (make-instance 'term :dimension 3 :exponents '(1 2 3) :coeff 6))107 (n (make-instance 'term :dimension 3 :exponents '(4 5 6) :coeff 12))108 (m*n (make-instance 'term :dimension 3 :exponents '(5 7 9) :coeff 72))109 (n/m (make-instance 'term :dimension 3 :exponents '(3 3 3) :coeff 2))110 (m-tensor-n (make-instance 'term :exponents '(1 2 3 4 5 6) :coeff 72)))106 (m (make-instance 'term :dimension 3 :exponents '(1 2 3) :coeff 6)) 107 (n (make-instance 'term :dimension 3 :exponents '(4 5 6) :coeff 12)) 108 (m*n (make-instance 'term :dimension 3 :exponents '(5 7 9) :coeff 72)) 109 (n/m (make-instance 'term :dimension 3 :exponents '(3 3 3) :coeff 2)) 110 (m-tensor-n (make-instance 'term :exponents '(1 2 3 4 5 6) :coeff 72))) 111 111 (&body))) 112 112
Note:
See TracChangeset
for help on using the changeset viewer.