Aiuto script x LuigiB - Claudio8 e ...

[filippok9]

Per il grosso grazie mi riferivo a chi ha contribuito a dare un aiuto per lo script, anzi volevo dire anche che si può migliorare facendo si di inserire fino ad un massimo di tre ruote per ambata e tre numeri per ambo, secondo me come 007 è uno dei migliori, mi rivolgo con molta cortesia sia a Claudio8, Francesco o chiunque creda di poter dare un contributo per migliorare il metodo.
Un grazie ancora a LuigiB. Per Spaziometria è unico nel suo genere.
Saluti Filippo

ecco il metodo da migliorare

'SPY DETECTOR - L8+

'SPY DETECTOR pronostica in automatico un numero per ambata e due numeri per ambo su due ruote e tutte.
'SPY DETECTOR permette di eseguire ricerche spia in presenza di numeri isotopi ripetuti sortiti su due ruote anche non consecutive.
'SPY DETECTOR è in grado di rintracciare un numero isotopo ripetuto su due ruote in automatico o definito dall'utente.
'SPY DETECTOR permette di variare le estrazioni di spyscan sull'archivio.
'SPY DETECTOR fornisce un riepilogo statistiche risultati ottenuti per ambata e ambo.

'SCRIPT L8+

Const COLPI = 12
Public Ruota(2)
Public Numeri(90)
Public GlobalFreq(90)
Public Ambi(90,90)
Public TotCasi,CasiNeg
Dim varList()
Dim varData()
Dim varRuote1()
Dim varRuote2()
Public StatAmbi(12),StatAmbiTutte(12),StatAmbate(12)
Function Isotopo(estrazione,video)
Isotopo = 0
For b = 1 To 5
For r1 = 1 To 9
num1 = Estratto(estrazione,r1,b)
num1 = CInt(num1)
For r2 = r1 + 1 To 10
num2 = Estratto(estrazione,r2,b)
num2 = CInt(num2)
If num1 = num2 Then
trovati = 0
For c = 1 To 10
If Estratto(estrazione,c,b) = num1 Then trovati = trovati + 1
Next
If trovati = 2 Then
If video = 1 Then
ColoreTesto 1
Scrivi "SPY DETECTOR BY PREDICTOR - <http://RAMCOLOTTO>"
Scrivi "---------------------------------------------"
Scrivi
ColoreTesto 2
Scrivi "NUMERO SPIA " & Format2(num1) & " " & Left(NomeRuota(r1),2) & _
"-" & Left(NomeRuota(r2),2) & "(" & DataEstrazione(estrazione) & ")"
Scrivi
ColoreTesto 0
End If
Isotopo = num1
Exit Function
End If
End If
Next
Next
Next
End Function
Function NumSpiaIso(estrazione,numero)
NumSpiaIso = 0
Ruota(1) = 0
Ruota(2) = 0
For b = 1 To 5
For r1 = 1 To 9
num1 = Estratto(estrazione,r1,b)
For r2 = r1 + 1 To 10
num2 = Estratto(estrazione,r2,b)
If num1 = num2 Then
trovati = 0
For c = 1 To 10
If Estratto(estrazione,c,b) = num1 Then trovati = trovati + 1
Next
If trovati = 2 And num1 = numero Then
TotCasi = TotCasi + 1
ReDim Preserve varList(TotCasi)
ReDim Preserve varData(TotCasi)
ReDim Preserve varRuote1(TotCasi)
ReDim Preserve varRuote2(TotCasi)
varRuote1(TotCasi) = r1
varRuote2(TotCasi) = r2
varData(TotCasi) = estrazione
varList(TotCasi) = DataEstrazione(estrazione) & ": "
varList(TotCasi) = varList(TotCasi) & "[" & Left(NomeRuota(r1),2) & "-" & Left(NomeRuota(r2),2) & "]"
NumSpiaIso = num1
Ruota(1) = r1
Ruota(2) = r2
Exit Function
End If
End If
Next
Next
Next
End Function
Function PiuFrequenti(inizio)
Dim totfreq(90)
For a = inizio To inizio +(colpi - 1)
For b = 1 To 5
num = Estratto(a,Ruota(1),b)
totfreq(num) = totfreq(num) + 1
num = Estratto(a,Ruota(2),b)
totfreq(num) = totfreq(num) + 1
Next
Next
For c1 = 1 To 90
If totfreq(c1) > 0 Then Numeri(c1) = Numeri(c1) + 1
GlobalFreq(c1) = GlobalFreq(c1) + totfreq(c1)
Next
End Function
Function FreqAmbi(inizio)
For a = inizio To inizio +(colpi - 1)
For b = 1 To 5
num1 = Estratto(a,Ruota(1),b)
For c = 1 To 5
num2 = Estratto(a,Ruota(1),c)
Ambi(num1,num2) = Ambi(num1,num2) + 1
Next
Next
For b = 1 To 5
num1 = Estratto(a,Ruota(2),b)
For c = 1 To 5
num2 = Estratto(a,Ruota(2),c)
Ambi(num1,num2) = Ambi(num1,num2) + 1
Next
Next
Next
End Function
Function AmbateUscite(inizio,condizione,num)
Dim a,b,numest1,numest2
AmbateUscite = 0
For a = inizio To inizio +(colpi - 1)
For b = 1 To 5
numest1 = Estratto(a,varRuote1(condizione),b)
numest2 = Estratto(a,varRuote2(condizione),b)
If num = numest1 Then
Scrivi "Ambata " & num & " " & Left(NomeRuota(varRuote1(condizione)),2) & _
" (" & a - inizio + 1 & "ºc)"

 

