si potrebbe realizzare uno script tabellare come di seguito?

[LuigiB]

ciao Surmang un saluto anche da me ..

 

[i legend]

Ciao Mike Buon Lavoro,

ciao Joe, ciao Luigi, ho provato ad inserire
la sub ElencoRitLotto nel parametro della funzione ma non credo si possa fare.
Voglio Imparare abbiate tanta pazienza.ora ho tanto materiale, qualcosina devo combinarla.

Grazie per il supporto

Cordiali saluti

I Legend

 

[Joe91]

Ciao i legend,

dal tuo scritto, non riesco a capire cosa tu volessi fare, ma è certo che se l'hai materialmente concepito,

poi, si può fare. Magari con difficoltà, ma si può fare.

Diciamo che alcune cose possono sembrare strane ... alcune istruzioni ... come quella consigliata "restituiscono"

elenchi (array) di risultati ... nei "parametri" che gli viengono forniti.

Quindi gli si dà il nome dell' array da riempire.

E, chiamata la funzione ... si ha l'array di ritorno.

Pertanto si ha l' "elenco dei ritardi" ... con cui si può lavorare.

Saluto e ringrazio Surmang ... certo che si, ricordo con piacere, gli scambi di opinioni ...

che spero possano continuare. Nel confronto ci si arrichisce vicendevolmente.

E ... anch'io come ho già scritto trovo interessante quanto s'è fatto e quanto si potrà ancora fare,

nell' intorno di questa discussione.

Buona serata a tutte/i.

 

[LuigiB]

Option Explicit
Sub Main
	ReDim aN(1)
	ReDim aRuote(1)
	ReDim aRit(0)
	ReDim aRetIdEstr(0)
	aN(1) = 45
	aRuote(1) = BA_
	Call ElencoRitardi(aN,aRuote,1,EstrazioneFin - 999,EstrazioneFin,aRit,aRetIdEstr)
	MsgBox CalcolaDevianaza(aRit)
End Sub
Function CalcolaDevianaza(aRitardi())
	Dim k
	Dim nMedia,nElementi,nDevianza
	For k = 1 To UBound(aRitardi)
		nElementi = nElementi + 1
		nMedia = nMedia + aRitardi(k)
	Next
	nMedia = nMedia / nElementi
	For k = 1 To UBound(aRitardi)
		nDevianza = nDevianza +((nMedia - aRitardi(k)) ^ 2)
	Next
	CalcolaDevianaza = Sqr(nDevianza)
End Function

 

[i legend]

Grazie Luigi
ora nei prossimi giorni provo a mettere un po di cose insieme, e ti mostro qualcosa.
oggi scrivevo:
CalcolaDevianaza(ElencoRitardi(aN,aRuote,1,EstrazioneFin - 999,EstrazioneFin,aRit,aRetIdEstr))
invece dovevo inserire il parametro aRit della sub CalcolaDevianaza
.non ho capito perchè però.
spero di arrivarci.
Ancora grazie
ciao e buona serata.
Cordiali saluti
I Legend

 

[surmang]

ciao surmang benvenuto

ti faccio i complimenti per lo script,
da profano penso che le funzioni siano corrette , la lettura dei dati che volevo dare io è leggermente diversa dalla tua.
tu il calcolo lo esegui su ogni riga , io invece pensavo di calcolare su tutto il range.Sull'utilità i dubbi vengono anche a me.
E' meglio puntare sulle frequenze o sui ritardi? la deviazione già di suo può dare diverse indicazioni, ma su grandi quantità di dati.
Comunque ancora complimenti, ed un grazie al grande Mike che mi sta aiutando tantissimo

Cordiali saluti
I Legend

Grazie i Legend ,
grazie per la gentile accoglienza, e complimenti per l'asse teorico intorno al quale ruota la discussione,
ottima palestra per la ridotta motilità dei miei neuroni, quindi Q.I. permettendo cercherò di seguirvi nei diversi aspetti coinvolti.
Per quando concerne il calcolo mi pare di capire che tu ti riferisca (correggimi se sbaglio) a questo:

