| version 1.1, 1999/10/08 02:12:15 |
version 1.3, 2001/01/08 05:26:52 |
|
|
| A-hypergeometric の Fourier 変換の indicial を求める関数. |
A-hypergeometric の Fourier 変換の indicial を求める関数. |
| */ |
*/ |
| |
|
| |
load("indexed.k"); |
| |
|
| def toric0_toMonom(aa,i,offset, ring) |
def toric0_toMonom(aa,i,offset, ring) |
| { |
{ |
| Line 213 def zindicial0(input,n,m) { |
|
| Line 214 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 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