Risultati della ricerca

Ciao,:) NET per 1 ruota: q^n*5 , NET per 11 ruote: q^n*5*11 q è la probabilità di non estrazione (85/90) n è il numero di estrazioni Option Explicit Sub Main Dim q,nEstr,NET q = 85/90 Scrivi "nEstraz" & Space(3) & "NET x1 Ruota" & Space(8) & "NET x11 Ruote" For nEstr = 0 To 28...

Ciao Joe, ecco il confronto fino alla data del 30.08.2011 tra "l' archivio Joe91 del 18/10/2012 " e "l'archivio Silop". Se non sbaglio, - 5 Ruote risultano allineate. - 3 Ruote hanno delle differenze individuabili in tre delle 6 estrazioni da te indicate,(#11) - 3 Ruote hanno differenze...

Ciao Joe grazie. Ho lanciato lo script #8, il risultato è una lista di 468 cinquine con somma estratti = 252, 1 07.01.1871 MI 63.69.56.09.55 2 14.01.1871 RO 06.30.60.79.77 3 08.07.1871 PA 13.66.77.28.68 4 15.07.1871 PA 87.84.19.27.35 5 16.09.1871 VE 22.40.74.39.77 6 16.12.1871 FI...

Ciao Joe, ho fatto girare il tuo script (#3) sul pc ed il risultato è identico a quello ottenuto sul portatile (#4). Dopo ho troncato con Spaziometria l' archivio in modo tale che che l'estrazione finale coincidesse con quella del tuo vecchio script (#1) (Fin = 8423 ' 30 Agosto 2011 NON...

Ciao Joe grazie per la risposta e lo script di verifica. Sto leggendo con piacere discussioni avvenute in passato qui sul forum complimenti per la tua bravura e la tua disponibilità! Ho lanciato il tuo script sulla copia di Spaziometria che ho installato sul portatile, stasera provo anche sul...

Salve, ho trovato qui sul forum questo interessante vecchio script di Joe91, 'Test Archivio L8+ / Lottodesk V.2.0 By Joe91 Sub Main() Fin = 8423 ' 30 Agosto 2011 NON MODIFICARE !!! Scrivi "Controllato l' ""Archivio-Lotto"" fino alla data : " & DataEstrazione (Fin) Scrivi For es = 1 To Fin...