Changeset 6f8d6f in git for Tst/Short/factorizep_s.tst

Timestamp:

Apr 24, 2012, 2:43:51 PM (11 years ago)

Author:

Martin Lee <martinlee84@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

84fc1fddf725ce226a336195603ebcadbb650d4c

Parents:

3c25c9013dd11772026c49e15335e5c0c406729e

git-author:

Martin Lee <martinlee84@web.de>2012-04-24 14:43:51+02:00

git-committer:

Oleksandr Motsak <motsak@mathematik.uni-kl.de>2012-04-24 16:07:36+02:00

Message:

chg: added example from P. Zimmermann to factorizep_s.tst

File:

• Tst/Short/factorizep_s.tst (modified) (1 diff)

Tst/Short/factorizep_s.tst

@@ -325 +325 @@
 l= factorize (f); testfactors (l, f);
 
+kill r;
+
+ring r = (2,a),(x,y),dp;
+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;
+list l;
+for (int i= 1; i < 33002; i= i+33)
+{
+  system ("--random", i);
+  l= factorize (f);
+  if (size (l[1]) != 5)
+  {
+    l;
+    break;
+  }
+}
+
 tst_status(1);$