Cerco Listato

[Cinzia27]

Non capisco il significato di questi dati, perciò non li ho potuti controllare, per cortesia, potresti controllarli e spiegarmeli?
Il resto mi sembra corretto per entrambi i capogiochi.

Scusami,non ti ho messo quali dati non capisco

BA CA 15. 48. 40
Rit. 023 011 083 <<<<<<<<<<
Fre. 564 612 577<<<<<<<<<<

BA CA 16. 66. 04
Rit. 003 001 015 <<<<<<<<<<
Fre. 550 587 569 <<<<<<<<<<


Grazie per le parole gentili.
Ti posto lo script con piccole descrizioni davanti a rt e fr

Sub Main
Dim aRetAbb,Ru(2),aN(1),Num(2)
Dim k,r
Ini = EstrazioneIni
fin = EstrazioneFin
Call ScegliRange(Ini,fin,Inizio,fine)
r = InputBox("Quale Ruota Analizzo",,1)
r1 = InputBox("Quale Ruota Analizzo",,2)

qtAbb = CInt(InputBox("Quanti Abbinamenti",,2))
ReDim Nu(0)
Call ScegliNumeri(Nu)
aa = UBound(Nu)
Scrivi "Range Inizio.......... " & GetInfoEstrazione(Ini),1
Scrivi "Range Fine............ " & GetInfoEstrazione(fin),1
Scrivi "Totali Estrazioni..... " &(fin - Ini) + 1,1
Scrivi
For n = 1 To aa
aN(1) = Nu(n)
T = Array(T,"Ruote","Ambo","Freq","Rit","Max","Incr")
Call InitTabella(T)
Scrivi "CapoGioco Scelto " & aN(1),1,,,1,3,,1
Call Abbinamenti(aN(1),aRetAbb,Ini,fin,r,0)
Ru(1) = r
Ru(2) = r1
For k = 1 To qtAbb
ReDim Preserve abb(k)
abb(0) = aN(1)
abb(k) = aRetAbb(k,1)
Num(1) = aN(1)
Num(2) = aRetAbb(k,1)
er = EstrattoRitardo(r,abb(k),Ini,fin)
er1 = EstrattoRitardo(r,abb(0),Ini,fin)
ef = EstrattoFrequenza(r,abb(k),Ini,fin)
ef1 = EstrattoFrequenza(r,abb(0),Ini,fin)
eer = EstrattoRitardo(r1,abb(k),Ini,fin)
eer1 = EstrattoRitardo(r1,abb(0),Ini,fin)
eef = EstrattoFrequenza(r1,abb(k),Ini,fin)
eef1 = EstrattoFrequenza(r1,abb(0),Ini,fin)
      
ReDim Preserve ritk(k)
riga = riga + FormattaStringa(er,"000") & " "
rigo = rigo + FormattaStringa(ef,"000") & " "
Call StatisticaFormazione(Num,Ru,2,rit,max,Incr,fre,Ini,fin)
V = Array(v,StringaRuote(Ru),StringaNumeri(Num,,1),fre,rit,max,Incr)
Call AddRigaTabella(V)
Scrivi aN(1) & "-" & Format2(aRetAbb(k,1)) & " con presenze " & aRetAbb(k,2) & " rit "& rit & " Max " & Max & " incr " & Incr & " Fr "& fre
Next
Call VerificaEsito(abb,Ru,EstrazioneFin,2,1,,Esito,,es1)
Scrivi SiglaRuota(r) & vbTab & SiglaRuota(r1) & vbTab & StringaNumeri(abb,".  ",1),1
Scrivi "Rit. " & vbTab & FormattaStringa(er1,"000") & " " & riga
Scrivi "Fre. " & vbTab & FormattaStringa(ef1,"000") & " " & rigo

If Esito <> "" Then Scrivi es1,1,,,1
If Esito = "" Then Scrivi "Nessun Esito",,,,2
Scrivi "============================================"
CreaTabella
riga = ""
rigo = ""
Next
End Sub

 

[Serpico 90]

Cinzia ,purtroppo non sono nelle condizioni Lottistiche di poter specificare il significato di quello che chiedi.
Io sono un autodidatta che cerco script , li provo se ritengo che possono aiutarmi nelle mie ricerche, lo prelevo
lo installo e poi ci lavoro ,molte volte guardo solo quello che mi può interessare ,non vado addentro a capire come è fatto e cosa
possono significare alcuni dati.
Confesso la mia ignoranza in merito ,mi dispiace non poter rispondere positivamente alla tua richiesta.
Ti Saluto

 

