奇狐社區論壇 - [求救]在每日給定時間範圍內繪製橫坐標軸

奇狐社區論壇 (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=23265)

由 expexp 在 2022-02-20 17:34 發表:

[求救]在每日給定時間範圍內繪製橫坐標軸

總版主好，今想設計一主圖疊加公式，應用週期：60K 30K 15K 5K 1K，應用商品台指期日盤與全盤。
說明如下：
在每日給定的時間範圍內繪製橫坐標軸。
橫坐標軸規則：
(1)從時間起始點開始以 50 點價格為一整數區間，往上每 50 點繪製橫坐標軸，共繪製 4 條橫坐標軸，LINETHICK2 COLORCYAN。
每個 50 點整數區間的中間一半處(即25點)，繪製一橫坐標軸，LINETHICK1 LINEDOT COLORGRAY。
直到定時時間結束點結束整個繪製。
(2)從時間起始點開始以 50 點價格為一整數區間，往下每 50 點繪製橫坐標軸，共繪製 4 條橫坐標軸，LINETHICK2 COLORCYAN。
每個 50 點整數區間的中間一半處(即25點)，繪製一橫坐標軸，LINETHICK1 LINEDOT COLORGRAY。

範例如下圖所示：

給定時間範圍為 15:05~隔日05:00
橫軸起始點在 15:05，開盤價為 18233，
往上畫第一條橫軸是 18250，第二條橫軸 18300，第三條橫軸 18350，第四條橫軸 18400，
接著 50 點切一半取25點，畫橫軸 18275，18325，18375。
橫軸結束點在隔日 05:00。

往下畫第一條橫軸是 18250，第二條橫軸 18200，第三條橫軸 18150，第四條橫軸 18100，
接著 50 點切一半取25點，畫橫軸 18225，18175，18125。
橫軸結束點在隔日 05:00。
再麻煩總版主了，感謝~

由 cgjj 在 2022-02-20 21:45 發表:

回覆: [求救]在每日給定時間範圍內繪製橫坐標軸

引用:
最初由 expexp 發表
總版主好，今想設計一主圖疊加公式，應用週期：60K 30K 15K 5K 1K，應用商品台指期日盤與全盤。
說明如下：
在每日給定的時間範圍內繪製橫坐標軸。
橫坐標軸規則：
(1)從時間起始點開始以 50 點價格為一整數區間，往上每 50 點繪製橫坐標軸，共繪製 4 條橫坐標軸，LINETHICK2 COLORCYAN。
每個 50 點整數區間的中間一半處(即25點)，繪製一橫坐標軸，LINETHICK1 LINEDOT COLORGRAY。
直到定時時間結束點結束整個繪製。
(2)從時間起始點開始以 50 點價格為一整數區間，往下每 50 點繪製橫坐標軸，共繪製 4 條橫坐標軸，LINETHICK2 COLORCYAN。
每個 50 點整數區間的中間一半處(即25點)，繪製一橫坐標軸，LINETHICK1 LINEDOT COLORGRAY。

範例如下圖所示：

給定時間範圍為 15:05~隔日05:00
橫軸起始點在 15:05，開盤價為 18233，
往上畫第一條橫軸是 18250，第二條橫軸 18300，第三條橫軸 18350，第四條橫軸 18400，
接著 50 點切一半取25點，畫橫軸 18275，18325，18375。
橫軸結束點在隔日 05:00。

往下畫第一條橫軸是 18250，第二條橫軸 18200，第三條橫軸 18150，第四條橫軸 18100，
接著 50 點切一半取25點，畫橫軸 18225，18175，18125。
橫軸結束點在隔日 05:00。
再麻煩總版主了，感謝~

原碼:DECK:=Tradedate<>ref(Tradedate,1);
TMode:=DECK+IsRegularFBar*2;
TMode:=ref(TMode,barslast(TMode<>0)); //交易時段:{1.盤後 2.一般 3.僅一般}
FSP:=barslast(TMode=1 and ref(TMode,1)<>1);
USP:=50; MM:=ref(O,FSP); 
MH:=ceiling(MM/USP)*USP; ML:=floor(MM/USP)*USP;
MM:=if((MM-ML)>=(MH-ML)/2,MH,ML); //取最接近的
DWCK:=TMode=1 and FSP>0;
PARTLINE(DWCK,MM) colorFF9900;
PARTLINE(DWCK,MM+USP*1) colorFF9900;
PARTLINE(DWCK,MM+USP*2) colorFF9900;
PARTLINE(DWCK,MM+USP*3) colorFF9900;
PARTLINE(DWCK,MM-USP*1) colorFF9900;
PARTLINE(DWCK,MM-USP*2) colorFF9900;
PARTLINE(DWCK,MM-USP*3) colorFF9900;
MM2:=MM+USP/2;
PARTLINE(DWCK,MM2) color777777 linedot;
PARTLINE(DWCK,MM2+USP*1) color777777 linedot;
PARTLINE(DWCK,MM2+USP*2) color777777 linedot;
PARTLINE(DWCK,MM2-USP*1) color777777 linedot;
PARTLINE(DWCK,MM2-USP*2) color777777 linedot;
PARTLINE(DWCK,MM2-USP*3) color777777 linedot;

由 expexp 在 2022-02-20 23:16 發表:

感謝總版主回覆
另想要一個版本是 08:50~13:45 的
再次感謝~

由 cgjj 在 2022-02-21 11:46 發表:

引用:
最初由 expexp 發表
感謝總版主回覆 :)
另想要一個版本是 08:50~13:45 的
再次感謝~

原碼:DECK:=Tradedate<>ref(Tradedate,1);
TMode:=DECK+IsRegularFBar*2;
TMode:=ref(TMode,barslast(TMode<>0)); //交易時段:{1.盤後 2.一般 3.僅一般}
FSP:=barslast(IsRegularFBar);
USP:=50; MM:=ref(O,FSP); 
MH:=ceiling(MM/USP)*USP; ML:=floor(MM/USP)*USP;
MM:=if((MM-ML)>=(MH-ML)/2,MH,ML); //取最接近的
DWCK:=TMode>1 and FSP>0;
PARTLINE(DWCK,MM) colorFF9900;
PARTLINE(DWCK,MM+USP*1) colorFF9900;
PARTLINE(DWCK,MM+USP*2) colorFF9900;
PARTLINE(DWCK,MM+USP*3) colorFF9900;
PARTLINE(DWCK,MM-USP*1) colorFF9900;
PARTLINE(DWCK,MM-USP*2) colorFF9900;
PARTLINE(DWCK,MM-USP*3) colorFF9900;
MM2:=MM+USP/2;
PARTLINE(DWCK,MM2) color777777 linedot;
PARTLINE(DWCK,MM2+USP*1) color777777 linedot;
PARTLINE(DWCK,MM2+USP*2) color777777 linedot;
PARTLINE(DWCK,MM2-USP*1) color777777 linedot;
PARTLINE(DWCK,MM2-USP*2) color777777 linedot;
PARTLINE(DWCK,MM2-USP*3) color777777 linedot;

全部時間均為台灣時間, 現在時間為21:37

在這個頁面顯示本主題全部的 4 個文章