Novità

Per joe o altri bravi scripter

Lucio P.

Super Member >GOLD<
Cortesemente un aiuto in questa ricerca (forse un pochino più complicata delle solite) che, a parer mio e pur implementando solamente due numeri per estratto ha tutte le prerogative per essere una buona ricerca statistica.

Questo script di Joe da la possibilità d’inserire un numero Spia e di verificare anche fino a dieci aggregati le uscite per estratto per l’appunto dopo la Spia.

Come si evince, alla fine è stimata una percentuale ottenuta dalla somma degli ultimi tre storici diviso gli eventi totali del numero spia.

288 Casi.
0 Attuali.
37 1° Sto +
36 2° Sto +
35 3° Sto +
109 Somma
264 % Casi/Somma

Orbene, quello che vorrei ottenere automatizzando il processo che purtroppo impegna un bel po’ di tempo (giornate intere) ma anche poter aggiornare ogni tanto i dati è:

Supponendo di voler ricercare solamente 10 o massimo 15 numeri Spia per ruota ( i più frequenti), ai quali e uno per volta si applicheranno coppie numeriche per sondare a priori la migliore in percentuale, si avrà:

Se i numeri spia sono dieci, uno per volta a girare, quindi i restanti nove numeri daranno 36 coppie; oppure nel caso di 15 numeri, le coppie che si formeranno esclusa la spia, saranno per 14 numeri pari a 91 serie. Di queste si prenderà la migliore per ogni numero spia.

In sintesi, visto con dieci numeri sulla ruota di Bari si ottiene quanto segue.

Codice:
[TABLE="width: 452"]
[TR]
[TD="colspan: 6"]BARI   SPIA  04   -   SERIE  36
[/TD]
[/TR]
[TR]
[TD][/TD]
[TD]     Casi
[/TD]
[TD]Somma 3 Stor.
[/TD]
[TD][/TD]
[TD="colspan: 2"]Coppie 36
[/TD]
[/TR]
[TR]
[TD]ID
[/TD]
[TD]288
[/TD]
[TD]Casi/Somma
[/TD]
[TD][/TD]
[TD]MIGLIORE 
[/TD]
[TD]IN %
[/TD]
[/TR]
[TR]
[TD]1
[/TD]
[TD]22.34
[/TD]
[TD]264
[/TD]
[TD][/TD]
[TD]22.78
[/TD]
[TD]297
[/TD]
[/TR]
[TR]
[TD]2
[/TD]
[TD]22.40
[/TD]
[TD]238
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]3
[/TD]
[TD]22.48
[/TD]
[TD]209
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]4
[/TD]
[TD]22.59
[/TD]
[TD]227
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]5
[/TD]
[TD]22.60
[/TD]
[TD]209
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]6
[/TD]
[TD]22.75
[/TD]
[TD]242
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]7
[/TD]
[TD]22.78
[/TD]
[TD]297
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]8
[/TD]
[TD]22.81
[/TD]
[TD]163
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]9
[/TD]
[TD]34.40
[/TD]
[TD]288
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]10
[/TD]
[TD]34.48
[/TD]
[TD]255
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]11
[/TD]
[TD]34.59
[/TD]
[TD]264
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]12
[/TD]
[TD]34.60
[/TD]
[TD]259
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]13
[/TD]
[TD]34.75
[/TD]
[TD]248
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]14
[/TD]
[TD]34.78
[/TD]
[TD]255
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]15
[/TD]
[TD]34.81
[/TD]
[TD]164
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]16
[/TD]
[TD]40.48
[/TD]
[TD]201
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]17
[/TD]
[TD]40.59
[/TD]
[TD]201
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]18
[/TD]
[TD]40.60
[/TD]
[TD]197
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]19
[/TD]
[TD]40.75
[/TD]
[TD]253
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]20
[/TD]
[TD]40.78
[/TD]
[TD]217
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]21
[/TD]
[TD]40.81
[/TD]
[TD]229
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]22
[/TD]
[TD]48.59
[/TD]
[TD]248
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]23
[/TD]
[TD]48.60
[/TD]
[TD]288
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]24
[/TD]
[TD]48.75
[/TD]
[TD]161
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]25
[/TD]
[TD]48.78
[/TD]
[TD]291
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]26
[/TD]
[TD]48.81
[/TD]
[TD]259
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]27
[/TD]
[TD]59.60
[/TD]
[TD]246
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]28
[/TD]
[TD]59.75
[/TD]
[TD]195
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]29
[/TD]
[TD]59.78
[/TD]
[TD]212
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]30
[/TD]
[TD]59.81
[/TD]
[TD]272
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]31
[/TD]
[TD]60.75
[/TD]
[TD]215
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]32
[/TD]
[TD]60.78
[/TD]
[TD]236
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]33
[/TD]
[TD]60.81
[/TD]
[TD]253
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]34
[/TD]
[TD]75.78
[/TD]
[TD]204
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]35
[/TD]
[TD]75.81
[/TD]
[TD]280
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]36
[/TD]
[TD]78.81
[/TD]
[TD]210
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[/TABLE]

