deriv_2d.pro

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

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

;+
; DERIV_2D
; 
; INPUT:
; x:	vettore delle x di dimensione N
; y:	vettore delle y di dimensione M
; func:	matrice NxM da derivare
;
; OUTPUT:
; de_x:	derivata parziale rispetto a x
; de_y: derivata parziale rispetto a y
;-

pro deriv_2d, x, y, func, de_x, de_y

	de_x = func
	de_y = func

	for i=0,n_elements(func(0,*))-1 do begin
    	de_x(*,i) = deriv(x, func(*,i))
	endfor

	for i=0,n_elements(func(*,0))-1 do begin
    	de_y(i,*) = deriv(y, func(i,*))
	endfor

end