Novità

AIUTO PER SCRIPT "SPIA CON MATEMATICA SOMMATIVA"

herat

Advanced Member
Buongiorno a tutti voi, essendo totalmente profana di script , non so se sto chiedendo qualcosa di irrealizzabile: mi servirebbe uno script che dopo la sortita di un qualsiasi numero spia su una qualsiasi ruota mi restituisca 2 numeri per ambata e una lunghetta di max 10 numeri per ambo da giocare sulla ruota di rilevamento calcolati attraverso la matematica sommativa.
sarebbe ottima anche la presenza delle percentuali di vincita delle formazioni scaturite.

ripeto,probabilmente sto chiedendo qualcosa di difficile da realizzare, ma sono una perfetta ignorantona in materia :p

vi ringrazio anticipatamente:)
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao Herat

Questo script credo sia di Mike58, vedi se va bene

Codice:
 Sub Main()
'Primi 10 più frequenti usciti dopo il numero Spia a scelta- QUANDO LA FREQUENZA DI UN NUMERO E' > 9 MICIDIALE '
Dim ruote(1)
Dim posta(1)
Dim num(90,4)
Dim uscito(90,2)
Dim anum(10)
Dim nume(90,4)
my = MsgBox("1 - numeri rilevati " & Chr(13) & "2 - frequenza nei cicli dei numeri " & Chr(13) & "3 - Ritardo dei numeri rilevati " & Chr(13) & "4 - Frequenza numeri ultimi 10 colpi",,"LETTURA NUMERI RICAVATI")
ne = CInt(InputBox("Estrazioni di Controllo","NUMERO ESTRAZIONI",90))
r = InputBox("Su quale ruota?","RUOTA DI CONTROLLO",1)
my = MsgBox("INSERIRE I NUMERI IN ORDINE CRESCENTE " & Chr(13) & " DAL PIU' PICCOLO AL PIU' GRANDE",,"INSERIMENTO NUMERI SPIA")
E1 = CInt(InputBox("1° numero spia","1° NUMERO SPIA",18))
E2 = CInt(InputBox("2° numero spia","2° NUMERO SPIA",22))
E3 = CInt(InputBox("3° numero spia","3° NUMERO SPIA",38))
E4 = CInt(InputBox("4° numero spia","4° NUMERO SPIA",57))
E5 = CInt(InputBox("5° numero spia","5° NUMERO SPIA",80))
colpi = InputBox("Quanti colpi?","NUMERO COLPI",10)
ruote(1) = r
ini = EstrazioneFin - ne
fin = EstrazioneFin
Scrivi " Analisi dal " & DataEstrazione(ini) & " a " & DataEstrazione(fin)
Scrivi "Primi 10 più frequenti usciti dopo il numero Spia entro i " & colpi & " colpi",1
For sp = E1 To E5
If sp = E1 Or sp = E2 Or sp = E3 Or sp = E4 Or sp = E5 Then
Messaggio " Spia: " & Format2(sp) & " < Script by Mike58 >"
Call AvanzamentoElab(E1,E5,sp)
For i = 1 To 90
num(i,1) = 0
num(i,2) = 0
num(i,4) = 0
Next
co = 0
For es = ini To fin
If Posizione(es,r,sp) > 0 Then
co = co + 1
ess = es + colpi
If ess > fin Then ess = fin End If
For a = es + 1 To ess
For v = 1 To 90
Next
For e = 1 To 5
n = Estratto(a,r,e)
num(n,1) = n
If Posizione(a,r,num(n,1)) Then num(n,2) = num(n,2) + 1
frc = num(n,2)
fru = EstrattoFrequenzaTurbo(r,n,es + 1,es + colpi)
num(n,2) = frc
rit = EstrattoRitardoTurbo(r,n,Ini,fin)
rtsp = EstrattoRitardoTurbo(r,sp,Ini,fin)
num(n,3) = rit
num(n,4) = fru
Next
Next
End If
Next
OrdinaMatrice num,- 1,2
per = Int((co/100)*65)
If rtsp < 10 Then
Scrivi "_________________________________________________ ________________"
ColoreTesto 1
Scrivi "Numero spia: " & Format2(sp) & " su " & FormatSpace(NomeRuota(r),10) & " casi = " & Format2(co) & " colpi " & Format2(colpi),0,0
ColoreTesto 2
Scrivi " - Rit. Spia.. " & Format2(rtsp),0,0
ColoreTesto 7
Scrivi " ---> Spia attiva per " &(colpi - rtsp) & " Colpi ",1
ColoreTesto 0
'
Else
Scrivi "_________________________________________________ ________________"
Scrivi "Numero spia: " & Format2(sp) & " su " & FormatSpace(NomeRuota(r),10) & " casi = " & Format2(co) & " colpi " & Format2(colpi),0,0
ColoreTesto 2
Scrivi " - Rit. Spia.. " & Format2(rtsp)
ColoreTesto 0
End If
riga = "Num. "
riga1 = "Freq. "
riga2 = "Rit. "
riga3 = "Ult.cc "
For i = 1 To 10
riga = riga & FormatSpace(num(i,1),3) & " "
riga1 = riga1 & FormatSpace(Eval(num(i,2)),4) & " "
riga2 = riga2 & FormatSpace(Eval(num(i,3)),4) & " "
riga3 = riga3 & FormatSpace(Eval(num(i,4)),4) & " "
anum(i) = num(i,1)
sf2 = SerieFreqTurbo(Ini,fin,anum,ruote,2)
sf3 = SerieFreqTurbo(Ini,fin,anum,ruote,3)
sr2 = SerieRitardoTurbo(Ini,fin,anum,ruote,2)
sr3 = SerieRitardoTurbo(Ini,fin,anum,ruote,3)
Next
Scrivi riga,1
ColoreTesto 2
Scrivi riga1
ColoreTesto 7
Scrivi riga2
ColoreTesto 1
Scrivi riga3
ColoreTesto 0
Scrivi String(65,"-")
Scrivi"Frequenza combinazione per ambo " & sf2
Scrivi"Frequenza combinazione per terno " & sf3
Scrivi"Ritardo combinazione per ambo " & sr2
Scrivi"Ritardo combinazione per terno " & sr3
End If
Next
End Sub
 

