用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/01 13:23: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\](/uploads/image/z/8632638-54-8.jpg?t=%E7%94%A8mathematica%E6%B1%82%E5%8F%82%E6%95%B0.%E5%87%BD%E6%95%B0%EF%BC%9AC%28t%29%3Da%2A%5Be%5E%28-ct%29-e%5E%28-bt%29%5Dt%5Cx050.25%5Cx050.5%5Cx050.75%5Cx051%5Cx051.5%5Cx052%5Cx052.5%5Cx053%5Cx053.5%5Cx054%5Cx054.5%5Cx055C%28t%29%5Cx0515%5Cx0532%5Cx0538%5Cx0541%5Cx0541%5Cx0540%5Cx0535%5Cx0535%5Cx0528%5Cx0525%5Cx0524%5Cx0520t%5Cx056%5Cx057%5Cx058%5Cx059%5Cx0510%5Cx0511%5Cx0512%5C)
用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]]