Richiesta piccolo script!!!

[antonio65]

Ciao, lo so che Mike58 è un genio...sempre a lui mi sono rivolto...ha risolto tutto...cmq provaci....io sono zero per queste cose...

 

[Mike58]

Ciao Antonio,Salvo,vi ringrazio per la considerazione e spero che il mio intervento vi sia stato di aiuto.

Per Antonio, scusa se ho usato il dire poco stimolante, ma correggere uno script che fa una cosa è più complicato che farlo ex-novo, capire tutti i passaggi, capire tutte le variabili, insomma mettere ordine non è facile.

Per questo motivo anni fa mi sono ingegnato per imparare il vbscript per far da me quello che mi occorreva chiaramente sempre senza presunzione di perfezione.

Quindi cercate anche voi di farlo anche copiando e leggendo l'help guida.

Purtroppo script per algoritmi sommativi + migliori abbinamenti necessitano di vari passaggi cicli for ed end if nonché di elevati tempi di elaborazioni e da qui il dire "poco stimolante"

Ciao.

 

[antonio65]

Ciao Mike58, lo immaginavo che era questo...di tanto in tanto ci provo anche per esercitarmi...in tutto e per tutto devo solo dirti grazie!!!

 

[salvo50]

ti allego lo script dove cerca i migliori 5 algoritmi per ogni estratti....ora quello che cerco io sarebbe questo: una volta trovati i migliori algoritmi
cercare sempre con lo stesso metodo i migliori compagni per ambo e terno....la tecnica matematica è questa:
qualsiasi ruota o mese etc etc bisogna sommare il primo estratto con il secondo estratto con il terzo ,quarto e quinto...cosi il secondo con il terzo etcetc fino ad ottenere 10 somme...ogni somma deve essere moltiplicata x 4...esempio 27+38=65x4=260 infatti il software cche ti allego cerca il miglior algoritmo con la funzione for nu=1 to 90 una volta trovato il miglior algoritmo si prosegue cosi: esempio: supponiamo fosse il 27 si moltiplica x 4 =108 quindi 260-108=152 il tutto diviso 4 senza fuori 90 quindi 152/4=38 se si moltiplica il 38 avevamo poi il 37...
era un esempio di tecnica...ma quello che ti ho scritto vale per la stessa estrazione quindi non porta a niente....rimane solo sommare 1estratto col secondo etc etc ...e bisogna trovare con la funzione For nu=1 to 90



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

MEN1 = nu*4
MEN2 = nu*4
MEN3 = nu*4
MEN4 = nu*4
MEN5 = nu*4

b01 = Fuori90(Abs((Abs((MEN1 - DNA1))/4)))
b02 = Fuori90(Abs((Abs((MEN2 - DNA2))/4)))
b03 = Fuori90(Abs((Abs((MEN3 - DNA3))/4)))
b04 = Fuori90(Abs((Abs((MEN4 - DNA4))/4)))
b05 = Fuori90(Abs((Abs((MEN5 - DNA5))/4)))

Ciao!

Hai scritto che con i 5 numeri di una qualsiasi estrazione formare 10 ambi, nello script sono da DNA1 a DNA10, ma poi vedo nello script che ne usi solo 5, da DNA1 a DNA5.

La tecnica matematica che hai esposto, nel ciclo - For nu = 1 to 90 - genera 90 cinquine tutte diverse, ho aumentato quel 90 per vedere quando si sarebbe verificato la ripetizione di una qualsiasi cinquina generata e purtroppo non ho trovato un numero fisso, ma sto cercando di trovare una formula che permetta di identificare questo numero che è diverso per ogni cinquina, comunque la domanda era di queste 90 cinquine quale usiamo?
Tu dici trovare i migliori compagni per ambo e terno, ma con quale criterio, lo script se non glielo diciamo noi quali deve usare, non trova niente, nello script originale RAMCO e poi MIKE58 hanno scritto:

QUESTO SCRIPT ELABORA PER OGNI POSIZIONE I PRIMI 25 ALGORITMI SU OGNI SINGOLA RUOTA

è vero questo script elabora per ogni posizione 25 algoritmi, ma secondo le disposizioni che gli hanno dato loro.
Se hai qualche idea esponila, perche io non sò come trovare i migliori compagni per ambo e terno

 

[antonio65]

Ciao Salvo,riguardo al DNA ne uso solo 5 per volta perchè non so inserire 10 numeri(quindi faccio 2 ricerche)

