Per Mike 58

Serpico 90 · 1 Ottobre 2014

Salve,cortesemente possiamo creare uno script sulla legge del terzo?.
Che mi dia la possiblità di verificare su ruota unica e su 10 numeri da me inseriti quale numero, sempre in funzione della legge del terzo ,sia piu prevedibile all'uscita.
Se per caso ne sei già in possesso ,se ti va, potresti postarlo?

Conoscendo la tua disponibilità ,sono in attesa di una gradita risposta.
Grazie
Saluti
Serpico 90

Mike58 · 1 Ottobre 2014

Ciao Serpico, mi pare che in passato abbiamo provato a fare qualcosa di simile, però non sono sicuro.
prova questo e vedi se risponde alle aspettative.

Ciao

Codice:

Sub Main
	'est = InputBox("QUANTE ESTRAZIONI ANALIZZO",,54)
	Dim Nu(90,12),kk(3)
	Ini = EstrazioneFin - 54 : Fin = EstrazioneFin
	Tot = fin - Ini
	Scrivi"Analisi dei Numeri Estratti su un range di " & Tot & " **** Script By Mike58 **** forum LottoCed ****  Legge del Terzo(Simulazione) **** ",True,True,2,4,2
	Scrivi
	For Es = Ini To fin
		For R = 1 To 12 : If R = 11 Then R = 12
			For P = 1 To 5
				E = Estratto(Es,R,P) : Nu(E,R) = True
			Next
		Next
	Next
	Scrivi "Numeri Presenti Totali.....................",1
	For R = 1 To 12 : If R = 11 Then R = 12
		Scrivi SiglaRuota(R) & " ",1,0,,2
		For E = 1 To 90
			If EstrattoFrequenza(r,e,Ini,fin) > 0 Then
				k = k + 1
				Scrivi Format2(E) & " ",0,0
			Else
				Scrivi ".. ",0,0
			End If
		Next
		Scrivi " conta " & k,0,0
		Scrivi " " & SiglaRuota(R) & " ",1,0,,2
		k = 0
		Scrivi
	Next
	Scrivi
	Scrivi "Numeri Assenti Totali....................",1
	For R = 1 To 12 : If R = 11 Then R = 12
		Scrivi SiglaRuota(R) & " ",1,0,,1
		For E = 1 To 90
			If EstrattoFrequenza(r,e,Ini,fin) = 0 Then
				k = k + 1
				Scrivi Format2(E) & " ",True,False,,2,3
			End If
		Next
		Scrivi "(" & k & ")",1,0,,1,3
		k = 0
		Scrivi
	Next
	Scrivi
	Scrivi "Numeri Assenti ciclo 01-18....................",1
	For R = 1 To 12 : If R = 11 Then R = 12
		Scrivi SiglaRuota(R) & " ",1,0,,1
		For E = 1 To 90
			If EstrattoFrequenza(r,e,fin - 18,fin) = 0 Then
				k1 = k1 + 1
				Scrivi Format2(E) & " ",1,0
			End If
		Next
		Scrivi "(" & k1 & ")",1,0,,1,3
		kk(1) = k1
		k1 = 0
		Scrivi
	Next
	Scrivi
	Scrivi "Numeri Assenti ciclo 01-36....................",1
	For R = 1 To 12 : If R = 11 Then R = 12
		Scrivi SiglaRuota(R) & " ",1,0,,1
		For E = 1 To 90
			If EstrattoFrequenza(r,e,fin - 36,fin) = 0 Then
				k2 = k2 + 1
				Scrivi Format2(E) & " ",1,0
			End If
		Next
		Scrivi "(" & k2 & ")",1,0,,1,3
		kk(2) = k2
		k2 = 0
		Scrivi
	Next
	Scrivi
	Scrivi
	Scrivi "Numeri Assenti ciclo 01-54....................",1
	For R = 1 To 12 : If R = 11 Then R = 12
		Scrivi SiglaRuota(R) & " ",1,0,,1
		For E = 1 To 90
			If EstrattoFrequenza(r,e,fin - 54,fin) = 0 Then
				k3 = k3 + 1
				Scrivi Format2(E) & " ",1,0
			End If
		Next
		Scrivi "(" & k3 & ")",1,0,,1,3
		kk(3) = k3
		k3 = 0
		Scrivi
	Next
	Scrivi
	Scrivi"--------------------------------"
	Scrivi "Assenze per ciclo di 18 estrazioni"
	Scrivi
	For R = 1 To 12 : If R = 11 Then R = 12
		Scrivi SiglaRuota(R) & " ",1,0,,1,3
		For E = 1 To 90
			If EstrattoFrequenza(r,e,fin - 54,fin) = 0 Then
				k4 = k4 + 1
			End If
			
			If EstrattoFrequenza(r,e,fin - 36,fin) = 0 Then
				k5 = k5 + 1
			End If
			
			If EstrattoFrequenza(r,e,fin - 18,fin) = 0 Then
				k6 = k6 + 1
			End If
		Next
		Scrivi Format2(k6) & "." & Format2(k5) & "." & Format2(k4),1,0,,7,3
		k4 = 0
		k5 = 0
		k6 = 0
		Scrivi
	Next
