Changeset 4084
- Timestamp:
- 2016-05-31T22:18:19-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/test1.lisp
r4083 r4084 2 2 3 3 4 #+nil 4 5 (let ((f (string->poly "x^2" '(x y))) 5 6 ;;(y-sq (string->poly "y^2" '(x y))) … … 12 13 (format t "Coefficient: ~S~%" c) 13 14 (format t "Division count: ~S~%" division-count))) 15 16 (let ((f (string->poly "x^2" '(x y))) 17 ;;(y-sq (string->poly "y^2" '(x y))) 18 (fl (cdr (string->poly "[x+y,x-2*y]" '(x y)))) 19 ;;(quotients (cdr (string->poly "[x-y,0]" '(x y)))) 20 ) 21 (multiple-value-bind (a r c division-count) 22 (step (poly-pseudo-divide f fl)) 23 (format t "Quotients: ~S~%" a) 24 (format t "Remainder: ~S~%" (->sexp r)) 25 (format t "Coefficient: ~S~%" c) 26 (format t "Division count: ~S~%" division-count)))
Note:
See TracChangeset
for help on using the changeset viewer.