; ************************* 
; Math/Utilities Library 15
; *************************
; Roots of Functions 
; (Original TI-59)


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

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

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

lbl b                                      ;000
sto 9 rtn

lbl b'                                     ;005
sto 12 rtn

lbl c'                                     ;010
inv

lbl c                                      ;013
stf 0 sto 10 9 +/- inv log sto 19 rcl 10
cp inv eq 39 pgm 16 sbr prt gto 43 
pgm 16 sbr grad inv stf 7 ( 1/x * rcl 10
pgm 00 a' ) +/- op 19 inv iff 7 71 inv
stf 7 sto 10 gto 93

sum 10 abs x%t rcl 12 ge 93 rcl 10 inv 
iff 0 27 dsz 9 27 + = rcl 10 inv stf 0
rtn


#end