plot4.idlg

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

	script plot4_mbands_show
	script plot4_line_setLayout_2
	script plot4_line_show
	script plot4_set_second_y_to_middle
	plot4.gb_generic.setlabel "Median-band"
END

SCRIPT plot4_do_mspline
BEGIN
	plot4_is_pc_type.setfalse
	plot4.tx_type.setlabel "Plot type: (Median-spline)"
	script plot4_common_show

	script plot4_x2_hide
	script plot4_y2_hide
	script plot4_hide_all

	script plot4_mbands_show
	script plot4_mpoints_show
	script plot4_line_setLayout_2
	script plot4_line_show
	script plot4_set_second_y_to_middle
	plot4.gb_generic.setlabel "Median-spline"
END

SCRIPT plot4_do_lowess
BEGIN
	plot4_is_pc_type.setfalse
	plot4.tx_type.setlabel "Plot type: (Lowess)"
	script plot4_common_show

	script plot4_x2_hide
	script plot4_y2_hide
	script plot4_hide_all

	script plot4_line_setLayout_3
	script plot4_line_show
	script plot4_lowess_show
	script plot4_set_second_y_to_middle
	plot4.gb_generic.setlabel "Lowess"
END

SCRIPT plot4_do_kdensity
BEGIN
	plot4_is_pc_type.setfalse
	plot4.tx_type.setlabel "Plot type: (Kernel density)"
	script plot4_common_show
	script plot4_x2_hide
	script plot4_y2_hide
	script plot4_hide_all

	plot4.tx_y.hide
	plot4.vn_y.hide

	script plot4_line_setLayout_3
	script plot4_line_show
	script plot4_kdensity_show
	script plot4_set_second_y_to_middle
	plot4.gb_generic.setlabel "Kernel density"
END

SCRIPT plot4_do_lfit
BEGIN
	plot4_is_pc_type.setfalse
	plot4.tx_type.setlabel "Plot type: (Linear prediction)"
	script plot4_common_show
	script plot4_x2_hide
	script plot4_y2_hide
	script plot4_hide_all

	script plot4_fit_setpos
	script plot4_fit_show
	script plot4_set_predpoints_lfit
	script plot4_line_setLayout_4
	script plot4_line_show
	plot4.gb_line.setlabel "Lines (fit plot)"
	script plot4_set_second_y_to_middle
	plot4.gb_fit.setlabel "Linear prediction"
END

SCRIPT plot4_do_qfit
BEGIN
	plot4_is_pc_type.setfalse
	plot4.tx_type.setlabel "Plot type: (Quadratic pred.)"
	script plot4_common_show
	script plot4_x2_hide
	script plot4_y2_hide
	script plot4_hide_all

	script plot4_fit_setpos
	script plot4_fit_show
	script plot4_set_predpoints_qfit
	script plot4_line_setLayout_4
	script plot4_line_show
	plot4.gb_line.setlabel "Lines (fit plot)"
	script plot4_set_second_y_to_middle
	plot4.gb_fit.setlabel "Quadratic prediction"
END

SCRIPT plot4_do_fpfit
BEGIN
	plot4_is_pc_type.setfalse
	plot4.tx_type.setlabel "Plot type: (Fractional poly.)"
	script plot4_common_show
	script plot4_x2_hide
	script plot4_y2_hide
	script plot4_hide_all

	script plot4_fit_setpos
	plot4.gb_fit.show
	plot4.tx_ecommand.show
	plot4.cb_ecommand.show
	plot4.tx_regress_opt.show
	plot4.ed_regress_opt.show
	plot4.tx_pred_opt.show
	plot4.ed_pred_opt.show

	script plot4_line_setLayout_4
	script plot4_line_show
	plot4.gb_line.setlabel "Lines (fit plot)"
	script plot4_set_second_y_to_middle
	plot4.gb_fit.setlabel "Fractional polynomial"
END

SCRIPT plot4_do_lfitci
BEGIN
	plot4_is_pc_type.setfalse
	plot4.tx_type.setlabel "Plot type: (Linear pred. w/ci)"
	script plot4_common_show

	script plot4_x2_hide
	script plot4_y2_hide
	script plot4_hide_all

	script plot4_fit_ci_setpos
	script plot4_fit_ci_show
	script plot4_set_predpoints_lfit
	script plot4_cb_fitplot_checkvalue
	script plot4_set_second_y_to_middle
	plot4.gb_fit.setlabel "Linear prediction w/ci"
