COSH Example10 COMPLEX C
20 C=CMPLX(4,7)
30 CLEAR SCREEN
40 PRINT COSH(80)
50 X=REAL(COSH(C))
60 Y=COSH(REAL(C))*COS(IMAG(C))
70 PRINT X,Y
80 IF X=Y THEN
90 PRINT "True"
100 ELSE
110 PRINT "False - error in documentation."
120 END IF
130 X=IMAG(COSH(C))
140 Y=SINH(REAL(C))*SIN(IMAG(C))
150 PRINT X,Y
160 IF X=Y THEN
170 PRINT "True"
180 ELSE
190 PRINT "False - error in documentation."
200 END IF
210 END
|