_clusmat_hier.idlg

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

/*
   _clusmat_hier.idlg include file for the hierarchical -clustermat-

*! VERSION 1.0.0  28dec2004
*/

  TEXT     tx_mat       _lft    _top    _cwd3_2  .,		///
	label("Dissimilarity matrix:")
  DEFINE   holdy @y
  COMBOBOX cb_mat       @       _ss     @        .,		///
	label("Dissimilarity matrix")				///
	dropdown						///
	contents(matrix)

  TEXT     tx_shape     _lft3_2 holdy   _comb3_1 .,		///
	label("Storage shape:")
  COMBOBOX cb_shape     @       _ss     @        .,		///
	label("Storage shape")					///
	dropdownlist						///
	contents(shape_words)					///
	value(shape_values)					///
	option(shape)
 
  RADIO    rb_add       _lft    _ls     _iwd     ., first	///
	option(add)						///
	onclickon(script ifin_enable)				///
	label("Add cluster information to data currently in memory")
  RADIO    rb_clear     @       _ss     @        ., last	///
	option(clear)						///
	onclickon(script ifin_disable)				///
	label("Replace data in memory with cluster information")

DEFINE fromwd 34
DEFINE fromsep +39
DEFINE towd 15
DEFINE tosep +20

  GROUPBOX gb_ifin	_lft	_ls 	_iwd	 _ht10,		///
   label("Results correspond to observations (not allowed with empty dataset)")

  TEXT     tx_if	_ilft	_ss	_inwd	 .,		///
	label("If: (expression)")
  EXP      ex_if	@	_ss	@	 .,		///
	label("Create...")

  CHECKBOX ck_in	@	+35	@	 .,		///
	label("Range of observations")				///
	onclickon(script ifin_enable_in)			///
	onclickoff(script ifin_disable_in)
  TEXT     tx_from	@	_ss	fromwd	 .,		///
  	label("From:") right
  SPINNER  sp_from	fromsep	@	_spwd	 .,		///
	min(1) max(c(N)) default(1)
  TEXT     tx_to	_spsep	@	towd	 .,		///
	label("to:") right
  SPINNER  sp_to	tosep	@	_spwd	 .,		///
  	min(1) max(c(N)) default(c(N))

  CHECKBOX ck_labelvar  _lft    _xxls   _cwd1    .,		///
	label("Place dissimilarity matrix row") ///
	onclickon(main.ed_labelvar.enable)			///
	onclickoff(main.ed_labelvar.disable)
  DEFINE   holdy2 @y
  TEXT     tx_labelvar  _cksep  _vss    _cwd2    .,		///
	label("names in label variable:")
  EDIT     ed_labelvar  @       _ss     _vnwd    ., max(32)	///
	label("Place dissimilarity matrix row names in label variable") ///
	option(labelvar)

  TEXT     tx_name      _lft2   holdy2  _cwd1    .,		///
	label("Name this cluster analysis:")
  TEXT     tx_name2     @       _vss    @        .,		///
	label("(leave empty for default name)")
  EDIT     ed_name      @       _ss     _vnwd    ., max(32)	///
	label("Name this cluster analysis")			///
	option(name)