Novità

La migliore ambata

ESEMPIO:
SPIA1 USCITA SU BARI (A)
NELLE ULTIME 3000 ESTRAZIONI ENTRO 6 COLPI NUMERO + PRESENTE 82 (SPIA2-B)

SPIA1 1 (A) SEGUITA(ENTRO 6 COLPI) DA SPIA2 82(B)
NELLE ULTIME 3000 ESTRAZIONI ENTRO 6 COLPI NUMERO + X (AMBATA C)

30.08.2022 Ba 01-->> SPIA 1
06.09.2022 Ba 82-->> SPIA 2
----------------------------------
30.08.2022 Ba 01-->> SPIA 1
08.09.2022 Ba 82-->> SPIA 2
----------------------------------
03.12.2022 Ba 01-->> SPIA 1
15.12.2022 Ba 82-->> SPIA 2
----------------------------------
28.02.2023 Ba 01-->> SPIA 1
02.03.2023 Ba 82-->> SPIA 2
----------------------------------
04.07.2023 Ba 01-->> SPIA 1
13.07.2023 Ba 82-->> SPIA 2
----------------------------------
04.08.2023 Ba 01-->> SPIA 1
11.08.2023 Ba 82-->> SPIA 2
----------------------------------
 
Cinzia27 ha scritto:
L'estrazione iniziale è sempre estrazionefin-3000? Perché se si cambia, il numero più presente può essere diverso.

L'ordine cronologico c'è
Infatti, nella stessa riga la prima data e n. di estrazione sono quelle della sortita della spia, la seconda data e n. di estrazione sono quelle della sortita del numero spiato.
Poi segue la seconda riga che ha valore cronologico successivo e così via.
Clicca per espandere...
si 3000
 
herat ha scritto:
A entro 6 colpi genera B
AB entro 6 colpi generano C
Clicca per espandere...
Scusa, Herat, il problema mi sembra sul secondo punto, AB entro 6 colpi generano C
ma questi A e B che sarebbero spia1 e spia2 dove devono stare, insieme no ( formerebbero un ambo) e allora come?
ps: ho aggiunto un piccolo spazio tra una parola e l'altra nello script
 
Ciao Cinzia da perfetta incompetente di script,( ti chiedo scusa se mi sono permessa di lavorare sul tuo script) ho cercato di fare delle modifiche e l output della Spia1/Spia2 mi sembra che dia il giusto riscontro ma evidenzia solo -ultimo caso e non riesco a capire come fargli leggere tutti i casi

------------------------------------------------------------------------------------------------------------------------
SPIA 1 E SPIA 2
------------------------------------------------------------------------------------------------------------------------
1) 03.08.2023 10281 12.08.2023 10282 spia1 1e spia2 82 n. uscito 5
1) 03.08.2023 10281 12.08.2023 10282 spia1 1e spia2 82 n. uscito 59
1) 03.08.2023 10281 12.08.2023 10282 spia1 1e spia2 82 n. uscito 70
1) 03.08.2023 10281 12.08.2023 10282 spia1 1e spia2 82 n. uscito 83
1) 03.08.2023 10281 12.08.2023 10282 spia1 1e spia2 82 n. uscito 89

Nelle 6 estrazioni successive alla sortita di spia1 1 e di spia2 82 il numero che si è presentato più volte è 05 con 1 presenze


Codice: 
'Per Herat - Spia1 (principale) e spia2 ( costituita dal numero con più presenze dopo l'uscita della spia1)-Cinzia27
'viene conteggiata la prima presenza nelle 6 estrazioni
Sub Main()
Dim ru(1),n(1),n1(1)
r = 1
ru(1) = r
Scrivi String(120,"-")
Scrivi "      SPIA 1"
Scrivi String(120,"-")
Ini = EstrazioneFin - 3000
fin = EstrazioneFin - 6

i = 1 'Inserisci la spia1
For i1 = 1 To 90
con = 0
For es = Ini To fin
If es > fin Then es = fin

If Posizione(es,1,i) > 0 Then

n(1) = i1
s = SeriePrima(es + 1,es + 6,n,ru,1)

'--------------------------------------------------------------------------------------------------------
'Per avere solo i dati principali metti apice prima di :Scrivi e alla riga sottostante
If s > 0 Then con = con + 1:Scrivi " " & FormatSpace(con,5,1) & ") " & DataEstrazione(es) & " " & _
FormatSpace(es,5,1) & " " & DataEstrazione(s) & " " & FormatSpace(s,5,1) & " spia  " & i & " n. uscito " & n(1)
'--------------------------------------------------------------------------------------------------------

