Per joe o altri bravi scripter

[Lucio P.]

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.

[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

'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

 

[Lucio P.]

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.

[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

'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