void
erts_bif_unique_init(void)
{
init_reference();
init_unique_monotonic_integer();
init_unique_integer();
}
int main (int argc, char *argv[] )
{
int i,j,k;
double x,y;
long seed = 1234567; /* set your favorite number */
for (i=1; i<argc; i++) {
switch (*(argv[i]+1)) {
case 'r':
seed = atoi(argv[++i]);
break;
default:
fprintf(stderr, "Usage : %s\n",argv[0]);
fprintf(stderr, "\t-r : random-seed(%ld)\n",seed) ;
exit(0);
break;
}
}
srand48(seed);
gp = popen("gnuplot -geometry 640x480","w");
fprintf(gp, "set term x11\n");
// fprintf(gp, "set term aqua\n"); // for mac
fprintf(gp, "set parametric\n");
fprintf(gp, "set style data linespoints\n");
// fprintf(gp, "set data style linespoints\n"); // too old
fprintf(gp, "set xlabel \"neural fields\"\n");
fprintf(gp, "set xrange[-0.2:1.2]\n");
fprintf(gp, "set yrange[0:1]\n");
fprintf(gp, "set border 5\n");
fprintf(gp, "set x2tics 0,0.2,1\n");
fprintf(gp, "set noxtics\n");
fprintf(gp, "set noytics\n");
fprintf(gp, "set nokey\n");
fflush(gp);
init_reference();
for(i=0;i<N_LEARNING;i++){
fprintf(gp, "set title 't = %d/%d'\n", i*N_SUB_LEARNING, N_LEARNING*N_SUB_LEARNING);
fprintf(gp, "plot '-'\n");
for(j=0;j<N_SUB_LEARNING;j++){
som1d();
}
write_data_anim_d1();
fprintf(gp,"e\n");
fflush(gp);
usleep(SLEEP);
}
fclose(gp);
}
