von_i.pro

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

; $Id: von_i.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_i, x
;+
; funzione integranda di i(kappa,mi,ni;a,x0):
; Jkappa(a*x)*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
;-
	common von_integrals, x0, mi, ni, kappa, a

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