EXCEL E DINTORNI

[InRicordo]

vedremo nelle prossime 9 estrazioni, come scegliere la coppia da giocare boh! Direi di scegliere quella che vince...​

 

[solare]

Ciao InRicordo, per quanto riguarda futuro2, non si potrebbe ordinarle per ruota, questo darebbe a colpo d'occhio il verificare le coppie vicine alla conclusione (fine giocata) formando delle lunghette per sorti dall'ambo in su. es. se troviamo 3 coppie che sono vicini alla conclusione del fine giocata si potrebbe tentare di mettere in gioco la sestina.

 

[InRicordo]

Ciao InRicordo, per quanto riguarda futuro2, non si potrebbe ordinarle per ruota, questo darebbe a colpo d'occhio il verificare le coppie vicine alla conclusione (fine giocata) formando delle lunghette per sorti dall'ambo in su. es. se troviamo 3 coppie che sono vicini alla conclusione del fine giocata si potrebbe tentare di mettere in gioco la sestina.

OK, fatto. Lo posto più tardi, ancora qalche controllo:
Ciao


Si possono ordinere come si vuole

 

[InRicordo]

Futuro2 per Windows:

1.69 MB file on MEGA

mega.nz

Futuro2 per Linux:

698.6 KB file on MEGA

mega.nz

 

[InRicordo]

scrignobianco mi ha passato uno Script del mai dimenticato Baffoblù:
Option Explicit
Sub Main()
Dim a,b,c,d,e,x1,x2,x3,x4,x5,s,aNum
Dim es,r,x,j,esX,esj,ini,fin,co,clp
Dim Vet_Controllo(90,5),Vet_ripetuti(20),pos,Num,k,kk,conta,Nr,Mat_estr_mod(21,5),Ultimo_indice
Dim ruota(11),ruote(11),posta(10),poste(10)
posta(1) = 1
posta(2) = 1
poste(2) = 1
poste(3) = 1
ruota(1) = r
ruote(1) = 11
clp = 18

' Calcolo dinamico per prendere sempre il mese precedente
Ultimo_indice = IndiceMensile(EstrazioneFin)
' Determinare il primo giorno del mese precedente
ini = EstrazioneFin - Ultimo_indice - IndiceMensile(EstrazioneFin - Ultimo_indice) + 1 ' Prima estrazione del mese scorso
fin = EstrazioneFin - Ultimo_indice ' Ultima estrazione del mese scorso

ResetTimer
For r = 1 To 11
If r = 11 Then r = 12
co = 0
Scrivi FormatSpace(NomeRuota(r),80,True),1,,Giallo_,,4
Scrivi " Controllo Isotopie Ripetute",1
Scrivi
For es = ini To fin
Messaggio "elab. estr. [" &(es) & "] " & DataEstrazione(es,1) & " Elaborazione della ruota di " & NomeRuota(r)
Call AvanzamentoElab(ini,fin,es)
If IndiceMensile(es) = 1 Then
Erase Vet_Controllo
Erase Vet_ripetuti
Erase Mat_estr_mod
Scrivi " 1° . 2° . 3° . 4° . 5° . ",,,,2,2
For j = 0 To 20
esj = es + j
For pos = 1 To 5
Num = Estratto(esj,r,pos)
Vet_Controllo(Num,pos) = Vet_Controllo(Num,pos) + 1
Mat_estr_mod(j,pos) = Num
Next
If IsUltimaDelMese(esj) Then Exit For
Next
For j = 0 To 20
esj = es + j
For pos = 1 To 5
Num = Estratto(esj,r,pos)
If Vet_Controllo(Num,pos) < 2 Then Mat_estr_mod(j,pos) = " "
Next
s = DataEstrazione(esj) & " - " & SiglaRuota(r) & " - " & StringaEstratti(esj,r)
s = s & " ******* "
s = s & Format2(Mat_estr_mod(j,1)) & " . "
s = s & Format2(Mat_estr_mod(j,2)) & " . "
s = s & Format2(Mat_estr_mod(j,3)) & " . "
s = s & Format2(Mat_estr_mod(j,4)) & " . "
s = s & Format2(Mat_estr_mod(j,5)) & " . "
Scrivi s,1,,,1,2
If IsUltimaDelMese(esj) Then Exit For
Next
conta = 0
For k = 1 To 90
For kk = 1 To 5
If Vet_Controllo(k,kk) > 1 Then
conta = conta + 1
Vet_ripetuti(conta) = k
End If
Next
Next
EliminaRipetuti Vet_ripetuti
ReDim aNum(conta)

