Osservazione Estratti su Ruota

[Mike58]

Questa tabella, vuole essere una raccolta dati per una osservazione visiva per trarre una qualche indicazione per individuare metodi visivi e possibili futuri estratti.
Lo script elenca gli estratti su ruota scelta e li mette in ordine per decina, cadenza, figura, cosi da vedere come vengono distribuiti gli estratti in estrazione e tramite colpo d'occhio e possibile verificare le proprie metodologie.

Esempio 1 l'ambo in figura sommato con il fuori90 da spesso l'ambata.
Esempio 2 l'ambo in cadenza fa ripetere spesso gli estratti.

Etc, etc.

Fate le vostre verifiche e se ci sono validi suggerimenti nel limite del possibile proverò a fare lo script ad oc.

Un saluto a tutti.

Sub Main

Dim Nu(5),Ru(1),T,V

Ini = EstrazioneFin - 20

fin = EstrazioneFin

T = Array(T,"Id Data","Ruota","Estratti","Dec 0","dec 1","dec 2","dec 3","dec 4","dec 5","dec 6","dec 7","dec 8","cad0","cad1","cad2","cad3",_

"cad4","cad5","cad6","cad7","cad8","cad9","Fig1","fig2","fig3","fig4","fig5","fig6","fig7","fig8","fig9")

Call InitTabella(T,1,,,5)

r = InputBox("Scegli Ruota",,5)

For es = fin To Ini Step - 1

Ru(1) = r

cad0 = ""

cad1 = ""

cad2 = ""

cad3 = ""

cad4 = ""

cad5 = ""

cad6 = ""

cad7 = ""

cad8 = ""

cad9 = ""

dec0 = ""

dec1 = ""

dec2 = ""

dec3 = ""

dec4 = ""

dec5 = ""

dec6 = ""

dec7 = ""

dec8 = ""

fig1 = ""

fig2 = ""

fig3 = ""

fig4 = ""

fig5 = ""

fig6 = ""

fig7 = ""

fig8 = ""

fig9 = ""

For p = 1 To 5

Nu(p) = Estratto(es,r,p)

If Decina(Nu(p)) = 0 Then dec0 = dec0 & Nu(p) & " "

If Decina(Nu(p)) = 1 Then dec1 = dec1 & Nu(p) & " "

If Decina(Nu(p)) = 2 Then dec2 = dec2 & Nu(p) & " "

If Decina(Nu(p)) = 3 Then dec3 = dec3 & Nu(p) & " "

If Decina(Nu(p)) = 4 Then dec4 = dec4 & Nu(p) & " "

If Decina(Nu(p)) = 5 Then dec5 = dec5 & Nu(p) & " "

If Decina(Nu(p)) = 6 Then dec6 = dec6 & Nu(p) & " "

If Decina(Nu(p)) = 7 Then dec7 = dec7 & Nu(p) & " "

If Decina(Nu(p)) = 8 Then dec8 = dec8 & Nu(p) & " "

If(Nu(p)) = 90 Then dec0 = Nu(p) & " " & dec0

If Cadenza(Nu(p)) = 0 Then cad0 = cad0 & Nu(p) & " "

If Cadenza(Nu(p)) = 1 Then cad1 = cad1 & Nu(p) & " "

If Cadenza(Nu(p)) = 2 Then cad2 = cad2 & Nu(p) & " "

If Cadenza(Nu(p)) = 3 Then cad3 = cad3 & Nu(p) & " "

If Cadenza(Nu(p)) = 4 Then cad4 = cad4 & Nu(p) & " "

If Cadenza(Nu(p)) = 5 Then cad5 = cad5 & Nu(p) & " "

If Cadenza(Nu(p)) = 6 Then cad6 = cad6 & Nu(p) & " "

If Cadenza(Nu(p)) = 7 Then cad7 = cad7 & Nu(p) & " "

