| version 1.1, 1999/12/03 07:39:11 |
version 1.2, 2000/06/07 03:00:21 |
|
|
| /* $OpenXM: OpenXM/src/asir99/lib/ratint,v 1.1.1.1 1999/11/10 08:12:30 noro Exp $ */ |
/* $OpenXM: OpenXM_contrib2/asir2000/lib/ratint,v 1.1.1.1 1999/12/03 07:39:11 noro Exp $ */ |
| /* |
/* |
| * rational function integration (Trager's algorithm) |
* rational function integration (Trager's algorithm) |
| * load("gr"); load("sp"); |
* load("gr"); load("sp"); |
| Line 87 def solvemain(Mat,Index,N,M) |
|
| Line 87 def solvemain(Mat,Index,N,M) |
|
| Mat[I][J] = sdiv(Mat[I][J]*D-W[J],U); |
Mat[I][J] = sdiv(Mat[I][J]*D-W[J],U); |
| } |
} |
| return [L,D]; |
return [L,D]; |
| } |
|
| |
|
| def length(L) |
|
| { |
|
| for ( I = 0; L != []; L = cdr(L), I++ ); |
|
| return I; |
|
| } |
} |
| |
|
| def ltov(P,VL,W) |
def ltov(P,VL,W) |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to ratint CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib2 / asir2000 / lib