; ********************** 
; Master Library 11
; **********************
; Triangle Solution (1)


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

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

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

lbl a'                                 ;000
( ( rcl 6 x2 + rcl 1 x2 - rcl 2 x2
) / 2 / rcl 6 / rcl 1 ) inv cos
iff 0 dsz sto 5 stf 0 

lbl eng                                ;034
rcl 6 exc 1 exc 2 sto 6 gto a'

lbl dsz                                ;046
iff 1 nop sto 4 stf 1 gto eng

lbl nop                                ;057
sto 3 iff 2 list

lbl e'                                 ;064
inv stf 0 inv stf 1 inv stf 2
inv stf 3 rtn

lbl d                                  ;079
( ( rcl 2 sin * rcl 1 / rcl 6 ) inv
ee ee inv ee inv sin ee inv ee sto 4
+/- + 1 +/- inv cos - rcl 2 ) sto 2
sto 5 stf 3 

lbl e                                  ;121
( rcl 6 x2 + rcl 1 x2 - 2 * rcl 6
* rcl 1 * rcl 2 cos ) sqr iff 3 dms
sto 2 stf 0 stf 2 gto eng

lbl list                               ;156
sto 5 rcl 1 gto e'

lbl dms                                ;164
sto 2 gto e'

lbl b'                                 ;170
rcl 4 rtn

lbl c'                                 ;175
rcl 5 rtn

lbl a                                  ;180
sto 6 rtn

lbl b                                  ;185
sto 1 rtn

lbl c                                  ;190
sto 2 rtn

#end 
