nlogit.dlg

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

/*
  nlogit

*!  VERSION 1.1.2  15mar2005

*/

VERSION 9.0

INCLUDE _std_large
INCLUDE _ht320
INCLUDE header

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

DIALOG main, label("nlogit - Nested logit regression") tabtitle("Model")
BEGIN
  TEXT     tx_depvar _lft      _top      _vnwd     .,			/*
		*/ label("Choice variable:")				/*
		*/
DEFINE y @y
  VARNAME  vn_depvar @         _ss       _vnwd     .,			/*
		*/ label("Choice variable")				/*
		*/


  TEXT     tx_group  +140      y         _vnwd     .,			/*
		*/ label("Group ID variable:")				/*
		*/
  VARNAME  vn_group  @         _ss       _vnwd     .,			/*
		*/ label("Group ID variable")				/*
		*/ option("group")					/*
		*/

  TEXT     tx_eqni   _lft      _ls       _iwd      .,			/*
		*/ label("Model alternatives at each choice level: (Level 1 is required)")	/*
		*/
  LISTBOX  lb_eqni   _lft      _ss       _vnwd     _ht6,		/*
		*/ label("Model alternatives at each choice level")	/*
		*/ contents(eqn_con)					/*
		*/ onselchangelist(eqn_sel)				/*
		*/

  DEFINE ckx _lft2
  DEFINE ckcx _cwd1
  TEXT     tx_yvar   _vlx      @         _vnwd     .,			/*
		*/ label("Alternatives var. 1:")			/*
		*/
  VARNAME  vn_yvar1  @         _ss       @         .,			/*
		*/ label("Alternatives var. 1")				/*
		*/
  VARNAME  vn_yvar2  @         @         @     .,			/*
		*/ label("Alternatives var. 2")				/*
		*/
  VARNAME  vn_yvar3  @         @         @     .,			/*
		*/ label("Alternatives var. 3")				/*
		*/
  VARNAME  vn_yvar4  @         @         @     .,			/*
		*/ label("Alternatives var. 4")				/*
		*/
  VARNAME  vn_yvar5  @         @         @     .,			/*
		*/ label("Alternatives var. 5")				/*
		*/
  VARNAME  vn_yvar6  @         @         @     .,			/*
		*/ label("Alternatives var. 6")				/*
		*/
  VARNAME  vn_yvar7  @         @         @     .,			/*
		*/ label("Alternatives var. 7")				/*
		*/
  VARNAME  vn_yvar8  @         @         @     .,			/*
		*/ label("Alternatives var. 8")				/*
		*/
  VARNAME  vn_yvar9  @         @         @     .,			/*
		*/ label("Alternatives var. 9")				/*
		*/
  VARNAME  vn_yvar10 @         @         @     .,			/*
		*/ label("Alternatives var. 10")			/*
		*/


  TEXT     tx_xvar   @         _ls       _vlwd     .,			/*
		*/ label("Independent variables for level 1:")	/*
		*/
  VARLIST  vl_xvar1  @         _ss       @         .,			/*
		*/ label("Independent variables for level 1")		/*
		*/
  VARLIST  vl_xvar2  @         @        @         .,			/*
		*/ label("Independent variables for level 2")		/*
		*/
  VARLIST  vl_xvar3  @         @        @         .,			/*
		*/ label("Independent variables for level 3")		/*
		*/
  VARLIST  vl_xvar4  @         @        @         .,			/*
		*/ label("Independent variables for level 4")		/*
		*/
  VARLIST  vl_xvar5  @         @        @         .,			/*
		*/ label("Independent variables for level 5")		/*
		*/
  VARLIST  vl_xvar6  @         @        @         .,			/*
		*/ label("Independent variables for level 6")		/*
		*/
  VARLIST  vl_xvar7  @         @        @         .,			/*
		*/ label("Independent variables for level 7")		/*
		*/
  VARLIST  vl_xvar8  @         @        @         .,			/*
		*/ label("Independent variables for level 8")		/*
		*/
  VARLIST  vl_xvar9  @         @        @         .,			/*
		*/ label("Independent variables for level 9")		/*
		*/
  VARLIST  vl_xvar10 @         @        @         .,			/*
		*/ label("Independent variables for level 10")	/*
		*/

  GROUPBOX gp_opts   _lft      +35       _iwd      _ht9h,		/*
  		*/ label("Options")
  TEXT     tx_ivcons _ilft     _ss       _inwd     .,			/*
		*/ label("Inclusive value constraints:")		/*
		*/
  EDIT     ed_ivcons @         _ss       @         .,			/*
		*/ label("Inclusive value constraints")			/*
		*/ option("ivconstraints")				/*
		*/

  TEXT     tx_constr @         _ls       @         .,			/*
		*/ label("Constraints:")				/*
		*/
  COMBOBOX cb_constr @         _ss       @         .,			/*
		*/ append						/*
		*/ dropdown						/*
		*/ contents(constraint)					/*
		*/ label("Constraints")					/*
		*/ option("constraints")				/*
		*/