END

SCRIPT plot4_do_qfitci
BEGIN
	plot4_is_pc_type.setfalse
	plot4.tx_type.setlabel "Plot type: (Quadratic pred. w/ci)"
	script plot4_common_show

	script plot4_x2_hide
	script plot4_y2_hide
	script plot4_hide_all

	script plot4_fit_ci_setpos
	script plot4_fit_ci_show
	script plot4_set_predpoints_qfit
	script plot4_cb_fitplot_checkvalue
	script plot4_set_second_y_to_middle
	plot4.gb_fit.setlabel "Quadratic prediction w/ci"
END

SCRIPT plot4_do_fpfitci
BEGIN
	plot4_is_pc_type.setfalse
	plot4.tx_type.setlabel "Plot type: (Fractional poly. w/ci)"
	script plot4_common_show
	script plot4_x2_hide
	script plot4_y2_hide
	script plot4_hide_all

	//---
	script plot4_fit_ci_setpos
	script plot4_fit_ci_show
	// override some of the settings used in the scripts above
	script plot4_fit_range_hide
	script plot4_fit_pred_hide
	plot4.tx_ci_src.hide
	plot4.cb_ci_src.hide
	plot4.tx_ecommand.show
	plot4.cb_ecommand.show
	plot4.tx_level.setposition 210 163 65 .
	plot4.sp_level.setposition 280 163 99 .
	//---

	script plot4_cb_fitplot_checkvalue

	script plot4_cb_fitplot_checkvalue
	plot4.gb_line.setlabel "Lines (fit plot)"
	script plot4_set_second_y_to_middle
	plot4.gb_fit.setlabel "Fractional polynomial w/ci"
END

SCRIPT plot4_do_histogram
BEGIN
	plot4_is_pc_type.setfalse
	plot4.tx_type.setlabel "Plot type: (Histogram)"
	script plot4_common_show
	script plot4_x2_hide
	script plot4_y2_hide
	script plot4_hide_all

	plot4.tx_y.hide
	plot4.vn_y.hide

	// set locations
	plot4.gb_generic.setposition		200 100 550 155
	plot4.gb_common.setposition		200 265 550 80
	plot4.tx_blcolor.setposition		210 285  65 .
	plot4.cb_blcolor.setposition		280 285  82 .
	plot4.cl_blcolor.setposition		365 285  .  .
	plot4.tx_bfcolor.setposition		210 315  65 .
	plot4.cb_bfcolor.setposition		280 315  82 .
	plot4.cl_bfcolor.setposition		365 315  .  .
	plot4.tx_blwidth.setposition		392 285  65 .
	plot4.cb_blwidth.setposition		462 285  99 .
	plot4.tx_orientation.setposition	392 315  65 .
	plot4.cb_orientation.setposition	462 315  99 .

	// show controls
	plot4.gb_generic.show
	plot4.tx_histtype.show
	plot4.cb_histtype.show
	plot4.gb_datatype.show
	plot4.rb_continuous.show
	plot4.rb_discrete.show
	plot4.sp_gap.show
	plot4.tx_gap.show
	plot4.ed_datamin.show
	plot4.tx_datamin.show
	program plot4_datatype_ckeck
	plot4.ck_width_of_bins.show
	plot4.ed_width_of_bins.show
	script plot4_common_area_opts_show
	plot4.tx_bfcolor.show
	plot4.cb_bfcolor.show
	plot4.cb_bfcolor.withvalue plot4.cb_bfcolor.setvalue "@"
	plot4.gb_common.setlabel "Bars"

	script plot4_set_second_y_to_middle
	plot4.gb_generic.setlabel "Histogram"
END

SCRIPT plot4_cb_fitplot_checkvalue
BEGIN
	plot4.cb_fitplot.withvalue plot4.cb_fitplot.setvalue "@"
END

SCRIPT plot4_cb_ciplot_checkvalue
BEGIN
	plot4.cb_ciplot.withvalue plot4.cb_ciplot.setvalue "@"
