Commodore Plus 4 - Page 212

_
SECTION 10 Functions that are not intrinsic to BASIC 3.5 may be calculated as
follows:
Deriving
Mathematical
Functions
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
BASIC EQUIVALENT
SEC(X) = 1/COS(X)
CSC(X) = 1/SIN(X)
COT(X) = 1/TAN(X]
ARCSIN(X)-ATN(X/SQR( X"X + 1))
ARCCOS(X)= -ATN(X/SQR
ARCSEC(X) = ATN(X'SQR{X"X-1)|
ARCCSC(X)=ATN(X'SQR(X"X-1))
+(SGN(X)-fW2)
ARCOT(X}=ATN<XHt7/2
SINH(X) = (EXP(X)-EXPf-X})/2
COSH(X}=(EXP(X) = + EXP(-X))/2
TANH(X) = EXP(-X)/(EXP(x)+EXP
SECH(X)=2/(EXP(X) + EXP(-X))
CSCH(X)=2/(EXP(X)-EXP(-X))
COTH(X)=EXP(-X)/(EXP(X)
-EXP(-X))"2
+ 1
ARCSINHtXj^LOGIX + SQRfX'X+i)]
ARCCOSH(X)=LOG(X + SQR(X*X-1)}
ARCTANH(X) = LOG((1-t-X)/(1-X))/2
ARCSECH(X) = LOG((SQR
ARCCSCH(X)-LOG((SGN(X)"SQR
(x x + 1 )/x))
ARCCOTH{X) = LOG((X+1 )/(x - 1 ))/2
_
L
_
_
_
_
203