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ì 01 agosto 2025
    Bari
    38
    02
    68
    33
    79
    Cagliari
    21
    78
    83
    22
    55
    Firenze
    63
    14
    72
    28
    16
    Genova
    21
    46
    17
    40
    39
    Milano
    49
    60
    17
    77
    63
    Napoli
    90
    05
    77
    74
    53
    Palermo
    16
    61
    43
    37
    90
    Roma
    40
    45
    27
    57
    32
    Torino
    62
    57
    26
    82
    61
    Venezia
    06
    46
    68
    32
    29
    Nazionale
    71
    36
    06
    32
    15
    Estrazione Simbolotto
    Nazionale
    30
    37
    17
    41
    08

Ultimi Messaggi

Indietro
Alto