source: git/Tst/Old/factor.tst @ e706ff

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 
1ring s=0,(b,c,d,e,f,g,u,v,w,x,y),dp;
2poly 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);
7factorize(p);
8factorize(p,0);
9factorize(p,1);
10factorize(p,2);
11ring C=(32003,i),x,dp;
12minpoly=i2+1;
13poly p=x2+1;
14factorize(p);
15factorize(p,0);
16factorize(p,1);
17factorize(p,2);
18kill s,C;
19ring r=3,(x,y,u,s,t),dp;
20poly p=
21s^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);
27factorize(p);
28LIB "tst.lib";tst_status(1);$
29
Note: See TracBrowser for help on using the repository browser.