Changeset 55683a in git


Ignore:
Timestamp:
Mar 8, 1999, 3:11:00 PM (25 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'b52fc4b2495505785981d640dcf7eb3e456778ef')
Children:
be0d84532eb45d49b654745e810a1a7a534d71ff
Parents:
4e7aa66aa67de525ebbb96fdd01e53722c1b3eaa
Message:
*hannes: fixed bug8 (char_series)


git-svn-id: file:///usr/local/Singular/svn/trunk@2888 2c84dea3-7e68-4137-9b89-c4e89433aadc
Files:
3 added
1 edited

Legend:

Unmodified
Added
Removed
  • Singular/clapsing.cc

    r4e7aa6 r55683a  
    33*  Computer Algebra System SINGULAR     *
    44****************************************/
    5 // $Id: clapsing.cc,v 1.45 1999-01-21 15:00:05 Singular Exp $
     5// $Id: clapsing.cc,v 1.46 1999-03-08 14:10:22 Singular Exp $
    66/*
    77* ABSTRACT: interface between Singular and factory
     
    821821    for(i=0;i<IDELEMS(I);i++)
    822822    {
    823       L.append(convSingPClapP(I->m[i]));
     823      if (I->m[i]!=NULL)
     824        L.append(convSingPClapP(I->m[i]));
    824825    }
    825826  }
     
    832833    for(i=0;i<IDELEMS(I);i++)
    833834    {
    834       L.append(convSingTrPClapP(I->m[i]));
     835      if (I->m[i]!=NULL)
     836        L.append(convSingTrPClapP(I->m[i]));
    835837    }
    836838  }
     
    850852    n = max(LLi.getItem().length(),n);
    851853  }
    852   res=mpNew(m,n);
    853854  if ((m==0) || (n==0))
    854855  {
    855856    Warn("char_series returns %d x %d matrix from %d input polys (%d)\n",m,n,IDELEMS(I)+1,LL.length());
    856857    iiWriteMatrix((matrix)I,"I",2,0);
    857   }
     858    m=max(m,1);
     859    n=max(n,1);
     860  }
     861  res=mpNew(m,n);
    858862  for ( m=1, LLi = LL; LLi.hasItem(); LLi++, m++ )
    859863  {
Note: See TracChangeset for help on using the changeset viewer.