通达信阴阳互换（鹏腾2009版本）源码主图选股贴图

以下是通达信阴阳互换（鹏腾2009版本）源码主图选股贴图

思路分享：取两根涨跌幅大于4%的Ｋ线，两根Ｋ线区间小于15天，区间振幅小于10%，两根Ｋ线可根据需要任意更换，基本有四种：阴阳组合、双阳组合、双阴组合、阳阴组合。大于最后一根4%Ｋ线的收盘价为买入信号。当收盘价大于该线为红色，当收盘价小于该线为绿色。参数设置见第5与第6两幅图，主图与选股公式设置同理

{主图}
T1:=IF(1*大阳1,C>REF(C,1)*1.04,IF(1*大阴1,REF(C,1)/C>1.04,0));
 T2:=IF(1*大阳2,C>REF(C,1)*1.04,IF(1*大阴2,REF(C,1)/C>1.04,0));
 TT:=BARSLAST(T1);
 ZF:=HHV(H,TT+1)/LLV(L,TT+1);
 A1:=REF(ZF,1)<1.10;
 A2:=BETWEEN(REF(TT,1),1,15);
 A3:=T2 AND H>REF(REF(L,TT),1);
 XG:=CURRBARSCOUNT=CONST(BARSLAST(A1 AND A2 AND A3))+2;
 A:=DRAWLINE(REF(XG,1),C,REF(REF(XG,1),1),REF(C,1),1);
 A4:=BARSLAST(XG);
 B:=IF(A4<15,A,DRAWNULL);
红进:IF(C>A,B,DRAWNULL),COLORRED,LINETHICK2;
绿出:IF(C<A,B,DRAWNULL),COLORGREEN,LINETHICK2;
 A5:=BACKSET(XG=1,TT+1);
 A6:=BARSLAST(CROSS(A5=1,0.5));
 STICKLINE(A6=0,H*1.01,L*0.99,4,-1),COLORWHITE;
 STICKLINE(REF(XG,1),H*1.01,L*0.99,4,-1),COLORWHITE;
 DRAWTEXT(A6=0,H*1.02,'阴阳互换'),COLORYELLOW;
 DRAWKLINE(H,O,L,C);
 STICKLINE(A6=0 AND 大阳1,C,O,2.5,0),COLORRED;
 STICKLINE(A6=0 AND 大阴1,C,O,2.5,0),COLORGREEN;
 STICKLINE(REF(XG,1) AND 大阳2,C,O,2.5,0),COLORRED;
 STICKLINE(REF(XG,1) AND 大阴2,C,O,2.5,0),COLORGREEN;
 DRAWICON((COUNT(C>A,A4-1)=1 AND C>A OR CROSS(C,A)) AND A4-1<15,L,1);
 DRAWTEXT_FIX(ISLASTBAR,0,10,0,'鹏腾2009版本'),COLORWHITE;
 {选股}
T1:=IF(1*大阳1,C>REF(C,1)*1.04,IF(1*大阴1,REF(C,1)/C>1.04,0));
 T2:=IF(1*大阳2,C>REF(C,1)*1.04,IF(1*大阴2,REF(C,1)/C>1.04,0));
 TT:=BARSLAST(T1);
 ZF:=HHV(H,TT+1)/LLV(L,TT+1);
 A1:=REF(ZF,1)<1.10;
 A2:=BETWEEN(REF(TT,1),5,15);
 A3:=T2 AND H>REF(REF(L,TT),1);
 XG:=CURRBARSCOUNT=CONST(BARSLAST(A1 AND A2 AND A3))+2;
 A:=DRAWLINE(REF(XG,1),C,REF(REF(XG,1),1),REF(C,1),1);
 A4:=BARSLAST(XG);
 XG1:=(COUNT(C>A,A4)=1 AND C>A OR CROSS(C,A)) AND A4<15;
 COUNT(XG1,5);