From 4cf03e0628ea5ede4879b7b75e968bc7f576db4e Mon Sep 17 00:00:00 2001 From: francesco-ST Date: 2011年2月11日 18:38:36 +0100 Subject: Added a C implementation for the matrix "set" function plus fixes. Fixed missing module identifier for function tostring_eps in matrix.lua. --- matrix_source.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'matrix_source.c') diff --git a/matrix_source.c b/matrix_source.c index 3f186c05..c8b6b581 100644 --- a/matrix_source.c +++ b/matrix_source.c @@ -138,7 +138,7 @@ FUNCTION(matrix, slice) (lua_State *L) } int -FUNCTION(matrix, get) (lua_State *L) +FUNCTION(matrix, get_elem) (lua_State *L) { const TYPE (gsl_matrix) *m = FUNCTION (matrix, check) (L, 1); lua_Integer r = luaL_checkinteger (L, 2); @@ -163,7 +163,7 @@ FUNCTION(matrix, get) (lua_State *L) } int -FUNCTION(matrix, set) (lua_State *L) +FUNCTION(matrix, set_elem) (lua_State *L) { TYPE (gsl_matrix) *m = FUNCTION (matrix, check) (L, 1); lua_Integer r = luaL_checkinteger (L, 2); @@ -302,7 +302,7 @@ FUNCTION(matrix, solve_raw) (lua_State *L, if (b->size2 != 1) gs_type_error (L, 1, "vector"); if (b->size1 != n) - luaL_error (L, "dimensions of vector does not match with matrix"); + luaL_error (L, "dimensions of vector does not match"); x = FUNCTION (matrix, push_raw) (L, n, 1); x_view = FUNCTION (gsl_matrix, column) (x, 0); -- cgit v1.2.3

AltStyle によって変換されたページ (->オリジナル) /