home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / vol_300 / 344_01 / mathclud.fun < prev    next >
Text File  |  1990-02-21  |  861b  |  37 lines
  1. /*
  2. HEADER:        ;
  3. TITLE:        Math functions support routines;
  4. VERSION:    1.0;
  5.  
  6. DESCRIPTION:    This is an include file containing various routines called
  7.         by the functions EXP,SINX and LNX;
  8.  
  9. KEYWORDS:    Math funtions, approximations;
  10. SYSTEM:        MSDOS;
  11. FILENAME:    MATHCLUD.FUN;
  12. WARNINGS:    None;
  13.  
  14. SEE-ALSO:    EXP, SINX, LNX, XPON;
  15. AUTHORS:    Dr. Ronald J. Terry;
  16. COMPILERS:    Turbo C, also works with MS-C, Quick C, and Power C;
  17. */
  18. double Intpwr(double x, int y)  /* x^y y is an integer */
  19. {
  20.      int idx;
  21.      double xpdt=1;
  22.      for(idx=0;idx<y;idx++)
  23.        xpdt = xpdt*x;
  24.      return(xpdt);
  25. }
  26. double Ifac(int n)   /* calculate n factorial */
  27. {
  28.      int i;
  29.      double fac=1;
  30.      for(i=1;i<=n;i++)
  31.        fac = fac*i;
  32.      return(fac);
  33. }
  34. double Abs_val(double xval)  /* absolute value of a number */
  35. {
  36.       return(((xval>=0) ? xval : -xval));
  37. }