x mike58

Zetrix · 13 Giugno 2022

mike se uno vorrebbe aggiungere l'indice di convenienza nella tabella come si deve fare..
allego lo script..

Codice:

Class Script
    Sub Main
        Dim k As Integer
        Dim s ,T() As String
        Dim nClasse,nColonneTot,aNumeri() As Integer
        ReDim aNumeri(90)
        Dim aCol(),Ruote(1) ,r ,sorte  As Integer
        Dim ini As Integer = 1
        Dim fin As Integer = EstrazioniArchivio
        Dim rit,max,incr,fre,pre ,ubNum As Integer
        nClasse = 2 ' sviluppo in classe
        sorte = 2 ' sorte di verifica statistica
        ScegliNumeri(aNumeri)
        ubNum = UBound(aNumeri)
        'ScegliRuote(Ruote )
        Scrivi (StringaNumeri(aNumeri) &  " ( " & ubNum & " )" & "   Sviluppo In classe : " & nClasse  & " Su Ruote separate " )
        T = {" Ruota " ," Ambo " , " Frequenze "," RitardoAttuale "}
        'Call InitTabella(T)
        Call InitTabella(T,RGB(73,180,47),,,RGB(200,200,250),,"Dubai Light")
        'inizializza lo sviluppo
        For r = 1 To 11
            Ruote(1) = r
            nColonneTot = InitSviluppoIntegrale(aNumeri,nClasse)
            k = 0
            ReDim aCol(nClasse )
            ' ciclo che continua fino a quando le colonne non finiscono
            Do While GetCombSviluppo  (aCol )
                k = k + 1 ' conteggio colonna corrente
                ' costruisco la stringa che contiene la colonna
                SerieStat (aCol,Ruote,sorte ,rit,max,fre,pre,incr,ini,fin)
                s = StringaNumeri(aCol)
                T = {NomeRuota(r),s,fre,rit}
                'Call AddRigaTabella(T)
                Call AddRigaTabella(T,RGB(0,0,128),,,RGB(200,200,250),,"Dubai Light")
                'Call Scrivi(s & vbTab & fre)
                'Call Messaggio("Colonna " & k)
                If ScriptInterrotto Then Exit Do
            Loop
            Call SetColoreCellaRighe(0,RGB(0,128,128),RGB(200,200,250))
            Call SetColoreCellaRighe(1,RGB(0,128,128),RGB(200,200,250))
            Call SetColoreCellaRighe(2,RGB(0,128,128),RGB(200,200,250))
            Call SetColoreCellaRighe(3,RGB(0,128,128),RGB(200,200,250))
            Call SetColoreCellaRighe(4,RGB(0,128,128),RGB(200,200,250))
            Call SetColoreCellaRighe(5,RGB(253,233,16),RGB(0,0,255))
            Call SetColoreCellaRighe(6,RGB(0,128,128),RGB(200,200,250))
            Call SetColoreCellaRighe(7,RGB(0,128,128),RGB(200,200,250))
            Call SetColoreCellaRighe(8,RGB(0,0,128),RGB(200,200,250))
            Call SetColoreCellaRighe(9,RGB(253,233,16),RGB(0,0,255))
            Call SetColoreCellaRighe(10,RGB(0,0,128),RGB(200,200,250))
            If rit  < 10 Then Call SetColoreCellaRighe (3,RGB(73,180,47),RGB(200,200,250))
            If rit  > 999 Then Call SetColoreCellaRighe (3,RGB(249,80,47),RGB(200,200,250))
        Next
        CreaTabella
    End Sub
End Class

toon · 13 Giugno 2022

Questo è un precedente lavoro di Mike58...Vedi se è OK..

Codice:

Sub Main()
Dim num(10),numero(10),ruota(1),sorte

est = InputBox("Quante estrazioni analizzi",,1000)
sorte = CInt(InputBox("Quale sorte verificare ",,1))

