=================================================================== RCS file: /home/cvs/OpenXM/src/k097/debug/toric0.k,v retrieving revision 1.1.1.1 retrieving revision 1.3 diff -u -p -r1.1.1.1 -r1.3 --- OpenXM/src/k097/debug/toric0.k 1999/10/08 02:12:15 1.1.1.1 +++ OpenXM/src/k097/debug/toric0.k 2001/01/08 05:26:52 1.3 @@ -6,6 +6,7 @@ A-hypergeometric の Fourier 変換の indicial を求める関数. */ +load("indexed.k"); def toric0_toMonom(aa,i,offset, ring) { @@ -213,7 +214,7 @@ def zindicial0(input,n,m) { def zrho(f,n) { local ans,i,top,w,rz; ans = 0; - rz = Ringp(f); + rz = GetRing(f); while(true) { if ( f == Poly("0")) sm1(" exit "); top = Init(f);