Novità

Richiesta di script per previsioni con cruciverba.

M

micro__

Advanced Member >PLATINUM<
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:
M

micro__

Advanced Member >PLATINUM<
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
 
joe

joe

Advanced Member >PLATINUM PLUS<
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.

:)
 
M

micro__

Advanced Member >PLATINUM<
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
 
M

micro__

Advanced Member >PLATINUM<
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
 
M

micro__

Advanced Member >PLATINUM<
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
 
D

demonio

Super member
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
 
M

micro__

Advanced Member >PLATINUM<
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
    martedì 23 aprile 2024
    Bari
    47
    22
    34
    20
    50
    Cagliari
    33
    14
    86
    02
    62
    Firenze
    61
    22
    44
    19
    26
    Genova
    21
    12
    57
    82
    55
    Milano
    66
    05
    11
    70
    30
    Napoli
    05
    23
    25
    52
    73
    Palermo
    23
    44
    49
    71
    65
    Roma
    82
    37
    59
    34
    71
    Torino
    26
    42
    66
    15
    58
    Venezia
    57
    06
    68
    54
    84
    Nazionale
    21
    79
    49
    03
    01
    Estrazione Simbolotto
    Genova
    24
    02
    19
    03
    27
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto