sureg.dlg

是一个经济学管理应用软件 很难找的 但是经济学学生又必须用到

/*
  sureg.dlg

*! VERSION 1.1.0  08dec2004

*/

VERSION 9.0

INCLUDE _std_large
INCLUDE header

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

DIALOG main, label("sureg - Zellner's seemingly unrelated regression") 	///
		tabtitle("Model")
BEGIN
  DEFINE _y _top
  INCLUDE _equations

  RADIO    rb_1step    _lft2       -15       _cwd2       .,		///
  		label("Two-step estimator") first 			///
  		onclickon(script max_disable)
  RADIO    rb_iterate  @           _ss       _cwd2       .,		///
  		label("Iterated two-step estimator")			///
  		last							///
  		onclickon(script max_enable) option(isure)

  DEFINE _x _ilft
  DEFINE _cx _ibwd
  DEFINE _y _ms
  INCLUDE _constraints

  // -noheader-, -notable- programmer options not implemented */
END

SCRIPT POSTINIT
BEGIN
	script max_setLTolNotAllowed
END

INCLUDE _equations_sc

INCLUDE byifin
INCLUDE weights_fa

INCLUDE df_adj

DIALOG rpt, tabtitle("Reporting")
BEGIN
  DEFINE _x _lft
  DEFINE _cx _spr2
  DEFINE _y _top
  INCLUDE _sp_level

  GROUPBOX gb_tests    _lft        _xls      _iwd        _ht2,		///
  		label("Additional test statistics")
  CHECKBOX ck_corr     _ilft       _ss       _cwd2       .,		///
		label("Perform Breush-Pagan test")			///
		option("corr")
END

INCLUDE max_internal

PROGRAM command
BEGIN
	allowxi
	INCLUDE _by_pr
	put "sureg "
	put /program _equations_output
	INCLUDE _weights_pr
	INCLUDE _ifin_pr
	beginoptions
		INCLUDE _constraints_main_pr
		option main.rb_iterate
		put " " /program df_adj_output
		optionarg /hidedefault rpt.sp_level
		option rpt.ck_corr
		put " " /program max_output
	endoptions
END