[PEL] 复制代码 VARIABLE:index:=0,ctr:=0;
buy(holding=0 and TODAYBAR=1 and date=CURRENTDATE,1,market);
DRAWSL(ENTERBARS=0,AVGENTERPRICE*1.01,0,0,1,COLORBLUE);
if ENTERBARS=0 then //需要进行取值条件。只在必要的时候执行后面的循环的计算,避免大计算量导致的卡顿。
begin
ctr:=1;//控制循环的变量
index:=BARPOS-1;//当前K的前一个位置
end
WHILE ctr do
begin
if (c[index]-ENTERPRICE)/ENTERPRICE>=0.01 or index<0 then
begin
ctr:=0;//计算完成后,变量重置为0
end
index:=index-1;
end
//showindex 返回的是满足条件的K线位置的序号。
showindex:index+1,NODRAW;//如果返回值是-1 说明前面没有找到这样的K线位置。
LEN:if(showindex<>1,BARPOS-showindex,-1) ;//距离当前K周期跨度 返回-1表示没有找到满足条件的值
代码有些复杂,实际应用中 你未必能很好的使用。上面这个是大于开仓价1%的。
|