奇狐社區論壇 - 主圖畫線

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

奇狐社區論壇 > 指標公式 > 問題交流 > 主圖畫線

上一主題下一主題

作者

主題

peter109
資深會員

註冊日期: Dec 2004
來　　自: Taipei
文章數量: 1891

主圖畫線

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

//= = = = = = = = = =
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;

peter109 附帶上了此圖片:

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

向版主報告此篇 |

2022-02-06 08:46

cgjj
總版主

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

回覆: 主圖畫線

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

向版主報告此篇 |

2022-02-06 14:13