Daniel@0: % filter = SetGain(filter, desired, f, fs)
Daniel@0: % Set the gain of a filter (1x5 vector) to any desired gain
Daniel@0: % at any desired frequency (f).
Daniel@0: 
Daniel@0: % (c) 1998 Interval Research Corporation  
Daniel@0: 
Daniel@0: function filter = SetGain(filter, desired, f, fs)
Daniel@0: oldGain = 10^(FreqResp(filter, f, fs)/20);
Daniel@0: filter(1:3) = filter(1:3)*desired/oldGain;