Novità

Se qualcuno.........

Z

Zagor

Advanced Member >PLATINUM<
...volesse dilettarsi a scriptare questo metodo sarebbe cosa gradita.

Ringrazio anticipatamente.:):):)


Per applicare questo metodo, bisogna ricercare un ambo simmetrico, che occupa le seguenti posizioni
1° e 3°
2° e 4°
3° e 5°
1° e 5°
questa è la base del triangolo, per cercare il vertice

sommare i due numeri dell’ambo,
dividere la somma per 2
ricercare su altra ruota il risultato o il suo diametrale
anche il risultato deve rispettare le posizioni
se l’ambo occupa il
1° e 3° posto sarà in 2°
se in 2° e 4° in 3°
se in 3° e 5° in 4°
se in 1° e 5° in 3°

a condizione rispettata, calcolare il pronostico
il vertice + diametrale = ambata
gli abbinamenti x ambo sono il vertice e il suo diametrale

esempio 6/12/’07
PA x x 76 x 16 76 3° posto 16 5° posto

76 + 16 = 92
92 : 2 = 46
ricercare 46 o il suo diametrale 1 su altra ruota al 4° posto

TO x x x 46 x 46 4° posto

pronostico
46 + 1 = 47 ambata
46 e 1 abbinamenti



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)
 
Da quanto leggo, ci saranno una cifra di casi mese.
E' troppo ampia la ricerca e darebbe risultato-esiti non validi.

Lo spot che conosciamo dice "Ti Piace vincere facile ? " .. io rispondo SI !!!"
 
Ciao Claudio , infatti è anche il mio dubbio ,
la condizione che potrebbe "scremare" è quella delle posizioni.
Intanto , grazie per aver risposto.:):):)

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)
 
Ciauz dai una controllatina per eventuali errori...

Codice: 
' da [url]http://forum.lottoced.com/topic.asp?TOPIC_ID=137677[/url]
Sub Main()
	Dim ruota(2)
	Dim numeri(5),numeri1(5),numeri2(5),amb(5)
	Dim posta(2)
	Dim poste(5),postee(5)
	posta(1) = 1
	poste(2) = 1
	k = 13
	ColoreTesto 1
	Scrivi "                            Ambo Simmetrico..Zagor",1
	Scrivi
	Scrivi "                                   List DjNomade",1
	Scrivi
	ColoreTesto 0
	ee = CInt(InputBox("Quante estrazioni vuoi esaminare ?","Estrazioni",60))
	ds1 = 30
	casi = 0
	fin = EstrazioneFin
	ini = fin - ee
	For es = ini To fin
		Messaggio "elab. n° " & es & " del " & DataEstrazione(es) & " [ by DjNomade ]"
		For r = 1 To 10
			For p1 = 1 To 4
				For p2 = p1 + 1 To 5
					a = Estratto(es,r,p1)
					b = Estratto(es,r,p2)
					If(p1 = 1 And p2 = 3)Or(p1 = 2 And p2 = 4)Or(p1 = 3 And p2 = 5) Or(p1 = 1 And p2 = 5) Then
						For r1 = r + 1 To 12
							If r1 = 11 Then r1 = 12
							If p1 = 1 And p2 = 3 Then p3 = 2
							If p1 = 2 And p2 = 4 Then p3 = 3
							If p1 = 3 And p2 = 5 Then p3 = 4
							If p1 = 1 And p2 = 5 Then p3 = 3
							aa = Estratto(es,r1,p3)
							c =(a + b)/2
							d = Diametrale(c)
							If Distanza(a,b) = ds1 And(aa = c Or aa = d) Then
								casi = casi + 1
								Scrivi
								Scrivi String(49,"=") & "  by DjNomade----- caso n° " &(casi),1
								Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r) & " - " & StringaEstratti(es,r) & _
								" ] [ " & Format2(a) & "." & Format2(b) & " ] Dist.Orizz. " & ds1 & "..Posiz." & p1 & "°..Posiz." & p2 & "°"
								Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
								" ] [ " & Format2(aa) & " ] Numero trovato in...Posiz." & p3 & "°"
								amb(1) = Fuori90(c + d)'ambata
								ruota(1) = r
								ruota(2) = r1
								co = 0
								numeri(1) = amb(1)
								ImpostaGiocata 1,numeri,ruota,posta,k
								numeri1(1) = amb(1)
								numeri1(2) = c
								ImpostaGiocata 2,numeri1,ruota,poste,k
								numeri1(1) = amb(1)
								numeri1(2) = d
								ImpostaGiocata 3,numeri1,ruota,poste,k
								Gioca es
							End If
						Next
					End If
				Next
			Next
		Next
	Next
	ScriviResoconto
	ColoreTesto 1
	Scrivi "                            Ambo Simmetrico..Zagor",1
	Scrivi
	Scrivi "                                   List DjNomade",1
	Scrivi
	ColoreTesto 0
