metodo dell'estratto determinato x gli scripter's

[boris]

buongiorno con carta e penna ho fatto le prove con successo che lascia dersiderare,
anche perche ci sono tante volte troppi da scegliere ecco per esempio
13-1 NA-NA 15-75 =455455 DOVE 55 È LA SOMMA DELLE FIGURE la piramide da 32-65-98
primo colpo esce BA 32-65 ma non in posizione, il 10-1 GE 46 -73 = 193622 da 94-67-31 esci il 31 al 2° colpio non in pos.
be ci sono tanti altri controllati ma non hanno dato o al 2° colpo ma non in pos.e
comunque è un metodo che da delle indicazioni per formare un ambo con 4 o 6 numeri
saluti

 

[baikal]

grazie sig. boris per il suo nuovo spunto

 

[Mike58]

Ciao a tutti, premesso che ho letto + volte il post senza però capirci molto e a proposito colgo ancora una volta l'occasione per dire che è sempre meglio mettere esempi recenti cosi da poter fare verifiche reali e recenti.

Tuttavia (ripeto senza capirci molto) ho fatto una bozza di script senza pretesa che analizza alcuni casi cosi da valutare possibili correttivi e per chi volesse cimentarsi (vedi salvo50) ci sono anche le dritte in fatto di codice da usare.

Spero di smuovere e spronare nuovi aspiranti scripter e se poi arrivano anche le giuste dritte in termini di maggiori dettagli, cercherò tempo disponibile (ahimè poco) di rivedere lo script.

Intanto cominciamo da qui !!!

Sub Main
	Dim nu(2),ru(1),n1(1),f1(5),nn(1),anum(1)
	Ini = EstrazioneFin - 10
	fin = EstrazioneFin
	For es = Ini To fin
		For r1 = 1 To 10
			For p1 = 1 To 5
				For p2 = p1 + 1 To 5
					a = Estratto(es,r1,p1)
					b = Estratto(es,r1,p2)
					If Decina(a) = Decina(b) Then
						If Differenza(a,b) = 3 Or Differenza(a,b) = 6 Then
							nu(1) = a
							nu(2) = b
							ru(1) = r1
							aa = Massimo(a,b)
							bb = Minimo(a,b)
							If Differenza(aa,bb) = 3 Then n1(1) = bb + 6
							If Differenza(aa,bb) = 6 Then n1(1) = bb + 3
							If Decina(n1(1)) <> Decina(a) Then n1(1) = n1(1) - 9
							'-------------------------------------
							For x = 1 To 5
								f1(x) = Figura(Estratto(es,r1,x))
							Next
							'-------------------------------------
							If n1(1) = 1 Or n1(1) = 4 Or n1(1) = 7 Then nn(1) = 33
							If n1(1) = 31 Or n1(1) = 34 Or n1(1) = 37 Then nn(1) = 9
							If n1(1) = 61 Or n1(1) = 64 Or n1(1) = 67 Then nn(1) = 66
							If n1(1) = 2 Or n1(1) = 5 Or n1(1) = 8 Then nn(1) = 66
							If n1(1) = 32 Or n1(1) = 35 Or n1(1) = 38 Then nn(1) = 33
							If n1(1) = 62 Or n1(1) = 65 Or n1(1) = 68 Then nn(1) = 9
							If n1(1) = 3 Or n1(1) = 6 Or n1(1) = 9 Then nn(1) = 9
							If n1(1) = 33 Or n1(1) = 36 Or n1(1) = 39 Then nn(1) = 66
							If n1(1) = 63 Or n1(1) = 66 Or n1(1) = 69 Then nn(1) = 33
							If n1(1) = 3 Or n1(1) = 6 Or n1(1) = 9 Then nn(1) = 9
							If n1(1) = 33 Or n1(1) = 36 Or n1(1) = 39 Then nn(1) = 66
							If n1(1) = 63 Or n1(1) = 66 Or n1(1) = 69 Then nn(1) = 33
							If n1(1) = 10 Or n1(1) = 41 Or n1(1) = 72 Then nn(1) = 22
							If n1(1) = 40 Or n1(1) = 71 Or n1(1) = 77 Then nn(1) = 88
							If n1(1) = 70 Or n1(1) = 73 Or n1(1) = 76 Then nn(1) = 55
							If n1(1) = 11 Or n1(1) = 42 Or n1(1) = 73 Then nn(1) = 55
							If n1(1) = 12 Or n1(1) = 43 Or n1(1) = 74 Then nn(1) = 88
							If n1(1) = 13 Or n1(1) = 44 Or n1(1) = 75 Then nn(1) = 22
							If n1(1) = 14 Or n1(1) = 45 Or n1(1) = 76 Then nn(1) = 55
							If n1(1) = 15 Or n1(1) = 46 Or n1(1) = 77 Then nn(1) = 88
							If n1(1) = 16 Or n1(1) = 47 Or n1(1) = 78 Then nn(1) = 22
							If n1(1) = 17 Or n1(1) = 48 Or n1(1) = 79 Then nn(1) = 55
							If n1(1) = 18 Or n1(1) = 49 Or n1(1) = 40 Then nn(1) = 88
							If n1(1) = 19 Then nn(1) = 22
							If n1(1) = 20 Then nn(1) = 44
							If n1(1) = 21 Then nn(1) = 77
							'.... continuare inserimento.......
							'-------- fine inserimento................
							smF = f1(1) + f1(2) + f1(3) + f1(4) + f1(5)
							Scrivi GetInfoEstrazione(es) & vbTab,0,0
							Scrivi SiglaRuota(r1) & vbTab & StringaEstratti(es,r1) & vbTab & StringaNumeri(f1) & vbTab & " SmF = " & smF & vbTab,0,0
							Scrivi StringaNumeri(nu,,1) & vbTab & StringaNumeri(n1,,1),0,0
							Scrivi vbTab & StringaNumeri(nn,1),1,0
							pir = Format2(n1(1)) & Format2(smf) & Format2(nn(1))
							Scrivi vbTab & pir,0,0
							pira = Piramide(pir,4,2)
							anum(1) = pira
							Call VerificaEsitoTurbo(anum,ru,es + 1,1,10,,esito,clp,estratti,Id)
							Scrivi vbTab & pira,1,0,,1,2
							If esito <> "" Then Scrivi vbTab & estratti & " Colpo " & clp
							If esito = "" Then Scrivi "  ................................"
						End If
					End If
				Next
			Next
		Next
	Next
End Sub

 

[boris]

salve Mike58 scusami se mi intrometto ho aperto il skript a mio parere non rispecchia il metodo....... esempio
il 17-1- NA 14-74-29-43-71 si dovrebbe prendere 14
71
manca 47 somma 24 piramide 472422 risultato 84
57
21 primo colpo NA 57 in 5a pos.
penso che interpreto giusto il metodo e baikal che egli ci dia un occhio per confermare
buona serata

 

[Mike58]

Boris, non avevo detto che lo script elaborava i calcoli nel modo corretto, avevo solo fatto una sorte di script spartano, infatti io i calcoli non li ho capiti e lo script elaborava solo alcuni casi ossia le sole triple in decina.

Ho solo messo il corpo script per far si che chi volesse potesse proseguire ( ma non vedo nulla ).

Se sei cosi interessato e se mi dai delle facili direttive con delle estrazioni reali corredati di tutte le informazioni e mi fai vedere come svolgi i calcoli magari possiamo vedere di definirlo nella sua correttezza.

ciao

 

[boris]

salve Mike58 hai ragione non ho letto e interpretato le tue righe iniziali dello skript, scusami,
aspettiamo ad una spiegazione di baikal per fare le ricerche........ che io li faccio
su unica ruota oppure se due ruote adiacenti con carta e penna e il 60% da esiti
sono positivi come estratto 20% anche in posizione
buona giornata

 

[baikal]

Si sig.boris ha interpretato il metodo alla perfezione l'unica cosa il metodo gioca le ambate max 4 colpi e non a colpo. Poi se legge il primo noterá che la condizione puó venir presa anche su due estrazioni consecutive tipo oggi e martedì pross.

 

[boris]

salve baikal, lascia via il Sig., aspettavo una informazione per Mike58 che è disponibile a fare un skript,
quali combinazioni sono da individuare come base di ricerca, le migliori sono quelli individuati su ruota unica.
Auguro buona domenica a tutti forumini

 

[baikal]

Questo lo si potrebbe capire dallo script per estraz. Consecutive si intende sempre un unica rouota ad es. Bari oggi bari domani e non bari Cagliari drlla sessa estrazione

 

[boris]

salve Mike58 si cerca in una estrazione oppure nelle consecutive una copia che si può completare con 147 258 369
esempio 17-1 BA 80-47-51-04-65 ................................ 51..................................... 23
............ 20-1 BA 50-24-56-48-20 SI PUO ACCOPIARE ..24..................................... 18
...........................................................DA COMPLETARE 87 SOMMA DELLE FIGURE 41 DA TAVOÖA UNITA 87/11
PIRAMIDE 874111 RISULTATO 27 1a AMBATA
...............................................51 2a AMBATA
. ..............................................84 3a AMBATA
DOPO DUE ESTRAZIONI ANCORA IN GIOCO

ALTRO ESEMPIO DEL
24-1 NZ 07-89-56-24-8.......24
........................................ 81
................SI ESTRAPPOLA 57 SOMMA delle Figure 32 da tavola 57/44 PIRAMIDE 573244 IN GIOCO ........96 1a Ambata fuori 90 = 06
....................................................................................................................................................... 39 2a Ambata
....................................................................................................................................................... 63 3a Ambata
spero di avermi spiegato bene e forse si può fare un skript per questo metodo di baikal
e auguro buona serata

 

[Mike58]

Boris, purtroppo non ho capito molto, poi di queste condizioni se ne trovano ad iosa e andare a cercarle anche se su ruota su estrazioni consecutive diventa come risultato poco significativo.

Visto che solo tu hai interesse (ed il motivo della mia risposta) e nessun altro, mi spiace ma passo.

 

[boris]

ok capisco grazie lo stesso