⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 rotatemat.dlg

📁 是一个经济学管理应用软件 很难找的 但是经济学学生又必须用到
💻 DLG
📖 第 1 页 / 共 2 页
字号:
🔍
12 
/*
	rotatemat

*!  VERSION 1.0.3  05apr2005

*/

VERSION 9.0

INCLUDE _std_large
DEFINE _dlght 335
INCLUDE header

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

DIALOG main, tabtitle("Main") 	///
	label("rotatemat - Orthogonal and oblique rotation of a Stata matrix")
BEGIN
  TEXT     tx_mat		_lft	_top	_cwd1		.,	///
	label("Matrix containing loadings:")
  COMBOBOX cb_mat		@       _ss     _vnwd		.,	///
	label("Matrix name")						///
	dropdown 							///
	contents(matrix)
  BUTTON   bu_matinput   	_lft3_3	_top    _cwd3_1		.,	///
	label("Input Matrix") onpush("view dialog matrix_input")

  GROUPBOX gb_method		_lft	+50	_iwd	190,		///
	label("Rotation method")
  RADIO    rb_ortho		_indent	_ss	_comb3_2	.,	///
  	first								///
	label("Orthogonal rotation")					///
	onclickon("script ortho_on")

  COMBOBOX lb_ortho		40       _ss     _comb3_4	.,	///
	label("Rotation method") dropdownlist				///
	contents(main_ortho_contents)					///
	values(main_ortho_values)					///
	onselchangelist(main_ortho_scripts)

  RADIO    rb_oblique		_ilft	+55	_comb3_2	.,	///
  	last								///
	label("Oblique rotation")					///
	onclickon("script oblique_on")

  COMBOBOX lb_oblique		40       _ss     _comb3_4	.,	///
	label("Rotation method") dropdownlist				///
	contents(main_oblique_contents)					///
	values(main_oblique_values)					///
	onselchangelist(main_oblique_scripts)

// for promax power only
  EDIT     en_propow		_lft3_3	175	_en7wd		.,	///
	numonly default(3)						///
	label("Promax power")
  TEXT     tx_propow		_en7sep	@	80		.,	///
	label("Promax power")

// for oblimin only
  TEXT     tx_oblimin_or	_lft3_3	80	_cwd3_2		.,	///
	label("Use gamma = #")
  EDIT     en_oblimin_or	_lft3_3	_ss	_en7wd		.,	///
	numonly default(0)						///
	label("Oblimin criterion")
  TEXT     tx_obliminnum_or	_en7sep	@	80		.,	///
	label("#")

  TEXT     tx_oblimin_ob	_lft3_3	155	_cwd3_2		.,	///
	label("Use gamma = #")
  EDIT     en_oblimin_ob	_lft3_3	_ss	_en7wd		.,	///
	numonly default(0)						///
	label("Oblimin criterion")
  TEXT     tx_obliminnum_ob	_en7sep	@	80		.,	///
	label("#")

// for cf only
  TEXT     tx_cf_or		_lft3_3	80	_cwd3_2		.,	///
	label("Use kappa = #")
  EDIT     en_cf_or		_lft3_3	_ss	_en7wd		.,	///
	numonly 							///
	label("Kappa value")
  TEXT     tx_cfnum_or		_en7sep	@	80		.,	///
	label("0 <= # <= 1")

  TEXT     tx_cf_ob		_lft3_3	155	_cwd3_2		.,	///
	label("Use kappa = #")
  EDIT     en_cf_ob		_lft3_3	_ss	_en7wd		.,	///
	numonly 							///
	label("Kappa value")
  TEXT     tx_cfnum_ob		_en7sep	@	80		.,	///
	label("0 <= # <= 1")

// for target only
  TEXT     tx_target_or		_lft3_3	80	_cwd3_2		.,	///
	label("Rotate toward matrix (Tg):")
  COMBOBOX cb_target_or		@       _ss     _vnwd		.,	///
	label("Matrix Tg")						///
	dropdown 							///
	contents(matrix)
  TEXT     tx_target_ob		_lft3_3	155	_cwd3_2		.,	///
	label("Rotate toward matrix (Tg):")
  COMBOBOX cb_target_ob		@       _ss     _vnwd		.,	///
	label("Matrix Tg")						///
	dropdown 							///
	contents(matrix)

// for partial only
  TEXT     tx_partial_or	_lft3_3	80	_cwd3_2		.,	///
	label("Rotate toward matrix (Tg):")
  COMBOBOX cb_partial_or	@       _ss     _vnwd		.,	///
	label("Matrix Tg")						///
	dropdown 							///
	contents(matrix)
  TEXT     tx_weighted_or	@	_ms	_cwd3_2		.,	///
	label("Weighted matrix (W):")
  COMBOBOX cb_weighted_or	@       _ss     _vnwd		.,	///
	label("Matrix W")						///
	dropdown 							///
	contents(matrix)

  TEXT     tx_partial_ob	_lft3_3	155	_cwd3_2		.,	///
	label("Rotate toward matrix (Tg):")
  COMBOBOX cb_partial_ob	@       _ss     _vnwd		.,	///
	label("Matrix Tg")						///
	dropdown 							///
	contents(matrix)
  TEXT     tx_weighted_ob	@	_ms	_cwd3_2		.,	///
	label("Weighted matrix (W):")
  COMBOBOX cb_weighted_ob	@       _ss     _vnwd		.,	///
	label("Matrix W")						///
	dropdown 							///
	contents(matrix)

// other options
  GROUPBOX gb_opt		_lft	260	_iwd	_ht2,		///
	label("Option")
  CHECKBOX ck_horst		_ilft	_ss	_ibwd	.,		///
	option(horst)							///
	label("Apply the Horst normalization")
END

SCRIPT POSTINIT
BEGIN
	main.tx_propow.hide
	main.en_propow.hide

	main.tx_oblimin_or.hide
	main.en_oblimin_or.hide
	main.tx_obliminnum_or.hide
	main.tx_oblimin_ob.hide
	main.en_oblimin_ob.hide
	main.tx_obliminnum_ob.hide

	main.tx_cf_or.hide
	main.en_cf_or.hide
	main.tx_cfnum_or.hide
	main.tx_cf_ob.hide
	main.en_cf_ob.hide
	main.tx_cfnum_ob.hide

	main.tx_target_or.hide
	main.cb_target_or.hide
	main.tx_target_ob.hide
	main.cb_target_ob.hide

	main.tx_partial_or.hide
	main.cb_partial_or.hide
	main.tx_weighted_or.hide
	main.cb_weighted_or.hide
	main.tx_partial_ob.hide
	main.cb_partial_ob.hide
	main.tx_weighted_ob.hide
	main.cb_weighted_ob.hide
	script rotate_opt_opts_disable
END

LIST main_ortho_contents
BEGIN
	"Varimax (default)"
	"Varimax via the GPF algorithm"
	"Quartimax"
	"Equamax"
	"Parsimax"
	"Minimum entropy"
	"Comrey's tandem 1 principle"
	"Comrey's tandem 2 principle"
	"Oblimin"
	"Crawford-Ferguson family"
	"Bentler's invariant pattern simplicity"
	"Oblimax"
	"Quartimin"
	"Rotate toward matrix Tg"
	"Rotate toward matrix Tg, weighted by matrix W"
END

LIST main_ortho_values
BEGIN
	""
	vgpf
	quartimax
	equamax
	parsimax
	entropy
	tandem1
	tandem2
	oblimin
	cf
	bentler
	oblimax
	quartimin
	target
	partial
END

LIST main_ortho_scripts
BEGIN
	program varimax_on
	program vgpf_on
	program quartimax_on
	program equamax_on
	program parsimax_on
	program entropy_on
	program tandem1_on
	program tandem2_on
	program oblimin_on
	program cf_on
	program bentler_on
	program oblimax_on
	program quartimin_on
	program target_on
	program partial_on
END

LIST main_oblique_contents
BEGIN
	"Promax"
	"Oblimin"
	"Crawford-Ferguson family"
	"Bentler's invariant pattern simplicity"
	"Oblimax"
	"Quartimin"
	"Rotate toward matrix Tg"
	"Rotate toward matrix Tg, weighted by matrix W"
END

LIST main_oblique_values
BEGIN
	promax
	oblimin
	cf
	bentler
	oblimax
	quartimin
	target
	partial
END

LIST main_oblique_scripts
BEGIN
	program promax_on
	program oblimin_on
	program cf_on
	program bentler_on
	program oblimax_on
	program quartimin_on
	program target_on
	program partial_on
END

PROGRAM varimax_on
BEGIN
	call main.tx_oblimin_or.hide
	call main.en_oblimin_or.hide
	call main.tx_obliminnum_or.hide
	call main.tx_cf_or.hide
	call main.en_cf_or.hide
	call main.tx_cfnum_or.hide
	call main.tx_target_or.hide
	call main.cb_target_or.hide
	call main.tx_partial_or.hide
	call main.cb_partial_or.hide
	call main.tx_weighted_or.hide
	call main.cb_weighted_or.hide
	call script rotate_opt_opts_disable
END

