Numeri più frequenti dopo il numero spia in posizione determinata

[i legend]

cinzia ho replicato il tuo script. al post 1
ho scritto in output le estrazioni di gioco i colpi risultano essere 10 e non 9
Come ti avevo suggerito inizialmente la differenza dei conteggi era nel numero dei colpi come avevo ipotizzato
ecco lo script

Option Explicit
Sub Main
   Dim Ini,Fin,IdEstr,nClp,ess,k,id,cs,p,e,count,simp
   Fin = EstrazioneFin
   Ini = Fin - 999
   nClp = 9
   cs = 0
   count=0
   simp=22
   For IdEstr = Ini To Fin
      If Posizione(IdEstr,1,35) = 1 Then
         cs = cs + 1
         Scrivi FormatSpace(cs,3) & "  " & StringaEstratti(IdEstr,1),1,,vbRed
         ess = IdEstr + 1 + nClp
         If ess > Fin Then ess = Fin
         k = 0
         For id = IdEstr + 1 To ess
            k = k + 1
            Scrivi Format2(k) & "   ",,0
            For p = 1 To 5
               e = Estratto(id,1,p)
               If e = simp Then
               count=count+1
                  Scrivi " " & Format2(e) & " ",,0,vbGreen,,3
               Else
                  Scrivi " " & Format2(e) & " ",,0
               End If
            Next
            Scrivi
         Next
      End If
   Next
   Scrivi
  Scrivi "il numero "&simp&"  è uscito "&count
End Sub

ora i risultati ovviamente coincidono con il post 1

 

[i legend]

fatto ulteriori prove

buona notte a tutti

 

[Cinzia27]

Ciao, Ilegend. hai ragione i colpi erano 10 e non 9 , ma ...me ne parli adesso, mi hai fatto osservazioni giuste ,ciclo ridondante e inizio a -999 quello si.
Comunque anche se a modo tuo ti ringrazio di avermi aiutata.

Se vuoi aggiustare il mio script, fallo pure, non c' è problema, penso che 80Sete preferisca avere uno script pienamene valido.
Buona notte anche a te e a coloro che ci hanno pazientemente seguiti.

 

[i legend]

Ciao Cinzia
ho provato a lanciare lo script al post 1
impostazione ricerca effettuata
Ruota : BA
Pos: 1
Num: 35
fin=estrazionefin
ini=fin-999
estrazioni Tot: 1000 ->( per conteggiare esattamente 1000 estrazioni si fin-999)
nColpi=9
i valori restituiti secondo lo script sono:


Vedi l'allegato 2221038

QUESTO ALL ULTIMA ESTRAZIONE IN ARCHIVIO
Vedi l'allegato 2221039
Cinzia e chiunque utilizzi lo script provi a verificare i dati .
essendoci una differenza tra i due report uno dei due è sbagliato ( potrebbe essere anche il mio script ovviamente)
sono sicuro che non dipenda dall archivio in quanto effettuato sullo stesso range
Cinzia utilizza come estrazione finale Estrazione fin e non estrazionefin-colpi cosi hai il report su tutto il range esaminato
per lo script ho lasciato Option explict , dichiarare tutte le variabili comporta una manciata di secondi ed evita problemi
se sei in dubbio su qualcosa chiedi pure
visto che sei parecchio Brava prova a reimpostare lo script
forse un possibile variabile differente sta nel conteggio dei colpi
prova a fare un ciclo di estrazioni e scrivere quelle dei colpi che vuoi
poi conta quelle scritte.
sono piccolezze ma importanti.
se l argomento non ti interessa cancello il post

Per Favore : NON FATE IL QUOTE PERCHE CI POTREBBE ESSERE L EVENTUALITA DI DOVER CANCELLARE QUESTO POST

 

[i legend]

Avevo suggerito subito il conteggio dei colpi.
Ripeto sei brava . Bisogna correggere li e il gioco è fatto. Lo lascio fare a te

 

[Cinzia27]

Scusa, mi è sfuggito .Se proprio non vuoi, domani vedrò di sistemarlo.

 

[i legend]

Ciao Cinzia, non è che non voglio, se lo faccio io non ti sarebbe utile.

 

[Cinzia27]

Ciao, ILegend.
L' ho modificato. Anche la verifica sotto mi dà 12.

