通达信庄家筹码未加密选股指标公式源码

源码正文：

VA1:=100-3*SMA((CLOSE-LLV(LOW,65))/(HHV(HIGH,80)-LLV(LOW,65))*100,20,1)+2*Sma(SMA((CLOSE-LLV(LOW,65))/(HHV(HIGH,80)-LLV(LOW,65))*100,20,1),15,1){XG51};
VA2:=100-3*SMA((OPEN-LLV(LOW,65))/(HHV(HIGH,80)-LLV(LOW,65))*100,20,1)+2*SMA(SMA((OPEN-LLV(LOW,65))/(HHV(HIGH,80)-LLV(LOW,65))*100,20,1),15,1){XG51};
VA3:=VA1<REF(VA2,1) AND vol>REF(VOL,1) AND CLOSE>REF(CLOSE,1){XG51};
DRAWTEXT(VA3 AND COUNT(VA3,30)=1,15,'有大资金进 关注'),LINETHICK1,COLORFF00FF{XG51};
A:=WINNER(CLOSE+CLOSE*15/100)*100{XG51};
B:=WINNER(CLOSE+CLOSE*0/100)*100{XG51};
CC:=A-B{XG51};
D:=(WINNER(CLOSE-CLOSE*0.1/100)-WINNER(CLOSE-CLOSE*15/100))*100{XG51};
E:=CC<3 AND D<0.5 AND OPEN!=LOW{XG51};
A1:=DYnaINFO(6){XG51};
A2:=IF(LOW>A1,0,IF(HIGH<A1,1,(A1-LOW+0.01)/(HIGH-LOW+0.01))){XG51};
A3:=VOL/WINNER(LOW){XG51};
A4:=REF(HHV(CLOSE,120),1){XG51};
A5:=REF(LLV(CLOSE,120),1){XG51};
A6:=100*(CLOSE-A5)/(A4-A5){XG51};
A7:=A2>0 OR A2=1{XG51};
A8:=A7 AND A3/REF(A3,3)>=3 AND A6<80{XG51};
A9:=REF(A8,1) OR REF(A8,2) OR REF(A8,3) OR REF(A8,4){XG51};
A10:=A8 AND A9{XG51};
A11:=IF(FILTER(A8,3),5,0){XG51};
A12:=IF(FILTER(A10,3) OR E,10,0){XG51};
资金进场日:IF(A11>0,8,DRAWNULL),COLOR00FFFF,LINETHICK3,stICK{XG51};
资金加仓日:IF(A12>0,15,DRAWNULL),COLORFF00FF,LINETHICK4,STICK{XG51};
DRAWTEXT(A11,8,'资金进场'){XG51};
DRAWTEXT(A12,17,'资金加仓'){XG51};
VAR1:=(CLOSE*2+HIGH+LOW)/4*10{XG51};
VAR2:=ema(VAR1,13)-EMA(VAR1,34){XG51};
VAR3:=EMA(VAR2,5){XG51};
VAR4:=2*(VAR2-VAR3)*5.5{XG51};
主力:VAR4,COLORWHITE,LINETHICK2{XG51};
VAR5:=(HHV(INDEXH,8)-INDEXC)/(HHV(INDEXH,8)-LLV(INDEXL,8))*8{XG51};
VAR6:=EMA(3*VAR5-2*SMA(VAR5,18,1),5){XG51};
VAR7:=(INDEXC-LLV(INDEXL,8))/(HHV(INDEXH,8)-LLV(INDEXL,8))*10{XG51};
VAR8:=(INDEXC*2+INDEXH+INDEXL)/4{XG51};
VAR9:=EMA(VAR8,13)-EMA(VAR8,34){XG51};
VARA:=EMA(VAR9,3){XG51};
VARB:=(VAR9-VARA)/2{XG51};
大盘资金:VARB,COLORCYAN,LINETHICK2{XG51};
VARE:=MA(100*(CLOSE-LLV(CLOSE,34))/(HHV(HIGH,34)-LLV(LOW,34)),5)-20{XG51};
VAR10:=(HIGH+LOW+CLOSE)/3{XG51};
VAR11:=(VAR10-MA(VAR10,14))/(0.015*AVEDEV(VAR10,14)){XG51};
VAR12:=(VAR10-MA(VAR10,70))/(0.015*AVEDEV(VAR10,70)){XG51};
VAR13:=IF(VAR11>=150 AND VAR11<200 AND VAR12>=150 AND VAR12<200,10,0){XG51};
VAR14:=IF(VAR11<=-150 AND VAR11>-200 AND VAR12<=-150 AND VAR12>-200,-10,VAR13){XG51};
VAR15:=(CLOSE-MA(CLOSE,11))/MA(CLOSE,11)*100{XG51};
VAR16:=100-Abs(VAR15){XG51};
VAR17:=IF(VAR16<90,VAR16,100){XG51};
VAR1A:=IF(VARE>0,VARE,0){XG51};
VAR1B:=IF(VAR12>=200 AND VAR11>=150,15,IF(VAR12<=-200 AND VAR11<=-150,-15,VAR14))+60{XG51};
VAR1C:=VAR1A>48 AND VAR1B>60 AND VAR17<100{XG51};
DRAWTEXT(VAR1C AND COUNT(VAR1C,30)=1,15,'大笔出货.缩量(低位)则洗.'),LINETHICK1,COLORFFCC66{XG51};
T1:(VA3 AND COUNT(VA3,30)=1)*28,COLORFFFFFF{XG51};
T:(COUNT(A8,30)>=3 AND COUNT(A10,30)>=3)*38,COLORYELLOW{X=G+5-1=C=N={};

源码正文：

VAR1:=CLOSE>REF(CLOSE,1) AND CLOSE>REF(CLOSE,2){XG51};
VAR2:=REF(VAR1,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2){XG51};
VAR3:=REF(VAR2,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2){XG51};
VAR4:=REF(VAR3,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2){XG51};
VAR5:=REF(VAR4,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2){XG51};
VAR6:=REF(VAR5,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2){XG51};
VAR7:=REF(VAR6,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2){XG51};
VAR8:=REF(VAR7,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2){XG51};
VAR9:=REF(VAR8,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2){XG51};
VARA:=REF(VAR9,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2){XG51};
VARB:=REF(VARA,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2){XG51};
VARC:=REF(VARB,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2){XG51};
stICKLINE(VAR1 OR VAR2 OR VAR3 OR VAR4 OR VAR5 OR VAR6 OR VAR7 OR VAR8 OR VAR9 OR VARA
OR VARB OR VARC,CLOSE,REF(CLOSE,1),3,1),COLORWHITE{XG51};
VARD:=CLOSE<REF(CLOSE,1) AND CLOSE<REF(CLOSE,2){XG51};
VARE:=REF(VARD,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2){XG51};
VARF:=REF(VARE,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2){XG51};
VAR10:=REF(VARF,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2){XG51};
VAR11:=REF(VAR10,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2){XG51};
VAR12:=REF(VAR11,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2){XG51};
VAR13:=REF(VAR12,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2){XG51};
VAR14:=REF(VAR13,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2){XG51};
VAR15:=REF(VAR14,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2){XG51};
VAR16:=REF(VAR15,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2){XG51};
VAR17:=REF(VAR16,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2){XG51};
VAR18:=REF(VAR17,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2){XG51};
STICKLINE(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR VAR14 OR VAR15
OR VAR16 OR VAR17 OR VAR18,CLOSE,REF(CLOSE,1),3,1),COLORFF9900{XG51};
VAR19:=REF(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR VAR14 OR VAR15 OR VAR16 OR VAR17 OR VAR18,1) AND VAR1{XG51};
STICKLINE(VAR19,REF(CLOSE,1),REF(CLOSE,2),3.0,0),COLOR0088FF{XG51};
STICKLINE(VAR19,REF(CLOSE,1),REF(CLOSE,2),2.0,0),COLOR33AAFF{XG51};
STICKLINE(VAR19,REF(CLOSE,1),REF(CLOSE,2),0.5,0),COLOR66CCFF{XG51};
DRAWICON(VAR19,L*0.98,7){XG51};
VAR1A:=REF(VAR1 OR VAR2 OR VAR3 OR VAR4 OR VAR5 OR VAR6 OR VAR7 OR VAR8 OR VAR9 OR VARA OR VARB OR VARC,1) AND VARD{XG51};
STICKLINE(VAR1A,REF(CLOSE,1),REF(CLOSE,2),3.0,0),COLOR008800{XG51};
STICKLINE(VAR1A,REF(CLOSE,1),REF(CLOSE,2),2.0,0),COLOR00BB00{XG51};
STICKLINE(VAR1A,REF(CLOSE,1),REF(CLOSE,2),0.5,0),COLOR00EE00{XG51};
DRAWICON(VAR1A,H*1.02,8){XG51};
RSV:=(CLOSE-LLV(LOW,13))/(HHV(HIGH,13)-LLV(LOW,13))*100{XG51};
K:=SMA(RSV,3,1){XG51};
D:=Sma(K,3,1){XG51};
J:=3*K-2*D{XG51};
RSV24:=(CLOSE-LLV(LOW,55))/(HHV(HIGH,55)-LLV(LOW,55))*100{XG51};
K24:=SMA(RSV24,3,1){XG51};
D24:=SMA(K24,3,1){XG51};
J24:=3*K24-2*D24{XG51};
压力位:IF(crOSS(J24,J),H,REF(H,BArslAST(CROSS(J24,J)))),COLOR66CC66,LINETHICK1{XG51};
支撑位:IF(CROSS(J,J24),L,REF(L,BARSLAST(CROSS(J,J24)))),COLORCC33CC,LINETHICK1{XG51};
支撑价:LLV(LOW,34),COLOR0088FF,DOTLINE{XG51};
阻力价:HHV(HIGH,34),COLORFF9900,DOTLINE{XG51};
DRAWTEXT(C-O>=0 AND O/L>1.05 AND L<=LLV(L,30),L,'★<--极品绝底'),COLOR99FF00{XG51};
DRAWTEXT(REF(C,BARSLAST(REF(CROSS("macd.dif","MacD.DEA"),1))+1)>C AND REF("MACD.DIF",BARSLAST(REF(CROSS("MACD.DIF","MACD.DEA"),1))+1)<"MACD.DIF" AND CROSS("MACD.DIF","MACD.DEA")>0,L-0.02,'★M'),COLOR00FFFF{XG51};
DRAWTEXT(REF(C,BARSLAST(REF(CROSS("kdj.K","kdj.D"),1))+1)>C AND REF("KDJ.K",BARSLAST(REF(CROSS("KDJ.K","KDJ.D"),1))+1)<"KDJ.K" AND CROSS("KDJ.K","KDJ.D"),L-0.10,'◎K'),COLORFF00FF{XG51};
DRAWTEXT(REF(C,BARSLAST(REF(CROSS("rsi.RSI1","RSI.RSI2"),1))+1)>C AND REF("RSI.RSI1",BARSLAST(REF(CROSS("RSI.RSI1","RSI.RSI2"),1))+1)<"RSI.RSI1" AND CROSS("RSI.RSI1","RSI.RSI2")>0,L-0.18,'◆R'),COLOR0000FF;{XG51};
DRAWTEXT(REF(C,BARSLAST(REF(CROSS("MACD.DEA","MACD.DIF"),1))+1)<C AND REF("MACD.DIF",BARSLAST(REF(CROSS("MACD.DEA","MACD.DIF"),1))+1)>"MACD.DIF" AND CROSS("MACD.DEA","MACD.DIF")>0,H+0.16,'★M'),COLOR00FF00;{XG51};
DRAWTEXT(REF(C,BARSLAST(REF(CROSS("KDJ.D","KDJ.K"),1))+1)<C AND REF("KDJ.K",BARSLAST(REF(CROSS("KDJ.D","KDJ.K"),1))+1)>"KDJ.K" AND CROSS("KDJ.D","KDJ.K")>0,H+0.08,'◎K'),COLORFFFFCC{XG51};
DRAWTEXT(REF(C,BARSLAST(REF(CROSS("RSI.RSI2","RSI.RSI1"),1))+1)<C AND REF("RSI.RSI1",BARSLAST(REF(CROSS("RSI.RSI2","RSI.RSI1"),1))+1)>"RSI.RSI1" AND CROSS("RSI.RSI2","RSI.RSI1")>0,H+0.04,'◆R'),COLORFF9900;{X_G*5-1_C_N_{};