以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://www.weistock.com/bbs/index.asp)
--  金字塔软件问题提交  (http://www.weistock.com/bbs/list.asp?boardid=2)
----  ref函数不能包含在for循环里面  (http://www.weistock.com/bbs/dispbbs.asp?boardid=2&id=100712)
--  作者：hwoarang
--  发布时间：2016/7/11 14:24:26
--  ref函数不能包含在for循环里面
大家好 我写了一个判断macd红绿柱的警报程序 但是因为ref函数不能包含在for循环里面 就算数组赋值也要用到for语句 到底应该怎么办
DF := EMA(CLOSE,S) - EMA(CLOSE,P);
DA  := EMA(DF,M);
MACD1 := 2*(DF-DA);
KAId:=0;
KAIk:=0;
idxd:=20;
idxk:=20;
judged:=0;
judgek:=0;


if MACD1>0 then begin

for idxd=20 to 80 do begin
{idxd:=idxd+1;}
comp:=REF(idxd,MACD1);
if judged<comp then begin
judged:=comp;
end;
end;


KAId:= judged*2.5 < MACD1;

IF KAId=1 THEN begin
PLAYSOUND(1,\'D:\\book\\bull2.MP3\');
KAId:=0;
END;
end;

if MACD1<0 then  begin
for idxk=20 to 80 do begin
{idxk:=idxk+1;}
comp:=REF(idxk,MACD1);
if judgek>comp then begin
judgek:=comp;
end;
end;

KAIk:= judgek*2.5 > MACD1;
IF KAIk=1 THEN begin
PLAYSOUND(1,\'D:\\book\\bull2.MP3\');
KAIk:=0;
END;
end;
--  作者：yukizzc
--  发布时间：2016/7/11 14:45:35
--  

te1:=REF(idxk,MACD1);         //ref语句放在for外面，在循环体内部时候去使用这个班里就行了

 

if MACD1<0 then  begin
for idxk=20 to 80 do begin
{idxk:=idxk+1;}
comp:=te1;
if judgek>comp then begin
judgek:=comp;
end;
end;