奇狐社區論壇 - 求助如何取最後60 分K高低點在不同時區顯示

論壇首頁

你可以在這裡編輯你的資料，查看短訊，訂閱主題和論壇參數等等

免費會員註冊

會員列表

論壇幫助

論壇日曆

論壇搜索

加入我的最愛

登出論壇

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

奇狐社區論壇 > 指標公式 > 問題交流 > 求助如何取最後60 分K高低點在不同時區顯示

上一主題下一主題

作者

主題

發表新主題

回覆主題

ivancclai
資深會員

註冊日期: Apr 2017
來　　自: New Taipei city
文章數量: 243

求助如何取最後60 分K高低點在不同時區顯示

版主大大你好

求助需要顯示行進k棒 (60分K 最後一根的開高低點顯示不同時區(30/15/5/1 分鐘圖上) 我只會顯示在60 分k上如下

//===================================行進60 分K=================================================================================
if datatype=5 then begin

//EXPLAIN(1>0,'================'),colorFFFFFF;
DRAWSL(ISLASTBAR ,OPEN,0,0,3) pxdn0 coloRFFFFFF LINETHICK2 LINEDOT;
EXPLAINEX(ISLASTBAR,'行進60K開=',OPEN,0,0), colorFFFFF;
DRAWNUMBER(ISLASTBAR,OPEN,OPEN,0) SHIFT1,colorFFFFFF PXUP40;
DRAWTEXT(ISLASTBAR,OPEN,'行進60k開') SHIFT7,colorFFFFFF PXUP40;

DRAWSL(ISLASTBAR ,HIGH,0,0,3) pxdn0 color0000FF LINETHICK2 LINEDOT;
EXPLAINEX(ISLASTBAR,'行進60K高=',HIGH,0,0), color00F00FF;
DRAWNUMBER(ISLASTBAR,HIGH,HIGH,0) SHIFT1,color0000FF PXUP40;
DRAWTEXT(ISLASTBAR,HIGH,'行進60k高') SHIFT7,color0000FF PXUP40;

DRAWSL(ISLASTBAR ,LOW,0,0,3) pxdn0 coloR00FF00 LINETHICK2 LINEDOT;
EXPLAINEX(ISLASTBAR,'行進60k低=',LOW,0,0), color00FF00;
DRAWNUMBER(ISLASTBAR,LOW,LOW,0) SHIFT1,color00FF00 PXUP40;
DRAWTEXT(ISLASTBAR,LOW,'行進60k低') SHIFT7,color00FF00 PXUP40;

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

end;
//================================================================================================================

向版主報告此篇 |

查IP位址

Old Post

2024-08-22 04:18

ivancclai 現在離線

點選這裡給 ivancclai 傳送一條短訊

查找更多關於 ivancclai 的文章

增加 ivancclai 至你的好友列表

編輯/刪除訊息

引用回覆

cgjj
總版主

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

回覆: 求助如何取最後60 分K高低點在不同時區顯示

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

求助需要顯示行進k棒 (60分K 最後一根的開高低點顯示不同時區(30/15/5/1 分鐘圖上) 我只會顯示在60 分k上如下

//===================================行進60 分K=================================================================================
if datatype=5 then begin

//EXPLAIN(1>0,'================'),colorFFFFFF;
DRAWSL(ISLASTBAR ,OPEN,0,0,3) pxdn0 coloRFFFFFF LINETHICK2 LINEDOT;
EXPLAINEX(ISLASTBAR,'行進60K開=',OPEN,0,0), colorFFFFF;
DRAWNUMBER(ISLASTBAR,OPEN,OPEN,0) SHIFT1,colorFFFFFF PXUP40;
DRAWTEXT(ISLASTBAR,OPEN,'行進60k開') SHIFT7,colorFFFFFF PXUP40;

DRAWSL(ISLASTBAR ,HIGH,0,0,3) pxdn0 color0000FF LINETHICK2 LINEDOT;
EXPLAINEX(ISLASTBAR,'行進60K高=',HIGH,0,0), color00F00FF;
DRAWNUMBER(ISLASTBAR,HIGH,HIGH,0) SHIFT1,color0000FF PXUP40;
DRAWTEXT(ISLASTBAR,HIGH,'行進60k高') SHIFT7,color0000FF PXUP40;

DRAWSL(ISLASTBAR ,LOW,0,0,3) pxdn0 coloR00FF00 LINETHICK2 LINEDOT;
EXPLAINEX(ISLASTBAR,'行進60k低=',LOW,0,0), color00FF00;
DRAWNUMBER(ISLASTBAR,LOW,LOW,0) SHIFT1,color00FF00 PXUP40;
DRAWTEXT(ISLASTBAR,LOW,'行進60k低') SHIFT7,color00FF00 PXUP40;

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

end;
//================================================================================================================

範例如下：僅適用分線，需<=60分鐘，且60/N能整除

CK:=ref(MOD(OPENMINUTES,60)=0,1);
CKSP:=barslast(CK);
MH:HHV(H,CKSP+1);
ML:LLV(L,CKSP+1);
MO:REF(O,CKSP);

PN:=0; //小數位數
DRAWSL(ISLASTBAR ,MO,0,0,3) pxdn2 coloRFFFFFF LINEDOT;
EXPLAINEX(ISLASTBAR,'行進60K開=',MO,PN,0), colorFFFFF;
DRAWNUMBER(ISLASTBAR,MO,MO,PN) SHIFT1,colorFFFFFF PXUP40;
DRAWTEXT(ISLASTBAR,MO,'行進60k開') SHIFT7,colorFFFFFF PXUP40;
DRAWSL(ISLASTBAR ,MH,0,0,3) pxdn2 color0000FF LINEDOT;
EXPLAINEX(ISLASTBAR,'行進60K高=',MH,PN,0), color00F00FF;
DRAWNUMBER(ISLASTBAR,MH,MH,2) SHIFT1,color0000FF PXUP40;
DRAWTEXT(ISLASTBAR,MH,'行進60k高') SHIFT7,color0000FF PXUP40;
DRAWSL(ISLASTBAR ,ML,0,0,3) pxdn2 coloR00FF00 LINEDOT;
EXPLAINEX(ISLASTBAR,'行進60k低=',ML,PN,0), color00FF00;
DRAWNUMBER(ISLASTBAR,ML,ML,PN) SHIFT1,color00FF00 PXUP40;
DRAWTEXT(ISLASTBAR,ML,'行進60k低') SHIFT7,color00FF00 PXUP40;

向版主報告此篇 |

查IP位址

Old Post

2024-08-22 08:46

cgjj 現在離線

點選這裡給 cgjj 傳送一條短訊

查找更多關於 cgjj 的文章

增加 cgjj 至你的好友列表

編輯/刪除訊息

引用回覆

ivancclai
資深會員

註冊日期: Apr 2017
來　　自: New Taipei city
文章數量: 243

可以了謝謝你版主大大

向版主報告此篇 |

查IP位址

Old Post

2024-08-23 14:17

ivancclai 現在離線

點選這裡給 ivancclai 傳送一條短訊

查找更多關於 ivancclai 的文章

增加 ivancclai 至你的好友列表

編輯/刪除訊息

引用回覆

ivancclai
資深會員

註冊日期: Apr 2017
來　　自: New Taipei city
文章數量: 243

版主大大你好

求助美股開盤時間是21:30 收盤時間是05:00
我想只在這段時間顯示

IF TIME> 213000 AND TIME <050000 THEN BEGIN
主程式

END;

翻譯時都有錯誤要如何修正謝謝

向版主報告此篇 |

查IP位址

Old Post

2024-09-24 05:32

ivancclai 現在離線

點選這裡給 ivancclai 傳送一條短訊

查找更多關於 ivancclai 的文章

增加 ivancclai 至你的好友列表

編輯/刪除訊息

引用回覆

cgjj
總版主

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

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

求助美股開盤時間是21:30 收盤時間是05:00
我想只在這段時間顯示

IF TIME> 213000 AND TIME <050000 THEN BEGIN
主程式

END;

翻譯時都有錯誤要如何修正謝謝

TIME 是K棒被編列的時間，其為數列，並非單值
故不能直接帶入 if ... then 的判斷式中

另一種 if(cond, A,B) 才可直接支持數列

TIME> 213000 AND TIME <050000
這判斷式是永遠也不會成立的
必須修正為 TIME> 213000 or TIME <=050000

以下為在該時段標示垂直線的例子:
SS:=TIME> 213000 or TIME <=050000;
VERTLINE(SS);

無論是 DRAWSL、DRAWNUMBER、DRAWTEXT 或其他的繪圖函數...
第一個參數皆為條件，條件成立才做顯示
將 SS 帶入第一個參數，就可以決定要不要顯示

向版主報告此篇 |

查IP位址

Old Post

2024-09-24 09:03

cgjj 現在離線

點選這裡給 cgjj 傳送一條短訊

查找更多關於 cgjj 的文章

增加 cgjj 至你的好友列表

編輯/刪除訊息

引用回覆

ivancclai
資深會員

註冊日期: Apr 2017
來　　自: New Taipei city
文章數量: 243

版主大大可以了謝謝

//=============================================台指期 M60==============================
// ======================================== 隔日線 =====================================
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 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;

EXPLAIN(1>0,'================'),colorFFFFFF;
//=====================================================================
DECK:=TRADEDATE<>REF(TRADEDATE,1);

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);

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

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

FILLRGN(DESP>0 AND (TIME >=213000 OR TIME <=50000) , RUU,RDD) color002255;

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

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

//PARTLINE(EDSP>0 AND (TIME >=150000 OR TIME <213000) ,RUU) COLORFFFF00 LINETHICK1 LINEDOT;
DRAWSL(ISLASTBAR ,RUU,0,0,3) pxdn0 colorFFFF00 LINETHICK1 LINEDOT;
EXPLAINEX(1>0,'12:46高 =',RUU,PN,0), colorFFFF00;
DRAWNUMBER(ISLASTBAR,RUU,RUU,PN) SHIFT3,colorFFFF00 PXUP60;
//DRAWTEXT(ISLASTBAR,RUU,'日60高') SHIFT5,colorFFFF00 PXUP60;

//PARTLINE(EDSP>0 AND (TIME >=150000 OR TIME <213000) ,RDD) COLORFFFF00 LINETHICK1 LINEDOT;
//PARTLINE(EDSP>0,RDD) COLORFFFF00 LINETHICK1 LINEDOT;
DRAWSL(ISLASTBAR ,RDD,0,0,3) pxdn0 coloRFFFF00 LINETHICK1 LINEDOT;
EXPLAINEX(1>0,'13:45低 =',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 AND (TIME >=140000 AND TIME <213000), RUU,RDD) color666600;

//=================================================================
//夜尾(青線)

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,'04:01高 =',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,'05:00低 =',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 AND TIME >080000 AND TIME< 140000, RUU,RDD) color006666;
//=============================================================

