Changeset d914cf0 in git for libpolys/polys/monomials
- Timestamp:
- Aug 12, 2011, 7:25:13 PM (13 years ago)
- Branches:
- (u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')
- Children:
- 77bb59200a4a6c29f96eb37fb6da3b221d283eba
- Parents:
- c10515350d72537c759f372977e1d69188eed976
- git-author:
- Oleksandr Motsak <motsak@mathematik.uni-kl.de>2011-08-12 19:25:13+02:00
- git-committer:
- Mohamed Barakat <mohamed.barakat@rwth-aachen.de>2011-11-09 13:24:02+01:00
- Location:
- libpolys/polys/monomials
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
libpolys/polys/monomials/maps.cc
rc10515 rd914cf0 159 159 return result; 160 160 } 161 162 /*2163 *shifts the variables between minvar and maxvar of p \in p_ring to the164 *first maxvar-minvar+1 variables in the actual ring165 *be carefull: there is no range check for the variables of p166 */167 static poly pChangeSizeOfPoly(ring p_ring, poly p,int minvar,int maxvar, const ring dst_r)168 {169 int i;170 poly result = NULL,resultWorkP;171 number n;172 173 if (p==NULL) return result;174 else result = p_Init(dst_r);175 resultWorkP = result;176 while (p!=NULL)177 {178 for (i=minvar;i<=maxvar;i++)179 p_SetExp(resultWorkP,i-minvar+1,p_GetExp(p,i,p_ring),dst_r);180 p_SetComp(resultWorkP,p_GetComp(p,p_ring),dst_r);181 n=n_Copy(pGetCoeff(p),dst_r->cf);182 p_SetCoeff(resultWorkP,n,dst_r);183 p_Setm(resultWorkP,dst_r);184 pIter(p);185 if (p!=NULL)186 {187 pNext(resultWorkP) = p_Init(dst_r);188 pIter(resultWorkP);189 }190 }191 return result;192 }193 194 161 195 162 void maFindPerm(char **preim_names, int preim_n, char **preim_par, int preim_p, -
libpolys/polys/monomials/p_polys.h
rc10515 rd914cf0 1920 1920 1921 1921 /*----------------------------------------------------*/ 1922 int p_Var(poly mi, const ring r);1922 int p_Var(poly mi, const ring r); 1923 1923 /// the minimal index of used variables - 1 1924 int p_LowVar (poly p );1924 int p_LowVar (poly p, const ring r); 1925 1925 1926 1926 /*----------------------------------------------------*/
Note: See TracChangeset
for help on using the changeset viewer.