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