herat

Advanced Member
gentilissimo Salvo, ti ringrazio per la cortese e celere risposta.
ottimo questo script però , cortesemente, desidererei capire se è possibile avere uno script simile ricavato attraverso la matematica sommativa.

Da perfetta ignorante degli script, faccio un esempio: dopo l'uscita del numero 28 su Venezia lo script dovrebbe ricavare la previsione attraverso dei numeri fissi da sommare agli estratti.
Tornando all'esempio: dopo la sortita della spia 28 di Venezia le ambate si ottengono sommando il fisso x al primo estratto di Ve e sommando il fisso y al terzo estratto
Stesso procedimento per ricavare la lunghetta di 10 numeri.

spero di essermi spiegata

Ti/vi ringrazio per l'attenzione.
 

jure

Advanced Member >PLATINUM PLUS<
Herat ho trovato Questo nel mio Archivio autore Danilo Sommativo
Potrebbe somigliare a quello che tu Chiedi.

Sub Main()
Dim som(5,5,90)
Dim estr(2,5)
Dim Val(5,5,90)
Dim amb(90)
r2 = InputBox("Inserisci la ruota su cui effettuare la ricerca(1-10):",,1)
es = InputBox("Inserisci 0 per l'ultima, 1 la prima, 2 la seconda, ecc. (0-12):",,0)
nmc = InputBox("Numero di mesi da considerare:",,15)
perc = InputBox("Inserisci la percentuale (0-100):",,90)
ncg = InputBox("Inserisci il numero di colpi(0 per un mese):",,8)

ultest = 8830 ' inserite qui il numero indice dell'ultima estrazione

