Numeretti

[Mauro-emme]

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 .

 

[Mauro-emme]

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

 

[Mike58]

prova così

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

 

[claudio8]

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

 

[Mike58]

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

 

[claudio8]

Condivido in special modo "in negativo"
Ciao