神马作文网mathematica非线性拟合问题,
来源：学生作业帮 编辑：神马作文网作业帮 分类：综合作业 时间：2024/11/10 20:12:30
mathematica非线性拟合问题,
d={{0,500},{3,470},{6,425},{9,372},{12,317},{15,264},{18,215},{21,160},{24,108},{27,55},{30,1}}
拟合成500-980*t/(3*k)+98000/(9*k^2)*(1-Exp[-3*k*t/100]),肿么办啊,明天就交了,急死我了.
d={{0,500},{3,470},{6,425},{9,372},{12,317},{15,264},{18,215},{21,160},{24,108},{27,55},{30,1}}
拟合成500-980*t/(3*k)+98000/(9*k^2)*(1-Exp[-3*k*t/100]),肿么办啊,明天就交了,急死我了.
你这是需要确定t,k么?能不能给出y=f(x)的形式?
再问： 我一着急没写清楚，t是自变量，k是参数，求解答！！！万分感谢啊！！！
再答： 18.4583 k值 Mathematica程序： d = {{0, 500}, {3, 470}, {6, 425}, {9, 372}, {12, 317}, {15, 264}, {18, 215}, {21, 160}, {24, 108}, {27, 55}, {30, 1}}; p = 500 - 980*t/(3*k) + 98000/(9*k^2)*(1 - Exp[-3*k*t/100]); FindFit[d, p, k, t] Plot[p /. %, {t, Min[d[[All, 1]]], Max[d[[All, 1]]]}, Epilog -> Point /@ d]
再问： 我一着急没写清楚，t是自变量，k是参数，求解答！！！万分感谢啊！！！
再答： 18.4583 k值 Mathematica程序： d = {{0, 500}, {3, 470}, {6, 425}, {9, 372}, {12, 317}, {15, 264}, {18, 215}, {21, 160}, {24, 108}, {27, 55}, {30, 1}}; p = 500 - 980*t/(3*k) + 98000/(9*k^2)*(1 - Exp[-3*k*t/100]); FindFit[d, p, k, t] Plot[p /. %, {t, Min[d[[All, 1]]], Max[d[[All, 1]]]}, Epilog -> Point /@ d]