Revisión de código

[bucanero]

La combinación maestra solo te esta cogiendo el numero 48.

Eso es porque el edit1 al convertirlo a un numero entero y pasarlo como un array of byte que es el parámetro esperado de la función load, y me extraña que no este dando ningún error de tipos, en realidad lo que esta haciendo es cortando y tomando solamente los 8 primeros bits del numero, omitiendo el resto. De hay que solo tome el valor 48.

Empezado por danielmj

Código Delphi [-]
Combinacion1.load([StrToInt(edit1.Text)])

Aunque no le veo mucha utilidad a que el usuario introduzca y/o maneje un numero de INT64 que es al fin y al cabo la forma interna en que maneja el programa una combinación determinada, pero si lo deseas así, puedes utilizar la carga de datos de la siguiente forma:
* añade una nueva función LOAD junto a la que ya tienes definida, utilizando la directiva overload, de la siguiente forma:

Código Delphi [-]
    ...
    // añadir tantos metodos load como sea necesarios
    function load(list: array of Byte): boolean; overload; // carga una combinacion determinada
    function load(value:int64):boolean; overload; //carga a partir de un Int64   

    ...

function TCombinacionHelper.load(value: int64): boolean;
begin
  self:=value;
  result:=true;
end;

y ahora ya puedes leer el numero de tu edit1 de esta forma (sin los corchetes), el compilador determinara que rutina LOAD utilizar en función de los parámetros que le suministres:

Código Delphi [-]
  if not Combinacion1.load(StrToInt(edit1.Text)) then begin
      MessageDlg('La combinacion no es valida!!!', mtError, [mbOK], 0);
      exit;
  end;

y en particular para el valor que tienes en la imagen (34324051248), yo obtengo la siguiente combinación:

4 5 8 10 12 13 14 16 17 18 19 20 22 23 24 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49

Saludos

[bucanero]

Viendo tu vídeo, veo que lo que tienes en el edit1 son los mismos números que se ven en los label a la izquierda del edit1, dando la sensación que lo que estas haciendo es concatenando los valores de los labels, y guardándolos en el EDIT1. Eso no te va a dar la misma combinación que tienes en los labels cuando hagas el load del edit1.

Si pretendes obtener la misma combinación que muestras en los labels, entonces deberías hacer algo así:

Código Delphi [-]
var
   numeros:Array[1..6] of byte;
begin
  ...
  numeros[1]:=StrToInt(label1.caption);  
  numeros[2]:=StrToInt(label2.caption);
  ...
  numeros[6]:=StrToInt(label6.caption);

  combinacion1.load(numeros);
  ...
end;

[danielmj]

Hola bucanero, gracias ya va corriendo perfectamente, pero sigo con la misma idea ya sabes.. R que R... y es que no quisiera abandonar la idea de al menos usar un listview que muestre x numero de combinaciones aleatorias, pongamos por ejemplo 20.000 y de entre ellas, busca los 6 numeros que mas se repiten formando de este modo una combinación en si misma. Esa combinacion con los 6 numeros que mas salen, SI podría usarlo como combinación clave en tu codigo y a partir de ahí hacer el resto. Pero ahora mismo no lo tengo y es algo que siento que me falta. Ya tengo que irme a trabajar, mañana sigo. Un saludo.

[danielmj]

Buenas, estoy haciendo pruebas con tu codigo Bucanero, y si bien funciona perfectamente, hay algo que me choca.. a veces se dan hasta 6 combinaciones iguales donde solo cambia un numero y me pregunto, desde el punto de vista estadistico ¿cual es la posibilidad de que ocurra eso realmente?


https://drive.google.com/open?id=13k...Yu0opkIBvkB2DY


Un saludo.

[bucanero]

Empezado por danielmj

a veces se dan hasta 6 combinaciones iguales donde solo cambia un numero y me pregunto, desde el punto de vista estadistico ¿cual es la posibilidad de que ocurra eso realmente?

A eso ya no te puedo responder... tendría que hacerlo un matemátic@.
Por lo que veo si estas comparando una combinación (maestra) de 6 números con otras combinaciones de 5 números esperando encontrar coincidencias para todos los números, entonces tendrás 6 combinaciones que cumplan ese requisito...
La pregunta es ¿Que probabilidades hay de que en 20 o 30mil combinaciones aleatorias aparezcan esas 6 combinaciones? pues la lógica dice que no muchas, aunque ten en cuenta que la combinación maestra la has obtenido de los números mas repetidos de esas combinaciones aleatorias.

Una cosa curiosa de la estadística con respecto a lo que pretendes buscar, es que si coges toda la tanda de datos históricos de sorteos de lotería primitiva y haces un recuento de los números que mas salen con respecto a los que menos salen, veras que las diferencias son mínimas, aquí te dejo los enlaces a los historicos
primitiva-resultados-historicos-de-todos-los-sorteos/

[danielmj]

Hola por ahora ya lo dejo así, ire probando y dejaré para mas adelante implementar otras cosas como cargar un CSV con el registro de sorteos y comparar la clave maestra con ellos..

Un saludo y gracias

[danielmj]

Buenos dias, sigo haciendo pruebas y alguna modificacion para la version de Windows, como generar un listView con x numero de combinaciones aleatorias y buscar los 6 mas repetidos para tomarlos como clave maestra (supongo que se me puede aplicar eso de R que R pero es lo que buscaba de un principio). En Windows va todo bien (excepto lo de atender al combobox, no lo he comprobado), hace lo que debe. Pero en Linux, me encuentro que cuando selecciono un valor del combobox por ejemplo 5000, en el listBox, solo aparecen 2885 y no sé por qué no antiende al case que por cierto es proporcional al valor del combo, es decir si selecciono 50.000 combinaciones, solo hace los calculos sobre 28684.

Código Delphi [-]
...
...
case comb.ItemIndex of
    0: //corresponde con el valor 5000
    begin
    listBox1.Clear;
    //repeat;
    listBox1.clear;
    setLength(list, 5000);
    //rellenar una list de 5000 elementos con una combinación aleatoria
    for i:=0 to high(list) do
      list[i].aleatorio2;

    //cargar la combinación maestra
    if not Combinacion1.load([1, 45, 33, 14, 20, 22]) then begin
      MessageDlg('La combinacion no es valida!!!', mtError, [mbOK], 0);
      exit;
    end;

    // guarda la combinacion1 en un string,
    // esto es solamente por acelerar el proceso a la hora de mostrar la combinacion
    // como string y no repetirlo en cada ciclo del bucle
    cs1 := '23 45 17 15 22 36'; //Combinacion1.AsString;
    //recorre el bucle para analizar todas las combinaciones con la combinacion principal
    for i := 0 to high(list) do begin
      /// compara una combinacion con otra y obtine los comunes a ambas combinaciones
      comunes := list[i].comparar(Combinacion1);
      /// si el valor es 0 entonces no hay numeros comunes
      if comunes <> 0 then
        //memo1.Lines.Add(cs1 + #9 + lista[i].AsString + #9 + '(' + IntToStr(comunes.count) + ') ' + comunes.AsString);
        listBox1.Items.Add(IntToStr(listBox1.Items.Count)+#9+'Maestra: '+cs1 + #9 + 'Aleatoria: '+list[i].AsString + #9 + '(' + IntToStr(comunes.count) + ') ' + comunes.AsString);
      if comunes = 5 then
      with lista.Items.Add do
      begin
        caption:= IntToStr(lista.items.count);
        subItems.Add(cs1);
        subItems.Add(list[i].AsString);
        subItems.Add(IntToStr(comunes.count));
      end;
    end;
    inc (int);
    {until lista.Items.Count > 1 ;
    label4.visible:= true;
    label4.Caption:='Realizadas '+IntToStr(int)+' pasadas.';
    panel1.Visible:= false;}
    end;

Y por otra parte, veo que en cs1, juega con una combinacion arbitraria:

Código Delphi [-]
cs1 := '23 45 17 15 22 36';

¿Como podría hacer lo mismo que en Windows, es decir generar x numero de combinaciones aleatorias y buscar los 6 mas repetidos para proporcionarle este dato a cs1?
Un saludo