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.3

1.3     ! ohara       1: (* $OpenXM: OpenXM/src/ox_math/lib/primadec.m,v 1.2 1999/12/17 02:21:41 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.3     ! ohara      11: In[2]:= OxStart["ox_asir"]
        !            12: In[3]:= primadec[{x^2-3*x+2},{x}]
        !            13: Out[3]= {{{-1 + x}, {-1 + x}}, {{-2 + x}, {-2 + x}}}
1.1       ohara      14: *)
                     15:
                     16: primadec[polys_List, vars_List] := Block[
                     17:        {s},
                     18:        s = StringJoin[
                     19:                {"m_rtostr(primadec( ", asirRtostr[polys], " , ",  asirRtostr[vars], " ));"}];
                     20:        OxExecuteString[s];
                     21:        ToExpression[OxPopString[]]
                     22:        ]
                     23:
1.3     ! ohara      24: Get[Environment["OpenXM_HOME"] <> "/lib/math/oxclient.m"]
        !            25: