Radio Shack TRS-80 Model 4 - Page 382

Derived BASIC Functions
Functions which are not intrinsic to BASIC may be calculated as
follows:
Function
SECANT
COSECANT
COTANGENT
INVERSE SINE
INVERSE COSINE
INVERSE SECANT
INVERSE
COSECANT
INVERSE
COTANGENT
HYPERBOLIC
SINE
HYPERBOLIC
COSINE
HYPERBOLIC
TANGENT
HYPERBOLIC
SECANT
HYPERBOLIC
COSECANT
HYPERBOLIC
COTANGENT
INVERSE
HYPERBOLIC
SINE
INVERSE
HYPERBOLIC
COSINE
INVERSE
HYPERBOLIC
TANGENT
INVERSE
HYPERBOLIC
SECANT
INVERSE
HYPERBOLIC
COSECANT
INVERSE
HYPERBOLIC
COTANGENT
A-82
BASIC Equivalent
SEC(X) = 1/COS(X)
CSC(X) = 1/SIN(X)
COT(X) =
1fTAN(X)
ARCSIN(X) = ATN(X/SQR( -
X*X + 1))
ARCCOS(X) = ATN(X/SQR( -
X*X + 1))
+ 1.5708
ARSCEC(X) = ATN(X/SQR(X*X
-1))
+ SGN(SGN(X) -1 )*1.5708
ARCCSC(X) = ATN(X/SQR(X*X
-1))
+ (SGN(X) -1 )*1.5708
ARCCOT(X) = ATN(X) + 1.5708
SINH(X) = (EXP(X) - EXP( - X))/2
COSH(X) = (EXP(X) + EXP( - X))/2
TANH(X) = (EXP( - X)/EXP(X) + EXP
(- X))*2 + 1
SECH(X) = 2/(EXP(X) + EXP( - X))
CSCH(X) = 2/(EXP(X) - EXP( - X))
COTH(X) = (EXP( - X)/(EXP(X) - EXP
(- X))*2 + 1
ARCSINH(X) = LOG(X + SQR(X*X= 1))
ARCCOSH(X) = LOG(X + SQR(X*X
-1))
ARCTANH(X) = LOG((1 + X)/(1 - X))/2
ARCSECH(X) = LOG((SQR( -
X*X = 1)
+ 1)/X)
ARCCSCH(X) = LOG((SGN(X)*SQR
(X*X+1)=1)/X)
ARCCOTH(X) = LOG((X + 1)/(X -1 ))/2