Novità

Richiesta di script per previsioni con cruciverba.

ciao ILegend, Joe Mike e Salvo,

sono andato alla ricerca di dati pregressi usando lo script di Joe cercando qualche cruciverba che non abbia ancora dato esito, impostando, ad esempio, la ricerca su 36 estrazioni e 36 colpi di verifica. Si nota subito che i cruciverba che non hanno dato esiti sono quelli che si presentano con alcuni numeri ripetuti. In questo caso Napoli balza all'occhio.
Si può arrivare comunque a dare una previsione, sempre con l'incertezza che siamo di fronte a molti numeri e che le smentite con la lottomatica sono sempre dietro l'angolo...

Napoli

10121 16_08_2022

60 67 44 76
50 67 44 76
85 5 79 21
68 78 85 4
4 14 21 88



10124 23_08_2022

21 1 25 4
21 82 16 85
11 2 6 75
65 56 36 39
56 47 27 51

Possibile uscita del capolista di Napoli...ma quando?

Tenere a mente questi due cruciverba non guasta...sia per la mente che, per chi vuole e può, per il portafoglio.

Ristretta, per A e T, sui due cruciverba ancora senza esito:

85-4

85-21

85-4-21

saluti
micro
 
Ultima modifica:
joe ha scritto:
Buona serata a tutte/i.

Ho sostituito lo script al messaggio #33.

:)
Clicca per espandere...
Joe ora lo script ci fa vedere una ruota per volta e quindi basta cambiare il codice per specificarla...

Es.:
MILANO
For R = 5 To 5'2 : If R = 11 Then R = 12

NAZIONALE
For R = 12 To 12'2 : If R = 11 Then R = 12


fatto bene?
saluti grazie
micro
 
Ciao Micro_

Si è giusto.

Lo script è un pochino camaleontico e da ingabbiare ... poi ... ha cambiato diverse volte aspetto.

Dunque si, può considerare tante estrazioni per una ruota da scegliersi come hai fatto,

Oppure può funzionare come era, con tutte le ruote, ed una sola estrazione.

Ampliare la ricerca a situazioni più vaste si può anche, ma tanti numeri,

tante ruote, tanti colpi e tante estrazioni, si sa che sono più utili al banco che al giocatore.

:)
 
Grazie ancora va benissimo, so che ci sono tanti numeri e spero che la consultazione sia di aiuto per tutti, logico non per aumentare giocate ma per avere una conferma, se possiamo chiamarla così, con altri e propri mezzi di previsione. Comunque su Napoli la terzina la provo e vediamo cosa succede... spero in tempi brevi...
Saluti joe, buona serata
micro
 
micro__ ha scritto:
ciao ILegend, Joe Mike e Salvo,

sono andato alla ricerca di dati pregressi usando lo script di Joe cercando qualche cruciverba che non abbia ancora dato esito, impostando, ad esempio, la ricerca su 36 estrazioni e 36 colpi di verifica. Si nota subito che i cruciverba che non hanno dato esiti sono quelli che si presentano con alcuni numeri ripetuti. In questo caso Napoli balza all'occhio.
Si può arrivare comunque a dare una previsione, sempre con l'incertezza che siamo di fronte a molti numeri e che le smentite con la lottomatica sono sempre dietro l'angolo...

Napoli

10121 16_08_2022

60 67 44 76
50 67 44 76
85 5 79 21
68 78 85 4
4 14 21 88



10124 23_08_2022

21 1 25 4
21 82 16 85
11 2 6 75
65 56 36 39
56 47 27 51

Possibile uscita del capolista di Napoli...ma quando?

Tenere a mente questi due cruciverba non guasta...sia per la mente che, per chi vuole e può, per il portafoglio.

Ristretta, per A e T, sui due cruciverba ancora senza esito:

85-4

85-21

85-4-21

saluti
micro
Clicca per espandere...
ecco stasera la conferma che nel lotto mai fidarsi delle apparenze, la terzina di convergenza l'ho giocata, non è detto che uscirà qualcosa in futuro, intanto credo che valga la pena, per coloro che vogliono seguire questo script e la formula espressa, soffermarsi su ciò che avviene nella realtà delle Venus...
Cruciverba su Napoli del 23_08_2022 che non aveva dato ancora esiti ...2-6-56

