Commodore 64 - INPUT

Hyperbolic functions
FUNCTION
BASIC EQUIVALENT
SECANT
SEC(X)= l/COS(X)
COSECAN T
CSC(X)= 1 /SIN(X)
COTANGENT
COT(X)=l/TAN (X)
INVERSE SINE
ARCSIN(X) = ATN(X/SQR( —X *X + 1))
INVERSE COSINE
ARCCO S(X)= - ATN(X/SQR
(-X * X +1)) +77/2
INVERSE SECANT
ARCSEC(X)=A TN (X/SQ R(X*X - 1))
INVERSE COSECAN T
ARCCSC(X) = ATN(X/SQR(X*X — 1))
+ (SGN(X) — 1 *7t/2
INVERSE COTANGENT
ARCOT(X)=ATN(X) + tt/2
HYPERBOLIC SINE
SIN H (X )= (EX P(X)-EXP (-X))/2
HYPERBOLIC COSINE
COSH(X)= (EXP(X)+ EXP( —X))/2
HYPERBOLIC TANGENT
TANH(X)= EXP( —X)/(EXP(x)+ EXP
( —X))*2+ 1
HYPERBOLIC SECANT
SECH(X)= 2/(EXP(X)+ EXP( —X))
HYPERBOLIC COSECANT
CSCH(X)=2/(EXP(X) —EXP( —X))
HYPERBOLIC COTANGENT COTH(X)= EXP( —X)/(EXP(X)
— EXP( —X))*2+ 1
INVERSE HYPERBOLIC SINE ARCSINH (X)=LOG(X + SQ R(X *X+ 1))
INVERSE HYPERBOLIC COSINE
ARCCO SH(X)= LOG(X + SQR(X* X - 1))
INVERSE HYPERBOLIC TANGENT
ARCTANH(X)= LOG(( 1 + X)/( 1 - X))/2
INVERSE HYPERBOLIC SECANT
ARCSECH(X)=LO G((SQR
(~ X *X + 1)+ 1/X )
INVERSE HYPERBOLIC COSECANT
ARCCSCH(X)= LOG((SGN(X)*SQR
(X *X + l/x)
INVERSE HYPERBOLIC COTAN
GENT
ARCCO TH (X)= LO G((X+ 1 )/(x- 1 ))/2
43