Changeset e9ffa0 in git for Tst/Short/factorizep_s.tst

Timestamp:

Aug 3, 2012, 1:28:10 PM (11 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'ad2543eab51733612ba7d118afc77edca719600e')

Children:

69c542f9869e7a3e82b1cc481139d89110b7afd3

Parents:

b0732eb4254fbe76540d72c337f3d7f985adf948051432dd83870fbe8b97700f01135436c5d6f6fd

Message:

Merge pull request #164 from mmklee/factory_trfix_sw

Factory trfix sw

File:

• Tst/Short/factorizep_s.tst (modified) (3 diffs)

Tst/Short/factorizep_s.tst

@@ -330 +330 @@
 minpoly = a^2 + a + 1;
 poly f=(a + 1)*x^145*y^84 + (a + 1)*x^205*y^17 + x^32*y^112 + x^92*y^45;
+poly g = x7y11+xy17+(a)*x7y10+(a)*xy16+(a)*x8y8+(a+1)*x8y7+(a)*y12+(a+1)*x8y3+(a+1)*x2y9+(a+1)*y11+x9+xy4;
 list l;
 for (int i= 1; i < 33002; i= i+33)
@@ -340 +341 @@
     break;
   }
+  system ("--random", i);
+  l= factorize (g);
+  testfactors (l,g);
 }
 
@@ -373 +377 @@
 }
 
+// tr. 440
+kill r;
+ring r=7,(x,y),dp;
+poly f = y^5*x^4 - y^2*x^7 - y^3 + x^3;
+list l=factorize(f);
+size (l[1]) < 6;
+testfactors (l,f);
+
 tst_status(1);$