; ***************** 
; Master Library 05
; *****************
; Complex Functions


#EMULATOR c:\ti-59\ml\05\ML-05.t59

#LISTING c:\ti-59\ml\05\ML-05.LST

#AZEMULATOR c:\ti-59\ml\05\ML-05.TI

lbl e'                                 ;000
( ( rcl 2 inv lnx + 1/x ) / 2 ) rad
rtn

lbl a                                 ;016
pgm 4 a rtn

lbl b                                 ;022
rad rcl 1 x%t rcl 2 inv p/r
x%t rtn

lbl a'                                ;034
b lnx sto 1 x%t sto 2 x%t rtn

lbl b'                                ;045
rad rcl 1 inv lnx x%t rcl 2 p/r
sto 2 x%t sto 1 rtn

lbl c                                 ;062
b x2 ( x%t * 

lbl ee                                ;069
2 ) p/r sto 2 x%t sto 1 rtn

lbl d                                 ;080
b sqr ( x%t / gto ee

lbl e                                 ;089
1 sto 3 0 sto 4 pgm 4 e' pgm 4
c' rtn

lbl c'                                ;104
( ( rcl 2 inv lnx - 1/x ) / 2
) rtn


#end