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);