a tutti buona serata, in particolar modo a chi ha contribuito con i propri interventi a portare avanti questo post!

saluti.
micro
 
Ciao demonio, utiizza questo script su Spaziometria, se ricordo bene è quello di Joe (che ringrazio unitamente a ILegend e Salvo) che ti fa vedere i risultati dei cruciverba nelle ultime 90 estrazioni, compresa l'ultima.

saluti
micro


Option Explicit

'Frattale ^6 x Micro_ V.1.0 By Joe del 05/11/2022

Sub Main

Dim N(90)

Dim Es,G,R,P,Q,E,I,Nu(5,5),C,K,X,Y

Dim Ru(1),Co,Ris

C = 90 'Colpi della verifica

'Tabella N^6

N(01) = 01 : N(02) = 64 : N(03) = 09 : N(04) = 46 : N(05) = 55 : N(06) = 36 : N(07) = 19 : N(08) = 64 : N(09) = 81 : N(10) = 10

N(11) = 01 : N(12) = 54 : N(13) = 19 : N(14) = 46 : N(15) = 45 : N(16) = 46 : N(17) = 19 : N(18) = 54 : N(19) = 01 : N(20) = 10

N(21) = 81 : N(22) = 64 : N(23) = 19 : N(24) = 36 : N(25) = 55 : N(26) = 46 : N(27) = 09 : N(28) = 64 : N(29) = 01 : N(30) = 90

N(31) = 01 : N(32) = 64 : N(33) = 09 : N(34) = 46 : N(35) = 55 : N(36) = 36 : N(37) = 19 : N(38) = 64 : N(39) = 81 : N(40) = 10

N(41) = 01 : N(42) = 54 : N(43) = 19 : N(44) = 46 : N(45) = 45 : N(46) = 46 : N(47) = 19 : N(48) = 54 : N(49) = 01 : N(50) = 10

N(51) = 81 : N(52) = 64 : N(53) = 19 : N(54) = 36 : N(55) = 55 : N(56) = 46 : N(57) = 09 : N(58) = 64 : N(59) = 01 : N(60) = 90

N(61) = 01 : N(62) = 64 : N(63) = 09 : N(64) = 46 : N(65) = 55 : N(66) = 36 : N(67) = 19 : N(68) = 64 : N(69) = 81 : N(70) = 10

N(71) = 01 : N(72) = 54 : N(73) = 19 : N(74) = 46 : N(75) = 45 : N(76) = 46 : N(77) = 19 : N(78) = 54 : N(79) = 01 : N(80) = 10

N(81) = 81 : N(82) = 64 : N(83) = 19 : N(84) = 36 : N(85) = 55 : N(86) = 46 : N(87) = 09 : N(88) = 64 : N(89) = 01 : N(90) = 90

For Es = EstrazioneFin - 90 To EstrazioneFin

For R = 1 To 12 : If R = 11 Then R = 12

Ru(1) = R

ReDim Colora(90)

Scrivi DataEstrazione(Es) & " " & NomeRuota(R) & " ",True

'Matrice Traslati

For P = 1 To 5

I = 0

E = Estratto(Es,R,P)

For Q = 1 To 5

If P <> Q Then

I = I + 1

Nu(P,I) = Fuori90(N(E) + Estratto(Es,R,Q))

End If

Next

'Scrivi

Next

Scrivi

'Scompone le Righe della Matrice

Scrivi "Righe",True

For X = 1 To 5

ReDim TMP(4)

K = 0

For Y = 1 To 4

K = K + 1

TMP(K) = Nu(X,Y)

Next

Call EliminaRipetuti(TMP,True)

Scrivi StringaNumeri(TMP,,True) & Space(16 - Len(StringaNumeri(TMP,,True))),0,0

Call VerificaEsito(TMP,Ru,Es + 1,AMBO_,C,,,Co,Ris)

If Ris <> "" Then Call Matrice(Colora,Ris,Co): Scrivi Co & "° Colpo " & Ris,1,,,Co - 1 Else Scrivi

Next

Scrivi

'Scompone le Colonne della Matrice

Scrivi "Colonne",True

For X = 1 To 4

ReDim TMP(5)

K = 0

For Y = 1 To 5

K = K + 1

