飛狐股票公式之箱體王主圖

　　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;

[1] [2] 下一頁