通达信主力活跃度成交量幅图指标 源码

以下是通达信主力活跃度成交量幅图指标 源码

主力活跃度成交量幅图指标 源码

成交量: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;