End If
Next

'--------------------------------------------------------------------------------------------------------
'Per avere solo i dati principali metti apice prima di Scrivi e alla riga sottostante
'Scrivi " Dopo l'uscita del n. spia "&format2(i)&" il n. "&format2(n(1))_
'&" nelle 6 estrazioni successive si è presentato "&con&" volte"
'--------------------------------------------------------------------------------------------------------



If con > mx Then mx = con:ri = " Nelle 6 estrazioni successive alla sortita del n. spia " & Format2(i)_
  & " il numero che si è presentato più volte è " & Format2(n(1)) & " con " & con & " presenze":spia1 = i:spia2 = n(1)

Next
ColoreTesto 1
Scrivi
Scrivi ri
ColoreTesto 0

Scrivi
Scrivi
Scrivi
Scrivi String(120,"-")
Scrivi "      SPIA 1 E SPIA 2"
Scrivi String(120,"-")
For i2 = 1 To 90

n1(1) = i2
con1 = 0
For ess = es + 1 To es + 6
If Posizione(es,1,spia1) > 0 Or Posizione(ess,1,spia2) > 0 Then


s1 = SeriePrima(ess + 1,ess + 6,n1,ru,1)
ColoreTesto 0

'--------------------------------------------------------------------------------------------------------
'Per avere solo i dati principali metti apice prima di :Scrivi e alla riga sotto
If s1 > 0 Then con1 = con1 + 1:Scrivi " " & FormatSpace(con1,5,1) & ") " & DataEstrazione(es) & " " & _
FormatSpace(ess,5,1) & " " & DataEstrazione(s1) & " " & FormatSpace(s1,5,1) & " spia1 " & spia1 & "e spia2 " & spia2 & " n. uscito " & n1(1)
'--------------------------------------------------------------------------------------------------------
End If

Next
ColoreTesto 0
'--------------------------------------------------------------------------------------------------------
'Per avere solo i dati principali metti apice prima di Scrivi e alla riga sottostante
'Scrivi " Dopo l'uscita di n. spia "&format2(i)&" e spia2 "& spia2&" il n. "&format2(n1(1))_
'&" nelle 6 estrazioni successive si è presentato "&con1&" volte"
'--------------------------------------------------------------------------------------------------------
ColoreTesto 0
If con1 > mx1 Then mx1 = con1:ri1 = " Nelle 6 estrazioni successive alla sortita di spia1 " & spia1 & " e di spia2 " & spia2 _
  & " il numero che si è presentato più volte è " & Format2(n1(1)) & " con " & con1 & " presenze"

Next
ColoreTesto 2
Scrivi
Scrivi ri1,1
ColoreTesto 0

End Sub
 
Ciao, Herat

Io ho lasciato un attimino, ora ho ripreso.
Puoi soltanto controllare anche tu manualmente se questo dato finale è esatto?

SPIA 1
------------------------------------------------------------------------------------------------------------------------

Nelle 6 estrazioni successive alla sortita del n. spia 01 il numero che si è presentato più volte è 82 con 63 presenze
============================================================================================


------------------------------------------------------------------------------------------------------------------------
SPIA 1 E SPIA 2
------------------------------------------------------------------------------------------------------------------------

Nelle 6 estrazioni successive alla sortita di spia1 1 e di spia2 82 il numero che si è presentato più volte è 69 con 17 presenze
 
Cinzia27 ha scritto:
Ciao, Herat

Io ho lasciato un attimino, ora ho ripreso.
Puoi soltanto controllare anche tu manualmente se questo dato finale è esatto?

SPIA 1
------------------------------------------------------------------------------------------------------------------------

Nelle 6 estrazioni successive alla sortita del n. spia 01 il numero che si è presentato più volte è 82 con 63 presenze
============================================================================================


------------------------------------------------------------------------------------------------------------------------
SPIA 1 E SPIA 2
------------------------------------------------------------------------------------------------------------------------

Nelle 6 estrazioni successive alla sortita di spia1 1 e di spia2 82 il numero che si è presentato più volte è 69 con 17 presenze
Clicca per espandere...
Grazie mille.
Si ora controllo con lo script che mi fa inserire le spie manualmente
 
