function?[xminf]?=?minGN（fx0vareps）
format?long;
if?nargin?==?3
????eps?=?1.0e-6;
end
S?=?transpose（f）*f;
k?=?length（f）;
n?=?length（x0）;
x0?=?transpose（x0）;
tol?=?1;
A?=?jacobian（fvar）;

while?tol>eps
????Fx?=?zeros（k1）;
????for?i=1:k
????????Fx（i1）?=?Funval（f（i）varx0）;
????end
????Sx?=?Funval（Svarx0）;
????Ax?=?Funval（Avarx0）;
????gSx?=?transpose（Ax）*Fx;

????dx?=?-transpose（Ax）*Ax\gSx;
????x0?=?x0?+?dx;
????tol?=?norm（dx）;
end
x?=?x0;
minf?=?Funval（Svarx）;
format?short;

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

?????文件????????523??2007-10-12?20:09??第9章?非線性最小二乘優化問題\minGN.m

?????文件????????940??2007-10-12?20:09??第9章?非線性最小二乘優化問題\minLM.m

?????文件????????780??2007-10-12?20:09??第9章?非線性最小二乘優化問題\minMGN.m

?????目錄??????????0??2009-08-31?08:58??第9章?非線性最小二乘優化問題

-----------?---------??----------?-----??----

?????????????????2243????????????????????4