spielwiese
Last change
on this file since e706ff was
46976a6,
checked in by Olaf Bachmann <obachman@…>, 26 years ago
|
* added status check to regress.cmd
* added tst_status(1); call to each tst file, just before quit
git-svn-id: file:///usr/local/Singular/svn/trunk@2271 2c84dea3-7e68-4137-9b89-c4e89433aadc
|
-
Property mode set to
100644
|
File size:
993 bytes
|
Line | |
---|
1 | ring s=0,(b,c,d,e,f,g,u,v,w,x,y),dp; |
---|
2 | poly p=(2*f*x^2*y)*w^5+(-1*e*v*x^2+8*f*u*y^3-8*f*v*x*y^2)*w^4 |
---|
3 | +(-4*e*u*v*y^2+4*e*v^2*x*y-8*f*u^2*y^2+12*f*u*v*x*y+4*f*v^2*x^2)*w^3 |
---|
4 | +(4*e*u^2*v*y-6*e*u*v^2*x+2*f*u^3*y+32*f*u*v^2*y^2-32*f*v^3*x*y)*w^2 |
---|
5 | +(-1*e*u^3*v-8*e*u*v^3*y+8*e*v^4*x-16*f*u^2*v^2*y+24*f*u*v^3*x)*w |
---|
6 | +(4*f*u^3*v^2+32*f*u*v^4*y-32*f*v^5*x); |
---|
7 | factorize(p); |
---|
8 | factorize(p,0); |
---|
9 | factorize(p,1); |
---|
10 | factorize(p,2); |
---|
11 | ring C=(32003,i),x,dp; |
---|
12 | minpoly=i2+1; |
---|
13 | poly p=x2+1; |
---|
14 | factorize(p); |
---|
15 | factorize(p,0); |
---|
16 | factorize(p,1); |
---|
17 | factorize(p,2); |
---|
18 | kill s,C; |
---|
19 | ring r=3,(x,y,u,s,t),dp; |
---|
20 | poly p= |
---|
21 | s^85+(t)*s^84+(t^2)*s^83+(-1*t^18)*s^67+(-1*t^19)*s^66+(t^20)*s^65 |
---|
22 | +(t^21)*s^64+(t^22)*s^63+(-1*t^24)*s^61+(-1*t^25)*s^60+(t^29)*s^56 |
---|
23 | +(t^38)*s^47+(-1*t^39)*s^46+(-1*t^40)*s^45+(-1*t^42)*s^43+(-1*t^43)*s^42 |
---|
24 | +(-1*t^45)*s^40+(-1*t^46)*s^39+(t^47)*s^38+(t^56)*s^29+(-1*t^60)*s^25 |
---|
25 | +(-1*t^61)*s^24+(t^63)*s^22+(t^64)*s^21+(t^65)*s^20+(-1*t^66)*s^19 |
---|
26 | +(-1*t^67)*s^18+(t^83)*s^2+(t^84)*s+(t^85); |
---|
27 | factorize(p); |
---|
28 | LIB "tst.lib";tst_status(1);$ |
---|
29 | |
---|
Note: See
TracBrowser
for help on using the repository browser.