biSect.m

% Second stab at matlab
function out = biSect(funct,hi,lo,x)
    if hi < lo,
        err = MException('MATLAB:ambiguousSyntax','Usage biSect(funct,hi,lo,x). hi cannot be lower rhar low.');
        throw(err);
    end
    
    new = lo + (hi - lo)/2;
    apprx = funct(new);
    
    disp(abs((new - x)/2));
    disp(apprx);
    
    % Let's check to see if it hit the needed level
    if abs((new - x)/2) < 0.01 || apprx == 0,
        out = new;
        return;
    end
    
    if apprx >= 0,
        hi = new;
    elseif apprx < 0,
        lo = new;
    end
    
    out = biSect(funct,hi,lo,new);