END

LIST eqn_con
BEGIN
	Level 1
	Level 2
	Level 3
	Level 4
	Level 5
	Level 6
	Level 7
	Level 8
	Level 9
	Level 10
END

LIST eqn_sel
BEGIN
	script eqn1
	script eqn2
	script eqn3
	script eqn4
	script eqn5
	script eqn6
	script eqn7
	script eqn8
	script eqn9
	script eqn10
END

PROGRAM hide_all
BEGIN
	if !H(main.vn_yvar1) {
		call gaction main.vn_yvar1.hide
		call gaction main.vl_xvar1.hide
	}
	if !H(main.vn_yvar2) {
		call gaction main.vn_yvar2.hide
		call gaction main.vl_xvar2.hide
	}
	if !H(main.vn_yvar3) {
		call gaction main.vn_yvar3.hide
		call gaction main.vl_xvar3.hide
	}
	if !H(main.vn_yvar4) {
		call gaction main.vn_yvar4.hide
		call gaction main.vl_xvar4.hide
	}
	if !H(main.vn_yvar5) {
		call gaction main.vn_yvar5.hide
		call gaction main.vl_xvar5.hide
	}
	if !H(main.vn_yvar6) {
		call gaction main.vn_yvar6.hide
		call gaction main.vl_xvar6.hide
	}
	if !H(main.vn_yvar7) {
		call gaction main.vn_yvar7.hide
		call gaction main.vl_xvar7.hide
	}
	if !H(main.vn_yvar8) {
		call gaction main.vn_yvar8.hide
		call gaction main.vl_xvar8.hide
	}
	if !H(main.vn_yvar9) {
		call gaction main.vn_yvar9.hide
		call gaction main.vl_xvar9.hide
	}
	if !H(main.vn_yvar10) {
		call gaction main.vn_yvar10.hide
		call gaction main.vl_xvar10.hide
	}

END

SCRIPT eqn1
BEGIN
	program hide_all
	main.tx_yvar.setlabel "Alternatives var. 1:"
	main.vn_yvar1.show
	main.tx_xvar.setlabel "Independent variables for level 1:"
	main.vl_xvar1.show
END

SCRIPT eqn2
BEGIN
	program hide_all
	main.tx_yvar.setlabel "Alternatives var. 2:"
	main.vn_yvar2.show
	main.tx_xvar.setlabel "Independent variables for level 2:"
	main.vl_xvar2.show
END

SCRIPT eqn3
BEGIN
	program hide_all
	main.tx_yvar.setlabel "Alternatives var. 3:"
	main.vn_yvar3.show
	main.tx_xvar.setlabel "Independent variables for level 3:"
	main.vl_xvar3.show
END

SCRIPT eqn4
BEGIN
	program hide_all
	main.tx_yvar.setlabel "Alternatives var. 4:"
	main.vn_yvar4.show
	main.tx_xvar.setlabel "Independent variables for level 4:"
	main.vl_xvar4.show
END

SCRIPT eqn5
BEGIN
	program hide_all
	main.tx_yvar.setlabel "Alternatives var. 5:"
	main.vn_yvar5.show
	main.tx_xvar.setlabel "Independent variables for level 5:"
	main.vl_xvar5.show
END

SCRIPT eqn6
BEGIN
	program hide_all
	main.tx_yvar.setlabel "Alternatives var. 6:"
	main.vn_yvar6.show
	main.tx_xvar.setlabel "Independent variables for level 6:"
	main.vl_xvar6.show
END

SCRIPT eqn7
BEGIN
	program hide_all
	main.tx_yvar.setlabel "Alternatives var. 7:"
	main.vn_yvar7.show
	main.tx_xvar.setlabel "Independent variables for level 7:"
	main.vl_xvar7.show
END

SCRIPT eqn8
BEGIN
	program hide_all
	main.tx_yvar.setlabel "Alternatives var. 8:"
	main.vn_yvar8.show
	main.tx_xvar.setlabel "Independent variables for level 8:"
	main.vl_xvar8.show
END

SCRIPT eqn9
BEGIN
	program hide_all
	main.tx_yvar.setlabel "Alternatives var. 9:"
	main.vn_yvar9.show
	main.tx_xvar.setlabel "Independent variables for level 9:"
	main.vl_xvar9.show
END

SCRIPT eqn10
BEGIN
	program hide_all
	main.tx_yvar.setlabel "Alternatives var. 10:"
	main.vn_yvar10.show
	main.tx_xvar.setlabel "Independent variables for level 10:"
	main.vl_xvar10.show
END

INCLUDE byifin
INCLUDE weights_fi
INCLUDE se

SCRIPT PREINIT
BEGIN
	script se_createAsML
END

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

  CHECKBOX ck_notree _lft      _ls       _iwd      .,			/*
		*/ label("Suppress display of tree structure output")	/*
		*/ option("notree")					/*
		*/
  CHECKBOX ck_nolab  @         _ms       @         .,			/*
	*/ label("Suppress value labels in tree structure output")	/*
		*/ option("nolabel")					/*
		*/
  CHECKBOX ck_clogit @         _ms       @         .,			/*
		*/ label("Report clogit estimates")			/*
		*/ option("clogit")					/*
		*/
