EXAMP_AUDSCALES - Plot of the different auditory scales.

Program code:

disp(['Type "help examp_audscales" to see a description of how this ', ...
      'example works.']);

% Set the limits
flow=0;
fhigh=8000;
plotpoints=50;

xrange=linspace(flow,fhigh,plotpoints);


figure(1)

types   = {'erb','bark','mel','erb83'};
symbols = {'r.' ,'go'  ,'bx' ,'y+'};

hold on;
for ii=1:numel(types)
  curve = freqtoaud(types{ii},xrange);
  % Normalize the frequency to a maximum of 1.
  curve=curve/curve(end);
  plot(xrange,curve,symbols{ii});
end;
hold off;
legend(types{:},'Location','SouthEast');