| version 1.2, 2001/01/04 12:29:32 |
version 1.4, 2001/01/08 05:26:51 |
|
|
| if (IsInteger(f)) return(f); |
if (IsInteger(f)) return(f); |
| if (IsPolynomial(f)) { |
if (IsPolynomial(f)) { |
| if (f == Poly("0")) return(0); |
if (f == Poly("0")) return(0); |
| if (Characteristic(Ringp(f)) != 0) return(f); |
if (Characteristic(GetRing(f)) != 0) return(f); |
| if (IsConstant(f)) return(DC(f,"integer")); |
if (IsConstant(f)) return(DC(f,"integer")); |
| return(f); |
return(f); |
| } |
} |
| Line 56 HelpAdd(["Cancel",["Cancel the greatest common multipl |
|
| Line 56 HelpAdd(["Cancel",["Cancel the greatest common multipl |
|
| |
|
| |
|
| |
|
| /* BUG: It has not yet been rewritten. */ |
/* BUG: It has not yet been rewritten. |
| def Primadec(f,g) { |
def Primadec(f,g) { |
| sm1(f,g," primadec /FunctionValue set"); |
sm1(f,g," primadec /FunctionValue set"); |
| sm1(" clean-workfiles "); |
sm1(" clean-workfiles "); |
| } |
} |
| HelpAdd(["Primadec",[" Not Yet. <<need asir, start k0 with -f option.>>"]]); |
HelpAdd(["Primadec",[" Not Yet. <<need asir, start k0 with -f option.>>"]]); |
| |
*/ |
| |
|
| |
|
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to asir0.k CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM / src / k097 / debug