共7 条记录, 每页显示 10 条, 页签: [1]

[浏览完整版]

标题：TB代码转到金字塔求助

1楼

soler 发表于：2014/4/1 17:00:52

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编辑过]

2楼

jinzhe 发表于：2014/4/1 17:12:08

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

3楼

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;

4楼

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;

5楼

jinzhe 发表于：2014/4/1 17:27:03

没看到回帖，再发一次

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

6楼

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;

7楼

jinzhe 发表于：2014/4/2 8:59:31

用IE发

共7 条记录, 每页显示 10 条, 页签: [1]