Changeset 55683a in git
 Timestamp:
 Mar 8, 1999, 3:11:00 PM (25 years ago)
 Branches:
 (u'fiekerDuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'b52fc4b2495505785981d640dcf7eb3e456778ef')
 Children:
 be0d84532eb45d49b654745e810a1a7a534d71ff
 Parents:
 4e7aa66aa67de525ebbb96fdd01e53722c1b3eaa
 Files:

 3 added
 1 edited
Legend:
 Unmodified
 Added
 Removed

Singular/clapsing.cc
r4e7aa6 r55683a 3 3 * Computer Algebra System SINGULAR * 4 4 ****************************************/ 5 // $Id: clapsing.cc,v 1.4 5 19990121 15:00:05Singular Exp $5 // $Id: clapsing.cc,v 1.46 19990308 14:10:22 Singular Exp $ 6 6 /* 7 7 * ABSTRACT: interface between Singular and factory … … 821 821 for(i=0;i<IDELEMS(I);i++) 822 822 { 823 L.append(convSingPClapP(I>m[i])); 823 if (I>m[i]!=NULL) 824 L.append(convSingPClapP(I>m[i])); 824 825 } 825 826 } … … 832 833 for(i=0;i<IDELEMS(I);i++) 833 834 { 834 L.append(convSingTrPClapP(I>m[i])); 835 if (I>m[i]!=NULL) 836 L.append(convSingTrPClapP(I>m[i])); 835 837 } 836 838 } … … 850 852 n = max(LLi.getItem().length(),n); 851 853 } 852 res=mpNew(m,n);853 854 if ((m==0)  (n==0)) 854 855 { 855 856 Warn("char_series returns %d x %d matrix from %d input polys (%d)\n",m,n,IDELEMS(I)+1,LL.length()); 856 857 iiWriteMatrix((matrix)I,"I",2,0); 857 } 858 m=max(m,1); 859 n=max(n,1); 860 } 861 res=mpNew(m,n); 858 862 for ( m=1, LLi = LL; LLi.hasItem(); LLi++, m++ ) 859 863 {
Note: See TracChangeset
for help on using the changeset viewer.