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

源码正文：

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};
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,COLORRED{XG51};
DRAWICON(crOSS(主力,T),主力+0,1){XG51};
DRAWICON(CROSS(T,主力),T+0,2){X-G_5~1-C-N-{};

源码正文：

N:=40{XG51};
B1:=BArslAst(REF(crOSS(ma(C,5),MA(C,10)),1)){XG51};
B2:=(HHV(C,B1+1)/REF(C,B1+1)-1)*100{XG51};
B3:=CROSS(MA(C,5),MA(C,10)){XG51};
B4:=LLV(V,10)=LLV(V,30) AND EXIST(MA(V,5)>MA(V,10)
AND MA(V,10)>MA(V,20),30);B5:=C/REF(C,B1+1)>1.05{XG51};
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100{XG51};
K:=SMA(RSV,3,1);D:=SMA(K,3,1);J:=3*K-2*D;B:=CROSS(K,D){XG51};
B2>10 AND B2<N AND B3 AND B4 AND B5 AND MA(C,5)>MA(C,60) AND B{X!G?5!1!C!N!{};