From c73636ba680cdb5b57602a1876a75c110b43d426 Mon Sep 17 00:00:00 2001 From: Determinant Date: Mon, 18 Apr 2016 12:38:25 +0800 Subject: support SeqBuffer decoding; fix bugs in finding params --- nerv/matrix/generic/matrix.c | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) (limited to 'nerv/matrix/generic/matrix.c') diff --git a/nerv/matrix/generic/matrix.c b/nerv/matrix/generic/matrix.c index 3e91933..800408d 100644 --- a/nerv/matrix/generic/matrix.c +++ b/nerv/matrix/generic/matrix.c @@ -407,4 +407,27 @@ static int nerv_matrix_(lua_set_values_by_mask)(lua_State *L) { return 0; } +static int nerv_matrix_(lua_tanh)(lua_State *L) { + Status status; + MATRIX_CONTEXT *context; + MATRIX_GET_CONTEXT(L, 3); + Matrix *a = luaT_checkudata(L, 1, nerv_matrix_(tname)); + Matrix *b = luaT_checkudata(L, 2, nerv_matrix_(tname)); + nerv_matrix_(tanh)(a, b, context, &status); + NERV_LUA_CHECK_STATUS(L, status); + return 0; +} + +static int nerv_matrix_(lua_tanh_grad)(lua_State *L) { + Status status; + MATRIX_CONTEXT *context; + MATRIX_GET_CONTEXT(L, 4); + Matrix *nerr = luaT_checkudata(L, 1, nerv_matrix_(tname)); + Matrix *err = luaT_checkudata(L, 2, nerv_matrix_(tname)); + Matrix *output = luaT_checkudata(L, 3, nerv_matrix_(tname)); + nerv_matrix_(tanh_grad)(nerr, err, output, context, &status); + NERV_LUA_CHECK_STATUS(L, status); + return 0; +} + #endif -- cgit v1.2.3