Bari  -> Numero :1    [INI 8354->8893 FIN]    n∞ESTR :540       
................................................................................
n∞ idEs  Rit  sRit  
................................................................................
01 8363  09   10  
02 8364  00   11  
03 8373  08   20  
04 8380  06   27  
05 8392  11   39  
06 8414  21   61  
07 8426  11   73  
08 8469  42   116 
09 8499  29   146 
10 8508  08   155 
11 8519  10   166 
12 8534  14   181 
13 8567  32   214 
14 8596  28   243 
15 8599  02   246 
16 8648  48   295 
17 8669  20   316 
18 8686  16   333 
19 8705  18   352 
20 8706  00   353 
21 8725  18   372 
22 8732  06   379 
23 8747  14   394 
24 8751  03   398 
25 8769  17   416 
26 8807  37   454 
27 8828  20   475 
28 8851  22   498 
29 8879  27   526 
30 8893  14
--------------------------------------------------------------------------------
NUMEROSITA = 29
MEDIA      = 18.1
DEVIANZA   = 4272
VARIANZA   = 153
DEVIAZIONE = 12.35
--------------------------------------------------------------------------------
[CODE]
Buona continuazione!
Rinnovo i saluti a tutti gli amici del forum.
:)

 

[i legend]

Ciao Surmag,è proprio quello che intendevo.(calcolo perfettamente coincidente con il mio)

Mi piacerebbe applicare questo ad una terzina di numeri per valutare in base alle presenze e ai ritardi quale estratto sia più conveniente per ambata e in quale posizione.
altra via ma difficile da spiegare perchè nebuloso, applicare lo stesso principio non al numero ma al metodo che lo ha generato.
le mie cellule grigie sono in sciopero.
Ha ragione joe per far capire agli altri devo per primo avere le idee chiare io.(e la febbre non aiuta).
penso che con la collaborazione di tutti, potrebbe venirne fuori qualcosa di utile almeno uno strumento di scrematura.
Oppure solo un idea che indica una strada con una T.

ciao e buona giornata vista l'ora.

X Luigi
Buon giorno Luigi, ho provato il codice ma mi restituisce un valore molto alto. ho impostato stessi parametri di surmag.
ho eseguito il calcolo con foglio di di lavoro.

ciao e grazie a tutti .

Cordiali saluti

I Legend

 

[LuigiB]

Ciao , non ho capito cosa intendi per numero alto , la funzione calcoladevianza l'ho implementata secondo la tua formula credo sia corretta
l'esempio che avevo fatto ieri dava il risultatto correto con quei 5 numeri che avevi usato per esempio ?

Riguardo al discorso elencoritardi vai nell'help degli script e vai a vedere la spiegazione della funzione.

 

[i legend]

Buon giorno a tutti

Ciao Luigi , passo per un saluto veloce,i risultati di ieri erano corretti, non saprei dire forse ho sbagliato qualcosa nella sub.
purtroppo il mal di testa non aiuta, sono k.o.
ciao a tutti

Cordisli saluti

I legend

 

[i legend]

Ci ao a tutti ripasso per un altro saluto,
oggi non ho fatto , ma ci tenevo a salutarvi.
auguro a tutti una buona serata.
Cordiali saluti
I Legend

 

[i legend]

Ciao a tutti,
non sono riuscito a buttare giù neanche qualche riga di codice ,
ma le cose che non richiedono troppa concentrazione sono riuscite a farlle.
posto le immagini di penso le tabelle per le statistiche,
voi che ne pensate?
Fate tutte le domnde che volete, ho la febbre ancota alta quindi, magari non rispondo con tanta chiarezza .


La seconda tabella sarebbe bello farla anche su due o più ruote e tutte.

Cordiali saluti
I Legend

 

[i legend]

Bari Ambata 59 ,A tutte 20.88
il secondo dei tre ambi
Postare le previsioni esempio in questo post porta bene.
Ci ho pensato solo dopo ma la prima tabelle ha ancora una voce da implementare.
spero che ci siano tanti suggerimenti.

mi chiedo : la statistica sui numeri con tutte le funzioni che ci sono in spaziometria non è difficile da listare , credo sia più complesso per quanto riguarda im metodi, sto cercando di semplificare con gli esempi, perchè non è facile spiegare .

ciao notte a tutti.

 

[Joe91]

Ciao i legend

Buon giorno a tutte/i.

volevo chiederti se potevi rendere disponibile il codice del lavoro, pur ancora incompleto,

e riassumere brevemente quello che c'è e quello che ancora vi sarebbe da fare e/o le linee guida di successive migliorie e aggiunte.

Così si può progredire contemporaneamente sia nello sviluppo, che nella conoscenza, della statistica-avanzata già raggiunta.

Ti ringrazio.

 

[i legend]

Buon giorno a tutti,
Ciao Joe ,non ho nessun codice ,solo idee.
le immagini che ho postato sono come faccio le ricerche , in piu mi piacerebbe inserire la presenza negli ultimi cicli per ogni estratto e un altra cosa ancora , ma la devo prima realizzare, e poi posto ancora una tabella di esempio.
i punti si ottengono in base a come si scelgono le preferenze.
Chiedo a voi suggerimenti , per ampliare il tutto. Nel frattempo mi dici che ne pensi? Ho pensato ad una terna di nmeri , perchè è il mio modo di fare previsioni, ma penso possa essere utile a molti, quindi si puo ampliare a tutti.
ciao
a dopo ,
Il mal di testa è quasi passato, provo a fare qualcosa , e vi tengo aggirnati.

Cordiali saluti
I Legend

 

[i legend]

Ciao a tutti,
allora inserisco quello che dicevo prima ,presenza nei cicli, (grafici di spaziometria) e la ricerca che volevo fare sui metodi, ho scoperto che il modulo in spaziometria c'è già.

ovviamente, noi con lo script dovremmo poter inserire i nostri metodi.
Spaziometria è Immenso.


Manca ancora una cosa, appena riesco posto l'ultima colonna.

Ho visto guardando le funzioni che esiste la tabellax, che se non ho capito male , ci permette di visualizzare più tabelle nello stesso script.

Luigi che ne pensi? E' Fattibile ottenere delle tabelle come quelle nelle imagini sopra?
Grazie .

Cordiali saluti

I Legend

 

[Mike58]

I Legend, purtroppo vada sempre di fretta e non ho tempo per soffermarmi.
ti posto uno script con grafico e cicli utilizzalo per ambata numeri e vedi se puoi trarrre qualche indicazioni.

Mi ri-scuso per la fretta.

'Option Explicit
Sub Main
Dim k,s,kk
Dim nClasse,nColonneTot
Dim aNumeri
Dim aCol
Dim Inizio,Fine
Dim nRuoteSel
Dim nSorte
Dim nCicloTeo
Dim nEstrTot
Dim sRuote
Inizio = EstrazioneFin - 300
Fine = EstrazioneFin
nEstrTot =(Fine + 1) - Inizio
ReDim aRuote(0)
nRuoteSel = ScegliRuote(aRuote)
nClasse = Scegliclasse
nSorte = ScegliEsito
If nSorte > nClasse Then MsgBox "La sorte non può essere maggiore della classe"
If nClasse > 0 And nRuoteSel > 0 And nSorte <= nClasse Then
aNumeri = GetNumPerSviluppo
nCicloTeo = CicloTeorico(nClasse,nSorte,Int(nRuoteSel))
sRuote = GetRuote(aRuote)
'inizializza lo sviluppo
nColonneTot = InitSviluppoIntegrale(aNumeri,nClasse)
k = 0
' ciclo che continua fino a quando le colonne non finiscono
Do While GetCombSviluppo(aCol)
k = k + 1 ' conteggio colonna corrente
ReDim aRetRitardi(0)
ReDim aRetIdEstr(0)
Call ElencoRitardiTurbo(aCol,aRuote,nSorte,Inizio,Fine,aRetRitardi,aRetIdEstr)
Call DisegnaGraficoRit(StringaNumeri(aCol),nSorte,nCicloTeo,nEstrTot,sRuote,aRetRitardi)
If k Mod 10 = 0 Then
Call Messaggio("Colonna n° " & k)
Call AvanzamentoElab(1,nColonneTot,k)
If ScriptInterrotto Then Exit Do
End If
Loop
End If
End Sub
Sub DisegnaGraficoRit(sNumeri,nSorte,nCicloTeo,nEstrTot,sRuote,aRitardi)
Dim nMin,nMax
Dim k
Dim nTot
Dim nFreqT
Const nSezioniGraf = 15
nTot = UBound(aRitardi)
ReDim aValori(nTot,2)
nMin = 10000000
nMax = - 10000000
For k = 0 To nTot
aValori(k,1) = k
If k = 0 Then
aValori(k,2) = 0
Else
aValori(k,2) = aRitardi(k)
If aRitardi(k) < nMin Then
nMin = aRitardi(k)
End If
If aRitardi(k) > nMax Then
nMax = aRitardi(k)
End If
End If
Next
'Call GetValoriMinMax(aRitardi,nMin,nMax)
Call PreparaGrafico("",0,nTot,0,nMax,GetStepX(nTot,nSezioniGraf),18)
Call DisegnaLineaGrafico(aValori,vbBlue)
nFreqT = Round(Dividi(nEstrTot,nCicloTeo),3)
Scrivi String(120,"=")
Scrivi "Combinazione : " & sNumeri & " per " & NomeSorte(nSorte) & " su " & sRuote,1
Scrivi "Ritardo minimo : " & nMin
Scrivi "Ritardo max : " & nMax
Scrivi "Frequenza : " & nTot
Scrivi "Freq. Teorica : " & nFreqT
Scrivi "Perc RapportoFreq : " & Round(ProporzioneX(nTot,nFreqT,100),3) & " %"
Scrivi "Ultimi 10 ritardi : " & GetUltimiRit(aRitardi,10,kk)
Call InserisciGrafico
Scrivi String(120,"=")
End Sub
Function GetStepX(nTot,nSezioni)
Dim t
t = Round(Dividi(nTot,nSezioni),0)
If t <= 1 Then t = 1
GetStepX = t
End Function

