Metodo con ambi diametrali

[dotor69]

Come promesso ecco la spiegazione del metodo:

bisogna rintracciare in 2 ruote 2 ambi diametrali, nella stessa estrazione o in 2 estrazioni consecutive. Condizione indispensabile per ricavare le previsioni è che le distanze diagonali tra i 4 numeri siano uguali, mentre le distanze verticali devono essere diverse.
E' preferibile rintracciare i 2 ambi in posizione isotopa

Esempio: estr. del 13 settembre

Firenze 61-16
Napoli 05-50

Distanze diagonali: 61-50= 11
16-05= 11 condizione ok (fare sempre numero maggiore meno quello minore)

Distanze verticali: 61-05= 56
50-16= 34 condizione ok (fare sempre numero maggiore meno quello minore)


Per ricavare l'ambata: prima distanza verticale meno distanza verticale. In questo caso 56-11= 45

Primo abbinamento per ambo: Ambata meno seconda distanza verticale. In questo caso 45-34= 11 (primo abbinamento)
Secondo abbinamento per ambo: Vertibile del primo abbinamento. In questo caso vertibile di 11 = 19 (secondo abbinamento)
Terzo abbinamento per ambo: Ambata più seconda distanza verticale. In questo caso 45+34=79 (terzo abbinamento)

Quindi la previsione era così composta:

Firenze-Napoli e Tutte

Ambata
45

Ambi
45-11
45-19
45-79

Esito: al primo colpo ambata 45, ambo secco 45-11 Napoli e ovviamente ambo a tutte

Spero di essere stato chiaro. Ciao a tutti

 

[DEAEBE]

Grazie, sei stato molto gentile e speriamo di vincere un pò di soldini. Ancora grazie mille e buonanotte

 

[DEAEBE]

Scusami ancora ma vorrei chiederti se hai la tabella degli ambi a distanza 45 perche' non ce l'ho e mi piacerebbe averla, sai io sono carta e penna ed il computer lo uso poco poco. Grazie dell'aiuto che mi darai perche' sei stato molto cordiale con me. Buonanotte

 

[dotor69]

Scusami ancora ma vorrei chiederti se hai la tabella degli ambi a distanza 45 perche' non ce l'ho e mi piacerebbe averla, sai io sono carta e penna ed il computer lo uso poco poco. Grazie dell'aiuto che mi darai perche' sei stato molto cordiale con me. Buonanotte

Ciao e buon lunedì

Ecco qui la tabella degli ambi

1-46
2-47
3-48
4-49
5-50
6-51
7-52
8-53
9-54
10-55
11-56
12-57
13-58
14-59
15-60
16-61
17-62
18-63
19-64
20-65
21-66
22-67
23-68
24-69
25-70
26-71
27-72
28-73
29-74
30-75
31-76
32-77
33-78
34-79
35-80
36-81
37-82
38-83
39-84
40-85
41-86
42-87
43-88
44-89
45-90

Devi trovare uno di questi ambo in una ruota e uno in un'altra e verificare che le distanze diagonali siano uguali e quelle verticali diverse.
Allora puoi calcolare la previsione.
Spero di esserti stato d'aiuto.
Buona giornata

 

[Mike58]

script verifica metodo

script verifica metodo

Ciao Dotor69, ho voluto testare il tuo metodo con lo script per i soli ambi in posizione ISO, e ahinoi i risultati non sono soddisfacenti almeno per le giocate per ambo.
Mentre sono ok ed al 100% per le Ambate.
Ti allego lo script per tue verifiche.
--------------------output risultati--------------------------
====================================================================================================
giovedì, set 13 2012 < FI 61.15.16.55.56 > ambo < 61 - 16 > in 1^/3^ pos.
giovedì, set 13 2012 < NA 05.64.50.83.43 > ambo < 05 - 50 > in 1^/3^ pos.
---------------------------------------------------------------------- caso n° 11
61 - 16 = 45 / 05 - 50 = 45
Distanza 1 in diagonale 61.50 = 11
Distanza 2 in diagonale 16.05 = 11
Distanza 1 in verticale 61.05 = 56
Distanza 2 in verticale 16.50 = 34
----------------------------------------------------------------------------------------------------
Estrazione generatrice del pronostico 08587 [110 - 13/09/2012]
G 0001
Numeri in gioco : 45 su FI NA per Estratto
N. [45 ] [FI] [.. .. .. .. ..] C. 1 08588 [111 - 15/09/2012]
V N. [45 ] [NA] [.. .. .. 45 ..] C. 1 Estratto 08588 [111 - 15/09/2012]
Interrotta per esito verificato

