OpenXM/src/asir-contrib/testing/noro/ndbf.rr - diff

Return to ndbf.rr CVS log

Up to [local] / OpenXM / src / asir-contrib / testing / noro

version 1.12, 2010/06/16 08:32:10

version 1.15, 2010/06/19 08:32:37

Line 1

/* $OpenXM$ */

/* requires 'primdec' */

#define TMP_H hhhhhhhh

Line 85 def bfunction(F)

Line 86 def bfunction(F)

Cont = cont(CR); CR /= Cont;

Cont *= dn(Fcont); Den *= nm(Fcont);

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 1261 def replace_var(V,X,Y)

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);

N = length(V)/2;

for ( I = N-1, V0 = []; I >= 0; I-- )