File: [local] / OpenXM / src / ox_math / lib / primadec.m (download)
Revision 1.3, Thu Jan 20 15:00:02 2000 UTC (24 years, 7 months ago) by ohara
Branch: MAIN
CVS Tags: RELEASE_20000124 Changes since 1.2: +6 -22
lines
I add oxclient.m
|
(* $OpenXM: OpenXM/src/ox_math/lib/primadec.m,v 1.3 2000/01/20 15:00:02 ohara Exp $ *)
(*
usage:
$ math
Mathematica 3.0 for Linux
Copyright 1988-97 Wolfram Research, Inc.
-- Motif graphics initialized --
In[1]:= <<primadec.m
In[2]:= OxStart["ox_asir"]
In[3]:= primadec[{x^2-3*x+2},{x}]
Out[3]= {{{-1 + x}, {-1 + x}}, {{-2 + x}, {-2 + x}}}
*)
primadec[polys_List, vars_List] := Block[
{s},
s = StringJoin[
{"m_rtostr(primadec( ", asirRtostr[polys], " , ", asirRtostr[vars], " ));"}];
OxExecuteString[s];
ToExpression[OxPopString[]]
]
Get[Environment["OpenXM_HOME"] <> "/lib/math/oxclient.m"]