function [f, J] = numdiff(fun,x,delta)
% 
% 
%  [f, J] = numdiff(fun,x,delta) computes jacobian with difference quotient
%  
%  INPUT
%       fun     function handle
%       x       point x to evaluate f and approximate jacobian
%       delta   stepsize for difference approximation
%  OUTPUT
%       f       value f(x) 
%       J       jacobian at x
% 


end % function numdiff