通达信主力持仓线+主力资金流选股指标公式源码

通达信主力持仓线+主力资金流选股指标公式源码

源码正文：

主力持仓线

N:=22;JJ:=(HIGH+LOW+CLOSE)/3;QJ0:=vol/IF(HIGH=LOW,4,HIGH-LOW){XG51};
QJ1:=IF(CAPITAL=0,QJ0*(JJ-MIN(CLOSE,OPEN)),QJ0*IF(HIGH=LOW,1,(MIN(OPEN,CLOSE)-LOW))){XG51};
QJ2:=IF(CAPITAL=0,QJ0*(MIN(OPEN,CLOSE)-LOW),QJ0*IF(HIGH=LOW,1,(JJ-MIN(CLOSE,OPEN)))){XG51};
QJ3:=IF(CAPITAL=0,QJ0*(HIGH-maX(OPEN,CLOSE)),QJ0*IF(HIGH=LOW,1,(HIGH-MAX(OPEN,CLOSE)))){XG51};
QJ4:=IF(CAPITAL=0,QJ0*(MAX(CLOSE,OPEN)-JJ),QJ0*IF(HIGH=LOW,1,(MAX(CLOSE,OPEN)-JJ))){XG51};
SVZL:SUM(((QJ1+QJ2)-(QJ3+QJ4))/SUM(VOL,60),0){XG51};
CZ:=SVZL-REF(SVZL,1){XG51};
stICKLINE(CZ<0,SVZL+CZ,SVZL,1,0),COLORFFFF00{XG51};
STICKLINE(CZ>0,SVZL,SVZL+CZ,1,0),COLORWHITE;

主力资金流量

AA:=VOL/((HIGH-LOW)*2-Abs(CLOSE-OPEN)){XG51};
买量:=IF(CLOSE>OPEN,AA*(HIGH-LOW),IF(CLOSE<OPEN,AA*((HIGH-OPEN)+ (CLOSE-LOW)),VOL/2)),LINETHICK0,COLORWHITE{XG51};
卖量:=IF(CLOSE>OPEN,0-AA*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,0- AA*(HIGH-LOW),0-VOL/2)),LINETHICK0,COLORCYAN{XG51};
进出量:=买量+卖量,COLOR00FFFF;STICKLINE(进出量<0,0,进出量,1,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,进出量,3,0),COLOR000099{XG51};
STICKLINE(进出量>0,0,进出量,3,0),COLOR0000CC{XG51};
STICKLINE(进出量>0,0,进出量,1.0,0),COLOR0000FF{XG51};
STICKLINE(进出量>0,0,进出量,0.5,0),COLORCC66FF;N:=1;QJ0:= (HIGH+LOW+CLOSE)/3{XG51};
QJ1:=IF(HIGH=LOW,1,HIGH-MAX(OPEN,CLOSE)){XG51};
QJ2:=IF(HIGH=LOW,1,MAX(CLOSE,OPEN)-QJ0){XG51};
QJ3:=IF(HIGH=LOW,1,MIN(OPEN,CLOSE)-LOW){XG51};
QJ4:=IF(HIGH=LOW,1,QJ0-MIN(CLOSE,OPEN)){XG51};
QJ5:=VOL/(IF(HIGH=LOW,4,HIGH-LOW)){XG51};
QJ6:="macd.dif">"MacD.DEA" AND "MACD.DEA"<0{XG51};
QJ7:="kdj.K">"kdJ.D" AND "KDJ.D"<30{XG51};
QJ8:="MACD.DIF"<"MACD.DEA"{XG51};
QJ9:="KDJ.K"<"KDJ.D" AND "KDJ.K">80{XG51};
特大:QJ4*QJ5,NODRAW;大单:QJ3*QJ5,NODRAW{XG51};
中单:QJ1*QJ5,NODRAW;小单:QJ2*QJ5,NODRAW{XG51};
W1:=SUM(大单,N)+SUM(特大,N);W2:=SUM(小单,N)+SUM(中单,N){XG51};
量振1:=特大>大单 AND 大单>小单{XG51};
量振2:=特大<小单 AND 大单<小单{XG51};
标振1:=QJ6 AND QJ7{XG51};
标振2:=QJ8 AND QJ9{XG51};
A:=W1-W2;A0:=IF(A>0,A,0);B0:=IF(A<0,A,0){XG51};
STICKLINE(A0,0,A0,1,0),COLOR000044;主力持仓:ema(100*(CLOSE- LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34)),3),COLORFF00FF;主力筹码集中度:WINNER(C)*100,COLORWHITE;

{X^G=5~1^C^N^{}