End Sub

Dopo Provo con il personalizzato su ruota e scelta numeri.

Serpico 90 · 1 Ottobre 2014

Ciao Mike ,in passato hai creato altro tipo di script, era per altro tipo di ricerca.
Questo che hai postato e si per la ricerca del terzo,ma io desidero altro tipo di script se è possibile.
Mi spiego: estrazione 103 e 104 ruota di BARI questi i numeri: 26-59-76-51-19--25-23-50-68-70--
In autopt inserisco i dieci numeri
Inserisco la ruota
Con eventuale formula(che io non conosco e non sono capace a costruire) lo script andrebbe a creare una classifica di quale numero in funzione della legge del terzo potrebbe essere prevedibile all'uscita.

Grazie se puoi
Saluti
Serpico

Mike58 · 1 Ottobre 2014

Si !!! dopo cerco di capire meglio come si può fare.

Ciao

Mike58 · 1 Ottobre 2014

Ciao Serpico, diversamente non riesco, prova a simularlo con i numeri scelti per cicli voluti e su ruota scelta.

Codice:

Sub Main
'CICLICITA'
r = InputBox("QUALE RUOTA",,1)
fc = CInt(InputBox("FREQUENZE PER CICLO => a ?",,1))

periodo = InputBox("Lunghezza periodo",,30)
periodi = InputBox("quanti cicli",,3)
aa = Int(fc*periodi)
ft = CInt(InputBox("FREQUENZE TOTALI",,aa))

Scrivi "Frequenze per cicli " & fc,1
Scrivi "Frequenze Totali    " & ft,1
	
	Tot = periodo * periodi
	Ini = EstrazioneFin - Tot
	fin = EstrazioneFin
	Iz = EstrazioneFin - Tot
	fn = EstrazioneFin
	Scrivi "Lunghezza ciclo     " & periodo,1
	Scrivi "Quantità cicli      " & periodi,1
	Scrivi "Ruota di   :        " & NomeRuota(r),1,1,2,4,2
	Scrivi
	ReDim nu(1)
	ScegliNumeri(nu)
	For es = Ini To fin Step periodo
		ess = es + periodo
		For x = 1 To UBound(nu)
			sf = EstrattoFrequenza(r,x,es + 1,ess)
			
			sr = EstrattoRitardo(r,x,es+1,fin)
			If sf >= fc Then
			k = k + 1
				riga = riga & Format2(x) & " "
				rigo = rigo & Format2(sf) & " "
				rita = rita & Format2(sr) & " "
				Nulla = String(40,"-")
			End If
			
		Next
		Scrivi es + 1,1,0
		Scrivi " - " & ess & "  ",1,0
		Scrivi riga & " [ " & k & " ] ",1,1,,2,2
		Scrivi "Frequenze    " & rigo,1,1,,1,2
		Scrivi "Ritardo      " & rita,1,1,,7,2
		Scrivi Nulla
		riga = ""
		rigo = ""
		rita = ""
		k = 0
	Next
	Scrivi "Riepilogo Numeri frequenti su " & periodo*periodi & " Estrazioni ",1
	Scrivi String(40,"=")
	For xx = 1 To UBound(nu)
		sft = EstrattoFrequenza(r,xx,Iz,fn)
		srt = EstrattoRitardo(r,xx,iz,fn)
		If sft >= ft Then
		kk = kk + 1
			rigaT = rigaT & Format2(xx) & " "
			rigaF = rigaF & Format2(sft) & " "
			rigaR = rigaR & Format2(srt) & " "
		End If
	Next
	Scrivi "Numeri...   " & rigaT & " [ " & kk & " ] ",1,1,,2,3
	Scrivi "Frequenze   " & rigaf,1,1,,1,3
	Scrivi "Ritardo     " & rigaR,1,1,,7,3
	rigaT = ""
	rigaF = ""
	rigaR = ""
	kk = 0
End Sub

Il tempo e la concentrazione non mi permettono di fare meglio o esattamente quello che vuoi ottenere.

Ciao

Serpico 90 · 1 Ottobre 2014

Ciao,Mike ,quando inserisco i numeri per la ricerca,non mi da i numeri richiesti ma solo 1.2.3.4.5.6.7.8.9.10
devo fare qualcosa ?
Ciao

i legend · 1 Ottobre 2014

Buon giorno a tutti,
ho provato lo script con 90 numeri funziona. non ho verificato i risultati ma lo script gira.
Cordiali saluti
I Legend

Serpico 90 · 1 Ottobre 2014