[claudio8]

quote:Originally posted by filippok9

Per il grosso grazie mi riferivo a chi ha contribuito a dare un aiuto per lo script, anzi volevo dire anche che si può migliorare facendo si di inserire fino ad un massimo di tre ruote per ambata e tre numeri per ambo, secondo me come 007 è uno dei migliori, mi rivolgo con molta cortesia sia a Claudio8, Francesco o chiunque creda di poter dare un contributo per migliorare il metodo.

ecco il metodo da migliorare

'SPY DETECTOR

filippok9

Ti riposto il preliminare scritto dall'autore con qualche specifica in più per chiarire e chiarirci meglio tutti il funzionamento dello script.

'SPY DETECTOR permette di eseguire ricerche di spia in presenza di soli 2 numeri isotopi ripetuti sortiti nella stessa estrazione su due ruote differenti anche non consecutive.

'SPY DETECTOR pronostica in automatico uno solo dei numeri + frequenti-presenti per ambata e due numeri per ambo su due ruote e tutte.

'SPY DETECTOR è in grado di rintracciare un numero isotopo ripetuto su due ruote in automatico o definito dall'utente tramite input box.
'SPY DETECTOR permette di variare le estrazioni di spyscan sull'archivio. (estrazioni pregresse di controllo (100-3000)?)
'SPY DETECTOR fornisce un riepilogo statistiche risultati ottenuti per unica ambata e ambo sulle 2 ruote su cui è stata rintracciata la spia.

Detto questo, poichè la ricerca spia viene fatta in relazione ai numeri spia scelti, e considerato che il programma va a ritroso a cercare i casi aventi l'isotopia dello stesso numero su qualsiasi altra coppia di ruote, si potrebbe avere per esempio questi casi:

19.03.2005: [Fi-Na]... quale  dovrebbe essere la terza ruota
13.04.2005: [Pa-To]
30.08.2005: [Ge-Mi]
22.10.2005: [Ge-Ro]

quale dovrebbe essere la logica per definire la 3a ruota di ricerca, caso x caso?
Ti chiedo questo perchè la logiga che lega le ruote di spia con le 3e ruote di ricerca esito deve essere sempre la stessa.

Per quanto riguarda i numeri per ambata o ambo ne possiamo tirare fuori quanti ne vuoi, credo.

Ciao

NB:
con 1000 estrazioni pregresse, fine archivio al 20 agosto,
se facciamo girare il programma su Spaziometria io ottengo questo outpt:

SPY DETECTOR BY PREDICTOR - 
---------------------------------------------

NUMERO SPIA 83 Mi-To(20.08.2011)

AMBATA IN GIOCO: 55
AMBO IN GIOCO : 55.29
CONDIZIONI VERIFICATESI ED ESITI OTTENUTI
-----------------------------------------
19.03.2005: [Fi-Na]
Ambata 55 Fi (2ºc)

13.04.2005: [Pa-To]
Ambata 55 Pa (5ºc)

14.05.2005: [Ge-Ro]
Ambata 55 Ro (1ºc)
Ambata 55 Ro (5ºc)

30.08.2005: [Ge-Mi]
Ambata 55 Mi (1ºc)
Ambata 55 Mi (3ºc)
Ambo 55.29 Mi (3ºc)

22.10.2005: [Ge-Ro]
Ambata 55 Ge (9ºc)

22.12.2005: [Ca-Na]
Ambata 55 Ca (2ºc)
Ambata 55 Na (3ºc)
Ambata 55 Ca (8ºc)
Ambata 55 Na (9ºc)

27.12.2005: [Na-To]
Ambata 55 Na (1ºc)
Ambata 55 Na (7ºc)

21.01.2006: [Ba-Pa]
Negativo
Ambo Tutte 55.29 To (7ºc)

26.04.2006: [Ba-Ro]
Negativo