KLINE(OPEN,HIGH,LOW,CLOSE,0);

向版主報告此篇 |

查IP位址

Old Post

2024-09-24 17:11

ivancclai 現在離線

點選這裡給 ivancclai 傳送一條短訊

查找更多關於 ivancclai 的文章

增加 ivancclai 至你的好友列表

編輯/刪除訊息

引用回覆

cgjj
總版主

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

引用:
最初由 ivancclai 發表
版主大大可以了謝謝

//=============================================台指期 M60==============================
// ======================================== 隔日線 =====================================
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 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;

EXPLAIN(1>0,'================'),colorFFFFFF;
//=====================================================================
DECK:=TRADEDATE<>REF(TRADEDATE,1);

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);

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

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

FILLRGN(DESP>0 AND (TIME >=213000 OR TIME <=50000) , RUU,RDD) color002255;

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

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

//PARTLINE(EDSP>0 AND (TIME >=150000 OR TIME <213000) ,RUU) COLORFFFF00 LINETHICK1 LINEDOT;
DRAWSL(ISLASTBAR ,RUU,0,0,3) pxdn0 colorFFFF00 LINETHICK1 LINEDOT;
EXPLAINEX(1>0,'12:46高 =',RUU,PN,0), colorFFFF00;
DRAWNUMBER(ISLASTBAR,RUU,RUU,PN) SHIFT3,colorFFFF00 PXUP60;
//DRAWTEXT(ISLASTBAR,RUU,'日60高') SHIFT5,colorFFFF00 PXUP60;

