Hello,
I have the following code that work in batch file. But when I run it
in translated version Maxima tell me :
Maxima encountered a Lisp error:
Error in PROGN [or a callee]: not a valid array reference to #2A....
The bug is on array: ELEMENT_COMPLEXITY_ARRAY when i do :
ELEMENT_COMPLEXITY_ARRAY[I,J]:N,
In the loop.
The code :
GCD_ARRAY:MAKE_ARRAY('ANY,1);
SAVED_GCD_ARRAY:MAKE_ARRAY('ANY,1);
ELEMENT_COMPLEXITY_ARRAY:MAKE_ARRAY('FIXNUM,1,1);
EQUATION_COMPLEXITY_ARRAY:MAKE_ARRAY('FIXNUM,1);
AVAILABLE_PIVOTS_ARRAY:MAKE_ARRAY('ANY, 1);
INDEXES_ARRAY:MAKE_ARRAY('FIXNUM,1);
A0:MATRIX([0]);
INITIALISATION(A0,NROW,NCOL):=BLOCK(
[I,J,M,N],
MODE_DECLARE([I,J,M,N,NROW,NCOL],FIXNUM),
GCD_ARRAY:MAKE_ARRAY('ANY,NROW+1),
SAVED_GCD_ARRAY:MAKE_ARRAY('ANY,NROW+1),
ELEMENT_COMPLEXITY_ARRAY:MAKE_ARRAY('FIXNUM,NROW+1,NCOL+2),
EQUATION_COMPLEXITY_ARRAY:MAKE_ARRAY('FIXNUM,NROW+1),
INDEXES_ARRAY:MAKE_ARRAY('FIXNUM,NROW+1),
FOR I:1 THRU NROW DO (
M:0,
GCD_ARRAY[I]:1,
SAVED_GCD_ARRAY[I]:1,
FOR J:1 THRU NCOL+1 DO (
N:COMPLEXITY(A0[I,J]),
display(I,J,N),
ELEMENT_COMPLEXITY_ARRAY[I,J]:N,
M:M+N
),
EQUATION_COMPLEXITY_ARRAY[I]:M
)
);
Thanks for your help.