% preg 2, tema 6, 521230, S2-2011

% localizando c de manera grafica
x = 0:.1:4;
plot(x,exp(x)/4+exp(-3*x)/12-4/3);
hold on
plot(x,zeros(length(x),1),'k');

% c debe estar cercada a 2.5
options = optimset('TolX',1e-10);
[c,fval,flag] = fzero('func2_tema6',2.5,options);
% comprobando si metodo convergio
if flag == 1
    display('fzero encontro valor de c')
    c
end