Per Ilegend o Disaranno Secondo voi è fattibile

solare · 23 Luglio 2015

Ciao mi è stato regalato questo metodo che al dire di un mio amico funziona. Si può fare un listato per semplificare il tutto ?

solare · 23 Luglio 2015

Scusate l'immagine....

solare · 25 Luglio 2015

Se qualcuno è disposto a fare questo listato proverò a riscrivere tutto a mano in modo che sia legibile.

solare · 26 Luglio 2015

Ecco il foglio che nelle precedenti comunicazioni non si legge. Spero sia sufficentemente visibile.

Mike58 · 27 Luglio 2015

potrebbe essere cosi ?

Codice:

Sub Main

Dim N(1),R(1),T,V,Tt

Ini = EstrazioneIni

fin = EstrazioneFin

Rr = InputBox("Quale Ruota Analizzo",,1)

Scrivi "Ruota analizzata : " & NomeRuota(Rr),1

Scrivi

Scrivi "Per Solare By Mike58",1,,,1,2,,1

Scrivi

T = Array(T,"Num"," Ritardo ","1 Sett 1-18 "," 2 Sett 19-36 "," 3 Sett 37-54 "," 4 Sett 55-72 "," 5 Sett 73-90 "," 6 sett 90 > 200 ")

Call InitTabella(T,1,,3,5)

For x = 1 To 90

N(1) = x

R(1) = Rr

Call StatisticaFormazione(N,R,1,Rit,,,,Ini,fin)

V = Array(V,N(1),Rit,Set1,Set2,Set3,Set4,Set5,Set6)

If Rit <= 18 Then V(3) = 18 - Rit

If V(3) = 0 Then V(3) = " -- "

If V(3) <> " -- " Then s1 = s1 + 1

If Rit > 18 And Rit <= 36 Then V(4) = 36 - Rit

If V(4) = 0 Then V(4) = " -- "

If V(4) <> " -- " Then s2 = s2 + 1

If Rit > 36 And Rit <= 54 Then V(5) = 54 - Rit

If V(5) = 0 Then V(5) = " -- "

If V(5) <> " -- " Then s3 = s3 + 1

If Rit > 54 And Rit <= 72 Then V(6) = 72 - Rit

If V(6) = 0 Then V(6) = " -- "

If V(6) <> " -- " Then s4 = s4 + 1

If Rit > 72 And Rit <= 90 Then V(7) = 90 - Rit

If V(7) = 0 Then V(7) = " -- "

If V(7) <> " -- " Then s5 = s5 + 1

If Rit > 90 And Rit <= 200 Then V(8) = Rit - 90

If V(8) = 0 Then V(8) = " -- "

If V(8) <> " -- " Then s6 = s6 + 1

Call AddRigaTabella(V,,,3,,"cambria")

Call SetColoreCella(2,3,1)

Next

Tt = Array(Tt,"Totali"," x settori ",s1,s2,s3,s4,s5,s6)

Call AddRigaTabella(Tt,7,,3,5)

'CreaTabella

scegliTabella

End Sub

Function scegliTabella()

ReDim Voci(2)

Voci(1) = "Tabella Normale"

Voci(2) = "tabella Ordinabile"

scegliTabella = ScegliOpzioneMenu(Voci,01,"seleziona tabella")

If scegliTabella = 1 Then Call CreaTabella()

If scegliTabella = 2 Then Call CreaTabellaOrdinabile

End Function

baikal · 27 Luglio 2015

SIG, mike58 credo che sia ciò che cerca solare

baikal · 27 Luglio 2015

sig, disaronno c'è qualche problemino non esamina i ritardi

solare · 27 Luglio 2015

Grazie Disaronno e Mike58, controllo poi faccio sapere

solare · 27 Luglio 2015

Ciao Mike58, perfetto ma ci sono alcuni valori da sistemare in merito ai settori: il 1 considera i numeri da rit 0 a 18 il secondo settore da rit. 19 a 36 il terzo da rit 54 a 72 il quarto settore da 73 a 91 il 5 settore da 92 a 110 ed infine tutti i numeri che superano rit > di 111

solare · 27 Luglio 2015

Tutto ok Mike58, va benissimo come l'hai impostato.
Se non chiedo troppo è possibile inserire anche le frequenze ultime 18 estrazioni ?

Mike58 · 27 Luglio 2015

si eccola, per i valori se non ti costa molto puoi intervenire nelle condizioni if e settare i parametri come meglio credi.
Ho poco tempo devo scappare....

Codice:

Sub Main

Dim N(1),R(1),T,V,Tt

Ini = EstrazioneIni

fin = EstrazioneFin

Rr = InputBox("Quale Ruota Analizzo",,1)

Scrivi "Ruota analizzata : " & NomeRuota(Rr),1

Scrivi

Scrivi "Per Solare By Mike58",1,,,1,2,,1

Scrivi

T = Array(T,"Num"," Ritardo ","1 Sett 1-18 "," 2 Sett 19-36 "," 3 Sett 37-54 "," 4 Sett 55-72 "," 5 Sett 73-90 "," 6 sett 90 > 200 ","Freq 18")

Call InitTabella(T,1,,3,5)

For x = 1 To 90

N(1) = x

R(1) = Rr

Call StatisticaFormazione(N,R,1,Rit,,,,Ini,fin)

sf = SerieFreq(fin-18,fin,N,R,1)

V = Array(V,N(1),Rit,Set1,Set2,Set3,Set4,Set5,Set6,sf)

If Rit <= 18 Then V(3) = 18 - Rit

If V(3) = 0 Then V(3) = " -- "

If V(3) <> " -- " Then s1 = s1 + 1

If Rit > 18 And Rit <= 36 Then V(4) = 36 - Rit

If V(4) = 0 Then V(4) = " -- "

If V(4) <> " -- " Then s2 = s2 + 1

If Rit > 36 And Rit <= 54 Then V(5) = 54 - Rit

If V(5) = 0 Then V(5) = " -- "

If V(5) <> " -- " Then s3 = s3 + 1

If Rit > 54 And Rit <= 72 Then V(6) = 72 - Rit

If V(6) = 0 Then V(6) = " -- "

If V(6) <> " -- " Then s4 = s4 + 1

If Rit > 72 And Rit <= 90 Then V(7) = 90 - Rit

If V(7) = 0 Then V(7) = " -- "

If V(7) <> " -- " Then s5 = s5 + 1

If Rit > 90 And Rit <= 200 Then V(8) = Rit - 90

If V(8) = 0 Then V(8) = " -- "

If V(8) <> " -- " Then s6 = s6 + 1

Call AddRigaTabella(V,,,3,,"cambria")

Call SetColoreCella(2,3,1)

Next

Tt = Array(Tt,"Totali"," x settori ",s1,s2,s3,s4,s5,s6," ")

Call AddRigaTabella(Tt,7,,3,5)

'CreaTabella

scegliTabella

End Sub

Function scegliTabella()

ReDim Voci(2)

Voci(1) = "Tabella Normale"

Voci(2) = "tabella Ordinabile"

scegliTabella = ScegliOpzioneMenu(Voci,01,"seleziona tabella")

If scegliTabella = 1 Then Call CreaTabella()

If scegliTabella = 2 Then Call CreaTabellaOrdinabile

End Function

solare · 27 Luglio 2015

Grazie ancora

claudio8 · 28 Luglio 2015

Molto interessante Solare, ma forse sarebbe meglio farlo diventare visibile in termini di andamento nel tempo.
Quella che estrapoliamo con questo script è una fotografia statica, mentre a noi serve la visione dinamica dell'evento per sapere se poter fare affidamento statisticamente su di esso.
Bravo Mike58

solare · 28 Luglio 2015

Ciao Claudio8, si in effetti potrebbe essere una buona idea.

Alien. · 28 Luglio 2015

Si ottimo ma come estrapolate i numeri da mettere in gioco?Ci vorrebbe che lo script vada dal ............al.............. per verificare un eventuale statistica.

solare · 28 Luglio 2015

Ciao Alien, per quel che ne so i numeri più probabili ritengo siano effettivamente quelli del settore 4.
Comunque da non trascurare il fattore frequenza infatti io tendo a selezionare si i numeri del settore 4 però che abbiano una regolare frequenza nelle ultime 180 estrazioni, cioè quelli che nel periodo abbiano una frequenza attorno a 10.
Ogni altro suggerimento è sempre ben gradito.

baikal · 28 Luglio 2015

Sig. Mike58 si potrebbe realizzare lo stesso script anche per 10elotto5m

claudio8 · 29 Luglio 2015

Se vi può servire per dare una vs.valutazione..... ( non considerate i fronzoli dello script che potrebbero essere eliminati)

Codice:

'
' x solare - lottoced
Sub Main
    Dim nu(1),ru(1),pos
    Dim retColpi,clpMax,nrit,ritminimo,cont
    Dim punti,fre10,totcop10,puntimin
    '-------------------
    er = CInt(InputBox("Estrazioni a ritroso",,1000))
    ruota = 1 'CInt(InputBox(" Quale ruota elaboro? 1....11 ",,1))
    nrit = CInt(InputBox(" QUANTI cicli da 18 considero?",,10))
    clpMax = 6' CInt(InputBox(" Entro QUANTI Colpi evidenzio l'Ambata (max) ",,6))
    puntimin = 55
    
    Scrivi "Elaborazione dei numeri per Estratto *** con cicli da 18 estrazioni *** Studi by Solare*** ",1,1,7,5,3
    
    For es =(EstrazioneFin - er) To EstrazioneFin
        Ini = EstrazioneIni
        fin = EstrazioneFin
        Scrivi "Estrazione analizzata: " & es & " del Data " &  DataEstrazione(es),1,1,,1,2
        '
        Messaggio " Estrazione n°: " & es & " Elaborazione ruota: " &(SiglaRuota(r))
        AvanzamentoElab fin - er,fin,1
        punti = 0
        ReDim T(8)
        T(1) = " pos. Num "
        T(2) = " Freq.Media"
        T(3) = " Freq St "
        T(4) = " Rit.Max "
        T(5) = " Rit.Att. "
        T(6) = " Cop" & nrit*18
        T(7) = " Freq " & nrit*18
        T(8) = " Esito "
        Call InitTabella(T,1,,1,5)
        cont = 0
        For x = 1 To 90
            nu(1) = x
            ru(1) = ruota
            Call StatisticaFormazioneTurbo(nu,ru,1,rit,max,Incr,fre,Ini,es)
            '
            If rit > 54 And rit < 56 Then '' controlliamo solo i numeri al ritardo 55 (parametro del 1°ritardo del 4° settore)
                pos = Posizione(es - rit,ruota,x) '' cerchiamo la posizione estrazionale
                '' se il numero(x) rientra nei parametri di ritardo lo elabora, diversamente, non lo consideriamo.
                cont = cont + 1
                ReDim rp(nrit)
                Inizio = EstrazioneIni
                fine = es
                somrit10 = 0
                For z = 1 To nrit
                    rp(z) = SerieRitardoTurbo(Inizio,fine,nu,ru,1)
                    fine = fine -(rp(z) + 1)
                    somrit10 = somrit10 + rp(z) + 1
                Next
                '------
                ' ' calcolo frequenze e copeture.
                fine = es '(estrazione finale)
                Ini10 = es -(nrit*18) + 1
                fre10 = SerieFreq(Ini10,es,nu,ru,1)
                totcop10 = 0
                For est = Ini10 To fine Step(18)
                    cop10 = SerieFreq(est,est + 18,nu,ru,1)
                    If cop10 > 0 Then cop10 = 1
                    totcop10 = totcop10 + cop10
                Next
                '------
                ColoreTesto 2
                ReDim V(8)
                V(1) = pos & "p.- " & Format2(x)
                V(2) = Round((EstrazioneFin/fre),2)
                V(3) = fre
                V(4) = max
                V(5) = rit
                punti = rit
                V(6) = totcop10
                V(7) = fre10
                ''calcolo dell'esito
                nu(1) = x
                If VerificaEsito(nu,ru,es + 1,1,50,,retEsito,retColpi,retestratti,retidestratti) Then
                    V(8) = retColpi
                Else
                    V(8) = ".."
                End If
                Call AddRigaTabella(V,,,1,,"Calibri")
                If V(5) >= max Then 'casella rit.att
                    Call SetColoreCella(4,3,1)
                    Call SetColoreCella(5,3,1)
                End If
                If V(8) <= clpMax Then 'casella esito
                    Call SetColoreCella(8,3,1)
                End If
            End If
        Next
        Call SetTableWidth("50%")
        If punti >= puntimin Then
            ColoreTesto 0
            Scrivi "New entry su: " & FormatSpace(NomeRuota(ruota),8) & " - a liv.ritardo: " & punti & " in Data estrazione: " & DataEstrazione(es),1,,,,2
            Call CreaTabella(5,1)
        End If
    Next
End Sub

solare · 29 Luglio 2015

ciao Claudio8,Interessante........puoi aggiungere la selezione ruota ?
Grazie

claudio8 · 29 Luglio 2015

solare;n1904782 ha scritto:
ciao Claudio8,Interessante........puoi aggiungere la selezione ruota ?
Grazie

c'è già scritta l'opzione,
alla riga: "ruota = 1 '......." cancella il testo " 1 ' " e lascia scritto "ruota = Cint ...." ....
però un tantino di vbscript bisognerebbe impararlo......

buona verifica.

Per Ilegend o Disaranno Secondo voi è fattibile

Advanced Member >PLATINUM<

Allegati

Advanced Member >PLATINUM<

Allegati

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Allegati

Advanced Member >PLATINUM PLUS<

Super Member >PLATINUM<

Super Member >PLATINUM<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Premium Member

Advanced Member >PLATINUM<

Advanced Premium Member

Advanced Member >PLATINUM<

Super Member >PLATINUM<

Premium Member

Advanced Member >PLATINUM<

Premium Member