| 1 | XLFHYPER ;HINES/CFB,DW - HYPERBOLIC MATH FUNCTIONS ;8/2/93 15:26
|
|---|
| 2 | ;;8.0;KERNEL;;Jul 10, 1995
|
|---|
| 3 | ;;V 1.0;HYPERBOLIC MATH FUNCTIONS
|
|---|
| 4 | Q Q +$J(Y,0,$S((PR-$L(Y\1))'<0:PR-$L(Y\1),1:0))
|
|---|
| 5 | PR(PR,PL) ;
|
|---|
| 6 | Q $S('$L(PR):PL,PR>PL:PL,1:PR)
|
|---|
| 7 | SINH(X,PR) ;
|
|---|
| 8 | N A S A=X,PR=$$PR($G(PR),12)
|
|---|
| 9 | S Y=$$EXP^XLFMTH(X,12)-$$EXP^XLFMTH(-A,12)/2 G Q
|
|---|
| 10 | COSH(X,PR) ;
|
|---|
| 11 | N A S A=X,PR=$$PR($G(PR),12)
|
|---|
| 12 | S Y=$$EXP^XLFMTH(X,12)+$$EXP^XLFMTH(-A,12)/2 G Q
|
|---|
| 13 | TANH(X,PR) ;
|
|---|
| 14 | N A S A=X,PR=$$PR($G(PR),12)
|
|---|
| 15 | S Y=($$EXP^XLFMTH(X,12)-$$EXP^XLFMTH(-A,12))/($$EXP^XLFMTH(X,12)+$$EXP^XLFMTH(-A,12)) G Q
|
|---|
| 16 | CSCH(X,PR) ;
|
|---|
| 17 | N A S A=X,PR=$$PR($G(PR),12)
|
|---|
| 18 | S Y=1/($$EXP^XLFMTH(X,12)-$$EXP^XLFMTH(-A,12)/2) G Q
|
|---|
| 19 | SECH(X,PR) ;
|
|---|
| 20 | N A S A=X,PR=$$PR($G(PR),12)
|
|---|
| 21 | S Y=1/($$EXP^XLFMTH(X,12)+$$EXP^XLFMTH(-A,12)/2) G Q
|
|---|
| 22 | COTH(X,PR) ;
|
|---|
| 23 | N A S A=X,PR=$$PR($G(PR),12)
|
|---|
| 24 | S Y=1/(($$EXP^XLFMTH(X,12)-$$EXP^XLFMTH(-A,12))/($$EXP^XLFMTH(X,12)+$$EXP^XLFMTH(-A,12))) G Q
|
|---|
| 25 | ASINH(X,PR) ;
|
|---|
| 26 | N A S A=X,PR=$$PR($G(PR),12)
|
|---|
| 27 | S Y=$$LN^XLFMTH(A+($$PWR^XLFMTH((X*X+1),.5))) G Q
|
|---|
| 28 | ACOSH(X,PR) ;
|
|---|
| 29 | N A S A=X,PR=$$PR($G(PR),12)
|
|---|
| 30 | S Y=$$LN^XLFMTH(A+($$PWR^XLFMTH((X*X-1),.5))) G Q
|
|---|
| 31 | ATANH(X,PR) ;
|
|---|
| 32 | N A S A=X,PR=$$PR($G(PR),12)
|
|---|
| 33 | S Y=((.5*($$LN^XLFMTH(1+X)))-(.5*($$LN^XLFMTH(1-X)))) G Q
|
|---|
| 34 | ACOTH(X,PR) ;
|
|---|
| 35 | N A S A=X,PR=$$PR($G(PR),12)
|
|---|
| 36 | S Y=((.5*($$LN^XLFMTH(1+X)))-(.5*($$LN^XLFMTH(X-1)))) G Q
|
|---|
| 37 | ASECH(X,PR) ;
|
|---|
| 38 | N A S A=X,PR=$$PR($G(PR),12)
|
|---|
| 39 | S Y=$$LN^XLFMTH(1/A+$$PWR^XLFMTH((1/(X*X)-1),.5)) G Q
|
|---|
| 40 | ACSCH(X,PR) ;
|
|---|
| 41 | N A S A=X,PR=$$PR($G(PR),12)
|
|---|
| 42 | S Y=$$LN^XLFMTH(1/A+$$PWR^XLFMTH((1/(X*X)+1),.5)) G Q
|
|---|
