通达信抓板利器分时未加密选股指标公式源码

源码正文：

VAR1:=ema(Ema(CLOSE,13),13){XG51};
控盘:=(VAR1-REF(VAR1,1))/REF(VAR1,1)*1000{XG51};
stICKLINE(控盘<0,控盘,0,1,1),COLOR00FF00{XG51};
STICKLINE(控盘>REF(控盘,1) AND 控盘<0,控盘,0,1,1),COLORFF00FF{XG51};
无庄控盘:=控盘<0{XG51};
STICKLINE(控盘>REF(控盘,1) AND 控盘>0,控盘,0,1,1),COLOR0000FF{XG51};
有庄控盘:=控盘>REF(控盘,1) AND 控盘>0{XG51};
VAR2:=100*WINNER(CLOSE*0.95){XG51};
STICKLINE(控盘<REF(控盘,1) AND 控盘>0,控盘,0,1,1),COLORFFFF00{XG51};
主力出货:=控盘<REF(控盘,1) AND 控盘>0{XG51};
STICKLINE(VAR2>50 AND COST(85)<CLOSE AND 控盘>0,控盘,0,1,1),COLOR00FFFF{XG51};
高度控盘: VAR2>50 AND COST(85)<CLOSE AND 控盘>0,COLOR00FFFF,LINETHICK2{XG51};
A10:=crOSS(控盘,0){XG51};
控盘B:=FILTER(IF(A10,1,0),5){XG51};
JJ:=DYnaINFO(11){XG51};
P:=55;S:=8;M1:=3{XG51};
财:=(EMA(CLOSE,S)-EMA(CLOSE,P))*10,COLORWHITE,LINETHICK2{XG51};
神:=EMA(财,M1),COLORCYAN,LINETHICK1{XG51};
DRAWBAND(财,RGB(255,0,0),神,RGB(0,100,50)){XG51};
BTJ1:=(C-JJ)/JJ<-0.03{XG51};
BTJ11:=(C-JJ)/JJ<-0.03{XG51};
BTJ12:=LAST(JJ>=REF(JJ,1),5,1) AND (C-JJ)/JJ<0.005{XG51};
STJ1:=(C-JJ)/JJ>0.005{XG51};
STJ01:=控盘<REF(控盘,1) AND 控盘>0.5{XG51};
STJ02:=控盘>0{XG51};
BTJ2:=控盘>REF(控盘,1) AND 控盘<-0.2{XG51};
BTJ22:=控盘>REF(控盘,1) AND 控盘<0 {XG51};
BTJ3:=CROSS(财,神) AND 财<-0.3{XG51};
BTJ32:=CROSS(财,神) AND 财<-0.1{XG51};
STJ31:=CROSS(神,财){XG51};
STJ32:=CROSS(神,财) AND 财>1.618{XG51};
{XG51};
BTJ81:=FILTER(BTJ1 AND BTJ2 AND BTJ3,13){XG51};
BTJ811:=FILTER(BTJ11 AND BTJ2 AND BTJ3,13){XG51};
BTJ82:=FILTER(BTJ12 AND BTJ22 AND BTJ32,13){XG51};
DRAWTEXT(BTJ81,神,'↑买底'),COLORWHITE{XG51};
DRAWTEXT(BTJ811,神*1.2,'↑有庄'),COLORRED{XG51};
STJ81:=FILTER(STJ1 AND STJ01 AND STJ31,13){XG51};
STJ82:=FILTER(STJ02 AND STJ32 ,13){XG51};
STJ83:=STJ81 AND STJ82{XG51};
DRAWTEXT(STJ83,神,'↓卖'),COLOR00FF00{XG51};
difF: (EMA(CLOSE,8) - EMA(CLOSE,55))*10,COLORWHITE{XG51};
DEA: EMA(DIFF,3),COLORCYAN{XG51};
庄:= BTJ11 AND BTJ2 AND BTJ3{XG51};
有庄:FILTER(庄,55),COLORRED{XG51};
DRAWTEXT(BTJ811,有庄,'有庄'),COLORRED{X.G^5=1.C.N.{};

源码正文：

HIGHN:=10{XG51};
LOWN:=10{XG51};
LOWDISPLAY:=10{XG51};
ZGDISPLAY:=10{XG51};
maDISPLAY:=10{XG51};
ZB1:=ema(C,65){XG51};
ZB2:EMA(ZB1,45),COLORBLUE{XG51};
AA:=REF(H,HIGHN)=HHV(H,2*HIGHN+1){XG51};
QY:=BacKSET(AA,HIGHN+1){XG51};
CC:=FILTER(QY,HIGHN) AND H=HHV(H,HIGHN+1){XG51};
DRAWICON(CC,H*1.02,2){XG51};
DDD:=BArslAst(CC){XG51};
GDTS:=IF(CC,CURRBARSCOUNT,0){XG51};
DINGBU:=IF(DDD,REF(H,DDD),H){XG51};
DINGBUTS:=IF(DDD,REF(GDTS,DDD),GDTS){XG51};
DINGBU1:=REF(DINGBU,DDD+1){XG51};
GDCS1:=CONST(DINGBUTS){XG51};
DINGBUTS1:=REF(DINGBUTS,DDD+1){XG51};
GDCS2:=CONST(DINGBUTS1){XG51};
DINGBU2:=REF(DINGBU1,DDD+1){XG51};
MM:=IF(CURRBARSCOUNT>GDCS2,0,1){XG51};
高点压力:DRAWLINE(CURRBARSCOUNT=GDCS2,H,CURRBARSCOUNT=GDCS1,H,1) COLORCYAN,LINETHICK2{XG51};
DRAWLINE(CURRBARSCOUNT=GDCS2,H,ISLASTBAR,REF(H,GDCS2-1),1),COLOR0055FF,POINTDOT{XG51};
DRAWLINE(CURRBARSCOUNT=GDCS1,H,ISLASTBAR,REF(H,GDCS1-1),1),COLORBLUE,POINTDOT{XG51};
AA1:=REF(L,LOWN)=LLV(L,2*LOWN+1){XG51};
QY1:=BACKSET(AA1,LOWN+1){XG51};
CC1:=FILTER(QY1,LOWN) AND L=LLV(L,LOWN+1){XG51};
DRAWICON(CC1,L*0.98,1){XG51};
DD1:=BARSLAST(CC1){XG51};
DDTS:=IF(CC1,CURRBARSCOUNT,0){XG51};
YDB:=IF(DD1,REF(L,DD1),L){XG51};
DDTS1:=IF(DD1,REF(DDTS,DD1),DDTS){XG51};
DDCS1:=CONST(DDTS1){XG51};
ZDB:=REF(YDB,DD1+1){XG51};
DDTS2:=REF(DDTS1,DD1+1){XG51};
DDCS2:=CONST(DDTS2){XG51};
低点支撑:DRAWLINE(CURRBARSCOUNT=DDCS2,L,CURRBARSCOUNT=DDCS1,L,1) COLORWHITE,LINETHICK2{XG51};
ZGSTAR:=(高点压力+低点支撑)/2{XG51};
ZGEND:=CONST((高点压力+低点支撑)/2){XG51};
STARDAY:=IF(DDCS2<GDCS2,DDCS2,GDCS2){XG51};
中轨:DRAWLINE(CURRBARSCOUNT=STARDAY,ZGSTAR,ISLASTBAR,ZGEND,1),COLORFF55BB,LINETHICK2{XG51};
DRAWLINE(CURRBARSCOUNT=DDCS1,L,ISLASTBAR,REF(L,DDCS1-1),1),COLORLIMAGENTA,POINTDOT,{XG51};
DRAWLINE(CURRBARSCOUNT=DDCS2,L,ISLASTBAR,REF(L,DDCS2-1),1),COLORGREEN,POINTDOT{XG51};
EMA13:=EMA(C,13),COLORRED;
EMA21:=EMA(C,21),COLORBLUE;
EMA34:=EMA(C,34),COLORFF00FF;
EMA60:=MA(C,60),COLORFFCC66;
VAR2:=(2*CLOSE+HIGH+LOW)/4;
VAR3:=IF(YEAR>=2099 AND MONTH>2,0,1);
VAR4:=LLV(LOW,5); VAR5:=HHV(HIGH,4);
散户:=EMA((VAR2-VAR4)/(VAR5-VAR4)*100,4)*VAR3;
庄家:=EMA(0.667*REF(散户,1)+0.333*散户,2)*VAR3;
DRAWTEXT(crOSS(散户,庄家) AND 散户<30,L-0.05,'←低吸'),COLORLICYAN;
DRAWTEXT(CROSS(庄家,散户) AND 散户>70,H+0.05,'←高抛'),COLORCYAN;
DRAWICON(CROSS(散户,庄家) AND 散户<30,L-0.05,1);
DRAWICON(CROSS(庄家,散户) AND 散户>70,H+0.05,2);
VAR9:=CLOSE-REF(CLOSE,5);
VARA:=EMA(EMA(VAR9,5),5)/EMA(EMA(Abs(VAR9),5),5);
VARC:=EMA(EMA(VAR9,20),20)/EMA(EMA(ABS(VAR9),20),20);
卖出:=IF(VARA>0 AND CROSS(VARC,VARA),90,100);
DRAWICON(卖出<0,H+0.05,2); 买线:=EMA(CLOSE,2);
卖线:=EMA(SLOPE(CLOSE,21)*20+CLOSE,42);
B1:IF(CROSS(买线,卖线),L-0.02,DRAWNULL),CROSSDOT,LINETHICK3,COLORLIMAGENTA;
S1:IF(CROSS(80,rsi)*30,H+0.02,DRAWNULL),CROSSDOT,LINETHICK3,COLORBLUE;
VC:=((CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100+(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100+(CLOSE-MA (CLOSE,32))/MA(CLOSE,32)*100)/3{XG51};
S2:=IF(VC>20 AND FILTER(VC< REF(VC,1),5),H+0.02,DRAWNULL),CIRCLEDOT,LINETHICK3,COLORCYAN;
A0:=(L+H+C*2)/4{XG51};
A1:EMA(A0,14)COLORYELLOW,LINETHICK2{XG51};
A2:=EMA(A0,25)COLORLIGREEN,LINETHICK2{XG51};
A1X:=(A1-REF(A1,1))/REF(A1,1)*100,NODRAW{XG51};
A2X:=(A2-REF(A2,1))/REF(A2,1)*100,NODRAW{XG51};
看多:IF(A1X>=0 AND BARSLAST(CROSS(A1X,0))>0,REF((C+O)/2,BARSLAST(CROSS(A1X,0))),DRAWNULL),COLORLIMAGENTA{XG51};
逃顶:IF(A1X<0 AND BARSLAST(CROSS(0,A1X))>0,REF((C+O)/2,BARSLAST(CROSS(0,A1X))),DRAWNULL),COLORGREEN,{XG51};
买入持股:IF(A1X>=0,A1,DRAWNULL)COLORWHITE,LINETHICK3{XG51};
卖出空仓:IF(A1X<0 AND A2X<0,A1,DRAWNULL)COLORCYAN,LINETHICK3{XG51};
STICKLINE(CROSS(A1X,0),H,L,0,0 ),COLOR9933FF{XG51};
STICKLINE(CROSS(A1X,0),C,O,3,0 ),COLOR0000CC;
STICKLINE(CROSS(A1X,0),C,O,1,0 ),COLOR0033FF;
STICKLINE(CROSS(0,A1X),L,H,0,0 ),COLOR66CC33{X-G-5~1-C-N-{};