-1-
第二十六章 程序设计
EViews编程的特征允许用户在程序中创建和存储命令, 程序能
自动执行每个命令, 或生成研究项目的结果 。 例如, 用户可以编写一
个分析某个工业数据的程序, 然后便可以用该程序分析其他工业的数
据 。 用户也可以创建一个程序, 通过对最后结果的计算和图形表格的
表示结构来把用户从创建工作文件和读取原始数据中解脱出来 。 如果
你有过计算机编程的经验, 那么你将发现 Eviews编程语言是十分熟悉
的 。 Eviews 程序设计语言的主要特性是宏替换语言 （ macro
substitution language） 。 它允许用户通过组合几个包含部分对象名的
变量来创建一个新的对象名 。
-2-
§26.1 程序设计基础
1．创建程序
程序并不是工作文件的对象，而只是包含 EViews命令的文本文件，点击
File\New\Program 可以建立新的程序。用户将看见一个标准的文本编辑窗口，
在那里可以输入命令行，用户也可以通过在命令行键入 program 来打开窗口，
program后面跟随自由选择的程序名。如,
program firstprg
程序名应该遵循文件名的命名规则。
如果一个程序行长于当前的编辑窗口,Eviews会自动换行，当调整窗口
大小时，自动换行的位置将会改变，但并不改变程序行的内容。如果用户想
把一行分成几行来写，也可以键入回车，手动换行，但每行的最后一个字符
应用下划线,_”来作为行与行之间的连接符。例如，以下三行,
equation eq1.ls _
y x c _
ar(1) ar(2)
就等价于 equation eq1.ls y x c ar(1) ar(2) 。
-3-
2．存储程序
在创建和编辑程序之后，通过点击工具栏中 save或 save as 进行存储，存
储之后，程序将自动生成,PRG扩展名。
3．打开程序
为了打开一个以前存储过的文件，可以点击 File/Open/Program,进入正确
的路径，把 Files of TYPE对话框中的类型改成,PRG,键入相应的文件名便可
打开文件。可替代地，在命令行中，也可以键入 open命令，后面跟随带有扩
展名,prg的完整文件名。在默认情况下,EViews将在默认的路径下寻找程序，
如果需要，将包括文件的全路径，如,
open mysp500.prg
open c:\my work\eviews\myhouse.prg
就是在默认路径下打开 mysp500.prg； 在 \mywork\eviews\路径下打开
myhouse.prg程序。
4．运行程序
编程序共有两种方式：一种是交互方式，即在命令窗口一行一行地输入
一系列命令；另一种是程序模式，即在一个程序中输入所有的命令，并以程
序组的方式集体执行命令。
-4-
运行程序最简单的方式是点击
程序窗口中的 Run按钮，打开 Run
对话框，并输入程序的名字和参数。
另外，在对话框中还可以设置终止
命令前允许出现的最大错误数目，
和在 quiet与 verbose模式之间进行选
择，在 verbose模式下,EViews创建
和删除对象时不断地更新工作文件
窗口。而 quiet模式隐蔽这些更新，
以减少花费在屏幕显示上的时间。
在默认的情况下, 当 EViews
遇到错误时它将终止运行程序,
并且显示出错信息, 如果在
Maximum errors before halting域中输入最大错误数,EViews将在达到该值时
才终止程序。如果发生了严重的错误，程序也将终止，尽管还未达到错误最
大值。
另外一种运行程序的方式是输入 run命令，后面跟随程序文件的名称。如
run mysp500
run c:\eviews\myprog
-5-
因为 EViews将自动加入扩展名, 所以文件名后无需加入,PRG。 所有的上
述运行选项可以通过使用命令选项来设置 。 使用, v‖使得程序在 verbose模式
下运行,, q‖选项使得程序在 quiet模式下运行 。 如果包括数字选项, EViews
将把该数字作为终止程序前所允许出现的最大错误数 。 程序中需要的参数将
列在文件名后面 。 如,
run(v,500) mysp500
run(q) progarg arg1 arg2 arg3
也可以选择主菜单中的 File/run 来让 Eviews自动执行程序, 或者在
windows中的 start菜单下选择 Run并输入 Eviews后面输入文件名和变量名 。
5,终止程序
F1键可终止程序,Eviews将持续几分钟才能对终止命令做出反应。当程
序在运行过程中遇到 stop命令、达到最大的错误数、以及当处理完一个已被
执行的文件时也可以停止程序。
-6-
§26.2 简单程序
最简单的程序仅仅是一个命令列表。执行程序等同于在命
令窗口一行行地输入程序命令。但程序具有在命令窗口键入命
令所不具备的优势：它可以存储命令供日后使用，可以反复执
行程序和每一次做最小限度的修改。
让我们看一个简单的例子：创建一个名为 myprog的新程序，
在命令窗口输入,
program myprog
在该程序的窗口中连续键入创建工作文件的命令，在名为
prodemo 的数据库中获取一个序列，进行一次回归，计算残差和
预测，固化预测线性图并且存储结果。程序如下,
-7-
'housing analysis
workfile myhouse m 1968:3 1997:6
fetch progdemo::hsf
smpl 1968:5 1992:12
equation reg1.ls hsf c hsf(-1)
reg1.makeresid hsfres
smpl 1993:1 1997:6
reg1.forecast hsffit
freeze(hsfplot) hsffit.line
save
程序的第一行是注释, 用撇号, ’‖表示 。 在执行程序的过程中, EViews
将忽略撇号后面的文本文字 。 在这个程序中, 我们以一个存储过的名为
myhouse的工作文件结束, 这个工作文件包含 hsf序列, reg1方程, 残差序列
hsfres和预测序列 hsffit,以及预测的线性图 hsfplot。 我们可以点击 run 按钮并
填写对话框来运行该程序 。
现在, 假设我们要对 500家股票价格指数进行相同的分析, 则就要把
myhouse 转成 mysp500,并把对 hsf的所有操作改成对 fspcom的操作 。 程序如
下,
-8-
's&p analysis
workfile mysp500 m 1968:3 1997:6
fetch progdemo::fspcom
smpl 1968:5 1992:12
equation reg1.ls fspcom c fspcom(-1)
reg1.makeresid fspcomres
smpl 1993:1 1997:6
reg1.forecast fspcomfit
freeze(fscomplot) fspcomfit.line
save
点击 run 按钮来执行新的分析 。 点击 save 按钮在 EViews路径上存储
myprog.prg文件 。
因为这两个命令大部分是相同的, 所以它看起来是许多相同的输入
却编译两个分离的程序 。 下面我们将介绍用一个简单的程序参数就可以
解决这个问题 。
-9-
§26.3 程序变量
当我们使用程序来编辑、运行、再运行 EViews命令时，编程语言真正
的功效是来自它对程序变量和控制语句的使用。
1．控制变量
控制变量是在程序中用来代替数据的变量。一旦控制变量被赋值，我
们就可以在程序中任意运用该数据的地方使用该控制变量。控制变量的名
称以 ！开始，！后面应是一个少于 15个字符的合法 EViews名称,例如,
!x
!1
!counter
尽管在使用控制变量之前必须对其赋值，但是在未涉及到它之前不需
要申请控制变量。控制变量以普通的方式进行赋值，等号左边是控制变量
的名称，等号右边是赋值表达式，如下面所举的简单例子,
!x=7
!12345=0
!counter=12
!pi=3.14159
-10-
一旦被赋值之后，控制变量便可用于表达式中，例如,
!counter=!counter+1
genr dnorm=1/sqr(2*!pi)*exp(-1/2*!epsilon^2)
scalar stdx=x/sqr(!varx)
smpl 1950:1+!i 1960:4+! i
控制变量值存储于程序的执行期间, 并且随着程序的结束也自动释放 。
所以, 当存储一个工作文件时, 控制变量不能随之被存储, 但可以通过创
建一个包含控制变量值的 EViews对象来存储控制变量值 。 例如,
scalar stdx = sqr(!varx)
c(100) = !length
sample years 1960+!z 1990
-11-
2．字符串变量
字符串是位于双引号之中的文本，如,
,gross doncestic product"
"3.14159"
―ar(1) ar(2) ma(1) ma（ 2） "
字符串变量的值是字符串，其名字以 %开始，赋值方式与控
制变量相同：等号左边为字符串变量的名字，右边是字符串表达
式，例如,
%value="value in millions of u.s.dollars"
%armas="ar(1) ar(2) ma(1) ma（ 2） "
%mysample="83:1 96:12"
%dep="hs"
%pi=＂ 3.14159＂
一旦被赋值，字符串变量便可用于表达式中，可以建立命
令、变量名称和表格的表头。如
gnp.label %value
smpl %mysample
equation wq1.ls %dep c %dep(-1)
equation eq2.ls %dep c %dep(-1) %armas
-12-
EViews有许多应用字符串的算子和函数, 来看一个简单的例子,
!repeat = 500
%st1 = " draws from the normal "
%st2 = "Cauchy "
%st3 = @str(!repeat) + @left(%st1,16) +%st2 +"distribution "
在这个例子中, %st3被赋予, 500 draws from the Cauchy distribution "。 注意
draws之前和 Cauchy之后的两个空格也算是两个字符 。 字符串变量与控制变量一
样也只存在于程序执行期间, 不能被保存在工作文件中, 但可以存储在表格单元
中 。
用户可以用转变函数 @val来将字符型变量转化为数值型变量 。 如
%str ="0.05"
!level =@val (%str)
将创建一个控制变量 !level=0.05。 如果字符串变量的首字符不是数值型字符
,@val 将返回空值, 从第一个不为 0的字符到最后所有的字符都将被忽略 。 如
%data = "04/23/97"
scalar day =@val (@right(%data,5))
scalar month =@val (%data)
将得到标量对象 day = 23,month = 4。
-13-
3．字符串操作
字符和字符串变量可以用操作符,+”连接起来，例如,
%st1=‖The name‖
%st2=‖X‖
%st3=%st1+‖is‖+%st2
则字符串变量 %st3为：,The name is X‖。
另外,Eviews提供了一些对字符串进行操作的函数,
（ 1） @left, 返回值为一个字符串从左面起指定数目的字符。如果整个字
符串的字符数比指定的数目少，则返回整个字符串。将字符串和指定的数目
放在括号内。例如,
@left(―I did not do it‖,5)
返回字符串,I did‖。
（ 2） @mid, 返回值为一个字符串从指定位置起从左到右指定数目的字
符。例如,
@mid(―I doubt I did it‖,9,5)
返回字符串,I did‖。
如果省略掉返回字符的数目，或指定数目比剩余字符数目大，则返回指
定位置起右端所有的字符，例如,
@mid(―I doubt I did it‖,9)
返回字符串,I did it‖。
-14-
（ 3） @right, 返回值为一个字符串从右端起指定数目的字符。如果整个
字符串的字符数比指定的数目少，则返回整个字符串。将字符串和指定的数
目放在括号内。例如,
@right(―I doubt I did it‖,8)
返回字符串,I did it‖。
（ 4） @str, 将数值转换为字符型。例如,
!x=15
@str(!x)
返回字符串,15”。
（ 5） @val, 将字符型转换为数值型（或标量型）。如果字符串中有非数
值的字符，这些字符看作是数值的结束标志。如果第一个字符就是非数值的
字符，函数返回零值。例如,
%date=‖02/13/95‖
!month=@val(%date)
!year=@val(@right(%date,2))
!day=@val(@mid(%date,4,2))
返回的数值为,!month=2,!year=95,!day=13。
-15-
（ 6） @otod(Obs To Date), 返回一个表示日期的字符串，这个日期是工
作文件中的指定数目的日期。例如,
create 1 50:1 90:4
!x=16
%date=@otod(!x)
返回的字符串为,%date=‖1953:4‖。
（ 7） @dtoo(Date To Obs), 返回一个标量, 参数为工作文件中的一个观
测值日期, 返回这个日期在工作文件中的位置 （ 第几个 ） 。 参数必须是
Eviews中的一个有效的日期 。
create d 2/1/90 12/31/95
%date=‖1/1/93‖
!t=@dtoo(%date)
返回值为,!t=762。
将字符串函数和操作符, +” 结合起来, 可以产生不同意义的字符串 。
重复以前用过的例子,
!repeat=500
%st1=― draws from the normal‖
%st2=―Cauchy ‖
%st3=@str(!repeat)+@left(%st1,16)+%st2+―distribution‖
字符串 %st3的值为：, 500 draws from the Cauchy distribution‖。
-16-
4．替代变量,
Eviews允许我们用字符串和替代变量来建造命令行。例如：字符串变量
%x为,
%x="gdp"
程序行,ls %x c %x(-1)
代表,ls gdp c gdp(-1)
将 %x的内容改为 m1则程序行为,ls m1 c m1(-1)
在本节中，我们将字符串变量 %x称为替代变量，因为它在命令行中被它
的内容替代。
替代变量可以和字母、数字以及其它替代变量结合起来形成更长的字符
串。这时，我们应该用花括号,{”和,}”来确定替代变量的界限。例如,
%type="Low"
%vname="Income"
series inc1
inc1.label {%type}{%vname}
%type="High"
series inc2
inc2.label {%type}{%vname}
此程序将序列 inc1的标签设为,Low Income‖,序列 inc2的标签设为
,High Income‖。 在本例中,{%type}{%vname}是替代变量，因为命令行是
用字符串变量的内容来构造的。
控制变量同样也可以被用作替代变量。例如,
-17-
!i=1
series y{!i}=nrnd
!j=0
series y{!j}{!i}=nrnd
与命令,
series y1=nrnd
series y01=nrnd
等价。
将创建两个序列 y1和 y01,它们是含有标准正态分布的 (伪 )随机数集合。
替代变量的一个重要的用处就是可以构造对象的名称。例如,
!a=3
%b="2"
%c="temp"
series x{!a}
matrix (2,2) x{%b}
vector (3) x_{%c}1
则创建了一个序列 x3,一个矩阵 x2和一个向量 x_temp1。
替代变量对程序中对象的命名有很强的适应性，但是，我们应该避免用
相同的名字代表不同的对象，例如，下面的例子就有可能引起混淆,
-18-
!a=1
series x{!a}
!a=2
matrix x{!a}
在这个简单的程序中, 可以很清楚地看到 x1是序列, x2是矩阵 。 但是在相对
比较复杂的程序中, 对 !a的赋值和序列的声明之间也许隔着许多程序, 使我们不
能一眼就看出替代变量 x{!a}所代表的对象, 一种比较好的方法就是对不同的对象
用不同的名字, 例如,
!a=1
series ser{!a}
!a=2
matrix mat{!a}
Eviews函数进行参数类型检查, 因此在调用带有替代变量的函数的时候必须
用括号 。 带有字符型参数的函数只允许字符型的数据通过, 带有序列参数的函数
只接受序列 。 如果要通过替代变量将序列传入一个序列函数中, 必须将替代变量
括在括号中, 使 Eviews知道所使用的是字符串代表的对象, 而不是字符串本身 。
例如：我们想要得出序列 INCOME中的有效观测值的数目, 我们用函数 @obs,
@obs(income)
如果我们想要用字符串变量 %var来表示序列 INCOME,正确的语法是,
%var="income"
@obs({%var})
函数 @obs(%var) 将返回错误信息，因为 @obs 函数需要序列作参数，而不是
字符串。当将序列的参数通过替代变量传给子程序时（下面将讨论），也需要用
括号。
-19-
5．程序参数
程序运行过程中的程序参数是一种特殊的字符串变量。参数允许我们在
每一次运行程序的时候都可以改变字符串变量的值。我们可以在任何字符串
变量有效的情况下使用程序参数，在程序中可以使用任意数量的程序参数，
程序参数可以被命名为 %0,%1,%2等等。
当运行的程序含有参数时，必须要给参数提供具体值。如果使用 Run按
钮或 File/Run,将会看到一个对话框，可以输入参数值。如果输入 run命令，
则要在程序名的后面列出参数值。
例如我们有一个程序名为 regprog的程序,
equation eq1
smpl 1980:3 1994:1
eq1.ls %0 c %1 %1(-1) time
用命令来运行 REGPROG程序,使得 %0="lgdp" 和 %1="m1",我们输入,
run regprog lgdp m1
程序通过执行命令 eq1.ls lgdp c m1 m1(-1) time 来对变量 lgdp和 c,m1
,m1(-1),time作回归。
同样，你也可以通过单击程序窗口的 Run按钮来运行程序，或选择
File/Run…… 。 在出现的运行程序的对话框内，在 Program name or path 内输
入程序的名字，在 Program arguments 内输入参数值。在本例中，在程序名中
输入 regprog,参数中输入 lgdp m1。
在 run命令或运行程序对话框中，任何没有被赋值的参数，都被认为是
空。例如，假设我们有一个一行的程序 regress,
ls y c time %0 %1 %2 %3 %4 %5 %6 %7 %8
-20-
命令为,run regress x x(-1) x(-2)
执行,ls y c time x x(-1) x(-2)
如果命令为,run regress
则执行,ls y c time
在两个例子中, Eviews将 run命令中没有包含的参数都忽略掉了 。
作为最后一个例子, 我们重复上面提到的预测程序, 但用参数简化我们的工
作 。 假设我们有程序 MYPROG,
workfile %0 m 1968:3 1997:6
fetch progdemo::%1
smpl 1968:5 1992:12
equation reg1.ls %1 c %1(-1)
reg1.makeresid {%1}res
smpl 93:1 1997:6
reg1.forecast {%1}fit
freeze({%1}plot) {%1}fit.line
save
在本章开始时运行的两个程序例子的结果可以通过运行 MYPROG得出,
run myprog myhouse hsf
run myprog mysp500 fspcom
-21-
§26.4 控制程序
Eviews为我们提供了许多控制程序中命令的执行方式。在程序中控制执
行意味着可以在变化的条件下有选择地执行命令或重复地执行命令。控制程
序执行的方法与其它计算机语言类似。
1．条件语句,(IF)
在许多种情况下，我们希望只有在某些条件被满足的情况下才执行命令
。 Eviews用 IF/ENDIF语句来表示条件和要执行的命令。
IF语句以 if关键字开始，后面接条件表达式，接着是 then关键字。在条件
中可以用 and/or,必要的时候用括号将条件括起来。
如果表达式为真,endif前所有的命令都被执行。如果表达式为假，所有
的命令都被越过。表达式也可以有数值，此时，零值为假，所有非零值都为
真。例如,
if !stand=1 or (!rescale=1 and !redo=1) then
series gnpstd = gnp/sqr(gvar)
series constd = cons/sqr(cvar)
endif
if !a>5 and !a<10 then
smpl 1950:1 1970:1+!a
endif
if !scale then
series newage = age/!scale
endif
-22-
注意到所有的缩进都是为了程序看起来更清楚，对程序的执行没有任何
的影响。
IF语句可以带有 ELSE分句，其中包含的命令在条件为假的时候被执行。
如果条件为真，在 else前所有的命令都被执行。如果条件为假，所有在 else和
endif之间的命令都被执行。例如,
If !scale>0 then
series newage = age/!scale
else
series newage = age
endif
IF语句也可以被用在字符串变量中和嵌套使用,
If %0 =‖ca‖ or %0=‖in‖ then
series stateid = 1
else
if %0 =‖ma‖ then
series stateid = 2
else
if %0 =‖id‖ then
series stateid = 3
endif
endif
endif
-23-
所有字符串的比较都是不区分大小写的 。 所有的比较都是按语素进行的, 并
且按 ASCII码的顺序 。 如果两个字符串的字符数相同且每个字符都匹配, 则认为
它们相等 。 两个字符串相比, 相应位置上的字符在字母表中出现位置较早则字符
串小, 位置较后的则字符串大 。 例如,
%1=”a‖
%2=‖b2‖
则以下的不等式为真,
%1<”abc‖ and ―abc‖<%2 and ―%2‖<‖d‖
―259‖<%1 and %1<‖aa‖ and ―aa‖<%2 and %2<‖ba‖
―b‖<%1 and %1<‖a 1‖ and ―a 1‖<‖b110‖ and ―b110‖<%2
字符串, A‖小于字符串, ABC‖,因为字符串的第一个字符相匹配；其余的
字符 bc使得字符串, ABC‖更大 。, A‖比任何数字组成的字符都要大, 因为字母
在 ASCII码表中的位置较后 。
为了检查一个字符串是否含有字符, 或检查字符串是否为空字符串, 例如,
if %str<>‖‖then 如果字符串 %str不为空, 则执行 then以下的命令 。 检查一个标量是
否含有空值, 将其与 na 比较, 例如,if !a<>na then 如果 !a不为空, 则执行 then
以后的命令 。 注意到与 na相比的不等式通常都认为是假, 例如,
if 3>na then
if 3<=na then 都为假 。
上述 IF语句中用到的都是数值或字符串变量, 当用户在 IF语句中用到了序列
或矩阵时, 表达式中只有当对象的每一个元素之间的比较都为真时才为真 。 因此
,对于序列 X和 Y,IF语句,
-24-
if x<>y then
[程序行 ]
endif
如果 X的任何一个元素和 Y中对应的元素不相等时，条件就为真。对于 X
和 Y都是矩阵的情况，也是如此。
2,FOR循环
FOR循环允许我们对不同的控制和字符串变量重复执行一个命令集合。
FOR循环以 for关键字开始、以 next关键字结束。在两个关键字之间可以有任
意多的命令。
FOR循环的语法区别主要在于是使用控制变量还是使用字符串变量。
（ 1） 带有控制变量或标量的 FOR循环,
为了给一个控制变量赋不同的值,for循环先给一个控制变量赋初值，然
后接 to关键字、最后是结束值。结束值后可以接 step 关键字,step后的数值
代表每次循环的步长。如果省略 step,则默认值是 1。例如,
for !j=1 to 10
series decile{!j} = (income<level{!j})
next
在本例中，步长 step为 1，变量 !j两次被用作替代变量，第一次用来声明
decile1到 decile10十个序列，第二次用来声明 level1到 level10十个变量。
-25-
For !j=10 to 1 step –1
Series rescale{!j} = original / !j
next
在本例中, 步长 step为 -1,!j被用作替代变量来建造 rescale1到 rescale10十个序
列, 也被用作标量来除序列 original。
循环按初始值开始运行, 除非初始值已经超出终止值的范围 。 按初始值增加
后, 控制变量按步长增加, Eviews将变量与终止值进行比较, 如果超出终止值,
循环结束 。
FOR循环的一个重要的用途是用控制变量来改变序列的样本区间 。 如果在
smpl命令的日期后加上控制变量的值, 就会得到一个新的日期, 而整个序列样本
区间长度的增加值即为控制变量的值 。 下面的例子就逐渐增加样本区间的长度,
并滚动地进行方程回归的估计 。
For !horizon = 10 to 72
smpl 1970:1 1970:1+!horizon
equation eq{!horizon}.ls sales c orders
next
另外一个重要的用途是用循环变量得到序列或矩阵对象中元素的值 。 例如,
!rows = @rows(vec1)
vector cumsum1 = vec1
for !i=2 to !rows
cumsum1(!i) = cumsum1(!i-1)+vec1(!i)
next
-26-
本例计算了向量 vec1中元素的累计和, 并将其存在向量 cumsum1中 。
为获得一个序列的单个元素, 用户须用 @elem函数和 @otod来得到所需的函
数,
for !i=2 to !rows
cumsum1(!i) = @elem(ser1,@otod(!i))
next
这里 @otod函数返回的是和观测值数相关的期数 （ 从工作文件的起始期开始
）, @elem函数根据一个给定的期数来获得序列的元素 。
可以在 FOR循环中进行嵌套 。 例如,
matrix(25,10) xx
for !i=1 to 25
for !j=1 to 10
xx(!i,!j) = (!i-1)*10 + !j
next
next
我们应该避免在 FOR循环中改变控制变量的值, 例如,
for !i=1 to 25
vector a!i
!i= !i+10
next
-27-
这里,FOR循环的声明中和命令中均改变控制变量 !i的值。这种循环很难
被执行，并且通常会得到意想不到的结果。如果你想要在循环中改变控制变
量的值，用我们以下将要讲到的 while循环。
我们也可以在 FOR循环中用标量代替控制变量。但我们在使用之前必须
声明，并且标量不能用作替代变量使用。例如,
scalar i
scalar sum=0
vector (10) x
for i=1 to 10
x(i) = i
sum = sum+i
next
本例中，标量 i和 SUM在程序结束的时候仍然存在于工作文件中，除非它
们被故意删掉。
（ 2） 带有字符串变量的 FOR循环,
当想对一个字符串变量进行重复赋值时，我们可以在 FOR循环中使字符
串变量在字符串列表中取值。字符串变量后接字符串列表。例如,
for %y gdp gnp ndp nnp
equation {%y}trend.ls %y c {%y}(-1) time
next
-28-
执行命令,
equation gdptrend.ls gdp c gdp(-1) time
equation gnptrend.ls gnp c gnp(-1) time
equation ndptrend.ls ndp c ndp(-1) time
equation nnptrend.ls nnp c nnp(-1) time
我们可以在一个 FOR循环中使用多个字符串变量 ——Eviews会对这些字符串
进行分组 。 例如,
for %1 %2 %3 1955:1 1960:4 early 1970:2 1980:3 mid 1975:4 1995:1 late
smpl %1 %2
equation {%3}eq.ls sales c orders
next
本例中, 字符串中的元素被分成三组 。 循环使用不同的样本区间和方程名运
行了三次,
smpl 1955:1 1960:4
equation earlyeq.ls sales c orders
smpl 1970:2 1980:3
equation mideq.ls sales c orders
smpl 1975:4 1995:1
equation lateeq.ls sales c orders
注意此种形式和循环嵌套的区别 。 这里, 所有的字符串变量同时变化, 而嵌
套循环中, 内部循环的变量变化时, 外部变量是不变的 。 例如,
-29-
!eqno=1
for %1 1955:1 1960:4
for %2 1970:2 1980:3 1975:4
smpl %1 %2
equation eq{!eqno}.ls sales c orders
!eqno = !eqno+1
next
next
这样估计的六个方程为,
区间,1955:1 1970:2 方程为,eq1
区间,1955:1 1980:3 方程为,eq2
区间,1955:1 1975:4 方程为,eq3
区间,1960:4 1970:2 方程为,eq4
区间,1960:4 1980:3 方程为,eq5
区间,1960:4 1975:4 方程为,eq6
-30-
3,WHILE循环
在某些情况下，我们希望多次重复执行一些命令，但只有一个或几个条
件被满足。与 FOR循环相似,WHILE循环允许我们重复执行命令，但 WHILE
循环在声明循环条件的时候具有更大的灵活性。
WHILE循环以 while关键字开始，以 wend结束。在两个关键字之间允许
有任意多的命令。 WHILE循环允许嵌套。
WHILE循环的声明部分由 while关键字后接表达式构成。表达式可以有逻
辑值（真 /假）和数值两种情况。为数值时，零被认为是假，任何非零值都被
认为是真。
如果表达式值为真，直到 wend的命令均被执行，然后重复此过程。如果
表达式的值为假,Eviews将越过下面的命令直接执行 wend以后的命令。例如
,
!val=1
!a=1
while !val<10000 and !a<10
smpl 1950:1 1970:1+!a
series inc{!val} = income / !val
!val = !val*10
!a = !a+1
wend
-31-
这个 WHILE循环包括四个部分 。 第一部分是控制变量的初始化 。 第二部分
是 WHILE循环的声明, 并包括条件 。 第三部分是改变控制变量的声明 。 最后一部
分用 wend来结束循环 。
WHILE循环不像 FOR循环, 它不在测试条件中改变控制变量的值, 必须在
循环中有明确的声明来改变控制变量的值, 否则循环将永远不会停止 。 用 F1键可
以使程序从死循环中跳出 。
上面 FOR循环中有一个改变控制变量的例子, 用 WHILE循环会使程序更清
楚,
!i = 1
while !i<=25
vector a{!i}
!i = !i+10
wend
-32-
4．处理执行错误,
缺省情况下,Eviews将在遇到任何错误时中止程序的执行，但用户可以
指定程序在遇到错误的情况下继续运行。这种情况下，用户还可能希望在错
误出现时执行其它不同的任务。例如，在估计过程出错时，可能希望跳过那
些累计估计结果的程序行。
为测试和处理执行错误，我们可以用 @errorcount这个函数来返回程序执
行过程中出现的错误数。
!errs=@errorcount
标准程序语句可以用这些有关出错数目的信息来控制程序的行为。
例如，为测试方程估计时是否出错，用户可以比较一下方程估计命令执
行前后的出错数,
!old _ count = @errorcount
equation eq1.ls y x c
!new _ count = @errorcount
if !new _ count >!old _count then
[其他命令 ]
endif
这里，当方程 eq1的估计出错时，执行了一组命令。
-33-
5．其它控制工具,
有时，我们希望在某些条件下从程序或循环中退出，在 Eviews中，要从程序中
退出，使用 stop命令。例如，假设我们写一段程序，要使序列 ser1中的值非负。下面
的命令将检查序列的值是否非负，并且，序列中如果含有任意负值，程序将结束,
series test = (ser1<0)
if @sum(test)<>0 then
stop
endif
注意到如果序列 ser1中有缺失值，序列 test中相对位置上也为缺失值。因为函数
@sum将忽略缺失值，所以，程序在序列 ser1中有缺失值时不会跳出。
有时，我们不希望在某些条件被满足的时候跳出整个程序，只跳出当前的循环
。 Exitloop命令会跳出当前的 FOR或 WHILE循环而继续执行程序。
例如，假设我们计算了一系列的 LR检验统计量 LR11,LR10,LR9,……, LR1，
假设要检验一个 VAR的滞后长度。下面的程序从 LR11开始顺序的进行 LR检验，并给
出在 5%显著性水平下第一个被拒绝的统计量。
!df = 9
for !lag =11 to 1 step –1
!pval= 1- @cchisq(LR{!lag},!df)
if !pval <=,05 then
exitloop
endif
next
scalar lag = !lag
注意到，如果没有检验统计量被拒绝，则标量 lag的值为 0。
-34-
§26.5 多程序文件
当程序很长时, 用户可能希望用多个文件来存放其代码 。 例如, 假定有一个
名为 powers.prg的程序文件, 文件中有一些程序行 。
可能你会用 run命令来运行文件中的命令, 但 Eviews将在执行完该文件中的
命令后终止程序运行 。 因此, 对于下列的程序行,
run powers.prg
series x = nrnd
Eviews将只执行 powers.prg中的命令, 然后在生成序列 x之前就将终止程序的
运行 。 而用户可能意识不到这一行为 。 不过我们可以在另一个程序文件中用关键
字 include来包含一个程序文件中的内容 。 例如, 其他程序如需 powers中的命令,
可在程序的顶部添加一行,
include powers
也可以在 include语句中写出文件的完整路径, 并且在一个程序中可用多个
include语句来包含多个程序文件 。 例如下面的程序行,
include c:\programs\powers.prg
include durbin _ h
[其他程序行 ]
将首先执行 c:\programs\powers.prg中的命令, 然后执行 durbin_h,prg中的命令
,接下来才是执行程序文件中其他的程序行 。
重复使用命令和参数的更为一般性的方法是使用子程序。
-35-
§26.6 子程序
子程序是一个命令集合，这个集合可以重复地处理一些给定的任务，不用重新输
入命令，只需作些很小的改动就可以。我们也可以用一个程序中的子程序来处理另一
个程序中相同的问题。
1．定义子程序
一个子程序以 subroutine开始，后接函数名和参数，并以 endsub结束。其中可以有
任意多的命令。最简单的子程序为以下形式,
subroutine z _ square
series x = z^2
endsub
这里，关键字 subroutine后只有子程序名，因为没有参数，这个子程序每次运行的
结果都是相同的。它形成序列 z的平方，并将其存在序列 x中。
在 Eviews中，我们使用 return命令，可以在任何时候从子程序中退出。 return命令
的一般用法是，当检查到子程序中有错误的时候，可以从其中退出。下面的程序中，
如果检验序列相关的、带有滞后因变量的 Durbin的 h统计量的值无法计算的话，则从子
程序中退出,
subroutine durbin _ h
equation eqn.ls cs c cs(-1) inc
scalar test=1-eqn.@regobs*eqn.@cov(2,2)
if test<=0 then
return
endif
scalar h=(1-eqn.@dw/2)*sqr(eqn.@regobs/test)
endsub
-36-
2)( xxf ?
2．带有参数的子程序
更一般地，子程序中可以带参数。如果我们熟悉另外一种程序设计语言
，我们就可以知道调用带有参数的子程序是怎样工作的了。即使没有遇到过
子程序，在数学中，我们也会遇到类似的情况。例如，我们可以定义一个函
数,
这里 f依赖于 x,参数 x值是用来定义参数，他本身并不代表任何东西。如
果希望用一个数值来计算函数，比如 0.7839，则需要写 f (0.7839)。 如果要计
算另一个值，比如 0.50123，则写 f (0.50123)。 通过定义函数，我们可以避免
在每次用不同值的时候将表达式重复键入。
为了定义一个带参数的函数，以关键字 subroutine开始，其后接函数名、
左括号、参数列表（其间用逗号隔开），最后是右括号。每个参数都由
Eviews对象的类型和参数名组成。控制变量被认为是标量，字符变量被认为
是字符型。例如,
subroutine power(series v,series y,scalar p)
v = y ^ p
endsub
这个子程序推广了 z _ square这个例子，调用这个子程序产生序列 y的 p次
方，并将其存在序列 v中。如果令 v等于 x, y等于 z, p等于 2，就会得到子程
序 z _ square。 以下将讨论怎样调用子程序。
-37-
3．子程序放置
定义的子程序必须放置在程序的最开始。只有在程序中用 call语句，子程
序才被执行。例如,
subroutine z _ square
series x = z^2
endsub
load mywork
fetch z
call z _ square
程序从命令 load开始执行；在最开始，子程序被略过，直到最后一行才被
执行。
子程序的定义不能嵌套，定义下一个子程序之前，必须有关键字 endsub
。 但子程序可以互相调用，也可以调用自己。
我们可以将经常用到的子程序放入一个单独的程序文件中，然后用
include声明将其插入到任何程序的开始。例如，假设有一个程序，名为
powers.prg,程序中包含了 z _square和 power子程序的定义。因此必须将
include powers
放在任何需要调用 z _square和 power子程序的程序的第一行。在这些程序中，
也可以包括一些部分由 Eviews程序语言构造的程序。
-38-
4．调用子程序
一旦在程序中定义了子程序，我们可以用 call命令来调用子程序。 call命
令后要跟子程序名，和所需要的参数列表，参数放在括号里，并用逗号隔开
。 如果子程序带有参数，调用的参数的顺序要和定义时的顺序相同。例如,
include powers
load mywork
fetch z gdp
series x
series gdp2
series gdp3
call z _square
call power(gdp2,gdp,2)
call power(gdp3,gdp,3)
第一次调用产生序列 x,等于 z的平方；第二次调用产生序列的 gdp2等于
gdp的平方；最后一次调用产生的序列 gdp3等于 gdp的立方。
当子程序的参数为标量时，调用时可以用标量、控制变量、简单数字（
如 10或 15.3）、矩阵元素（如 mat1(1,2)） 或一个标量表达式（如 !y+25）。 带
有矩阵或向量参数的子程序调用时可以用矩阵名，如果在子程序中不进行修
改的话，还可以用矩阵表达式。其他类型的参数在调用时必须和定义时类型
一致。
-39-
5．全局变量和局部变量
子程序的参数可以是全局的和局部的。
全局变量既是指调用子程序时存在于工作文件里的对象，又是指工作
文件中子程序创建的对象。当调用的子程序完成时全局变量仍存在于工作文
件中。
局部变量是只存在于子程序中的变量。一旦子程序完成，局部变量便
被删除。调用子程序的主程序将对该局部变量一无所知，因为随着子程序被
完成并返回到主程序，局部变量被删除了。
第二十六章 程序设计
EViews编程的特征允许用户在程序中创建和存储命令, 程序能
自动执行每个命令, 或生成研究项目的结果 。 例如, 用户可以编写一
个分析某个工业数据的程序, 然后便可以用该程序分析其他工业的数
据 。 用户也可以创建一个程序, 通过对最后结果的计算和图形表格的
表示结构来把用户从创建工作文件和读取原始数据中解脱出来 。 如果
你有过计算机编程的经验, 那么你将发现 Eviews编程语言是十分熟悉
的 。 Eviews 程序设计语言的主要特性是宏替换语言 （ macro
substitution language） 。 它允许用户通过组合几个包含部分对象名的
变量来创建一个新的对象名 。
-2-
§26.1 程序设计基础
1．创建程序
程序并不是工作文件的对象，而只是包含 EViews命令的文本文件，点击
File\New\Program 可以建立新的程序。用户将看见一个标准的文本编辑窗口，
在那里可以输入命令行，用户也可以通过在命令行键入 program 来打开窗口，
program后面跟随自由选择的程序名。如,
program firstprg
程序名应该遵循文件名的命名规则。
如果一个程序行长于当前的编辑窗口,Eviews会自动换行，当调整窗口
大小时，自动换行的位置将会改变，但并不改变程序行的内容。如果用户想
把一行分成几行来写，也可以键入回车，手动换行，但每行的最后一个字符
应用下划线,_”来作为行与行之间的连接符。例如，以下三行,
equation eq1.ls _
y x c _
ar(1) ar(2)
就等价于 equation eq1.ls y x c ar(1) ar(2) 。
-3-
2．存储程序
在创建和编辑程序之后，通过点击工具栏中 save或 save as 进行存储，存
储之后，程序将自动生成,PRG扩展名。
3．打开程序
为了打开一个以前存储过的文件，可以点击 File/Open/Program,进入正确
的路径，把 Files of TYPE对话框中的类型改成,PRG,键入相应的文件名便可
打开文件。可替代地，在命令行中，也可以键入 open命令，后面跟随带有扩
展名,prg的完整文件名。在默认情况下,EViews将在默认的路径下寻找程序，
如果需要，将包括文件的全路径，如,
open mysp500.prg
open c:\my work\eviews\myhouse.prg
就是在默认路径下打开 mysp500.prg； 在 \mywork\eviews\路径下打开
myhouse.prg程序。
4．运行程序
编程序共有两种方式：一种是交互方式，即在命令窗口一行一行地输入
一系列命令；另一种是程序模式，即在一个程序中输入所有的命令，并以程
序组的方式集体执行命令。
-4-
运行程序最简单的方式是点击
程序窗口中的 Run按钮，打开 Run
对话框，并输入程序的名字和参数。
另外，在对话框中还可以设置终止
命令前允许出现的最大错误数目，
和在 quiet与 verbose模式之间进行选
择，在 verbose模式下,EViews创建
和删除对象时不断地更新工作文件
窗口。而 quiet模式隐蔽这些更新，
以减少花费在屏幕显示上的时间。
在默认的情况下, 当 EViews
遇到错误时它将终止运行程序,
并且显示出错信息, 如果在
Maximum errors before halting域中输入最大错误数,EViews将在达到该值时
才终止程序。如果发生了严重的错误，程序也将终止，尽管还未达到错误最
大值。
另外一种运行程序的方式是输入 run命令，后面跟随程序文件的名称。如
run mysp500
run c:\eviews\myprog
-5-
因为 EViews将自动加入扩展名, 所以文件名后无需加入,PRG。 所有的上
述运行选项可以通过使用命令选项来设置 。 使用, v‖使得程序在 verbose模式
下运行,, q‖选项使得程序在 quiet模式下运行 。 如果包括数字选项, EViews
将把该数字作为终止程序前所允许出现的最大错误数 。 程序中需要的参数将
列在文件名后面 。 如,
run(v,500) mysp500
run(q) progarg arg1 arg2 arg3
也可以选择主菜单中的 File/run 来让 Eviews自动执行程序, 或者在
windows中的 start菜单下选择 Run并输入 Eviews后面输入文件名和变量名 。
5,终止程序
F1键可终止程序,Eviews将持续几分钟才能对终止命令做出反应。当程
序在运行过程中遇到 stop命令、达到最大的错误数、以及当处理完一个已被
执行的文件时也可以停止程序。
-6-
§26.2 简单程序
最简单的程序仅仅是一个命令列表。执行程序等同于在命
令窗口一行行地输入程序命令。但程序具有在命令窗口键入命
令所不具备的优势：它可以存储命令供日后使用，可以反复执
行程序和每一次做最小限度的修改。
让我们看一个简单的例子：创建一个名为 myprog的新程序，
在命令窗口输入,
program myprog
在该程序的窗口中连续键入创建工作文件的命令，在名为
prodemo 的数据库中获取一个序列，进行一次回归，计算残差和
预测，固化预测线性图并且存储结果。程序如下,
-7-
'housing analysis
workfile myhouse m 1968:3 1997:6
fetch progdemo::hsf
smpl 1968:5 1992:12
equation reg1.ls hsf c hsf(-1)
reg1.makeresid hsfres
smpl 1993:1 1997:6
reg1.forecast hsffit
freeze(hsfplot) hsffit.line
save
程序的第一行是注释, 用撇号, ’‖表示 。 在执行程序的过程中, EViews
将忽略撇号后面的文本文字 。 在这个程序中, 我们以一个存储过的名为
myhouse的工作文件结束, 这个工作文件包含 hsf序列, reg1方程, 残差序列
hsfres和预测序列 hsffit,以及预测的线性图 hsfplot。 我们可以点击 run 按钮并
填写对话框来运行该程序 。
现在, 假设我们要对 500家股票价格指数进行相同的分析, 则就要把
myhouse 转成 mysp500,并把对 hsf的所有操作改成对 fspcom的操作 。 程序如
下,
-8-
's&p analysis
workfile mysp500 m 1968:3 1997:6
fetch progdemo::fspcom
smpl 1968:5 1992:12
equation reg1.ls fspcom c fspcom(-1)
reg1.makeresid fspcomres
smpl 1993:1 1997:6
reg1.forecast fspcomfit
freeze(fscomplot) fspcomfit.line
save
点击 run 按钮来执行新的分析 。 点击 save 按钮在 EViews路径上存储
myprog.prg文件 。
因为这两个命令大部分是相同的, 所以它看起来是许多相同的输入
却编译两个分离的程序 。 下面我们将介绍用一个简单的程序参数就可以
解决这个问题 。
-9-
§26.3 程序变量
当我们使用程序来编辑、运行、再运行 EViews命令时，编程语言真正
的功效是来自它对程序变量和控制语句的使用。
1．控制变量
控制变量是在程序中用来代替数据的变量。一旦控制变量被赋值，我
们就可以在程序中任意运用该数据的地方使用该控制变量。控制变量的名
称以 ！开始，！后面应是一个少于 15个字符的合法 EViews名称,例如,
!x
!1
!counter
尽管在使用控制变量之前必须对其赋值，但是在未涉及到它之前不需
要申请控制变量。控制变量以普通的方式进行赋值，等号左边是控制变量
的名称，等号右边是赋值表达式，如下面所举的简单例子,
!x=7
!12345=0
!counter=12
!pi=3.14159
-10-
一旦被赋值之后，控制变量便可用于表达式中，例如,
!counter=!counter+1
genr dnorm=1/sqr(2*!pi)*exp(-1/2*!epsilon^2)
scalar stdx=x/sqr(!varx)
smpl 1950:1+!i 1960:4+! i
控制变量值存储于程序的执行期间, 并且随着程序的结束也自动释放 。
所以, 当存储一个工作文件时, 控制变量不能随之被存储, 但可以通过创
建一个包含控制变量值的 EViews对象来存储控制变量值 。 例如,
scalar stdx = sqr(!varx)
c(100) = !length
sample years 1960+!z 1990
-11-
2．字符串变量
字符串是位于双引号之中的文本，如,
,gross doncestic product"
"3.14159"
―ar(1) ar(2) ma(1) ma（ 2） "
字符串变量的值是字符串，其名字以 %开始，赋值方式与控
制变量相同：等号左边为字符串变量的名字，右边是字符串表达
式，例如,
%value="value in millions of u.s.dollars"
%armas="ar(1) ar(2) ma(1) ma（ 2） "
%mysample="83:1 96:12"
%dep="hs"
%pi=＂ 3.14159＂
一旦被赋值，字符串变量便可用于表达式中，可以建立命
令、变量名称和表格的表头。如
gnp.label %value
smpl %mysample
equation wq1.ls %dep c %dep(-1)
equation eq2.ls %dep c %dep(-1) %armas
-12-
EViews有许多应用字符串的算子和函数, 来看一个简单的例子,
!repeat = 500
%st1 = " draws from the normal "
%st2 = "Cauchy "
%st3 = @str(!repeat) + @left(%st1,16) +%st2 +"distribution "
在这个例子中, %st3被赋予, 500 draws from the Cauchy distribution "。 注意
draws之前和 Cauchy之后的两个空格也算是两个字符 。 字符串变量与控制变量一
样也只存在于程序执行期间, 不能被保存在工作文件中, 但可以存储在表格单元
中 。
用户可以用转变函数 @val来将字符型变量转化为数值型变量 。 如
%str ="0.05"
!level =@val (%str)
将创建一个控制变量 !level=0.05。 如果字符串变量的首字符不是数值型字符
,@val 将返回空值, 从第一个不为 0的字符到最后所有的字符都将被忽略 。 如
%data = "04/23/97"
scalar day =@val (@right(%data,5))
scalar month =@val (%data)
将得到标量对象 day = 23,month = 4。
-13-
3．字符串操作
字符和字符串变量可以用操作符,+”连接起来，例如,
%st1=‖The name‖
%st2=‖X‖
%st3=%st1+‖is‖+%st2
则字符串变量 %st3为：,The name is X‖。
另外,Eviews提供了一些对字符串进行操作的函数,
（ 1） @left, 返回值为一个字符串从左面起指定数目的字符。如果整个字
符串的字符数比指定的数目少，则返回整个字符串。将字符串和指定的数目
放在括号内。例如,
@left(―I did not do it‖,5)
返回字符串,I did‖。
（ 2） @mid, 返回值为一个字符串从指定位置起从左到右指定数目的字
符。例如,
@mid(―I doubt I did it‖,9,5)
返回字符串,I did‖。
如果省略掉返回字符的数目，或指定数目比剩余字符数目大，则返回指
定位置起右端所有的字符，例如,
@mid(―I doubt I did it‖,9)
返回字符串,I did it‖。
-14-
（ 3） @right, 返回值为一个字符串从右端起指定数目的字符。如果整个
字符串的字符数比指定的数目少，则返回整个字符串。将字符串和指定的数
目放在括号内。例如,
@right(―I doubt I did it‖,8)
返回字符串,I did it‖。
（ 4） @str, 将数值转换为字符型。例如,
!x=15
@str(!x)
返回字符串,15”。
（ 5） @val, 将字符型转换为数值型（或标量型）。如果字符串中有非数
值的字符，这些字符看作是数值的结束标志。如果第一个字符就是非数值的
字符，函数返回零值。例如,
%date=‖02/13/95‖
!month=@val(%date)
!year=@val(@right(%date,2))
!day=@val(@mid(%date,4,2))
返回的数值为,!month=2,!year=95,!day=13。
-15-
（ 6） @otod(Obs To Date), 返回一个表示日期的字符串，这个日期是工
作文件中的指定数目的日期。例如,
create 1 50:1 90:4
!x=16
%date=@otod(!x)
返回的字符串为,%date=‖1953:4‖。
（ 7） @dtoo(Date To Obs), 返回一个标量, 参数为工作文件中的一个观
测值日期, 返回这个日期在工作文件中的位置 （ 第几个 ） 。 参数必须是
Eviews中的一个有效的日期 。
create d 2/1/90 12/31/95
%date=‖1/1/93‖
!t=@dtoo(%date)
返回值为,!t=762。
将字符串函数和操作符, +” 结合起来, 可以产生不同意义的字符串 。
重复以前用过的例子,
!repeat=500
%st1=― draws from the normal‖
%st2=―Cauchy ‖
%st3=@str(!repeat)+@left(%st1,16)+%st2+―distribution‖
字符串 %st3的值为：, 500 draws from the Cauchy distribution‖。
-16-
4．替代变量,
Eviews允许我们用字符串和替代变量来建造命令行。例如：字符串变量
%x为,
%x="gdp"
程序行,ls %x c %x(-1)
代表,ls gdp c gdp(-1)
将 %x的内容改为 m1则程序行为,ls m1 c m1(-1)
在本节中，我们将字符串变量 %x称为替代变量，因为它在命令行中被它
的内容替代。
替代变量可以和字母、数字以及其它替代变量结合起来形成更长的字符
串。这时，我们应该用花括号,{”和,}”来确定替代变量的界限。例如,
%type="Low"
%vname="Income"
series inc1
inc1.label {%type}{%vname}
%type="High"
series inc2
inc2.label {%type}{%vname}
此程序将序列 inc1的标签设为,Low Income‖,序列 inc2的标签设为
,High Income‖。 在本例中,{%type}{%vname}是替代变量，因为命令行是
用字符串变量的内容来构造的。
控制变量同样也可以被用作替代变量。例如,
-17-
!i=1
series y{!i}=nrnd
!j=0
series y{!j}{!i}=nrnd
与命令,
series y1=nrnd
series y01=nrnd
等价。
将创建两个序列 y1和 y01,它们是含有标准正态分布的 (伪 )随机数集合。
替代变量的一个重要的用处就是可以构造对象的名称。例如,
!a=3
%b="2"
%c="temp"
series x{!a}
matrix (2,2) x{%b}
vector (3) x_{%c}1
则创建了一个序列 x3,一个矩阵 x2和一个向量 x_temp1。
替代变量对程序中对象的命名有很强的适应性，但是，我们应该避免用
相同的名字代表不同的对象，例如，下面的例子就有可能引起混淆,
-18-
!a=1
series x{!a}
!a=2
matrix x{!a}
在这个简单的程序中, 可以很清楚地看到 x1是序列, x2是矩阵 。 但是在相对
比较复杂的程序中, 对 !a的赋值和序列的声明之间也许隔着许多程序, 使我们不
能一眼就看出替代变量 x{!a}所代表的对象, 一种比较好的方法就是对不同的对象
用不同的名字, 例如,
!a=1
series ser{!a}
!a=2
matrix mat{!a}
Eviews函数进行参数类型检查, 因此在调用带有替代变量的函数的时候必须
用括号 。 带有字符型参数的函数只允许字符型的数据通过, 带有序列参数的函数
只接受序列 。 如果要通过替代变量将序列传入一个序列函数中, 必须将替代变量
括在括号中, 使 Eviews知道所使用的是字符串代表的对象, 而不是字符串本身 。
例如：我们想要得出序列 INCOME中的有效观测值的数目, 我们用函数 @obs,
@obs(income)
如果我们想要用字符串变量 %var来表示序列 INCOME,正确的语法是,
%var="income"
@obs({%var})
函数 @obs(%var) 将返回错误信息，因为 @obs 函数需要序列作参数，而不是
字符串。当将序列的参数通过替代变量传给子程序时（下面将讨论），也需要用
括号。
-19-
5．程序参数
程序运行过程中的程序参数是一种特殊的字符串变量。参数允许我们在
每一次运行程序的时候都可以改变字符串变量的值。我们可以在任何字符串
变量有效的情况下使用程序参数，在程序中可以使用任意数量的程序参数，
程序参数可以被命名为 %0,%1,%2等等。
当运行的程序含有参数时，必须要给参数提供具体值。如果使用 Run按
钮或 File/Run,将会看到一个对话框，可以输入参数值。如果输入 run命令，
则要在程序名的后面列出参数值。
例如我们有一个程序名为 regprog的程序,
equation eq1
smpl 1980:3 1994:1
eq1.ls %0 c %1 %1(-1) time
用命令来运行 REGPROG程序,使得 %0="lgdp" 和 %1="m1",我们输入,
run regprog lgdp m1
程序通过执行命令 eq1.ls lgdp c m1 m1(-1) time 来对变量 lgdp和 c,m1
,m1(-1),time作回归。
同样，你也可以通过单击程序窗口的 Run按钮来运行程序，或选择
File/Run…… 。 在出现的运行程序的对话框内，在 Program name or path 内输
入程序的名字，在 Program arguments 内输入参数值。在本例中，在程序名中
输入 regprog,参数中输入 lgdp m1。
在 run命令或运行程序对话框中，任何没有被赋值的参数，都被认为是
空。例如，假设我们有一个一行的程序 regress,
ls y c time %0 %1 %2 %3 %4 %5 %6 %7 %8
-20-
命令为,run regress x x(-1) x(-2)
执行,ls y c time x x(-1) x(-2)
如果命令为,run regress
则执行,ls y c time
在两个例子中, Eviews将 run命令中没有包含的参数都忽略掉了 。
作为最后一个例子, 我们重复上面提到的预测程序, 但用参数简化我们的工
作 。 假设我们有程序 MYPROG,
workfile %0 m 1968:3 1997:6
fetch progdemo::%1
smpl 1968:5 1992:12
equation reg1.ls %1 c %1(-1)
reg1.makeresid {%1}res
smpl 93:1 1997:6
reg1.forecast {%1}fit
freeze({%1}plot) {%1}fit.line
save
在本章开始时运行的两个程序例子的结果可以通过运行 MYPROG得出,
run myprog myhouse hsf
run myprog mysp500 fspcom
-21-
§26.4 控制程序
Eviews为我们提供了许多控制程序中命令的执行方式。在程序中控制执
行意味着可以在变化的条件下有选择地执行命令或重复地执行命令。控制程
序执行的方法与其它计算机语言类似。
1．条件语句,(IF)
在许多种情况下，我们希望只有在某些条件被满足的情况下才执行命令
。 Eviews用 IF/ENDIF语句来表示条件和要执行的命令。
IF语句以 if关键字开始，后面接条件表达式，接着是 then关键字。在条件
中可以用 and/or,必要的时候用括号将条件括起来。
如果表达式为真,endif前所有的命令都被执行。如果表达式为假，所有
的命令都被越过。表达式也可以有数值，此时，零值为假，所有非零值都为
真。例如,
if !stand=1 or (!rescale=1 and !redo=1) then
series gnpstd = gnp/sqr(gvar)
series constd = cons/sqr(cvar)
endif
if !a>5 and !a<10 then
smpl 1950:1 1970:1+!a
endif
if !scale then
series newage = age/!scale
endif
-22-
注意到所有的缩进都是为了程序看起来更清楚，对程序的执行没有任何
的影响。
IF语句可以带有 ELSE分句，其中包含的命令在条件为假的时候被执行。
如果条件为真，在 else前所有的命令都被执行。如果条件为假，所有在 else和
endif之间的命令都被执行。例如,
If !scale>0 then
series newage = age/!scale
else
series newage = age
endif
IF语句也可以被用在字符串变量中和嵌套使用,
If %0 =‖ca‖ or %0=‖in‖ then
series stateid = 1
else
if %0 =‖ma‖ then
series stateid = 2
else
if %0 =‖id‖ then
series stateid = 3
endif
endif
endif
-23-
所有字符串的比较都是不区分大小写的 。 所有的比较都是按语素进行的, 并
且按 ASCII码的顺序 。 如果两个字符串的字符数相同且每个字符都匹配, 则认为
它们相等 。 两个字符串相比, 相应位置上的字符在字母表中出现位置较早则字符
串小, 位置较后的则字符串大 。 例如,
%1=”a‖
%2=‖b2‖
则以下的不等式为真,
%1<”abc‖ and ―abc‖<%2 and ―%2‖<‖d‖
―259‖<%1 and %1<‖aa‖ and ―aa‖<%2 and %2<‖ba‖
―b‖<%1 and %1<‖a 1‖ and ―a 1‖<‖b110‖ and ―b110‖<%2
字符串, A‖小于字符串, ABC‖,因为字符串的第一个字符相匹配；其余的
字符 bc使得字符串, ABC‖更大 。, A‖比任何数字组成的字符都要大, 因为字母
在 ASCII码表中的位置较后 。
为了检查一个字符串是否含有字符, 或检查字符串是否为空字符串, 例如,
if %str<>‖‖then 如果字符串 %str不为空, 则执行 then以下的命令 。 检查一个标量是
否含有空值, 将其与 na 比较, 例如,if !a<>na then 如果 !a不为空, 则执行 then
以后的命令 。 注意到与 na相比的不等式通常都认为是假, 例如,
if 3>na then
if 3<=na then 都为假 。
上述 IF语句中用到的都是数值或字符串变量, 当用户在 IF语句中用到了序列
或矩阵时, 表达式中只有当对象的每一个元素之间的比较都为真时才为真 。 因此
,对于序列 X和 Y,IF语句,
-24-
if x<>y then
[程序行 ]
endif
如果 X的任何一个元素和 Y中对应的元素不相等时，条件就为真。对于 X
和 Y都是矩阵的情况，也是如此。
2,FOR循环
FOR循环允许我们对不同的控制和字符串变量重复执行一个命令集合。
FOR循环以 for关键字开始、以 next关键字结束。在两个关键字之间可以有任
意多的命令。
FOR循环的语法区别主要在于是使用控制变量还是使用字符串变量。
（ 1） 带有控制变量或标量的 FOR循环,
为了给一个控制变量赋不同的值,for循环先给一个控制变量赋初值，然
后接 to关键字、最后是结束值。结束值后可以接 step 关键字,step后的数值
代表每次循环的步长。如果省略 step,则默认值是 1。例如,
for !j=1 to 10
series decile{!j} = (income<level{!j})
next
在本例中，步长 step为 1，变量 !j两次被用作替代变量，第一次用来声明
decile1到 decile10十个序列，第二次用来声明 level1到 level10十个变量。
-25-
For !j=10 to 1 step –1
Series rescale{!j} = original / !j
next
在本例中, 步长 step为 -1,!j被用作替代变量来建造 rescale1到 rescale10十个序
列, 也被用作标量来除序列 original。
循环按初始值开始运行, 除非初始值已经超出终止值的范围 。 按初始值增加
后, 控制变量按步长增加, Eviews将变量与终止值进行比较, 如果超出终止值,
循环结束 。
FOR循环的一个重要的用途是用控制变量来改变序列的样本区间 。 如果在
smpl命令的日期后加上控制变量的值, 就会得到一个新的日期, 而整个序列样本
区间长度的增加值即为控制变量的值 。 下面的例子就逐渐增加样本区间的长度,
并滚动地进行方程回归的估计 。
For !horizon = 10 to 72
smpl 1970:1 1970:1+!horizon
equation eq{!horizon}.ls sales c orders
next
另外一个重要的用途是用循环变量得到序列或矩阵对象中元素的值 。 例如,
!rows = @rows(vec1)
vector cumsum1 = vec1
for !i=2 to !rows
cumsum1(!i) = cumsum1(!i-1)+vec1(!i)
next
-26-
本例计算了向量 vec1中元素的累计和, 并将其存在向量 cumsum1中 。
为获得一个序列的单个元素, 用户须用 @elem函数和 @otod来得到所需的函
数,
for !i=2 to !rows
cumsum1(!i) = @elem(ser1,@otod(!i))
next
这里 @otod函数返回的是和观测值数相关的期数 （ 从工作文件的起始期开始
）, @elem函数根据一个给定的期数来获得序列的元素 。
可以在 FOR循环中进行嵌套 。 例如,
matrix(25,10) xx
for !i=1 to 25
for !j=1 to 10
xx(!i,!j) = (!i-1)*10 + !j
next
next
我们应该避免在 FOR循环中改变控制变量的值, 例如,
for !i=1 to 25
vector a!i
!i= !i+10
next
-27-
这里,FOR循环的声明中和命令中均改变控制变量 !i的值。这种循环很难
被执行，并且通常会得到意想不到的结果。如果你想要在循环中改变控制变
量的值，用我们以下将要讲到的 while循环。
我们也可以在 FOR循环中用标量代替控制变量。但我们在使用之前必须
声明，并且标量不能用作替代变量使用。例如,
scalar i
scalar sum=0
vector (10) x
for i=1 to 10
x(i) = i
sum = sum+i
next
本例中，标量 i和 SUM在程序结束的时候仍然存在于工作文件中，除非它
们被故意删掉。
（ 2） 带有字符串变量的 FOR循环,
当想对一个字符串变量进行重复赋值时，我们可以在 FOR循环中使字符
串变量在字符串列表中取值。字符串变量后接字符串列表。例如,
for %y gdp gnp ndp nnp
equation {%y}trend.ls %y c {%y}(-1) time
next
-28-
执行命令,
equation gdptrend.ls gdp c gdp(-1) time
equation gnptrend.ls gnp c gnp(-1) time
equation ndptrend.ls ndp c ndp(-1) time
equation nnptrend.ls nnp c nnp(-1) time
我们可以在一个 FOR循环中使用多个字符串变量 ——Eviews会对这些字符串
进行分组 。 例如,
for %1 %2 %3 1955:1 1960:4 early 1970:2 1980:3 mid 1975:4 1995:1 late
smpl %1 %2
equation {%3}eq.ls sales c orders
next
本例中, 字符串中的元素被分成三组 。 循环使用不同的样本区间和方程名运
行了三次,
smpl 1955:1 1960:4
equation earlyeq.ls sales c orders
smpl 1970:2 1980:3
equation mideq.ls sales c orders
smpl 1975:4 1995:1
equation lateeq.ls sales c orders
注意此种形式和循环嵌套的区别 。 这里, 所有的字符串变量同时变化, 而嵌
套循环中, 内部循环的变量变化时, 外部变量是不变的 。 例如,
-29-
!eqno=1
for %1 1955:1 1960:4
for %2 1970:2 1980:3 1975:4
smpl %1 %2
equation eq{!eqno}.ls sales c orders
!eqno = !eqno+1
next
next
这样估计的六个方程为,
区间,1955:1 1970:2 方程为,eq1
区间,1955:1 1980:3 方程为,eq2
区间,1955:1 1975:4 方程为,eq3
区间,1960:4 1970:2 方程为,eq4
区间,1960:4 1980:3 方程为,eq5
区间,1960:4 1975:4 方程为,eq6
-30-
3,WHILE循环
在某些情况下，我们希望多次重复执行一些命令，但只有一个或几个条
件被满足。与 FOR循环相似,WHILE循环允许我们重复执行命令，但 WHILE
循环在声明循环条件的时候具有更大的灵活性。
WHILE循环以 while关键字开始，以 wend结束。在两个关键字之间允许
有任意多的命令。 WHILE循环允许嵌套。
WHILE循环的声明部分由 while关键字后接表达式构成。表达式可以有逻
辑值（真 /假）和数值两种情况。为数值时，零被认为是假，任何非零值都被
认为是真。
如果表达式值为真，直到 wend的命令均被执行，然后重复此过程。如果
表达式的值为假,Eviews将越过下面的命令直接执行 wend以后的命令。例如
,
!val=1
!a=1
while !val<10000 and !a<10
smpl 1950:1 1970:1+!a
series inc{!val} = income / !val
!val = !val*10
!a = !a+1
wend
-31-
这个 WHILE循环包括四个部分 。 第一部分是控制变量的初始化 。 第二部分
是 WHILE循环的声明, 并包括条件 。 第三部分是改变控制变量的声明 。 最后一部
分用 wend来结束循环 。
WHILE循环不像 FOR循环, 它不在测试条件中改变控制变量的值, 必须在
循环中有明确的声明来改变控制变量的值, 否则循环将永远不会停止 。 用 F1键可
以使程序从死循环中跳出 。
上面 FOR循环中有一个改变控制变量的例子, 用 WHILE循环会使程序更清
楚,
!i = 1
while !i<=25
vector a{!i}
!i = !i+10
wend
-32-
4．处理执行错误,
缺省情况下,Eviews将在遇到任何错误时中止程序的执行，但用户可以
指定程序在遇到错误的情况下继续运行。这种情况下，用户还可能希望在错
误出现时执行其它不同的任务。例如，在估计过程出错时，可能希望跳过那
些累计估计结果的程序行。
为测试和处理执行错误，我们可以用 @errorcount这个函数来返回程序执
行过程中出现的错误数。
!errs=@errorcount
标准程序语句可以用这些有关出错数目的信息来控制程序的行为。
例如，为测试方程估计时是否出错，用户可以比较一下方程估计命令执
行前后的出错数,
!old _ count = @errorcount
equation eq1.ls y x c
!new _ count = @errorcount
if !new _ count >!old _count then
[其他命令 ]
endif
这里，当方程 eq1的估计出错时，执行了一组命令。
-33-
5．其它控制工具,
有时，我们希望在某些条件下从程序或循环中退出，在 Eviews中，要从程序中
退出，使用 stop命令。例如，假设我们写一段程序，要使序列 ser1中的值非负。下面
的命令将检查序列的值是否非负，并且，序列中如果含有任意负值，程序将结束,
series test = (ser1<0)
if @sum(test)<>0 then
stop
endif
注意到如果序列 ser1中有缺失值，序列 test中相对位置上也为缺失值。因为函数
@sum将忽略缺失值，所以，程序在序列 ser1中有缺失值时不会跳出。
有时，我们不希望在某些条件被满足的时候跳出整个程序，只跳出当前的循环
。 Exitloop命令会跳出当前的 FOR或 WHILE循环而继续执行程序。
例如，假设我们计算了一系列的 LR检验统计量 LR11,LR10,LR9,……, LR1，
假设要检验一个 VAR的滞后长度。下面的程序从 LR11开始顺序的进行 LR检验，并给
出在 5%显著性水平下第一个被拒绝的统计量。
!df = 9
for !lag =11 to 1 step –1
!pval= 1- @cchisq(LR{!lag},!df)
if !pval <=,05 then
exitloop
endif
next
scalar lag = !lag
注意到，如果没有检验统计量被拒绝，则标量 lag的值为 0。
-34-
§26.5 多程序文件
当程序很长时, 用户可能希望用多个文件来存放其代码 。 例如, 假定有一个
名为 powers.prg的程序文件, 文件中有一些程序行 。
可能你会用 run命令来运行文件中的命令, 但 Eviews将在执行完该文件中的
命令后终止程序运行 。 因此, 对于下列的程序行,
run powers.prg
series x = nrnd
Eviews将只执行 powers.prg中的命令, 然后在生成序列 x之前就将终止程序的
运行 。 而用户可能意识不到这一行为 。 不过我们可以在另一个程序文件中用关键
字 include来包含一个程序文件中的内容 。 例如, 其他程序如需 powers中的命令,
可在程序的顶部添加一行,
include powers
也可以在 include语句中写出文件的完整路径, 并且在一个程序中可用多个
include语句来包含多个程序文件 。 例如下面的程序行,
include c:\programs\powers.prg
include durbin _ h
[其他程序行 ]
将首先执行 c:\programs\powers.prg中的命令, 然后执行 durbin_h,prg中的命令
,接下来才是执行程序文件中其他的程序行 。
重复使用命令和参数的更为一般性的方法是使用子程序。
-35-
§26.6 子程序
子程序是一个命令集合，这个集合可以重复地处理一些给定的任务，不用重新输
入命令，只需作些很小的改动就可以。我们也可以用一个程序中的子程序来处理另一
个程序中相同的问题。
1．定义子程序
一个子程序以 subroutine开始，后接函数名和参数，并以 endsub结束。其中可以有
任意多的命令。最简单的子程序为以下形式,
subroutine z _ square
series x = z^2
endsub
这里，关键字 subroutine后只有子程序名，因为没有参数，这个子程序每次运行的
结果都是相同的。它形成序列 z的平方，并将其存在序列 x中。
在 Eviews中，我们使用 return命令，可以在任何时候从子程序中退出。 return命令
的一般用法是，当检查到子程序中有错误的时候，可以从其中退出。下面的程序中，
如果检验序列相关的、带有滞后因变量的 Durbin的 h统计量的值无法计算的话，则从子
程序中退出,
subroutine durbin _ h
equation eqn.ls cs c cs(-1) inc
scalar test=1-eqn.@regobs*eqn.@cov(2,2)
if test<=0 then
return
endif
scalar h=(1-eqn.@dw/2)*sqr(eqn.@regobs/test)
endsub
-36-
2)( xxf ?
2．带有参数的子程序
更一般地，子程序中可以带参数。如果我们熟悉另外一种程序设计语言
，我们就可以知道调用带有参数的子程序是怎样工作的了。即使没有遇到过
子程序，在数学中，我们也会遇到类似的情况。例如，我们可以定义一个函
数,
这里 f依赖于 x,参数 x值是用来定义参数，他本身并不代表任何东西。如
果希望用一个数值来计算函数，比如 0.7839，则需要写 f (0.7839)。 如果要计
算另一个值，比如 0.50123，则写 f (0.50123)。 通过定义函数，我们可以避免
在每次用不同值的时候将表达式重复键入。
为了定义一个带参数的函数，以关键字 subroutine开始，其后接函数名、
左括号、参数列表（其间用逗号隔开），最后是右括号。每个参数都由
Eviews对象的类型和参数名组成。控制变量被认为是标量，字符变量被认为
是字符型。例如,
subroutine power(series v,series y,scalar p)
v = y ^ p
endsub
这个子程序推广了 z _ square这个例子，调用这个子程序产生序列 y的 p次
方，并将其存在序列 v中。如果令 v等于 x, y等于 z, p等于 2，就会得到子程
序 z _ square。 以下将讨论怎样调用子程序。
-37-
3．子程序放置
定义的子程序必须放置在程序的最开始。只有在程序中用 call语句，子程
序才被执行。例如,
subroutine z _ square
series x = z^2
endsub
load mywork
fetch z
call z _ square
程序从命令 load开始执行；在最开始，子程序被略过，直到最后一行才被
执行。
子程序的定义不能嵌套，定义下一个子程序之前，必须有关键字 endsub
。 但子程序可以互相调用，也可以调用自己。
我们可以将经常用到的子程序放入一个单独的程序文件中，然后用
include声明将其插入到任何程序的开始。例如，假设有一个程序，名为
powers.prg,程序中包含了 z _square和 power子程序的定义。因此必须将
include powers
放在任何需要调用 z _square和 power子程序的程序的第一行。在这些程序中，
也可以包括一些部分由 Eviews程序语言构造的程序。
-38-
4．调用子程序
一旦在程序中定义了子程序，我们可以用 call命令来调用子程序。 call命
令后要跟子程序名，和所需要的参数列表，参数放在括号里，并用逗号隔开
。 如果子程序带有参数，调用的参数的顺序要和定义时的顺序相同。例如,
include powers
load mywork
fetch z gdp
series x
series gdp2
series gdp3
call z _square
call power(gdp2,gdp,2)
call power(gdp3,gdp,3)
第一次调用产生序列 x,等于 z的平方；第二次调用产生序列的 gdp2等于
gdp的平方；最后一次调用产生的序列 gdp3等于 gdp的立方。
当子程序的参数为标量时，调用时可以用标量、控制变量、简单数字（
如 10或 15.3）、矩阵元素（如 mat1(1,2)） 或一个标量表达式（如 !y+25）。 带
有矩阵或向量参数的子程序调用时可以用矩阵名，如果在子程序中不进行修
改的话，还可以用矩阵表达式。其他类型的参数在调用时必须和定义时类型
一致。
-39-
5．全局变量和局部变量
子程序的参数可以是全局的和局部的。
全局变量既是指调用子程序时存在于工作文件里的对象，又是指工作
文件中子程序创建的对象。当调用的子程序完成时全局变量仍存在于工作文
件中。
局部变量是只存在于子程序中的变量。一旦子程序完成，局部变量便
被删除。调用子程序的主程序将对该局部变量一无所知，因为随着子程序被
完成并返回到主程序，局部变量被删除了。
