Novità

Metodi Sommativi no frequenza ma ritardo

ciao Claudio adesso provo a chiedere aiuto a Rubino se non mi capisce neanche lui provo con un esempio.
 
ciao
ho provato a far girare lo script ultimo postato di Claudio

questo è un pezzetto di output,
mi serve solo per capire e mettere a fuoco qualche dettaglio.

Codice:
1° di Bari     + 01 su Bari     è uscito 0/10 : 81  in corso con ritardo di 6 estrazioni
1° di Bari     + 02 su Bari     è uscito 1/10 : 82  in corso con ritardo di 3 estrazioni
1° di Bari     + 03 su Bari     è uscito 1/10 : 83 ----> sfaldato
1° di Bari     + 04 su Bari     è uscito 1/10 : 84  in corso con ritardo di 29 estrazioni
1° di Bari     + 05 su Bari     è uscito 1/10 : 85  in corso con ritardo di 11 estrazioni
1° di Bari     + 07 su Bari     è uscito 0/10 : 87  in corso con ritardo di 32 estrazioni
1° di Bari     + 08 su Bari     è uscito 1/10 : 88  in corso con ritardo di 2 estrazioni
1° di Bari     + 09 su Bari     è uscito 2/10 : 89  in corso con ritardo di 6 estrazioni
1° di Bari     + 10 su Bari     è uscito 0/10 : 90  in corso con ritardo di 49 estrazioni
1° di Bari     + 11 su Bari     è uscito 0/10 : 1   in corso con ritardo di 7 estrazioni
1° di Bari     + 12 su Bari     è uscito 0/10 : 2   in corso con ritardo di 31 estrazioni
1° di Bari     + 13 su Bari     è uscito 2/10 : 3   in corso con ritardo di 2 estrazioni
1° di Bari     + 14 su Bari     è uscito 1/10 : 4   in corso con ritardo di 5 estrazioni
1° di Bari     + 15 su Bari     è uscito 1/10 : 5   in corso con ritardo di 11 estrazioni
1° di Bari     + 16 su Bari     è uscito 1/10 : 6   in corso con ritardo di 6 estrazioni
1° di Bari     + 17 su Bari     è uscito 0/10 : 7   in corso con ritardo di 65 estrazioni
1° di Bari     + 18 su Bari     è uscito 2/10 : 8   in corso con ritardo di 12 estrazioni
1° di Bari     + 19 su Bari     è uscito 1/10 : 9   in corso con ritardo di 24 estrazioni
1° di Bari     + 20 su Bari     è uscito 2/10 : 10  in corso con ritardo di 4 estrazioni
1° di Bari     + 22 su Bari     è uscito 1/10 : 12  in corso con ritardo di 22 estrazioni
1° di Bari     + 23 su Bari     è uscito 1/10 : 13  in corso con ritardo di 20 estrazioni



domande:
1) le righe che ho evidenziato in rosso, sono le combinazioni che si vuole ottenere come informazioni,
cioè il nr ed un suo abbinamento che non è mai uscito da 10 cicli
mensili.

2) le altre si potrebbero scartare

