| 查看: 361 | 回复: 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"] |
回复此楼» 猜你喜欢
情人节自我反思：在爱情中有过遗憾吗？
已经有8人回复
-
基金正文30页指的是报告正文还是整个申请书
已经有5人回复
-
今年春晚有几个节目很不错，点赞！
已经有6人回复
-
过年走亲戚时感受到了所开私家车的鄙视链
已经有5人回复
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