Script per chi può.....

Roby · 24 Aprile 2011

Salve amici , nel forum c'è questo ottimo metodo messo a disposizione dall'amico Marco , titolo topic " SOLO X INTENDITORI" , dopo aver chiesto autorizzazione , Vi chiedo se qualcuno volesse gentilmente fare uno script.

Grazie anticipate.

Buona Pasqua a tutti
Oggi vi faccio un regalo
Rilevate in 2 ruote un ambo isotopo con la stessa distanza ciclometrica.
A rilevamento avvenuto,prendiamo il numero più piccolo e quello
più grande dei 4 numeri e facciamo la differenza numerica.
il risultato lo moltiplichiamo x2 e lo andiamo a sommare al numero
più grande.Questa sarà la nostra ambata,i 2 abbinamenti sono i medesimi delle
nostre operazioni.Poi metteremo in gioco una terzina col vertibile dell'ambata per pararsi il lato B.L'unica considerazione è quella che...le condizioni più favorevoli sono quelle tra:
Ruote consecutive
Ruote gemelle
Ruote diametrali
Ma vi assicuro che i risultati sono eccellenti in qualsiasi condizione
Questa è la mia previsione:
L'ultima estrazione ci offre.
BA 17-41 3°-5° pos distanza ciclometrica 24
NA 08-74 3°-5° pos distanza ciclometrica 24
Numero più piccolo 8
Numero più grande 74
74-8=66--->66x2=132--->132-90=42
74+42=116---<116-90=26 ambata
BA-NA 26
26-8
26-74
62-8-74
Per chi a voglia di controllare,noterà che...
qualsiasi sia la vincita,avviene nei primi 5/6 colpi
quindi rendo valida la previsione in questi colpi

Parlar sensa pensar xè come sparar sensa mirar

Bye bye.

Mauro
YES WE CAN

Zagor · 24 Aprile 2011

Porto su.

Bye bye.

Mauro
YES WE CAN

esselotto · 25 Aprile 2011

Ciao avevo qualcosa del genere spero che vada Bene
CONTROLLA TU STESSO ESITI E RICERCA non ho il TEMPO MATERIALE DI FARLO.

Codice:

