Ambi isotopi STESSA DISTANZA

il Toscano

Posted on 4/10/2011, 10:51

<b>Un esempio di ambi isotopi stessa distanza:
estrazione del 16 agosto 2007:
CA-46 90 ....distanza 44
MI-53 09......distanza 44

iter

44x2= 88 AMBATA

per abbinamenti somme tra numeri:
46+90=136-90= 46 primo abbinamento
46+53=99-90= 09 secondo abbinamento
46+09= 55 terzo abbinamento
90+53=143-90=53 quarto abbinamento
90+ 09=99-90 =09 (già presente)
53+09= 62 quinto abbinamento

n.b. facendo le dovute somme, se le somme sono esatte, un numero si ripete sempre due volte,
di conseguenza gli abbinamenti anzichè sei diventanto cinque:
previsione CA/MI
ambata
88

ambi
88 46
88 09
88 55
88 53
88 62

l'esito: ambo secco al sesto colpo (30/08/07
MILANO 88 46

LO SCRIPT,che trova ambi stessa distanza usciti nei primi tre estratti:

PRECEDENZA ASSULOTA PER GLI AMBI SORTITI IN 1^ e 3^ posizione.</b>

Autore del listato DJ NOMADE.

SPOILER (clicca per visualizzare)

Sub Main()
Dim nu1(10),nu2(10),nu3(10),nu4(10)
Dim ruote(10),ruota(10)
Dim poste(5),poste1(5),poste2(5),poste3(5)

poste(1) = 1
poste1(2) = 1
poste2(2) = 1
poste2(3) = 1
fin = EstrazioneFin
ini = fin - 20
For es = ini To fin
AvanzamentoElab ini,fin,es
For r1 = 1 To 10
For p1 = 1 To 2
For p2 = p1 + 1 To 3
n1 = Estratto(es,r1,p1)
n2 = Estratto(es,r1,p2)

For r2 = r1 + 1 To 11
If r2 = 11 Then r2 = 12
For p3 = 1 To 2
For p4 = p3 + 1 To 3
n3 = Estratto(es,r2,p3)
n4 = Estratto(es,r2,p4)
n5 = Distanza(n1,n2)
n6 = Distanza(n3,n4)
If n5 = n6 And p1 = p3 And p2 = p4 Then

b1 = Fuori90(n5*2)'ambata
b2 = Fuori90(n1 + n2)' 1° abbinamento
b3 = Fuori90(n1 + n3)' 2° abbinamento
b4 = Fuori90(n1 + n4)' 3° abbinamento
b5 = Fuori90(n2 + n3)' 4° abbinamento
b6 = Fuori90(n2 + n4)' 5° abbinamento
b7 = Fuori90(n3 + n4)' 6° abbinamento

casi = casi + 1:Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
" > ambo < " & Format2(n1) & "." & Format2(n2) & " > Distanza < " & Format2(n5)
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
" > ambo < " & Format2(n3) & "." & Format2(n4) & " > Distanza < " & Format2(n6)
Scrivi String(65,"-") & " caso n° " &(casi)
ruote(1) = r1:ruote(2) = r2:k = 9:co = 0

nu1(1) = b1' 1°capogioco

ImpostaGiocata 1,nu1,ruote,poste,k

nu2(1) = b1' 1°capogioco
nu2(2) = b2' 1 abbinamento
ImpostaGiocata 2,nu2,ruote,poste1,k

nu2(1) = b1' 1°capogioco
nu2(2) = b3 ' 2° abbinamento
ImpostaGiocata 3,nu2,ruote,poste1,k

nu2(1) = b1' 1°capogioco
nu2(2) = b4' 1 abbinamento
ImpostaGiocata 4,nu2,ruote,poste1,k

nu2(1) = b1' 1°capogioco
nu2(2) = b5 ' 2° abbinamento
ImpostaGiocata 5,nu2,ruote,poste1,k

nu2(1) = b1' 1°capogioco
nu2(2) = b6' 1 abbinamento
ImpostaGiocata 6,nu2,ruote,poste1,k

nu2(1) = b1' 1°capogioco
nu2(2) = b7 ' 2° abbinamento
ImpostaGiocata 7,nu2,ruote,poste1,k

