OpenXM/src/ox_maple/simple.ml - diff

Return to simple.ml CVS log

Up to [local] / OpenXM / src / ox_maple

-version 1.1, 2004/06/21 12:46:04
+version 1.3, 2009/03/16 14:25:57
 Line 1
 Line 1
 Line 1
- # $OpenXM$
+ # $OpenXM: OpenXM/src/ox_maple/simple.ml,v 1.2 2004/06/21 13:10:40 takayama Exp $
+ ox_start_maple:=define_external(
+    'ml_start_maple',
+    'RETURN'::integer[4],
+    'LIB'="libsimple.so");
  ox_start_sm1:=define_external(
     'ml_start_asir',
     'RETURN'::integer[4],
-Line 21  ox_pop_string:=define_external(
+Line 26  ox_pop_string:=define_external(
 Line 21  ox_pop_string:=define_external(
 Line 26  ox_pop_string:=define_external(
     'RETURN'::string[],
     'LIB'="libsimple.so");
+ asir_gr:=proc(f,v,ord)
+    local sf,sv,sord;
+    sf := sprintf("%a",f);
+    sv := sprintf("%a",v);
+    sord := sprintf("%a",ord);
+    ox_execute_string(cat("gr(",sf,",",sv,",",sord,");"));
+    RETURN(parse(ox_pop_string()));
+ end :
+ # asir_gr([x^2+y^2-4,x*y-1],[x,y],2);