| version 1.2, 2000/01/11 06:43:37 |
version 1.3, 2000/06/05 02:26:48 |
|
|
| /* $OpenXM: OpenXM_contrib2/asir2000/lib/gr,v 1.1.1.1 1999/12/03 07:39:11 noro Exp $ */ |
/* $OpenXM: OpenXM_contrib2/asir2000/lib/gr,v 1.2 2000/01/11 06:43:37 noro Exp $ */ |
| extern INIT_COUNT,ITOR_FAIL$ |
extern INIT_COUNT,ITOR_FAIL$ |
| extern REMOTE_MATRIX,REMOTE_NF,REMOTE_VARS$ |
extern REMOTE_MATRIX,REMOTE_NF,REMOTE_VARS$ |
| |
|
| Line 1086 def henleq_gsl(L,B,MOD) |
|
| Line 1086 def henleq_gsl(L,B,MOD) |
|
| if ( !COUNT ) |
if ( !COUNT ) |
| COUNT = 1; |
COUNT = 1; |
| MOD2 = idiv(MOD,2); |
MOD2 = idiv(MOD,2); |
| for ( I = 0, C = BB, X = 0, PK = 1, CCC = 0, ITOR_FAIL = -1; ; |
X = newvect(size(AA)[0]); |
| |
for ( I = 0, C = BB, PK = 1, CCC = 0, ITOR_FAIL = -1; ; |
| I++, PK *= MOD ) { |
I++, PK *= MOD ) { |
| if ( zerovector(C) ) |
if ( zerovector(C) ) |
| if ( zerovector(RESTA*X+RESTB) ) { |
if ( zerovector(RESTA*X+RESTB) ) { |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to gr CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib2 / asir2000 / lib