fracpoly.dlg

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

/*
  fracpoly

*! VERSION 1.0.2  26nov2003

*/

VERSION 8.0

INCLUDE _std_large
INCLUDE _ht330
INCLUDE header
HELP hlp1, view("help fracpoly")
RESET res1

DIALOG main, label("fracpoly - Fractional polynomial regression")	/*
		*/ tabtitle("Model")
BEGIN
  TEXT     tx_dv     _lft      _top      _vnwd     .,			/*
		*/ label("Dependent variable:")				/*
		*/
  VARNAME  vn_dv     @         _ss       @         .,			/*
		*/ label("Dependent variable")				/*
		*/

  CHECKBOX ck_iv     _vlx      _top      _vlwd     .,			/*
		*/ label("Independent variables:  (unknown powers)")	/*
		*/ onclickon("script indep_degrees_on")			/*
		*/ onclickoff("script indep_degrees_off")		/*
		*/
  VARLIST  vl_iv     @         _ss       @         .,			/*
		*/ label("Independent variables")			/*
		*/ allowcat						/*
		*/
  SPINNER  sp_deg    @         _ms       _spwd     .,			/*
		*/ label("Degree of fractional polynomial to fit")	/*
		*/ min(1)						/*
		*/ max(100)						/*
		*/ default(2)						/*
		*/ option("degree")					/*
		*/
  TEXT     tx_deg    _spsep    @         _spr      .,			/*
		*/ label("Degree of fractional polynomial to fit")	/*
		*/

  TEXT     tx_xvari  _lft      _ls       _comb3_2  .,			/*
	*/ label("Independent variables with user-supplied powers:")	/*
		*/
  DEFINE y @y
  LISTBOX  lb_xvari  _lft      _ss       _cwd1     _ht3,		/*
	*/ label("Independent variables with user-supplied powers")	/*
		*/ contents(xvar_con)					/*
		*/ onselchangelist(xvar_sel)				/*
		*/
  TEXT     tx_dist   _lft3_3   y         _cwd3_1   .,			/*
  		*/label("Distribution: (for streg)")
  LISTBOX  lb_dist   @         _ss       @        _ht3,			/*
  		*/label("Distribution") contents(distributions) 	/*
  		*/values(distributionsv) option(distribution)

  TEXT     tx_xvar   _lft      _xxxxls    _vnwd     .,			/*
		*/ label("Independent var. 1:")				/*
		*/
  DEFINE y @y
  VARNAME  vn_xvar1  _lft      _ss       _vnwd     .,			/*
		*/ label("Independent var. 1")				/*
		*/
  TEXT     tx_pows   _vlx      y         _vlwd     .,			/*
		*/ label("List of powers for independent variable 1:")	/*
		*/
  EDIT     ed_pows1  _vlx      _ss       _vlwd     .,			/*
		*/ label("List of powers for independent variable 1")	/*
		*/

  VARNAME  vn_xvar2  _lft      @         _vnwd     .,			/*
		*/ label("Independent var. 2")				/*
		*/
  EDIT     ed_pows2  _vlx      @         _vlwd     .,			/*
		*/ label("List of powers for independent variable 2")	/*
		*/

  VARNAME  vn_xvar3  _lft      @         _vnwd     .,			/*
		*/ label("Independent var. 3")				/*
		*/
  EDIT     ed_pows3  _vlx      @         _vlwd     .,			/*
		*/ label("List of powers for independent variable 3")	/*
		*/

  VARNAME  vn_xvar4  _lft      @         _vnwd     .,			/*
		*/ label("Independent var. 4")				/*
		*/
  EDIT     ed_pows4  _vlx      @         _vlwd     .,			/*
		*/ label("List of powers for independent variable 4")	/*
		*/

  VARNAME  vn_xvar5  _lft      @         _vnwd     .,			/*
		*/ label("Independent var. 5")				/*
		*/
  EDIT     ed_pows5  _vlx      @         _vlwd     .,			/*
		*/ label("List of powers for independent variable 5")	/*
		*/

  VARNAME  vn_xvar6  _lft      @         _vnwd     .,			/*
		*/ label("Independent var. 6")				/*
		*/
  EDIT     ed_pows6  _vlx      @         _vlwd     .,			/*
		*/ label("List of powers for independent variable 6")	/*
		*/

  VARNAME  vn_xvar7  _lft      @         _vnwd     .,			/*
		*/ label("Independent var. 7")				/*
		*/
  EDIT     ed_pows7  _vlx      @         _vlwd     .,			/*
		*/ label("List of powers for independent variable 7")	/*
		*/

  VARNAME  vn_xvar8  _lft      @         _vnwd     .,			/*
		*/ label("Independent var. 8")				/*
		*/
  EDIT     ed_pows8  _vlx      @         _vlwd     .,			/*
		*/ label("List of powers for independent variable 8")	/*
		*/

  VARNAME  vn_xvar9  _lft      @         _vnwd     .,			/*
		*/ label("Independent var. 9")				/*
		*/
  EDIT     ed_pows9  _vlx      @         _vlwd     .,			/*
		*/ label("List of powers for independent variable 9")	/*
		*/

  VARNAME  vn_xvar10 _lft      @         _vnwd     .,			/*
		*/ label("Independent var. 10")				/*
		*/
  EDIT     ed_pows10 _vlx      @         _vlwd     .,			/*
		*/ label("List of powers for independent variable 10")	/*
		*/

  GROUPBOX gb_reg    _lft      _ls       _iwd      _ht6h,		/*
		*/ label("Available regression commands") 		/*
		*/
  TEXT     tx_reg    _ilft     _ss       _ibwd     .,			/*
		*/label("Weights allowed are the same as those supported by the regression command.")
  RADIO    rb_clogit _ilft     _ms       _cwd5_2   .,			/*
		*/ label("clogit")					/*
		*/ first						/*
		*/ onclickon(script streg_off_dv)			/*
		*/ option("clogit")					/*
		*/
  RADIO    rb_glm    _ilft5_2  @         @         .,			/*
		*/ label("glm")						/*
		*/ onclickon(script streg_off_dv)			/*
		*/ option("glm")					/*
		*/
  RADIO    rb_logist _ilft5_3  @         @         .,			/*
		*/ label("logistic")					/*
		*/ onclickon(script streg_off_dv)			/*
		*/ option("logistic")					/*
		*/
  RADIO    rb_logit  _ilft5_4  @         @         .,			/*
		*/ label("logit")					/*
		*/ onclickon(script streg_off_dv)			/*
		*/ option("logit")					/*
		*/
  RADIO    rb_pois   _ilft5_5  @         @         .,			/*
		*/ label("poisson")					/*
		*/ onclickon(script streg_off_dv)			/*
		*/ option("poisson")					/*
		*/
  RADIO    rb_probit _ilft     _ss       @         .,			/*
		*/ label("probit")					/*
		*/ onclickon(script streg_off_dv)			/*
		*/ option("probit")					/*
		*/
  RADIO    rb_reg    _ilft5_2  @         @         .,			/*
		*/ label("regress")					/*
		*/ option("regress")					/*
		*/ onclickon(script streg_off_dv) 
  RADIO    rb_stcox  _ilft5_3  @         @         .,			/*
		*/ label("stcox")					/*
		*/ option("stcox")					/*
		*/ onclickon(script streg_off_nodv)			/*
		*/
  RADIO    rb_streg  _ilft5_4  @         @         .,			/*
		*/ label("streg")					/*
		*/ option("streg")					/*
		*/ onclickon(script streg_on)				/*
		*/last
