Changeset 9b2c8a in git for factory/facHensel.cc

Timestamp:

Jul 29, 2011, 1:41:40 PM (12 years ago)

Author:

Martin Lee <martinlee84@…>

Branches:

(u'spielwiese', 'f6c3dc58b0df4bd712574325fe76d0626174ad97')

Children:

5f0de86b93880cf5a4ec451d78ebc9de6163c54c

Parents:

4a05ed0e24ccb01f9ba9a36da4319ef0577b411b

Message:

deleted unneccessary stuff and make factors monic in modularDiophant 


git-svn-id: file:///usr/local/Singular/svn/trunk@14355 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• factory/facHensel.cc (modified) (4 diffs)

factory/facHensel.cc

@@ -109 +109 @@
   {
     buf1= i.getItem();
-    CanonicalForm bb= buf3;
     tryExtgcd (buf3, buf1, M, buf3, S, T, fail);
     if (fail)
@@ -117 +116 @@
     {
       j.getItem() *= S;
-      CanonicalForm q;
       j.getItem()= mod (j.getItem(), k.getItem());
       j.getItem()= reduce (j.getItem(), M);
@@ -189 +187 @@
   CFList products= factors;
   for (CFListIterator i= products; i.hasItem(); i++)
+  {
+    if (products.getFirst().level() == 1)
+      i.getItem() /= Lc (i.getItem());
     i.getItem() *= bCommonDen (i.getItem());
+  }
   if (products.getFirst().level() == 1)
     products.insert (Lc (F));
@@ -287 +289 @@
       {
         On( SW_RATIONAL );
+        CFList bufResult= result;
         result= tmp2;
-        CFList bufResult= result;
         setReduce (M.mvar(), true);
         if (factors.getFirst().level() == 1)