Dim s 1( 1 to 10000).
source
Dim s2( 1 to 10000) is a boolean value.
Define an array on the raw data.
Identifies whether the original array has been sampled.
Dim back( 1 to 100, 1 to 100) is the same length.
Target object, 100 group data.
For i = 1 to 10000.
s 1(i) = i
then
In this test, 1 to 10000 arrays are allocated to the original data.
For i = 1 to 100.
100 sampling
n = 1
N represents the sampling number of this sampling.
Do While n<= 100' when n >; At 100, 100 samples were taken.
Irregular
Redistribution of random seeds
k = Int(Rnd()* 10000)+ 1
Random number within 10000
If s2(k) = false, then
If the original data is not sampled.
back(i，n) = s 1(k)
storage data
S2(k) = true
Logo has been sampled.
n = n + 1
Sampling data plus 1
If ... it will be over.
ring
then
End joint