把《主力异动》指标改为通达信版

九毛八公式指标

指标 改为通达信副图公式 {主力异动，怀念千钧老师} jj:=(HIGH+LOW+CLOSE)/3; qj0:=vol/IF(HIGH=LOW,4,HIGH-LOW); qj1:=qj0*(MIN(OPEN,CLOSE)-LOW); qj2:=qj0*(jj-MIN(CLOSE,OPEN)); qj3:=qj0*(HIGH-MAX(OPEN,CLOSE)); qj4:=qj0*(MAX(CLOSE,OPEN)-jj); AAA:((qj1+qj2)-(qj3+qj4))/((qj1+qj2)+(qj3+qj4))*100*17,LINETHICK0; 异动:=abs(ma(AAA,10)); A0:=IF(异动>=120,异动,0);B0:=IF(异动<120,异动,0); STICKLINE(A0,0,A0,8.10,1),COLOR000099; STICKLine(B0,0,B0,8.10,1),colorgreen; 五天异动z:COUNT(A0,5),PRECIS0,coloryellow; 十天异动z:COUNT(A0,10),PRECIS0,COLORMAGENTA;

公式模块：

{主力异动，怀念千钧老师}

JJ:=(HIGH+LOW+CLOSE)/3; QJ0:=vol/IF(HIGH=LOW,4,HIGH-LOW); QJ1:=QJ0*(MIN(OPEN,CLOSE)-LOW); QJ2:=QJ0*(JJ-MIN(CLOSE,OPEN)); QJ3:=QJ0*(HIGH-MAX(OPEN,CLOSE)); QJ4:=QJ0*(MAX(CLOSE,OPEN)-JJ); AAA:((QJ1+QJ2)-(QJ3+QJ4))/((QJ1+QJ2)+(QJ3+QJ4))*100*17,LINETHICK0; 异动:=ABS(MA(AAA,10)); A0:=IF(异动>=120,异动,0);B0:=IF(异动<120,异动,0); STICKLINE(A0,0,A0,8.10,1),COLOR000099; STICKLINE(B0,0,B0,8.10,1),COLORGREEN; 五天异动Z:COUNT(A0,5),COLORYELLOW; 十天异动Z:COUNT(A0,10),COLORMAGENTA;