Per Esselotto o chi vuole

[joi_lotto]

quote:Originally posted by joi_lotto

Ciao ragazzi.
Non so se è una cosa fattibile ma se lo fosse lo script dovrebbe fare una ricerca del genere:
indico un numero su una determinata ruota e devo trovare i migliori
10 abbinamenti in ordine di percentuale dalla più alta alla più bassa, per AMBO e TERNO in un DETERMINATO MESE</u>,la ricerca
dovrebbe partire dal 1871.
Se volete se potete Vi ringrazio.

Ciao.

 

[esselotto]

Per joi Lotto
Scusa joi lotto ( come ..... Ho fatto ha leggere numero spia?)

Mi sono accorto dopo ho riletto bene.

Adesso che ho capito ti rispondo meglio.
Non so cosa, e Quanto a te serva questo script. Ma se è per una ricerca, molti programmi
Di statistica lo fanno, anche L8 ha un’area riservata per queste ricerche.
Su spaziometria non ci ho guardato, comunque avrà una sezione dedicata alle ricerche
Delle formazioni con capo gioco.

>>causa mancanza tempo, posso solo spedire quello che ho…..<<.

 

[esselotto]

Rileva solo numeri che in un dato mese, si sono presentati insieme al Capo gioco.


''''''''Ricerca i numeri piu frequenti, con un CapoGioco in un dato mese
'''''''''''''Prelevare solo Testo colorato Blu


Sub main()
Scrivi "Spia - migliori ambate insieme al capogioco (modificato da esselotto )" & Chr(10)
Scrivi "modificato da esselotto per joi lotto lottoced )" & Chr(10)

Dim n(90,4),ru(1),ru1(1),nu(1),nn1(1)
ee=CInt(InputBox("Quante estrazioni vuoi esaminare ?",,1000))
If ee="" Then Exit Sub
nn=CInt(InputBox("Numero Capogioco ?",,15))
If nn="" Then Exit Sub
mes1=CInt(InputBox("Quale mese 1 Gennaio, 2 Febbraio ?",,1))
If mes1="" Or Mes1 >12 Then Exit Sub
r1=CInt(InputBox(" Quale Ruota 1 Bari, 2 Cagliari, ecc.?",,1))
If r1="" Then Exit Sub
am=CInt(InputBox(" Quante ambate vuoi visualizzare da 1 a 90?",,10))
If am="" Then Exit Sub
r2=11
nn1(1)=nn
fin=EstrazioneFin
ini=fin-ee
For es=ini To fin
If Posizione(es,r1,nn)>0 Then
ru1(1)=r2
If mes1=Mese (es) Then
If SerieFreq(es,es,nn1,ru1,1)=1 Then

ess=es
If ess>fin Then ess=fin
co=0
For i=1 To 90
If i<>nn Then
co=co+1
n(co,1)=co
n(co,2)=i
nu(1)=i
ru(1)=r1
fr=SerieFreq(es,ess,nu,ru,1)' ricerca frequenza su ruota
n(co,3)=n(co,3)+fr
End if
Next
End if
End If
End If
Next
Scrivi
ColoreTesto 1
Scrivi " Migliori ambate con il Capogioco "& nn &" ruota di "&nomeruota(r1)& Chr(10)
ColoreTesto 0
Scrivi" Dal "&dataestrazione(ini)&"("&es&") al "&dataestrazione(fin)&" ("&fin&")"& Chr(10)
Scrivi " N° Presenze Ruota di ---->"& NomeRuota(r1)& "...... Mese di "& MeseNome (mes1),1
OrdinaMatrice n,-1,3
For w=1 To am
Scrivi" "& Format2(n(w,2))&" "&FormatSpace(n(w,3),4,1)'&" "&FormatSpace(n(w,4),4,1)

Next
ColoreTesto 0
Scrivi String(50,"=")& Chr(10)
Scrivi "°°°esselotto°°°",1
End Sub

 

[joi_lotto]

Grazie Esselotto.
Molto gentile è ok.
Grazie ancora

Ciao.
Joi

 

[elephantbig]

