presenze nelle decina naturale

claudio8 · 31 Marzo 2016

genios;n1967524 ha scritto:
Ottimo abbondante .Grazie tante Claudio8 avevo gia cambiato io il valore delle variabili in questo sono riuscito.Ti chiedo solamente di aggiungere allo script fatto in precedenza quello riguardante una sola decina solo nella riga

Codice:

[FONT=Courier New][SIZE=10px][COLOR=#000000][B]Totale presenze sotto la media nei cicli di 180/270/360 estrazioni[/B][/COLOR][/SIZE][/FONT]

- il numero di estrazione finale la data dell' estrazione finale quindi i numeri estratti nell' estrazione finale il totale presenze sotto la media nei cicli di 180/270/360 estrazioni
- e mettere in evidenza colorandolo in rosso il numero o i numeri della decina usciti se ci sono oppure evidenziare in rosso i due trattini se fosse uscito un numero della decina che non è in sottomedia
- quindi aggiungere il numero o i numeri della decina usciti nell' estrazione finale .
Sotto l' esempio di come dovrebbe essere out di quella riga con l' estrazione finale del 29 03 06 .E' uscito il numero 3 quindi vanno evidenziati i trattini corrispondenti al numero 3 in rosso .
Spero di non averti fatto una richiesta complicata .
Ci manca una richiesta di script caffettiera x un caffè (scherzo)

09148 ( errato-9140) 29/03/2016 71 55 84 30 03 -- 06 -- -- -- -- 14 -- 05 -- 03 questa specifica del 3 è errata perchè in corrispondenza del' fineestrazione non può esserci esito essendo la stessa fineestrazione in uso nella eleborazione.

Grazie di nuovo .
Ciao Eugenio

ti ho inserito qui lo script modificato come definito successivamente.

Codice:

 Sub Main
    Dim numero(1),ruota(1),dq360(10),dq270(10),dq180(10),anum(1)
    Dim dec,Inizio,fine,med,ciclo,clp,q,c,ric,specifiche,dq_tot
    ric = 100
    ruota(1) = BA_
    dec = 0
    specifiche = 0
    Scrivi "                  *****       Per Genios script 'lesson one' by  Claudio8       *****               "
    Scrivi
    For x = 1 To 10 'ciclo x scrittura dei numeri della Decina in output
        Scrivi Format2(x + dec) & " ",,0
    Next
    Scrivi "                  Decina  ->  " & dec & " - ricerca su " & ric & " estrazioni          ",1,,6,2
    For pre = ric To 0 Step - 1
        fine = EstrazioneFin - pre
        For ciclo = 180 To 360 Step 90 ' incrementa di 90 il ciclo
            If ciclo = 360 Then med = 20
            If ciclo = 270 Then med = 15
            If ciclo = 180 Then med = 10
            Inizio = EstrazioneFin - pre -(ciclo - 1) 'il valore del ciclo viene ridotto di una unità 180 -> 179 e così via
            For x = 1 To 10 'ciclo calcolo freq. dei numeri della Decina
                numero(1) = x + dec
                q = SerieFreqTurbo(Inizio,fine,numero,ruota,1) ' quantifico la freq
                If ciclo = 360 Then dq360(x) = med - q 'se...  riempio la Array "dq360" con tutti i valori di differenza alla media per il ciclo specifico
                If ciclo = 270 Then dq270(x) = med - q 'se...  riempio la Array "dq270"
                If ciclo = 180 Then dq180(x) = med - q 'se...  riempio la Array "dq180"
                ColoreTesto 0
                If specifiche = 1 Then Scrivi Format2(q) & " ",1,0
            Next
            If specifiche = 1 Then Scrivi " Valore di freq. 'q'"
            If ciclo = 180 Then
                For x = 1 To 10
                    If dq180(x) > 0 Then
                        If specifiche = 1 Then    Scrivi Format2(dq180(x)) & " ",1,0
                    Else
                        dq180(x) = 0 ' serve a = 0 il valore altrimenti nelle somme finali utilizza anche i valori negativi
                        If specifiche = 1 Then    Scrivi "--" & " ",1,0
                    End If
                Next
                If specifiche = 1 Then    Scrivi " presenze sotto la media di " & med & " in " & fine - Inizio + 1 & " estrazioni",1
                If specifiche = 1 Then    Scrivi ' riga vuota
            ElseIf ciclo = 270 Then
                For x = 1 To 10
                    If dq270(x) > 0 Then
                        If specifiche = 1 Then Scrivi Format2(dq270(x)) & " ",1,0
                    Else
                        dq270(x) = 0
                        If specifiche = 1 Then Scrivi "--" & " ",1,0
                    End If
                Next
                If specifiche = 1 Then Scrivi " presenze sotto la media di " & med & " in " & fine - Inizio + 1 & " estrazioni",1
                If specifiche = 1 Then Scrivi '
            ElseIf ciclo = 360 Then
                For x = 1 To 10
                    If dq360(x) > 0 Then
                        If specifiche = 1 Then    Scrivi Format2(dq360(x)) & " ",1,0
                    Else
                        dq360(x) = 0
                        If specifiche = 1 Then    Scrivi "--" & " ",1,0
                    End If
                Next
                If specifiche = 1 Then Scrivi " presenze sotto la media di " & med & " in " & fine - Inizio + 1 & " estrazioni",1
                If specifiche = 1 Then Scrivi
            End If
        Next 'Next cicli
        For x = 1 To 10
            dq_tot = dq180(x) + dq270(x) + dq360(x)
            If dq_tot > 0 Then
                ColoreTesto 2
                Scrivi Format2(dq_tot) & " ",1,0
            Else
                ColoreTesto 0
                Scrivi "--" & " ",,0
            End If
        Next
        ColoreTesto 0
        Scrivi " " & EstrazioneFin - pre & " " & DataEstrazione(fine) & "  Presenze tot. sotto media nei cicli 180/270/360 estr. Inizio = " & DataEstrazione(Inizio)
        For x = 1 To 10
            anum(1) = x +(dec)
            If VerificaEsitoTurbo(anum,ruota,fine,1,1,,,retcolpi) = True Then
                Scrivi FormatSpace((x),2,- 1) & " ",1,0,3,2
            Else
                Scrivi "--" & " ",1,0,3,0
            End If
        Next
        ColoreTesto 0
        Scrivi " [" & StringaEstratti(fine,ruota(1)) & "] estratti del " & DataEstrazione(fine),1
        'Scrivi ' serve x staccare l'output verde dalla successiva
    Next
End Sub

Saluti

claudio8 · 31 Marzo 2016

PS. il controllo del funzionamento e dei risultati spetta a te....

genios · 31 Marzo 2016

Funziona meravigliosamente Claudio8 . Ora in out dovrebbe comparire solo la riga seguente :

Codice:

 [FONT=Courier New][SIZE=2][COLOR=#000000]-- [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#ff0000][B]06 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000]-- [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000]-- [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000]-- [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000]-- [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#ff0000][B]14 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000]-- [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#ff0000][B]05 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000]-- [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000][B] 9139 26.03.2016 [61.88.70.85.83] Tot. presenze sotto media nei cicli 180/270/360 estrazioni[/B][/COLOR][/SIZE][/FONT]

Visto che i risultati della media in 180 270 e 360 estrazioni sono esatti occorre quindi togliere la funzione scrivi che stampa in out i valori sottomedia per ciascun ciclo di 180 270 360 estrazioni .E' poi importante evidenziare il numero della decina o il trattino come ti ho detto precedentemente che eventualmente siano usciti nell' estrazione finale .

Ciao Eugenio

claudio8 · 1 Aprile 2016

genios;n1967672 ha scritto:
Funziona meravigliosamente Claudio8 . Ora in out dovrebbe comparire solo la riga seguente :

Codice:

[FONT=Courier New][SIZE=10px][COLOR=#000000]-- [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#ff0000][B]06 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]-- [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]-- [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]-- [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]-- [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#ff0000][B]14 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]-- [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#ff0000][B]05 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]-- [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B] 9139 26.03.2016 [61.88.70.85.83] Tot. presenze sotto media nei cicli 180/270/360 estrazioni[/B][/COLOR][/SIZE][/FONT]

Visto che i risultati della media in 180 270 e 360 estrazioni sono esatti occorre quindi togliere la funzione scrivi che stampa in out i valori sottomedia per ciascun ciclo di 180 270 360 estrazioni .
E' poi importante evidenziare il numero della decina Lo trovi se non elimini quanto hai chiesto, diversamente sparisce o il trattino come ti ho detto precedentemente non serve se leggi i numeri colorati nella prima riga dopo quella verde e comunque occorrerebbe ampliare lo script ulteriormente che eventualmente siano usciti nell' estrazione finale .

Ciao Eugenio

Ti ho già scritto che l'estrazione finale sta nei calcoli quindi non ha senso verificarne l'esito della decina per l'estrazione finali.
Gli esiti x la successiva alla finale li trovi nella 1a riga dopo la verde.Se si colorano di rosso ci sono esiti altrimenti non ce ne sono.
Fai partire lo script così come è con fine archivio al 26/3/2016 e vedrai che il 3 uscito il 29/3/2016 ti apparirà colorato sotto la riga verde. Questo è il modo corretto x leggere gli esiti delle ricerche.
Se non sono stato chiaro chiedimi dello script, non di modificarlo ulteriormente.

Ciao. e studia spazioscript...

genios · 1 Aprile 2016

Scusami Claudio8 quello che tu dici è vero

Codice:

[B][COLOR=#0000FF]Ti ho già scritto che l'estrazione finale sta nei calcoli quindi non ha senso verificarne l'esito della decina per l'estrazione finali.[/COLOR][/B]

ma a me non serve verificare l' esito della decina per l' estrazione finale . Mi occorre evidenziare i numeri o i trattini se gli estratti della decina sono usciti nell' ultima estrazione In quanto nello script occorre mettere un ulteriore ciclo For next che dall' estrazione finale mi faccia lo scrolling fino ad esmpio estrazione finale - 100 e mi stampi in out 100 righe con i risultati dello script precedente .Per vedere come i numeri sottomedia si sono comportati .

Spero di essere stato chiaro .

Ciao grazie Eugenio

claudio8 · 1 Aprile 2016

genios;n1967711 ha scritto:
Scusami Claudio8 quello che tu dici è vero

Codice:

[B][COLOR=#0000FF]Ti ho già scritto che l'estrazione finale sta nei calcoli quindi non ha senso verificarne l'esito della decina per l'estrazione finali.[/COLOR][/B]

ma a me non serve verificare l' esito della decina per l' estrazione finale .
Mi occorre evidenziare i numeri o i trattini se gli estratti della decina sono usciti nell' ultima estrazione in quanto nello script occorre mettere un ulteriore ciclo For next che dall' estrazione finale mi faccia lo scrolling fino ad esmpio estrazione finale - 100 e mi stampi in out 100 righe con i risultati dello script precedente .Per vedere come i numeri sottomedia si sono comportati .

Spero di essere stato chiaro .

Ciao grazie Eugenio

non mi è chiaro, fai qualche esempio .
Ciao

i legend · 1 Aprile 2016

Ciao Claudio ciao genio

Per media intendete presenza teorica?
Per calcolare bene la distribuzione non si dovrebbe calcolare la copertura per ciclo?
Es per spiegarmi meglio se nell arco delle di 360 estrazioni un numero è uscirò 6 volte in 9 estrazioni è come se avesse coperto 6 cicli. Ossia 6×18=108 estrazioni. Ma magari è assente per 5 cicli.
Qual è il criterio per interpretare gli output?

Genio scusa se chiedo ma non ti avevo fatto già fatto uno script per le decine?
O forse era per un altro utente ?. In ogni caso
Purtroppo non avendo più il pc non posso recuperarlo ma dovrebbe essere sul forum.
Forse potrebbe essere interessante per i vostri studi, ma non ricordo bene.
Ciao

genios · 1 Aprile 2016

Per Claudio8 ecco l esempio :

HTML:

-- 06 -- -- -- -- 14 01 05 -- 9133 12.03.2016 [86.69.79.81.22] Tot. presenze sotto media nei cicli 180/270/360 estrazioni

-- 06 -- -- -- -- 14 -- 05 -- 9134 15.03.2016 [32.40.53.20.08] Tot. presenze sotto media nei cicli 180/270/360 estrazioni

-- 06 -- -- -- -- 14 -- 05 -- 9135 17.03.2016 [83.29.23.24.59] Tot. presenze sotto media nei cicli 180/270/360 estrazioni

-- 06 -- -- -- -- 14 -- 05 -- 9136 19.03.2016 [44.56.69.61.32] Tot. presenze sotto media nei cicli 180/270/360 estrazioni

-- 06 -- -- -- -- 14 -- 05 -- 9137 22.03.2016 [21.05.65.52.88] Tot. presenze sotto media nei cicli 180/270/360 estrazioni

-- 06 -- -- -- -- 14 -- 05 -- 9138 24.03.2016 [52.76.55.86.67] Tot. presenze sotto media nei cicli 180/270/360 estrazioni

-- 06 -- -- -- -- 14 -- 05 -- 9139 26.03.2016 [61.88.70.85.83] Tot. presenze sotto media nei cicli 180/270/360 estrazioni

-- 06 -- -- -- -- 14 -- 05 -- 9140 29.03.2016 [71.55.84.30.03] Tot. presenze sotto media nei cicli 180/270/360 estrazioni

-- 06 -- -- -- -- 14 -- 05 -- 9141 31.03.2016 [79.38.71.31.13] Tot. presenze sotto media nei cicli 180/270/360 estrazioni

Per i legend

Per media intendete presenza teorica?

Si .

[Per calcolare bene la distribuzione non si dovrebbe calcolare la copertura per ciclo?/QUOTE]

il prossimo script lo studieremo per cicli quasi come hai interpretato tu .

Genio scusa se chiedo ma non ti avevo fatto già fatto uno script per le decine?

Clicca per espandere...

Si i legend mi hai fatto lo script sulle decine ma l' analisi partiva da altri presupposti .

Ciao Claudio8 ciao i legend

Eugenio

claudio8 · 1 Aprile 2016

genios;n1967869 ha scritto:

Per Claudio8 ecco l esempio :

HTML:

-- 06 -- -- -- -- 14 01 05 -- 9133 12.03.2016 [86.69.79.81.22] Tot. presenze sotto media nei cicli 180/270/360 estrazioni

-- 06 -- -- -- -- 14 -- 05 -- 9134 15.03.2016 [32.40.53.20.08] Tot. presenze sotto media nei cicli 180/270/360 estrazioni

-- 06 -- -- -- -- 14 -- 05 -- 9135 17.03.2016 [83.29.23.24.59] Tot. presenze sotto media nei cicli 180/270/360 estrazioni

-- 06 -- -- -- -- 14 -- 05 -- 9136 19.03.2016 [44.56.69.61.32] Tot. presenze sotto media nei cicli 180/270/360 estrazioni

-- 06 -- -- -- -- 14 -- 05 -- 9137 22.03.2016 [21.05.65.52.88] Tot. presenze sotto media nei cicli 180/270/360 estrazioni

-- 06 -- -- -- -- 14 -- 05 -- 9138 24.03.2016 [52.76.55.86.67] Tot. presenze sotto media nei cicli 180/270/360 estrazioni

-- 06 -- -- -- -- 14 -- 05 -- 9139 26.03.2016 [61.88.70.85.83] Tot. presenze sotto media nei cicli 180/270/360 estrazioni

-- 06 -- -- -- -- 14 -- 05 -- 9140 29.03.2016 [71.55.84.30.03] Tot. presenze sotto media nei cicli 180/270/360 estrazioni

-- 06 -- -- -- -- 14 -- 05 -- 9141 31.03.2016 [79.38.71.31.13] Tot. presenze sotto media nei cicli 180/270/360 estrazioni

Eugenio

Vedo che lo hai fatto autonomamente quindi è tutto ok meno male.
Ciao

genios · 1 Aprile 2016

Claudio8 non l' ho fatto autonomamente o solo tolto da estrazioneFin -1 poi -2 poi -3 e cosi via, se hai tempo e voglia aggiungi tu il ciclo for next su EstrazioneFin e oscura la funzione scrivi dei cicli 360 270 180 non vorrei rovinare il magnifico script che hai fatto .

Ciao Eugenio

claudio8 · 1 Aprile 2016

così ti va bene :

genios · 2 Aprile 2016

Perfetto Claudio8 .

ciao Eugenio
--

claudio8 · 2 Aprile 2016

genios;n1967965 ha scritto:
Perfetto Claudio8 .

ciao Eugenio
--

Inserito script definitivo al post 21

genios · 2 Aprile 2016

Grazie tante Claudio8 lo script è fantastico . Non sarei mai riuscito a farlo .Quando hai del tempo sviluppalo per i numeri in sopra-media . Nel senso dei numeri che nei tre cicli hanno superato il valore medio di 20 15 e 10 estrazioni .

Grazie di nuovo

Eugenio

claudio8 · 3 Aprile 2016

genios;n1968175 ha scritto:
Grazie tante Claudio8 lo script è fantastico . Non sarei mai riuscito a farlo .Quando hai del tempo sviluppalo per i numeri in sopra-media . Nel senso dei numeri che nei tre cicli hanno superato il valore medio di 20 15 e 10 estrazioni .

Grazie di nuovo

Eugenio

Caro genios, cancella il vecchio e prendi il nuovo, c'era un errore .
Non chiedermi di "spostare le virgole", impegnati a leggere/capire lo script, vedrai che la differenza tra quello esistente e quello che vuoi, non è difficile da capire e sicuramente lo modificherai da solo.
Buon studio
Un saluto

genios · 4 Aprile 2016

Proverò' se riesco a capire dove vanno fatte le modifiche .

Ciao Eugenio

genios · 6 Aprile 2016

Claudio8 e forse qui l' arcano ?

Codice:

 q = SerieFreqTurbo(Inizio,fine,numero,ruota,1) ' quantifico la freq
                If ciclo = 360 Then dq360(x) = -med + q 'se...  riempio la Array "dq360" con tutti i valori di differenza alla media per il ciclo specifico
                If ciclo = 270 Then dq270(x) = -med + q 'se...  riempio la Array "dq270"
                If ciclo = 180 Then dq180(x) = -med + q 'se...  riempio la Array "dq180"

Ciao Eugenio

claudio8 · 7 Aprile 2016

Genios, non c'è niente di "arcano" è tutto scritto nello script......

Bravo... il calcolo è esatto, ma andrebbe visto così : = q-med per mantenere la stessa logica di ragionamento applicata precedentemente.
Forse non ti sei accorto ma ti avevo inserito un "if " x poter contriollare visivamente se lo script elabora correttamente ciò che desideri.
Ricordati di cambiare il testo "sotto" con "sopra".

Un saluto

genios · 7 Aprile 2016

Sotto sopra gia fatto .

Codice:

Forse non ti sei accorto ma ti avevo inserito un "if " x poter contriollare visivamente se lo script elabora correttamente ciò che desideri.

L' IF di cui parli sta nell' ultimo script postato o in quelli prima ? .

qual' e la riga che evidenzia lo sfondo in verde ?

Ciao Eugenio

claudio8 · 7 Aprile 2016

genios;n1969257 ha scritto:
Sotto sopra gia fatto .

Codice:

Forse non ti sei accorto ma ti avevo inserito un "if " x poter contriollare visivamente se lo script elabora correttamente ciò che desideri.

L' IF di cui parli sta nell' ultimo script postato o in quelli prima ? . ?????? come farai senza un traduttore? .....

qual' e la riga che evidenzia lo sfondo in verde ? è una riga con "Scrivi". Apri l'help e lo capirai.

Ciao Eugenio

ciao

presenze nelle decina naturale

Premium Member

Premium Member

Advanced Member >PLATINUM<

Premium Member

Advanced Member >PLATINUM<

Premium Member

Premium Member

Advanced Member >PLATINUM<

Premium Member

Advanced Member >PLATINUM<

Premium Member

Advanced Member >PLATINUM<

Premium Member

Advanced Member >PLATINUM<

Premium Member

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Premium Member

Advanced Member >PLATINUM<

Premium Member