fracpoly.dlg

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

		call gaction main.vn_xvar6.hide
		call gaction main.ed_pows6.hide
	}
	if !H(main.vn_xvar7) {
		call gaction main.vn_xvar7.hide
		call gaction main.ed_pows7.hide
	}
	if !H(main.vn_xvar8) {
		call gaction main.vn_xvar8.hide
		call gaction main.ed_pows8.hide
	}
	if !H(main.vn_xvar9) {
		call gaction main.vn_xvar9.hide
		call gaction main.ed_pows9.hide
	}
	if !H(main.vn_xvar10) {
		call gaction main.vn_xvar10.hide
		call gaction main.ed_pows10.hide
	}

END

SCRIPT xvar1
BEGIN
	program hide_allx
	main.tx_xvar.setlabel "Independent var. 1:"
	main.vn_xvar1.show
	main.tx_pows.setlabel "List of powers for independent variable 1:"
	main.ed_pows1.show
END

SCRIPT xvar2
BEGIN
	program hide_allx
	main.tx_xvar.setlabel "Independent var. 2:"
	main.vn_xvar2.show
	main.tx_pows.setlabel "List of powers for independent variable 2:"
	main.ed_pows2.show
END

SCRIPT xvar3
BEGIN
	program hide_allx
	main.tx_xvar.setlabel "Independent var. 3:"
	main.vn_xvar3.show
	main.tx_pows.setlabel "List of powers for independent variable 3:"
	main.ed_pows3.show
END

SCRIPT xvar4
BEGIN
	program hide_allx
	main.tx_xvar.setlabel "Independent var. 4:"
	main.vn_xvar4.show
	main.tx_pows.setlabel "List of powers for independent variable 4:"
	main.ed_pows4.show
END

SCRIPT xvar5
BEGIN
	program hide_allx
	main.tx_xvar.setlabel "Independent var. 5:"
	main.vn_xvar5.show
	main.tx_pows.setlabel "List of powers for independent variable 5:"
	main.ed_pows5.show
END

SCRIPT xvar6
BEGIN
	program hide_allx
	main.tx_xvar.setlabel "Independent var. 6:"
	main.vn_xvar6.show
	main.tx_pows.setlabel "List of powers for independent variable 6:"
	main.ed_pows6.show
END

SCRIPT xvar7
BEGIN
	program hide_allx
	main.tx_xvar.setlabel "Independent var. 7:"
	main.vn_xvar7.show
	main.tx_pows.setlabel "List of powers for independent variable 7:"
	main.ed_pows7.show
END

SCRIPT xvar8
BEGIN
	program hide_allx
	main.tx_xvar.setlabel "Independent var. 8:"
	main.vn_xvar8.show
	main.tx_pows.setlabel "List of powers for independent variable 8:"
	main.ed_pows8.show
END

SCRIPT xvar9
BEGIN
	program hide_allx
	main.tx_xvar.setlabel "Independent var. 9:"
	main.vn_xvar9.show
	main.tx_pows.setlabel "List of powers for independent variable 9:"
	main.ed_pows9.show
END

SCRIPT xvar10
BEGIN
	program hide_allx
	main.tx_xvar.setlabel "Independent var. 10:"
	main.vn_xvar10.show
	main.tx_pows.setlabel "List of powers for independent variable 10:"
	main.ed_pows10.show
END

DIALOG model2, tabtitle("Model 2")
BEGIN
  CHECKBOX ck_noscal _lft      _top      _iwd      .,			/*
	*/ label("Suppress scaling of first independent variable")	/*
		*/ option("noscaling")					/*
		*/
  CHECKBOX ck_nocons @         _ms       @         .,			/*
		*/ label("Suppress constant term")			/*
		*/ option("noconstant")					/*
		*/

  TEXT     tx_powers _lft      _ls       _iwd      .,			/*
	*/ label("List of fractional polynomial powers to choose from: (0 means log)")/*
		*/
  EDIT     ed_powers @         _ss       @         .,			/*
	*/ label("List of fractional polynomial powers to choose from")	/*
		*/ option("powers")					/*
		*/ default(-2, -1, -0.5, 0, 0.5, 1, 2, 3)
		
  GROUPBOX gb_adv    @         _xls      @         _ht9h,		/*
  		*/ label("Advanced options")
  TEXT     tx_adjust _ilft     _ss       _ibwd     .,			/*
*/ label("Specification of adjustment for the indep. variables: (see help for details)") /*
		*/
  EDIT     ed_adjust @         _ss       @         .,			/*
*/ label("Specification of adjustment for the independent variables")	/*
		*/ option("adjust")					/*
		*/

  TEXT     tx_regopt @         _ls       @         .,			/*
	*/ label("Other options accepted by chosen regression command:")/*
		*/
  EDIT     ed_regopt @         _ss       @         .,			/*
	*/ label("Other options accepted by chosen regression command")/*
		*/  		