If Cadenza(Nu(p)) = 8 Then cad8 = cad8 & Nu(p) & " "

If Cadenza(Nu(p)) = 9 Then cad9 = cad9 & Nu(p) & " "

If Figura(Nu(p)) = 1 Then fig1 = fig1 & Nu(p) & " "

If Figura(Nu(p)) = 2 Then fig2 = fig2 & Nu(p) & " "

If Figura(Nu(p)) = 3 Then fig3 = fig3 & Nu(p) & " "

If Figura(Nu(p)) = 4 Then fig4 = fig4 & Nu(p) & " "

If Figura(Nu(p)) = 5 Then fig5 = fig5 & Nu(p) & " "

If Figura(Nu(p)) = 6 Then fig6 = fig6 & Nu(p) & " "

If Figura(Nu(p)) = 7 Then fig7 = fig7 & Nu(p) & " "

If Figura(Nu(p)) = 8 Then fig8 = fig8 & Nu(p) & " "

If Figura(Nu(p)) = 9 Then fig9 = fig9 & Nu(p) & " "

If Decina(Nu(p)) = 0 Then sd0 = sd0 + 1

If Nu(p) = 90 Then sd0 = sd0 + 1

If Decina(Nu(p)) = 1 Then sd1 = sd1 + 1

If Decina(Nu(p)) = 2 Then sd2 = sd2 + 1

If Decina(Nu(p)) = 3 Then sd3 = sd3 + 1

If Decina(Nu(p)) = 4 Then sd4 = sd4 + 1

If Decina(Nu(p)) = 5 Then sd5 = sd5 + 1

If Decina(Nu(p)) = 6 Then sd6 = sd6 + 1

If Decina(Nu(p)) = 7 Then sd7 = sd7 + 1

If Decina(Nu(p)) = 8 Then sd8 = sd8 + 1

If Cadenza(Nu(p)) = 0 Then sc0 = sc0 + 1

If Cadenza(Nu(p)) = 1 Then sc1 = sc1 + 1

If Cadenza(Nu(p)) = 2 Then sc2 = sc2 + 1

If Cadenza(Nu(p)) = 3 Then sc3 = sc3 + 1

If Cadenza(Nu(p)) = 4 Then sc4 = sc4 + 1

If Cadenza(Nu(p)) = 5 Then sc5 = sc5 + 1

If Cadenza(Nu(p)) = 6 Then sc6 = sc6 + 1

If Cadenza(Nu(p)) = 7 Then sc7 = sc7 + 1

If Cadenza(Nu(p)) = 8 Then sc8 = sc8 + 1

If Cadenza(Nu(p)) = 9 Then sc9 = sc9 + 1

If Figura(Nu(p)) = 1 Then sf1 = sf1 + 1

If Figura(Nu(p)) = 2 Then sf2 = sf2 + 1

If Figura(Nu(p)) = 3 Then sf3 = sf3 + 1

If Figura(Nu(p)) = 4 Then sf4 = sf4 + 1

If Figura(Nu(p)) = 5 Then sf5 = sf5 + 1

If Figura(Nu(p)) = 6 Then sf6 = sf6 + 1

If Figura(Nu(p)) = 7 Then sf7 = sf7 + 1

If Figura(Nu(p)) = 8 Then sf8 = sf8 + 1

If Figura(Nu(p)) = 9 Then sf9 = sf9 + 1

Next

V = Array(V,DataEstrazione(es),SiglaRuota(r),StringaNumeri(Nu,,1),dec0,dec1,dec2,dec3,dec4,dec5,dec6,dec7,dec8,cad0,cad1,cad2,cad3,cad4,_

cad5,cad6,cad7,cad8,cad9,fig1,fig2,fig3,fig4,fig5,fig6,fig7,fig8,fig9)

Call AddRigaTabella(V,,,2)

For x = 4 To 12

Call SetColoreCella((x),3,1)

Next

For y = 13 To 22

Call SetColoreCella((y),7,5)

Next

Next

vv = Array(vv,"Totali","","",sd0,sd1,sd2,sd3,sd4,sd5,sd6,sd7,sd8,sc0,sc1,sc2,sc3,sc4,sc5,sc6,sc7,sc8,sc9,sf1,sf2,sf3,sf4,sf5,sf6,sf7,sf8,sf9)

Call AddRigaTabella(vv,RGB(211,211,211),,3,0)

Call SetTableWidth("100%")

CreaTabella

Scrivi "Tabella By Mike58",1,1,,1,3,,1

End Sub

 

[Mike58]

Copiando lo script dal forum per verificarne il corretto funzionamento ho visto che sballa il formato.
Per tutti una volta copiato eseguire da spaziometria l'auto formattazione codice e lo script si riallinea e corregge anche gli spazi vuoti che altrimenti danno errori.

Ciao

 

[i legend]

Ciao Mike è u piacere rileggerti ben tornato

 

[salvo50]

Ciao!

Scusami per la domanda ingenua, ma come si fa l'auto formattazione.

 

[Mike58]

Ciao Salvo una volta copiato lo script da sicuramente errore, quindi c'e un pulsantino (Auto Formattazione codice) nella barra icone script che si trova nelle icone vicino alla cassetto a tendina, basta cliccare su quello è lo script si riallinea e gli spazi si autoformattano.

Ciao anche ad I legend

 

[salvo50]

Trovato e provato, grazie Mike

 

[oracolotto]

Comodo e pratico listato per controllare le formazioni scompensate nelle ultime estrazioni.
Chiedo se è possibile implementarlo con la ricerca su Tutte le ruote in quanto sembra che non dia risultato. Grazie

 

[fillotto]

Ciao Mike , non so se voluto, ma allorquando nell'estrazione è presente il 90 e contemporaneamente i numeretti (1/9) nella decina "o" i numeretti non sono trascritti viene messo solo il 90 ....... ha una sua ragione?

 

[Mike58]

Ciao Mike , non so se voluto, ma allorquando nell'estrazione è presente il 90 e contemporaneamente i numeretti (1/9) nella decina "o" i numeretti non sono trascritti viene messo solo il 90 ....... ha una sua ragione?

Si Fill hai ragione ho messo un controllo per far scivere il 90 con i numeretti e questo va in conflitto con gli stessi in fase di scrittura, vedo se trovo la soluzione !!!

Trovata soluzione sostituire riga

If(Nu(p)) = 90 Then dec0 = Nu(p)

con
If(Nu(p)) = 90 Then dec0 = Nu(p) & " " & dec0

Comodo e pratico listato per controllare le formazioni scompensate nelle ultime estrazioni.
Chiedo se è possibile implementarlo con la ricerca su Tutte le ruote in quanto sembra che non dia risultato. Grazie

Ciao oracolotto devo risponderti di no !!! con questa tipologia la ruota Tutte non può venire conteggiata e scritta e un'altra tipologia di script e verrebbe meno la motivazione per cui lo script è stato postato.

Vi invito a spremere le meningi per trovare un qualche metodo attendibile o cercare valide convergenze.

 

[oracolotto]

Grazie lo stesso Mike58, si può ovviare utilizzando Spaziometria, menù Statistiche - Formazioni registrate, selezionando le formazioni che interessano e spostando l'archivio alle ultime 20-10 o 5 estrazioni. Apprezzo sempre i tuoi interventi !

 

[vincenzo4221]

