Create an irregular step Array

;
; Set an array with a step of 1./60. The minimum value of the array is [-3., 3.].
; BenProgramTwo methods are set, one is simple, and the other is case... of..., which also reflects the perfection of IDL.

Pro test_case
; The Fist Manager
Data = make_array (360)
For I = 0,359 do begin
Case I
0: Data [0] =-1, 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