combinazioni quartine in decina naturale

i legend · 13 Marzo 2015

Grande, Script perfetto , ora me lo studio

genios · 13 Marzo 2015

Codice:

[/CODOption Explicit
Sub Main
Dim DN,K,P


DN = 5

For K = 1 To 90
If DecinaNaturale(K) = DN Then
P = P + 1
ReDim Preserve Numeri(P)
Numeri(P) = K
End If
Next
Scrivi StringaNumeri(Numeri)
End SubE]

[ATTACH=CONFIG]1878063._xfImport-legacyid=14867[/ATTACH]


Mi occorre capire cosa fa l' istruzione Redim Preserve  nella letteratura in rete il concetto e alquanto contorto .
ciao

Joe91 · 13 Marzo 2015

Ciao Eugenio.

Devi rivedere il mio messaggio #30.

genios · 13 Marzo 2015

Visto e forse compreso . Si tratta di una matrice dinamica che ha secondo delle esigenze si allunga o si accorcia .

Ma nel nostro caso dato che i numeri sono sempre 10 si poteva usare anche una matrice statica . E forse cosi ?

Ciao

Joe91 · 14 Marzo 2015

Cio Eugenio.

Si è cosi.

Si ha un maggiore controllo degli strumenti.

genios · 14 Marzo 2015

i legend · 14 Marzo 2015

Ciao a tutti, spinto dallo studio di joe, ho compilato uno script , che esegue la ricerca in maniera un po diversa da quello di joe, altrimenti sarebbe stato inutile,,
Fatemi sapere che ne pensate

Se riscontrate bugs o errori di calcolo segnalateli
Ciao

Codice:

Option Explicit
Sub Main
'Controllare eventuali Bugs:)
' lo script non esegue la ricerca su tutte e Nazionale
' SE ci dovessero essere bugs segnalateli vediamo di risolverli se possibile
    Dim k,s,i,nRuote,j
    Dim nClasse,nColonneTot
    ReDim aNumeri(90)
    ReDim aStudio(9)
    ReDim aRu(12)
    ReDim aCol(0)
    Dim Dec,nSorte,sRuote
    Dim ritardo,ritardomax,IncrRitMax,Frequenza,Ini,Fin
    Dim aTitolo,Freq,RitA,RitS,Scarto,IncrRit
    Dim cTeorico,nEstrazioni,FreqTeor,ScaFreq
    Dim a,aVoci,aRis
    Dim aTitTab1,KK
    Dim Form,FormStud,aArrayStudio
    If ImpostaParametri(nClasse,nSorte,Form,FormStud,aStudio,nRuote,aRu) = False Then
        MsgBox" I Parametri inseriri sono erratti",vbCritical
        Exit Sub
    End If
    'costruisco intestazione tabella
    aTitolo = Array("","ID","Comb","Freq","ScaFreq","Rit","RitSto","Scarto","IncRitMax")
    InitTabella aTitolo,RGB(223,224,243),,3,vbBlack
    'Data Inizio Archivio
    Ini = 3914
    Fin = EstrazioneFin
    nEstrazioni = ContaEstrazioni(Ini,Fin,aRu,nRuote)
    For k = LBound(aStudio) To UBound(aStudio)
        aStudio(k) = aStudio(k)
    Next
    For i = UBound(aRu) To 1 Step - 1
        sRuote = SiglaRuota(aRu(i)) & "." & sRuote
    Next
    sRuote = RimuoviLastChr(sRuote,".")
    'inizializza lo sviluppo
    cTeorico = Round(CicloTeorico(nClasse,nSorte,CInt(nRuote)),2)
    FreqTeor = Round(Dividi(nEstrazioni,cTeorico),2)
    nColonneTot = InitSviluppoIntegrale(aStudio,nClasse)
    k = 0
    'a=ContaEstrazioni(Ini,Fin,aRu,nRuote)
    Do While GetCombSviluppo(aStudio)
        k = k + 1 ' conteggio colonna corrente
        Messaggio "Elaborazione in corso id sviluppo: " & k
        AvanzamentoElab 1,nColonneTot,k
        If ScriptInterrotto Then Exit Do
        ' costruisco la stringa che contiene la colonna
        s = StringaNumeri(aStudio,,True)
        Call StatisticaFormazioneTurbo(aStudio,aRu,nSorte,ritardo,ritardomax,IncrRitMax,Frequenza,Ini,Fin)
        Freq = Frequenza
        RitA = ritardo
        RitS = ritardomax
        IncrRit = IncrRitMax
        ScaFreq = Round((Freq - FreqTeor),2)
        ReDim aRisultato(8)
        Call AlimentaArrayCombinazioni(aRisultato,k,s,Freq,ScaFreq,RitA,RitS,Scarto,IncrRit)
        Call AddRigaTabella(aRisultato,,,3,RGB(0,0,0))
        Call SetColoreCella(2,RGB(255,236,255),2)
    Loop
    Scrivi FormatSpace("script By I Legend per lottoCed's amici",10,- 1),1,,,1
    Scrivi
    Scrivi "           Tabella Statistica per formazioni registrate          " & " ",1,,RGB(253,245,189),,5
    Scrivi
    Scrivi "Formazione Ricerca :   " & ScriviArrayStudio(Form,FormStud),1,,,,3
    Scrivi "Ricerca per        :   " & ScriviEsito(nSorte),1,,,,3
    Scrivi "Ciclo Teorico      :   " & cTeorico,1,,,,3
    Scrivi "Freq Teorica       :   " & FreqTeor,1,,,,3
    Scrivi "Ruote di ricerca   :   " & sRuote,1,,,,3
    Scrivi "Num Estrazioni     :   " & nEstrazioni,1,,,,3
    Scrivi
    Call CreaTabellaOrdinabile
