![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to toric0.k CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM / src / k097 / debug|
Return to toric0.k CVS log | Up to [local] / OpenXM / src / k097 / debug |
| version 1.2, 2001/01/05 11:14:27 | version 1.3, 2001/01/08 05:26:52 | ||
|---|---|---|---|
|
|
||
| def zrho(f,n) { | def zrho(f,n) { | ||
| local ans,i,top,w,rz; | local ans,i,top,w,rz; | ||
| ans = 0; | ans = 0; | ||
| rz = Ringp(f); | rz = GetRing(f); | ||
| while(true) { | while(true) { | ||
| if ( f == Poly("0")) sm1(" exit "); | if ( f == Poly("0")) sm1(" exit "); | ||
| top = Init(f); | top = Init(f); |