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