X Luigi o chi sappia...

[NANNOLO]

Ciao a tutti...
volevo una delucidazione a proposito dell'argomento ritardi e frequenze.
Nel programma spaziometria esiste un capitolo riguardante il ritardo medio e frequenza media di una formazione numerica ? (che sia terzina,quartina,cinquina,sestina,settina,ottina,novina e decina).Ovvero mi spiego meglio con un esempio...di solito ci si sofferma a guardare il ritardo attuale di una decina per ambo e si pensa che quella con maggiore ritardo o viceversa con maggiore frequenza abbia piu' probabilita' di sortita rispetto alle altre. In realta' ed e' cio' che ho potuto constatare un parametro statistico molto piu' affidabile sarebbe il ritardo medio o frequenza media di quella decina per ambo ovvero il ritardo o frequenza dei 45 ambi che compongono quella decina in quel dato momento sommati tutti insieme e divisi per 45 (ovvero il numero di ambi che si possono formare con una decina). In questo modo si puo' avere una dato piu' attendibile di probabile sortita dei numeri. Questo discorso puoì essere esteso per il terno in decina , l'ambo in settina, la quaterna in ottina etc etc.
Dunque ricapitolando esiste qualcosa del genere in spaziometria e se no e' possibile implementarlo oppure e' possibile creare uno script con algoritmo abbastanza potente in modo da poter calcolare in tempi brevi questi dati che a mio avviso possono dare un quadro statistico migliore al lotto ?
Grazie della cortese attenzione

 

[LuigiB]

ciao , non mi sembra esista qualcosa di simile , poi sviluppare in ottine e superiori significa generare una quantita ingestibile di colonne.
Tuttavia non capisco una cosa , seguendo la tua idea invece di giocare una decina con frequenza media (o ritardo medio ) per ambo non ti puoi giocare i primi 45 ambi ordinati per frequenza o per ritardo ?

 

[NANNOLO]

Cioa Luigi forse mi sono espresso male...
ti faccio un esempio concreto.
Poniamo di ricercare la decina naturale (dall' 1 al 10, dall'11 al 20 etc etc) che abbia come estratto il ritardo medio maggiore...
vediamo come procedere.
Sommero' i ritardi dei primi 10 numeri ( dall 1 al 10) e poi divido il tutto per 10.
Faro' cosi' anche per le altre decine...sommero' i ritardi dei numeri che compongono la decina e li dividero' per 10.
In questo modo tovero' l'estratto in decina con il ritardo medio maggiore.
Stesso procedimento puo' essere fatto per l'ambo dividendo la decina per 45, per il terno, la quaterna etc etc.
Le decine possono essere quelle naturali ,cabalistiche,possono essere le figure, le cadenze, le cifre.
Comprendi ora cio' che voglio dire ? Grazie della disponibilita'.

 

[LuigiB]

questo semplice script ti consente di selezionare le formazioni e di anlizzare ritardo e frequenza media per la sorte da te scelta

Option Explicit
Sub Main
	Dim k,nClasse,nQElem , nIdColOrd
	Dim RitM,FrqM
	Dim Inizio,Fine , nQRuote
	Dim sFrz,nSorte
	ReDim aRetElementi(0)
	ReDim aRuote(0)
	
	Inizio = EstrazioneIni
	Fine = EstrazioneFin
	sFrz = ScegliFrz
	nSorte = ScegliSorte
	nIdColOrd = ScegliOrdinamento
	
	nQRuote =  ScegliRuote(aRuote)
	
	If sFrz <> "" And nSorte > 0 And nQRuote > 0 Then
		
		nClasse = GetClasseFormazione(sFrz)
		nQElem = GetQElemFormazione(sFrz)
		If nClasse > nSorte Then
			
			Scrivi "Analisi da : " & Inizio
			Scrivi "Analisi  a : " & Fine
			Scrivi "Ruote      : " & GetStringaRuote(aRuote)
			Scrivi "Formazione : " & sFrz
			Scrivi "Per sorte  : " & nSorte
			
			
			 
		
			Call InizializzaTable
			For k = 1 To nQElem
				ReDim aN(0)
				Call GetItemFormazione(sFrz,aN,k)
				Call GetValoriMedi(aN,Inizio,Fine,aRuote,RitM,FrqM,nClasse,nSorte)
				Call AddRigaTable (aN ,RitM,FrqM)
			Next
			Call CreaTabella ( nIdColOrd) 
		Else
			Call Scrivi("La formazione ha un numero di elementi inferiore alla sorte scelta")
		End If
	Else
		MsgBox "Parametri non validi"
	End If