Cinzia, ecco output completo dello script Spia1 Spia2 con inserimento manuale

Dalla 7281 alla 10281 (SPIA1 1 SPIA2 82) su Bari

20.03.2004 Ba 01-->> SPIA 1
03.04.2004 Ba 82-->> SPIA 2
----------------------------------
17.11.2004 Ba 01-->> SPIA 1
08.12.2004 Ba 82-->> SPIA 2
----------------------------------
20.04.2005 Ba 01-->> SPIA 1
07.05.2005 Ba 82-->> SPIA 2
----------------------------------
21.06.2005 Ba 01-->> SPIA 1
30.06.2005 Ba 82-->> SPIA 2
----------------------------------
09.08.2005 Ba 01-->> SPIA 1
11.08.2005 Ba 82-->> SPIA 2
----------------------------------
13.12.2005 Ba 01-->> SPIA 1
17.12.2005 Ba 82-->> SPIA 2
----------------------------------
13.12.2005 Ba 01-->> SPIA 1
27.12.2005 Ba 82-->> SPIA 2
----------------------------------
12.01.2006 Ba 01-->> SPIA 1
24.01.2006 Ba 82-->> SPIA 2
----------------------------------
11.02.2006 Ba 01-->> SPIA 1
14.02.2006 Ba 82-->> SPIA 2
----------------------------------
07.03.2006 Ba 01-->> SPIA 1
21.03.2006 Ba 82-->> SPIA 2
----------------------------------
09.03.2006 Ba 01-->> SPIA 1
21.03.2006 Ba 82-->> SPIA 2
----------------------------------
15.02.2007 Ba 01-->> SPIA 1
01.03.2007 Ba 82-->> SPIA 2
----------------------------------
12.05.2007 Ba 01-->> SPIA 1
22.05.2007 Ba 82-->> SPIA 2
----------------------------------
29.05.2007 Ba 01-->> SPIA 1
05.06.2007 Ba 82-->> SPIA 2
----------------------------------
09.10.2007 Ba 01-->> SPIA 1
11.10.2007 Ba 82-->> SPIA 2
----------------------------------
04.12.2007 Ba 01-->> SPIA 1
11.12.2007 Ba 82-->> SPIA 2
----------------------------------
01.07.2008 Ba 01-->> SPIA 1
10.07.2008 Ba 82-->> SPIA 2
----------------------------------
08.07.2008 Ba 01-->> SPIA 1
10.07.2008 Ba 82-->> SPIA 2
----------------------------------
05.08.2008 Ba 01-->> SPIA 1
07.08.2008 Ba 82-->> SPIA 2
----------------------------------
19.03.2009 Ba 01-->> SPIA 1
31.03.2009 Ba 82-->> SPIA 2
----------------------------------
14.07.2009 Ba 01-->> SPIA 1
28.07.2009 Ba 82-->> SPIA 2
----------------------------------
29.04.2010 Ba 01-->> SPIA 1
11.05.2010 Ba 82-->> SPIA 2
----------------------------------
25.05.2010 Ba 01-->> SPIA 1
29.05.2010 Ba 82-->> SPIA 2
----------------------------------
15.01.2011 Ba 01-->> SPIA 1
27.01.2011 Ba 82-->> SPIA 2
----------------------------------
18.01.2011 Ba 01-->> SPIA 1
27.01.2011 Ba 82-->> SPIA 2
----------------------------------
12.04.2011 Ba 01-->> SPIA 1
16.04.2011 Ba 82-->> SPIA 2
----------------------------------
14.04.2011 Ba 01-->> SPIA 1
16.04.2011 Ba 82-->> SPIA 2
----------------------------------
21.05.2011 Ba 01-->> SPIA 1
31.05.2011 Ba 82-->> SPIA 2
----------------------------------
06.09.2011 Ba 01-->> SPIA 1
08.09.2011 Ba 82-->> SPIA 2
----------------------------------
15.12.2011 Ba 01-->> SPIA 1
27.12.2011 Ba 82-->> SPIA 2
----------------------------------
15.12.2011 Ba 01-->> SPIA 1
29.12.2011 Ba 82-->> SPIA 2
----------------------------------
15.05.2012 Ba 01-->> SPIA 1
29.05.2012 Ba 82-->> SPIA 2
----------------------------------
31.07.2012 Ba 01-->> SPIA 1
09.08.2012 Ba 82-->> SPIA 2
----------------------------------
13.10.2012 Ba 01-->> SPIA 1
27.10.2012 Ba 82-->> SPIA 2
----------------------------------
18.06.2013 Ba 01-->> SPIA 1
22.06.2013 Ba 82-->> SPIA 2
----------------------------------
20.06.2013 Ba 01-->> SPIA 1
22.06.2013 Ba 82-->> SPIA 2
----------------------------------
03.08.2013 Ba 01-->> SPIA 1
16.08.2013 Ba 82-->> SPIA 2
----------------------------------
14.11.2013 Ba 01-->> SPIA 1
26.11.2013 Ba 82-->> SPIA 2
----------------------------------
24.05.2014 Ba 01-->> SPIA 1
29.05.2014 Ba 82-->> SPIA 2
----------------------------------
16.10.2014 Ba 01-->> SPIA 1
21.10.2014 Ba 82-->> SPIA 2
----------------------------------
29.01.2015 Ba 01-->> SPIA 1
07.02.2015 Ba 82-->> SPIA 2
----------------------------------
02.07.2015 Ba 01-->> SPIA 1
14.07.2015 Ba 82-->> SPIA 2
----------------------------------
09.07.2015 Ba 01-->> SPIA 1
14.07.2015 Ba 82-->> SPIA 2
----------------------------------
06.08.2015 Ba 01-->> SPIA 1
17.08.2015 Ba 82-->> SPIA 2
----------------------------------
22.09.2015 Ba 01-->> SPIA 1
01.10.2015 Ba 82-->> SPIA 2
----------------------------------
29.09.2015 Ba 01-->> SPIA 1
01.10.2015 Ba 82-->> SPIA 2
----------------------------------
15.10.2015 Ba 01-->> SPIA 1
20.10.2015 Ba 82-->> SPIA 2
----------------------------------
17.10.2015 Ba 01-->> SPIA 1
20.10.2015 Ba 82-->> SPIA 2
----------------------------------
21.01.2016 Ba 01-->> SPIA 1
30.01.2016 Ba 82-->> SPIA 2
----------------------------------
13.02.2016 Ba 01-->> SPIA 1
25.02.2016 Ba 82-->> SPIA 2
----------------------------------
23.03.2017 Ba 01-->> SPIA 1
06.04.2017 Ba 82-->> SPIA 2
----------------------------------
30.03.2017 Ba 01-->> SPIA 1
06.04.2017 Ba 82-->> SPIA 2
----------------------------------
25.05.2017 Ba 01-->> SPIA 1
06.06.2017 Ba 82-->> SPIA 2
----------------------------------
17.08.2017 Ba 01-->> SPIA 1
29.08.2017 Ba 82-->> SPIA 2
----------------------------------
07.04.2018 Ba 01-->> SPIA 1
14.04.2018 Ba 82-->> SPIA 2
----------------------------------
12.02.2019 Ba 01-->> SPIA 1
19.02.2019 Ba 82-->> SPIA 2
----------------------------------
09.07.2019 Ba 01-->> SPIA 1
16.07.2019 Ba 82-->> SPIA 2
----------------------------------
07.12.2019 Ba 01-->> SPIA 1
17.12.2019 Ba 82-->> SPIA 2
----------------------------------
16.01.2021 Ba 01-->> SPIA 1
19.01.2021 Ba 82-->> SPIA 2
----------------------------------
12.10.2021 Ba 01-->> SPIA 1
21.10.2021 Ba 82-->> SPIA 2
----------------------------------
14.07.2022 Ba 01-->> SPIA 1
26.07.2022 Ba 82-->> SPIA 2
----------------------------------
30.08.2022 Ba 01-->> SPIA 1
06.09.2022 Ba 82-->> SPIA 2
----------------------------------
30.08.2022 Ba 01-->> SPIA 1
08.09.2022 Ba 82-->> SPIA 2
----------------------------------
03.12.2022 Ba 01-->> SPIA 1
15.12.2022 Ba 82-->> SPIA 2
----------------------------------
28.02.2023 Ba 01-->> SPIA 1
02.03.2023 Ba 82-->> SPIA 2
----------------------------------
04.07.2023 Ba 01-->> SPIA 1
13.07.2023 Ba 82-->> SPIA 2
----------------------------------
04.08.2023 Ba 01-->> SPIA 1
11.08.2023 Ba 82-->> SPIA 2
----------------------------------

