fried_par.pro

来自「IDL语言编写的用于天文自适应光学仿真的软件CAOS V6.0的第一部分。」· PRO 代码 · 共 21 行

; $Id: fried_par.pro,v 1.2 2002/03/14 11:49:10 riccardi Exp $

;+
;    FRIED_PAR
;
;    Result = FRIED_PARAM(Wl)
;
;    returns Fried Parameter r_O (in m) at wavelength Wl (in m).
;    It uses CN2(Z) turbulence profile.
;-
function fried_par, wl, seeing=seeing

	common cn2_block, cn2_settings

	r0=(0.423d0*(2d0*!pi/wl)^2*qromlog('cn2', 1d-3, cn2_settings.max_height))^(-3d0/5d0)
	seeing=205265d0*(wl/r0)

	return, r0
end