End Sub
Function ScegliSorte
	ReDim aV(4)
	Dim k,i
	For k = 2 To 5
		i = i + 1
		aV(i) = k
	Next
	k = ScegliOpzioneMenu(aV,,"Scegli sorte")
	If k >= 0 Then
		ScegliSorte = Int(aV(k))
	End If
End Function
Function ScegliOrdinamento
	ReDim aV(2)
	Dim k,i
	
	aV(1) = "Ritardo Medio"
	aV(2) = "Frequanza media"
	
	k = ScegliOpzioneMenu(aV,,"Scegli ordinamento")
	If k >= 0 Then
		ScegliOrdinamento=  k +1
	End If
End Function
Function ScegliFrz
	ReDim aFile(0)
	Dim sDir
	Dim k
	sDir = GetDirectoryAppData & "formazioni\"
	Call ElencoFileInDirectory(sDir,aFile,".frz")
	k = ScegliOpzioneMenu(aFile,,"Scegli formazione")
	If k >= 0 Then
		ScegliFrz = aFile(k)
	Else
		ScegliFrz = ""
	End If
End Function
Sub GetValoriMedi(aNumeriFrz,Inizio,Fine,aRuote,RitM,FrqM,nClasseFrz,nSorte)
	Dim k,e
	Dim nColTot
	Dim Rit,Frq
	Dim RitT,FrqT
	Dim aCol
	nColTot = Combinazioni(nClasseFrz,nSorte)
	RitT = 0
	FrqT = 0
	aCol = SviluppoIntegrale(aNumeriFrz,nSorte)
	For k = 1 To UBound(aCol)
		ReDim aN(nSorte)
		For e = 1 To nSorte
			's = s & Format2(aCol(k,e)) & "-"
			aN(e) = aCol(k,e)
		Next
		Call StatisticaFormazione(aN,aRuote,nSorte,Rit,0,0,Frq,Inizio,Fine)
		RitT = RitT + Rit
		FrqT = FrqT + Frq
	Next
	RitM = Dividi(RitT,nColTot)
	FrqM = Dividi(FrqT,nColTot)
End Sub
Sub InizializzaTable
	ReDim aV(3)
	
	aV(1) = "Formazione"
	aV(2) = "RitMedio"
	aV(3) = "FreqMedia"
	
	Call InitTabella (aV , vbCyan )
End Sub 
Sub AddRigaTable (aN ,RitM,FrqM)
	ReDim aV(3)
	
	aV(1) = StringaNumeri(aN ,,True )
	aV(2) = Round(RitM,3)
	aV(3) = Round(FrqM ,3)
	
	Call AddRigaTabella (aV ,,"right") 
	

End Sub 

Function GetStringaRuote(aRuote)
	
	Dim k , s 
	
	For k = 1 To UBound(aRuote)
		s  = s & SiglaRuota(aRuote(k)) & "-"
	Next
	
	If s <> "" Then s = Left(s ,Len(s)-1)
	GetStringaRuote = s
End Function

 

[gennaro]

Luigi mi fai morire qnd dici : "con questo semplice script" ehehehh

 

[LuigiB]

eheh è semplice davvero guardalo bene ... ciao!

 

[NANNOLO]

Grazie Luigi...perdonami unaltro piacere nello script non c'e' come sorte l' estratto... e' possibile inserirlo ?

 

[LuigiB]

pensavo non servisse .. sostituisci questa riga

For k = 2 To 5

con

For k = 1 To 5

in pratica l'1 al posto del 2

 

[NANNOLO]

L' ho sostituita ma quando lo faccio girare mi da errore script linea 53 colonna 2 con evidenziato aV(i) = k

 

[Joe91]

Chi-o-sa-ndo-vai ?

Chi-o-sa-ndo-vai ?

Mi sia permesso ricordare che una richiesta del tutto analoga giace irrrisposta da molto tempo

su di un noto forum di lotto-statistica dove peraltro ... si paga, per non avere.

Mentre qui, giustamente, Luigi individua velocemente e gratutitamente, sia una soluzione

che una criticità nella proposta. (Perchè non "scegliere" i capolista ... senza prescegliere un "gruppo omogeneo"? )

Il definire un "gruppo" di estratti siano essi decine naturali o quant'altro ...

predetermina dei vincoli severi a quelli che sono i ritardi e le frequenze.

Tali argomenti furono trattati, dal sottoscritto, anni orsono, e vi fu la rihiesta di verifica di un utente, "Numeri",

che propose un metodo statistico del quale verificammo gli sviluppi in un paio di anni a seguire.

Gli Ambi Secchi (due numeri per ambo) dovevano avere un ritardo minimo a ruota (conseguentemente a Tutte)

non inferiore a 230-240 estrazioni (media minima) ed un ritardo che assommava almeno ad 8000 estrazioni nelle 10 ruote.

Si verificò che pur utilizzando il numero piuttosto ristretto di ambi che ne derivava, si ottenevano cadute,

