home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Interactive Guide / c-cplusplus-interactive-guide.iso / c_ref / csource4 / 266_01 / mathlib.c < prev    next >
Encoding:
C/C++ Source or Header  |  1989-10-29  |  640 b   |  36 lines
  1. /*     General Math Library        File: MATHLIB.C
  2.            18 Nov 1986       */
  3.  
  4. #include "MATHLIB.H"
  5. /*     =====    */
  6. double Exp10 (N)
  7. /*     =====     Finds 10 ** N  */
  8. int  N;
  9. {
  10. double D = 1;
  11.   for (;N>0; N--) D = D * 10;
  12.   for (;N<0; N++) D = D / 10;
  13.   return D;
  14. }
  15. /*  ==== */
  16. int Isin (Dir)
  17. /*  ====       Integer sine = 0 or 1 */
  18. char Dir;
  19. {
  20.   return (Dir == 'V');
  21. }
  22. /*  ==== */
  23. int Icos (Dir)
  24. /*  ====       Integer cosine = 0 or 1 */
  25. char Dir;
  26. {
  27.   return (Dir == 'H');
  28. }
  29. /*  ====     */
  30. int Sign (X)
  31. /*  ====     Returns 1 with sign of X  */
  32. int X;
  33. {
  34.   if (X < 0) return -1; else return 1;
  35. }
  36.