END

INCLUDE ifin
INCLUDE weights_fpai

DIALOG rpt, tabtitle("Reporting")
BEGIN
  CHECKBOX ck_log    _lft      _top      _cwd1     .,			/*
		*/ label("Display iteration log")			/*
		*/ option("log")					/*
		*/
  GROUPBOX gb_tests  _lft      _ls       _iwd      _ht2,		/*
  		*/ label("Additional test statistics")  		
  CHECKBOX ck_compar _ilft     _ss       _cwd2     .,			/*
		*/ label("Compare models by degree")			/*
		*/ option("compare")					/*
		*/
END

PROGRAM command
BEGIN
	allowxi
	put "fracpoly "
	option radio(main /*
	*/ rb_clogit rb_glm rb_logist rb_logit rb_pois /*
	*/ rb_probit rb_reg rb_stcox rb_streg)
	if main.rb_clogit | main.rb_glm | main.rb_logist | ///
	main.rb_logit | main.rb_pois | main.rb_probit | main.rb_reg {
		varlist main.vn_dv
	}
	if !main.vl_iv & !main.vn_xvar1 {
		stopbox stop "Independent variable 1 must be specified"
	}
	if main.ck_iv {
		varlist main.vl_iv
	}
	if main.vn_xvar1 {
		if !main.ed_pows1 {
		  stopbox stop `""List of powers for independent variable 1""'/*
		  */ `"must be filled in"'
		}
		put /hidden main.vn_xvar1
		put " "
		put /hidden main.ed_pows1
		put " "
	}
	if main.vn_xvar2 {
		if !main.ed_pows2 {
		  stopbox stop `""List of powers for independent variable 2""'/*
		  */ `"must be filled in"'
		}
		put /hidden main.vn_xvar2
		put " "
		put /hidden main.ed_pows2
		put " "
	}
	if main.vn_xvar3 {
		if !main.ed_pows3 {
		  stopbox stop `""List of powers for independent variable 3""'/*
		  */ `"must be filled in"'
		}
		put /hidden main.vn_xvar3
		put " "
		put /hidden main.ed_pows3
		put " "
	}
	if main.vn_xvar4 {
		if !main.ed_pows4 {
		  stopbox stop `""List of powers for independent variable 4""'/*
		  */ `"must be filled in"'
		}
		put /hidden main.vn_xvar4
		put " "
		put /hidden main.ed_pows4
		put " "
	}
	if main.vn_xvar5 {
		if !main.ed_pows5 {
		  stopbox stop `""List of powers for independent variable 5""'/*
		  */ `"must be filled in"'
		}
		put /hidden main.vn_xvar5
		put " "
		put /hidden main.ed_pows5
		put " "
	}
	if main.vn_xvar6 {
		if !main.ed_pows6 {
		  stopbox stop `""List of powers for independent variable 6""'/*
		  */ `"must be filled in"'
		}
		put /hidden main.vn_xvar6
		put " "
		put /hidden main.ed_pows6
		put " "
	}
	if main.vn_xvar7 {
		if !main.ed_pows7 {
		  stopbox stop `""List of powers for independent variable 7""'/*
		  */ `"must be filled in"'
		}
		put /hidden main.vn_xvar7
		put " "
		put /hidden main.ed_pows7
		put " "
	}
	if main.vn_xvar8 {
		if !main.ed_pows8 {
		  stopbox stop `""List of powers for independent variable 8""'/*
		  */ `"must be filled in"'
		}
		put /hidden main.vn_xvar8
		put " "
		put /hidden main.ed_pows8
		put " "
	}
	if main.vn_xvar9 {
		if !main.ed_pows9 {
		  stopbox stop `""List of powers for independent variable 9""'/*
		  */ `"must be filled in"'
		}
		put /hidden main.vn_xvar9
		put " "
		put /hidden main.ed_pows9
		put " "
	}
	if main.vn_xvar10 {
		if !main.ed_pows10 {
		  stopbox stop `""List of powers for independent variable 10""'/*
		  */ `"must be filled in"'
		}
		put /hidden main.vn_xvar10
		put " "
		put /hidden main.ed_pows10
		put " "
	}
	INCLUDE _weights_pr
	INCLUDE _ifin_pr
	beginoptions
		optionarg main.lb_dist		
		optionarg /hidedefault main.sp_deg		
		option model2.ck_noscal
		option model2.ck_nocons		
		optionarg /hidedefault model2.ed_powers
		optionarg model2.ed_adjust
		option rpt.ck_log
		option rpt.ck_compar
		put model2.ed_regopt
	endoptions
END