X luigi

i legend · 22 Settembre 2015

Ciao luigi forse c'è un bug.
Ho la versione 1.5.4
Modulo spia.
Se inserisco formazione e numero limitato di casi
Mi risultano errate sia le presenze che le percentuali.
Le presenze si riferiscono alla frequenza di un numero ; le % dovrebbero riferirsi ai casi coperti.
Non riesco a portarti lo script ma non credo sia errato.
Grazie fammi sapere. Ma con calma.ora sei impegnato con i sistemi virtuali.
Ciao:

LuigiB · 22 Settembre 2015

ciao legend purtroppo senza script non poss certo vedere il problema .. quello che è sicuro è che se ci fossero errori cosi macroscopiici sulle funzioni statistiche me lo avrebebro gia segnalato.

i legend · 22 Settembre 2015

Codice:

'Per allineare  i valori bisogna scrivere un caso in meno
' ho considerato  15 casi il modulo  14
'Le % sono errate  perché  dovrebbero  riferirsi  ai casi  coperti. 
Sub Main
Dim idestr, Pres, ruota, Num1,num2
Dim aNum  (1),aRuota  (1)
Ruota =1
Num1=3
Num2=53
aRuota  (1)=ruota 
'aNum  (1)=59
'ANum  (1)=60
ANum  (1) = 61
For  idestr=4135  To  estrazionefin 
If isNumeroPresenteInEstrazione (idestr, ruota, Num1,0) Then 
If   isNumeroPresenteInEstrazione (idestr, ruota, Num2,0) Then 
Caso=caso + 1 
Frq=serieFreqTurbo (idestr +1,idestr+9,aNum, aRuota, 1)
If frq>0 Then  pres =pres +1
FreqT=FreqT +frq 
Scrivi format 2 (caso)&"      Data  : "&idestr &" Numero"&aNum  (1)&"     frq:"& frq
End  if 
End if 
Next 
Scrivi "FreqT = "&FreqT 
Scrivi  " pres ="&pres
Scrivi  "% positivi = "&round  ((pres/caso),2)*100&"%"
End  sub

Ciao luigi se lo script va bene e coincide con i risultati dEl modulo spia o gli archivi sbagliati
Ciao

i legend · 22 Settembre 2015

L esempio ha dato amata a colpo

i legend · 23 Settembre 2015

Qualche anima pia potrebbe lanciare lo script o controllare risultati del modulo spia di spaziometria ?se ci fosse un bug sarebbe un peccato Per il programma .se io avessi gli archivi corrotti sarebbe un peccato per me

.
Joe Mike potreste controllare Oi con un vostro script?
Ciao a tutti.
P.s
Se qualcuno ha altri software in grado di fare la ricerca potrebbe postare i risultati?
Luigi se sto sbagliando , come probabile che sia ti chiedo scusa.

silop2005 · 23 Settembre 2015

