Changeset 38f6b33 in git


Ignore:
Timestamp:
Apr 26, 2001, 2:05:15 PM (23 years ago)
Author:
Mathias Schulze <mschulze@…>
Branches:
(u'spielwiese', '82fc009ea2b0098c1a4896c841bb70860976bdfc')
Children:
13fe1bac96f68d4d7cf1801dc2db764cea629bcd
Parents:
420f497700b40d44021197923375f5e709b9beb8
Message:
*mschulze: hopefully no more redundant elements in return list of spsemicont


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

Legend:

Unmodified
Added
Removed
  • Singular/LIB/gaussman.lib

    r420f49 r38f6b33  
    11///////////////////////////////////////////////////////////////////////////////
    2 version="$Id: gaussman.lib,v 1.36 2001-03-20 18:19:48 mschulze Exp $";
     2version="$Id: gaussman.lib,v 1.37 2001-04-26 12:05:15 mschulze Exp $";
    33category="Singularities";
    44
     
    338338list V: V-filtration of f on H''/H'
    339339if opt==0 or opt==1:
    340   ideal V[1]: spectral numbers in increasing order
    341   intvec V[2]:
    342     int V[2][i]: multiplicity of spectral number V[1][i]
     340  intvec V[1]: numerators of spectral numbers
     341  intvec V[2]: denominators of spectral numbers
     342  intvec V[3]:
     343    int V[3][i]: multiplicity of spectral number V[1][i]/V[2][i]
    343344if opt==1:
    344   list V[3]:
    345     module V[3][i]: vector space basis of V[1][i]-th graded part
    346                     in terms of V[4]
    347   ideal V[4]: monomial vector space basis
     345  list V[4]:
     346    module V[4][i]: vector space basis of V[1][i]/V[2][i]-th graded part
     347                    in terms of V[5]
     348  ideal V[5]: monomial vector space basis
    348349default: opt=1
    349350@end format
     
    11541155{
    11551156  list l,l0;
    1156   int i,k;
     1157  int i,j,k;
    11571158  while(spissemicont(S0,#))
    11581159  {
     
    11601161    {
    11611162      l0=spsemicont(S0,list(S[1..size(S)-1]));
    1162       for(i=size(l0);i>=1;i--)
    1163       {
    1164         l0[i][size(S)]=k;
    1165       }
    1166       l=l+l0;
     1163      for(i=1;i<=size(l0);i++)
     1164      {
     1165        if(size(l)>0)
     1166        {
     1167          j=1;
     1168          while(j<size(l)&&l[j]!=l0[i])
     1169          {
     1170            j++;
     1171          }
     1172          if(l[j]==l0[i])
     1173          {
     1174            l[j][size(S)]=k;
     1175          }
     1176          else
     1177          {
     1178            l0[i][size(S)]=k;
     1179            l=l+list(l0[i]);
     1180          }
     1181        }
     1182        else
     1183        {
     1184          l=l0;
     1185        }
     1186      }
    11671187    }
    11681188    S0=spsub(S0,S[size(S)]);
Note: See TracChangeset for help on using the changeset viewer.