AMBATE PENTAGONALI

[cybercesare]

Si rintacci un terno, in qualsiasi ruota (esclusa NAZIONALE), appartenente alle cinquine pentagonali
Per ambata giocare i restanti due numeri del gruppo.

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

ESEMPIO PRATICO DEL 25.05.2013
A ROMA FURONO ESTRATTI 06 66 24 78 18

Il terno 06.24.78 appartiene ad una cinquina pentagonale
i restanti numeri della cinquina sono 42.60
Il 42 e il 60 sono le ambate da porre in gioco su ROMA (max 16 colpi)
ESITO: ambata 60 al primo colpo


LISTATO SPAZIOMETRIA:
Sub Main
Scrivi " *Le Ambate Pentagonali. Metodo e Script by Cybercesare*",1,,6
Scrivi"============================================"
Dim Ambata(2),AmbiAcc(3),Nx1(5),Nx2(5),n1,n2,n3,rs,Ini,fin,es,r1,p1,p2,p3,d1,d2,max,ritam1,ritam2
Dim ruote(1)
Dim poste(1)
Dim poste1(2),colpi,InterrompiGiocata
colpi = 16 'Numero di colpi di gioco
InterrompiGiocata = 1 ' interrompe la giocata al primo esito impostare .Immettere 0 se non si vuole interrompere
poste(1) = 1
poste1(2) = 1
rs = InputBox("Quante estrazioni vuoi controllare?",,100)
fin = EstrazioneFin
Ini = fin - rs
For es = Ini To fin
Call AvanzamentoElab(Ini,fin,es)
Messaggio("Metodo LE AMBATE PENTAGONALI by Cybercesare")
For r1 = 1 To 10
ruote(1) = r1
For p1 = 1 To 3
For p2 = p1 + 1 To 4
For p3 = p2 + 1 To 5
n1 = Estratto(es,r1,p1)
n2 = Estratto(es,r1,p2)
n3 = Estratto(es,r1,p3)
d1 = Abs(n1 - n2)
d2 = Abs(n3 - n2)
If n1 > n2 And n1 > n3 Then max = n1
If n2 > n1 And n2 > n3 Then max = n2
If n3 > n1 And n3 > n2 Then max = n3
If(d1 Mod 18 = 0) And(d2 Mod 18 = 0) Then
Ambata(1) = Fuori90(max + 18)
Ambata(2) = Fuori90(max + 36)
If Ambata(1) = n1 Then Ambata(1) = Fuori90(Ambata(1) + 18) 'prima passata
If Ambata(1) = n2 Then Ambata(1) = Fuori90(Ambata(1) + 18) 'prima passata
If Ambata(1) = n3 Then Ambata(1) = Fuori90(Ambata(1) + 18) 'prima passata
If Ambata(2) = n1 Then Ambata(2) = Fuori90(Ambata(2) + 18) 'prima passata
If Ambata(2) = n2 Then Ambata(2) = Fuori90(Ambata(2) + 18) 'prima passata
If Ambata(2) = n3 Then Ambata(2) = Fuori90(Ambata(2) + 18) 'prima passata
If Ambata(1) = Ambata(2) Then Ambata(2) = Fuori90(Ambata(2) + 18) 'prima passata
If Ambata(1) = n1 Then Ambata(1) = Fuori90(Ambata(1) + 18) 'seconda passata
If Ambata(1) = n2 Then Ambata(1) = Fuori90(Ambata(1) + 18) 'seconda passata
If Ambata(1) = n3 Then Ambata(1) = Fuori90(Ambata(1) + 18) 'seconda passata
If Ambata(2) = n1 Then Ambata(2) = Fuori90(Ambata(2) + 18) 'seconda passata
If Ambata(2) = n2 Then Ambata(2) = Fuori90(Ambata(2) + 18) 'seconda passata
If Ambata(2) = n3 Then Ambata(2) = Fuori90(Ambata(2) + 18) 'seconda passata
If Ambata(1) = Ambata(2) Then Ambata(2) = Fuori90(Ambata(2) + 18) 'seconda passata
Scrivi DataEstrazione(es) + " " + NomeRuota(r1),1,,3
Scrivi "TERNO PENTAGONALE RINTRACCIATO: " & n1 & "." & n2 & "." & n3,,1,2
ImpostaGiocata 1,Ambata,ruote,poste,colpi,InterrompiGiocata 'gioca le ambate
Gioca es,1
End If
Next
Next
Next
Next
Next
ScriviResoconto
End Sub

 

[fatina76]

Grazie mille per il tuo prezioso lavoro