lincom.dlg

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

/*
  lincom

*! VERSION 1.1.0  12jan2005

*/

VERSION 9.0

INCLUDE _std_medium
INCLUDE _ht270
INCLUDE header

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

DIALOG main, label("lincom - Linear combinations of estimators") 	///
	tabtitle("Main")
BEGIN
  TEXT     tx_exp    _lft      _top      _iwd      .,		///
	label("Linear expression:")
  EDIT     ed_exp    @         _ss       @         .,		///
	label("Linear expression")

  CHECKBOX ck_eform  @         _xls      @         _ht10h,	///
	label("Exponentiate coefficients")			///
	onclickon(script eform_on)				///
	onclickoff(script eform_off)				///
	groupbox
  DEFINE y @y
  DEFINE cy @cy
  RADIO    rb_eform  _indent   _ms       _inwd     .,		///
	label("exp(b)")						///
	first							///
	option(eform)
  RADIO    rb_or     @         _ss       @         .,		///
	label("Odds ratio")					///
	option(or)
  RADIO    rb_hr     @         _ss       @         .,		///
	label("Hazard ratio")					///
	option(hr)
  RADIO    rb_irr    @         _ss       @         .,		///
	label("Incidence-rate ratio")				///
	option(irr)
  RADIO    rb_rrr    @         _ss       @         .,		///
	label("Relative-risk ratio")				///
	last							///
	option(rrr)

  DEFINE _x _lft
  DEFINE _cx _spr
  DEFINE _y _xxls
  INCLUDE _sp_level
END

SCRIPT eform_on
BEGIN
	main.rb_or.enable
	main.rb_hr.enable
	main.rb_irr.enable
	main.rb_rrr.enable
	main.rb_eform.enable
END

SCRIPT eform_off
BEGIN
	main.rb_or.disable
	main.rb_hr.disable
	main.rb_irr.disable
	main.rb_rrr.disable
	main.rb_eform.disable
END

PROGRAM command
BEGIN
	put "lincom "
	require main.ed_exp
	put main.ed_exp
	beginoptions
		if main.ck_eform {
			option radio(main rb_eform rb_or rb_hr rb_irr rb_rrr)
		}
		INCLUDE _level_main_pr
	endoptions
END