Proposta statistica decine

[Debora73]

Ciao Lippo,
vediamo se ho capito,mostrandoti una decina trovata

E' giusto?
Grazie

 

[lippo]

Ciao Debora73
esatto, come vedi il ritardo 7 indica il ritardo attuale e quindi mancano 4 estrazioni al termine, poi R10 il penultimo ritardo, R9 il terzultimo , R8 ancora precedente ecc.ecc. quindi come puoi notare sugli ultimi 10 ritardi 7 sono superiori al ciclo naturale delle decine mentre solitamente è il contrario perchè su 10 ritardi mediamente 7 sono compresi nelle 11 estrazioni.
Lippo

Saluti

 

[Debora73]

Ciao Lippo,
ho fatto un pò di prove e devo dire che con ottimi risultati,
ecco un esempio
all'estrazione del 29/3

Al 3°c

Al 4°c

Ottimo!!

 

[Debora73]

...rileggendo meglio,forse ho sbagliato qualcosa,
il rit att era 10,quindi mancava 1 estrazione al termine,mentre il risultato si è avuto dopo 2 estrazioni alla chiusura del ciclo...[:I]

 

[lippo]

Ciao Debora73
mi permetto una precisazione: se aveva ritado 10 si doveva giocare per 2 estrazioni e non per 1 perchè la successiva faceva diventare il ritardo 11 ma poi affinchè si capiva se rimaneva 11 oppure diventava 12 si doveva giocare ancora una estrazione. Inoltre è molto restrittivo giocare solo per una estrazione perchè l'ambo lo si aspetta nel successivo ciclo di 11 estrazioni quindi io "filtro" le prime 6 ( non giocandole sapendo già che ne perderò parecchie perchè usciranno proprio nelle estrazioni 0-6) e gioco le ultime 6 azzardando ancora un pò le ultime 5 non so se sono stato chiaro.
Lippo

Saluti

 

[fillotto]

Una informazione tecnica: da che deriva il fatto che in certi post lo scritto vada molto a destra tanto che risulta molto antipatico leggerlo ? da che cosa deriva sto fatto?
Tutti i post di lippo hanno questa caratteristica.... qualcuno ne sa qualcosa ?....GRAZIEFill

 

[bergie]

lippo tuo studio sembra molto interessante, potresti postare le
2 decine che hai trovato, cosi vediamo meglio i tuoi parametri
per fare un pronostico.
ciao grazie.

 

[ROBLOT]

scusate il script non mi funziona

 

[lippo]

Ciao Bergie
le 2 decine sono queste:
58.87.26.55.84.23.52.81.20.49 (rit. attuale 7 )su Napoli
68.86.66.88.27.63.23.05.25.03 (rit. attuale 9 )su Cagliari
se fai girare lo script che ha preparato LuigiB su spaziometria
e inserisci i parametri di default per le prime 2 finestre e alla
3 finestra inserisci 7 vedrai che ti appariranno solo 4 decine su
3690 circa memoerizzate ma solo queste 2 hanno un ritado vicino a
11.Le altre 2 decine quelle di palermo e venezia le aspetteremo
quando arriveranno a ritardo 6 ( sperando che non usciranno prima)
per giocarle per 6 estrazioni con esito molto probabile.Queste 4 decine hanno un ritardo di ciclo pari a 7 molto
alto ma si possono giocare anche le decine ( anche novine, ottine
ecc. ma i parametri poi cambiano) che hanno ritardo di ciclo 6 impostando una opportuna progressione si gioca per 6 estrazioni e se non esce la si aspetta al 7° ciclo per giocarla per altre 6 estrazioni.
Spero di essere stato chiaro.
Lippo


Saluti

 

[lippo]

Ho dimenticato che la prima decina va giocata per 5 estrazione
mentre la seconda va giocata solo per 3 estrazioni.Approfitto
inoltre per dirvi che il 67% circa delle decine esce nel ritardo
compreso da 0 a 11 estrazioni e anche se sembra facile vincere
giocando una decina non lo è affatto perchè ho constatato che
a ogni estrazione delle 3700 circa decine che ho memeorizzato
solo 276 mediamente producono un ambo e 33 circa producono un
terno.
Lippo

Saluti

 

[bergie]

grazie lippo per aver esaudito la mia richiesta.

 

[LuigiB]

lippo non ho capito bene che ti serve , forse sapere quanti cicli consecutivi maggiori di 11 sono capitati per ciascuna combinazione ?

 

[lippo]

