OpenXM/src/ox_math/lib/primadec.m - diff

Return to primadec.m CVS log

Up to [local] / OpenXM / src / ox_math / lib

version 1.3, 2000/01/20 15:00:02

version 1.4, 2000/03/06 09:59:50

Line 1

(* $OpenXM: OpenXM/src/ox_math/lib/primadec.m,v 1.2 1999/12/17 02:21:41 ohara Exp $ *)

(* $OpenXM: OpenXM/src/ox_math/lib/primadec.m,v 1.3 2000/01/20 15:00:02 ohara Exp $ *)

usage:

-- Motif graphics initialized --

In[1]:= <<primadec.m

In[2]:= OxStart["ox_asir"]

In[2]:= primadec[{x^2-3*x+2},{x}]

In[3]:= primadec[{x^2-3*x+2},{x}]

Out[2]= {{{-1 + x}, {-1 + x}}, {{-2 + x}, {-2 + x}}}

Out[3]= {{{-1 + x}, {-1 + x}}, {{-2 + x}, {-2 + x}}}

primadec[polys_List, vars_List] := Block[

{s},

{s, expr, fd},

s = StringJoin[

{"m_rtostr(primadec( ", asirRtostr[polys], " , ", asirRtostr[vars], " ));"}];

OxExecuteString[s];

fd = OxStart["ox_asir"];

ToExpression[OxPopString[]]

OxExecuteString[fd, s];

expr = ToExpression[OxPopString[fd]];

OxClose[fd];

Return[expr]

]

Get[Environment["OpenXM_HOME"] <> "/lib/math/oxclient.m"]