21楼: Originally posted by meina861010 at 2015-09-18 15:32:17
你好，请问能不能把你试的拟合效果不好的代码发我一份（我写的根本就不显示拟合曲线）。我赋一下可能的初始值，刚学这个软件，写进去一堆错误，麻烦了！...

model = ((1/2 Exp[I θ] Tanh[r])^(x/2) Exp[-(1/2) (Abs[α]^2 + Conjugate[α]^2 Exp[I θ] Tanh[r])] (1 +
       x + x^2 + x^3 + x^4 + x^5 + x^6 + x^7 + x^8 + x^9 + x^10 + x^11 + x^12 + x^13 +
       x^14 + x^15 + x^16) (α + Conjugate[α] Exp[I θ] Tanh[r]))/(Sqrt[x! Cosh[r]] Sqrt[2 Exp[I θ] Tanh[r]]);

nlm = ComplexFit[data, model, {α, r, θ}, x(*,Method -> NMinimize*)]

Show[ListPlot[data, PlotRange -> All],
Plot[{Re@#, Im@#} &@model /. nlm // Evaluate, {x, 0, 20}, PlotRange -> All],
Frame -> True]

3楼: Originally posted by cooooldog at 2015-09-11 17:40:25


Show[] 对大小写敏感