n = EstrazioneFin
z = 0
trovato = False
While z < eval(nmc)
' Attenzione questa sotto deve essere tutta una riga
If(((eval(es) = 0) And(n = ultest)) Or((IndiceMensile(n) = eval(es) And(eval(es) > 0)) Or((IndiceMensile(n + 1) = 1) And(eval(es) = 0)))) Then
' fine riga
z = z + 1
End If
n = n - 1
Wend
nn = n + 1
For i = 1 To 90
amb(i) = 0
Next
If eval(es) = 0 Then
s = "All'ultima"
Else
s = "Alla " + es
End If
s = s + "° estrazione del mese per "
If eval(ncg) = 0 Then
s = s + "un mese:"
Else
If eval(ncg) = 1 Then
s = s + ncg + " colpo:"
Else
s = s + ncg + " colpi:"
End If
End If
Scrivi s
Scrivi "Statistica dal " + DataEstrazione(nn) + " al " + DataEstrazione(EstrazioneFin)
For ru1 = 1 To 10
For ru2 = ru1 To 10
Messaggio " Elaboro la ruota n° " & CInt(ru1) & " con la n° " & CInt(ru2)
z = 0
For i = 1 To 5
For l = 1 To 5
For j = 1 To 90
som(i,l,j) = 0
Val(i,l,j) = True
Next
Next
Next
For j = 1 To 2
For i = 1 To 5
estr(j,i) = 0
Next
Next
valido = False
For n = nn To EstrazioneFin
If eval(es) = 0 Then m = n + 1 Else m = n End If
' Attenzione questa sotto deve essere tutta una riga
If(((es = 0) And(n = ultest)) Or((IndiceMensile(m) = eval(es) And(eval(es) > 0)) Or((IndiceMensile(m) = 1) And(eval(es) = 0)))) Then
' fine riga
z = z + 1
For i = 1 To 5
estr(1,i) = Estratto(n,ru1,i)
estr(2,i) = Estratto(n,ru2,i)
Next
For i = 1 To 5
For l = 1 To 5
For j = 1 To 90
Val(i,l,j) = True
Next
Next
Next
If eval(ncg) = 0 Then
k2 = 9
If(IndiceMensile(n + 12) = eval(es)) Then
k2 = 8
End If
Else
k2 = eval(ncg)
End If
k3 = n + k2
If k3 > EstrazioneFin Then k3 = EstrazioneFin
For nv = n + 1 To k3
For i = 1 To 5
For j = 1 To 5
For l = 1 To 5
k = Estratto(nv,r2,i) - estr(1,j) - estr(2,l)
While k <= 0
k = k + 90
Wend
If Val(j,l,k) = True Then
som(j,l,k) = som(j,l,k) + 1
Val(j,l,k) = False
End If
Next
Next
Next
Next
End If
Next
For i = 1 To 5
For l = 1 To 5
For j = 1 To 90
zz = Int((z/100)*perc)
s = CStr(eval(i)) + "° di " + FormatSpace(NomeRuota(ru1),8) + " + " + CStr(eval(l)) + "° di "
s = s + FormatSpace(NomeRuota(ru2),8) + " + " + FormatSpace(CStr(eval(j)),2) + " su " + NomeRuota(r2) + " "
s = s + CStr(som(i,l,j)) + " su " + CStr(eval(z)) + ": " + FormatSpace(CStr(Fuori90(eval(estr(1,i) + estr(2,l) + j))),2)
If Val(i,l,j) = True Then s = s + " in corso" Else s = s + " già uscito"
If(som(i,l,j) >= zz) Then
If(Not(ru1 = ru2) Or((ru1 = ru2) And(i < l))) Then
Scrivi s
amb(Fuori90(eval(estr(1,i) + estr(2,l) + j))) = amb(Fuori90(eval(estr(1,i) + estr(2,l) + j))) + 1
End If
End If
Next
Next
Next
Next
Next
End Sub
 

herat

Advanced Member
Gentilissimo Jure, esatto somiglia molto, l'unica differenza è che lo script da te pubblicato agisce in una determinata estrazione (prima del mese, seconda ecc)....quello che cerco io invece agisce dopo la sortita di una eventuale spia.

Ti ringrazio!
 

herat

Advanced Member
Carissimi tutti, navigando sul forum ho trovato questo script
Ma non funziona bene: lo script deve ricercare tantissime combinazioni e quindi risulta essere molto lento: è possibile far evidenziare solo le prime venti ambate e i primi venti ambi contro le 4500 ambate e 4500 ambi che lo script restituisce?
oppure la lentezza è determinata da altri fattori.
Vi ringrazio



Sub Main()
Dim ambi(4500,8),nn(1),ruota(2),amba(4500,4500),mm(2), xx(3)
nru = InputBox("Su quale ruota, ",,1)
nes = InputBox("Inserisci SPIA ....",,14)
ne = InputBox("Numero estrazioni:",,100)
perc = InputBox("Percentuale minima (60-100%):",,100)
ncg = InputBox("Numero colpi di gioco",,9)
ruota(1) = eval(nru)
ruota(2) = 2
casi = 0
ini = EstrazioneFin - eval(ne)
fin = EstrazioneFin
For es = ini To fin
If IsNumeroPresenteInEstrazione(es,eval(nru),eval(nes ),0) Then
casi = casi + 1
esncg = es + eval(ncg)
If esncg > EstrazioneFin Then esncg = EstrazioneFin End If
co = 0
For r = 1 To 10
For p = 1 To 5
For nu = 1 To 90
co = co + 1
a = Estratto(es,r,p)
b = Fuori90(a + nu)
nn(1) = b
ambi(co,1) = co
ambi(co,2) = b
ambi(co,3) = r
ambi(co,4) = p
ambi(co,5) = nu
fr1 = SerieFreq(es + 1,esncg,nn,ruota,1)
If fr1 > 0 Then ambi(co,6) = ambi(co,6) + 1
Next
Next
Next
co = 0
OrdinaMatrice ambi,- 1,6
For c = 1 To 500
For d = c + 1 To 500
co = co + 1
For est = es + 1 To esncg
x = ambi(c,2)
y = ambi(d,2)
xx(1) = x
xx(2) = y
fr2 = SerieFreq(es + 1,esncg,xx,ruota,2)
If fr2 > 0 Then amba(c,d) = amba(c,d) + 1
Next
Next
Next
End If
Next
ColoreTesto 1
Scrivi "ANALISI Dal " & DataEstrazione(ini) & " al " & DataEstrazione(fin),1
Scrivi
If eval(nes) > 0 Then
Scrivi "Spia : " & eval(nes),1
End If
Scrivi "RUOTA DI GIOCO : " & NomeRuota(nru),1
Scrivi "COLPI DI GIOCO : " & ncg,1
Scrivi "CASI ANALIZZATI : " & casi,1
ColoreTesto 0
For x = 1 To 4500
s = eval(x) & " " & eval(ambi(x,4)) & "°" & Left(NomeRuota(eval(ambi(x,3))),2) & " + " & _
Format2(ambi(x,5)) & " " & FormatSpace(ambi(x,6),3) & " " & FormatSpace(ambi(x,2),3)
If eval(ambi(x,6)) > 0 Then
Scrivi s
End If
Next
Scrivi" ------------------------------------------------------------------ "
ColoreTesto 1
For ca = 1 To 500
For ce = 1 To 500
riga = eval(ambi(ca,4)) & "°" & Left(NomeRuota(eval(ambi(ca,3))),2) & " + " & _
Format2(ambi(ca,5)) & " -- " & eval(ambi(ce,4)) & "°" & Left(NomeRuota(eval(ambi(ce,3))),2) & " + " & _
Format2(ambi(ce,5)) & " " & FormatSpace(amba(ca,ce),3) & " " & FormatSpace(ambi(ca,2),3) & " - " & FormatSpace(ambi(ce,2),3)
If eval(amba(ca,ce)) > 0 Then
Scrivi riga
End If
Next
Next
End Sub
 
Ultima modifica:

herat

Advanced Member
https://forum.lottoced.com/forum/lottoced/area-download/95467-per-gli-scripter-piu-bravi-errore-o-no


Codice:
Sub Main()
    Dim ambi(4500,8),nn(1),ruota(2),amba(4500,4500),mm(2),xx(3)
    nru = InputBox("Su quale ruota, ",,1)
    nes = InputBox("Inserisci SPIA ....",,14)
    ne = InputBox("Numero estrazioni:",,100)
    perc = InputBox("Percentuale minima (60-100%):",,100)
    ncg = InputBox("Numero colpi di gioco",,9)
    ruota(1) = eval(nru)
    ruota(2) = 2
    casi = 0
    ini = EstrazioneFin - eval(ne)
    fin = EstrazioneFin
    For es = ini To fin
        If IsNumeroPresenteInEstrazione(es,eval(nru),eval(nes),0) Then
            casi = casi + 1
            esncg = es + eval(ncg)
            If esncg > EstrazioneFin Then esncg = EstrazioneFin End If
            co = 0
            For r = 1 To 10
                For p = 1 To 5
                    For nu = 1 To 90
                        co = co + 1
                        a = Estratto(es,r,p)
                        b = Fuori90(a + nu)
                        nn(1) = b
                        ambi(co,1) = co
                        ambi(co,2) = b
                        ambi(co,3) = r
                        ambi(co,4) = p
                        ambi(co,5) = nu
                        fr1 = SerieFreq(es + 1,esncg,nn,ruota,1)
                        If fr1 > 0 Then ambi(co,6) = ambi(co,6) + 1
                    Next
                Next
            Next
            co = 0
            OrdinaMatrice ambi,- 1,6
            For c = 1 To 500
                For d = c + 1 To 500
                    co = co + 1
                    For est = es + 1 To esncg
                        x = ambi(c,2)
                        y = ambi(d,2)
                        xx(1) = x
                        xx(2) = y
                        fr2 = SerieFreq(es + 1,esncg,xx,ruota,2)
                        If fr2 > 0 Then amba(c,d) = amba(c,d) + 1
                    Next
                Next
            Next
        End If
    Next
    ColoreTesto 1
    Scrivi "ANALISI Dal " & DataEstrazione(ini) & " al " & DataEstrazione(fin),1
    Scrivi
    If eval(nes) > 0 Then
        Scrivi "Spia                     : " & eval(nes),1
    End If
    Scrivi "RUOTA DI GIOCO           : " & NomeRuota(nru),1
    Scrivi "COLPI DI GIOCO           : " & ncg,1
    Scrivi "CASI ANALIZZATI          : " & casi,1
    ColoreTesto 0
    For x = 1 To 4500
        s = eval(x) & "  " & eval(ambi(x,4)) & "°" & Left(NomeRuota(eval(ambi(x,3))),2) & " + " & _
        Format2(ambi(x,5)) & "       " & FormatSpace(ambi(x,6),3) & "       " & FormatSpace(ambi(x,2),3)
        If eval(ambi(x,6)) > 0 Then
            Scrivi s
        End If
    Next
    Scrivi" ------------------------------------------------------------------ "
    ColoreTesto 1
    For ca = 1 To 500
        For ce = 1 To 500
            riga = eval(ambi(ca,4)) & "°" & Left(NomeRuota(eval(ambi(ca,3))),2) & " + " & _
            Format2(ambi(ca,5)) & "  --  " & eval(ambi(ce,4)) & "°" & Left(NomeRuota(eval(ambi(ce,3))),2) & " + " & _
            Format2(ambi(ce,5)) & "       " & FormatSpace(amba(ca,ce),3) & "       " & FormatSpace(ambi(ca,2),3) & " - " & FormatSpace(ambi(ce,2),3)
            If eval(amba(ca,ce)) > 0 Then
                Scrivi riga
            End If
        Next
    Next