N° casi: 67


Positivi in Cicli di 10 Estrazioni
----------------------------------

81 PR 28
61 PR 27
12 PR 27
03 PR 27
31 PR 27
15 PR 26
58 PR 26
05 PR 26
17 PR 25
89 PR 25



Questo lo script con inserimento manuale e non automatico della Spia2


Codice: 
Sub Main()
Dim ru(3),ru1(1),n(90,3),nu3(1),nu4(1),nu5(1)
Dim nu(1)
d1 = CInt(InputBox("SPIA1",,1))
d2 = CInt(InputBox("SPIA2",,82))
r = CInt(InputBox("Ruota?",,1))
nn = CInt(InputBox("numeri da visualizzare?",,10))
ee = CInt(InputBox("Estrazione di partenza?",,7281))
c = CInt(InputBox("colpi?",,6))
cc = CInt(InputBox("colpi?",,6))
casi = 0
co = 0
fin = EstrazioneFin
ini = ee
Scrivi "Dalla " &(ini) & " alla " & EstrazioneFin,True,False
Scrivi " (SPIA1 " & d1 & " SPIA2 " & d2 & ") su " & NomeRuota(r),True
Scrivi

For es = ini To fin
For p = 1 To 5
ru(1) = R
a = Estratto(es,r,p)
If a = d1 Then
nu3(1) = a
For ess = es + 1 To es + cc
For p1 = 1 To 5
b = Estratto(ess,r,p1)
If b = d2 Then
nu4(1) = b
If r <> TT_ Then
Scrivi DataEstrazione(es) & " " & Left(NomeRuota(ru(1)),2) & " " & _
Format2(nu3(1)) & "-->> SPIA 1 " & rt1,1
Scrivi DataEstrazione(ess) & " " & Left(NomeRuota(ru(1)),2) & " " & _
Format2(nu4(1)) & "-->> SPIA 2 " & rt1,1

