x lucalf metodo soleado

[Roby]

ciao lucalf, dovrei chiederti una cortesia ... potresti postare o inviarmi via mail lo script di cui dicevi nel tuo intervento?
ringrazio in anticipo ...
ciao
marco

 

[milton]

porto su in attesa di una risposta

 

[Lucalf]

Ciao milton scusa se non ho visto prima la tua richiesta, ti posto il listato per L8++ 6.1.23:
'BARI--- 1° di Ba + 28 ** 5° di Naz + 87 ** 2° di Ba + 47
'CAGLIARI---1° di Ba + 10 ** 4° di Ge + 12 ** 2° di Ba + 3
'FIRENZE--- 1° di Ba + 42 ** 4° di Ba + 55 ** 4° di Ba + 49
'GENOVA--- 1° di Ba + 44 ** 4° di To + 70 ** 3° di Naz + 26
'MILANO--- 1° di Ba + 5 ** 2° di Mi + 70 ** 3° di Ba + 26
'NAPOLI--- 1° di Ba + 23 ** 4° di Ve + 83 ** 1° di Ba x 86
'PALERMO--- 1° di Ba + 22 ** 2° di Na + 4 ** 5° di Naz + 20
'ROMA--- 1° di Ba + 3 ** 5° di Ge + 7 ** 1° di Ca + 5
'TORINO--- 1° di Ba + 5 ** 4° di Ve + 20 ** 1° di Ba + 72
'VENEZIA--- 1° di Ba + 37 ** 3° di Ve + 30 ** 1° di Ba + 18
'NAZIONALE--1° di Ba + 49 ** 5° di Naz + 44 ** 1° di Ba x 62
Sub main()
Dim ruota(1)
Dim numeri(3)
Dim posta(5)
posta(2)=0.5
posta(3)=0.5
k=10
For n=7693 To EstrazioneFin
If IndiceMensile (n+1)= 1 Then

ng=1:ruota(1)=1
numeri(1)=Fuori90(Estratto(n,1,1)+28)
numeri(2)=Fuori90(Estratto(n,12,5)+87)
numeri(3)=Fuori90(Estratto(n,1,2)+47)
EliminaRipetuti numeri
ImpostaGiocata ng,numeri,ruota,posta,k 'bari

ng=ng+1:ruota(1)=2
numeri(1)=Fuori90(Estratto(n,1,1)+10)
numeri(2)=Fuori90(Estratto(n,4,4)+12)
numeri(3)=Fuori90(Estratto(n,1,2)+3)
EliminaRipetuti numeri
ImpostaGiocata ng,numeri,ruota,posta,k 'cagliari

ng=ng+1:ruota(1)=3
numeri(1)=Fuori90(Estratto(n,1,1)+42)
numeri(2)=Fuori90(Estratto(n,1,4)+55)
numeri(3)=Fuori90(Estratto(n,1,4)+49)
EliminaRipetuti numeri
ImpostaGiocata ng,numeri,ruota,posta,k 'firenze

ng=ng+1:ruota(1)=4
numeri(1)=Fuori90(Estratto(n,1,1)+44)
numeri(2)=Fuori90(Estratto(n,9,4)+70)
numeri(3)=Fuori90(Estratto(n,12,3)+26)
EliminaRipetuti numeri
ImpostaGiocata ng,numeri,ruote,posta,k 'genova

ng=ng+1:ruota(1)=5
numeri(1)=Fuori90(Estratto(n,1,1)+5)
numeri(2)=Fuori90(Estratto(n,5,2)+70)
numeri(3)=Fuori90(Estratto(n,1,3)+26)
EliminaRipetuti numeri
ImpostaGiocata ng,numeri,ruota,posta,k 'milano

ng=ng+1:ruota(1)=6
numeri(1)=Fuori90(Estratto(n,1,1)+23)
numeri(2)=Fuori90(Estratto(n,10,4)+83)
numeri(3)=Fuori90(Estratto(n,1,1)*86)
EliminaRipetuti numeri
ImpostaGiocata ng,numeri,ruota,posta,k 'napoli

