Displaying 1 result from an estimated 1 matches for "s_hat_matrix".
2011 Feb 16
1
speed up the code
...{
0;
}
}
fun_x = function(a)
{
round(runif(length(a), 0, 1), 2);
}
symbol_len = 50;
PHI_set = 1:symbol_len;
S = matrix(replicate(M * M, sort(sample(PHI_set, sample(symbol_len, 1)))), M, M);
X = matrix(mapply(fun_x, S), M, M);
S_hat = c(28, 34, 35)
S_hat_len = length(S_hat);
S_hat_matrix = matrix(list(S_hat), M, M);
system.time(
for(I in 1:40000)
{
A = matrix(mapply(fun_activation, S, S_hat_matrix, X, S_hat_len), M, M);
}
)
HXD
[[alternative HTML version deleted]]