% Henry Garcia
% EGMN 321
% Prob 5.28

% Limits and Interval
c = 12:0.1:16;
u = 12;
l = 16;

% Number of Iterations
n = log(((16-12)/.0001)/log(2))

% Nearest Iteration
I = nearest(n);

% Equation
f = ((668.06./c)./(1-exp(-0.146843*c))-40);

%forif else
for i = 0:1:I
    p = ((l+u)/2);
    if (f(p)*f(l) < 0)
        u = p;
    else
        l = p;
    end
    c = p
end