我的程序如下：
program myprog
version 12
syntax varlist
use d:\lshidata        //该数据文件中有四个时间序列fp y m s
local i=1
while `i'<=24{       //对y序列操作，y序列有24个数值
local h=abs(y[`i']+0.03)   
  if `h'<0.1 {        //如果第i 个y值满足这个条件则执行下面的if语句里面的语句
  local j=y[`i']
  local du=(y>`j')
  reg fp y m s if `du'==1   //对满足条件的四个序列回归
  local r1=e(RSS)           //保存残差
  reg fp y m s if `du'==0
  local r2=e(RSS)
  local rr[`i']=`r1'+`r2'}  //用一个数组保存上面两个的残差和
local i=`i'+1
}
sort `rr'      //对数组排序
end

在stata命令窗口中直接输入myprog,运行提示是varlist required