source:
git/Tst/Short/ncfactor_koepf_s.tst
@
f5d2647
| Last change on this file since f5d2647 was 59a7579, checked in by , 11 years ago | |
|---|---|
|
|
| File size: 224 bytes | |
| Line | |
|---|---|
| 1 | LIB "tst.lib"; |
| 2 | tst_init(); |
| 3 | LIB "ncfactor.lib"; |
| 4 | |
| 5 | ring R = 0,(x,d),dp; |
| 6 | def r = nc_algebra(1,1); |
| 7 | setring(r); |
| 8 | poly L = (x^4-1)*x*d^2+(1+7*x^4)*d+8*x^3; |
| 9 | def l=facFirstWeyl(L); |
| 10 | testNCfac (l, L); |
| 11 | l; |
| 12 | |
| 13 | tst_status(); |
| 14 | tst_status(1); $ |
Note: See TracBrowser
for help on using the repository browser.
