chi c' azzecca??

[zagort]

ho da proporvi un piccolo indovinello,io metto ruote e numeri, quasi certamente escono alcune ambate a colpo,
voi sapreste trovare la ruota secca e il numero abbinato???
vi mostro alcuni esempi
[list=][8745] 19.09.2013 Ba.Ca.Fi.Ge.Mi. 02.13.16.22.34.40.43.60.61.86
21.09.2013 Fi 16 01° colpo [8746]
26.09.2013 Ba 61 03° colpo [8748]
26.09.2013 Ca 60.86 03° colpo [8748]
26.09.2013 Ge 86 03° colpo [8748]
26.09.2013 Mi 22 03° colpo [8748]

[8746] 21.09.2013 Ba.Ca.Fi.Ge.Mi. 08.13.15.16.27.32.38.50.63
24.09.2013 Fi 63 01° colpo [8747]
24.09.2013 Mi 15 01° colpo [8747]
28.09.2013 Ca 13 03° colpo [8749]
28.09.2013 Fi 15.16 03° colpo [8749]

[8747] 24.09.2013 Ba.Ca.Fi.Ge.Mi. 13.15.27.38.48.51.54.63.68.76.89
26.09.2013 Ca 51 01° colpo [8748]
26.09.2013 Mi 68 01° colpo [8748]
28.09.2013 Ba 89 02° colpo [8749]
28.09.2013 Ca 13 02° colpo [8749]
28.09.2013 Fi 15.54 02° colpo [8749]
28.09.2013 Ge 89 02° colpo [8749]

[8748] 26.09.2013 Ba.Ca.Fi.Ge.Mi. 09.25.27.51.58.63.68.82.86
28.09.2013 Ba 86 01° colpo [8749]
28.09.2013 Fi 82 01° colpo [8749]


[/list]

28.09.2013 Ba.Ca.Fi.Ge.Mi. 06.09.14.15.41.46.51.54.58.63.82.86.89

[zagort]

estrazione fortunata....guardate che ha combinato...metto altra previsione per coloro che hanno convergenze(automobilistiche )
[8749] 28.09.2013 Ba.Ca.Fi.Ge.Mi. 06.09.14.15.41.46.51.54.58.63.82.86.89
01.10.2013 Ca 89.14 01° colpo [8750]
01.10.2013 Fi 54.58.14 01° colpo [8750]
01.10.2013 Ge 89.09 01° colpo [8750]
01.10.2013 Mi 63.82.58 01° colpo [8750]

[8750] 01.10.2013 Ba.Ca.Fi.Ge.Mi. 09.14.16.41.46.51.54.58.82.85.86.89

[lottopassion]

Ciao zagort scusa se non ti ho risposto prima ma ero impegnato con l'aggiornamento di LottoGeosII comunque per poter ricavare degli abbinamenti ci vuole il listato madre con cui ricavi le ambate altrimenti non si possono ricavare degli abbinamenti con le stesse caratteristiche delle ambate .
Saluti.

[zagort]

vediamo come si è comportata questa estrazione...
[8750] 01.10.2013 Ba.Ca.Fi.Ge.Mi. 09.14.16.41.46.51.54.58.82.85.86.89
03.10.2013 Ba 58 01° colpo [8751]
03.10.2013 Mi 09.86 01° colpo [8751]

[8751] 03.10.2013 Ba.Ca.Fi.Ge.Mi. 09.14.16.25.31.41.58.82.85.86.89
ciao lottopassion non devi scusarti di nulla è un post nato per scherzo ,ho ritrovato un vecchio listato della base f
di Scaravetti e modificando i parametri per la ricerca ho notato che molte ambate sortivano a colpo......da qui
chi "c'azzecca"
riposto il listato dovrebbe essere di Danilo ,al quale invio cordiali saluti

Sub main()
Dim ru(5),nu(1),nr(),ni()
esi=InputBox(" Estrazione iniziale -",,EstrazioneFin-30)
esf=InputBox(" estrazione Finale -",,EstrazioneFin)
da=InputBox(" Da quale ruota vuoi iniziare ? ",,1)
r1=Eval(da)
dd=InputBox(" Quante ruote vuoi utilizzare? ",,5)
ss=InputBox(" Su quante estrazioni vuoi i frequenti? ",,4)
tt=InputBox(" Per quanti colpi vuoi giocare?",,12)
s1=Eval(ss-1)
For x=1 To Eval(dd)
r=(r1+x)-1
ru(x)=r
ruote=ruote&Left(NomeRuota(r),2)&"-"
Next
fin=esf
ini=esi
For es=ini To fin
AvanzamentoElab ini,fin,es
co=0
Redim nr(0)
For x=1 To 90
nu(1)=x
If SerieFreq(es-s1,es,nu,ru,1)>2 Then
co=co+1
Redim Preserve nr(co)
nr(co)=x
End If
Next
' Simulazione giocate
Redim ni(0)
Scrivi Chr(13)&"["&es&"] "& DataEstrazione(es)&" "&ruote& StringaNumeri(nr),1
Redim Preserve nr(co+1) ' nr variabile che contiene i numeri da mettere in gioco
ca=0
est=es+tt
If est > EstrazioneFin Then est=EstrazioneFin End If
For ex=es+1 To est
ca=ca+1
For r=ru(1) To ru(dd)
cc=0
riga=Left(NomeRuota (r),2)&" "
For p=1 To 5
nr(co+1)=Estratto(ex,r,p)
If NumeriRipetuti(nr)=True Then
cc=cc+1
Redim Preserve ni(cc)
ni(cc)=nr(co+1)
End If
Next
riga=riga&""& StringaNumeri(ni)
If cc>0 Then ' >0 = Ambata-Ambo-Terno-Quat-Cin., >1 = Ambo-Terno ecc., >2 = Terno-Quat.-Cinquina
Scrivi DataEstrazione(ex)&" "&FormatSpace(riga,20)& Format2(ca)&"° colpo ["&ex&"]"
riga=""
End If
Next
Next
' fine simulazione giocate
Next
End Sub

[lottopassion]

I listato non fa altro che proporti nell'intervallo estrattivo da te scelto i numeri con frequenza maggiore di 2, in pratica restituisce i superfrequenti ai quali è difficile abbinare dei numeri in quanto loro stessi hanno caratteristiche in frequenza particolari . Comunque vedrò se posso inventarmi qualcosa.