Questo è uno script di molti anni fa ed ha un costrutto obsoleto, sinceramente non lo ho letto .
For n = 1 To 90
co = co + 1
nu1(co,1) = co
nu1(co,2) = n
nn1(1) = n
ru(1) = r
freq = SerieFreq(es + 1,ess,nn1,ru,1)' qui conteggia la freq effettiva dei singoli numeri
If freq > 0 Then nu1(co,3) = nu1(co,3) + 1 'questa è if che trasforma da frequenti a presenti
nu1(co,4) = nu1(co,4) + freq ' qui aggiunge alla freq già in memoria il nuovo quantitativo di freq dei numeri
NextSub Main()
Dim ru(5),nu(1),nr(),ni()
esi = InputBox(" Estrazione iniziale -",,EstrazioneFin - 30)
esf = InputBox(" estrazione Finale -",,EstrazioneFin-30)
da = InputBox(" Da quale ruota vuoi iniziare ? ",,1)
r1 = Eval(da)
dd = InputBox(" Quante ruote vuoi utilizzare? ",,1)
ss = InputBox(" Su quante estrazioni vuoi i frequenti? ",,9)
tt = InputBox(" Per quanti colpi vuoi giocare?",,9)
s1 = Eval(ss - 1)
For x = 1 To Eval(dd)
r =(r1 + x) - 1
ru(x) = r
ruote = ruote & Left(NomeRuota(r),2) & "-"
Next
fin = esf
ini = esi
For es = ini To fin
AvanzamentoElab ini,fin,es
co = 0
ReDim nr(0)
For x = 1 To 90
nu(1) = x
If SerieFreq(es - s1,es,nu,ru,1) > 2 Then
co = co + 1
ReDim Preserve nr(co)
nr(co) = x
End If
Next
' Simulazione giocate
ReDim ni(0)
For x = ss-1 To 0 Step - 1
Scrivi " [" & es-x & "] del " & DataEstrazione(es-x) & " -- " & ruote & StringaEstratti(es-x,r),1
Next
Scrivi Chr(13) & "[" & es & "] ultima estrazione dei Superfrequenti > 2 " & DataEstrazione(es) & " -- " & ruote & StringaNumeri(nr),1
For x = 1 To tt
Scrivi x & "° colpo [" & es+x & "] del " & DataEstrazione(es+x) & " -- " & ruote & StringaEstratti(es+x,r),1
Next
' Blocco seguente controlla il colpo di esito se si verifica
ReDim Preserve nr(co + 1) ' nr variabile che contiene i numeri da mettere in gioco
ca = 0
est = es + tt
If est > EstrazioneFin Then est = EstrazioneFin End If
For ex = es + 1 To est
ca = ca + 1
For r = ru(1) To ru(dd)
cc = 0
riga = Left(NomeRuota(r),2) & " "
For p = 1 To 5
nr(co + 1) = Estratto(ex,r,p)
If NumeriRipetuti(nr) = True Then
cc = cc + 1
ReDim Preserve ni(cc)
ni(cc) = nr(co + 1)
End If
Next
riga = riga & "" & StringaNumeri(ni)
If cc > 0 Then ' >0 = Ambata-Ambo-Terno-Quat-Cin., >1 = Ambo-Terno ecc., >2 = Terno-Quat.-Cinquina
Scrivi DataEstrazione(ex) & " " & FormatSpace(riga,20) & Format2(ca) & "° colpo [" & ex & "]"
riga = ""
End If
Next
Next
' fine simulazione giocate
Next
End Sub
Anche a te Joe, e grazie per il gradito regalo (il3d in allegato) gli ho' dato una scorsa veloce veloce....che dire...ottima spiegazione e ottima esposizione dei concetti.L'ho salvato cosi' passate le baraonde di parenti e amici,con calma lo rileggerò .Grazie.
A meno che le ruote coinvolte siano multiple, in questo specifico caso in una sola estrazione ci potranno essere sotreggi ripetuti e multipli!
Carissimo Nikor,grazie per la delucidazione,fin qui ci ero arrivato....ma se leggi dall'inizio avevo postato un script che restituiva le frequenze su 5 ruote...io cercavo di avere NON delle frequenze ma delle PRESENZE ....cosa che come mi esplicato Joe e secondo lo "Scaravetti " pensiero sono cose ben diverse.Vedi,io non mi impantano in pseudo teoremi,io cerco,voglio capire,e ,l'occhio e' sempre attento a nuove e "non usuali " ricerche,scevre da "paturnie ormai assimilate da tutti,forse sono "il folle" un pazzo,un "nessuno",anche "ignorante se vuoi" (per ignorante intendo che ignoro) io leggo,imparo,assimilo (nelle possibilita' del mio "cervello") bacato e poi....ragiono.Non sempre prendo la stessa "giusta" via.....quella segnata da "menti eccelse",ma io sono io,sbagliato o no...Ma sono "unico",un "somaro" unico .Comunque grazie per i consigli,ne farò tesoro...Grazie per il tempo dedicatomi...il "tempo" e' una cosa preziosa...Grazie a tutti.