G 0002
Numeri in gioco : 45.11 su FI NA TT per Ambo
N. [45.11 ] [FI] [.. .. .. .. ..] C. 1 08588 [111 - 15/09/2012]
V N. [45.11 ] [NA] [.. 11 .. 45 ..] C. 1 Ambo 08588 [111 - 15/09/2012]
V N. [45.11 ] [TT] [NA][.. 11 .. 45 ..] C. 1 Ambo 08588 [111 - 15/09/2012]
Interrotta per esito verificato

G 0003
Numeri in gioco : 45.19 su FI NA TT per Ambo
N. [45.19 ] [FI] [.. .. .. .. ..] C. 1 08588 [111 - 15/09/2012]
N. [45.19 ] [NA] [.. .. .. 45 ..] C. 1 Estratto 08588 [111 - 15/09/2012]
N. [45.19 ] [TT] [NA][.. .. .. 45 ..] C. 1 Estratto 08588 [111 - 15/09/2012]
N. [45.19 ] [FI] [.. .. .. .. ..] C. 2 08589 [112 - 18/09/2012]
N. [45.19 ] [NA] [.. .. 19 .. ..] C. 2 Estratto 08589 [112 - 18/09/2012]
N. [45.19 ] [TT] [GE][.. .. .. .. 45] C. 2 Estratto 08589 [112 - 18/09/2012]
N. [45.19 ] [FI] [.. .. .. .. ..] C. 3 08590 [113 - 20/09/2012]
N. [45.19 ] [NA] [.. .. .. .. ..] C. 3 08590 [113 - 20/09/2012]
N. [45.19 ] [TT] [ ][.. .. .. .. ..] C. 3 08590 [113 - 20/09/2012]
N. [45.19 ] [FI] [.. .. .. .. ..] C. 4 08591 [114 - 22/09/2012]
N. [45.19 ] [NA] [.. .. .. .. ..] C. 4 08591 [114 - 22/09/2012]
N. [45.19 ] [TT] [MI][.. .. .. 19 ..] C. 4 Estratto 08591 [114 - 22/09/2012]

In corso per altre 6 estrazioni
G 0004
Numeri in gioco : 45.79 su FI NA TT per Ambo
N. [45.79 ] [FI] [.. .. .. .. ..] C. 1 08588 [111 - 15/09/2012]
N. [45.79 ] [NA] [.. .. .. 45 ..] C. 1 Estratto 08588 [111 - 15/09/2012]
N. [45.79 ] [TT] [NA][.. .. .. 45 ..] C. 1 Estratto 08588 [111 - 15/09/2012]
N. [45.79 ] [FI] [.. .. .. .. ..] C. 2 08589 [112 - 18/09/2012]
N. [45.79 ] [NA] [.. .. .. .. ..] C. 2 08589 [112 - 18/09/2012]
N. [45.79 ] [TT] [GE][.. .. .. .. 45] C. 2 Estratto 08589 [112 - 18/09/2012]
N. [45.79 ] [FI] [.. .. .. .. ..] C. 3 08590 [113 - 20/09/2012]
N. [45.79 ] [NA] [.. .. .. .. ..] C. 3 08590 [113 - 20/09/2012]
N. [45.79 ] [TT] [ ][.. .. .. .. ..] C. 3 08590 [113 - 20/09/2012]
N. [45.79 ] [FI] [.. .. .. .. ..] C. 4 08591 [114 - 22/09/2012]
N. [45.79 ] [NA] [.. .. .. .. ..] C. 4 08591 [114 - 22/09/2012]
N. [45.79 ] [TT] [VE][.. 45 .. .. ..] C. 4 Estratto 08591 [114 - 22/09/2012]

