OpenXM/src/asir-contrib/testing/taka_series.rr - diff

Return to taka_series.rr CVS log

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

version 1.1, 2005/05/04 05:47:03

version 1.2, 2005/05/11 06:40:10

Line 1

/* $OpenXM$ */

/* $OpenXM: OpenXM/src/asir-contrib/testing/taka_series.rr,v 1.1 2005/05/04 05:47:03 takayama Exp $ */

module tkseries;

Line 88 def expand1(F,X,C,N) {

Po = objtoquote(X-C)^objtoquote(I);

R = R + tr.simp_zero(Cn*Po);

R = tr.simp_zero(R);

R = flatten_quote(R,"+");

}

Rem = eval_str("quote(oO("+rtostr(X)+","+rtostr(N+1)+"))");

return R+Rem;

return flatten_quote(R+Rem,"+");

}