nei perfetti limiti imposti dalla norme statistiche, anche un leggero guadagno di tempo sulle attese piuttosto lunghe.

Come si vede nella tabella prodotta da un altro mio script, forse, solo il primo Ambo ... appartiene al gruppo "Decina".

Tutti gli altri, non sarebbero rilevati, e ciò comporta che, fuggendo ed alterando il quadro statistico,

potremmo credere che una somma ritardi di 4000 estrazioni, "sia buona", iniziare il gioco per poi

dover attendere inutilmente altre 4000 estrazioni ... per arrivare ad 8000 e questo, non bastarebbe ancora.

La conseguenza che tutti conosciamo è che se può succedere che non si vinca ... poi succede, che non si vince.

Qui si dimostra che con metà dei 45 Ambi (23)

l'Ambo 4.17 e l'Ambo 50.72 sarebbero caduti, la scorsa estrazione, ed hanno in tabella il ritardo "1"

RIF  Ambo    Ba    Ca    Fi    Ge    Mi    Na    Pa    Ro    To    Ve   Somma
01)  01.08    22   713   356   841   486   757   404  1084   558  2883   8104
02)  03.11  1491   286   183   150   525  1469  2781    46   754   510   8195
03)  04.17   250  1884  2133   593     1   489   216    39  1901   535   8041
04)  07.25  2142   462   102   241   845    36  1898   582  1988   591   8887
05)  09.27  1745   241  1627   310   618   984   394  1659   263   239   8080
06)  10.35   924   948   683   130   316  1142  3014  1028   539    27   8751
07)  10.36    52   290   710    60  2213   724  4306    94   218    19   8686
08)  10.76  1383  2473   842  3477   242   337    87   671   228    22   9762
09)  12.69   219   200   654   858  1307   464   661   141  2292  1468   8264
10)  18.33  1597  2950   245   709   192   309   819  1221   184   426   8652
11)  24.68  1461    44   514   108   321  2091  1417   723   397  1183   8259
12)  31.48  1609  2083   179   252   460  1026  1062   252   134  1111   8168
13)  31.53    72   280  2931   197   422  2201   919   492   329   214   8057
14)  32.49   977  1151   441  1059   162   639  1815   733   623   517   8117
15)  34.89  1096   746   945    14    86  3356   910   276   824   419   8672
16)  41.51  1537   646  2060   120   239  1013    50   620  1643   680   8608
17)  41.57   125   363   467   621  1637   568  1164  1424   639  1511   8519
18)  48.87   334  1370   538    83   779   160  1792  3198   316    87   8657
19)  48.89   539   201   603   532  2129  2346   725    25   351   982   8433
20)  50.63   578     9   332   362  1442   872   985  1268  1371  1200   8419
21)  50.72   372  1206     1   555  1085   682  1774  3396   229    35   9335
22)  62.89  3012  1215  1639   739   752   922   139   162   853   241   9674
23)  68.71   452   147  1267   165   579   506  1364  1241  2019  1003   8743

73 ambi hanno RC>=1000/Ruota & 8000/Tutte. 51 hanno RC > Storico.

Aggiornato al 05.05.2012

Però, riepilogando: Attenzione con i ritardi.

 

[LuigiB]

grazie Joe per l'interrvento , per fortuna la richiesta di Nanolo non si riferiva allo sviluppo completo dei 90 nummeri in colonne di classe k. Altrimenti la cosa non sarebbe stata possibile .. chi se le spazzola 77 quasi 78 miliardi di combinazioni sviluppate in classe 8 .. sarebbe bello studiare un algoritmo non euristico che possa gestire quantita cosi elevate di colonne per farne la statistica. La cosa non è semplice ...

 

[Joe91]

Ciao Luigi, BuonGiorno.

Ho scaricato ora spaziometria con i nuovi plugin,

per cui ringrazio e mi complimento per la generosità ...

nel rendere disponibili tutte queste buone ricerche.

Quanto proposto da Rubino affianca sostituisce integra, molto di quanto era alla richiesta di questo post.

Mi permetto di sottolineare come dissi che sintetizzando "le tabelle" era possibile avere

un ristretto numero di Ambi ... su cui fare affidamento.

Facendo richiamo, alla tabella che ho postato al messaggio #10

E' evidente ed innegabile che l' AMBO 50.72 sia caduto estratto ANCHE a Roma il 15/05/2012.

Due volte seccho ... a ruota, in una manciata di estrazioni.

 

[Joe91]

BuonGiorno a tutte/i.

In questo aggiornamento intendo richiamata la tabella degli Ambi che ho pubbilcato al #10.

Di questi è caduto l' Ambo 50.63. Secco, a Ruota (Venezia) il 26.05.2012