End Sub

«Un giorno senza un sorriso è un giorno perso.»
Charles Spencer Chaplin
 
quote:Originally posted by DjNomade

Ciauz dai una controllatina per eventuali errori...

Codice: 
' da [url]http://forum.lottoced.com/topic.asp?TOPIC_ID=137677[/url]
Sub Main()
	Dim ruota(2)
	Dim numeri(5),numeri1(5),numeri2(5),amb(5)
	Dim posta(2)
	Dim poste(5),postee(5)
	posta(1) = 1
	poste(2) = 1
	k = 13
	ColoreTesto 1
	Scrivi "                            Ambo Simmetrico..Zagor",1
	Scrivi
	Scrivi "                                   List DjNomade",1
	Scrivi
	ColoreTesto 0
	ee = CInt(InputBox("Quante estrazioni vuoi esaminare ?","Estrazioni",60))
	ds1 = 30
	casi = 0
	fin = EstrazioneFin
	ini = fin - ee
	For es = ini To fin
		Messaggio "elab. n° " & es & " del " & DataEstrazione(es) & " [ by DjNomade ]"
		For r = 1 To 10
			For p1 = 1 To 4
				For p2 = p1 + 1 To 5
					a = Estratto(es,r,p1)
					b = Estratto(es,r,p2)
					If(p1 = 1 And p2 = 3)Or(p1 = 2 And p2 = 4)Or(p1 = 3 And p2 = 5) Or(p1 = 1 And p2 = 5) Then
						For r1 = r + 1 To 12
							If r1 = 11 Then r1 = 12
							If p1 = 1 And p2 = 3 Then p3 = 2
							If p1 = 2 And p2 = 4 Then p3 = 3
							If p1 = 3 And p2 = 5 Then p3 = 4
							If p1 = 1 And p2 = 5 Then p3 = 3
							aa = Estratto(es,r1,p3)
							c =(a + b)/2
							d = Diametrale(c)
							If Distanza(a,b) = ds1 And(aa = c Or aa = d) Then
								casi = casi + 1
								Scrivi
								Scrivi String(49,"=") & "  by DjNomade----- caso n° " &(casi),1
								Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r) & " - " & StringaEstratti(es,r) & _
								" ] [ " & Format2(a) & "." & Format2(b) & " ] Dist.Orizz. " & ds1 & "..Posiz." & p1 & "°..Posiz." & p2 & "°"
								Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
								" ] [ " & Format2(aa) & " ] Numero trovato in...Posiz." & p3 & "°"
								amb(1) = Fuori90(c + d)'ambata
								ruota(1) = r
								ruota(2) = r1
								co = 0
								numeri(1) = amb(1)
								ImpostaGiocata 1,numeri,ruota,posta,k
								numeri1(1) = amb(1)
								numeri1(2) = c
								ImpostaGiocata 2,numeri1,ruota,poste,k
								numeri1(1) = amb(1)
								numeri1(2) = d
								ImpostaGiocata 3,numeri1,ruota,poste,k
								Gioca es
							End If
						Next
					End If
				Next
			Next
		Next
	Next
	ScriviResoconto
	ColoreTesto 1
	Scrivi "                            Ambo Simmetrico..Zagor",1
	Scrivi
	Scrivi "                                   List DjNomade",1
	Scrivi
	ColoreTesto 0
End Sub

«Un giorno senza un sorriso è un giorno perso.»
Charles Spencer Chaplin
Clicca per espandere...

Ciao DjNomade,

quando eseguo questo script (con spaziometria 1.2.90) mi da quest'errore:

33l1fub.jpg
 
Ho appena provato ma funziona benissimo anche su Spaziometria
Ciauz