END

LIST distributions
BEGIN
	exponential
	Weibull
	Gompertz
	lognormal
	loglogistic
	gamma
END

LIST distributionsv
BEGIN
	exponential
	weibull
	gompertz
	lognormal
	llogistic
	gamma
END

SCRIPT streg_on
BEGIN
	main.vn_dv.disable
	main.tx_dist.enable
	main.lb_dist.enable
	model2.ck_nocons.enable
END

SCRIPT streg_off_nodv
BEGIN
	main.vn_dv.disable
	main.tx_dist.disable
	main.lb_dist.disable
	model2.ck_nocons.disable
END

SCRIPT streg_off_dv
BEGIN
	main.vn_dv.enable 
	main.tx_dist.disable
	main.lb_dist.disable
	model2.ck_nocons.enable
END

SCRIPT indep_degrees_on
BEGIN
	main.vl_iv.enable
	main.sp_deg.enable
	main.tx_deg.enable
END

SCRIPT indep_degrees_off
BEGIN
	main.vl_iv.disable
	main.sp_deg.disable
	main.tx_deg.disable
END

LIST xvar_con
BEGIN
	Independent variable 1
	Independent variable 2
	Independent variable 3
	Independent variable 4
	Independent variable 5
	Independent variable 6
	Independent variable 7
	Independent variable 8
	Independent variable 9
	Independent variable 10
END

LIST xvar_sel
BEGIN
	script xvar1
	script xvar2
	script xvar3
	script xvar4
	script xvar5
	script xvar6
	script xvar7
	script xvar8
	script xvar9
	script xvar10
END

PROGRAM hide_allx
BEGIN
	if !H(main.vn_xvar1) {
		call gaction main.vn_xvar1.hide
		call gaction main.ed_pows1.hide
	}
	if !H(main.vn_xvar2) {
		call gaction main.vn_xvar2.hide
		call gaction main.ed_pows2.hide
	}
	if !H(main.vn_xvar3) {
		call gaction main.vn_xvar3.hide
		call gaction main.ed_pows3.hide
	}
	if !H(main.vn_xvar4) {
		call gaction main.vn_xvar4.hide
		call gaction main.ed_pows4.hide
	}
	if !H(main.vn_xvar5) {
		call gaction main.vn_xvar5.hide
		call gaction main.ed_pows5.hide
	}
	if !H(main.vn_xvar6) {