xtmixed.dlg

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

/*
 *   xtmixed
 *
 *!  VERSION 1.0.4  07apr2005
 *
 *     keyword:  eclass
 *
 *     */

VERSION 9.0

INCLUDE _std_glm
DEFINE _dlgwd 670
DEFINE _dlght 420
INCLUDE header

DEFINE _iwd 650

DEFINE c1 20
DEFINE c1wd 63

DEFINE c2 90
DEFINE c2wd 110

DEFINE c3h 225
DEFINE c3hwd 50
DEFINE c3 239
DEFINE c3wd 20

DEFINE c4 280
DEFINE c4fwd 110
DEFINE c4wd 200

DEFINE c5 490
DEFINE c5wd 105

DEFINE c6h 600
DEFINE c6hwd 57
DEFINE c6 617
DEFINE c6wd 20

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

PROGRAM POSTINIT_PROGRAM
BEGIN
	if ! main.ck_equation_1 & ! main.ck_equation_2 		///
		& ! main.ck_equation_3 & ! main.ck_equation_4 	///
		& ! main.ck_equation_5 & ! main.ck_equation_6 	///
		& ! main.ck_equation_7 & ! main.ck_equation_8 	///
		& ! main.ck_equation_9 & ! main.ck_equation_10 	///
	{
		call main.ck_equation_1.seton
	}
	call script max_setFromNotVisible
END

DIALOG main, tabtitle("Model")	///
	label("xtmixed  -  Multilevel mixed-effects linear regression")
BEGIN
  DEFINE _x _xsetbu
  DEFINE _y _top
  INCLUDE _dviv_ts4set

  CHECKBOX ck_nocons		@	_ms	@	.,		///
	label("Suppress constant term")					///
	option(noconstant)
  GROUPBOX gb_model		_lft	_ms	_iwd	320,		///
	label("Random effects equations")

  //Headings
  TEXT     tx_eq		_ilft	_ss	c1wd	.,		///
  	label("Level")
DEFINE toprow @y
  TEXT     tx_eq_2		@	_vss	@	.,		///
  	label("equation")

  TEXT     tx_level		c2	toprow	c2wd	.,		///
  	label("Level")
  TEXT     tx_level_2		@	_vss	@	.,		///
  	label("variable")

  TEXT     tx_factor		c3h	toprow	c3hwd	.,		///
  	label("Factor")
  TEXT     tx_factor_2		@	_vss	@	.,		///
  	label("equation")

  TEXT     tx_factor_iv		c4	toprow	c4wd	.,		///
  	label("Factor variable/")
  TEXT     tx_factor_iv_2	@	_vss	@	.,		///
  	label("Independent variables")

  TEXT     tx_cov_structure	c5	toprow	c5wd	.,		///
  	label("Covariance")
  TEXT     tx_cov_structure_2	@	_vss	@	.,		///
  	label("structure")

  TEXT     tx_noconstant	c6h	toprow	c6hwd	.,		///
  	label("Suppress")
  TEXT     tx_noconstant_2	@	_vss	@	.,		///
  	label("constant")

