Per LuigiB

[Baffoblu]

Ciao Frank quando avrai definito delle precise regole scaturite dalle tue prove empiriche bisognera fare un nuovo script non statistico ma di analisi del criterio...

Ciao Luigi,

Si frankstone sta facendo un ottimo lavoro.

Non sarebbe meglio (alla fine) inserirlo direttamente in spaziometria ?

Parlando d'altro, ho visto solo adesso la posta, meno male che vedo che hai risolto....

Ti ho mandato posta con una richiesta,....poi mi dirai tu come.....

ciao

 

[LuigiB]

bhe al limite trasformo in exe lo script e lo metto nei plugin per metterlo nel programma dovrei scrivere tutto daccapo.

 

[Antonin]

Veramente un ottimo lavoro,mi congratulo con gli operatori.

 

[Baffoblu]

bhe al limite trasformo in exe lo script e lo metto nei plugin per metterlo nel programma dovrei scrivere tutto daccapo.

Per me, mi sta bene anche se rimane fisso nella cartella script....

 

[frankstone]

Ciao Frank quando avrai definito delle precise regole scaturite dalle tue prove empiriche bisognera fare un nuovo script non statistico ma di analisi del criterio...

OK LuigiB, mi serve un pò di tempo.

Più che altro sono impegnato per una trasferta ( Gruppo sbandieratori) e non sono a casa prima di domenica.

Se qualcuno ha voglia di buttare qualche idea possiamo sentirci per Domenica.

Ciao Ragazzi e tanta fortuna per sabato!

 

[rosa962]

ciaoo FRANKSTONE

hai fatto uno studio della cinquina sincrona non sui meno frequenti
ma sui frequenti ?

sai i ritardi sono ritardi

fai un controllo non su 104 estrazioni ma su 180 estrazioni

e prendi i numeri della cinquina sincrona o delle cinquine sincrone

solo quelli che hanno da 11 uscite in poi in 180 concorsi

per i posti determinati del numero o dei numeri in studio

preferisco o il ripetersi del posto determinato
o il ritardo del posto nelle uscite


ciaoo

 

[solare]

Adesso tutto ok
Ciao Luigi e grazie ancora

 

[frankstone]

ciaoo FRANKSTONE

hai fatto uno studio della cinquina sincrona non sui meno frequenti
ma sui frequenti ?

sai i ritardi sono ritardi

fai un controllo non su 104 estrazioni ma su 180 estrazioni

e prendi i numeri della cinquina sincrona o delle cinquine sincrone

solo quelli che hanno da 11 uscite in poi in 180 concorsi

per i posti determinati del numero o dei numeri in studio

preferisco o il ripetersi del posto determinato
o il ritardo del posto nelle uscite


ciaoo

Ciao ragazzi,

OK Rosa, ottima osservazione, infatti ho avuto modo di osservare anche le frequenze maggiori di...., e sto cercando di focalizzare anche la determinazione della posizione di uscita.

