find_3 ( FliA )
function optimal_parameters = find_f3_FliA(X_data, Y_data, initial_parameters)
global beta17;
function output = act_pFlhDC(parameters, X_data)
for k = 1:length(X_data)
output(k) = beta17*(1 - hill( X_data(k), parameters(2), parameters(3))) ...
+ parameters(1)*hill(X_data(k), parameters(2), parameters(3));
end
end
options=optimset('LevenbergMarquardt','on','TolX',1e-10,'MaxFunEvals',1e10,'TolFun',1e-10,'MaxIter',1e4);
optimal_parameters = lsqcurvefit( @(parameters, X_data) act_pFlhDC(parameters, X_data), ...
initial_parameters, X_data, Y_data, options );
end
find_3 ( OmpR* )
function optimal_parameters = find_f3_OmpR(X_data, Y_data, initial_parameters)
function output = act_pFlhDC(parameters, X_data)
for k = 1:length(X_data)
output(k) =(1 - hill( X_data(k), parameters(2), parameters(3) )) * parameters(1);
end
end
options=optimset('LevenbergMarquardt','on','TolX',1e-10,'MaxFunEvals',1e10,'TolFun',1e-10,'MaxIter',1e4);
optimal_parameters = lsqcurvefit( @(parameters, X_data) act_pFlhDC(parameters, X_data), ...
initial_parameters, X_data, Y_data, options );
end