rotatemat.dlg

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

BEGIN
	call main.tx_propow.hide
	call main.en_propow.hide
	if main.lb_ortho.equals("oblimin") & !H(main.lb_ortho) {
		call main.tx_oblimin_or.show
		call main.en_oblimin_or.show
		call main.tx_obliminnum_or.show
	}
	if main.lb_oblique.equals("oblimin") & !H(main.lb_oblique) {
		call main.tx_oblimin_ob.show
		call main.en_oblimin_ob.show
		call main.tx_obliminnum_ob.show
	}
	call main.tx_cf_or.hide
	call main.en_cf_or.hide
	call main.tx_cfnum_or.hide
	call main.tx_cf_ob.hide
	call main.en_cf_ob.hide
	call main.tx_cfnum_ob.hide
	call main.tx_target_or.hide
	call main.cb_target_or.hide
	call main.tx_target_ob.hide
	call main.cb_target_ob.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 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_enable
END

PROGRAM cf_on
BEGIN
	call main.tx_propow.hide
	call main.en_propow.hide
	call main.tx_oblimin_or.hide
	call main.en_oblimin_or.hide
	call main.tx_obliminnum_or.hide
	call main.tx_oblimin_ob.hide
	call main.en_oblimin_ob.hide
	call main.tx_obliminnum_ob.hide
	if main.lb_ortho.equals("cf") & !H(main.lb_ortho) {
		call main.tx_cf_or.show
		call main.en_cf_or.show
		call main.tx_cfnum_or.show
	}
	if main.lb_oblique.equals("cf") & !H(main.lb_oblique) {
		call main.tx_cf_ob.show
		call main.en_cf_ob.show
		call main.tx_cfnum_ob.show
	}
	call main.tx_target_or.hide
	call main.cb_target_or.hide
	call main.tx_target_ob.hide
	call main.cb_target_ob.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 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_enable
END

PROGRAM bentler_on
BEGIN
	call main.tx_propow.hide
	call main.en_propow.hide
	call main.tx_oblimin_or.hide
	call main.en_oblimin_or.hide
	call main.tx_obliminnum_or.hide
	call main.tx_oblimin_ob.hide
	call main.en_oblimin_ob.hide
	call main.tx_obliminnum_ob.hide
	call main.tx_cf_or.hide
	call main.en_cf_or.hide
	call main.tx_cfnum_or.hide
	call main.tx_cf_ob.hide
	call main.en_cf_ob.hide
	call main.tx_cfnum_ob.hide
	call main.tx_target_or.hide
	call main.cb_target_or.hide
	call main.tx_target_ob.hide
	call main.cb_target_ob.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 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_enable
END

PROGRAM oblimax_on
BEGIN
	call main.tx_propow.hide
	call main.en_propow.hide
	call main.tx_oblimin_or.hide
	call main.en_oblimin_or.hide
	call main.tx_obliminnum_or.hide
	call main.tx_oblimin_ob.hide
	call main.en_oblimin_ob.hide
	call main.tx_obliminnum_ob.hide
	call main.tx_cf_or.hide
	call main.en_cf_or.hide
	call main.tx_cfnum_or.hide
	call main.tx_cf_ob.hide
	call main.en_cf_ob.hide
	call main.tx_cfnum_ob.hide
	call main.tx_target_or.hide
	call main.cb_target_or.hide
	call main.tx_target_ob.hide
	call main.cb_target_ob.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 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_enable
END

PROGRAM quartimin_on
BEGIN
	call main.tx_propow.hide
	call main.en_propow.hide
	call main.tx_oblimin_or.hide
	call main.en_oblimin_or.hide
	call main.tx_obliminnum_or.hide
	call main.tx_oblimin_ob.hide
	call main.en_oblimin_ob.hide
	call main.tx_obliminnum_ob.hide
	call main.tx_cf_or.hide
	call main.en_cf_or.hide
	call main.tx_cfnum_or.hide
	call main.tx_cf_ob.hide
	call main.en_cf_ob.hide
	call main.tx_cfnum_ob.hide
	call main.tx_target_or.hide
	call main.cb_target_or.hide
	call main.tx_target_ob.hide
	call main.cb_target_ob.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 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_enable
END

