Novità

Per uno scripter esperto e volenteroso

lotto_tom75

Advanced Premium Member
Metodo non mio. Non ricordo l'autore o autrice. Una "perla" dell'anno 2008. Se qualcuno/a ci riuscisse sarebbe interessante cercare di "scriptalizzarlo..."

In una qualsiasi estrazione dobbiamo rilevare su due ruote unite e allo stesso posto estrazionale, due numeri (uno per ogni ruota) di distanza 3.

Trovata questa condizione, ad ogni numero, bisogna sommare il fisso 33 ricavando così due ambate da mettere in gioco per un massimo di 3 colpi sulle stesse ruote di rilevamento. Attenzione: I due numeri di ricerca devono appartenere alla stessa decina.

Es. 26.7.08
BA 79 4° estr. e CA 76 4° estr.

Operazioni per ricavare l'ambata entro 3 colpi sulle due ruote di BA e CA

79+33=112-90= 22 ambata
76+33=109-90= 19 ambata

Previsione: Bari Cagliari 19-22

esito: Al 1° colpo ambata 22 su Cagliari.

Percentuale di esiti positivi : sembrerebbe molto alta...

In attesa dello scripter...

Good Luck Everybody :o
 
Ultima modifica:
Codice:
''Perla del 2008'' Script By Joe
''V.1.0  Alba 22/07/2013 per lotto_tom75'' 
Sub Main
Dim Nu(2),Ru(2),Po(2) : Po(1) = .3 : Po(2) = .7
Ini = 7900 : Fin = EstrazioneFin
For Es = Ini To Fin : AvanzamentoElab Ini,Fin,Es
For R1 = 1 To 10 : R2 = R1 + 1 : If R2 = 11 Then R2 = 12
For P = 1 To 5 : E1 = Estratto(Es,R1,P) : E2 = Estratto(Es,R2,P)
If Decina(E1) = Decina(E2) Then
If Distanza(E1,E2) = 3 Then
K = K + 1 : Scrivi String(102,"=") & FormatSpace(K,4,1),1
'Scrivi DataEstrazione (Es) & " " & SiglaRuota (R1) & " " & E1 & " >< " & SiglaRuota (R2) & " " & E2
Nu(1) = Fuori90(E1 + 33) : Nu(2) = Fuori90(E2 + 33) : Ru(1) = R1 : Ru(2) = R2
ImpostaGiocata 1,Nu,Ru,Po,2,2
Gioca Es,1
End If
End If
Next : Next : Next
ScriviResoconto
End Sub

:)
 
Ultima modifica:
Codice:
''Perla del 2008'' Script By Joe
''V.1.0  Alba 22/07/2013 per lotto_tom75'' 
Sub Main
Dim Nu(2),Ru(2),Po(2) : Po(1) = .3 : Po(2) = .7
Ini = 7900 : Fin = EstrazioneFin
For Es = Ini To Fin : AvanzamentoElab Ini,Fin,Es
For R1 = 1 To 10 : R2 = R1 + 1 : If R2 = 11 Then R2 = 12
For P = 1 To 5 : E1 = Estratto(Es,R1,P) : E2 = Estratto(Es,R2,P)
If Decina(E1) = Decina(E2) Then
If Distanza(E1,E2) = 3 Then
K = K + 1 : Scrivi String(102,"=") & FormatSpace(K,4,1),1
'Scrivi DataEstrazione (Es) & " " & SiglaRuota (R1) & " " & E1 & " >< " & SiglaRuota (R2) & " " & E2
Nu(1) = Fuori90(E1 + 33) : Nu(2) = Fuori90(E2 + 33) : Ru(1) = R1 : Ru(2) = R2
ImpostaGiocata 1,Nu,Ru,Po,2,2
Gioca Es,1
End If
End If
Next : Next : Next
ScriviResoconto
End Sub

:)

Grazie 1000 joe91 Sei bravissimo!!!
Purtroppo il metodo però sembra aver perso
la sua efficienza... Infatti dal report del
tuo fantastico script risulta un misero:


Casi esaminati : 452
Casi vincenti : 219
Percentuale pos. : 48,45 %



Ancora complimenti e grazie comunque joe91
;)
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 22 agosto 2025
    Bari
    77
    43
    54
    27
    51
    Cagliari
    22
    61
    76
    27
    13
    Firenze
    75
    82
    78
    15
    80
    Genova
    18
    28
    60
    37
    50
    Milano
    84
    06
    90
    36
    40
    Napoli
    47
    09
    53
    65
    14
    Palermo
    74
    29
    40
    50
    30
    Roma
    79
    05
    15
    08
    26
    Torino
    03
    02
    60
    27
    26
    Venezia
    59
    14
    32
    70
    36
    Nazionale
    48
    09
    04
    88
    52
    Estrazione Simbolotto
    Nazionale
    07
    24
    42
    16
    03
Indietro
Alto