End Sub
Sub AlimentaArrayCombinazioni(aRisultato,k,s,freq,Scafreq,RitA,RitS,Scarto,IncrRit)
    aRisultato(1) = k
    aRisultato(2) = s
    aRisultato(3) = freq
    aRisultato(4) = Scafreq
    aRisultato(5) = RitA
    aRisultato(6) = RitS
    aRisultato(7) = RitS - RitA
    aRisultato(8) = IncrRit
End Sub
Function ImpostaParametri(nClasse,nSorte,Form,FormStud,aStudio,nRuote,aRu)
    Dim bRet,i
    nClasse = ScegliClasse ' sviluppo in ambi
    If nClasse > 0 Then
        nSorte = SelEsito
        If nSorte > 0 Then
            Do While nClasse < nSorte
                MsgBox "hai inserito Un Valore errato riscrivi ": nSorte = CInt(SelEsito)
                If nSorte = - 1 Then Exit Do
            Loop
            Form = GetFormazione
            If Form > 0 Then
                FormStud = GetFormazioneStudio(Form)
                If FormStud >= 0 Then
                    Call GetArrayStudio(Form,FormStud,aStudio)
                    If IsArray(aStudio) Then
                        nRuote = ScegliRuote(aRu)
                        For i = 1 To UBound(aRu)
                            Do While aRu(i) > 10
                                If aRu(i) > 10 Then
                                    MsgBox"Non Puoi Inserire La Voce Tutte o Nazionale ai Fini Statistici"
                                    nRuote = ScegliRuote(aRu)
                                Else
                                    Exit Do
                                End If
                            Loop
                        Next
                        If IsArray(aRu) Then
                            bRet = True
                        End If
                    End If
                End If
            End If
        End If
    End If
    ImpostaParametri = bRet
End Function
Function ScegliClasse
    Dim aVoci,bRet
    aVoci = Array("","Estratti","Ambi","Terzina","Quartina","Cinquina","Sestina",_
    "Settina","Ottina","Novina","Decina")
    bRet = ScegliOpzioneMenu(aVoci,1,"Seleziona Classe di Sviluppo")
    ScegliClasse = bRet
End Function
Function SelEsito
    Dim bRet
    Dim aVoci
    ' gli array partono sempre da 0
    aVoci = Array("","Estratto","Ambo","Terno","Quaterna","Cinquina")
    bRet = ScegliOpzioneMenu(aVoci,1," Analesi per Sorte di : ")
    SelEsito = bRet
