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 | |
|---|
| [4532] | 1 | (load "boot")
|
|---|
| 2 | (in-package :polynomial)
|
|---|
| 3 | (use-package :symbolic-polynomial)
|
|---|
| 4 |
|
|---|
| 5 | (proclaim '(special foo trm))
|
|---|
| 6 |
|
|---|
| 7 | (setf foo (string->poly "x*y+x^3" '(x y)))
|
|---|
| 8 | (change-class foo 'poly-with-sugar)
|
|---|
| 9 | (setf trm (make-instance 'term-with-sugar :exponents '(2 3)))
|
|---|
| 10 |
|
|---|
| 11 | (poly-insert-term foo trm)
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
Download in other formats:
