proc(0)=SetLegend(j,ymin,ymax,i,sn);
    local a,b;
    external matrix _plegctl, _plegend;

    if ismiss(_plegend[sn,i,1]);
        if abs(ymin)>ymax;
           _plegctl=(1~6~floor(j/3)~ymin);
        else;
          _plegctl=(1~6~floor(j/3)~0.5*ymax);
        endif;
    else;     
       a=arraytomat(_plegend[sn,i,1]);
       b=arraytomat(_plegend[sn,i,2]);
        _plegctl=(1~6~a~b);
      
    endif;      
   
retp;

endp;

proc(1)=String1(s1,s2);

    local c;   
    c="  (" $+ ftos(s1,"*.*lf",6,2) $+ "-" $+ ftos(s2,"*.*lf",6,2) $+ ")  ";
   
retp(c);

endp;

proc(1)=String2(s);
    local l1, i1, s1;
    s1=ftos(s,"*.*lf",6,2);
    l1=strlen(s1);
    i1=round((19-l1)/2);
    s1=strtruncpad(" ",i1) $+ s1;
    i1=strlen(s1);
    s1=s1 $+ strtruncpad(" ",19-i1);
retp(s1);
endp;


   
#include SolveLA4.src;


     我看了，但是发现已经把plegend定义了，请帮我看看，谢谢！
程序在附件中，请帮忙运行看一下，由于我gauss刚入门，这么复杂的程序我还看不懂，
多谢！

检查下路径添加正确是否正确。我运行了的，完全可以。

[img][/img]

Eigenvalues of W:

      0.97250876                     
       1.0396476                     

                        (  0.43-  0.75)                       (  0.98-  0.99)    (  0.50-  0.82)   
Investment                     6.18               4.26               1.00               0.64      
                        (  4.73-  8.18)                       (  1.00-  1.00)    (  0.47-  0.80)   
Hours                          0.78               0.54               1.00               0.64      
                        (  0.60-  1.03)                       (  0.99-  1.00)    (  0.47-  0.80)   
Real Wage                      0.68               0.47               0.99               0.66      
                        (  0.52-  0.90)                       (  0.99-  1.00)    (  0.49-  0.82)   
Rental Rate of Capital         1.49               1.03               0.98               0.64      
                        (  1.14-  1.97)                       (  0.96-  0.99)    (  0.47-  0.81)   

Column 1: Variable name
Column 2: Standard deviation
Column 3: Standard deviation relative to standard deviation of variable Output
Column 4: Cross correlation with Output
Column 5: First order autocorrelation
Numbers in parenthesis: 95 percent of the moments are within these bounds

我估计是不是你的src文件放错了位置？

我因为学习gauss已经一年多了，程序不能完全看懂，但是lib和src文件我觉得应该放对了，另外，
我的路径应该也是正确的，我用的是gauss7.0，请楼上的各位朋友和老师再想想还会是其他什么原因呢？非常感谢！
Gauss7.0软件的用法我会，就是程序看不懂。

第一个程序LA
Undefined symbols:
    _plegend                           C:\DSGE(17July2010)\SolveLA3.src(826)
proc(0)=SetLegend(j,ymin,ymax,i,sn);
    local a,b;
    调试提示这一行有问题：external matrix _plegctl, _plegend;

    if ismiss(_plegend[sn,i,1]);
        if abs(ymin)>ymax;
           _plegctl=(1~6~floor(j/3)~ymin);
        else;
          _plegctl=(1~6~floor(j/3)~0.5*ymax);
        endif;
第二个程序QA
Undefined symbols:
    _plegend                           C:\DSGE(17July2010)\SolveQA2.src(912)

    proc(0)=SetLegend(j,ymin,ymax,i,sn);
    local a,b;
    提示这一行有错误：external matrix _plegctl, _plegend;

    if ismiss(_plegend[sn,i,1]);
        if abs(ymin)>ymax;
           _plegctl=(1~6~floor(j/3)~ymin);
        else;
          _plegctl=(1~6~floor(j/3)~0.5*ymax);
        endif;

