通达信筹码分布控盘未加密选股指标公式源码

源码正文：

A:=ma(CLOSE,17)+Abs(MA(CLOSE,17)-REF(MA(CLOSE,17),1)){XG51};
B:=MA(CLOSE,17)+MA(CLOSE,17)-REF(MA(CLOSE,17),1){XG51};
分水岭:IF(MA(CLOSE,17)<B,B,MA(CLOSE,17)),COLORFF00FF,LINETHICK2{XG51};
操作线:分水岭-(ema(C,3)-分水岭),COLOR00FFFF,LINETHICK2{XG51};
PM:MA(C,5),COLORRED,LINETHICK2{XG51};
IF(PM>REF(PM,1),PM,DRAWNULL),COLORWHITE,LINETHICK2{XG51};
IF(PM=REF(PM,1),PM,DRAWNULL),COLORWHITE{XG51};
IF(PM<REF(PM,1),PM,DRAWNULL),COLORFF9900,LINETHICK2{XG51};
S:=(PM>操作线){XG51};
DD:=分水岭<REF(分水岭,1){XG51};
IF(DD,分水岭,DRAWNULL),COLOR00FF00,LINETHICK2{XG51};
IF(S,分水岭,DRAWNULL),COLOR00FF00,POINTDOT,LINETHICK4{XG51};
DRAWICON(crOSS(分水岭,操作线),分水岭-0.1,1){XG51};
A1:=BArslAst(REF(CROSS("macd.dif","MacD.DEA"),1)){XG51};
B1:=REF(C,A1+1)>C AND REF("MACD.DIF",A1+1)<"MACD.DIF" AND
CROSS("MACD.DIF","MACD.DEA"){XG51};
DRAWTEXT(B1>0,L-0.02,'★M'),COLOR00FFFF{XG51};
A2:=BARSLAST(REF(CROSS("kdj.K","kdj.D"),1)){XG51};
B2:=REF(C,A2+1)>C AND REF("KDJ.K",A2+1)<"KDJ.K" AND
CROSS("KDJ.K","KDJ.D"){XG51};
DRAWTEXT(B2,L-0.10,'◎K'),COLORFF00FF{XG51};
A3:=BARSLAST(REF(CROSS("rsi.RSI1","RSI.RSI2"),1)){XG51};
B3:=REF(C,A3+1)>C AND REF("RSI.RSI1",A3+1)<"RSI.RSI1" AND
CROSS("RSI.RSI1","RSI.RSI2"){XG51};
DRAWTEXT(B3>0,L-0.18,'◆R'),COLOR0000FF{XG51};
C1:=BARSLAST(REF(CROSS("MACD.DEA","MACD.DIF"),1)){XG51};
D1:=REF(C,C1+1)<C AND REF("MACD.DIF",C1+1)>"MACD.DIF" AND
CROSS("MACD.DEA","MACD.DIF"){XG51};
DRAWTEXT(D1>0,H+0.16,'★M'),COLOR00FF00{XG51};
C2:=BARSLAST(REF(CROSS("KDJ.D","KDJ.K"),1)){XG51};
D2:=REF(C,C2+1)<C AND REF("KDJ.K",C2+1)>"KDJ.K" AND
CROSS("KDJ.D","KDJ.K"){XG51};
DRAWTEXT(D2>0,H+0.08,'◎K'),COLORFFFFCC{XG51};
C3:=BARSLAST(REF(CROSS("RSI.RSI2","RSI.RSI1"),1)){XG51};
D3:=REF(C,C3+1)<C AND REF("RSI.RSI1",C3+1)>"RSI.RSI1" AND
CROSS("RSI.RSI2","RSI.RSI1"){XG51};
DRAWTEXT(D3>0,H+0.04,'◆R'),COLORFF9900;HH:90{XG51};
KKK:=60{XG51};
DRAWTEXT(ISLASTBAR,65,' ■高度控盘'),COLORLIMAGENTA{XG51};
DRAWTEXT(ISLASTBAR,55,' ■主力控盘'),COLOR0000FF{XG51};
DRAWTEXT(ISLASTBAR,45,' ■无庄控盘'),COLORFFFFFF{XG51};
DRAWTEXT(ISLASTBAR,32,' ■主力出货'),COLOR00FF00{XG51};
DRAWTEXT(ISLASTBAR,20,' ■开始控盘'),COLOR00FFFF{XG51};
DRAWTEXT(ISLASTBAR,8,' ■渐强走势'),COLOR4B50F8{XG51};
DRAWTEXT(ISLASTBAR,-5,' ■超强走势'),COLOR4F06C8{XG51};
DRAWTEXT(ISLASTBAR,-16,' ■开始变盘'),COLORFFFF00{XG51};
VAR1:=EMA(EMA(CLOSE,9),9){XG51};
控盘:=(VAR1-REF(VAR1,1))/REF(VAR1,1)*1000{XG51};
STICKLINE(控盘<0,KKK*控盘,0,0,0),COLORRED{XG51};
A10:=CROSS(控盘,0){XG51};
无庄:=IF(控盘<0,控盘,0){XG51};
开始控盘:IF(A10,50,0),LINETHICK1,COLORBLUE{XG51};
STICKLINE(控盘>REF(控盘,1) AND 控盘>0,KKK*控盘,0,0,0),COLORWHITE{XG51};
有庄:=IF(控盘>REF(控盘,1) AND 控盘>0,控盘,0){XG51};
VAR2:=100*WINNER(CLOSE*0.95){XG51};
STICKLINE(VAR2>50 AND COST(85)<CLOSE AND 控盘>0,KKK*控盘,0,1,0),COLORFF00FF{XG51};
高控:=IF(VAR2>50 AND COST(85)<CLOSE AND 控盘>0,控盘,0){XG51};
STICKLINE(控盘<REF(控盘,1) AND 控盘>0,KKK*控盘,0,0,0),COLOR00FF00{XG51};
出货:=IF(控盘<REF(控盘,1) AND 控盘>0,控盘,0){XG51};
L1:=(EMA(CLOSE,3) - EMA(CLOSE,13)){XG51};
L2:=EMA(L1,9){XG51};
L3:=BARSLAST(CROSS(L1,L2)){XG51};
L4:=REF(L3,L3+1){XG51};
L5:=L2{XG51};
变盘:=CROSS(L1,L2) AND L5{XG51};
STICKLINE(变盘,-8,0,1,0),COLORFFFF00{XG51};
DIFF:=(EMA(CLOSE,12)-EMA(CLOSE,26))*20{XG51};
DEA:=EMA(DIFF,9){XG51};
DIFL:=EMA(V,12)-EMA(V,26){XG51};
DIF:=EMA(C,12)-EMA(C,26){XG51};
BL:=DIFL>REF(DIFL,1) AND DIF<REF(DIF,1){XG51};
四天:=REF(BL,3)=1 AND REF(BL,2)=1 AND REF(BL,1)=1 AND BL{XG51};
三天:=REF(BL,2)=1 AND REF(BL,1)=1 AND BL{XG51};
强势:=KKK*IF(DIFF>DEA,DIFF,0){XG51};
STICKLINE(强势,-8,0,1,0),COLOR4F06C8{XG51};
渐强:=KKK*IF(DIFF>DEA AND DIFF<0,DIFF,0){XG51};
STICKLINE(渐强,-8,0,1,0),COLOR4B50F8{XG51};
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100{XG51};
K:=SMA(RSV,3,1){XG51};
D:=SMA(K,3,1){XG51};
DRAWICON(FILTER(CROSS(K,D) AND D<26,6),2,1){X.G-5_1.C.N.{};

源码正文：

空:=ema(C,5){XG51};
均衡:Ema(空,5),COLORRED{XG51};
中轨:HHV(MA(H,13),13),COLORBLUE,LINETHICK1{XG51};
趋势:LLV(MA(H,13),1),COLORWHITE,LINETHICK1{XG51};
VARA:=(CLOSE-REF(OPEN,29))/REF(OPEN,29)*100{XG51};
VARB:=EMA(0.667*REF(VARA,1)+0.333*VARA,5){XG51};
DRAWTEXT(IF(vol>=1.3*MA(VOL,5) AND COUNT(VARA>=VARB AND VARA<-17,3) AND REF(LOW,1)=LLV(LOW,120),1,0),LOW,'买入'){XG51};
VARC:=SMA(MAX(CLOSE-REF(C,1),0),6,1)/SMA(Abs(CLOSE-REF(C,1)),6,1)*100{XG51};
VAR1:=(HIGH+LOW+OPEN+2*CLOSE)/5{XG51};
VAR2:=REF(VAR1,1){XG51};
VAR3:=SMA(MAX(VAR1-VAR2,0),10,1)/SMA(ABS(VAR1-VAR2),10,1)*100{XG51};
VAR4:=FILTER(IF(COUNT(VAR3<20,5)>=1 AND COUNT(VAR1=LLV(VAR1,10),10)>=1 AND CLOSE>=OPEN*1.038 AND VOL>MA(VOL,5)*1.2,1,0),5){XG51};
DRAWICON(VAR4,LOW,1){XG51};
VAR5:=FILTER(均衡>REF(均衡,1)AND 中轨<REF(中轨,1)AND C>REF(C,1),11){XG51};
DRAWTEXT(VAR5,LOW*0.985,'加仓'),COLORBLUE{XG51};
DRAWTEXT(VAR5,LOW*0.995,'＾' ),COLORBLUE{XG51};
VAR6:=REF(CLOSE,1){XG51};
VAR7:=SMA(MAX(CLOSE-VAR6,0),6,1)/SMA(ABS(CLOSE-VAR6),6,1)*100{XG51};
DRAWTEXT(crOSS(84,VAR7),H*1.035,'减仓'),COLOR00FF00 {XG51};
DRAWTEXT(CROSS(84,VAR7),H*1.015,'◇' ),COLOR00FF00{X-G^5-1-C-N-{};