Novità

terni che hanno lo stesso ritardo

Ciao Trivellato.

Lo script che ho fatto ed utilizzato per ottenere i risultati che

ho postato qui, ha come fine, velocità e precisione.

Contiene tipi di ricerca, che non voglio rendere pubblici.

Soprattutton non è utilizzabile da altri ... o per altro.

Quindi dovrai attendere qualcosa di più orientato all'utilizzo dei dati raccolti.

Come buona notizia ti posso scrvere che ieri sera ho provato

un altro algoritmo ed i risultati sembrano altrettanto buoni.

Quindi se ... vi farò avere il nuovo elaborato.

Intanto per provarlo sarebbe utile avere la possibilità di poter controllare

il suo funzionamento sia nella procedura di ricerca che nella simulazione del metodo.

su qualche caso reale.

:) Buona Domenica.
 
Ultima modifica:
GRAZIE Joe91 SEI GENTILE ,BUONA DOMENICA ANCHE A TE .
PS SCUSA Joe91 AVRESTI UNO SCRIPT CHE METTE IN GIOCO SU RUOTA O 2 RUOTE UNA TERZINA X AMBO SECCO ...ANCORA GRAZIE.

Ciao.

Innanzi tutto ...

Aggiorno il messaggio precedente, comunicando che ho dovuto riscrivere tutto dal principio,

perchè vi erano troppi casi non considerati correttamente.

Quindi ho privilegiato l'aspetto "qualità" della ricerca, mantenendo una discreta velocità.

E ... per quanto mi riguarda ... ora, funziona.

Si, probabilmente ho qualche script che gioca l' Ambo in Terzina ma faccio prima a riscriverlo

che a cercarlo ed adattarlo ... a quanto sopra.

Quindi appena possibile aggiungerò le istruzioni per la giocata

della Terzina, per Ambo nelle Ruote di rilevazione.

:) Cordiali saluti
 
Script

Script

Codice:
Option Explicit
Sub Main
	'Ricerca Terno Polivalente + Verifica della Terzina per Ambo sulle 2 Ruote coinvolte.
	'Metodo Statistico di Trivellato. Script V.3.0. del 08/02/2015 By Joe
	Dim Ini,Fin,Es,K,R1,R2,SE,E,A,B,C,DE
	Dim Nu(3),Ru(2),Rr(1),Po(2),Co,Si : Rr(1) = 11 :Po(2) = 1 : Co = 30 : Si = 2
	Ini = 8000 : Fin = EstrazioneFin
	For Es = Ini To Fin : AvanzamentoElab Ini,Fin,Es
		For R1 = 1 To 10
			SE = StringaEstratti(Es,R1) : E = Split("0." & SE,".") : OrdinaMatrice E,False
			For A = 1 To 3 : Nu(1) = E(A)
				For B = A + 1 To 4 : Nu(2) = E(B)
					For C = B + 1 To 5 : Nu(3) = E(C)
						For R2 = R1 + 1 To 12 : If R2 = 11 Then R2 = 12
							If Posizione(Es,R2,Nu(1)) > 0 And Posizione(Es,R2,Nu(2)) > 0 And Posizione(Es,R2,Nu(3)) > 0 Then
								K = K + 1 : Scrivi String(102,"=") & FormatSpace(K,4,1),1 : ColoreTesto 1
								DE = Replace(DataEstrazione(Es),".","/")
								Scrivi DE & " " & StringaNumeri(Nu,"-",True) & Space(1),1,0
								Scrivi SiglaRuota(R1) & "_ " & SiglaRuota(R2) & "_ ",1
								Ru(1) = R1 : Ru(2) = R2 : ColoreTesto 0
								ImpostaGiocata 1,Nu,Ru,Po,Co,Si
								'ImpostaGiocata 2,Nu,Rr,Po,7,Si
								Gioca Es,True
							End If
						Next
					Next
				Next
			Next
		Next
	Next
	ScriviResoconto
End Sub

:)
 
Ciao a tutti, rileggendo il tread anche se in ritardo mi ricordo che Luigi aveva già fatto un ottimo lavoro sulle combinazioni polivalenti, come gli fu richiesto al tempo sul ritardo degli stessi numeri estratti nelle stessa estrazione e il ripetersi con analisi approfondita del loro riprodursi.
Cosa che forse è sfuggita a Joe ma potrebbe essere molto utile per la completezza del programma per la comparazione nonchè per la convergenza dei dati.
Saluti cordiali.
Joe.JPGJoe2.jpg
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 29 maggio 2025
    Bari
    45
    10
    60
    68
    59
    Cagliari
    04
    31
    24
    61
    63
    Firenze
    71
    59
    65
    53
    46
    Genova
    21
    26
    50
    63
    86
    Milano
    46
    52
    45
    21
    15
    Napoli
    88
    90
    17
    46
    12
    Palermo
    31
    40
    71
    32
    12
    Roma
    86
    81
    41
    12
    19
    Torino
    75
    32
    64
    46
    04
    Venezia
    26
    65
    38
    56
    60
    Nazionale
    16
    55
    64
    57
    12
    Estrazione Simbolotto
    Milano
    45
    26
    36
    08
    22
Indietro
Alto