; ***************** 
; Master Library 12
; *****************
; Curve Solution


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

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

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

lbl a                                  ;000
inv stf 0 inv stf 1 cp sto 1 sin 
ge exc lnx

lbl exc                                ;015
rcl 1 rtn

lbl b                                  ;020
inv stf 0 inv stf 1 cp sto 2 ge
dms lnx rcl 2

lbl dms                                ;036
rtn

lbl c                                  ;039
sto 3 rtn

lbl d                                  ;044
sto 4 stf 0 stf 1 rtn

lbl a'                                 ;053
iff 0 eng ( rcl 3 / rcl 2 ) sto 1
rtn

lbl eng                                ;068
rad ( ( rcl 4 / 2 / rcl 2 ) inv sin
* 2 ) sto 1 rtn

lbl b'                                 ;089
iff 1 nop ( rcl 3 / rcl 1 ) sto 2 rtn

lbl nop                                ;104
( sbr op 1/x * rcl 4 ) sto 2 rtn

lbl op                                 ;117
rad ( ( rcl 1 / 2 ) sin * 2 ) rtn

lbl c'                                 ;132
( rcl 1 * rcl 2 ) rtn

lbl d'                                 ;142
sbr op * rcl 2 ) rtn

lbl e                                  ;151
( rcl 2 x2 * rcl 1 / 2 ) rtn

lbl e'                                 ;164
rad ( rcl 1 * rcl 2 x2 / 2 - rcl 2
x2 / 2 * rcl 1 sin ) rtn

#end 
