Neregistrovaný Přihlásit Registrovat
Jsou zobrazeny jen nové odpovědi. Zobrazit všechny
Předmět Autor Datum
To akoze chces program, ktory ti vygneruje zarucene vyherne cisla?
Michal2 27.11.2019 15:58
 Michal2
To akoze chces program, ktory ti vygneruje zarucene vyherne cisla? Program, by pro vypsani "jen vyh…
HPET 27.11.2019 17:05
 HPET
Trosku este upravit, realne nemozu vytiahnut rovnake cisla, v tvojom skripte to moze nastat :)
Michal2 28.11.2019 10:54
 Michal2
Nevytáhneš víc stejných ;-)(ano napsat to jde jinak a vice způsoby, ale ten kod nebyl až tak podstat… nový
HPET 28.11.2019 11:19
 HPET
Na něčem, kde je dána pravděpodobnost výhry matematicky, nemůžeš být ze statistického hlediska výděl… nový
kacikac 28.11.2019 14:53
 kacikac
Ještě dobách dřevěných počítačů - tedy v dobách sálových strojů, jsme za pomocí vědeckých metod, kte… nový
Rce 28.11.2019 18:01
 Rce
Poznámka: Koukám na ty odpovědi jako jelen. Sportka 6 ze 49 se rovná skoro 14 000 000 kombinací, kol… nový
M-Pol 28.11.2019 19:12
 M-Pol
Ano, statisticky /teoreticky/ neskutečné numero. Čtení z protonace? Návštěvníci z budoucnosti? Bohov… nový
mif 28.11.2019 19:21
 mif
Bylo asi 8500 tažení a jednou se čísla opakovala. nový
Wikan 28.11.2019 20:32
 Wikan
Jedna čísla se opakovala : rok 1980 tyden 7 den N tah 1 47,14,46,31,27,5,45 rok 2009 tyden 10 den N… poslední
pita1 28.11.2019 20:41
 pita1
Sázím každý den 80 Kč na Šťastných deset, ale úplně nevědecky. nový
karel 28.11.2019 19:24
 karel

To akoze chces program, ktory ti vygneruje zarucene vyherne cisla?

Program, by pro vypsani "jen vyhernich" čísel ani tak problém nebyl, ale program který by vypsal kdy ty čísla padnou už by problém být mohl !! :-p


$cisla_sportka= 2,4,5,6,7,8,10,15,19,20,21,23,24,25,26,27,28,29,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50 
Get-Random -InputObject ($cisla_sportka) -Count 6
// Nebo Get-Random  -minimum 1 -maximum 50

Nevytáhneš víc stejných ;-) (ano napsat to jde jinak a vice způsoby, ale ten kod nebyl až tak podstatný)


Způsob 1:

$rand = New-Object System.Random(65000)
$tiketArray = @()
1..1000 | % {$tiketArray += $rand.Next(1,49)}
$tiketArray | select -Unique | select -First 6

Způsob 2 pro vylosovani 3 tiketů / tahů zaroven :

1..3 | % {“Herni tiket: $_”; 1..1000 | % { get-random -Minimum 1 -Maximum 49 } | select -Unique | select -First 6 | Sort}

etc.

Na něčem, kde je dána pravděpodobnost výhry matematicky, nemůžeš být ze statistického hlediska výdělečný.
Pokud chceš být na něčem výdělečný, tak sázej třeba na sport, ale musíš být velmi velmi chytrý sázkař a sázet to, co má větší pravděpodobnost výhry než čemu odpovídá kurz. Velmi velmi chytří sázkaři ze statistického hlediska jsou výděleční.

Ještě dobách dřevěných počítačů - tedy v dobách sálových strojů, jsme za pomocí vědeckých metod, které tady rozvádět nebudu, jen, že to bylo založeno na kombinatorice, teorii velkých čísel a dat tahů Sportky od jejího založení. Samozřejmě, nic jsme nevyhráli - nesázeli jsme, jen pozorovali výsledky. Ale došli jsme vědeckými metodami (prosím, nechechtat se, skutečně vědeckými) k zajímavým zjištěním, ze kterých by se dala vypozorovat výherní čísla. Avšak - abych to nějak kulatně řekl - výhry byly při nejmenším občas poněkud podezřelé. Takže vyhrát nelze ani za pomocí nahlížení do budoucnosti, když výherní čísla nejsou zrovna nejpoctivější. Program jsem psal ve Fortranu, jestli to někomu něco říká, později jsem pomocí tohoto program ladil kompilátor Algolu 60 :-D. Vyhrát jde spíš malárie, než Sportka.

Poznámka:
Koukám na ty odpovědi jako jelen.
Sportka 6 ze 49 se rovná skoro 14 000 000 kombinací, kolik asi bylo vylosováno kombinací od počátku losování (50leta)?
Naprosto mizivé číslo na to, aby se dalo uvažovat, že mimo mimořádné náhody/štěstí lze dosáhnout na uhodnutí šesti čísel.
(pokud jsem se o to zajímal, tak zatím se ani jedenkrát se tažená kombinace ještě ani neopakovala)

Zpět do poradny Odpovědět na původní otázku Nahoru