2 / VERSION 5A 4-27-77 PT
9 / VERSION 5A 4-27-77 PT
12 COSHE, FLDA COSHB /GIVE INFINITY IN CASE OF NO REC
41 COSH1, F 88.029 /LIMIT FACTOR.
52 FLDA% BPCOSH,1 /ADDR OF X
56 FSTA COSH8 /SAVE ARGUMENT
60 FSUB COSH1 /TEST FOR LIMITS.
68 FDIV COSH7 / 1./EXP(X)
69 FADD COSH7 / EXP(X)+1./EXP(X)
70 FDIV F2COSH / (EXP(X)+1./EXP(X))2.
71 JA CSHRTN /AND THAT IS THE DEFINITION OF COSH.
74 COSHBG, FSUB COSHLG /SEE IF TOO BIG
76 FADD COSH1 /READD IN SUBTRACTION FACTOR.
77 FSTA COSH8 / EXP(ABS(X)-LN(2))
82 JA CSHRTN / A VERY GOOD APPROXIMATION.