序列变量，致命bug！！！

brucecolvin

序列变量，致命bug！！！

新建一个函数testseries，代码如下:

1. Params
   
2.         Numeric ind(0);
   
3.         Numeric dat(0);
   
4. Vars
   
5.         NumericSeries Num;
   
6. Begin
   
7.         
   
8. 
   
9.         if(ind<0)
   
10.         {
    
11.                 Num = dat;
    
12.                 return dat;
    
13.         }
    
14.         
    
15.         Return Num[ind];
    
16. 
    
17. End

复制代码

新建一个交易指令AAS，代码如下：

1. Params
   
2.         Numeric sn(5);
   
3. 
   
4. Vars
   
5. 
   
6.         Numeric tm(0);
   
7. 
   
8. Begin
   
9.        
   
10.                 testseries(-1,close);
    
11. 
    
12.                 tm = testseries;
    
13.        
    
14.                 Commentary(text(tm));
    
15. 
    
16.                 tm = testseries(1);
    
17. 
    
18.                 Commentary(text(tm));
    
19.        
    
20.                 tm = testseries(10);
    
21. 
    
22.                 Commentary(text(tm));
    
23. 
    
24. End

复制代码

图表显示如下：
0
0
0

怎么可能是0呢？明摆着每个bar都将close数据保存到序列变量num中了，回溯去1 10和0，0应该是当然bar的close，1应该是当前bar-1的close，10应该是当前bar-10的close，都显示0，说致命bug。。。。

结果图表显示的信息是：

[ 本帖最后由 brucecolvin 于 2010-6-1 20:34 编辑 ]

lh948

Num[-1];?
取不到未来数据，所以为0

brucecolvin

原帖由 lh948 于 2010-6-1 20:30 发表
Num[-1];?
取不到未来数据，所以为0

负数的时候表示对序列变量赋值，大于等于0表示取值。

负数的时候
if(ind<0)
{
     Num = dat;
     return dat;
}

[ 本帖最后由 brucecolvin 于 2010-6-1 20:34 编辑 ]

brucecolvin

由于全局变量不够用，所以想到用序列变量，目的就是将值先保存在序列变量中，后面取出使用，当ind者负数的时候保存值到序列变量，0或正数取值。ind 是个参数，等于0时，表示我要去当前bar的num值，大于0是要回溯值。

[ 本帖最后由 brucecolvin 于 2010-6-1 20:50 编辑 ]

xiachan

这个不是Bug，运行此函数的时候：

1. testseries(-1,close);

复制代码

Num序列的确被初始化了，但是它的作用域只是在函数内部，当运行到这个位置：

1. if(ind<0)
   
2.         {
   
3.                 Num = dat;
   
4.                 return dat;
   
5.         }

复制代码

随着函数返回dat，Num序列也就在内存里消失了。当你再次调用testseries的时候，Num会被重新初始化为0序列。
所以较好的解决办法是直接讲Num作为返回值，返回一个数字序列，先将收盘价保存起来，然后直接使用这个序列就好了，在testseries函数中，

1. if(ind<0)
   
2.         {
   
3.                 Num = dat;
   
4.                 return Num;
   
5.         }
   
6. return 0；

复制代码

然后，这样调用，

1. Params
   
2.        Numeric sn(5);
   
3. Vars
   
4.        Numeric tm(0);
   
5.        NumericSeries NumClose(0);
   
6. Begin      
   
7.        NumClose = testseries(-1,close);
   
8.        Commentary(Text(NumClose[0]));
   
9.        Commentary(Text(NumClose[1]));
   
10.        Commentary(Text(NumClose[10]));

复制代码

James

可以用SetTBProfileString解决变量不够用的问题

xiachan

6# James


写进去的类型就变成字符串了吧，不知还能不能转回成Numeric类型。

lh948

7# xiachan


可以使用函数Value转换成数值型