这个能实现什么？解释下这段代码是什么意思

作者：开拓者 TB 来源：cxh99.com 发布时间：2012年11月09日

咨询内容： Params
Numeric N(27);
Vars
NumericSeries Xi;
Numeric i;
Numeric SumXi;
Numeric SumYi;
Numeric SqrSumXi;
Numeric SqrSumYi;
Numeric SqrSumXY;

Begin


If(Day<>Day[1])
{
Xi=1;

}Else
{
Xi=Xi+1;
}
If(Xi>N)
{
For i = 1 To N
{
  SumXi=SumXi+Xi[i];
  SumYi=SumYi+Close[i];
  SqrSumXi=SqrSumXi+Sqr(xi[i]-SumXi/i);
  SqrSumYi=SqrSumYi+Sqr(Close[i]-SumYi/i);
  SqrSumXY=SqrSumXY+(xi[i]-SumXi/i)*(Close[i]-SumYi/i);
}
}
Commentary("SumXi="+Text(SumXi));
Commentary("SumYi="+Text(SumYi));
Commentary("SqrSumXi="+Text(SqrSumXi));
Commentary("SqrSumYi="+Text(SqrSumYi));
Commentary("SqrSumXY="+Text(SqrSumXY));

End
TB技术人员： 高手呢/?有那位好心的大哥解释下这段代码是什么意思么
TB客服： 难道没高手