mdsmat.dlg

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

/*
	mdsmat

*!  VERSION 1.0.1  02apr2005

*/

VERSION 9.0

INCLUDE _std_large
DEFINE _dlght 350
INCLUDE header
HELP hlp1, view("help mdsmat")
RESET res1

DIALOG main, label("mdsmat - Multidimensional scaling of proximity data") tabtitle("Model")
BEGIN
  TEXT     tx_selmatrix		_lft	_top	_cwd1	.,			///
	label("Similarity or dissimilarity matrix:")
  COMBOBOX cb_selmatrix		@       _ss     300	.,			///
	label("Similarity or dissimilarity matrix")				///
	dropdown								///
	contents(matrix)
  BUTTON   bu_matinput   	_lft3_3	_top   _cwd3_1	.,			///
	label("Input Matrix") onpush("view dialog matrix_input")
  TEXT     tx_shape    		_lft	_xxls	_iwd	.,			///
	label("Storage shape:")
  COMBOBOX cb_shape		@       _ss     300	.,			///
	label("Storage shape")							///
	dropdownlist								///
	contents(shape_words)							///
	values(shape_values)							///
	option(shape)
  TEXT     tx_names		@	_ls	_iwd	.,  			///
	label("Variable names corresponding to row and column names of matrix:")
  EDIT     en_names		@	_ss	@	.,			///
	option(names)								///
	label("Variable names corresponding to row and column names of matrix")
  GROUPBOX gb_convertsim	_lft	_ls	_iwd		_ht6,		///
	label("Proximity")
  RADIO rb_default		_ilft	_ss	_ibwd		.,	first	///
	label("Dissimilarity (default)")
  RADIO rb_standard		@	_ss	@		.,		///
	label("Convert similarity to dissimilarity using d(ij)=sqrt(s(ii)+s(jj)-2s(ij))")				///
	option(s2d(standard))
  RADIO rb_oneminus		@	_ss	@		.,	last	///
	label("Convert similarity to dissimilarity using d(ij)=1-s(ij)")						///
	option(s2d(oneminus))

  CHECKBOX ck_force	_lft	_xls	_iwd	.,				///
	label("Correct problems with the supplied proximity information")				///
	option(force)
  SPINNER  sp_dim		_lft	_ls	_spwd	.,			///
	label("Configuration dimensions")					///
	min(1)									///
	max(10000)								///
	default(2)								///
	option(dimension)
  TEXT     tx_dim		_spsep	@	_cksprb	.,			///
	label("Dimension of the approximating configuration")
  CHECKBOX ck_addconstant	_lft	_ls	_iwd	.,			///
	label("Make distance matrix positive definite")				///
	option(addconstant)
END

LIST shape_words
BEGIN
	"Square symmetric matrix (default)"
	"Vector of rowwise lower triangle (with diagonal)"
	"Vector of rowwise strictly lower triangle (no diagonal)"
	"Vector of rowwise upper triangle (with diagonal)"
	"Vector of rowwise strictly upper triangle (no diagonal)"
END

LIST shape_values
BEGIN
	""
	lower
	llower
	upper
	uupper
END

DIALOG report, tabtitle("Reporting")
BEGIN
  SPINNER  sp_neigen	       _lft	_top	_spwd	.,			///
	label("Dimensions")							///
	min(1)									///
	max(10000)								///
	default(10)								///
	option(neigen)
  TEXT     tx_neigen	 	_spsep	@	_spr	.,			///
	label("Maximum number of eigenvalues to display")
  CHECKBOX ck_config		_lft	_ls	_iwd	.,			///
	label("Display table with configuration coordinates")			///
	option(config)
  CHECKBOX ck_noplot		@	_ms	@	.,			///
	label("Suppress configuration plot")					///
	option(noplot)
END

PROGRAM command
BEGIN
	put "mdsmat "
	require main.cb_selmatrix
	put main.cb_selmatrix
	beginoptions
		if ! main.cb_shape.equals("") {
			require main.en_names
		}
		optionarg main.cb_shape
		optionarg main.en_names
		option main.rb_standard
		option main.rb_oneminus
		option main.ck_force
		optionarg /hidedefault main.sp_dim
		option main.ck_addconstant
		optionarg /hidedefault report.sp_neigen
		option report.ck_config
		option report.ck_noplot
	endoptions
END