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(W)=(EXP(W)-EXP(-W))/2 9012 DEF FNC(W)=(EXP(W)+EXP(-W))/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