exampleModel_preproc.m 438 Bytes
Newer Older
Joanna Luberadzka's avatar
Joanna Luberadzka committed
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
% revision 1.00.1 beta, 07/01/04

function out = exampleModel_preproc(in)

global def
global work
global simwork

% this is the Viemeister JASA 1979 leaky-integrator model


% 4-6 kHz four-pole Butterworth Bandpass (missing)

% halfwave rectification
tmp = max(in,0);

% first-order lowpass filter @ 65 Hz
tmp = filter(simwork.lp_b, simwork.lp_a, tmp);

% ac-coupled rms = std
out = std(tmp,1);

% that's it
% eof