24小时热门版块排行榜    

查看: 1374  |  回复: 9
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

danfreda

铜虫 (小有名气)

[求助] 1stopt非线性拟合求助 已有2人参与

需拟合的方程如下(亦附件图片所示):
y = A*2669/1.5043^i * [1 + B*(A/1.5043^i) + C*(A/1.5043^i)^2 + D*(A/1.5043^i)^3 + E*(A/1.5043^i)^4]
需拟合的变量:A,B,C,D,E
i 为控制变量
i 从1到5变化,对应 5个y 值(拟合五个参数用5个yi值可以求解吧?如果不行可舍弃参数E及式子中含E的部分),y值如data部分所示。

编写1stopt程序如下,问题是无法运行出结果,求大神指导纠错:
Title "test";
Parameters a,b,c,d,e;
Variable y[Output];
StartProgram;
var i:interger;
begin
     for i:= 0 to DataLength -1 do begin
     y:=a*2669/(1.5043^i)*[1+b*(a/(1.5043)^i)+c*(a/(1.5043)^i)^2+d*(a/(1.5043)^i)^3+e*(a/(1.5043)^i)^4]
     end;
end;
EndProgram;
Data;
1 4837.42
2 3236.92
3 2162.17
4 1442.24
5 960.533

十分感谢!

1stopt非线性拟合求助
1.jpg
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

lipenggg

专家顾问 (正式写手)

【答案】应助回帖

引用回帖:
3楼: Originally posted by lipenggg at 2016-04-15 09:09:46
Title "test";
Parameters a,b,c,d,e;
Variable x,y;
StartProgram;
var i:integer;
begin
     for i:= 0 to DataLength -1 do begin
     y:=a*2669/(1.5043^x)*(1+b*(a/(1.5043)^x)+c*(a/(1.50 ...

公式见图片
1stopt非线性拟合求助-1
1111111111111111111111111.png

» 本帖已获得的红花(最新10朵)

一团和气
4楼2016-04-15 09:18:08
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 10 个回答

dingd

铁杆木虫 (职业作家)

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与,应助指数 +1
danfreda: 金币+10, 非常谢谢,可以运行! 2016-04-15 10:21:41
改成如下试试:

Title "test";
Parameters a,b,c,d,e;
Variable i,y;
Function
     y=a*2669/(1.5043^i)*(1+b*(a/(1.5043)^i)+c*(a/(1.5043)^i)^2+d*(a/(1.5043)^i)^3+e*(a/(1.5043)^i)^4);
Data;
1 4837.42
2 3236.92
3 2162.17
4 1442.24
5 960.533

[ 发自手机版 http://muchong.com/3g ]
2楼2016-04-14 23:30:03
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

lipenggg

专家顾问 (正式写手)

【答案】应助回帖

感谢参与,应助指数 +1
Title "test";
Parameters a,b,c,d,e;
Variable x,y[Output];
StartProgram;
var i:integer;
begin
     for i:= 0 to DataLength -1 do begin
     y:=a*2669/(1.5043^x)*(1+b*(a/(1.5043)^x)+c*(a/(1.5043)^x)^2+d*(a/(1.5043)^x)^3+e*(a/(1.5043)^x)^4)
     end;
end;
EndProgram;
Data;
1 4837.42
2 3236.92
3 2162.17
4 1442.24
5 960.533
一团和气
3楼2016-04-15 09:09:46
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

danfreda

铜虫 (小有名气)

送红花一朵
引用回帖:
4楼: Originally posted by lipenggg at 2016-04-15 09:18:08
公式见图片

1111111111111111111111111.png
...

非常感谢,不知道是不是我的版本太低(1.5)程序没能运行,但是这个套路我是模仿说明书里写的啊,刚开始用好多还不懂,谢谢谢谢!
5楼2016-04-15 10:24:53
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 化学调剂 +5 yzysaa 2026-03-21 5/250 2026-03-21 22:12 by peike
[考研] 22 350 本科985求调剂,求老登收留 +3 李轶男003 2026-03-20 3/150 2026-03-21 13:28 by 搏击518
[考研] 0856材料专硕353求调剂 +3 NIFFFfff 2026-03-20 3/150 2026-03-21 10:23 by luoyongfeng
[考研] 316求调剂 +6 梁茜雯 2026-03-19 6/300 2026-03-21 06:32 by Ecowxq666!
[考研] 材料工程(专)一志愿985 初试335求调剂 +3 hiloiy 2026-03-17 4/200 2026-03-21 03:04 by JourneyLucky
[考研] 085700资源与环境308求调剂 +12 墨墨漠 2026-03-18 13/650 2026-03-21 01:42 by JourneyLucky
[考研] 材料专硕英一数二306 +7 z1z2z3879 2026-03-18 7/350 2026-03-20 23:48 by JourneyLucky
[考研] 一志愿南昌大学,327分,材料与化工085600 +9 Ncdx123456 2026-03-19 9/450 2026-03-20 23:41 by lovewei0727
[考研] 304求调剂 +7 司空. 2026-03-18 7/350 2026-03-20 23:08 by JourneyLucky
[考研] 324求调剂 +5 lucky呀呀呀鸭 2026-03-20 5/250 2026-03-20 22:30 by 促天成
[考研] 材料与化工专硕调剂 +7 heming3743 2026-03-16 7/350 2026-03-20 19:31 by zhukairuo
[考研] 求调剂 +3 暗涌afhb 2026-03-16 3/150 2026-03-20 00:28 by 河南大学校友
[考研] 一志愿985,本科211,0817化学工程与技术319求调剂 +10 Liwangman 2026-03-15 10/500 2026-03-19 10:25 by 无际的草原
[考研] 085601专硕,总分342求调剂,地区不限 +5 share_joy 2026-03-16 5/250 2026-03-18 14:48 by haxia
[考研] 收复试调剂生 +4 雨后秋荷 2026-03-18 4/200 2026-03-18 14:16 by elevennnne
[考研] 312求调剂 +8 陌宸希 2026-03-16 9/450 2026-03-18 12:39 by Linda Hu
[考研] 290求调剂 +3 p asserby. 2026-03-15 4/200 2026-03-17 16:35 by wangkm
[考研] 11408 一志愿西电,277分求调剂 +3 zhouzhen654 2026-03-16 3/150 2026-03-17 07:03 by laoshidan
[考研] 070300化学学硕求调剂 +6 太想进步了0608 2026-03-16 6/300 2026-03-16 16:13 by kykm678
[考研] 0856专硕279求调剂 +5 加油加油!? 2026-03-15 5/250 2026-03-15 11:58 by 2020015
信息提示
请填处理意见