ScegliNumeri(num)
nStart = Timer ' partenza tempo di elaborazione
Ini = EstrazioneFin - est
fin = EstrazioneFin
diff = fin - Ini + 1
Scrivi"Statistica Veloce su combinazione di Numeri scelti" & " ",True,False,6,0,3
Scrivi" " & StringaNumeri(num) & " ",True,False,2,4,3
Scrivi" Per sorte..." & " " & NomeSorte(sorte) & " ",True,True,3,0,3
Scrivi String(130,"=")
Scrivi " Dalla data..." & DataEstrazione(Ini) & " alla data..." & DataEstrazione(fin) & " - Estrazioni Totali " & DIFF,1
Scrivi String(130,"=")
Scrivi
'--------- crea tabella---------------
ReDim atitoli(15)
atitoli(1) = " Ruota "
'atitoli(2) = " Combinazione "
atitoli(3) = " RD1 "
atitoli(4) = " RD2 "
atitoli(5) = " RD3 "
atitoli(6) = " RD4 "
atitoli(7) = " RD5 "
atitoli(8) = " Ritardo attuale "
atitoli(9) = " Ritardo Storico "
atitoli(10) = " incr. storico "
atitoli(11) = " Frequenza "
atitoli(12) = " - esito - "
atitoli(13) = " - stringa Esito - "
atitoli(14) = " data estraz.uscita "
atitoli(15) = " Indice Convenienza "
' inizializzo la tabella
Call InitTabella(atitoli,1,,3,5)
For r = 1 To 12
'If r = 11 Then r = 12
ruota(1) = r
Call AvanzamentoElab(Ini,fin,n)
If ScriptInterrotto Then Exit For
Call StatisticaFormazione(num,ruota,sorte,rit,ritmax,incrRitMax,freq,Ini,fine)
Call VerificaEsito(num,ruota,fin - rit,sorte,1,,retesito,retcolpi,retestratti,retidestr)
ic = Round((freq/diff*rit),2)
'----- calcolo valori in tabella --------------
ReDim avalori(15)
avalori(1) = NomeRuota(r)
avalori(3) = RitDiPos(num,1,ruota)
avalori(4) = RitDiPos(num,2,ruota)
avalori(5) = RitDiPos(num,3,ruota)
avalori(6) = RitDiPos(num,4,ruota)
avalori(7) = RitDiPos(num,5,ruota)
avalori(8) = rit
avalori(9) = ritmax
avalori(10) = incrRitMax
avalori(11) = freq
avalori(12) = retesito
avalori(13) = retestratti
If retesito <> "" Then avalori(14) = DataEstrazione(retidestr)
If retesito = "" Then avalori(14) = " -- "
avalori(15) = ic
Call AddRigaTabella(avalori,,,3,,"cambria")
If r = 11 Then Call SetColoreCella(11,3,1)
If retidestr = fin Then Call SetColoreCella(14,3,1)
If ic > 1 Then Call SetColoreCella(15,4,2)
Next
Call SetTableWidth("100%")
Call CreaTabella()
Scrivi " Script By Mike58 ",1,- 1,6
nend = Timer
Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart))
End Sub
Function RitDiPos(num,pos,ruota)
ReDim apos(5)
ReDim aruota(1)
ReDim anum(1)
anum(1) = num
apos(pos) = True
aruota(1) = ruota
RitDiPos = RitardoCombinazione(ruota,num,1,0,apos)
End Function
Function FormattaSecondi(s)
'Questa Function trasforma il numero di secondi passato come parametro in una stringa
' passando i secondi si ottengono ore minuti e secondi in formato hh:mm:ss
' s ---> Numero di secondi da formattare
' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
Dim hh
Dim Mm
Dim Ss
Dim TimeStr
hh = s \ 3600
Mm =(s Mod 3600) \ 60
Ss = s -((hh * 3600) +(Mm * 60))
TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
FormattaSecondi = TimeStr
End Function

Mike58 · 13 Giugno 2022

Ciao Zetrix, nel listato postato da toon c'è il calcolo arrotondato
ic = Round((freq/diff*rit),2)
in sostanza l'equazione è la frequenza / totali estrazioni * ritardo in vbscript
mentre nel vbnet c'e già il codice che necessita dei suoi parametri

CalcolaIC

Function CalcolaIC(Presenze As Integer, Ritardo As Integer, EstrEsam As Integer) As Decimal

Calcola l'indice di convenienza

Presenze	Valore presenze
Ritardo	Valore ritardo
EstrEsam	Valore estrazioni esaminate