Ciao esselotto,
anzitutto sono d'obbligo i complimenti.
Visto che con gli script sei in ottimi rapporti e con la fisica sei vicino di casa, mi permetto di chiederti una mano.
Ti spiego in parole povere che cosa mi servirebbe.
Uno script che analizzasse le cinquine che vengono estratte fino a quando non restano ambi.
A questo punto dobrebbe segnalare quando questo avviene ,in termini di n. estrazioni , e quando quest'ambo si sfalda con l'estratto di uno dei due numeri.
Tutto questo esaminato storicamente su tutto l'archivio e facendomi vedere i massimi storici.
Se questo fosse possibile anche per il terno meglio ancora.
Pensi che sia fattibile o chiedo troppo?
in ogni caso grazie e ancora complimenti.

 

[LuigiB]

Caro Elephantone vedro di implementare io questa cosa che hai detto direttamente nel programma , per 2 ragioni anzi 3 , la prima farlo con gli script sarebbe di una lentezza paurosa , 2 mi sembra una statistica interessante e allo stesso tempo generica quindi si addice a diventare una nuova statistica del programma , 3 visto che sei il compilatore ufficiale delle configurazioni di stampa schedine e date le 3 cartucce d'inchiostro immolate alla causa devo dire che te lo meriti ...
Ciao !

 

[elephantbig]

Grazie Luigi,
spero che questo tipo di statistica possa essere utile anche agli altri amici del Forum.
Ovviamente la situazione statistica deve essere aggiornata di volta in volta per far si di individuare quegli ambi che cominciano a diventare interessanti per lo sfaldamento.
La mia elefantiaca ignoranza in fatto di programmazione non mi consente di rendermi conto se chiedo la luna o solo un piccolo asteroide.
Di una cosa pero sono pienamente cosciente.
Esistono persone come esselotto,come te,come Thauk e tanti altri che certamente contribuiscono a rendere migliore questo mondo di ......
Grazie ragazzi

 

[esselotto]

quote:Originally posted by elephantbig

Ciao esselotto,
anzitutto sono d'obbligo i complimenti.
Visto che con gli script sei in ottimi rapporti e con la fisica sei vicino di casa, mi permetto di chiederti una mano.
Ti spiego in parole povere che cosa mi servirebbe.
Uno script che analizzasse le cinquine che vengono estratte fino a quando non restano ambi.
A questo punto dobrebbe segnalare quando questo avviene ,in termini di n. estrazioni , e quando quest'ambo si sfalda con l'estratto di uno dei due numeri.
Tutto questo esaminato storicamente su tutto l'archivio e facendomi vedere i massimi storici.
Se questo fosse possibile anche per il terno meglio ancora.
Pensi che sia fattibile o chiedo troppo?
in ogni caso grazie e ancora complimenti.

ciao visto che ha risposto già LuigiB. Ti volevo dire
questo tipo di ricerca lo feci 5 anni fà.
creai un piccolo script(programmino) in visual basic che faceva la stessa ricerca.Gli ultimi due numeri per Ambo.
chiamai <<METODO 5 NUMERI>>
con questo vinsi l'ambo secco 1 solo ambo sulla ruota
di Palermo. Se cerco dovrei avere ancora lo scontrino.
Forse di buon auspicio.
Ti Auguro Buona Fortuna.
per la tua prima futura giocata.
esselotto

 

[elephantbig]

Ciao Esselotto,grazie per avermi risposto.
posso dirti che la maggior parte degli ambi li ho realizzati aspettando uno di questi ambi in fase di "liquefazione" e abbinando
ciascun numero con una serie di numeri della stessa tipologia.
Il problema è tenere sotto controllo queste situazioni e finora l'ho fatto manualmente.Ricordo di un ambo che si sfaldò attorno alle 75 estrazioni o giu di li.Ma gia da 50 a 65 estrazioni di ritardo diventano degli ottimi capigiochi.Non so se concordi con questa mia osservazione.
Grazie e a presto

 

[rudivall]

Ciao Elephantbig, ora che Luigi ha inserito questa statistica nel programma, potresti essere cosi gentile da postare qualche esempio reale da prendere in considerazione con rispettiva eventuale previsione?
Grazie mille Ele.

rodolfo

 

[elephantbig]

Ciao Rudivall,ben risentito.

