dov'è l'errore?

[giorgio1960]

Sub main()
Dim Ru(1),nu(10)
Fin =EstrazioneFin
For R=1 To 10 : Ru(1)=r : min =1000
For d= 0 To 8
For u= 1 To 10 : NU(u)= 10*d + u : Next
Sr=SerieRitardo (fin-200,fin,nu,ru,2)
If Sr < Min Then min =Sr
Scrivi SiglaRuota (R) & " " & StringaEstratti (es,r)& " "& StringaNumeri (nu) & " RC=" & FormatSpace (Sr,3,1)
Next
Scrivi SiglaRuota (R) & " Min = " & FormatSpace (min,3,1) ,1,1
scrivi
Next
End Sub



grazie a chi mi può aiutare

 

[Moro_80]

Ciao,
non ho fatto analisi dei dati, ma ho semplicemente lanciato lo script pari pari come da Te postato, funziona senza alcun tipo di errore....


Ciao

 

[Mike58]

Ciao,
un errore nello script c'è, e sta nella StringaEstratti (es,r) che non scrive nulla in quando es che dovrebbe essere id estrazioni non è ciclato.
Dipende da cosa vuoi scrivere con gli estratti se, ultima estrazione allora StringaEstratti (fin,r) oppuregli estratti del ritardo allora StringaEstratti (fin-sr,r).
Tutto il resto raggiuge lo scopo.

 

[giorgio1960]

grazieeeeeeeeeeeeeeeeeeeeeeeeeee

 

[Joe91]

Ciao Giorgio.

Volevo chiederti per pura curiosità, ma da dove l'hai cavato via ?

Perdonami ... ma siamo in spazio e tempo di trifulau.

 

[giorgio1960]

Ciao Giorgio.

Volevo chiederti per pura curiosità, ma da dove l'hai cavato via ?

Perdonami ... ma siamo in spazio e tempo di trifulau.

ciao Joe, l'ho cavato in rete facendo una ricerca sui ritardi relativi

...trifulau? posso chiederti intendi?

ciao

 

[giorgio1960]

colgo l'occasione per chiedere, gentilmente, se qualcuno ha uno script che ricavi appunto i ritardi relativi ed in particolare degli ambi nelle decine naturali
grazie Giorgio

 

[Joe91]

Trifulau, nel dialetto piemontese,

sono coloro che scavano per "trovare" i tartufi.

In quelle sezioni ... pur vecchie (di molti anni) avevo scritto parecchio al riguardo, non so cosa tu abbia trovato o conservato,

sicuramente era disponibile il ritardo relativo.

Comunque sia ... ho trovato questo e lo ripropongo:

Sub Main()
'Calcoli sui ritardi (correnti e ralativi) in gruppi omogenei.
'scritto da Joe91 14/07/2008.


Dim Ru(1),Nu(10)
Fin = EstrazioneFin
For R = 1 To 11 : Max = 0 : If R = 11 Then R = 12
Ru(1) = R
For D = 0 To 8
For U = 1 To 10 : Nu(U) = 10*D + U : Next
Sr = SerieRitardo(Fin - 200,Fin,Nu,Ru,2)
If Sr > Max Then Max = Sr
Scrivi SiglaRuota(R) & " " & StringaNumeri(Nu,,True),0,0
Scrivi " Rc = " & FormatSpace(Sr,3,1) '& " [" & Fin-Sr & "] " & StringaEstratti (Fin-SR,r)
Next
Scrivi SiglaRuota(R) & " Rc " & FormatSpace(Max,2,1),1,0
'------------ Calcolo Rr I°
Mu = 0
For D = 0 To 8
For U = 1 To 10 : Nu(U) = 10*D + U : Next
Sp = SeriePrima(Fin - Max,Fin,Nu,Ru,2) : If Sp > Mu Then Mu = Sp
Next
Scrivi " / ",0,0
ColoreTesto 2 : Scrivi " Rr " & FormatSpace(Fin - Mu,2,1),1,0
ColoreTesto 1 : Scrivi " Rr/Rc " & Int((Fin - Mu)/Max*1000)/1000,1,0
ColoreTesto 0 : Scrivi
Scrivi
Scrivi SiglaRuota(R) & " " & DataEstrazione(Fin)
Scrivi
'------------
Next
End Sub

 

[giorgio1960]

ciao Joe, successivamente allo script in oggetto, ne hai per caso qualcuno riguardo i ritardi relativi di 2° livello?
anticipatamente ringrazio
Giorgio