avendo nel tuo listato i parametri necessari è facile ricavarlo.
IC = calcolaIc(fre,rit,fin)
Ciao

Se hai bisogno siamo qua !!!

Zetrix · 13 Giugno 2022

ciao mike ciao toon ..

ho visto il codice nello script e mi dava errore ho scritto un altro codice
e mi da questa tabella però non scrive Ind.Cov. 0,14
allego lo script

Codice:

Class Script
    Sub Main
        Dim k As Integer
        Dim s ,T() As String
        Dim nClasse,nColonneTot,aNumeri() As Integer
        ReDim aNumeri(90)
        Dim aCol(),Ruote(1) ,r ,sorte,ic  As Integer
        Dim ini As Integer = 1
        Dim fin As Integer = EstrazioniArchivio
        Dim rit,max,incr,fre,pre ,ubNum As Integer
        nClasse = 2 ' sviluppo in classe
        sorte = 2 ' sorte di verifica statistica
        ScegliNumeri(aNumeri)
        ubNum = UBound(aNumeri)
        'ScegliRuote(Ruote )
        Scrivi (StringaNumeri(aNumeri) &  " ( " & ubNum & " )" & "   Sviluppo In classe : " & nClasse  & " Su Ruote separate " )
        T = {" Ruota " ," Ambo " , " Frequenze "," Ritardo "," Ind.Con."}
        'Call InitTabella(T)
        Call InitTabella(T,RGB(73,180,47),,,RGB(200,200,250),,"Dubai Light")
        'inizializza lo sviluppo
        For r = 1 To 11
            Ruote(1) = r
            nColonneTot = InitSviluppoIntegrale(aNumeri,nClasse)
            k = 0
            ReDim aCol(nClasse )
            ' ciclo che continua fino a quando le colonne non finiscono
            Do While GetCombSviluppo  (aCol )
                k = k + 1 ' conteggio colonna corrente
                ' costruisco la stringa che contiene la colonna
                SerieStat (aCol,Ruote,sorte ,rit,max,fre,pre,incr,ini,fin)
                ic = (fre/EstrazioniArchivio*rit)
                s = StringaNumeri(aCol)
                T = {NomeRuota(r),s,fre,rit,ic}
                'Call AddRigaTabella(T)
                Call AddRigaTabella(T,RGB(0,0,128),,,RGB(200,200,250),,"Dubai Light")
                'Call Scrivi(s & vbTab & fre)
                'Call Messaggio("Colonna " & k)
                If ScriptInterrotto Then Exit Do
            Loop
            Call SetColoreCellaRighe(0,RGB(0,128,128),RGB(200,200,250))
            Call SetColoreCellaRighe(1,RGB(0,128,128),RGB(200,200,250))
            Call SetColoreCellaRighe(2,RGB(0,128,128),RGB(200,200,250))
            Call SetColoreCellaRighe(3,RGB(0,128,128),RGB(200,200,250))
            Call SetColoreCellaRighe(4,RGB(0,128,128),RGB(200,200,250))
            Call SetColoreCellaRighe(5,RGB(253,233,16),RGB(0,0,255))
            Call SetColoreCellaRighe(6,RGB(0,128,128),RGB(200,200,250))
            Call SetColoreCellaRighe(7,RGB(0,128,128),RGB(200,200,250))
            Call SetColoreCellaRighe(8,RGB(0,0,128),RGB(200,200,250))
            Call SetColoreCellaRighe(9,RGB(253,233,16),RGB(0,0,255))
            Call SetColoreCellaRighe(10,RGB(0,0,128),RGB(200,200,250))
            If rit  < 10 Then Call SetColoreCellaRighe (3,RGB(73,180,47),RGB(200,200,250))
            If rit  > 999 Then Call SetColoreCellaRighe (3,RGB(249,80,47),RGB(200,200,250))
        Next
        CreaTabella
    End Sub
End Class

il calcolo dovrebbe essere questo ic = (fre/EstrazioniArchivio*rit)

quindi mike dovrei scrivere IC = calcolaIc(fre,rit,fin)

Zetrix · 13 Giugno 2022

