[PEL] 复制代码 N:=10;
M:=1;
NN:=TODAYBAR;
DN:=HHV(NN,BARPOS);//当日的K线根数,适用于1MIN及以上周期使用
OO:=VALUEWHEN(NN=1,OPEN);//当日开盘价
HH:=HHV(HIGH,NN);//当日最高价
LL:=LLV(LOW,NN);//当日最低价
HT:=REF(HH,NN);//昨高
LT:=REF(LL,NN);//昨低
CT:=REF(C,NN);//昨收
ORB:=MIN(ABS(HT-CT),ABS(LT-CT));
DTN:=N*DN;//N日的K线根数
BAND:=VALUEWHEN(NN=1,MA(ORB*M,DTN));//N天ORB*M
SG:OO+BAND;//上轨
XG:OO-BAND;//下轨
kd:CROSS(C,SG);
kk:CROSS(XG,c);
ss:=1;//手数
if kd then
begin
sellshort(1,holding,market);
buy(1,ss,market);
end
if kk then
begin
sell(1,holding,market);
buyshort(1,ss,market);
end
|