Tabulati percentuali di LuigiB

[Baciccia4251]

Che file aggiornato ti serve?
Mastrolettere: Bari
Vedi l'allegato 2287510

Ciao Claudio8
Beh, tipo quello che hai messo nel post. Magari due o tre ruote qualsiasi. Mi serve solo per passare il tempo e vedere se riesco a ricordare come utilizzarlo. visto che qualcosa sembra risvegliarsi nella mia memoria quando le guardo.
Ormai gioco solo virtualmente. Col caldo non esco e poi ho paura di dimenticare, ancora, come rientrare in casa.
Grazie comunque
Odino spieghi le tue vele al vento
Baciccia

 

[Baciccia4251]

Frammenti di ricordi
al tempo, parlo di alcuni decenni fa, la mia mente funzionava bene. Da poco mi interessavo di lotto e seguivo uno strano individuo
Prof. Pazzaglia. La prima volta lo vidi a "Scomettiamo che..." indovinare alla roulette, puntata dopo puntata, se non il numero uscito il suo settore. Il Croupier era incredulo e anch'io. (Al Prof. Pazzaglia i Casinò vietavano l'accesso).
Poi lo trovai su un giornale specializzato in lotto e, successivamente, lessi moltissimi suoi scritti.
Asseriva che il gioco del lotto, contrariamente alla credenza comune, non fosse casuale. Ma dipendesse da una serie di parametri, tipo l'urna utilizzata, la forma dei bussolotti che contenevano i numeri, il metodo di inserimento nell'urna e via elencando.
Asseriva anche che assieme alla statistica si dovesse dare importanza anche ad una legge fisica, senza, però, citare quale.
Pensandoci arrivai alla conclusione che l'unica legge fisica alla quale si riferiva poteva solo riguardare i bussolotti a forma di sfera (almeno credo, ricordo poco).
Mi è tornato alla mente perché girando per Internet mi sono imbattuto in questo:

Ulteriore osservazione sulle anomalie dell'estrazione nel gioco del lotto | Matematica - Fisica - Altro

Ulteriore osservazione sulle anomalie dell'estrazione nel gioco del lotto

formulariomatematico.altervista.org

Non ricordo se ho mai letto, se non quest'articolo, qualcosa di simile.
So che quello studio mi permise, poi, di ottenere risultati straordinari nelle previsioni del lotto. Ma non ricordo il perché, ne come feci, quali furono i miei ragionamenti. Maledizione!
Dateci un'occhiata. Forse vi sarà chiaro perché considero le quindicine e non le decine, anche se in mancanza di meglio...
Nel caso vi fosse chiaro, per favore, spiegatelo anche a me. Perché non ricordo.
Buona lettura, fecondi pensieri e conseguenti vincite a tutti
Baciccia

 

[urusl8]

Frammenti di ricordi
al tempo, parlo di alcuni decenni fa, la mia mente funzionava bene. Da poco mi interessavo di lotto e seguivo uno strano individuo
Prof. Pazzaglia. La prima volta lo vidi a "Scomettiamo che..." indovinare alla roulette, puntata dopo puntata, se non il numero uscito il suo settore. Il Croupier era incredulo e anch'io. (Al Prof. Pazzaglia i Casinò vietavano l'accesso).
Poi lo trovai su un giornale specializzato in lotto e, successivamente, lessi moltissimi suoi scritti.
Asseriva che il gioco del lotto, contrariamente alla credenza comune, non fosse casuale. Ma dipendesse da una serie di parametri, tipo l'urna utilizzata, la forma dei bussolotti che contenevano i numeri, il metodo di inserimento nell'urna e via elencando.
Asseriva anche che assieme alla statistica si dovesse dare importanza anche ad una legge fisica, senza, però, citare quale.
Pensandoci arrivai alla conclusione che l'unica legge fisica alla quale si riferiva poteva solo riguardare i bussolotti a forma di sfera (almeno credo, ricordo poco).
Mi è tornato alla mente perché girando per Internet mi sono imbattuto in questo:

Ulteriore osservazione sulle anomalie dell'estrazione nel gioco del lotto | Matematica - Fisica - Altro

Ulteriore osservazione sulle anomalie dell'estrazione nel gioco del lotto

formulariomatematico.altervista.org

Non ricordo se ho mai letto, se non quest'articolo, qualcosa di simile.
So che quello studio mi permise, poi, di ottenere risultati straordinari nelle previsioni del lotto. Ma non ricordo il perché, ne come feci, quali furono i miei ragionamenti. Maledizione!
Dateci un'occhiata. Forse vi sarà chiaro perché considero le quindicine e non le decine, anche se in mancanza di meglio...
Nel caso vi fosse chiaro, per favore, spiegatelo anche a me. Perché non ricordo.
Buona lettura, fecondi pensieri e conseguenti vincite a tutti
Baciccia

