Z1:=STRCAT(HYBLOCK,' ');
Z2:=STRCAT(Z1,DYBLOCK);
Z3:=STRCAT(Z2,' ');
DRAWTEXT_FIX(ISLASTBAR,0,0,0,STRCAT(Z3,GNBLOCK)),COLORYELLOW;
DRAWKLINE(H,O,L,C);
高量1:=V>=REF(V,1)*2.8;
百日高量:=VOL>=HHV(V,100);
高量:=高量1 OR 百日高量;
STICKLINE(高量AND C>O,OPEN,CLOSE,-1,1),COLORYELLOW;
百日高量阴:=VOL>=HHV(V,100) AND C<O;
STICKLINE(百日高量阴,OPEN,CLOSE,-1,1),COLORGREEN;
高量顶:DRAWLINE(高量,H,REF(高量,1),REF(H,1),1),COLORLIBLUE,LINETHICK1;
高量底:DRAWLINE(高量,L,REF(高量,1),REF(L,1),1),COLORLIRED,LINETHICK1;
DRAWTEXT(ISLASTBAR,高量顶,STRCAT((''),CON2STR(高量顶,2))),COLORLIBLUE;
DRAWTEXT(ISLASTBAR,高量底,STRCAT((''),CON2STR(高量底,2))),COLORLIRED;
NE:=IF(NAMELIKE('S') OR NAMELIKE('*S'),0.05,0.1);
涨停:=C/REF(C,1)-1>=NE-0.01/REF(C,1) AND C=H AND PERIOD=5;
STICKLINE(涨停,C,O,-1,1),COLORMAGENTA;
跌停:=REF(C,1)/C-1>=NE-0.01/REF(C,1) AND L=C AND PERIOD=5;
STICKLINE(跌停,C,O,-1,1),COLORBLUE;
曾涨停:=H/REF(C,1)-1>=NE-0.01/REF(C,1) AND C<H AND PERIOD=5;
STICKLINE(曾涨停,H-(H-MAX(O,C)),H,0,0),COLORFF00B3;
曾跌停:=REF(C,1)/L-1>=NE-0.01/REF(C,1) AND L<C AND PERIOD=5;
STICKLINE(曾跌停,L+(MIN(O,C)-L),L,0,0),COLORYELLOW;
涨停开盘:=O/REF(C,1)-1>=NE-0.01/REF(C,1) AND O=H AND PERIOD=5;
STICKLINE(涨停开盘,C+(O-C)*0.9,O,1,0),COLORFF00F5;
跌停开盘:=REF(C,1)/O-1>=NE-0.01/REF(C,1) AND L=O AND PERIOD=5;
STICKLINE(跌停开盘,C-(C-O)*0.9,O,1,0),COLOR00FF00;
DRAWTEXT(涨停 AND PERIOD=5,H*1.02,'涨'), COLORFF00FF;
DRAWTEXT(跌停 AND PERIOD=5,H*1.02,'跌'),COLORGREEN;
DRAWTEXT(曾涨停 AND PERIOD=5,H+0.2,'炸'),COLORGREEN;
DRAWTEXT(曾跌停 AND PERIOD=5,L-0.1,'撬'),COLORYELLOW;
{庄家成本}
AL0:=SUMBARS(V,CAPITAL*1);
AL1:=SUM(COST(10),AL0)/AL0;
AL2:=SUM(COST(20),AL0)/AL0;
AL3:=SUM(COST(30),AL0)/AL0;
AL4:=SUM(COST(40),AL0)/AL0;
AL5:=SUM(COST(50),AL0)/AL0;
庄家成本2:=(5*AL1+4*AL2+3*AL3+2*AL4+AL5)/15,COLOR0080FF,DOTLINE;
庄家成本1:REFDATE(庄家成本2,DATE),COLORWHITE,DOTLINE;
DRAWTEXT(CURRBARSCOUNT=50,庄家成本1,STRCAT('庄本:',CON2STR(庄家成本1,2))),COLORWHITE;
{STICKLINE(CROSS(C,庄家成本1)AND V>REF(V,1),L,L,5,0),COLORWHITE;};
{5日插阳}
MA5:=MA(C,5);
STICKLINE(MA5<C AND MA5>O,C,C,-1,0),COLORYELLOW;
{洗盘}
XP1:=V=HHV(V,60) AND C<O;
XP2:=V<REF(V,1) AND H/C>1.04 AND C<O AND EXIST(H>HHV(L,60),5);
STICKLINE(XP2,O,C,1,1), COLORGREEN;
{快逃绿箭头}
VAR30:=PEAKBARS(3,15,1)<10;
VAR50:=IF(VAR30=1,2,0);
顶1:= IF(VAR50=2,2,0);
顶A:=IF(顶1>REF(顶1,1),2,0),COLORGREEN;
DRAWICON(顶A=2,H*1.02,2);
{买点红箭头}
AR1:=EMA(OPEN,7);
AR2:=EMA(AR1,21);
AR3:=CROSS(AR1,AR2);
AR5:=EMA(SMA((CLOSE-LLV(LOW,20))/(HHV(HIGH,16)-LLV(LOW,20))*100,8,1),3);
短买:=IF(TROUGHBARS(1,6,1)=0 AND HIGH>LOW+0,2,0),COLORRED;
DRAWICON(短买=2,L*0.98,1);
{断量}
MV5:=MA(V,5);
破5:=CROSS(MV5,V);
断量:DRAWLINE(破5 AND CURRBARSCOUNT<9,C,REF(破5,1),REF(C,1),1),COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=1,断量,STRCAT((''),CON2STR(断量,2))),COLORWHITE;
STICKLINE(CROSS(C,断量)AND V>REF(V,1),L,L,5,0),COLORWHITE;
{百日高低量}
百日低量:= MV5<=LLV(MV5,100) AND V>0 AND BARSCOUNT(V)>=100;
STICKLINE(百日高量,C,O,0,0),COLORYELLOW;
STICKLINE(百日低量,C,O,-1,1),COLORGRAY;
高阳:IF(CURRBARSCOUNT<=CONST(REF(BARSLAST(FILTER(TOPRANGE(V)>=20 AND C>=O AND C>=REF(C,1),1)),1)+1)+1,CONST(REF(REF(C,BARSLAST(FILTER(TOPRANGE(V)>=20 AND C>=O AND C>=REF(C,1),1))),REF(BARSLAST(TOPRANGE(V)>=20 AND C>=O AND C>=REF(C,1)),1)+1)),DRAWNULL),COLORYELLOW,LINETHICK1;
高阴:IF(CURRBARSCOUNT<=CONST(REF(BARSLAST(TOPRANGE(V)>=20 AND C<O AND L<=REF(H,1)),1)+1)+1,CONST(REF(REF(O,BARSLAST(FILTER(TOPRANGE(V)>=20 AND C<O AND L<=REF(H,1),3))),REF(BARSLAST(TOPRANGE(V)>=20 AND C<O AND L<=REF(H,1)),1)+1)),DRAWNULL),COLORBLUE ,LINETHICK1;
{DRAWTEXT(REF(O,BARSLAST(FILTER(TOPRANGE(V)>=20 AND C<O AND L<=REF(H,1),3)))>0 AND CURRBARSCOUNT=1,REF(O,BARSLAST(FILTER(TOPRANGE(V)>=20 AND C<O AND L<=REF(H,1),3))),'高量阴') DRAWABOVE COLORBLUE;
DRAWTEXT(REF(C,BARSLAST(FILTER(TOPRANGE(V)>=20 AND C>=O AND C>=REF(C,1),1)))>0 AND CURRBARSCOUNT=1,REF(C,BARSLAST(FILTER(TOPRANGE(V)>=20 AND C>=O AND C>=REF(C,1),1))),'高量阳') DRAWABOVE COLORLIMAGENTA;};
