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

xX=0:0.1:35;

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

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

% top - speed
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), plot(xX,yY200,xX,yY1000,xX,yY10000), grid on
 axis([0 35 -1.55 0]) % to -1.5
title('Latency (bottom)')
