Changeset 1878b2a in git


Ignore:
Timestamp:
Feb 12, 2019, 3:40:41 PM (5 years ago)
Author:
Hans Schoenemann <hannes@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'd25190065115c859833252500a64cfb7b11e3a50')
Children:
fbb0a89def7b951711a900fdf077ee3c92c83e9b
Parents:
f61fa980009ad544586b12b82ba456e950ca0c1a
Message:
add: maEvalAt
Location:
kernel/maps
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • kernel/maps/gen_maps.cc

    rf61fa9 r1878b2a  
    164164  return p;
    165165}
     166
     167number maEvalAt(const poly p,const number* pt, const ring r)
     168{
     169  ideal map=idInit(r->N,1);
     170  for(int i=r->N-1;i>=0;i--)
     171  {
     172    map->m[i]=p_NSet(n_Copy(pt[i],r->cf),r);
     173  }
     174  poly v=maMapPoly(p,r,map,r,ndCopyMap);
     175  id_Delete(&map,r);
     176  number vv=pGetCoeff(v);
     177  p_LmFree(&v,r);
     178  return vv;
     179}
  • kernel/maps/gen_maps.h

    rf61fa9 r1878b2a  
    2323ideal id_SubstPoly (ideal id, int var, poly image, const ring preimage_r, const ring image_r, const nMapFunc nMap);
    2424
     25/// evaluate the polynomial p at the pt given by the array pt
     26number maEvalAt(const poly p,const number* pt, const ring r);
    2527#endif
    2628
Note: See TracChangeset for help on using the changeset viewer.