mike ho scritto il codice che ai detto IC = calcolaIc(fre,rit,fin)
ma la tabella sembra uguale all'altra anzi no ce qualche differenza
ma non dovrebbe essere la ruota di Fi la piu conveniente visto il suo rit
e soltanto 2 sortite nelle estr venus..
mike vorrei fare un altra domanda ma l'indice di convenienza e uguale all'indice di probabilità
di sortita oppure si deve fare un altro calcolo,perche l'indice di convenienza e un dato approssimativo
ma ci puo garantire la sortita dell'ambo in una determinata ruota ?

Mike58 · 13 Giugno 2022

ciao Zetrix , il codice " IC" intanto va dichiarato come decimal e non integer (intero) per avere la variabile con decimali.
poi io li scrivo cosi
ic = ( math.Round ( (fre / totEstraz * rit),2) )
oppure
ic = calcolaIc (fre,rit,totEstraz)

Ruota	Ambo	Frequenze	Ritardo	Ind.Con. 5
Mi	3.6	36	1553	5,54
Pa	1.2	23	2007	4,57
Na	8.90	28	1566	4,34
To	2.9	31	1386	4,26

I codici sia calcolati che gestito da codice stesso dovrebbero dare lo stesso risultato

Zetrix · 13 Giugno 2022

le ho unite le tabelle si ce una differenza a To E Mi

ok mike scriverò il nuovo codice che ai scritto nel listato..

Zetrix · 13 Giugno 2022

Codice:

Class Script
    Sub Main
        Dim k As Integer
        Dim s ,T() As String
        Dim nClasse,nColonneTot,aNumeri() As Integer
        ReDim aNumeri(90)
        Dim aCol(),Ruote(1) ,r ,sorte,ic  As Integer
        Dim ini As Integer = 1
        Dim fin As Integer = EstrazioniArchivio
        Dim rit,max,incr,fre,pre ,ubNum As Integer
        nClasse = 2 ' sviluppo in classe
        sorte = 2 ' sorte di verifica statistica
        ScegliNumeri(aNumeri)
        ubNum = UBound(aNumeri)
        'ScegliRuote(Ruote )
        Scrivi (StringaNumeri(aNumeri) &  " ( " & ubNum & " )" & "   Sviluppo In classe : " & nClasse  & " Su Ruote separate " )
        T = {" Ruota " ," Ambo " , " Frequenze "," Ritardo "," Ind.Con."}
        'Call InitTabella(T)
        Call InitTabella(T,RGB(73,180,47),,,RGB(200,200,250),,"Dubai Light")
        'inizializza lo sviluppo
        For r = 1 To 11
            Ruote(1) = r
            nColonneTot = InitSviluppoIntegrale(aNumeri,nClasse)
            k = 0
            ReDim aCol(nClasse )
            ' ciclo che continua fino a quando le colonne non finiscono
            Do While GetCombSviluppo  (aCol )
                k = k + 1 ' conteggio colonna corrente
                ' costruisco la stringa che contiene la colonna
                SerieStat (aCol,Ruote,sorte ,rit,max,fre,pre,incr,ini,fin)
                'ic = (fre/EstrazioniArchivio*rit)
                'ic = CalcolaIC(fre,rit,fin)
                ic = ( math.Round ( (fre / EstrazioniArchivio * rit),2) )
                s = StringaNumeri(aCol)
                T = {NomeRuota(r),s,fre,rit,ic}
                'Call AddRigaTabella(T)
                Call AddRigaTabella(T,RGB(0,0,128),,,RGB(200,200,250),,"Dubai Light")
                'Call Scrivi(s & vbTab & fre)
                'Call Messaggio("Colonna " & k)
                If ScriptInterrotto Then Exit Do
            Loop
            Call SetColoreCellaRighe(0,RGB(0,128,128),RGB(200,200,250))
            Call SetColoreCellaRighe(1,RGB(0,128,128),RGB(200,200,250))
            Call SetColoreCellaRighe(2,RGB(0,128,128),RGB(200,200,250))
            Call SetColoreCellaRighe(3,RGB(0,128,128),RGB(200,200,250))
            Call SetColoreCellaRighe(4,RGB(0,128,128),RGB(200,200,250))
            Call SetColoreCellaRighe(5,RGB(253,233,16),RGB(0,0,255))
            Call SetColoreCellaRighe(6,RGB(0,128,128),RGB(200,200,250))
            Call SetColoreCellaRighe(7,RGB(0,128,128),RGB(200,200,250))
            Call SetColoreCellaRighe(8,RGB(0,0,128),RGB(200,200,250))
            Call SetColoreCellaRighe(9,RGB(253,233,16),RGB(0,0,255))
            Call SetColoreCellaRighe(10,RGB(0,0,128),RGB(200,200,250))
            If rit  < 10 Then Call SetColoreCellaRighe (3,RGB(73,180,47),RGB(200,200,250))
            If rit  > 999 Then Call SetColoreCellaRighe (3,RGB(249,80,47),RGB(200,200,250))
        Next
        CreaTabella
    End Sub