[TABLE="border: 0, cellpadding: 0, cellspacing: 0, width: 711"]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD] [/TD]
[/TR]
[TR]
[TD]Ciao i legend ,[/TD]
[/TR]
[TR]
[TD]questo è il risultato del tuo script con le mie estrazioni :[/TD]
[/TR]
[TR]
[TD]01 Data : 4135 Numero61 frq:3[/TD]
[/TR]
[TR]
[TD]02 Data : 4354 Numero61 frq:0[/TD]
[/TR]
[TR]
[TD]03 Data : 4575 Numero61 frq:0[/TD]
[/TR]
[TR]
[TD]04 Data : 4706 Numero61 frq:0[/TD]
[/TR]
[TR]
[TD]05 Data : 5264 Numero61 frq:3[/TD]
[/TR]
[TR]
[TD]06 Data : 6374 Numero61 frq:2[/TD]
[/TR]
[TR]
[TD]07 Data : 6522 Numero61 frq:1[/TD]
[/TR]
[TR]
[TD]08 Data : 7114 Numero61 frq:0[/TD]
[/TR]
[TR]
[TD]09 Data : 7431 Numero61 frq:0[/TD]
[/TR]
[TR]
[TD]10 Data : 7896 Numero61 frq:0[/TD]
[/TR]
[TR]
[TD]11 Data : 8412 Numero61 frq:1[/TD]
[/TR]
[TR]
[TD]12 Data : 8610 Numero61 frq:1[/TD]
[/TR]
[TR]
[TD]13 Data : 8694 Numero61 frq:0[/TD]
[/TR]
[TR]
[TD]14 Data : 8805 Numero61 frq:1[/TD]
[/TR]
[TR]
[TD]15 Data : 9056 Numero61 frq:0[/TD]
[/TR]
[TR]
[TD]FreqT = 12[/TD]
[/TR]
[TR]
[TD] pres =7[/TD]
[/TR]
[TR]
[TD]% positivi = 47%[/TD]
[/TR]
[TR]
[TD] [/TD]
[/TR]
[TR]
[TD]==================[/TD]
[/TR]
[TR]
[TD]cosi puoi controllare se le estrazioni tue sono giuste, altro non so (sulle spie).[/TD]
[/TR]
[TR]
[TD]====================== [/TD]
[/TR]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD]Buona giornata a tutti.[/TD]
[/TR]
[TR]
[TD]A presto [/TD]
[/TR]
[TR]
[TD]Silop

[/TD]
[/TR]
[/TABLE]

i legend · 23 Settembre 2015

Ok grazie silop
I risultati coincidono.
Le % del modulo e il numero dei casi sono diversi con i miei risultati. Adesso vediamo come li intende luigi forse è solo diversa l interpretazione.
Ciao.

silop2005 · 23 Settembre 2015

[TABLE="border: 0, cellpadding: 0, cellspacing: 0, width: 711"]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD] [/TD]
[/TR]
[TR]
[TD]Ciao disaronno ,[/TD]
[/TR]
[TR]
[TD]perché nell'ultima riga, la 15^, hai il file 9061 ?[/TD]
[/TR]
[TR]
[TD]se le estrazioni alla data del 22/09/2015 sono 9059 ?[/TD]
[/TR]
[TR]
[TD]====================== [/TD]
[/TR]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD]Buona giornata a tutti.[/TD]
[/TR]
[TR]
[TD]A presto [/TD]
[/TR]
[TR]
[TD]Silop

[/TD]
[/TR]
[/TABLE]

LuigiB · 23 Settembre 2015

.
questo è il mio output

free image hosting

e questo il mio script ...

era una scusa per farmelo fare ?

Codice:

Option Explicit
Sub Main
    
    
    Dim idEstr,k,e,nSpia
    Dim Rt
    Dim nEntroColpi
    
    
    Rt = BA_
    nEntroColpi = 3
    
    ReDim aPresenze(90,90)
    For idEstr = EstrazioneIni To EstrazioneFin
        For e = 1 To 5
            nSpia = Estratto(idEstr,Rt,e)
            Call AlimantaQPresenze(nSpia,aPresenze,idEstr + 1,idEstr + nEntroColpi,Rt)
        Next
        Call AvanzamentoElab(EstrazioneIni,EstrazioneFin,idEstr)
        If ScriptInterrotto Then Exit For
    Next
    
    ReDim aV(91)
    aV(1) = "N."
    For k = 2 To 91
         aV(k) = "Num " & k-1
    Next
    
    Call InitTabella(aV)
    
    For k = 1 To 1
        ReDim aV(91)
        aV(1) = k
        For e = 1 To 90
            aV(e+1) = aPresenze(k,e)
        Next
        Call AddRigaTabella(aV)
        Call AvanzamentoElab(1,90,k)
        If ScriptInterrotto Then Exit For

    Next
    
    Call CreaTabella
    
    
End Sub
Sub AlimantaQPresenze(nSpia,aPresenze,Inizio,fine,Rt)
    
    Dim idestr,e,n
    
    For idestr = Inizio To fine
        For e = 1 To 5
            n = Estratto(idestr,Rt,e)    
            aPresenze(nSpia,n) = aPresenze(nSpia,n) + 1    
        Next
    Next

