Generate_randomu_no_overlap

;;

;; 重複しない乱数を作る ;;

;;

function generate_randomu_no_overlap, n_samples, sampling_number

ram_s = long(randomu(seed,sampling_number) * (n_samples-1)+0.5)

for i=0, sampling_number-1,1 do begin

for s_i = 0, i-1 , 1 do begin

tmp = min(abs(ram_s[i]-ram_s[0:s_i]))

while(tmp eq 0) do begin

ram_s[i] = long(randomu(seed)*(n_samples-1)+0.5)

tmp = min(abs(ram_s[i]-ram_s[0:s_i]))

endwhile

endfor

endfor

;; sort ;;

ram_s = ram_s[sort(ram_s)]

return, ram_s

end