Changeset bc9ffda in git


Ignore:
Timestamp:
Feb 25, 2005, 6:07:26 PM (19 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', 'ec94ef7a30b928574c0c3daf41f6804dff5f6b69')
Children:
60dbf7d04c31468876941d0fd0b5459f6dd5b9c4
Parents:
41e418899bda23bfaa5122244dc67751826b1774
Message:
*hannes; pContent stuff


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

Legend:

Unmodified
Added
Removed

  • kernel/polys1.cc

    r41e418 rbc9ffda  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: polys1.cc,v 1.8 2005-02-17 09:42:22 Singular Exp $ */
     4/* $Id: polys1.cc,v 1.9 2005-02-25 17:07:26 Singular Exp $ */
    55
    66/*
    … …  
    486486
    487487number pInitContent(poly ph);
     488number pInitContent_a(poly ph);
    488489
    489490void pContent(poly ph)
    … …  
    504505    {
    505506      h=pInitContent(ph);
     507      p=ph;
     508    }
     509    else if (rField_is_Extension())
     510    {
     511      h=pInitContent_a(ph);
    506512      p=ph;
    507513    }
    … …  
    609615
    610616number pInitContent(poly ph)
     617// only for coefficients in Q
    611618#if 0
    612619{
    … …  
    691698}
    692699#endif
     700
     701number pInitContent_a(poly ph)
     702// only for coefficients in K(a) anf K(a,...)
     703{
     704  number d=pGetCoeff(ph);
     705  int s=naParDeg(d);
     706  if (s /* naParDeg(d)*/ ==0) return naCopy(d);
     707  int s2=-1;
     708  number d2;
     709  int ss;
     710  loop
     711  {
     712    pIter(ph);
     713    if(ph==NULL)
     714    {
     715      if (s2==-1) return naCopy(d);
     716      break;
     717    }
     718    if ((ss=naParDeg(pGetCoeff(ph)))<s)
     719    {
     720      s2=s;
     721      d2=d;
     722      s=ss;
     723      d=pGetCoeff(ph);
     724      if (s2==0) break;
     725    }
     726  }
     727  return naGcd(d,d2,currRing);
     728}
    693729
    694730

  • kernel/structs.h

    r41e418 rbc9ffda  
    44*  Computer Algebra System SINGULAR     *
    55****************************************/
    6 /* $Id: structs.h,v 1.4 2005-02-17 09:42:22 Singular Exp $ */
     6/* $Id: structs.h,v 1.5 2005-02-25 17:07:26 Singular Exp $ */
    77/*
    88* ABSTRACT
    … …  
    1111#include <string.h> /* for memset */
    1212
    13 #define LONGALGNEW
    1413/* standard types */
    1514typedef unsigned char  uchar ;
    … …  
    107106struct sip_package;
    108107struct s_si_link_extension;
    109 #ifndef LONGALGNEW
    110 struct reca;
    111 #endif /* not LONGALGNEW */
    112108
    113109typedef struct  n_Procs_s  n_Procs_s;
    … …  
    145141typedef ip_command *       command;
    146142typedef struct s_si_link_extension *si_link_extension;
    147 #ifndef LONGALGNEW
    148 typedef struct reca *      napoly;
    149 #else /* LONGALGNEW */
    150143typedef polyrec *   napoly;
    151 #endif /* LONGALGNEW */
    152144
    153145#ifdef __cplusplus
Note: See TracChangeset for help on using the changeset viewer.