|
再次請教
引用:
最初由 alpha 發表
http://www.chiefox.com.tw/bbs/showt...=&threadid=7679
CM : MA(C, M), COLORGREEN;
//// 第 1 根
plus_1 := CROSS(C , CM);
hh_1 := REF(H, BARSLAST(plus_1));
DRAWTEXT(plus_1, L, '1'), COLORGREEN, PXDN35, ALIGN0;
//// 第 2 根，立即突破
plus_2 := C > hh_1;
plus_2 := plus_2 AND SUM(plus_2, BARSLAST(plus_1)+1)=1 AND Not(plus_1);
hh_2 := REF(H, BARSLAST(plus_2));
DRAWTEXT(plus_2, L, '2'), COLOR0099FF, PXDN45, ALIGN0;
//// 第 2 根，非立即突破，12 區間高點
square_wave_12 := BARSLAST(plus_1) < BARSLAST(plus_2);
square_wave_12 := IF(BARPOS >= LBOUND(square_wave_12), square_wave_12, 1);
hh_在區間12 := HHV(H, BARSLAST(plus_1+plus_2)+1);
hh_在區間12 := IF(square_wave_12, hh_在區間12, REF(REF(hh_在區間12, 1), BARSLAST(plus_2)));
STICKLINE(1, hh_在區間12, hh_在區間12, 5, 0), COLORMAGENTA;
新_plus_2 := C > hh_在區間12;
新_plus_2 := 新_plus_2 AND SUM(新_plus_2, BARSLAST(REF(plus_1,1))+1)=1;
DRAWTEXT(新_plus_2, H, '2'), COLORCYAN, PXUP95, ALIGN0;
新_hh_2 := REF(H, BARSLAST(新_plus_2));
//// 第 3 根，立即突破
plus_3 := C > 新_hh_2;
plus_3 := plus_3 AND SUM(plus_3, BARSLAST(REF(plus_1 + 新_plus_2, 1))+1)=1
AND BARSLAST(plus_1) > BARSLAST(新_plus_2);
DRAWTEXT(plus_3, L, '3'), COLORFF99FF, PXDN55, ALIGN0;
//// 第 3 根，非立即突破，23 區間高點
square_wave_23 := (BARSLAST(新_plus_2) < BARSLAST(plus_3));
square_wave_23 := IF(BARPOS >= LBOUND(square_wave_23), square_wave_23, 1);
hh_在區間23 := HHV(H, BARSLAST(新_plus_2+plus_3)+1);
hh_在區間23 := IF(square_wave_23, hh_在區間23, REF(REF(hh_在區間23, 1), BARSLAST(plus_3)));
STICKLINE(1, hh_在區間23, hh_在區間23, 5, 0), COLORGREEN;
新_plus_3 := C > hh_在區間23;
新_plus_3 := 新_plus_3 AND SUM(新_plus_3, BARSLAST(plus_1 + 新_plus_2)+1)=1
AND BARSLAST(plus_1) > BARSLAST(新_plus_2) AND NOT(新_plus_2);
DRAWTEXT(新_plus_3, H, '3'), COLORCYAN, PXUP95, ALIGN0;
//// 繪圖
DRAWICON(新_plus_3, L, 4), PXDN105;
想修正一個小地方：
==舊觀念==
1 突破均線
2 突破 1 的高，並重新定義新高，待 3 突破。
==新觀念==
1 突破均線
2 突破 1 的高，但只要遠離 1 四根k線 (含) 才突破 1 高，當成 3。
有附圖，感謝
issac_ho 附帶上了此圖片:
|
2008-02-26 20:21