PROGRAM target_on
BEGIN
	call main.tx_propow.hide
	call main.en_propow.hide
	call main.tx_oblimin_or.hide
	call main.en_oblimin_or.hide
	call main.tx_obliminnum_or.hide
	call main.tx_oblimin_ob.hide
	call main.en_oblimin_ob.hide
	call main.tx_obliminnum_ob.hide
	call main.tx_cf_or.hide
	call main.en_cf_or.hide
	call main.tx_cfnum_or.hide
	call main.tx_cf_ob.hide
	call main.en_cf_ob.hide
	call main.tx_cfnum_ob.hide
	if main.lb_ortho.equals("target") & !H(main.lb_ortho) {
		call main.tx_target_or.show
		call main.cb_target_or.show
	}
	if main.lb_oblique.equals("target") & !H(main.lb_oblique) {
		call main.tx_target_ob.show
		call main.cb_target_ob.show
	}
	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 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_enable
END

PROGRAM partial_on
BEGIN
	call main.tx_propow.hide
	call main.en_propow.hide
	call main.tx_oblimin_or.hide
	call main.en_oblimin_or.hide
	call main.tx_obliminnum_or.hide
	call main.tx_oblimin_ob.hide
	call main.en_oblimin_ob.hide
	call main.tx_obliminnum_ob.hide
	call main.tx_cf_or.hide
	call main.en_cf_or.hide
	call main.tx_cfnum_or.hide
	call main.tx_cf_ob.hide
	call main.en_cf_ob.hide
	call main.tx_cfnum_ob.hide
	call main.tx_target_or.hide
	call main.cb_target_or.hide
	call main.tx_target_ob.hide
	call main.cb_target_ob.hide
	if main.lb_ortho.equals("partial") & !H(main.lb_ortho) {
		call main.tx_partial_or.show
		call main.cb_partial_or.show
		call main.tx_weighted_or.show
		call main.cb_weighted_or.show
	}
	if main.lb_oblique.equals("partial") & !H(main.lb_oblique) {
		call main.tx_partial_ob.show
		call main.cb_partial_ob.show
		call main.tx_weighted_ob.show
		call main.cb_weighted_ob.show
	}
	call script rotate_opt_opts_enable
END

DIALOG report, tabtitle("Reporting")
BEGIN
  CHECKBOX ck_format		_lft	_top	_iwd	.,		///
  	onclickon(report.en_format.enable)				///
  	onclickoff(report.en_format.disable)				///
	label("Display format for matrices")
  EDIT     en_format	       _indent2	_ss	_en7wd	.,		///
	option(format) default("%9.5f")					///
	label("Format")

  CHECKBOX ck_blanks		_lft	_ls	_iwd	.,		///
  	onclickon(script ck_blanks_on)					///
  	onclickoff(script ck_blanks_off)				///
	label("Display numbers as blanks when ( | number | < # )")
  EDIT     en_blanks	       _indent2	_ss	_en7wd	.,		///
	option(blanks) default(0)					///
	label("Blanks value")
  TEXT     tx_blanks		_spsep	@	_cksprb	.,		///
	label("#")

  CHECKBOX ck_nodisplay		_lft	_ls	_iwd	.,		///
	option(nodisplay)						///
	label("Suppress all output except log and trace")
  CHECKBOX ck_noloading		@	_ms	_iwd	.,		///
	option(noloading)						///
	label("Suppress display of rotated loadings")
  CHECKBOX ck_norotation	@	_ms	_iwd	.,		///
	option(norotation)						///
	label("Suppress display of rotation matrix")

  CHECKBOX ck_matname		_lft	_ms	_iwd	.,		///
  	onclickon(report.en_matname.enable)				///
  	onclickoff(report.en_matname.disable)				///
	label("Descriptive label of the matrix to be rotated:")
  EDIT     en_matname	       _indent2	_ss	_en7wd	.,		///
	option(matname) 						///
	label("Matrix name")
  CHECKBOX ck_colnames		_lft	_ls	_iwd	.,		///
  	onclickon(report.en_colnames.enable)				///
  	onclickoff(report.en_colnames.disable)				///
	label("Descriptive name for columns of the matrix to be rotated:")
  EDIT     en_colnames	       _indent2	_ss	_en7wd	.,		///
	option(colnames) 						///
	label("Columns name")
END

