Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Sub Main()
'Primi 10 più frequenti usciti dopo il numero Spia'
Dim ruote(1)
Dim posta(1)
Dim num(90,3)
Dim uscito(90,2)
Dim anum(10)
r = InputBox("Su quale ruota?",,12)
colpi = InputBox("Quanti colpi?",,10)
ruote(1) = r
ini = EstrazioneFin - 200
fin = EstrazioneFin
Scrivi " Analisi dal " & DataEstrazione(ini) & " ad oggi"
Scrivi "Primi 10 più frequenti usciti dopo il numero Spia entro i " & colpi & " colpi",1
For sp = 1 To 90
Messaggio " Spia: " & sp
For i = 1 To 90
num(i,1) = 0 : num(i,2) = 0
Next
co = 0
For es = ini To fin
If Posizione(es,r,sp) > 0 Then
co = co + 1
ess = es + colpi + 1
If ess > fin Then ess = fin End If
For a = es + 1 To ess
For v = 1 To 90
uscito(v,2) = 0
Next
For e = 1 To 5
n = Estratto(a,r,e)
num(n,1) = n
num(n,2) = num(n,2) + 1
rit = EstrattoRitardo(r,n,Ini,fin)
rtsp = EstrattoRitardo(r,sp,Ini,fin)
num(n,3) = rit
uscito(n,1) = n
uscito(n,2) = uscito(n,2) + 1
If uscito(n,2) > 1 Then
num(n,2) = num(n,2) - 1
uscito(n,2) = 1
End If
Next
Next
End If
Next
OrdinaMatrice num,- 1,2
per = Int((co/100)*65)
Scrivi "_________________________________________________________________"
Scrivi "Numero spia: " & sp & " su " & FormatSpace(NomeRuota(r),10) & " casi = " & co & " colpi " & colpi,0,0
ColoreTesto 2
Scrivi " - Rit. Spia.. " & rtsp,1
ColoreTesto 0
Scrivi
riga = "Num. "
riga1 = "Freq. "
riga2 = "Rit. "
For i = 1 To 10
riga = riga & FormatSpace(num(i,1),3) & " "
riga1 = riga1 & FormatSpace(Eval(num(i,2)),4) & " "
riga2 = riga2 & FormatSpace(Eval(num(i,3)),4) & " "
anum(i) = num(i,1)
sf2 = SerieFreq(Ini,fin,anum,ruote,2)
sf3 = SerieFreq(Ini,fin,anum,ruote,3)
sr2 = SerieRitardo(Ini,fin,anum,ruote,2)
sr3 = SerieRitardo(Ini,fin,anum,ruote,3)
Next
Scrivi riga,1
ColoreTesto 2
Scrivi riga1
ColoreTesto 7
Scrivi riga2
ColoreTesto 0
Scrivi String(65,"-")
Scrivi"Frequenza combinazione per ambo " & sf2
Scrivi"Frequenza combinazione per terno " & sf3
Scrivi"Ritardo combinazione per ambo " & sr2
Scrivi"Ritardo combinazione per terno " & sr3
Next
End Sub
Analisi dal 29.06.2010 ad oggi
Primi 10 più frequenti usciti dopo il numero Spia entro i 10 colpi
_________________________________________________________________
Numero spia: 1 su Nazionale casi = 9 colpi 10 - Rit. Spia.. 18
Num. 89 40 43 51 73 45 25 63 57 47
Freq. 13 12 12 11 10 10 10 10 9 9
Rit. 1 6 20 13 37 10 8 4 6 25
-----------------------------------------------------------------
Frequenza combinazione per ambo 41
Frequenza combinazione per terno 4
Ritardo combinazione per ambo 6
Ritardo combinazione per terno 129
quote:Originally posted by rob
CIAO CLAUDIO,NON SO CHE DIRE,....
A BREVE FARO' UNA VERIFICA DEL LISTATO X CONTROLLARNE LA VERIDICITA'
CIAO ROB
Devo dissentire da questo tuo modo di approcciarti alla questione.quote:Originally posted by mike58
Ciao Claudio, non ti preoccupare e ben venga il tuo intervento quello che ti posso dire che lo script lo solo modificato e non ho avuto il tempo di approfondirlo nella sua analisi, ma la lettura andrebbe letta nel seguente modo
- trova i numeri frequenti dopo numero spia nei colpi stabiliti.
- verifica la presenze statistica nel tempo(ini-fin) del numero
trovato
- verifica il ritardo dello stesso
- verifica frequenze e ritardo della combinazione
Come vedi è solo statistica non è un metodo.
Poi ognuno fa le proprie considerazioni.
Ciao Mike
quote:Originally posted by rob
HO FATTO UNA VERIFICA E IL LISTATO E' PRESSOCHE' PERFETTO!!!
-APPROFITTO PER RINGRAZIARE MIKE58 PER AVER AGGIUNTO ALTRI VALORI STATISTICI ALLA RICERCA E SOPRATUTTO PER AVER INCOLONNATO X BENE TUTTI I NUMERI!!!--->VOLEVO CHIEDERTELO MA DOPO IL FAVORE CHE MI AVEVI FATTO NON ME LA SONO SENTITA.....PARE CHE MI HAI LETTO NEL PENSIERO!!!!!
CIAO E COMPLIMENTI X COME HAI RIVITALIZZATO QUESTO UTILISSIMO LISTATO!!!
quote:Originally posted by mike58
Ok Claudio pensalo come ti pare se vuoi essre costruttivo bene correggi qualche imperfezione altrimenti critica pure tanto negli ultimi tempi è solo questo che sai fare.
PS. NON ho tempo devo scappare al lavoro.
Mike58