OpenXM_contrib2/asir2000/lib/gr - diff

Return to gr CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / lib

version 1.9, 2001/09/05 08:09:10

version 1.10, 2001/09/06 00:24:07

Line 45

* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,

* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.

* $OpenXM: OpenXM_contrib2/asir2000/lib/gr,v 1.8 2001/04/09 02:42:29 noro Exp $

* $OpenXM: OpenXM_contrib2/asir2000/lib/gr,v 1.9 2001/09/05 08:09:10 noro Exp $

extern INIT_COUNT,ITOR_FAIL$

extern REMOTE_MATRIX,REMOTE_NF,REMOTE_VARS$

Line 1449 def register_input(List)

Poly <- (Coef*Poly+Monomial*PolyList[Index])/Denominator

def tracetogen(GBIndex,Trace)

def tracetogen(G)

{

GB = G[0]; GBIndex = G[1]; Trace = G[2];

InputList = Trace[0];

Trace = cdr(Trace);

Line 1468 def tracetogen(GBIndex,Trace)

Line 1470 def tracetogen(GBIndex,Trace)

/* stores coeffs */

Coef = vector(N);

/* XXX create dp_ptod(1,V) */

HT = dp_ht(InputList[0]);

One = dp_subd(HT,HT);

for ( I = 0; I < Nini; I++ ) {

Tr[I] = [1,I,1,1];

Tr[I] = [1,I,One,1];

C = vector(Nini);

C[I] = 1;

C[I] = One;

Coef[I] = C;

}

for ( ; I < N; I++ )

Line 1511 def compute_coef_by_trace(I,Tr,Coef)

Line 1517 def compute_coef_by_trace(I,Tr,Coef)

}

Coef[I] = CI;

}

end$