Ciao Marco,non è questione di "dare 2 numeri al lotto",e' che se mi fanno passare per quello che NON sono,mistificando la realtà (la sua) la cosa mi fà incazzare,e parecchio,avrei potuto ignorare tutta la situazione oppure decidere di far "capire" a tutti chi o cosa è COBICEBINARIO,hò optato per la seconda soluzione... Sono anni che ci leggiamo e credo che una tua idea su di me te la sia fatta,ma,visto che "il soggetto" poi si è rivelato quello che è...hà preso fischi per fiaschi secondo il suo pensiero malsano...e allora mi sono difeso,ecchecazz... mi si accusa di cose non vere....Battaglie ne hò fatte tante ,in una 20 anni di e piu di lotto,ma sempre nella corretezza e senza mai esprimermi in modo scurrile, diffamatorio,o offensivo...questo "signore" secondo le sue idee malsane afferma cose che "esistono solo nella sua mente"facendomi passare per quello che non sono MAI stato e che mai sarò....sono d'accordo col tuo pensiero,sono cazzate e che le cose della vita importanti sono altre.....ma io sono fatto cosi' e chiedo scusa per tutto il "casino" creato.NON mi pento assolutamente ...mi spiace per il "3d" e rinnovo l'invito a tutti di seguirlo se piace"sennò pazienza c'è ne faremo una ragione....e comunque, ancora esprimo il pensiero ultimo...SI N'OMM E NIENT (si si proprio dedicato a te...) ohhh non te Monello...
Chiudo qui il "discorso"su questa diatriba,non ci voglio piu' entrare.Grazie Monello e Bepy78 per aver dedicato il vostro tempo.
Nel "frattime" chiedo se qualcuno,Marcoelle,Bepy78,Claudio8( o qualche mago di script possa esaudire una richiesta su questo script (risale al 2016 ritrovato sistemando le decine di Chiavette usb raccolte in anni....) Non sò chi sia l'autore,non è indicato,se chiunque riconosce la paternità della ricerca e script è pregato di dirlo...sarà mia premura indicarlo.
Ps. Monellaccio,tu sei un asso a modificare e reinventare script e ricerche secondoil tuo pensiero...se vuoi potrai modificare il tutto.Grazie.
"
Sub Main()
Dim ruote(11)
Dim numeri(90)
Dim ncicli
Dim cicli
Dim stringa
Dim fredec(9),frecad(9),predec(8),precad(9),cicad(10,1),cidec(10,1)
Dim r1,r2,es,e1,estr1,estr2,cc,decmax,cadmax,nmax,n,nf,np,ff
cicli = CLng(InputBox("Quanti cicli vuoi analizzare ?"))
ncicli = CLng(InputBox("Di quante estrazioni ?"))
r1 = CLng(InputBox("Ruota numero 1: (1=Bari 2=Cagliari ...)"))
r2 = CLng(InputBox("Ruota numero 2: 0=no"))
estr1 = EstrazioneFin -(ncicli*(cicli + 1))
For cc = 1 To cicli
estr1 = estr1 + ncicli
estr2 = estr1 + ncicli
For es = estr1 To estr2
For e1 = 1 To 5
numeri(Estratto(es,r1,e1)) = numeri(Estratto(es,r1,e1)) + 1
fredec(Decina(Estratto(es,r1,e1))) = fredec(Decina(Estratto(es,r1,e1))) + 1
If fredec(Decina(Estratto(es,r1,e1))) > decmax Then decmax = fredec(Decina(Estratto(es,r1,e1)))
frecad(Cadenza(Estratto(es,r1,e1))) = frecad(Cadenza(Estratto(es,r1,e1))) + 1
If frecad(Cadenza(Estratto(es,r1,e1))) > cadmax Then cadmax = frecad(Cadenza(Estratto(es,r1,e1)))
If r2 > 0 Then
numeri(Estratto(es,r2,e1)) = numeri(Estratto(es,r2,e1)) + 1
fredec(Decina(Estratto(es,r2,e1))) = fredec(Decina(Estratto(es,r2,e1))) + 1
If fredec(Decina(Estratto(es,r2,e1))) > decmax Then decmax = fredec(Decina(Estratto(es,r2,e1)))
frecad(Cadenza(Estratto(es,r2,e1))) = frecad(Cadenza(Estratto(es,r2,e1))) + 1
If frecad(Cadenza(Estratto(es,r2,e1))) > cadmax Then cadmax = frecad(Cadenza(Estratto(es,r2,e1)))
End If
Next
Next
Next
stringa = "Ruote gioco: " + NomeRuota(r1)
If r2 > 0 Then stringa = stringa + " - " + NomeRuota(r2)
Scrivi stringa,True
ff = cadmax + 1
Do
ff = ff - 1
If ff = 0 Then Exit Do
For cc = 1 To 9
If frecad(cc) = ff Then
Scrivi "cadenza più frequente :" + CStr(cc)
Scrivi "Frequenza " + CStr(ff) + " in " + CStr(cicli) + " cicli da " + CStr(ncicli) + " estrazioni"
nf = 0
nmax = 0
For n = 1 To 90
If Cadenza
= cc Then
nf = nf + 1
cicad(nf,0) = n
cicad(nf,1) = numeri
If numeri
> nmax Then nmax = numeri
End If
Next
nf = nmax + 1
nmax = 0
Do
nf = nf - 1
If nf = 0 Then Exit Do
For n = 1 To 9
If cicad(n,1) = nf Then
nmax = nmax + 1
cidec(nmax,0) = cicad(n,0)
End If
Next
Loop
Scrivi "Capogioco cadenza : " + CStr(cidec(1,0))
ColoreTesto 1
Scrivi "Abbinamenti x ambo: " + CStr(cidec(2,0)) + " - " + CStr(cidec(3,0)) + " - " + CStr(cidec(4,0))
ColoreTesto 2
Scrivi "Sestina x ambo e terno: " + CStr(cidec(1,0)) + " - " + CStr(cidec(2,0)) + " - " + CStr(cidec(3,0)) + " - " + CStr(cidec(4,0)) + " - " + CStr(cidec(5,0)) + " - " + CStr(cidec(6,0))
ColoreTesto 0
Exit Do
End If
Next
Loop
Scrivi""
ff = decmax + 1
Do
ff = ff - 1
If ff = 0 Then Exit Do
For cc = 1 To 9
If fredec(cc) = ff Then
Scrivi "Decina più frequente :" + CStr(cc)
Scrivi "Frequenza " + CStr(ff) + " in " + CStr(cicli) + " cicli da " + CStr(ncicli) + " estrazioni"
nf = 0
nmax = 0
For n = 1 To 90
If Decina
= cc Then
nf = nf + 1
cidec(nf,0) = n
cidec(nf,1) = numeri
If numeri
> nmax Then nmax = numeri
End If
Next
nf = nmax + 1
nmax = 0
Do
nf = nf - 1
If nf = 0 Then Exit Do
For n = 1 To 9
If cidec(n,1) = nf Then
nmax = nmax + 1
cicad(nmax,0) = cidec(n,0)
End If
Next
Loop
Scrivi "Capogioco decina: " + CStr(cicad(1,0))
ColoreTesto 1
Scrivi "Abbinamenti x ambo: " + CStr(cicad(2,0)) + " - " + CStr(cicad(3,0)) + " - " + CStr(cicad(4,0))
ColoreTesto 2
Scrivi "Sestine x ambo e terno: " + CStr(cicad(1,0)) + " - " + CStr(cicad(2,0)) + " - " + CStr(cicad(3,0)) + " - " + CStr(cicad(4,0)) + " - " + CStr(cicad(5,0)) + " - " + CStr(cicad(6,0))
Exit Do
End If
Next
Loop
End Sub"
Questo script elabora sulle "frequenze" di decine e cadenze in dato range di cicli (cicli temporali) io vorrei vederlo Lavorare con le "presenze",in pratica deve fare la stessa ricerca ,una in "frequenze" e l'altra in "presenze" e nell'outpout indicarmi i valori delle frequenze,l'altro delle presenze....Presenze Decine con annessi estratti terzine lunghetta,frequenze con stessa ricerca....le richieste dell' imput box sono uguali...
Grazie se possibile e fattibile la cosa.Il prossimo step sarebbe trovare l'indice di convenienza fra le 2 ambate trovate fra decine e cadenze.
Grazie a tutti.
![[Andrei]](/data/avatars/m/26/26562.jpg?1716306653){kind=avatar}