[Cinzia27]

Non ha importanza.
Grazie lo stesso, Serpico.

 

[joe]

Ciao Cinzia.

BA CA 15. 48. 40
Rit. 023 011 083 <<<<<<<<<<
Fre. 564 612 577<<<<<<<<<<

Sono i 3 ritardi e

la conta delle cadute dei 3 numeri nella ruota.

 

[Cinzia27]

Quindi solo sulla prima ruota.
Grazie, Joe

 

[Cinzia27]

La risposta è si.

 

[joe]

Ciao Cinzia.

Lo script almeno in teoria dovrebbe fare quello per cui è stato concepito, scritto, modificato.

Io ho trovato che i valori numerici esprimono i ritardi dei 3 numeri

ed i totale delle presenze di ognuno dei 3 numeri nella ruota.

Non si può super-partes stabilire se sia giusto meno.

Perché lo script cioè le istruzioni sono quelle e quello fanno.

Sono sbagliate solo se si voleva che facessero altro.

Nella descrizione di algoritmo si legge, universale.

Pertanto quanto è il contenuto delle istruzioni, tanto quanto nell' eseguirlo,

in entrambi e casi e chiunque dovrebbe giungere sempre al medesimo risultato.

La mia opinione personale su questo risultato è che esso coincide con il tuo sintetico si.

Che poi sia giusto o sbagliato, come ho detto non si può dire.

E' giusto se è quanto si voleva, è sbagliato se si fosse voluto un risultato diverso.

 

[Cinzia27]

Ciao, Joe.
Dici bene " nella ruota " non nelle due ruote.
Dato che per il momento non sembrano dati non indispensabili, se potrò proverò a metterci mano.

Buon ferragosto

 

[solare]

Ciao cinzia27, in merito a questo tuo ultimo listato è possibile mettere la possibilità di analizzare le ultime 50/100/150 estrazioni in modo tale che lo script mi chieda quante estrazioni a ritroso vuoi analizzare ?
Grazie e complimenti

 

[Cinzia27]

L' ultimo non è mio, Solare.
Ho fatto solo una modifica.
Per quello che vorresti tu è già a posto, quale parte d' archivio analizzare è la prima cosa che ti chiede con la finestra di dialogo.
Ciao

 

[Serpico 90]

Buongiorno Solare ,complimenti per le tue previsioni concorso 97 to 4.58 ambo in terzina
a palermo ambetto 90.16 ........
Buon giorno Cinzia .
Buon proseguimento di giornata.

 

[Cinzia27]

Ciao, Serpico
Anch'io mi complimento con Solare, il 4.58 faceva parte anche della unica mia settina (previsione per 8 colpi) chiusa un' estrazione fà col terno a Torino.

 

[Cinzia27]

Ciao Cinzia.

Mi permetto di suggerire che Spaziometria,

ha un efficiente controllo dell' Avanzamento-Elaborazione.

Quindi lo si può sfruttare per monitorare la presenza dei FALSI NON FUNZIONA.

Ini = EstrazioneFin -999
Fin = EstrazioneFin
For Es = Ini to Fin
If ScriptInterrotto Then Exit For
AvanzamentoElab Ini,Fin,Es

'corpo dello script

Next

Così pure If ScriptInterrotto, permette di abilitare il funzionamento del pulsante "STOP"

per interrompere lo script ed uscire durante la sua esecuzione

Così pure da un eventuale "loop" creato per errore "senza fine".

In ultimo l'output di spaziometria è in html.

Se ci sono molte giocate, diventa piuttosto pesante.

Occupa molta memoria e tempo di elaborazione.

Quindi in genere conviene usare Gioca Es,True

che evita di avere in output tutti casi non vincenti.

Scusami, Joe


For Es = Ini to Fin
If ScriptInterrotto Then Exit For
AvanzamentoElab Ini,Fin,Es

se non ho For Es =Ini to Fin ma

for a=1 to 85
for b=a+1 to 86
for c=b+1 to 87
for d=c+1 to 88
for e=d+1 to 89
for f=e+1 to 90

If ScriptInterrotto Then Exit For

dove va collocato ?

Grazie

 

[joe]

Ciao Cinzia

I cicli for next nidificati vengono eseguiti dal più centrale al più esterno.

Supponendo una velocità 10 costante di tutti i cicli e che i loop siano tutti uguali...

I tempi si moltiplicano ad ogni indentazione.

Un qualcosa del tipo: 10 / 100 / 1000 / 10000 / ecc.

"F" viene eseguito molte volte molto velocemente.

