Calculo de probabilidad

No, no entiendo lo que quieres decir.

El ordenador genera sorteos y si hay 15 aciertos lo contabiliza como bueno. Da lo mismo los números que se hayan repetido en ese sorteo, mientras hayan salido los quince que se pronosticaron se da por bueno.

No sé si con esto queda contestada, si no explícamelo más detalladamente. ¿A lo mejor quieres conocer cuantas bolas se repiten en los sorteos que se aciertan los quince?

Es muy probable que la proporción cambie algo respecto a la de la totalidad de sorteos ya que es más probable acertar 15 cuantas menos repeticiones haya. Entonces el máximo podría darse antes del 27 se da en la totalidad.

a eso me refería ; cuantas bolas se repiten en los sorteos que se aciertan los 15 numeros

Suponiendo que pronosticamos los números 0 a 14 el sorteo estará acertado si han salido 15 bolas con los números 0 a 14, las otras 45 pueden tener el número que quieran. Nos servirá el programa que hicimos pero pero dando una repetición de principio a los números 0 al 14 y sacando 45 bolas en vez de 60. Es que el método de hacer sorteos controlando lo que sale es malo ya que son muy pocos los que tenían quince aciertos, Así todo sorteo que

Estudiamos sirve para la estadística.

program bolasrepcon15acier;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes
{ you can add units after this };
type
repeticiones= array[0..99] of integer;
const
cienIniciales: repeticiones = (1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0);
var
i,j,k,nubo,cant,tandas,suma: integer;
rep,resul: repeticiones;
begin
write('Numero de bolas extraídas: ');readln(nubo);
write('Cantidad de sorteos por tanda: '); readln(cant);
write('Numero de tandas: ');readln(tandas);
for i:=0 to 99 do resul:= 0;
randomize;
for i:=1 to tandas do
begin
for j:=1 to cant do
begin
rep:=CienIniciales;
for k:=1 to nubo-15 do
inc(rep[random(100)],1);
suma:=0;
for k:=0 to 99 do
if rep[k]>1 then suma:=suma+rep[k];
inc(resul[suma],1);
end;
writeln ('Tanda: ',i);
for j:=0 to 60 do
writeln(j:2,' ',resul[j]:9,' ',resul[j]*100./(i*cant):10:7,' %');
end;
readln;
end.

Estos son los resultados

0 0 0.0000000 %
1 0 0.0000000 %
2 11 0.0000011 %
3 10 0.0000010 %
4 283 0.0000283 %
5 191 0.0000191 %
6 2918 0.0002918 %
7 3203 0.0003203 %
8 24197 0.0024197 %
9 31738 0.0031738 %
10 145384 0.0145384 %
11 210787 0.0210787 %
12 682508 0.0682508 %
13 1031762 0.1031762 %
14 2555907 0.2555907 %
15 3846485 0.3846485 %
16 7723773 0.7723773 %
17 11188536 1.1188536 %
18 18961050 1.8961050 %
19 25887173 2.5887173 %
20 38002627 3.8002627 %
21 48094488 4.8094488 %
22 62219278 6.2219278 %
23 72317499 7.2317499 %
24 83299244 8.3299244 %
25 88324694 8.8324694 %
26 91115075 9.1115075 %
27 87729897 8.7729897 %
28 81307711 8.1307711 %
29 70824516 7.0824516 %
30 58991789 5.8991789 %
31 46353286 4.6353286 %
32 34661065 3.4661066 %
33 24482738 2.4482738 %
34 16394609 1.6394609 %
35 10364600 1.0364600 %
36 6195949 0.6195949 %
37 3494901 0.3494901 %
38 1852820 0.1852820 %
39 927408 0.0927408 %
40 435206 0.0435206 %
41 190845 0.0190845 %
42 78367 0.0078367 %
43 29700 0.0029700 %
44 10730 0.0010730 %
45 3523 0.0003523 %
46 1083 0.0001083 %
47 317 0.0000317 %
48 93 0.0000093 %
49 21 0.0000021 %
50 4 0.0000004 %
51 1 0.0000001 %
52 0 0.0000000 %
53 0 0.0000000 %
54 0 0.0000000 %
55 0 0.0000000 %
56 0 0.0000000 %
57 0 0.0000000 %
58 0 0.0000000 %
59 0 0.0000000 %
60 0 0.0000000 %

Por cierto, los resultados de ayer de repetidos entre todos, no están bien del todo. Había un pequeño fallo ya que en vez de

for k:=0 to 99 do
if rep[k]>1 then suma:=suma+rep[k];

puse

for k:=1 to 100 do
if rep[k]>1 then suma:=suma+rep[k];

Eso hacia que nunca se contabilizara la bola cero como repetida. Si quieres los resultados esos buenos mándame otra pregunta, asi los podrás comparar con estos.

Un saludo.

perdona, en donde dice por ejemplo; 7 3203 0 , 0003203 , significa que esta es la probabilidad de que se repita 7 veces un numero ? estoy en lo cierto ?

No, quiere decir que esa es la probabilidad de que haya 7 bolas repetidas exactamente. Eso puede suceder de todas estas formas

1) Un número que se repite 7 veces

2) Un número que se repite 5 veces y otro 2 veces

3) Un número que se repite 4 veces y otro 3 veces

4) Un número se repite 3 veces, otro 2 veces y otro 2 veces

Ese 0.0003203% es la probabilidad de que sucedan esas cuatro cosas.

Si por ejemplo me dijeras la probabilidad del 36 habría cientos de posibilidades, por eso este problema es tan difícil y no se puede resolver a mano sino por ordenador.

Y eso es todo.

oea que la probabilidad es de 0 , 000003203 es asi?