b01 = Fuori90(Abs((Abs((MEN1 - DNA1))/4)))
b02 = Fuori90(Abs((Abs((MEN2 - DNA2))/4)))
b03 = Fuori90(Abs((Abs((MEN3 - DNA3))/4)))
b04 = Fuori90(Abs((Abs((MEN4 - DNA4))/4)))
b05 = Fuori90(Abs((Abs((MEN5 - DNA5))/4)))

'b01 = Fuori90(Abs((Abs((MEN1 - DNA5))/4)))
'b02 = Fuori90(Abs((Abs((MEN2 - DNA6))/4)))
'b03 = Fuori90(Abs((Abs((MEN3 - DNA8))/4)))
'b04 = Fuori90(Abs((Abs((MEN4 - DNA9))/4)))
'b05 = Fuori90(Abs((Abs((MEN5 - DNA10))/4)))

Dunque originariamente gli algoritmi erano 25....io li ho portati a 5 per mia comodità...
quindi con l'esempio della foto che ho allegato una volta trovato il miglior algoritmo per ogni estratto...con lo stesso metodo che trova gli algortimi ...dovrebbe trovare i migliori ambi partendo come capogioco il miglior algoritmo...

 

[antonio65]

ATTENZIONE ANALISI DELLA POSIZIONE. 3 Colpo n°. 12 3°Ca + 44 su Napoli è uscito 17 su 122 casi - Num. [01] Ultimo Calcolato Rit.Att. 09 ... SFALDATO ... freq...89 - Esito al colpo... 8 3°Ca + 30 su Napoli è uscito 14 su 122 casi - Num. [13] Ultimo Calcolato Rit.Att. 05 ... in corso ... freq...108 3°Ca + 50 su Napoli è uscito 11 su 122 casi - Num. [07] Ultimo Calcolato Rit.Att. 05 ... in corso ... freq...77 3°Ca + 24 su Napoli è uscito 11 su 122 casi - Num. [19] Ultimo Calcolato Rit.Att. 19 ... in corso ... freq...100 3°Ca + 75 su Napoli è uscito 11 su 122 casi - Num. [32] Ultimo Calcolato Rit.Att. 18 ... in corso ... freq...75 Supponiamo che nel 3°Estratto eleborato a Napoli per Cagliari troviamo 44 miglior algoritmo (anche se c'è scritto +44 perchè lo script è stato creato come sommativo)sarebbe moltiplicare poi il 44 x 4=176...questo poca importa...Hai capito?

 

[antonio65]

Prova questo script(stessa tecnica però riguardo al 10&lotto 5 minuti) ad esempio trovando il miglior algoritmo
come in questo caso per la fascia 268 28 su 60 non è male...perchè chiedo l'aiuto??? perchè poi devo cercare io manualmente uno x uno
i migliori compagni..e non si può fare troppo lavoro...quindi con questo script quello che faccio dopo una volta trovato il miglior algoritmo...

Scrivi String(47,32) & "ANTONIO",1
ColoreTesto 0
Sub Main
Dim Tipoarchivio
Dim Nn(10)
'Dim posta(2)
'posta(2) = 1 ' < - - - posta per estratto
QT = InputBox("Quanti Numeri","Numeri",1)

nSorte = ScegliSorte
Tipoarchivio = ScegliArchivio
If Tipoarchivio > 00 Then
If Tipoarchivio = 02 Then
Call ImpostaArchivio10ELotto(Tipoarchivio)
If MsgBox("Vuoi aggiornare le estrazioni prima di eseguire il listato",vbQuestion + vbYesNo) = vbYes Then
Call AggiornaArchivioDL
End If

Orarin = 268
Orarfi = 268
kin = CInt(InputBox(" solo x 10Lotto5M Range Orario da n.:",,Orarin))
kfi = CInt(InputBox(" solo x 10Lotto5M Range Orario a n. ",,Orarfi))
EstrRic = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO ","ESTRAZIONI RETROATTIVE",17172))
ncg = InputBox("QUANTE ESTRAZIONI",,1)
ultest = EstrazioneFinDL
Ini = EstrazioneFinDL - 17172
fin = EstrazioneFinDL
End If
For n = ini To fin
tot = 0
If IndiceAnnualeDL >= kin And IndiceAnnualeDL <= kfi Then
Messaggio DataEstrazioneDL(n,True) & " List.ANTONIO65 " ' < - - - - Numero estrazioni
AvanzamentoElab Ini,fin,n

MEN1 = 71*4
MEN2 = 158*4'
MEN3 = 26*4
MEN4 = 141*4
MEN5 = 135*4
MEN6 = 73*4
MEN7 = 39*4
MEN8 = 98*4'
MEN9 = 97*4
MEN10 = 106*4'
MEN11 = 1*4
MEN12 = 1*4
MEN13 = 1*4
MEN14 = 1*4
MEN15 = 1*4
MEN16 = 1*4
MEN17 = 1*4
MEN18 = 1*4
MEN19 = 1*4
MEN20 = 1*4

DNA1 =(EstrattoDL(n - 0,1) +(EstrattoDL(n - 0,14)))*4
DNA2 =(EstrattoDL(n - 0,16) +(EstrattoDL(n - 0,19)))*4
DNA3 =(EstrattoDL(n - 0,3) +(EstrattoDL(n - 0,7)))*4
DNA4 =(EstrattoDL(n - 0,13) +(EstrattoDL(n - 0,17)))*4
DNA5 =(EstrattoDL(n - 0,3) +(EstrattoDL(n - 0,19)))*4
DNA6 =(EstrattoDL(n - 0,1) +(EstrattoDL(n - 0,18)))*4
DNA7 =(EstrattoDL(n - 0,4) +(EstrattoDL(n - 0,7)))*4
DNA8 =(EstrattoDL(n - 0,7) +(EstrattoDL(n - 0,16)))*4
DNA9 =(EstrattoDL(n - 0,13) +(EstrattoDL(n - 0,14)))*4
DNA10 =(EstrattoDL(n - 0,9) +(EstrattoDL(n - 0,16)))*4
DNA11 =(EstrattoDL(n - 0,1) +(EstrattoDL(n - 0,12)))*4
DNA12 =(EstrattoDL(n - 0,1) +(EstrattoDL(n - 0,13)))*4
DNA13 =(EstrattoDL(n - 0,1) +(EstrattoDL(n - 0,14)))*4
DNA14 =(EstrattoDL(n - 0,1) +(EstrattoDL(n - 0,15)))*4
DNA15 =(EstrattoDL(n - 0,1) +(EstrattoDL(n - 0,16)))*4
DNA16 =(EstrattoDL(n - 0,1) +(EstrattoDL(n - 0,17)))*4
DNA17 =(EstrattoDL(n - 0,1) +(EstrattoDL(n - 0,18)))*4
DNA18 =(EstrattoDL(n - 0,1) +(EstrattoDL(n - 0,19)))*4
DNA19 =(EstrattoDL(n - 0,1) +(EstrattoDL(n - 0,2)))*4
DNA20 =(EstrattoDL(n - 0,2) +(EstrattoDL(n - 0,3)))*4

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)
'nu6 = Fuori90(Abs(MEN6 - DNA6)/4)
'nu7 = Fuori90(Abs(MEN7 - DNA7)/4)
'nu8 = Fuori90(Abs(MEN8 - DNA8)/4)
'nu9 = Fuori90(Abs(MEN9 - DNA9)/4)
'nu10 = Fuori90(Abs(MEN10 - DNA10)/4)