//Equation_1
  CHECKBOX ck_equation_1	c1	_ms	c1wd	.,		///
  	label("EQ 1")							///
  	onclickon(program main_equation_1_on)				///
  	onclickoff(script main_equation_1_off)
  VARNAME  vn_level_1		c2	@	c2wd	.,		///
  	label("Level variable for equation 1")
  CHECKBOX ck_factor_eq_1	c3	@	c3wd	.,		///
  	onclickon(script main_factor_eq_1_show)				///
  	onclickoff(program main_factor_eq_1_hide)
  VARNAME  vn_factor_eq_1	c4	@	c4fwd	.,		///
  	label("Factor variable for equation 1")
  VARLIST  vl_independent_1	c4	@	c4wd	.,		///
  	label("Independent variables for equation 1")
  COMBOBOX cb_cov_structure_1	c5	@	c5wd	.,		///
  	dropdownlist contents(main_covariance_list) 			///
  	option(covariance)
  COMBOBOX cb_fcov_structure_1	c5	@	c5wd	.,		///
  	dropdownlist contents(main_covariance_2_list) 			///
  	option(covariance)
  CHECKBOX ck_noconstant_1	c6	@	c6wd	., 		///
  	option(noconstant)

 //Equation_2
   CHECKBOX ck_equation_2	c1	_ms	c1wd	.,		///
   	label("EQ 2")							///
   	onclickon(program main_equation_2_on)				///
   	onclickoff(script main_equation_2_off)
   VARNAME  vn_level_2		c2	@	c2wd	.,		///
   	label("Level variable for equation 2")
   CHECKBOX ck_factor_eq_2	c3	@	c3wd	.,		///
   	onclickon(script main_factor_eq_2_show)				///
   	onclickoff(program main_factor_eq_2_hide)
   VARNAME  vn_factor_eq_2	c4	@	c4fwd	.,		///
   	label("Factor variable for equation 2")
   VARLIST  vl_independent_2	c4	@	c4wd	.,		///
   	label("Independent variables for equation 2")
   COMBOBOX cb_cov_structure_2	c5	@	c5wd	.,		///
   	dropdownlist contents(main_covariance_list) 			///
   	option(covariance)
   COMBOBOX cb_fcov_structure_2	c5	@	c5wd	.,		///
   	dropdownlist contents(main_covariance_2_list)			///
   	option(covariance)
  CHECKBOX ck_noconstant_2	c6	@	c6wd	.,		///
  	option(noconstant)

//Equation_3
  CHECKBOX ck_equation_3	c1	_ms	c1wd	.,		///
  	label("EQ 3")							///
  	onclickon(program main_equation_3_on)				///
  	onclickoff(script main_equation_3_off)
  VARNAME  vn_level_3		c2	@	c2wd	.,		///
  	label("Level variable for equation 3")
  CHECKBOX ck_factor_eq_3	c3	@	c3wd	.,		///
  	onclickon(script main_factor_eq_3_show)				///
  	onclickoff(program main_factor_eq_3_hide)
  VARNAME  vn_factor_eq_3	c4	@	c4fwd	.,		///
  	label("Factor variable for equation 3")
  VARLIST  vl_independent_3	c4	@	c4wd	.,		///
  	label("Independent variables for equation 3")
  COMBOBOX cb_cov_structure_3	c5	@	c5wd	.,		///
  	dropdownlist contents(main_covariance_list) 			///
  	option(covariance)
  COMBOBOX cb_fcov_structure_3	c5	@	c5wd	.,		///
  	dropdownlist contents(main_covariance_2_list) 			///
  	option(covariance)
  CHECKBOX ck_noconstant_3	c6	@	c6wd	., 		///
  	option(noconstant)

//Equation_4
  CHECKBOX ck_equation_4	c1	_ms	c1wd	.,		///
  	label("EQ 4")							///
  	onclickon(program main_equation_4_on)				///
  	onclickoff(script main_equation_4_off)
  VARNAME  vn_level_4		c2	@	c2wd	.,		///
  	label("Level variable for equation 4")
  CHECKBOX ck_factor_eq_4	c3	@	c3wd	.,		///
  	onclickon(script main_factor_eq_4_show)				///
  	onclickoff(program main_factor_eq_4_hide)
  VARNAME  vn_factor_eq_4	c4	@	c4fwd	.,		///
  	label("Factor variable for equation 4")
  VARLIST  vl_independent_4	c4	@	c4wd	.,		///
  	label("Independent variables for equation 4")
  COMBOBOX cb_cov_structure_4	c5	@	c5wd	.,		///
  	dropdownlist contents(main_covariance_list) 			///
  	option(covariance)
  COMBOBOX cb_fcov_structure_4	c5	@	c5wd	.,		///
  	dropdownlist contents(main_covariance_2_list) 			///
  	option(covariance)
  CHECKBOX ck_noconstant_4	c6	@	c6wd	.,		///
  	option(noconstant)

