Return to primadec.m CVS log

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

Annotation of OpenXM/src/ox_math/lib/primadec.m, Revision 1.4

1.4     ! ohara       1: (* $OpenXM: OpenXM/src/ox_math/lib/primadec.m,v 1.3 2000/01/20 15:00:02 ohara Exp $ *)
1.1       ohara       2:
                      3: (*
                      4: usage:
                      5: $ math
                      6: Mathematica 3.0 for Linux
                      7: Copyright 1988-97 Wolfram Research, Inc.
                      8:  -- Motif graphics initialized --
                      9:
                     10: In[1]:= <<primadec.m
1.4     ! ohara      11: In[2]:= primadec[{x^2-3*x+2},{x}]
        !            12: Out[2]= {{{-1 + x}, {-1 + x}}, {{-2 + x}, {-2 + x}}}
1.1       ohara      13: *)
                     14:
                     15: primadec[polys_List, vars_List] := Block[
1.4     ! ohara      16:        {s, expr, fd},
1.1       ohara      17:        s = StringJoin[
                     18:                {"m_rtostr(primadec( ", asirRtostr[polys], " , ",  asirRtostr[vars], " ));"}];
1.4     ! ohara      19:        fd = OxStart["ox_asir"];
        !            20:        OxExecuteString[fd, s];
        !            21:        expr = ToExpression[OxPopString[fd]];
        !            22:        OxClose[fd];
        !            23:        Return[expr]
1.1       ohara      24:        ]
                     25:
1.3       ohara      26: Get[Environment["OpenXM_HOME"] <> "/lib/math/oxclient.m"]
                     27: