奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 問題交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=28)
-- 5分副圖 顯示15分k線的問題請教 (http://www.chiefox.com.tw/bbs/showthread.php?threadid=7938)
由 cgjj 在 2013-07-23 16:52 發表:
回覆: 任意K
引用:
最初由 jery3308 發表
{任意K線}
DRAWGBK(1, COLORRGB(50,50,50),COLORRGB(100,100,100),0);
input:AA(5,1,1000),BB(15,1,1000);
{月--週期K線}
if datacount<BB then exit;
y1:=mod(barpos,BB);
Y2:=if(y1=0,BB-1,y1-1);
Y3:=barslast(Y2=0);
Y4:=barslast(Y2=BB-1);
Y5:=ref(o,Y3);
...............略..............
如何調整周k線從周一起算, 非周二?
月k 從每月一日或每月第一個營業日?
謝謝
您貼的這段公式, 並非以實際的週或月區間來切換K棒
而是採 5 根 和 15 根為一個區間來切割K棒
故不是您所想要的結果
由 jery3308 在 2013-07-23 17:22 發表:
如何改成日周月的K棒?
如何改成日周月的K棒?
由 cgjj 在 2013-07-23 17:36 發表:
回覆: 如何改成日周月的K棒?
引用:
最初由 jery3308 發表
如何改成日周月的K棒?
它畫的是該區間之高低範圍, 並非是K棒
其設計本身就是如此
您的需求與它原設計想法並不相符
故不建議以它為基礎去修改
由 jery3308 在 2013-07-23 17:41 發表:
板主是否有相關程式分享 或者只需周月高低 但期間調整周月正常期間?
由 cgjj 在 2013-07-23 18:25 發表:
引用:
最初由 jery3308 發表
板主是否有相關程式分享 或者只需周月高低 但期間調整周月正常期間?
//週
WW:=FLOOR((DATETOD1970(date)-3)/7);
WLCK:=barpos=1 or WW<>ref(WW,1);
WRCK:=barpos=datacount or refx(WLCK,1);
WLCKSP:=barslast(WLCK);
WH:HHV(H,WLCKSP+1) linethick;
WH:=SETVAL(WRCK,WH,-WLCKSP,WH);
WL:LLV(L,WLCKSP+1) linethick;
WL:=SETVAL(WRCK,WL,-WLCKSP,WL);
//月
MLCK:=barpos=1 or Month<>ref(Month,1);
MM:=sum(MLCK,0);
MRCK:=barpos=datacount or refx(MLCK,1);
MLCKSP:=barslast(MLCK);
MH:HHV(H,MLCKSP+1) linethick;
MH:=SETVAL(MRCK,MH,-MLCKSP,MH);
ML:LLV(L,MLCKSP+1) linethick;
ML:=SETVAL(MRCK,ML,-MLCKSP,ML);
FILLRGN(barpos=1 or MM=ref(MM,1),MH,ML),Color333333; //月
FILLRGN(barpos=1 or WW=ref(WW,1),WH,WL),Color666666; //週
KLINE(O,H,L,C,0);
由 jery3308 在 2013-07-23 21:41 發表:
謝謝
FILLRGN(barpos=1 or MM=ref(MM,1),MH,ML),Color333333; //週
FILLRGN(barpos=1 or WW=ref(WW,1),WH,WL),Color666666; //月
謝謝版主
如果上方程式周K 收紅 用,ColorA8A6FF顏色
(周收大於周開)
月K 收紅 用Color8787E9顏色
(月收大於月開)
如何表達? 再次謝謝版主
由 cgjj 在 2013-07-24 09:48 發表:
回覆: 謝謝
引用:
最初由 jery3308 發表
FILLRGN(barpos=1 or MM=ref(MM,1),MH,ML),Color333333; //週
FILLRGN(barpos=1 or WW=ref(WW,1),WH,WL),Color666666; //月
謝謝版主
如果上方程式周K 收紅 用,ColorA8A6FF顏色
(周收大於周開)
月K 收紅 用Color8787E9顏色
(月收大於月開)
如何表達? 再次謝謝版主
//週
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);
//月
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);
SWW:=barpos=1 or WW=ref(WW,1);
//畫K棒
FILLRGN(SMM and MC>MO,MH,ML) Color8787E9; //月
FILLRGN(SMM and MC<=MO,MH,ML) ColorD8A668; //月
FILLRGN(SWW and WC>WO,WH,WL) ColorA8A6FF; //週
FILLRGN(SWW and WC<=WO,WH,WL) ColorFF8E18; //週
KLINE(O,H,L,C,0);
