Novità

X RUBINO

X rubino adesso vado in ricevitoria, ci sentiamo per le 19,45.
Ciao

Lo spot che conosciamo dice "Ti Piace vincere facile ? " che tradotto in pratica significa "Ti Piace..rebbe vincere facile !!!"
 
allora
questa è la situazione a presa 3
ho centrato l'immagine affinchè si veda il nr.90


claudio3.jpg
[/URL]

Uploaded with ImageShack.us[/img]



---------------------------------------------------------------------

comunque riprendiamo dall'inizio
dalla tua prima immagine

il numero 90 compare 3 volte, okey???


due volte è rosso
1 volta lo sfondo è bianco

okey???

se vado a selezionare o filtrare ulteriormente la presa
mettendo una and

con i parametri che tu hai scritto
esempio:

Coestr(mn) = min - 1
e
Coestr(mn) >= min

che evidenziano se hanno lo sfondo giallo o rosso
quindi li escludo per selezionare solo quelli con sfondo chiaro o bianco

mettendo
per esempio l'istruzione

If Coestr(mn) > presa and Coestr(mn) < min - 1 then

ottengo sotto il 90 1 presenza sfondo bianco
ottengo sotto il 89 2 presenze sfondo bianco
ottengo sotto il 25 1 presenza sfondo bianco
ottengo sotto il 78 4 presenze sfondo bianco

tutte con lo sfondo chiaro e bianco



cosa c'è che non va?




-----------------------------
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!
 
Il concetto di base della tabella e quello di avere un quadro generale di cosa è avvenuto nel passato (10casi impostati) e di quali sono i numeri da abbinare all'ambata per l'esito di ambo o superiore.

Riprendo il discorso dal funzionamento della tabbella.
Prendiamo in considerazione la riga del 1° estratto di ba, di questo estratto per adesso non consideriamo il valore.

Ogni casella, di questa riga conseguentenente all'uso di questa istruzione iniziale

aValori(4) = Fissi01(mn)

ci indicava inizialmente all'interno della casella un solo valore che rappresenta il numero di volte che il 1° estratto di Ba + il fisso corrispondente da 1 a 90 hanno azzeccato l'abbinamento con
l'ambata dello specifico caso che di volta in volta si e susseguita.

Con la modifica fatta aggiungendo
& "-" & Fuori90(Format2(mn) + Estratto(es,r1,1))
si è arrivati ad avere in ognuna delle caselle l'inserimento di un'altro numero che rappresenta la somma dell'attuale estratto ( specificato nelle caselle a sx in giallo) + il fisso corrispondente
( vedi riga superiore colorata in bleu) cioè il numero che andrebbe abbinato all'ambatanew del caso ultimo descritto che attualmente e il 38 , evidenziato in verdenel output e così scritto:

CASO SPIA 22.03.2011 8355 BA 27.22.15.71.89 | 22 - 52 | CA 43.81.52.20.38 -> Ambata | 38 | - caso escluso dall'elaborazione

Arriviamo al dunque,
Ogni casella a presindere dal colore che la contraddistingue dipendente dal numeretto in alto, rappresenta il risultato di un metodo.
BA1°e=27 + 1 = 27 + 1 = 28 questo è un metodo che potenzialmente può dare l'esito.

Se consideriamo che abbiamo i 10 numeri base degli estratti di Ba,CA, i coestratti e l'ambata abbiamo in totale 12 numeri base x 90 numeri sommabili ( da 1 a 90) quindi potenzialmente abbiamo 12 x 90 = 1080 metodi.

Arrivati a questo punto abbiamo 1080 risultati dai 1080 metodi.
chiaramente questi 1080 metodi daranno un range massimo di numeri prevedibili cha va da 1 a 90.

Allora l'intento finale per ora è quello di quantificare quante volte un determinato numero da 1 a 90 è presente in tabella.

E' quindi intuitivo che se vi sono (considerando il min = 1) dei mumeri con presenze alte, essi sono potenzialmente preferibili ad altri con presenze inferiori. Indico il min almeno = a 1 perchè se
non pongo questa condizione, ogni numero sarà per forza presente 12 volte.

