https://github.com/kperros/SPARTan
Tip revision: 1d2d8742adf1030feb08ebc71f60491ea41ebe94 authored by Ioakeim (Kimis) Perros on 26 May 2017, 02:32:31 UTC
Delete README.txt
Delete README.txt
Tip revision: 1d2d874
mttkrp_mode1.m
function mttkrp = mttkrp_mode1(YY, K, U, R, PARFOR_FLAG)
% SPARTan MTTKRP w.r.t. mode-1
u2 = U{2};
u3 = U{3};
mttkrp = zeros(R, R);
if (PARFOR_FLAG)
parfor k=1: K
mttkrp = mttkrp + bsxfun(@times, u3(k, :), YY{k} * u2);
end
else
for k=1: K
mttkrp = mttkrp + bsxfun(@times, u3(k, :), YY{k} * u2);
end
end