End Sub

LuigiB · 23 Settembre 2015

anche usando la funzioen formazioni spia e usando come formazione il semplice numero 1 pae funzionare

image share

fose qualche problema con piu numeri ? bho .. mo controllo pure quello

LuigiB · 23 Settembre 2015

testato con apposito script derivato dal precedente la formazione 1-2 con presenza minima 1
anche cosi a me combacia tutto

url immagine

Codice:

Option Explicit
Sub Main
    Dim idEstr,k,e,nSpia
    Dim Rt
    Dim nEntroColpi
    Dim aFrzSpia(2)
    Dim nPuntiMinSuFrz
    Dim p
    
    aFrzSpia(1) = 1
    aFrzSpia(2) = 2
    Rt = BA_
    nEntroColpi = 3
    
    nPuntiMinSuFrz = 1
    
    ReDim aPresenze(90)
    For idEstr = EstrazioneIni To EstrazioneFin
        p = 0
        For e = 1 To UBound(aFrzSpia)
            If IsNumeroPresenteInEstrazione(idEstr,Rt,aFrzSpia(e),0) Then
                p = p + 1
            End If
        Next
        If p >= nPuntiMinSuFrz Then
            Call AlimantaQPresenze(aPresenze,idEstr + 1,idEstr + nEntroColpi,Rt)
        End If
        Call AvanzamentoElab(EstrazioneIni,EstrazioneFin,idEstr)
        If ScriptInterrotto Then Exit For
    Next
    ReDim aV(90)
    For k = 1 To 90
        aV(k) = "Num " & k
    Next
    Call InitTabella(aV)
    ReDim aV(90)
    For e = 1 To 90
        aV(e) = aPresenze(e)
    Next
    Call AddRigaTabella(aV)
    Call CreaTabella
End Sub
Sub AlimantaQPresenze(aPresenze,Inizio,fine,Rt)
    Dim idestr,e,n
    For idestr = Inizio To fine
        For e = 1 To 5
            n = Estratto(idestr,Rt,e)
            aPresenze(n) = aPresenze(n) + 1
        Next
    Next
End Sub

i legend · 23 Settembre 2015

Ciao luigi, leggere i tuoi a
Script è una gioia ma non era una scusa.potresti provare ad inserire la spunta su ultimi n colpi?
Non capisco perché dia risultati diversi. Il mio script è sbagliato?invece il discorso sulle percentuali forse le conteggiato diversamente. Tu fai una percentuale sulla frequenza.invece andrebbe fatta sulla presenza.ma se l hai pensata così va bene, se altri vogliono esprimersi sarebbe utile. Ciao

Un saluto a disaronno

Scusami non avevo letto il tuo intervento.
Grazie anche a te.

LuigiB · 23 Settembre 2015

testato con altro apposito script sempre derivato dal primo .. anche qui combacia.

free image hosting

Codice:

Option Explicit
Sub Main
    
    
    Dim idEstr,k,e,nSpia
    Dim Rt
    Dim nEntroColpi
    Dim nUltimiCasi
    
    Rt = BA_
    nEntroColpi = 3
    nUltimiCasi  = 5
    ReDim aCasi(90)
    
    
    
    ReDim aPresenze(90,90)
    For idEstr =    EstrazioneFin To EstrazioneIni Step -1
        For e = 1 To 5
            nSpia = Estratto(idEstr,Rt,e)
            
            If aCasi(nSpia) < nUltimiCasi Then
                aCasi(nSpia) =aCasi(nSpia) +1
                Call AlimantaQPresenze(nSpia,aPresenze,idEstr + 1,idEstr + nEntroColpi,Rt)
            End If
        Next
        Call AvanzamentoElab(EstrazioneIni,EstrazioneFin,idEstr)
        If ScriptInterrotto Then Exit For
    Next
    
    ReDim aV(91)
    aV(1) = "N."
    For k = 2 To 91
         aV(k) = "Num " & k - 1
    Next
    
    Call InitTabella(aV)
    
    For k = 1 To 1
        ReDim aV(91)
        aV(1) = k
        For e = 1 To 90
            aV(e + 1) = Iif( Int(aPresenze(k,e))>0 ,aPresenze(k,e),0)
        Next
        Call AddRigaTabella(aV)
        Call AvanzamentoElab(1,90,k)
        If ScriptInterrotto Then Exit For

    Next
    
    Call CreaTabella
    
    
