Richiesta di script per previsioni con cruciverba.

[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

 

[joe]

Buona serata a tutte/i.

Ho sostituito lo script al messaggio #33.

 

[micro__]

Grazie Joe!!

 

[micro__]

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

 

[joe]

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.

 

[micro__]

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__]

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

 

[demonio]

Oh per voi scriptomani sarà semplice ma io Non c'ho capito niente
Qual è lo script?

 

[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

 

[demonio]

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

 

[micro__]

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