通达信支撑压力一目了然主图选股指标公式源码

通达信支撑压力一目了然主图选股指标公式源码

源码正文：

A1:=(vol/CLOSE)/3{XG51};
A2:=SUM((IF(((A1>40) AND (CLOSE>(REF(CLOSE,1)))),A1,0)),0){XG51};
A3:=SUM((IF(((A1>40) AND (CLOSE<(REF(CLOSE,1)))),A1,0)),0){XG51};
A4:=SUM((IF(((A1<40) AND (CLOSE>(REF(CLOSE,1)))),A1,0)),0){XG51};
A5:=SUM((IF(((A1<40) AND (CLOSE<(REF(CLOSE,1)))),A1,0)),0){XG51};
A6:=((A2+A3)+A4)+A5{XG51};
A7:=IF((BARstATUS=2),((100*A2)/A6),0){XG51};
A8:=((IF((BARSTATUS=2),((100*A3)/A6),0))){XG51};
A9:=((IF((BARSTATUS=2),((100*A4)/A6),0))){XG51};
A10:=((IF((BARSTATUS=2),((100*A5)/A6),0))){XG51};
机构买盘:=(A2),LINETHICK2{XG51};
机构卖盘:=(A3),LINETHICK2{XG51};
散户买盘:=(A4){XG51};
散户卖盘:=(A5){XG51};
DRAWTEXT_FIX(1,0.000,1-0.05,0,STRCAT(STRCAT('【机构买盘】',CON2STR(机构买盘,2)),'万')),COLORWHITE{XG51};
DRAWTEXT_FIX(1,0.250,1-0.05,0,STRCAT(STRCAT('【机构卖盘】',CON2STR(机构卖盘,2)),'万')),COLOR00FF00{XG51};
DRAWTEXT_FIX(1,0.500,1-0.05,0,STRCAT(STRCAT('【散户买盘】',CON2STR(散户买盘,2)),'万')),COLORWHITE{XG51};
DRAWTEXT_FIX(1,0.745,1-0.05,0,STRCAT(STRCAT('【散户卖盘】',CON2STR(散户卖盘,2)),'万')),COLOR00FF00{XG51};
突破:=REF(ema(C,14),1){XG51};
A1X:=(Ema(C,10)-突破)/突破*100{XG51};
多方:=IF(A1X>=0,REF(EMA(C,10),BArslAST(crOSS(A1X,0))+1),DRAWNULL){XG51};
空方:=IF(A1X<0,REF(EMA(C,10),BARSLAST(CROSS(0,A1X))+1),DRAWNULL){XG51};
STICKLINE(A1X>=0,多方,突破,0,0),COLORYELLOW{XG51};
STICKLINE(A1X<0,空方,突破,0,0),COLOR00CC66{XG51};
DRAWTEXT_FIX(1,0.880,1-0.97,0,DYBLOCK),COLORRED{XG51};
DRAWTEXT_FIX(1,0.940,1-0.97,0,HYBLOCK),COLORBLUE{XG51};
均价:SUM(C*V,240)/SUM(V,240),COLORBLUE,LINETHICK1{XG51};
DXJP:=(CLOSE-LLV(LOW,34))/(HHV(HIGH,21)-LLV(LOW,34))*100{XG51};
FSZX:=(EMA(DXJP,3)-50)*2,COLORBROWN{XG51};
BGTYU:=IF(DATE<=1150530,1,0){XG51};
GHYJKU:=BETWEEN((DCLOSE*BGTYU)/(SUM(AMOUNT,BARSCOUNT((DCLOSE*BGTYU)))/SUM(VOL*100,BARSCOUNT((DCLOSE*BGTYU)))),1.05,0.95){XG51};
VBNH:=IF(GHYJKU=0,MA((DCLOSE*BGTYU),BARSCOUNT((DCLOSE*BGTYU))),(SUM(AMOUNT,BARSCOUNT((DCLOSE*BGTYU)))/SUM(VOL*100,BARSCOUNT((DCLOSE*BGTYU))))){XG51};
DRAWICON(FSZX<=-95,C,38){XG51};
DRAWTEXT(CROSS(expma((DCLOSE/VBNH),20),1.04),C,'板'),COLORGREEN{XG51};
DRAWTEXT(CROSS(EXPMA((DCLOSE/VBNH),20),1.02),C,'追'),COLORBLUE{XG51};
DRAWICON(CROSS(EXPMA((DCLOSE/VBNH),120),1.004),C,17){XG51};
H1:=MAX(DYNAINFO(3),DYNAINFO(5)){XG51};
L1:=MIN(DYNAINFO(3),DYNAINFO(6)){XG51};
P1:=H1-L1{XG51};
阻力:=L1+P1*7/8,COLORCYAN{XG51};
支撑:=L1+P1*0.5/8,COLORLIMAGENTA{XG51};
DRAWICON(LONGCROSS(支撑,C,2),C,5){XG51};
DRAWICON(LONGCROSS(C,阻力,2),C,6){XG51};
VARJ1:=EMA(EMA(CLOSE,13),13){XG51};
控盘2:=(VARJ1-REF(VARJ1,1))/REF(VARJ1,1)*1000{XG51};
STJ01:=控盘2<REF(控盘2,1) AND 控盘2>0.5{XG51};
STJ02:=控盘2>0{XG51};
BTJ2:=控盘2>REF(控盘2,1) AND 控盘2<-0.2{XG51};
BTJ22:=控盘2>REF(控盘2,1) AND 控盘2<0 {XG51};
JJ:=DYNAINFO(11){XG51};
P:=55;S:=8;M1:=3{XG51};
能量:=(EMA(CLOSE,S)-EMA(C,P))*10{XG51};
空头:=EMA(能量,M1),COLOR00FF00{XG51};
BTJ1:=(CLOSE-JJ)/JJ<-0.005{XG51};
BTJ11:=(CLOSE-JJ)/JJ<-0.03{XG51};
BTJ12:=COUNT(JJ>=REF(JJ,1),5)>=4 AND (CLOSE-JJ)/JJ<0.005{XG51};
STJ1:=(C-JJ)/JJ>0.005{XG51};
BTJ3:=CROSS(能量,空头) AND 能量<-0.3{XG51};
BTJ32:=CROSS(能量,空头) AND 能量<-0.1{XG51};
STJ31:=CROSS(空头,能量){XG51};
STJ32:=CROSS(空头,能量) AND 能量>1.618{XG51};
A:=8{XG51};
BTJ81:=FILTER(BTJ1 AND BTJ2 AND BTJ3,A){XG51};
BTJ811:=FILTER(BTJ11 AND BTJ2 AND BTJ3,A){XG51};
BTJ82:=FILTER(BTJ12 AND BTJ22 AND BTJ32,A){XG51};
时长:=IF(HOUR>=9 AND HOUR<14 ,1,0){XG51};
捡钱:=BTJ811 AND TIME>15 AND 时长{XG51};
DRAWICON(捡钱,C,27){XG51};
AYGB1:=(DVOL/C)/2,NODRAW{XG51};
AYGB2:=SUM(IF(AYGB1>100 AND CLOSE>REF(CLOSE,1),AYGB1,0),0){XG51};
AYGB3:=SUM(IF(AYGB1>100 AND CLOSE<REF(CLOSE,1),AYGB1,0),0){XG51};
AYGB4:=SUM(IF(AYGB1<100 AND CLOSE>REF(CLOSE,1),AYGB1,0),0){XG51};
AYGB5:=SUM(IF(AYGB1<100 AND CLOSE<REF(CLOSE,1),AYGB1,0),0){XG51};
AYGB6:=AYGB2+AYGB3+AYGB4+AYGB5{XG51};
机买:=(AYGB2/AYGB6)*100-100,LINETHICK1,COLORWHITE{XG51};
机卖:=(AYGB3/AYGB6)*100-100,LINETHICK1,COLORCYAN{XG51};
主力差:=机买-机卖{XG51};
LQH:=主力差>0 AND REF(主力差,1)<=0{XG51};
DRAWICON(LQH,C,25){XG51};
JJXX:=IF(BETWEEN(C/(SUM(AMOUNT,0)/SUM(VOL*100,0)),1.05,0.95)=0,MA(C,0),(SUM(AMOUNT,0)/SUM(VOL*100,0))),COLORBLUE{XG51};
JJXXH:=(JJXX*1.007 ),COLORFF6600{XG51};
FFLL:=SUM(VOL,6)>REF(MA(VOL,30),1)*10{XG51};
HHPP:=((HHV(CLOSE,BARSCOUNT(CLOSE))-LLV(CLOSE,BARSCOUNT(CLOSE)))/CLOSE)<1{XG51};
HHZZ:=HHPP AND FFLL AND (C>JJXXH){XG51};
TTPP2:=FILTER(HHZZ,100){XG51};
DRAWICON(TTPP2,C,26){XG51};
重心:(2*C+H+L)/4,COLOR00FFFF,LINETHICK0{XG51};
SJ:=WMA((重心-LLV(L,5))/(HHV(H,5)-LLV(L,5))*100,2);
ZJ:=WMA(0.618*REF(SJ,1)+0.382*SJ,2);
AB1:=EMA(C,14)COLORRED,LINETHICK1{XG51};
AB1X:=(AB1-REF(AB1,1))/REF(AB1,1)*100,NODRAW{XG51};
出击:IF(AB1X>=0,REF(EMA(C,14),BARSLAST(CROSS(AB1X,0))+1),DRAWNULL),COLORLIMAGENTA,LINETHICK3{XG51};
休假:IF(AB1X<0,REF(EMA(C,14),BARSLAST(CROSS(0,AB1X))+1),DRAWNULL)COLORCYAN,LINETHICK3{XG51};
CC:=(H*3+C*2+O)/6{XG51};
C0:=(L*3+C*2+O)/6{XG51};
VAR1J:=REF(MA(C,20),10){XG51};
开:=O-VAR1J{XG51};
高:=H-VAR1J{XG51};
低:=L-VAR1J{XG51};
收:=C-VAR1J{XG51};
NX:=13{XG51};
BCJ:=(高*0.382+低*0.618+开*0.382+收*0.618)/2{XG51};
LJJ:=(BCJ+AMOUNT/(V*100)-VAR1J)/2{XG51};
HTJ:=REF((HHV(LJJ,NX*0.691)+HHV(LJJ,NX)+HHV(LJJ,NX*1.309))/3,1){XG51};
LTJ:=REF((LLV(LJJ,NX*0.691)+LLV(LJJ,NX)+LLV(LJJ,NX*1.309))/3,1){XG51};
ZTJ:=(HTJ+LTJ)/2{XG51};
STICKLINE(LJJ<ZTJ,REF(C0,BARSLAST(CROSS(ZTJ,LJJ))),REF(CC,BARSLAST(CROSS(ZTJ,LJJ))),4,0),COLORBROWN{XG51};
DRAWKLINE(H,O,L,C){XG51};
强弱:EMA(SLOPE(C,21)*20+C,42),COLORRED,LINETHICK2{X_G*5~1_C_N_{};