Error in gsl.lsp ?
Posted: Wed Jul 05, 2017 11:43 am
The example for (gsl:CholeskyD) throws an error, newlisp v.10.7.1, libgsl.so.19 on XUBUNTU, gsl Ver 2.1:
All other examples are working.
Debug output:
All other examples are working.
Code: Select all
(gsl:CholeskyD '((4 2 -2) (2 10 2) (-2 2 5))))
ERR: mismatch in number of arguments
called from user function gsl:(CholeskyD '((4 2 -2) (2 10 2) (-2 2 5)))
Code: Select all
-----
(define (CholeskyD MAIN:A)
(letn (MAIN:Ar (MAIN:get-matrix-from-list MAIN:A) MAIN:Aptr (MAIN:Ar 0) MAIN:m
(MAIN:Ar 1) MAIN:n
(MAIN:Ar 2) MAIN:result 0)
(set 'MAIN:result (MAIN:gsl_linalg_cholesky_decomp MAIN:Aptr))
(unless (zero? MAIN:result)
(throw-error (MAIN:gsl_strerror MAIN:result)))
(for (MAIN:i 0 (- MAIN:m 2))
(for (MAIN:j (+ MAIN:i 1) (- MAIN:n 1))
#(MAIN:gsl_matrix_set MAIN:Aptr MAIN:i MAIN:j 0 MAIN:.0)#))
(set 'MAIN:result (MAIN:get-list-from-matrix MAIN:Ar))
(MAIN:gsl_matrix_free MAIN:Aptr) MAIN:result))
[-> 6 gsl] s|tep n|ext c|ont q|uit > s
ERR: mismatch in number of arguments
called from user function gsl:(CholeskyD '((4 2 -2) (2 10 2) (-2 2 5)))
Process newlisp speicherzugriffsfehler