| 查看: 368 | 回复: 2 | ||
[求助]
求助Mathematic拟合曲线过某一点问题 已有1人参与
|
|
本人在使用Mathematica作非线性拟合，使得该拟合曲线必过{0,0}点，请问应该在何处做修改或添加？ data = {{0, 0}, {0.3, 0.029}, {1.375, 0.037}, {1.6, 0.04}, {2,0.044}, {4, 0.06031133}, {5, 0.06}, {8, 0.07}, {10, 0.08}, {16,0.09}, {25, 0.16}, {37, 0.19}, {47, 0.21}, {58, 0.29}, {70, 0.30}, {80, 0.298}}; model = 0.308*(1 - Exp[-b x]); fit = FindFit[data, model, {a, b}, x] modelf = Function[{x}, Evaluate[model /. fit]] Plot[modelf[x], {x, -5, 100}, Epilog -> Map[Point, data]] nlm = NonlinearModelFit[data, 0.308*(1 - Exp[-b x]), {a, b}, x]; nlm["RSquared"] |
回复此楼» 猜你喜欢
297求调剂
已经有12人回复
-
26调剂 086003
已经有3人回复
-
265求调剂
已经有20人回复
-
271分求调剂学校
已经有11人回复
-
320分人工智能调剂
已经有6人回复
-
求调剂，一志愿南京航空航天大学 ，080500材料科学与工程学硕
已经有8人回复
-
280求调剂
已经有19人回复
-
求材料调剂，一志愿郑州大学289分
已经有15人回复
-
26考研调剂0710 0860
已经有6人回复
-
282求调剂
已经有22人回复
dingd
铁杆木虫 (职业作家)
- 应助: 1641 (讲师)
- 金币: 15037.3
- 散金: 101
- 红花: 234
- 帖子: 3410
- 在线: 1223.7小时
- 虫号: 291104
- 注册: 2006-10-28
2楼2015-11-13 13:51:21
3楼2015-11-13 15:34:30
