0001 function f = mkhighpass(pl)
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011
0012 g = find(pl, 'gain');
0013 fc = find(pl, 'fc');
0014 fs = find(pl, 'fs');
0015 order = find(pl, 'order');
0016 win = find(pl, 'Win');
0017
0018 if(fc(1) > fs/2)
0019 error('fc must be < fs/2');
0020 end
0021
0022
0023 f.name = 'std highpass';
0024 f.fs = fs;
0025 f.ntaps = order+1;
0026 f.a = fir1(order, 2*fc/fs, 'high', win.win);
0027 f.gd = (f.ntaps)/2;
0028 f.g = g;
0029 f.histout = zeros(1,f.ntaps-1);
0030
0031
0032
0033