Per claudio8

[stefania1972]

Ciao claudio8 volevo chiederti gentilmente se in questo post :

http://forum.lottoced.com/topic.asp?TOPIC_ID=138447

si potrebbe esaudire la richiesta dell'utente rabberto dove chiedeva :
Quando mi da' l'output mi da ad esempio :
5 estratto di Genova + 37 sulla ruota di Bari è uscito 13 volte su 14
Volevo sapere se era possibile inserire gia' il numero calcolato senza che io devo sempre fare i calcoli a mano , Esempio
5 estratto di Genova + 37 sulla ruota di Bari ( QUI MI DEVE SCRIVERE IL NUMERO ) è uscito 13 volte su 14
Sper sia stato chiaro e che si possa fare qualcosa , grazie , ciao.

Siccome sto studiando i due listati anche quello di Blackmore
e vorrei confrontarli , e mi farebbe moto comodo per fare una cosa piu' veloce .
Spero mi puoi aiutare , ti ringrazio in anticipo , ciao .

 

[claudio8]

Controlla i dati perchè non mi fido molto di questo script. Sinceramente non ho capito in quanti colpi esce la previsione.

'Attenzione, per la regolarità del calcolo del numero previsto considerare che la previsione
'viene costruita usando l'ultima estrazione in archivio, essa non è valida se l'indice mese 
'di ricerca non coincide con quello dell'ultima estrazione in archivio  

Sub Main()
	Dim som(5,90)
	Dim estr(5)
	Dim Val(5,90)
	es = CInt(InputBox("inserisci 0 per l'ultima estrazione, 1 per la prima del mese.",,0))
	ee = CInt(InputBox("Quante estrazioni esaminiamo?",,40))
	ColoreTesto 2
	Scrivi "            ELABORAZIONE delle ultime "& ee &" estrazioni PER INDICE MENSILE n° " & es
	Scrivi "Attenzione, per la regolarità del calcolo del numero previsto considerare che la previsione viene" 
	Scrivi "                         costruita usando l'ultima estrazione in archivio."
	ColoreTesto 0 
		For r2 = 1 To 10
		For r = 1 To 10
			z = 0
			For i = 1 To 5
				For j = 1 To 90
					som(i,j) = 0
					Val(i,j) = True
				Next
			Next
			For i = 1 To 5
				estr(i) = 0
			Next
			valido = False
			For n = EstrazioneFin - 40 To EstrazioneFin 'Modificando il 180 si cambia il n° di estrazioni esaminate
				If valido = True Then
					For i = 1 To 5
						For j = 1 To 5
							k = Estratto(n,r2,j) - estr(i)
							If k <= 0 Then
								k = k + 90
							End If
							If Val(i,k) = True Then
								som(i,k) = som(i,k) + 1
							End If
						Next
					Next
					For i = 1 To 5
						For j = 1 To 5
							k = Estratto(n,r2,j) - estr(i)
							If k <= 0 Then
								k = k + 90
							End If
							If Val(i,k) = True Then
								Val(i,k) = False
							End If
						Next
					Next
				End If
				If es = 0 Then 
				m = n + 1 
				Else 
				m = n 
				End If
				
				If IndiceMensile(m) = 1 Then
					z = z + 1
					valido = True
					For i = 1 To 5
						estr(i) = Estratto(n,r,i)
					Next
					For i = 1 To 5
						For j = 1 To 90
							Val(i,j) = True
						Next
					Next
				End If
			Next
			For i = 1 To 5
				For j = 1 To 90
					zz = Int((z/100)*90)
					s = CStr(eval(i)) & " estratto di " & FormatSpace(NomeRuota(r),8,0) & " + " & FormatSpace(CStr(eval(j)),3 - 1) & " sulla ruota di "
					s = s & FormatSpace(NomeRuota(r2),9,0) & " è uscito " & FormatSpace(CStr(som(i,j)),3 - 1) & " volte su " & CStr(eval(z)) & " e prevede il " & _
					Fuori90(Estratto(EstrazioneFin,r,eval(i)) + eval(j))
					If som(i,j) > zz Then
						Scrivi s
					End If
				Next
			Next
		Next
	Next
End Sub

ciao

 

[stefania1972]

Grazie infinitamente claudio8 , sempre gentile come sempre , sia per lo script che per le spiegazioni , adesso posso fare le mie prove , speriamo di trovare qualcosa di buono .
Grazie ancora , ciao .