Ciao, Ilegend.
Questa versione e simile all'altra ma analizza dalla 7440 le presenze di uno qualsiasi dei 90 numeri alla sortita dei numeri usciti nell'estrazione finale.
Output
Na su 713 casi in cui è uscito uno dei numeri della formazione spia
nelle successive 6 estrazioni il numero 20 si è presentato 303 volte 42.50%
Na su 713 casi in cui è uscito uno dei numeri della formazione spia
nelle successive 6 estrazioni il numero 45 si è presentato 307 volte 43.06%
Ve su 732 casi in cui è uscito uno dei numeri della formazione spia
nelle successive 6 estrazioni il numero 27 si è presentato 308 volte 42.08%
Ve su 732 casi in cui è uscito uno dei numeri della formazione spia
nelle successive 6 estrazioni il numero 53 si è presentato 308 volte 42.08%
Questa versione e simile all'altra ma analizza dalla 7440 le presenze di uno qualsiasi dei 90 numeri alla sortita dei numeri usciti nell'estrazione finale.
Output
Na su 713 casi in cui è uscito uno dei numeri della formazione spia
nelle successive 6 estrazioni il numero 20 si è presentato 303 volte 42.50%
Na su 713 casi in cui è uscito uno dei numeri della formazione spia
nelle successive 6 estrazioni il numero 45 si è presentato 307 volte 43.06%
Ve su 732 casi in cui è uscito uno dei numeri della formazione spia
nelle successive 6 estrazioni il numero 27 si è presentato 308 volte 42.08%
Ve su 732 casi in cui è uscito uno dei numeri della formazione spia
nelle successive 6 estrazioni il numero 53 si è presentato 308 volte 42.08%
Codice:
'Ricerca presenze nelle 6 estrazioni successive alla sortita della formazione spia"(Cinzia27)
Sub main()
Dim a(1),ru(1)
'OK
For r=1 To 11
If r=11 Then r=12
ru(1)=r
'pr=0
casi=0
frr=0
For i=1 To 90
a(1)=i
pr=0
casi=0
frr=0
n=StringaEstratti(EstrazioneFin,r)
'n="09.13.89"
n = "0." & n
nr= split(n,".")
OrdinaMatrice nr
For es=7440 To EstrazioneFin
If SerieFreq(es,es,nr,ru,1)>0 Then
casi=casi+1
fr=SerieFreq(es+1,es+6,a,ru,1)
If fr>0 Then
ri= DataEstrazione(es)&" "&FormatSpace(es,5,1)&" "&SiglaRuota(r)&" "& StringaEstratti(EstrazioneFin,r)&" --> "&StringaNumeri(a) &" "&fr
'Scrivi ri
frr=frr+fr
'pr=pr+1
End If
End If
Next
rp=(frr/casi)*100
If rp>42 Then
'Scrivi ri
Scrivi SiglaRuota(r)&" su "&casi&" casi in cui è uscito uno dei numeri della formazione spia "
Scrivi "nelle successive 6 estrazioni il numero "&a(1)&" si è presentato "& frr&" volte "&formatnumber(rp,2)&"%"
'scrivi
End If
Next
Next
End Sub