| version 1.1, 1999/10/08 02:12:16 |
version 1.3, 2001/01/08 05:26:51 |
|
|
| /* toric の generator を求める関数. |
/* toric の generator を求める関数. |
| A-hypergeometric の indicial ideal を求める関数. |
A-hypergeometric の indicial ideal を求める関数. |
| */ |
*/ |
| |
load("indexed.k"); |
| |
|
| ShimomuraSpecial = true ; OnePath= true; |
ShimomuraSpecial = true ; OnePath= true; |
| Vvv = false; |
Vvv = false; |
| SetRingVariables_Verbose = false; |
SetRingVariables_Verbose = false; |
| Line 222 def zindicial0(input,n,m) { |
|
| Line 224 def zindicial0(input,n,m) { |
|
| 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); |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to ahg2.k CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM / src / k097 / debug