Re: generacja liczb pseudolosowych

Article View: pl.comp.lang.vbasic

Article #26

Back to pl.comp.lang.vbasic Previous Next

#26

From: Robert Maron
Date: Tue, 07 Oct 1997 01:10

24 lines
1710 bytes

yacko <yacko@priv.onet.pl>: [pl.comp.lang.c: news:<01bcd29d$e9a47960$8df674c3@ppp>]
: 	Zalezy mi na tym by dla duzej serii dawał rozklad plaski, ale
: zdarzalyby mu sie wygenerowac czesciej serie np zlozone z duzych wartosci,
: malych itd. Po prostu "mniej doskonały".

no to mozesz zaburzyc istniejacy generator; np. jakos tak:
(nie, nie napisze tego porzadnie w c)

zmienne d,m maja byc globalne

int dzika_losowosc(int r)
{
  w = wartosc losowa;
  if (malo prawdopodobne) then { d = wartosc losowa; m = wartosc losowa }
  else if (dosc prawdopodobne) then { d = 0; m = r };
  return ( (w%m+d) % r );
}

robert
ps. troche przegiales z lista grup na ktorych zadales to pytanie;
    ustawiam followup na .c; innych tez zachecam do niekontynuowania
    dyskusji na tylu grupach naraz...
-- 
robmar@mimuw.edu.pl                  http://zls.mimuw.edu.pl/~robmar/

Technical Details

Message-ID: <61c26r$hpt$1@domek.slodki.domek>

Path:

mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!pingwin.icm.edu.pl!agh.edu.pl!news.wnaft.agh.edu.pl!uucp-gw.cyf.gov.pl!news.icm.edu.pl!mimuw.edu.pl!domek.slodki.domek!not-for-mail

References: <01bcd29d$e9a47960$8df674c3@ppp>

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!pingwin.icm.edu.pl!agh.edu.pl!news.wnaft.agh.edu.pl!uucp-gw.cyf.gov.pl!news.icm.edu.pl!mimuw.edu.pl!domek.slodki.domek!not-for-mail
From: Robert Maron <robmar@domek.slodki.domek>
Newsgroups: pl.comp.lang.c,pl.comp.lang.delphi,pl.comp.lang.vbasic,pl.comp.programming
Subject: Re: generacja liczb pseudolosowych
Followup-To: pl.comp.lang.c
Date: 7 Oct 1997 01:10:51 GMT
Organization: MIMUW
Lines: 24
Message-ID: <61c26r$hpt$1@domek.slodki.domek>
References: <01bcd29d$e9a47960$8df674c3@ppp>
Reply-To: Robert Maron <robmar@mimuw.edu.pl>
NNTP-Posting-Host: elina.mimuw.edu.pl
Mime-Version: 1.0
X-Header1: Ciekawe co?
X-Header2: ...........
X-Newsreader: TIN [UNIX 1.3 unoff BETA 970724; i486 Linux 2.0.30]
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message