奇狐社區論壇 - 5分副圖顯示15分k線的問題請教

奇狐社區論壇 : Powered by vBulletin version 2.3.0

奇狐社區論壇 > 指標公式 > 問題交流 > 5分副圖顯示15分k線的問題請教

總頁數 (2): « 1 [2]

上一主題下一主題

作者

主題

cgjj
總版主

註冊日期: Oct 2003
來　　自:
文章數量: 18192

回覆: 任意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棒
故不是您所想要的結果

向版主報告此篇 |

2013-07-23 16:52

jery3308
資深會員

註冊日期: Jun 2005
來　　自:
文章數量: 178

如何改成日周月的K棒?

如何改成日周月的K棒?

向版主報告此篇 |

2013-07-23 17:22

cgjj
總版主

註冊日期: Oct 2003
來　　自:
文章數量: 18192

回覆: 如何改成日周月的K棒?

引用:
最初由 jery3308 發表
如何改成日周月的K棒?

它畫的是該區間之高低範圍, 並非是K棒
其設計本身就是如此

您的需求與它原設計想法並不相符
故不建議以它為基礎去修改

向版主報告此篇 |

2013-07-23 17:36

jery3308
資深會員

註冊日期: Jun 2005
來　　自:
文章數量: 178

板主是否有相關程式分享或者只需周月高低但期間調整周月正常期間?

向版主報告此篇 |

2013-07-23 17:41

cgjj
總版主

註冊日期: Oct 2003
來　　自:
文章數量: 18192

引用:
最初由 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);

向版主報告此篇 |

2013-07-23 18:25

jery3308
資深會員

註冊日期: Jun 2005
來　　自:
文章數量: 178

謝謝

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顏色
(月收大於月開)
如何表達? 再次謝謝版主

向版主報告此篇 |

2013-07-23 21:41

cgjj
總版主

註冊日期: Oct 2003
來　　自:
文章數量: 18192

回覆: 謝謝

引用:
最初由 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);

向版主報告此篇 |

2013-07-24 09:48

全部時間均為台灣時間, 現在時間為12:35

總頁數 (2): « 1 [2]

上一主題下一主題

顯示可列印版本 |

訂閱此主題

論壇跳轉:

主題評分:

論壇規定:

你不可以發表新主題
你不可以回覆文章
你不可以上傳附件
你不可以編輯自己的文章

HTML語法禁止
vB 語法核准
表情符號核准
貼圖語法[IMG]核准

本站所有內容未經作者授權禁止轉貼節錄, 發表言論僅供參考勿作為投資決策依據。瀏覽本站請使用 IE 5.5 以上版本, 最佳瀏覽解析度 1024 x 768 全彩。