function f=rii_f(sg,tau0,sigi,segmenti)
% function f=rii_f(sg,tau0,sigi,segmenti)
% (c) 2006 Alain Hebert, Ecole Polytechnique de Montreal
   if sigi ~= 0
      f=sg*segmenti*taben(2,tau0)/sigi- ...
        (taben(3,tau0)-taben(3,tau0+sg*sigi*segmenti))/sigi^2 ;
   else
      f=0.5*segmenti^2*taben(1,tau0) ;
   end