'Lo script che io chiamo "di base" con cui dobbiamo sempre lavorarci sopra è stato da te pubblicato il 14-9-18, alle ore 21,49,
'però in questo listato dobbiamo inserire una modifica e correggere alcuni piccoli errori.
'Ecco come possiamo fare:
'Prendiamo ad esempio la terzina n° 1 che in output ci appare in questa maniera all'ultima estrazione aggiornata di Spaziometria 9527.
'1 1. 7. 20 9492 2 9498 5 9509 10 9527 17
'se il ritardo precedente all'estrazione 9492 da cui ha inizio la fase crescente è > 2 (nel caso specifico il rit. è stato 23; estr. 9489), allora noi possiamo aggiungere nella stessa riga dopo l'ultimo rit. 17 (rit. cons. cresc. 3), e far iniziare la sequenza non più dall'estraz. 9492 2 (che verrà eliminata), ma dall'estrazione '9498 5 9509 10 9527 17 (rit. cons. cresc. 3);
'se invece il ritardo fosse stato < di 2 (rivedi sopra), allora noi avremmo scritto dopo il rit. 17 (rit.cons. cresc. 4) e
'lasciata intatta la sequenza così come la vediamo ora.
'Dette modifiche ovviamente devono anche riguardare le altre terzine successive alla prima che sono in tutto 328.
'Spero di essere stato chiaro. Di nuovo un saluto.
'Ricerca di Abasul :terzine per ambi con ritardi crescenti o decrescenti (Cinzia)
'Scrivi " terzine che hanno appena concluso la fase di 4 ritardi crescenti, cioè con ritardo attuale=0 ":scrivi
' ritardi crescenti metti >
' ritardi decrescenti metti <
'Ricerca di Abasul :terzine per ambi con ritardi crescenti o decrescenti (Cinzia)
'Scrivi " terzine che hanno appena concluso la fase di 3 ritardi crescenti":scrivi
Sub main()
Dim n(3),ru(1)
r=11
Scrivi " Ruota "&siglaruota(r):scrivi
Scrivi "blu = ritardo precedente all' inizio della fase di ritardi crescenti >al 1° ritardo della fase di ritardi crescenti "
Scrivi "nero = ritardo precedente all' inizio della fase di ritardi crescenti <al 1° ritardo della fase di ritardi crescenti "
scrivi
ru(1)=r
q=30:q1=40:q2=50
For i=1 To 88
For j=i+1 To 89
For k=j+1 To 90
n(1)=i
n(2)=j
n(3)=k
es=EstrazioneFin
If SerieFreq(es,es,n,ru,2)>0 Then
rt=SerieRitardo(1,es-1,n,ru,2)
rt1=SerieRitardo(1,es-1-rt-1,n,ru,2)
rt2=SerieRitardo(1,es-1-rt1-1-rt-1,n,ru,2)
rt3=SerieRitardo(1,es-1-rt2-1-rt1-1-rt-1,n,ru,2)
rt4=SerieRitardo(1,es-1-rt3-1-rt2-1-rt1-1-rt-1,n,ru,2)
rt5=SerieRitardo(1,es-1-rt4-1-rt3-1-rt2-1-rt1-1-rt-1,n,ru,2)
' ritardi crescenti metti >
' ritardi decrescenti metti <
If rt1>rt2 Then
If rt2>rt3 Then
If rt3>rt4 Then
c=c+1
ri=FormatSpace(es-1-rt3-1-rt2-1-rt1-1-rt,4,1)&" "&FormatSpace(rt4,4,1)&" "& _
FormatSpace(es-1-rt2-1-rt1-1-rt,4,1)&" "&FormatSpace(rt3,4,1)&" "&FormatSpace(es-1-rt1-1-rt,4,1)&" "& _
FormatSpace(rt2,4,1)&" "&FormatSpace(es-1-rt,4,1)&" "&FormatSpace(rt1,4,1)
If rt5>rt4 Then
ColoreTesto 1
Scrivi FormatSpace(c,4,1)&" "&StringaNumeri(n)&" "&FormatSpace(es-1-rt4-1-rt3-1-rt2-1-rt1-1-rt,4,1)&" "&FormatSpace(rt5,4,1)&" "&ri,1
Else
If rt5<rt4 Then
ColoreTesto 0
Scrivi FormatSpace(c,4,1)&" "&StringaNumeri(n)&" "&ri&" "&FormatSpace(es-1,4,1)&" "&FormatSpace(rt,4,1)
ColoreTesto 0
End If
End If
End If
End If
End If
End If
Next
Next
Next
End Sub