ATNH Example
10 COMPLEX C
20 C=CMPLX(4,7)
30 CLEAR SCREEN
40 X=ATNH(C) !Returns the hyperbolic arctangent of a complex number.
50 Y=1/2*LOG((1+C)/(1-C)) !Performs the mathematical value for hyperbolic arctangent.
60 PRINT X;"=";Y;"?"
70 IF X=Y THEN !Verifies ATNH function.
80 PRINT "True"
90 ELSE
100 PRINT "False"
110 END IF
120 END
