Michael-ac 发表于 2010-8-16 16:52

请dingda来帮个忙

dingda，您好！
      我在网上下载1stOpt1.5专业版（已注册），运行以下代码，结果一直运行但没结果。网上有看到1.5版的不具备运算编程功能，3.0版的可以实现，不知是代码有误，还是软件不行，请您帮我看一下，如能给出运行结果，甚是感谢！以下是代码：
Title "数学模型方程";
Parameters p1,p2,p3,p4,p5 ;
Variables x1,x2,x3,x4,y;
startprogram;
var i:integer
begin
for i:=0 to DataLength-1 do begin
      y:= p1*((-230.80937+266.0032*x1-89.37356*x1^2+13.76754*x1^3-0.99050*x1^4+0.02687*x1^5)^p2)
      *((30.1884+45.64587*x2-12.81167*x2^2)^p3)*((-16.73083/(1+exp(x3-36.27867)/5.7588)+67.7171)^p4)*
      ((-42.45285/(1+exp(x4-27.21343)/4.49926)+94.95219)^p5);
end;
end;
EndProgram;
         data;
          //x1,x2,    x3,   x4,      y
         2.5      2      30      0      61.44
         2.5      1      60      30      85.36
         2.5      0.5      90      60      95.41
         3.5      2      60      60      91.28
         3.5      1      90      0      66.87
         3.5      0.5      30      30      94.55
         4.5      2      90      30      80.11
         4.5      1      30      60      90.82
         4.5      0.5      60      0      51.70

dingd 发表于 2010-8-19 09:45

参数                  最佳估算
--------------------        -------------
p1        0.68720188318915
p2        0.642210578860828
p3        -0.119954089596009
p4        -0.126732588682989
p5        0.73061608341953

====== 输出结果 =====

文件：数据文件 - 1
No        目标y        计算y
1        61.44        59.146881250427
2        85.36        82.7159527714089
3        95.41        91.6738665720536
4        91.28        94.5245536012477
5        66.87        62.1102562842712
6        94.55        94.7681269174789
7        80.11        81.368642326848
8        90.82        92.0686268474798
9        51.7        59.2559586371255

Michael-ac 发表于 2010-8-20 10:39

回复 dingd 的帖子
真是太谢谢您了！真是大好人啊，我在小木虫上也求助过，有虫友介绍您，抱着试试看的态度，没想到真的有用，再次感谢！

   

Michael-ac 发表于 2010-9-3 07:44

回复 dingd 的帖子

主任，还要麻烦您，能给出相关系数和决定系数吗？O(∩_∩)O谢谢！
   

dingd 发表于 2010-9-4 10:01

均方差(RMSE): 3.64651584755354
残差平方和(RSS): 119.673700438132
相关系数(R): 0.970222238521788
相关系数之平方(R^2): 0.941331192122229
决定系数(DC): 0.941316607078835
F统计(F-Statistic): 17.0405961588383

Michael-ac 发表于 2010-9-4 13:08

回复 dingd 的帖子

主任太效率了，狂谢！感动的泪奔啊！{:{19}:}
   
页: [1]
查看完整版本: 请dingda来帮个忙