ref: 9d67a32aeb851e4ec3434d700bbe727ccbd70bd9
parent: 02e186fd22db937482d9afffa8908fb92f9c2903
author: Erik de Castro Lopo <erikd@miles>
date: Tue Oct 26 23:36:08 EDT 2004
Add extra comment to make_src_filter.m.
--- /dev/null
+++ b/FIR-POLY/timeline.m
@@ -1,0 +1,50 @@
+function [t, mt, w] = timeline (len, stretch)
+
+
+if (stretch < 0 || stretch > 1)
+ error ("stretch out of range [0, 1].\n");+ endif
+
+# Mofified time
+
+x_w = 0.2 ;
+x = [-0.5 -0.2 0.2 0.5];
+y = [-0.5 -0.4 -0.1 0.5];
+
+p = polyfit (x, y, 4);
+
+t = linspace (-0.5, 0.5, 100);
+y = polyval (p,t);
+plot (t, y)
+return
+
+mt = ((1 - stretch) * t + stretch * t.^2) - 0.5 ;
+
+
+# Basically a Nuttall indow
+ak = [0.42323 0.49755 0.07922] ;
+
+w = zeros (1, len) ;
+
+k = 0 ;
+for a = ak,
+ w = w + a * cos (2 * pi * k * mt) ;
+ k += 1 ;
+ endfor
+
+w = fliplr (w / len) ;
+
+# Linear t
+
+t = linspace (-(len-2)/2, (len-2)/2, len) / len ;
+
+
+end
+
+# Do not edit or modify anything in this comment block.
+# The following line is a file identity tag for the GNU Arch
+# revision control system.
+#
+# arch-tag: 830f701e-5e9c-478a-a929-609513d4b1a6
+
+
--- a/make_src_filter.m
+++ b/make_src_filter.m
@@ -10,7 +10,7 @@
#=======================================================================
if nargin < 3,
- error ("Try make_filter (12, 32, 88)") ;+ error ('Try make_filter (12, 32, 88, "output.txt")') ;endif
if nargin < 4,