End Sub
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
Ciao Herat

Nel mio computer non riesce neanche a partire, va subito in errore, alla prima riga,

errore --> MEMORIA ESAURITA
 
L

LuigiB

Guest
Ciao , uno dei problemi principali per chi deve realizzare uno script è quello della sinteticità delle informazioni fornite , questo puo dar luogo a fraintendimenti cosi chi fa lo script mentre lo redige si chiede ma avro capito bene ? Non è che dopo dovrò modificarlo perdendo tutto gia il tempo impiegato ?
Io preavviso che posterò uno script in base all'interpretazone che ho dato io alla specifiche fornite da Herat ma che non ho alcuna intenzione di modificarlo a meno che ovviamente non ci siano errori risptto alla logica che ho usato.

Io ho capito che in seguito ad un numero spia presentatosi in una qualsiasi estrazione si debba andare a conteggiare (all'interno di un dato range di estrazioni) le volte in cui negli N colpi successivi all'estrazione in cui la spia si è presentata un tale numero sommato alla spia abbia dato esiti , successivamente tirare fuori dei numeri da giocare che io penso siano quelli dati sommando alla spia i nueri sommativi che hanno avuto piu esiti nel periodo analizzato.
Quindi cosa fa lo script ?
Prima di tutto considera spie i numeri usciti nell'ultima estrazione del range ,
cioè quell'estrazione che dovra produrre il pronostico,
se ne deduce che ci saranno 5 spie per ogni ruota.
Per ogni ruota le 5 spie vengono analizzate nel range che va dall'inizio alla fine (impostazione globale del programma)
Ogni spia ha collegato un gruppo di 91 numeri sommativi da 0 a 90 , di ogni numero sommativo lo script calcola le volte che sommandolo alla spia ha dato un esito negli N colpi successivi , quindi alla fine per ogni spia si potranno conoscere i numeri sommativi migliori che difatti vengono mostrati in una tabella , ci saranno 11 tabelle una per ogni ruota,
I famosi due numeri da giocare per ambata sono quelli mostrati nelle prime due righe della tabellla di quella ruota , la lunghetta invece è data dai numeri mostrati in tutte e dieci le righe della tabella ..
sinceramente non credo che si quello che voelva Herat ..

Codice:
Option Explicit

Class clsSpia
    Private nSpia
    Private nRuota
    Private nQEstrConSpia
    Private aEsitiPerNumSommato (91)

    Public Property Let Spia( v)
        nSpia = v
    End Property
    Public Property Get Spia
        Spia = nSpia
    End Property


    Public Property Let Ruota( v)
        nRuota = v
    End Property
    Public Property Get Ruota
        Ruota = nRuota
    End Property

    Public Property Get PresenzeSpia
        PresenzeSpia = nQEstrConSpia
    End Property

    Sub IncrementaEsitoPerNumSomm ( n)
        aEsitiPerNumSommato (n) = aEsitiPerNumSommato (n) +1
    End Sub
    Sub IncrementaPresenzeSpia ()
        nQEstrConSpia = nQEstrConSpia +1
    End Sub

    Function QuantitaEsitiPerNumDaSomm (n)
        QuantitaEsitiPerNumDaSomm = aEsitiPerNumSommato  (n)
    End Function

    Sub GetNumDaSommPiuFreq ( aRet , qNumDaPrendere)
        Dim k , kk , j
        ReDim aRet(qNumDaPrendere)
        ReDim aTmp(qNumDaPrendere)


        For k = 0 To 90
            For kk = 1 To qNumDaPrendere
                If aEsitiPerNumSommato (k) > aTmp (kk) Then
                    For j = qNumDaPrendere To kk+1 Step -1
                        aTmp (j) =aTmp (j -1)
                        aRet (j) =aRet (j -1)

                    Next
                    aTmp (kk) =aEsitiPerNumSommato (k)
                    aRet (kk) = k


                End If
            Next    
        Next
    End Sub

End Class
Sub Main

    Dim nIni , nFin , id , rt , e ,ee , nColpi , nC
    Dim nNumDaSomm
    Dim CollSpie
    Dim clsSp

    nIni = EstrazioneIni
    nFin = EstrazioneFin
    nColpi = 1



    For rt = 1 To 12
        If rt <> 11 Then
            Set CollSpie = GetNewCollection
            For e = 1 To 5
                Set clsSp = New clsSpia
                clsSp.Spia = Estratto( nFin ,rt,e)
                clsSp.Ruota = rt
                For id = nIni To nFin  
                    If IsNumeroPresenteInEstrazione ( id,rt,clsSp.Spia  ,0) Then
                        Call clsSp.IncrementaPresenzeSpia  
                        For nC = 1 To nColpi
                            For ee = 1 To 5
                                nNumDaSomm = GetNumDaSomm ( clsSp.Spia , Estratto( id + nC ,rt,ee))
                                clsSp.IncrementaEsitoPerNumSomm  ( nNumDaSomm)
                            Next
                        Next
                    End If
                    If ScriptInterrotto Then Exit For
                    Call Messaggio  (id)

                Next

                Call CollSpie.Add  (clsSp)
            Next    
            Call GestioneTabella ( CollSpie)

        End If
        Call AvanzamentoElab( 1 ,12 , rt)
        If ScriptInterrotto Then Exit For

    Next


End Sub
Function  GetNumDaSomm ( NumSpia , NumUscito)
    Dim ret

    If NumUscito > 0 Then
        ret = NumSpia - NumUscito
        If ret > 0 Then
            GetNumDaSomm = 90 -  ret  
        Else
            GetNumDaSomm = ret * -1
        End If
    Else
        GetNumDaSomm  = 91
    End If     
End Function

Sub GestioneTabella ( CollSpie)

    Dim clsSp , n , nQEsiti


    ReDim a(7)
    a(1) = "Ruota"
    a(2) = "Spia"
    a(3) = "Pres Spia"
    a(4) = "NumDaSomm"
    a(5) = "Esiti"
    a(6) = "PercEsiti"
    a(7) = "NumDaGioc"



    Call InitTabella ( a ,vbYellow )
    For Each clsSp In CollSpie
        For n = 0 To 90
            nQEsiti = clsSp.QuantitaEsitiPerNumDaSomm  (n)
            If nQEsiti > 0 Then
                a(1) = NomeRuota( clsSp.Ruota )
                a(2) = clsSp.Spia
                a(3) = clsSp.PresenzeSpia
                a(4) = n
                a(5) = clsSp.QuantitaEsitiPerNumDaSomm  (n)
                a(6) = Round (ProporzioneX ( nQEsiti , clsSp.PresenzeSpia ,100) ,3)
                a(7) = Fuori90 ( clsSp.Spia + n )

                Call AddRigaTabella ( a )
            End If
         Next


    Next

    Call CreaTabella ( 6 ,,,10)




End Sub
 

herat

Advanced Member
Gentile Luigi, ti ringrazio per la gentilezza.
Grazie per il lavoro che mi hai donato.
Hai ragione tu perchè mi sono spiegata male: in poche parole mi interessava uno script che evidenziava i sommativi (2 ambate e 10 numeri per ambo) non applicati al numero spia ma alle 5 posizioni della ruota oppure a tutte le 55 posizioni dell'estrazione

ESEMPIO
Estrazione del 26/10/2017 NAPOLI 18-72-87-62-34

SPIA PRESA COME ESEMPIO: 18 NA

Lo script deve trovare i fissi piu frequenti (2 ambate e 10 numeri per ambo) sommati non al 18 ma seguendo questo criterio:
Dopo la spia 18 su Napoli i fissi piu frequenti sono:
PRIMO ESTRATTO DI NAPOLI + FISSO 35 DA GIOCARE SU NAPOLI
PRIMO ESTRATTO DI NAPOLI + FISSO 46 DA GIOCARE SU NAPOLI
QUINTO ESTRATTO DI NAPOLI + FISSO 68 DA GIOCARE SU NAPOLI
QUARTO ESTRATTO DI NAPOLI + FISSO 12 DA GIOCARE SU NAPOLI
Ecc....

OPPURE
Dopo la spia 18 su Napoli i fissi piu frequenti sono:
PRIMO ESTRATTO DI BARI + FISSO 39 DA GIOCARE SU NAPOLI
PRIMO ESTRATTO DI FIRENZE + FISSO 36 DA GIOCARE SU NAPOLI
QUINTO ESTRATTO DI ROMA + FISSO 61 DA GIOCARE SU NAPOLI
QUARTO ESTRATTO DI NAPOLI + FISSO 19 DA GIOCARE SU NAPOLI
TERZO ESTRATTO DI VENEZIA + FISSO 20 DA GIOCARE SU NAPOLI
SECONDO ESTRATTO DI NAZIONALE + FISSO 89 DA GIOCARE SU NAPOLI
Ecc....
_____________________

Comunque, essendo un mio errore perchè mi sono spiegata male....posso solo ringraziarti per il grande lavoro che hai fatto per me.

Grazie mille
 

rudivall

Advanced Member >PLATINUM<
Scusami herat ma tu lo possiedi il programma di Luigi Spaziometria? Se si allora vai in metodi sommativi fà anche la ricerca che chiedi.....
 

Allegati

  • photo16293.jpg
    photo16293.jpg
    62,3 KB · Visite: 21
  • photo16294.jpg
    photo16294.jpg
    62 KB · Visite: 20

herat

Advanced Member
rudivall;n2083969 ha scritto:
Scusami herat ma tu lo possiedi il programma di Luigi Spaziometria? Se si allora vai in metodi sommativi fà anche la ricerca che chiedi.....

Certo, lo possiedo ma la combinazione per ambo massima che vigne evidenziata sono 5 numeri...a me interessavano i 10 sommativi più presenti dopo la spia.
Grazie
 

Mike58

Advanced Member >PLATINUM PLUS<
Ciao a tutti, di queste tipologie di script ne esistono diverse varianti e diversi modi di operare, tutti +/- validi e tutti che cambiano algoritmi con il passare delle estrazioni.

Chiarito quanto sopra, vi posto una mia versione, che cerca la spia su Ruota e valuta con percentuale > 90% l'algoritmo sommativo migliore.
Purtroppo possono essere tanti e vengono evidenziati quelli con perc% del 100%, con in più le convergenze dei numeri calcolati ripetuti.

P.s. essendo uno script modificato all'occasione può essere che non tutte le spia abbiano la percentuale richiesta del 90%,


Ciao e prudenza.

Codice:
Sub Main()
 Dim som(5,90)
 Dim estr(5)
 Dim T,V,Num(1),Ru(1),aNum(90)
 Dim VetN,VetQ
 Dim Val(5,90)
 T = Array(T,"Caso N°","Algoritmo","Addendi","Presenze su Casi"," % ","Ultima oper","Num Calcolato","VerificaEsito","Colpo","Info Data Id")
 Call InitTabella(T)
 qt = InputBox("Quante estrazioni controllo",,160)
 spia = CInt(InputBox("Quale SPIA controllo",,48))
 Rg = InputBox("Quale RUOTA di Gioco ",,1)
 Scrivi "Ricerca Algoritmi migliori con perc% > 90%, su Tutte le Ruote e gioca su Ruota : " & SiglaRuota(rg),1,1,3
 er = EstrattoRitardoTurbo(rg,spia,EstrazioneFin-qt,EstrazioneFin)
 Scrivi "Spia Analizzata : " & spia & " Ritarda da .... " & er,1
 For r2 = rg To rg
  For r = 1 To 10
   z = 0
   For i = 1 To 5
    For j = 1 To 90
     som(i,j) = 0
     Val(i,j) = True
    Next
   Next
   For i = 1 To 5
    estr(i) = 0
   Next
   valido = False
   For n = EstrazioneFin - qt To EstrazioneFin
    If valido = True Then
     For i = 1 To 5
      For j = 1 To 5
       k = Estratto(n,r2,j) - estr(i)
       If k <= 0 Then
        k = k + 90
       End If
       If Val(i,k) = True Then
        som(i,k) = som(i,k) + 1
       End If
      Next
     Next
     For i = 1 To 5
      For j = 1 To 5
       k = Estratto(n,r2,j) - estr(i)
       If k <= 0 Then
        k = k + 90
       End If
       If Val(i,k) = True Then
        Val(i,k) = False
       End If
      Next
     Next
    End If
    'If es = 0 Then m = n + 1 Else m = n End If
    'If IndiceMensile(m) = es Then
    If Posizione(n,rg,spia) > 0 Then
     z = z + 1
     valido = True
     For i = 1 To 5
      estr(i) = Estratto(n,r,i)
     Next
     For i = 1 To 5
      For j = 1 To 90
       Val(i,j) = True
      Next
     Next
    End If

   Next
   For i = 1 To 5
    For j = 1 To 90
     zz = Int((z/100)*90)
     's = CStr(eval(i)) + " estratto di " + SiglaRuota(r) + " + " + CStr(eval(j)) + " sulla ruota di "
     s = i & "°" & " Estratto di " & SiglaRuota(r)
     perc = Round(som(i,j)/z*100,2)
     's = s + NomeRuota(r2) + " è uscito " + CStr(som(i,j)) + " volte su " + CStr(eval(z))
     If som(i,j) > zz Then
      If Valido = True Then kk = kk + 1
      Num(1) = Fuori90(estr(i) + j)
      Ru(1) = Rg
      ReDim Preserve TotNum(kk)
      TotNum(kk) = Num(1)
      Ind = IndiceMensile(EstrazioneFin)
      Call VerificaEsito(Num,Ru,EstrazioneFin - er+1 + 1,1,er,,esito,colpi,es1,id)
      V = Array(V,kk,s,j,som(i,j) & " su " & z,perc & "%",estr(i) & " + " & j,StringaNumeri(Num),es1,colpi,GetInfoEstrazione(id))
      Call AddRigaTabella(V)
      For xx = 1 To 5
       If perc = 100 Then Call SetColoreCella((xx),2,4)
       If id = EstrazioneFin Then Call SetColoreCella(10,7,5)
      Next
     End If
     'End If
    Next
   Next
  Next
 Next
 CreaTabella
 'Scrivi ss
 'Scrivi Ind
 Scrivi "Stringa Numeri ricavati : " & StringaNumeri(TotNum),1,,,,3
 Call NumeriRipetutiRilevatiV(TotNum,VetN,VetQ)
 Scrivi "Numeri Ripetuti         : " & StringaNumeri(VetN),1,,,1,3
 Scrivi "Quantità Convergenti    : " & StringaNumeri(VetQ,,1),1,,,2,3
 Scrivi
 Scrivi "Script By Mike58 ",1,,,7,3
End Sub
 

herat

Advanced Member
Carissimo Mike, ti ringrazio infinitamente.
il tuo script è un capolavoro!!!!

Se posso permettermi un ultima domanda: è possibile applicare lo stesso script alle spie determinate con inputbox che mi dia la possibilità di scegliere anche una delle 5 posizioni di sortita della spia ?

Grazie di cuore!

ps: grazie a tutti coloro che mi hanno aiutata
 

Mike58

Advanced Member >PLATINUM PLUS<
Ciao Herat, non credo si possa fare e non ci sarebbero le stesse risultanze.
Con la spia determinata ci sarebbero casi 1 ogni tot casi molto alti, e ci vorrebbero molte estrazioni in analisi e la percentuale inserita non sarebbe soddisfatta.

Mi spiace
 

herat

Advanced Member
Mike58;n2084040 ha scritto:
Ciao Herat, non credo si possa fare e non ci sarebbero le stesse risultanze.
Con la spia determinata ci sarebbero casi 1 ogni tot casi molto alti, e ci vorrebbero molte estrazioni in analisi e la percentuale inserita non sarebbe soddisfatta.

Mi spiace
Ok carissimo, ti ringrazio
 

herat

Advanced Member
Ultima cosa, caro Mike, nello script che hai creato ho visto che il resoconto tiene conto anche di sfaldamenti avvenuti al venticinquesimo colpo....è possibile restringere il range di sfaldamento a 10 estrazioni ?

inoltre ho notato che cambiando zz = Int((z/100)*90) in zz = Int((z/100)*70) mi da i risultati con percentuale dal 70 al 100% dei casi
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16
Alto