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

求救 畫線

版主大大你好


我要用奇狐看盤 我要如何寫作 在分 K層級上　每日創新低Ｋ棒　高點劃一條線　從開盤至lastbar 畫一條線 當有再創新低 此條線就換成新低k邦的高點 若創低的高點被收過 有 收盤 實過過還是 虛過 收過又跌破 兩者傭不同顏色標示 創新高的K棒折反之 低點做處理 可否可以教我如何寫作 或給我範例 謝謝


//======================================== 今天開高低收================================================================================
//=====================================================================================================
// ======================================== 隔日線 =====================================
IF DATATYPE =1 THEN BEGIN //1分K
DECK:=Tradedate<>ref(Tradedate,1) or Time = 84600;
End;
IF DATATYPE =2 THEN BEGIN //5分K
DECK:=Tradedate<>ref(Tradedate,1) or Time = 85000;
End;
IF DATATYPE =3 THEN BEGIN //15分K
DECK:=Tradedate<>ref(Tradedate,1) or Time=90000;
End;
IF DATATYPE =4 THEN BEGIN //30分K
DECK:=Tradedate<>ref(Tradedate,1) or Time=91500;
End;
IF DATATYPE =5 THEN BEGIN //60分K
DECK:=Tradedate<>ref(Tradedate,1) or Time=94500;
End;
DESP:=BARSLAST(DECK);
// ===================================================================

// =================================== 今天開高低收=================================================
IF DATATYPE < 6 THEN BEGIN

今高:HHV(HIGH,DESP+1) COLOR0000FF LINEthick3 LINEDASH;
DRAWSL(ISLASTBAR ,今高,0,0,3) pxdn0 coloRFF LINETHICK2 LINEDOT;
DRAWSL(ISLASTBAR ,今高,0,0,1) pxdn0 coloRFF LINETHICK5 LINEDOT;
//DRAWSL(DESP AND ISLASTBAR,今高,0,0,3) pxdn0 coloRFF LINETHICK2 LINEDOT;
//DRAWNUMBER(DECK,今高,今高,PN) SHIFT1,color0000FF ALIGN2 PXUP60;
//DRAWTEXT(DECK,今高,'今高')colorFF, LINETHICK2 PXUP60;
DRAWNUMBER(ISLASTBAR,今高,今高,PN) SHIFT1,color0000FF PXUP60;
DRAWTEXT(ISLASTBAR,今高,'今高') SHIFT5,coloR0000FF PXUP60;

今低:LLV(LOW,DESP+1) COLOR00FF00 LINETHICK3 LINEDASH;
DRAWSL(ISLASTBAR ,今低,0,0,3) pxdn0 coloR00FF00 LINETHICK2 LINEDOT;
DRAWSL(ISLASTBAR ,今低,0,0,1) pxdn0 coloR00FF00 LINETHICK5 LINEDOT;
//DRAWSL(DESP ,今低,0,0,1) pxdn0 coloR00FF00 LINETHICK2 LINEDOT;
//DRAWNUMBER(DECK,今低,今低,PN) SHIFT1,color00FF00 ALIGN2 PXUP60;
//DRAWTEXT(DECK,今低,'今低') SHIFT5,color00FF00 PXUP60;
DRAWNUMBER(ISLASTBAR,今低,今低,PN) SHIFT1,color00FF00 PXUP60;
DRAWTEXT(ISLASTBAR,今低,'今低') SHIFT5,color00FF00 PXUP60;

回覆: 求救 畫線

引用:

---

最初由 ivancclai 發表
版主大大你好


我要用奇狐看盤 我要如何寫作 在分 K層級上　每日創新低Ｋ棒　高點劃一條線　從開盤至lastbar 畫一條線 當有再創新低 此條線就換成新低k邦的高點 若創低的高點被收過 有 收盤 實過過還是 虛過 收過又跌破 兩者傭不同顏色標示 創新高的K棒折反之 低點做處理 可否可以教我如何寫作 或給我範例 謝謝


//======================================== 今天開高低收================================================================================
//=====================================================================================================
// ======================================== 隔日線 =====================================
IF DATATYPE =1 THEN BEGIN //1分K
DECK:=Tradedate<>ref(Tradedate,1) or Time = 84600;
End;
IF DATATYPE =2 THEN BEGIN //5分K
DECK:=Tradedate<>ref(Tradedate,1) or Time = 85000;
End;
IF DATATYPE =3 THEN BEGIN //15分K
DECK:=Tradedate<>ref(Tradedate,1) or Time=90000;
End;
IF DATATYPE =4 THEN BEGIN //30分K
DECK:=Tradedate<>ref(Tradedate,1) or Time=91500;
End;
IF DATATYPE =5 THEN BEGIN //60分K
DECK:=Tradedate<>ref(Tradedate,1) or Time=94500;
End;
DESP:=BARSLAST(DECK);
// ===================================================================

// =================================== 今天開高低收=================================================
IF DATATYPE < 6 THEN BEGIN

今高:HHV(HIGH,DESP+1) COLOR0000FF LINEthick3 LINEDASH;
DRAWSL(ISLASTBAR ,今高,0,0,3) pxdn0 coloRFF LINETHICK2 LINEDOT;
DRAWSL(ISLASTBAR ,今高,0,0,1) pxdn0 coloRFF LINETHICK5 LINEDOT;
//DRAWSL(DESP AND ISLASTBAR,今高,0,0,3) pxdn0 coloRFF LINETHICK2 LINEDOT;
//DRAWNUMBER(DECK,今高,今高,PN) SHIFT1,color0000FF ALIGN2 PXUP60;
//DRAWTEXT(DECK,今高,'今高')colorFF, LINETHICK2 PXUP60;
DRAWNUMBER(ISLASTBAR,今高,今高,PN) SHIFT1,color0000FF PXUP60;
DRAWTEXT(ISLASTBAR,今高,'今高') SHIFT5,coloR0000FF PXUP60;

今低:LLV(LOW,DESP+1) COLOR00FF00 LINETHICK3 LINEDASH;
DRAWSL(ISLASTBAR ,今低,0,0,3) pxdn0 coloR00FF00 LINETHICK2 LINEDOT;
DRAWSL(ISLASTBAR ,今低,0,0,1) pxdn0 coloR00FF00 LINETHICK5 LINEDOT;
//DRAWSL(DESP ,今低,0,0,1) pxdn0 coloR00FF00 LINETHICK2 LINEDOT;
//DRAWNUMBER(DECK,今低,今低,PN) SHIFT1,color00FF00 ALIGN2 PXUP60;
//DRAWTEXT(DECK,今低,'今低') SHIFT5,color00FF00 PXUP60;
DRAWNUMBER(ISLASTBAR,今低,今低,PN) SHIFT1,color00FF00 PXUP60;
DRAWTEXT(ISLASTBAR,今低,'今低') SHIFT5,color00FF00 PXUP60;

---