| version 1.14, 2006/10/26 10:49:17 |
version 1.15, 2007/02/13 07:12:54 |
|
|
| /* |
/* |
| * $OpenXM: OpenXM_contrib2/asir2000/engine/dalg.c,v 1.13 2006/01/05 00:21:20 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/engine/dalg.c,v 1.14 2006/10/26 10:49:17 noro Exp $ |
| */ |
*/ |
| |
|
| #include "ca.h" |
#include "ca.h" |
| Line 378 void dalgtoalg(DAlg da,Alg *r) |
|
| Line 378 void dalgtoalg(DAlg da,Alg *r) |
|
| |
|
| if ( !(nf=current_numberfield) ) |
if ( !(nf=current_numberfield) ) |
| error("dalgtoalg : current_numberfield is not set"); |
error("dalgtoalg : current_numberfield is not set"); |
| dtop(ALG,nf->vl,da->nm,&p); |
if ( !da ) *r = 0; |
| invq(da->dn,&inv); |
else { |
| mulpq(p,(P)inv,&p1); |
dtop(ALG,nf->vl,da->nm,&p); |
| MKAlg(p1,*r); |
invq(da->dn,&inv); |
| |
mulpq(p,(P)inv,&p1); |
| |
MKAlg(p1,*r); |
| |
} |
| } |
} |
| |
|
| void simpdalg(DAlg da,DAlg *r) |
void simpdalg(DAlg da,DAlg *r) |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to dalg.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib2 / asir2000 / engine