mult_beep.pro

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

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

pro mult_beep, times, DELAY=delay

if n_elements(delay) eq 0 then delay=0.3
if n_params() eq 0 then times=1

beep
for i=1,times-1 do begin
	wait, delay
	beep
endfor

end