''G58:Max st e ritardo attuale ambo bivalente dopo la sortita del 1°ambetto spia
'Script Cinzia27
Sub main()
Dim n(2),n1(2),n2(2),n3(2),n4(2),ru(2),s(4)
q=200:q1=300:q2=400
For es=10200 To EstrazioneFin
For r=1 To 10
For r1=r+1 To 11
If r1=11 Then r1=12
ru(1)=r
ru(2)=r1
For i=1 To 89
For j=i+1 To 90
If Posizione(es,r,i)>0 And Posizione(es,r,j)>0 And Posizione(es,r1,i)>0 And Posizione(es,r1,j)>0 Then
n1(1)=i
n1(2)=j+1
n2(1)=i
n2(2)=j-1
n3(1)=i+1
n3(2)=j
n4(1)=i-1
n4(2)=j
If (es+1)<estrazionefin Then
s(1)=SeriePrima(es+1,EstrazioneFin,n1,ru,2)
s(2)=SeriePrima(es+1,EstrazioneFin,n2,ru,2)
s(3)=SeriePrima(es+1,EstrazioneFin,n3,ru,2)
s(4)=SeriePrima(es+1,EstrazioneFin,n4,ru,2)
OrdinaMatrice s
If s(1)>0 Then
n(1)=i
n(2)=j
If SerieFreq(es+1,s(1)-1,n,ru,2)=0 Then
ss=SeriePrima(s(1)+1,EstrazioneFin,n,ru,2)
If ss>0 Then
st=ss-s(1)
Scrivi FormatSpace(es,5,1)&" "&FormatSpace(s(1),5,1)&" "&FormatSpace(ss,5,1)&" "&siglaruota(r)&"-"&_
SiglaRuota(r1)&" "&StringaNumeri(n1)&";"&StringaNumeri(n2)_
&";"&StringaNumeri(n3)&";"&StringaNumeri(n4)&" --> ambo bivalente "&_
StringaNumeri(n)&" st "&FormatSpace(st,5,1)
If st>mx Then mx=st
If st>=q Then con=con+1
If st>=q1 Then con1=con1+1
If st>=q2 Then con2=con2+1
Else
If ss=0 Then
If SerieFreq(es+1,s(1)-1,n,ru,2)=0 Then
at=EstrazioneFin-s(1)
ColoreTesto 1
Scrivi FormatSpace(es,5,1)&" "&FormatSpace(s(1),5,1)&" "&siglaruota(r)&" "&siglaruota(r1)&" "&StringaNumeri(n1)_
&";"&StringaNumeri(n2)&";"&StringaNumeri(n3)&";"&StringaNumeri(n4)&" ambo bivalente "&_
StringaNumeri(n)&" at "&FormatSpace(at,5,1)
ColoreTesto 0
End If
End If
End If
End If
End If
End If
End If
Next
Next
Next
Next
Next
Scrivi " Max st "&mx
Scrivi " st>= "&q&" 0 "&con
Scrivi " st>= "&q1&" 0 "&con1
Scrivi " st>= "&q2&" 0 "&con2
End Sub