通达信自用的成交量指标公式

以下是通达信自用的成交量指标公式

成交量:VOL,POINTDOT;
 AA:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
主动买盘:=IF(CLOSE>OPEN,AA*(HIGH-LOW),IF(CLOSE<OPEN,AA*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2)),POINTDOT,COLORYELLOW;
 STICKLINE(主动买盘>0,0,VOL,2,0),COLORGREEN;
 STICKLINE(主动买盘>0,0,主动买盘,2,1),COLORRED;
主买比％:主动买盘/VOL*100,POINTDOT,COLORCYAN;
 {主力活跃度}
主力活跃度:(LARGEINTRDVOL+LARGEOUTTRDVOL)*10000/(2*FINANCE(7))*HHV(V,1000)/10,NODRAW,COLORGREEN;
五日活跃:EMA(主力活跃度,5),COLORWHITE;
十日活跃:EMA(主力活跃度,10),COLORYELLOW;
二十日活跃:EMA(主力活跃度,20),COLORMAGENTA;
 DRAWICON(CROSS(五日活跃,十日活跃),五日活跃,24);
 DRAWICON(CROSS(五日活跃,二十日活跃),五日活跃,25);
 DRAWICON(CROSS(十日活跃,二十日活跃),五日活跃,26);

MA3:MA(成交量,60),COLORBLUE;

{====紫柱======}
N:=60;
 A:=IF(H>L,V,100000*V);
 N1:=IF(LLV(A,N)>500000,60,IF(LLV(A,N)>100000,55,IF(LLV(A,N)>50000,45,IF(LLV(A,N)>10000,40,35))));
 P:=IF(LLV(A,N)>500000,1.5,IF(LLV(A,N)>100000,1.45,IF(LLV(A,N)>50000,1.4,IF(LLV(A,N)>10000,1.35,1.3))));
 A1:=P*(LLV(A,N1)+REF(LLV(A,N1),N1+1)+REF(LLV(A,N1),2*N1+2))/3;
 A2:=IF(CURRBARSCOUNT<4*N1,CONST(A1),DRAWNULL),DOTLINE;
 A3:=V<A2 AND CURRBARSCOUNT<3*N1;
 STICKLINE(A3,V,0,2,0),COLORMAGENTA;