End Function
Function ScriviEsito(Ind)
    Dim bRet,i
    Dim aVoci
    ' gli array partono sempre da 0
    aVoci = Array("","Estratto","Ambo","Terno","Quaterna","Cinquina")
    For i = 1 To UBound(aVoci)
        aVoci(i) = aVoci(i)
    Next
    ScriviEsito = aVoci(Ind)
End Function
Function ContaEstrazioni(Ini,Fin,aRU(),nRuote)
    Dim Conta,es,i
    For es = Ini To Fin
        For i = 1 To UBound(aRU)
            If SommaEstratti(es,aRU(i)) >= 15 Then Conta = Conta + 1
        Next
    Next
    ContaEstrazioni = Round(Dividi(Conta,nRuote),0)
End Function
Function GetFormazione
    Dim aVoci,bRet
    aVoci = Array("","Decina Naturale","Decina Cabalistica","Figura","ControFigura","Cadenza")
    bRet = ScegliOpzioneMenu(aVoci,1,"SelezionaFormazione")
    GetFormazione = bRet
End Function
Function GetFormazioneStudio(IndForm)
    ReDim aNum(9)
    Dim K,m
    Dim bRet
    For K = LBound(aNum) To UBound(aNum) - 1
        If IndForm = 1 Then aNum(K) = "DecinaNaturale." & K
    Next
    For K = 1 To UBound(aNum)
        If IndForm = 2 Then
            aNum(K) = "DecinaCabalistica." & K
        ElseIf IndForm = 3 Then
            aNum(K) = "Figura." & K
        ElseIf IndForm = 4 Then
            aNum(K) = "ControFigura." & K
        End If
    Next
    For K = LBound(aNum) To UBound(aNum)
        If IndForm = 5 Then aNum(K) = "Cadenza." & K
    Next
    bRet = ScegliOpzioneMenu(aNum,1,"SelezionaInformazione")
    GetFormazioneStudio = bRet
End Function
Function GetArrayStudio(IndFor,IndStudio,aArray)
    Dim k,m
    Dim aNumeri(90)
    m = 1
    For k = 1 To 90
        If IndFor = 1 And DecinaNaturale(k) = IndStudio Then
            m = m + 1
            ReDim Preserve aArray(m)
            aArray(m) = k
        ElseIf IndFor = 2 And DecinaCabalistica(k) = IndStudio Then
            m = m + 1
            ReDim Preserve aArray(m)
            aArray(m) = k
        ElseIf IndFor = 3 And Figura(k) = IndStudio Then
            m = m + 1
            ReDim Preserve aArray(m)
            aArray(m) = k
        ElseIf IndFor = 4 And ControFigura(k) = IndStudio Then
            m = m + 1
            ReDim Preserve aArray(m)
            aArray(m) = k
        ElseIf IndFor = 5 And Cadenza(k) = IndStudio Then
            m = m + 1
            ReDim Preserve aArray(m)
            aArray(m) = k
        End If
    Next
End Function
Function ScriviArrayStudio(IndFor,IndStudio)
    Dim bRet
    If IndFor = 1 Then
        bRet = "Decina Naturale: " & IndStudio
    ElseIf IndFor = 2 Then
        bRet = "Decina Cabalistica: " & IndStudio
    ElseIf IndFor = 3 Then
        bRet = "Figura: " & IndStudio
    ElseIf IndFor = 4 Then
        bRet = "Controfigura: " & IndStudio
    ElseIf IndFor = 5 Then
        bRet = "Cadenza: " & IndStudio
    End If
    ScriviArrayStudio = bRet
End Function

rudivall · 14 Marzo 2015

Bellissimo e utilissimo Bravissimo Legend

genios · 14 Marzo 2015

Mi da ste errore

i legend · 14 Marzo 2015

Ciao Genios Se ho letto bene, non trova la variabile sRuote
Ma nello script è compilata.
Prova a ricopiare l'originale e rincollare.
Per rudival Grazie

Per favore se avete altri software provate a controllare se i risultati in output sono corretti

Ciao a tutti

i legend · 14 Marzo 2015

Ciao a tutti o riscontrato dei valori diversi , con quelli postati da un altro utente, credo che sia presente un bugs, vado alla ricerca e posto il nuovo
script: Ciao

