; *********************** 
; Master Library 06
; ***********************
; Complex Trig Functions


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

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

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

lbl a'                                ;000
rad ( ( rcl 1 + 1 ) x2 + rcl 2 x2
) sqr rtn

lbl e'                                ;018
( ( rcl 1 - 1 ) x2 + rcl 2 x2 )
sqr rtn

lbl e                                 ;035
( ( a' + e' ) / 2 + ( ee inv ee 
x2 - 1 ) sqr ) lnx rtn

lbl a                                 ;058
pgm 4 a rtn

lbl b                                 ;064
rad ( rcl 1 sin * pgm 5 e' ) x%t
( rcl 1 cos * pgm 5 c' ) sto 2 x%t
sto 1 rtn

lbl c                                 ;092
rad ( rcl 1 cos * pgm 5 e' ) x%t 
( rcl 1 sin +/- * pgm 5 c' ) sto 2 
x%t sto 1 rtn

lbl d                                 ;121
rcl 1 sto 3 rcl 2 sto 4 c pgm 4 e'
b pgm 4 c' rtn

lbl b'                                ;140
( ( a' - e' ) / 2 ) inv sin x%t e
sto 2 x%t sto 1 rtn

lbl c'                                ;161
( ( a' - e' ) / 2 ) inv cos x%t e
+/- sto 2 x%t sto 1 rtn

lbl d'                                 ;183
( ( 1 - rcl 1 x2 - rcl 2 x2 ) x%t
( 2 * rcl 1 ) inv p/r / 2 ) x%t (
( ( rcl 1 x2 + ( rcl 2 + 1 ) x2 )
/ ( rcl 1 x2 + ( rcl 2 - 1 ) x2 ) )
lnx / 4 ) sto 2 x%t sto 1 rtn


#end 
