Rss & SiteMap

金字塔客服中心 - 专业程序化交易软件提供商 http://www.weistock.com/bbs/

专业程序化软件提供商
共2 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:前面的循环取最大值无法成功,而下面的的代码就可以呢?

1楼
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);

2楼
jinzhe 发表于:2013/8/15 9:08:23
金字塔的循环不是很容易处理的,你的循环思路要用VBA才能实现
共2 条记录, 每页显示 10 条, 页签: [1]


Powered By Dvbbs Version 8.3.0
Processed in 0.12500 s, 3 queries.