Дискуссионный математический форумМатематический форум
Математический форум Math Help Planet

Обсуждение и решение задач по математике, физике, химии, экономике

Теоретический раздел
Часовой пояс: UTC + 3 часа [ Летнее время ]
новый онлайн-сервис
число, сумма и дата прописью

Часовой пояс: UTC + 3 часа [ Летнее время ]




Начать новую тему Ответить на тему  [ Сообщений: 7 ] 
Автор Сообщение
 Заголовок сообщения: По какой формуле посчитать успех на 10-тигранных кубах
СообщениеДобавлено: 25 фев 2023, 01:16 
Не в сети
Начинающий
Зарегистрирован:
25 фев 2023, 01:04
Сообщений: 3
Cпасибо сказано: 2
Спасибо получено:
0 раз в 0 сообщении
Очков репутации: 1

Добавить очки репутацииУменьшить очки репутации
Здравствуйте!

Подскажите, пожалуйста, по какой формуле можно посчитать отдельно вероятность выпадения критического провала, провала, успеха и критического успеха при броске соответствующего количества 10-тигранных кубов (левый столбец)?

Или формулу, по которой можно определить сколько всего возможных комбинаций в этих промежутках (успех, провал и т.д.)

Спасибо!

Количество кубов d10Крит. провалПровалУспехКрит. успех
112-78-10-
22-45-1011-1819-20
33-67-1415-2627-30
44-89-1920-3536-40
55-1011-2425-4445-50

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: По какой формуле посчитать успех на 10-тигранных кубах
СообщениеДобавлено: 25 фев 2023, 02:29 
Не в сети
Профи
Зарегистрирован:
04 июн 2020, 01:04
Сообщений: 387
Cпасибо сказано: 33
Спасибо получено:
92 раз в 88 сообщениях
Очков репутации: 14

Добавить очки репутацииУменьшить очки репутации
Tony1211 писал(а):
Или формулу, по которой можно определить

Вы руками будете считать, или в Excel, или код на языке программирования можете написать (на каком)? Формула не самая простая.

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: По какой формуле посчитать успех на 10-тигранных кубах
СообщениеДобавлено: 25 фев 2023, 02:31 
Не в сети
Начинающий
Зарегистрирован:
25 фев 2023, 01:04
Сообщений: 3
Cпасибо сказано: 2
Спасибо получено:
0 раз в 0 сообщении
Очков репутации: 1

Добавить очки репутацииУменьшить очки репутации
ipgmvq писал(а):
Tony1211 писал(а):
Или формулу, по которой можно определить

Вы руками будете считать, или в Excel, или код на языке программирования можете написать (на каком)? Формула не самая простая.


В Excel удобнее всего

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: По какой формуле посчитать успех на 10-тигранных кубах
СообщениеДобавлено: 25 фев 2023, 05:33 
Не в сети
Профи
Зарегистрирован:
04 июн 2020, 01:04
Сообщений: 387
Cпасибо сказано: 33
Спасибо получено:
92 раз в 88 сообщениях
Очков репутации: 14

Добавить очки репутацииУменьшить очки репутации
Tony1211 писал(а):
В Excel удобнее всего

В Excel в ячейках A1, A2, A3 размещаете количество граней у кости/куба, количество бросков и искомую сумму выпавших граней соответственно.
В VBA в Excel записываете макрос ниже.
И при запуске этого макроса в ячейке A4 должна появляться вероятность данной искомой суммы граней.
Дописываете цикл, чтобы пройтись по интервалу сумм граней, например, от 15 до 26 для "успеха" при 3-х бросках, и получаете вероятность "успеха" при 3-х бросках.

Sub multinomial_sum_probability()
Dim m As Long ' The number of sides
Dim n As Long ' The number of rolls
Dim k As Double ' The expected sum
Dim multinomial_coefficient As Integer

m = Cells(1, 1).Value
n = Cells(2, 1).Value
k = Cells(3, 1).Value

multinomial_coefficient = 0
For s = 0 To Application.WorksheetFunction.RoundDown((k - n) / m, 0)
If s Mod 2 = 0 Then
multinomial_coefficient = multinomial_coefficient + Application.WorksheetFunction.Fact(n) * Application.WorksheetFunction.Fact(k - s * m - 1) / (Application.WorksheetFunction.Fact(s) * Application.WorksheetFunction.Fact(n - s) * Application.WorksheetFunction.Fact(k - s * m - n) * Application.WorksheetFunction.Fact(n - 1))
Else
multinomial_coefficient = multinomial_coefficient - Application.WorksheetFunction.Fact(n) * Application.WorksheetFunction.Fact(k - s * m - 1) / (Application.WorksheetFunction.Fact(s) * Application.WorksheetFunction.Fact(n - s) * Application.WorksheetFunction.Fact(k - s * m - n) * Application.WorksheetFunction.Fact(n - 1))
End If
Next s

Cells(4, 1).Value = multinomial_coefficient / (m ^ n)
End Sub

Вернуться к началу
 Профиль  
Cпасибо сказано 
За это сообщение пользователю ipgmvq "Спасибо" сказали:
Tony1211
 Заголовок сообщения: Re: По какой формуле посчитать успех на 10-тигранных кубах
СообщениеДобавлено: 25 фев 2023, 10:24 
Не в сети
Последняя инстанция
Зарегистрирован:
12 сен 2010, 12:46
Сообщений: 6335
Cпасибо сказано: 154
Спасибо получено:
1069 раз в 1006 сообщениях
Очков репутации: 68

