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

1.1     ! ohara       1: (* $OpenXM$ *)
        !             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
        !            11: In[2]:= primadec[{x^2-3*x+2},{x}]
        !            12: Out[2]= {{{-1 + x}, {-1 + x}}, {{-2 + x}, {-2 + x}}}
        !            13: *)
        !            14:
        !            15: asirRtostr[x_] := Block[
        !            16:        {list = {}, i},
        !            17:        If[ x[[0]] === List,
        !            18:          list = Append[list, " [ " ];
        !            19:          If[ Length[x] > 0 ,
        !            20:                list = Append[list, asirRtostr[ x[[1] ] ] ];
        !            21:                For[i=2, i<= Length[x], i++,
        !            22:                   list = Append[list, " , "];
        !            23:                   list = Append[list, asirRtostr[ x[[i]] ] ]
        !            24:                        ]
        !            25:                  ];
        !            26:          list = Append[list, " ] "];
        !            27:          s = StringJoin[list],
        !            28:          s = ToString[x, InputForm]
        !            29:                ]
        !            30:        ]
        !            31:
        !            32: primadec[polys_List, vars_List] := Block[
        !            33:        {s},
        !            34:        s = StringJoin[
        !            35:                {"m_rtostr(primadec( ", asirRtostr[polys], " , ",  asirRtostr[vars], " ));"}];
        !            36:        OxExecuteString[s];
        !            37:        ToExpression[OxPopString[]]
        !            38:        ]
        !            39:
        !            40: Install[Environment["OpenXM_HOME"] <> "/bin/math2ox"]
        !            41: OxStart["ox_asir"]