公式模型编写问题提交-TB代码转到金字塔求助金字塔客服中心 - 专业程序化交易软件提供商

以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://222.73.7.161/bbs/index.asp)
--  公式模型编写问题提交  (http://222.73.7.161/bbs/list.asp?boardid=4)
----  TB代码转到金字塔求助  (http://222.73.7.161/bbs/dispbbs.asp?boardid=4&id=63391)

--  作者：soler
--  发布时间：2014/4/1 17:00:52
--  TB代码转到金字塔求助

if ((CurrentBar <= 30)) //当前k线位置小于30
{a24=((Close - Close[30]) / 30); //当前收盘减去30天前收盘除以30
a25=Average(Abs((Close - Close[1])),30);} //求abs(c-ref(c,1))的30平均
else
{
aa2=(Close - Close[1]) ; //当收跟前收差
a24=(a24[1] + ((aa2- a24[1]) * (1 / 30) ));
a25=(a25[1] + ((Abs(aa2) - a25[1]) * (1 / 30) ));}

这是我写的金字塔代码
variable:a24=0,a25=0;
bs:=count(c);
r30:=ref(c,30);
rc:=ref(c,1);
a25p:=ma(abs(c-ref(c,1)),30);
if bs<=30 then BEGIN
a24:=(c-r30)/30;
a25:=a25p;

end;
else BEGIN
aa2:=c-rc;
a24:=a24+(aa2-a24)*(1/30);
a25:=a25+(abs(aa2)-a25)*(1/30);

end;

可是计算出来的结果a25始终是0，我不知道问题出在哪里

[此贴子已经被作者于2014/4/1 17:01:31编辑过]

--  作者：jinzhe
--  发布时间：2014/4/1 17:12:08
--

第二句编译不通过，你确定你那里有输出值？

--  作者：soler
--  发布时间：2014/4/1 17:18:59
--

variable:a24=0,a25=0;
bs:=count(c);
r30:=ref(c,30);
rc:=ref(c,1);
a25p:=ma(abs(c-ref(c,1)),30);
if bs<=30 then BEGIN
a24:=(c-r30)/30;
a25:=a25p;

end;
else BEGIN
aa2:=c-rc;
a24:=a24+(aa2-a24)*(1/30);
a25:=a25+(abs(aa2)-a25)*(1/30);

end;

ddd:a25;

--  作者：soler
--  发布时间：2014/4/1 17:21:39
--

variable:a24=0,a25=0;
bs:=barscount(c);
r30:=ref(c,30);
rc:=ref(c,1);
a25p:=ma(abs(c-ref(c,1)),30);
if bs<=30 then BEGIN
a24:=(c-r30)/30;
a25:=a25p;

end;
else BEGIN
aa2:=c-rc;
a24:=a24+(aa2-a24)*(1/30);
a25:=a25+(abs(aa2)-a25)*(1/30);

end;

ddd:a25;

--  作者：jinzhe
--  发布时间：2014/4/1 17:27:03
--
没看到回帖，再发一次
[此贴子已经被作者于2014/4/1 17:27:12编辑过]

--  作者：soler
--  发布时间：2014/4/1 17:45:31
--

variable:a24=0,a25=0;
bs:=barscount(c);
r30:=ref(c,30);
rc:=ref(c,1);
a25p:=ma(abs(c-ref(c,1)),30);
if bs<=30 then BEGIN
a24:=(c-r30)/30;
a25:=a25p;

end;
else BEGIN
aa2:=c-rc;
a24:=a24+(aa2-a24)*(1/30);
a25:=a25+(abs(aa2)-a25)*(1/30);

end;

ddd:a25;

--  作者：jinzhe
--  发布时间：2014/4/2 8:59:31
--
用IE发