END

SCRIPT plot4_fitplot_line_show
BEGIN
	script plot4_scatter_opts_hide
	script plot4_line_setLayout_5
	script plot4_line_show
	plot4.gb_line.setlabel "Lines (fit plot)"
	script plot4_cb_ciplot_checkvalue
END

SCRIPT plot4_fitplot_scatter_show
BEGIN
	script plot4_line_opts_hide
	script plot4_scatter_setLayout_4
	script plot4_scatter_show
	plot4.gb_marker.setlabel "Markers (fit plot)"
	script plot4_cb_ciplot_checkvalue
END

SCRIPT plot4_fitplot_connected_show
BEGIN
	script plot4_scatter_opts_hide
	script plot4_line_opts_hide
	script plot4_line_setLayout_5
	script plot4_line_show
	plot4.gb_line.setlabel "Lines (fit plot)"
	script plot4_scatter_setLayout_5
	plot4.gb_marker.setlabel "Markers (fit plot)"
	plot4.gb_marker.show
	plot4.tx_msymbol.show
	plot4.cb_msymbol.show
	plot4.tx_mcolor.show
	plot4.cb_mcolor.show
	plot4.cb_mcolor.withvalue plot4.cb_mcolor.setvalue "@"
	plot4.tx_msize.show
	plot4.cb_msize.show
	script plot4_cb_ciplot_checkvalue
END

PROGRAM plot4_ciplot_rarea_on
BEGIN
	if !H(plot4.cb_ciplot) {
		call plot4.gb_common.setlabel "CI options (Range area)"
		call script plot4_common_ci_opts_setpos
		call script plot4_ciplot_rarea_show
	}
END
PROGRAM plot4_ciplot_rbar_on
BEGIN
	if !H(plot4.cb_ciplot) {
		call plot4.gb_common.setlabel "CI options (Range bar)"
		call script plot4_common_ci_opts_setpos
		call script plot4_ciplot_rarea_show

	}
END
PROGRAM plot4_ciplot_rspike_on
BEGIN
	if !H(plot4.cb_ciplot) {
		call plot4.gb_common.setlabel "CI options (Range spike)"
		call script plot4_common_ci_opts_setpos
		call script plot4_ciplot_rspike_show
	}
END
PROGRAM plot4_ciplot_rcap_on
BEGIN
	if !H(plot4.cb_ciplot) {
		call plot4.gb_common.setlabel "CI options (Range cap)"
		call script plot4_common_ci_opts_setpos
		call script plot4_ciplot_rspike_show
	}
END
PROGRAM plot4_ciplot_rline_on
BEGIN
	if !H(plot4.cb_ciplot) {
		call plot4.gb_common.setlabel "CI options (Range line)"
		call script plot4_common_ci_opts_setpos
		call script plot4_ciplot_rline_show
	}
END

SCRIPT plot4_disable
BEGIN
	script plot4_do_none
	plot4.tx_type.disable
	plot4.cb_type.disable
END

SCRIPT plot4_enable
BEGIN
	plot4.tx_type.enable
	plot4.cb_type.enable
	plot4.cb_type.withvalue plot4.cb_type.setvalue "@"
END

PROGRAM plot4_line_opts
BEGIN
	if !Hcc(plot4.cb_clcolor) {
		optionarg /hidedefault plot4.cb_clcolor
	}
	if Hcc(plot4.cb_clcolor) {
		optionarg /quoted plot4.cl_clcolor
	}
	optionarg plot4.cb_clpattern
	optionarg plot4.cb_clwidth
	optionarg plot4.cb_connect
END

PROGRAM plot4_scatter_opts
BEGIN
	optionarg plot4.cb_msymbol
	if !Hcc(plot4.cb_mcolor) {
		optionarg /hidedefault plot4.cb_mcolor
	}
	if Hcc(plot4.cb_mcolor) {
		optionarg /quoted plot4.cl_mcolor
	}
	if ! plot4_is_weights | ! plot4_uses_scatter_weights {
		optionarg plot4.cb_msize_wgt
		optionarg plot4.cb_msize

		if plot4.ck_mlabel {
			require plot4.vn_mlabel
			optionarg plot4.vn_mlabel
			optionarg plot4.cb_mlsize
			if !Hcc(plot4.cb_mlcolor) {
				optionarg /hidedefault plot4.cb_mlcolor
			}
			if Hcc(plot4.cb_mlcolor) {
				optionarg /quoted plot4.cl_mlcolor
			}
			optionarg plot4.cb_mlposition
		}
	}