Ciao i legend, prova ad inserire solo 10 numeri,possibilmente dell'ultima e penyultima estrazione ruota di bari.
Vediamo cosa succede.
Grazie
Saluti
Serpico

Mike58 · 1 Ottobre 2014

Ciao Raga, effettivamente scriveva i numeri per Q.tà, mi spiace ma sono andato in tilt (ho poca testa e poco tempo).
Accontentatevi, se trovo di meglio e con un po' di concentrazione in più vedrò quello se posso fare di meglio. (Capita)

Codice:

Sub Main
'CICLICITA'
r = InputBox("QUALE RUOTA",,1)
fc = CInt(InputBox("FREQUENZE PER CICLO => a ?",,1))

periodo = InputBox("Lunghezza periodo",,18)
periodi = InputBox("quanti cicli",,5)
aa = Int(fc*periodi)
ft = CInt(InputBox("FREQUENZE TOTALI",,aa))

Scrivi "Frequenze per cicli  " & fc,1
Scrivi "Frequenze Totali     " & ft,1
Scrivi "Frequenza x cicli => " & 1
	
	Tot = periodo * periodi
	Ini = EstrazioneFin - Tot
	fin = EstrazioneFin
	Iz = EstrazioneFin - Tot
	fn = EstrazioneFin
	Scrivi "Lunghezza ciclo     " & periodo,1
	Scrivi "Quantità cicli      " & periodi,1
	Scrivi "Ruota di   :        " & NomeRuota(r),1,1,2,4,2
	Scrivi
	ReDim nu(1)
	ScegliNumeri(nu)
	Scrivi"Numeri scelti..." & StringaNumeri(nu),1,1,,1,3
	Scrivi 
	For es = Ini To fin Step periodo
		ess = es + periodo
		For x = 1 To UBound(nu)
			sf = EstrattoFrequenza(r,nu(x),es + 1,ess)
			
			sr = EstrattoRitardo(r,nu(x),Ini,fin)
			'If sf >= fc Then
			k = k + 1
				riga = StringaNumeri(nu) 'riga & Format2(x) & " "
				rigo = rigo & Format2(sf) & " "
				rita = rita & Format2(sr) & " "
				Nulla = String(40,"-")
			'End If
			
		Next
		Scrivi es + 1,1,0
		Scrivi " - " & ess & "  ",1,0
		Scrivi riga & " [ " & k & " ] ",1,1,,2,2
		Scrivi "Frequenze    " & rigo,1,1,,1,2
		Scrivi "Ritardo      " & rita,1,1,,7,2
		Scrivi Nulla
		riga = ""
		rigo = ""
		rita = ""
		k = 0
	Next
	Scrivi "Riepilogo Numeri frequenti su " & periodo*periodi & " Estrazioni ",1
	Scrivi String(40,"=")
	For xx = 1 To UBound(nu)
		sft = EstrattoFrequenza(r,nu(xx),Ini,fin)
		srt = EstrattoRitardo(r,nu(xx),Ini,fin)
		'If sft >= ft Then
		kk = kk + 1
			rigaT = StringaNumeri(nu) 'rigaT & Format2(xx) & " "
			rigaF = rigaF & Format2(sft) & " "
			rigaR = rigaR & Format2(srt) & " "
		'End If
	Next
	Scrivi "Numeri...   " & rigaT & " [ " & kk & " ] ",1,1,,2,3
	Scrivi "Frequenze   " & rigaf,1,1,,1,3
	Scrivi "Ritardo     " & rigaR,1,1,,7,3
	rigaT = ""
	rigaF = ""
	rigaR = ""
	kk = 0
End Sub

i legend · 1 Ottobre 2014

Ciao Mike,

,Forse il tempo è poco, ma la testa è tanta.
Ciao Serpico, chiedo scusa , avendo evidenziato tutti 90 i numeri a me sembrava corretto.
Cordiali saluti
I Legend

Serpico 90 · 1 Ottobre 2014

Grazie Mike,come al solito sempre disponibile ,ora ci lavorerò, e speriamo che possa aiutarci a far qulache piccola vincita a dispetto della lottomatica.
Certo che mi accontento ........
Ciao i leggend ,sottoscrivo il complimento per Mike e grazie a te per la collaborazione.
Ricambio i cordiali saluti.
Serpico

Cerca

Cerca

Per Mike 58

Serpico 90

Advanced Member >GOLD<

Mike58

Advanced Member >PLATINUM PLUS<

Serpico 90

Advanced Member >GOLD<

Mike58

Advanced Member >PLATINUM PLUS<

Mike58

Advanced Member >PLATINUM PLUS<

Serpico 90

Advanced Member >GOLD<

i legend

Premium Member

Serpico 90

Advanced Member >GOLD<

Mike58

Advanced Member >PLATINUM PLUS<

i legend

Premium Member

Serpico 90

Advanced Member >GOLD<

Ultima estrazione Lotto

Ultimi Messaggi