home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-386-Vol-2of3.iso / b / baswiz19.zip / BW$BAS.ZIP / SINHS.BAS < prev    next >
BASIC Source File  |  1993-01-29  |  1KB  |  41 lines
  1. '   +----------------------------------------------------------------------+
  2. '   |                                                                      |
  3. '   |        BASWIZ  Copyright (c) 1990-1993  Thomas G. Hanlin III         |
  4. '   |                                                                      |
  5. '   |                      The BASIC Wizard's Library                      |
  6. '   |                                                                      |
  7. '   +----------------------------------------------------------------------+
  8.  
  9.    DEFSNG A-Z
  10.  
  11. FUNCTION SinHS! (Nr AS SINGLE)
  12.    p0 = -630767.3640497716991184787251!
  13.    p1 = -89912.72022039509355398013511!
  14.    p2 = -2894.211355989563807284660366!
  15.    p3 = -26.30563213397497062819489!
  16.    q0 = -630767.3640497716991212077277!
  17.    q1 = 15215.17378790019070696485176!
  18.    q2 = -173.678953558233699533450911!
  19.    IF Nr < 0! THEN
  20.       N = -Nr
  21.       Negate% = -1
  22.    ELSE
  23.       N = Nr
  24.    END IF
  25.    IF N > 21! THEN
  26.       tmp = EXP(N) / 2!
  27.    ELSEIF N > .5! THEN
  28.       tmp = (EXP(N) - EXP(-N)) / 2!
  29.    ELSE
  30.       tmpsq = N * N
  31.       tmp1 = (((tmpsq * p3 + p2) * tmpsq + p1) * tmpsq + p0) * N
  32.       tmp2 = ((tmpsq + q2) * tmpsq + q1) * tmpsq + q0
  33.       tmp = tmp1 / tmp2
  34.    END IF
  35.    IF Negate% THEN
  36.       SinHS! = -tmp
  37.    ELSE
  38.       SinHS! = tmp
  39.    END IF
  40. END FUNCTION
  41.