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); }