int main()
{
config_parse_remote_servers("servers.txt");
trainingdata_t* data = trainingdata_new();
int t;
for(t=0;t<256;t++) {
example_t*e = example_new(16);
int s;
for(s=0;s<16;s++) {
e->inputs[s] = variable_new_continuous((lrand48()%256)/256.0);
}
e->desired_response = variable_new_categorical(t%2);
trainingdata_add_example(data, e);
}
trainingdata_save(data, "/tmp/data.data");
trainingdata_destroy(data);
data = trainingdata_load("/tmp/data.data");
model_t*m = model_select(data);
char*code = model_generate_code(m, "python");
printf("%s\n", code);
free(code);
model_destroy(m);
trainingdata_destroy(data);
}
static void clear_level(void)
{
DEBUG(2, "game: clear_level()\n");
if (level)
{
DEBUG(1, "Unloading level\n");
model_destroy(level);
lua_pushnil(L1);
lua_setglobal(L1, "level");
lua_gc(L1, LUA_GCCOLLECT, 0);
level = NULL;
}
}
void fit_destroy(fitinfo *fit)
{
pars_destroy(&fit->pars);
profile_destroy(&fit->p);
model_destroy(&fit->m);
data_destroy(&fit->dataA);
data_destroy(&fit->dataB);
data_destroy(&fit->dataC);
data_destroy(&fit->dataD);
interface_destroy(&fit->rm);
if (fit->worksize>0) free(fit->work);
if (fit->capacity>0) free(fit->fitQ);
fit->capacity = -1;
fit->nQ = 0;
fit->worksize = 0;
}
int model_extend(model *m, int n)
{
int i;
if (m->capacity < 0) return 0;
if (m->n+n > m->capacity) {
int old_size = m->capacity;
int new_size = m->capacity + n;
new_size += new_size/10 + 20; /* 10% spare */
if (new_size < MODEL_LENGTH_DEFAULT) new_size = MODEL_LENGTH_DEFAULT;
if (m->capacity <= 0) {
m->mu = malloc(MODEL_FIELDS*sizeof(Real)*new_size);
} else {
m->mu = realloc(m->mu,MODEL_FIELDS*sizeof(Real)*new_size);
if (m->mu != NULL) {
for (i=MODEL_FIELDS-1; i>0; i--) {
memmove(m->mu+i*new_size,m->mu+i*old_size,old_size*sizeof(Real));
}
}
}
m->rho = m->mu + new_size;
m->d = m->mu + 2*new_size;
m->rough = m->mu + 3*new_size;
#ifdef HAVE_MAGNETIC
m->P = m->mu + 4*new_size;
m->Prough = m->mu + 5*new_size;
m->theta = m->mu + 6*new_size;
m->thetarough = m->mu + 7*new_size;
#endif
m->capacity = new_size;
if (m->mu==NULL) {
model_destroy(m);
m->capacity = -1; /* remember that we destroyed the profile */
return 0;
}
}
return 1;
}