TMP(K) = Nu(Y,X)

Next

Call EliminaRipetuti(TMP,True)

Scrivi StringaNumeri(TMP,,True) & Space(16 - Len(StringaNumeri(TMP,,True))),0,0

Call VerificaEsito(TMP,Ru,Es + 1,AMBO_,C,,,Co,Ris)

If Ris <> "" Then Call Matrice(Colora,Ris,Co): Scrivi Co & "° Colpo " & Ris,1,,,Co - 1 Else Scrivi

Next

Scrivi

Scrivi "Cruciverba Ambi",True

ColoreTesto 0

For P = 1 To 5

I = 0

E = Estratto(Es,R,P)

ColoreTesto 5

For Q = 1 To 5

If P <> Q Then

I = I + 1

Nu(P,I) = Fuori90(N(E) + Estratto(Es,R,Q))

If Colora(Nu(P,I)) > 0 Then G = 1 : ColoreTesto 0 '

Scrivi Format2(Nu(P,I)) & Space(1),G,0, RGB (190,190,190),Colora(Nu(P,I)) - 1

G = 0 : ColoreTesto 5

End If

Next

Scrivi

Next

Scrivi

ColoreTesto 0

Scrivi String(43,"=")

Next

Next

End Sub

Sub Matrice(Colora,Ris,Co)

Dim X,N

N = Split(Ris," ")

For X = 1 To UBound(N)

If N(X) <> ".." Then N(X) = Int(N(X)) : Colora(N(X)) = Co

Next

End Sub
 
micro__ ha scritto:
Ciao demonio, utiizza questo script su Spaziometria, se ricordo bene è quello di Joe (che ringrazio unitamente a ILegend e Salvo) che ti fa vedere i risultati dei cruciverba nelle ultime 90 estrazioni, compresa l'ultima.

saluti
micro


Option Explicit

'Frattale ^6 x Micro_ V.1.0 By Joe del 05/11/2022

Sub Main

Dim N(90)

Dim Es,G,R,P,Q,E,I,Nu(5,5),C,K,X,Y

Dim Ru(1),Co,Ris

C = 90 'Colpi della verifica

'Tabella N^6

N(01) = 01 : N(02) = 64 : N(03) = 09 : N(04) = 46 : N(05) = 55 : N(06) = 36 : N(07) = 19 : N(08) = 64 : N(09) = 81 : N(10) = 10

N(11) = 01 : N(12) = 54 : N(13) = 19 : N(14) = 46 : N(15) = 45 : N(16) = 46 : N(17) = 19 : N(18) = 54 : N(19) = 01 : N(20) = 10

N(21) = 81 : N(22) = 64 : N(23) = 19 : N(24) = 36 : N(25) = 55 : N(26) = 46 : N(27) = 09 : N(28) = 64 : N(29) = 01 : N(30) = 90

N(31) = 01 : N(32) = 64 : N(33) = 09 : N(34) = 46 : N(35) = 55 : N(36) = 36 : N(37) = 19 : N(38) = 64 : N(39) = 81 : N(40) = 10

N(41) = 01 : N(42) = 54 : N(43) = 19 : N(44) = 46 : N(45) = 45 : N(46) = 46 : N(47) = 19 : N(48) = 54 : N(49) = 01 : N(50) = 10

N(51) = 81 : N(52) = 64 : N(53) = 19 : N(54) = 36 : N(55) = 55 : N(56) = 46 : N(57) = 09 : N(58) = 64 : N(59) = 01 : N(60) = 90

N(61) = 01 : N(62) = 64 : N(63) = 09 : N(64) = 46 : N(65) = 55 : N(66) = 36 : N(67) = 19 : N(68) = 64 : N(69) = 81 : N(70) = 10

N(71) = 01 : N(72) = 54 : N(73) = 19 : N(74) = 46 : N(75) = 45 : N(76) = 46 : N(77) = 19 : N(78) = 54 : N(79) = 01 : N(80) = 10

N(81) = 81 : N(82) = 64 : N(83) = 19 : N(84) = 36 : N(85) = 55 : N(86) = 46 : N(87) = 09 : N(88) = 64 : N(89) = 01 : N(90) = 90

For Es = EstrazioneFin - 90 To EstrazioneFin

