通达信简单资金流未加密选股指标公式源码

源码正文：

额:AMOUNT/100000000,volstICK,COLORFF00FF{XG51};
VAR1:=AMOUNT/((HIGH-LOW)*2-Abs(CLOSE-OPEN)){XG51};
流入亿:IF(CLOSE>OPEN,VAR1*(HIGH-LOW),IF(CLOSE<OPEN,VAR1*((HIGH-OPEN)+(CLOSE-LOW)),AMOUNT/2))/100000000,COLORWHITE,NODRAW{XG51};
流出亿:IF(CLOSE>OPEN,0-VAR1*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,0-VAR1*(HIGH-LOW),0-AMOUNT/2))/100000000,COLORmaGENTA,NODRAW{XG51};
差亿:流入亿+流出亿,COLORFFFF00,NODRAW{XG51};
净:=ema(EMA(差亿,2),2),COLOR00FFFF,NODRAW{XG51};
净1:=EMA(净,2){XG51};
流:=EMA(净1,7){XG51};
净流:=3*EMA(净1+流,2){XG51};
STICKLINE(净流<0,0,净流,4,0),COLORFF6600{XG51};
STICKLINE(净流<0,0,净流,3,0),COLORFF9900{XG51};
STICKLINE(净流<0,0,净流,1.5,0),COLORFFCC00{XG51};
STICKLINE(净流<0,0,净流,0.5,0),COLORGREEN{XG51};
STICKLINE(净流>0,0,净流,4,0),COLOR000099{XG51};
STICKLINE(净流>0,0,净流,3,0),COLOR0000CC{XG51};
STICKLINE(净流>0,0,净流,1.5,0),COLOR0000FF{XG51};
STICKLINE(净流>0,0,净流,0.5,0),COLORCC66FF{XG51};
STICKLINE(净流<REF(净流,1)AND 净流>0,0,净流,4,0),COLOR009900{XG51};
STICKLINE(净流<REF(净流,1)AND 净流>0,0,净流,3,0),COLOR00BB00{XG51};
STICKLINE(净流<REF(净流,1)AND 净流>0,0,净流,2,0),COLOR00DD00{XG51};
STICKLINE(净流<REF(净流,1)AND 净流>0,0,净流,1,0),COLOR00FF00{XG51};
STICKLINE(净流>REF(净流,1)AND 净流<0,0,净流,4,0),COLOR000099{XG51};
STICKLINE(净流>REF(净流,1)AND 净流<0,0,净流,3,0),COLOR0000BB{XG51};
STICKLINE(净流>REF(净流,1)AND 净流<0,0,净流,1.5,0),COLOR0000DD{XG51};
STICKLINE(净流>REF(净流,1)AND 净流<0,0,净流,0.5,0),COLOR0000FF{XG51};
DRAWTEXT(crOSS(净流,0),0,'买'),COLORFF00FF{X+G-5^1+C+N+{};

源码正文：

A0:=(2*C+H+L)/4{XG51};
均线:=ma(A0,3)>REF(MA(A0,3),1){XG51};
A1:=(CLOSE-LLV(LOW,7))/(HHV(HIGH,7)-LLV(LOW,7))*100{XG51};
A2:=ema(WINNER(C)*100,5){XG51};
A3:=MA(SMA(C-REF(C,1),3,1)/SMA(H-REF(C,1),3,1),3)*100;
K:MA(3*SMA(A1,6,1)-2*SMA(SMA(A1,5,1),5,1),3),LINETHICK1,COLORBLUE{XG51};
D:MA(K,3),COLORFF0000,LINETHICK1{XG51};
J:3*K-2*D,LINETHICK1{XG51};
A4:=SMA(MAX(C-REF(C,2),0),6,1)/SMA(Abs(C-REF(C,2)),6,1)*100{XG51};
A5:=MA(3*SMA((C-LLV(L,21))/(HHV(H,21)-LLV(L,21))*100,5,1)-2*SMA(SMA((C-LLV(L,21))/(HHV(H,21)-LLV(L,21))*100,5,1),3,1),3){XG51};
低吸:IF(crOSS(A4,14) OR A5>REF(A5,1) AND CROSS(K,A2)AND K<40,20,0){XG51};
IF(A2>80 AND CROSS(95,K),85,100){XG51};
跌幅较大:K<5 AND LLV(C,3)/HHV(C,20)<0.8,COLOR00FF00{XG51};
stICKLINE(跌幅较大,0,30,3,0),COLOR00FF00{XG51};
A6:=COUNT(CROSS(K,A2),2)=1 AND CROSS(K,A5)AND A5/REF(A5,1)>0.9 AND K<50{XG51};
A7:=CROSS(K,D)AND D<10 OR CROSS(K,D)AND CROSS(K,A5)AND D<18{XG51};
DRAWTEXT(FILTER((A6 OR A7)AND K>REF(K,1),5)AND 均线 ,D,'金叉'){XG51};
DRAWTEXT(CROSS(D,K)AND CROSS(A5,K)AND D>85,D,'死叉'){XG51};
DRAWTEXT(FILTER(K>REF(K,1)AND (CROSS(K,10)OR CROSS(K,A2))AND COUNT(A4<14,3)>=1,3),15,'虎口拔牙'){XG51};
无限风光:A2>85 AND K>85 OR A2>90 OR K>90,LINETHICK0,COLORFFFF00{XG51};
STICKLINE(无限风光,MAX(A2,K),100,6,1),COLORFFFF00{XG51};
DRAWICON(CROSS(A3,-300)AND K<10,5,1){XG51};
A8:=BArslAST(REF(CROSS(K,D),1)){XG51};
二次金叉:=(A8<15 AND D<50 AND K>REF(K,A8+1) AND CROSS(K,D)AND A5<60){XG51};
DRAWTEXT(二次金叉 AND 均线,K,'二次金叉'){XG51};
A9:=LLV(C,2)<REF(LLV(C,15),2){XG51};
DRAWTEXT(二次金叉 AND A9,K,'底背离'),COLORLIMAGENTA{XG51};
DRAWTEXT(LONGCROSS(J,K,7)AND CROSS(J,A2)AND A2<30 AND A2>REF(A2,1),K,'穿三线'){XG51};
DRAWTEXT(CROSS(84,A4)AND CROSS(K,A4),90,'虎口脱险'),COLOR00FF00{XG51};
A10:=MA((A0-MA(A0,13))/(0.15*AVEDEV(A0,13)),3){XG51};
DRAWICON(CROSS(A10,-15)AND J>REF(J,1),5,1){XG51};
DRAWICON(CROSS(20,A10),100,2){XG51};
卖点准备:IF(CROSS(D,K) AND K>85,70,100),LINETHICK1,COLORLIRED{XG51};
买点准备:=IF(CROSS(K,D) AND K<10,10,-0.6),LINETHICK1,COLOR00FF00{XG51};
买入持股:=IF(K<=9,K,DRAWNULL)COLORRED,LINETHICK2{XG51};
买入持股1:=IF(K<=2,K,DRAWNULL)COLORWHITE,LINETHICK2{XG51};
卖出空仓:IF(K>=85 AND D>85,K,DRAWNULL)COLORRED,LINETHICK3{XG51};
卖出空仓1:IF(K>=85 AND D>90,K,DRAWNULL)COLORWHITE,LINETHICK2{XG51};
N:=1{XG51};
VAR2:=REF(LOW,1){XG51};
VAR3:=SMA(ABS(LOW-VAR2),3,1)/SMA(MAX(LOW-VAR2,0),3,1)*100{XG51};
VAR4:=EMA(VAR3*10,3){XG51};
VAR5:=LLV(LOW,13){XG51};
VAR6:=HHV(VAR4,13){XG51};
VAR7:=IF(BARSCOUNT(CLOSE) >34,1,0){XG51};
VAR8:=EMA(IF(LOW<=VAR5,(VAR4+VAR6*2)/2,0),3)/618*VAR7{XG51};
VAR9:=IF(VAR8>100,100,VAR8){XG51};
吸筹:=VAR9,LINETHICK0,COLOREE00EE{XG51};
公鸡:IF(VAR9>N/10 AND "kdj.J">REF("KDJ.J",1) AND REF("KDJ.J",1)<REF("KDJ.J",2),10,0)COLORWHITE{XG51};
{X?G_5-1?C?N?{};