17.08.2006: [Na-Ro]
Ambata 55 Ro (3ºc)
Ambata 55 Ro (4ºc)
Ambo 55.29 Ro (3ºc)
Ambo Tutte 55.29 Fi (4ºc)
Ambo Tutte 55.29 Ve (9ºc)

10.05.2007: [Ge-Na]
Negativo

14.06.2008: [Ca-To]
Ambata 55 To (6ºc)
Ambata 55 To (9ºc)

17.07.2008: [Mi-Na]
Ambata 55 Mi (6ºc)

02.10.2008: [Na-Pa]
Ambata 55 Na (6ºc)
Ambo Tutte 55.29 Ca (5ºc)

27.04.2009: [Mi-To]
Ambata 55 Mi (5ºc)
Ambata 55 Mi (9ºc)

16.02.2010: [Mi-Ro]
Ambata 55 Mi (3ºc)
Ambata 55 Ro (7ºc)
Ambo 55.29 Mi (3ºc)

17.06.2010: [Ba-Mi]
Ambata 55 Mi (7ºc)
Ambata 55 Ba (8ºc)
Ambata 55 Mi (8ºc)
Ambata 55 Ba (9ºc)
A

 

[filippok9]

Ciao Claudio8, hai perfettamente ragione scusami se non sono stato chiaro, cercherò di spiegarmi meglio abbi un po’ di pazienza vorrei contribuire anche io in questo forum con qualche idea, cercando di comprendere con il tempo questo mondo per me al momento sconosciuto, lo script.

'SPY DETECTOR pronostica in automatico uno solo dei numeri + frequenti-presenti per ambata e due numeri per ambo su due ruote e tutte.

1) Eventuale modifica
'SPY DETECTOR pronostica in automatico uno solo dei numeri + frequenti-presenti per ambata e TRE numeri per ambo su due ruote e tutte. (Accoppiare all’ambata + frequente, tre numeri avendo due ambi + frequenti su ruota e tutte)


2) Casi spia ricercati, la logica per definire la terza ruota è solo nel caso in cui si verificasse il numero isotopo in tre ruote nella stessa estrazione.

Ti ringrazio per avermi risposto facendomi capire di essere più chiaro, spero questa volta di esserci riuscito, ed eventualmente, secondo tè, si può applicare questa modifica o qualche altra idea migliore.

Cordiali saluti Filippo


filippok9

 

[claudio8]

Caro filippok9 e Luigi

sto leggendo attentamente lo script e a primo acchito lo trovo ben fatto ma alquanto articolato forse perche è stato scritto diverso tempo addietro e non utilizza funzioni attualmente presenti in spazioscript o lottoscript.
Ritengo quindi che se si debba intervenire sarebbe meglio rifarlo completamente o trovare qualcosa di più recente.

Saluti

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

Ti ho scritto quanto sopra prima di leggere la tua,

L'ambata è sempre il 1° numero dell'ambo, esso è la base x la ricerca dell'ambo.
Per le isotopie sulle tre ruote, ti posso assicurere che hanno molta meno frequenza di quelle a 2 per cui avresti molto meno casi da esaminare con comseguente (niente di matematico, tutto aleatorio nei giochi)inferiore attendibilità della previsione.

Cerca qualcosa di simile sul web perchè come ti ho già detto, le logiche costruttive di questo script sono alquanto obsolete e quindi impegnative da modificare.

ciao

 

[filippok9]

Ciao Claudio8. Sicuramente hai ragione sul fatto che è stato fatto diverso tempo fa, di recente simile a questo metodo non ho trovato niente, lo trovo interessante per le previsioni, perché raramente si accavallano tra di loro avendo ruote diverse previsionali, quindi sono più attendibili secondo la mia opinione, per quanto riguarda di rifarlo completamente, là e di tua competenza per la conoscenza dello script.

Un grazie per la tua disponibilità.
Filippo



filippok9

 

[LuigiB]

Intervengo anche io per dire che da un rapido sguardo il listato che ho visto qualche post piu su è scritto molto bene forse voi vorreste adattarlo
ma magari è proprio lo script che nella mente di chi lo ha ideato
aveva altre necessita che non si presta ad esserlo.
In questo caso Claudio fai il salto di qualita e invece di modificare crea ...
Ciao !

 

[filippok9]

Ciao Luigi, senza dubbio Claudio è Bravo lo ha dimostrato e ci riuscirà sicuramente a fare il salto di qualità creandolo.
Saluti Filippo

filippok9

 

[claudio8]

quote:Originally posted by LuigiB

Intervengo anche io per dire che da un rapido sguardo il listato che ho visto qualche post piu su è scritto molto bene forse voi vorreste adattarlo
ma magari è proprio lo script che nella mente di chi lo ha ideato
aveva altre necessita che non si presta ad esserlo.
In questo caso Claudio fai il salto di qualita e invece di modificare crea ...
Ciao !

