Controllo ultime 18 estrazioni estratti non ripetuti

[Cinzia27]

Ciao, Joe e Oracolotto.
Ho controllato facendo girare su Spaziometria e l'altro programma, le presenze oltre l'estrazione di riferimento del 66 su GE sono 5, come nello schema di Joe.
Ho fatto un breve controllo sui numeri non ripetuti e mi sembra a posto.
Però se trovate che c'è qualcosa che non va fatemi sapere.

Per Oracolotto: ho modificato lo script come da tua indicazione.


[/CODE]

'Ricerca Oracolotto : estratti CS non ripetuti nelle successive 17 estrazioni
'ed estratti ripetuti  per >2 volte nelle successive 17 estrazioni, quelli con rt attuale
'quelli con rt>5 e rt<16 evidenziati
'2° versione
 
Sub main()
Dim ru(1),n(1)
s=17 'Imposta l'estrazione di riferimento
Scrivi EstrazioneFin-s&" "&EstrazioneFin
ScriviEstrazione(EstrazioneFin-s)
Scrivi
Scrivi "Estratti non ripetuti"
For r=1 To 11
If r=11 Then r=12
ru(1)=r
Scrivi
con=0
For i=1 To 90
n(1)=i
fr=SerieFreq(EstrazioneFin-s,EstrazioneFin-s,n,ru,1)
    If fr>0 Then
        fr1=SerieFreq(EstrazioneFin-s+1,EstrazioneFin,n,ru,1)
        If fr1=0 Then
        con=con +1
        ri= FormatSpace(con,2,1)&" "&siglaruota(r)&" "&format2(n(1))
        Scrivi ri
        End If

    End If
Next
Next
'===========================================================
Scrivi String(90,"=")
Scrivi "Estratti ripetuti per >2 volte (in grassetto quelli con rt>5 e rt<16)"
For r=1 To 11
If r=11 Then r=12

ru(1)=r
Scrivi
con1=0
For i=1 To 90
n(1)=i
fr=SerieFreq(EstrazioneFin-s,EstrazioneFin-s,n,ru,1)
    If fr>0 Then
        fr1=SerieFreq(EstrazioneFin-s+1,EstrazioneFin,n,ru,1)
        If fr1>2 Then
        con1=con1 +1
         rt=SerieRitardo(EstrazioneFin-s+1,EstrazioneFin,n,ru,1)
        ri= FormatSpace(con1,1)&" "&siglaruota(r)&" N. "&format2(n(1))&" ---> volte "&fr1&" rt "&rt
If (rt>5 And rt<16)  Then Scrivi ri    ,1 Else Scrivi ri
End If
End If
Next
Next

End Sub

 

[oracolotto]

Ciao, Joe e Oracolotto.
Ho controllato facendo girare su Spaziometria e l'altro programma, le presenze oltre l'estrazione di riferimento del 66 su GE sono 5, come nello schema di Joe.
Ho fatto un breve controllo sui numeri non ripetuti e mi sembra a posto.
Però se trovate che c'è qualcosa che non va fatemi sapere.

Per Oracolotto: ho modificato lo script come da tua indicazione.


[/CODE]

'Ricerca Oracolotto : estratti CS non ripetuti nelle successive 17 estrazioni
'ed estratti ripetuti  per >2 volte nelle successive 17 estrazioni, quelli con rt attuale
'quelli con rt>5 e rt<16 evidenziati
'2° versione
 
Sub main()
Dim ru(1),n(1)
s=17 'Imposta l'estrazione di riferimento
Scrivi EstrazioneFin-s&" "&EstrazioneFin
ScriviEstrazione(EstrazioneFin-s)
Scrivi
Scrivi "Estratti non ripetuti"
For r=1 To 11
If r=11 Then r=12
ru(1)=r
Scrivi
con=0
For i=1 To 90
n(1)=i
fr=SerieFreq(EstrazioneFin-s,EstrazioneFin-s,n,ru,1)
    If fr>0 Then
        fr1=SerieFreq(EstrazioneFin-s+1,EstrazioneFin,n,ru,1)
        If fr1=0 Then
        con=con +1
        ri= FormatSpace(con,2,1)&" "&siglaruota(r)&" "&format2(n(1))
        Scrivi ri
        End If

    End If
