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;
（南方財富網www.mmokapan.cn）