svy_ratio.dlg

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

/*
  svy: ratio

*! VERSION 1.1.3  30mar2005

  keyword:  eclass

*/

VERSION 9.0

INCLUDE _std_large
INCLUDE _ht320
INCLUDE header

HELP hlp1, view("help svy: ratio")
RESET res1

DIALOG main, tabtitle("Model") ///
	label("svy: ratio - Estimate ratios for survey data")
BEGIN
  DEFINE col1 70
  DEFINE colwd 120
  DEFINE col2 200
  DEFINE col3 330

  TEXT     tx_numer  col1      _top      colwd     .,			///
		label("Numerator")
  TEXT     tx_denom  col2      @         @         .,			///
		label("Denominator")
  TEXT     tx_name   col3      @         @         .,			///
		label("Optional label")

  TEXT     tx_ratio1 _lft      _ss       55        .,			///
  		label("Ratio 1:") right
  VARNAME  vn_numer1 col1      @         colwd     .,			///
		label("Numerator variable for ratio 1")
  VARNAME  vn_denom1 col2      @         @         .,			///
		label("Denominator variable for ratio 1")
  EDIT     ed_name1  col3      @         160       .,			///
		label("Name for ratio 1")

  TEXT     tx_ratio2 _lft      _ms       55        .,			///
  		label("Ratio 2:") right
  VARNAME  vn_numer2 col1      @         colwd     .,			///
		label("Numerator variable for ratio 2")
  VARNAME  vn_denom2 col2      @         @         .,			///
		label("Denominator variable for ratio 2")
  EDIT     ed_name2  col3      @         160       .,			///
		label("Name for ratio 2")

  TEXT     tx_ratio3 _lft      _ms       55        .,			///
  		label("Ratio 3:") right
  VARNAME  vn_numer3 col1      @         colwd     .,			///
		label("Numerator variable for ratio 3")
  VARNAME  vn_denom3 col2      @         @         .,			///
		label("Denominator variable for ratio 3")
  EDIT     ed_name3  col3      @         160       .,			///
		label("Name for ratio 3")

  TEXT     tx_ratio4 _lft      _ms       55        .,			///
  		label("Ratio 4:") right
  VARNAME  vn_numer4 col1      @         colwd     .,			///
		label("Numerator variable for ratio 4")
  VARNAME  vn_denom4 col2      @         @         .,			///
		label("Denominator variable for ratio 4")
  EDIT     ed_name4  col3      @         160       .,			///
		label("Name for ratio 4")

  TEXT     tx_ratio5 _lft      _ms       55        .,			///
  		label("Ratio 5:") right
  VARNAME  vn_numer5 col1      @         colwd     .,			///
		label("Numerator variable for ratio 5")
  VARNAME  vn_denom5 col2      @         @         .,			///
		label("Denominator variable for ratio 5")
  EDIT     ed_name5  col3      @         160       .,			///
		label("Name for ratio 5")

  INCLUDE svy_stdize

  DEFINE _x _xsetbu
  DEFINE _y 290
  INCLUDE _bu_svyset

END

INCLUDE svy_stdize_pr

INCLUDE svy_subpop
INCLUDE svy_se
INCLUDE svy_rpt

PROGRAM ratio_output
BEGIN

	if !(main.vn_numer1 | main.vn_numer2 | main.vn_numer3 ///
	 | main.vn_numer4 | main.vn_numer5 ///
	 | main.vn_denom1 | main.vn_denom2 | main.vn_denom3 ///
	 | main.vn_denom4 | main.vn_denom5) {
		require main.vn_denom1
		require main.vn_numer1
	}
	if main.vn_numer1 {
		require main.vn_denom1
		if main.ed_name1 {
			put "(" main.ed_name1 ": " ///
				main.vn_numer1 "/" main.vn_denom1 ")"
		}
		if !main.ed_name1 {
			put "(" main.vn_numer1 "/" main.vn_denom1 ")"
		}
	}

	put " "
	if !main.vn_numer2 & main.vn_denom2 {
		require main.vn_numer2
	}
	if main.vn_numer2 {
		require main.vn_denom2
		if main.ed_name2 {
			put "(" main.ed_name2 ": " ///
				main.vn_numer2 "/" main.vn_denom2 ")"
		}
		if !main.ed_name2 {
			put "(" main.vn_numer2 "/" main.vn_denom2 ")"
		}
	}

	put " "
	if !main.vn_numer3 & main.vn_denom3 {
		require main.vn_numer3
	}
	if main.vn_numer3 {
		require main.vn_denom3
		if main.ed_name3 {
			put "(" main.ed_name3 ": " ///
				main.vn_numer3 "/" main.vn_denom3 ")"
		}
		if !main.ed_name3 {
			put "(" main.vn_numer3 "/" main.vn_denom3 ")"
		}
	}

	put " "
	if !main.vn_numer4 & main.vn_denom4 {
		require main.vn_numer4
	}
	if main.vn_numer4 {
		require main.vn_denom4
		if main.ed_name4 {
			put "(" main.ed_name4 ": " ///
				main.vn_numer4 "/" main.vn_denom4 ")"
		}
		if !main.ed_name4 {
			put "(" main.vn_numer4 "/" main.vn_denom4 ")"
		}
	}

	put " "
	if !main.vn_numer5 & main.vn_denom5 {
		require main.vn_numer5
	}
	if main.vn_numer5 {
		require main.vn_denom5
		if main.ed_name5 {
			put "(" main.ed_name5 ": " ///
				main.vn_numer5 "/" main.vn_denom5 ")"
		}
		if !main.ed_name5 {
			put "(" main.vn_numer5 "/" main.vn_denom5 ")"
		}
	}

END

PROGRAM svy_options
BEGIN
	beginoptions
		put " " /program svy_subpop_output
		put " " /program svy_se_output
		put " " /program svy_rpt_output
	endoptions
END

PROGRAM command
BEGIN
	allowxi
	put "svy"
	put /program svy_options
	put ": ratio "
	put /program ratio_output
	if subpop.ck_ifin {
		put " " /program ifin_output
	}
	beginoptions
		put /program svy_stdize_output
		put " " /program over_output
		put " " /program svy_rpt_cmdoutput
	endoptions
END