"E" è più lento. "D" e ancora più lento ... fino ad "A" che è lentissimo.

Dunque è inutile interrompere a "10" se poi si deve aspettare che si finiscano

tutti i cicli di "10Mila" volte più lenti .

Come è inutile interrompere a 10mila quando è già tutto finito.

Si tratta di valutare caso per caso.

Scegliendo quale potrebbe essere la strategia capace di ottenere un buon compromesso.

Option Explicit
Sub Main
   Dim a,b,c,d,e,f
   For a = 1 To 85
      AvanzamentoElab 0,85,a
      For b = a + 1 To 86
         For c = b + 1 To 87
            For d = c + 1 To 88
               If ScriptInterrotto Then Exit For
               For e = d + 1 To 89
                  For f = e + 1 To 90
                     Messaggio a & " " & b & "." & c & "." & d & "." & e & "." & f
                  Next
               Next
            Next
         Next
      Next
   Next
End Sub

Come vedi durante l' esecuzione i numeri del loop centrale ed

in particolare quelli più alla destra crescono velocemente.

"Interrompendo" alla sinistra di alcuni di essi ... "lo stop" ha una attesa minima e funzionale.

 

[Cinzia27]

Grazie, Joe.
Spiegazione impeccabile come nel tuo stile

 

[joe]

Buon Giorno.

Vi ringrazio ed aggiungo che si può ANCHE predisporre una strategia di uscita,

O

un qualcosa di utile al controllo del valore raggiunto delle variabili al momento dello stop.

In questo caso dello stesso script, si vuole, una uscita forzata e praticamente istantanea,

con il controllo degli indici raggiunti.

Option Explicit
Sub Main
   Dim a,b,c,d,e,f
   For a = 1 To 85
      AvanzamentoElab 0,85,a
      For b = a + 1 To 86
         For c = b + 1 To 87
            For d = c + 1 To 88
               For e = d + 1 To 89
                  For f = e + 1 To 90
                     Messaggio a & "." & b & "." & c & "." & d & "." & e & "." & f
                     If ScriptInterrotto Then Call Uscita(a,b,c,d,e,f) : Exit Sub
                  Next
               Next
            Next
         Next
      Next
   Next
End Sub
Sub Uscita(a,b,c,d,e,f)
   Scrivi "Al momento dello ""Stop"" le variabili di controllo dei cicli contengono: ",0,0
   Scrivi a & "." & b & "." & c & "." & d & "." & e & "." & f
   a = 90 : b = 90 : c = 90 : d = 90 : e = 90 : f = 90 'Forza la fine di TUTTI i cicli.
End Sub

 

[Serpico 90]

Buongiorno a tutti
Buongiorno Cinzia ,cortesemente ,se puoi e vuoi,potresti provare a mettere mani per trovare la soluzione
per la seconda ruota dello script che ti avevo chiesto gentilmente di modificare?
Magari nel chiederti la modifica non sono stato chiaro nel dirti che le previsioni andavano fatte per le due ruote
sinceramente ho capito dopo aver letto i chiarimenti di Joe , che ringrazio per il suo intervento, che lo script cosi come era impostato le previsioni le faceva solo per una ruota.
Nel caso ritieni che non essendo un tuo script non è corretto modificare un lavoro fatta da altri
TI CHIEDO CORTESEMENTE PUOI COSTRUIRE UNO SCRIPT CHE INSERENDO DUE RUOTE A PIACERE E DUE NUMERI A PIACERE
MI POSA INDICARE GLI ABBINAMENTI PIU ATTENDIBILI CON I DUE NUMERI INSERITI???
In attesa di una tua gradita risposta auguro buon proseguimento di giornata
Saluti
Serpico

 

[Oscar]

Ciao Joe tu che sei sicuramnte il migliore lo sai come si fa un ridotto N1-N2- ECC. ottimizzato o anche standard ( ho provato diverse volte , ma mi perdono sempre la garanzia) alla fine ho lasciato perdere

 

[joe]

Ciao Oscar.

Ho sempre trascurato i sistemi perché,in generale, li trovo difficili.

Difficili da gestire, fuori dalla mia portata e comprensione.

Quando necessario mi affido a quanto contenuto nei programmi, adattandolo alle esigenze.

Sicuramente, questi programmi specifici, hanno routine, riduzioni, velocità, capacità di calcolo,

di spoglio che difficilmente sono alla portata e nella capacità di un solo individuo.

Senza falsa modestia, non ne so più di tanto.

 

[K2020]

Ciao Joe , questo script non mi si ferma mai , devo modificare qualcosa ? Grazie e buona serata.