Sempre con gentilezza...

[Roby]

Buongiorno,
per favore chi sarebbe cosi' gentile da aiutarmi,mi servirebbe un listato,passo subito ad un esempio:
il 4/9 sulle ruote di BA-FI sono usciti questi numeri
BA 23-44
FI 46-67
se calcoliamo questi 4 n° abbiamo
23+44=67
46+67=23
abbiamo gli stessi numeri di partenza incrociati,composti dal n° maggiore e dal n° minore.
Queste sono le condizioni da ricercare...
Vi ringrazio anticipatamente
Ciao e buona giornata

 

[Aldo.G]

Sub Main
'Buongiorno,
'per favore chi sarebbe cosi' gentile da aiutarmi,mi servirebbe un listato,passo subito ad un esempio:
'il 4/9 sulle ruote di BA-FI sono usciti questi numeri
'BA 23-44
'FI 46-67
'se calcoliamo questi 4 n° abbiamo
'23+44=67
'46+67=23
'abbiamo gli stessi numeri di partenza incrociati,composti dal n° maggiore e dal n° minore.
'Queste sono le condizioni da ricercare...
'Vi ringrazio anticipatamente
'Ciao e buona giornata
CIAO CON PIACERE PROVA SE VA BENE FAMMI SAPERE SALUTI ALDO
For e=EstrazioneFin-10 To EstrazioneFin
For R1=1 To 10
For R2=r1+1 To 10
For p1=1 To 5
For p2=P1+1 To 5
For P3=1 To 5
For P4=P3+1 To 5


n1=Estratto(e,r1,p1)
n2=Estratto(e,r1,p2)
n3=Estratto(e,r2,p3)
n4=Estratto(e,r2,p4)
If Fuori90(N1+N2)=N3 And Fuori90(N3+N4)=N2 Or Fuori90(N1+N2)=N4 And Fuori90(N3+N4)=N1 Then


Scrivi+"---------------------"
Scrivi DataEstrazione(E)+" "+ SiglaRuota(R1)+" "+ Format2(N3)+" "+Format2(N4)
Scrivi DataEstrazione(E)+" "+ SiglaRuota(R2)+" "+ Format2(N1)+" "+Format2(N2)
End If
Next
Next
Next
Next
Next
Next
Next
End Sub

saluti Aldo

 

[oruam]

premetto che non son bravo con i listati ,grazie aldo,vedo che i casi son tanti,forse è meglio mettere l'isotopia debora?
---------------------
17.03.2009 75.47.86.55.45 Ge 86 45
17.03.2009 38.41.12.46.04 Ro 41 04
mar 17.03.2009 [8039]
G 1: M 41.45 Ge Ro 13/13
M 41 su Ge 1° colpo [8040/19.03.2009]
M 45 su Ro 4° colpo [8043/26.03.2009]
M 41 su Ro 12° colpo [8051/14.04.2009]

G 2: A 41.45 Ge Ro Tu 13/13
A 41.45 su Tu (Mi) 8° colpo [8047/04.04.2009]

---------------------
17.03.2009 38.41.12.46.04 Ro 38 12
17.03.2009 05.78.06.39.50 To 78 50
mar 17.03.2009 [8039]
G 1: M 50.38 Ro To 13/13
M 38 su To 5° colpo [8044/28.03.2009]
M 38 su To 7° colpo [8046/02.04.2009]

G 2: A 50.38 Ro To Tu 13/13
negativo
---------------------
19.03.2009 23.68.12.70.24 Ca 23 12
19.03.2009 77.78.35.09.83 To 78 35
gio 19.03.2009 [8040]
G 1: M 35.23 Ca To 13/13
M 23 su Ca 9° colpo [8049/09.04.2009]

G 2: A 35.23 Ca To Tu 13/13
negativo
---------------------
19.03.2009 64.21.53.87.35 Fi 21 53
19.03.2009 37.01.29.42.74 Ve 37 74
gio 19.03.2009 [8040]
G 1: M 74.21 Fi Ve 13/13
negativo
G 2: A 74.21 Fi Ve Tu 13/13
negativo
---------------------
26.03.2009 72.68.53.17.12 Ba 53 12
26.03.2009 70.46.78.65.19 Na 78 65
gio 26.03.2009 [8043]
G 1: M 65.53 Ba Na 13/13
M 65 su Ba 4° colpo [8047/04.04.2009]

G 2: A 65.53 Ba Na Tu 13/13
negativo
---------------------
02.04.2009 16.87.62.81.22 Pa 62 22
02.04.2009 84.39.47.21.28 Ro 84 28
gio 02.04.2009 [8046]
G 1: M 84.22 Pa Ro 12/13
M 22 su Pa 3° colpo [8049/09.04.2009]
M 22 su Ro 4° colpo [8050/11.04.2009]
M 22 su Pa 12° colpo [8058/30.04.2009]
in corso (12° su 13)
G 2: A 84.22 Pa Ro Tu 12/13
A 22.84 su Tu (To) 5° colpo [8051/14.04.2009]
in corso (12° su 13)
---------------------
04.04.2009 42.28.09.22.81 Fi 09 81
04.04.2009 34.51.09.01.90 Ro 09 90
sab 04.04.2009 [8047]
G 1: M 90.09 Fi Ro 11/13
M 90 su Fi 2° colpo [8049/09.04.2009]
M 90 su Ro 8° colpo [8055/23.04.2009]
M 90 su Ro 9° colpo [8056/27.04.2009]
in corso (11° su 13)
G 2: A 90.09 Fi Ro Tu 11/13
in corso (11° su 13)
---------------------
09.04.2009 79.82.34.38.12 Mi 79 38
09.04.2009 02.79.07.52.27 Na 52 27
gio 09.04.2009 [8049]
G 1: M 27.79 Mi Na 9/13
in corso (9° su 13)
G 2: A 27.79 Mi Na Tu 9/13
in corso (9° su 13)
---------------------
18.04.2009 51.88.69.02.44 Ge 69 02
18.04.2009 48.71.21.78.38 Na 71 21
sab 18.04.2009 [8053]
G 1: M 71.02 Ge Na 5/13
M 02 su Na 5° colpo [8058/30.04.2009]
in corso (5° su 13)
G 2: A 71.02 Ge Na Tu 5/13
A 71.02 su Tu (Mi) 3° colpo [8056/27.04.2009]
A 71.02 su Tu (Pa) 4° colpo [8057/28.04.2009]
in corso (5° su 13)
---------------------
21.04.2009 61.21.79.36.45 Ba 61 79
21.04.2009 11.12.88.50.58 Ge 11 50
mar 21.04.2009 [8054]
G 1: M 50.61 Ba Ge 4/13
M 50.61 su Ge 1° colpo [8055/23.04.2009]
M 61 su Ge 4° colpo [8058/30.04.2009]
in corso (4° su 13)
G 2: A 50.61 Ba Ge Tu 4/13
A 50.61 su Ge 1° colpo [8055/23.04.2009]
A 50.61 su Tu (Ge) 1° colpo [8055/23.04.2009]
in corso (4° su 13)
---------------------
21.

 

[Debora73]

quote:Originally posted by Aldo.G

Sub Main
'Buongiorno,
'per favore chi sarebbe cosi' gentile da aiutarmi,mi servirebbe un listato,passo subito ad un esempio:
'il 4/9 sulle ruote di BA-FI sono usciti questi numeri
'BA 23-44
'FI 46-67
'se calcoliamo questi 4 n° abbiamo
'23+44=67
'46+67=23
'abbiamo gli stessi numeri di partenza incrociati,composti dal n° maggiore e dal n° minore.
'Queste sono le condizioni da ricercare...
'Vi ringrazio anticipatamente
'Ciao e buona giornata
CIAO CON PIACERE PROVA SE VA BENE FAMMI SAPERE SALUTI ALDO
For e=EstrazioneFin-10 To EstrazioneFin
For R1=1 To 10
For R2=r1+1 To 10
For p1=1 To 5
For p2=P1+1 To 5
For P3=1 To 5
For P4=P3+1 To 5


n1=Estratto(e,r1,p1)
n2=Estratto(e,r1,p2)
n3=Estratto(e,r2,p3)
n4=Estratto(e,r2,p4)
If Fuori90(N1+N2)=N3 And Fuori90(N3+N4)=N2 Or Fuori90(N1+N2)=N4 And Fuori90(N3+N4)=N1 Then


Scrivi+"---------------------"
Scrivi DataEstrazione(E)+" "+ SiglaRuota(R1)+" "+ Format2(N3)+" "+Format2(N4)
Scrivi DataEstrazione(E)+" "+ SiglaRuota(R2)+" "+ Format2(N1)+" "+Format2(N2)
End If
Next
Next
Next
Next
Next
Next
Next
End Sub

saluti Aldo

Ciao Aldo,
sei stato molto gentile,
però se fosse possibile vorrei inserire una ulteriore condizione e cioè che questi ambi rilevati abbiano la stessa differenza,
nel nostro caso:
44-23=21
67-46=21
che è un numero uguale alla somma 44+67=21
Non so se mi sono spiegata bene...[:I]

Per Uruam
Non è detto che debbano essere isotopi,se poi lo sono che ben venga

Grazie ciaoo

 

[Aldo.G]

ciao vedi ti ho messo le somme che si ricavano cosi puoi confrontare con le distanze fammi sapere.

Sub Main

For e = EstrazioneFin - 20 To EstrazioneFin
For R1 = 1 To 10
For R2 = r1 + 1 To 10
For p1 = 1 To 5
For p2 = P1 + 1 To 5
For P3 = 1 To 5
For P4 = P3 + 1 To 5


n1 = Estratto(e,r1,p1)
n2 = Estratto(e,r1,p2)
n3 = Estratto(e,r2,p3)
n4 = Estratto(e,r2,p4)
If Fuori90(N1 + N2) = N3 And Fuori90(N3 + N4) = N2 Or Fuori90(N1 + N2) = N4 And Fuori90(N3 + N4) = N1 Then
Scrivi+"SOMMe "
d1=Distanza(n1,n2)
d2=Distanza(n3,n4)
s1=Fuori90(n1+n4)
s2=Fuori90(n2+n3)
s3=Fuori90(n1+n3)
s4=Fuori90(n2+n4)
Scrivi+""+Format2(n1)+"+"+Format2(n4)+"="+Format2(s1)
Scrivi+""+Format2(n2)+"+"+Format2(n3)+"="+Format2(s2)
Scrivi+""+Format2(n1)+"+"+Format2(n3)+"="+Format2(s3)
Scrivi+""+Format2(n2)+"+"+Format2(n4)+"="+Format2(s4)
Scrivi+"--------"
Scrivi DataEstrazione(E) + " " + SiglaRuota(R1) + " " + Format2(N3) + " " + Format2(N4)+" Dist.: "+CStr(d1)
Scrivi DataEstrazione(E) + " " + SiglaRuota(R2) + " " + Format2(N1) + " " + Format2(N2)+" Dist.: "+CStr(d2)
Scrivi + "--------------------------------"



End If
Next
Next
Next
Next
Next
Next
Next
End Sub


saluti Aldo

 

[Debora73]

Ciao Aldo,
grazie sei stato molto gentile,va bene cosi
buona giornata