sampsi.dlg

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

  opt.tx_n2.disable
  script ratio_disable
  script mean_disable
  script mean1_disable_parts
  script mean2_disable_parts
  script prop1_enable_parts
  script prop2_disable_parts
  opt.ck_nocontinuity.disable
END

PROGRAM prop2_enable
BEGIN
  if opt.rb_power {
  	call opt.ck_n2.enable
	if opt.ck_n2 {
		call opt.sp_n2.enable
	}
	call opt.tx_n2.enable
  }
  call program ratio_enable
  call script mean_disable
  call script mean1_disable_parts
  call script mean2_disable_parts
  call script prop1_disable_parts
  call script prop2_enable_parts
  call opt.ck_nocontinuity.enable
END

SCRIPT mean_disable
BEGIN
  opt.gb_corrs.disable
  opt.ck_r0.disable
  opt.en_r0.disable
  opt.tx_r0.disable
  opt.ck_r1.disable
  opt.en_r1.disable
  opt.tx_r1.disable
  opt.ck_r01.disable
  opt.en_r01.disable
  opt.tx_r01.disable
  opt.tx_pre.disable
  opt.tx_post.disable
  opt.en_pre.disable
  opt.en_post.disable
  opt.ck_method.disable
  opt.cb_method.disable
END

SCRIPT r01_enable
BEGIN
	opt.en_r01.enable
  	opt.tx_pre.enable
  	opt.en_pre.enable
END

SCRIPT r01_disable
BEGIN
	opt.en_r01.disable
  	opt.tx_pre.disable
  	opt.en_pre.disable
END

SCRIPT r1_enable
BEGIN
	opt.en_r1.enable
  	opt.tx_post.enable
  	opt.en_post.enable
END

SCRIPT r1_disable
BEGIN
	opt.en_r1.disable
  	opt.tx_post.disable
  	opt.en_post.disable
END

PROGRAM mean_enable
BEGIN
  call gaction opt.gb_corrs.enable
  call gaction opt.ck_r0.enable
  call gaction opt.tx_r0.enable
  if opt.ck_r0 {
  	call gaction opt.en_r0.enable
  }
  call gaction opt.ck_r1.enable
  call gaction opt.tx_r1.enable
  if opt.ck_r1 {
  	call script r1_enable
  }
  call gaction opt.ck_r01.enable
  call gaction opt.tx_r01.enable
  if opt.ck_r01 {
  	call script r01_enable
  }
  call gaction opt.ck_method.enable
  if opt.ck_method {
  	call gaction opt.cb_method.enable
  }
END

PROGRAM mean1_enable
BEGIN
  call gaction opt.ck_n2.disable
  call gaction opt.sp_n2.disable
  call gaction opt.tx_n2.disable
  call script ratio_disable
  call program mean_enable
  call script mean1_enable_parts
  call script mean2_disable_parts
  call script prop1_disable_parts
  call script prop2_disable_parts
  call opt.ck_nocontinuity.disable
END


PROGRAM mean2_enable
BEGIN
  if opt.rb_power {
  	call gaction opt.ck_n2.enable
	if opt.ck_n2 {
		call gaction opt.sp_n2.enable
	}
	call gaction opt.tx_n2.enable
  }
  call program ratio_enable
  call program mean_enable
  call script mean1_disable_parts
  call script mean2_enable_parts
  call script prop1_disable_parts
  call script prop2_disable_parts
  call opt.ck_nocontinuity.disable
END

SCRIPT mean1_enable_parts
BEGIN
  main.tx_mean1_1.enable
  main.tx_mean1_2.enable
  main.tx_sd1_1.enable
  main.en_sd1_1.enable
  main.en_mean1_2.enable
  main.en_mean1_1.enable
END

SCRIPT mean1_disable_parts
BEGIN
  main.tx_mean1_1.disable
  main.tx_mean1_2.disable
  main.tx_sd1_1.disable
  main.en_mean1_1.disable
  main.en_mean1_2.disable
  main.en_sd1_1.disable
END

SCRIPT mean2_enable_parts
BEGIN
  main.tx_mean2_1.enable
  main.tx_mean2_2.enable
  main.tx_sd1_2.enable
  main.tx_sd2.enable
  main.en_sd2.enable
  main.en_sd1_2.enable
  main.en_mean2_2.enable
  main.en_mean2_1.enable
END

SCRIPT mean2_disable_parts
BEGIN
  main.tx_mean2_1.disable
  main.tx_mean2_2.disable
  main.tx_sd1_2.disable
  main.tx_sd2.disable
  main.en_mean2_1.disable
  main.en_mean2_2.disable
  main.en_sd1_2.disable
  main.en_sd2.disable
END


SCRIPT prop1_enable_parts
BEGIN
  main.tx_prop1_1.enable
  main.tx_prop1_2.enable
  main.en_prop1_2.enable
  main.en_prop1_1.enable
END

SCRIPT prop1_disable_parts
BEGIN
  main.tx_prop1_1.disable
  main.tx_prop1_2.disable
  main.en_prop1_1.disable
  main.en_prop1_2.disable
END

SCRIPT prop2_enable_parts
BEGIN
  main.tx_prop2_1.enable
  main.tx_prop2_2.enable
  main.en_prop2_2.enable
  main.en_prop2_1.enable
END

SCRIPT prop2_disable_parts
BEGIN
  main.tx_prop2_1.disable
  main.tx_prop2_2.disable
  main.en_prop2_1.disable
  main.en_prop2_2.disable
END

PROGRAM power_on
BEGIN
  call gaction opt.en_power.disable
  call gaction opt.tx_power.disable
  call gaction opt.sp_n1.enable
  call gaction opt.tx_n1.enable
  if main.rb_mean2 | main.rb_prop2 {
  	call gaction opt.ck_n2.enable
	if opt.ck_n2 {
		call opt.sp_n2.enable
		call script ratio_disable
	}
	call gaction opt.tx_n2.enable
	if ! opt.ck_n2 {
		call program ratio_enable
	}
  }

END

PROGRAM power_off
BEGIN
  call opt.sp_n1.disable
  call opt.sp_n2.disable
  call opt.tx_n1.disable
  call opt.tx_n2.disable
  call opt.ck_n2.disable
  if ! main.rb_mean2 |  ! main.rb_prop2 {
  	call script ratio_disable
  }
  if main.rb_mean2 | main.rb_prop2 {
  	call program ratio_enable
  }
  call opt.en_power.enable
  call opt.tx_power.enable
END

PROGRAM command
BEGIN
	put "sampsi "
	if main.rb_mean1 {
		require main.en_mean1_1
		require main.en_mean1_2
		put main.en_mean1_1 " " main.en_mean1_2
 	}
	if main.rb_mean2 {
		require main.en_mean2_1
		require main.en_mean2_2
		put main.en_mean2_1 " " main.en_mean2_2
 	}
	if main.rb_prop1 {
		require main.en_prop1_1
		require main.en_prop1_2
		put main.en_prop1_1 " " main.en_prop1_2
 	}
	if main.rb_prop2 {
		require main.en_prop2_1
		require main.en_prop2_2
		put main.en_prop2_1 " " main.en_prop2_2
 	}
	beginoptions
		if main.rb_mean1 {
			require main.en_sd1_1
			optionarg main.en_sd1_1
		}
		if main.rb_mean2 {
			require main.en_sd1_2
			require main.en_sd2
			optionarg main.en_sd1_2
			optionarg main.en_sd2
		}
		optionarg opt.en_alpha
		if opt.rb_size {
			optionarg /hidedefault opt.en_power
		}
		if opt.rb_power {
			optionarg opt.sp_n1
  			if opt.ck_n2 {
				optionarg opt.sp_n2
			}
		}
		optionarg /hidedefault opt.en_ratio
		option opt.ck_nocontinuity
		if opt.ck_r0 {
			optionarg opt.en_r0
		}
		if opt.ck_r1 {
			optionarg opt.en_r1
			optionarg /hidedefault opt.en_post
		}
		if opt.ck_r01 {
			optionarg opt.en_r01
			optionarg /hidedefault opt.en_pre
		}
		if main.rb_mean1 | main.rb_prop1 {
			put " onesample "
		}
		put opt.cb_side
		optionarg opt.cb_method
	endoptions
END