Chiaramente ho fatto partire 36 volte lo script che pur molto rapido, porta via molto tempo esaminando il meccanismo su descritto e, per tutti i numeri spia ruote annesse.

Potete automatizzare tale procedura? Anche solamente un numero spia per volta è già una grandissima cosa.

In pratica e con dieci numeri oppure quindici:

Inserisco un numero Spia.
Inserisco i nove aggregati.

Lo script tira fuori le percentuali delle 36 o 91 serie laddove si andrà a scegliere il numero spia migliore con la percentuale più alta.

Alla fine avremo dunque e per ogni ruota, dieci o quindici numeri Spia con la migliore coppia per ognuno d’essi.

Un grandissimo ringraziamento a chi vorrà prendersi questo fastidio!

SCRIPT

Codice:
'Cadute di Lunghetta a seguito di Spia. By Joe. V.7.3 del 20/03/2013'Attenzione Versione di Prova DA CONTROLLARE.
Sub Main()
 Dim Ru(1)
 Ru(1) = ScegliRuota : So = 1
 Sp = CInt(InputBox("Inserisci NumeroSpia","SCELTA SPIA",4))
 Lu = InputBox("Inserisci Lunghetta","GRUPPO NUMERICO","0.0.0.0.0")
 Nu = Split("0." & Lu,".") : L = UBound(Nu)
 Ini = 3950 : Fin = EstrazioneFin
 For Es = Ini To Fin : ColoreTesto 0 : Messaggio Fin - Es
  If Posizione(Es,Ru(1),Sp) > 0 Then
   Casi = Casi + 1
   Scrivi FormatSpace(Es,4,1) & " " & SiglaRuota(Ru(1)) & " " & Po,0,0
   Scrivi "S" & Format2(Sp) & " " & Lu & " (5Psz) ",0,0
   S = SeriePrima(Es + 1,Fin,Nu,Ru,So)
   If S > 0 Then
    Rt = S - Es : Scrivi FormatSpace(Rt,3,1) & " " & String(3,"-") & FormatSpace(S,5,1)
    kSt = kSt + 1 : Redim Preserve Sto(kst) : Sto(kst) = Rt
   Else
    Rt = Fin - Es : Scrivi String(3,"-") & " " & FormatSpace(Rt,3,1) & FormatSpace(Fin,5,1)
    kAt = kAt + 1 : Redim Preserve Att(kAt) : Att(kAt) = Rt
   End If
  End If
 Next
 Scrivi : Scrivi Casi & " Casi."
 Scrivi FormatSpace(CInt(kAt),3,1) & " Attuali."
 OrdinaMatrice Sto,- 1
 For k = 1 To 3 : Scrivi FormatSpace(Sto(k),3,1) & " " & K & "° Sto +" : So = So + Sto(k) : Next
 Scrivi So & " Somma "'& K-1 & " Masssimi Storici"
 Scrivi FormatSpace((Round(Casi * 100/ So)),3,1) & " % Casi/Somma"
End Sub

BUONA GIORNATA E A BUON RENDERE!

CIAO
 
Cortesemente un aiuto in questa ricerca (forse un pochino più complicata delle solite) che, a parer mio e pur implementando solamente due numeri per estratto ha tutte le prerogative per essere una buona ricerca statistica.

Questo script di Joe da la possibilità d’inserire un numero Spia e di verificare anche fino a dieci aggregati le uscite per estratto per l’appunto dopo la Spia.

