第26章程序设计.ppt

-1-,第二十六章 程序设计,EViews编程的特征允许用户在程序中创建和存储命令，程序能自动执行每个命令，或生成研究项目的结果。例如，用户可以编写一个分析某个工业数据的程序，然后便可以用该程序分析其他工业的数据。用户也可以创建一个程序，通过对最后结果的计算和图形表格的表示结构来把用户从创建工作文件和读取原始数据中解脱出来。如果你有过计算机编程的经验，那么你将发现Eviews编程语言是十分熟悉的。Eviews程序设计语言的主要特性是宏替换语言（macro substitution language）。它允许用户通过组合几个包含部分对象名的变量来创建一个新的对象名。,-2-,26.1 程序设计基础 1创建程序 程序并不是工作文件的对象，而只是包含EViews命令的文本文件，点击 FileNewProgram 可以建立新的程序。用户将看见一个标准的文本编辑窗口，在那里可以输入命令行，用户也可以通过在命令行键入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 workeviewsmyhouse.prg就是在默认路径下打开mysp500.prg；在myworkeviews路径下打开myhouse.prg程序。4运行程序 编程序共有两种方式：一种是交互方式，即在命令窗口一行一行地输入一系列命令；另一种是程序模式，即在一个程序中输入所有的命令，并以程序组的方式集体执行命令。,-4-,运行程序最简单的方式是点击程序窗口中的Run按钮，打开Run对话框，并输入程序的名字和参数。另外，在对话框中还可以设置终止命令前允许出现的最大错误数目，和在quiet与verbose模式之间进行选择，在verbose模式下,EViews创建和删除对象时不断地更新工作文件窗口。而quiet模式隐蔽这些更新，以减少花费在屏幕显示上的时间。,在默认的情况下，当EViews遇到错误时它将终止运行程序，并且显示出错信息，如果在,Maximum errors before halting域中输入最大错误数，EViews将在达到该值时才终止程序。如果发生了严重的错误，程序也将终止，尽管还未达到错误最大值。另外一种运行程序的方式是输入run命令，后面跟随程序文件的名称。如 run mysp500 run c:eviewsmyprog,-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*!epsilon2)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_%c1则创建了一个序列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%1res smpl 93:1 1997:6 reg1.forecast%1fit freeze(%1plot)%1fit.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!a5 and!a10 then smpl 1950:1 1970:1+!a endif if!scale then series newage=age/!scale endif,-22-,注意到所有的缩进都是为了程序看起来更清楚，对程序的执行没有任何的影响。IF语句可以带有ELSE分句，其中包含的命令在条件为假的时候被执行。如果条件为真，在else前所有的命令都被执行。如果条件为假，所有在else和endif之间的命令都被执行。例如：If!scale0 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”then 如果字符串%str不为空，则执行then以下的命令。检查一个标量是否含有空值，将其与na 比较，例如：if!ana then 如果!a不为空，则执行then以后的命令。注意到与na相比的不等式通常都认为是假，例如：if 3na then if 3=na then 都为假。上述IF语句中用到的都是数值或字符串变量，当用户在 IF语句中用到了序列或矩阵时，表达式中只有当对象的每一个元素之间的比较都为真时才为真。因此，对于序列X和 Y，IF语句：,-24-,if xy then程序行 endif 如果X的任何一个元素和Y中对应的元素不相等时，条件就为真。对于X和Y都是矩阵的情况，也是如此。2FOR循环 FOR循环允许我们对不同的控制和字符串变量重复执行一个命令集合。FOR循环以for关键字开始、以next关键字结束。在两个关键字之间可以有任意多的命令。FOR循环的语法区别主要在于是使用控制变量还是使用字符串变量。（1）带有控制变量或标量的FOR循环：为了给一个控制变量赋不同的值，for循环先给一个控制变量赋初值，然后接to关键字、最后是结束值。结束值后可以接step 关键字，step后的数值代表每次循环的步长。如果省略step,则默认值是1。例如：for!j=1 to 10 series decile!j=(incomelevel!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!rowscumsum1(!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%ytrend.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%3eq.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-,3WHILE循环 在某些情况下，我们希望多次重复执行一些命令，但只有一个或几个条件被满足。与FOR循环相似，WHILE循环允许我们重复执行命令，但WHILE循环在声明循环条件的时候具有更大的灵活性。WHILE循环以while关键字开始，以wend结束。在两个关键字之间允许有任意多的命令。WHILE循环允许嵌套。WHILE循环的声明部分由while关键字后接表达式构成。表达式可以有逻辑值（真/假）和数值两种情况。为数值时，零被认为是假，任何非零值都被认为是真。如果表达式值为真，直到wend的命令均被执行，然后重复此过程。如果表达式的值为假，Eviews将越过下面的命令直接执行wend以后的命令。例如：!val=1!a=1 while!val10000 and!a10 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=(ser10 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 thenexitloop 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:programspowers.prg include durbin _ h 其他程序行 将首先执行c:programspowers.prg中的命令，然后执行durbin_h.prg中的命令，接下来才是执行程序文件中其他的程序行。重复使用命令和参数的更为一般性的方法是使用子程序。,-35-,26.6 子程序 子程序是一个命令集合，这个集合可以重复地处理一些给定的任务，不用重新输入命令，只需作些很小的改动就可以。我们也可以用一个程序中的子程序来处理另一个程序中相同的问题。1定义子程序 一个子程序以subroutine开始，后接函数名和参数，并以endsub结束。其中可以有任意多的命令。最简单的子程序为以下形式：subroutine z _ square series x=z2 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带有参数的子程序 更一般地，子程序中可以带参数。如果我们熟悉另外一种程序设计语言，我们就可以知道调用带有参数的子程序是怎样工作的了。即使没有遇到过子程序，在数学中，我们也会遇到类似的情况。例如，我们可以定义一个函数：这里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子程序放置 定义的子程序必