End Class

mike quale riga si deve scrivere decimal
ho scritto ..Dim ic As Decimal ..ma da errore lo script

Zetrix · 13 Giugno 2022

scusa mike avevo sbagliato io perche non ho cancellato ic da As Integer
adesso la tabella e ok e scrive con i decimali
quindi l'indice di convenienza dice Na E Ro ...
ma forse non sono queste le ruote di gioco ..

Mike58 · 13 Giugno 2022

Invece no calcolano diversamente bho !!!
ecco lo script

Codice:

Class Script
    Sub Main
        Dim k As Integer
        Dim s ,T() As String
        Dim nClasse,nColonneTot,aNumeri() As Integer
        ReDim aNumeri(90)
        Dim aCol(),Ruote(1) ,r ,sorte  As Integer
Dim ic ,icc As Decimal
        Dim ini As Integer = 1
        Dim fin As Integer = EstrazioniArchivio
        Dim rit,max,incr,fre,pre ,ubNum,totEstraz As Integer
totEstraz = fin -ini + 1
        nClasse = 2 ' sviluppo in classe
        sorte = 2 ' sorte di verifica statistica
        ScegliNumeri(aNumeri)
        ubNum = UBound(aNumeri)
        'ScegliRuote(Ruote )
        Scrivi (StringaNumeri(aNumeri) &  " ( " & ubNum & " )" & "   Sviluppo In classe : " & nClasse  & " Su Ruote separate " )
        T = {" Ruota " ," Ambo " , " Frequenze "," Ritardo "," IC calcolato."," Ic da codice " }
        'Call InitTabella(T)
        Call InitTabella(T,RGB(73,180,47),,,RGB(200,200,250),,"Dubai Light")
        'inizializza lo sviluppo
        For r = 1 To 11
            Ruote(1) = r
            nColonneTot = InitSviluppoIntegrale(aNumeri,nClasse)
            k = 0
            ReDim aCol(nClasse )
            ' ciclo che continua fino a quando le colonne non finiscono
            Do While GetCombSviluppo  (aCol )
                k = k + 1 ' conteggio colonna corrente
                ' costruisco la stringa che contiene la colonna
                SerieStat (aCol,Ruote,sorte ,rit,max,fre,pre,incr,ini,fin)
                ic = (math.Round( (fre/totEstraz  *rit),2))
                icc = math.Round(CalcolaIC(pre,rit,totEstraz),2)
                s = StringaNumeri(aCol)
                T = {NomeRuota(r),s,fre,rit,ic,icc}
                'Call AddRigaTabella(T)
                Call AddRigaTabella(T,RGB(0,0,128),,,RGB(200,200,250),,"Dubai Light")
                'Call Scrivi(s & vbTab & fre)
                'Call Messaggio("Colonna " & k)
                If ScriptInterrotto Then Exit Do
            Loop
            Call SetColoreCellaRighe(0,RGB(0,128,128),RGB(200,200,250))
            Call SetColoreCellaRighe(1,RGB(0,128,128),RGB(200,200,250))
            Call SetColoreCellaRighe(2,RGB(0,128,128),RGB(200,200,250))
            Call SetColoreCellaRighe(3,RGB(0,128,128),RGB(200,200,250))
            Call SetColoreCellaRighe(4,RGB(0,128,128),RGB(200,200,250))
            Call SetColoreCellaRighe(5,RGB(253,233,16),RGB(0,0,255))
            Call SetColoreCellaRighe(6,RGB(0,128,128),RGB(200,200,250))
            Call SetColoreCellaRighe(7,RGB(0,128,128),RGB(200,200,250))
            Call SetColoreCellaRighe(8,RGB(0,0,128),RGB(200,200,250))
            Call SetColoreCellaRighe(9,RGB(253,233,16),RGB(0,0,255))
            Call SetColoreCellaRighe(10,RGB(0,0,128),RGB(200,200,250))
            If rit  < 10 Then Call SetColoreCellaRighe (3,RGB(73,180,47),RGB(200,200,250))
            If rit  > 999 Then Call SetColoreCellaRighe (3,RGB(249,80,47),RGB(200,200,250))
        Next
        CreaTabella
    End Sub