«Un giorno senza un sorriso è un giorno perso.»
Charles Spencer Chaplin
 
quote:Originally posted by DjNomade

Ho appena provato ma funziona benissimo anche su Spaziometria
Ciauz

«Un giorno senza un sorriso è un giorno perso.»
Charles Spencer Chaplin
Clicca per espandere...

Ciao DjNomade,

ho provato e riprovato...ma niente...sempre lo stesso errore.
Non capisco cosa sia successo?
Leggevo che alcuni di voi posseggono l8+...io ho la versione 4117...solo che è demo...cioè si deve registrare. Mica sai qualche modo per renderlo funzionante?

Grazie
 
quote:Originally posted by barattolo
Leggevo che alcuni di voi posseggono l8+...io ho la versione 4117...solo che è demo...cioè si deve registrare (quindi pagare). Mica sai qualche modo per renderlo funzionante?
Grazie
Clicca per espandere...
non è legale rispondere a questa domanda.


Anche a me lo script funziona perfettamente su Spaziometria.

Abbiamo a disposizione un programma gratis che secondo me supera negli script abbondantemente L8+ e continaute a voler usare L8+ ?????

Amici cari, non sono i programmi o gli script che danno gli esiti, essi sono solo degli strumenti, se non vi sforzate ad usare vs. idee non arriverete a nessun traguardo.
 
quote:Originally posted by Zagor

Ciao Claudio , volevo chiederti una cosa , se vuoi , scrivimi a

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)
Clicca per espandere...

Potresti accennarmi di che trattasi?
 
quote:Originally posted by claudio8

quote:Originally posted by barattolo
Leggevo che alcuni di voi posseggono l8+...io ho la versione 4117...solo che è demo...cioè si deve registrare (quindi pagare). Mica sai qualche modo per renderlo funzionante?
Grazie
Clicca per espandere...
non è legale rispondere a questa domanda.


Anche a me lo script funziona perfettamente su Spaziometria.

Abbiamo a disposizione un programma gratis che secondo me supera negli script abbondantemente L8+ e continaute a voler usare L8+ ?????

Amici cari, non sono i programmi o gli script che danno gli esiti, essi sono solo degli strumenti, se non vi sforzate ad usare vs. idee non arriverete a nessun traguardo.
Clicca per espandere...

Ciao claudio8,

e grazie per la risposta...anche se non ti conoscevo e nemmeno menzionato...ma comunque va bene lo stesso...grazie.
Mi parlavi "NON E'LEGALE...BISOGNA PAGARE"

Una domanda che va al di la del lotto...ma qua sul forum...lo sai cosa è legale e cosa non lo è?
Forse tu fai confusione...e dai dei cattivi consigli...ops...spero suggerimenti alle persone...che tra l'altro non conosci nemmeno!

Prima di scrivere delle cose che potrebbero trasformare...un argomento che nemmeno tu conosci la risposta...attenzione...riflettiamoci un poco in più sopra!
E non parlo di metodi, statistiche...quindi ovvio...non parlo di lotto. Meditiamo...prima di scrivere...meditiamo...

In ogni modo...visto che la tua forza spirituale ti ha portato a rispondere a questo post...senza essere chiamato...sicuramente ti sei sentito parte lesa...e quindi se ciò ti ha turbato...ti chiedo SCUSA!

Ciao
 
quote:Originally posted by barattolo

Originally posted by claudio8

In ogni modo...visto che la tua forza spirituale ti ha portato a rispondere a questo post...senza essere chiamato...sicuramente ti sei sentito parte lesa...e quindi se ciò ti ha turbato...ti chiedo SCUSA!
Ciao
Clicca per espandere...
Non mi sono sentito parte lesa, e non devi scusarti con me.
Sei libero di fare qualsiasi richiesta.
Clicca per espandere...
 
quote:Originally posted by barattolo

quote:Originally posted by DjNomade

Ciauz dai una controllatina per eventuali errori...