//Equation_5
  CHECKBOX ck_equation_5	c1	_ms	c1wd	.,		///
  	label("EQ 5")							///
  	onclickon(program main_equation_5_on)				///
  	onclickoff(script main_equation_5_off)
  VARNAME  vn_level_5		c2	@	c2wd	.,		///
  	label("Level variable for equation 5")
  CHECKBOX ck_factor_eq_5	c3	@	c3wd	.,		///
  	onclickon(script main_factor_eq_5_show)				///
  	onclickoff(program main_factor_eq_5_hide)
  VARNAME  vn_factor_eq_5	c4	@	c4fwd	.,		///
  	label("Factor variable for equation 5")
  VARLIST  vl_independent_5	c4	@	c4wd	.,		///
  	label("Independent variables for equation 5")
  COMBOBOX cb_cov_structure_5	c5	@	c5wd	.,		///
  	dropdownlist contents(main_covariance_list)			///
  	option(covariance)
  COMBOBOX cb_fcov_structure_5	c5	@	c5wd	.,		///
  	dropdownlist contents(main_covariance_2_list)			///
  	option(covariance)
  CHECKBOX ck_noconstant_5	c6	@	c6wd	.,		///
  	option(noconstant)

//Equation_6
  CHECKBOX ck_equation_6	c1	_ms	c1wd	.,		///
  	label("EQ 6")							///
  	onclickon(program main_equation_6_on)				///
  	onclickoff(script main_equation_6_off)
  VARNAME  vn_level_6		c2	@	c2wd	.,		///
  	label("Level variable for equation 6")
  CHECKBOX ck_factor_eq_6	c3	@	c3wd	.,		///
  	onclickon(script main_factor_eq_6_show)				///
  	onclickoff(program main_factor_eq_6_hide)
  VARNAME  vn_factor_eq_6	c4	@	c4fwd	.,		///
  	label("Factor variable for equation 6")
  VARLIST  vl_independent_6	c4	@	c4wd	.,		///
  	label("Independent variables for equation 6")
  COMBOBOX cb_cov_structure_6	c5	@	c5wd	.,		///
  	dropdownlist contents(main_covariance_list)			///
  	option(covariance)
  COMBOBOX cb_fcov_structure_6	c5	@	c5wd	.,		///
  	dropdownlist contents(main_covariance_2_list)			///
  	option(covariance)
  CHECKBOX ck_noconstant_6	c6	@	c6wd	.,		///
  	option(noconstant)

//Equation_7
  CHECKBOX ck_equation_7	c1	_ms	c1wd	.,		///
  	label("EQ 7")							///
  	onclickon(program main_equation_7_on)				///
  	onclickoff(script main_equation_7_off)
  VARNAME  vn_level_7		c2	@	c2wd	.,		///
  	label("Level variable for equation 7")
  CHECKBOX ck_factor_eq_7	c3	@	c3wd	.,		///
  	onclickon(script main_factor_eq_7_show)				///
  	onclickoff(program main_factor_eq_7_hide)
  VARNAME  vn_factor_eq_7	c4	@	c4fwd	.,		///
  	label("Factor variable for equation 7")
  VARLIST  vl_independent_7	c4	@	c4wd	.,		///
  	label("Independent variables for equation 7")
  COMBOBOX cb_cov_structure_7	c5	@	c5wd	.,		///
  	dropdownlist contents(main_covariance_list)			///
  	option(covariance)
  COMBOBOX cb_fcov_structure_7	c5	@	c5wd	.,		///
  	dropdownlist contents(main_covariance_2_list)			///
  	option(covariance)
  CHECKBOX ck_noconstant_7	c6	@	c6wd	.,		///
  	option(noconstant)

//Equation_8
  CHECKBOX ck_equation_8	c1	_ms	c1wd	.,		///
  	label("EQ 8")							///
  	onclickon(program main_equation_8_on)				///
  	onclickoff(script main_equation_8_off)
  VARNAME  vn_level_8		c2	@	c2wd	.,		///
  	label("Level variable for equation 8")
  CHECKBOX ck_factor_eq_8	c3	@	c3wd	.,		///
  	onclickon(script main_factor_eq_8_show)				///
  	onclickoff(program main_factor_eq_8_hide)
  VARNAME  vn_factor_eq_8	c4	@	c4fwd	.,		///
  	label("Factor variable for equation 8")
  VARLIST  vl_independent_8	c4	@	c4wd	.,		///
  	label("Independent variables for equation 8")
  COMBOBOX cb_cov_structure_8	c5	@	c5wd	.,		///
  	dropdownlist contents(main_covariance_list)			///
  	option(covariance)
  COMBOBOX cb_fcov_structure_8	c5	@	c5wd	.,		///
  	dropdownlist contents(main_covariance_2_list)			///
  	option(covariance)
  CHECKBOX ck_noconstant_8	c6	@	c6wd	.,		///
  	option(noconstant)