3) il ritardo virtuale, come dice fillotto, deve essere (quindi dell'ambo cioè nr. + il suo abbinamento ) del penultimo ciclo + parte dell'ultimo già iniziato.
quindi il range da tenere conto per il calcolo del ritardo dell'ambo è l'inizio dell'estrazione del penultimo ciclo fino all'ultima estrazione attuale in archivio.


vediamo, se ho capito bene

altrimenti fatemi segnalazione.

aspetto !





-----------------------------
hobby e passatempo, il bello dello studio e della ricerca

Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.

La sistemistica trova il suo fondamento nella matematica, mentre i padri fondatori
hanno proposto come fondamento il fumo aleatorio!
 
ciao filotto

prova a far girare lo script e dimmi se va bene.




Codice:
' Cerca Ambate con parametro di ricerca in percentuale di sortita ecco il listato di Danilo
' ATTENZIONE ! ---> Analizza tutte le ruote in una sola scansione

'Ricerca per indice mese i numeri convergenti
Sub Main()
	ColoreTesto 2
	Scrivi "ATTENZIONE !!!",1
	Scrivi "Ricerca per Ambata eseguita in tutte le ruote contemporaneamente",1
	Dim som(5,90)
	Dim estr(5)
	Dim Val(5,90)
	Dim amb(90)
	perc = InputBox("Imposta la percentuale esiti (10% - 100%)",,0)
	es = InputBox("Inserisci 0 ultima, 1 prima, ....:",,1)
	nmc = InputBox("Quanti mesi da analizzare ?",,10)
	ncg = InputBox("Quanti colpi di gioco ?",,3)
	ultest = 8387 'aggiornare all'ultima estrazione
	n = EstrazioneFin
	z = 0
	trovato = False
	While z < eval(nmc)
		If(((eval(es) = 0)And(n = ultest))Or((IndiceMensile(n) = eval(es)And(eval(es) > 0))Or((IndiceMensile(n + 1) = 1)And(eval(es) = 0)))) Then
			z = z + 1
		End If
		
		If z = 2 And ctr = 0Then 
		dal = eval(n)
		Scrivi "data penult.ciclo..." & dal & "/" & DataEstrazione(dal)
		ctr = 1
		End If
		
		n = n - 1
	Wend
	nn = n + 1
	For r2 = 1 To 10
		For i = 1 To 90
			amb(i) = 0
		Next
		ColoreTesto 0
		Scrivi
		Scrivi "***********************************************************",1
		ColoreTesto 0
		Scrivi "IMPOSTAZIONI:",1
		If eval(es) = 0 Then
			s = "(All'ultima"
		Else
			s = "Alla (" + es
		End If
		s = s + "°) estrazione del mese per ("
		If eval(ncg) = 0 Then
			s = s + "un mese:"
		Else
			If eval(ncg) = 1 Then
				s = s + ncg + ") colpo:"
			Else
				s = s + ncg + ") colpi:"
			End If
		End If
		ColoreTesto 0
		Scrivi s
		ColoreTesto 1
		Scrivi "Quantità mesi Impostati: (" & nmc & ")",1
		ColoreTesto 0
		Scrivi "Statistica dal: " + DataEstrazione(nn) + " al: " + DataEstrazione(EstrazioneFin),1
		ColoreTesto 2
		Scrivi "Percentuale Impostata: " & perc & "%",1
		Scrivi
		For r = 1 To 10 ' x ruote di partenza
			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 = nn To EstrazioneFin
				If eval(es) = 0 Then m = n + 1 Else m = n End If
				If(((eval(es) = 0)And(n = ultest))Or((IndiceMensile(n) = eval(es)And(eval(es) > 0))Or((IndiceMensile(n + 1) = 1)And(eval(es) = 0)))) Then
					z = z + 1
					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
					k2 = eval(ncg)
					k3 = n + k2
					If k3 > EstrazioneFin Then k3 = EstrazioneFin End If
					For nv = n + 1 To k3
						For i = 1 To 5
							For j = 1 To 5
								k = Estratto(nv,r2,j) - estr(i)
								While k <= 0
									k = k + 90
								Wend
								If Val(i,k) = True Then
									som(i,k) = som(i,k) + 1
									Val(i,k) = False
								End If
							Next
						Next
					Next
				End If
			Next
	
			For i = 1 To 5
				For j = 1 To 90
					zz = Int((z/100)*perc)
					s = CStr(eval(i)) + "° di " + FormatSpace(NomeRuota(r),8) + " + " + Format2(CStr(eval(j))) + " su "
					ColoreTesto 1
					s = s + FormatSpace(NomeRuota(r2),8) + " è uscito " + CStr(som(i,j)) + "/" + CStr(eval(z))
					s = s + " : " + FormatSpace(CStr(Fuori90(eval(estr(i) + j))),3)
					ReDim num(1)
					ReDim art(1)
					If (Val(i,j) = True)   Then
					If som(i,j) = 0 Then 
					num(1) = Fuori90(eval(estr(i) + j))
					art(1) = r2
					ultusc = EstrattoRitardo(r2,Fuori90(eval(estr(i) + j)))
	''''				s = s + " in corso con ritardo di " & SerieRitardo(dal,EstrazioneFin,num,art,1) & " estrazioni" '
					s = s + " in corso........ ultima uscita.." & DataEstrazione(EstrazioneFin-ultusc)			 
					 End If
					 
					 Else 
					 s = s + "----> sfaldato"
					 End If
					If som(i,j) <= zz Then
						Scrivi s
						amb(Fuori90(eval(estr(i) + j))) = amb(Fuori90(eval(estr(i) + j))) + 1
					End If
				Next
			Next
		Next
		ColoreTesto
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 22 luglio 2025
    Bari
    29
    03
    79
    27
    86
    Cagliari
    22
    54
    55
    50
    29
    Firenze
    52
    38
    30
    29
    83
    Genova
    08
    62
    20
    69
    26
    Milano
    17
    45
    55
    67
    73
    Napoli
    64
    39
    35
    62
    02
    Palermo
    84
    33
    60
    43
    28
    Roma
    33
    79
    27
    41
    81
    Torino
    35
    58
    38
    70
    56
    Venezia
    64
    11
    07
    57
    27
    Nazionale
    53
    15
    38
    52
    66
    Estrazione Simbolotto
    Nazionale
    18
    24
    03
    21
    15
Indietro
Alto