24小时热门版块排行榜    

CyRhmU.jpeg
查看: 3169  |  回复: 32
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

meina861010

银虫 (小有名气)

[求助] 用Mathematica软件进行最小二乘法曲线拟合遇到问题,哪位大神帮忙看看?已有2人参与

最近想用Mathematica软件对一组数据最小二乘法曲线拟合问题,以下是数据及代码,错误提示“不完全的表达”,修改了多次,还是一直提示这种错误,没辙了。
哪位大神帮忙看看到底哪里出错了?
万分感谢!!!

用Mathematica软件进行最小二乘法曲线拟合遇到问题,哪位大神帮忙看看?
mathematica数据拟合代码.jpg
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

meina861010

银虫 (小有名气)

引用回帖:
17楼: Originally posted by xzczd at 2015-09-18 10:41:35
http://tieba.baidu.com/p/3204451382...

不好意思啊,下面是代码,能帮忙看看是哪运行出错了吗?
data = {{1, 18.3}, {2, 28.6}, {3, 25}, {4, 15}, {5, 7}, {6, 3.3}, {7, 1.5}, {8, 0.7}, {9, 0.4}, {10, 0.2}, {11, 0.1}, {12, 0.001}, {13, 0.002}, {14, 0.001}, {15, 0.001}, {16, 0.001}};
nlm = NonlinearModelFit[data, (1/Sqrt[x! Cosh[r]] (1/2*Exp[I*\[Theta]]*Tanh[r])^(x/2)* Exp[-(1/2)*((Abs[\[Alpha]])^2 + (Conjugate[\[Alpha]])^2*Exp[I*\[Theta]]*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)*((\[Alpha] + Conjugate[\[Alpha]]*Exp[I*\[Theta]]*Tanh[r])/(2 Exp[I*\[Theta]]*Tanh[r])^(1/2))), {\[Alpha],  r, \[Theta]}, x];
Normal[nlm]
Show[ListPlot[data], Plot [nlm[x], {x, 0, 20}], Frame -> True]
18楼2015-09-18 13:57:01
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 33 个回答

xzczd

木虫 (小有名气)

【答案】应助回帖

感谢参与,应助指数 +1
……来楼主你先把这个看了:http://tieba.baidu.com/p/2964416898
小木虫Mathematica版块已毁(当然原本也不咋的),建议大家前往百度贴吧或Stackexchange。
2楼2015-09-11 10:45:56
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

cooooldog

铁杆木虫 (著名写手)

ส็็็

【答案】应助回帖

感谢参与,应助指数 +1


Show[] 对大小写敏感
ส็็็็็็็็็็็็็็็็็็็็
3楼2015-09-11 17:40:25
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

meina861010

银虫 (小有名气)

引用回帖:
3楼: Originally posted by cooooldog at 2015-09-11 17:40:25


Show[] 对大小写敏感

感谢回答,show改成首字母大写也出现是同样的问题
4楼2015-09-14 10:00:26
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
信息提示
请填处理意见