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

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

奇狐社區論壇 > 指標公式 > 問題交流 > 分時平均成本

上一主題下一主題

作者

主題

cffyz168
資深會員

註冊日期: Feb 2016
來　　自:
文章數量: 239

分時平均成本

分時平均成本: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時，與道瓊開盤時間同步計算

向版主報告此篇 |

2022-10-06 17:43

cgjj
總版主

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

回覆: 分時平均成本

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

向版主報告此篇 |

2022-10-06 19:40

cgjj
總版主

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

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;

向版主報告此篇 |

2022-10-06 21:21

cffyz168
資深會員

註冊日期: Feb 2016
來　　自:
文章數量: 239

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

最後由 cffyz168 在 2022-10-07 01:49 編輯

向版主報告此篇 |

2022-10-07 01:31

cgjj
總版主

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

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