home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / basic / baswiz19 / examples / sinhd.bas < prev    next >
Encoding:
BASIC Source File  |  1993-01-29  |  1.3 KB  |  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.    DEFDBL A-Z
  10.  
  11. FUNCTION SinHD# (Nr AS DOUBLE)
  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.       SinHD# = -tmp
  37.    ELSE
  38.       SinHD# = tmp
  39.    END IF
  40. END FUNCTION
  41.