CR一招灵

MID := (HIGH+LOW+CLOSE)/3;
CR:SUM(MAX(0,HIGH-REF(MID,1)),26)/SUM(MAX(0,REF(MID,1)-L),26)*100;
MA5:REF(MA(CR,5),5/2.5+1);
AA:REF(MA(CR,10),10/2.5+1); 
BB:REF(MA(CR,20),20/2.5+1);
CC:REF(MA(CR,40),40/2.5+1),colorffaa00;
DD:REF(MA(CR,62),62/2.5+1),colorgray;
DRAWTEXTABS(800,4,'CR: '+CR),ColorWHITE,LINETHICK2;

AB:=MAX(AA,BB);
AB1:=MIN(AA,BB);
CD:=MAX(CC,DD);
CD1:=MIN(CC,DD);
顶值:=MAX(AB,CD);{四条均线的顶值}
DRAWTEXTABS(650,25,'顶值: '+顶值),ColorWHITE,LINETHICK2;
AD1:=MIN(AB1,CD1);
聚集度:=顶值-AD1;{数值越小,四条均线之间的距离越小，扭结在一起的程度越大}
DRAWTEXTABS(771,25,'聚集度: '+聚集度),ColorWHITE,LINETHICK2;
{CR低位扭成团，买进股票不商量}
{MID := (HIGH+LOW+CLOSE)/3;
CR:SUM(MAX(0,HIGH-REF(MID,1)),N)/SUM(MAX(0,REF(MID,1)-L),N)*100;

MA1:REF(MA(CR,M1),M1/2.5+1);
MA2:REF(MA(CR,M2),M2/2.5+1); 
MA3:REF(MA(CR,M3),M3/2.5+1);
MA4:REF(MA(CR,M4),M4/2.5+1),colorffaa00;
MA5:REF(MA(CR,M5),M5/2.5+1),colorgray;};