Ambata e Ambo dalle terzine simmetriche

[carlo58]

Salve a tutti.
se possibile fare questa correzzione a questo metodo,
ho provato a farlo ma ho il problema dell'ambata non mi da sempre quella giusta.

bisogna rintracciare nel quadro estrazionale, su una ruota, un ambo la cui distanza sia 30,
passiamo subito ad un esempio reale:
è stato rilevato sulla ruota Nazionale l’ambo 81-51 la cui chiusura simmetrica è 21 nonché l’ambata da mettere in gioco sulla Nazionale.
Per gli abbinamenti per il gioco di ambo, si usano i numeri rilevati, in questo caso 81 e 51 avremo cosi due ambi, 21-51 e 21-81 da giocare sulla ruota Nazionale e Tutte,
unire i due ambi, che formano un terno 21-51-81 da metter in gioco sempre sulla Nazionale e Tutte

Ruote di rilevamento : NZ
Formazione terzina simmetrica: 81 51
Chiusura : 21

Ruote di rilevamento : VE
Formazione terzina simmetrica: 25 55
Chiusura : 85

Sub main()
Dim nu1(2),nu2(2),nu3(2),nu4(3)
Dim ruote(10),ruota(10)
Dim posta(1),poste(2),post(2),pos(5)
posta(1)=1:
poste(2)=1
post(2)=1
pos(2)=1
pos(3)=1
fin=EstrazioneFin
ini=fin-12
For es=ini To fin
AvanzamentoElab ini,fin,es
For r1=1 To 12
For p1=1 To 4
For p2=p1+1 To 5
n1=Estratto(es,r1,p1)
n2=Estratto(es,r1,p2):ds1=Distanza(n1,n2)



If ds1=30 Then
casi=casi+1:Scrivi String(65,"=")&" caso n° "&(casi),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_
" > ambo distanza < "&Format2 (ds1)&" > "&Format2(n1)&"."&Format2 (n2)&" >"


ruote(1)=r1:k=12:co=0:ruota(4)=11


nu1(1)= Fuori90 (n1+30)
co=co+1
ImpostaGiocata co,nu1,ruote,posta,k

nu2(1)=Fuori90 (n1+30)
nu2(2)=Fuori90 (n1+60)
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k

nu3(1)=Fuori90 (n1+30)
nu3(2)=Fuori90 (n1+90)
co=co+1
ImpostaGiocata co,nu3,ruote,poste,k

nu4(1)=Fuori90 (n1+30)
nu4(2)=Fuori90 (n1+60)
nu4(3)=Fuori90 (n1+90)
co=co+1
ImpostaGiocata co,nu4,ruote,post,k


Gioca es
End If
Next
Next
Next
Next
ScriviResoconto
End Sub

[Master]

Ciao
Ecco la modifica

Codice: Seleziona tutto

 Sub Main()
   'http://www.lottopassion.it/forum/viewtopic.php?f=10&t=4357,
   Dim nu1(2),nu2(2),nu3(2),nu4(3)
   Dim ruote(10),ruota(10)
   Dim posta(1),poste(2)
   posta(1) = 1
   poste(2) = 1
   fin = EstrazioneFin
   ini = fin - 12
   For es = ini To fin
      AvanzamentoElab ini,fin,es
      For r1 = 1 To 12
         If r1 = 11 Then r1 = 12
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               n1 = Estratto(es,r1,p1)
               n2 = Estratto(es,r1,p2):ds1 = Distanza(n1,n2)
               If ds1 = 30 Then
                  pm1 =(n1 + n2)/2
                  If Cadenza(pm1) = Cadenza(n1) Then a3 = pm1 Else a3 = Diametrale(pm1)
                  casi = casi + 1:Scrivi String(75,"=") & " caso n° " &(casi),1
                  Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
                  " > distanza " & Format2(ds1) & " -> " & Format2(n1) & "." & Format2(n2) & " [" & Format2(a3) & "]",1
                  Scrivi
                  ruota(1) = r1 :ruote(1) = r1 :ruote(2) = 11 :k = 12
                  nu1(1) = a3
                  ImpostaGiocata 1,nu1,ruota,posta,k
                  nu2(1) = a3
                  nu2(2) = n1
                  co = co + 1
                  ImpostaGiocata 2,nu2,ruote,poste,k
                  nu3(1) = a3
                  nu3(2) = n2
                  co = co + 1
                  ImpostaGiocata 3,nu3,ruote,poste,k
                  nu4(1) = a3
                  nu4(2) = n1
                  nu4(3) = n2
                  ImpostaGiocata 4,nu4,ruote,poste,k
                  Gioca es
               End If
            Next
         Next
      Next
   Next
   ScriviResoconto
End Sub

 

[carlo58]

Ciao Master ti ringrazio della disponibilità, che dire in parole semplici perfettissima la modifica.