Tabulati percentuali di LuigiB

[Baciccia4251]

Per spiegare l'utilità delle Tabelle-
A firenze mi era sfuggita (forse perché non l'avevo guardato) un situazione particolare che a volte da l'ambo.

La Tabella di Firenze relativa alla quindicina 1-15 era:

a vista si vede che 5 e 10 sono i numeri più probabili (inoltre il 5 fa parte di una terzina segnalata 20 volte!)
Il 5 ha 9 richiami il 10 6 con un 90%

La quindicina 46-60:


Il numero 51 è in assoluto il numero più probabile della quindicina, ricordo che quando un numero è molto probabile attira i laterali nella sfera di probabilità.

Son usciti il 30 agosto 5.10.50.51 scusate se è poco. Altro che Pazzaglia non funziona. Non funziona il cervello di chi afferma questo!

Il mio stato mi impedisce di vedere PRIMA queste situazioni. Peccato che persone più attente di me snobbino queste tabelle.

 

[Baciccia4251]

Mi fa piacere che sei attento, e scruti gli errori. ( però se mi devi far cecare con ste immagini visibili solo con un 90", smetto )
Ti metto una diversa soluzione per la colorazione delle Decine.
For y = 3 To 92
If y < 13 Then Call SetColoreCella( y ,6,0)
If y > 22 And y < 33 Then Call SetColoreCella( y ,6,0)
If y > 42 And y < 53 Then Call SetColoreCella( y ,6,0)
If y > 62 And y < 73 Then Call SetColoreCella( y ,6,0)
If y > 82 And y < 93 Then Call SetColoreCella( y ,6,0)
Next
La tabella elenca la frequenza del singolo numero nelle ultime 180 estrazioni in maniera quasi" alfanumerica"
Questa particolarità è l'unica cosa che la tabella ha in comune con il Mastrolettere del tuo Prof. ( info x @genios )

La maniera alfanuerica consiste nell'utilizzare la numerazione a 2 cifre con le lettere. In esadecimali solo i numeri da 10 a 15 utilzzano le lettere ... 10=A... 15=F) e per i numeri oltre .... ????

Se guardi bene la tabella vedrai che nella righe delle estrazioni ed in "Codifica" vi sono valori "10" ed altri maggiori che non vengono trasformati in alfanumerici bensì in esadecimali in questa riga ("Hex(EstrattoFrequenza(r,(nu(p)),fin-179,es))"
lo script sotto vi mostrerà quanto scritto
Sub Main 'trasforma i numeri da 1 a 20 in esadecimali
For x = 1 To 20
Scrivi x & " " & Hex(x)
Next
End Sub
https://it.wikipedia.org/wiki/Sistema_numerico_esadecimale

Saluti

Mi da quest'errore


Cosa sono riuscito a distruggere?

Sai nel corso del tempo ho fatto qualche pasticcio.
Tanto tempo fa feci il giardiniere in un posto meraviglioso, almeno finché non ci misi le mani io, mi pare si chiamasse Sahara...
Poi lavorai ad Atlantide...
Il Giardino dell'Eden, il proprietario era un tipo incazzoso. Per una mela fece scoppiare un finimondo... (Eva non c'entra nulla, fu colpa mia).
L'unica cosa che mi è riuscita bene è mia figlia. Chissà perché chiama papà un altro?

 

[The Wolf]

Ciao Baciccia,
A me interessa perché seguo la previsionistica.
Se puoi postarlo,gentilmente,mi faresti cosa gradita.
Grazie

Ciao FRancon, sicuramente avrai il file excel che Baciccia aveva linkato.
Ahime' non potendolo piu' chiedere a lui sono a chiederlo a te...potresti linkarlo mi farebbe molto piacere averlo per
poter analizzare quanto propne.
ti ringrazio anticipatamente. saluti

 

[sorujoe]

Anche io mi accodo alla richiesta di The Wolf vorrei provare a studiare il lavoro di LuigiB grazie Francon se vorrai condividerlo.
Vale anche per altri qualora ne fossero in possesso.

 

[joe]

Fate bene,

ma non dimenticate che a volte lo scopo di un illusionista è quello di far vedere cose che non esistono !

Option Explicit
Sub Main
Dim C : C = Chr(13)
 Scrivi "  ^  ^" & c & "[ *  * ]" & c & "   || " & c & "   == "
End Sub