; *********************** 
; Master Library 15
; ***********************
; Random Number Generator


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

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

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

lbl dms                              ;000
( ( 2 4 2 9 8 * rcl 9 + 9 9 9 9 1 
) / 1 9 9 0 1 7 sto 7 ) ( ( ( inv
int * rcl 7 ) sto 9 / rcl 7 * 5 inv
log ) int / 5 inv log ) rtn

lbl c                                ;055
sbr dms ( ce * ( rcl 11 - rcl 10 )


lbl p/r                              ;069
+ rcl 10 ) sto 7 s+ rcl 7 rtn

lbl c'                               ;081
rad sbr dms sto 8 sbr dms ( ( ce
* 2 * pi ) cos * ( rcl 8 lnx * 2 +/-
) sqr * rcl 11 gto p/r

lbl e'                               ;114
pgm 1 sbr clr rtn

lbl e                                ;121
sto 9 rtn

lbl a                                ;126
sto 10 rtn

lbl b                                ;131
sto 11 rtn




#end 
