NAFFLIB - MATLAB to NAFF library INPUTS 1. Real part 2. Imaginary part 3. Window type 4. Number of frequencies 5. Debug 0 or 1 OUPUTS 1. Fundamental frequency vector 2. Amplitude vector 3. Phase vector EXAMPLE 1. [frequency amplitude phase] = nafflib(Y, Yp, WindowType,nfreq,DebugFlag);
0001 % NAFFLIB - MATLAB to NAFF library 0002 % 0003 % INPUTS 0004 % 1. Real part 0005 % 2. Imaginary part 0006 % 3. Window type 0007 % 4. Number of frequencies 0008 % 5. Debug 0 or 1 0009 % 0010 % OUPUTS 0011 % 1. Fundamental frequency vector 0012 % 2. Amplitude vector 0013 % 3. Phase vector 0014 % 0015 % EXAMPLE 0016 % 1. [frequency amplitude phase] = nafflib(Y, Yp, WindowType,nfreq,DebugFlag); 0017 0018 0019 %% Laurent S. Nadolski, Synchrotron SOLEIL 0020 0021 % Calls modnaff from: 0022 % /* MODNAFF.C version 0.96 */ 0023 % /* Astronomie et systemes dynamiques */ 0024 % /* J. LASKAR Bureau des Longitudes, Paris (version originale fortran) */ 0025 % /* M. GASTINEAU, portage en C, 03/09/98 */ 0026 % /* v0.96 M. GASTINEAU 09/09/98 : modification dans la fonction naf_ztder */ 0027 % /* dans les boucles de I en I-1. */ 0028 % /* v0.96 M. GASTINEAU 09/11/98 : remplacement des variables PI2 par PICARRE*/ 0029 % /* car PI2 est un define sous LINUX. */ 0030 % /* v0.96 M. GASTINEAU 01/12/98 : utilisation des fonctions complexes */ 0031 % /* inlines. */ 0032 % /* v0.96 M. GASTINEAU 07/12/98 : modification dans naf_frefin car bug lors*/ 0033 % /* de l'optimisation sur Mac. */ 0034 % /* v0.96 M. GASTINEAU 18/12/98 : modification de naf_iniwin */ 0035 % /* v0.96 M. GASTINEAU 06/01/99 : ajout de la liberation de la liste des */ 0036 % /* fenetres dans naf_cleannaf et naf_cleannaf_notab*/ 0037 % /* v0.96 M. GASTINEAU 12/01/99 : correction dans le cas ou ICPLX=0 dans */ 0038 % /* naf_modfre et naf_gramsc. */ 0039 % /*v0.96 M. GASTINEAU 14/01/99 : ajout du support des fenetres dans */ 0040 % /* naf_mfttab et naf_fftmax. */ 0041 % /*v0.97 M. GASTINEAU 26/05/99 : correction bug (0.97/99/05/26/A) dans */ 0042 % /* naf_mftnaf */ 0043 % /* v0.97 M. GASTINEAU 27/05/99 : correction bug (0.97/99/05/27/A) dans le */ 0044 % /* cas ou ICPLX=0 et FS=0 dans naf_modfre et naf_gramsc. */ 0045 0046 0047