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
    giovedì 31 luglio 2025
    Bari
    42
    35
    89
    51
    34
    Cagliari
    54
    34
    02
    77
    57
    Firenze
    73
    01
    07
    15
    04
    Genova
    71
    28
    17
    03
    67
    Milano
    72
    37
    26
    09
    63
    Napoli
    04
    46
    83
    68
    31
    Palermo
    62
    18
    36
    34
    52
    Roma
    37
    44
    49
    67
    32
    Torino
    51
    17
    56
    48
    41
    Venezia
    36
    04
    85
    81
    41
    Nazionale
    08
    52
    01
    24
    05
    Estrazione Simbolotto
    Nazionale
    21
    19
    01
    17
    43
Indietro
Alto