奇狐社區論壇
在這個頁面顯示本主題全部的 6 個文章

奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 問題交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=28)
-- 求助 美磐開盤前ˊ60 分線(20:30 -21:30) 高低點位畫線 (http://www.chiefox.com.tw/bbs/showthread.php?threadid=24069)

由 ivancclai 在 2024-09-20 05:30 發表:

求助 美磐開盤前ˊ60 分線(20:30 -21:30) 高低點位畫線

版主大大你好


這是 之前求助你 幫我寫的 範例 台股 早盤 及夜盤收盤 最後一小時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);
//==============================================================================================================

由 cgjj 在 2024-09-20 09:11 發表:

回覆: 求助 美磐開盤前ˊ60 分線(20:30 -21:30) 高低點位畫線

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


請問這是要放哪在哪個商品中執行?

由 ivancclai 在 2024-09-20 18:11 發表:

版主大大你好


永豐期貨 海期 及 台灣期貨


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

由 cgjj 在 2024-09-21 14:54 發表:

引用:
最初由 ivancclai 發表
版主大大你好


永豐期貨 海期 及 台灣期貨


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


TTCK:=TIME=213000; //冬夏令可能不同，請自行調整
TTSP:=barslast(TTCK);
if datatype=1 then TN:=60; //1分
if datatype=2 then TN:=12; //5分
if datatype=3 then TN:=4; //15分
if datatype=4 then TN:=2; //30分
UU:=HHV(HIGH,TN);
DD:=LLV(LOW,TN);
RUU:ref(UU,TTSP);
RDD:ref(DD,TTSP);

由 cgjj 在 2024-09-21 14:55 發表:

另外，您提供的此段程式碼

原碼:
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;


可簡化為
原碼:
IF DATATYPE <6 and DATATYPE >0 THEN BEGIN //若為1,5,15,30,60分K
  CK:=REF(MOD(OPENMINUTES,60)=0,1);
  CKSP:=BARSLAST(CK);
  UU:=HHV(HIGH,CKSP+1);
  DD:=LLV(LOW,CKSP+1);
End;

由 ivancclai 在 2024-09-22 07:56 發表:

謝謝版主

可以了
全部時間均為台灣時間, 現在時間為07:04
在這個頁面顯示本主題全部的 6 個文章


Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.
簡愛洋行 製作 Copyright 2003-. All Rights Reserved.