| 查看: 3224 | 回复: 32 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
meina861010银虫 (小有名气)
|
[求助]
用Mathematica软件进行最小二乘法曲线拟合遇到问题，哪位大神帮忙看看？ 已有2人参与
|
||
|
最近想用Mathematica软件对一组数据最小二乘法曲线拟合问题,以下是数据及代码，错误提示“不完全的表达”，修改了多次，还是一直提示这种错误，没辙了。 哪位大神帮忙看看到底哪里出错了？ 万分感谢！！！  mathematica数据拟合代码.jpg |
回复此楼» 猜你喜欢
招博士
已经有4人回复
-
救命帖
已经有7人回复
-
限项规定
已经有6人回复
-
西南交通大学国家级人才团队2026年博士研究生招生（考核制）—机械、材料、力学方向
已经有3人回复
-
英文综述是否需要润色及查重
已经有5人回复
-
为什么nbs上溴 没有产物点出现呢
已经有9人回复
-
最失望的一年
已经有18人回复
meina861010
银虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 257
- 红花: 5
- 帖子: 138
- 在线: 45.1小时
- 虫号: 1075736
- 注册: 2010-08-16
- 性别: MM
- 专业: 生物化学
|
不好意思啊，下面是代码，能帮忙看看是哪运行出错了吗？ 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
2楼2015-09-11 10:45:56
cooooldog
铁杆木虫 (著名写手)
ส็็็
- 数学EPI: 2
- 应助: 237 (大学生)
- 金币: 6101.9
- 散金: 1114
- 红花: 39
- 帖子: 1380
- 在线: 553.8小时
- 虫号: 506699
- 注册: 2008-02-18
- 专业: 模式识别
3楼2015-09-11 17:40:25
meina861010
银虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 257
- 红花: 5
- 帖子: 138
- 在线: 45.1小时
- 虫号: 1075736
- 注册: 2010-08-16
- 性别: MM
- 专业: 生物化学
4楼2015-09-14 10:00:26