大家好 我写了一个判断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;
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;