Novità

Numeretti

Buongiorno a tutti.
Ho provato a verificare manualmente un metodo basato sulla presenza nel quadro estrazionale dei "numeretti" ( da 1 a 9).
Esempio
Estrazione del 07.01.2021
  • Cagliari 7 1 68 30 84
  • Palermo 8 22 9 23 17
Si devono combinare i due nuemeretti isotopi 7 e 8 per trovare le due ambate 78 e 87. Questa vanno giocate su entrambe le ruote Cagliari e Palermo
Sortisce 78 su Palermo al 2° colpo.
Oppure 7+8=15 e 87
Sortisce 15 su Cagliari al 2° colpo.

Stessa estrazione del 07.01.2021

  • Cagliari 7 1 68 30 84
  • Roma 71 4 31 13 87
Si devono combinare i due nuemeretti isotopi 1 e 4 per trovare le due ambate 14 e 41. Questa vanno giocate su entrambe le ruote Cagliari e Roma
Sortisce 14 su Cagliari al 4° colpo.
Oppure 1+4=5 quindi le ambate sono 5 e 41
Sortisce 5 su Roma al 1° colpo.


Stessa estrazione del 07.01.2021

  • Milano 69 47 4 7 33
  • Palermo 8 22 9 23 17
Si devono combinare i due nuemeretti isotopi 4 e 9 per trovare le due ambate 49 e 4 (fuori 90) . Questa vanno giocate su entrambe le ruote Milano e Palermo
Sortisce 49 su Palermo al14° colpo.
Oppure 4+9=13 quindi le ambate sono 13 e 49
NON sortisce 13

Altro metodo simile
Estrazione del 02.01.2021

  • Milano 14 55 76 80 65
  • Napoli 78 36 48 60 84
Si prendono gli zerati isotopi 80 e 60 per trovare le due ambate 86 e 68 oppure 80 + 60= 140-90=50 e 68
Sortisce 68 su Milano al 3° colpo e 50 al 4° colpo.

Mi sembre di vedere buone prospettive ma solo uno script può confermare la validità del metodo ed una eventuale frequenza.

Grazie a tutti.

P.S.: Funziona anche con i numeretti affiancati estrazione del 07.01.2021 Milano 69 47 4 7 33 cioè 47 e 74 .
 
L'algoritmo per unire due numeretti è il seguente:

Esempio:
Unire 3 e 5 per comporre le due ambate 35 e 53

a = 3 : b = 5

Prima ambata:
am(1) = (a * 10) + b

Seconda ambata:
am(2) = (b * 10) + a

Ho fatto lo script che mi da un out of range ma poi va avanti e a questo punto sbaglia il resoconto.

Ecco lo script se qualche esperto può sistemarlo poi continuo con gli altri algoritmi.

Grazie.

Sub Main
Dim ruota(2),am(2),pt(2),ruote(2)
pt(1) = 1
clp = 4
fine = EstrazioneFin
ini = 9979
For es = ini To EstrazioneFin
' ------ INIZIO CODICE RILEVAMENTO CONDIZIONE
a = Estratto(es,2,1) 'Cagliari
b = Estratto(es,3,1) 'Firenze
ruote(1) = 2
ruote(2) = 3
' ------ FINE CODICE RILEVAMENTO CONDIZIONE
cg = 0
am(1) = (a * 10) + b
am(2) = (b * 10) + a
cg = cg + 1
ImpostaGiocata cg,am,ruote,pt,clp,0,0,0
Gioca es,1
Scrivi
Scrivi "------------------------------------------------------"
Scrivi
Next
ScriviResoconto
End Sub
 
prova così
Codice:
Sub Main
   Dim Nu(2),Ru(2),aN(2),Posta(1)
   Posta(1) = 1
   Ini = EstrazioneFin - 100
   fin = EstrazioneFin
   For es = Ini To fin
      For r1 = 1 To 9
         For r2 = r1 + 1 To 10
            For p = 1 To 5
               a = Estratto(es,r1,p)
               b = Estratto(es,r2,p)
               If a < 10 And b < 10 Then
                  k = k + 1
                  Nu(1) = a
                  Nu(2) = b
                  Ru(1) = r1
                  Ru(2) = r2
                  aN(1) = a & b
                  aN(2) = Vert(aN(1))
                  Scrivi String(100,"-")
                  Scrivi GetInfoEstrazione(es) & vbTab & SiglaRuota(r1) & vbTab & a & " Posiz. " & p
                  Scrivi GetInfoEstrazione(es) & vbTab & SiglaRuota(r2) & vbTab & b & " Posiz. " & p
                  Scrivi String(100,"-") & " Caso n. " & k
                  ImpostaGiocata 1,aN,Ru,Posta,6,1
                  Gioca es,1
               End If
            Next
         Next
      Next
   Next
   ScriviResoconto
End Sub
 
Mauro Emme, devi essere fortunato , in 2 abbiamo pensato a te .....
Mike,
un salutone :):)

aN(2) = Vert(aN(1)) non è corretto, il metodo "contadino elementare" prevede il numero invertito e quando ci sono 2 numeri uguali si gioca 1 solo numero.
Se è meglio o peggio del vertibile, bisogna verificarlo... a questo servono gli script.
Saluti
 
Ciao Claudio, un salutone anche da parte mia.
Si !!! il vertibile non è corretto per tutti i numeretti trovati, la soluzione è o eliminare la condizione quando ci sono 2 numeretti uguali
If a < 10 And b < 10 and a <> b Then
o come dice claudio giocare un solo numero nel caso di numeretti uguali, trasformando aN(2) = b&a.

Purtroppo gli script servono a questo a vedere le risultanze quasi sempre in negativo.

Ciao
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 10 luglio 2025
    Bari
    85
    25
    24
    62
    28
    Cagliari
    51
    07
    79
    73
    36
    Firenze
    80
    63
    59
    47
    05
    Genova
    26
    50
    73
    18
    76
    Milano
    86
    12
    75
    13
    68
    Napoli
    21
    46
    89
    28
    87
    Palermo
    84
    49
    44
    17
    10
    Roma
    50
    40
    68
    65
    82
    Torino
    29
    52
    02
    60
    65
    Venezia
    81
    21
    64
    01
    09
    Nazionale
    30
    56
    86
    68
    34
    Estrazione Simbolotto
    Nazionale
    29
    13
    42
    17
    07
Indietro
Alto