Sub main()
Dim num(90,2),n(1),ru(1)
r=eval(InputBox("Ruota?",,1))
sp=eval(InputBox("Numero Spia?",,35))
pos=eval(InputBox("Posizione?",,1))
colpi=eval(InputBox("colpi di gioco?",,8))'metti 1 in meno per avere i colpi giusto, 8 se vuoi 9, 9 se vuoi 10, ecc.
ini=EstrazioneFin-999'metti 1 in meno per avere l' estrazione di partenza desiderata , 999 se vuoi 1000, 499 se vuoi 500, ecc.
fin=EstrazioneFin-colpi
ru(1)=r
Scrivi " Dal "& DataEstrazione(ini)&" "&ini&" al "& DataEstrazione(EstrazioneFin)&" "&fin
Scrivi " Numeri più frequenti usciti dopo il numero Spia in posizione "&pos
casi=0     
For es=ini To fin   
   Messaggio " Spia: "&sp&"  Estrazione : "&es   
   If Posizione(es,r,sp)=pos Then         
      casi=casi+1
      ess=es+1+colpi
      If ess>fin Then ess=fin End If
      For a=es+1 To ess     
        For k=1 To 90
        n(1)=k
        frr=SerieFreq(a,a,n,ru,1)       
            num(k,1)=k             
            num(k,2)=num(k,2)+frr             
'            End If                               
         Next 
      Next
   End If       
Next
OrdinaMatrice num, -1, 2

ColoreTesto 1
Scrivi String(70,"*")
Scrivi
Scrivi "Numero spia: "&sp&" su "& NomeRuota(r)&" casi  "&casi&" - numeri più frequenti entro  "&colpi&" colpi",1
Scrivi : Scrivi : ColoreTesto 2
riga="Num.  "
riga1="Freq. "
For i=1 To 10       
      riga=riga & FormatSpace(num(i,1),3)&"   "
      riga1=riga1 & FormatSpace(num(i,2),3)&"   "       
Next
Scrivi riga,1
ColoreTesto 1
Scrivi riga1
End Sub

8994​	23/04/2015​	35​	48​	42​	15​	37​
8995​	27/04/2015​	90​	15​	32​	55​	2​
8996​	28/04/2015​	47​	57​	10​	22​	39​
8997​	30/04/2015​	56​	11​	73​	36​	13​
8998​	02/05/2015​	89​	30​	86​	72​	65​
8999​	05/05/2015​	12​	3​	52​	40​	39​
9000​	07/05/2015​	21​	12​	10​	5​	22​
9001​	09/05/2015​	90​	80​	38​	88​	30​
9002​	12/05/2015​	70​	26​	35​	38​	68​
9003​	14/05/2015​	57​	46​	41​	32​	78​
9256​	24/12/2016​	35​	5​	17​	41​	45​
9257​	27/12/2016​	20​	50​	41​	83​	88​
9258​	29/12/2016​	16​	42​	73​	78​	47​
9259​	31/12/2016​	64​	74​	57​	4​	87​
9260​	03/01/2017​	27​	28​	80​	42​	71​
9261​	05/01/2017​	37​	8​	38​	82​	80​
9262​	07/01/2017​	23​	22​	7​	72​	40​
9263​	10/01/2017​	71​	9​	26​	12​	75​
9264​	12/01/2017​	19​	67​	33​	28​	66​
9265​	14/01/2017​	30​	40​	25​	33​	35​
9286​	04/03/2017​	35​	66​	36​	32​	77​
9287​	07/03/2017​	22​	60​	12​	62​	36​
9288​	09/03/2017​	38​	40​	47​	59​	80​
9289​	11/03/2017​	16​	19​	24​	66​	74​
9290​	14/03/2017​	59​	74​	55​	12​	77​
9291​	16/03/2017​	7​	76​	44​	24​	67​
9292​	18/03/2017​	69​	37​	70​	81​	22​
9293​	21/03/2017​	7​	74​	65​	32​	12​
9294​	23/03/2017​	54​	33​	1​	15​	71​
9295​	25/03/2017​	75​	27​	23​	64​	73​
9383​	17/10/2017​	35​	17​	6​	49​	50​
9384​	19/10/2017​	22​	50​	27​	37​	26​
9385​	21/10/2017​	13​	68​	85​	40​	28​
9386​	24/10/2017​	28​	76​	33​	53​	72​
9387​	26/10/2017​	16​	14​	46​	8​	11​
9388​	28/10/2017​	44​	41​	13​	32​	42​
9389​	31/10/2017​	32​	5​	31​	78​	90​
9390​	02/11/2017​	27​	90​	38​	24​	34​
9391​	04/11/2017​	32​	45​	5​	8​	59​
9392​	07/11/2017​	42​	69​	53​	31​	45​
9458​	10/04/2018​	35​	47​	26​	74​	8​
9459​	12/04/2018​	58​	76​	68​	60​	36​
9460​	14/04/2018​	16​	20​	77​	82​	70​
9461​	17/04/2018​	64​	49​	58​	88​	46​
9462​	19/04/2018​	52​	73​	77​	74​	22​
9463​	21/04/2018​	54​	45​	20​	31​	71​
9464​	24/04/2018​	36​	70​	12​	61​	9​
9465​	26/04/2018​	83​	49​	23​	45​	5​
9466​	28/04/2018​	78​	30​	44​	5​	76​
9467​	02/05/2018​	42​	26​	89​	79​	18​
9693​	10/10/2019​	35​	21​	52​	66​	2​
9694​	12/10/2019​	65​	26​	83​	8​	30​
9695​	15/10/2019​	20​	82​	62​	67​	48​
9696​	17/10/2019​	36​	1​	28​	22​	70​
9697​	19/10/2019​	47​	15​	48​	9​	8​
9698​	22/10/2019​	4​	24​	55​	34​	38​
9699​	24/10/2019​	35​	4​	55​	64​	50​
9700​	26/10/2019​	6​	83​	70​	4​	24​
9701​	29/10/2019​	86​	6​	22​	16​	30​
9702​	31/10/2019​	15​	39​	75​	78​	20​
9703​	02/11/2019​	6​	18​	2​	53​	20​
9704​	05/11/2019​	55​	26​	84​	4​	9​
9705​	07/11/2019​	46​	76​	88​	63​	17​
9706​	09/11/2019​	80​	83​	10​	13​	26​
9707​	12/11/2019​	22​	63​	42​	74​	14​
9708​	14/11/2019​	77​	46​	84​	5​	89​
9800​	28/07/2020​	35​	61​	6​	37​	66​
9801​	30/07/2020​	18​	52​	16​	17​	70​
9802​	01/08/2020​	76​	69​	56​	19​	61​
9803​	04/08/2020​	37​	51​	75​	89​	6​
9804​	06/08/2020​	17​	88​	49​	90​	62​
9805​	08/08/2020​	67​	68​	65​	64​	79​
9806​	11/08/2020​	39​	20​	62​	35​	7​
9807​	13/08/2020​	85​	14​	3​	88​	26​
9808​	17/08/2020​	50​	48​	30​	74​	14​
9809​	18/08/2020​	20​	39​	57​	89​	22​
9966​	19/08/2021​	35​	56​	53​	49​	62​
9967​	21/08/2021​	74​	41​	15​	69​	9​
9968​	24/08/2021​	31​	32​	78​	47​	66​
9969​	26/08/2021​	2​	23​	12​	15​	55​
9970​	28/08/2021​	78​	36​	23​	68​	86​
9971​	31/08/2021​	22​	57​	32​	43​	79​
9972​	02/09/2021​	34​	62​	15​	63​	26​
9973​	04/09/2021​	57​	33​	68​	25​	47​
9974​	07/09/2021​	83​	12​	16​	77​	60​

 

[i legend]

Ciao Cinzia. Prova a fare ess=ess+colpi
Utilizza lo script al post 41
Cosi puoi verificare su quanti colpi fa la verifica.
Prova ad utilizzare quello come base .poi i ghirigori li posto io .è importante capire la raccolta dati. Il ciclo dei 90 numeri è dispendioso. Lasciamolo fare a chi è alle prime armi.

 

[Cinzia27]

Ciao, ILegend. Sto facendo girare uno script lento.
Quando finisce procedo senz' altro a seguire le tue indicazioni.

 

[Cinzia27]

Ciao, ILegend. Non mi sono dimenticata.Sto facendo girare lo stesso script, ti anticipo per le settine.
Un pezzo alla volta, appena finisce, sempre se ti va perfezioniamo lo script per 80Sete.

 

[i legend]

Ciao Cinzia
certo , l ho gia scritto. aspetto te .