factor_estat.dlg

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

/*
	factor_estat

*!  VERSION 1.0.2  31mar2005

*/

VERSION 9.0

INCLUDE _std_large
INCLUDE header

HELP hlp1, view("help factor postestimation")
RESET res1

DIALOG main, label("estat - Postestimation tools for factor and factormat") tabtitle("Main")
BEGIN
  TEXT     tx_subcmd		_lft	_top	_cwd1	.,			///
  	label("Reports and statistics: (subcommand)")
  LISTBOX  lb_subcmd		@	_ss	_iwd	70,			///
  	contents(main_subcommand_contents)					///
  	values(main_subcommand_values)						///
  	onselchangelist(main_subcommand_scripts)

  DEFINE holdy 110

  // anti options
  GROUPBOX gb_anti		_lft	holdy	_iwd	_ht6,			///
  	label("Correlation and covariance matrices")
  RADIO    rb_corr_cov		_ilft	_ss	_ibwd	.,			///
  	first label("Report both the correlation and covariance matrix")
  RADIO    rb_nocorr		@	_ss	@	.,			///
  	label("Report only the anti-image covariance matrix")			///
  	option(nocorr)
  RADIO    rb_nocov		@	_ss	@	.,			///
	last option(nocov)							///
	label("Report only the anti-image correlation matrix")
  CHECKBOX ck_anti_format	_lft	_xls	_iwd	.,			///
  	onclickon(script anti_format_on)					///
  	onclickoff(script anti_format_off)					///
	label("Specify the display format:")
  EDIT     en_anti_format      _indent2	_ss	_en7wd	.,			///
	option(format) label("Display format") default(%8.4f)
  BUTTON   bn_anti_format      _cken7sep @      _cken7r2 .,			///
	label("Help format...")	onpush(view help format##|_new)

  // common options
  CHECKBOX ck_c_norotated	_lft	holdy	_iwd	.,			///
	option(norotated)							///
	label("Report results based on the unrotated original factor solution")
  CHECKBOX ck_common_format	@	_ms	@	.,			///
  	onclickon(script common_format_on)					///
  	onclickoff(script common_format_off)					///
	label("Specify the display format:")
  EDIT     en_common_format  _indent2	_ss	_en7wd	.,			///
	option(format) label("Display format")
  BUTTON   bn_common_format  _cken7sep	@      _cken7r2	.,			///
	label("Help format...")	onpush(view help format##|_new)

  // factors options
  CHECKBOX ck_factors		_lft	holdy	_iwd	.,			///
  	onclickon(script main_factors_enable)					///
  	onclickoff(script main_factors_disable)					///
  	label("Specify the maximum number of factors to include in summary table:")
  EDIT     en_factors	       _indent2	_ss	_en7wd	.,			///
	option(factors) label("Maximum number of factors")
  TEXT     tx_factors		_en7sep	@	200	.,			///
  	label("Factors")
  CHECKBOX ck_detail		_lft	_ms	_iwd	.,			///
	option(detail)								///
	label("Present the output from each run of factor (or factormat)")

  // kmo options
  CHECKBOX ck_novar		_lft	holdy	_iwd	.,			///
  	label("Display the overall KMO measure only")				///
  	option(novar)
  CHECKBOX ck_kmo_format	@	_ms	@	.,			///
  	onclickon(script kmo_format_on)						///
  	onclickoff(script kmo_format_off)					///
	label("Specify the display format:")
  EDIT     en_kmo_format      _indent2	_ss	_en7wd	.,			///
	option(format) label("Display format")
  BUTTON   bn_kmo_format      _cken7sep	@      _cken7r2	.,			///
	label("Help format...")	onpush(view help format##|_new)

  // residuals options
  CHECKBOX ck_fitted		_lft	holdy	_iwd	.,			///
	option(fitted)								///
	label("Display the fitted correlation matrix based on the retained factors")
  CHECKBOX ck_obs		@	_ms	@	.,			///
  	label("Display the observed correlation matrix")			///
  	option(obs)
  CHECKBOX ck_sresiduals	@	_ms	@	.,			///
	option(sresiduals)							///
	label("Display the matrix of standardized residuals of the correlations")
  CHECKBOX ck_res_format	@	_ms	@	.,			///
  	onclickon(script res_format_on)						///
  	onclickoff(script res_format_off)					///
	label("Specify the display format:")
  EDIT     en_res_format      _indent2	_ss	_en7wd	.,			///
	option(format) label("Display format") default(%9.4f)
  BUTTON   bn_res_format      _cken7sep	@      _cken7r2	.,			///
	label("Help format...")	onpush(view help format##|_new)

  // rotatecompare options
  CHECKBOX ck_rc_format		_lft	holdy	_iwd	.,			///
  	onclickon(script rc_format_on)						///
  	onclickoff(script rc_format_off)					///
	label("Specify the display format:")
  EDIT     en_rc_format      _indent2	_ss	_en7wd	.,			///
	option(format) label("Display format")
  BUTTON   bn_rc_format      _cken7sep	@      _cken7r2	.,			///
	label("Help format...")	onpush(view help format##|_new)

  // smc options
  CHECKBOX ck_smc_format	_lft	holdy	_iwd	.,			///
  	onclickon(script smc_format_on)						///
  	onclickoff(script smc_format_off)					///
	label("Specify the display format:")
  EDIT     en_smc_format      _indent2	_ss	_en7wd	.,			///
	option(format) label("Display format")
  BUTTON   bn_smc_format      _cken7sep	@      _cken7r2	.,			///
	label("Help format...")	onpush(view help format##|_new)

  // structure options
  CHECKBOX ck_norotated		_lft	holdy	_iwd	.,			///
	option(norotated)							///
	label("Report results based on the unrotated original factor solution")
  CHECKBOX ck_structure_format	@	_ms	@	.,			///
  	onclickon(script structure_format_on)					///
  	onclickoff(script structure_format_off)					///
	label("Specify the display format:")
  EDIT     en_structure_format  _indent2 _ss	_en7wd	.,			///
	option(format) label("Display format")
  BUTTON   bn_structure_format  _cken7sep @	_cken7r2 .,			///
	label("Help format...")	onpush(view help format##|_new)

  // Summarize options
  CHECKBOX ck_labels		_lft	holdy	_iwd	.,			///
  	label("Display variable labels")					///
  	option(labels)
  CHECKBOX ck_noheader		@	_ms	@	.,			///
	option(noheader)							///
	label("Suppress the header")
  CHECKBOX ck_noweights		@	_ms	@	.,			///
	option(noweights)							///
	label("Ignore weights")
END

LIST main_subcommand_contents
BEGIN
	"Anti-image correlation and covariance matrices (anti)"
	"Correlation matrix of the common factors (common)"
	"Model selection criteria for different numbers of factors (factors)"
	"Kaiser-Meyer-Olkin measure of sampling adequacy (kmo)"
	"Matrix of correlation or covariance residuals (residuals)"
	"Compare rotated and unrotated components (rotatecompare)"
	"Squared multiple correlations between each variable & all others (smc)"
	"Correlations between variables and common factors (structure)"
 	"Summarize estimation sample (summarize - for factor only)"
END

LIST main_subcommand_values
BEGIN
	anti
	common
	factors
	kmo
	residuals
	rotatecompare
	smc
	structure
	summarize
END

LIST main_subcommand_scripts
BEGIN
	script sel_anti
	script sel_common
	script sel_factors
	script sel_kmo
	script sel_residuals
	script sel_rotatecompare
	script sel_smc
	script sel_structure
	script sel_summarize
END

SCRIPT sel_anti
BEGIN
	script anti_on
	script common_off
	script factors_off
	script kmo_off
	script structure_off
	script residuals_off
	script rc_off
	script smc_off
	script main_summ_off
END

SCRIPT sel_common
BEGIN
	script anti_off
	script common_on
	script factors_off
	script kmo_off
	script structure_off
	script residuals_off
	script rc_off
	script smc_off
	script main_summ_off
END

SCRIPT sel_factors
BEGIN
	script anti_off
	script common_off
	script factors_on
	script kmo_off
	script structure_off
	script residuals_off
	script rc_off
	script smc_off
	script main_summ_off
END

SCRIPT sel_kmo
BEGIN
	script anti_off
	script common_off
	script factors_off
	script kmo_on
	script structure_off
	script residuals_off
	script rc_off
	script smc_off
	script main_summ_off
END

SCRIPT sel_structure
BEGIN
	script anti_off
	script common_off
	script factors_off
	script kmo_off
	script structure_on
	script residuals_off
	script rc_off
	script smc_off
	script main_summ_off
END

SCRIPT sel_residuals
BEGIN
	script anti_off
	script common_off
	script factors_off
	script kmo_off
	script structure_off
	script residuals_on
	script rc_off
	script smc_off
	script main_summ_off
END

SCRIPT sel_rotatecompare
BEGIN
	script anti_off
	script common_off
	script factors_off
	script kmo_off
	script structure_off
	script residuals_off
	script rc_on
	script smc_off
	script main_summ_off
END

SCRIPT sel_smc
BEGIN
	script anti_off
	script common_off
	script factors_off
	script kmo_off
	script structure_off
	script residuals_off
	script rc_off
	script smc_on
	script main_summ_off
END

SCRIPT sel_summarize
BEGIN
	script anti_off
	script common_off
	script factors_off
	script kmo_off
	script structure_off
	script residuals_off
	script rc_off
	script smc_off
	script main_summ_on
END

SCRIPT anti_on
BEGIN
	main.gb_anti.show
	main.rb_corr_cov.show
	main.rb_nocorr.show
	main.rb_nocov.show
	main.ck_anti_format.show
	main.en_anti_format.show
	main.bn_anti_format.show
END

SCRIPT anti_off
BEGIN
	main.gb_anti.hide
	main.rb_corr_cov.hide
	main.rb_nocorr.hide
	main.rb_nocov.hide
	main.ck_anti_format.hide
	main.en_anti_format.hide
	main.bn_anti_format.hide
END

SCRIPT common_on
BEGIN
	main.ck_c_norotated.show
	main.ck_common_format.show
	main.en_common_format.show
	main.bn_common_format.show
END

SCRIPT common_off
BEGIN
	main.ck_c_norotated.hide
	main.ck_common_format.hide
	main.en_common_format.hide
	main.bn_common_format.hide
END

SCRIPT factors_on
BEGIN
	main.ck_factors.show
	main.en_factors.show
	main.tx_factors.show
	main.ck_detail.show
END

SCRIPT factors_off
BEGIN
	main.ck_factors.hide
	main.en_factors.hide
	main.tx_factors.hide
	main.ck_detail.hide
END

SCRIPT main_factors_enable
BEGIN
	main.en_factors.enable
	main.tx_factors.enable
END

SCRIPT main_factors_disable
BEGIN
	main.en_factors.disable
	main.tx_factors.disable
END

SCRIPT kmo_on
BEGIN
	main.ck_novar.show
	main.ck_kmo_format.show
	main.en_kmo_format.show
	main.bn_kmo_format.show
END

SCRIPT kmo_off
BEGIN
	main.ck_novar.hide
	main.ck_kmo_format.hide
	main.en_kmo_format.hide
	main.bn_kmo_format.hide
END

SCRIPT structure_on
BEGIN
	main.ck_norotated.show
	main.ck_structure_format.show
	main.en_structure_format.show
	main.bn_structure_format.show
END

SCRIPT structure_off
BEGIN
	main.ck_norotated.hide
	main.ck_structure_format.hide
	main.en_structure_format.hide
	main.bn_structure_format.hide
END

SCRIPT residuals_on
BEGIN
	main.ck_obs.show
	main.ck_fitted.show
	main.ck_sresiduals.show
	main.ck_res_format.show
	main.en_res_format.show
	main.bn_res_format.show
END

SCRIPT residuals_off
BEGIN
	main.ck_obs.hide
	main.ck_fitted.hide
	main.ck_sresiduals.hide
	main.ck_res_format.hide
	main.en_res_format.hide
	main.bn_res_format.hide
END

SCRIPT rc_on
BEGIN
	main.ck_rc_format.show
	main.en_rc_format.show
	main.bn_rc_format.show
END

SCRIPT rc_off
BEGIN
	main.ck_rc_format.hide
	main.en_rc_format.hide
	main.bn_rc_format.hide
END

SCRIPT smc_on
BEGIN
	main.ck_smc_format.show
	main.en_smc_format.show
	main.bn_smc_format.show
END

SCRIPT smc_off
BEGIN
	main.ck_smc_format.hide
	main.en_smc_format.hide
	main.bn_smc_format.hide
END

SCRIPT main_summ_on
BEGIN
	main.ck_labels.show
	main.ck_noheader.show
	main.ck_noweights.show
END

SCRIPT main_summ_off
BEGIN
	main.ck_labels.hide
	main.ck_noheader.hide
	main.ck_noweights.hide
END

SCRIPT anti_format_on
BEGIN
	main.en_anti_format.enable
	main.bn_anti_format.enable
END

SCRIPT anti_format_off
BEGIN
	main.en_anti_format.disable
	main.bn_anti_format.disable
END

SCRIPT common_format_on
BEGIN
	main.en_common_format.enable
	main.bn_common_format.enable
END

SCRIPT common_format_off
BEGIN
	main.en_common_format.disable
	main.bn_common_format.disable
END

SCRIPT kmo_format_on
BEGIN
	main.en_kmo_format.enable
	main.bn_kmo_format.enable
END

SCRIPT kmo_format_off
BEGIN
	main.en_kmo_format.disable
	main.bn_kmo_format.disable
END

SCRIPT structure_format_on
BEGIN
	main.en_structure_format.enable
	main.bn_structure_format.enable
END

SCRIPT structure_format_off
BEGIN
	main.en_structure_format.disable
	main.bn_structure_format.disable
END

SCRIPT res_format_on
BEGIN
	main.en_res_format.enable
	main.bn_res_format.enable
END

SCRIPT res_format_off
BEGIN
	main.en_res_format.disable
	main.bn_res_format.disable
END

SCRIPT rc_format_on
BEGIN
	main.en_rc_format.enable
	main.bn_rc_format.enable
END

SCRIPT rc_format_off
BEGIN
	main.en_rc_format.disable
	main.bn_rc_format.disable
END

SCRIPT smc_format_on
BEGIN
	main.en_smc_format.enable
	main.bn_smc_format.enable
END

SCRIPT smc_format_off
BEGIN
	main.en_smc_format.disable
	main.bn_smc_format.disable
END

PROGRAM vl_eq_output
BEGIN
	put main.vl_eq
END

PROGRAM command
BEGIN
	put "estat "
	put main.lb_subcmd
	beginoptions
		// anti options
		option main.rb_nocorr
		option main.rb_nocov
		if main.ck_anti_format {
			require main.en_anti_format
			optionarg main.en_anti_format
		}

  		// common options
		option main.ck_c_norotated
		if main.ck_common_format {
			require main.en_common_format
			optionarg main.en_common_format
		}

  		// factors options
		if main.ck_factors {
			require main.en_factors
			optionarg main.en_factors
		}
		option main.ck_detail

  		// kmo options
		option main.ck_novar
		if main.ck_kmo_format {
			require main.en_kmo_format
			optionarg main.en_kmo_format
		}

		// residuals options
		option main.ck_fitted
		option main.ck_obs
		option main.ck_sresiduals
		if main.ck_res_format {
			require main.en_res_format
			optionarg main.en_res_format
		}

		// rotatecompare options
		if main.ck_rc_format {
			require main.en_rc_format
			optionarg main.en_rc_format
		}

		// smc options
		if main.ck_smc_format {
			require main.en_smc_format
			optionarg main.en_smc_format
		}

  		// structure options
		option main.ck_norotated
		if main.ck_structure_format {
			require main.en_structure_format
			optionarg main.en_structure_format
		}

		// Summarize options
		option main.ck_labels
		option main.ck_noheader
		option main.ck_noweights
	endoptions
END