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:
Buona serata a tutte/i.

Ho sostituito lo script al messaggio #33.

:)
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
 
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
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
 
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
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
 
Un caro saluto a tutti, non lascio mai il riscontro sui risultati ottenuti da questo, per me, prezioso script...ringraziando sempre Joe e gli altri scripter...so che sono molti numeri ma possono sempre servire...ora, nelle ruote di Bari e Cagliari ci sono queste ottime condizioni per verificare le vs. convergenze con un buon ritardo in coppia (BA/CA) che non hanno dato ambi o sup. relativi alla stessa data> 17.12.2024...

17.12.2024 Bari

Cruciverba Ambi
23 38 22 81
89 65 49 18
44 05 04 63
52 13 28 71
17 68 83 67

=================

17.12.2024 Cagliari

Cruciverba Ambi
56 39 04 01
66 75 40 37
21 47 85 82
56 82 65 27
11 37 20 75
=================


buon proseguimento a tutti!!
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 28 gennaio 2025
    Bari
    32
    56
    11
    49
    52
    Cagliari
    90
    42
    39
    30
    13
    Firenze
    21
    60
    31
    05
    14
    Genova
    42
    80
    86
    57
    36
    Milano
    31
    88
    28
    12
    66
    Napoli
    27
    22
    44
    30
    77
    Palermo
    54
    56
    36
    06
    43
    Roma
    31
    70
    27
    11
    22
    Torino
    85
    08
    70
    49
    07
    Venezia
    16
    13
    81
    18
    03
    Nazionale
    35
    01
    67
    44
    14
    Estrazione Simbolotto
    Bari
    35
    40
    32
    28
    30
Indietro
Alto