在公式内增加主力，游资，散户，大户

DH:=CONST(REF(HHV(H,周期),1));

DL:=CONST(REF(LLV(L,周期),1));

DC:=(DH+DL)/2;

DK:CONST((DH+DL+DC)/3);

多空平衡点:CONST(DK),DOTLINE,COLORMAGENTA;

第一支撑:CONST(2*DK-DH),DOTLINE,COLORGREEN;

第二支撑:CONST(DK-(DH-DL)),DOTLINE,COLORGREEN;

第三支撑:CONST(DL-(DH-DK)*2),DOTLINE,COLORGREEN;

第一阻力:CONST(DK*2-DL),DOTLINE,COLORRED;

第二阻力:CONST(DK+(DH-DL)),DOTLINE,COLORRED;

第三阻力:CONST((DK*2-DL)+(DH-DL)),DOTLINE,COLORRED;

DRAWTEXT(CURRBARSCOUNT=文字位置,多空平衡点,STRCAT('平衡点',CON2STR(多空平衡点,2))),DRAWABOVE,COLORMAGENTA;

DRAWTEXT(CURRBARSCOUNT=文字位置,第一支撑,STRCAT('第1支撑',CON2STR(第一支撑,2))),DRAWABOVE,COLORLIBLUE;

DRAWTEXT(CURRBARSCOUNT=文字位置,第二支撑,STRCAT('第2支撑',CON2STR(第二支撑,2))),DRAWABOVE,COLORLIBLUE;

DRAWTEXT(CURRBARSCOUNT=文字位置,第三支撑,STRCAT('第3支撑',CON2STR(第三支撑,2))),DRAWABOVE,COLORLIBLUE;

DRAWTEXT(CURRBARSCOUNT=文字位置,第一阻力,STRCAT('第1阻力',CON2STR(第一阻力,2))),DRAWABOVE,COLORRED;

DRAWTEXT(CURRBARSCOUNT=文字位置,第二阻力,STRCAT('第2阻力',CON2STR(第二阻力,2))),DRAWABOVE,COLORRED;

DRAWTEXT(CURRBARSCOUNT=文字位置,第三阻力,STRCAT('第3阻力',CON2STR(第三阻力,2))),DRAWABOVE,COLORRED;

CG:WMA(C,N),LINETHICK2,COLORRED;

FL:=HHV(CG,5);

FS:=CG-(FL-CG);

IF(CG<>FS,CG,DRAWNULL),COLORGREEN,LINETHICK2;

AMV0:=VOL*(O+C+H+L)/4;

NOTEXT势:EMA(AMV0,21)/EMA(VOL,21),LINETHICK1,COLORLIGREEN;

NOTEXT压:6*HHV(NOTEXT势,2)-5*NOTEXT势,LINETHICK1,COLORYELLOW;

NOTEXT托:2*NOTEXT势-NOTEXT压,COLORMAGENTA,LINETHICK1;

IF(NOTEXT势<>NOTEXT托,NOTEXT托,DRAWNULL),COLORLICYAN,LINETHICK1;

{NOTEXT压=NOTEXT托 AND REF(NOTEXT压,1)>REF(NOTEXT托,1);}

A1:=EMA(AMV0,21)/EMA(VOL,21);

A2:=6*HHV(A1,2)-5*A1;

A3:=2*A1-A2;

A4:=A1=A3;

XD:REF(A3>C AND A2>A3,1) AND C>O AND A4,NODRAW;

支撑线:=(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4,DOTLINE,COLORLIGRAY LINETHICK1;

VAR6:=(( ABS((OPEN-CLOSE))/(HIGH-LOW))*VOL);

VAR7:=(( (HIGH-IF((CLOSE>OPEN),CLOSE,OPEN))/(HIGH-LOW))*VOL);

VAR8:=(( (IF((CLOSE>OPEN),OPEN,CLOSE)-LOW)/(HIGH-LOW))*VOL);

NOTEXT加仓:VAR6>=VAR7 AND VAR6>=VAR8 AND CLOSE>OPEN,NODRAW,COLORRED;

NOTEXT减仓:VAR6>=VAR7 AND VAR6>=VAR8 AND CLOSE<OPEN,NODRAW,COLORBLUE;

NOTEXT洗盘:VAR8>VAR6 AND VAR8>VAR7,NODRAW,COLORWHITE;

NOTEXT高抛:VAR7>VAR6 AND VAR7>VAR8,NODRAW,COLORMAGENTA;

NOTEXT地量:{VAR9>2 AND }VOL<MA(VOL,5)/2,NODRAW,COLORGREEN;

STICKLINE(NOTEXT加仓,O,C,1,0),COLORRED;

STICKLINE(NOTEXT洗盘,O,C,1,0),COLORWHITE;

STICKLINE(NOTEXT减仓,O,C,1,0),COLORCC6666;

STICKLINE(NOTEXT高抛,O,C,1,0),COLORMAGENTA;

STICKLINE(NOTEXT地量,O,C,1,0),COLORGREEN;

JJ:=(3*C+H+L+O)/6;

VAR1:=(8*JJ+7*REF(JJ,1)+6*REF(JJ,2)+5*REF(JJ,3)+4*REF(JJ,4)+3*REF(JJ,5)+2*REF(JJ,6)+REF(JJ,8))/36;

TJ1:=VOL=HHV(VOL,10) AND VOL>2*REF(VOL,1) AND CLOSE>VAR1 AND C>REF(C,1);

LJL:=FILTER(TJ1,5);

DRAWTEXT_FIX(1,0.0,0.0,0,'蓝芯-低位深度洗盘或高位出货'),COLORCC6666,LINETHICK1;

DRAWTEXT_FIX(1,0.00,0.04,0,'白芯-轻度洗盘'),COLORWHITE,LINETHICK1;

DRAWTEXT_FIX(1,0.00,0.10,0,'绿芯-出现相对地量'),COLORGREEN,LINETHICK1;

DRAWTEXT_FIX(1,0.00,0.16,0,'粉芯-在调仓做差价'),COLORFF00FF,LINETHICK1;

DRAWTEXT_FIX(1,0.00,0.22,0,'红芯-积极吸筹'),COLORRED,LINETHICK1;

DRAWTEXT_FIX(1,0.00,0.28,0,'黄芯-主力扫货'),COLORYELLOW,LINETHICK1;

涨停:=IF(REF(C,1)*1.1-C<0.01 ,1,0);

HD:=COUNT(涨停,13)>=1;

STICKLINE(涨停,OPEN,CLOSE,4,0),COLORRED;

STICKLINE(涨停,OPEN,CLOSE,3,0),COLORYELLOW;

DRAWTEXT(XD,LOW*0.95,'   粘合上涨'),COLORYELLOW;

DRAWICON(XD,(L * 0.97),11);

STICKLINE(XD,C,O,3,0 ),COLOR00AAFF;

STICKLINE(XD,C,O,2.1,0 ),COLOR00BBFF;

STICKLINE(XD,C,O,1.5,0 ),COLOR00CCFF;

STICKLINE(XD,C,O,1,0 ),COLOR00DDFF;

STICKLINE(XD,C,O,0.6,0 ),COLOR00EEFF;

STICKLINE(XD,C,O,0.2,0 ),COLOR00FFFF;

DIFF:=EMA(CLOSE,12)-EMA(CLOSE,26);

DEA:=EMA(DIFF,9);

MACD:=2*(DIFF-DEA);

平空开多:CROSS(MACD,0),COLORRED,NODRAW;

平多开空:CROSS(0,MACD),COLORGREEN,NODRAW;

DRAWICON(平空开多,L,34);

SELL_SELLSHORT(平多开空,H);