home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / NEURLNET / NERVES.ZIP / NO87 / NSMAIN.C < prev    next >
Encoding:
C/C++ Source or Header  |  1990-12-28  |  2.5 KB  |  110 lines
  1. #include "defn.h"
  2. #define EXTERN
  3. #include "nsdata.c"
  4. #include "proto.h"
  5.  
  6. void main(void)
  7.  {
  8.   FILE *file;
  9.  
  10.   ns = calloc(150,sizeof(struct neuron));
  11.   nsc = calloc(150,sizeof(struct neurcalc));
  12.   Iinta = calloc(75,sizeof(struct Iint));
  13.   cona = calloc(300,sizeof(struct con));
  14.   neurfname[0] = 0;
  15.   envfname[0] = 0;
  16.   recpath[0] = 0;
  17.   recnum = 0;
  18.   AspR = 100./1.37 + .5;  /* x100 to make integer */
  19.   drawmult = 2;
  20.   Iextgr = -1;
  21.   energy = 9990000L;
  22.  
  23.   /* read in integer sin & cos tables */
  24.   file = fopen("sincos.tab","rb");
  25.   if (file == NULL)
  26.    {
  27.     printf("File SINCOS.TAB not found, exiting\n");
  28.     exit(0);
  29.    }
  30.   fread(isin,2,TWOPI/2+1,file);
  31.   fread(icos,2,TWOPI/2+1,file);
  32.  
  33.   /* initialize leg constants */
  34.   maxlegang[3] = PI - PI/5;
  35.   minlegang[3] = PI;
  36.   maxlegang[4] = PI - PI/12;
  37.   minlegang[4] = PI + PI/12;
  38.   maxlegang[5] = PI - PI/12;
  39.   minlegang[5] = PI + PI/8;
  40.   maxlegang[0] = PI/5;
  41.   minlegang[0] = 0;
  42.   maxlegang[1] = PI/12;
  43.   minlegang[1] = -PI/12;
  44.   maxlegang[2] = PI/12;
  45.   minlegang[2] = -PI/8;
  46.   attang[0] = atan2(15,8)*1000.;
  47.   attang[1] = 0;
  48.   attang[2] = atan2(-23,9)*1000.;
  49.   attang[3] = atan2(15,-8)*1000.;
  50.   attang[4] = PI;
  51.   attang[5] = 2*PI + atan2(-23,-9)*1000.;
  52.   attl[0] = sqrt(8*8 + 15*15);
  53.   attl[1] = 12;
  54.   attl[2] = sqrt(9*9 + 23*23);
  55.   attl[3] = attl[0];
  56.   attl[4] = 12;
  57.   attl[5] = attl[2];
  58.   legl[0] = 17;
  59.   legl[1] = 15;
  60.   legl[2] = 17;
  61.   legl[3] = 17;
  62.   legl[4] = 15;
  63.   legl[5] = 17;
  64.   hdsang[0] = atan2(22,11)*1000.;
  65.   hdsang[1] = atan2(22,-11)*1000.;
  66.   hdsl = sqrt(11*11 + 22*22);
  67.   hdtang = PI/2;
  68.   hdtl = 29;
  69.   hdbang = PI/2;
  70.   hdbl = 14;
  71.   btang[0] = atan2(18,6)*1000.;
  72.   btang[1] = atan2(18,-6)*1000.;
  73.   btl = sqrt(6*6 + 18*18);
  74.   bmang[0] = 0.;
  75.   bmang[1] = PI;
  76.   bml = 12;
  77.   bbang[0] = atan2(-30,6)*1000.;
  78.   bbang[1] = atan2(-30,-6)*1000.;
  79.   bbl = sqrt(6*6 + 30*30);
  80.   cerbang[0] = atan2(-30,2)*1000.;
  81.   cerbang[1] = atan2(-30,-2)*1000.;
  82.   cerbl = sqrt(2*2 + 30*30);
  83.   antbang[0] = atan2(26,6)*1000.;
  84.   antbang[1] = atan2(26,-6)*1000.;
  85.   antbl = sqrt(6*6 + 26*26);
  86.  
  87.   /* initialize antenna and cercus constants */
  88.   antang[0] = atan2(65,30)*1000.;
  89.   antang[1] = atan2(65,-30)*1000.;
  90.   antl = sqrt(30*30 + 65*65);
  91.   cercang[0] = atan2(-34,8)*1000.;
  92.   cercang[1] = atan2(-34,-8)*1000.;
  93.   cercl = sqrt(34*34 + 8*8);
  94.  
  95.   bug.x = 500000L;
  96.   bug.y = 500000L;
  97.  
  98.   plottype = 0; /* start with graphs plotted */
  99.  
  100.   randomize(); /* initialize random number generator */
  101.  
  102.   nn = 0;
  103.   ni = 0;
  104.   nc = 0;
  105.   DT = 5;
  106.  
  107.   nsmenu();
  108.   clrscr();
  109.  }
  110.