abs2.pro

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

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


function abs2, x
;+ 
; NAME: 
;       ABS2 
; 
; PURPOSE: 
;       ABS2 calculates the squared modulus of a comlex number.
; 
; CATEGORY: 
;       Algebra. 
; 
; CALLING SEQUENCE: 
; 
;       Result = ABS2(X) 
;
; INPUTS: 
;       X:      a complex value.
;
; OUTPUTS: 
;       ABS2 returns FLOAT(X)^2+IMAGINARY(X)^2.
;
; MODIFICATION HISTORY: 
;       Written by:     A. Riccardi; April, 1995 
;- 
	return, float(x)^2+imaginary(x)^2
end