Ciao Mike , propositivo il tuo scopo , è se mi succede ( di avere un 'idea in merito al tuo script) ti darò subito la mia collaborazione , ......vediamo un pò..............ciao

 

[vincenzo4221]

Una prima idea , sarebbe quella di aggiungere una riga in basso , che elenchi la % di scarto della colonna interessata , in merito al numero di estrazioni presi in esame ...e allora ...si il tuo script diventa utilizzabile per una proficua analisi di interesse allo sfaldamento per esame di formazioni ordinate quali decine , cadenze , ecc. e dopo se hai piacere e voglia troviamo il modo di restringere la formazione preferita , secondo i canoni della statistica applicata al lotto, con le opportune esperienze maturate. Ciao

 

[oracolotto]

non vorrei fare una proposta oscena: e se invece delle solite formazioni analizziamo una formazione più ampia, ad esempio le quindicine consecutive 1-15, 16-30, 31-45 ecc..per un tentativo " azzardato " di ambo e/o terno ?

 

[Mike58]

Una prima idea , sarebbe quella di aggiungere una riga in basso , che elenchi la % di scarto della colonna interessata , in merito al numero di estrazioni presi in esame ...e allora ...si il tuo script diventa utilizzabile per una proficua analisi di interesse allo sfaldamento per esame di formazioni ordinate quali decine , cadenze , ecc. e dopo se hai piacere e voglia troviamo il modo di restringere la formazione preferita , secondo i canoni della statistica applicata al lotto, con le opportune esperienze maturate. Ciao

Ciao Vincenzo, se mi fai capire come calcolarla con qualche esempio e quanto sia questo significativo, ben vengono i suggerimenti.
Penso che comunque non possa essere un problema ricavarlo.

P.s tra poco per me è lavorativo Notturno e se non rispondo ad ulteriori commenti sapete il perché della mia assenza.

 

[Mike58]

non vorrei fare una proposta oscena: e se invece delle solite formazioni analizziamo una formazione più ampia, ad esempio le quindicine consecutive 1-15, 16-30, 31-45 ecc..per un tentativo " azzardato " di ambo e/o terno ?

si oracolotto questo è possibile realizzarlo ma con uno script a se stante.

Come sopra il tempo stringe magari domani.

ciao

 

[oracolotto]

ok Grazie Mike58, aspetto quando ti sarà possibile...potrebbe essere molto utile ed interessante

 

[vincenzo4221]

Ciao Mike , la cosa diventa un pò difficile :
1- per il poco tempo che ho a disposizione in questi giorni.
2- bisogna conoscere e utilizzare logaritmi , e almeno conoscere le basi del lotto quali , il calcolo combinatorio, la probabilità favorevole e contraria , la costante di decadimento , il ritardo normale , insomma bisogna lavorar di formule ed io uso tabelle per facilitarmi il compito , potremmo anche riuscirci ma avendo un pò di tempo in più ha disposizione ... conosco le teorie , sono creativo e con tanta determinazione , ma cosciente dei miei limiti , mi dò tempo , infatti a questo gioco sono favoriti gli appassionati matematici meglio i fantasiosi.
Di recente diventano sempre più numerosi gli amici che capiscono che associarsi è meglio..allarghiamo l'invito (almeno x il momento) a chi vuole partecipare .. ciao

 

[Membro cancellato 16574]

Buongiorno,
Volevamo salutare Mike58 , con la speranza di poterlo " copiare " al piu' presto.
Di nuovo saluti e complimenti .

 

[Mike58]

BuonGiorno a tutti gli intervenuti ed un carissimo saluto ( non sono mattiniero,ho solo finito turno notturno) e leggendo gli interventi capisco che le idee possono essere tante.

Quello che propone vincenzo è non solo difficile ma anche complesso nella applicazione delle formule citate ma non impossibile e con la partecipazione anche di altri bravi scripter e soprattutto dell'aiuto dei richiedenti
nella spiegazione matematica delle formule ma mettere in codice.

Concordo pertanto che la partecipazione di tanti non può che migliorarci tutti.

Ciao e buona giornata a Tutti.

 

[Mike58]

Per Oracolotto oggi non ho avuto tempo, sto preparando lo script richiesto ma ancora devo terminarlo.
Entro domani dovrei trovare il tempo di postarlo.

Ciao