End Class

1.2.3.4.5.6.7.8.9.90 ( 10 ) Sviluppo In classe : 2 Su Ruote separate

Ruota	Ambo	Frequenze	Ritardo	IC calcolato. 5	Ic da codice
Mi	3.6	36	1553	5,54	6,21
Pa	1.2	23	2007	4,57	4,01
Na	8.90	28	1566	4,34	4,70
To	2.9	31	1386	4,26	4,16

Zetrix · 13 Giugno 2022

toon questo e lo script sistemato con l'indice di convenienza e scrive con i decimali
e dobbiamo dire grazie a mike58

ciao

Codice:

Class Script
    Sub Main
        Dim k As Integer
        Dim s ,T() As String
        Dim nClasse,nColonneTot,aNumeri() As Integer
        ReDim aNumeri(90)
        Dim aCol(),Ruote(1) ,r ,sorte  As Integer
        Dim ini As Integer = 1
        Dim fin As Integer = EstrazioniArchivio
        Dim rit,max,incr,fre,pre ,ubNum As Integer
        Dim ic As Decimal
        nClasse = 2 ' sviluppo in classe
        sorte = 2 ' sorte di verifica statistica
        ScegliNumeri(aNumeri)
        ubNum = UBound(aNumeri)
        'ScegliRuote(Ruote )
        Scrivi (StringaNumeri(aNumeri) &  " ( " & ubNum & " )" & "   Sviluppo In classe : " & nClasse  & " Su Ruote separate " )
        T = {" Ruota " ," Ambo " , " Frequenze "," Ritardo "," Ind.Con."}
        'Call InitTabella(T)
        Call InitTabella(T,RGB(73,180,47),,,RGB(200,200,250),,"Dubai Light")
        'inizializza lo sviluppo
        For r = 1 To 11
            Ruote(1) = r
            nColonneTot = InitSviluppoIntegrale(aNumeri,nClasse)
            k = 0
            ReDim aCol(nClasse )
            ' ciclo che continua fino a quando le colonne non finiscono
            Do While GetCombSviluppo  (aCol )
                k = k + 1 ' conteggio colonna corrente
                ' costruisco la stringa che contiene la colonna
                SerieStat (aCol,Ruote,sorte ,rit,max,fre,pre,incr,ini,fin)
                'ic = (fre/EstrazioniArchivio*rit)
                'ic = CalcolaIC(fre,rit,fin)
                ic = ( math.Round ( (fre / EstrazioniArchivio * rit),2) )
                s = StringaNumeri(aCol)
                T = {NomeRuota(r),s,fre,rit,ic}
                'Call AddRigaTabella(T)
                Call AddRigaTabella(T,RGB(0,0,128),,,RGB(200,200,250),,"Dubai Light")
                'Call Scrivi(s & vbTab & fre)
                'Call Messaggio("Colonna " & k)
                If ScriptInterrotto Then Exit Do
            Loop
            Call SetColoreCellaRighe(0,RGB(0,128,128),RGB(200,200,250))
            Call SetColoreCellaRighe(1,RGB(0,128,128),RGB(200,200,250))
            Call SetColoreCellaRighe(2,RGB(0,128,128),RGB(200,200,250))
            Call SetColoreCellaRighe(3,RGB(0,128,128),RGB(200,200,250))
            Call SetColoreCellaRighe(4,RGB(0,128,128),RGB(200,200,250))
            Call SetColoreCellaRighe(5,RGB(253,233,16),RGB(0,0,255))
            Call SetColoreCellaRighe(6,RGB(0,128,128),RGB(200,200,250))
            Call SetColoreCellaRighe(7,RGB(0,128,128),RGB(200,200,250))
            Call SetColoreCellaRighe(8,RGB(0,0,128),RGB(200,200,250))
            Call SetColoreCellaRighe(9,RGB(253,233,16),RGB(0,0,255))
            Call SetColoreCellaRighe(10,RGB(0,0,128),RGB(200,200,250))
            If rit  < 10 Then Call SetColoreCellaRighe (3,RGB(73,180,47),RGB(200,200,250))
            If rit  > 999 Then Call SetColoreCellaRighe (3,RGB(249,80,47),RGB(200,200,250))
        Next
        CreaTabella
    End Sub