//Equation_9
  CHECKBOX ck_equation_9	c1	_ms	c1wd	.,		///
  	label("EQ 9")							///
  	onclickon(program main_equation_9_on)				///
  	onclickoff(script main_equation_9_off)
  VARNAME  vn_level_9		c2	@	c2wd	.,		///
  	label("Level variable for equation 9")
  CHECKBOX ck_factor_eq_9	c3	@	c3wd	.,		///
  	onclickon(script main_factor_eq_9_show)				///
  	onclickoff(program main_factor_eq_9_hide)
  VARNAME  vn_factor_eq_9	c4	@	c4fwd	.,		///
  	label("Factor variable for equation 9")
  VARLIST  vl_independent_9	c4	@	c4wd	.,		///
  	label("Independent variables for equation 9")
  COMBOBOX cb_cov_structure_9	c5	@	c5wd	.,		///
  	dropdownlist contents(main_covariance_list)			///
  	option(covariance)
  COMBOBOX cb_fcov_structure_9	c5	@	c5wd	.,		///
  	dropdownlist contents(main_covariance_2_list)			///
  	option(covariance)
  CHECKBOX ck_noconstant_9	c6	@	c6wd	.,		///
  	option(noconstant)

//Equation_10
  CHECKBOX ck_equation_10	c1	_ms	c1wd	.,		///
  	label("EQ 10")							///
  	onclickon(program main_equation_10_on)				///
  	onclickoff(script main_equation_10_off)
  VARNAME  vn_level_10		c2	@	c2wd	.,		///
  	label("Level variable for equation 10")
  CHECKBOX ck_factor_eq_10	c3	@	c3wd	.,		///
  	onclickon(script main_factor_eq_10_show)			///
  	onclickoff(program main_factor_eq_10_hide)
  VARNAME  vn_factor_eq_10	c4	@	c4fwd	.,		///
  	label("Factor variable for equation 10")
  VARLIST  vl_independent_10	c4	@	c4wd	.,		///
  	label("Independent variables for equation 10")
  COMBOBOX cb_cov_structure_10	c5	@	c5wd	.,		///
  	dropdownlist contents(main_covariance_list)			///
  	option(covariance)
  COMBOBOX cb_fcov_structure_10	c5	@	c5wd	.,		///
  	dropdownlist contents(main_covariance_2_list)			///
  	option(covariance)
  CHECKBOX ck_noconstant_10	c6	@	c6wd	.,		///
  	option(noconstant)
END

LIST main_covariance_list
BEGIN
	independent
	exchangeable
	identity
	unstructured
END

LIST main_covariance_2_list
BEGIN
	identity
	exchangeable
END

/* equation_1 programming */
PROGRAM main_equation_1_on
BEGIN
	call main.vn_level_1.enable
	call main.ck_factor_eq_1.enable
	call main.vn_factor_eq_1.enable
	call main.vl_independent_1.enable
	call main.cb_cov_structure_1.enable
	call main.cb_fcov_structure_1.enable
	if ! main.ck_factor_eq_1 {
		call main.ck_noconstant_1.enable
	}
END
SCRIPT main_equation_1_off
BEGIN
	main.vn_level_1.disable
	main.ck_factor_eq_1.disable
	main.vn_factor_eq_1.disable
	main.vl_independent_1.disable
	main.cb_cov_structure_1.disable
	main.cb_fcov_structure_1.disable
	main.ck_noconstant_1.disable
END
SCRIPT main_factor_eq_1_show
BEGIN
	main.vn_factor_eq_1.show
	main.cb_fcov_structure_1.show
	main.vl_independent_1.hide
	main.cb_cov_structure_1.hide
	main.ck_noconstant_1.disable
END
PROGRAM main_factor_eq_1_hide
BEGIN
	call main.vn_factor_eq_1.hide
	call main.cb_fcov_structure_1.hide
	call main.vl_independent_1.show
	call main.cb_cov_structure_1.show
	if main.ck_equation_1 {
		call main.ck_noconstant_1.enable