| 查看: 347 | 回复: 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"] |
回复此楼» 猜你喜欢
拟解决的关键科学问题还要不要写
已经有4人回复
-
基金申报
已经有5人回复
-
基金委咋了？2026年的指南还没有出来？
已经有7人回复
-
国自然申请面上模板最新2026版出了吗？
已经有17人回复
-
纳米粒子粒径的测量
已经有8人回复
-
疑惑？
已经有5人回复
-
计算机、0854电子信息（085401-058412）调剂
已经有5人回复
-
Materials Today Chemistry审稿周期
已经有5人回复
-
溴的反应液脱色
已经有7人回复
-
推荐一本书
已经有12人回复
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