End Class

Zetrix · 13 Giugno 2022

mike ai scritto un altro codice per l'indice di convenienza..

Mike58 · 13 Giugno 2022

No Zetrix, presenza - frequenza essendo ambi hanno lo stesso risultato e resta chiaro che con un range 1 to estrazionefine il totale estrazioni è = a estrazionearchivio, ma se cambia il range è inteso che va calcolato
fin - ini + 1.

Non saprei neanche il perchè o quale dei 2 calcoli sia corretto è comunque un indice ed una valenza non significativa (mio parere).

Ciao a tutti.

Zetrix · 13 Giugno 2022

esatto mike anche per me l'indice di convenienza non a una valenza significativa
sono dati relativi ma non da nessuna affidabilità per la sortita dell'estratto
oppure dell'ambo..
ci vuole fortuna come in tutti i giochi..

Zetrix · 13 Giugno 2022

se vediamo la tabella per l'estratto 16 le ruote con l'indice piu conveniente
sono Ge e Rm ma sono dati relativi in rapporto frequenza e ritardo
uno studio che si potrebbe fare e calcolare il rapporto di tutte le estr in archivio
delle venus con le frequenze
scriviamo un esempio le estr in archivio sono 1977 estr
un estratto deve garantire la sortita ogni 18 estr
allora scriviamo 1977/18=109 frequenze
se vediamo la tabella delle frequenze si nota che Pa e Ve hanno 99 e 96 frequenze
e sono queste le ruote che dovrebbero essere le piu conveniente..
ma forse sono anch'esse dei dati relativi ..
perche poi si dovrebbe considerare anche il ritardo dell'estratto..

Zetrix · 13 Giugno 2022

se vediamo questa tabella per l'estratto 15 la piu conveniente e Ca con l'indice 7.1
ma questi dati non sono affidabili perche sono dati relativi al rapporto frequenza e ritardo
bisognerebbe aggiungere un altra componente in rapporto tra frequenza e ritardo..

Alien. · 13 Giugno 2022

Ciao Zetrix perchè mi da errore qua:

Dim k As Integer

grazie,

Mike58 · 14 Giugno 2022

Per Alien lo script è invbnet per spaziolight.
------------------------------------------------------------------
Per gli indici calcolati sia da codice che con calcolo come lo conosciamo sono discordanti e non attinenti al ricavato del programma.

non capisco se si sbaglia qualcosa con i calcoli ma anche il codice calcolaIc con i suoi parametri non rispecchia i il dato IC trovato dai programmi di 7,64...7

Zetrix · 14 Giugno 2022

ciao a tutti

Alien perche ti da errore Dim k As Integer
lo script non da nessun errore..

Zetrix · 14 Giugno 2022

mike per l'indice di convenienza dobbiamo trovare un altra componente
perche l'indice di convenienza e relativa ma non ci garantisce la sortita di quel numero
esempio il 15 a Ca a un ind.conv. 7.1 a vedere cosi sembra ottimo e tutti giocano il 15 a Ca
ma poi con le estr si rimane delusi perche il 15 continua a non sortire a Ca..
E allora e qui che bisogna trovare un altra componente per ricalcolare un ind.di probabilità
in base alla frequenza ritardo ed estr..

x mike58

Advanced Premium Member

Advanced Member

Advanced Member >PLATINUM PLUS<

CalcolaIC​

Advanced Premium Member

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Premium Member

CalcolaIC