通达信洗盘-试盘-整理-突破鹏腾版主图幅图选股源码

zjtz288

{主图}
T:=HHVBARS(H,120);
HT:=BARSLAST(T=0 AND C<O);
LT:=BARSLAST(L=LLV(L,HT+1));
ZF:=(C-REF(C,HT+1))/REF(C,HT+1)*100;
DT:=BARSLAST(ZF=LLV(ZF,HT+1));
LT1:=BARSLAST(LT=0 AND DT=0 AND ZF<-10);
ZFA:=REF(ZF,LT1);
XZF:=REFX(ZF,BARSNEXT(LT1=0));
ZF2:=(C-REF(C,LT1+1))/REF(C,LT1+1)*100;
A:=ZF2/ABS(REF(ZF,LT1));
HT1:=BARSLAST(H=HHV(H,LT1+1) AND C>O AND RANGE(A,2,2.5));
EXT2RAWLINE(HT1=0,H,REF(HT1=0,1),REF(H,HT1),1),COLORYELLOW,DOTLINE;
EXT1RAWLINE(HT=0 AND XZF<-10,H,LT1=0,REF(H,HT),1),COLORRED,DOTLINE;
ST:=BARSLAST(CROSS(EXT2!=DRAWNULL,0.5));
XT:=BARSLAST(CROSS(EXT1!=DRAWNULL,0.5));
GL:=(C/EXT2-1)*100;
BL:=(EXT2/EXT1-1)*100;
TJ:=BL>10 AND XT>ST AND C>O AND BL<22.8 AND GL>0.1;
TJ1:=EVERY(MAX(C,O)>EXT1,ST+1);
TJ2:=EVERY(C<EXT2,ST);
XG:=CROSS(C,EXT2) AND EXT1!=DRAWNULL AND TJ AND TJ1 AND REF(TJ2,1);
STICKLINE(XG,C,O,3,0),COLOR0099CC;
STICKLINE(XG,H,L,0,0),COLOR0099CC;
DRAWICON(XG,L*0.95,1);
{幅图}
T:=HHVBARS(H,120);
HT:=BARSLAST(T=0 AND C<O);
LT:=BARSLAST(L=LLV(L,HT+1));
ZF:=(C-REF(C,HT+1))/REF(C,HT+1)*100;
DT:=BARSLAST(ZF=LLV(ZF,HT+1));
LT1:=BARSLAST(LT=0 AND DT=0 AND ZF<-10);
ZFA:=REF(ZF,LT1);
XZF:=REFX(ZF,BARSNEXT(LT1=0));
ZF2:=(C-REF(C,LT1+1))/REF(C,LT1+1)*100;
A:=ZF2/ABS(REF(ZF,LT1));
HT1:=BARSLAST(H=HHV(H,LT1+1) AND C>O AND RANGE(A,2,2.5));
EXT2:=DRAWLINE(HT1=0,H,REF(HT1=0,1),REF(H,HT1),1);
EXT1:=DRAWLINE(HT=0 AND XZF<-10,H,LT1=0,REF(H,HT),1);
ST:=BARSLAST(CROSS(EXT2!=DRAWNULL,0.5));
XT:=BARSLAST(CROSS(EXT1!=DRAWNULL,0.5));
GL:=(C/EXT2-1)*100;
BL:=(EXT2/EXT1-1)*100;
TJ:=BL>10 AND XT>ST AND C>O AND BL<22.8 AND GL>0.1;
TJ1:=EVERY(MAX(C,O)>EXT1,ST+1);
TJ2:=EVERY(C<EXT2,ST);
XG:=CROSS(C,EXT2) AND EXT1!=DRAWNULL AND TJ AND TJ1 AND REF(TJ2,1);
STICKLINE(XG,0,7,1.5,0),COLOR0099CC;

{选股}

T:=HHVBARS(H,120);
HT:=BARSLAST(T=0 AND C<O);
LT:=BARSLAST(L=LLV(L,HT+1));
ZF:=(C-REF(C,HT+1))/REF(C,HT+1)*100;
DT:=BARSLAST(ZF=LLV(ZF,HT+1));
LT1:=BARSLAST(LT=0 AND DT=0 AND ZF<-10);
ZFA:=REF(ZF,LT1);
XZF:=REFX(ZF,BARSNEXT(LT1=0));
ZF2:=(C-REF(C,LT1+1))/REF(C,LT1+1)*100;
A:=ZF2/ABS(REF(ZF,LT1));
HT1:=BARSLAST(H=HHV(H,LT1+1) AND C>O AND RANGE(A,2,2.5));
EXT2:=DRAWLINE(HT1=0,H,REF(HT1=0,1),REF(H,HT1),1);
EXT1:=DRAWLINE(HT=0 AND XZF<-10,H,LT1=0,REF(H,HT),1);
ST:=BARSLAST(CROSS(EXT2!=DRAWNULL,0.5));
XT:=BARSLAST(CROSS(EXT1!=DRAWNULL,0.5));
GL:=(C/EXT2-1)*100;
BL:=(EXT2/EXT1-1)*100;
TJ:=BL>10 AND XT>ST AND C>O AND BL<22.8 AND GL>0.1;
TJ1:=EVERY(MAX(C,O)>EXT1,ST+1);
TJ2:=EVERY(C<EXT2,ST);
XG:CROSS(C,EXT2) AND EXT1!=DRAWNULL AND TJ AND TJ1 AND REF(TJ2,1);
{原文链接：http://www.guhai.com.cn/html/GS/tong-da-xin/87456.html}

lin_weihong

谢谢分享！

lin_weihong

谢谢分享！

TurnipCastro

且行且珍惜,赚钱不容易   。

podkill

且行且珍惜,赚钱不容易   。

吾道问道

谢谢分享，好好学习，天天向上。

龙出海

谢谢分享，好好学习

阿育阿育

谢谢分享，努力学习。