Pensavo anch'io che fosse la miglior cosa, infatti avevo scritto:
"Ritengo quindi che se si debba intervenire sarebbe meglio rifarlo completamente " o trovare qualcosa di più recente [/red]"
perche il tempo è sempre poco e devo anche trovare i numeri.
Suggerisco a filippo di testare la tecnica prima di andare avanti perchè l'ambata che mi sembtra valida ha comunque un esito troppo lungo se losi gioca x 2 ruote x 9 colpi.

Ciao

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

 

[firefox]

Salve a tutti
mi associo a quanto scritto da Claudio nel senso che bisogna testare per bene la tecnica anche perchè si tratta sempre di due ambate su due ruote. Penso che il portafoglio alla lunga ne risentirebbe.
Mi permetto di allegare un altro listato sempre dello stesso autore da usare eventualmente come convergenze.

'AMBATA AL 90% - L8+

'TIPO DI GIOCO: due numeri per ambata su due ruote.
'RUOTE DI RICERCA: a scelta dell'utente (Bari>Venezia)
'ESTRAZIONE DI PRONOSTICO: a scelta dell'utente (dalla prima all'ultima estrazione mensile).
'RUOTE DI GIOCO: il pronostico è valido sulle 2 ruote di ricerca
'DURATA DI GIOCO: personalizzabile da 1 a infiniti colpi.
'ANALISI METODO: personalizzabile su tutto l'archivio.


'SCRIPT L8+

Sub main()
Dim ruote(2)
Dim numeri(2)
Dim posta(1)
posta(1)=1
ColoreTesto 2
Scrivi " AMBATA AL 90%"
Scrivi
Scrivi "PREDICTOR - RAMCOLOTTO <[url]http://RAMCOLOTTO>[/url] <http://RAMCOLOTTO>"
Scrivi
ColoreTesto 0
es=InputBox("Quante estrazioni vuoi analizzare?","AMBATA 90% BY PREDICTOR - RAMCOLOTTO <[url]http://RAMCOLOTTO>[/url] <http://RAMCOLOTTO>",2000)
im=InputBox("Pronostico dall'estrazione mensile numero? (0=ultima estrazione)","AMBATA 90% BY PREDICTOR - RAMCOLOTTO <[url]http://RAMCOLOTTO>[/url] <http://RAMCOLOTTO>",1)
cp=InputBox("Per quanti colpi vuoi giocare?","AMBATA 90% BY PREDICTOR - RAMCOLOTTO <[url]http://RAMCOLOTTO>[/url] <http://RAMCOLOTTO>",12)
r=ScegliRuota
ruote(1)=r
ruote(2)=r+1
ini=EstrazioneFin-eval(es)
fin=EstrazioneFin
For n=ini To fin
If(((eval(im)=0)And(n=fin))Or((Indicemensile(n)=eval(im)And(eval(im)>0))Or((Indicemensile(n+1)=1)And(eval(im)=0))))Then
Messaggio DataEstrazione (n)
c=Fuori90(Estratto(n,r,1)+Estratto(n,r+1,5))
a=(91-c)
b=Fuori90(45+c)
numeri(1)=a
numeri(2)=b
ImpostaGiocata 1,numeri,ruote,posta,eval(cp),1
Gioca n
End If
Next
Scrivi
ColoreTesto 2
Scrivi "PREDICTOR - RAMCOLOTTO <[url]http://RAMCOLOTTO>[/url] <http://RAMCOLOTTO>"
ColoreTesto 0
ScriviResoconto
ColoreTesto 2
Scrivi "PREDICTOR - RAMCOLOTTO <[url]http://RAMCOLOTTO>[/url] <http://RAMCOLOTTO>"
ColoreTesto 0
End Sub

Un saluto circolare e buon appetito da Francesco

 

[filippok9]

Ciao Claudio, hai perfettamente ragione in merito di testare la tecnica, la previsione và giocata facendo scorrere 5 colpi dalla data di calcolo senza esiti positivi, ponendola in gioco in questo caso per 4 estrazioni, allora diventa una buona previsione e più redditizia, questa potrebbe essere una strategia di gioco.

Mi chiedevo, sempre se hai il tempo e pazienza di poterlo modificare, se sarebbe possibile fare su questo metodo questa modifica?

'SPY DETECTOR pronostica in automatico uno solo dei numeri + frequenti-presenti per ambata e due numeri per ambo su due ruote e tutte.

1) Eventuale modifica
'SPY DETECTOR pronostica in automatico uno solo dei numeri + frequenti-presenti per ambata e TRE numeri per ambo su due ruote e tutte. (Accoppiare all’ambata + frequente, tre numeri avendo due ambi + frequenti su ruota e tutte)

Grazie anche a Francesco per la sua disponibilità e all’intervento di LuigiB
Cordiali saluti Filippo


filippok9