varlmar.dlg

来自「是一个经济学管理应用软件 很难找的 但是经济学学生又必须用到」· DLG 代码 · 共 65 行

/*
    varlmar.dlg

*!  VERSION 1.0.1  14jul2004

*/

VERSION 8.0

INCLUDE _std_medium
INCLUDE _ht220
INCLUDE header

HELP hlp1, view("help varlmar")
RESET res1

DIALOG main, label("varlmar - LM statistic for residual autocorrelation ") /*
		*/ tabtitle("Main")
BEGIN
  DEFINE _x _xsetbu
  DEFINE _y _top
  INCLUDE _bu_tsset

  SPINNER  sp_mlag           _lft      _ss        _spwd     .,		/*
		*/ label("Maximum order of autocorrelation")		/*
		*/ min(1) max(c(N)) default(2)				/*
		*/ option("mlag")
  TEXT     tx_mlag           _spsep    @          190      .,		/*
		*/ label("Maximum order of autocorrelation")

  GROUPBOX  gb_est           _lft      _ls       _iwd      _ht6h,
  RADIO    rb_curres         _ilft     _ss       _inwd     ., first	/*
		*/ label("Use active var or svar results")
  RADIO    rb_use            @         _ss       @         ., last	/*
		*/ label("Use alternative results:")			/*
		*/ onclickon(gaction main.cb_estimates.enable)		/*
		*/ onclickoff(gaction main.cb_estimates.disable)
  COMBOBOX cb_estimates      _indent2  _ss       _vnwd     .,		/*
		*/ dropdown						/*
		*/ option(estimates)					/*
		*/ contents(estimates)					/*
		*/ label("Alternative var or svar results")

  SPINNER  sp_sep            _lft      _xxls     _spwd     .,		/*
		*/ label("Separator every N lines")			/*
		*/ min(0) max(500) default(0)				/*
		*/ option("separator")
  TEXT     tx_sep            _spsep    @         _cwd1     .,		/*
		*/ label("Separator every N lines")
END

PROGRAM command
BEGIN
	if main.rb_use {
		require main.cb_estimates
	}

	put "varlmar"
	beginoptions
		optionarg /hidedefault main.sp_mlag
		optionarg main.cb_estimates
		optionarg /hidedefault main.sp_sep
	endoptions
END