(* $OpenXM: OpenXM/src/ox_math/lib/primadec.m,v 1.2 1999/12/17 02:21:41 ohara Exp $ *) (* usage: $ math Mathematica 3.0 for Linux Copyright 1988-97 Wolfram Research, Inc. -- Motif graphics initialized -- In[1]:= < 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[ {"m_rtostr(primadec( ", asirRtostr[polys], " , ", asirRtostr[vars], " ));"}]; OxExecuteString[s]; ToExpression[OxPopString[]] ] Install[Environment["OpenXM_HOME"] <> "/bin/math2ox"] OxStart["ox_asir"]