Listing of file='21' on disk='vmedia/glbr_22.wvd.zip'
# Sector 379, program filename = '21' 0005 SELECT R 0010 PRINT "CODE,X? TO END PROGRAM INPUT 0,0." 0020 INPUT N,X 0025 IF N=0 THEN 240 0030 IF N>3 THEN 140 0040 S=(EXP(X)-EXP(-X))/2 0050 C=(EXP(X)+EXP(-X))/2 0060 IF N>1 THEN 90 0070 PRINT "SINH(X)=";S 0080 GOTO 210 0090 IF N>2 THEN 120 0100 PRINT "COSH(X)=";C 0110 GOTO 210 0120 PRINT "TANH(X)=";S/C 0130 GOTO 210 0140 IF N>4 THEN 170 0150 PRINT "ARCSINH(X)=";LOG(X+SQR(X^2+1)) 0160 GOTO 210 0170 IF N>5 THEN 200 0180 PRINT "ARCCOSH(X)=";LOG(X+SQR(X^2-1)) 0190 GOTO 210 0200 PRINT "ARCTANH(X)=";LOG((1+X)/(1-X))/2 0210 PRINT 0220 PRINT "CODE,X?" 0230 GOTO 20 0240 SELECT D : END