C:\DSGE\SolveQA2.src(157) : Redefinition of '_linear'
     (proc)_linear being declared external matrix
C:\DSGE\SolveQA2.src(161) : error G1001 : 'ENDIF' : Expected nothing  
   PROC without ENDP G0278 : 'PF'
   Label undefined G0090 : 'ende'


c:\gauss\src\pgraph.dec(506) : Redefinition of '_pdate'
     (matrix)_pdate being declared external string
(0) : error G0090 : 'ende' : Label undefined

打开SolveLA1.src

加入底下这一段:

/* Initialize the array that can be used to position the legend individually */
ord=_nz|6|2;
_plegend=arrayinit(ord,0);
for i (1,6,1);
    for j (1,_nz,1);
        _plegend[j,i,1]=miss(1,1);
    endfor;
endfor;

@ ---------------
        -------------- @

打开 DSGE_LA.g

/* Choice of random numbers */

将/*_makeShocks=0; @ "if=1, an array of shocks will be created

                   that can be used in repeated simulations"   @*/

改为

_makeShocks=1;

@ ---------------
        -------------- @

运行结果:

02 August 2011
19:37:59

Eigenvalues of W:

      0.97250876                     
       1.0396476                     

Second moments from simulated data:

Output                    1.47    1.00    1.00    0.65
Consumption               0.57    0.39    0.99    0.67
Investment                6.25    4.26    1.00    0.65
Hours                     0.79    0.54    1.00    0.65
Real Wage                 0.69    0.47    0.99    0.66
Rental Rate of Capital    1.51    1.03    0.98    0.65

Column 1: Variable name
Column 2: Standard deviation
Column 3: Standard deviation relative to standard deviation of variable Output
Column 4: Cross correlation with Output
Column 5: First order autocorrelation

epoh老师，您好！
      程序能正常运行，我想问一下：
* Initialize the array that can be used to position the legend individually */
ord=_nz|6|2;
_plegend=arrayinit(ord,0);
for i (1,6,1);
    for j (1,_nz,1);
        _plegend[j,i,1]=miss(1,1);
    endfor;
endfor;

这几行程序是什么意思？ord=_nz|6|2;是什么意思？
for i 和for j循环赋值是对什么进行赋值？
另外，原程序包中的Tools.dll是做什么用的？是用那个软件做成的？
我记得Gauss不能做.dll文件。
SolveLA1.src这个程序有什么用？
非常感谢！

_nz=1;
ord=_nz|6|2;
    1.0000000
    6.0000000
    2.0000000

_plegend=arrayinit(ord,0);
    Plane [1,.,.]
      0.00000000       0.00000000
      0.00000000       0.00000000
      0.00000000       0.00000000
      0.00000000       0.00000000
      0.00000000       0.00000000
      0.00000000       0.00000000

for i (1,6,1);
    for j (1,_nz,1);
        _plegend[j,i,1]=miss(1,1);
    endfor;
endfor;

_plegend
Plane [1,.,.]
               .       0.00000000
               .       0.00000000
               .       0.00000000
               .       0.00000000
               .       0.00000000
               .       0.00000000

The GAUSS Engine makes all of the functionality of GAUSS available
in a dynamically linked library (.DLL) under Windows,
or shared library (.so) under UNIX.

Tools.dll:This dynamic link library contains routines written in
          Fortran that implement the Schur and the generalized
          Schur factorization of matrices.
          see DSGE: User Guide page 2/12

谢谢。。。

thanks a lot

Thanks!

好东东

运行错误啊

关键是如何输入自己的数据呢

求助各位老师，如何运行DSGE_LA.g呢，*.src和*.dll文件已经按照User Guide拷贝到各自文件夹中了，只有*.g的两个不知道该怎么弄了

HH GOOG

我想学习CGE，需要哪些入门书籍，和先修课程，以及用什么软件好一点，求告知