plot3.idlg

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

	script plot3_mbands_show
	script plot3_line_setLayout_2
	script plot3_line_show
	script plot3_set_second_y_to_middle
	plot3.gb_generic.setlabel "Median-band"
END

SCRIPT plot3_do_mspline
BEGIN
	plot3_is_pc_type.setfalse
	plot3.tx_type.setlabel "Plot type: (Median-spline)"
	script plot3_common_show

	script plot3_x2_hide
	script plot3_y2_hide
	script plot3_hide_all

	script plot3_mbands_show
	script plot3_mpoints_show
	script plot3_line_setLayout_2
	script plot3_line_show
	script plot3_set_second_y_to_middle
	plot3.gb_generic.setlabel "Median-spline"
END

SCRIPT plot3_do_lowess
BEGIN
	plot3_is_pc_type.setfalse
	plot3.tx_type.setlabel "Plot type: (Lowess)"
	script plot3_common_show

	script plot3_x2_hide
	script plot3_y2_hide
	script plot3_hide_all

	script plot3_line_setLayout_3
	script plot3_line_show
	script plot3_lowess_show
	script plot3_set_second_y_to_middle
	plot3.gb_generic.setlabel "Lowess"
END

SCRIPT plot3_do_kdensity
BEGIN
	plot3_is_pc_type.setfalse
	plot3.tx_type.setlabel "Plot type: (Kernel density)"
	script plot3_common_show
	script plot3_x2_hide
	script plot3_y2_hide
	script plot3_hide_all

	plot3.tx_y.hide
	plot3.vn_y.hide

	script plot3_line_setLayout_3
	script plot3_line_show
	script plot3_kdensity_show
	script plot3_set_second_y_to_middle
	plot3.gb_generic.setlabel "Kernel density"
END

SCRIPT plot3_do_lfit
BEGIN
	plot3_is_pc_type.setfalse
	plot3.tx_type.setlabel "Plot type: (Linear prediction)"
	script plot3_common_show
	script plot3_x2_hide
	script plot3_y2_hide
	script plot3_hide_all

	script plot3_fit_setpos
	script plot3_fit_show
	script plot3_set_predpoints_lfit
	script plot3_line_setLayout_4
	script plot3_line_show
	plot3.gb_line.setlabel "Lines (fit plot)"
	script plot3_set_second_y_to_middle
	plot3.gb_fit.setlabel "Linear prediction"
END

SCRIPT plot3_do_qfit
BEGIN
	plot3_is_pc_type.setfalse
	plot3.tx_type.setlabel "Plot type: (Quadratic pred.)"
	script plot3_common_show
	script plot3_x2_hide
	script plot3_y2_hide
	script plot3_hide_all

	script plot3_fit_setpos
	script plot3_fit_show
	script plot3_set_predpoints_qfit
	script plot3_line_setLayout_4
	script plot3_line_show
	plot3.gb_line.setlabel "Lines (fit plot)"
	script plot3_set_second_y_to_middle
	plot3.gb_fit.setlabel "Quadratic prediction"
END

SCRIPT plot3_do_fpfit
BEGIN
	plot3_is_pc_type.setfalse
	plot3.tx_type.setlabel "Plot type: (Fractional poly.)"
	script plot3_common_show
	script plot3_x2_hide
	script plot3_y2_hide
	script plot3_hide_all

	script plot3_fit_setpos
	plot3.gb_fit.show
	plot3.tx_ecommand.show
	plot3.cb_ecommand.show
	plot3.tx_regress_opt.show
	plot3.ed_regress_opt.show
	plot3.tx_pred_opt.show
	plot3.ed_pred_opt.show

	script plot3_line_setLayout_4
	script plot3_line_show
	plot3.gb_line.setlabel "Lines (fit plot)"
	script plot3_set_second_y_to_middle
	plot3.gb_fit.setlabel "Fractional polynomial"
END

SCRIPT plot3_do_lfitci
BEGIN
	plot3_is_pc_type.setfalse
	plot3.tx_type.setlabel "Plot type: (Linear pred. w/ci)"
	script plot3_common_show

	script plot3_x2_hide
	script plot3_y2_hide
	script plot3_hide_all

	script plot3_fit_ci_setpos
	script plot3_fit_ci_show
	script plot3_set_predpoints_lfit
	script plot3_cb_fitplot_checkvalue
	script plot3_set_second_y_to_middle
	plot3.gb_fit.setlabel "Linear prediction w/ci"
END

SCRIPT plot3_do_qfitci
BEGIN
	plot3_is_pc_type.setfalse
	plot3.tx_type.setlabel "Plot type: (Quadratic pred. w/ci)"
	script plot3_common_show

	script plot3_x2_hide
	script plot3_y2_hide
	script plot3_hide_all

	script plot3_fit_ci_setpos
	script plot3_fit_ci_show
	script plot3_set_predpoints_qfit
	script plot3_cb_fitplot_checkvalue
	script plot3_set_second_y_to_middle
	plot3.gb_fit.setlabel "Quadratic prediction w/ci"
END

SCRIPT plot3_do_fpfitci
BEGIN
	plot3_is_pc_type.setfalse
	plot3.tx_type.setlabel "Plot type: (Fractional poly. w/ci)"
	script plot3_common_show
	script plot3_x2_hide
	script plot3_y2_hide
	script plot3_hide_all

	//---
	script plot3_fit_ci_setpos
	script plot3_fit_ci_show
	// override some of the settings used in the scripts above
	script plot3_fit_range_hide
	script plot3_fit_pred_hide
	plot3.tx_ci_src.hide
	plot3.cb_ci_src.hide
	plot3.tx_ecommand.show
	plot3.cb_ecommand.show
	plot3.tx_level.setposition 210 163 65 .
	plot3.sp_level.setposition 280 163 99 .
	//---

	script plot3_cb_fitplot_checkvalue

	script plot3_cb_fitplot_checkvalue
	plot3.gb_line.setlabel "Lines (fit plot)"
	script plot3_set_second_y_to_middle
	plot3.gb_fit.setlabel "Fractional polynomial w/ci"
END

SCRIPT plot3_do_histogram
BEGIN
	plot3_is_pc_type.setfalse
	plot3.tx_type.setlabel "Plot type: (Histogram)"
	script plot3_common_show
	script plot3_x2_hide
	script plot3_y2_hide
	script plot3_hide_all

	plot3.tx_y.hide
	plot3.vn_y.hide

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

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

	script plot3_set_second_y_to_middle
	plot3.gb_generic.setlabel "Histogram"
END

SCRIPT plot3_cb_fitplot_checkvalue
BEGIN
	plot3.cb_fitplot.withvalue plot3.cb_fitplot.setvalue "@"
END

SCRIPT plot3_cb_ciplot_checkvalue
BEGIN
	plot3.cb_ciplot.withvalue plot3.cb_ciplot.setvalue "@"
END

SCRIPT plot3_fitplot_line_show
BEGIN
	script plot3_scatter_opts_hide
	script plot3_line_setLayout_5
	script plot3_line_show
	plot3.gb_line.setlabel "Lines (fit plot)"
	script plot3_cb_ciplot_checkvalue
END

SCRIPT plot3_fitplot_scatter_show
BEGIN
	script plot3_line_opts_hide
	script plot3_scatter_setLayout_4
	script plot3_scatter_show
	plot3.gb_marker.setlabel "Markers (fit plot)"
	script plot3_cb_ciplot_checkvalue
END

SCRIPT plot3_fitplot_connected_show
BEGIN
	script plot3_scatter_opts_hide
	script plot3_line_opts_hide
	script plot3_line_setLayout_5
	script plot3_line_show
	plot3.gb_line.setlabel "Lines (fit plot)"
	script plot3_scatter_setLayout_5
	plot3.gb_marker.setlabel "Markers (fit plot)"
	plot3.gb_marker.show
	plot3.tx_msymbol.show
	plot3.cb_msymbol.show
	plot3.tx_mcolor.show
	plot3.cb_mcolor.show
	plot3.cb_mcolor.withvalue plot3.cb_mcolor.setvalue "@"
	plot3.tx_msize.show
	plot3.cb_msize.show
	script plot3_cb_ciplot_checkvalue
