| version 1.3, 2000/08/22 05:03:59 |
version 1.4, 2003/12/23 10:39:57 |
|
|
| * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
| * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
| * |
* |
| * $OpenXM: OpenXM_contrib2/asir2000/builtin/rat.c,v 1.2 2000/08/21 08:31:21 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/builtin/rat.c,v 1.3 2000/08/22 05:03:59 noro Exp $ |
| */ |
*/ |
| #include "ca.h" |
#include "ca.h" |
| #include "parse.h" |
#include "parse.h" |
| |
|
| void Pnm(), Pdn(), Pderiv(); |
void Pnm(), Pdn(), Pderiv(), Pederiv(); |
| |
|
| struct ftab rat_tab[] = { |
struct ftab rat_tab[] = { |
| {"nm",Pnm,1}, |
{"nm",Pnm,1}, |
| {"dn",Pdn,1}, |
{"dn",Pdn,1}, |
| {"diff",Pderiv,-99999999}, |
{"diff",Pderiv,-99999999}, |
| |
{"ediff",Pederiv,-99999999}, |
| {0,0,0}, |
{0,0,0}, |
| }; |
}; |
| |
|
|
|
| if ( !(v = (P)BDY(n)) || OID(v) != O_P ) |
if ( !(v = (P)BDY(n)) || OID(v) != O_P ) |
| error("diff : invalid argument"); |
error("diff : invalid argument"); |
| derivr(CO,a,VR(v),&t); a = t; |
derivr(CO,a,VR(v),&t); a = t; |
| |
} |
| |
*rp = a; |
| |
} |
| |
|
| |
/* Euler derivation */ |
| |
void Pederiv(arg,rp) |
| |
NODE arg; |
| |
Obj *rp; |
| |
{ |
| |
Obj a,t; |
| |
LIST l; |
| |
P v; |
| |
NODE n; |
| |
|
| |
if ( !arg ) { |
| |
*rp = 0; return; |
| |
} |
| |
asir_assert(ARG0(arg),O_P,"ediff"); |
| |
reductr(CO,(Obj)ARG0(arg),&a); |
| |
n = NEXT(arg); |
| |
if ( n && (l = (LIST)ARG0(n)) && OID(l) == O_LIST ) |
| |
n = BDY(l); |
| |
for ( ; n; n = NEXT(n) ) { |
| |
if ( !(v = (P)BDY(n)) || OID(v) != O_P ) |
| |
error("diff : invalid argument"); |
| |
ediffp(CO,a,VR(v),&t); a = t; |
| } |
} |
| *rp = a; |
*rp = a; |
| } |
} |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to rat.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib2 / asir2000 / builtin