Scrivi
Scrivi "Numeri ripetuti isotopi"
For Nr = 1 To conta
If Vet_ripetuti(Nr) > 0 And Nr <= 10 Then
aNum(Nr) = Vet_ripetuti(Nr)
Scrivi Format2(aNum(Nr)) & ".",1,False
End If
Next
Scrivi
Scrivi
If esj + 1 > EstrazioneFin Then Exit For
co = co + 1
Scrivi String(100,"°") & " Caso n°" & co,1
Scrivi "Controllo visivo Prima/Ultima Mese ",1,,,1,2
Scrivi "Prima Estrazione Mese " & DataEstrazione(es) & " - " & SiglaRuota(r) & " - " & StringaEstratti(es,r),1
Scrivi "Ultima Estrazione Mese " & DataEstrazione(esj) & " - " & SiglaRuota(r) & " - " & StringaEstratti(esj,r),1
Scrivi String(100,"°"),1
ruota(1) = r
ruote(1) = 11
ImpostaGiocata 1,aNum,ruota,posta,clp
ImpostaGiocata 2,aNum,ruote,poste,clp
Gioca esj,1,,1
Scrivi
End If
Next
Next
Scrivi String(100,"*")
ColoreTesto 2
Scrivi "Casi trovati : " & co,1
ColoreTesto 0
Scrivi String(100," * ")
TestoInBandaPassante(" Idea e Script by Maldor/BaffoBlù"),1,3,0
ScriviResoconto,False
End Sub

Sperando d'averlo interpretato nella corretta maniera l'ho trasformato in Python










Per windows (in formato EXE)

9.12 MB file on MEGA

mega.nz

CodiceCompleto exe e python:

61.88 MB file on MEGA

mega.nz

Scusi signor Baffoblù, da lassù mi sorrida, anche se non era questo che intendeva.

 

[solare]

Futuro2 per Windows:

1.69 MB file on MEGA

mega.nz

Futuro2 per Linux:

698.6 KB file on MEGA

mega.nz

grazie

 

[InRicordo]

Dopo decenni d'assenza torna a voi U Mappazzuni!
Quest'antro, visitato da molti (e nessuno ne è mai uscito per lamentarsi), e apprezzato da me:

565.63 MB file on MEGA

mega.nz

