Per LuigiB funzione SerieRitardo()

[pico2005]

La funzione serieritardo() mi dà valori errati è possibile?

In particolare con l'archivio al 08_07_2014 cercando gli ambi per sorte mi restituisce:

Bari per la figura 4 ritorna un ritardo 27 .....dove al ritardo si hanno i 81 _ 43 _ 31 _ 90 _ 56 con il solo 31 di figura 4;
Firenze sempre per la figura 4 un ritardo per ambo di 7.... dove invece si hanno 24 _ 58 _ 80 _ 86 _ 89 con il solo 58 di figura 4...


etc.

Scusami per il disturbo .

 

[LuigiB]

sinceramente non credo senno me lo avrebbero gia detto da quel di , tuttavia visto che tutto è possibile metti lo script cosi controllo

 

[Mike58]

Anche i miei dati non danno errori e sono uguali a quelli estrapolati dalla verifica in Formazione Veloce.

4.13.22.31.40.49.58.67.76.85

Verifica all'estrazione... [08870] [ 81] 08.07.2014

Ritardo per..Ambo  41 - BA .. .. 22 58 .. - [08829] [ 40] 03.04.2014 - colpo...41

Sub Main
	Dim nu(10),ru(1)
	r = InputBox("RUOTA",,1)
	sorte = CInt(InputBox("SORTE DI VERIFICA",,2))
	Ini = EstrazioneIni
	fin = EstrazioneFin
	ScegliNumeri(nu)
	ru(1) = r
	SR = SerieRitardo(Ini,fin,nu,ru,sorte)
	Scrivi StringaNumeri(nu),1
	Scrivi
	Scrivi "Verifica all'estrazione... " & GetInfoEstrazione(fin),1,1,,1,2
	Scrivi
	Scrivi "Ritardo per.." & NomeSorte(sorte) & "  " & SR,0,0
	Call VerificaEsito(nu,ru,fin - SR,sorte,,,esito,copli,estratti,id)
	Scrivi " - " & estratti,0,0
	Scrivi " - " & GetInfoEstrazione(id),0,0
	Scrivi " - colpo..." & fin - id
End Sub

4.13.22.31.40.49.58.67.76.85

Verifica all'estrazione... [08870] [ 81] 08.07.2014

Ritardo per..Ambo  10 - FI .. 40 49 .. .. - [08860] [ 71] 14.06.2014 - colpo...10

 

[LuigiB]

ciao Mike , grazie .. aspettiamo lo script di pico ma penso che non ci siano errori ..vedremo

 

[pico2005]

Chiedo scusa devo aver fatto battibeccare alcune variabili tra loro per aver portato le dim in validità per tutte le sub ed anche l'ordinamento ha un poco di buchi.
scusate , devo rivedermelo tutto.


Option Explicit
Dim stat(90),CL
Dim x,y,z,w,a(90),r,fi,m,prova
Dim f(90),ruote(13)
Dim cf(10,11),kk
Dim Uni(10,10)
Dim c7(12,7)
Dim Dec(10,10)
Dim rit,ff
CL = InputBox("Inserire 2 per ritardi ambi -- 3 per ritardi terni .....etc.","Scelta Statistica",2)
Dim Inizio,fine

Inizio = EstrazioneFin - 1000
fine = EstrazioneFin

Sub Main



Figure




End Sub






Sub Figure
'Scrivi "________________________________ Figure____________________________"


For r = 1 To 10
ruote(1) = r

For x = 1 To 9
m = 1
For fi = 1 To 90
If Figura(fi) = x Then
a(m) = fi
'prova=prova & " " & fi
m = m + 1
End If
Next
kk = SerieRitardo(Inizio,fine,a,ruote,CL)
cf(r,x) = kk
'Scrivi cf(r,x)& " " & prova
'prova=""
Next

'Scrivi ""

rit = 0
ff = 0
For x = 0 To 8
'Scrivi cf(r,x)
w = cf(r,x)
If rit < w Then
rit = w
ff = x
End If
Next
Scrivi "ruota " & NomeRuota(r) & " Figura " & ff & " ritardo " & rit
For x = 1 To 90
If Figura(x) = ff Then f(x) = f(x) & " " & SiglaRuota(r)
Next
Next


End Sub

 

[Joe91]

Buon giorno a tutte/i.

Mi sono permesso di modificare l' output di questo script,

al fine di renderlo più facilmente interpretabile.

Il ritardo da esso calcolato è compatibile con gli estratti presenti a quella data.

Option Explicit
Dim stat(90),CL
Dim x,y,z,w,a(90),r,fi,m,prova,P,Tmp,GR
Dim f(90),ruote(13)
Dim cf(10,11),kk
Dim Uni(10,10)
Dim c7(12,7)
Dim Dec(10,10)
Dim rit,ff
CL = CInt(InputBox("Inserire 2 per ritardi ambi -- 3 per ritardi terni .....etc.","Scelta Statistica",2))
If CL > 4 Then CL = 4
Dim Inizio,fine
Inizio = 3950
fine = EstrazioneFin
Sub Main
Scrivi "Ultima Sorte In Figura ",1,0
Scrivi "(Aggiornato al " & DataEstrazione(fine) & ")"
Scrivi
	Figure
End Sub
Sub Figure
	'Scrivi "________________________________ Figure____________________________"
	For r = 1 To 10
		ruote(1) = r
		For x = 1 To 9
			m = 1
			For fi = 1 To 90
				If Figura(fi) = x Then
					a(m) = fi
					'prova=prova & " " & fi
					m = m + 1
				End If
			Next
			kk = SerieRitardo(Inizio,fine,a,ruote,CL)
			cf(r,x) = kk
			'Scrivi cf(r,x)& " " & prova
			'prova=""
		Next
		'Scrivi ""
		rit = 0
		ff = 0
		For x = 0 To 8
			'Scrivi cf(r,x)
			w = cf(r,x)
			If rit < w Then
				rit = w
				ff = x
			End If
		Next
		'New-out By Joe
		Scrivi DataEstrazione(fine - rit) & " ",1,0
		ColoreTesto 2 : Scrivi SiglaRuota(r) & " ",1,0 : ColoreTesto 0
		For P = 1 To 5
			Tmp = Estratto(fine - rit,r,P)
			If Figura(Tmp) = ff Then GR = 1 : ColoreTesto 2
			Scrivi Format2(Tmp) & " ",GR,0 : GR = 0 : ColoreTesto 0
		Next
		ColoreTesto 2 : Scrivi " [F" & ff & "] ",1,0 : ColoreTesto 0
		Scrivi " Rit" & FormatSpace(rit,5,1) & " ",1,0
		Scrivi
		'For x = 1 To 90 
		'If Figura(x) = ff Then f(x) = f(x) & " " & SiglaRuota(r) '?
		'Next 
		Scrivi
	Next
End Sub

 

[pico2005]

Si certo grazie ragazzi, una sub chiamata per prima ingarbugliava gli esiti delle altre sub, infatti cambiando
l'ordine delle sub e lasciando per ultima quella " Malvagia" è tornato tutto alla normalità.
Grazie ancora Joe91 e Mike58 e sopratutto grazie Luigi e scusate ma è stato il risolutore del pusillis.