Changeset d617b27 in git

Timestamp:

Dec 13, 2007, 3:32:05 PM (16 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')

Children:

e0e0e208970761d4fef8ef83bb086057c47af513

Parents:

c9af177745579aae03b58f7951eadc98318d3a8a

Message:

*hannes: use a given invec in stdhilb


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

File:

• Singular/LIB/standard.lib (modified) (2 diffs)

Singular/LIB/standard.lib

@@ -3 +3 @@
 //groebner mit Optionen versehen
 //////////////////////////////////////////////////////////////////////////////
-version="$Id: standard.lib,v 1.98 2007-11-06 20:14:04 king Exp $";
+version="$Id: standard.lib,v 1.99 2007-12-13 14:32:05 Singular Exp $";
 category="Miscellaneous";
 info="
@@ -272 +272 @@
   }
 
-  if ( algorithm=="std" || ( algorithm=="stdorslimgb" && char(P)>0 ) )
+  if (( algorithm=="std" || ( algorithm=="stdorslimgb" && char(P)>0 ) )
+  && (defined(hi)!=voice))
   {
     if (p_opt) {"std in ring " + string(Philb);}
     intvec hi = hilb( std(Id(1)),1,W );
   }
-  if ( algorithm=="slimgb" || ( algorithm=="stdorslimgb" && char(P)==0 ) )
+  if (( algorithm=="slimgb" || ( algorithm=="stdorslimgb" && char(P)==0 ) )
+  && (defined(hi)!=voice))
   {
     intvec hi = hilb(qslimgb(Id(1)),1,W);