zern_symm.pro

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

; $Id: zern_symm.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 zern_symm, s_quad, FFT=fft
;+ 
; NAME: 
;       ZERN_SYMM 
; 
; PURPOSE: 
;       This routine converts zernike polynomial array defined
;		onto first quadrant, into an array defined onto all quadrants. 
; 
; CATEGORY: 
;       Adaptive Optics. 
; 
; CALLING SEQUENCE: 
;
;       Result = ZERN_SYMM(S_quad) 
; 
; INPUTS: 
;       S_quad:  structure. A record read from a file generated
;				by ZERN_SAVE.
; 
; KEYWORD PARAMETERS: 
;       FFT:	set it to return an array for fft use
;				(see MAKE_XY)
; 
; OUTPUTS: 
;       matrix. Each dimension size is double respect S_quad.poly 
; 
; EXAMPLE: 
;       <???>
; 
; MODIFICATION HISTORY: 
;       Written by:     A. Riccardi; July, 1995. 
;- 

	if (keyword_set(fft)) then $
		return, [	[	s_quad.poly, $
						s_quad.ref_symm(0) * rotate(s_quad.poly,5)], $
					[	s_quad.ref_symm(1) * rotate(s_quad.poly,7), $
						s_quad.cen_symm * rotate(s_quad.poly,2) ]] $
	else $
		return, [	[	s_quad.cen_symm * rotate(s_quad.poly,2), $
						s_quad.ref_symm(1) * rotate(s_quad.poly,7)], $
					[	s_quad.ref_symm(0) * rotate(s_quad.poly,5), $
						s_quad.poly ]]
end