END

/* Common opts for area, bar, spike, and dropline */
PROGRAM plot4_common_area_opts
BEGIN
	if !Hcc(plot4.cb_blcolor) {
		optionarg /hidedefault plot4.cb_blcolor
	}
	if Hcc(plot4.cb_blcolor) {
		optionarg /quoted plot4.cl_blcolor
	}
  	optionarg plot4.cb_blwidth
  	optionarg /hidedefault plot4.en_base

	put plot4.cb_orientation " "

	// bfcolor is used with area and bar
	if !Hcc(plot4.cb_bfcolor) {
		optionarg /hidedefault plot4.cb_bfcolor
	}
	if Hcc(plot4.cb_bfcolor) {
		optionarg /quoted plot4.cl_bfcolor
	}

	// blpattern is used with area
	optionarg plot4.cb_blpattern

	// barwidth is used with bar
	optionarg /hidedefault plot4.en_barwidth

END

PROGRAM plot4_plotoptions
BEGIN
	option plot4.ck_yaxis2
	option plot4.ck_xaxis2
	option plot4.ck_sort
	optionarg plot4.sp_mband
	optionarg plot4.sp_mpoints

  	option plot4.ck_mean
  	option plot4.ck_nowieght
  	option plot4.ck_logit
  	option plot4.ck_noadjust
  	optionarg /hidedefault plot4.ed_bandwidth

  	put plot4.cb_function
  	optionarg plot4.ed_kernelwidth
  	optionarg /hidedefault plot4.sp_kerneleval

	optionarg /hidedefault plot4.cb_ecommand
  	if plot4.ck_fitrange 	///
  		& ! ( D(plot4.ck_fitrange) | H(plot4.ck_fitrange) ) {
		put "range("
		put plot4.ed_fitfrom " "
		put plot4.ed_fitto
		put ") "
	}
	optionarg /hidedefault plot4.sp_predpoints
	option plot4.rb_predx
	put plot4.cb_ci_src " "
	optionarg /hidedefault plot4.sp_level
	optionarg plot4.ed_regress_opt
	optionarg plot4.ed_pred_opt
	optionarg /hidedefault plot4.cb_fitplot
	optionarg /hidedefault plot4.cb_ciplot

	put plot4.cb_histtype " "
	option plot4.rb_discrete
	optionarg /hidedefault plot4.sp_gap
	optionarg plot4.ed_datamin
	optionarg plot4.sp_num_of_bins
	optionarg plot4.ed_width_of_bins

	put /program plot4_line_opts " "
	put /program plot4_common_area_opts " "
	optionarg /hidedefault plot4.cb_barbsize
	put /program plot4_scatter_opts " "
	option plot4.ck_headlabel
END

PROGRAM plot4_common_output
BEGIN
	put plot4.cb_type " "
	if ! plot4_is_pc_type {
		require plot4.vn_x
		if plot4.vn_y.isvisible() {
			varlist plot4.vn_y
		}
		if plot4.vn_y2.isvisible() {
			varlist plot4.vn_y2
		}
		put plot4.vn_x " "
	}
	if plot4_is_pc_type {
		require plot4.vn_x
		varlist plot4.vn_y
		put " " plot4.vn_x
		require plot4.vn_x2
		varlist plot4.vn_y2
		put " " plot4.vn_x2
	}
	ifexp plot4.ex_if
	inrange plot4.sp_from plot4.sp_to
	if plot4_is_weights & plot4_uses_scatter_weights {
		require plot4.vn_weightvar
		put " " "[" plot4.cb_msize_wgt "="
		put plot4.vn_weightvar
		put "] "
	}
	beginoptions
		put /program plot4_plotoptions
	endoptions
END

PROGRAM plot4_output
BEGIN
	if plot4.cb_type & plot4.cb_type.isenabled() {
		put "("
		put /program plot4_common_output
		put ") "
	}
END