XLFMTH ;SF-ISC/RWF,HINES/CFB,DW - MATH FUNCTIONS;07/16/93 10:21 ;03/03/95 15:29 ;;8.0;KERNEL;;Jul 10, 1995 ABS(X) ;absolute value Q $S(X<0:-X,1:X) LN(X,PR) ;log base e N L,M,N,O,P,Y,LIM S PR=$$PR($G(PR),11) D A G Q LOG(X,PR) ;log base 10 N L,M,N,O,P,Y,LIM S PR=$$PR($G(PR),11) D A S Y=Y/2.30258509298749 G Q ; A S M=1 I X>0 F N=0:1 Q:(X/M)<10 S M=M*10 I X<1 F N=0:-1 Q:(X/M)>.1 S M=M*.1 S X=X/M B S X=(X-1)/(X+1),(Y,L)=X D LIM F O=3:2 S L=L*X*X,M=L/O,Y=M+Y S:M<0 M=-M Q:M11:PR+3,1:11),@("LIM=1E-"_LIM) Q ; Q Q +$J(Y,0,$S((PR-$L(Y\1))'<0:PR-$L(Y\1),1:0)) PR(PR,PL) Q $S('$L(PR):PL,PR>PL:PL,1:PR) E(PR) ;e N Y S Y=2.71828182845905 S PR=$$PR($G(PR),12) G Q PI(PR) ;PI N Y S Y=3.14159265358979 S PR=$$PR($G(PR),12) G Q ; SQRT(X,PR) ;square root of X N Y,T S Y=0,PR=$$PR($G(PR),12) Q:X'>0 Y S Y=X+.5 L F S T=Y,Y=X/T+T/2 Q:Y'