Sono d'accordo sulla legge fisica... ma allora mi chiedo: perché non uscivano (ai tempi del bambino) gli stessi 5 numeri tutte le volte?
Dipendeva dalla forza con cui si girava la manovella e dalla lunghezza dall'avambraccio del bambino?

 

[Baciccia4251]

Sono d'accordo sulla legge fisica... ma allora mi chiedo: perché non uscivano (ai tempi del bambino) gli stessi 5 numeri tutte le volte?
Dipendeva dalla forza con cui si girava la manovella e dalla lunghezza dall'avambraccio del bambino?

Confessa! L'hai scritta per farmi ridere! Ci sei riuscito.

 

[claudio8]

Le vecchie estrazioni fanno parte della storia, le Venus attuali sono altra cosa.

 

[Baciccia4251]

Le vecchie estrazioni fanno parte della storia, le Venus attuali sono altra cosa.

Sono d'accordo. Ma i principi della fisica (e della statistica) non cambiano per far piacere alle Venus.

 

[Baciccia4251]

Stavo provando alcuni Script scaricati chissà quando e questo:
------------------------------------------------------------------------------------------
Sub Main()
Dim num(10),numero(10),ruota(1),sorte

est = InputBox("Quante estrazioni analizzi",,10293)
sorte = CInt(InputBox("Quale sorte verificare ",,2))

ScegliNumeri(num)
nStart = Timer ' partenza tempo di elaborazione
Ini = EstrazioneFin - est
fin = EstrazioneFin
diff = fin - Ini + 1
Scrivi"Statistica Veloce su combinazione di Numeri scelti" & " ",True,False,6,0,3
Scrivi" " & StringaNumeri(num) & " ",True,False,2,4,3
Scrivi" Per sorte..." & " " & NomeSorte(sorte) & " ",True,True,3,0,3
Scrivi String(130,"=")
Scrivi " Dalla data..." & DataEstrazione(Ini) & " alla data..." & DataEstrazione(fin) & " - Estrazioni Totali " & DIFF,1
Scrivi String(130,"=")
Scrivi
'--------- crea tabella---------------
ReDim atitoli(15)
atitoli(1) = " Ruota "
'atitoli(2) = " Combinazione "
atitoli(3) = " RD1 "
atitoli(4) = " RD2 "
atitoli(5) = " RD3 "
atitoli(6) = " RD4 "
atitoli(7) = " RD5 "
atitoli(8) = " Ritardo attuale "
atitoli(9) = " Ritardo Storico "
atitoli(10) = " incr. storico "
atitoli(11) = " Frequenza "
atitoli(12) = " - esito - "
atitoli(13) = " - stringa Esito - "
atitoli(14) = " data estraz.uscita "
atitoli(15) = " Indice Convenienza "
' inizializzo la tabella
Call InitTabella(atitoli,1,,3,5)
For r = 1 To 12
'If r = 11 Then r = 12
ruota(1) = r
Call AvanzamentoElab(Ini,fin,n)
If ScriptInterrotto Then Exit For
Call StatisticaFormazione(num,ruota,sorte,rit,ritmax,incrRitMax,freq,Ini,fine)
Call VerificaEsito(num,ruota,fin - rit,sorte,1,,retesito,retcolpi,retestratti,retidestr)
ic = Round((freq/diff*rit),2)
'----- calcolo valori in tabella --------------
ReDim avalori(15)
avalori(1) = NomeRuota(r)
avalori(3) = RitDiPos(num,1,ruota)
avalori(4) = RitDiPos(num,2,ruota)
avalori(5) = RitDiPos(num,3,ruota)
avalori(6) = RitDiPos(num,4,ruota)
avalori(7) = RitDiPos(num,5,ruota)
avalori(8) = rit
avalori(9) = ritmax
avalori(10) = incrRitMax
avalori(11) = freq
avalori(12) = retesito
avalori(13) = retestratti
If retesito <> "" Then avalori(14) = DataEstrazione(retidestr)
If retesito = "" Then avalori(14) = " -- "
avalori(15) = ic
Call AddRigaTabella(avalori,,,3,,"cambria")
If r = 11 Then Call SetColoreCella(11,3,1)
If retidestr = fin Then Call SetColoreCella(14,3,1)
If ic > 1 Then Call SetColoreCella(15,4,2)
Next
Call SetTableWidth("100%")
Call CreaTabella()
Scrivi " Script By Mike58 ",1,- 1,6
nend = Timer
Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart))
End Sub
Function RitDiPos(num,pos,ruota)
ReDim apos(5)
ReDim aruota(1)
ReDim anum(1)
anum(1) = num
apos(pos) = True
aruota(1) = ruota
RitDiPos = RitardoCombinazione(ruota,num,1,0,apos)
End Function
Function FormattaSecondi(s)
'Questa Function trasforma il numero di secondi passato come parametro in una stringa
' passando i secondi si ottengono ore minuti e secondi in formato hh:mm:ss
' s ---> Numero di secondi da formattare
' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
Dim hh
Dim Mm
Dim Ss
Dim TimeStr
hh = s \ 3600
Mm =(s Mod 3600) \ 60
Ss = s -((hh * 3600) +(Mm * 60))
TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
FormattaSecondi = TimeStr
End Function
----------------------------------------------------------------------------------------------------------------------------------

