x LUIGI E/O X CHI PUO' FARLO

[Roby]

è POSSIBILE FARE LO SCRIPT DI UN METODO CICLOMETRICO DI NOEL
POSTO METODO E SPIEGAZIONE
GRAZIE IN ANTICIPO CIAO

-CICLOMETRIA: Rettangolo Sommativo Indiretto
Fonte: ************ (Anno 2000), Autore: Noel

Tabella Ambi Diametrali
01-46 | 16-61 | 31-76
02-47 | 17-62 | 32-77
03-48 | 18-63 | 33-78
04-49 | 19-64 | 34-79
05-50 | 20-65 | 35-80
06-51 | 21-66 | 36-81
07-52 | 22-67 | 37-82
08-53 | 23-68 | 38-83
09-54 | 24-69 | 39-84
10-55 | 25-70 | 40-85
11-56 | 26-71 | 41-86
12-57 | 27-72 | 42-87
13-58 | 28-73 | 43-88
14-59 | 29-74 | 44-89
15-60 | 30-75 | 45-90


Nella stessa estrazione si devono ricercare, su due ruote (preferibilmente consecutive), un ambo diametrale (distanza 45) e nello stesso istante dobbiamo individuare, su una delle due ruote, la presenza del numero definito "Raddoppio", che si ottiene moltiplicando un elemento dell'ambo base per il fisso 2. E' importante che il numero rilevato sia l'unico in tutta l'estrazione. Dopo aver soddisfatto entrambe le condizioni, porremo in gioco, come ambata, il diametrale (Distanza 45) del numero che corrisponde al raddoppio.

(esempio reale aggiornato)
Estrazione del 24 Dicembre 2008
Torino 29 27 48 51 30
Venezia 67 83 6 12 63

Nel sorteggio del 24 Dicembre 2008 su Torino e Venezia viene estratto l'ambo diametrale 06-51 e contemporaneamente su Venezia individuiamo la presenza del numero che corrisponde al "Raddoppio" di uno degli elementi base, cioè il 12 (6x2=12 e 51x2=102; 102-90=12).

Inscriviamo gli elementi della formazione nel cerchio ciclometrico.



L'unico punto che può sviluppare la "Simmetria Rettangolare" è il diametrale del numero 12 (Raddoppio). Addizioniamo al 12 il fisso 45: 12+45=57 (Chiusura Geometrica).



Pronostico:
TORINO-VENEZIA
57 Ambata
57-06 / 57-12 / 57-51 Ambi Secchi, anche a tutte

Esito:
7°colpo Venezia 57 / 57-12 Ambata ed Ambo Secco!

 

[scoglio2]

nessuno ci prova

 

[LuigiB]

questo script prende in considerazione solo i casi con le ruote consecutive
e mette in gioco un ambata che è data dal diametrale del raddoppio secondo come hai spiegato per 9 colpi sulle due ruote individuate.
Il range di analisi è dato dalle impostazioni generali selezionate
nel programma

