; ********************* 
; Master Library 12
; *********************
; Triangle Solution (2)


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

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

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

lbl a                                 ;000
sto 7 rtn

lbl b                                 ;005
sto 4 rtn

lbl c                                 ;010
sto 5 rtn

lbl a'                                ;015
( 1 +/- inv cos - rcl 4 - rcl 5 )
sto 3 gto nop

lbl b'                                ;033
( 1 +/- inv cos - rcl 4 sto 3 -
rcl 5 ) sto 4 stf 0

lbl nop                               ;053
( rcl 7 * RCL 4 SIN / RCL 3 SIN )
sto 1 ( rcl 7 * rcl 5 sin / rcl 3 
sin ) sto 2 iff 0 op rcl 3 rtn

lbl op                                ;089
rcl 4 inv stf 0 rtn

lbl d                                 ;097
rcl 1 rtn

lbl e                                 ;102
rcl 2 rtn

lbl c'                                ;107
( ( rcl 7 + rcl 1 + rcl 2 ) / 2 )
sto 6 ( rcl 6 * ( rcl 6 - rcl 7 )
* ( rcl 6 - rcl 1 ) * ( rcl 6 -
rcl 2 ) ) sqr rtn

#end 