Function Scegliclasse
Dim k
ReDim aV(5)
For k = 1 To 5
aV(k) = k
Next
Scegliclasse = ScegliOpzioneMenu(aV,1,"Scegli classe di sviluppo")
End Function
Function GetRuote(aRuote)
Dim s
Dim k
For k = 1 To UBound(aRuote)
s = s & SiglaRuota(aRuote(k)) & "."
Next
GetRuote = Left(s,Len(s) - 1)
End Function
Function GetUltimiRit(aRitardi,n,kk)
Dim i
Dim k
Dim s
'Dim kk
kk = 0
i =(UBound(aRitardi) + 1) - n
If i <= 0 Then i = 1
For k = i To UBound(aRitardi)
s = s & aRitardi(k) & ","
If aRitardi(k) > 18 Then
kk = kk + 1
End If
Next
If s <> "" Then
GetUltimiRit = Left(s,Len(s) - 1)
Else
GetUltimiRit = ""
End If
If kk > 0 Then
Scrivi kk & " Cicli out ",1,0,2,4,3
Scrivi " **** Numero in esame !!!! NON ATTENDIBILE !!!!! ***** ",1,1,4,2,3
End If
If kk = 0 Then
Scrivi kk & " Cicli out ",1,0,4,2,3
Scrivi " **** Numero in esame !!!! ATTENDIBILE !!!!! ***** ",1,1,3,1,3
End If

End Function

 

[i legend]

Ciao Mike ,grazie infinite,
ora lo studio e provo ad adattare tutto quello che sino ad ora tu e Luigi mi avete postato
Grazie mille

Cordiali saluti
I Legend

 

[i legend]

Buon giorno a tutti ,
posto il nuovo studio che ho fatto .
Tutti i numeri hanno una copertura regressa della totalità dei casi.
Ho scelto le ambate come da tabella, mi manca ancora una colonna importante per la selezione,provo a compilarla nel pomeriggio.
Per quanto concerne il codice sono in alto mare.
Intanto la prev.
La statistica sugli ambi anche quella nel pom.



Si vede male e la sequenza pari dispari non è scritta correttamente , la ricerca è esatta ma se controllate è meglio
Riporto quanto segue:

Condizione di ricerca:
BA1>=45
BA3<=45
Seguenza estratti:PDPDD quindi BA1=Pari , BA2=Dispari ,BA3=Pari,BA4=Dispari,BA5=Dispari
Somma dei 5 estratti di BARI >=255

Cordiali Saluti
I Legend

 

[claudio8]

Legend, mi piacerebbe approfondire la tua ricerca e quindi, guardando la tua ultima immagine ti chiedo 2 cose:

1- potresti spiegare meglio le condizioni di ricerca caso?

2- la sestina che metti in gioco, composta da 2 terzine (ambata a 2 abb) in caso di ambo dà l'esito separatamente, in sostanza tu copri tutti i casi con tutte le terzine di ogno metodo? ( ho capito bene quanto in talbella ? , lo sviluppo di giocata per almeno un ambo secco è di 4 ambi?)

Grazie

 

[i legend]

Ciao Claudio, vado per ordine
Condizione di ricerca:
BA1>=45
BA3<=45
Seguenza estrattiDPDD quindi BA1=Pari , BA2=Dispari ,BA3=Pari,BA4=Dispari,BA5=Dispari
Somma dei 5 estratti di BARI >=255


per il resto i numeri hanno tutti un riscontro senza esiti negativi, pertanto in base ai criteri sopra ho valutato quale fosse più probabile.
Ovviamente come ben sai potrebbe non sortirne neanche 1.
Le terzine sono costruite per l'ambo quindi non c'è un capogioco specifico , non sono costruite ad incastro per coprire i casi negativi, quelli ci sono stati e ci saranno,
la sestina che si ottiene è quella che ha avuto un riscontro maggiore di terni.
se qualcosa no ti è chiara chiedi pure.
Ciao

Cordiali saluti

I Legend