奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 問題交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=28)
-- 開盤時缺口 中值及上下緣 (http://www.chiefox.com.tw/bbs/showthread.php?threadid=23804)

開盤時缺口 中值及上下緣

版主大大你好

開盤時缺口處理 我不悔處理

1. 若沒有缺口, 不處理的判讀
2. 缺口畫線處理, 缺口中值及上下緣



// ================= 隔日線 =====================================
IF DATATYPE =1 THEN BEGIN //1分K
DECK:=Tradedate<>ref(Tradedate,1) or Time = 84600;
End;
IF DATATYPE =2 THEN BEGIN //5分K
DECK:=Tradedate<>ref(Tradedate,1) or Time = 85000;
End;
IF DATATYPE =3 THEN BEGIN //15分K
DECK:=Tradedate<>ref(Tradedate,1) or Time=90000;
End;
IF DATATYPE =4 THEN BEGIN //30分K
DECK1:=Tradedate<>ref(Tradedate,1) or Time=91500;
End;
IF DATATYPE =5 THEN BEGIN //60分K
DECK:=Tradedate<>ref(Tradedate,1) or Time=94500;
End;

DESP:=BARSLAST(DECK);
IF DATAPERIOD < 7 THEN BEGIN // <60分K
VERTLINE(DECK) Color008888 linedot; //標示換交易日(垂直分隔線)
KLINE(O,H,L,C,0);
END;
// ======================================================================

缺口中線 REF(HIGH,DESP) +(REF(LOW,DESP-1))) / 2 , colorFF3300 , LINETHICK2; // 藍色
開盤缺口上緣 : REF(LOW,DESP-1) COLORFFFFFF ;
開盤缺口下緣 : REF(HIGH,DESP) COLORFFFFFF;
DRAWTEXT(DECK,缺口中線,' 缺口中線 = ')colorFF3300, LINETHICK1,ALIGN2 PXUP35;
DRAWNUMBER(DECK,缺口中線,缺口中線,0) ALIGN1 , colorFFFFFF PXUP35;
DRAWNUMBER(ISLASTBAR,缺口中線,缺口中線,0) SHIFT1,colorFF3300;
DRAWTEXT(ISLASTBAR,缺口中線,'缺口中線') SHIFT5,colorFF3300;

EXPLAINEX(1>0,'缺口中線= ',缺口中線,0,0) COLORFFFFFF;

//************************************************************************

我寫會不對 如圖

回覆: 開盤時缺口 中值及上下緣

引用:

---

最初由 ivancclai 發表
版主大大你好

開盤時缺口處理 我不悔處理

1. 若沒有缺口, 不處理的判讀
2. 缺口畫線處理, 缺口中值及上下緣



// ================= 隔日線 =====================================
IF DATATYPE =1 THEN BEGIN //1分K
DECK:=Tradedate<>ref(Tradedate,1) or Time = 84600;
End;
IF DATATYPE =2 THEN BEGIN //5分K
DECK:=Tradedate<>ref(Tradedate,1) or Time = 85000;
End;
IF DATATYPE =3 THEN BEGIN //15分K
DECK:=Tradedate<>ref(Tradedate,1) or Time=90000;
End;
IF DATATYPE =4 THEN BEGIN //30分K
DECK1:=Tradedate<>ref(Tradedate,1) or Time=91500;
End;
IF DATATYPE =5 THEN BEGIN //60分K
DECK:=Tradedate<>ref(Tradedate,1) or Time=94500;
End;

DESP:=BARSLAST(DECK);
IF DATAPERIOD < 7 THEN BEGIN // <60分K
VERTLINE(DECK) Color008888 linedot; //標示換交易日(垂直分隔線)
KLINE(O,H,L,C,0);
END;
// ======================================================================

缺口中線 :(REF(HIGH,DESP) +(REF(LOW,DESP-1))) / 2 , colorFF3300 , LINETHICK2; // 藍色
開盤缺口上緣 : REF(LOW,DESP-1) COLORFFFFFF ;
開盤缺口下緣 : REF(HIGH,DESP) COLORFFFFFF;
DRAWTEXT(DECK,缺口中線,' 缺口中線 = ')colorFF3300, LINETHICK1,ALIGN2 PXUP35;
DRAWNUMBER(DECK,缺口中線,缺口中線,0) ALIGN1 , colorFFFFFF PXUP35;
DRAWNUMBER(ISLASTBAR,缺口中線,缺口中線,0) SHIFT1,colorFF3300;
DRAWTEXT(ISLASTBAR,缺口中線,'缺口中線') SHIFT5,colorFF3300;

EXPLAINEX(1>0,'缺口中線= ',缺口中線,0,0) COLORFFFFFF;

//************************************************************************

我寫會不對 如圖

---

謝謝版主大大

測試正常 是臥需要的 謝謝你