//PARTLINE(EDSP>0 AND (TIME >=150000 OR TIME <213000) ,RDD) COLORFFFF00 LINETHICK1 LINEDOT;
//PARTLINE(EDSP>0,RDD) COLORFFFF00 LINETHICK1 LINEDOT;
DRAWSL(ISLASTBAR ,RDD,0,0,3) pxdn0 coloRFFFF00 LINETHICK1 LINEDOT;
EXPLAINEX(1>0,'13:45低 =',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 AND (TIME >=140000 AND TIME <213000), RUU,RDD) color666600;

//=================================================================
//夜尾(青線)

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,'04:01高 =',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,'05:00低 =',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 AND TIME >080000 AND TIME< 140000, RUU,RDD) color006666;
//=============================================================

KLINE(OPEN,HIGH,LOW,CLOSE,0);

其中這段程式碼

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);

可直接簡化為

DECK:Tradedate<>ref(Tradedate,1) or IsRegularFBar;
DESP:=BARSLAST(DECK);

向版主報告此篇 |

查IP位址

Old Post

2024-09-25 08:27

cgjj 現在離線

點選這裡給 cgjj 傳送一條短訊

查找更多關於 cgjj 的文章

增加 cgjj 至你的好友列表

編輯/刪除訊息

引用回覆

