; ************************* 
; Math/Utilities Library 19
; *************************
; Discrete Fourier Series 
; (Original TI-59)


#EMULATOR c:\ti-59\mu\19\MU-19.t59

#LISTING c:\ti-59\mu\19\MU-19.LST

#AZEMULATOR c:\ti-59\mu\19\MU-19.TI


lbl a                                      ;000
sto 10 rtn

lbl b                                      ;005
sto 8 sto 11 rtn

lbl c                                      ;012
st* 8 op 28 gto 11

lbl d                                      ;021
rad ( ce * 2 * pi / rcl 10 ) sto 12
rcl 11 sto 8 rcl 10 sto 9 0 sto 13
sto 14 cp rc* 8 eq 89 x%t ( rcl 12
* ( rcl 8 - rcl 11 + 1 ) ) ( sto 15
cos * x%t ) sum 13 ( rcl 15 sin *
rc* 8 ) sum 14 op 28 dsz 9 49 (
rcl 14 * 2 / rcl 10 ) x%t ( rcl 13
* 2 / rcl 10 ) rtn



#end