addplot.idlg

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

	script addplot_hide_all

	script addplot_scatter_setLayout_3
	script addplot_scatter_show
	script addplot_orientation_show
	addplot.gb_marker.setlabel "Markers"
END

SCRIPT addplot_do_tsline
BEGIN
	addplot_is_pc_type.setfalse
	addplot.tx_type.setlabel "Plot type: (TS line)"
	script addplot_common_show

	script addplot_x2_hide
	script addplot_y2_hide
	script addplot_hide_all
	addplot.tx_x.hide
	addplot.vn_x.hide
	addplot.ck_sort.hide
	addplot.ck_xaxis2.setposition 200 20 . .
	addplot.ck_yaxis2.setposition 200 40 . .

	script addplot_line_setLayout_1
	script addplot_line_show
	addplot.gb_common.setlabel "Lines"
END

SCRIPT addplot_do_tsrline
BEGIN
	addplot_is_pc_type.setfalse
	addplot.tx_type.setlabel "Plot type: (TS range line)"
	script addplot_common_show
	script addplot_y2_show
	addplot.ck_xaxis2.setposition 200 20 . .
	addplot.ck_yaxis2.setposition 200 40 . .

	script addplot_x2_hide
	script addplot_hide_all
	addplot.tx_x.hide
	addplot.vn_x.hide
	addplot.ck_sort.hide

	script addplot_line_setLayout_1
	script addplot_line_show
	addplot.gb_common.setlabel "Lines"
END

SCRIPT addplot_do_mband
BEGIN
	addplot_is_pc_type.setfalse
	addplot.tx_type.setlabel "Plot type: (Median-band)"
	script addplot_common_show

	script addplot_x2_hide
	script addplot_y2_hide
	script addplot_hide_all

	script addplot_mbands_show
	script addplot_line_setLayout_2
	script addplot_line_show
	script addplot_set_second_y_to_middle
	addplot.gb_generic.setlabel "Median-band"
END

SCRIPT addplot_do_mspline
BEGIN
	addplot_is_pc_type.setfalse
	addplot.tx_type.setlabel "Plot type: (Median-spline)"
	script addplot_common_show

	script addplot_x2_hide
	script addplot_y2_hide
	script addplot_hide_all

	script addplot_mbands_show
	script addplot_mpoints_show
	script addplot_line_setLayout_2
	script addplot_line_show
	script addplot_set_second_y_to_middle
	addplot.gb_generic.setlabel "Median-spline"
END

SCRIPT addplot_do_lowess
BEGIN
	addplot_is_pc_type.setfalse
	addplot.tx_type.setlabel "Plot type: (Lowess)"
	script addplot_common_show

	script addplot_x2_hide
	script addplot_y2_hide
	script addplot_hide_all

	script addplot_line_setLayout_3
	script addplot_line_show
	script addplot_lowess_show
	script addplot_set_second_y_to_middle
	addplot.gb_generic.setlabel "Lowess"
END

SCRIPT addplot_do_kdensity
BEGIN
	addplot_is_pc_type.setfalse
	addplot.tx_type.setlabel "Plot type: (Kernel density)"
	script addplot_common_show
	script addplot_x2_hide
	script addplot_y2_hide
	script addplot_hide_all

	addplot.tx_y.hide
	addplot.vn_y.hide

	script addplot_line_setLayout_3
	script addplot_line_show
	script addplot_kdensity_show
	script addplot_set_second_y_to_middle
	addplot.gb_generic.setlabel "Kernel density"
END

SCRIPT addplot_do_lfit
BEGIN
	addplot_is_pc_type.setfalse
	addplot.tx_type.setlabel "Plot type: (Linear prediction)"
	script addplot_common_show
	script addplot_x2_hide
	script addplot_y2_hide
	script addplot_hide_all

	script addplot_fit_setpos
	script addplot_fit_show
	script addplot_set_predpoints_lfit
	script addplot_line_setLayout_4
	script addplot_line_show
	addplot.gb_line.setlabel "Lines (fit plot)"
	script addplot_set_second_y_to_middle
	addplot.gb_fit.setlabel "Linear prediction"
END

