![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to ndbf.rr CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM / src / asir-contrib / testing / noro|
Return to ndbf.rr CVS log | Up to [local] / OpenXM / src / asir-contrib / testing / noro |
| version 1.4, 2009/10/13 02:39:44 | version 1.5, 2009/10/16 02:57:26 | ||
|---|---|---|---|
|
|
||
| CR = conv_tdt(R,F,V0,DV0,T,DT); | CR = conv_tdt(R,F,V0,DV0,T,DT); | ||
| dp_set_weight(0); | dp_set_weight(0); | ||
| return [LB,Ax,CR]; | Cont = cont(CR); | ||
| Gcd = igcd(Den,Cont); | |||
| return [LB,(Den/Gcd)*Ax,CR/Gcd]; | |||
| } | } | ||
| /* t^(l+k)*dt^l (k>l) -> (s-k)(s-k-1)...(s-(k+l-1))t^k */ | /* t^(l+k)*dt^l (k>l) -> (s-k)(s-k-1)...(s-(k+l-1))t^k */ |