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 4084


Ignore:
Timestamp:
2016-05-31T22:18:19-07:00 (8 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/test1.lisp

    r4083 r4084  
    22
    33
     4#+nil
    45(let ((f (string->poly "x^2" '(x y)))
    56      ;;(y-sq (string->poly "y^2" '(x y)))
    … …  
    1213    (format t "Coefficient:     ~S~%" c)
    1314    (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.