Добавить очки репутацииУменьшить очки репутации
Tony1211, можно также выписать все возможные бросания кубиков в столбик (это числа от 0 до 99999), перевести в текстовый вид ОСНОВАНИЕ(ячейка;10;5). И в следующих 5 столбцах посчитать сумму последних 1-5 цифр прибавляя 1-5. После этого заполняйте табличку командой счетеслимн

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: По какой формуле посчитать успех на 10-тигранных кубах
СообщениеДобавлено: 25 фев 2023, 16:16 
Не в сети
Начинающий
Зарегистрирован:
25 фев 2023, 01:04
Сообщений: 3
Cпасибо сказано: 2
Спасибо получено:
0 раз в 0 сообщении
Очков репутации: 1

Добавить очки репутацииУменьшить очки репутации
ipgmvq писал(а):
В Excel в ячейках A1, A2, A3 размещаете количество граней у кости/куба, количество бросков и искомую сумму выпавших граней соответственно.
В VBA в Excel записываете макрос ниже.
И при запуске этого макроса в ячейке A4 должна появляться вероятность данной искомой суммы граней.
Дописываете цикл, чтобы пройтись по интервалу сумм граней, например, от 15 до 26 для "успеха" при 3-х бросках, и получаете вероятность "успеха" при 3-х бросках.


Спасибо, действительно хорошая вещь :good:

Я не знаком с программированием, вас не затруднит подсказать, что нужно дописать в макрос, чтобы он мог работать с интервалом сумм граней?

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: По какой формуле посчитать успех на 10-тигранных кубах
СообщениеДобавлено: 25 фев 2023, 21:23 
Не в сети
Профи
Зарегистрирован:
04 июн 2020, 01:04
Сообщений: 387
Cпасибо сказано: 33
Спасибо получено:
92 раз в 88 сообщениях
Очков репутации: 14

Добавить очки репутацииУменьшить очки репутации
В Excel в ячейках A1, A2, A3, A4 размещаете количество граней у кости/куба, количество бросков, нижнюю границу и верхнюю границу интервала (включающего эти крайние значения) для искомой суммы выпавших граней соответственно.
При запуске этого макроса в ячейке A5 должна появляться вероятность данного события.

Sub multinomial_sum_probability()
Dim m As Long ' The number of sides
Dim n As Long ' The number of rolls
Dim k_lower As Double ' The lower range limit of the expected sum
Dim k_upper As Double ' The upper range limit of the expected sum
Dim multinomial_coefficient As Integer

m = Cells(1, 1).Value
n = Cells(2, 1).Value
k_lower = Cells(3, 1).Value
k_upper = Cells(4, 1).Value

multinomial_coefficient = 0
For k = k_lower To k_upper
For s = 0 To Application.WorksheetFunction.RoundDown((k - n) / m, 0)
If s Mod 2 = 0 Then
multinomial_coefficient = multinomial_coefficient + Application.WorksheetFunction.Fact(n) * Application.WorksheetFunction.Fact(k - s * m - 1) / (Application.WorksheetFunction.Fact(s) * Application.WorksheetFunction.Fact(n - s) * Application.WorksheetFunction.Fact(k - s * m - n) * Application.WorksheetFunction.Fact(n - 1))
Else
multinomial_coefficient = multinomial_coefficient - Application.WorksheetFunction.Fact(n) * Application.WorksheetFunction.Fact(k - s * m - 1) / (Application.WorksheetFunction.Fact(s) * Application.WorksheetFunction.Fact(n - s) * Application.WorksheetFunction.Fact(k - s * m - n) * Application.WorksheetFunction.Fact(n - 1))
End If
Next s
Next k

Cells(5, 1).Value = multinomial_coefficient / (m ^ n)
End Sub

Вернуться к началу
 Профиль  
Cпасибо сказано 
За это сообщение пользователю ipgmvq "Спасибо" сказали:
Tony1211
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему      Страница 1 из 1 [ Сообщений: 7 ]

 Похожие темы   Автор   Ответы   Просмотры   Последнее сообщение 
По какой формуле рассчитать вероятность?

в форуме Размышления по поводу и без

sibtlius

4

326

14 авг 2016, 13:11

По какой формуле решается задача?

в форуме Экономика и Финансы

1907NADINA

3

569

13 мар 2017, 19:08

По какой формуле решается данная задача? Бернулли? Пуассон?

в форуме Комбинаторика и Теория вероятностей

Sushi Shark

1

337

23 ноя 2020, 15:31

Успех математика. Какова доля таланта?

в форуме Размышления по поводу и без

Zdratuty

23

748

28 ноя 2018, 22:23

Задача о четырёх кубах

в форуме Maple

bitango

8

242

20 мар 2024, 16:44

Матричная структура задачи о четырёх кубах

в форуме Дискуссионные математические проблемы

bitango

2

217

03 мар 2024, 20:53

Как посчитать ряд?

в форуме Ряды

Raketa

6

479

14 июн 2016, 20:00

Как посчитать?

в форуме Тригонометрия

dina1111

7

707

26 дек 2014, 20:07

Посчитать

в форуме Численные методы

VICTORQQQQ

0

261

20 мар 2017, 21:46

Как посчитать СКО

в форуме Теория вероятностей

Tonilo

23

659

21 мар 2018, 18:00


Часовой пояс: UTC + 3 часа [ Летнее время ]



Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 15


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  

Яндекс.Метрика

Copyright © 2010-2024 MathHelpPlanet.com. All rights reserved