source: FOIAVistA/tag/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XLFHYPER.m@ 1416

Last change on this file since 1416 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.4 KB
Line 
1XLFHYPER ;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
4Q Q +$J(Y,0,$S((PR-$L(Y\1))'<0:PR-$L(Y\1),1:0))
5PR(PR,PL) ;
6 Q $S('$L(PR):PL,PR>PL:PL,1:PR)
7SINH(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
10COSH(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
13TANH(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
16CSCH(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
19SECH(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
22COTH(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
25ASINH(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
28ACOSH(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
31ATANH(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
34ACOTH(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
37ASECH(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
40ACSCH(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
Note: See TracBrowser for help on using the repository browser.