%***************************************************************************
%  parsen1 - Parsen1 window                    DAVID HORAK          5.5.1998
%***************************************************************************
function g=parsen1(N,q)

t=(-N/2:N/2);
for i=1:N+1
 g(i)=1-(abs(t(i))/(N/2))^q;
end

%krok=1/(N-1)
%for i=1:N+1
%  t(i)=(i-N/2-1)*krok;
%  g(i)=1-(abs(t(i))/(N-1))^q;
%end

%plot(g);