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

function w_r = Greenwood(x)
d = 7; %[mm]
w_0 = 20000; %[Hz]
w_r = w_0.*exp(- x./d);
endfunction