Come si evince, alla fine è stimata una percentuale ottenuta dalla somma degli ultimi tre storici diviso gli eventi totali del numero spia.

288 Casi.
0 Attuali.
37 1° Sto +
36 2° Sto +
35 3° Sto +
109 Somma
264 % Casi/Somma

Orbene, quello che vorrei ottenere automatizzando il processo che purtroppo impegna un bel po’ di tempo (giornate intere) ma anche poter aggiornare ogni tanto i dati è:

Supponendo di voler ricercare solamente 10 o massimo 15 numeri Spia per ruota ( i più frequenti), ai quali e uno per volta si applicheranno coppie numeriche per sondare a priori la migliore in percentuale, si avrà:

Se i numeri spia sono dieci, uno per volta a girare, quindi i restanti nove numeri daranno 36 coppie; oppure nel caso di 15 numeri, le coppie che si formeranno esclusa la spia, saranno per 14 numeri pari a 91 serie. Di queste si prenderà la migliore per ogni numero spia.

In sintesi, visto con dieci numeri sulla ruota di Bari si ottiene quanto segue.

Codice:
[TABLE="width: 452"]
[TR]
[TD="colspan: 6"]BARI   SPIA  04   -   SERIE  36[/TD]
[/TR]
[TR]
[TD][/TD]
[TD]     Casi[/TD]
[TD]Somma 3 Stor.[/TD]
[TD][/TD]
[TD="colspan: 2"]Coppie 36[/TD]
[/TR]
[TR]
[TD]ID[/TD]
[TD]288[/TD]
[TD]Casi/Somma[/TD]
[TD][/TD]
[TD]MIGLIORE [/TD]
[TD]IN %[/TD]
[/TR]
[TR]
[TD]1[/TD]
[TD]22.34[/TD]
[TD]264[/TD]
[TD][/TD]
[TD]22.78[/TD]
[TD]297[/TD]
[/TR]
[TR]
[TD]2[/TD]
[TD]22.40[/TD]
[TD]238[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]3[/TD]
[TD]22.48[/TD]
[TD]209[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]4[/TD]
[TD]22.59[/TD]
[TD]227[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]5[/TD]
[TD]22.60[/TD]
[TD]209[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]6[/TD]
[TD]22.75[/TD]
[TD]242[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]7[/TD]
[TD]22.78[/TD]
[TD]297[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]8[/TD]
[TD]22.81[/TD]
[TD]163[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]9[/TD]
[TD]34.40[/TD]
[TD]288[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]10[/TD]
[TD]34.48[/TD]
[TD]255[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]11[/TD]
[TD]34.59[/TD]
[TD]264[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]12[/TD]
[TD]34.60[/TD]
[TD]259[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]13[/TD]
[TD]34.75[/TD]
[TD]248[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]14[/TD]
[TD]34.78[/TD]
[TD]255[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]15[/TD]
[TD]34.81[/TD]
[TD]164[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]16[/TD]
[TD]40.48[/TD]
[TD]201[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]17[/TD]
[TD]40.59[/TD]
[TD]201[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]18[/TD]
[TD]40.60[/TD]
[TD]197[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]19[/TD]
[TD]40.75[/TD]
[TD]253[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]20[/TD]
[TD]40.78[/TD]
[TD]217[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]21[/TD]
[TD]40.81[/TD]
[TD]229[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]22[/TD]
[TD]48.59[/TD]
[TD]248[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]23[/TD]
[TD]48.60[/TD]
[TD]288[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]24[/TD]
[TD]48.75[/TD]
[TD]161[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]25[/TD]
[TD]48.78[/TD]
[TD]291[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]26[/TD]
[TD]48.81[/TD]
[TD]259[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]27[/TD]
[TD]59.60[/TD]
[TD]246[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]28[/TD]
[TD]59.75[/TD]
[TD]195[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]29[/TD]
[TD]59.78[/TD]
[TD]212[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]30[/TD]
[TD]59.81[/TD]
[TD]272[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]31[/TD]
[TD]60.75[/TD]
[TD]215[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]32[/TD]
[TD]60.78[/TD]
[TD]236[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]33[/TD]
[TD]60.81[/TD]
[TD]253[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]34[/TD]
[TD]75.78[/TD]
[TD]204[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]35[/TD]
[TD]75.81[/TD]
[TD]280[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]36[/TD]
[TD]78.81[/TD]
[TD]210[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[/TABLE]

Chiaramente ho fatto partire 36 volte lo script che pur molto rapido, porta via molto tempo esaminando il meccanismo su descritto e, per tutti i numeri spia ruote annesse.

Potete automatizzare tale procedura? Anche solamente un numero spia per volta è già una grandissima cosa.

In pratica e con dieci numeri oppure quindici:

Inserisco un numero Spia.
Inserisco i nove aggregati.

Lo script tira fuori le percentuali delle 36 o 91 serie laddove si andrà a scegliere il numero spia migliore con la percentuale più alta.

Alla fine avremo dunque e per ogni ruota, dieci o quindici numeri Spia con la migliore coppia per ognuno d’essi.

Un grandissimo ringraziamento a chi vorrà prendersi questo fastidio!

SCRIPT

Codice:
'Cadute di Lunghetta a seguito di Spia. By Joe. V.7.3 del 20/03/2013'Attenzione Versione di Prova DA CONTROLLARE.
Sub Main()
 Dim Ru(1)
 Ru(1) = ScegliRuota : So = 1
 Sp = CInt(InputBox("Inserisci NumeroSpia","SCELTA SPIA",4))
 Lu = InputBox("Inserisci Lunghetta","GRUPPO NUMERICO","0.0.0.0.0")
 Nu = Split("0." & Lu,".") : L = UBound(Nu)
 Ini = 3950 : Fin = EstrazioneFin
 For Es = Ini To Fin : ColoreTesto 0 : Messaggio Fin - Es
  If Posizione(Es,Ru(1),Sp) > 0 Then
   Casi = Casi + 1
   Scrivi FormatSpace(Es,4,1) & " " & SiglaRuota(Ru(1)) & " " & Po,0,0
   Scrivi "S" & Format2(Sp) & " " & Lu & " (5Psz) ",0,0
   S = SeriePrima(Es + 1,Fin,Nu,Ru,So)
   If S > 0 Then
    Rt = S - Es : Scrivi FormatSpace(Rt,3,1) & " " & String(3,"-") & FormatSpace(S,5,1)
    kSt = kSt + 1 : Redim Preserve Sto(kst) : Sto(kst) = Rt
   Else
    Rt = Fin - Es : Scrivi String(3,"-") & " " & FormatSpace(Rt,3,1) & FormatSpace(Fin,5,1)
    kAt = kAt + 1 : Redim Preserve Att(kAt) : Att(kAt) = Rt
   End If
  End If
 Next
 Scrivi : Scrivi Casi & " Casi."
 Scrivi FormatSpace(CInt(kAt),3,1) & " Attuali."
 OrdinaMatrice Sto,- 1
 For k = 1 To 3 : Scrivi FormatSpace(Sto(k),3,1) & " " & K & "° Sto +" : So = So + Sto(k) : Next
 Scrivi So & " Somma "'& K-1 & " Masssimi Storici"
 Scrivi FormatSpace((Round(Casi * 100/ So)),3,1) & " % Casi/Somma"
End Sub

BUONA GIORNATA E A BUON RENDERE!

CIAO


Buona giornata
A quanto sembra pare che nessuno dei bravi scripters voglia prendersi la briga di aiutarmi in questa impresa.
Non fa niente, ringrazio comunque per l'attenzione.

Ciao a tutti
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 17 luglio 2025
    Bari
    22
    33
    04
    68
    47
    Cagliari
    09
    52
    27
    21
    47
    Firenze
    05
    33
    72
    17
    08
    Genova
    76
    67
    65
    68
    45
    Milano
    75
    52
    46
    34
    22
    Napoli
    40
    23
    71
    12
    22
    Palermo
    44
    89
    39
    01
    31
    Roma
    89
    04
    05
    82
    26
    Torino
    05
    59
    85
    88
    24
    Venezia
    69
    45
    75
    44
    30
    Nazionale
    28
    85
    16
    03
    83
    Estrazione Simbolotto
    Nazionale
    39
    26
    40
    23
    24
Indietro
Alto