function val = func1_tema7(s)
% funcion cuyo cero se aproxima en preg2, tema 7, test 2, 521230, S2-2011
val = quad(@(x) exp(x)/4+exp(-3*x)/12-4/3,0,s) - (1/2)*quad(@(x) exp(x)/4+exp(-3*x)/12-4/3,0,4);