ng=ng+1:ruota(1)=7
numeri(1)=Fuori90(Estratto(n,1,1)+22)
numeri(2)=Fuori90(Estratto(n,6,2)+4)
numeri(3)=Fuori90(Estratto(n,12,5)+20)
EliminaRipetuti numeri
ImpostaGiocata ng,numeri,ruota,posta,k 'palermo

ng=ng+1:ruota(1)=8
numeri(1)=Fuori90(Estratto(n,1,1)+3)
numeri(2)=Fuori90(Estratto(n,4,5)+7)
numeri(3)=Fuori90(Estratto(n,2,1)+5)
EliminaRipetuti numeri
ImpostaGiocata ng,numeri,ruota,posta,k 'roma

ng=ng+1:ruota(1)=9
numeri(1)=Fuori90(Estratto(n,1,1)+5)
numeri(2)=Fuori90(Estratto(n,10,4)+20)
numeri(3)=Fuori90(Estratto(n,1,1)+72)
EliminaRipetuti numeri
ImpostaGiocata ng,numeri,ruota,posta,k 'torino

ng=ng+1:ruota(1)=10
numeri(1)=Fuori90(Estratto(n,1,1)+37)
numeri(2)=Fuori90(Estratto(n,10,3)+30)
numeri(3)=Fuori90(Estratto(n,1,1)+18)
EliminaRipetuti numeri
ImpostaGiocata ng,numeri,ruota,posta,k 'venezia

ng=ng+1:ruota(1)=12
numeri(1)=Fuori90(Estratto(n,1,1)+49)
numeri(2)=Fuori90(Estratto(n,12,5)+44)
numeri(3)=Fuori90(Estratto(n,1,1)*62)
EliminaRipetuti numeri
ImpostaGiocata ng,numeri,ruota,posta,k 'nazionale
Gioca n
End If
Next
ScriviResoconto
End Sub




LucAlf

 

[milton]

ciao lucalf e grazie ... se non sbaglio dovrebbe essere il listato per la statistica, non avresti per caso il listato (se possibile) per la realizzazione della tecnica?
grazie
Marco

 

[Lucalf]

mi pare di averlo devo guardare, sai ho duvuto riformattare il pc a causa dell'MBR rovinato.
dammi un pò e te lo posto
Ciao [8D]

LucAlf

 

[milton]

grazie lucalf ... davvero gentile .... aspetto una tua allora
Marco

 

[Lucalf]

è stato più facile del previsto, era il primo dvd di dati.
Il listato è di Danilo ed fa una ricerca per ambate. te lo posto sperando che ti possa essere utile.

' by Danilo
' Cerca Ambate con parametro di ricerca in percentuale di sortita
' ATTENZIONE ! ---> Analizza tutte le ruote in una sola scansione
Sub main()
ColoreTesto 2 : Scrivi "ATTENZIONE !!!",1
Scrivi "Ricerca per Ambata eseguita in tutte le ruote contemporaneamente",1
Dim som(5,90)
Dim estr(5)
Dim val(5,90)
Dim amb(90)
perc=InputBox("Imposta la percentuale esiti (10% - 100%)",,99)
es=InputBox("Inserisci 0 ultima, 1 prima, ....:",,0)
nmc=InputBox("Quanti mesi da analizzare ?",,4)
ncg=InputBox("Quanti colpi di gioco ?",,1)
ultest=7404
n=EstrazioneFin
z=0
trovato=False
While z<eval(nmc)

If (((eval(es)=0)And(n=ultest))Or((IndiceMensile=eval(es)And(eval(es)>0))Or((IndiceMensile(n+1)=1)And(eval(es)=0)))) Then