i legend · 14 Marzo 2015

Ciao a tutti o riscontrato dei valori diversi , con quelli postati da un altro utente, credo che sia presente un bugs, vado alla ricerca e posto il nuovo
script: Ciao

a me risulta
05.12.2013 MI 20.25.43.35.45

Come posso verificare se il mio archivio non è corrotto?
Grazie
Ritardo ambo in sestina 41.42.43.44.45.46 = 149
altre fonti risulta = 198
Help

Risolto problema mio nel range estrazioni

rudivall · 14 Marzo 2015

ciao Legend a me da cosi

i legend · 14 Marzo 2015

Ciao Rodolfo grazie mille, avevo impostato male il mio archivio; Sembra tutto corretto..
La sestina di cui sopra ,è stata messa in rilievo da Elcicerella,ed i suoi dati erano corretti come sempre

Senza il vostro aiuto e confronto potrei commettere molti errori e non rendermene conto. Grazie mille a tutti

P.S-Sopra c'è lo script di mike sui numeri al ritardo richiesto.
joe ha corretto il bug che avevo creato io

E' molto utile a mio avviso ....

genios · 14 Marzo 2015

Sapete dirmi che cosa fa lo script ?

Ciao Eugenio

i legend · 14 Marzo 2015

Ciao genios lo script di mike calcola la quantita teorica dei numeri in tabellone ad un determinato ritardo, per trovare i surplus
.Lo script fatto da me fa quello che hai richiesto a joe, ma in output non restituisce il ritardo su ogni singola ruota...ma come da immagine di rodolfo.Sarebbe bene lavorarci in contemporanea.in pratica sviluppa decina nat e cab, figura , controfigura, cadenza. ciao

i legend · 14 Marzo 2015

Ciao ecco immagine output:

Ciao a tutti

genios · 14 Marzo 2015

Si potrebbero aggiungere altri quattro parametri a questo stupendo script?

1° parametro ritardo di 1° livello cioe' il ritardo attuale + l' ultimo ritardo
2° parametro quantità di sortite in 10 cicli cioè 270 estrazioni per le sestine . Da configurare poi per altre combinazion
3° parametro la somma del ritardo di ognuno dei 15 ambi che formano la sestina. Scomponendo le sestine in 15 ambi . La somma dei ritardi di ciascun ambo darà il ritardo totale dei quindici ambi . Da configurare poi per altre combinazioni
4° parametro il ritardo medio della somma dei ritardi di ciascun ambo cioe' somma dei ritardi / 15 . Sempre per le sestine da configurare poi per altre combinazioni.

Ciao Eugenio

i legend · 14 Marzo 2015

Ciao genios il punto e 4 forse ho capito , controlla e dammi i riscontri per favore

gli altri 2 punti mi puoi spiegare meglio, che ci provo?
ecco il codice

Codice:

