chiedo un listato.

[Antonin]

Ecco cosa mi da' in cento estrazioni nella frequenza 81-90.

• Antonio1 •

Analisi dal 04.11.2010 ad oggi
I numeri della decina usciti in ordine di frequenza
_________________________________________________________________
1° Numero: 33 Decina: 3 su Bari colpi 12

Num. 37 35 34 33 40 36 31 39 38 32
Freq. 7 7 6 6 6 5 5 4 4 4
_________________________________________________________________
2° Numero: 82 Decina: 8 su Bari colpi 12

Num. 88 86 84 90 36 34 35 37 39 40
Freq. 5 5 4 3 1 1 1 1 1 1
_________________________________________________________________
3° Numero: 28 Decina: 2 su Bari colpi 12

Num. 21 30 24 27 23 26 25 28 22 29
Freq. 9 8 7 6 6 5 4 4 2 2
_________________________________________________________________
4° Numero: 34 Decina: 3 su Bari colpi 12

Num. 37 35 34 40 33 31 36 39 32 38
Freq. 7 7 6 6 6 5 5 4 4 4
_________________________________________________________________
5° Numero: 69 Decina: 6 su Bari colpi 12

Num. 68 70 61 64 63 65 69 67 66 62
Freq. 3 3 2 1 1 1 1 1 1 1


Antonio1

 

[pfca]

Ciao Antonio, ho visto cosa succede, ma non saprei come modificarlo.
Cercherò di accontentare la tua richiesta:
Ti volevo dire e se i numeri spia delle decine naturali li scegliessi io.
Provo in quanto come già detto sono in fase di apprendimento degli script.


Francesco

 

[Antonin]

Sono sicuro che ci riuscirai,buon lavoro Francesco.

Antonio1

 

[Debora73]

quote:Originally posted by antonio1

Che dire Francesco sei veramente eccezionale.

Come vi avevo detto,se possibile l'ultimo listato per completare le mie ricerche.

Spero di farmi capire ma penso di si.

Le decine naturali: per ambate, 1-10/11-20 fino alla 81-90.

Esempio se a Bari e'uscito un numero della decina 1-10 esempio 5,e voglio sapere l'estratto della decina 1-10 che si e' presentato di piu'nelle estrazioni successive verificando 100 o 1000 estrazioni a ritroso,oppure le coppie o le terzine della decina 1-10.
Cosi per tutte le decine,e'ovvio che se esce il 5 scelgo la decina 1-10,se esce l'11 scelgo la decina 11-20.
Scelta dei colpi 6/9/12/18.
Grazie e spero di essermi espresso bene.

Antonio1

Ciao Antonio,
controlla questo output e vedi se è quello che cerchi,nel caso ti posto lo script

SPIA 42 su BA
Ricerca sortita primi 2 numeri della stessa:
decina naturale. - cadenza - figura
dal 27.11.2004 al 25.06.2011

20.04.2005
dec: 48.49
cad: 82.52
fig: 24.78

09.12.2005
dec: 45.49
cad: 72.22
fig: 51.6

22.12.2005
dec: 49.44
cad: 82.72
fig: 6.87

16.03.2006
dec: 43.49
cad: 62.2
fig: 69.87

23.03.2006
dec: 45.49
cad: 72.22
fig: 87.78

25.03.2006
dec: 45.49
cad: 72.22
fig: 78.15

22.04.2006
dec: 47.45
cad: 32.22
fig: 15.24

18.05.2006
dec: 50.44
cad: 22.62
fig: 87.51

20.06.2006
dec: 47.45
cad: 32.12
fig: 15.78

10.08.2006
dec: 45.43
cad: 82.32
fig: 87.60

14.10.2006
dec: 50.45
cad: 12.2
fig: 24.33

31.10.2006
dec: 43.44
cad: 12.2
fig: 87.6

09.11.2006
dec: 41.50
cad: 12.2
fig: 60.87

23.11.2006
dec: 43.46
cad: 22.72
fig: 24.60

02.01.2007
dec: 48.47
cad: 12.52
fig: 78.69

20.01.2007
dec: 46.48
cad: 22.82
fig: 51.33

06.03.2007
dec: 50.48
cad: 12.32
fig: 87.78

27.03.2007
dec: 45.43
cad: 32.52
fig: 69.87

03.05.2007
dec: 46.48
cad: 32.72
fig: 78.87

14.06.2007
dec: 49.41
cad: 32.82
fig: 69.78

02.10.2007
dec: 50.48
cad: 62.52
fig: 87.51

13.10.2007
dec: 48.44
cad: 2.62
fig: 51.24

05.01.2008
dec: 43.50
cad: 52.12
fig: 69.33

28.02.2008
dec: 49.50
cad: 22.72
fig: 87.78

06.03.2008
dec: 50.43
cad: 22.72
fig: 78.15

20.03.2008
dec: 50.46
cad: 72.2
fig: 78.87

15.05.2008
dec: 49.47
cad: 22.72
fig: 69.6

22.05.2008
dec: 49.50
cad: 32.22
fig: 6.51

28.06.2008
dec: 43.47
cad: 2.72
fig: 51.69

03.07.2008
dec: 47.50
cad: 72.82
fig: 69.15

26.07.2008
dec: 50.45
cad: 2.82
fig: 15.69

09.08.2008
dec: 49.47
cad: 72.22
fig: 69.24