Scrivi "----------------------------------------------------------- "
Scrivi " Estrazione n." & n & "--del " & DataEstrazioneDL(n,1) & "-- " & GetInfoEstrazioneDL,1
StringaEstrattiDL & " - " & Format2(NumeroOroDL),1

Nn(1) = nu1:Nn(2) = nu2:Nn(3) = nu3:Nn(4) = nu4:Nn(5) = nu5:Nn(6) = nu6:Nn(7) = nu7:Nn(8) = nu8:Nn(9) = nu9:Nn(10) = nu10:
Call VerificaEsitoDL(Nn,n + 01,nSorte,QN,Retesito,Retcolpi,RetEstratti,RetIdEstr)
If RetEsito = "" Then RetEsito = "In Corso"
Scrivi StringaNumeri(Nn,,True) & " " & retesito & " " & RetColpi & " " & RetEstratti & " " & RetIdEsr,1
For P = 01 To 20
ColoreTesto 1
For xx = 01 To QT
If EstrattoDL(n + 00,P) = Nn(xx) Then
ColoreTesto 2
tot = tot + 01
End If
Next
Scrivi Format2(EstrattoDL(n + 00,P)),1,0
ColoreTesto 0
Scrivi ".",0,0
Next
ColoreTesto 7
If ToT = Int(qt) Then
Scrivi " - Punteggio max -> " & tot,1,0
'ColoreTesto 3
Scrivi " - Attenzione vincita piena ",1,- 1,3
Else
If Tot = Int(qt - 1) Then
ColoreTesto 7
Scrivi " - Punteggio max -> " & tot,1,0
ColoreTesto 2
Scrivi " - Vincita -1 ",1
Else
If Tot = Int(qt - 2) Then
ColoreTesto 7
Scrivi " - Punteggio max -> " & tot,1,0
ColoreTesto 2
Scrivi " - Vincita -2 ",1
Else
ColoreTesto 7
If Tot <> Int(qt) Then Scrivi " - Punteggio max -> " & tot,1
End If
End If
End If
ColoreTesto 0
'Scrivi String(80,"-")
Scrivi
'Scrivi "-------------------------------------------- Dettaglio ultime estrazioni scelte --------------------------------------------"
Call ImpostaGiocataDL(01,Nn,1,ncg,nSorte)
Call GiocaDL(n,True)
End If

