急等高手解决：循环执行结果不正确，困扰两周了……。

ab200233

想测试多个商品的相关系数。写了一段代码。却发现循环执行结果不正确。但手工输入却可以得到正确结果。
但我如果手写的话，测试几十个商品的话，太麻烦了。
研究了好久，一直找不到答案，急盼高手解答，感谢！

以下是代码和测试结果图片：
Params
Vars
        NumericArray CoefficientRS;
        NumericArray CoefficientRS1;
        Numeric CoefficientRS2;
        Numeric k;
        Numeric k1;
        Numeric j(1);
        Numeric p(0);
        
Begin
     for k=0 to 2
         {

           for j=k+1 to 2
          {
        CoefficientRS1[p]=        CoefficientR(Data[k].Close, Data[j].Close);  
        p=p+1;
       }
         }   


        k=0;j=2;
    CoefficientRS[0]=CoefficientR(Data[k].Close, Data[j].Close);
        k=0;j=2;
    CoefficientRS[1]=CoefficientR(Data[k].Close, Data[j].Close);
        k=1;j=2;
    CoefficientRS[2]=CoefficientR(Data[k].Close, Data[j].Close);

         

   //测试显示
   for p=0 to 2
        Commentary("CoefficientRS="+Text(CoefficientRS[p])+"CoefficientRS1="+Text(CoefficientRS1[p]));
        
End

ab200233

这么久了，都没有人能够解决吗？

ab200233

这么久了，都没有能够解决高手吗？

ab200233

这么久了，都没有能够解决高手吗？