%%?函數功能:利用Levenberg_Marquardt算法求解無約束的非線性最小二乘問題??
function?[x_curr?iter]?=?Levenberg_Marquardt（Difff?var?x0?lamda?beita?eps）??%eps為精度，
????%?相關參數??
????max_iter????=?100;??
????flag????????=?1;??
????x_curr??????=?x0;?????????????????????????????????????????????????
??
????for?iter?=?1?:?max_iter??
????????if?flag??
????????????J???=?double（subs（jacobian（Diff?var）?var?x_curr））;??????%?雅可比矩陣??
????????????H???=?transpose（J）?*?J;????????????????????????????????????%?赫森矩陣??????
??????????????
????????????if?iter?==?1??
????????????????f_curr?=?double（subs（f?var?x_curr））;??
????????????end??
????????end??
??
????????%?計算新Hessen矩陣??
????????H_new?=?H?+?（lamda?*?eye（8?8））;??
??
????????%?計算步長d??
????????diff?=?double（subs（Diff?var?x_curr））;??