Option Explicit
Sub Main
    'Controllare eventuali Bugs:)
    ' lo script non esegue la ricerca su tutte e Nazionale
    ' SE ci dovessero essere bugs segnalateli vediamo di risolverli se possibile
    Dim k,s,i,nRuote,j,StrArray
    Dim nClasse,nColonneTot
    ReDim aNumeri(90)
    ReDim aStudio(9)
    ReDim aRu(12)
    ReDim aCol(0)
    Dim Dec,nSorte,sRuote
    Dim ritardo,ritardomax,IncrRitMax,Frequenza,Ini,Fin
    Dim aTitolo,Freq,RitA,RitS,Scarto,IncrRit
    Dim cTeorico,nEstrazioni,FreqTeor,ScaFreq
    Dim a,aVoci,aRis
    Dim aTitTab1,KK
    Dim Form,FormStud,aArrayStudio
    Dim aRetRitardi,aRetIdEstr,RitMedio
    Dim aRit1,iRit1,n1,conta1
    If ImpostaParametri(nClasse,nSorte,Form,FormStud,aStudio,nRuote,aRu) = False Then
        MsgBox" I Parametri inseriri sono erratti",vbCritical
        Exit Sub
    End If
    'costruisco intestazione tabella
    aTitolo = Array("","ID","Comb","Freq","ScaFreq","Rit","RitSto","RitMedio","Rit1L","Scarto","IncRitMax")
    InitTabella aTitolo,RGB(223,224,243),,3,vbBlack
    'Data Inizio Archivio
    Ini = 3914
    Fin = EstrazioneFin
    nEstrazioni = ContaEstrazioni(Ini,Fin,aRu,nRuote)
    For k = LBound(aStudio) To UBound(aStudio)
        aStudio(k) = aStudio(k)
        StrArray = StringaNumeri(aStudio,,True)
    Next
    For i = UBound(aRu) To 1 Step - 1
        sRuote = SiglaRuota(aRu(i)) & "." & sRuote
    Next
    sRuote = RimuoviLastChr(sRuote,".")
    'inizializza lo sviluppo
    cTeorico = Round(CicloTeorico(nClasse,nSorte,CInt(nRuote)),2)
    FreqTeor = Round(Dividi(nEstrazioni,cTeorico),2)
    nColonneTot = InitSviluppoIntegrale(aStudio,nClasse)
    k = 0
    'a=ContaEstrazioni(Ini,Fin,aRu,nRuote)
    Do While GetCombSviluppo(aStudio)
        k = k + 1 ' conteggio colonna corrente
        Messaggio "Elaborazione in corso id sviluppo: " & k
        AvanzamentoElab 1,nColonneTot,k
        If ScriptInterrotto Then Exit Do
        ' costruisco la stringa che contiene la colonna
        s = StringaNumeri(aStudio,,True)
        Call StatisticaFormazioneTurbo(aStudio,aRu,nSorte,ritardo,ritardomax,IncrRitMax,Frequenza,Ini,Fin)
        Freq = Frequenza
        RitA = ritardo
        RitS = ritardomax
        IncrRit = IncrRitMax
        ScaFreq = Round((Freq - FreqTeor),2)
        Call ElencoRitardiTurbo(aStudio,aRu,nSorte,Ini,Fin,aRetRitardi,aRetIdEstr)
        RitMedio = RitardoMedio(aRetRitardi)
        iRit1 = ""
        conta1 = 0
        For n1 = UBound(aRetRitardi) - 1 To LBound(aRetRitardi) Step - 1
            conta1 = conta1 + 1
            If conta1 <= 1 Then
                iRit1 = FormattaStringa(aRetRitardi(n1),"000")
            Else
                Exit For
            End If
        Next
        ReDim aRisultato(10)
        Call AlimentaArrayCombinazioni(aRisultato,k,s,Freq,ScaFreq,RitA,RitS,RitMedio,iRit1,Scarto,IncrRit)
        Call AddRigaTabella(aRisultato,,,3,RGB(0,0,0))
        Call SetColoreCella(2,RGB(255,236,255),2)
    Loop
    Scrivi FormatSpace("script By I Legend per lottoCed's amici",10,- 1),1,,,1
    Scrivi
    Scrivi "           Tabella Statistica per formazioni registrate          " & " ",1,,RGB(253,245,189),,5
    Scrivi
    Scrivi "Formazione Ricerca :   " & ScriviArrayStudio(Form,FormStud),1,,,,3
    Scrivi "Array Ricerca      :   " & "{" & StrArray & " }",1,,,,3
    Scrivi "Sviluppo in        :   " & ScriviClasse(nClasse),1,,,,3
    Scrivi "Ricerca per        :   " & ScriviEsito(nSorte),1,,,,3
    Scrivi "Ciclo Teorico      :   " & cTeorico,1,,,,3
    Scrivi "Freq Teorica       :   " & FreqTeor,1,,,,3
    Scrivi "Ruote di ricerca   :   " & sRuote,1,,,,3
    Scrivi "Num Estrazioni     :   " & nEstrazioni,1,,,,3
    Scrivi
    Call CreaTabellaOrdinabile
End Sub
Sub AlimentaArrayCombinazioni(aRisultato,k,s,freq,Scafreq,RitA,RitS,RitMedio,iRit1,Scarto,IncrRit)
    aRisultato(1) = k
    aRisultato(2) = s
    aRisultato(3) = freq
    aRisultato(4) = Scafreq
    aRisultato(5) = RitA
    aRisultato(6) = RitS
    aRisultato(7) = RitMedio
    aRisultato(8) = iRit1
    aRisultato(9) = RitS - RitA
    aRisultato(10) = IncrRit