Lo sai che non sono un previsionista. l'ho ribadito diverse volte.
Comunque ti posso dire che allo stato attuale non vedo nel tabellone situazioni interessanti.
da tenere sotto controllo per sorte di estratto da usare come capogioco:
64-38 FI ritardo a 52 estrazioni
51-44 VE ritardo a 51 "
40-18 CA ritardo a 49 "

abbinamenti consigliati i primi 10 numeri a livello 1

Se si presentassero situazioni interessanti mi farò vivo.
Ciao rudi

 

[rudivall]

Grazie Ele sempre gentilissimo, la mia richiesta non era per avere delle previsioni, ma per cercare di capire il meccanismo di ricerca, infatti so che sei molto bravo e disponibile, sarebbe ottimo postare l'immagini che evidenziano i casi da te indicati, grazie ancora

rodolfo

 

[esselotto]

quote:Originally posted by elephantbig

Ciao Esselotto,grazie per avermi risposto.
posso dirti che la maggior parte degli ambi li ho realizzati aspettando uno di questi ambi in fase di "liquefazione" e abbinando
ciascun numero con una serie di numeri della stessa tipologia.
Il problema è tenere sotto controllo queste situazioni e finora l'ho fatto manualmente.Ricordo di un ambo che si sfaldò attorno alle 75 estrazioni o giu di li.Ma gia da 50 a 65 estrazioni di ritardo diventano degli ottimi capigiochi.Non so se concordi con questa mia osservazione.
Grazie e a presto

Se trovo il programmino, nel mio archivio ti dico,
come facevo io(allora). Cercavo di giocare meno colpi
possibili arrivavo max 4 o 5.
Speriamo che trovo. Avevo sul vecchio computer.
Ti faccio sapere.
ciao esselotto

 

[elephantbig]

quote:Originally posted by esselotto

quote:Originally posted by elephantbig

Ciao Esselotto,grazie per avermi risposto.
posso dirti che la maggior parte degli ambi li ho realizzati aspettando uno di questi ambi in fase di "liquefazione" e abbinando
ciascun numero con una serie di numeri della stessa tipologia.
Il problema è tenere sotto controllo queste situazioni e finora l'ho fatto manualmente.Ricordo di un ambo che si sfaldò attorno alle 75 estrazioni o giu di li.Ma gia da 50 a 65 estrazioni di ritardo diventano degli ottimi capigiochi.Non so se concordi con questa mia osservazione.
Grazie e a presto

Se trovo il programmino, nel mio archivio ti dico,
come facevo io(allora). Cercavo di giocare meno colpi
possibili arrivavo max 4 o 5.
Speriamo che trovo. Avevo sul vecchio computer.
Ti faccio sapere.
ciao esselotto

Ciao Esse
la tua ultima affermazione mi preoccupa un po.
Nel senso che se fosse stato un metodo ragionevolmente valido,certamente lo avresti tenuto ben custodito.
Scherzi a parte ,se lo trovi penso potrebbe essere utile
quantomeno per confrontare i risultati con quelli iinseriti
dal Faraone Luigi.
Un caloroso saluto e grazie.
Ciao Esse,a presto

 

[imported_n/a]

Originally posted by esselotto

‘’’’’’’’Ricerca i numeri piu frequenti, dopo un certo numero detto spia
‘’’’’’’’’’’’’Prelevare solo Testo colorato Blu


Sub main()
Scrivi "Spia - migliori ambate sortite listato (modificato da esselotto )" & Chr(10)
Scrivi "modificato da esselotto per joi lotto lottoced )" & Chr(10)

Dim n(90,4),ru(1),ru1(1),nu(1),nn1(1)
ee=CInt(InputBox("Quante estrazioni vuoi esaminare ?",,1000))
If ee="" Then Exit Sub
nn=CInt(InputBox("Quale numero spia ?",,15))
If nn="" Then Exit Sub
cl=CInt(InputBox("Quanti colpi ?",,9))
If cl="" Then Exit Sub
r1=CInt(InputBox(" Quale Ruota 1 Bari, 2 Cagliari, ecc.?",,1))
If r1="" Then Exit Sub
am=CInt(InputBox(" Quante ambate vuoi visualizzare da 1 a 90?",,10))
If am="" Then Exit Sub
r2=11
nn1(1)=nn
fin=EstrazioneFin
ini=fin-ee
For es=ini To fin
If Posizione(es,r1,nn)>0 Then
ru1(1)=r2
If SerieFreq(es,es,nn1,ru1,1)=1 Then

