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.