Next
Call ScriviResocontoDL
ColoreTesto 2 :Scrivi String(37,32) & " Somme estratti x ANTONIO",1
Scrivi String(47,32) & "ANTONIO",1
ColoreTesto 0
End If
End Sub
'Function ScegliSorte
'ReDim aVoci(04)
'aVoci(00) = "Estratto"
'aVoci(01) = "Ambo"
'aVoci(02) = "Terno"
'aVoci(03) = "Quaterna"
'aVoci(04) = "Cinquina"
'ScegliSorte = ScegliOpzioneMenu(aVoci,02,"Secegli Tipo Sorte") + 01
'End Function
Function ScegliArchivio()
ReDim aVoci(01)
aVoci(00) = "10 e lotto Serale"
aVoci(01) = "10 e lotto 5minuti"
ScegliArchivio = ScegliOpzioneMenu(aVoci,01,"Secegli archivio") + 01
End Function

 

[salvo50]

Ciao!

Appena ho un po' di tempo me lo studio, vediamo cosa riesco a combinare.

 

[salvo50]

Non mi è mai interessato il 10 e lotto, quindi alcune cose non le sò, quindi ti volevo chiedere, cosa vuol dire ora 268, cioè quel 268 che cosa è.

 

[antonio65]

Estrazione 268 il numero di estrazione che la riguarda appunto la 268esima

 

[genios]

Potreste aggiungere in out 2 colonne . Prima colonna verifica esito delle 2 cadenze giocate insieme cioè 18 numeri(Esito cad1+ Esito cad2 ) . Seconda colonna colpi (clp).

Ciao EUGENIO

 

[antonio65]

Ciao Genios, grazie per il consiglio ma riguarda un altro script..se vuoi te lo allego.in pratica in uno script programmato per cercare i migliori algoritmi..avevo fatto la richiesta se con lo stesso metodo avrebbe trovato gli ambi ed eventuali terni...

 

[genios]

Antonio65 allega pure lo script gli do un occhiata . Sicuramente giocando 18 numeri si avranno maggiori esiti positivi . Selezionando magari con altri metodi i 18 numeri si può ridurre la massa numerica .
Grazie
Ciao Eugenio

 

[antonio65]

Se hai le capacità di modificarlo fai pure..il tutto cerca i migliori algoritmi per ciascun estratto...io ne ho scelto 5...
E' nato come script sommativo...ma io l ho modificato...a me interessa che una volta trovato il miglior algoritmo
trovi anche il miglior accoppiamento per ambo e se occorre per terno...

