Salve pfca
tempo fà hai realizzato lo script che ti allego sotto, il quale trova in qualsiasi ruota dopo un estratto in decina
le frequenze dei numeri usciti in seguito della stessa decina , ora io ti chiedo, potresti realizzare uno script
con le stesse modalità ma per i numeri radicali ? dovresti anche far uscire una tabella che mi dice quali numeri
più frequenti della stessa quartina radicale sono usciti e un'altra con i numeri radicali di altre quartine radicali,
esempio, mettiamo che esca il radicale 59 il resoconto mi dirà che il 5 è è il più frequente poi il 50 poi il 55 o il
59 stesso e poi altra tabella ove ci siano indicati quali altri numeri radicali siano stati più frequenti es. il 77 o
magari il 60 ecc. ecc.
Vista la mia battaglia che porto avanti da anni contro i radicali, mi faresti un grosso regalo e penso che lo
sia per tutto il forum.
Attendo con ansia tue nuove e ti ringrazio fin da ora.
Saluti
Giorgio
'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
tempo fà hai realizzato lo script che ti allego sotto, il quale trova in qualsiasi ruota dopo un estratto in decina
le frequenze dei numeri usciti in seguito della stessa decina , ora io ti chiedo, potresti realizzare uno script
con le stesse modalità ma per i numeri radicali ? dovresti anche far uscire una tabella che mi dice quali numeri
più frequenti della stessa quartina radicale sono usciti e un'altra con i numeri radicali di altre quartine radicali,
esempio, mettiamo che esca il radicale 59 il resoconto mi dirà che il 5 è è il più frequente poi il 50 poi il 55 o il
59 stesso e poi altra tabella ove ci siano indicati quali altri numeri radicali siano stati più frequenti es. il 77 o
magari il 60 ecc. ecc.
Vista la mia battaglia che porto avanti da anni contro i radicali, mi faresti un grosso regalo e penso che lo
sia per tutto il forum.
Attendo con ansia tue nuove e ti ringrazio fin da ora.
Saluti
Giorgio
'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
