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
    venerdì 25 luglio 2025
    Bari
    53
    75
    06
    08
    43
    Cagliari
    62
    52
    59
    55
    72
    Firenze
    54
    13
    56
    14
    62
    Genova
    07
    84
    21
    58
    20
    Milano
    27
    28
    62
    61
    04
    Napoli
    16
    43
    31
    68
    50
    Palermo
    72
    34
    60
    40
    66
    Roma
    46
    72
    66
    36
    11
    Torino
    77
    29
    23
    11
    48
    Venezia
    24
    77
    41
    48
    21
    Nazionale
    70
    83
    17
    40
    71
    Estrazione Simbolotto
    Nazionale
    09
    13
    05
    38
    03

Ultimi Messaggi

Indietro
Alto