24小时热门版块排行榜

返回列表

tobetheone

银虫 (小有名气)

应助: 0 (幼儿园)
金币: 345
帖子: 53
在线: 43.5小时
虫号: 2650451
注册: 2013-09-12
性别: MM
专业: 光谱分析

[求助] 怎样同时拟合三条曲线，得到一套参数已有1人参与

各位大侠，小弟由于研究需要，要进行参数估计，遇到了一个难题：怎样把涉及到2条曲线的同一组参数估计出来，请各位大侠鼎力相助。
据我所知，1stopt可以很方便实现这个功能，但是目前手上没有正版软件，实现不了计算功能，特将代码贴此如下：
Variables x,y1,y2,y3;
Parameters p1,p2,p3,p4,p5,p6;
SharedModel;
Function y1=p1*exp(-1/2.6*x)+p2*exp(-1/1000*(933*p6+957*p4+1000*1/2.6+974*p5-(870489*p6^2-994238*p4*p6-817484*p6*p5+915849*p4^2-916236*p5*p4+948676*p5^2)^(1/2))*x)+p3*exp((-933/1000*p6-957/1000*p4-1/2.6-487/500*p5-1/1000*(870489*p6^2-994238*p4*p6-817484*p6*p5+915849*p4^2-916236*p5*p4+948676*p5^2)^(1/2))*x);
y2=-1/2*(-5658500*p6*p2*exp(-1/1000*(933*p6+957*p4+1000*1/2.6+974*p5-(870489*p6^2-994238*p4*p6-817484*p6*p5+915849*p4^2-916236*p5*p4+948676*p5^2)^(1/2))*x)*p5*p4-108250*p6*p2*exp(-1/1000*(933*p6+957*p4+1000*1/2.6+974*p5-(870489*p6^2-994238*p4*p6-817484*p6*p5+915849*p4^2-916236*p5*p4+948676*p5^2)^(1/2))*x)*p4*(870489*p6^2-994238*p4*p6-817484*p6*p5+915849*p4^2-916236*p5*p4+948676*p5^2)^(1/2)-95745393*p6^2*p3*exp((-933/1000*p6-957/1000*p4-1/2.6-487/500*p5-1/1000*(870489*p6^2-994238*p4*p6-817484*p6*p5+915849*p4^2-916236*p5*p4+948676*p5^2)^(1/2))*x)*p5-95745393*p6^2*p2*exp(-1/1000*(933*p6+957*p4+1000*1/2.6+974*p5-(870489*p6^2-994238*p4*p6-817484*p6*p5+915849*p4^2-916236*p5*p4+948676*p5^2)^(1/2))*x)*p5+108250*p6*p3*exp((-933/1000*p6-957/1000*p4-1/2.6-487/500*p5-1/1000*(870489*p6^2-994238*p4*p6-817484*p6*p5+915849*p4^2-916236*p5*p4+948676*p5^2)^(1/2))*x)*p4*(870489*p6^2-994238*p4*p6-817484*p6*p5+915849*p4^2-916236*p5*p4+948676*p5^2)^(1/2)+102621*p6*p3*exp((-933/1000*p6-957/1000*p4-1/2.6-487/500*p5-1/1000*(870489*p6^2-994238*p4*p6-817484*p6*p5+915849*p4^2-916236*p5*p4+948676*p5^2)^(1/2))*x)*p5*(870489*p6^2-994238*p4*p6-817484*p6*p5+915849*p4^2-916236*p5*p4+948676*p5^2)^(1/2)-100997250*p6^2*p2*exp(-1/1000*(933*p6+957*p4+1000*1/2.6+974*p5-(870489*p6^2-994238*p4*p6-817484*p6*p5+915849*p4^2-916236*p5*p4+948676*p5^2)^(1/2))*x)*p4-102621*p6*p2*exp(-1/1000*(933*p6+957*p4+1000*1/2.6+974*p5-(870489*p6^2-994238*p4*p6-817484*p6*p5+915849*p4^2-916236*p5*p4+948676*p5^2)^(1/2))*x)*p5*(870489*p6^2-994238*p4*p6-817484*p6*p5+915849*p4^2-916236*p5*p4+948676*p5^2)^(1/2)-108309*p5*p4*p2*exp(-1/1000*(933*p6+957*p4+1000*1/2.6+974*p5-(870489*p6^2-994238*p4*p6-817484*p6*p5+915849*p4^2-916236*p5*p4+948676*p5^2)^(1/2))*x)*(870489*p6^2-994238*p4*p6-817484*p6*p5+915849*p4^2-916236*p5*p4+948676*p5^2)^(1/2)-9368500*p6*p5*p4*p1*exp(-1/2.6*x)-2668146*p5^2*p6*p3*exp((-933/1000*p6-957/1000*p4-1/2.6-487/500*p5-1/1000*(870489*p6^2-994238*p4*p6-817484*p6*p5+915849*p4^2-916236*p5*p4+948676*p5^2)^(1/2))*x)+103595250*p6*p3*exp((-933/1000*p6-957/1000*p4-1/2.6-487/500*p5-1/1000*(870489*p6^2-994238*p4*p6-817484*p6*p5+915849*p4^2-916236*p5*p4+948676*p5^2)^(1/2))*x)*p4^2+103651713*p5*p4^2*p3*exp((-933/1000*p6-957/1000*p4-1/2.6-487/500*p5-1/1000*(870489*p6^2-994238*p4*p6-817484*p6*p5+915849*p4^2-916236*p5*p4+948676*p5^2)^(1/2))*x)-102621000*p5^2*p6*p1*exp(-1/2.6*x)+103595250*p6*p2*exp(-1/1000*(933*p6+957*p4+1000*1/2.6+974*p5-(870489*p6^2-994238*p4*p6-817484*p6*p5+915849*p4^2-916236*p5*p4+948676*p5^2)^(1/2))*x)*p4^2-100997250*p6^2*p3*exp((-933/1000*p6-957/1000*p4-1/2.6-487/500*p5-1/1000*(870489*p6^2-994238*p4*p6-817484*p6*p5+915849*p4^2-916236*p5*p4+948676*p5^2)^(1/2))*x)*p4-2816034*p5^2*p4*p2*exp(-1/1000*(933*p6+957*p4+1000*1/2.6+974*p5-(870489*p6^2-994238*p4*p6-817484*p6*p5+915849*p4^2-916236*p5*p4+948676*p5^2)^(1/2))*x)-2816034*p5^2*p4*p3*exp((-933/1000*p6-957/1000*p4-1/2.6-487/500*p5-1/1000*(870489*p6^2-994238*p4*p6-817484*p6*p5+915849*p4^2-916236*p5*p4+948676*p5^2)^(1/2))*x)-2668146*p5^2*p6*p2*exp(-1/1000*(933*p6+957*p4+1000*1/2.6+974*p5-(870489*p6^2-994238*p4*p6-817484*p6*p5+915849*p4^2-916236*p5*p4+948676*p5^2)^(1/2))*x)-108309000*p5^2*p4*p1*exp(-1/2.6*x)+93744500*p5*p6^2*p1*exp(-1/2.6*x)+103651713*p5*p4^2*p2*exp(-1/1000*(933*p6+957*p4+1000*1/2.6+974*p5-(870489*p6^2-994238*p4*p6-817484*p6*p5+915849*p4^2-916236*p5*p4+948676*p5^2)^(1/2))*x)-5658500*p6*p3*exp((-933/1000*p6-957/1000*p4-1/2.6-487/500*p5-1/1000*(870489*p6^2-994238*p4*p6-817484*p6*p5+915849*p4^2-916236*p5*p4+948676*p5^2)^(1/2))*x)*p5*p4+98940500*p4*p6^2*p1*exp(-1/2.6*x)+108309*p5*p4*p3*exp((-933/1000*p6-957/1000*p4-1/2.6-487/500*p5-1/1000*(870489*p6^2-994238*p4*p6-817484*p6*p5+915849*p4^2-916236*p5*p4+948676*p5^2)^(1/2))*x)*(870489*p6^2-994238*p4*p6-817484*p6*p5+915849*p4^2-916236*p5*p4+948676*p5^2)^(1/2))/(-433*p6+474*p5)/(102621*p6*p5+108309*p5*p4+108250*p4*p6);
y3=1/2*(-14483906*p6*p2*exp(-1/1000*(933*p6+957*p4+1000*1/2.6+974*p5-(870489*p6^2-994238*p4*p6-817484*p6*p5+915849*p4^2-916236*p5*p4+948676*p5^2)^(1/2))*x)*p5*p4-108250*p6*p2*exp(-1/1000*(933*p6+957*p4+1000*1/2.6+974*p5-(870489*p6^2-994238*p4*p6-817484*p6*p5+915849*p4^2-916236*p5*p4+948676*p5^2)^(1/2))*x)*p4*(870489*p6^2-994238*p4*p6-817484*p6*p5+915849*p4^2-916236*p5*p4+948676*p5^2)^(1/2)-6875607*p6^2*p3*exp((-933/1000*p6-957/1000*p4-1/2.6-487/500*p5-1/1000*(870489*p6^2-994238*p4*p6-817484*p6*p5+915849*p4^2-916236*p5*p4+948676*p5^2)^(1/2))*x)*p5-6875607*p6^2*p2*exp(-1/1000*(933*p6+957*p4+1000*1/2.6+974*p5-(870489*p6^2-994238*p4*p6-817484*p6*p5+915849*p4^2-916236*p5*p4+948676*p5^2)^(1/2))*x)*p5+108250*p6*p3*exp((-933/1000*p6-957/1000*p4-1/2.6-487/500*p5-1/1000*(870489*p6^2-994238*p4*p6-817484*p6*p5+915849*p4^2-916236*p5*p4+948676*p5^2)^(1/2))*x)*p4*(870489*p6^2-994238*p4*p6-817484*p6*p5+915849*p4^2-916236*p5*p4+948676*p5^2)^(1/2)+102621*p6*p3*exp((-933/1000*p6-957/1000*p4-1/2.6-487/500*p5-1/1000*(870489*p6^2-994238*p4*p6-817484*p6*p5+915849*p4^2-916236*p5*p4+948676*p5^2)^(1/2))*x)*p5*(870489*p6^2-994238*p4*p6-817484*p6*p5+915849*p4^2-916236*p5*p4+948676*p5^2)^(1/2)-7252750*p6^2*p2*exp(-1/1000*(933*p6+957*p4+1000*1/2.6+974*p5-(870489*p6^2-994238*p4*p6-817484*p6*p5+915849*p4^2-916236*p5*p4+948676*p5^2)^(1/2))*x)*p4-102621*p6*p2*exp(-1/1000*(933*p6+957*p4+1000*1/2.6+974*p5-(870489*p6^2-994238*p4*p6-817484*p6*p5+915849*p4^2-916236*p5*p4+948676*p5^2)^(1/2))*x)*p5*(870489*p6^2-994238*p4*p6-817484*p6*p5+915849*p4^2-916236*p5*p4+948676*p5^2)^(1/2)-108309*p5*p4*p2*exp(-1/1000*(933*p6+957*p4+1000*1/2.6+974*p5-(870489*p6^2-994238*p4*p6-817484*p6*p5+915849*p4^2-916236*p5*p4+948676*p5^2)^(1/2))*x)*(870489*p6^2-994238*p4*p6-817484*p6*p5+915849*p4^2-916236*p5*p4+948676*p5^2)^(1/2)+10250000*p6*p5*p4*p1*exp(-1/2.6*x)-99952854*p5^2*p6*p3*exp((-933/1000*p6-957/1000*p4-1/2.6-487/500*p5-1/1000*(870489*p6^2-994238*p4*p6-817484*p6*p5+915849*p4^2-916236*p5*p4+948676*p5^2)^(1/2))*x)+103595250*p6*p3*exp((-933/1000*p6-957/1000*p4-1/2.6-487/500*p5-1/1000*(870489*p6^2-994238*p4*p6-817484*p6*p5+915849*p4^2-916236*p5*p4+948676*p5^2)^(1/2))*x)*p4^2+103651713*p5*p4^2*p3*exp((-933/1000*p6-957/1000*p4-1/2.6-487/500*p5-1/1000*(870489*p6^2-994238*p4*p6-817484*p6*p5+915849*p4^2-916236*p5*p4+948676*p5^2)^(1/2))*x)+112338000*p5^2*p6*p1*exp(-1/2.6*x)+103595250*p6*p2*exp(-1/1000*(933*p6+957*p4+1000*1/2.6+974*p5-(870489*p6^2-994238*p4*p6-817484*p6*p5+915849*p4^2-916236*p5*p4+948676*p5^2)^(1/2))*x)*p4^2-7252750*p6^2*p3*exp((-933/1000*p6-957/1000*p4-1/2.6-487/500*p5-1/1000*(870489*p6^2-994238*p4*p6-817484*p6*p5+915849*p4^2-916236*p5*p4+948676*p5^2)^(1/2))*x)*p4-105492966*p5^2*p4*p2*exp(-1/1000*(933*p6+957*p4+1000*1/2.6+974*p5-(870489*p6^2-994238*p4*p6-817484*p6*p5+915849*p4^2-916236*p5*p4+948676*p5^2)^(1/2))*x)-105492966*p5^2*p4*p3*exp((-933/1000*p6-957/1000*p4-1/2.6-487/500*p5-1/1000*(870489*p6^2-994238*p4*p6-817484*p6*p5+915849*p4^2-916236*p5*p4+948676*p5^2)^(1/2))*x)-99952854*p5^2*p6*p2*exp(-1/1000*(933*p6+957*p4+1000*1/2.6+974*p5-(870489*p6^2-994238*p4*p6-817484*p6*p5+915849*p4^2-916236*p5*p4+948676*p5^2)^(1/2))*x)+118500000*p5^2*p4*p1*exp(-1/2.6*x)-102621000*p5*p6^2*p1*exp(-1/2.6*x)+103651713*p5*p4^2*p2*exp(-1/1000*(933*p6+957*p4+1000*1/2.6+974*p5-(870489*p6^2-994238*p4*p6-817484*p6*p5+915849*p4^2-916236*p5*p4+948676*p5^2)^(1/2))*x)-14483906*p6*p3*exp((-933/1000*p6-957/1000*p4-1/2.6-487/500*p5-1/1000*(870489*p6^2-994238*p4*p6-817484*p6*p5+915849*p4^2-916236*p5*p4+948676*p5^2)^(1/2))*x)*p5*p4-108250000*p4*p6^2*p1*exp(-1/2.6*x)+108309*p5*p4*p3*exp((-933/1000*p6-957/1000*p4-1/2.6-487/500*p5-1/1000*(870489*p6^2-994238*p4*p6-817484*p6*p5+915849*p4^2-916236*p5*p4+948676*p5^2)^(1/2))*x)*(870489*p6^2-994238*p4*p6-817484*p6*p5+915849*p4^2-916236*p5*p4+948676*p5^2)^(1/2))/(-433*p6+474*p5)/(102621*p6*p5+108309*p5*p4+108250*p4*p6);
Data;
0 6.1616 10.767 3.704
0.05 5.8161 10.003 3.5127
0.1 5.5093 9.2265 3.158
0.15 5.0878 8.3416 2.8289
0.2 4.2967 7.0175 2.2858
0.25 3.7063 6.425 2.0596
0.3 3.3479 5.7608 1.7427
0.35 2.921 5.083 1.4903
0.4 2.6975 4.7799 1.5039
0.5 2.2055 4.1941 1.3195
0.6 1.916 3.6889 1.1094
0.7 1.5855 3.1527 0.96846
0.8 1.5025 3.0746 0.95926
0.9 1.3666 2.7722 0.88038
1.1 1.3352 2.5721 0.83152
1.3 1.1575 2.3093 0.66482
1.5 1.2741 2.5158 0.75388
1.7 1.2544 2.3014 0.59305
1.9 1.0744 2.0033 0.53928
2.2 0.95854 1.7051 0.4712
2.5 0.82586 1.4852 0.41313
2.8 0.7686 1.2639 0.34796
3.1 0.60757 1.1147 0.26026
3.9 0.54272 0.8547 0.21022
4.9 0.30678 0.5852 0.1671
方程比较长，我试过单独一条拟合是可以在1stopt拟合的，烦请各位大神帮我代算或者给些建议呗？
2.matlab也可以实现相关功能，但是比较复杂，能不能给些建议谢谢