{箱体王}
DRAWGBK((DATE > 0),COLORRGB(40,40,173),COLORRGB(1,1,14),1);
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,8,0),colorAA;

STICKLINE(CLOSE<OPEN,CLOSE,OPEN,8,0),color998855;

STICKLINE(CLOSE>OPEN,CLOSE,OPEN,5,0),colorCC;

STICKLINE(CLOSE>OPEN,CLOSE,OPEN,3,0),colorDD;

STICKLINE(CLOSE>OPEN,HIGH,LOW,0,0),colorFF;

STICKLINE(CLOSE<OPEN,CLOSE,OPEN,5,0),colorBBAA77;

STICKLINE(CLOSE<OPEN,CLOSE,OPEN,3,0),colorDDCC99;

STICKLINE(CLOSE<OPEN,HIGH,LOW,0,0),colorFFEEBB;

FH:=HIGH;

FL:=LOW;

SELL:=0*FH;

BUY:=SELL;

SIGNAL:=SELL;

BOXH:SELL,LINETHICK0;

BOXL:SELL,LINETHICK0;

VARIABLE:HC=0,LC=0,BT=FH[1],BB=FH[1];

FOR I=1 TO DATACOUNT DO BEGIN

IF HC>1 THEN BEGIN

IF LC>2 AND BT<=FH[I] THEN BEGIN

BUY[I]:=1;

FOR J=I-1 DOWNTO I-HC DO BEGIN

BOXH[J]:=FH[I-HC],LINETHICK0;

BOXL[J]:=FL[I-LC],LINETHICK0;

END;

HC:=0;

LC:=0;

END;

IF BT>FH[I] THEN BEGIN

IF LC>2 THEN BEGIN

IF BB>=FL[I] THEN BEGIN

SELL[I]:=1;

FOR J=I-1 DOWNTO I-HC DO BEGIN

BOXH[J]:=FH[I-HC],LINETHICK0;

BOXL[J]:=FL[I-LC],LINETHICK0;

END;

HC:=-1;

LC:=0;

END;ELSE BEGIN

BOXH[I]:=FH[I-HC],LINETHICK0;

BOXL[I]:=FL[I-LC],LINETHICK0;

END;

END;

HC:=HC+1;

IF LC>1 THEN BEGIN

IF BB<FL[I] THEN BEGIN

LC:=LC+1;

IF LC=3 THEN BEGIN

SIGNAL[I-HC+1]:=1;

FOR J=I DOWNTO I-HC+1 DO BEGIN

BOXH[J]:=FH[I-HC+1],LINETHICK0;

BOXL[J]:=FL[I-LC+1],LINETHICK0;

END;

END;

END;ELSE

LC:=0;

END;ELSE

IF LC=1 THEN BEGIN

IF BB<FL[I] THEN BEGIN

LC:=LC+1;

END;ELSE

LC:=0;

END;

IF LC=0 AND HC>1 THEN BEGIN

BB:=FL[I];

LC:=LC+1;

END;

END;ELSE BEGIN

HC:=0;

LC:=0;

END;

END;ELSE

IF HC=1 THEN BEGIN

IF BT>FH[I] THEN

HC:=HC+1;ELSE BEGIN

HC:=0;

LC:=0;

END;

END;

IF HC=0 THEN BEGIN

BT:=FH[I];

HC:=HC+1;

END;

END;

PARTLINE(BOXH AND BOXH=REF(BOXH,1),BOXH),LINEDOT,colorFFFF;

PARTLINE(BOXL AND BOXL=REF(BOXL,1),BOXL),LINEDOT,colorFFFF;

STICKLINE((SIGNAL OR REFX(BUY OR SELL,1)) AND BOXH,BOXH,BOXL,0.1,0),LINEDOT,colorFFFF;

DRAWICON(BUY,LOW*0.98,4);

DRAWICON(SELL,HIGH*1.02,5);

A1:=BOXH AND BOXH=REF(BOXH,1);

A2:=REFX(REF(A1=0,1) AND A1=1,1);

A3:=REFX(REF(A1=1,1) AND A1=0,1);

DRAWLINE(A2,BOXL,A3,BOXH,0),colorFF9900;

DRAWLINE(A2,BOXH,A3,BOXL,0),colorFF00;

PARTLINE(BOXH AND BOXH=REF(BOXH,1),(BOXH-BOXL)/2+BOXL),colorFF9900;

STICKLINE((SIGNAL OR REFX(BUY OR SELL,1)) AND BOXH,BOXH,BOXL,0.1,0),LINEDOT,colorFFFF;

ZZ:=BACKSET(REFX(BUY OR SELL,1),BARSLAST(SIGNAL)/2);

ZX:=REFX(REF(ZZ=0,1) AND ZZ=1,1);

DRAWLINE(SIGNAL,BOXH,ZX,BOXL,0),LINEDOT,colorFF00;

DRAWLINE(SIGNAL,BOXH,REFX(BUY OR SELL,1),(BOXH-BOXL)/2+BOXL,0),LINEDOT,colorFF00;

DRAWLINE(SIGNAL,BOXL,ZX,BOXH,0),LINEDOT,colorFF9900;

DRAWLINE(SIGNAL,BOXL,REFX(BUY OR SELL,1),(BOXH-BOXL)/2+BOXL,0),LINEDOT,colorFF9900;

DRAWLINE(SIGNAL,BOXH,ISLASTBAR AND BOXH>BOXL,BOXL,0),colorFF00;

DRAWLINE(SIGNAL,BOXH,ISLASTBAR AND BOXH>BOXL,(BOXH-BOXL)/2+BOXL,0),LINEDOT,colorFF00;

DRAWLINE(SIGNAL,BOXL,ISLASTBAR AND BOXH>BOXL,BOXH,0),colorFF9900;

DRAWLINE(SIGNAL,BOXL,ISLASTBAR AND BOXH>BOXL,(BOXH-BOXL)/2+BOXL,0),LINEDOT,colorFF9900;

ZA:=BACKSET(ISLASTBAR AND BOXH>BOXL,BARSLAST(SIGNAL)/2);

ZB:=REFX(REF(ZA=0,1) AND ZA=1,1);

DRAWLINE(SIGNAL,BOXH,ZB,BOXL,0),LINEDOT,colorFF00;

DRAWLINE(SIGNAL,BOXL,ZB,BOXH,0),LINEDOT,colorFF9900;

amv0:=vol*(o+c)/2;

博杀生命线:=sum(amv0,88)/sum(vol,88),colorff00ff,linethick2;
CG:ma(C,8),colorffcc66,linethick2;
FL:=hhv(CG,2);
博杀持股线:hhv(CG,2),color00ff00;
FS:CG-(FL-CG),coloryellow,linethick2;
DRAWTEXT(BARPOS=SYSPARAM(2),HIGH,'欢迎您使用山水先生优化大师作品系列公式:{ {{箱体王}}(主图)}}(飞狐源码)')align4,COLORYELLOW