plot2.idlg

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

	script plot2_mbands_show
	script plot2_line_setLayout_2
	script plot2_line_show
	script plot2_set_second_y_to_middle
	plot2.gb_generic.setlabel "Median-band"
END

SCRIPT plot2_do_mspline
BEGIN
	plot2_is_pc_type.setfalse
	plot2.tx_type.setlabel "Plot type: (Median-spline)"
	script plot2_common_show

	script plot2_x2_hide
	script plot2_y2_hide
	script plot2_hide_all

	script plot2_mbands_show
	script plot2_mpoints_show
	script plot2_line_setLayout_2
	script plot2_line_show
	script plot2_set_second_y_to_middle
	plot2.gb_generic.setlabel "Median-spline"
END

SCRIPT plot2_do_lowess
BEGIN
	plot2_is_pc_type.setfalse
	plot2.tx_type.setlabel "Plot type: (Lowess)"
	script plot2_common_show

	script plot2_x2_hide
	script plot2_y2_hide
	script plot2_hide_all

	script plot2_line_setLayout_3
	script plot2_line_show
	script plot2_lowess_show
	script plot2_set_second_y_to_middle
	plot2.gb_generic.setlabel "Lowess"
END

SCRIPT plot2_do_kdensity
BEGIN
	plot2_is_pc_type.setfalse
	plot2.tx_type.setlabel "Plot type: (Kernel density)"
	script plot2_common_show
	script plot2_x2_hide
	script plot2_y2_hide
	script plot2_hide_all

	plot2.tx_y.hide
	plot2.vn_y.hide

	script plot2_line_setLayout_3
	script plot2_line_show
	script plot2_kdensity_show
	script plot2_set_second_y_to_middle
	plot2.gb_generic.setlabel "Kernel density"
END

SCRIPT plot2_do_lfit
BEGIN
	plot2_is_pc_type.setfalse
	plot2.tx_type.setlabel "Plot type: (Linear prediction)"
	script plot2_common_show
	script plot2_x2_hide
	script plot2_y2_hide
	script plot2_hide_all

	script plot2_fit_setpos
	script plot2_fit_show
	script plot2_set_predpoints_lfit
	script plot2_line_setLayout_4
	script plot2_line_show
	plot2.gb_line.setlabel "Lines (fit plot)"
	script plot2_set_second_y_to_middle
	plot2.gb_fit.setlabel "Linear prediction"
END

SCRIPT plot2_do_qfit
BEGIN
	plot2_is_pc_type.setfalse
	plot2.tx_type.setlabel "Plot type: (Quadratic pred.)"
	script plot2_common_show
	script plot2_x2_hide
	script plot2_y2_hide
	script plot2_hide_all

	script plot2_fit_setpos
	script plot2_fit_show
	script plot2_set_predpoints_qfit
	script plot2_line_setLayout_4
	script plot2_line_show
	plot2.gb_line.setlabel "Lines (fit plot)"
	script plot2_set_second_y_to_middle
	plot2.gb_fit.setlabel "Quadratic prediction"
END

SCRIPT plot2_do_fpfit
BEGIN
	plot2_is_pc_type.setfalse
	plot2.tx_type.setlabel "Plot type: (Fractional poly.)"
	script plot2_common_show
	script plot2_x2_hide
	script plot2_y2_hide
	script plot2_hide_all

	script plot2_fit_setpos
	plot2.gb_fit.show
	plot2.tx_ecommand.show
	plot2.cb_ecommand.show
	plot2.tx_regress_opt.show
	plot2.ed_regress_opt.show
	plot2.tx_pred_opt.show
	plot2.ed_pred_opt.show

	script plot2_line_setLayout_4
	script plot2_line_show
	plot2.gb_line.setlabel "Lines (fit plot)"
	script plot2_set_second_y_to_middle
	plot2.gb_fit.setlabel "Fractional polynomial"
END

