通达信CR带状能量线指标公式

DRAWGBK(C>0, RGB(1,0,1),RGB(1,0,1),0,'0',0);
NN:=26;M1:=10;M2:=20;M3:=40;M4:=62;
MID:=REF(HIGH+LOW,1)/2;
cr:SUM(MAX(0,HIGH-MID),NN)/SUM(MAX(0,MID-LOW),NN)*100,NODRAW,COLORWHITE;
STICKLINE(C>0,REFDATE(LLV(CR,120),DATE),90,28,-1)COLORLICYAN;
STICKLINE(C>0,REFDATE(LLV(CR,120),DATE),40,28,-1)COLORYELLOW;
DRAWTEXT(ISLASTBAR,90,' ██'),COLORBLacK;
DRAWTEXT(ISLASTBAR,90,' 90')COLORCYAN;
MA1:REF(MA(CR,M1),M1/2.5+1)NODRAW,COLORYELLOW;
MA2:REF(MA(CR,M2),M2/2.5+1)NODRAW,COLORMAGENTA;
MA3:REF(MA(CR,M3),M3/2.5+1)NODRAW,COLORGREEN;
MA4:REF(MA(CR,M4),M4/2.5+1)NODRAW,COLORCYAN;
DRAWBAND(MA3,RGB(80,16,0),MA4,RGB(80,64,64));
DRAWBAND(MA1,RGB(150,50,50),MA2,RGB(0,50,150));
NOTEXT:SUM(MAX(0,HIGH-MID),NN)/SUM(MAX(0,MID-LOW),NN)*100,COLORWHITE,LINETHICK2;
DRAWTEXT(ISLASTBAR,CR,' ←CR'),COLORWHITE;
STICKLINE(CROSS(CR,MA1),REFDATE(HHV(CR,120),DATE),REFDATE(LLV(CR,120),DATE),0,-1)COLORYELLOW;
AA1:=CR>MA1 AND CR>MA2 AND CR>MA3 AND CR>MA4;
AA2:=AA1 AND AA1!=REF(AA1,1);
STICKLINE(AA2,REFDATE(HHV(CR.CR,120),DATE),CR,0,-1)COLORRED;
{}
DRAWTEXT_FIX(1,0.40,0.00,0,'黄虚线--CR上穿MA1(可能有行情)；红虚线--CR同时大于4线(强势)；'),COLORWHITE;