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 2310


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

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/5am-monom.lisp

    r2308 r2310  
    6666  "Monom basics"
    6767  (with-fixture monom-context ()
    68     (is-true (= (r-dimension m) 3))))
    69 
    70 
    71 
    72 #|
    73 
    74 (test monom
    75   "monom"
    76   (let ((z (make-instance 'monom  :dimension 3))
    77         (m (make-instance 'monom  :dimension 3 :exponents '(1 2 3)))
    78         (n (make-instance 'monom  :dimension 3 :exponents '(4 5 6)))
    79         (m*n (make-instance 'monom  :dimension 3 :exponents '(5 7 9)))
    80         (n/m (make-instance 'monom  :dimension 3 :exponents '(3 3 3)))
    81         (m-tensor-n (make-instance 'monom  :exponents '(1 2 3 4 5 6))))
    8268    (is (= (r-dimension m) 3))
    8369    (is (= (r-elt m 2) 3))
    … …  
    9985        (error "Index out of bounds")
    10086      (r-depends-p m 3))))
    101 |#
    10287
    10388 
Note: See TracChangeset for help on using the changeset viewer.