stsgraph_98s.dlg

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

SCRIPT lost_on
BEGIN
	script lostopts_enable
	script atriskopts_disable
	script censor_off
END

SCRIPT atrisk_on
BEGIN
	script atriskopts_enable
	script lostopts_disable
	script censor_off
END

SCRIPT both_opts_on
BEGIN
	script lostopts_enable
	script atriskopts_enable
	script censor_off
END

SCRIPT both_opts_off
BEGIN
	script lostopts_disable
	script atriskopts_disable
	script censor_off
END

SCRIPT lostopts_enable
BEGIN
	opt.gb_lostopts.enable
	opt.tx_lsize.enable
	opt.cb_lsize.enable
	opt.tx_lclr.enable
	opt.cb_lclr.enable
	opt.cl_lclr.enable
END

SCRIPT lostopts_disable
BEGIN
	opt.gb_lostopts.disable
	opt.tx_lsize.disable
	opt.cb_lsize.disable
	opt.tx_lclr.disable
	opt.cb_lclr.disable
	opt.cl_lclr.disable
END

SCRIPT atriskopts_enable
BEGIN
	opt.gb_atriskopts.enable
	opt.tx_rsize.enable
	opt.cb_rsize.enable
	opt.tx_rclr.enable
	opt.cb_rclr.enable
	opt.cl_rclr.enable
END

SCRIPT atriskopts_disable
BEGIN
	opt.gb_atriskopts.disable
	opt.tx_rsize.disable
	opt.cb_rsize.disable
	opt.tx_rclr.disable
	opt.cb_rclr.disable
	opt.cl_rclr.disable
END

PROGRAM censor_check
BEGIN
	if opt.rb_censored & ! H(opt.rb_censored) {
		call gaction opt.rb_single.enable
		call gaction opt.rb_number.enable
		call gaction opt.rb_multiple.enable
	}
	if ! opt.rb_censored | H(opt.rb_censored) {
		call script censor_off
	}
	call script lostopts_disable
	call script atriskopts_disable
END

SCRIPT censor_off
BEGIN
	opt.rb_single.disable
	opt.rb_number.disable
	opt.rb_multiple.disable
END

SCRIPT display_disable
BEGIN
	opt.gb_dis.disable
	opt.rb_none.disable
	opt.rb_lost.disable
	opt.rb_lost_enter.disable
	opt.rb_enter.disable
	opt.rb_atrisk.disable
	opt.rb_a_lst.disable
	opt.rb_censored.disable
	program censor_check
END

PROGRAM display_enable
BEGIN
	call gaction opt.gb_dis.enable
	call gaction opt.rb_none.enable
	call gaction opt.rb_lost.enable
	call gaction opt.rb_lost_enter.enable
	call gaction opt.rb_enter.enable
	call gaction opt.rb_atrisk.enable
	call gaction opt.rb_a_lst.enable
	call gaction opt.rb_censored.enable
	call program censor_check
	if opt.rb_lost | opt.rb_lost_enter | opt.rb_enter {
		call script lost_on
	}
	if opt.rb_atrisk {
		call script atrisk_on
	}
	if opt.rb_a_lst{
		call script both_opts_on
	}
END

DIALOG more, tabtitle("More options")
BEGIN
  EDIT     en_tmax        _lft      _top      _en7wd      .,            /*
                */ numonly                                              /*
                */ label("Maximum analysis time to be graphed")                           /*
                */ option(tmax)

  TEXT     tx_tmax        _en7sep   @         _en7r2      .,            /*
                */ label("Maximum analysis time to be graphed")

  EDIT     en_tmin        _lft      _ms       _en7wd      .,            /*
                */ numonly                                              /*
                */ label("Minimum analysis time to be graphed")                           /*
                */ option(tmin)

  TEXT     tx_tmin        _en7sep   @         _en7r2      .,            /*
                */ label("Minimum analysis time to be graphed")

  GROUPBOX gb_noorigin    _lft      _ls       _cwd1       _ht4,		/*
  		*/ label("Origin")

  RADIO    rb_origin      _indent   _ss       _inwd       .,            /*
                */ first                                                /*
                */ option(NONE)						/*
		*/ label("Begin survivor (failure) curve where time equal zero")

  RADIO    rb_noorigin    @         _ss       @           .,            /*
                */ last                                                 /*
                */ option(noorigin)					/*
		*/ label("Begin survivor (failure) curve at first exit time")

  GROUPBOX gb_meth        _lft       _xls      _cwd1     _ht10,		/*
		*/ label("Smoothing options")				/*
		*/
  CHECKBOX ck_width       _indent   _ss       _inwd     _ht2h,		/*
		*/ label(`"Override "optimal" width(s)"')		/*
		*/ clickon("program kdenopts_width_check")		/*
		*/ clickoff("program kdenopts_width_check")		/*
		*/
  DEFINE x @x
  DEFINE cx @cx
  EDIT     ed_width  _indent2  _ms       _en14wd   .,			/*
		*/ label("Halfwidth(s) of kernel")			/*
		*/ option("width")					/*
		*/
  TEXT     tx_width  _en14sep  @         _en7r3bb  .,			/*
		*/ label("Halfwidth(s) of kernel")			/*
		*/

  TEXT     tx_kernel x         _ls       cx        .,			/*
		*/ label("Kernel function:")				/*
		*/
  COMBOBOX cb_kernel @         _ss       @         .,			/*
		*/ label("Kernel function")				/*
		*/ dropdownlist						/*
		*/ contents("kernel_function")				/*
		*/ values("kernel_function_val")			/*
		*/ option("kernel")
END

SCRIPT more_noorigin_enable
BEGIN
	more.gb_noorigin.enable
	more.rb_noorigin.enable
	more.rb_origin.enable
END

SCRIPT more_noorigin_disable
BEGIN
	more.gb_noorigin.disable
	more.rb_noorigin.disable
	more.rb_origin.disable
END

PROGRAM kdenopts_width_check
BEGIN
	if !H(more.ck_width) & more.ck_width {
		call gaction more.ed_width.enable
		call gaction more.tx_width.enable
	}
	if H(more.ck_width) | ! more.ck_width {
		call gaction more.ed_width.disable
		call gaction more.tx_width.disable
	}
END

INCLUDE p2_opts
INCLUDE p1_opts
INCLUDE gr_twoway_98s

SCRIPT PREINIT
BEGIN
	script p2_opts_createAsNoRange
	script p2_opts_setDefaultLine
	script p1_opts_createAsRange
	script p1_opts_setDefaultRline
END

SCRIPT POSTINIT
BEGIN
	script p1_opts_setTabtitleCi
END

PROGRAM lostopts_output
BEGIN
	optionarg /hidedefault opt.cb_lsize
	if H(opt.cl_lclr) {
		optionarg /hidedefault opt.cb_lclr
	}
	if !H(opt.cl_lclr) {
		optionarg /quoted opt.cl_lclr
	}
END

PROGRAM atriskopts_output
BEGIN
	optionarg /hidedefault opt.cb_rsize
	if H(opt.cl_rclr) {
		optionarg /hidedefault opt.cb_rclr
	}
	if !H(opt.cl_rclr) {
		optionarg /quoted opt.cl_rclr
	}
END

PROGRAM command
BEGIN
	if main.ck_byvar {
		require main.vl_byvar
	}
	if main.ck_strvar {
		require main.vl_strvar
		require main.vl_adjvar
	}
	put "sts graph"
	INCLUDE _ifin_pr
	beginoptions
		optionarg /hidedefault main.en_per
		optionarg main.vl_byvar
		optionarg main.vl_strvar
		optionarg main.vl_adjvar
		option main.rb_na
		option main.rb_hazard
		option main.rb_kaplan_fail
		option main.ck_separate
		if main.rb_kaplan | main.rb_kaplan_fail{
			if main.ck_gwood_cna_ci {
				put "gwood"
			}
		}
		if main.rb_na {
			if main.ck_gwood_cna_ci {
				put "cna"
			}
		}
		if main.rb_hazard {
			if main.ck_gwood_cna_ci {
				put "cihazard"
			}
		}
		INCLUDE _level_opt_pr
		option opt.ck_noshow
		if ! main.rb_hazard {
			option radio(opt rb_none rb_lost rb_enter /*
				*/ rb_lost_enter /*
				*/ rb_atrisk rb_a_lst rb_censored)
		}
		if opt.rb_censored & !H(opt.rb_censored) {
			option radio(opt rb_single rb_multiple rb_number)
		}

		if !D(opt.cb_lsize) &  (opt.cb_lsize | opt.cb_lclr) {
			put " " "lostopts("
			put /program lostopts_output
			put ")"
		}

		if !D(opt.cb_rsize) & (opt.cb_rsize | opt.cb_rclr) {
			put " " "atriskopts("
			put /program atriskopts_output
			put ")"
		}
		if main.rb_hazard {
			if more.ck_width {
				require more.ed_width
				optionarg more.ed_width
			}
			optionarg /hidedefault more.cb_kernel
		}
		optionarg more.en_tmax
		optionarg more.en_tmin
		option more.rb_noorigin
		put " " /program p2_opts_output
		put " " /program p1_opts_ci_output
		put " " /program gr_twoway_output
	endoptions
END
/* end */