gennaro
Senior Member
Caro Joe, conoscendo la tua pignoleria, vorrei sottoporti un problema in cui mi sono imbattuto nell'analisi dell'algoritmo del calcolo del Rp1 (RitPos).
Sulla ruota di GENOVA, fino alla estrazione 8661, i numeri 27 e 74 sono andati a braccetto in sincrono per 101 estrazioni poi il 74 e' morto all'estrazione 8662
Allego una foto.

ed uno script di controverifica...
....ed ecco la domanda: "Quale modo per il calcolo dell'Rp1 e' quello corretto?"
Un bel grattacapo?
Sulla ruota di GENOVA, fino alla estrazione 8661, i numeri 27 e 74 sono andati a braccetto in sincrono per 101 estrazioni poi il 74 e' morto all'estrazione 8662

Allego una foto.

ed uno script di controverifica...
Codice:
'Incongruenza RitPos su RUOTA di GENOVA
Sub Main()
Dim Rp1(10)
ini = 8663 - 10
fin = 8663
For estr = 10 To 0 Step - 1
PiuRit = PiuRitardatario(fin - estr,4)
rit = RitardoEstrattoTurbo(PiuRit,fin - estr,4)
Rp1(estr) = RitPosTurbo(PiuRit,4,fin - estr) - 1
Messaggio estr
Scrivi fin-estr & " Ruo: " & SiglaRuota(4) & ", MaxRitardatario: " & Format2(PiuRit) & ", Rit: " & FormatSpace(Rit,3,1) _
& ", Rp1: " & FormatSpace(Rp1(estr),2,1)
Next
End Sub
....ed ecco la domanda: "Quale modo per il calcolo dell'Rp1 e' quello corretto?"
Un bel grattacapo?