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)