通达信后漏早启(鹏腾2009版)主图 幅图选股源码

以下是通达信后漏早启(鹏腾2009版)主图 幅图选股源码

首先谢谢鹏老师无私提供思路。
 取大盘上一波低点（大概在5.7左右）对应个股的最低点画线至今。比较个股后与大盘跌破这个支撑线，较大盘早于突破这跟支撑线出信号。取名叫“后漏早启”。
 公式中“相差天”表示大盘早于个股跌破支撑的天数。绿色K线是大盘跌破支撑这一天，黄色K线是个股跌破支撑日，红箭头出信号。
 

N自己调节一下，N越大出票越少。

 因为要对照大盘所以先建一个引用
 名字 YYY
 LL:=IF(BETWEEN(DATE,1150501,1150530),L,999999);
 LT:=BARSLAST(LL=LLV(LL,0));
 T:=BARSLAST(CURRBARSCOUNT=CONST(LT)+1);
 TT:BARSLAST(CROSS(REF(L,T),C));

退出 再建下面主图   幅图   选股
{主图}
N:=3;
 LL:=IF(BETWEEN(DATE,1150501,1150530),L,999999);
 LT:=BARSLAST(LL=LLV(LL,0));
 T:=BARSLAST(CURRBARSCOUNT=CONST(LT)+1);
 DT:=CALCSTOCKINDEX(‘999999′,’YYY’,1);
 TJ:=COUNT(CROSS(REF(L,T),C),DT+1)=1 AND CROSS(REF(L,T),C) AND DT>=3;
 TT:=BARSLAST(TJ);
 TJA:=COUNT(CROSS(REF(L,T),C),T+1)=1;
 XG:=COUNT(CROSS(C,REF(L,T)),TT+1)=1 AND CROSS(C,REF(L,T)) AND DT-TT>=N AND TJA;
 STICKLINE(T>=0,REF(LL,T),REF(LL,T),6,0),COLORYELLOW;
 STICKLINE(CURRBARSCOUNT=CONST(DT)+1,L,REF(L,T)*0.9,2,0),COLORGREEN;
 STICKLINE(TJ,C,O,2,0),COLORYELLOW;
 STICKLINE(TJ,H,L,0,0),COLORYELLOW;
 DRAWICON(XG,L,1);
 DRAWTEXT(T=0,H*1.02,VARCAT(VARCAT(‘突破价：’,VAR2STR(REF(LL,T),2)),’元’))COLORYELLOW;
相差天:DT-TT NODRAW;

 {幅图}

N:=3;
 LL:=IF(BETWEEN(DATE,1150501,1150530),L,999999);
 LT:=BARSLAST(LL=LLV(LL,0));
 T:=BARSLAST(CURRBARSCOUNT=CONST(LT)+1);
 DT:=CALCSTOCKINDEX(‘999999′,’YYY’,1);
 TJ:=COUNT(CROSS(REF(L,T),C),DT+1)=1 AND CROSS(REF(L,T),C) AND DT>=3;
 TT:=BARSLAST(TJ);
 TJA:=COUNT(CROSS(REF(L,T),C),T+1)=1;
 XG:=COUNT(CROSS(C,REF(L,T)),TT+1)=1 AND CROSS(C,REF(L,T)) AND DT-TT>=N AND TJA;
 STICKLINE(XG,0,8,1.5,0),COLORRED;

 {选股}

N:=3;
 LL:=IF(BETWEEN(DATE,1150501,1150530),L,999999);
 LT:=BARSLAST(LL=LLV(LL,0));
 T:=BARSLAST(CURRBARSCOUNT=CONST(LT)+1);
 DT:=CALCSTOCKINDEX(‘999999′,’YYY’,1);
 TJ:=COUNT(CROSS(REF(L,T),C),DT+1)=1 AND CROSS(REF(L,T),C) AND DT>=3;
 TT:=BARSLAST(TJ);
 TJA:=COUNT(CROSS(REF(L,T),C),T+1)=1;
 XG:COUNT(CROSS(C,REF(L,T)),TT+1)=1 AND CROSS(C,REF(L,T)) AND DT-TT>=N AND TJA;