以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  公式模型编写问题提交  (http://weistock.com/bbs/list.asp?boardid=4)
----  TB转金字塔  (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=56138)
--  作者：lc1227
--  发布时间：2013/9/3 10:51:49
--  TB转金字塔
SumX = N * ( N - 1 ) * 1/2;
SumY = Summation( Close, N) ;
for i = 0 to N-1
{
SumXY = SumXY + i * Close[i] ;
SumXX = SumXX + i * i ;
SumYY = SumYY + Close[i] * Close[i] ;
}
R2 = (SumXY - N*(SumX/N)*(SumY/N)) / Sqrt((SumXX - SumX*SumX/N)*(SumYY - SumY*SumY/N));
--  作者：jinzhe
--  发布时间：2013/9/3 10:55:31
--  
解释下代码
--  作者：lc1227
--  发布时间：2013/9/3 10:59:06
--  
例如 n=30  
                 SumX = N * ( N - 1 ) * 1/2;
 SumY = Summation( Close, N) ;//求和
 for i = 0 to N-1
{
SumXY = SumXY + i * Close[i] ;  //close[i]就是ref(c,i)
SumXX = SumXX + i * i ;
SumYY = SumYY + Close[i] * Close[i] ;
}
--  作者：jinzhe
--  发布时间：2013/9/3 11:07:19
--  

sumxy

sumxx

sumyy的初始值是？
--  作者：lc1227
--  发布时间：2013/9/3 11:09:10
--  
初始值都是0
--  作者：jinzhe
--  发布时间：2013/9/3 13:20:26
--  
SumX = N * ( N - 1 ) * 1/2;
SumY = Summation( Close, N) ;
for i = 0 to N-1
{
SumXY = SumXY + i * Close[i] ;
SumXX = SumXX + i * i ;
SumYY = SumYY + Close[i] * Close[i] ;
}
R2 = (SumXY - N*(SumX/N)*(SumY/N)) / Sqrt((SumXX - SumX*SumX/N)*(SumYY - SumY*SumY/N));
--  作者：lc1227
--  发布时间：2013/9/3 14:21:26
--  
你这是回答么？
--  作者：jinzhe
--  发布时间：2013/9/3 14:29:30
--  

不好意思啊，复制错了，抱歉

 

n:=30;  
sumx:=n*(n-1)/2;
sumy:=sum(c,n);
variable:sumxx[n]=0,sumyy[30]=0,sumxy[30]=0;
r1:=ref(c,1);
for i=2 to n do begin
    sumxy[i]:=sumxy[i-1]+i*r1;
    sumxx[i]:=sumxx[i-1]+i*i;
    sumyy[i]:=sumyy[i]+r1*r1;
end

r2:=(sumxy-n*(sumx/n))/sqrt((sumxx-sumx*sumx/n)*(sumyy-sumy*sumy/n));
--  作者：lc1227
--  发布时间：2013/9/3 16:24:35
--  
十分感谢，哈哈