全部身家悬赏：GAUSS的CODE转换

身上银两就18个。。。虽然寒碜点但足见心诚了~~~

论文的METHODOLOGY部分要测时间序列的结构断点，老师要求我们用OXMETRICS的语言实现GAUSS的程序。
具体要求其实不多，就是要我们通过示范文件搞清楚在GAUSS里要用哪些命令和步骤测断点，然后转成OX语言在OX里实现。
示范文件见附件CODE，我不知道该怎么把里面的GAUSS语言解释出来。
具体问题如下：文件里应该是几段不同的过程，我不知道每段从哪里开始，看得非常迷惑；
                           这些命令行是不是称为程序函数？该怎么查找其意思呢？
                           OX里的格式也和GAUSS一样？
哪位同学能帮下忙，从这段CODE里选一段给我坐下示范。

这个帖子很好，欢迎大家踊跃参与讨论，参与者均有奖励。

proc bandw(vhat);
local nt,i,b,sig,a2,a2n,a2d,st,d;
@procedure that compute the automatic bandwidth based on AR(1)
approximation for each vector of the matrix vhat. Each are given
equal weigths of 1.@

nt=rows(vhat);
d=cols(vhat);
a2n=0;
a2d=0;
i=1;
do while i <= d;
b=olsqr(vhat[2:nt,i],vhat[1:nt-1,i]);
sig=(vhat[2:nt,i]-b*vhat[1:nt-1,i])'(vhat[2:nt,i]-b*vhat[1:nt-1,i]);
sig=sig/(nt-1);
a2n=a2n+4*b*b*sig*sig/(1-b)^8;
a2d=a2d+sig*sig/(1-b)^4;
i=i+1;
endo;
a2=a2n/a2d;
st=1.3221*(a2*nt)^.2;
retp(st);
endp;

这一段是计算帘宽的程序

proc kern(x);
local del,del1,ker;
@procedure to evaluate the quadratic kernel at some value x.@

del=6*pi*x/5;
ker=3*(sin(del)/del-cos(del))/(del*del);
retp(ker);
endp;

上面这段是核函数的程序。

上面这段是核函数的程序。

谢谢斑竹回复。
这个文件里的是有几段独立的程序还是全部属于一个呢？
另外红色字体和绿色字体都是解释吗？每段开头的PRINT代表什么？

这个程序应该要结合Baijushan1995年的文献来看。

大致看来是属于一个总程序，PRINT是要最后算出来的结果看的清楚一些。