通达信大单资金量振指标公式

   N:=5;QJ0:=(HIGH+LOW+CLOSE)/3;

   QJ1:=IF(HIGH=LOW,1,HIGH-maX(OPEN,CLOSE));

   QJ2:=IF(HIGH=LOW,1,MAX(CLOSE,OPEN)-QJ0);

   QJ3:=IF(HIGH=LOW,1,MIN(OPEN,CLOSE)-LOW);

   QJ4:=IF(HIGH=LOW,1,QJ0-MIN(CLOSE,OPEN));

   QJ5:=vol/(IF(HIGH=LOW,4,HIGH-LOW));

   QJ6:="macd.DIF">"MacD.DEA"AND"MACD.DEA"<0;

   QJ7:="kdj.K">"kdJ.D"AND"KDJ.D"<30;

   QJ8:="MACD.DIF"<"MACD.DEA";

   QJ9:="KDJ.K"<"KDJ.D"AND"KDJ.K">80;

   特大:QJ4*QJ5,NODRAW;大单:QJ3*QJ5,NODRAW;

   中单:QJ1*QJ5,NODRAW;小单:QJ2*QJ5,NODRAW;

   W1:=SUM(大单,N)+SUM(特大,N);W2:=SUM(小单,N)+SUM(中单,N);

   量振1:=特大>大单AND大单>小单;

   量振2:=特大<小单AND大单<小单;

   标振1:=QJ6ANDQJ7;

   标振2:=QJ8ANDQJ9;

   A:=W1-W2;A0:=IF(A>0,A,0);B0:=IF(A<0,A,0);

   stICKLINE(A0,0,A0,3,0),COLOR000044;

   STICKLINE(A0,0,A0,2.5,0),COLOR000088;

   STICKLINE(A0,0,A0,1.5,0),COLOR0000AA;

   STICKLINE(A0,0,A0,1,0),COLOR0000CC;

   STICKLINE(B0,0,-B0,3,0),COLOR004400;

   STICKLINE(B0,0,-B0,2.5,0),COLOR008800;

   STICKLINE(B0,0,-B0,1.5,0),COLOR00AA00;

   STICKLINE(B0,0,-B0,1,0),COLOR00CC00;

   周趋势:MA(A,5),COLORFFFFFF;

   平滑值:EMA(周趋势,5),COLOR00FFFF;

   STICKLINE(标振1AND量振1AND周趋势>平滑值,0,A0,3,0),COLORYELLOW;

   DRAWTEXT(标振1AND量振1AND周趋势>平滑值,A0,'振'),COLORYELLOW;