convertito alle istruzioni di Spaziometria.
consiglio un approfondito controllo dei suoi risultati prima di accettarli per buoni.
CODICE
'Ricerca di Genal- numeri allo stesso posto (Cinzia)
'Versione per Spaziometria By Joe V.3.0
Sub Main()
Dim n(1),n1(1),n2(1),rt(3),rtt(3),ru(1)
I = EstrazioneFin - 250 : F = EstrazioneFin
Scrivi "Pr Pos Ru A B C Ra Rb Rc Min",true
d = 30
For r = 1 To 11
If r = 11 Then r = 12
Scrivi
ru(1) = r
For x = 1 To 5
ReDim P(5) : P(x) = true
For a = 1 To 30
b = a + 30
c = a + 60
'For b = a + 1 To 89
'For c = b + 1 To 90
'd = b - a
'd1 = c - b
'If d = 30 Then
'If d1 = 30 Then
n(1) = a
n1(1) = b
n2(1) = c
rtt(1) = EstrattoRitardoTurbo(r,a,i,f,,,P)
rtt(2) = EstrattoRitardoTurbo(r,b,i,f,,,P)
rtt(3) = EstrattoRitardoTurbo(r,c,i,f,,,P)
rt(1) = SerieRitardoTurbo(i,f,n,ru,1)
rt(2) = SerieRitardoTurbo(i,f,n1,ru,1)
rt(3) = SerieRitardoTurbo(i,f,n2,ru,1)
If rt(1) = rtt(1) Then
If rt(2) = rtt(2) Then
If rt(3) = rtt(3) Then
k = k + 1
Scrivi FormatSpace(K,3) & Space(1),true,False
' Sono riportati i ritardi come estratti semplici e come estratto determinato ( che coincidono)
Scrivi FormatSpace(x,1,1) & Space(2) & SiglaRuota(r) & Space(2) & Format2(a) & " " & Format2(b) & " " & Format2(c) & " ",0,0
Scrivi FormatSpace(rt(1),3,1) & " ",0,0 '& " " & FormatSpace(rtt(1),4,1)
Scrivi FormatSpace(rt(2),3,1) & " ",0,0 '& " " & FormatSpace(rtt(2),4,1)
Scrivi FormatSpace(rt(3),3,1),0,0'& " " & FormatSpace(rtt(3),4,1)
OrdinaMatrice rt,1
'OrdinaMatrice rtt,1
Scrivi FormatSpace(rt(1),4,1),1'& " " & FormatSpace(rtt(1),4,1)
End If
End If
End If
'End If
'End If
'Next
'Next
Next
Next
Next
End Sub