TerzineAmboAnni (mi riconfermo come il peggior datore di nomi dell'Universo) per Windows

1.59 MB file on MEGA

mega.nz

per Linux (nella compilazione ha segnalato qualcosa ma funziona)

542.2 KB file on MEGA

mega.nz

Codice Completo per gli smanettoni

27.56 MB file on MEGA

mega.nz

Nel mappazzone lo trovate qui:

col nome Formazioni terzine ambo





Manca la guida che seguirà quando e se me ne ricorderò, ne avrò voglia e vincerò al lotto. No l'ultima no, altrimenti non la pubblico più
Divertitevi, vincete e soprattutto state bene, altrimenti mi arrabbio!

Ps: stasera sono usciti:
34 e 36 a Cagliari Assenti nelle 10 sestine scelte
43 e 44 firenze idem
25 e 26 a Napoli qui ci sono e poi sono andati via
47 e 48 palermo chi l'ha visti?
25 e 26 roma mortacci!

Beh 0 su 5 meglio di nulla. Vedremo nelle prossime estrazioni. Mi raccomando giocateli tutti, si è vero... la spesa è un po' eccessiva, però potreste vincere un ambo in terzina. Io vinco in tutte le estrazioni gioco 10 e vinco 0,000000001, però sai la soddisfazione!

 

[InRicordo]

Script Futuro2 velocizzato:
-----------------------------------------------------------------------------------------------------

Sub Main()
Dim ru(3)
Dim terni(4005,13)
Dim nn(3)
Dim spia(1)
Dim npres(4005)
Dim ultimo(4005)
Dim visto(90)
ResetTimer
Scrivi "* * * * F U T U R O 2 * * * * Mission Impossible **** Project By Batter " & Chr(169) & " ***** Script List By Mike58 **** Forum LottoCed ****",1,,,1,3
r = InputBox("Ruota della spia....(1-10)",,2)
rr = InputBox("Ruota di gioco....(1-10)",,r)
sp = CInt(InputBox("Numero Spia",,82))
'ee = InputBox("Estrazioni da controllare",,200)
c = InputBox("Numero colpi di gioco",,18)
sorte = CInt(InputBox("Quale sorte vuoi considerare...","1,2,3",1))
'------- titoli tabella ---------------------
ReDim atitoli(11)
atitoli(1) = " Casi "
atitoli(2) = " Numeri "
atitoli(3) = " Presenze "
atitoli(4) = " esito % "
atitoli(5) = " ret_estratti fin-colpi "
atitoli(6) = " colpo "
atitoli(7) = " Data esito ultimo "
atitoli(8) = " Ritardo serie "
atitoli(9) = " Presenza serie "
atitoli(10) = " Rit. Max "
atitoli(11) = "Pres ambate singole e in Posizioni"
Call InitTabella(atitoli,1,,3,5)
For i = 1 To 4005
terni(i,1) = 0
terni(i,2) = 0
terni(i,3) = 0
terni(i,4) = 0
terni(i,5) = 0
terni(i,6) = 0
terni(i,7) = 0
terni(i,8) = 0
terni(i,9) = 0
terni(i,10) = 0
terni(i,11) = 0
terni(i,12) = 0
terni(i,13) = 0
npres(i) = 0
ultimo(i) = 0
Next
casi = 0
ini = 8950'EstrazioneFin - ee
fin = EstrazioneFin
'presenza dei numeri per estrazione sulla ruota di gioco:
'pr(k,n) = 1 se il numero n esce nell'estrazione ini + k
'fatto(k) = 1 quando l'estrazione e' gia' stata letta (calcolo solo quando serve)
ReDim pr(fin - ini + 1,90)
ReDim fatto(fin - ini + 1)
For es = ini To fin
Messaggio "casi trovati....... " & casi & " ****** Script by Mike58 ****** "
AvanzamentoElab ini,fin,es
If Posizione(es,r,sp) > 0 Then
spia(1) = sp
rsp = SerieRitardoTurbo(Ini,fin,spia,ru,1)
Inco = fin - es
casi = casi + 1
Tot = fin - Ini
ess = es + c
If ess > fin Then ess = fin End If
'numeri usciti nei colpi di gioco (es + 1 ... ess)
For n = 1 To 90
visto = 0
Next
For ide = es + 1 To ess
k = ide - ini
If fatto(k) <> 1 Then
For n = 1 To 90
If Posizione(ide,rr,n) > 0 Then pr(k,n) = 1
Next
fatto(k) = 1
End If
For n = 1 To 90
If pr(k,n) = 1 Then visto = 1
Next
Next
'una coppia e' presente se esce almeno uno dei due numeri
'condizione da non eliminare perch'e se capitano + terni(es. 10..eccediamo)
'nello stesso caso in analisi, il resoconto finale viene falsato da tutti questi errori.
co = 0
For x = 1 To 89
For y = x + 1 To 90
co = co + 1
If visto(x) + visto > 0 Then
npres(co) = npres(co) + 1
ultimo(co) = casi 'caso dell'ultima presenza (serve per la percentuale)
End If
Next
Next
'come nell'originale: dal secondo caso rsp viene calcolato con ru(1) = rr
ru(1) = rr
End If
Next
'riempimento della matrice da ordinare (stessi valori dell'originale)
co = 0
For x = 1 To 89
For y = x + 1 To 90
co = co + 1
If casi > 0 Then
terni(co,1) = co
terni(co,2) = x
terni(co,3) = y
End If
terni(co,5) = npres(co)
If npres(co) > 0 Then terni(co,6) = npres(co) / ultimo(co) * 100
Next
Next
OrdinaMatrice terni,- 1,5
ColoreTesto 1
Scrivi "spia " & CInt(sp) & " su " & NomeRuota(r) & " - Ritarda da... " & Inco,1
ColoreTesto 2
If rsp < c Then Scrivi "SPIA ATTIVA ",1:End If
If rsp > c Then Scrivi "SPIA NON ATTIVA":End If
ColoreTesto 1
Scrivi "Coppie più frequenti entro " & c & " colpi sulla a ruota di " & NomeRuota(rr) & " Per sorte di " & NomeSorte(sorte)
Scrivi "N. " & CInt(casi) & " casi " & "dal " & DataEstrazione(ini) & " al " & DataEstrazione(fin)
Scrivi
Scrivi "Totali estrazioni esaminate.... " & Tot,1
ColoreTesto 0
For x = 1 To 15
'--- calcoli pesanti solo per le 15 righe mostrate ---
If terni(x,5) > 0 Then
nn(1) = terni(x,2)
nn(2) = terni(x,3)
ru(1) = rr
Call VerificaEsitoTurbo(nn,ru,fin - rsp + 1,sorte,rsp,,resito,retcolpi,retestratti,idd)
Call StatisticaFormazioneTurbo(nn,ru,sorte,rerit,reritmax,Incrmax,refre,Ini,fin)
ef1 = EstrattoFrequenzaTurbo(r,nn(1),Ini,fin)
ef2 = EstrattoFrequenzaTurbo(r,nn(2),Ini,fin)
ReDim eff1(5)
ReDim eff2(5)
For x1 = 1 To 5
ReDim aPos(x1)
aPos(x1) = True
eff1(x1) = EstrattoFrequenzaTurbo(r,nn(1),Ini,fin,,,aPos)
eff2(x1) = EstrattoFrequenzaTurbo(r,nn(2),Ini,fin,,,aPos)
Next
terni(x,7) = retestratti
terni(x,8) = retcolpi
terni(x,10) = rerit
terni(x,11) = refre
terni(x,12) = reritmax
terni(x,13) = FormatSpace(ef1,3,1) & " [ " & StringaNumeri(eff1,,1) & " ] - " & FormatSpace(ef2,3,1) & " [ " & StringaNumeri(eff2,,1) & " ]"
If resito = "" Then terni(x,9) = ""
If resito <> "" Then terni(x,9) = GetInfoEstrazione(idd)
If resito = "" Then terni(x,9) = " in corso "
End If
'----------- valori tabella ------------------
ReDim avalori(11)
avalori(1) = x
avalori(2) = Format2(terni(x,2)) & "." & Format2(terni(x,3))' & "." & Format2(terni(x,4))
avalori(3) = Format2(terni(x,5))
avalori(4) = Round(terni(x,6),2)
avalori(5) = terni(x,7)
avalori(6) = terni(x,8)
avalori(7) = terni(x,9)
avalori(8) = terni(x,10)
avalori(9) = terni(x,11)
avalori(10) = terni(x,12)
avalori(11) = terni(x,13)
'If casi = terni(x,5) Then
Call AddRigaTabella(avalori,,,3)
'End If
If avalori(4) = "Ambo" Then Call SetColoreCella(4,2,4)
If avalori(4) = "Estratto" Then Call SetColoreCella(4,3,0)
If avalori(8) = 0 Then Call SetColoreCella(7,4,1)
Next
Call SetTableWidth("100%")
Call CreaTabella(0,0,0,15)
Scrivi
Scrivi " ********* Tabella List by Mike58 *********** ",1,- 1,3
Scrivi TempoTrascorso,1
End Sub

