9000  REM  *****  FNCTS  *****  MATHEMATICS PROGRAM  *****
9001  REM  *****  VERSION 1  *****  7/31/69  *****
9002  REM  TRIG FUNCTIONS OF A COMPLEX ARGUMENT
9003  PRINT "ENTER THE REAL AND IMAGINARY PARTS OF THE ARGUMENT"
9004  PRINT "RE(Z)= ";
9005  INPUT X
9006  PRINT "IM(Z)= "
9007  INPUT Y
9008  PRINT 
9009  REM FNS, FNC ARE SINH, COSH OF REAL VARIABLE.  THEY ARE USED
9010  REM IN FINDING THE OTHER FUNCTIONS.
9011  DEF FNS()=(EXP()-EXP(-))/2
9012  DEF FNC()=(EXP()+EXP(-))/2
9013  REM NEXT 3 LINES GIVE SINE OF COMPLEX VARIABLE.
9014  LET S1=SIN(X)*FNC(Y)
9015  LET S2=COS(X)*FNS(Y)
9016  PRINT "SIN(Z):  RE=";S1,"IM=";S2
9017  REM NEXT 3 LINES GIVE COSINE OF COMPLEX VARIABLE.
9018  LET C1=COS(X)*FNC(Y)
9019  LET C2=-SIN(X)*FNS(Y)
9020  PRINT "COS(Z):  RE=";C1,"IM=";C2
9021  REM NEXT 4 LINES GIVE TANGENT OF COMPLEX VARIABLE.
9022  LET D=COS(2*X)+FNC(2*Y)
9023  LET T1=SIN(2*X)/D
9024  LET T2=FNS(2*Y)/D
9025  PRINT "TAN(Z):  RE=";T1,"IM=";T2
9026  REM NEXT 3 LINES GIVE HYPERBOLIC SINE OF COMPLEX VAR.
9027  LET S3=FNS(X)*COS(Y)
9028  LET S4=FNC(X)*SIN(Y)
9029  PRINT "SINH(Z):  RE=";S3,"IM=";S4
9030  REM NEXT 3 LINES GIVE HYPERBOLIC COSINE OF COMPLEX VAR.
9031  LET C3=FNC(X)*COS(Y)
9032  LET C4=FNS(X)*SIN(Y)
9033  PRINT "COSH(Z):  RE=";C3,"IM=";C4
9034  REM NEXT 4 LINES GIVE HYPERBOLIC TANGENT OF COMPLEX VAR.
9035  LET E=FNC(2*X)+COS(2*Y)
9036  LET T3=FNS(2*X)/E
9037  LET T4=SIN(2*Y)/E
9038  PRINT "TANH(Z):  RE=";T3,"IM=";T4
9039  STOP 
9999  END 