Scrivi String(34,"-")

casi = casi + 1
es2 = ess + c
If es2 > fin Then es2 = fin End If
If es2 <> es And es2 <> ess And es <> ess Then
''
For d = 1 To 90
nu(1) = d
If SerieFreqTurbo(ess + 1,es2,nu,ru,1) >= 1 Then
n(d,1) = d
rit = RitardoCombinazione(ru,nu,1)
n(d,2) = n(d,2) + 1
n(d,3) = rit

End If
Next
''
End If
End If
End If
Next
Next
End If
Next
Next
Scrivi
Scrivi "N° casi: " & CInt(casi),1 : Scrivi
Scrivi
ColoreTesto 2
Scrivi " Positivi in Cicli di " & nn & " Estrazioni",1
Scrivi Space(1) & String(34,"-")
OrdinaMatrice n,- 1,2
Scrivi " N° - PC "
For x = 1 To nn
Scrivi Space(1) & Format2(n(x,1)) & " PR " & Format2(n(x,2)) & " RT " & Format2(n(x,3))

Next
End Sub
 
Da te il massimo 81 con 28 presenze.
Non so che dire.
Nel mio script viene solo contata la prima presenza, se in 6 estrazioni vi sono 2 presenze ne viene contata 1.
Può derivare da questo l'incongruenza? Chissà.
Hai provato a visualizzare lo script che usi come secondo fino al n. 69 per vedere se le presenze sono 17?
Di più non saprei.
Se facciamo altri controlli dobbiamo scegliamo un intervallo 90 perché altrimenti mi è difficile controllare in altra tabella.

Ti posto lo script .

Codice: 
'Per Herat - Spia1 (principale) e spia2 ( costituita dal numero con più presenze dopo l'uscita della spia1)-Cinzia27
'viene conteggiata la prima presenza nelle 6 estrazioni
Sub main()
Dim ru(1),n(1),n1(1)
r=1
ru(1)=r
Scrivi String(120,"-")
Scrivi "      SPIA 1"
Scrivi String(120,"-")
i=1 'Inserisci la spia1
For i1=1 To 90
con=0
For es=EstrazioneFin-3000  To EstrazioneFin-6
If Posizione(es,1,i)>0 Then

n(1)=i1
s=SeriePrima(es+1,es+6,n,ru,1)

