% Additional check on the choice of tau: we usually need to consider tau<tau_opt in
% order to justify our start from the safe model
% Find tau at which bankers are indifferent in the steady state between safe and risky models
global changes_names changes_vec
algo = char('active-set', 'trust-region-reflective', 'interior-point', 'interior-point-convex', 'levenberg-marquardt', 'trust-region-dogleg', 'lm-line-search','sqp');
options = optimset('Display','Iter','Jacobian','off','MaxFunEvals',1e4,'MaxIter',1e4,'TolFun',1e-4,'TolX',1e-5,'Algorithm',algo(5,:));


tau_opt = fsolve('ss_difference',0.05,options)