home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / NEURLNET / NERVES.ZIP / NO87 / LSIN.C < prev    next >
Encoding:
Text File  |  1990-12-22  |  256 b   |  15 lines
  1. /*
  2.  * NAME: lsin(irad)
  3.  *
  4.  * FUNCTION: lsin returns by table lookup the sin of irad (1000xradians)
  5.  */
  6.  
  7. int lsin(irad)
  8.   int irad;
  9.  {
  10.   while (irad < 0)
  11.    irad += TWOPI;
  12.   while (irad > TWOPI)
  13.    irad -= TWOPI;
  14.   return(isin[(irad+1)/2]);
  15.  }