21.08.2008
dec: 49.50
cad: 22.82
fig: 24.33

09.09.2008
dec: 44.43
cad: 12.32
fig: 87.51

04.12.2008
dec: 47.46
cad: 72.62

 

[Debora73]

...scusami ma non si legge bene la statistica riepilogativa,
in pratica ho controllato 1000 estrazioni a ritroso e dopo il 42 a BA il numero piu frequente della decina di appartenenza è il 50 con freq 15,inoltre evidenzia anche la cadenza che in questo caso è la 2 in particolare il n°72 con 16 di freq e la figura 6 in questo caso il n°87 con una freq di 21.
Fammi sapere se ti puo essere d'aiuto.
Ciao e buona giornata

 

[Antonin]

Grazie debora73,ho scaricato questo script fatto benissimo l'unico problema non ci indica in quanti colpi e casi reali,forse ho visto male.
Grazie per la vostra disponibilita'

Antonio1

 

[pfca]

Ciao Antonio questo dovrebbe andare bene.
Se richiedi anche poche estrazioni, se non sono usciti i numeri
ti restituisce 0.

'Ricerca frequenze dopo estratto in decina di appartenenza.
' X Antonio1 da pfca
Sub Main()
Dim num(90,3)
r = ScegliRuota
dec = InputBox("Quale Decina scegli di verificare:","",1)
colpi = InputBox("Quante Estrazioni successive o Colpi:","",6)
ric = InputBox("Su quante Estrazioni vuoi fare la ricerca:","",1000)
ini = EstrazioneFin - ric
fin = EstrazioneFin
Scrivi " Analisi dal " & DataEstrazione(ini) & " al " & DataEstrazione(EstrazioneFin)
Scrivi "Primi 10 più frequenti usciti dopo il numero Spia"

dec1 = dec * 10 + 1
dec2 = dec * 10 + 10
For sp = dec1 To dec2
casi = 0
For i = 1 To 90
num(i,1) = 0 : num(i,2) = 0 : num(i,3) = 0
Next
For es = ini To fin
Messaggio " Spia: " & sp & " Estrazione : " & es
If Posizione(es,r,sp) > 0 Then
casi = casi + 1
ess = es + colpi
If ess > fin Then ess = fin End If
For a = es + 1 To ess
segno = 0 : co = 0
For v = dec1 To dec2'1 To 90
co = co + 1
n1 = Estratto(a,r,1)
n2 = Estratto(a,r,2)
n3 = Estratto(a,r,3)
n4 = Estratto(a,r,4)
n5 = Estratto(a,r,5)
If n1 = v Or n2 = v Or n3 = v Or n4 = v Or n5 = v Then
num(co,1) = co
num(co,2) = v
num(co,3) = num(co,3) + 1
segno = 1
End If
If segno > 0 Then
Exit For
Exit For
End If
Next
Next
End If
Next
OrdinaMatrice num,- 1,3
per = Int((casi/100)*80)
Scrivi "_________________________________________________________________"
Scrivi "Numero spia: " & sp & " su " & FormatSpace(NomeRuota(r),10) & " casi = " & casi & " entro i " & colpi & " colpi"
Scrivi
riga = "Num. "
riga1 = "Freq. "
For i = 1 To 10
riga = riga & FormatSpace(num(i,2),3) & " "
riga1 = riga1 & FormatSpace(Eval(num(i,3)),3) & " "
Next
Scrivi riga,1
Scrivi riga1
Next
End Sub

Francesco

 

[Antonin]

Ma vieni...ma dai...Grazie a tutti in particolare a Francesco 6 Grande era quello che cercavo.
Non so come ringraziarti,leggi qualche mia previsione su questo forum

Antonio1

 

[LuigiB]

Ciao Pfca , dato che ho letto che stai imparando a fare gli script
mi permetto di darti alcuni consigli traendo spunto dallo script che hai fatto per Antonio
consigli utili ovviamente anche ad altri.

vado per punti

1)

questo pezzo di codice puo essere sostituito da una solariga

		For i = 1 To 90
			num(i,1) = 0
			num(i,2) = 0
			num(i,3) = 0
		Next

si puo sostituire con

	ReDim num(90,3)

avendo pero l'accortezza di eliminare la dichiarazione
in testa Dim num (90,3)[b/] che avendo usato l'istruzione Redim non serve piu

Usando Redim eviti un ciclo per azzerare l'array , eliminando il ciclo guadagni tempo
e lo script è piu veloce


2)

mettere l'end if in questa particolare riga non ha senso , si puo omettere
perche in questo caso hai usato il costrutto if su una sola riga.
Il motivo che potrebe sembrare pignolo di levare l'endif è che
bisogna sempre cercare di scrivere un codice pulito , perche è un vantaggio
non indifferente per condividere il codice con altri e per poterlo
rileggere facilmente anche noi stessi

	If ess > fin Then ess = fin End If

diventa

	If ess > fin Then ess = fin

altri suggerimenti non ce ne sono hai fatto tutto bene.

 

[pfca]

Grazie Luigi per i consigli, sono sempre ben accolti.
Complimenti per il programma che hai realizzato.


Francesco

 

[Antonin]

Ciao,si LuigiB hai fatto veramente un ottimo programma e che tra l'altro gratis.
Complimenti per il tempo che dedichi a noi

Antonio1

 

[LuigiB]

grazie ragazzi ... ciao !