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

Return to primadec.m CVS log

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

version 1.2, 1999/12/17 02:21:41

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

Line 1

(* $OpenXM: OpenXM/src/ox_math/lib/primadec.m,v 1.1 1999/12/15 03:40:36 ohara Exp $ *)

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

usage:

-- Motif graphics initialized --

In[1]:= <<primadec.m

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

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

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

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

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

asirRtostr[x_] := Module[

{list = {}, i, s},

If[ x[[0]] === List,

list = Append[list, " [ " ];

If[ Length[x] > 0 ,

list = Append[list, asirRtostr[ x[[1] ] ] ];

For[i=2, i<= Length[x], i++,

list = Append[list, " , "];

list = Append[list, asirRtostr[ x[[i]] ] ]

]

];

list = Append[list, " ] "];

s = StringJoin[list],

s = ToString[x, InputForm]

]

primadec[polys_List, vars_List] := Block[

{s},

s = StringJoin[

Line 37 primadec[polys_List, vars_List] := Block[

Line 21 primadec[polys_List, vars_List] := Block[

ToExpression[OxPopString[]]

]

Install[Environment["OpenXM_HOME"] <> "/bin/math2ox"]

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

OxStart["ox_asir"]