Changeset 3ce617 in git

Timestamp:

May 18, 2011, 11:04:25 AM (13 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

3857cbd54ecdd34fa283e966babea53e8987186e

Parents:

2eb19e15c7ab2ab85c2f409c83aa5a1eb5941c2c

Message:

include example for libsingular

git-svn-id: file:///usr/local/Singular/svn/trunk@14223 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• HOWTO-libsingular (modified) (1 diff)

HOWTO-libsingular

@@ -4 +4 @@
 make install-libsingular
 
+---------------------------------------
+how to compile and run the the example:
+g++ -I......include -o tt tt.cc -L..../Singular -lsingular
+export LD_LIBRARY_PATH=...../Singular
+./tt
+--------------------------------------
+the example:
+#include <libsingular.h>
+void main()
+{
+  // init path names etc.
+  siInit((char *)"/home/hannes/singular-gap/Singular/p_Procs_FieldZp.so");
+
+  // construct the ring Z/32003[x,y,z]
+  // the variable names
+  char **n=(char**)omalloc(3*sizeof(char*));
+  n[0]=omStrDup("x");
+  n[1]=omStrDup("y");
+  n[2]=omStrDup("z");
+
+  ring R=rDefault(32003,3,n);
+  // make R the default ring:
+  rChangeCurrRing(R);
+
+  // create the polynomial 1
+  poly p1=p_ISet(1,R);
+
+  // create tthe polynomial 2*x^3*z^2
+  poly p2=p_ISet(2,R);
+  pSetExp(p2,1,3);
+  pSetExp(p2,3,2);
+  pSetm(p2);
+
+  // print p1 + p2
+  pWrite(p1); printf(" + \n"); pWrite(p2); printf("\n");
+
+  // compute p1+p2
+  p1=p_Add_q(p1,p2,R); p2=NULL;
+  pWrite(p1); 
+
+  // cleanup:
+  pDelete(&p1);
+  rKill(R);
+}