canon.dlg

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

/*
  canon.dlg

*!  VERSION 1.1.3  06apr2005

  keyword:  eclass
*/

VERSION 9.0

INCLUDE _std_large
INCLUDE header
HELP hlp1, view("help canon")
RESET res1

DIALOG	 main,	label("canon - Canonical correlations") 		/*
		*/	tabtitle("Model")
BEGIN

   TEXT	    tx_firstvar		_lft	_top	_iwd	.,		/*
		*/	label("First set of variables:")

   VARLIST  vl_firstvar		@	_ss	@	.,		/*
		*/	label("First set of variables")

   TEXT	    tx_secondvar	@	_ms	@	.,		/*
		*/	label("Second set of variables:")

   VARLIST  vl_secondvar	@	_ss	@	.,		/*
		*/	label("Second set of variables")

   GROUPBOX gb_opts		@	_ls	@	_ht15h,		/*
		*/	label("Options")
   RADIO    rb_stdo		_ilft   _ms     _ibwd   .,		/*
   		*/	label("Output raw coefficients in a standard estimation table")/*
   		*/	option(NONE) 					/*
		*/	first clickon(script rb_stdo)
   RADIO    rb_cm               @	_ss	@	.,		/*
   		*/	label("Output matrices of raw coefficients")	/*
   		*/	option(coefmatrix) clickon(script rb_cm)
   RADIO    rb_sc		@	_ss	@	.,		/*
   		*/	label("Output matrices of standardized coefficients")/*
   		*/	option(stdcoef)    last clickon(script rb_cm)
   CHECKBOX ck_lc		@	_ls	_ckwd	.,		/*
   		*/ 	onclickon(script sp_lc)				/*
   		*/	onclickoff(script sp_lc_off)			/*
   		*/	option(NONE)
DEFINE   holdx @x
   SPINNER  sp_lc		_cksep 	@	_spwd	.,		/*
		*/	label("Linear combination")			/*
		*/	min(1)						/*
		*/	max(1000) 					/*
		*/	default(1)					/*
		*/	option(lc)
   TEXT	    tx_lc		_spsep	@	_cksprb	.,		/*
		*/	label("Linear combination to be displayed")
   CHECKBOX ck_fir	       _ilft    _ms     _ckwd   .,		/*
   		*/	onclickon(script sp_fir)			/*
   		*/	onclickoff(script sp_fir_off)			/*
   		*/ 	option(NONE)
   SPINNER  sp_fir		_cksep  @       _spwd   .,		/*
   		*/ 	label("First combinations")			/*
   		*/	min(1)						/*
		*/	max(1000)					/*
		*/	default(1)					/*
		*/	option(first)
   TEXT     tx_fir              _spsep	@	_cksprb	.,		/*
   		*/label("First # of linear combinations to be displayed")

   CHECKBOX ck_noconstant	holdx	_ls	_ibwd	.,		/*
	*/ label("Do not subtract means when calculating correlations") /*
	*/ option(noconstant)
END

INCLUDE byifin
INCLUDE weights_fa

DIALOG rpt, tabtitle("Reporting")
BEGIN

  DEFINE _x _lft
  DEFINE _cx _spr
  DEFINE _y 20
  INCLUDE _sp_level
  RADIO	    rb_stest         _lft       _xls    _iwd   .,		/*
  	*/ label("Display standard test only (default)") first 		/*
  	*/ clickon(gaction rpt.ed_test.disable) option(NONE)
  RADIO     rb_test          @          _ms     _rbwd  .,		/*
  	*/ clickon(gaction rpt.ed_test.enable)
  EDIT      ed_test          _rbsep     @       _en7wd  .,		/*
  	*/ option(test)
  TEXT      tx_tests         _en7sep     @      _rben7r .,		/*
  	*/label("Display significance test for these canonical correlations")
  RADIO     rb_notests       _lft       _ms    _iwd   .,		/*
  	*/label("Do not display tests") last 	/*
  	*/option(notests) clickon(gaction rpt.ed_test.disable)
  TEXT      tx_format        @          _ls    _iwd   .,		/*
  	*/label("Display format for numbers in coefficient matrices:")
  EDIT      ed_format        @          _ss    _en7wd .,		/*
  	*/label("Display format for numbers in coefficient matrices")	/*
  	*/option(format) default("%8.4f")
  BUTTON    bu_format        _en7sep    @      _buwd  .,		/*
  	*/label("Help format...") onpush(view help %fmt##|_new)
END

PROGRAM vl_1
BEGIN
	varlist main.vl_firstvar
END

PROGRAM vl_2
BEGIN
	varlist main.vl_secondvar
END

SCRIPT rb_cm
BEGIN
	rpt.tx_format.enable
	rpt.ed_format.enable
	rpt.bu_format.enable
END

SCRIPT rb_stdo
BEGIN
	rpt.tx_format.disable
	rpt.ed_format.disable
	rpt.bu_format.disable
END

SCRIPT sp_lc
BEGIN
	main.sp_lc.enable
	main.ck_fir.disable
	main.sp_fir.disable
	main.tx_fir.disable
END

SCRIPT sp_lc_off
BEGIN
	main.sp_lc.disable
	main.ck_fir.enable
	main.tx_fir.enable
END

SCRIPT sp_fir
BEGIN
	main.sp_lc.disable
	main.ck_lc.disable
	main.tx_lc.disable
	main.sp_fir.enable
END

SCRIPT sp_fir_off
BEGIN
	main.sp_fir.disable
	main.ck_lc.enable
	main.tx_lc.enable
END

PROGRAM command
BEGIN
	INCLUDE _by_pr
	put "canon "
	put "("
	put /program vl_1
	put ") ("
	put /program vl_2
	put ")"
	INCLUDE _weights_pr
	INCLUDE _ifin_pr
	beginoptions
		option main.rb_cm
		option main.rb_sc
		optionarg main.sp_lc
		optionarg main.sp_fir
		option main.ck_noconstant
		optionarg /hidedefault rpt.sp_level
		optionarg rpt.ed_test
		option rpt.rb_notests
		optionarg /hidedefault rpt.ed_format
 	endoptions
END