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.
Option Explicit
Sub Main
Dim Ini,Fin,Es,Nu(1),Ru(1),Po(1)
Ini = 10262 - 1 : Fin = 10361 - 1
Nu(1) = 47 : Ru(1) = TO_ : Po(1) = 1
For Es = Ini To Fin
ImpostaGiocata 1,Nu,Ru,Po
Gioca Es,True
Next
ScriviResoconto
End Sub
Leggiamo che in 5 estrazioni si è verificata l'uscita di ben 2 numeri della terzina (123-su MI nelle ultime 1000 estrazioni) che abbiamo impostato in ricerca x estratto quindi il calco che fa SPMT è
Frequenza = quantità totale di volte che sono usciti i numeri ricercati (165)
mentre per
Presenze = quantità di volte che è uscito almeno uno dei 3 numeri ricercati (160)
Option Explicit
Sub Main
Dim Ini,Fin,Es,A,B,C
Fin = 10358 - 1
Ini = Fin - 1000
Scrivi "Presenze 1.2.3 in Milano dal " & DataEstrazione(Ini) & " al " & DataEstrazione(Fin)
Scrivi
For Es = Ini To Fin
If Posizione(Es,MI_,1) > 0 Then A = A + 1
If Posizione(Es,MI_,2) > 0 Then B = B + 1
If Posizione(Es,MI_,3) > 0 Then C = C + 1
Next
Scrivi "Presenze(1) = " & A
Scrivi "Presenze(2) = " & B
Scrivi "Presenze(3) = " & C
Scrivi "Pres.TOTALI = " & A + B + C
End Sub
W.Z.B.W => was zu beweisen war, che sarebbe equivalente alla forma classica "come volevasi dimostrare" nell'italico linguaggio scolastico e/o giornalistico, eppero' (per essere precisi) bisognerebbe usare la locuzione originale che, tra gli altri, fu' vergata in illo tempore, da Euclide e Archimede (esperti di computazioni), a cui loro davano il piu' appropriato "Quanto c'era da dimostrare", perfetto per questo contesto.Lo script è questo:
Codice:Option Explicit Sub Main Dim Ini,Fin,Es,A,B,C Fin = 10358 - 1 Ini = Fin - 1000 Scrivi "Presenze 1.2.3 in Milano dal " & DataEstrazione(Ini) & " al " & DataEstrazione(Fin) Scrivi For Es = Ini To Fin If Posizione(Es,MI_,1) > 0 Then A = A + 1 If Posizione(Es,MI_,2) > 0 Then B = B + 1 If Posizione(Es,MI_,3) > 0 Then C = C + 1 Next Scrivi "Presenze(1) = " & A Scrivi "Presenze(2) = " & B Scrivi "Presenze(3) = " & C Scrivi "Pres.TOTALI = " & A + B + C End Sub
Che produce :
Presenze 1.2.3 in Milano dal 17.08.2017 al 22.12.2023
Presenze(1) = 60
Presenze(2) = 55
Presenze(3) = 50
Pres.TOTALI = 165
Elenca come ampiamente prevedibile sia 165 Presenze TOTALI.
Sia 3 quantità (Differenti) di Presenze.
Una per ognuno dei 3 numeri "scelti".
E' di tutta evidenza che dividendo per 1000
(cioè per la stessa quantità di Estrazioni) i valori 60.55.50 diventano
0.060 P/E ; 0.055 P/E ; 0.050 P/E e come per le rispettive PRESENZE
SONO 3 FREQUENZE DIVERSE.
PRECEDENTEMENTE NON CALCOLATE.
Per quanto riguarda gli Ambi ... è lo stesso discorso.
Si potrà dunque dimostrare, aggiungendo gli Ambi,
che di 6 Frequenze (anche molto differenti sia per la Sorte che per il valore numerico),
non se era calcolata nemmeno una!
Option Explicit
Sub Main
Dim Ini,Fin,Es,A,B,C
Fin = 10358 - 1
Ini = Fin - 1000
Scrivi "Presenze 1.2.3 in Milano dal " & DataEstrazione(Ini) & " al " & DataEstrazione(Fin)
Scrivi
For Es = Ini To Fin
If Posizione(Es,MI_,1) > 0 And Posizione(Es,MI_,2) > 0 Then A = A + 1
If Posizione(Es,MI_,2) > 0 And Posizione(Es,MI_,3) > 0 Then B = B + 1
If Posizione(Es,MI_,2) > 0 And Posizione(Es,MI_,3) > 0 Then C = C + 1
Next
Scrivi " Ambo (1.2) = " & A & " Presenze"
Scrivi " Ambo (1.3) = " & B & " Presenze"
Scrivi " Ambo (2.3) = " & C & " Presenze"
Scrivi
Scrivi "AMBI TOTALI = " & A + B + C
End Sub
Logica ineccepibile!Prima di continuare con le Frequenze, degli Ambi, di cui al messaggio #88.
E' opportuno precisare che per la (SCONOSCIUTA) Frequenza NON c'è
(o forse per mia ignoranza non conosco) la sua Unità di Misura.
Comunque sia quella unitaria è 1.
1 Frequenza = 1 Presenza / 1 Estrazione.
Si DEDUCE intuitivamente che se non c'è l' Estrazione non c'è la Presenza.
Ma quando avviene l'estrazione "ZERO" che non c'è ?
Logicamente l'unica risposta sensata è : MAI !
Più pragmaticamente in un "conto alla rovescia" che parte da oltre 10 Mila
si scende fino a 10.9.8.7.6.5.4.3.2.1 ... e poi finalmente si arriva a ZERO.
Cioè "FINO A" a quando il Lotto non esisteva.
Dunque l'unico ZERO possibile a numerare regressivamente
le Estrazioni si troverebbe nel lontano 1871.
Da allora in poi (alla Bastian Contrario ?!?) ... 1.2.3.4.5.6.
fino ad oltre 10 Mila di Zeri ... sembra non ce ne siano !
Dunque la FREQUENZA = ZERO si ha quando ?
quando FREQUENZA ZERO = ZERO PRESENZE IN UNA ESTRAZIONE.
IN NESSUN ALTRO CASO!
Perchè matematicamente non è possibile dividere per ZERO ESTRAZIONI
anche PERCHE' NON E' MAI POSSIBILE DIVIDERE PER ZERO.
ZERO di qualsiasi altra quantità.
Siano esse Mele, Pere, Kilometri, Secondi, Giri, Capre, Cavoli e/o Lottologi.
Il Tempo,se osserviamo in un ciclo di 180 estrazioni, i piu' frequenti attuali , erano i piu' scompensati. Se facciamo una comparazione di 180 estrazioni indietro, vedremo che quelli piu'frequenti attuamente erano i piu' scompensati.La matematica al lotto non esiste.Tutti i numeri chi prima e chi dopo arriveranno allo stesso livello ZERO.(anomali sono i ritardatari)
Sei un Grande joeSono in totale accordo, sul fatto che con l'aumentare del numero di Estrazioni,
anche un un grande ritardo possa diminuire ed incidere poco, sulla frequenza media,
asattamente come alcune Presenze a "basso ritardo" la possono aumentare signicativamente.
Tutto questo naturalmente è simulabile e ricordo di averlo già dimostrato,
inserendo un grafico a "canne d'organo" o il diagramma equiparabile a quello
prodotto dal rimbalzo che per via degli attriti resistenze ed imperfette elasticità,
piano-piano diminuisce le ampiezze delle sue successive oscillazioni.
Analogamente, si dovrebbe convalidare per vero quanto hai scritto.
Completando la tua affermazione con gli esempi reali dai quali hai dedotto quanto esposto.
Sicchè quanto affermato avrebbe a divententare di valenza scientifica.
Cioè verità, dimostrata nei fatti, riproducibile e pertanto teoricamente capace di ulteriore ripetizione.
Option Explicit
Sub Main
Dim Ini,Fin,Es,R,A,B,K,M(2)
A = 1
B = 2
R = MI_
Ini = 1
Fin = 10358
Scrivi NomeRuota(R) & " Ambo (" & A & "." & B & ")" & Chr(13),1
For Es = Fin To Ini Step -1
If Posizione(Es,R,A) > 0 Then
If Posizione(Es,R,B) > 0 Then
K = K + 1
Scrivi FormattaStringa (Es,"00000") & " " & DataEstrazione(Es) & " " & StringaEstratti(Es,R)
M(K) = Es
If K = 2 Then Exit For
End If
End If
Next
Scrivi
Scrivi "Ritardo = " & M(1) - M(2) & " Estrazioni",1
End Sub