ГО С Т Р ИСО 24153— 2012
**<;;){
RandPermN(n1. A2);
for (i = 0; i < n1; i++) {
if(A2[i) == A1[i]) {iFlag = 0; break;}
}
if (iFlag == 0) iFlag = 1;
else break;
}
return;
/
}
......................................................«.............................
.................
......у
}
} while (i < n);
return;
/* Случайное изменение порядка, см.8.4 */
/* А1[] — массив входа; А2[) — массив выхода */
long i, iFlag. n1;
for(i =
0
: i < n: t++)
A2[i] = A1[i);/’сохранение*/
iFlag = 1; n1 = n;
void RSWOR (n. m. A)
long n. m. A(j;
{
/*Случайный отбор выборки без возвращения, см. 8.6*/
/*л = объем выборки; m = объем партии*/
Л А[] — массив полученной выборки7
long i, k;
long B{mJ; /* массив для сохранения исходных значенийV
for(i = 0: i < m; i++) B(i] = 0;
i = -1 ;
do{
k = RandlntlN(m);
if<B{k] == 0) {
B[k] = 1; i = i + 1; A(iJ = k;
>
*
/*
.......
..................................................*................................................................*V
vo«d SRSWORIULS (n. m. B. A)
long n. m. B[], A[J;
Г
{
Единичный случайный отбор выборки из партии неизвестного объема, см. 8.97
/*п = объем выборки; m = объем партии; (п < т )7
/*AJ] — массив выходных выборочных данных7
/* В{] — массив для моделирования партии неизвестного объема(0 указывает, что объем партии исчерпан) 7
long k. v;
m = 0; /*счетчик объема партии V
m = m + 1;
v = B[m-1J;
if (v == 0) (m = m -1 ; break;}
if(m <= n) A[m-1] = v;
else {
k = RandlntlN(m);
if(k <= n) A[k-1) = v;
}
}
return;
*
>
/•***••** ............... ..............**/
vord OSRSWORA (n. m. A)
long n. m. A(J;
25