; ******************* 
; Master Library 08
; *******************
; Zeros of Functions


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

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

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



lbl a                                  ;000
sto 1 rtn

lbl b                                  ;005
( sto 2 - x%t rcl 1 ) sto 3 . 0 1
sto 8 x%t rtn

lbl c                                  ;024
sto 3 rtn

lbl d                                  ;029
sto 8 rtn

lbl e                                  ;034
( ce rcl 2 x%t rcl 1 ge abs sto 4
+ rcl 3 ) sto 1 sto 5 pgm 0 a' sto 7
( rcl 4 sto 6 pgm 0 a' cp eq rad *
exc 7 ) ge e

lbl grad                                ;077
( ( rcl 4 + rcl 5 ) / 2 ) sto 6 rcl 8
x%t ( rcl 5 - rcl 4 ) inv ge rad ( 
rcl 6 pgm 0 a' * rcl 7 ) cp eq rad ge 
yx rcl 6 sto 5 gto grad

lbl yx                                  ;126
rcl 6 sto 4 gto grad

lbl rad                                 ;134
rcl 6 rtn

lbl abs                                 ;139
0 1/x rtn

#end 
