% subplot(2,2,1) %A
fXA = logspace(1.2,4.2,1000);
f_L = 750; % Hz
r_OUT= 1./(1 + exp((2.*fXA-4.*f_L)./f_L));
semilogx(fXA, r_OUT, 'k');
grid on
xlabel('Sound Frequency [Hz]');
ylabel('Vector Strength');
% axis([10^1 10^4 -0.2 1.2])
 axis([20 10^4 -0.1 1.1])
