TV:=IF(DATE<>REF(DATE,1),0,REF(TV,1))+V;
TT:=IF(DATE<>REF(DATE,1),0,REF(TT,1))+(C+O+H+L)*0.25*V;
AP:=TT/TV;
PARTLINE(DATE=REF(DATE,1),AP);
改了几次没成功,请各位老师帮忙改一下。
你得描述描述你的意图
你得描述描述你的意图
这个是分钟图上的成本均线,和分时图上的成本均线一个意思。
标准版:
variable:tv=0,tt=0;
if DATE<>REF(DATE,1) then begin
tv:=0;
tt:=0;
end
else begin
tv:=tv+v;
tt:=tt+(c+o+h+l)*0.25*v;
end
if date=ref(date,1) then ap:tt/tv;
就是把当日内的每根K线的成交金额和成交量分别累加,然后实时相除。
即:成本均线=Σ日内成交金额/Σ日内成交量
标准版:
variable:tv=0,tt=0;
if DATE<>REF(DATE,1) then begin
tv:=0;
tt:=0;
end
else begin
tv:=tv+v;
tt:=tt+(c+o+h+l)*0.25*v;
end
if date=ref(date,1) then ap:tt/tv;
多谢版主,不过实际效果好像不是成本均线,是否博易公式语言和金字塔的不一样?
版主用的是Pascal语言?
博易大师我熟得很。博易是我最开始学的一个软件
我的代码,跟你博易上的代码算法一模一样
至于,是不是你要的成本线,这个每个人都有自己的算法
就是把当日内的每根K线的成交金额和成交量分别累加,然后实时相除。
即:成本均线=Σ日内成交金额/Σ日内成交量
按照你这个说法,你所提供的博易大师的代码也只是近似实现而已
精确的算法如何实现,论坛早有讨论
http://www.weistock.com/bbs/dispbbs.asp?BoardID=4&ID=4550&replyID=&skin=1