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

function out=Gspeed(x,w)
d = 7; %[mm]
w_0 = 20000; %[Hz]
out = sqrt(w_0.*exp(- x./d) - w); %Eq.[11]
endfunction
