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!