Removed unused routine.
parent
dea05fcadf
commit
9c06a79bb6
|
@ -1,28 +0,0 @@
|
|||
|
||||
function fmax=Q3_SteadyState_util(x, pname, eq_ind, exs_)
|
||||
global M_
|
||||
|
||||
if nargin==0,
|
||||
x=[];
|
||||
end
|
||||
for j=1:length(x),
|
||||
set_param_value(pname{j},x(j));
|
||||
end
|
||||
|
||||
ys = quest1_steadystate;
|
||||
|
||||
exs = M_.exo_nbr;
|
||||
ex_ = zeros(1,exs);
|
||||
|
||||
yc = quest1_static(ys, ex_, M_.params);
|
||||
% fmax = yc(10);
|
||||
if nargin<3,
|
||||
[fmax, iff] = max(abs(yc));
|
||||
if length(x)>1,
|
||||
fmax=log10(fmax);
|
||||
else
|
||||
fmax=yc(iff);
|
||||
end
|
||||
else
|
||||
fmax=yc(eq_ind);
|
||||
end
|
Loading…
Reference in New Issue