Novità

Caldi, Freddi o Casuali?

Rosanna

Super Member >PLATINUM<
Condivido questo listato che ho costruito con l'intento di verificare (=curiosare... ) gli esiti in un solo colpo di numeri
- caldi (superfrequenti)
- numeri freddi
che risultano tali in un dato ciclo (a scelta).

E' ovvio che:
- per poter fare un confronto sono stati filtrati solo i casi con numeri uguali (tra caldi e freddi)
- va trovato il giusto mix di parametri (ciclo, frequenza dei numeri caldi) per avere un numeri di casi significativo
- il numero di caldi e freddi trovati varia da ciclo a ciclo

Accanto a questi ho aggiunto per un mio sfizio, una serie di numeri totalmente presi a caso, naturalmente mentre gli esiti di caldi e freddi restano immutati (a parità di ruota) quelli dei numeri casuali cambiano ad ogni esecuzione dello script.

Ciao
Codice:
Option Explicit
Sub Main
'0904_27 Rosanna Caldi e Freddi.ls

' Ricerca su cicli di n estrazioni i casi in cui vi siano pari numeri freddi(=freq zero)
' e caldi (freq > n) e ne verifica la sortita per un colpo.
' Parimenti verifica la sortita sempre per un colpo, di altrettanti numeri casuali.
'http://forum.lottoced.com/f12/caldi-freddi-o-casuali-107981/#post1206582

Dim ini,ini1,fin,es,ciclo,nFreq,i,x,nTrovati
Dim bRipetuti
Dim kCaldi,kFreddi,kCasi,kEPosCaldi,kEPosFreddi,kEPosCasuali 
Dim aRuota(1),aNum(1)
Dim sCaldiSortiti,sFreddiSortiti,sCasualiSortiti
ReDim aFreq(90),aCaldi(0),aFreddi(0),aCasuali(0)

aRuota(1) = CInt(InputBox(" Scegli la ruota di ricerca ",,"1"))
ciclo = 41 : ciclo = ciclo - 1 ' durata del ciclo di ricerca ripetuti. Non togliere il -1!
nFreq=4' <== QUI IMPOSTO LA FREQUENZA da superare per selezionare i NUMERI CALDI
ini = 3959
fin = EstrazioneFin