z=z+1
End If
n=n-1
Wend
nn=n+1
For r2=1 To 10
For i=1 To 90
amb(i)=0
Next
ColoreTesto 0 : Scrivi : Scrivi "***********************************************************",1
ColoreTesto 0 : Scrivi "IMPOSTAZIONI:",1
If eval(es)=0 Then
s="(All'ultima"
Else
s="Alla ("+es
End If
s=s+"°) estrazione del mese per ("
If eval(ncg)=0 Then
s=s+"un mese:"
Else
If eval(ncg)=1 Then
s=s+ncg+") colpo:"
Else
s=s+ncg+") colpi:"
End If
End If
ColoreTesto 0 : Scrivi s
ColoreTesto 1 : Scrivi "Quantità mesi Impostati: ("& nmc &")",1
ColoreTesto 0 : Scrivi "Statistica dal: "+DataEstrazione(nn)+" al: "+DataEstrazione(EstrazioneFin),1
ColoreTesto 2 : Scrivi "Percentuale Impostata: "& perc &"%",1
Scrivi
For r=1 To 10
z=0
For i=1 To 5
For j=1 To 90
som(i,j)=0
val(i,j)=True
Next
Next
For i=1 To 5
estr(i)=0
Next
valido=False
For n=nn To EstrazioneFin
If eval(es)=0 Then m=n+1 Else m=n End If
If (((eval(es)=0)And(n=ultest))Or((IndiceMensile=eval(es)And(eval(es)>0))Or((IndiceMensile(n+1)=1)And(eval(es)=0)))) Then
z=z+1
For i=1 To 5
estr(i)=Estratto(n,r,i)
Next
For i=1 To 5
For j=1 To 90
val(i,j)=True
Next
Next
k2=eval(ncg)
k3=n+k2
If k3 > EstrazioneFin Then k3 = EstrazioneFin End If
For nv=n+1 To k3
For i=1 To 5
For j=1 To 5
k=Estratto(nv,r2,j)-estr(i)
While k<=0
k=k+90
Wend
If val(i,k)=True Then
som(i,k)=som(i,k)+1
val(i,k)=False
End If
Next
Next
Next
End If
Next
For i=1 To 5
For j=1 To 90
zz=Int((z/100)*perc)
s=CStr(eval(i))+"° di "+FormatSpace(NomeRuota(r),8)+" + "+Format2(CStr(eval(j)))+" su "
ColoreTesto 1
s=s+FormatSpace(NomeRuota(r2),8)+" è uscito "+CStr(som(i,j))+"/"+CStr(eval(z))
s=s+" : "+FormatSpace(CStr(Fuori90(eval(estr(i)+j))),3)
If (val(i,j)=True) Then s=s+" in corso" Else s=s+"----> sfaldato" End If
If som(i,j)>=zz Then
Scrivi s
amb(Fuori90(eval(estr(i)+j)))=amb(Fuori90(eval(estr(i)+j)))+1
End If
Next
Next
Next
ColoreTesto 2 : Scrivi : Scrivi "***** NUMERI - CONVERGENTI *****",1
For i=1 To 90
If (amb(i)>1) Then ColoreTesto 1 : Scrivi CStr(eval(i))+": Convergente in ("+CStr(eval(amb(i)))+" sistemi)",1
Next
Next
End Sub


LucAlf

 

[milton]

grazie lucalf, ancora qualche informazione .... è possibile modificare il listato in modo che ti restituisca una tecnica simile al metodo soleado? cioè di matematica sommativa su terni? se è possibile ci perdo un po' di tempo e cerco di capire come modificare il listato ...
grazie
Marco

 

[Lucalf]

Si, ti da una serie di risultati in base alle impostatzioni che darai, e poi utilizzare il metodo di soleado utilizzando i numeri e le combinazione matematiche che il secondo listato ti avrà fornito.
Però se non provi non puoi sapere se farà al caso tuo.
Ciao ed in bocca al lupo

LucAlf