Per scripter volenterosi.

[Zagor]

Salve , tra la mia raccolta metodi , ho trovato questa vecchia tecnica che nn sembra affatto male.
Se qualcuno volesse fare un listato sarebbe cosa gradita.
Preciso che il metodo non è mio , e non so nemmeno di chi sia.

Grazie Anticipate.


Ad ogni estrazione trovare due numeri gemelli isotopi
Esempio preso nell’estrazione del 5 luglio2008:

a milano il 33 a torino il 55

Sottrarre al piu’ grande il piu’ piccolo il risultato con il suo vertibile saranno i capogiochi

33-55=22
il vertibile e' il 29

Per gli abbinamenti :

1°abbinamento al gemello piu’grande somma la differenza

55 + 22=77

2° abbinamento trovare il diametrale in decina del 1°abbinamento

77-5= 72

3° e 4° distanza 45 dei primi due abbinamenti

77-45=32
72-45=27

Quindi la previsione e'MI/TO 22-29 abbinamenti 77-72-32-27

Il metodo puo’ essere applicato anche se ci sono piu’ gemelli isotopi,infatti nell’estrazione del 5 luglio c’era il 55 anche a firenze che rafforzava la previsione.
Esito

22-72 a torino al 1°colpo
22-32 al 3°colpo.

Andate a ritroso e ne vedrete delle belle il metodo ovviamente nn e’ mio ma e’davvero una perla rara!!!

ho dimenticato di dire che i gemelli nn solo devono essere isotopi, ma nella ruota deve esserci un solo gemello!!!


Un saluto e buona giornata/serata/notte.

Mauro

I problemi non possono essere risolti allo stesso livello di conoscenza che li ha creati. (Albert Einstein)

 

[LuigiB]

ciao , mi incuriosiva sto fatto della perla rara ...
vedi se funziona ..

Option Explicit
Class clsCoppiaGemelli
	Dim aNumeri(2)
	Dim aPosizioni(2)
	Dim aRuote(2)
	Sub EseguiGiocate(idEstr,Durata)
		Dim k
		Dim aCapogiochi(2)
		Dim aAbbinamenti(4)
		Dim aPoste(10)
		aPoste(2) = 1
		Dim aNumInGioco(3)
		Call OrdinaMatrice(aNumeri,- 1)
		aCapogiochi(1) = aNumeri(1) - aNumeri(2)
		aCapogiochi(2) = Vert(aCapogiochi(1))
		aAbbinamenti(1) = Fuori90(aNumeri(1) + aCapogiochi(1))
		aAbbinamenti(2) = DiametraleD(aAbbinamenti(1))
		aAbbinamenti(3) = Distanza(aAbbinamenti(1),45)
		aAbbinamenti(4) = Distanza(aAbbinamenti(2),45)
		aNumInGioco(1) = aCapogiochi(1)
		aNumInGioco(2) = aCapogiochi(2)
		For k = 1 To 4
			aNumInGioco(3) = aAbbinamenti(k)
			Call ImpostaGiocata(k,aNumInGioco,aRuote,aPoste,Durata,2)
		Next
		Call Gioca(idEstr,,,1)
	End Sub
End Class
Sub Main
	Dim clsG
	Dim Inizio,Fine
	Dim k,r,rr,j
	Dim retPos(2)
	Dim retNum(2)
	Dim Coll
	Inizio =  EstrazioneIni ' DataEstrToIdEstr(5,7,2008)
	Fine =  EstrazioneFin
	For k = Inizio To Fine
		Set Coll = GetNewCollection
		For r = 1 To 9
			If QuantitaGemelli(k,r,retNum(1),retPos(1)) = 1 Then
				For rr = r + 1 To 10
					If QuantitaGemelli(k,rr,retNum(2),retPos(2)) = 1 Then
						If retPos(1) = retPos(2) Then
							If retNum(1) <> retNum(2) Then
								Set clsG = New clsCoppiaGemelli
								For j = 1 To 2
									clsG.aNumeri(j) = retNum(j)
									clsG.aPosizioni(j) = retPos(j)
								Next
								clsG.aRuote(1) = r
								clsG.aRuote(2) = rr
								Coll.Add clsG
							End If
						End If
					End If
				Next
			End If
		Next
		If Coll.count > 0 Then
			Call ScriviEstrazione(k)
			For Each clsG In Coll
				Call clsG.EseguiGiocate(k,10)
			Next
		End If
		Call AvanzamentoElab(Inizio,Fine,k)
		If ScriptInterrotto Then Exit For
	Next
	Call ScriviResoconto 
	
