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