Changeset 57bd83 in git

Timestamp:

Mar 18, 2019, 12:38:54 PM (5 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

c854b9a4ef6bb168095febb6c5bb20cf579a7ff4

Parents:

4188f03ab0bc2bf245e4e875fb777183ee3802ce

Message:

add: fmpq_poly_t conversions

Location:

libpolys/polys

Files:

• flintconv.cc (modified) (1 diff)
• flintconv.h (modified) (2 diffs)

libpolys/polys/flintconv.cc

@@ -96 +96 @@
 }
 
+void convSingPFlintP(fmpq_poly_t res, poly p, const ring r)
+{
+  int d=p_GetExp(p,1,r);
+  fmpq_poly_init2(res,d+1);
+  _fmpq_poly_set_length (res, d + 1);
+  while(p!=NULL)
+  {
+    number n=pGetCoeff(p);
+    fmpq_t c;
+    convSingNFlintN(c,n);
+    fmpq_poly_set_coeff_fmpq(res,p_GetExp(p,1,r),c);
+    fmpq_clear(c);
+    pIter(p);
+  }
+}
+
+poly convFlintPSingP(fmpq_poly_t f, const ring r)
+{
+  int d=fmpq_poly_length(f);
+  poly p=NULL;
+  for(int i=0; i<=d; i++)
+  {
+    fmpq_t c;
+    fmpq_poly_get_coeff_fmpq(c,f,i);
+    number n=convFlintNSingN(c);
+    poly pp=p_Init(r);
+    pSetCoeff0(pp,n);
+    p_SetExp(pp,1,i,r);
+    p_Setm(pp,r);
+    p=p_Add_q(p,pp,r);
+  }
+  return p;
+}
 
 bigintmat* singflint_LLL(bigintmat*  m, bigintmat* T)

libpolys/polys/flintconv.h

@@ -34 +34 @@
 #include <flint/fmpq.h>
 #include <flint/fmpz_poly.h>
+#include <flint/fmpq_poly.h>
 #include <flint/fmpz_poly_mat.h>
 #include <flint/fmpz_lll.h>
@@ -45 +46 @@
 number convFlintNSingN (fmpz_t f);
 number convFlintNSingN (fmpq_t f);
+void convSingPFlintP(fmpq_poly_t res, poly p, const ring r);
+poly convFlintPSingP(fmpq_poly_t f, const ring r);
 
 bigintmat*  singflint_LLL(bigintmat* A, bigintmat* T);