奇狐社區論壇 - 主圖畫線

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

由 peter109 在 2022-02-06 08:46 發表:

主圖畫線

不知為何在某些狀況下定位+畫線可如願成功
但某些狀況下卻是莫名的結果還請指正

//= = = = = = = = = =
SysP1:=SysParam(1); SysP4:=SysParam(4); SysP5:=SysParam(5);
DTC:=DATACOUNT; BP:=BARPOS;
Sys4p:=REF(BP,BARSLAST(H=SysP4)); Sys4Px:=BP=Sys4P; Sys4Pb:=BARSLAST(Sys4Px);// VERTLINE(Sys4Px);{高下時間}
Sys5p:=REF(BP,BARSLAST(L=SysP5)); Sys5Px:=BP=Sys5P; Sys5Pb:=BARSLAST(Sys5Px);// VERTLINE(Sys5Px),LINEDOT;{低上時間}
//= = = = = = = = = =
SysLeft:=IF(Sys4p[DTC]>Sys5p[DTC],Sys5Px,Sys4Px); VERTLINE(SysLeft);
SysRight:=IF(Sys4p[DTC]>Sys5p[DTC],Sys4Px,Sys5Px); VERTLINE(SysRight),LINEDOT;

DRAWLINE(SysLeft,SysP5,SysRight,SysP4,1),COLORWHITE;
DRAWLINE(SysLeft,SysP4,SysRight,SysP5,1),COLORWHITE;

__________________
至誠能勝天下至偽
至拙能勝天下至巧

由 cgjj 在 2022-02-06 14:13 發表:

回覆: 主圖畫線

引用:
最初由 peter109 發表
不知為何在某些狀況下定位+畫線可如願成功
但某些狀況下卻是莫名的結果還請指正

//= = = = = = = = = =
SysP1:=SysParam(1); SysP4:=SysParam(4); SysP5:=SysParam(5);
DTC:=DATACOUNT; BP:=BARPOS;
Sys4p:=REF(BP,BARSLAST(H=SysP4)); Sys4Px:=BP=Sys4P; Sys4Pb:=BARSLAST(Sys4Px);// VERTLINE(Sys4Px);{高下時間}
Sys5p:=REF(BP,BARSLAST(L=SysP5)); Sys5Px:=BP=Sys5P; Sys5Pb:=BARSLAST(Sys5Px);// VERTLINE(Sys5Px),LINEDOT;{低上時間}
//= = = = = = = = = =
SysLeft:=IF(Sys4p[DTC]>Sys5p[DTC],Sys5Px,Sys4Px); VERTLINE(SysLeft);
SysRight:=IF(Sys4p[DTC]>Sys5p[DTC],Sys4Px,Sys5Px); VERTLINE(SysRight),LINEDOT;

DRAWLINE(SysLeft,SysP5,SysRight,SysP4,1),COLORWHITE;
DRAWLINE(SysLeft,SysP4,SysRight,SysP5,1),COLORWHITE;

不可以將 BARSLAST(H=SysP4) 直接帶入取歷史最末根值
因為歷史K棒可能有好幾處H價相等於SysP4，必須取當前畫面區間內的!

順便精簡優化了一下程式碼，新程式碼如下：
SysP3:=SysParam(3); SysP4:=SysParam(4); SysP5:=SysParam(5);
BlkHSP:=BARSLAST(H=SysP4); HKP:=SysP3-BlkHSP[SysP3];
BlkLSP:=BARSLAST(L=SysP5); LKP:=SysP3-BlkLSP[SysP3];
SysLeft:=barpos=min(HKP,LKP);VERTLINE(SysLeft);
SysRight:=barpos=max(HKP,LKP);VERTLINE(SysRight) linedot;
DRAWLINE(SysLeft,SysP5,SysRight,SysP4,1),COLORWHITE;
DRAWLINE(SysLeft,SysP4,SysRight,SysP5,1),COLORWHITE;

由 peter109 在 2022-02-07 02:57 發表:

收到 + 感恩
個人認知不足讓您費神了

__________________
至誠能勝天下至偽
至拙能勝天下至巧

由 cgjj 在 2022-02-07 09:09 發表:

引用:
最初由 peter109 發表
收到 + 感恩
個人認知不足讓您費神了

不客氣^^

全部時間均為台灣時間, 現在時間為22:08

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