Quello che però sembra notevolmente attendibile (almeno dalle prove che ho fatto fin d'ora) è che la frequenza minore sia legata molto alla posizione mancante.
L'analisi dei numeri con frequenze maggiori, ha bisogno di analisi soprattutto per determinare quale è il range che consenta di filtrare i numeri "interessanti".
Queste osservazioni potrebbero essere efficaci per esempio per comporre formazioni numeriche per ambo ed eventualmente terno, composte da numeri
sbilanciati tra loro ( + frequenti e meno frequenti), ma questa analisi richiede un'attenzione diversa.
Ora comunque aiutiamoci per raggiungere qualcosa di efficace.

Ciao

 

[LuigiB]

ancora una modifica allo script

Option Explicit
Class clsEstrazione
Dim aNum(5)
Dim mRuota
Dim mRitardo
Sub SetNum(iPos, Num)
        aNum(iPos) = Num
End Sub
Public Property Let Ruota(v)
        mRuota = v
End Property
Public Property Let Ritardo(v)
        mRitardo = v
End Property
Public Property Get Ritardo()
        Ritardo = mRitardo
End Property
Sub NormalizzaArrayNumPerFrq(aNumPerFrq)
    Dim k , j 

    For k = 1 To 5
        If Int(aNumPerFrq(k, 1)) = 0 Then
            For j = k + 1 To 5
                If Int(aNumPerFrq(j, 1)) <> 0 Then
                    aNumPerFrq(k, 1) = aNumPerFrq(j, 1)
                    aNumPerFrq(k, 2) = aNumPerFrq(j, 2)
                    aNumPerFrq(j, 1) = 0
                    aNumPerFrq(j, 2) = 0
                    Exit For
                End If
            Next
        End If
    Next
    
End Sub
Sub CreaStatEstratti(Inizio, Fine)
        Dim nFrq
        ReDim aRuote(1)
        Dim k, j, i, iPos
        Const nRitDaPrendere = 10
        aRuote(1) = mRuota
        ' frequenze
        ReDim aN(1)
        ReDim aNumPerFrq(5, 2)
        i = 0
        For k = 1 To 5
                If Int(aNum(k)) > 0 Then
                        i = i + 1
                        aN(1) = aNum(k)
                        Call StatisticaFormazione(aN, aRuote, 1, 0, 0, 0, nFrq, Inizio, Fine)
                        aNumPerFrq(i, 1) = aN(1)
                        aNumPerFrq(i, 2) = nFrq
                End If
        Next
        Call OrdinaMatrice(aNumPerFrq, -1, 2)
        Call NormalizzaArrayNumPerFrq(aNumPerFrq)
        
        '========================================================00
        ' elenco ritardi
        ReDim aValori(nRitDaPrendere, 16)
        i = 0
        iPos = 2
        For k = 1 To 5
                If Int(aNumPerFrq(k, 1)) > 0 Then
                        aN(1) = aNumPerFrq(k, 1)
                        ReDim aRetRitardi(0)
                        ReDim aReIdEstr(0)
                        Call ElencoRitardi(aN, aRuote, 1, 1, Fine, aRetRitardi, aReIdEstr)
                        For j = 1 To nRitDaPrendere
                                aValori(j, 1) = j - 1
                                i = UBound(aRetRitardi) - (j - 1)
                                If i > 0 Then
                                        aValori(j, iPos) = aRetRitardi(i)
                                        aValori(j, iPos + 1) = GetDiffColpi(aRetRitardi, i)
                                        aValori(j, iPos + 2) = GetPosSortita(aN(1), aReIdEstr(i) - aRetRitardi(i))
                                End If
                        Next
                        iPos = iPos + 3
                End If
        Next
        Call CreaTabStatistica(aNumPerFrq, aValori, Fine)
        Call GeneraGrafico(Fine)
End Sub
Function GetPosSortita(N, idEstr)
        Dim k
        For k = 1 To 5
                If Estratto(idEstr, mRuota, k) = N Then
                        GetPosSortita = k
                        Exit For
                End If
        Next
End Function
Function GetDiffColpi(aRitardi, j)
        Dim r
        If j > 1 Then
                GetDiffColpi = aRitardi(j) - aRitardi(j - 1)
        Else
                GetDiffColpi = "-"
        End If
End Function
Sub CreaTabStatistica(aN, aValori, Fine)
        Dim k, j, i, p
        Dim nRitMin, nRitMax
        ReDim aV(16)
        ReDim aColSpan(16)
        ReDim aColori(16)
        ReDim aColoreFont(16)
        Dim nColor
        For k = 1 To 16
                aColoreFont(k) = vbBlack
        Next
        For k = 4 To 16 Step 3
                aColoreFont(k) = vbRed
        Next
        Call Scrivi(FormatSpace(NomeRuota(mRuota), 112) & vbCrLf, True, , vbCyan)
        
        Call Scrivi("Formazione : " & StringaNumeriFormazione)
        Call Scrivi("Ritardo    : " & mRitardo)
        Call Scrivi
        aColori(1) = vbYellow
        For k = 2 To 14 Step 3
                If k Mod 2 = 0 Then
                        nColor = vbWhite
                Else
                        nColor = RGB(255, 255, 192)
                End If
                For j = k To (k + 2)
                        aColori(j) = nColor
                Next
        Next
        ' titolo prima riga contiene la ruota
        aV(1) = NomeRuota(mRuota)
        aColSpan(1) = 16
        For k = 2 To 16
                aColSpan(k) = 0
        Next
        Call InitTabella(aV, RGB(128, 128, 255), , 6, vbWhite, "Courier New", aColSpan)
        ' Seconda riga Intestazione colonne
        aV(1) = ""
        aV(2) = "Num": aV(4) = "Frq"
        aV(5) = "Num": aV(7) = "Frq"
        aV(8) = "Num": aV(10) = "Frq"
        aV(11) = "Num": aV(13) = "Frq"
        aV(14) = "Num": aV(16) = "Frq"
        aColSpan(1) = 1
        For k = 2 To 14 Step 3
                aColSpan(k) = 2
                aColSpan(k + 1) = 0
                aColSpan(k + 2) = 1
        Next
        aColori(1) = vbBlack
        Call AddRigaTabella(aV, aColori, , , , , aColSpan)
        ' terza riga frequenza dei numeri
        aV(1) = ""
        aColSpan(1) = 1
        i = 0
        For k = 2 To 14 Step 3
            i = i + 1
		If Int( aN(i, 1))> 0 Then

                aV(k) = aN(i, 1)
                aV(k + 1) = ""
                aV(k + 2) = aN(i, 2)
		Else
		    aV(k) = ""
                aV(k + 1) = ""
                aV(k + 2) = ""

      	End If  
	Next
        Call AddRigaTabella(aV, aColori, , 4, aColoreFont, , aColSpan)
        ' quarta riga intestazione valori di dettaglio
        aV(1) = "IdRitardo"
        i = 0
        For k = 2 To 14 Step 3
                i = i + 1
                aV(k) = "Ritardo"
                aV(k + 1) = "DiffColpi"
                aV(k + 2) = "Posizione"
        Next
        Call AddRigaTabella(aV, vbYellow)
        ' righe dei valori
        aColori(1) = vbYellow
        For k = 1 To UBound(aValori)
                For j = 1 To 16
                        aV(j) = aValori(k, j)
                Next
                Call AddRigaTabella(aV, aColori)
        Next
        ' righe di riepilogo
        For k = 1 To UBound(aColSpan)
                aColSpan(k) = 0
        Next
        aColSpan(1) = 16
        ReDim aV(16)
        ' prima riga titolo
        aV(1) = "RIEPILOGO RITARDI"
        Call AddRigaTabella(aV, vbYellow, , , , , aColSpan)
        ' seconda riga intestazione col
        aV(1) = "Fascia Rit."
        i = 0
        ReDim aColori(16)
        aColori(1) = vbYellow
        For k = 1 To 5
                i = ((k - 1) * 3) + 2
                aV(i) = "Da Rit"
                aV(i + 1) = "A Rit"
                aV(i + 2) = "Quantità"
                aColori(i) = RGB(223, 223, 223)
                aColori(i + 1) = RGB(223, 223, 223)
                aColori(i + 2) = vbWhite
        Next
        Call AddRigaTabella(aV, vbYellow)
        ' righe dei valori
        nRitMin = -1
        ReDim aV(16)
        Do While nRitMax < 220
                nRitMin = nRitMin + 1
                nRitMax = (nRitMin - 1) + 18
                aV(1) = aV(1) + 1
                For k = 1 To 5
                        i = ((k - 1) * 3) + 2
                        aV(i) = nRitMin
                        aV(i + 1) = nRitMax
                        aV(i + 2) = CalcolaPresNellaFasciaRit(nRitMin, nRitMax, i, aValori)
                Next
                nRitMin = nRitMax
                Call AddRigaTabella(aV, aColori)
        Loop
        ' prima riga titolo
        aV(1) = "RIEPILOGO POSIZIONI"
        Call AddRigaTabella(aV, vbYellow, , , , , aColSpan)
        ' seconda riga intestazione col
        ReDim aColSpan(16)
        aV(1) = "Posizione"
        i = 0
        aColSpan(1) = 1
        For k = 1 To 5
                i = ((k - 1) * 3) + 2
                aColSpan(i) = 3
                aV(i) = "Presenze"
                aV(i + 1) = ""
                aV(i + 2) = ""
        Next
        Call AddRigaTabella(aV, vbYellow, , , , , aColSpan)
        ' righe dei valori
        ReDim aColori(16)
        aColori(1) = vbYellow
        For p = 1 To 5
                aV(1) = p & "°"
                For k = 1 To 5
                        i = ((k - 1) * 3) + 2
                        aV(i) = CalcolaPresNellaPos(p, i + 2, aValori)
                        aV(i + 1) = ""
                        aV(i + 2) = ""
                        aColori(i) = vbWhite
                        aColori(i + 1) = vbWhite
                        aColori(i + 2) = vbWhite

                Next
                Call AddRigaTabella(aV, aColori, , , , , aColSpan)
        Next
        ' prossima uscita
        ' prima riga titolo
        ReDim aColSpan(16)
        aColSpan(1) = 16
        aV(1) = "USCITE SUCCESSIVE ALL'ULTIMA ESTRAZIONE ANALIZZATA "
        Call AddRigaTabella(aV, vbYellow, , , , , aColSpan)
        ' seconda riga
        aColSpan(1) = 1
        ReDim aV(16)
        aV(1) = "Uscita"
        For k = 1 To 5
                i = ((k - 1) * 3) + 2
                aColSpan(i) = 2
                aColSpan(i + 1) = 0
                aColSpan(i + 2) = 1
                aV(i) = "Colpi"
                aV(i + 1) = ""
                aV(i + 2) = "Pos"
        Next
        Call AddRigaTabella(aV, vbYellow, , , , , aColSpan)
        ' prossime 3 uscite
        ReDim aV(16)
        ReDim aProssimeUscite(5, 3, 1)
        Call AlimentaArrayProssimeUscite(aN, aProssimeUscite, Fine, 3)
        For p = 1 To 3
                aV(1) = p
                For k = 1 To 5
                        i = ((k - 1) * 3) + 2
                        aV(i) = aProssimeUscite(k, p, 0)
                        aV(i + 1) = ""
                        aV(i + 2) = aProssimeUscite(k, p, 1)
                Next
                Call AddRigaTabella(aV, aColori, , , , , aColSpan)
        Next
        Call CreaTabella
End Sub
Sub AlimentaArrayProssimeUscite(aN, aProssimeUscite, Fine, nQuscite)
        Dim k, p, e, idEstr, nUscite, nColpi
        Dim nEstrTot
        nEstrTot = EstrazioniArchivio
        For k = 1 To 5
                nUscite = 0
                nColpi = 0
                If aN(k, 1) <> 0 Then
                        For idEstr = Fine + 1 To nEstrTot
                                nColpi = nColpi + 1
                                For e = 1 To 5
                                        If Estratto(idEstr, mRuota, e) = aN(k, 1) Then
                                                nUscite = nUscite + 1
                                                aProssimeUscite(k, nUscite, 0) = nColpi
                                                aProssimeUscite(k, nUscite, 1) = e
                                                Exit For
                                        End If
                                Next
                                If nUscite = nQuscite Then Exit For
                        Next
                End If
        Next
End Sub
Function CalcolaPresNellaPos(pos, i, aValori)
        Dim k, p
        p = 0
        For k = 1 To UBound(aValori)
                If aValori(k, i) = pos Then
                        p = p + 1
                End If
        Next
        CalcolaPresNellaPos = p
End Function
Function CalcolaPresNellaFasciaRit(nRitMin, nRitMax, i, aValori)
        Dim k, p
        p = 0
        For k = 1 To UBound(aValori)
                If aValori(k, i) >= nRitMin And aValori(k, i) <= nRitMax Then
                        p = p + 1
                End If
        Next
        CalcolaPresNellaFasciaRit = p
End Function
Function StringaNumeriFormazione()
        Dim k, s
        For k = 1 To 5
                s = s & Iif(aNum(k) <> 0, aNum(k), "..") & " "
        Next
        StringaNumeriFormazione = "[" & s & "]"
End Function
Sub CalcolaPresenzeNeiCicli(Num, Fine, aPresenze, nQCicli)
        Dim k, i
        Dim nInizio
        ReDim aN(1)
        ReDim aRt(1)
        Const cLenCiclo = 18
        ReDim aPresenzeTmp(nQCicli)
        aRt(1) = mRuota
        nInizio = Fine + 1
        i = 0
        Do While nInizio > 1
                aN(1) = Num
                i = i + 1
                nInizio = nInizio - cLenCiclo
                If nInizio < 0 Then nInizio = 1
                aPresenzeTmp(i) = SerieFreq(nInizio, (nInizio - 1) + cLenCiclo, aN, aRt, 1)
                If i = nQCicli Then Exit Do
        Loop
        ReDim aPresenze(nQCicli)
        For k = 1 To i
                aPresenze((i + 1) - k) = aPresenzeTmp(k)
        Next
End Sub
Sub GeneraGrafico(Fine)
        Dim k, j
        Const cQCicli = 10
        ReDim aColori(5)
        aColori(1) = vbBlue
        aColori(2) = vbCyan
        aColori(3) = vbRed
        aColori(4) = vbMagenta
        aColori(5) = vbGreen
        Call PreparaGrafico("Grafico frequenza per gli ultimi " & cQCicli & " cicli da 18", 0, cQCicli, 0, 10, 1, 1)
        For k = 1 To 5
                If aNum(k) <> 0 Then
                        ReDim aPres(0)
                        Call CalcolaPresenzeNeiCicli(aNum(k), Fine, aPres, cQCicli)
                        ReDim aV(cQCicli, 2)
                        For j = 1 To cQCicli
                                aV(j, 1) = j
                                aV(j, 2) = aPres(j)
                        Next
                        Call DisegnaLineaGrafico(aV, aColori(k), "Numero " & aNum(k))
                End If
        Next
        ' scrive grafico nell'output
        Call InserisciGrafico
End Sub


End Class
Sub Main
	Dim Fine
	Dim CollCinquine
	Dim nEstrPerCalcFrq
	Dim nClasse
	Dim nFrzPerRt
	nEstrPerCalcFrq = CInt(InputBox("Quantita estrazioni per calcolo frequenza","",104))
	Fine = EstrazioneFin
	ReDim aTabAnalitico(0)
	nClasse = ScegliDaMenu("Classe formazione",5)
	nFrzPerRt = ScegliDaMenu("Formazioni da rilevare per ruota",1)
	If nClasse > 0 And nFrzPerRt > 0 And nEstrPerCalcFrq > 0 Then
		Call ScriviInformazioni(nEstrPerCalcFrq,nClasse,nFrzPerRt,Fine)
		Call AlimentaGrigliaEstr(aTabAnalitico,Fine)
		Call CreaTabAnalitico(aTabAnalitico)
		Call AlimentaCollCinquine(CollCinquine,aTabAnalitico,nFrzPerRt,nClasse)
		Call EseguiStatistica(CollCinquine,nEstrPerCalcFrq,Fine)
		If MsgBox("Mostrare il tabellone analitico ?",vbQuestion + vbYesNo) = vbYes Then
			Call CreaTabellone(aTabAnalitico,Fine)
		End If
	End If
End Sub
Sub ScriviInformazioni(nEstrPerCalcFrq,nClasse,nFrzPerRt,Fine)
	Dim s
	s = "La seguente statistica analizza per ogni ruota le  " & nFrzPerRt
	s = s & " formazioni composte da " & nClasse & " numeri" & vbCrLf
	s = s & "dal ritardo piu alto che non si sono ancora sfaldate,"
	s = s & " esaminando e fornendo i dati statistici per " & vbCrLf
	s = s & "i numeri che le compongono." & vbCrLf
	s = s & "Le formazioni vengono mostrate in ordine decrescente di ritardo." & vbCrLf
	s = s & "All'interno della tabella statistica i numeri sono disposti ordinati per frequenza decrescente." & vbCrLf
	Call Scrivi(String(150,"*"),True)
	Call Scrivi(s,True)
	Call Scrivi(String(150,"*"),True)
	Call Scrivi
	s = "Data di rilevamento Tabellone Analitico     : " & GetInfoEstrazione(Fine)
	Call Scrivi(s,True)
	s = "Estrazioni esaminate per calcolo freqenza   : " & nEstrPerCalcFrq
	Call Scrivi(s,True)
	s = "Ricerca formazioni di classe                : " & nClasse
	Call Scrivi(s,True)
	Call Scrivi(String(150,"*"),True)
	Call Scrivi
End Sub
Sub CreaTabellone(aTabAnalitico,fine)
	Dim k,i,r
	ReDim aV(57)
	ReDim aColSpan(57)
	ReDim aColori(57)
	Dim idPrimaRiga,idEstr
	Dim nColor
	Call Messaggio("Output TabAnalitico in corso ...")
	i = 2
	aColori(1) = RGB(255,255,192)
	aColori(2) = vbYellow
	For r = 1 To 11
		For k = 1 To 5
			i = i + 1
			If r Mod 2 = 0 Then
				nColor = RGB(255,255,192)
			Else
				nColor = vbWhite
			End If
			aColori(i) = nColor
		Next
	Next
	aColSpan(1) = 57
	aV(1) = "TABELLONE ANALITICO"
	Call InitTabella(aV,vbCyan,,6,,"Courier New",aColSpan)
	aV(1) = ""
	aV(2) = ""
	i = 0
	For k = 3 To 56 Step 5
		i = i + 1
		aV(k) = NomeRuota(Iif(i = 11,12,i))
		aColSpan(k) = 5
	Next
	aColSpan(1) = 2
	Call AddRigaTabella(aV,aColori,,,,"Courier New",aColSpan)
	aV(1) = " Data "
	aV(2) = " Rit "
	i = 2
	For r = 1 To 11
		For k = 1 To 5
			i = i + 1
			aV(i) = Format2(k) & "°"
		Next
	Next
	Call AddRigaTabella(aV,aColori,,,,"Courier New")
	idPrimaRiga = GetIdPrimaRigaTabAna(aTabAnalitico)
	For k = idPrimaRiga To UBound(aTabAnalitico)
		idEstr = fine -((UBound(aTabAnalitico) + 1) - k - 1)
		aV(1) = " " & DataEstrazione(idEstr) & " "
		aV(2) = UBound(aTabAnalitico) - k
		For i = 1 To 55
			If aTabAnalitico(k,i) <> 0 Then
				aV(i + 2) = Format2(aTabAnalitico(k,i))
			Else
				aV(i + 2) = "  "
			End If
		Next
		Call AddRigaTabella(aV,aColori,,,,"Courier New")
	Next
	Call CreaTabella
End Sub
Function GetIdPrimaRigaTabAna(aTabAnalitico)
	Dim k,e
	For k = 1 To UBound(aTabAnalitico)
		For e = 1 To 55
			If aTabAnalitico(k,e) <> 0 Then
				GetIdPrimaRigaTabAna = k
				Exit Function
			End If
		Next
	Next
End Function
Function ScegliDaMenu(sTitolo,idSelDef)
	Dim k
	ReDim aV(5)
	For k = 1 To 5
		aV(k) = k
	Next
	k = ScegliOpzioneMenu(aV,idSelDef,sTitolo)
	If k > 0 Then
		ScegliDaMenu = aV(k)
	End If
End Function
Sub EseguiStatistica(CollCinquine,nEstrPerCalcFrq,Fine)
	Dim clsE
	Call OrdinaItemCollection(CollCinquine,"Ritardo")
	For Each clsE In CollCinquine
		Call clsE.CreaStatEstratti((Fine + 1) - nEstrPerCalcFrq,Fine)
	Next
End Sub
Sub AlimentaCollCinquine(CollCinquine,aTabAnalitico,QCinquinePerRuota,nClasse)
	Dim r,k,nPosIn,nPosFi
	Dim b,e,i
	Dim nTrovate
	Dim clsE
	Dim nPresenti
	Set CollCinquine = GetNewCollection
	For r = 1 To 11
		Call Messaggio("Ricerca cinquine su " & NomeRuota(Iif(r = 11,12,r)))
		nPosIn =((r - 1)*5) + 1
		nPosFi =(nPosIn - 1) + 5
		nTrovate = 0
		For k = 1 To UBound(aTabAnalitico)
			nPresenti = 0
			For e = nPosIn To nPosFi
				If aTabAnalitico(k,e) <> 0 Then
					nPresenti = nPresenti + 1
				End If
			Next
			If nPresenti = nClasse Then
				i = 0
				Set clsE = New clsEstrazione
				clsE.ruota = Iif(r = 11,12,r)
				clsE.ritardo = UBound(aTabAnalitico) - k
				For e = nPosIn To nPosFi
					i = i + 1
					Call clsE.SetNum(i,aTabAnalitico(k,e))
				Next
				CollCinquine.Add clsE
				nTrovate = nTrovate + 1
				If nTrovate = QCinquinePerRuota Then Exit For
			End If
		Next
		Call AvanzamentoElab(1,11,r)
	Next
End Sub
Function AlimentaGrigliaEstr(aTabAnalitico,Fine)
	Dim idEstr
	Dim Inizio
	Dim nTot
	Dim iPos,iEst,r,e
	Call Messaggio("Lettura estrazioni in corso")
	Inizio = Fine - 220
	If Inizio < 0 Then Inizio = 0
	nTot =(Fine + 1) - Inizio
	ReDim aTabAnalitico(nTot,55)
	For idEstr = Inizio To Fine
		iPos = 0
		iEst = iEst + 1
		For r = 1 To 12
			If r <> 11 Then
				For e = 1 To 5
					iPos = iPos + 1
					aTabAnalitico(iEst,iPos) = Estratto(idEstr,r,e)
				Next
			End If
		Next
		Call AvanzamentoElab(Inizio,Fine,idEstr)
	Next
End Function
Sub CreaTabAnalitico(aTabAnalitico)
	Dim k,j,e,ee,r
	Dim iPos,nPosIn,nPosFi
	For r = 1 To 11
		Call Messaggio("Creo analitico per " & NomeRuota(Iif(r = 11,12,r)))
		nPosIn =((r - 1)*5) + 1
		nPosFi =(nPosIn - 1) + 5
		For k = 2 To UBound(aTabAnalitico)
			For j = k - 1 To 1 Step - 1
				For e = nPosIn To nPosFi
					For ee = nPosIn To nPosFi
						If aTabAnalitico(j,ee) = aTabAnalitico(k,e) Then
							aTabAnalitico(j,ee) = 0
							Exit For
						End If
					Next
				Next
			Next
		Next
		Call AvanzamentoElab(1,11,r)
	Next
End Sub

 

[frankstone]

Ciao LuigiB,
Tutto Bene?

Grazie infinite per la tua attenzione

 

[frankstone]

Volevo far notare proprio a Roma, che proprio Sabato è uscito il 26.

La frequenza era più bassa, e anche la posizione, nonstante non fosse a zero la quinta, comunque era la più bassa anchessa!

 

[frankstone]

Ah! LuigiB,

Ho un'altra idea, non relativa a questo studio ma ad un'altro.
Magari te la esporrò più in là per non stressarti troppo.

Ciao

 

[solare]

Ciao frankstone, scusa ma su quale data è stata elaborata questa previsione ?
inoltre cosa cambia spostando formazione ruota da 1 a 5, io uso questo metodo dal plugin di spaziometria.
Grazie

 

[frankstone]

Ciao frankstone, scusa ma su quale data è stata elaborata questa previsione ?
inoltre cosa cambia spostando formazione ruota da 1 a 5, io uso questo metodo dal plugin di spaziometria.
Grazie

Ti chiedo scusa ma ho sbagliato immagine di riferimento. Faccio riferimento all'estrazione ultima ma non vi era alcuna previsione, solo per fare qualche considerazione che possa
consolidare la teoria fino ad ora esposta.
Prendendo come esempio le formazioni numeriche a 4, una di queste a Roma con finestra 156 estr., il 26 sortisce ed è il meno frequente. Per quanto riguarda
la posizione di uscita, si pone alla quinta. Se andiamo a vedere in tabella vediamo che tale numero non ha posizioni = 0, ma comunque esce con quella meno presente e cioè
appunto la quinta.
Ma non solo,
stesso colpo esce il 14 che seguiva a ruota con meno frequenza facente parte della stessa quartina.
Le formazioni ruota, è il numero delle formazioni ( cinquine, quartine, terzine etc.. non ancora sfaldate); da 1 a 5 significa che si possono visualizzare fino 5 formazioni per ciascuna ruota. Naturalmente le troverai in ordine cronologico assoluto.
Quindi se selezioni 3 invece che uno, il programma ti cercherà e visualizzerà le tre formazioni per ogni ruota in modo cronologico.

 

[frankstone]

E' probabile lo sfaldamento di questa quartina a Napoli, ha raggiunto un ritardo di 26:
Per considerazioni fatte in questo post, il n. 1 è quello privilegiato come estratto semplice per freq. minore.



Sempre per le quartine, a Palermo il 29 colpisce per la freq. bassa: = 2 Posizione = 5




Bari invece è quella che ha la cinquina più ritardata:

Il 47 è il migliore, posizione 1 o 4

 

[frankstone]

Ragazzi credo che aprirò un nuovo post nella sezione forum, perchè questa sezione non è quella giusta per i pronostici.

Ciao

 

[frankstone]

Proviamo a mettere in atto questo lavoro.

La cinquina più in ritardo è Torino, ma il 46 non ci dà la sicurezza di estratto determinato
Ma solo come semplice.
Proviamo a fare qualche ipotesi ruota per ruota:
Cagliari: si ha il 19 in 4° p., ma anche il 4 ha una posizione scoperta che è la 3°
Bari: incertezza sul 47 che è estratto semplice
Venezia l’8 semplice

Roma il 26 semplice
Nazionale: interessante la coppia 59 e 60: stessa frequenza e diverse le posizioni scoperte, 59 2° e 5°
Il 60 5°
Firenze: il 70 mi sembra ottimo perché si distacca in frequenza e come posizione ( la 2°)

Milano incerto perché c’è il 70 ma semplice e l’11 che ha posizione scoperta: (la 4°)
Napoli il 67 4 ° p. ma ritardo 0 nel penultimo ciclo
Genova: notare il sincronismo di ritardo tra l’89 e il 35 nell’ultimo e penultimo ciclo.
Meglio il 35 per la frequenza e in 2° p. ma l’89 anch’esso e scoperto nella 1° p.
Palermo: Attira il 79 per la frequenza. Nonostante ciò, però ha occupato tutte le posizioni



Facciamo ora qualche esperimento abbinando tali numeri con altri ricavati da coppie, terzine e quartine:

Bari: 47 con 2 – 74 – 80
Cagliari: 4 – 19 con 84 – 77 – 87
Firenze: 70 con 55 – 34
Genova: 35 – 89 con 24 – 41
Milano: 70 – 11 con 52 – 39 – 18
Napoli : 67 con 53 – 69 – 1 – 14 – 64
Palermo: 79 con 29 – 68 – 14 – 34
Roma: 26 -76
Torino: 46 con 71 – 12 – 48 – 25 - 21
Venezia: 8
Nazionale: 59 – 60 – 79 – 25 - 21

Note:
La coppia 25 – 21 in ritardo sincrono da 45 colpi su Torino e Nazionale
Su Torino hanno la posizione n.5 scoperta entrambi!
Sulla Nazionale il 25 3° e 21 4°
Colpisce il 71 a torino per la sua bassa frequenza 3 e il suo alto intervallo sui cicli nonché il posto
Vacante in 1° p.
Credo comunque che Cagliari sia ottimo come ambate determinate 4 3° e 19 4°.

Vediamo cosa accade alla prossima ed eventualmente correggiamo il tiro

Se avete notato, è uscita la previsione di Firenze: "Firenze: 70 con 55 – 34" appunto 55 - 34

Ciao a tutti

 

[frankstone]

Per LuigiB:

Ti chiedo quando puoi dedicarti di fare tali modifiche:

Esempio:

1- Se osservi questa immagine in basso, si nota che il 50 è uscito a Roma in 5^ posizione. Se vediamo la colonna delle posizioni, si vede che il 50 non è apparentemente giocabile
in 5^ perche la 5^ non è = 0. Ma comunque si evidenzia che la posizione 5 è più in ritardo delle altre. Quindi, considerando che la freq. è bassa e il numero è giocabile come determinato,
si potrebbe altresì avidenziare che è probabile la sortita in 5^ poichè è la posizione più in ritardo.






2 - Possiamo elaborare la colonna dei ritardi in questo modo:

Si prende il numero di colpi di ritardo della formazione es.= 9, si analizza nella colonna "Ritardo" i ritardi che appartengono alla fascia 0 ...17 e si fa la media.
Quello che si evidenzia, è che facendo tale media, il risultato può essere inferiore a 9 o superiore, cioè si sà se il numero che fà parte di tale formazione, ha superato o no il ritardo attuale
della formazione stessa nel caso in basso era 8,5. Stessa cosa per i ritardi 18 ...35 se ce ne sono. (Credo che ritardi superiori non sono necessari),quindi si può fare solo due caselle,
oppure si può dare la possibilità impostare dinamicamente la finestra di osservazione del ritardo, fai tè.



Osservazioni: Verificando le colonne relative a: "USCITE SUCCESSIVE ALL'ULTIMA ESTRAZIONE ANALIZZATA" e "RIEPILOGO RITARDI" non ho trovato alcun legame con il tipo di analisi
sfaldamenti si potrebbe togliere.

Una domanda: La colonna presenze, se si fà la somma, il risultato non ritorna con il n. di colpi osservati. Esempio se imposto 156 colpi è vedo freq = 4 in 156 colpi, non torna la somma
delle sortite in tutte le posizioni che è = a 10. Mi puoi spiegare questa somma da cosa scaturisce?

 

[LuigiB]

ciao Frank , ovvio che non torna , solo la frequenza subisce l'analisi delle 104 o N estrazioni tutto il resto è lo storico e la quantita d posizioni rilevate si riferisce al conteggio delle uscite delle ultime 10 volte che ovviamente si possono estendere
anche piu indietro delle canoniche 104 .. infatti se controlli la somma delle presenze fa sempre 10 proprio perche mi hai chiesto di considerare le ultime 10 uscite ... per le modifiche devo rileggere meglio perche su due piedi non c'ho capito un kyser !
per il fatto dei ritardi e delle uscite successive penso che siano valori utili (sempre ragionando in termini lottologici con gli occhi da giocatore perche in realtà è ovvio che nessuno di questi dati possa servire a nulla) il primo per farsi un 'idea del tipo "ohoh questo numero guarda un èpo ha avuto ritardi molto alti secondo me puo uscire in tempi brevi" , e il secondo valore delle uscite successive ho pensato fosse utile a quelli che passano ore a verificare estrazioni all'indietro , per vedere almeno ad occhio se il pronostico che avrebbero fatto si fosse verificato oppure no entro tre colpi tanto per vedere ...i

 

[frankstone]

ciao Frank , ovvio che non torna , solo la frequenza subisce l'analisi delle 104 o N estrazioni tutto il resto è lo storico e la quantita d posizioni rilevate si riferisce al conteggio delle uscite delle ultime 10 volte che ovviamente si possono estendere
anche piu indietro delle canoniche 104 .. infatti se controlli la somma delle presenze fa sempre 10 proprio perche mi hai chiesto di considerare le ultime 10 uscite ... per le modifiche devo rileggere meglio perche su due piedi non c'ho capito un kyser !
per il fatto dei ritardi e delle uscite successive penso che siano valori utili (sempre ragionando in termini lottologici con gli occhi da giocatore perche in realtà è ovvio che nessuno di questi dati possa servire a nulla) il primo per farsi un 'idea del tipo "ohoh questo numero guarda un èpo ha avuto ritardi molto alti secondo me puo uscire in tempi brevi" , e il secondo valore delle uscite successive ho pensato fosse utile a quelli che passano ore a verificare estrazioni all'indietro , per vedere almeno ad occhio se il pronostico che avrebbero fatto si fosse verificato oppure no entro tre colpi tanto per vedere ...i

GRAZIE LUIGI DI AVERMI DATO L'OPPORTUNITA' DI REALIZZARE TALE IMPRESA! GRAZIE AL PLUG IN "SFALDAMENTI" DI SPAZIOMETRIA!!!!!

GUARDATE IL LINK!!!


Analisi Sfaldamenti