Mi ha dato:



Che ne pensate? Si possono trarre indicazioni? Il ritardo da solo non dice molto. Un ritardo su Tutte di 4 numeri a 51 estrazioni non mi sembra granché, o mi sbaglio?

Approfitto per inviare un caldo saluto a Mike58, sperando che il suo silenzio sia dovuto al fatto che è in qualche isola tropicale a divertirsi.
Ovunque Tu sia. Un abbraccio
Baciccia

 

[Baciccia4251]

Con quest'altro Script, che non ho la più pallida idea che cosa faccia:
------------------------------------------------------------------------------------------------------
Sub Main
Dim nu(5),ru(1),T,V,aN(90)
Ini = EstrazioneFin - 27
fin = EstrazioneFin
r = ScegliRuota
Scrivi "Tabellone in Decina Ruota di : " & NomeRuota(r),1,,,,3,,1
ReDim T(92)'--------------------------------------------------------
T(1) = "info data"
T(2) = "Estratti"
For x = 1 To 90
T(x + 2) = Format2(x)
Next
Call InitTabella(T,,,1)
For es = Ini To fin
' For r = 1 To 1
ReDim V(92)'------------------------------------------------------
ReDim freq(92)
ReDim rit(92)
ReDim sto(92)
ReDim Lettere(92)
V(1) =(es)
V(2) = StringaEstratti(es,r)
For xx = 1 To 90
aN(xx) = ""
'aN(xx) = xx
For p = 1 To 5
nu(p) = Estratto(es,r,p)
If nu(p) = xx Then aN(xx) = aN(xx) & Hex(EstrattoFrequenza(r,(nu(p)),fin - 180,es))
kk = kk + 1

V(xx + 2) = aN(xx)
'If V(xx + 2) > 0 Then kk = kk +1
Next
sf = EstrattoFrequenza(r,xx,fin - 180,fin)
freq(1) = "Freq"
freq(2) = " <> "
freq(xx + 2) = sf
sr = EstrattoRitardo(r,xx,Ini,fin)
rit(1) = "Ritardo"
rit(2) = " <> "
rit(xx + 2) = sr
st = EstrattoStorico(r,xx,Ini,fin)
sto(1) = "Rit Sto"
sto(2) = " <> "
sto(xx + 2) = st
fr = Hex(sf)
Lettere(1) = "Codifica"
Lettere(2) = " <> "
Lettere(xx + 2) = fr

Next
Call AddRigaTabella(V,,,1)
For y = 1 To 92
If y < 10 Then Call SetColoreCella((y + 2),6,0)
If y > 19 And y < 30 Then Call SetColoreCella((y + 2),6,0)
If y > 39 And y < 50 Then Call SetColoreCella((y + 2),6,0)
If y > 59 And y < 70 Then Call SetColoreCella((y + 2),6,0)
If y > 79 And y < 90 Then Call SetColoreCella((y + 2),6,0)
Next
Next
'Next
Call AddRigaTabella(freq,,,1)
Call AddRigaTabella(rit,,,1)
Call AddRigaTabella(sto,,,1)
Call AddRigaTabella(Lettere,,,1)
Call SetTableWidth("100%")
CreaTabella
End Sub
---------------------------------------------------------------------------------------------------------------------
Ho fatto queste previsioni (per gioco, per curiosità):


Assieme a quelli che vedete ce ne sono altri che, per ora, non hanno dato riscontro.

La scelta dei numeri è avvenuta così (nulla di scientifico, ragionato ecc.)

In fondo alla Tabella, per ogni ruota, ho scelto i numeri che avevano come valore una "F" (qualsiasi cosa significhi) e ho messo il numero con F assieme ai laterali in gioco, per vedere cosa succedeva. Se tutto questo abbia un senso, salvo quello di passare del tempo, non lo so.

Che ne pensate? Solo cavolate?

Baciccia