cf.m

来自「Numerical Anaysis 8th Edition by Burden 」· M 代码 · 共 28 行

function [res] = CF(I,M,V,s1)
% This function is used by Steepest Descent (Algorithm 10.3)
% define the component functions.
s = s1{I};
if M == 2
   g = inline(s,'y1','y2');
   res = g(V(1),V(2));
elseif M == 3
   g = inline(s,'y1','y2','y3');
   res = g(V(1),V(2),V(3));
elseif M == 4
   g = inline(s,'y1','y2','y3','y4');
   res = g(V(1),V(2),V(3),V(4));
elseif M == 5
   g = inline(s,'y1','y2','y3','y4','y5');
   res = g(V(1),V(2),V(3),V(4),V(5));
elseif M == 6
   g = inline(s,'y1','y2','y3','y4','y5','y6');
   res = g(V(1),V(2),V(3),V(4),V(5),V(6));
else
   g = inline(s,'y1','y2','y3','y4','y5','y6','y7');
   res = g(V(1),V(2),V(3),V(4),V(5),V(6),V(7));
end;