以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  公式模型编写问题提交  (http://weistock.com/bbs/list.asp?boardid=4)
----  前面的循环取最大值无法成功，而下面的的代码就可以呢？  (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=55169)
--  作者：qq代人发帖
--  发布时间：2013/8/15 8:50:51
--  前面的循环取最大值无法成功，而下面的的代码就可以呢？

variable:X[6]:=0;
X[1]:=OPI01;
X[2]:=OPI03;
X[3]:=OPI05;
X[4]:=OPI07;
X[5]:=OPI09;
X[6]:=OPI11;
for i=1 to 5 do
begin
for j=i+1 to 6 do
begin
 if(X[i]<X[j])do
 begin
 k:=X[i];
 X[i]:=X[j];
 X[j]:=k;
 end;
end;
end;
oh:=X[1];

 为何前面的循环取最大值无法成功，而下面的的代码就可以呢？

oh1:=max(OPI01,OPI03);
oh2:=max(OPI05,OPI07);
oh3:=max(oh1,oh2);
oh4:=max(OPI09,OPI11);
oh:=max(oh3,oh4);

OPI01：=STKINDI(\'C01\',\'基本元素.opi1\',0,6,0);
OPI03：=STKINDI(\'C03\',\'基本元素.opi1\',0,6,0);
OPI05：=STKINDI(\'C05\',\'基本元素.opi1\',0,6,0);
OPI07：=STKINDI(\'C07\',\'基本元素.opi1\',0,6,0);
OPI09：=STKINDI(\'C09\',\'基本元素.opi1\',0,6,0);
OPI11：=STKINDI(\'C11\',\'基本元素.opi1\',0,6,0);
--  作者：jinzhe
--  发布时间：2013/8/15 9:08:23
--  
金字塔的循环不是很容易处理的，你的循环思路要用VBA才能实现