不规则步长数组创建

;
;;设置一个步长为1./60的数组，其数组的最小做大值为[-3.，3.]
;;本程序设置了两个方法，一个简单的设置，一个采用case...of...，同样体现idl的完美

pro test_case
;the fist manager
data = make_array(360)
for i =0,359 do begin
case i of
0: data [0] = -3.0
359: data[359] = 3
else: data[i]= data[i-1]+1./60
endcase
endfore
;the second one
data_a = Findgen((3-(-3))*60)/60.0-3.0

openw,lun,'D:\test\test.txt', /GET_LUN
printf,lun,data
printf,lun,'***********************************'
printf,lun,data_a
free_lun,lun
end