控盘程度改进版 通达信副图指标 源码 贴图

{控盘程度}
B1:=(HHV(H,35)-C)/(HHV(H,35)-LLV(LOW,35))*100- 35;
B2:=SMA(B1,35,1)+100;
B3:=(C-LLV(L,35))/(HHV(H,35)- LLV(L,35))*100,COLORWHITE,LINETHICK1;
B4:=SMA(B3,3,1);{WWW.GPXIAZAI.COM}
B5:=SMA(B4,3,1)+100;
B6:=B5-B2,COLORLIBLUE,LINETHICK1;
控盘程度:(B6-1)*2.5,LINETHICK1,COLORYELLOW;
X:=LLV(控盘程度,2)=LLV(控盘程度,8);
底:CROSS(控盘程度,REF(控盘程度+0.01,1)) AND X AND 控盘程度<100 ;
DRAWTEXT(底,控盘程度-8,'底');
下线:0,COLORGREEN,LINETHICK2;
中线:50,COLORLIBLUE,LINETHICK2;
上线:100,COLORWHITE,LINETHICK2;
底线:-50,COLORWHITE,LINETHICK2;
STICKLINE( 控盘程度<0,0,控盘程度,2,0 ),COLORLIBLUE;
STICKLINE( 控盘程度,0,控盘程度,2,0 ),COLOR00FFFF;
STICKLINE( 控盘程度 AND 控盘程度>100,100,控盘程度,2,0 ),COLORRED;
STICKLINE(1,0,-2,2,0),COLORYELLOW;