Sub Main()
ColoreTesto 1: Scrivi " X RANDHOUSE ",1
Scrivi String(15," ") & "QUESTO SCRIPT ELABORA PER OGNI POSIZIONE I PRIMI 25 ALGORITMI SU OGNI SINGOLA RUOTA",1
Scrivi String(35," ") & "IN ORDINE DI USCITE PARTENDO DALLA PIU'ALTA",1
Scrivi String(25," ") & "SEGNALANDO IL RITARDO ATTUALE E LA FREQUENZA DELL'AMBATA IN GIOCO",1
ColoreTesto 0: Scrivi
Dim mm(1)
Dim nam(90,8),nn(1),ruota(1),nt(90,8),n3(90,8),n4(90,8),n5(90,8)
nru1 = CInt(InputBox("Ruota di gioco","Ruota di GIOCO",1))
ind = CInt(InputBox("ESTRAZIONE MENSILE? (Inserisci 0 Per l'ultima, 1 per la prima, ....)",,1))
ne = InputBox("Numero estrazioni:","ESTRAZIONI",1604)
ncg = CInt(InputBox("Numero colpi di gioco","COLPI di GIOCO",1))
nStart = Timer ' partenza tempo di elaborazione
For nru11 = 1 To 1
If nru11 = 11 Then nru11 = 12
ColoreTesto 0:Scrivi String(115,"=")
ruota(1) = nru1
For x = 1 To 90
For y = 1 To 8
nam(x,y) = 0
nt(x,y) = 0
n3(x,y) = 0
n4(x,y) = 0
n5(x,y) = 0
Next
Next
p = 1
p2 = 2
p3 = 3
p4 = 4
p5 = 5
casi = 0
ultest = 9283 ' qui ogni ultima estrazione aggiorna manualmente il numero dell'ultima
ini = EstrazioneFin - ne
fin = EstrazioneFin
For es = ini To fin
If IndiceMensile(es) = ind Then
If IndiceMensile(es) = ind Or(((eval(ind) = 0)And(es = ultest))Or((IndiceMensile(es) = eval(ind)And(eval(ind) > 0))Or((IndiceMensile(es + 1) = 1)And(eval(ind) = 0)))) Then

colpo = fin - es
Messaggio "Elaborazione estrazioni... " &(es) & " ---> script by Mike58 - Modificato da Blackmore"
Call(AvanzamentoElab(Ini,fin,es))
casi = casi + 1

Scrivi Format2(casi) & ") " & DataEstrazione(es) & " [" & es & "] " & SiglaRuota(nru1) & " " & StringaEstratti(es,nru1)
co = 0
For nu = 1 To 90
co = co + 1


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

MEN1 = nu*4
MEN2 = nu*4
MEN3 = nu*4
MEN4 = nu*4
MEN5 = nu*4


b01 = Fuori90(Abs((Abs((MEN1 - DNA1))/4)))
b02 = Fuori90(Abs((Abs((MEN2 - DNA2))/4)))
b03 = Fuori90(Abs((Abs((MEN3 - DNA3))/4)))
b04 = Fuori90(Abs((Abs((MEN4 - DNA4))/4)))
b05 = Fuori90(Abs((Abs((MEN5 - DNA5))/4)))

'b01 = Fuori90(Abs((Abs((MEN1 - DNA5))/4)))
'b02 = Fuori90(Abs((Abs((MEN2 - DNA6))/4)))
'b03 = Fuori90(Abs((Abs((MEN3 - DNA8))/4)))
'b04 = Fuori90(Abs((Abs((MEN4 - DNA9))/4)))
'b05 = Fuori90(Abs((Abs((MEN5 - DNA10))/4)))

nam(co,1) = co
nt(co,1) = co
n3(co,1) = co
n4(co,1) = co
n5(co,1) = co
nam(co,2) = nru11
nt(co,2) = nru11
n3(co,2) = nru11
n4(co,2) = nru11
n5(co,2) = nru11
nam(co,3) = p
nt(co,3) = p2
n3(co,3) = p3
n4(co,3) = p4
n5(co,3) = p5
nam(co,4) = nu
nt(co,4) = nu
n3(co,4) = nu
n4(co,4) = nu
n5(co,4) = nu
nam(co,6) = b01
nt(co,6) = b02
n3(co,6) = b03
n4(co,6) = b04
n5(co,6) = b05
nam(co,7) = 0
nt(co,7) = 0
n3(co,7) = 0
n4(co,7) = 0
n5(co,7) = 0
esncg = es + ncg
If esncg > EstrazioneFin Then esncg = EstrazioneFin End If
For ess = es + 1 To esncg
For pp = 1 To 5
e = Estratto(ess,nru11,pp)
If e = b01 Then
nam(co,5) = nam(co,5) + 1
nn(1) = nam(co,6)
nam(co,7) = SerieFreq(es + 1,ess,nn,ruota,1)
End If
If e = b02 Then
nt(co,5) = nt(co,5) + 1
nn(1) = nt(co,6)
nt(co,7) = SerieFreq(es + 1,ess,nn,ruota,1)
End If
If e = b03 Then
n3(co,5) = n3(co,5) + 1
nn(1) = n3(co,6)
n3(co,7) = SerieFreq(es + 1,ess,nn,ruota,1)
End If
If e = b04 Then
n4(co,5) = n4(co,5) + 1
nn(1) = n4(co,6)
n4(co,7) = SerieFreq(es + 1,ess,nn,ruota,1)
End If
If e = b05 Then
n5(co,5) = n5(co,5) + 1
nn(1) = n5(co,6)
n5(co,7) = SerieFreq(es + 1,ess,nn,ruota,1)
End If
Next
Next
Next
End If
End If
Next
Scrivi "------------------------------------------"
ColoreTesto 1
Scrivi "ANALISI Dal " & DataEstrazione(ini) & " al " & DataEstrazione(fin),1
Scrivi "DNA1" & SiglaRuota(r) & "---" & Format2(DNA1),1
Scrivi "MEN1" & SiglaRuota(r) & "---" & Format2(MEN1),1
Scrivi

