量学论坛 › 股票公式 › 通达信洗盘-试盘-整理-突破鹏腾版主图幅图选股源码

zjtz288 发表于 2016-4-26 20:53

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

{主图}
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),COLORYELLOW,DOTLINE;
EXT1:DRAWLINE(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 发表于 2016-4-26 21:05

谢谢分享！

lin_weihong 发表于 2016-4-26 22:17

谢谢分享！

TurnipCastro 发表于 2016-4-27 09:54

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

podkill 发表于 2016-4-27 12:31

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

吾道问道 发表于 2016-4-29 22:21

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

龙出海 发表于 2016-4-29 22:25

谢谢分享，好好学习

lh5664852 发表于 2016-5-16 18:15

阿育阿育 发表于 2016-7-17 16:41

谢谢分享，努力学习。

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