通达信一幅无K线的主图源码分享重心线操盘月箱体

无K线的主图，重心线操盘，月箱体

K线越看越眼花，不要K线了。

{无K线主图，主图替换}

AQ:=O#MONTH;
 B:=C#MONTH;
 AA0:=H#MONTH;
 BB0:=L#MONTH;
 AA1:=REF(H#MONTH,1);
 BB1:=REF(L#MONTH,1);

STICKLINE(B>=AQ,AA0,BB0,4,0),COLOR127248;
 STICKLINE(B<AQ,AA0,BB0,4,0),COLOR722424;
 ZX:=(6*C+2*O+H+L)/10;
 NOTEXT1:ZX,COLORFFD0D0,LINETHICK2;

现价:DRAWLINE(CURRBARSCOUNT=TOTALBARSCOUNT,CONST(C),CURRBARSCOUNT=1,C,3),COLORFFD0D0;
 DRAWICON(ISLASTBAR=1 AND C>REF(C,1),C,38);
 DRAWICON(ISLASTBAR=1 AND C<REF(C,1),C,39);
 EBBI:=WMA(ZX,24);
月箱:=CROSS(ZX,EBBI) AND AA1-1.05*BB1>0 AND AA0-1.3*BB0<0 AND EVERY(BB0>=BB1,4) AND (AA1-ZX)>0.73*(AA1-BB1),NODRAW;
 JU:=ABS(ZX-EBBI);
靠近:=JU<=LLV(JU,5);
加仓:=C>EBBI AND EXIST(月箱,10) AND REF(靠近,1) AND ZX>REF(ZX,1),COLORYELLOW;
 DRAWICON(加仓,ZX,23);
 DRAWICON(月箱,L,5);

VAR0:=REF(ZX,1);
 VAR2:=(100-((80*(HHV(HIGH,16)-CLOSE))/(HHV(HIGH,16)-LLV(LOW,16))));
 VAR3:=(100-MA(((100*(HHV(HIGH,8)-CLOSE))/(HHV(HIGH,8)-LLV(LOW,8))),48));
 VAR12:=SMA(ABS(LOW-VAR0),13,1)/SMA(MAX(LOW-VAR0,0),10,1);
 VAR13:=EMA(VAR12,10);
 VAR14:=LLV(LOW,33);
 VAR15:=EMA(IF(LOW<=VAR14,VAR13,0),3);
试买:=EXIST(VAR15>REF(VAR15,1),20) AND CROSS(VAR2,MA(VAR3,6));
 DRAWTEXT(试买,L,'试买'),COLORMAGENTA;

上轨:=WMA(SMA(HHV(HIGH,16),4,1),2);
出轨:=HIGH>1.02*上轨 AND H=HHV(H,3);
落袋:=REF(出轨,1)=1 AND H<=REF(H,1) AND C<O;
 DRAWICON(落袋,H,9);
 DRAWTEXT(落袋,ZX,'落袋'),COLORWHITE;