Sub Main()
	Dim ruote(11)
	Dim rt(2)
	Dim n(4),nx(4),di(4)
	Dim posta(1),poste(2),postet(3)
	Dim nu(2),na(5),na1(5),na2(5),na3(5),na4(5)
	posta(1) = 1
	poste(2) = 1
	postet(2) = 1
	postet(3) = 1
	ColoreTesto 2
	Scrivi String(75,"*"),1
	ColoreTesto 0
	Scrivi String(15," ") & "SOLO per INTENDITORI autore Marco (richiesto da Zagor)",1
	Scrivi String(15," ") & "su Lottoced ",1
	ColoreTesto 1
	Scrivi String(15," ") & "programmed by °°°esselotto°°° ",1
	ColoreTesto 2
	Scrivi String(75,"*"),1
	ColoreTesto 0
	Scrivi String(75,"_"),1
	Scrivi String(75,"_"),1
	indietro = CInt(InputBox("Quante Estrazioni vuoi esaminare ?..","°°°esselotto°°°",100))
	If indietro = False Then Exit Sub
	clp = CInt(InputBox("Colpi di gioco?..","°°°esselotto°°°",9))
	If clp = False Then Exit Sub
	ruo = CInt(InputBox("Scelta Rilevamento 1)Ruote Consecutive  2)Diametrali  3)gemellari ?..","°°°esselotto°°°",2))
	If ruo = False Then Exit Sub
	co = 0
	ini = EstrazioneFin - indietro
	fin = EstrazioneFin
	For es = ini To fin
		Messaggio "elaborazione. estraz. " &(es)
		For r = 1 To 9
			rt(1) = r
			For p = 1 To 4
				For pp = p + 1 To 5
					n(1) = CInt(Estratto(es,r,p))
					n(2) = CInt(Estratto(es,r,pp))
					di(1) = Distanza(n(1),n(2))
					gg = Array(0,10,9,8,7,6)
					For rr = r + 1 To 10
						rs1 = r + 1
						rs2 = r + 5
						If rs2 > 10 Then
							rs2 = rs2 - 10
						End If
						If r < 6 Then
							rs3 = gg(r)
						End If
						If(rr = rs1 And ruo = 1) Or(rr = rs2 And ruo = 2) Or(rr = rs3 And ruo = 3) Then
						rt(2) = rr
						tr = 0
						n(3) = Estratto(es,rr,p)
						n(4) = Estratto(es,rr,pp)
						di(2) = Distanza(n(3),n(4))
						If di(1) = di(2) And n(1) <> n(3) And n(1) <> n(4) And n(2) <> n(3)And n(2) <> n(4)Then ' se uguale distanza
						For a = 1 To 4
							nx(a) = n(a)
						Next
						Call OrdinaMatrice (nx,1)
						dif = Abs(nx(1) - nx(4))
						mol = Fuori90(dif*2)
						am = Fuori90(nx(4) + mol)
						am1 = Vert(am)
						If ruo = 1 Then ruotax = " Rilevamento Ruote Consecutive"
						If ruo = 2 Then ruotax = " Rilevamento Ruote Diametrali"
						If ruo = 3 Then ruotax = " Rilevamento Ruote Gemellariààààààààààààààààààààààààààààààààààààààààààààààààààààààààààà"
						co = co + 1
						Scrivi String(75,"-") & " Caso " & co,1
						Scrivi String(75,"-"),1
						Scrivi DataEstrazione(es) & "( " & SiglaRuota(r) & " ) - [ " & StringaEstratti(es,r) & " ] " & _
						"[ " & Format2(n(1)) & " " & Format2(n(2)) & " ] in pos. " & p & "^ " & pp & "^"
						Scrivi DataEstrazione(es) & "( " & SiglaRuota(rr) & " ) - [ " & StringaEstratti(es,rr) & " ] " & _
						"[ " & Format2(n(3)) & " " & Format2(n(4)) & " ] in pos. " & p & "^ " & pp & "^"
						ColoreTesto 2
						Scrivi Format2(di(1)) & " <--- Dis.uguale Rilevata..." & ruotax
						ColoreTesto 0
						Scrivi
						Scrivi "Calcoli..."
						Scrivi Format2(nx(1)) & " " & Format2(nx(2)) & " " & Format2(nx(3)) & " " & Format2(nx(4)) & "  <--- Numeri ordinati"
						Scrivi Format2(nx(1)) & " - " & Format2(nx(4)) & " = " & dif & " <--- Diff. tra il Maggiore e Minore "
						Scrivi Format2(dif) & " x 02 = " & Format2(mol) & " <--- Raddopio Differenza "
						Scrivi Format2(nx(4)) & " + " & Format2(mol) & " = " & Format2(am) & " <--- Ambata "
						Scrivi String(10,".")
						ruote(1) = 11
						nu(1) = am
						ImpostaGiocata 1,nu,rt,posta,clp,1
						na(1) = am
						na(2) = nx(1)
						ImpostaGiocata 2,na,rt,poste,clp
						na1(1) = am
						na1(2) = nx(4)
						ImpostaGiocata 3,na1,rt,poste,clp
						na2(1) = am1
						na2(2) = nx(1)
						na2(3) = nx(4)
						ImpostaGiocata 4,na2,rt,poste,clp
						Gioca es
					End If
				End If
			Next
		Next
	Next
Next
Next
ScriviResoconto
ScriviResoconto 1
ColoreTesto 1
Scrivi "programmed by °°°esselotto°°°",1
Scrivi"Metodo Solo per INTENDITORI",1
En

esselotto · 25 Aprile 2011

DATO MOLTEPLICITA', CASI GIOCABILI HO AGGIUNTO INPUT BOX PER
SCELTA RILEVAMENTO RUOTE CONSECUTIVE DIAMETRALI GEMELLARI.CONTROLLA ANCHE QUESTA PARTE SE TUTTO OK.

esselotto

scoglio2 · 25 Aprile 2011

indietro = CInt(InputBox("Quante Estrazioni vuoi esaminare ?..","°°°esselotto°°°",100))

ciao esse
mi da errore variabile non definita indietro errore script

esselotto · 25 Aprile 2011

quote:Originally posted by scoglio2

indietro = CInt(InputBox("Quante Estrazioni vuoi esaminare ?..","°°°esselotto°°°",100))

ciao esse
mi da errore variabile non definita indietro errore script

