Power Spin: Разьлік

Day 2,221, 11:20 • Published in Belarus Belarus • by Konnik Pahoni

Усім прывітаньнечка!


Хочаш папіццот галды? Я таксама.
Пры ўмове, што ўсе выпадзеньні раўнаверагодны:
YourGold = 50;
CanSpin = k /. NSolve[Sum[1 + 0.1*i, {i, 0, k}] == YourGold, k]2;
CanSpin = Floor[CanSpin] + 1;
SuccessP = 1/8;
BadLuckP = 1 - 1/8;
ProbabilityToWin = N[100*Sum[
Sum[
Binomial[CanSpin + FreeSpin, i]*SuccessP^(i)*
BadLuckP^(CanSpin + FreeSpin - i), {i, 3, CanSpin + FreeSpin}]
*Binomial[CanSpin, FreeSpin]*SuccessP^(FreeSpin)*
BadLuckP^(CanSpin - FreeSpin),
{FreeSpin, 0, CanSpin}]
]
Mathematica-код, які разьлічвае прыкладную імавернасьць выйграць (сапраўдная імавернасьць нават троху больш).

Гульня ў power spin -- схема Бернулі, улічваючы, што можа выпаць бясплатнае вярчэньне. Код выдае няправільную імавернасьць, але заніжаную, гэта значыць сапраўдная нават больш!

Як карыстацца: увесьці колькасьць свайго наяўнага золата ў зьменную YourGold і націснуць shift+enter.

Я тут разьлічыў шанец забраць 500 галды пры ўмове, што у мяне ёсьць 100.
Гэты шанец склаў прыкладна 90%! Пры ўмове, што акрамя галды вы назьбіраеце дафіга нішцякоў... Прадавайце кампаніі, сябры.

Інфармацыя верагодна толькі пры ўмове раўнаверагоднасьці прызоў, што малаверагодна!
Усім чальцам Лігі разьлік праводзіцца безкаштоўна! Астатнім прыйдзецца пампаваць і ўсталёўваць Mathematica.


Толькі Zянон!