通达信筹码红点共振波段副图指标公式源码分享

CBW60:(COST(80)-COST(20))/COST(20)*100,COLORWHITE;
JW60:=(C-COST(20))/(COST(80)-COST(20))*100;
NOTEXT60上:=IF(CBW60>REF(CBW60,1) AND JW60>80,CBW60,DRAWNULL),COLORFF80FF,POINTDOT,LINETHICK6;
NOTEXT60下:IF(CBW60>REF(CBW60,1) AND JW60<5,CBW60,DRAWNULL),COLORLIBLUE,POINTDOT,LINETHICK6;

CBW70:(COST(85)-COST(15))/COST(15)*100,COLORWHITE;
JW70:=(C-COST(15))/(COST(85)-COST(15))*100;
NOTEXT70上:IF(CBW70>REF(CBW70,1) AND JW70>80,CBW70,DRAWNULL),COLORFF80FF,POINTDOT,LINETHICK6;
NOTEXT70下:IF(CBW70>REF(CBW70,1) AND JW70<5,CBW70,DRAWNULL),COLORLIBLUE,POINTDOT,LINETHICK6;

CBW90:(COST(95)-COST(5))/COST(5)*100,COLORWHITE;
JW90:=(C-COST(5))/(COST(95)-COST(5))*100;
NOTEXT90上:IF(CBW90>REF(CBW90,1) AND JW90>80,CBW90,DRAWNULL),COLORFF80FF,POINTDOT,LINETHICK6;
NOTEXT90下:IF(CBW90>REF(CBW90,1) AND JW90<5,CBW90,DRAWNULL),COLORLIBLUE,POINTDOT,LINETHICK6;

CB96比:=CBW90/CBW60-1,NODRAW;

S:=CBW60>REF(CBW60,1) AND JW60>80 AND CBW70>REF(CBW70,1) AND JW70>80 AND CBW90>REF(CBW90,1) AND JW90>80;
X:=CBW60>REF(CBW60,1) AND JW60<5 AND CBW70>REF(CBW70,1) AND JW70<5 AND CBW90>REF(CBW90,1) AND JW90<5;

NOTEXT上1:IF(S,CBW60,DRAWNULL),COLORRED,POINTDOT,LINETHICK6;
NOTEXT上2:IF(S,CBW70,DRAWNULL),COLORRED,POINTDOT,LINETHICK6;
NOTEXT上3:IF(S,CBW90,DRAWNULL),COLORRED,POINTDOT,LINETHICK6;

NOTEXT下1:IF(X,CBW60,DRAWNULL),COLORGREEN,POINTDOT,LINETHICK6;
NOTEXT下2:IF(X,CBW70,DRAWNULL),COLORGREEN,POINTDOT,LINETHICK6;
NOTEXT下3:IF(X,CBW90,DRAWNULL),COLORGREEN,POINTDOT,LINETHICK6;