作业帮 > 综合 > 作业

mathematica非线性拟合问题,

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/03/29 04:06:04
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]),肿么办啊,明天就交了,急死我了.
你这是需要确定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]