function diffplot(fun, jac, x)
% 
% 
%  [f, J] = diffplot(fun, jac, x) plots difference between symbolic 
%  differentiation and approximation by finite differences
%  
%  INPUT
%       fun     function handle; fun: R^n -> R^n
%       jac     function handle; jac: R^n -> R^(mxn)   
%       x       point x in R^n to evaluate f and jacobian
% 

end % function diffplot