Changeset d0a341 in git

Timestamp:

May 3, 1998, 1:57:37 PM (26 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

98edbb5e63c2f807c92514a18f75cb7e47451806

Parents:

c1e2b1837b627727ba4d5777298b2631a1a05311

Message:

* new version from Agnes


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

File:

• Singular/LIB/finvar.lib (modified) (7 diffs)

Singular/LIB/finvar.lib

@@ -1 @@
-// $Header: /exports/cvsroot-2/cvsroot/Singular/LIB/finvar.lib,v 1.8 1998-04-03 22:47:02 krueger Exp $
-////////////////////////////////////////////////////////////////////////////////
-
-version="$Id: finvar.lib,v 1.8 1998-04-03 22:47:02 krueger Exp $";
+// $Id: finvar.lib,v 1.9 1998-05-03 11:57:37 obachman Exp $
+// author: Agnes Eileen Heydtmann, email:agnes@math.uni-sb.de
+// last change: 3.5.98 
+//////////////////////////////////////////////////////////////////////////////
+version="$Id: finvar.lib,v 1.9 1998-05-03 11:57:37 obachman Exp $"
 info="
 LIBRARY:  finvar.lib       LIBRARY TO CALCULATE INVARIANT RINGS & MORE
@@ -1722 +1723 @@
     part_mon=mon[lower_bound..upper_bound];
     B=minbase(B+evaluate_reynolds(REY,part_mon));
-    if (ncols(B)==cd or upper_bound==j)
+    if ((ncols(B)==cd and B[1]<>0) or upper_bound==j)
     { degBound=0;
       return(B);
@@ -4116 +4117 @@
          of the powers is then homogeneous of degree d.
 EXAMPLE: example power_products; gives an example
-{ if (d<=0)
+{ ring R=0,x,dp;
+  if (d<=0)
   { "ERROR:   The <int> may not be <= 0";
     return();
@@ -5208 +5210 @@
           matrix P=primary_charp(L[1],newring,v);
           matrix S,IS=secondary_charp(P,L[1],newring,v);
-          if (voice==2)
+          if (defined(aksldfalkdsflkj)==2)
           { kill aksldfalkdsflkj;
           }
@@ -5225 +5227 @@
           list l=primary_charp_no_molien(L[1],v);
           if (size(l)==2)
-          { matix S=secondary_no_molien(l[1],L[1],l[2],v);
+          { matrix S=secondary_no_molien(l[1],L[1],l[2],v);
           }
           else
@@ -5564 +5566 @@
     execute "ring R=("+charstr(br)+"),(x(1..n),y(1..m)),(dp(n),dp(m));";
     execute "minpoly=number("+mp+");";
-    ring R=0,(x(1..n),y(1..m)),(dp(n),dp(m));
     ideal vars=x(1..n);
     map emb=br,vars;
@@ -5841 +5842 @@
          print(image_of_variety(I,F));
 }
+
+