ess=es+cl
If ess>fin Then ess=fin
co=0
For i=1 To 90
co=co+1
n(co,1)=co
n(co,2)=i
nu(1)=i
ru(1)=r1
fr=SerieFreq(es+1,ess,nu,ru,1)' ricerca frequenza su ruota
n(co,3)=n(co,3)+fr
Next

End If
End If
Next
Scrivi
ColoreTesto 1
Scrivi " Migliori ambate dopo Numero Spia "& nn &" ruota di "&nomeruota(r1)& Chr(10)
ColoreTesto 0
Scrivi" Dal "&dataestrazione(ini)&"("&es&") al "&dataestrazione(fin)&" ("&fin&")"& Chr(10)
Scrivi " N° Presenze Ruota di ---->"& NomeRuota(r1)& Chr(10)
OrdinaMatrice n,-1,3
For w=1 To am
Scrivi" "& Format2(n(w,2))&" "&FormatSpace(n(w,3),4,1)'&" "&FormatSpace(n(w,4),4,1)

Next
ColoreTesto 0
Scrivi String(50,"=")& Chr(10)
Scrivi "°°°esselotto°°°",1
End Sub


Ciao Esselotto nel rinnovarti tutto l'apprezzamento dei tuoi lavori e l'invito a continuare nella lavorazione degli script vorrei chiederti se a questo listato da te composto potresti aggiungere il relativo ritardo dei numeri frequenti ricavati.

Questo per capire data un numero spia quali sono i numeri frequenti e dei frequenti quale è il relativo ritardo.

P.S. con la spia 90 a napoli questa ricerca ha dato 2 ambi nelle ultime 2 estrazioni( ovviamente portati a casa).

Spero che il tutto sia fattibile e nell'attesa ti saluto e ti ringrazio.

Ciao Mike58

 

[esselotto]

quote:Originally posted by elephantbig

quote:Originally posted by esselotto

quote:Originally posted by elephantbig

Ciao Esselotto,grazie per avermi risposto.
posso dirti che la maggior parte degli ambi li ho realizzati aspettando uno di questi ambi in fase di "liquefazione" e abbinando
ciascun numero con una serie di numeri della stessa tipologia.
Il problema è tenere sotto controllo queste situazioni e finora l'ho fatto manualmente.Ricordo di un ambo che si sfaldò attorno alle 75 estrazioni o giu di li.Ma gia da 50 a 65 estrazioni di ritardo diventano degli ottimi capigiochi.Non so se concordi con questa mia osservazione.
Grazie e a presto

Se trovo il programmino, nel mio archivio ti dico,
come facevo io(allora). Cercavo di giocare meno colpi
possibili arrivavo max 4 o 5.
Speriamo che trovo. Avevo sul vecchio computer.
Ti faccio sapere.
ciao esselotto

Ciao Esse
la tua ultima affermazione mi preoccupa un po.
Nel senso che se fosse stato un metodo ragionevolmente valido,certamente lo avresti tenuto ben custodito.
Scherzi a parte ,se lo trovi penso potrebbe essere utile
quantomeno per confrontare i risultati con quelli iinseriti
dal Faraone Luigi.
Un caloroso saluto e grazie.
Ciao Esse,a presto

non ti devi preoccupare più di tanto. ......
non è che dava la vincita al 100%.
Solo che, quando ho letto la tua richiesta, mi sono ricordato.


Comunque il procedimento era questo.

Faccio subito un esempio.
12 24 56 78 89
dopo 24 estrazioni non erano sortiti il 78 12
quindi 24 il ritardo
24 -18 = 4
(18 ciclo teorico dei 90 numeri come ambata)


24- 4= 20
Attendevo altre 20 Estrazioni e Giocavo i due numeri
per ambata ed ambo. Se ne frattempo erano gia sortiti, chiaramente
non giocavo (sceglievo altra ruota).

ritardi buoni erano da 20 fino a 32

