Bump version numbers to 6.2.0
[scilab.git] / scilab / modules / sound / macros / analyze.sci
1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
2 // Copyright (C) ???? - INRIA - Scilab
3 //
4 // Copyright (C) 2012 - 2016 - Scilab Enterprises
5 //
6 // This file is hereby licensed under the terms of the GNU GPL v2.0,
7 // pursuant to article 5.3.4 of the CeCILL v.2.1.
8 // This file was originally licensed under the terms of the CeCILL v2.1,
9 // and continues to be available under such terms.
10 // For more information, see the COPYING file which you should have received
11 // along with this program.
12
13 function analyze (w,fmin,fmax,rate,points)
14     // Make a frequency plot of the signal w with sampling rate.
15     // The data must be at least points long.
16     // The maximal frequency plotted will be fmax, the minimal fmin.
17     [lhs,rhs]=argn(0);
18     if ( rhs <= 4 ) then points=8192 ; end ;
19     if ( rhs <= 3 ) then rate=0; end ;
20     if ( rhs <= 2 ) then fmax=1500; end ;
21     if ( rhs <= 1 ) then fmin=10;  end ;
22     defaultrate=22050;
23     if rate==0; rate=defaultrate; end;
24     v=w(1:points);
25     f=abs(fft(v,1));
26     i=fmin/rate*points:fmax/rate*points;
27     fr=i/points*rate;
28     plot2d(fr',f(i)');
29 endfunction