夜雨聆风
通达信〖换手抓板〗主图/选股指标源码
提醒：文中分享的指标都是经过电脑或手机的测试，有的指标不支持手机使用,看标题提示。对于指标不会安装可以查看公众号菜单栏安装教程。
此文含“tn6安装包”点击左下角“阅读原文”下载。
本文只作为知识分享，仅供学习交流，不构成任何投资建议，请勿用于股票交易。
目录：
第一部分：主图指标源码，安装在主图指标处
第二部分：公式使用方法和编译逻辑解析
第三部分：选股公式源码，多个选股公式，分开安装
第四部分：图片示例
{换手抓板主图}
DRAWTEXT_FIX(1,0.005,0,0,’所属风格:’),COLORYELLOW;
DRAWTEXT_FIX(1,0.06,0,0,FGBLOCK),COLORYELLOW;
DRAWTEXT_FIX(1,0.005,0.05,0,’所属概念:’),COLORMAGENTA;
DRAWTEXT_FIX(1,0.06,0.05,0,GNBLOCK),COLORYELLOW;
GSZJ0:=CLOSE;
GSZJ1:=VOL/((H-L)*2-ABS(GSZJ0-O));
GSZJ2:=IF(GSZJ0>OPEN,GSZJ1*(HIGH-LOW),IF(GSZJ0< OPEN,GSZJ1*((HIGH-OPEN)+(GSZJ0-LOW)),VOL/2));
GSZJ3:=IF(GSZJ0>OPEN,0-GSZJ1*((HIGH-GSZJ0)+(OPEN-LOW)),IF(GSZJ0< OPEN,0-GSZJ1*(HIGH-LOW),0-VOL/2));
净流入:=(GSZJ2+GSZJ3)/99;
GSZJ4:=(GSZJ0/REF(GSZJ0,1)-1)*100;
DRAWTEXT(净流入>=300 AND GSZJ4>=4,L*0.995,VARCAT(VARCAT(‘净买:’,VAR2STR(净流入,0)),’万’)),COLORCYAN;
DRAWICON(净流入>=300 AND GSZJ4>=4,L,1);
DRAWICON(净流入< -300 AND GSZJ4<=-3,H,2);
DRAWTEXT(净流入< -300 AND GSZJ4<=-3,H*1.01,VARCAT(VARCAT(‘流出:’,VAR2STR(净流入,0)),’万’)),COLOR00FF00;
GSZJ5:=AMOUNT/10000;
占比:=净流入/GSZJ5*100;
DRAWTEXT(净流入>=200 AND GSZJ4>=3 AND 占比>=15 ,L*0.965,VARCAT(VARCAT(‘占比:’,VAR2STR(占比,0)),’%’)),COLORFF00FF;
MA5:MA(GSZJ0,5),COLOR00FFFF,DOTLINE;
GSZJ6:=ABS(((3.48*GSZJ0+HIGH+LOW)/4-EMA(GSZJ0,20))/EMA(GSZJ0,20));
GSZJ7:=DMA(((2.15*GSZJ0+LOW+HIGH)/4),GSZJ6);
换手抓板线:EMA(GSZJ7,200)*1.118,LINETHICK2,COLORFF00FF;
GSZJ8:=(GSZJ0/REF(GSZJ0,1)-1)*100>9;
GSZJ9:=CROSS(GSZJ0,换手抓板线) AND GSZJ8;
DRAWICON(GSZJ9,L*1.002,9);
DRAWTEXT(GSZJ9,L*0.98,’ ★换手抓板’),COLOR00FFFF;
STICKLINE(GSZJ9,GSZJ0,OPEN,3.2,0),COLOR0077FF;
STICKLINE(GSZJ9,GSZJ0,OPEN,2.5,0),COLOR0099FF;
STICKLINE(GSZJ9,GSZJ0,OPEN,1.9,0),COLOR00BBFF;
STICKLINE(GSZJ9,GSZJ0,OPEN,1.2,0),COLOR00DDFF;
STICKLINE(GSZJ9,GSZJ0,OPEN,0.3,0),COLOR00FFFF;
{换手抓板选股}
XG0:=CLOSE;
XG1:=VOL/((H-L)*2-ABS(XG0-O));
XG2:=IF(XG0>OPEN,XG1*(H-L),IF(XG0< O,XG1*((H-O)+(XG0-LOW)),VOL/2));
XG3:=IF(XG0>OPEN,0-XG1*((H-XG0)+(OPEN-L)),IF(XG0< O,0-XG1*(HIGH-LOW),0-VOL/2));
XG4:=(XG2+XG3)/99;
XG5:=(XG0/REF(XG0,1)-1)*100;
XG6:=AMOUNT/10000;
XG7:=XG4/XG6*100;
XG8:=MA(XG0,5);
XG9:=ABS(((3.48*XG0+HIGH+LOW)/4-EMA(XG0,20))/EMA(XG0,20));
XG10:=DMA(((2.15*XG0+LOW+HIGH)/4),XG9);
XG11:=EMA(XG10,200)*1.118;
XG12:=(XG0/REF(XG0,1)-1)*100>9;
换手抓板X:CROSS(XG0,XG11) AND XG12;
