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.

source: branches/f4grobner/.junk/infix-errors.txt.orig

Last change on this file was 4170, checked in by Marek Rychlik, 8 years ago

Moved files infix-errors* to junk
File size: 1.4 KB
Line 
1SYMBOLIC-POLYNOMIAL> (->infix (make-instance 'term :exponents '(0 0 0 0) :coeff -5) '(x y u v))
2NIL
3SYMBOLIC-POLYNOMIAL> (->infix (make-instance 'monom :exponents '(0 0 0 0)))
4NIL
5SYMBOLIC-POLYNOMIAL> (->infix (make-instance 'monom :exponents '(0 0 0 0)) '(x y u w))
6NIL
7SYMBOLIC-POLYNOMIAL> (->infix (string->poly "X^2-Y^2+(-4/3)*U^2*W^3-5" '(x y u w)) '(x y u w))
8(+ (EXPT X 2) (EXPT Y 2) (* -4/3 (EXPT U 2) (EXPT W 3)) NIL)
9SYMBOLIC-POLYNOMIAL> (->infix (make-instance 'monom :exponents '(0 0 1 0)) '(x y u w))
10U
11SYMBOLIC-POLYNOMIAL> (->infix (make-instance 'monom :exponents '(1 2 1 1)) '(x y u w))
12(* X (EXPT Y 2) U W)
13SYMBOLIC-POLYNOMIAL> (->infix (make-instance 'term :exponents '(0 1 0 0) :coeff -5) '(x y u v))
14; Evaluation aborted on #<TYPE-ERROR expected-type: LIST datum: SYMBOLIC-POLYNOMIAL::Y>.
15SYMBOLIC-POLYNOMIAL> (->infix (make-instance 'term :exponents '(1 1 0 0) :coeff -5) '(x y u v))
16(* -5 X Y)
17SYMBOLIC-POLYNOMIAL> (->infix (make-instance 'term :exponents '(1 0 0 0) :coeff -5) '(x y u v))
18; Evaluation aborted on #<TYPE-ERROR expected-type: LIST datum: SYMBOLIC-POLYNOMIAL::X>.
19SYMBOLIC-POLYNOMIAL> (->infix (make-instance 'term :exponents '(11 0 0 0) :coeff -5) '(x y u v))
20(EXPT X 11)
21SYMBOLIC-POLYNOMIAL> (->infix (make-instance 'term :exponents '(11 0 0 0) :coeff 5) '(x y u v))
22(EXPT X 11)
23SYMBOLIC-POLYNOMIAL> (->infix (make-instance 'term :exponents '(11 0 4 0) :coeff 5) '(x y u v))
24(* 5 (EXPT X 11) (EXPT U 4))
Note: See TracBrowser for help on using the repository browser.