RETTANGOLO SOMMATIVO INDIRETTO

Sub main()
Dim nu2(10)
Dim rt(3),rtt(1)
Dim ptt(5)
ptt(2)=1
clp=14
rt(3)=12
rtt(1)=11
fin=EstrazioneFin
ini=fin-150
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
n1=Estratto(es,r1,p1):n2=Estratto(es,r1,p2)
For r2=r1+1 To 10
For p3=1 To 5
If p1=p3 Or p2=p3 Then
n3=Estratto(es,r2,p3)
ok=0
ds1=Distanza(n1,n2):ds2=Distanza(n1,n3):ds3=Distanza(n3,n2)

If ds1=45 And (n3=Fuori90(n1*2) Or n3=Fuori90(n2*2)) Then k1=Diametrale(n3): ok=1

If ds2=45 And (n2=Fuori90(n1*2) Or n2=Fuori90(n3*2))Then k1=Diametrale(n2): ok=1

If ds3=45 And (n1=Fuori90(n3*2) Or n1=Fuori90(n2*2))Then k1=Diametrale(n1): ok=1



If ok=1 Then

casi=casi+1
Scrivi String(75,"="),1
If ds1=45 And (n3=Fuori90(n1*2) Or n3=Fuori90(n2*2)) Then
Scrivi DataEstrazione(es,1)&" < "& SiglaRuota(r1)&" "& StringaEstratti(es,r1)&_
" > Ambo diametrale < "& Format2(n1)&" . "& Format2(n2)&" . "
Scrivi DataEstrazione(es,1)&" < "& SiglaRuota(r2)&" "& StringaEstratti(es,r2)&_
" > Num. doppio< "& Format2(n3)&" "
End if
If ds2=45 And (n2=Fuori90(n1*2) Or n2=Fuori90(n3*2))Then
Scrivi DataEstrazione(es,1)&" < "& SiglaRuota(r1)&" "& StringaEstratti(es,r1)&_
" > Num. doppio< "& Format2(n2)&" .> Ambo diametrale <"& Format2(n1)&" "
Scrivi DataEstrazione(es,1)&" < "& SiglaRuota(r2)&" "& StringaEstratti(es,r2)&_
" > Ambo diametrale< "& Format2(n3)&" "
End If
If ds3=45 And (n1=Fuori90(n3*2) Or n1=Fuori90(n2*2))Then
Scrivi DataEstrazione(es,1)&" < "& SiglaRuota(r1)&" "& StringaEstratti(es,r1)&_
" > Ambo diametrale < "& Format2(n2)&" .> Num. doppio< "& Format2(n1)&" "
Scrivi DataEstrazione(es,1)&" < "& SiglaRuota(r2)&" "& StringaEstratti(es,r2)&_
" > Ambo diametrale< "& Format2(n3)&" "
End If

Scrivi String(65,"-")&" caso n° "&(casi)
rt(1)=r1: rt(2)=r2
co=0
nu2(1)=k1
nu2(2)=n1
nu2(3)=n2
nu2(4)=n3
co=co+1
ImpostaGiocata co,nu2,rt,ptt,clp
Gioca es
End If
End If


Next
Next

Next
Next
Next
Next

ScriviResoconto
End Sub