Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Buon Giorno a Tutte/i.
Ho già descritto ampiamente ogni singola parte dell'algoritmo ... che ha portato alla stesura di questa utility.
Quindi aggiungo solamente che ho convertito, "in Legenda", il piccolo script che avevo usato
per spiegare, il perchè delle scelte adottate relativamente ai colori.
Ecco dunque, lo script, completo, dei sui 4 componenti principali: Raccolta Dati / 2 Visualizzatori (per Ruota e per Numero) / Legenda.
Codice:Sub Main 'Raccolata dati: Scrivi "Controllo Presenze in 9 Estrazioni By Joe",1 : Scrivi Dim Nu(90,12) Ini = EstrazioneFin - 8 : Fin = EstrazioneFin 'Controllo su periodo di NOVE Estrazioni For Es = Ini To fin For R = 1 To 12 : If R = 11 Then R = 12 For P = 1 To 5 E = Estratto(Es,R,P) : Nu(E,R) = Nu(E,R) + 1 Next Next Next 'Visualizzazione "per Ruote". For R = 1 To 12 : If R = 11 Then R = 12 Scrivi SiglaRuota(R) & " ",1,0 For E = 1 To 90 If Nu(E,R) > 0 Then Scrivi Format2(E) & " ",0,0 Next : Scrivi Next : Scrivi 'Visualizzazione "per Numero" e "Frequenza nel Periodo". For E = 1 To 90 'Per ogni Estratto Co = 0 'Azzera Contatore_Orizzontale Scrivi Format2(E) & " ",1,0 'Estratto For R = 1 To 12 : If R = 11 Then R = 12 'Per ogni ruota If Nu(E,R) > 0 Then 'Controlla se c'erano presenze. ColoreTesto(Nu(E,R)) : Scrivi SiglaRuota(R) & " ",1,0 Else Scrivi "-- ",0,0 ' Caratteri separatori alternativi End If ColoreTesto 0 : Co = Co + CInt(Nu(E,R)) 'Incrementa il TOTALE Next Scrivi FormatSpace(Co,2,1),1 'Scrive il TOTALE (Presenze / Periodo) = Frequenza Next : Scrivi 'Legenda : For C = 1 To 5 : ColoreTesto C : Scrivi "Freq=" & C & " ",1,0 : Next : Scrivi End Sub
Ini = EstrazioneFin - 8 : Fin = EstrazioneFin 'Controllo su periodo di NOVE Estrazioni
Ini = EstrazioneFin - 17 : Fin = EstrazioneFin 'Controllo su periodo di DICIOTTO Estrazioni
Per desperaux credo basti cambiare questa riga per fare quello che t'interessa...
inCodice:Ini = EstrazioneFin - 8 : Fin = EstrazioneFin 'Controllo su periodo di NOVE Estrazioni
Codice:Ini = EstrazioneFin - 17 : Fin = EstrazioneFin 'Controllo su periodo di DICIOTTO Estrazioni
'Raccolata dati:
Dim Nu(90,12) : Q = 9 ' Quantità Estrazioni Considerate
Scrivi "Controllo Presenze in " & Q & " Estrazioni By Joe",1 : Scrivi
Ini = EstrazioneFin - ( Q - 1 ) : Fin = EstrazioneFin 'Controllo su periodo di "Q" Estrazioni
For Es = Ini To fin
For R = 1 To 12 : If R = 11 Then R = 12
For P = 1 To 5
E = Estratto(Es,R,P) : Nu(E,R) = Nu(E,R) + 1
Next
Next
Next
Sub Main
Dim Nu(90,12) : Q = 9 ' Quantità Estrazioni Considerate
Scrivi "Controllo Presenze in " & Q & " Estrazioni By Joe. Legenda : ",1,0
'Legenda :
For C = 1 To 5 : ColoreTesto C : Scrivi "Freq = " & C & Space (2),1,0 : Next : Scrivi : Scrivi
'Raccolata dati:
Ini = EstrazioneFin -(Q - 1) : Fin = EstrazioneFin 'Controllo su periodo di "Q" Estrazioni
For Es = Ini To Fin
For R = 1 To 12 : If R = 11 Then R = 12
For P = 1 To 5
E = Estratto(Es,R,P) : Nu(E,R) = Nu(E,R) + 1
Next
Next
Next
'Visualizzazione "per Ruote" e "Frequenza nel Periodo".
For R = 1 To 12 : If R = 11 Then R = 12
ColoreTesto 0 : Scrivi SiglaRuota(R) & " ",1,0
For E = 1 To 90
If Nu(E,R) > 0 Then ColoreTesto(Nu(E,R)) : Scrivi Format2(E) & " ",0,0
Next : Scrivi
Next : Scrivi
'Visualizzazione "per Numero" e "Frequenza nel Periodo".
For E = 1 To 90 'Per ogni Estratto
Co = 0 'Azzera Contatore_Orizzontale
ColoreTesto 0 : Scrivi Format2(E) & " ",1,0 'Estratto
For R = 1 To 12 : If R = 11 Then R = 12 'Per ogni ruota
If Nu(E,R) > 0 Then 'Controlla se c'erano presenze.
ColoreTesto(Nu(E,R)) : Scrivi SiglaRuota(R) & " ",1,0
Else
Scrivi "-- ",0,0 ' Caratteri separatori alternativi
End If
ColoreTesto 0 : Co = Co + CInt(Nu(E,R)) 'Incrementa il TOTALE
Next
Scrivi FormatSpace(Co,2,1),1 'Scrive il TOTALE (Presenze / Periodo) = Frequenza
Next : Scrivi
End Sub
In questa nuova versione dello script, ho reimpaginato le varie parti che lo componevano.
Ho portato la "Legenda" all'inizio ... e soprattutto ho reso disponibile ... la versione "a colori",
anche nella visualizzazione ... per ruote.
Come si vede ... nel contesto, ove era, ormai, tutto predisposto,
bastava aggiungere: "ColoreTesto(Nu(E,R))".
Detto & fatto!
Terminerò lo script (si fa per dire) con l'aggiunta di una linea di codice.
Una sorta di righello "autodimensionante" che ci aiuti a leggere "le quantità" di Estratti-Diversi ... in ogni ruota.
Estratti che, per contro, quando si ripetono ... non permettono che il numero di essi,
sia il massimo teoricamente possibile.
Abbiamo detto che dovrebbero essere 45 (9Estrazioni X5Estratti) ed invece ...
la presenza di quelli rossi/verdi/gialli, li limita ... un pò. (Circa 9)
Dirò meglio.
Codice:Sub Main Dim Nu(90,12) : Q = 9 ' Quantità Estrazioni Considerate Scrivi "Controllo Presenze in " & Q & " Estrazioni By Joe. Legenda : ",1,0 'Legenda : For C = 1 To 5 : ColoreTesto C : Scrivi "Freq = " & C & Space (2),1,0 : Next : Scrivi : Scrivi 'Raccolata dati: Ini = EstrazioneFin -(Q - 1) : Fin = EstrazioneFin 'Controllo su periodo di "Q" Estrazioni For Es = Ini To Fin For R = 1 To 12 : If R = 11 Then R = 12 For P = 1 To 5 E = Estratto(Es,R,P) : Nu(E,R) = Nu(E,R) + 1 Next Next Next 'Visualizzazione "per Ruote" e "Frequenza nel Periodo". For R = 1 To 12 : If R = 11 Then R = 12 ColoreTesto 0 : Scrivi SiglaRuota(R) & " ",1,0 For E = 1 To 90 If Nu(E,R) > 0 Then ColoreTesto(Nu(E,R)) : Scrivi Format2(E) & " ",0,0 Next : Scrivi Next : Scrivi 'Visualizzazione "per Numero" e "Frequenza nel Periodo". For E = 1 To 90 'Per ogni Estratto Co = 0 'Azzera Contatore_Orizzontale ColoreTesto 0 : Scrivi Format2(E) & " ",1,0 'Estratto For R = 1 To 12 : If R = 11 Then R = 12 'Per ogni ruota If Nu(E,R) > 0 Then 'Controlla se c'erano presenze. ColoreTesto(Nu(E,R)) : Scrivi SiglaRuota(R) & " ",1,0 Else Scrivi "-- ",0,0 ' Caratteri separatori alternativi End If ColoreTesto 0 : Co = Co + CInt(Nu(E,R)) 'Incrementa il TOTALE Next Scrivi FormatSpace(Co,2,1),1 'Scrive il TOTALE (Presenze / Periodo) = Frequenza Next : Scrivi End Sub
'Decadenza Estratti Teorica By Joe.
Sub Main
Tot = 90
Scrivi "Rit Estr. Rim. N.E.T."
For Rit = 0 To 120
E = Tot / 18 : QE = QE + E
Rim = Tot - Round(E,4)
Scrivi FormatSpace (Rit,4) & FormatSpace (Round(E,2),6) & FormatSpace (Round(Rim,2),6) & Round (QE,2)
Tot = Rim
Next
End Sub
Tom ...
driblo, per un attimo le tue domande,
2 qui ... +1 ... altrove, non ti sei accorto del teletrasporto ?
Non era trascorso del tempo s'era introdotto dello spazio!!!
((Tra parentesi) (grazie dello script))
del resto come sai, troppa carne al fuoco ... brucia.
Passando a descrivere quanto avevo detto.
C'è una massa di 90 numeri.
5 di questi vengono estratti.
85 rimangono da estrarre.
C' è un rapporto pari a 5 su 90.
Oppure 1/18 che è Matematicamente equivalente.
Nella proporzione dei rimanenti ne saranno estratti teoricamente 85/18 ...
quindi altri 4,72 (tralasciando le considerazioni sui decimali)
portano ad aumentare il totale degli estratti a 9,72 (5+4.72=9.72)
Così viadicendo con l'aumentare del ritardo ... i numeri da estrarre ... si esauriscono.
Vi è un Numero di Estratti Teorico (NET) in funzione del ritardo.
Quindi al "Ritardo Zero" il NET è 5 (... come quello materiale).
Al primo colpo il NET è 9,72 ecc.
Questo piccolo script ... simula il decadimento teorico
nella massa dei numeri da estrarre. E ... il N.E.T.
Si osserva che ... a ritardo 18 ...
60 sono i numeri teoricamente già Estratti
30 i numeri rimasti da estrarre.
Come da lustri osservano i lottologi ... è una "Legge", detta, "Del Terzo".
Codice:'Decadenza Estratti Teorica By Joe. Sub Main Tot = 90 Scrivi "Rit Estr. Rim. N.E.T." For Rit = 0 To 120 E = Tot / 18 : QE = QE + E Rim = Tot - Round(E,4) Scrivi FormatSpace (Rit,4) & FormatSpace (Round(E,2),6) & FormatSpace (Round(Rim,2),6) & Round (QE,2) Tot = Rim Next End Sub
Sub Main
'Controllo Presenze / Estrazioni V.3.0 By Joe
Dim Nu(90,12)
'Quantità Estrazioni Considerate
Q = CInt(InputBox("Es: 9","Quantità Estrazioni",9))
Scrivi "Controllo Presenze in " & Q & " Estrazioni By Joe. Legenda: ",1,0
'Legenda :
For C = 1 To 7 : ColoreTesto C : Scrivi "Freq = " & C & Space (2),1,0 : Next : Scrivi : Scrivi : ColoreTesto 0
'Numero_Estratti_Teorico
Scrivi "NET ",1,0 : For K = 1 To 5*(1 -(17/18)^Q)/(1 -(17/18)) : Scrivi Format2(K) & " ",1,0 : Next : Scrivi
'Raccolata dati:
Ini = EstrazioneFin -(Q - 1) : Fin = EstrazioneFin 'Controllo su periodo di "Q" Estrazioni
For Es = Ini To Fin
For R = 1 To 12 : If R = 11 Then R = 12
For P = 1 To 5
E = Estratto(Es,R,P) : Nu(E,R) = Nu(E,R) + 1
Next
Next
Next
'Visualizzazione "per Ruote" e "Frequenza nel Periodo".
For R = 1 To 12 : If R = 11 Then R = 12 'Per Ogni Ruota
ColoreTesto 0 : Scrivi SiglaRuota(R) & " ",1,0
For E = 1 To 90 'Per Ogni Numero
If Nu(E,R) > 0 Then ColoreTesto(Nu(E,R)) : Scrivi Format2(E) & " ",0,0
Next : Scrivi
Next : Scrivi
'Visualizzazione "per Numero" e "Frequenza nel Periodo".
For E = 1 To 90 'Per ogni Estratto
Co = 0 'Azzera Contatore_Orizzontale
ColoreTesto 0 : Scrivi Format2(E) & " ",1,0 'Estratto
For R = 1 To 12 : If R = 11 Then R = 12 'Per ogni ruota
If Nu(E,R) > 0 Then 'Controlla se c'erano presenze.
ColoreTesto(Nu(E,R)) : Scrivi SiglaRuota(R) & " ",1,0
Else
Scrivi "-- ",0,0 ' Caratteri separatori alternativi
End If
ColoreTesto 0 : Co = Co + CInt(Nu(E,R)) 'Incrementa il TOTALE
Next
Scrivi FormatSpace(Co,2,1),1 'Scrive il TOTALE (Presenze / Periodo) = Frequenza
Next : Scrivi
End Sub
Codice:Sub Main 'Controllo Presenze / Estrazioni V.3.0 By Joe Dim Nu(90,12) 'Quantità Estrazioni Considerate Q = CInt(InputBox("Es: 9","Quantità Estrazioni",9)) Scrivi "Controllo Presenze in " & Q & " Estrazioni By Joe. Legenda: ",1,0 'Legenda : For C = 1 To 7 : ColoreTesto C : Scrivi "Freq = " & C & Space (2),1,0 : Next : Scrivi : Scrivi : ColoreTesto 0 'Numero_Estratti_Teorico Scrivi "NET ",1,0 : For K = 1 To 5*(1 -(17/18)^Q)/(1 -(17/18)) : Scrivi Format2(K) & " ",1,0 : Next : Scrivi 'Raccolata dati: Ini = EstrazioneFin -(Q - 1) : Fin = EstrazioneFin 'Controllo su periodo di "Q" Estrazioni For Es = Ini To Fin For R = 1 To 12 : If R = 11 Then R = 12 For P = 1 To 5 E = Estratto(Es,R,P) : Nu(E,R) = Nu(E,R) + 1 Next Next Next 'Visualizzazione "per Ruote" e "Frequenza nel Periodo". For R = 1 To 12 : If R = 11 Then R = 12 'Per Ogni Ruota ColoreTesto 0 : Scrivi SiglaRuota(R) & " ",1,0 For E = 1 To 90 'Per Ogni Numero If Nu(E,R) > 0 Then ColoreTesto(Nu(E,R)) : Scrivi Format2(E) & " ",0,0 Next : Scrivi Next : Scrivi 'Visualizzazione "per Numero" e "Frequenza nel Periodo". For E = 1 To 90 'Per ogni Estratto Co = 0 'Azzera Contatore_Orizzontale ColoreTesto 0 : Scrivi Format2(E) & " ",1,0 'Estratto For R = 1 To 12 : If R = 11 Then R = 12 'Per ogni ruota If Nu(E,R) > 0 Then 'Controlla se c'erano presenze. ColoreTesto(Nu(E,R)) : Scrivi SiglaRuota(R) & " ",1,0 Else Scrivi "-- ",0,0 ' Caratteri separatori alternativi End If ColoreTesto 0 : Co = Co + CInt(Nu(E,R)) 'Incrementa il TOTALE Next Scrivi FormatSpace(Co,2,1),1 'Scrive il TOTALE (Presenze / Periodo) = Frequenza Next : Scrivi End Sub
Pertanto a compimento di quanto precedentemente esposto ho riassunto in una formula,
più statistica ed adatta allo script ... il formare il righello con cui meglio stabilire,
le fluttuazioni tra il numero degli Estratti Teorici e quelli realmente caduti.
Fantastico JOE91! Ti chiedo un ulteriore change se possibile... La frequenza pari a 4 (gialla) e la frequenza pari a 5 (bianca) si potrebbero evidneziare in colori + visibili... (tipo es. viola e verde) e il colore nero corrisponde a fq = 6 ? Grazie comunque Mago!
Anche se non ho capito la storia dello spazio e del teletrasporto del precedente tuo post... fosse per me... ti darei il Nobel per matematica scriptologia e lotto ludica applicata!
Anche se non ho capito la storia dello spazio e del teletrasporto del precedente tuo post... fosse per me... ti darei il Nobel per matematica scriptologia e lotto ludica applicata!
Step_One: Stavi nello stesso tempo ... in un altro posto ... dove per perdere,
più del previsto e del prevedibile ... mi hai consigliato di provare con 3Mila estrazioni. Ricordi?
Rispondo Diplomaticamente: No-Comment!
Step_Two:
Qui ora ... dopo il teletrasporto ... Francamente non so.
Sono totalmente ignorante per non essermi mai posto in osservazione di un evento,
... come da te prospettato.
Forse bisognerebbe trovare una situazione in cui ... ci siano numeri per garantire sempre ...
quelle quantità a quei livelli di ritardo ... individuando così un pronostico-dinamico,
da seguire, auspicando il realizzarsi delle cadute, previste dalla teoria.
Complicato! (Anche se mi piace ... l'idea).
Trovo tuttavia più precorribile ... passare dal tratto Verticale ...
che si lascia intravvedere tra i sinronismi continui,
quello a cui stavo lavorando qualche (ormai) mese fa.
Ovvero con il Tabellone Analitico Verticale
quindi sviluppando le formazioni isocrone (Orizzontali).
Qusto è il metodo che avevo ricavato:
Istruzioni per l'uso: "Pigia, di nuovo, il Bottone" del teletrasporto.
http://forum.lottoced.com/f17/52-ca_to_-co_-109318/index2.html#post1244411
Buona Giornata
Ciao Lottotom_75
scusa la mia cocciutaggine,ma non ho capito come ci si arriva a quella settina x Estratto in 6 colpi
Se ne hai voglia puoi dirmi come ci posso arrivare anch'io?
eh!..........grazie per excel