plot_bode.pro

IDL语言编写的用于天文自适应光学仿真的软件CAOS V6.0的第一部分。

; $Id: plot_bode.pro,v 1.1 2002/03/19 11:19:56 riccardi Exp $

pro plot_bode, f_vec, complex_tf, _EXTRA=extra_keyw, NO_UNWRAP=no_unwrap,$
				COMPARISON=comparison, AYRANGE=ayrange, PYRANGE=pyrange, $
				AUNITS=aunits



	on_error, 2
	!p.multi[0]=0
	if !p.multi[1]*!p.multi[2] lt 2 then begin
		save_pmulti=!p.multi
		!p.multi=[0,2,1]
	endif

	if keyword_set(comparison) then begin
		!p.multi[0]=0
		plot_amp, f_vec, complex_tf, _EXTRA=extra_keyw, /comp
		!p.multi[0]=1
		plot_phase, f_vec, complex_tf, _EXTRA=extra_keyw, NO_UNWRAP=no_unwrap,$
		/comp
	endif else begin
		if keyword_set(ayrange) then begin
			plot_amp, f_vec, complex_tf, _EXTRA=extra_keyw,$
		;	xsty=1,ysty=1,$
					yrange=ayrange, aunits=aunits
		endif else begin
			plot_amp, f_vec, complex_tf, _EXTRA=extra_keyw,aunits=aunits
		;,xsty=1,ysty=1
		endelse
		if keyword_set(pyrange) then begin
			plot_phase, f_vec, complex_tf, _EXTRA=extra_keyw, $
				NO_UNWRAP=no_unwrap, yrange=pyrange
			;	xsty=1,ysty=1
		endif else begin
			plot_phase, f_vec, complex_tf, _EXTRA=extra_keyw, $
				NO_UNWRAP=no_unwrap
			;	,xsty=1,ysty=1

		endelse
	endelse

	if n_elements(save_pmulti) gt 0 then begin
		!p.multi=save_pmulti
		!p.multi[0]=0
	endif
end