Novità

Pronostico sulla ruota di Torino (da condizione ottimale)

Procedimento
Nella medesima estrazione su entrambe le ruote di Bari e Cagliari deve sortire almeno un elemento della terzina consecutiva 16-17-18

La previsione verrà giocata sulla ruota di Torino per un tempo massimo di nove colpi di gioco e sarà così composta:

Ambate: 51-76
1°abbinamento per ambo: il numero della decina del 4°estratto di Bari dev'essere adattato come unità alla decina 3
2°abbinamento per ambo: il numero della decina del 1°estratto di Venezia dev'essere adattato come unità alla decina 3
3°abbinamento per ambo: il numero della decina del 4°estratto di Cagliari dev'essere adattato come unità alla decina 8


Esempio pratico:
nell'estrazione del 07/08/18 su entrambe le ruote di Bari e Cagliari è presente almeno un numero della terzina spia (16 Ba-18 Ca) quindi si può ricavare la previsione.

Ambate: 51-76
1°abbinamento per ambo: il numero della decina del 4°estratto di Bari (50) dev'essere adattata come unità alla decina 3 (35)
2°abbinamento per ambo: il numero della decina del 1°estratto di Venezia (25) dev'essere adattata come unità alla decina 3 (32)
3°abbinamento per ambo: il numero della decina del 4°estratto di Cagliari (66) dev'essere adattata come unità alla decina 8 (86)

Vi posto i casi dall'anno 2015:

02/04/15: (51-76) (31-34-85)
2°c 76 To

31/10/15: (51-76) (38-82)
5°c 51 To

04/06/16: (51-76) (31-38-83)
1°c 51-76 To

23/06/16: (51-76) (36-37-81)
1°c 51-37 To

30/07/16: (51-76) (31-32-81)
3°c 51-31 To

13/09/16: (51-76) (34-39-83)
2°c 76-34 / 76-83 To

27/10/16: (51-76) (38-37-81)
2°c 76-81 To

01/04/17: (51-76) (37-31-89)
3°c 51 To

27/05/17: (51-76) (31-36-81)
2°c 51 To

27/07/17: (51-76) (35-34-81)
2°c 76-81 To

10/08/17: (51-76) (32-38-84)
2°c 76-84 To

02/09/17: (51-76) (36-37-81)
6°c 76-37 To

17/10/17: (51-76) (34-38-82)
5°c 76-34 To

14/12/17: (51-76) (33-82)
5°c 76 To

17/02/18: (51-76) (35-34-84)
8°c 76-35 To

27/03/18: (51-76) (31-34-81)
7°c 51-31 To

05/05/18: (51-76) (31-36-81)
7°c 51-36 To

Segnatevi negli appunti quest'altro mio metodo ed attendiamo la prossima condizione utile :)
Chi è capace di fare uno script ??? Grazie
 
Chi è capace di fare uno script ??? Grazie

