Changeset 0d5959c in git

Timestamp:

Mar 7, 2018, 4:13:40 PM (5 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a657104b677b4c461d018cbf3204d72d34ad66a9')

Children:

59b9fdb6e4914ed681cc7907561abf9361bae474

Parents:

b28bf25e51ba900b4e571231a6508fa28f691ed2

git-author:

Hans Schoenemann <hannes@mathematik.uni-kl.de>2018-03-07 16:13:40+01:00

git-committer:

Hans Schoenemann <hannes@mathematik.uni-kl.de>2018-03-07 16:44:34+01:00

Message:

add: id_Array2Vector

Location:

libpolys/polys

Files:

• simpleideals.cc (modified) (1 diff)
• simpleideals.h (modified) (1 diff)

libpolys/polys/simpleideals.cc

@@ -1142 +1142 @@
 }
 
-
-// converts mat to module, destroys mat
+/// for julia: convert an array of poly to vector
+poly id_Array2Vector(poly *m, unsigned n, const ring R)
+{
+  poly h;
+  int l;
+  sBucket_pt bucket = sBucketCreate(R);
+
+  for(unsigned j=0;j<n ;j++)
+  {
+    h = m[j];
+    if (h!=NULL)
+    {
+      h=p_Copy(h, R);
+      l=pLength(h);
+      p_SetCompP(h,j+1, R);
+      sBucket_Merge_p(bucket, h, l);
+    }
+  }
+  sBucketClearMerge(bucket, &h, &l);
+  sBucketDestroy(&bucket);
+  return h;
+}
+
+/// converts mat to module, destroys mat
 ideal id_Matrix2Module(matrix mat, const ring R)
 {

libpolys/polys/simpleideals.h

@@ -169 +169 @@
 void id_Shift(ideal M, int s, const ring r);
 ideal id_Delete_Pos(const ideal I, const int pos, const ring r);
+
+/// for julia: convert an array of poly to vector
+poly id_Array2Vector(poly *m, unsigned n, const ring R);
 #endif