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.lisp

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

Moved files infix-errors* to junk
File size: 1.2 KB
Line 
1(->sexp (make-instance 'term :exponents '(0 0 0 0) :coeff -5) '(x y u v))
2;;NIL
3(->sexp (make-instance 'monom :exponents '(0 0 0 0)))
4;;NIL
5(->sexp (make-instance 'monom :exponents '(0 0 0 0)) '(x y u w))
6;;NIL
7(->sexp (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)
9(->sexp (make-instance 'monom :exponents '(0 0 1 0)) '(x y u w))
10;;U
11(->sexp (make-instance 'monom :exponents '(1 2 1 1)) '(x y u w))
12;;(* X (EXPT Y 2) U W)
13(->sexp (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>.
15(->sexp (make-instance 'term :exponents '(1 1 0 0) :coeff -5) '(x y u v))
16;;(* -5 X Y)
17(->sexp (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>.
19(->sexp (make-instance 'term :exponents '(11 0 0 0) :coeff -5) '(x y u v))
20;;(EXPT X 11)
21(->sexp (make-instance 'term :exponents '(11 0 0 0) :coeff 5) '(x y u v))
22;;(EXPT X 11)
23(->sexp (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.