Sub Main
	
	Dim idEstr 
	Dim rt 
	Dim e,ee 
	Dim diam 
	Dim nTrovati 
	Dim raddoppio
	Dim nGiocata 
	ReDim aPoste(1)
	Dim nDaFare
	Dim nFatte 
	Dim PosRt1,PosRt2
	
	
	
	aPoste(1) = 1
	
	nDaFare =(EstrazioneFin + 1) - EstrazioneIni 
	For idEstr = EstrazioneIni To EstrazioneFin
		For rt = 1 To 9
			nTrovati = 0 
			
			For e = 1 To 5 
				diam = Diametrale(Estratto(idEstr,rt,e))
				For ee = 1 To 5
					If Estratto(idEstr,rt + 1,ee) = diam Then 
						raddoppio = Fuori90(diam * 2)
						PosRt1 = 0
						PosRt2 = 0
						If IsNumeroPresenteInEstrazione(idEstr,rt,raddoppio,PosRt1) Or IsNumeroPresenteInEstrazione(idEstr,rt + 1,raddoppio,PosRt2) Then
							If Ripetizioni(raddoppio,idEstr) = 1 Then 
								nTrovati = nTrovati + 1
								ReDim aNumeri(1)
								aNumeri(1) = Diametrale(raddoppio)
								ReDim aRuote(2)
								aRuote(1) = rt
								aRuote(2) = rt + 1
								nGiocata = nGiocata + 1 
								
								Call Scrivi("Estrazione " & GetInfoEstrazione(idEstr))
								Call Scrivi("Ruote " & NomeRuota(rt) & " " & NomeRuota(rt + 1))
								Call Scrivi("Ambo diametrale " & NomeRuota(rt) & " - > " & Estratto(idEstr,rt,e) & " - " & NomeRuota(rt + 1) & " - > " & diam) 
								Call Scrivi("Raddoppio " & raddoppio) 
								
								'==========================================================================
								' blocco per disegnare l'estrazione ed evidenziare i numeri interessati
								ReDim CaselleDaEvid(3,1)
								CaselleDaEvid(1,0) = rt
								CaselleDaEvid(1,1) = e
								
								CaselleDaEvid(2,0) = rt + 1
								CaselleDaEvid(2,1) = ee
								
								If PosRt1 > 0 Then 
									CaselleDaEvid(3,0) = rt 
									CaselleDaEvid(3,1) = PosRt1 
								End If ' If PosRt1 > 0 Then ...
								
								If PosRt2 > 0 Then 
									CaselleDaEvid(3,0) = rt + 1 
									CaselleDaEvid(3,1) = PosRt2 
								End If ' If PosRt2 > 0 Then ...
							
								Call DisegnaEstrazione(idEstr,CaselleDaEvid)
								'==========================================================================
								
								' blocco  che mette in gioco la previsione
								
								Call ImpostaGiocata(nGiocata,aNumeri,aRuote,aPoste,9,1)
								Call Gioca(idEstr) 
							
							End If ' If Ripetizioni(raddoppio,idEst...
						End If ' If IsNumeroPresenteInEstrazion...
						
					End If				 ' If Estratto(idEstr,rt + 1,ee) ...
				Next
			Next		
		Next
		
		nFatte = nFatte + 1 
		Call AvanzamentoElab(1,nDaFare,nFatte)
		Call Messaggio("Estrazione " & idEstr) 
		If ScriptInterrotto Then Exit For 
		
	Next
	
	Call ScriviResoconto
	
	
End Sub

 

[scoglio2]

grzie luigi perfetto fino a qua. adesso se puoi fare x tutte le ruote con naz.e anche la giokata x ambo.
ciao grazie

 

[solare]

Complimenti Luigi
ottimo anche nella grafica

 

[LuigiB]

eeheh quello è compito vostro .... avete gia lo script funzionante dovete modificarlo

 

[scoglio2]

quote:Originally posted by LuigiB

eeheh quello è compito vostro .... avete gia lo script funzionante dovete modificarlo

a saperlo si ....ma abbiamo la 5 alimentare
se puoi te
grazieeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee

 

[LuigiB]

questo script gioca anche gli ambi (li gioca solo se è possibile infatti ci sono casi dove non si puo formare ambi perche i numeri di base sono ripetuti).
Se nella tale estrazione riesce a trovare almeno in un caso la condizione su due ruote consecutive la gioca , se
invece la condizione non viene trovata allora tenta di trovare la
condizione anche su 2 ruote non consecutive e se trova qualcosa gioca
In pratica si da la preferenza alle giocate su ruote consecutive
Le ruote sono dalla 1 alla 10 esclusa nazionale.

Sub Main
	
	Dim idEstr 
	Dim rt,rt2 
	Dim e,ee 
	Dim diam 
	Dim nTrovati 
	Dim raddoppio
	Dim nGiocata 
	ReDim aPoste(1)
	ReDim aPosteAmbo(2)
	Dim nDaFare
	Dim nFatte 
	Dim PosRt1,PosRt2
	Dim bGiocato
	
	
	
	aPoste(1) = 1
	aPosteAmbo(2) = 1
	
	nDaFare =(EstrazioneFin + 1) - EstrazioneIni 
	For idEstr = EstrazioneIni To EstrazioneFin
		bGiocato = False
		
		For rt = 1 To 9
			nTrovati = 0 
			
			For e = 1 To 5 
				diam = Diametrale(Estratto(idEstr,rt,e))
				For ee = 1 To 5
					If Estratto(idEstr,rt + 1,ee) = diam Then 
						raddoppio = Fuori90(diam * 2)
						PosRt1 = 0
						PosRt2 = 0
						If IsNumeroPresenteInEstrazione(idEstr,rt,raddoppio,PosRt1) Or IsNumeroPresenteInEstrazione(idEstr,rt + 1,raddoppio,PosRt2) Then
							If Ripetizioni(raddoppio,idEstr) = 1 Then 
								nTrovati = nTrovati + 1
								
								ReDim aRuote(2)
								aRuote(1) = rt
								aRuote(2) = rt + 1
								
								
								Call Scrivi("Estrazione " & GetInfoEstrazione(idEstr))
								Call Scrivi("Ruote " & NomeRuota(rt) & " " & NomeRuota(rt + 1))
								Call Scrivi("Ambo diametrale " & NomeRuota(rt) & " - - > " & Estratto(idEstr,rt,e) & " - " & NomeRuota(rt + 1) & " - - > " & diam) 
								Call Scrivi("Raddoppio " & raddoppio & " diametrale - - > " & Diametrale(raddoppio)) 
								
								' = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
								' blocco per disegnare l'estrazione ed evidenziare i numeri interessati
								ReDim CaselleDaEvid(3,1)
								CaselleDaEvid(1,0) = rt
								CaselleDaEvid(1,1) = e
								
								CaselleDaEvid(2,0) = rt + 1
								CaselleDaEvid(2,1) = ee
								
								
								If PosRt1 > 0 Then 
									CaselleDaEvid(3,0) = rt 
									CaselleDaEvid(3,1) = PosRt1 
								End If ' If PosRt1 > 0 Then ...
								
								If PosRt2 > 0 Then 
									CaselleDaEvid(3,0) = rt + 1 
									CaselleDaEvid(3,1) = PosRt2 
								End If ' If PosRt2 > 0 Then ...
								
								Call DisegnaEstrazione(idEstr,CaselleDaEvid)
								' = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
								
								' blocco che mette in gioco la previsione
								ReDim aNumeri(1)
								aNumeri(1) = Diametrale(raddoppio)
								nGiocata = nGiocata + 1 
								Call ImpostaGiocata(nGiocata,aNumeri,aRuote,aPoste,9,1)
								Call Gioca(idEstr) 
								bGiocato = True
								
								
								ReDim aNumeriPerAmbo(4) 
								aNumeriPerAmbo(1) = Estratto(idEstr,rt,e)
								aNumeriPerAmbo(2) = Estratto(idEstr,rt + 1,ee)
								aNumeriPerAmbo(3) = raddoppio
								aNumeriPerAmbo(4) = aNumeri(1)
								
								
								If NumeriRipetuti(aNumeriPerAmbo) = 0 Then 
									
									ReDim aNumeriPerAmbo(2)
									aNumeriPerAmbo(1) = aNumeri(1)
									aNumeriPerAmbo(2) = Estratto(idEstr,rt,e)
									nGiocata = nGiocata + 1 
									Call ImpostaGiocata(nGiocata,aNumeriPerAmbo,aRuote,aPosteAmbo,9,2)
									Call Gioca(idEstr) 
									
									
									ReDim aNumeriPerAmbo(2)
									aNumeriPerAmbo(1) = aNumeri(1)
									aNumeriPerAmbo(2) = Estratto(idEstr,rt + 1,ee)
									nGiocata = nGiocata + 1 
									Call ImpostaGiocata(nGiocata,aNumeriPerAmbo,aRuote,aPosteAmbo,9,2)
									Call Gioca(idEstr) 
									
									
									ReDim aNumeriPerAmbo(2)

 

[scoglio2]

grande luigiiiiiiiiii
grazie milleeeeeeee