Random с неоднородной вероятностью выпадения событий

[Сtrl]

__________

[Сtrl]

А! Все дело в том, что я немного напутал с синтаксисом. Все, я исправил код в посте #15, попробуйте еще раз...
Все работает отлично.

[Vago]

Сообщение от Сtrl

Все работает отлично.

Поздравляю!
...
А теперь представим, что я, или госп. SeventhKey, посидев в другом игорном клубе, захотели поменять вероятности. Вот так, например: { 0.13, 0.17, 0.28, 0.22, 0.12, 0.08 }. Нам теперь что, при каждом изменении исходных данных (а ведь может ещё и число исходов измениться - я вот предложил промоделировать игральный кубик со свинцом внутри, а ТС нравятся карты), звать программиста, чтобы тот шаманил над кодом?

[Сtrl]

звать программиста, чтобы тот шаманил над кодом?

Ага. Поставленную задачу я решил. Делать код гибким - более долгая и трудоемкая задача. Но выполнить ее можно по тому же принципу.

[Vago]

Сообщение от Сtrl

Поставленную задачу я решил. Делать код гибким - более долгая и трудоемкая задача.

Не, ну можно, конечно, написать узкоспециализированный калькулятор для сложения 2 и 2, а за версию, складывающую 3 и 3, - требовать с заказчика отдельную оплату... Хочу себе такого доверчивого заказчика!
...
Ладно... Наблюдение за детишками в песочнице - хорошо в меру...

#include <math.h>
#include <stdio.h>
#include <stdlib.h>
#include <time.h>

#define  PI          3.14159265358979323846
#define  N_RESULTS   6

int GetRand2( int n, double* freq ) {

   int      k = 0;
   double   F = freq[0] ,
            r = rand() / double( RAND_MAX ) ;

   while ( r > F ) {
      if ( ++k == n )
         return k ;
      F += freq[k] ;
   }

   return k+1 ;

}



int main() {
	
   double   f[N_RESULTS] ,
            freq0[N_RESULTS] = { 0.13, 0.17, 0.28, 0.22, 0.12, 0.08 }  ;
   int      k,
            nSeeds ; 

   printf( "Number of seeds ? " ); scanf( "%d", &nSeeds ) ;

   srand(time(0)) ;
   printf("rand nums' frequencies for %d seeds:\n", nSeeds ) ;

   for ( k = 0; k < N_RESULTS; k++ )
      f[k] = 0. ;

   for (int i = 0; i < nSeeds; i++) {
      k = GetRand2( N_RESULTS, freq0 ) ;
      f[k-1] += 1. / double( nSeeds ) ;
   }

   for ( k = 0; k < N_RESULTS; k++ ) 
      printf( "%1d - %.3f\n", k+1, f[k] ) ;

   getchar();
   return 0 ;

}

...
Уважаемый EC.cpp, меня сперва почему-то потянуло подбирать параметры генератора нормального распределения, а там, всё, что у меня есть, в конце концов опирается на неувядающие "Численные рецепты" Пресса и компании. Ну, вот это, например:
http://www.dreamincode.net/code/snippet1446.htm

Но потом я подумал, что решить задачу с дискретным набором вероятностей, действительно, можно проще. Решение - см. выше.

Ни там, ни там, как Вы видите, списки не используются. Если Вам хочется пропустить 99 вызовов rand() - крошечный цикл вставляется, как Вы понимаете, элементарно. Правда, есть ли гарантия, что корреляция между вызовами rand() с шагом в 100 окажется меньше, чем между двумя вызовами подряд?..
...
Всем спасибо за беседу. Удачи в профессиональной карьере!

[ParanoiS]

хз. я бы так:

1) СОЗДАТЬ последовательность чисел
2) взять последний номер списка и переместить между первыми,
3) взять последний из оставшихся, пеереместить перед последним.
4) в цикле, уменьшать последний номер, выбирать 1 или 0
5) переместить ПОЛОВИНУ чисел в начало или конец, зависит от п.4)
6) каждую ПОЛОВИНУ перемешать по п.2)3)
счётчик 1-0 менять на каждом этапе
...
чТ) далее продолжать. Полная нах псевда

Результат: никакой случайности. НО: нет повторов. Типа, как в плэй-листах типа ПОТплэйера, винАмпа итп... Всё напрочь перемешано, но ничё не повторяется.

ДА... и никакой "нулёвости" случая!!

Есть другой сука путь: брать миллисекунды и ксорить результат. Чтото вроде CRC16? только со значением, выдаваемым таймером за время прохода инструкций.

работает, кста.

можно ещё какой-нть хрени придумать, например, (есть же компы, где не предусмотрено сис таймера) - участок видеопамяти с постоянно меняющимися данными... вот это бл в натуре случайно... Берёшь байт предыдущего (хз как это по научному) - и NOT или \ и XOR с уже запомненным. Такие случаи бывают - охренеть. AES курит по надёжности шифра...

[macomics]

им 11 лет уже не до этого