von_alpha.pro

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

; $Id: von_alpha.pro,v 1.1.1.1 2002/03/12 11:53:46 riccardi Exp $ 
; 
; A. Riccardi, Dipartimento di Astronomia di Firenze (Italy). 
; [e-mail]
; Please, send me a message if you modify this code. 

function von_alpha, x
;+
; funzione integranda di alpha(mi,ni;x0):
; Jmi(x)*Jni(x)/(x*(x^2+x0^2)^(11/6))
; per il calcolo delle autocorrelazioni dei coeff.
; di Zernike con spettro di potenza di Von Karman
;
; necessita common von_integrals, x0, mi, ni, kappa, a
;
; x0>=0., mi,ni>=1
;-
	common von_integrals, x0, mi, ni

	if (x eq 0) then $
		return, x $
	else $
		if (mi eq ni) then $
			return, (beselj(x,mi))^2/x/(x^2+x0^2)^(11./6) $
		else $
			return, beselj(x,mi)*beselj(x,ni)/x/(x^2+x0^2)^(11./6)
end