SCRIPT ck_blanks_on
BEGIN
	report.en_blanks.enable
	report.tx_blanks.enable
END

SCRIPT ck_blanks_off
BEGIN
	report.en_blanks.disable
	report.tx_blanks.disable
END

SCRIPT ortho_on
BEGIN
	program desel_oblique
	main.lb_oblique.disable
	main.lb_ortho.enable
	main.lb_ortho.withvalue main.lb_ortho.setvalue "@"
END

PROGRAM desel_oblique
BEGIN
if main.lb_oblique.equals("promax") {
	call main.tx_propow.hide
	call main.en_propow.hide
}
if main.lb_oblique.equals("oblimin") {
	call main.tx_oblimin_ob.hide
	call main.en_oblimin_ob.hide
	call main.tx_obliminnum_ob.hide
}
if main.lb_oblique.equals("cf") {
	call main.tx_cf_ob.hide
	call main.en_cf_ob.hide
	call main.tx_cfnum_ob.hide
}
if main.lb_oblique.equals("target") {
	call main.tx_target_ob.hide
	call main.cb_target_ob.hide
}
if main.lb_oblique.equals("partial") {
	call main.tx_partial_ob.hide
	call main.cb_partial_ob.hide
	call main.tx_weighted_ob.hide
	call main.cb_weighted_ob.hide
}
END

SCRIPT oblique_on
BEGIN
	program desel_ortho
	main.lb_oblique.enable
	main.lb_ortho.disable
	main.lb_oblique.withvalue main.lb_oblique.setvalue "@"
END

PROGRAM desel_ortho
BEGIN
if main.lb_ortho.equals("oblimin") {
	call main.tx_oblimin_or.hide
	call main.en_oblimin_or.hide
	call main.tx_obliminnum_or.hide
}
if main.lb_ortho.equals("cf") {
	call main.tx_cf_or.hide
	call main.en_cf_or.hide
	call main.tx_cfnum_or.hide
}
if main.lb_ortho.equals("target") {
	call main.tx_target_or.hide
	call main.cb_target_or.hide
}
if main.lb_ortho.equals("partial") {
	call main.tx_partial_or.hide
	call main.cb_partial_or.hide
	call main.tx_weighted_or.hide
	call main.cb_weighted_or.hide
}
END

INCLUDE rotate_opt_opts

PROGRAM command
BEGIN
	put "rotatemat "
	require main.cb_mat
	put main.cb_mat
	beginoptions
		if main.rb_ortho {
			put main.lb_ortho
			if main.lb_ortho.equals("oblimin") {
				put "(" main.en_oblimin_or ") "
			}
			if main.lb_ortho.equals("cf") {
				require main.en_cf_or
				put "(" main.en_cf_or ") "
			}
			if main.lb_ortho.equals("target") {
				require main.cb_target_or
				put "(" main.cb_target_or ") "
			}
			if main.lb_ortho.equals("partial") {
				require main.cb_partial_or main.cb_weighted_or
				put "(" main.cb_partial_or " " main.cb_weighted_or ") "
			}
		}
		if main.lb_oblique {
			put main.lb_oblique
			if main.lb_oblique.equals("promax") {
				put "(" main.en_propow ") "
			}
			if main.lb_oblique.equals("oblimin") {
				put "(" main.en_oblimin_ob ") "
			}
			if main.lb_oblique.equals("cf") {
				require main.en_cf_ob
				put "(" main.en_cf_ob ") "
			}
			if main.lb_oblique.equals("target") {
				require main.cb_target_ob
				put "(" main.cb_target_ob ") "
			}
			if main.lb_oblique.equals("partial") {
				require main.cb_partial_ob main.cb_weighted_ob
				put "(" main.cb_partial_ob " " main.cb_weighted_ob ") "
			}
		}
		if main.rb_oblique {
			put " " "oblique "
		}
		option    main.ck_horst
		if report.ck_format {
			require report.en_format
			optionarg report.en_format
		}
		if report.ck_blanks {
			require report.en_blanks
			optionarg report.en_blanks
		}
		option report.ck_nodisplay
		option report.ck_noloading
		option report.ck_norotation
		optionarg report.en_matname
		optionarg report.en_colnames
		put " " /program rotate_opt_opts_output
	endoptions
END