% Session p. 129

f=inline('ExpectedVisitsExtrapolated(epsilon,K,extraTerms)-2',...
    'epsilon','K','extraTerms');
epsilon=fzero(f,[0.06,0.07],optimset('TolX',1e-14),393,7)