求助

pxr019225

STICKLINE(ISEQUAL AND CLOSE>=REF(CLOSE,1),CLOSE,CLOSE,7,1),COLOR5454ff;
STICKLINE(ISEQUAL AND CLOSE>=REF(CLOSE,1),HIGH,LOW,0,0),COLOR5454ff;
STICKLINE(ISEQUAL AND CLOSE<REF(CLOSE,1),CLOSE,CLOSE,7,1),COLORFa8000;
STICKLINE(ISEQUAL AND CLOSE<REF(CLOSE,1),HIGH,LOW,0,0),COLORFa8000;
STICKLINE(ISUP ,HIGH,LOW,0,0),COLOR5454ff;
STICKLINE(ISUP ,CLOSE,OPEN,7,1),COLOR5454ff;
STICKLINE(ISDOWN ,HIGH,LOW,0,0),COLORFa8000;
STICKLINE(ISDOWN ,OPEN,CLOSE,7,0),COLORFa8000;
{FH:=HHV(HIGH,3);
FL:=LLV(LOW,3);}
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];
        BOXL[J]:=FL[I-LC];
      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];
            BOXL[J]:=FL[I-LC];
          END;
          HC:=-1;LC:=0;
        END ELSE BEGIN
          BOXH[I]:=FH[I-HC];
          BOXL[I]:=FL[I-LC];
        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];
              BOXL[J]:=FL[I-LC+1];
            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),color008293;//箱顶
PARTLINE(boxl and boxl=REF(boxl,1),(boxh+boxl)/2),LINEDOT,COLOR008293;//中线
PARTLINE(boxl and boxl=REF(boxl,1),boxl),color008293;//箱底
STICKLINE((signal||REFX(buy||sell,1))&&boxh,boxh,boxl,0.1,0),color008293;//箱体左右

技术006

你这个if嵌套混乱。需要你自己对照自己的思路逐个梳理。