End Sub
Sub AlimantaQPresenze(nSpia,aPresenze,Inizio,fine,Rt)
    
    Dim idestr,e,n
    
    For idestr = Inizio To fine
        For e = 1 To 5
            n = Estratto(idestr,Rt,e)    
            aPresenze(nSpia,n) = aPresenze(nSpia,n) + 1    
        Next
    Next

End Sub

i legend · 23 Settembre 2015

Ultimi 5 casi num 1 a Bari.
9024 : 1 in prima pos
Estrazione 9027 num 1 in 5 pos. Poi
9027 neg
9039 neg
9043 neg
9059 neg
Presenze 1 non zero.
Ho controllato .
Sicuramente ho gli archivi sbagliati.
Scusa luigi se ti ho fatto perdere tempo.
Ciao a tutti.

LuigiB · 23 Settembre 2015

Non ti preoccupoare Legend per fare lo script ci ho messo pochi minuti ... quindi si è tutto risolto ora ? ciao

LuigiB · 23 Settembre 2015

in ogni caso il mio script sul tuop pc deve per forza combaciare con l'output del modulo spia , poi il tuo script se non riporta quegli stessi valori allora ha qualcosa che non va .. a prescindere che tu abbia l'archivio giusto omeno questo test indica comunque la situazione

ciao

i legend · 23 Settembre 2015

Ok.lo copio e ti faccio sapere.
Grazie ancora.
Era impossibile che ci fosse un bug.
Grazie

i legend · 24 Settembre 2015

Ciao luigi purtroppo non posso postare le foto.
Ricerca :
Ruota :bari
Num: 73
Pos:1
Casi:ultimi 14
Spie luigi:
Num : 4 ;pres:13;%92.86
Num :20;pres:13;%92.86
Num :59;pred:13%85.71
Con script di Joe
Script mio
Foglio di calcolo
Num :4 pres:13% 50
Num :5 pres:12%57
Num:61pres:12%71.42

Luigi non so perché ma ho questi risultati,
So che tu non sbagli,
Forse sono io che sbaglio le imposta ma ho studiato il tuo script e le ricerche collimano.
Se nessuno interviene a confermare o smentire
Mi fermo qui.penso sia utile per tutti e molti hanno almeno più di un software per fare confronti.
Mi spiace davvero romperti le scatole.
Il tuo script li studiato devo ancora scriverlo sul pc

Ciao a tutti

Joe91 · 24 Settembre 2015

Ciao I legend, buona giornata a tutte/i.

...ho letto per sommi capi ... e non ho capito a quale mio script ti riferisci ...

quindi dovresti mettermi nelle condizioni di capire esattamente quale script è

e quali sono le condizioni e/o settaggi e quali sono le differenze ...

cosicchè si possa individuare eventuali errori.

i legend · 24 Settembre 2015

Ciao joe lo script è molto lungo
Sto postando con cellulare
Lo script richiede ruota
Estratto pos e restituisce estratti abbia ruota ambi a tutte.
Titolo:
Presenze dopo spia rev 1.2 by joe del 28/11/2014
Lo ha postato un utente su lottoced.
Grazie joe

X luigi

Premium Member

LuigiB

Guest

Premium Member

Premium Member

Premium Member

Advanced Member >PLATINUM<

Premium Member

Advanced Member >PLATINUM<

LuigiB

Guest

LuigiB

Guest

LuigiB

Guest

Premium Member

LuigiB

Guest

Premium Member

LuigiB

Guest

LuigiB

Guest

Premium Member

Premium Member

Advanced Member >PLATINUM PLUS<

Premium Member