Ciao a tutti e Buon Anno!!!

[antonio65]

Salve e BuonAnno a tutti...molto tempo che non venivo sul sito...sono stato in Svizzera per lavoro....
Qualcuno per caso può inserire la funzione "SerieFreq" nel seguente script in allegato?
In pratica bisogna ricavare dei valori più frequenti per la tecnica all'interno dello script...
Infatti se provate a eseguire lo script noterete che nella voce "Men" da lo stesso numero...quindi nullo...una volta inserita la funzione (se cosi si chiama SerieFreq) secondo me cambiano i valori.
Grazie in anticipo Antonio.

Sub Main
Scrivi String(47,32) & "List. RANDHOUSE",1
ColoreTesto 0
Dim numeri1(10),numeri2(10),numeri3(10)
Dim ruote(12),ruotee(10)
Dim poste(3),postee(3)
Dim posta(2)
posta(1) = 1 ' < - - - posta per estratto
'es = 9200'7694
nru1 = BA_
p = 1
p2 = 2
p3 = 3
p4 = 4
p5 = 5
clp = 1' < - - - Colpi di gioco
ini = 9200'7694'EstrazioneFin - est
fin = EstrazioneFin
For ES = ini To fin
If IndiceMensile(ES) = 1 Then

Messaggio DataEstrazione(ES,1) & " List.RANDHOUSE " ' < - - - - Numero estrazioni
a01 = Estratto(es,nru1,p)
a02 = Estratto(es,nru1,p2)
a03 = Estratto(es,nru1,p3)
a04 = Estratto(es,nru1,p4)
a05 = Estratto(es,nru1,p5)

DNA1 =(a01 + a02)*4
DNA2 =(a01 + a03)*4
DNA3 =(a01 + a04)*4
DNA4 =(a01 + a05)*4
DNA5 =(a02 + a03)*4
DNA6 =(a02 + a04)*4
DNA7 =(a02 + a05)*4
DNA8 =(a03 + a04)*4
DNA9 =(a03 + a05)*4
DNA10 =(a04 + a05)*4
For nu = 1 To 90
co = co + 1
' QUESTO CICLO (MEN) NON PRODUCE NULLA SOLO nu x 4
MEN1 = nu*4
MEN2 = nu*4
MEN3 = nu*4
MEN4 = nu*4
MEN5 = nu*4
'bisogna capire il Valore che deve ricavare
' se vuoi la frequenza trasformali in Numeri vettori e usa il codice SerieFreq
' poi li filtri in base ad un valore.
'--------------------------------------------
'----- QUESTO CALCOLO LO LASCIO ALLA TUA DEDUZIONE -------------
nu1 = Fuori90(Abs(MEN1 - DNA1)/4)
nu2 = Fuori90(Abs(MEN2 - DNA2)/4)
nu3 = Fuori90(Abs(MEN3 - DNA3)/4)
nu4 = Fuori90(Abs(MEN4 - DNA4)/4)
nu5 = Fuori90(Abs(MEN5 - DNA5)/4)
'---------------------------------------------------------------

Scrivi Format2(co) & " - " & Format2(nu1) & " " & Format2(nu2) & " " & Format2(nu3) & " " & Format2(nu4) & " " & Format2(nu5)
Scrivi "MEN = " & Men1 & " " & Men2 & " " & Men3 & " " & Men4 & " " & Men5
Scrivi "DNA = " & DNA1 & " " & DNA2 & " " & DNA3 & " " & DNA4 & " " & DNA5

If ScriptInterrotto Then Exit For
Scrivi "============================================= ==== ================="
Scrivi "DNA4 Ruota-" & SiglaRuota(nru1) & "---" & Format2(DNA4),1
Scrivi "CHEF5 Ruota-" & SiglaRuota(nru1) & "---" & Format2(CHEF5),1
ruote(2) = 1
'ruote(3) = 2
'ruote(4) = 3
'ruote(5) = 4
'ruote(6) = 5
'ruote(7) = 6
'ruote(8) = 7
'ruote(9) = 8
'ruote(10) = 9
'ruote(11) = 10
'ruote(12) = 12

numeri1(1) = nu1
numeri1(2) = nu2
numeri1(3) = nu3
numeri1(4) = nu4
numeri1(5) = nu5
ImpostaGiocata 1,numeri1,ruote,posta,clp
Gioca ES
Next
co = 0
End If
Next
ScriviResoconto
ColoreTesto 2 :Scrivi String(37,32) & " Somme estratti x Randhouse",1
Scrivi String(47,32) & "List. RANDHOUSE",1
ColoreTesto 0
End Sub

x

 

[Lillo.]

ciao a tutti e bun anno

trovato in rete questo metodo sembra ancora funzionare su tutte sarebbe bello avere listato grazie a tutti

auguroni

Ciao a Tutti

Ecco un nuovo metodo alla portata di Tutti e di facile interpretazione
Procedimento:
In una qualsiasi ruota rintracciare un numeretto in 3° posizione e sommarlo con il 5° poi detrarre il 5° numero con il numeretto rintracciato, mentre per il secondo ambo useremo il vertibile dell'ambata.

esempio pratico:

estrazione del 16.05.13 Cagliari 38 61 07 49 31

07+31 = 38 Ambata
31-07 = 24
Vertibile ambata = 83

ambata 38 e ambi secchi 24-38 / 24-83 / 38-83


Ogni previsione ha la durata di 8 colpi, si può terminarla con l'uscita dell'ambata o mantenerla sino al termine indicato.