SOLO SULLA TUA VERSIONE DA QUESTO ERRORE [8D]
CON CONTROLLO INTENDEVO ESITI. CAPITO?...[8D]

GIRA PERFETTAMENTE NON PUOI SCRIVERE SU OGNI MIO SCRIPT CHE DA ERRORI
SE NON SONO VERI.

RIFATTI L'AGGIORNAMENTO DELLA VERSIONE CHE USI E REINSTALLA

[8D]

esselotto · 25 Aprile 2011

AGGIORNAMENTO SPAZIOMETRIA SI TROVA A QUESTO COLLEGAMENTO

http://forum.lottoced.com/topic.asp?TOPIC_ID=127466

MENTRE IL CODICE PER SCOMPATTARE IL FILE ZIPPATO E
spazioscript (IN MINUSCOLO)

pfca · 25 Aprile 2011

Buongiorno,
scusate se intervengo, dovrebbe essere sufficiente cancellare la prima riga che il programma da in automatico quando si apre la pagina script:
Option Explicit

Francesco

elephantbig · 25 Aprile 2011

quote:Originally posted by esselotto

AGGIORNAMENTO SPAZIOMETRIA SI TROVA A QUESTO COLLEGAMENTO

http://forum.lottoced.com/topic.asp?TOPIC_ID=127466

MENTRE IL CODICE PER SCOMPATTARE IL FILE ZIPPATO E
spazioscript (IN MINUSCOLO)

Ciao Esse

solo per la precisione dell'informazione.
Gia da un paio di versioni la password non è piu richiesta.
Ciao e buona giornata

LuigiB · 25 Aprile 2011

quote:Originally posted by pfca

Buongiorno,
scusate se intervengo, dovrebbe essere sufficiente cancellare la prima riga che il programma da in automatico quando si apre la pagina script:
Option Explicit

Francesco

ha ragione ! Pero sarebbe sempre meglio usarlo ...quindi per risolvere l'errore si dovrebbero dichiarare esplicitamente le variabili segnalate

esselotto · 25 Aprile 2011

quote:Originally posted by elephantbig

quote:Originally posted by esselotto

AGGIORNAMENTO SPAZIOMETRIA SI TROVA A QUESTO COLLEGAMENTO

http://forum.lottoced.com/topic.asp?TOPIC_ID=127466

MENTRE IL CODICE PER SCOMPATTARE IL FILE ZIPPATO E
spazioscript (IN MINUSCOLO)

Clicca per espandere...

Ciao Esse solo per la precisione dell'informazione.
Gia da un paio di versioni la password non è piu richiesta.
Ciao e buona giornata

Ciao anche a te Elephantbig.
che precisione di informazione

Zagor · 25 Aprile 2011

Grazie Esse , gira ok.

Bye bye.

Mauro
YES WE CAN

imported_n/a · 25 Aprile 2011

Ciao a tutti,
siete un gruppo formidabile
io purtroppo non ce la fò a starvi dietro[)]
volevo chiedervi come posso fare x controllare lo script
grazie e buona continuazione della Pasqua

Parlar sensa pensar xè come sparar sensa mirar

claudio8 · 25 Aprile 2011

quote:Originally posted by LuigiB

quote:Originally posted by pfca

Buongiorno,
scusate se intervengo, dovrebbe essere sufficiente cancellare la prima riga che il programma da in automatico quando si apre la pagina script:
Option Explicit

Francesco

Clicca per espandere...

ha ragione ! Pero sarebbe sempre meglio usarlo ...quindi per risolvere l'errore si dovrebbero dichiarare esplicitamente le variabili segnalate

oppure per i "fannulloni furbetti" come me, andare in Configurazioni - Scripr e deselezionare l'opzione "Option esplicit".

La gita fuoriporta è finita. Si riprende

imported_n/a · 25 Aprile 2011

Sono riuscito finalmente a far girare lo script
Volevo chiedere a ESSELOTTO se è possibile eliminare nello script
tutte quelle previsioni che compare l'ambata nelle 9 estrazioni
precedenti alla condizione per vedere se il resoconto migliora

Parlar sensa pensar xè come sparar sensa mirar

claudio8 · 25 Aprile 2011

quote:Originally posted by Marco

Sono riuscito finalmente a far girare lo script
Volevo chiedere a ESSELOTTO se è possibile eliminare nello script
tutte quelle previsioni che compare l'ambata nelle 9 estrazioni
precedenti alla condizione per vedere se il resoconto migliora

