Changeset 6a81f8 in git


Ignore:
Timestamp:
Jul 16, 2001, 10:51:48 AM (23 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', '5b153614cbc72bfa198d75b1e9e33dab2645d9fe')
Children:
ab9b401ab1d48c10050bca4ee28dbd6dcde72b18
Parents:
409020f4846b2e67e3e541d8288ef4e479652c98
Message:
*hannes: coef-bug


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

Legend:

Unmodified
Added
Removed
  • Singular/matpol.cc

    r409020 r6a81f8  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: matpol.cc,v 1.41 2001-04-05 15:41:09 Singular Exp $ */
     4/* $Id: matpol.cc,v 1.42 2001-07-16 08:51:48 Singular Exp $ */
    55
    66/*
     
    4040static poly minuscopy (poly p);
    4141static poly pInsert(poly p1, poly p2);
    42 static poly mpExdiv ( poly m, poly d);
     42static poly mpExdiv ( poly m, poly d, poly vars);
    4343static poly mpSelect (poly fro, poly what);
    4444
     
    841841      if (i!=pos_of_1)
    842842      {
    843         h = mpExdiv(f, MATELEM(co,1,i));
     843        h = mpExdiv(f, MATELEM(co,1,i),vars);
    844844        if (h!=NULL)
    845845        {
     
    853853        if (pos_of_1 != -1)
    854854        {
    855           h = mpExdiv(f, MATELEM(co,1,pos_of_1));
     855          h = mpExdiv(f, MATELEM(co,1,pos_of_1),vars);
    856856          if (h!=NULL)
    857857          {
     
    871871*exact divisor: let d  == x^i*y^j, m is thought to have only one term;
    872872*    return m/d iff d divides m, and no x^k*y^l (k>i or l>j) divides m
    873 */
    874 static poly mpExdiv ( poly m, poly d)
     873* consider all variables in vars
     874*/
     875static poly mpExdiv ( poly m, poly d, poly vars)
    875876{
    876877  int i;
     
    878879  for (i=1; i<=pVariables; i++)
    879880  {
    880     if (pGetExp(d,i) > 0)
     881    if (pGetExp(vars,i) > 0)
    881882    {
    882883      if (pGetExp(d,i) != pGetExp(h,i))
     
    937938      if (mp!=NULL)
    938939      {
    939         h = mpExdiv(v, mp /*MATELEM(*m,j,i)*/);
     940        h = mpExdiv(v, mp /*MATELEM(*m,j,i)*/, mp);
    940941        if (h!=NULL)
    941942        {
Note: See TracChangeset for help on using the changeset viewer.