Changeset c9cd73 in git for Singular

Timestamp:

Jul 5, 2022, 12:13:32 PM (22 months ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

16c27a21d004903f072a40cddcbf292a35a04b73

Parents:

1e1107a681a138069578c0396533c84b0b2e0ca3

git-author:

Hans Schoenemann <hannes@mathematik.uni-kl.de>2022-07-05 12:13:32+02:00

git-committer:

Hans Schoenemann <hannes@mathematik.uni-kl.de>2022-07-05 13:30:50+02:00

Message:

opt: removed unnneeded std, added example

File:

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

Singular/LIB/locnormal.lib

@@ -1 +1 @@
 //////////////////////////////////////////////////////////////////////////////
-version="version locnormal.lib 4.1.2.0 Feb_2019 "; // $Id$
+version="version locnormal.lib 4.3.1.0 Jul_2022 "; // $Id$
 category="Commutative Algebra";
 info="
@@ -145 +145 @@
   if (printTimings==1) {"Time for modStd/std Jacobian "+string(timer-t);}
 
+  int dim_J=dim(J);
   setring R;
   ideal U;
   poly condu;
   ideal J = fetch(Q, J);
-  J = std(J);
 
   // Already normal
-  if (dim(J) < 0) {
-     U = 1;
-     condu = 1;
-     return(list(U, condu));
+  if (dim_J < 0)
+  {
+     return(list(ideal(1), poly(1)));
   }