END

PROGRAM plot3_ciplot_rarea_on
BEGIN
	if !H(plot3.cb_ciplot) {
		call plot3.gb_common.setlabel "CI options (Range area)"
		call script plot3_common_ci_opts_setpos
		call script plot3_ciplot_rarea_show
	}
END
PROGRAM plot3_ciplot_rbar_on
BEGIN
	if !H(plot3.cb_ciplot) {
		call plot3.gb_common.setlabel "CI options (Range bar)"
		call script plot3_common_ci_opts_setpos
		call script plot3_ciplot_rarea_show

	}
END
PROGRAM plot3_ciplot_rspike_on
BEGIN
	if !H(plot3.cb_ciplot) {
		call plot3.gb_common.setlabel "CI options (Range spike)"
		call script plot3_common_ci_opts_setpos
		call script plot3_ciplot_rspike_show
	}
END
PROGRAM plot3_ciplot_rcap_on
BEGIN
	if !H(plot3.cb_ciplot) {
		call plot3.gb_common.setlabel "CI options (Range cap)"
		call script plot3_common_ci_opts_setpos
		call script plot3_ciplot_rspike_show
	}
END
PROGRAM plot3_ciplot_rline_on
BEGIN
	if !H(plot3.cb_ciplot) {
		call plot3.gb_common.setlabel "CI options (Range line)"
		call script plot3_common_ci_opts_setpos
		call script plot3_ciplot_rline_show
	}
END

SCRIPT plot3_disable
BEGIN
	script plot3_do_none
	plot3.tx_type.disable
	plot3.cb_type.disable
END

SCRIPT plot3_enable
BEGIN
	plot3.tx_type.enable
	plot3.cb_type.enable
	plot3.cb_type.withvalue plot3.cb_type.setvalue "@"
END

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

PROGRAM plot3_scatter_opts
BEGIN
	optionarg plot3.cb_msymbol
	if !Hcc(plot3.cb_mcolor) {
		optionarg /hidedefault plot3.cb_mcolor
	}
	if Hcc(plot3.cb_mcolor) {
		optionarg /quoted plot3.cl_mcolor
	}
	if ! plot3_is_weights | ! plot3_uses_scatter_weights {
		optionarg plot3.cb_msize_wgt
		optionarg plot3.cb_msize

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

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

	put plot3.cb_orientation " "

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

	// blpattern is used with area
	optionarg plot3.cb_blpattern

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

END

PROGRAM plot3_plotoptions
BEGIN
	option plot3.ck_yaxis2
	option plot3.ck_xaxis2
	option plot3.ck_sort
	optionarg plot3.sp_mband
	optionarg plot3.sp_mpoints

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

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

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

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

	put /program plot3_line_opts " "
	put /program plot3_common_area_opts " "
	optionarg /hidedefault plot3.cb_barbsize
	put /program plot3_scatter_opts " "
	option plot3.ck_headlabel
END

PROGRAM plot3_common_output
BEGIN
	put plot3.cb_type " "
	if ! plot3_is_pc_type {
		require plot3.vn_x
		if plot3.vn_y.isvisible() {
			varlist plot3.vn_y
		}
		if plot3.vn_y2.isvisible() {
			varlist plot3.vn_y2
		}
		put plot3.vn_x " "
	}
	if plot3_is_pc_type {
		require plot3.vn_x
		varlist plot3.vn_y
		put " " plot3.vn_x
		require plot3.vn_x2
		varlist plot3.vn_y2
		put " " plot3.vn_x2
	}
	ifexp plot3.ex_if
	inrange plot3.sp_from plot3.sp_to
	if plot3_is_weights & plot3_uses_scatter_weights {
		require plot3.vn_weightvar
		put " " "[" plot3.cb_msize_wgt "="
		put plot3.vn_weightvar
		put "] "
	}
	beginoptions
		put /program plot3_plotoptions
	endoptions
END

PROGRAM plot3_output
BEGIN
	if plot3.cb_type & plot3.cb_type.isenabled() {
		put "("
		put /program plot3_common_output
		put ") "
	}
END