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

Timestamp:

Aug 2, 2012, 12:35:15 PM (10 years ago)

Author:

Martin Lee <martinlee84@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', '2234726c50d679d6664181a5c72f75a6fd64a787')

Children:

e9ffa0f1295f570c65f5cc6969eb1089cf3dc00d

Parents:

da984c6d35ab9a83024eef6fc64dd83b8af75611

git-author:

Martin Lee <martinlee84@web.de>2012-08-02 12:35:15+02:00

git-committer:

Martin Lee <martinlee84@web.de>2012-08-03 10:35:14+02:00

Message:

chg: added tests for tr. 439,440,441

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);$