Listato ritardo ambo in decina

[solare]

Ciao, chiedo se qualcuno può fare un listato che possa analizzare tutte le decine naturali di una ruota
e visualizzare il ritardo attuale e max e la frequenza.
Grazie

 

[solare]

Trovato tra i miei listati, metto a disposizione per chi lo vuole:
REM Frequenze e Ritardi nelle Decine Naturali V.6.0 per Solare Script By Joe

Sub Main()
C = True ' C=True=Compatto // C=False=Esteso
Dim Nu(10),Ru(1),ST(9),TG(9),R(9): ReDim T(9) : Ru(1) = ScegliRuota
Scrivi "Frequenze degli Ambi nella Decina Naturale : " & NomeRuota(Ru(1)),1
Scrivi : Scrivi " Estraz.",1,0 : Scrivi String(5," "),0,0
Scrivi " Estratti" & String(6," "),1,0
For D = 0 To 8 : Scrivi "D" & D & " ",1,0 : Next : Scrivi
For Es = EstrazioneFin - 179 To EstrazioneFin : KK = 0 : K = K + 1
If Not C Then Scrivi DataEstrazione(Es) & " " & StringaEstratti(Es,Ru(1)),0,0 '
If K = 1 Then Ini = Es
For D = 0 To 80 Step 10
For U = 1 To 10
Nu(U) = D + U
Next
SF = SerieFreq(Es,Es,Nu,Ru,2)
KK = KK + 1 : T(KK) = T(KK) + SF
If Not C Then Scrivi FormatSpace(SF,4,1),0,0
If SF > 0 And R(KK) >= ST(KK) Then ST(KK) = R(KK)'Rilevo Storico
If SF > 0 Then R(KK) = 0 Else R(KK) = R(KK) + 1 'Calcolo Ritardi
Next
If Not C Then Scrivi '
If K = 10 Then
Fin = ES : K = 0 : Scrivi : Scrivi(Ini) & "-" &(Fin),0,0
Scrivi " .... Ambi ....",0,0
For Tot = 1 To 9
Scrivi FormatSpace(T(Tot),4,1),1,0 : TG(Tot) = TG(Tot) + T(Tot)
Next : Scrivi : Scrivi
ReDim T(9)
End If
Next
Scrivi : Scrivi "Riepilogo" & String(5," "),1,0
Scrivi FormatSpace(NomeRuota(Ru(1)),14),1,0
For D = 0 To 8 : Scrivi "D" & D & " ",1,0 : Next : Scrivi
Scrivi String(63,"="),1
Scrivi EstrazioneFin - 179 & "-" & EstrazioneFin & " . Frequenze . ",1,0
For Tot = 1 To 9 : Scrivi FormatSpace(TG(Tot),4,1),1,0 : Next
Scrivi : Scrivi String(63,"="),1
Scrivi EstrazioneFin - 179 & "-" & EstrazioneFin & " . Ritardi . ",1,0
For Tot = 1 To 9 : Scrivi FormatSpace(R(Tot),4,1),1,0 : Next
Scrivi : Scrivi String(63,"="),1
Scrivi EstrazioneFin - 179 & "-" & EstrazioneFin & " . Sto/Per . ",1,0
For Tot = 1 To 9 : Scrivi FormatSpace(ST(Tot),4,1),1,0 : Next
Scrivi : Scrivi String(63,"="),1
Scrivi "Periodo : " & DataEstrazione(Fin - 179) & " >< " & DataEstrazione(Fin),1
End Sub

 

[Delphi]

Ciao, chiedo se qualcuno può fare un listato che possa analizzare tutte le decine naturali di una ruota
e visualizzare il ritardo attuale e max e la frequenza.
Grazie

Ciao solare , il listato non mi sembra corretto o sono io che mi sbaglio


Qui sotto vedi il ritardo per Ambo in decina per ogni ruota , se confronti con lo script non corrisponde

NUM---------------------------- BA- CA -FI- GE- MI- NA- PA- RM- TO- VE- NZ-
01.02.03.04.05.06.07.08.09.10- 0-- 13- 9-- 9-- 0-- 43- 49- 4-- 11- 12- 15
11.12.13.14.15.16.17.18.19.20- 8-- 8-- 41- 13- 9-- 7-- 11- 7-- 3-- 2-- 0
21.22.23.24.25.26.27.28.29.30- 3-- 9-- 37- 4-- 6-- 5-- 21- 9-- 75- 15- 1
31.32.33.34.35.36.37.38.39.40- 6-- 1-- 20- 2-- 12- 20- 14- 0-- 6-- 7-- 5
41.42.43.44.45.46.47.48.49.50- 9-- 15- 4-- 5-- 4-- 1-- 3-- 65- 21- 4-- 16
51.52.53.54.55.56.57.58.59.60- 1-- 2-- 14- 7-- 12- 6-- 23- 3-- 1-- 1-- 6
61.62.63.64.65.66.67.68.69.70- 3-- 7-- 10- 0-- 5-- 8-- 18- 1-- 13- 13- 43
71.72.73.74.75.76.77.78.79.80- 4-- 19- 2-- 10- 19- 11- 6-- 10- 2-- 3-- 13
81.82.83.84.85.86.87.88.89.90- 38- 17- 0-- 1-- 1-- 13- 5-- 2-- 15- 6-- 3

 

[solare]

Ciao oscar21, questo è il mio risultato è perfetto

Riepilogo Bari D0 D1 D2 D3 D4 D5 D6 D7 D8
===============================================================
3959-8798 . Frequenze . 534 577 485 530 547 546 555 494 559
===============================================================
3959-8798 . Ritardi . 0 8 3 6 9 1 3 4 38
===============================================================
3959-8798 . Sto/Per . 68 66 76 86 57 70 69 83 69
===============================================================
Periodo : 14.12.1946 >< 21.01.2014