版主大大你好


這是 之前求助你 幫我寫的 範例 台股 早盤 及夜盤收盤 最後一小時K棒(ˋ04:01-05:00 , 12:46-13.45 高低點位 畫線

我想加入美股開盤前 - 小時 高低點(20:31=21:30 )畫線 我嘗試不會修正 是否幫我修正 或給我範例
謝謝


// ===================================================================
//===============================================================

IF DATATYPE <6 THEN BEGIN // <60分K

IF DATATYPE =1 OR DATATYPE=2 THEN BEGIN //1分K
CK:=REF(MOD(OPENMINUTES,60)=0,1);
CKSP:=BARSLAST(CK);
UU:=HHV(HIGH,CKSP+1);
DD:=LLV(LOW,CKSP+1);
End;;
IF DATATYPE =3 THEN BEGIN //15分K
UU1:=MAX(REF(HIGH,4-1),HIGH);
DD1:=MIN(REF(LOW,4-1),LOW);
UU2:=MAX(REF(HIGH,3-1),REF(HIGH,2-1));
DD2:=MIN(REF(LOW,3-1),REF(LOW,2-1));
UU:=MAX(UU1,UU2);
DD:=MIN(DD1,DD2);
End;
IF DATATYPE =4 THEN BEGIN //30分K
UU:=MAX(REF(HIGH,2-1),HIGH);
DD:=MIN(REF(LOW,2-1),LOW);
End;
IF DATATYPE =5 THEN BEGIN //60分K
UU:=HIGH; DD:=LOW;
End;

EXPLAIN(1>0,'================'),colorFFFFFF;

DECK:=TRADEDATE<>REF(TRADEDATE,1);
TMode:=DECK+ISREGULARFBAR*2;
TMode:=REF(TMode,BARSLAST(TMode<>0)); //交易時段:{1.盤後 2.一般 3.僅一般}
//日尾(黃線)
EDCK:=TMode>1 and REFX(DECK,1)=1;
EDSP:=BARSLAST(EDCK);
RUU:=REF(UU,EDSP); RDD:=REF(DD,EDSP);

//PARTLINE(EDSP>0,RUU+1) COLORFFFF00 LINETHICK1 LINEDOT;
DRAWSL(ISLASTBAR ,RUU,0,0,3) pxdn0 colorFFFF00 LINETHICK1 LINEDOT;
EXPLAINEX(1>0,'日60高 =',RUU,PN,0), colorFFFF00;
DRAWNUMBER(ISLASTBAR,RUU,RUU,PN) SHIFT3,colorFFFF00 PXUP60;
//DRAWTEXT(ISLASTBAR,RUU,'日60高') SHIFT5,colorFFFF00 PXUP60;

//PARTLINE(EDSP>0,RDD) COLORFFFF00 LINETHICK1 LINEDOT;
DRAWSL(ISLASTBAR ,RDD,0,0,3) pxdn0 coloRFFFF00 LINETHICK1 LINEDOT;
EXPLAINEX(1>0,'日60低 =',RDD,PN,0), colorFFFF00;
DRAWNUMBER(ISLASTBAR,RDD,RDD,PN) SHIFT3,colorFFFF00 PXUP60;
//DRAWTEXT(ISLASTBAR,RDD,'日60低') SHIFT5,colorFFFF00 PXUP60;

//STICKLINE(EDCK,UU,DD,0.1,0) COLORFFFF00 LINETHICK1 ;
//STICKLINE(REFX(EDCK,1),RUU,RDD,0.1,0) COLORFFFF00 LINETHICK1;

FILLRGN(DESP>0, RUU,RDD) color333300;


//夜尾(青線)

ENCK:=TMode=1 and REFX(TMode,1)>1;
ENSP:=BARSLAST(ENCK);
RUU:=REF(UU,ENSP); RDD:=REF(DD,ENSP);

//PARTLINE(ENSP>0,RUU+1) COLOR00FFFF LINETHICK1 LINEDOT;
DRAWSL(ISLASTBAR ,RUU,0,0,3) pxdn0 coloRFFFF LINETHICK1 LINEDOT;
EXPLAINEX(1>0,'夜60高 =',RUU,PN,0), color00FFFF;
DRAWNUMBER(ISLASTBAR,RUU,RUU,PN) SHIFT3,color00FFFF PXUP60;
//DRAWTEXT(ISLASTBAR,RUU,'夜60高') SHIFT5,color00FFFF PXUP60;

//PARTLINE(ENSP>0,RDD) COLOR00FFFF LINETHICK1 LINEDOT;
DRAWSL(ISLASTBAR ,RDD,0,0,3) pxdn0 coloRFFFF LINETHICK1 LINEDOT;
EXPLAINEX(1>0,'夜60低 =',RDD,PN,0), color00FFFF;
EXPLAIN(1>0,'================'),colorFFFFFF;
DRAWNUMBER(ISLASTBAR,RDD,RDD,PN) SHIFT3,color00FFFF PXUP60;
//DRAWTEXT(ISLASTBAR,RDD,'夜60低') SHIFT5,color00FFFF PXUP60;

//STICKLINE(ENCK,UU,DD,0.1,0) COLOR00FFFF LINETHICK2;
//STICKLINE(REFX(ENCK,1),RUU,RDD,0.1,0) COLOR00FFFF LINETHICK2;
FILLRGN(DESP>0, RUU,RDD) color003333;

END;
//=============================================================
// ========================================================================
KLINE(OPEN,HIGH,LOW,CLOSE,0);
//==============================================================================================================

引用:

---

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


這是 之前求助你 幫我寫的 範例 台股 早盤 及夜盤收盤 最後一小時K棒(ˋ04:01-05:00 , 12:46-13.45 高低點位 畫線

我想加入美股開盤前 - 小時 高低點(20:31=21:30 )畫線 我嘗試不會修正 是否幫我修正 或給我範例
謝謝


// ===================================================================
//===============================================================

IF DATATYPE <6 THEN BEGIN // <60分K

IF DATATYPE =1 OR DATATYPE=2 THEN BEGIN //1分K
CK:=REF(MOD(OPENMINUTES,60)=0,1);
CKSP:=BARSLAST(CK);
UU:=HHV(HIGH,CKSP+1);
DD:=LLV(LOW,CKSP+1);
End;;
IF DATATYPE =3 THEN BEGIN //15分K
UU1:=MAX(REF(HIGH,4-1),HIGH);
DD1:=MIN(REF(LOW,4-1),LOW);
UU2:=MAX(REF(HIGH,3-1),REF(HIGH,2-1));
DD2:=MIN(REF(LOW,3-1),REF(LOW,2-1));
UU:=MAX(UU1,UU2);
DD:=MIN(DD1,DD2);
End;
IF DATATYPE =4 THEN BEGIN //30分K
UU:=MAX(REF(HIGH,2-1),HIGH);
DD:=MIN(REF(LOW,2-1),LOW);
End;
IF DATATYPE =5 THEN BEGIN //60分K
UU:=HIGH; DD:=LOW;
End;

EXPLAIN(1>0,'================'),colorFFFFFF;

DECK:=TRADEDATE<>REF(TRADEDATE,1);
TMode:=DECK+ISREGULARFBAR*2;
TMode:=REF(TMode,BARSLAST(TMode<>0)); //交易時段:{1.盤後 2.一般 3.僅一般}
//日尾(黃線)
EDCK:=TMode>1 and REFX(DECK,1)=1;
EDSP:=BARSLAST(EDCK);
RUU:=REF(UU,EDSP); RDD:=REF(DD,EDSP);

//PARTLINE(EDSP>0,RUU+1) COLORFFFF00 LINETHICK1 LINEDOT;
DRAWSL(ISLASTBAR ,RUU,0,0,3) pxdn0 colorFFFF00 LINETHICK1 LINEDOT;
EXPLAINEX(1>0,'日60高 =',RUU,PN,0), colorFFFF00;
DRAWNUMBER(ISLASTBAR,RUU,RUU,PN) SHIFT3,colorFFFF00 PXUP60;
//DRAWTEXT(ISLASTBAR,RUU,'日60高') SHIFT5,colorFFFF00 PXUP60;

//PARTLINE(EDSP>0,RDD) COLORFFFF00 LINETHICK1 LINEDOT;
DRAWSL(ISLASTBAR ,RDD,0,0,3) pxdn0 coloRFFFF00 LINETHICK1 LINEDOT;
EXPLAINEX(1>0,'日60低 =',RDD,PN,0), colorFFFF00;
DRAWNUMBER(ISLASTBAR,RDD,RDD,PN) SHIFT3,colorFFFF00 PXUP60;
//DRAWTEXT(ISLASTBAR,RDD,'日60低') SHIFT5,colorFFFF00 PXUP60;

//STICKLINE(EDCK,UU,DD,0.1,0) COLORFFFF00 LINETHICK1 ;
//STICKLINE(REFX(EDCK,1),RUU,RDD,0.1,0) COLORFFFF00 LINETHICK1;

FILLRGN(DESP>0, RUU,RDD) color333300;


//夜尾(青線)

ENCK:=TMode=1 and REFX(TMode,1)>1;
ENSP:=BARSLAST(ENCK);
RUU:=REF(UU,ENSP); RDD:=REF(DD,ENSP);

//PARTLINE(ENSP>0,RUU+1) COLOR00FFFF LINETHICK1 LINEDOT;
DRAWSL(ISLASTBAR ,RUU,0,0,3) pxdn0 coloRFFFF LINETHICK1 LINEDOT;
EXPLAINEX(1>0,'夜60高 =',RUU,PN,0), color00FFFF;
DRAWNUMBER(ISLASTBAR,RUU,RUU,PN) SHIFT3,color00FFFF PXUP60;
//DRAWTEXT(ISLASTBAR,RUU,'夜60高') SHIFT5,color00FFFF PXUP60;

//PARTLINE(ENSP>0,RDD) COLOR00FFFF LINETHICK1 LINEDOT;
DRAWSL(ISLASTBAR ,RDD,0,0,3) pxdn0 coloRFFFF LINETHICK1 LINEDOT;
EXPLAINEX(1>0,'夜60低 =',RDD,PN,0), color00FFFF;
EXPLAIN(1>0,'================'),colorFFFFFF;
DRAWNUMBER(ISLASTBAR,RDD,RDD,PN) SHIFT3,color00FFFF PXUP60;
//DRAWTEXT(ISLASTBAR,RDD,'夜60低') SHIFT5,color00FFFF PXUP60;

//STICKLINE(ENCK,UU,DD,0.1,0) COLOR00FFFF LINETHICK2;
//STICKLINE(REFX(ENCK,1),RUU,RDD,0.1,0) COLOR00FFFF LINETHICK2;
FILLRGN(DESP>0, RUU,RDD) color003333;

END;
//=============================================================
// ========================================================================
KLINE(OPEN,HIGH,LOW,CLOSE,0);
//==============================================================================================================

---

版主大大你好


永豐期貨 海期 及 台灣期貨


我想過 或是只顯示 在1/5 /15/30 分k 時區上顯示就好