# HG changeset patch
# User John W. Eaton <jwe@octave.org>
# Date 1205958503 14400
# Node ID 60398362938c3a257f2a86400923f261a2176c31
# Parent  7e6002d15d4d811b6d7e77b3ce767914db2b3354
Emil Lucretiu

diff -r 7e6002d15d4d -r 60398362938c doc/interpreter/contributors.in
--- a/doc/interpreter/contributors.in	Wed Mar 19 16:20:42 2008 -0400
+++ b/doc/interpreter/contributors.in	Wed Mar 19 16:28:23 2008 -0400
@@ -113,6 +113,7 @@
 David Livings
 Erik de Castro Lopo
 Massimo Lorenzin
+Emil Lucretiu
 Hoxide Ma
 James Macnicol
 Jens-Uwe Mager
diff -r 7e6002d15d4d -r 60398362938c scripts/ChangeLog
--- a/scripts/ChangeLog	Wed Mar 19 16:20:42 2008 -0400
+++ b/scripts/ChangeLog	Wed Mar 19 16:28:23 2008 -0400
@@ -1,3 +1,7 @@
+2008-03-19  Emil Lucretiu  <emil@la.mine.nu>
+
+	* signal/sinetone.m: Ensure integral number of samples.
+
 2008-03-19  Michael D. Godfrey  <godfrey@isl.stanford.edu>
 
 	* plot/__go_draw_axes__.m: Additional correction for symbol codes.
diff -r 7e6002d15d4d -r 60398362938c scripts/signal/sinetone.m
--- a/scripts/signal/sinetone.m	Wed Mar 19 16:20:42 2008 -0400
+++ b/scripts/signal/sinetone.m	Wed Mar 19 16:28:23 2008 -0400
@@ -54,11 +54,14 @@
   endif
 
   n = length (f);
+  ns = round (r * s);
 
-  retval = zeros (r * s, n);
+  retval = zeros (ns, n);
+
   for k = 1:n
-    retval (:, k) = a(k) * sin (2 * pi * (1:r*s) / r * f(k))';
+    retval (:, k) = a(k) * sin (2 * pi * (1:ns) / r * f(k))';
   endfor
 
 endfunction
 
+%!assert (size (sinetone (18e6, 150e6, 19550/150e6, 1)), [19550, 1]);