Ciao Luigi
voglio conoscere quale è stato per ogni formazione il ciclo più lungo
http://www.megaupload.com/?d=12DL96I4
scarica il file che ti inviato un esempio: sul foglio "decine" alla colonna D è riportato un esempio dei ritardi in ordine di data dal più vecchio al più recente di ritardi di una qualsiasi decina ( il primo numero è il rit. 9 poi ha dato l'ambo quando aveva ritardo 1 poi ancora l'ambo l'ha dato al ritardo 4 ecc.) come puoi notare sono evidenziati i ritardi maggiori di 11. In basso ho contato i quante volte si sono avuti i ritardi consecutivi di 2 ( uscite per 2 volte consecutive > di 11) poi di 3 ecc. e in fondo dalla cella D443 alla D449 di nota un ritardo di cicli di 7 che in questo caso è stato il massimo fatto registrare perchè tutti gli altri gruppi di ritardi > di 11 sono più piccoli .E' questo il valore che voglio conoscere: il ritardo consecutivo massimo che si è avuto per ogni formazione e se possibile anche contare quante volte sono usciti i ritardi di ciclo 2, 3 ecc.ecc. in modo da approfondire i miei studi. Ho provato ( foglio "verifica") a farlo a mano ma è infinito.
Spero di essere stato chiaro.
Lippo

Saluti

 

[claudio8]

quote:Originally posted by ROBLOT

scusate il script non mi funziona

Se non hai ancora risolto, prova a ricopiarlo totalment, cancellando nella pagina iniziale le 2 o 3 righe che appaiono alla sua apertura
ciao

Lo spot che conosciamo dice "Ti Piace vincere facile ? " che tradotto in pratica significa "Ti Piace..rebbe vincere facile !!!"

 

[claudio8]

quote:Originally posted by fillotto

Una informazione tecnica: da che deriva il fatto che in certi post lo scritto vada molto a destra tanto che risulta molto antipatico leggerlo ? da che cosa deriva sto fatto?
Tutti i post di lippo hanno questa caratteristica.... qualcuno ne sa qualcosa ?....GRAZIEFill

Deriva dal fatto che scrivendo nella finestrella del post, occorre dare l'invio a capo ogni 2 righe, aseconda di come è impostata la grandezza dllo schermo(in alto a sx della
finestrella).
Notte.

Lo spot che conosciamo dice "Ti Piace vincere facile ? " che tradotto in pratica significa "Ti Piace..rebbe vincere facile !!!"

 

[LuigiB]

ciao Lippo ho aggiunto la possibilita di vedere gli storici
fallo girare con lo stesso file csv che ti ho dato l'altra volta
perche io le prove le ho fatte con quello.

Option Explicit

Class clsCombinazione

	Public aNumeri ' numeri che compongono la combinazione
	Public aRitardi ' i ritardi negli ultimi cicli voluti dall'utente
	Public aRitardiGlob   ' ritardi globali della combinazione calcolati da 1 al maxRange
	Public aIdEstrRitardi ' contiene gli id delle estrazioni alle quali si è calcolato il ritardo
	Public nIdPrimoRitCons ' indice per l'array aRitardiGlob che indica il punto di inizio della serie consecutiva
	Public nIdUltimoRitCons' indice per l'array aRitardiGlob che indica il punto di fine  della serie consecutiva
	Public nSommaUltim5
	Public bUltimi5ritMaggDi11
	Public bRitCorrMinoreDi12
	Public Ruota
	Public nRitConsecutiviMax
	Public nIdEstrIni  ' id Estrazione da cui parrte la serie consecutiva storica
	Public nIdEstrFin ' id Estrazione in cui termina la serie consecutiva storica

	
	
	Sub SetNumeriFromRigaCsv(sRiga)
		Dim k
		ReDim aV(0)
		Call SplitByChar(sRiga,";",aV)
		ReDim aNumeri(10)
	
		For k = 1 To 10
			If IsNumeric(aV(k)) Then
				aNumeri(k) = CInt(aV(k))
			Else
			
				aNumeri(k) = 0
			End If
		Next
		
	End Sub
	Sub CalcolaTuttiRitardi(fine,Sorte,aRuote)
	
	
		
		
		Dim nCicli
		Dim nEstrFine
		
		Dim k
		Dim nMax
		
		
		nEstrFine = fine
		ReDim aRitardiGlob(nMax)
		ReDim aIdEstrRitardi (nMax)
		
		
		nCicli = 0
		
		Do
			nCicli = nCicli + 1
			If nCicli > nMax Then
				nMax = nMax + 100
				ReDim Preserve aRitardiGlob(nMax)
				ReDim Preserve aIdEstrRitardi(nMax)
			End If
			
			aRitardiGlob(nCicli) = RitardoCombinazione(aRuote,aNumeri,Sorte,nEstrFine)	
			aIdEstrRitardi(nCicli) = nEstrFine
			
	
			nEstrFine = nEstrFine - aRitardiGlob(nCicli) - 1
			
			If ScriptInterrotto Then Exit Do 
				
		Loop While nEstrFine > 0
		ReDim Preserve aRitardiGlob(nCicli)
		ReDim Preserve aIdEstrRitardi(nCicli)


	
		
	End Sub

	Sub CalcolaRitardi(fine,Sorte,aRuote,RitardoMinimo,CicliDiRitardo,UltimiRitardiDaConsiderare)
	
	
		
		Dim nCicli
		Dim k
		Dim nRitTrovati
		
		Call CalcolaTuttiRitardi(fine,Sorte,aRuote)
		Call GetRitardiConsecMaggioriDiX(RitardoMinimo)
		
		
		nCicli = CicliDiRitardo
		nRitTrovati = UBound(aRitardiGlob)
	
		ReDim aRitardi(CicliDiRitardo)
		
		
		
		
		For k = 1 To CicliDiRitardo
			
			If k <= nRitTrovati Then 	
				aRitardi(nCicli) = aRitardiGlob(k)
				nCicli = nCicli - 1
			Else
				Exit For
			End If
			If ScriptInterrotto Then Exit For 
				
		Next
	
		bUltimi5ritMaggDi11 = True
		For k =(CicliDiRitardo - UltimiRitardiDaConsiderare) To(CicliDiRitardo - 1)
			nSommaUltim5 = nSommaUltim5 +(aRitardi(k))
				
			If aRitardi(k) <= RitardoMinimo Then
				bUltimi5ritMaggDi11 = False
				
			End If
		Next
		
		If aRitardi(CicliDiRitardo) <= RitardoMinimo Then
			bRitCorrMinoreDi12 = True
		Else
			bRitCorrMinoreDi12 = False
		End If
	End Sub
	
	
	Sub GetRitardiConsecMaggioriDiX(RitardoMinimo)
		
		Dim k
		Dim nConsec
		Dim nConsecMax
		Dim nIdEstrA,nIdEstrB 
		Dim nIdRitA,nIdRitB 
		Dim nIdEstrATmp,nIdEstrBTmp 
		Dim nIdRitATmp,nIdRitBTmp 
		

		
		 
		
		For k = UBound(aRitardiGlob) To 1 Step -1
			
			If aRitardiGlob(k) > RitardoMinimo Then 
				nIdEstrATmp = aIdEstrRitardi (k)
				nIdRitATmp = k 
				nConsec =0
				Do While aRitardiGlob(k) > RitardoMinimo
					nConsec = nConsec +1
					nIdEstrBTmp = aIdEstrRitardi (k)
					nIdRitBTmp = k 
					k = k -1
					If k <=0 Then Exit Do 
				Loop
				
				If nConsec > nConsecMax Then
				
					nConsecMax = nConsec 
					nIdEstrA =nIdEstrATmp 
					nIdEstrB =nIdEstrBTmp 
					nIdRitA =nIdRitATmp 
					nIdRitB =nIdRitBTmp   
				End If 
				
				k = k + 1 
			End If
			If ScriptInterrotto Then Exit For 
				
		Next
		
		
	
		nRitConsecutiviMax = nConsecMax
		nIdEstrIni = nIdEstrB
		nIdEstrFin = nIdEstrA
		
		nIdPrimoRi

 

[ROBLOT]

questo e errore che mi da dove sbaglio
Call clsDecina.CalcolaRitardi(fine,Sorte,aRuote,RitardoMinimo,CicliDiRitardo,UltimiRitardiDaConsiderare)

 

[stef]

Ciao Luigi, dal mio punto di vista, questo tipo di ricerca andrebbe inserita nel programma spaziometria, con la possibilità di poter scegliere di quanti numeri deve essere composta la formazione (3/4/5 etc. numeri) ed il relativo ciclo di sortita.

Aggiungerei anche il numero di ritardi consecutivi che abbiano superato il ciclo di sortita e, in base a questo numero, effettuare l'ordinamento.

Ciao e grazie per quello che fai.

 

[LuigiB]

Ciao Stef gli script dovrebbero servire anche ad ampliare
le possibilità di ricerca del programma senza dover
modificare il programma stesso ..come mai dici di volerlo mettere
nel programma ? forse per questioni di velocità di ricerca ?

 

[claudio8]

x Luigi
L'ultimo script da errore alla riga 382, occorre spostare la parentesi.

aValori(idCol) = clsDecina.aRitardiGlob(idRit )

sostituire con

aValori(idCol) = clsDecina.aRitardiGlob(idRit)

Lo spot che conosciamo dice "Ti Piace vincere facile ? " che tradotto in pratica significa "Ti Piace..rebbe vincere facile !!!"