[PEL] 复制代码
LB:VOL/(REF(MA(VOL,80),1));
ZDF:100*(C/REF(C,1)-1);
CD1:RANGE(REF(LB,1),1.5,4) AND RANGE(LB,2.5,6) AND REF(ZDF>=8,1) AND ZDF>=6;//这个是判断是否存在一个符合条件的T+1日
DRAWTEXT(CD1,H,'T+1',COLORYELLOW,0);
P1:=VALUEWHEN(CD1,C);
LEN:=BARSLAST(CD1);
KD:LEN>=1 AND LEN<=5 AND C<=P1;
DRAWICON(KD,H,1);
[PEL] 复制代码
INPUT:SS(1000,100,100000,1);
LB:VOL/(REF(MA(VOL,80),1));
ZDF:100*(C/REF(C,1)-1);
CD1:RANGE(REF(LB,1),1.5,4) AND RANGE(LB,2.5,6) AND REF(ZDF>=8,1) AND ZDF>=6;//这个是判断是否存在一个符合条件的T+1日
DRAWTEXT(CD1,H,'T+1',COLORYELLOW,0);
P1:=VALUEWHEN(CD1,C);
LEN:=BARSLAST(CD1);
KD:LEN>=1 AND LEN<=5 AND C<=P1;
DRAWICON(KD,H,1);
TBUY(KD AND TBUYHOLDINGEX('','',1)=0,SS,MKT);
//固定止损止盈模块部分*******************************
//固定止损条件判断
ZSCOND:TAVGENTERPRICEEX2('' ,'' ,0)/DYNAINFO( 7)>1.05;
TSELL(ZSCOND,TBUYHOLDINGEX( '','' ,0 ),MKT,0);
//移动止损模块部分*******************************
strH:=STRCAT(STRCAT(STKLABEL,'_'),'H');
IF TBUYHOLDINGEX('','',2)=0 THEN BEGIN //没有持仓的时候，最高价的记录自动重置为0
EXTGBDATASET(strH,0);
END
if TBUYHOLDINGEX('','',1)<>0 and c>EXTGBDATA(strH) then
begin
EXTGBDATASET(strH,c); //重新记录最高价
end
//最新价已经从最高价回撤3% 则平仓
IF EXTGBDATA(strH)>TAVGENTERPRICEEX2('' ,'' ,0) AND (EXTGBDATA(strH)-c)/EXTGBDATA(strH)>=3/100 and TBUYHOLDINGEX('','',1)>0 THEN BEGIN
tsell(1,0,mkt);
END