Calculo de probabilidad
excelente lo tuyo la verdad sos un verdadero experto te felicito, puedo pedirte algo? Si en ves de 3 bombos fueran 4 ( entotal se extraerían 80 números ) pero , esta ves si se pueden repetir los números de cada bombo y también de un bombo a otro, te repito: se extraen 20 números de un bombo pero cada numero vuelve al bombo , lo mismo con el segundo bombo con el tercero y el cuarto, cual seria la probabilidad de acertar los 15
1 Respuesta
Había preparado el programa para varios bombos pero no para que se pudieran repetir dentro de cada bombo.
Pero ahora que lo pienso. No hay ninguna diferencia entre hacer eso y sacar las 80 del mismo bombo, luego sirve el mismo programa antiguo con repeticiones. Y además creo recordar que ya lo hice una vez pero al principio, cuando el programa no estaba tan perfeccionado y aún tendría que perfeccionarlo. Entre perfeccionarlo y luego el tiempo de cálculo a lo mejor no puedo hacerlo hoy.
¡Ah! En el ejercicio anterior de varios bombos en la tercera columna no salía el signo de % pero son tantos por cientos, que se me olvidó hacer que lo escribiera el programa y se me olvidó escribirlo a mí a mano.
Asi es como queda el programa de un solo bombo con repetición de bolas que es el que sirve para lo que planteas. Da lo mismo sacar las bolas de uno solo que de dos o de veinte si se pueden repetir.
program bolas100;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes
{ you can add units after this };
type
CienBooleanos = array[0..99] of boolean;
CientounoEnteros = array[0..100] of integer;
const
CienFalsas:CienBooleanos = (false, false, false, false, false, false, false, false, false, false,
false, false, false, false, false, false, false, false, false, false,
false, false, false, false, false, false, false, false, false, false,
false, false, false, false, false, false, false, false, false, false,
false, false, false, false, false, false, false, false, false, false,
false, false, false, false, false, false, false, false, false, false,
false, false, false, false, false, false, false, false, false, false,
false, false, false, false, false, false, false, false, false, false,
false, false, false, false, false, false, false, false, false, false,
false, false, false, false, false,false, false, false, false, false);
var
i, j,k, aciertos,sacadas, bolas, bola,pronos,
extraídas, tandas, sorteos :integer;
acertadas: CienBooleanos;
ganadas: CientounoEnteros;
porcen: double;
begin
randomize;
Write('Numero de bolas: '); readln(bolas);
Write('Números pronosticados: '); readln(pronos);
Write('Bolas extraídas: '); readln(extraídas);
Write('Tandas de sorteos: '); readln(tandas);
Write('Sorteos por tanda: '); readln (sorteos);
for i:= 0 to 100 do ganadas:= 0;
for i:= 1 to tandas do
begin
for j:= 1 to sorteos do
begin
acertadas:= CienFalsas; sacadas:=0; aciertos:=0;
While (aciertos < pronos) and (Sacadas <= extraídas) do
begin
bola:=random(bolas);
if (bola < pronos) and (not acertadas[bola]) then
begin
Inc(aciertos,1);
acertadas[bola]:=true;
end;
Inc(sacadas,1)
end;
inc(ganadas[aciertos],1);
end;
writeln('Tanda: ',i);
for k:=pronos downto 0 do
begin
porcen:= 100*ganadas[k] / (i*sorteos);
writeln(k:3,ganadas[k]:12, Porcen:14:7, '%');
end;
end;
readln;
end.
Y estos son los resultados:
15 84477 0.0084477 %
14 1207046 0.1207046 %
13 7812665 0.7812665 %
12 30417536 3.0417536 %
11 79660006 7.9660006 %
10 148620468 14.8620468 %
9 204003098 20.4003098 %
8 209860323 20.9860323 %
7 163108791 16.3108791 %
6 95773296 9.5773296 %
5 42129881 4.2129881 %
4 13640269 1.3640269 %
3 3147465 0.3147465 %
2 487305 0.0487305 %
1 45446 0.0045446 %
0 1928 0.0001928 %
Y eso es todo.
perdona: este ultimo resultado que me enviaste corresponde a 4 bombos sabiendo que en cada bombo se puede repetir ? y la probabilidad seria de 0 , 0000847 estoy en lo cierto?
Si, es eso. Porque si se pueden repetir la bolas es lo mismo sacar una bola en cada uno de l80 bombos, que las 80 bolas en uno, o 20 en cada uno de 4 bombos.
Y la probabilidad es esa que dices ya que el resultado que escribí era en tantos por ciento.
