Changed to Benedikt's new fitting formula for Rcaustic