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 2329


Ignore:
Timestamp:
2015-06-18T19:52:42-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/5am-monom.lisp

    r2328 r2329  
    8686 
    8787(def-fixture term-context ()
    88   (let ((z (make-instance 'term  :dimension 3))
    89         (m (make-instance 'term  :dimension 3 :exponents '(1 2 3)))
    90         (n (make-instance 'term  :dimension 3 :exponents '(4 5 6)))
    91         (m*n (make-instance 'term  :dimension 3 :exponents '(5 7 9)))
    92         (n/m (make-instance 'term  :dimension 3 :exponents '(3 3 3)))
    93         (m-tensor-n (make-instance 'term  :exponents '(1 2 3 4 5 6))))
     88  (let ((z (make-instance 'term  :dimension 3 :coeff 5))
     89        (m (make-instance 'term  :dimension 3 :exponents '(1 2 3) :coeff 6))
     90        (n (make-instance 'term  :dimension 3 :exponents '(4 5 6) :coeff 12))
     91        (m*n (make-instance 'term  :dimension 3 :exponents '(5 7 9) :coeff 72))
     92        (n/m (make-instance 'term  :dimension 3 :exponents '(3 3 3) :coeff 2))
     93        (m-tensor-n (make-instance 'term  :exponents '(1 2 3 4 5 6) :coeff 72)))
    9494    (&body)))
    9595
Note: See TracChangeset for help on using the changeset viewer.