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.
| Rev | Line | |
|---|
| [4073] | 1 | (in-package :division)
|
|---|
| 2 |
|
|---|
| [4083] | 3 |
|
|---|
| [4073] | 4 | (let ((f (string->poly "x^2" '(x y)))
|
|---|
| 5 | ;;(y-sq (string->poly "y^2" '(x y)))
|
|---|
| 6 | (fl (cdr (string->poly "[x+y,x-2*y]" '(x y))))
|
|---|
| 7 | ;;(quotients (cdr (string->poly "[x-y,0]" '(x y))))
|
|---|
| 8 | )
|
|---|
| 9 | (multiple-value-bind (f c division-count)
|
|---|
| [4083] | 10 | (step (normal-form f fl))
|
|---|
| [4073] | 11 | (format t "Quotient: ~S~%" (->sexp f))
|
|---|
| 12 | (format t "Coefficient: ~S~%" c)
|
|---|
| 13 | (format t "Division count: ~S~%" division-count)))
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
Download in other formats:
