|
BASEF 5R-SUNTO TERZA
Ecco uno script che gira su L8+ qualsiasi versione dalla 5.1 in poi.
Se qualche volenteroso lo traduce anche per Spaziometria e' ben venuto.
Lo script e' semplice e veloce per ricavare subito l'Aggregato di 9 o 10 numeriuna in 5 ruote consecutive.
Sembra fatto apposta anche per i cultori della Spaziometria e della Posiziometria dove possono trovare le loro geometriche connessioni.
Con questo script ogni possessore di L8+ ha la possibilita' di studiare la BaseF.
E' tutto impostato e basta cambiare solamente il seguente:
ini=EstrazioneFin-9 (si imposta l'estrazione di inizio della analisi)
fin=EstrazioneFin-6 (si imposta l'estrazione finale della analisi)
Per esempio, se si vuole lanciare lo script per le ultime 6 estrazioni, l'impostazione e' la seguente:
ini=EstrazioneFin-5
fin=EstrazioneFin-0 (il valore 0 e' l'ultima estrazione in archivio)
Scrivi "BaseF a 5 Ruote di Adriano Scaravetti"
Scrivi "BaseF_5R-Visio Semplice-Ruote Consecutive.ls"
Scrivi String(35,"-")&"-> By Scaralab"
Sub main()
Dim poste(2),ruote(5),numerissimi(11), nume(10)
Dim nu(1),numeri(90),nnnn(1),nnn(1),nnl(1),pp(1)
Dim ruota1(1),ruota2(1),ruota3(1),ruota4(1),ruota5(1)
Dim lotr1(10),lotr2(10),lotr3(10),lotr4(10),lotr5(10)
poste(1)=1 : poste(2)=0
ini=EstrazioneFin-11
fin=EstrazioneFin-0
For est=ini To fin
AvanzamentoElab ini,fin,est
For rt1=1 To 6
ruote(1)=rt1 : ruota1(1)=rt1
For rt2=rt1+1 To rt1+1
ruote(2)=rt2 : ruota2(1)=rt2
For rt3=rt2+1 To rt2+1
ruote(3)=rt3 : ruota3(1)=rt3
For rt4=rt3+1 To rt3+1
ruote(4)=rt4 : ruota4(1)=rt4
For rt5=rt4+1 To rt4+1
ruote(5)=rt5 : ruota5(1)=rt5 : cont=0
Erase numeri
For n = 1 To 90 step 1
nu(1)=n
If SerieFreq(est-3,est,nu,ruote,1)=>3 Then
numeri(n)=CInt(nu(1))
cont=cont+1
End If
Next
If cont=>9 And cont=10 Then
OrdinaMatrice numeri,-1
EliminaRipetuti numeri
For k = 1 To 10
If numeri(k)>0 Then
numerissimi(k) = CInt(numeri(k)) : nume(k)=CInt(numeri(k))
End If
Next
Scrivi DataEstrazione(est)&" Analisi Frequenza su "&NomeRuota(rt1)&_
" "&NomeRuota(rt2)&" "&NomeRuota(rt3)&" "&NomeRuota(rt4)&" "&NomeRuota(rt5)
Scrivi
xx=cont : riga="" : presr=0
For e=est-3 To est step 1
For rr=1 To 10
If rr=ruote(1) Or rr=ruote(2) Or rr=ruote(3) Or rr=ruote(4) Or rr=ruote(5) Then
For ppp=1 To 5
nn = Estratto(e, rr, ppp)
numerissimi(xx+1)=nn
If NumeriRipetuti(numerissimi)=True Then
presr=presr+1
riga=riga+" "+Format2(nn)
Else
riga=riga+" --"
End If
Next
If rr<rt5 Then
riga=riga+" "
End If
End If
Next
Scrivi riga+" pres. di riga "+FormatSpace(presr,3,True)
riga="" : presr=0
Next
rigacol="" : presc=0 : tot=0
For rr=1 To 10
If rr=ruote(1) Or rr=ruote(2) Or rr=ruote(3) Or rr=ruote(4) Or rr=ruote(5) Then
For ppp=1 To 5 step 1
For e=est-3 To est step 1
nn = Estratto(e, rr, ppp)
numerissimi(xx+1)=nn
If NumeriRipetuti(numerissimi)=True Then
presc = presc+1 : tot=tot+1
End if
Next
numerissimi(xx+1)=0 : rigacol=rigacol+FormatSpace(presc,3,True) : presc=0
If ppp=5 And rr<rt5 Then
rigacol=rigacol+" -"
End If
Next
End If
Next
Scrivi " "+String(82,"-")
Scrivi rigacol+" pres. di col. "+FormatSpace(tot,3,True)+" tot"
tot=0
Scrivi
Scrivi " Rilevati "& cont&" numeri: -> "&StringaNumeri(nume),1
Scrivi
cont=0
For k = 1 To 10
nnnn(1)=0
If numerissimi(k)>0 Then
rigafrrr=" > "
nnnn(1)=numerissimi(k)
frrr=SerieFreq(est-3,est,nnnn,ruote,1)
rigafrrr=rigafrrr& Format2(nnnn(1))&" - sortito "&frrr&" volte "
If frrr>3 Then
rigafrrr=rigafrrr&" = scompenso +"
End If
Scrivi rigafrrr
End If
Next
Scrivi
rigaruota1="" : ruota1(1)=rt1
For k = 1 To 10
If numerissimi(k)>0 Then
nnnn(1)=numerissimi(k)
If SerieFreq(est-3,est,nnnn,ruota1,1) > 0 Then
rigaruota1=rigaruota1&"."&nnnn(1) : lotr1(k)=numerissimi(k)
End If
End If
Next
Scrivi FormatSpace(NomeRuota(rt1),9)+" "+rigaruota1
rigaruota2="" : ruota2(1)=rt2
For k = 1 To 10
If numerissimi(k)>0 Then
nnnn(1)=numerissimi(k)
If SerieFreq(est-3,est,nnnn,ruota2,1) > 0 Then
rigaruota2=rigaruota2&"."&nnnn(1) : lotr2(k)=numerissimi(k)
End If
End If
Next
Scrivi FormatSpace(NomeRuota(rt2),9)+" "+rigaruota2
rigaruota3="" : ruota3(1)=rt3
For k = 1 To 10
If numerissimi(k)>0 Then
nnnn(1)=numerissimi(k)
If SerieFreq(est-3,est,nnnn,ruota3,1) > 0 Then
rigaruota3=rigaruota3&"."&nnnn(1) : lotr3(k)=numerissimi(k)
End If
End If
Next
Scrivi FormatSpace(NomeRuota(rt3),9)+" "+rigaruota3
rigaruota4="" : ruota4(1)=rt4
For k = 1 To 10
If numerissimi(k)>0 Then
nnnn(1)=numerissimi(k)
If SerieFreq(est-3,est,nnnn,ruota4,1) > 0 Then
rigaruota4=rigaruota4&"."&nnnn(1) : lotr4(k)=numerissimi(k)
End If
End If
Next
Scrivi FormatSpace(NomeRuota(rt4),9)+" "+rigaruota4
rigaruota5="" : ruota5(1)=rt5
For k = 1 To 10
If numerissimi(k)>0 Then
nnnn(1)=numerissimi(k)
If SerieFreq(est-3,est,nnnn,ruota5,1) > 0 Then
rigaruota5=rigaruota5&"."&nnnn(1) : lotr5(k)=numerissimi(k)
End If
End If
Next
Scrivi FormatSpace(NomeRuota(rt5),9)+" "+rigaruota5
Scrivi
EliminaRipetuti nume
OrdinaMatrice nume,-1
ImpostaGiocata 1,nume,ruote,poste,48
Gioca est
Erase numerissimi
Erase numeri
Erase nume
Erase lotr1
Erase lotr2
Erase lotr3
Erase lotr4
Erase lotr5
End If
Next : Next : Next : Next : Next : Next
Scrivi
ScriviResoconto
End Sub
mas
|