End Sub
Function QuantitaGemelli(idEstr,Ruota,RetNum,RetPos)
	Dim k,n
	Dim q
	For k = 1 To 5
		n = Estratto(idEstr,Ruota,k)
		If Gemello(n) Then
			RetNum = n
			RetPos = k
			q = q + 1
		End If
	Next
	QuantitaGemelli = q
End Function

 

[claudio8]

E bravo Luigi,
vedo che ci sono i raccomandati eh eh

me lo scarico e me lo gusto.

Ciao.

Lo spot che conosciamo dice "Ti Piace vincere facile ? " .. io rispondo SI !!!"

 

[claudio8]

X LUIGI

Vorrei farti notare questo errore:
nel normale copia incolla degli script dalla pagina dei post a Spaziometria spesso, il tutto viene trascritto su unica riga (vedi parte superiore della immagine) invece, se passo attraverso il word con un ulteriore copia e incolla, mi viene trascritto regolarmente con una interlinea "non standard" degli script(vedi parte restante s dell'immagine).

Potrebbe dipendere dal mio Pc o capita anche a te.

[/URL]
[/img]

Ciao


Lo spot che conosciamo dice "Ti Piace vincere facile ? " .. io rispondo SI !!!"

 

[LuigiB]

prova a fare la stessa cosa con la versione 1.2.88 ...
avevo inserito una procedura che risolveva automaticamente
questo problema del copia e incolla , infatti da me funziona
perfettamente

 

[claudio8]

Va bene Luigi appena la installo ti faccio sapere.
(attualmente un pò indaffarato con i numeri)

Grazie

 

[keeper]

ciao ragazzi anche io avevo notato il problema con la vers. precedente ora claudio tutto risolto con la 1.2.88. grazie luìgi

 

[Zagor]

Ciao Luigi , innanzitutto , grazie per il favore.
Ci sono 2 cose che non vanno , la tecnica prevede otto ambi (due capogiochi + 4 abbinamenti) su due ruote , mentre lo script mi mette in gioco terzine.
Seconda cosa la ricerca mi parte dal 1871 , costringendomi a mettere le "radici" prima che l'elaborazione sia terminata.
Per cortesia , tempo permettendo, vedi se puoi rimediare a questi due inconvenienti.

Un saluto e buona giornata/serata/notte.

Mauro

I problemi non possono essere risolti allo stesso livello di conoscenza che li ha creati. (Albert Einstein)

 

[LuigiB]

ciao , riguardo gli abbinamenti io ho fatto 4 terni dati
ogni volta dai due capogiochi piu uno allla volta i 4 abbinamenti
quindi va benissimo per vedere se gli ambi escono , la modifica è talemte semplice che mi rifiuto di farla.
Per il resto il range di analisi dipende da quello che è impostato
nel programma come si vede nella barra rosa in basso.

 

[claudio8]

quote:Originally posted by LuigiB

prova a fare la stessa cosa con la versione 1.2.88 ...
avevo inserito una procedura che risolveva automaticamente
questo problema del copia e incolla , infatti da me funziona
perfettamente

Da me il problema persiste, anche inserendo lo script così (tra sub main ed end sub ;

Sub Main
Option Explicit Class clsCoppiaGemelli Dim aNumeri(2) Dim aPosizioni(2) Dim aRuote(2) Sub EseguiGiocate(idEstr,Durata) Dim k Dim ... ecc. ecc
	
End Sub

X informazione: quando installo una nuovo versione, non disinstallo la vecchia.
Ciao

 

[bergie]

anche dopo l'installazione della 1.2.89 l'incollonamento
dello script persiste come per claudio8
ho notato anche che dopo aver installato la nuova versione
le estrazioni di lottodesk e spaziometria si sono allineate
come numero.

 

[claudio8]

X Bergie

Se vuoi copiare lo script con la formattazione passa attraverso l'apertura di "Rispondi con quota".

Ps: vedo arrivata la vers. 90, forse è stato sistemato il problema.
Ciao

 

[claudio8]

quote:Originally posted by LuigiB

prova a fare la stessa cosa con la versione 1.2.88 ...
avevo inserito una procedura che risolveva automaticamente
questo problema del copia e incolla , infatti da me funziona
perfettamente

Provato anche con la 90 stesso problema