通达信股灾自救之四“鹏腾2009版主图选股源码

原帖也没有文字说明，大概意思我猜想。个股参考大盘，个股比大盘迟跌破支撑但又早于大盘突破这个压力线。预示个股强势。
 根据鹏腾老师的意思，我稍微发挥一下。我不取历史数据就取大盘这波大跌来看看这个理念到底行不行。
 支撑线我取这波大跌最高价与最低价黄金分割，也就是我前面发帖的第一阻力（支撑）。大盘在7.1跌破这根线，至今都从没有上穿，那么  我个股取比大盘迟跌破这个线，而现在开始上穿这个线出信号，共出票36张，有心人一起见证这些迟于大盘跌破而又早于大盘突破的个股是不是今后的牛股？拭目以待

{主图}

M5:MA(C,5);
 M10:MA(C,10);
 M20:MA(C,20);
 HH:=IF(BETWEEN(DATE,1150601,1150630),H,-999);
 T:=HHVBARS(HH,0);
 TT:=BARSLAST(L=LLV(L,T+1));
 T1:=BARSLAST(CURRBARSCOUNT=CONST(TT)+1);
 XL:=REFX(L,BARSNEXT(T1=0));
高位价:DRAWLINE(CURRBARSCOUNT=CONST(T)+1,HH,ISLASTBAR,REF(HH,T),0),COLORYELLOW;
 NOTEXT1:DRAWLINE(CURRBARSCOUNT=CONST(T)+1,(HH-XL)*0.382+XL,ISLASTBAR,REF((HH-XL)*0.382+XL,T),0),DOTLINE,COLORGREEN;
大盘破日:BARSLAST(DATE=1150701)+1 NODRAW;
个股破日:BARSLAST(CROSS(NOTEXT1,C))+1 NODRAW;
 TJ1:=个股破日<大盘破日 AND COUNT(CROSS(C,NOTEXT1),大盘破日)=1 AND CROSS(C,NOTEXT1);
 TJ2:=COUNT(CROSS(NOTEXT1,C),个股破日)=1;
 XG:=TJ1 AND TJ2;
 DRAWICON(XG,L*0.98,1);
 STICKLINE(DATE=1150701,C,O,2,0),COLORGREEN;
 STICKLINE(DATE=1150701,H,L,0,0),COLORGREEN;
 STICKLINE(CURRBARSCOUNT=CONST(个股破日),C,O,2,0),COLORYELLOW;
 STICKLINE(CURRBARSCOUNT=CONST(个股破日),H,L,0,0),COLORYELLOW;
低位价:DRAWLINE(CURRBARSCOUNT=CONST(T)+1,XL,ISLASTBAR,REF(L,T1),0),COLORRED;
 DRAWTEXT(CURRBARSCOUNT=CONST(T)+1,NOTEXT1*1.04,VARCAT(VARCAT('第一阻力：',VAR2STR(NOTEXT1,2)),'元')),COLORGREEN;

 {选股}

HH:=IF(BETWEEN(DATE,1150601,1150630),H,-999);
 T:=HHVBARS(HH,0);
 TT:=BARSLAST(L=LLV(L,T+1));
 T1:=BARSLAST(CURRBARSCOUNT=CONST(TT)+1);
 XL:=REFX(L,BARSNEXT(T1=0));
 NOTEXT1:=DRAWLINE(CURRBARSCOUNT=CONST(T)+1,(HH-XL)*0.382+XL,ISLASTBAR,REF((HH-XL)*0.382+XL,T),0);
大盘破日:=BARSLAST(DATE=1150701)+1;
个股破日:=BARSLAST(CROSS(NOTEXT1,C))+1;
 TJ1:=个股破日<大盘破日 AND COUNT(CROSS(C,NOTEXT1),大盘破日)=1 AND CROSS(C,NOTEXT1);
 TJ2:=COUNT(CROSS(NOTEXT1,C),个股破日)=1;
 XG:TJ1 AND TJ2;