SCRIPT addplot_do_qfit
BEGIN
	addplot_is_pc_type.setfalse
	addplot.tx_type.setlabel "Plot type: (Quadratic pred.)"
	script addplot_common_show
	script addplot_x2_hide
	script addplot_y2_hide
	script addplot_hide_all

	script addplot_fit_setpos
	script addplot_fit_show
	script addplot_set_predpoints_qfit
	script addplot_line_setLayout_4
	script addplot_line_show
	addplot.gb_line.setlabel "Lines (fit plot)"
	script addplot_set_second_y_to_middle
	addplot.gb_fit.setlabel "Quadratic prediction"
END

SCRIPT addplot_do_fpfit
BEGIN
	addplot_is_pc_type.setfalse
	addplot.tx_type.setlabel "Plot type: (Fractional poly.)"
	script addplot_common_show
	script addplot_x2_hide
	script addplot_y2_hide
	script addplot_hide_all

	script addplot_fit_setpos
	addplot.gb_fit.show
	addplot.tx_ecommand.show
	addplot.cb_ecommand.show
	addplot.tx_regress_opt.show
	addplot.ed_regress_opt.show
	addplot.tx_pred_opt.show
	addplot.ed_pred_opt.show

	script addplot_line_setLayout_4
	script addplot_line_show
	addplot.gb_line.setlabel "Lines (fit plot)"
	script addplot_set_second_y_to_middle
	addplot.gb_fit.setlabel "Fractional polynomial"
END

SCRIPT addplot_do_lfitci
BEGIN
	addplot_is_pc_type.setfalse
	addplot.tx_type.setlabel "Plot type: (Linear pred. w/ci)"
	script addplot_common_show

	script addplot_x2_hide
	script addplot_y2_hide
	script addplot_hide_all

	script addplot_fit_ci_setpos
	script addplot_fit_ci_show
	script addplot_set_predpoints_lfit
	script addplot_cb_fitplot_checkvalue
	script addplot_set_second_y_to_middle
	addplot.gb_fit.setlabel "Linear prediction w/ci"
END

SCRIPT addplot_do_qfitci
BEGIN
	addplot_is_pc_type.setfalse
	addplot.tx_type.setlabel "Plot type: (Quadratic pred. w/ci)"
	script addplot_common_show

	script addplot_x2_hide
	script addplot_y2_hide
	script addplot_hide_all

	script addplot_fit_ci_setpos
	script addplot_fit_ci_show
	script addplot_set_predpoints_qfit
	script addplot_cb_fitplot_checkvalue
	script addplot_set_second_y_to_middle
	addplot.gb_fit.setlabel "Quadratic prediction w/ci"
END

SCRIPT addplot_do_fpfitci
BEGIN
	addplot_is_pc_type.setfalse
	addplot.tx_type.setlabel "Plot type: (Fractional poly. w/ci)"
	script addplot_common_show
	script addplot_x2_hide
	script addplot_y2_hide
	script addplot_hide_all

	//---
	script addplot_fit_ci_setpos
	script addplot_fit_ci_show
	// override some of the settings used in the scripts above
	script addplot_fit_range_hide
	script addplot_fit_pred_hide
	addplot.tx_ci_src.hide
	addplot.cb_ci_src.hide
	addplot.tx_ecommand.show
	addplot.cb_ecommand.show
	addplot.tx_level.setposition 210 163 65 .
	addplot.sp_level.setposition 280 163 99 .
	//---

	script addplot_cb_fitplot_checkvalue

	script addplot_cb_fitplot_checkvalue
	addplot.gb_line.setlabel "Lines (fit plot)"
	script addplot_set_second_y_to_middle
	addplot.gb_fit.setlabel "Fractional polynomial w/ci"
END

SCRIPT addplot_do_histogram
BEGIN
	addplot_is_pc_type.setfalse
	addplot.tx_type.setlabel "Plot type: (Histogram)"
	script addplot_common_show
	script addplot_x2_hide
	script addplot_y2_hide
	script addplot_hide_all

	addplot.tx_y.hide
	addplot.vn_y.hide

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

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

	script addplot_set_second_y_to_middle
	addplot.gb_generic.setlabel "Histogram"
END

SCRIPT addplot_cb_fitplot_checkvalue
BEGIN
	addplot.cb_fitplot.withvalue addplot.cb_fitplot.setvalue "@"
END

SCRIPT addplot_cb_ciplot_checkvalue
BEGIN
	addplot.cb_ciplot.withvalue addplot.cb_ciplot.setvalue "@"
END

SCRIPT addplot_fitplot_line_show
BEGIN
	script addplot_scatter_opts_hide
	script addplot_line_setLayout_5
	script addplot_line_show
	addplot.gb_line.setlabel "Lines (fit plot)"
	script addplot_cb_ciplot_checkvalue
END

SCRIPT addplot_fitplot_scatter_show
BEGIN
	script addplot_line_opts_hide
	script addplot_scatter_setLayout_4
	script addplot_scatter_show
	addplot.gb_marker.setlabel "Markers (fit plot)"
	script addplot_cb_ciplot_checkvalue
END

SCRIPT addplot_fitplot_connected_show
BEGIN
	script addplot_scatter_opts_hide
	script addplot_line_opts_hide
	script addplot_line_setLayout_5
	script addplot_line_show
	addplot.gb_line.setlabel "Lines (fit plot)"
	script addplot_scatter_setLayout_5
	addplot.gb_marker.setlabel "Markers (fit plot)"
	addplot.gb_marker.show
	addplot.tx_msymbol.show
	addplot.cb_msymbol.show
	addplot.tx_mcolor.show
	addplot.cb_mcolor.show
	addplot.cb_mcolor.withvalue addplot.cb_mcolor.setvalue "@"
	addplot.tx_msize.show
	addplot.cb_msize.show
	script addplot_cb_ciplot_checkvalue
END

PROGRAM addplot_ciplot_rarea_on
BEGIN
	if !H(addplot.cb_ciplot) {
		call addplot.gb_common.setlabel "CI options (Range area)"
		call script addplot_common_ci_opts_setpos
		call script addplot_ciplot_rarea_show
	}
END
PROGRAM addplot_ciplot_rbar_on
BEGIN
	if !H(addplot.cb_ciplot) {
		call addplot.gb_common.setlabel "CI options (Range bar)"
		call script addplot_common_ci_opts_setpos
		call script addplot_ciplot_rarea_show

	}
END
PROGRAM addplot_ciplot_rspike_on
BEGIN
	if !H(addplot.cb_ciplot) {
		call addplot.gb_common.setlabel "CI options (Range spike)"
		call script addplot_common_ci_opts_setpos
		call script addplot_ciplot_rspike_show
	}
END
PROGRAM addplot_ciplot_rcap_on
BEGIN
	if !H(addplot.cb_ciplot) {
		call addplot.gb_common.setlabel "CI options (Range cap)"
		call script addplot_common_ci_opts_setpos
		call script addplot_ciplot_rspike_show
	}
END
PROGRAM addplot_ciplot_rline_on
BEGIN
	if !H(addplot.cb_ciplot) {
		call addplot.gb_common.setlabel "CI options (Range line)"
		call script addplot_common_ci_opts_setpos
		call script addplot_ciplot_rline_show
	}
END

SCRIPT addplot_disable
BEGIN
	script addplot_do_none
	addplot.tx_type.disable
	addplot.cb_type.disable
END

SCRIPT addplot_enable
BEGIN
	addplot.tx_type.enable
	addplot.cb_type.enable
	addplot.cb_type.withvalue addplot.cb_type.setvalue "@"
END

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

PROGRAM addplot_scatter_opts
BEGIN
	optionarg addplot.cb_msymbol
	if !Hcc(addplot.cb_mcolor) {
		optionarg /hidedefault addplot.cb_mcolor
	}
	if Hcc(addplot.cb_mcolor) {
		optionarg /quoted addplot.cl_mcolor
	}
	if ! addplot_is_weights | ! addplot_uses_scatter_weights {
		optionarg addplot.cb_msize_wgt
		optionarg addplot.cb_msize

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

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

	put addplot.cb_orientation " "

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

	// blpattern is used with area
	optionarg addplot.cb_blpattern

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

END

PROGRAM addplot_plotoptions
BEGIN
	option addplot.ck_yaxis2
	option addplot.ck_xaxis2
	option addplot.ck_sort
	optionarg addplot.sp_mband
	optionarg addplot.sp_mpoints

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

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

	optionarg /hidedefault addplot.cb_ecommand
  	if addplo