'--------------------------------------------------------------------------------------------------------
'Per avere solo i dati principali metti apice prima di :Scrivi e alla riga sottostante
If s>0 Then con=con+1':Scrivi " "&formatspace(con,5,1)&") "& DataEstrazione(es)&" "& _
'FormatSpace(es,5,1)&" "&DataEstrazione(s)&" "&formatspace(s,5,1)&" spia  "&i&" n. uscito "&n(1)
'--------------------------------------------------------------------------------------------------------

End If
Next

'--------------------------------------------------------------------------------------------------------
'Per avere solo i dati principali metti apice prima di Scrivi e alla riga sottostante
'Scrivi " Dopo l'uscita del n. spia "&format2(i)&" il n. "&format2(n(1))_
'&" nelle 6 estrazioni successive si è presentato "&con&" volte"
'--------------------------------------------------------------------------------------------------------



If con>mx Then mx=con:ri =" Nelle 6 estrazioni successive alla sortita del n. spia "&format2(i)_
&" il numero che si è presentato più volte è "&format2(n(1))&" con "&con&" presenze":spia1=i:spia2=n(1)

Next
ColoreTesto 1
Scrivi
Scrivi ri
ColoreTesto 0

Scrivi "============================================================================================"
Scrivi
Scrivi
Scrivi String(120,"-")
Scrivi "      SPIA 1 E SPIA 2"
Scrivi String(120,"-")

For i2=1 To 90

n1(1)=i2
con1=0
For es=EstrazioneFin-3000  To EstrazioneFin-6
If Posizione(es,1,i)>0 Then
ss=SeriePrima(es+1,es+6,n,ru,1)
If ss>0 Then
s1=SeriePrima(ss+1,ss+6,n1,ru,1)
If s1>0 Then
ColoreTesto 0

'--------------------------------------------------------------------------------------------------------
'Per avere solo i dati principali metti apice prima di :Scrivi e alla riga sotto
If s1>0 Then con1=con1+1':Scrivi " "&formatspace(con1,5,1)&") "& DataEstrazione(es)&" "& _
'FormatSpace(es,5,1)&" "&DataEstrazione(s1)&" "&formatspace(s1,5,1)&" spia1 "&spia1&" e spia2 "&spia2&" n. uscito "&n1(1)
'--------------------------------------------------------------------------------------------------------
End If
End If
End If
Next
ColoreTesto 0
'--------------------------------------------------------------------------------------------------------
'Per avere solo i dati principali metti apice prima di Scrivi e alla riga sottostante
Scrivi " Dopo l'uscita di n. spia "&format2(i)&" e spia2 "& spia2&" il n. "&format2(n1(1))_
&" nelle 6 estrazioni successive si è presentato "&con1&" volte"
'--------------------------------------------------------------------------------------------------------
ColoreTesto 0
If con1>mx1 Then mx1=con1:ri1 =" Nelle 6 estrazioni successive alla sortita di spia1 "&spia1&" e di spia2 "&spia2 _
&" il numero che si è presentato più volte è "&format2(n1(1))&" con "&con1&" presenze"

Next
ColoreTesto 2
Scrivi
Scrivi ri1,1
ColoreTesto 0

End Sub
 
Cinzia27 ha scritto:
Da te il massimo 81 con 28 presenze.
Non so che dire.
Nel mio script viene solo contata la prima presenza, se in 6 estrazioni vi sono 2 presenze ne viene contata 1.
Può derivare da questo l'incongruenza? Chissà.
Hai provato a visualizzare lo script che usi come secondo fino al n. 69 per vedere se le presenze sono 17?
Di più non saprei.
Se facciamo altri controlli dobbiamo scegliamo un intervallo 90 perché altrimenti mi è difficile controllare in altra tabella.

Ti posto lo script .

Codice: 
'Per Herat - Spia1 (principale) e spia2 ( costituita dal numero con più presenze dopo l'uscita della spia1)-Cinzia27
'viene conteggiata la prima presenza nelle 6 estrazioni
Sub main()
Dim ru(1),n(1),n1(1)
r=1
ru(1)=r
Scrivi String(120,"-")
Scrivi "      SPIA 1"
Scrivi String(120,"-")
i=1 'Inserisci la spia1
For i1=1 To 90
con=0
For es=EstrazioneFin-3000  To EstrazioneFin-6
If Posizione(es,1,i)>0 Then

n(1)=i1
s=SeriePrima(es+1,es+6,n,ru,1)