nu3(1) = b1' 1°capogioco
nu3(2) = b2' 1 abbinamento
nu3(3) = b3' 2°abbinamento
nu3(4) = b4' 3°abbinamento
nu3(5) = b5' 4 abbinamento
nu3(6) = b6' 5°abbinamento
nu3(7) = b7' 6°abbinamento

ImpostaGiocata 8,nu3,ruote,poste2,k

Gioca es
End If

Next:Next:Next
Next:Next:Next:Next
ScriviResoconto
End Sub

occhidigiada58.

Posted on 4/10/2011, 11:11

CODICE

Sub Main()
Dim nu1(10),nu2(10),nu3(10),nu4(10)
Dim ruote(10),ruota(10)
Dim poste(5),poste1(5),poste2(5),poste3(5)

poste(1) = 1
poste1(2) = 1
poste2(2) = 1
poste2(3) = 1
fin = EstrazioneFin
ini = fin - 20
For es = ini To fin
AvanzamentoElab ini,fin,es
For r1 = 1 To 10
n1 = Estratto(es,r1,1)
n2 = Estratto(es,r1,3)

For r2 = r1 + 1 To 11
If r2 = 11 Then r2 = 12
n3 = Estratto(es,r2,1)
n4 = Estratto(es,r2,3)
n5 = Distanza(n1,n2)
n6 = Distanza(n3,n4)
If n5 = n6 Then

b1 = Fuori90(n5*2)'ambata
b2 = Fuori90(n1 + n2)' 1° abbinamento
b3 = Fuori90(n1 + n3)' 2° abbinamento
b4 = Fuori90(n1 + n4)' 3° abbinamento
b5 = Fuori90(n2 + n3)' 4° abbinamento
b6 = Fuori90(n2 + n4)' 5° abbinamento
b7 = Fuori90(n3 + n4)' 6° abbinamento

casi = casi + 1:Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
" > ambo < " & Format2(n1) & "." & Format2(n2) & " > Distanza < " & Format2(n5)
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
" > ambo < " & Format2(n3) & "." & Format2(n4) & " > Distanza < " & Format2(n6)
Scrivi String(65,"-") & " caso n° " &(casi)
ruote(1) = r1:ruote(2) = r2:k = 9:co = 0

nu1(1) = b1' 1°capogioco

ImpostaGiocata 1,nu1,ruote,poste,k

nu2(1) = b1' 1°capogioco
nu2(2) = b2' 1 abbinamento
ImpostaGiocata 2,nu2,ruote,poste1,k

nu2(1) = b1' 1°capogioco
nu2(2) = b3 ' 2° abbinamento
ImpostaGiocata 3,nu2,ruote,poste1,k

nu2(1) = b1' 1°capogioco
nu2(2) = b4' 1 abbinamento
ImpostaGiocata 4,nu2,ruote,poste1,k

nu2(1) = b1' 1°capogioco
nu2(2) = b5 ' 2° abbinamento
ImpostaGiocata 5,nu2,ruote,poste1,k

nu2(1) = b1' 1°capogioco
nu2(2) = b6' 1 abbinamento
ImpostaGiocata 6,nu2,ruote,poste1,k

nu2(1) = b1' 1°capogioco
nu2(2) = b7 ' 2° abbinamento
ImpostaGiocata 7,nu2,ruote,poste1,k

nu3(1) = b1' 1°capogioco
nu3(2) = b2' 1 abbinamento
nu3(3) = b3' 2°abbinamento
nu3(4) = b4' 3°abbinamento
nu3(5) = b5' 4 abbinamento
nu3(6) = b6' 5°abbinamento
nu3(7) = b7' 6°abbinamento

ImpostaGiocata 8,nu3,ruote,poste2,k

Gioca es
End If

Next:Next:Next
ScriviResoconto
End Sub

il Toscano

Posted on 4/10/2011, 18:25

grazie Okki...

Perfetto.....ambi isotopi stessa distanza in 1^ & 3^ posizione.

ancora grazie :inchino.gif:

Edited by il Toscano - 5/10/2011, 16:55

2 replies since 4/10/2011, 10:51 1317 views