См. https://github.com/torch/nn/blob/master/generic/Tanh.c
Например,
static int nn_(Tanh_updateOutput)(lua_State *L)
{
THTensor *input = luaT_checkudata(L, 2, torch_Tensor);
THTensor *output = luaT_getfieldcheckudata(L, 1, "output", torch_Tensor);
THTensor_(resizeAs)(output, input);
if (input->nDimension == 1 || !THTensor_(isContiguous)(input) || !THTensor_(isContiguous)(output))
{
TH_TENSOR_APPLY2(real, output, real, input, \
*output_data = tanh(*input_data););
}
else
{
real* ptr_output = THTensor_(data)(output);
real* ptr_input = THTensor_(data)(input);
long i;
#pragma omp parallel for private(i)
for(i = 0; i < THTensor_(nElement)(input); i++)
ptr_output[i] = tanh(ptr_input[i]);
}
return 1;
}
Во-первых, я не знаю, как интерпретировать первую строку:
static int nn_(Tanh_updateOutput)(lua_State *L)
Какие тут аргументы? На что ссылается Tanh_updateOutput? Имеет ли "nn_" особое значение?
Во-вторых, используются "TH_TENSOR_APPLY2" и "THTensor_(...)", но я не вижу, где они определены? В этом файле нет других включений?