[PEL] 复制代码 input:p(26,20,100,8),s(12,5,40,4),m(9,2,60,6);
DIFF :EMA(CLOSE,S) - EMA(CLOSE,P);
DEA :EMA(DIFF,M);
MACD1 :2*(DIFF-DEA), COLORSTICK;
newDiff:ROUNDS(DIFF,0);//做个小数点的处理,这样就能比较了。
ctr:=1;//控制循环
index:=BARPOS-1;//当前K的前一个位置
WHILE ctr do
begin
if newDiff=newDiff[index] or index<0 then
begin
ctr:=0;
end
index:=index-1;
end
//showindex 返回的是满足条件的K线位置的序号。
showindex:index+1,NODRAW;//如果返回值是-1 说明前面没有找到这样的K线位置。
result:BARPOS-showindex;//最终结果
代码给你。你本地运算要是卡死了,你最好就放弃吧。然后比较的话,可以直接做个小数点处理,就行了。小数点少点或者直接去掉小数点都行。 |