Esempio: se con min = 1 il numero di presenze del 90 è 8, vuol dire che ci sono 8 metodi che danno come risultato di previsione 90, l’8 è il valore che adesso ci interessa e deve essere il valore
nella casellina delle "Convergenze2" riferita al 90 di” I 90 Numeri” .

SE non sono stato ancora chiaro, non ci resta che il telefono, ed io non ho problemi in merito, anzi per certi versi sarebbe anche più sbrigativo.

Ti ringrazio ancora per la pazienza che stai avendo.
Ciao

PS:. Lo sfondo giallo o rosso ha una funzione che non deve essere presa assolutamente in considerazione in questa fase, fai finta che le caselle non si colorino, che siano tutte bianche.
 
ciao

oggi non ci sono
devo andare ad un matrimonio

ero arrivato qui a questo punto, richiedendo presa > 1

con questa impostazione:
Codice: 
			If Coestr(mn) > presa Then aValori(2) = Coestr(mn) & "-" & Format2(mn)
			If FissiA(mn) > presa Then aValori(3) = FissiA(mn) & "-" & Fuori90(Format2(mn) + ambatanew)
			If Fissi01(mn) > presa Then aValori(4) = Fissi01(mn) & "-" & Fuori90(Format2(mn) + Estratto(es,r1,1))
			If Fissi02(mn) > presa Then aValori(5) = Fissi02(mn) & "-" & Fuori90(Format2(mn) + Estratto(es,r1,2))
			If Fissi03(mn) > presa Then aValori(6) = Fissi03(mn) & "-" & Fuori90(Format2(mn) + Estratto(es,r1,3))
			If Fissi04(mn) > presa Then aValori(7) = Fissi04(mn) & "-" & Fuori90(Format2(mn) + Estratto(es,r1,4))
			If Fissi05(mn) > presa Then aValori(8) = Fissi05(mn) & "-" & Fuori90(Format2(mn) + Estratto(es,r1,5))
			If Fissi06(mn) > presa Then aValori(9) = Fissi06(mn) & "-" & Fuori90(Format2(mn) + Estratto(es - passo,r2,1))
			If Fissi07(mn) > presa Then aValori(10) = Fissi07(mn) & "-" & Fuori90(Format2(mn) + Estratto(es - passo,r2,2))
			If Fissi08(mn) > presa Then aValori(11) = Fissi08(mn) & "-" & Fuori90(Format2(mn) + Estratto(es - passo,r2,3))
			If Fissi09(mn) > presa Then aValori(12) = Fissi09(mn) & "-" & Fuori90(Format2(mn) + Estratto(es - passo,r2,4))
			If Fissi10(mn) > presa Then aValori(13) = Fissi10(mn) & "-" & Fuori90(Format2(mn) + Estratto(es - passo,r2,5))
			aValori(14) = Format2(mn)
			aValori(15) = tot14(mn)
			
			If Coestr(mn) > presa And Coestr(mn) < min - 1 Then aValori(2) = Coestr(mn) & "-" & Format2(mn) :prfr(Format2(mn)) = prfr(Format2(mn)) + 1
			If FissiA(mn) > presa And FissiA(mn) < min - 1 Then aValori(3) = FissiA(mn) & "-" & Fuori90(Format2(mn) + ambatanew):prfr(Format2(mn)) = prfr(Format2(mn)) + 1:'ambata + fissi
			If Fissi01(mn) > presa And Fissi01(mn) < min - 1 Then aValori(4) = Fissi01(mn) & "-" & Fuori90(Format2(mn) + Estratto(es,r1,1)) :prfr(Fuori90(Format2(mn) + Estratto(es,r1,1))) = prfr(Fuori90(Format2(mn) + Estratto(es,r1,1))) + 1:'1° di ba + fissi
			If Fissi02(mn) > presa And Fissi02(mn) < min - 1 Then aValori(5) = Fissi02(mn) & "-" & Fuori90(Format2(mn) + Estratto(es,r1,2)):prfr(Fuori90(Format2(mn) + Estratto(es,r1,2))) = prfr(Fuori90(Format2(mn) + Estratto(es,r1,2))) + 1
			If Fissi03(mn) > presa And Fissi03(mn) < min - 1 Then aValori(6) = Fissi03(mn) & "-" & Fuori90(Format2(mn) + Estratto(es,r1,3)):prfr(Fuori90(Format2(mn) + Estratto(es,r1,3))) = prfr(Fuori90(Format2(mn) + Estratto(es,r1,3))) + 1
			If Fissi04(mn) > presa And Fissi04(mn) < min - 1 Then aValori(7) = Fissi04(mn) & "-" & Fuori90(Format2(mn) + Estratto(es,r1,4)):prfr(Fuori90(Format2(mn) + Estratto(es,r1,4))) = prfr(Fuori90(Format2(mn) + Estratto(es,r1,4))) + 1
			If Fissi05(mn) > presa And Fissi05(mn) < min - 1 Then aValori(8) = Fissi05(mn) & "-" & Fuori90(Format2(mn) + Estratto(es,r1,5)):prfr(Fuori90(Format2(mn) + Estratto(es,r1,5))) = prfr(Fuori90(Format2(mn) + Estratto(es,r1,5))) + 1
			If Fissi06(mn) > presa And Fissi06(mn) < min - 1 Then aValori(9) = Fissi06(mn) & "-" & Fuori90(Format2(mn) + Estratto(es - passo,r2,1)):prfr(Fuori90(Format2(mn) + Estratto(es - passo,r2,1))) = prfr(Fuori90(Format2(mn) + Estratto(es - passo,r2,1))) + 1
			If Fissi07(mn) > presa And Fissi07(mn) < min - 1 Then aValori(10) = Fissi07(mn) & "-" & Fuori90(Format2(mn) + Estratto(es - passo,r2,2)):prfr(Fuori90(Format2(mn) + Estratto(es - passo,r2,2))) = prfr(Fuori90(Format2(mn) + Estratto(es - passo,r2,2))) + 1
			If Fissi08(mn) > presa And Fissi08(mn) < min - 1 Then aValori(11) = Fissi08(mn) & "-" & Fuori90(Format2(mn) + Estratto(es - passo,r2,3)):prfr(Fuori90(Format2(mn) + Estratto(es - passo,r2,3))) = prfr(Fuori90(Format2(mn) + Estratto(es - passo,r2,3))) + 1
			If Fissi09(mn) > presa And Fissi09(mn) < min - 1 Then aValori(12) = Fissi09(mn) & "-" & Fuori90(Format2(mn) + Estratto(es - passo,r2,4)):prfr(Fuori90(Format2(mn) + Estratto(es - passo,r2,4))) = prfr(Fuori90(Format2(mn) + Estr
 
Buona giornata Rubino,
fai gli auguri agli sposi anche da parte mia e buon divertimento.

Per quanto riguarda lo script, siamo su di una strada sbagliata, ti riposto quanto Inviato - 25/06/2011 : 22:11:39 allegando anche con una videata illustrativa.

Ciao
 
Ti riposto lo script inviatomi ieri - 25/06/2011 : 16:04:39 con l'impostazione di presa = 3

caricalo e fallo girare, otterrai la tabella 1



Codice: 
Sub Main()
	ReDim Coestr(90)
	ReDim FissiA(90)
	ReDim Fissi01(90)
	ReDim Fissi02(90)
	ReDim Fissi03(90)
	ReDim Fissi04(90)
	ReDim Fissi05(90)
	ReDim Fissi06(90)
	ReDim Fissi07(90)
	ReDim Fissi08(90)
	ReDim Fissi09(90)
	ReDim Fissi10(90)
	ReDim tot14(90)	
	ReDim prfr(90)
	Dim rut(10),rutt(10),ru(10)
	Dim clp,tes,a,b,cs_el,ambata,ambatanew,casi
	Verif =1  'CInt(InputBox("Quante volte vuoi verifiche gli esiti ?","Verifiche",10))
	casi = CInt(InputBox("Quanti casi vuoi ogni verifica ?","Casi di verifica",10)) ' 10 parametro tendenzialme da modidicare
	testo = InputBox("Vuoi in elenco-output i dettagli dei casi ? ( 1=Si   0=No )","Elenco Casi",0)
	tes = 0	'CInt(InputBox("Totale estr. da fine arch. a inizio spia caso ?" & Chr(13) & _
	'Chr(13) & "( considerare entrambe comprese per escludere il nuovo caso )","SOLO per ANALISI",1))	'<-----estrazioni da togliere
	'	'la riga sopra serve per staccare l'analisi dall'ultima estrazione in archivio, potremo così vedere
	'	'nelle estrazioni che decidiamo di mettere nell'inputbox (valore tes), quali numeri sono già sortiti...
	'	-------------------------------------------------------------------------------------------------
	r1 = CInt(InputBox("Ruota di sortita 1^ spia " & Chr(13) & Chr(13) & "( 1 Ba.   2 Ca.   3 Fi.     4 Ge. )" & Chr(13) & _
	"( 5 Mi.    6 Na.  7 Pa.    8 Ro. )" & Chr(13) & "( 9 To. 10 Ve. 11 TT. 12 Naz.)","1^ RUOTA - SPIA 1",1)) '						'<-----Ruota1
	p1 = CInt(InputBox("Posizione estratto ruota di   " & FormatSpace(NomeRuota(r1),7,- 1) & Chr(13) & Chr(13) & "(1.2.3.4.5)","POSIZ. 1^ SPIA",2))'  '<-----Posiz1
	r2 = CInt(InputBox("Ruota di sortita 2^ spia " & Chr(13) & Chr(13) & "( 1 Ba.   2 Ca.   3 Fi.     4 Ge. )" & Chr(13) & _
	"( 5 Mi.    6 Na.  7 Pa.    8 Ro. )" & Chr(13) & "( 9 To. 10 Ve. 11 TT. 12 Naz.)","2^ RUOTA - SPIA 2",2))'						'<-----Ruota2
	p2 = CInt(InputBox("Posizione estratto ruota di   " & FormatSpace(NomeRuota(r2),7,- 1) & Chr(13) & Chr(13) & "(1.2.3.4.5)","POSIZ. 2^ SPIA",3))'	'<-----Posiz1
	passo = CInt(InputBox("Distanza negativa tra estrazioni di rilevamento spie.","DISTANZA ESTRAZIONI ",1))
	clp = CInt(InputBox("Numero colpi di gioco","COLPI di GIOCO",10))	 ' 10 <--COLPI 'provato = 10, ha dato max-pres 4 il 57-46-90 centrando l'ambo 38 46
	prec = 2 	'CInt(InputBox("Numero colpi precedenti la Spia x verifica presenza ambata ?.","Presenza di ambata",2))
	min = 4 'CInt(InputBox("Numero minimo di esiti","Minimo esiti",4))
	presa = CInt(InputBox("digita  presa   ",,3))
	
	For cs_el = 1 To verif 	' ATTENZIONE questo  "For"  serve per ripetere le verifiche del Metodo che si sta Costruendo
		ReDim mt(4005,4),n(2),n1(2),nn(2),mt1(90,3),mt2(4005,4),nn2(2),mt3(90,3),nn3(2),mt4(90,3)
		ReDim mtt(4005,4)
		cs1 = casi + cs_el ' Casi richiesti + casi elencati
		ru(1) = r1 'CInt(InputBox("RUOTA RICERCA DEI CASI ","1^ RUOTA",r1))
		ru(2) = r2 'CInt(InputBox("RUOTA RICERCA DEI CASI  ","2^ RUOTA",r2))
		rut(1) = r1 ' ruote di esito
		rutt(1) = r2' ruote di esito
		'	 					'BLOCCO FOR x DETERMINARE L'INIZIO ESTRAZIONI SULLA BASE DEI CASI IMPOSTATI
		cc = 0						' imposto il contatore dei casi  cc = 0
		tme1 = 0						' totale-meno-estrazioni1 riferito alle estrazioni
		For es = EstrazioneFin - tes To 1 Step - 1 'legge le estrazioni dall'ultima - tes alla 1a , si ferma al n. casi richiesti e rileva il tme1
			a = Estratto(es,r1,p1) 			' definisco gli estratti da trovare
			b = Estratto(es - passo,r2,p2) 	' con la sottrazione del passo, è possibile considerare posizioni anche su estrazioni diverse (a ritroso)
			If Distanza(a,b) = 30 Then'a = Fuori90(b + 30) Or a = Fuori90(b + 60) Then ' Terzine simmetriche ( usare la funzione ciclometrica "distanza(a,b)=30" )
				cc = cc + 1				'cc = cc + 1 Incrementa il contatore dei casi
				If cc = cs1 Then 			'se il contatore casi = cs1
 
Codice: 
Sub Main()
	ReDim Coestr(90)
	ReDim FissiA(90)
	ReDim Fissi01(90)
	ReDim Fissi02(90)
	ReDim Fissi03(90)
	ReDim Fissi04(90)
	ReDim Fissi05(90)
	ReDim Fissi06(90)
	ReDim Fissi07(90)
	ReDim Fissi08(90)
	ReDim Fissi09(90)
	ReDim Fissi10(90)
	ReDim tot14(90)	
	ReDim prfr(90)
	Dim rut(10),rutt(10),ru(10)
	Dim clp,tes,a,b,cs_el,ambata,ambatanew,casi
	Verif = 1 'CInt(InputBox("Quante volte vuoi verifiche gli esiti ?","Verifiche",10))
	casi = CInt(InputBox("Quanti casi vuoi ogni verifica ?","Casi di verifica",10)) ' 10 parametro tendenzialme da modidicare
	testo = InputBox("Vuoi in elenco-output i dettagli dei casi ? ( 1=Si   0=No )","Elenco Casi",0)
	tes = 0	'CInt(InputBox("Totale estr. da fine arch. a inizio spia caso ?" & Chr(13) & _
	'Chr(13) & "( considerare entrambe comprese per escludere il nuovo caso )","SOLO per ANALISI",1))	'<-----estrazioni da togliere
	'	'la riga sopra serve per staccare l'analisi dall'ultima estrazione in archivio, potremo così vedere
	'	'nelle estrazioni che decidiamo di mettere nell'inputbox (valore tes), quali numeri sono già sortiti...
	'	-------------------------------------------------------------------------------------------------
	r1 = CInt(InputBox("Ruota di sortita 1^ spia " & Chr(13) & Chr(13) & "( 1 Ba.   2 Ca.   3 Fi.     4 Ge. )" & Chr(13) & _
	"( 5 Mi.    6 Na.  7 Pa.    8 Ro. )" & Chr(13) & "( 9 To. 10 Ve. 11 TT. 12 Naz.)","1^ RUOTA - SPIA 1",1)) '						'<-----Ruota1
	p1 = CInt(InputBox("Posizione estratto ruota di   " & FormatSpace(NomeRuota(r1),7,- 1) & Chr(13) & Chr(13) & "(1.2.3.4.5)","POSIZ. 1^ SPIA",2))'  '<-----Posiz1
	r2 = CInt(InputBox("Ruota di sortita 2^ spia " & Chr(13) & Chr(13) & "( 1 Ba.   2 Ca.   3 Fi.     4 Ge. )" & Chr(13) & _
	"( 5 Mi.    6 Na.  7 Pa.    8 Ro. )" & Chr(13) & "( 9 To. 10 Ve. 11 TT. 12 Naz.)","2^ RUOTA - SPIA 2",2))'						'<-----Ruota2
	p2 = CInt(InputBox("Posizione estratto ruota di   " & FormatSpace(NomeRuota(r2),7,- 1) & Chr(13) & Chr(13) & "(1.2.3.4.5)","POSIZ. 2^ SPIA",3))'	'<-----Posiz1
	passo = CInt(InputBox("Distanza negativa tra estrazioni di rilevamento spie.","DISTANZA ESTRAZIONI ",1))
	clp = CInt(InputBox("Numero colpi di gioco","COLPI di GIOCO",10))	 ' 10 <--COLPI 'provato = 10, ha dato max-pres 4 il 57-46-90 centrando l'ambo 38 46
	prec = 2 	'CInt(InputBox("Numero colpi precedenti la Spia x verifica presenza ambata ?.","Presenza di ambata",2))
	min = 4 'CInt(InputBox("Numero minimo di esiti","Minimo esiti",4))
	presa = CInt(InputBox("digita  presa   ",,3))
	
	For cs_el = 1 To verif 	' ATTENZIONE questo  "For"  serve per ripetere le verifiche del Metodo che si sta Costruendo
		ReDim mt(4005,4),n(2),n1(2),nn(2),mt1(90,3),mt2(4005,4),nn2(2),mt3(90,3),nn3(2),mt4(90,3)
		ReDim mtt(4005,4)
		cs1 = casi + cs_el ' Casi richiesti + casi elencati
		ru(1) = r1 'CInt(InputBox("RUOTA RICERCA DEI CASI ","1^ RUOTA",r1))
		ru(2) = r2 'CInt(InputBox("RUOTA RICERCA DEI CASI  ","2^ RUOTA",r2))
		rut(1) = r1 ' ruote di esito
		rutt(1) = r2' ruote di esito
		'	 					'BLOCCO FOR x DETERMINARE L'INIZIO ESTRAZIONI SULLA BASE DEI CASI IMPOSTATI
		cc = 0						' imposto il contatore dei casi  cc = 0
		tme1 = 0						' totale-meno-estrazioni1 riferito alle estrazioni
		For es = EstrazioneFin - tes To 1 Step - 1 'legge le estrazioni dall'ultima - tes alla 1a , si ferma al n. casi richiesti e rileva il tme1
			a = Estratto(es,r1,p1) 			' definisco gli estratti da trovare
			b = Estratto(es - passo,r2,p2) 	' con la sottrazione del passo, è possibile considerare posizioni anche su estrazioni diverse (a ritroso)
			If Distanza(a,b) = 30 Then'a = Fuori90(b + 30) Or a = Fuori90(b + 60) Then ' Terzine simmetriche ( usare la funzione ciclometrica "distanza(a,b)=30" )
				cc = cc + 1				'cc = cc + 1 Incrementa il contatore dei casi
				If cc = cs1 Then 			'se il contatore casi = cs1 (casi richiesti+ cs_el) allora
					tme1 =(EstrazioneFin - tes - es) 'definiamo il tme1 = (estrazfin-tes-es) -> estrazioni da cui inzia analisi in consid. dei casi che
				End If
			End If
		Next
		cc = 0						'
 
Grazie Rubino, sono appena rientrato, lo provo e ti faccio sapere.
Ciao

Lo spot che conosciamo dice "Ti Piace vincere facile ? " che tradotto in pratica significa "Ti Piace..rebbe vincere facile !!!"
 
E' perfetto, devo solo sistemare il tutto con la variabile Verif, ma è questione di qualche minuto e poi rimetterlo in bella.
Vedo di accorpare anche le tabelle.

Grazie tantissime sei stato un genio, tempo e chiarimenti ci son voluti ma siamo arrivati all'obbiettivo.

Adesso mi studio bene il funzionamento sperando che non ci siano bug.

Ciao e grazie ancora.


Lo spot che conosciamo dice "Ti Piace vincere facile ? " e noi è questo che vogliamo, vincere facile !!!"
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    lunedì 03 novembre 2025
    Bari
    80
    28
    11
    67
    50
    Cagliari
    20
    29
    71
    33
    15
    Firenze
    33
    50
    21
    09
    11
    Genova
    32
    15
    90
    09
    23
    Milano
    66
    22
    48
    03
    77
    Napoli
    57
    64
    27
    20
    26
    Palermo
    22
    65
    78
    90
    74
    Roma
    32
    57
    43
    20
    08
    Torino
    74
    80
    66
    54
    01
    Venezia
    01
    75
    82
    13
    11
    Nazionale
    71
    05
    55
    77
    61
    Estrazione Simbolotto
    Torino
    13
    06
    40
    02
    10
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto