通达信红线持股指标(源码副图贴图)

红线持股指标
0,DOTLINE;
 B1:=(HHV(H,8)-C)/(HHV(H,8)-LLV(LOW,8))*100-70;
 B2:=SMA(B1,8,1)+100;
 B3:=(C-LLV(L,9))/(HHV(H,9)- LLV(L,9))*100;
 B4:=SMA(B3,3,1);
 B5:=SMA(B4,3,1)+100;
 B6:=B5-B2;
 B7:IF(B6>60,B6-60,0),COLOR00FF00,LINETHICK2;
 IF(B7>REF(B7,1),B7,DRAWNULL),COLOR0000FF,LINETHICK2;
 STICKLINE(REF(B7,1)<B7,B7,REF(B7,1),3,0 ),COLOR0022FF;
 STICKLINE(REF(B7,1)<B7,B7,REF(B7,1),2,0 ),COLOR0055FF;
 STICKLINE(REF(B7,1)<B7,B7,REF(B7,1),1,0 ),COLOR0077FF;
 STICKLINE(REF(B7,1)<B7,B7,REF(B7,1),0,0 ),COLOR0099FF;

{小于零部分}
B8:B6-60,COLOR00FF00,DOTLINE;
 IF(B8<REF(B8,1),B8,DRAWNULL),COLOR00FF00,DOTLINE;
 IF(B8>REF(B8,1),B8,DRAWNULL),COLOR0000FF,DOTLINE;