era un metodo che, allora dava buone possibilità di vincita.
Spero di essere stato chiaro?
esselotto

 

[esselotto]

Ciao mike58, parente per caso con miki55........ ?[8D]


Rimodifico listato aggiungendo il ritardo.
Lo script non dovrebbe dare problemi.


LISTATO NUMERO SPIA CON RITARDO.
PRELEVARE SOLO PARTE COLORATA BLU




Sub main()
Scrivi "Spia - migliori ambate sortite + Ritardi (modificato da esselotto )" & Chr(10)
Scrivi "modificato da esselotto per mike58 lottoced )" & Chr(10)

Dim n(90,4),ru(1),ru1(1),nu(1),nn1(1)

ee=CInt(InputBox("Quante estrazioni vuoi esaminare ?",,1000))
If ee="" Then Exit Sub
nn=CInt(InputBox("Quale numero spia ?",,9))
If nn="" Then Exit Sub
cl=CInt(InputBox("Quanti colpi ?",,9))
If cl="" Then Exit Sub
r1=CInt(InputBox(" Quale Ruota 1 Bari, 2 Cagliari, ecc.?",,1))
If r1="" Then Exit Sub
am=CInt(InputBox(" Quante ambate vuoi visualizzare da 1 a 90?",,10))
If am="" Then Exit Sub
r2=11
nn1(1)=nn
fin=EstrazioneFin
ini=fin-ee
For es=ini To fin
If Posizione(es,r1,nn)>0 Then
ru1(1)=r2
If SerieFreq(es,es,nn1,ru1,1)=1 Then
ess=es+cl
If ess>fin Then ess=fin
co=0
For i=1 To 90
co=co+1
n(co,1)=co
n(co,2)=i
nu(1)=i
ru(1)=r1
fr=SerieFreq(es+1,ess,nu,ru,1)' ricerca frequenza su ruota
rt=SerieRitardo (ini,fin,nu,ru,1) 'ricerca ritardo
n(co,3)=n(co,3)+fr
n(co,4)=rt
Next
End If
End If


Next
Scrivi
ColoreTesto 1
Scrivi " Migliori ambate dopo Numero Spia "& nn &" ruota di "&nomeruota(r1)& Chr(10)
ColoreTesto 0
Scrivi" Dal "&dataestrazione(ini)&"("&es&") al "&dataestrazione(fin)&" ("&fin&")"& Chr(10)
Scrivi " N° Presenze Ritardo Ruota di ---->"& NomeRuota(r1)& Chr(10)
OrdinaMatrice n,-1,3
For w=1 To am
Scrivi" "& Format2(n(w,2))&" "&FormatSpace(n(w,3),4,1)& String(8," ")& FormatSpace(n(w,4),4,1)

Next
ColoreTesto 0
Scrivi String(50,"=")& Chr(10)
Scrivi "°°°esselotto°°°",1
End Sub




Le grandezze fisiche che caratterizzano un moto oscillatorio
sono l'ampiezza e la frequenza.
°°°esselotto°°°

 

[esselotto]

Comunque, se vuoi...? puoi spiegarci come hai fatto con il 90 a Napoli.
oppure mettere una previsione.


ciao esselotto

 

[esselotto]

Dimenticavo. c'è un caso 90 all'ultima estrazione
su Napoli metti pure previsione.

 

[imported_n/a]

Migliori ambate dopo Numero Spia 90 ruota di Napoli

Dal 09.02.2010(8282) al 30.09.2010(8281)
estrazioni Totali esaminate : 100
N° Presenze Ruota di - - - - > Napoli

nelle successive estrazioni _ 10 Dopo l'uscita del numero spia:90
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
n° freq
43 13
76 13
83 12
17 11
73 11
90 10
10 9
08 9
07 9
53 8


°°°esselotto°°°
Ciao Esselotto questi 10 numeri hanno frutato 1 terno estrazione del 28-9 con 10-8-83 e a me un terno con 56(rit) + 17-90

Ecco perche ti chiedo di applicarci i ritardi cosi da capire da quanto tempo manca il numero frequente perche mi sembra ovvio adesso che la decina ha gia pagato e a dover pagare devono essere i restanti numeri.

Ciao Mike58