'--------------------------------------------------------------------------------------------------------
'Per avere solo i dati principali metti apice prima di :Scrivi e alla riga sottostante
If s>0 Then con=con+1':Scrivi " "&formatspace(con,5,1)&") "& DataEstrazione(es)&" "& _
'FormatSpace(es,5,1)&" "&DataEstrazione(s)&" "&formatspace(s,5,1)&" spia  "&i&" n. uscito "&n(1)
'--------------------------------------------------------------------------------------------------------

End If
Next

'--------------------------------------------------------------------------------------------------------
'Per avere solo i dati principali metti apice prima di Scrivi e alla riga sottostante
'Scrivi " Dopo l'uscita del n. spia "&format2(i)&" il n. "&format2(n(1))_
'&" nelle 6 estrazioni successive si è presentato "&con&" volte"
'--------------------------------------------------------------------------------------------------------



If con>mx Then mx=con:ri =" Nelle 6 estrazioni successive alla sortita del n. spia "&format2(i)_
&" il numero che si è presentato più volte è "&format2(n(1))&" con "&con&" presenze":spia1=i:spia2=n(1)

Next
ColoreTesto 1
Scrivi
Scrivi ri
ColoreTesto 0

Scrivi "============================================================================================"
Scrivi
Scrivi
Scrivi String(120,"-")
Scrivi "      SPIA 1 E SPIA 2"
Scrivi String(120,"-")

For i2=1 To 90

n1(1)=i2
con1=0
For es=EstrazioneFin-3000  To EstrazioneFin-6
If Posizione(es,1,i)>0 Then
ss=SeriePrima(es+1,es+6,n,ru,1)
If ss>0 Then
s1=SeriePrima(ss+1,ss+6,n1,ru,1)
If s1>0 Then
ColoreTesto 0

'--------------------------------------------------------------------------------------------------------
'Per avere solo i dati principali metti apice prima di :Scrivi e alla riga sotto
If s1>0 Then con1=con1+1':Scrivi " "&formatspace(con1,5,1)&") "& DataEstrazione(es)&" "& _
'FormatSpace(es,5,1)&" "&DataEstrazione(s1)&" "&formatspace(s1,5,1)&" spia1 "&spia1&" e spia2 "&spia2&" n. uscito "&n1(1)
'--------------------------------------------------------------------------------------------------------
End If
End If
End If
Next
ColoreTesto 0
'--------------------------------------------------------------------------------------------------------
'Per avere solo i dati principali metti apice prima di Scrivi e alla riga sottostante
Scrivi " Dopo l'uscita di n. spia "&format2(i)&" e spia2 "& spia2&" il n. "&format2(n1(1))_
&" nelle 6 estrazioni successive si è presentato "&con1&" volte"
'--------------------------------------------------------------------------------------------------------
ColoreTesto 0
If con1>mx1 Then mx1=con1:ri1 =" Nelle 6 estrazioni successive alla sortita di spia1 "&spia1&" e di spia2 "&spia2 _
&" il numero che si è presentato più volte è "&format2(n1(1))&" con "&con1&" presenze"

Next
ColoreTesto 2
Scrivi
Scrivi ri1,1
ColoreTesto 0

End Sub
Clicca per espandere...
Grazie sempre Cinzia
dal mio script il 69 da 20 presenze
 
Buona serata a tutte/i.

Mi permetto di suggerire che il metodo per controllare un metodo,

(tralasciando il bisticcio di parole) è uno script che ricerca le condizioni ed effettua

la simulazione della giocata.

L'istruzione "GIOCA" è una delle più potenti e complicate dei programmi che abbiamo in uso.

Diversamente detto è di più alto livello.

Si gestisce con diversi parametri e con questi per esempio si decide, se la giocata,

si interrompe in caso di realizzo di una particolare sorte.

Dunque si, le presenze delle condizioni di gioco e dei risultati al seguito, dipendono

SIA DA COME si sono conteggiate le condizioni di Gioco,come ANCHE, se si considera

tutto l'intervallo di gioco utilizzato per la ricerca, o solo la parte di esso

precedente la realizzazione del risultato.

Perché questo tra l'altro potrebbe lasciare ulteriore spazio ad altre condizioni di gioco,

e ad altrettanti risultati (specie se essi sono raccolti in funzione della loro copiosa Frequenza).

Dunque raccolti i dati relativi alle condizioni di gioco ... "provarli" SENZA ALLINEARE

