用mathematica求参数.函数:C(t)=a*[e^(-ct)-e^(-bt)]t\x050.25\x050.5\x050.75\x051\x051.5\x052\x052.5\x053\x053.5\x054\x054.5\x055C(t)\x0515\x0532\x0538\x0541\x0541\x0540\x0535\x0535\x0528\x0525\x0524\x0520t\x056\x057\x058\x059\x0510\x0511\x0512\
来源:学生作业帮助网 编辑:作业帮 时间:2024/08/28 09:56:07
用mathematica求参数.函数:C(t)=a*[e^(-ct)-e^(-bt)]t\x050.25\x050.5\x050.75\x051\x051.5\x052\x052.5\x053\x053.5\x054\x054.5\x055C(t)\x0515\x0532\x0538\x0541\x0541\x0540\x0535\x0535\x0528\x0525\x0524\x0520t\x056\x057\x058\x059\x0510\x0511\x0512\
用mathematica求参数.
函数:C(t)=a*[e^(-ct)-e^(-bt)]
t\x050.25\x050.5\x050.75\x051\x051.5\x052\x052.5\x053\x053.5\x054\x054.5\x055
C(t)\x0515\x0532\x0538\x0541\x0541\x0540\x0535\x0535\x0528\x0525\x0524\x0520
t\x056\x057\x058\x059\x0510\x0511\x0512\x0513\x0514\x0515\x0516\x05
C(t)\x0520\x0518\x0517\x0514\x0511\x0510\x059\x056\x056\x054\x053\x05
a,b,c 为参数.求参数,怎么求啊.最好写下程序.
用mathematica求参数.函数:C(t)=a*[e^(-ct)-e^(-bt)]t\x050.25\x050.5\x050.75\x051\x051.5\x052\x052.5\x053\x053.5\x054\x054.5\x055C(t)\x0515\x0532\x0538\x0541\x0541\x0540\x0535\x0535\x0528\x0525\x0524\x0520t\x056\x057\x058\x059\x0510\x0511\x0512\
data = {{0.25,15.},{0.5,32.},{0.75,38.},{1.,41.},{1.5,41.} ,
{ 2.,40.} ,{ 2.5,35.} ,{ 3.,35.} ,{ 4.,25.} ,{ 5.,20.} ,
{ 6,20 } ,{ 7,18 } ,{ 8,17} ,{ 9,14 } ,{ 10,11 } ,{ 11,10 } ,
{ 12,9 } ,{13 ,6} ,{ 14,6} ,{ 15,4 } ,{ 16,3 }
};
model = a (Exp[-c t]-Exp[-b t]);
fit = FindFit[data,model,{a,b,c},t]
modelf = Function[{t},Evaluate[model /.fit]]
Plot[modelf[t],{t,0,16},Epilog -> Map[Point,data]]