For R = 1 To 12 : If R = 11 Then R = 12

Ru(1) = R

ReDim Colora(90)

Scrivi DataEstrazione(Es) & " " & NomeRuota(R) & " ",True

'Matrice Traslati

For P = 1 To 5

I = 0

E = Estratto(Es,R,P)

For Q = 1 To 5

If P <> Q Then

I = I + 1

Nu(P,I) = Fuori90(N(E) + Estratto(Es,R,Q))

End If

Next

'Scrivi

Next

Scrivi

'Scompone le Righe della Matrice

Scrivi "Righe",True

For X = 1 To 5

ReDim TMP(4)

K = 0

For Y = 1 To 4

K = K + 1

TMP(K) = Nu(X,Y)

Next

Call EliminaRipetuti(TMP,True)

Scrivi StringaNumeri(TMP,,True) & Space(16 - Len(StringaNumeri(TMP,,True))),0,0

Call VerificaEsito(TMP,Ru,Es + 1,AMBO_,C,,,Co,Ris)

If Ris <> "" Then Call Matrice(Colora,Ris,Co): Scrivi Co & "° Colpo " & Ris,1,,,Co - 1 Else Scrivi

Next

Scrivi

'Scompone le Colonne della Matrice

Scrivi "Colonne",True

For X = 1 To 4

ReDim TMP(5)

K = 0

For Y = 1 To 5

K = K + 1

TMP(K) = Nu(Y,X)

Next

Call EliminaRipetuti(TMP,True)

Scrivi StringaNumeri(TMP,,True) & Space(16 - Len(StringaNumeri(TMP,,True))),0,0

Call VerificaEsito(TMP,Ru,Es + 1,AMBO_,C,,,Co,Ris)

If Ris <> "" Then Call Matrice(Colora,Ris,Co): Scrivi Co & "° Colpo " & Ris,1,,,Co - 1 Else Scrivi

Next

Scrivi

Scrivi "Cruciverba Ambi",True

ColoreTesto 0

For P = 1 To 5

I = 0

E = Estratto(Es,R,P)

ColoreTesto 5

For Q = 1 To 5

If P <> Q Then

I = I + 1

Nu(P,I) = Fuori90(N(E) + Estratto(Es,R,Q))

If Colora(Nu(P,I)) > 0 Then G = 1 : ColoreTesto 0 '

Scrivi Format2(Nu(P,I)) & Space(1),G,0, RGB (190,190,190),Colora(Nu(P,I)) - 1

G = 0 : ColoreTesto 5

End If

Next

Scrivi

Next

Scrivi

ColoreTesto 0

Scrivi String(43,"=")

Next

Next

End Sub

Sub Matrice(Colora,Ris,Co)

Dim X,N

N = Split(Ris," ")

For X = 1 To UBound(N)

If N(X) <> ".." Then N(X) = Int(N(X)) : Colora(N(X)) = Co

Next

End Sub
Clicca per espandere...
Grazie mille
 
Doveroso segnalare questi due schemi di cruciverba, per la ruota di FIRENZE, giunti ad un ottimo ritardo senza aver dato risultati almeno in ambo ad incrocio, la speranza è che esca almeno un ambo nella quartina 77-86-31-58- a breve...

08.11.2022 Firenze
3 31 28 86
69 58 55 23
77 38 63 31
14 65 3 58
42 3 31 28

siamo al 47° c


06.12.2022 Firenze
85 39 88 86
13 76 35 33
57 76 79 77
58 77 31 78
76 5 49 8

siamo al 37° c

elementi in comune...

buon sabato a tutti,
micro
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 29 novembre 2024
    Bari
    29
    22
    53
    65
    12
    Cagliari
    90
    42
    12
    44
    73
    Firenze
    65
    82
    32
    14
    02
    Genova
    58
    79
    69
    78
    13
    Milano
    88
    82
    18
    40
    24
    Napoli
    05
    42
    06
    56
    13
    Palermo
    59
    02
    52
    34
    84
    Roma
    48
    67
    46
    18
    79
    Torino
    76
    48
    13
    65
    88
    Venezia
    22
    13
    69
    35
    70
    Nazionale
    61
    83
    42
    38
    35
    Estrazione Simbolotto
    Torino
    02
    01
    33
    36
    09
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto