Per Enplein o chi può

[Roby]

Chiedo se qualcuno può modificare questo listato fatto dal gentilissimo Enplein, adesso mostra i numeri più probabili dopo il numero spia, quello che chiedo io invece è avere i numeri simpatici ossia i più frequenti sortiti assieme al numero spia.
Grazie

Sub main()

Scrivi "Spia - con 27 presenze X ambata con il numero + freq." & Chr(10)
Dim ru1(1),nr(10),nu(10),ex(27),sf(10),amb(1),posta(1)
posta(1)=1
ee=CInt(InputBox("Quante estrazioni vuoi esaminare 0 uguale ultima estrazione impostata in archivio ?",Florindi,32))
If ee="" Then Exit Sub
cl=CInt(InputBox("Quanti colpi ?",Florindi,18))
If cl="" Then Exit Sub
r1=CInt(InputBox(" Quale Ruota 1 Bari, 2 Cagliari, ecc.?",Florindi,1))
If r1="" Then Exit Sub
es=EstrazioneFin-ee
For nn=1 To 89
g=0
For i=0 To 3000
If Posizione(es-i,r1,nn)>0 Then g=g+1:ex(g)=es-i
If g=27 Then Exit For
Next
es2=ex(27)
Erase nu : Erase nr
ru1(1)=r1:h=0
de=Decina(nn)
For j=1 To 10
nu(j)=CInt (de&j)
If j=10 Then nu(j)=CInt((de+1)&"0")
Next
For i=1 To 10
nm=nu(i):k=0:sf(i)=0
For z=27 To 1 step -1
ok=0
For y=1 To 100
If SerieFreq ((ex(z)+y),(ex(z)+y),nu,ru1,1)>0 Then ok=1:es1=ex(z)+y
If ok=1 Then Exit For
Next
If Posizione(es1,r1,nm)>0 Then k=k+1
Next
sf(i)=sf(i)+k
Next
w=0
For x=1 To 10
If sf(x)=>6 Then w=1: amb(1)=nu(x)
Next
If w=1 Then 'Cerca le 10 presenze
Scrivi :scrivi
Scrivi" Dal "&dataestrazione(es2)&"("&es2&") al "&dataestrazione(es)&" ("&es&")"& Chr(10)
Scrivi "Spia : "&(nn)&" N° Presenze su Ruota di ---->"& NomeRuota (r1),1
Scrivi
Scrivi "Num. ",0,0
For i=1 To 10
Scrivi FormatSpace (nu(i),4),0,0
Next
Scrivi
Scrivi "Freq. ",0,0
For i=1 To 10
Scrivi FormatSpace(sf(i),4),0,0
Next
ImpostaGiocata 1,amb,ru1,posta,cl,1
Gioca es
End If
Next
Scrivi
ColoreTesto 0
Scrivi String(50,"=")& Chr(10)
Scrivi "°°°Enplein°°°",1


End Sub

 

[esselotto]

ciao solare ho modificato uno mio che avevo postato qualche giorno fa sul forum
Area download di lottoced

 

[esselotto]

Sub main()
Scrivi String (75,"*"),1
ColoreTesto 1
Scrivi "Simpatici - migliori ambate sortite " & Chr(10),1
Scrivi "(***esselotto*** per ***Solare*** lottoced 11/10/2010)" & Chr(10),1
ColoreTesto 0
Scrivi String (75,"*"),1
Dim n(90,4),ru(1),ru1(1),nu(1),nn1(1)

ee=CInt(InputBox("Quante estrazioni vuoi esaminare ?","°°°esselotto°°°",1000))
If ee="" Then Exit Sub
nn=CInt(InputBox("Quale numero spia ?","°°°esselotto°°°",9))
If nn="" Then Exit Sub
r1=CInt(InputBox(" Quale Ruota 1 Bari, 2 Cagliari, ecc.?","°°°esselotto°°°",1))
If r1="" Then Exit Sub
am=CInt(InputBox(" Quante ambate vuoi visualizzare da 1 a 89?","°°°esselotto°°°",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
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,es,nu,ru,1)' ricerca frequenza su ruota
n(co,3)=n(co,3)+fr
n(co,4)=rt
Next
End If
End If
Next
Scrivi
ColoreTesto 1
Scrivi " Migliori Simpatici con Numero Spia "& nn &" ruota di "&nomeruota(r1)& Chr(10),1
ColoreTesto 0
Scrivi" Dal "&dataestrazione(ini)&"("&es&") al "&dataestrazione(fin)&" ("&fin&")"& Chr(10)
Scrivi " N° Presenze ---->"& NomeRuota(r1)& Chr(10)
OrdinaMatrice n,-1,3
For w=1 To am+1
If (n(w,2))=nn Then
Scrivi " "& Format2(n(w,2))&" "&FormatSpace(n(w,3),4,1) &" ----> Numero spia",1
End If
If (n(w,2))<> nn Then
Scrivi" "& Format2(n(w,2))&" "&FormatSpace(n(w,3),4,1)& String(8," ")
End if
Next
ColoreTesto 0
Scrivi String(50,"=")& Chr(10)
Scrivi "°°°esselotto°°°",1
End Sub

 

[esselotto]

controlla se il risultato coincide



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

 

[solare]

Ciao esselotto, ok ti ringrazio, però quello che chiedo io non è proprio questo ma si avvicina parecchio in quanto il listato non deve fare la statistica sul periodo dal al ma semplicemente sulle presenze del numero spia e cioè deve trovare a ritroso 27 volte la presenza del numero spia e di conseguenza segnalare i numeri più presenti col numero spia i così chiamati numeri simpatici.
Ciao e grazie

 

[esselotto]

Ciao Solare
Ripreleva lo Script mio colorato in blu.

 

[esselotto]

ciao solare ho rimodificato visualizzo a video il numero spia e sortite

alla richiesta quante estrazioni vuoi controllare 
puoi aumentare o diminuire e trovare la frequenza.


ho capito bene? 
Ho deve essere tassativamente 27?
 
per questo ho inserito input box, pui ricercare i simpatici
anche su tutto l'archivio.

Alla domanda
Quante estrazioni vuoi esaminare ? puoi scrivere 8000 

il programma ricerchera 8000 estrazioni a ritroso
se scrivi 800 ricerchera 800 (estrazioni a ritroso)
se scrivi 500 ricerchera 500 (estrazioni a ritroso)

a video ti apparira

 N°   Presenze  ---->Bari

 09     38  ----> Numero spia           <---  il numero spia e le presenze 
 85      6        
 07      5                               i 10 migliori abbinamenti
 87      5        
 52      4        
 70      4        
 81      4        
 83      4        
 26      4        
 42      4        
 61      3        


Se invece vuoi visualizzare più simpatici (o abbinamenti)

Alla domanda 
Quante ambate vuoi visualizzare da 1 a 89

inserisci 15 per visualizzare i migliori 15 abbinamenti
10 per i migliori 10 e cosi via fino a 89


Il mio script sembra avere molte funzioni in più, paragonato alla tua richiesta
di 27 sortite.

Spero di esserti stato di aiuto 
altri problemi riguardante il codice puoi riscrivere.

ciao esselotto

 

[solare]

Ciao Esseletto, allora ti faccio un esempio su come faccio di solito con carta e penna:
Mettiamo caso che il capogioco sia il 90
parto dall'ultima estrazione alla ricerca del numero 90 e segno da parte per ben 27 volte la sortita dello stesso vefificando inoltre la presenza dei numeri della stessa decina che sono sortiti ogni volta assieme al 90.
Nr Presenza
81 1
82 1
83 1
84 3
85 1
86 0
87 1
88 0
89 1
Ecco, questo è il risultato sulla ruota di Bari, ultima estrazione 9/10/2010---------------------------------------------------------
Quindi non si tratta di analizzare il periodo dal al, ma semplicemente il numero delle sortite del nr spia.
Questa tecnica naturalmente può andare bene anche considerando tutti i numeri l'importante e che si faccia statistica sulle ultime 27 presenze del nr. a noi interessato.
Ciao

 

[solare]

Ho provato il tuo listato, si in effetti può andare bene però dovrebbe fare la statistica limitandosi alle 27 volte che è sortito il numero che a me interessa, ti faccio un esempio sul 51 a Napoli "Ritardatario" facendo questa statistica i numeri con maggior frequenza sono 23 e 26, quindi la mia giocata è 51-23-26.
Ciao

 

[esselotto]

Ciao Solare prova questo
Il codice programmato fà la seguente ricerca.

 

[esselotto]

(la tua soluzione procedo dall'ultima estrazione in archivio andando a ritroso,
mi fermo quando il numero spia(scelto) tramite input box, abbia raggiunto le 27 presenze)

Ho lasciato gli altri input box cosi com'erano tranne chiaramente quante estrazioni
a ritroso.



Comunque il primo script postato a mio parere è migliore
perche un numero spia in 27 o 36 presenze non cambia
molto.

 

[esselotto]

Script Rilevo il numero spia mi fermo a 27 presenze (frequenza)
indico tutti i numeri

prelevare solo parte colorata blu


Sub main()
Scrivi String (75,"*"),1
ColoreTesto 1
Scrivi " Simpatici - migliori ambate sortite " & Chr(10),1
Scrivi "(***esselotto*** per ***Solare*** lottoced 11/10/2010)" & Chr(10),1
ColoreTesto 0
Scrivi String (75,"*"),1
Dim n(90,4),ru(1),ru1(1),nu(1),nn1(1)

nn=CInt(InputBox("Quale numero spia ?","°°°esselotto°°°",9))
If nn="" Then Exit Sub
r1=CInt(InputBox(" Quale Ruota 1 Bari, 2 Cagliari, ecc.?","°°°esselotto°°°",1))
If r1="" Then Exit Sub
am=CInt(InputBox(" Quante ambate vuoi visualizzare da 1 a 89?","°°°esselotto°°°",89))
If am="" Then Exit Sub
r2=11
nn1(1)=nn
fin=EstrazioneFin
ini=EstrazioneIni

For es=fin To ini step -1
If Posizione(es,r1,nn)>0 Then
ru1(1)=r2
If SerieFreq(es,es,nn1,ru1,1)=1 Then
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,es,nu,ru,1)' ricerca frequenza su ruota
n(co,3)=n(co,3)+fr
n(co,4)=rt
Next
End If
End If
If (n(nn,3))=27 Then Exit For '''' cambia il 27 se vuoi frequenza diversa
Next

Scrivi
ColoreTesto 1
Scrivi " Migliori Simpatici con Numero Spia "& nn &" ruota di "&nomeruota(r1)& Chr(10),1
ColoreTesto 0
Scrivi" Dal "&dataestrazione(ini)&"("&es&") al "&dataestrazione(fin)&" ("&fin&")"& Chr(10)
Scrivi " N° Presenze ---->"& NomeRuota(r1)& Chr(10)
OrdinaMatrice n,-1,3
For w=1 To am+1
If (n(w,2))=nn Then
Scrivi " "& Format2(n(w,2))&" "&FormatSpace(n(w,3),4,1) &" ----> Numero spia",1
End If
If (n(w,2))<> nn Then
Scrivi" "& Format2(n(w,2))&" "&FormatSpace(n(w,3),4,1)& String(8," ")
End If
Next
ColoreTesto 0
Scrivi String(50,"=")& Chr(10)
Scrivi "°°°esselotto°°°",1
End Sub





Spero di esserti stato d'aiuto
ciao esselotto





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

 

[solare]

Perfettamente funzionante
Grazie infinite esselotto veramente bravo
Ciao