ivancclai
資深會員

註冊日期: Apr 2017
來　　自: New Taipei city
文章數量: 243

版主你好

我要顯示最後一根ˊ60 分k　開高低值　在不同時區(1/5/15/30 分Ｋ時區上前面小時ｋ　不顯示
要如何修改　我不會需要求助版主　

//======================= 行進60 分K　　開高低　===========
IF DATATYPE <6 or datatype=12 then begin
CK60:=REF(MOD(OPENMINUTES,60)=0,1);
CKSP60:=BARSLAST(CK60);
MH60:HHV(HIGH,CKSP60+1) color0000FF LINETHICK1 LINEDASH;
ML60:LLV(LOW,CKSP60+1) color00FF00 LINETHICK1 LINEDASH;
MO60:REF(OPEN,CKSP60) colorFFFFFF LINETHICK1 LINEDASH;

//PN:=0; //小數位數
DRAWSL(ISLASTBAR ,MO60,0,0,3) coloRFFFFFF LINEDASH linethick1;
//DRAWSL(ISLASTBAR ,MO60,0,0,1) coloRFFFFFF linethick1 LINEDOT;
DRAWNUMBER(ISLASTBAR,MO60,MO60,PN) SHIFT3,coLorFFFFFF PXUP60;
DRAWTEXT(ISLASTBAR,MO60,'60k開') SHIFT7,colorFFFFFF PXUP60;

DRAWSL(ISLASTBAR ,MH60,0,0,3) color0000FF LINETHICK1 LINEDASH;
//DRAWSL(ISLASTBAR ,MH60,0,0,1) colorFF LINETHICK1 LINEDOT ;
DRAWNUMBER(ISLASTBAR,MH60,MH60,PN) SHIFT3,color0000FF PXUP60;
DRAWTEXT(ISLASTBAR,MH60,'60k高') SHIFT7,color0000FF PXUP60;

DRAWSL(ISLASTBAR ,ML60,0,0,3) coloR00FF00 LINETHICK1 LINEDASH;
//DRAWSL(ISLASTBAR ,ML60,0,0,1), coloRFF00 LINETHICK1 LINEDOT;
DRAWNUMBER(ISLASTBAR,ML60,ML60,PN) SHIFT3,color00FF00 PXUP60;
DRAWTEXT(ISLASTBAR,ML60,'60低') SHIFT7,color00FF00 PXUP60;
K60:= MH60-ML60;

EXPLAIN(1,'================'),colorFFFFFF;
EXPLAINEX(ISLASTBAR,'行進60K高=',MH60,PN,0), color0000FF;
EXPLAINEX(ISLASTBAR,'行進60K開=',MO60,PN,0), colorFFFFFF;
EXPLAINEX(ISLASTBAR,'行進60k低=',ML60,PN,0), color00FF00;
EXPLAINEX(ISLASTBAR,'行進60k差=',K60,PN,0), colorFFFFFF;
EXPLAIN(1,'================'),colorFFFFFF;
end;
//==================================================================

最後由 ivancclai 在 2024-11-03 10:43 編輯

向版主報告此篇 |

查IP位址

Old Post

2024-11-03 09:10

ivancclai 現在離線

點選這裡給 ivancclai 傳送一條短訊

查找更多關於 ivancclai 的文章

增加 ivancclai 至你的好友列表

編輯/刪除訊息

引用回覆

cgjj
總版主

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

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

我要顯示最後一根ˊ60 分k　開高低值　在不同時區(1/5/15/30 分Ｋ時區上前面小時ｋ　不顯示
要如何修改　我不會需要求助版主　

//======================= 行進60 分K　　開高低　===========
IF DATATYPE <6 or datatype=12 then begin
CK60:=REF(MOD(OPENMINUTES,60)=0,1);
CKSP60:=BARSLAST(CK60);
MH60:HHV(HIGH,CKSP60+1) color0000FF LINETHICK1 LINEDASH;
ML60:LLV(LOW,CKSP60+1) color00FF00 LINETHICK1 LINEDASH;
MO60:REF(OPEN,CKSP60) colorFFFFFF LINETHICK1 LINEDASH;

//PN:=0; //小數位數
DRAWSL(ISLASTBAR ,MO60,0,0,3) coloRFFFFFF LINEDASH linethick1;
//DRAWSL(ISLASTBAR ,MO60,0,0,1) coloRFFFFFF linethick1 LINEDOT;
DRAWNUMBER(ISLASTBAR,MO60,MO60,PN) SHIFT3,coLorFFFFFF PXUP60;
DRAWTEXT(ISLASTBAR,MO60,'60k開') SHIFT7,colorFFFFFF PXUP60;

DRAWSL(ISLASTBAR ,MH60,0,0,3) color0000FF LINETHICK1 LINEDASH;
//DRAWSL(ISLASTBAR ,MH60,0,0,1) colorFF LINETHICK1 LINEDOT ;
DRAWNUMBER(ISLASTBAR,MH60,MH60,PN) SHIFT3,color0000FF PXUP60;
DRAWTEXT(ISLASTBAR,MH60,'60k高') SHIFT7,color0000FF PXUP60;

DRAWSL(ISLASTBAR ,ML60,0,0,3) coloR00FF00 LINETHICK1 LINEDASH;
//DRAWSL(ISLASTBAR ,ML60,0,0,1), coloRFF00 LINETHICK1 LINEDOT;
DRAWNUMBER(ISLASTBAR,ML60,ML60,PN) SHIFT3,color00FF00 PXUP60;
DRAWTEXT(ISLASTBAR,ML60,'60低') SHIFT7,color00FF00 PXUP60;
K60:= MH60-ML60;

EXPLAIN(1,'================'),colorFFFFFF;
EXPLAINEX(ISLASTBAR,'行進60K高=',MH60,PN,0), color0000FF;
EXPLAINEX(ISLASTBAR,'行進60K開=',MO60,PN,0), colorFFFFFF;
EXPLAINEX(ISLASTBAR,'行進60k低=',ML60,PN,0), color00FF00;
EXPLAINEX(ISLASTBAR,'行進60k差=',K60,PN,0), colorFFFFFF;
EXPLAIN(1,'================'),colorFFFFFF;
end;
//==================================================================

原碼://======================= 行進60 分K　　開高低　===========
IF DATATYPE <6 or datatype=12 then begin
CK60:=REF(MOD(OPENMINUTES,60)=0,1);
CKSP60:=BARSLAST(CK60);
if lbound(CKSP60)=0 then exit; //K棒不足
StK:=datacount-CKSP60[datacount];
x:=SETLBOUND(CKSP60,Stk);
MH60:HHV(HIGH,CKSP60+1) color0000FF LINETHICK0;
ML60:LLV(LOW,CKSP60+1) color00FF00 LINETHICK0;
MO60:REF(OPEN,CKSP60) colorFFFFFF LINETHICK0;

//PN:=0; //小數位數
DRAWSL(ISLASTBAR ,MO60,0,0,3) coloRFFFFFF LINEDASH linethick1;
//DRAWSL(ISLASTBAR ,MO60,0,0,1) coloRFFFFFF linethick1 LINEDOT;
DRAWNUMBER(ISLASTBAR,MO60,MO60,PN) SHIFT3,coLorFFFFFF PXUP60;
DRAWTEXT(ISLASTBAR,MO60,'60k開') SHIFT7,colorFFFFFF PXUP60;

DRAWSL(ISLASTBAR ,MH60,0,0,3) color0000FF LINETHICK1 LINEDASH;
//DRAWSL(ISLASTBAR ,MH60,0,0,1) colorFF LINETHICK1 LINEDOT ;
DRAWNUMBER(ISLASTBAR,MH60,MH60,PN) SHIFT3,color0000FF PXUP60;
DRAWTEXT(ISLASTBAR,MH60,'60k高') SHIFT7,color0000FF PXUP60;

DRAWSL(ISLASTBAR ,ML60,0,0,3) coloR00FF00 LINETHICK1 LINEDASH;
//DRAWSL(ISLASTBAR ,ML60,0,0,1), coloRFF00 LINETHICK1 LINEDOT;
DRAWNUMBER(ISLASTBAR,ML60,ML60,PN) SHIFT3,color00FF00 PXUP60;
DRAWTEXT(ISLASTBAR,ML60,'60低') SHIFT7,color00FF00 PXUP60;
K60:= MH60-ML60;

EXPLAIN(1,'================'),colorFFFFFF;
EXPLAINEX(ISLASTBAR,'行進60K高=',MH60,PN,0), color0000FF;
EXPLAINEX(ISLASTBAR,'行進60K開=',MO60,PN,0), colorFFFFFF;
EXPLAINEX(ISLASTBAR,'行進60k低=',ML60,PN,0), color00FF00;
EXPLAINEX(ISLASTBAR,'行進60k差=',K60,PN,0), colorFFFFFF;
EXPLAIN(1,'================'),colorFFFFFF;
end;
//==================================================================

向版主報告此篇 |

查IP位址

Old Post

2024-11-03 16:00

cgjj 現在離線

點選這裡給 cgjj 傳送一條短訊

查找更多關於 cgjj 的文章

增加 cgjj 至你的好友列表

編輯/刪除訊息

引用回覆

ivancclai
資深會員

註冊日期: Apr 2017
來　　自: New Taipei city
文章數量: 243

版主你好

謝謝你可以了

向版主報告此篇 |

查IP位址

Old Post

2024-11-05 14:59

ivancclai 現在離線

點選這裡給 ivancclai 傳送一條短訊

查找更多關於 ivancclai 的文章

增加 ivancclai 至你的好友列表

編輯/刪除訊息

引用回覆

ivancclai
資深會員

註冊日期: Apr 2017
來　　自: New Taipei city
文章數量: 243

版主你好

我要加一新功能畫線

在最後這60分鐘在不同更小時區畫線
取最高點從這一小時開始至 LAST BAST 在更小時區中我怎麼寫就是畫錯需要版主的協助謝謝

CK60:=REF(MOD(OPENMINUTES,60)=0,1);
CKSP60:=BARSLAST(CK60);
IF LBOUND(CKSP60)=0 then exit; //K棒不足
StK:=DATACOUNT-CKSP60[DATACOUNT];
x:=SETLBOUND(CKSP60,Stk);
MH60:HHV(HIGH,CKSP60+1) colorFF33FF LINETHICK5 LINEDASH ;
ML60:LLV(LOW,CKSP60+1) colorFFFF00 LINETHICK2 LINEDASH;
MO60:REF(OPEN,CKSP60) colorFFFFFF LINETHICK5 LINEDASH;

//MH60A:=HHV(HIGH,CKSP60+1) COLOR0000FF LINEthick5 LINEDASH;
//ML60A:=LLV(LOW,CKSP60+1) COLOR00FF00 LINETHICK3 LINEDASH;
//DRAWLINE(CK60,MH60A,ISLASTBAR,MH60A,0) COLOR0000FF LINETHICK5;
//DRAWLINE(CK60,ML60A,ISLASTBAR,ML60A,0) COLOR00FF00 LINETHICK5;

向版主報告此篇 |

查IP位址

Old Post

2024-11-07 09:49

ivancclai 現在離線

點選這裡給 ivancclai 傳送一條短訊

查找更多關於 ivancclai 的文章

增加 ivancclai 至你的好友列表

編輯/刪除訊息

引用回覆

cgjj
總版主

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

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

我要加一新功能畫線

在最後這60分鐘在不同更小時區畫線
取最高點從這一小時開始至 LAST BAST 在更小時區中我怎麼寫就是畫錯需要版主的協助謝謝

CK60:=REF(MOD(OPENMINUTES,60)=0,1);
CKSP60:=BARSLAST(CK60);
IF LBOUND(CKSP60)=0 then exit; //K棒不足
StK:=DATACOUNT-CKSP60[DATACOUNT];
x:=SETLBOUND(CKSP60,Stk);
MH60:HHV(HIGH,CKSP60+1) colorFF33FF LINETHICK5 LINEDASH ;
ML60:LLV(LOW,CKSP60+1) colorFFFF00 LINETHICK2 LINEDASH;
MO60:REF(OPEN,CKSP60) colorFFFFFF LINETHICK5 LINEDASH;

//MH60A:=HHV(HIGH,CKSP60+1) COLOR0000FF LINEthick5 LINEDASH;
//ML60A:=LLV(LOW,CKSP60+1) COLOR00FF00 LINETHICK3 LINEDASH;
//DRAWLINE(CK60,MH60A,ISLASTBAR,MH60A,0) COLOR0000FF LINETHICK5;
//DRAWLINE(CK60,ML60A,ISLASTBAR,ML60A,0) COLOR00FF00 LINETHICK5;

無法精確了解您意思，可否畫個圖例呢?

向版主報告此篇 |

查IP位址

Old Post

2024-11-07 11:50

cgjj 現在離線

點選這裡給 cgjj 傳送一條短訊

查找更多關於 cgjj 的文章

增加 cgjj 至你的好友列表

編輯/刪除訊息

引用回覆

ivancclai
資深會員

註冊日期: Apr 2017
來　　自: New Taipei city
文章數量: 243

版主你好

假設目前畫法會整個畫面都看到ˊ60 分k 高低
我要從這一小時起點
開始向畫面右邊畫左邊不要出現如圖例

ivancclai 附帶上了此圖片:

向版主報告此篇 |

查IP位址

Old Post

2024-11-07 16:34

ivancclai 現在離線

點選這裡給 ivancclai 傳送一條短訊

查找更多關於 ivancclai 的文章

增加 ivancclai 至你的好友列表

編輯/刪除訊息

引用回覆

cgjj
總版主

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

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

假設目前畫法會整個畫面都看到ˊ60 分k 高低
我要從這一小時起點
開始向畫面右邊畫左邊不要出現如圖例

原碼:IF DATATYPE <6 or datatype=12 then begin
CK60:=REF(MOD(OPENMINUTES,60)=0,1);
CKSP60:=BARSLAST(CK60);
if lbound(CKSP60)=0 then exit; //K棒不足
StK:=datacount-CKSP60[datacount];
x:=SETLBOUND(CKSP60,Stk);
MH60:HHV(HIGH,CKSP60+1) color0000FF LINETHICK0;
ML60:LLV(LOW,CKSP60+1) color00FF00 LINETHICK0;
MO60:REF(OPEN,CKSP60) colorFFFFFF LINETHICK0;
DWL:=CKSP60[datacount];
DWCK:=ISLASTBAR and DWL>0;

//PN:=0; //小數位數
DRAWSL(ISLASTBAR ,MO60,0,0,3) coloRFFFFFF LINEDASH pxdn2;
DRAWSL(DWCK,MO60,0,-DWL,1) coloRFFFFFF pxdn2;
DRAWNUMBER(ISLASTBAR,MO60,MO60,PN) SHIFT3,coLorFFFFFF PXUP60;
DRAWTEXT(ISLASTBAR,MO60,'60k開') SHIFT7,colorFFFFFF PXUP60;

DRAWSL(ISLASTBAR ,MH60,0,0,3) color0000FF LINEDASH pxdn2;
DRAWSL(DWCK,MH60,0,-DWL,1) color0000FF pxdn2;
DRAWNUMBER(ISLASTBAR,MH60,MH60,PN) SHIFT3,color0000FF PXUP60;
DRAWTEXT(ISLASTBAR,MH60,'60k高') SHIFT7,color0000FF PXUP60;

DRAWSL(ISLASTBAR ,ML60,0,0,3) coloR00FF00 LINEDASH pxdn2;
DRAWSL(DWCK,ML60,0,-DWL,1) coloR00FF00 pxdn2;
DRAWNUMBER(ISLASTBAR,ML60,ML60,PN) SHIFT3,color00FF00 PXUP60;
DRAWTEXT(ISLASTBAR,ML60,'60低') SHIFT7,color00FF00 PXUP60;
K60:= MH60-ML60;

EXPLAIN(1,'================'),colorFFFFFF;
EXPLAINEX(ISLASTBAR,'行進60K高=',MH60,PN,0), color0000FF;
EXPLAINEX(ISLASTBAR,'行進60K開=',MO60,PN,0), colorFFFFFF;
EXPLAINEX(ISLASTBAR,'行進60k低=',ML60,PN,0), color00FF00;
EXPLAINEX(ISLASTBAR,'行進60k差=',K60,PN,0), colorFFFFFF;
EXPLAIN(1,'================'),colorFFFFFF;
end;

向版主報告此篇 |

查IP位址

Old Post

2024-11-07 16:45

cgjj 現在離線

點選這裡給 cgjj 傳送一條短訊

查找更多關於 cgjj 的文章

增加 cgjj 至你的好友列表

編輯/刪除訊息

引用回覆

ivancclai
資深會員

註冊日期: Apr 2017
來　　自: New Taipei city
文章數量: 243

版主你好

可以了謝謝你

向版主報告此篇 |

查IP位址

Old Post

2024-11-07 17:12

ivancclai 現在離線

點選這裡給 ivancclai 傳送一條短訊

查找更多關於 ivancclai 的文章

增加 ivancclai 至你的好友列表

編輯/刪除訊息

引用回覆

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

發表新主題

回覆主題

上一主題下一主題

顯示可列印版本 |

訂閱此主題

論壇跳轉:

主題評分:

論壇規定:

你不可以發表新主題
你不可以回覆文章
你不可以上傳附件
你不可以編輯自己的文章

HTML語法禁止
vB 語法核准
表情符號核准
貼圖語法[IMG]核准

本站所有內容未經作者授權禁止轉貼節錄, 發表言論僅供參考勿作為投資決策依據。瀏覽本站請使用 IE 5.5 以上版本, 最佳瀏覽解析度 1024 x 768 全彩。

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