Random_Permutation <- function(n){ + k = n; permute = 1:n + while(k>1){ + t = runif(1) + I = round(k*t) + 1 + a = permute[I]; b = permute[k] + permute[I] ...
確定！ 回上一頁
