SMH := EMA(EMA(H,25),25);
SML := EMA(EMA(L,25),25);
CHW := SMH - SML;
LOB := SML - CHW;
LOM := EMA(LOB,25);
DRAWBAND(LOB,RGB(55,0,0),LOM,RGB(0,91,0));
DRAWKLINE(H,O,L,C);
STICKLINE(LOB>L AND LOB< H,LOB,MIN(MIN(O,C),LOB),2,0),COLORYELLOW;
STICKLINE(LOB>MIN(C,O) AND LOB< MAX(C,O),LOB,MIN(O,C),2,0),COLORYELLOW;
STICKLINE(LOB>H,O,C,2,0),COLORYELLOW;
STICKLINE(LOB>H,H,L,0,0),COLORYELLOW;
PCH := C-REF(C,1);
ACH := Abs(PCH);
MOM := 100*EMA(EMA(PCH,6),6)/EMA(EMA(ACH,6),6);
ISLOW := LLV(MOM,2)=LLV(MOM,7);
ISOV := COUNT(MOM< 0,2)>0;
GOLD := crOSS(MOM,MA(MOM,2));
MID := (H+L+C)/3;
VF := vol/IF(H=L,4,H-L);
BVS := IF(CAPITAL=0,VF*(MID-MIN(C,O)),VF*IF(H=L,1,(MIN(O,C)-L)));
BVB := IF(CAPITAL=0,VF*(MIN(O,C)-L),VF*IF(H=L,1,(MID-MIN(C,O))));
SVS := IF(CAPITAL=0,VF*(H-MAX(O,C)),VF*IF(H=L,1,(H-MAX(O,C))));
SVB := IF(CAPITAL=0,VF*(MAX(C,O)-MID),VF*IF(H=L,1,(MAX(C,O)-MID)));
ddx := ((BVS+BVB)-(SVS+SVB))/IF(CAPITAL=0,10000,10000);
D1 := SMA(IF(C>=REF(C,1),DDX,-DDX/100),2,1);
D2 := SMA(D1*120/FROMOPEN*5,2,1);
ISLASTF := CURRBARSCOUNT=1 AND C< REF(C,1);
PRED := REF(D2,1)-IF(ISLASTF,1,0);
SIG2 := C>O AND PRED< 0.02 AND MA(C,5)>MA(C,60) AND C/REF(C,1)>=1.02;
ISPH := REF(H,10)=HHV(H,21);
FTH := FILTER(ISPH,10);
BSH := BACKSET(FTH,11);
FNH := FILTER(BSH,10);
PRH := REF(H,BARSLAST(FNH));
DBV := VOL/REF(VOL,1)>=1.9;
BRH := CROSS(C,PRH);
SWH := SMA(H,21,2)*1.05;
SWL := SMA(L,21,2)*0.95;
SWC := SMA(C,2,1);
LDL := IF(CROSS(SWC,SWH),SWH*1.10,SWL);
ACTL := LDL>SWL;
LIMP := ZTPRICE(REF(C,1),0.1);
ISLIM := C>=LIMP-0.01 AND C=H;
STICKLINE(ACTL,O,C,3,0),COLOR0000FF;
STICKLINE(ISLIM,O,C,3,0),COLOR00FFFF;
STICKLINE(ACTL AND ISLIM,O,(O+C)/2,3,0),COLOR0000FF;
AVGP := ((L+H)+(C*2))/4;
EAVG := EMA(AVGP,14);
roc := (EAVG-REF(EAVG,1))/REF(EAVG,1)*100;
BSZ := BARSLAST(CROSS(ROC,0));
BSZAN := (C-REF(C,1))/REF(C,1)*100< -5;
DRAWLINE(BSZAN,H,REF(BSZAN,1),REF(H,1),1),COLORWHITE,DOTLINE;
MA5 := MA(C,5);
MA60 := MA(C,60);
DGL := (EMA(C,10)*7+EMA(C,20)*3)/10;
CHPL := DMA(EMA(C,20),MAX(1,100*(SUM(VOL,5)/(3*CAPITAL))));
DR5 := (REF(C,3)-C)/REF(C,3)*100>5;
FTD := FILTER(DR5,10);
BSD := BARSLAST(FTD);
RH1 := REF(H,BSD+2);
RH2 := REF(H,BSD+1);
RH3 := REF(H,BSD);
MAXH := MAX(MAX(RH1,RH2),RH3);
CONDREB := (C-REF(C,1))/REF(C,1)*100>5;
CTM := BSD< 150;
CS1 := (O-MAXH)/MAXH*100< 30;
CS2 := (C-LLV(L,BSD))/LLV(L,BSD)*100< 50;
CS3 := (C-REF(O,5))/REF(O,5)*100< 30;
CVL := VOL/MA(VOL,5)< 3.5;
CLT := (C-REF(C,89))/REF(C,89)*100< 80;
VIOBR := CONDREB AND CTM AND CS1 AND CS2 AND CS3 AND CVL AND CLT;
FTVIO := FILTER(VIOBR,15);
DEV1 := ((C-MA60)/MA60)< 0.1;
DEV2 := ((C-MA5)/MA5)< 0.3;
ISPLT := DEV1 AND DEV2;
PLTBR := ((ISPLT=0) AND (REF(ISPLT,1)=1) AND (REF(COUNT(ISPLT,10)=10,1)=1))*-0.1;
MONBR := PLTBR=-0.1;
BAMDA := FTVIO OR MONBR;
STROP := DYNAINFO(7)/REF(C,1)>1.05 AND DYNAINFO(7)/O>1.05;
ACTVO := (VOL/REF(VOL,1)>1.2 AND C>O) OR (L>REF(H,1) AND O>C AND VOL/REF(VOL,1)>1.2);
LDRMODE := BAMDA AND C/REF(C,1)>1.095 AND ACTVO AND STROP;
DRAWTEXT(SIG2 AND L< LOB,L,'←龙头异动'),COLORRED;
DRAWTEXT(DBV AND BRH,H*0.97,'←右侧突破'),COLORYELLOW;
DRAWICON(LDRMODE,L,9);
DRAWTEXT(LDRMODE,L*0.99,'★主力筹码'),COLORYELLOW;
STICKLINE(LDRMODE,O,C,1,0),COLORMAGENTA;