End Sub
Function ImpostaParametri(nClasse,nSorte,Form,FormStud,aStudio,nRuote,aRu)
    Dim bRet,i
    nClasse = ScegliClasse ' sviluppo in ambi
    If nClasse > 0 Then
        nSorte = SelEsito
        If nSorte > 0 Then
            Do While nClasse < nSorte
                MsgBox "hai inserito Un Valore errato riscrivi ": nSorte = CInt(SelEsito)
                If nSorte = - 1 Then Exit Do
            Loop
            Form = GetFormazione
            If Form > 0 Then
                FormStud = GetFormazioneStudio(Form)
                If FormStud >= 0 Then
                    Call GetArrayStudio(Form,FormStud,aStudio)
                    If IsArray(aStudio) Then
                        nRuote = ScegliRuote(aRu)
                        For i = 1 To UBound(aRu)
                            Do While aRu(i) > 10
                                If aRu(i) > 10 Then
                                    MsgBox"Non Puoi Inserire La Voce Tutte o Nazionale ai Fini Statistici"
                                    nRuote = ScegliRuote(aRu)
                                Else
                                    Exit Do
                                End If
                            Loop
                        Next
                        If IsArray(aRu) Then
                            bRet = True
                        End If
                    End If
                End If
            End If
        End If
    End If
    ImpostaParametri = bRet
End Function
Function ScegliClasse
    Dim aVoci,bRet
    aVoci = Array("","Estratti","Ambi","Terzina","Quartina","Cinquina","Sestina",_
    "Settina","Ottina","Novina","Decina")
    bRet = ScegliOpzioneMenu(aVoci,1,"Seleziona Classe di Sviluppo")
    ScegliClasse = bRet
End Function
Function ScriviClasse(sceCla)
    Dim aVoci,bRet
    aVoci = Array("","Estratti","Ambi","Terzina","Quartina","Cinquina","Sestina",_
    "Settina","Ottina","Novina","Decina")
    For bRet = 1 To UBound(aVoci)
        aVoci(bRet) = aVoci(bRet)
    Next
    ScriviClasse = aVoci(sceCla)
End Function
Function SelEsito
    Dim bRet
    Dim aVoci
    ' gli array partono sempre da 0
    aVoci = Array("","Estratto","Ambo","Terno","Quaterna","Cinquina")
    bRet = ScegliOpzioneMenu(aVoci,1," Analesi per Sorte di : ")
    SelEsito = bRet
End Function
Function ScriviEsito(Ind)
    Dim bRet,i
    Dim aVoci
    ' gli array partono sempre da 0
    aVoci = Array("","Estratto","Ambo","Terno","Quaterna","Cinquina")
    For i = 1 To UBound(aVoci)
        aVoci(i) = aVoci(i)
    Next
    ScriviEsito = aVoci(Ind)
End Function
Function ContaEstrazioni(Ini,Fin,aRU(),nRuote)
    Dim Conta,es,i
    For es = Ini To Fin
        For i = 1 To UBound(aRU)
            If SommaEstratti(es,aRU(i)) >= 15 Then Conta = Conta + 1
        Next
    Next
    ContaEstrazioni = Round(Dividi(Conta,nRuote),0)
End Function
Function GetFormazione
    Dim aVoci,bRet
    aVoci = Array("","Decina Naturale","Decina Cabalistica","Figura","ControFigura","Cadenza")
    bRet = ScegliOpzioneMenu(aVoci,1,"SelezionaFormazione")
    GetFormazione = bRet
End Function
Function GetFormazioneStudio(IndForm)
    ReDim aNum(9)
    Dim K,m
    Dim bRet
    For K = LBound(aNum) To UBound(aNum) - 1
        If IndForm = 1 Then aNum(K) = "DecinaNaturale." & K
    Next
    For K = 1 To UBound(aNum)
        If IndForm = 2 Then
            aNum(K) = "DecinaCabalistica." & K
        ElseIf IndForm = 3 Then
            aNum(K) = "Figura." & K
        ElseIf IndForm = 4 Then
            aNum(K) = "ControFigura." & K
        End If
    Next
    For K = LBound(aNum) To UBound(aNum)
        If IndForm = 5 Then aNum(K) = "Cadenza." & K
    Next
    bRet = ScegliOpzioneMenu(aNum,1,"SelezionaInformazione")
    GetFormazioneStudio = bRet
