検索ワード: ilotsize (フランス語 - 英語)

b. suite et graduation ---------- for i = 1 to maxsamp ' générez de l'échantillon '-- algorithme gnpa portative de l'ecuyer avec brouiller de bays-durham --k = kseed \ kq1 kseed = ka1 * (kseed - k * kq1) - k * ir1 if kseed "p" then 'excluez l'échantillonnage progressif for j = 1 to imult ibase = (j - 1) * isampsize imid = isampsize \ 2 do while imid > 0 ibound = ibase + isampsize - imid do iflag = ibase for i = ibase + 1 to ibound if isamp(i) > isamp(i + imid) then swap isamp(i), isamp(i + imid) iflag = i end if next i ibound = iflag - imid loop while iflag <> ibase imid = imid \ 2 loop next j end if '-Écrire des résultats au fichier ------------------------------------------- open ofile$ for append as #1 print #1, rsp$ print #1, "date/heure: "; dt$ print #1, "val. de départ 1:"; ks2k print #1, "val. de départ 2:"; kseed1 print #1, "numéro du lot: "; lotno$ print #1, "id d’opérateur: "; opid$ print #1, "type d’échant.: "; stl$ print #1, "taille du lot: "; ilotsize smult$ = str$(imult) if st$ = "p" then print #1, "taille max. d’échantillon:"; maxsamp else print #1, "taille d’échantillon: "; isampsize; print #1, "x" + smult$ end if print #1, "" for j = 1 to imult s$ = str$(j) print #1, "Échantillon" + s$ + " de" + smult$ ibase = (j - 1) * isampsize for i = ibase + 1 to ibase + isampsize print #1, ltrim$(str$(isamp(i))) next i print #1, "" next j close #1 print :
a. initailization ------------------------- kseed2 = kseedfor j = 40 to 1 step -1 ' fill shuffle array k = kseed \ kq1 kseed = ka1 * (kseed - k * kq1) - k * ir1 if kseed "q" then 'exclude sequential sampling for j = 1 to imult ibase = (j - 1) * isampsize imid = isampsize \ 2 do while imid > 0 ibound = ibase + isampsize - imid do iflag = ibase for i = ibase + 1 to ibound if isamp(i) > isamp(i + imid) then swap isamp(i), isamp(i + imid) iflag = i end if next i ibound = iflag - imid loop while iflag <> ibase imid = imid \ 2 loop next j end if category: