WOLFRAM

Wolfram 语言与系统参考资料中心

比较优化问题中的两种拟合

通常需要比较由 FindFit 生成的两种不同拟合.

    
Wolfram Language code: model = a Exp[-b (x - c) ^ 2] + d Sin[ω x + ϕ]; data = Table[{x, model /. {a -> 2, b -> 1, c -> 0, d -> 2, ω -> 0.67, ϕ -> 0.1}}, {x, -5, 5, .1}] + RandomReal[.25, 101];
从1开始搜索所有参数，获得初始解：
Wolfram Language code: f1 = FindFit[data, model, {a, b, c, d, ω, ϕ}, x]
对参数 c 用一个更好的起始值进行搜索：
Wolfram Language code: f2 = FindFit[data, model, {a, b, {c, 0}, d, ω, ϕ}, x]
比较两种拟合：
Wolfram Language code: Show[Plot[Evaluate[model /. {f1, f2}], {x, -5, 5}, PlotStyle -> {Red, Blue}], ListPlot[data, PlotRange -> All, PlotStyle -> Gray]]