Changeset 2d19a1b in git


Ignore:
Timestamp:
Feb 27, 2001, 7:06:35 PM (22 years ago)
Author:
Mathias Schulze <mschulze@…>
Branches:
(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', '0604212ebb110535022efecad887940825b97c3f')
Children:
0936ad6711f0a6991a14ecc189209f979f6054df
Parents:
8cfee1c3269a440dc074eae208795fd4da490c0e
Message:
*mschulze: redNF with paramters, MinDegW


git-svn-id: file:///usr/local/Singular/svn/trunk@5286 2c84dea3-7e68-4137-9b89-c4e89433aadc
Location:
Singular
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • Singular/ideals.cc

    r8cfee1c r2d19a1b  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: ideals.cc,v 1.122 2001-02-22 09:40:15 Singular Exp $ */
     4/* $Id: ideals.cc,v 1.123 2001-02-27 18:06:34 mschulze Exp $ */
    55/*
    66* ABSTRACT - all basic methods to manipulate ideals
    … …  
    29052905}
    29062906
     2907int idMinDegW(ideal M,intvec *w)
     2908{
     2909  int d=-1;
     2910  for(int i=0;i<IDELEMS(M);i++)
     2911  {
     2912    int d0=pMinDegW(M->m[i],w);
     2913    if(-1<d0&&(d0<d||d==-1))
     2914      d=d0;
     2915  }
     2916  return d;
     2917}
     2918
    29072919ideal idSeries(int n,ideal M,matrix U=NULL)
    29082920{

  • Singular/ideals.h

    r8cfee1c r2d19a1b  
    44*  Computer Algebra System SINGULAR     *
    55****************************************/
    6 /* $Id: ideals.h,v 1.32 2001-02-22 09:40:16 Singular Exp $ */
     6/* $Id: ideals.h,v 1.33 2001-02-27 18:06:34 mschulze Exp $ */
    77/*
    88* ABSTRACT - all basic methods to manipulate ideals
    … …  
    129129ideal   idJet(ideal i,int d);
    130130ideal   idJetW(ideal i,int d, intvec * iv);
     131int idMinDegW(ideal M,intvec *w);
    131132ideal   idSeries(int n,ideal M,matrix U=NULL);
    132133

  • Singular/polys.h

    r8cfee1c r2d19a1b  
    44*  Computer Algebra System SINGULAR     *
    55****************************************/
    6 /* $Id: polys.h,v 1.54 2001-02-08 13:13:04 Singular Exp $ */
     6/* $Id: polys.h,v 1.55 2001-02-27 18:06:35 mschulze Exp $ */
    77/*
    88* ABSTRACT - all basic methods to manipulate polynomials of the
    … …  
    403403poly      pJet(poly p, int m);
    404404poly      ppJetW(poly p, int m, short * iv);
     405int pMinDegW(poly p,intvec *w);
    405406poly      pSeries(int n,poly p,poly u=NULL);
    406407poly      pInvers(int n, poly p);

  • Singular/polys1.cc

    r8cfee1c r2d19a1b  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: polys1.cc,v 1.64 2001-02-08 13:46:36 Singular Exp $ */
     4/* $Id: polys1.cc,v 1.65 2001-02-27 18:06:35 mschulze Exp $ */
    55
    66/*
    … …  
    11851185}
    11861186
     1187int pMinDegW(poly p,intvec *w)
     1188{
     1189  if(p==NULL)
     1190    return -1;
     1191  int n=0;
     1192  if(w!=NULL)
     1193    n=w->length();
     1194  if(pVariables<n)
     1195    n=pVariables;
     1196  int d=-1;
     1197  while(p!=NULL)
     1198  {
     1199    int d0=0;
     1200    for(int j=0;j<n;j++)
     1201      d0+=(*w)[j]*pGetExp(p,j+1);
     1202    if(d0<d||d==-1)
     1203      d=d0;
     1204    pIter(p);
     1205  }
     1206  return d;
     1207}
     1208
    11871209poly pSeries(int n,poly p,poly u=NULL)
    11881210{
    … …  
    12051227  if(n==0)
    12061228    return v;
    1207   /* u0 is pGetCoeff(v) */ 
    12081229  poly u1=pJet(pSub(pOne(),pMult_nn(u,u0)),n);
    12091230  if(u1==NULL)
Note: See TracChangeset for help on using the changeset viewer.