Parlar sensa pensar xè come sparar sensa mirar

x Marco
Senza voler polemizzare sulla tua richiesta e sul bel lavoro fatto da Esselotto.
Vorrei chiederti come credi sia possibile che con 398 casi rintracciati tra ruote gemelleri diametrali e consecutive, in 100 estrazioni, (circa 4 x estrazione) si possa pensare di applicare un metodo di qualsivoglia algoritmo, che abbia una cosi alta capacità di esiti.

I numeri che vengono estratti sono in "genere" salvo brogli, casuali e non ripetitivi secondo un qualche algoritmo costante.

La ripetizione degli eventi o è riscontrabile in brevi periodi o in casi rari, questa è una regola del lotto che chi legge o si applica nel gioco deve conoscere.

Se ipotizzassimo che al verificarsi di una certa condizione molto frequente, si verificasse automaticamente un determinato evento(esito positivo) con la frequenza con cui si sono verificati i casi da te ricercati, ci sarebbero solo ripetizioni di estrazioni con ambi e terni sempre uguali o simili.

Ripeto che il mio intervento non vuole essere polemico ma solo critico e costruttivo, ben vengano i metodi, ma se sono x condizioni frequenti, secondo il mio modesto parere sono solo aleatori.
ciao
Claudio

Roby · 25 Aprile 2011

ciao claudio

non sempre è vero quello che affermi.

comunque, basta applicare la regola della isotopia, oppure l'indice mensile, e si dimezzano o più i casi.

-----------------------------
hobby e passatempo, il bello dello studio e della ricerca

Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.

claudio8 · 25 Aprile 2011

ciao Rubino
mi fa piacere leggerti, tutto bene?
a cosa ti ri riferivi nello specifico? , sei d'accordo su cosa?, sul breve periodo o sulla rarità?

Uno scambio di pensiri fa sempre piacere. ciao
claudio

Lo spot che conosciamo dice "Ti Piace vincere facile ? " che tradotto in pratica significa "Ti Piace..rebbe vincere facile !!!"

Roby · 25 Aprile 2011

quote:Vorrei chiederti come credi sia possibile che con 398 casi rintracciati tra ruote gemelleri diametrali e consecutive, in 100 estrazioni, (circa 4 x estrazione) si possa pensare di applicare un metodo di qualsivoglia algoritmo, che abbia una cosi alta capacità di esiti.

</u>

intendevo dire, che quando un metodo genera molte previsioni, perchè come condizione ha mediamente 4,8 casi ad ogni estrazione, basta mettere ulteriori condizioni, del tipo fitra solo casi con isotopia oppure per indice mensile di estrazione, ed i casi trovati e quindi di previsioni proposte, si abbassano drasticamente come quantità.

se poi si applicano altre 2/3 ulteriori regole, troveresti pure
le ruote fisse e una probabilità di successi su di esse che sale intorno al 80%-90% per gioco di ambi e non di ambate.

comunque, è solo una mia teoria.

-----------------------------
hobby e passatempo, il bello dello studio e della ricerca

Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.

imported_n/a · 25 Aprile 2011

Ciao Claudio,
Sicuramente hai ragione,io non sono abituato a usare
questo tipo di listati,sono antico e mi arrangio con carta e penna.
Tra l'altro ho imparato a mettere in pratica metodini con statistica breve perchè tutto ha una ciclicità e anche i grandi fanno cilecca
Ho fatto una richiesta per vedere se....togliendo quelle condizioni
con l'ambata presente nelle 9 estrazioni precedenti riesce a migliorare
qualcosa,altrimenti pazienza ognuno resta con le proprie convinzioni

Parlar sensa pensar xè come sparar sensa mirar

Script per chi può.....

Roby

Guest

Advanced Member >PLATINUM<

Advanced Member >GOLD<

Advanced Member >GOLD<

Super member

Advanced Member >GOLD<

Advanced Member >GOLD<

Advanced Member >GOLD<

Advanced Member >PLATINUM<

LuigiB

Guest

Advanced Member >GOLD<

Advanced Member >PLATINUM<

Advanced Premium Member

Premium Member

Advanced Premium Member

Premium Member

Roby

Guest

Premium Member

Roby

Guest

Advanced Premium Member