For es = ini To fin
	Messaggio es
	Call AvanzamentoElab(ini,fin,es)
	ini1 = es - ciclo ' calcolo l'inizio di ogni nuovo ciclo rispetto ad ogni es analizzata
	
	kCaldi = 0 : kFreddi = 0 'ad ogni nuovo ciclo azzero i contatori
	ReDim aCaldi(0),aFreddi(0),aCasuali(0) ' e riazzero gli array prima di ogni ciclo	
	
	For i = 1 To 90 ' verifico la frequenza dei 90 numeri su ogni ciclo
		aNum(1) = i
		If SerieFreqTurbo(ini1,es,aNum,aRuota,1) > nFreq Then 
			kCaldi = kCaldi + 1
			ReDim Preserve aCaldi(kCaldi)
			aCaldi(kCaldi) = i
			Else If SerieFreqTurbo(ini1,es,aNum,aRuota,1) = 0 Then
				kFreddi = kFreddi + 1
				ReDim Preserve aFreddi(kFreddi)
				aFreddi(kFreddi) = i
			End If
		End If
	Next
	
	
	If kCaldi > 0 And kFreddi > 0 And kCaldi = kFreddi Then
		kCasi = kCasi + 1
		
		ReDim aCasuali(kCaldi)
		nTrovati=0
		Do While nTrovati < kCaldi ' genero lo stesso numero di numeri casuali 
			x=NumeroCasuale(1,90)
			bRipetuti=False
			For i= 1 To kCaldi
				If x = aCasuali(i) Then bRipetuti=True
			Next		
				 
			If bRipetuti= False Then
				nTrovati=nTrovati+1
				aCasuali(nTrovati)=x
			End If			
		Loop		
		Call OrdinaMatrice(aCasuali,1)
		
		Call ColoreTesto(1)
		Call Scrivi
		Call Scrivi(String(60,"-"))
		Call Scrivi("Ricerca su " & SiglaRuota(aRuota(1)) & " ciclo di " & ciclo + 1 & " estrazioni (" & ini1 & "-" & es & ") - " & kCasi & "°",1)
		Call Scrivi(kCaldi & " Numeri Caldi: " & StringaNumeri(aCaldi),1)
		Call Scrivi(kFreddi & " NumeriFreddi: " & StringaNumeri(aFreddi),1)
		Call Scrivi(nTrovati & " NumeriCasuali: " & StringaNumeri(aCasuali),1)

		Call Scrivi
		Call ColoreTesto(0)
		sCaldiSortiti =(es + 1) & ": "
		
		For i = 1 To kCaldi
			If Posizione(es + 1,aRuota(1),aCaldi(i)) > 0 Then
				kEPosCaldi = kEPosCaldi + 1
				sCaldiSortiti = sCaldiSortiti & " " & Format2(aCaldi(i))
			End If
		Next
		sFreddiSortiti =(es + 1) & ": "

		For i = 1 To kFreddi
			If Posizione(es + 1,aRuota(1),aFreddi(i)) > 0 Then
				kEPosFreddi = kEPosFreddi + 1
				sFreddiSortiti = sFreddiSortiti & " " & Format2(aFreddi(i))
			End If
		Next
		
		sCasualiSortiti =(es + 1) & ": "

		For i = 1 To nTrovati
			If Posizione(es + 1,aRuota(1),aCasuali(i)) > 0 Then
				kEPosCasuali = kEPosCasuali + 1
				sCasualiSortiti = sCasualiSortiti & " " & Format2(aCasuali(i))
			End If
		Next

		Call Scrivi ("Esiti + Caldi (Freq > "&nFreq&") " & sCaldiSortiti)
		Call Scrivi ("Esiti +Freddi (Freq = 0) " & sFreddiSortiti)
		Call Scrivi ("Esiti + Numeri - Casuali " & sCasualiSortiti)
	End If
	If ScriptInterrotto Then Exit For		
Next
Call ColoreTesto(2)
Call Scrivi
Call Scrivi ("TOT esiti+ Num Caldi " & kEPosCaldi)
Call Scrivi ("TOT esiti+ Num Freddi " & kEPosFreddi)
Call Scrivi ("TOT esiti+ Num Casuali " & kEPosCasuali)

End Sub
 
Ultima modifica:
E' ovvio che:
- per poter fare un confronto sono stati filtrati solo i casi con numeri uguali (tra caldi e freddi)
- va trovato il giusto mix di parametri (ciclo, frequenza dei numeri caldi) per avere un numeri di casi significativo

se imposti ciclo=1 equivale a cercare i numeri in una sola cinquina.
 
Ciao Alien,
i numeri caldi e freddi sono già "reali" secondo questi criteri:

caldi=superfrequenti nel ciclo scelto, con freq indicata da chi utilizza il listato
freddi=zero sortite nel ciclo scelto

Dal mio punto di vista, anche i "casuali" elaborati dal pc sono reali...altrochè se lo sono... ma per eventuali altri "reali" spiega tu cosa intendi... :rolleyes:
 
Ciao Rossana,
perdonami ma credevo che avevi inserito tu i numeri casuali,trovato questi numeri caldi il prosimo passo come si fa per arrivare al banco?......:p

Ciao ALIEN

ma si può memorizzare la posizione dei numeri usciti?
es:numeri caldi in 4°posizione esce il 26 numeri freddi esce in 3°posizione esce il 18 in 6°posizione,numeri casuali, esce il numero 47,adesso si deve momorizzare solo le posizioni 4°,3° e 6°-.poi quali sono le posizioni maggiori?
grazie.


ma al posto delle estrazioni dal n°al n° non si può mettere la data?
 
Ultima modifica:
Ciao Ro , bellissimo lavoro , grazie , sei eccellente , non ti smentisci mai.:)