PROGRAM vgpf_on
BEGIN
	call main.tx_oblimin_or.hide
	call main.en_oblimin_or.hide
	call main.tx_obliminnum_or.hide
	call main.tx_cf_or.hide
	call main.en_cf_or.hide
	call main.tx_cfnum_or.hide
	call main.tx_target_or.hide
	call main.cb_target_or.hide
	call main.tx_partial_or.hide
	call main.cb_partial_or.hide
	call main.tx_weighted_or.hide
	call main.cb_weighted_or.hide
	call script rotate_opt_opts_enable
END

PROGRAM quartimax_on
BEGIN
	call main.tx_oblimin_or.hide
	call main.en_oblimin_or.hide
	call main.tx_obliminnum_or.hide
	call main.tx_cf_or.hide
	call main.en_cf_or.hide
	call main.tx_cfnum_or.hide
	call main.tx_target_or.hide
	call main.cb_target_or.hide
	call main.tx_partial_or.hide
	call main.cb_partial_or.hide
	call main.tx_weighted_or.hide
	call main.cb_weighted_or.hide
	call script rotate_opt_opts_enable
END

PROGRAM equamax_on
BEGIN
	call main.tx_oblimin_or.hide
	call main.en_oblimin_or.hide
	call main.tx_obliminnum_or.hide
	call main.tx_cf_or.hide
	call main.en_cf_or.hide
	call main.tx_cfnum_or.hide
	call main.tx_target_or.hide
	call main.cb_target_or.hide
	call main.tx_partial_or.hide
	call main.cb_partial_or.hide
	call main.tx_weighted_or.hide
	call main.cb_weighted_or.hide
	call script rotate_opt_opts_enable
END

PROGRAM parsimax_on
BEGIN
	call main.tx_oblimin_or.hide
	call main.en_oblimin_or.hide
	call main.tx_obliminnum_or.hide
	call main.tx_cf_or.hide
	call main.en_cf_or.hide
	call main.tx_cfnum_or.hide
	call main.tx_target_or.hide
	call main.cb_target_or.hide
	call main.tx_partial_or.hide
	call main.cb_partial_or.hide
	call main.tx_weighted_or.hide
	call main.cb_weighted_or.hide
	call script rotate_opt_opts_enable
END

PROGRAM entropy_on
BEGIN
	call main.tx_oblimin_or.hide
	call main.en_oblimin_or.hide
	call main.tx_obliminnum_or.hide
	call main.tx_cf_or.hide
	call main.en_cf_or.hide
	call main.tx_cfnum_or.hide
	call main.tx_target_or.hide
	call main.cb_target_or.hide
	call main.tx_partial_or.hide
	call main.cb_partial_or.hide
	call main.tx_weighted_or.hide
	call main.cb_weighted_or.hide
	call script rotate_opt_opts_enable
END

PROGRAM tandem1_on
BEGIN
	call main.tx_oblimin_or.hide
	call main.en_oblimin_or.hide
	call main.tx_obliminnum_or.hide
	call main.tx_cf_or.hide
	call main.en_cf_or.hide
	call main.tx_cfnum_or.hide
	call main.tx_target_or.hide
	call main.cb_target_or.hide
	call main.tx_partial_or.hide
	call main.cb_partial_or.hide
	call main.tx_weighted_or.hide
	call main.cb_weighted_or.hide
	call script rotate_opt_opts_enable
END

PROGRAM tandem2_on
BEGIN
	call main.tx_oblimin_or.hide
	call main.en_oblimin_or.hide
	call main.tx_obliminnum_or.hide
	call main.tx_cf_or.hide
	call main.en_cf_or.hide
	call main.tx_cfnum_or.hide
	call main.tx_target_or.hide
	call main.cb_target_or.hide
	call main.tx_partial_or.hide
	call main.cb_partial_or.hide
	call main.tx_weighted_or.hide
	call main.cb_weighted_or.hide
	call script rotate_opt_opts_enable
END

PROGRAM promax_on
BEGIN
	call main.tx_propow.show
	call main.en_propow.show
	call main.tx_oblimin_ob.hide
	call main.en_oblimin_ob.hide
	call main.tx_obliminnum_ob.hide
	call main.tx_cf_ob.hide
	call main.en_cf_ob.hide
	call main.tx_cfnum_ob.hide
	call main.tx_target_ob.hide
	call main.cb_target_ob.hide
	call main.tx_partial_ob.hide
	call main.cb_partial_ob.hide
	call main.tx_weighted_ob.hide
	call main.cb_weighted_ob.hide
	call script rotate_opt_opts_disable
END

PROGRAM oblimin_on
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -