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
    martedì 14 gennaio 2025
    Bari
    41
    25
    12
    73
    55
    Cagliari
    54
    20
    48
    32
    67
    Firenze
    75
    23
    68
    10
    38
    Genova
    33
    27
    81
    70
    64
    Milano
    68
    01
    64
    86
    87
    Napoli
    47
    75
    45
    10
    21
    Palermo
    55
    86
    33
    53
    70
    Roma
    88
    78
    61
    06
    07
    Torino
    76
    08
    23
    61
    82
    Venezia
    25
    15
    49
    21
    81
    Nazionale
    70
    10
    32
    78
    07
    Estrazione Simbolotto
    Bari
    07
    14
    28
    45
    31
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto