'Ritardi attuali Triambi composti da ambo principale + 2 coppie con uno degli _
'elementi differenti su Unite (Cinzia)
Sub main()
Dim n(2),n1(2),n2(2),n3(2),n4(2), m(8010,8),ru(2),rt(3)
r=11
r2=12
ru(1)=r
ru(2)=r2
Scrivi "Alla "&EstrazioneFin&" Ruote : unite at"
co=0
For i=1 To 90
For j=1 To 90
n(1)=i
n(2)=j
n1(1)=i
n1(2)=j-1
n2(1)=i
n2(2)=j+1
If n(2)>0 Then
If n(2)<91 Then
If n1(2)>0 Then
If n1(2)<91 Then
If n2(2)>0 Then
If n2(2)<91 Then
If n(1)<>n(2)Then
If n1(1)<>n1(2)Then
If n2(1)<>n2(2)Then
rt(1)=SerieRitardo(1,EstrazioneFin,n,ru,2)
rt(2)=SerieRitardo(1,EstrazioneFin,n1,ru,2)
rt(3)=SerieRitardo(1,EstrazioneFin,n2,ru,2)
OrdinaMatrice rt
Messaggio(StringaNumeri(n)&" "&StringaNumeri(n1)&" "&StringaNumeri(n2))
co=co+1
m(co,1)=co
m(co,2)=n(1)
m(co,3)=n(2)
m(co,4)=n1(1)
m(co,5)=n1(2)
m(co,6)=n2(1)
m(co,7)=n2(2)
m(co,8)=rt(1)
End If
End If
End If
End If
End If
End If
End If
End If
End If
Next
Next
OrdinaMatrice m,-1,8
For w=1 To 4000'modificare per visualizzare una diversa quantità di triambi
Scrivi Format2(m(w,2))&"."&Format2(m(w,3))&";"&Format2(m(w,4))&"."& Format2(m(w,5))&";"& _
Format2(m(w,6))&"."&Format2(m(w,7))&" "&Formatspace(m(w,8),4,1)
Next
End Sub