Buona serata.
 
Ciao Rossana,
perdonami ma credevo che avevi inserito tu i numeri casuali,trovato questi numeri caldi il prosimo passo come si fa per arrivare al banco?......:p

Ciao Alien,
ah capito... in effetti non sono stata chiarissima nell'esposizione. Preciso bene che i numeri casuali sono elaborati da lottoscript ad ogni estrazione.
Sono una sorta di testimone... di prova del nove... Se le teorie dei numeri caldi e freddi (per cui i primi essendo caldi dovrebbero continuare a sortire e i secondi
essendo freddi dovrebbero compensarsi sortendo...) quelli totalmente sparati a caso dovrebbero sortire di meno altrimenti se su così poche prove (qualche centinaio) già vedo che più o meno si equivalgono, a me tapina razionale, viene da pensare che i numeri siano equiprobabili....e non influenzati dalle situazioni di sortita passate poichè le estrazioni sono indipendenti. Se questo script potesse girare su trilioni di estrazioni....lo mostrerebbe ancora di più.

ma si può memorizzare la posizione dei numeri usciti?
es:numeri caldi in 4°posizione esce il 26 numeri freddi esce in 3°posizione esce il 18 in 6°posizione,numeri casuali, esce il numero 47,adesso si deve momorizzare solo le posizioni 4°,3° e 6°-.poi quali sono le posizioni maggiori?
grazie.

Se intendi posizioni di sortita (1° estratto, 2°e stratto etc...) si certo... ma non capisco perchè scrivi 6°? quindi non credo di aver capito la domanda...

ma al posto delle estrazioni dal n°al n° non si può mettere la data?

sì... nella riga

Codice:
Call Scrivi("Ricerca su " & SiglaRuota(aRuota(1)) & " ciclo di " & ciclo + 1 & " estrazioni (" & ini1 & "-" & es & ") - " & kCasi & "°",1)

sostituisci
(" & ini1 & "-" & es & ") con

(" & Dataestrazione(ini1) & "-" & Dataestrazione(es) & ")

Rosanna :o
 
Ciao Ro , bellissimo lavoro , grazie , sei eccellente , non ti smentisci mai.:)

Buona serata.

Grazie Mauro. E' solo un piccolo esempio di ricerca... e sfida ad Adamino o a Freet (Adamino è di LD, Freet e di SpazioMetria) Quasi sempre perdo io...
Buona serata anche a te.
 
