stft.m File Reference

Functions
	if (nargin< 4) coef
endif endif endif	elseif (nargin==5) if(ischar(w_type)) if(strcmp(w_type
	elseif (strcmp(w_type,"hamming")) w_type
	elseif (strcmp(w_type,"rectangle")) w_type
else	error ("stft: unknown window type `%s'", w_type)
endif endif else	print_usage ()
	if (nc!=1) if(nr
else	error ("stft: X must be a vector")
	if (win > num_coef) win
	printf ("stft: window size adjusted to %f\n", win)
	if (w_type==3) WIN_COEF
	elseif (w_type==2) WIN_COEF
	if (nargout==1) Y
Variables
	function [Y, c]
endif endif endif hanning	w_type = 1
	endif [nr, nc] = size (X)
	nr = nc
endif endif	num_coef = 2 * coef
endif	num_win = fix ((nr - win) / inc)
else	WIN_COEF = hanning (win)
endif	Z = zeros (num_coef, num_win + 1)
	start = 1
for	i
endfor	Y = fft (Z)
else	c = [win, inc, w_type]

---

Function Documentation

elseif

(

w_type

= =2

)

elseif

(

strcmp(w_type,"rectangle")

)

elseif

(

strcmp(w_type,"hamming")

)

endif endif endif elseif

(

nargin

= = 5

)

else error

(

"stft: X must be a vector"

)

else error	(	"stft: unknown window type `%s'"	,
		w_type
	)

if

(

nargout

= =1

)

if

(

w_type

= =3

)

if	(	win	,
		num_coef
	)

if

(

nc!

= 1

)

if

(

)

endif endif else print_usage

(

)

printf	(	"stft: window size adjusted to %f\n"	,
		win
	)

---

Variable Documentation

else c = [win, inc, w_type]

endif[nr, nc] = size (X)

function[Y, c]

Initial value:

 stft(X, win, inc, coef, w_type)


  if (nargin < 5)
    w_type = 1

for i

Initial value:

 0:num_win
    Z(1:win, i+1) = X(start:start+win-1) .* WIN_COEF

nr = nc

endif endif num_coef = 2 * coef

endif num_win = fix ((nr - win) / inc)

start = 1

endif endif endif hanning w_type = 1

else WIN_COEF = hanning (win)

endfor Y = fft (Z)

endif Z = zeros (num_coef, num_win + 1)