SCRIPT plot2_do_lfitci
BEGIN
	plot2_is_pc_type.setfalse
	plot2.tx_type.setlabel "Plot type: (Linear pred. w/ci)"
	script plot2_common_show

	script plot2_x2_hide
	script plot2_y2_hide
	script plot2_hide_all

	script plot2_fit_ci_setpos
	script plot2_fit_ci_show
	script plot2_set_predpoints_lfit
	script plot2_cb_fitplot_checkvalue
	script plot2_set_second_y_to_middle
	plot2.gb_fit.setlabel "Linear prediction w/ci"
END

SCRIPT plot2_do_qfitci
BEGIN
	plot2_is_pc_type.setfalse
	plot2.tx_type.setlabel "Plot type: (Quadratic pred. w/ci)"
	script plot2_common_show

	script plot2_x2_hide
	script plot2_y2_hide
	script plot2_hide_all

	script plot2_fit_ci_setpos
	script plot2_fit_ci_show
	script plot2_set_predpoints_qfit
	script plot2_cb_fitplot_checkvalue
	script plot2_set_second_y_to_middle
	plot2.gb_fit.setlabel "Quadratic prediction w/ci"
END

SCRIPT plot2_do_fpfitci
BEGIN
	plot2_is_pc_type.setfalse
	plot2.tx_type.setlabel "Plot type: (Fractional poly. w/ci)"
	script plot2_common_show
	script plot2_x2_hide
	script plot2_y2_hide
	script plot2_hide_all

	//---
	script plot2_fit_ci_setpos
	script plot2_fit_ci_show
	// override some of the settings used in the scripts above
	script plot2_fit_range_hide
	script plot2_fit_pred_hide
	plot2.tx_ci_src.hide
	plot2.cb_ci_src.hide
	plot2.tx_ecommand.show
	plot2.cb_ecommand.show
	plot2.tx_level.setposition 210 163 65 .
	plot2.sp_level.setposition 280 163 99 .
	//---

	script plot2_cb_fitplot_checkvalue

	script plot2_cb_fitplot_checkvalue
	plot2.gb_line.setlabel "Lines (fit plot)"
	script plot2_set_second_y_to_middle
	plot2.gb_fit.setlabel "Fractional polynomial w/ci"
END

SCRIPT plot2_do_histogram
BEGIN
	plot2_is_pc_type.setfalse
	plot2.tx_type.setlabel "Plot type: (Histogram)"
	script plot2_common_show
	script plot2_x2_hide
	script plot2_y2_hide
	script plot2_hide_all

	plot2.tx_y.hide
	plot2.vn_y.hide

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

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

	script plot2_set_second_y_to_middle
	plot2.gb_generic.setlabel "Histogram"
END

SCRIPT plot2_cb_fitplot_checkvalue
BEGIN
	plot2.cb_fitplot.withvalue plot2.cb_fitplot.setvalue "@"
END

SCRIPT plot2_cb_ciplot_checkvalue
BEGIN
	plot2.cb_ciplot.withvalue plot2.cb_ciplot.setvalue "@"
END

SCRIPT plot2_fitplot_line_show
BEGIN
	script plot2_scatter_opts_hide
	script plot2_line_setLayout_5
	script plot2_line_show
	plot2.gb_line.setlabel "Lines (fit plot)"
	script plot2_cb_ciplot_checkvalue
END

SCRIPT plot2_fitplot_scatter_show
BEGIN
	script plot2_line_opts_hide
	script plot2_scatter_setLayout_4
	script plot2_scatter_show
	plot2.gb_marker.setlabel "Markers (fit plot)"
	script plot2_cb_ciplot_checkvalue
END

SCRIPT plot2_fitplot_connected_show
BEGIN
	script plot2_scatter_opts_hide
	script plot2_line_opts_hide
	script plot2_line_setLayout_5
	script plot2_line_show
	plot2.gb_line.setlabel "Lines (fit plot)"
	script plot2_scatter_setLayout_5
	plot2.gb_marker.setlabel "Markers (fit plot)"
	plot2.gb_marker.show
	plot2.tx_msymbol.show
	plot2.cb_msymbol.show
	plot2.tx_mcolor.show
	plot2.cb_mcolor.show
	plot2.cb_mcolor.withvalue plot2.cb_mcolor.setvalue "@"
	plot2.tx_msize.show
	plot2.cb_msize.show
	script plot2_cb_ciplot_checkvalue
