Mercurial > hg > octave-lyh
diff scripts/signal/sinetone.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/sinetone.m +++ b/scripts/signal/sinetone.m @@ -23,8 +23,8 @@ ## Defaults are @var{rate} = 8000, @var{sec} = 1 and @var{ampl} = 64. ## @end deftypefn -## Author: FL <Friedrich.Leisch@ci.tuwien.ac.at> -## Description: Compute a sine tone +## Author: FL <Friedrich.Leisch@ci.tuwien.ac.at> +## Description: Compute a sine tone function retval = sinetone (f, r, s, a) @@ -43,11 +43,11 @@ [err, f, a] = common_size (f, a); if (err || ! is_vector (f)) - error ("sinetone: freq and ampl must be vectors of common size"); + error ("sinetone: freq and ampl must be vectors of common size"); endif - if !(is_scalar (r) && is_scalar (s)) - error ("sinetone: rate and sec must be scalars"); + if (! (is_scalar (r) && is_scalar (s))) + error ("sinetone: rate and sec must be scalars"); endif n = length (f);