version 1.12, 2010/06/16 08:32:10 |
version 1.14, 2010/06/19 06:17:34 |
|
|
Cont = cont(CR); CR /= Cont; |
Cont = cont(CR); CR /= Cont; |
Cont *= dn(Fcont); Den *= nm(Fcont); |
Cont *= dn(Fcont); Den *= nm(Fcont); |
Gcd = igcd(Den,Cont); |
Gcd = igcd(Den,Cont); |
return [subst(B,s,-s-1),(Den/Gcd)*Ax,(Cont/Gcd)*CR]; |
return [subst(B,s,-s-1),(Cont*CR)/(Den*Ax)]; |
} |
} |
|
|
/* |
/* |
Line 1260 def replace_var(V,X,Y) |
|
Line 1260 def replace_var(V,X,Y) |
|
|
|
def action_on_gfs(P,V,GFS) |
def action_on_gfs(P,V,GFS) |
{ |
{ |
|
for ( T = V, DV = []; T != []; T = cdr(T) ) |
|
DV = cons(strtov("d"+rtostr(car(T))),DV); |
|
V = append(append(V,[s]),reverse(cons(ds,DV))); |
DP = dp_ptod(P,V); |
DP = dp_ptod(P,V); |
N = length(V)/2; |
N = length(V)/2; |
for ( I = N-1, V0 = []; I >= 0; I-- ) |
for ( I = N-1, V0 = []; I >= 0; I-- ) |