Article View: be.comp.programming
Article #3656Re: [VB6] Random getallen (integers) uit rij kiezen
From: Ares Lagae
Date: Sun, 23 Nov 2003 20:42
Date: Sun, 23 Nov 2003 20:42
34 lines
2420 bytes
2420 bytes
"Digibyte" <digibyte@pieter.verhaeghe-textiel.be> wrote in message news:3fc0f172$0$28453$ba620e4c@reader0.news.skynet.be... > Hoe kan ik het best het volgende programmeren: > Ik moet een willekeurig aantal getallen kiezen (vb. 10) uit een rij getallen > die optelt van 0 tot x. (vb. 0, 1, 2, 3, 4, 5, 6, ..., 99) > > Ik heb dit al gevonden om 1 getal eruit te halen: > Randomize > randomValue = Int(100 * Rnd) > > Maar nu weet ik niet hoe ik het tweede getal er moet uithalen. Mag dus niet > hetzelfde zijn als het vorige getrokken getal. En de kans om ieder getal te > nemen moet even groot zijn. Ik kan dus niet zeggen dat als het getal al > getrokken is, plus 1 te doen. > nog een andere methode: rejection sampling, geschikt voor als het aantal mogelijke getallen N groot is, en het aantal getallen dat je eruit wil trekken redelijk klein is ten opzichte van N - houd alle REEDS GETROKKEN getallen bij in een array A - nieuw getal bepalen: 1) bepaal een willekeurig getal G in 0...N (daarvoor hoef je niet de array met alle mogelijke getallen bij te houden, gewoon een random reel getal in 0..1 * N doen) 2) indien G in A, ga naar 1) 3) voeg G bij A Groetjes, Ares Lagae
Technical Details
Message-ID:
<1069620078.937489@seven.kulnet.kuleuven.ac.be>Path:
arc1-ca.pugleaf.net!archiver1.google.com!news2.google.com!fu-berlin.de!fr.ip.ndsoftware.net!193.190.198.58.MISMATCH!aotearoa.belnet.be!naxos.belnet.be!news.belnet.be!not-for-mailReferences:
<3fc0f172$0$28453$ba620e4c@reader0.news.skynet.be>Show Full Headers
Complete Article Headers
X-Google-Language: DUTCH,ASCII-7-bit X-Google-Thread: fcea4,a769f0ff60b66e08 X-Google-Attributes: gidfcea4,public X-Google-ArrivalTime: 2003-11-23 12:41:20 PST Path: arc1-ca.pugleaf.net!archiver1.google.com!news2.google.com!fu-berlin.de!fr.ip.ndsoftware.net!193.190.198.58.MISMATCH!aotearoa.belnet.be!naxos.belnet.be!news.belnet.be!not-for-mail From: "Ares Lagae" <ares.lagae@student.kuleuven.ac.be> Newsgroups: be.comp.programming Subject: Re: [VB6] Random getallen (integers) uit rij kiezen Date: Sun, 23 Nov 2003 21:42:18 +0100 Organization: KULeuvenNet Lines: 36 Message-ID: <1069620078.937489@seven.kulnet.kuleuven.ac.be> References: <3fc0f172$0$28453$ba620e4c@reader0.news.skynet.be> NNTP-Posting-Host: seven.kulnet.kuleuven.ac.be X-Trace: naxos.belnet.be 1069620079 26215 134.58.127.12 (23 Nov 2003 20:41:19 GMT) X-Complaints-To: abuse@belnet.be NNTP-Posting-Date: Sun, 23 Nov 2003 20:41:19 +0000 (UTC) X-Priority: 3 X-MSMail-Priority: Normal X-Newsreader: Microsoft Outlook Express 6.00.2800.1158 X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1165 Cache-Post-Path: seven.kulnet.kuleuven.ac.be!unknown@10-67-122-222.kotnet.org X-Cache: nntpcache 2.4.0b5 (see http://www.nntpcache.org/)