/*************************/
/*                       */
/*      ko_init.c        */
/*                       */
/*      Alan Dix         */
/*                       */
/*      March 1993       */
/*                       */
/*************************/

#include "kohonen.h"

char *use = "ko_init wid X Y lo hi\n\
	wid   -   width of data set vectors\n\
	X,Y   -   dimensions of 2d kohonen network\n\
	lo,hi -   range of values in network";

void usage()
{
    fprintf(stderr,"usage: %s\n",use);
    exit(1);
}

main(argc,argv)
    int argc;
    char **argv;
{
    int ac;
    char **av;
    code_p code;
    int wid, X, Y;
    double lo, hi;
    ac = argc-1;
    av = argv+1;
    if ( ac != 5 )  usage();
    wid = atoi(av[0]);
    X   = atoi(av[1]);
    Y   = atoi(av[2]);
    lo  = atof(av[3]);
    hi  = atof(av[4]);
    fprintf(stderr,"initialise kohonen network\n");
    fprintf(stderr,"   wid    =  %d\n",wid);
    fprintf(stderr,"   X      =  %d\n",X);
    fprintf(stderr,"   Y      =  %d\n",Y);
    fprintf(stderr,"   lo     =  %lf\n",lo);
    fprintf(stderr,"   hi     =  %lf\n",hi);
    fprintf(stderr,"----\n");
    code = gen_code(wid, X, Y, lo, hi);
    if ( ! code ) {
        fprintf(stderr,"error whilst generating random vectors\n");
        exit(1);
        }
#if 0
    int fill = fill_code_labels("X",code);
    if ( ! fill ) {
        fprintf(stderr,"error whilst generating labels\n");
        exit(1);
        }
#endif
    write_code(stdout,code);
    exit(0);
}