-----------------------------------------------------------------------------------------------------------

Futuro2_1 per Windows:

9.27 MB file on MEGA

mega.nz

Futuro2_1CodiceCompleto (exe e Python):

18.08 MB file on MEGA

mega.nz

--------------------------------------------------------------------------------------------------------

ora è più aderente all'originale, anche se i numeri o le coppie trovate, a volte, possono differire dallo Script. Questo perché vi possono essere più numeri o coppie con lo stesso valore e i due programmi possono utilizzare matrici diverse nella scelta di cosa stampare.

C'è poi un file html che, uno dopo l'altro stampa tutte le tabelle da 1 a 90:


qui potete scegliere se elaborare un solo numero o tutti (come "Serie" ci sono estratto, ambo e terno. I primi due funzionano il terzo non sapendo cosa sia, perché con 2 numeri di forma l'ambo non il terno mette qualcosa ma lasciate perdere)

 

[Oberdan]

Salve a tutti,

per chi non avesse l'abitudine di leggere la sezione LottoCED Forum riporto qui di seguito il link ad un mio "suggerimento" per questa e le prossime estrazioni:

Discussione 'TRE TERZINE PER AMBO/TERNO A TUTTE'

Ieri alle 12:26

Salve a tutti,

per i prossimi 12 colpi a partire da oggi 03/10/2026 queste tre terzine per ambo e terno sono di grande attenzione:

Ruota di gioco: Tutte (esclusa Nazionale)

23-26-82
8-50-75
64-69-74

Sempre con la dovuta prudenza.

Saluti

Oberdan

• Oberdan
• Risposte: 2
• Forum: LottoCED Forum

• 

Mi raccomando, siate sempre prudenti.

Saluti

Oberdan

 

[InRicordo]

Bene ultimissimo straordinario, stratosferico programma che dovrebbe essere Massimo Ritardo Minimo
Bene. Ma cosa fa?
Boh!
Ma elabora dati corretti?
Boh!
Ma cosa hai chiesto alla AI?
Boh!
Ma tu rispondi sempre boh!
Boh!

Comunque è quello che è e fa quello che deve fare, se fosse stato un altro programma non l'avrebbe fatto, però lo fa quindi è quel programma che fa quello che deve fare. Chiaro?

Per Windows:

1.7 MB file on MEGA

mega.nz

Per Linux:

673.1 KB file on MEGA

mega.nz

A chiunque scoprirà quello che fa ecc. regalerò uno sdentato sorriso

 

[InRicordo]

Ultimamente i riscontri di Lunghette sono quasi azzerati. Questo non va bene. Quindi nuova/vecchia versione che ha migliori risultati:

Per Windows:

856.3 KB file on MEGA

mega.nz

Per Linux:
purtroppo mentre la AI stava modificando il codice è finito il tempo
la pubblico stasera


PS: elabora i ritardi per estratto (non per ambo o terno)

 

[Oberdan]

Ciao InRicordo,

non c'è alcuna fretta. Quando potrai sarà il momento giusto.
Anche io ho notato che gli esiti del nuovo Lunghette si sono rarefatti, malgrado l'ottimo lavoro fatto da Mattia.
Dunque qualcosa nel vecchio Lunghette, a dispetto degli errori rintracciati e corretti da Mattia, faceva sì che i risultati, in termini di esiti favorevoli, fossero costanti nel tempo.
Ora quindi sono curioso di vedere cos'hai tirato fuori dal cilindro.

 

[vincenzo63]

Ciao INRI, in allegato "estratto in attesa minima" di spaziometria, ..in considerazione che il tuo ultimo lavoro ha interessato questa particolare statistica;.... e da decenni che mi chiedevo se fosse possibile ottenere anche per la formazioni di coppie e terzine per l'esito di ambo , qualcosa che mi indicasse le coppie o le terzine per ruota singola e anche meglio più per più ruote il "maxritminimo" per l'esito di ambo, è possibile far lavorare la tua AI per ottenerla?. il max sarebbe poter scegliere di far operazioni su 1,2, 3, 4, 5 ruote e anche tutte scegliendo anche il tipo di formazione coppia, terzina e quartina,.... le elaborazioni sarebbero tantissime...magari fin quando è possibile... con ragionevole attesa per i tempi dell'elaborazione, forse non dovremmo chiedere troppo,... iniziamo a provarci?

 

[InRicordo]

Ciao INRI, in allegato "estratto in attesa minima" di spaziometria, ..in considerazione che il tuo ultimo lavoro ha interessato questa particolare statistica;.... e da decenni che mi chiedevo se fosse possibile ottenere anche per la formazioni di coppie e terzine per l'esito di ambo , qualcosa che mi indicasse le coppie o le terzine per ruota singola e anche meglio più per più ruote il "maxritminimo" per l'esito di ambo, è possibile far lavorare la tua AI per ottenerla?. il max sarebbe poter scegliere di far operazioni su 1,2, 3, 4, 5 ruote e anche tutte scegliendo anche il tipo di formazione coppia, terzina e quartina,.... le elaborazioni sarebbero tantissime...magari fin quando è possibile... con ragionevole attesa per i tempi dell'elaborazione, forse non dovremmo chiedere troppo,... iniziamo a provarci?

Per gli ambi non credo ci siano soverchi problemi, per i terni diventa un po' più pesante. D'altra parte anche quello che ho pubblicato trova (forse) i max rit min, ma ricorre, per essere veloce a qualche "trucchetto". In origine avevo chiesto i ritardi anche per quaterne e cinquine ma i tempi sarebbero stati biblici. Anche se anche qui si poteva ricorrere a qualche trucchetto.
Appena ho tempo passerò agli ambi e vedremo cosa ne esce, considerando solo 2 numeri cioè 4005 ambi si può senz'altro fare in tempi di elaborazione non eccessivi. Con tre numeri forse, con quattro mi sa che dovremmo lanciare la ricerca e lasciarla in eredità ai pronipoti dei nostri pronipoti. Basta aver pazienza, come era solito dire Noè
ciao

 

[InRicordo]

Ciao InRicordo,

non c'è alcuna fretta. Quando potrai sarà il momento giusto.
Anche io ho notato che gli esiti del nuovo Lunghette si sono rarefatti, malgrado l'ottimo lavoro fatto da Mattia.
Dunque qualcosa nel vecchio Lunghette, a dispetto degli errori rintracciati e corretti da Mattia, faceva sì che i risultati, in termini di esiti favorevoli, fossero costanti nel tempo.
Ora quindi sono curioso di vedere cos'hai tirato fuori dal cilindro.

La lepre. Ma non la posso pubblicare perché me la sono mangiata da buon falso vegetariano


Mi sono limitato a reitrodurre piccole cose, se sufficienti lo vedremo andando avanti.
Ogni modifica al codice ha le sue conseguenze, a volte piacevoli, altre un po' meno.
Poi ho notato alcune "personalità" diverse, nelle diverse AI.
Quella che preferisco la AI Claude, emule di Gerolamo Savonarola, qualsiasi cosa che le chiedo dice: "Ricorda che il Banco vince sempre, e tutte le ricerche rientrano nelle sfere di probabilità dei numeri presi a caso". E quando le chiedo di astenersi dai commenti negativi, non dice nulla ma poi lo stampa nel report. Le ho dato in pasto la macro Killer e anche di fronte all'evidenza era scettica. Che sia al servizio della Lottomatica?

ChatGdp invece fa tutto quello che le chiedi anche se impossibile, poi nove volte su dieci non funziona o fa tutto salvo quello che le hai chiesto.

Copilot lo ho disinstallato

 

[InRicordo]

Detto, quasi fatto:




Tempo impiegato sul mio computer I3 16 GB vecchio di qualche anno è stato di 34 secondi per lo più usati per fare il report
Quindi appena la AI sarà disponibile proverò con 5 numeri, anche ammettendo un aumento del 200% del tempo impiegato per elaborare restiamo ancora in tempi umani.
Non ho ancora controllato se i risultati sono corretti (intendo come ritardo, se poi sono effettivamente il maxritmin non lo so)

A prima vista i risultati sono corretti, ma quello che trova è il massimo ritardo minimo? A me pare di no. Che non abbia compreso quello che le ho spiegato sul maxritmin?
Facciamo così, chi di voi ha le idee più chiare mi dica come (con quali parole) devo spiegarlo alla AI.
Non siate timidi, suvvia! Tanto, per quanto impegno metterete, non sarete MAI cazzoni come me!

 

[vincenzo63]

un fulmine , benissimo, INRI...sarebbe troppo chiedere "anche" il riferimento del record storico su... ad esempio su tutte le cinquine di ruote possibili fra le 11 o 10 ruote,..... immagino che il riferimento storico riportato sia riferito "solo" alle 5 ruote in esame...ottenuto quel dato abbiamo un max storico su tutte le formazioni di 5 ruote possibili...