TUTTI I PARAMETRI (possibili ed immaginabili) fa si che i risultati diventano necessariamente diversi.

:)
 
Ciao Cinzia, con queste ,modifiche che ho fatto mi sembra che i dati corrispondono

Codice: 
Sub Main()
Dim ru(3),nu1(1),nu2(1),nu3(1),nu4(1),nu5(1),nu6(1),nu7(1),nu8(1)
Dim nu(1),ru1(1)
d1 = CInt(InputBox("SPIA1",,1))
r = CInt(InputBox("Ruota?",,1))
ee = CInt(InputBox("Estrazione di partenza?",,8120))
cc = CInt(InputBox("colpi?",,9))
For d = 1 To 90
co = 0
ru(1) = R
fin = EstrazioneFin
ini = ee
For es = ini To fin
For p = 1 To 5
a = Estratto(es,r,p)
If a = d1 Then
nu(1) = a
nu1(1) = d
s = SerieFreq(es + 1,es + cc,nu1,ru,1)
If s > 0 Then
co = co + 1
End If
End If
Next
If co > mx Then mx = co:ri = " Nelle 6 estrazioni successive alla sortita del n. spia " & Format2(nu(1))_
      & " il numero che si è presentato più volte è " & Format2(nu1(1)) & " con " & co & " presenze":spia1 = nu(1):spia2 = nu1(1)
 
Next
Next
ColoreTesto 1
Scrivi
Scrivi ri
ColoreTesto 0

Scrivi "============================================================================================"
Scrivi
Scrivi
Scrivi String(120,"-")
Scrivi "      SPIA 1 E SPIA 2"
Scrivi String(120,"-")
For e = 1 To 90
con = 0
ru1(1) = r
For es = Ini To fin
For p1 = 1 To 5
c = Estratto(es,r,p1)
If c = spia1 Then
nu2(1) = c
For ess = es + 1 To es + cc
If es > fin Then es = fin
For p3 = 1 To 5
b = Estratto(ess,r,p3)
If b = spia2 And ess <> es Then
nu3(1) = b
nu4(1) = e
ss = SerieFreq(ess + 1,ess + cc,nu4,ru1,1)
If ss > 0 Then
con = con + 1
ColoreTesto 0
End If
End If
Next
Next
End If
Next
Next
If con > mx1 Then mx1 = con:ri1 = " Nelle 6 estrazioni successive alla sortita di spia1 " & Format2(nu2(1)) & " e di spia2 " & Format2(nu3(1)) _
      & " il numero che si è presentato più volte è " & Format2(nu4(1)) & " con " & con & " presenze"

Next
ColoreTesto 2
Scrivi
Scrivi ri1,1
ColoreTesto 0


End Sub
 
Ho sviluppato una mia idea piuttosto simile ma MOLTO diversa.

Di questa, propongo, per chi volesse controllarne gli esiti, quanto calcolato con lo script all'estrazione del 12/08/2023 avvenuta.

Bari
01 (95)
21 (90)
36 (105)
47 (104)
54 (95)
67 (96)
68 (103)
88 (108)

Sono indicati la Ruota ed i "Numeri" selezionati dallo script sulla base del loro punteggio, "alto" (che è indicato tra parentesi).

"Consiglio" preferibili i risultati ottenuti nei primi colpi di gioco.

Dunque lo sono 1 caduto il 16/08/2023 e il 68 caduto a Bari oggi 17/08/2023

:)
 
Buongiorno e grazie, per l'interesse.

anche l'estrazione del 18/08/2023 ha dato un suo risultato.

Soddisfacente e come detto ... trascorsi i primi colpi meglio chiudere il pronostico.

Immagine.png
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 09 gennaio 2025
    Bari
    47
    06
    65
    72
    48
    Cagliari
    75
    33
    52
    59
    73
    Firenze
    08
    05
    35
    74
    81
    Genova
    33
    59
    68
    27
    07
    Milano
    68
    12
    60
    51
    65
    Napoli
    49
    17
    10
    71
    87
    Palermo
    31
    64
    45
    04
    47
    Roma
    18
    84
    43
    28
    31
    Torino
    14
    23
    33
    16
    84
    Venezia
    39
    41
    08
    02
    86
    Nazionale
    63
    41
    58
    16
    01
    Estrazione Simbolotto
    Bari
    45
    03
    38
    41
    15
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto