home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / amiga / misc / icalc.lha / ICalc / Scripts / trig.ic < prev    next >
Encoding:
Text File  |  1992-08-03  |  726 b   |  32 lines
  1. #
  2. #    trig.icalc
  3. #
  4. #    All those little-used minor trigonometric functions.
  5. #    NB: PVRs may need looked at...
  6. #
  7. #    Martin W Scott, August 1991
  8. #
  9. silent
  10.  
  11. # minor trig functions
  12. func csc(z) = 1/sin(z)
  13. func sec(z) = 1/cos(z)
  14. func cot(z) = cos(z)/sin(z)
  15.  
  16. # inverse minor trig functions
  17. func acsc(z) = -i*ln((i+sqrt(sqr(z)-1))/z)
  18. func asec(z) = -i*ln((1+sqrt(1-sqr(z)))/z)
  19. func acot(z) = -0.5*i*ln((z+i)/(z-i))
  20.  
  21. # minor hyperbolic trig functions
  22. func csch(z) = 1/sinh(z)
  23. func sech(z) = 1/cosh(z)
  24. func coth(z) = cosh(z)/sinh(z)
  25.  
  26. # inverse minor hyperbolic trig functions
  27. func acsch(z) = ln((1+sqrt(1+sqr(z)))/z)
  28. func asech(z) = ln((1+sqrt(1-sqr(z)))/z)
  29. func acoth(z) = 0.5*ln((z+1)/(z-1))
  30.  
  31. verbose        # restore display of results, messages
  32.