Codice: 
' da [url]http://forum.lottoced.com/topic.asp?TOPIC_ID=137677[/url]
Sub Main()
	Dim ruota(2)
	Dim numeri(5),numeri1(5),numeri2(5),amb(5)
	Dim posta(2)
	Dim poste(5),postee(5)
	posta(1) = 1
	poste(2) = 1
	k = 13
	ColoreTesto 1
	Scrivi "                            Ambo Simmetrico..Zagor",1
	Scrivi
	Scrivi "                                   List DjNomade",1
	Scrivi
	ColoreTesto 0
	ee = CInt(InputBox("Quante estrazioni vuoi esaminare ?","Estrazioni",60))
	ds1 = 30
	casi = 0
	fin = EstrazioneFin
	ini = fin - ee
	For es = ini To fin
		Messaggio "elab. n° " & es & " del " & DataEstrazione(es) & " [ by DjNomade ]"
		For r = 1 To 10
			For p1 = 1 To 4
				For p2 = p1 + 1 To 5
					a = Estratto(es,r,p1)
					b = Estratto(es,r,p2)
					If(p1 = 1 And p2 = 3)Or(p1 = 2 And p2 = 4)Or(p1 = 3 And p2 = 5) Or(p1 = 1 And p2 = 5) Then
						For r1 = r + 1 To 12
							If r1 = 11 Then r1 = 12
							If p1 = 1 And p2 = 3 Then p3 = 2
							If p1 = 2 And p2 = 4 Then p3 = 3
							If p1 = 3 And p2 = 5 Then p3 = 4
							If p1 = 1 And p2 = 5 Then p3 = 3
							aa = Estratto(es,r1,p3)
							c =(a + b)/2
							d = Diametrale(c)
							If Distanza(a,b) = ds1 And(aa = c Or aa = d) Then
								casi = casi + 1
								Scrivi
								Scrivi String(49,"=") & "  by DjNomade----- caso n° " &(casi),1
								Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r) & " - " & StringaEstratti(es,r) & _
								" ] [ " & Format2(a) & "." & Format2(b) & " ] Dist.Orizz. " & ds1 & "..Posiz." & p1 & "°..Posiz." & p2 & "°"
								Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
								" ] [ " & Format2(aa) & " ] Numero trovato in...Posiz." & p3 & "°"
								amb(1) = Fuori90(c + d)'ambata
								ruota(1) = r
								ruota(2) = r1
								co = 0
								numeri(1) = amb(1)
								ImpostaGiocata 1,numeri,ruota,posta,k
								numeri1(1) = amb(1)
								numeri1(2) = c
								ImpostaGiocata 2,numeri1,ruota,poste,k
								numeri1(1) = amb(1)
								numeri1(2) = d
								ImpostaGiocata 3,numeri1,ruota,poste,k
								Gioca es
							End If
						Next
					End If
				Next
			Next
		Next
	Next
	ScriviResoconto
	ColoreTesto 1
	Scrivi "                            Ambo Simmetrico..Zagor",1
	Scrivi
	Scrivi "                                   List DjNomade",1
	Scrivi
	ColoreTesto 0
End Sub

«Un giorno senza un sorriso è un giorno perso.»
Charles Spencer Chaplin
Clicca per espandere...

Ciao DjNomade,

quando eseguo questo script (con spaziometria 1.2.90) mi da quest'errore:

33l1fub.jpg
Clicca per espandere...





Quell'errore lo dà perche devi dichiarare la variabile k
normalmente si fà
dim k
all'inizio dello script dopo sub main
per non avere quello e alti errori del genere se usi Spaziometria basta cancellare OPTION EXPLICIT e non ci sarà più bisogno di dichiarare le variabili
Per quanto riguarda l8 funziona non dà errori.

°°°esselotto°°°
 
Ciao Claudio , problema risolto.

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)
 
Cia Dj , grazie per il listato , e un grazie ancora più sentito , in quanto spesso Vi si fà perdere tempo per listati , come questo, che non dimostrano essere affato proficui.:(:(

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)
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 19 luglio 2025
    Bari
    70
    37
    36
    68
    01
    Cagliari
    57
    02
    64
    33
    41
    Firenze
    18
    62
    09
    05
    06
    Genova
    36
    10
    74
    37
    42
    Milano
    39
    07
    58
    23
    22
    Napoli
    18
    69
    28
    36
    40
    Palermo
    71
    66
    72
    64
    23
    Roma
    19
    64
    39
    77
    10
    Torino
    83
    63
    71
    08
    72
    Venezia
    51
    83
    26
    50
    74
    Nazionale
    89
    81
    63
    32
    03
    Estrazione Simbolotto
    Nazionale
    16
    32
    21
    19
    03
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto