function fid=traf(fid,lb)
%%Usage: fid=traf(fid,lb)
%%TRAF window function
%%Increases resolution at the expense of
%%the signal-to-noise
	at=max(fid(:,1));
	traffun= @(lb,t) (exp(-t.*lb)).^2./((exp(-t.*lb)).^3+(exp(-at*lb)).^3);
	fid(:,2)=fid(:,2).*traffun(lb,fid(:,1));
	fid(:,3)=fid(:,3).*traffun(lb,fid(:,1));
end
