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
- 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: