function [ integral_outvalue, fun_outvalue ] = integral_H( e_bar )
%UNTITLED Summary of this function goes here
%   Detailed explanation goes here
integral_outvalue=quad(@areaH,e_bar,1000)/(1-logncdf(e_bar,0,.1));
fun_outvalue=deriv_H(e_bar);

end