Script costruttore metodi .... Chi + ne ha + ne metta.

[i legend]

Ciao Claudio
utilizzando come ricerca delle estrazioni consecutive quindi uno studio a colpo ,occorrerebbe una statistica per confrontare oltre le presenze il ritardo e uno storico da poter raffrontare.
inoltre ,ma e solo in mio parere anche una presentazione dati più user friendly.
Ciao
spero che sia questo tipo di considerazioni che cerchi in questo post.

 

[claudio8]

Ciao Claudio
utilizzando come ricerca delle estrazioni consecutive quindi uno studio a colpo ,occorrerebbe una statistica per confrontare oltre le presenze il ritardo e uno storico da poter raffrontare.
inoltre ,ma e solo in mio parere anche una presentazione dati più user friendly.
Ciao
spero che sia questo tipo di considerazioni che cerchi in questo post.

Ciao, I Legend
- Si sto utilizzando come ricerche delle estrazioni consecutive per uno studio a colpo, ma questa non è una mia scelta bensì un a condizione "dettata" dallo script di Luigi (post #13) che, anche se mi da la possibilità di usare più colpi, non ha previsto nessun condizionamento per evitare gli accavallamenti di estrazioni (colpi) nel caso di numeri spia ripetuti. Per cui evito di operare questi test con più colpi per non incappare in queste casistiche che a mio parere (con l'ottica del giocatore) falsano la raltà.
- tutto si può inserire, anche una riga di ritardi, e ritardo storico (se è questo che intemdi per storico)
- per la presentazione dei dati, è chiaro che se la tecnica funziona la sua miglior visione deve essere evidenziata, ma adesso, siamo in fase di studio del progetto ed è dalla moltitudine di dati a vista che si arriverà, spero a trovare la strada, se possibile di un "fine progetto".

Non è mia intenzione lasciare passo passo uno script man mano che si procede nella stesura del progetto, perchè porterebbe ad una confusione (tra i vari script) per la gran parte dei lettori mentre per chi ha dimestichezza di scrittura, non vi sarebbero particolari problemi per seguire il progetto.

Sto comunque lasciando gli outpup degli script da me realizzati per il progetto, dando a chi legge la possibilità di interfacciarsi con me o con chiunque altro stia seguendo il progetto. Non serve avere uno script in più nel proprio pc, se non si ha conoscenza di quale strada si è percorsi per arrivare a detto o di quale strada ancora si deve percorrere per migliorarlo.

Come avrai notato, sono partito da una richiesta di costruttori di metodi, e da questi scegliendo il più evoluto e più veloce a livello di script (post #13) ho cominciato a definirne un output user friendly compatibile con il percorso che sto facendo, a seguire,ho inserito ulteriori tabelle con piccole variazioni tra cui le "ver" - (storico da cui recuperare la statistica) sino ad arrivare agli ultimi 2 file outp .html di cui ho chiesto un confronto ed approfondimento.
Sicuramente ti sarai soffermato sul post #71 ed avrai notato (se sei riuscito a leggere lo screenshot) che ha in se l'evoluzione delle verifiche, esso dà l'indicazione di quale è stata la performance della tecnica di ricerca applicata.

Ti ringrazio per aver partecipato, lasciato le tue considerazioni e di avermi dato anche lo spunto di chiarire il mio punto di vista che forse a molti potrebbe sembrare strano o utopico.

Approfitto ancora per augurare a te, famiglia e tutti Buon NATALE.

 

[claudio8]

Aggiorno i 2 output, con RitAtt, ritMax, Freq. al 24/12

http://www.mediafire.com/file/3zufm722np0tap2/Sommativo%2BEstratti-al24-12.html/file

http://www.mediafire.com/file/yu7otwbdc0n3ijd/Sommativo%2BFissi1-90-al24-12.html/file

Saluti

 

[lottofortune]

Ciao lotto_tom, credo di non essere stato chiaro nella premessa.
Il tuo è uno script che ha nel suo costrutto gli algoritmi di calcolo delle ambate già definiti da te :
ambata(1) = Fuori90(n2 + 11)
ambata(2) = Fuori90(n2 + 42)
io sto cercando script che hanno capacità di costruire l'algoritmo che definisce le ambate o sorti superiori.

Sostanzialmente, dati come inputbox una serie di condizioni di ricerca ( es: n°spia. range di ricerca,ruota ricerca, ruota gioco, % esiti minimi ecc, ecc), lo script deve trovare autonomamente un o più algoritmi che nello storico hanno dato il n° o la % di esiti minimi richiesti.

Eccoti di esempio uno script di Mike58 che partendo da un estratto definito in input e sommando i fissi da 1 a 90 crea delle terzine di fissi, conta gli esiti positivi nel range di casi analizzati e ne verifica l'esito ad ambo/terno.

'costruttore sommativo di Mike58
Sub Main()
Scrivi : ColoreTesto 2: Scrivi String(54," ") & "3 AMBATE SOMMATIVE",1
Scrivi : ColoreTesto 2: Scrivi String(54," ") & " SCRIPT DI MIKE58 ",1
Dim num(120000,5),aa(3),n1(1),n2(1),n3(1)
Dim cin(10),ruote(10)
casi = 0
x = CInt(InputBox("INDICE MENSILE","MIKE58",1)) 'DA CAMBIARE A PIACIMENTO
r = CInt(InputBox("RUOTA DI RICERCA ?","MIKE58",1)) 'DA CAMBIARE A PIACIMENTO
pos = CInt(InputBox("POSIZIONE ESTRATTO?","MIKE58",1)) 'DA CAMBIARE A PIACIMENTO
colpi = CInt(InputBox("COLPI DI GIOCO ?","MIKE58",14)) 'DA CAMBIARE A PIACIMENTO
visual = CInt(InputBox("QUANTI CASI VISUALIZZARE ?","MIKE58",10)) 'DA CAMBIARE A PIACIMENTO
ruote(1) = r
fin = EstrazioneFin
Ini = fin - 140
fine = EstrazioneFin
ReDim atitoli(11)
atitoli(1) = " ESTRATTO "
atitoli(2) = " SOMMATIVO "
atitoli(3) = " PRESENZA SU CASI "
atitoli(4) = " NUMERO IN GIOCO "
atitoli(5) = " ESITO "
atitoli(6) = " RET_ESTRATTI "
atitoli(7) = " DATA ESTRAZIONE "
atitoli(8) = " COLPO ESITO "
atitoli(9) = " NUM. 1 "
atitoli(10) = " NUM. 2 "
atitoli(11) = " NUM. 3 "
Call InitTabella(atitoli,1,,3,5)
For es = Ini To Fin
If IndiceMensile(es) = x Then 'DA CAMBIARE A PIACIMENTO
idd = GetInfoEstrazione(es)
Call Messaggio("Costruttore Sommativo per Ambi " & " casi trovati...." & casi)
Call AvanzamentoElab(Ini,fin,es)
Inco = fine - es
casi = casi + 1
co = 0
es1 = es + 1
es2 = es1 + colpi
e = Estratto(es,r,pos)
For s1 = 1 To 88
For s2 = s1 + 1 To 89
For s3 = s2 + 1 To 90
co = co + 1
cin(1) = Fuori90(e + s1)
cin(2) = Fuori90(e + s2)
cin(3) = Fuori90(e + s3)
ea = SerieFreqTurbo(es1,es2,cin,ruote,2)
num(co,1) = s1
num(co,2) = s2
num(co,3) = s3
num(co,4) = num(co,4)
If ea > 0 Then
num(co,4) = num(co,4) + 1
End If
Next
Next
Next
End If
Next
Scrivi : ColoreTesto 0: Scrivi,1
Scrivi "SOMMA ALL'ESTRATTO TUTTI I 90 NUMERI SULLA RUOTA DI " & NomeRuota(r) & " NEI " & eval(colpi) & " COLPI SUCCESSIVI",1
Scrivi "Combinazioni analizzate: " & co,1
Scrivi "alla " & x & " estrazione mensile" & " Data estrazione " & idd,0,0
Scrivi " -> Colpo in corso..." & Inco,1
Scrivi
ColoreTesto 0
For i = 1 To visual
Call OrdinaMatrice(num,- 1,4)
If(num(i,4)) >= 0 Then ' ATTENZIONE QUESTI SIMBOLI => DEVONO ESSERE ATTACCATI
ColoreTesto 0
aa(1) = Fuori90(cin(1) + num(i,1) + 2)
aa(2) = Fuori90(cin(2) + num(i,2) + 1)
aa(3) = Fuori90(cin(3) + num(i,3))
Call VerificaEsitoTurbo(aa,ruote,es1,2,Inco,,retesito,retcolpi,retestratti,id)
n1(1) = aa(1)
n2(1) = aa(2)
n3(1) = aa(3)
ReDim avalori(11)
avalori(1) = pos & "°" & " di " & SiglaRuota(r) & " = " & e
avalori(2) = " + " & Format2(CStr(num(i,1))) & " + " & Format2(CStr(num(i,2))) & " + " & Format2(CStr(num(i,3)))
avalori(3) = Format2(num(i,4)) & " su " & casi & " Casi "
avalori(4) = StringaNumeri(aa,,1) 'Format2(aa(1)) & " - " & Format2(aa(2)) & " - " & Format2(aa(3))
avalori(5) = retesito
avalori(6) = Retestratti
If retesito = "Ambo" Or retesito = "Terno" Then
avalori(7) = DataEstrazione(id)
Else
avalori(7) = " In corso "
End If
If retesito = "Ambo" Or retesito = "Terno" Then
avalori(8) = retcolpi & "°"
Else
avalori(8) = Inco & "° in corso "
End If
sf11 = SerieFreqTurbo(fine - inco,fine,n1,ruote,1)
sf12 = SerieFreqTurbo(fine - inco,fine,n2,ruote,1)
sf13 = SerieFreqTurbo(fine - inco,fine,n3,ruote,1)
If sf11 > 0 Then
avalori(9) = n1(1)
Else
avalori(9) = ""
End If
If sf12 > 0 Then
avalori(10) = n2(1)
Else
avalori(10) = ""
End If
If sf13 > 0 Then
avalori(11) = n3(1)
Else
avalori(11) = ""
End If
'End If
Call AddRigaTabella(avalori,,,3)
End If
Call SetColoreCella(2,,1)
Call SetColoreCella(4,,2)
Call SetColoreCella(6,,7)
If avalori(5) = "Ambo" Then Call SetColoreCella(5,2,4)
If avalori(5) = "Terno" Then Call SetColoreCella(5,3,1)
If avalori(7) = DataEstrazione(id) Then Call SetColoreCella(7,,2)
Next
Call SetTableWidth("100%")
Call CreaTabella()
End Sub

Ciao

ciao a tutti questo script lo si puo trasformare per due ruote anzichè una?

 

[ppaaoolloo]

up

 

[zagort]

per gli amanti di costruttori metodi potete trovare script che sono delle chicche fate una ricerca su lotto.....passion( unite::))