Changeset b15849d in git


Ignore:
Timestamp:
Dec 13, 2010, 8:08:16 PM (14 years ago)
Author:
Hans Schoenemann <hannes@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '8a337797cc4177aa8747d661d5c4214ea2095dac')
Children:
956ba439d8a09a12a3da84cf16ed6bddaa45f6b1
Parents:
e813e841bc59f7320041aab8ecea388a43ae2c3a
Message:
pfisters changes

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

Legend:

Unmodified
Added
Removed
  • Singular/LIB/primdec.lib

    re813e84 rb15849d  
    2121    Krick, Logar, Laplagne and Kemper (implementation by Gerhard Pfister and Santiago Laplagne).
    2222    They work in any characteristic.@*
    23     Some of the algorithms in this library require a global ordering.
    24     qrings are not possible as baserings in this library.
    25     For local or mixed orderings, most procedures handle the appropriate
    26     ring changes internally; otherwise an error message will be printed.
     23    Baserings must have a global ordering and no quotient ideal.
    2724
    2825
     
    10251022  }
    10261023
    1027   if(voice>=8){primary=extF(primary);}
     1024  if(voice>=8){primary=extF(primary);};
    10281025
    10291026//test whether all ideals in the decomposition are primary and
     
    28632860      string newva;
    28642861      string newma;
     2862      poly f;
    28652863      for(@k=1;@k<=nvars(basering);@k++)
    28662864      {
     
    28822880        {
    28832881          newma=newma+string(0)+",";
     2882          fried[@n]=fried[@n]/leadcoef(fried[@n]);
     2883          f=fried[@n]-lead(fried[@n]);
     2884          @j=subst(@j,var(@k),-f);
    28842885        }
    28852886      }
     
    28892890      execute("map @kappa=gnir,"+newma);
    28902891      ideal @j= @kappa(@j);
    2891       @j=simplify(@j,2);
    2892       attrib(@j,"isSB",1);
     2892      @j=std(@j);
     2893
    28932894      list pr=decomp(@j);
    28942895      setring gnir;
Note: See TracChangeset for help on using the changeset viewer.