Ciao Rossana,vedi in gioco si sono caldi,freddi e casual per ogni gruppo ci sono vari numeri giusto?che vARIANO DA 5A 8/12 NUMERI.
bene,nei numeri caldi esce il 38(asp....sopra metti i numeri in crescendo 1-2-3-4-5-6-7-8-9-10- ecc sotto metti i numeri reali.

01 02 03 04 05 06° 07 08 09
04 07 12 18 32 38 44 45 47

in questo caso esce il 38 ed è...in..................6°posizione nei numeri caldi la stessa cosa va fatta per i numeri fredi e casul..............si devono memorizzare le posizioni ok...ci siamo?
poi vedere le massime frequenze dei numeri di posizioni....ok?

grazie ALIEN


ma si può riscrivere lo script..........?
 
Ultima modifica:
Ciao Allen

ok capito... tecnicamente si può fare ma non ha molto senso perchè essendo i numeri, in numero variabile, le posizioni più alte (e più rare)
saranno automaticamente meno positive....
 
Ciao Rosanna

grazie dello script ,volevo essendo profano nella loro realizzazione ,chiederti se possibile far si che lo script oltre alla Scelta Ruota,mi chiedesse il n.cicli ossia tu x default hai messo 41 ma senza stare ad entrare nel linguaggio ,potresti inserire anche un secondo input box?

grazie
 
Aggiunto inputbox per ciclo e frequenza dei numeri caldi
Ciao

Codice:
Option Explicit
Sub Main
'0904_27 Rosanna Caldi e Freddi.ls

' Ricerca su cicli di n estrazioni i casi in cui vi siano pari numeri freddi(=freq zero)
' e caldi (freq > n) e ne verifica la sortita per un colpo.
' Parimenti verifica la sortita sempre per un colpo, di altrettanti numeri casuali.

Dim ini,ini1,fin,es,ciclo,nFreq,i,x,nTrovati
Dim bRipetuti
Dim kCaldi,kFreddi,kCasi,kEPosCaldi,kEPosFreddi,kEPosCasuali
Dim aRuota(1),aNum(1)
Dim sCaldiSortiti,sFreddiSortiti,sCasualiSortiti
ReDim aFreq(90),aCaldi(0),aFreddi(0),aCasuali(0)

aRuota(1) = CInt(InputBox(" Scegli la ruota di ricerca ",,"1"))
ciclo = CInt(InputBox(" Scegli la durata del ciclo ",,"41")) ' durata del ciclo di ricerca ripetuti.
nFreq = CInt(InputBox(" Per i numeri caldi la frequenza deve essere maggiore di? ",,"4"))

ciclo = ciclo - 1 ' Non togliere il -1!
ini = 3959
fin = EstrazioneFin

For es = ini To fin
	Messaggio es
	Call AvanzamentoElab(ini,fin,es)
	ini1 = es - ciclo ' calcolo l'inizio di ogni nuovo ciclo rispetto ad ogni es analizzata
	
	kCaldi = 0 : kFreddi = 0 'ad ogni nuovo ciclo azzero i contatori
	ReDim aCaldi(0),aFreddi(0),aCasuali(0) ' e riazzero gli array prima di ogni ciclo	
	
	For i = 1 To 90 ' verifico la frequenza dei 90 numeri su ogni ciclo
		aNum(1) = i
		If SerieFreqTurbo(ini1,es,aNum,aRuota,1) > nFreq Then
			kCaldi = kCaldi + 1
			ReDim Preserve aCaldi(kCaldi)
			aCaldi(kCaldi) = i
			Else If SerieFreqTurbo(ini1,es,aNum,aRuota,1) = 0 Then
				kFreddi = kFreddi + 1
				ReDim Preserve aFreddi(kFreddi)
				aFreddi(kFreddi) = i
			End If
		End If
	Next
	
	
	If kCaldi > 0 And kFreddi > 0 And kCaldi = kFreddi Then
		kCasi = kCasi + 1
		
		ReDim aCasuali(kCaldi)
		nTrovati = 0
		Do While nTrovati < kCaldi ' genero lo stesso numero di numeri casuali
			x = NumeroCasuale(1,90)
			bRipetuti = False
			For i = 1 To kCaldi
				If x = aCasuali(i) Then bRipetuti = True
			Next		
				
			If bRipetuti = False Then
				nTrovati = nTrovati + 1
				aCasuali(nTrovati) = x
			End If			
		Loop		
		Call OrdinaMatrice(aCasuali,1)
		
		Call ColoreTesto(1)
		Call Scrivi
		Call Scrivi(String(60,"-"))
		Call Scrivi("Ricerca su " & SiglaRuota(aRuota(1)) & " ciclo di " & ciclo + 1 & " estrazioni (" & ini1 & "-" & es & ") - " & kCasi & "°",1)
		Call Scrivi(kCaldi & " Numeri Caldi: " & StringaNumeri(aCaldi),1)
		Call Scrivi(kFreddi & " NumeriFreddi: " & StringaNumeri(aFreddi),1)
		Call Scrivi(nTrovati & " NumeriCasuali: " & StringaNumeri(aCasuali),1)

		Call Scrivi
		Call ColoreTesto(0)
		sCaldiSortiti =(es + 1) & ": "
		
		For i = 1 To kCaldi
			If Posizione(es + 1,aRuota(1),aCaldi(i)) > 0 Then
				kEPosCaldi = kEPosCaldi + 1
				sCaldiSortiti = sCaldiSortiti & " " & Format2(aCaldi(i))
			End If
		Next
		sFreddiSortiti =(es + 1) & ": "

		For i = 1 To kFreddi
			If Posizione(es + 1,aRuota(1),aFreddi(i)) > 0 Then
				kEPosFreddi = kEPosFreddi + 1
				sFreddiSortiti = sFreddiSortiti & " " & Format2(aFreddi(i))
			End If
		Next
		
		sCasualiSortiti =(es + 1) & ": "

		For i = 1 To nTrovati
			If Posizione(es + 1,aRuota(1),aCasuali(i)) > 0 Then
				kEPosCasuali = kEPosCasuali + 1
				sCasualiSortiti = sCasualiSortiti & " " & Format2(aCasuali(i))
			End If
		Next

		Call Scrivi("Esiti + Caldi (Freq > " & nFreq & ") " & sCaldiSortiti)
		Call Scrivi("Esiti +Freddi (Freq = 0) " & sFreddiSortiti)
		Call Scrivi("Esiti + Numeri - Casuali " & sCasualiSortiti)
	End If
	If ScriptInterrotto Then Exit For		
Next
Call ColoreTesto(2)
Call Scrivi
Call Scrivi("TOT esiti+ Num Caldi " & kEPosCaldi)
Call Scrivi("TOT esiti+ Num Freddi " & kEPosFreddi)
Call Scrivi("TOT esiti+ Num Casuali " & kEPosCasuali)

End Sub
 
Ultima modifica:
grazie mille Rosanna

scusami ,ho impostato 18 in cicli,e Maggiore di 3 la freq,come mai non mi restituisce nulla?
Un'ultima cosa: i num casuali su cosa si basano? non l'ho capito ancora

grazie
 
Ultima modifica:
grazie mille Rosanna

scusami ,ho impostato 18 in cicli,e Maggiore di 3 la freq,come mai non mi restituisce nulla?
Un'ultima cosa: i num casuali su cosa si basano? non l'ho capito ancora

grazie

1) Con quei parametri non restituisce nulla poichè lo script cerca le condizioni in cui nel ciclo scelto (per durata) vi sia stesso numero di numeri freddi (non sortiti) e di numeri caldi (per la frequenza scelta).
In un ciclo di 18 estrazioni avrai tanti numeri non sortiti (freddi) e pochissimi con frequenza maggiore di 3. Quindi tutti casi non validi per l'obiettivo dato.

