Changeset 320251 in git
- Timestamp:
- May 2, 2007, 12:02:11 PM (16 years ago)
- Branches:
- (u'spielwiese', '828514cf6e480e4bafc26df99217bf2a1ed1ef45')
- Children:
- 52e38fce6d01c11b7934d7b1830db574af0f6983
- Parents:
- 16493dfc8a54ca337ccff41e947b70df61c58c2b
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
kernel/clapsing.cc
r16493d r320251 3 3 * Computer Algebra System SINGULAR * 4 4 ****************************************/ 5 // $Id: clapsing.cc,v 1.1 4 2006-10-02 14:47:51 Singular Exp $5 // $Id: clapsing.cc,v 1.15 2007-05-02 10:02:11 Singular Exp $ 6 6 /* 7 7 * ABSTRACT: interface between Singular and factory … … 892 892 pDelete(&p); 893 893 } 894 number n_T=pGetCoeff(T_F_conv); 894 number n_T; 895 if (T_F_conv!=NULL) n_T=pGetCoeff(T_F_conv); 896 else n_T=nInit(0); 895 897 number n_f=pGetCoeff(f); 896 poly n_f_m=pMult_nn(pCopy(f),n_T); 897 T_F_conv=pMult_nn(T_F_conv,n_f); 898 poly n_f_m=pCopy(f); 899 if (n_T!=NULL) n_f_m=pMult_nn(n_f_m,n_T); 900 if (T_F_conv!=NULL) T_F_conv=pMult_nn(T_F_conv,n_f); 898 901 T_F_conv=pSub(T_F_conv,n_f_m); 899 902 if (T_F_conv!=NULL)
Note: See TracChangeset
for help on using the changeset viewer.