END

PROGRAM plot2_ciplot_rarea_on
BEGIN
	if !H(plot2.cb_ciplot) {
		call plot2.gb_common.setlabel "CI options (Range area)"
		call script plot2_common_ci_opts_setpos
		call script plot2_ciplot_rarea_show
	}
END
PROGRAM plot2_ciplot_rbar_on
BEGIN
	if !H(plot2.cb_ciplot) {
		call plot2.gb_common.setlabel "CI options (Range bar)"
		call script plot2_common_ci_opts_setpos
		call script plot2_ciplot_rarea_show

	}
END
PROGRAM plot2_ciplot_rspike_on
BEGIN
	if !H(plot2.cb_ciplot) {
		call plot2.gb_common.setlabel "CI options (Range spike)"
		call script plot2_common_ci_opts_setpos
		call script plot2_ciplot_rspike_show
	}
END
PROGRAM plot2_ciplot_rcap_on
BEGIN
	if !H(plot2.cb_ciplot) {
		call plot2.gb_common.setlabel "CI options (Range cap)"
		call script plot2_common_ci_opts_setpos
		call script plot2_ciplot_rspike_show
	}
END
PROGRAM plot2_ciplot_rline_on
BEGIN
	if !H(plot2.cb_ciplot) {
		call plot2.gb_common.setlabel "CI options (Range line)"
		call script plot2_common_ci_opts_setpos
		call script plot2_ciplot_rline_show
	}
END

SCRIPT plot2_disable
BEGIN
	script plot2_do_none
	plot2.tx_type.disable
	plot2.cb_type.disable
END

SCRIPT plot2_enable
BEGIN
	plot2.tx_type.enable
	plot2.cb_type.enable
	plot2.cb_type.withvalue plot2.cb_type.setvalue "@"
END

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

PROGRAM plot2_scatter_opts
BEGIN
	optionarg plot2.cb_msymbol
	if !Hcc(plot2.cb_mcolor) {
		optionarg /hidedefault plot2.cb_mcolor
	}
	if Hcc(plot2.cb_mcolor) {
		optionarg /quoted plot2.cl_mcolor
	}
	if ! plot2_is_weights | ! plot2_uses_scatter_weights {
		optionarg plot2.cb_msize_wgt
		optionarg plot2.cb_msize

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

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

	put plot2.cb_orientation " "

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

	// blpattern is used with area
	optionarg plot2.cb_blpattern

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

END

PROGRAM plot2_plotoptions
BEGIN
	option plot2.ck_yaxis2
	option plot2.ck_xaxis2
	option plot2.ck_sort
	optionarg plot2.sp_mband
	optionarg plot2.sp_mpoints

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

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

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

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

	put /program plot2_line_opts " "
	put /program plot2_common_area_opts " "
	optionarg /hidedefault plot2.cb_barbsize
	put /program plot2_scatter_opts " "
	option plot2.ck_headlabel
END

PROGRAM plot2_common_output
BEGIN
	put plot2.cb_type " "
	if ! plot2_is_pc_type {
		require plot2.vn_x
		if plot2.vn_y.isvisible() {
			varlist plot2.vn_y
		}
		if plot2.vn_y2.isvisible() {
			varlist plot2.vn_y2
		}
		put plot2.vn_x " "
	}
	if plot2_is_pc_type {
		require plot2.vn_x
		varlist plot2.vn_y
		put " " plot2.vn_x
		require plot2.vn_x2
		varlist plot2.vn_y2
		put " " plot2.vn_x2
	}
	ifexp plot2.ex_if
	inrange plot2.sp_from plot2.sp_to
	if plot2_is_weights & plot2_uses_scatter_weights {
		require plot2.vn_weightvar
		put " " "[" plot2.cb_msize_wgt "="
		put plot2.vn_weightvar
		put "] "
	}
	beginoptions
		put /program plot2_plotoptions
	endoptions
END

PROGRAM plot2_output
BEGIN
	if plot2.cb_type & plot2.cb_type.isenabled() {
		put "("
		put /program plot2_common_output
		put ") "
	}
END