Changeset 4c346c in git for Singular/LIB/realrad.lib

Timestamp:

Jul 26, 2007, 2:35:23 PM (17 years ago)

Author:

Silke Spang <spang@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

0f4627fe2925ada51cbfb34aac178fa5e4524697

Parents:

1d757259665053f77d7190acddf856df0c80d58e

Message:

+ Ringumbennungsproblem


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

File:

• Singular/LIB/realrad.lib (modified) (3 diffs)

Singular/LIB/realrad.lib

@@ -1 +1 @@
 ///////////////////////////////////////////////////////////////////////////////
-version="$Id: realrad.lib,v 1.4 2007-06-20 15:39:45 Singular Exp $";
+version="$Id: realrad.lib,v 1.5 2007-07-26 12:35:23 spang Exp $";
 category="real algebra";
 info="
@@ -513 +513 @@
    lfac=factorize(f,2);
    ideal factor=lfac[1];
-   intvec ex=lfac[2];
+   intvec @ex=lfac[2];
    factor=factor[1];
    zz=size(factor);
@@ -519 +519 @@
    for (@z=1;@z<=zz;@z++)
    {
-     if ((ex[@z] mod 2)==1)
+     if ((@ex[@z] mod 2)==1)
      {
         f=f*factor[@z];