% Emacs mode header: -*-Octave-*- source. %
% Greenwood tuning function
% Gw 

xX=0:0.1:35;
fF=invGw(xX);

yY200=Glat_pas_ana1(xX,200);
yY1000=Glat_pas_ana1(xX,1000);
yY10000=Glat_pas_ana1(xX,10000);

ypool=Glat_pas_ana1(xX,invGw(xX));

cC200=Gspeed(xX,200);
cC1000=Gspeed(xX,1000);
cC10000=Gspeed(xX,10000);

% top - speed
% hold on
subplot(2,1,1), plot(xX,cC200,xX,cC1000,xX,cC10000), grid on
 axis([0 35 0 155]) % to 150
title('Passive Speed (top)')

% bottom -latency
subplot(2,1,2),
hold on
plot(xX,yY200,xX,yY1000,xX,yY10000), grid on
plot(xX,ypool,'k--')
%axis([0 35 -3 0]) % to -1.5
title('Latency (bottom)')
