19楼: Originally posted by xzczd at 2015-09-18 14:25:37
阿尔法和西塔的取值可能是复数？但是你用于拟合的原始数据又全是实的？这个模型真的没有问题吗？

如果真的没有问题，那么：
1. 这大概又是模型本身的强非线性导致的拟合失败，可能需要精心寻找合适的初值，关于 ...

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]

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

23楼: Originally posted by xzczd at 2015-09-18 15:56:52
还有，用这个方法拟合出来的曲线其实又是在复数域上的，但是虚部非常小（注意观察上面那段代码执行出来的图象上的红线），可以认为只是误差。...

23楼: Originally posted by xzczd at 2015-09-18 15:56:52
还有，用这个方法拟合出来的曲线其实又是在复数域上的，但是虚部非常小（注意观察上面那段代码执行出来的图象上的红线），可以认为只是误差。...

25楼: Originally posted by meina861010 at 2015-09-18 16:47:13
没有显示你运行出的红线，...

26楼: Originally posted by xzczd at 2015-09-18 19:28:54
……你就不能认真点读我链的那个帖子吗？在Stackexchange的代码已经不是最新的了，最新的程序包在github上面（链接也在那帖里），语法和这边的已经有所不同了。还有，你不觉得你nlm那行的输出有点奇怪吗？如果不知 ...

27楼: Originally posted by meina861010 at 2015-09-18 22:42:58
请息怒，弱弱的问一句最新版本的程序包是TransformedFit.nb这个吧。所有代码都是copy的你的，除了程序包。请理解一个还没入门新手的蠢笨吧
如果可以的话，能不能把你编好的能拟合出曲线的nb文件给俺，省 ...

26楼: Originally posted by xzczd at 2015-09-18 19:28:54
……你就不能认真点读我链的那个帖子吗？在Stackexchange的代码已经不是最新的了，最新的程序包在github上面（链接也在那帖里），语法和这边的已经有所不同了。还有，你不觉得你nlm那行的输出有点奇怪吗？如果不知 ...

26楼: Originally posted by xzczd at 2015-09-18 19:28:54
……你就不能认真点读我链的那个帖子吗？在Stackexchange的代码已经不是最新的了，最新的程序包在github上面（链接也在那帖里），语法和这边的已经有所不同了。还有，你不觉得你nlm那行的输出有点奇怪吗？如果不知 ...