Mercurial > hg > octave-nkf
diff scripts/signal/stft.m @ 3457:e031284eea27
[project @ 2000-01-19 08:49:56 by jwe]
author | jwe |
---|---|
date | Wed, 19 Jan 2000 08:50:14 +0000 |
parents | 858695b3ed62 |
children | 38c61cbf086c |
line wrap: on
line diff
--- a/scripts/signal/stft.m +++ b/scripts/signal/stft.m @@ -48,8 +48,8 @@ ## synthesis function. ## @end deftypefn -## Author: AW <Andreas.Weingessel@ci.tuwien.ac.at> -## Description: Short-term Fourier transform +## Author: AW <Andreas.Weingessel@ci.tuwien.ac.at> +## Description: Short-term Fourier transform function [Y, c] = stft(X, win, inc, coef, w_type) @@ -74,7 +74,7 @@ elseif (strcmp (w_type, "rectangle")) w_type = 3; else - error (["stft: unknown window type `", w_type, "'"]) + error ("stft: unknown window type `%s'", w_type); endif endif else @@ -88,14 +88,14 @@ X = X'; nr = nc; else - error ("stft: X must be a vector"); + error ("stft: X must be a vector"); endif endif num_coef = 2 * coef; if (win > num_coef) win = num_coef; - printf ("stft: window size adjusted to %f\n", win); + printf ("stft: window size adjusted to %f\n", win); endif num_win = fix ((nr - win) / inc);