總版主您好，今有公式問題想請版主指導。

此公式的目的是將週K跟月K實體繪製在當前週期K線圖之中。

請見下圖：


但是一直有個問題就是，有些實體與實體的邊界處會凸出來，有些則不會。
想請教總版主，應該要如何修正這個問題呢（讓邊界處不要凸出來），謝謝∼



公式如下：



INPUT : 週_ONOFF(1,0,3,1) ;
INPUT : 月_ONOFF(0,0,3,1) ;


//底下是週的開高低收數據
WW := FLOOR((DATETOD1970(date)-3)/7);
WLCK := barpos=1 or WW<>ref(WW,1);
WRCK := barpos=datacount or refx(WLCK,1);
WLCKSP := barslast(WLCK);
WO:= ref(O,WLCKSP);
WH : HHV(H,WLCKSP+1) linethick;
WH := SETVAL(WRCK,WH,-WLCKSP,WH);
WL : LLV(L,WLCKSP+1) linethick;
WL := SETVAL(WRCK,WL,-WLCKSP,WL);
WC := SETVAL(WRCK,C,-WLCKSP,C);
SWW := barpos=1 or WW=ref(WW,1);


MLCK := barpos=1 or Month<>ref(Month,1);
MM := sum(MLCK,0);
MRCK := barpos=datacount or refx(MLCK,1);
MLCKSP := barslast(MLCK);
MO := ref(O,MLCKSP);
MH : HHV(H, MLCKSP+1) linethick;
MH := SETVAL(MRCK, MH, -MLCKSP, MH);
ML : LLV(L,MLCKSP+1) linethick;
ML := SETVAL(MRCK,ML,-MLCKSP,ML);
MC := SETVAL(MRCK,C,-MLCKSP,C);
SMM := barpos=1 or MM=ref(MM,1);


//繪製月實體
IF 月_ONOFF = 1 THEN BEGIN
FILLRGN(SMM and MC >= MO,MC,MO),colorB9DAFF ;
FILLRGN(SMM and MC < MO,MC,MO),color4AFFB7;
END ;

//繪製週實體
IF 週_ONOFF = 1 THEN BEGIN
FILLRGN(SWW and WC > WO, WC, WO), ColorA8A6FF;
FILLRGN(SWW and WC <= WO, WC, WO), ColorFFFF80;
END ;


KLINE(O,H,L,C,0);

引用:

---

最初由 expexp 發表
總版主您好，今有公式問題想請版主指導。

此公式的目的是將週K跟月K實體繪製在當前週期K線圖之中。

請見下圖：


但是一直有個問題就是，有些實體與實體的邊界處會凸出來，有些則不會。
想請教總版主，應該要如何修正這個問題呢（讓邊界處不要凸出來），謝謝∼



公式如下：



INPUT : 週_ONOFF(1,0,3,1) ;
INPUT : 月_ONOFF(0,0,3,1) ;


//底下是週的開高低收數據
WW := FLOOR((DATETOD1970(date)-3)/7);
WLCK := barpos=1 or WW<>ref(WW,1);
WRCK := barpos=datacount or refx(WLCK,1);
WLCKSP := barslast(WLCK);
WO:= ref(O,WLCKSP);
WH : HHV(H,WLCKSP+1) linethick;
WH := SETVAL(WRCK,WH,-WLCKSP,WH);
WL : LLV(L,WLCKSP+1) linethick;
WL := SETVAL(WRCK,WL,-WLCKSP,WL);
WC := SETVAL(WRCK,C,-WLCKSP,C);
SWW := barpos=1 or WW=ref(WW,1);


MLCK := barpos=1 or Month<>ref(Month,1);
MM := sum(MLCK,0);
MRCK := barpos=datacount or refx(MLCK,1);
MLCKSP := barslast(MLCK);
MO := ref(O,MLCKSP);
MH : HHV(H, MLCKSP+1) linethick;
MH := SETVAL(MRCK, MH, -MLCKSP, MH);
ML : LLV(L,MLCKSP+1) linethick;
ML := SETVAL(MRCK,ML,-MLCKSP,ML);
MC := SETVAL(MRCK,C,-MLCKSP,C);
SMM := barpos=1 or MM=ref(MM,1);


//繪製月實體
IF 月_ONOFF = 1 THEN BEGIN
FILLRGN(SMM and MC >= MO,MC,MO),colorB9DAFF ;
FILLRGN(SMM and MC < MO,MC,MO),color4AFFB7;
END ;

//繪製週實體
IF 週_ONOFF = 1 THEN BEGIN
FILLRGN(SWW and WC > WO, WC, WO), ColorA8A6FF;
FILLRGN(SWW and WC <= WO, WC, WO), ColorFFFF80;
END ;


KLINE(O,H,L,C,0);

---

謝謝總版主回覆，
有思考過改用 stickline ，但是卡在不知道要如何讓 stickline 繪製出來的 K 棒「置中」。
懇請總版主指導~ 謝謝

引用:

---

最初由 expexp 發表
謝謝總版主回覆，
有思考過改用 stickline ，但是卡在不知道要如何讓 stickline 繪製出來的 K 棒「置中」。
懇請總版主指導~ 謝謝

---

謝謝總版主回覆