Равновероятное распределение.

[Dominator]

Если есть такая тема прошу пр.
Есть такая проблема. Как получить от некоего числа по n-количеству равновероятных распределений. Т.е.
Есть число 30. Нужно распределить числа в случайном порядке, чтоб никого не обидеть.

[Arcady_XQST]

Т.е. распределить все составляющие числа 30 в случайном порядке (0,24,15...)?

[Dominator]

Т.е. распределить все составляющие числа 30 в случайном порядке (0,24,15...)?

Не так. Есть число 30 или (m) и есть 6 переменных или (n) переменных.
Надо чтобы выполнялась система:
1. сумма (n) переменных = числу (m)
2. приоритет каждой переменной был равен.(т.е. вероятность выпадения (m) у первой переменной =вероятность выпадения (m) у последней переменной.)
Например для m=30, n=6:
(25,3,1,1,0,0) приблизительно неправильно
(3,4,6,5,2,4,6) приблизительно правильно

[udpn]

лучше дай задачу в исходном виде, похоже на бред

[Dominator]

Ну как хочешь.
В Ролевых играх обычно при выборе персонажа дают прокачать его начальные навыки(на это дается опр.кол-во очков).
В данном случае 30 очков. Нужно чтобы комп распределил случайным образом эти 30 очков на 6 навыков игрока равномерно.

[Lumen]

А разделить 30 на 6 и к каждому навыку прибавить не судьба?

[Dominator]

Lumen Надо чтобы сумма была 30.

[Хакер]

Сумма чего? Приведи пример того, что дано, и что надо сделать.

[Dominator]

Сумма чего? Приведи пример того, что дано, и что надо сделать.

Сумма распределенных очков.

[Lumen]

Dominator
Че-та непонятно как-то. Что за распределенные очки?

Приведи пример того, что дано, и что надо сделать.

[Crio]

Делим m на n, получаем число x.
Создаём массив, размерностью n.
Заполняем его числом x.
По очереди берём ячейки массива.
Берём случайное число z в диапазоне от 0 до x/2
Берём случайное число от 1 до 2, если выпадет 1, переносим число z из очередной ячейки в случайную, если 2 переносим число z из случайной ячейки в очередную.

Это только теория, с этими случайными числами такое может быть...

Добавлено:
Это если число x - целое...

[burik]

Не так. Есть число 30 или (m) и есть 6 переменных или (n) переменных.
Надо чтобы выполнялась система:
1. сумма (n) переменных = числу (m)
2. приоритет каждой переменной был равен.(т.е. вероятность выпадения (m) у первой переменной =вероятность выпадения (m) у последней переменной.)
Например для m=30, n=6:
(25,3,1,1,0,0) приблизительно неправильно
(3,4,6,5,2,4,6) приблизительно правильно

Почему в "приблизительно неправильном" варианте - 6 чисел, а в "приблизительно правильном" - 7 чисел?

Итак:
1. есть 30 очков.
2. есть 6 навыков игрока.
Нужно разделить очки равномерно на все навыки?

Тогда нажно количество очков разделить на кол-во качеств: 30/6 = 5?
Сумма 6 переменных со значением 5 = 30. Вероятность выпадения 5 равна вероятности выпадения 5. В чем проблема?

[Dominator]

Почему в "приблизительно неправильном" варианте - 6 чисел, а в "приблизительно правильном" - 7 чисел?

Извиняюсь исправил.

Сумма 6 переменных со значением 5 = 30. Вероятность выпадения 5 равна вероятности выпадения 5. В чем проблема?

Да, да зачем тогда компьютер. Давайте тода программировать на калькуляторе?!

[Arcady_XQST]

Да, да зачем тогда компьютер. Давайте тода программировать на калькуляторе?!

Телепат тут один , но мне кажется и он не понимает, что ты имеешь ввиду. Тебе нужен код на VB деления числа 30 на 5 ?

[Dominator]

Никто меня не понимает

[Crio]

На сколько я понял, требуется разложить число 30 на шесть чисел, но так, чтобы они не были равны друг другу и не сильно различались по величине.

[Arcady_XQST]

Никто меня не понимает

Так ты объясни, а то уже n-ое количество догадок предложили - и никто не угадал... Даже телепаты

Моя версия: из числа 30 надо получить 6 разных чисел, которые в сумме составляли-бы 30. Угадал?

[Хакер]

Я правильно понимаю

Ты хочешь делать 17 на 7 но вариант [2,4285714285714285714285714285714] тебя не устраивает, и тебе нужно что-то вроде:
3 2 2 3 2 2 3

Если правильно, то тебе надо копать в сторону алгоритма Брезенхема.

[Crio]

Ой! А прямую ссылку на это можно!?

[Хакер]

http://ru.wikipedia.org/wiki/%D0%90%D0% ... 0%BC%D0%B0

[Crio]

Спасибо!

(пора бы Яндексу начать искать в Вики... Мне тоже...)

[Денис]

Crio
пора тебе разглядеть в вики строку поиска!
Dominator
а если for next от 1 до 30 с +1 на случайную переменную? так тебя не устроит?

Код: Выделить всё

dim a(6) as Integer
dim i as Integer, r as Integer

randomize
for i = 1 to 30
r = int(rnd*5)+1
a(r)=a(r)+1
next

[udpn]

Код: Выделить всё

m = 30/6
For i = 0 to n
    a(i)=m
Next
' Теперь надо зарандомить
For i = 1 to 1000
    x = Int(Rnd * n) Mod n
    a(x) = a(x) + 1
    x = Int(Rnd * n) Mod n
    a(x) = a(x) - 1
Next


[alibek]

Все эти самоделки нерациональны. А код с тысячекратным сложением/вычитанием так и вовсе глуп.
Правильное направление (алгоритм Брезенхема) уже было дано, надо лишь подправить его под свои нужды.

[udpn]

алгоритм Брезенхэма - метод прорисовки линий. здесь задача мягко говоря несвязуемая. объясни. если тебе что-то напомнила последовательность 3 2 2 3 2 2 3 (а именно зубчатость), то это туту ни при чем.

Математически изъясняюсь, необходимо найти одно произвольное решение системы

x_1 + x_2 + ... + x_n = s
0 <= x_i <= s

причем из-за первого условия оно нифига не равновероятное

с циклом я действительно переборщил, но другие варианты на ум нейдут

[Денис]

... но именно наши самоделки пойдут в код, а не ваши понты с Брезенхемом.

[Хакер]

udpn
Нет, алгоритм Брезенхэма, это гораздо более широко-применимый алгоримт, чем ты думаешь. Это алгоритм деления с коррекцией отклонения через равные заданные промежутки. Здесь нужен именно он.

Кстати говоря, оказывается, его уже предлагали здесь использовать для этих целей: http://bbs.vbstreets.ru/viewtopic.php?t=25833

[Crio]

... но именно наши самоделки пойдут в код, а не ваши понты с Брезенхемом.

...и это печально...

[Dominator]

Кстати говоря, оказывается, его уже предлагали здесь использовать для этих целей:

Хакер спосибо.
Брезенхэм рулит!