Changeset e4ca29b in git


Ignore:
Timestamp:
Nov 9, 2007, 12:29:45 PM (16 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')
Children:
0b4007f61f4525624acc8b539c5da92fdfe546fc
Parents:
e5e8e8aff2ec0d0232c8319fccfd6395577635cc
Message:
*hannes: scComputeHCw: currently not in use


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

Legend:

Unmodified
Added
Removed

  • kernel/hdegree.cc

    re5e8e8 re4ca29b  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: hdegree.cc,v 1.8 2007-11-06 17:55:57 Singular Exp $ */
     4/* $Id: hdegree.cc,v 1.9 2007-11-09 11:29:45 Singular Exp $ */
    55/*
    66*  ABSTRACT -  dimension, multiplicity, HC, kbase
    … …  
    13591359}
    13601360
     1361#if 0 -- alternative implementation of scComputeHC
    13611362void scComputeHCw(ideal ss, ideal Q, int ak, poly &hEdge, ring tailRing)
    13621363{
    … …  
    14191420    ideal res=scIdKbase();
    14201421    res->rank=ss->rank;
    1421     poly p_ind=NULL; int ind=-2;
    1422     for(i=IDELEMS(res)-1;i>=0;i--)
    1423     {
    1424       if (pCmp(res->m[i],p_ind)==1) { p_ind=res->m[i]; ind=i; }
     1422    poly p_ind=res->m[0]; int ind=0;
     1423    for(i=IDELEMS(res)-1;i>0;i--)
     1424    {
     1425      if (pCmp(res->m[i],p_ind)==-1) { p_ind=res->m[i]; ind=i; }
    14251426    }
    14261427    assume(p_ind!=NULL);
    … …  
    14381439  }
    14391440}
     1441#endif

  • kernel/ring.cc

    re5e8e8 re4ca29b  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: ring.cc,v 1.69 2007-11-06 17:55:58 Singular Exp $ */
     4/* $Id: ring.cc,v 1.70 2007-11-09 11:29:44 Singular Exp $ */
    55
    66/*
    … …  
    31963196  p_ProcsSet(r, r->p_Procs);
    31973197
    3198   // weight_all_1
    3199   {
    3200     int i;
    3201     r->weight_all_1=TRUE;
    3202     for(i=r->N; i>0; i--)
    3203     {
    3204       if (pWeight(i,r)!=1) { r->weight_all_1=FALSE; break; }
    3205     }
    3206   }
    32073198  return FALSE;
    32083199}

  • kernel/stairc.h

    re5e8e8 re4ca29b  
    44*  Computer Algebra System SINGULAR     *
    55****************************************/
    6 /* $Id: stairc.h,v 1.3 2007-11-06 17:55:59 Singular Exp $ */
     6/* $Id: stairc.h,v 1.4 2007-11-09 11:29:44 Singular Exp $ */
    77/*
    88* ABSTRACT
    … …  
    1212
    1313void scComputeHC(ideal s,ideal Q, int  k,poly &hEdge, ring tailRing = currRing);
     14#if 0 - alternative implementation for tests
    1415void scComputeHCw(ideal s,ideal Q, int  k,poly &hEdge, ring tailRing = currRing);
     16#endif
    1517
    1618intvec * scIndIntvec(ideal S, ideal Q=NULL);

  • kernel/structs.h

    re5e8e8 re4ca29b  
    44*  Computer Algebra System SINGULAR     *
    55****************************************/
    6 /* $Id: structs.h,v 1.40 2007-11-06 17:55:59 Singular Exp $ */
     6/* $Id: structs.h,v 1.41 2007-11-09 11:29:44 Singular Exp $ */
    77/*
    88* ABSTRACT
    … …  
    574574  // 1 for lex ordering (except ls), -1 otherwise
    575575  BOOLEAN   ComponentOrder;
    576   BOOLEAN   weight_all_1; // 1 if all weights are 1
    577576
    578577
Note: See TracChangeset for help on using the changeset viewer.