function [Hr,w,d,L] = Hr_Type4(h);
% 計算第四種低通濾波器設計的振幅響應Hr(w) 
% ---------------------------------------------------
% [Hr,w,d,L] = Hr_Type4(h)
%  Hr = 振幅響應
%  w = 在[0 pi] 區間內計算Hr 的500個頻率點
%  d = 第四種低通濾波器的系數
%  L = Hr的階次
%  h = 第四種低通濾波器的頻率響應
% 
 M = length(h);
 L = M/2;
 d = 2*[h(L:-1:1)];
 n = [1:1:L]; n = n-0.5;
 w = [0:1:500]'*pi/500;
Hr = sin(w*n)*d';