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):n4=Estratto(es,r2,p4)
If n1+n1=n3 Or n1+n1=n2 Or n2+n2=n1 Or n2+n2=n3 Or n3+n3=n1 Or n3+n3=n2 Then
ds1=Distanza(n1,n2):ds2=Distanza(n1,n3):ds3=Distanza(n3,n2)
If ds1=45 Or ds2=45 Or ds3=45 Then
If ds1=45 Then ds4=ds1
If ds2=45 Then ds4=ds2
If ds3=45 Then ds4=ds3
If n1+n1=n3 Then k1=Diametrale(n3)
If n1+n1=n2 Then k1=Diametrale(n2)
If n2+n2=n1 Then k1=Diametrale(n1)
If n2+n2=n3 Then k1=Diametrale(n3)
If n3+n3=n2 Then k1=Diametrale(n2)
If n3+n3=n1 Then k1=Diametrale(n1)
b=Fuori90(a+so1) ' AMBATA_
casi=casi+1
Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1)&" < "& SiglaRuota(r1)&" "& StringaEstratti(es,r1)&_
" > Ambo < "& Format2(n1)&" . "& Format2(n2)&" . "
Scrivi DataEstrazione(es,1)&" < "& SiglaRuota(r2)&" "& StringaEstratti(es,r2)&_
" > Num. < "& Format2(n3)&" . Distanza ="& Format2(ds4)&" ."
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
End If
Next
Next
Next
Next
Next
Next
ScriviResoconto
End Sub