Sub Main()
 'x dotor69 ambi distanza 45'
 Dim nu1(2),ruote(2),rt(3),n(4),nu2(2),nu3(2),nu4(2)
 Dim poste(2),posta(1)
 posta(1) = 1
 poste(2) = 1
 so = CInt(InputBox("qual'e' la distanza?",,45))
 ce = InputBox("Quante estrazione vuoi controllare? ","estrazione",300)
 k = InputBox("per quanti colpi?","colpi di gioco",10)
 ini = EstrazioneFin - ce
 fin = EstrazioneFin
 ColoreTesto 1
 Scrivi "ambi a distanza... " & Format2(so) & " su 2 ruote in posiz. iso *** per Dotor69 ***   ----> Listato by Mike58 ",1
 ColoreTesto 0
 Scrivi String(100,"="),1
 Scrivi "Resoconto da " & DataEstrazione(ini,1) & " a " & _
 DataEstrazione(fin,1) & " (" &(fin - ce) & " estr.)",1
 For es = ini To EstrazioneFin
  Messaggio "elaborazione estrazioni... [" &(es) & " ]   script  by Mike58 "
  Call AvanzamentoElab(ini,fin,es)
  For r1 = 1 To 10
   For p1 = 1 To 4
    For p2 = p1 + 1 To 5
     a = Estratto(es,r1,p1)
     b = Estratto(es,r1,p2)
     sm3 = Distanza(a,b)
     If sm3 = so Then ' distanza orizontale = 45 1^ ambo
      '---------------------------------------------------------------------------
      For r2 = r1 + 1 To 12 '<<<--- x tutte le ruote (+ 1 next alla fine del listato
       If r2 = 11 Then r2 = 12
       '---------------------------------------------------------------------------
       'r1=r+1 '<<<--- per ruote consecutive
       'If r=10 Then r1=1 End If '<<<--- per ruote consecutive
       '---------------------------------------------------------------------------
       For p3 = 1 To 4
        For p4 = p3 + 1 To 5
         c = Estratto(es,r2,p3)
         d = Estratto(es,r2,p4)
         sm6 = Distanza(c,d)
         If p1 = p3 And p2 = p4 Then 'iso
          If sm3 = sm6 And sm3 = so Then ' distanza 45
           n(1) = a
           n(2) = b
           n(3) = c
           n(4) = d
           OrdinaMatrice n,1
           num1 = Differenza(a,d)
           num2 = Differenza(b,c)
           If num1 = num2 Then ' diagonali uguali
            num3 = Differenza(a,c)
            num4 = Differenza(b,d)
            If num3 <> num4 Then ' verticale differente
             casi = casi + 1
             Scrivi String(100,"="),1
             Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " > ambo < " & _
             Format2(a) & " - " & Format2(b) & " > in " &(p1) & "^/" &(p2) & "^ pos."
             Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & " > ambo < " & _
             Format2(c) & " - " & Format2(d) & " > in " &(p3) & "^/" &(p4) & "^ pos."
             Scrivi String(70,"-") & " caso n° " & casi
             Scrivi Format2(a) & " - " & Format2(b) & " = " & sm3 & " / " & Format2(c) & " - " & Format2(d) & " = " & sm6
             Scrivi "Distanza 1 in diagonale " & Format2(a) & "." & Format2(d) & " = " & num1
             Scrivi "Distanza 2 in diagonale " & Format2(b) & "." & Format2(c) & " = " & num2
             Scrivi "Distanza 1 in verticale " & Format2(a) & "." & Format2(c) & " = " & num3
             Scrivi "Distanza 2 in verticale " & Format2(b) & "." & Format2(d) & " = " & num4
             Scrivi String(100,"-")
             ruote(1) = r1
             ruote(2) = r2
             rt(1) = r1
             rt(2) = r2
             rt(3) = 11
             nu1(1) = Differenza(num3,num1)
             nu2(1) = nu1(1)
             nu2(2) = Differenza(nu1(1),num4)
             nu3(2) = Vert(nu2(2))
             nu3(1) = nu1(1)
             nu4(2) = Fuori90(nu1(1) + num4)
             nu4(1) = nu1(1)
             'nu1(2) = Fuori90(b+c)
             ImpostaGiocata 1,nu1,ruote,posta,k,1
             ImpostaGiocata 2,nu2,rt,poste,k,2
             ImpostaGiocata 3,nu3,rt,poste,k,2
             ImpostaGiocata 4,nu4,rt,poste,k,2
             Gioca es
            End If
           End If
          End If
         End If 'iso
        Next
       Next
      Next
     End If
    Next
   Next
  Next
  '---------------------------------------------------------------------------
 Next '<<<--- solo per tutte le ruote, per ruote consec. togliere
 '---------------------------------------------------------------------------
 ScriviResoconto
End Sub

 

[DEAEBE]

Grazie mille sei stato un tesoro

 

[dotor69]

Grazie mille sei stato un tesoro

Grazie a te! Ciao