; ************************* 
; Math/Utilities Library 10
; *************************
; Hyperbolic Functions 
; (Original TI-59)


#EMULATOR c:\ti-59\mu\10\MU-10.t59

#LISTING c:\ti-59\mu\10\MU-10.LST

#AZEMULATOR c:\ti-59\mu\10\MU-10.TI


lbl a                                 ;000
( ( inv lnx - 1/x ) / 2 ) rtn

lbl b                                 ;013
( ( inv lnx + gto 7

lbl c                                 ;023
( ( +/- inv lnx x2 + x%t 1 ) 1/x
* ( 1 - x%t ) ) rtn

lbl a'                                ;044
( ce + ( x2 + 1 ) sqr ) lnx rtn

lbl b'                                ;058
x%t 1 x%t ge 69 + = rtn

( x2 - 1 ) sqr gto 46                 ;069

lbl c'                                ;077
( ( ( ce + x%t 1 ) / ( 1 - x%t
) ) lnx / 2 ) rtn


#end