飞狐股票公式之箱体王主图

  QUOTE:

  {箱体王}

  DRAWGBK((DATE 》 0),COLORRGB(40,40,173),COLORRGB(1,1,14),1);

  STICKLINE(CLOSE》OPEN,CLOSE,OPEN,8,0),colorAA;

  STICKLINE(CLOSE

  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

  STICKLINE(CLOSE

  STICKLINE(CLOSE

  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

  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

  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;