Non a caso ho scritto ad inizio di discussione che per questo listato occorre trovare la giusta combinazione di durata ciclo e frequenze per avere un numero di casi adeguato.
Dovete giocarci un po'... Se riducete la durata del ciclo dovete anche ridurre la frequenza...

Ovviamente ci sono infinite possibilità di costruzione di script... io ne ho scelta una per un ghiribizzo personale (volevo appunto mettere a confronto due teorie contrapposte)

2) Ad ogni caso valido, c'è una istruzione (numerocasuale) che crea tanti numeri casuali (non ripetuti tra 1 e 90) quanti sono quelli caldi/freddi trovati.

Cito dalla guida di SpazioScript di Spaziometria
Codice:
NumeroCasuale
NumeroCasuale(LimiteInferiore, LimiteSuperiore) As Integer
Note: Genera un numero casuale all'interno di un dato intervallo

ciao
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 31 gennaio 2025
    Bari
    49
    28
    64
    42
    46
    Cagliari
    53
    76
    89
    26
    13
    Firenze
    38
    51
    15
    50
    56
    Genova
    87
    09
    35
    30
    04
    Milano
    53
    25
    23
    09
    37
    Napoli
    01
    65
    38
    06
    15
    Palermo
    05
    07
    10
    26
    58
    Roma
    32
    31
    09
    46
    80
    Torino
    68
    20
    44
    51
    11
    Venezia
    90
    24
    62
    54
    61
    Nazionale
    20
    79
    07
    45
    60
    Estrazione Simbolotto
    Bari
    45
    37
    01
    41
    17
Indietro
Alto