If ind = 0 Then Scrivi "ALL'ULTIMA ESTRAZIONE DEL MESE ",1
If ind > 0 Then Scrivi "ALLA " &(ind) & "° ESTRAZIONE DEL MESE ",1
Scrivi "RUOTE DI GIOCO : " & NomeRuota(nru1),1
Scrivi "COLPI DI GIOCO : " & ncg,1
Scrivi "CASI ANALIZZATI : " & casi,1
ColoreTesto 2
Scrivi"N° colpo in corso ---> " & colpo,1
ColoreTesto 0
Scrivi""
Scrivi "Ultima estrazione numeri estratti " & NomeRuota(nru1) & " - " & StringaEstratti(EstrazioneFin,nru1)
Scrivi""
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice nam,- 1,5
For ca = 1 To 5
mm(1) = nam(ca,6)
ratt = SerieRitardo(fin - 250,fin,mm,ruota,1)
freqq = SerieFreq(fin - ne,fin,mm,ruota,1)
esitoo = colpo - ratt
'esitoo= Abs(ind - ratt)
If nam(ca,7) = 0 Then
ColoreTesto 0
Scrivi eval(nam(ca,3)) & "°" & Left(NomeRuota(eval(nam(ca,2))),2) & " + " & _
Format2(nam(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(nam(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(nam(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... in corso ..." & " freq..." & freqq,1
Else
ColoreTesto 2
If nam(ca,7) > 0 Then
Scrivi eval(nam(ca,3)) & "°" & Left(NomeRuota(eval(nam(ca,2))),2) & " + " & _
Format2(nam(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(nam(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(nam(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... SFALDATO ..." & " freq..." & Format2(freqq),0,0
Scrivi " - Esito al colpo... " & esitoo,1
'cc = 0
cc = cc + 1
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 0
'Scrivi "----- Sfaldati...." & cc,1
ColoreTesto 0
OrdinaMatrice nam,- 1,8
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p2 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 1
OrdinaMatrice nt,- 1,5
For ca = 1 To 5
mm(1) = nt(ca,6)
ratt = SerieRitardo(fin - 250,fin,mm,ruota,1)
freqq = SerieFreq(fin - ne,fin,mm,ruota,1)
'esito1 = colpo - ratt
esito1 = Abs(ind - ratt)
If nt(ca,7) = 0 Then
ColoreTesto 0
Scrivi eval(nt(ca,3)) & "°" & Left(NomeRuota(eval(nt(ca,2))),2) & " + " & _
Format2(nt(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(nt(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(nt(ca,6))) & "] Ultimo Calcolato; Rit.Att. " & Format2(ratt) & " ... in corso ..." & " freq..." & freqq,1
Else
ColoreTesto 2
If nt(ca,7) > 0 Then
Scrivi eval(nt(ca,3)) & "°" & Left(NomeRuota(eval(nt(ca,2))),2) & " + " & _
Format2(nt(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(nt(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(nt(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... SFALDATO ..." & " freq..." & Format2(freqq),0,0
Scrivi " - Esito al colpo... " & esito1,1
dd = dd + 1
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 1
'Scrivi "----- Sfaldati...." & dd,1
ColoreTesto 0
OrdinaMatrice nt,- 1,8
ColoreTesto 0
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p3 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n3,- 1,5
For ca = 1 To 5
mm(1) = n3(ca,6)
ratt = SerieRitardo(fin - 250,fin,mm,ruota,1)
freqq = SerieFreq(fin - ne,fin,mm,ruota,1)
'esito2 = colpo - ratt
esito2 = Abs(ind - ratt)
If n3(ca,7) = 0 Then
ColoreTesto 0
Scrivi eval(n3(ca,3)) & "°" & Left(NomeRuota(eval(n3(ca,2))),2) & " + " & _
Format2(n3(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(n3(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n3(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... in corso ..." & " freq..." & freqq,1
Else
ColoreTesto 2
If n3(ca,7) > 0 Then
Scrivi eval(n3(ca,3)) & "°" & Left(NomeRuota(eval(n3(ca,2))),2) & " + " & _
Format2(n3(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(n3(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n3(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... SFALDATO ..." & " freq..." & Format2(freqq),0,0
Scrivi " - Esito al colpo... " & esito2,1
hh = hh + 1
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 1
'Scrivi "----- Sfaldati...." & hh,1
ColoreTesto 0
OrdinaMatrice n3,- 1,8
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p4 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n4,- 1,5
For ca = 1 To 5
mm(1) = n4(ca,6)
ratt = SerieRitardo(fin - 250,fin,mm,ruota,1)
freqq = SerieFreq(fin - ne,fin,mm,ruota,1)
'esito3 = colpo - ratt
esito3 = Abs(ind - ratt)
If n4(ca,7) = 0 Then
ColoreTesto 0
Scrivi eval(n4(ca,3)) & "°" & Left(NomeRuota(eval(n4(ca,2))),2) & " + " & _
Format2(n4(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(n4(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n4(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... in corso ..." & " freq..." & freqq,1
Else
ColoreTesto 2
If n4(ca,7) > 0 Then
Scrivi eval(n4(ca,3)) & "°" & Left(NomeRuota(eval(n4(ca,2))),2) & " + " & _
Format2(n4(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(n4(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n4(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... SFALDATO ..." & " freq..." & Format2(freqq),0,0
Scrivi " - Esito al colpo... " & esito3,1
ff = ff + 1
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 1
'Scrivi "----- Sfaldati...." & ff,1
ColoreTesto 0
OrdinaMatrice n4,- 1,8
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p5 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n5,- 1,5
For ca = 1 To 5
mm(1) = n5(ca,6)
ratt = SerieRitardo(fin - 250,fin,mm,ruota,1)
freqq = SerieFreq(fin - ne,fin,mm,ruota,1)
'esito4 = colpo - ratt
esito4 = Abs(ind - ratt)
If n5(ca,7) = 0 Then
ColoreTesto 0
Scrivi eval(n5(ca,3)) & "°" & Left(NomeRuota(eval(n5(ca,2))),2) & " + " & _
Format2(n5(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(n5(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n5(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... in corso ..." & " freq..." & freqq,1
Else
ColoreTesto 2
If n5(ca,7) > 0 Then
Scrivi eval(n5(ca,3)) & "°" & Left(NomeRuota(eval(n5(ca,2))),2) & " + " & _
Format2(n5(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(n5(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n5(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... SFALDATO ..." & " freq..." & Format2(freqq),0,0
Scrivi " - Esito al colpo... " & esito4,1
gg = gg + 1
End If
End If
Next
If ScriptInterrotto Then Exit For
Next
'Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 1
'Scrivi "---- Sfaldati...." & gg,1
ColoreTesto 0
OrdinaMatrice n5,- 1,8
Scrivi String(115,"="),1
Scrivi " Listato da Ramco e modificato da Mike58 .......... By Blackmore ",1
nEnd = Timer ' fine tempo di elaborazione
Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart))
End Sub
Function FormattaSecondi(s)
'Questa Function trasforma il numero di secondi passato come parametro in una stringa
' passando i secondi si ottengono ore minuti e secondi in formato hh:mm:ss
' s ---> Numero di secondi da formattare
' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
Dim hh
Dim Mm
Dim Ss
Dim TimeStr
hh = s \ 3600
Mm =(s Mod 3600) \ 60
Ss = s -((hh * 3600) +(Mm * 60))
TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
FormattaSecondi = TimeStr
End Function

 

[antonio65]

Per Mike 58...ciao Mike 58 come va spero bene...ti volevo chiedere una cosa. mi sono accorto riguardo alla tecnica matematica che faccio io
di cui ti allego una foto per farti capire meglio...che facendo il calcolo ad esempio sui primi 2 estratti..tra il miglior numero ed il numero da giocare esce sempre la stessa somma....facci caso ho evidenziato per farti capire...

 

[Mike58]

Antonio, a parte che l'immagine non si vede, veramente non saprei come aiutarti.
I calcoli che vuoi condurre non li ho capiti e poi come ti dicevo cercarci altri algoritmi diventa complesso con tutte le variabili che devono interagire, e non ho tempo e nemmeno voglia di metterci mano e testa.

Mi spiace ma no saprei come e dove aiutarti.

Ciao

 

[salvo50]

Ma cos'è un algoritmo?

 

[antonio65]

Lo scrivo un altra volta se si può fare ex novo : prendiamo bari come esempio ma va bene per qualsiasi ruota e qualsiasi punto del mese.
Si tratta di questo: sommare
A=1°estratto con il 2°estratto =somma moltiplicata x 4
B=1°estratto con il 3°estratto =somma moltiplicata x 4
C=1°estratto con il 4°estratto =somma moltiplicata x 4
D=1°estratto con il 5°estratto =somma moltiplicata x 4
E=2°estratto con il 3°estratto=somma moltiplicata x 4
F=2°estratto con il 4°estratto =somma moltiplicata x 4
G=2°estratto con il 5°estratto =somma moltiplicata x 4
H=3°estratto con il 4°estratto =somma moltiplicata x 4
I=3°estratto con il 5°estratto =somma moltiplicata x 4
L=4°estratto con il 5°estratto=somma moltiplicata x 4

Poi secondo me (per quello che ne capisco io di script) con la funzione For nu 1 To 90 cercare la migliore previsione
supponiamo che la più alta previsione sia il 26
quindi nu=26x4=104...poi si sottrae A-Nu(26) risultato diviso 4...è semplicissimo..
ma solo per ambo...se è possibile ringrazio altrimenti ringrazio di più!!!

 

[salvo50]

Poi secondo me (per quello che ne capisco io di script) con la funzione For nu 1 To 90 cercare la migliore previsione
supponiamo che la più alta previsione sia il 26

Antonio, la tua formuletta l'ho capita, quello che tu non spieghi è come trovare la migliore previsione, tu dici con la funzione For nu 1 To 90, io ho preso lo script ed ho tolto tutto ed ho lasciato solo la formuletta e For nu e nel output ho 90 cinquine tutte diverse, secondo me per farci capire cosa intendi, ne devi fare uno a mano soprattutto nella parte dove trovi la migliore previsione, con degli esempi chiari, senza dire supponiamo, la migliore previsione la devi trovare con i calcoli, altrimenti io non capirò mai quello che tu vuoi dirci. Ti metto il codice che ricava le 90 cinquine con la tua formuletta.

Sub Main
    es = 9203
    nru1 = BA_
    p = 1
    p2 = 2
    p3 = 3
    p4 = 4
    p5 = 5
    For nu = 1 To 90
        co = co + 1
        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
        MEN1 = nu*4
        MEN2 = nu*4
        MEN3 = nu*4
        MEN4 = nu*4
        MEN5 = nu*4
        'Scrivi "************************************"
        b01 =(MEN1 - DNA1)
        b02 =(MEN2 - DNA2)
        b03 =(MEN3 - DNA3)
        b04 =(MEN4 - DNA4)
        b05 =(MEN5 - DNA5)
        '------------------------------------
        B06 = Abs(B01/4)
        B07 = Abs(B02/4)
        B08 = Abs(B03/4)
        B09 = Abs(B04/4)
        B010 = Abs(B05/4)
        Scrivi Format2(co) & "                    " & Format2(b06) & " " & Format2(b07) & " " & Format2(b08) & " " & Format2(b09) & " " & Format2(b010)

    Next
End Sub

 

[antonio65]

Cercherò di essere concreto e semplice nello stesso tempo: 1 del mese ruota di Bari ...quindi per domani sera...la funzione For Nu con la mia formuletta come dici tu mi da il numero :
5°Ba+173suBariè uscito18 su124casi- Num.[80]Ultimo Calcolato Rit.Att. 10 .. in corso .. freq..82 Tra i cinque estratti la migliore previsione sulla ruota di Bari per la 1estrazione del mese
BA 72.18.75.73.14 1estrazione del mese siccome si tratta del 5°estratto fa riferimento a. 173x4=692 18+75=93x4=372 692-372=320:4=80 Va bene? dimmi cosa non è chiaro che ti spiego ancora....comuqnue lo script che hai inviato mi da 90 cinquine non capisco dove allacciarmi..