ricerca numeri di distanza 18

[lottomoney]

Buonasera e buona domenica,
desideravo sapere se sia possibile una ricerca sul quadro estrazionale di 18 cinquine composte da numeri di distanza 18, di cui inserisco la tabella, ed in particolare della stessa cinquina trovare 2 numeri su di una ruota e due numeri su un'altra ruota, anche non consecutive, ma preferibilmente in posizione isotopa.
Questi i numeri:
01) 1 19 37 55 73
02) 2 20 38 56 74
03) 3 21 39 57 75
04) 4 22 40 58 76
05) 5 23 41 59 77
06) 6 24 42 60 78
07) 7 25 43 61 79
08) 8 26 44 62 80
09) 9 27 45 63 81
10) 10 28 46 64 82
11) 11 29 47 65 83
12) 12 30 48 66 84
13) 13 31 49 67 85
14) 14 32 50 68 86
15) 15 33 51 69 87
16) 16 34 52 70 88
17) 17 35 53 71 89
18) 18 36 54 72 90
Ringrazio anticipatamente chi può darmi una mano.
lottomoney

[DjNomade]

Vedi cosi
Ciauz

Codice: Seleziona tutto


Sub main()
Dim nu(5),n1(10),ruote(10),posta(5),ruota(10),n2(10),n3(10),nr(5),poste(5)
posta(2)=1:poste(1)=1
ini=EstrazioneFin-150
fin=EstrazioneFin
For es=ini To fin: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)

For r2=r1+1 To 12
 If r2=11 Then r2=12
For p3=1 To 4
For p4=p3+1 To 5
c=Estratto(es,r2,p3)
d=Estratto(es,r2,p4)
If (c<>a And c<>b And d<>a And d<>b ) Then
If Distanza(a,b)=18 Or Distanza (a,b)=36 Then
If Distanza(c,d)=18 Or Distanza (c,d)=36 Then

If (Distanza(a,d)=18 Or Distanza (a,d)=36)Then
If (Distanza(b,d)=18 Or Distanza (b,d)=36)Then
If  (Distanza(a,c)=18 Or Distanza (a,c)=36)Then
If  (Distanza(b,c)=18 Or Distanza (b,c)=36)Then '<<<<<
'le distanze di una cinquina pentagonale sono esclusivamente di 18 o 36
nr(1)=Fuori90(a):nr(2)=Fuori90(a+18):nr(3)=Fuori90(a+36):nr(4)=Fuori90(a+54):nr(5)=Fuori90(a+72)
nu(1)=a 'parto da un numero qualsiasi della cinquina
For x=2 To 5
nu(x)=Fuori90 (nu(x-1)+18) 'compongo la cinquina x il confronto
Next
For i=1 To 5
If nu(i)=a Or nu(i)=b Or nu(i)=c Or nu(i)=d Then 'controllo quelli uguali
nu(i)=0 'li azzero
End If
Next

casi=casi+1:Scrivi String(70,"="),1
Scrivi
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r1)&" - "&stringaestratti(es,r1)&_
" ] ambo pent. [ "&format2(a)&"."&format2(b)&" ]   Posiz. "&p1&"° - "&p2&"° " ,1
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r2)&" - "&stringaestratti(es,r2)&_
" ] ambo pent. [ "&format2(c)&"."&format2(d)&" ]   Posiz. "&p3&"° - "&p4&"° " ,1
Call OrdinaMatrice(nr,1)
Scrivi "** Cinquine Pentagonali : " & StringaNumeri(nr),1
Call OrdinaMatrice (nu,-1) 'ordino la matrice cosi su nu(1) e nu(2) rimangono i numeri validi
Scrivi "Numero a Completare la Cinquina Pentagonale --> " & nu(1),1
Scrivi
End If
End If
End If
End If
End If
End If
End If
Next

Next
Next

Next
Next
Next
Next

End Sub

[lottomoney]

Eccezionale!!!! come sempre DjNomade sei un grande!!
grazie mille.
lottomoney