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 | |
|---|
| [4391] | 1 | ;;poly_grobner([x^3-x^2+2,y-2*x^2+1,z-3*x+5],[x,y,z]);
|
|---|
| 2 | ;;[x^3-x^2+2,y-2*x^2+1,z-3*x+5,2*z^2+20*z-9*y+41,(-z^3)-12*z^2-45*z-104]
|
|---|
| 3 |
|
|---|
| 4 | (in-package :5am-buchberger)
|
|---|
| 5 |
|
|---|
| 6 |
|
|---|
| 7 | (setf fl (cdr (string->poly "[x^3-x^2+2,y-2*x^2+1,z-3*x+5]" '(x y z)))
|
|---|
| 8 | ref-gb (cdr (string->poly "[x^3-x^2+2,y-2*x^2+1,z-3*x+5,2*z^2+20*z-9*y+41,(-z^3)-12*z^2-45*z-104]" '(x y z))))
|
|---|
| 9 |
|
|---|
| 10 | (format t "~S~%" (poly->string (cons :[ fl)))
|
|---|
| 11 | (format t "~S~%" (poly->string (cons :[ ref-gb)))
|
|---|
| 12 |
|
|---|
| 13 | (setf sp-0-1 (s-polynomial (elt fl 0) (elt fl 1)))
|
|---|
| 14 | (format t "~S~%" (poly->string sp-0-1))
|
|---|
| 15 |
|
|---|
| 16 | (setf sp-0-2 (s-polynomial (elt fl 0) (elt fl 2)))
|
|---|
| 17 | (format t "~S~%" (poly->string sp-0-2))
|
|---|
| 18 |
|
|---|
| 19 | (setf sp-1-2 (s-polynomial (elt fl 1) (elt fl 2)))
|
|---|
| 20 | (format t "~S~%" (poly->string sp-1-2))
|
|---|
| 21 |
|
|---|
| 22 | (setf grobner-debug::$poly_grobner_debug t)
|
|---|
| 23 | ;;(setf gb (buchberger fl))
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
Download in other formats:
