奇狐社區論壇 - 分時平均成本

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

由 cffyz168 在 2022-10-06 17:43 發表:

分時平均成本

分時平均成本:0,Color66CCFF,LINETHICK0;
ZZTS:=strright(stklabel,1)='+'; //本商品具備盤後交易
if ZZTS then TDATE:Tradedate ColorMAGENTA linethick;
if datatype<1 or datatype=12 then begin //分線以下週期
SP:=Sum(C*Vol,0); SV:=SUM(Vol,0);
分時平均成本:=SP/SV;
DW:=1; if datatype<>0 then DW:=SV>0 and (ref(SV,1)>0 or barpos=1);
PARTLINE(DW,分時平均成本),Color66CCFF,LINETHICK2;
end else begin
DECK:=TradeDate<>ref(TradeDate,1);
DESP:=barslast(DECK);
if DATATYPE =1 or DATATYPE =2 or DATATYPE =3 or DATATYPE =4 or DATATYPE =5 then
VERTLINE(DECK) ColorMAGENTA linedot; //標示換交易日(垂直分隔線)
KLINE(O,H,L,C,0);
SP:=Sum(((H+L+C*2)/4)*Vol,DESP+1);
SV:=Sum(Vol,DESP+1);
分時平均成本:=SP/SV;
DW:=DESP>0 and SV>0 and ref(SV,1)>0;
PARTLINE(DW,分時平均成本),Color66CCFF,LINETHICK2;
end;
請問，分時平均成本線如何用在外期小道瓊每日2130與2230時，與道瓊開盤時間同步計算

由 cgjj 在 2022-10-06 19:40 發表:

回覆: 分時平均成本

引用:
最初由 cffyz168 發表
分時平均成本:0,Color66CCFF,LINETHICK0;
ZZTS:=strright(stklabel,1)='+'; //本商品具備盤後交易
if ZZTS then TDATE:Tradedate ColorMAGENTA linethick;
if datatype<1 or datatype=12 then begin //分線以下週期
SP:=Sum(C*Vol,0); SV:=SUM(Vol,0);
分時平均成本:=SP/SV;
DW:=1; if datatype<>0 then DW:=SV>0 and (ref(SV,1)>0 or barpos=1);
PARTLINE(DW,分時平均成本),Color66CCFF,LINETHICK2;
end else begin
DECK:=TradeDate<>ref(TradeDate,1);
DESP:=barslast(DECK);
if DATATYPE =1 or DATATYPE =2 or DATATYPE =3 or DATATYPE =4 or DATATYPE =5 then
VERTLINE(DECK) ColorMAGENTA linedot; //標示換交易日(垂直分隔線)
KLINE(O,H,L,C,0);
SP:=Sum(((H+L+C*2)/4)*Vol,DESP+1);
SV:=Sum(Vol,DESP+1);
分時平均成本:=SP/SV;
DW:=DESP>0 and SV>0 and ref(SV,1)>0;
PARTLINE(DW,分時平均成本),Color66CCFF,LINETHICK2;
end;
請問，分時平均成本線如何用在外期小道瓊每日2130與2230時，與道瓊開盤時間同步計算

原碼://僅適用小道瓊分線
TE:=TIME;
T1:=ABS(TE[datacount]-TE[datacount-1]);
T2:=ABS(TE[datacount-1]-TE[datacount-2]);
KT:=MIN(T1,T2);
FKKT:=ref(TE,barslast(IsRegularFBar))-KT+153000;
DECK:=TIME=FKKT;
DESP:=barslast(DECK);
KLINE(O,H,L,C,0);
SP:=Sum(((H+L+C*2)/4)*Vol,DESP+1);
SV:=Sum(Vol,DESP+1);
分時平均成本:=SP/SV;
DW:=DESP>0 and SV>0 and ref(SV,1)>0;
PARTLINE(DW,分時平均成本),Color66CCFF,LINETHICK2;

由 cgjj 在 2022-10-06 21:21 發表:

Sorry! 差了一根，重新修正如下：

原碼://僅適用小道瓊分線
TE:=TIME;
T1:=ABS(TE[datacount]-TE[datacount-1]);
T2:=ABS(TE[datacount-1]-TE[datacount-2]);
KT:=MIN(T1,T2);
FKKT:=ref(TE,barslast(IsRegularFBar))-KT+153000;
DECK:=TIME=FKKT+KT;
DESP:=barslast(DECK);
KLINE(O,H,L,C,0);
SP:=Sum(((H+L+C*2)/4)*Vol,DESP+1);
SV:=Sum(Vol,DESP+1);
分時平均成本:=SP/SV;
DW:=DESP>0 and SV>0 and ref(SV,1)>0;
PARTLINE(DW,分時平均成本),Color66CCFF,LINETHICK2;

由 cffyz168 在 2022-10-07 01:31 發表:

若將原程式改成 DECK:=TIME=213000;
DESP:=barslast(DECK);
......................
DW:=DESP>0 and SV>0 and ref(SV,1)>0;
PARTLINE(DW,分時平均成本),Color66CCFF,LINETHICK2;
end;
這樣是否也可以

由 cgjj 在 2022-10-07 09:10 發表:

引用:
最初由 cffyz168 發表
若將原程式改成 DECK:=TIME=213000;
DESP:=barslast(DECK);
......................
DW:=DESP>0 and SV>0 and ref(SV,1)>0;
PARTLINE(DW,分時平均成本),Color66CCFF,LINETHICK2;
end;
這樣是否也可以

不可以!
以五分鐘為例
TIME=213000 代表的是 21:26-21:30 這根五分K棒

我那樣寫是為了適應各種分線，並考量了夏令和冬令交替
只要交易時間沒有修改，就可以自動適應

由 cffyz168 在 2022-10-07 11:08 發表:

謝謝版主

瞭解，謝謝版主

全部時間均為台灣時間, 現在時間為05:51

在這個頁面顯示本主題全部的 6 個文章