End Function
Function GetArrayStudio(IndFor,IndStudio,aArray)
    Dim k,m
    Dim aNumeri(90)
    m = 1
    For k = 1 To 90
        If IndFor = 1 And DecinaNaturale(k) = IndStudio Then
            m = m + 1
            ReDim Preserve aArray(m)
            aArray(m) = k
        ElseIf IndFor = 2 And DecinaCabalistica(k) = IndStudio Then
            m = m + 1
            ReDim Preserve aArray(m)
            aArray(m) = k
        ElseIf IndFor = 3 And Figura(k) = IndStudio Then
            m = m + 1
            ReDim Preserve aArray(m)
            aArray(m) = k
        ElseIf IndFor = 4 And ControFigura(k) = IndStudio Then
            m = m + 1
            ReDim Preserve aArray(m)
            aArray(m) = k
        ElseIf IndFor = 5 And Cadenza(k) = IndStudio Then
            m = m + 1
            ReDim Preserve aArray(m)
            aArray(m) = k
        End If
    Next
End Function
Function ScriviArrayStudio(IndFor,IndStudio)
    Dim bRet
    If IndFor = 1 Then
        bRet = "Decina Naturale: " & IndStudio
    ElseIf IndFor = 2 Then
        bRet = "Decina Cabalistica: " & IndStudio
    ElseIf IndFor = 3 Then
        bRet = "Figura: " & IndStudio
    ElseIf IndFor = 4 Then
        bRet = "Controfigura: " & IndStudio
    ElseIf IndFor = 5 Then
        bRet = "Cadenza: " & IndStudio
    End If
    ScriviArrayStudio = bRet
End Function
Function RitardoMedio(aRitardi())
    Dim k
    Dim nElementi
    Dim nMedia
    For k = 1 To UBound(aRitardi) - 1
        nElementi = nElementi + 1
        nMedia = nMedia + aRitardi(k)
    Next
    nMedia = Round(Dividi(nMedia,nElementi),2)
    RitardoMedio = nMedia
End Function

notte a tutti

genios · 15 Marzo 2015

1° Parametro sarebbe il seguente : prendiamo ad esempio la prima sestina della decina naturale 4 della schermata del post #53 di rudivall 41 42 44 45 48 49 ritardo attuale per la sorte dell ambo 199 estrazioni sulla ruota di MI . Occorre sommare al ritardo attuale di 199 estrazioni il ritardo precedente della stessa sestina . Esempio se il ritardo precedente fosse stato di 100 estrazioni il ritardo di 1° livello sarebbe 199+100=299

2° Parametro Sapendo che il ciclo di un ambo in sestina è di 27 estrazioni ( 405 :15 = 27) quindi 10 cicli equivalgono a 270 estrazioni trovare quindi quante volte è uscito l' ambo nella sestina considerata nelle ultime 270 estrazioni .

3° Parametro con sei numeri si formano 15 ambi .considerando sempre la stessa sestina di cui sopra 41 42 44 45 48 49 gli ambi che si formano sono :

41 42
41 44
41 45
41 48
41 49
42 44
42 45
42 48
42 49
44 45
44 48
44 49
45 48
45 49
48 49

occorre trovare il ritardo attuale di ciascun ambo della sestina e sommarli in modo di avere il ritardo globale degli ambi .

4° Parametro trovato il ritardo globale dei 15 ambi dividerlo per 15 e avremmo il ritardo medio dei 15 ambi della sestina .

Ciao EUGENIO

combinazioni quartine in decina naturale

Premium Member

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Premium Member

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Premium Member

Premium Member

Premium Member

Advanced Member >PLATINUM<

Allegati

Premium Member

Advanced Member >PLATINUM<

Premium Member

Premium Member

Advanced Member >PLATINUM<

Premium Member

Advanced Member >PLATINUM<