Sub Main()
'https://forum.lottoced.com/threads/...torino-da-condizione-ottimale.2126339/page-18
Scrivi " PRONOSTICO OTTIMALE SU TORINO di DamBu82",1,,2,6,5,,1
Dim rt(2),Nn(6),E1,E2,P5,P6
Dim Cinquina1(5),Ambata1(2),Ambo1(2),Ambo2(2),Ambo3(2),Ambo4(2),Ambo5(2),Ambo6(2)
Dim PostaC(5),PostaA(2),PostaAbt(2)
Dim Num(5),Ba4,Ve1,Ca4
ex = CInt(InputBox("Quante estrazioni controllo?","Estrazioni",1500))
ini = EstrazioneFin - ex
fin = EstrazioneFin
For es = ini To fin
Messaggio es
R1 = 1 : R2 = 2
For P1 = 1 To 5
For P2 = 1 To 5
Nn(1) = Estratto(es,R1,P1) ': Nn(2) = Estratto(es,R1,P2) : Nn(3) = Estratto(es,R1,P3)
Nn(4) = Estratto(es,R2,P2) ': Nn(5) = Estratto(es,R2,P2) : Nn(6) = Estratto(es,R2,P3)'31-9
'-----------------------------------------------------------------------------------------------------------------------------------------
If Nn(1) = 16 Or Nn(1) = 17 Or Nn(1) = 18 Then 'Or Nn(2) = 16 Or Nn(2) = 17 Or Nn(2) = 18 Or Nn(3) = 16 Or Nn(3) = 17 Or Nn(3) = 18 Then
If Nn(4) = 16 Or Nn(4) = 17 Or Nn(4) = 18 Then 'Or Nn(5) = 16 Or Nn(5) = 17 Or Nn(5) = 18 Or Nn(6) = 16 Or Nn(6) = 17 Or Nn(6) = 18 Then
'------------------------------------------------------------------------------------------------------------------------------------------
Num(1) = 51
Num(2) = 76
Ba4 = Estratto(es,BA_,4)
If Ba4 < 10 Then Ba4 = 90
Ve1 = Estratto(es,VE_,1)
If Ve1 < 10 Then Ve1 = 90
Ca4 = Estratto(es,CA_,4)
If Ca4 < 10 Then Ca4 = 90
Num(3) = 3 & Decina(Ba4) : Num(4) = 3 & Decina(Ve1) : Num(5) = 8 & Decina(Ca4)
rt(1) = 9
PostaAbt(1) = 2 PostaAbt(2) = 1
PostaA(2) = 1
PostaC(2) = 1 : PostaC(3) = 0.5 : PostaC(4) = 0.5 : PostaC(5) = 0.5
k = 9
Ambata1(1) = Num(1)
Ambata1(2) = Num(2)
ImpostaGiocata 2,Ambata1,rt,PostaAbt,k,1
Ambo1(1) = Num(1)
Ambo1(2) = Num(3)
ImpostaGiocata 3,Ambo1,rt,PostaA,k,2
Ambo2(1) = Num(1)
Ambo2(2) = Num(4)
ImpostaGiocata 4,Ambo2,rt,PostaA,k,2
Ambo3(1) = Num(1)
Ambo3(2) = Num(5)
ImpostaGiocata 5,Ambo3,rt,PostaA,k,2
Ambo4(1) = Num(2)
Ambo4(2) = Num(3)
ImpostaGiocata 6,Ambo4,rt,PostaA,k,2
Ambo5(1) = Num(2)
Ambo5(2) = Num(4)
ImpostaGiocata 7,Ambo5,rt,PostaA,k,2
Ambo6(1) = Num(2)
Ambo6(2) = Num(5)
ImpostaGiocata 8,Ambo6,rt,PostaA,k,2
Cinquina1(1) = Num(1)
Cinquina1(2) = Num(2)
Cinquina1(3) = Num(3)
Cinquina1(4) = Num(4)
Cinquina1(5) = Num(5)
ImpostaGiocata 9,Cinquina1,rt,PostaC,k,2
casi = casi + 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
ColoreTesto 0
Scrivi("Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P5 = 1 To 5
E1 = Estratto(Es,R1,P5)
If E1 = Nn(1) Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi("Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R2) & " ",1,0
For P6 = 1 To 5
E2 = Estratto(Es,R2,P6)
If E2 = Nn(4) Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi String(78,"-"),1
ColoreTesto 1
Scrivi "Numeri Ricercati: " & Format2(Nn(1)) & " - " & Format2(Nn(4)) & S2,1,0
Scrivi
ColoreTesto 0
Scrivi String(78,"-"),1
Scrivi
Gioca es,True,,1
End If
End If
Next
Next
If ScriptInterrotto Then Exit For
Next
Scrivi
Scrivi "Casi totali (" & casi & ")",1
ScriviDistribuzioneEsiti(True)
ScriviDistribuzioneCasiInCorso(True)
ScriviResoconto
End Sub


Saluti, Gio.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 24 gennaio 2026
    Bari
    26
    24
    81
    30
    32
    Cagliari
    84
    81
    48
    08
    49
    Firenze
    64
    30
    70
    12
    89
    Genova
    76
    71
    63
    88
    27
    Milano
    01
    28
    09
    06
    90
    Napoli
    74
    26
    50
    76
    24
    Palermo
    09
    75
    88
    65
    13
    Roma
    66
    13
    21
    65
    73
    Torino
    78
    02
    90
    51
    16
    Venezia
    23
    55
    60
    47
    17
    Nazionale
    14
    70
    74
    68
    20
    Estrazione Simbolotto
    Bari
    09
    18
    15
    38
    39

Ultimi Messaggi

Indietro
Alto