## Copyright (C) 2017 Jens Ahrensfeld
## 
## This program is free software; you can redistribute it and/or modify it
## under the terms of the GNU General Public License as published by
## the Free Software Foundation; either version 3 of the License, or
## (at your option) any later version.
## 
## This program is distributed in the hope that it will be useful,
## but WITHOUT ANY WARRANTY; without even the implied warranty of
## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
## GNU General Public License for more details.
## 
## You should have received a copy of the GNU General Public License
## along with this program.  If not, see <http://www.gnu.org/licenses/>.

## -*- texinfo -*- 
## @deftypefn {Function File} {@var{retval} =} ip_eval (@var{input1}, @var{input2})
##
## @seealso{}
## @end deftypefn

## Author: Jens Ahrensfeld <ahrensfeld@w2ess001vm>
## Created: 2017-05-15

function [] = ip_eval ()

Nh = 100;
Np = 10;
omega = 0.4;

close all;
x = -(Nh/2):(Nh/2-1);

for p=1:Np,
	d = (p-1)/Np
	h(:, p) = sinc(omega*(x+d))'.*kaiser(length(x), 8);
	plot(x, h); grid;
	pause (0.1)
end
	
figure
for p=1:Nh,
	x = 0:Np-1;
	y = h(p,:);
	p = polyfit(x, y, 3);
	plot(x, y, 'o', 0:0.1:Np-1, polyval(p,  0:0.1:Np-1), 'r'); grid;
	pause (0.1)
end	

endfunction