END

PROGRAM rpt_output
BEGIN
	option rpt.ck_notree
	option rpt.ck_nolab
	option rpt.ck_clogit
	optionarg /hidedefault rpt.sp_level
END

INCLUDE max_ml

SCRIPT POSTINIT
BEGIN
	script max_setFromNotVisible
	script se_setCluster_off
END

PROGRAM command
BEGIN
	allowxi
	INCLUDE _by_pr
	put "nlogit "
	varlist main.vn_depvar
	if main.vn_yvar10 | main.vl_xvar10 {
		put "("
		if !main.vn_yvar10 {
			stopbox stop "Alternatives var. 10 required"
		}
		put /hidden main.vn_yvar10
		put " " "= "
		if !main.vl_xvar10 {
		stopbox stop "Independent variables for level 10 required"
		}
		put /hidden main.vl_xvar10
		put ") "
	}

	if main.vn_yvar9 | main.vl_xvar9 {
		put "("
		if !main.vn_yvar9 {
			stopbox stop "Alternatives var. 9 required"
		}
		put /hidden main.vn_yvar9
		put " " "= "
		if !main.vl_xvar9 {
		stopbox stop "Independent variables for level 9 required"
		}
		put /hidden main.vl_xvar9
		put ") "
	}

	if main.vn_yvar8 | main.vl_xvar8 {
		put "("
		if !main.vn_yvar8 {
			stopbox stop "Alternatives var. 8 required"
		}
		put /hidden main.vn_yvar8
		put " " "= "
		if !main.vl_xvar8 {
		stopbox stop "Independent variables for level 8 required"
		}
		put /hidden main.vl_xvar8
		put ") "
	}

	if main.vn_yvar7 | main.vl_xvar7 {
		put "("
		if !main.vn_yvar7 {
			stopbox stop "Alternatives var. 7 required"
		}
		put /hidden main.vn_yvar7
		put " " "= "
		if !main.vl_xvar7 {
		stopbox stop "Independent variables for level 7 required"
		}
		put /hidden main.vl_xvar7
		put ") "
	}

	if main.vn_yvar6 | main.vl_xvar6 {
		put "("
		if !main.vn_yvar6 {
			stopbox stop "Alternatives var. 6 required"
		}
		put /hidden main.vn_yvar6
		put " " "= "
		if !main.vl_xvar6 {
		stopbox stop "Independent variables for level 6 required"
		}
		put /hidden main.vl_xvar6
		put ") "
	}

	if main.vn_yvar5 | main.vl_xvar5 {
		put "("
		if !main.vn_yvar5 {
			stopbox stop "Alternatives var. 5 required"
		}
		put /hidden main.vn_yvar5
		put " " "= "
		if !main.vl_xvar5 {
		stopbox stop "Independent variables for level 5 required"
		}
		put /hidden main.vl_xvar5
		put ") "
	}

	if main.vn_yvar4 | main.vl_xvar4 {
		put "("
		if !main.vn_yvar4 {
			stopbox stop "Alternatives var. 4 required"
		}
		put /hidden main.vn_yvar4
		put " " "= "
		if !main.vl_xvar4 {
		stopbox stop "Independent variables for level 4 required"
		}
		put /hidden main.vl_xvar4
		put ") "
	}

	if main.vn_yvar3 | main.vl_xvar3 {
		put "("
		if !main.vn_yvar3 {
			stopbox stop "Alternatives var. 3 required"
		}
		put /hidden main.vn_yvar3
		put " " "= "
		if !main.vl_xvar3 {
		stopbox stop "Independent variables for level 3 required"
		}
		put /hidden main.vl_xvar3
		put ") "
	}

	if main.vn_yvar2 | main.vl_xvar2 {
		put "("
		if !main.vn_yvar2 {
			stopbox stop "Alternatives var. 2 required"
		}
		put /hidden main.vn_yvar2
		put " " "= "
		if !main.vl_xvar2 {
		stopbox stop "Independent variables for level 2 required"
		}
		put /hidden main.vl_xvar2
		put ") "
	}
/* level 1 required */
	if !main.vn_yvar1 {
		stopbox stop "Alternatives var. 1 required"
	}
	if main.vn_yvar1 | main.vl_xvar1 {
		put "("
		put /hidden main.vn_yvar1
		put " " "= "
		if !main.vl_xvar1 {
		stopbox stop "Independent variables for level 1 required"
		}
		put /hidden main.vl_xvar1
		put ") "
	}
	INCLUDE _weights_pr
	INCLUDE _ifin_pr
	beginoptions
		require main.vn_group
		optionarg main.vn_group
		optionarg main.ed_ivcons
		optionarg main.cb_constr
		put " " /program se_output
		put " " /program rpt_output
		put " " /program max_output
	endoptions
END