; ************************* 
; Math/Utilities Library 16
; *************************
; MiniMax 
; (Original TI-59)

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

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

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

lbl grad                                     ;000
( ( ( sto 18 * ( 1 + rcl 19 ) ) PGM 00
A' - ( RCL 18 * ( 1 - RCL 19 ) ) PGM 00
A' ) / 2 / RCL 18 / RCL 19 ) RTN 

lbl prt                                      ;044
( ( rcl 19 pgm 0 a' - rcl 19 +/- pgm 00
a' ) / 2 / rcl 19 ) rtn

lbl a                                        ;068
sto 17 rtn

lbl a'                                       ;073
pgm 00 a' rtn

lbl b                                        ;079
sto 12 rtn

lbl d'                                       ;084
rcl 10 gto c' 

lbl d                                        ;090
rcl 10 gto c

lbl c'                                       ;096
inv 

lbl c                                        ;099
stf 0 ( ce + rcl 12 sto 13 ) sto 10 9        
+/- inv log sto 19 rcl 17 sto 9 0 sto 16
cp rcl 10 eq 137 sbr grad gto 140 

sbr 46 sto 11 eq 202 rcl 16 eq 180 x%t       ;137
rcl 11 op 10 inv eq 192 rcl 13 sum 10 inv 
iff 0 126 dsz 9 126 rcl 10 inv stf 0 + = rtn

rcl 11 op 10 sto 16 +/- sto 15 gto 159       ;180

sto 16 2 +/- inv prd 13 gto 159              ;192

inv stf 0 rcl 15 x%t rcl 10 rtn              ;202

#end