il rendiconto dice:
Class Script
Sub Main
Dim Nu(15),rit(16),pos(5),po(15),fre(16),Ru(1) As Integer
Dim T(),V(),vv(),aUscite(),Esito As String
Dim Ini As Integer = EstrazioniArchivio - 200
Dim fin As Integer = EstrazioniArchivio - 1
Dim fine As Integer = EstrazioniArchivio
Dim riga As String
Dim p,aaa,x,xx,r,k As Integer
Scrivi ("Tabella By Mike58",1)
T = {" Ruota "," N1 ", "N2 "," N3 "," N4 "," N5 "," N6 "," N7 "," N8 "," N9 "," N10 "," N11 "," N12 "," N13 "," N14" ," N15 "," ---- Esito Fin ---- "}
Call InitTabella(T,ColoreBlu,,,ColoreBianco )
riga = ""
For r = 1 To 11
For p = 1 To 15
Nu(p) = NumeroPosRit(fin,r,p)
rit(p) = EstrattoRitardo(Nu(p),r,Ini,fin)
fre(p) = EstrattoFrequenza(Nu(p),r,fine,fine)
If fre(p) > 0 Then riga = riga & p & ","
If fre(p) <> 1 Then rit(p) = rit(p) + 1
Ru(1) = r
Next
Esito = "--"
If VerificaEsito(Nu,Ru,1,fine,,1,,aUscite) Then
For k1 As Integer = 0 To aUscite.getupperbound(0)
If aUscite(k1) <> "" Then Esito = aUscite(k1)
Next
End If
V = {StringaRuote(Ru),Nu(1),Nu(2),Nu(3),Nu(4),Nu(5),Nu(6),Nu(7),Nu(8),Nu(9),Nu(10),Nu(11),Nu(12),Nu(13),Nu(14),Nu(15),Esito}
vv = {"Rit",rit(1),rit(2),rit(3),rit(4),rit(5),rit(6),rit(7),rit(8),rit(9),rit(10),rit(11),rit(12),rit(13),rit(14),rit(15),"Posiz......... " & RimuoviLastChr(riga,",") }
Call AddRigaTabella(V,,,75,,,"arial black")
Call SetColoreCellaRighe (0,,ColoreRosso)
riga = ""
k = 0
For x = 1 To 16
If rit(x) > 99 Then Call SetColoreCellaRighe ((x ),ColoreRosso ,ColoreGiallo)
If rit(x) > 54 And rit(x) < 100 Then Call SetColoreCellaRighe((x ),ColoreMagenta,ColoreNero )
If fre(x) > 0 Then Call SetColoreCellaRighe((x ),ColoreVerde ,ColoreBianco )
Next
Call AddRigaTabella(vv,,"Right",,ColoreBlu)
For xx = 1 To 16
If rit(xx) > 54 And rit(xx) < 100 Then Call SetColoreCellaRighe((xx ),ColoreGiallo,ColoreNero )
If rit(xx) > 99 Then Call SetColoreCellaRighe((xx ),ColoreGiallo,ColoreRosso )
Next
' sPos = ""
Next
CreaTabella
End Sub
End Class Ruota | N1 | N2 | N3 | N4 | N5 | N6 | N7 | N8 | N9 | N10 | N11 | N12 | N13 | N14 | N15 | ---- Esito Fin ---- |
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Ba | 11 | 7 | 34 | 51 | 87 | 81 | 12 | 46 | 31 | 22 | 21 | 65 | 14 | 32 | 3 | -- |
Rit | 58 | 55 | 48 | 45 | 45 | 44 | 42 | 41 | 39 | 39 | 37 | 36 | 36 | 35 | 34 | Posiz......... |
Ca | 39 | 15 | 12 | 40 | 53 | 35 | 83 | 84 | 23 | 77 | 47 | 18 | 27 | 37 | 76 | -- |
Rit | 84 | 78 | 51 | 49 | 49 | 46 | 46 | 45 | 45 | 44 | 43 | 40 | 39 | 37 | 36 | Posiz......... |
Fi | 67 | 15 | 83 | 40 | 20 | 36 | 55 | 26 | 45 | 3 | 62 | 7 | 34 | 85 | 31 | Fi --.03.--.--.-- |
Rit | 109 | 84 | 55 | 55 | 54 | 54 | 48 | 40 | 38 | 35 | 35 | 31 | 30 | 29 | 29 | Posiz......... 10 |
Class Script
Sub Main
Dim Nu(1),Ru(1) As Integer
Dim ini,fin ,fine,inizio As Integer
Dim r,k1,k2,k,n,z,somRit As Integer
Dim MedRit As Decimal
Dim rit() As Integer
Dim T(),V() As String
fin = EstrazioniArchivio
ini = fin - 1000
For r = 1 To 11
Scrivi ("Numeri ultimi 10 Ritardi *** Equilibrio In...Stabile **** Script By Mike58 **** © ",1,,,ColoreBlu ,,,True)
T = {"Ruota","Numero","RitCorr","Rp2","Rp3","Rp4","Rp5","Rp6","Rp7","Rp8","Rp9","Rp10","K<18","K>18","SommaRit","MedRit"}
Call InitTabella(T,ColoreVerde ,,,ColoreBianco)
For n = 1 To 90
Nu(1) = n
Ru(1) = r
ReDim rit (10)
inizio = 1
fine = EstrazioniArchivio
somRit = 0
For z = 1 To 10
rit(z) = SerieRitardo (Nu,Ru,1,fine,,,inizio)
fine = fine -(rit(z) + 1)
If rit(z) <= 18 Then k1 = k1 + 1
If rit(z) > 18 Then k2 = k2 + 1
somRit = somRit + rit(z)
MedRit = somRit/z
Next
If MedRit < 10 Then
V = {NomeRuota(r),Nu(1),rit(1),rit(2),rit(3),rit(4),rit(5),rit(6),rit(7),rit(8),rit(9),rit(10),k1,k2,somRit, MedRit }
Call AddRigaTabella(V)
For x As Integer = 2 To 11
If V(x) > 18 Then Call SetColoreCellaRighe ((x),ColoreNero,ColoreBianco )
Next
Call SetColoreCellaRighe(1,ColoreVerde,ColoreBianco)
Call SetColoreCellaRighe(12,ColoreRosa,ColoreNero)
Call SetColoreCellaRighe(13,ColoreRosa,ColoreNero)
End If
k1 = 0
k2 = 0
Next
CreaTabella(12)
Next
End Sub
End ClassRuota | Numero | RitCorr | Rp2 | Rp3 | Rp4 | Rp5 | Rp6 | Rp7 | Rp8 | Rp9 | Rp10 | K<18 | K>18 | SommaRit | MedRit |
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Ba | 53 | 17 | 2 | 1 | 3 | 0 | 16 | 9 | 6 | 13 | 2 | 10 | 0 | 69 | 6,9 |
Ba | 54 | 3 | 1 | 23 | 1 | 0 | 7 | 10 | 10 | 1 | 0 | 9 | 1 | 56 | 5,6 |
Ba | 62 | 14 | 0 | 8 | 29 | 4 | 4 | 4 | 5 | 15 | 1 | 9 | 1 | 84 | 8,4 |
Ba | 15 | 12 | 5 | 24 | 12 | 2 | 6 | 2 | 2 | 1 | 26 | 8 | 2 | 92 | 9,2 |
Ba | 55 | 0 | 7 | 5 | 1 | 5 | 6 | 20 | 21 | 11 | 1 | 8 | 2 | 77 | 7,7 |
Ba | 86 | 5 | 24 | 1 | 3 | 1 | 4 | 27 | 6 | 8 | 8 | 8 | 2 | 87 | 8,7 |
Class Script
Sub Main()
Dim ru(1),n(1),aN() As Integer
Dim T(),V(),rigo,esito,aUscite() As String
Dim ini,fin,fine As Integer
Dim r,rit,rit2,i,co,d,s,trovati,p,Rcc As Integer
Dim Tab(,) As Object
fin = EstrazioniArchivio - 1
fine = EstrazioniArchivio
For r = 1 To 11
'Erase Tab '= 0
ReDim Tab(90,5)
T = {" Livello "," Ruota "," RitCorr "," Numeri Sincroni "," Verifica Sortita Fine "}
Call InitTabella(T)
ru(1) = r : co = 1 :d = 1
n(1) = NumeroPosRit(fin,r,1)
rit = SerieRitardo(n,ru,1,fin-250,,,fin )
Tab(1,d) = n(1)
Tab(1,0) = rit
For i = 2 To 90 ' scorro le posizioni di ritardo
n(1) = NumeroPosRit(fin,r,i)
rit2 = SerieRitardo(n,ru,1,fin,,,fin-250)
If rit2 <> rit Then
co = co + 1
d = 1
Tab(co,d) = n(1)
Tab(co,0) = rit2
rit = rit2
Else
d = d + 1
Tab(co,d) = n(1)
End If
Next
'------------------------------------------
'Scrivi Chr(10) & " RC - " & NomeRuota(r),1
For s = 1 To 5
For i = 0 To co
trovati = 0 : rigo = ""
For p = 1 To 5
If Tab(i,p) > 0 Then
trovati = trovati + 1
rigo = rigo & Format2(Tab(i,p)) & " "
ReDim Preserve aN(trovati)
aN(trovati) = Tab(i,p)
Else Exit For
End If
Next
esito = "--"
If VerificaEsito(aN,ru,1,fine,,,,aUscite) Then
For k1 As Integer = 0 To aUscite.GetUpperBound(0)
If aUscite(k1) <> "" Then esito = aUscite(k1)
Next
End If
Rcc = SerieRitardo(aN,ru,1,fin,,,fin-250)
If SerieFrequenza(aN,ru,1,fine,fine ) = 0 Then Rcc = Rcc + 1
If SerieFrequenza (aN,ru,1,fine,fine ) > 0 Then Rcc = Rcc
'If trovati = s Then Scrivi FormatSpace(Tab(i,0),3,1) & " => " & Rigo & vbTab & es1 : rigo = "": Exit For
If trovati = s Then
V = {s,NomeRuota(r),Rcc ,StringaNumeri(aN,,1),esito }
Call AddRigaTabella(V)
rigo = ""
Exit For
End If
Next
Next
CreaTabella
Next 'r
End Sub
End Class Livello | Ruota | RitCorr | Numeri Sincroni | Verifica Sortita Fine |
|---|---|---|---|---|
1 | Ba | 58 | 11 | -- |
2 | Ba | 45 | 51.87 | -- |
3 | Ba | 27 | 72.67.05 | Ba --.--.05.--.-- |
4 | Ba | 7 | 74.36.59.29 | -- |
5 | Ba | 16 | 49.38.64.66.53 | Ba --.38.--.--.-- |
Class Script
Sub Main
Dim T(),aUscite(),esito As String
Dim Nu(1),Ru(1),aN() As Integer
Dim ini,fin,es,fine As Integer
Dim rit,rit1,r,x,k,RsL ,nliv,Liv,pre,freq ,tot As Integer
Dim coeff,Attend , PresTeo ,IC,SomInd As Decimal
fin = EstrazioniArchivio-1
fine = fin + 1
ini = fin - 200
tot = fin - ini + 1
'Liv = CInt(InputBox("Quale Livello ",,3))
'r = InputBox("Quale Ruota",,1)
Scrivi ("Estrazione inizio............. " & GetInfoEstrazione (ini))
Scrivi ("Estrazione Fine............... " & GetInfoEstrazione(fin))
Scrivi ("Estrazioi Esaminate........... " & tot )
Scrivi ("Filtro Tabella Coeff-RsL...... " & "> 0.79",1)
Scrivi ("Script By Mike58 ",1,,,ColoreBlu )
T = {"Ruota","Ritardo","Presenze" ,"Numeri","Livello"," RitSincLiv ","Coeff - RSL/RIT "," Ind.Conv.. ","Attendibilità","Somma Indici","Verifica Fine"}
Call InitTabella(T)
For r = 1 To 11
For rit = 0 To 230
For x = 1 To 90
Nu(1) = x
Ru(1) = r
'SerieStat (Nu,Ru,1,rit1,,freq,pre,,ini,fin)
rit1 = SerieRitardo (Nu,Ru,1,fin,,,ini)
If rit1 = rit Then
k +=1
ReDim Preserve aN(k)
aN(k) = x
RsL = RitSincronoDiLivello (x,r,fin,nliv,0)
freq = SerieFrequenza (aN,Ru,1,ini,fin)
coeff = Divisione(RsL,rit )
IC = CalcolaIC(freq,rit1,tot)
PresTeo = ((5*1) *(10/11) ^ rit1)
Attend = Divisione(nliv,nliv + PresTeo )
SomInd = coeff + IC + Attend
End If
Next
esito = "--"
If VerificaEsito (aN,Ru,1,fine,,,,aUscite) Then
For k1 As Integer = 0 To aUscite.GetUpperBound(0)
If aUscite(k1) <> "" Then esito = aUscite(k1)
Next
End If
'If k > 0 And nliv = Liv Then
If k > 0 And coeff > 0.79 And coeff < 1 Then
T = {NomeRuota(r), rit,freq, StringaNumeri(aN),nliv,RsL,coeff, IC,Attend,SomInd ,esito }
Call AddRigaTabella(T)
Call SetColoreCellaTitolo(9,ColoreRosso,ColoreBianco)
Call SetColoreCellaTitolo(3,ColoreRosso,ColoreBianco)
Call SetColoreCellaTitolo(6,ColoreVerde,ColoreBianco)
End If
k = 0
Next
Next
CreaTabella(9)
End Sub
End ClassRuota | Ritardo | Presenze | Numeri | Livello | RitSincLiv | Coeff - RSL/RIT | Ind.Conv.. | Attendibilità | Somma Indici | Verifica Fine |
|---|---|---|---|---|---|---|---|---|---|---|
Fi | 30 | 27 | 31.72.85 | 3 | 24 | 0,8 | 4,020 | 0,91 | 5,730 | -- |
Na | 58 | 13 | 25 | 1 | 47 | 0,81 | 3,770 | 0,98 | 5,560 | -- |
Ve | 104 | 7 | 13 | 1 | 87 | 0,84 | 3,640 | 1,00 | 5,480 | -- |
Ca | 79 | 9 | 15 | 1 | 72 | 0,91 | 3,555 | 1,00 | 5,465 | -- |
Na | 42 | 15 | 10.59 | 2 | 36 | 0,86 | 3,150 | 0,96 | 4,970 | -- |
Nz | 37 | 17 | 55 | 1 | 30 | 0,81 | 3,145 | 0,87 | 4,825 | -- |
Nz | 72 | 8 | 18 | 1 | 62 | 0,86 | 2,880 | 0,99 | 4,730 | -- |
Ve | 14 | 40 | 19.64.78.87 | 4 | 13 | 0,93 | 2,786 | 0,75 | 4,466 | Ve --.--.--.--.87 |
Buonasera mike ho visto nel forum che tu e Luigi siete i più esperti del programma Spaziometria, io lo sto usando da poco , sto cercando di utilizzare la voce lunghette per effettuare una ricerca classe 10 sorte 3 su una ruota specifica solo tra i numeri pari ,però impostando i parametri e selezionando solo i numeri pari nei risultati escono lunghette contenenti numeri dispari, non rispetta la griglia che scelgo ,anche diminuendo i numeri inserisce numeri non selezionati e mi fa la stessa cosa anche con i dispari ,cosa sbaglio ?
Ciao Mike grazie per la risposta.Purtroppo lo fa anche limitando la scelta dei numeri es imposto dall 1-45 mi da lunghette con numeri superioriCiao Gabbo, premesso che non uso queste finestre del programma , in quanto io preferisco cimentarmi nel fare statistiche tramite script, quindi la mia risposta non può essere precisa.
Tuttavia sperimentando e simulalando la statistica lunghette, io ho selezionato 6 numeri x sorte ambo e tutti numeri pari e l'elaborazione riporta solo numeri pari.
Se invece volessi impostare 10 numeri x sorte terno e stoppassi l'eleaborazione questa riporta anche numeri dispari sul trovato. (forse perchè stppato prima non saprei) .
Anche finita l'elaborazioni mi riporta numeri dispari ( è vero ) sarà un vecchio baco come ti ha detto Nikor in altra risposta post.
Ciao
