home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / NEURLNET / NERVES.ZIP / 87 / NSMAIN.C < prev    next >
Encoding:
C/C++ Source or Header  |  1991-01-05  |  2.2 KB  |  104 lines
  1. #include "defn.h"
  2. #define EXTERN
  3. #include "nsdata.c"
  4. #include "proto.h"
  5.  
  6. void main(void)
  7.  {
  8.   float t;
  9.   int i,j,plot;
  10.   struct neuron *np;
  11.   struct Iint *ip;
  12.   struct con *cp;
  13.  
  14.   ns = calloc(200,sizeof(struct neuron));
  15.   nsc = calloc(200,sizeof(struct neurcalc));
  16.   Iinta = calloc(50,sizeof(struct Iint));
  17.   cona = calloc(400,sizeof(struct con));
  18.   neurfname[0] = 0;
  19.   envfname[0] = 0;
  20.   recpath[0] = 0;
  21.   recnum = 0;
  22.   AspR = 1./1.37;
  23.   drawmult = 2;
  24.   Iextgr = -1;
  25.   energy = 999;
  26.  
  27.   /* initialize leg constants */
  28.   maxlegang[3] = PI - PI/5.;
  29.   minlegang[3] = PI;
  30.   maxlegang[4] = PI - PI/12.;
  31.   minlegang[4] = PI + PI/12.;
  32.   maxlegang[5] = PI - PI/12.;
  33.   minlegang[5] = PI + PI/8.;
  34.   maxlegang[0] = PI/5.;
  35.   minlegang[0] = 0;
  36.   maxlegang[1] = PI/12.;
  37.   minlegang[1] = -PI/12.;
  38.   maxlegang[2] = PI/12.;
  39.   minlegang[2] = -PI/8.;
  40.   attang[0] = atan2(15,8);
  41.   attang[1] = 0.;
  42.   attang[2] = atan2(-23,9);
  43.   attang[3] = atan2(15,-8);
  44.   attang[4] = PI;
  45.   attang[5] = 2*PI + atan2(-23,-9);
  46.   attl[0] = sqrt(8*8 + 15*15);
  47.   attl[1] = 12;
  48.   attl[2] = sqrt(9*9 + 23*23);
  49.   attl[3] = attl[0];
  50.   attl[4] = 12;
  51.   attl[5] = attl[2];
  52.   legl[0] = 17;
  53.   legl[1] = 15;
  54.   legl[2] = 17;
  55.   legl[3] = 17;
  56.   legl[4] = 15;
  57.   legl[5] = 17;
  58.   hdsang[0] = atan2(22,11);
  59.   hdsang[1] = atan2(22,-11);
  60.   hdsl = sqrt(11*11 + 22*22);
  61.   hdtang = PI/2;
  62.   hdtl = 29;
  63.   hdbang = PI/2;
  64.   hdbl = 14;
  65.   btang[0] = atan2(18,6);
  66.   btang[1] = atan2(18,-6);
  67.   btl = sqrt(6*6 + 18*18);
  68.   bmang[0] = 0.;
  69.   bmang[1] = PI;
  70.   bml = 12;
  71.   bbang[0] = atan2(-30,6);
  72.   bbang[1] = atan2(-30,-6);
  73.   bbl = sqrt(6*6 + 30*30);
  74.   cerbang[0] = atan2(-30,2);
  75.   cerbang[1] = atan2(-30,-2);
  76.   cerbl = sqrt(2*2 + 30*30);
  77.   antbang[0] = atan2(26,6);
  78.   antbang[1] = atan2(26,-6);
  79.   antbl = sqrt(6*6 + 26*26);
  80.  
  81.   /* initialize antenna and cercus constants */
  82.   antang[0] = atan2(65,30);
  83.   antang[1] = atan2(65,-30);
  84.   antl = sqrt(30*30 + 65*65);
  85.   cercang[0] = atan2(-34,8);
  86.   cercang[1] = atan2(-34,-8);
  87.   cercl = sqrt(34*34 + 8*8);
  88.  
  89.   bug.x = 500;
  90.   bug.y = 500;
  91.  
  92.   plottype = 0; /* start with graphs plotted */
  93.  
  94.   randomize(); /* initialize random number generator */
  95.  
  96.   nn = 0;
  97.   ni = 0;
  98.   nc = 0;
  99.   DT = .005;
  100.  
  101.   nsmenu();
  102.   clrscr();
  103.  }
  104.