Changeset 04025b in git for Singular/iparith.cc


Ignore:
Timestamp:
Jul 5, 2007, 10:37:06 AM (16 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', 'd0474371d8c5d8068ab70bfb42719c97936b18a6')
Children:
409aaec1b8fd68d370391fe4f92922d5ea1461f4
Parents:
5ef9d3216a3ed44571f0d194f790d426895c1222
Message:
*hannes: additional checks for homog(p,x): weighted case


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

Legend:

Unmodified
Added
Removed

  • Singular/iparith.cc

    r5ef9d3 r04025b  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: iparith.cc,v 1.447 2007-06-26 18:52:11 Singular Exp $ */
     4/* $Id: iparith.cc,v 1.448 2007-07-05 08:37:06 Singular Exp $ */
    55
    66/*
    … …  
    22022202    return TRUE;
    22032203  }
    2204   res->data = (char *)pHomogen((poly)u->Data(),i);
    2205   return FALSE;
     2204  poly p=pOne(); pSetExp(p,i,1); pSetm(p);
     2205  int d=pWTotaldegree(p);
     2206  pLmDelete(p);
     2207  if (d==1)
     2208    res->data = (char *)pHomogen((poly)u->Data(),i);
     2209  return (d!=1);
    22062210}
    22072211static BOOLEAN jjHOMOG_ID(leftv res, leftv u, leftv v)
    … …  
    22132217    return TRUE;
    22142218  }
    2215   res->data = (char *)idHomogen((ideal)u->Data(),i);
    2216   return FALSE;
     2219  poly p=pOne(); pSetExp(p,i,1); pSetm(p);
     2220  int d=pWTotaldegree(p);
     2221  pLmDelete(p);
     2222  if (d==1)
     2223    res->data = (char *)idHomogen((ideal)u->Data(),i);
     2224  return (d!=1);
    22172225}
    22182226static BOOLEAN jjINDEPSET2(leftv res, leftv u, leftv v)
Note: See TracChangeset for help on using the changeset viewer.