void Fate::timerEvent(QTimerEvent *e)
{
bound();
weave();
spidey->move();
update();
}
static void propagate(atms tms, atms_justification J, atms_node a, trie I)
{
trie L = weave(tms, a, I, J->antecedents);
if (!trie_is_empty(L)) {
update(tms, L, J->consequent);
}
trie_free(L);
}
static void watch(gcthread_fn_t fn, const char *name)
{
clock_t begin, end;
begin = clock();
if (nthreads == 1)
weave1(fn);
else
weave(fn);
end = clock();
printf("%s: %g\n", name, (double)(end - begin) / CLOCKS_PER_SEC);
}
static void watch(dj_t dj, const char *name)
{
clock_t start, finish;
start = clock();
if (nthreads == 1)
dj(NULL);
else
weave(dj);
finish = clock();
printf("%s: %g\n", name, (double)(finish - start) / CLOCKS_PER_SEC);
}
// [[Rcpp::export]]
std::vector<bool> MADWVY (const NumericMatrix & mat, const std::vector<int> & ref) {
weave wm = weave(mat);
return wm.MAD_y(ref);
}
// [[Rcpp::export]]
std::vector<double> MatRankit (const NumericMatrix & mat) {
weave wm = weave(mat);
return wm.rankit();
}