Next
Next
'===========================================================
Scrivi String(90,"=")
Scrivi "Estratti ripetuti per >2 volte (in grassetto quelli con rt>5 e rt<16)"
For r=1 To 11
If r=11 Then r=12

ru(1)=r
Scrivi
con1=0
For i=1 To 90
n(1)=i
fr=SerieFreq(EstrazioneFin-s,EstrazioneFin-s,n,ru,1)
    If fr>0 Then
        fr1=SerieFreq(EstrazioneFin-s+1,EstrazioneFin,n,ru,1)
        If fr1>2 Then
        con1=con1 +1
         rt=SerieRitardo(EstrazioneFin-s+1,EstrazioneFin,n,ru,1)
        ri= FormatSpace(con1,1)&" "&siglaruota(r)&" N. "&format2(n(1))&" ---> volte "&fr1&" rt "&rt
If (rt>5 And rt<16)  Then Scrivi ri    ,1 Else Scrivi ri
End If
End If
Next
Next

End Sub

Grazie Cinzia per la modifica.

Per quanto riguarda le presenze su Ge io le ho contate manualmente dal 26/6 al 25/7 e sono 6 e Reacher ha modificato il precedente script ed adesso porta 6 presenze.

Anche lo screenshot di joe porta 66 (6) se 6 sono le presenze.

Forse non viene conteggiata la prima presenza del 26/6 o l'ultima del 25/7 ?

Comunque è una pignoleria che possiamo non perderci tempo più di tanto.

Saluti.

 

[joe]

Ho confrontato le estrazioni del mio archivio, con quelle scaricabili

da questo Sito, cioè da LottoCed e sono uguali.

Pertanto ci sono 6 Presenze del 66 a Genova in quelle 18 Estrazioni.

Il problema è nell' errore di logica nel ritenere che una Estrazione sia la Zero.

Dunque come scrive Cinzia dopo la "17" ne rimangono solo 17 reali e quella presenza a RC 17 scompare.

È la ragione per cui avevo chiesto di risolvere

Indicando con un esempio, come dovesse venire intenso quel 18.

Perché conoscendo il plagio introdotto dalle vecchie teorie

era probabile che vi potessero essere ambiguità.

 

[Cinzia27]

Ciao, Oracolotto e Joe.
Mi pare che si parlasse di ripetizioni e non di presenze.
Se si conta anche il 66 di GE dell'estrazione di riferimento, ovviamente le presenze sono 6 anche per me.
Dipende da che cosa si vuole.

 

[oracolotto]

Scusa Cinzia, quindi per raccordarmi al tuo inciso e per essere precisi 6 presenze e 5 ripetizioni

 

[Cinzia27]

Ciao, Oracolotto.
Allora si prescinde dai 5 numeri usciti nella 18° estrazione a ritroso e si visualizzano i numeri che semplicemente
sono usciti almeno 3 volte nelle ultime 18 estrazioni ( e che potrebbero anche non essere usciti per nulla nella 18° estrazione a ritroso) evidenziando il rt tra 6 e 15 . Se mi dai conferma provo a modificarlo.

 

[oracolotto]

Ciao, Oracolotto.
Allora si prescinde dai 5 numeri usciti nella 18° estrazione a ritroso e si visualizzano i numeri che semplicemente
sono usciti almeno 3 volte nelle ultime 18 estrazioni ( e che potrebbero anche non essere usciti per nulla nella 18° estrazione a ritroso) evidenziando il rt tra 6 e 15 . Se mi dai conferma provo a modificarlo.

Dai proviamo così, poi se hai qualche altra idea in merito puoi ulteriormente proporla e metterla nello script.

Geazie

 

[salva 57]

Ma tutto questo riassumendo, a cosa serve ,

 

[salva 57]

E quindi cosa giochiamo ,i numeri che ritardano almeno 6 estrazioni?