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
    giovedì 24 luglio 2025
    Bari
    71
    27
    87
    61
    39
    Cagliari
    69
    17
    79
    09
    04
    Firenze
    32
    13
    25
    58
    22
    Genova
    24
    41
    61
    66
    16
    Milano
    55
    59
    33
    80
    38
    Napoli
    18
    52
    32
    12
    72
    Palermo
    49
    77
    78
    90
    60
    Roma
    35
    04
    30
    02
    44
    Torino
    19
    79
    56
    77
    26
    Venezia
    82
    59
    68
    24
    21
    Nazionale
    81
    32
    19
    60
    38
    Estrazione Simbolotto
    Nazionale
    32
    07
    29
    37
    28
Indietro
Alto